0s autopkgtest [00:26:40]: starting date and time: 2024-03-28 00:26:40+0000 0s autopkgtest [00:26:40]: git checkout: 4a1cd702 l/adt_testbed: don't blame the testbed for unsolvable build deps 0s autopkgtest [00:26:40]: host juju-7f2275-prod-proposed-migration-environment-3; command line: /home/ubuntu/autopkgtest/runner/autopkgtest --output-dir /tmp/autopkgtest-work.7xuwyk0g/out --timeout-copy=6000 --setup-commands /home/ubuntu/autopkgtest-cloud/worker-config-production/setup-canonical.sh --apt-pocket=proposed --apt-upgrade r-cran-future.apply --timeout-short=300 --timeout-copy=20000 --timeout-build=20000 --env=ADT_TEST_TRIGGERS=r-base/4.3.3-2build1 -- ssh -s /home/ubuntu/autopkgtest/ssh-setup/nova -- --flavor autopkgtest --security-groups autopkgtest-juju-7f2275-prod-proposed-migration-environment-3@bos01-s390x-19.secgroup --name adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7 --image adt/ubuntu-noble-s390x-server --keyname testbed-juju-7f2275-prod-proposed-migration-environment-3 --net-id=net_prod-proposed-migration -e TERM=linux -e ''"'"'http_proxy=http://squid.internal:3128'"'"'' -e ''"'"'https_proxy=http://squid.internal:3128'"'"'' -e ''"'"'no_proxy=127.0.0.1,127.0.1.1,login.ubuntu.com,localhost,localdomain,novalocal,internal,archive.ubuntu.com,ports.ubuntu.com,security.ubuntu.com,ddebs.ubuntu.com,changelogs.ubuntu.com,launchpadlibrarian.net,launchpadcontent.net,launchpad.net,10.24.0.0/24,keystone.ps5.canonical.com,objectstorage.prodstack5.canonical.com'"'"'' --mirror=http://us.ports.ubuntu.com/ubuntu-ports/ 1336s Creating nova instance adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7 from image adt/ubuntu-noble-s390x-server-20240327.img (UUID 2274866b-dd05-444a-bb80-9d56992242ed)... 1336s nova boot failed (attempt #1): 1336s DEBUG (extension:189) found extension EntryPoint.parse('v1password = swiftclient.authv1:PasswordLoader') 1336s DEBUG (extension:189) found extension EntryPoint.parse('noauth = cinderclient.contrib.noauth:CinderNoAuthLoader') 1336s DEBUG (extension:189) found extension EntryPoint.parse('admin_token = keystoneauth1.loading._plugins.admin_token:AdminToken') 1336s DEBUG (extension:189) found extension EntryPoint.parse('none = keystoneauth1.loading._plugins.noauth:NoAuth') 1336s DEBUG (extension:189) found extension EntryPoint.parse('password = keystoneauth1.loading._plugins.identity.generic:Password') 1336s DEBUG (extension:189) found extension EntryPoint.parse('token = keystoneauth1.loading._plugins.identity.generic:Token') 1336s DEBUG (extension:189) found extension EntryPoint.parse('v2password = keystoneauth1.loading._plugins.identity.v2:Password') 1336s DEBUG (extension:189) found extension EntryPoint.parse('v2token = keystoneauth1.loading._plugins.identity.v2:Token') 1336s DEBUG (extension:189) found extension EntryPoint.parse('v3adfspassword = keystoneauth1.extras._saml2._loading:ADFSPassword') 1336s DEBUG (extension:189) found extension EntryPoint.parse('v3applicationcredential = keystoneauth1.loading._plugins.identity.v3:ApplicationCredential') 1336s DEBUG (extension:189) found extension EntryPoint.parse('v3fedkerb = keystoneauth1.extras.kerberos._loading:MappedKerberos') 1336s DEBUG (extension:189) found extension EntryPoint.parse('v3kerberos = keystoneauth1.extras.kerberos._loading:Kerberos') 1336s DEBUG (extension:189) found extension EntryPoint.parse('v3multifactor = keystoneauth1.loading._plugins.identity.v3:MultiFactor') 1336s DEBUG (extension:189) found extension EntryPoint.parse('v3oauth1 = keystoneauth1.extras.oauth1._loading:V3OAuth1') 1336s DEBUG (extension:189) found extension EntryPoint.parse('v3oidcaccesstoken = keystoneauth1.loading._plugins.identity.v3:OpenIDConnectAccessToken') 1336s DEBUG (extension:189) found extension EntryPoint.parse('v3oidcauthcode = keystoneauth1.loading._plugins.identity.v3:OpenIDConnectAuthorizationCode') 1336s DEBUG (extension:189) found extension EntryPoint.parse('v3oidcclientcredentials = keystoneauth1.loading._plugins.identity.v3:OpenIDConnectClientCredentials') 1336s DEBUG (extension:189) found extension EntryPoint.parse('v3oidcpassword = keystoneauth1.loading._plugins.identity.v3:OpenIDConnectPassword') 1336s DEBUG (extension:189) found extension EntryPoint.parse('v3password = keystoneauth1.loading._plugins.identity.v3:Password') 1336s DEBUG (extension:189) found extension EntryPoint.parse('v3samlpassword = keystoneauth1.extras._saml2._loading:Saml2Password') 1336s DEBUG (extension:189) found extension EntryPoint.parse('v3token = keystoneauth1.loading._plugins.identity.v3:Token') 1336s DEBUG (extension:189) found extension EntryPoint.parse('v3tokenlessauth = keystoneauth1.loading._plugins.identity.v3:TokenlessAuth') 1336s DEBUG (extension:189) found extension EntryPoint.parse('v3totp = keystoneauth1.loading._plugins.identity.v3:TOTP') 1336s DEBUG (session:517) REQ: curl -g -i -X GET http://keystone.infra.bos01.scalingstack:5000/v3/ -H "Accept: application/json" -H "User-Agent: nova keystoneauth1/4.0.0 python-requests/2.22.0 CPython/3.8.10" 1336s DEBUG (connectionpool:222) Starting new HTTP connection (1): keystone.infra.bos01.scalingstack:5000 1336s DEBUG (connectionpool:429) http://keystone.infra.bos01.scalingstack:5000 "GET /v3/ HTTP/1.1" 200 273 1336s DEBUG (session:548) RESP: [200] Connection: Keep-Alive Content-Length: 273 Content-Type: application/json Date: Thu, 28 Mar 2024 00:27:32 GMT Keep-Alive: timeout=5, max=100 Server: Apache/2.4.18 (Ubuntu) Vary: X-Auth-Token X-Distribution: Ubuntu x-openstack-request-id: req-cde75fd2-d33a-43fc-afc1-7434f2e3afa4 1336s DEBUG (session:580) RESP BODY: {"version": {"status": "stable", "updated": "2018-02-28T00:00:00Z", "media-types": [{"base": "application/json", "type": "application/vnd.openstack.identity-v3+json"}], "id": "v3.10", "links": [{"href": "http://keystone.infra.bos01.scalingstack:5000/v3/", "rel": "self"}]}} 1336s DEBUG (session:946) GET call to http://keystone.infra.bos01.scalingstack:5000/v3/ used request id req-cde75fd2-d33a-43fc-afc1-7434f2e3afa4 1336s DEBUG (base:182) Making authentication request to http://keystone.infra.bos01.scalingstack:5000/v3/auth/tokens 1336s DEBUG (connectionpool:429) http://keystone.infra.bos01.scalingstack:5000 "POST /v3/auth/tokens HTTP/1.1" 201 4363 1336s DEBUG (base:187) {"token": {"is_domain": false, "methods": ["password"], "roles": [{"id": "9fe2ff9ee4384b1894a90878d3e92bab", "name": "_member_"}], "is_admin_project": false, "project": {"domain": {"id": "default", "name": "Default"}, "id": "3f3b771a247746688951a4c90bf16631", "name": "prod-proposed-migration_project"}, "catalog": [{"endpoints": [{"url": "http://10.189.0.40", "interface": "public", "region": "scalingstack-bos01", "region_id": "scalingstack-bos01", "id": "7d31d2904b56461cb46c735fc00850b0"}, {"url": "http://10.189.0.40", "interface": "internal", "region": "scalingstack-bos01", "region_id": "scalingstack-bos01", "id": "931e03b1033c4992ac8d223599983801"}, {"url": "http://10.189.0.40", "interface": "admin", "region": "scalingstack-bos01", "region_id": "scalingstack-bos01", "id": "c703b3c5e7224cfd893f622a7def99d7"}], "type": "product-streams", "id": "6723640fcf314f1c84ab92b0b7b7d343", "name": "image-stream"}, {"endpoints": [{"url": "http://neutron-api.infra.bos01.scalingstack:9696", "interface": "public", "region": "scalingstack-bos01", "region_id": "scalingstack-bos01", "id": "13475a253aba4a63883ad9da9631b1d3"}, {"url": "http://10.189.0.22:9696", "interface": "internal", "region": "scalingstack-bos01", "region_id": "scalingstack-bos01", "id": "63b2334803a742048e95cd48d39f1674"}, {"url": "http://10.189.0.22:9696", "interface": "admin", "region": "scalingstack-bos01", "region_id": "scalingstack-bos01", "id": "9d19ce3dbfd544ef90e7694049018957"}], "type": "network", "id": "6a80a28849da43ce9839207bb1e98bfc", "name": "neutron"}, {"endpoints": [{"url": "http://10.189.0.20:5000/v3", "interface": "internal", "region": "scalingstack-bos01", "region_id": "scalingstack-bos01", "id": "51d5e1cea07c4644b44a8bf114268a27"}, {"url": "http://10.189.0.20:35357/v3", "interface": "admin", "region": "scalingstack-bos01", "region_id": "scalingstack-bos01", "id": "79c780094b2f40e5a70ee3a6353760a0"}, {"url": "http://keystone.infra.bos01.scalingstack:5000/v3", "interface": "public", "region": "scalingstack-bos01", "region_id": "scalingstack-bos01", "id": "9cdf3486e4a94ca0a181e87bc1ff344f"}], "type": "identity", "id": "ad3a88bc8df3470b938f685304ad3ae9", "name": "keystone"}, {"endpoints": [{"url": "http://nova-api.infra.bos01.scalingstack:8778", "interface": "public", "region": "scalingstack-bos01", "region_id": "scalingstack-bos01", "id": "83e5577919844e47bbf3dffc39f71e5f"}, {"url": "http://10.189.0.23:8778", "interface": "internal", "region": "scalingstack-bos01", "region_id": "scalingstack-bos01", "id": "86cd7636126b4214a0c0de3c50936bb9"}, {"url": "http://10.189.0.23:8778", "interface": "admin", "region": "scalingstack-bos01", "region_id": "scalingstack-bos01", "id": "eb918cef1bd546fcaafc28133e511d6c"}], "type": "placement", "id": "af7144bdc8404803a159883c31910f75", "name": "placement"}, {"endpoints": [{"url": "http://10.189.0.23:8774/v2.1", "interface": "internal", "region": "scalingstack-bos01", "region_id": "scalingstack-bos01", "id": "202b55f38ce646fe8ec9e2b956672f07"}, {"url": "http://10.189.0.23:8774/v2.1", "interface": "admin", "region": "scalingstack-bos01", "region_id": "scalingstack-bos01", "id": "b29375d70fd748e699859503279177e3"}, {"url": "http://nova-api.infra.bos01.scalingstack:8774/v2.1", "interface": "public", "region": "scalingstack-bos01", "region_id": "scalingstack-bos01", "id": "ff7b759bc23341fe911fedfc2cd9ae07"}], "type": "compute", "id": "e34360be9bc6484eb95832a381a2d650", "name": "nova"}, {"endpoints": [{"url": "http://glance.infra.bos01.scalingstack:9292", "interface": "public", "region": "scalingstack-bos01", "region_id": "scalingstack-bos01", "id": "0bacddbfbda545f087dab7ef5745707d"}, {"url": "http://10.189.0.19:9292", "interface": "admin", "region": "scalingstack-bos01", "region_id": "scalingstack-bos01", "id": "0f69442c439d471b9761ccd46fc6ca2e"}, {"url": "http://10.189.0.19:9292", "interface": "internal", "region": "scalingstack-bos01", "region_id": "scalingstack-bos01", "id": "9cd58aadc9e94eea8783da595c3474f3"}], "type": "image", "id": "f29a943021f34b6682d21957ddc8acac", "name": "glance"}], "expires_at": "2024-03-28T01:27:33.000000Z", "user": {"password_expires_at": null, "domain": {"id": "default", "name": "Default"}, "id": "3afbd64474684647986f8a196316be34", "name": "prod-proposed-migration-s390x"}, "audit_ids": ["LzZZfhprSUKEfl-TdH8vLQ"], "issued_at": "2024-03-28T00:27:33.000000Z"}} 1336s REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1 -H "Accept: application/json" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" 1336s DEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1 -H "Accept: application/json" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" 1336s DEBUG (connectionpool:222) Starting new HTTP connection (1): nova-api.infra.bos01.scalingstack:8774 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1 HTTP/1.1" 302 0 1336s RESP: [302] Connection: keep-alive Content-Length: 0 Content-Type: text/plain; charset=utf8 Date: Thu, 28 Mar 2024 00:27:38 GMT Location: http://nova-api.infra.bos01.scalingstack:8774/v2.1/ X-Compute-Request-Id: req-a2d94681-9de7-4ea4-8633-05b4433e5445 X-Openstack-Request-Id: req-a2d94681-9de7-4ea4-8633-05b4433e5445 1336s DEBUG (session:548) RESP: [302] Connection: keep-alive Content-Length: 0 Content-Type: text/plain; charset=utf8 Date: Thu, 28 Mar 2024 00:27:38 GMT Location: http://nova-api.infra.bos01.scalingstack:8774/v2.1/ X-Compute-Request-Id: req-a2d94681-9de7-4ea4-8633-05b4433e5445 X-Openstack-Request-Id: req-a2d94681-9de7-4ea4-8633-05b4433e5445 1336s RESP BODY: Omitted, Content-Type is set to text/plain; charset=utf8. Only application/json responses have their bodies logged. 1336s DEBUG (session:580) RESP BODY: Omitted, Content-Type is set to text/plain; charset=utf8. Only application/json responses have their bodies logged. 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/ HTTP/1.1" 200 407 1336s RESP: [200] Connection: keep-alive Content-Length: 407 Content-Type: application/json Date: Thu, 28 Mar 2024 00:27:38 GMT Openstack-Api-Version: compute 2.1 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-86f1131d-806b-4bfe-a831-1d1c578fb4f7 X-Openstack-Nova-Api-Version: 2.1 X-Openstack-Request-Id: req-86f1131d-806b-4bfe-a831-1d1c578fb4f7 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 407 Content-Type: application/json Date: Thu, 28 Mar 2024 00:27:38 GMT Openstack-Api-Version: compute 2.1 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-86f1131d-806b-4bfe-a831-1d1c578fb4f7 X-Openstack-Nova-Api-Version: 2.1 X-Openstack-Request-Id: req-86f1131d-806b-4bfe-a831-1d1c578fb4f7 1336s RESP BODY: {"version": {"status": "CURRENT", "updated": "2013-07-23T11:33:21Z", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/", "rel": "self"}, {"href": "http://docs.openstack.org/", "type": "text/html", "rel": "describedby"}], "min_version": "2.1", "version": "2.60", "media-types": [{"base": "application/json", "type": "application/vnd.openstack.compute+json;version=2.1"}], "id": "v2.1"}} 1336s DEBUG (session:580) RESP BODY: {"version": {"status": "CURRENT", "updated": "2013-07-23T11:33:21Z", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/", "rel": "self"}, {"href": "http://docs.openstack.org/", "type": "text/html", "rel": "describedby"}], "min_version": "2.1", "version": "2.60", "media-types": [{"base": "application/json", "type": "application/vnd.openstack.compute+json;version=2.1"}], "id": "v2.1"}} 1336s GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/ used request id req-86f1131d-806b-4bfe-a831-1d1c578fb4f7 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/ used request id req-86f1131d-806b-4bfe-a831-1d1c578fb4f7 1336s DEBUG (extension:189) found extension EntryPoint.parse('v1password = swiftclient.authv1:PasswordLoader') 1336s DEBUG (extension:189) found extension EntryPoint.parse('noauth = cinderclient.contrib.noauth:CinderNoAuthLoader') 1336s DEBUG (extension:189) found extension EntryPoint.parse('admin_token = keystoneauth1.loading._plugins.admin_token:AdminToken') 1336s DEBUG (extension:189) found extension EntryPoint.parse('none = keystoneauth1.loading._plugins.noauth:NoAuth') 1336s DEBUG (extension:189) found extension EntryPoint.parse('password = keystoneauth1.loading._plugins.identity.generic:Password') 1336s DEBUG (extension:189) found extension EntryPoint.parse('token = keystoneauth1.loading._plugins.identity.generic:Token') 1336s DEBUG (extension:189) found extension EntryPoint.parse('v2password = keystoneauth1.loading._plugins.identity.v2:Password') 1336s DEBUG (extension:189) found extension EntryPoint.parse('v2token = keystoneauth1.loading._plugins.identity.v2:Token') 1336s DEBUG (extension:189) found extension EntryPoint.parse('v3adfspassword = keystoneauth1.extras._saml2._loading:ADFSPassword') 1336s DEBUG (extension:189) found extension EntryPoint.parse('v3applicationcredential = keystoneauth1.loading._plugins.identity.v3:ApplicationCredential') 1336s DEBUG (extension:189) found extension EntryPoint.parse('v3fedkerb = keystoneauth1.extras.kerberos._loading:MappedKerberos') 1336s DEBUG (extension:189) found extension EntryPoint.parse('v3kerberos = keystoneauth1.extras.kerberos._loading:Kerberos') 1336s DEBUG (extension:189) found extension EntryPoint.parse('v3multifactor = keystoneauth1.loading._plugins.identity.v3:MultiFactor') 1336s DEBUG (extension:189) found extension EntryPoint.parse('v3oauth1 = keystoneauth1.extras.oauth1._loading:V3OAuth1') 1336s DEBUG (extension:189) found extension EntryPoint.parse('v3oidcaccesstoken = keystoneauth1.loading._plugins.identity.v3:OpenIDConnectAccessToken') 1336s DEBUG (extension:189) found extension EntryPoint.parse('v3oidcauthcode = keystoneauth1.loading._plugins.identity.v3:OpenIDConnectAuthorizationCode') 1336s DEBUG (extension:189) found extension EntryPoint.parse('v3oidcclientcredentials = keystoneauth1.loading._plugins.identity.v3:OpenIDConnectClientCredentials') 1336s DEBUG (extension:189) found extension EntryPoint.parse('v3oidcpassword = keystoneauth1.loading._plugins.identity.v3:OpenIDConnectPassword') 1336s DEBUG (extension:189) found extension EntryPoint.parse('v3password = keystoneauth1.loading._plugins.identity.v3:Password') 1336s DEBUG (extension:189) found extension EntryPoint.parse('v3samlpassword = keystoneauth1.extras._saml2._loading:Saml2Password') 1336s DEBUG (extension:189) found extension EntryPoint.parse('v3token = keystoneauth1.loading._plugins.identity.v3:Token') 1336s DEBUG (extension:189) found extension EntryPoint.parse('v3tokenlessauth = keystoneauth1.loading._plugins.identity.v3:TokenlessAuth') 1336s DEBUG (extension:189) found extension EntryPoint.parse('v3totp = keystoneauth1.loading._plugins.identity.v3:TOTP') 1336s DEBUG (session:517) REQ: curl -g -i -X GET http://glance.infra.bos01.scalingstack:9292/v2/images/2274866b-dd05-444a-bb80-9d56992242ed -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:222) Starting new HTTP connection (1): glance.infra.bos01.scalingstack:9292 1336s DEBUG (connectionpool:429) http://glance.infra.bos01.scalingstack:9292 "GET /v2/images/2274866b-dd05-444a-bb80-9d56992242ed HTTP/1.1" 200 1781 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 1781 Content-Type: application/json Date: Thu, 28 Mar 2024 00:27:38 GMT X-Openstack-Request-Id: req-fdc0e937-16b4-4161-ae7c-13a5a5158a02 1336s DEBUG (session:580) RESP BODY: {"image_state": "available", "container_format": "bare", "min_ram": 0, "updated_at": "2024-03-27T01:26:25Z", "hw_scsi_model": "virtio-scsi", "boot_roles": "_member_", "file": "/v2/images/2274866b-dd05-444a-bb80-9d56992242ed/file", "owner": "3f3b771a247746688951a4c90bf16631", "base_image_ref": "ae3c7648-2f35-40d3-9be5-cc7a60aa4f72", "simplestreams_metadata": "{\"aliases\": \"22.04,j,jammy\", \"arch\": \"s390x\", \"ftype\": \"disk1.img\", \"label\": \"daily\", \"md5\": \"aa9e26f2f82c680ea95be510d1c6af26\", \"os\": \"ubuntu\", \"pubname\": \"ubuntu-jammy-daily-s390x-server-20220712\", \"release\": \"jammy\", \"release_codename\": \"Jammy Jellyfis", "size": 1673986048, "os_distro": "ubuntu", "user_id": "3afbd64474684647986f8a196316be34", "image_type": "snapshot", "self": "/v2/images/2274866b-dd05-444a-bb80-9d56992242ed", "disk_format": "qcow2", "id": "2274866b-dd05-444a-bb80-9d56992242ed", "os_version": "22.04", "clean_attempts": "2", "owner_project_name": "prod-proposed-migration_project", "hw_disk_bus": "scsi", "schema": "/v2/schemas/image", "status": "active", "image_location": "snapshot", "tags": [], "owner_id": "3f3b771a247746688951a4c90bf16631", "visibility": "private", "owner_user_name": "prod-proposed-migration-s390x", "min_disk": 20, "version_name": "20220712", "virtual_size": null, "hw_architecture": "s390x", "source_content_id": "com.ubuntu.cloud:daily:download", "instance_uuid": "991a8d94-f851-48ab-9f4a-25f464edf379", "name": "adt/ubuntu-noble-s390x-server-20240327.img", "hypervisor_type": "qemu", "created_at": "2024-03-27T01:21:45Z", "product_name": "com.ubuntu.cloud.daily:server:22.04:s390x", "item_name": "disk1.img", "protected": false, "architecture": "s390x", "checksum": "2017de7fe2507883b95d40d98c49ef1f", "content_id": "auto.sync.s390x"} 1336s DEBUG (session:936) GET call to image for http://glance.infra.bos01.scalingstack:9292/v2/images/2274866b-dd05-444a-bb80-9d56992242ed used request id req-fdc0e937-16b4-4161-ae7c-13a5a5158a02 1336s DEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/autopkgtest -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/flavors/autopkgtest HTTP/1.1" 404 84 1336s DEBUG (session:548) RESP: [404] Connection: keep-alive Content-Length: 84 Content-Type: application/json; charset=UTF-8 Date: Thu, 28 Mar 2024 00:27:38 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-3c7f8528-271e-41b1-bf5a-13cd0154e019 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-3c7f8528-271e-41b1-bf5a-13cd0154e019 1336s DEBUG (session:580) RESP BODY: {"itemNotFound": {"message": "Flavor autopkgtest could not be found.", "code": 404}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/autopkgtest used request id req-3c7f8528-271e-41b1-bf5a-13cd0154e019 1336s DEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors?is_public=None -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/flavors?is_public=None HTTP/1.1" 200 24419 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 24419 Content-Type: application/json Date: Thu, 28 Mar 2024 00:27:38 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-4ca75c1f-718b-444b-96fb-b7bebb4a6a22 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-4ca75c1f-718b-444b-96fb-b7bebb4a6a22 1336s DEBUG (session:580) RESP BODY: {"flavors": [{"description": null, "id": "002c57f9-d774-48a3-bb1e-b611f83aea6d", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/002c57f9-d774-48a3-bb1e-b611f83aea6d", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/002c57f9-d774-48a3-bb1e-b611f83aea6d", "rel": "bookmark"}], "name": "cpu1-ram2-disk40"}, {"description": null, "id": "04554b91-81c6-4e6d-8bb8-783df2708827", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/04554b91-81c6-4e6d-8bb8-783df2708827", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/04554b91-81c6-4e6d-8bb8-783df2708827", "rel": "bookmark"}], "name": "jenkaas-slave-cpu8-ram8-disk100"}, {"description": null, "id": "089f6750-63bc-4dad-af77-4ab3b8921934", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/089f6750-63bc-4dad-af77-4ab3b8921934", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/089f6750-63bc-4dad-af77-4ab3b8921934", "rel": "bookmark"}], "name": "cpu1-ram4-disk50"}, {"description": null, "id": "0e3085e5-15a2-4759-8e55-7b541a9a2381", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/0e3085e5-15a2-4759-8e55-7b541a9a2381", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/0e3085e5-15a2-4759-8e55-7b541a9a2381", "rel": "bookmark"}], "name": "cpu1-ram8-disk40"}, {"description": null, "id": "130eef4f-dff8-408e-90d9-1f9584ce7b62", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/130eef4f-dff8-408e-90d9-1f9584ce7b62", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/130eef4f-dff8-408e-90d9-1f9584ce7b62", "rel": "bookmark"}], "name": "cpu2-ram4-disk20"}, {"description": null, "id": "16d72da2-2f39-4840-9f3a-719a69e913f9", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/16d72da2-2f39-4840-9f3a-719a69e913f9", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/16d72da2-2f39-4840-9f3a-719a69e913f9", "rel": "bookmark"}], "name": "cpu4-ram8-disk40"}, {"description": null, "id": "1a411090-1d77-4411-aae0-095cb176d49e", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/1a411090-1d77-4411-aae0-095cb176d49e", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/1a411090-1d77-4411-aae0-095cb176d49e", "rel": "bookmark"}], "name": "cpu1-ram2-disk20"}, {"description": null, "id": "1a55bacf-b2b2-4237-98dd-39bf4717c325", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/1a55bacf-b2b2-4237-98dd-39bf4717c325", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/1a55bacf-b2b2-4237-98dd-39bf4717c325", "rel": "bookmark"}], "name": "cpu2-ram4-disk30"}, {"description": null, "id": "1d703b3a-15dd-4c90-8214-56d8705d8178", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/1d703b3a-15dd-4c90-8214-56d8705d8178", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/1d703b3a-15dd-4c90-8214-56d8705d8178", "rel": "bookmark"}], "name": "cpu2-ram2-disk30"}, {"description": null, "id": "2", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/2", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/2", "rel": "bookmark"}], "name": "m1.small"}, {"description": null, "id": "21ab595c-d776-474f-89d0-0fbc97a64411", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/21ab595c-d776-474f-89d0-0fbc97a64411", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/21ab595c-d776-474f-89d0-0fbc97a64411", "rel": "bookmark"}], "name": "m1.xlarge"}, {"description": null, "id": "2a9440b6-a5fc-4456-bb03-27fc45d501b6", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/2a9440b6-a5fc-4456-bb03-27fc45d501b6", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/2a9440b6-a5fc-4456-bb03-27fc45d501b6", "rel": "bookmark"}], "name": "jenkaas-slave-cpu4-ram8-disk200"}, {"description": null, "id": "2ad80982-781e-4347-88b9-d957badfe9c0", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/2ad80982-781e-4347-88b9-d957badfe9c0", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/2ad80982-781e-4347-88b9-d957badfe9c0", "rel": "bookmark"}], "name": "cpu8-ram8-disk250"}, {"description": null, "id": "3046e1a0-5812-46aa-ad13-c3d729e32214", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/3046e1a0-5812-46aa-ad13-c3d729e32214", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/3046e1a0-5812-46aa-ad13-c3d729e32214", "rel": "bookmark"}], "name": "cpu4-ram4-disk40"}, {"description": null, "id": "35a35be4-7b7e-4a95-b6fa-6b9d9bed0a9c", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/35a35be4-7b7e-4a95-b6fa-6b9d9bed0a9c", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/35a35be4-7b7e-4a95-b6fa-6b9d9bed0a9c", "rel": "bookmark"}], "name": "cpu4-ram8-disk50"}, {"description": null, "id": "431bc453-290d-4770-ae43-1ad2fb3ba2d0", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/431bc453-290d-4770-ae43-1ad2fb3ba2d0", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/431bc453-290d-4770-ae43-1ad2fb3ba2d0", "rel": "bookmark"}], "name": "cpu4-ram16-disk50"}, {"description": null, "id": "444bef12-ddc6-426f-a2a6-b24c48682da4", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/444bef12-ddc6-426f-a2a6-b24c48682da4", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/444bef12-ddc6-426f-a2a6-b24c48682da4", "rel": "bookmark"}], "name": "cpu24-ram96-disk1200"}, {"description": null, "id": "4aba4bcb-8fc1-4ad0-86ed-f4fb1cbf016a", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/4aba4bcb-8fc1-4ad0-86ed-f4fb1cbf016a", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/4aba4bcb-8fc1-4ad0-86ed-f4fb1cbf016a", "rel": "bookmark"}], "name": "cpu3-ram8-disk40"}, {"description": null, "id": "508cb260-28af-489b-9fff-22bc13eef0ff", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/508cb260-28af-489b-9fff-22bc13eef0ff", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/508cb260-28af-489b-9fff-22bc13eef0ff", "rel": "bookmark"}], "name": "cpu1-ram4-disk20"}, {"description": null, "id": "54d69f5d-bdbd-467d-b3b3-55b012a7c780", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/54d69f5d-bdbd-467d-b3b3-55b012a7c780", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/54d69f5d-bdbd-467d-b3b3-55b012a7c780", "rel": "bookmark"}], "name": "cpu3-ram8-disk50"}, {"description": null, "id": "58760ced-fb15-4513-8478-ff6a6ce9c26c", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/58760ced-fb15-4513-8478-ff6a6ce9c26c", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/58760ced-fb15-4513-8478-ff6a6ce9c26c", "rel": "bookmark"}], "name": "cpu2-ram2-disk20"}, {"description": null, "id": "5e22e8ff-634a-403a-b605-8c96b43aad9e", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/5e22e8ff-634a-403a-b605-8c96b43aad9e", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/5e22e8ff-634a-403a-b605-8c96b43aad9e", "rel": "bookmark"}], "name": "cpu2-ram2-disk40"}, {"description": null, "id": "63478477-49a0-453f-8aca-5c8e99f66fbd", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/63478477-49a0-453f-8aca-5c8e99f66fbd", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/63478477-49a0-453f-8aca-5c8e99f66fbd", "rel": "bookmark"}], "name": "cpu4-ram2-disk30"}, {"description": null, "id": "63b1c33a-d1bc-48dc-81f5-11b141b50a8e", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/63b1c33a-d1bc-48dc-81f5-11b141b50a8e", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/63b1c33a-d1bc-48dc-81f5-11b141b50a8e", "rel": "bookmark"}], "name": "cpu1-ram4-disk30"}, {"description": null, "id": "64058615-c59f-44f8-8d6d-25984a4b2af1", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/64058615-c59f-44f8-8d6d-25984a4b2af1", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/64058615-c59f-44f8-8d6d-25984a4b2af1", "rel": "bookmark"}], "name": "cpu3-ram2-disk50"}, {"description": null, "id": "65edec3a-9aef-4f32-9689-e1ae4e9b04e0", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/65edec3a-9aef-4f32-9689-e1ae4e9b04e0", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/65edec3a-9aef-4f32-9689-e1ae4e9b04e0", "rel": "bookmark"}], "name": "cpu3-ram4-disk30"}, {"description": null, "id": "669b13e4-093e-40b0-9452-85d49bbefa14", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/669b13e4-093e-40b0-9452-85d49bbefa14", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/669b13e4-093e-40b0-9452-85d49bbefa14", "rel": "bookmark"}], "name": "cpu4-ram2-disk40"}, {"description": null, "id": "69e2fec2-2b55-4cca-bae8-42ed8b8201d7", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/69e2fec2-2b55-4cca-bae8-42ed8b8201d7", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/69e2fec2-2b55-4cca-bae8-42ed8b8201d7", "rel": "bookmark"}], "name": "m1.tiny"}, {"description": null, "id": "69ea33ec-947c-43b1-bd31-b16ed0347a8e", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/69ea33ec-947c-43b1-bd31-b16ed0347a8e", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/69ea33ec-947c-43b1-bd31-b16ed0347a8e", "rel": "bookmark"}], "name": "cpu2-ram2-disk50"}, {"description": null, "id": "6bf8000d-461d-42b0-8b5a-6dd328ab5cf1", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/6bf8000d-461d-42b0-8b5a-6dd328ab5cf1", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/6bf8000d-461d-42b0-8b5a-6dd328ab5cf1", "rel": "bookmark"}], "name": "cpu2-ram8-disk30"}, {"description": null, "id": "6c4f17fe-d4a3-4dfb-b2aa-bf15f3d1b0a8", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/6c4f17fe-d4a3-4dfb-b2aa-bf15f3d1b0a8", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/6c4f17fe-d4a3-4dfb-b2aa-bf15f3d1b0a8", "rel": "bookmark"}], "name": "cpu3-ram2-disk40"}, {"description": null, "id": "6c837b14-251c-4a01-a2cc-88a854daf79e", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/6c837b14-251c-4a01-a2cc-88a854daf79e", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/6c837b14-251c-4a01-a2cc-88a854daf79e", "rel": "bookmark"}], "name": "cpu4-ram8-disk20"}, {"description": null, "id": "7107a19b-15b9-4feb-81d2-0dcad7ef41de", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/7107a19b-15b9-4feb-81d2-0dcad7ef41de", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/7107a19b-15b9-4feb-81d2-0dcad7ef41de", "rel": "bookmark"}], "name": "cpu1-ram8-disk30"}, {"description": null, "id": "732fe763-bef9-483b-97b5-fa39f0be6414", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/732fe763-bef9-483b-97b5-fa39f0be6414", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/732fe763-bef9-483b-97b5-fa39f0be6414", "rel": "bookmark"}], "name": "jenkaas-slave-cpu4-ram8-disk50"}, {"description": null, "id": "74e5591b-76dc-42d0-b5cc-a818f47a3d15", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/74e5591b-76dc-42d0-b5cc-a818f47a3d15", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/74e5591b-76dc-42d0-b5cc-a818f47a3d15", "rel": "bookmark"}], "name": "vbuilder"}, {"description": null, "id": "7bbbcad2-5340-4882-95cb-5c5fe0006d27", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/7bbbcad2-5340-4882-95cb-5c5fe0006d27", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/7bbbcad2-5340-4882-95cb-5c5fe0006d27", "rel": "bookmark"}], "name": "m1.large"}, {"description": null, "id": "7d15359d-58b4-43c5-8afe-ea7b5c68cd79", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/7d15359d-58b4-43c5-8afe-ea7b5c68cd79", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/7d15359d-58b4-43c5-8afe-ea7b5c68cd79", "rel": "bookmark"}], "name": "cpu24-ram24-disk1000"}, {"description": null, "id": "7d452a92-dfed-448e-a10f-00718c6d53b0", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/7d452a92-dfed-448e-a10f-00718c6d53b0", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/7d452a92-dfed-448e-a10f-00718c6d53b0", "rel": "bookmark"}], "name": "m1.medium"}, {"description": null, "id": "7f0397e0-6463-482b-ab10-f427ea20791a", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/7f0397e0-6463-482b-ab10-f427ea20791a", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/7f0397e0-6463-482b-ab10-f427ea20791a", "rel": "bookmark"}], "name": "cpu8-ram8-disk100"}, {"description": null, "id": "80053340-f38b-4c04-af0a-578177620ba1", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/80053340-f38b-4c04-af0a-578177620ba1", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/80053340-f38b-4c04-af0a-578177620ba1", "rel": "bookmark"}], "name": "cpu3-ram2-disk20"}, {"description": null, "id": "832a5940-a3fc-4f4b-80ac-ce89bb70e523", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/832a5940-a3fc-4f4b-80ac-ce89bb70e523", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/832a5940-a3fc-4f4b-80ac-ce89bb70e523", "rel": "bookmark"}], "name": "jenkaas-slave-cpu2-ram8-disk50"}, {"description": null, "id": "84982947-c7ca-4c59-91db-747bc1cb9d0c", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/84982947-c7ca-4c59-91db-747bc1cb9d0c", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/84982947-c7ca-4c59-91db-747bc1cb9d0c", "rel": "bookmark"}], "name": "cpu3-ram8-disk20"}, {"description": null, "id": "8802164b-4669-4c77-9718-6ea05ebda067", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/8802164b-4669-4c77-9718-6ea05ebda067", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/8802164b-4669-4c77-9718-6ea05ebda067", "rel": "bookmark"}], "name": "cpu2-ram4-disk40"}, {"description": null, "id": "8f7c0130-365e-4834-940d-6fe2211727ad", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/8f7c0130-365e-4834-940d-6fe2211727ad", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/8f7c0130-365e-4834-940d-6fe2211727ad", "rel": "bookmark"}], "name": "cpu3-ram4-disk40"}, {"description": null, "id": "95403030-87b4-4d0a-906e-56d86482ea9e", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/95403030-87b4-4d0a-906e-56d86482ea9e", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/95403030-87b4-4d0a-906e-56d86482ea9e", "rel": "bookmark"}], "name": "vbuilder-gpu"}, {"description": null, "id": "96ef6696-b5d1-41ac-aa5c-abadbf1ac723", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/96ef6696-b5d1-41ac-aa5c-abadbf1ac723", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/96ef6696-b5d1-41ac-aa5c-abadbf1ac723", "rel": "bookmark"}], "name": "cpu4-ram2-disk20"}, {"description": null, "id": "a4d4a34d-d18b-44d3-a48f-ee37f54a91e4", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/a4d4a34d-d18b-44d3-a48f-ee37f54a91e4", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/a4d4a34d-d18b-44d3-a48f-ee37f54a91e4", "rel": "bookmark"}], "name": "vbuilder-nvidia-l4"}, {"description": null, "id": "b564f978-0cb3-478b-a221-c4fb068ac82a", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/b564f978-0cb3-478b-a221-c4fb068ac82a", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/b564f978-0cb3-478b-a221-c4fb068ac82a", "rel": "bookmark"}], "name": "cpu1-ram4-disk40"}, {"description": null, "id": "b635f2c9-0e51-43d8-8684-f928789a70c2", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/b635f2c9-0e51-43d8-8684-f928789a70c2", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/b635f2c9-0e51-43d8-8684-f928789a70c2", "rel": "bookmark"}], "name": "cpu1-ram8-disk50"}, {"description": null, "id": "b63650b4-b80b-4cc3-bf35-e482f1f034ab", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/b63650b4-b80b-4cc3-bf35-e482f1f034ab", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/b63650b4-b80b-4cc3-bf35-e482f1f034ab", "rel": "bookmark"}], "name": "cpu1-ram2-disk30"}, {"description": null, "id": "b6cc2a18-fb5d-47ca-82a3-4d33316f6256", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/b6cc2a18-fb5d-47ca-82a3-4d33316f6256", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/b6cc2a18-fb5d-47ca-82a3-4d33316f6256", "rel": "bookmark"}], "name": "cpu2-ram4-disk50"}, {"description": null, "id": "bd265603-fca7-49c7-9e70-649ef5cca864", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/bd265603-fca7-49c7-9e70-649ef5cca864", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/bd265603-fca7-49c7-9e70-649ef5cca864", "rel": "bookmark"}], "name": "cpu4-ram8-disk30"}, {"description": null, "id": "bde04686-0dd3-46ab-b755-b1b147c5becf", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/bde04686-0dd3-46ab-b755-b1b147c5becf", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/bde04686-0dd3-46ab-b755-b1b147c5becf", "rel": "bookmark"}], "name": "cpu3-ram8-disk30"}, {"description": null, "id": "c985393d-0b31-4c82-9a63-e977805ad49a", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/c985393d-0b31-4c82-9a63-e977805ad49a", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/c985393d-0b31-4c82-9a63-e977805ad49a", "rel": "bookmark"}], "name": "lxd-image-build"}, {"description": null, "id": "d0ad5623-5421-4f6e-b3b4-2e2c654a5342", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/d0ad5623-5421-4f6e-b3b4-2e2c654a5342", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/d0ad5623-5421-4f6e-b3b4-2e2c654a5342", "rel": "bookmark"}], "name": "cpu1-ram8-disk20"}, {"description": null, "id": "d6a2e3e7-316c-457e-9a1d-fa6a41fbbbea", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/d6a2e3e7-316c-457e-9a1d-fa6a41fbbbea", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/d6a2e3e7-316c-457e-9a1d-fa6a41fbbbea", "rel": "bookmark"}], "name": "cpu2-ram8-disk50"}, {"description": null, "id": "d93384c5-a6e8-4282-a97d-485f7df3102d", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/d93384c5-a6e8-4282-a97d-485f7df3102d", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/d93384c5-a6e8-4282-a97d-485f7df3102d", "rel": "bookmark"}], "name": "cpu3-ram2-disk30"}, {"description": null, "id": "d954ff2f-cd12-4fb8-8c72-89780288650a", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/d954ff2f-cd12-4fb8-8c72-89780288650a", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/d954ff2f-cd12-4fb8-8c72-89780288650a", "rel": "bookmark"}], "name": "cpu24-ram24-disk600"}, {"description": null, "id": "dba12101-85ff-45a0-932a-7b21c12297f7", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/dba12101-85ff-45a0-932a-7b21c12297f7", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/dba12101-85ff-45a0-932a-7b21c12297f7", "rel": "bookmark"}], "name": "cpu4-ram4-disk30"}, {"description": null, "id": "dbf8e4ab-78c7-4477-8b31-4b75b9042712", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/dbf8e4ab-78c7-4477-8b31-4b75b9042712", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/dbf8e4ab-78c7-4477-8b31-4b75b9042712", "rel": "bookmark"}], "name": "cpu3-ram4-disk20"}, {"description": null, "id": "de5a0357-0395-401d-b4ac-c91fdf30a694", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/de5a0357-0395-401d-b4ac-c91fdf30a694", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/de5a0357-0395-401d-b4ac-c91fdf30a694", "rel": "bookmark"}], "name": "cpu4-ram2-disk50"}, {"description": null, "id": "e2e946d7-1076-4753-be7b-594658f97519", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/e2e946d7-1076-4753-be7b-594658f97519", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/e2e946d7-1076-4753-be7b-594658f97519", "rel": "bookmark"}], "name": "cpu4-ram4-disk50"}, {"description": null, "id": "e3777021-2a08-4248-b197-329f6af0fcc7", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/e3777021-2a08-4248-b197-329f6af0fcc7", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/e3777021-2a08-4248-b197-329f6af0fcc7", "rel": "bookmark"}], "name": "cpu3-ram4-disk50"}, {"description": null, "id": "e5c55daf-52fb-438f-8709-c7f9161d5912", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/e5c55daf-52fb-438f-8709-c7f9161d5912", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/e5c55daf-52fb-438f-8709-c7f9161d5912", "rel": "bookmark"}], "name": "cpu1-ram2-disk50"}, {"description": null, "id": "ec3f0e69-0c83-445d-9140-a5f534714022", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/ec3f0e69-0c83-445d-9140-a5f534714022", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/ec3f0e69-0c83-445d-9140-a5f534714022", "rel": "bookmark"}], "name": "cpu4-ram4-disk20"}, {"description": null, "id": "f8f06b66-a3b6-4204-9614-88e232e77d88", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/f8f06b66-a3b6-4204-9614-88e232e77d88", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/f8f06b66-a3b6-4204-9614-88e232e77d88", "rel": "bookmark"}], "name": "cpu2-ram8-disk20"}, {"description": null, "id": "f9fab3c1-a7d2-4c4e-b989-39b268424acb", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/f9fab3c1-a7d2-4c4e-b989-39b268424acb", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/f9fab3c1-a7d2-4c4e-b989-39b268424acb", "rel": "bookmark"}], "name": "autopkgtest"}, {"description": null, "id": "fbcde9d0-b04b-46f4-b8fc-4e6c679ab8f0", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/fbcde9d0-b04b-46f4-b8fc-4e6c679ab8f0", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/fbcde9d0-b04b-46f4-b8fc-4e6c679ab8f0", "rel": "bookmark"}], "name": "cpu2-ram8-disk40"}, {"description": null, "id": "fd66f287-b501-4b8d-ac68-bdb3c3fd3308", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/fd66f287-b501-4b8d-ac68-bdb3c3fd3308", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/fd66f287-b501-4b8d-ac68-bdb3c3fd3308", "rel": "bookmark"}], "name": "autopkgtest-big"}]} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors?is_public=None used request id req-4ca75c1f-718b-444b-96fb-b7bebb4a6a22 1336s DEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/f9fab3c1-a7d2-4c4e-b989-39b268424acb -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/flavors/f9fab3c1-a7d2-4c4e-b989-39b268424acb HTTP/1.1" 200 532 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 532 Content-Type: application/json Date: Thu, 28 Mar 2024 00:27:39 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-af2304d7-89ae-4900-870e-c07dac1cae6b X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-af2304d7-89ae-4900-870e-c07dac1cae6b 1336s DEBUG (session:580) RESP BODY: {"flavor": {"name": "autopkgtest", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/f9fab3c1-a7d2-4c4e-b989-39b268424acb", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/flavors/f9fab3c1-a7d2-4c4e-b989-39b268424acb", "rel": "bookmark"}], "ram": 1536, "OS-FLV-DISABLED:disabled": false, "vcpus": 1, "swap": "", "os-flavor-access:is_public": true, "rxtx_factor": 1.0, "OS-FLV-EXT-DATA:ephemeral": 0, "disk": 20, "id": "f9fab3c1-a7d2-4c4e-b989-39b268424acb", "description": null}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/flavors/f9fab3c1-a7d2-4c4e-b989-39b268424acb used request id req-af2304d7-89ae-4900-870e-c07dac1cae6b 1336s DEBUG (session:517) REQ: curl -g -i -X POST http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers -H "Accept: application/json" -H "Content-Type: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" -d '{"server": {"name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "imageRef": "2274866b-dd05-444a-bb80-9d56992242ed", "flavorRef": "f9fab3c1-a7d2-4c4e-b989-39b268424acb", "user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "min_count": 1, "max_count": 1, "security_groups": [{"name": "autopkgtest-juju-7f2275-prod-proposed-migration-environment-3@bos01-s390x-19.secgroup"}], "networks": [{"uuid": "0f3f546a-b3dd-49c1-bcc5-a4e894d3ceac"}]}}' 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "POST /v2.1/servers HTTP/1.1" 202 496 1336s DEBUG (session:548) RESP: [202] Connection: keep-alive Content-Length: 496 Content-Type: application/json Date: Thu, 28 Mar 2024 00:27:47 GMT Location: http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-c71f0a57-cfde-4431-808f-74bf53ed138c X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-c71f0a57-cfde-4431-808f-74bf53ed138c 1336s DEBUG (session:580) RESP BODY: {"server": {"security_groups": [{"name": "autopkgtest-juju-7f2275-prod-proposed-migration-environment-3@bos01-s390x-19.secgroup"}], "OS-DCF:diskConfig": "MANUAL", "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "adminPass": "dYwn4Y6LW3ry"}} 1336s DEBUG (session:936) POST call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers used request id req-c71f0a57-cfde-4431-808f-74bf53ed138c 1336s DEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3036 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3036 Content-Type: application/json Date: Thu, 28 Mar 2024 00:27:47 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-deeb71ff-f7f3-49e3-8cda-53c07e8668f3 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-deeb71ff-f7f3-49e3-8cda-53c07e8668f3 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "scheduling", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "", "OS-EXT-SRV-ATTR:root_device_name": null, "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:27:47Z", "hostId": "", "OS-EXT-SRV-ATTR:host": null, "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": null, "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-deeb71ff-f7f3-49e3-8cda-53c07e8668f3 1336s DEBUG (session:517) REQ: curl -g -i -X GET http://glance.infra.bos01.scalingstack:9292/v2/images/2274866b-dd05-444a-bb80-9d56992242ed -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://glance.infra.bos01.scalingstack:9292 "GET /v2/images/2274866b-dd05-444a-bb80-9d56992242ed HTTP/1.1" 200 1781 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 1781 Content-Type: application/json Date: Thu, 28 Mar 2024 00:27:47 GMT X-Openstack-Request-Id: req-e7d7dc7b-5a0d-4cec-a48f-be457890596b 1336s DEBUG (session:580) RESP BODY: {"image_state": "available", "container_format": "bare", "min_ram": 0, "updated_at": "2024-03-27T01:26:25Z", "hw_scsi_model": "virtio-scsi", "boot_roles": "_member_", "file": "/v2/images/2274866b-dd05-444a-bb80-9d56992242ed/file", "owner": "3f3b771a247746688951a4c90bf16631", "base_image_ref": "ae3c7648-2f35-40d3-9be5-cc7a60aa4f72", "simplestreams_metadata": "{\"aliases\": \"22.04,j,jammy\", \"arch\": \"s390x\", \"ftype\": \"disk1.img\", \"label\": \"daily\", \"md5\": \"aa9e26f2f82c680ea95be510d1c6af26\", \"os\": \"ubuntu\", \"pubname\": \"ubuntu-jammy-daily-s390x-server-20220712\", \"release\": \"jammy\", \"release_codename\": \"Jammy Jellyfis", "size": 1673986048, "os_distro": "ubuntu", "user_id": "3afbd64474684647986f8a196316be34", "image_type": "snapshot", "self": "/v2/images/2274866b-dd05-444a-bb80-9d56992242ed", "disk_format": "qcow2", "id": "2274866b-dd05-444a-bb80-9d56992242ed", "os_version": "22.04", "clean_attempts": "2", "owner_project_name": "prod-proposed-migration_project", "hw_disk_bus": "scsi", "schema": "/v2/schemas/image", "status": "active", "image_location": "snapshot", "tags": [], "owner_id": "3f3b771a247746688951a4c90bf16631", "visibility": "private", "owner_user_name": "prod-proposed-migration-s390x", "min_disk": 20, "version_name": "20220712", "virtual_size": null, "hw_architecture": "s390x", "source_content_id": "com.ubuntu.cloud:daily:download", "instance_uuid": "991a8d94-f851-48ab-9f4a-25f464edf379", "name": "adt/ubuntu-noble-s390x-server-20240327.img", "hypervisor_type": "qemu", "created_at": "2024-03-27T01:21:45Z", "product_name": "com.ubuntu.cloud.daily:server:22.04:s390x", "item_name": "disk1.img", "protected": false, "architecture": "s390x", "checksum": "2017de7fe2507883b95d40d98c49ef1f", "content_id": "auto.sync.s390x"} 1336s DEBUG (session:936) GET call to image for http://glance.infra.bos01.scalingstack:9292/v2/images/2274866b-dd05-444a-bb80-9d56992242ed used request id req-e7d7dc7b-5a0d-4cec-a48f-be457890596b 1336s +--------------------------------------+--------------------------------------------------------------------------------------------------------------------------------------------+ 1336s | Property | Value | 1336s +--------------------------------------+--------------------------------------------------------------------------------------------------------------------------------------------+ 1336s | OS-DCF:diskConfig | MANUAL | 1336s | OS-EXT-AZ:availability_zone | | 1336s | OS-EXT-SRV-ATTR:host | - | 1336s | OS-EXT-SRV-ATTR:hostname | adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275 | 1336s | OS-EXT-SRV-ATTR:hypervisor_hostname | - | 1336s | OS-EXT-SRV-ATTR:instance_name | | 1336s | OS-EXT-SRV-ATTR:kernel_id | | 1336s | OS-EXT-SRV-ATTR:launch_index | 0 | 1336s | OS-EXT-SRV-ATTR:ramdisk_id | | 1336s | OS-EXT-SRV-ATTR:reservation_id | r-iqdhwxtp | 1336s | OS-EXT-SRV-ATTR:root_device_name | - | 1336s | OS-EXT-STS:power_state | 0 | 1336s | OS-EXT-STS:task_state | scheduling | 1336s | OS-EXT-STS:vm_state | building | 1336s | OS-SRV-USG:launched_at | - | 1336s | OS-SRV-USG:terminated_at | - | 1336s | accessIPv4 | | 1336s | accessIPv6 | | 1336s | adminPass | dYwn4Y6LW3ry | 1336s | config_drive | | 1336s | created | 2024-03-28T00:27:41Z | 1336s | description | - | 1336s | flavor:disk | 20 | 1336s | flavor:ephemeral | 0 | 1336s | flavor:extra_specs | {"hw_rng:allowed": "True"} | 1336s | flavor:original_name | autopkgtest | 1336s | flavor:ram | 1536 | 1336s | flavor:swap | 0 | 1336s | flavor:vcpus | 1 | 1336s | hostId | | 1336s | id | 2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 | 1336s | image | adt/ubuntu-noble-s390x-server-20240327.img (2274866b-dd05-444a-bb80-9d56992242ed) | 1336s | key_name | testbed-juju-7f2275-prod-proposed-migration-environment-3 | 1336s | locked | False | 1336s | metadata | {} | 1336s | name | adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7 | 1336s | os-extended-volumes:volumes_attached | [] | 1336s | progress | 0 | 1336s | security_groups | autopkgtest-juju-7f2275-prod-proposed-migration-environment-3@bos01-s390x-19.secgroup | 1336s | status | BUILD | 1336s | tags | [] | 1336s | tenant_id | 3f3b771a247746688951a4c90bf16631 | 1336s | updated | 2024-03-28T00:27:47Z | 1336s | user_id | 3afbd64474684647986f8a196316be34 | 1336s +--------------------------------------+--------------------------------------------------------------------------------------------------------------------------------------------+DEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3036 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3036 Content-Type: application/json Date: Thu, 28 Mar 2024 00:27:48 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-ea4bc893-4f07-4aed-a938-4e37bc2350bc X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-ea4bc893-4f07-4aed-a938-4e37bc2350bc 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "scheduling", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "", "OS-EXT-SRV-ATTR:root_device_name": null, "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:27:48Z", "hostId": "", "OS-EXT-SRV-ATTR:host": null, "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": null, "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-ea4bc893-4f07-4aed-a938-4e37bc2350bc 1336s 1336s 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3036 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3036 Content-Type: application/json Date: Thu, 28 Mar 2024 00:27:53 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-61a47fd1-af24-4e2c-94d8-9271557ef44e X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-61a47fd1-af24-4e2c-94d8-9271557ef44e 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "scheduling", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "", "OS-EXT-SRV-ATTR:root_device_name": null, "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:27:53Z", "hostId": "", "OS-EXT-SRV-ATTR:host": null, "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": null, "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-61a47fd1-af24-4e2c-94d8-9271557ef44e 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3036 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3036 Content-Type: application/json Date: Thu, 28 Mar 2024 00:27:58 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-12f7fbf8-d992-4bb7-9ec0-d482275e4d1d X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-12f7fbf8-d992-4bb7-9ec0-d482275e4d1d 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "scheduling", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "", "OS-EXT-SRV-ATTR:root_device_name": null, "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:27:58Z", "hostId": "", "OS-EXT-SRV-ATTR:host": null, "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": null, "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-12f7fbf8-d992-4bb7-9ec0-d482275e4d1d 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3036 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3036 Content-Type: application/json Date: Thu, 28 Mar 2024 00:28:04 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-73df5a5f-2db1-4cca-886d-d6d9c878af70 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-73df5a5f-2db1-4cca-886d-d6d9c878af70 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "scheduling", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "", "OS-EXT-SRV-ATTR:root_device_name": null, "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:28:04Z", "hostId": "", "OS-EXT-SRV-ATTR:host": null, "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": null, "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-73df5a5f-2db1-4cca-886d-d6d9c878af70 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3036 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3036 Content-Type: application/json Date: Thu, 28 Mar 2024 00:28:09 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-a219a529-8165-4729-84d9-1baf5ead6c14 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-a219a529-8165-4729-84d9-1baf5ead6c14 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "scheduling", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "", "OS-EXT-SRV-ATTR:root_device_name": null, "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:28:09Z", "hostId": "", "OS-EXT-SRV-ATTR:host": null, "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": null, "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-a219a529-8165-4729-84d9-1baf5ead6c14 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3057 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3057 Content-Type: application/json Date: Thu, 28 Mar 2024 00:28:14 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-aeb3edfb-bda6-4907-8415-c70aa4acfc8b X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-aeb3edfb-bda6-4907-8415-c70aa4acfc8b 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "scheduling", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": null, "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:28:14Z", "hostId": "", "OS-EXT-SRV-ATTR:host": null, "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": null, "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-aeb3edfb-bda6-4907-8415-c70aa4acfc8b 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3057 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3057 Content-Type: application/json Date: Thu, 28 Mar 2024 00:28:20 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-f9b25d3f-7627-4cdc-a86d-b8788919ce96 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-f9b25d3f-7627-4cdc-a86d-b8788919ce96 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "scheduling", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": null, "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:28:20Z", "hostId": "", "OS-EXT-SRV-ATTR:host": null, "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": null, "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-f9b25d3f-7627-4cdc-a86d-b8788919ce96 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3057 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3057 Content-Type: application/json Date: Thu, 28 Mar 2024 00:28:25 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-fd6e3254-4cb5-47a1-bce0-f9c854c69838 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-fd6e3254-4cb5-47a1-bce0-f9c854c69838 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "scheduling", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": null, "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:28:25Z", "hostId": "", "OS-EXT-SRV-ATTR:host": null, "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": null, "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-fd6e3254-4cb5-47a1-bce0-f9c854c69838 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3057 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3057 Content-Type: application/json Date: Thu, 28 Mar 2024 00:28:30 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-74715b4f-5812-495a-b957-e4f7770dcb5b X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-74715b4f-5812-495a-b957-e4f7770dcb5b 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "scheduling", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": null, "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:28:30Z", "hostId": "", "OS-EXT-SRV-ATTR:host": null, "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": null, "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-74715b4f-5812-495a-b957-e4f7770dcb5b 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3057 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3057 Content-Type: application/json Date: Thu, 28 Mar 2024 00:28:36 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-d1cc6fe2-4a22-4949-929b-fa1641c01532 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-d1cc6fe2-4a22-4949-929b-fa1641c01532 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "scheduling", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": null, "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:28:35Z", "hostId": "", "OS-EXT-SRV-ATTR:host": null, "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": null, "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-d1cc6fe2-4a22-4949-929b-fa1641c01532 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3049 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3049 Content-Type: application/json Date: Thu, 28 Mar 2024 00:28:41 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-129dbc54-d0e5-4235-9e12-8de0c3ab5f88 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-129dbc54-d0e5-4235-9e12-8de0c3ab5f88 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": null, "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": null, "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:28:34Z", "hostId": "", "OS-EXT-SRV-ATTR:host": null, "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": null, "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-129dbc54-d0e5-4235-9e12-8de0c3ab5f88 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3049 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3049 Content-Type: application/json Date: Thu, 28 Mar 2024 00:28:46 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-56923b7d-d6b0-4e6d-a444-687554fcf240 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-56923b7d-d6b0-4e6d-a444-687554fcf240 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": null, "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": null, "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:28:34Z", "hostId": "", "OS-EXT-SRV-ATTR:host": null, "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": null, "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-56923b7d-d6b0-4e6d-a444-687554fcf240 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3049 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3049 Content-Type: application/json Date: Thu, 28 Mar 2024 00:28:51 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-ead6e107-a02d-48a4-9908-2f2aa187fd22 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-ead6e107-a02d-48a4-9908-2f2aa187fd22 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": null, "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": null, "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:28:34Z", "hostId": "", "OS-EXT-SRV-ATTR:host": null, "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": null, "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-ead6e107-a02d-48a4-9908-2f2aa187fd22 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3136 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3136 Content-Type: application/json Date: Thu, 28 Mar 2024 00:28:57 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-2c8b47b8-d800-442e-a771-f6c6cfb62114 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-2c8b47b8-d800-442e-a771-f6c6cfb62114 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": null, "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": null, "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:28:46Z", "hostId": "b0dfbd7bc166b232be49114889521e3d2c6d357673f38385ac343141", "OS-EXT-SRV-ATTR:host": "s0lp1", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp1.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-2c8b47b8-d800-442e-a771-f6c6cfb62114 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3136 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3136 Content-Type: application/json Date: Thu, 28 Mar 2024 00:29:02 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-bdc6b7c5-754b-469a-8b6f-18fc1517feed X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-bdc6b7c5-754b-469a-8b6f-18fc1517feed 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": null, "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": null, "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:28:46Z", "hostId": "b0dfbd7bc166b232be49114889521e3d2c6d357673f38385ac343141", "OS-EXT-SRV-ATTR:host": "s0lp1", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp1.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-bdc6b7c5-754b-469a-8b6f-18fc1517feed 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3136 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3136 Content-Type: application/json Date: Thu, 28 Mar 2024 00:29:07 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-60a448d3-d69b-4c66-8407-b533d11a1ea4 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-60a448d3-d69b-4c66-8407-b533d11a1ea4 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": null, "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": null, "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:28:46Z", "hostId": "b0dfbd7bc166b232be49114889521e3d2c6d357673f38385ac343141", "OS-EXT-SRV-ATTR:host": "s0lp1", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp1.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-60a448d3-d69b-4c66-8407-b533d11a1ea4 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3136 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3136 Content-Type: application/json Date: Thu, 28 Mar 2024 00:29:13 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-739c92a3-f1cd-4120-878c-993e9da1ded6 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-739c92a3-f1cd-4120-878c-993e9da1ded6 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": null, "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": null, "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:28:46Z", "hostId": "b0dfbd7bc166b232be49114889521e3d2c6d357673f38385ac343141", "OS-EXT-SRV-ATTR:host": "s0lp1", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp1.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-739c92a3-f1cd-4120-878c-993e9da1ded6 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3136 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3136 Content-Type: application/json Date: Thu, 28 Mar 2024 00:29:18 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-6a7c483a-1ce5-49fc-aeb1-67a1a9e07392 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-6a7c483a-1ce5-49fc-aeb1-67a1a9e07392 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": null, "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": null, "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:28:46Z", "hostId": "b0dfbd7bc166b232be49114889521e3d2c6d357673f38385ac343141", "OS-EXT-SRV-ATTR:host": "s0lp1", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp1.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-6a7c483a-1ce5-49fc-aeb1-67a1a9e07392 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3136 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3136 Content-Type: application/json Date: Thu, 28 Mar 2024 00:29:23 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-b1aeedc4-7354-4a3f-a99e-733dd5b618da X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-b1aeedc4-7354-4a3f-a99e-733dd5b618da 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": null, "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": null, "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:28:46Z", "hostId": "b0dfbd7bc166b232be49114889521e3d2c6d357673f38385ac343141", "OS-EXT-SRV-ATTR:host": "s0lp1", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp1.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-b1aeedc4-7354-4a3f-a99e-733dd5b618da 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3144 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3144 Content-Type: application/json Date: Thu, 28 Mar 2024 00:29:28 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-90e406f0-720d-4016-bd76-4882e29e56a5 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-90e406f0-720d-4016-bd76-4882e29e56a5 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "networking", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": null, "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:29:17Z", "hostId": "b0dfbd7bc166b232be49114889521e3d2c6d357673f38385ac343141", "OS-EXT-SRV-ATTR:host": "s0lp1", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp1.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-90e406f0-720d-4016-bd76-4882e29e56a5 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3144 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3144 Content-Type: application/json Date: Thu, 28 Mar 2024 00:29:34 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-0a884ad9-2d1a-4632-b51a-315b512197e2 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-0a884ad9-2d1a-4632-b51a-315b512197e2 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "networking", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": null, "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:29:17Z", "hostId": "b0dfbd7bc166b232be49114889521e3d2c6d357673f38385ac343141", "OS-EXT-SRV-ATTR:host": "s0lp1", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp1.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-0a884ad9-2d1a-4632-b51a-315b512197e2 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3144 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3144 Content-Type: application/json Date: Thu, 28 Mar 2024 00:29:39 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-04e89e4b-75d0-4f44-9a7c-54eb57f403e2 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-04e89e4b-75d0-4f44-9a7c-54eb57f403e2 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "networking", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": null, "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:29:17Z", "hostId": "b0dfbd7bc166b232be49114889521e3d2c6d357673f38385ac343141", "OS-EXT-SRV-ATTR:host": "s0lp1", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp1.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-04e89e4b-75d0-4f44-9a7c-54eb57f403e2 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3160 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3160 Content-Type: application/json Date: Thu, 28 Mar 2024 00:29:44 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-be3588c6-926f-4349-a828-fe80b2226017 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-be3588c6-926f-4349-a828-fe80b2226017 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "block_device_mapping", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:29:37Z", "hostId": "b0dfbd7bc166b232be49114889521e3d2c6d357673f38385ac343141", "OS-EXT-SRV-ATTR:host": "s0lp1", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp1.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-be3588c6-926f-4349-a828-fe80b2226017 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3160 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3160 Content-Type: application/json Date: Thu, 28 Mar 2024 00:29:50 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-b3050dc4-8fff-4c2e-be68-b5a1fd4a0da5 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-b3050dc4-8fff-4c2e-be68-b5a1fd4a0da5 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "block_device_mapping", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:29:37Z", "hostId": "b0dfbd7bc166b232be49114889521e3d2c6d357673f38385ac343141", "OS-EXT-SRV-ATTR:host": "s0lp1", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp1.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-b3050dc4-8fff-4c2e-be68-b5a1fd4a0da5 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3148 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3148 Content-Type: application/json Date: Thu, 28 Mar 2024 00:29:55 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-28ff2858-6663-4f97-9998-882e455f9735 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-28ff2858-6663-4f97-9998-882e455f9735 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:29:48Z", "hostId": "b0dfbd7bc166b232be49114889521e3d2c6d357673f38385ac343141", "OS-EXT-SRV-ATTR:host": "s0lp1", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp1.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-28ff2858-6663-4f97-9998-882e455f9735 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3148 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3148 Content-Type: application/json Date: Thu, 28 Mar 2024 00:30:00 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-8a7164e2-5e36-464d-947a-ecea83394cf9 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-8a7164e2-5e36-464d-947a-ecea83394cf9 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:29:48Z", "hostId": "b0dfbd7bc166b232be49114889521e3d2c6d357673f38385ac343141", "OS-EXT-SRV-ATTR:host": "s0lp1", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp1.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-8a7164e2-5e36-464d-947a-ecea83394cf9 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3148 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3148 Content-Type: application/json Date: Thu, 28 Mar 2024 00:30:06 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-8e0e1ab1-7ab8-40bc-b506-323dca36e2c2 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-8e0e1ab1-7ab8-40bc-b506-323dca36e2c2 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:29:48Z", "hostId": "b0dfbd7bc166b232be49114889521e3d2c6d357673f38385ac343141", "OS-EXT-SRV-ATTR:host": "s0lp1", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp1.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-8e0e1ab1-7ab8-40bc-b506-323dca36e2c2 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3148 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3148 Content-Type: application/json Date: Thu, 28 Mar 2024 00:30:12 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-bc1ac136-5fce-4a16-a320-3f2cd42e7797 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-bc1ac136-5fce-4a16-a320-3f2cd42e7797 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:29:48Z", "hostId": "b0dfbd7bc166b232be49114889521e3d2c6d357673f38385ac343141", "OS-EXT-SRV-ATTR:host": "s0lp1", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp1.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-bc1ac136-5fce-4a16-a320-3f2cd42e7797 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3148 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3148 Content-Type: application/json Date: Thu, 28 Mar 2024 00:30:17 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-23fd6f06-7bae-4c13-8dbb-c1ac5c404cac X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-23fd6f06-7bae-4c13-8dbb-c1ac5c404cac 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:29:48Z", "hostId": "b0dfbd7bc166b232be49114889521e3d2c6d357673f38385ac343141", "OS-EXT-SRV-ATTR:host": "s0lp1", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp1.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-23fd6f06-7bae-4c13-8dbb-c1ac5c404cac 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3148 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3148 Content-Type: application/json Date: Thu, 28 Mar 2024 00:30:22 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-f9071a70-0796-4cd8-a36b-c258306ae915 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-f9071a70-0796-4cd8-a36b-c258306ae915 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:29:48Z", "hostId": "b0dfbd7bc166b232be49114889521e3d2c6d357673f38385ac343141", "OS-EXT-SRV-ATTR:host": "s0lp1", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp1.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-f9071a70-0796-4cd8-a36b-c258306ae915 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3148 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3148 Content-Type: application/json Date: Thu, 28 Mar 2024 00:30:28 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-bd588220-bd40-42a5-8aba-30c6381e9ca9 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-bd588220-bd40-42a5-8aba-30c6381e9ca9 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:29:48Z", "hostId": "b0dfbd7bc166b232be49114889521e3d2c6d357673f38385ac343141", "OS-EXT-SRV-ATTR:host": "s0lp1", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp1.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-bd588220-bd40-42a5-8aba-30c6381e9ca9 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3148 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3148 Content-Type: application/json Date: Thu, 28 Mar 2024 00:30:33 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-4e8a4933-b2bc-4541-985b-ddbdc2313125 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-4e8a4933-b2bc-4541-985b-ddbdc2313125 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:29:48Z", "hostId": "b0dfbd7bc166b232be49114889521e3d2c6d357673f38385ac343141", "OS-EXT-SRV-ATTR:host": "s0lp1", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp1.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-4e8a4933-b2bc-4541-985b-ddbdc2313125 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3148 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3148 Content-Type: application/json Date: Thu, 28 Mar 2024 00:30:38 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-b079feec-ed04-4d10-8da1-5d2fc63ea7a7 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-b079feec-ed04-4d10-8da1-5d2fc63ea7a7 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:29:48Z", "hostId": "b0dfbd7bc166b232be49114889521e3d2c6d357673f38385ac343141", "OS-EXT-SRV-ATTR:host": "s0lp1", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp1.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-b079feec-ed04-4d10-8da1-5d2fc63ea7a7 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3148 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3148 Content-Type: application/json Date: Thu, 28 Mar 2024 00:30:44 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-7f28745b-320f-4a9e-b99d-bf83d7080802 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-7f28745b-320f-4a9e-b99d-bf83d7080802 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:29:48Z", "hostId": "b0dfbd7bc166b232be49114889521e3d2c6d357673f38385ac343141", "OS-EXT-SRV-ATTR:host": "s0lp1", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp1.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-7f28745b-320f-4a9e-b99d-bf83d7080802 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3148 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3148 Content-Type: application/json Date: Thu, 28 Mar 2024 00:30:49 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-2f72824d-b155-4edf-a35b-cdd7e1ba4aa2 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-2f72824d-b155-4edf-a35b-cdd7e1ba4aa2 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:29:48Z", "hostId": "b0dfbd7bc166b232be49114889521e3d2c6d357673f38385ac343141", "OS-EXT-SRV-ATTR:host": "s0lp1", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp1.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-2f72824d-b155-4edf-a35b-cdd7e1ba4aa2 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3148 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3148 Content-Type: application/json Date: Thu, 28 Mar 2024 00:30:54 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-2f9155cb-58fa-4875-ae13-d2f07d6843a1 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-2f9155cb-58fa-4875-ae13-d2f07d6843a1 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:29:48Z", "hostId": "b0dfbd7bc166b232be49114889521e3d2c6d357673f38385ac343141", "OS-EXT-SRV-ATTR:host": "s0lp1", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp1.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-2f9155cb-58fa-4875-ae13-d2f07d6843a1 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3148 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3148 Content-Type: application/json Date: Thu, 28 Mar 2024 00:31:00 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-c0cdcb9f-65f4-4138-bc66-e38a55ffbbce X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-c0cdcb9f-65f4-4138-bc66-e38a55ffbbce 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:29:48Z", "hostId": "b0dfbd7bc166b232be49114889521e3d2c6d357673f38385ac343141", "OS-EXT-SRV-ATTR:host": "s0lp1", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp1.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-c0cdcb9f-65f4-4138-bc66-e38a55ffbbce 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3148 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3148 Content-Type: application/json Date: Thu, 28 Mar 2024 00:31:05 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-1ace6122-5cfa-4424-b833-1cd99e0d5bce X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-1ace6122-5cfa-4424-b833-1cd99e0d5bce 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:29:48Z", "hostId": "b0dfbd7bc166b232be49114889521e3d2c6d357673f38385ac343141", "OS-EXT-SRV-ATTR:host": "s0lp1", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp1.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-1ace6122-5cfa-4424-b833-1cd99e0d5bce 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3148 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3148 Content-Type: application/json Date: Thu, 28 Mar 2024 00:31:10 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-b9ee004d-b0bf-48c8-84be-ba5193c570b1 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-b9ee004d-b0bf-48c8-84be-ba5193c570b1 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:29:48Z", "hostId": "b0dfbd7bc166b232be49114889521e3d2c6d357673f38385ac343141", "OS-EXT-SRV-ATTR:host": "s0lp1", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp1.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-b9ee004d-b0bf-48c8-84be-ba5193c570b1 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3148 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3148 Content-Type: application/json Date: Thu, 28 Mar 2024 00:31:15 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-f0dfa533-281f-4e5a-998d-b0709e98b1eb X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-f0dfa533-281f-4e5a-998d-b0709e98b1eb 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:29:48Z", "hostId": "b0dfbd7bc166b232be49114889521e3d2c6d357673f38385ac343141", "OS-EXT-SRV-ATTR:host": "s0lp1", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp1.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-f0dfa533-281f-4e5a-998d-b0709e98b1eb 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3148 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3148 Content-Type: application/json Date: Thu, 28 Mar 2024 00:31:21 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-5d0aa2ec-2fa3-46ff-8a2f-e75e28de8aa7 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-5d0aa2ec-2fa3-46ff-8a2f-e75e28de8aa7 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:31:18Z", "hostId": "b0dfbd7bc166b232be49114889521e3d2c6d357673f38385ac343141", "OS-EXT-SRV-ATTR:host": "s0lp1", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp1.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-5d0aa2ec-2fa3-46ff-8a2f-e75e28de8aa7 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3148 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3148 Content-Type: application/json Date: Thu, 28 Mar 2024 00:31:26 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-82a190f6-1a6f-491f-aa9b-386c8d2d6bad X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-82a190f6-1a6f-491f-aa9b-386c8d2d6bad 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:31:18Z", "hostId": "b0dfbd7bc166b232be49114889521e3d2c6d357673f38385ac343141", "OS-EXT-SRV-ATTR:host": "s0lp1", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp1.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-82a190f6-1a6f-491f-aa9b-386c8d2d6bad 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3061 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3061 Content-Type: application/json Date: Thu, 28 Mar 2024 00:31:31 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-c87531ee-9d32-4dac-a0bd-d3d8ebd0e7a9 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-c87531ee-9d32-4dac-a0bd-d3d8ebd0e7a9 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:31:24Z", "hostId": "", "OS-EXT-SRV-ATTR:host": null, "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": null, "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-c87531ee-9d32-4dac-a0bd-d3d8ebd0e7a9 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3061 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3061 Content-Type: application/json Date: Thu, 28 Mar 2024 00:31:37 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-bb8c77f0-f3a6-41cc-8a3a-df81a1a62faa X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-bb8c77f0-f3a6-41cc-8a3a-df81a1a62faa 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:31:24Z", "hostId": "", "OS-EXT-SRV-ATTR:host": null, "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": null, "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-bb8c77f0-f3a6-41cc-8a3a-df81a1a62faa 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3061 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3061 Content-Type: application/json Date: Thu, 28 Mar 2024 00:31:42 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-44b8561b-f2d9-45d2-96bd-d6e3d03121c0 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-44b8561b-f2d9-45d2-96bd-d6e3d03121c0 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:31:34Z", "hostId": "", "OS-EXT-SRV-ATTR:host": null, "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": null, "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-44b8561b-f2d9-45d2-96bd-d6e3d03121c0 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3059 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3059 Content-Type: application/json Date: Thu, 28 Mar 2024 00:31:47 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-697cff06-e221-4db7-90a6-5bb7718f64a3 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-697cff06-e221-4db7-90a6-5bb7718f64a3 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "scheduling", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:31:40Z", "hostId": "", "OS-EXT-SRV-ATTR:host": null, "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": null, "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-697cff06-e221-4db7-90a6-5bb7718f64a3 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3059 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3059 Content-Type: application/json Date: Thu, 28 Mar 2024 00:31:53 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-30480552-b362-4fb0-8db7-87a8eccf5158 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-30480552-b362-4fb0-8db7-87a8eccf5158 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "scheduling", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:31:40Z", "hostId": "", "OS-EXT-SRV-ATTR:host": null, "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": null, "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-30480552-b362-4fb0-8db7-87a8eccf5158 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3059 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3059 Content-Type: application/json Date: Thu, 28 Mar 2024 00:31:58 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-a544528b-4463-4f17-a8a2-c2cb3f017634 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-a544528b-4463-4f17-a8a2-c2cb3f017634 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "scheduling", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:31:40Z", "hostId": "", "OS-EXT-SRV-ATTR:host": null, "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": null, "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-a544528b-4463-4f17-a8a2-c2cb3f017634 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3063 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3063 Content-Type: application/json Date: Thu, 28 Mar 2024 00:32:03 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-8b66a527-7255-46bb-8fd3-fb0d821b92ac X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-8b66a527-7255-46bb-8fd3-fb0d821b92ac 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "scheduling", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:31:58Z", "hostId": "", "OS-EXT-SRV-ATTR:host": null, "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": null, "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-8b66a527-7255-46bb-8fd3-fb0d821b92ac 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3055 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3055 Content-Type: application/json Date: Thu, 28 Mar 2024 00:32:09 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-5cb931f0-8e0c-4aff-b6d2-da71d7e30927 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-5cb931f0-8e0c-4aff-b6d2-da71d7e30927 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": null, "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:32:05Z", "hostId": "", "OS-EXT-SRV-ATTR:host": null, "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": null, "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-5cb931f0-8e0c-4aff-b6d2-da71d7e30927 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3142 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3142 Content-Type: application/json Date: Thu, 28 Mar 2024 00:32:14 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-b4ccd964-6f47-4d18-87ff-97976c019b38 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-b4ccd964-6f47-4d18-87ff-97976c019b38 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": null, "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:32:09Z", "hostId": "e525496fb25d8e33635ede21548625d5b587cdd5ccc87f39fa21d604", "OS-EXT-SRV-ATTR:host": "s0lp2", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp2.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-b4ccd964-6f47-4d18-87ff-97976c019b38 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3142 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3142 Content-Type: application/json Date: Thu, 28 Mar 2024 00:32:19 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-53496d51-d486-4bdb-a7cf-96778e5c457c X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-53496d51-d486-4bdb-a7cf-96778e5c457c 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": null, "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:32:09Z", "hostId": "e525496fb25d8e33635ede21548625d5b587cdd5ccc87f39fa21d604", "OS-EXT-SRV-ATTR:host": "s0lp2", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp2.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-53496d51-d486-4bdb-a7cf-96778e5c457c 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3142 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3142 Content-Type: application/json Date: Thu, 28 Mar 2024 00:32:25 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-9acf9f82-59e7-4d63-ace7-32f142a622d8 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-9acf9f82-59e7-4d63-ace7-32f142a622d8 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": null, "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:32:09Z", "hostId": "e525496fb25d8e33635ede21548625d5b587cdd5ccc87f39fa21d604", "OS-EXT-SRV-ATTR:host": "s0lp2", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp2.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-9acf9f82-59e7-4d63-ace7-32f142a622d8 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3150 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3150 Content-Type: application/json Date: Thu, 28 Mar 2024 00:32:30 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-88f03ff8-e1d3-4b12-8bed-eb213aca5c3c X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-88f03ff8-e1d3-4b12-8bed-eb213aca5c3c 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "networking", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:32:21Z", "hostId": "e525496fb25d8e33635ede21548625d5b587cdd5ccc87f39fa21d604", "OS-EXT-SRV-ATTR:host": "s0lp2", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp2.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-88f03ff8-e1d3-4b12-8bed-eb213aca5c3c 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3160 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3160 Content-Type: application/json Date: Thu, 28 Mar 2024 00:32:35 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-0251286c-3bcf-4d31-b4ee-41844aa9fd02 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-0251286c-3bcf-4d31-b4ee-41844aa9fd02 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "block_device_mapping", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:32:30Z", "hostId": "e525496fb25d8e33635ede21548625d5b587cdd5ccc87f39fa21d604", "OS-EXT-SRV-ATTR:host": "s0lp2", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp2.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-0251286c-3bcf-4d31-b4ee-41844aa9fd02 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3148 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3148 Content-Type: application/json Date: Thu, 28 Mar 2024 00:32:41 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-cc1ec960-0488-41de-be9e-a5adbd821026 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-cc1ec960-0488-41de-be9e-a5adbd821026 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:32:37Z", "hostId": "e525496fb25d8e33635ede21548625d5b587cdd5ccc87f39fa21d604", "OS-EXT-SRV-ATTR:host": "s0lp2", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp2.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-cc1ec960-0488-41de-be9e-a5adbd821026 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3148 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3148 Content-Type: application/json Date: Thu, 28 Mar 2024 00:32:46 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-ebd946bf-0c9e-4307-82ca-82125d97f118 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-ebd946bf-0c9e-4307-82ca-82125d97f118 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:32:37Z", "hostId": "e525496fb25d8e33635ede21548625d5b587cdd5ccc87f39fa21d604", "OS-EXT-SRV-ATTR:host": "s0lp2", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp2.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-ebd946bf-0c9e-4307-82ca-82125d97f118 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3148 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3148 Content-Type: application/json Date: Thu, 28 Mar 2024 00:32:51 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-cebac15b-0484-4834-8397-a630edb9916c X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-cebac15b-0484-4834-8397-a630edb9916c 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:32:37Z", "hostId": "e525496fb25d8e33635ede21548625d5b587cdd5ccc87f39fa21d604", "OS-EXT-SRV-ATTR:host": "s0lp2", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp2.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-cebac15b-0484-4834-8397-a630edb9916c 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3148 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3148 Content-Type: application/json Date: Thu, 28 Mar 2024 00:32:57 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-c4919517-8e3b-4006-9d1e-377d0779ec47 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-c4919517-8e3b-4006-9d1e-377d0779ec47 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:32:37Z", "hostId": "e525496fb25d8e33635ede21548625d5b587cdd5ccc87f39fa21d604", "OS-EXT-SRV-ATTR:host": "s0lp2", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp2.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-c4919517-8e3b-4006-9d1e-377d0779ec47 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3148 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3148 Content-Type: application/json Date: Thu, 28 Mar 2024 00:33:02 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-f3d34c9b-34cb-4a25-9754-fe44daf9aba0 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-f3d34c9b-34cb-4a25-9754-fe44daf9aba0 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:32:37Z", "hostId": "e525496fb25d8e33635ede21548625d5b587cdd5ccc87f39fa21d604", "OS-EXT-SRV-ATTR:host": "s0lp2", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp2.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-f3d34c9b-34cb-4a25-9754-fe44daf9aba0 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3148 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3148 Content-Type: application/json Date: Thu, 28 Mar 2024 00:33:07 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-3dfe26dc-f7e3-4f7f-95d3-e8b9973c457a X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-3dfe26dc-f7e3-4f7f-95d3-e8b9973c457a 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:32:37Z", "hostId": "e525496fb25d8e33635ede21548625d5b587cdd5ccc87f39fa21d604", "OS-EXT-SRV-ATTR:host": "s0lp2", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp2.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-3dfe26dc-f7e3-4f7f-95d3-e8b9973c457a 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3148 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3148 Content-Type: application/json Date: Thu, 28 Mar 2024 00:33:12 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-9336c580-97a9-41f6-b15b-65d670ffa3c0 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-9336c580-97a9-41f6-b15b-65d670ffa3c0 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:32:37Z", "hostId": "e525496fb25d8e33635ede21548625d5b587cdd5ccc87f39fa21d604", "OS-EXT-SRV-ATTR:host": "s0lp2", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp2.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-9336c580-97a9-41f6-b15b-65d670ffa3c0 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3148 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3148 Content-Type: application/json Date: Thu, 28 Mar 2024 00:33:18 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-62d189bb-1302-4e08-84eb-3bf1942668ab X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-62d189bb-1302-4e08-84eb-3bf1942668ab 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:32:37Z", "hostId": "e525496fb25d8e33635ede21548625d5b587cdd5ccc87f39fa21d604", "OS-EXT-SRV-ATTR:host": "s0lp2", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp2.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-62d189bb-1302-4e08-84eb-3bf1942668ab 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3148 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3148 Content-Type: application/json Date: Thu, 28 Mar 2024 00:33:23 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-6ac0c080-f1c5-4b4f-941f-0dd4fb5aa1a9 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-6ac0c080-f1c5-4b4f-941f-0dd4fb5aa1a9 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:32:37Z", "hostId": "e525496fb25d8e33635ede21548625d5b587cdd5ccc87f39fa21d604", "OS-EXT-SRV-ATTR:host": "s0lp2", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp2.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-6ac0c080-f1c5-4b4f-941f-0dd4fb5aa1a9 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3148 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3148 Content-Type: application/json Date: Thu, 28 Mar 2024 00:33:28 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-836a78e3-47b7-4691-a83a-2a7836abc2a7 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-836a78e3-47b7-4691-a83a-2a7836abc2a7 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:32:37Z", "hostId": "e525496fb25d8e33635ede21548625d5b587cdd5ccc87f39fa21d604", "OS-EXT-SRV-ATTR:host": "s0lp2", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp2.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-836a78e3-47b7-4691-a83a-2a7836abc2a7 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3148 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3148 Content-Type: application/json Date: Thu, 28 Mar 2024 00:33:34 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-95657e0a-7a42-457a-bcb9-384268f704f4 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-95657e0a-7a42-457a-bcb9-384268f704f4 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:32:37Z", "hostId": "e525496fb25d8e33635ede21548625d5b587cdd5ccc87f39fa21d604", "OS-EXT-SRV-ATTR:host": "s0lp2", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp2.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-95657e0a-7a42-457a-bcb9-384268f704f4 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3148 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3148 Content-Type: application/json Date: Thu, 28 Mar 2024 00:33:39 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-10807f5c-12f1-4d2b-9ee4-6d6cf5d6d601 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-10807f5c-12f1-4d2b-9ee4-6d6cf5d6d601 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:32:37Z", "hostId": "e525496fb25d8e33635ede21548625d5b587cdd5ccc87f39fa21d604", "OS-EXT-SRV-ATTR:host": "s0lp2", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp2.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-10807f5c-12f1-4d2b-9ee4-6d6cf5d6d601 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3148 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3148 Content-Type: application/json Date: Thu, 28 Mar 2024 00:33:44 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-afe9c3e2-1580-4db4-b8d6-08fb294881b6 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-afe9c3e2-1580-4db4-b8d6-08fb294881b6 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:32:37Z", "hostId": "e525496fb25d8e33635ede21548625d5b587cdd5ccc87f39fa21d604", "OS-EXT-SRV-ATTR:host": "s0lp2", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp2.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-afe9c3e2-1580-4db4-b8d6-08fb294881b6 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3148 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3148 Content-Type: application/json Date: Thu, 28 Mar 2024 00:33:50 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-bc423cf8-4109-4d06-a15c-f5f9bf090e3b X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-bc423cf8-4109-4d06-a15c-f5f9bf090e3b 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:32:37Z", "hostId": "e525496fb25d8e33635ede21548625d5b587cdd5ccc87f39fa21d604", "OS-EXT-SRV-ATTR:host": "s0lp2", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp2.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-bc423cf8-4109-4d06-a15c-f5f9bf090e3b 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3268 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3268 Content-Type: application/json Date: Thu, 28 Mar 2024 00:33:55 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-92104751-f4c8-4331-900c-a2e928be3a84 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-92104751-f4c8-4331-900c-a2e928be3a84 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "security_groups": [{"name": "autopkgtest-juju-7f2275-prod-proposed-migration-environment-3@bos01-s390x-19.secgroup"}], "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:32:37Z", "hostId": "e525496fb25d8e33635ede21548625d5b587cdd5ccc87f39fa21d604", "OS-EXT-SRV-ATTR:host": "s0lp2", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp2.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-92104751-f4c8-4331-900c-a2e928be3a84 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3268 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3268 Content-Type: application/json Date: Thu, 28 Mar 2024 00:34:01 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-ebb1483a-d939-4247-8e8c-15caad4f91b1 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-ebb1483a-d939-4247-8e8c-15caad4f91b1 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "security_groups": [{"name": "autopkgtest-juju-7f2275-prod-proposed-migration-environment-3@bos01-s390x-19.secgroup"}], "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:32:37Z", "hostId": "e525496fb25d8e33635ede21548625d5b587cdd5ccc87f39fa21d604", "OS-EXT-SRV-ATTR:host": "s0lp2", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp2.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-ebb1483a-d939-4247-8e8c-15caad4f91b1 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3268 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3268 Content-Type: application/json Date: Thu, 28 Mar 2024 00:34:06 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-2e53e417-a7f2-44e3-a8e0-0aba63cf5c3d X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-2e53e417-a7f2-44e3-a8e0-0aba63cf5c3d 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "security_groups": [{"name": "autopkgtest-juju-7f2275-prod-proposed-migration-environment-3@bos01-s390x-19.secgroup"}], "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:32:37Z", "hostId": "e525496fb25d8e33635ede21548625d5b587cdd5ccc87f39fa21d604", "OS-EXT-SRV-ATTR:host": "s0lp2", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp2.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-2e53e417-a7f2-44e3-a8e0-0aba63cf5c3d 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3268 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3268 Content-Type: application/json Date: Thu, 28 Mar 2024 00:34:12 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-ae44d1e0-82f6-4d85-b97b-ba52078ba94c X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-ae44d1e0-82f6-4d85-b97b-ba52078ba94c 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "security_groups": [{"name": "autopkgtest-juju-7f2275-prod-proposed-migration-environment-3@bos01-s390x-19.secgroup"}], "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:32:37Z", "hostId": "e525496fb25d8e33635ede21548625d5b587cdd5ccc87f39fa21d604", "OS-EXT-SRV-ATTR:host": "s0lp2", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp2.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-ae44d1e0-82f6-4d85-b97b-ba52078ba94c 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3268 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3268 Content-Type: application/json Date: Thu, 28 Mar 2024 00:34:28 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-127cdc33-64d6-44da-b9b6-8e5f4a0399c6 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-127cdc33-64d6-44da-b9b6-8e5f4a0399c6 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "security_groups": [{"name": "autopkgtest-juju-7f2275-prod-proposed-migration-environment-3@bos01-s390x-19.secgroup"}], "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:32:37Z", "hostId": "e525496fb25d8e33635ede21548625d5b587cdd5ccc87f39fa21d604", "OS-EXT-SRV-ATTR:host": "s0lp2", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp2.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-127cdc33-64d6-44da-b9b6-8e5f4a0399c6 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3268 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3268 Content-Type: application/json Date: Thu, 28 Mar 2024 00:35:24 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-e76fcc24-8f1e-48c5-9d41-b60c2a9f96b1 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-e76fcc24-8f1e-48c5-9d41-b60c2a9f96b1 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "security_groups": [{"name": "autopkgtest-juju-7f2275-prod-proposed-migration-environment-3@bos01-s390x-19.secgroup"}], "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:32:37Z", "hostId": "e525496fb25d8e33635ede21548625d5b587cdd5ccc87f39fa21d604", "OS-EXT-SRV-ATTR:host": "s0lp2", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp2.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-e76fcc24-8f1e-48c5-9d41-b60c2a9f96b1 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3268 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3268 Content-Type: application/json Date: Thu, 28 Mar 2024 00:35:30 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-0d26975f-7246-41e5-bdc0-54168b42aa00 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-0d26975f-7246-41e5-bdc0-54168b42aa00 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "security_groups": [{"name": "autopkgtest-juju-7f2275-prod-proposed-migration-environment-3@bos01-s390x-19.secgroup"}], "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:35:00Z", "hostId": "e525496fb25d8e33635ede21548625d5b587cdd5ccc87f39fa21d604", "OS-EXT-SRV-ATTR:host": "s0lp2", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp2.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-0d26975f-7246-41e5-bdc0-54168b42aa00 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3268 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3268 Content-Type: application/json Date: Thu, 28 Mar 2024 00:35:35 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-1ec517c7-f97a-40e7-abae-d09f83ebbda7 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-1ec517c7-f97a-40e7-abae-d09f83ebbda7 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "security_groups": [{"name": "autopkgtest-juju-7f2275-prod-proposed-migration-environment-3@bos01-s390x-19.secgroup"}], "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:35:00Z", "hostId": "e525496fb25d8e33635ede21548625d5b587cdd5ccc87f39fa21d604", "OS-EXT-SRV-ATTR:host": "s0lp2", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp2.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-1ec517c7-f97a-40e7-abae-d09f83ebbda7 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3268 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3268 Content-Type: application/json Date: Thu, 28 Mar 2024 00:35:41 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-311008d3-a14b-4432-9b63-1716c3410b1c X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-311008d3-a14b-4432-9b63-1716c3410b1c 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "security_groups": [{"name": "autopkgtest-juju-7f2275-prod-proposed-migration-environment-3@bos01-s390x-19.secgroup"}], "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:35:00Z", "hostId": "e525496fb25d8e33635ede21548625d5b587cdd5ccc87f39fa21d604", "OS-EXT-SRV-ATTR:host": "s0lp2", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp2.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-311008d3-a14b-4432-9b63-1716c3410b1c 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3148 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3148 Content-Type: application/json Date: Thu, 28 Mar 2024 00:35:46 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-cd314e3d-52c6-4c6f-986c-79fcbdfe50aa X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-cd314e3d-52c6-4c6f-986c-79fcbdfe50aa 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:35:00Z", "hostId": "e525496fb25d8e33635ede21548625d5b587cdd5ccc87f39fa21d604", "OS-EXT-SRV-ATTR:host": "s0lp2", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp2.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-cd314e3d-52c6-4c6f-986c-79fcbdfe50aa 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3148 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3148 Content-Type: application/json Date: Thu, 28 Mar 2024 00:35:52 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-068b1c27-ebad-4713-8e16-92d74431bdcb X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-068b1c27-ebad-4713-8e16-92d74431bdcb 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:35:00Z", "hostId": "e525496fb25d8e33635ede21548625d5b587cdd5ccc87f39fa21d604", "OS-EXT-SRV-ATTR:host": "s0lp2", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp2.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-068b1c27-ebad-4713-8e16-92d74431bdcb 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3148 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3148 Content-Type: application/json Date: Thu, 28 Mar 2024 00:35:57 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-e8b76be0-f541-4da5-986b-2d58da7c4b5b X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-e8b76be0-f541-4da5-986b-2d58da7c4b5b 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:35:00Z", "hostId": "e525496fb25d8e33635ede21548625d5b587cdd5ccc87f39fa21d604", "OS-EXT-SRV-ATTR:host": "s0lp2", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp2.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-e8b76be0-f541-4da5-986b-2d58da7c4b5b 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3148 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3148 Content-Type: application/json Date: Thu, 28 Mar 2024 00:36:02 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-e0593d6d-5b87-47c0-a5ae-b2dce72d85a4 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-e0593d6d-5b87-47c0-a5ae-b2dce72d85a4 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:35:00Z", "hostId": "e525496fb25d8e33635ede21548625d5b587cdd5ccc87f39fa21d604", "OS-EXT-SRV-ATTR:host": "s0lp2", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp2.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-e0593d6d-5b87-47c0-a5ae-b2dce72d85a4 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3148 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3148 Content-Type: application/json Date: Thu, 28 Mar 2024 00:36:08 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-d578c0d9-f04c-416c-bd41-3d7d246f92be X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-d578c0d9-f04c-416c-bd41-3d7d246f92be 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:35:00Z", "hostId": "e525496fb25d8e33635ede21548625d5b587cdd5ccc87f39fa21d604", "OS-EXT-SRV-ATTR:host": "s0lp2", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp2.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-d578c0d9-f04c-416c-bd41-3d7d246f92be 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3148 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3148 Content-Type: application/json Date: Thu, 28 Mar 2024 00:36:48 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-15735af0-90a6-40da-a57f-509b093975ed X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-15735af0-90a6-40da-a57f-509b093975ed 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "spawning", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "nova", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:35:00Z", "hostId": "e525496fb25d8e33635ede21548625d5b587cdd5ccc87f39fa21d604", "OS-EXT-SRV-ATTR:host": "s0lp2", "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": "s0lp2.infra.bos01.scalingstack", "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-15735af0-90a6-40da-a57f-509b093975ed 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3059 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3059 Content-Type: application/json Date: Thu, 28 Mar 2024 00:36:53 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-76b02023-f7cf-47b4-8ec5-81b272d06f8f X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-76b02023-f7cf-47b4-8ec5-81b272d06f8f 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": "scheduling", "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "building", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "progress": 0, "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "", "config_drive": "", "status": "BUILD", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:36:53Z", "hostId": "", "OS-EXT-SRV-ATTR:host": null, "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": null, "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-76b02023-f7cf-47b4-8ec5-81b272d06f8f 1336s Server building... 0% completeDEBUG (session:517) REQ: curl -g -i -X GET http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 -H "Accept: application/json" -H "OpenStack-API-Version: compute 2.60" -H "User-Agent: python-novaclient" -H "X-Auth-Token: {SHA256}db4ddfc879b2d00a8ed9895eed0c5a6d7fcf2ca16d7d45d6e95c0095b85fec7a" -H "X-OpenStack-Nova-API-Version: 2.60" 1336s DEBUG (connectionpool:429) http://nova-api.infra.bos01.scalingstack:8774 "GET /v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 HTTP/1.1" 200 3251 1336s DEBUG (session:548) RESP: [200] Connection: keep-alive Content-Length: 3251 Content-Type: application/json Date: Thu, 28 Mar 2024 00:36:58 GMT Openstack-Api-Version: compute 2.60 Vary: OpenStack-API-Version, X-OpenStack-Nova-API-Version X-Compute-Request-Id: req-3d25b3fe-41d3-4672-9e0b-f816ea8186f6 X-Openstack-Nova-Api-Version: 2.60 X-Openstack-Request-Id: req-3d25b3fe-41d3-4672-9e0b-f816ea8186f6 1336s DEBUG (session:580) RESP BODY: {"server": {"OS-EXT-STS:task_state": null, "addresses": {}, "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "self"}, {"href": "http://nova-api.infra.bos01.scalingstack:8774/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "rel": "bookmark"}], "image": {"id": "2274866b-dd05-444a-bb80-9d56992242ed", "links": [{"href": "http://nova-api.infra.bos01.scalingstack:8774/images/2274866b-dd05-444a-bb80-9d56992242ed", "rel": "bookmark"}]}, "OS-EXT-SRV-ATTR:user_data": "I2Nsb3VkLWNvbmZpZwpob3N0bmFtZTogYXV0b3BrZ3Rlc3QKbWFuYWdlX2V0Y19ob3N0czogdHJ1ZQphcHRfdXBkYXRlOiB0cnVlCmFwdF91cGdyYWRlOiBmYWxzZQphcHRfbWlycm9yOiBodHRwOi8vdXMucG9ydHMudWJ1bnR1LmNvbS91YnVudHUtcG9ydHMvCgpydW5jbWQ6CiAtIGVjaG8gJ0FjcXVpcmU6Okxhbmd1YWdlcyAibm9uZSI7JyA+IC9ldGMvYXB0L2FwdC5jb25mLmQvOTBub2xhbmd1YWdlcwogLSBlY2hvICdmb3JjZS11bnNhZmUtaW8nID4gL2V0Yy9kcGtnL2Rwa2cuY2ZnLmQvYXV0b3BrZ3Rlc3QKIC0gcHJpbnRmICdcblRFUk09bGludXhcbidodHRwX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ2h0dHBzX3Byb3h5PWh0dHA6Ly9zcXVpZC5pbnRlcm5hbDozMTI4J1xuJ25vX3Byb3h5PTEyNy4wLjAuMSwxMjcuMC4xLjEsbG9naW4udWJ1bnR1LmNvbSxsb2NhbGhvc3QsbG9jYWxkb21haW4sbm92YWxvY2FsLGludGVybmFsLGFyY2hpdmUudWJ1bnR1LmNvbSxwb3J0cy51YnVudHUuY29tLHNlY3VyaXR5LnVidW50dS5jb20sZGRlYnMudWJ1bnR1LmNvbSxjaGFuZ2Vsb2dzLnVidW50dS5jb20sbGF1bmNocGFkbGlicmFyaWFuLm5ldCxsYXVuY2hwYWRjb250ZW50Lm5ldCxsYXVuY2hwYWQubmV0LDEwLjI0LjAuMC8yNCxrZXlzdG9uZS5wczUuY2Fub25pY2FsLmNvbSxvYmplY3RzdG9yYWdlLnByb2RzdGFjazUuY2Fub25pY2FsLmNvbSdcbicgPj4gL2V0Yy9lbnZpcm9ubWVudAogLSBzZWQgLWkgLXIgJy9eMTI3LjAuMS4xLyBzL2F1dG9wa2d0ZXN0LVteIF0rXC4vYXV0b3BrZ3Rlc3RcLi8nIC9ldGMvaG9zdHMK", "OS-EXT-STS:vm_state": "error", "OS-EXT-SRV-ATTR:instance_name": "instance-00d6cddf", "OS-EXT-SRV-ATTR:root_device_name": "/dev/sda", "OS-SRV-USG:launched_at": null, "flavor": {"ephemeral": 0, "ram": 1536, "original_name": "autopkgtest", "vcpus": 1, "extra_specs": {"hw_rng:allowed": "True"}, "swap": 0, "disk": 20}, "id": "2aaa83dd-e909-4a9d-8b6f-3fe66fc44575", "OS-SRV-USG:terminated_at": null, "user_id": "3afbd64474684647986f8a196316be34", "OS-EXT-SRV-ATTR:hostname": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275", "OS-DCF:diskConfig": "MANUAL", "accessIPv4": "", "accessIPv6": "", "OS-EXT-SRV-ATTR:reservation_id": "r-iqdhwxtp", "OS-EXT-STS:power_state": 0, "OS-EXT-AZ:availability_zone": "", "config_drive": "", "status": "ERROR", "OS-EXT-SRV-ATTR:ramdisk_id": "", "updated": "2024-03-28T00:36:53Z", "hostId": "", "OS-EXT-SRV-ATTR:host": null, "description": null, "tags": [], "key_name": "testbed-juju-7f2275-prod-proposed-migration-environment-3", "OS-EXT-SRV-ATTR:kernel_id": "", "OS-EXT-SRV-ATTR:hypervisor_hostname": null, "locked": false, "name": "adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7", "OS-EXT-SRV-ATTR:launch_index": 0, "created": "2024-03-28T00:27:41Z", "tenant_id": "3f3b771a247746688951a4c90bf16631", "os-extended-volumes:volumes_attached": [], "fault": {"message": "Exceeded maximum number of retries. Exhausted all hosts available for retrying build failures for instance 2aaa83dd-e909-4a9d-8b6f-3fe66fc44575.", "code": 500, "created": "2024-03-28T00:36:54Z"}, "metadata": {}}} 1336s DEBUG (session:936) GET call to compute for http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/2aaa83dd-e909-4a9d-8b6f-3fe66fc44575 used request id req-3d25b3fe-41d3-4672-9e0b-f816ea8186f6 1336s DEBUG (shell:822) 1336s Traceback (most recent call last): 1336s File "/usr/lib/python3/dist-packages/novaclient/shell.py", line 820, in main 1336s OpenStackComputeShell().main(argv) 1336s File "/usr/lib/python3/dist-packages/novaclient/shell.py", line 742, in main 1336s args.func(self.cs, args) 1336s File "/usr/lib/python3/dist-packages/novaclient/v2/shell.py", line 980, in do_boot 1336s _poll_for_status(cs.servers.get, server.id, 'building', ['active']) 1336s File "/usr/lib/python3/dist-packages/novaclient/v2/shell.py", line 1019, in _poll_for_status 1336s raise exceptions.ResourceInErrorState(obj) 1336s novaclient.exceptions.ResourceInErrorState: 1336s ERROR (ResourceInErrorState): 1336s 1336s Error building server 1340s autopkgtest [00:49:00]: testbed dpkg architecture: s390x 1341s autopkgtest [00:49:01]: testbed apt version: 2.7.12 1341s autopkgtest [00:49:01]: @@@@@@@@@@@@@@@@@@@@ test bed setup 1341s Get:1 http://ftpmaster.internal/ubuntu noble-proposed InRelease [117 kB] 1342s Get:2 http://ftpmaster.internal/ubuntu noble-proposed/multiverse Sources [55.9 kB] 1342s Get:3 http://ftpmaster.internal/ubuntu noble-proposed/main Sources [475 kB] 1342s Get:4 http://ftpmaster.internal/ubuntu noble-proposed/universe Sources [3961 kB] 1342s Get:5 http://ftpmaster.internal/ubuntu noble-proposed/restricted Sources [8504 B] 1342s Get:6 http://ftpmaster.internal/ubuntu noble-proposed/main s390x Packages [652 kB] 1342s Get:7 http://ftpmaster.internal/ubuntu noble-proposed/main s390x c-n-f Metadata [3032 B] 1342s Get:8 http://ftpmaster.internal/ubuntu noble-proposed/restricted s390x Packages [1372 B] 1342s Get:9 http://ftpmaster.internal/ubuntu noble-proposed/restricted s390x c-n-f Metadata [116 B] 1342s Get:10 http://ftpmaster.internal/ubuntu noble-proposed/universe s390x Packages [4015 kB] 1342s Get:11 http://ftpmaster.internal/ubuntu noble-proposed/universe s390x c-n-f Metadata [7292 B] 1342s Get:12 http://ftpmaster.internal/ubuntu noble-proposed/multiverse s390x Packages [46.2 kB] 1342s Get:13 http://ftpmaster.internal/ubuntu noble-proposed/multiverse s390x c-n-f Metadata [116 B] 1344s Fetched 9343 kB in 2s (3889 kB/s) 1345s Reading package lists... 1347s Reading package lists... 1347s Building dependency tree... 1347s Reading state information... 1347s Calculating upgrade... 1347s The following packages will be upgraded: 1347s binutils binutils-common binutils-s390x-linux-gnu dmsetup gcc-14-base 1347s initramfs-tools initramfs-tools-bin initramfs-tools-core jq libbinutils 1347s libctf-nobfd0 libctf0 libdevmapper1.02.1 libexpat1 libftdi1-2 libgcc-s1 1347s libjq1 libseccomp2 libsframe1 libstdc++6 libusb-1.0-0 1348s 21 upgraded, 0 newly installed, 0 to remove and 0 not upgraded. 1348s Need to get 4939 kB of archives. 1348s After this operation, 0 B of additional disk space will be used. 1348s Get:1 http://ftpmaster.internal/ubuntu noble/main s390x gcc-14-base s390x 14-20240315-1ubuntu1 [47.0 kB] 1348s Get:2 http://ftpmaster.internal/ubuntu noble/main s390x libstdc++6 s390x 14-20240315-1ubuntu1 [908 kB] 1348s Get:3 http://ftpmaster.internal/ubuntu noble/main s390x libgcc-s1 s390x 14-20240315-1ubuntu1 [35.9 kB] 1348s Get:4 http://ftpmaster.internal/ubuntu noble/main s390x libseccomp2 s390x 2.5.5-1ubuntu2 [53.4 kB] 1348s Get:5 http://ftpmaster.internal/ubuntu noble/main s390x libdevmapper1.02.1 s390x 2:1.02.185-3ubuntu2 [142 kB] 1348s Get:6 http://ftpmaster.internal/ubuntu noble/main s390x dmsetup s390x 2:1.02.185-3ubuntu2 [80.4 kB] 1348s Get:7 http://ftpmaster.internal/ubuntu noble/main s390x libexpat1 s390x 2.6.1-2 [94.8 kB] 1348s Get:8 http://ftpmaster.internal/ubuntu noble/main s390x libusb-1.0-0 s390x 2:1.0.27-1 [54.8 kB] 1348s Get:9 http://ftpmaster.internal/ubuntu noble/main s390x libctf0 s390x 2.42-4ubuntu1 [98.4 kB] 1348s Get:10 http://ftpmaster.internal/ubuntu noble/main s390x libctf-nobfd0 s390x 2.42-4ubuntu1 [100 kB] 1348s Get:11 http://ftpmaster.internal/ubuntu noble/main s390x binutils-s390x-linux-gnu s390x 2.42-4ubuntu1 [2270 kB] 1348s Get:12 http://ftpmaster.internal/ubuntu noble/main s390x libbinutils s390x 2.42-4ubuntu1 [477 kB] 1348s Get:13 http://ftpmaster.internal/ubuntu noble/main s390x binutils s390x 2.42-4ubuntu1 [3056 B] 1348s Get:14 http://ftpmaster.internal/ubuntu noble/main s390x binutils-common s390x 2.42-4ubuntu1 [217 kB] 1348s Get:15 http://ftpmaster.internal/ubuntu noble/main s390x libsframe1 s390x 2.42-4ubuntu1 [14.2 kB] 1348s Get:16 http://ftpmaster.internal/ubuntu noble/main s390x initramfs-tools all 0.142ubuntu23 [9058 B] 1348s Get:17 http://ftpmaster.internal/ubuntu noble/main s390x initramfs-tools-core all 0.142ubuntu23 [50.1 kB] 1348s Get:18 http://ftpmaster.internal/ubuntu noble/main s390x initramfs-tools-bin s390x 0.142ubuntu23 [20.5 kB] 1348s Get:19 http://ftpmaster.internal/ubuntu noble/main s390x jq s390x 1.7.1-3 [66.5 kB] 1348s Get:20 http://ftpmaster.internal/ubuntu noble/main s390x libjq1 s390x 1.7.1-3 [168 kB] 1348s Get:21 http://ftpmaster.internal/ubuntu noble/main s390x libftdi1-2 s390x 1.5-6build4 [29.3 kB] 1349s Fetched 4939 kB in 1s (6185 kB/s) 1349s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51774 files and directories currently installed.) 1349s Preparing to unpack .../gcc-14-base_14-20240315-1ubuntu1_s390x.deb ... 1349s Unpacking gcc-14-base:s390x (14-20240315-1ubuntu1) over (14-20240303-1ubuntu1) ... 1349s Setting up gcc-14-base:s390x (14-20240315-1ubuntu1) ... 1349s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51774 files and directories currently installed.) 1349s Preparing to unpack .../libstdc++6_14-20240315-1ubuntu1_s390x.deb ... 1349s Unpacking libstdc++6:s390x (14-20240315-1ubuntu1) over (14-20240303-1ubuntu1) ... 1349s Setting up libstdc++6:s390x (14-20240315-1ubuntu1) ... 1349s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51774 files and directories currently installed.) 1349s Preparing to unpack .../libgcc-s1_14-20240315-1ubuntu1_s390x.deb ... 1349s Unpacking libgcc-s1:s390x (14-20240315-1ubuntu1) over (14-20240303-1ubuntu1) ... 1349s Setting up libgcc-s1:s390x (14-20240315-1ubuntu1) ... 1349s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51774 files and directories currently installed.) 1349s Preparing to unpack .../libseccomp2_2.5.5-1ubuntu2_s390x.deb ... 1349s Unpacking libseccomp2:s390x (2.5.5-1ubuntu2) over (2.5.5-1ubuntu1) ... 1349s Setting up libseccomp2:s390x (2.5.5-1ubuntu2) ... 1349s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51774 files and directories currently installed.) 1349s Preparing to unpack .../00-libdevmapper1.02.1_2%3a1.02.185-3ubuntu2_s390x.deb ... 1349s Unpacking libdevmapper1.02.1:s390x (2:1.02.185-3ubuntu2) over (2:1.02.185-3ubuntu1) ... 1349s Preparing to unpack .../01-dmsetup_2%3a1.02.185-3ubuntu2_s390x.deb ... 1349s Unpacking dmsetup (2:1.02.185-3ubuntu2) over (2:1.02.185-3ubuntu1) ... 1349s Preparing to unpack .../02-libexpat1_2.6.1-2_s390x.deb ... 1349s Unpacking libexpat1:s390x (2.6.1-2) over (2.6.0-1) ... 1349s Preparing to unpack .../03-libusb-1.0-0_2%3a1.0.27-1_s390x.deb ... 1349s Unpacking libusb-1.0-0:s390x (2:1.0.27-1) over (2:1.0.26-1) ... 1349s Preparing to unpack .../04-libctf0_2.42-4ubuntu1_s390x.deb ... 1349s Unpacking libctf0:s390x (2.42-4ubuntu1) over (2.42-3ubuntu1) ... 1349s Preparing to unpack .../05-libctf-nobfd0_2.42-4ubuntu1_s390x.deb ... 1349s Unpacking libctf-nobfd0:s390x (2.42-4ubuntu1) over (2.42-3ubuntu1) ... 1349s Preparing to unpack .../06-binutils-s390x-linux-gnu_2.42-4ubuntu1_s390x.deb ... 1349s Unpacking binutils-s390x-linux-gnu (2.42-4ubuntu1) over (2.42-3ubuntu1) ... 1349s Preparing to unpack .../07-libbinutils_2.42-4ubuntu1_s390x.deb ... 1349s Unpacking libbinutils:s390x (2.42-4ubuntu1) over (2.42-3ubuntu1) ... 1349s Preparing to unpack .../08-binutils_2.42-4ubuntu1_s390x.deb ... 1349s Unpacking binutils (2.42-4ubuntu1) over (2.42-3ubuntu1) ... 1349s Preparing to unpack .../09-binutils-common_2.42-4ubuntu1_s390x.deb ... 1349s Unpacking binutils-common:s390x (2.42-4ubuntu1) over (2.42-3ubuntu1) ... 1349s Preparing to unpack .../10-libsframe1_2.42-4ubuntu1_s390x.deb ... 1349s Unpacking libsframe1:s390x (2.42-4ubuntu1) over (2.42-3ubuntu1) ... 1349s Preparing to unpack .../11-initramfs-tools_0.142ubuntu23_all.deb ... 1349s Unpacking initramfs-tools (0.142ubuntu23) over (0.142ubuntu20) ... 1349s Preparing to unpack .../12-initramfs-tools-core_0.142ubuntu23_all.deb ... 1349s Unpacking initramfs-tools-core (0.142ubuntu23) over (0.142ubuntu20) ... 1349s Preparing to unpack .../13-initramfs-tools-bin_0.142ubuntu23_s390x.deb ... 1349s Unpacking initramfs-tools-bin (0.142ubuntu23) over (0.142ubuntu20) ... 1350s Preparing to unpack .../14-jq_1.7.1-3_s390x.deb ... 1350s Unpacking jq (1.7.1-3) over (1.7.1-2) ... 1350s Preparing to unpack .../15-libjq1_1.7.1-3_s390x.deb ... 1350s Unpacking libjq1:s390x (1.7.1-3) over (1.7.1-2) ... 1350s Preparing to unpack .../16-libftdi1-2_1.5-6build4_s390x.deb ... 1350s Unpacking libftdi1-2:s390x (1.5-6build4) over (1.5-6build3) ... 1350s Setting up libexpat1:s390x (2.6.1-2) ... 1350s Setting up libjq1:s390x (1.7.1-3) ... 1350s Setting up binutils-common:s390x (2.42-4ubuntu1) ... 1350s Setting up libctf-nobfd0:s390x (2.42-4ubuntu1) ... 1350s Setting up libsframe1:s390x (2.42-4ubuntu1) ... 1350s Setting up libdevmapper1.02.1:s390x (2:1.02.185-3ubuntu2) ... 1350s Setting up dmsetup (2:1.02.185-3ubuntu2) ... 1350s Setting up jq (1.7.1-3) ... 1350s Setting up libusb-1.0-0:s390x (2:1.0.27-1) ... 1350s Setting up libbinutils:s390x (2.42-4ubuntu1) ... 1350s Setting up initramfs-tools-bin (0.142ubuntu23) ... 1350s Setting up libctf0:s390x (2.42-4ubuntu1) ... 1350s Setting up binutils-s390x-linux-gnu (2.42-4ubuntu1) ... 1350s Setting up binutils (2.42-4ubuntu1) ... 1350s Setting up libftdi1-2:s390x (1.5-6build4) ... 1350s Setting up initramfs-tools-core (0.142ubuntu23) ... 1350s Setting up initramfs-tools (0.142ubuntu23) ... 1350s update-initramfs: deferring update (trigger activated) 1350s Processing triggers for man-db (2.12.0-3) ... 1351s Processing triggers for libc-bin (2.39-0ubuntu6) ... 1351s Processing triggers for initramfs-tools (0.142ubuntu23) ... 1351s update-initramfs: Generating /boot/initrd.img-6.8.0-11-generic 1351s W: No lz4 in /usr/bin:/sbin:/bin, using gzip 1354s Using config file '/etc/zipl.conf' 1354s Building bootmap in '/boot' 1354s Adding IPL section 'ubuntu' (default) 1354s Preparing boot device for LD-IPL: sda. 1354s Done. 1355s Reading package lists... 1355s Building dependency tree... 1355s Reading state information... 1355s 0 upgraded, 0 newly installed, 0 to remove and 217 not upgraded. 1356s Hit:1 http://ftpmaster.internal/ubuntu noble InRelease 1356s Hit:2 http://ftpmaster.internal/ubuntu noble-updates InRelease 1356s Hit:3 http://ftpmaster.internal/ubuntu noble-security InRelease 1356s Hit:4 http://ftpmaster.internal/ubuntu noble-proposed InRelease 1357s Reading package lists... 1357s Reading package lists... 1358s Building dependency tree... 1358s Reading state information... 1358s Calculating upgrade... 1358s The following packages were automatically installed and are no longer required: 1358s libaio1 libnetplan0 1358s Use 'sudo apt autoremove' to remove them. 1358s The following packages will be REMOVED: 1358s libapt-pkg6.0 libarchive13 libatm1 libcurl3-gnutls libcurl4 libdb5.3 libelf1 1358s libext2fs2 libgdbm-compat4 libgdbm6 libglib2.0-0 libgnutls30 libgpgme11 1358s libhogweed6 libmagic1 libnettle8 libnpth0 libnvme1 libparted2 libperl5.38 1358s libpng16-16 libpsl5 libreadline8 libreiserfscore0 libssl3 libtirpc3 liburcu8 1358s libuv1 1358s The following NEW packages will be installed: 1358s bpfcc-tools bpftrace fontconfig-config fonts-dejavu-core fonts-dejavu-mono 1358s hwdata ieee-data libaio1t64 libapt-pkg6.0t64 libarchive13t64 libatm1t64 1358s libbpfcc libc-dev-bin libc-devtools libc6-dev libclang-cpp18 libclang1-18 1358s libcrypt-dev libcurl3t64-gnutls libcurl4t64 libdb5.3t64 libdeflate0 1358s libdw1t64 libelf1t64 libext2fs2t64 libfontconfig1 libfreetype6 libgd3 1358s libgdbm-compat4t64 libgdbm6t64 libglib2.0-0t64 libgnutls30t64 libgpgme11t64 1358s libhogweed6t64 libjbig0 libjpeg-turbo8 libjpeg8 libllvm18 libmagic1t64 1358s libnetplan1 libnettle8t64 libnpth0t64 libnvme1t64 libparted2t64 1358s libperl5.38t64 libpng16-16t64 libpsl5t64 libreadline8t64 libreiserfscore0t64 1358s libsharpyuv0 libssl3t64 libtiff6 libtirpc3t64 liburcu8t64 libuv1t64 libwebp7 1358s libxpm4 linux-headers-6.8.0-20 linux-headers-6.8.0-20-generic 1358s linux-image-6.8.0-20-generic linux-libc-dev linux-modules-6.8.0-20-generic 1358s linux-modules-extra-6.8.0-20-generic linux-tools-6.8.0-20 1358s linux-tools-6.8.0-20-generic linux-tools-common manpages manpages-dev 1358s python3-bpfcc python3-netaddr rpcsvc-proto ubuntu-kernel-accessories 1358s xdg-user-dirs 1358s The following packages have been kept back: 1358s s390-tools 1358s The following packages will be upgraded: 1358s apparmor apt apt-utils base-files bash bind9-dnsutils bind9-host bind9-libs 1358s bolt bsdextrautils bsdutils btrfs-progs coreutils cryptsetup-bin curl dbus 1358s dbus-bin dbus-daemon dbus-session-bus-common dbus-system-bus-common 1358s dbus-user-session dhcpcd-base dirmngr dpkg dpkg-dev e2fsprogs eject fdisk 1358s file ftp fwupd gawk gir1.2-girepository-2.0 gir1.2-glib-2.0 gnupg 1358s gnupg-utils gpg gpg-agent gpg-wks-client gpgconf gpgsm gpgv groff-base 1358s ibverbs-providers inetutils-telnet info install-info iproute2 keyboxd kmod 1358s kpartx libapparmor1 libaudit-common libaudit1 libblkid1 libblockdev-crypto3 1358s libblockdev-fs3 libblockdev-loop3 libblockdev-mdraid3 libblockdev-nvme3 1358s libblockdev-part3 libblockdev-swap3 libblockdev-utils3 libblockdev3 libbpf1 1358s libbrotli1 libcap-ng0 libcom-err2 libcryptsetup12 libdbus-1-3 1358s libdebconfclient0 libdpkg-perl libevent-core-2.1-7 libfdisk1 libfido2-1 1358s libfwupd2 libgirepository-1.0-1 libglib2.0-data libgssapi-krb5-2 1358s libgudev-1.0-0 libgusb2 libibverbs1 libjcat1 libjson-glib-1.0-0 1358s libjson-glib-1.0-common libk5crypto3 libkmod2 libkrb5-3 libkrb5support0 1358s libldap-common libldap2 liblocale-gettext-perl liblzma5 libmagic-mgc 1358s libmbim-glib4 libmbim-proxy libmm-glib0 libmount1 libnghttp2-14 libnsl2 1358s libnss-systemd libpam-modules libpam-modules-bin libpam-runtime 1358s libpam-systemd libpam0g libpcsclite1 libplymouth5 libpolkit-agent-1-0 1358s libpolkit-gobject-1-0 libproc2-0 libprotobuf-c1 libpython3-stdlib 1358s libpython3.12-minimal libpython3.12-stdlib libqmi-glib5 libqmi-proxy 1358s libqrtr-glib0 librtmp1 libsasl2-2 libsasl2-modules libsasl2-modules-db 1358s libselinux1 libsemanage-common libsemanage2 libslang2 libsmartcols1 1358s libsqlite3-0 libss2 libssh-4 libsystemd-shared libsystemd0 1358s libtext-charwidth-perl libtext-iconv-perl libtirpc-common libudev1 1358s libudisks2-0 libuuid1 libvolume-key1 libxml2 libxmlb2 libxmuu1 linux-generic 1358s linux-headers-generic linux-headers-virtual linux-image-generic 1358s linux-image-virtual linux-virtual logsave lshw lsof man-db motd-news-config 1358s mount mtr-tiny multipath-tools netplan-generator netplan.io openssh-client 1358s openssh-server openssh-sftp-server openssl parted perl perl-base 1358s perl-modules-5.38 pinentry-curses plymouth plymouth-theme-ubuntu-text procps 1358s python-apt-common python3 python3-apt python3-cryptography python3-dbus 1358s python3-distutils python3-gdbm python3-gi python3-lib2to3 python3-minimal 1358s python3-netplan python3-pkg-resources python3-pyrsistent python3-setuptools 1358s python3-yaml python3.12 python3.12-minimal readline-common rsync rsyslog 1358s s390-tools-data shared-mime-info sudo systemd systemd-dev systemd-resolved 1358s systemd-sysv systemd-timesyncd tcpdump telnet tnftp ubuntu-pro-client 1358s ubuntu-pro-client-l10n udev udisks2 usb.ids util-linux util-linux-extra 1358s uuid-runtime vim-common vim-tiny wget wpasupplicant xxd xz-utils zlib1g 1359s 216 upgraded, 73 newly installed, 28 to remove and 1 not upgraded. 1359s Need to get 219 MB of archives. 1359s After this operation, 523 MB of additional disk space will be used. 1359s Get:1 http://ftpmaster.internal/ubuntu noble-proposed/main s390x motd-news-config all 13ubuntu8 [5098 B] 1359s Get:2 http://ftpmaster.internal/ubuntu noble-proposed/main s390x base-files s390x 13ubuntu8 [74.2 kB] 1359s Get:3 http://ftpmaster.internal/ubuntu noble-proposed/main s390x bash s390x 5.2.21-2ubuntu3 [845 kB] 1359s Get:4 http://ftpmaster.internal/ubuntu noble-proposed/main s390x bsdutils s390x 1:2.39.3-9ubuntu2 [96.1 kB] 1359s Get:5 http://ftpmaster.internal/ubuntu noble-proposed/main s390x openssl s390x 3.0.13-0ubuntu2 [1010 kB] 1359s Get:6 http://ftpmaster.internal/ubuntu noble-proposed/main s390x parted s390x 3.6-3.1build2 [44.6 kB] 1359s Get:7 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libblkid1 s390x 2.39.3-9ubuntu2 [128 kB] 1359s Get:8 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libuuid1 s390x 2.39.3-9ubuntu2 [35.6 kB] 1359s Get:9 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libparted2t64 s390x 3.6-3.1build2 [172 kB] 1359s Get:10 http://ftpmaster.internal/ubuntu noble-proposed/main s390x python3.12 s390x 3.12.2-4build3 [645 kB] 1359s Get:11 http://ftpmaster.internal/ubuntu noble-proposed/main s390x zlib1g s390x 1:1.3.dfsg-3.1ubuntu1 [75.7 kB] 1359s Get:12 http://ftpmaster.internal/ubuntu noble-proposed/main s390x python3.12-minimal s390x 3.12.2-4build3 [2419 kB] 1359s Get:13 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libpython3.12-stdlib s390x 3.12.2-4build3 [2046 kB] 1359s Get:14 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libpython3.12-minimal s390x 3.12.2-4build3 [829 kB] 1359s Get:15 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libsasl2-modules-db s390x 2.1.28+dfsg1-5ubuntu1 [21.1 kB] 1359s Get:16 http://ftpmaster.internal/ubuntu noble-proposed/main s390x perl-modules-5.38 all 5.38.2-3.2 [3110 kB] 1360s Get:17 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libdb5.3t64 s390x 5.3.28+dfsg2-6 [763 kB] 1360s Get:18 http://ftpmaster.internal/ubuntu noble-proposed/main s390x python3-gdbm s390x 3.12.2-3ubuntu1.1 [19.0 kB] 1360s Get:19 http://ftpmaster.internal/ubuntu noble-proposed/main s390x man-db s390x 2.12.0-3build4 [1246 kB] 1360s Get:20 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libgdbm6t64 s390x 1.23-5.1 [36.4 kB] 1360s Get:21 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libgdbm-compat4t64 s390x 1.23-5.1 [6880 B] 1360s Get:22 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libperl5.38t64 s390x 5.38.2-3.2 [5007 kB] 1360s Get:23 http://ftpmaster.internal/ubuntu noble-proposed/main s390x perl s390x 5.38.2-3.2 [231 kB] 1360s Get:24 http://ftpmaster.internal/ubuntu noble-proposed/main s390x perl-base s390x 5.38.2-3.2 [1961 kB] 1360s Get:25 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libldap2 s390x 2.6.7+dfsg-1~exp1ubuntu6 [202 kB] 1360s Get:26 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libudisks2-0 s390x 2.10.1-6 [179 kB] 1360s Get:27 http://ftpmaster.internal/ubuntu noble-proposed/main s390x udisks2 s390x 2.10.1-6 [298 kB] 1360s Get:28 http://ftpmaster.internal/ubuntu noble-proposed/main s390x shared-mime-info s390x 2.4-1build1 [474 kB] 1360s Get:29 http://ftpmaster.internal/ubuntu noble-proposed/main s390x gir1.2-girepository-2.0 s390x 1.79.1-1ubuntu6 [24.5 kB] 1360s Get:30 http://ftpmaster.internal/ubuntu noble-proposed/main s390x gir1.2-glib-2.0 s390x 2.79.3-3ubuntu5 [180 kB] 1360s Get:31 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libgirepository-1.0-1 s390x 1.79.1-1ubuntu6 [84.0 kB] 1360s Get:32 http://ftpmaster.internal/ubuntu noble-proposed/main s390x python3-gi s390x 3.47.0-3build1 [236 kB] 1360s Get:33 http://ftpmaster.internal/ubuntu noble-proposed/main s390x python3-dbus s390x 1.3.2-5build2 [100 kB] 1360s Get:34 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libgpgme11t64 s390x 1.18.0-4.1ubuntu3 [150 kB] 1360s Get:35 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libvolume-key1 s390x 0.3.12-7build1 [40.8 kB] 1360s Get:36 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libnetplan1 s390x 1.0-1 [123 kB] 1360s Get:37 http://ftpmaster.internal/ubuntu noble-proposed/main s390x python3-netplan s390x 1.0-1 [23.0 kB] 1360s Get:38 http://ftpmaster.internal/ubuntu noble-proposed/main s390x netplan-generator s390x 1.0-1 [59.1 kB] 1360s Get:39 http://ftpmaster.internal/ubuntu noble-proposed/main s390x netplan.io s390x 1.0-1 [65.4 kB] 1360s Get:40 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libxmlb2 s390x 0.3.15-1build1 [70.6 kB] 1360s Get:41 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libqrtr-glib0 s390x 1.2.2-1ubuntu3 [17.5 kB] 1360s Get:42 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libqmi-glib5 s390x 1.35.2-0ubuntu1 [918 kB] 1360s Get:43 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libqmi-proxy s390x 1.35.2-0ubuntu1 [6122 B] 1360s Get:44 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libpolkit-agent-1-0 s390x 124-1ubuntu1 [17.8 kB] 1360s Get:45 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libpolkit-gobject-1-0 s390x 124-1ubuntu1 [48.3 kB] 1360s Get:46 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libmm-glib0 s390x 1.23.4-0ubuntu1 [251 kB] 1360s Get:47 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libmbim-glib4 s390x 1.31.2-0ubuntu2 [238 kB] 1360s Get:48 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libmbim-proxy s390x 1.31.2-0ubuntu2 [6154 B] 1360s Get:49 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libjson-glib-1.0-common all 1.8.0-2build1 [4210 B] 1360s Get:50 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libjson-glib-1.0-0 s390x 1.8.0-2build1 [68.4 kB] 1360s Get:51 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libgusb2 s390x 0.4.8-1build1 [39.0 kB] 1360s Get:52 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libgudev-1.0-0 s390x 1:238-3ubuntu2 [15.7 kB] 1360s Get:53 http://ftpmaster.internal/ubuntu noble-proposed/main s390x gnupg-utils s390x 2.4.4-2ubuntu15 [116 kB] 1360s Get:54 http://ftpmaster.internal/ubuntu noble-proposed/main s390x gpg-agent s390x 2.4.4-2ubuntu15 [240 kB] 1361s Get:55 http://ftpmaster.internal/ubuntu noble-proposed/main s390x gpg-wks-client s390x 2.4.4-2ubuntu15 [76.8 kB] 1361s Get:56 http://ftpmaster.internal/ubuntu noble-proposed/main s390x gpg s390x 2.4.4-2ubuntu15 [589 kB] 1361s Get:57 http://ftpmaster.internal/ubuntu noble/main s390x libnpth0t64 s390x 1.6-3.1 [8148 B] 1361s Get:58 http://ftpmaster.internal/ubuntu noble-proposed/main s390x gpgv s390x 2.4.4-2ubuntu15 [165 kB] 1361s Get:59 http://ftpmaster.internal/ubuntu noble-proposed/main s390x dirmngr s390x 2.4.4-2ubuntu15 [340 kB] 1361s Get:60 http://ftpmaster.internal/ubuntu noble-proposed/main s390x gnupg all 2.4.4-2ubuntu15 [359 kB] 1361s Get:61 http://ftpmaster.internal/ubuntu noble-proposed/main s390x keyboxd s390x 2.4.4-2ubuntu15 [83.1 kB] 1361s Get:62 http://ftpmaster.internal/ubuntu noble-proposed/main s390x gpgconf s390x 2.4.4-2ubuntu15 [111 kB] 1361s Get:63 http://ftpmaster.internal/ubuntu noble-proposed/main s390x gpgsm s390x 2.4.4-2ubuntu15 [244 kB] 1361s Get:64 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libreadline8t64 s390x 8.2-4 [170 kB] 1361s Get:65 http://ftpmaster.internal/ubuntu noble-proposed/main s390x gawk s390x 1:5.2.1-2build2 [496 kB] 1361s Get:66 http://ftpmaster.internal/ubuntu noble-proposed/main s390x fdisk s390x 2.39.3-9ubuntu2 [124 kB] 1361s Get:67 http://ftpmaster.internal/ubuntu noble-proposed/main s390x wpasupplicant s390x 2:2.10-21build2 [1503 kB] 1361s Get:68 http://ftpmaster.internal/ubuntu noble-proposed/main s390x tnftp s390x 20230507-2build1 [107 kB] 1361s Get:69 http://ftpmaster.internal/ubuntu noble-proposed/main s390x tcpdump s390x 4.99.4-3ubuntu2 [490 kB] 1361s Get:70 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libsystemd0 s390x 255.4-1ubuntu5 [443 kB] 1361s Get:71 http://ftpmaster.internal/ubuntu noble-proposed/main s390x systemd-dev all 255.4-1ubuntu5 [103 kB] 1361s Get:72 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libudev1 s390x 255.4-1ubuntu5 [178 kB] 1361s Get:73 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libssl3t64 s390x 3.0.13-0ubuntu2 [1675 kB] 1361s Get:74 http://ftpmaster.internal/ubuntu noble-proposed/main s390x systemd s390x 255.4-1ubuntu5 [3533 kB] 1361s Get:75 http://ftpmaster.internal/ubuntu noble-proposed/main s390x udev s390x 255.4-1ubuntu5 [1887 kB] 1361s Get:76 http://ftpmaster.internal/ubuntu noble-proposed/main s390x systemd-sysv s390x 255.4-1ubuntu5 [11.9 kB] 1361s Get:77 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libnss-systemd s390x 255.4-1ubuntu5 [166 kB] 1361s Get:78 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libpam-systemd s390x 255.4-1ubuntu5 [242 kB] 1361s Get:79 http://ftpmaster.internal/ubuntu noble-proposed/main s390x systemd-timesyncd s390x 255.4-1ubuntu5 [35.3 kB] 1361s Get:80 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libsystemd-shared s390x 255.4-1ubuntu5 [2131 kB] 1361s Get:81 http://ftpmaster.internal/ubuntu noble-proposed/main s390x systemd-resolved s390x 255.4-1ubuntu5 [304 kB] 1361s Get:82 http://ftpmaster.internal/ubuntu noble-proposed/main s390x sudo s390x 1.9.15p5-3ubuntu3 [968 kB] 1361s Get:83 http://ftpmaster.internal/ubuntu noble-proposed/main s390x rsync s390x 3.2.7-1build1 [446 kB] 1361s Get:84 http://ftpmaster.internal/ubuntu noble-proposed/main s390x python3-cryptography s390x 41.0.7-4build2 [918 kB] 1362s Get:85 http://ftpmaster.internal/ubuntu noble-proposed/main s390x openssh-sftp-server s390x 1:9.6p1-3ubuntu11 [39.0 kB] 1362s Get:86 http://ftpmaster.internal/ubuntu noble-proposed/main s390x openssh-client s390x 1:9.6p1-3ubuntu11 [935 kB] 1362s Get:87 http://ftpmaster.internal/ubuntu noble-proposed/main s390x openssh-server s390x 1:9.6p1-3ubuntu11 [529 kB] 1362s Get:88 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libssh-4 s390x 0.10.6-2build1 [189 kB] 1362s Get:89 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libsasl2-modules s390x 2.1.28+dfsg1-5ubuntu1 [76.6 kB] 1362s Get:90 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libsasl2-2 s390x 2.1.28+dfsg1-5ubuntu1 [57.8 kB] 1362s Get:91 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libnvme1t64 s390x 1.8-3 [78.7 kB] 1362s Get:92 http://ftpmaster.internal/ubuntu noble-proposed/main s390x wget s390x 1.21.4-1ubuntu2 [351 kB] 1362s Get:93 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libarchive13t64 s390x 3.7.2-1.1ubuntu2 [419 kB] 1362s Get:94 http://ftpmaster.internal/ubuntu noble-proposed/main s390x fwupd s390x 1.9.15-2 [4435 kB] 1362s Get:95 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libpsl5t64 s390x 0.21.2-1.1 [57.6 kB] 1362s Get:96 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libcurl3t64-gnutls s390x 8.5.0-2ubuntu8 [356 kB] 1362s Get:97 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libfwupd2 s390x 1.9.15-2 [136 kB] 1362s Get:98 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libblockdev-crypto3 s390x 3.1.0-1build1 [21.6 kB] 1362s Get:99 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libblockdev3 s390x 3.1.0-1build1 [52.3 kB] 1362s Get:100 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libblockdev-utils3 s390x 3.1.0-1build1 [19.2 kB] 1362s Get:101 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libblockdev-swap3 s390x 3.1.0-1build1 [7778 B] 1362s Get:102 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libblockdev-part3 s390x 3.1.0-1build1 [15.4 kB] 1362s Get:103 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libblockdev-nvme3 s390x 3.1.0-1build1 [18.3 kB] 1362s Get:104 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libblockdev-mdraid3 s390x 3.1.0-1build1 [13.2 kB] 1362s Get:105 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libblockdev-loop3 s390x 3.1.0-1build1 [7138 B] 1362s Get:106 http://ftpmaster.internal/ubuntu noble-proposed/main s390x logsave s390x 1.47.0-2.4~exp1ubuntu2 [22.5 kB] 1362s Get:107 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libext2fs2t64 s390x 1.47.0-2.4~exp1ubuntu2 [235 kB] 1362s Get:108 http://ftpmaster.internal/ubuntu noble-proposed/main s390x e2fsprogs s390x 1.47.0-2.4~exp1ubuntu2 [615 kB] 1362s Get:109 http://ftpmaster.internal/ubuntu noble/main s390x libreiserfscore0t64 s390x 1:3.6.27-7.1 [85.5 kB] 1362s Get:110 http://ftpmaster.internal/ubuntu noble-proposed/main s390x btrfs-progs s390x 6.6.3-1.1build1 [959 kB] 1363s Get:111 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libblockdev-fs3 s390x 3.1.0-1build1 [36.5 kB] 1363s Get:112 http://ftpmaster.internal/ubuntu noble-proposed/main s390x bolt s390x 0.9.6-2build1 [142 kB] 1363s Get:113 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libglib2.0-0t64 s390x 2.79.3-3ubuntu5 [1566 kB] 1363s Get:114 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libjcat1 s390x 0.2.0-2build2 [34.4 kB] 1363s Get:115 http://ftpmaster.internal/ubuntu noble-proposed/main s390x ubuntu-pro-client-l10n s390x 31.2.2 [19.4 kB] 1363s Get:116 http://ftpmaster.internal/ubuntu noble-proposed/main s390x ubuntu-pro-client s390x 31.2.2 [214 kB] 1363s Get:117 http://ftpmaster.internal/ubuntu noble-proposed/main s390x python3-apt s390x 2.7.7 [171 kB] 1363s Get:118 http://ftpmaster.internal/ubuntu noble-proposed/main s390x apt-utils s390x 2.7.14 [214 kB] 1363s Get:119 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libapt-pkg6.0t64 s390x 2.7.14 [1014 kB] 1363s Get:120 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libnettle8t64 s390x 3.9.1-2.2 [210 kB] 1363s Get:121 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libhogweed6t64 s390x 3.9.1-2.2 [204 kB] 1363s Get:122 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libgnutls30t64 s390x 3.8.3-1.1ubuntu2 [1044 kB] 1363s Get:123 http://ftpmaster.internal/ubuntu noble-proposed/main s390x apt s390x 2.7.14 [1390 kB] 1363s Get:124 http://ftpmaster.internal/ubuntu noble-proposed/main s390x librtmp1 s390x 2.4+20151223.gitfa8646d.1-2build6 [58.4 kB] 1363s Get:125 http://ftpmaster.internal/ubuntu noble-proposed/main s390x curl s390x 8.5.0-2ubuntu8 [227 kB] 1363s Get:126 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libbrotli1 s390x 1.1.0-2build1 [375 kB] 1363s Get:127 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libgssapi-krb5-2 s390x 1.20.1-6ubuntu1 [149 kB] 1363s Get:128 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libkrb5-3 s390x 1.20.1-6ubuntu1 [360 kB] 1363s Get:129 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libkrb5support0 s390x 1.20.1-6ubuntu1 [34.6 kB] 1363s Get:130 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libk5crypto3 s390x 1.20.1-6ubuntu1 [90.3 kB] 1363s Get:131 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libcom-err2 s390x 1.47.0-2.4~exp1ubuntu2 [22.9 kB] 1363s Get:132 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libnghttp2-14 s390x 1.59.0-1build1 [77.8 kB] 1363s Get:133 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libcurl4t64 s390x 8.5.0-2ubuntu8 [363 kB] 1366s Get:134 http://ftpmaster.internal/ubuntu noble-proposed/main s390x liblzma5 s390x 5.6.0-0.2 [137 kB] 1366s Get:135 http://ftpmaster.internal/ubuntu noble-proposed/main s390x dbus-session-bus-common all 1.14.10-4ubuntu2 [80.3 kB] 1366s Get:136 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libaudit-common all 1:3.1.2-2.1 [5674 B] 1366s Get:137 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libcap-ng0 s390x 0.8.4-2build1 [15.7 kB] 1366s Get:138 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libaudit1 s390x 1:3.1.2-2.1 [48.9 kB] 1366s Get:139 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libpam0g s390x 1.5.3-5ubuntu3 [69.8 kB] 1366s Get:140 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libselinux1 s390x 3.5-2ubuntu1 [84.7 kB] 1366s Get:141 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libpam-modules-bin s390x 1.5.3-5ubuntu3 [57.4 kB] 1366s Get:142 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libpam-modules s390x 1.5.3-5ubuntu3 [289 kB] 1366s Get:143 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libpam-runtime all 1.5.3-5ubuntu3 [40.8 kB] 1366s Get:144 http://ftpmaster.internal/ubuntu noble-proposed/main s390x dbus-user-session s390x 1.14.10-4ubuntu2 [9960 B] 1366s Get:145 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libapparmor1 s390x 4.0.0-beta3-0ubuntu2 [50.8 kB] 1366s Get:146 http://ftpmaster.internal/ubuntu noble-proposed/main s390x dbus-bin s390x 1.14.10-4ubuntu2 [41.4 kB] 1366s Get:147 http://ftpmaster.internal/ubuntu noble-proposed/main s390x dbus-system-bus-common all 1.14.10-4ubuntu2 [81.5 kB] 1366s Get:148 http://ftpmaster.internal/ubuntu noble-proposed/main s390x dbus s390x 1.14.10-4ubuntu2 [24.3 kB] 1366s Get:149 http://ftpmaster.internal/ubuntu noble-proposed/main s390x dbus-daemon s390x 1.14.10-4ubuntu2 [118 kB] 1366s Get:150 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libdbus-1-3 s390x 1.14.10-4ubuntu2 [213 kB] 1366s Get:151 http://ftpmaster.internal/ubuntu noble-proposed/main s390x kmod s390x 31+20240202-2ubuntu4 [107 kB] 1366s Get:152 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libkmod2 s390x 31+20240202-2ubuntu4 [56.3 kB] 1366s Get:153 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libmount1 s390x 2.39.3-9ubuntu2 [138 kB] 1366s Get:154 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libcryptsetup12 s390x 2:2.7.0-1ubuntu2 [264 kB] 1366s Get:155 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libfdisk1 s390x 2.39.3-9ubuntu2 [151 kB] 1366s Get:156 http://ftpmaster.internal/ubuntu noble-proposed/main s390x mount s390x 2.39.3-9ubuntu2 [119 kB] 1366s Get:157 http://ftpmaster.internal/ubuntu noble-proposed/main s390x dpkg s390x 1.22.6ubuntu5 [1278 kB] 1366s Get:158 http://ftpmaster.internal/ubuntu noble-proposed/main s390x python3-minimal s390x 3.12.2-0ubuntu1 [27.1 kB] 1366s Get:159 http://ftpmaster.internal/ubuntu noble-proposed/main s390x python3 s390x 3.12.2-0ubuntu1 [24.1 kB] 1366s Get:160 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libpython3-stdlib s390x 3.12.2-0ubuntu1 [9804 B] 1366s Get:161 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libsmartcols1 s390x 2.39.3-9ubuntu2 [67.9 kB] 1366s Get:162 http://ftpmaster.internal/ubuntu noble-proposed/main s390x bsdextrautils s390x 2.39.3-9ubuntu2 [76.3 kB] 1366s Get:163 http://ftpmaster.internal/ubuntu noble-proposed/main s390x groff-base s390x 1.23.0-3build1 [1049 kB] 1366s Get:164 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libsqlite3-0 s390x 3.45.1-1ubuntu1 [747 kB] 1366s Get:165 http://ftpmaster.internal/ubuntu noble-proposed/main s390x pinentry-curses s390x 1.2.1-3ubuntu4 [37.6 kB] 1366s Get:166 http://ftpmaster.internal/ubuntu noble-proposed/main s390x readline-common all 8.2-4 [56.4 kB] 1366s Get:167 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libpcsclite1 s390x 2.0.3-1 [21.8 kB] 1366s Get:168 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libfido2-1 s390x 1.14.0-1build1 [81.0 kB] 1366s Get:169 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libproc2-0 s390x 2:4.0.4-4ubuntu2 [60.1 kB] 1366s Get:170 http://ftpmaster.internal/ubuntu noble-proposed/main s390x procps s390x 2:4.0.4-4ubuntu2 [724 kB] 1366s Get:171 http://ftpmaster.internal/ubuntu noble-proposed/main s390x coreutils s390x 9.4-3ubuntu3 [1482 kB] 1366s Get:172 http://ftpmaster.internal/ubuntu noble-proposed/universe s390x util-linux-extra s390x 2.39.3-9ubuntu2 [121 kB] 1366s Get:173 http://ftpmaster.internal/ubuntu noble-proposed/main s390x util-linux s390x 2.39.3-9ubuntu2 [1143 kB] 1366s Get:174 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libxml2 s390x 2.9.14+dfsg-1.3ubuntu2 [818 kB] 1366s Get:175 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libbpf1 s390x 1:1.3.0-2build1 [176 kB] 1366s Get:176 http://ftpmaster.internal/ubuntu noble-proposed/main s390x iproute2 s390x 6.1.0-1ubuntu5 [1156 kB] 1366s Get:177 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libelf1t64 s390x 0.190-1.1build2 [69.7 kB] 1366s Get:178 http://ftpmaster.internal/ubuntu noble-proposed/main s390x file s390x 1:5.45-3 [22.2 kB] 1366s Get:179 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libmagic-mgc s390x 1:5.45-3 [305 kB] 1366s Get:180 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libmagic1t64 s390x 1:5.45-3 [93.1 kB] 1366s Get:181 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libplymouth5 s390x 24.004.60-1ubuntu6 [151 kB] 1366s Get:182 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libpng16-16t64 s390x 1.6.43-3 [200 kB] 1366s Get:183 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libtirpc-common all 1.3.4+ds-1.1 [8018 B] 1366s Get:184 http://ftpmaster.internal/ubuntu noble-proposed/main s390x lsof s390x 4.95.0-1build2 [248 kB] 1366s Get:185 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libnsl2 s390x 1.3.0-3build2 [44.1 kB] 1366s Get:186 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libtirpc3t64 s390x 1.3.4+ds-1.1 [85.8 kB] 1366s Get:187 http://ftpmaster.internal/ubuntu noble-proposed/main s390x multipath-tools s390x 0.9.4-5ubuntu6 [318 kB] 1366s Get:188 http://ftpmaster.internal/ubuntu noble/main s390x liburcu8t64 s390x 0.14.0-3.1 [67.3 kB] 1366s Get:189 http://ftpmaster.internal/ubuntu noble-proposed/main s390x bind9-host s390x 1:9.18.24-0ubuntu3 [50.5 kB] 1366s Get:190 http://ftpmaster.internal/ubuntu noble-proposed/main s390x bind9-dnsutils s390x 1:9.18.24-0ubuntu3 [162 kB] 1366s Get:191 http://ftpmaster.internal/ubuntu noble-proposed/main s390x bind9-libs s390x 1:9.18.24-0ubuntu3 [1243 kB] 1366s Get:192 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libuv1t64 s390x 1.48.0-1.1 [101 kB] 1366s Get:193 http://ftpmaster.internal/ubuntu noble-proposed/main s390x liblocale-gettext-perl s390x 1.07-6ubuntu4 [15.8 kB] 1366s Get:194 http://ftpmaster.internal/ubuntu noble-proposed/main s390x uuid-runtime s390x 2.39.3-9ubuntu2 [33.4 kB] 1366s Get:195 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libdebconfclient0 s390x 0.271ubuntu2 [11.4 kB] 1366s Get:196 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libsemanage-common all 3.5-1build4 [10.1 kB] 1366s Get:197 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libsemanage2 s390x 3.5-1build4 [96.7 kB] 1366s Get:198 http://ftpmaster.internal/ubuntu noble-proposed/main s390x install-info s390x 7.1-3build1 [64.5 kB] 1366s Get:199 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libss2 s390x 1.47.0-2.4~exp1ubuntu2 [17.2 kB] 1366s Get:200 http://ftpmaster.internal/ubuntu noble-proposed/main s390x dhcpcd-base s390x 1:10.0.6-1ubuntu2 [217 kB] 1366s Get:201 http://ftpmaster.internal/ubuntu noble-proposed/main s390x eject s390x 2.39.3-9ubuntu2 [26.2 kB] 1366s Get:202 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libglib2.0-data all 2.79.3-3ubuntu5 [46.6 kB] 1366s Get:203 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libslang2 s390x 2.3.3-3build1 [501 kB] 1366s Get:204 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libtext-charwidth-perl s390x 0.04-11build2 [9484 B] 1366s Get:205 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libtext-iconv-perl s390x 1.7-8build2 [13.8 kB] 1366s Get:206 http://ftpmaster.internal/ubuntu noble-proposed/main s390x python3-yaml s390x 6.0.1-2build1 [121 kB] 1366s Get:207 http://ftpmaster.internal/ubuntu noble-proposed/main s390x python-apt-common all 2.7.7 [19.8 kB] 1366s Get:208 http://ftpmaster.internal/ubuntu noble-proposed/main s390x python3-setuptools all 68.1.2-2ubuntu1 [396 kB] 1366s Get:209 http://ftpmaster.internal/ubuntu noble-proposed/main s390x python3-pkg-resources all 68.1.2-2ubuntu1 [168 kB] 1366s Get:210 http://ftpmaster.internal/ubuntu noble-proposed/main s390x rsyslog s390x 8.2312.0-3ubuntu7 [536 kB] 1366s Get:211 http://ftpmaster.internal/ubuntu noble-proposed/main s390x vim-tiny s390x 2:9.1.0016-1ubuntu6 [879 kB] 1366s Get:212 http://ftpmaster.internal/ubuntu noble-proposed/main s390x vim-common all 2:9.1.0016-1ubuntu6 [385 kB] 1366s Get:213 http://ftpmaster.internal/ubuntu noble/main s390x xdg-user-dirs s390x 0.18-1 [18.5 kB] 1366s Get:214 http://ftpmaster.internal/ubuntu noble-proposed/main s390x xxd s390x 2:9.1.0016-1ubuntu6 [63.5 kB] 1366s Get:215 http://ftpmaster.internal/ubuntu noble-proposed/main s390x apparmor s390x 4.0.0-beta3-0ubuntu2 [710 kB] 1366s Get:216 http://ftpmaster.internal/ubuntu noble-proposed/main s390x ftp all 20230507-2build1 [4724 B] 1366s Get:217 http://ftpmaster.internal/ubuntu noble-proposed/main s390x inetutils-telnet s390x 2:2.5-3ubuntu3 [105 kB] 1366s Get:218 http://ftpmaster.internal/ubuntu noble-proposed/main s390x info s390x 7.1-3build1 [152 kB] 1366s Get:219 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libxmuu1 s390x 2:1.1.3-3build1 [8860 B] 1366s Get:220 http://ftpmaster.internal/ubuntu noble-proposed/main s390x lshw s390x 02.19.git.2021.06.19.996aaad9c7-2build2 [346 kB] 1366s Get:221 http://ftpmaster.internal/ubuntu noble/main s390x manpages all 6.05.01-1 [1340 kB] 1366s Get:222 http://ftpmaster.internal/ubuntu noble-proposed/main s390x mtr-tiny s390x 0.95-1.1build1 [57.0 kB] 1366s Get:223 http://ftpmaster.internal/ubuntu noble-proposed/main s390x plymouth-theme-ubuntu-text s390x 24.004.60-1ubuntu6 [10.2 kB] 1366s Get:224 http://ftpmaster.internal/ubuntu noble-proposed/main s390x plymouth s390x 24.004.60-1ubuntu6 [147 kB] 1366s Get:225 http://ftpmaster.internal/ubuntu noble-proposed/main s390x telnet all 0.17+2.5-3ubuntu3 [3682 B] 1366s Get:226 http://ftpmaster.internal/ubuntu noble-proposed/main s390x usb.ids all 2024.03.18-1 [223 kB] 1366s Get:227 http://ftpmaster.internal/ubuntu noble-proposed/main s390x xz-utils s390x 5.6.0-0.2 [274 kB] 1366s Get:228 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libllvm18 s390x 1:18.1.2-1ubuntu2 [33.4 MB] 1366s Get:229 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libclang-cpp18 s390x 1:18.1.2-1ubuntu2 [16.1 MB] 1367s Get:230 http://ftpmaster.internal/ubuntu noble-proposed/universe s390x libbpfcc s390x 0.29.1+ds-1ubuntu4 [697 kB] 1367s Get:231 http://ftpmaster.internal/ubuntu noble-proposed/universe s390x python3-bpfcc all 0.29.1+ds-1ubuntu4 [40.2 kB] 1367s Get:232 http://ftpmaster.internal/ubuntu noble/main s390x ieee-data all 20220827.1 [2113 kB] 1367s Get:233 http://ftpmaster.internal/ubuntu noble/main s390x python3-netaddr all 0.8.0-2ubuntu1 [319 kB] 1367s Get:234 http://ftpmaster.internal/ubuntu noble-proposed/universe s390x bpfcc-tools all 0.29.1+ds-1ubuntu4 [687 kB] 1367s Get:235 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libclang1-18 s390x 1:18.1.2-1ubuntu2 [9349 kB] 1367s Get:236 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libdw1t64 s390x 0.190-1.1build2 [286 kB] 1367s Get:237 http://ftpmaster.internal/ubuntu noble-proposed/universe s390x bpftrace s390x 0.20.2-1ubuntu1 [1139 kB] 1367s Get:238 http://ftpmaster.internal/ubuntu noble-proposed/main s390x cryptsetup-bin s390x 2:2.7.0-1ubuntu2 [211 kB] 1367s Get:239 http://ftpmaster.internal/ubuntu noble-proposed/main s390x dpkg-dev all 1.22.6ubuntu5 [1074 kB] 1367s Get:240 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libdpkg-perl all 1.22.6ubuntu5 [269 kB] 1367s Get:241 http://ftpmaster.internal/ubuntu noble/main s390x fonts-dejavu-mono all 2.37-8 [502 kB] 1367s Get:242 http://ftpmaster.internal/ubuntu noble/main s390x fonts-dejavu-core all 2.37-8 [835 kB] 1367s Get:243 http://ftpmaster.internal/ubuntu noble/main s390x fontconfig-config s390x 2.15.0-1.1ubuntu1 [37.4 kB] 1367s Get:244 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libprotobuf-c1 s390x 1.4.1-1ubuntu3 [23.4 kB] 1367s Get:245 http://ftpmaster.internal/ubuntu noble/main s390x hwdata all 0.379-1 [29.1 kB] 1367s Get:246 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libibverbs1 s390x 50.0-2build1 [70.0 kB] 1367s Get:247 http://ftpmaster.internal/ubuntu noble-proposed/main s390x ibverbs-providers s390x 50.0-2build1 [408 kB] 1367s Get:248 http://ftpmaster.internal/ubuntu noble/main s390x libaio1t64 s390x 0.3.113-6 [7290 B] 1367s Get:249 http://ftpmaster.internal/ubuntu noble/main s390x libatm1t64 s390x 1:2.5.1-5.1 [24.5 kB] 1367s Get:250 http://ftpmaster.internal/ubuntu noble/main s390x libc-dev-bin s390x 2.39-0ubuntu6 [20.2 kB] 1367s Get:251 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libfreetype6 s390x 2.13.2+dfsg-1build2 [437 kB] 1368s Get:252 http://ftpmaster.internal/ubuntu noble/main s390x libfontconfig1 s390x 2.15.0-1.1ubuntu1 [150 kB] 1368s Get:253 http://ftpmaster.internal/ubuntu noble/main s390x libjpeg-turbo8 s390x 2.1.5-2ubuntu1 [128 kB] 1368s Get:254 http://ftpmaster.internal/ubuntu noble/main s390x libjpeg8 s390x 8c-2ubuntu11 [2146 B] 1368s Get:255 http://ftpmaster.internal/ubuntu noble/main s390x libdeflate0 s390x 1.19-1 [46.0 kB] 1368s Get:256 http://ftpmaster.internal/ubuntu noble/main s390x libjbig0 s390x 2.1-6.1ubuntu1 [29.8 kB] 1368s Get:257 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libsharpyuv0 s390x 1.3.2-0.4build2 [14.9 kB] 1368s Get:258 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libwebp7 s390x 1.3.2-0.4build2 [207 kB] 1368s Get:259 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libtiff6 s390x 4.5.1+git230720-4ubuntu1 [218 kB] 1368s Get:260 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libxpm4 s390x 1:3.5.17-1build1 [41.4 kB] 1368s Get:261 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libgd3 s390x 2.3.3-9ubuntu3 [141 kB] 1368s Get:262 http://ftpmaster.internal/ubuntu noble/main s390x libc-devtools s390x 2.39-0ubuntu6 [30.6 kB] 1368s Get:263 http://ftpmaster.internal/ubuntu noble-proposed/main s390x linux-libc-dev s390x 6.8.0-20.20 [1592 kB] 1368s Get:264 http://ftpmaster.internal/ubuntu noble/main s390x libcrypt-dev s390x 1:4.4.36-4 [135 kB] 1368s Get:265 http://ftpmaster.internal/ubuntu noble/main s390x rpcsvc-proto s390x 1.4.2-0ubuntu6 [64.7 kB] 1368s Get:266 http://ftpmaster.internal/ubuntu noble/main s390x libc6-dev s390x 2.39-0ubuntu6 [1629 kB] 1368s Get:267 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libevent-core-2.1-7 s390x 2.1.12-stable-9build1 [94.3 kB] 1368s Get:268 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libldap-common all 2.6.7+dfsg-1~exp1ubuntu6 [31.3 kB] 1368s Get:269 http://ftpmaster.internal/ubuntu noble-proposed/main s390x linux-modules-6.8.0-20-generic s390x 6.8.0-20.20 [21.0 MB] 1369s Get:270 http://ftpmaster.internal/ubuntu noble-proposed/main s390x linux-image-6.8.0-20-generic s390x 6.8.0-20.20 [9872 kB] 1369s Get:271 http://ftpmaster.internal/ubuntu noble-proposed/main s390x linux-modules-extra-6.8.0-20-generic s390x 6.8.0-20.20 [11.7 MB] 1369s Get:272 http://ftpmaster.internal/ubuntu noble-proposed/main s390x linux-generic s390x 6.8.0-20.20+1 [1734 B] 1369s Get:273 http://ftpmaster.internal/ubuntu noble-proposed/main s390x linux-image-generic s390x 6.8.0-20.20+1 [9688 B] 1369s Get:274 http://ftpmaster.internal/ubuntu noble-proposed/main s390x linux-virtual s390x 6.8.0-20.20+1 [1682 B] 1369s Get:275 http://ftpmaster.internal/ubuntu noble-proposed/main s390x linux-image-virtual s390x 6.8.0-20.20+1 [9700 B] 1369s Get:276 http://ftpmaster.internal/ubuntu noble-proposed/main s390x linux-headers-virtual s390x 6.8.0-20.20+1 [1642 B] 1369s Get:277 http://ftpmaster.internal/ubuntu noble-proposed/main s390x linux-headers-6.8.0-20 all 6.8.0-20.20 [13.6 MB] 1370s Get:278 http://ftpmaster.internal/ubuntu noble-proposed/main s390x linux-headers-6.8.0-20-generic s390x 6.8.0-20.20 [2579 kB] 1370s Get:279 http://ftpmaster.internal/ubuntu noble-proposed/main s390x linux-headers-generic s390x 6.8.0-20.20+1 [9608 B] 1370s Get:280 http://ftpmaster.internal/ubuntu noble-proposed/main s390x linux-tools-common all 6.8.0-20.20 [437 kB] 1370s Get:281 http://ftpmaster.internal/ubuntu noble-proposed/main s390x linux-tools-6.8.0-20 s390x 6.8.0-20.20 [2674 kB] 1370s Get:282 http://ftpmaster.internal/ubuntu noble-proposed/main s390x linux-tools-6.8.0-20-generic s390x 6.8.0-20.20 [1724 B] 1370s Get:283 http://ftpmaster.internal/ubuntu noble/main s390x manpages-dev all 6.05.01-1 [2018 kB] 1370s Get:284 http://ftpmaster.internal/ubuntu noble-proposed/main s390x python3-distutils all 3.12.2-3ubuntu1.1 [133 kB] 1370s Get:285 http://ftpmaster.internal/ubuntu noble-proposed/main s390x python3-lib2to3 all 3.12.2-3ubuntu1.1 [79.1 kB] 1370s Get:286 http://ftpmaster.internal/ubuntu noble-proposed/main s390x python3-pyrsistent s390x 0.20.0-1build1 [55.8 kB] 1370s Get:287 http://ftpmaster.internal/ubuntu noble-proposed/main s390x s390-tools-data all 2.31.0-0ubuntu3 [17.8 kB] 1370s Get:288 http://ftpmaster.internal/ubuntu noble/main s390x ubuntu-kernel-accessories s390x 1.536build1 [10.5 kB] 1370s Get:289 http://ftpmaster.internal/ubuntu noble-proposed/main s390x kpartx s390x 0.9.4-5ubuntu6 [32.8 kB] 1372s Preconfiguring packages ... 1372s Fetched 219 MB in 12s (18.6 MB/s) 1372s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51775 files and directories currently installed.) 1372s Preparing to unpack .../motd-news-config_13ubuntu8_all.deb ... 1372s Unpacking motd-news-config (13ubuntu8) over (13ubuntu7) ... 1372s Preparing to unpack .../base-files_13ubuntu8_s390x.deb ... 1372s Unpacking base-files (13ubuntu8) over (13ubuntu7) ... 1372s Setting up base-files (13ubuntu8) ... 1373s motd-news.service is a disabled or a static unit not running, not starting it. 1373s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51775 files and directories currently installed.) 1373s Preparing to unpack .../bash_5.2.21-2ubuntu3_s390x.deb ... 1373s Unpacking bash (5.2.21-2ubuntu3) over (5.2.21-2ubuntu2) ... 1373s Setting up bash (5.2.21-2ubuntu3) ... 1373s update-alternatives: using /usr/share/man/man7/bash-builtins.7.gz to provide /usr/share/man/man7/builtins.7.gz (builtins.7.gz) in auto mode 1373s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51775 files and directories currently installed.) 1373s Preparing to unpack .../bsdutils_1%3a2.39.3-9ubuntu2_s390x.deb ... 1373s Unpacking bsdutils (1:2.39.3-9ubuntu2) over (1:2.39.3-6ubuntu2) ... 1373s Setting up bsdutils (1:2.39.3-9ubuntu2) ... 1373s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51775 files and directories currently installed.) 1373s Preparing to unpack .../openssl_3.0.13-0ubuntu2_s390x.deb ... 1373s Unpacking openssl (3.0.13-0ubuntu2) over (3.0.10-1ubuntu4) ... 1373s Preparing to unpack .../parted_3.6-3.1build2_s390x.deb ... 1373s Unpacking parted (3.6-3.1build2) over (3.6-3) ... 1373s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51775 files and directories currently installed.) 1373s Removing libparted2:s390x (3.6-3) ... 1373s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51769 files and directories currently installed.) 1373s Preparing to unpack .../libblkid1_2.39.3-9ubuntu2_s390x.deb ... 1373s Unpacking libblkid1:s390x (2.39.3-9ubuntu2) over (2.39.3-6ubuntu2) ... 1373s Setting up libblkid1:s390x (2.39.3-9ubuntu2) ... 1373s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51769 files and directories currently installed.) 1373s Preparing to unpack .../libuuid1_2.39.3-9ubuntu2_s390x.deb ... 1373s Unpacking libuuid1:s390x (2.39.3-9ubuntu2) over (2.39.3-6ubuntu2) ... 1373s Setting up libuuid1:s390x (2.39.3-9ubuntu2) ... 1373s Selecting previously unselected package libparted2t64:s390x. 1373s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51769 files and directories currently installed.) 1373s Preparing to unpack .../libparted2t64_3.6-3.1build2_s390x.deb ... 1373s Unpacking libparted2t64:s390x (3.6-3.1build2) ... 1373s Preparing to unpack .../python3.12_3.12.2-4build3_s390x.deb ... 1373s Unpacking python3.12 (3.12.2-4build3) over (3.12.2-1) ... 1373s Preparing to unpack .../zlib1g_1%3a1.3.dfsg-3.1ubuntu1_s390x.deb ... 1373s Unpacking zlib1g:s390x (1:1.3.dfsg-3.1ubuntu1) over (1:1.3.dfsg-3ubuntu1) ... 1373s Setting up zlib1g:s390x (1:1.3.dfsg-3.1ubuntu1) ... 1374s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51776 files and directories currently installed.) 1374s Preparing to unpack .../python3.12-minimal_3.12.2-4build3_s390x.deb ... 1374s Unpacking python3.12-minimal (3.12.2-4build3) over (3.12.2-1) ... 1374s Preparing to unpack .../libpython3.12-stdlib_3.12.2-4build3_s390x.deb ... 1374s Unpacking libpython3.12-stdlib:s390x (3.12.2-4build3) over (3.12.2-1) ... 1374s Preparing to unpack .../libpython3.12-minimal_3.12.2-4build3_s390x.deb ... 1374s Unpacking libpython3.12-minimal:s390x (3.12.2-4build3) over (3.12.2-1) ... 1374s Preparing to unpack .../libsasl2-modules-db_2.1.28+dfsg1-5ubuntu1_s390x.deb ... 1374s Unpacking libsasl2-modules-db:s390x (2.1.28+dfsg1-5ubuntu1) over (2.1.28+dfsg1-4) ... 1374s Preparing to unpack .../perl-modules-5.38_5.38.2-3.2_all.deb ... 1374s Unpacking perl-modules-5.38 (5.38.2-3.2) over (5.38.2-3) ... 1374s dpkg: libperl5.38:s390x: dependency problems, but removing anyway as you requested: 1374s perl depends on libperl5.38 (= 5.38.2-3). 1374s 1374s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51774 files and directories currently installed.) 1374s Removing libperl5.38:s390x (5.38.2-3) ... 1374s dpkg: libdb5.3:s390x: dependency problems, but removing anyway as you requested: 1374s libpam-modules:s390x depends on libdb5.3. 1374s iproute2 depends on libdb5.3. 1374s apt-utils depends on libdb5.3. 1374s 1374s Removing libdb5.3:s390x (5.3.28+dfsg2-4) ... 1374s Selecting previously unselected package libdb5.3t64:s390x. 1374s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51246 files and directories currently installed.) 1374s Preparing to unpack .../libdb5.3t64_5.3.28+dfsg2-6_s390x.deb ... 1374s Unpacking libdb5.3t64:s390x (5.3.28+dfsg2-6) ... 1374s Preparing to unpack .../python3-gdbm_3.12.2-3ubuntu1.1_s390x.deb ... 1374s Unpacking python3-gdbm:s390x (3.12.2-3ubuntu1.1) over (3.11.5-1) ... 1374s Preparing to unpack .../man-db_2.12.0-3build4_s390x.deb ... 1374s Unpacking man-db (2.12.0-3build4) over (2.12.0-3) ... 1375s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51252 files and directories currently installed.) 1375s Removing libgdbm-compat4:s390x (1.23-5) ... 1375s Removing libgdbm6:s390x (1.23-5) ... 1375s Selecting previously unselected package libgdbm6t64:s390x. 1375s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51242 files and directories currently installed.) 1375s Preparing to unpack .../libgdbm6t64_1.23-5.1_s390x.deb ... 1375s Unpacking libgdbm6t64:s390x (1.23-5.1) ... 1375s Selecting previously unselected package libgdbm-compat4t64:s390x. 1375s Preparing to unpack .../libgdbm-compat4t64_1.23-5.1_s390x.deb ... 1375s Unpacking libgdbm-compat4t64:s390x (1.23-5.1) ... 1375s Selecting previously unselected package libperl5.38t64:s390x. 1375s Preparing to unpack .../libperl5.38t64_5.38.2-3.2_s390x.deb ... 1375s Unpacking libperl5.38t64:s390x (5.38.2-3.2) ... 1375s Preparing to unpack .../perl_5.38.2-3.2_s390x.deb ... 1375s Unpacking perl (5.38.2-3.2) over (5.38.2-3) ... 1375s Preparing to unpack .../perl-base_5.38.2-3.2_s390x.deb ... 1375s Unpacking perl-base (5.38.2-3.2) over (5.38.2-3) ... 1375s Setting up perl-base (5.38.2-3.2) ... 1375s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51776 files and directories currently installed.) 1375s Preparing to unpack .../0-libldap2_2.6.7+dfsg-1~exp1ubuntu6_s390x.deb ... 1375s Unpacking libldap2:s390x (2.6.7+dfsg-1~exp1ubuntu6) over (2.6.7+dfsg-1~exp1ubuntu1) ... 1375s Preparing to unpack .../1-libudisks2-0_2.10.1-6_s390x.deb ... 1375s Unpacking libudisks2-0:s390x (2.10.1-6) over (2.10.1-1ubuntu2) ... 1375s Preparing to unpack .../2-udisks2_2.10.1-6_s390x.deb ... 1375s Unpacking udisks2 (2.10.1-6) over (2.10.1-1ubuntu2) ... 1375s Preparing to unpack .../3-shared-mime-info_2.4-1build1_s390x.deb ... 1375s Unpacking shared-mime-info (2.4-1build1) over (2.4-1) ... 1375s Preparing to unpack .../4-gir1.2-girepository-2.0_1.79.1-1ubuntu6_s390x.deb ... 1375s Unpacking gir1.2-girepository-2.0:s390x (1.79.1-1ubuntu6) over (1.79.1-1) ... 1375s Preparing to unpack .../5-gir1.2-glib-2.0_2.79.3-3ubuntu5_s390x.deb ... 1375s Unpacking gir1.2-glib-2.0:s390x (2.79.3-3ubuntu5) over (2.79.2-1~ubuntu1) ... 1375s Preparing to unpack .../6-libgirepository-1.0-1_1.79.1-1ubuntu6_s390x.deb ... 1375s Unpacking libgirepository-1.0-1:s390x (1.79.1-1ubuntu6) over (1.79.1-1) ... 1375s Preparing to unpack .../7-python3-gi_3.47.0-3build1_s390x.deb ... 1376s Unpacking python3-gi (3.47.0-3build1) over (3.47.0-3) ... 1376s Preparing to unpack .../8-python3-dbus_1.3.2-5build2_s390x.deb ... 1376s Unpacking python3-dbus (1.3.2-5build2) over (1.3.2-5build1) ... 1376s dpkg: libgpgme11:s390x: dependency problems, but removing anyway as you requested: 1376s libvolume-key1:s390x depends on libgpgme11 (>= 1.4.1). 1376s libjcat1:s390x depends on libgpgme11 (>= 1.2.0). 1376s 1376s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51773 files and directories currently installed.) 1376s Removing libgpgme11:s390x (1.18.0-4ubuntu1) ... 1376s Selecting previously unselected package libgpgme11t64:s390x. 1376s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51767 files and directories currently installed.) 1376s Preparing to unpack .../00-libgpgme11t64_1.18.0-4.1ubuntu3_s390x.deb ... 1376s Unpacking libgpgme11t64:s390x (1.18.0-4.1ubuntu3) ... 1376s Preparing to unpack .../01-libvolume-key1_0.3.12-7build1_s390x.deb ... 1376s Unpacking libvolume-key1:s390x (0.3.12-7build1) over (0.3.12-5build2) ... 1376s Selecting previously unselected package libnetplan1:s390x. 1376s Preparing to unpack .../02-libnetplan1_1.0-1_s390x.deb ... 1376s Unpacking libnetplan1:s390x (1.0-1) ... 1376s Preparing to unpack .../03-python3-netplan_1.0-1_s390x.deb ... 1376s Unpacking python3-netplan (1.0-1) over (0.107.1-3) ... 1376s Preparing to unpack .../04-netplan-generator_1.0-1_s390x.deb ... 1376s Adding 'diversion of /lib/systemd/system-generators/netplan to /lib/systemd/system-generators/netplan.usr-is-merged by netplan-generator' 1376s Unpacking netplan-generator (1.0-1) over (0.107.1-3) ... 1376s Preparing to unpack .../05-netplan.io_1.0-1_s390x.deb ... 1376s Unpacking netplan.io (1.0-1) over (0.107.1-3) ... 1376s Preparing to unpack .../06-libxmlb2_0.3.15-1build1_s390x.deb ... 1376s Unpacking libxmlb2:s390x (0.3.15-1build1) over (0.3.15-1) ... 1376s Preparing to unpack .../07-libqrtr-glib0_1.2.2-1ubuntu3_s390x.deb ... 1376s Unpacking libqrtr-glib0:s390x (1.2.2-1ubuntu3) over (1.2.2-1ubuntu2) ... 1376s Preparing to unpack .../08-libqmi-glib5_1.35.2-0ubuntu1_s390x.deb ... 1376s Unpacking libqmi-glib5:s390x (1.35.2-0ubuntu1) over (1.34.0-2) ... 1376s Preparing to unpack .../09-libqmi-proxy_1.35.2-0ubuntu1_s390x.deb ... 1376s Unpacking libqmi-proxy (1.35.2-0ubuntu1) over (1.34.0-2) ... 1376s Preparing to unpack .../10-libpolkit-agent-1-0_124-1ubuntu1_s390x.deb ... 1376s Unpacking libpolkit-agent-1-0:s390x (124-1ubuntu1) over (124-1) ... 1376s Preparing to unpack .../11-libpolkit-gobject-1-0_124-1ubuntu1_s390x.deb ... 1376s Unpacking libpolkit-gobject-1-0:s390x (124-1ubuntu1) over (124-1) ... 1376s Preparing to unpack .../12-libmm-glib0_1.23.4-0ubuntu1_s390x.deb ... 1376s Unpacking libmm-glib0:s390x (1.23.4-0ubuntu1) over (1.22.0-3) ... 1376s Preparing to unpack .../13-libmbim-glib4_1.31.2-0ubuntu2_s390x.deb ... 1376s Unpacking libmbim-glib4:s390x (1.31.2-0ubuntu2) over (1.30.0-1) ... 1376s Preparing to unpack .../14-libmbim-proxy_1.31.2-0ubuntu2_s390x.deb ... 1376s Unpacking libmbim-proxy (1.31.2-0ubuntu2) over (1.30.0-1) ... 1376s Preparing to unpack .../15-libjson-glib-1.0-common_1.8.0-2build1_all.deb ... 1376s Unpacking libjson-glib-1.0-common (1.8.0-2build1) over (1.8.0-2) ... 1376s Preparing to unpack .../16-libjson-glib-1.0-0_1.8.0-2build1_s390x.deb ... 1376s Unpacking libjson-glib-1.0-0:s390x (1.8.0-2build1) over (1.8.0-2) ... 1377s Preparing to unpack .../17-libgusb2_0.4.8-1build1_s390x.deb ... 1377s Unpacking libgusb2:s390x (0.4.8-1build1) over (0.4.8-1) ... 1377s Preparing to unpack .../18-libgudev-1.0-0_1%3a238-3ubuntu2_s390x.deb ... 1377s Unpacking libgudev-1.0-0:s390x (1:238-3ubuntu2) over (1:238-3) ... 1377s Preparing to unpack .../19-gnupg-utils_2.4.4-2ubuntu15_s390x.deb ... 1377s Unpacking gnupg-utils (2.4.4-2ubuntu15) over (2.4.4-2ubuntu7) ... 1377s Preparing to unpack .../20-gpg-agent_2.4.4-2ubuntu15_s390x.deb ... 1377s Unpacking gpg-agent (2.4.4-2ubuntu15) over (2.4.4-2ubuntu7) ... 1377s Preparing to unpack .../21-gpg-wks-client_2.4.4-2ubuntu15_s390x.deb ... 1377s Unpacking gpg-wks-client (2.4.4-2ubuntu15) over (2.4.4-2ubuntu7) ... 1377s Preparing to unpack .../22-gpg_2.4.4-2ubuntu15_s390x.deb ... 1377s Unpacking gpg (2.4.4-2ubuntu15) over (2.4.4-2ubuntu7) ... 1377s dpkg: libnpth0:s390x: dependency problems, but removing anyway as you requested: 1377s keyboxd depends on libnpth0 (>= 0.90). 1377s gpgv depends on libnpth0 (>= 0.90). 1377s gpgsm depends on libnpth0 (>= 0.90). 1377s dirmngr depends on libnpth0 (>= 0.90). 1377s 1377s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51780 files and directories currently installed.) 1377s Removing libnpth0:s390x (1.6-3build2) ... 1377s Selecting previously unselected package libnpth0t64:s390x. 1377s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51775 files and directories currently installed.) 1377s Preparing to unpack .../libnpth0t64_1.6-3.1_s390x.deb ... 1377s Unpacking libnpth0t64:s390x (1.6-3.1) ... 1377s Setting up libnpth0t64:s390x (1.6-3.1) ... 1377s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51781 files and directories currently installed.) 1377s Preparing to unpack .../gpgv_2.4.4-2ubuntu15_s390x.deb ... 1377s Unpacking gpgv (2.4.4-2ubuntu15) over (2.4.4-2ubuntu7) ... 1377s Setting up gpgv (2.4.4-2ubuntu15) ... 1377s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51781 files and directories currently installed.) 1377s Preparing to unpack .../dirmngr_2.4.4-2ubuntu15_s390x.deb ... 1377s Unpacking dirmngr (2.4.4-2ubuntu15) over (2.4.4-2ubuntu7) ... 1377s Preparing to unpack .../gnupg_2.4.4-2ubuntu15_all.deb ... 1377s Unpacking gnupg (2.4.4-2ubuntu15) over (2.4.4-2ubuntu7) ... 1377s Preparing to unpack .../keyboxd_2.4.4-2ubuntu15_s390x.deb ... 1377s Unpacking keyboxd (2.4.4-2ubuntu15) over (2.4.4-2ubuntu7) ... 1377s Preparing to unpack .../gpgconf_2.4.4-2ubuntu15_s390x.deb ... 1377s Unpacking gpgconf (2.4.4-2ubuntu15) over (2.4.4-2ubuntu7) ... 1377s Preparing to unpack .../gpgsm_2.4.4-2ubuntu15_s390x.deb ... 1377s Unpacking gpgsm (2.4.4-2ubuntu15) over (2.4.4-2ubuntu7) ... 1377s dpkg: libreadline8:s390x: dependency problems, but removing anyway as you requested: 1377s wpasupplicant depends on libreadline8 (>= 6.0). 1377s gawk depends on libreadline8 (>= 6.0). 1377s fdisk depends on libreadline8 (>= 6.0). 1377s 1377s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51781 files and directories currently installed.) 1377s Removing libreadline8:s390x (8.2-3) ... 1377s Selecting previously unselected package libreadline8t64:s390x. 1377s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51769 files and directories currently installed.) 1377s Preparing to unpack .../libreadline8t64_8.2-4_s390x.deb ... 1377s Adding 'diversion of /lib/s390x-linux-gnu/libhistory.so.8 to /lib/s390x-linux-gnu/libhistory.so.8.usr-is-merged by libreadline8t64' 1377s Adding 'diversion of /lib/s390x-linux-gnu/libhistory.so.8.2 to /lib/s390x-linux-gnu/libhistory.so.8.2.usr-is-merged by libreadline8t64' 1377s Adding 'diversion of /lib/s390x-linux-gnu/libreadline.so.8 to /lib/s390x-linux-gnu/libreadline.so.8.usr-is-merged by libreadline8t64' 1377s Adding 'diversion of /lib/s390x-linux-gnu/libreadline.so.8.2 to /lib/s390x-linux-gnu/libreadline.so.8.2.usr-is-merged by libreadline8t64' 1377s Unpacking libreadline8t64:s390x (8.2-4) ... 1377s Setting up libreadline8t64:s390x (8.2-4) ... 1377s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51789 files and directories currently installed.) 1377s Preparing to unpack .../0-gawk_1%3a5.2.1-2build2_s390x.deb ... 1377s Unpacking gawk (1:5.2.1-2build2) over (1:5.2.1-2) ... 1377s Preparing to unpack .../1-fdisk_2.39.3-9ubuntu2_s390x.deb ... 1377s Unpacking fdisk (2.39.3-9ubuntu2) over (2.39.3-6ubuntu2) ... 1377s Preparing to unpack .../2-wpasupplicant_2%3a2.10-21build2_s390x.deb ... 1377s Unpacking wpasupplicant (2:2.10-21build2) over (2:2.10-21) ... 1377s Preparing to unpack .../3-tnftp_20230507-2build1_s390x.deb ... 1377s Unpacking tnftp (20230507-2build1) over (20230507-2) ... 1377s Preparing to unpack .../4-tcpdump_4.99.4-3ubuntu2_s390x.deb ... 1377s Unpacking tcpdump (4.99.4-3ubuntu2) over (4.99.4-3ubuntu1) ... 1378s Preparing to unpack .../5-libsystemd0_255.4-1ubuntu5_s390x.deb ... 1378s Unpacking libsystemd0:s390x (255.4-1ubuntu5) over (255.2-3ubuntu2) ... 1378s Setting up libsystemd0:s390x (255.4-1ubuntu5) ... 1378s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51789 files and directories currently installed.) 1378s Preparing to unpack .../systemd-dev_255.4-1ubuntu5_all.deb ... 1378s Unpacking systemd-dev (255.4-1ubuntu5) over (255.2-3ubuntu2) ... 1378s Preparing to unpack .../libudev1_255.4-1ubuntu5_s390x.deb ... 1378s Unpacking libudev1:s390x (255.4-1ubuntu5) over (255.2-3ubuntu2) ... 1378s Setting up libudev1:s390x (255.4-1ubuntu5) ... 1378s dpkg: libssl3:s390x: dependency problems, but removing anyway as you requested: 1378s wget depends on libssl3 (>= 3.0.0). 1378s systemd-resolved depends on libssl3 (>= 3.0.0). 1378s systemd depends on libssl3 (>= 3.0.0). 1378s sudo depends on libssl3 (>= 3.0.0). 1378s s390-tools depends on libssl3 (>= 3.0.0). 1378s rsync depends on libssl3 (>= 3.0.0). 1378s python3-cryptography depends on libssl3 (>= 3.0.0). 1378s openssh-server depends on libssl3 (>= 3.0.10). 1378s openssh-client depends on libssl3 (>= 3.0.10). 1378s linux-headers-6.8.0-11-generic depends on libssl3 (>= 3.0.0). 1378s libtss2-esys-3.0.2-0:s390x depends on libssl3 (>= 3.0.0). 1378s libsystemd-shared:s390x depends on libssl3 (>= 3.0.0). 1378s libssh-4:s390x depends on libssl3 (>= 3.0.0). 1378s libsasl2-modules:s390x depends on libssl3 (>= 3.0.0). 1378s libsasl2-2:s390x depends on libssl3 (>= 3.0.0). 1378s libnvme1 depends on libssl3 (>= 3.0.0). 1378s libkrb5-3:s390x depends on libssl3 (>= 3.0.0). 1378s libkmod2:s390x depends on libssl3 (>= 3.0.0). 1378s libfido2-1:s390x depends on libssl3 (>= 3.0.0). 1378s libcurl4:s390x depends on libssl3 (>= 3.0.0). 1378s libcryptsetup12:s390x depends on libssl3 (>= 3.0.0). 1378s kmod depends on libssl3 (>= 3.0.0). 1378s dhcpcd-base depends on libssl3 (>= 3.0.0). 1378s bind9-libs:s390x depends on libssl3 (>= 3.0.0). 1378s 1378s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51789 files and directories currently installed.) 1378s Removing libssl3:s390x (3.0.10-1ubuntu4) ... 1378s Selecting previously unselected package libssl3t64:s390x. 1378s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51778 files and directories currently installed.) 1378s Preparing to unpack .../libssl3t64_3.0.13-0ubuntu2_s390x.deb ... 1378s Unpacking libssl3t64:s390x (3.0.13-0ubuntu2) ... 1378s Setting up libssl3t64:s390x (3.0.13-0ubuntu2) ... 1378s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51791 files and directories currently installed.) 1378s Preparing to unpack .../systemd_255.4-1ubuntu5_s390x.deb ... 1378s Unpacking systemd (255.4-1ubuntu5) over (255.2-3ubuntu2) ... 1378s Preparing to unpack .../udev_255.4-1ubuntu5_s390x.deb ... 1378s Unpacking udev (255.4-1ubuntu5) over (255.2-3ubuntu2) ... 1378s Preparing to unpack .../libsystemd-shared_255.4-1ubuntu5_s390x.deb ... 1378s Unpacking libsystemd-shared:s390x (255.4-1ubuntu5) over (255.2-3ubuntu2) ... 1378s Setting up libsystemd-shared:s390x (255.4-1ubuntu5) ... 1378s Setting up systemd-dev (255.4-1ubuntu5) ... 1378s Setting up systemd (255.4-1ubuntu5) ... 1379s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51791 files and directories currently installed.) 1379s Preparing to unpack .../00-systemd-sysv_255.4-1ubuntu5_s390x.deb ... 1379s Unpacking systemd-sysv (255.4-1ubuntu5) over (255.2-3ubuntu2) ... 1379s Preparing to unpack .../01-libnss-systemd_255.4-1ubuntu5_s390x.deb ... 1379s Unpacking libnss-systemd:s390x (255.4-1ubuntu5) over (255.2-3ubuntu2) ... 1379s Preparing to unpack .../02-libpam-systemd_255.4-1ubuntu5_s390x.deb ... 1379s Unpacking libpam-systemd:s390x (255.4-1ubuntu5) over (255.2-3ubuntu2) ... 1379s Preparing to unpack .../03-systemd-timesyncd_255.4-1ubuntu5_s390x.deb ... 1379s Unpacking systemd-timesyncd (255.4-1ubuntu5) over (255.2-3ubuntu2) ... 1379s Preparing to unpack .../04-systemd-resolved_255.4-1ubuntu5_s390x.deb ... 1379s Unpacking systemd-resolved (255.4-1ubuntu5) over (255.2-3ubuntu2) ... 1379s Preparing to unpack .../05-sudo_1.9.15p5-3ubuntu3_s390x.deb ... 1379s Unpacking sudo (1.9.15p5-3ubuntu3) over (1.9.15p5-3ubuntu1) ... 1379s Preparing to unpack .../06-rsync_3.2.7-1build1_s390x.deb ... 1379s Unpacking rsync (3.2.7-1build1) over (3.2.7-1) ... 1379s Preparing to unpack .../07-python3-cryptography_41.0.7-4build2_s390x.deb ... 1379s Unpacking python3-cryptography (41.0.7-4build2) over (41.0.7-3) ... 1379s Preparing to unpack .../08-openssh-sftp-server_1%3a9.6p1-3ubuntu11_s390x.deb ... 1379s Unpacking openssh-sftp-server (1:9.6p1-3ubuntu11) over (1:9.6p1-3ubuntu2) ... 1379s Preparing to unpack .../09-openssh-client_1%3a9.6p1-3ubuntu11_s390x.deb ... 1379s Unpacking openssh-client (1:9.6p1-3ubuntu11) over (1:9.6p1-3ubuntu2) ... 1380s Preparing to unpack .../10-openssh-server_1%3a9.6p1-3ubuntu11_s390x.deb ... 1380s Unpacking openssh-server (1:9.6p1-3ubuntu11) over (1:9.6p1-3ubuntu2) ... 1380s Preparing to unpack .../11-libssh-4_0.10.6-2build1_s390x.deb ... 1380s Unpacking libssh-4:s390x (0.10.6-2build1) over (0.10.6-2) ... 1380s Preparing to unpack .../12-libsasl2-modules_2.1.28+dfsg1-5ubuntu1_s390x.deb ... 1380s Unpacking libsasl2-modules:s390x (2.1.28+dfsg1-5ubuntu1) over (2.1.28+dfsg1-4) ... 1380s Preparing to unpack .../13-libsasl2-2_2.1.28+dfsg1-5ubuntu1_s390x.deb ... 1380s Unpacking libsasl2-2:s390x (2.1.28+dfsg1-5ubuntu1) over (2.1.28+dfsg1-4) ... 1380s dpkg: libnvme1: dependency problems, but removing anyway as you requested: 1380s libblockdev-nvme3:s390x depends on libnvme1 (>= 1.7.1). 1380s 1380s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51791 files and directories currently installed.) 1380s Removing libnvme1 (1.8-2) ... 1380s Selecting previously unselected package libnvme1t64. 1380s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51784 files and directories currently installed.) 1380s Preparing to unpack .../libnvme1t64_1.8-3_s390x.deb ... 1380s Unpacking libnvme1t64 (1.8-3) ... 1380s Preparing to unpack .../wget_1.21.4-1ubuntu2_s390x.deb ... 1380s Unpacking wget (1.21.4-1ubuntu2) over (1.21.4-1ubuntu1) ... 1380s dpkg: libarchive13:s390x: dependency problems, but removing anyway as you requested: 1380s fwupd depends on libarchive13 (>= 3.2.1). 1380s 1380s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51792 files and directories currently installed.) 1380s Removing libarchive13:s390x (3.7.2-1ubuntu2) ... 1380s Selecting previously unselected package libarchive13t64:s390x. 1380s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51786 files and directories currently installed.) 1380s Preparing to unpack .../libarchive13t64_3.7.2-1.1ubuntu2_s390x.deb ... 1380s Unpacking libarchive13t64:s390x (3.7.2-1.1ubuntu2) ... 1380s Preparing to unpack .../fwupd_1.9.15-2_s390x.deb ... 1380s Unpacking fwupd (1.9.15-2) over (1.9.14-1) ... 1380s dpkg: libcurl3-gnutls:s390x: dependency problems, but removing anyway as you requested: 1380s libfwupd2:s390x depends on libcurl3-gnutls (>= 7.63.0). 1380s 1380s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51793 files and directories currently installed.) 1380s Removing libcurl3-gnutls:s390x (8.5.0-2ubuntu2) ... 1380s dpkg: libpsl5:s390x: dependency problems, but removing anyway as you requested: 1380s libcurl4:s390x depends on libpsl5 (>= 0.16.0). 1380s 1380s Removing libpsl5:s390x (0.21.2-1build1) ... 1380s Selecting previously unselected package libpsl5t64:s390x. 1380s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51781 files and directories currently installed.) 1380s Preparing to unpack .../00-libpsl5t64_0.21.2-1.1_s390x.deb ... 1380s Unpacking libpsl5t64:s390x (0.21.2-1.1) ... 1380s Selecting previously unselected package libcurl3t64-gnutls:s390x. 1380s Preparing to unpack .../01-libcurl3t64-gnutls_8.5.0-2ubuntu8_s390x.deb ... 1380s Unpacking libcurl3t64-gnutls:s390x (8.5.0-2ubuntu8) ... 1380s Preparing to unpack .../02-libfwupd2_1.9.15-2_s390x.deb ... 1380s Unpacking libfwupd2:s390x (1.9.15-2) over (1.9.14-1) ... 1380s Preparing to unpack .../03-libblockdev-crypto3_3.1.0-1build1_s390x.deb ... 1380s Unpacking libblockdev-crypto3:s390x (3.1.0-1build1) over (3.1.0-1) ... 1380s Preparing to unpack .../04-libblockdev3_3.1.0-1build1_s390x.deb ... 1380s Unpacking libblockdev3:s390x (3.1.0-1build1) over (3.1.0-1) ... 1380s Preparing to unpack .../05-libblockdev-utils3_3.1.0-1build1_s390x.deb ... 1380s Unpacking libblockdev-utils3:s390x (3.1.0-1build1) over (3.1.0-1) ... 1380s Preparing to unpack .../06-libblockdev-swap3_3.1.0-1build1_s390x.deb ... 1380s Unpacking libblockdev-swap3:s390x (3.1.0-1build1) over (3.1.0-1) ... 1380s Preparing to unpack .../07-libblockdev-part3_3.1.0-1build1_s390x.deb ... 1380s Unpacking libblockdev-part3:s390x (3.1.0-1build1) over (3.1.0-1) ... 1380s Preparing to unpack .../08-libblockdev-nvme3_3.1.0-1build1_s390x.deb ... 1380s Unpacking libblockdev-nvme3:s390x (3.1.0-1build1) over (3.1.0-1) ... 1380s Preparing to unpack .../09-libblockdev-mdraid3_3.1.0-1build1_s390x.deb ... 1380s Unpacking libblockdev-mdraid3:s390x (3.1.0-1build1) over (3.1.0-1) ... 1380s Preparing to unpack .../10-libblockdev-loop3_3.1.0-1build1_s390x.deb ... 1380s Unpacking libblockdev-loop3:s390x (3.1.0-1build1) over (3.1.0-1) ... 1380s Preparing to unpack .../11-logsave_1.47.0-2.4~exp1ubuntu2_s390x.deb ... 1380s Unpacking logsave (1.47.0-2.4~exp1ubuntu2) over (1.47.0-2ubuntu1) ... 1380s dpkg: libext2fs2:s390x: dependency problems, but removing anyway as you requested: 1380s libblockdev-fs3:s390x depends on libext2fs2 (>= 1.42.11). 1380s e2fsprogs depends on libext2fs2 (= 1.47.0-2ubuntu1). 1380s btrfs-progs depends on libext2fs2 (>= 1.42). 1380s 1381s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51794 files and directories currently installed.) 1381s Removing libext2fs2:s390x (1.47.0-2ubuntu1) ... 1381s Selecting previously unselected package libext2fs2t64:s390x. 1381s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51787 files and directories currently installed.) 1381s Preparing to unpack .../libext2fs2t64_1.47.0-2.4~exp1ubuntu2_s390x.deb ... 1381s Adding 'diversion of /lib/s390x-linux-gnu/libe2p.so.2 to /lib/s390x-linux-gnu/libe2p.so.2.usr-is-merged by libext2fs2t64' 1381s Adding 'diversion of /lib/s390x-linux-gnu/libe2p.so.2.3 to /lib/s390x-linux-gnu/libe2p.so.2.3.usr-is-merged by libext2fs2t64' 1381s Adding 'diversion of /lib/s390x-linux-gnu/libext2fs.so.2 to /lib/s390x-linux-gnu/libext2fs.so.2.usr-is-merged by libext2fs2t64' 1381s Adding 'diversion of /lib/s390x-linux-gnu/libext2fs.so.2.4 to /lib/s390x-linux-gnu/libext2fs.so.2.4.usr-is-merged by libext2fs2t64' 1381s Unpacking libext2fs2t64:s390x (1.47.0-2.4~exp1ubuntu2) ... 1381s Setting up libext2fs2t64:s390x (1.47.0-2.4~exp1ubuntu2) ... 1381s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51803 files and directories currently installed.) 1381s Preparing to unpack .../e2fsprogs_1.47.0-2.4~exp1ubuntu2_s390x.deb ... 1381s Unpacking e2fsprogs (1.47.0-2.4~exp1ubuntu2) over (1.47.0-2ubuntu1) ... 1381s dpkg: libreiserfscore0: dependency problems, but removing anyway as you requested: 1381s btrfs-progs depends on libreiserfscore0 (>= 1:3.6.27). 1381s 1381s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51803 files and directories currently installed.) 1381s Removing libreiserfscore0 (1:3.6.27-7) ... 1381s Selecting previously unselected package libreiserfscore0t64. 1381s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51798 files and directories currently installed.) 1381s Preparing to unpack .../libreiserfscore0t64_1%3a3.6.27-7.1_s390x.deb ... 1381s Unpacking libreiserfscore0t64 (1:3.6.27-7.1) ... 1381s Preparing to unpack .../btrfs-progs_6.6.3-1.1build1_s390x.deb ... 1381s Unpacking btrfs-progs (6.6.3-1.1build1) over (6.6.3-1.1) ... 1381s Preparing to unpack .../libblockdev-fs3_3.1.0-1build1_s390x.deb ... 1381s Unpacking libblockdev-fs3:s390x (3.1.0-1build1) over (3.1.0-1) ... 1381s Preparing to unpack .../bolt_0.9.6-2build1_s390x.deb ... 1381s Unpacking bolt (0.9.6-2build1) over (0.9.6-2) ... 1381s dpkg: libglib2.0-0:s390x: dependency problems, but removing anyway as you requested: 1381s s390-tools depends on libglib2.0-0 (>= 2.77.0). 1381s libnetplan0:s390x depends on libglib2.0-0 (>= 2.75.3). 1381s libjcat1:s390x depends on libglib2.0-0 (>= 2.75.3). 1381s 1381s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51804 files and directories currently installed.) 1381s Removing libglib2.0-0:s390x (2.79.2-1~ubuntu1) ... 1381s Selecting previously unselected package libglib2.0-0t64:s390x. 1381s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51779 files and directories currently installed.) 1381s Preparing to unpack .../0-libglib2.0-0t64_2.79.3-3ubuntu5_s390x.deb ... 1381s libglib2.0-0t64.preinst: Removing /var/lib/dpkg/info/libglib2.0-0:s390x.postrm to avoid loss of /usr/share/glib-2.0/schemas/gschemas.compiled... 1381s removed '/var/lib/dpkg/info/libglib2.0-0:s390x.postrm' 1381s Unpacking libglib2.0-0t64:s390x (2.79.3-3ubuntu5) ... 1381s Preparing to unpack .../1-libjcat1_0.2.0-2build2_s390x.deb ... 1381s Unpacking libjcat1:s390x (0.2.0-2build2) over (0.2.0-2) ... 1381s Preparing to unpack .../2-ubuntu-pro-client-l10n_31.2.2_s390x.deb ... 1381s Unpacking ubuntu-pro-client-l10n (31.2.2) over (31.1) ... 1381s Preparing to unpack .../3-ubuntu-pro-client_31.2.2_s390x.deb ... 1381s Unpacking ubuntu-pro-client (31.2.2) over (31.1) ... 1381s Preparing to unpack .../4-python3-apt_2.7.7_s390x.deb ... 1382s Unpacking python3-apt (2.7.7) over (2.7.6) ... 1382s Preparing to unpack .../5-apt-utils_2.7.14_s390x.deb ... 1382s Unpacking apt-utils (2.7.14) over (2.7.12) ... 1382s dpkg: libapt-pkg6.0:s390x: dependency problems, but removing anyway as you requested: 1382s apt depends on libapt-pkg6.0 (>= 2.7.12). 1382s 1382s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51802 files and directories currently installed.) 1382s Removing libapt-pkg6.0:s390x (2.7.12) ... 1382s dpkg: libnettle8:s390x: dependency problems, but removing anyway as you requested: 1382s librtmp1:s390x depends on libnettle8. 1382s libhogweed6:s390x depends on libnettle8. 1382s libgnutls30:s390x depends on libnettle8 (>= 3.9~). 1382s 1382s Removing libnettle8:s390x (3.9.1-2) ... 1382s Selecting previously unselected package libapt-pkg6.0t64:s390x. 1382s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51746 files and directories currently installed.) 1382s Preparing to unpack .../libapt-pkg6.0t64_2.7.14_s390x.deb ... 1382s Unpacking libapt-pkg6.0t64:s390x (2.7.14) ... 1382s Setting up libapt-pkg6.0t64:s390x (2.7.14) ... 1382s Selecting previously unselected package libnettle8t64:s390x. 1382s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51796 files and directories currently installed.) 1382s Preparing to unpack .../libnettle8t64_3.9.1-2.2_s390x.deb ... 1382s Unpacking libnettle8t64:s390x (3.9.1-2.2) ... 1382s Setting up libnettle8t64:s390x (3.9.1-2.2) ... 1382s dpkg: libhogweed6:s390x: dependency problems, but removing anyway as you requested: 1382s librtmp1:s390x depends on libhogweed6. 1382s libgnutls30:s390x depends on libhogweed6 (>= 3.6). 1382s 1382s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51804 files and directories currently installed.) 1382s Removing libhogweed6:s390x (3.9.1-2) ... 1382s Selecting previously unselected package libhogweed6t64:s390x. 1382s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51799 files and directories currently installed.) 1382s Preparing to unpack .../libhogweed6t64_3.9.1-2.2_s390x.deb ... 1382s Unpacking libhogweed6t64:s390x (3.9.1-2.2) ... 1382s Setting up libhogweed6t64:s390x (3.9.1-2.2) ... 1382s dpkg: libgnutls30:s390x: dependency problems, but removing anyway as you requested: 1382s librtmp1:s390x depends on libgnutls30 (>= 3.7.2). 1382s apt depends on libgnutls30 (>= 3.8.1). 1382s 1382s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51805 files and directories currently installed.) 1382s Removing libgnutls30:s390x (3.8.3-1ubuntu1) ... 1382s Selecting previously unselected package libgnutls30t64:s390x. 1382s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51796 files and directories currently installed.) 1382s Preparing to unpack .../libgnutls30t64_3.8.3-1.1ubuntu2_s390x.deb ... 1382s Unpacking libgnutls30t64:s390x (3.8.3-1.1ubuntu2) ... 1382s Setting up libgnutls30t64:s390x (3.8.3-1.1ubuntu2) ... 1382s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51824 files and directories currently installed.) 1382s Preparing to unpack .../archives/apt_2.7.14_s390x.deb ... 1382s Unpacking apt (2.7.14) over (2.7.12) ... 1382s Setting up apt (2.7.14) ... 1383s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51824 files and directories currently installed.) 1383s Preparing to unpack .../0-librtmp1_2.4+20151223.gitfa8646d.1-2build6_s390x.deb ... 1383s Unpacking librtmp1:s390x (2.4+20151223.gitfa8646d.1-2build6) over (2.4+20151223.gitfa8646d.1-2build4) ... 1383s Preparing to unpack .../1-curl_8.5.0-2ubuntu8_s390x.deb ... 1383s Unpacking curl (8.5.0-2ubuntu8) over (8.5.0-2ubuntu2) ... 1383s Preparing to unpack .../2-libbrotli1_1.1.0-2build1_s390x.deb ... 1383s Unpacking libbrotli1:s390x (1.1.0-2build1) over (1.1.0-2) ... 1383s Preparing to unpack .../3-libgssapi-krb5-2_1.20.1-6ubuntu1_s390x.deb ... 1383s Unpacking libgssapi-krb5-2:s390x (1.20.1-6ubuntu1) over (1.20.1-5build1) ... 1383s Preparing to unpack .../4-libkrb5-3_1.20.1-6ubuntu1_s390x.deb ... 1383s Unpacking libkrb5-3:s390x (1.20.1-6ubuntu1) over (1.20.1-5build1) ... 1383s Preparing to unpack .../5-libkrb5support0_1.20.1-6ubuntu1_s390x.deb ... 1383s Unpacking libkrb5support0:s390x (1.20.1-6ubuntu1) over (1.20.1-5build1) ... 1383s Preparing to unpack .../6-libk5crypto3_1.20.1-6ubuntu1_s390x.deb ... 1383s Unpacking libk5crypto3:s390x (1.20.1-6ubuntu1) over (1.20.1-5build1) ... 1383s Preparing to unpack .../7-libcom-err2_1.47.0-2.4~exp1ubuntu2_s390x.deb ... 1383s Unpacking libcom-err2:s390x (1.47.0-2.4~exp1ubuntu2) over (1.47.0-2ubuntu1) ... 1383s Preparing to unpack .../8-libnghttp2-14_1.59.0-1build1_s390x.deb ... 1383s Unpacking libnghttp2-14:s390x (1.59.0-1build1) over (1.59.0-1) ... 1383s dpkg: libcurl4:s390x: dependency problems, but removing anyway as you requested: 1383s s390-tools depends on libcurl4 (>= 7.16.2). 1383s 1383s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51824 files and directories currently installed.) 1383s Removing libcurl4:s390x (8.5.0-2ubuntu2) ... 1383s Selecting previously unselected package libcurl4t64:s390x. 1383s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51819 files and directories currently installed.) 1383s Preparing to unpack .../libcurl4t64_8.5.0-2ubuntu8_s390x.deb ... 1383s Unpacking libcurl4t64:s390x (8.5.0-2ubuntu8) ... 1384s Preparing to unpack .../liblzma5_5.6.0-0.2_s390x.deb ... 1384s Unpacking liblzma5:s390x (5.6.0-0.2) over (5.4.5-0.3) ... 1384s Setting up liblzma5:s390x (5.6.0-0.2) ... 1384s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51825 files and directories currently installed.) 1384s Preparing to unpack .../dbus-session-bus-common_1.14.10-4ubuntu2_all.deb ... 1384s Unpacking dbus-session-bus-common (1.14.10-4ubuntu2) over (1.14.10-4ubuntu1) ... 1384s Preparing to unpack .../libaudit-common_1%3a3.1.2-2.1_all.deb ... 1384s Unpacking libaudit-common (1:3.1.2-2.1) over (1:3.1.2-2) ... 1384s Setting up libaudit-common (1:3.1.2-2.1) ... 1384s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51825 files and directories currently installed.) 1384s Preparing to unpack .../libcap-ng0_0.8.4-2build1_s390x.deb ... 1384s Unpacking libcap-ng0:s390x (0.8.4-2build1) over (0.8.4-2) ... 1384s Setting up libcap-ng0:s390x (0.8.4-2build1) ... 1384s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51825 files and directories currently installed.) 1384s Preparing to unpack .../libaudit1_1%3a3.1.2-2.1_s390x.deb ... 1384s Unpacking libaudit1:s390x (1:3.1.2-2.1) over (1:3.1.2-2) ... 1384s Setting up libaudit1:s390x (1:3.1.2-2.1) ... 1384s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51825 files and directories currently installed.) 1384s Preparing to unpack .../libpam0g_1.5.3-5ubuntu3_s390x.deb ... 1384s Unpacking libpam0g:s390x (1.5.3-5ubuntu3) over (1.5.2-9.1ubuntu3) ... 1384s Setting up libpam0g:s390x (1.5.3-5ubuntu3) ... 1384s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51825 files and directories currently installed.) 1384s Preparing to unpack .../libselinux1_3.5-2ubuntu1_s390x.deb ... 1384s Unpacking libselinux1:s390x (3.5-2ubuntu1) over (3.5-2build1) ... 1384s Setting up libselinux1:s390x (3.5-2ubuntu1) ... 1384s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51825 files and directories currently installed.) 1384s Preparing to unpack .../libpam-modules-bin_1.5.3-5ubuntu3_s390x.deb ... 1384s Unpacking libpam-modules-bin (1.5.3-5ubuntu3) over (1.5.2-9.1ubuntu3) ... 1384s Setting up libpam-modules-bin (1.5.3-5ubuntu3) ... 1384s pam_namespace.service is a disabled or a static unit not running, not starting it. 1385s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51825 files and directories currently installed.) 1385s Preparing to unpack .../libpam-modules_1.5.3-5ubuntu3_s390x.deb ... 1385s Unpacking libpam-modules:s390x (1.5.3-5ubuntu3) over (1.5.2-9.1ubuntu3) ... 1385s Setting up libpam-modules:s390x (1.5.3-5ubuntu3) ... 1385s Installing new version of config file /etc/security/namespace.init ... 1385s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51823 files and directories currently installed.) 1385s Preparing to unpack .../libpam-runtime_1.5.3-5ubuntu3_all.deb ... 1385s Unpacking libpam-runtime (1.5.3-5ubuntu3) over (1.5.2-9.1ubuntu3) ... 1385s Setting up libpam-runtime (1.5.3-5ubuntu3) ... 1385s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51823 files and directories currently installed.) 1385s Preparing to unpack .../0-dbus-user-session_1.14.10-4ubuntu2_s390x.deb ... 1385s Unpacking dbus-user-session (1.14.10-4ubuntu2) over (1.14.10-4ubuntu1) ... 1385s Preparing to unpack .../1-libapparmor1_4.0.0-beta3-0ubuntu2_s390x.deb ... 1385s Unpacking libapparmor1:s390x (4.0.0-beta3-0ubuntu2) over (4.0.0~alpha4-0ubuntu1) ... 1385s Preparing to unpack .../2-dbus-bin_1.14.10-4ubuntu2_s390x.deb ... 1385s Unpacking dbus-bin (1.14.10-4ubuntu2) over (1.14.10-4ubuntu1) ... 1385s Preparing to unpack .../3-dbus-system-bus-common_1.14.10-4ubuntu2_all.deb ... 1385s Unpacking dbus-system-bus-common (1.14.10-4ubuntu2) over (1.14.10-4ubuntu1) ... 1385s Preparing to unpack .../4-dbus_1.14.10-4ubuntu2_s390x.deb ... 1385s Unpacking dbus (1.14.10-4ubuntu2) over (1.14.10-4ubuntu1) ... 1385s Preparing to unpack .../5-dbus-daemon_1.14.10-4ubuntu2_s390x.deb ... 1385s Unpacking dbus-daemon (1.14.10-4ubuntu2) over (1.14.10-4ubuntu1) ... 1385s Preparing to unpack .../6-libdbus-1-3_1.14.10-4ubuntu2_s390x.deb ... 1385s Unpacking libdbus-1-3:s390x (1.14.10-4ubuntu2) over (1.14.10-4ubuntu1) ... 1385s Preparing to unpack .../7-kmod_31+20240202-2ubuntu4_s390x.deb ... 1385s Unpacking kmod (31+20240202-2ubuntu4) over (30+20230601-2ubuntu1) ... 1385s Preparing to unpack .../8-libkmod2_31+20240202-2ubuntu4_s390x.deb ... 1385s Unpacking libkmod2:s390x (31+20240202-2ubuntu4) over (30+20230601-2ubuntu1) ... 1385s Preparing to unpack .../9-libmount1_2.39.3-9ubuntu2_s390x.deb ... 1385s Unpacking libmount1:s390x (2.39.3-9ubuntu2) over (2.39.3-6ubuntu2) ... 1385s Setting up libmount1:s390x (2.39.3-9ubuntu2) ... 1385s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51823 files and directories currently installed.) 1385s Preparing to unpack .../libcryptsetup12_2%3a2.7.0-1ubuntu2_s390x.deb ... 1385s Unpacking libcryptsetup12:s390x (2:2.7.0-1ubuntu2) over (2:2.7.0-1ubuntu1) ... 1385s Preparing to unpack .../libfdisk1_2.39.3-9ubuntu2_s390x.deb ... 1385s Unpacking libfdisk1:s390x (2.39.3-9ubuntu2) over (2.39.3-6ubuntu2) ... 1385s Preparing to unpack .../mount_2.39.3-9ubuntu2_s390x.deb ... 1385s Unpacking mount (2.39.3-9ubuntu2) over (2.39.3-6ubuntu2) ... 1385s Preparing to unpack .../dpkg_1.22.6ubuntu5_s390x.deb ... 1385s Unpacking dpkg (1.22.6ubuntu5) over (1.22.4ubuntu5) ... 1385s Setting up dpkg (1.22.6ubuntu5) ... 1386s Setting up libpython3.12-minimal:s390x (3.12.2-4build3) ... 1386s Setting up python3.12-minimal (3.12.2-4build3) ... 1387s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51823 files and directories currently installed.) 1387s Preparing to unpack .../python3-minimal_3.12.2-0ubuntu1_s390x.deb ... 1387s Unpacking python3-minimal (3.12.2-0ubuntu1) over (3.12.1-0ubuntu2) ... 1387s Setting up python3-minimal (3.12.2-0ubuntu1) ... 1387s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51823 files and directories currently installed.) 1387s Preparing to unpack .../python3_3.12.2-0ubuntu1_s390x.deb ... 1387s Unpacking python3 (3.12.2-0ubuntu1) over (3.12.1-0ubuntu2) ... 1387s Preparing to unpack .../libpython3-stdlib_3.12.2-0ubuntu1_s390x.deb ... 1387s Unpacking libpython3-stdlib:s390x (3.12.2-0ubuntu1) over (3.12.1-0ubuntu2) ... 1387s Preparing to unpack .../libsmartcols1_2.39.3-9ubuntu2_s390x.deb ... 1387s Unpacking libsmartcols1:s390x (2.39.3-9ubuntu2) over (2.39.3-6ubuntu2) ... 1387s Setting up libsmartcols1:s390x (2.39.3-9ubuntu2) ... 1387s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51823 files and directories currently installed.) 1387s Preparing to unpack .../0-bsdextrautils_2.39.3-9ubuntu2_s390x.deb ... 1387s Unpacking bsdextrautils (2.39.3-9ubuntu2) over (2.39.3-6ubuntu2) ... 1387s Preparing to unpack .../1-groff-base_1.23.0-3build1_s390x.deb ... 1387s Unpacking groff-base (1.23.0-3build1) over (1.23.0-3) ... 1387s Preparing to unpack .../2-libsqlite3-0_3.45.1-1ubuntu1_s390x.deb ... 1387s Unpacking libsqlite3-0:s390x (3.45.1-1ubuntu1) over (3.45.1-1) ... 1387s Preparing to unpack .../3-pinentry-curses_1.2.1-3ubuntu4_s390x.deb ... 1387s Unpacking pinentry-curses (1.2.1-3ubuntu4) over (1.2.1-3ubuntu1) ... 1387s Preparing to unpack .../4-readline-common_8.2-4_all.deb ... 1387s Unpacking readline-common (8.2-4) over (8.2-3) ... 1387s Preparing to unpack .../5-libpcsclite1_2.0.3-1_s390x.deb ... 1387s Unpacking libpcsclite1:s390x (2.0.3-1) over (2.0.0-1) ... 1387s Preparing to unpack .../6-libfido2-1_1.14.0-1build1_s390x.deb ... 1387s Unpacking libfido2-1:s390x (1.14.0-1build1) over (1.14.0-1) ... 1387s Preparing to unpack .../7-libproc2-0_2%3a4.0.4-4ubuntu2_s390x.deb ... 1387s Unpacking libproc2-0:s390x (2:4.0.4-4ubuntu2) over (2:4.0.4-4ubuntu1) ... 1388s Preparing to unpack .../8-procps_2%3a4.0.4-4ubuntu2_s390x.deb ... 1388s Unpacking procps (2:4.0.4-4ubuntu2) over (2:4.0.4-4ubuntu1) ... 1388s Preparing to unpack .../9-coreutils_9.4-3ubuntu3_s390x.deb ... 1388s Unpacking coreutils (9.4-3ubuntu3) over (9.4-2ubuntu4) ... 1388s Setting up coreutils (9.4-3ubuntu3) ... 1388s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51824 files and directories currently installed.) 1388s Preparing to unpack .../util-linux-extra_2.39.3-9ubuntu2_s390x.deb ... 1388s Unpacking util-linux-extra (2.39.3-9ubuntu2) over (2.39.3-6ubuntu2) ... 1388s Preparing to unpack .../util-linux_2.39.3-9ubuntu2_s390x.deb ... 1388s Unpacking util-linux (2.39.3-9ubuntu2) over (2.39.3-6ubuntu2) ... 1388s Setting up util-linux (2.39.3-9ubuntu2) ... 1389s fstrim.service is a disabled or a static unit not running, not starting it. 1389s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51824 files and directories currently installed.) 1389s Preparing to unpack .../libxml2_2.9.14+dfsg-1.3ubuntu2_s390x.deb ... 1389s Unpacking libxml2:s390x (2.9.14+dfsg-1.3ubuntu2) over (2.9.14+dfsg-1.3ubuntu1) ... 1389s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51824 files and directories currently installed.) 1389s Removing libatm1:s390x (1:2.5.1-5) ... 1389s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51819 files and directories currently installed.) 1389s Preparing to unpack .../libbpf1_1%3a1.3.0-2build1_s390x.deb ... 1389s Unpacking libbpf1:s390x (1:1.3.0-2build1) over (1:1.3.0-2) ... 1389s Preparing to unpack .../iproute2_6.1.0-1ubuntu5_s390x.deb ... 1389s Unpacking iproute2 (6.1.0-1ubuntu5) over (6.1.0-1ubuntu2) ... 1389s dpkg: libelf1:s390x: dependency problems, but removing anyway as you requested: 1389s linux-headers-6.8.0-11-generic depends on libelf1 (>= 0.144). 1389s 1389s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51819 files and directories currently installed.) 1389s Removing libelf1:s390x (0.190-1) ... 1389s Selecting previously unselected package libelf1t64:s390x. 1389s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51814 files and directories currently installed.) 1389s Preparing to unpack .../libelf1t64_0.190-1.1build2_s390x.deb ... 1389s Unpacking libelf1t64:s390x (0.190-1.1build2) ... 1389s Preparing to unpack .../file_1%3a5.45-3_s390x.deb ... 1389s Unpacking file (1:5.45-3) over (1:5.45-2) ... 1389s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51819 files and directories currently installed.) 1389s Removing libmagic1:s390x (1:5.45-2) ... 1389s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51809 files and directories currently installed.) 1389s Preparing to unpack .../libmagic-mgc_1%3a5.45-3_s390x.deb ... 1389s Unpacking libmagic-mgc (1:5.45-3) over (1:5.45-2) ... 1389s Selecting previously unselected package libmagic1t64:s390x. 1389s Preparing to unpack .../libmagic1t64_1%3a5.45-3_s390x.deb ... 1389s Unpacking libmagic1t64:s390x (1:5.45-3) ... 1389s Preparing to unpack .../libplymouth5_24.004.60-1ubuntu6_s390x.deb ... 1389s Unpacking libplymouth5:s390x (24.004.60-1ubuntu6) over (24.004.60-1ubuntu3) ... 1389s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51820 files and directories currently installed.) 1389s Removing libpng16-16:s390x (1.6.43-1) ... 1389s Selecting previously unselected package libpng16-16t64:s390x. 1389s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51810 files and directories currently installed.) 1389s Preparing to unpack .../libpng16-16t64_1.6.43-3_s390x.deb ... 1389s Unpacking libpng16-16t64:s390x (1.6.43-3) ... 1389s Preparing to unpack .../libtirpc-common_1.3.4+ds-1.1_all.deb ... 1389s Unpacking libtirpc-common (1.3.4+ds-1.1) over (1.3.4+ds-1build1) ... 1389s Preparing to unpack .../lsof_4.95.0-1build2_s390x.deb ... 1389s Unpacking lsof (4.95.0-1build2) over (4.95.0-1build1) ... 1389s Preparing to unpack .../libnsl2_1.3.0-3build2_s390x.deb ... 1389s Unpacking libnsl2:s390x (1.3.0-3build2) over (1.3.0-3) ... 1389s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51821 files and directories currently installed.) 1389s Removing libtirpc3:s390x (1.3.4+ds-1build1) ... 1389s Selecting previously unselected package libtirpc3t64:s390x. 1389s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51815 files and directories currently installed.) 1389s Preparing to unpack .../libtirpc3t64_1.3.4+ds-1.1_s390x.deb ... 1389s Adding 'diversion of /lib/s390x-linux-gnu/libtirpc.so.3 to /lib/s390x-linux-gnu/libtirpc.so.3.usr-is-merged by libtirpc3t64' 1389s Adding 'diversion of /lib/s390x-linux-gnu/libtirpc.so.3.0.0 to /lib/s390x-linux-gnu/libtirpc.so.3.0.0.usr-is-merged by libtirpc3t64' 1389s Unpacking libtirpc3t64:s390x (1.3.4+ds-1.1) ... 1389s Preparing to unpack .../multipath-tools_0.9.4-5ubuntu6_s390x.deb ... 1389s Unpacking multipath-tools (0.9.4-5ubuntu6) over (0.9.4-5ubuntu3) ... 1390s dpkg: liburcu8:s390x: dependency problems, but removing anyway as you requested: 1390s xfsprogs depends on liburcu8 (>= 0.13.0). 1390s 1390s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51825 files and directories currently installed.) 1390s Removing liburcu8:s390x (0.14.0-3) ... 1390s Selecting previously unselected package liburcu8t64:s390x. 1390s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51806 files and directories currently installed.) 1390s Preparing to unpack .../liburcu8t64_0.14.0-3.1_s390x.deb ... 1390s Unpacking liburcu8t64:s390x (0.14.0-3.1) ... 1390s Preparing to unpack .../bind9-host_1%3a9.18.24-0ubuntu3_s390x.deb ... 1390s Unpacking bind9-host (1:9.18.24-0ubuntu3) over (1:9.18.21-0ubuntu1) ... 1390s Preparing to unpack .../bind9-dnsutils_1%3a9.18.24-0ubuntu3_s390x.deb ... 1390s Unpacking bind9-dnsutils (1:9.18.24-0ubuntu3) over (1:9.18.21-0ubuntu1) ... 1390s Preparing to unpack .../bind9-libs_1%3a9.18.24-0ubuntu3_s390x.deb ... 1390s Unpacking bind9-libs:s390x (1:9.18.24-0ubuntu3) over (1:9.18.21-0ubuntu1) ... 1390s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51826 files and directories currently installed.) 1390s Removing libuv1:s390x (1.48.0-1) ... 1390s Selecting previously unselected package libuv1t64:s390x. 1390s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51821 files and directories currently installed.) 1390s Preparing to unpack .../libuv1t64_1.48.0-1.1_s390x.deb ... 1390s Unpacking libuv1t64:s390x (1.48.0-1.1) ... 1390s Preparing to unpack .../liblocale-gettext-perl_1.07-6ubuntu4_s390x.deb ... 1390s Unpacking liblocale-gettext-perl (1.07-6ubuntu4) over (1.07-6build1) ... 1390s Preparing to unpack .../uuid-runtime_2.39.3-9ubuntu2_s390x.deb ... 1390s Unpacking uuid-runtime (2.39.3-9ubuntu2) over (2.39.3-6ubuntu2) ... 1390s Preparing to unpack .../libdebconfclient0_0.271ubuntu2_s390x.deb ... 1390s Unpacking libdebconfclient0:s390x (0.271ubuntu2) over (0.271ubuntu1) ... 1390s Setting up libdebconfclient0:s390x (0.271ubuntu2) ... 1390s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51827 files and directories currently installed.) 1390s Preparing to unpack .../libsemanage-common_3.5-1build4_all.deb ... 1390s Unpacking libsemanage-common (3.5-1build4) over (3.5-1build2) ... 1390s Setting up libsemanage-common (3.5-1build4) ... 1390s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51827 files and directories currently installed.) 1390s Preparing to unpack .../libsemanage2_3.5-1build4_s390x.deb ... 1390s Unpacking libsemanage2:s390x (3.5-1build4) over (3.5-1build2) ... 1390s Setting up libsemanage2:s390x (3.5-1build4) ... 1390s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51827 files and directories currently installed.) 1390s Preparing to unpack .../install-info_7.1-3build1_s390x.deb ... 1390s Unpacking install-info (7.1-3build1) over (7.1-3) ... 1390s Setting up install-info (7.1-3build1) ... 1390s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51827 files and directories currently installed.) 1390s Preparing to unpack .../00-libss2_1.47.0-2.4~exp1ubuntu2_s390x.deb ... 1390s Unpacking libss2:s390x (1.47.0-2.4~exp1ubuntu2) over (1.47.0-2ubuntu1) ... 1390s Preparing to unpack .../01-dhcpcd-base_1%3a10.0.6-1ubuntu2_s390x.deb ... 1390s Unpacking dhcpcd-base (1:10.0.6-1ubuntu2) over (1:10.0.6-1ubuntu1) ... 1390s Preparing to unpack .../02-eject_2.39.3-9ubuntu2_s390x.deb ... 1390s Unpacking eject (2.39.3-9ubuntu2) over (2.39.3-6ubuntu2) ... 1390s Preparing to unpack .../03-libglib2.0-data_2.79.3-3ubuntu5_all.deb ... 1390s Unpacking libglib2.0-data (2.79.3-3ubuntu5) over (2.79.2-1~ubuntu1) ... 1390s Preparing to unpack .../04-libslang2_2.3.3-3build1_s390x.deb ... 1390s Unpacking libslang2:s390x (2.3.3-3build1) over (2.3.3-3) ... 1390s Preparing to unpack .../05-libtext-charwidth-perl_0.04-11build2_s390x.deb ... 1390s Unpacking libtext-charwidth-perl:s390x (0.04-11build2) over (0.04-11build1) ... 1390s Preparing to unpack .../06-libtext-iconv-perl_1.7-8build2_s390x.deb ... 1390s Unpacking libtext-iconv-perl:s390x (1.7-8build2) over (1.7-8build1) ... 1390s Preparing to unpack .../07-python3-yaml_6.0.1-2build1_s390x.deb ... 1390s Unpacking python3-yaml (6.0.1-2build1) over (6.0.1-2) ... 1390s Preparing to unpack .../08-python-apt-common_2.7.7_all.deb ... 1390s Unpacking python-apt-common (2.7.7) over (2.7.6) ... 1390s Preparing to unpack .../09-python3-setuptools_68.1.2-2ubuntu1_all.deb ... 1390s Unpacking python3-setuptools (68.1.2-2ubuntu1) over (68.1.2-2) ... 1391s Preparing to unpack .../10-python3-pkg-resources_68.1.2-2ubuntu1_all.deb ... 1391s Unpacking python3-pkg-resources (68.1.2-2ubuntu1) over (68.1.2-2) ... 1391s Preparing to unpack .../11-rsyslog_8.2312.0-3ubuntu7_s390x.deb ... 1391s Unpacking rsyslog (8.2312.0-3ubuntu7) over (8.2312.0-3ubuntu3) ... 1391s Preparing to unpack .../12-vim-tiny_2%3a9.1.0016-1ubuntu6_s390x.deb ... 1391s Unpacking vim-tiny (2:9.1.0016-1ubuntu6) over (2:9.1.0016-1ubuntu2) ... 1391s Preparing to unpack .../13-vim-common_2%3a9.1.0016-1ubuntu6_all.deb ... 1391s Unpacking vim-common (2:9.1.0016-1ubuntu6) over (2:9.1.0016-1ubuntu2) ... 1391s Selecting previously unselected package xdg-user-dirs. 1391s Preparing to unpack .../14-xdg-user-dirs_0.18-1_s390x.deb ... 1391s Unpacking xdg-user-dirs (0.18-1) ... 1391s Preparing to unpack .../15-xxd_2%3a9.1.0016-1ubuntu6_s390x.deb ... 1391s Unpacking xxd (2:9.1.0016-1ubuntu6) over (2:9.1.0016-1ubuntu2) ... 1391s Preparing to unpack .../16-apparmor_4.0.0-beta3-0ubuntu2_s390x.deb ... 1391s Unpacking apparmor (4.0.0-beta3-0ubuntu2) over (4.0.0~alpha4-0ubuntu1) ... 1391s Preparing to unpack .../17-ftp_20230507-2build1_all.deb ... 1391s Unpacking ftp (20230507-2build1) over (20230507-2) ... 1391s Preparing to unpack .../18-inetutils-telnet_2%3a2.5-3ubuntu3_s390x.deb ... 1391s Unpacking inetutils-telnet (2:2.5-3ubuntu3) over (2:2.5-3ubuntu1) ... 1391s Preparing to unpack .../19-info_7.1-3build1_s390x.deb ... 1391s Unpacking info (7.1-3build1) over (7.1-3) ... 1391s Preparing to unpack .../20-libxmuu1_2%3a1.1.3-3build1_s390x.deb ... 1391s Unpacking libxmuu1:s390x (2:1.1.3-3build1) over (2:1.1.3-3) ... 1392s Preparing to unpack .../21-lshw_02.19.git.2021.06.19.996aaad9c7-2build2_s390x.deb ... 1392s Unpacking lshw (02.19.git.2021.06.19.996aaad9c7-2build2) over (02.19.git.2021.06.19.996aaad9c7-2build1) ... 1392s Selecting previously unselected package manpages. 1392s Preparing to unpack .../22-manpages_6.05.01-1_all.deb ... 1392s Unpacking manpages (6.05.01-1) ... 1392s Preparing to unpack .../23-mtr-tiny_0.95-1.1build1_s390x.deb ... 1392s Unpacking mtr-tiny (0.95-1.1build1) over (0.95-1.1) ... 1392s Preparing to unpack .../24-plymouth-theme-ubuntu-text_24.004.60-1ubuntu6_s390x.deb ... 1392s Unpacking plymouth-theme-ubuntu-text (24.004.60-1ubuntu6) over (24.004.60-1ubuntu3) ... 1392s Preparing to unpack .../25-plymouth_24.004.60-1ubuntu6_s390x.deb ... 1392s Unpacking plymouth (24.004.60-1ubuntu6) over (24.004.60-1ubuntu3) ... 1392s Preparing to unpack .../26-telnet_0.17+2.5-3ubuntu3_all.deb ... 1392s Unpacking telnet (0.17+2.5-3ubuntu3) over (0.17+2.5-3ubuntu1) ... 1392s Preparing to unpack .../27-usb.ids_2024.03.18-1_all.deb ... 1392s Unpacking usb.ids (2024.03.18-1) over (2024.01.30-1) ... 1392s Preparing to unpack .../28-xz-utils_5.6.0-0.2_s390x.deb ... 1392s Unpacking xz-utils (5.6.0-0.2) over (5.4.5-0.3) ... 1392s Selecting previously unselected package libllvm18:s390x. 1392s Preparing to unpack .../29-libllvm18_1%3a18.1.2-1ubuntu2_s390x.deb ... 1392s Unpacking libllvm18:s390x (1:18.1.2-1ubuntu2) ... 1393s Selecting previously unselected package libclang-cpp18. 1393s Preparing to unpack .../30-libclang-cpp18_1%3a18.1.2-1ubuntu2_s390x.deb ... 1393s Unpacking libclang-cpp18 (1:18.1.2-1ubuntu2) ... 1394s Selecting previously unselected package libbpfcc:s390x. 1394s Preparing to unpack .../31-libbpfcc_0.29.1+ds-1ubuntu4_s390x.deb ... 1394s Unpacking libbpfcc:s390x (0.29.1+ds-1ubuntu4) ... 1394s Selecting previously unselected package python3-bpfcc. 1394s Preparing to unpack .../32-python3-bpfcc_0.29.1+ds-1ubuntu4_all.deb ... 1394s Unpacking python3-bpfcc (0.29.1+ds-1ubuntu4) ... 1394s Selecting previously unselected package ieee-data. 1394s Preparing to unpack .../33-ieee-data_20220827.1_all.deb ... 1394s Unpacking ieee-data (20220827.1) ... 1394s Selecting previously unselected package python3-netaddr. 1394s Preparing to unpack .../34-python3-netaddr_0.8.0-2ubuntu1_all.deb ... 1394s Unpacking python3-netaddr (0.8.0-2ubuntu1) ... 1394s Selecting previously unselected package bpfcc-tools. 1394s Preparing to unpack .../35-bpfcc-tools_0.29.1+ds-1ubuntu4_all.deb ... 1394s Unpacking bpfcc-tools (0.29.1+ds-1ubuntu4) ... 1394s Selecting previously unselected package libclang1-18. 1394s Preparing to unpack .../36-libclang1-18_1%3a18.1.2-1ubuntu2_s390x.deb ... 1394s Unpacking libclang1-18 (1:18.1.2-1ubuntu2) ... 1394s Selecting previously unselected package libdw1t64:s390x. 1394s Preparing to unpack .../37-libdw1t64_0.190-1.1build2_s390x.deb ... 1394s Unpacking libdw1t64:s390x (0.190-1.1build2) ... 1394s Selecting previously unselected package bpftrace. 1394s Preparing to unpack .../38-bpftrace_0.20.2-1ubuntu1_s390x.deb ... 1394s Unpacking bpftrace (0.20.2-1ubuntu1) ... 1394s Preparing to unpack .../39-cryptsetup-bin_2%3a2.7.0-1ubuntu2_s390x.deb ... 1394s Unpacking cryptsetup-bin (2:2.7.0-1ubuntu2) over (2:2.7.0-1ubuntu1) ... 1394s Preparing to unpack .../40-dpkg-dev_1.22.6ubuntu5_all.deb ... 1394s Unpacking dpkg-dev (1.22.6ubuntu5) over (1.22.4ubuntu5) ... 1394s Preparing to unpack .../41-libdpkg-perl_1.22.6ubuntu5_all.deb ... 1394s Unpacking libdpkg-perl (1.22.6ubuntu5) over (1.22.4ubuntu5) ... 1394s Selecting previously unselected package fonts-dejavu-mono. 1394s Preparing to unpack .../42-fonts-dejavu-mono_2.37-8_all.deb ... 1394s Unpacking fonts-dejavu-mono (2.37-8) ... 1394s Selecting previously unselected package fonts-dejavu-core. 1394s Preparing to unpack .../43-fonts-dejavu-core_2.37-8_all.deb ... 1394s Unpacking fonts-dejavu-core (2.37-8) ... 1394s Selecting previously unselected package fontconfig-config. 1395s Preparing to unpack .../44-fontconfig-config_2.15.0-1.1ubuntu1_s390x.deb ... 1395s Unpacking fontconfig-config (2.15.0-1.1ubuntu1) ... 1395s Preparing to unpack .../45-libprotobuf-c1_1.4.1-1ubuntu3_s390x.deb ... 1396s Unpacking libprotobuf-c1:s390x (1.4.1-1ubuntu3) over (1.4.1-1ubuntu2) ... 1396s Selecting previously unselected package hwdata. 1396s Preparing to unpack .../46-hwdata_0.379-1_all.deb ... 1396s Unpacking hwdata (0.379-1) ... 1396s Preparing to unpack .../47-libibverbs1_50.0-2build1_s390x.deb ... 1396s Unpacking libibverbs1:s390x (50.0-2build1) over (50.0-2) ... 1396s Preparing to unpack .../48-ibverbs-providers_50.0-2build1_s390x.deb ... 1396s Unpacking ibverbs-providers:s390x (50.0-2build1) over (50.0-2) ... 1396s Selecting previously unselected package libaio1t64:s390x. 1396s Preparing to unpack .../49-libaio1t64_0.3.113-6_s390x.deb ... 1396s Unpacking libaio1t64:s390x (0.3.113-6) ... 1396s Selecting previously unselected package libatm1t64:s390x. 1396s Preparing to unpack .../50-libatm1t64_1%3a2.5.1-5.1_s390x.deb ... 1396s Unpacking libatm1t64:s390x (1:2.5.1-5.1) ... 1396s Selecting previously unselected package libc-dev-bin. 1396s Preparing to unpack .../51-libc-dev-bin_2.39-0ubuntu6_s390x.deb ... 1396s Unpacking libc-dev-bin (2.39-0ubuntu6) ... 1396s Selecting previously unselected package libfreetype6:s390x. 1396s Preparing to unpack .../52-libfreetype6_2.13.2+dfsg-1build2_s390x.deb ... 1396s Unpacking libfreetype6:s390x (2.13.2+dfsg-1build2) ... 1396s Selecting previously unselected package libfontconfig1:s390x. 1396s Preparing to unpack .../53-libfontconfig1_2.15.0-1.1ubuntu1_s390x.deb ... 1396s Unpacking libfontconfig1:s390x (2.15.0-1.1ubuntu1) ... 1396s Selecting previously unselected package libjpeg-turbo8:s390x. 1396s Preparing to unpack .../54-libjpeg-turbo8_2.1.5-2ubuntu1_s390x.deb ... 1396s Unpacking libjpeg-turbo8:s390x (2.1.5-2ubuntu1) ... 1396s Selecting previously unselected package libjpeg8:s390x. 1396s Preparing to unpack .../55-libjpeg8_8c-2ubuntu11_s390x.deb ... 1396s Unpacking libjpeg8:s390x (8c-2ubuntu11) ... 1396s Selecting previously unselected package libdeflate0:s390x. 1396s Preparing to unpack .../56-libdeflate0_1.19-1_s390x.deb ... 1396s Unpacking libdeflate0:s390x (1.19-1) ... 1396s Selecting previously unselected package libjbig0:s390x. 1396s Preparing to unpack .../57-libjbig0_2.1-6.1ubuntu1_s390x.deb ... 1396s Unpacking libjbig0:s390x (2.1-6.1ubuntu1) ... 1396s Selecting previously unselected package libsharpyuv0:s390x. 1396s Preparing to unpack .../58-libsharpyuv0_1.3.2-0.4build2_s390x.deb ... 1396s Unpacking libsharpyuv0:s390x (1.3.2-0.4build2) ... 1396s Selecting previously unselected package libwebp7:s390x. 1396s Preparing to unpack .../59-libwebp7_1.3.2-0.4build2_s390x.deb ... 1396s Unpacking libwebp7:s390x (1.3.2-0.4build2) ... 1396s Selecting previously unselected package libtiff6:s390x. 1396s Preparing to unpack .../60-libtiff6_4.5.1+git230720-4ubuntu1_s390x.deb ... 1396s Unpacking libtiff6:s390x (4.5.1+git230720-4ubuntu1) ... 1396s Selecting previously unselected package libxpm4:s390x. 1396s Preparing to unpack .../61-libxpm4_1%3a3.5.17-1build1_s390x.deb ... 1396s Unpacking libxpm4:s390x (1:3.5.17-1build1) ... 1396s Selecting previously unselected package libgd3:s390x. 1396s Preparing to unpack .../62-libgd3_2.3.3-9ubuntu3_s390x.deb ... 1396s Unpacking libgd3:s390x (2.3.3-9ubuntu3) ... 1396s Selecting previously unselected package libc-devtools. 1396s Preparing to unpack .../63-libc-devtools_2.39-0ubuntu6_s390x.deb ... 1396s Unpacking libc-devtools (2.39-0ubuntu6) ... 1396s Selecting previously unselected package linux-libc-dev:s390x. 1396s Preparing to unpack .../64-linux-libc-dev_6.8.0-20.20_s390x.deb ... 1396s Unpacking linux-libc-dev:s390x (6.8.0-20.20) ... 1396s Selecting previously unselected package libcrypt-dev:s390x. 1396s Preparing to unpack .../65-libcrypt-dev_1%3a4.4.36-4_s390x.deb ... 1396s Unpacking libcrypt-dev:s390x (1:4.4.36-4) ... 1396s Selecting previously unselected package rpcsvc-proto. 1396s Preparing to unpack .../66-rpcsvc-proto_1.4.2-0ubuntu6_s390x.deb ... 1396s Unpacking rpcsvc-proto (1.4.2-0ubuntu6) ... 1396s Selecting previously unselected package libc6-dev:s390x. 1396s Preparing to unpack .../67-libc6-dev_2.39-0ubuntu6_s390x.deb ... 1396s Unpacking libc6-dev:s390x (2.39-0ubuntu6) ... 1396s Preparing to unpack .../68-libevent-core-2.1-7_2.1.12-stable-9build1_s390x.deb ... 1396s Unpacking libevent-core-2.1-7:s390x (2.1.12-stable-9build1) over (2.1.12-stable-9) ... 1396s Preparing to unpack .../69-libldap-common_2.6.7+dfsg-1~exp1ubuntu6_all.deb ... 1396s Unpacking libldap-common (2.6.7+dfsg-1~exp1ubuntu6) over (2.6.7+dfsg-1~exp1ubuntu1) ... 1396s Selecting previously unselected package linux-modules-6.8.0-20-generic. 1396s Preparing to unpack .../70-linux-modules-6.8.0-20-generic_6.8.0-20.20_s390x.deb ... 1396s Unpacking linux-modules-6.8.0-20-generic (6.8.0-20.20) ... 1396s Selecting previously unselected package linux-image-6.8.0-20-generic. 1396s Preparing to unpack .../71-linux-image-6.8.0-20-generic_6.8.0-20.20_s390x.deb ... 1396s Unpacking linux-image-6.8.0-20-generic (6.8.0-20.20) ... 1396s Selecting previously unselected package linux-modules-extra-6.8.0-20-generic. 1396s Preparing to unpack .../72-linux-modules-extra-6.8.0-20-generic_6.8.0-20.20_s390x.deb ... 1396s Unpacking linux-modules-extra-6.8.0-20-generic (6.8.0-20.20) ... 1396s Preparing to unpack .../73-linux-generic_6.8.0-20.20+1_s390x.deb ... 1396s Unpacking linux-generic (6.8.0-20.20+1) over (6.8.0-11.11+1) ... 1396s Preparing to unpack .../74-linux-image-generic_6.8.0-20.20+1_s390x.deb ... 1396s Unpacking linux-image-generic (6.8.0-20.20+1) over (6.8.0-11.11+1) ... 1396s Preparing to unpack .../75-linux-virtual_6.8.0-20.20+1_s390x.deb ... 1396s Unpacking linux-virtual (6.8.0-20.20+1) over (6.8.0-11.11+1) ... 1396s Preparing to unpack .../76-linux-image-virtual_6.8.0-20.20+1_s390x.deb ... 1396s Unpacking linux-image-virtual (6.8.0-20.20+1) over (6.8.0-11.11+1) ... 1396s Preparing to unpack .../77-linux-headers-virtual_6.8.0-20.20+1_s390x.deb ... 1396s Unpacking linux-headers-virtual (6.8.0-20.20+1) over (6.8.0-11.11+1) ... 1396s Selecting previously unselected package linux-headers-6.8.0-20. 1396s Preparing to unpack .../78-linux-headers-6.8.0-20_6.8.0-20.20_all.deb ... 1396s Unpacking linux-headers-6.8.0-20 (6.8.0-20.20) ... 1398s Selecting previously unselected package linux-headers-6.8.0-20-generic. 1398s Preparing to unpack .../79-linux-headers-6.8.0-20-generic_6.8.0-20.20_s390x.deb ... 1398s Unpacking linux-headers-6.8.0-20-generic (6.8.0-20.20) ... 1399s Preparing to unpack .../80-linux-headers-generic_6.8.0-20.20+1_s390x.deb ... 1399s Unpacking linux-headers-generic (6.8.0-20.20+1) over (6.8.0-11.11+1) ... 1399s Selecting previously unselected package linux-tools-common. 1399s Preparing to unpack .../81-linux-tools-common_6.8.0-20.20_all.deb ... 1399s Unpacking linux-tools-common (6.8.0-20.20) ... 1399s Selecting previously unselected package linux-tools-6.8.0-20. 1399s Preparing to unpack .../82-linux-tools-6.8.0-20_6.8.0-20.20_s390x.deb ... 1399s Unpacking linux-tools-6.8.0-20 (6.8.0-20.20) ... 1399s Selecting previously unselected package linux-tools-6.8.0-20-generic. 1399s Preparing to unpack .../83-linux-tools-6.8.0-20-generic_6.8.0-20.20_s390x.deb ... 1399s Unpacking linux-tools-6.8.0-20-generic (6.8.0-20.20) ... 1399s Selecting previously unselected package manpages-dev. 1399s Preparing to unpack .../84-manpages-dev_6.05.01-1_all.deb ... 1399s Unpacking manpages-dev (6.05.01-1) ... 1399s Preparing to unpack .../85-python3-distutils_3.12.2-3ubuntu1.1_all.deb ... 1399s Unpacking python3-distutils (3.12.2-3ubuntu1.1) over (3.11.5-1) ... 1399s Preparing to unpack .../86-python3-lib2to3_3.12.2-3ubuntu1.1_all.deb ... 1399s Unpacking python3-lib2to3 (3.12.2-3ubuntu1.1) over (3.11.5-1) ... 1399s Preparing to unpack .../87-python3-pyrsistent_0.20.0-1build1_s390x.deb ... 1399s Unpacking python3-pyrsistent:s390x (0.20.0-1build1) over (0.20.0-1) ... 1399s Preparing to unpack .../88-s390-tools-data_2.31.0-0ubuntu3_all.deb ... 1399s Unpacking s390-tools-data (2.31.0-0ubuntu3) over (2.31.0-0ubuntu1) ... 1400s Selecting previously unselected package ubuntu-kernel-accessories. 1400s Preparing to unpack .../89-ubuntu-kernel-accessories_1.536build1_s390x.deb ... 1400s Unpacking ubuntu-kernel-accessories (1.536build1) ... 1400s Preparing to unpack .../90-kpartx_0.9.4-5ubuntu6_s390x.deb ... 1400s Unpacking kpartx (0.9.4-5ubuntu6) over (0.9.4-5ubuntu3) ... 1400s Setting up pinentry-curses (1.2.1-3ubuntu4) ... 1400s Setting up motd-news-config (13ubuntu8) ... 1400s Setting up libtext-iconv-perl:s390x (1.7-8build2) ... 1400s Setting up libtext-charwidth-perl:s390x (0.04-11build2) ... 1400s Setting up libsharpyuv0:s390x (1.3.2-0.4build2) ... 1400s Setting up liburcu8t64:s390x (0.14.0-3.1) ... 1400s Setting up tcpdump (4.99.4-3ubuntu2) ... 1400s Setting up libibverbs1:s390x (50.0-2build1) ... 1400s Setting up systemd-sysv (255.4-1ubuntu5) ... 1400s Setting up ubuntu-kernel-accessories (1.536build1) ... 1400s Setting up libapparmor1:s390x (4.0.0-beta3-0ubuntu2) ... 1400s Setting up libatm1t64:s390x (1:2.5.1-5.1) ... 1400s Setting up libgdbm6t64:s390x (1.23-5.1) ... 1400s Setting up bsdextrautils (2.39.3-9ubuntu2) ... 1400s Setting up libxpm4:s390x (1:3.5.17-1build1) ... 1400s Setting up libgdbm-compat4t64:s390x (1.23-5.1) ... 1400s Setting up xdg-user-dirs (0.18-1) ... 1400s Setting up ibverbs-providers:s390x (50.0-2build1) ... 1400s Setting up linux-headers-6.8.0-20 (6.8.0-20.20) ... 1400s Setting up libmagic-mgc (1:5.45-3) ... 1400s Setting up gawk (1:5.2.1-2build2) ... 1400s Setting up manpages (6.05.01-1) ... 1400s Setting up libtirpc-common (1.3.4+ds-1.1) ... 1400s Setting up libbrotli1:s390x (1.1.0-2build1) ... 1400s Setting up libsqlite3-0:s390x (3.45.1-1ubuntu1) ... 1400s Setting up libsasl2-modules:s390x (2.1.28+dfsg1-5ubuntu1) ... 1400s Setting up libuv1t64:s390x (1.48.0-1.1) ... 1400s Setting up libmagic1t64:s390x (1:5.45-3) ... 1400s Setting up rsyslog (8.2312.0-3ubuntu7) ... 1400s info: The user `syslog' is already a member of `adm'. 1401s Setting up libpsl5t64:s390x (0.21.2-1.1) ... 1401s Setting up libnghttp2-14:s390x (1.59.0-1build1) ... 1401s Setting up libdeflate0:s390x (1.19-1) ... 1401s Setting up linux-libc-dev:s390x (6.8.0-20.20) ... 1401s Setting up libnss-systemd:s390x (255.4-1ubuntu5) ... 1401s Setting up libparted2t64:s390x (3.6-3.1build2) ... 1401s Setting up libcom-err2:s390x (1.47.0-2.4~exp1ubuntu2) ... 1401s Setting up file (1:5.45-3) ... 1401s Setting up lshw (02.19.git.2021.06.19.996aaad9c7-2build2) ... 1401s Setting up libldap-common (2.6.7+dfsg-1~exp1ubuntu6) ... 1401s Setting up libprotobuf-c1:s390x (1.4.1-1ubuntu3) ... 1401s Setting up libjbig0:s390x (2.1-6.1ubuntu1) ... 1401s Setting up xxd (2:9.1.0016-1ubuntu6) ... 1401s Setting up libelf1t64:s390x (0.190-1.1build2) ... 1401s Setting up libkrb5support0:s390x (1.20.1-6ubuntu1) ... 1401s Setting up libdw1t64:s390x (0.190-1.1build2) ... 1401s Setting up linux-headers-6.8.0-20-generic (6.8.0-20.20) ... 1401s Setting up eject (2.39.3-9ubuntu2) ... 1401s Setting up apparmor (4.0.0-beta3-0ubuntu2) ... 1401s Installing new version of config file /etc/apparmor.d/abstractions/authentication ... 1401s Installing new version of config file /etc/apparmor.d/abstractions/crypto ... 1401s Installing new version of config file /etc/apparmor.d/abstractions/kde-open5 ... 1401s Installing new version of config file /etc/apparmor.d/abstractions/openssl ... 1401s Installing new version of config file /etc/apparmor.d/code ... 1401s Installing new version of config file /etc/apparmor.d/firefox ... 1402s Reloading AppArmor profiles 1403s Setting up libglib2.0-0t64:s390x (2.79.3-3ubuntu5) ... 1403s No schema files found: doing nothing. 1403s Setting up libglib2.0-data (2.79.3-3ubuntu5) ... 1403s Setting up rpcsvc-proto (1.4.2-0ubuntu6) ... 1403s Setting up vim-common (2:9.1.0016-1ubuntu6) ... 1403s Setting up libqrtr-glib0:s390x (1.2.2-1ubuntu3) ... 1403s Setting up libslang2:s390x (2.3.3-3build1) ... 1403s Setting up libnvme1t64 (1.8-3) ... 1403s Setting up mtr-tiny (0.95-1.1build1) ... 1403s Setting up librtmp1:s390x (2.4+20151223.gitfa8646d.1-2build6) ... 1403s Setting up libdbus-1-3:s390x (1.14.10-4ubuntu2) ... 1403s Setting up xz-utils (5.6.0-0.2) ... 1403s Setting up perl-modules-5.38 (5.38.2-3.2) ... 1403s Setting up libproc2-0:s390x (2:4.0.4-4ubuntu2) ... 1403s Setting up fonts-dejavu-mono (2.37-8) ... 1403s Setting up libpng16-16t64:s390x (1.6.43-3) ... 1403s Setting up systemd-timesyncd (255.4-1ubuntu5) ... 1403s Setting up libevent-core-2.1-7:s390x (2.1.12-stable-9build1) ... 1403s Setting up libss2:s390x (1.47.0-2.4~exp1ubuntu2) ... 1403s Setting up usb.ids (2024.03.18-1) ... 1403s Setting up sudo (1.9.15p5-3ubuntu3) ... 1403s Setting up fonts-dejavu-core (2.37-8) ... 1403s Setting up dhcpcd-base (1:10.0.6-1ubuntu2) ... 1403s Setting up libpcsclite1:s390x (2.0.3-1) ... 1403s Setting up gir1.2-glib-2.0:s390x (2.79.3-3ubuntu5) ... 1403s Setting up libk5crypto3:s390x (1.20.1-6ubuntu1) ... 1403s Setting up libjpeg-turbo8:s390x (2.1.5-2ubuntu1) ... 1403s Setting up logsave (1.47.0-2.4~exp1ubuntu2) ... 1403s Setting up libwebp7:s390x (1.3.2-0.4build2) ... 1403s Setting up libfdisk1:s390x (2.39.3-9ubuntu2) ... 1403s Setting up libdb5.3t64:s390x (5.3.28+dfsg2-6) ... 1403s Setting up libaio1t64:s390x (0.3.113-6) ... 1403s Setting up python-apt-common (2.7.7) ... 1403s Setting up mount (2.39.3-9ubuntu2) ... 1403s Setting up uuid-runtime (2.39.3-9ubuntu2) ... 1404s uuidd.service is a disabled or a static unit not running, not starting it. 1404s Setting up libmm-glib0:s390x (1.23.4-0ubuntu1) ... 1404s Setting up groff-base (1.23.0-3build1) ... 1404s Setting up libcrypt-dev:s390x (1:4.4.36-4) ... 1404s Setting up libplymouth5:s390x (24.004.60-1ubuntu6) ... 1404s Setting up dbus-session-bus-common (1.14.10-4ubuntu2) ... 1404s Setting up procps (2:4.0.4-4ubuntu2) ... 1405s Setting up gpgconf (2.4.4-2ubuntu15) ... 1405s Setting up libcryptsetup12:s390x (2:2.7.0-1ubuntu2) ... 1405s Setting up libgirepository-1.0-1:s390x (1.79.1-1ubuntu6) ... 1405s Setting up libjson-glib-1.0-common (1.8.0-2build1) ... 1405s Setting up libkrb5-3:s390x (1.20.1-6ubuntu1) ... 1405s Setting up libperl5.38t64:s390x (5.38.2-3.2) ... 1405s Setting up tnftp (20230507-2build1) ... 1405s Setting up dbus-system-bus-common (1.14.10-4ubuntu2) ... 1405s Setting up libfido2-1:s390x (1.14.0-1build1) ... 1405s Setting up libc-dev-bin (2.39-0ubuntu6) ... 1405s Setting up openssl (3.0.13-0ubuntu2) ... 1405s Setting up linux-modules-6.8.0-20-generic (6.8.0-20.20) ... 1405s Setting up readline-common (8.2-4) ... 1405s Setting up libxml2:s390x (2.9.14+dfsg-1.3ubuntu2) ... 1405s Setting up libxmuu1:s390x (2:1.1.3-3build1) ... 1405s Setting up dbus-bin (1.14.10-4ubuntu2) ... 1405s Setting up info (7.1-3build1) ... 1405s Setting up liblocale-gettext-perl (1.07-6ubuntu4) ... 1405s Setting up gpg (2.4.4-2ubuntu15) ... 1405s Setting up libgudev-1.0-0:s390x (1:238-3ubuntu2) ... 1405s Setting up libpolkit-gobject-1-0:s390x (124-1ubuntu1) ... 1405s Setting up libbpf1:s390x (1:1.3.0-2build1) ... 1405s Setting up libmbim-glib4:s390x (1.31.2-0ubuntu2) ... 1405s Setting up rsync (3.2.7-1build1) ... 1406s rsync.service is a disabled or a static unit not running, not starting it. 1406s Setting up libudisks2-0:s390x (2.10.1-6) ... 1406s Setting up util-linux-extra (2.39.3-9ubuntu2) ... 1406s Setting up libkmod2:s390x (31+20240202-2ubuntu4) ... 1406s Setting up bolt (0.9.6-2build1) ... 1406s bolt.service is a disabled or a static unit not running, not starting it. 1406s Setting up s390-tools-data (2.31.0-0ubuntu3) ... 1406s Setting up libllvm18:s390x (1:18.1.2-1ubuntu2) ... 1406s Setting up gnupg-utils (2.4.4-2ubuntu15) ... 1406s Setting up libjpeg8:s390x (8c-2ubuntu11) ... 1406s Setting up cryptsetup-bin (2:2.7.0-1ubuntu2) ... 1406s Setting up libclang1-18 (1:18.1.2-1ubuntu2) ... 1406s Setting up manpages-dev (6.05.01-1) ... 1406s Setting up linux-modules-extra-6.8.0-20-generic (6.8.0-20.20) ... 1407s Setting up apt-utils (2.7.14) ... 1407s Setting up gpg-agent (2.4.4-2ubuntu15) ... 1407s Setting up libpython3.12-stdlib:s390x (3.12.2-4build3) ... 1407s Setting up wget (1.21.4-1ubuntu2) ... 1407s Setting up fontconfig-config (2.15.0-1.1ubuntu1) ... 1407s Setting up libxmlb2:s390x (0.3.15-1build1) ... 1407s Setting up python3.12 (3.12.2-4build3) ... 1409s Setting up gpgsm (2.4.4-2ubuntu15) ... 1409s Setting up inetutils-telnet (2:2.5-3ubuntu3) ... 1409s Setting up libreiserfscore0t64 (1:3.6.27-7.1) ... 1409s Setting up parted (3.6-3.1build2) ... 1409s Setting up e2fsprogs (1.47.0-2.4~exp1ubuntu2) ... 1409s update-initramfs: deferring update (trigger activated) 1409s e2scrub_all.service is a disabled or a static unit not running, not starting it. 1409s Setting up linux-headers-generic (6.8.0-20.20+1) ... 1409s Setting up dbus-daemon (1.14.10-4ubuntu2) ... 1409s Setting up libmbim-proxy (1.31.2-0ubuntu2) ... 1409s Setting up vim-tiny (2:9.1.0016-1ubuntu6) ... 1409s Setting up kmod (31+20240202-2ubuntu4) ... 1410s Setting up libnetplan1:s390x (1.0-1) ... 1410s Setting up man-db (2.12.0-3build4) ... 1410s Updating database of manual pages ... 1412s man-db.service is a disabled or a static unit not running, not starting it. 1412s Setting up fdisk (2.39.3-9ubuntu2) ... 1412s Setting up libjson-glib-1.0-0:s390x (1.8.0-2build1) ... 1412s Setting up libsasl2-modules-db:s390x (2.1.28+dfsg1-5ubuntu1) ... 1412s Setting up hwdata (0.379-1) ... 1412s Setting up wpasupplicant (2:2.10-21build2) ... 1412s Setting up perl (5.38.2-3.2) ... 1412s Setting up libfreetype6:s390x (2.13.2+dfsg-1build2) ... 1412s Setting up gir1.2-girepository-2.0:s390x (1.79.1-1ubuntu6) ... 1412s Setting up dbus (1.14.10-4ubuntu2) ... 1412s A reboot is required to replace the running dbus-daemon. 1412s Please reboot the system when convenient. 1412s Setting up shared-mime-info (2.4-1build1) ... 1413s Setting up libblockdev-utils3:s390x (3.1.0-1build1) ... 1413s Setting up libgssapi-krb5-2:s390x (1.20.1-6ubuntu1) ... 1413s Setting up udev (255.4-1ubuntu5) ... 1414s Setting up ftp (20230507-2build1) ... 1414s Setting up keyboxd (2.4.4-2ubuntu15) ... 1414s Setting up libdpkg-perl (1.22.6ubuntu5) ... 1414s Setting up libsasl2-2:s390x (2.1.28+dfsg1-5ubuntu1) ... 1414s Setting up libssh-4:s390x (0.10.6-2build1) ... 1414s Setting up libblockdev-nvme3:s390x (3.1.0-1build1) ... 1414s Setting up libblockdev-fs3:s390x (3.1.0-1build1) ... 1414s Setting up ieee-data (20220827.1) ... 1414s Setting up libtiff6:s390x (4.5.1+git230720-4ubuntu1) ... 1414s Setting up kpartx (0.9.4-5ubuntu6) ... 1414s Setting up libpam-systemd:s390x (255.4-1ubuntu5) ... 1415s Setting up libpolkit-agent-1-0:s390x (124-1ubuntu1) ... 1415s Setting up libc6-dev:s390x (2.39-0ubuntu6) ... 1415s Setting up libgpgme11t64:s390x (1.18.0-4.1ubuntu3) ... 1415s Setting up libfontconfig1:s390x (2.15.0-1.1ubuntu1) ... 1415s Setting up netplan-generator (1.0-1) ... 1415s Removing 'diversion of /lib/systemd/system-generators/netplan to /lib/systemd/system-generators/netplan.usr-is-merged by netplan-generator' 1415s Setting up libclang-cpp18 (1:18.1.2-1ubuntu2) ... 1415s Setting up libbpfcc:s390x (0.29.1+ds-1ubuntu4) ... 1415s Setting up linux-tools-common (6.8.0-20.20) ... 1415s Setting up libarchive13t64:s390x (3.7.2-1.1ubuntu2) ... 1415s Setting up libldap2:s390x (2.6.7+dfsg-1~exp1ubuntu6) ... 1415s Setting up libpython3-stdlib:s390x (3.12.2-0ubuntu1) ... 1415s Setting up systemd-resolved (255.4-1ubuntu5) ... 1415s Setting up telnet (0.17+2.5-3ubuntu3) ... 1415s Setting up libblockdev-mdraid3:s390x (3.1.0-1build1) ... 1415s Setting up linux-headers-virtual (6.8.0-20.20+1) ... 1415s Setting up libcurl4t64:s390x (8.5.0-2ubuntu8) ... 1415s Setting up bpftrace (0.20.2-1ubuntu1) ... 1415s Setting up bind9-libs:s390x (1:9.18.24-0ubuntu3) ... 1415s Setting up linux-image-6.8.0-20-generic (6.8.0-20.20) ... 1415s I: /boot/vmlinuz is now a symlink to vmlinuz-6.8.0-20-generic 1415s I: /boot/initrd.img is now a symlink to initrd.img-6.8.0-20-generic 1415s Setting up libtirpc3t64:s390x (1.3.4+ds-1.1) ... 1415s Setting up libblockdev-swap3:s390x (3.1.0-1build1) ... 1415s Setting up plymouth (24.004.60-1ubuntu6) ... 1415s update-initramfs: Generating /boot/initrd.img-6.8.0-11-generic 1415s W: No lz4 in /usr/bin:/sbin:/bin, using gzip 1419s Not invoking zipl: initrd doesn't exist yet 1419s update-rc.d: warning: start and stop actions are no longer supported; falling back to defaults 1419s update-rc.d: warning: start and stop actions are no longer supported; falling back to defaults 1420s Setting up iproute2 (6.1.0-1ubuntu5) ... 1420s Setting up openssh-client (1:9.6p1-3ubuntu11) ... 1420s Setting up libgusb2:s390x (0.4.8-1build1) ... 1420s Setting up btrfs-progs (6.6.3-1.1build1) ... 1420s Setting up libblockdev-loop3:s390x (3.1.0-1build1) ... 1420s Setting up libcurl3t64-gnutls:s390x (8.5.0-2ubuntu8) ... 1420s Setting up libqmi-glib5:s390x (1.35.2-0ubuntu1) ... 1420s Setting up linux-tools-6.8.0-20 (6.8.0-20.20) ... 1420s Setting up python3 (3.12.2-0ubuntu1) ... 1420s Setting up libblockdev3:s390x (3.1.0-1build1) ... 1420s Setting up libjcat1:s390x (0.2.0-2build2) ... 1420s Setting up multipath-tools (0.9.4-5ubuntu6) ... 1421s Setting up dpkg-dev (1.22.6ubuntu5) ... 1421s Setting up libblockdev-part3:s390x (3.1.0-1build1) ... 1421s Setting up dirmngr (2.4.4-2ubuntu15) ... 1421s Setting up dbus-user-session (1.14.10-4ubuntu2) ... 1421s Setting up plymouth-theme-ubuntu-text (24.004.60-1ubuntu6) ... 1421s update-initramfs: deferring update (trigger activated) 1421s Setting up linux-tools-6.8.0-20-generic (6.8.0-20.20) ... 1421s Setting up python3-cryptography (41.0.7-4build2) ... 1421s Setting up python3-gi (3.47.0-3build1) ... 1421s Setting up libgd3:s390x (2.3.3-9ubuntu3) ... 1421s Setting up lsof (4.95.0-1build2) ... 1421s Setting up python3-pyrsistent:s390x (0.20.0-1build1) ... 1422s Setting up python3-netaddr (0.8.0-2ubuntu1) ... 1422s Setting up libnsl2:s390x (1.3.0-3build2) ... 1422s Setting up gnupg (2.4.4-2ubuntu15) ... 1422s Setting up python3-netplan (1.0-1) ... 1422s Setting up curl (8.5.0-2ubuntu8) ... 1422s Setting up libvolume-key1:s390x (0.3.12-7build1) ... 1422s Setting up linux-image-virtual (6.8.0-20.20+1) ... 1422s Setting up bind9-host (1:9.18.24-0ubuntu3) ... 1422s Setting up python3-lib2to3 (3.12.2-3ubuntu1.1) ... 1422s Setting up python3-bpfcc (0.29.1+ds-1ubuntu4) ... 1422s Setting up libc-devtools (2.39-0ubuntu6) ... 1422s Setting up python3-pkg-resources (68.1.2-2ubuntu1) ... 1423s Setting up python3-distutils (3.12.2-3ubuntu1.1) ... 1423s python3.12: can't get files for byte-compilation 1423s Setting up openssh-sftp-server (1:9.6p1-3ubuntu11) ... 1423s Setting up linux-image-generic (6.8.0-20.20+1) ... 1423s Setting up python3-dbus (1.3.2-5build2) ... 1423s Setting up python3-setuptools (68.1.2-2ubuntu1) ... 1424s Setting up gpg-wks-client (2.4.4-2ubuntu15) ... 1424s Setting up openssh-server (1:9.6p1-3ubuntu11) ... 1424s Replacing config file /etc/ssh/sshd_config with new version 1425s Created symlink /etc/systemd/system/ssh.service.requires/ssh.socket → /usr/lib/systemd/system/ssh.socket. 1426s Setting up linux-generic (6.8.0-20.20+1) ... 1426s Setting up libblockdev-crypto3:s390x (3.1.0-1build1) ... 1426s Setting up python3-gdbm:s390x (3.12.2-3ubuntu1.1) ... 1426s Setting up python3-apt (2.7.7) ... 1427s Setting up libfwupd2:s390x (1.9.15-2) ... 1427s Setting up python3-yaml (6.0.1-2build1) ... 1427s Setting up libqmi-proxy (1.35.2-0ubuntu1) ... 1427s Setting up netplan.io (1.0-1) ... 1427s Setting up linux-virtual (6.8.0-20.20+1) ... 1427s Setting up bpfcc-tools (0.29.1+ds-1ubuntu4) ... 1427s Setting up bind9-dnsutils (1:9.18.24-0ubuntu3) ... 1427s Setting up ubuntu-pro-client (31.2.2) ... 1428s Setting up fwupd (1.9.15-2) ... 1429s fwupd-offline-update.service is a disabled or a static unit not running, not starting it. 1429s fwupd-refresh.service is a disabled or a static unit not running, not starting it. 1429s fwupd.service is a disabled or a static unit not running, not starting it. 1429s Setting up ubuntu-pro-client-l10n (31.2.2) ... 1429s Setting up udisks2 (2.10.1-6) ... 1429s Processing triggers for libc-bin (2.39-0ubuntu6) ... 1430s Processing triggers for ufw (0.36.2-5) ... 1430s Processing triggers for debianutils (5.17) ... 1430s Processing triggers for install-info (7.1-3build1) ... 1430s Processing triggers for initramfs-tools (0.142ubuntu23) ... 1430s update-initramfs: Generating /boot/initrd.img-6.8.0-11-generic 1430s W: No lz4 in /usr/bin:/sbin:/bin, using gzip 1434s Not invoking zipl: initrd doesn't exist yet 1434s Processing triggers for linux-image-6.8.0-20-generic (6.8.0-20.20) ... 1434s /etc/kernel/postinst.d/initramfs-tools: 1434s update-initramfs: Generating /boot/initrd.img-6.8.0-20-generic 1434s W: No lz4 in /usr/bin:/sbin:/bin, using gzip 1437s Using config file '/etc/zipl.conf' 1437s Building bootmap in '/boot' 1437s Adding IPL section 'ubuntu' (default) 1437s Preparing boot device for LD-IPL: sda. 1437s Done. 1437s /etc/kernel/postinst.d/zz-zipl: 1437s Using config file '/etc/zipl.conf' 1437s Building bootmap in '/boot' 1437s Adding IPL section 'ubuntu' (default) 1437s Preparing boot device for LD-IPL: sda. 1437s Done. 1439s Reading package lists... 1439s Building dependency tree... 1439s Reading state information... 1439s The following packages will be REMOVED: 1439s libaio1* libnetplan0* 1440s 0 upgraded, 0 newly installed, 2 to remove and 1 not upgraded. 1440s After this operation, 411 kB disk space will be freed. 1440s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 81395 files and directories currently installed.) 1440s Removing libaio1:s390x (0.3.113-5) ... 1440s Removing libnetplan0:s390x (0.107.1-3) ... 1440s Processing triggers for libc-bin (2.39-0ubuntu6) ... 1441s autopkgtest [00:50:41]: rebooting testbed after setup commands that affected boot 1491s autopkgtest-virt-ssh: WARNING: ssh connection failed. Retrying in 3 seconds... 1497s autopkgtest [00:51:37]: testbed running kernel: Linux 6.8.0-20-generic #20-Ubuntu SMP Mon Mar 18 10:49:25 UTC 2024 1500s autopkgtest [00:51:40]: @@@@@@@@@@@@@@@@@@@@ apt-source r-cran-future.apply 1502s Get:1 http://ftpmaster.internal/ubuntu noble/universe r-cran-future.apply 1.11.1+dfsg-1 (dsc) [2290 B] 1502s Get:2 http://ftpmaster.internal/ubuntu noble/universe r-cran-future.apply 1.11.1+dfsg-1 (tar) [46.3 kB] 1502s Get:3 http://ftpmaster.internal/ubuntu noble/universe r-cran-future.apply 1.11.1+dfsg-1 (diff) [2864 B] 1503s gpgv: Signature made Mon Jan 8 17:21:26 2024 UTC 1503s gpgv: using RSA key F1F007320A035541F0A663CA578A0494D1C646D1 1503s gpgv: issuer "tille@debian.org" 1503s gpgv: Can't check signature: No public key 1503s dpkg-source: warning: cannot verify inline signature for ./r-cran-future.apply_1.11.1+dfsg-1.dsc: no acceptable signature found 1503s autopkgtest [00:51:43]: testing package r-cran-future.apply version 1.11.1+dfsg-1 1503s autopkgtest [00:51:43]: build not needed 1504s autopkgtest [00:51:44]: test run-unit-test: preparing testbed 1506s Reading package lists... 1506s Building dependency tree... 1506s Reading state information... 1507s Starting pkgProblemResolver with broken count: 0 1507s Starting 2 pkgProblemResolver with broken count: 0 1507s Done 1507s The following additional packages will be installed: 1507s fontconfig fonts-mathjax libblas3 libcairo2 libdatrie1 libgfortran5 libgomp1 1507s libgraphite2-3 libharfbuzz0b libice6 libjs-mathjax liblapack3 libpango-1.0-0 1507s libpangocairo-1.0-0 libpangoft2-1.0-0 libpaper-utils libpaper1 libpixman-1-0 1507s libsm6 libtcl8.6 libthai-data libthai0 libtk8.6 libxcb-render0 libxcb-shm0 1507s libxft2 libxrender1 libxss1 libxt6t64 r-base-core r-cran-codetools 1507s r-cran-commonmark r-cran-digest r-cran-future r-cran-future.apply 1507s r-cran-globals r-cran-listenv r-cran-markdown r-cran-parallelly 1507s r-cran-r.cache r-cran-r.methodss3 r-cran-r.oo r-cran-r.rsp r-cran-r.utils 1507s r-cran-xfun tcl tcl8.6 unzip x11-common xdg-utils zip 1507s Suggested packages: 1507s fonts-mathjax-extras fonts-stix libjs-mathjax-doc tk8.6 elpa-ess r-doc-info 1507s | r-doc-pdf r-mathlib r-base-html r-cran-knitr r-cran-base64enc 1507s tcl-tclreadline 1507s Recommended packages: 1507s r-recommended r-base-dev r-doc-html r-cran-curl r-cran-testthat r-cran-xml2 1507s r-cran-rhpcblasctl r-cran-knitr r-cran-rmarkdown r-cran-yaml r-cran-rcurl 1507s r-cran-r.devices libjs-remark-slide r-cran-testit r-cran-rstudioapi 1507s r-cran-tinytex r-cran-mime r-cran-htmltools r-cran-remotes r-cran-renv 1507s r-cran-jsonlite r-cran-magick libfile-mimeinfo-perl libnet-dbus-perl 1507s libx11-protocol-perl x11-utils x11-xserver-utils 1507s The following NEW packages will be installed: 1507s autopkgtest-satdep fontconfig fonts-mathjax libblas3 libcairo2 libdatrie1 1507s libgfortran5 libgomp1 libgraphite2-3 libharfbuzz0b libice6 libjs-mathjax 1507s liblapack3 libpango-1.0-0 libpangocairo-1.0-0 libpangoft2-1.0-0 1507s libpaper-utils libpaper1 libpixman-1-0 libsm6 libtcl8.6 libthai-data 1507s libthai0 libtk8.6 libxcb-render0 libxcb-shm0 libxft2 libxrender1 libxss1 1507s libxt6t64 r-base-core r-cran-codetools r-cran-commonmark r-cran-digest 1507s r-cran-future r-cran-future.apply r-cran-globals r-cran-listenv 1507s r-cran-markdown r-cran-parallelly r-cran-r.cache r-cran-r.methodss3 1507s r-cran-r.oo r-cran-r.rsp r-cran-r.utils r-cran-xfun tcl tcl8.6 unzip 1507s x11-common xdg-utils zip 1507s 0 upgraded, 52 newly installed, 0 to remove and 1 not upgraded. 1507s Need to get 50.1 MB/50.1 MB of archives. 1507s After this operation, 127 MB of additional disk space will be used. 1507s Get:1 /tmp/autopkgtest.ux1W3r/1-autopkgtest-satdep.deb autopkgtest-satdep s390x 0 [748 B] 1507s Get:2 http://ftpmaster.internal/ubuntu noble/main s390x fontconfig s390x 2.15.0-1.1ubuntu1 [191 kB] 1508s Get:3 http://ftpmaster.internal/ubuntu noble/main s390x fonts-mathjax all 2.7.9+dfsg-1 [2208 kB] 1508s Get:4 http://ftpmaster.internal/ubuntu noble/main s390x libblas3 s390x 3.12.0-3 [245 kB] 1508s Get:5 http://ftpmaster.internal/ubuntu noble/main s390x libpixman-1-0 s390x 0.42.2-1 [173 kB] 1508s Get:6 http://ftpmaster.internal/ubuntu noble/main s390x libxcb-render0 s390x 1.15-1 [17.0 kB] 1508s Get:7 http://ftpmaster.internal/ubuntu noble/main s390x libxcb-shm0 s390x 1.15-1 [5782 B] 1508s Get:8 http://ftpmaster.internal/ubuntu noble/main s390x libxrender1 s390x 1:0.9.10-1.1 [19.4 kB] 1508s Get:9 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libcairo2 s390x 1.18.0-1ubuntu1 [589 kB] 1508s Get:10 http://ftpmaster.internal/ubuntu noble/main s390x libdatrie1 s390x 0.2.13-3 [22.6 kB] 1508s Get:11 http://ftpmaster.internal/ubuntu noble/main s390x libgfortran5 s390x 14-20240315-1ubuntu1 [600 kB] 1508s Get:12 http://ftpmaster.internal/ubuntu noble/main s390x libgomp1 s390x 14-20240315-1ubuntu1 [151 kB] 1508s Get:13 http://ftpmaster.internal/ubuntu noble/main s390x libgraphite2-3 s390x 1.3.14-2 [90.4 kB] 1508s Get:14 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libharfbuzz0b s390x 8.3.0-2build1 [515 kB] 1508s Get:15 http://ftpmaster.internal/ubuntu noble/main s390x x11-common all 1:7.7+23ubuntu2 [23.4 kB] 1508s Get:16 http://ftpmaster.internal/ubuntu noble/main s390x libice6 s390x 2:1.0.10-1build2 [40.8 kB] 1508s Get:17 http://ftpmaster.internal/ubuntu noble/main s390x liblapack3 s390x 3.12.0-3 [2979 kB] 1508s Get:18 http://ftpmaster.internal/ubuntu noble/main s390x libthai-data all 0.1.29-2 [158 kB] 1508s Get:19 http://ftpmaster.internal/ubuntu noble/main s390x libthai0 s390x 0.1.29-2 [20.6 kB] 1508s Get:20 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libpango-1.0-0 s390x 1.52.1+ds-1 [242 kB] 1508s Get:21 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libpangoft2-1.0-0 s390x 1.52.1+ds-1 [44.2 kB] 1508s Get:22 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libpangocairo-1.0-0 s390x 1.52.1+ds-1 [28.7 kB] 1508s Get:23 http://ftpmaster.internal/ubuntu noble/main s390x libpaper1 s390x 1.1.29 [13.3 kB] 1508s Get:24 http://ftpmaster.internal/ubuntu noble/main s390x libpaper-utils s390x 1.1.29 [8452 B] 1508s Get:25 http://ftpmaster.internal/ubuntu noble/main s390x libsm6 s390x 2:1.2.3-1build2 [16.9 kB] 1508s Get:26 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libtcl8.6 s390x 8.6.14+dfsg-1 [1037 kB] 1508s Get:27 http://ftpmaster.internal/ubuntu noble/main s390x libxft2 s390x 2.3.6-1 [44.3 kB] 1508s Get:28 http://ftpmaster.internal/ubuntu noble/main s390x libxss1 s390x 1:1.2.3-1build2 [8192 B] 1508s Get:29 http://ftpmaster.internal/ubuntu noble/main s390x libtk8.6 s390x 8.6.14-1 [833 kB] 1508s Get:30 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libxt6t64 s390x 1:1.2.1-1.2 [184 kB] 1508s Get:31 http://ftpmaster.internal/ubuntu noble/main s390x zip s390x 3.0-13 [175 kB] 1508s Get:32 http://ftpmaster.internal/ubuntu noble/main s390x unzip s390x 6.0-28ubuntu3 [180 kB] 1508s Get:33 http://ftpmaster.internal/ubuntu noble/main s390x xdg-utils all 1.1.3-4.1ubuntu3 [62.0 kB] 1508s Get:34 http://ftpmaster.internal/ubuntu noble-proposed/universe s390x r-base-core s390x 4.3.3-2build1 [27.1 MB] 1509s Get:35 http://ftpmaster.internal/ubuntu noble/universe s390x r-cran-codetools all 0.2-19-1 [90.5 kB] 1509s Get:36 http://ftpmaster.internal/ubuntu noble/universe s390x r-cran-commonmark s390x 1.9.1-1 [142 kB] 1509s Get:37 http://ftpmaster.internal/ubuntu noble/universe s390x r-cran-digest s390x 0.6.34-1 [187 kB] 1509s Get:38 http://ftpmaster.internal/ubuntu noble/universe s390x r-cran-globals all 0.16.2-1 [117 kB] 1509s Get:39 http://ftpmaster.internal/ubuntu noble/universe s390x r-cran-listenv all 0.9.1+dfsg-1 [112 kB] 1509s Get:40 http://ftpmaster.internal/ubuntu noble/universe s390x r-cran-parallelly s390x 1.37.1-1 [365 kB] 1509s Get:41 http://ftpmaster.internal/ubuntu noble/universe s390x r-cran-future all 1.33.1+dfsg-1 [634 kB] 1509s Get:42 http://ftpmaster.internal/ubuntu noble/universe s390x r-cran-future.apply all 1.11.1+dfsg-1 [171 kB] 1509s Get:43 http://ftpmaster.internal/ubuntu noble/universe s390x r-cran-xfun s390x 0.41+dfsg-1 [415 kB] 1509s Get:44 http://ftpmaster.internal/ubuntu noble/main s390x libjs-mathjax all 2.7.9+dfsg-1 [5665 kB] 1509s Get:45 http://ftpmaster.internal/ubuntu noble/universe s390x r-cran-markdown all 1.12+dfsg-1 [179 kB] 1509s Get:46 http://ftpmaster.internal/ubuntu noble/universe s390x r-cran-r.methodss3 all 1.8.2-1 [84.0 kB] 1509s Get:47 http://ftpmaster.internal/ubuntu noble/universe s390x r-cran-r.oo all 1.26.0-1 [955 kB] 1509s Get:48 http://ftpmaster.internal/ubuntu noble/universe s390x r-cran-r.utils all 2.12.3-1 [1386 kB] 1509s Get:49 http://ftpmaster.internal/ubuntu noble/universe s390x r-cran-r.cache all 0.16.0-1 [113 kB] 1509s Get:50 http://ftpmaster.internal/ubuntu noble-proposed/main s390x tcl8.6 s390x 8.6.14+dfsg-1 [14.7 kB] 1509s Get:51 http://ftpmaster.internal/ubuntu noble-proposed/main s390x tcl s390x 8.6.14 [4016 B] 1509s Get:52 http://ftpmaster.internal/ubuntu noble/universe s390x r-cran-r.rsp all 0.46.0+ds-1 [1412 kB] 1510s Preconfiguring packages ... 1510s Fetched 50.1 MB in 2s (22.0 MB/s) 1510s Selecting previously unselected package fontconfig. 1510s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 81386 files and directories currently installed.) 1510s Preparing to unpack .../00-fontconfig_2.15.0-1.1ubuntu1_s390x.deb ... 1510s Unpacking fontconfig (2.15.0-1.1ubuntu1) ... 1510s Selecting previously unselected package fonts-mathjax. 1510s Preparing to unpack .../01-fonts-mathjax_2.7.9+dfsg-1_all.deb ... 1510s Unpacking fonts-mathjax (2.7.9+dfsg-1) ... 1510s Selecting previously unselected package libblas3:s390x. 1510s Preparing to unpack .../02-libblas3_3.12.0-3_s390x.deb ... 1510s Unpacking libblas3:s390x (3.12.0-3) ... 1510s Selecting previously unselected package libpixman-1-0:s390x. 1510s Preparing to unpack .../03-libpixman-1-0_0.42.2-1_s390x.deb ... 1510s Unpacking libpixman-1-0:s390x (0.42.2-1) ... 1510s Selecting previously unselected package libxcb-render0:s390x. 1510s Preparing to unpack .../04-libxcb-render0_1.15-1_s390x.deb ... 1510s Unpacking libxcb-render0:s390x (1.15-1) ... 1510s Selecting previously unselected package libxcb-shm0:s390x. 1510s Preparing to unpack .../05-libxcb-shm0_1.15-1_s390x.deb ... 1510s Unpacking libxcb-shm0:s390x (1.15-1) ... 1510s Selecting previously unselected package libxrender1:s390x. 1510s Preparing to unpack .../06-libxrender1_1%3a0.9.10-1.1_s390x.deb ... 1510s Unpacking libxrender1:s390x (1:0.9.10-1.1) ... 1510s Selecting previously unselected package libcairo2:s390x. 1510s Preparing to unpack .../07-libcairo2_1.18.0-1ubuntu1_s390x.deb ... 1510s Unpacking libcairo2:s390x (1.18.0-1ubuntu1) ... 1510s Selecting previously unselected package libdatrie1:s390x. 1510s Preparing to unpack .../08-libdatrie1_0.2.13-3_s390x.deb ... 1510s Unpacking libdatrie1:s390x (0.2.13-3) ... 1511s Selecting previously unselected package libgfortran5:s390x. 1511s Preparing to unpack .../09-libgfortran5_14-20240315-1ubuntu1_s390x.deb ... 1511s Unpacking libgfortran5:s390x (14-20240315-1ubuntu1) ... 1511s Selecting previously unselected package libgomp1:s390x. 1511s Preparing to unpack .../10-libgomp1_14-20240315-1ubuntu1_s390x.deb ... 1511s Unpacking libgomp1:s390x (14-20240315-1ubuntu1) ... 1511s Selecting previously unselected package libgraphite2-3:s390x. 1511s Preparing to unpack .../11-libgraphite2-3_1.3.14-2_s390x.deb ... 1511s Unpacking libgraphite2-3:s390x (1.3.14-2) ... 1511s Selecting previously unselected package libharfbuzz0b:s390x. 1511s Preparing to unpack .../12-libharfbuzz0b_8.3.0-2build1_s390x.deb ... 1511s Unpacking libharfbuzz0b:s390x (8.3.0-2build1) ... 1511s Selecting previously unselected package x11-common. 1511s Preparing to unpack .../13-x11-common_1%3a7.7+23ubuntu2_all.deb ... 1511s Unpacking x11-common (1:7.7+23ubuntu2) ... 1511s Selecting previously unselected package libice6:s390x. 1511s Preparing to unpack .../14-libice6_2%3a1.0.10-1build2_s390x.deb ... 1511s Unpacking libice6:s390x (2:1.0.10-1build2) ... 1511s Selecting previously unselected package liblapack3:s390x. 1511s Preparing to unpack .../15-liblapack3_3.12.0-3_s390x.deb ... 1511s Unpacking liblapack3:s390x (3.12.0-3) ... 1511s Selecting previously unselected package libthai-data. 1511s Preparing to unpack .../16-libthai-data_0.1.29-2_all.deb ... 1511s Unpacking libthai-data (0.1.29-2) ... 1511s Selecting previously unselected package libthai0:s390x. 1511s Preparing to unpack .../17-libthai0_0.1.29-2_s390x.deb ... 1511s Unpacking libthai0:s390x (0.1.29-2) ... 1511s Selecting previously unselected package libpango-1.0-0:s390x. 1511s Preparing to unpack .../18-libpango-1.0-0_1.52.1+ds-1_s390x.deb ... 1511s Unpacking libpango-1.0-0:s390x (1.52.1+ds-1) ... 1511s Selecting previously unselected package libpangoft2-1.0-0:s390x. 1511s Preparing to unpack .../19-libpangoft2-1.0-0_1.52.1+ds-1_s390x.deb ... 1511s Unpacking libpangoft2-1.0-0:s390x (1.52.1+ds-1) ... 1511s Selecting previously unselected package libpangocairo-1.0-0:s390x. 1511s Preparing to unpack .../20-libpangocairo-1.0-0_1.52.1+ds-1_s390x.deb ... 1511s Unpacking libpangocairo-1.0-0:s390x (1.52.1+ds-1) ... 1511s Selecting previously unselected package libpaper1:s390x. 1511s Preparing to unpack .../21-libpaper1_1.1.29_s390x.deb ... 1511s Unpacking libpaper1:s390x (1.1.29) ... 1511s Selecting previously unselected package libpaper-utils. 1511s Preparing to unpack .../22-libpaper-utils_1.1.29_s390x.deb ... 1511s Unpacking libpaper-utils (1.1.29) ... 1511s Selecting previously unselected package libsm6:s390x. 1511s Preparing to unpack .../23-libsm6_2%3a1.2.3-1build2_s390x.deb ... 1511s Unpacking libsm6:s390x (2:1.2.3-1build2) ... 1511s Selecting previously unselected package libtcl8.6:s390x. 1511s Preparing to unpack .../24-libtcl8.6_8.6.14+dfsg-1_s390x.deb ... 1511s Unpacking libtcl8.6:s390x (8.6.14+dfsg-1) ... 1511s Selecting previously unselected package libxft2:s390x. 1511s Preparing to unpack .../25-libxft2_2.3.6-1_s390x.deb ... 1511s Unpacking libxft2:s390x (2.3.6-1) ... 1511s Selecting previously unselected package libxss1:s390x. 1511s Preparing to unpack .../26-libxss1_1%3a1.2.3-1build2_s390x.deb ... 1511s Unpacking libxss1:s390x (1:1.2.3-1build2) ... 1511s Selecting previously unselected package libtk8.6:s390x. 1511s Preparing to unpack .../27-libtk8.6_8.6.14-1_s390x.deb ... 1511s Unpacking libtk8.6:s390x (8.6.14-1) ... 1511s Selecting previously unselected package libxt6t64:s390x. 1511s Preparing to unpack .../28-libxt6t64_1%3a1.2.1-1.2_s390x.deb ... 1511s Unpacking libxt6t64:s390x (1:1.2.1-1.2) ... 1511s Selecting previously unselected package zip. 1511s Preparing to unpack .../29-zip_3.0-13_s390x.deb ... 1511s Unpacking zip (3.0-13) ... 1511s Selecting previously unselected package unzip. 1511s Preparing to unpack .../30-unzip_6.0-28ubuntu3_s390x.deb ... 1511s Unpacking unzip (6.0-28ubuntu3) ... 1511s Selecting previously unselected package xdg-utils. 1511s Preparing to unpack .../31-xdg-utils_1.1.3-4.1ubuntu3_all.deb ... 1511s Unpacking xdg-utils (1.1.3-4.1ubuntu3) ... 1511s Selecting previously unselected package r-base-core. 1511s Preparing to unpack .../32-r-base-core_4.3.3-2build1_s390x.deb ... 1511s Unpacking r-base-core (4.3.3-2build1) ... 1512s Selecting previously unselected package r-cran-codetools. 1512s Preparing to unpack .../33-r-cran-codetools_0.2-19-1_all.deb ... 1512s Unpacking r-cran-codetools (0.2-19-1) ... 1512s Selecting previously unselected package r-cran-commonmark. 1512s Preparing to unpack .../34-r-cran-commonmark_1.9.1-1_s390x.deb ... 1512s Unpacking r-cran-commonmark (1.9.1-1) ... 1512s Selecting previously unselected package r-cran-digest. 1512s Preparing to unpack .../35-r-cran-digest_0.6.34-1_s390x.deb ... 1512s Unpacking r-cran-digest (0.6.34-1) ... 1512s Selecting previously unselected package r-cran-globals. 1512s Preparing to unpack .../36-r-cran-globals_0.16.2-1_all.deb ... 1512s Unpacking r-cran-globals (0.16.2-1) ... 1512s Selecting previously unselected package r-cran-listenv. 1512s Preparing to unpack .../37-r-cran-listenv_0.9.1+dfsg-1_all.deb ... 1512s Unpacking r-cran-listenv (0.9.1+dfsg-1) ... 1512s Selecting previously unselected package r-cran-parallelly. 1512s Preparing to unpack .../38-r-cran-parallelly_1.37.1-1_s390x.deb ... 1512s Unpacking r-cran-parallelly (1.37.1-1) ... 1512s Selecting previously unselected package r-cran-future. 1512s Preparing to unpack .../39-r-cran-future_1.33.1+dfsg-1_all.deb ... 1512s Unpacking r-cran-future (1.33.1+dfsg-1) ... 1512s Selecting previously unselected package r-cran-future.apply. 1512s Preparing to unpack .../40-r-cran-future.apply_1.11.1+dfsg-1_all.deb ... 1512s Unpacking r-cran-future.apply (1.11.1+dfsg-1) ... 1512s Selecting previously unselected package r-cran-xfun. 1512s Preparing to unpack .../41-r-cran-xfun_0.41+dfsg-1_s390x.deb ... 1512s Unpacking r-cran-xfun (0.41+dfsg-1) ... 1512s Selecting previously unselected package libjs-mathjax. 1512s Preparing to unpack .../42-libjs-mathjax_2.7.9+dfsg-1_all.deb ... 1512s Unpacking libjs-mathjax (2.7.9+dfsg-1) ... 1513s Selecting previously unselected package r-cran-markdown. 1513s Preparing to unpack .../43-r-cran-markdown_1.12+dfsg-1_all.deb ... 1513s Unpacking r-cran-markdown (1.12+dfsg-1) ... 1513s Selecting previously unselected package r-cran-r.methodss3. 1513s Preparing to unpack .../44-r-cran-r.methodss3_1.8.2-1_all.deb ... 1513s Unpacking r-cran-r.methodss3 (1.8.2-1) ... 1513s Selecting previously unselected package r-cran-r.oo. 1513s Preparing to unpack .../45-r-cran-r.oo_1.26.0-1_all.deb ... 1513s Unpacking r-cran-r.oo (1.26.0-1) ... 1513s Selecting previously unselected package r-cran-r.utils. 1513s Preparing to unpack .../46-r-cran-r.utils_2.12.3-1_all.deb ... 1513s Unpacking r-cran-r.utils (2.12.3-1) ... 1513s Selecting previously unselected package r-cran-r.cache. 1513s Preparing to unpack .../47-r-cran-r.cache_0.16.0-1_all.deb ... 1513s Unpacking r-cran-r.cache (0.16.0-1) ... 1513s Selecting previously unselected package tcl8.6. 1513s Preparing to unpack .../48-tcl8.6_8.6.14+dfsg-1_s390x.deb ... 1513s Unpacking tcl8.6 (8.6.14+dfsg-1) ... 1513s Selecting previously unselected package tcl. 1513s Preparing to unpack .../49-tcl_8.6.14_s390x.deb ... 1514s Unpacking tcl (8.6.14) ... 1514s Selecting previously unselected package r-cran-r.rsp. 1514s Preparing to unpack .../50-r-cran-r.rsp_0.46.0+ds-1_all.deb ... 1514s Unpacking r-cran-r.rsp (0.46.0+ds-1) ... 1514s Selecting previously unselected package autopkgtest-satdep. 1514s Preparing to unpack .../51-1-autopkgtest-satdep.deb ... 1514s Unpacking autopkgtest-satdep (0) ... 1514s Setting up libgraphite2-3:s390x (1.3.14-2) ... 1514s Setting up libpixman-1-0:s390x (0.42.2-1) ... 1514s Setting up libpaper1:s390x (1.1.29) ... 1514s 1514s Creating config file /etc/papersize with new version 1514s Setting up fontconfig (2.15.0-1.1ubuntu1) ... 1516s Regenerating fonts cache... done. 1516s Setting up fonts-mathjax (2.7.9+dfsg-1) ... 1516s Setting up libjs-mathjax (2.7.9+dfsg-1) ... 1516s Setting up libxrender1:s390x (1:0.9.10-1.1) ... 1516s Setting up libdatrie1:s390x (0.2.13-3) ... 1516s Setting up libxcb-render0:s390x (1.15-1) ... 1516s Setting up unzip (6.0-28ubuntu3) ... 1516s Setting up x11-common (1:7.7+23ubuntu2) ... 1516s Setting up libxcb-shm0:s390x (1.15-1) ... 1516s Setting up libpaper-utils (1.1.29) ... 1516s Setting up libgomp1:s390x (14-20240315-1ubuntu1) ... 1516s Setting up libcairo2:s390x (1.18.0-1ubuntu1) ... 1516s Setting up zip (3.0-13) ... 1516s Setting up libblas3:s390x (3.12.0-3) ... 1516s update-alternatives: using /usr/lib/s390x-linux-gnu/blas/libblas.so.3 to provide /usr/lib/s390x-linux-gnu/libblas.so.3 (libblas.so.3-s390x-linux-gnu) in auto mode 1516s Setting up libtcl8.6:s390x (8.6.14+dfsg-1) ... 1516s Setting up libgfortran5:s390x (14-20240315-1ubuntu1) ... 1516s Setting up libharfbuzz0b:s390x (8.3.0-2build1) ... 1516s Setting up libthai-data (0.1.29-2) ... 1516s Setting up libxss1:s390x (1:1.2.3-1build2) ... 1516s Setting up xdg-utils (1.1.3-4.1ubuntu3) ... 1516s update-alternatives: using /usr/bin/xdg-open to provide /usr/bin/open (open) in auto mode 1516s Setting up libice6:s390x (2:1.0.10-1build2) ... 1516s Setting up tcl8.6 (8.6.14+dfsg-1) ... 1516s Setting up liblapack3:s390x (3.12.0-3) ... 1516s update-alternatives: using /usr/lib/s390x-linux-gnu/lapack/liblapack.so.3 to provide /usr/lib/s390x-linux-gnu/liblapack.so.3 (liblapack.so.3-s390x-linux-gnu) in auto mode 1516s Setting up libxft2:s390x (2.3.6-1) ... 1516s Setting up libtk8.6:s390x (8.6.14-1) ... 1516s Setting up libthai0:s390x (0.1.29-2) ... 1516s Setting up tcl (8.6.14) ... 1516s Setting up libsm6:s390x (2:1.2.3-1build2) ... 1516s Setting up libpango-1.0-0:s390x (1.52.1+ds-1) ... 1516s Setting up libxt6t64:s390x (1:1.2.1-1.2) ... 1516s Setting up libpangoft2-1.0-0:s390x (1.52.1+ds-1) ... 1516s Setting up libpangocairo-1.0-0:s390x (1.52.1+ds-1) ... 1516s Setting up r-base-core (4.3.3-2build1) ... 1516s 1516s Creating config file /etc/R/Renviron with new version 1516s Setting up r-cran-commonmark (1.9.1-1) ... 1516s Setting up r-cran-codetools (0.2-19-1) ... 1516s Setting up r-cran-listenv (0.9.1+dfsg-1) ... 1516s Setting up r-cran-xfun (0.41+dfsg-1) ... 1516s Setting up r-cran-digest (0.6.34-1) ... 1516s Setting up r-cran-r.methodss3 (1.8.2-1) ... 1516s Setting up r-cran-parallelly (1.37.1-1) ... 1516s Setting up r-cran-markdown (1.12+dfsg-1) ... 1516s Setting up r-cran-globals (0.16.2-1) ... 1516s Setting up r-cran-r.oo (1.26.0-1) ... 1516s Setting up r-cran-future (1.33.1+dfsg-1) ... 1516s Setting up r-cran-future.apply (1.11.1+dfsg-1) ... 1516s Setting up r-cran-r.utils (2.12.3-1) ... 1516s Setting up r-cran-r.cache (0.16.0-1) ... 1517s Setting up r-cran-r.rsp (0.46.0+ds-1) ... 1517s Setting up autopkgtest-satdep (0) ... 1517s Processing triggers for man-db (2.12.0-3build4) ... 1517s Processing triggers for install-info (7.1-3build1) ... 1517s Processing triggers for libc-bin (2.39-0ubuntu6) ... 1522s (Reading database ... 88631 files and directories currently installed.) 1522s Removing autopkgtest-satdep (0) ... 1523s autopkgtest [00:52:03]: test run-unit-test: [----------------------- 1523s BEGIN TEST fold.R 1523s 1523s R version 4.3.3 (2024-02-29) -- "Angel Food Cake" 1523s Copyright (C) 2024 The R Foundation for Statistical Computing 1523s Platform: s390x-ibm-linux-gnu (64-bit) 1523s 1523s R is free software and comes with ABSOLUTELY NO WARRANTY. 1523s You are welcome to redistribute it under certain conditions. 1523s Type 'license()' or 'licence()' for distribution details. 1523s 1523s R is a collaborative project with many contributors. 1523s Type 'contributors()' for more information and 1523s 'citation()' on how to cite R or R packages in publications. 1523s 1523s Type 'demo()' for some demos, 'help()' for on-line help, or 1523s 'help.start()' for an HTML browser interface to help. 1523s Type 'q()' to quit R. 1523s 1523s > source("incl/start,load-only.R") 1523s [00:52:03.547] Set package option ‘parallelly.availableCores.methods’ 1523s [00:52:03.548] Environment variable ‘R_PARALLELLY_AVAILABLECORES_METHODS’ not set 1523s [00:52:03.548] Set package option ‘parallelly.availableCores.fallback’ 1523s [00:52:03.549] Environment variable ‘R_PARALLELLY_AVAILABLECORES_FALLBACK’ not set 1523s [00:52:03.549] Set package option ‘parallelly.availableCores.min’ 1523s [00:52:03.549] Environment variable ‘R_PARALLELLY_AVAILABLECORES_MIN’ not set 1523s [00:52:03.549] Set package option ‘parallelly.availableCores.system’ 1523s [00:52:03.550] Environment variable ‘R_PARALLELLY_AVAILABLECORES_SYSTEM’ not set 1523s [00:52:03.550] Set package option ‘parallelly.availableCores.logical’ 1523s [00:52:03.550] Environment variable ‘R_PARALLELLY_AVAILABLECORES_LOGICAL’ not set 1523s [00:52:03.551] Set package option ‘parallelly.availableCores.omit’ 1523s [00:52:03.551] Environment variable ‘R_PARALLELLY_AVAILABLECORES_OMIT’ not set 1523s [00:52:03.551] Set package option ‘parallelly.availableWorkers.methods’ 1523s [00:52:03.556] Environment variable ‘R_PARALLELLY_AVAILABLEWORKERS_METHODS’ not set 1523s [00:52:03.556] Set package option ‘parallelly.maxWorkers.localhost’ 1523s [00:52:03.556] Environment variable ‘R_PARALLELLY_MAXWORKERS_LOCALHOST’ not set 1523s [00:52:03.557] Set package option ‘parallelly.maxWorkers.localhost.ignore’ 1523s [00:52:03.557] Environment variable ‘R_PARALLELLY_MAXWORKERS_LOCALHOST_IGNORE’ not set 1523s [00:52:03.557] Set package option ‘parallelly.fork.enable’ 1523s [00:52:03.557] Environment variable ‘R_PARALLELLY_FORK_ENABLE’ not set 1523s [00:52:03.558] Set package option ‘parallelly.supportsMulticore.disableOn’ 1523s [00:52:03.558] Environment variable ‘R_PARALLELLY_SUPPORTSMULTICORE_DISABLEON’ not set 1523s [00:52:03.558] Set package option ‘parallelly.supportsMulticore.unstable’ 1523s [00:52:03.558] Environment variable ‘R_PARALLELLY_SUPPORTSMULTICORE_UNSTABLE’ not set 1523s [00:52:03.558] Set package option ‘parallelly.makeNodePSOCK.setup_strategy’ 1523s [00:52:03.559] Environment variable ‘R_PARALLELLY_MAKENODEPSOCK_SETUP_STRATEGY’ not set 1523s [00:52:03.559] Set package option ‘parallelly.makeNodePSOCK.validate’ 1523s [00:52:03.559] Environment variable ‘R_PARALLELLY_MAKENODEPSOCK_VALIDATE’ not set 1523s [00:52:03.560] Set package option ‘parallelly.makeNodePSOCK.connectTimeout’ 1523s [00:52:03.560] Environment variable ‘R_PARALLELLY_MAKENODEPSOCK_CONNECTTIMEOUT’ not set 1523s [00:52:03.560] Set package option ‘parallelly.makeNodePSOCK.timeout’ 1523s [00:52:03.560] Environment variable ‘R_PARALLELLY_MAKENODEPSOCK_TIMEOUT’ not set 1523s [00:52:03.561] Set package option ‘parallelly.makeNodePSOCK.useXDR’ 1523s [00:52:03.561] Environment variable ‘R_PARALLELLY_MAKENODEPSOCK_USEXDR’ not set 1523s [00:52:03.562] Set package option ‘parallelly.makeNodePSOCK.socketOptions’ 1523s [00:52:03.562] Environment variable ‘R_PARALLELLY_MAKENODEPSOCK_SOCKETOPTIONS’ not set 1523s [00:52:03.563] Set package option ‘parallelly.makeNodePSOCK.rshcmd’ 1523s [00:52:03.563] Environment variable ‘R_PARALLELLY_MAKENODEPSOCK_RSHCMD’ not set 1523s [00:52:03.564] Set package option ‘parallelly.makeNodePSOCK.rshopts’ 1523s [00:52:03.565] Environment variable ‘R_PARALLELLY_MAKENODEPSOCK_RSHOPTS’ not set 1523s [00:52:03.565] Set package option ‘parallelly.makeNodePSOCK.tries’ 1523s [00:52:03.565] Environment variable ‘R_PARALLELLY_MAKENODEPSOCK_TRIES’ not set 1523s [00:52:03.566] Set package option ‘parallelly.makeNodePSOCK.tries.delay’ 1523s [00:52:03.566] Environment variable ‘R_PARALLELLY_MAKENODEPSOCK_TRIES_DELAY’ not set 1523s [00:52:03.567] Set package option ‘parallelly.makeNodePSOCK.rscript_label’ 1523s [00:52:03.567] Environment variable ‘R_PARALLELLY_MAKENODEPSOCK_RSCRIPT_LABEL’ not set 1523s [00:52:03.567] Set package option ‘parallelly.makeNodePSOCK.sessionInfo.pkgs’ 1523s [00:52:03.567] Environment variable ‘R_PARALLELLY_MAKENODEPSOCK_SESSIONINFO_PKGS’ not set 1523s [00:52:03.568] Set package option ‘parallelly.makeNodePSOCK.autoKill’ 1523s [00:52:03.568] Environment variable ‘R_PARALLELLY_MAKENODEPSOCK_AUTOKILL’ not set 1523s [00:52:03.568] Set package option ‘parallelly.makeNodePSOCK.master.localhost.hostname’ 1523s [00:52:03.568] Environment variable ‘R_PARALLELLY_MAKENODEPSOCK_MASTER_LOCALHOST_HOSTNAME’ not set 1523s [00:52:03.568] Set package option ‘parallelly.makeNodePSOCK.port.increment’ 1523s [00:52:03.569] Environment variable ‘R_PARALLELLY_MAKENODEPSOCK_PORT_INCREMENT’ not set 1523s [00:52:03.569] parallelly-specific environment variables: 1523s [00:52:03.577] Future-specific environment variables: 1523s [00:52:03.578] Environment variable ‘R_FUTURE_DEMO_MANDELBROT_REGION’ not set 1523s [00:52:03.578] Environment variable ‘R_FUTURE_DEMO_MANDELBROT_NROW’ not set 1523s [00:52:03.578] Environment variable ‘R_FUTURE_DEPRECATED_IGNORE’ not set 1523s [00:52:03.579] Environment variable ‘R_FUTURE_DEPRECATED_DEFUNCT’ not set 1523s [00:52:03.579] Environment variable ‘R_FUTURE_FORK_MULTITHREADING_ENABLE’ not set 1523s [00:52:03.579] Environment variable ‘R_FUTURE_GLOBALS_MAXSIZE’ not set 1523s [00:52:03.579] Environment variable ‘R_FUTURE_GLOBALS_ONMISSING’ not set 1523s [00:52:03.579] Environment variable ‘R_FUTURE_GLOBALS_ONREFERENCE’ not set 1523s [00:52:03.579] Environment variable ‘R_FUTURE_GLOBALS_METHOD’ not set 1523s [00:52:03.579] Environment variable ‘R_FUTURE_GLOBALS_RESOLVE’ not set 1523s [00:52:03.580] Environment variable ‘R_FUTURE_LAZY_ASSERTOWNER’ not set 1523s [00:52:03.580] Environment variable ‘R_FUTURE_PLAN’ not set 1523s [00:52:03.580] Environment variable ‘R_FUTURE_PLAN_DISALLOW’ not set 1523s [00:52:03.580] Environment variable ‘R_FUTURE_PSOCK_RELAY_IMMEDIATE’ not set 1523s [00:52:03.580] Environment variable ‘R_FUTURE_RELAY_IMMEDIATE’ not set 1523s [00:52:03.580] Environment variable ‘R_FUTURE_RESOLVE_RECURSIVE’ not set 1523s [00:52:03.581] Environment variable ‘R_FUTURE_ALIVE_TIMEOUT’ not set 1523s [00:52:03.581] Environment variable ‘R_FUTURE_RESOLVED_TIMEOUT’ not set 1523s [00:52:03.581] Environment variable ‘R_FUTURE_CLUSTER_RESOLVED_TIMEOUT’ not set 1523s [00:52:03.581] Environment variable ‘R_FUTURE_MULTICORE_RESOLVED_TIMEOUT’ not set 1523s [00:52:03.581] Environment variable ‘R_FUTURE_ONFUTURECONDITION_KEEPFUTURE’ not set 1523s [00:52:03.581] Environment variable ‘R_FUTURE_RNG_ONMISUSE’ not set 1523s [00:52:03.582] Environment variable ‘R_FUTURE_GLOBALENV_ONMISUSE’ not set 1523s [00:52:03.582] Environment variable ‘R_FUTURE_WAIT_TIMEOUT’ not set 1523s [00:52:03.582] Environment variable ‘R_FUTURE_WAIT_INTERVAL’ not set 1523s [00:52:03.582] Environment variable ‘R_FUTURE_WAIT_ALPHA’ not set 1523s [00:52:03.582] Environment variable ‘R_FUTURE_ASSIGN_GLOBALS_EXCLUDE’ not set 1523s [00:52:03.582] Environment variable ‘R_FUTURE_OUTPUT_WINDOWS_REENCODE’ not set 1523s [00:52:03.583] Environment variable ‘R_FUTURE_GLOBALS_GLOBALSOF_LOCALS’ not set 1523s [00:52:03.583] Environment variable ‘R_FUTURE_STATE_ONINVALID’ not set 1523s [00:52:03.583] Environment variable ‘R_FUTURE_JOURNAL’ not set 1523s [00:52:03.583] Environment variable ‘R_FUTURE_GLOBALS_KEEPWHERE’ not set 1523s [00:52:03.585] R process uuid: cdb27378-6cc7-31a4-be0c-ce3d29f0c8b0 1523s [00:52:03.585] Setting plan('default') 1523s [00:52:03.586] plan(): Setting new future strategy stack: 1523s [00:52:03.586] List of future strategies: 1523s [00:52:03.586] 1. sequential: 1523s [00:52:03.586] - args: function (..., envir = parent.frame()) 1523s [00:52:03.586] - tweaked: FALSE 1523s [00:52:03.586] - call: NULL 1523s [00:52:03.588] plan(): nbrOfWorkers() = 1 1523s [00:52:03.623] plan(): Setting new future strategy stack: 1523s [00:52:03.623] List of future strategies: 1523s [00:52:03.623] 1. sequential: 1523s [00:52:03.623] - args: function (..., envir = parent.frame()) 1523s [00:52:03.623] - tweaked: FALSE 1523s [00:52:03.623] - call: future::plan("sequential") 1523s [00:52:03.642] plan(): nbrOfWorkers() = 1 1523s *** fold() ... 1523s > 1523s > message("*** fold() ...") 1523s > 1523s > x1s <- list( 1523s + a = NULL, 1523s + b = 1, 1523s + c = c(a = 1, b = 2), 1523s + d = 1:10e3 1523s + ) 1523s > 1523s > x2s <- lapply(x1s, FUN = as.list) 1523s > names(x2s) <- toupper(names(x1s)) 1523s > 1523s > x3s <- list( 1523s + E = data.frame(a = 1:3), 1523s + F = data.frame(a = 1:3, b = letters[1:3], stringsAsFactors=FALSE) 1523s + ) 1523s > 1523s > xs <- c(x1s, x2s, x3s) 1523s > 1523s > 1523s > fcns <- list("c" = base::c, "cbind" = base::cbind) 1523s > for (kk in seq_along(xs)) { 1523s + x_name <- names(xs)[kk] 1523s + for (fcn_name in names(fcns)) { 1523s + fcn <- fcns[[fcn_name]] 1523s + message(sprintf(" - #%d. %s(x[['%s']]) ...", kk, fcn_name, x_name)) 1523s + x <- xs[[kk]] 1523s + str(list(x = x)) 1523s + 1523s + y0 <- Reduce(x, f = fcn) 1523s + y1 <- fold(x, f = fcn) 1523s + y2 <- fold(x, f = fcn, unname = FALSE) 1523s + str(list(y0 = y0, y1 = y1, y2 = y2)) 1523s + stopifnot(all.equal(unname(y1), unname(y0))) 1523s + stopifnot(all.equal(unname(y2), unname(y0))) 1523s + if (!fcn_name %in% "cbind") { 1523s + stopifnot(all.equal(y1, y0)) 1523s + stopifnot(all.equal(y2, y0)) 1523s + } 1523s + 1523s + y0 <- Reduce(x, f = fcn, right = TRUE) 1523s + y1 <- fold(x, f = fcn, left = FALSE) 1523s + y2 <- fold(x, f = fcn, left = FALSE, unname = FALSE) 1523s + str(list(y0 = y0, y1 = y1, y2 = y2)) 1523s + stopifnot(all.equal(unname(y1), unname(y0))) 1523s + stopifnot(all.equal(unname(y2), unname(y0))) 1523s + if (!fcn_name %in% "cbind") { 1523s + stopifnot(all.equal(y1, y0)) 1523s + stopifnot(all.equal(y2, y0)) 1523s + } 1523s + 1523s + message(sprintf(" - #%d. %s(x[['%s']]) ... DONE", kk, fcn_name, x_name)) 1523s + } 1523s + } 1523s - #1. c(x[['a']]) ... 1523s List of 1 1523s $ x: NULL 1523s List of 3 1523s $ y0: NULL 1523s $ y1: NULL 1523s $ y2: NULL 1523s List of 3 1523s $ y0: NULL 1523s $ y1: NULL 1523s $ y2: NULL 1523s List of 1 1523s $ x: NULL 1523s List of 3 1523s $ y0: NULL 1523s $ y1: NULL 1523s $ y2: NULL 1523s List of 3 - #1. c(x[['a']]) ... DONE 1523s - #1. cbind(x[['a']]) ... 1523s 1523s $ y0: NULL 1523s $ y1: NULL 1523s $ y2: NULL 1523s List of 1 1523s $ x: num 1 1523s List of 3 1523s $ y0: num 1 1523s $ y1: num 1 1523s $ y2: num 1 1523s List of 3 1523s $ y0: num 1 1523s $ y1: num 1 1523s $ y2: num 1 1523s List of 1 1523s $ x: num 1 1523s List of 3 1523s $ y0: num 1 1523s $ y1: num 1 1523s $ y2: num 1 1523s List of 3 1523s $ y0: num 1 1523s $ y1: num 1 1523s $ y2: num 1 1523s List of 1 1523s $ x: Named num [1:2] 1 2 1523s ..- attr(*, "names")= chr [1:2] "a" "b" 1523s List of 3 1523s $ y0: num [1:2] 1 2 1523s $ y1: num [1:2] 1 2 1523s $ y2: num [1:2] 1 2 1523s List of 3 1523s $ y0: num [1:2] 1 2 1523s $ y1: num [1:2] 1 2 1523s $ y2: num [1:2] 1 2 1523s List of 1 1523s $ x: Named num [1:2] 1 2 1523s ..- attr(*, "names")= chr [1:2] "a" "b" 1523s List of 3 1523s $ y0: num [1, 1:2] 1 2 1523s ..- attr(*, "dimnames")=List of 2 1523s .. ..$ : NULL 1523s .. ..$ : chr [1:2] "init" "" 1523s $ y1: num [1, 1:2] 1 2 1523s $ y2: num [1, 1:2] 1 2 1523s ..- attr(*, "dimnames")=List of 2 1523s .. ..$ : NULL 1523s .. ..$ : chr [1:2] "y" "" 1523s - #1. cbind(x[['a']]) ... DONE 1523s - #2. c(x[['b']]) ... 1523s - #2. c(x[['b']]) ... DONE 1523s - #2. cbind(x[['b']]) ... 1523s - #2. cbind(x[['b']]) ... DONE 1523s - #3. c(x[['c']]) ... 1523s - #3. c(x[['c']]) ... DONE 1523s - #3. cbind(x[['c']]) ... 1523s List of 3 1523s $ y0: num [1, 1:2] 1 2 1523s ..- attr(*, "dimnames")=List of 2 1523s .. ..$ : NULL 1523s .. ..$ : chr [1:2] "" "init" 1523s $ y1: num [1, 1:2] 1 2 1523s $ y2: num [1, 1:2] 1 2 1523s ..- attr(*, "dimnames")=List of 2 1523s .. ..$ : NULL 1523s .. ..$ : chr [1:2] "" "y" 1523s List of 1 1523s $ x: - #3. cbind(x[['c']]) ... DONE 1523s - #4. c(x[['d']]) ... 1523s int [1:10000] 1 2 3 4 5 6 7 8 9 10 ... 1523s List of 3 1523s $ y0: int [1:10000] 1 2 3 4 5 6 7 8 9 10 ... 1523s $ y1: int [1:10000] 1 2 3 4 5 6 7 8 9 10 ... 1523s $ y2: int [1:10000] 1 2 3 4 5 6 7 8 9 10 ... 1524s List of 3 1524s $ y0: int [1:10000] 1 2 3 4 5 6 7 8 9 10 ... 1524s $ y1: int [1:10000] 1 2 3 4 5 6 7 8 9 10 ... 1524s $ y2: int [1:10000] 1 2 3 4 5 6 7 8 9 10 ... 1524s List - #4. c(x[['d']]) ... DONE 1524s - #4. cbind(x[['d']]) ... 1524s of 1 1524s $ x: int [1:10000] 1 2 3 4 5 6 7 8 9 10 ... 1524s List of 3 1524s $ y0: int [1, 1:10000] 1 2 3 4 5 6 7 8 9 10 ... 1524s ..- attr(*, "dimnames")=List of 2 1524s .. ..$ : NULL 1524s .. ..$ : chr [1:10000] "init" "" "" "" ... 1524s $ y1: int [1, 1:10000] 1 2 3 4 5 6 7 8 9 10 ... 1524s $ y2: int [1, 1:10000] 1 2 3 4 5 6 7 8 9 10 ... 1524s ..- attr(*, "dimnames")=List of 2 1524s .. ..$ : NULL 1524s .. ..$ : chr [1:10000] "y" "" "" "" ... 1525s List of 3 1525s $ y0: int [1, 1:10000] 1 2 3 4 5 6 7 8 9 10 ... 1525s ..- attr(*, "dimnames")=List of 2 1525s .. ..$ : NULL 1525s .. ..$ : chr [1:10000] "" "" "" "" ... 1525s $ y1: int [1, 1:10000] 1 2 3 4 5 6 7 8 9 10 ... 1525s $ y2: int [1, 1:10000] 1 2 3 4 5 6 7 8 9 10 ... 1525s ..- attr(*, "dimnames")=List of 2 1525s .. ..$ : NULL 1525s .. ..$ : chr [1:10000] "" "" "" "" ... 1525s List of 1 1525s $ x: list() 1525s List of 3 1525s $ y0: NULL 1525s $ y1: NULL 1525s $ y2: NULL 1525s List of 3 1525s $ y0: NULL 1525s $ y1: NULL 1525s $ y2: NULL 1525s List of 1 1525s $ x: list() 1525s List of 3 1525s $ y0: NULL 1525s $ y1: NULL 1525s $ y2: NULL 1525s List of 3 1525s $ y0: NULL 1525s $ y1: NULL 1525s $ y2: NULL 1525s List of 1 1525s $ x:List of 1 1525s ..$ : num 1 1525s List of 3 1525s $ y0: num 1 1525s $ y1: num 1 1525s $ y2: num 1 1525s List of 3 1525s $ y0: num 1 1525s $ y1: num 1 1525s $ y2: num 1 1525s List of 1 1525s $ x:List of 1 1525s ..$ : num 1 1525s List of 3 1525s $ y0: num 1 1525s $ y1: num 1 1525s $ y2: num 1 1525s List of 3 1525s $ y0: num 1 1525s $ y1: num 1 1525s $ y2: num 1 1525s List of 1 1525s $ x:List of 2 1525s ..$ a: num 1 1525s ..$ b: num 2 1525s List of 3 1525s $ y0: num [1:2] 1 2 1525s $ y1: num [1:2] 1 2 1525s $ y2: num [1:2] 1 2 1525s List of 3 1525s $ y0: num [1:2] 1 2 1525s $ y1: num [1:2] 1 2 1525s $ y2: num [1:2] 1 2 1525s List of 1 1525s $ x:List of 2 1525s ..$ a: num 1 1525s ..$ b: num 2 1525s List of 3 1525s $ y0: num [1, 1:2] 1 2 1525s ..- attr(*, "dimnames")=List of 2 1525s .. ..$ : NULL 1525s .. ..$ : chr [1:2] "init" "" 1525s $ y1: num [1, 1:2] 1 2 1525s $ y2: num [1, 1:2] 1 2 1525s ..- attr(*, "dimnames")=List of 2 1525s .. ..$ : NULL 1525s .. ..$ : chr [1:2] "y" "" 1525s List of 3 1525s $ y0: num [1, 1:2] 1 2 1525s ..- attr(*, "dimnames")=List of 2 1525s .. ..$ : NULL 1525s .. ..$ : chr [1:2] "" "init" 1525s $ y1: num [1, 1:2] 1 2 1525s $ y2: num [1, 1:2] 1 2 1525s ..- attr(*, "dimnames")=List of 2 1525s .. ..$ : NULL 1525s .. ..$ : chr [1:2] "" "y" 1525s List of 1 1525s $ x:List of 10000 1525s ..$ : int 1 1525s ..$ : int 2 1525s ..$ : int 3 1525s ..$ : int 4 1525s ..$ : int 5 1525s ..$ : int 6 1525s ..$ : int 7 1525s ..$ : int 8 1525s ..$ : int 9 1525s ..$ : int 10 1525s ..$ : - #4. cbind(x[['d']]) ... DONE 1525s - #5. c(x[['A']]) ... 1525s - #5. c(x[['A']]) ... DONE 1525s - #5. cbind(x[['A']]) ... 1525s - #5. cbind(x[['A']]) ... DONE 1525s - #6. c(x[['B']]) ... 1525s - #6. c(x[['B']]) ... DONE 1525s - #6. cbind(x[['B']]) ... 1525s - #6. cbind(x[['B']]) ... DONE 1525s - #7. c(x[['C']]) ... 1525s - #7. c(x[['C']]) ... DONE 1525s - #7. cbind(x[['C']]) ... 1525s - #7. cbind(x[['C']]) ... DONE 1525s - #8. c(x[['D']]) ... 1525s int 11 1525s ..$ : int 12 1525s ..$ : int 13 1525s ..$ : int 14 1525s ..$ : int 15 1525s ..$ : int 16 1525s ..$ : int 17 1525s ..$ : int 18 1525s ..$ : int 19 1525s ..$ : int 20 1525s ..$ : int 21 1525s ..$ : int 22 1525s ..$ : int 23 1525s ..$ : int 24 1525s ..$ : int 25 1525s ..$ : int 26 1525s ..$ : int 27 1525s ..$ : int 28 1525s ..$ : int 29 1525s ..$ : int 30 1525s ..$ : int 31 1525s ..$ : int 32 1525s ..$ : int 33 1525s ..$ : int 34 1525s ..$ : int 35 1525s ..$ : int 36 1525s ..$ : int 37 1525s ..$ : int 38 1525s ..$ : int 39 1525s ..$ : int 40 1525s ..$ : int 41 1525s ..$ : int 42 1525s ..$ : int 43 1525s ..$ : int 44 1525s ..$ : int 45 1525s ..$ : int 46 1525s ..$ : int 47 1525s ..$ : int 48 1525s ..$ : int 49 1525s ..$ : int 50 1525s ..$ : int 51 1525s ..$ : int 52 1525s ..$ : int 53 1525s ..$ : int 54 1525s ..$ : int 55 1525s ..$ : int 56 1525s ..$ : int 57 1525s ..$ : int 58 1525s ..$ : int 59 1525s ..$ : int 60 1525s ..$ : int 61 1525s ..$ : int 62 1525s ..$ : int 63 1525s ..$ : int 64 1525s ..$ : int 65 1525s ..$ : int 66 1525s ..$ : int 67 1525s ..$ : int 68 1525s ..$ : int 69 1525s ..$ : int 70 1525s ..$ : int 71 1525s ..$ : int 72 1525s ..$ : int 73 1525s ..$ : int 74 1525s ..$ : int 75 1525s ..$ : int 76 1525s ..$ : int 77 1525s ..$ : int 78 1525s ..$ : int 79 1525s ..$ : int 80 1525s ..$ : int 81 1525s ..$ : int 82 1525s ..$ : int 83 1525s ..$ : int 84 1525s ..$ : int 85 1525s ..$ : int 86 1525s ..$ : int 87 1525s ..$ : int 88 1525s ..$ : int 89 1525s ..$ : int 90 1525s ..$ : int 91 1525s ..$ : int 92 1525s ..$ : int 93 1525s ..$ : int 94 1525s ..$ : int 95 1525s ..$ : int 96 1525s ..$ : int 97 1525s ..$ : int 98 1525s ..$ : int 99 1525s .. [list output truncated] 1525s List of 3 1525s $ y0: int [1:10000] 1 2 3 4 5 6 7 8 9 10 ... 1525s $ y1: int [1:10000] 1 2 3 4 5 6 7 8 9 10 ... 1525s $ y2: int [1:10000] 1 2 3 4 5 6 7 8 9 10 ... 1526s List of 3 1526s $ y0: int [1:10000] 1 2 3 4 5 6 7 8 9 10 ... 1526s $ y1: int [1:10000] 1 2 3 4 5 6 7 8 9 10 ... 1526s $ y2: int [1:10000] 1 2 3 4 5 6 7 8 9 10 ... 1526s - #8. c(x[['D']]) ... DONE 1526s - #8. cbind(x[['D']]) ... 1526s List of 1 1526s $ x:List of 10000 1526s ..$ : int 1 1526s ..$ : int 2 1526s ..$ : int 3 1526s ..$ : int 4 1526s ..$ : int 5 1526s ..$ : int 6 1526s ..$ : int 7 1526s ..$ : int 8 1526s ..$ : int 9 1526s ..$ : int 10 1526s ..$ : int 11 1526s ..$ : int 12 1526s ..$ : int 13 1526s ..$ : int 14 1526s ..$ : int 15 1526s ..$ : int 16 1526s ..$ : int 17 1526s ..$ : int 18 1526s ..$ : int 19 1526s ..$ : int 20 1526s ..$ : int 21 1526s ..$ : int 22 1526s ..$ : int 23 1526s ..$ : int 24 1526s ..$ : int 25 1526s ..$ : int 26 1526s ..$ : int 27 1526s ..$ : int 28 1526s ..$ : int 29 1526s ..$ : int 30 1526s ..$ : int 31 1526s ..$ : int 32 1526s ..$ : int 33 1526s ..$ : int 34 1526s ..$ : int 35 1526s ..$ : int 36 1526s ..$ : int 37 1526s ..$ : int 38 1526s ..$ : int 39 1526s ..$ : int 40 1526s ..$ : int 41 1526s ..$ : int 42 1526s ..$ : int 43 1526s ..$ : int 44 1526s ..$ : int 45 1526s ..$ : int 46 1526s ..$ : int 47 1526s ..$ : int 48 1526s ..$ : int 49 1526s ..$ : int 50 1526s ..$ : int 51 1526s ..$ : int 52 1526s ..$ : int 53 1526s ..$ : int 54 1526s ..$ : int 55 1526s ..$ : int 56 1526s ..$ : int 57 1526s ..$ : int 58 1526s ..$ : int 59 1526s ..$ : int 60 1526s ..$ : int 61 1526s ..$ : int 62 1526s ..$ : int 63 1526s ..$ : int 64 1526s ..$ : int 65 1526s ..$ : int 66 1526s ..$ : int 67 1526s ..$ : int 68 1526s ..$ : int 69 1526s ..$ : int 70 1526s ..$ : int 71 1526s ..$ : int 72 1526s ..$ : int 73 1526s ..$ : int 74 1526s ..$ : int 75 1526s ..$ : int 76 1526s ..$ : int 77 1526s ..$ : int 78 1526s ..$ : int 79 1526s ..$ : int 80 1526s ..$ : int 81 1526s ..$ : int 82 1526s ..$ : int 83 1526s ..$ : int 84 1526s ..$ : int 85 1526s ..$ : int 86 1526s ..$ : int 87 1526s ..$ : int 88 1526s ..$ : int 89 1526s ..$ : int 90 1526s ..$ : int 91 1526s ..$ : int 92 1526s ..$ : int 93 1526s ..$ : int 94 1526s ..$ : int 95 1526s ..$ : int 96 1526s ..$ : int 97 1526s ..$ : int 98 1526s ..$ : int 99 1526s .. [list output truncated] 1526s List of 3 1526s $ y0: int [1, 1:10000] 1 2 3 4 5 6 7 8 9 10 ... 1526s ..- attr(*, "dimnames")=List of 2 1526s .. ..$ : NULL 1526s .. ..$ : chr [1:10000] "init" "" "" "" ... 1526s $ y1: int [1, 1:10000] 1 2 3 4 5 6 7 8 9 10 ... 1526s $ y2: int [1, 1:10000] 1 2 3 4 5 6 7 8 9 10 ... 1526s ..- attr(*, "dimnames")=List of 2 1526s .. ..$ : NULL 1526s .. ..$ : chr [1:10000] "y" "" "" "" ... 1527s List of 3 1527s $ y0: int [1, 1:10000] 1 2 3 4 5 6 7 8 9 10 ... 1527s ..- attr(*, "dimnames")=List of 2 1527s .. ..$ : NULL 1527s .. ..$ : chr [1:10000] "" "" "" "" ... 1527s $ y1: int [1, 1:10000] 1 2 3 4 5 6 7 8 9 10 ... - #8. cbind(x[['D']]) ... DONE 1527s - #9. c(x[['E']]) ... 1527s - #9. c(x[['E']]) ... DONE 1527s - #9. cbind(x[['E']]) ... 1527s - #9. cbind(x[['E']]) ... DONE 1527s - #10. c(x[['F']]) ... 1527s - #10. c(x[['F']]) ... DONE 1527s - #10. cbind(x[['F']]) ... 1527s 1527s $ y2: int [1, 1:10000] 1 2 3 4 5 6 7 8 9 10 ... 1527s ..- attr(*, "dimnames")=List of 2 1527s .. ..$ : NULL 1527s .. ..$ : chr [1:10000] "" "" "" "" ... 1527s List of 1 1527s $ x:'data.frame': 3 obs. of 1 variable: 1527s ..$ a: int [1:3] 1 2 3 1527s List of 3 1527s $ y0: int [1:3] 1 2 3 1527s $ y1: int [1:3] 1 2 3 1527s $ y2: int [1:3] 1 2 3 1527s List of 3 1527s $ y0: int [1:3] 1 2 3 1527s $ y1: int [1:3] 1 2 3 1527s $ y2: int [1:3] 1 2 3 1527s List of 1 1527s $ x:'data.frame': 3 obs. of 1 variable: 1527s ..$ a: int [1:3] 1 2 3 1527s List of 3 1527s $ y0: int [1:3] 1 2 3 1527s $ y1: int [1:3] 1 2 3 1527s $ y2: int [1:3] 1 2 3 1527s List of 3 1527s $ y0: int [1:3] 1 2 3 1527s $ y1: int [1:3] 1 2 3 1527s $ y2: int [1:3] 1 2 3 1527s List of 1 1527s $ x:'data.frame': 3 obs. of 2 variables: 1527s ..$ a: int [1:3] 1 2 3 1527s ..$ b: chr [1:3] "a" "b" "c" 1527s List of 3 1527s $ y0: chr [1:6] "1" "2" "3" "a" ... 1527s $ y1: chr [1:6] "1" "2" "3" "a" ... 1527s $ y2: chr [1:6] "1" "2" "3" "a" ... 1527s List of 3 1527s $ y0: chr [1:6] "1" "2" "3" "a" ... 1527s $ y1: chr [1:6] "1" "2" "3" "a" ... 1527s $ y2: chr [1:6] "1" "2" "3" "a" ... 1527s List of 1 1527s $ x:'data.frame': 3 obs. of 2 variables: 1527s ..$ a: int [1:3] 1 2 3 1527s ..$ b: chr [1:3] "a" "b" "c" 1527s List of 3 1527s $ y0: chr [1:3, 1:2] "1" "2" "3" "a" ... 1527s ..- attr(*, "dimnames")=List of 2 1527s .. ..$ : NULL 1527s .. ..$ : chr [1:2] "init" "" 1527s $ y1 - #10. cbind(x[['F']]) ... DONE 1527s : chr [1:3, 1:2] "1" "2" "3" "a" ... 1527s $ y2: chr [1:3, 1:2] "1" "2" "3" "a" ... 1527s ..- attr(*, "dimnames")=List of 2 1527s .. ..$ : NULL 1527s .. ..$ : chr [1:2] "y" "" 1527s List of 3 1527s $ y0: chr [1:3, 1:2] "1" "2" "3" "a" ... 1527s ..- attr(*, "dimnames")=List of 2 1527s .. ..$ : NULL 1527s .. ..$ : chr [1:2] "" "init" 1527s $ y1: chr [1:3, 1:2] "1" "2" "3" "a" ... 1527s $ y2: chr [1:3, 1:2] "1" "2" "3" "a" ... 1527s ..- attr(*, "dimnames")=List of 2 1527s .. ..$ : NULL 1527s .. ..$ : chr [1:2] "" "y" 1527s > 1527s > 1527s > make_table <- function(n) { 1527s + data.frame(key = sample(n), value = sample(n), stringsAsFactors=FALSE) 1527s + } 1527s > 1527s > sizes <- rep(10, 20) 1527s > 1527s > set.seed(3180) 1527s > tables <- lapply(sizes, make_table) 1527s > 1527s > key_merge <- function(x, y) merge(x, y, by = "key", all = FALSE) 1527s > 1527s > suppressWarnings( 1527s + folded <- fold(tables, key_merge, left = TRUE, unname = FALSE, 1527s + threshold = 6L) 1527s + ) 1527s > 1527s > suppressWarnings( 1527s + reduced <- Reduce(key_merge, tables[-1], tables[[1]]) 1527s + ) 1527s > 1527s > stopifnot(all.equal(unname(folded), unname(reduced))) 1527s > 1527s > message("*** fold() ... DONE") 1527s > 1527s > source("incl/end.R") 1527s *** fold() ... DONE 1527s [00:52:07.624] plan(): Setting new future strategy stack: 1527s [00:52:07.624] List of future strategies: 1527s [00:52:07.624] 1. FutureStrategy: 1527s [00:52:07.624] - args: function (..., envir = parent.frame()) 1527s [00:52:07.624] - tweaked: FALSE 1527s [00:52:07.624] - call: future::plan(oplan) 1527s [00:52:07.642] plan(): nbrOfWorkers() = 1 1527s > 1527s BEGIN TEST future_apply.R 1527s 1527s R version 4.3.3 (2024-02-29) -- "Angel Food Cake" 1527s Copyright (C) 2024 The R Foundation for Statistical Computing 1527s Platform: s390x-ibm-linux-gnu (64-bit) 1527s 1527s R is free software and comes with ABSOLUTELY NO WARRANTY. 1527s You are welcome to redistribute it under certain conditions. 1527s Type 'license()' or 'licence()' for distribution details. 1527s 1527s R is a collaborative project with many contributors. 1527s Type 'contributors()' for more information and 1527s 'citation()' on how to cite R or R packages in publications. 1527s 1527s Type 'demo()' for some demos, 'help()' for on-line help, or 1527s 'help.start()' for an HTML browser interface to help. 1527s Type 'q()' to quit R. 1527s 1527s > source("incl/start.R") 1527s Loading required package: future 1527s [00:52:07.967] plan(): Setting new future strategy stack: 1527s [00:52:07.967] List of future strategies: 1527s [00:52:07.967] 1. sequential: 1527s [00:52:07.967] - args: function (..., envir = parent.frame()) 1527s [00:52:07.967] - tweaked: FALSE 1527s [00:52:07.967] - call: future::plan("sequential") 1528s [00:52:07.984] plan(): nbrOfWorkers() = 1 1528s > 1528s > message("*** future_apply() ...") 1528s *** future_apply() ... 1528s > 1528s > z0 <- NULL 1528s > 1528s > for (strategy in supportedStrategies()) { 1528s + message(sprintf("*** strategy = %s ...", sQuote(strategy))) 1528s + plan(strategy) 1528s + 1528s + message("- From example(apply) ...") 1528s + X <- matrix(c(1:4, 1, 6:8), nrow = 2L) 1528s + 1528s + Y0 <- apply(X, MARGIN = 1L, FUN = table) 1528s + Y1 <- future_apply(X, MARGIN = 1L, FUN = table) 1528s + print(Y1) 1528s + stopifnot(all.equal(Y1, Y0, check.attributes = FALSE)) ## FIXME 1528s + 1528s + Y2 <- future_apply(X, MARGIN = 1L, FUN = "table") 1528s + print(Y2) 1528s + stopifnot(identical(Y2, Y1)) 1528s + 1528s + Y0 <- apply(X, MARGIN = 1L, FUN = stats::quantile) 1528s + Y1 <- future_apply(X, MARGIN = 1L, FUN = stats::quantile) 1528s + print(Y1) 1528s + stopifnot(all.equal(Y1, Y0)) 1528s + 1528s + x <- cbind(x1 = 3, x2 = c(4:1, 2:5)) 1528s + names(dimnames(x)) <- c("row", "col") 1528s + x3 <- array(x, dim = c(dim(x), 3), 1528s + dimnames = c(dimnames(x), list(C = paste0("cop.", 1:3)))) 1528s + 1528s + y0 <- apply(x, MARGIN = 2L, FUN = identity) 1528s + stopifnot(identical(y0, x)) 1528s + y1 <- future_apply(x, MARGIN = 2L, FUN = identity) 1528s + print(y1) 1528s + stopifnot(identical(y1, y0)) 1528s + 1528s + y0 <- apply(x3, MARGIN = 2:3, FUN = identity) 1528s + stopifnot(identical(y0, x3)) 1528s + y1 <- future_apply(x3, MARGIN = 2:3, FUN = identity) 1528s + print(y1) 1528s + stopifnot(identical(y1, y0)) 1528s + 1528s + z <- array(1:24, dim = 2:4) 1528s + y0 <- apply(z, MARGIN = 1:2, FUN = function(x) seq_len(max(x))) 1528s + y1 <- future_apply(z, MARGIN = 1:2, FUN = function(x) seq_len(max(x))) 1528s + print(y1) 1528s + stopifnot(identical(y1, y0)) 1528s + 1528s + message("- apply(X, MARGIN = , ...) ...") 1528s + X <- matrix(1:2, nrow = 2L, ncol = 1L, dimnames = list(rows = c("a", "b"))) 1528s + y0 <- apply(X, MARGIN = "rows", FUN = identity) 1528s + y1 <- future_apply(X, MARGIN = "rows", FUN = identity) 1528s + print(y1) 1528s + stopifnot(identical(y1, y0)) 1528s + 1528s + message("- apply(X, ...) - dim(X) > 2 ...") 1528s + X <- array(1:12, dim = c(2, 2, 3)) 1528s + y0 <- apply(X, MARGIN = 1L, FUN = identity) 1528s + y1 <- future_apply(X, MARGIN = 1L, FUN = identity) 1528s + print(y1) 1528s + stopifnot(identical(y1, y0)) 1528s + 1528s + message("- apply(X, ...) - not all same names ...") 1528s + FUN <- function(x) { 1528s + if (x[1] == 1L) names(x) <- letters[seq_along(x)] 1528s + x 1528s + } 1528s + X <- matrix(1:4, nrow = 2L, ncol = 2L) 1528s + y0 <- apply(X, MARGIN = 1L, FUN = FUN) 1528s + y1 <- future_apply(X, MARGIN = 1L, FUN = FUN) 1528s + print(y1) 1528s + stopifnot(identical(y1, y0)) 1528s + 1528s + message("- example(future_apply) - reproducible RNG ...") 1528s + z1 <- future_apply(X, MARGIN = 1L, FUN = sample, 1528s + future.seed = 0xBEEF, 1528s + ## Test also all other 'future.*' arguments 1528s + future.stdout = TRUE, 1528s + future.conditions = NULL, 1528s + future.globals = TRUE, 1528s + future.packages = NULL, 1528s + future.scheduling = 1.0, 1528s + future.chunk.size = NULL, 1528s + future.label = "future_apply-%d" 1528s + ) 1528s + print(z1) 1528s + if (is.null(z0)) { 1528s + z0 <- z1 1528s + } else { 1528s + stopifnot(identical(z1, z0)) 1528s + } 1528s + 1528s + plan(sequential) 1528s + message(sprintf("*** strategy = %s ... done", sQuote(strategy))) 1528s + } ## for (strategy in ...) 1528s *** strategy = ‘sequential’ ... 1528s [00:52:08.071] plan(): Setting new future strategy stack: 1528s [00:52:08.071] List of future strategies: 1528s [00:52:08.071] 1. sequential: 1528s [00:52:08.071] - args: function (..., envir = parent.frame()) 1528s [00:52:08.071] - tweaked: FALSE 1528s [00:52:08.071] - call: plan(strategy) 1528s [00:52:08.087] plan(): nbrOfWorkers() = 1 1528s - From example(apply) ... 1528s [00:52:08.088] getGlobalsAndPackagesXApply() ... 1528s [00:52:08.089] - future.globals: TRUE 1528s [00:52:08.090] getGlobalsAndPackages() ... 1528s [00:52:08.091] Searching for globals... 1528s [00:52:08.154] - globals found: [59] ‘FUN’, ‘if’, ‘==’, ‘c’, ‘list.names’, ‘{’, ‘<-’, ‘[’, ‘as.list’, ‘substitute’, ‘-’, ‘&&’, ‘length’, ‘is.list’, ‘!’, ‘is.null’, ‘names’, ‘return’, ‘seq_along’, ‘vapply’, ‘switch’, ‘+’, ‘is.symbol’, ‘as.character’, ‘deparse’, ‘[<-’, ‘missing’, ‘match’, ‘match.arg’, ‘!=’, ‘warning’, ‘list’, ‘[[’, ‘paste’, ‘stop’, ‘integer’, ‘for’, ‘is.factor’, ‘anyNA’, ‘options’, ‘on.exit’, ‘factor’, ‘(’, ‘||’, ‘levels’, ‘as.integer’, ‘which’, ‘is.na’, ‘is.na<-’, ‘>’, ‘prod’, ‘$’, ‘.Machine’, ‘*’, ‘names<-’, ‘array’, ‘tabulate’, ‘class’, ‘class<-’ 1528s [00:52:08.155] Searching for globals ... DONE 1528s [00:52:08.155] Resolving globals: FALSE 1528s [00:52:08.158] The total size of the 1 globals is 345.92 KiB (354224 bytes) 1528s [00:52:08.159] The total size of the 1 globals exported for future expression (‘FUN(X = structure(c(1, 2, 3, 4, 1, 6, 7, 8), dim = c(2L, 4L)))’) is 345.92 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (345.92 KiB of class ‘function’) 1528s [00:52:08.160] - globals: [1] ‘FUN’ 1528s [00:52:08.160] 1528s [00:52:08.160] getGlobalsAndPackages() ... DONE 1528s [00:52:08.160] - globals found/used: [n=1] ‘FUN’ 1528s [00:52:08.160] - needed namespaces: [n=0] 1528s [00:52:08.160] Finding globals ... DONE 1528s [00:52:08.161] - use_args: TRUE 1528s [00:52:08.161] - Getting '...' globals ... 1528s [00:52:08.162] resolve() on list ... 1528s [00:52:08.162] recursive: 0 1528s [00:52:08.163] length: 1 1528s [00:52:08.163] elements: ‘...’ 1528s [00:52:08.163] length: 0 (resolved future 1) 1528s [00:52:08.163] resolve() on list ... DONE 1528s [00:52:08.163] - '...' content: [n=0] 1528s [00:52:08.163] List of 1 1528s [00:52:08.163] $ ...: list() 1528s [00:52:08.163] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1528s [00:52:08.163] - attr(*, "where")=List of 1 1528s [00:52:08.163] ..$ ...: 1528s [00:52:08.163] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1528s [00:52:08.163] - attr(*, "resolved")= logi TRUE 1528s [00:52:08.163] - attr(*, "total_size")= num NA 1528s [00:52:08.170] - Getting '...' globals ... DONE 1528s [00:52:08.170] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1528s [00:52:08.171] List of 2 1528s [00:52:08.171] $ ...future.FUN:function (..., exclude = if (useNA == "no") c(NA, NaN), useNA = c("no", 1528s [00:52:08.171] "ifany", "always"), dnn = list.names(...), deparse.level = 1) 1528s [00:52:08.171] $ ... : list() 1528s [00:52:08.171] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1528s [00:52:08.171] - attr(*, "where")=List of 2 1528s [00:52:08.171] ..$ ...future.FUN: 1528s [00:52:08.171] ..$ ... : 1528s [00:52:08.171] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1528s [00:52:08.171] - attr(*, "resolved")= logi FALSE 1528s [00:52:08.171] - attr(*, "total_size")= num 354224 1528s [00:52:08.174] Packages to be attached in all futures: [n=0] 1528s [00:52:08.175] getGlobalsAndPackagesXApply() ... DONE 1528s [00:52:08.175] future_lapply() ... 1528s [00:52:08.226] Number of chunks: 1 1528s [00:52:08.227] getGlobalsAndPackagesXApply() ... 1528s [00:52:08.227] - future.globals: with names ‘list()’ 1528s [00:52:08.227] - use_args: TRUE 1528s [00:52:08.227] Globals to be used in all futures (chunks): [n=2] ‘...’, ‘...future.FUN’ 1528s [00:52:08.227] List of 2 1528s [00:52:08.227] $ ... : list() 1528s [00:52:08.227] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1528s [00:52:08.227] $ ...future.FUN:function (..., exclude = if (useNA == "no") c(NA, NaN), useNA = c("no", 1528s [00:52:08.227] "ifany", "always"), dnn = list.names(...), deparse.level = 1) 1528s [00:52:08.227] - attr(*, "where")=List of 2 1528s [00:52:08.227] ..$ ... : 1528s [00:52:08.227] ..$ ...future.FUN: 1528s [00:52:08.227] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1528s [00:52:08.227] - attr(*, "resolved")= logi FALSE 1528s [00:52:08.227] - attr(*, "total_size")= num NA 1528s [00:52:08.231] Packages to be attached in all futures: [n=0] 1528s [00:52:08.232] getGlobalsAndPackagesXApply() ... DONE 1528s [00:52:08.232] Number of futures (= number of chunks): 1 1528s [00:52:08.232] Launching 1 futures (chunks) ... 1528s [00:52:08.232] Chunk #1 of 1 ... 1528s [00:52:08.233] - seeds: 1528s [00:52:08.233] - All globals exported: [n=5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1528s [00:52:08.233] getGlobalsAndPackages() ... 1528s [00:52:08.233] - globals passed as-is: [5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1528s [00:52:08.234] Resolving globals: FALSE 1528s [00:52:08.234] Tweak future expression to call with '...' arguments ... 1528s [00:52:08.234] { 1528s [00:52:08.234] do.call(function(...) { 1528s [00:52:08.234] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1528s [00:52:08.234] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1528s [00:52:08.234] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1528s [00:52:08.234] on.exit(options(oopts), add = TRUE) 1528s [00:52:08.234] } 1528s [00:52:08.234] { 1528s [00:52:08.234] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1528s [00:52:08.234] ...future.X_jj <- ...future.elements_ii[[jj]] 1528s [00:52:08.234] ...future.FUN(...future.X_jj, ...) 1528s [00:52:08.234] }) 1528s [00:52:08.234] } 1528s [00:52:08.234] }, args = future.call.arguments) 1528s [00:52:08.234] } 1528s [00:52:08.234] Tweak future expression to call with '...' arguments ... DONE 1528s [00:52:08.235] - globals: [5] ‘future.call.arguments’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1528s [00:52:08.235] 1528s [00:52:08.235] getGlobalsAndPackages() ... DONE 1528s [00:52:08.236] run() for ‘Future’ ... 1528s [00:52:08.236] - state: ‘created’ 1528s [00:52:08.236] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1528s [00:52:08.237] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1528s [00:52:08.237] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1528s [00:52:08.237] - Field: ‘label’ 1528s [00:52:08.237] - Field: ‘local’ 1528s [00:52:08.237] - Field: ‘owner’ 1528s [00:52:08.237] - Field: ‘envir’ 1528s [00:52:08.237] - Field: ‘packages’ 1528s [00:52:08.237] - Field: ‘gc’ 1528s [00:52:08.238] - Field: ‘conditions’ 1528s [00:52:08.238] - Field: ‘expr’ 1528s [00:52:08.238] - Field: ‘uuid’ 1528s [00:52:08.238] - Field: ‘seed’ 1528s [00:52:08.238] - Field: ‘version’ 1528s [00:52:08.238] - Field: ‘result’ 1528s [00:52:08.238] - Field: ‘asynchronous’ 1528s [00:52:08.238] - Field: ‘calls’ 1528s [00:52:08.239] - Field: ‘globals’ 1528s [00:52:08.239] - Field: ‘stdout’ 1528s [00:52:08.239] - Field: ‘earlySignal’ 1528s [00:52:08.239] - Field: ‘lazy’ 1528s [00:52:08.239] - Field: ‘state’ 1528s [00:52:08.239] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1528s [00:52:08.239] - Launch lazy future ... 1528s [00:52:08.241] Packages needed by the future expression (n = 0): 1528s [00:52:08.241] Packages needed by future strategies (n = 0): 1528s [00:52:08.242] { 1528s [00:52:08.242] { 1528s [00:52:08.242] { 1528s [00:52:08.242] ...future.startTime <- base::Sys.time() 1528s [00:52:08.242] { 1528s [00:52:08.242] { 1528s [00:52:08.242] { 1528s [00:52:08.242] base::local({ 1528s [00:52:08.242] has_future <- base::requireNamespace("future", 1528s [00:52:08.242] quietly = TRUE) 1528s [00:52:08.242] if (has_future) { 1528s [00:52:08.242] ns <- base::getNamespace("future") 1528s [00:52:08.242] version <- ns[[".package"]][["version"]] 1528s [00:52:08.242] if (is.null(version)) 1528s [00:52:08.242] version <- utils::packageVersion("future") 1528s [00:52:08.242] } 1528s [00:52:08.242] else { 1528s [00:52:08.242] version <- NULL 1528s [00:52:08.242] } 1528s [00:52:08.242] if (!has_future || version < "1.8.0") { 1528s [00:52:08.242] info <- base::c(r_version = base::gsub("R version ", 1528s [00:52:08.242] "", base::R.version$version.string), 1528s [00:52:08.242] platform = base::sprintf("%s (%s-bit)", 1528s [00:52:08.242] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1528s [00:52:08.242] os = base::paste(base::Sys.info()[base::c("sysname", 1528s [00:52:08.242] "release", "version")], collapse = " "), 1528s [00:52:08.242] hostname = base::Sys.info()[["nodename"]]) 1528s [00:52:08.242] info <- base::sprintf("%s: %s", base::names(info), 1528s [00:52:08.242] info) 1528s [00:52:08.242] info <- base::paste(info, collapse = "; ") 1528s [00:52:08.242] if (!has_future) { 1528s [00:52:08.242] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1528s [00:52:08.242] info) 1528s [00:52:08.242] } 1528s [00:52:08.242] else { 1528s [00:52:08.242] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1528s [00:52:08.242] info, version) 1528s [00:52:08.242] } 1528s [00:52:08.242] base::stop(msg) 1528s [00:52:08.242] } 1528s [00:52:08.242] }) 1528s [00:52:08.242] } 1528s [00:52:08.242] options(future.plan = NULL) 1528s [00:52:08.242] Sys.unsetenv("R_FUTURE_PLAN") 1528s [00:52:08.242] future::plan("default", .cleanup = FALSE, .init = FALSE) 1528s [00:52:08.242] } 1528s [00:52:08.242] ...future.workdir <- getwd() 1528s [00:52:08.242] } 1528s [00:52:08.242] ...future.oldOptions <- base::as.list(base::.Options) 1528s [00:52:08.242] ...future.oldEnvVars <- base::Sys.getenv() 1528s [00:52:08.242] } 1528s [00:52:08.242] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1528s [00:52:08.242] future.globals.maxSize = Inf, future.globals.method = NULL, 1528s [00:52:08.242] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1528s [00:52:08.242] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1528s [00:52:08.242] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1528s [00:52:08.242] future.stdout.windows.reencode = NULL, width = 80L) 1528s [00:52:08.242] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1528s [00:52:08.242] base::names(...future.oldOptions)) 1528s [00:52:08.242] } 1528s [00:52:08.242] if (FALSE) { 1528s [00:52:08.242] } 1528s [00:52:08.242] else { 1528s [00:52:08.242] if (TRUE) { 1528s [00:52:08.242] ...future.stdout <- base::rawConnection(base::raw(0L), 1528s [00:52:08.242] open = "w") 1528s [00:52:08.242] } 1528s [00:52:08.242] else { 1528s [00:52:08.242] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1528s [00:52:08.242] windows = "NUL", "/dev/null"), open = "w") 1528s [00:52:08.242] } 1528s [00:52:08.242] base::sink(...future.stdout, type = "output", split = FALSE) 1528s [00:52:08.242] base::on.exit(if (!base::is.null(...future.stdout)) { 1528s [00:52:08.242] base::sink(type = "output", split = FALSE) 1528s [00:52:08.242] base::close(...future.stdout) 1528s [00:52:08.242] }, add = TRUE) 1528s [00:52:08.242] } 1528s [00:52:08.242] ...future.frame <- base::sys.nframe() 1528s [00:52:08.242] ...future.conditions <- base::list() 1528s [00:52:08.242] ...future.rng <- base::globalenv()$.Random.seed 1528s [00:52:08.242] if (FALSE) { 1528s [00:52:08.242] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1528s [00:52:08.242] "...future.value", "...future.globalenv.names", ".Random.seed") 1528s [00:52:08.242] } 1528s [00:52:08.242] ...future.result <- base::tryCatch({ 1528s [00:52:08.242] base::withCallingHandlers({ 1528s [00:52:08.242] ...future.value <- base::withVisible(base::local({ 1528s [00:52:08.242] do.call(function(...) { 1528s [00:52:08.242] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1528s [00:52:08.242] if (!identical(...future.globals.maxSize.org, 1528s [00:52:08.242] ...future.globals.maxSize)) { 1528s [00:52:08.242] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1528s [00:52:08.242] on.exit(options(oopts), add = TRUE) 1528s [00:52:08.242] } 1528s [00:52:08.242] { 1528s [00:52:08.242] lapply(seq_along(...future.elements_ii), 1528s [00:52:08.242] FUN = function(jj) { 1528s [00:52:08.242] ...future.X_jj <- ...future.elements_ii[[jj]] 1528s [00:52:08.242] ...future.FUN(...future.X_jj, ...) 1528s [00:52:08.242] }) 1528s [00:52:08.242] } 1528s [00:52:08.242] }, args = future.call.arguments) 1528s [00:52:08.242] })) 1528s [00:52:08.242] future::FutureResult(value = ...future.value$value, 1528s [00:52:08.242] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1528s [00:52:08.242] ...future.rng), globalenv = if (FALSE) 1528s [00:52:08.242] list(added = base::setdiff(base::names(base::.GlobalEnv), 1528s [00:52:08.242] ...future.globalenv.names)) 1528s [00:52:08.242] else NULL, started = ...future.startTime, version = "1.8") 1528s [00:52:08.242] }, condition = base::local({ 1528s [00:52:08.242] c <- base::c 1528s [00:52:08.242] inherits <- base::inherits 1528s [00:52:08.242] invokeRestart <- base::invokeRestart 1528s [00:52:08.242] length <- base::length 1528s [00:52:08.242] list <- base::list 1528s [00:52:08.242] seq.int <- base::seq.int 1528s [00:52:08.242] signalCondition <- base::signalCondition 1528s [00:52:08.242] sys.calls <- base::sys.calls 1528s [00:52:08.242] `[[` <- base::`[[` 1528s [00:52:08.242] `+` <- base::`+` 1528s [00:52:08.242] `<<-` <- base::`<<-` 1528s [00:52:08.242] sysCalls <- function(calls = sys.calls(), from = 1L) { 1528s [00:52:08.242] calls[seq.int(from = from + 12L, to = length(calls) - 1528s [00:52:08.242] 3L)] 1528s [00:52:08.242] } 1528s [00:52:08.242] function(cond) { 1528s [00:52:08.242] is_error <- inherits(cond, "error") 1528s [00:52:08.242] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1528s [00:52:08.242] NULL) 1528s [00:52:08.242] if (is_error) { 1528s [00:52:08.242] sessionInformation <- function() { 1528s [00:52:08.242] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1528s [00:52:08.242] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1528s [00:52:08.242] search = base::search(), system = base::Sys.info()) 1528s [00:52:08.242] } 1528s [00:52:08.242] ...future.conditions[[length(...future.conditions) + 1528s [00:52:08.242] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1528s [00:52:08.242] cond$call), session = sessionInformation(), 1528s [00:52:08.242] timestamp = base::Sys.time(), signaled = 0L) 1528s [00:52:08.242] signalCondition(cond) 1528s [00:52:08.242] } 1528s [00:52:08.242] else if (!ignore && TRUE && inherits(cond, c("condition", 1528s [00:52:08.242] "immediateCondition"))) { 1528s [00:52:08.242] signal <- TRUE && inherits(cond, "immediateCondition") 1528s [00:52:08.242] ...future.conditions[[length(...future.conditions) + 1528s [00:52:08.242] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1528s [00:52:08.242] if (TRUE && !signal) { 1528s [00:52:08.242] muffleCondition <- function (cond, pattern = "^muffle") 1528s [00:52:08.242] { 1528s [00:52:08.242] inherits <- base::inherits 1528s [00:52:08.242] invokeRestart <- base::invokeRestart 1528s [00:52:08.242] is.null <- base::is.null 1528s [00:52:08.242] muffled <- FALSE 1528s [00:52:08.242] if (inherits(cond, "message")) { 1528s [00:52:08.242] muffled <- grepl(pattern, "muffleMessage") 1528s [00:52:08.242] if (muffled) 1528s [00:52:08.242] invokeRestart("muffleMessage") 1528s [00:52:08.242] } 1528s [00:52:08.242] else if (inherits(cond, "warning")) { 1528s [00:52:08.242] muffled <- grepl(pattern, "muffleWarning") 1528s [00:52:08.242] if (muffled) 1528s [00:52:08.242] invokeRestart("muffleWarning") 1528s [00:52:08.242] } 1528s [00:52:08.242] else if (inherits(cond, "condition")) { 1528s [00:52:08.242] if (!is.null(pattern)) { 1528s [00:52:08.242] computeRestarts <- base::computeRestarts 1528s [00:52:08.242] grepl <- base::grepl 1528s [00:52:08.242] restarts <- computeRestarts(cond) 1528s [00:52:08.242] for (restart in restarts) { 1528s [00:52:08.242] name <- restart$name 1528s [00:52:08.242] if (is.null(name)) 1528s [00:52:08.242] next 1528s [00:52:08.242] if (!grepl(pattern, name)) 1528s [00:52:08.242] next 1528s [00:52:08.242] invokeRestart(restart) 1528s [00:52:08.242] muffled <- TRUE 1528s [00:52:08.242] break 1528s [00:52:08.242] } 1528s [00:52:08.242] } 1528s [00:52:08.242] } 1528s [00:52:08.242] invisible(muffled) 1528s [00:52:08.242] } 1528s [00:52:08.242] muffleCondition(cond, pattern = "^muffle") 1528s [00:52:08.242] } 1528s [00:52:08.242] } 1528s [00:52:08.242] else { 1528s [00:52:08.242] if (TRUE) { 1528s [00:52:08.242] muffleCondition <- function (cond, pattern = "^muffle") 1528s [00:52:08.242] { 1528s [00:52:08.242] inherits <- base::inherits 1528s [00:52:08.242] invokeRestart <- base::invokeRestart 1528s [00:52:08.242] is.null <- base::is.null 1528s [00:52:08.242] muffled <- FALSE 1528s [00:52:08.242] if (inherits(cond, "message")) { 1528s [00:52:08.242] muffled <- grepl(pattern, "muffleMessage") 1528s [00:52:08.242] if (muffled) 1528s [00:52:08.242] invokeRestart("muffleMessage") 1528s [00:52:08.242] } 1528s [00:52:08.242] else if (inherits(cond, "warning")) { 1528s [00:52:08.242] muffled <- grepl(pattern, "muffleWarning") 1528s [00:52:08.242] if (muffled) 1528s [00:52:08.242] invokeRestart("muffleWarning") 1528s [00:52:08.242] } 1528s [00:52:08.242] else if (inherits(cond, "condition")) { 1528s [00:52:08.242] if (!is.null(pattern)) { 1528s [00:52:08.242] computeRestarts <- base::computeRestarts 1528s [00:52:08.242] grepl <- base::grepl 1528s [00:52:08.242] restarts <- computeRestarts(cond) 1528s [00:52:08.242] for (restart in restarts) { 1528s [00:52:08.242] name <- restart$name 1528s [00:52:08.242] if (is.null(name)) 1528s [00:52:08.242] next 1528s [00:52:08.242] if (!grepl(pattern, name)) 1528s [00:52:08.242] next 1528s [00:52:08.242] invokeRestart(restart) 1528s [00:52:08.242] muffled <- TRUE 1528s [00:52:08.242] break 1528s [00:52:08.242] } 1528s [00:52:08.242] } 1528s [00:52:08.242] } 1528s [00:52:08.242] invisible(muffled) 1528s [00:52:08.242] } 1528s [00:52:08.242] muffleCondition(cond, pattern = "^muffle") 1528s [00:52:08.242] } 1528s [00:52:08.242] } 1528s [00:52:08.242] } 1528s [00:52:08.242] })) 1528s [00:52:08.242] }, error = function(ex) { 1528s [00:52:08.242] base::structure(base::list(value = NULL, visible = NULL, 1528s [00:52:08.242] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1528s [00:52:08.242] ...future.rng), started = ...future.startTime, 1528s [00:52:08.242] finished = Sys.time(), session_uuid = NA_character_, 1528s [00:52:08.242] version = "1.8"), class = "FutureResult") 1528s [00:52:08.242] }, finally = { 1528s [00:52:08.242] if (!identical(...future.workdir, getwd())) 1528s [00:52:08.242] setwd(...future.workdir) 1528s [00:52:08.242] { 1528s [00:52:08.242] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1528s [00:52:08.242] ...future.oldOptions$nwarnings <- NULL 1528s [00:52:08.242] } 1528s [00:52:08.242] base::options(...future.oldOptions) 1528s [00:52:08.242] if (.Platform$OS.type == "windows") { 1528s [00:52:08.242] old_names <- names(...future.oldEnvVars) 1528s [00:52:08.242] envs <- base::Sys.getenv() 1528s [00:52:08.242] names <- names(envs) 1528s [00:52:08.242] common <- intersect(names, old_names) 1528s [00:52:08.242] added <- setdiff(names, old_names) 1528s [00:52:08.242] removed <- setdiff(old_names, names) 1528s [00:52:08.242] changed <- common[...future.oldEnvVars[common] != 1528s [00:52:08.242] envs[common]] 1528s [00:52:08.242] NAMES <- toupper(changed) 1528s [00:52:08.242] args <- list() 1528s [00:52:08.242] for (kk in seq_along(NAMES)) { 1528s [00:52:08.242] name <- changed[[kk]] 1528s [00:52:08.242] NAME <- NAMES[[kk]] 1528s [00:52:08.242] if (name != NAME && is.element(NAME, old_names)) 1528s [00:52:08.242] next 1528s [00:52:08.242] args[[name]] <- ...future.oldEnvVars[[name]] 1528s [00:52:08.242] } 1528s [00:52:08.242] NAMES <- toupper(added) 1528s [00:52:08.242] for (kk in seq_along(NAMES)) { 1528s [00:52:08.242] name <- added[[kk]] 1528s [00:52:08.242] NAME <- NAMES[[kk]] 1528s [00:52:08.242] if (name != NAME && is.element(NAME, old_names)) 1528s [00:52:08.242] next 1528s [00:52:08.242] args[[name]] <- "" 1528s [00:52:08.242] } 1528s [00:52:08.242] NAMES <- toupper(removed) 1528s [00:52:08.242] for (kk in seq_along(NAMES)) { 1528s [00:52:08.242] name <- removed[[kk]] 1528s [00:52:08.242] NAME <- NAMES[[kk]] 1528s [00:52:08.242] if (name != NAME && is.element(NAME, old_names)) 1528s [00:52:08.242] next 1528s [00:52:08.242] args[[name]] <- ...future.oldEnvVars[[name]] 1528s [00:52:08.242] } 1528s [00:52:08.242] if (length(args) > 0) 1528s [00:52:08.242] base::do.call(base::Sys.setenv, args = args) 1528s [00:52:08.242] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1528s [00:52:08.242] } 1528s [00:52:08.242] else { 1528s [00:52:08.242] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1528s [00:52:08.242] } 1528s [00:52:08.242] { 1528s [00:52:08.242] if (base::length(...future.futureOptionsAdded) > 1528s [00:52:08.242] 0L) { 1528s [00:52:08.242] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1528s [00:52:08.242] base::names(opts) <- ...future.futureOptionsAdded 1528s [00:52:08.242] base::options(opts) 1528s [00:52:08.242] } 1528s [00:52:08.242] { 1528s [00:52:08.242] { 1528s [00:52:08.242] NULL 1528s [00:52:08.242] RNGkind("Mersenne-Twister") 1528s [00:52:08.242] base::rm(list = ".Random.seed", envir = base::globalenv(), 1528s [00:52:08.242] inherits = FALSE) 1528s [00:52:08.242] } 1528s [00:52:08.242] options(future.plan = NULL) 1528s [00:52:08.242] if (is.na(NA_character_)) 1528s [00:52:08.242] Sys.unsetenv("R_FUTURE_PLAN") 1528s [00:52:08.242] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1528s [00:52:08.242] future::plan(list(function (..., envir = parent.frame()) 1528s [00:52:08.242] { 1528s [00:52:08.242] future <- SequentialFuture(..., envir = envir) 1528s [00:52:08.242] if (!future$lazy) 1528s [00:52:08.242] future <- run(future) 1528s [00:52:08.242] invisible(future) 1528s [00:52:08.242] }), .cleanup = FALSE, .init = FALSE) 1528s [00:52:08.242] } 1528s [00:52:08.242] } 1528s [00:52:08.242] } 1528s [00:52:08.242] }) 1528s [00:52:08.242] if (TRUE) { 1528s [00:52:08.242] base::sink(type = "output", split = FALSE) 1528s [00:52:08.242] if (TRUE) { 1528s [00:52:08.242] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1528s [00:52:08.242] } 1528s [00:52:08.242] else { 1528s [00:52:08.242] ...future.result["stdout"] <- base::list(NULL) 1528s [00:52:08.242] } 1528s [00:52:08.242] base::close(...future.stdout) 1528s [00:52:08.242] ...future.stdout <- NULL 1528s [00:52:08.242] } 1528s [00:52:08.242] ...future.result$conditions <- ...future.conditions 1528s [00:52:08.242] ...future.result$finished <- base::Sys.time() 1528s [00:52:08.242] ...future.result 1528s [00:52:08.242] } 1528s [00:52:08.248] assign_globals() ... 1528s [00:52:08.248] List of 5 1528s [00:52:08.248] $ future.call.arguments : list() 1528s [00:52:08.248] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1528s [00:52:08.248] $ ...future.FUN :function (..., exclude = if (useNA == "no") c(NA, NaN), useNA = c("no", 1528s [00:52:08.248] "ifany", "always"), dnn = list.names(...), deparse.level = 1) 1528s [00:52:08.248] $ ...future.elements_ii :List of 2 1528s [00:52:08.248] ..$ : num [1:4] 1 3 1 7 1528s [00:52:08.248] ..$ : num [1:4] 2 4 6 8 1528s [00:52:08.248] $ ...future.seeds_ii : NULL 1528s [00:52:08.248] $ ...future.globals.maxSize: num Inf 1528s [00:52:08.248] - attr(*, "resolved")= logi FALSE 1528s [00:52:08.248] - attr(*, "total_size")= num NA 1528s [00:52:08.248] - attr(*, "where")=List of 5 1528s [00:52:08.248] ..$ future.call.arguments : 1528s [00:52:08.248] ..$ ...future.FUN : 1528s [00:52:08.248] ..$ ...future.elements_ii : 1528s [00:52:08.248] ..$ ...future.seeds_ii : 1528s [00:52:08.248] ..$ ...future.globals.maxSize: 1528s [00:52:08.248] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1528s [00:52:08.248] - attr(*, "already-done")= logi TRUE 1528s [00:52:08.256] - copied ‘future.call.arguments’ to environment 1528s [00:52:08.256] - copied ‘...future.FUN’ to environment 1528s [00:52:08.256] - copied ‘...future.elements_ii’ to environment 1528s [00:52:08.256] - copied ‘...future.seeds_ii’ to environment 1528s [00:52:08.256] - copied ‘...future.globals.maxSize’ to environment 1528s [00:52:08.257] assign_globals() ... done 1528s [00:52:08.257] plan(): Setting new future strategy stack: 1528s [00:52:08.257] List of future strategies: 1528s [00:52:08.257] 1. sequential: 1528s [00:52:08.257] - args: function (..., envir = parent.frame()) 1528s [00:52:08.257] - tweaked: FALSE 1528s [00:52:08.257] - call: NULL 1528s [00:52:08.258] plan(): nbrOfWorkers() = 1 1528s [00:52:08.259] plan(): Setting new future strategy stack: 1528s [00:52:08.259] List of future strategies: 1528s [00:52:08.259] 1. sequential: 1528s [00:52:08.259] - args: function (..., envir = parent.frame()) 1528s [00:52:08.259] - tweaked: FALSE 1528s [00:52:08.259] - call: plan(strategy) 1528s [00:52:08.260] plan(): nbrOfWorkers() = 1 1528s [00:52:08.260] SequentialFuture started (and completed) 1528s [00:52:08.261] - Launch lazy future ... done 1528s [00:52:08.261] run() for ‘SequentialFuture’ ... done 1528s [00:52:08.261] Created future: 1528s [00:52:08.262] SequentialFuture: 1528s [00:52:08.262] Label: ‘future_apply-1’ 1528s [00:52:08.262] Expression: 1528s [00:52:08.262] { 1528s [00:52:08.262] do.call(function(...) { 1528s [00:52:08.262] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1528s [00:52:08.262] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1528s [00:52:08.262] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1528s [00:52:08.262] on.exit(options(oopts), add = TRUE) 1528s [00:52:08.262] } 1528s [00:52:08.262] { 1528s [00:52:08.262] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1528s [00:52:08.262] ...future.X_jj <- ...future.elements_ii[[jj]] 1528s [00:52:08.262] ...future.FUN(...future.X_jj, ...) 1528s [00:52:08.262] }) 1528s [00:52:08.262] } 1528s [00:52:08.262] }, args = future.call.arguments) 1528s [00:52:08.262] } 1528s [00:52:08.262] Lazy evaluation: FALSE 1528s [00:52:08.262] Asynchronous evaluation: FALSE 1528s [00:52:08.262] Local evaluation: TRUE 1528s [00:52:08.262] Environment: R_GlobalEnv 1528s [00:52:08.262] Capture standard output: TRUE 1528s [00:52:08.262] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1528s [00:52:08.262] Globals: 5 objects totaling 346.13 KiB (DotDotDotList ‘future.call.arguments’ of 0 bytes, function ‘...future.FUN’ of 345.92 KiB, list ‘...future.elements_ii’ of 160 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1528s [00:52:08.262] Packages: [[1]] 1528s ...future.X_jj 1528s 1 3 7 1528s 2 1 1 1528s 1528s [[2]] 1528s ...future.X_jj 1528s 2 4 6 8 1528s 1 1 1 1 1528s 1528s 1528s [00:52:08.262] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1528s [00:52:08.262] Resolved: TRUE 1528s [00:52:08.262] Value: 2.21 KiB of class ‘list’ 1528s [00:52:08.262] Early signaling: FALSE 1528s [00:52:08.262] Owner process: 856348fc-72a5-ec0b-63b7-1a3640a93e42 1528s [00:52:08.262] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1528s [00:52:08.264] Chunk #1 of 1 ... DONE 1528s [00:52:08.265] Launching 1 futures (chunks) ... DONE 1528s [00:52:08.265] Resolving 1 futures (chunks) ... 1528s [00:52:08.265] resolve() on list ... 1528s [00:52:08.265] recursive: 0 1528s [00:52:08.265] length: 1 1528s [00:52:08.265] 1528s [00:52:08.266] resolved() for ‘SequentialFuture’ ... 1528s [00:52:08.266] - state: ‘finished’ 1528s [00:52:08.266] - run: TRUE 1528s [00:52:08.266] - result: ‘FutureResult’ 1528s [00:52:08.267] resolved() for ‘SequentialFuture’ ... done 1528s [00:52:08.267] Future #1 1528s [00:52:08.268] signalConditionsASAP(SequentialFuture, pos=1) ... 1528s [00:52:08.268] - nx: 1 1528s [00:52:08.268] - relay: TRUE 1528s [00:52:08.268] - stdout: TRUE 1528s [00:52:08.268] - signal: TRUE 1528s [00:52:08.268] - resignal: FALSE 1528s [00:52:08.268] - force: TRUE 1528s [00:52:08.269] - relayed: [n=1] FALSE 1528s [00:52:08.271] - queued futures: [n=1] FALSE 1528s [00:52:08.271] - until=1 1528s [00:52:08.271] - relaying element #1 1528s [00:52:08.271] - relayed: [n=1] TRUE 1528s [00:52:08.272] - queued futures: [n=1] TRUE 1528s [00:52:08.272] signalConditionsASAP(SequentialFuture, pos=1) ... done 1528s [00:52:08.272] length: 0 (resolved future 1) 1528s [00:52:08.272] Relaying remaining futures 1528s [00:52:08.273] signalConditionsASAP(NULL, pos=0) ... 1528s [00:52:08.273] - nx: 1 1528s [00:52:08.273] - relay: TRUE 1528s [00:52:08.273] - stdout: TRUE 1528s [00:52:08.273] - signal: TRUE 1528s [00:52:08.273] - resignal: FALSE 1528s [00:52:08.273] - force: TRUE 1528s [00:52:08.274] - relayed: [n=1] TRUE 1528s [00:52:08.274] - queued futures: [n=1] TRUE 1528s - flush all 1528s [00:52:08.274] - relayed: [n=1] TRUE 1528s [00:52:08.274] - queued futures: [n=1] TRUE 1528s [00:52:08.274] signalConditionsASAP(NULL, pos=0) ... done 1528s [00:52:08.275] resolve() on list ... DONE 1528s [00:52:08.275] - Number of value chunks collected: 1 1528s [00:52:08.275] Resolving 1 futures (chunks) ... DONE 1528s [00:52:08.275] Reducing values from 1 chunks ... 1528s [00:52:08.275] - Number of values collected after concatenation: 2 1528s [00:52:08.276] - Number of values expected: 2 1528s [00:52:08.276] Reducing values from 1 chunks ... DONE 1528s [00:52:08.276] future_lapply() ... DONE 1528s [00:52:08.278] getGlobalsAndPackagesXApply() ... 1528s [00:52:08.278] - future.globals: TRUE 1528s [00:52:08.278] getGlobalsAndPackages() ... 1528s [00:52:08.279] Searching for globals... 1528s [00:52:08.346] - globals found: [59] ‘FUN’, ‘if’, ‘==’, ‘c’, ‘list.names’, ‘{’, ‘<-’, ‘[’, ‘as.list’, ‘substitute’, ‘-’, ‘&&’, ‘length’, ‘is.list’, ‘!’, ‘is.null’, ‘names’, ‘return’, ‘seq_along’, ‘vapply’, ‘switch’, ‘+’, ‘is.symbol’, ‘as.character’, ‘deparse’, ‘[<-’, ‘missing’, ‘match’, ‘match.arg’, ‘!=’, ‘warning’, ‘list’, ‘[[’, ‘paste’, ‘stop’, ‘integer’, ‘for’, ‘is.factor’, ‘anyNA’, ‘options’, ‘on.exit’, ‘factor’, ‘(’, ‘||’, ‘levels’, ‘as.integer’, ‘which’, ‘is.na’, ‘is.na<-’, ‘>’, ‘prod’, ‘$’, ‘.Machine’, ‘*’, ‘names<-’, ‘array’, ‘tabulate’, ‘class’, ‘class<-’ 1528s [00:52:08.346] Searching for globals ... DONE 1528s [00:52:08.347] Resolving globals: FALSE 1528s [00:52:08.350] The total size of the 1 globals is 345.92 KiB (354224 bytes) 1528s [00:52:08.351] The total size of the 1 globals exported for future expression (‘FUN(X = structure(c(1, 2, 3, 4, 1, 6, 7, 8), dim = c(2L, 4L)))’) is 345.92 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (345.92 KiB of class ‘function’) 1528s [00:52:08.351] - globals: [1] ‘FUN’ 1528s [00:52:08.351] 1528s [00:52:08.351] getGlobalsAndPackages() ... DONE 1528s [00:52:08.352] - globals found/used: [n=1] ‘FUN’ 1528s [00:52:08.352] - needed namespaces: [n=0] 1528s [00:52:08.352] Finding globals ... DONE 1528s [00:52:08.352] - use_args: TRUE 1528s [00:52:08.352] - Getting '...' globals ... 1528s [00:52:08.353] resolve() on list ... 1528s [00:52:08.353] recursive: 0 1528s [00:52:08.353] length: 1 1528s [00:52:08.353] elements: ‘...’ 1528s [00:52:08.354] length: 0 (resolved future 1) 1528s [00:52:08.354] resolve() on list ... DONE 1528s [00:52:08.354] - '...' content: [n=0] 1528s [00:52:08.354] List of 1 1528s [00:52:08.354] $ ...: list() 1528s [00:52:08.354] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1528s [00:52:08.354] - attr(*, "where")=List of 1 1528s [00:52:08.354] ..$ ...: 1528s [00:52:08.354] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1528s [00:52:08.354] - attr(*, "resolved")= logi TRUE 1528s [00:52:08.354] - attr(*, "total_size")= num NA 1528s [00:52:08.358] - Getting '...' globals ... DONE 1528s [00:52:08.358] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1528s [00:52:08.358] List of 2 1528s [00:52:08.358] $ ...future.FUN:function (..., exclude = if (useNA == "no") c(NA, NaN), useNA = c("no", 1528s [00:52:08.358] "ifany", "always"), dnn = list.names(...), deparse.level = 1) 1528s [00:52:08.358] $ ... : list() 1528s [00:52:08.358] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1528s [00:52:08.358] - attr(*, "where")=List of 2 1528s [00:52:08.358] ..$ ...future.FUN: 1528s [00:52:08.358] ..$ ... : 1528s [00:52:08.358] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1528s [00:52:08.358] - attr(*, "resolved")= logi FALSE 1528s [00:52:08.358] - attr(*, "total_size")= num 354224 1528s [00:52:08.361] Packages to be attached in all futures: [n=0] 1528s [00:52:08.362] getGlobalsAndPackagesXApply() ... DONE 1528s [00:52:08.362] future_lapply() ... 1528s [00:52:08.409] Number of chunks: 1 1528s [00:52:08.409] getGlobalsAndPackagesXApply() ... 1528s [00:52:08.409] - future.globals: with names ‘list()’ 1528s [00:52:08.410] - use_args: TRUE 1528s [00:52:08.410] Globals to be used in all futures (chunks): [n=2] ‘...’, ‘...future.FUN’ 1528s [00:52:08.410] List of 2 1528s [00:52:08.410] $ ... : list() 1528s [00:52:08.410] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1528s [00:52:08.410] $ ...future.FUN:function (..., exclude = if (useNA == "no") c(NA, NaN), useNA = c("no", 1528s [00:52:08.410] "ifany", "always"), dnn = list.names(...), deparse.level = 1) 1528s [00:52:08.410] - attr(*, "where")=List of 2 1528s [00:52:08.410] ..$ ... : 1528s [00:52:08.410] ..$ ...future.FUN: 1528s [00:52:08.410] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1528s [00:52:08.410] - attr(*, "resolved")= logi FALSE 1528s [00:52:08.410] - attr(*, "total_size")= num NA 1528s [00:52:08.415] Packages to be attached in all futures: [n=0] 1528s [00:52:08.415] getGlobalsAndPackagesXApply() ... DONE 1528s [00:52:08.415] Number of futures (= number of chunks): 1 1528s [00:52:08.416] Launching 1 futures (chunks) ... 1528s [00:52:08.416] Chunk #1 of 1 ... 1528s [00:52:08.416] - seeds: 1528s [00:52:08.416] - All globals exported: [n=5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1528s [00:52:08.416] getGlobalsAndPackages() ... 1528s [00:52:08.416] - globals passed as-is: [5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1528s [00:52:08.416] Resolving globals: FALSE 1528s [00:52:08.417] Tweak future expression to call with '...' arguments ... 1528s [00:52:08.417] { 1528s [00:52:08.417] do.call(function(...) { 1528s [00:52:08.417] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1528s [00:52:08.417] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1528s [00:52:08.417] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1528s [00:52:08.417] on.exit(options(oopts), add = TRUE) 1528s [00:52:08.417] } 1528s [00:52:08.417] { 1528s [00:52:08.417] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1528s [00:52:08.417] ...future.X_jj <- ...future.elements_ii[[jj]] 1528s [00:52:08.417] ...future.FUN(...future.X_jj, ...) 1528s [00:52:08.417] }) 1528s [00:52:08.417] } 1528s [00:52:08.417] }, args = future.call.arguments) 1528s [00:52:08.417] } 1528s [00:52:08.417] Tweak future expression to call with '...' arguments ... DONE 1528s [00:52:08.418] - globals: [5] ‘future.call.arguments’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1528s [00:52:08.418] 1528s [00:52:08.418] getGlobalsAndPackages() ... DONE 1528s [00:52:08.418] run() for ‘Future’ ... 1528s [00:52:08.418] - state: ‘created’ 1528s [00:52:08.419] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1528s [00:52:08.419] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1528s [00:52:08.419] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1528s [00:52:08.419] - Field: ‘label’ 1528s [00:52:08.420] - Field: ‘local’ 1528s [00:52:08.420] - Field: ‘owner’ 1528s [00:52:08.420] - Field: ‘envir’ 1528s [00:52:08.420] - Field: ‘packages’ 1528s [00:52:08.420] - Field: ‘gc’ 1528s [00:52:08.420] - Field: ‘conditions’ 1528s [00:52:08.421] - Field: ‘expr’ 1528s [00:52:08.421] - Field: ‘uuid’ 1528s [00:52:08.421] - Field: ‘seed’ 1528s [00:52:08.421] - Field: ‘version’ 1528s [00:52:08.422] - Field: ‘result’ 1528s [00:52:08.422] - Field: ‘asynchronous’ 1528s [00:52:08.422] - Field: ‘calls’ 1528s [00:52:08.422] - Field: ‘globals’ 1528s [00:52:08.422] - Field: ‘stdout’ 1528s [00:52:08.423] - Field: ‘earlySignal’ 1528s [00:52:08.423] - Field: ‘lazy’ 1528s [00:52:08.423] - Field: ‘state’ 1528s [00:52:08.423] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1528s [00:52:08.423] - Launch lazy future ... 1528s [00:52:08.424] Packages needed by the future expression (n = 0): 1528s [00:52:08.424] Packages needed by future strategies (n = 0): 1528s [00:52:08.425] { 1528s [00:52:08.425] { 1528s [00:52:08.425] { 1528s [00:52:08.425] ...future.startTime <- base::Sys.time() 1528s [00:52:08.425] { 1528s [00:52:08.425] { 1528s [00:52:08.425] { 1528s [00:52:08.425] base::local({ 1528s [00:52:08.425] has_future <- base::requireNamespace("future", 1528s [00:52:08.425] quietly = TRUE) 1528s [00:52:08.425] if (has_future) { 1528s [00:52:08.425] ns <- base::getNamespace("future") 1528s [00:52:08.425] version <- ns[[".package"]][["version"]] 1528s [00:52:08.425] if (is.null(version)) 1528s [00:52:08.425] version <- utils::packageVersion("future") 1528s [00:52:08.425] } 1528s [00:52:08.425] else { 1528s [00:52:08.425] version <- NULL 1528s [00:52:08.425] } 1528s [00:52:08.425] if (!has_future || version < "1.8.0") { 1528s [00:52:08.425] info <- base::c(r_version = base::gsub("R version ", 1528s [00:52:08.425] "", base::R.version$version.string), 1528s [00:52:08.425] platform = base::sprintf("%s (%s-bit)", 1528s [00:52:08.425] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1528s [00:52:08.425] os = base::paste(base::Sys.info()[base::c("sysname", 1528s [00:52:08.425] "release", "version")], collapse = " "), 1528s [00:52:08.425] hostname = base::Sys.info()[["nodename"]]) 1528s [00:52:08.425] info <- base::sprintf("%s: %s", base::names(info), 1528s [00:52:08.425] info) 1528s [00:52:08.425] info <- base::paste(info, collapse = "; ") 1528s [00:52:08.425] if (!has_future) { 1528s [00:52:08.425] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1528s [00:52:08.425] info) 1528s [00:52:08.425] } 1528s [00:52:08.425] else { 1528s [00:52:08.425] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1528s [00:52:08.425] info, version) 1528s [00:52:08.425] } 1528s [00:52:08.425] base::stop(msg) 1528s [00:52:08.425] } 1528s [00:52:08.425] }) 1528s [00:52:08.425] } 1528s [00:52:08.425] options(future.plan = NULL) 1528s [00:52:08.425] Sys.unsetenv("R_FUTURE_PLAN") 1528s [00:52:08.425] future::plan("default", .cleanup = FALSE, .init = FALSE) 1528s [00:52:08.425] } 1528s [00:52:08.425] ...future.workdir <- getwd() 1528s [00:52:08.425] } 1528s [00:52:08.425] ...future.oldOptions <- base::as.list(base::.Options) 1528s [00:52:08.425] ...future.oldEnvVars <- base::Sys.getenv() 1528s [00:52:08.425] } 1528s [00:52:08.425] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1528s [00:52:08.425] future.globals.maxSize = Inf, future.globals.method = NULL, 1528s [00:52:08.425] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1528s [00:52:08.425] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1528s [00:52:08.425] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1528s [00:52:08.425] future.stdout.windows.reencode = NULL, width = 80L) 1528s [00:52:08.425] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1528s [00:52:08.425] base::names(...future.oldOptions)) 1528s [00:52:08.425] } 1528s [00:52:08.425] if (FALSE) { 1528s [00:52:08.425] } 1528s [00:52:08.425] else { 1528s [00:52:08.425] if (TRUE) { 1528s [00:52:08.425] ...future.stdout <- base::rawConnection(base::raw(0L), 1528s [00:52:08.425] open = "w") 1528s [00:52:08.425] } 1528s [00:52:08.425] else { 1528s [00:52:08.425] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1528s [00:52:08.425] windows = "NUL", "/dev/null"), open = "w") 1528s [00:52:08.425] } 1528s [00:52:08.425] base::sink(...future.stdout, type = "output", split = FALSE) 1528s [00:52:08.425] base::on.exit(if (!base::is.null(...future.stdout)) { 1528s [00:52:08.425] base::sink(type = "output", split = FALSE) 1528s [00:52:08.425] base::close(...future.stdout) 1528s [00:52:08.425] }, add = TRUE) 1528s [00:52:08.425] } 1528s [00:52:08.425] ...future.frame <- base::sys.nframe() 1528s [00:52:08.425] ...future.conditions <- base::list() 1528s [00:52:08.425] ...future.rng <- base::globalenv()$.Random.seed 1528s [00:52:08.425] if (FALSE) { 1528s [00:52:08.425] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1528s [00:52:08.425] "...future.value", "...future.globalenv.names", ".Random.seed") 1528s [00:52:08.425] } 1528s [00:52:08.425] ...future.result <- base::tryCatch({ 1528s [00:52:08.425] base::withCallingHandlers({ 1528s [00:52:08.425] ...future.value <- base::withVisible(base::local({ 1528s [00:52:08.425] do.call(function(...) { 1528s [00:52:08.425] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1528s [00:52:08.425] if (!identical(...future.globals.maxSize.org, 1528s [00:52:08.425] ...future.globals.maxSize)) { 1528s [00:52:08.425] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1528s [00:52:08.425] on.exit(options(oopts), add = TRUE) 1528s [00:52:08.425] } 1528s [00:52:08.425] { 1528s [00:52:08.425] lapply(seq_along(...future.elements_ii), 1528s [00:52:08.425] FUN = function(jj) { 1528s [00:52:08.425] ...future.X_jj <- ...future.elements_ii[[jj]] 1528s [00:52:08.425] ...future.FUN(...future.X_jj, ...) 1528s [00:52:08.425] }) 1528s [00:52:08.425] } 1528s [00:52:08.425] }, args = future.call.arguments) 1528s [00:52:08.425] })) 1528s [00:52:08.425] future::FutureResult(value = ...future.value$value, 1528s [00:52:08.425] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1528s [00:52:08.425] ...future.rng), globalenv = if (FALSE) 1528s [00:52:08.425] list(added = base::setdiff(base::names(base::.GlobalEnv), 1528s [00:52:08.425] ...future.globalenv.names)) 1528s [00:52:08.425] else NULL, started = ...future.startTime, version = "1.8") 1528s [00:52:08.425] }, condition = base::local({ 1528s [00:52:08.425] c <- base::c 1528s [00:52:08.425] inherits <- base::inherits 1528s [00:52:08.425] invokeRestart <- base::invokeRestart 1528s [00:52:08.425] length <- base::length 1528s [00:52:08.425] list <- base::list 1528s [00:52:08.425] seq.int <- base::seq.int 1528s [00:52:08.425] signalCondition <- base::signalCondition 1528s [00:52:08.425] sys.calls <- base::sys.calls 1528s [00:52:08.425] `[[` <- base::`[[` 1528s [00:52:08.425] `+` <- base::`+` 1528s [00:52:08.425] `<<-` <- base::`<<-` 1528s [00:52:08.425] sysCalls <- function(calls = sys.calls(), from = 1L) { 1528s [00:52:08.425] calls[seq.int(from = from + 12L, to = length(calls) - 1528s [00:52:08.425] 3L)] 1528s [00:52:08.425] } 1528s [00:52:08.425] function(cond) { 1528s [00:52:08.425] is_error <- inherits(cond, "error") 1528s [00:52:08.425] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1528s [00:52:08.425] NULL) 1528s [00:52:08.425] if (is_error) { 1528s [00:52:08.425] sessionInformation <- function() { 1528s [00:52:08.425] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1528s [00:52:08.425] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1528s [00:52:08.425] search = base::search(), system = base::Sys.info()) 1528s [00:52:08.425] } 1528s [00:52:08.425] ...future.conditions[[length(...future.conditions) + 1528s [00:52:08.425] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1528s [00:52:08.425] cond$call), session = sessionInformation(), 1528s [00:52:08.425] timestamp = base::Sys.time(), signaled = 0L) 1528s [00:52:08.425] signalCondition(cond) 1528s [00:52:08.425] } 1528s [00:52:08.425] else if (!ignore && TRUE && inherits(cond, c("condition", 1528s [00:52:08.425] "immediateCondition"))) { 1528s [00:52:08.425] signal <- TRUE && inherits(cond, "immediateCondition") 1528s [00:52:08.425] ...future.conditions[[length(...future.conditions) + 1528s [00:52:08.425] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1528s [00:52:08.425] if (TRUE && !signal) { 1528s [00:52:08.425] muffleCondition <- function (cond, pattern = "^muffle") 1528s [00:52:08.425] { 1528s [00:52:08.425] inherits <- base::inherits 1528s [00:52:08.425] invokeRestart <- base::invokeRestart 1528s [00:52:08.425] is.null <- base::is.null 1528s [00:52:08.425] muffled <- FALSE 1528s [00:52:08.425] if (inherits(cond, "message")) { 1528s [00:52:08.425] muffled <- grepl(pattern, "muffleMessage") 1528s [00:52:08.425] if (muffled) 1528s [00:52:08.425] invokeRestart("muffleMessage") 1528s [00:52:08.425] } 1528s [00:52:08.425] else if (inherits(cond, "warning")) { 1528s [00:52:08.425] muffled <- grepl(pattern, "muffleWarning") 1528s [00:52:08.425] if (muffled) 1528s [00:52:08.425] invokeRestart("muffleWarning") 1528s [00:52:08.425] } 1528s [00:52:08.425] else if (inherits(cond, "condition")) { 1528s [00:52:08.425] if (!is.null(pattern)) { 1528s [00:52:08.425] computeRestarts <- base::computeRestarts 1528s [00:52:08.425] grepl <- base::grepl 1528s [00:52:08.425] restarts <- computeRestarts(cond) 1528s [00:52:08.425] for (restart in restarts) { 1528s [00:52:08.425] name <- restart$name 1528s [00:52:08.425] if (is.null(name)) 1528s [00:52:08.425] next 1528s [00:52:08.425] if (!grepl(pattern, name)) 1528s [00:52:08.425] next 1528s [00:52:08.425] invokeRestart(restart) 1528s [00:52:08.425] muffled <- TRUE 1528s [00:52:08.425] break 1528s [00:52:08.425] } 1528s [00:52:08.425] } 1528s [00:52:08.425] } 1528s [00:52:08.425] invisible(muffled) 1528s [00:52:08.425] } 1528s [00:52:08.425] muffleCondition(cond, pattern = "^muffle") 1528s [00:52:08.425] } 1528s [00:52:08.425] } 1528s [00:52:08.425] else { 1528s [00:52:08.425] if (TRUE) { 1528s [00:52:08.425] muffleCondition <- function (cond, pattern = "^muffle") 1528s [00:52:08.425] { 1528s [00:52:08.425] inherits <- base::inherits 1528s [00:52:08.425] invokeRestart <- base::invokeRestart 1528s [00:52:08.425] is.null <- base::is.null 1528s [00:52:08.425] muffled <- FALSE 1528s [00:52:08.425] if (inherits(cond, "message")) { 1528s [00:52:08.425] muffled <- grepl(pattern, "muffleMessage") 1528s [00:52:08.425] if (muffled) 1528s [00:52:08.425] invokeRestart("muffleMessage") 1528s [00:52:08.425] } 1528s [00:52:08.425] else if (inherits(cond, "warning")) { 1528s [00:52:08.425] muffled <- grepl(pattern, "muffleWarning") 1528s [00:52:08.425] if (muffled) 1528s [00:52:08.425] invokeRestart("muffleWarning") 1528s [00:52:08.425] } 1528s [00:52:08.425] else if (inherits(cond, "condition")) { 1528s [00:52:08.425] if (!is.null(pattern)) { 1528s [00:52:08.425] computeRestarts <- base::computeRestarts 1528s [00:52:08.425] grepl <- base::grepl 1528s [00:52:08.425] restarts <- computeRestarts(cond) 1528s [00:52:08.425] for (restart in restarts) { 1528s [00:52:08.425] name <- restart$name 1528s [00:52:08.425] if (is.null(name)) 1528s [00:52:08.425] next 1528s [00:52:08.425] if (!grepl(pattern, name)) 1528s [00:52:08.425] next 1528s [00:52:08.425] invokeRestart(restart) 1528s [00:52:08.425] muffled <- TRUE 1528s [00:52:08.425] break 1528s [00:52:08.425] } 1528s [00:52:08.425] } 1528s [00:52:08.425] } 1528s [00:52:08.425] invisible(muffled) 1528s [00:52:08.425] } 1528s [00:52:08.425] muffleCondition(cond, pattern = "^muffle") 1528s [00:52:08.425] } 1528s [00:52:08.425] } 1528s [00:52:08.425] } 1528s [00:52:08.425] })) 1528s [00:52:08.425] }, error = function(ex) { 1528s [00:52:08.425] base::structure(base::list(value = NULL, visible = NULL, 1528s [00:52:08.425] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1528s [00:52:08.425] ...future.rng), started = ...future.startTime, 1528s [00:52:08.425] finished = Sys.time(), session_uuid = NA_character_, 1528s [00:52:08.425] version = "1.8"), class = "FutureResult") 1528s [00:52:08.425] }, finally = { 1528s [00:52:08.425] if (!identical(...future.workdir, getwd())) 1528s [00:52:08.425] setwd(...future.workdir) 1528s [00:52:08.425] { 1528s [00:52:08.425] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1528s [00:52:08.425] ...future.oldOptions$nwarnings <- NULL 1528s [00:52:08.425] } 1528s [00:52:08.425] base::options(...future.oldOptions) 1528s [00:52:08.425] if (.Platform$OS.type == "windows") { 1528s [00:52:08.425] old_names <- names(...future.oldEnvVars) 1528s [00:52:08.425] envs <- base::Sys.getenv() 1528s [00:52:08.425] names <- names(envs) 1528s [00:52:08.425] common <- intersect(names, old_names) 1528s [00:52:08.425] added <- setdiff(names, old_names) 1528s [00:52:08.425] removed <- setdiff(old_names, names) 1528s [00:52:08.425] changed <- common[...future.oldEnvVars[common] != 1528s [00:52:08.425] envs[common]] 1528s [00:52:08.425] NAMES <- toupper(changed) 1528s [00:52:08.425] args <- list() 1528s [00:52:08.425] for (kk in seq_along(NAMES)) { 1528s [00:52:08.425] name <- changed[[kk]] 1528s [00:52:08.425] NAME <- NAMES[[kk]] 1528s [00:52:08.425] if (name != NAME && is.element(NAME, old_names)) 1528s [00:52:08.425] next 1528s [00:52:08.425] args[[name]] <- ...future.oldEnvVars[[name]] 1528s [00:52:08.425] } 1528s [00:52:08.425] NAMES <- toupper(added) 1528s [00:52:08.425] for (kk in seq_along(NAMES)) { 1528s [00:52:08.425] name <- added[[kk]] 1528s [00:52:08.425] NAME <- NAMES[[kk]] 1528s [00:52:08.425] if (name != NAME && is.element(NAME, old_names)) 1528s [00:52:08.425] next 1528s [00:52:08.425] args[[name]] <- "" 1528s [00:52:08.425] } 1528s [00:52:08.425] NAMES <- toupper(removed) 1528s [00:52:08.425] for (kk in seq_along(NAMES)) { 1528s [00:52:08.425] name <- removed[[kk]] 1528s [00:52:08.425] NAME <- NAMES[[kk]] 1528s [00:52:08.425] if (name != NAME && is.element(NAME, old_names)) 1528s [00:52:08.425] next 1528s [00:52:08.425] args[[name]] <- ...future.oldEnvVars[[name]] 1528s [00:52:08.425] } 1528s [00:52:08.425] if (length(args) > 0) 1528s [00:52:08.425] base::do.call(base::Sys.setenv, args = args) 1528s [00:52:08.425] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1528s [00:52:08.425] } 1528s [00:52:08.425] else { 1528s [00:52:08.425] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1528s [00:52:08.425] } 1528s [00:52:08.425] { 1528s [00:52:08.425] if (base::length(...future.futureOptionsAdded) > 1528s [00:52:08.425] 0L) { 1528s [00:52:08.425] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1528s [00:52:08.425] base::names(opts) <- ...future.futureOptionsAdded 1528s [00:52:08.425] base::options(opts) 1528s [00:52:08.425] } 1528s [00:52:08.425] { 1528s [00:52:08.425] { 1528s [00:52:08.425] NULL 1528s [00:52:08.425] RNGkind("Mersenne-Twister") 1528s [00:52:08.425] base::rm(list = ".Random.seed", envir = base::globalenv(), 1528s [00:52:08.425] inherits = FALSE) 1528s [00:52:08.425] } 1528s [00:52:08.425] options(future.plan = NULL) 1528s [00:52:08.425] if (is.na(NA_character_)) 1528s [00:52:08.425] Sys.unsetenv("R_FUTURE_PLAN") 1528s [00:52:08.425] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1528s [00:52:08.425] future::plan(list(function (..., envir = parent.frame()) 1528s [00:52:08.425] { 1528s [00:52:08.425] future <- SequentialFuture(..., envir = envir) 1528s [00:52:08.425] if (!future$lazy) 1528s [00:52:08.425] future <- run(future) 1528s [00:52:08.425] invisible(future) 1528s [00:52:08.425] }), .cleanup = FALSE, .init = FALSE) 1528s [00:52:08.425] } 1528s [00:52:08.425] } 1528s [00:52:08.425] } 1528s [00:52:08.425] }) 1528s [00:52:08.425] if (TRUE) { 1528s [00:52:08.425] base::sink(type = "output", split = FALSE) 1528s [00:52:08.425] if (TRUE) { 1528s [00:52:08.425] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1528s [00:52:08.425] } 1528s [00:52:08.425] else { 1528s [00:52:08.425] ...future.result["stdout"] <- base::list(NULL) 1528s [00:52:08.425] } 1528s [00:52:08.425] base::close(...future.stdout) 1528s [00:52:08.425] ...future.stdout <- NULL 1528s [00:52:08.425] } 1528s [00:52:08.425] ...future.result$conditions <- ...future.conditions 1528s [00:52:08.425] ...future.result$finished <- base::Sys.time() 1528s [00:52:08.425] ...future.result 1528s [00:52:08.425] } 1528s [00:52:08.428] assign_globals() ... 1528s [00:52:08.428] List of 5 1528s [00:52:08.428] $ future.call.arguments : list() 1528s [00:52:08.428] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1528s [00:52:08.428] $ ...future.FUN :function (..., exclude = if (useNA == "no") c(NA, NaN), useNA = c("no", 1528s [00:52:08.428] "ifany", "always"), dnn = list.names(...), deparse.level = 1) 1528s [00:52:08.428] $ ...future.elements_ii :List of 2 1528s [00:52:08.428] ..$ : num [1:4] 1 3 1 7 1528s [00:52:08.428] ..$ : num [1:4] 2 4 6 8 1528s [00:52:08.428] $ ...future.seeds_ii : NULL 1528s [00:52:08.428] $ ...future.globals.maxSize: num Inf 1528s [00:52:08.428] - attr(*, "resolved")= logi FALSE 1528s [00:52:08.428] - attr(*, "total_size")= num NA 1528s [00:52:08.428] - attr(*, "where")=List of 5 1528s [00:52:08.428] ..$ future.call.arguments : 1528s [00:52:08.428] ..$ ...future.FUN : 1528s [00:52:08.428] ..$ ...future.elements_ii : 1528s [00:52:08.428] ..$ ...future.seeds_ii : 1528s [00:52:08.428] ..$ ...future.globals.maxSize: 1528s [00:52:08.428] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1528s [00:52:08.428] - attr(*, "already-done")= logi TRUE 1528s [00:52:08.435] - copied ‘future.call.arguments’ to environment 1528s [00:52:08.435] - copied ‘...future.FUN’ to environment 1528s [00:52:08.436] - copied ‘...future.elements_ii’ to environment 1528s [00:52:08.436] - copied ‘...future.seeds_ii’ to environment 1528s [00:52:08.436] - copied ‘...future.globals.maxSize’ to environment 1528s [00:52:08.436] assign_globals() ... done 1528s [00:52:08.436] plan(): Setting new future strategy stack: 1528s [00:52:08.437] List of future strategies: 1528s [00:52:08.437] 1. sequential: 1528s [00:52:08.437] - args: function (..., envir = parent.frame()) 1528s [00:52:08.437] - tweaked: FALSE 1528s [00:52:08.437] - call: NULL 1528s [00:52:08.437] plan(): nbrOfWorkers() = 1 1528s [00:52:08.438] plan(): Setting new future strategy stack: 1528s [00:52:08.438] List of future strategies: 1528s [00:52:08.438] 1. sequential: 1528s [00:52:08.438] - args: function (..., envir = parent.frame()) 1528s [00:52:08.438] - tweaked: FALSE 1528s [00:52:08.438] - call: plan(strategy) 1528s [00:52:08.439] plan(): nbrOfWorkers() = 1 1528s [00:52:08.439] SequentialFuture started (and completed) 1528s [00:52:08.439] - Launch lazy future ... done 1528s [00:52:08.439] run() for ‘SequentialFuture’ ... done 1528s [00:52:08.440] Created future: 1528s [00:52:08.440] SequentialFuture: 1528s [00:52:08.440] Label: ‘future_apply-1’ 1528s [00:52:08.440] Expression: 1528s [00:52:08.440] { 1528s [00:52:08.440] do.call(function(...) { 1528s [00:52:08.440] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1528s [00:52:08.440] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1528s [00:52:08.440] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1528s [00:52:08.440] on.exit(options(oopts), add = TRUE) 1528s [00:52:08.440] } 1528s [00:52:08.440] { 1528s [00:52:08.440] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1528s [00:52:08.440] ...future.X_jj <- ...future.elements_ii[[jj]] 1528s [00:52:08.440] ...future.FUN(...future.X_jj, ...) 1528s [00:52:08.440] }) 1528s [00:52:08.440] } 1528s [00:52:08.440] }, args = future.call.arguments) 1528s [00:52:08.440] } 1528s [00:52:08.440] Lazy evaluation: FALSE 1528s [00:52:08.440] Asynchronous evaluation: FALSE 1528s [00:52:08.440] Local evaluation: TRUE 1528s [00:52:08.440] Environment: R_GlobalEnv 1528s [00:52:08.440] Capture standard output: TRUE 1528s [00:52:08.440] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1528s [00:52:08.440] Globals: 5 objects totaling 346.13 KiB (DotDotDotList ‘future.call.arguments’ of 0 bytes, function ‘...future.FUN’ of 345.92 KiB, list ‘...future.elements_ii’ of 160 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1528s [00:52:08.440] Packages: 1528s [00:52:08.440] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1528s [00:52:08.440] Resolved: TRUE 1528s [00:52:08.440] Value: 2.21 KiB of class ‘list’ 1528s [00:52:08.440] Early signaling: FALSE 1528s [00:52:08.440] Owner process: 856348fc-72a5-ec0b-63b7-1a3640a93e42 1528s [00:52:08.440] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1528s [00:52:08.443] Chunk #1 of 1 ... DONE 1528s [00:52:08.444] Launching 1 futures (chunks) ... DONE 1528s [00:52:08.444] Resolving 1 futures (chunks) ... 1528s [00:52:08.444] resolve() on list ... 1528s [00:52:08.444] recursive: 0 1528s [00:52:08.444] length: 1 1528s [00:52:08.444] 1528s [00:52:08.444] resolved() for ‘SequentialFuture’ ... 1528s [00:52:08.445] - state: ‘finished’ 1528s [00:52:08.445] - run: TRUE 1528s [00:52:08.445] - result: ‘FutureResult’ 1528s [00:52:08.445] resolved() for ‘SequentialFuture’ ... done 1528s [00:52:08.445] Future #1 1528s [00:52:08.445] signalConditionsASAP(SequentialFuture, pos=1) ... 1528s [00:52:08.446] - nx: 1 1528s [00:52:08.446] - relay: TRUE 1528s [00:52:08.446] - stdout: TRUE 1528s [00:52:08.446] - signal: TRUE 1528s [00:52:08.446] - resignal: FALSE 1528s [00:52:08.446] - force: TRUE 1528s [00:52:08.446] - relayed: [n=1] FALSE 1528s [00:52:08.447] - queued futures: [n=1] FALSE 1528s [00:52:08.447] - until=1 1528s [00:52:08.447] - relaying element #1 1528s [00:52:08.447] - relayed: [n=1] TRUE 1528s [00:52:08.447] - queued futures: [n=1] TRUE 1528s [00:52:08.447] signalConditionsASAP(SequentialFuture, pos=1) ... done 1528s [00:52:08.448] length: 0 (resolved future 1) 1528s [00:52:08.448] Relaying remaining futures 1528s [00:52:08.448] signalConditionsASAP(NULL, pos=0) ... 1528s [00:52:08.448] - nx: 1 1528s [00:52:08.448] - relay: TRUE 1528s [00:52:08.448] - stdout: TRUE 1528s [00:52:08.448] - signal: TRUE 1528s [00:52:08.448] - resignal: FALSE 1528s [00:52:08.449] - force: TRUE 1528s [00:52:08.449] - relayed: [n=1] TRUE 1528s [00:52:08.449] - queued futures: [n=1] TRUE 1528s - flush all 1528s [00:52:08.449] - relayed: [n=1] TRUE 1528s [00:52:08.449] - queued futures: [n=1] TRUE 1528s [00:52:08.449] signalConditionsASAP(NULL, pos=0) ... done 1528s [00:52:08.450] resolve() on list ... DONE 1528s [00:52:08.450] - Number of value chunks collected: 1 1528s [00:52:08.450] Resolving 1 futures (chunks) ... DONE 1528s [00:52:08.450] Reducing values from 1 chunks ... 1528s [00:52:08.450] - Number of values collected after concatenation: 2 1528s [00:52:08.450] - Number of values expected: 2 1528s [00:52:08.451] Reducing values from 1 chunks ... DONE 1528s [00:52:08.451] future_lapply() ... DONE 1528s [[1]] 1528s ...future.X_jj 1528s 1 3 7 1528s 2 1 1 1528s 1528s [[2]] 1528s ...future.X_jj 1528s 2 4 6 8 1528s 1 1 1 1 1528s 1528s [00:52:08.454] getGlobalsAndPackagesXApply() ... 1528s [00:52:08.455] - future.globals: TRUE 1528s [00:52:08.455] getGlobalsAndPackages() ... 1528s [00:52:08.455] Searching for globals... 1528s [00:52:08.456] - globals found: [2] ‘FUN’, ‘UseMethod’ 1528s [00:52:08.457] Searching for globals ... DONE 1528s [00:52:08.457] Resolving globals: FALSE 1528s [00:52:08.457] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1528s [00:52:08.457] The total size of the 1 globals exported for future expression (‘FUN(X = structure(c(1, 2, 3, 4, 1, 6, 7, 8), dim = c(2L, 4L)))’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1528s [00:52:08.458] - globals: [1] ‘FUN’ 1528s [00:52:08.458] - packages: [1] ‘stats’ 1528s [00:52:08.458] getGlobalsAndPackages() ... DONE 1528s [00:52:08.458] - globals found/used: [n=1] ‘FUN’ 1528s [00:52:08.458] - needed namespaces: [n=1] ‘stats’ 1528s [00:52:08.459] Finding globals ... DONE 1528s [00:52:08.459] - use_args: TRUE 1528s [00:52:08.459] - Getting '...' globals ... 1528s [00:52:08.459] resolve() on list ... 1528s [00:52:08.459] recursive: 0 1528s [00:52:08.459] length: 1 1528s [00:52:08.460] elements: ‘...’ 1528s [00:52:08.460] length: 0 (resolved future 1) 1528s [00:52:08.460] resolve() on list ... DONE 1528s [00:52:08.460] - '...' content: [n=0] 1528s [00:52:08.460] List of 1 1528s [00:52:08.460] $ ...: list() 1528s [00:52:08.460] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1528s [00:52:08.460] - attr(*, "where")=List of 1 1528s [00:52:08.460] ..$ ...: 1528s [00:52:08.460] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1528s [00:52:08.460] - attr(*, "resolved")= logi TRUE 1528s [00:52:08.460] - attr(*, "total_size")= num NA 1528s [00:52:08.463] - Getting '...' globals ... DONE 1528s [00:52:08.464] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1528s [00:52:08.464] List of 2 1528s [00:52:08.464] $ ...future.FUN:function (x, ...) 1528s [00:52:08.464] $ ... : list() 1528s [00:52:08.464] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1528s [00:52:08.464] - attr(*, "where")=List of 2 1528s [00:52:08.464] ..$ ...future.FUN: 1528s [00:52:08.464] ..$ ... : 1528s [00:52:08.464] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1528s [00:52:08.464] - attr(*, "resolved")= logi FALSE 1528s [00:52:08.464] - attr(*, "total_size")= num 1248 1528s [00:52:08.467] Packages to be attached in all futures: [n=1] ‘stats’ 1528s [00:52:08.467] getGlobalsAndPackagesXApply() ... DONE 1528s [00:52:08.467] future_lapply() ... 1528s [00:52:08.468] Number of chunks: 1 1528s [00:52:08.468] getGlobalsAndPackagesXApply() ... 1528s [00:52:08.468] - future.globals: with names ‘list()’ 1528s [00:52:08.468] - use_args: TRUE 1528s [00:52:08.469] Globals to be used in all futures (chunks): [n=2] ‘...’, ‘...future.FUN’ 1528s [00:52:08.469] List of 2 1528s [00:52:08.469] $ ... : list() 1528s [00:52:08.469] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1528s [00:52:08.469] $ ...future.FUN:function (x, ...) 1528s [00:52:08.469] - attr(*, "where")=List of 2 1528s [00:52:08.469] ..$ ... : 1528s [00:52:08.469] ..$ ...future.FUN: 1528s [00:52:08.469] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1528s [00:52:08.469] - attr(*, "resolved")= logi FALSE 1528s [00:52:08.469] - attr(*, "total_size")= num NA 1528s [00:52:08.472] Packages to be attached in all futures: [n=1] ‘stats’ 1528s [00:52:08.472] getGlobalsAndPackagesXApply() ... DONE 1528s [00:52:08.473] Number of futures (= number of chunks): 1 1528s [00:52:08.473] Launching 1 futures (chunks) ... 1528s [00:52:08.473] Chunk #1 of 1 ... 1528s [00:52:08.473] - seeds: 1528s [00:52:08.473] - All globals exported: [n=5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1528s [00:52:08.474] getGlobalsAndPackages() ... 1528s [00:52:08.474] - globals passed as-is: [5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1528s [00:52:08.474] Resolving globals: FALSE 1528s [00:52:08.474] Tweak future expression to call with '...' arguments ... 1528s [00:52:08.476] { 1528s [00:52:08.476] do.call(function(...) { 1528s [00:52:08.476] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1528s [00:52:08.476] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1528s [00:52:08.476] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1528s [00:52:08.476] on.exit(options(oopts), add = TRUE) 1528s [00:52:08.476] } 1528s [00:52:08.476] { 1528s [00:52:08.476] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1528s [00:52:08.476] ...future.X_jj <- ...future.elements_ii[[jj]] 1528s [00:52:08.476] ...future.FUN(...future.X_jj, ...) 1528s [00:52:08.476] }) 1528s [00:52:08.476] } 1528s [00:52:08.476] }, args = future.call.arguments) 1528s [00:52:08.476] } 1528s [00:52:08.477] Tweak future expression to call with '...' arguments ... DONE 1528s [00:52:08.477] - globals: [5] ‘future.call.arguments’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1528s [00:52:08.478] - packages: [1] ‘stats’ 1528s [00:52:08.478] getGlobalsAndPackages() ... DONE 1528s [00:52:08.478] run() for ‘Future’ ... 1528s [00:52:08.478] - state: ‘created’ 1528s [00:52:08.479] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1528s [00:52:08.480] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1528s [00:52:08.480] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1528s [00:52:08.480] - Field: ‘label’ 1528s [00:52:08.481] - Field: ‘local’ 1528s [00:52:08.481] - Field: ‘owner’ 1528s [00:52:08.481] - Field: ‘envir’ 1528s [00:52:08.481] - Field: ‘packages’ 1528s [00:52:08.481] - Field: ‘gc’ 1528s [00:52:08.481] - Field: ‘conditions’ 1528s [00:52:08.482] - Field: ‘expr’ 1528s [00:52:08.482] - Field: ‘uuid’ 1528s [00:52:08.482] - Field: ‘seed’ 1528s [00:52:08.482] - Field: ‘version’ 1528s [00:52:08.482] - Field: ‘result’ 1528s [00:52:08.483] - Field: ‘asynchronous’ 1528s [00:52:08.483] - Field: ‘calls’ 1528s [00:52:08.483] - Field: ‘globals’ 1528s [00:52:08.483] - Field: ‘stdout’ 1528s [00:52:08.483] - Field: ‘earlySignal’ 1528s [00:52:08.484] - Field: ‘lazy’ 1528s [00:52:08.484] - Field: ‘state’ 1528s [00:52:08.484] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1528s [00:52:08.485] - Launch lazy future ... 1528s [00:52:08.485] Packages needed by the future expression (n = 1): ‘stats’ 1528s [00:52:08.485] Packages needed by future strategies (n = 0): 1528s [00:52:08.486] { 1528s [00:52:08.486] { 1528s [00:52:08.486] { 1528s [00:52:08.486] ...future.startTime <- base::Sys.time() 1528s [00:52:08.486] { 1528s [00:52:08.486] { 1528s [00:52:08.486] { 1528s [00:52:08.486] { 1528s [00:52:08.486] base::local({ 1528s [00:52:08.486] has_future <- base::requireNamespace("future", 1528s [00:52:08.486] quietly = TRUE) 1528s [00:52:08.486] if (has_future) { 1528s [00:52:08.486] ns <- base::getNamespace("future") 1528s [00:52:08.486] version <- ns[[".package"]][["version"]] 1528s [00:52:08.486] if (is.null(version)) 1528s [00:52:08.486] version <- utils::packageVersion("future") 1528s [00:52:08.486] } 1528s [00:52:08.486] else { 1528s [00:52:08.486] version <- NULL 1528s [00:52:08.486] } 1528s [00:52:08.486] if (!has_future || version < "1.8.0") { 1528s [00:52:08.486] info <- base::c(r_version = base::gsub("R version ", 1528s [00:52:08.486] "", base::R.version$version.string), 1528s [00:52:08.486] platform = base::sprintf("%s (%s-bit)", 1528s [00:52:08.486] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1528s [00:52:08.486] os = base::paste(base::Sys.info()[base::c("sysname", 1528s [00:52:08.486] "release", "version")], collapse = " "), 1528s [00:52:08.486] hostname = base::Sys.info()[["nodename"]]) 1528s [00:52:08.486] info <- base::sprintf("%s: %s", base::names(info), 1528s [00:52:08.486] info) 1528s [00:52:08.486] info <- base::paste(info, collapse = "; ") 1528s [00:52:08.486] if (!has_future) { 1528s [00:52:08.486] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1528s [00:52:08.486] info) 1528s [00:52:08.486] } 1528s [00:52:08.486] else { 1528s [00:52:08.486] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1528s [00:52:08.486] info, version) 1528s [00:52:08.486] } 1528s [00:52:08.486] base::stop(msg) 1528s [00:52:08.486] } 1528s [00:52:08.486] }) 1528s [00:52:08.486] } 1528s [00:52:08.486] base::local({ 1528s [00:52:08.486] for (pkg in "stats") { 1528s [00:52:08.486] base::loadNamespace(pkg) 1528s [00:52:08.486] base::library(pkg, character.only = TRUE) 1528s [00:52:08.486] } 1528s [00:52:08.486] }) 1528s [00:52:08.486] } 1528s [00:52:08.486] options(future.plan = NULL) 1528s [00:52:08.486] Sys.unsetenv("R_FUTURE_PLAN") 1528s [00:52:08.486] future::plan("default", .cleanup = FALSE, .init = FALSE) 1528s [00:52:08.486] } 1528s [00:52:08.486] ...future.workdir <- getwd() 1528s [00:52:08.486] } 1528s [00:52:08.486] ...future.oldOptions <- base::as.list(base::.Options) 1528s [00:52:08.486] ...future.oldEnvVars <- base::Sys.getenv() 1528s [00:52:08.486] } 1528s [00:52:08.486] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1528s [00:52:08.486] future.globals.maxSize = Inf, future.globals.method = NULL, 1528s [00:52:08.486] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1528s [00:52:08.486] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1528s [00:52:08.486] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1528s [00:52:08.486] future.stdout.windows.reencode = NULL, width = 80L) 1528s [00:52:08.486] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1528s [00:52:08.486] base::names(...future.oldOptions)) 1528s [00:52:08.486] } 1528s [00:52:08.486] if (FALSE) { 1528s [00:52:08.486] } 1528s [00:52:08.486] else { 1528s [00:52:08.486] if (TRUE) { 1528s [00:52:08.486] ...future.stdout <- base::rawConnection(base::raw(0L), 1528s [00:52:08.486] open = "w") 1528s [00:52:08.486] } 1528s [00:52:08.486] else { 1528s [00:52:08.486] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1528s [00:52:08.486] windows = "NUL", "/dev/null"), open = "w") 1528s [00:52:08.486] } 1528s [00:52:08.486] base::sink(...future.stdout, type = "output", split = FALSE) 1528s [00:52:08.486] base::on.exit(if (!base::is.null(...future.stdout)) { 1528s [00:52:08.486] base::sink(type = "output", split = FALSE) 1528s [00:52:08.486] base::close(...future.stdout) 1528s [00:52:08.486] }, add = TRUE) 1528s [00:52:08.486] } 1528s [00:52:08.486] ...future.frame <- base::sys.nframe() 1528s [00:52:08.486] ...future.conditions <- base::list() 1528s [00:52:08.486] ...future.rng <- base::globalenv()$.Random.seed 1528s [00:52:08.486] if (FALSE) { 1528s [00:52:08.486] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1528s [00:52:08.486] "...future.value", "...future.globalenv.names", ".Random.seed") 1528s [00:52:08.486] } 1528s [00:52:08.486] ...future.result <- base::tryCatch({ 1528s [00:52:08.486] base::withCallingHandlers({ 1528s [00:52:08.486] ...future.value <- base::withVisible(base::local({ 1528s [00:52:08.486] do.call(function(...) { 1528s [00:52:08.486] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1528s [00:52:08.486] if (!identical(...future.globals.maxSize.org, 1528s [00:52:08.486] ...future.globals.maxSize)) { 1528s [00:52:08.486] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1528s [00:52:08.486] on.exit(options(oopts), add = TRUE) 1528s [00:52:08.486] } 1528s [00:52:08.486] { 1528s [00:52:08.486] lapply(seq_along(...future.elements_ii), 1528s [00:52:08.486] FUN = function(jj) { 1528s [00:52:08.486] ...future.X_jj <- ...future.elements_ii[[jj]] 1528s [00:52:08.486] ...future.FUN(...future.X_jj, ...) 1528s [00:52:08.486] }) 1528s [00:52:08.486] } 1528s [00:52:08.486] }, args = future.call.arguments) 1528s [00:52:08.486] })) 1528s [00:52:08.486] future::FutureResult(value = ...future.value$value, 1528s [00:52:08.486] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1528s [00:52:08.486] ...future.rng), globalenv = if (FALSE) 1528s [00:52:08.486] list(added = base::setdiff(base::names(base::.GlobalEnv), 1528s [00:52:08.486] ...future.globalenv.names)) 1528s [00:52:08.486] else NULL, started = ...future.startTime, version = "1.8") 1528s [00:52:08.486] }, condition = base::local({ 1528s [00:52:08.486] c <- base::c 1528s [00:52:08.486] inherits <- base::inherits 1528s [00:52:08.486] invokeRestart <- base::invokeRestart 1528s [00:52:08.486] length <- base::length 1528s [00:52:08.486] list <- base::list 1528s [00:52:08.486] seq.int <- base::seq.int 1528s [00:52:08.486] signalCondition <- base::signalCondition 1528s [00:52:08.486] sys.calls <- base::sys.calls 1528s [00:52:08.486] `[[` <- base::`[[` 1528s [00:52:08.486] `+` <- base::`+` 1528s [00:52:08.486] `<<-` <- base::`<<-` 1528s [00:52:08.486] sysCalls <- function(calls = sys.calls(), from = 1L) { 1528s [00:52:08.486] calls[seq.int(from = from + 12L, to = length(calls) - 1528s [00:52:08.486] 3L)] 1528s [00:52:08.486] } 1528s [00:52:08.486] function(cond) { 1528s [00:52:08.486] is_error <- inherits(cond, "error") 1528s [00:52:08.486] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1528s [00:52:08.486] NULL) 1528s [00:52:08.486] if (is_error) { 1528s [00:52:08.486] sessionInformation <- function() { 1528s [00:52:08.486] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1528s [00:52:08.486] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1528s [00:52:08.486] search = base::search(), system = base::Sys.info()) 1528s [00:52:08.486] } 1528s [00:52:08.486] ...future.conditions[[length(...future.conditions) + 1528s [00:52:08.486] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1528s [00:52:08.486] cond$call), session = sessionInformation(), 1528s [00:52:08.486] timestamp = base::Sys.time(), signaled = 0L) 1528s [00:52:08.486] signalCondition(cond) 1528s [00:52:08.486] } 1528s [00:52:08.486] else if (!ignore && TRUE && inherits(cond, c("condition", 1528s [00:52:08.486] "immediateCondition"))) { 1528s [00:52:08.486] signal <- TRUE && inherits(cond, "immediateCondition") 1528s [00:52:08.486] ...future.conditions[[length(...future.conditions) + 1528s [00:52:08.486] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1528s [00:52:08.486] if (TRUE && !signal) { 1528s [00:52:08.486] muffleCondition <- function (cond, pattern = "^muffle") 1528s [00:52:08.486] { 1528s [00:52:08.486] inherits <- base::inherits 1528s [00:52:08.486] invokeRestart <- base::invokeRestart 1528s [00:52:08.486] is.null <- base::is.null 1528s [00:52:08.486] muffled <- FALSE 1528s [00:52:08.486] if (inherits(cond, "message")) { 1528s [00:52:08.486] muffled <- grepl(pattern, "muffleMessage") 1528s [00:52:08.486] if (muffled) 1528s [00:52:08.486] invokeRestart("muffleMessage") 1528s [00:52:08.486] } 1528s [00:52:08.486] else if (inherits(cond, "warning")) { 1528s [00:52:08.486] muffled <- grepl(pattern, "muffleWarning") 1528s [00:52:08.486] if (muffled) 1528s [00:52:08.486] invokeRestart("muffleWarning") 1528s [00:52:08.486] } 1528s [00:52:08.486] else if (inherits(cond, "condition")) { 1528s [00:52:08.486] if (!is.null(pattern)) { 1528s [00:52:08.486] computeRestarts <- base::computeRestarts 1528s [00:52:08.486] grepl <- base::grepl 1528s [00:52:08.486] restarts <- computeRestarts(cond) 1528s [00:52:08.486] for (restart in restarts) { 1528s [00:52:08.486] name <- restart$name 1528s [00:52:08.486] if (is.null(name)) 1528s [00:52:08.486] next 1528s [00:52:08.486] if (!grepl(pattern, name)) 1528s [00:52:08.486] next 1528s [00:52:08.486] invokeRestart(restart) 1528s [00:52:08.486] muffled <- TRUE 1528s [00:52:08.486] break 1528s [00:52:08.486] } 1528s [00:52:08.486] } 1528s [00:52:08.486] } 1528s [00:52:08.486] invisible(muffled) 1528s [00:52:08.486] } 1528s [00:52:08.486] muffleCondition(cond, pattern = "^muffle") 1528s [00:52:08.486] } 1528s [00:52:08.486] } 1528s [00:52:08.486] else { 1528s [00:52:08.486] if (TRUE) { 1528s [00:52:08.486] muffleCondition <- function (cond, pattern = "^muffle") 1528s [00:52:08.486] { 1528s [00:52:08.486] inherits <- base::inherits 1528s [00:52:08.486] invokeRestart <- base::invokeRestart 1528s [00:52:08.486] is.null <- base::is.null 1528s [00:52:08.486] muffled <- FALSE 1528s [00:52:08.486] if (inherits(cond, "message")) { 1528s [00:52:08.486] muffled <- grepl(pattern, "muffleMessage") 1528s [00:52:08.486] if (muffled) 1528s [00:52:08.486] invokeRestart("muffleMessage") 1528s [00:52:08.486] } 1528s [00:52:08.486] else if (inherits(cond, "warning")) { 1528s [00:52:08.486] muffled <- grepl(pattern, "muffleWarning") 1528s [00:52:08.486] if (muffled) 1528s [00:52:08.486] invokeRestart("muffleWarning") 1528s [00:52:08.486] } 1528s [00:52:08.486] else if (inherits(cond, "condition")) { 1528s [00:52:08.486] if (!is.null(pattern)) { 1528s [00:52:08.486] computeRestarts <- base::computeRestarts 1528s [00:52:08.486] grepl <- base::grepl 1528s [00:52:08.486] restarts <- computeRestarts(cond) 1528s [00:52:08.486] for (restart in restarts) { 1528s [00:52:08.486] name <- restart$name 1528s [00:52:08.486] if (is.null(name)) 1528s [00:52:08.486] next 1528s [00:52:08.486] if (!grepl(pattern, name)) 1528s [00:52:08.486] next 1528s [00:52:08.486] invokeRestart(restart) 1528s [00:52:08.486] muffled <- TRUE 1528s [00:52:08.486] break 1528s [00:52:08.486] } 1528s [00:52:08.486] } 1528s [00:52:08.486] } 1528s [00:52:08.486] invisible(muffled) 1528s [00:52:08.486] } 1528s [00:52:08.486] muffleCondition(cond, pattern = "^muffle") 1528s [00:52:08.486] } 1528s [00:52:08.486] } 1528s [00:52:08.486] } 1528s [00:52:08.486] })) 1528s [00:52:08.486] }, error = function(ex) { 1528s [00:52:08.486] base::structure(base::list(value = NULL, visible = NULL, 1528s [00:52:08.486] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1528s [00:52:08.486] ...future.rng), started = ...future.startTime, 1528s [00:52:08.486] finished = Sys.time(), session_uuid = NA_character_, 1528s [00:52:08.486] version = "1.8"), class = "FutureResult") 1528s [00:52:08.486] }, finally = { 1528s [00:52:08.486] if (!identical(...future.workdir, getwd())) 1528s [00:52:08.486] setwd(...future.workdir) 1528s [00:52:08.486] { 1528s [00:52:08.486] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1528s [00:52:08.486] ...future.oldOptions$nwarnings <- NULL 1528s [00:52:08.486] } 1528s [00:52:08.486] base::options(...future.oldOptions) 1528s [00:52:08.486] if (.Platform$OS.type == "windows") { 1528s [00:52:08.486] old_names <- names(...future.oldEnvVars) 1528s [00:52:08.486] envs <- base::Sys.getenv() 1528s [00:52:08.486] names <- names(envs) 1528s [00:52:08.486] common <- intersect(names, old_names) 1528s [00:52:08.486] added <- setdiff(names, old_names) 1528s [00:52:08.486] removed <- setdiff(old_names, names) 1528s [00:52:08.486] changed <- common[...future.oldEnvVars[common] != 1528s [00:52:08.486] envs[common]] 1528s [00:52:08.486] NAMES <- toupper(changed) 1528s [00:52:08.486] args <- list() 1528s [00:52:08.486] for (kk in seq_along(NAMES)) { 1528s [00:52:08.486] name <- changed[[kk]] 1528s [00:52:08.486] NAME <- NAMES[[kk]] 1528s [00:52:08.486] if (name != NAME && is.element(NAME, old_names)) 1528s [00:52:08.486] next 1528s [00:52:08.486] args[[name]] <- ...future.oldEnvVars[[name]] 1528s [00:52:08.486] } 1528s [00:52:08.486] NAMES <- toupper(added) 1528s [00:52:08.486] for (kk in seq_along(NAMES)) { 1528s [00:52:08.486] name <- added[[kk]] 1528s [00:52:08.486] NAME <- NAMES[[kk]] 1528s [00:52:08.486] if (name != NAME && is.element(NAME, old_names)) 1528s [00:52:08.486] next 1528s [00:52:08.486] args[[name]] <- "" 1528s [00:52:08.486] } 1528s [00:52:08.486] NAMES <- toupper(removed) 1528s [00:52:08.486] for (kk in seq_along(NAMES)) { 1528s [00:52:08.486] name <- removed[[kk]] 1528s [00:52:08.486] NAME <- NAMES[[kk]] 1528s [00:52:08.486] if (name != NAME && is.element(NAME, old_names)) 1528s [00:52:08.486] next 1528s [00:52:08.486] args[[name]] <- ...future.oldEnvVars[[name]] 1528s [00:52:08.486] } 1528s [00:52:08.486] if (length(args) > 0) 1528s [00:52:08.486] base::do.call(base::Sys.setenv, args = args) 1528s [00:52:08.486] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1528s [00:52:08.486] } 1528s [00:52:08.486] else { 1528s [00:52:08.486] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1528s [00:52:08.486] } 1528s [00:52:08.486] { 1528s [00:52:08.486] if (base::length(...future.futureOptionsAdded) > 1528s [00:52:08.486] 0L) { 1528s [00:52:08.486] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1528s [00:52:08.486] base::names(opts) <- ...future.futureOptionsAdded 1528s [00:52:08.486] base::options(opts) 1528s [00:52:08.486] } 1528s [00:52:08.486] { 1528s [00:52:08.486] { 1528s [00:52:08.486] NULL 1528s [00:52:08.486] RNGkind("Mersenne-Twister") 1528s [00:52:08.486] base::rm(list = ".Random.seed", envir = base::globalenv(), 1528s [00:52:08.486] inherits = FALSE) 1528s [00:52:08.486] } 1528s [00:52:08.486] options(future.plan = NULL) 1528s [00:52:08.486] if (is.na(NA_character_)) 1528s [00:52:08.486] Sys.unsetenv("R_FUTURE_PLAN") 1528s [00:52:08.486] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1528s [00:52:08.486] future::plan(list(function (..., envir = parent.frame()) 1528s [00:52:08.486] { 1528s [00:52:08.486] future <- SequentialFuture(..., envir = envir) 1528s [00:52:08.486] if (!future$lazy) 1528s [00:52:08.486] future <- run(future) 1528s [00:52:08.486] invisible(future) 1528s [00:52:08.486] }), .cleanup = FALSE, .init = FALSE) 1528s [00:52:08.486] } 1528s [00:52:08.486] } 1528s [00:52:08.486] } 1528s [00:52:08.486] }) 1528s [00:52:08.486] if (TRUE) { 1528s [00:52:08.486] base::sink(type = "output", split = FALSE) 1528s [00:52:08.486] if (TRUE) { 1528s [00:52:08.486] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1528s [00:52:08.486] } 1528s [00:52:08.486] else { 1528s [00:52:08.486] ...future.result["stdout"] <- base::list(NULL) 1528s [00:52:08.486] } 1528s [00:52:08.486] base::close(...future.stdout) 1528s [00:52:08.486] ...future.stdout <- NULL 1528s [00:52:08.486] } 1528s [00:52:08.486] ...future.result$conditions <- ...future.conditions 1528s [00:52:08.486] ...future.result$finished <- base::Sys.time() 1528s [00:52:08.486] ...future.result 1528s [00:52:08.486] } 1528s [00:52:08.491] assign_globals() ... 1528s [00:52:08.491] List of 5 1528s [00:52:08.491] $ future.call.arguments : list() 1528s [00:52:08.491] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1528s [00:52:08.491] $ ...future.FUN :function (x, ...) 1528s [00:52:08.491] $ ...future.elements_ii :List of 2 1528s [00:52:08.491] ..$ : num [1:4] 1 3 1 7 1528s [00:52:08.491] ..$ : num [1:4] 2 4 6 8 1528s [00:52:08.491] $ ...future.seeds_ii : NULL 1528s [00:52:08.491] $ ...future.globals.maxSize: num Inf 1528s [00:52:08.491] - attr(*, "resolved")= logi FALSE 1528s [00:52:08.491] - attr(*, "total_size")= num NA 1528s [00:52:08.491] - attr(*, "where")=List of 5 1528s [00:52:08.491] ..$ future.call.arguments : 1528s [00:52:08.491] ..$ ...future.FUN : 1528s [00:52:08.491] ..$ ...future.elements_ii : 1528s [00:52:08.491] ..$ ...future.seeds_ii : 1528s [00:52:08.491] ..$ ...future.globals.maxSize: 1528s [00:52:08.491] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1528s [00:52:08.491] - attr(*, "already-done")= logi TRUE 1528s [00:52:08.497] - copied ‘future.call.arguments’ to environment 1528s [00:52:08.497] - copied ‘...future.FUN’ to environment 1528s [00:52:08.497] - copied ‘...future.elements_ii’ to environment 1528s [00:52:08.498] - copied ‘...future.seeds_ii’ to environment 1528s [00:52:08.498] - copied ‘...future.globals.maxSize’ to environment 1528s [00:52:08.498] assign_globals() ... done 1528s [00:52:08.498] plan(): Setting new future strategy stack: 1528s [00:52:08.498] List of future strategies: 1528s [00:52:08.498] 1. sequential: 1528s [00:52:08.498] - args: function (..., envir = parent.frame()) 1528s [00:52:08.498] - tweaked: FALSE 1528s [00:52:08.498] - call: NULL 1528s [00:52:08.499] plan(): nbrOfWorkers() = 1 1528s [00:52:08.500] plan(): Setting new future strategy stack: 1528s [00:52:08.500] List of future strategies: 1528s [00:52:08.500] 1. sequential: 1528s [00:52:08.500] - args: function (..., envir = parent.frame()) 1528s [00:52:08.500] - tweaked: FALSE 1528s [00:52:08.500] - call: plan(strategy) 1528s [00:52:08.501] plan(): nbrOfWorkers() = 1 1528s [00:52:08.501] SequentialFuture started (and completed) 1528s [00:52:08.501] - Launch lazy future ... done 1528s [00:52:08.501] run() for ‘SequentialFuture’ ... done 1528s [00:52:08.502] Created future: 1528s [00:52:08.502] SequentialFuture: 1528s [00:52:08.502] Label: ‘future_apply-1’ 1528s [00:52:08.502] Expression: 1528s [00:52:08.502] { 1528s [00:52:08.502] do.call(function(...) { 1528s [00:52:08.502] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1528s [00:52:08.502] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1528s [00:52:08.502] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1528s [00:52:08.502] on.exit(options(oopts), add = TRUE) 1528s [00:52:08.502] } 1528s [00:52:08.502] { 1528s [00:52:08.502] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1528s [00:52:08.502] ...future.X_jj <- ...future.elements_ii[[jj]] 1528s [00:52:08.502] ...future.FUN(...future.X_jj, ...) 1528s [00:52:08.502] }) 1528s [00:52:08.502] } 1528s [00:52:08.502] }, args = future.call.arguments) 1528s [00:52:08.502] } 1528s [00:52:08.502] Lazy evaluation: FALSE 1528s [00:52:08.502] Asynchronous evaluation: FALSE 1528s [00:52:08.502] Local evaluation: TRUE 1528s [00:52:08.502] Environment: R_GlobalEnv 1528s [00:52:08.502] Capture standard output: TRUE 1528s [00:52:08.502] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1528s [00:52:08.502] Globals: 5 objects totaling 1.43 KiB (DotDotDotList ‘future.call.arguments’ of 0 bytes, function ‘...future.FUN’ of 1.22 KiB, list ‘...future.elements_ii’ of 160 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1528s [00:52:08.502] Packages: 1 packages (‘stats’) 1528s [00:52:08.502] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1528s [00:52:08.502] Resolved: TRUE 1528s [00:52:08.502] Value: 1.14 KiB of class ‘list’ 1528s [00:52:08.502] Early signaling: FALSE 1528s [00:52:08.502] Owner process: 856348fc-72a5-ec0b-63b7-1a3640a93e42 1528s [00:52:08.502] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1528s [00:52:08.503] Chunk #1 of 1 ... DONE 1528s [00:52:08.504] Launching 1 futures (chunks) ... DONE 1528s [00:52:08.504] Resolving 1 futures (chunks) ... 1528s [00:52:08.504] resolve() on list ... 1528s [00:52:08.504] recursive: 0 1528s [00:52:08.504] length: 1 1528s [00:52:08.504] 1528s [00:52:08.504] resolved() for ‘SequentialFuture’ ... 1528s [00:52:08.505] - state: ‘finished’ 1528s [00:52:08.505] - run: TRUE 1528s [00:52:08.505] - result: ‘FutureResult’ 1528s [00:52:08.505] resolved() for ‘SequentialFuture’ ... done 1528s [00:52:08.505] Future #1 1528s [00:52:08.505] signalConditionsASAP(SequentialFuture, pos=1) ... 1528s [00:52:08.506] - nx: 1 1528s [00:52:08.506] - relay: TRUE 1528s [00:52:08.506] - stdout: TRUE 1528s [00:52:08.506] - signal: TRUE 1528s [00:52:08.506] - resignal: FALSE 1528s [00:52:08.506] - force: TRUE 1528s [00:52:08.506] - relayed: [n=1] FALSE 1528s [00:52:08.506] - queued futures: [n=1] FALSE 1528s [00:52:08.507] - until=1 1528s [00:52:08.507] - relaying element #1 1528s [00:52:08.507] - relayed: [n=1] TRUE 1528s [00:52:08.507] - queued futures: [n=1] TRUE 1528s [00:52:08.507] signalConditionsASAP(SequentialFuture, pos=1) ... done 1528s [00:52:08.507] length: 0 (resolved future 1) 1528s [00:52:08.508] Relaying remaining futures 1528s [00:52:08.508] signalConditionsASAP(NULL, pos=0) ... 1528s [00:52:08.508] - nx: 1 1528s [00:52:08.508] - relay: TRUE 1528s [00:52:08.508] - stdout: TRUE 1528s [00:52:08.508] - signal: TRUE 1528s [00:52:08.508] - resignal: FALSE 1528s [00:52:08.509] - force: TRUE 1528s [00:52:08.509] - relayed: [n=1] TRUE 1528s [00:52:08.509] - queued futures: [n=1] TRUE 1528s - flush all 1528s [00:52:08.509] - relayed: [n=1] TRUE 1528s [00:52:08.509] - queued futures: [n=1] TRUE 1528s [00:52:08.509] signalConditionsASAP(NULL, pos=0) ... done 1528s [00:52:08.510] resolve() on list ... DONE 1528s [00:52:08.510] - Number of value chunks collected: 1 1528s [00:52:08.510] Resolving 1 futures (chunks) ... DONE 1528s [00:52:08.510] Reducing values from 1 chunks ... 1528s [00:52:08.510] - Number of values collected after concatenation: 2 1528s [00:52:08.510] - Number of values expected: 2 1528s [00:52:08.510] Reducing values from 1 chunks ... DONE 1528s [00:52:08.511] future_lapply() ... DONE 1528s [,1] [,2] 1528s 0% 1 2.0 1528s 25% 1 3.5 1528s 50% 2 5.0 1528s 75% 4 6.5 1528s 100% 7 8.0 1528s [00:52:08.512] getGlobalsAndPackagesXApply() ... 1528s [00:52:08.512] - future.globals: TRUE 1528s [00:52:08.512] getGlobalsAndPackages() ... 1528s [00:52:08.513] Searching for globals... 1528s [00:52:08.514] - globals found: [1] ‘FUN’ 1528s [00:52:08.514] Searching for globals ... DONE 1528s [00:52:08.515] Resolving globals: FALSE 1528s [00:52:08.515] The total size of the 1 globals is 848 bytes (848 bytes) 1528s [00:52:08.518] The total size of the 1 globals exported for future expression (‘FUN(X = structure(c(3, 3, 3, 3, 3, 3, 3, 3, 4, 3, 2, 1, 2, 3,; 4, 5), dim = c(8L, 2L), dimnames = list(row = NULL, col = c("x1",; "x2"))))’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1528s [00:52:08.518] - globals: [1] ‘FUN’ 1528s [00:52:08.518] 1528s [00:52:08.519] getGlobalsAndPackages() ... DONE 1528s [00:52:08.519] - globals found/used: [n=1] ‘FUN’ 1528s [00:52:08.519] - needed namespaces: [n=0] 1528s [00:52:08.519] Finding globals ... DONE 1528s [00:52:08.519] - use_args: TRUE 1528s [00:52:08.519] - Getting '...' globals ... 1528s [00:52:08.520] resolve() on list ... 1528s [00:52:08.520] recursive: 0 1528s [00:52:08.520] length: 1 1528s [00:52:08.520] elements: ‘...’ 1528s [00:52:08.520] length: 0 (resolved future 1) 1528s [00:52:08.521] resolve() on list ... DONE 1528s [00:52:08.521] - '...' content: [n=0] 1528s [00:52:08.521] List of 1 1528s [00:52:08.521] $ ...: list() 1528s [00:52:08.521] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1528s [00:52:08.521] - attr(*, "where")=List of 1 1528s [00:52:08.521] ..$ ...: 1528s [00:52:08.521] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1528s [00:52:08.521] - attr(*, "resolved")= logi TRUE 1528s [00:52:08.521] - attr(*, "total_size")= num NA 1528s [00:52:08.524] - Getting '...' globals ... DONE 1528s [00:52:08.524] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1528s [00:52:08.525] List of 2 1528s [00:52:08.525] $ ...future.FUN:function (x) 1528s [00:52:08.525] $ ... : list() 1528s [00:52:08.525] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1528s [00:52:08.525] - attr(*, "where")=List of 2 1528s [00:52:08.525] ..$ ...future.FUN: 1528s [00:52:08.525] ..$ ... : 1528s [00:52:08.525] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1528s [00:52:08.525] - attr(*, "resolved")= logi FALSE 1528s [00:52:08.525] - attr(*, "total_size")= num 848 1528s [00:52:08.528] Packages to be attached in all futures: [n=0] 1528s [00:52:08.528] getGlobalsAndPackagesXApply() ... DONE 1528s [00:52:08.529] future_lapply() ... 1528s [00:52:08.529] Number of chunks: 1 1528s [00:52:08.529] getGlobalsAndPackagesXApply() ... 1528s [00:52:08.530] - future.globals: with names ‘list()’ 1528s [00:52:08.530] - use_args: TRUE 1528s [00:52:08.530] Globals to be used in all futures (chunks): [n=2] ‘...’, ‘...future.FUN’ 1528s [00:52:08.530] List of 2 1528s [00:52:08.530] $ ... : list() 1528s [00:52:08.530] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1528s [00:52:08.530] $ ...future.FUN:function (x) 1528s [00:52:08.530] - attr(*, "where")=List of 2 1528s [00:52:08.530] ..$ ... : 1528s [00:52:08.530] ..$ ...future.FUN: 1528s [00:52:08.530] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1528s [00:52:08.530] - attr(*, "resolved")= logi FALSE 1528s [00:52:08.530] - attr(*, "total_size")= num NA 1528s [00:52:08.535] Packages to be attached in all futures: [n=0] 1528s [00:52:08.535] getGlobalsAndPackagesXApply() ... DONE 1528s [00:52:08.535] Number of futures (= number of chunks): 1 1528s [00:52:08.535] Launching 1 futures (chunks) ... 1528s [00:52:08.535] Chunk #1 of 1 ... 1528s [00:52:08.535] - seeds: 1528s [00:52:08.536] - All globals exported: [n=5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1528s [00:52:08.536] getGlobalsAndPackages() ... 1528s [00:52:08.536] - globals passed as-is: [5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1528s [00:52:08.536] Resolving globals: FALSE 1528s [00:52:08.536] Tweak future expression to call with '...' arguments ... 1528s [00:52:08.536] { 1528s [00:52:08.536] do.call(function(...) { 1528s [00:52:08.536] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1528s [00:52:08.536] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1528s [00:52:08.536] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1528s [00:52:08.536] on.exit(options(oopts), add = TRUE) 1528s [00:52:08.536] } 1528s [00:52:08.536] { 1528s [00:52:08.536] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1528s [00:52:08.536] ...future.X_jj <- ...future.elements_ii[[jj]] 1528s [00:52:08.536] ...future.FUN(...future.X_jj, ...) 1528s [00:52:08.536] }) 1528s [00:52:08.536] } 1528s [00:52:08.536] }, args = future.call.arguments) 1528s [00:52:08.536] } 1528s [00:52:08.537] Tweak future expression to call with '...' arguments ... DONE 1528s [00:52:08.537] - globals: [5] ‘future.call.arguments’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1528s [00:52:08.538] 1528s [00:52:08.538] getGlobalsAndPackages() ... DONE 1528s [00:52:08.538] run() for ‘Future’ ... 1528s [00:52:08.538] - state: ‘created’ 1528s [00:52:08.539] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1528s [00:52:08.539] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1528s [00:52:08.539] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1528s [00:52:08.539] - Field: ‘label’ 1528s [00:52:08.539] - Field: ‘local’ 1528s [00:52:08.540] - Field: ‘owner’ 1528s [00:52:08.540] - Field: ‘envir’ 1528s [00:52:08.540] - Field: ‘packages’ 1528s [00:52:08.540] - Field: ‘gc’ 1528s [00:52:08.540] - Field: ‘conditions’ 1528s [00:52:08.540] - Field: ‘expr’ 1528s [00:52:08.540] - Field: ‘uuid’ 1528s [00:52:08.541] - Field: ‘seed’ 1528s [00:52:08.541] - Field: ‘version’ 1528s [00:52:08.541] - Field: ‘result’ 1528s [00:52:08.541] - Field: ‘asynchronous’ 1528s [00:52:08.541] - Field: ‘calls’ 1528s [00:52:08.541] - Field: ‘globals’ 1528s [00:52:08.541] - Field: ‘stdout’ 1528s [00:52:08.542] - Field: ‘earlySignal’ 1528s [00:52:08.542] - Field: ‘lazy’ 1528s [00:52:08.542] - Field: ‘state’ 1528s [00:52:08.542] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1528s [00:52:08.542] - Launch lazy future ... 1528s [00:52:08.542] Packages needed by the future expression (n = 0): 1528s [00:52:08.543] Packages needed by future strategies (n = 0): 1528s [00:52:08.543] { 1528s [00:52:08.543] { 1528s [00:52:08.543] { 1528s [00:52:08.543] ...future.startTime <- base::Sys.time() 1528s [00:52:08.543] { 1528s [00:52:08.543] { 1528s [00:52:08.543] { 1528s [00:52:08.543] base::local({ 1528s [00:52:08.543] has_future <- base::requireNamespace("future", 1528s [00:52:08.543] quietly = TRUE) 1528s [00:52:08.543] if (has_future) { 1528s [00:52:08.543] ns <- base::getNamespace("future") 1528s [00:52:08.543] version <- ns[[".package"]][["version"]] 1528s [00:52:08.543] if (is.null(version)) 1528s [00:52:08.543] version <- utils::packageVersion("future") 1528s [00:52:08.543] } 1528s [00:52:08.543] else { 1528s [00:52:08.543] version <- NULL 1528s [00:52:08.543] } 1528s [00:52:08.543] if (!has_future || version < "1.8.0") { 1528s [00:52:08.543] info <- base::c(r_version = base::gsub("R version ", 1528s [00:52:08.543] "", base::R.version$version.string), 1528s [00:52:08.543] platform = base::sprintf("%s (%s-bit)", 1528s [00:52:08.543] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1528s [00:52:08.543] os = base::paste(base::Sys.info()[base::c("sysname", 1528s [00:52:08.543] "release", "version")], collapse = " "), 1528s [00:52:08.543] hostname = base::Sys.info()[["nodename"]]) 1528s [00:52:08.543] info <- base::sprintf("%s: %s", base::names(info), 1528s [00:52:08.543] info) 1528s [00:52:08.543] info <- base::paste(info, collapse = "; ") 1528s [00:52:08.543] if (!has_future) { 1528s [00:52:08.543] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1528s [00:52:08.543] info) 1528s [00:52:08.543] } 1528s [00:52:08.543] else { 1528s [00:52:08.543] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1528s [00:52:08.543] info, version) 1528s [00:52:08.543] } 1528s [00:52:08.543] base::stop(msg) 1528s [00:52:08.543] } 1528s [00:52:08.543] }) 1528s [00:52:08.543] } 1528s [00:52:08.543] options(future.plan = NULL) 1528s [00:52:08.543] Sys.unsetenv("R_FUTURE_PLAN") 1528s [00:52:08.543] future::plan("default", .cleanup = FALSE, .init = FALSE) 1528s [00:52:08.543] } 1528s [00:52:08.543] ...future.workdir <- getwd() 1528s [00:52:08.543] } 1528s [00:52:08.543] ...future.oldOptions <- base::as.list(base::.Options) 1528s [00:52:08.543] ...future.oldEnvVars <- base::Sys.getenv() 1528s [00:52:08.543] } 1528s [00:52:08.543] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1528s [00:52:08.543] future.globals.maxSize = Inf, future.globals.method = NULL, 1528s [00:52:08.543] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1528s [00:52:08.543] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1528s [00:52:08.543] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1528s [00:52:08.543] future.stdout.windows.reencode = NULL, width = 80L) 1528s [00:52:08.543] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1528s [00:52:08.543] base::names(...future.oldOptions)) 1528s [00:52:08.543] } 1528s [00:52:08.543] if (FALSE) { 1528s [00:52:08.543] } 1528s [00:52:08.543] else { 1528s [00:52:08.543] if (TRUE) { 1528s [00:52:08.543] ...future.stdout <- base::rawConnection(base::raw(0L), 1528s [00:52:08.543] open = "w") 1528s [00:52:08.543] } 1528s [00:52:08.543] else { 1528s [00:52:08.543] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1528s [00:52:08.543] windows = "NUL", "/dev/null"), open = "w") 1528s [00:52:08.543] } 1528s [00:52:08.543] base::sink(...future.stdout, type = "output", split = FALSE) 1528s [00:52:08.543] base::on.exit(if (!base::is.null(...future.stdout)) { 1528s [00:52:08.543] base::sink(type = "output", split = FALSE) 1528s [00:52:08.543] base::close(...future.stdout) 1528s [00:52:08.543] }, add = TRUE) 1528s [00:52:08.543] } 1528s [00:52:08.543] ...future.frame <- base::sys.nframe() 1528s [00:52:08.543] ...future.conditions <- base::list() 1528s [00:52:08.543] ...future.rng <- base::globalenv()$.Random.seed 1528s [00:52:08.543] if (FALSE) { 1528s [00:52:08.543] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1528s [00:52:08.543] "...future.value", "...future.globalenv.names", ".Random.seed") 1528s [00:52:08.543] } 1528s [00:52:08.543] ...future.result <- base::tryCatch({ 1528s [00:52:08.543] base::withCallingHandlers({ 1528s [00:52:08.543] ...future.value <- base::withVisible(base::local({ 1528s [00:52:08.543] do.call(function(...) { 1528s [00:52:08.543] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1528s [00:52:08.543] if (!identical(...future.globals.maxSize.org, 1528s [00:52:08.543] ...future.globals.maxSize)) { 1528s [00:52:08.543] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1528s [00:52:08.543] on.exit(options(oopts), add = TRUE) 1528s [00:52:08.543] } 1528s [00:52:08.543] { 1528s [00:52:08.543] lapply(seq_along(...future.elements_ii), 1528s [00:52:08.543] FUN = function(jj) { 1528s [00:52:08.543] ...future.X_jj <- ...future.elements_ii[[jj]] 1528s [00:52:08.543] ...future.FUN(...future.X_jj, ...) 1528s [00:52:08.543] }) 1528s [00:52:08.543] } 1528s [00:52:08.543] }, args = future.call.arguments) 1528s [00:52:08.543] })) 1528s [00:52:08.543] future::FutureResult(value = ...future.value$value, 1528s [00:52:08.543] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1528s [00:52:08.543] ...future.rng), globalenv = if (FALSE) 1528s [00:52:08.543] list(added = base::setdiff(base::names(base::.GlobalEnv), 1528s [00:52:08.543] ...future.globalenv.names)) 1528s [00:52:08.543] else NULL, started = ...future.startTime, version = "1.8") 1528s [00:52:08.543] }, condition = base::local({ 1528s [00:52:08.543] c <- base::c 1528s [00:52:08.543] inherits <- base::inherits 1528s [00:52:08.543] invokeRestart <- base::invokeRestart 1528s [00:52:08.543] length <- base::length 1528s [00:52:08.543] list <- base::list 1528s [00:52:08.543] seq.int <- base::seq.int 1528s [00:52:08.543] signalCondition <- base::signalCondition 1528s [00:52:08.543] sys.calls <- base::sys.calls 1528s [00:52:08.543] `[[` <- base::`[[` 1528s [00:52:08.543] `+` <- base::`+` 1528s [00:52:08.543] `<<-` <- base::`<<-` 1528s [00:52:08.543] sysCalls <- function(calls = sys.calls(), from = 1L) { 1528s [00:52:08.543] calls[seq.int(from = from + 12L, to = length(calls) - 1528s [00:52:08.543] 3L)] 1528s [00:52:08.543] } 1528s [00:52:08.543] function(cond) { 1528s [00:52:08.543] is_error <- inherits(cond, "error") 1528s [00:52:08.543] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1528s [00:52:08.543] NULL) 1528s [00:52:08.543] if (is_error) { 1528s [00:52:08.543] sessionInformation <- function() { 1528s [00:52:08.543] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1528s [00:52:08.543] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1528s [00:52:08.543] search = base::search(), system = base::Sys.info()) 1528s [00:52:08.543] } 1528s [00:52:08.543] ...future.conditions[[length(...future.conditions) + 1528s [00:52:08.543] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1528s [00:52:08.543] cond$call), session = sessionInformation(), 1528s [00:52:08.543] timestamp = base::Sys.time(), signaled = 0L) 1528s [00:52:08.543] signalCondition(cond) 1528s [00:52:08.543] } 1528s [00:52:08.543] else if (!ignore && TRUE && inherits(cond, c("condition", 1528s [00:52:08.543] "immediateCondition"))) { 1528s [00:52:08.543] signal <- TRUE && inherits(cond, "immediateCondition") 1528s [00:52:08.543] ...future.conditions[[length(...future.conditions) + 1528s [00:52:08.543] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1528s [00:52:08.543] if (TRUE && !signal) { 1528s [00:52:08.543] muffleCondition <- function (cond, pattern = "^muffle") 1528s [00:52:08.543] { 1528s [00:52:08.543] inherits <- base::inherits 1528s [00:52:08.543] invokeRestart <- base::invokeRestart 1528s [00:52:08.543] is.null <- base::is.null 1528s [00:52:08.543] muffled <- FALSE 1528s [00:52:08.543] if (inherits(cond, "message")) { 1528s [00:52:08.543] muffled <- grepl(pattern, "muffleMessage") 1528s [00:52:08.543] if (muffled) 1528s [00:52:08.543] invokeRestart("muffleMessage") 1528s [00:52:08.543] } 1528s [00:52:08.543] else if (inherits(cond, "warning")) { 1528s [00:52:08.543] muffled <- grepl(pattern, "muffleWarning") 1528s [00:52:08.543] if (muffled) 1528s [00:52:08.543] invokeRestart("muffleWarning") 1528s [00:52:08.543] } 1528s [00:52:08.543] else if (inherits(cond, "condition")) { 1528s [00:52:08.543] if (!is.null(pattern)) { 1528s [00:52:08.543] computeRestarts <- base::computeRestarts 1528s [00:52:08.543] grepl <- base::grepl 1528s [00:52:08.543] restarts <- computeRestarts(cond) 1528s [00:52:08.543] for (restart in restarts) { 1528s [00:52:08.543] name <- restart$name 1528s [00:52:08.543] if (is.null(name)) 1528s [00:52:08.543] next 1528s [00:52:08.543] if (!grepl(pattern, name)) 1528s [00:52:08.543] next 1528s [00:52:08.543] invokeRestart(restart) 1528s [00:52:08.543] muffled <- TRUE 1528s [00:52:08.543] break 1528s [00:52:08.543] } 1528s [00:52:08.543] } 1528s [00:52:08.543] } 1528s [00:52:08.543] invisible(muffled) 1528s [00:52:08.543] } 1528s [00:52:08.543] muffleCondition(cond, pattern = "^muffle") 1528s [00:52:08.543] } 1528s [00:52:08.543] } 1528s [00:52:08.543] else { 1528s [00:52:08.543] if (TRUE) { 1528s [00:52:08.543] muffleCondition <- function (cond, pattern = "^muffle") 1528s [00:52:08.543] { 1528s [00:52:08.543] inherits <- base::inherits 1528s [00:52:08.543] invokeRestart <- base::invokeRestart 1528s [00:52:08.543] is.null <- base::is.null 1528s [00:52:08.543] muffled <- FALSE 1528s [00:52:08.543] if (inherits(cond, "message")) { 1528s [00:52:08.543] muffled <- grepl(pattern, "muffleMessage") 1528s [00:52:08.543] if (muffled) 1528s [00:52:08.543] invokeRestart("muffleMessage") 1528s [00:52:08.543] } 1528s [00:52:08.543] else if (inherits(cond, "warning")) { 1528s [00:52:08.543] muffled <- grepl(pattern, "muffleWarning") 1528s [00:52:08.543] if (muffled) 1528s [00:52:08.543] invokeRestart("muffleWarning") 1528s [00:52:08.543] } 1528s [00:52:08.543] else if (inherits(cond, "condition")) { 1528s [00:52:08.543] if (!is.null(pattern)) { 1528s [00:52:08.543] computeRestarts <- base::computeRestarts 1528s [00:52:08.543] grepl <- base::grepl 1528s [00:52:08.543] restarts <- computeRestarts(cond) 1528s [00:52:08.543] for (restart in restarts) { 1528s [00:52:08.543] name <- restart$name 1528s [00:52:08.543] if (is.null(name)) 1528s [00:52:08.543] next 1528s [00:52:08.543] if (!grepl(pattern, name)) 1528s [00:52:08.543] next 1528s [00:52:08.543] invokeRestart(restart) 1528s [00:52:08.543] muffled <- TRUE 1528s [00:52:08.543] break 1528s [00:52:08.543] } 1528s [00:52:08.543] } 1528s [00:52:08.543] } 1528s [00:52:08.543] invisible(muffled) 1528s [00:52:08.543] } 1528s [00:52:08.543] muffleCondition(cond, pattern = "^muffle") 1528s [00:52:08.543] } 1528s [00:52:08.543] } 1528s [00:52:08.543] } 1528s [00:52:08.543] })) 1528s [00:52:08.543] }, error = function(ex) { 1528s [00:52:08.543] base::structure(base::list(value = NULL, visible = NULL, 1528s [00:52:08.543] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1528s [00:52:08.543] ...future.rng), started = ...future.startTime, 1528s [00:52:08.543] finished = Sys.time(), session_uuid = NA_character_, 1528s [00:52:08.543] version = "1.8"), class = "FutureResult") 1528s [00:52:08.543] }, finally = { 1528s [00:52:08.543] if (!identical(...future.workdir, getwd())) 1528s [00:52:08.543] setwd(...future.workdir) 1528s [00:52:08.543] { 1528s [00:52:08.543] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1528s [00:52:08.543] ...future.oldOptions$nwarnings <- NULL 1528s [00:52:08.543] } 1528s [00:52:08.543] base::options(...future.oldOptions) 1528s [00:52:08.543] if (.Platform$OS.type == "windows") { 1528s [00:52:08.543] old_names <- names(...future.oldEnvVars) 1528s [00:52:08.543] envs <- base::Sys.getenv() 1528s [00:52:08.543] names <- names(envs) 1528s [00:52:08.543] common <- intersect(names, old_names) 1528s [00:52:08.543] added <- setdiff(names, old_names) 1528s [00:52:08.543] removed <- setdiff(old_names, names) 1528s [00:52:08.543] changed <- common[...future.oldEnvVars[common] != 1528s [00:52:08.543] envs[common]] 1528s [00:52:08.543] NAMES <- toupper(changed) 1528s [00:52:08.543] args <- list() 1528s [00:52:08.543] for (kk in seq_along(NAMES)) { 1528s [00:52:08.543] name <- changed[[kk]] 1528s [00:52:08.543] NAME <- NAMES[[kk]] 1528s [00:52:08.543] if (name != NAME && is.element(NAME, old_names)) 1528s [00:52:08.543] next 1528s [00:52:08.543] args[[name]] <- ...future.oldEnvVars[[name]] 1528s [00:52:08.543] } 1528s [00:52:08.543] NAMES <- toupper(added) 1528s [00:52:08.543] for (kk in seq_along(NAMES)) { 1528s [00:52:08.543] name <- added[[kk]] 1528s [00:52:08.543] NAME <- NAMES[[kk]] 1528s [00:52:08.543] if (name != NAME && is.element(NAME, old_names)) 1528s [00:52:08.543] next 1528s [00:52:08.543] args[[name]] <- "" 1528s [00:52:08.543] } 1528s [00:52:08.543] NAMES <- toupper(removed) 1528s [00:52:08.543] for (kk in seq_along(NAMES)) { 1528s [00:52:08.543] name <- removed[[kk]] 1528s [00:52:08.543] NAME <- NAMES[[kk]] 1528s [00:52:08.543] if (name != NAME && is.element(NAME, old_names)) 1528s [00:52:08.543] next 1528s [00:52:08.543] args[[name]] <- ...future.oldEnvVars[[name]] 1528s [00:52:08.543] } 1528s [00:52:08.543] if (length(args) > 0) 1528s [00:52:08.543] base::do.call(base::Sys.setenv, args = args) 1528s [00:52:08.543] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1528s [00:52:08.543] } 1528s [00:52:08.543] else { 1528s [00:52:08.543] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1528s [00:52:08.543] } 1528s [00:52:08.543] { 1528s [00:52:08.543] if (base::length(...future.futureOptionsAdded) > 1528s [00:52:08.543] 0L) { 1528s [00:52:08.543] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1528s [00:52:08.543] base::names(opts) <- ...future.futureOptionsAdded 1528s [00:52:08.543] base::options(opts) 1528s [00:52:08.543] } 1528s [00:52:08.543] { 1528s [00:52:08.543] { 1528s [00:52:08.543] NULL 1528s [00:52:08.543] RNGkind("Mersenne-Twister") 1528s [00:52:08.543] base::rm(list = ".Random.seed", envir = base::globalenv(), 1528s [00:52:08.543] inherits = FALSE) 1528s [00:52:08.543] } 1528s [00:52:08.543] options(future.plan = NULL) 1528s [00:52:08.543] if (is.na(NA_character_)) 1528s [00:52:08.543] Sys.unsetenv("R_FUTURE_PLAN") 1528s [00:52:08.543] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1528s [00:52:08.543] future::plan(list(function (..., envir = parent.frame()) 1528s [00:52:08.543] { 1528s [00:52:08.543] future <- SequentialFuture(..., envir = envir) 1528s [00:52:08.543] if (!future$lazy) 1528s [00:52:08.543] future <- run(future) 1528s [00:52:08.543] invisible(future) 1528s [00:52:08.543] }), .cleanup = FALSE, .init = FALSE) 1528s [00:52:08.543] } 1528s [00:52:08.543] } 1528s [00:52:08.543] } 1528s [00:52:08.543] }) 1528s [00:52:08.543] if (TRUE) { 1528s [00:52:08.543] base::sink(type = "output", split = FALSE) 1528s [00:52:08.543] if (TRUE) { 1528s [00:52:08.543] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1528s [00:52:08.543] } 1528s [00:52:08.543] else { 1528s [00:52:08.543] ...future.result["stdout"] <- base::list(NULL) 1528s [00:52:08.543] } 1528s [00:52:08.543] base::close(...future.stdout) 1528s [00:52:08.543] ...future.stdout <- NULL 1528s [00:52:08.543] } 1528s [00:52:08.543] ...future.result$conditions <- ...future.conditions 1528s [00:52:08.543] ...future.result$finished <- base::Sys.time() 1528s [00:52:08.543] ...future.result 1528s [00:52:08.543] } 1528s [00:52:08.548] assign_globals() ... 1528s [00:52:08.548] List of 5 1528s [00:52:08.548] $ future.call.arguments : list() 1528s [00:52:08.548] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1528s [00:52:08.548] $ ...future.FUN :function (x) 1528s [00:52:08.548] $ ...future.elements_ii :List of 2 1528s [00:52:08.548] ..$ : num [1:8] 3 3 3 3 3 3 3 3 1528s [00:52:08.548] ..$ : num [1:8] 4 3 2 1 2 3 4 5 1528s [00:52:08.548] $ ...future.seeds_ii : NULL 1528s [00:52:08.548] $ ...future.globals.maxSize: num Inf 1528s [00:52:08.548] - attr(*, "resolved")= logi FALSE 1528s [00:52:08.548] - attr(*, "total_size")= num NA 1528s [00:52:08.548] - attr(*, "where")=List of 5 1528s [00:52:08.548] ..$ future.call.arguments : 1528s [00:52:08.548] ..$ ...future.FUN : 1528s [00:52:08.548] ..$ ...future.elements_ii : 1528s [00:52:08.548] ..$ ...future.seeds_ii : 1528s [00:52:08.548] ..$ ...future.globals.maxSize: 1528s [00:52:08.548] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1528s [00:52:08.548] - attr(*, "already-done")= logi TRUE 1528s [00:52:08.556] - copied ‘future.call.arguments’ to environment 1528s [00:52:08.556] - copied ‘...future.FUN’ to environment 1528s [00:52:08.556] - copied ‘...future.elements_ii’ to environment 1528s [00:52:08.557] - copied ‘...future.seeds_ii’ to environment 1528s [00:52:08.557] - copied ‘...future.globals.maxSize’ to environment 1528s [00:52:08.557] assign_globals() ... done 1528s [00:52:08.557] plan(): Setting new future strategy stack: 1528s [00:52:08.557] List of future strategies: 1528s [00:52:08.557] 1. sequential: 1528s [00:52:08.557] - args: function (..., envir = parent.frame()) 1528s [00:52:08.557] - tweaked: FALSE 1528s [00:52:08.557] - call: NULL 1528s [00:52:08.558] plan(): nbrOfWorkers() = 1 1528s [00:52:08.559] plan(): Setting new future strategy stack: 1528s [00:52:08.559] List of future strategies: 1528s [00:52:08.559] 1. sequential: 1528s [00:52:08.559] - args: function (..., envir = parent.frame()) 1528s [00:52:08.559] - tweaked: FALSE 1528s [00:52:08.559] - call: plan(strategy) 1528s [00:52:08.559] plan(): nbrOfWorkers() = 1 1528s [00:52:08.560] SequentialFuture started (and completed) 1528s [00:52:08.560] - Launch lazy future ... done 1528s [00:52:08.560] run() for ‘SequentialFuture’ ... done 1528s [00:52:08.560] Created future: 1528s [00:52:08.560] SequentialFuture: 1528s [00:52:08.560] Label: ‘future_apply-1’ 1528s [00:52:08.560] Expression: 1528s [00:52:08.560] { 1528s [00:52:08.560] do.call(function(...) { 1528s [00:52:08.560] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1528s [00:52:08.560] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1528s [00:52:08.560] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1528s [00:52:08.560] on.exit(options(oopts), add = TRUE) 1528s [00:52:08.560] } 1528s [00:52:08.560] { 1528s [00:52:08.560] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1528s [00:52:08.560] ...future.X_jj <- ...future.elements_ii[[jj]] 1528s [00:52:08.560] ...future.FUN(...future.X_jj, ...) 1528s [00:52:08.560] }) 1528s [00:52:08.560] } 1528s [00:52:08.560] }, args = future.call.arguments) 1528s [00:52:08.560] } 1528s [00:52:08.560] Lazy evaluation: FALSE 1528s [00:52:08.560] Asynchronous evaluation: FALSE 1528s [00:52:08.560] Local evaluation: TRUE 1528s [00:52:08.560] Environment: R_GlobalEnv 1528s [00:52:08.560] Capture standard output: TRUE 1528s [00:52:08.560] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1528s [00:52:08.560] Globals: 5 objects totaling 1.10 KiB (DotDotDotList ‘future.call.arguments’ of 0 bytes, function ‘...future.FUN’ of 848 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1528s [00:52:08.560] Packages: 1528s [00:52:08.560] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1528s [00:52:08.560] Resolved: TRUE 1528s [00:52:08.560] Value: 224 bytes of class ‘list’ 1528s [00:52:08.560] Early signaling: FALSE 1528s [00:52:08.560] Owner process: 856348fc-72a5-ec0b-63b7-1a3640a93e42 1528s [00:52:08.560] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1528s [00:52:08.562] Chunk #1 of 1 ... DONE 1528s [00:52:08.562] Launching 1 futures (chunks) ... DONE 1528s [00:52:08.563] Resolving 1 futures (chunks) ... 1528s [00:52:08.563] resolve() on list ... 1528s [00:52:08.563] recursive: 0 1528s [00:52:08.563] length: 1 1528s [00:52:08.563] 1528s [00:52:08.563] resolved() for ‘SequentialFuture’ ... 1528s [00:52:08.563] - state: ‘finished’ 1528s [00:52:08.564] - run: TRUE 1528s [00:52:08.564] - result: ‘FutureResult’ 1528s [00:52:08.564] resolved() for ‘SequentialFuture’ ... done 1528s [00:52:08.564] Future #1 1528s [00:52:08.564] signalConditionsASAP(SequentialFuture, pos=1) ... 1528s [00:52:08.564] - nx: 1 1528s [00:52:08.565] - relay: TRUE 1528s [00:52:08.565] - stdout: TRUE 1528s [00:52:08.565] - signal: TRUE 1528s [00:52:08.565] - resignal: FALSE 1528s [00:52:08.565] - force: TRUE 1528s [00:52:08.565] - relayed: [n=1] FALSE 1528s [00:52:08.565] - queued futures: [n=1] FALSE 1528s [00:52:08.565] - until=1 1528s [00:52:08.566] - relaying element #1 1528s [00:52:08.566] - relayed: [n=1] TRUE 1528s [00:52:08.566] - queued futures: [n=1] TRUE 1528s [00:52:08.566] signalConditionsASAP(SequentialFuture, pos=1) ... done 1528s [00:52:08.566] length: 0 (resolved future 1) 1528s [00:52:08.566] Relaying remaining futures 1528s [00:52:08.567] signalConditionsASAP(NULL, pos=0) ... 1528s [00:52:08.567] - nx: 1 1528s [00:52:08.567] - relay: TRUE 1528s col 1528s row x1 x2 1528s [1,] 3 4 1528s [2,] 3 3 1528s [3,] 3 2 1528s [4,] 3 1 1528s [5,] 3 2 1528s [6,] 3 3 1528s [7,] 3 4 1528s [8,] 3 5 1528s [00:52:08.567] - stdout: TRUE 1528s [00:52:08.567] - signal: TRUE 1528s [00:52:08.567] - resignal: FALSE 1528s [00:52:08.567] - force: TRUE 1528s [00:52:08.567] - relayed: [n=1] TRUE 1528s [00:52:08.568] - queued futures: [n=1] TRUE 1528s - flush all 1528s [00:52:08.568] - relayed: [n=1] TRUE 1528s [00:52:08.568] - queued futures: [n=1] TRUE 1528s [00:52:08.568] signalConditionsASAP(NULL, pos=0) ... done 1528s [00:52:08.568] resolve() on list ... DONE 1528s [00:52:08.568] - Number of value chunks collected: 1 1528s [00:52:08.569] Resolving 1 futures (chunks) ... DONE 1528s [00:52:08.569] Reducing values from 1 chunks ... 1528s [00:52:08.569] - Number of values collected after concatenation: 2 1528s [00:52:08.569] - Number of values expected: 2 1528s [00:52:08.569] Reducing values from 1 chunks ... DONE 1528s [00:52:08.569] future_lapply() ... DONE 1528s [00:52:08.570] getGlobalsAndPackagesXApply() ... 1528s [00:52:08.570] - future.globals: TRUE 1528s [00:52:08.570] getGlobalsAndPackages() ... 1528s [00:52:08.570] Searching for globals... 1528s [00:52:08.572] - globals found: [1] ‘FUN’ 1528s [00:52:08.572] Searching for globals ... DONE 1528s [00:52:08.572] Resolving globals: FALSE 1528s [00:52:08.572] The total size of the 1 globals is 848 bytes (848 bytes) 1528s [00:52:08.573] The total size of the 1 globals exported for future expression (‘FUN(X = structure(c(3, 3, 3, 3, 3, 3, 3, 3, 4, 3, 2, 1, 2, 3,; 4, 5, 3, 3, 3, 3, 3, 3, 3, 3, 4, 3, 2, 1, 2, 3, 4, 5, 3, 3, 3,; 3, 3, 3, 3, 3, 4, 3, 2, 1, 2, 3, 4, 5), dim = c(8L, 2L, 3L), dimnames = list(; row = NULL, col = c("x1", "x2"), C = c("cop.1", "cop.2",; "cop.3"))))’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1528s [00:52:08.573] - globals: [1] ‘FUN’ 1528s [00:52:08.574] 1528s [00:52:08.574] getGlobalsAndPackages() ... DONE 1528s [00:52:08.574] - globals found/used: [n=1] ‘FUN’ 1528s [00:52:08.574] - needed namespaces: [n=0] 1528s [00:52:08.574] Finding globals ... DONE 1528s [00:52:08.574] - use_args: TRUE 1528s [00:52:08.574] - Getting '...' globals ... 1528s [00:52:08.575] resolve() on list ... 1528s [00:52:08.575] recursive: 0 1528s [00:52:08.575] length: 1 1528s [00:52:08.575] elements: ‘...’ 1528s [00:52:08.575] length: 0 (resolved future 1) 1528s [00:52:08.576] resolve() on list ... DONE 1528s [00:52:08.576] - '...' content: [n=0] 1528s [00:52:08.576] List of 1 1528s [00:52:08.576] $ ...: list() 1528s [00:52:08.576] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1528s [00:52:08.576] - attr(*, "where")=List of 1 1528s [00:52:08.576] ..$ ...: 1528s [00:52:08.576] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1528s [00:52:08.576] - attr(*, "resolved")= logi TRUE 1528s [00:52:08.576] - attr(*, "total_size")= num NA 1528s [00:52:08.579] - Getting '...' globals ... DONE 1528s [00:52:08.579] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1528s [00:52:08.579] List of 2 1528s [00:52:08.579] $ ...future.FUN:function (x) 1528s [00:52:08.579] $ ... : list() 1528s [00:52:08.579] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1528s [00:52:08.579] - attr(*, "where")=List of 2 1528s [00:52:08.579] ..$ ...future.FUN: 1528s [00:52:08.579] ..$ ... : 1528s [00:52:08.579] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1528s [00:52:08.579] - attr(*, "resolved")= logi FALSE 1528s [00:52:08.579] - attr(*, "total_size")= num 848 1528s [00:52:08.583] Packages to be attached in all futures: [n=0] 1528s [00:52:08.583] getGlobalsAndPackagesXApply() ... DONE 1528s [00:52:08.583] future_lapply() ... 1528s [00:52:08.585] Number of chunks: 1 1528s [00:52:08.585] getGlobalsAndPackagesXApply() ... 1528s [00:52:08.586] - future.globals: with names ‘list()’ 1528s [00:52:08.586] - use_args: TRUE 1528s [00:52:08.586] Globals to be used in all futures (chunks): [n=2] ‘...’, ‘...future.FUN’ 1528s [00:52:08.586] List of 2 1528s [00:52:08.586] $ ... : list() 1528s [00:52:08.586] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1528s [00:52:08.586] $ ...future.FUN:function (x) 1528s [00:52:08.586] - attr(*, "where")=List of 2 1528s [00:52:08.586] ..$ ... : 1528s [00:52:08.586] ..$ ...future.FUN: 1528s [00:52:08.586] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1528s [00:52:08.586] - attr(*, "resolved")= logi FALSE 1528s [00:52:08.586] - attr(*, "total_size")= num NA 1528s [00:52:08.591] Packages to be attached in all futures: [n=0] 1528s [00:52:08.591] getGlobalsAndPackagesXApply() ... DONE 1528s [00:52:08.591] Number of futures (= number of chunks): 1 1528s [00:52:08.592] Launching 1 futures (chunks) ... 1528s [00:52:08.592] Chunk #1 of 1 ... 1528s [00:52:08.592] - seeds: 1528s [00:52:08.592] - All globals exported: [n=5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1528s [00:52:08.592] getGlobalsAndPackages() ... 1528s [00:52:08.592] - globals passed as-is: [5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1528s [00:52:08.593] Resolving globals: FALSE 1528s [00:52:08.593] Tweak future expression to call with '...' arguments ... 1528s [00:52:08.593] { 1528s [00:52:08.593] do.call(function(...) { 1528s [00:52:08.593] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1528s [00:52:08.593] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1528s [00:52:08.593] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1528s [00:52:08.593] on.exit(options(oopts), add = TRUE) 1528s [00:52:08.593] } 1528s [00:52:08.593] { 1528s [00:52:08.593] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1528s [00:52:08.593] ...future.X_jj <- ...future.elements_ii[[jj]] 1528s [00:52:08.593] ...future.FUN(...future.X_jj, ...) 1528s [00:52:08.593] }) 1528s [00:52:08.593] } 1528s [00:52:08.593] }, args = future.call.arguments) 1528s [00:52:08.593] } 1528s [00:52:08.593] Tweak future expression to call with '...' arguments ... DONE 1528s [00:52:08.594] - globals: [5] ‘future.call.arguments’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1528s [00:52:08.594] 1528s [00:52:08.594] getGlobalsAndPackages() ... DONE 1528s [00:52:08.595] run() for ‘Future’ ... 1528s [00:52:08.595] - state: ‘created’ 1528s [00:52:08.595] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1528s [00:52:08.595] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1528s [00:52:08.596] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1528s [00:52:08.596] - Field: ‘label’ 1528s [00:52:08.596] - Field: ‘local’ 1528s [00:52:08.596] - Field: ‘owner’ 1528s [00:52:08.596] - Field: ‘envir’ 1528s [00:52:08.596] - Field: ‘packages’ 1528s [00:52:08.596] - Field: ‘gc’ 1528s [00:52:08.597] - Field: ‘conditions’ 1528s [00:52:08.597] - Field: ‘expr’ 1528s [00:52:08.597] - Field: ‘uuid’ 1528s [00:52:08.597] - Field: ‘seed’ 1528s [00:52:08.597] - Field: ‘version’ 1528s [00:52:08.597] - Field: ‘result’ 1528s [00:52:08.597] - Field: ‘asynchronous’ 1528s [00:52:08.598] - Field: ‘calls’ 1528s [00:52:08.598] - Field: ‘globals’ 1528s [00:52:08.598] - Field: ‘stdout’ 1528s [00:52:08.598] - Field: ‘earlySignal’ 1528s [00:52:08.598] - Field: ‘lazy’ 1528s [00:52:08.598] - Field: ‘state’ 1528s [00:52:08.598] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1528s [00:52:08.599] - Launch lazy future ... 1528s [00:52:08.599] Packages needed by the future expression (n = 0): 1528s [00:52:08.599] Packages needed by future strategies (n = 0): 1528s [00:52:08.600] { 1528s [00:52:08.600] { 1528s [00:52:08.600] { 1528s [00:52:08.600] ...future.startTime <- base::Sys.time() 1528s [00:52:08.600] { 1528s [00:52:08.600] { 1528s [00:52:08.600] { 1528s [00:52:08.600] base::local({ 1528s [00:52:08.600] has_future <- base::requireNamespace("future", 1528s [00:52:08.600] quietly = TRUE) 1528s [00:52:08.600] if (has_future) { 1528s [00:52:08.600] ns <- base::getNamespace("future") 1528s [00:52:08.600] version <- ns[[".package"]][["version"]] 1528s [00:52:08.600] if (is.null(version)) 1528s [00:52:08.600] version <- utils::packageVersion("future") 1528s [00:52:08.600] } 1528s [00:52:08.600] else { 1528s [00:52:08.600] version <- NULL 1528s [00:52:08.600] } 1528s [00:52:08.600] if (!has_future || version < "1.8.0") { 1528s [00:52:08.600] info <- base::c(r_version = base::gsub("R version ", 1528s [00:52:08.600] "", base::R.version$version.string), 1528s [00:52:08.600] platform = base::sprintf("%s (%s-bit)", 1528s [00:52:08.600] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1528s [00:52:08.600] os = base::paste(base::Sys.info()[base::c("sysname", 1528s [00:52:08.600] "release", "version")], collapse = " "), 1528s [00:52:08.600] hostname = base::Sys.info()[["nodename"]]) 1528s [00:52:08.600] info <- base::sprintf("%s: %s", base::names(info), 1528s [00:52:08.600] info) 1528s [00:52:08.600] info <- base::paste(info, collapse = "; ") 1528s [00:52:08.600] if (!has_future) { 1528s [00:52:08.600] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1528s [00:52:08.600] info) 1528s [00:52:08.600] } 1528s [00:52:08.600] else { 1528s [00:52:08.600] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1528s [00:52:08.600] info, version) 1528s [00:52:08.600] } 1528s [00:52:08.600] base::stop(msg) 1528s [00:52:08.600] } 1528s [00:52:08.600] }) 1528s [00:52:08.600] } 1528s [00:52:08.600] options(future.plan = NULL) 1528s [00:52:08.600] Sys.unsetenv("R_FUTURE_PLAN") 1528s [00:52:08.600] future::plan("default", .cleanup = FALSE, .init = FALSE) 1528s [00:52:08.600] } 1528s [00:52:08.600] ...future.workdir <- getwd() 1528s [00:52:08.600] } 1528s [00:52:08.600] ...future.oldOptions <- base::as.list(base::.Options) 1528s [00:52:08.600] ...future.oldEnvVars <- base::Sys.getenv() 1528s [00:52:08.600] } 1528s [00:52:08.600] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1528s [00:52:08.600] future.globals.maxSize = Inf, future.globals.method = NULL, 1528s [00:52:08.600] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1528s [00:52:08.600] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1528s [00:52:08.600] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1528s [00:52:08.600] future.stdout.windows.reencode = NULL, width = 80L) 1528s [00:52:08.600] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1528s [00:52:08.600] base::names(...future.oldOptions)) 1528s [00:52:08.600] } 1528s [00:52:08.600] if (FALSE) { 1528s [00:52:08.600] } 1528s [00:52:08.600] else { 1528s [00:52:08.600] if (TRUE) { 1528s [00:52:08.600] ...future.stdout <- base::rawConnection(base::raw(0L), 1528s [00:52:08.600] open = "w") 1528s [00:52:08.600] } 1528s [00:52:08.600] else { 1528s [00:52:08.600] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1528s [00:52:08.600] windows = "NUL", "/dev/null"), open = "w") 1528s [00:52:08.600] } 1528s [00:52:08.600] base::sink(...future.stdout, type = "output", split = FALSE) 1528s [00:52:08.600] base::on.exit(if (!base::is.null(...future.stdout)) { 1528s [00:52:08.600] base::sink(type = "output", split = FALSE) 1528s [00:52:08.600] base::close(...future.stdout) 1528s [00:52:08.600] }, add = TRUE) 1528s [00:52:08.600] } 1528s [00:52:08.600] ...future.frame <- base::sys.nframe() 1528s [00:52:08.600] ...future.conditions <- base::list() 1528s [00:52:08.600] ...future.rng <- base::globalenv()$.Random.seed 1528s [00:52:08.600] if (FALSE) { 1528s [00:52:08.600] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1528s [00:52:08.600] "...future.value", "...future.globalenv.names", ".Random.seed") 1528s [00:52:08.600] } 1528s [00:52:08.600] ...future.result <- base::tryCatch({ 1528s [00:52:08.600] base::withCallingHandlers({ 1528s [00:52:08.600] ...future.value <- base::withVisible(base::local({ 1528s [00:52:08.600] do.call(function(...) { 1528s [00:52:08.600] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1528s [00:52:08.600] if (!identical(...future.globals.maxSize.org, 1528s [00:52:08.600] ...future.globals.maxSize)) { 1528s [00:52:08.600] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1528s [00:52:08.600] on.exit(options(oopts), add = TRUE) 1528s [00:52:08.600] } 1528s [00:52:08.600] { 1528s [00:52:08.600] lapply(seq_along(...future.elements_ii), 1528s [00:52:08.600] FUN = function(jj) { 1528s [00:52:08.600] ...future.X_jj <- ...future.elements_ii[[jj]] 1528s [00:52:08.600] ...future.FUN(...future.X_jj, ...) 1528s [00:52:08.600] }) 1528s [00:52:08.600] } 1528s [00:52:08.600] }, args = future.call.arguments) 1528s [00:52:08.600] })) 1528s [00:52:08.600] future::FutureResult(value = ...future.value$value, 1528s [00:52:08.600] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1528s [00:52:08.600] ...future.rng), globalenv = if (FALSE) 1528s [00:52:08.600] list(added = base::setdiff(base::names(base::.GlobalEnv), 1528s [00:52:08.600] ...future.globalenv.names)) 1528s [00:52:08.600] else NULL, started = ...future.startTime, version = "1.8") 1528s [00:52:08.600] }, condition = base::local({ 1528s [00:52:08.600] c <- base::c 1528s [00:52:08.600] inherits <- base::inherits 1528s [00:52:08.600] invokeRestart <- base::invokeRestart 1528s [00:52:08.600] length <- base::length 1528s [00:52:08.600] list <- base::list 1528s [00:52:08.600] seq.int <- base::seq.int 1528s [00:52:08.600] signalCondition <- base::signalCondition 1528s [00:52:08.600] sys.calls <- base::sys.calls 1528s [00:52:08.600] `[[` <- base::`[[` 1528s [00:52:08.600] `+` <- base::`+` 1528s [00:52:08.600] `<<-` <- base::`<<-` 1528s [00:52:08.600] sysCalls <- function(calls = sys.calls(), from = 1L) { 1528s [00:52:08.600] calls[seq.int(from = from + 12L, to = length(calls) - 1528s [00:52:08.600] 3L)] 1528s [00:52:08.600] } 1528s [00:52:08.600] function(cond) { 1528s [00:52:08.600] is_error <- inherits(cond, "error") 1528s [00:52:08.600] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1528s [00:52:08.600] NULL) 1528s [00:52:08.600] if (is_error) { 1528s [00:52:08.600] sessionInformation <- function() { 1528s [00:52:08.600] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1528s [00:52:08.600] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1528s [00:52:08.600] search = base::search(), system = base::Sys.info()) 1528s [00:52:08.600] } 1528s [00:52:08.600] ...future.conditions[[length(...future.conditions) + 1528s [00:52:08.600] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1528s [00:52:08.600] cond$call), session = sessionInformation(), 1528s [00:52:08.600] timestamp = base::Sys.time(), signaled = 0L) 1528s [00:52:08.600] signalCondition(cond) 1528s [00:52:08.600] } 1528s [00:52:08.600] else if (!ignore && TRUE && inherits(cond, c("condition", 1528s [00:52:08.600] "immediateCondition"))) { 1528s [00:52:08.600] signal <- TRUE && inherits(cond, "immediateCondition") 1528s [00:52:08.600] ...future.conditions[[length(...future.conditions) + 1528s [00:52:08.600] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1528s [00:52:08.600] if (TRUE && !signal) { 1528s [00:52:08.600] muffleCondition <- function (cond, pattern = "^muffle") 1528s [00:52:08.600] { 1528s [00:52:08.600] inherits <- base::inherits 1528s [00:52:08.600] invokeRestart <- base::invokeRestart 1528s [00:52:08.600] is.null <- base::is.null 1528s [00:52:08.600] muffled <- FALSE 1528s [00:52:08.600] if (inherits(cond, "message")) { 1528s [00:52:08.600] muffled <- grepl(pattern, "muffleMessage") 1528s [00:52:08.600] if (muffled) 1528s [00:52:08.600] invokeRestart("muffleMessage") 1528s [00:52:08.600] } 1528s [00:52:08.600] else if (inherits(cond, "warning")) { 1528s [00:52:08.600] muffled <- grepl(pattern, "muffleWarning") 1528s [00:52:08.600] if (muffled) 1528s [00:52:08.600] invokeRestart("muffleWarning") 1528s [00:52:08.600] } 1528s [00:52:08.600] else if (inherits(cond, "condition")) { 1528s [00:52:08.600] if (!is.null(pattern)) { 1528s [00:52:08.600] computeRestarts <- base::computeRestarts 1528s [00:52:08.600] grepl <- base::grepl 1528s [00:52:08.600] restarts <- computeRestarts(cond) 1528s [00:52:08.600] for (restart in restarts) { 1528s [00:52:08.600] name <- restart$name 1528s [00:52:08.600] if (is.null(name)) 1528s [00:52:08.600] next 1528s [00:52:08.600] if (!grepl(pattern, name)) 1528s [00:52:08.600] next 1528s [00:52:08.600] invokeRestart(restart) 1528s [00:52:08.600] muffled <- TRUE 1528s [00:52:08.600] break 1528s [00:52:08.600] } 1528s [00:52:08.600] } 1528s [00:52:08.600] } 1528s [00:52:08.600] invisible(muffled) 1528s [00:52:08.600] } 1528s [00:52:08.600] muffleCondition(cond, pattern = "^muffle") 1528s [00:52:08.600] } 1528s [00:52:08.600] } 1528s [00:52:08.600] else { 1528s [00:52:08.600] if (TRUE) { 1528s [00:52:08.600] muffleCondition <- function (cond, pattern = "^muffle") 1528s [00:52:08.600] { 1528s [00:52:08.600] inherits <- base::inherits 1528s [00:52:08.600] invokeRestart <- base::invokeRestart 1528s [00:52:08.600] is.null <- base::is.null 1528s [00:52:08.600] muffled <- FALSE 1528s [00:52:08.600] if (inherits(cond, "message")) { 1528s [00:52:08.600] muffled <- grepl(pattern, "muffleMessage") 1528s [00:52:08.600] if (muffled) 1528s [00:52:08.600] invokeRestart("muffleMessage") 1528s [00:52:08.600] } 1528s [00:52:08.600] else if (inherits(cond, "warning")) { 1528s [00:52:08.600] muffled <- grepl(pattern, "muffleWarning") 1528s [00:52:08.600] if (muffled) 1528s [00:52:08.600] invokeRestart("muffleWarning") 1528s [00:52:08.600] } 1528s [00:52:08.600] else if (inherits(cond, "condition")) { 1528s [00:52:08.600] if (!is.null(pattern)) { 1528s [00:52:08.600] computeRestarts <- base::computeRestarts 1528s [00:52:08.600] grepl <- base::grepl 1528s [00:52:08.600] restarts <- computeRestarts(cond) 1528s [00:52:08.600] for (restart in restarts) { 1528s [00:52:08.600] name <- restart$name 1528s [00:52:08.600] if (is.null(name)) 1528s [00:52:08.600] next 1528s [00:52:08.600] if (!grepl(pattern, name)) 1528s [00:52:08.600] next 1528s [00:52:08.600] invokeRestart(restart) 1528s [00:52:08.600] muffled <- TRUE 1528s [00:52:08.600] break 1528s [00:52:08.600] } 1528s [00:52:08.600] } 1528s [00:52:08.600] } 1528s [00:52:08.600] invisible(muffled) 1528s [00:52:08.600] } 1528s [00:52:08.600] muffleCondition(cond, pattern = "^muffle") 1528s [00:52:08.600] } 1528s [00:52:08.600] } 1528s [00:52:08.600] } 1528s [00:52:08.600] })) 1528s [00:52:08.600] }, error = function(ex) { 1528s [00:52:08.600] base::structure(base::list(value = NULL, visible = NULL, 1528s [00:52:08.600] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1528s [00:52:08.600] ...future.rng), started = ...future.startTime, 1528s [00:52:08.600] finished = Sys.time(), session_uuid = NA_character_, 1528s [00:52:08.600] version = "1.8"), class = "FutureResult") 1528s [00:52:08.600] }, finally = { 1528s [00:52:08.600] if (!identical(...future.workdir, getwd())) 1528s [00:52:08.600] setwd(...future.workdir) 1528s [00:52:08.600] { 1528s [00:52:08.600] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1528s [00:52:08.600] ...future.oldOptions$nwarnings <- NULL 1528s [00:52:08.600] } 1528s [00:52:08.600] base::options(...future.oldOptions) 1528s [00:52:08.600] if (.Platform$OS.type == "windows") { 1528s [00:52:08.600] old_names <- names(...future.oldEnvVars) 1528s [00:52:08.600] envs <- base::Sys.getenv() 1528s [00:52:08.600] names <- names(envs) 1528s [00:52:08.600] common <- intersect(names, old_names) 1528s [00:52:08.600] added <- setdiff(names, old_names) 1528s [00:52:08.600] removed <- setdiff(old_names, names) 1528s [00:52:08.600] changed <- common[...future.oldEnvVars[common] != 1528s [00:52:08.600] envs[common]] 1528s [00:52:08.600] NAMES <- toupper(changed) 1528s [00:52:08.600] args <- list() 1528s [00:52:08.600] for (kk in seq_along(NAMES)) { 1528s [00:52:08.600] name <- changed[[kk]] 1528s [00:52:08.600] NAME <- NAMES[[kk]] 1528s [00:52:08.600] if (name != NAME && is.element(NAME, old_names)) 1528s [00:52:08.600] next 1528s [00:52:08.600] args[[name]] <- ...future.oldEnvVars[[name]] 1528s [00:52:08.600] } 1528s [00:52:08.600] NAMES <- toupper(added) 1528s [00:52:08.600] for (kk in seq_along(NAMES)) { 1528s [00:52:08.600] name <- added[[kk]] 1528s [00:52:08.600] NAME <- NAMES[[kk]] 1528s [00:52:08.600] if (name != NAME && is.element(NAME, old_names)) 1528s [00:52:08.600] next 1528s [00:52:08.600] args[[name]] <- "" 1528s [00:52:08.600] } 1528s [00:52:08.600] NAMES <- toupper(removed) 1528s [00:52:08.600] for (kk in seq_along(NAMES)) { 1528s [00:52:08.600] name <- removed[[kk]] 1528s [00:52:08.600] NAME <- NAMES[[kk]] 1528s [00:52:08.600] if (name != NAME && is.element(NAME, old_names)) 1528s [00:52:08.600] next 1528s [00:52:08.600] args[[name]] <- ...future.oldEnvVars[[name]] 1528s [00:52:08.600] } 1528s [00:52:08.600] if (length(args) > 0) 1528s [00:52:08.600] base::do.call(base::Sys.setenv, args = args) 1528s [00:52:08.600] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1528s [00:52:08.600] } 1528s [00:52:08.600] else { 1528s [00:52:08.600] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1528s [00:52:08.600] } 1528s [00:52:08.600] { 1528s [00:52:08.600] if (base::length(...future.futureOptionsAdded) > 1528s [00:52:08.600] 0L) { 1528s [00:52:08.600] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1528s [00:52:08.600] base::names(opts) <- ...future.futureOptionsAdded 1528s [00:52:08.600] base::options(opts) 1528s [00:52:08.600] } 1528s [00:52:08.600] { 1528s [00:52:08.600] { 1528s [00:52:08.600] NULL 1528s [00:52:08.600] RNGkind("Mersenne-Twister") 1528s [00:52:08.600] base::rm(list = ".Random.seed", envir = base::globalenv(), 1528s [00:52:08.600] inherits = FALSE) 1528s [00:52:08.600] } 1528s [00:52:08.600] options(future.plan = NULL) 1528s [00:52:08.600] if (is.na(NA_character_)) 1528s [00:52:08.600] Sys.unsetenv("R_FUTURE_PLAN") 1528s [00:52:08.600] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1528s [00:52:08.600] future::plan(list(function (..., envir = parent.frame()) 1528s [00:52:08.600] { 1528s [00:52:08.600] future <- SequentialFuture(..., envir = envir) 1528s [00:52:08.600] if (!future$lazy) 1528s [00:52:08.600] future <- run(future) 1528s [00:52:08.600] invisible(future) 1528s [00:52:08.600] }), .cleanup = FALSE, .init = FALSE) 1528s [00:52:08.600] } 1528s [00:52:08.600] } 1528s [00:52:08.600] } 1528s [00:52:08.600] }) 1528s [00:52:08.600] if (TRUE) { 1528s [00:52:08.600] base::sink(type = "output", split = FALSE) 1528s [00:52:08.600] if (TRUE) { 1528s [00:52:08.600] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1528s [00:52:08.600] } 1528s [00:52:08.600] else { 1528s [00:52:08.600] ...future.result["stdout"] <- base::list(NULL) 1528s [00:52:08.600] } 1528s [00:52:08.600] base::close(...future.stdout) 1528s [00:52:08.600] ...future.stdout <- NULL 1528s [00:52:08.600] } 1528s [00:52:08.600] ...future.result$conditions <- ...future.conditions 1528s [00:52:08.600] ...future.result$finished <- base::Sys.time() 1528s [00:52:08.600] ...future.result 1528s [00:52:08.600] } 1528s [00:52:08.605] assign_globals() ... 1528s [00:52:08.605] List of 5 1528s [00:52:08.605] $ future.call.arguments : list() 1528s [00:52:08.605] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1528s [00:52:08.605] $ ...future.FUN :function (x) 1528s [00:52:08.605] $ ...future.elements_ii :List of 6 1528s [00:52:08.605] ..$ : num [1:8] 3 3 3 3 3 3 3 3 1528s [00:52:08.605] ..$ : num [1:8] 4 3 2 1 2 3 4 5 1528s [00:52:08.605] ..$ : num [1:8] 3 3 3 3 3 3 3 3 1528s [00:52:08.605] ..$ : num [1:8] 4 3 2 1 2 3 4 5 1528s [00:52:08.605] ..$ : num [1:8] 3 3 3 3 3 3 3 3 1528s [00:52:08.605] ..$ : num [1:8] 4 3 2 1 2 3 4 5 1528s [00:52:08.605] $ ...future.seeds_ii : NULL 1528s [00:52:08.605] $ ...future.globals.maxSize: num Inf 1528s [00:52:08.605] - attr(*, "resolved")= logi FALSE 1528s [00:52:08.605] - attr(*, "total_size")= num NA 1528s [00:52:08.605] - attr(*, "where")=List of 5 1528s [00:52:08.605] ..$ future.call.arguments : 1528s [00:52:08.605] ..$ ...future.FUN : 1528s [00:52:08.605] ..$ ...future.elements_ii : 1528s [00:52:08.605] ..$ ...future.seeds_ii : 1528s [00:52:08.605] ..$ ...future.globals.maxSize: 1528s [00:52:08.605] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1528s [00:52:08.605] - attr(*, "already-done")= logi TRUE 1528s [00:52:08.613] - copied ‘future.call.arguments’ to environment 1528s [00:52:08.613] - copied ‘...future.FUN’ to environment 1528s [00:52:08.613] - copied ‘...future.elements_ii’ to environment 1528s [00:52:08.613] - copied ‘...future.seeds_ii’ to environment 1528s [00:52:08.614] - copied ‘...future.globals.maxSize’ to environment 1528s [00:52:08.614] assign_globals() ... done 1528s [00:52:08.614] plan(): Setting new future strategy stack: 1528s [00:52:08.614] List of future strategies: 1528s [00:52:08.614] 1. sequential: 1528s [00:52:08.614] - args: function (..., envir = parent.frame()) 1528s [00:52:08.614] - tweaked: FALSE 1528s [00:52:08.614] - call: NULL 1528s [00:52:08.615] plan(): nbrOfWorkers() = 1 1528s [00:52:08.616] plan(): Setting new future strategy stack: 1528s [00:52:08.616] List of future strategies: 1528s [00:52:08.616] 1. sequential: 1528s [00:52:08.616] - args: function (..., envir = parent.frame()) 1528s [00:52:08.616] - tweaked: FALSE 1528s [00:52:08.616] - call: plan(strategy) 1528s [00:52:08.616] plan(): nbrOfWorkers() = 1 1528s [00:52:08.616] SequentialFuture started (and completed) 1528s [00:52:08.617] - Launch lazy future ... done 1528s [00:52:08.617] run() for ‘SequentialFuture’ ... done 1528s [00:52:08.617] Created future: 1528s [00:52:08.617] SequentialFuture: 1528s [00:52:08.617] Label: ‘future_apply-1’ 1528s [00:52:08.617] Expression: 1528s [00:52:08.617] { 1528s [00:52:08.617] do.call(function(...) { 1528s [00:52:08.617] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1528s [00:52:08.617] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1528s [00:52:08.617] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1528s [00:52:08.617] on.exit(options(oopts), add = TRUE) 1528s [00:52:08.617] } 1528s [00:52:08.617] { 1528s [00:52:08.617] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1528s [00:52:08.617] ...future.X_jj <- ...future.elements_ii[[jj]] 1528s [00:52:08.617] ...future.FUN(...future.X_jj, ...) 1528s [00:52:08.617] }) 1528s [00:52:08.617] } 1528s [00:52:08.617] }, args = future.call.arguments) 1528s [00:52:08.617] } 1528s [00:52:08.617] Lazy evaluation: FALSE 1528s [00:52:08.617] Asynchronous evaluation: FALSE 1528s [00:52:08.617] Local evaluation: TRUE 1528s [00:52:08.617] Environment: R_GlobalEnv 1528s [00:52:08.617] Capture standard output: TRUE 1528s [00:52:08.617] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1528s [00:52:08.617] Globals: 5 objects totaling 1.54 KiB (DotDotDotList ‘future.call.arguments’ of 0 bytes, function ‘...future.FUN’ of 848 bytes, list ‘...future.elements_ii’ of 672 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1528s [00:52:08.617] Packages: 1528s [00:52:08.617] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1528s [00:52:08.617] Resolved: TRUE 1528s [00:52:08.617] Value: 672 bytes of class ‘list’ 1528s [00:52:08.617] Early signaling: FALSE 1528s [00:52:08.617] Owner process: 856348fc-72a5-ec0b-63b7-1a3640a93e42 1528s [00:52:08.617] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1528s [00:52:08.619] Chunk #1 of 1 ... DONE 1528s [00:52:08.619] Launching 1 futures (chunks) ... DONE 1528s [00:52:08.619] Resolving 1 futures (chunks) ... 1528s [00:52:08.619] resolve() on list ... 1528s [00:52:08.619] recursive: 0 1528s [00:52:08.619] length: 1 1528s [00:52:08.621] 1528s [00:52:08.621] resolved() for ‘SequentialFuture’ ... 1528s [00:52:08.621] - state: ‘finished’ 1528s [00:52:08.621] - run: TRUE 1528s [00:52:08.622] - result: ‘FutureResult’ 1528s [00:52:08.622] resolved() for ‘SequentialFuture’ ... done 1528s [00:52:08.622] Future #1 1528s [00:52:08.622] signalConditionsASAP(SequentialFuture, pos=1) ... 1528s [00:52:08.622] - nx: 1 1528s [00:52:08.622] - relay: TRUE 1528s [00:52:08.623] - stdout: TRUE 1528s [00:52:08.623] - signal: TRUE 1528s [00:52:08.623] - resignal: FALSE 1528s [00:52:08.623] - force: TRUE 1528s [00:52:08.623] - relayed: [n=1] FALSE 1528s [00:52:08.623] - queued futures: [n=1] FALSE 1528s [00:52:08.624] - until=1 1528s [00:52:08.624] - relaying element #1 1528s [00:52:08.624] - relayed: [n=1] TRUE 1528s [00:52:08.624] - queued futures: [n=1] TRUE 1528s [00:52:08.624] signalConditionsASAP(SequentialFuture, pos=1) ... done 1528s [00:52:08.624] length: 0 (resolved future 1) 1528s [00:52:08.625] Relaying remaining futures 1528s [00:52:08.625] signalConditionsASAP(NULL, pos=0) ... 1528s [00:52:08.625] - nx: 1 1528s [00:52:08.625] - relay: TRUE 1528s [00:52:08.625] - stdout: TRUE 1528s [00:52:08.625] - signal: TRUE 1528s [00:52:08.625] - resignal: FALSE 1528s [00:52:08.626] - force: TRUE 1528s [00:52:08.626] - relayed: [n=1] TRUE 1528s [00:52:08.626] - queued futures: [n=1] TRUE 1528s - flush all 1528s [00:52:08.626] - relayed: [n=1] TRUE 1528s [00:52:08.626] - queued futures: [n=1] TRUE 1528s [00:52:08.626] signalConditionsASAP(NULL, pos=0) ... done 1528s [00:52:08.627] resolve() on list ... DONE 1528s [00:52:08.627] - Number of value chunks collected: 1 1528s [00:52:08.627] Resolving 1 futures (chunks) ... DONE 1528s [00:52:08.627] Reducing values from 1 chunks ... 1528s [00:52:08.627] - Number of values collected after concatenation: 6 1528s [00:52:08.627] - Number of values expected: 6 1528s , [00:52:08.627] Reducing values from 1 chunks ... DONE 1528s [00:52:08.628] future_lapply() ... DONE 1528s , C = cop.1 1528s 1528s col 1528s row x1 x2 1528s [1,] 3 4 1528s [2,] 3 3 1528s [3,] 3 2 1528s [4,] 3 1 1528s [5,] 3 2 1528s [6,] 3 3 1528s [7,] 3 4 1528s [8,] 3 5 1528s 1528s , , C = cop.2 1528s 1528s col 1528s row x1 x2 1528s [1,] 3 4 1528s [2,] 3 3 1528s [3,] 3 2 1528s [4,] 3 1 1528s [5,] 3 2 1528s [6,] 3 3 1528s [7,] 3 4 1528s [8,] 3 5 1528s 1528s , , C = cop.3 1528s 1528s col 1528s row x1 x2 1528s [1,] 3 4 1528s [2,] 3 3 1528s [3,] 3 2 1528s [4,] 3 1 1528s [5,] 3 2 1528s [6,] 3 3 1528s [7,] 3 4 1528s [8,] 3 5 1528s 1528s [00:52:08.629] getGlobalsAndPackagesXApply() ... 1528s [00:52:08.629] - future.globals: TRUE 1528s [00:52:08.629] getGlobalsAndPackages() ... 1528s [00:52:08.629] Searching for globals... 1528s [00:52:08.631] - globals found: [3] ‘FUN’, ‘seq_len’, ‘max’ 1528s [00:52:08.631] Searching for globals ... DONE 1528s [00:52:08.631] Resolving globals: FALSE 1528s [00:52:08.632] The total size of the 1 globals is 1.73 KiB (1768 bytes) 1528s [00:52:08.632] The total size of the 1 globals exported for future expression (‘FUN(X = structure(1:24, dim = 2:4))’) is 1.73 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.73 KiB of class ‘function’) 1528s [00:52:08.632] - globals: [1] ‘FUN’ 1528s [00:52:08.632] 1528s [00:52:08.632] getGlobalsAndPackages() ... DONE 1528s [00:52:08.633] - globals found/used: [n=1] ‘FUN’ 1528s [00:52:08.633] - needed namespaces: [n=0] 1528s [00:52:08.633] Finding globals ... DONE 1528s [00:52:08.633] - use_args: TRUE 1528s [00:52:08.633] - Getting '...' globals ... 1528s [00:52:08.634] resolve() on list ... 1528s [00:52:08.634] recursive: 0 1528s [00:52:08.634] length: 1 1528s [00:52:08.634] elements: ‘...’ 1528s [00:52:08.634] length: 0 (resolved future 1) 1528s [00:52:08.634] resolve() on list ... DONE 1528s [00:52:08.634] - '...' content: [n=0] 1528s [00:52:08.634] List of 1 1528s [00:52:08.634] $ ...: list() 1528s [00:52:08.634] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1528s [00:52:08.634] - attr(*, "where")=List of 1 1528s [00:52:08.634] ..$ ...: 1528s [00:52:08.634] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1528s [00:52:08.634] - attr(*, "resolved")= logi TRUE 1528s [00:52:08.634] - attr(*, "total_size")= num NA 1528s [00:52:08.637] - Getting '...' globals ... DONE 1528s [00:52:08.637] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1528s [00:52:08.638] List of 2 1528s [00:52:08.638] $ ...future.FUN:function (x) 1528s [00:52:08.638] $ ... : list() 1528s [00:52:08.638] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1528s [00:52:08.638] - attr(*, "where")=List of 2 1528s [00:52:08.638] ..$ ...future.FUN: 1528s [00:52:08.638] ..$ ... : 1528s [00:52:08.638] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1528s [00:52:08.638] - attr(*, "resolved")= logi FALSE 1528s [00:52:08.638] - attr(*, "total_size")= num 1768 1528s [00:52:08.641] Packages to be attached in all futures: [n=0] 1528s [00:52:08.641] getGlobalsAndPackagesXApply() ... DONE 1528s [00:52:08.641] future_lapply() ... 1528s [00:52:08.642] Number of chunks: 1 1528s [00:52:08.642] getGlobalsAndPackagesXApply() ... 1528s [00:52:08.642] - future.globals: with names ‘list()’ 1528s [00:52:08.642] - use_args: TRUE 1528s [00:52:08.642] Globals to be used in all futures (chunks): [n=2] ‘...’, ‘...future.FUN’ 1528s [00:52:08.643] List of 2 1528s [00:52:08.643] $ ... : list() 1528s [00:52:08.643] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1528s [00:52:08.643] $ ...future.FUN:function (x) 1528s [00:52:08.643] - attr(*, "where")=List of 2 1528s [00:52:08.643] ..$ ... : 1528s [00:52:08.643] ..$ ...future.FUN: 1528s [00:52:08.643] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1528s [00:52:08.643] - attr(*, "resolved")= logi FALSE 1528s [00:52:08.643] - attr(*, "total_size")= num NA 1528s [00:52:08.646] Packages to be attached in all futures: [n=0] 1528s [00:52:08.646] getGlobalsAndPackagesXApply() ... DONE 1528s [00:52:08.646] Number of futures (= number of chunks): 1 1528s [00:52:08.646] Launching 1 futures (chunks) ... 1528s [00:52:08.647] Chunk #1 of 1 ... 1528s [00:52:08.647] - seeds: 1528s [00:52:08.647] - All globals exported: [n=5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1528s [00:52:08.647] getGlobalsAndPackages() ... 1528s [00:52:08.647] - globals passed as-is: [5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1528s [00:52:08.647] Resolving globals: FALSE 1528s [00:52:08.647] Tweak future expression to call with '...' arguments ... 1528s [00:52:08.648] { 1528s [00:52:08.648] do.call(function(...) { 1528s [00:52:08.648] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1528s [00:52:08.648] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1528s [00:52:08.648] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1528s [00:52:08.648] on.exit(options(oopts), add = TRUE) 1528s [00:52:08.648] } 1528s [00:52:08.648] { 1528s [00:52:08.648] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1528s [00:52:08.648] ...future.X_jj <- ...future.elements_ii[[jj]] 1528s [00:52:08.648] ...future.FUN(...future.X_jj, ...) 1528s [00:52:08.648] }) 1528s [00:52:08.648] } 1528s [00:52:08.648] }, args = future.call.arguments) 1528s [00:52:08.648] } 1528s [00:52:08.648] Tweak future expression to call with '...' arguments ... DONE 1528s [00:52:08.649] - globals: [5] ‘future.call.arguments’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1528s [00:52:08.649] 1528s [00:52:08.650] getGlobalsAndPackages() ... DONE 1528s [00:52:08.651] run() for ‘Future’ ... 1528s [00:52:08.651] - state: ‘created’ 1528s [00:52:08.651] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1528s [00:52:08.652] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1528s [00:52:08.652] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1528s [00:52:08.652] - Field: ‘label’ 1528s [00:52:08.652] - Field: ‘local’ 1528s [00:52:08.652] - Field: ‘owner’ 1528s [00:52:08.653] - Field: ‘envir’ 1528s [00:52:08.653] - Field: ‘packages’ 1528s [00:52:08.653] - Field: ‘gc’ 1528s [00:52:08.653] - Field: ‘conditions’ 1528s [00:52:08.653] - Field: ‘expr’ 1528s [00:52:08.653] - Field: ‘uuid’ 1528s [00:52:08.654] - Field: ‘seed’ 1528s [00:52:08.654] - Field: ‘version’ 1528s [00:52:08.654] - Field: ‘result’ 1528s [00:52:08.654] - Field: ‘asynchronous’ 1528s [00:52:08.655] - Field: ‘calls’ 1528s [00:52:08.655] - Field: ‘globals’ 1528s [00:52:08.655] - Field: ‘stdout’ 1528s [00:52:08.655] - Field: ‘earlySignal’ 1528s [00:52:08.655] - Field: ‘lazy’ 1528s [00:52:08.655] - Field: ‘state’ 1528s [00:52:08.655] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1528s [00:52:08.655] - Launch lazy future ... 1528s [00:52:08.656] Packages needed by the future expression (n = 0): 1528s [00:52:08.656] Packages needed by future strategies (n = 0): 1528s [00:52:08.656] { 1528s [00:52:08.656] { 1528s [00:52:08.656] { 1528s [00:52:08.656] ...future.startTime <- base::Sys.time() 1528s [00:52:08.656] { 1528s [00:52:08.656] { 1528s [00:52:08.656] { 1528s [00:52:08.656] base::local({ 1528s [00:52:08.656] has_future <- base::requireNamespace("future", 1528s [00:52:08.656] quietly = TRUE) 1528s [00:52:08.656] if (has_future) { 1528s [00:52:08.656] ns <- base::getNamespace("future") 1528s [00:52:08.656] version <- ns[[".package"]][["version"]] 1528s [00:52:08.656] if (is.null(version)) 1528s [00:52:08.656] version <- utils::packageVersion("future") 1528s [00:52:08.656] } 1528s [00:52:08.656] else { 1528s [00:52:08.656] version <- NULL 1528s [00:52:08.656] } 1528s [00:52:08.656] if (!has_future || version < "1.8.0") { 1528s [00:52:08.656] info <- base::c(r_version = base::gsub("R version ", 1528s [00:52:08.656] "", base::R.version$version.string), 1528s [00:52:08.656] platform = base::sprintf("%s (%s-bit)", 1528s [00:52:08.656] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1528s [00:52:08.656] os = base::paste(base::Sys.info()[base::c("sysname", 1528s [00:52:08.656] "release", "version")], collapse = " "), 1528s [00:52:08.656] hostname = base::Sys.info()[["nodename"]]) 1528s [00:52:08.656] info <- base::sprintf("%s: %s", base::names(info), 1528s [00:52:08.656] info) 1528s [00:52:08.656] info <- base::paste(info, collapse = "; ") 1528s [00:52:08.656] if (!has_future) { 1528s [00:52:08.656] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1528s [00:52:08.656] info) 1528s [00:52:08.656] } 1528s [00:52:08.656] else { 1528s [00:52:08.656] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1528s [00:52:08.656] info, version) 1528s [00:52:08.656] } 1528s [00:52:08.656] base::stop(msg) 1528s [00:52:08.656] } 1528s [00:52:08.656] }) 1528s [00:52:08.656] } 1528s [00:52:08.656] options(future.plan = NULL) 1528s [00:52:08.656] Sys.unsetenv("R_FUTURE_PLAN") 1528s [00:52:08.656] future::plan("default", .cleanup = FALSE, .init = FALSE) 1528s [00:52:08.656] } 1528s [00:52:08.656] ...future.workdir <- getwd() 1528s [00:52:08.656] } 1528s [00:52:08.656] ...future.oldOptions <- base::as.list(base::.Options) 1528s [00:52:08.656] ...future.oldEnvVars <- base::Sys.getenv() 1528s [00:52:08.656] } 1528s [00:52:08.656] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1528s [00:52:08.656] future.globals.maxSize = Inf, future.globals.method = NULL, 1528s [00:52:08.656] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1528s [00:52:08.656] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1528s [00:52:08.656] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1528s [00:52:08.656] future.stdout.windows.reencode = NULL, width = 80L) 1528s [00:52:08.656] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1528s [00:52:08.656] base::names(...future.oldOptions)) 1528s [00:52:08.656] } 1528s [00:52:08.656] if (FALSE) { 1528s [00:52:08.656] } 1528s [00:52:08.656] else { 1528s [00:52:08.656] if (TRUE) { 1528s [00:52:08.656] ...future.stdout <- base::rawConnection(base::raw(0L), 1528s [00:52:08.656] open = "w") 1528s [00:52:08.656] } 1528s [00:52:08.656] else { 1528s [00:52:08.656] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1528s [00:52:08.656] windows = "NUL", "/dev/null"), open = "w") 1528s [00:52:08.656] } 1528s [00:52:08.656] base::sink(...future.stdout, type = "output", split = FALSE) 1528s [00:52:08.656] base::on.exit(if (!base::is.null(...future.stdout)) { 1528s [00:52:08.656] base::sink(type = "output", split = FALSE) 1528s [00:52:08.656] base::close(...future.stdout) 1528s [00:52:08.656] }, add = TRUE) 1528s [00:52:08.656] } 1528s [00:52:08.656] ...future.frame <- base::sys.nframe() 1528s [00:52:08.656] ...future.conditions <- base::list() 1528s [00:52:08.656] ...future.rng <- base::globalenv()$.Random.seed 1528s [00:52:08.656] if (FALSE) { 1528s [00:52:08.656] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1528s [00:52:08.656] "...future.value", "...future.globalenv.names", ".Random.seed") 1528s [00:52:08.656] } 1528s [00:52:08.656] ...future.result <- base::tryCatch({ 1528s [00:52:08.656] base::withCallingHandlers({ 1528s [00:52:08.656] ...future.value <- base::withVisible(base::local({ 1528s [00:52:08.656] do.call(function(...) { 1528s [00:52:08.656] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1528s [00:52:08.656] if (!identical(...future.globals.maxSize.org, 1528s [00:52:08.656] ...future.globals.maxSize)) { 1528s [00:52:08.656] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1528s [00:52:08.656] on.exit(options(oopts), add = TRUE) 1528s [00:52:08.656] } 1528s [00:52:08.656] { 1528s [00:52:08.656] lapply(seq_along(...future.elements_ii), 1528s [00:52:08.656] FUN = function(jj) { 1528s [00:52:08.656] ...future.X_jj <- ...future.elements_ii[[jj]] 1528s [00:52:08.656] ...future.FUN(...future.X_jj, ...) 1528s [00:52:08.656] }) 1528s [00:52:08.656] } 1528s [00:52:08.656] }, args = future.call.arguments) 1528s [00:52:08.656] })) 1528s [00:52:08.656] future::FutureResult(value = ...future.value$value, 1528s [00:52:08.656] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1528s [00:52:08.656] ...future.rng), globalenv = if (FALSE) 1528s [00:52:08.656] list(added = base::setdiff(base::names(base::.GlobalEnv), 1528s [00:52:08.656] ...future.globalenv.names)) 1528s [00:52:08.656] else NULL, started = ...future.startTime, version = "1.8") 1528s [00:52:08.656] }, condition = base::local({ 1528s [00:52:08.656] c <- base::c 1528s [00:52:08.656] inherits <- base::inherits 1528s [00:52:08.656] invokeRestart <- base::invokeRestart 1528s [00:52:08.656] length <- base::length 1528s [00:52:08.656] list <- base::list 1528s [00:52:08.656] seq.int <- base::seq.int 1528s [00:52:08.656] signalCondition <- base::signalCondition 1528s [00:52:08.656] sys.calls <- base::sys.calls 1528s [00:52:08.656] `[[` <- base::`[[` 1528s [00:52:08.656] `+` <- base::`+` 1528s [00:52:08.656] `<<-` <- base::`<<-` 1528s [00:52:08.656] sysCalls <- function(calls = sys.calls(), from = 1L) { 1528s [00:52:08.656] calls[seq.int(from = from + 12L, to = length(calls) - 1528s [00:52:08.656] 3L)] 1528s [00:52:08.656] } 1528s [00:52:08.656] function(cond) { 1528s [00:52:08.656] is_error <- inherits(cond, "error") 1528s [00:52:08.656] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1528s [00:52:08.656] NULL) 1528s [00:52:08.656] if (is_error) { 1528s [00:52:08.656] sessionInformation <- function() { 1528s [00:52:08.656] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1528s [00:52:08.656] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1528s [00:52:08.656] search = base::search(), system = base::Sys.info()) 1528s [00:52:08.656] } 1528s [00:52:08.656] ...future.conditions[[length(...future.conditions) + 1528s [00:52:08.656] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1528s [00:52:08.656] cond$call), session = sessionInformation(), 1528s [00:52:08.656] timestamp = base::Sys.time(), signaled = 0L) 1528s [00:52:08.656] signalCondition(cond) 1528s [00:52:08.656] } 1528s [00:52:08.656] else if (!ignore && TRUE && inherits(cond, c("condition", 1528s [00:52:08.656] "immediateCondition"))) { 1528s [00:52:08.656] signal <- TRUE && inherits(cond, "immediateCondition") 1528s [00:52:08.656] ...future.conditions[[length(...future.conditions) + 1528s [00:52:08.656] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1528s [00:52:08.656] if (TRUE && !signal) { 1528s [00:52:08.656] muffleCondition <- function (cond, pattern = "^muffle") 1528s [00:52:08.656] { 1528s [00:52:08.656] inherits <- base::inherits 1528s [00:52:08.656] invokeRestart <- base::invokeRestart 1528s [00:52:08.656] is.null <- base::is.null 1528s [00:52:08.656] muffled <- FALSE 1528s [00:52:08.656] if (inherits(cond, "message")) { 1528s [00:52:08.656] muffled <- grepl(pattern, "muffleMessage") 1528s [00:52:08.656] if (muffled) 1528s [00:52:08.656] invokeRestart("muffleMessage") 1528s [00:52:08.656] } 1528s [00:52:08.656] else if (inherits(cond, "warning")) { 1528s [00:52:08.656] muffled <- grepl(pattern, "muffleWarning") 1528s [00:52:08.656] if (muffled) 1528s [00:52:08.656] invokeRestart("muffleWarning") 1528s [00:52:08.656] } 1528s [00:52:08.656] else if (inherits(cond, "condition")) { 1528s [00:52:08.656] if (!is.null(pattern)) { 1528s [00:52:08.656] computeRestarts <- base::computeRestarts 1528s [00:52:08.656] grepl <- base::grepl 1528s [00:52:08.656] restarts <- computeRestarts(cond) 1528s [00:52:08.656] for (restart in restarts) { 1528s [00:52:08.656] name <- restart$name 1528s [00:52:08.656] if (is.null(name)) 1528s [00:52:08.656] next 1528s [00:52:08.656] if (!grepl(pattern, name)) 1528s [00:52:08.656] next 1528s [00:52:08.656] invokeRestart(restart) 1528s [00:52:08.656] muffled <- TRUE 1528s [00:52:08.656] break 1528s [00:52:08.656] } 1528s [00:52:08.656] } 1528s [00:52:08.656] } 1528s [00:52:08.656] invisible(muffled) 1528s [00:52:08.656] } 1528s [00:52:08.656] muffleCondition(cond, pattern = "^muffle") 1528s [00:52:08.656] } 1528s [00:52:08.656] } 1528s [00:52:08.656] else { 1528s [00:52:08.656] if (TRUE) { 1528s [00:52:08.656] muffleCondition <- function (cond, pattern = "^muffle") 1528s [00:52:08.656] { 1528s [00:52:08.656] inherits <- base::inherits 1528s [00:52:08.656] invokeRestart <- base::invokeRestart 1528s [00:52:08.656] is.null <- base::is.null 1528s [00:52:08.656] muffled <- FALSE 1528s [00:52:08.656] if (inherits(cond, "message")) { 1528s [00:52:08.656] muffled <- grepl(pattern, "muffleMessage") 1528s [00:52:08.656] if (muffled) 1528s [00:52:08.656] invokeRestart("muffleMessage") 1528s [00:52:08.656] } 1528s [00:52:08.656] else if (inherits(cond, "warning")) { 1528s [00:52:08.656] muffled <- grepl(pattern, "muffleWarning") 1528s [00:52:08.656] if (muffled) 1528s [00:52:08.656] invokeRestart("muffleWarning") 1528s [00:52:08.656] } 1528s [00:52:08.656] else if (inherits(cond, "condition")) { 1528s [00:52:08.656] if (!is.null(pattern)) { 1528s [00:52:08.656] computeRestarts <- base::computeRestarts 1528s [00:52:08.656] grepl <- base::grepl 1528s [00:52:08.656] restarts <- computeRestarts(cond) 1528s [00:52:08.656] for (restart in restarts) { 1528s [00:52:08.656] name <- restart$name 1528s [00:52:08.656] if (is.null(name)) 1528s [00:52:08.656] next 1528s [00:52:08.656] if (!grepl(pattern, name)) 1528s [00:52:08.656] next 1528s [00:52:08.656] invokeRestart(restart) 1528s [00:52:08.656] muffled <- TRUE 1528s [00:52:08.656] break 1528s [00:52:08.656] } 1528s [00:52:08.656] } 1528s [00:52:08.656] } 1528s [00:52:08.656] invisible(muffled) 1528s [00:52:08.656] } 1528s [00:52:08.656] muffleCondition(cond, pattern = "^muffle") 1528s [00:52:08.656] } 1528s [00:52:08.656] } 1528s [00:52:08.656] } 1528s [00:52:08.656] })) 1528s [00:52:08.656] }, error = function(ex) { 1528s [00:52:08.656] base::structure(base::list(value = NULL, visible = NULL, 1528s [00:52:08.656] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1528s [00:52:08.656] ...future.rng), started = ...future.startTime, 1528s [00:52:08.656] finished = Sys.time(), session_uuid = NA_character_, 1528s [00:52:08.656] version = "1.8"), class = "FutureResult") 1528s [00:52:08.656] }, finally = { 1528s [00:52:08.656] if (!identical(...future.workdir, getwd())) 1528s [00:52:08.656] setwd(...future.workdir) 1528s [00:52:08.656] { 1528s [00:52:08.656] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1528s [00:52:08.656] ...future.oldOptions$nwarnings <- NULL 1528s [00:52:08.656] } 1528s [00:52:08.656] base::options(...future.oldOptions) 1528s [00:52:08.656] if (.Platform$OS.type == "windows") { 1528s [00:52:08.656] old_names <- names(...future.oldEnvVars) 1528s [00:52:08.656] envs <- base::Sys.getenv() 1528s [00:52:08.656] names <- names(envs) 1528s [00:52:08.656] common <- intersect(names, old_names) 1528s [00:52:08.656] added <- setdiff(names, old_names) 1528s [00:52:08.656] removed <- setdiff(old_names, names) 1528s [00:52:08.656] changed <- common[...future.oldEnvVars[common] != 1528s [00:52:08.656] envs[common]] 1528s [00:52:08.656] NAMES <- toupper(changed) 1528s [00:52:08.656] args <- list() 1528s [00:52:08.656] for (kk in seq_along(NAMES)) { 1528s [00:52:08.656] name <- changed[[kk]] 1528s [00:52:08.656] NAME <- NAMES[[kk]] 1528s [00:52:08.656] if (name != NAME && is.element(NAME, old_names)) 1528s [00:52:08.656] next 1528s [00:52:08.656] args[[name]] <- ...future.oldEnvVars[[name]] 1528s [00:52:08.656] } 1528s [00:52:08.656] NAMES <- toupper(added) 1528s [00:52:08.656] for (kk in seq_along(NAMES)) { 1528s [00:52:08.656] name <- added[[kk]] 1528s [00:52:08.656] NAME <- NAMES[[kk]] 1528s [00:52:08.656] if (name != NAME && is.element(NAME, old_names)) 1528s [00:52:08.656] next 1528s [00:52:08.656] args[[name]] <- "" 1528s [00:52:08.656] } 1528s [00:52:08.656] NAMES <- toupper(removed) 1528s [00:52:08.656] for (kk in seq_along(NAMES)) { 1528s [00:52:08.656] name <- removed[[kk]] 1528s [00:52:08.656] NAME <- NAMES[[kk]] 1528s [00:52:08.656] if (name != NAME && is.element(NAME, old_names)) 1528s [00:52:08.656] next 1528s [00:52:08.656] args[[name]] <- ...future.oldEnvVars[[name]] 1528s [00:52:08.656] } 1528s [00:52:08.656] if (length(args) > 0) 1528s [00:52:08.656] base::do.call(base::Sys.setenv, args = args) 1528s [00:52:08.656] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1528s [00:52:08.656] } 1528s [00:52:08.656] else { 1528s [00:52:08.656] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1528s [00:52:08.656] } 1528s [00:52:08.656] { 1528s [00:52:08.656] if (base::length(...future.futureOptionsAdded) > 1528s [00:52:08.656] 0L) { 1528s [00:52:08.656] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1528s [00:52:08.656] base::names(opts) <- ...future.futureOptionsAdded 1528s [00:52:08.656] base::options(opts) 1528s [00:52:08.656] } 1528s [00:52:08.656] { 1528s [00:52:08.656] { 1528s [00:52:08.656] NULL 1528s [00:52:08.656] RNGkind("Mersenne-Twister") 1528s [00:52:08.656] base::rm(list = ".Random.seed", envir = base::globalenv(), 1528s [00:52:08.656] inherits = FALSE) 1528s [00:52:08.656] } 1528s [00:52:08.656] options(future.plan = NULL) 1528s [00:52:08.656] if (is.na(NA_character_)) 1528s [00:52:08.656] Sys.unsetenv("R_FUTURE_PLAN") 1528s [00:52:08.656] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1528s [00:52:08.656] future::plan(list(function (..., envir = parent.frame()) 1528s [00:52:08.656] { 1528s [00:52:08.656] future <- SequentialFuture(..., envir = envir) 1528s [00:52:08.656] if (!future$lazy) 1528s [00:52:08.656] future <- run(future) 1528s [00:52:08.656] invisible(future) 1528s [00:52:08.656] }), .cleanup = FALSE, .init = FALSE) 1528s [00:52:08.656] } 1528s [00:52:08.656] } 1528s [00:52:08.656] } 1528s [00:52:08.656] }) 1528s [00:52:08.656] if (TRUE) { 1528s [00:52:08.656] base::sink(type = "output", split = FALSE) 1528s [00:52:08.656] if (TRUE) { 1528s [00:52:08.656] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1528s [00:52:08.656] } 1528s [00:52:08.656] else { 1528s [00:52:08.656] ...future.result["stdout"] <- base::list(NULL) 1528s [00:52:08.656] } 1528s [00:52:08.656] base::close(...future.stdout) 1528s [00:52:08.656] ...future.stdout <- NULL 1528s [00:52:08.656] } 1528s [00:52:08.656] ...future.result$conditions <- ...future.conditions 1528s [00:52:08.656] ...future.result$finished <- base::Sys.time() 1528s [00:52:08.656] ...future.result 1528s [00:52:08.656] } 1528s [00:52:08.659] assign_globals() ... 1528s [00:52:08.659] List of 5 1528s [00:52:08.659] $ future.call.arguments : list() 1528s [00:52:08.659] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1528s [00:52:08.659] $ ...future.FUN :function (x) 1528s [00:52:08.659] $ ...future.elements_ii :List of 6 1528s [00:52:08.659] ..$ : int [1:4] 1 7 13 19 1528s [00:52:08.659] ..$ : int [1:4] 2 8 14 20 1528s [00:52:08.659] ..$ : int [1:4] 3 9 15 21 1528s [00:52:08.659] ..$ : int [1:4] 4 10 16 22 1528s [00:52:08.659] ..$ : int [1:4] 5 11 17 23 1528s [00:52:08.659] ..$ : int [1:4] 6 12 18 24 1528s [00:52:08.659] $ ...future.seeds_ii : NULL 1528s [00:52:08.659] $ ...future.globals.maxSize: num Inf 1528s [00:52:08.659] - attr(*, "resolved")= logi FALSE 1528s [00:52:08.659] - attr(*, "total_size")= num NA 1528s [00:52:08.659] - attr(*, "where")=List of 5 1528s [00:52:08.659] ..$ future.call.arguments : 1528s [00:52:08.659] ..$ ...future.FUN : 1528s [00:52:08.659] ..$ ...future.elements_ii : 1528s [00:52:08.659] ..$ ...future.seeds_ii : 1528s [00:52:08.659] ..$ ...future.globals.maxSize: 1528s [00:52:08.659] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1528s [00:52:08.659] - attr(*, "already-done")= logi TRUE 1528s [00:52:08.667] - copied ‘future.call.arguments’ to environment 1528s [00:52:08.667] - reassign environment for ‘...future.FUN’ 1528s [00:52:08.667] - copied ‘...future.FUN’ to environment 1528s [00:52:08.667] - copied ‘...future.elements_ii’ to environment 1528s [00:52:08.668] - copied ‘...future.seeds_ii’ to environment 1528s [00:52:08.668] - copied ‘...future.globals.maxSize’ to environment 1528s [00:52:08.668] assign_globals() ... done 1528s [00:52:08.668] plan(): Setting new future strategy stack: 1528s [00:52:08.669] List of future strategies: 1528s [00:52:08.669] 1. sequential: 1528s [00:52:08.669] - args: function (..., envir = parent.frame()) 1528s [00:52:08.669] - tweaked: FALSE 1528s [00:52:08.669] - call: NULL 1528s [00:52:08.669] plan(): nbrOfWorkers() = 1 1528s [00:52:08.670] plan(): Setting new future strategy stack: 1528s [00:52:08.670] List of future strategies: 1528s [00:52:08.670] 1. sequential: 1528s [00:52:08.670] - args: function (..., envir = parent.frame()) 1528s [00:52:08.670] - tweaked: FALSE 1528s [00:52:08.670] - call: plan(strategy) 1528s [00:52:08.670] plan(): nbrOfWorkers() = 1 1528s [00:52:08.671] SequentialFuture started (and completed) 1528s [00:52:08.671] - Launch lazy future ... done 1528s [00:52:08.671] run() for ‘SequentialFuture’ ... done 1528s [00:52:08.671] Created future: 1528s [00:52:08.671] SequentialFuture: 1528s [00:52:08.671] Label: ‘future_apply-1’ 1528s [00:52:08.671] Expression: 1528s [00:52:08.671] { 1528s [00:52:08.671] do.call(function(...) { 1528s [00:52:08.671] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1528s [00:52:08.671] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1528s [00:52:08.671] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1528s [00:52:08.671] on.exit(options(oopts), add = TRUE) 1528s [00:52:08.671] } 1528s [00:52:08.671] { 1528s [00:52:08.671] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1528s [00:52:08.671] ...future.X_jj <- ...future.elements_ii[[jj]] 1528s [00:52:08.671] ...future.FUN(...future.X_jj, ...) 1528s [00:52:08.671] }) 1528s [00:52:08.671] } 1528s [00:52:08.671] }, args = future.call.arguments) 1528s [00:52:08.671] } 1528s [00:52:08.671] Lazy evaluation: FALSE 1528s [00:52:08.671] Asynchronous evaluation: FALSE 1528s [00:52:08.671] Local evaluation: TRUE 1528s [00:52:08.671] Environment: R_GlobalEnv 1528s [00:52:08.671] Capture standard output: TRUE 1528s [00:52:08.671] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1528s [00:52:08.671] Globals: 5 objects totaling 2.16 KiB (DotDotDotList ‘future.call.arguments’ of 0 bytes, function ‘...future.FUN’ of 1.73 KiB, list ‘...future.elements_ii’ of 384 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1528s [00:52:08.671] Packages: 1528s [00:52:08.671] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1528s [00:52:08.671] Resolved: TRUE 1528s [00:52:08.671] Value: 1.03 KiB of class ‘list’ 1528s [00:52:08.671] Early signaling: FALSE 1528s [00:52:08.671] Owner process: 856348fc-72a5-ec0b-63b7-1a3640a93e42 1528s [00:52:08.671] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1528s [00:52:08.673] Chunk #1 of 1 ... DONE 1528s [00:52:08.673] Launching 1 futures (chunks) ... DONE 1528s [00:52:08.673] Resolving 1 futures (chunks) ... 1528s [00:52:08.673] resolve() on list ... 1528s [00:52:08.674] recursive: 0 1528s [00:52:08.674] length: 1 1528s [00:52:08.674] 1528s [00:52:08.674] resolved() for ‘SequentialFuture’ ... 1528s [00:52:08.674] - state: ‘finished’ 1528s [00:52:08.675] - run: TRUE 1528s [00:52:08.675] - result: ‘FutureResult’ 1528s [00:52:08.675] resolved() for ‘SequentialFuture’ ... done 1528s [00:52:08.675] Future #1 1528s [00:52:08.675] signalConditionsASAP(SequentialFuture, pos=1) ... 1528s [00:52:08.675] - nx: 1 1528s [00:52:08.675] - relay: TRUE 1528s [00:52:08.676] - stdout: TRUE 1528s [00:52:08.676] - signal: TRUE 1528s [00:52:08.676] - resignal: FALSE 1528s [00:52:08.676] - force: TRUE 1528s [00:52:08.676] - relayed: [n=1] FALSE 1528s [00:52:08.676] - queued futures: [n=1] FALSE 1528s [00:52:08.676] - until=1 1528s [00:52:08.677] - relaying element #1 1528s [00:52:08.677] - relayed: [n=1] TRUE 1528s [00:52:08.677] - queued futures: [n=1] TRUE 1528s [00:52:08.677] signalConditionsASAP(SequentialFuture, pos=1) ... done 1528s [00:52:08.677] length: 0 (resolved future 1) 1528s [00:52:08.677] Relaying remaining futures 1528s [00:52:08.678] signalConditionsASAP(NULL, pos=0) ... 1528s [00:52:08.678] - nx: 1 1528s [00:52:08.678] - relay: TRUE 1528s [00:52:08.678] - stdout: TRUE 1528s [00:52:08.678] - signal: TRUE 1528s [00:52:08.678] - resignal: FALSE 1528s [00:52:08.678] - force: TRUE 1528s [00:52:08.678] - relayed: [n=1] TRUE 1528s [00:52:08.678] - queued futures: [n=1] TRUE 1528s - flush all 1528s [00:52:08.679] - relayed: [n=1] TRUE 1528s [00:52:08.679] - queued futures: [n=1] TRUE 1528s [00:52:08.679] signalConditionsASAP(NULL, pos=0) ... done 1528s [00:52:08.679] resolve() on list ... DONE 1528s [00:52:08.679] - Number of value chunks collected: 1 1528s [00:52:08.679] Resolving 1 futures (chunks) ... DONE 1528s [00:52:08.679] Reducing values from 1 chunks ... 1528s [00:52:08.679] - Number of values collected after concatenation: 6 1528s [00:52:08.679] - Number of values expected: 6 1528s [00:52:08.680] Reducing values from 1 chunks ... DONE 1528s [00:52:08.680] future_lapply() ... DONE 1528s [,1] [,2] [,3] 1528s [1,] integer,19 integer,21 integer,23 1528s [2,] integer,20 integer,22 integer,24 1528s - apply(X, MARGIN = , ...) ... 1528s [00:52:08.680] getGlobalsAndPackagesXApply() ... 1528s [00:52:08.681] - future.globals: TRUE 1528s [00:52:08.681] getGlobalsAndPackages() ... 1528s [00:52:08.681] Searching for globals... 1528s [00:52:08.714] - globals found: [1] ‘FUN’ 1528s [00:52:08.714] Searching for globals ... DONE 1528s [00:52:08.714] Resolving globals: FALSE 1528s [00:52:08.715] The total size of the 1 globals is 848 bytes (848 bytes) 1528s [00:52:08.715] The total size of the 1 globals exported for future expression (‘FUN(X = structure(1:2, dim = 2:1, dimnames = list(rows = c("a",; "b"), NULL)))’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1528s [00:52:08.715] - globals: [1] ‘FUN’ 1528s [00:52:08.715] 1528s [00:52:08.716] getGlobalsAndPackages() ... DONE 1528s [00:52:08.716] - globals found/used: [n=1] ‘FUN’ 1528s [00:52:08.716] - needed namespaces: [n=0] 1528s [00:52:08.716] Finding globals ... DONE 1528s [00:52:08.716] - use_args: TRUE 1528s [00:52:08.716] - Getting '...' globals ... 1528s [00:52:08.717] resolve() on list ... 1528s [00:52:08.717] recursive: 0 1528s [00:52:08.717] length: 1 1528s [00:52:08.717] elements: ‘...’ 1528s [00:52:08.717] length: 0 (resolved future 1) 1528s [00:52:08.717] resolve() on list ... DONE 1528s [00:52:08.718] - '...' content: [n=0] 1528s [00:52:08.718] List of 1 1528s [00:52:08.718] $ ...: list() 1528s [00:52:08.718] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1528s [00:52:08.718] - attr(*, "where")=List of 1 1528s [00:52:08.718] ..$ ...: 1528s [00:52:08.718] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1528s [00:52:08.718] - attr(*, "resolved")= logi TRUE 1528s [00:52:08.718] - attr(*, "total_size")= num NA 1528s [00:52:08.721] - Getting '...' globals ... DONE 1528s [00:52:08.721] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1528s [00:52:08.721] List of 2 1528s [00:52:08.721] $ ...future.FUN:function (x) 1528s [00:52:08.721] $ ... : list() 1528s [00:52:08.721] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1528s [00:52:08.721] - attr(*, "where")=List of 2 1528s [00:52:08.721] ..$ ...future.FUN: 1528s [00:52:08.721] ..$ ... : 1528s [00:52:08.721] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1528s [00:52:08.721] - attr(*, "resolved")= logi FALSE 1528s [00:52:08.721] - attr(*, "total_size")= num 848 1528s [00:52:08.725] Packages to be attached in all futures: [n=0] 1528s [00:52:08.725] getGlobalsAndPackagesXApply() ... DONE 1528s [00:52:08.726] future_lapply() ... 1528s [00:52:08.726] Number of chunks: 1 1528s [00:52:08.727] getGlobalsAndPackagesXApply() ... 1528s [00:52:08.727] - future.globals: with names ‘list()’ 1528s [00:52:08.727] - use_args: TRUE 1528s [00:52:08.727] Globals to be used in all futures (chunks): [n=2] ‘...’, ‘...future.FUN’ 1528s [00:52:08.727] List of 2 1528s [00:52:08.727] $ ... : list() 1528s [00:52:08.727] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1528s [00:52:08.727] $ ...future.FUN:function (x) 1528s [00:52:08.727] - attr(*, "where")=List of 2 1528s [00:52:08.727] ..$ ... : 1528s [00:52:08.727] ..$ ...future.FUN: 1528s [00:52:08.727] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1528s [00:52:08.727] - attr(*, "resolved")= logi FALSE 1528s [00:52:08.727] - attr(*, "total_size")= num NA 1528s [00:52:08.732] Packages to be attached in all futures: [n=0] 1528s [00:52:08.732] getGlobalsAndPackagesXApply() ... DONE 1528s [00:52:08.732] Number of futures (= number of chunks): 1 1528s [00:52:08.732] Launching 1 futures (chunks) ... 1528s [00:52:08.732] Chunk #1 of 1 ... 1528s [00:52:08.733] - seeds: 1528s [00:52:08.733] - All globals exported: [n=5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1528s [00:52:08.733] getGlobalsAndPackages() ... 1528s [00:52:08.733] - globals passed as-is: [5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1528s [00:52:08.733] Resolving globals: FALSE 1528s [00:52:08.733] Tweak future expression to call with '...' arguments ... 1528s [00:52:08.734] { 1528s [00:52:08.734] do.call(function(...) { 1528s [00:52:08.734] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1528s [00:52:08.734] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1528s [00:52:08.734] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1528s [00:52:08.734] on.exit(options(oopts), add = TRUE) 1528s [00:52:08.734] } 1528s [00:52:08.734] { 1528s [00:52:08.734] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1528s [00:52:08.734] ...future.X_jj <- ...future.elements_ii[[jj]] 1528s [00:52:08.734] ...future.FUN(...future.X_jj, ...) 1528s [00:52:08.734] }) 1528s [00:52:08.734] } 1528s [00:52:08.734] }, args = future.call.arguments) 1528s [00:52:08.734] } 1528s [00:52:08.734] Tweak future expression to call with '...' arguments ... DONE 1528s [00:52:08.735] - globals: [5] ‘future.call.arguments’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1528s [00:52:08.735] 1528s [00:52:08.735] getGlobalsAndPackages() ... DONE 1528s [00:52:08.735] run() for ‘Future’ ... 1528s [00:52:08.735] - state: ‘created’ 1528s [00:52:08.735] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1528s [00:52:08.736] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1528s [00:52:08.736] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1528s [00:52:08.736] - Field: ‘label’ 1528s [00:52:08.736] - Field: ‘local’ 1528s [00:52:08.736] - Field: ‘owner’ 1528s [00:52:08.736] - Field: ‘envir’ 1528s [00:52:08.737] - Field: ‘packages’ 1528s [00:52:08.737] - Field: ‘gc’ 1528s [00:52:08.737] - Field: ‘conditions’ 1528s [00:52:08.737] - Field: ‘expr’ 1528s [00:52:08.737] - Field: ‘uuid’ 1528s [00:52:08.737] - Field: ‘seed’ 1528s [00:52:08.737] - Field: ‘version’ 1528s [00:52:08.737] - Field: ‘result’ 1528s [00:52:08.738] - Field: ‘asynchronous’ 1528s [00:52:08.738] - Field: ‘calls’ 1528s [00:52:08.738] - Field: ‘globals’ 1528s [00:52:08.738] - Field: ‘stdout’ 1528s [00:52:08.738] - Field: ‘earlySignal’ 1528s [00:52:08.738] - Field: ‘lazy’ 1528s [00:52:08.738] - Field: ‘state’ 1528s [00:52:08.739] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1528s [00:52:08.739] - Launch lazy future ... 1528s [00:52:08.739] Packages needed by the future expression (n = 0): 1528s [00:52:08.739] Packages needed by future strategies (n = 0): 1528s [00:52:08.740] { 1528s [00:52:08.740] { 1528s [00:52:08.740] { 1528s [00:52:08.740] ...future.startTime <- base::Sys.time() 1528s [00:52:08.740] { 1528s [00:52:08.740] { 1528s [00:52:08.740] { 1528s [00:52:08.740] base::local({ 1528s [00:52:08.740] has_future <- base::requireNamespace("future", 1528s [00:52:08.740] quietly = TRUE) 1528s [00:52:08.740] if (has_future) { 1528s [00:52:08.740] ns <- base::getNamespace("future") 1528s [00:52:08.740] version <- ns[[".package"]][["version"]] 1528s [00:52:08.740] if (is.null(version)) 1528s [00:52:08.740] version <- utils::packageVersion("future") 1528s [00:52:08.740] } 1528s [00:52:08.740] else { 1528s [00:52:08.740] version <- NULL 1528s [00:52:08.740] } 1528s [00:52:08.740] if (!has_future || version < "1.8.0") { 1528s [00:52:08.740] info <- base::c(r_version = base::gsub("R version ", 1528s [00:52:08.740] "", base::R.version$version.string), 1528s [00:52:08.740] platform = base::sprintf("%s (%s-bit)", 1528s [00:52:08.740] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1528s [00:52:08.740] os = base::paste(base::Sys.info()[base::c("sysname", 1528s [00:52:08.740] "release", "version")], collapse = " "), 1528s [00:52:08.740] hostname = base::Sys.info()[["nodename"]]) 1528s [00:52:08.740] info <- base::sprintf("%s: %s", base::names(info), 1528s [00:52:08.740] info) 1528s [00:52:08.740] info <- base::paste(info, collapse = "; ") 1528s [00:52:08.740] if (!has_future) { 1528s [00:52:08.740] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1528s [00:52:08.740] info) 1528s [00:52:08.740] } 1528s [00:52:08.740] else { 1528s [00:52:08.740] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1528s [00:52:08.740] info, version) 1528s [00:52:08.740] } 1528s [00:52:08.740] base::stop(msg) 1528s [00:52:08.740] } 1528s [00:52:08.740] }) 1528s [00:52:08.740] } 1528s [00:52:08.740] options(future.plan = NULL) 1528s [00:52:08.740] Sys.unsetenv("R_FUTURE_PLAN") 1528s [00:52:08.740] future::plan("default", .cleanup = FALSE, .init = FALSE) 1528s [00:52:08.740] } 1528s [00:52:08.740] ...future.workdir <- getwd() 1528s [00:52:08.740] } 1528s [00:52:08.740] ...future.oldOptions <- base::as.list(base::.Options) 1528s [00:52:08.740] ...future.oldEnvVars <- base::Sys.getenv() 1528s [00:52:08.740] } 1528s [00:52:08.740] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1528s [00:52:08.740] future.globals.maxSize = Inf, future.globals.method = NULL, 1528s [00:52:08.740] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1528s [00:52:08.740] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1528s [00:52:08.740] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1528s [00:52:08.740] future.stdout.windows.reencode = NULL, width = 80L) 1528s [00:52:08.740] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1528s [00:52:08.740] base::names(...future.oldOptions)) 1528s [00:52:08.740] } 1528s [00:52:08.740] if (FALSE) { 1528s [00:52:08.740] } 1528s [00:52:08.740] else { 1528s [00:52:08.740] if (TRUE) { 1528s [00:52:08.740] ...future.stdout <- base::rawConnection(base::raw(0L), 1528s [00:52:08.740] open = "w") 1528s [00:52:08.740] } 1528s [00:52:08.740] else { 1528s [00:52:08.740] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1528s [00:52:08.740] windows = "NUL", "/dev/null"), open = "w") 1528s [00:52:08.740] } 1528s [00:52:08.740] base::sink(...future.stdout, type = "output", split = FALSE) 1528s [00:52:08.740] base::on.exit(if (!base::is.null(...future.stdout)) { 1528s [00:52:08.740] base::sink(type = "output", split = FALSE) 1528s [00:52:08.740] base::close(...future.stdout) 1528s [00:52:08.740] }, add = TRUE) 1528s [00:52:08.740] } 1528s [00:52:08.740] ...future.frame <- base::sys.nframe() 1528s [00:52:08.740] ...future.conditions <- base::list() 1528s [00:52:08.740] ...future.rng <- base::globalenv()$.Random.seed 1528s [00:52:08.740] if (FALSE) { 1528s [00:52:08.740] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1528s [00:52:08.740] "...future.value", "...future.globalenv.names", ".Random.seed") 1528s [00:52:08.740] } 1528s [00:52:08.740] ...future.result <- base::tryCatch({ 1528s [00:52:08.740] base::withCallingHandlers({ 1528s [00:52:08.740] ...future.value <- base::withVisible(base::local({ 1528s [00:52:08.740] do.call(function(...) { 1528s [00:52:08.740] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1528s [00:52:08.740] if (!identical(...future.globals.maxSize.org, 1528s [00:52:08.740] ...future.globals.maxSize)) { 1528s [00:52:08.740] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1528s [00:52:08.740] on.exit(options(oopts), add = TRUE) 1528s [00:52:08.740] } 1528s [00:52:08.740] { 1528s [00:52:08.740] lapply(seq_along(...future.elements_ii), 1528s [00:52:08.740] FUN = function(jj) { 1528s [00:52:08.740] ...future.X_jj <- ...future.elements_ii[[jj]] 1528s [00:52:08.740] ...future.FUN(...future.X_jj, ...) 1528s [00:52:08.740] }) 1528s [00:52:08.740] } 1528s [00:52:08.740] }, args = future.call.arguments) 1528s [00:52:08.740] })) 1528s [00:52:08.740] future::FutureResult(value = ...future.value$value, 1528s [00:52:08.740] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1528s [00:52:08.740] ...future.rng), globalenv = if (FALSE) 1528s [00:52:08.740] list(added = base::setdiff(base::names(base::.GlobalEnv), 1528s [00:52:08.740] ...future.globalenv.names)) 1528s [00:52:08.740] else NULL, started = ...future.startTime, version = "1.8") 1528s [00:52:08.740] }, condition = base::local({ 1528s [00:52:08.740] c <- base::c 1528s [00:52:08.740] inherits <- base::inherits 1528s [00:52:08.740] invokeRestart <- base::invokeRestart 1528s [00:52:08.740] length <- base::length 1528s [00:52:08.740] list <- base::list 1528s [00:52:08.740] seq.int <- base::seq.int 1528s [00:52:08.740] signalCondition <- base::signalCondition 1528s [00:52:08.740] sys.calls <- base::sys.calls 1528s [00:52:08.740] `[[` <- base::`[[` 1528s [00:52:08.740] `+` <- base::`+` 1528s [00:52:08.740] `<<-` <- base::`<<-` 1528s [00:52:08.740] sysCalls <- function(calls = sys.calls(), from = 1L) { 1528s [00:52:08.740] calls[seq.int(from = from + 12L, to = length(calls) - 1528s [00:52:08.740] 3L)] 1528s [00:52:08.740] } 1528s [00:52:08.740] function(cond) { 1528s [00:52:08.740] is_error <- inherits(cond, "error") 1528s [00:52:08.740] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1528s [00:52:08.740] NULL) 1528s [00:52:08.740] if (is_error) { 1528s [00:52:08.740] sessionInformation <- function() { 1528s [00:52:08.740] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1528s [00:52:08.740] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1528s [00:52:08.740] search = base::search(), system = base::Sys.info()) 1528s [00:52:08.740] } 1528s [00:52:08.740] ...future.conditions[[length(...future.conditions) + 1528s [00:52:08.740] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1528s [00:52:08.740] cond$call), session = sessionInformation(), 1528s [00:52:08.740] timestamp = base::Sys.time(), signaled = 0L) 1528s [00:52:08.740] signalCondition(cond) 1528s [00:52:08.740] } 1528s [00:52:08.740] else if (!ignore && TRUE && inherits(cond, c("condition", 1528s [00:52:08.740] "immediateCondition"))) { 1528s [00:52:08.740] signal <- TRUE && inherits(cond, "immediateCondition") 1528s [00:52:08.740] ...future.conditions[[length(...future.conditions) + 1528s [00:52:08.740] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1528s [00:52:08.740] if (TRUE && !signal) { 1528s [00:52:08.740] muffleCondition <- function (cond, pattern = "^muffle") 1528s [00:52:08.740] { 1528s [00:52:08.740] inherits <- base::inherits 1528s [00:52:08.740] invokeRestart <- base::invokeRestart 1528s [00:52:08.740] is.null <- base::is.null 1528s [00:52:08.740] muffled <- FALSE 1528s [00:52:08.740] if (inherits(cond, "message")) { 1528s [00:52:08.740] muffled <- grepl(pattern, "muffleMessage") 1528s [00:52:08.740] if (muffled) 1528s [00:52:08.740] invokeRestart("muffleMessage") 1528s [00:52:08.740] } 1528s [00:52:08.740] else if (inherits(cond, "warning")) { 1528s [00:52:08.740] muffled <- grepl(pattern, "muffleWarning") 1528s [00:52:08.740] if (muffled) 1528s [00:52:08.740] invokeRestart("muffleWarning") 1528s [00:52:08.740] } 1528s [00:52:08.740] else if (inherits(cond, "condition")) { 1528s [00:52:08.740] if (!is.null(pattern)) { 1528s [00:52:08.740] computeRestarts <- base::computeRestarts 1528s [00:52:08.740] grepl <- base::grepl 1528s [00:52:08.740] restarts <- computeRestarts(cond) 1528s [00:52:08.740] for (restart in restarts) { 1528s [00:52:08.740] name <- restart$name 1528s [00:52:08.740] if (is.null(name)) 1528s [00:52:08.740] next 1528s [00:52:08.740] if (!grepl(pattern, name)) 1528s [00:52:08.740] next 1528s [00:52:08.740] invokeRestart(restart) 1528s [00:52:08.740] muffled <- TRUE 1528s [00:52:08.740] break 1528s [00:52:08.740] } 1528s [00:52:08.740] } 1528s [00:52:08.740] } 1528s [00:52:08.740] invisible(muffled) 1528s [00:52:08.740] } 1528s [00:52:08.740] muffleCondition(cond, pattern = "^muffle") 1528s [00:52:08.740] } 1528s [00:52:08.740] } 1528s [00:52:08.740] else { 1528s [00:52:08.740] if (TRUE) { 1528s [00:52:08.740] muffleCondition <- function (cond, pattern = "^muffle") 1528s [00:52:08.740] { 1528s [00:52:08.740] inherits <- base::inherits 1528s [00:52:08.740] invokeRestart <- base::invokeRestart 1528s [00:52:08.740] is.null <- base::is.null 1528s [00:52:08.740] muffled <- FALSE 1528s [00:52:08.740] if (inherits(cond, "message")) { 1528s [00:52:08.740] muffled <- grepl(pattern, "muffleMessage") 1528s [00:52:08.740] if (muffled) 1528s [00:52:08.740] invokeRestart("muffleMessage") 1528s [00:52:08.740] } 1528s [00:52:08.740] else if (inherits(cond, "warning")) { 1528s [00:52:08.740] muffled <- grepl(pattern, "muffleWarning") 1528s [00:52:08.740] if (muffled) 1528s [00:52:08.740] invokeRestart("muffleWarning") 1528s [00:52:08.740] } 1528s [00:52:08.740] else if (inherits(cond, "condition")) { 1528s [00:52:08.740] if (!is.null(pattern)) { 1528s [00:52:08.740] computeRestarts <- base::computeRestarts 1528s [00:52:08.740] grepl <- base::grepl 1528s [00:52:08.740] restarts <- computeRestarts(cond) 1528s [00:52:08.740] for (restart in restarts) { 1528s [00:52:08.740] name <- restart$name 1528s [00:52:08.740] if (is.null(name)) 1528s [00:52:08.740] next 1528s [00:52:08.740] if (!grepl(pattern, name)) 1528s [00:52:08.740] next 1528s [00:52:08.740] invokeRestart(restart) 1528s [00:52:08.740] muffled <- TRUE 1528s [00:52:08.740] break 1528s [00:52:08.740] } 1528s [00:52:08.740] } 1528s [00:52:08.740] } 1528s [00:52:08.740] invisible(muffled) 1528s [00:52:08.740] } 1528s [00:52:08.740] muffleCondition(cond, pattern = "^muffle") 1528s [00:52:08.740] } 1528s [00:52:08.740] } 1528s [00:52:08.740] } 1528s [00:52:08.740] })) 1528s [00:52:08.740] }, error = function(ex) { 1528s [00:52:08.740] base::structure(base::list(value = NULL, visible = NULL, 1528s [00:52:08.740] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1528s [00:52:08.740] ...future.rng), started = ...future.startTime, 1528s [00:52:08.740] finished = Sys.time(), session_uuid = NA_character_, 1528s [00:52:08.740] version = "1.8"), class = "FutureResult") 1528s [00:52:08.740] }, finally = { 1528s [00:52:08.740] if (!identical(...future.workdir, getwd())) 1528s [00:52:08.740] setwd(...future.workdir) 1528s [00:52:08.740] { 1528s [00:52:08.740] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1528s [00:52:08.740] ...future.oldOptions$nwarnings <- NULL 1528s [00:52:08.740] } 1528s [00:52:08.740] base::options(...future.oldOptions) 1528s [00:52:08.740] if (.Platform$OS.type == "windows") { 1528s [00:52:08.740] old_names <- names(...future.oldEnvVars) 1528s [00:52:08.740] envs <- base::Sys.getenv() 1528s [00:52:08.740] names <- names(envs) 1528s [00:52:08.740] common <- intersect(names, old_names) 1528s [00:52:08.740] added <- setdiff(names, old_names) 1528s [00:52:08.740] removed <- setdiff(old_names, names) 1528s [00:52:08.740] changed <- common[...future.oldEnvVars[common] != 1528s [00:52:08.740] envs[common]] 1528s [00:52:08.740] NAMES <- toupper(changed) 1528s [00:52:08.740] args <- list() 1528s [00:52:08.740] for (kk in seq_along(NAMES)) { 1528s [00:52:08.740] name <- changed[[kk]] 1528s [00:52:08.740] NAME <- NAMES[[kk]] 1528s [00:52:08.740] if (name != NAME && is.element(NAME, old_names)) 1528s [00:52:08.740] next 1528s [00:52:08.740] args[[name]] <- ...future.oldEnvVars[[name]] 1528s [00:52:08.740] } 1528s [00:52:08.740] NAMES <- toupper(added) 1528s [00:52:08.740] for (kk in seq_along(NAMES)) { 1528s [00:52:08.740] name <- added[[kk]] 1528s [00:52:08.740] NAME <- NAMES[[kk]] 1528s [00:52:08.740] if (name != NAME && is.element(NAME, old_names)) 1528s [00:52:08.740] next 1528s [00:52:08.740] args[[name]] <- "" 1528s [00:52:08.740] } 1528s [00:52:08.740] NAMES <- toupper(removed) 1528s [00:52:08.740] for (kk in seq_along(NAMES)) { 1528s [00:52:08.740] name <- removed[[kk]] 1528s [00:52:08.740] NAME <- NAMES[[kk]] 1528s [00:52:08.740] if (name != NAME && is.element(NAME, old_names)) 1528s [00:52:08.740] next 1528s [00:52:08.740] args[[name]] <- ...future.oldEnvVars[[name]] 1528s [00:52:08.740] } 1528s [00:52:08.740] if (length(args) > 0) 1528s [00:52:08.740] base::do.call(base::Sys.setenv, args = args) 1528s [00:52:08.740] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1528s [00:52:08.740] } 1528s [00:52:08.740] else { 1528s [00:52:08.740] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1528s [00:52:08.740] } 1528s [00:52:08.740] { 1528s [00:52:08.740] if (base::length(...future.futureOptionsAdded) > 1528s [00:52:08.740] 0L) { 1528s [00:52:08.740] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1528s [00:52:08.740] base::names(opts) <- ...future.futureOptionsAdded 1528s [00:52:08.740] base::options(opts) 1528s [00:52:08.740] } 1528s [00:52:08.740] { 1528s [00:52:08.740] { 1528s [00:52:08.740] NULL 1528s [00:52:08.740] RNGkind("Mersenne-Twister") 1528s [00:52:08.740] base::rm(list = ".Random.seed", envir = base::globalenv(), 1528s [00:52:08.740] inherits = FALSE) 1528s [00:52:08.740] } 1528s [00:52:08.740] options(future.plan = NULL) 1528s [00:52:08.740] if (is.na(NA_character_)) 1528s [00:52:08.740] Sys.unsetenv("R_FUTURE_PLAN") 1528s [00:52:08.740] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1528s [00:52:08.740] future::plan(list(function (..., envir = parent.frame()) 1528s [00:52:08.740] { 1528s [00:52:08.740] future <- SequentialFuture(..., envir = envir) 1528s [00:52:08.740] if (!future$lazy) 1528s [00:52:08.740] future <- run(future) 1528s [00:52:08.740] invisible(future) 1528s [00:52:08.740] }), .cleanup = FALSE, .init = FALSE) 1528s [00:52:08.740] } 1528s [00:52:08.740] } 1528s [00:52:08.740] } 1528s [00:52:08.740] }) 1528s [00:52:08.740] if (TRUE) { 1528s [00:52:08.740] base::sink(type = "output", split = FALSE) 1528s [00:52:08.740] if (TRUE) { 1528s [00:52:08.740] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1528s [00:52:08.740] } 1528s [00:52:08.740] else { 1528s [00:52:08.740] ...future.result["stdout"] <- base::list(NULL) 1528s [00:52:08.740] } 1528s [00:52:08.740] base::close(...future.stdout) 1528s [00:52:08.740] ...future.stdout <- NULL 1528s [00:52:08.740] } 1528s [00:52:08.740] ...future.result$conditions <- ...future.conditions 1528s [00:52:08.740] ...future.result$finished <- base::Sys.time() 1528s [00:52:08.740] ...future.result 1528s [00:52:08.740] } 1528s [00:52:08.745] assign_globals() ... 1528s [00:52:08.745] List of 5 1528s [00:52:08.745] $ future.call.arguments : list() 1528s [00:52:08.745] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1528s [00:52:08.745] $ ...future.FUN :function (x) 1528s [00:52:08.745] $ ...future.elements_ii :List of 2 1528s [00:52:08.745] ..$ : int 1 1528s [00:52:08.745] ..$ : int 2 1528s [00:52:08.745] $ ...future.seeds_ii : NULL 1528s [00:52:08.745] $ ...future.globals.maxSize: num Inf 1528s [00:52:08.745] - attr(*, "resolved")= logi FALSE 1528s [00:52:08.745] - attr(*, "total_size")= num NA 1528s [00:52:08.745] - attr(*, "where")=List of 5 1528s [00:52:08.745] ..$ future.call.arguments : 1528s [00:52:08.745] ..$ ...future.FUN : 1528s [00:52:08.745] ..$ ...future.elements_ii : 1528s [00:52:08.745] ..$ ...future.seeds_ii : 1528s [00:52:08.745] ..$ ...future.globals.maxSize: 1528s [00:52:08.745] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1528s [00:52:08.745] - attr(*, "already-done")= logi TRUE 1528s [00:52:08.754] - copied ‘future.call.arguments’ to environment 1528s [00:52:08.755] - copied ‘...future.FUN’ to environment 1528s [00:52:08.755] - copied ‘...future.elements_ii’ to environment 1528s [00:52:08.755] - copied ‘...future.seeds_ii’ to environment 1528s [00:52:08.755] - copied ‘...future.globals.maxSize’ to environment 1528s [00:52:08.755] assign_globals() ... done 1528s [00:52:08.756] plan(): Setting new future strategy stack: 1528s [00:52:08.756] List of future strategies: 1528s [00:52:08.756] 1. sequential: 1528s [00:52:08.756] - args: function (..., envir = parent.frame()) 1528s [00:52:08.756] - tweaked: FALSE 1528s [00:52:08.756] - call: NULL 1528s [00:52:08.756] plan(): nbrOfWorkers() = 1 1528s [00:52:08.757] plan(): Setting new future strategy stack: 1528s [00:52:08.757] List of future strategies: 1528s [00:52:08.757] 1. sequential: 1528s [00:52:08.757] - args: function (..., envir = parent.frame()) 1528s [00:52:08.757] - tweaked: FALSE 1528s [00:52:08.757] - call: plan(strategy) 1528s [00:52:08.758] plan(): nbrOfWorkers() = 1 1528s [00:52:08.758] SequentialFuture started (and completed) 1528s [00:52:08.758] - Launch lazy future ... done 1528s [00:52:08.758] run() for ‘SequentialFuture’ ... done 1528s [00:52:08.758] Created future: 1528s [00:52:08.758] SequentialFuture: 1528s [00:52:08.758] Label: ‘future_apply-1’ 1528s [00:52:08.758] Expression: 1528s [00:52:08.758] { 1528s [00:52:08.758] do.call(function(...) { 1528s [00:52:08.758] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1528s [00:52:08.758] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1528s [00:52:08.758] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1528s [00:52:08.758] on.exit(options(oopts), add = TRUE) 1528s [00:52:08.758] } 1528s [00:52:08.758] { 1528s [00:52:08.758] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1528s [00:52:08.758] ...future.X_jj <- ...future.elements_ii[[jj]] 1528s [00:52:08.758] ...future.FUN(...future.X_jj, ...) 1528s [00:52:08.758] }) 1528s [00:52:08.758] } 1528s [00:52:08.758] }, args = future.call.arguments) 1528s [00:52:08.758] } 1528s [00:52:08.758] Lazy evaluation: FALSE 1528s [00:52:08.758] Asynchronous evaluation: FALSE 1528s [00:52:08.758] Local evaluation: TRUE 1528s [00:52:08.758] Environment: R_GlobalEnv 1528s [00:52:08.758] Capture standard output: TRUE 1528s [00:52:08.758] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1528s [00:52:08.758] Globals: 5 objects totaling 0.99 KiB (DotDotDotList ‘future.call.arguments’ of 0 bytes, function ‘...future.FUN’ of 848 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1528s [00:52:08.758] Packages: 1528s [00:52:08.758] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1528s [00:52:08.758] Resolved: TRUE 1528s [00:52:08.758] Value: 112 bytes of class ‘list’ 1528s [00:52:08.758] Early signaling: FALSE 1528s [00:52:08.758] Owner process: 856348fc-72a5-ec0b-63b7-1a3640a93e42 1528s [00:52:08.758] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1528s [00:52:08.760] Chunk #1 of 1 ... DONE 1528s [00:52:08.760] Launching 1 futures (chunks) ... DONE 1528s [00:52:08.760] Resolving 1 futures (chunks) ... 1528s [00:52:08.761] resolve() on list ... 1528s [00:52:08.761] recursive: 0 1528s [00:52:08.761] length: 1 1528s [00:52:08.761] 1528s a b [00:52:08.761] resolved() for ‘SequentialFuture’ ... 1528s [00:52:08.762] - state: ‘finished’ 1528s [00:52:08.762] - run: TRUE 1528s [00:52:08.762] - result: ‘FutureResult’ 1528s [00:52:08.762] resolved() for ‘SequentialFuture’ ... done 1528s [00:52:08.762] Future #1 1528s [00:52:08.762] signalConditionsASAP(SequentialFuture, pos=1) ... 1528s [00:52:08.762] - nx: 1 1528s [00:52:08.762] - relay: TRUE 1528s [00:52:08.762] - stdout: TRUE 1528s [00:52:08.763] - signal: TRUE 1528s [00:52:08.763] - resignal: FALSE 1528s [00:52:08.763] - force: TRUE 1528s [00:52:08.763] - relayed: [n=1] FALSE 1528s [00:52:08.763] - queued futures: [n=1] FALSE 1528s [00:52:08.763] - until=1 1528s [00:52:08.763] - relaying element #1 1528s [00:52:08.763] - relayed: [n=1] TRUE 1528s [00:52:08.764] - queued futures: [n=1] TRUE 1528s [00:52:08.764] signalConditionsASAP(SequentialFuture, pos=1) ... done 1528s [00:52:08.764] length: 0 (resolved future 1) 1528s [00:52:08.764] Relaying remaining futures 1528s [00:52:08.764] signalConditionsASAP(NULL, pos=0) ... 1528s [00:52:08.764] - nx: 1 1528s [00:52:08.764] - relay: TRUE 1528s [00:52:08.764] - stdout: TRUE 1528s [00:52:08.764] - signal: TRUE 1528s [00:52:08.764] - resignal: FALSE 1528s [00:52:08.765] - force: TRUE 1528s [00:52:08.765] - relayed: [n=1] TRUE 1528s [00:52:08.765] - queued futures: [n=1] TRUE 1528s - flush all 1528s [00:52:08.765] - relayed: [n=1] TRUE 1528s [00:52:08.765] - queued futures: [n=1] TRUE 1528s [00:52:08.765] signalConditionsASAP(NULL, pos=0) ... done 1528s [00:52:08.765] resolve() on list ... DONE 1528s [00:52:08.765] - Number of value chunks collected: 1 1528s [00:52:08.766] Resolving 1 futures (chunks) ... DONE 1528s [00:52:08.766] Reducing values from 1 chunks ... 1528s [00:52:08.766] - Number of values collected after concatenation: 2 1528s [00:52:08.766] - Number of values expected: 2 1528s [00:52:08.766] Reducing values from 1 chunks ... DONE 1528s [00:52:08.766] future_lapply() ... DONE 1528s 1528s 1 2 1528s - apply(X, ...) - dim(X) > 2 ... 1528s [00:52:08.767] getGlobalsAndPackagesXApply() ... 1528s [00:52:08.767] - future.globals: TRUE 1528s [00:52:08.767] getGlobalsAndPackages() ... 1528s [00:52:08.767] Searching for globals... 1528s [00:52:08.768] - globals found: [1] ‘FUN’ 1528s [00:52:08.768] Searching for globals ... DONE 1528s [00:52:08.769] Resolving globals: FALSE 1528s [00:52:08.769] The total size of the 1 globals is 848 bytes (848 bytes) 1528s [00:52:08.769] The total size of the 1 globals exported for future expression (‘FUN(X = structure(1:12, dim = c(2L, 2L, 3L)))’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1528s [00:52:08.770] - globals: [1] ‘FUN’ 1528s [00:52:08.770] 1528s [00:52:08.770] getGlobalsAndPackages() ... DONE 1528s [00:52:08.770] - globals found/used: [n=1] ‘FUN’ 1528s [00:52:08.770] - needed namespaces: [n=0] 1528s [00:52:08.770] Finding globals ... DONE 1528s [00:52:08.770] - use_args: TRUE 1528s [00:52:08.771] - Getting '...' globals ... 1528s [00:52:08.771] resolve() on list ... 1528s [00:52:08.771] recursive: 0 1528s [00:52:08.771] length: 1 1528s [00:52:08.771] elements: ‘...’ 1528s [00:52:08.772] length: 0 (resolved future 1) 1528s [00:52:08.772] resolve() on list ... DONE 1528s [00:52:08.772] - '...' content: [n=0] 1528s [00:52:08.772] List of 1 1528s [00:52:08.772] $ ...: list() 1528s [00:52:08.772] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1528s [00:52:08.772] - attr(*, "where")=List of 1 1528s [00:52:08.772] ..$ ...: 1528s [00:52:08.772] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1528s [00:52:08.772] - attr(*, "resolved")= logi TRUE 1528s [00:52:08.772] - attr(*, "total_size")= num NA 1528s [00:52:08.775] - Getting '...' globals ... DONE 1528s [00:52:08.775] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1528s [00:52:08.775] List of 2 1528s [00:52:08.775] $ ...future.FUN:function (x) 1528s [00:52:08.775] $ ... : list() 1528s [00:52:08.775] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1528s [00:52:08.775] - attr(*, "where")=List of 2 1528s [00:52:08.775] ..$ ...future.FUN: 1528s [00:52:08.775] ..$ ... : 1528s [00:52:08.775] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1528s [00:52:08.775] - attr(*, "resolved")= logi FALSE 1528s [00:52:08.775] - attr(*, "total_size")= num 848 1528s [00:52:08.778] Packages to be attached in all futures: [n=0] 1528s [00:52:08.779] getGlobalsAndPackagesXApply() ... DONE 1528s [00:52:08.779] future_lapply() ... 1528s [00:52:08.779] Number of chunks: 1 1528s [00:52:08.780] getGlobalsAndPackagesXApply() ... 1528s [00:52:08.780] - future.globals: with names ‘list()’ 1528s [00:52:08.780] - use_args: TRUE 1528s [00:52:08.780] Globals to be used in all futures (chunks): [n=2] ‘...’, ‘...future.FUN’ 1528s [00:52:08.780] List of 2 1528s [00:52:08.780] $ ... : list() 1528s [00:52:08.780] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1528s [00:52:08.780] $ ...future.FUN:function (x) 1528s [00:52:08.780] - attr(*, "where")=List of 2 1528s [00:52:08.780] ..$ ... : 1528s [00:52:08.780] ..$ ...future.FUN: 1528s [00:52:08.780] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1528s [00:52:08.780] - attr(*, "resolved")= logi FALSE 1528s [00:52:08.780] - attr(*, "total_size")= num NA 1528s [00:52:08.786] Packages to be attached in all futures: [n=0] 1528s [00:52:08.786] getGlobalsAndPackagesXApply() ... DONE 1528s [00:52:08.786] Number of futures (= number of chunks): 1 1528s [00:52:08.786] Launching 1 futures (chunks) ... 1528s [00:52:08.786] Chunk #1 of 1 ... 1528s [00:52:08.786] - seeds: 1528s [00:52:08.786] - All globals exported: [n=5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1528s [00:52:08.787] getGlobalsAndPackages() ... 1528s [00:52:08.787] - globals passed as-is: [5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1528s [00:52:08.787] Resolving globals: FALSE 1528s [00:52:08.787] Tweak future expression to call with '...' arguments ... 1528s [00:52:08.787] { 1528s [00:52:08.787] do.call(function(...) { 1528s [00:52:08.787] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1528s [00:52:08.787] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1528s [00:52:08.787] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1528s [00:52:08.787] on.exit(options(oopts), add = TRUE) 1528s [00:52:08.787] } 1528s [00:52:08.787] { 1528s [00:52:08.787] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1528s [00:52:08.787] ...future.X_jj <- ...future.elements_ii[[jj]] 1528s [00:52:08.787] ...future.FUN(...future.X_jj, ...) 1528s [00:52:08.787] }) 1528s [00:52:08.787] } 1528s [00:52:08.787] }, args = future.call.arguments) 1528s [00:52:08.787] } 1528s [00:52:08.787] Tweak future expression to call with '...' arguments ... DONE 1528s [00:52:08.788] - globals: [5] ‘future.call.arguments’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1528s [00:52:08.788] 1528s [00:52:08.788] getGlobalsAndPackages() ... DONE 1528s [00:52:08.789] run() for ‘Future’ ... 1528s [00:52:08.789] - state: ‘created’ 1528s [00:52:08.789] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1528s [00:52:08.789] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1528s [00:52:08.789] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1528s [00:52:08.789] - Field: ‘label’ 1528s [00:52:08.790] - Field: ‘local’ 1528s [00:52:08.790] - Field: ‘owner’ 1528s [00:52:08.790] - Field: ‘envir’ 1528s [00:52:08.790] - Field: ‘packages’ 1528s [00:52:08.790] - Field: ‘gc’ 1528s [00:52:08.790] - Field: ‘conditions’ 1528s [00:52:08.791] - Field: ‘expr’ 1528s [00:52:08.791] - Field: ‘uuid’ 1528s [00:52:08.791] - Field: ‘seed’ 1528s [00:52:08.791] - Field: ‘version’ 1528s [00:52:08.791] - Field: ‘result’ 1528s [00:52:08.791] - Field: ‘asynchronous’ 1528s [00:52:08.791] - Field: ‘calls’ 1528s [00:52:08.792] - Field: ‘globals’ 1528s [00:52:08.792] - Field: ‘stdout’ 1528s [00:52:08.792] - Field: ‘earlySignal’ 1528s [00:52:08.792] - Field: ‘lazy’ 1528s [00:52:08.792] - Field: ‘state’ 1528s [00:52:08.792] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1528s [00:52:08.792] - Launch lazy future ... 1528s [00:52:08.793] Packages needed by the future expression (n = 0): 1528s [00:52:08.793] Packages needed by future strategies (n = 0): 1528s [00:52:08.793] { 1528s [00:52:08.793] { 1528s [00:52:08.793] { 1528s [00:52:08.793] ...future.startTime <- base::Sys.time() 1528s [00:52:08.793] { 1528s [00:52:08.793] { 1528s [00:52:08.793] { 1528s [00:52:08.793] base::local({ 1528s [00:52:08.793] has_future <- base::requireNamespace("future", 1528s [00:52:08.793] quietly = TRUE) 1528s [00:52:08.793] if (has_future) { 1528s [00:52:08.793] ns <- base::getNamespace("future") 1528s [00:52:08.793] version <- ns[[".package"]][["version"]] 1528s [00:52:08.793] if (is.null(version)) 1528s [00:52:08.793] version <- utils::packageVersion("future") 1528s [00:52:08.793] } 1528s [00:52:08.793] else { 1528s [00:52:08.793] version <- NULL 1528s [00:52:08.793] } 1528s [00:52:08.793] if (!has_future || version < "1.8.0") { 1528s [00:52:08.793] info <- base::c(r_version = base::gsub("R version ", 1528s [00:52:08.793] "", base::R.version$version.string), 1528s [00:52:08.793] platform = base::sprintf("%s (%s-bit)", 1528s [00:52:08.793] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1528s [00:52:08.793] os = base::paste(base::Sys.info()[base::c("sysname", 1528s [00:52:08.793] "release", "version")], collapse = " "), 1528s [00:52:08.793] hostname = base::Sys.info()[["nodename"]]) 1528s [00:52:08.793] info <- base::sprintf("%s: %s", base::names(info), 1528s [00:52:08.793] info) 1528s [00:52:08.793] info <- base::paste(info, collapse = "; ") 1528s [00:52:08.793] if (!has_future) { 1528s [00:52:08.793] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1528s [00:52:08.793] info) 1528s [00:52:08.793] } 1528s [00:52:08.793] else { 1528s [00:52:08.793] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1528s [00:52:08.793] info, version) 1528s [00:52:08.793] } 1528s [00:52:08.793] base::stop(msg) 1528s [00:52:08.793] } 1528s [00:52:08.793] }) 1528s [00:52:08.793] } 1528s [00:52:08.793] options(future.plan = NULL) 1528s [00:52:08.793] Sys.unsetenv("R_FUTURE_PLAN") 1528s [00:52:08.793] future::plan("default", .cleanup = FALSE, .init = FALSE) 1528s [00:52:08.793] } 1528s [00:52:08.793] ...future.workdir <- getwd() 1528s [00:52:08.793] } 1528s [00:52:08.793] ...future.oldOptions <- base::as.list(base::.Options) 1528s [00:52:08.793] ...future.oldEnvVars <- base::Sys.getenv() 1528s [00:52:08.793] } 1528s [00:52:08.793] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1528s [00:52:08.793] future.globals.maxSize = Inf, future.globals.method = NULL, 1528s [00:52:08.793] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1528s [00:52:08.793] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1528s [00:52:08.793] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1528s [00:52:08.793] future.stdout.windows.reencode = NULL, width = 80L) 1528s [00:52:08.793] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1528s [00:52:08.793] base::names(...future.oldOptions)) 1528s [00:52:08.793] } 1528s [00:52:08.793] if (FALSE) { 1528s [00:52:08.793] } 1528s [00:52:08.793] else { 1528s [00:52:08.793] if (TRUE) { 1528s [00:52:08.793] ...future.stdout <- base::rawConnection(base::raw(0L), 1528s [00:52:08.793] open = "w") 1528s [00:52:08.793] } 1528s [00:52:08.793] else { 1528s [00:52:08.793] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1528s [00:52:08.793] windows = "NUL", "/dev/null"), open = "w") 1528s [00:52:08.793] } 1528s [00:52:08.793] base::sink(...future.stdout, type = "output", split = FALSE) 1528s [00:52:08.793] base::on.exit(if (!base::is.null(...future.stdout)) { 1528s [00:52:08.793] base::sink(type = "output", split = FALSE) 1528s [00:52:08.793] base::close(...future.stdout) 1528s [00:52:08.793] }, add = TRUE) 1528s [00:52:08.793] } 1528s [00:52:08.793] ...future.frame <- base::sys.nframe() 1528s [00:52:08.793] ...future.conditions <- base::list() 1528s [00:52:08.793] ...future.rng <- base::globalenv()$.Random.seed 1528s [00:52:08.793] if (FALSE) { 1528s [00:52:08.793] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1528s [00:52:08.793] "...future.value", "...future.globalenv.names", ".Random.seed") 1528s [00:52:08.793] } 1528s [00:52:08.793] ...future.result <- base::tryCatch({ 1528s [00:52:08.793] base::withCallingHandlers({ 1528s [00:52:08.793] ...future.value <- base::withVisible(base::local({ 1528s [00:52:08.793] do.call(function(...) { 1528s [00:52:08.793] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1528s [00:52:08.793] if (!identical(...future.globals.maxSize.org, 1528s [00:52:08.793] ...future.globals.maxSize)) { 1528s [00:52:08.793] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1528s [00:52:08.793] on.exit(options(oopts), add = TRUE) 1528s [00:52:08.793] } 1528s [00:52:08.793] { 1528s [00:52:08.793] lapply(seq_along(...future.elements_ii), 1528s [00:52:08.793] FUN = function(jj) { 1528s [00:52:08.793] ...future.X_jj <- ...future.elements_ii[[jj]] 1528s [00:52:08.793] ...future.FUN(...future.X_jj, ...) 1528s [00:52:08.793] }) 1528s [00:52:08.793] } 1528s [00:52:08.793] }, args = future.call.arguments) 1528s [00:52:08.793] })) 1528s [00:52:08.793] future::FutureResult(value = ...future.value$value, 1528s [00:52:08.793] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1528s [00:52:08.793] ...future.rng), globalenv = if (FALSE) 1528s [00:52:08.793] list(added = base::setdiff(base::names(base::.GlobalEnv), 1528s [00:52:08.793] ...future.globalenv.names)) 1528s [00:52:08.793] else NULL, started = ...future.startTime, version = "1.8") 1528s [00:52:08.793] }, condition = base::local({ 1528s [00:52:08.793] c <- base::c 1528s [00:52:08.793] inherits <- base::inherits 1528s [00:52:08.793] invokeRestart <- base::invokeRestart 1528s [00:52:08.793] length <- base::length 1528s [00:52:08.793] list <- base::list 1528s [00:52:08.793] seq.int <- base::seq.int 1528s [00:52:08.793] signalCondition <- base::signalCondition 1528s [00:52:08.793] sys.calls <- base::sys.calls 1528s [00:52:08.793] `[[` <- base::`[[` 1528s [00:52:08.793] `+` <- base::`+` 1528s [00:52:08.793] `<<-` <- base::`<<-` 1528s [00:52:08.793] sysCalls <- function(calls = sys.calls(), from = 1L) { 1528s [00:52:08.793] calls[seq.int(from = from + 12L, to = length(calls) - 1528s [00:52:08.793] 3L)] 1528s [00:52:08.793] } 1528s [00:52:08.793] function(cond) { 1528s [00:52:08.793] is_error <- inherits(cond, "error") 1528s [00:52:08.793] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1528s [00:52:08.793] NULL) 1528s [00:52:08.793] if (is_error) { 1528s [00:52:08.793] sessionInformation <- function() { 1528s [00:52:08.793] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1528s [00:52:08.793] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1528s [00:52:08.793] search = base::search(), system = base::Sys.info()) 1528s [00:52:08.793] } 1528s [00:52:08.793] ...future.conditions[[length(...future.conditions) + 1528s [00:52:08.793] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1528s [00:52:08.793] cond$call), session = sessionInformation(), 1528s [00:52:08.793] timestamp = base::Sys.time(), signaled = 0L) 1528s [00:52:08.793] signalCondition(cond) 1528s [00:52:08.793] } 1528s [00:52:08.793] else if (!ignore && TRUE && inherits(cond, c("condition", 1528s [00:52:08.793] "immediateCondition"))) { 1528s [00:52:08.793] signal <- TRUE && inherits(cond, "immediateCondition") 1528s [00:52:08.793] ...future.conditions[[length(...future.conditions) + 1528s [00:52:08.793] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1528s [00:52:08.793] if (TRUE && !signal) { 1528s [00:52:08.793] muffleCondition <- function (cond, pattern = "^muffle") 1528s [00:52:08.793] { 1528s [00:52:08.793] inherits <- base::inherits 1528s [00:52:08.793] invokeRestart <- base::invokeRestart 1528s [00:52:08.793] is.null <- base::is.null 1528s [00:52:08.793] muffled <- FALSE 1528s [00:52:08.793] if (inherits(cond, "message")) { 1528s [00:52:08.793] muffled <- grepl(pattern, "muffleMessage") 1528s [00:52:08.793] if (muffled) 1528s [00:52:08.793] invokeRestart("muffleMessage") 1528s [00:52:08.793] } 1528s [00:52:08.793] else if (inherits(cond, "warning")) { 1528s [00:52:08.793] muffled <- grepl(pattern, "muffleWarning") 1528s [00:52:08.793] if (muffled) 1528s [00:52:08.793] invokeRestart("muffleWarning") 1528s [00:52:08.793] } 1528s [00:52:08.793] else if (inherits(cond, "condition")) { 1528s [00:52:08.793] if (!is.null(pattern)) { 1528s [00:52:08.793] computeRestarts <- base::computeRestarts 1528s [00:52:08.793] grepl <- base::grepl 1528s [00:52:08.793] restarts <- computeRestarts(cond) 1528s [00:52:08.793] for (restart in restarts) { 1528s [00:52:08.793] name <- restart$name 1528s [00:52:08.793] if (is.null(name)) 1528s [00:52:08.793] next 1528s [00:52:08.793] if (!grepl(pattern, name)) 1528s [00:52:08.793] next 1528s [00:52:08.793] invokeRestart(restart) 1528s [00:52:08.793] muffled <- TRUE 1528s [00:52:08.793] break 1528s [00:52:08.793] } 1528s [00:52:08.793] } 1528s [00:52:08.793] } 1528s [00:52:08.793] invisible(muffled) 1528s [00:52:08.793] } 1528s [00:52:08.793] muffleCondition(cond, pattern = "^muffle") 1528s [00:52:08.793] } 1528s [00:52:08.793] } 1528s [00:52:08.793] else { 1528s [00:52:08.793] if (TRUE) { 1528s [00:52:08.793] muffleCondition <- function (cond, pattern = "^muffle") 1528s [00:52:08.793] { 1528s [00:52:08.793] inherits <- base::inherits 1528s [00:52:08.793] invokeRestart <- base::invokeRestart 1528s [00:52:08.793] is.null <- base::is.null 1528s [00:52:08.793] muffled <- FALSE 1528s [00:52:08.793] if (inherits(cond, "message")) { 1528s [00:52:08.793] muffled <- grepl(pattern, "muffleMessage") 1528s [00:52:08.793] if (muffled) 1528s [00:52:08.793] invokeRestart("muffleMessage") 1528s [00:52:08.793] } 1528s [00:52:08.793] else if (inherits(cond, "warning")) { 1528s [00:52:08.793] muffled <- grepl(pattern, "muffleWarning") 1528s [00:52:08.793] if (muffled) 1528s [00:52:08.793] invokeRestart("muffleWarning") 1528s [00:52:08.793] } 1528s [00:52:08.793] else if (inherits(cond, "condition")) { 1528s [00:52:08.793] if (!is.null(pattern)) { 1528s [00:52:08.793] computeRestarts <- base::computeRestarts 1528s [00:52:08.793] grepl <- base::grepl 1528s [00:52:08.793] restarts <- computeRestarts(cond) 1528s [00:52:08.793] for (restart in restarts) { 1528s [00:52:08.793] name <- restart$name 1528s [00:52:08.793] if (is.null(name)) 1528s [00:52:08.793] next 1528s [00:52:08.793] if (!grepl(pattern, name)) 1528s [00:52:08.793] next 1528s [00:52:08.793] invokeRestart(restart) 1528s [00:52:08.793] muffled <- TRUE 1528s [00:52:08.793] break 1528s [00:52:08.793] } 1528s [00:52:08.793] } 1528s [00:52:08.793] } 1528s [00:52:08.793] invisible(muffled) 1528s [00:52:08.793] } 1528s [00:52:08.793] muffleCondition(cond, pattern = "^muffle") 1528s [00:52:08.793] } 1528s [00:52:08.793] } 1528s [00:52:08.793] } 1528s [00:52:08.793] })) 1528s [00:52:08.793] }, error = function(ex) { 1528s [00:52:08.793] base::structure(base::list(value = NULL, visible = NULL, 1528s [00:52:08.793] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1528s [00:52:08.793] ...future.rng), started = ...future.startTime, 1528s [00:52:08.793] finished = Sys.time(), session_uuid = NA_character_, 1528s [00:52:08.793] version = "1.8"), class = "FutureResult") 1528s [00:52:08.793] }, finally = { 1528s [00:52:08.793] if (!identical(...future.workdir, getwd())) 1528s [00:52:08.793] setwd(...future.workdir) 1528s [00:52:08.793] { 1528s [00:52:08.793] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1528s [00:52:08.793] ...future.oldOptions$nwarnings <- NULL 1528s [00:52:08.793] } 1528s [00:52:08.793] base::options(...future.oldOptions) 1528s [00:52:08.793] if (.Platform$OS.type == "windows") { 1528s [00:52:08.793] old_names <- names(...future.oldEnvVars) 1528s [00:52:08.793] envs <- base::Sys.getenv() 1528s [00:52:08.793] names <- names(envs) 1528s [00:52:08.793] common <- intersect(names, old_names) 1528s [00:52:08.793] added <- setdiff(names, old_names) 1528s [00:52:08.793] removed <- setdiff(old_names, names) 1528s [00:52:08.793] changed <- common[...future.oldEnvVars[common] != 1528s [00:52:08.793] envs[common]] 1528s [00:52:08.793] NAMES <- toupper(changed) 1528s [00:52:08.793] args <- list() 1528s [00:52:08.793] for (kk in seq_along(NAMES)) { 1528s [00:52:08.793] name <- changed[[kk]] 1528s [00:52:08.793] NAME <- NAMES[[kk]] 1528s [00:52:08.793] if (name != NAME && is.element(NAME, old_names)) 1528s [00:52:08.793] next 1528s [00:52:08.793] args[[name]] <- ...future.oldEnvVars[[name]] 1528s [00:52:08.793] } 1528s [00:52:08.793] NAMES <- toupper(added) 1528s [00:52:08.793] for (kk in seq_along(NAMES)) { 1528s [00:52:08.793] name <- added[[kk]] 1528s [00:52:08.793] NAME <- NAMES[[kk]] 1528s [00:52:08.793] if (name != NAME && is.element(NAME, old_names)) 1528s [00:52:08.793] next 1528s [00:52:08.793] args[[name]] <- "" 1528s [00:52:08.793] } 1528s [00:52:08.793] NAMES <- toupper(removed) 1528s [00:52:08.793] for (kk in seq_along(NAMES)) { 1528s [00:52:08.793] name <- removed[[kk]] 1528s [00:52:08.793] NAME <- NAMES[[kk]] 1528s [00:52:08.793] if (name != NAME && is.element(NAME, old_names)) 1528s [00:52:08.793] next 1528s [00:52:08.793] args[[name]] <- ...future.oldEnvVars[[name]] 1528s [00:52:08.793] } 1528s [00:52:08.793] if (length(args) > 0) 1528s [00:52:08.793] base::do.call(base::Sys.setenv, args = args) 1528s [00:52:08.793] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1528s [00:52:08.793] } 1528s [00:52:08.793] else { 1528s [00:52:08.793] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1528s [00:52:08.793] } 1528s [00:52:08.793] { 1528s [00:52:08.793] if (base::length(...future.futureOptionsAdded) > 1528s [00:52:08.793] 0L) { 1528s [00:52:08.793] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1528s [00:52:08.793] base::names(opts) <- ...future.futureOptionsAdded 1528s [00:52:08.793] base::options(opts) 1528s [00:52:08.793] } 1528s [00:52:08.793] { 1528s [00:52:08.793] { 1528s [00:52:08.793] NULL 1528s [00:52:08.793] RNGkind("Mersenne-Twister") 1528s [00:52:08.793] base::rm(list = ".Random.seed", envir = base::globalenv(), 1528s [00:52:08.793] inherits = FALSE) 1528s [00:52:08.793] } 1528s [00:52:08.793] options(future.plan = NULL) 1528s [00:52:08.793] if (is.na(NA_character_)) 1528s [00:52:08.793] Sys.unsetenv("R_FUTURE_PLAN") 1528s [00:52:08.793] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1528s [00:52:08.793] future::plan(list(function (..., envir = parent.frame()) 1528s [00:52:08.793] { 1528s [00:52:08.793] future <- SequentialFuture(..., envir = envir) 1528s [00:52:08.793] if (!future$lazy) 1528s [00:52:08.793] future <- run(future) 1528s [00:52:08.793] invisible(future) 1528s [00:52:08.793] }), .cleanup = FALSE, .init = FALSE) 1528s [00:52:08.793] } 1528s [00:52:08.793] } 1528s [00:52:08.793] } 1528s [00:52:08.793] }) 1528s [00:52:08.793] if (TRUE) { 1528s [00:52:08.793] base::sink(type = "output", split = FALSE) 1528s [00:52:08.793] if (TRUE) { 1528s [00:52:08.793] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1528s [00:52:08.793] } 1528s [00:52:08.793] else { 1528s [00:52:08.793] ...future.result["stdout"] <- base::list(NULL) 1528s [00:52:08.793] } 1528s [00:52:08.793] base::close(...future.stdout) 1528s [00:52:08.793] ...future.stdout <- NULL 1528s [00:52:08.793] } 1528s [00:52:08.793] ...future.result$conditions <- ...future.conditions 1528s [00:52:08.793] ...future.result$finished <- base::Sys.time() 1528s [00:52:08.793] ...future.result 1528s [00:52:08.793] } 1528s [00:52:08.800] assign_globals() ... 1528s [00:52:08.800] List of 5 1528s [00:52:08.800] $ future.call.arguments : list() 1528s [00:52:08.800] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1528s [00:52:08.800] $ ...future.FUN :function (x) 1528s [00:52:08.800] $ ...future.elements_ii :List of 2 1528s [00:52:08.800] ..$ : int [1:2, 1:3] 1 3 5 7 9 11 1528s [00:52:08.800] ..$ : int [1:2, 1:3] 2 4 6 8 10 12 1528s [00:52:08.800] $ ...future.seeds_ii : NULL 1528s [00:52:08.800] $ ...future.globals.maxSize: num Inf 1528s [00:52:08.800] - attr(*, "resolved")= logi FALSE 1528s [00:52:08.800] - attr(*, "total_size")= num NA 1528s [00:52:08.800] - attr(*, "where")=List of 5 1528s [00:52:08.800] ..$ future.call.arguments : 1528s [00:52:08.800] ..$ ...future.FUN : 1528s [00:52:08.800] ..$ ...future.elements_ii : 1528s [00:52:08.800] ..$ ...future.seeds_ii : 1528s [00:52:08.800] ..$ ...future.globals.maxSize: 1528s [00:52:08.800] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1528s [00:52:08.800] - attr(*, "already-done")= logi TRUE 1528s [00:52:08.807] - copied ‘future.call.arguments’ to environment 1528s [00:52:08.807] - copied ‘...future.FUN’ to environment 1528s [00:52:08.807] - copied ‘...future.elements_ii’ to environment 1528s [00:52:08.807] - copied ‘...future.seeds_ii’ to environment 1528s [00:52:08.807] - copied ‘...future.globals.maxSize’ to environment 1528s [00:52:08.807] assign_globals() ... done 1528s [00:52:08.808] plan(): Setting new future strategy stack: 1528s [00:52:08.808] List of future strategies: 1528s [00:52:08.808] 1. sequential: 1528s [00:52:08.808] - args: function (..., envir = parent.frame()) 1528s [00:52:08.808] - tweaked: FALSE 1528s [00:52:08.808] - call: NULL 1528s [00:52:08.808] plan(): nbrOfWorkers() = 1 1528s [00:52:08.809] plan(): Setting new future strategy stack: 1528s [00:52:08.809] List of future strategies: 1528s [00:52:08.809] 1. sequential: 1528s [00:52:08.809] - args: function (..., envir = parent.frame()) 1528s [00:52:08.809] - tweaked: FALSE 1528s [00:52:08.809] - call: plan(strategy) 1528s [00:52:08.810] plan(): nbrOfWorkers() = 1 1528s [00:52:08.810] SequentialFuture started (and completed) 1528s [00:52:08.810] - Launch lazy future ... done 1528s [00:52:08.810] run() for ‘SequentialFuture’ ... done 1528s [00:52:08.810] Created future: 1528s [00:52:08.810] SequentialFuture: 1528s [00:52:08.810] Label: ‘future_apply-1’ 1528s [00:52:08.810] Expression: 1528s [00:52:08.810] { 1528s [00:52:08.810] do.call(function(...) { 1528s [00:52:08.810] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1528s [00:52:08.810] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1528s [00:52:08.810] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1528s [00:52:08.810] on.exit(options(oopts), add = TRUE) 1528s [00:52:08.810] } 1528s [00:52:08.810] { 1528s [00:52:08.810] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1528s [00:52:08.810] ...future.X_jj <- ...future.elements_ii[[jj]] 1528s [00:52:08.810] ...future.FUN(...future.X_jj, ...) 1528s [00:52:08.810] }) 1528s [00:52:08.810] } 1528s [00:52:08.810] }, args = future.call.arguments) 1528s [00:52:08.810] } 1528s [00:52:08.810] Lazy evaluation: FALSE 1528s [00:52:08.810] Asynchronous evaluation: FALSE 1528s [00:52:08.810] Local evaluation: TRUE 1528s [00:52:08.810] Environment: R_GlobalEnv 1528s [00:52:08.810] Capture standard output: TRUE 1528s [00:52:08.810] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1528s [00:52:08.810] Globals: 5 objects totaling 1.37 KiB (DotDotDotList ‘future.call.arguments’ of 0 bytes, function ‘...future.FUN’ of 848 bytes, list ‘...future.elements_ii’ of 496 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1528s [00:52:08.810] Packages: 1528s [00:52:08.810] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1528s [00:52:08.810] Resolved: TRUE 1528s [00:52:08.810] Value: 496 bytes of class ‘list’ 1528s [00:52:08.810] Early signaling: FALSE 1528s [00:52:08.810] Owner process: 856348fc-72a5-ec0b-63b7-1a3640a93e42 1528s [00:52:08.810] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1528s [00:52:08.812] Chunk #1 of 1 ... DONE 1528s [00:52:08.812] Launching 1 futures (chunks) ... DONE 1528s [00:52:08.812] Resolving 1 futures (chunks) ... 1528s [00:52:08.813] resolve() on list ... 1528s [00:52:08.813] recursive: 0 1528s [00:52:08.813] length: 1 1528s [00:52:08.813] 1528s [00:52:08.813] resolved() for ‘SequentialFuture’ ... 1528s [00:52:08.813] - state: ‘finished’ 1528s [00:52:08.813] - run: TRUE 1528s [00:52:08.814] - result: ‘FutureResult’ 1528s [00:52:08.814] resolved() for ‘SequentialFuture’ ... done 1528s [00:52:08.814] Future #1 1528s [00:52:08.815] signalConditionsASAP(SequentialFuture, pos=1) ... 1528s [00:52:08.815] - nx: 1 1528s [00:52:08.815] - relay: TRUE 1528s [00:52:08.815] - stdout: TRUE 1528s [00:52:08.815] - signal: TRUE 1528s [00:52:08.815] - resignal: FALSE 1528s [00:52:08.815] - force: TRUE 1528s [00:52:08.816] - relayed: [n=1] FALSE 1528s [00:52:08.816] - queued futures: [n=1] FALSE 1528s [00:52:08.816] - until=1 1528s [00:52:08.816] - relaying element #1 1528s [00:52:08.816] - relayed: [n=1] TRUE 1528s [00:52:08.816] - queued futures: [n=1] TRUE 1528s [00:52:08.817] signalConditionsASAP(SequentialFuture, pos=1) ... done 1528s [00:52:08.817] length: 0 (resolved future 1) 1528s [00:52:08.817] Relaying remaining futures 1528s [00:52:08.817] signalConditionsASAP(NULL, pos=0) ... 1528s [00:52:08.817] - nx: 1 1528s [00:52:08.817] - relay: TRUE 1528s [00:52:08.818] - stdout: TRUE 1528s [00:52:08.818] - signal: TRUE 1528s [00:52:08.818] - resignal: FALSE 1528s [00:52:08.818] - force: TRUE 1528s [00:52:08.818] - relayed: [n=1] TRUE 1528s [00:52:08.818] - queued futures: [n=1] TRUE 1528s - flush all 1528s [00:52:08.819] - relayed: [n=1] TRUE 1528s [00:52:08.819] - queued futures: [n=1] TRUE 1528s [00:52:08.819] signalConditionsASAP(NULL, pos=0) ... done 1528s [00:52:08.819] resolve() on list ... DONE 1528s [00:52:08.819] - Number of value chunks collected: 1 1528s [00:52:08.820] Resolving 1 futures (chunks) ... DONE 1528s [00:52:08.820] Reducing values from 1 chunks ... 1528s [00:52:08.820] - Number of values collected after concatenation: 2 1528s [00:52:08.820] - Number of values expected: 2 1528s [00:52:08.820] Reducing values from 1 chunks ... DONE 1528s [00:52:08.820] future_lapply() ... DONE 1528s [,1] [,2] 1528s [1,] 1 2 1528s [2,] 3 4 1528s [3,] 5 6 1528s [4,] 7 8 1528s [5,] 9 10 1528s [6,] 11 12 1528s - apply(X, ...) - not all same names ... 1528s [00:52:08.821] getGlobalsAndPackagesXApply() ... 1528s [00:52:08.821] - future.globals: TRUE 1528s [00:52:08.822] getGlobalsAndPackages() ... 1528s [00:52:08.823] Searching for globals... 1528s [00:52:08.826] - globals found: [10] ‘FUN’, ‘{’, ‘if’, ‘==’, ‘[’, ‘<-’, ‘names’, ‘names<-’, ‘letters’, ‘seq_along’ 1528s [00:52:08.827] Searching for globals ... DONE 1528s [00:52:08.827] Resolving globals: FALSE 1528s [00:52:08.828] The total size of the 1 globals is 9.66 KiB (9888 bytes) 1528s [00:52:08.828] The total size of the 1 globals exported for future expression (‘FUN(X = structure(1:4, dim = c(2L, 2L)))’) is 9.66 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (9.66 KiB of class ‘function’) 1528s [00:52:08.828] - globals: [1] ‘FUN’ 1528s [00:52:08.828] 1528s [00:52:08.829] getGlobalsAndPackages() ... DONE 1528s [00:52:08.829] - globals found/used: [n=1] ‘FUN’ 1528s [00:52:08.829] - needed namespaces: [n=0] 1528s [00:52:08.829] Finding globals ... DONE 1528s [00:52:08.829] - use_args: TRUE 1528s [00:52:08.829] - Getting '...' globals ... 1528s [00:52:08.830] resolve() on list ... 1528s [00:52:08.830] recursive: 0 1528s [00:52:08.830] length: 1 1528s [00:52:08.830] elements: ‘...’ 1528s [00:52:08.831] length: 0 (resolved future 1) 1528s [00:52:08.831] resolve() on list ... DONE 1528s [00:52:08.831] - '...' content: [n=0] 1528s [00:52:08.831] List of 1 1528s [00:52:08.831] $ ...: list() 1528s [00:52:08.831] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1528s [00:52:08.831] - attr(*, "where")=List of 1 1528s [00:52:08.831] ..$ ...: 1528s [00:52:08.831] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1528s [00:52:08.831] - attr(*, "resolved")= logi TRUE 1528s [00:52:08.831] - attr(*, "total_size")= num NA 1528s [00:52:08.835] - Getting '...' globals ... DONE 1528s [00:52:08.835] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1528s [00:52:08.835] List of 2 1528s [00:52:08.835] $ ...future.FUN:function (x) 1528s [00:52:08.835] $ ... : list() 1528s [00:52:08.835] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1528s [00:52:08.835] - attr(*, "where")=List of 2 1528s [00:52:08.835] ..$ ...future.FUN: 1528s [00:52:08.835] ..$ ... : 1528s [00:52:08.835] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1528s [00:52:08.835] - attr(*, "resolved")= logi FALSE 1528s [00:52:08.835] - attr(*, "total_size")= num 9888 1528s [00:52:08.839] Packages to be attached in all futures: [n=0] 1528s [00:52:08.839] getGlobalsAndPackagesXApply() ... DONE 1528s [00:52:08.839] future_lapply() ... 1528s [00:52:08.841] Number of chunks: 1 1528s [00:52:08.842] getGlobalsAndPackagesXApply() ... 1528s [00:52:08.842] - future.globals: with names ‘list()’ 1528s [00:52:08.842] - use_args: TRUE 1528s [00:52:08.842] Globals to be used in all futures (chunks): [n=2] ‘...’, ‘...future.FUN’ 1528s [00:52:08.842] List of 2 1528s [00:52:08.842] $ ... : list() 1528s [00:52:08.842] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1528s [00:52:08.842] $ ...future.FUN:function (x) 1528s [00:52:08.842] - attr(*, "where")=List of 2 1528s [00:52:08.842] ..$ ... : 1528s [00:52:08.842] ..$ ...future.FUN: 1528s [00:52:08.842] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1528s [00:52:08.842] - attr(*, "resolved")= logi FALSE 1528s [00:52:08.842] - attr(*, "total_size")= num NA 1528s [00:52:08.846] Packages to be attached in all futures: [n=0] 1528s [00:52:08.846] getGlobalsAndPackagesXApply() ... DONE 1528s [00:52:08.847] Number of futures (= number of chunks): 1 1528s [00:52:08.847] Launching 1 futures (chunks) ... 1528s [00:52:08.847] Chunk #1 of 1 ... 1528s [00:52:08.847] - seeds: 1528s [00:52:08.848] - All globals exported: [n=5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1528s [00:52:08.848] getGlobalsAndPackages() ... 1528s [00:52:08.848] - globals passed as-is: [5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1528s [00:52:08.848] Resolving globals: FALSE 1528s [00:52:08.848] Tweak future expression to call with '...' arguments ... 1528s [00:52:08.848] { 1528s [00:52:08.848] do.call(function(...) { 1528s [00:52:08.848] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1528s [00:52:08.848] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1528s [00:52:08.848] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1528s [00:52:08.848] on.exit(options(oopts), add = TRUE) 1528s [00:52:08.848] } 1528s [00:52:08.848] { 1528s [00:52:08.848] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1528s [00:52:08.848] ...future.X_jj <- ...future.elements_ii[[jj]] 1528s [00:52:08.848] ...future.FUN(...future.X_jj, ...) 1528s [00:52:08.848] }) 1528s [00:52:08.848] } 1528s [00:52:08.848] }, args = future.call.arguments) 1528s [00:52:08.848] } 1528s [00:52:08.849] Tweak future expression to call with '...' arguments ... DONE 1528s [00:52:08.849] - globals: [5] ‘future.call.arguments’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1528s [00:52:08.850] 1528s [00:52:08.850] getGlobalsAndPackages() ... DONE 1528s [00:52:08.850] run() for ‘Future’ ... 1528s [00:52:08.850] - state: ‘created’ 1528s [00:52:08.851] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1528s [00:52:08.851] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1528s [00:52:08.851] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1528s [00:52:08.851] - Field: ‘label’ 1528s [00:52:08.851] - Field: ‘local’ 1528s [00:52:08.851] - Field: ‘owner’ 1528s [00:52:08.851] - Field: ‘envir’ 1528s [00:52:08.852] - Field: ‘packages’ 1528s [00:52:08.852] - Field: ‘gc’ 1528s [00:52:08.852] - Field: ‘conditions’ 1528s [00:52:08.852] - Field: ‘expr’ 1528s [00:52:08.852] - Field: ‘uuid’ 1528s [00:52:08.852] - Field: ‘seed’ 1528s [00:52:08.852] - Field: ‘version’ 1528s [00:52:08.852] - Field: ‘result’ 1528s [00:52:08.853] - Field: ‘asynchronous’ 1528s [00:52:08.853] - Field: ‘calls’ 1528s [00:52:08.853] - Field: ‘globals’ 1528s [00:52:08.853] - Field: ‘stdout’ 1528s [00:52:08.853] - Field: ‘earlySignal’ 1528s [00:52:08.853] - Field: ‘lazy’ 1528s [00:52:08.853] - Field: ‘state’ 1528s [00:52:08.853] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1528s [00:52:08.853] - Launch lazy future ... 1528s [00:52:08.855] Packages needed by the future expression (n = 0): 1528s [00:52:08.856] Packages needed by future strategies (n = 0): 1528s [00:52:08.856] { 1528s [00:52:08.856] { 1528s [00:52:08.856] { 1528s [00:52:08.856] ...future.startTime <- base::Sys.time() 1528s [00:52:08.856] { 1528s [00:52:08.856] { 1528s [00:52:08.856] { 1528s [00:52:08.856] base::local({ 1528s [00:52:08.856] has_future <- base::requireNamespace("future", 1528s [00:52:08.856] quietly = TRUE) 1528s [00:52:08.856] if (has_future) { 1528s [00:52:08.856] ns <- base::getNamespace("future") 1528s [00:52:08.856] version <- ns[[".package"]][["version"]] 1528s [00:52:08.856] if (is.null(version)) 1528s [00:52:08.856] version <- utils::packageVersion("future") 1528s [00:52:08.856] } 1528s [00:52:08.856] else { 1528s [00:52:08.856] version <- NULL 1528s [00:52:08.856] } 1528s [00:52:08.856] if (!has_future || version < "1.8.0") { 1528s [00:52:08.856] info <- base::c(r_version = base::gsub("R version ", 1528s [00:52:08.856] "", base::R.version$version.string), 1528s [00:52:08.856] platform = base::sprintf("%s (%s-bit)", 1528s [00:52:08.856] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1528s [00:52:08.856] os = base::paste(base::Sys.info()[base::c("sysname", 1528s [00:52:08.856] "release", "version")], collapse = " "), 1528s [00:52:08.856] hostname = base::Sys.info()[["nodename"]]) 1528s [00:52:08.856] info <- base::sprintf("%s: %s", base::names(info), 1528s [00:52:08.856] info) 1528s [00:52:08.856] info <- base::paste(info, collapse = "; ") 1528s [00:52:08.856] if (!has_future) { 1528s [00:52:08.856] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1528s [00:52:08.856] info) 1528s [00:52:08.856] } 1528s [00:52:08.856] else { 1528s [00:52:08.856] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1528s [00:52:08.856] info, version) 1528s [00:52:08.856] } 1528s [00:52:08.856] base::stop(msg) 1528s [00:52:08.856] } 1528s [00:52:08.856] }) 1528s [00:52:08.856] } 1528s [00:52:08.856] options(future.plan = NULL) 1528s [00:52:08.856] Sys.unsetenv("R_FUTURE_PLAN") 1528s [00:52:08.856] future::plan("default", .cleanup = FALSE, .init = FALSE) 1528s [00:52:08.856] } 1528s [00:52:08.856] ...future.workdir <- getwd() 1528s [00:52:08.856] } 1528s [00:52:08.856] ...future.oldOptions <- base::as.list(base::.Options) 1528s [00:52:08.856] ...future.oldEnvVars <- base::Sys.getenv() 1528s [00:52:08.856] } 1528s [00:52:08.856] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1528s [00:52:08.856] future.globals.maxSize = Inf, future.globals.method = NULL, 1528s [00:52:08.856] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1528s [00:52:08.856] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1528s [00:52:08.856] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1528s [00:52:08.856] future.stdout.windows.reencode = NULL, width = 80L) 1528s [00:52:08.856] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1528s [00:52:08.856] base::names(...future.oldOptions)) 1528s [00:52:08.856] } 1528s [00:52:08.856] if (FALSE) { 1528s [00:52:08.856] } 1528s [00:52:08.856] else { 1528s [00:52:08.856] if (TRUE) { 1528s [00:52:08.856] ...future.stdout <- base::rawConnection(base::raw(0L), 1528s [00:52:08.856] open = "w") 1528s [00:52:08.856] } 1528s [00:52:08.856] else { 1528s [00:52:08.856] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1528s [00:52:08.856] windows = "NUL", "/dev/null"), open = "w") 1528s [00:52:08.856] } 1528s [00:52:08.856] base::sink(...future.stdout, type = "output", split = FALSE) 1528s [00:52:08.856] base::on.exit(if (!base::is.null(...future.stdout)) { 1528s [00:52:08.856] base::sink(type = "output", split = FALSE) 1528s [00:52:08.856] base::close(...future.stdout) 1528s [00:52:08.856] }, add = TRUE) 1528s [00:52:08.856] } 1528s [00:52:08.856] ...future.frame <- base::sys.nframe() 1528s [00:52:08.856] ...future.conditions <- base::list() 1528s [00:52:08.856] ...future.rng <- base::globalenv()$.Random.seed 1528s [00:52:08.856] if (FALSE) { 1528s [00:52:08.856] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1528s [00:52:08.856] "...future.value", "...future.globalenv.names", ".Random.seed") 1528s [00:52:08.856] } 1528s [00:52:08.856] ...future.result <- base::tryCatch({ 1528s [00:52:08.856] base::withCallingHandlers({ 1528s [00:52:08.856] ...future.value <- base::withVisible(base::local({ 1528s [00:52:08.856] do.call(function(...) { 1528s [00:52:08.856] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1528s [00:52:08.856] if (!identical(...future.globals.maxSize.org, 1528s [00:52:08.856] ...future.globals.maxSize)) { 1528s [00:52:08.856] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1528s [00:52:08.856] on.exit(options(oopts), add = TRUE) 1528s [00:52:08.856] } 1528s [00:52:08.856] { 1528s [00:52:08.856] lapply(seq_along(...future.elements_ii), 1528s [00:52:08.856] FUN = function(jj) { 1528s [00:52:08.856] ...future.X_jj <- ...future.elements_ii[[jj]] 1528s [00:52:08.856] ...future.FUN(...future.X_jj, ...) 1528s [00:52:08.856] }) 1528s [00:52:08.856] } 1528s [00:52:08.856] }, args = future.call.arguments) 1528s [00:52:08.856] })) 1528s [00:52:08.856] future::FutureResult(value = ...future.value$value, 1528s [00:52:08.856] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1528s [00:52:08.856] ...future.rng), globalenv = if (FALSE) 1528s [00:52:08.856] list(added = base::setdiff(base::names(base::.GlobalEnv), 1528s [00:52:08.856] ...future.globalenv.names)) 1528s [00:52:08.856] else NULL, started = ...future.startTime, version = "1.8") 1528s [00:52:08.856] }, condition = base::local({ 1528s [00:52:08.856] c <- base::c 1528s [00:52:08.856] inherits <- base::inherits 1528s [00:52:08.856] invokeRestart <- base::invokeRestart 1528s [00:52:08.856] length <- base::length 1528s [00:52:08.856] list <- base::list 1528s [00:52:08.856] seq.int <- base::seq.int 1528s [00:52:08.856] signalCondition <- base::signalCondition 1528s [00:52:08.856] sys.calls <- base::sys.calls 1528s [00:52:08.856] `[[` <- base::`[[` 1528s [00:52:08.856] `+` <- base::`+` 1528s [00:52:08.856] `<<-` <- base::`<<-` 1528s [00:52:08.856] sysCalls <- function(calls = sys.calls(), from = 1L) { 1528s [00:52:08.856] calls[seq.int(from = from + 12L, to = length(calls) - 1528s [00:52:08.856] 3L)] 1528s [00:52:08.856] } 1528s [00:52:08.856] function(cond) { 1528s [00:52:08.856] is_error <- inherits(cond, "error") 1528s [00:52:08.856] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1528s [00:52:08.856] NULL) 1528s [00:52:08.856] if (is_error) { 1528s [00:52:08.856] sessionInformation <- function() { 1528s [00:52:08.856] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1528s [00:52:08.856] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1528s [00:52:08.856] search = base::search(), system = base::Sys.info()) 1528s [00:52:08.856] } 1528s [00:52:08.856] ...future.conditions[[length(...future.conditions) + 1528s [00:52:08.856] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1528s [00:52:08.856] cond$call), session = sessionInformation(), 1528s [00:52:08.856] timestamp = base::Sys.time(), signaled = 0L) 1528s [00:52:08.856] signalCondition(cond) 1528s [00:52:08.856] } 1528s [00:52:08.856] else if (!ignore && TRUE && inherits(cond, c("condition", 1528s [00:52:08.856] "immediateCondition"))) { 1528s [00:52:08.856] signal <- TRUE && inherits(cond, "immediateCondition") 1528s [00:52:08.856] ...future.conditions[[length(...future.conditions) + 1528s [00:52:08.856] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1528s [00:52:08.856] if (TRUE && !signal) { 1528s [00:52:08.856] muffleCondition <- function (cond, pattern = "^muffle") 1528s [00:52:08.856] { 1528s [00:52:08.856] inherits <- base::inherits 1528s [00:52:08.856] invokeRestart <- base::invokeRestart 1528s [00:52:08.856] is.null <- base::is.null 1528s [00:52:08.856] muffled <- FALSE 1528s [00:52:08.856] if (inherits(cond, "message")) { 1528s [00:52:08.856] muffled <- grepl(pattern, "muffleMessage") 1528s [00:52:08.856] if (muffled) 1528s [00:52:08.856] invokeRestart("muffleMessage") 1528s [00:52:08.856] } 1528s [00:52:08.856] else if (inherits(cond, "warning")) { 1528s [00:52:08.856] muffled <- grepl(pattern, "muffleWarning") 1528s [00:52:08.856] if (muffled) 1528s [00:52:08.856] invokeRestart("muffleWarning") 1528s [00:52:08.856] } 1528s [00:52:08.856] else if (inherits(cond, "condition")) { 1528s [00:52:08.856] if (!is.null(pattern)) { 1528s [00:52:08.856] computeRestarts <- base::computeRestarts 1528s [00:52:08.856] grepl <- base::grepl 1528s [00:52:08.856] restarts <- computeRestarts(cond) 1528s [00:52:08.856] for (restart in restarts) { 1528s [00:52:08.856] name <- restart$name 1528s [00:52:08.856] if (is.null(name)) 1528s [00:52:08.856] next 1528s [00:52:08.856] if (!grepl(pattern, name)) 1528s [00:52:08.856] next 1528s [00:52:08.856] invokeRestart(restart) 1528s [00:52:08.856] muffled <- TRUE 1528s [00:52:08.856] break 1528s [00:52:08.856] } 1528s [00:52:08.856] } 1528s [00:52:08.856] } 1528s [00:52:08.856] invisible(muffled) 1528s [00:52:08.856] } 1528s [00:52:08.856] muffleCondition(cond, pattern = "^muffle") 1528s [00:52:08.856] } 1528s [00:52:08.856] } 1528s [00:52:08.856] else { 1528s [00:52:08.856] if (TRUE) { 1528s [00:52:08.856] muffleCondition <- function (cond, pattern = "^muffle") 1528s [00:52:08.856] { 1528s [00:52:08.856] inherits <- base::inherits 1528s [00:52:08.856] invokeRestart <- base::invokeRestart 1528s [00:52:08.856] is.null <- base::is.null 1528s [00:52:08.856] muffled <- FALSE 1528s [00:52:08.856] if (inherits(cond, "message")) { 1528s [00:52:08.856] muffled <- grepl(pattern, "muffleMessage") 1528s [00:52:08.856] if (muffled) 1528s [00:52:08.856] invokeRestart("muffleMessage") 1528s [00:52:08.856] } 1528s [00:52:08.856] else if (inherits(cond, "warning")) { 1528s [00:52:08.856] muffled <- grepl(pattern, "muffleWarning") 1528s [00:52:08.856] if (muffled) 1528s [00:52:08.856] invokeRestart("muffleWarning") 1528s [00:52:08.856] } 1528s [00:52:08.856] else if (inherits(cond, "condition")) { 1528s [00:52:08.856] if (!is.null(pattern)) { 1528s [00:52:08.856] computeRestarts <- base::computeRestarts 1528s [00:52:08.856] grepl <- base::grepl 1528s [00:52:08.856] restarts <- computeRestarts(cond) 1528s [00:52:08.856] for (restart in restarts) { 1528s [00:52:08.856] name <- restart$name 1528s [00:52:08.856] if (is.null(name)) 1528s [00:52:08.856] next 1528s [00:52:08.856] if (!grepl(pattern, name)) 1528s [00:52:08.856] next 1528s [00:52:08.856] invokeRestart(restart) 1528s [00:52:08.856] muffled <- TRUE 1528s [00:52:08.856] break 1528s [00:52:08.856] } 1528s [00:52:08.856] } 1528s [00:52:08.856] } 1528s [00:52:08.856] invisible(muffled) 1528s [00:52:08.856] } 1528s [00:52:08.856] muffleCondition(cond, pattern = "^muffle") 1528s [00:52:08.856] } 1528s [00:52:08.856] } 1528s [00:52:08.856] } 1528s [00:52:08.856] })) 1528s [00:52:08.856] }, error = function(ex) { 1528s [00:52:08.856] base::structure(base::list(value = NULL, visible = NULL, 1528s [00:52:08.856] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1528s [00:52:08.856] ...future.rng), started = ...future.startTime, 1528s [00:52:08.856] finished = Sys.time(), session_uuid = NA_character_, 1528s [00:52:08.856] version = "1.8"), class = "FutureResult") 1528s [00:52:08.856] }, finally = { 1528s [00:52:08.856] if (!identical(...future.workdir, getwd())) 1528s [00:52:08.856] setwd(...future.workdir) 1528s [00:52:08.856] { 1528s [00:52:08.856] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1528s [00:52:08.856] ...future.oldOptions$nwarnings <- NULL 1528s [00:52:08.856] } 1528s [00:52:08.856] base::options(...future.oldOptions) 1528s [00:52:08.856] if (.Platform$OS.type == "windows") { 1528s [00:52:08.856] old_names <- names(...future.oldEnvVars) 1528s [00:52:08.856] envs <- base::Sys.getenv() 1528s [00:52:08.856] names <- names(envs) 1528s [00:52:08.856] common <- intersect(names, old_names) 1528s [00:52:08.856] added <- setdiff(names, old_names) 1528s [00:52:08.856] removed <- setdiff(old_names, names) 1528s [00:52:08.856] changed <- common[...future.oldEnvVars[common] != 1528s [00:52:08.856] envs[common]] 1528s [00:52:08.856] NAMES <- toupper(changed) 1528s [00:52:08.856] args <- list() 1528s [00:52:08.856] for (kk in seq_along(NAMES)) { 1528s [00:52:08.856] name <- changed[[kk]] 1528s [00:52:08.856] NAME <- NAMES[[kk]] 1528s [00:52:08.856] if (name != NAME && is.element(NAME, old_names)) 1528s [00:52:08.856] next 1528s [00:52:08.856] args[[name]] <- ...future.oldEnvVars[[name]] 1528s [00:52:08.856] } 1528s [00:52:08.856] NAMES <- toupper(added) 1528s [00:52:08.856] for (kk in seq_along(NAMES)) { 1528s [00:52:08.856] name <- added[[kk]] 1528s [00:52:08.856] NAME <- NAMES[[kk]] 1528s [00:52:08.856] if (name != NAME && is.element(NAME, old_names)) 1528s [00:52:08.856] next 1528s [00:52:08.856] args[[name]] <- "" 1528s [00:52:08.856] } 1528s [00:52:08.856] NAMES <- toupper(removed) 1528s [00:52:08.856] for (kk in seq_along(NAMES)) { 1528s [00:52:08.856] name <- removed[[kk]] 1528s [00:52:08.856] NAME <- NAMES[[kk]] 1528s [00:52:08.856] if (name != NAME && is.element(NAME, old_names)) 1528s [00:52:08.856] next 1528s [00:52:08.856] args[[name]] <- ...future.oldEnvVars[[name]] 1528s [00:52:08.856] } 1528s [00:52:08.856] if (length(args) > 0) 1528s [00:52:08.856] base::do.call(base::Sys.setenv, args = args) 1528s [00:52:08.856] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1528s [00:52:08.856] } 1528s [00:52:08.856] else { 1528s [00:52:08.856] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1528s [00:52:08.856] } 1528s [00:52:08.856] { 1528s [00:52:08.856] if (base::length(...future.futureOptionsAdded) > 1528s [00:52:08.856] 0L) { 1528s [00:52:08.856] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1528s [00:52:08.856] base::names(opts) <- ...future.futureOptionsAdded 1528s [00:52:08.856] base::options(opts) 1528s [00:52:08.856] } 1528s [00:52:08.856] { 1528s [00:52:08.856] { 1528s [00:52:08.856] NULL 1528s [00:52:08.856] RNGkind("Mersenne-Twister") 1528s [00:52:08.856] base::rm(list = ".Random.seed", envir = base::globalenv(), 1528s [00:52:08.856] inherits = FALSE) 1528s [00:52:08.856] } 1528s [00:52:08.856] options(future.plan = NULL) 1528s [00:52:08.856] if (is.na(NA_character_)) 1528s [00:52:08.856] Sys.unsetenv("R_FUTURE_PLAN") 1528s [00:52:08.856] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1528s [00:52:08.856] future::plan(list(function (..., envir = parent.frame()) 1528s [00:52:08.856] { 1528s [00:52:08.856] future <- SequentialFuture(..., envir = envir) 1528s [00:52:08.856] if (!future$lazy) 1528s [00:52:08.856] future <- run(future) 1528s [00:52:08.856] invisible(future) 1528s [00:52:08.856] }), .cleanup = FALSE, .init = FALSE) 1528s [00:52:08.856] } 1528s [00:52:08.856] } 1528s [00:52:08.856] } 1528s [00:52:08.856] }) 1528s [00:52:08.856] if (TRUE) { 1528s [00:52:08.856] base::sink(type = "output", split = FALSE) 1528s [00:52:08.856] if (TRUE) { 1528s [00:52:08.856] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1528s [00:52:08.856] } 1528s [00:52:08.856] else { 1528s [00:52:08.856] ...future.result["stdout"] <- base::list(NULL) 1528s [00:52:08.856] } 1528s [00:52:08.856] base::close(...future.stdout) 1528s [00:52:08.856] ...future.stdout <- NULL 1528s [00:52:08.856] } 1528s [00:52:08.856] ...future.result$conditions <- ...future.conditions 1528s [00:52:08.856] ...future.result$finished <- base::Sys.time() 1528s [00:52:08.856] ...future.result 1528s [00:52:08.856] } 1528s [00:52:08.859] assign_globals() ... 1528s [00:52:08.859] List of 5 1528s [00:52:08.859] $ future.call.arguments : list() 1528s [00:52:08.859] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1528s [00:52:08.859] $ ...future.FUN :function (x) 1528s [00:52:08.859] $ ...future.elements_ii :List of 2 1528s [00:52:08.859] ..$ : int [1:2] 1 3 1528s [00:52:08.859] ..$ : int [1:2] 2 4 1528s [00:52:08.859] $ ...future.seeds_ii : NULL 1528s [00:52:08.859] $ ...future.globals.maxSize: num Inf 1528s [00:52:08.859] - attr(*, "resolved")= logi FALSE 1528s [00:52:08.859] - attr(*, "total_size")= num NA 1528s [00:52:08.859] - attr(*, "where")=List of 5 1528s [00:52:08.859] ..$ future.call.arguments : 1528s [00:52:08.859] ..$ ...future.FUN : 1528s [00:52:08.859] ..$ ...future.elements_ii : 1528s [00:52:08.859] ..$ ...future.seeds_ii : 1528s [00:52:08.859] ..$ ...future.globals.maxSize: 1528s [00:52:08.859] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1528s [00:52:08.859] - attr(*, "already-done")= logi TRUE 1528s [00:52:08.866] - copied ‘future.call.arguments’ to environment 1528s [00:52:08.866] - reassign environment for ‘...future.FUN’ 1528s [00:52:08.866] - copied ‘...future.FUN’ to environment 1528s [00:52:08.866] - copied ‘...future.elements_ii’ to environment 1528s [00:52:08.866] - copied ‘...future.seeds_ii’ to environment 1528s [00:52:08.867] - copied ‘...future.globals.maxSize’ to environment 1528s [00:52:08.867] assign_globals() ... done 1528s [00:52:08.867] plan(): Setting new future strategy stack: 1528s [00:52:08.867] List of future strategies: 1528s [00:52:08.867] 1. sequential: 1528s [00:52:08.867] - args: function (..., envir = parent.frame()) 1528s [00:52:08.867] - tweaked: FALSE 1528s [00:52:08.867] - call: NULL 1528s [00:52:08.868] plan(): nbrOfWorkers() = 1 1528s [00:52:08.869] plan(): Setting new future strategy stack: 1528s [00:52:08.869] List of future strategies: 1528s [00:52:08.869] 1. sequential: 1528s [00:52:08.869] - args: function (..., envir = parent.frame()) 1528s [00:52:08.869] - tweaked: FALSE 1528s [00:52:08.869] - call: plan(strategy) 1528s [00:52:08.869] plan(): nbrOfWorkers() = 1 1528s [00:52:08.870] SequentialFuture started (and completed) 1528s [00:52:08.870] - Launch lazy future ... done 1528s [00:52:08.870] run() for ‘SequentialFuture’ ... done 1528s [00:52:08.870] Created future: 1528s [00:52:08.870] SequentialFuture: 1528s [00:52:08.870] Label: ‘future_apply-1’ 1528s [00:52:08.870] Expression: 1528s [00:52:08.870] { 1528s [00:52:08.870] do.call(function(...) { 1528s [00:52:08.870] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1528s [00:52:08.870] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1528s [00:52:08.870] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1528s [00:52:08.870] on.exit(options(oopts), add = TRUE) 1528s [00:52:08.870] } 1528s [00:52:08.870] { 1528s [00:52:08.870] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1528s [00:52:08.870] ...future.X_jj <- ...future.elements_ii[[jj]] 1528s [00:52:08.870] ...future.FUN(...future.X_jj, ...) 1528s [00:52:08.870] }) 1528s [00:52:08.870] } 1528s [00:52:08.870] }, args = future.call.arguments) 1528s [00:52:08.870] } 1528s [00:52:08.870] Lazy evaluation: FALSE 1528s [00:52:08.870] Asynchronous evaluation: FALSE 1528s [00:52:08.870] Local evaluation: TRUE 1528s [00:52:08.870] Environment: R_GlobalEnv 1528s [00:52:08.870] Capture standard output: TRUE 1528s [00:52:08.870] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1528s [00:52:08.870] Globals: 5 objects totaling 9.82 KiB (DotDotDotList ‘future.call.arguments’ of 0 bytes, function ‘...future.FUN’ of 9.66 KiB, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1528s [00:52:08.870] Packages: 1528s [00:52:08.870] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1528s [00:52:08.870] Resolved: TRUE 1528s [00:52:08.870] Value: 400 bytes of class ‘list’ 1528s [00:52:08.870] Early signaling: FALSE 1528s [00:52:08.870] Owner process: 856348fc-72a5-ec0b-63b7-1a3640a93e42 1528s [00:52:08.870] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1528s [00:52:08.872] Chunk #1 of 1 ... DONE 1528s [00:52:08.872] Launching 1 futures (chunks) ... DONE 1528s [00:52:08.872] Resolving 1 futures (chunks) ... 1528s [00:52:08.872] resolve() on list ... 1528s [00:52:08.873] recursive: 0 1528s [00:52:08.873] length: 1 1528s [00:52:08.873] 1528s [00:52:08.873] resolved() for ‘SequentialFuture’ ... 1528s [00:52:08.873] - state: ‘finished’ 1528s [00:52:08.873] - run: TRUE 1528s [00:52:08.873] - result: ‘FutureResult’ 1528s [00:52:08.874] resolved() for ‘SequentialFuture’ ... done 1528s [00:52:08.874] Future #1 1528s [00:52:08.874] signalConditionsASAP(SequentialFuture, pos=1) ... 1528s [00:52:08.874] - nx: 1 1528s [00:52:08.874] - relay: TRUE 1528s [00:52:08.874] - stdout: TRUE 1528s [00:52:08.874] - signal: TRUE 1528s [00:52:08.875] - resignal: FALSE 1528s [00:52:08.875] - force: TRUE 1528s [00:52:08.875] - relayed: [n=1] FALSE 1528s [00:52:08.875] - queued futures: [n=1] FALSE 1528s [00:52:08.875] - until=1 1528s [00:52:08.875] - relaying element #1 1528s [00:52:08.876] - relayed: [n=1] TRUE 1528s [00:52:08.876] - queued futures: [n=1] TRUE 1528s [00:52:08.876] signalConditionsASAP(SequentialFuture, pos=1) ... done 1528s [00:52:08.876] length: 0 (resolved future 1) 1528s [00:52:08.876] Relaying remaining futures 1528s [00:52:08.876] signalConditionsASAP(NULL, pos=0) ... 1528s [00:52:08.876] - nx: 1 1528s [00:52:08.876] - relay: TRUE 1528s [00:52:08.877] - stdout: TRUE 1528s [00:52:08.877] - signal: TRUE 1528s [00:52:08.877] - resignal: FALSE 1528s [00:52:08.877] - force: TRUE 1528s [00:52:08.877] - relayed: [n=1] TRUE 1528s [00:52:08.877] - queued futures: [n=1] TRUE 1528s - flush all 1528s [00:52:08.878] - relayed: [n=1] TRUE 1528s [00:52:08.878] - queued futures: [n=1] TRUE 1528s [00:52:08.878] signalConditionsASAP(NULL, pos=0) ... done 1528s [00:52:08.878] resolve() on list ... DONE 1528s [00:52:08.878] - Number of value chunks collected: 1 1528s [00:52:08.878] Resolving 1 futures (chunks) ... DONE 1528s [00:52:08.878] Reducing values from 1 chunks ... 1528s [00:52:08.879] - Number of values collected after concatenation: 2 1528s [00:52:08.879] - Number of values expected: 2 1528s [00:52:08.879] Reducing values from 1 chunks ... DONE 1528s [,1] [,2] 1528s [1,][00:52:08.879] future_lapply() ... DONE 1528s 1 2 1528s [2,] 3 4 1528s - example(future_apply) - reproducible RNG ... 1528s [00:52:08.880] getGlobalsAndPackagesXApply() ... 1528s [00:52:08.880] - future.globals: TRUE 1528s [00:52:08.880] getGlobalsAndPackages() ... 1528s [00:52:08.881] Searching for globals... 1528s [00:52:08.885] - globals found: [13] ‘FUN’, ‘{’, ‘if’, ‘&&’, ‘==’, ‘length’, ‘is.numeric’, ‘is.finite’, ‘>=’, ‘missing’, ‘<-’, ‘sample.int’, ‘[’ 1528s [00:52:08.885] Searching for globals ... DONE 1528s [00:52:08.885] Resolving globals: FALSE 1528s [00:52:08.886] The total size of the 1 globals is 35.45 KiB (36296 bytes) 1528s [00:52:08.886] The total size of the 1 globals exported for future expression (‘FUN(X = structure(1:4, dim = c(2L, 2L)))’) is 35.45 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (35.45 KiB of class ‘function’) 1528s [00:52:08.887] - globals: [1] ‘FUN’ 1528s [00:52:08.887] 1528s [00:52:08.887] getGlobalsAndPackages() ... DONE 1528s [00:52:08.887] - globals found/used: [n=1] ‘FUN’ 1528s [00:52:08.887] - needed namespaces: [n=0] 1528s [00:52:08.887] Finding globals ... DONE 1528s [00:52:08.887] - use_args: TRUE 1528s [00:52:08.888] - Getting '...' globals ... 1528s [00:52:08.888] resolve() on list ... 1528s [00:52:08.888] recursive: 0 1528s [00:52:08.888] length: 1 1528s [00:52:08.888] elements: ‘...’ 1528s [00:52:08.888] length: 0 (resolved future 1) 1528s [00:52:08.889] resolve() on list ... DONE 1528s [00:52:08.889] - '...' content: [n=0] 1528s [00:52:08.889] List of 1 1528s [00:52:08.889] $ ...: list() 1528s [00:52:08.889] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1528s [00:52:08.889] - attr(*, "where")=List of 1 1528s [00:52:08.889] ..$ ...: 1528s [00:52:08.889] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1528s [00:52:08.889] - attr(*, "resolved")= logi TRUE 1528s [00:52:08.889] - attr(*, "total_size")= num NA 1528s [00:52:08.894] - Getting '...' globals ... DONE 1528s [00:52:08.894] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1528s [00:52:08.895] List of 2 1528s [00:52:08.895] $ ...future.FUN:function (x, size, replace = FALSE, prob = NULL) 1528s [00:52:08.895] $ ... : list() 1528s [00:52:08.895] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1528s [00:52:08.895] - attr(*, "where")=List of 2 1528s [00:52:08.895] ..$ ...future.FUN: 1528s [00:52:08.895] ..$ ... : 1528s [00:52:08.895] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1528s [00:52:08.895] - attr(*, "resolved")= logi FALSE 1528s [00:52:08.895] - attr(*, "total_size")= num 36296 1528s [00:52:08.898] Packages to be attached in all futures: [n=0] 1528s [00:52:08.898] getGlobalsAndPackagesXApply() ... DONE 1528s [00:52:08.898] future_lapply() ... 1528s [00:52:08.901] Generating random seeds ... 1528s [00:52:08.902] Generating random seed streams for 2 elements ... 1528s [00:52:08.902] Generating random seed streams for 2 elements ... DONE 1528s [00:52:08.902] Generating random seeds ... DONE 1528s [00:52:08.903] Will set RNG state on exit: 10407, -235817339, -918112653, 1726940932, 2039504800, -2077827493, -666439689 1528s [00:52:08.903] Number of chunks: 1 1528s [00:52:08.903] getGlobalsAndPackagesXApply() ... 1528s [00:52:08.903] - future.globals: with names ‘list()’ 1528s [00:52:08.904] - use_args: TRUE 1528s [00:52:08.904] Globals to be used in all futures (chunks): [n=2] ‘...’, ‘...future.FUN’ 1528s [00:52:08.904] List of 2 1528s [00:52:08.904] $ ... : list() 1528s [00:52:08.904] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1528s [00:52:08.904] $ ...future.FUN:function (x, size, replace = FALSE, prob = NULL) 1528s [00:52:08.904] - attr(*, "where")=List of 2 1528s [00:52:08.904] ..$ ... : 1528s [00:52:08.904] ..$ ...future.FUN: 1528s [00:52:08.904] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1528s [00:52:08.904] - attr(*, "resolved")= logi FALSE 1528s [00:52:08.904] - attr(*, "total_size")= num NA 1528s [00:52:08.909] Packages to be attached in all futures: [n=0] 1528s [00:52:08.909] getGlobalsAndPackagesXApply() ... DONE 1528s [00:52:08.909] Number of futures (= number of chunks): 1 1528s [00:52:08.909] Launching 1 futures (chunks) ... 1528s [00:52:08.909] Chunk #1 of 1 ... 1528s [00:52:08.909] - seeds: [2] 1528s [00:52:08.909] - All globals exported: [n=5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1528s [00:52:08.910] getGlobalsAndPackages() ... 1528s [00:52:08.910] - globals passed as-is: [5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1528s [00:52:08.910] Resolving globals: FALSE 1528s [00:52:08.910] Tweak future expression to call with '...' arguments ... 1528s [00:52:08.910] { 1528s [00:52:08.910] do.call(function(...) { 1528s [00:52:08.910] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1528s [00:52:08.910] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1528s [00:52:08.910] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1528s [00:52:08.910] on.exit(options(oopts), add = TRUE) 1528s [00:52:08.910] } 1528s [00:52:08.910] { 1528s [00:52:08.910] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1528s [00:52:08.910] ...future.X_jj <- ...future.elements_ii[[jj]] 1528s [00:52:08.910] assign(".Random.seed", ...future.seeds_ii[[jj]], 1528s [00:52:08.910] envir = globalenv(), inherits = FALSE) 1528s [00:52:08.910] ...future.FUN(...future.X_jj, ...) 1528s [00:52:08.910] }) 1528s [00:52:08.910] } 1528s [00:52:08.910] }, args = future.call.arguments) 1528s [00:52:08.910] } 1528s [00:52:08.911] Tweak future expression to call with '...' arguments ... DONE 1528s [00:52:08.911] - globals: [5] ‘future.call.arguments’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1528s [00:52:08.911] 1528s [00:52:08.912] getGlobalsAndPackages() ... DONE 1528s [00:52:08.912] run() for ‘Future’ ... 1528s [00:52:08.912] - state: ‘created’ 1528s [00:52:08.913] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1528s [00:52:08.913] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1528s [00:52:08.913] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1528s [00:52:08.914] - Field: ‘label’ 1528s [00:52:08.914] - Field: ‘local’ 1528s [00:52:08.914] - Field: ‘owner’ 1528s [00:52:08.914] - Field: ‘envir’ 1528s [00:52:08.914] - Field: ‘packages’ 1528s [00:52:08.914] - Field: ‘gc’ 1528s [00:52:08.915] - Field: ‘conditions’ 1528s [00:52:08.915] - Field: ‘expr’ 1528s [00:52:08.915] - Field: ‘uuid’ 1528s [00:52:08.915] - Field: ‘seed’ 1528s [00:52:08.915] - Field: ‘version’ 1528s [00:52:08.915] - Field: ‘result’ 1528s [00:52:08.915] - Field: ‘asynchronous’ 1528s [00:52:08.916] - Field: ‘calls’ 1528s [00:52:08.916] - Field: ‘globals’ 1528s [00:52:08.916] - Field: ‘stdout’ 1528s [00:52:08.916] - Field: ‘earlySignal’ 1528s [00:52:08.916] - Field: ‘lazy’ 1528s [00:52:08.916] - Field: ‘state’ 1528s [00:52:08.916] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1528s [00:52:08.917] - Launch lazy future ... 1528s [00:52:08.917] Packages needed by the future expression (n = 0): 1528s [00:52:08.917] Packages needed by future strategies (n = 0): 1528s [00:52:08.918] { 1528s [00:52:08.918] { 1528s [00:52:08.918] { 1528s [00:52:08.918] ...future.startTime <- base::Sys.time() 1528s [00:52:08.918] { 1528s [00:52:08.918] { 1528s [00:52:08.918] { 1528s [00:52:08.918] base::local({ 1528s [00:52:08.918] has_future <- base::requireNamespace("future", 1528s [00:52:08.918] quietly = TRUE) 1528s [00:52:08.918] if (has_future) { 1528s [00:52:08.918] ns <- base::getNamespace("future") 1528s [00:52:08.918] version <- ns[[".package"]][["version"]] 1528s [00:52:08.918] if (is.null(version)) 1528s [00:52:08.918] version <- utils::packageVersion("future") 1528s [00:52:08.918] } 1528s [00:52:08.918] else { 1528s [00:52:08.918] version <- NULL 1528s [00:52:08.918] } 1528s [00:52:08.918] if (!has_future || version < "1.8.0") { 1528s [00:52:08.918] info <- base::c(r_version = base::gsub("R version ", 1528s [00:52:08.918] "", base::R.version$version.string), 1528s [00:52:08.918] platform = base::sprintf("%s (%s-bit)", 1528s [00:52:08.918] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1528s [00:52:08.918] os = base::paste(base::Sys.info()[base::c("sysname", 1528s [00:52:08.918] "release", "version")], collapse = " "), 1528s [00:52:08.918] hostname = base::Sys.info()[["nodename"]]) 1528s [00:52:08.918] info <- base::sprintf("%s: %s", base::names(info), 1528s [00:52:08.918] info) 1528s [00:52:08.918] info <- base::paste(info, collapse = "; ") 1528s [00:52:08.918] if (!has_future) { 1528s [00:52:08.918] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1528s [00:52:08.918] info) 1528s [00:52:08.918] } 1528s [00:52:08.918] else { 1528s [00:52:08.918] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1528s [00:52:08.918] info, version) 1528s [00:52:08.918] } 1528s [00:52:08.918] base::stop(msg) 1528s [00:52:08.918] } 1528s [00:52:08.918] }) 1528s [00:52:08.918] } 1528s [00:52:08.918] options(future.plan = NULL) 1528s [00:52:08.918] Sys.unsetenv("R_FUTURE_PLAN") 1528s [00:52:08.918] future::plan("default", .cleanup = FALSE, .init = FALSE) 1528s [00:52:08.918] } 1528s [00:52:08.918] ...future.workdir <- getwd() 1528s [00:52:08.918] } 1528s [00:52:08.918] ...future.oldOptions <- base::as.list(base::.Options) 1528s [00:52:08.918] ...future.oldEnvVars <- base::Sys.getenv() 1528s [00:52:08.918] } 1528s [00:52:08.918] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1528s [00:52:08.918] future.globals.maxSize = Inf, future.globals.method = NULL, 1528s [00:52:08.918] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1528s [00:52:08.918] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1528s [00:52:08.918] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1528s [00:52:08.918] future.stdout.windows.reencode = NULL, width = 80L) 1528s [00:52:08.918] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1528s [00:52:08.918] base::names(...future.oldOptions)) 1528s [00:52:08.918] } 1528s [00:52:08.918] if (FALSE) { 1528s [00:52:08.918] } 1528s [00:52:08.918] else { 1528s [00:52:08.918] if (TRUE) { 1528s [00:52:08.918] ...future.stdout <- base::rawConnection(base::raw(0L), 1528s [00:52:08.918] open = "w") 1528s [00:52:08.918] } 1528s [00:52:08.918] else { 1528s [00:52:08.918] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1528s [00:52:08.918] windows = "NUL", "/dev/null"), open = "w") 1528s [00:52:08.918] } 1528s [00:52:08.918] base::sink(...future.stdout, type = "output", split = FALSE) 1528s [00:52:08.918] base::on.exit(if (!base::is.null(...future.stdout)) { 1528s [00:52:08.918] base::sink(type = "output", split = FALSE) 1528s [00:52:08.918] base::close(...future.stdout) 1528s [00:52:08.918] }, add = TRUE) 1528s [00:52:08.918] } 1528s [00:52:08.918] ...future.frame <- base::sys.nframe() 1528s [00:52:08.918] ...future.conditions <- base::list() 1528s [00:52:08.918] ...future.rng <- base::globalenv()$.Random.seed 1528s [00:52:08.918] if (FALSE) { 1528s [00:52:08.918] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1528s [00:52:08.918] "...future.value", "...future.globalenv.names", ".Random.seed") 1528s [00:52:08.918] } 1528s [00:52:08.918] ...future.result <- base::tryCatch({ 1528s [00:52:08.918] base::withCallingHandlers({ 1528s [00:52:08.918] ...future.value <- base::withVisible(base::local({ 1528s [00:52:08.918] do.call(function(...) { 1528s [00:52:08.918] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1528s [00:52:08.918] if (!identical(...future.globals.maxSize.org, 1528s [00:52:08.918] ...future.globals.maxSize)) { 1528s [00:52:08.918] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1528s [00:52:08.918] on.exit(options(oopts), add = TRUE) 1528s [00:52:08.918] } 1528s [00:52:08.918] { 1528s [00:52:08.918] lapply(seq_along(...future.elements_ii), 1528s [00:52:08.918] FUN = function(jj) { 1528s [00:52:08.918] ...future.X_jj <- ...future.elements_ii[[jj]] 1528s [00:52:08.918] assign(".Random.seed", ...future.seeds_ii[[jj]], 1528s [00:52:08.918] envir = globalenv(), inherits = FALSE) 1528s [00:52:08.918] ...future.FUN(...future.X_jj, ...) 1528s [00:52:08.918] }) 1528s [00:52:08.918] } 1528s [00:52:08.918] }, args = future.call.arguments) 1528s [00:52:08.918] })) 1528s [00:52:08.918] future::FutureResult(value = ...future.value$value, 1528s [00:52:08.918] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1528s [00:52:08.918] ...future.rng), globalenv = if (FALSE) 1528s [00:52:08.918] list(added = base::setdiff(base::names(base::.GlobalEnv), 1528s [00:52:08.918] ...future.globalenv.names)) 1528s [00:52:08.918] else NULL, started = ...future.startTime, version = "1.8") 1528s [00:52:08.918] }, condition = base::local({ 1528s [00:52:08.918] c <- base::c 1528s [00:52:08.918] inherits <- base::inherits 1528s [00:52:08.918] invokeRestart <- base::invokeRestart 1528s [00:52:08.918] length <- base::length 1528s [00:52:08.918] list <- base::list 1528s [00:52:08.918] seq.int <- base::seq.int 1528s [00:52:08.918] signalCondition <- base::signalCondition 1528s [00:52:08.918] sys.calls <- base::sys.calls 1528s [00:52:08.918] `[[` <- base::`[[` 1528s [00:52:08.918] `+` <- base::`+` 1528s [00:52:08.918] `<<-` <- base::`<<-` 1528s [00:52:08.918] sysCalls <- function(calls = sys.calls(), from = 1L) { 1528s [00:52:08.918] calls[seq.int(from = from + 12L, to = length(calls) - 1528s [00:52:08.918] 3L)] 1528s [00:52:08.918] } 1528s [00:52:08.918] function(cond) { 1528s [00:52:08.918] is_error <- inherits(cond, "error") 1528s [00:52:08.918] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1528s [00:52:08.918] NULL) 1528s [00:52:08.918] if (is_error) { 1528s [00:52:08.918] sessionInformation <- function() { 1528s [00:52:08.918] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1528s [00:52:08.918] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1528s [00:52:08.918] search = base::search(), system = base::Sys.info()) 1528s [00:52:08.918] } 1528s [00:52:08.918] ...future.conditions[[length(...future.conditions) + 1528s [00:52:08.918] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1528s [00:52:08.918] cond$call), session = sessionInformation(), 1528s [00:52:08.918] timestamp = base::Sys.time(), signaled = 0L) 1528s [00:52:08.918] signalCondition(cond) 1528s [00:52:08.918] } 1528s [00:52:08.918] else if (!ignore && FALSE && inherits(cond, NULL)) { 1528s [00:52:08.918] signal <- TRUE && inherits(cond, character(0)) 1528s [00:52:08.918] ...future.conditions[[length(...future.conditions) + 1528s [00:52:08.918] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1528s [00:52:08.918] if (TRUE && !signal) { 1528s [00:52:08.918] muffleCondition <- function (cond, pattern = "^muffle") 1528s [00:52:08.918] { 1528s [00:52:08.918] inherits <- base::inherits 1528s [00:52:08.918] invokeRestart <- base::invokeRestart 1528s [00:52:08.918] is.null <- base::is.null 1528s [00:52:08.918] muffled <- FALSE 1528s [00:52:08.918] if (inherits(cond, "message")) { 1528s [00:52:08.918] muffled <- grepl(pattern, "muffleMessage") 1528s [00:52:08.918] if (muffled) 1528s [00:52:08.918] invokeRestart("muffleMessage") 1528s [00:52:08.918] } 1528s [00:52:08.918] else if (inherits(cond, "warning")) { 1528s [00:52:08.918] muffled <- grepl(pattern, "muffleWarning") 1528s [00:52:08.918] if (muffled) 1528s [00:52:08.918] invokeRestart("muffleWarning") 1528s [00:52:08.918] } 1528s [00:52:08.918] else if (inherits(cond, "condition")) { 1528s [00:52:08.918] if (!is.null(pattern)) { 1528s [00:52:08.918] computeRestarts <- base::computeRestarts 1528s [00:52:08.918] grepl <- base::grepl 1528s [00:52:08.918] restarts <- computeRestarts(cond) 1528s [00:52:08.918] for (restart in restarts) { 1528s [00:52:08.918] name <- restart$name 1528s [00:52:08.918] if (is.null(name)) 1528s [00:52:08.918] next 1528s [00:52:08.918] if (!grepl(pattern, name)) 1528s [00:52:08.918] next 1528s [00:52:08.918] invokeRestart(restart) 1528s [00:52:08.918] muffled <- TRUE 1528s [00:52:08.918] break 1528s [00:52:08.918] } 1528s [00:52:08.918] } 1528s [00:52:08.918] } 1528s [00:52:08.918] invisible(muffled) 1528s [00:52:08.918] } 1528s [00:52:08.918] muffleCondition(cond, pattern = "^muffle") 1528s [00:52:08.918] } 1528s [00:52:08.918] } 1528s [00:52:08.918] else { 1528s [00:52:08.918] if (FALSE) { 1528s [00:52:08.918] muffleCondition <- function (cond, pattern = "^muffle") 1528s [00:52:08.918] { 1528s [00:52:08.918] inherits <- base::inherits 1528s [00:52:08.918] invokeRestart <- base::invokeRestart 1528s [00:52:08.918] is.null <- base::is.null 1528s [00:52:08.918] muffled <- FALSE 1528s [00:52:08.918] if (inherits(cond, "message")) { 1528s [00:52:08.918] muffled <- grepl(pattern, "muffleMessage") 1528s [00:52:08.918] if (muffled) 1528s [00:52:08.918] invokeRestart("muffleMessage") 1528s [00:52:08.918] } 1528s [00:52:08.918] else if (inherits(cond, "warning")) { 1528s [00:52:08.918] muffled <- grepl(pattern, "muffleWarning") 1528s [00:52:08.918] if (muffled) 1528s [00:52:08.918] invokeRestart("muffleWarning") 1528s [00:52:08.918] } 1528s [00:52:08.918] else if (inherits(cond, "condition")) { 1528s [00:52:08.918] if (!is.null(pattern)) { 1528s [00:52:08.918] computeRestarts <- base::computeRestarts 1528s [00:52:08.918] grepl <- base::grepl 1528s [00:52:08.918] restarts <- computeRestarts(cond) 1528s [00:52:08.918] for (restart in restarts) { 1528s [00:52:08.918] name <- restart$name 1528s [00:52:08.918] if (is.null(name)) 1528s [00:52:08.918] next 1528s [00:52:08.918] if (!grepl(pattern, name)) 1528s [00:52:08.918] next 1528s [00:52:08.918] invokeRestart(restart) 1528s [00:52:08.918] muffled <- TRUE 1528s [00:52:08.918] break 1528s [00:52:08.918] } 1528s [00:52:08.918] } 1528s [00:52:08.918] } 1528s [00:52:08.918] invisible(muffled) 1528s [00:52:08.918] } 1528s [00:52:08.918] muffleCondition(cond, pattern = "^muffle") 1528s [00:52:08.918] } 1528s [00:52:08.918] } 1528s [00:52:08.918] } 1528s [00:52:08.918] })) 1528s [00:52:08.918] }, error = function(ex) { 1528s [00:52:08.918] base::structure(base::list(value = NULL, visible = NULL, 1528s [00:52:08.918] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1528s [00:52:08.918] ...future.rng), started = ...future.startTime, 1528s [00:52:08.918] finished = Sys.time(), session_uuid = NA_character_, 1528s [00:52:08.918] version = "1.8"), class = "FutureResult") 1528s [00:52:08.918] }, finally = { 1528s [00:52:08.918] if (!identical(...future.workdir, getwd())) 1528s [00:52:08.918] setwd(...future.workdir) 1528s [00:52:08.918] { 1528s [00:52:08.918] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1528s [00:52:08.918] ...future.oldOptions$nwarnings <- NULL 1528s [00:52:08.918] } 1528s [00:52:08.918] base::options(...future.oldOptions) 1528s [00:52:08.918] if (.Platform$OS.type == "windows") { 1528s [00:52:08.918] old_names <- names(...future.oldEnvVars) 1528s [00:52:08.918] envs <- base::Sys.getenv() 1528s [00:52:08.918] names <- names(envs) 1528s [00:52:08.918] common <- intersect(names, old_names) 1528s [00:52:08.918] added <- setdiff(names, old_names) 1528s [00:52:08.918] removed <- setdiff(old_names, names) 1528s [00:52:08.918] changed <- common[...future.oldEnvVars[common] != 1528s [00:52:08.918] envs[common]] 1528s [00:52:08.918] NAMES <- toupper(changed) 1528s [00:52:08.918] args <- list() 1528s [00:52:08.918] for (kk in seq_along(NAMES)) { 1528s [00:52:08.918] name <- changed[[kk]] 1528s [00:52:08.918] NAME <- NAMES[[kk]] 1528s [00:52:08.918] if (name != NAME && is.element(NAME, old_names)) 1528s [00:52:08.918] next 1528s [00:52:08.918] args[[name]] <- ...future.oldEnvVars[[name]] 1528s [00:52:08.918] } 1528s [00:52:08.918] NAMES <- toupper(added) 1528s [00:52:08.918] for (kk in seq_along(NAMES)) { 1528s [00:52:08.918] name <- added[[kk]] 1528s [00:52:08.918] NAME <- NAMES[[kk]] 1528s [00:52:08.918] if (name != NAME && is.element(NAME, old_names)) 1528s [00:52:08.918] next 1528s [00:52:08.918] args[[name]] <- "" 1528s [00:52:08.918] } 1528s [00:52:08.918] NAMES <- toupper(removed) 1528s [00:52:08.918] for (kk in seq_along(NAMES)) { 1528s [00:52:08.918] name <- removed[[kk]] 1528s [00:52:08.918] NAME <- NAMES[[kk]] 1528s [00:52:08.918] if (name != NAME && is.element(NAME, old_names)) 1528s [00:52:08.918] next 1528s [00:52:08.918] args[[name]] <- ...future.oldEnvVars[[name]] 1528s [00:52:08.918] } 1528s [00:52:08.918] if (length(args) > 0) 1528s [00:52:08.918] base::do.call(base::Sys.setenv, args = args) 1528s [00:52:08.918] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1528s [00:52:08.918] } 1528s [00:52:08.918] else { 1528s [00:52:08.918] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1528s [00:52:08.918] } 1528s [00:52:08.918] { 1528s [00:52:08.918] if (base::length(...future.futureOptionsAdded) > 1528s [00:52:08.918] 0L) { 1528s [00:52:08.918] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1528s [00:52:08.918] base::names(opts) <- ...future.futureOptionsAdded 1528s [00:52:08.918] base::options(opts) 1528s [00:52:08.918] } 1528s [00:52:08.918] { 1528s [00:52:08.918] { 1528s [00:52:08.918] base::assign(".Random.seed", c(10407L, -235817339L, 1528s [00:52:08.918] -918112653L, 1726940932L, 2039504800L, -2077827493L, 1528s [00:52:08.918] -666439689L), envir = base::globalenv(), 1528s [00:52:08.918] inherits = FALSE) 1528s [00:52:08.918] NULL 1528s [00:52:08.918] } 1528s [00:52:08.918] options(future.plan = NULL) 1528s [00:52:08.918] if (is.na(NA_character_)) 1528s [00:52:08.918] Sys.unsetenv("R_FUTURE_PLAN") 1528s [00:52:08.918] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1528s [00:52:08.918] future::plan(list(function (..., envir = parent.frame()) 1528s [00:52:08.918] { 1528s [00:52:08.918] future <- SequentialFuture(..., envir = envir) 1528s [00:52:08.918] if (!future$lazy) 1528s [00:52:08.918] future <- run(future) 1528s [00:52:08.918] invisible(future) 1528s [00:52:08.918] }), .cleanup = FALSE, .init = FALSE) 1528s [00:52:08.918] } 1528s [00:52:08.918] } 1528s [00:52:08.918] } 1528s [00:52:08.918] }) 1528s [00:52:08.918] if (TRUE) { 1528s [00:52:08.918] base::sink(type = "output", split = FALSE) 1528s [00:52:08.918] if (TRUE) { 1528s [00:52:08.918] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1528s [00:52:08.918] } 1528s [00:52:08.918] else { 1528s [00:52:08.918] ...future.result["stdout"] <- base::list(NULL) 1528s [00:52:08.918] } 1528s [00:52:08.918] base::close(...future.stdout) 1528s [00:52:08.918] ...future.stdout <- NULL 1528s [00:52:08.918] } 1528s [00:52:08.918] ...future.result$conditions <- ...future.conditions 1528s [00:52:08.918] ...future.result$finished <- base::Sys.time() 1528s [00:52:08.918] ...future.result 1528s [00:52:08.918] } 1528s [00:52:08.923] assign_globals() ... 1528s [00:52:08.923] List of 5 1528s [00:52:08.923] $ future.call.arguments : list() 1528s [00:52:08.923] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1528s [00:52:08.923] $ ...future.FUN :function (x, size, replace = FALSE, prob = NULL) 1528s [00:52:08.923] $ ...future.elements_ii :List of 2 1528s [00:52:08.923] ..$ : int [1:2] 1 3 1528s [00:52:08.923] ..$ : int [1:2] 2 4 1528s [00:52:08.923] $ ...future.seeds_ii :List of 2 1528s [00:52:08.923] ..$ : int [1:7] 10407 1242173061 -1150840343 -834448425 701050094 -1369558043 -650964284 1528s [00:52:08.923] ..$ : int [1:7] 10407 859061261 1088872332 -1371790091 -942478768 -889560561 1393381402 1528s [00:52:08.923] $ ...future.globals.maxSize: num Inf 1528s [00:52:08.923] - attr(*, "resolved")= logi FALSE 1528s [00:52:08.923] - attr(*, "total_size")= num NA 1528s [00:52:08.923] - attr(*, "where")=List of 5 1528s [00:52:08.923] ..$ future.call.arguments : 1528s [00:52:08.923] ..$ ...future.FUN : 1528s [00:52:08.923] ..$ ...future.elements_ii : 1528s [00:52:08.923] ..$ ...future.seeds_ii : 1528s [00:52:08.923] ..$ ...future.globals.maxSize: 1528s [00:52:08.923] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1528s [00:52:08.923] - attr(*, "already-done")= logi TRUE 1528s [00:52:08.933] - copied ‘future.call.arguments’ to environment 1528s [00:52:08.933] - copied ‘...future.FUN’ to environment 1528s [00:52:08.933] - copied ‘...future.elements_ii’ to environment 1528s [00:52:08.933] - copied ‘...future.seeds_ii’ to environment 1528s [00:52:08.933] - copied ‘...future.globals.maxSize’ to environment 1528s [00:52:08.933] assign_globals() ... done 1528s [00:52:08.934] plan(): Setting new future strategy stack: 1528s [00:52:08.934] List of future strategies: 1528s [00:52:08.934] 1. sequential: 1528s [00:52:08.934] - args: function (..., envir = parent.frame()) 1528s [00:52:08.934] - tweaked: FALSE 1528s [00:52:08.934] - call: NULL 1528s [00:52:08.934] plan(): nbrOfWorkers() = 1 1528s [00:52:08.935] plan(): Setting new future strategy stack: 1528s [00:52:08.935] List of future strategies: 1528s [00:52:08.935] 1. sequential: 1528s [00:52:08.935] - args: function (..., envir = parent.frame()) 1528s [00:52:08.935] - tweaked: FALSE 1528s [00:52:08.935] - call: plan(strategy) 1528s [00:52:08.935] plan(): nbrOfWorkers() = 1 1528s [00:52:08.936] SequentialFuture started (and completed) 1528s [00:52:08.936] - Launch lazy future ... done 1528s [00:52:08.936] run() for ‘SequentialFuture’ ... done 1528s [00:52:08.936] Created future: 1528s [00:52:08.936] SequentialFuture: 1528s [00:52:08.936] Label: ‘future_apply-1’ 1528s [00:52:08.936] Expression: 1528s [00:52:08.936] { 1528s [00:52:08.936] do.call(function(...) { 1528s [00:52:08.936] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1528s [00:52:08.936] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1528s [00:52:08.936] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1528s [00:52:08.936] on.exit(options(oopts), add = TRUE) 1528s [00:52:08.936] } 1528s [00:52:08.936] { 1528s [00:52:08.936] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1528s [00:52:08.936] ...future.X_jj <- ...future.elements_ii[[jj]] 1528s [00:52:08.936] assign(".Random.seed", ...future.seeds_ii[[jj]], 1528s [00:52:08.936] envir = globalenv(), inherits = FALSE) 1528s [00:52:08.936] ...future.FUN(...future.X_jj, ...) 1528s [00:52:08.936] }) 1528s [00:52:08.936] } 1528s [00:52:08.936] }, args = future.call.arguments) 1528s [00:52:08.936] } 1528s [00:52:08.936] Lazy evaluation: FALSE 1528s [00:52:08.936] Asynchronous evaluation: FALSE 1528s [00:52:08.936] Local evaluation: TRUE 1528s [00:52:08.936] Environment: R_GlobalEnv 1528s [00:52:08.936] Capture standard output: TRUE 1528s [00:52:08.936] Capture condition classes: 1528s [00:52:08.936] Globals: 5 objects totaling 35.77 KiB (DotDotDotList ‘future.call.arguments’ of 0 bytes, function ‘...future.FUN’ of 35.45 KiB, list ‘...future.elements_ii’ of 112 bytes, list ‘...future.seeds_ii’ of 160 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1528s [00:52:08.936] Packages: 1528s [00:52:08.936] L'Ecuyer-CMRG RNG seed: (seed = NULL) 1528s [00:52:08.936] Resolved: TRUE 1528s [00:52:08.936] Value: 112 bytes of class ‘list’ 1528s [00:52:08.936] Early signaling: FALSE 1528s [00:52:08.936] Owner process: 856348fc-72a5-ec0b-63b7-1a3640a93e42 1528s [00:52:08.936] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1528s [00:52:08.937] Chunk #1 of 1 ... DONE 1528s [00:52:08.937] Launching 1 futures (chunks) ... DONE 1528s [00:52:08.938] Resolving 1 futures (chunks) ... 1528s [00:52:08.938] resolve() on list ... 1528s [00:52:08.938] recursive: 0 1528s [00:52:08.938] length: 1 1528s [00:52:08.938] 1528s [00:52:08.938] resolved() for ‘SequentialFuture’ ... 1528s [00:52:08.938] - state: ‘finished’ 1528s [00:52:08.938] - run: TRUE 1528s [00:52:08.938] - result: ‘FutureResult’ 1528s [00:52:08.939] resolved() for ‘SequentialFuture’ ... done 1528s [00:52:08.939] Future #1 1528s [00:52:08.939] signalConditionsASAP(SequentialFuture, pos=1) ... 1528s [00:52:08.939] - nx: 1 1528s [00:52:08.939] - relay: TRUE 1528s [00:52:08.939] - stdout: TRUE 1528s [00:52:08.939] - signal: TRUE 1528s [00:52:08.939] - resignal: FALSE 1528s [00:52:08.939] - force: TRUE 1528s [00:52:08.939] - relayed: [n=1] FALSE 1528s [00:52:08.940] - queued futures: [n=1] FALSE 1528s [00:52:08.940] - until=1 1528s [00:52:08.940] - relaying element #1 1528s [00:52:08.940] - relayed: [n=1] TRUE 1528s [00:52:08.940] - queued futures: [n=1] TRUE 1528s [00:52:08.940] signalConditionsASAP(SequentialFuture, pos=1) ... done 1528s [00:52:08.941] length: 0 (resolved future 1) 1528s [00:52:08.941] Relaying remaining futures 1528s [00:52:08.941] signalConditionsASAP(NULL, pos=0) ... 1528s [00:52:08.941] - nx: 1 1528s [00:52:08.941] - relay: TRUE 1528s [00:52:08.941] - stdout: TRUE 1528s [00:52:08.941] - signal: TRUE 1528s [00:52:08.942] - resignal: FALSE 1528s [00:52:08.942] - force: TRUE 1528s [00:52:08.942] - relayed: [n=1] TRUE 1528s [00:52:08.942] - queued futures: [n=1] TRUE 1528s - flush all 1528s [00:52:08.942] - relayed: [n=1] TRUE 1528s [00:52:08.942] - queued futures: [n=1] TRUE 1528s [00:52:08.942] signalConditionsASAP(NULL, pos=0) ... done 1528s [00:52:08.943] resolve() on list ... DONE 1528s [00:52:08.943] - Number of value chunks collected: 1 1528s [00:52:08.943] Resolving 1 futures (chunks) ... DONE 1528s [00:52:08.943] Reducing values from 1 chunks ... 1528s [00:52:08.943] - Number of values collected after concatenation: 2 1528s [00:52:08.943] - Number of values expected: 2 1528s [,1] [,2] 1528s [1,] 3 2 1528s [2,] 1 4 1528s [00:52:08.943] Reducing values from 1 chunks ... DONE 1528s [00:52:08.944] future_lapply() ... DONE 1528s [00:52:08.944] plan(): Setting new future strategy stack: 1528s [00:52:08.944] List of future strategies: 1528s [00:52:08.944] 1. sequential: 1528s [00:52:08.944] - args: function (..., envir = parent.frame()) 1528s [00:52:08.944] - tweaked: FALSE 1528s [00:52:08.944] - call: plan(sequential) 1528s [00:52:08.945] plan(): nbrOfWorkers() = 1 1528s *** strategy = ‘sequential’ ... done 1528s *** strategy = ‘multicore’ ... 1528s [00:52:08.945] plan(): Setting new future strategy stack: 1528s [00:52:08.945] List of future strategies: 1528s [00:52:08.945] 1. multicore: 1528s [00:52:08.945] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1528s [00:52:08.945] - tweaked: FALSE 1528s [00:52:08.945] - call: plan(strategy) 1528s [00:52:08.950] plan(): nbrOfWorkers() = 1 1528s - From example(apply) ... 1528s [00:52:08.950] getGlobalsAndPackagesXApply() ... 1528s [00:52:08.950] - future.globals: TRUE 1528s [00:52:08.951] getGlobalsAndPackages() ... 1528s [00:52:08.951] Searching for globals... 1529s [00:52:09.001] - globals found: [59] ‘FUN’, ‘if’, ‘==’, ‘c’, ‘list.names’, ‘{’, ‘<-’, ‘[’, ‘as.list’, ‘substitute’, ‘-’, ‘&&’, ‘length’, ‘is.list’, ‘!’, ‘is.null’, ‘names’, ‘return’, ‘seq_along’, ‘vapply’, ‘switch’, ‘+’, ‘is.symbol’, ‘as.character’, ‘deparse’, ‘[<-’, ‘missing’, ‘match’, ‘match.arg’, ‘!=’, ‘warning’, ‘list’, ‘[[’, ‘paste’, ‘stop’, ‘integer’, ‘for’, ‘is.factor’, ‘anyNA’, ‘options’, ‘on.exit’, ‘factor’, ‘(’, ‘||’, ‘levels’, ‘as.integer’, ‘which’, ‘is.na’, ‘is.na<-’, ‘>’, ‘prod’, ‘$’, ‘.Machine’, ‘*’, ‘names<-’, ‘array’, ‘tabulate’, ‘class’, ‘class<-’ 1529s [00:52:09.002] Searching for globals ... DONE 1529s [00:52:09.002] Resolving globals: FALSE 1529s [00:52:09.005] The total size of the 1 globals is 345.92 KiB (354224 bytes) 1529s [00:52:09.006] The total size of the 1 globals exported for future expression (‘FUN(X = structure(c(1, 2, 3, 4, 1, 6, 7, 8), dim = c(2L, 4L)))’) is 345.92 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (345.92 KiB of class ‘function’) 1529s [00:52:09.006] - globals: [1] ‘FUN’ 1529s [00:52:09.006] 1529s [00:52:09.006] getGlobalsAndPackages() ... DONE 1529s [00:52:09.006] - globals found/used: [n=1] ‘FUN’ 1529s [00:52:09.006] - needed namespaces: [n=0] 1529s [00:52:09.007] Finding globals ... DONE 1529s [00:52:09.007] - use_args: TRUE 1529s [00:52:09.007] - Getting '...' globals ... 1529s [00:52:09.007] resolve() on list ... 1529s [00:52:09.008] recursive: 0 1529s [00:52:09.008] length: 1 1529s [00:52:09.008] elements: ‘...’ 1529s [00:52:09.008] length: 0 (resolved future 1) 1529s [00:52:09.008] resolve() on list ... DONE 1529s [00:52:09.008] - '...' content: [n=0] 1529s [00:52:09.008] List of 1 1529s [00:52:09.008] $ ...: list() 1529s [00:52:09.008] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1529s [00:52:09.008] - attr(*, "where")=List of 1 1529s [00:52:09.008] ..$ ...: 1529s [00:52:09.008] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1529s [00:52:09.008] - attr(*, "resolved")= logi TRUE 1529s [00:52:09.008] - attr(*, "total_size")= num NA 1529s [00:52:09.012] - Getting '...' globals ... DONE 1529s [00:52:09.012] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1529s [00:52:09.012] List of 2 1529s [00:52:09.012] $ ...future.FUN:function (..., exclude = if (useNA == "no") c(NA, NaN), useNA = c("no", 1529s [00:52:09.012] "ifany", "always"), dnn = list.names(...), deparse.level = 1) 1529s [00:52:09.012] $ ... : list() 1529s [00:52:09.012] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1529s [00:52:09.012] - attr(*, "where")=List of 2 1529s [00:52:09.012] ..$ ...future.FUN: 1529s [00:52:09.012] ..$ ... : 1529s [00:52:09.012] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1529s [00:52:09.012] - attr(*, "resolved")= logi FALSE 1529s [00:52:09.012] - attr(*, "total_size")= num 354224 1529s [00:52:09.018] Packages to be attached in all futures: [n=0] 1529s [00:52:09.018] getGlobalsAndPackagesXApply() ... DONE 1529s [00:52:09.021] future_lapply() ... 1529s [00:52:09.068] Number of chunks: 1 1529s [00:52:09.069] getGlobalsAndPackagesXApply() ... 1529s [00:52:09.069] - future.globals: with names ‘list()’ 1529s [00:52:09.069] - use_args: TRUE 1529s [00:52:09.069] Globals to be used in all futures (chunks): [n=2] ‘...’, ‘...future.FUN’ 1529s [00:52:09.069] List of 2 1529s [00:52:09.069] $ ... : list() 1529s [00:52:09.069] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1529s [00:52:09.069] $ ...future.FUN:function (..., exclude = if (useNA == "no") c(NA, NaN), useNA = c("no", 1529s [00:52:09.069] "ifany", "always"), dnn = list.names(...), deparse.level = 1) 1529s [00:52:09.069] - attr(*, "where")=List of 2 1529s [00:52:09.069] ..$ ... : 1529s [00:52:09.069] ..$ ...future.FUN: 1529s [00:52:09.069] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1529s [00:52:09.069] - attr(*, "resolved")= logi FALSE 1529s [00:52:09.069] - attr(*, "total_size")= num NA 1529s [00:52:09.073] Packages to be attached in all futures: [n=0] 1529s [00:52:09.073] getGlobalsAndPackagesXApply() ... DONE 1529s [00:52:09.074] Number of futures (= number of chunks): 1 1529s [00:52:09.074] Launching 1 futures (chunks) ... 1529s [00:52:09.074] Chunk #1 of 1 ... 1529s [00:52:09.074] - seeds: 1529s [00:52:09.074] - All globals exported: [n=5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1529s [00:52:09.074] getGlobalsAndPackages() ... 1529s [00:52:09.074] - globals passed as-is: [5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1529s [00:52:09.075] Resolving globals: FALSE 1529s [00:52:09.075] Tweak future expression to call with '...' arguments ... 1529s [00:52:09.075] { 1529s [00:52:09.075] do.call(function(...) { 1529s [00:52:09.075] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1529s [00:52:09.075] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1529s [00:52:09.075] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1529s [00:52:09.075] on.exit(options(oopts), add = TRUE) 1529s [00:52:09.075] } 1529s [00:52:09.075] { 1529s [00:52:09.075] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1529s [00:52:09.075] ...future.X_jj <- ...future.elements_ii[[jj]] 1529s [00:52:09.075] ...future.FUN(...future.X_jj, ...) 1529s [00:52:09.075] }) 1529s [00:52:09.075] } 1529s [00:52:09.075] }, args = future.call.arguments) 1529s [00:52:09.075] } 1529s [00:52:09.075] Tweak future expression to call with '...' arguments ... DONE 1529s [00:52:09.076] - globals: [5] ‘future.call.arguments’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1529s [00:52:09.076] 1529s [00:52:09.076] getGlobalsAndPackages() ... DONE 1529s [00:52:09.077] run() for ‘Future’ ... 1529s [00:52:09.077] - state: ‘created’ 1529s [00:52:09.077] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1529s [00:52:09.082] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1529s [00:52:09.082] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1529s [00:52:09.082] - Field: ‘label’ 1529s [00:52:09.082] - Field: ‘local’ 1529s [00:52:09.082] - Field: ‘owner’ 1529s [00:52:09.083] - Field: ‘envir’ 1529s [00:52:09.083] - Field: ‘packages’ 1529s [00:52:09.083] - Field: ‘gc’ 1529s [00:52:09.083] - Field: ‘conditions’ 1529s [00:52:09.083] - Field: ‘expr’ 1529s [00:52:09.083] - Field: ‘uuid’ 1529s [00:52:09.083] - Field: ‘seed’ 1529s [00:52:09.084] - Field: ‘version’ 1529s [00:52:09.084] - Field: ‘result’ 1529s [00:52:09.084] - Field: ‘asynchronous’ 1529s [00:52:09.084] - Field: ‘calls’ 1529s [00:52:09.084] - Field: ‘globals’ 1529s [00:52:09.084] - Field: ‘stdout’ 1529s [00:52:09.084] - Field: ‘earlySignal’ 1529s [00:52:09.085] - Field: ‘lazy’ 1529s [00:52:09.085] - Field: ‘state’ 1529s [00:52:09.085] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1529s [00:52:09.085] - Launch lazy future ... 1529s [00:52:09.085] Packages needed by the future expression (n = 0): 1529s [00:52:09.085] Packages needed by future strategies (n = 0): 1529s [00:52:09.086] { 1529s [00:52:09.086] { 1529s [00:52:09.086] { 1529s [00:52:09.086] ...future.startTime <- base::Sys.time() 1529s [00:52:09.086] { 1529s [00:52:09.086] { 1529s [00:52:09.086] { 1529s [00:52:09.086] base::local({ 1529s [00:52:09.086] has_future <- base::requireNamespace("future", 1529s [00:52:09.086] quietly = TRUE) 1529s [00:52:09.086] if (has_future) { 1529s [00:52:09.086] ns <- base::getNamespace("future") 1529s [00:52:09.086] version <- ns[[".package"]][["version"]] 1529s [00:52:09.086] if (is.null(version)) 1529s [00:52:09.086] version <- utils::packageVersion("future") 1529s [00:52:09.086] } 1529s [00:52:09.086] else { 1529s [00:52:09.086] version <- NULL 1529s [00:52:09.086] } 1529s [00:52:09.086] if (!has_future || version < "1.8.0") { 1529s [00:52:09.086] info <- base::c(r_version = base::gsub("R version ", 1529s [00:52:09.086] "", base::R.version$version.string), 1529s [00:52:09.086] platform = base::sprintf("%s (%s-bit)", 1529s [00:52:09.086] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1529s [00:52:09.086] os = base::paste(base::Sys.info()[base::c("sysname", 1529s [00:52:09.086] "release", "version")], collapse = " "), 1529s [00:52:09.086] hostname = base::Sys.info()[["nodename"]]) 1529s [00:52:09.086] info <- base::sprintf("%s: %s", base::names(info), 1529s [00:52:09.086] info) 1529s [00:52:09.086] info <- base::paste(info, collapse = "; ") 1529s [00:52:09.086] if (!has_future) { 1529s [00:52:09.086] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1529s [00:52:09.086] info) 1529s [00:52:09.086] } 1529s [00:52:09.086] else { 1529s [00:52:09.086] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1529s [00:52:09.086] info, version) 1529s [00:52:09.086] } 1529s [00:52:09.086] base::stop(msg) 1529s [00:52:09.086] } 1529s [00:52:09.086] }) 1529s [00:52:09.086] } 1529s [00:52:09.086] options(future.plan = NULL) 1529s [00:52:09.086] Sys.unsetenv("R_FUTURE_PLAN") 1529s [00:52:09.086] future::plan("default", .cleanup = FALSE, .init = FALSE) 1529s [00:52:09.086] } 1529s [00:52:09.086] ...future.workdir <- getwd() 1529s [00:52:09.086] } 1529s [00:52:09.086] ...future.oldOptions <- base::as.list(base::.Options) 1529s [00:52:09.086] ...future.oldEnvVars <- base::Sys.getenv() 1529s [00:52:09.086] } 1529s [00:52:09.086] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1529s [00:52:09.086] future.globals.maxSize = Inf, future.globals.method = NULL, 1529s [00:52:09.086] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1529s [00:52:09.086] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1529s [00:52:09.086] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1529s [00:52:09.086] future.stdout.windows.reencode = NULL, width = 80L) 1529s [00:52:09.086] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1529s [00:52:09.086] base::names(...future.oldOptions)) 1529s [00:52:09.086] } 1529s [00:52:09.086] if (FALSE) { 1529s [00:52:09.086] } 1529s [00:52:09.086] else { 1529s [00:52:09.086] if (TRUE) { 1529s [00:52:09.086] ...future.stdout <- base::rawConnection(base::raw(0L), 1529s [00:52:09.086] open = "w") 1529s [00:52:09.086] } 1529s [00:52:09.086] else { 1529s [00:52:09.086] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1529s [00:52:09.086] windows = "NUL", "/dev/null"), open = "w") 1529s [00:52:09.086] } 1529s [00:52:09.086] base::sink(...future.stdout, type = "output", split = FALSE) 1529s [00:52:09.086] base::on.exit(if (!base::is.null(...future.stdout)) { 1529s [00:52:09.086] base::sink(type = "output", split = FALSE) 1529s [00:52:09.086] base::close(...future.stdout) 1529s [00:52:09.086] }, add = TRUE) 1529s [00:52:09.086] } 1529s [00:52:09.086] ...future.frame <- base::sys.nframe() 1529s [00:52:09.086] ...future.conditions <- base::list() 1529s [00:52:09.086] ...future.rng <- base::globalenv()$.Random.seed 1529s [00:52:09.086] if (FALSE) { 1529s [00:52:09.086] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1529s [00:52:09.086] "...future.value", "...future.globalenv.names", ".Random.seed") 1529s [00:52:09.086] } 1529s [00:52:09.086] ...future.result <- base::tryCatch({ 1529s [00:52:09.086] base::withCallingHandlers({ 1529s [00:52:09.086] ...future.value <- base::withVisible(base::local({ 1529s [00:52:09.086] do.call(function(...) { 1529s [00:52:09.086] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1529s [00:52:09.086] if (!identical(...future.globals.maxSize.org, 1529s [00:52:09.086] ...future.globals.maxSize)) { 1529s [00:52:09.086] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1529s [00:52:09.086] on.exit(options(oopts), add = TRUE) 1529s [00:52:09.086] } 1529s [00:52:09.086] { 1529s [00:52:09.086] lapply(seq_along(...future.elements_ii), 1529s [00:52:09.086] FUN = function(jj) { 1529s [00:52:09.086] ...future.X_jj <- ...future.elements_ii[[jj]] 1529s [00:52:09.086] ...future.FUN(...future.X_jj, ...) 1529s [00:52:09.086] }) 1529s [00:52:09.086] } 1529s [00:52:09.086] }, args = future.call.arguments) 1529s [00:52:09.086] })) 1529s [00:52:09.086] future::FutureResult(value = ...future.value$value, 1529s [00:52:09.086] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1529s [00:52:09.086] ...future.rng), globalenv = if (FALSE) 1529s [00:52:09.086] list(added = base::setdiff(base::names(base::.GlobalEnv), 1529s [00:52:09.086] ...future.globalenv.names)) 1529s [00:52:09.086] else NULL, started = ...future.startTime, version = "1.8") 1529s [00:52:09.086] }, condition = base::local({ 1529s [00:52:09.086] c <- base::c 1529s [00:52:09.086] inherits <- base::inherits 1529s [00:52:09.086] invokeRestart <- base::invokeRestart 1529s [00:52:09.086] length <- base::length 1529s [00:52:09.086] list <- base::list 1529s [00:52:09.086] seq.int <- base::seq.int 1529s [00:52:09.086] signalCondition <- base::signalCondition 1529s [00:52:09.086] sys.calls <- base::sys.calls 1529s [00:52:09.086] `[[` <- base::`[[` 1529s [00:52:09.086] `+` <- base::`+` 1529s [00:52:09.086] `<<-` <- base::`<<-` 1529s [00:52:09.086] sysCalls <- function(calls = sys.calls(), from = 1L) { 1529s [00:52:09.086] calls[seq.int(from = from + 12L, to = length(calls) - 1529s [00:52:09.086] 3L)] 1529s [00:52:09.086] } 1529s [00:52:09.086] function(cond) { 1529s [00:52:09.086] is_error <- inherits(cond, "error") 1529s [00:52:09.086] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1529s [00:52:09.086] NULL) 1529s [00:52:09.086] if (is_error) { 1529s [00:52:09.086] sessionInformation <- function() { 1529s [00:52:09.086] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1529s [00:52:09.086] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1529s [00:52:09.086] search = base::search(), system = base::Sys.info()) 1529s [00:52:09.086] } 1529s [00:52:09.086] ...future.conditions[[length(...future.conditions) + 1529s [00:52:09.086] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1529s [00:52:09.086] cond$call), session = sessionInformation(), 1529s [00:52:09.086] timestamp = base::Sys.time(), signaled = 0L) 1529s [00:52:09.086] signalCondition(cond) 1529s [00:52:09.086] } 1529s [00:52:09.086] else if (!ignore && TRUE && inherits(cond, c("condition", 1529s [00:52:09.086] "immediateCondition"))) { 1529s [00:52:09.086] signal <- TRUE && inherits(cond, "immediateCondition") 1529s [00:52:09.086] ...future.conditions[[length(...future.conditions) + 1529s [00:52:09.086] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1529s [00:52:09.086] if (TRUE && !signal) { 1529s [00:52:09.086] muffleCondition <- function (cond, pattern = "^muffle") 1529s [00:52:09.086] { 1529s [00:52:09.086] inherits <- base::inherits 1529s [00:52:09.086] invokeRestart <- base::invokeRestart 1529s [00:52:09.086] is.null <- base::is.null 1529s [00:52:09.086] muffled <- FALSE 1529s [00:52:09.086] if (inherits(cond, "message")) { 1529s [00:52:09.086] muffled <- grepl(pattern, "muffleMessage") 1529s [00:52:09.086] if (muffled) 1529s [00:52:09.086] invokeRestart("muffleMessage") 1529s [00:52:09.086] } 1529s [00:52:09.086] else if (inherits(cond, "warning")) { 1529s [00:52:09.086] muffled <- grepl(pattern, "muffleWarning") 1529s [00:52:09.086] if (muffled) 1529s [00:52:09.086] invokeRestart("muffleWarning") 1529s [00:52:09.086] } 1529s [00:52:09.086] else if (inherits(cond, "condition")) { 1529s [00:52:09.086] if (!is.null(pattern)) { 1529s [00:52:09.086] computeRestarts <- base::computeRestarts 1529s [00:52:09.086] grepl <- base::grepl 1529s [00:52:09.086] restarts <- computeRestarts(cond) 1529s [00:52:09.086] for (restart in restarts) { 1529s [00:52:09.086] name <- restart$name 1529s [00:52:09.086] if (is.null(name)) 1529s [00:52:09.086] next 1529s [00:52:09.086] if (!grepl(pattern, name)) 1529s [00:52:09.086] next 1529s [00:52:09.086] invokeRestart(restart) 1529s [00:52:09.086] muffled <- TRUE 1529s [00:52:09.086] break 1529s [00:52:09.086] } 1529s [00:52:09.086] } 1529s [00:52:09.086] } 1529s [00:52:09.086] invisible(muffled) 1529s [00:52:09.086] } 1529s [00:52:09.086] muffleCondition(cond, pattern = "^muffle") 1529s [00:52:09.086] } 1529s [00:52:09.086] } 1529s [00:52:09.086] else { 1529s [00:52:09.086] if (TRUE) { 1529s [00:52:09.086] muffleCondition <- function (cond, pattern = "^muffle") 1529s [00:52:09.086] { 1529s [00:52:09.086] inherits <- base::inherits 1529s [00:52:09.086] invokeRestart <- base::invokeRestart 1529s [00:52:09.086] is.null <- base::is.null 1529s [00:52:09.086] muffled <- FALSE 1529s [00:52:09.086] if (inherits(cond, "message")) { 1529s [00:52:09.086] muffled <- grepl(pattern, "muffleMessage") 1529s [00:52:09.086] if (muffled) 1529s [00:52:09.086] invokeRestart("muffleMessage") 1529s [00:52:09.086] } 1529s [00:52:09.086] else if (inherits(cond, "warning")) { 1529s [00:52:09.086] muffled <- grepl(pattern, "muffleWarning") 1529s [00:52:09.086] if (muffled) 1529s [00:52:09.086] invokeRestart("muffleWarning") 1529s [00:52:09.086] } 1529s [00:52:09.086] else if (inherits(cond, "condition")) { 1529s [00:52:09.086] if (!is.null(pattern)) { 1529s [00:52:09.086] computeRestarts <- base::computeRestarts 1529s [00:52:09.086] grepl <- base::grepl 1529s [00:52:09.086] restarts <- computeRestarts(cond) 1529s [00:52:09.086] for (restart in restarts) { 1529s [00:52:09.086] name <- restart$name 1529s [00:52:09.086] if (is.null(name)) 1529s [00:52:09.086] next 1529s [00:52:09.086] if (!grepl(pattern, name)) 1529s [00:52:09.086] next 1529s [00:52:09.086] invokeRestart(restart) 1529s [00:52:09.086] muffled <- TRUE 1529s [00:52:09.086] break 1529s [00:52:09.086] } 1529s [00:52:09.086] } 1529s [00:52:09.086] } 1529s [00:52:09.086] invisible(muffled) 1529s [00:52:09.086] } 1529s [00:52:09.086] muffleCondition(cond, pattern = "^muffle") 1529s [00:52:09.086] } 1529s [00:52:09.086] } 1529s [00:52:09.086] } 1529s [00:52:09.086] })) 1529s [00:52:09.086] }, error = function(ex) { 1529s [00:52:09.086] base::structure(base::list(value = NULL, visible = NULL, 1529s [00:52:09.086] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1529s [00:52:09.086] ...future.rng), started = ...future.startTime, 1529s [00:52:09.086] finished = Sys.time(), session_uuid = NA_character_, 1529s [00:52:09.086] version = "1.8"), class = "FutureResult") 1529s [00:52:09.086] }, finally = { 1529s [00:52:09.086] if (!identical(...future.workdir, getwd())) 1529s [00:52:09.086] setwd(...future.workdir) 1529s [00:52:09.086] { 1529s [00:52:09.086] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1529s [00:52:09.086] ...future.oldOptions$nwarnings <- NULL 1529s [00:52:09.086] } 1529s [00:52:09.086] base::options(...future.oldOptions) 1529s [00:52:09.086] if (.Platform$OS.type == "windows") { 1529s [00:52:09.086] old_names <- names(...future.oldEnvVars) 1529s [00:52:09.086] envs <- base::Sys.getenv() 1529s [00:52:09.086] names <- names(envs) 1529s [00:52:09.086] common <- intersect(names, old_names) 1529s [00:52:09.086] added <- setdiff(names, old_names) 1529s [00:52:09.086] removed <- setdiff(old_names, names) 1529s [00:52:09.086] changed <- common[...future.oldEnvVars[common] != 1529s [00:52:09.086] envs[common]] 1529s [00:52:09.086] NAMES <- toupper(changed) 1529s [00:52:09.086] args <- list() 1529s [00:52:09.086] for (kk in seq_along(NAMES)) { 1529s [00:52:09.086] name <- changed[[kk]] 1529s [00:52:09.086] NAME <- NAMES[[kk]] 1529s [00:52:09.086] if (name != NAME && is.element(NAME, old_names)) 1529s [00:52:09.086] next 1529s [00:52:09.086] args[[name]] <- ...future.oldEnvVars[[name]] 1529s [00:52:09.086] } 1529s [00:52:09.086] NAMES <- toupper(added) 1529s [00:52:09.086] for (kk in seq_along(NAMES)) { 1529s [00:52:09.086] name <- added[[kk]] 1529s [00:52:09.086] NAME <- NAMES[[kk]] 1529s [00:52:09.086] if (name != NAME && is.element(NAME, old_names)) 1529s [00:52:09.086] next 1529s [00:52:09.086] args[[name]] <- "" 1529s [00:52:09.086] } 1529s [00:52:09.086] NAMES <- toupper(removed) 1529s [00:52:09.086] for (kk in seq_along(NAMES)) { 1529s [00:52:09.086] name <- removed[[kk]] 1529s [00:52:09.086] NAME <- NAMES[[kk]] 1529s [00:52:09.086] if (name != NAME && is.element(NAME, old_names)) 1529s [00:52:09.086] next 1529s [00:52:09.086] args[[name]] <- ...future.oldEnvVars[[name]] 1529s [00:52:09.086] } 1529s [00:52:09.086] if (length(args) > 0) 1529s [00:52:09.086] base::do.call(base::Sys.setenv, args = args) 1529s [00:52:09.086] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1529s [00:52:09.086] } 1529s [00:52:09.086] else { 1529s [00:52:09.086] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1529s [00:52:09.086] } 1529s [00:52:09.086] { 1529s [00:52:09.086] if (base::length(...future.futureOptionsAdded) > 1529s [00:52:09.086] 0L) { 1529s [00:52:09.086] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1529s [00:52:09.086] base::names(opts) <- ...future.futureOptionsAdded 1529s [00:52:09.086] base::options(opts) 1529s [00:52:09.086] } 1529s [00:52:09.086] { 1529s [00:52:09.086] { 1529s [00:52:09.086] base::assign(".Random.seed", c(10407L, -235817339L, 1529s [00:52:09.086] -918112653L, 1726940932L, 2039504800L, -2077827493L, 1529s [00:52:09.086] -666439689L), envir = base::globalenv(), 1529s [00:52:09.086] inherits = FALSE) 1529s [00:52:09.086] NULL 1529s [00:52:09.086] } 1529s [00:52:09.086] options(future.plan = NULL) 1529s [00:52:09.086] if (is.na(NA_character_)) 1529s [00:52:09.086] Sys.unsetenv("R_FUTURE_PLAN") 1529s [00:52:09.086] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1529s [00:52:09.086] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1529s [00:52:09.086] envir = parent.frame()) 1529s [00:52:09.086] { 1529s [00:52:09.086] default_workers <- missing(workers) 1529s [00:52:09.086] if (is.function(workers)) 1529s [00:52:09.086] workers <- workers() 1529s [00:52:09.086] workers <- structure(as.integer(workers), 1529s [00:52:09.086] class = class(workers)) 1529s [00:52:09.086] stop_if_not(is.finite(workers), workers >= 1529s [00:52:09.086] 1L) 1529s [00:52:09.086] if ((workers == 1L && !inherits(workers, 1529s [00:52:09.086] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1529s [00:52:09.086] if (default_workers) 1529s [00:52:09.086] supportsMulticore(warn = TRUE) 1529s [00:52:09.086] return(sequential(..., envir = envir)) 1529s [00:52:09.086] } 1529s [00:52:09.086] oopts <- options(mc.cores = workers) 1529s [00:52:09.086] on.exit(options(oopts)) 1529s [00:52:09.086] future <- MulticoreFuture(..., workers = workers, 1529s [00:52:09.086] envir = envir) 1529s [00:52:09.086] if (!future$lazy) 1529s [00:52:09.086] future <- run(future) 1529s [00:52:09.086] invisible(future) 1529s [00:52:09.086] }), .cleanup = FALSE, .init = FALSE) 1529s [00:52:09.086] } 1529s [00:52:09.086] } 1529s [00:52:09.086] } 1529s [00:52:09.086] }) 1529s [00:52:09.086] if (TRUE) { 1529s [00:52:09.086] base::sink(type = "output", split = FALSE) 1529s [00:52:09.086] if (TRUE) { 1529s [00:52:09.086] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1529s [00:52:09.086] } 1529s [00:52:09.086] else { 1529s [00:52:09.086] ...future.result["stdout"] <- base::list(NULL) 1529s [00:52:09.086] } 1529s [00:52:09.086] base::close(...future.stdout) 1529s [00:52:09.086] ...future.stdout <- NULL 1529s [00:52:09.086] } 1529s [00:52:09.086] ...future.result$conditions <- ...future.conditions 1529s [00:52:09.086] ...future.result$finished <- base::Sys.time() 1529s [00:52:09.086] ...future.result 1529s [00:52:09.086] } 1529s [00:52:09.089] assign_globals() ... 1529s [00:52:09.089] List of 5 1529s [00:52:09.089] $ future.call.arguments : list() 1529s [00:52:09.089] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1529s [00:52:09.089] $ ...future.FUN :function (..., exclude = if (useNA == "no") c(NA, NaN), useNA = c("no", 1529s [00:52:09.089] "ifany", "always"), dnn = list.names(...), deparse.level = 1) 1529s [00:52:09.089] $ ...future.elements_ii :List of 2 1529s [00:52:09.089] ..$ : num [1:4] 1 3 1 7 1529s [00:52:09.089] ..$ : num [1:4] 2 4 6 8 1529s [00:52:09.089] $ ...future.seeds_ii : NULL 1529s [00:52:09.089] $ ...future.globals.maxSize: num Inf 1529s [00:52:09.089] - attr(*, "resolved")= logi FALSE 1529s [00:52:09.089] - attr(*, "total_size")= num NA 1529s [00:52:09.089] - attr(*, "where")=List of 5 1529s [00:52:09.089] ..$ future.call.arguments : 1529s [00:52:09.089] ..$ ...future.FUN : 1529s [00:52:09.089] ..$ ...future.elements_ii : 1529s [00:52:09.089] ..$ ...future.seeds_ii : 1529s [00:52:09.089] ..$ ...future.globals.maxSize: 1529s [00:52:09.089] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1529s [00:52:09.089] - attr(*, "already-done")= logi TRUE 1529s [00:52:09.097] - copied ‘future.call.arguments’ to environment 1529s [00:52:09.097] - copied ‘...future.FUN’ to environment 1529s [00:52:09.098] - copied ‘...future.elements_ii’ to environment 1529s [00:52:09.098] - copied ‘...future.seeds_ii’ to environment 1529s [00:52:09.099] - copied ‘...future.globals.maxSize’ to environment 1529s [00:52:09.099] assign_globals() ... done 1529s [00:52:09.099] plan(): Setting new future strategy stack: 1529s [00:52:09.099] List of future strategies: 1529s [00:52:09.099] 1. sequential: 1529s [00:52:09.099] - args: function (..., envir = parent.frame()) 1529s [00:52:09.099] - tweaked: FALSE 1529s [00:52:09.099] - call: NULL 1529s [00:52:09.100] plan(): nbrOfWorkers() = 1 1529s [00:52:09.101] plan(): Setting new future strategy stack: 1529s [00:52:09.101] List of future strategies: 1529s [00:52:09.101] 1. multicore: 1529s [00:52:09.101] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1529s [00:52:09.101] - tweaked: FALSE 1529s [00:52:09.101] - call: plan(strategy) 1529s [00:52:09.105] plan(): nbrOfWorkers() = 1 1529s [00:52:09.105] SequentialFuture started (and completed) 1529s [00:52:09.106] - Launch lazy future ... done 1529s [00:52:09.106] run() for ‘SequentialFuture’ ... done 1529s [00:52:09.106] Created future: 1529s [00:52:09.106] SequentialFuture: 1529s [00:52:09.106] Label: ‘future_apply-1’ 1529s [00:52:09.106] Expression: 1529s [00:52:09.106] { 1529s [00:52:09.106] do.call(function(...) { 1529s [00:52:09.106] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1529s [00:52:09.106] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1529s [00:52:09.106] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1529s [00:52:09.106] on.exit(options(oopts), add = TRUE) 1529s [00:52:09.106] } 1529s [00:52:09.106] { 1529s [00:52:09.106] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1529s [00:52:09.106] ...future.X_jj <- ...future.elements_ii[[jj]] 1529s [00:52:09.106] ...future.FUN(...future.X_jj, ...) 1529s [00:52:09.106] }) 1529s [00:52:09.106] } 1529s [00:52:09.106] }, args = future.call.arguments) 1529s [00:52:09.106] } 1529s [00:52:09.106] Lazy evaluation: FALSE 1529s [00:52:09.106] Asynchronous evaluation: FALSE 1529s [00:52:09.106] Local evaluation: TRUE 1529s [00:52:09.106] Environment: R_GlobalEnv 1529s [00:52:09.106] Capture standard output: TRUE 1529s [00:52:09.106] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1529s [00:52:09.106] Globals: 5 objects totaling 346.13 KiB (DotDotDotList ‘future.call.arguments’ of 0 bytes, function ‘...future.FUN’ of 345.92 KiB, list ‘...future.elements_ii’ of 160 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1529s [00:52:09.106] Packages: 1529s [00:52:09.106] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1529s [00:52:09.106] Resolved: TRUE 1529s [00:52:09.106] Value: 2.21 KiB of class ‘list’ 1529s [00:52:09.106] Early signaling: FALSE 1529s [00:52:09.106] Owner process: 856348fc-72a5-ec0b-63b7-1a3640a93e42 1529s [00:52:09.106] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1529s [00:52:09.110] Chunk #1 of 1 ... DONE 1529s [00:52:09.110] Launching 1 futures (chunks) ... DONE 1529s [00:52:09.110] Resolving 1 futures (chunks) ... 1529s [00:52:09.111] resolve() on list ... 1529s [00:52:09.111] recursive: 0 1529s [00:52:09.111] length: 1 1529s [00:52:09.111] 1529s [00:52:09.111] resolved() for ‘SequentialFuture’ ... 1529s [00:52:09.111] - state: ‘finished’ 1529s [00:52:09.112] - run: TRUE 1529s [00:52:09.112] - result: ‘FutureResult’ 1529s [00:52:09.112] resolved() for ‘SequentialFuture’ ... done 1529s [00:52:09.112] Future #1 1529s [00:52:09.112] signalConditionsASAP(SequentialFuture, pos=1) ... 1529s [00:52:09.112] - nx: 1 1529s [00:52:09.112] - relay: TRUE 1529s [00:52:09.113] - stdout: TRUE 1529s [00:52:09.113] - signal: TRUE 1529s [00:52:09.113] - resignal: FALSE 1529s [00:52:09.113] - force: TRUE 1529s [00:52:09.113] - relayed: [n=1] FALSE 1529s [00:52:09.113] - queued futures: [n=1] FALSE 1529s [00:52:09.113] - until=1 1529s [00:52:09.113] - relaying element #1 1529s [00:52:09.114] - relayed: [n=1] TRUE 1529s [00:52:09.114] - queued futures: [n=1] TRUE 1529s [00:52:09.114] signalConditionsASAP(SequentialFuture, pos=1) ... done 1529s [00:52:09.114] length: 0 (resolved future 1) 1529s [00:52:09.114] Relaying remaining futures 1529s [00:52:09.115] signalConditionsASAP(NULL, pos=0) ... 1529s [00:52:09.115] - nx: 1 1529s [00:52:09.115] - relay: TRUE 1529s [00:52:09.116] - stdout: TRUE 1529s [00:52:09.116] - signal: TRUE 1529s [00:52:09.116] - resignal: FALSE 1529s [00:52:09.116] - force: TRUE 1529s [00:52:09.116] - relayed: [n=1] TRUE 1529s [00:52:09.116] - queued futures: [n=1] TRUE 1529s - flush all 1529s [00:52:09.117] - relayed: [n=1] TRUE 1529s [00:52:09.117] - queued futures: [n=1] TRUE 1529s [00:52:09.117] signalConditionsASAP(NULL, pos=0) ... done 1529s [00:52:09.117] resolve() on list ... DONE 1529s [00:52:09.117] - Number of value chunks collected: 1 1529s [00:52:09.117] Resolving 1 futures (chunks) ... DONE 1529s [00:52:09.117] Reducing values from 1 chunks ... 1529s [00:52:09.118] - Number of values collected after concatenation: 2 1529s [00:52:09.118] - Number of values expected: 2 1529s [00:52:09.118] Reducing values from 1 chunks ... DONE 1529s [00:52:09.118] future_lapply() ... DONE 1529s [[1]] 1529s ...future.X_jj 1529s 1 3 7 1529s 2 1 1 1529s 1529s [[2]] 1529s ...future.X_jj 1529s 2 4 6 8 1529s 1 1 1 1 1529s 1529s [00:52:09.120] getGlobalsAndPackagesXApply() ... 1529s [00:52:09.120] - future.globals: TRUE 1529s [00:52:09.120] getGlobalsAndPackages() ... 1529s [00:52:09.121] Searching for globals... 1529s [00:52:09.174] - globals found: [59] ‘FUN’, ‘if’, ‘==’, ‘c’, ‘list.names’, ‘{’, ‘<-’, ‘[’, ‘as.list’, ‘substitute’, ‘-’, ‘&&’, ‘length’, ‘is.list’, ‘!’, ‘is.null’, ‘names’, ‘return’, ‘seq_along’, ‘vapply’, ‘switch’, ‘+’, ‘is.symbol’, ‘as.character’, ‘deparse’, ‘[<-’, ‘missing’, ‘match’, ‘match.arg’, ‘!=’, ‘warning’, ‘list’, ‘[[’, ‘paste’, ‘stop’, ‘integer’, ‘for’, ‘is.factor’, ‘anyNA’, ‘options’, ‘on.exit’, ‘factor’, ‘(’, ‘||’, ‘levels’, ‘as.integer’, ‘which’, ‘is.na’, ‘is.na<-’, ‘>’, ‘prod’, ‘$’, ‘.Machine’, ‘*’, ‘names<-’, ‘array’, ‘tabulate’, ‘class’, ‘class<-’ 1529s [00:52:09.175] Searching for globals ... DONE 1529s [00:52:09.175] Resolving globals: FALSE 1529s [00:52:09.177] The total size of the 1 globals is 345.92 KiB (354224 bytes) 1529s [00:52:09.178] The total size of the 1 globals exported for future expression (‘FUN(X = structure(c(1, 2, 3, 4, 1, 6, 7, 8), dim = c(2L, 4L)))’) is 345.92 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (345.92 KiB of class ‘function’) 1529s [00:52:09.178] - globals: [1] ‘FUN’ 1529s [00:52:09.178] 1529s [00:52:09.178] getGlobalsAndPackages() ... DONE 1529s [00:52:09.178] - globals found/used: [n=1] ‘FUN’ 1529s [00:52:09.178] - needed namespaces: [n=0] 1529s [00:52:09.179] Finding globals ... DONE 1529s [00:52:09.179] - use_args: TRUE 1529s [00:52:09.179] - Getting '...' globals ... 1529s [00:52:09.179] resolve() on list ... 1529s [00:52:09.179] recursive: 0 1529s [00:52:09.180] length: 1 1529s [00:52:09.180] elements: ‘...’ 1529s [00:52:09.180] length: 0 (resolved future 1) 1529s [00:52:09.181] resolve() on list ... DONE 1529s [00:52:09.181] - '...' content: [n=0] 1529s [00:52:09.181] List of 1 1529s [00:52:09.181] $ ...: list() 1529s [00:52:09.181] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1529s [00:52:09.181] - attr(*, "where")=List of 1 1529s [00:52:09.181] ..$ ...: 1529s [00:52:09.181] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1529s [00:52:09.181] - attr(*, "resolved")= logi TRUE 1529s [00:52:09.181] - attr(*, "total_size")= num NA 1529s [00:52:09.184] - Getting '...' globals ... DONE 1529s [00:52:09.185] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1529s [00:52:09.185] List of 2 1529s [00:52:09.185] $ ...future.FUN:function (..., exclude = if (useNA == "no") c(NA, NaN), useNA = c("no", 1529s [00:52:09.185] "ifany", "always"), dnn = list.names(...), deparse.level = 1) 1529s [00:52:09.185] $ ... : list() 1529s [00:52:09.185] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1529s [00:52:09.185] - attr(*, "where")=List of 2 1529s [00:52:09.185] ..$ ...future.FUN: 1529s [00:52:09.185] ..$ ... : 1529s [00:52:09.185] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1529s [00:52:09.185] - attr(*, "resolved")= logi FALSE 1529s [00:52:09.185] - attr(*, "total_size")= num 354224 1529s [00:52:09.188] Packages to be attached in all futures: [n=0] 1529s [00:52:09.188] getGlobalsAndPackagesXApply() ... DONE 1529s [00:52:09.192] future_lapply() ... 1529s [00:52:09.246] Number of chunks: 1 1529s [00:52:09.247] getGlobalsAndPackagesXApply() ... 1529s [00:52:09.247] - future.globals: with names ‘list()’ 1529s [00:52:09.247] - use_args: TRUE 1529s [00:52:09.247] Globals to be used in all futures (chunks): [n=2] ‘...’, ‘...future.FUN’ 1529s [00:52:09.247] List of 2 1529s [00:52:09.247] $ ... : list() 1529s [00:52:09.247] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1529s [00:52:09.247] $ ...future.FUN:function (..., exclude = if (useNA == "no") c(NA, NaN), useNA = c("no", 1529s [00:52:09.247] "ifany", "always"), dnn = list.names(...), deparse.level = 1) 1529s [00:52:09.247] - attr(*, "where")=List of 2 1529s [00:52:09.247] ..$ ... : 1529s [00:52:09.247] ..$ ...future.FUN: 1529s [00:52:09.247] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1529s [00:52:09.247] - attr(*, "resolved")= logi FALSE 1529s [00:52:09.247] - attr(*, "total_size")= num NA 1529s [00:52:09.253] Packages to be attached in all futures: [n=0] 1529s [00:52:09.253] getGlobalsAndPackagesXApply() ... DONE 1529s [00:52:09.253] Number of futures (= number of chunks): 1 1529s [00:52:09.254] Launching 1 futures (chunks) ... 1529s [00:52:09.254] Chunk #1 of 1 ... 1529s [00:52:09.254] - seeds: 1529s [00:52:09.254] - All globals exported: [n=5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1529s [00:52:09.254] getGlobalsAndPackages() ... 1529s [00:52:09.255] - globals passed as-is: [5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1529s [00:52:09.255] Resolving globals: FALSE 1529s [00:52:09.255] Tweak future expression to call with '...' arguments ... 1529s [00:52:09.255] { 1529s [00:52:09.255] do.call(function(...) { 1529s [00:52:09.255] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1529s [00:52:09.255] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1529s [00:52:09.255] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1529s [00:52:09.255] on.exit(options(oopts), add = TRUE) 1529s [00:52:09.255] } 1529s [00:52:09.255] { 1529s [00:52:09.255] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1529s [00:52:09.255] ...future.X_jj <- ...future.elements_ii[[jj]] 1529s [00:52:09.255] ...future.FUN(...future.X_jj, ...) 1529s [00:52:09.255] }) 1529s [00:52:09.255] } 1529s [00:52:09.255] }, args = future.call.arguments) 1529s [00:52:09.255] } 1529s [00:52:09.256] Tweak future expression to call with '...' arguments ... DONE 1529s [00:52:09.258] - globals: [5] ‘future.call.arguments’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1529s [00:52:09.258] 1529s [00:52:09.259] getGlobalsAndPackages() ... DONE 1529s [00:52:09.259] run() for ‘Future’ ... 1529s [00:52:09.259] - state: ‘created’ 1529s [00:52:09.260] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1529s [00:52:09.265] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1529s [00:52:09.265] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1529s [00:52:09.265] - Field: ‘label’ 1529s [00:52:09.265] - Field: ‘local’ 1529s [00:52:09.266] - Field: ‘owner’ 1529s [00:52:09.266] - Field: ‘envir’ 1529s [00:52:09.266] - Field: ‘packages’ 1529s [00:52:09.266] - Field: ‘gc’ 1529s [00:52:09.267] - Field: ‘conditions’ 1529s [00:52:09.267] - Field: ‘expr’ 1529s [00:52:09.267] - Field: ‘uuid’ 1529s [00:52:09.268] - Field: ‘seed’ 1529s [00:52:09.268] - Field: ‘version’ 1529s [00:52:09.268] - Field: ‘result’ 1529s [00:52:09.269] - Field: ‘asynchronous’ 1529s [00:52:09.269] - Field: ‘calls’ 1529s [00:52:09.269] - Field: ‘globals’ 1529s [00:52:09.270] - Field: ‘stdout’ 1529s [00:52:09.270] - Field: ‘earlySignal’ 1529s [00:52:09.270] - Field: ‘lazy’ 1529s [00:52:09.271] - Field: ‘state’ 1529s [00:52:09.271] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1529s [00:52:09.271] - Launch lazy future ... 1529s [00:52:09.272] Packages needed by the future expression (n = 0): 1529s [00:52:09.272] Packages needed by future strategies (n = 0): 1529s [00:52:09.273] { 1529s [00:52:09.273] { 1529s [00:52:09.273] { 1529s [00:52:09.273] ...future.startTime <- base::Sys.time() 1529s [00:52:09.273] { 1529s [00:52:09.273] { 1529s [00:52:09.273] { 1529s [00:52:09.273] base::local({ 1529s [00:52:09.273] has_future <- base::requireNamespace("future", 1529s [00:52:09.273] quietly = TRUE) 1529s [00:52:09.273] if (has_future) { 1529s [00:52:09.273] ns <- base::getNamespace("future") 1529s [00:52:09.273] version <- ns[[".package"]][["version"]] 1529s [00:52:09.273] if (is.null(version)) 1529s [00:52:09.273] version <- utils::packageVersion("future") 1529s [00:52:09.273] } 1529s [00:52:09.273] else { 1529s [00:52:09.273] version <- NULL 1529s [00:52:09.273] } 1529s [00:52:09.273] if (!has_future || version < "1.8.0") { 1529s [00:52:09.273] info <- base::c(r_version = base::gsub("R version ", 1529s [00:52:09.273] "", base::R.version$version.string), 1529s [00:52:09.273] platform = base::sprintf("%s (%s-bit)", 1529s [00:52:09.273] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1529s [00:52:09.273] os = base::paste(base::Sys.info()[base::c("sysname", 1529s [00:52:09.273] "release", "version")], collapse = " "), 1529s [00:52:09.273] hostname = base::Sys.info()[["nodename"]]) 1529s [00:52:09.273] info <- base::sprintf("%s: %s", base::names(info), 1529s [00:52:09.273] info) 1529s [00:52:09.273] info <- base::paste(info, collapse = "; ") 1529s [00:52:09.273] if (!has_future) { 1529s [00:52:09.273] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1529s [00:52:09.273] info) 1529s [00:52:09.273] } 1529s [00:52:09.273] else { 1529s [00:52:09.273] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1529s [00:52:09.273] info, version) 1529s [00:52:09.273] } 1529s [00:52:09.273] base::stop(msg) 1529s [00:52:09.273] } 1529s [00:52:09.273] }) 1529s [00:52:09.273] } 1529s [00:52:09.273] options(future.plan = NULL) 1529s [00:52:09.273] Sys.unsetenv("R_FUTURE_PLAN") 1529s [00:52:09.273] future::plan("default", .cleanup = FALSE, .init = FALSE) 1529s [00:52:09.273] } 1529s [00:52:09.273] ...future.workdir <- getwd() 1529s [00:52:09.273] } 1529s [00:52:09.273] ...future.oldOptions <- base::as.list(base::.Options) 1529s [00:52:09.273] ...future.oldEnvVars <- base::Sys.getenv() 1529s [00:52:09.273] } 1529s [00:52:09.273] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1529s [00:52:09.273] future.globals.maxSize = Inf, future.globals.method = NULL, 1529s [00:52:09.273] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1529s [00:52:09.273] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1529s [00:52:09.273] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1529s [00:52:09.273] future.stdout.windows.reencode = NULL, width = 80L) 1529s [00:52:09.273] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1529s [00:52:09.273] base::names(...future.oldOptions)) 1529s [00:52:09.273] } 1529s [00:52:09.273] if (FALSE) { 1529s [00:52:09.273] } 1529s [00:52:09.273] else { 1529s [00:52:09.273] if (TRUE) { 1529s [00:52:09.273] ...future.stdout <- base::rawConnection(base::raw(0L), 1529s [00:52:09.273] open = "w") 1529s [00:52:09.273] } 1529s [00:52:09.273] else { 1529s [00:52:09.273] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1529s [00:52:09.273] windows = "NUL", "/dev/null"), open = "w") 1529s [00:52:09.273] } 1529s [00:52:09.273] base::sink(...future.stdout, type = "output", split = FALSE) 1529s [00:52:09.273] base::on.exit(if (!base::is.null(...future.stdout)) { 1529s [00:52:09.273] base::sink(type = "output", split = FALSE) 1529s [00:52:09.273] base::close(...future.stdout) 1529s [00:52:09.273] }, add = TRUE) 1529s [00:52:09.273] } 1529s [00:52:09.273] ...future.frame <- base::sys.nframe() 1529s [00:52:09.273] ...future.conditions <- base::list() 1529s [00:52:09.273] ...future.rng <- base::globalenv()$.Random.seed 1529s [00:52:09.273] if (FALSE) { 1529s [00:52:09.273] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1529s [00:52:09.273] "...future.value", "...future.globalenv.names", ".Random.seed") 1529s [00:52:09.273] } 1529s [00:52:09.273] ...future.result <- base::tryCatch({ 1529s [00:52:09.273] base::withCallingHandlers({ 1529s [00:52:09.273] ...future.value <- base::withVisible(base::local({ 1529s [00:52:09.273] do.call(function(...) { 1529s [00:52:09.273] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1529s [00:52:09.273] if (!identical(...future.globals.maxSize.org, 1529s [00:52:09.273] ...future.globals.maxSize)) { 1529s [00:52:09.273] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1529s [00:52:09.273] on.exit(options(oopts), add = TRUE) 1529s [00:52:09.273] } 1529s [00:52:09.273] { 1529s [00:52:09.273] lapply(seq_along(...future.elements_ii), 1529s [00:52:09.273] FUN = function(jj) { 1529s [00:52:09.273] ...future.X_jj <- ...future.elements_ii[[jj]] 1529s [00:52:09.273] ...future.FUN(...future.X_jj, ...) 1529s [00:52:09.273] }) 1529s [00:52:09.273] } 1529s [00:52:09.273] }, args = future.call.arguments) 1529s [00:52:09.273] })) 1529s [00:52:09.273] future::FutureResult(value = ...future.value$value, 1529s [00:52:09.273] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1529s [00:52:09.273] ...future.rng), globalenv = if (FALSE) 1529s [00:52:09.273] list(added = base::setdiff(base::names(base::.GlobalEnv), 1529s [00:52:09.273] ...future.globalenv.names)) 1529s [00:52:09.273] else NULL, started = ...future.startTime, version = "1.8") 1529s [00:52:09.273] }, condition = base::local({ 1529s [00:52:09.273] c <- base::c 1529s [00:52:09.273] inherits <- base::inherits 1529s [00:52:09.273] invokeRestart <- base::invokeRestart 1529s [00:52:09.273] length <- base::length 1529s [00:52:09.273] list <- base::list 1529s [00:52:09.273] seq.int <- base::seq.int 1529s [00:52:09.273] signalCondition <- base::signalCondition 1529s [00:52:09.273] sys.calls <- base::sys.calls 1529s [00:52:09.273] `[[` <- base::`[[` 1529s [00:52:09.273] `+` <- base::`+` 1529s [00:52:09.273] `<<-` <- base::`<<-` 1529s [00:52:09.273] sysCalls <- function(calls = sys.calls(), from = 1L) { 1529s [00:52:09.273] calls[seq.int(from = from + 12L, to = length(calls) - 1529s [00:52:09.273] 3L)] 1529s [00:52:09.273] } 1529s [00:52:09.273] function(cond) { 1529s [00:52:09.273] is_error <- inherits(cond, "error") 1529s [00:52:09.273] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1529s [00:52:09.273] NULL) 1529s [00:52:09.273] if (is_error) { 1529s [00:52:09.273] sessionInformation <- function() { 1529s [00:52:09.273] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1529s [00:52:09.273] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1529s [00:52:09.273] search = base::search(), system = base::Sys.info()) 1529s [00:52:09.273] } 1529s [00:52:09.273] ...future.conditions[[length(...future.conditions) + 1529s [00:52:09.273] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1529s [00:52:09.273] cond$call), session = sessionInformation(), 1529s [00:52:09.273] timestamp = base::Sys.time(), signaled = 0L) 1529s [00:52:09.273] signalCondition(cond) 1529s [00:52:09.273] } 1529s [00:52:09.273] else if (!ignore && TRUE && inherits(cond, c("condition", 1529s [00:52:09.273] "immediateCondition"))) { 1529s [00:52:09.273] signal <- TRUE && inherits(cond, "immediateCondition") 1529s [00:52:09.273] ...future.conditions[[length(...future.conditions) + 1529s [00:52:09.273] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1529s [00:52:09.273] if (TRUE && !signal) { 1529s [00:52:09.273] muffleCondition <- function (cond, pattern = "^muffle") 1529s [00:52:09.273] { 1529s [00:52:09.273] inherits <- base::inherits 1529s [00:52:09.273] invokeRestart <- base::invokeRestart 1529s [00:52:09.273] is.null <- base::is.null 1529s [00:52:09.273] muffled <- FALSE 1529s [00:52:09.273] if (inherits(cond, "message")) { 1529s [00:52:09.273] muffled <- grepl(pattern, "muffleMessage") 1529s [00:52:09.273] if (muffled) 1529s [00:52:09.273] invokeRestart("muffleMessage") 1529s [00:52:09.273] } 1529s [00:52:09.273] else if (inherits(cond, "warning")) { 1529s [00:52:09.273] muffled <- grepl(pattern, "muffleWarning") 1529s [00:52:09.273] if (muffled) 1529s [00:52:09.273] invokeRestart("muffleWarning") 1529s [00:52:09.273] } 1529s [00:52:09.273] else if (inherits(cond, "condition")) { 1529s [00:52:09.273] if (!is.null(pattern)) { 1529s [00:52:09.273] computeRestarts <- base::computeRestarts 1529s [00:52:09.273] grepl <- base::grepl 1529s [00:52:09.273] restarts <- computeRestarts(cond) 1529s [00:52:09.273] for (restart in restarts) { 1529s [00:52:09.273] name <- restart$name 1529s [00:52:09.273] if (is.null(name)) 1529s [00:52:09.273] next 1529s [00:52:09.273] if (!grepl(pattern, name)) 1529s [00:52:09.273] next 1529s [00:52:09.273] invokeRestart(restart) 1529s [00:52:09.273] muffled <- TRUE 1529s [00:52:09.273] break 1529s [00:52:09.273] } 1529s [00:52:09.273] } 1529s [00:52:09.273] } 1529s [00:52:09.273] invisible(muffled) 1529s [00:52:09.273] } 1529s [00:52:09.273] muffleCondition(cond, pattern = "^muffle") 1529s [00:52:09.273] } 1529s [00:52:09.273] } 1529s [00:52:09.273] else { 1529s [00:52:09.273] if (TRUE) { 1529s [00:52:09.273] muffleCondition <- function (cond, pattern = "^muffle") 1529s [00:52:09.273] { 1529s [00:52:09.273] inherits <- base::inherits 1529s [00:52:09.273] invokeRestart <- base::invokeRestart 1529s [00:52:09.273] is.null <- base::is.null 1529s [00:52:09.273] muffled <- FALSE 1529s [00:52:09.273] if (inherits(cond, "message")) { 1529s [00:52:09.273] muffled <- grepl(pattern, "muffleMessage") 1529s [00:52:09.273] if (muffled) 1529s [00:52:09.273] invokeRestart("muffleMessage") 1529s [00:52:09.273] } 1529s [00:52:09.273] else if (inherits(cond, "warning")) { 1529s [00:52:09.273] muffled <- grepl(pattern, "muffleWarning") 1529s [00:52:09.273] if (muffled) 1529s [00:52:09.273] invokeRestart("muffleWarning") 1529s [00:52:09.273] } 1529s [00:52:09.273] else if (inherits(cond, "condition")) { 1529s [00:52:09.273] if (!is.null(pattern)) { 1529s [00:52:09.273] computeRestarts <- base::computeRestarts 1529s [00:52:09.273] grepl <- base::grepl 1529s [00:52:09.273] restarts <- computeRestarts(cond) 1529s [00:52:09.273] for (restart in restarts) { 1529s [00:52:09.273] name <- restart$name 1529s [00:52:09.273] if (is.null(name)) 1529s [00:52:09.273] next 1529s [00:52:09.273] if (!grepl(pattern, name)) 1529s [00:52:09.273] next 1529s [00:52:09.273] invokeRestart(restart) 1529s [00:52:09.273] muffled <- TRUE 1529s [00:52:09.273] break 1529s [00:52:09.273] } 1529s [00:52:09.273] } 1529s [00:52:09.273] } 1529s [00:52:09.273] invisible(muffled) 1529s [00:52:09.273] } 1529s [00:52:09.273] muffleCondition(cond, pattern = "^muffle") 1529s [00:52:09.273] } 1529s [00:52:09.273] } 1529s [00:52:09.273] } 1529s [00:52:09.273] })) 1529s [00:52:09.273] }, error = function(ex) { 1529s [00:52:09.273] base::structure(base::list(value = NULL, visible = NULL, 1529s [00:52:09.273] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1529s [00:52:09.273] ...future.rng), started = ...future.startTime, 1529s [00:52:09.273] finished = Sys.time(), session_uuid = NA_character_, 1529s [00:52:09.273] version = "1.8"), class = "FutureResult") 1529s [00:52:09.273] }, finally = { 1529s [00:52:09.273] if (!identical(...future.workdir, getwd())) 1529s [00:52:09.273] setwd(...future.workdir) 1529s [00:52:09.273] { 1529s [00:52:09.273] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1529s [00:52:09.273] ...future.oldOptions$nwarnings <- NULL 1529s [00:52:09.273] } 1529s [00:52:09.273] base::options(...future.oldOptions) 1529s [00:52:09.273] if (.Platform$OS.type == "windows") { 1529s [00:52:09.273] old_names <- names(...future.oldEnvVars) 1529s [00:52:09.273] envs <- base::Sys.getenv() 1529s [00:52:09.273] names <- names(envs) 1529s [00:52:09.273] common <- intersect(names, old_names) 1529s [00:52:09.273] added <- setdiff(names, old_names) 1529s [00:52:09.273] removed <- setdiff(old_names, names) 1529s [00:52:09.273] changed <- common[...future.oldEnvVars[common] != 1529s [00:52:09.273] envs[common]] 1529s [00:52:09.273] NAMES <- toupper(changed) 1529s [00:52:09.273] args <- list() 1529s [00:52:09.273] for (kk in seq_along(NAMES)) { 1529s [00:52:09.273] name <- changed[[kk]] 1529s [00:52:09.273] NAME <- NAMES[[kk]] 1529s [00:52:09.273] if (name != NAME && is.element(NAME, old_names)) 1529s [00:52:09.273] next 1529s [00:52:09.273] args[[name]] <- ...future.oldEnvVars[[name]] 1529s [00:52:09.273] } 1529s [00:52:09.273] NAMES <- toupper(added) 1529s [00:52:09.273] for (kk in seq_along(NAMES)) { 1529s [00:52:09.273] name <- added[[kk]] 1529s [00:52:09.273] NAME <- NAMES[[kk]] 1529s [00:52:09.273] if (name != NAME && is.element(NAME, old_names)) 1529s [00:52:09.273] next 1529s [00:52:09.273] args[[name]] <- "" 1529s [00:52:09.273] } 1529s [00:52:09.273] NAMES <- toupper(removed) 1529s [00:52:09.273] for (kk in seq_along(NAMES)) { 1529s [00:52:09.273] name <- removed[[kk]] 1529s [00:52:09.273] NAME <- NAMES[[kk]] 1529s [00:52:09.273] if (name != NAME && is.element(NAME, old_names)) 1529s [00:52:09.273] next 1529s [00:52:09.273] args[[name]] <- ...future.oldEnvVars[[name]] 1529s [00:52:09.273] } 1529s [00:52:09.273] if (length(args) > 0) 1529s [00:52:09.273] base::do.call(base::Sys.setenv, args = args) 1529s [00:52:09.273] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1529s [00:52:09.273] } 1529s [00:52:09.273] else { 1529s [00:52:09.273] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1529s [00:52:09.273] } 1529s [00:52:09.273] { 1529s [00:52:09.273] if (base::length(...future.futureOptionsAdded) > 1529s [00:52:09.273] 0L) { 1529s [00:52:09.273] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1529s [00:52:09.273] base::names(opts) <- ...future.futureOptionsAdded 1529s [00:52:09.273] base::options(opts) 1529s [00:52:09.273] } 1529s [00:52:09.273] { 1529s [00:52:09.273] { 1529s [00:52:09.273] base::assign(".Random.seed", c(10407L, -235817339L, 1529s [00:52:09.273] -918112653L, 1726940932L, 2039504800L, -2077827493L, 1529s [00:52:09.273] -666439689L), envir = base::globalenv(), 1529s [00:52:09.273] inherits = FALSE) 1529s [00:52:09.273] NULL 1529s [00:52:09.273] } 1529s [00:52:09.273] options(future.plan = NULL) 1529s [00:52:09.273] if (is.na(NA_character_)) 1529s [00:52:09.273] Sys.unsetenv("R_FUTURE_PLAN") 1529s [00:52:09.273] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1529s [00:52:09.273] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1529s [00:52:09.273] envir = parent.frame()) 1529s [00:52:09.273] { 1529s [00:52:09.273] default_workers <- missing(workers) 1529s [00:52:09.273] if (is.function(workers)) 1529s [00:52:09.273] workers <- workers() 1529s [00:52:09.273] workers <- structure(as.integer(workers), 1529s [00:52:09.273] class = class(workers)) 1529s [00:52:09.273] stop_if_not(is.finite(workers), workers >= 1529s [00:52:09.273] 1L) 1529s [00:52:09.273] if ((workers == 1L && !inherits(workers, 1529s [00:52:09.273] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1529s [00:52:09.273] if (default_workers) 1529s [00:52:09.273] supportsMulticore(warn = TRUE) 1529s [00:52:09.273] return(sequential(..., envir = envir)) 1529s [00:52:09.273] } 1529s [00:52:09.273] oopts <- options(mc.cores = workers) 1529s [00:52:09.273] on.exit(options(oopts)) 1529s [00:52:09.273] future <- MulticoreFuture(..., workers = workers, 1529s [00:52:09.273] envir = envir) 1529s [00:52:09.273] if (!future$lazy) 1529s [00:52:09.273] future <- run(future) 1529s [00:52:09.273] invisible(future) 1529s [00:52:09.273] }), .cleanup = FALSE, .init = FALSE) 1529s [00:52:09.273] } 1529s [00:52:09.273] } 1529s [00:52:09.273] } 1529s [00:52:09.273] }) 1529s [00:52:09.273] if (TRUE) { 1529s [00:52:09.273] base::sink(type = "output", split = FALSE) 1529s [00:52:09.273] if (TRUE) { 1529s [00:52:09.273] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1529s [00:52:09.273] } 1529s [00:52:09.273] else { 1529s [00:52:09.273] ...future.result["stdout"] <- base::list(NULL) 1529s [00:52:09.273] } 1529s [00:52:09.273] base::close(...future.stdout) 1529s [00:52:09.273] ...future.stdout <- NULL 1529s [00:52:09.273] } 1529s [00:52:09.273] ...future.result$conditions <- ...future.conditions 1529s [00:52:09.273] ...future.result$finished <- base::Sys.time() 1529s [00:52:09.273] ...future.result 1529s [00:52:09.273] } 1529s [00:52:09.278] assign_globals() ... 1529s [00:52:09.278] List of 5 1529s [00:52:09.278] $ future.call.arguments : list() 1529s [00:52:09.278] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1529s [00:52:09.278] $ ...future.FUN :function (..., exclude = if (useNA == "no") c(NA, NaN), useNA = c("no", 1529s [00:52:09.278] "ifany", "always"), dnn = list.names(...), deparse.level = 1) 1529s [00:52:09.278] $ ...future.elements_ii :List of 2 1529s [00:52:09.278] ..$ : num [1:4] 1 3 1 7 1529s [00:52:09.278] ..$ : num [1:4] 2 4 6 8 1529s [00:52:09.278] $ ...future.seeds_ii : NULL 1529s [00:52:09.278] $ ...future.globals.maxSize: num Inf 1529s [00:52:09.278] - attr(*, "resolved")= logi FALSE 1529s [00:52:09.278] - attr(*, "total_size")= num NA 1529s [00:52:09.278] - attr(*, "where")=List of 5 1529s [00:52:09.278] ..$ future.call.arguments : 1529s [00:52:09.278] ..$ ...future.FUN : 1529s [00:52:09.278] ..$ ...future.elements_ii : 1529s [00:52:09.278] ..$ ...future.seeds_ii : 1529s [00:52:09.278] ..$ ...future.globals.maxSize: 1529s [00:52:09.278] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1529s [00:52:09.278] - attr(*, "already-done")= logi TRUE 1529s [00:52:09.288] - copied ‘future.call.arguments’ to environment 1529s [00:52:09.288] - copied ‘...future.FUN’ to environment 1529s [00:52:09.288] - copied ‘...future.elements_ii’ to environment 1529s [00:52:09.288] - copied ‘...future.seeds_ii’ to environment 1529s [00:52:09.288] - copied ‘...future.globals.maxSize’ to environment 1529s [00:52:09.288] assign_globals() ... done 1529s [00:52:09.289] plan(): Setting new future strategy stack: 1529s [00:52:09.289] List of future strategies: 1529s [00:52:09.289] 1. sequential: 1529s [00:52:09.289] - args: function (..., envir = parent.frame()) 1529s [00:52:09.289] - tweaked: FALSE 1529s [00:52:09.289] - call: NULL 1529s [00:52:09.289] plan(): nbrOfWorkers() = 1 1529s [00:52:09.290] plan(): Setting new future strategy stack: 1529s [00:52:09.291] List of future strategies: 1529s [00:52:09.291] 1. multicore: 1529s [00:52:09.291] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1529s [00:52:09.291] - tweaked: FALSE 1529s [00:52:09.291] - call: plan(strategy) 1529s [00:52:09.294] plan(): nbrOfWorkers() = 1 1529s [00:52:09.294] SequentialFuture started (and completed) 1529s [00:52:09.295] - Launch lazy future ... done 1529s [00:52:09.295] run() for ‘SequentialFuture’ ... done 1529s [00:52:09.295] Created future: 1529s [00:52:09.295] SequentialFuture: 1529s [00:52:09.295] Label: ‘future_apply-1’ 1529s [00:52:09.295] Expression: 1529s [00:52:09.295] { 1529s [00:52:09.295] do.call(function(...) { 1529s [00:52:09.295] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1529s [00:52:09.295] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1529s [00:52:09.295] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1529s [00:52:09.295] on.exit(options(oopts), add = TRUE) 1529s [00:52:09.295] } 1529s [00:52:09.295] { 1529s [00:52:09.295] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1529s [00:52:09.295] ...future.X_jj <- ...future.elements_ii[[jj]] 1529s [00:52:09.295] ...future.FUN(...future.X_jj, ...) 1529s [00:52:09.295] }) 1529s [00:52:09.295] } 1529s [00:52:09.295] }, args = future.call.arguments) 1529s [00:52:09.295] } 1529s [00:52:09.295] Lazy evaluation: FALSE 1529s [00:52:09.295] Asynchronous evaluation: FALSE 1529s [00:52:09.295] Local evaluation: TRUE 1529s [00:52:09.295] Environment: R_GlobalEnv 1529s [00:52:09.295] Capture standard output: TRUE 1529s [00:52:09.295] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1529s [00:52:09.295] Globals: 5 objects totaling 346.13 KiB (DotDotDotList ‘future.call.arguments’ of 0 bytes, function ‘...future.FUN’ of 345.92 KiB, list ‘...future.elements_ii’ of 160 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1529s [00:52:09.295] Packages: 1529s [00:52:09.295] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1529s [00:52:09.295] Resolved: TRUE 1529s [00:52:09.295] Value: 2.21 KiB of class ‘list’ 1529s [00:52:09.295] Early signaling: FALSE 1529s [00:52:09.295] Owner process: 856348fc-72a5-ec0b-63b7-1a3640a93e42 1529s [00:52:09.295] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1529s [00:52:09.297] Chunk #1 of 1 ... DONE 1529s [00:52:09.297] Launching 1 futures (chunks) ... DONE 1529s [00:52:09.297] Resolving 1 futures (chunks) ... 1529s [00:52:09.297] resolve() on list ... 1529s [00:52:09.298] recursive: 0 1529s [00:52:09.298] length: 1 1529s [00:52:09.298] 1529s [00:52:09.298] resolved() for ‘SequentialFuture’ ... 1529s [00:52:09.298] - state: ‘finished’ 1529s [00:52:09.298] - run: TRUE 1529s [00:52:09.298] - result: ‘FutureResult’ 1529s [00:52:09.298] resolved() for ‘SequentialFuture’ ... done 1529s [00:52:09.299] Future #1 1529s [00:52:09.299] signalConditionsASAP(SequentialFuture, pos=1) ... 1529s [00:52:09.299] - nx: 1 1529s [00:52:09.299] - relay: TRUE 1529s [00:52:09.299] - stdout: TRUE 1529s [00:52:09.299] - signal: TRUE 1529s [00:52:09.299] - resignal: FALSE 1529s [00:52:09.299] - force: TRUE 1529s [00:52:09.300] - relayed: [n=1] FALSE 1529s [00:52:09.300] - queued futures: [n=1] FALSE 1529s [00:52:09.300] - until=1 1529s [00:52:09.300] - relaying element #1 1529s [00:52:09.300] - relayed: [n=1] TRUE 1529s [00:52:09.301] - queued futures: [n=1] TRUE 1529s [00:52:09.301] signalConditionsASAP(SequentialFuture, pos=1) ... done 1529s [00:52:09.301] length: 0 (resolved future 1) 1529s [00:52:09.301] Relaying remaining futures 1529s [00:52:09.301] signalConditionsASAP(NULL, pos=0) ... 1529s [00:52:09.301] - nx: 1 1529s [00:52:09.301] - relay: TRUE 1529s [00:52:09.302] - stdout: TRUE 1529s [00:52:09.302] - signal: TRUE 1529s [00:52:09.302] - resignal: FALSE 1529s [00:52:09.302] - force: TRUE 1529s [00:52:09.302] - relayed: [n=1] TRUE 1529s [00:52:09.302] - queued futures: [n=1] TRUE 1529s - flush all 1529s [00:52:09.302] - relayed: [n=1] TRUE 1529s [00:52:09.302] - queued futures: [n=1] TRUE 1529s [00:52:09.303] signalConditionsASAP(NULL, pos=0) ... done 1529s [00:52:09.303] resolve() on list ... DONE 1529s [00:52:09.303] - Number of value chunks collected: 1 1529s [00:52:09.303] Resolving 1 futures (chunks) ... DONE 1529s [00:52:09.303] Reducing values from 1 chunks ... 1529s [00:52:09.303] - Number of values collected after concatenation: 2 1529s [00:52:09.303] - Number of values expected: 2 1529s [00:52:09.303] Reducing values from 1 chunks ... DONE 1529s [00:52:09.304] future_lapply() ... DONE 1529s [[1]] 1529s ...future.X_jj 1529s 1 3 7 1529s 2 1 1 1529s 1529s [[2]] 1529s ...future.X_jj 1529s 2 4 6 8 1529s 1 1 1 1 1529s 1529s [00:52:09.307] getGlobalsAndPackagesXApply() ... 1529s [00:52:09.307] - future.globals: TRUE 1529s [00:52:09.307] getGlobalsAndPackages() ... 1529s [00:52:09.308] Searching for globals... 1529s [00:52:09.309] - globals found: [2] ‘FUN’, ‘UseMethod’ 1529s [00:52:09.310] Searching for globals ... DONE 1529s [00:52:09.310] Resolving globals: FALSE 1529s [00:52:09.310] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1529s [00:52:09.311] The total size of the 1 globals exported for future expression (‘FUN(X = structure(c(1, 2, 3, 4, 1, 6, 7, 8), dim = c(2L, 4L)))’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1529s [00:52:09.311] - globals: [1] ‘FUN’ 1529s [00:52:09.311] - packages: [1] ‘stats’ 1529s [00:52:09.311] getGlobalsAndPackages() ... DONE 1529s [00:52:09.311] - globals found/used: [n=1] ‘FUN’ 1529s [00:52:09.312] - needed namespaces: [n=1] ‘stats’ 1529s [00:52:09.312] Finding globals ... DONE 1529s [00:52:09.312] - use_args: TRUE 1529s [00:52:09.312] - Getting '...' globals ... 1529s [00:52:09.313] resolve() on list ... 1529s [00:52:09.313] recursive: 0 1529s [00:52:09.313] length: 1 1529s [00:52:09.313] elements: ‘...’ 1529s [00:52:09.313] length: 0 (resolved future 1) 1529s [00:52:09.313] resolve() on list ... DONE 1529s [00:52:09.313] - '...' content: [n=0] 1529s [00:52:09.314] List of 1 1529s [00:52:09.314] $ ...: list() 1529s [00:52:09.314] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1529s [00:52:09.314] - attr(*, "where")=List of 1 1529s [00:52:09.314] ..$ ...: 1529s [00:52:09.314] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1529s [00:52:09.314] - attr(*, "resolved")= logi TRUE 1529s [00:52:09.314] - attr(*, "total_size")= num NA 1529s [00:52:09.317] - Getting '...' globals ... DONE 1529s [00:52:09.317] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1529s [00:52:09.317] List of 2 1529s [00:52:09.317] $ ...future.FUN:function (x, ...) 1529s [00:52:09.317] $ ... : list() 1529s [00:52:09.317] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1529s [00:52:09.317] - attr(*, "where")=List of 2 1529s [00:52:09.317] ..$ ...future.FUN: 1529s [00:52:09.317] ..$ ... : 1529s [00:52:09.317] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1529s [00:52:09.317] - attr(*, "resolved")= logi FALSE 1529s [00:52:09.317] - attr(*, "total_size")= num 1248 1529s [00:52:09.321] Packages to be attached in all futures: [n=1] ‘stats’ 1529s [00:52:09.321] getGlobalsAndPackagesXApply() ... DONE 1529s [00:52:09.324] future_lapply() ... 1529s [00:52:09.327] Number of chunks: 1 1529s [00:52:09.327] getGlobalsAndPackagesXApply() ... 1529s [00:52:09.328] - future.globals: with names ‘list()’ 1529s [00:52:09.328] - use_args: TRUE 1529s [00:52:09.328] Globals to be used in all futures (chunks): [n=2] ‘...’, ‘...future.FUN’ 1529s [00:52:09.328] List of 2 1529s [00:52:09.328] $ ... : list() 1529s [00:52:09.328] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1529s [00:52:09.328] $ ...future.FUN:function (x, ...) 1529s [00:52:09.328] - attr(*, "where")=List of 2 1529s [00:52:09.328] ..$ ... : 1529s [00:52:09.328] ..$ ...future.FUN: 1529s [00:52:09.328] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1529s [00:52:09.328] - attr(*, "resolved")= logi FALSE 1529s [00:52:09.328] - attr(*, "total_size")= num NA 1529s [00:52:09.332] Packages to be attached in all futures: [n=1] ‘stats’ 1529s [00:52:09.332] getGlobalsAndPackagesXApply() ... DONE 1529s [00:52:09.332] Number of futures (= number of chunks): 1 1529s [00:52:09.332] Launching 1 futures (chunks) ... 1529s [00:52:09.332] Chunk #1 of 1 ... 1529s [00:52:09.332] - seeds: 1529s [00:52:09.333] - All globals exported: [n=5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1529s [00:52:09.333] getGlobalsAndPackages() ... 1529s [00:52:09.333] - globals passed as-is: [5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1529s [00:52:09.333] Resolving globals: FALSE 1529s [00:52:09.333] Tweak future expression to call with '...' arguments ... 1529s [00:52:09.333] { 1529s [00:52:09.333] do.call(function(...) { 1529s [00:52:09.333] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1529s [00:52:09.333] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1529s [00:52:09.333] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1529s [00:52:09.333] on.exit(options(oopts), add = TRUE) 1529s [00:52:09.333] } 1529s [00:52:09.333] { 1529s [00:52:09.333] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1529s [00:52:09.333] ...future.X_jj <- ...future.elements_ii[[jj]] 1529s [00:52:09.333] ...future.FUN(...future.X_jj, ...) 1529s [00:52:09.333] }) 1529s [00:52:09.333] } 1529s [00:52:09.333] }, args = future.call.arguments) 1529s [00:52:09.333] } 1529s [00:52:09.334] Tweak future expression to call with '...' arguments ... DONE 1529s [00:52:09.334] - globals: [5] ‘future.call.arguments’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1529s [00:52:09.335] - packages: [1] ‘stats’ 1529s [00:52:09.335] getGlobalsAndPackages() ... DONE 1529s [00:52:09.335] run() for ‘Future’ ... 1529s [00:52:09.335] - state: ‘created’ 1529s [00:52:09.335] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1529s [00:52:09.339] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1529s [00:52:09.339] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1529s [00:52:09.339] - Field: ‘label’ 1529s [00:52:09.339] - Field: ‘local’ 1529s [00:52:09.339] - Field: ‘owner’ 1529s [00:52:09.340] - Field: ‘envir’ 1529s [00:52:09.340] - Field: ‘packages’ 1529s [00:52:09.340] - Field: ‘gc’ 1529s [00:52:09.340] - Field: ‘conditions’ 1529s [00:52:09.341] - Field: ‘expr’ 1529s [00:52:09.342] - Field: ‘uuid’ 1529s [00:52:09.342] - Field: ‘seed’ 1529s [00:52:09.342] - Field: ‘version’ 1529s [00:52:09.342] - Field: ‘result’ 1529s [00:52:09.342] - Field: ‘asynchronous’ 1529s [00:52:09.342] - Field: ‘calls’ 1529s [00:52:09.343] - Field: ‘globals’ 1529s [00:52:09.343] - Field: ‘stdout’ 1529s [00:52:09.343] - Field: ‘earlySignal’ 1529s [00:52:09.343] - Field: ‘lazy’ 1529s [00:52:09.343] - Field: ‘state’ 1529s [00:52:09.343] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1529s [00:52:09.343] - Launch lazy future ... 1529s [00:52:09.344] Packages needed by the future expression (n = 1): ‘stats’ 1529s [00:52:09.344] Packages needed by future strategies (n = 0): 1529s [00:52:09.344] { 1529s [00:52:09.344] { 1529s [00:52:09.344] { 1529s [00:52:09.344] ...future.startTime <- base::Sys.time() 1529s [00:52:09.344] { 1529s [00:52:09.344] { 1529s [00:52:09.344] { 1529s [00:52:09.344] { 1529s [00:52:09.344] base::local({ 1529s [00:52:09.344] has_future <- base::requireNamespace("future", 1529s [00:52:09.344] quietly = TRUE) 1529s [00:52:09.344] if (has_future) { 1529s [00:52:09.344] ns <- base::getNamespace("future") 1529s [00:52:09.344] version <- ns[[".package"]][["version"]] 1529s [00:52:09.344] if (is.null(version)) 1529s [00:52:09.344] version <- utils::packageVersion("future") 1529s [00:52:09.344] } 1529s [00:52:09.344] else { 1529s [00:52:09.344] version <- NULL 1529s [00:52:09.344] } 1529s [00:52:09.344] if (!has_future || version < "1.8.0") { 1529s [00:52:09.344] info <- base::c(r_version = base::gsub("R version ", 1529s [00:52:09.344] "", base::R.version$version.string), 1529s [00:52:09.344] platform = base::sprintf("%s (%s-bit)", 1529s [00:52:09.344] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1529s [00:52:09.344] os = base::paste(base::Sys.info()[base::c("sysname", 1529s [00:52:09.344] "release", "version")], collapse = " "), 1529s [00:52:09.344] hostname = base::Sys.info()[["nodename"]]) 1529s [00:52:09.344] info <- base::sprintf("%s: %s", base::names(info), 1529s [00:52:09.344] info) 1529s [00:52:09.344] info <- base::paste(info, collapse = "; ") 1529s [00:52:09.344] if (!has_future) { 1529s [00:52:09.344] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1529s [00:52:09.344] info) 1529s [00:52:09.344] } 1529s [00:52:09.344] else { 1529s [00:52:09.344] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1529s [00:52:09.344] info, version) 1529s [00:52:09.344] } 1529s [00:52:09.344] base::stop(msg) 1529s [00:52:09.344] } 1529s [00:52:09.344] }) 1529s [00:52:09.344] } 1529s [00:52:09.344] base::local({ 1529s [00:52:09.344] for (pkg in "stats") { 1529s [00:52:09.344] base::loadNamespace(pkg) 1529s [00:52:09.344] base::library(pkg, character.only = TRUE) 1529s [00:52:09.344] } 1529s [00:52:09.344] }) 1529s [00:52:09.344] } 1529s [00:52:09.344] options(future.plan = NULL) 1529s [00:52:09.344] Sys.unsetenv("R_FUTURE_PLAN") 1529s [00:52:09.344] future::plan("default", .cleanup = FALSE, .init = FALSE) 1529s [00:52:09.344] } 1529s [00:52:09.344] ...future.workdir <- getwd() 1529s [00:52:09.344] } 1529s [00:52:09.344] ...future.oldOptions <- base::as.list(base::.Options) 1529s [00:52:09.344] ...future.oldEnvVars <- base::Sys.getenv() 1529s [00:52:09.344] } 1529s [00:52:09.344] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1529s [00:52:09.344] future.globals.maxSize = Inf, future.globals.method = NULL, 1529s [00:52:09.344] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1529s [00:52:09.344] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1529s [00:52:09.344] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1529s [00:52:09.344] future.stdout.windows.reencode = NULL, width = 80L) 1529s [00:52:09.344] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1529s [00:52:09.344] base::names(...future.oldOptions)) 1529s [00:52:09.344] } 1529s [00:52:09.344] if (FALSE) { 1529s [00:52:09.344] } 1529s [00:52:09.344] else { 1529s [00:52:09.344] if (TRUE) { 1529s [00:52:09.344] ...future.stdout <- base::rawConnection(base::raw(0L), 1529s [00:52:09.344] open = "w") 1529s [00:52:09.344] } 1529s [00:52:09.344] else { 1529s [00:52:09.344] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1529s [00:52:09.344] windows = "NUL", "/dev/null"), open = "w") 1529s [00:52:09.344] } 1529s [00:52:09.344] base::sink(...future.stdout, type = "output", split = FALSE) 1529s [00:52:09.344] base::on.exit(if (!base::is.null(...future.stdout)) { 1529s [00:52:09.344] base::sink(type = "output", split = FALSE) 1529s [00:52:09.344] base::close(...future.stdout) 1529s [00:52:09.344] }, add = TRUE) 1529s [00:52:09.344] } 1529s [00:52:09.344] ...future.frame <- base::sys.nframe() 1529s [00:52:09.344] ...future.conditions <- base::list() 1529s [00:52:09.344] ...future.rng <- base::globalenv()$.Random.seed 1529s [00:52:09.344] if (FALSE) { 1529s [00:52:09.344] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1529s [00:52:09.344] "...future.value", "...future.globalenv.names", ".Random.seed") 1529s [00:52:09.344] } 1529s [00:52:09.344] ...future.result <- base::tryCatch({ 1529s [00:52:09.344] base::withCallingHandlers({ 1529s [00:52:09.344] ...future.value <- base::withVisible(base::local({ 1529s [00:52:09.344] do.call(function(...) { 1529s [00:52:09.344] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1529s [00:52:09.344] if (!identical(...future.globals.maxSize.org, 1529s [00:52:09.344] ...future.globals.maxSize)) { 1529s [00:52:09.344] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1529s [00:52:09.344] on.exit(options(oopts), add = TRUE) 1529s [00:52:09.344] } 1529s [00:52:09.344] { 1529s [00:52:09.344] lapply(seq_along(...future.elements_ii), 1529s [00:52:09.344] FUN = function(jj) { 1529s [00:52:09.344] ...future.X_jj <- ...future.elements_ii[[jj]] 1529s [00:52:09.344] ...future.FUN(...future.X_jj, ...) 1529s [00:52:09.344] }) 1529s [00:52:09.344] } 1529s [00:52:09.344] }, args = future.call.arguments) 1529s [00:52:09.344] })) 1529s [00:52:09.344] future::FutureResult(value = ...future.value$value, 1529s [00:52:09.344] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1529s [00:52:09.344] ...future.rng), globalenv = if (FALSE) 1529s [00:52:09.344] list(added = base::setdiff(base::names(base::.GlobalEnv), 1529s [00:52:09.344] ...future.globalenv.names)) 1529s [00:52:09.344] else NULL, started = ...future.startTime, version = "1.8") 1529s [00:52:09.344] }, condition = base::local({ 1529s [00:52:09.344] c <- base::c 1529s [00:52:09.344] inherits <- base::inherits 1529s [00:52:09.344] invokeRestart <- base::invokeRestart 1529s [00:52:09.344] length <- base::length 1529s [00:52:09.344] list <- base::list 1529s [00:52:09.344] seq.int <- base::seq.int 1529s [00:52:09.344] signalCondition <- base::signalCondition 1529s [00:52:09.344] sys.calls <- base::sys.calls 1529s [00:52:09.344] `[[` <- base::`[[` 1529s [00:52:09.344] `+` <- base::`+` 1529s [00:52:09.344] `<<-` <- base::`<<-` 1529s [00:52:09.344] sysCalls <- function(calls = sys.calls(), from = 1L) { 1529s [00:52:09.344] calls[seq.int(from = from + 12L, to = length(calls) - 1529s [00:52:09.344] 3L)] 1529s [00:52:09.344] } 1529s [00:52:09.344] function(cond) { 1529s [00:52:09.344] is_error <- inherits(cond, "error") 1529s [00:52:09.344] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1529s [00:52:09.344] NULL) 1529s [00:52:09.344] if (is_error) { 1529s [00:52:09.344] sessionInformation <- function() { 1529s [00:52:09.344] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1529s [00:52:09.344] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1529s [00:52:09.344] search = base::search(), system = base::Sys.info()) 1529s [00:52:09.344] } 1529s [00:52:09.344] ...future.conditions[[length(...future.conditions) + 1529s [00:52:09.344] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1529s [00:52:09.344] cond$call), session = sessionInformation(), 1529s [00:52:09.344] timestamp = base::Sys.time(), signaled = 0L) 1529s [00:52:09.344] signalCondition(cond) 1529s [00:52:09.344] } 1529s [00:52:09.344] else if (!ignore && TRUE && inherits(cond, c("condition", 1529s [00:52:09.344] "immediateCondition"))) { 1529s [00:52:09.344] signal <- TRUE && inherits(cond, "immediateCondition") 1529s [00:52:09.344] ...future.conditions[[length(...future.conditions) + 1529s [00:52:09.344] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1529s [00:52:09.344] if (TRUE && !signal) { 1529s [00:52:09.344] muffleCondition <- function (cond, pattern = "^muffle") 1529s [00:52:09.344] { 1529s [00:52:09.344] inherits <- base::inherits 1529s [00:52:09.344] invokeRestart <- base::invokeRestart 1529s [00:52:09.344] is.null <- base::is.null 1529s [00:52:09.344] muffled <- FALSE 1529s [00:52:09.344] if (inherits(cond, "message")) { 1529s [00:52:09.344] muffled <- grepl(pattern, "muffleMessage") 1529s [00:52:09.344] if (muffled) 1529s [00:52:09.344] invokeRestart("muffleMessage") 1529s [00:52:09.344] } 1529s [00:52:09.344] else if (inherits(cond, "warning")) { 1529s [00:52:09.344] muffled <- grepl(pattern, "muffleWarning") 1529s [00:52:09.344] if (muffled) 1529s [00:52:09.344] invokeRestart("muffleWarning") 1529s [00:52:09.344] } 1529s [00:52:09.344] else if (inherits(cond, "condition")) { 1529s [00:52:09.344] if (!is.null(pattern)) { 1529s [00:52:09.344] computeRestarts <- base::computeRestarts 1529s [00:52:09.344] grepl <- base::grepl 1529s [00:52:09.344] restarts <- computeRestarts(cond) 1529s [00:52:09.344] for (restart in restarts) { 1529s [00:52:09.344] name <- restart$name 1529s [00:52:09.344] if (is.null(name)) 1529s [00:52:09.344] next 1529s [00:52:09.344] if (!grepl(pattern, name)) 1529s [00:52:09.344] next 1529s [00:52:09.344] invokeRestart(restart) 1529s [00:52:09.344] muffled <- TRUE 1529s [00:52:09.344] break 1529s [00:52:09.344] } 1529s [00:52:09.344] } 1529s [00:52:09.344] } 1529s [00:52:09.344] invisible(muffled) 1529s [00:52:09.344] } 1529s [00:52:09.344] muffleCondition(cond, pattern = "^muffle") 1529s [00:52:09.344] } 1529s [00:52:09.344] } 1529s [00:52:09.344] else { 1529s [00:52:09.344] if (TRUE) { 1529s [00:52:09.344] muffleCondition <- function (cond, pattern = "^muffle") 1529s [00:52:09.344] { 1529s [00:52:09.344] inherits <- base::inherits 1529s [00:52:09.344] invokeRestart <- base::invokeRestart 1529s [00:52:09.344] is.null <- base::is.null 1529s [00:52:09.344] muffled <- FALSE 1529s [00:52:09.344] if (inherits(cond, "message")) { 1529s [00:52:09.344] muffled <- grepl(pattern, "muffleMessage") 1529s [00:52:09.344] if (muffled) 1529s [00:52:09.344] invokeRestart("muffleMessage") 1529s [00:52:09.344] } 1529s [00:52:09.344] else if (inherits(cond, "warning")) { 1529s [00:52:09.344] muffled <- grepl(pattern, "muffleWarning") 1529s [00:52:09.344] if (muffled) 1529s [00:52:09.344] invokeRestart("muffleWarning") 1529s [00:52:09.344] } 1529s [00:52:09.344] else if (inherits(cond, "condition")) { 1529s [00:52:09.344] if (!is.null(pattern)) { 1529s [00:52:09.344] computeRestarts <- base::computeRestarts 1529s [00:52:09.344] grepl <- base::grepl 1529s [00:52:09.344] restarts <- computeRestarts(cond) 1529s [00:52:09.344] for (restart in restarts) { 1529s [00:52:09.344] name <- restart$name 1529s [00:52:09.344] if (is.null(name)) 1529s [00:52:09.344] next 1529s [00:52:09.344] if (!grepl(pattern, name)) 1529s [00:52:09.344] next 1529s [00:52:09.344] invokeRestart(restart) 1529s [00:52:09.344] muffled <- TRUE 1529s [00:52:09.344] break 1529s [00:52:09.344] } 1529s [00:52:09.344] } 1529s [00:52:09.344] } 1529s [00:52:09.344] invisible(muffled) 1529s [00:52:09.344] } 1529s [00:52:09.344] muffleCondition(cond, pattern = "^muffle") 1529s [00:52:09.344] } 1529s [00:52:09.344] } 1529s [00:52:09.344] } 1529s [00:52:09.344] })) 1529s [00:52:09.344] }, error = function(ex) { 1529s [00:52:09.344] base::structure(base::list(value = NULL, visible = NULL, 1529s [00:52:09.344] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1529s [00:52:09.344] ...future.rng), started = ...future.startTime, 1529s [00:52:09.344] finished = Sys.time(), session_uuid = NA_character_, 1529s [00:52:09.344] version = "1.8"), class = "FutureResult") 1529s [00:52:09.344] }, finally = { 1529s [00:52:09.344] if (!identical(...future.workdir, getwd())) 1529s [00:52:09.344] setwd(...future.workdir) 1529s [00:52:09.344] { 1529s [00:52:09.344] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1529s [00:52:09.344] ...future.oldOptions$nwarnings <- NULL 1529s [00:52:09.344] } 1529s [00:52:09.344] base::options(...future.oldOptions) 1529s [00:52:09.344] if (.Platform$OS.type == "windows") { 1529s [00:52:09.344] old_names <- names(...future.oldEnvVars) 1529s [00:52:09.344] envs <- base::Sys.getenv() 1529s [00:52:09.344] names <- names(envs) 1529s [00:52:09.344] common <- intersect(names, old_names) 1529s [00:52:09.344] added <- setdiff(names, old_names) 1529s [00:52:09.344] removed <- setdiff(old_names, names) 1529s [00:52:09.344] changed <- common[...future.oldEnvVars[common] != 1529s [00:52:09.344] envs[common]] 1529s [00:52:09.344] NAMES <- toupper(changed) 1529s [00:52:09.344] args <- list() 1529s [00:52:09.344] for (kk in seq_along(NAMES)) { 1529s [00:52:09.344] name <- changed[[kk]] 1529s [00:52:09.344] NAME <- NAMES[[kk]] 1529s [00:52:09.344] if (name != NAME && is.element(NAME, old_names)) 1529s [00:52:09.344] next 1529s [00:52:09.344] args[[name]] <- ...future.oldEnvVars[[name]] 1529s [00:52:09.344] } 1529s [00:52:09.344] NAMES <- toupper(added) 1529s [00:52:09.344] for (kk in seq_along(NAMES)) { 1529s [00:52:09.344] name <- added[[kk]] 1529s [00:52:09.344] NAME <- NAMES[[kk]] 1529s [00:52:09.344] if (name != NAME && is.element(NAME, old_names)) 1529s [00:52:09.344] next 1529s [00:52:09.344] args[[name]] <- "" 1529s [00:52:09.344] } 1529s [00:52:09.344] NAMES <- toupper(removed) 1529s [00:52:09.344] for (kk in seq_along(NAMES)) { 1529s [00:52:09.344] name <- removed[[kk]] 1529s [00:52:09.344] NAME <- NAMES[[kk]] 1529s [00:52:09.344] if (name != NAME && is.element(NAME, old_names)) 1529s [00:52:09.344] next 1529s [00:52:09.344] args[[name]] <- ...future.oldEnvVars[[name]] 1529s [00:52:09.344] } 1529s [00:52:09.344] if (length(args) > 0) 1529s [00:52:09.344] base::do.call(base::Sys.setenv, args = args) 1529s [00:52:09.344] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1529s [00:52:09.344] } 1529s [00:52:09.344] else { 1529s [00:52:09.344] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1529s [00:52:09.344] } 1529s [00:52:09.344] { 1529s [00:52:09.344] if (base::length(...future.futureOptionsAdded) > 1529s [00:52:09.344] 0L) { 1529s [00:52:09.344] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1529s [00:52:09.344] base::names(opts) <- ...future.futureOptionsAdded 1529s [00:52:09.344] base::options(opts) 1529s [00:52:09.344] } 1529s [00:52:09.344] { 1529s [00:52:09.344] { 1529s [00:52:09.344] base::assign(".Random.seed", c(10407L, -235817339L, 1529s [00:52:09.344] -918112653L, 1726940932L, 2039504800L, -2077827493L, 1529s [00:52:09.344] -666439689L), envir = base::globalenv(), 1529s [00:52:09.344] inherits = FALSE) 1529s [00:52:09.344] NULL 1529s [00:52:09.344] } 1529s [00:52:09.344] options(future.plan = NULL) 1529s [00:52:09.344] if (is.na(NA_character_)) 1529s [00:52:09.344] Sys.unsetenv("R_FUTURE_PLAN") 1529s [00:52:09.344] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1529s [00:52:09.344] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1529s [00:52:09.344] envir = parent.frame()) 1529s [00:52:09.344] { 1529s [00:52:09.344] default_workers <- missing(workers) 1529s [00:52:09.344] if (is.function(workers)) 1529s [00:52:09.344] workers <- workers() 1529s [00:52:09.344] workers <- structure(as.integer(workers), 1529s [00:52:09.344] class = class(workers)) 1529s [00:52:09.344] stop_if_not(is.finite(workers), workers >= 1529s [00:52:09.344] 1L) 1529s [00:52:09.344] if ((workers == 1L && !inherits(workers, 1529s [00:52:09.344] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1529s [00:52:09.344] if (default_workers) 1529s [00:52:09.344] supportsMulticore(warn = TRUE) 1529s [00:52:09.344] return(sequential(..., envir = envir)) 1529s [00:52:09.344] } 1529s [00:52:09.344] oopts <- options(mc.cores = workers) 1529s [00:52:09.344] on.exit(options(oopts)) 1529s [00:52:09.344] future <- MulticoreFuture(..., workers = workers, 1529s [00:52:09.344] envir = envir) 1529s [00:52:09.344] if (!future$lazy) 1529s [00:52:09.344] future <- run(future) 1529s [00:52:09.344] invisible(future) 1529s [00:52:09.344] }), .cleanup = FALSE, .init = FALSE) 1529s [00:52:09.344] } 1529s [00:52:09.344] } 1529s [00:52:09.344] } 1529s [00:52:09.344] }) 1529s [00:52:09.344] if (TRUE) { 1529s [00:52:09.344] base::sink(type = "output", split = FALSE) 1529s [00:52:09.344] if (TRUE) { 1529s [00:52:09.344] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1529s [00:52:09.344] } 1529s [00:52:09.344] else { 1529s [00:52:09.344] ...future.result["stdout"] <- base::list(NULL) 1529s [00:52:09.344] } 1529s [00:52:09.344] base::close(...future.stdout) 1529s [00:52:09.344] ...future.stdout <- NULL 1529s [00:52:09.344] } 1529s [00:52:09.344] ...future.result$conditions <- ...future.conditions 1529s [00:52:09.344] ...future.result$finished <- base::Sys.time() 1529s [00:52:09.344] ...future.result 1529s [00:52:09.344] } 1529s [00:52:09.347] assign_globals() ... 1529s [00:52:09.347] List of 5 1529s [00:52:09.347] $ future.call.arguments : list() 1529s [00:52:09.347] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1529s [00:52:09.347] $ ...future.FUN :function (x, ...) 1529s [00:52:09.347] $ ...future.elements_ii :List of 2 1529s [00:52:09.347] ..$ : num [1:4] 1 3 1 7 1529s [00:52:09.347] ..$ : num [1:4] 2 4 6 8 1529s [00:52:09.347] $ ...future.seeds_ii : NULL 1529s [00:52:09.347] $ ...future.globals.maxSize: num Inf 1529s [00:52:09.347] - attr(*, "resolved")= logi FALSE 1529s [00:52:09.347] - attr(*, "total_size")= num NA 1529s [00:52:09.347] - attr(*, "where")=List of 5 1529s [00:52:09.347] ..$ future.call.arguments : 1529s [00:52:09.347] ..$ ...future.FUN : 1529s [00:52:09.347] ..$ ...future.elements_ii : 1529s [00:52:09.347] ..$ ...future.seeds_ii : 1529s [00:52:09.347] ..$ ...future.globals.maxSize: 1529s [00:52:09.347] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1529s [00:52:09.347] - attr(*, "already-done")= logi TRUE 1529s [00:52:09.354] - copied ‘future.call.arguments’ to environment 1529s [00:52:09.354] - copied ‘...future.FUN’ to environment 1529s [00:52:09.354] - copied ‘...future.elements_ii’ to environment 1529s [00:52:09.354] - copied ‘...future.seeds_ii’ to environment 1529s [00:52:09.355] - copied ‘...future.globals.maxSize’ to environment 1529s [00:52:09.355] assign_globals() ... done 1529s [00:52:09.355] plan(): Setting new future strategy stack: 1529s [00:52:09.355] List of future strategies: 1529s [00:52:09.355] 1. sequential: 1529s [00:52:09.355] - args: function (..., envir = parent.frame()) 1529s [00:52:09.355] - tweaked: FALSE 1529s [00:52:09.355] - call: NULL 1529s [00:52:09.356] plan(): nbrOfWorkers() = 1 1529s [00:52:09.357] plan(): Setting new future strategy stack: 1529s [00:52:09.357] List of future strategies: 1529s [00:52:09.357] 1. multicore: 1529s [00:52:09.357] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1529s [00:52:09.357] - tweaked: FALSE 1529s [00:52:09.357] - call: plan(strategy) 1529s [00:52:09.360] plan(): nbrOfWorkers() = 1 1529s [00:52:09.360] SequentialFuture started (and completed) 1529s [00:52:09.361] - Launch lazy future ... done 1529s [00:52:09.361] run() for ‘SequentialFuture’ ... done 1529s [00:52:09.361] Created future: 1529s [00:52:09.361] SequentialFuture: 1529s [00:52:09.361] Label: ‘future_apply-1’ 1529s [00:52:09.361] Expression: 1529s [00:52:09.361] { 1529s [00:52:09.361] do.call(function(...) { 1529s [00:52:09.361] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1529s [00:52:09.361] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1529s [00:52:09.361] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1529s [00:52:09.361] on.exit(options(oopts), add = TRUE) 1529s [00:52:09.361] } 1529s [00:52:09.361] { 1529s [00:52:09.361] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1529s [00:52:09.361] ...future.X_jj <- ...future.elements_ii[[jj]] 1529s [00:52:09.361] ...future.FUN(...future.X_jj, ...) 1529s [00:52:09.361] }) 1529s [00:52:09.361] } 1529s [00:52:09.361] }, args = future.call.arguments) 1529s [00:52:09.361] } 1529s [00:52:09.361] Lazy evaluation: FALSE 1529s [00:52:09.361] Asynchronous evaluation: FALSE 1529s [00:52:09.361] Local evaluation: TRUE 1529s [00:52:09.361] Environment: R_GlobalEnv 1529s [00:52:09.361] Capture standard output: TRUE 1529s [00:52:09.361] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1529s [00:52:09.361] Globals: 5 objects totaling 1.43 KiB (DotDotDotList ‘future.call.arguments’ of 0 bytes, function ‘...future.FUN’ of 1.22 KiB, list ‘...future.elements_ii’ of 160 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1529s [00:52:09.361] Packages: 1 packages (‘stats’) 1529s [00:52:09.361] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1529s [00:52:09.361] Resolved: TRUE 1529s [00:52:09.361] Value: 1.14 KiB of class ‘list’ 1529s [00:52:09.361] Early signaling: FALSE 1529s [00:52:09.361] Owner process: 856348fc-72a5-ec0b-63b7-1a3640a93e42 1529s [00:52:09.361] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1529s [00:52:09.363] Chunk #1 of 1 ... DONE 1529s [00:52:09.363] Launching 1 futures (chunks) ... DONE 1529s [00:52:09.363] Resolving 1 futures (chunks) ... 1529s [00:52:09.363] resolve() on list ... 1529s [00:52:09.363] recursive: 0 1529s [00:52:09.363] length: 1 1529s [00:52:09.364] 1529s [00:52:09.364] resolved() for ‘SequentialFuture’ ... 1529s [00:52:09.364] - state: ‘finished’ 1529s [00:52:09.364] - run: TRUE 1529s [00:52:09.364] - result: ‘FutureResult’ 1529s [00:52:09.364] resolved() for ‘SequentialFuture’ ... done 1529s [00:52:09.364] Future #1 1529s [00:52:09.365] signalConditionsASAP(SequentialFuture, pos=1) ... 1529s [00:52:09.365] - nx: 1 1529s [00:52:09.365] - relay: TRUE 1529s [00:52:09.365] - stdout: TRUE 1529s [00:52:09.365] - signal: TRUE 1529s [00:52:09.365] - resignal: FALSE 1529s [00:52:09.365] - force: TRUE 1529s [00:52:09.366] - relayed: [n=1] FALSE 1529s [00:52:09.366] - queued futures: [n=1] FALSE 1529s [00:52:09.366] - until=1 1529s [00:52:09.366] - relaying element #1 1529s [00:52:09.366] - relayed: [n=1] TRUE 1529s [00:52:09.367] - queued futures: [n=1] TRUE 1529s [00:52:09.367] signalConditionsASAP(SequentialFuture, pos=1) ... done 1529s [00:52:09.367] length: 0 (resolved future 1) 1529s [00:52:09.367] Relaying remaining futures 1529s [00:52:09.367] signalConditionsASAP(NULL, pos=0) ... 1529s [00:52:09.367] - nx: 1 1529s [00:52:09.367] - relay: TRUE 1529s [00:52:09.368] - stdout: TRUE 1529s [00:52:09.368] - signal: TRUE 1529s [00:52:09.368] - resignal: FALSE 1529s [00:52:09.368] - force: TRUE 1529s [00:52:09.368] - relayed: [n=1] TRUE 1529s [00:52:09.368] - queued futures: [n=1] TRUE 1529s - flush all 1529s [00:52:09.368] - relayed: [n=1] TRUE 1529s [00:52:09.369] - queued futures: [n=1] TRUE 1529s [00:52:09.369] signalConditionsASAP(NULL, pos=0) ... done 1529s [00:52:09.369] resolve() on list ... DONE 1529s [00:52:09.369] - Number of value chunks collected: 1 1529s [00:52:09.369] Resolving 1 futures (chunks) ... DONE 1529s [00:52:09.369] Reducing values from 1 chunks ... 1529s [00:52:09.370] - Number of values collected after concatenation: 2 1529s [00:52:09.370] - Number of values expected: 2 1529s [00:52:09.370] Reducing values from 1 chunks ... DONE 1529s [00:52:09.370] future_lapply() ... DONE 1529s [,1] [,2] 1529s 0% 1 2.0 1529s 25% 1 3.5 1529s 50% 2 5.0 1529s 75% 4 6.5 1529s 100% 7 8.0 1529s [00:52:09.371] getGlobalsAndPackagesXApply() ... 1529s [00:52:09.371] - future.globals: TRUE 1529s [00:52:09.371] getGlobalsAndPackages() ... 1529s [00:52:09.371] Searching for globals... 1529s [00:52:09.372] - globals found: [1] ‘FUN’ 1529s [00:52:09.373] Searching for globals ... DONE 1529s [00:52:09.373] Resolving globals: FALSE 1529s [00:52:09.373] The total size of the 1 globals is 848 bytes (848 bytes) 1529s [00:52:09.374] The total size of the 1 globals exported for future expression (‘FUN(X = structure(c(3, 3, 3, 3, 3, 3, 3, 3, 4, 3, 2, 1, 2, 3,; 4, 5), dim = c(8L, 2L), dimnames = list(row = NULL, col = c("x1",; "x2"))))’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1529s [00:52:09.374] - globals: [1] ‘FUN’ 1529s [00:52:09.374] 1529s [00:52:09.374] getGlobalsAndPackages() ... DONE 1529s [00:52:09.374] - globals found/used: [n=1] ‘FUN’ 1529s [00:52:09.376] - needed namespaces: [n=0] 1529s [00:52:09.376] Finding globals ... DONE 1529s [00:52:09.376] - use_args: TRUE 1529s [00:52:09.376] - Getting '...' globals ... 1529s [00:52:09.376] resolve() on list ... 1529s [00:52:09.377] recursive: 0 1529s [00:52:09.377] length: 1 1529s [00:52:09.377] elements: ‘...’ 1529s [00:52:09.377] length: 0 (resolved future 1) 1529s [00:52:09.377] resolve() on list ... DONE 1529s [00:52:09.377] - '...' content: [n=0] 1529s [00:52:09.377] List of 1 1529s [00:52:09.377] $ ...: list() 1529s [00:52:09.377] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1529s [00:52:09.377] - attr(*, "where")=List of 1 1529s [00:52:09.377] ..$ ...: 1529s [00:52:09.377] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1529s [00:52:09.377] - attr(*, "resolved")= logi TRUE 1529s [00:52:09.377] - attr(*, "total_size")= num NA 1529s [00:52:09.381] - Getting '...' globals ... DONE 1529s [00:52:09.381] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1529s [00:52:09.381] List of 2 1529s [00:52:09.381] $ ...future.FUN:function (x) 1529s [00:52:09.381] $ ... : list() 1529s [00:52:09.381] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1529s [00:52:09.381] - attr(*, "where")=List of 2 1529s [00:52:09.381] ..$ ...future.FUN: 1529s [00:52:09.381] ..$ ... : 1529s [00:52:09.381] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1529s [00:52:09.381] - attr(*, "resolved")= logi FALSE 1529s [00:52:09.381] - attr(*, "total_size")= num 848 1529s [00:52:09.385] Packages to be attached in all futures: [n=0] 1529s [00:52:09.385] getGlobalsAndPackagesXApply() ... DONE 1529s [00:52:09.388] future_lapply() ... 1529s [00:52:09.391] Number of chunks: 1 1529s [00:52:09.391] getGlobalsAndPackagesXApply() ... 1529s [00:52:09.392] - future.globals: with names ‘list()’ 1529s [00:52:09.392] - use_args: TRUE 1529s [00:52:09.392] Globals to be used in all futures (chunks): [n=2] ‘...’, ‘...future.FUN’ 1529s [00:52:09.392] List of 2 1529s [00:52:09.392] $ ... : list() 1529s [00:52:09.392] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1529s [00:52:09.392] $ ...future.FUN:function (x) 1529s [00:52:09.392] - attr(*, "where")=List of 2 1529s [00:52:09.392] ..$ ... : 1529s [00:52:09.392] ..$ ...future.FUN: 1529s [00:52:09.392] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1529s [00:52:09.392] - attr(*, "resolved")= logi FALSE 1529s [00:52:09.392] - attr(*, "total_size")= num NA 1529s [00:52:09.396] Packages to be attached in all futures: [n=0] 1529s [00:52:09.396] getGlobalsAndPackagesXApply() ... DONE 1529s [00:52:09.396] Number of futures (= number of chunks): 1 1529s [00:52:09.397] Launching 1 futures (chunks) ... 1529s [00:52:09.397] Chunk #1 of 1 ... 1529s [00:52:09.397] - seeds: 1529s [00:52:09.397] - All globals exported: [n=5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1529s [00:52:09.397] getGlobalsAndPackages() ... 1529s [00:52:09.397] - globals passed as-is: [5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1529s [00:52:09.398] Resolving globals: FALSE 1529s [00:52:09.398] Tweak future expression to call with '...' arguments ... 1529s [00:52:09.398] { 1529s [00:52:09.398] do.call(function(...) { 1529s [00:52:09.398] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1529s [00:52:09.398] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1529s [00:52:09.398] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1529s [00:52:09.398] on.exit(options(oopts), add = TRUE) 1529s [00:52:09.398] } 1529s [00:52:09.398] { 1529s [00:52:09.398] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1529s [00:52:09.398] ...future.X_jj <- ...future.elements_ii[[jj]] 1529s [00:52:09.398] ...future.FUN(...future.X_jj, ...) 1529s [00:52:09.398] }) 1529s [00:52:09.398] } 1529s [00:52:09.398] }, args = future.call.arguments) 1529s [00:52:09.398] } 1529s [00:52:09.398] Tweak future expression to call with '...' arguments ... DONE 1529s [00:52:09.399] - globals: [5] ‘future.call.arguments’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1529s [00:52:09.399] 1529s [00:52:09.399] getGlobalsAndPackages() ... DONE 1529s [00:52:09.400] run() for ‘Future’ ... 1529s [00:52:09.400] - state: ‘created’ 1529s [00:52:09.400] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1529s [00:52:09.403] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1529s [00:52:09.403] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1529s [00:52:09.403] - Field: ‘label’ 1529s [00:52:09.404] - Field: ‘local’ 1529s [00:52:09.404] - Field: ‘owner’ 1529s [00:52:09.404] - Field: ‘envir’ 1529s [00:52:09.404] - Field: ‘packages’ 1529s [00:52:09.404] - Field: ‘gc’ 1529s [00:52:09.404] - Field: ‘conditions’ 1529s [00:52:09.404] - Field: ‘expr’ 1529s [00:52:09.405] - Field: ‘uuid’ 1529s [00:52:09.405] - Field: ‘seed’ 1529s [00:52:09.405] - Field: ‘version’ 1529s [00:52:09.405] - Field: ‘result’ 1529s [00:52:09.405] - Field: ‘asynchronous’ 1529s [00:52:09.405] - Field: ‘calls’ 1529s [00:52:09.405] - Field: ‘globals’ 1529s [00:52:09.406] - Field: ‘stdout’ 1529s [00:52:09.406] - Field: ‘earlySignal’ 1529s [00:52:09.406] - Field: ‘lazy’ 1529s [00:52:09.406] - Field: ‘state’ 1529s [00:52:09.406] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1529s [00:52:09.406] - Launch lazy future ... 1529s [00:52:09.407] Packages needed by the future expression (n = 0): 1529s [00:52:09.407] Packages needed by future strategies (n = 0): 1529s [00:52:09.408] { 1529s [00:52:09.408] { 1529s [00:52:09.408] { 1529s [00:52:09.408] ...future.startTime <- base::Sys.time() 1529s [00:52:09.408] { 1529s [00:52:09.408] { 1529s [00:52:09.408] { 1529s [00:52:09.408] base::local({ 1529s [00:52:09.408] has_future <- base::requireNamespace("future", 1529s [00:52:09.408] quietly = TRUE) 1529s [00:52:09.408] if (has_future) { 1529s [00:52:09.408] ns <- base::getNamespace("future") 1529s [00:52:09.408] version <- ns[[".package"]][["version"]] 1529s [00:52:09.408] if (is.null(version)) 1529s [00:52:09.408] version <- utils::packageVersion("future") 1529s [00:52:09.408] } 1529s [00:52:09.408] else { 1529s [00:52:09.408] version <- NULL 1529s [00:52:09.408] } 1529s [00:52:09.408] if (!has_future || version < "1.8.0") { 1529s [00:52:09.408] info <- base::c(r_version = base::gsub("R version ", 1529s [00:52:09.408] "", base::R.version$version.string), 1529s [00:52:09.408] platform = base::sprintf("%s (%s-bit)", 1529s [00:52:09.408] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1529s [00:52:09.408] os = base::paste(base::Sys.info()[base::c("sysname", 1529s [00:52:09.408] "release", "version")], collapse = " "), 1529s [00:52:09.408] hostname = base::Sys.info()[["nodename"]]) 1529s [00:52:09.408] info <- base::sprintf("%s: %s", base::names(info), 1529s [00:52:09.408] info) 1529s [00:52:09.408] info <- base::paste(info, collapse = "; ") 1529s [00:52:09.408] if (!has_future) { 1529s [00:52:09.408] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1529s [00:52:09.408] info) 1529s [00:52:09.408] } 1529s [00:52:09.408] else { 1529s [00:52:09.408] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1529s [00:52:09.408] info, version) 1529s [00:52:09.408] } 1529s [00:52:09.408] base::stop(msg) 1529s [00:52:09.408] } 1529s [00:52:09.408] }) 1529s [00:52:09.408] } 1529s [00:52:09.408] options(future.plan = NULL) 1529s [00:52:09.408] Sys.unsetenv("R_FUTURE_PLAN") 1529s [00:52:09.408] future::plan("default", .cleanup = FALSE, .init = FALSE) 1529s [00:52:09.408] } 1529s [00:52:09.408] ...future.workdir <- getwd() 1529s [00:52:09.408] } 1529s [00:52:09.408] ...future.oldOptions <- base::as.list(base::.Options) 1529s [00:52:09.408] ...future.oldEnvVars <- base::Sys.getenv() 1529s [00:52:09.408] } 1529s [00:52:09.408] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1529s [00:52:09.408] future.globals.maxSize = Inf, future.globals.method = NULL, 1529s [00:52:09.408] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1529s [00:52:09.408] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1529s [00:52:09.408] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1529s [00:52:09.408] future.stdout.windows.reencode = NULL, width = 80L) 1529s [00:52:09.408] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1529s [00:52:09.408] base::names(...future.oldOptions)) 1529s [00:52:09.408] } 1529s [00:52:09.408] if (FALSE) { 1529s [00:52:09.408] } 1529s [00:52:09.408] else { 1529s [00:52:09.408] if (TRUE) { 1529s [00:52:09.408] ...future.stdout <- base::rawConnection(base::raw(0L), 1529s [00:52:09.408] open = "w") 1529s [00:52:09.408] } 1529s [00:52:09.408] else { 1529s [00:52:09.408] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1529s [00:52:09.408] windows = "NUL", "/dev/null"), open = "w") 1529s [00:52:09.408] } 1529s [00:52:09.408] base::sink(...future.stdout, type = "output", split = FALSE) 1529s [00:52:09.408] base::on.exit(if (!base::is.null(...future.stdout)) { 1529s [00:52:09.408] base::sink(type = "output", split = FALSE) 1529s [00:52:09.408] base::close(...future.stdout) 1529s [00:52:09.408] }, add = TRUE) 1529s [00:52:09.408] } 1529s [00:52:09.408] ...future.frame <- base::sys.nframe() 1529s [00:52:09.408] ...future.conditions <- base::list() 1529s [00:52:09.408] ...future.rng <- base::globalenv()$.Random.seed 1529s [00:52:09.408] if (FALSE) { 1529s [00:52:09.408] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1529s [00:52:09.408] "...future.value", "...future.globalenv.names", ".Random.seed") 1529s [00:52:09.408] } 1529s [00:52:09.408] ...future.result <- base::tryCatch({ 1529s [00:52:09.408] base::withCallingHandlers({ 1529s [00:52:09.408] ...future.value <- base::withVisible(base::local({ 1529s [00:52:09.408] do.call(function(...) { 1529s [00:52:09.408] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1529s [00:52:09.408] if (!identical(...future.globals.maxSize.org, 1529s [00:52:09.408] ...future.globals.maxSize)) { 1529s [00:52:09.408] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1529s [00:52:09.408] on.exit(options(oopts), add = TRUE) 1529s [00:52:09.408] } 1529s [00:52:09.408] { 1529s [00:52:09.408] lapply(seq_along(...future.elements_ii), 1529s [00:52:09.408] FUN = function(jj) { 1529s [00:52:09.408] ...future.X_jj <- ...future.elements_ii[[jj]] 1529s [00:52:09.408] ...future.FUN(...future.X_jj, ...) 1529s [00:52:09.408] }) 1529s [00:52:09.408] } 1529s [00:52:09.408] }, args = future.call.arguments) 1529s [00:52:09.408] })) 1529s [00:52:09.408] future::FutureResult(value = ...future.value$value, 1529s [00:52:09.408] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1529s [00:52:09.408] ...future.rng), globalenv = if (FALSE) 1529s [00:52:09.408] list(added = base::setdiff(base::names(base::.GlobalEnv), 1529s [00:52:09.408] ...future.globalenv.names)) 1529s [00:52:09.408] else NULL, started = ...future.startTime, version = "1.8") 1529s [00:52:09.408] }, condition = base::local({ 1529s [00:52:09.408] c <- base::c 1529s [00:52:09.408] inherits <- base::inherits 1529s [00:52:09.408] invokeRestart <- base::invokeRestart 1529s [00:52:09.408] length <- base::length 1529s [00:52:09.408] list <- base::list 1529s [00:52:09.408] seq.int <- base::seq.int 1529s [00:52:09.408] signalCondition <- base::signalCondition 1529s [00:52:09.408] sys.calls <- base::sys.calls 1529s [00:52:09.408] `[[` <- base::`[[` 1529s [00:52:09.408] `+` <- base::`+` 1529s [00:52:09.408] `<<-` <- base::`<<-` 1529s [00:52:09.408] sysCalls <- function(calls = sys.calls(), from = 1L) { 1529s [00:52:09.408] calls[seq.int(from = from + 12L, to = length(calls) - 1529s [00:52:09.408] 3L)] 1529s [00:52:09.408] } 1529s [00:52:09.408] function(cond) { 1529s [00:52:09.408] is_error <- inherits(cond, "error") 1529s [00:52:09.408] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1529s [00:52:09.408] NULL) 1529s [00:52:09.408] if (is_error) { 1529s [00:52:09.408] sessionInformation <- function() { 1529s [00:52:09.408] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1529s [00:52:09.408] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1529s [00:52:09.408] search = base::search(), system = base::Sys.info()) 1529s [00:52:09.408] } 1529s [00:52:09.408] ...future.conditions[[length(...future.conditions) + 1529s [00:52:09.408] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1529s [00:52:09.408] cond$call), session = sessionInformation(), 1529s [00:52:09.408] timestamp = base::Sys.time(), signaled = 0L) 1529s [00:52:09.408] signalCondition(cond) 1529s [00:52:09.408] } 1529s [00:52:09.408] else if (!ignore && TRUE && inherits(cond, c("condition", 1529s [00:52:09.408] "immediateCondition"))) { 1529s [00:52:09.408] signal <- TRUE && inherits(cond, "immediateCondition") 1529s [00:52:09.408] ...future.conditions[[length(...future.conditions) + 1529s [00:52:09.408] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1529s [00:52:09.408] if (TRUE && !signal) { 1529s [00:52:09.408] muffleCondition <- function (cond, pattern = "^muffle") 1529s [00:52:09.408] { 1529s [00:52:09.408] inherits <- base::inherits 1529s [00:52:09.408] invokeRestart <- base::invokeRestart 1529s [00:52:09.408] is.null <- base::is.null 1529s [00:52:09.408] muffled <- FALSE 1529s [00:52:09.408] if (inherits(cond, "message")) { 1529s [00:52:09.408] muffled <- grepl(pattern, "muffleMessage") 1529s [00:52:09.408] if (muffled) 1529s [00:52:09.408] invokeRestart("muffleMessage") 1529s [00:52:09.408] } 1529s [00:52:09.408] else if (inherits(cond, "warning")) { 1529s [00:52:09.408] muffled <- grepl(pattern, "muffleWarning") 1529s [00:52:09.408] if (muffled) 1529s [00:52:09.408] invokeRestart("muffleWarning") 1529s [00:52:09.408] } 1529s [00:52:09.408] else if (inherits(cond, "condition")) { 1529s [00:52:09.408] if (!is.null(pattern)) { 1529s [00:52:09.408] computeRestarts <- base::computeRestarts 1529s [00:52:09.408] grepl <- base::grepl 1529s [00:52:09.408] restarts <- computeRestarts(cond) 1529s [00:52:09.408] for (restart in restarts) { 1529s [00:52:09.408] name <- restart$name 1529s [00:52:09.408] if (is.null(name)) 1529s [00:52:09.408] next 1529s [00:52:09.408] if (!grepl(pattern, name)) 1529s [00:52:09.408] next 1529s [00:52:09.408] invokeRestart(restart) 1529s [00:52:09.408] muffled <- TRUE 1529s [00:52:09.408] break 1529s [00:52:09.408] } 1529s [00:52:09.408] } 1529s [00:52:09.408] } 1529s [00:52:09.408] invisible(muffled) 1529s [00:52:09.408] } 1529s [00:52:09.408] muffleCondition(cond, pattern = "^muffle") 1529s [00:52:09.408] } 1529s [00:52:09.408] } 1529s [00:52:09.408] else { 1529s [00:52:09.408] if (TRUE) { 1529s [00:52:09.408] muffleCondition <- function (cond, pattern = "^muffle") 1529s [00:52:09.408] { 1529s [00:52:09.408] inherits <- base::inherits 1529s [00:52:09.408] invokeRestart <- base::invokeRestart 1529s [00:52:09.408] is.null <- base::is.null 1529s [00:52:09.408] muffled <- FALSE 1529s [00:52:09.408] if (inherits(cond, "message")) { 1529s [00:52:09.408] muffled <- grepl(pattern, "muffleMessage") 1529s [00:52:09.408] if (muffled) 1529s [00:52:09.408] invokeRestart("muffleMessage") 1529s [00:52:09.408] } 1529s [00:52:09.408] else if (inherits(cond, "warning")) { 1529s [00:52:09.408] muffled <- grepl(pattern, "muffleWarning") 1529s [00:52:09.408] if (muffled) 1529s [00:52:09.408] invokeRestart("muffleWarning") 1529s [00:52:09.408] } 1529s [00:52:09.408] else if (inherits(cond, "condition")) { 1529s [00:52:09.408] if (!is.null(pattern)) { 1529s [00:52:09.408] computeRestarts <- base::computeRestarts 1529s [00:52:09.408] grepl <- base::grepl 1529s [00:52:09.408] restarts <- computeRestarts(cond) 1529s [00:52:09.408] for (restart in restarts) { 1529s [00:52:09.408] name <- restart$name 1529s [00:52:09.408] if (is.null(name)) 1529s [00:52:09.408] next 1529s [00:52:09.408] if (!grepl(pattern, name)) 1529s [00:52:09.408] next 1529s [00:52:09.408] invokeRestart(restart) 1529s [00:52:09.408] muffled <- TRUE 1529s [00:52:09.408] break 1529s [00:52:09.408] } 1529s [00:52:09.408] } 1529s [00:52:09.408] } 1529s [00:52:09.408] invisible(muffled) 1529s [00:52:09.408] } 1529s [00:52:09.408] muffleCondition(cond, pattern = "^muffle") 1529s [00:52:09.408] } 1529s [00:52:09.408] } 1529s [00:52:09.408] } 1529s [00:52:09.408] })) 1529s [00:52:09.408] }, error = function(ex) { 1529s [00:52:09.408] base::structure(base::list(value = NULL, visible = NULL, 1529s [00:52:09.408] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1529s [00:52:09.408] ...future.rng), started = ...future.startTime, 1529s [00:52:09.408] finished = Sys.time(), session_uuid = NA_character_, 1529s [00:52:09.408] version = "1.8"), class = "FutureResult") 1529s [00:52:09.408] }, finally = { 1529s [00:52:09.408] if (!identical(...future.workdir, getwd())) 1529s [00:52:09.408] setwd(...future.workdir) 1529s [00:52:09.408] { 1529s [00:52:09.408] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1529s [00:52:09.408] ...future.oldOptions$nwarnings <- NULL 1529s [00:52:09.408] } 1529s [00:52:09.408] base::options(...future.oldOptions) 1529s [00:52:09.408] if (.Platform$OS.type == "windows") { 1529s [00:52:09.408] old_names <- names(...future.oldEnvVars) 1529s [00:52:09.408] envs <- base::Sys.getenv() 1529s [00:52:09.408] names <- names(envs) 1529s [00:52:09.408] common <- intersect(names, old_names) 1529s [00:52:09.408] added <- setdiff(names, old_names) 1529s [00:52:09.408] removed <- setdiff(old_names, names) 1529s [00:52:09.408] changed <- common[...future.oldEnvVars[common] != 1529s [00:52:09.408] envs[common]] 1529s [00:52:09.408] NAMES <- toupper(changed) 1529s [00:52:09.408] args <- list() 1529s [00:52:09.408] for (kk in seq_along(NAMES)) { 1529s [00:52:09.408] name <- changed[[kk]] 1529s [00:52:09.408] NAME <- NAMES[[kk]] 1529s [00:52:09.408] if (name != NAME && is.element(NAME, old_names)) 1529s [00:52:09.408] next 1529s [00:52:09.408] args[[name]] <- ...future.oldEnvVars[[name]] 1529s [00:52:09.408] } 1529s [00:52:09.408] NAMES <- toupper(added) 1529s [00:52:09.408] for (kk in seq_along(NAMES)) { 1529s [00:52:09.408] name <- added[[kk]] 1529s [00:52:09.408] NAME <- NAMES[[kk]] 1529s [00:52:09.408] if (name != NAME && is.element(NAME, old_names)) 1529s [00:52:09.408] next 1529s [00:52:09.408] args[[name]] <- "" 1529s [00:52:09.408] } 1529s [00:52:09.408] NAMES <- toupper(removed) 1529s [00:52:09.408] for (kk in seq_along(NAMES)) { 1529s [00:52:09.408] name <- removed[[kk]] 1529s [00:52:09.408] NAME <- NAMES[[kk]] 1529s [00:52:09.408] if (name != NAME && is.element(NAME, old_names)) 1529s [00:52:09.408] next 1529s [00:52:09.408] args[[name]] <- ...future.oldEnvVars[[name]] 1529s [00:52:09.408] } 1529s [00:52:09.408] if (length(args) > 0) 1529s [00:52:09.408] base::do.call(base::Sys.setenv, args = args) 1529s [00:52:09.408] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1529s [00:52:09.408] } 1529s [00:52:09.408] else { 1529s [00:52:09.408] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1529s [00:52:09.408] } 1529s [00:52:09.408] { 1529s [00:52:09.408] if (base::length(...future.futureOptionsAdded) > 1529s [00:52:09.408] 0L) { 1529s [00:52:09.408] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1529s [00:52:09.408] base::names(opts) <- ...future.futureOptionsAdded 1529s [00:52:09.408] base::options(opts) 1529s [00:52:09.408] } 1529s [00:52:09.408] { 1529s [00:52:09.408] { 1529s [00:52:09.408] base::assign(".Random.seed", c(10407L, -235817339L, 1529s [00:52:09.408] -918112653L, 1726940932L, 2039504800L, -2077827493L, 1529s [00:52:09.408] -666439689L), envir = base::globalenv(), 1529s [00:52:09.408] inherits = FALSE) 1529s [00:52:09.408] NULL 1529s [00:52:09.408] } 1529s [00:52:09.408] options(future.plan = NULL) 1529s [00:52:09.408] if (is.na(NA_character_)) 1529s [00:52:09.408] Sys.unsetenv("R_FUTURE_PLAN") 1529s [00:52:09.408] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1529s [00:52:09.408] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1529s [00:52:09.408] envir = parent.frame()) 1529s [00:52:09.408] { 1529s [00:52:09.408] default_workers <- missing(workers) 1529s [00:52:09.408] if (is.function(workers)) 1529s [00:52:09.408] workers <- workers() 1529s [00:52:09.408] workers <- structure(as.integer(workers), 1529s [00:52:09.408] class = class(workers)) 1529s [00:52:09.408] stop_if_not(is.finite(workers), workers >= 1529s [00:52:09.408] 1L) 1529s [00:52:09.408] if ((workers == 1L && !inherits(workers, 1529s [00:52:09.408] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1529s [00:52:09.408] if (default_workers) 1529s [00:52:09.408] supportsMulticore(warn = TRUE) 1529s [00:52:09.408] return(sequential(..., envir = envir)) 1529s [00:52:09.408] } 1529s [00:52:09.408] oopts <- options(mc.cores = workers) 1529s [00:52:09.408] on.exit(options(oopts)) 1529s [00:52:09.408] future <- MulticoreFuture(..., workers = workers, 1529s [00:52:09.408] envir = envir) 1529s [00:52:09.408] if (!future$lazy) 1529s [00:52:09.408] future <- run(future) 1529s [00:52:09.408] invisible(future) 1529s [00:52:09.408] }), .cleanup = FALSE, .init = FALSE) 1529s [00:52:09.408] } 1529s [00:52:09.408] } 1529s [00:52:09.408] } 1529s [00:52:09.408] }) 1529s [00:52:09.408] if (TRUE) { 1529s [00:52:09.408] base::sink(type = "output", split = FALSE) 1529s [00:52:09.408] if (TRUE) { 1529s [00:52:09.408] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1529s [00:52:09.408] } 1529s [00:52:09.408] else { 1529s [00:52:09.408] ...future.result["stdout"] <- base::list(NULL) 1529s [00:52:09.408] } 1529s [00:52:09.408] base::close(...future.stdout) 1529s [00:52:09.408] ...future.stdout <- NULL 1529s [00:52:09.408] } 1529s [00:52:09.408] ...future.result$conditions <- ...future.conditions 1529s [00:52:09.408] ...future.result$finished <- base::Sys.time() 1529s [00:52:09.408] ...future.result 1529s [00:52:09.408] } 1529s [00:52:09.412] assign_globals() ... 1529s [00:52:09.412] List of 5 1529s [00:52:09.412] $ future.call.arguments : list() 1529s [00:52:09.412] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1529s [00:52:09.412] $ ...future.FUN :function (x) 1529s [00:52:09.412] $ ...future.elements_ii :List of 2 1529s [00:52:09.412] ..$ : num [1:8] 3 3 3 3 3 3 3 3 1529s [00:52:09.412] ..$ : num [1:8] 4 3 2 1 2 3 4 5 1529s [00:52:09.412] $ ...future.seeds_ii : NULL 1529s [00:52:09.412] $ ...future.globals.maxSize: num Inf 1529s [00:52:09.412] - attr(*, "resolved")= logi FALSE 1529s [00:52:09.412] - attr(*, "total_size")= num NA 1529s [00:52:09.412] - attr(*, "where")=List of 5 1529s [00:52:09.412] ..$ future.call.arguments : 1529s [00:52:09.412] ..$ ...future.FUN : 1529s [00:52:09.412] ..$ ...future.elements_ii : 1529s [00:52:09.412] ..$ ...future.seeds_ii : 1529s [00:52:09.412] ..$ ...future.globals.maxSize: 1529s [00:52:09.412] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1529s [00:52:09.412] - attr(*, "already-done")= logi TRUE 1529s [00:52:09.420] - copied ‘future.call.arguments’ to environment 1529s [00:52:09.420] - copied ‘...future.FUN’ to environment 1529s [00:52:09.420] - copied ‘...future.elements_ii’ to environment 1529s [00:52:09.420] - copied ‘...future.seeds_ii’ to environment 1529s [00:52:09.421] - copied ‘...future.globals.maxSize’ to environment 1529s [00:52:09.421] assign_globals() ... done 1529s [00:52:09.421] plan(): Setting new future strategy stack: 1529s [00:52:09.421] List of future strategies: 1529s [00:52:09.421] 1. sequential: 1529s [00:52:09.421] - args: function (..., envir = parent.frame()) 1529s [00:52:09.421] - tweaked: FALSE 1529s [00:52:09.421] - call: NULL 1529s [00:52:09.422] plan(): nbrOfWorkers() = 1 1529s [00:52:09.422] plan(): Setting new future strategy stack: 1529s [00:52:09.422] List of future strategies: 1529s [00:52:09.422] 1. multicore: 1529s [00:52:09.422] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1529s [00:52:09.422] - tweaked: FALSE 1529s [00:52:09.422] - call: plan(strategy) 1529s [00:52:09.426] plan(): nbrOfWorkers() = 1 1529s [00:52:09.426] SequentialFuture started (and completed) 1529s [00:52:09.426] - Launch lazy future ... done 1529s [00:52:09.426] run() for ‘SequentialFuture’ ... done 1529s [00:52:09.426] Created future: 1529s [00:52:09.427] SequentialFuture: 1529s [00:52:09.427] Label: ‘future_apply-1’ 1529s [00:52:09.427] Expression: 1529s [00:52:09.427] { 1529s [00:52:09.427] do.call(function(...) { 1529s [00:52:09.427] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1529s [00:52:09.427] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1529s [00:52:09.427] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1529s [00:52:09.427] on.exit(options(oopts), add = TRUE) 1529s [00:52:09.427] } 1529s [00:52:09.427] { 1529s [00:52:09.427] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1529s [00:52:09.427] ...future.X_jj <- ...future.elements_ii[[jj]] 1529s [00:52:09.427] ...future.FUN(...future.X_jj, ...) 1529s [00:52:09.427] }) 1529s [00:52:09.427] } 1529s [00:52:09.427] }, args = future.call.arguments) 1529s [00:52:09.427] } 1529s [00:52:09.427] Lazy evaluation: FALSE 1529s [00:52:09.427] Asynchronous evaluation: FALSE 1529s [00:52:09.427] Local evaluation: TRUE 1529s [00:52:09.427] Environment: R_GlobalEnv 1529s [00:52:09.427] Capture standard output: TRUE 1529s [00:52:09.427] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1529s [00:52:09.427] Globals: 5 objects totaling 1.10 KiB (DotDotDotList ‘future.call.arguments’ of 0 bytes, function ‘...future.FUN’ of 848 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1529s [00:52:09.427] Packages: 1529s [00:52:09.427] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1529s [00:52:09.427] Resolved: TRUE 1529s [00:52:09.427] Value: 224 bytes of class ‘list’ 1529s [00:52:09.427] Early signaling: FALSE 1529s [00:52:09.427] Owner process: 856348fc-72a5-ec0b-63b7-1a3640a93e42 1529s [00:52:09.427] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1529s [00:52:09.428] Chunk #1 of 1 ... DONE 1529s [00:52:09.428] Launching 1 futures (chunks) ... DONE 1529s [00:52:09.428] Resolving 1 futures (chunks) ... 1529s [00:52:09.428] resolve() on list ... 1529s [00:52:09.429] recursive: 0 1529s [00:52:09.429] length: 1 1529s [00:52:09.429] 1529s [00:52:09.429] resolved() for ‘SequentialFuture’ ... 1529s [00:52:09.429] - state: ‘finished’ 1529s [00:52:09.429] - run: TRUE 1529s [00:52:09.429] - result: ‘FutureResult’ 1529s [00:52:09.430] resolved() for ‘SequentialFuture’ ... done 1529s [00:52:09.430] Future #1 1529s [00:52:09.430] signalConditionsASAP(SequentialFuture, pos=1) ... 1529s [00:52:09.430] - nx: 1 1529s [00:52:09.430] - relay: TRUE 1529s [00:52:09.430] - stdout: TRUE 1529s [00:52:09.431] - signal: TRUE 1529s [00:52:09.431] - resignal: FALSE 1529s [00:52:09.431] - force: TRUE 1529s [00:52:09.431] - relayed: [n=1] FALSE 1529s [00:52:09.431] - queued futures: [n=1] FALSE 1529s [00:52:09.431] - until=1 1529s [00:52:09.431] - relaying element #1 1529s [00:52:09.432] - relayed: [n=1] TRUE 1529s col 1529s row x1 x2 1529s [1,] 3 4 1529s [2,] 3 3 1529s [3,] 3 2 1529s [4,] 3 1[00:52:09.432] - queued futures: [n=1] TRUE 1529s [00:52:09.432] signalConditionsASAP(SequentialFuture, pos=1) ... done 1529s [00:52:09.432] length: 0 (resolved future 1) 1529s [00:52:09.432] Relaying remaining futures 1529s [00:52:09.432] signalConditionsASAP(NULL, pos=0) ... 1529s [00:52:09.432] - nx: 1 1529s [00:52:09.432] - relay: TRUE 1529s [00:52:09.432] - stdout: TRUE 1529s [00:52:09.433] - signal: TRUE 1529s [00:52:09.433] - resignal: FALSE 1529s [00:52:09.433] - force: TRUE 1529s [00:52:09.433] - relayed: [n=1] TRUE 1529s [00:52:09.433] - queued futures: [n=1] TRUE 1529s - flush all 1529s [00:52:09.433] - relayed: [n=1] TRUE 1529s [00:52:09.433] - queued futures: [n=1] TRUE 1529s [00:52:09.433] signalConditionsASAP(NULL, pos=0) ... done 1529s [00:52:09.433] resolve() on list ... DONE 1529s [00:52:09.434] - Number of value chunks collected: 1 1529s [00:52:09.434] Resolving 1 futures (chunks) ... DONE 1529s [00:52:09.434] Reducing values from 1 chunks ... 1529s [00:52:09.434] - Number of values collected after concatenation: 2 1529s [00:52:09.434] - Number of values expected: 2 1529s [00:52:09.434] Reducing values from 1 chunks ... DONE 1529s [00:52:09.434] future_lapply() ... DONE 1529s 1529s [5,] 3 2 1529s [6,] 3 3 1529s [7,] 3 4 1529s [8,] 3 5 1529s [00:52:09.435] getGlobalsAndPackagesXApply() ... 1529s [00:52:09.435] - future.globals: TRUE 1529s [00:52:09.436] getGlobalsAndPackages() ... 1529s [00:52:09.436] Searching for globals... 1529s [00:52:09.437] - globals found: [1] ‘FUN’ 1529s [00:52:09.438] Searching for globals ... DONE 1529s [00:52:09.438] Resolving globals: FALSE 1529s [00:52:09.438] The total size of the 1 globals is 848 bytes (848 bytes) 1529s [00:52:09.439] The total size of the 1 globals exported for future expression (‘FUN(X = structure(c(3, 3, 3, 3, 3, 3, 3, 3, 4, 3, 2, 1, 2, 3,; 4, 5, 3, 3, 3, 3, 3, 3, 3, 3, 4, 3, 2, 1, 2, 3, 4, 5, 3, 3, 3,; 3, 3, 3, 3, 3, 4, 3, 2, 1, 2, 3, 4, 5), dim = c(8L, 2L, 3L), dimnames = list(; row = NULL, col = c("x1", "x2"), C = c("cop.1", "cop.2",; "cop.3"))))’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1529s [00:52:09.439] - globals: [1] ‘FUN’ 1529s [00:52:09.439] 1529s [00:52:09.439] getGlobalsAndPackages() ... DONE 1529s [00:52:09.439] - globals found/used: [n=1] ‘FUN’ 1529s [00:52:09.439] - needed namespaces: [n=0] 1529s [00:52:09.439] Finding globals ... DONE 1529s [00:52:09.440] - use_args: TRUE 1529s [00:52:09.440] - Getting '...' globals ... 1529s [00:52:09.440] resolve() on list ... 1529s [00:52:09.440] recursive: 0 1529s [00:52:09.441] length: 1 1529s [00:52:09.441] elements: ‘...’ 1529s [00:52:09.441] length: 0 (resolved future 1) 1529s [00:52:09.441] resolve() on list ... DONE 1529s [00:52:09.441] - '...' content: [n=0] 1529s [00:52:09.441] List of 1 1529s [00:52:09.441] $ ...: list() 1529s [00:52:09.441] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1529s [00:52:09.441] - attr(*, "where")=List of 1 1529s [00:52:09.441] ..$ ...: 1529s [00:52:09.441] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1529s [00:52:09.441] - attr(*, "resolved")= logi TRUE 1529s [00:52:09.441] - attr(*, "total_size")= num NA 1529s [00:52:09.445] - Getting '...' globals ... DONE 1529s [00:52:09.445] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1529s [00:52:09.446] List of 2 1529s [00:52:09.446] $ ...future.FUN:function (x) 1529s [00:52:09.446] $ ... : list() 1529s [00:52:09.446] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1529s [00:52:09.446] - attr(*, "where")=List of 2 1529s [00:52:09.446] ..$ ...future.FUN: 1529s [00:52:09.446] ..$ ... : 1529s [00:52:09.446] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1529s [00:52:09.446] - attr(*, "resolved")= logi FALSE 1529s [00:52:09.446] - attr(*, "total_size")= num 848 1529s [00:52:09.451] Packages to be attached in all futures: [n=0] 1529s [00:52:09.451] getGlobalsAndPackagesXApply() ... DONE 1529s [00:52:09.455] future_lapply() ... 1529s [00:52:09.458] Number of chunks: 1 1529s [00:52:09.458] getGlobalsAndPackagesXApply() ... 1529s [00:52:09.459] - future.globals: with names ‘list()’ 1529s [00:52:09.459] - use_args: TRUE 1529s [00:52:09.459] Globals to be used in all futures (chunks): [n=2] ‘...’, ‘...future.FUN’ 1529s [00:52:09.459] List of 2 1529s [00:52:09.459] $ ... : list() 1529s [00:52:09.459] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1529s [00:52:09.459] $ ...future.FUN:function (x) 1529s [00:52:09.459] - attr(*, "where")=List of 2 1529s [00:52:09.459] ..$ ... : 1529s [00:52:09.459] ..$ ...future.FUN: 1529s [00:52:09.459] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1529s [00:52:09.459] - attr(*, "resolved")= logi FALSE 1529s [00:52:09.459] - attr(*, "total_size")= num NA 1529s [00:52:09.463] Packages to be attached in all futures: [n=0] 1529s [00:52:09.463] getGlobalsAndPackagesXApply() ... DONE 1529s [00:52:09.464] Number of futures (= number of chunks): 1 1529s [00:52:09.464] Launching 1 futures (chunks) ... 1529s [00:52:09.464] Chunk #1 of 1 ... 1529s [00:52:09.464] - seeds: 1529s [00:52:09.464] - All globals exported: [n=5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1529s [00:52:09.464] getGlobalsAndPackages() ... 1529s [00:52:09.465] - globals passed as-is: [5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1529s [00:52:09.465] Resolving globals: FALSE 1529s [00:52:09.465] Tweak future expression to call with '...' arguments ... 1529s [00:52:09.465] { 1529s [00:52:09.465] do.call(function(...) { 1529s [00:52:09.465] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1529s [00:52:09.465] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1529s [00:52:09.465] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1529s [00:52:09.465] on.exit(options(oopts), add = TRUE) 1529s [00:52:09.465] } 1529s [00:52:09.465] { 1529s [00:52:09.465] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1529s [00:52:09.465] ...future.X_jj <- ...future.elements_ii[[jj]] 1529s [00:52:09.465] ...future.FUN(...future.X_jj, ...) 1529s [00:52:09.465] }) 1529s [00:52:09.465] } 1529s [00:52:09.465] }, args = future.call.arguments) 1529s [00:52:09.465] } 1529s [00:52:09.466] Tweak future expression to call with '...' arguments ... DONE 1529s [00:52:09.466] - globals: [5] ‘future.call.arguments’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1529s [00:52:09.466] 1529s [00:52:09.467] getGlobalsAndPackages() ... DONE 1529s [00:52:09.467] run() for ‘Future’ ... 1529s [00:52:09.468] - state: ‘created’ 1529s [00:52:09.468] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1529s [00:52:09.473] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1529s [00:52:09.474] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1529s [00:52:09.474] - Field: ‘label’ 1529s [00:52:09.474] - Field: ‘local’ 1529s [00:52:09.474] - Field: ‘owner’ 1529s [00:52:09.474] - Field: ‘envir’ 1529s [00:52:09.475] - Field: ‘packages’ 1529s [00:52:09.475] - Field: ‘gc’ 1529s [00:52:09.475] - Field: ‘conditions’ 1529s [00:52:09.475] - Field: ‘expr’ 1529s [00:52:09.475] - Field: ‘uuid’ 1529s [00:52:09.476] - Field: ‘seed’ 1529s [00:52:09.476] - Field: ‘version’ 1529s [00:52:09.476] - Field: ‘result’ 1529s [00:52:09.476] - Field: ‘asynchronous’ 1529s [00:52:09.476] - Field: ‘calls’ 1529s [00:52:09.476] - Field: ‘globals’ 1529s [00:52:09.477] - Field: ‘stdout’ 1529s [00:52:09.477] - Field: ‘earlySignal’ 1529s [00:52:09.477] - Field: ‘lazy’ 1529s [00:52:09.477] - Field: ‘state’ 1529s [00:52:09.477] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1529s [00:52:09.478] - Launch lazy future ... 1529s [00:52:09.478] Packages needed by the future expression (n = 0): 1529s [00:52:09.478] Packages needed by future strategies (n = 0): 1529s [00:52:09.479] { 1529s [00:52:09.479] { 1529s [00:52:09.479] { 1529s [00:52:09.479] ...future.startTime <- base::Sys.time() 1529s [00:52:09.479] { 1529s [00:52:09.479] { 1529s [00:52:09.479] { 1529s [00:52:09.479] base::local({ 1529s [00:52:09.479] has_future <- base::requireNamespace("future", 1529s [00:52:09.479] quietly = TRUE) 1529s [00:52:09.479] if (has_future) { 1529s [00:52:09.479] ns <- base::getNamespace("future") 1529s [00:52:09.479] version <- ns[[".package"]][["version"]] 1529s [00:52:09.479] if (is.null(version)) 1529s [00:52:09.479] version <- utils::packageVersion("future") 1529s [00:52:09.479] } 1529s [00:52:09.479] else { 1529s [00:52:09.479] version <- NULL 1529s [00:52:09.479] } 1529s [00:52:09.479] if (!has_future || version < "1.8.0") { 1529s [00:52:09.479] info <- base::c(r_version = base::gsub("R version ", 1529s [00:52:09.479] "", base::R.version$version.string), 1529s [00:52:09.479] platform = base::sprintf("%s (%s-bit)", 1529s [00:52:09.479] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1529s [00:52:09.479] os = base::paste(base::Sys.info()[base::c("sysname", 1529s [00:52:09.479] "release", "version")], collapse = " "), 1529s [00:52:09.479] hostname = base::Sys.info()[["nodename"]]) 1529s [00:52:09.479] info <- base::sprintf("%s: %s", base::names(info), 1529s [00:52:09.479] info) 1529s [00:52:09.479] info <- base::paste(info, collapse = "; ") 1529s [00:52:09.479] if (!has_future) { 1529s [00:52:09.479] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1529s [00:52:09.479] info) 1529s [00:52:09.479] } 1529s [00:52:09.479] else { 1529s [00:52:09.479] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1529s [00:52:09.479] info, version) 1529s [00:52:09.479] } 1529s [00:52:09.479] base::stop(msg) 1529s [00:52:09.479] } 1529s [00:52:09.479] }) 1529s [00:52:09.479] } 1529s [00:52:09.479] options(future.plan = NULL) 1529s [00:52:09.479] Sys.unsetenv("R_FUTURE_PLAN") 1529s [00:52:09.479] future::plan("default", .cleanup = FALSE, .init = FALSE) 1529s [00:52:09.479] } 1529s [00:52:09.479] ...future.workdir <- getwd() 1529s [00:52:09.479] } 1529s [00:52:09.479] ...future.oldOptions <- base::as.list(base::.Options) 1529s [00:52:09.479] ...future.oldEnvVars <- base::Sys.getenv() 1529s [00:52:09.479] } 1529s [00:52:09.479] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1529s [00:52:09.479] future.globals.maxSize = Inf, future.globals.method = NULL, 1529s [00:52:09.479] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1529s [00:52:09.479] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1529s [00:52:09.479] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1529s [00:52:09.479] future.stdout.windows.reencode = NULL, width = 80L) 1529s [00:52:09.479] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1529s [00:52:09.479] base::names(...future.oldOptions)) 1529s [00:52:09.479] } 1529s [00:52:09.479] if (FALSE) { 1529s [00:52:09.479] } 1529s [00:52:09.479] else { 1529s [00:52:09.479] if (TRUE) { 1529s [00:52:09.479] ...future.stdout <- base::rawConnection(base::raw(0L), 1529s [00:52:09.479] open = "w") 1529s [00:52:09.479] } 1529s [00:52:09.479] else { 1529s [00:52:09.479] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1529s [00:52:09.479] windows = "NUL", "/dev/null"), open = "w") 1529s [00:52:09.479] } 1529s [00:52:09.479] base::sink(...future.stdout, type = "output", split = FALSE) 1529s [00:52:09.479] base::on.exit(if (!base::is.null(...future.stdout)) { 1529s [00:52:09.479] base::sink(type = "output", split = FALSE) 1529s [00:52:09.479] base::close(...future.stdout) 1529s [00:52:09.479] }, add = TRUE) 1529s [00:52:09.479] } 1529s [00:52:09.479] ...future.frame <- base::sys.nframe() 1529s [00:52:09.479] ...future.conditions <- base::list() 1529s [00:52:09.479] ...future.rng <- base::globalenv()$.Random.seed 1529s [00:52:09.479] if (FALSE) { 1529s [00:52:09.479] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1529s [00:52:09.479] "...future.value", "...future.globalenv.names", ".Random.seed") 1529s [00:52:09.479] } 1529s [00:52:09.479] ...future.result <- base::tryCatch({ 1529s [00:52:09.479] base::withCallingHandlers({ 1529s [00:52:09.479] ...future.value <- base::withVisible(base::local({ 1529s [00:52:09.479] do.call(function(...) { 1529s [00:52:09.479] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1529s [00:52:09.479] if (!identical(...future.globals.maxSize.org, 1529s [00:52:09.479] ...future.globals.maxSize)) { 1529s [00:52:09.479] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1529s [00:52:09.479] on.exit(options(oopts), add = TRUE) 1529s [00:52:09.479] } 1529s [00:52:09.479] { 1529s [00:52:09.479] lapply(seq_along(...future.elements_ii), 1529s [00:52:09.479] FUN = function(jj) { 1529s [00:52:09.479] ...future.X_jj <- ...future.elements_ii[[jj]] 1529s [00:52:09.479] ...future.FUN(...future.X_jj, ...) 1529s [00:52:09.479] }) 1529s [00:52:09.479] } 1529s [00:52:09.479] }, args = future.call.arguments) 1529s [00:52:09.479] })) 1529s [00:52:09.479] future::FutureResult(value = ...future.value$value, 1529s [00:52:09.479] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1529s [00:52:09.479] ...future.rng), globalenv = if (FALSE) 1529s [00:52:09.479] list(added = base::setdiff(base::names(base::.GlobalEnv), 1529s [00:52:09.479] ...future.globalenv.names)) 1529s [00:52:09.479] else NULL, started = ...future.startTime, version = "1.8") 1529s [00:52:09.479] }, condition = base::local({ 1529s [00:52:09.479] c <- base::c 1529s [00:52:09.479] inherits <- base::inherits 1529s [00:52:09.479] invokeRestart <- base::invokeRestart 1529s [00:52:09.479] length <- base::length 1529s [00:52:09.479] list <- base::list 1529s [00:52:09.479] seq.int <- base::seq.int 1529s [00:52:09.479] signalCondition <- base::signalCondition 1529s [00:52:09.479] sys.calls <- base::sys.calls 1529s [00:52:09.479] `[[` <- base::`[[` 1529s [00:52:09.479] `+` <- base::`+` 1529s [00:52:09.479] `<<-` <- base::`<<-` 1529s [00:52:09.479] sysCalls <- function(calls = sys.calls(), from = 1L) { 1529s [00:52:09.479] calls[seq.int(from = from + 12L, to = length(calls) - 1529s [00:52:09.479] 3L)] 1529s [00:52:09.479] } 1529s [00:52:09.479] function(cond) { 1529s [00:52:09.479] is_error <- inherits(cond, "error") 1529s [00:52:09.479] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1529s [00:52:09.479] NULL) 1529s [00:52:09.479] if (is_error) { 1529s [00:52:09.479] sessionInformation <- function() { 1529s [00:52:09.479] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1529s [00:52:09.479] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1529s [00:52:09.479] search = base::search(), system = base::Sys.info()) 1529s [00:52:09.479] } 1529s [00:52:09.479] ...future.conditions[[length(...future.conditions) + 1529s [00:52:09.479] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1529s [00:52:09.479] cond$call), session = sessionInformation(), 1529s [00:52:09.479] timestamp = base::Sys.time(), signaled = 0L) 1529s [00:52:09.479] signalCondition(cond) 1529s [00:52:09.479] } 1529s [00:52:09.479] else if (!ignore && TRUE && inherits(cond, c("condition", 1529s [00:52:09.479] "immediateCondition"))) { 1529s [00:52:09.479] signal <- TRUE && inherits(cond, "immediateCondition") 1529s [00:52:09.479] ...future.conditions[[length(...future.conditions) + 1529s [00:52:09.479] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1529s [00:52:09.479] if (TRUE && !signal) { 1529s [00:52:09.479] muffleCondition <- function (cond, pattern = "^muffle") 1529s [00:52:09.479] { 1529s [00:52:09.479] inherits <- base::inherits 1529s [00:52:09.479] invokeRestart <- base::invokeRestart 1529s [00:52:09.479] is.null <- base::is.null 1529s [00:52:09.479] muffled <- FALSE 1529s [00:52:09.479] if (inherits(cond, "message")) { 1529s [00:52:09.479] muffled <- grepl(pattern, "muffleMessage") 1529s [00:52:09.479] if (muffled) 1529s [00:52:09.479] invokeRestart("muffleMessage") 1529s [00:52:09.479] } 1529s [00:52:09.479] else if (inherits(cond, "warning")) { 1529s [00:52:09.479] muffled <- grepl(pattern, "muffleWarning") 1529s [00:52:09.479] if (muffled) 1529s [00:52:09.479] invokeRestart("muffleWarning") 1529s [00:52:09.479] } 1529s [00:52:09.479] else if (inherits(cond, "condition")) { 1529s [00:52:09.479] if (!is.null(pattern)) { 1529s [00:52:09.479] computeRestarts <- base::computeRestarts 1529s [00:52:09.479] grepl <- base::grepl 1529s [00:52:09.479] restarts <- computeRestarts(cond) 1529s [00:52:09.479] for (restart in restarts) { 1529s [00:52:09.479] name <- restart$name 1529s [00:52:09.479] if (is.null(name)) 1529s [00:52:09.479] next 1529s [00:52:09.479] if (!grepl(pattern, name)) 1529s [00:52:09.479] next 1529s [00:52:09.479] invokeRestart(restart) 1529s [00:52:09.479] muffled <- TRUE 1529s [00:52:09.479] break 1529s [00:52:09.479] } 1529s [00:52:09.479] } 1529s [00:52:09.479] } 1529s [00:52:09.479] invisible(muffled) 1529s [00:52:09.479] } 1529s [00:52:09.479] muffleCondition(cond, pattern = "^muffle") 1529s [00:52:09.479] } 1529s [00:52:09.479] } 1529s [00:52:09.479] else { 1529s [00:52:09.479] if (TRUE) { 1529s [00:52:09.479] muffleCondition <- function (cond, pattern = "^muffle") 1529s [00:52:09.479] { 1529s [00:52:09.479] inherits <- base::inherits 1529s [00:52:09.479] invokeRestart <- base::invokeRestart 1529s [00:52:09.479] is.null <- base::is.null 1529s [00:52:09.479] muffled <- FALSE 1529s [00:52:09.479] if (inherits(cond, "message")) { 1529s [00:52:09.479] muffled <- grepl(pattern, "muffleMessage") 1529s [00:52:09.479] if (muffled) 1529s [00:52:09.479] invokeRestart("muffleMessage") 1529s [00:52:09.479] } 1529s [00:52:09.479] else if (inherits(cond, "warning")) { 1529s [00:52:09.479] muffled <- grepl(pattern, "muffleWarning") 1529s [00:52:09.479] if (muffled) 1529s [00:52:09.479] invokeRestart("muffleWarning") 1529s [00:52:09.479] } 1529s [00:52:09.479] else if (inherits(cond, "condition")) { 1529s [00:52:09.479] if (!is.null(pattern)) { 1529s [00:52:09.479] computeRestarts <- base::computeRestarts 1529s [00:52:09.479] grepl <- base::grepl 1529s [00:52:09.479] restarts <- computeRestarts(cond) 1529s [00:52:09.479] for (restart in restarts) { 1529s [00:52:09.479] name <- restart$name 1529s [00:52:09.479] if (is.null(name)) 1529s [00:52:09.479] next 1529s [00:52:09.479] if (!grepl(pattern, name)) 1529s [00:52:09.479] next 1529s [00:52:09.479] invokeRestart(restart) 1529s [00:52:09.479] muffled <- TRUE 1529s [00:52:09.479] break 1529s [00:52:09.479] } 1529s [00:52:09.479] } 1529s [00:52:09.479] } 1529s [00:52:09.479] invisible(muffled) 1529s [00:52:09.479] } 1529s [00:52:09.479] muffleCondition(cond, pattern = "^muffle") 1529s [00:52:09.479] } 1529s [00:52:09.479] } 1529s [00:52:09.479] } 1529s [00:52:09.479] })) 1529s [00:52:09.479] }, error = function(ex) { 1529s [00:52:09.479] base::structure(base::list(value = NULL, visible = NULL, 1529s [00:52:09.479] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1529s [00:52:09.479] ...future.rng), started = ...future.startTime, 1529s [00:52:09.479] finished = Sys.time(), session_uuid = NA_character_, 1529s [00:52:09.479] version = "1.8"), class = "FutureResult") 1529s [00:52:09.479] }, finally = { 1529s [00:52:09.479] if (!identical(...future.workdir, getwd())) 1529s [00:52:09.479] setwd(...future.workdir) 1529s [00:52:09.479] { 1529s [00:52:09.479] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1529s [00:52:09.479] ...future.oldOptions$nwarnings <- NULL 1529s [00:52:09.479] } 1529s [00:52:09.479] base::options(...future.oldOptions) 1529s [00:52:09.479] if (.Platform$OS.type == "windows") { 1529s [00:52:09.479] old_names <- names(...future.oldEnvVars) 1529s [00:52:09.479] envs <- base::Sys.getenv() 1529s [00:52:09.479] names <- names(envs) 1529s [00:52:09.479] common <- intersect(names, old_names) 1529s [00:52:09.479] added <- setdiff(names, old_names) 1529s [00:52:09.479] removed <- setdiff(old_names, names) 1529s [00:52:09.479] changed <- common[...future.oldEnvVars[common] != 1529s [00:52:09.479] envs[common]] 1529s [00:52:09.479] NAMES <- toupper(changed) 1529s [00:52:09.479] args <- list() 1529s [00:52:09.479] for (kk in seq_along(NAMES)) { 1529s [00:52:09.479] name <- changed[[kk]] 1529s [00:52:09.479] NAME <- NAMES[[kk]] 1529s [00:52:09.479] if (name != NAME && is.element(NAME, old_names)) 1529s [00:52:09.479] next 1529s [00:52:09.479] args[[name]] <- ...future.oldEnvVars[[name]] 1529s [00:52:09.479] } 1529s [00:52:09.479] NAMES <- toupper(added) 1529s [00:52:09.479] for (kk in seq_along(NAMES)) { 1529s [00:52:09.479] name <- added[[kk]] 1529s [00:52:09.479] NAME <- NAMES[[kk]] 1529s [00:52:09.479] if (name != NAME && is.element(NAME, old_names)) 1529s [00:52:09.479] next 1529s [00:52:09.479] args[[name]] <- "" 1529s [00:52:09.479] } 1529s [00:52:09.479] NAMES <- toupper(removed) 1529s [00:52:09.479] for (kk in seq_along(NAMES)) { 1529s [00:52:09.479] name <- removed[[kk]] 1529s [00:52:09.479] NAME <- NAMES[[kk]] 1529s [00:52:09.479] if (name != NAME && is.element(NAME, old_names)) 1529s [00:52:09.479] next 1529s [00:52:09.479] args[[name]] <- ...future.oldEnvVars[[name]] 1529s [00:52:09.479] } 1529s [00:52:09.479] if (length(args) > 0) 1529s [00:52:09.479] base::do.call(base::Sys.setenv, args = args) 1529s [00:52:09.479] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1529s [00:52:09.479] } 1529s [00:52:09.479] else { 1529s [00:52:09.479] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1529s [00:52:09.479] } 1529s [00:52:09.479] { 1529s [00:52:09.479] if (base::length(...future.futureOptionsAdded) > 1529s [00:52:09.479] 0L) { 1529s [00:52:09.479] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1529s [00:52:09.479] base::names(opts) <- ...future.futureOptionsAdded 1529s [00:52:09.479] base::options(opts) 1529s [00:52:09.479] } 1529s [00:52:09.479] { 1529s [00:52:09.479] { 1529s [00:52:09.479] base::assign(".Random.seed", c(10407L, -235817339L, 1529s [00:52:09.479] -918112653L, 1726940932L, 2039504800L, -2077827493L, 1529s [00:52:09.479] -666439689L), envir = base::globalenv(), 1529s [00:52:09.479] inherits = FALSE) 1529s [00:52:09.479] NULL 1529s [00:52:09.479] } 1529s [00:52:09.479] options(future.plan = NULL) 1529s [00:52:09.479] if (is.na(NA_character_)) 1529s [00:52:09.479] Sys.unsetenv("R_FUTURE_PLAN") 1529s [00:52:09.479] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1529s [00:52:09.479] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1529s [00:52:09.479] envir = parent.frame()) 1529s [00:52:09.479] { 1529s [00:52:09.479] default_workers <- missing(workers) 1529s [00:52:09.479] if (is.function(workers)) 1529s [00:52:09.479] workers <- workers() 1529s [00:52:09.479] workers <- structure(as.integer(workers), 1529s [00:52:09.479] class = class(workers)) 1529s [00:52:09.479] stop_if_not(is.finite(workers), workers >= 1529s [00:52:09.479] 1L) 1529s [00:52:09.479] if ((workers == 1L && !inherits(workers, 1529s [00:52:09.479] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1529s [00:52:09.479] if (default_workers) 1529s [00:52:09.479] supportsMulticore(warn = TRUE) 1529s [00:52:09.479] return(sequential(..., envir = envir)) 1529s [00:52:09.479] } 1529s [00:52:09.479] oopts <- options(mc.cores = workers) 1529s [00:52:09.479] on.exit(options(oopts)) 1529s [00:52:09.479] future <- MulticoreFuture(..., workers = workers, 1529s [00:52:09.479] envir = envir) 1529s [00:52:09.479] if (!future$lazy) 1529s [00:52:09.479] future <- run(future) 1529s [00:52:09.479] invisible(future) 1529s [00:52:09.479] }), .cleanup = FALSE, .init = FALSE) 1529s [00:52:09.479] } 1529s [00:52:09.479] } 1529s [00:52:09.479] } 1529s [00:52:09.479] }) 1529s [00:52:09.479] if (TRUE) { 1529s [00:52:09.479] base::sink(type = "output", split = FALSE) 1529s [00:52:09.479] if (TRUE) { 1529s [00:52:09.479] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1529s [00:52:09.479] } 1529s [00:52:09.479] else { 1529s [00:52:09.479] ...future.result["stdout"] <- base::list(NULL) 1529s [00:52:09.479] } 1529s [00:52:09.479] base::close(...future.stdout) 1529s [00:52:09.479] ...future.stdout <- NULL 1529s [00:52:09.479] } 1529s [00:52:09.479] ...future.result$conditions <- ...future.conditions 1529s [00:52:09.479] ...future.result$finished <- base::Sys.time() 1529s [00:52:09.479] ...future.result 1529s [00:52:09.479] } 1529s [00:52:09.485] assign_globals() ... 1529s [00:52:09.485] List of 5 1529s [00:52:09.485] $ future.call.arguments : list() 1529s [00:52:09.485] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1529s [00:52:09.485] $ ...future.FUN :function (x) 1529s [00:52:09.485] $ ...future.elements_ii :List of 6 1529s [00:52:09.485] ..$ : num [1:8] 3 3 3 3 3 3 3 3 1529s [00:52:09.485] ..$ : num [1:8] 4 3 2 1 2 3 4 5 1529s [00:52:09.485] ..$ : num [1:8] 3 3 3 3 3 3 3 3 1529s [00:52:09.485] ..$ : num [1:8] 4 3 2 1 2 3 4 5 1529s [00:52:09.485] ..$ : num [1:8] 3 3 3 3 3 3 3 3 1529s [00:52:09.485] ..$ : num [1:8] 4 3 2 1 2 3 4 5 1529s [00:52:09.485] $ ...future.seeds_ii : NULL 1529s [00:52:09.485] $ ...future.globals.maxSize: num Inf 1529s [00:52:09.485] - attr(*, "resolved")= logi FALSE 1529s [00:52:09.485] - attr(*, "total_size")= num NA 1529s [00:52:09.485] - attr(*, "where")=List of 5 1529s [00:52:09.485] ..$ future.call.arguments : 1529s [00:52:09.485] ..$ ...future.FUN : 1529s [00:52:09.485] ..$ ...future.elements_ii : 1529s [00:52:09.485] ..$ ...future.seeds_ii : 1529s [00:52:09.485] ..$ ...future.globals.maxSize: 1529s [00:52:09.485] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1529s [00:52:09.485] - attr(*, "already-done")= logi TRUE 1529s [00:52:09.495] - copied ‘future.call.arguments’ to environment 1529s [00:52:09.496] - copied ‘...future.FUN’ to environment 1529s [00:52:09.496] - copied ‘...future.elements_ii’ to environment 1529s [00:52:09.496] - copied ‘...future.seeds_ii’ to environment 1529s [00:52:09.496] - copied ‘...future.globals.maxSize’ to environment 1529s [00:52:09.496] assign_globals() ... done 1529s [00:52:09.497] plan(): Setting new future strategy stack: 1529s [00:52:09.497] List of future strategies: 1529s [00:52:09.497] 1. sequential: 1529s [00:52:09.497] - args: function (..., envir = parent.frame()) 1529s [00:52:09.497] - tweaked: FALSE 1529s [00:52:09.497] - call: NULL 1529s [00:52:09.497] plan(): nbrOfWorkers() = 1 1529s [00:52:09.498] plan(): Setting new future strategy stack: 1529s [00:52:09.498] List of future strategies: 1529s [00:52:09.498] 1. multicore: 1529s [00:52:09.498] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1529s [00:52:09.498] - tweaked: FALSE 1529s [00:52:09.498] - call: plan(strategy) 1529s [00:52:09.501] plan(): nbrOfWorkers() = 1 1529s [00:52:09.502] SequentialFuture started (and completed) 1529s [00:52:09.502] - Launch lazy future ... done 1529s [00:52:09.502] run() for ‘SequentialFuture’ ... done 1529s [00:52:09.502] Created future: 1529s [00:52:09.502] SequentialFuture: 1529s [00:52:09.502] Label: ‘future_apply-1’ 1529s [00:52:09.502] Expression: 1529s [00:52:09.502] { 1529s [00:52:09.502] do.call(function(...) { 1529s [00:52:09.502] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1529s [00:52:09.502] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1529s [00:52:09.502] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1529s [00:52:09.502] on.exit(options(oopts), add = TRUE) 1529s [00:52:09.502] } 1529s [00:52:09.502] { 1529s [00:52:09.502] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1529s [00:52:09.502] ...future.X_jj <- ...future.elements_ii[[jj]] 1529s [00:52:09.502] ...future.FUN(...future.X_jj, ...) 1529s [00:52:09.502] }) 1529s [00:52:09.502] } 1529s [00:52:09.502] }, args = future.call.arguments) 1529s [00:52:09.502] } 1529s [00:52:09.502] Lazy evaluation: FALSE 1529s [00:52:09.502] Asynchronous evaluation: FALSE 1529s [00:52:09.502] Local evaluation: TRUE 1529s [00:52:09.502] Environment: R_GlobalEnv 1529s [00:52:09.502] Capture standard output: TRUE 1529s [00:52:09.502] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1529s [00:52:09.502] Globals: 5 objects totaling 1.54 KiB (DotDotDotList ‘future.call.arguments’ of 0 bytes, function ‘...future.FUN’ of 848 bytes, list ‘...future.elements_ii’ of 672 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1529s [00:52:09.502] Packages: 1529s [00:52:09.502] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1529s [00:52:09.502] Resolved: TRUE 1529s [00:52:09.502] Value: 672 bytes of class ‘list’ 1529s [00:52:09.502] Early signaling: FALSE 1529s [00:52:09.502] Owner process: 856348fc-72a5-ec0b-63b7-1a3640a93e42 1529s [00:52:09.502] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1529s [00:52:09.505] Chunk #1 of 1 ... DONE 1529s [00:52:09.505] Launching 1 futures (chunks) ... DONE 1529s [00:52:09.505] Resolving 1 futures (chunks) ... 1529s [00:52:09.506] resolve() on list ... 1529s [00:52:09.506] recursive: 0 1529s [00:52:09.506] length: 1 1529s [00:52:09.506] 1529s [00:52:09.506] resolved() for ‘SequentialFuture’ ... 1529s [00:52:09.506] - state: ‘finished’ 1529s [00:52:09.506] - run: TRUE 1529s [00:52:09.507] - result: ‘FutureResult’ 1529s [00:52:09.507] resolved() for ‘SequentialFuture’ ... done 1529s [00:52:09.507] Future #1 1529s [00:52:09.507] signalConditionsASAP(SequentialFuture, pos=1) ... 1529s [00:52:09.507] - nx: 1 1529s [00:52:09.507] - relay: TRUE 1529s [00:52:09.508] - stdout: TRUE 1529s [00:52:09.508] - signal: TRUE 1529s [00:52:09.508] - resignal: FALSE 1529s [00:52:09.508] - force: TRUE 1529s [00:52:09.508] - relayed: [n=1] FALSE 1529s [00:52:09.508] - queued futures: [n=1] FALSE 1529s [00:52:09.508] - until=1 1529s [00:52:09.508] - relaying element #1 1529s [00:52:09.509] - relayed: [n=1] TRUE 1529s [00:52:09.509] - queued futures: [n=1] TRUE 1529s [00:52:09.509] signalConditionsASAP(SequentialFuture, pos=1) ... done 1529s [00:52:09.509] length: 0 (resolved future 1) 1529s [00:52:09.509] Relaying remaining futures 1529s [00:52:09.509] signalConditionsASAP(NULL, pos=0) ... 1529s [00:52:09.510] - nx: 1 1529s [00:52:09.510] - relay: TRUE 1529s [00:52:09.510] - stdout: TRUE 1529s [00:52:09.510] - signal: TRUE 1529s [00:52:09.510] - resignal: FALSE 1529s [00:52:09.510] - force: TRUE 1529s [00:52:09.510] - relayed: [n=1] TRUE 1529s [00:52:09.511] - queued futures: [n=1] TRUE 1529s - flush all 1529s [00:52:09.511] - relayed: [n=1] TRUE 1529s [00:52:09.511] - queued futures: [n=1] TRUE 1529s [00:52:09.511] signalConditionsASAP(NULL, pos=0) ... done 1529s [00:52:09.511] resolve() on list ... DONE 1529s [00:52:09.511] - Number of value chunks collected: 1 1529s [00:52:09.512] Resolving 1 futures (chunks) ... DONE 1529s [00:52:09.512] Reducing values from 1 chunks ... 1529s [00:52:09.512] - Number of values collected after concatenation: 6 1529s [00:52:09.512] - Number of values expected: 6 1529s [00:52:09.512] Reducing values from 1 chunks ... DONE 1529s [00:52:09.512] future_lapply() ... DONE 1529s , , C = cop.1 1529s 1529s col 1529s row x1 x2 1529s [1,] 3 4 1529s [2,] 3 3 1529s [3,] 3 2 1529s [4,] 3 1 1529s [5,] 3 2 1529s [6,] 3 3 1529s [7,] 3 4 1529s [8,] 3 5 1529s 1529s , , C = cop.2 1529s 1529s col 1529s row x1 x2 1529s [1,] 3 4 1529s [2,] 3 3 1529s [3,] 3 2 1529s [4,] 3 1 1529s [5,] 3 2 1529s [6,] 3 3 1529s [7,] 3 4 1529s [8,] 3 5 1529s 1529s , , C = cop.3 1529s 1529s col 1529s row x1 x2 1529s [1,] 3 4 1529s [2,] 3 3 1529s [3,] 3 2 1529s [4,] 3 1 1529s [5,] 3 2 1529s [6,] 3 3 1529s [7,][00:52:09.515] getGlobalsAndPackagesXApply() ... 1529s 3 4 1529s [8,] 3 5 1529s 1529s [00:52:09.515] - future.globals: TRUE 1529s [00:52:09.515] getGlobalsAndPackages() ... 1529s [00:52:09.515] Searching for globals... 1529s [00:52:09.517] - globals found: [3] ‘FUN’, ‘seq_len’, ‘max’ 1529s [00:52:09.517] Searching for globals ... DONE 1529s [00:52:09.517] Resolving globals: FALSE 1529s [00:52:09.518] The total size of the 1 globals is 1.73 KiB (1768 bytes) 1529s [00:52:09.518] The total size of the 1 globals exported for future expression (‘FUN(X = structure(1:24, dim = 2:4))’) is 1.73 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.73 KiB of class ‘function’) 1529s [00:52:09.519] - globals: [1] ‘FUN’ 1529s [00:52:09.519] 1529s [00:52:09.519] getGlobalsAndPackages() ... DONE 1529s [00:52:09.519] - globals found/used: [n=1] ‘FUN’ 1529s [00:52:09.519] - needed namespaces: [n=0] 1529s [00:52:09.519] Finding globals ... DONE 1529s [00:52:09.520] - use_args: TRUE 1529s [00:52:09.520] - Getting '...' globals ... 1529s [00:52:09.520] resolve() on list ... 1529s [00:52:09.520] recursive: 0 1529s [00:52:09.520] length: 1 1529s [00:52:09.521] elements: ‘...’ 1529s [00:52:09.521] length: 0 (resolved future 1) 1529s [00:52:09.521] resolve() on list ... DONE 1529s [00:52:09.521] - '...' content: [n=0] 1529s [00:52:09.521] List of 1 1529s [00:52:09.521] $ ...: list() 1529s [00:52:09.521] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1529s [00:52:09.521] - attr(*, "where")=List of 1 1529s [00:52:09.521] ..$ ...: 1529s [00:52:09.521] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1529s [00:52:09.521] - attr(*, "resolved")= logi TRUE 1529s [00:52:09.521] - attr(*, "total_size")= num NA 1529s [00:52:09.524] - Getting '...' globals ... DONE 1529s [00:52:09.524] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1529s [00:52:09.524] List of 2 1529s [00:52:09.524] $ ...future.FUN:function (x) 1529s [00:52:09.524] $ ... : list() 1529s [00:52:09.524] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1529s [00:52:09.524] - attr(*, "where")=List of 2 1529s [00:52:09.524] ..$ ...future.FUN: 1529s [00:52:09.524] ..$ ... : 1529s [00:52:09.524] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1529s [00:52:09.524] - attr(*, "resolved")= logi FALSE 1529s [00:52:09.524] - attr(*, "total_size")= num 1768 1529s [00:52:09.527] Packages to be attached in all futures: [n=0] 1529s [00:52:09.527] getGlobalsAndPackagesXApply() ... DONE 1529s [00:52:09.532] future_lapply() ... 1529s [00:52:09.536] Number of chunks: 1 1529s [00:52:09.536] getGlobalsAndPackagesXApply() ... 1529s [00:52:09.536] - future.globals: with names ‘list()’ 1529s [00:52:09.536] - use_args: TRUE 1529s [00:52:09.536] Globals to be used in all futures (chunks): [n=2] ‘...’, ‘...future.FUN’ 1529s [00:52:09.537] List of 2 1529s [00:52:09.537] $ ... : list() 1529s [00:52:09.537] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1529s [00:52:09.537] $ ...future.FUN:function (x) 1529s [00:52:09.537] - attr(*, "where")=List of 2 1529s [00:52:09.537] ..$ ... : 1529s [00:52:09.537] ..$ ...future.FUN: 1529s [00:52:09.537] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1529s [00:52:09.537] - attr(*, "resolved")= logi FALSE 1529s [00:52:09.537] - attr(*, "total_size")= num NA 1529s [00:52:09.540] Packages to be attached in all futures: [n=0] 1529s [00:52:09.540] getGlobalsAndPackagesXApply() ... DONE 1529s [00:52:09.540] Number of futures (= number of chunks): 1 1529s [00:52:09.540] Launching 1 futures (chunks) ... 1529s [00:52:09.541] Chunk #1 of 1 ... 1529s [00:52:09.541] - seeds: 1529s [00:52:09.541] - All globals exported: [n=5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1529s [00:52:09.541] getGlobalsAndPackages() ... 1529s [00:52:09.541] - globals passed as-is: [5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1529s [00:52:09.541] Resolving globals: FALSE 1529s [00:52:09.542] Tweak future expression to call with '...' arguments ... 1529s [00:52:09.542] { 1529s [00:52:09.542] do.call(function(...) { 1529s [00:52:09.542] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1529s [00:52:09.542] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1529s [00:52:09.542] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1529s [00:52:09.542] on.exit(options(oopts), add = TRUE) 1529s [00:52:09.542] } 1529s [00:52:09.542] { 1529s [00:52:09.542] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1529s [00:52:09.542] ...future.X_jj <- ...future.elements_ii[[jj]] 1529s [00:52:09.542] ...future.FUN(...future.X_jj, ...) 1529s [00:52:09.542] }) 1529s [00:52:09.542] } 1529s [00:52:09.542] }, args = future.call.arguments) 1529s [00:52:09.542] } 1529s [00:52:09.542] Tweak future expression to call with '...' arguments ... DONE 1529s [00:52:09.543] - globals: [5] ‘future.call.arguments’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1529s [00:52:09.543] 1529s [00:52:09.543] getGlobalsAndPackages() ... DONE 1529s [00:52:09.543] run() for ‘Future’ ... 1529s [00:52:09.544] - state: ‘created’ 1529s [00:52:09.544] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1529s [00:52:09.547] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1529s [00:52:09.547] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1529s [00:52:09.547] - Field: ‘label’ 1529s [00:52:09.548] - Field: ‘local’ 1529s [00:52:09.548] - Field: ‘owner’ 1529s [00:52:09.548] - Field: ‘envir’ 1529s [00:52:09.548] - Field: ‘packages’ 1529s [00:52:09.548] - Field: ‘gc’ 1529s [00:52:09.548] - Field: ‘conditions’ 1529s [00:52:09.549] - Field: ‘expr’ 1529s [00:52:09.549] - Field: ‘uuid’ 1529s [00:52:09.549] - Field: ‘seed’ 1529s [00:52:09.549] - Field: ‘version’ 1529s [00:52:09.549] - Field: ‘result’ 1529s [00:52:09.549] - Field: ‘asynchronous’ 1529s [00:52:09.549] - Field: ‘calls’ 1529s [00:52:09.550] - Field: ‘globals’ 1529s [00:52:09.550] - Field: ‘stdout’ 1529s [00:52:09.550] - Field: ‘earlySignal’ 1529s [00:52:09.550] - Field: ‘lazy’ 1529s [00:52:09.550] - Field: ‘state’ 1529s [00:52:09.550] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1529s [00:52:09.551] - Launch lazy future ... 1529s [00:52:09.551] Packages needed by the future expression (n = 0): 1529s [00:52:09.551] Packages needed by future strategies (n = 0): 1529s [00:52:09.551] { 1529s [00:52:09.551] { 1529s [00:52:09.551] { 1529s [00:52:09.551] ...future.startTime <- base::Sys.time() 1529s [00:52:09.551] { 1529s [00:52:09.551] { 1529s [00:52:09.551] { 1529s [00:52:09.551] base::local({ 1529s [00:52:09.551] has_future <- base::requireNamespace("future", 1529s [00:52:09.551] quietly = TRUE) 1529s [00:52:09.551] if (has_future) { 1529s [00:52:09.551] ns <- base::getNamespace("future") 1529s [00:52:09.551] version <- ns[[".package"]][["version"]] 1529s [00:52:09.551] if (is.null(version)) 1529s [00:52:09.551] version <- utils::packageVersion("future") 1529s [00:52:09.551] } 1529s [00:52:09.551] else { 1529s [00:52:09.551] version <- NULL 1529s [00:52:09.551] } 1529s [00:52:09.551] if (!has_future || version < "1.8.0") { 1529s [00:52:09.551] info <- base::c(r_version = base::gsub("R version ", 1529s [00:52:09.551] "", base::R.version$version.string), 1529s [00:52:09.551] platform = base::sprintf("%s (%s-bit)", 1529s [00:52:09.551] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1529s [00:52:09.551] os = base::paste(base::Sys.info()[base::c("sysname", 1529s [00:52:09.551] "release", "version")], collapse = " "), 1529s [00:52:09.551] hostname = base::Sys.info()[["nodename"]]) 1529s [00:52:09.551] info <- base::sprintf("%s: %s", base::names(info), 1529s [00:52:09.551] info) 1529s [00:52:09.551] info <- base::paste(info, collapse = "; ") 1529s [00:52:09.551] if (!has_future) { 1529s [00:52:09.551] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1529s [00:52:09.551] info) 1529s [00:52:09.551] } 1529s [00:52:09.551] else { 1529s [00:52:09.551] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1529s [00:52:09.551] info, version) 1529s [00:52:09.551] } 1529s [00:52:09.551] base::stop(msg) 1529s [00:52:09.551] } 1529s [00:52:09.551] }) 1529s [00:52:09.551] } 1529s [00:52:09.551] options(future.plan = NULL) 1529s [00:52:09.551] Sys.unsetenv("R_FUTURE_PLAN") 1529s [00:52:09.551] future::plan("default", .cleanup = FALSE, .init = FALSE) 1529s [00:52:09.551] } 1529s [00:52:09.551] ...future.workdir <- getwd() 1529s [00:52:09.551] } 1529s [00:52:09.551] ...future.oldOptions <- base::as.list(base::.Options) 1529s [00:52:09.551] ...future.oldEnvVars <- base::Sys.getenv() 1529s [00:52:09.551] } 1529s [00:52:09.551] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1529s [00:52:09.551] future.globals.maxSize = Inf, future.globals.method = NULL, 1529s [00:52:09.551] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1529s [00:52:09.551] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1529s [00:52:09.551] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1529s [00:52:09.551] future.stdout.windows.reencode = NULL, width = 80L) 1529s [00:52:09.551] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1529s [00:52:09.551] base::names(...future.oldOptions)) 1529s [00:52:09.551] } 1529s [00:52:09.551] if (FALSE) { 1529s [00:52:09.551] } 1529s [00:52:09.551] else { 1529s [00:52:09.551] if (TRUE) { 1529s [00:52:09.551] ...future.stdout <- base::rawConnection(base::raw(0L), 1529s [00:52:09.551] open = "w") 1529s [00:52:09.551] } 1529s [00:52:09.551] else { 1529s [00:52:09.551] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1529s [00:52:09.551] windows = "NUL", "/dev/null"), open = "w") 1529s [00:52:09.551] } 1529s [00:52:09.551] base::sink(...future.stdout, type = "output", split = FALSE) 1529s [00:52:09.551] base::on.exit(if (!base::is.null(...future.stdout)) { 1529s [00:52:09.551] base::sink(type = "output", split = FALSE) 1529s [00:52:09.551] base::close(...future.stdout) 1529s [00:52:09.551] }, add = TRUE) 1529s [00:52:09.551] } 1529s [00:52:09.551] ...future.frame <- base::sys.nframe() 1529s [00:52:09.551] ...future.conditions <- base::list() 1529s [00:52:09.551] ...future.rng <- base::globalenv()$.Random.seed 1529s [00:52:09.551] if (FALSE) { 1529s [00:52:09.551] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1529s [00:52:09.551] "...future.value", "...future.globalenv.names", ".Random.seed") 1529s [00:52:09.551] } 1529s [00:52:09.551] ...future.result <- base::tryCatch({ 1529s [00:52:09.551] base::withCallingHandlers({ 1529s [00:52:09.551] ...future.value <- base::withVisible(base::local({ 1529s [00:52:09.551] do.call(function(...) { 1529s [00:52:09.551] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1529s [00:52:09.551] if (!identical(...future.globals.maxSize.org, 1529s [00:52:09.551] ...future.globals.maxSize)) { 1529s [00:52:09.551] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1529s [00:52:09.551] on.exit(options(oopts), add = TRUE) 1529s [00:52:09.551] } 1529s [00:52:09.551] { 1529s [00:52:09.551] lapply(seq_along(...future.elements_ii), 1529s [00:52:09.551] FUN = function(jj) { 1529s [00:52:09.551] ...future.X_jj <- ...future.elements_ii[[jj]] 1529s [00:52:09.551] ...future.FUN(...future.X_jj, ...) 1529s [00:52:09.551] }) 1529s [00:52:09.551] } 1529s [00:52:09.551] }, args = future.call.arguments) 1529s [00:52:09.551] })) 1529s [00:52:09.551] future::FutureResult(value = ...future.value$value, 1529s [00:52:09.551] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1529s [00:52:09.551] ...future.rng), globalenv = if (FALSE) 1529s [00:52:09.551] list(added = base::setdiff(base::names(base::.GlobalEnv), 1529s [00:52:09.551] ...future.globalenv.names)) 1529s [00:52:09.551] else NULL, started = ...future.startTime, version = "1.8") 1529s [00:52:09.551] }, condition = base::local({ 1529s [00:52:09.551] c <- base::c 1529s [00:52:09.551] inherits <- base::inherits 1529s [00:52:09.551] invokeRestart <- base::invokeRestart 1529s [00:52:09.551] length <- base::length 1529s [00:52:09.551] list <- base::list 1529s [00:52:09.551] seq.int <- base::seq.int 1529s [00:52:09.551] signalCondition <- base::signalCondition 1529s [00:52:09.551] sys.calls <- base::sys.calls 1529s [00:52:09.551] `[[` <- base::`[[` 1529s [00:52:09.551] `+` <- base::`+` 1529s [00:52:09.551] `<<-` <- base::`<<-` 1529s [00:52:09.551] sysCalls <- function(calls = sys.calls(), from = 1L) { 1529s [00:52:09.551] calls[seq.int(from = from + 12L, to = length(calls) - 1529s [00:52:09.551] 3L)] 1529s [00:52:09.551] } 1529s [00:52:09.551] function(cond) { 1529s [00:52:09.551] is_error <- inherits(cond, "error") 1529s [00:52:09.551] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1529s [00:52:09.551] NULL) 1529s [00:52:09.551] if (is_error) { 1529s [00:52:09.551] sessionInformation <- function() { 1529s [00:52:09.551] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1529s [00:52:09.551] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1529s [00:52:09.551] search = base::search(), system = base::Sys.info()) 1529s [00:52:09.551] } 1529s [00:52:09.551] ...future.conditions[[length(...future.conditions) + 1529s [00:52:09.551] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1529s [00:52:09.551] cond$call), session = sessionInformation(), 1529s [00:52:09.551] timestamp = base::Sys.time(), signaled = 0L) 1529s [00:52:09.551] signalCondition(cond) 1529s [00:52:09.551] } 1529s [00:52:09.551] else if (!ignore && TRUE && inherits(cond, c("condition", 1529s [00:52:09.551] "immediateCondition"))) { 1529s [00:52:09.551] signal <- TRUE && inherits(cond, "immediateCondition") 1529s [00:52:09.551] ...future.conditions[[length(...future.conditions) + 1529s [00:52:09.551] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1529s [00:52:09.551] if (TRUE && !signal) { 1529s [00:52:09.551] muffleCondition <- function (cond, pattern = "^muffle") 1529s [00:52:09.551] { 1529s [00:52:09.551] inherits <- base::inherits 1529s [00:52:09.551] invokeRestart <- base::invokeRestart 1529s [00:52:09.551] is.null <- base::is.null 1529s [00:52:09.551] muffled <- FALSE 1529s [00:52:09.551] if (inherits(cond, "message")) { 1529s [00:52:09.551] muffled <- grepl(pattern, "muffleMessage") 1529s [00:52:09.551] if (muffled) 1529s [00:52:09.551] invokeRestart("muffleMessage") 1529s [00:52:09.551] } 1529s [00:52:09.551] else if (inherits(cond, "warning")) { 1529s [00:52:09.551] muffled <- grepl(pattern, "muffleWarning") 1529s [00:52:09.551] if (muffled) 1529s [00:52:09.551] invokeRestart("muffleWarning") 1529s [00:52:09.551] } 1529s [00:52:09.551] else if (inherits(cond, "condition")) { 1529s [00:52:09.551] if (!is.null(pattern)) { 1529s [00:52:09.551] computeRestarts <- base::computeRestarts 1529s [00:52:09.551] grepl <- base::grepl 1529s [00:52:09.551] restarts <- computeRestarts(cond) 1529s [00:52:09.551] for (restart in restarts) { 1529s [00:52:09.551] name <- restart$name 1529s [00:52:09.551] if (is.null(name)) 1529s [00:52:09.551] next 1529s [00:52:09.551] if (!grepl(pattern, name)) 1529s [00:52:09.551] next 1529s [00:52:09.551] invokeRestart(restart) 1529s [00:52:09.551] muffled <- TRUE 1529s [00:52:09.551] break 1529s [00:52:09.551] } 1529s [00:52:09.551] } 1529s [00:52:09.551] } 1529s [00:52:09.551] invisible(muffled) 1529s [00:52:09.551] } 1529s [00:52:09.551] muffleCondition(cond, pattern = "^muffle") 1529s [00:52:09.551] } 1529s [00:52:09.551] } 1529s [00:52:09.551] else { 1529s [00:52:09.551] if (TRUE) { 1529s [00:52:09.551] muffleCondition <- function (cond, pattern = "^muffle") 1529s [00:52:09.551] { 1529s [00:52:09.551] inherits <- base::inherits 1529s [00:52:09.551] invokeRestart <- base::invokeRestart 1529s [00:52:09.551] is.null <- base::is.null 1529s [00:52:09.551] muffled <- FALSE 1529s [00:52:09.551] if (inherits(cond, "message")) { 1529s [00:52:09.551] muffled <- grepl(pattern, "muffleMessage") 1529s [00:52:09.551] if (muffled) 1529s [00:52:09.551] invokeRestart("muffleMessage") 1529s [00:52:09.551] } 1529s [00:52:09.551] else if (inherits(cond, "warning")) { 1529s [00:52:09.551] muffled <- grepl(pattern, "muffleWarning") 1529s [00:52:09.551] if (muffled) 1529s [00:52:09.551] invokeRestart("muffleWarning") 1529s [00:52:09.551] } 1529s [00:52:09.551] else if (inherits(cond, "condition")) { 1529s [00:52:09.551] if (!is.null(pattern)) { 1529s [00:52:09.551] computeRestarts <- base::computeRestarts 1529s [00:52:09.551] grepl <- base::grepl 1529s [00:52:09.551] restarts <- computeRestarts(cond) 1529s [00:52:09.551] for (restart in restarts) { 1529s [00:52:09.551] name <- restart$name 1529s [00:52:09.551] if (is.null(name)) 1529s [00:52:09.551] next 1529s [00:52:09.551] if (!grepl(pattern, name)) 1529s [00:52:09.551] next 1529s [00:52:09.551] invokeRestart(restart) 1529s [00:52:09.551] muffled <- TRUE 1529s [00:52:09.551] break 1529s [00:52:09.551] } 1529s [00:52:09.551] } 1529s [00:52:09.551] } 1529s [00:52:09.551] invisible(muffled) 1529s [00:52:09.551] } 1529s [00:52:09.551] muffleCondition(cond, pattern = "^muffle") 1529s [00:52:09.551] } 1529s [00:52:09.551] } 1529s [00:52:09.551] } 1529s [00:52:09.551] })) 1529s [00:52:09.551] }, error = function(ex) { 1529s [00:52:09.551] base::structure(base::list(value = NULL, visible = NULL, 1529s [00:52:09.551] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1529s [00:52:09.551] ...future.rng), started = ...future.startTime, 1529s [00:52:09.551] finished = Sys.time(), session_uuid = NA_character_, 1529s [00:52:09.551] version = "1.8"), class = "FutureResult") 1529s [00:52:09.551] }, finally = { 1529s [00:52:09.551] if (!identical(...future.workdir, getwd())) 1529s [00:52:09.551] setwd(...future.workdir) 1529s [00:52:09.551] { 1529s [00:52:09.551] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1529s [00:52:09.551] ...future.oldOptions$nwarnings <- NULL 1529s [00:52:09.551] } 1529s [00:52:09.551] base::options(...future.oldOptions) 1529s [00:52:09.551] if (.Platform$OS.type == "windows") { 1529s [00:52:09.551] old_names <- names(...future.oldEnvVars) 1529s [00:52:09.551] envs <- base::Sys.getenv() 1529s [00:52:09.551] names <- names(envs) 1529s [00:52:09.551] common <- intersect(names, old_names) 1529s [00:52:09.551] added <- setdiff(names, old_names) 1529s [00:52:09.551] removed <- setdiff(old_names, names) 1529s [00:52:09.551] changed <- common[...future.oldEnvVars[common] != 1529s [00:52:09.551] envs[common]] 1529s [00:52:09.551] NAMES <- toupper(changed) 1529s [00:52:09.551] args <- list() 1529s [00:52:09.551] for (kk in seq_along(NAMES)) { 1529s [00:52:09.551] name <- changed[[kk]] 1529s [00:52:09.551] NAME <- NAMES[[kk]] 1529s [00:52:09.551] if (name != NAME && is.element(NAME, old_names)) 1529s [00:52:09.551] next 1529s [00:52:09.551] args[[name]] <- ...future.oldEnvVars[[name]] 1529s [00:52:09.551] } 1529s [00:52:09.551] NAMES <- toupper(added) 1529s [00:52:09.551] for (kk in seq_along(NAMES)) { 1529s [00:52:09.551] name <- added[[kk]] 1529s [00:52:09.551] NAME <- NAMES[[kk]] 1529s [00:52:09.551] if (name != NAME && is.element(NAME, old_names)) 1529s [00:52:09.551] next 1529s [00:52:09.551] args[[name]] <- "" 1529s [00:52:09.551] } 1529s [00:52:09.551] NAMES <- toupper(removed) 1529s [00:52:09.551] for (kk in seq_along(NAMES)) { 1529s [00:52:09.551] name <- removed[[kk]] 1529s [00:52:09.551] NAME <- NAMES[[kk]] 1529s [00:52:09.551] if (name != NAME && is.element(NAME, old_names)) 1529s [00:52:09.551] next 1529s [00:52:09.551] args[[name]] <- ...future.oldEnvVars[[name]] 1529s [00:52:09.551] } 1529s [00:52:09.551] if (length(args) > 0) 1529s [00:52:09.551] base::do.call(base::Sys.setenv, args = args) 1529s [00:52:09.551] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1529s [00:52:09.551] } 1529s [00:52:09.551] else { 1529s [00:52:09.551] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1529s [00:52:09.551] } 1529s [00:52:09.551] { 1529s [00:52:09.551] if (base::length(...future.futureOptionsAdded) > 1529s [00:52:09.551] 0L) { 1529s [00:52:09.551] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1529s [00:52:09.551] base::names(opts) <- ...future.futureOptionsAdded 1529s [00:52:09.551] base::options(opts) 1529s [00:52:09.551] } 1529s [00:52:09.551] { 1529s [00:52:09.551] { 1529s [00:52:09.551] base::assign(".Random.seed", c(10407L, -235817339L, 1529s [00:52:09.551] -918112653L, 1726940932L, 2039504800L, -2077827493L, 1529s [00:52:09.551] -666439689L), envir = base::globalenv(), 1529s [00:52:09.551] inherits = FALSE) 1529s [00:52:09.551] NULL 1529s [00:52:09.551] } 1529s [00:52:09.551] options(future.plan = NULL) 1529s [00:52:09.551] if (is.na(NA_character_)) 1529s [00:52:09.551] Sys.unsetenv("R_FUTURE_PLAN") 1529s [00:52:09.551] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1529s [00:52:09.551] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1529s [00:52:09.551] envir = parent.frame()) 1529s [00:52:09.551] { 1529s [00:52:09.551] default_workers <- missing(workers) 1529s [00:52:09.551] if (is.function(workers)) 1529s [00:52:09.551] workers <- workers() 1529s [00:52:09.551] workers <- structure(as.integer(workers), 1529s [00:52:09.551] class = class(workers)) 1529s [00:52:09.551] stop_if_not(is.finite(workers), workers >= 1529s [00:52:09.551] 1L) 1529s [00:52:09.551] if ((workers == 1L && !inherits(workers, 1529s [00:52:09.551] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1529s [00:52:09.551] if (default_workers) 1529s [00:52:09.551] supportsMulticore(warn = TRUE) 1529s [00:52:09.551] return(sequential(..., envir = envir)) 1529s [00:52:09.551] } 1529s [00:52:09.551] oopts <- options(mc.cores = workers) 1529s [00:52:09.551] on.exit(options(oopts)) 1529s [00:52:09.551] future <- MulticoreFuture(..., workers = workers, 1529s [00:52:09.551] envir = envir) 1529s [00:52:09.551] if (!future$lazy) 1529s [00:52:09.551] future <- run(future) 1529s [00:52:09.551] invisible(future) 1529s [00:52:09.551] }), .cleanup = FALSE, .init = FALSE) 1529s [00:52:09.551] } 1529s [00:52:09.551] } 1529s [00:52:09.551] } 1529s [00:52:09.551] }) 1529s [00:52:09.551] if (TRUE) { 1529s [00:52:09.551] base::sink(type = "output", split = FALSE) 1529s [00:52:09.551] if (TRUE) { 1529s [00:52:09.551] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1529s [00:52:09.551] } 1529s [00:52:09.551] else { 1529s [00:52:09.551] ...future.result["stdout"] <- base::list(NULL) 1529s [00:52:09.551] } 1529s [00:52:09.551] base::close(...future.stdout) 1529s [00:52:09.551] ...future.stdout <- NULL 1529s [00:52:09.551] } 1529s [00:52:09.551] ...future.result$conditions <- ...future.conditions 1529s [00:52:09.551] ...future.result$finished <- base::Sys.time() 1529s [00:52:09.551] ...future.result 1529s [00:52:09.551] } 1529s [00:52:09.558] assign_globals() ... 1529s [00:52:09.558] List of 5 1529s [00:52:09.558] $ future.call.arguments : list() 1529s [00:52:09.558] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1529s [00:52:09.558] $ ...future.FUN :function (x) 1529s [00:52:09.558] $ ...future.elements_ii :List of 6 1529s [00:52:09.558] ..$ : int [1:4] 1 7 13 19 1529s [00:52:09.558] ..$ : int [1:4] 2 8 14 20 1529s [00:52:09.558] ..$ : int [1:4] 3 9 15 21 1529s [00:52:09.558] ..$ : int [1:4] 4 10 16 22 1529s [00:52:09.558] ..$ : int [1:4] 5 11 17 23 1529s [00:52:09.558] ..$ : int [1:4] 6 12 18 24 1529s [00:52:09.558] $ ...future.seeds_ii : NULL 1529s [00:52:09.558] $ ...future.globals.maxSize: num Inf 1529s [00:52:09.558] - attr(*, "resolved")= logi FALSE 1529s [00:52:09.558] - attr(*, "total_size")= num NA 1529s [00:52:09.558] - attr(*, "where")=List of 5 1529s [00:52:09.558] ..$ future.call.arguments : 1529s [00:52:09.558] ..$ ...future.FUN : 1529s [00:52:09.558] ..$ ...future.elements_ii : 1529s [00:52:09.558] ..$ ...future.seeds_ii : 1529s [00:52:09.558] ..$ ...future.globals.maxSize: 1529s [00:52:09.558] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1529s [00:52:09.558] - attr(*, "already-done")= logi TRUE 1529s [00:52:09.566] - copied ‘future.call.arguments’ to environment 1529s [00:52:09.566] - reassign environment for ‘...future.FUN’ 1529s [00:52:09.567] - copied ‘...future.FUN’ to environment 1529s [00:52:09.567] - copied ‘...future.elements_ii’ to environment 1529s [00:52:09.567] - copied ‘...future.seeds_ii’ to environment 1529s [00:52:09.567] - copied ‘...future.globals.maxSize’ to environment 1529s [00:52:09.567] assign_globals() ... done 1529s [00:52:09.567] plan(): Setting new future strategy stack: 1529s [00:52:09.568] List of future strategies: 1529s [00:52:09.568] 1. sequential: 1529s [00:52:09.568] - args: function (..., envir = parent.frame()) 1529s [00:52:09.568] - tweaked: FALSE 1529s [00:52:09.568] - call: NULL 1529s [00:52:09.568] plan(): nbrOfWorkers() = 1 1529s [00:52:09.569] plan(): Setting new future strategy stack: 1529s [00:52:09.570] List of future strategies: 1529s [00:52:09.570] 1. multicore: 1529s [00:52:09.570] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1529s [00:52:09.570] - tweaked: FALSE 1529s [00:52:09.570] - call: plan(strategy) 1529s [00:52:09.577] plan(): nbrOfWorkers() = 1 1529s [00:52:09.578] SequentialFuture started (and completed) 1529s [00:52:09.579] - Launch lazy future ... done 1529s [00:52:09.579] run() for ‘SequentialFuture’ ... done 1529s [00:52:09.579] Created future: 1529s [00:52:09.580] SequentialFuture: 1529s [00:52:09.580] Label: ‘future_apply-1’ 1529s [00:52:09.580] Expression: 1529s [00:52:09.580] { 1529s [00:52:09.580] do.call(function(...) { 1529s [00:52:09.580] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1529s [00:52:09.580] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1529s [00:52:09.580] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1529s [00:52:09.580] on.exit(options(oopts), add = TRUE) 1529s [00:52:09.580] } 1529s [00:52:09.580] { 1529s [00:52:09.580] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1529s [00:52:09.580] ...future.X_jj <- ...future.elements_ii[[jj]] 1529s [00:52:09.580] ...future.FUN(...future.X_jj, ...) 1529s [00:52:09.580] }) 1529s [00:52:09.580] } 1529s [00:52:09.580] }, args = future.call.arguments) 1529s [00:52:09.580] } 1529s [00:52:09.580] Lazy evaluation: FALSE 1529s [00:52:09.580] Asynchronous evaluation: FALSE 1529s [00:52:09.580] Local evaluation: TRUE 1529s [00:52:09.580] Environment: R_GlobalEnv 1529s [00:52:09.580] Capture standard output: TRUE 1529s [00:52:09.580] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1529s [00:52:09.580] Globals: 5 objects totaling 2.16 KiB (DotDotDotList ‘future.call.arguments’ of 0 bytes, function ‘...future.FUN’ of 1.73 KiB, list ‘...future.elements_ii’ of 384 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1529s [00:52:09.580] Packages: 1529s [00:52:09.580] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1529s [00:52:09.580] Resolved: TRUE 1529s [00:52:09.580] Value: 1.03 KiB of class ‘list’ 1529s [00:52:09.580] Early signaling: FALSE 1529s [00:52:09.580] Owner process: 856348fc-72a5-ec0b-63b7-1a3640a93e42 1529s [00:52:09.580] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1529s [00:52:09.582] Chunk #1 of 1 ... DONE 1529s [00:52:09.582] Launching 1 futures (chunks) ... DONE 1529s [00:52:09.583] Resolving 1 futures (chunks) ... 1529s [00:52:09.583] resolve() on list ... 1529s [00:52:09.583] recursive: 0 1529s [00:52:09.583] length: 1 1529s [00:52:09.583] 1529s [00:52:09.583] resolved() for ‘SequentialFuture’ ... 1529s [00:52:09.584] - state: ‘finished’ 1529s [00:52:09.584] - run: TRUE 1529s [00:52:09.584] - result: ‘FutureResult’ 1529s [00:52:09.584] resolved() for ‘SequentialFuture’ ... done 1529s [00:52:09.584] Future #1 1529s [00:52:09.585] signalConditionsASAP(SequentialFuture, pos=1) ... 1529s [00:52:09.585] - nx: 1 1529s [00:52:09.585] - relay: TRUE 1529s [00:52:09.585] - stdout: TRUE 1529s [00:52:09.585] - signal: TRUE 1529s [00:52:09.585] - resignal: FALSE 1529s [00:52:09.585] - force: TRUE 1529s [00:52:09.586] - relayed: [n=1] FALSE 1529s [00:52:09.586] - queued futures: [n=1] FALSE 1529s [00:52:09.586] - until=1 1529s [00:52:09.586] - relaying element #1 1529s [00:52:09.586] - relayed: [n=1] TRUE 1529s [00:52:09.586] - queued futures: [n=1] TRUE 1529s [00:52:09.587] signalConditionsASAP(SequentialFuture, pos=1) ... done 1529s [00:52:09.587] length: 0 (resolved future 1) 1529s [00:52:09.587] Relaying remaining futures 1529s [00:52:09.587] signalConditionsASAP(NULL, pos=0) ... 1529s [00:52:09.587] - nx: 1 1529s [00:52:09.587] - relay: TRUE 1529s [00:52:09.588] - stdout: TRUE 1529s [00:52:09.588] - signal: TRUE 1529s [00:52:09.588] - resignal: FALSE 1529s [00:52:09.588] - force: TRUE 1529s [00:52:09.588] - relayed: [n=1] TRUE 1529s [00:52:09.588] - queued futures: [n=1] TRUE 1529s - flush all 1529s [00:52:09.588] - relayed: [n=1] TRUE 1529s [00:52:09.589] - queued futures: [n=1] TRUE 1529s [00:52:09.589] signalConditionsASAP(NULL, pos=0) ... done 1529s [00:52:09.589] resolve() on list ... DONE 1529s [00:52:09.589] - Number of value chunks collected: 1 1529s [00:52:09.589] Resolving 1 futures (chunks) ... DONE 1529s [00:52:09.589] Reducing values from 1 chunks ... 1529s [00:52:09.589] - Number of values collected after concatenation: 6 1529s [00:52:09.589] - Number of values expected: 6 1529s [00:52:09.590] Reducing values from 1 chunks ... DONE 1529s [00:52:09.590] future_lapply() ... DONE 1529s [,1] [,2] [,3] 1529s [1,] integer,19- apply(X, MARGIN = , ...) ... 1529s [00:52:09.591] getGlobalsAndPackagesXApply() ... 1529s [00:52:09.591] - future.globals: TRUE 1529s [00:52:09.592] getGlobalsAndPackages() ... 1529s [00:52:09.592] Searching for globals... 1529s integer,21 integer,23 1529s [2,] integer,20 integer,22 integer,24 1529s [00:52:09.593] - globals found: [1] ‘FUN’ 1529s [00:52:09.593] Searching for globals ... DONE 1529s [00:52:09.593] Resolving globals: FALSE 1529s [00:52:09.594] The total size of the 1 globals is 848 bytes (848 bytes) 1529s [00:52:09.594] The total size of the 1 globals exported for future expression (‘FUN(X = structure(1:2, dim = 2:1, dimnames = list(rows = c("a",; "b"), NULL)))’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1529s [00:52:09.595] - globals: [1] ‘FUN’ 1529s [00:52:09.595] 1529s [00:52:09.595] getGlobalsAndPackages() ... DONE 1529s [00:52:09.595] - globals found/used: [n=1] ‘FUN’ 1529s [00:52:09.595] - needed namespaces: [n=0] 1529s [00:52:09.595] Finding globals ... DONE 1529s [00:52:09.595] - use_args: TRUE 1529s [00:52:09.596] - Getting '...' globals ... 1529s [00:52:09.596] resolve() on list ... 1529s [00:52:09.596] recursive: 0 1529s [00:52:09.596] length: 1 1529s [00:52:09.596] elements: ‘...’ 1529s [00:52:09.597] length: 0 (resolved future 1) 1529s [00:52:09.597] resolve() on list ... DONE 1529s [00:52:09.597] - '...' content: [n=0] 1529s [00:52:09.597] List of 1 1529s [00:52:09.597] $ ...: list() 1529s [00:52:09.597] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1529s [00:52:09.597] - attr(*, "where")=List of 1 1529s [00:52:09.597] ..$ ...: 1529s [00:52:09.597] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1529s [00:52:09.597] - attr(*, "resolved")= logi TRUE 1529s [00:52:09.597] - attr(*, "total_size")= num NA 1529s [00:52:09.600] - Getting '...' globals ... DONE 1529s [00:52:09.600] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1529s [00:52:09.601] List of 2 1529s [00:52:09.601] $ ...future.FUN:function (x) 1529s [00:52:09.601] $ ... : list() 1529s [00:52:09.601] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1529s [00:52:09.601] - attr(*, "where")=List of 2 1529s [00:52:09.601] ..$ ...future.FUN: 1529s [00:52:09.601] ..$ ... : 1529s [00:52:09.601] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1529s [00:52:09.601] - attr(*, "resolved")= logi FALSE 1529s [00:52:09.601] - attr(*, "total_size")= num 848 1529s [00:52:09.604] Packages to be attached in all futures: [n=0] 1529s [00:52:09.604] getGlobalsAndPackagesXApply() ... DONE 1529s [00:52:09.607] future_lapply() ... 1529s [00:52:09.611] Number of chunks: 1 1529s [00:52:09.611] getGlobalsAndPackagesXApply() ... 1529s [00:52:09.611] - future.globals: with names ‘list()’ 1529s [00:52:09.612] - use_args: TRUE 1529s [00:52:09.612] Globals to be used in all futures (chunks): [n=2] ‘...’, ‘...future.FUN’ 1529s [00:52:09.612] List of 2 1529s [00:52:09.612] $ ... : list() 1529s [00:52:09.612] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1529s [00:52:09.612] $ ...future.FUN:function (x) 1529s [00:52:09.612] - attr(*, "where")=List of 2 1529s [00:52:09.612] ..$ ... : 1529s [00:52:09.612] ..$ ...future.FUN: 1529s [00:52:09.612] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1529s [00:52:09.612] - attr(*, "resolved")= logi FALSE 1529s [00:52:09.612] - attr(*, "total_size")= num NA 1529s [00:52:09.620] Packages to be attached in all futures: [n=0] 1529s [00:52:09.620] getGlobalsAndPackagesXApply() ... DONE 1529s [00:52:09.621] Number of futures (= number of chunks): 1 1529s [00:52:09.621] Launching 1 futures (chunks) ... 1529s [00:52:09.622] Chunk #1 of 1 ... 1529s [00:52:09.622] - seeds: 1529s [00:52:09.622] - All globals exported: [n=5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1529s [00:52:09.623] getGlobalsAndPackages() ... 1529s [00:52:09.623] - globals passed as-is: [5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1529s [00:52:09.623] Resolving globals: FALSE 1529s [00:52:09.623] Tweak future expression to call with '...' arguments ... 1529s [00:52:09.624] { 1529s [00:52:09.624] do.call(function(...) { 1529s [00:52:09.624] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1529s [00:52:09.624] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1529s [00:52:09.624] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1529s [00:52:09.624] on.exit(options(oopts), add = TRUE) 1529s [00:52:09.624] } 1529s [00:52:09.624] { 1529s [00:52:09.624] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1529s [00:52:09.624] ...future.X_jj <- ...future.elements_ii[[jj]] 1529s [00:52:09.624] ...future.FUN(...future.X_jj, ...) 1529s [00:52:09.624] }) 1529s [00:52:09.624] } 1529s [00:52:09.624] }, args = future.call.arguments) 1529s [00:52:09.624] } 1529s [00:52:09.624] Tweak future expression to call with '...' arguments ... DONE 1529s [00:52:09.625] - globals: [5] ‘future.call.arguments’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1529s [00:52:09.625] 1529s [00:52:09.625] getGlobalsAndPackages() ... DONE 1529s [00:52:09.625] run() for ‘Future’ ... 1529s [00:52:09.626] - state: ‘created’ 1529s [00:52:09.626] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1529s [00:52:09.631] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1529s [00:52:09.631] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1529s [00:52:09.632] - Field: ‘label’ 1529s [00:52:09.632] - Field: ‘local’ 1529s [00:52:09.632] - Field: ‘owner’ 1529s [00:52:09.632] - Field: ‘envir’ 1529s [00:52:09.632] - Field: ‘packages’ 1529s [00:52:09.633] - Field: ‘gc’ 1529s [00:52:09.633] - Field: ‘conditions’ 1529s [00:52:09.633] - Field: ‘expr’ 1529s [00:52:09.633] - Field: ‘uuid’ 1529s [00:52:09.633] - Field: ‘seed’ 1529s [00:52:09.634] - Field: ‘version’ 1529s [00:52:09.634] - Field: ‘result’ 1529s [00:52:09.634] - Field: ‘asynchronous’ 1529s [00:52:09.634] - Field: ‘calls’ 1529s [00:52:09.635] - Field: ‘globals’ 1529s [00:52:09.635] - Field: ‘stdout’ 1529s [00:52:09.635] - Field: ‘earlySignal’ 1529s [00:52:09.635] - Field: ‘lazy’ 1529s [00:52:09.635] - Field: ‘state’ 1529s [00:52:09.635] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1529s [00:52:09.635] - Launch lazy future ... 1529s [00:52:09.635] Packages needed by the future expression (n = 0): 1529s [00:52:09.636] Packages needed by future strategies (n = 0): 1529s [00:52:09.636] { 1529s [00:52:09.636] { 1529s [00:52:09.636] { 1529s [00:52:09.636] ...future.startTime <- base::Sys.time() 1529s [00:52:09.636] { 1529s [00:52:09.636] { 1529s [00:52:09.636] { 1529s [00:52:09.636] base::local({ 1529s [00:52:09.636] has_future <- base::requireNamespace("future", 1529s [00:52:09.636] quietly = TRUE) 1529s [00:52:09.636] if (has_future) { 1529s [00:52:09.636] ns <- base::getNamespace("future") 1529s [00:52:09.636] version <- ns[[".package"]][["version"]] 1529s [00:52:09.636] if (is.null(version)) 1529s [00:52:09.636] version <- utils::packageVersion("future") 1529s [00:52:09.636] } 1529s [00:52:09.636] else { 1529s [00:52:09.636] version <- NULL 1529s [00:52:09.636] } 1529s [00:52:09.636] if (!has_future || version < "1.8.0") { 1529s [00:52:09.636] info <- base::c(r_version = base::gsub("R version ", 1529s [00:52:09.636] "", base::R.version$version.string), 1529s [00:52:09.636] platform = base::sprintf("%s (%s-bit)", 1529s [00:52:09.636] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1529s [00:52:09.636] os = base::paste(base::Sys.info()[base::c("sysname", 1529s [00:52:09.636] "release", "version")], collapse = " "), 1529s [00:52:09.636] hostname = base::Sys.info()[["nodename"]]) 1529s [00:52:09.636] info <- base::sprintf("%s: %s", base::names(info), 1529s [00:52:09.636] info) 1529s [00:52:09.636] info <- base::paste(info, collapse = "; ") 1529s [00:52:09.636] if (!has_future) { 1529s [00:52:09.636] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1529s [00:52:09.636] info) 1529s [00:52:09.636] } 1529s [00:52:09.636] else { 1529s [00:52:09.636] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1529s [00:52:09.636] info, version) 1529s [00:52:09.636] } 1529s [00:52:09.636] base::stop(msg) 1529s [00:52:09.636] } 1529s [00:52:09.636] }) 1529s [00:52:09.636] } 1529s [00:52:09.636] options(future.plan = NULL) 1529s [00:52:09.636] Sys.unsetenv("R_FUTURE_PLAN") 1529s [00:52:09.636] future::plan("default", .cleanup = FALSE, .init = FALSE) 1529s [00:52:09.636] } 1529s [00:52:09.636] ...future.workdir <- getwd() 1529s [00:52:09.636] } 1529s [00:52:09.636] ...future.oldOptions <- base::as.list(base::.Options) 1529s [00:52:09.636] ...future.oldEnvVars <- base::Sys.getenv() 1529s [00:52:09.636] } 1529s [00:52:09.636] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1529s [00:52:09.636] future.globals.maxSize = Inf, future.globals.method = NULL, 1529s [00:52:09.636] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1529s [00:52:09.636] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1529s [00:52:09.636] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1529s [00:52:09.636] future.stdout.windows.reencode = NULL, width = 80L) 1529s [00:52:09.636] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1529s [00:52:09.636] base::names(...future.oldOptions)) 1529s [00:52:09.636] } 1529s [00:52:09.636] if (FALSE) { 1529s [00:52:09.636] } 1529s [00:52:09.636] else { 1529s [00:52:09.636] if (TRUE) { 1529s [00:52:09.636] ...future.stdout <- base::rawConnection(base::raw(0L), 1529s [00:52:09.636] open = "w") 1529s [00:52:09.636] } 1529s [00:52:09.636] else { 1529s [00:52:09.636] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1529s [00:52:09.636] windows = "NUL", "/dev/null"), open = "w") 1529s [00:52:09.636] } 1529s [00:52:09.636] base::sink(...future.stdout, type = "output", split = FALSE) 1529s [00:52:09.636] base::on.exit(if (!base::is.null(...future.stdout)) { 1529s [00:52:09.636] base::sink(type = "output", split = FALSE) 1529s [00:52:09.636] base::close(...future.stdout) 1529s [00:52:09.636] }, add = TRUE) 1529s [00:52:09.636] } 1529s [00:52:09.636] ...future.frame <- base::sys.nframe() 1529s [00:52:09.636] ...future.conditions <- base::list() 1529s [00:52:09.636] ...future.rng <- base::globalenv()$.Random.seed 1529s [00:52:09.636] if (FALSE) { 1529s [00:52:09.636] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1529s [00:52:09.636] "...future.value", "...future.globalenv.names", ".Random.seed") 1529s [00:52:09.636] } 1529s [00:52:09.636] ...future.result <- base::tryCatch({ 1529s [00:52:09.636] base::withCallingHandlers({ 1529s [00:52:09.636] ...future.value <- base::withVisible(base::local({ 1529s [00:52:09.636] do.call(function(...) { 1529s [00:52:09.636] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1529s [00:52:09.636] if (!identical(...future.globals.maxSize.org, 1529s [00:52:09.636] ...future.globals.maxSize)) { 1529s [00:52:09.636] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1529s [00:52:09.636] on.exit(options(oopts), add = TRUE) 1529s [00:52:09.636] } 1529s [00:52:09.636] { 1529s [00:52:09.636] lapply(seq_along(...future.elements_ii), 1529s [00:52:09.636] FUN = function(jj) { 1529s [00:52:09.636] ...future.X_jj <- ...future.elements_ii[[jj]] 1529s [00:52:09.636] ...future.FUN(...future.X_jj, ...) 1529s [00:52:09.636] }) 1529s [00:52:09.636] } 1529s [00:52:09.636] }, args = future.call.arguments) 1529s [00:52:09.636] })) 1529s [00:52:09.636] future::FutureResult(value = ...future.value$value, 1529s [00:52:09.636] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1529s [00:52:09.636] ...future.rng), globalenv = if (FALSE) 1529s [00:52:09.636] list(added = base::setdiff(base::names(base::.GlobalEnv), 1529s [00:52:09.636] ...future.globalenv.names)) 1529s [00:52:09.636] else NULL, started = ...future.startTime, version = "1.8") 1529s [00:52:09.636] }, condition = base::local({ 1529s [00:52:09.636] c <- base::c 1529s [00:52:09.636] inherits <- base::inherits 1529s [00:52:09.636] invokeRestart <- base::invokeRestart 1529s [00:52:09.636] length <- base::length 1529s [00:52:09.636] list <- base::list 1529s [00:52:09.636] seq.int <- base::seq.int 1529s [00:52:09.636] signalCondition <- base::signalCondition 1529s [00:52:09.636] sys.calls <- base::sys.calls 1529s [00:52:09.636] `[[` <- base::`[[` 1529s [00:52:09.636] `+` <- base::`+` 1529s [00:52:09.636] `<<-` <- base::`<<-` 1529s [00:52:09.636] sysCalls <- function(calls = sys.calls(), from = 1L) { 1529s [00:52:09.636] calls[seq.int(from = from + 12L, to = length(calls) - 1529s [00:52:09.636] 3L)] 1529s [00:52:09.636] } 1529s [00:52:09.636] function(cond) { 1529s [00:52:09.636] is_error <- inherits(cond, "error") 1529s [00:52:09.636] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1529s [00:52:09.636] NULL) 1529s [00:52:09.636] if (is_error) { 1529s [00:52:09.636] sessionInformation <- function() { 1529s [00:52:09.636] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1529s [00:52:09.636] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1529s [00:52:09.636] search = base::search(), system = base::Sys.info()) 1529s [00:52:09.636] } 1529s [00:52:09.636] ...future.conditions[[length(...future.conditions) + 1529s [00:52:09.636] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1529s [00:52:09.636] cond$call), session = sessionInformation(), 1529s [00:52:09.636] timestamp = base::Sys.time(), signaled = 0L) 1529s [00:52:09.636] signalCondition(cond) 1529s [00:52:09.636] } 1529s [00:52:09.636] else if (!ignore && TRUE && inherits(cond, c("condition", 1529s [00:52:09.636] "immediateCondition"))) { 1529s [00:52:09.636] signal <- TRUE && inherits(cond, "immediateCondition") 1529s [00:52:09.636] ...future.conditions[[length(...future.conditions) + 1529s [00:52:09.636] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1529s [00:52:09.636] if (TRUE && !signal) { 1529s [00:52:09.636] muffleCondition <- function (cond, pattern = "^muffle") 1529s [00:52:09.636] { 1529s [00:52:09.636] inherits <- base::inherits 1529s [00:52:09.636] invokeRestart <- base::invokeRestart 1529s [00:52:09.636] is.null <- base::is.null 1529s [00:52:09.636] muffled <- FALSE 1529s [00:52:09.636] if (inherits(cond, "message")) { 1529s [00:52:09.636] muffled <- grepl(pattern, "muffleMessage") 1529s [00:52:09.636] if (muffled) 1529s [00:52:09.636] invokeRestart("muffleMessage") 1529s [00:52:09.636] } 1529s [00:52:09.636] else if (inherits(cond, "warning")) { 1529s [00:52:09.636] muffled <- grepl(pattern, "muffleWarning") 1529s [00:52:09.636] if (muffled) 1529s [00:52:09.636] invokeRestart("muffleWarning") 1529s [00:52:09.636] } 1529s [00:52:09.636] else if (inherits(cond, "condition")) { 1529s [00:52:09.636] if (!is.null(pattern)) { 1529s [00:52:09.636] computeRestarts <- base::computeRestarts 1529s [00:52:09.636] grepl <- base::grepl 1529s [00:52:09.636] restarts <- computeRestarts(cond) 1529s [00:52:09.636] for (restart in restarts) { 1529s [00:52:09.636] name <- restart$name 1529s [00:52:09.636] if (is.null(name)) 1529s [00:52:09.636] next 1529s [00:52:09.636] if (!grepl(pattern, name)) 1529s [00:52:09.636] next 1529s [00:52:09.636] invokeRestart(restart) 1529s [00:52:09.636] muffled <- TRUE 1529s [00:52:09.636] break 1529s [00:52:09.636] } 1529s [00:52:09.636] } 1529s [00:52:09.636] } 1529s [00:52:09.636] invisible(muffled) 1529s [00:52:09.636] } 1529s [00:52:09.636] muffleCondition(cond, pattern = "^muffle") 1529s [00:52:09.636] } 1529s [00:52:09.636] } 1529s [00:52:09.636] else { 1529s [00:52:09.636] if (TRUE) { 1529s [00:52:09.636] muffleCondition <- function (cond, pattern = "^muffle") 1529s [00:52:09.636] { 1529s [00:52:09.636] inherits <- base::inherits 1529s [00:52:09.636] invokeRestart <- base::invokeRestart 1529s [00:52:09.636] is.null <- base::is.null 1529s [00:52:09.636] muffled <- FALSE 1529s [00:52:09.636] if (inherits(cond, "message")) { 1529s [00:52:09.636] muffled <- grepl(pattern, "muffleMessage") 1529s [00:52:09.636] if (muffled) 1529s [00:52:09.636] invokeRestart("muffleMessage") 1529s [00:52:09.636] } 1529s [00:52:09.636] else if (inherits(cond, "warning")) { 1529s [00:52:09.636] muffled <- grepl(pattern, "muffleWarning") 1529s [00:52:09.636] if (muffled) 1529s [00:52:09.636] invokeRestart("muffleWarning") 1529s [00:52:09.636] } 1529s [00:52:09.636] else if (inherits(cond, "condition")) { 1529s [00:52:09.636] if (!is.null(pattern)) { 1529s [00:52:09.636] computeRestarts <- base::computeRestarts 1529s [00:52:09.636] grepl <- base::grepl 1529s [00:52:09.636] restarts <- computeRestarts(cond) 1529s [00:52:09.636] for (restart in restarts) { 1529s [00:52:09.636] name <- restart$name 1529s [00:52:09.636] if (is.null(name)) 1529s [00:52:09.636] next 1529s [00:52:09.636] if (!grepl(pattern, name)) 1529s [00:52:09.636] next 1529s [00:52:09.636] invokeRestart(restart) 1529s [00:52:09.636] muffled <- TRUE 1529s [00:52:09.636] break 1529s [00:52:09.636] } 1529s [00:52:09.636] } 1529s [00:52:09.636] } 1529s [00:52:09.636] invisible(muffled) 1529s [00:52:09.636] } 1529s [00:52:09.636] muffleCondition(cond, pattern = "^muffle") 1529s [00:52:09.636] } 1529s [00:52:09.636] } 1529s [00:52:09.636] } 1529s [00:52:09.636] })) 1529s [00:52:09.636] }, error = function(ex) { 1529s [00:52:09.636] base::structure(base::list(value = NULL, visible = NULL, 1529s [00:52:09.636] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1529s [00:52:09.636] ...future.rng), started = ...future.startTime, 1529s [00:52:09.636] finished = Sys.time(), session_uuid = NA_character_, 1529s [00:52:09.636] version = "1.8"), class = "FutureResult") 1529s [00:52:09.636] }, finally = { 1529s [00:52:09.636] if (!identical(...future.workdir, getwd())) 1529s [00:52:09.636] setwd(...future.workdir) 1529s [00:52:09.636] { 1529s [00:52:09.636] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1529s [00:52:09.636] ...future.oldOptions$nwarnings <- NULL 1529s [00:52:09.636] } 1529s [00:52:09.636] base::options(...future.oldOptions) 1529s [00:52:09.636] if (.Platform$OS.type == "windows") { 1529s [00:52:09.636] old_names <- names(...future.oldEnvVars) 1529s [00:52:09.636] envs <- base::Sys.getenv() 1529s [00:52:09.636] names <- names(envs) 1529s [00:52:09.636] common <- intersect(names, old_names) 1529s [00:52:09.636] added <- setdiff(names, old_names) 1529s [00:52:09.636] removed <- setdiff(old_names, names) 1529s [00:52:09.636] changed <- common[...future.oldEnvVars[common] != 1529s [00:52:09.636] envs[common]] 1529s [00:52:09.636] NAMES <- toupper(changed) 1529s [00:52:09.636] args <- list() 1529s [00:52:09.636] for (kk in seq_along(NAMES)) { 1529s [00:52:09.636] name <- changed[[kk]] 1529s [00:52:09.636] NAME <- NAMES[[kk]] 1529s [00:52:09.636] if (name != NAME && is.element(NAME, old_names)) 1529s [00:52:09.636] next 1529s [00:52:09.636] args[[name]] <- ...future.oldEnvVars[[name]] 1529s [00:52:09.636] } 1529s [00:52:09.636] NAMES <- toupper(added) 1529s [00:52:09.636] for (kk in seq_along(NAMES)) { 1529s [00:52:09.636] name <- added[[kk]] 1529s [00:52:09.636] NAME <- NAMES[[kk]] 1529s [00:52:09.636] if (name != NAME && is.element(NAME, old_names)) 1529s [00:52:09.636] next 1529s [00:52:09.636] args[[name]] <- "" 1529s [00:52:09.636] } 1529s [00:52:09.636] NAMES <- toupper(removed) 1529s [00:52:09.636] for (kk in seq_along(NAMES)) { 1529s [00:52:09.636] name <- removed[[kk]] 1529s [00:52:09.636] NAME <- NAMES[[kk]] 1529s [00:52:09.636] if (name != NAME && is.element(NAME, old_names)) 1529s [00:52:09.636] next 1529s [00:52:09.636] args[[name]] <- ...future.oldEnvVars[[name]] 1529s [00:52:09.636] } 1529s [00:52:09.636] if (length(args) > 0) 1529s [00:52:09.636] base::do.call(base::Sys.setenv, args = args) 1529s [00:52:09.636] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1529s [00:52:09.636] } 1529s [00:52:09.636] else { 1529s [00:52:09.636] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1529s [00:52:09.636] } 1529s [00:52:09.636] { 1529s [00:52:09.636] if (base::length(...future.futureOptionsAdded) > 1529s [00:52:09.636] 0L) { 1529s [00:52:09.636] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1529s [00:52:09.636] base::names(opts) <- ...future.futureOptionsAdded 1529s [00:52:09.636] base::options(opts) 1529s [00:52:09.636] } 1529s [00:52:09.636] { 1529s [00:52:09.636] { 1529s [00:52:09.636] base::assign(".Random.seed", c(10407L, -235817339L, 1529s [00:52:09.636] -918112653L, 1726940932L, 2039504800L, -2077827493L, 1529s [00:52:09.636] -666439689L), envir = base::globalenv(), 1529s [00:52:09.636] inherits = FALSE) 1529s [00:52:09.636] NULL 1529s [00:52:09.636] } 1529s [00:52:09.636] options(future.plan = NULL) 1529s [00:52:09.636] if (is.na(NA_character_)) 1529s [00:52:09.636] Sys.unsetenv("R_FUTURE_PLAN") 1529s [00:52:09.636] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1529s [00:52:09.636] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1529s [00:52:09.636] envir = parent.frame()) 1529s [00:52:09.636] { 1529s [00:52:09.636] default_workers <- missing(workers) 1529s [00:52:09.636] if (is.function(workers)) 1529s [00:52:09.636] workers <- workers() 1529s [00:52:09.636] workers <- structure(as.integer(workers), 1529s [00:52:09.636] class = class(workers)) 1529s [00:52:09.636] stop_if_not(is.finite(workers), workers >= 1529s [00:52:09.636] 1L) 1529s [00:52:09.636] if ((workers == 1L && !inherits(workers, 1529s [00:52:09.636] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1529s [00:52:09.636] if (default_workers) 1529s [00:52:09.636] supportsMulticore(warn = TRUE) 1529s [00:52:09.636] return(sequential(..., envir = envir)) 1529s [00:52:09.636] } 1529s [00:52:09.636] oopts <- options(mc.cores = workers) 1529s [00:52:09.636] on.exit(options(oopts)) 1529s [00:52:09.636] future <- MulticoreFuture(..., workers = workers, 1529s [00:52:09.636] envir = envir) 1529s [00:52:09.636] if (!future$lazy) 1529s [00:52:09.636] future <- run(future) 1529s [00:52:09.636] invisible(future) 1529s [00:52:09.636] }), .cleanup = FALSE, .init = FALSE) 1529s [00:52:09.636] } 1529s [00:52:09.636] } 1529s [00:52:09.636] } 1529s [00:52:09.636] }) 1529s [00:52:09.636] if (TRUE) { 1529s [00:52:09.636] base::sink(type = "output", split = FALSE) 1529s [00:52:09.636] if (TRUE) { 1529s [00:52:09.636] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1529s [00:52:09.636] } 1529s [00:52:09.636] else { 1529s [00:52:09.636] ...future.result["stdout"] <- base::list(NULL) 1529s [00:52:09.636] } 1529s [00:52:09.636] base::close(...future.stdout) 1529s [00:52:09.636] ...future.stdout <- NULL 1529s [00:52:09.636] } 1529s [00:52:09.636] ...future.result$conditions <- ...future.conditions 1529s [00:52:09.636] ...future.result$finished <- base::Sys.time() 1529s [00:52:09.636] ...future.result 1529s [00:52:09.636] } 1529s [00:52:09.644] assign_globals() ... 1529s [00:52:09.644] List of 5 1529s [00:52:09.644] $ future.call.arguments : list() 1529s [00:52:09.644] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1529s [00:52:09.644] $ ...future.FUN :function (x) 1529s [00:52:09.644] $ ...future.elements_ii :List of 2 1529s [00:52:09.644] ..$ : int 1 1529s [00:52:09.644] ..$ : int 2 1529s [00:52:09.644] $ ...future.seeds_ii : NULL 1529s [00:52:09.644] $ ...future.globals.maxSize: num Inf 1529s [00:52:09.644] - attr(*, "resolved")= logi FALSE 1529s [00:52:09.644] - attr(*, "total_size")= num NA 1529s [00:52:09.644] - attr(*, "where")=List of 5 1529s [00:52:09.644] ..$ future.call.arguments : 1529s [00:52:09.644] ..$ ...future.FUN : 1529s [00:52:09.644] ..$ ...future.elements_ii : 1529s [00:52:09.644] ..$ ...future.seeds_ii : 1529s [00:52:09.644] ..$ ...future.globals.maxSize: 1529s [00:52:09.644] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1529s [00:52:09.644] - attr(*, "already-done")= logi TRUE 1529s [00:52:09.652] - copied ‘future.call.arguments’ to environment 1529s [00:52:09.652] - copied ‘...future.FUN’ to environment 1529s [00:52:09.653] - copied ‘...future.elements_ii’ to environment 1529s [00:52:09.653] - copied ‘...future.seeds_ii’ to environment 1529s [00:52:09.653] - copied ‘...future.globals.maxSize’ to environment 1529s [00:52:09.653] assign_globals() ... done 1529s [00:52:09.653] plan(): Setting new future strategy stack: 1529s [00:52:09.654] List of future strategies: 1529s [00:52:09.654] 1. sequential: 1529s [00:52:09.654] - args: function (..., envir = parent.frame()) 1529s [00:52:09.654] - tweaked: FALSE 1529s [00:52:09.654] - call: NULL 1529s [00:52:09.654] plan(): nbrOfWorkers() = 1 1529s [00:52:09.655] plan(): Setting new future strategy stack: 1529s [00:52:09.655] List of future strategies: 1529s [00:52:09.655] 1. multicore: 1529s [00:52:09.655] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1529s [00:52:09.655] - tweaked: FALSE 1529s [00:52:09.655] - call: plan(strategy) 1529s [00:52:09.659] plan(): nbrOfWorkers() = 1 1529s [00:52:09.659] SequentialFuture started (and completed) 1529s [00:52:09.659] - Launch lazy future ... done 1529s [00:52:09.660] run() for ‘SequentialFuture’ ... done 1529s [00:52:09.660] Created future: 1529s [00:52:09.660] SequentialFuture: 1529s [00:52:09.660] Label: ‘future_apply-1’ 1529s [00:52:09.660] Expression: 1529s [00:52:09.660] { 1529s [00:52:09.660] do.call(function(...) { 1529s [00:52:09.660] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1529s [00:52:09.660] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1529s [00:52:09.660] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1529s [00:52:09.660] on.exit(options(oopts), add = TRUE) 1529s [00:52:09.660] } 1529s [00:52:09.660] { 1529s [00:52:09.660] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1529s [00:52:09.660] ...future.X_jj <- ...future.elements_ii[[jj]] 1529s [00:52:09.660] ...future.FUN(...future.X_jj, ...) 1529s [00:52:09.660] }) 1529s [00:52:09.660] } 1529s [00:52:09.660] }, args = future.call.arguments) 1529s [00:52:09.660] } 1529s [00:52:09.660] Lazy evaluation: FALSE 1529s [00:52:09.660] Asynchronous evaluation: FALSE 1529s [00:52:09.660] Local evaluation: TRUE 1529s [00:52:09.660] Environment: R_GlobalEnv 1529s [00:52:09.660] Capture standard output: TRUE 1529s [00:52:09.660] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1529s [00:52:09.660] Globals: 5 objects totaling 0.99 KiB (DotDotDotList ‘future.call.arguments’ of 0 bytes, function ‘...future.FUN’ of 848 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1529s [00:52:09.660] Packages: 1529s [00:52:09.660] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1529s [00:52:09.660] Resolved: TRUE 1529s [00:52:09.660] Value: 112 bytes of class ‘list’ 1529s [00:52:09.660] Early signaling: FALSE 1529s [00:52:09.660] Owner process: 856348fc-72a5-ec0b-63b7-1a3640a93e42 1529s [00:52:09.660] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1529s [00:52:09.662] Chunk #1 of 1 ... DONE 1529s [00:52:09.662] Launching 1 futures (chunks) ... DONE 1529s [00:52:09.662] Resolving 1 futures (chunks) ... 1529s [00:52:09.662] resolve() on list ... 1529s [00:52:09.662] recursive: 0 1529s [00:52:09.663] length: 1 1529s [00:52:09.663] 1529s [00:52:09.663] resolved() for ‘SequentialFuture’ ... 1529s [00:52:09.663] - state: ‘finished’ 1529s [00:52:09.663] - run: TRUE 1529s [00:52:09.663] - result: ‘FutureResult’ 1529s [00:52:09.664] resolved() for ‘SequentialFuture’ ... done 1529s [00:52:09.664] Future #1 1529s [00:52:09.664] signalConditionsASAP(SequentialFuture, pos=1) ... 1529s [00:52:09.664] - nx: 1 1529s [00:52:09.664] - relay: TRUE 1529s [00:52:09.666] - stdout: TRUE 1529s [00:52:09.666] - signal: TRUE 1529s [00:52:09.666] - resignal: FALSE 1529s [00:52:09.666] - force: TRUE 1529s [00:52:09.666] - relayed: [n=1] FALSE 1529s [00:52:09.666] - queued futures: [n=1] FALSE 1529s [00:52:09.666] - until=1 1529s [00:52:09.666] - relaying element #1 1529s [00:52:09.667] - relayed: [n=1] TRUE 1529s [00:52:09.667] - queued futures: [n=1] TRUE 1529s [00:52:09.667] signalConditionsASAP(SequentialFuture, pos=1) ... done 1529s [00:52:09.667] length: 0 (resolved future 1) 1529s [00:52:09.667] Relaying remaining futures 1529s [00:52:09.667] signalConditionsASAP(NULL, pos=0) ... 1529s [00:52:09.667] - nx: 1 1529s [00:52:09.667] - relay: TRUE 1529s [00:52:09.668] - stdout: TRUE 1529s [00:52:09.668] - signal: TRUE 1529s [00:52:09.668] - resignal: FALSE 1529s [00:52:09.668] - force: TRUE 1529s [00:52:09.668] - relayed: [n=1] TRUE 1529s [00:52:09.668] - queued futures: [n=1] TRUE 1529s - flush all 1529s [00:52:09.668] - relayed: [n=1] TRUE 1529s [00:52:09.668] - queued futures: [n=1] TRUE 1529s [00:52:09.668] signalConditionsASAP(NULL, pos=0) ... done 1529s [00:52:09.669] resolve() on list ... DONE 1529s [00:52:09.669] - Number of value chunks collected: 1 1529s [00:52:09.669] Resolving 1 futures (chunks) ... DONE 1529s [00:52:09.669] Reducing values from 1 chunks ... 1529s [00:52:09.669] - Number of values collected after concatenation: 2 1529s [00:52:09.669] - Number of values expected: 2 1529s [00:52:09.669] Reducing values from 1 chunks ... DONE 1529s [00:52:09.669] future_lapply() ... DONE 1529s - apply(X, ...) - dim(X) > 2 ... 1529s [00:52:09.670] getGlobalsAndPackagesXApply() ... 1529s [00:52:09.670] - future.globals: TRUE 1529s a b 1529s 1 2 1529s [00:52:09.670] getGlobalsAndPackages() ... 1529s [00:52:09.670] Searching for globals... 1529s [00:52:09.671] - globals found: [1] ‘FUN’ 1529s [00:52:09.672] Searching for globals ... DONE 1529s [00:52:09.672] Resolving globals: FALSE 1529s [00:52:09.672] The total size of the 1 globals is 848 bytes (848 bytes) 1529s [00:52:09.672] The total size of the 1 globals exported for future expression (‘FUN(X = structure(1:12, dim = c(2L, 2L, 3L)))’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1529s [00:52:09.673] - globals: [1] ‘FUN’ 1529s [00:52:09.673] 1529s [00:52:09.673] getGlobalsAndPackages() ... DONE 1529s [00:52:09.673] - globals found/used: [n=1] ‘FUN’ 1529s [00:52:09.673] - needed namespaces: [n=0] 1529s [00:52:09.673] Finding globals ... DONE 1529s [00:52:09.673] - use_args: TRUE 1529s [00:52:09.674] - Getting '...' globals ... 1529s [00:52:09.674] resolve() on list ... 1529s [00:52:09.674] recursive: 0 1529s [00:52:09.674] length: 1 1529s [00:52:09.674] elements: ‘...’ 1529s [00:52:09.675] length: 0 (resolved future 1) 1529s [00:52:09.675] resolve() on list ... DONE 1529s [00:52:09.675] - '...' content: [n=0] 1529s [00:52:09.675] List of 1 1529s [00:52:09.675] $ ...: list() 1529s [00:52:09.675] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1529s [00:52:09.675] - attr(*, "where")=List of 1 1529s [00:52:09.675] ..$ ...: 1529s [00:52:09.675] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1529s [00:52:09.675] - attr(*, "resolved")= logi TRUE 1529s [00:52:09.675] - attr(*, "total_size")= num NA 1529s [00:52:09.678] - Getting '...' globals ... DONE 1529s [00:52:09.678] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1529s [00:52:09.678] List of 2 1529s [00:52:09.678] $ ...future.FUN:function (x) 1529s [00:52:09.678] $ ... : list() 1529s [00:52:09.678] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1529s [00:52:09.678] - attr(*, "where")=List of 2 1529s [00:52:09.678] ..$ ...future.FUN: 1529s [00:52:09.678] ..$ ... : 1529s [00:52:09.678] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1529s [00:52:09.678] - attr(*, "resolved")= logi FALSE 1529s [00:52:09.678] - attr(*, "total_size")= num 848 1529s [00:52:09.681] Packages to be attached in all futures: [n=0] 1529s [00:52:09.681] getGlobalsAndPackagesXApply() ... DONE 1529s [00:52:09.684] future_lapply() ... 1529s [00:52:09.688] Number of chunks: 1 1529s [00:52:09.688] getGlobalsAndPackagesXApply() ... 1529s [00:52:09.688] - future.globals: with names ‘list()’ 1529s [00:52:09.688] - use_args: TRUE 1529s [00:52:09.688] Globals to be used in all futures (chunks): [n=2] ‘...’, ‘...future.FUN’ 1529s [00:52:09.688] List of 2 1529s [00:52:09.688] $ ... : list() 1529s [00:52:09.688] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1529s [00:52:09.688] $ ...future.FUN:function (x) 1529s [00:52:09.688] - attr(*, "where")=List of 2 1529s [00:52:09.688] ..$ ... : 1529s [00:52:09.688] ..$ ...future.FUN: 1529s [00:52:09.688] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1529s [00:52:09.688] - attr(*, "resolved")= logi FALSE 1529s [00:52:09.688] - attr(*, "total_size")= num NA 1529s [00:52:09.692] Packages to be attached in all futures: [n=0] 1529s [00:52:09.692] getGlobalsAndPackagesXApply() ... DONE 1529s [00:52:09.693] Number of futures (= number of chunks): 1 1529s [00:52:09.693] Launching 1 futures (chunks) ... 1529s [00:52:09.693] Chunk #1 of 1 ... 1529s [00:52:09.693] - seeds: 1529s [00:52:09.693] - All globals exported: [n=5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1529s [00:52:09.693] getGlobalsAndPackages() ... 1529s [00:52:09.694] - globals passed as-is: [5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1529s [00:52:09.694] Resolving globals: FALSE 1529s [00:52:09.694] Tweak future expression to call with '...' arguments ... 1529s [00:52:09.694] { 1529s [00:52:09.694] do.call(function(...) { 1529s [00:52:09.694] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1529s [00:52:09.694] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1529s [00:52:09.694] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1529s [00:52:09.694] on.exit(options(oopts), add = TRUE) 1529s [00:52:09.694] } 1529s [00:52:09.694] { 1529s [00:52:09.694] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1529s [00:52:09.694] ...future.X_jj <- ...future.elements_ii[[jj]] 1529s [00:52:09.694] ...future.FUN(...future.X_jj, ...) 1529s [00:52:09.694] }) 1529s [00:52:09.694] } 1529s [00:52:09.694] }, args = future.call.arguments) 1529s [00:52:09.694] } 1529s [00:52:09.695] Tweak future expression to call with '...' arguments ... DONE 1529s [00:52:09.696] - globals: [5] ‘future.call.arguments’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1529s [00:52:09.697] 1529s [00:52:09.697] getGlobalsAndPackages() ... DONE 1529s [00:52:09.697] run() for ‘Future’ ... 1529s [00:52:09.697] - state: ‘created’ 1529s [00:52:09.697] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1529s [00:52:09.701] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1529s [00:52:09.701] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1529s [00:52:09.701] - Field: ‘label’ 1529s [00:52:09.701] - Field: ‘local’ 1529s [00:52:09.702] - Field: ‘owner’ 1529s [00:52:09.702] - Field: ‘envir’ 1529s [00:52:09.702] - Field: ‘packages’ 1529s [00:52:09.702] - Field: ‘gc’ 1529s [00:52:09.702] - Field: ‘conditions’ 1529s [00:52:09.702] - Field: ‘expr’ 1529s [00:52:09.702] - Field: ‘uuid’ 1529s [00:52:09.703] - Field: ‘seed’ 1529s [00:52:09.703] - Field: ‘version’ 1529s [00:52:09.703] - Field: ‘result’ 1529s [00:52:09.703] - Field: ‘asynchronous’ 1529s [00:52:09.703] - Field: ‘calls’ 1529s [00:52:09.703] - Field: ‘globals’ 1529s [00:52:09.703] - Field: ‘stdout’ 1529s [00:52:09.704] - Field: ‘earlySignal’ 1529s [00:52:09.704] - Field: ‘lazy’ 1529s [00:52:09.704] - Field: ‘state’ 1529s [00:52:09.704] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1529s [00:52:09.704] - Launch lazy future ... 1529s [00:52:09.704] Packages needed by the future expression (n = 0): 1529s [00:52:09.705] Packages needed by future strategies (n = 0): 1529s [00:52:09.705] { 1529s [00:52:09.705] { 1529s [00:52:09.705] { 1529s [00:52:09.705] ...future.startTime <- base::Sys.time() 1529s [00:52:09.705] { 1529s [00:52:09.705] { 1529s [00:52:09.705] { 1529s [00:52:09.705] base::local({ 1529s [00:52:09.705] has_future <- base::requireNamespace("future", 1529s [00:52:09.705] quietly = TRUE) 1529s [00:52:09.705] if (has_future) { 1529s [00:52:09.705] ns <- base::getNamespace("future") 1529s [00:52:09.705] version <- ns[[".package"]][["version"]] 1529s [00:52:09.705] if (is.null(version)) 1529s [00:52:09.705] version <- utils::packageVersion("future") 1529s [00:52:09.705] } 1529s [00:52:09.705] else { 1529s [00:52:09.705] version <- NULL 1529s [00:52:09.705] } 1529s [00:52:09.705] if (!has_future || version < "1.8.0") { 1529s [00:52:09.705] info <- base::c(r_version = base::gsub("R version ", 1529s [00:52:09.705] "", base::R.version$version.string), 1529s [00:52:09.705] platform = base::sprintf("%s (%s-bit)", 1529s [00:52:09.705] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1529s [00:52:09.705] os = base::paste(base::Sys.info()[base::c("sysname", 1529s [00:52:09.705] "release", "version")], collapse = " "), 1529s [00:52:09.705] hostname = base::Sys.info()[["nodename"]]) 1529s [00:52:09.705] info <- base::sprintf("%s: %s", base::names(info), 1529s [00:52:09.705] info) 1529s [00:52:09.705] info <- base::paste(info, collapse = "; ") 1529s [00:52:09.705] if (!has_future) { 1529s [00:52:09.705] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1529s [00:52:09.705] info) 1529s [00:52:09.705] } 1529s [00:52:09.705] else { 1529s [00:52:09.705] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1529s [00:52:09.705] info, version) 1529s [00:52:09.705] } 1529s [00:52:09.705] base::stop(msg) 1529s [00:52:09.705] } 1529s [00:52:09.705] }) 1529s [00:52:09.705] } 1529s [00:52:09.705] options(future.plan = NULL) 1529s [00:52:09.705] Sys.unsetenv("R_FUTURE_PLAN") 1529s [00:52:09.705] future::plan("default", .cleanup = FALSE, .init = FALSE) 1529s [00:52:09.705] } 1529s [00:52:09.705] ...future.workdir <- getwd() 1529s [00:52:09.705] } 1529s [00:52:09.705] ...future.oldOptions <- base::as.list(base::.Options) 1529s [00:52:09.705] ...future.oldEnvVars <- base::Sys.getenv() 1529s [00:52:09.705] } 1529s [00:52:09.705] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1529s [00:52:09.705] future.globals.maxSize = Inf, future.globals.method = NULL, 1529s [00:52:09.705] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1529s [00:52:09.705] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1529s [00:52:09.705] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1529s [00:52:09.705] future.stdout.windows.reencode = NULL, width = 80L) 1529s [00:52:09.705] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1529s [00:52:09.705] base::names(...future.oldOptions)) 1529s [00:52:09.705] } 1529s [00:52:09.705] if (FALSE) { 1529s [00:52:09.705] } 1529s [00:52:09.705] else { 1529s [00:52:09.705] if (TRUE) { 1529s [00:52:09.705] ...future.stdout <- base::rawConnection(base::raw(0L), 1529s [00:52:09.705] open = "w") 1529s [00:52:09.705] } 1529s [00:52:09.705] else { 1529s [00:52:09.705] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1529s [00:52:09.705] windows = "NUL", "/dev/null"), open = "w") 1529s [00:52:09.705] } 1529s [00:52:09.705] base::sink(...future.stdout, type = "output", split = FALSE) 1529s [00:52:09.705] base::on.exit(if (!base::is.null(...future.stdout)) { 1529s [00:52:09.705] base::sink(type = "output", split = FALSE) 1529s [00:52:09.705] base::close(...future.stdout) 1529s [00:52:09.705] }, add = TRUE) 1529s [00:52:09.705] } 1529s [00:52:09.705] ...future.frame <- base::sys.nframe() 1529s [00:52:09.705] ...future.conditions <- base::list() 1529s [00:52:09.705] ...future.rng <- base::globalenv()$.Random.seed 1529s [00:52:09.705] if (FALSE) { 1529s [00:52:09.705] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1529s [00:52:09.705] "...future.value", "...future.globalenv.names", ".Random.seed") 1529s [00:52:09.705] } 1529s [00:52:09.705] ...future.result <- base::tryCatch({ 1529s [00:52:09.705] base::withCallingHandlers({ 1529s [00:52:09.705] ...future.value <- base::withVisible(base::local({ 1529s [00:52:09.705] do.call(function(...) { 1529s [00:52:09.705] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1529s [00:52:09.705] if (!identical(...future.globals.maxSize.org, 1529s [00:52:09.705] ...future.globals.maxSize)) { 1529s [00:52:09.705] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1529s [00:52:09.705] on.exit(options(oopts), add = TRUE) 1529s [00:52:09.705] } 1529s [00:52:09.705] { 1529s [00:52:09.705] lapply(seq_along(...future.elements_ii), 1529s [00:52:09.705] FUN = function(jj) { 1529s [00:52:09.705] ...future.X_jj <- ...future.elements_ii[[jj]] 1529s [00:52:09.705] ...future.FUN(...future.X_jj, ...) 1529s [00:52:09.705] }) 1529s [00:52:09.705] } 1529s [00:52:09.705] }, args = future.call.arguments) 1529s [00:52:09.705] })) 1529s [00:52:09.705] future::FutureResult(value = ...future.value$value, 1529s [00:52:09.705] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1529s [00:52:09.705] ...future.rng), globalenv = if (FALSE) 1529s [00:52:09.705] list(added = base::setdiff(base::names(base::.GlobalEnv), 1529s [00:52:09.705] ...future.globalenv.names)) 1529s [00:52:09.705] else NULL, started = ...future.startTime, version = "1.8") 1529s [00:52:09.705] }, condition = base::local({ 1529s [00:52:09.705] c <- base::c 1529s [00:52:09.705] inherits <- base::inherits 1529s [00:52:09.705] invokeRestart <- base::invokeRestart 1529s [00:52:09.705] length <- base::length 1529s [00:52:09.705] list <- base::list 1529s [00:52:09.705] seq.int <- base::seq.int 1529s [00:52:09.705] signalCondition <- base::signalCondition 1529s [00:52:09.705] sys.calls <- base::sys.calls 1529s [00:52:09.705] `[[` <- base::`[[` 1529s [00:52:09.705] `+` <- base::`+` 1529s [00:52:09.705] `<<-` <- base::`<<-` 1529s [00:52:09.705] sysCalls <- function(calls = sys.calls(), from = 1L) { 1529s [00:52:09.705] calls[seq.int(from = from + 12L, to = length(calls) - 1529s [00:52:09.705] 3L)] 1529s [00:52:09.705] } 1529s [00:52:09.705] function(cond) { 1529s [00:52:09.705] is_error <- inherits(cond, "error") 1529s [00:52:09.705] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1529s [00:52:09.705] NULL) 1529s [00:52:09.705] if (is_error) { 1529s [00:52:09.705] sessionInformation <- function() { 1529s [00:52:09.705] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1529s [00:52:09.705] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1529s [00:52:09.705] search = base::search(), system = base::Sys.info()) 1529s [00:52:09.705] } 1529s [00:52:09.705] ...future.conditions[[length(...future.conditions) + 1529s [00:52:09.705] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1529s [00:52:09.705] cond$call), session = sessionInformation(), 1529s [00:52:09.705] timestamp = base::Sys.time(), signaled = 0L) 1529s [00:52:09.705] signalCondition(cond) 1529s [00:52:09.705] } 1529s [00:52:09.705] else if (!ignore && TRUE && inherits(cond, c("condition", 1529s [00:52:09.705] "immediateCondition"))) { 1529s [00:52:09.705] signal <- TRUE && inherits(cond, "immediateCondition") 1529s [00:52:09.705] ...future.conditions[[length(...future.conditions) + 1529s [00:52:09.705] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1529s [00:52:09.705] if (TRUE && !signal) { 1529s [00:52:09.705] muffleCondition <- function (cond, pattern = "^muffle") 1529s [00:52:09.705] { 1529s [00:52:09.705] inherits <- base::inherits 1529s [00:52:09.705] invokeRestart <- base::invokeRestart 1529s [00:52:09.705] is.null <- base::is.null 1529s [00:52:09.705] muffled <- FALSE 1529s [00:52:09.705] if (inherits(cond, "message")) { 1529s [00:52:09.705] muffled <- grepl(pattern, "muffleMessage") 1529s [00:52:09.705] if (muffled) 1529s [00:52:09.705] invokeRestart("muffleMessage") 1529s [00:52:09.705] } 1529s [00:52:09.705] else if (inherits(cond, "warning")) { 1529s [00:52:09.705] muffled <- grepl(pattern, "muffleWarning") 1529s [00:52:09.705] if (muffled) 1529s [00:52:09.705] invokeRestart("muffleWarning") 1529s [00:52:09.705] } 1529s [00:52:09.705] else if (inherits(cond, "condition")) { 1529s [00:52:09.705] if (!is.null(pattern)) { 1529s [00:52:09.705] computeRestarts <- base::computeRestarts 1529s [00:52:09.705] grepl <- base::grepl 1529s [00:52:09.705] restarts <- computeRestarts(cond) 1529s [00:52:09.705] for (restart in restarts) { 1529s [00:52:09.705] name <- restart$name 1529s [00:52:09.705] if (is.null(name)) 1529s [00:52:09.705] next 1529s [00:52:09.705] if (!grepl(pattern, name)) 1529s [00:52:09.705] next 1529s [00:52:09.705] invokeRestart(restart) 1529s [00:52:09.705] muffled <- TRUE 1529s [00:52:09.705] break 1529s [00:52:09.705] } 1529s [00:52:09.705] } 1529s [00:52:09.705] } 1529s [00:52:09.705] invisible(muffled) 1529s [00:52:09.705] } 1529s [00:52:09.705] muffleCondition(cond, pattern = "^muffle") 1529s [00:52:09.705] } 1529s [00:52:09.705] } 1529s [00:52:09.705] else { 1529s [00:52:09.705] if (TRUE) { 1529s [00:52:09.705] muffleCondition <- function (cond, pattern = "^muffle") 1529s [00:52:09.705] { 1529s [00:52:09.705] inherits <- base::inherits 1529s [00:52:09.705] invokeRestart <- base::invokeRestart 1529s [00:52:09.705] is.null <- base::is.null 1529s [00:52:09.705] muffled <- FALSE 1529s [00:52:09.705] if (inherits(cond, "message")) { 1529s [00:52:09.705] muffled <- grepl(pattern, "muffleMessage") 1529s [00:52:09.705] if (muffled) 1529s [00:52:09.705] invokeRestart("muffleMessage") 1529s [00:52:09.705] } 1529s [00:52:09.705] else if (inherits(cond, "warning")) { 1529s [00:52:09.705] muffled <- grepl(pattern, "muffleWarning") 1529s [00:52:09.705] if (muffled) 1529s [00:52:09.705] invokeRestart("muffleWarning") 1529s [00:52:09.705] } 1529s [00:52:09.705] else if (inherits(cond, "condition")) { 1529s [00:52:09.705] if (!is.null(pattern)) { 1529s [00:52:09.705] computeRestarts <- base::computeRestarts 1529s [00:52:09.705] grepl <- base::grepl 1529s [00:52:09.705] restarts <- computeRestarts(cond) 1529s [00:52:09.705] for (restart in restarts) { 1529s [00:52:09.705] name <- restart$name 1529s [00:52:09.705] if (is.null(name)) 1529s [00:52:09.705] next 1529s [00:52:09.705] if (!grepl(pattern, name)) 1529s [00:52:09.705] next 1529s [00:52:09.705] invokeRestart(restart) 1529s [00:52:09.705] muffled <- TRUE 1529s [00:52:09.705] break 1529s [00:52:09.705] } 1529s [00:52:09.705] } 1529s [00:52:09.705] } 1529s [00:52:09.705] invisible(muffled) 1529s [00:52:09.705] } 1529s [00:52:09.705] muffleCondition(cond, pattern = "^muffle") 1529s [00:52:09.705] } 1529s [00:52:09.705] } 1529s [00:52:09.705] } 1529s [00:52:09.705] })) 1529s [00:52:09.705] }, error = function(ex) { 1529s [00:52:09.705] base::structure(base::list(value = NULL, visible = NULL, 1529s [00:52:09.705] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1529s [00:52:09.705] ...future.rng), started = ...future.startTime, 1529s [00:52:09.705] finished = Sys.time(), session_uuid = NA_character_, 1529s [00:52:09.705] version = "1.8"), class = "FutureResult") 1529s [00:52:09.705] }, finally = { 1529s [00:52:09.705] if (!identical(...future.workdir, getwd())) 1529s [00:52:09.705] setwd(...future.workdir) 1529s [00:52:09.705] { 1529s [00:52:09.705] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1529s [00:52:09.705] ...future.oldOptions$nwarnings <- NULL 1529s [00:52:09.705] } 1529s [00:52:09.705] base::options(...future.oldOptions) 1529s [00:52:09.705] if (.Platform$OS.type == "windows") { 1529s [00:52:09.705] old_names <- names(...future.oldEnvVars) 1529s [00:52:09.705] envs <- base::Sys.getenv() 1529s [00:52:09.705] names <- names(envs) 1529s [00:52:09.705] common <- intersect(names, old_names) 1529s [00:52:09.705] added <- setdiff(names, old_names) 1529s [00:52:09.705] removed <- setdiff(old_names, names) 1529s [00:52:09.705] changed <- common[...future.oldEnvVars[common] != 1529s [00:52:09.705] envs[common]] 1529s [00:52:09.705] NAMES <- toupper(changed) 1529s [00:52:09.705] args <- list() 1529s [00:52:09.705] for (kk in seq_along(NAMES)) { 1529s [00:52:09.705] name <- changed[[kk]] 1529s [00:52:09.705] NAME <- NAMES[[kk]] 1529s [00:52:09.705] if (name != NAME && is.element(NAME, old_names)) 1529s [00:52:09.705] next 1529s [00:52:09.705] args[[name]] <- ...future.oldEnvVars[[name]] 1529s [00:52:09.705] } 1529s [00:52:09.705] NAMES <- toupper(added) 1529s [00:52:09.705] for (kk in seq_along(NAMES)) { 1529s [00:52:09.705] name <- added[[kk]] 1529s [00:52:09.705] NAME <- NAMES[[kk]] 1529s [00:52:09.705] if (name != NAME && is.element(NAME, old_names)) 1529s [00:52:09.705] next 1529s [00:52:09.705] args[[name]] <- "" 1529s [00:52:09.705] } 1529s [00:52:09.705] NAMES <- toupper(removed) 1529s [00:52:09.705] for (kk in seq_along(NAMES)) { 1529s [00:52:09.705] name <- removed[[kk]] 1529s [00:52:09.705] NAME <- NAMES[[kk]] 1529s [00:52:09.705] if (name != NAME && is.element(NAME, old_names)) 1529s [00:52:09.705] next 1529s [00:52:09.705] args[[name]] <- ...future.oldEnvVars[[name]] 1529s [00:52:09.705] } 1529s [00:52:09.705] if (length(args) > 0) 1529s [00:52:09.705] base::do.call(base::Sys.setenv, args = args) 1529s [00:52:09.705] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1529s [00:52:09.705] } 1529s [00:52:09.705] else { 1529s [00:52:09.705] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1529s [00:52:09.705] } 1529s [00:52:09.705] { 1529s [00:52:09.705] if (base::length(...future.futureOptionsAdded) > 1529s [00:52:09.705] 0L) { 1529s [00:52:09.705] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1529s [00:52:09.705] base::names(opts) <- ...future.futureOptionsAdded 1529s [00:52:09.705] base::options(opts) 1529s [00:52:09.705] } 1529s [00:52:09.705] { 1529s [00:52:09.705] { 1529s [00:52:09.705] base::assign(".Random.seed", c(10407L, -235817339L, 1529s [00:52:09.705] -918112653L, 1726940932L, 2039504800L, -2077827493L, 1529s [00:52:09.705] -666439689L), envir = base::globalenv(), 1529s [00:52:09.705] inherits = FALSE) 1529s [00:52:09.705] NULL 1529s [00:52:09.705] } 1529s [00:52:09.705] options(future.plan = NULL) 1529s [00:52:09.705] if (is.na(NA_character_)) 1529s [00:52:09.705] Sys.unsetenv("R_FUTURE_PLAN") 1529s [00:52:09.705] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1529s [00:52:09.705] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1529s [00:52:09.705] envir = parent.frame()) 1529s [00:52:09.705] { 1529s [00:52:09.705] default_workers <- missing(workers) 1529s [00:52:09.705] if (is.function(workers)) 1529s [00:52:09.705] workers <- workers() 1529s [00:52:09.705] workers <- structure(as.integer(workers), 1529s [00:52:09.705] class = class(workers)) 1529s [00:52:09.705] stop_if_not(is.finite(workers), workers >= 1529s [00:52:09.705] 1L) 1529s [00:52:09.705] if ((workers == 1L && !inherits(workers, 1529s [00:52:09.705] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1529s [00:52:09.705] if (default_workers) 1529s [00:52:09.705] supportsMulticore(warn = TRUE) 1529s [00:52:09.705] return(sequential(..., envir = envir)) 1529s [00:52:09.705] } 1529s [00:52:09.705] oopts <- options(mc.cores = workers) 1529s [00:52:09.705] on.exit(options(oopts)) 1529s [00:52:09.705] future <- MulticoreFuture(..., workers = workers, 1529s [00:52:09.705] envir = envir) 1529s [00:52:09.705] if (!future$lazy) 1529s [00:52:09.705] future <- run(future) 1529s [00:52:09.705] invisible(future) 1529s [00:52:09.705] }), .cleanup = FALSE, .init = FALSE) 1529s [00:52:09.705] } 1529s [00:52:09.705] } 1529s [00:52:09.705] } 1529s [00:52:09.705] }) 1529s [00:52:09.705] if (TRUE) { 1529s [00:52:09.705] base::sink(type = "output", split = FALSE) 1529s [00:52:09.705] if (TRUE) { 1529s [00:52:09.705] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1529s [00:52:09.705] } 1529s [00:52:09.705] else { 1529s [00:52:09.705] ...future.result["stdout"] <- base::list(NULL) 1529s [00:52:09.705] } 1529s [00:52:09.705] base::close(...future.stdout) 1529s [00:52:09.705] ...future.stdout <- NULL 1529s [00:52:09.705] } 1529s [00:52:09.705] ...future.result$conditions <- ...future.conditions 1529s [00:52:09.705] ...future.result$finished <- base::Sys.time() 1529s [00:52:09.705] ...future.result 1529s [00:52:09.705] } 1529s [00:52:09.709] assign_globals() ... 1529s [00:52:09.709] List of 5 1529s [00:52:09.709] $ future.call.arguments : list() 1529s [00:52:09.709] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1529s [00:52:09.709] $ ...future.FUN :function (x) 1529s [00:52:09.709] $ ...future.elements_ii :List of 2 1529s [00:52:09.709] ..$ : int [1:2, 1:3] 1 3 5 7 9 11 1529s [00:52:09.709] ..$ : int [1:2, 1:3] 2 4 6 8 10 12 1529s [00:52:09.709] $ ...future.seeds_ii : NULL 1529s [00:52:09.709] $ ...future.globals.maxSize: num Inf 1529s [00:52:09.709] - attr(*, "resolved")= logi FALSE 1529s [00:52:09.709] - attr(*, "total_size")= num NA 1529s [00:52:09.709] - attr(*, "where")=List of 5 1529s [00:52:09.709] ..$ future.call.arguments : 1529s [00:52:09.709] ..$ ...future.FUN : 1529s [00:52:09.709] ..$ ...future.elements_ii : 1529s [00:52:09.709] ..$ ...future.seeds_ii : 1529s [00:52:09.709] ..$ ...future.globals.maxSize: 1529s [00:52:09.709] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1529s [00:52:09.709] - attr(*, "already-done")= logi TRUE 1529s [00:52:09.715] - copied ‘future.call.arguments’ to environment 1529s [00:52:09.716] - copied ‘...future.FUN’ to environment 1529s [00:52:09.716] - copied ‘...future.elements_ii’ to environment 1529s [00:52:09.716] - copied ‘...future.seeds_ii’ to environment 1529s [00:52:09.716] - copied ‘...future.globals.maxSize’ to environment 1529s [00:52:09.717] assign_globals() ... done 1529s [00:52:09.717] plan(): Setting new future strategy stack: 1529s [00:52:09.717] List of future strategies: 1529s [00:52:09.717] 1. sequential: 1529s [00:52:09.717] - args: function (..., envir = parent.frame()) 1529s [00:52:09.717] - tweaked: FALSE 1529s [00:52:09.717] - call: NULL 1529s [00:52:09.718] plan(): nbrOfWorkers() = 1 1529s [00:52:09.718] plan(): Setting new future strategy stack: 1529s [00:52:09.719] List of future strategies: 1529s [00:52:09.719] 1. multicore: 1529s [00:52:09.719] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1529s [00:52:09.719] - tweaked: FALSE 1529s [00:52:09.719] - call: plan(strategy) 1529s [00:52:09.722] plan(): nbrOfWorkers() = 1 1529s [00:52:09.723] SequentialFuture started (and completed) 1529s [00:52:09.723] - Launch lazy future ... done 1529s [00:52:09.723] run() for ‘SequentialFuture’ ... done 1529s [00:52:09.723] Created future: 1529s [00:52:09.723] SequentialFuture: 1529s [00:52:09.723] Label: ‘future_apply-1’ 1529s [00:52:09.723] Expression: 1529s [00:52:09.723] { 1529s [00:52:09.723] do.call(function(...) { 1529s [00:52:09.723] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1529s [00:52:09.723] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1529s [00:52:09.723] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1529s [00:52:09.723] on.exit(options(oopts), add = TRUE) 1529s [00:52:09.723] } 1529s [00:52:09.723] { 1529s [00:52:09.723] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1529s [00:52:09.723] ...future.X_jj <- ...future.elements_ii[[jj]] 1529s [00:52:09.723] ...future.FUN(...future.X_jj, ...) 1529s [00:52:09.723] }) 1529s [00:52:09.723] } 1529s [00:52:09.723] }, args = future.call.arguments) 1529s [00:52:09.723] } 1529s [00:52:09.723] Lazy evaluation: FALSE 1529s [00:52:09.723] Asynchronous evaluation: FALSE 1529s [00:52:09.723] Local evaluation: TRUE 1529s [00:52:09.723] Environment: R_GlobalEnv 1529s [00:52:09.723] Capture standard output: TRUE 1529s [00:52:09.723] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1529s [00:52:09.723] Globals: 5 objects totaling 1.37 KiB (DotDotDotList ‘future.call.arguments’ of 0 bytes, function ‘...future.FUN’ of 848 bytes, list ‘...future.elements_ii’ of 496 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1529s [00:52:09.723] Packages: 1529s [00:52:09.723] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1529s [00:52:09.723] Resolved: TRUE 1529s [00:52:09.723] Value: 496 bytes of class ‘list’ 1529s [00:52:09.723] Early signaling: FALSE 1529s [00:52:09.723] Owner process: 856348fc-72a5-ec0b-63b7-1a3640a93e42 1529s [00:52:09.723] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1529s [00:52:09.725] Chunk #1 of 1 ... DONE 1529s [00:52:09.725] Launching 1 futures (chunks) ... DONE 1529s [00:52:09.725] Resolving 1 futures (chunks) ... 1529s [00:52:09.725] resolve() on list ... 1529s [00:52:09.725] recursive: 0 1529s [00:52:09.726] length: 1 1529s [00:52:09.726] 1529s [00:52:09.726] resolved() for ‘SequentialFuture’ ... 1529s [00:52:09.726] - state: ‘finished’ 1529s [00:52:09.726] - run: TRUE 1529s [00:52:09.726] - result: ‘FutureResult’ 1529s [00:52:09.727] resolved() for ‘SequentialFuture’ ... done 1529s [00:52:09.727] Future #1 1529s [00:52:09.727] signalConditionsASAP(SequentialFuture, pos=1) ... 1529s [00:52:09.727] - nx: 1 1529s [00:52:09.727] - relay: TRUE 1529s [00:52:09.727] - stdout: TRUE 1529s [00:52:09.727] - signal: TRUE 1529s [00:52:09.728] - resignal: FALSE 1529s [00:52:09.728] - force: TRUE 1529s [00:52:09.728] - relayed: [n=1] FALSE 1529s [00:52:09.728] - queued futures: [n=1] FALSE 1529s [00:52:09.728] - until=1 1529s [00:52:09.728] - relaying element #1 1529s [00:52:09.729] - relayed: [n=1] TRUE 1529s [00:52:09.729] - queued futures: [n=1] TRUE 1529s [00:52:09.729] signalConditionsASAP(SequentialFuture, pos=1) ... done 1529s [00:52:09.729] length: 0 (resolved future 1) 1529s [00:52:09.729] Relaying remaining futures 1529s [00:52:09.729] signalConditionsASAP(NULL, pos=0) ... 1529s [00:52:09.729] - nx: 1 1529s [00:52:09.730] - relay: TRUE 1529s [00:52:09.730] - stdout: TRUE 1529s [00:52:09.730] - signal: TRUE 1529s [00:52:09.730] - resignal: FALSE 1529s [00:52:09.730] - force: TRUE 1529s [00:52:09.730] - relayed: [n=1] TRUE 1529s [00:52:09.730] - queued futures: [n=1] TRUE 1529s - flush all 1529s [00:52:09.731] - relayed: [n=1] TRUE 1529s [00:52:09.731] - queued futures: [n=1] TRUE 1529s [00:52:09.731] signalConditionsASAP(NULL, pos=0) ... done 1529s [00:52:09.731] resolve() on list ... DONE 1529s [00:52:09.731] - Number of value chunks collected: 1 1529s [00:52:09.731] Resolving 1 futures (chunks) ... DONE 1529s [00:52:09.731] Reducing values from 1 chunks ... 1529s [00:52:09.732] - Number of values collected after concatenation: 2 1529s [00:52:09.732] - Number of values expected: 2 1529s [00:52:09.732] Reducing values from 1 chunks ... DONE 1529s [00:52:09.732] future_lapply() ... DONE 1529s [,1] [,2] 1529s [1,] 1 2 1529s [2,] 3 4 1529s [3,] 5 6 1529s [4,] 7 8 1529s [5,] 9 10 1529s [6,] 11 12 1529s - apply(X, ...) - not all same names ... 1529s [00:52:09.733] getGlobalsAndPackagesXApply() ... 1529s [00:52:09.733] - future.globals: TRUE 1529s [00:52:09.734] getGlobalsAndPackages() ... 1529s [00:52:09.735] Searching for globals... 1529s [00:52:09.739] - globals found: [10] ‘FUN’, ‘{’, ‘if’, ‘==’, ‘[’, ‘<-’, ‘names’, ‘names<-’, ‘letters’, ‘seq_along’ 1529s [00:52:09.739] Searching for globals ... DONE 1529s [00:52:09.739] Resolving globals: FALSE 1529s [00:52:09.740] The total size of the 1 globals is 9.66 KiB (9888 bytes) 1529s [00:52:09.740] The total size of the 1 globals exported for future expression (‘FUN(X = structure(1:4, dim = c(2L, 2L)))’) is 9.66 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (9.66 KiB of class ‘function’) 1529s [00:52:09.740] - globals: [1] ‘FUN’ 1529s [00:52:09.740] 1529s [00:52:09.741] getGlobalsAndPackages() ... DONE 1529s [00:52:09.741] - globals found/used: [n=1] ‘FUN’ 1529s [00:52:09.741] - needed namespaces: [n=0] 1529s [00:52:09.741] Finding globals ... DONE 1529s [00:52:09.741] - use_args: TRUE 1529s [00:52:09.741] - Getting '...' globals ... 1529s [00:52:09.742] resolve() on list ... 1529s [00:52:09.742] recursive: 0 1529s [00:52:09.742] length: 1 1529s [00:52:09.742] elements: ‘...’ 1529s [00:52:09.742] length: 0 (resolved future 1) 1529s [00:52:09.742] resolve() on list ... DONE 1529s [00:52:09.743] - '...' content: [n=0] 1529s [00:52:09.743] List of 1 1529s [00:52:09.743] $ ...: list() 1529s [00:52:09.743] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1529s [00:52:09.743] - attr(*, "where")=List of 1 1529s [00:52:09.743] ..$ ...: 1529s [00:52:09.743] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1529s [00:52:09.743] - attr(*, "resolved")= logi TRUE 1529s [00:52:09.743] - attr(*, "total_size")= num NA 1529s [00:52:09.746] - Getting '...' globals ... DONE 1529s [00:52:09.746] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1529s [00:52:09.746] List of 2 1529s [00:52:09.746] $ ...future.FUN:function (x) 1529s [00:52:09.746] $ ... : list() 1529s [00:52:09.746] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1529s [00:52:09.746] - attr(*, "where")=List of 2 1529s [00:52:09.746] ..$ ...future.FUN: 1529s [00:52:09.746] ..$ ... : 1529s [00:52:09.746] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1529s [00:52:09.746] - attr(*, "resolved")= logi FALSE 1529s [00:52:09.746] - attr(*, "total_size")= num 9888 1529s [00:52:09.749] Packages to be attached in all futures: [n=0] 1529s [00:52:09.749] getGlobalsAndPackagesXApply() ... DONE 1529s [00:52:09.752] future_lapply() ... 1529s [00:52:09.757] Number of chunks: 1 1529s [00:52:09.758] getGlobalsAndPackagesXApply() ... 1529s [00:52:09.758] - future.globals: with names ‘list()’ 1529s [00:52:09.758] - use_args: TRUE 1529s [00:52:09.758] Globals to be used in all futures (chunks): [n=2] ‘...’, ‘...future.FUN’ 1529s [00:52:09.758] List of 2 1529s [00:52:09.758] $ ... : list() 1529s [00:52:09.758] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1529s [00:52:09.758] $ ...future.FUN:function (x) 1529s [00:52:09.758] - attr(*, "where")=List of 2 1529s [00:52:09.758] ..$ ... : 1529s [00:52:09.758] ..$ ...future.FUN: 1529s [00:52:09.758] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1529s [00:52:09.758] - attr(*, "resolved")= logi FALSE 1529s [00:52:09.758] - attr(*, "total_size")= num NA 1529s [00:52:09.762] Packages to be attached in all futures: [n=0] 1529s [00:52:09.762] getGlobalsAndPackagesXApply() ... DONE 1529s [00:52:09.763] Number of futures (= number of chunks): 1 1529s [00:52:09.763] Launching 1 futures (chunks) ... 1529s [00:52:09.763] Chunk #1 of 1 ... 1529s [00:52:09.763] - seeds: 1529s [00:52:09.763] - All globals exported: [n=5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1529s [00:52:09.763] getGlobalsAndPackages() ... 1529s [00:52:09.763] - globals passed as-is: [5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1529s [00:52:09.764] Resolving globals: FALSE 1529s [00:52:09.764] Tweak future expression to call with '...' arguments ... 1529s [00:52:09.764] { 1529s [00:52:09.764] do.call(function(...) { 1529s [00:52:09.764] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1529s [00:52:09.764] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1529s [00:52:09.764] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1529s [00:52:09.764] on.exit(options(oopts), add = TRUE) 1529s [00:52:09.764] } 1529s [00:52:09.764] { 1529s [00:52:09.764] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1529s [00:52:09.764] ...future.X_jj <- ...future.elements_ii[[jj]] 1529s [00:52:09.764] ...future.FUN(...future.X_jj, ...) 1529s [00:52:09.764] }) 1529s [00:52:09.764] } 1529s [00:52:09.764] }, args = future.call.arguments) 1529s [00:52:09.764] } 1529s [00:52:09.764] Tweak future expression to call with '...' arguments ... DONE 1529s [00:52:09.766] - globals: [5] ‘future.call.arguments’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1529s [00:52:09.767] 1529s [00:52:09.767] getGlobalsAndPackages() ... DONE 1529s [00:52:09.767] run() for ‘Future’ ... 1529s [00:52:09.767] - state: ‘created’ 1529s [00:52:09.767] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1529s [00:52:09.771] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1529s [00:52:09.771] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1529s [00:52:09.771] - Field: ‘label’ 1529s [00:52:09.771] - Field: ‘local’ 1529s [00:52:09.771] - Field: ‘owner’ 1529s [00:52:09.772] - Field: ‘envir’ 1529s [00:52:09.772] - Field: ‘packages’ 1529s [00:52:09.772] - Field: ‘gc’ 1529s [00:52:09.772] - Field: ‘conditions’ 1529s [00:52:09.772] - Field: ‘expr’ 1529s [00:52:09.772] - Field: ‘uuid’ 1529s [00:52:09.772] - Field: ‘seed’ 1529s [00:52:09.773] - Field: ‘version’ 1529s [00:52:09.773] - Field: ‘result’ 1529s [00:52:09.773] - Field: ‘asynchronous’ 1529s [00:52:09.773] - Field: ‘calls’ 1529s [00:52:09.773] - Field: ‘globals’ 1529s [00:52:09.773] - Field: ‘stdout’ 1529s [00:52:09.773] - Field: ‘earlySignal’ 1529s [00:52:09.774] - Field: ‘lazy’ 1529s [00:52:09.774] - Field: ‘state’ 1529s [00:52:09.774] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1529s [00:52:09.774] - Launch lazy future ... 1529s [00:52:09.774] Packages needed by the future expression (n = 0): 1529s [00:52:09.774] Packages needed by future strategies (n = 0): 1529s [00:52:09.775] { 1529s [00:52:09.775] { 1529s [00:52:09.775] { 1529s [00:52:09.775] ...future.startTime <- base::Sys.time() 1529s [00:52:09.775] { 1529s [00:52:09.775] { 1529s [00:52:09.775] { 1529s [00:52:09.775] base::local({ 1529s [00:52:09.775] has_future <- base::requireNamespace("future", 1529s [00:52:09.775] quietly = TRUE) 1529s [00:52:09.775] if (has_future) { 1529s [00:52:09.775] ns <- base::getNamespace("future") 1529s [00:52:09.775] version <- ns[[".package"]][["version"]] 1529s [00:52:09.775] if (is.null(version)) 1529s [00:52:09.775] version <- utils::packageVersion("future") 1529s [00:52:09.775] } 1529s [00:52:09.775] else { 1529s [00:52:09.775] version <- NULL 1529s [00:52:09.775] } 1529s [00:52:09.775] if (!has_future || version < "1.8.0") { 1529s [00:52:09.775] info <- base::c(r_version = base::gsub("R version ", 1529s [00:52:09.775] "", base::R.version$version.string), 1529s [00:52:09.775] platform = base::sprintf("%s (%s-bit)", 1529s [00:52:09.775] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1529s [00:52:09.775] os = base::paste(base::Sys.info()[base::c("sysname", 1529s [00:52:09.775] "release", "version")], collapse = " "), 1529s [00:52:09.775] hostname = base::Sys.info()[["nodename"]]) 1529s [00:52:09.775] info <- base::sprintf("%s: %s", base::names(info), 1529s [00:52:09.775] info) 1529s [00:52:09.775] info <- base::paste(info, collapse = "; ") 1529s [00:52:09.775] if (!has_future) { 1529s [00:52:09.775] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1529s [00:52:09.775] info) 1529s [00:52:09.775] } 1529s [00:52:09.775] else { 1529s [00:52:09.775] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1529s [00:52:09.775] info, version) 1529s [00:52:09.775] } 1529s [00:52:09.775] base::stop(msg) 1529s [00:52:09.775] } 1529s [00:52:09.775] }) 1529s [00:52:09.775] } 1529s [00:52:09.775] options(future.plan = NULL) 1529s [00:52:09.775] Sys.unsetenv("R_FUTURE_PLAN") 1529s [00:52:09.775] future::plan("default", .cleanup = FALSE, .init = FALSE) 1529s [00:52:09.775] } 1529s [00:52:09.775] ...future.workdir <- getwd() 1529s [00:52:09.775] } 1529s [00:52:09.775] ...future.oldOptions <- base::as.list(base::.Options) 1529s [00:52:09.775] ...future.oldEnvVars <- base::Sys.getenv() 1529s [00:52:09.775] } 1529s [00:52:09.775] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1529s [00:52:09.775] future.globals.maxSize = Inf, future.globals.method = NULL, 1529s [00:52:09.775] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1529s [00:52:09.775] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1529s [00:52:09.775] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1529s [00:52:09.775] future.stdout.windows.reencode = NULL, width = 80L) 1529s [00:52:09.775] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1529s [00:52:09.775] base::names(...future.oldOptions)) 1529s [00:52:09.775] } 1529s [00:52:09.775] if (FALSE) { 1529s [00:52:09.775] } 1529s [00:52:09.775] else { 1529s [00:52:09.775] if (TRUE) { 1529s [00:52:09.775] ...future.stdout <- base::rawConnection(base::raw(0L), 1529s [00:52:09.775] open = "w") 1529s [00:52:09.775] } 1529s [00:52:09.775] else { 1529s [00:52:09.775] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1529s [00:52:09.775] windows = "NUL", "/dev/null"), open = "w") 1529s [00:52:09.775] } 1529s [00:52:09.775] base::sink(...future.stdout, type = "output", split = FALSE) 1529s [00:52:09.775] base::on.exit(if (!base::is.null(...future.stdout)) { 1529s [00:52:09.775] base::sink(type = "output", split = FALSE) 1529s [00:52:09.775] base::close(...future.stdout) 1529s [00:52:09.775] }, add = TRUE) 1529s [00:52:09.775] } 1529s [00:52:09.775] ...future.frame <- base::sys.nframe() 1529s [00:52:09.775] ...future.conditions <- base::list() 1529s [00:52:09.775] ...future.rng <- base::globalenv()$.Random.seed 1529s [00:52:09.775] if (FALSE) { 1529s [00:52:09.775] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1529s [00:52:09.775] "...future.value", "...future.globalenv.names", ".Random.seed") 1529s [00:52:09.775] } 1529s [00:52:09.775] ...future.result <- base::tryCatch({ 1529s [00:52:09.775] base::withCallingHandlers({ 1529s [00:52:09.775] ...future.value <- base::withVisible(base::local({ 1529s [00:52:09.775] do.call(function(...) { 1529s [00:52:09.775] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1529s [00:52:09.775] if (!identical(...future.globals.maxSize.org, 1529s [00:52:09.775] ...future.globals.maxSize)) { 1529s [00:52:09.775] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1529s [00:52:09.775] on.exit(options(oopts), add = TRUE) 1529s [00:52:09.775] } 1529s [00:52:09.775] { 1529s [00:52:09.775] lapply(seq_along(...future.elements_ii), 1529s [00:52:09.775] FUN = function(jj) { 1529s [00:52:09.775] ...future.X_jj <- ...future.elements_ii[[jj]] 1529s [00:52:09.775] ...future.FUN(...future.X_jj, ...) 1529s [00:52:09.775] }) 1529s [00:52:09.775] } 1529s [00:52:09.775] }, args = future.call.arguments) 1529s [00:52:09.775] })) 1529s [00:52:09.775] future::FutureResult(value = ...future.value$value, 1529s [00:52:09.775] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1529s [00:52:09.775] ...future.rng), globalenv = if (FALSE) 1529s [00:52:09.775] list(added = base::setdiff(base::names(base::.GlobalEnv), 1529s [00:52:09.775] ...future.globalenv.names)) 1529s [00:52:09.775] else NULL, started = ...future.startTime, version = "1.8") 1529s [00:52:09.775] }, condition = base::local({ 1529s [00:52:09.775] c <- base::c 1529s [00:52:09.775] inherits <- base::inherits 1529s [00:52:09.775] invokeRestart <- base::invokeRestart 1529s [00:52:09.775] length <- base::length 1529s [00:52:09.775] list <- base::list 1529s [00:52:09.775] seq.int <- base::seq.int 1529s [00:52:09.775] signalCondition <- base::signalCondition 1529s [00:52:09.775] sys.calls <- base::sys.calls 1529s [00:52:09.775] `[[` <- base::`[[` 1529s [00:52:09.775] `+` <- base::`+` 1529s [00:52:09.775] `<<-` <- base::`<<-` 1529s [00:52:09.775] sysCalls <- function(calls = sys.calls(), from = 1L) { 1529s [00:52:09.775] calls[seq.int(from = from + 12L, to = length(calls) - 1529s [00:52:09.775] 3L)] 1529s [00:52:09.775] } 1529s [00:52:09.775] function(cond) { 1529s [00:52:09.775] is_error <- inherits(cond, "error") 1529s [00:52:09.775] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1529s [00:52:09.775] NULL) 1529s [00:52:09.775] if (is_error) { 1529s [00:52:09.775] sessionInformation <- function() { 1529s [00:52:09.775] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1529s [00:52:09.775] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1529s [00:52:09.775] search = base::search(), system = base::Sys.info()) 1529s [00:52:09.775] } 1529s [00:52:09.775] ...future.conditions[[length(...future.conditions) + 1529s [00:52:09.775] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1529s [00:52:09.775] cond$call), session = sessionInformation(), 1529s [00:52:09.775] timestamp = base::Sys.time(), signaled = 0L) 1529s [00:52:09.775] signalCondition(cond) 1529s [00:52:09.775] } 1529s [00:52:09.775] else if (!ignore && TRUE && inherits(cond, c("condition", 1529s [00:52:09.775] "immediateCondition"))) { 1529s [00:52:09.775] signal <- TRUE && inherits(cond, "immediateCondition") 1529s [00:52:09.775] ...future.conditions[[length(...future.conditions) + 1529s [00:52:09.775] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1529s [00:52:09.775] if (TRUE && !signal) { 1529s [00:52:09.775] muffleCondition <- function (cond, pattern = "^muffle") 1529s [00:52:09.775] { 1529s [00:52:09.775] inherits <- base::inherits 1529s [00:52:09.775] invokeRestart <- base::invokeRestart 1529s [00:52:09.775] is.null <- base::is.null 1529s [00:52:09.775] muffled <- FALSE 1529s [00:52:09.775] if (inherits(cond, "message")) { 1529s [00:52:09.775] muffled <- grepl(pattern, "muffleMessage") 1529s [00:52:09.775] if (muffled) 1529s [00:52:09.775] invokeRestart("muffleMessage") 1529s [00:52:09.775] } 1529s [00:52:09.775] else if (inherits(cond, "warning")) { 1529s [00:52:09.775] muffled <- grepl(pattern, "muffleWarning") 1529s [00:52:09.775] if (muffled) 1529s [00:52:09.775] invokeRestart("muffleWarning") 1529s [00:52:09.775] } 1529s [00:52:09.775] else if (inherits(cond, "condition")) { 1529s [00:52:09.775] if (!is.null(pattern)) { 1529s [00:52:09.775] computeRestarts <- base::computeRestarts 1529s [00:52:09.775] grepl <- base::grepl 1529s [00:52:09.775] restarts <- computeRestarts(cond) 1529s [00:52:09.775] for (restart in restarts) { 1529s [00:52:09.775] name <- restart$name 1529s [00:52:09.775] if (is.null(name)) 1529s [00:52:09.775] next 1529s [00:52:09.775] if (!grepl(pattern, name)) 1529s [00:52:09.775] next 1529s [00:52:09.775] invokeRestart(restart) 1529s [00:52:09.775] muffled <- TRUE 1529s [00:52:09.775] break 1529s [00:52:09.775] } 1529s [00:52:09.775] } 1529s [00:52:09.775] } 1529s [00:52:09.775] invisible(muffled) 1529s [00:52:09.775] } 1529s [00:52:09.775] muffleCondition(cond, pattern = "^muffle") 1529s [00:52:09.775] } 1529s [00:52:09.775] } 1529s [00:52:09.775] else { 1529s [00:52:09.775] if (TRUE) { 1529s [00:52:09.775] muffleCondition <- function (cond, pattern = "^muffle") 1529s [00:52:09.775] { 1529s [00:52:09.775] inherits <- base::inherits 1529s [00:52:09.775] invokeRestart <- base::invokeRestart 1529s [00:52:09.775] is.null <- base::is.null 1529s [00:52:09.775] muffled <- FALSE 1529s [00:52:09.775] if (inherits(cond, "message")) { 1529s [00:52:09.775] muffled <- grepl(pattern, "muffleMessage") 1529s [00:52:09.775] if (muffled) 1529s [00:52:09.775] invokeRestart("muffleMessage") 1529s [00:52:09.775] } 1529s [00:52:09.775] else if (inherits(cond, "warning")) { 1529s [00:52:09.775] muffled <- grepl(pattern, "muffleWarning") 1529s [00:52:09.775] if (muffled) 1529s [00:52:09.775] invokeRestart("muffleWarning") 1529s [00:52:09.775] } 1529s [00:52:09.775] else if (inherits(cond, "condition")) { 1529s [00:52:09.775] if (!is.null(pattern)) { 1529s [00:52:09.775] computeRestarts <- base::computeRestarts 1529s [00:52:09.775] grepl <- base::grepl 1529s [00:52:09.775] restarts <- computeRestarts(cond) 1529s [00:52:09.775] for (restart in restarts) { 1529s [00:52:09.775] name <- restart$name 1529s [00:52:09.775] if (is.null(name)) 1529s [00:52:09.775] next 1529s [00:52:09.775] if (!grepl(pattern, name)) 1529s [00:52:09.775] next 1529s [00:52:09.775] invokeRestart(restart) 1529s [00:52:09.775] muffled <- TRUE 1529s [00:52:09.775] break 1529s [00:52:09.775] } 1529s [00:52:09.775] } 1529s [00:52:09.775] } 1529s [00:52:09.775] invisible(muffled) 1529s [00:52:09.775] } 1529s [00:52:09.775] muffleCondition(cond, pattern = "^muffle") 1529s [00:52:09.775] } 1529s [00:52:09.775] } 1529s [00:52:09.775] } 1529s [00:52:09.775] })) 1529s [00:52:09.775] }, error = function(ex) { 1529s [00:52:09.775] base::structure(base::list(value = NULL, visible = NULL, 1529s [00:52:09.775] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1529s [00:52:09.775] ...future.rng), started = ...future.startTime, 1529s [00:52:09.775] finished = Sys.time(), session_uuid = NA_character_, 1529s [00:52:09.775] version = "1.8"), class = "FutureResult") 1529s [00:52:09.775] }, finally = { 1529s [00:52:09.775] if (!identical(...future.workdir, getwd())) 1529s [00:52:09.775] setwd(...future.workdir) 1529s [00:52:09.775] { 1529s [00:52:09.775] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1529s [00:52:09.775] ...future.oldOptions$nwarnings <- NULL 1529s [00:52:09.775] } 1529s [00:52:09.775] base::options(...future.oldOptions) 1529s [00:52:09.775] if (.Platform$OS.type == "windows") { 1529s [00:52:09.775] old_names <- names(...future.oldEnvVars) 1529s [00:52:09.775] envs <- base::Sys.getenv() 1529s [00:52:09.775] names <- names(envs) 1529s [00:52:09.775] common <- intersect(names, old_names) 1529s [00:52:09.775] added <- setdiff(names, old_names) 1529s [00:52:09.775] removed <- setdiff(old_names, names) 1529s [00:52:09.775] changed <- common[...future.oldEnvVars[common] != 1529s [00:52:09.775] envs[common]] 1529s [00:52:09.775] NAMES <- toupper(changed) 1529s [00:52:09.775] args <- list() 1529s [00:52:09.775] for (kk in seq_along(NAMES)) { 1529s [00:52:09.775] name <- changed[[kk]] 1529s [00:52:09.775] NAME <- NAMES[[kk]] 1529s [00:52:09.775] if (name != NAME && is.element(NAME, old_names)) 1529s [00:52:09.775] next 1529s [00:52:09.775] args[[name]] <- ...future.oldEnvVars[[name]] 1529s [00:52:09.775] } 1529s [00:52:09.775] NAMES <- toupper(added) 1529s [00:52:09.775] for (kk in seq_along(NAMES)) { 1529s [00:52:09.775] name <- added[[kk]] 1529s [00:52:09.775] NAME <- NAMES[[kk]] 1529s [00:52:09.775] if (name != NAME && is.element(NAME, old_names)) 1529s [00:52:09.775] next 1529s [00:52:09.775] args[[name]] <- "" 1529s [00:52:09.775] } 1529s [00:52:09.775] NAMES <- toupper(removed) 1529s [00:52:09.775] for (kk in seq_along(NAMES)) { 1529s [00:52:09.775] name <- removed[[kk]] 1529s [00:52:09.775] NAME <- NAMES[[kk]] 1529s [00:52:09.775] if (name != NAME && is.element(NAME, old_names)) 1529s [00:52:09.775] next 1529s [00:52:09.775] args[[name]] <- ...future.oldEnvVars[[name]] 1529s [00:52:09.775] } 1529s [00:52:09.775] if (length(args) > 0) 1529s [00:52:09.775] base::do.call(base::Sys.setenv, args = args) 1529s [00:52:09.775] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1529s [00:52:09.775] } 1529s [00:52:09.775] else { 1529s [00:52:09.775] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1529s [00:52:09.775] } 1529s [00:52:09.775] { 1529s [00:52:09.775] if (base::length(...future.futureOptionsAdded) > 1529s [00:52:09.775] 0L) { 1529s [00:52:09.775] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1529s [00:52:09.775] base::names(opts) <- ...future.futureOptionsAdded 1529s [00:52:09.775] base::options(opts) 1529s [00:52:09.775] } 1529s [00:52:09.775] { 1529s [00:52:09.775] { 1529s [00:52:09.775] base::assign(".Random.seed", c(10407L, -235817339L, 1529s [00:52:09.775] -918112653L, 1726940932L, 2039504800L, -2077827493L, 1529s [00:52:09.775] -666439689L), envir = base::globalenv(), 1529s [00:52:09.775] inherits = FALSE) 1529s [00:52:09.775] NULL 1529s [00:52:09.775] } 1529s [00:52:09.775] options(future.plan = NULL) 1529s [00:52:09.775] if (is.na(NA_character_)) 1529s [00:52:09.775] Sys.unsetenv("R_FUTURE_PLAN") 1529s [00:52:09.775] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1529s [00:52:09.775] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1529s [00:52:09.775] envir = parent.frame()) 1529s [00:52:09.775] { 1529s [00:52:09.775] default_workers <- missing(workers) 1529s [00:52:09.775] if (is.function(workers)) 1529s [00:52:09.775] workers <- workers() 1529s [00:52:09.775] workers <- structure(as.integer(workers), 1529s [00:52:09.775] class = class(workers)) 1529s [00:52:09.775] stop_if_not(is.finite(workers), workers >= 1529s [00:52:09.775] 1L) 1529s [00:52:09.775] if ((workers == 1L && !inherits(workers, 1529s [00:52:09.775] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1529s [00:52:09.775] if (default_workers) 1529s [00:52:09.775] supportsMulticore(warn = TRUE) 1529s [00:52:09.775] return(sequential(..., envir = envir)) 1529s [00:52:09.775] } 1529s [00:52:09.775] oopts <- options(mc.cores = workers) 1529s [00:52:09.775] on.exit(options(oopts)) 1529s [00:52:09.775] future <- MulticoreFuture(..., workers = workers, 1529s [00:52:09.775] envir = envir) 1529s [00:52:09.775] if (!future$lazy) 1529s [00:52:09.775] future <- run(future) 1529s [00:52:09.775] invisible(future) 1529s [00:52:09.775] }), .cleanup = FALSE, .init = FALSE) 1529s [00:52:09.775] } 1529s [00:52:09.775] } 1529s [00:52:09.775] } 1529s [00:52:09.775] }) 1529s [00:52:09.775] if (TRUE) { 1529s [00:52:09.775] base::sink(type = "output", split = FALSE) 1529s [00:52:09.775] if (TRUE) { 1529s [00:52:09.775] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1529s [00:52:09.775] } 1529s [00:52:09.775] else { 1529s [00:52:09.775] ...future.result["stdout"] <- base::list(NULL) 1529s [00:52:09.775] } 1529s [00:52:09.775] base::close(...future.stdout) 1529s [00:52:09.775] ...future.stdout <- NULL 1529s [00:52:09.775] } 1529s [00:52:09.775] ...future.result$conditions <- ...future.conditions 1529s [00:52:09.775] ...future.result$finished <- base::Sys.time() 1529s [00:52:09.775] ...future.result 1529s [00:52:09.775] } 1529s [00:52:09.782] assign_globals() ... 1529s [00:52:09.782] List of 5 1529s [00:52:09.782] $ future.call.arguments : list() 1529s [00:52:09.782] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1529s [00:52:09.782] $ ...future.FUN :function (x) 1529s [00:52:09.782] $ ...future.elements_ii :List of 2 1529s [00:52:09.782] ..$ : int [1:2] 1 3 1529s [00:52:09.782] ..$ : int [1:2] 2 4 1529s [00:52:09.782] $ ...future.seeds_ii : NULL 1529s [00:52:09.782] $ ...future.globals.maxSize: num Inf 1529s [00:52:09.782] - attr(*, "resolved")= logi FALSE 1529s [00:52:09.782] - attr(*, "total_size")= num NA 1529s [00:52:09.782] - attr(*, "where")=List of 5 1529s [00:52:09.782] ..$ future.call.arguments : 1529s [00:52:09.782] ..$ ...future.FUN : 1529s [00:52:09.782] ..$ ...future.elements_ii : 1529s [00:52:09.782] ..$ ...future.seeds_ii : 1529s [00:52:09.782] ..$ ...future.globals.maxSize: 1529s [00:52:09.782] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1529s [00:52:09.782] - attr(*, "already-done")= logi TRUE 1529s [00:52:09.788] - copied ‘future.call.arguments’ to environment 1529s [00:52:09.789] - reassign environment for ‘...future.FUN’ 1529s [00:52:09.789] - copied ‘...future.FUN’ to environment 1529s [00:52:09.789] - copied ‘...future.elements_ii’ to environment 1529s [00:52:09.789] - copied ‘...future.seeds_ii’ to environment 1529s [00:52:09.789] - copied ‘...future.globals.maxSize’ to environment 1529s [00:52:09.789] assign_globals() ... done 1529s [00:52:09.790] plan(): Setting new future strategy stack: 1529s [00:52:09.790] List of future strategies: 1529s [00:52:09.790] 1. sequential: 1529s [00:52:09.790] - args: function (..., envir = parent.frame()) 1529s [00:52:09.790] - tweaked: FALSE 1529s [00:52:09.790] - call: NULL 1529s [00:52:09.790] plan(): nbrOfWorkers() = 1 1529s [00:52:09.791] plan(): Setting new future strategy stack: 1529s [00:52:09.791] List of future strategies: 1529s [00:52:09.791] 1. multicore: 1529s [00:52:09.791] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1529s [00:52:09.791] - tweaked: FALSE 1529s [00:52:09.791] - call: plan(strategy) 1529s [00:52:09.795] plan(): nbrOfWorkers() = 1 1529s [00:52:09.795] SequentialFuture started (and completed) 1529s [00:52:09.795] - Launch lazy future ... done 1529s [00:52:09.795] run() for ‘SequentialFuture’ ... done 1529s [00:52:09.796] Created future: 1529s [00:52:09.796] SequentialFuture: 1529s [00:52:09.796] Label: ‘future_apply-1’ 1529s [00:52:09.796] Expression: 1529s [00:52:09.796] { 1529s [00:52:09.796] do.call(function(...) { 1529s [00:52:09.796] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1529s [00:52:09.796] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1529s [00:52:09.796] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1529s [00:52:09.796] on.exit(options(oopts), add = TRUE) 1529s [00:52:09.796] } 1529s [00:52:09.796] { 1529s [00:52:09.796] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1529s [00:52:09.796] ...future.X_jj <- ...future.elements_ii[[jj]] 1529s [00:52:09.796] ...future.FUN(...future.X_jj, ...) 1529s [00:52:09.796] }) 1529s [00:52:09.796] } 1529s [00:52:09.796] }, args = future.call.arguments) 1529s [00:52:09.796] } 1529s [00:52:09.796] Lazy evaluation: FALSE 1529s [00:52:09.796] Asynchronous evaluation: FALSE 1529s [00:52:09.796] Local evaluation: TRUE 1529s [00:52:09.796] Environment: R_GlobalEnv 1529s [00:52:09.796] Capture standard output: TRUE 1529s [00:52:09.796] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1529s [00:52:09.796] Globals: 5 objects totaling 9.82 KiB (DotDotDotList ‘future.call.arguments’ of 0 bytes, function ‘...future.FUN’ of 9.66 KiB, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1529s [00:52:09.796] Packages: 1529s [00:52:09.796] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1529s [00:52:09.796] Resolved: TRUE 1529s [00:52:09.796] Value: 400 bytes of class ‘list’ 1529s [00:52:09.796] Early signaling: FALSE 1529s [00:52:09.796] Owner process: 856348fc-72a5-ec0b-63b7-1a3640a93e42 1529s [00:52:09.796] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1529s [00:52:09.797] Chunk #1 of 1 ... DONE 1529s [00:52:09.797] Launching 1 futures (chunks) ... DONE 1529s [00:52:09.798] Resolving 1 futures (chunks) ... 1529s [00:52:09.798] resolve() on list ... 1529s [00:52:09.798] recursive: 0 1529s [00:52:09.798] length: 1 1529s [00:52:09.798] 1529s [00:52:09.798] resolved() for ‘SequentialFuture’ ... 1529s [00:52:09.798] - state: ‘finished’ 1529s [00:52:09.798] - run: TRUE 1529s [00:52:09.798] - result: ‘FutureResult’ 1529s [00:52:09.799] resolved() for ‘SequentialFuture’ ... done 1529s [00:52:09.799] Future #1 1529s [00:52:09.799] signalConditionsASAP(SequentialFuture, pos=1) ... 1529s [00:52:09.799] - nx: 1 1529s [00:52:09.799] - relay: TRUE 1529s [00:52:09.799] - stdout: TRUE 1529s [00:52:09.799] - signal: TRUE 1529s [00:52:09.799] - resignal: FALSE 1529s [00:52:09.799] - force: TRUE 1529s [00:52:09.799] - relayed: [n=1] FALSE 1529s [00:52:09.800] - queued futures: [n=1] FALSE 1529s [00:52:09.800] - until=1 1529s [00:52:09.800] - relaying element #1 1529s [00:52:09.801] - relayed: [n=1] TRUE 1529s [00:52:09.802] - queued futures: [n=1] TRUE 1529s [00:52:09.803] signalConditionsASAP(SequentialFuture, pos=1) ... done 1529s [00:52:09.804] length: 0 (resolved future 1) 1529s [00:52:09.804] Relaying remaining futures 1529s [00:52:09.804] signalConditionsASAP(NULL, pos=0) ... 1529s [00:52:09.804] - nx: 1 1529s [00:52:09.805] - relay: TRUE 1529s [00:52:09.805] - stdout: TRUE 1529s [00:52:09.805] - signal: TRUE 1529s [00:52:09.805] - resignal: FALSE 1529s [00:52:09.805] - force: TRUE 1529s [00:52:09.805] - relayed: [n=1] TRUE 1529s [00:52:09.806] - queued futures: [n=1] TRUE 1529s - flush all 1529s [00:52:09.806] - relayed: [n=1] TRUE 1529s [00:52:09.806] - queued futures: [n=1] TRUE 1529s [00:52:09.806] signalConditionsASAP(NULL, pos=0) ... done 1529s [00:52:09.806] resolve() on list ... DONE 1529s [00:52:09.806] - Number of value chunks collected: 1 1529s [00:52:09.806] Resolving 1 futures (chunks) ... DONE 1529s [00:52:09.807] Reducing values from 1 chunks ... 1529s [00:52:09.807] - Number of values collected after concatenation: 2 1529s [00:52:09.807] - Number of values expected: 2 1529s [00:52:09.807] Reducing values from 1 chunks ... DONE 1529s [00:52:09.807] future_lapply() ... DONE 1529s [,1] [,2] 1529s [1,] 1 2 1529s [2,] 3 4- example(future_apply) - reproducible RNG ... 1529s [00:52:09.808] getGlobalsAndPackagesXApply() ... 1529s 1529s [00:52:09.808] - future.globals: TRUE 1529s [00:52:09.809] getGlobalsAndPackages() ... 1529s [00:52:09.810] Searching for globals... 1529s [00:52:09.815] - globals found: [13] ‘FUN’, ‘{’, ‘if’, ‘&&’, ‘==’, ‘length’, ‘is.numeric’, ‘is.finite’, ‘>=’, ‘missing’, ‘<-’, ‘sample.int’, ‘[’ 1529s [00:52:09.815] Searching for globals ... DONE 1529s [00:52:09.815] Resolving globals: FALSE 1529s [00:52:09.816] The total size of the 1 globals is 35.45 KiB (36296 bytes) 1529s [00:52:09.817] The total size of the 1 globals exported for future expression (‘FUN(X = structure(1:4, dim = c(2L, 2L)))’) is 35.45 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (35.45 KiB of class ‘function’) 1529s [00:52:09.817] - globals: [1] ‘FUN’ 1529s [00:52:09.817] 1529s [00:52:09.817] getGlobalsAndPackages() ... DONE 1529s [00:52:09.818] - globals found/used: [n=1] ‘FUN’ 1529s [00:52:09.818] - needed namespaces: [n=0] 1529s [00:52:09.818] Finding globals ... DONE 1529s [00:52:09.818] - use_args: TRUE 1529s [00:52:09.818] - Getting '...' globals ... 1529s [00:52:09.819] resolve() on list ... 1529s [00:52:09.819] recursive: 0 1529s [00:52:09.819] length: 1 1529s [00:52:09.819] elements: ‘...’ 1529s [00:52:09.820] length: 0 (resolved future 1) 1529s [00:52:09.820] resolve() on list ... DONE 1529s [00:52:09.820] - '...' content: [n=0] 1529s [00:52:09.820] List of 1 1529s [00:52:09.820] $ ...: list() 1529s [00:52:09.820] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1529s [00:52:09.820] - attr(*, "where")=List of 1 1529s [00:52:09.820] ..$ ...: 1529s [00:52:09.820] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1529s [00:52:09.820] - attr(*, "resolved")= logi TRUE 1529s [00:52:09.820] - attr(*, "total_size")= num NA 1529s [00:52:09.824] - Getting '...' globals ... DONE 1529s [00:52:09.824] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1529s [00:52:09.824] List of 2 1529s [00:52:09.824] $ ...future.FUN:function (x, size, replace = FALSE, prob = NULL) 1529s [00:52:09.824] $ ... : list() 1529s [00:52:09.824] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1529s [00:52:09.824] - attr(*, "where")=List of 2 1529s [00:52:09.824] ..$ ...future.FUN: 1529s [00:52:09.824] ..$ ... : 1529s [00:52:09.824] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1529s [00:52:09.824] - attr(*, "resolved")= logi FALSE 1529s [00:52:09.824] - attr(*, "total_size")= num 36296 1529s [00:52:09.827] Packages to be attached in all futures: [n=0] 1529s [00:52:09.827] getGlobalsAndPackagesXApply() ... DONE 1529s [00:52:09.831] future_lapply() ... 1529s [00:52:09.833] Generating random seeds ... 1529s [00:52:09.833] Generating random seed streams for 2 elements ... 1529s [00:52:09.834] Generating random seed streams for 2 elements ... DONE 1529s [00:52:09.834] Generating random seeds ... DONE 1529s [00:52:09.834] Will set RNG state on exit: 10407, 1726940932, -2133974675, 912538111, -666439689, -800972927, -965361991 1529s [00:52:09.837] Number of chunks: 1 1529s [00:52:09.837] getGlobalsAndPackagesXApply() ... 1529s [00:52:09.837] - future.globals: with names ‘list()’ 1529s [00:52:09.837] - use_args: TRUE 1529s [00:52:09.838] Globals to be used in all futures (chunks): [n=2] ‘...’, ‘...future.FUN’ 1529s [00:52:09.838] List of 2 1529s [00:52:09.838] $ ... : list() 1529s [00:52:09.838] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1529s [00:52:09.838] $ ...future.FUN:function (x, size, replace = FALSE, prob = NULL) 1529s [00:52:09.838] - attr(*, "where")=List of 2 1529s [00:52:09.838] ..$ ... : 1529s [00:52:09.838] ..$ ...future.FUN: 1529s [00:52:09.838] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1529s [00:52:09.838] - attr(*, "resolved")= logi FALSE 1529s [00:52:09.838] - attr(*, "total_size")= num NA 1529s [00:52:09.845] Packages to be attached in all futures: [n=0] 1529s [00:52:09.846] getGlobalsAndPackagesXApply() ... DONE 1529s [00:52:09.846] Number of futures (= number of chunks): 1 1529s [00:52:09.846] Launching 1 futures (chunks) ... 1529s [00:52:09.846] Chunk #1 of 1 ... 1529s [00:52:09.846] - seeds: [2] 1529s [00:52:09.847] - All globals exported: [n=5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1529s [00:52:09.847] getGlobalsAndPackages() ... 1529s [00:52:09.847] - globals passed as-is: [5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1529s [00:52:09.847] Resolving globals: FALSE 1529s [00:52:09.847] Tweak future expression to call with '...' arguments ... 1529s [00:52:09.848] { 1529s [00:52:09.848] do.call(function(...) { 1529s [00:52:09.848] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1529s [00:52:09.848] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1529s [00:52:09.848] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1529s [00:52:09.848] on.exit(options(oopts), add = TRUE) 1529s [00:52:09.848] } 1529s [00:52:09.848] { 1529s [00:52:09.848] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1529s [00:52:09.848] ...future.X_jj <- ...future.elements_ii[[jj]] 1529s [00:52:09.848] assign(".Random.seed", ...future.seeds_ii[[jj]], 1529s [00:52:09.848] envir = globalenv(), inherits = FALSE) 1529s [00:52:09.848] ...future.FUN(...future.X_jj, ...) 1529s [00:52:09.848] }) 1529s [00:52:09.848] } 1529s [00:52:09.848] }, args = future.call.arguments) 1529s [00:52:09.848] } 1529s [00:52:09.848] Tweak future expression to call with '...' arguments ... DONE 1529s [00:52:09.849] - globals: [5] ‘future.call.arguments’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1529s [00:52:09.849] 1529s [00:52:09.849] getGlobalsAndPackages() ... DONE 1529s [00:52:09.849] run() for ‘Future’ ... 1529s [00:52:09.850] - state: ‘created’ 1529s [00:52:09.850] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1529s [00:52:09.854] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1529s [00:52:09.854] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1529s [00:52:09.854] - Field: ‘label’ 1529s [00:52:09.854] - Field: ‘local’ 1529s [00:52:09.854] - Field: ‘owner’ 1529s [00:52:09.854] - Field: ‘envir’ 1529s [00:52:09.855] - Field: ‘packages’ 1529s [00:52:09.855] - Field: ‘gc’ 1529s [00:52:09.855] - Field: ‘conditions’ 1529s [00:52:09.855] - Field: ‘expr’ 1529s [00:52:09.855] - Field: ‘uuid’ 1529s [00:52:09.855] - Field: ‘seed’ 1529s [00:52:09.855] - Field: ‘version’ 1529s [00:52:09.856] - Field: ‘result’ 1529s [00:52:09.856] - Field: ‘asynchronous’ 1529s [00:52:09.856] - Field: ‘calls’ 1529s [00:52:09.856] - Field: ‘globals’ 1529s [00:52:09.856] - Field: ‘stdout’ 1529s [00:52:09.856] - Field: ‘earlySignal’ 1529s [00:52:09.856] - Field: ‘lazy’ 1529s [00:52:09.857] - Field: ‘state’ 1529s [00:52:09.857] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1529s [00:52:09.857] - Launch lazy future ... 1529s [00:52:09.857] Packages needed by the future expression (n = 0): 1529s [00:52:09.857] Packages needed by future strategies (n = 0): 1529s [00:52:09.858] { 1529s [00:52:09.858] { 1529s [00:52:09.858] { 1529s [00:52:09.858] ...future.startTime <- base::Sys.time() 1529s [00:52:09.858] { 1529s [00:52:09.858] { 1529s [00:52:09.858] { 1529s [00:52:09.858] base::local({ 1529s [00:52:09.858] has_future <- base::requireNamespace("future", 1529s [00:52:09.858] quietly = TRUE) 1529s [00:52:09.858] if (has_future) { 1529s [00:52:09.858] ns <- base::getNamespace("future") 1529s [00:52:09.858] version <- ns[[".package"]][["version"]] 1529s [00:52:09.858] if (is.null(version)) 1529s [00:52:09.858] version <- utils::packageVersion("future") 1529s [00:52:09.858] } 1529s [00:52:09.858] else { 1529s [00:52:09.858] version <- NULL 1529s [00:52:09.858] } 1529s [00:52:09.858] if (!has_future || version < "1.8.0") { 1529s [00:52:09.858] info <- base::c(r_version = base::gsub("R version ", 1529s [00:52:09.858] "", base::R.version$version.string), 1529s [00:52:09.858] platform = base::sprintf("%s (%s-bit)", 1529s [00:52:09.858] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1529s [00:52:09.858] os = base::paste(base::Sys.info()[base::c("sysname", 1529s [00:52:09.858] "release", "version")], collapse = " "), 1529s [00:52:09.858] hostname = base::Sys.info()[["nodename"]]) 1529s [00:52:09.858] info <- base::sprintf("%s: %s", base::names(info), 1529s [00:52:09.858] info) 1529s [00:52:09.858] info <- base::paste(info, collapse = "; ") 1529s [00:52:09.858] if (!has_future) { 1529s [00:52:09.858] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1529s [00:52:09.858] info) 1529s [00:52:09.858] } 1529s [00:52:09.858] else { 1529s [00:52:09.858] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1529s [00:52:09.858] info, version) 1529s [00:52:09.858] } 1529s [00:52:09.858] base::stop(msg) 1529s [00:52:09.858] } 1529s [00:52:09.858] }) 1529s [00:52:09.858] } 1529s [00:52:09.858] options(future.plan = NULL) 1529s [00:52:09.858] Sys.unsetenv("R_FUTURE_PLAN") 1529s [00:52:09.858] future::plan("default", .cleanup = FALSE, .init = FALSE) 1529s [00:52:09.858] } 1529s [00:52:09.858] ...future.workdir <- getwd() 1529s [00:52:09.858] } 1529s [00:52:09.858] ...future.oldOptions <- base::as.list(base::.Options) 1529s [00:52:09.858] ...future.oldEnvVars <- base::Sys.getenv() 1529s [00:52:09.858] } 1529s [00:52:09.858] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1529s [00:52:09.858] future.globals.maxSize = Inf, future.globals.method = NULL, 1529s [00:52:09.858] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1529s [00:52:09.858] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1529s [00:52:09.858] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1529s [00:52:09.858] future.stdout.windows.reencode = NULL, width = 80L) 1529s [00:52:09.858] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1529s [00:52:09.858] base::names(...future.oldOptions)) 1529s [00:52:09.858] } 1529s [00:52:09.858] if (FALSE) { 1529s [00:52:09.858] } 1529s [00:52:09.858] else { 1529s [00:52:09.858] if (TRUE) { 1529s [00:52:09.858] ...future.stdout <- base::rawConnection(base::raw(0L), 1529s [00:52:09.858] open = "w") 1529s [00:52:09.858] } 1529s [00:52:09.858] else { 1529s [00:52:09.858] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1529s [00:52:09.858] windows = "NUL", "/dev/null"), open = "w") 1529s [00:52:09.858] } 1529s [00:52:09.858] base::sink(...future.stdout, type = "output", split = FALSE) 1529s [00:52:09.858] base::on.exit(if (!base::is.null(...future.stdout)) { 1529s [00:52:09.858] base::sink(type = "output", split = FALSE) 1529s [00:52:09.858] base::close(...future.stdout) 1529s [00:52:09.858] }, add = TRUE) 1529s [00:52:09.858] } 1529s [00:52:09.858] ...future.frame <- base::sys.nframe() 1529s [00:52:09.858] ...future.conditions <- base::list() 1529s [00:52:09.858] ...future.rng <- base::globalenv()$.Random.seed 1529s [00:52:09.858] if (FALSE) { 1529s [00:52:09.858] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1529s [00:52:09.858] "...future.value", "...future.globalenv.names", ".Random.seed") 1529s [00:52:09.858] } 1529s [00:52:09.858] ...future.result <- base::tryCatch({ 1529s [00:52:09.858] base::withCallingHandlers({ 1529s [00:52:09.858] ...future.value <- base::withVisible(base::local({ 1529s [00:52:09.858] do.call(function(...) { 1529s [00:52:09.858] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1529s [00:52:09.858] if (!identical(...future.globals.maxSize.org, 1529s [00:52:09.858] ...future.globals.maxSize)) { 1529s [00:52:09.858] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1529s [00:52:09.858] on.exit(options(oopts), add = TRUE) 1529s [00:52:09.858] } 1529s [00:52:09.858] { 1529s [00:52:09.858] lapply(seq_along(...future.elements_ii), 1529s [00:52:09.858] FUN = function(jj) { 1529s [00:52:09.858] ...future.X_jj <- ...future.elements_ii[[jj]] 1529s [00:52:09.858] assign(".Random.seed", ...future.seeds_ii[[jj]], 1529s [00:52:09.858] envir = globalenv(), inherits = FALSE) 1529s [00:52:09.858] ...future.FUN(...future.X_jj, ...) 1529s [00:52:09.858] }) 1529s [00:52:09.858] } 1529s [00:52:09.858] }, args = future.call.arguments) 1529s [00:52:09.858] })) 1529s [00:52:09.858] future::FutureResult(value = ...future.value$value, 1529s [00:52:09.858] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1529s [00:52:09.858] ...future.rng), globalenv = if (FALSE) 1529s [00:52:09.858] list(added = base::setdiff(base::names(base::.GlobalEnv), 1529s [00:52:09.858] ...future.globalenv.names)) 1529s [00:52:09.858] else NULL, started = ...future.startTime, version = "1.8") 1529s [00:52:09.858] }, condition = base::local({ 1529s [00:52:09.858] c <- base::c 1529s [00:52:09.858] inherits <- base::inherits 1529s [00:52:09.858] invokeRestart <- base::invokeRestart 1529s [00:52:09.858] length <- base::length 1529s [00:52:09.858] list <- base::list 1529s [00:52:09.858] seq.int <- base::seq.int 1529s [00:52:09.858] signalCondition <- base::signalCondition 1529s [00:52:09.858] sys.calls <- base::sys.calls 1529s [00:52:09.858] `[[` <- base::`[[` 1529s [00:52:09.858] `+` <- base::`+` 1529s [00:52:09.858] `<<-` <- base::`<<-` 1529s [00:52:09.858] sysCalls <- function(calls = sys.calls(), from = 1L) { 1529s [00:52:09.858] calls[seq.int(from = from + 12L, to = length(calls) - 1529s [00:52:09.858] 3L)] 1529s [00:52:09.858] } 1529s [00:52:09.858] function(cond) { 1529s [00:52:09.858] is_error <- inherits(cond, "error") 1529s [00:52:09.858] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1529s [00:52:09.858] NULL) 1529s [00:52:09.858] if (is_error) { 1529s [00:52:09.858] sessionInformation <- function() { 1529s [00:52:09.858] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1529s [00:52:09.858] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1529s [00:52:09.858] search = base::search(), system = base::Sys.info()) 1529s [00:52:09.858] } 1529s [00:52:09.858] ...future.conditions[[length(...future.conditions) + 1529s [00:52:09.858] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1529s [00:52:09.858] cond$call), session = sessionInformation(), 1529s [00:52:09.858] timestamp = base::Sys.time(), signaled = 0L) 1529s [00:52:09.858] signalCondition(cond) 1529s [00:52:09.858] } 1529s [00:52:09.858] else if (!ignore && FALSE && inherits(cond, NULL)) { 1529s [00:52:09.858] signal <- TRUE && inherits(cond, character(0)) 1529s [00:52:09.858] ...future.conditions[[length(...future.conditions) + 1529s [00:52:09.858] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1529s [00:52:09.858] if (TRUE && !signal) { 1529s [00:52:09.858] muffleCondition <- function (cond, pattern = "^muffle") 1529s [00:52:09.858] { 1529s [00:52:09.858] inherits <- base::inherits 1529s [00:52:09.858] invokeRestart <- base::invokeRestart 1529s [00:52:09.858] is.null <- base::is.null 1529s [00:52:09.858] muffled <- FALSE 1529s [00:52:09.858] if (inherits(cond, "message")) { 1529s [00:52:09.858] muffled <- grepl(pattern, "muffleMessage") 1529s [00:52:09.858] if (muffled) 1529s [00:52:09.858] invokeRestart("muffleMessage") 1529s [00:52:09.858] } 1529s [00:52:09.858] else if (inherits(cond, "warning")) { 1529s [00:52:09.858] muffled <- grepl(pattern, "muffleWarning") 1529s [00:52:09.858] if (muffled) 1529s [00:52:09.858] invokeRestart("muffleWarning") 1529s [00:52:09.858] } 1529s [00:52:09.858] else if (inherits(cond, "condition")) { 1529s [00:52:09.858] if (!is.null(pattern)) { 1529s [00:52:09.858] computeRestarts <- base::computeRestarts 1529s [00:52:09.858] grepl <- base::grepl 1529s [00:52:09.858] restarts <- computeRestarts(cond) 1529s [00:52:09.858] for (restart in restarts) { 1529s [00:52:09.858] name <- restart$name 1529s [00:52:09.858] if (is.null(name)) 1529s [00:52:09.858] next 1529s [00:52:09.858] if (!grepl(pattern, name)) 1529s [00:52:09.858] next 1529s [00:52:09.858] invokeRestart(restart) 1529s [00:52:09.858] muffled <- TRUE 1529s [00:52:09.858] break 1529s [00:52:09.858] } 1529s [00:52:09.858] } 1529s [00:52:09.858] } 1529s [00:52:09.858] invisible(muffled) 1529s [00:52:09.858] } 1529s [00:52:09.858] muffleCondition(cond, pattern = "^muffle") 1529s [00:52:09.858] } 1529s [00:52:09.858] } 1529s [00:52:09.858] else { 1529s [00:52:09.858] if (FALSE) { 1529s [00:52:09.858] muffleCondition <- function (cond, pattern = "^muffle") 1529s [00:52:09.858] { 1529s [00:52:09.858] inherits <- base::inherits 1529s [00:52:09.858] invokeRestart <- base::invokeRestart 1529s [00:52:09.858] is.null <- base::is.null 1529s [00:52:09.858] muffled <- FALSE 1529s [00:52:09.858] if (inherits(cond, "message")) { 1529s [00:52:09.858] muffled <- grepl(pattern, "muffleMessage") 1529s [00:52:09.858] if (muffled) 1529s [00:52:09.858] invokeRestart("muffleMessage") 1529s [00:52:09.858] } 1529s [00:52:09.858] else if (inherits(cond, "warning")) { 1529s [00:52:09.858] muffled <- grepl(pattern, "muffleWarning") 1529s [00:52:09.858] if (muffled) 1529s [00:52:09.858] invokeRestart("muffleWarning") 1529s [00:52:09.858] } 1529s [00:52:09.858] else if (inherits(cond, "condition")) { 1529s [00:52:09.858] if (!is.null(pattern)) { 1529s [00:52:09.858] computeRestarts <- base::computeRestarts 1529s [00:52:09.858] grepl <- base::grepl 1529s [00:52:09.858] restarts <- computeRestarts(cond) 1529s [00:52:09.858] for (restart in restarts) { 1529s [00:52:09.858] name <- restart$name 1529s [00:52:09.858] if (is.null(name)) 1529s [00:52:09.858] next 1529s [00:52:09.858] if (!grepl(pattern, name)) 1529s [00:52:09.858] next 1529s [00:52:09.858] invokeRestart(restart) 1529s [00:52:09.858] muffled <- TRUE 1529s [00:52:09.858] break 1529s [00:52:09.858] } 1529s [00:52:09.858] } 1529s [00:52:09.858] } 1529s [00:52:09.858] invisible(muffled) 1529s [00:52:09.858] } 1529s [00:52:09.858] muffleCondition(cond, pattern = "^muffle") 1529s [00:52:09.858] } 1529s [00:52:09.858] } 1529s [00:52:09.858] } 1529s [00:52:09.858] })) 1529s [00:52:09.858] }, error = function(ex) { 1529s [00:52:09.858] base::structure(base::list(value = NULL, visible = NULL, 1529s [00:52:09.858] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1529s [00:52:09.858] ...future.rng), started = ...future.startTime, 1529s [00:52:09.858] finished = Sys.time(), session_uuid = NA_character_, 1529s [00:52:09.858] version = "1.8"), class = "FutureResult") 1529s [00:52:09.858] }, finally = { 1529s [00:52:09.858] if (!identical(...future.workdir, getwd())) 1529s [00:52:09.858] setwd(...future.workdir) 1529s [00:52:09.858] { 1529s [00:52:09.858] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1529s [00:52:09.858] ...future.oldOptions$nwarnings <- NULL 1529s [00:52:09.858] } 1529s [00:52:09.858] base::options(...future.oldOptions) 1529s [00:52:09.858] if (.Platform$OS.type == "windows") { 1529s [00:52:09.858] old_names <- names(...future.oldEnvVars) 1529s [00:52:09.858] envs <- base::Sys.getenv() 1529s [00:52:09.858] names <- names(envs) 1529s [00:52:09.858] common <- intersect(names, old_names) 1529s [00:52:09.858] added <- setdiff(names, old_names) 1529s [00:52:09.858] removed <- setdiff(old_names, names) 1529s [00:52:09.858] changed <- common[...future.oldEnvVars[common] != 1529s [00:52:09.858] envs[common]] 1529s [00:52:09.858] NAMES <- toupper(changed) 1529s [00:52:09.858] args <- list() 1529s [00:52:09.858] for (kk in seq_along(NAMES)) { 1529s [00:52:09.858] name <- changed[[kk]] 1529s [00:52:09.858] NAME <- NAMES[[kk]] 1529s [00:52:09.858] if (name != NAME && is.element(NAME, old_names)) 1529s [00:52:09.858] next 1529s [00:52:09.858] args[[name]] <- ...future.oldEnvVars[[name]] 1529s [00:52:09.858] } 1529s [00:52:09.858] NAMES <- toupper(added) 1529s [00:52:09.858] for (kk in seq_along(NAMES)) { 1529s [00:52:09.858] name <- added[[kk]] 1529s [00:52:09.858] NAME <- NAMES[[kk]] 1529s [00:52:09.858] if (name != NAME && is.element(NAME, old_names)) 1529s [00:52:09.858] next 1529s [00:52:09.858] args[[name]] <- "" 1529s [00:52:09.858] } 1529s [00:52:09.858] NAMES <- toupper(removed) 1529s [00:52:09.858] for (kk in seq_along(NAMES)) { 1529s [00:52:09.858] name <- removed[[kk]] 1529s [00:52:09.858] NAME <- NAMES[[kk]] 1529s [00:52:09.858] if (name != NAME && is.element(NAME, old_names)) 1529s [00:52:09.858] next 1529s [00:52:09.858] args[[name]] <- ...future.oldEnvVars[[name]] 1529s [00:52:09.858] } 1529s [00:52:09.858] if (length(args) > 0) 1529s [00:52:09.858] base::do.call(base::Sys.setenv, args = args) 1529s [00:52:09.858] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1529s [00:52:09.858] } 1529s [00:52:09.858] else { 1529s [00:52:09.858] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1529s [00:52:09.858] } 1529s [00:52:09.858] { 1529s [00:52:09.858] if (base::length(...future.futureOptionsAdded) > 1529s [00:52:09.858] 0L) { 1529s [00:52:09.858] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1529s [00:52:09.858] base::names(opts) <- ...future.futureOptionsAdded 1529s [00:52:09.858] base::options(opts) 1529s [00:52:09.858] } 1529s [00:52:09.858] { 1529s [00:52:09.858] { 1529s [00:52:09.858] base::assign(".Random.seed", c(10407L, 1726940932L, 1529s [00:52:09.858] -2133974675L, 912538111L, -666439689L, -800972927L, 1529s [00:52:09.858] -965361991L), envir = base::globalenv(), 1529s [00:52:09.858] inherits = FALSE) 1529s [00:52:09.858] NULL 1529s [00:52:09.858] } 1529s [00:52:09.858] options(future.plan = NULL) 1529s [00:52:09.858] if (is.na(NA_character_)) 1529s [00:52:09.858] Sys.unsetenv("R_FUTURE_PLAN") 1529s [00:52:09.858] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1529s [00:52:09.858] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1529s [00:52:09.858] envir = parent.frame()) 1529s [00:52:09.858] { 1529s [00:52:09.858] default_workers <- missing(workers) 1529s [00:52:09.858] if (is.function(workers)) 1529s [00:52:09.858] workers <- workers() 1529s [00:52:09.858] workers <- structure(as.integer(workers), 1529s [00:52:09.858] class = class(workers)) 1529s [00:52:09.858] stop_if_not(is.finite(workers), workers >= 1529s [00:52:09.858] 1L) 1529s [00:52:09.858] if ((workers == 1L && !inherits(workers, 1529s [00:52:09.858] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1529s [00:52:09.858] if (default_workers) 1529s [00:52:09.858] supportsMulticore(warn = TRUE) 1529s [00:52:09.858] return(sequential(..., envir = envir)) 1529s [00:52:09.858] } 1529s [00:52:09.858] oopts <- options(mc.cores = workers) 1529s [00:52:09.858] on.exit(options(oopts)) 1529s [00:52:09.858] future <- MulticoreFuture(..., workers = workers, 1529s [00:52:09.858] envir = envir) 1529s [00:52:09.858] if (!future$lazy) 1529s [00:52:09.858] future <- run(future) 1529s [00:52:09.858] invisible(future) 1529s [00:52:09.858] }), .cleanup = FALSE, .init = FALSE) 1529s [00:52:09.858] } 1529s [00:52:09.858] } 1529s [00:52:09.858] } 1529s [00:52:09.858] }) 1529s [00:52:09.858] if (TRUE) { 1529s [00:52:09.858] base::sink(type = "output", split = FALSE) 1529s [00:52:09.858] if (TRUE) { 1529s [00:52:09.858] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1529s [00:52:09.858] } 1529s [00:52:09.858] else { 1529s [00:52:09.858] ...future.result["stdout"] <- base::list(NULL) 1529s [00:52:09.858] } 1529s [00:52:09.858] base::close(...future.stdout) 1529s [00:52:09.858] ...future.stdout <- NULL 1529s [00:52:09.858] } 1529s [00:52:09.858] ...future.result$conditions <- ...future.conditions 1529s [00:52:09.858] ...future.result$finished <- base::Sys.time() 1529s [00:52:09.858] ...future.result 1529s [00:52:09.858] } 1529s [00:52:09.864] assign_globals() ... 1529s [00:52:09.865] List of 5 1529s [00:52:09.865] $ future.call.arguments : list() 1529s [00:52:09.865] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1529s [00:52:09.865] $ ...future.FUN :function (x, size, replace = FALSE, prob = NULL) 1529s [00:52:09.865] $ ...future.elements_ii :List of 2 1529s [00:52:09.865] ..$ : int [1:2] 1 3 1529s [00:52:09.865] ..$ : int [1:2] 2 4 1529s [00:52:09.865] $ ...future.seeds_ii :List of 2 1529s [00:52:09.865] ..$ : int [1:7] 10407 1242173061 -1150840343 -834448425 701050094 -1369558043 -650964284 1529s [00:52:09.865] ..$ : int [1:7] 10407 859061261 1088872332 -1371790091 -942478768 -889560561 1393381402 1529s [00:52:09.865] $ ...future.globals.maxSize: num Inf 1529s [00:52:09.865] - attr(*, "resolved")= logi FALSE 1529s [00:52:09.865] - attr(*, "total_size")= num NA 1529s [00:52:09.865] - attr(*, "where")=List of 5 1529s [00:52:09.865] ..$ future.call.arguments : 1529s [00:52:09.865] ..$ ...future.FUN : 1529s [00:52:09.865] ..$ ...future.elements_ii : 1529s [00:52:09.865] ..$ ...future.seeds_ii : 1529s [00:52:09.865] ..$ ...future.globals.maxSize: 1529s [00:52:09.865] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1529s [00:52:09.865] - attr(*, "already-done")= logi TRUE 1529s [00:52:09.873] - copied ‘future.call.arguments’ to environment 1529s [00:52:09.873] - copied ‘...future.FUN’ to environment 1529s [00:52:09.873] - copied ‘...future.elements_ii’ to environment 1529s [00:52:09.874] - copied ‘...future.seeds_ii’ to environment 1529s [00:52:09.874] - copied ‘...future.globals.maxSize’ to environment 1529s [00:52:09.874] assign_globals() ... done 1529s [00:52:09.874] plan(): Setting new future strategy stack: 1529s [00:52:09.874] List of future strategies: 1529s [00:52:09.874] 1. sequential: 1529s [00:52:09.874] - args: function (..., envir = parent.frame()) 1529s [00:52:09.874] - tweaked: FALSE 1529s [00:52:09.874] - call: NULL 1529s [00:52:09.875] plan(): nbrOfWorkers() = 1 1529s [00:52:09.876] plan(): Setting new future strategy stack: 1529s [00:52:09.876] List of future strategies: 1529s [00:52:09.876] 1. multicore: 1529s [00:52:09.876] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1529s [00:52:09.876] - tweaked: FALSE 1529s [00:52:09.876] - call: plan(strategy) 1529s [00:52:09.879] plan(): nbrOfWorkers() = 1 1529s [00:52:09.879] SequentialFuture started (and completed) 1529s [00:52:09.879] - Launch lazy future ... done 1529s [00:52:09.880] run() for ‘SequentialFuture’ ... done 1529s [00:52:09.880] Created future: 1529s [00:52:09.880] SequentialFuture: 1529s [00:52:09.880] Label: ‘future_apply-1’ 1529s [00:52:09.880] Expression: 1529s [00:52:09.880] { 1529s [00:52:09.880] do.call(function(...) { 1529s [00:52:09.880] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1529s [00:52:09.880] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1529s [00:52:09.880] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1529s [00:52:09.880] on.exit(options(oopts), add = TRUE) 1529s [00:52:09.880] } 1529s [00:52:09.880] { 1529s [00:52:09.880] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1529s [00:52:09.880] ...future.X_jj <- ...future.elements_ii[[jj]] 1529s [00:52:09.880] assign(".Random.seed", ...future.seeds_ii[[jj]], 1529s [00:52:09.880] envir = globalenv(), inherits = FALSE) 1529s [00:52:09.880] ...future.FUN(...future.X_jj, ...) 1529s [00:52:09.880] }) 1529s [00:52:09.880] } 1529s [00:52:09.880] }, args = future.call.arguments) 1529s [00:52:09.880] } 1529s [00:52:09.880] Lazy evaluation: FALSE 1529s [00:52:09.880] Asynchronous evaluation: FALSE 1529s [00:52:09.880] Local evaluation: TRUE 1529s [00:52:09.880] Environment: R_GlobalEnv 1529s [00:52:09.880] Capture standard output: TRUE 1529s [00:52:09.880] Capture condition classes: 1529s [00:52:09.880] Globals: 5 objects totaling 35.77 KiB (DotDotDotList ‘future.call.arguments’ of 0 bytes, function ‘...future.FUN’ of 35.45 KiB, list ‘...future.elements_ii’ of 112 bytes, list ‘.. [,1] [,2] 1529s [1,] 3 2.future.seeds_ii’ of 160 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1529s [00:52:09.880] Packages: 1529s [00:52:09.880] L'Ecuyer-CMRG RNG seed: (seed = NULL) 1529s [00:52:09.880] Resolved: TRUE 1529s [00:52:09.880] Value: 112 bytes of class ‘list’ 1529s [00:52:09.880] Early signaling: FALSE 1529s [00:52:09.880] Owner process: 856348fc-72a5-ec0b-63b7-1a3640a93e42 1529s [00:52:09.880] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1529s [00:52:09.881] Chunk #1 of 1 ... DONE 1529s [00:52:09.882] Launching 1 futures (chunks) ... DONE 1529s [00:52:09.882] Resolving 1 futures (chunks) ... 1529s [00:52:09.882] resolve() on list ... 1529s [00:52:09.882] recursive: 0 1529s [00:52:09.882] length: 1 1529s [00:52:09.882] 1529s [00:52:09.882] resolved() for ‘SequentialFuture’ ... 1529s [00:52:09.882] - state: ‘finished’ 1529s [00:52:09.882] - run: TRUE 1529s [00:52:09.883] - result: ‘FutureResult’ 1529s [00:52:09.883] resolved() for ‘SequentialFuture’ ... done 1529s [00:52:09.883] Future #1 1529s [00:52:09.883] signalConditionsASAP(SequentialFuture, pos=1) ... 1529s [00:52:09.883] - nx: 1 1529s [00:52:09.883] - relay: TRUE 1529s [00:52:09.883] - stdout: TRUE 1529s [00:52:09.883] - signal: TRUE 1529s [00:52:09.883] - resignal: FALSE 1529s [00:52:09.883] - force: TRUE 1529s [00:52:09.884] - relayed: [n=1] FALSE 1529s [00:52:09.884] - queued futures: [n=1] FALSE 1529s [00:52:09.884] - until=1 1529s [00:52:09.884] - relaying element #1 1529s [00:52:09.886] - relayed: [n=1] TRUE 1529s [00:52:09.886] - queued futures: [n=1] TRUE 1529s [00:52:09.886] signalConditionsASAP(SequentialFuture, pos=1) ... done 1529s [00:52:09.886] length: 0 (resolved future 1) 1529s [00:52:09.886] Relaying remaining futures 1529s [00:52:09.886] signalConditionsASAP(NULL, pos=0) ... 1529s [00:52:09.886] - nx: 1 1529s [00:52:09.886] - relay: TRUE 1529s [00:52:09.886] - stdout: TRUE 1529s [00:52:09.887] - signal: TRUE 1529s [00:52:09.887] - resignal: FALSE 1529s [00:52:09.887] - force: TRUE 1529s [00:52:09.887] - relayed: [n=1] TRUE 1529s [00:52:09.887] - queued futures: [n=1] TRUE 1529s - flush all 1529s [00:52:09.887] - relayed: [n=1] TRUE 1529s [00:52:09.887] - queued futures: [n=1] TRUE 1529s [00:52:09.887] signalConditionsASAP(NULL, pos=0) ... done 1529s [00:52:09.887] resolve() on list ... DONE 1529s [00:52:09.888] - Number of value chunks collected: 1 1529s [00:52:09.888] Resolving 1 futures (chunks) ... DONE 1529s [00:52:09.888] Reducing values from 1 chunks ... 1529s [00:52:09.888] - Number of values collected after concatenation: 2 1529s [00:52:09.888] - Number of values expected: 2 1529s [00:52:09.888] Reducing values from 1 chunks ... DONE 1529s [00:52:09.888] future_lapply() ... DONE 1529s 1529s [2,] 1 4 1529s [00:52:09.889] plan(): Setting new future strategy stack: 1529s [00:52:09.889] List of future strategies: 1529s [00:52:09.889] 1. sequential: 1529s [00:52:09.889] - args: function (..., envir = parent.frame()) 1529s [00:52:09.889] - tweaked: FALSE 1529s [00:52:09.889] - call: plan(sequential) 1529s [00:52:09.889] plan(): nbrOfWorkers() = 1 1529s *** strategy = ‘multicore’ ... done 1529s *** strategy = ‘multisession’ ... 1529s [00:52:09.890] plan(): Setting new future strategy stack: 1529s [00:52:09.891] List of future strategies: 1529s [00:52:09.891] 1. multisession: 1529s [00:52:09.891] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1529s [00:52:09.891] - tweaked: FALSE 1529s [00:52:09.891] - call: plan(strategy) 1529s [00:52:09.891] plan(): plan_init() of ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ ... 1529s [00:52:09.892] multisession: 1529s [00:52:09.892] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1529s [00:52:09.892] - tweaked: FALSE 1529s [00:52:09.892] - call: plan(strategy) 1529s [00:52:09.896] getGlobalsAndPackages() ... 1529s [00:52:09.896] Not searching for globals 1529s [00:52:09.896] - globals: [0] 1529s [00:52:09.896] getGlobalsAndPackages() ... DONE 1529s [00:52:09.897] Packages needed by the future expression (n = 0): 1529s [00:52:09.897] Packages needed by future strategies (n = 0): 1529s [00:52:09.898] { 1529s [00:52:09.898] { 1529s [00:52:09.898] { 1529s [00:52:09.898] ...future.startTime <- base::Sys.time() 1529s [00:52:09.898] { 1529s [00:52:09.898] { 1529s [00:52:09.898] { 1529s [00:52:09.898] base::local({ 1529s [00:52:09.898] has_future <- base::requireNamespace("future", 1529s [00:52:09.898] quietly = TRUE) 1529s [00:52:09.898] if (has_future) { 1529s [00:52:09.898] ns <- base::getNamespace("future") 1529s [00:52:09.898] version <- ns[[".package"]][["version"]] 1529s [00:52:09.898] if (is.null(version)) 1529s [00:52:09.898] version <- utils::packageVersion("future") 1529s [00:52:09.898] } 1529s [00:52:09.898] else { 1529s [00:52:09.898] version <- NULL 1529s [00:52:09.898] } 1529s [00:52:09.898] if (!has_future || version < "1.8.0") { 1529s [00:52:09.898] info <- base::c(r_version = base::gsub("R version ", 1529s [00:52:09.898] "", base::R.version$version.string), 1529s [00:52:09.898] platform = base::sprintf("%s (%s-bit)", 1529s [00:52:09.898] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1529s [00:52:09.898] os = base::paste(base::Sys.info()[base::c("sysname", 1529s [00:52:09.898] "release", "version")], collapse = " "), 1529s [00:52:09.898] hostname = base::Sys.info()[["nodename"]]) 1529s [00:52:09.898] info <- base::sprintf("%s: %s", base::names(info), 1529s [00:52:09.898] info) 1529s [00:52:09.898] info <- base::paste(info, collapse = "; ") 1529s [00:52:09.898] if (!has_future) { 1529s [00:52:09.898] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1529s [00:52:09.898] info) 1529s [00:52:09.898] } 1529s [00:52:09.898] else { 1529s [00:52:09.898] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1529s [00:52:09.898] info, version) 1529s [00:52:09.898] } 1529s [00:52:09.898] base::stop(msg) 1529s [00:52:09.898] } 1529s [00:52:09.898] }) 1529s [00:52:09.898] } 1529s [00:52:09.898] options(future.plan = NULL) 1529s [00:52:09.898] Sys.unsetenv("R_FUTURE_PLAN") 1529s [00:52:09.898] future::plan("default", .cleanup = FALSE, .init = FALSE) 1529s [00:52:09.898] } 1529s [00:52:09.898] ...future.workdir <- getwd() 1529s [00:52:09.898] } 1529s [00:52:09.898] ...future.oldOptions <- base::as.list(base::.Options) 1529s [00:52:09.898] ...future.oldEnvVars <- base::Sys.getenv() 1529s [00:52:09.898] } 1529s [00:52:09.898] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1529s [00:52:09.898] future.globals.maxSize = NULL, future.globals.method = NULL, 1529s [00:52:09.898] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1529s [00:52:09.898] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1529s [00:52:09.898] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1529s [00:52:09.898] future.stdout.windows.reencode = NULL, width = 80L) 1529s [00:52:09.898] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1529s [00:52:09.898] base::names(...future.oldOptions)) 1529s [00:52:09.898] } 1529s [00:52:09.898] if (FALSE) { 1529s [00:52:09.898] } 1529s [00:52:09.898] else { 1529s [00:52:09.898] if (TRUE) { 1529s [00:52:09.898] ...future.stdout <- base::rawConnection(base::raw(0L), 1529s [00:52:09.898] open = "w") 1529s [00:52:09.898] } 1529s [00:52:09.898] else { 1529s [00:52:09.898] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1529s [00:52:09.898] windows = "NUL", "/dev/null"), open = "w") 1529s [00:52:09.898] } 1529s [00:52:09.898] base::sink(...future.stdout, type = "output", split = FALSE) 1529s [00:52:09.898] base::on.exit(if (!base::is.null(...future.stdout)) { 1529s [00:52:09.898] base::sink(type = "output", split = FALSE) 1529s [00:52:09.898] base::close(...future.stdout) 1529s [00:52:09.898] }, add = TRUE) 1529s [00:52:09.898] } 1529s [00:52:09.898] ...future.frame <- base::sys.nframe() 1529s [00:52:09.898] ...future.conditions <- base::list() 1529s [00:52:09.898] ...future.rng <- base::globalenv()$.Random.seed 1529s [00:52:09.898] if (FALSE) { 1529s [00:52:09.898] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1529s [00:52:09.898] "...future.value", "...future.globalenv.names", ".Random.seed") 1529s [00:52:09.898] } 1529s [00:52:09.898] ...future.result <- base::tryCatch({ 1529s [00:52:09.898] base::withCallingHandlers({ 1529s [00:52:09.898] ...future.value <- base::withVisible(base::local(NA)) 1529s [00:52:09.898] future::FutureResult(value = ...future.value$value, 1529s [00:52:09.898] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1529s [00:52:09.898] ...future.rng), globalenv = if (FALSE) 1529s [00:52:09.898] list(added = base::setdiff(base::names(base::.GlobalEnv), 1529s [00:52:09.898] ...future.globalenv.names)) 1529s [00:52:09.898] else NULL, started = ...future.startTime, version = "1.8") 1529s [00:52:09.898] }, condition = base::local({ 1529s [00:52:09.898] c <- base::c 1529s [00:52:09.898] inherits <- base::inherits 1529s [00:52:09.898] invokeRestart <- base::invokeRestart 1529s [00:52:09.898] length <- base::length 1529s [00:52:09.898] list <- base::list 1529s [00:52:09.898] seq.int <- base::seq.int 1529s [00:52:09.898] signalCondition <- base::signalCondition 1529s [00:52:09.898] sys.calls <- base::sys.calls 1529s [00:52:09.898] `[[` <- base::`[[` 1529s [00:52:09.898] `+` <- base::`+` 1529s [00:52:09.898] `<<-` <- base::`<<-` 1529s [00:52:09.898] sysCalls <- function(calls = sys.calls(), from = 1L) { 1529s [00:52:09.898] calls[seq.int(from = from + 12L, to = length(calls) - 1529s [00:52:09.898] 3L)] 1529s [00:52:09.898] } 1529s [00:52:09.898] function(cond) { 1529s [00:52:09.898] is_error <- inherits(cond, "error") 1529s [00:52:09.898] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1529s [00:52:09.898] NULL) 1529s [00:52:09.898] if (is_error) { 1529s [00:52:09.898] sessionInformation <- function() { 1529s [00:52:09.898] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1529s [00:52:09.898] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1529s [00:52:09.898] search = base::search(), system = base::Sys.info()) 1529s [00:52:09.898] } 1529s [00:52:09.898] ...future.conditions[[length(...future.conditions) + 1529s [00:52:09.898] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1529s [00:52:09.898] cond$call), session = sessionInformation(), 1529s [00:52:09.898] timestamp = base::Sys.time(), signaled = 0L) 1529s [00:52:09.898] signalCondition(cond) 1529s [00:52:09.898] } 1529s [00:52:09.898] else if (!ignore && TRUE && inherits(cond, c("condition", 1529s [00:52:09.898] "immediateCondition"))) { 1529s [00:52:09.898] signal <- TRUE && inherits(cond, "immediateCondition") 1529s [00:52:09.898] ...future.conditions[[length(...future.conditions) + 1529s [00:52:09.898] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1529s [00:52:09.898] if (TRUE && !signal) { 1529s [00:52:09.898] muffleCondition <- function (cond, pattern = "^muffle") 1529s [00:52:09.898] { 1529s [00:52:09.898] inherits <- base::inherits 1529s [00:52:09.898] invokeRestart <- base::invokeRestart 1529s [00:52:09.898] is.null <- base::is.null 1529s [00:52:09.898] muffled <- FALSE 1529s [00:52:09.898] if (inherits(cond, "message")) { 1529s [00:52:09.898] muffled <- grepl(pattern, "muffleMessage") 1529s [00:52:09.898] if (muffled) 1529s [00:52:09.898] invokeRestart("muffleMessage") 1529s [00:52:09.898] } 1529s [00:52:09.898] else if (inherits(cond, "warning")) { 1529s [00:52:09.898] muffled <- grepl(pattern, "muffleWarning") 1529s [00:52:09.898] if (muffled) 1529s [00:52:09.898] invokeRestart("muffleWarning") 1529s [00:52:09.898] } 1529s [00:52:09.898] else if (inherits(cond, "condition")) { 1529s [00:52:09.898] if (!is.null(pattern)) { 1529s [00:52:09.898] computeRestarts <- base::computeRestarts 1529s [00:52:09.898] grepl <- base::grepl 1529s [00:52:09.898] restarts <- computeRestarts(cond) 1529s [00:52:09.898] for (restart in restarts) { 1529s [00:52:09.898] name <- restart$name 1529s [00:52:09.898] if (is.null(name)) 1529s [00:52:09.898] next 1529s [00:52:09.898] if (!grepl(pattern, name)) 1529s [00:52:09.898] next 1529s [00:52:09.898] invokeRestart(restart) 1529s [00:52:09.898] muffled <- TRUE 1529s [00:52:09.898] break 1529s [00:52:09.898] } 1529s [00:52:09.898] } 1529s [00:52:09.898] } 1529s [00:52:09.898] invisible(muffled) 1529s [00:52:09.898] } 1529s [00:52:09.898] muffleCondition(cond, pattern = "^muffle") 1529s [00:52:09.898] } 1529s [00:52:09.898] } 1529s [00:52:09.898] else { 1529s [00:52:09.898] if (TRUE) { 1529s [00:52:09.898] muffleCondition <- function (cond, pattern = "^muffle") 1529s [00:52:09.898] { 1529s [00:52:09.898] inherits <- base::inherits 1529s [00:52:09.898] invokeRestart <- base::invokeRestart 1529s [00:52:09.898] is.null <- base::is.null 1529s [00:52:09.898] muffled <- FALSE 1529s [00:52:09.898] if (inherits(cond, "message")) { 1529s [00:52:09.898] muffled <- grepl(pattern, "muffleMessage") 1529s [00:52:09.898] if (muffled) 1529s [00:52:09.898] invokeRestart("muffleMessage") 1529s [00:52:09.898] } 1529s [00:52:09.898] else if (inherits(cond, "warning")) { 1529s [00:52:09.898] muffled <- grepl(pattern, "muffleWarning") 1529s [00:52:09.898] if (muffled) 1529s [00:52:09.898] invokeRestart("muffleWarning") 1529s [00:52:09.898] } 1529s [00:52:09.898] else if (inherits(cond, "condition")) { 1529s [00:52:09.898] if (!is.null(pattern)) { 1529s [00:52:09.898] computeRestarts <- base::computeRestarts 1529s [00:52:09.898] grepl <- base::grepl 1529s [00:52:09.898] restarts <- computeRestarts(cond) 1529s [00:52:09.898] for (restart in restarts) { 1529s [00:52:09.898] name <- restart$name 1529s [00:52:09.898] if (is.null(name)) 1529s [00:52:09.898] next 1529s [00:52:09.898] if (!grepl(pattern, name)) 1529s [00:52:09.898] next 1529s [00:52:09.898] invokeRestart(restart) 1529s [00:52:09.898] muffled <- TRUE 1529s [00:52:09.898] break 1529s [00:52:09.898] } 1529s [00:52:09.898] } 1529s [00:52:09.898] } 1529s [00:52:09.898] invisible(muffled) 1529s [00:52:09.898] } 1529s [00:52:09.898] muffleCondition(cond, pattern = "^muffle") 1529s [00:52:09.898] } 1529s [00:52:09.898] } 1529s [00:52:09.898] } 1529s [00:52:09.898] })) 1529s [00:52:09.898] }, error = function(ex) { 1529s [00:52:09.898] base::structure(base::list(value = NULL, visible = NULL, 1529s [00:52:09.898] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1529s [00:52:09.898] ...future.rng), started = ...future.startTime, 1529s [00:52:09.898] finished = Sys.time(), session_uuid = NA_character_, 1529s [00:52:09.898] version = "1.8"), class = "FutureResult") 1529s [00:52:09.898] }, finally = { 1529s [00:52:09.898] if (!identical(...future.workdir, getwd())) 1529s [00:52:09.898] setwd(...future.workdir) 1529s [00:52:09.898] { 1529s [00:52:09.898] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1529s [00:52:09.898] ...future.oldOptions$nwarnings <- NULL 1529s [00:52:09.898] } 1529s [00:52:09.898] base::options(...future.oldOptions) 1529s [00:52:09.898] if (.Platform$OS.type == "windows") { 1529s [00:52:09.898] old_names <- names(...future.oldEnvVars) 1529s [00:52:09.898] envs <- base::Sys.getenv() 1529s [00:52:09.898] names <- names(envs) 1529s [00:52:09.898] common <- intersect(names, old_names) 1529s [00:52:09.898] added <- setdiff(names, old_names) 1529s [00:52:09.898] removed <- setdiff(old_names, names) 1529s [00:52:09.898] changed <- common[...future.oldEnvVars[common] != 1529s [00:52:09.898] envs[common]] 1529s [00:52:09.898] NAMES <- toupper(changed) 1529s [00:52:09.898] args <- list() 1529s [00:52:09.898] for (kk in seq_along(NAMES)) { 1529s [00:52:09.898] name <- changed[[kk]] 1529s [00:52:09.898] NAME <- NAMES[[kk]] 1529s [00:52:09.898] if (name != NAME && is.element(NAME, old_names)) 1529s [00:52:09.898] next 1529s [00:52:09.898] args[[name]] <- ...future.oldEnvVars[[name]] 1529s [00:52:09.898] } 1529s [00:52:09.898] NAMES <- toupper(added) 1529s [00:52:09.898] for (kk in seq_along(NAMES)) { 1529s [00:52:09.898] name <- added[[kk]] 1529s [00:52:09.898] NAME <- NAMES[[kk]] 1529s [00:52:09.898] if (name != NAME && is.element(NAME, old_names)) 1529s [00:52:09.898] next 1529s [00:52:09.898] args[[name]] <- "" 1529s [00:52:09.898] } 1529s [00:52:09.898] NAMES <- toupper(removed) 1529s [00:52:09.898] for (kk in seq_along(NAMES)) { 1529s [00:52:09.898] name <- removed[[kk]] 1529s [00:52:09.898] NAME <- NAMES[[kk]] 1529s [00:52:09.898] if (name != NAME && is.element(NAME, old_names)) 1529s [00:52:09.898] next 1529s [00:52:09.898] args[[name]] <- ...future.oldEnvVars[[name]] 1529s [00:52:09.898] } 1529s [00:52:09.898] if (length(args) > 0) 1529s [00:52:09.898] base::do.call(base::Sys.setenv, args = args) 1529s [00:52:09.898] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1529s [00:52:09.898] } 1529s [00:52:09.898] else { 1529s [00:52:09.898] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1529s [00:52:09.898] } 1529s [00:52:09.898] { 1529s [00:52:09.898] if (base::length(...future.futureOptionsAdded) > 1529s [00:52:09.898] 0L) { 1529s [00:52:09.898] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1529s [00:52:09.898] base::names(opts) <- ...future.futureOptionsAdded 1529s [00:52:09.898] base::options(opts) 1529s [00:52:09.898] } 1529s [00:52:09.898] { 1529s [00:52:09.898] { 1529s [00:52:09.898] base::assign(".Random.seed", c(10407L, 1726940932L, 1529s [00:52:09.898] -2133974675L, 912538111L, -666439689L, -800972927L, 1529s [00:52:09.898] -965361991L), envir = base::globalenv(), 1529s [00:52:09.898] inherits = FALSE) 1529s [00:52:09.898] NULL 1529s [00:52:09.898] } 1529s [00:52:09.898] options(future.plan = NULL) 1529s [00:52:09.898] if (is.na(NA_character_)) 1529s [00:52:09.898] Sys.unsetenv("R_FUTURE_PLAN") 1529s [00:52:09.898] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1529s [00:52:09.898] future::plan(list(function (..., workers = availableCores(), 1529s [00:52:09.898] lazy = FALSE, rscript_libs = .libPaths(), 1529s [00:52:09.898] envir = parent.frame()) 1529s [00:52:09.898] { 1529s [00:52:09.898] if (is.function(workers)) 1529s [00:52:09.898] workers <- workers() 1529s [00:52:09.898] workers <- structure(as.integer(workers), 1529s [00:52:09.898] class = class(workers)) 1529s [00:52:09.898] stop_if_not(length(workers) == 1, is.finite(workers), 1529s [00:52:09.898] workers >= 1) 1529s [00:52:09.898] if (workers == 1L && !inherits(workers, "AsIs")) { 1529s [00:52:09.898] return(sequential(..., lazy = TRUE, envir = envir)) 1529s [00:52:09.898] } 1529s [00:52:09.898] future <- MultisessionFuture(..., workers = workers, 1529s [00:52:09.898] lazy = lazy, rscript_libs = rscript_libs, 1529s [00:52:09.898] envir = envir) 1529s [00:52:09.898] if (!future$lazy) 1529s [00:52:09.898] future <- run(future) 1529s [00:52:09.898] invisible(future) 1529s [00:52:09.898] }), .cleanup = FALSE, .init = FALSE) 1529s [00:52:09.898] } 1529s [00:52:09.898] } 1529s [00:52:09.898] } 1529s [00:52:09.898] }) 1529s [00:52:09.898] if (TRUE) { 1529s [00:52:09.898] base::sink(type = "output", split = FALSE) 1529s [00:52:09.898] if (TRUE) { 1529s [00:52:09.898] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1529s [00:52:09.898] } 1529s [00:52:09.898] else { 1529s [00:52:09.898] ...future.result["stdout"] <- base::list(NULL) 1529s [00:52:09.898] } 1529s [00:52:09.898] base::close(...future.stdout) 1529s [00:52:09.898] ...future.stdout <- NULL 1529s [00:52:09.898] } 1529s [00:52:09.898] ...future.result$conditions <- ...future.conditions 1529s [00:52:09.898] ...future.result$finished <- base::Sys.time() 1529s [00:52:09.898] ...future.result 1529s [00:52:09.898] } 1529s [00:52:09.904] plan(): Setting new future strategy stack: 1529s [00:52:09.904] List of future strategies: 1529s [00:52:09.904] 1. sequential: 1529s [00:52:09.904] - args: function (..., envir = parent.frame()) 1529s [00:52:09.904] - tweaked: FALSE 1529s [00:52:09.904] - call: NULL 1529s [00:52:09.904] plan(): nbrOfWorkers() = 1 1529s [00:52:09.905] plan(): Setting new future strategy stack: 1529s [00:52:09.905] List of future strategies: 1529s [00:52:09.905] 1. multisession: 1529s [00:52:09.905] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1529s [00:52:09.905] - tweaked: FALSE 1529s [00:52:09.905] - call: plan(strategy) 1529s [00:52:09.908] plan(): nbrOfWorkers() = 1 1529s [00:52:09.909] SequentialFuture started (and completed) 1529s [00:52:09.909] plan(): plan_init() of ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ ... DONE 1529s [00:52:09.912] plan(): nbrOfWorkers() = 1 1529s - From example(apply) ... 1529s [00:52:09.912] getGlobalsAndPackagesXApply() ... 1529s [00:52:09.913] - future.globals: TRUE 1529s [00:52:09.913] getGlobalsAndPackages() ... 1529s [00:52:09.913] Searching for globals... 1529s [00:52:09.963] - globals found: [59] ‘FUN’, ‘if’, ‘==’, ‘c’, ‘list.names’, ‘{’, ‘<-’, ‘[’, ‘as.list’, ‘substitute’, ‘-’, ‘&&’, ‘length’, ‘is.list’, ‘!’, ‘is.null’, ‘names’, ‘return’, ‘seq_along’, ‘vapply’, ‘switch’, ‘+’, ‘is.symbol’, ‘as.character’, ‘deparse’, ‘[<-’, ‘missing’, ‘match’, ‘match.arg’, ‘!=’, ‘warning’, ‘list’, ‘[[’, ‘paste’, ‘stop’, ‘integer’, ‘for’, ‘is.factor’, ‘anyNA’, ‘options’, ‘on.exit’, ‘factor’, ‘(’, ‘||’, ‘levels’, ‘as.integer’, ‘which’, ‘is.na’, ‘is.na<-’, ‘>’, ‘prod’, ‘$’, ‘.Machine’, ‘*’, ‘names<-’, ‘array’, ‘tabulate’, ‘class’, ‘class<-’ 1529s [00:52:09.964] Searching for globals ... DONE 1529s [00:52:09.964] Resolving globals: FALSE 1529s [00:52:09.967] The total size of the 1 globals is 345.92 KiB (354224 bytes) 1529s [00:52:09.967] The total size of the 1 globals exported for future expression (‘FUN(X = structure(c(1, 2, 3, 4, 1, 6, 7, 8), dim = c(2L, 4L)))’) is 345.92 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (345.92 KiB of class ‘function’) 1529s [00:52:09.968] - globals: [1] ‘FUN’ 1529s [00:52:09.968] 1529s [00:52:09.968] getGlobalsAndPackages() ... DONE 1529s [00:52:09.968] - globals found/used: [n=1] ‘FUN’ 1529s [00:52:09.968] - needed namespaces: [n=0] 1529s [00:52:09.969] Finding globals ... DONE 1529s [00:52:09.969] - use_args: TRUE 1529s [00:52:09.969] - Getting '...' globals ... 1529s [00:52:09.969] resolve() on list ... 1529s [00:52:09.969] recursive: 0 1529s [00:52:09.970] length: 1 1529s [00:52:09.970] elements: ‘...’ 1529s [00:52:09.970] length: 0 (resolved future 1) 1529s [00:52:09.970] resolve() on list ... DONE 1529s [00:52:09.970] - '...' content: [n=0] 1530s [00:52:09.970] List of 1 1530s [00:52:09.970] $ ...: list() 1530s [00:52:09.970] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1530s [00:52:09.970] - attr(*, "where")=List of 1 1530s [00:52:09.970] ..$ ...: 1530s [00:52:09.970] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1530s [00:52:09.970] - attr(*, "resolved")= logi TRUE 1530s [00:52:09.970] - attr(*, "total_size")= num NA 1530s [00:52:09.973] - Getting '...' globals ... DONE 1530s [00:52:09.974] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1530s [00:52:09.974] List of 2 1530s [00:52:09.974] $ ...future.FUN:function (..., exclude = if (useNA == "no") c(NA, NaN), useNA = c("no", 1530s [00:52:09.974] "ifany", "always"), dnn = list.names(...), deparse.level = 1) 1530s [00:52:09.974] $ ... : list() 1530s [00:52:09.974] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1530s [00:52:09.974] - attr(*, "where")=List of 2 1530s [00:52:09.974] ..$ ...future.FUN: 1530s [00:52:09.974] ..$ ... : 1530s [00:52:09.974] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1530s [00:52:09.974] - attr(*, "resolved")= logi FALSE 1530s [00:52:09.974] - attr(*, "total_size")= num 354224 1530s [00:52:09.979] Packages to be attached in all futures: [n=0] 1530s [00:52:09.979] getGlobalsAndPackagesXApply() ... DONE 1530s [00:52:09.982] future_lapply() ... 1530s [00:52:10.032] Number of chunks: 1 1530s [00:52:10.032] getGlobalsAndPackagesXApply() ... 1530s [00:52:10.032] - future.globals: with names ‘list()’ 1530s [00:52:10.033] - use_args: TRUE 1530s [00:52:10.033] Globals to be used in all futures (chunks): [n=2] ‘...’, ‘...future.FUN’ 1530s [00:52:10.033] List of 2 1530s [00:52:10.033] $ ... : list() 1530s [00:52:10.033] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1530s [00:52:10.033] $ ...future.FUN:function (..., exclude = if (useNA == "no") c(NA, NaN), useNA = c("no", 1530s [00:52:10.033] "ifany", "always"), dnn = list.names(...), deparse.level = 1) 1530s [00:52:10.033] - attr(*, "where")=List of 2 1530s [00:52:10.033] ..$ ... : 1530s [00:52:10.033] ..$ ...future.FUN: 1530s [00:52:10.033] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1530s [00:52:10.033] - attr(*, "resolved")= logi FALSE 1530s [00:52:10.033] - attr(*, "total_size")= num NA 1530s [00:52:10.038] Packages to be attached in all futures: [n=0] 1530s [00:52:10.038] getGlobalsAndPackagesXApply() ... DONE 1530s [00:52:10.039] Number of futures (= number of chunks): 1 1530s [00:52:10.039] Launching 1 futures (chunks) ... 1530s [00:52:10.039] Chunk #1 of 1 ... 1530s [00:52:10.039] - seeds: 1530s [00:52:10.039] - All globals exported: [n=5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1530s [00:52:10.039] getGlobalsAndPackages() ... 1530s [00:52:10.039] - globals passed as-is: [5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1530s [00:52:10.039] Resolving globals: FALSE 1530s [00:52:10.040] Tweak future expression to call with '...' arguments ... 1530s [00:52:10.040] { 1530s [00:52:10.040] do.call(function(...) { 1530s [00:52:10.040] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1530s [00:52:10.040] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1530s [00:52:10.040] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1530s [00:52:10.040] on.exit(options(oopts), add = TRUE) 1530s [00:52:10.040] } 1530s [00:52:10.040] { 1530s [00:52:10.040] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1530s [00:52:10.040] ...future.X_jj <- ...future.elements_ii[[jj]] 1530s [00:52:10.040] ...future.FUN(...future.X_jj, ...) 1530s [00:52:10.040] }) 1530s [00:52:10.040] } 1530s [00:52:10.040] }, args = future.call.arguments) 1530s [00:52:10.040] } 1530s [00:52:10.040] Tweak future expression to call with '...' arguments ... DONE 1530s [00:52:10.041] - globals: [5] ‘future.call.arguments’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1530s [00:52:10.041] 1530s [00:52:10.042] getGlobalsAndPackages() ... DONE 1530s [00:52:10.042] run() for ‘Future’ ... 1530s [00:52:10.042] - state: ‘created’ 1530s [00:52:10.042] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1530s [00:52:10.046] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1530s [00:52:10.046] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1530s [00:52:10.046] - Field: ‘label’ 1530s [00:52:10.046] - Field: ‘local’ 1530s [00:52:10.046] - Field: ‘owner’ 1530s [00:52:10.047] - Field: ‘envir’ 1530s [00:52:10.047] - Field: ‘packages’ 1530s [00:52:10.047] - Field: ‘gc’ 1530s [00:52:10.047] - Field: ‘conditions’ 1530s [00:52:10.047] - Field: ‘expr’ 1530s [00:52:10.047] - Field: ‘uuid’ 1530s [00:52:10.047] - Field: ‘seed’ 1530s [00:52:10.048] - Field: ‘version’ 1530s [00:52:10.048] - Field: ‘result’ 1530s [00:52:10.048] - Field: ‘asynchronous’ 1530s [00:52:10.048] - Field: ‘calls’ 1530s [00:52:10.048] - Field: ‘globals’ 1530s [00:52:10.048] - Field: ‘stdout’ 1530s [00:52:10.048] - Field: ‘earlySignal’ 1530s [00:52:10.049] - Field: ‘lazy’ 1530s [00:52:10.049] - Field: ‘state’ 1530s [00:52:10.049] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1530s [00:52:10.049] - Launch lazy future ... 1530s [00:52:10.049] Packages needed by the future expression (n = 0): 1530s [00:52:10.049] Packages needed by future strategies (n = 0): 1530s [00:52:10.050] { 1530s [00:52:10.050] { 1530s [00:52:10.050] { 1530s [00:52:10.050] ...future.startTime <- base::Sys.time() 1530s [00:52:10.050] { 1530s [00:52:10.050] { 1530s [00:52:10.050] { 1530s [00:52:10.050] base::local({ 1530s [00:52:10.050] has_future <- base::requireNamespace("future", 1530s [00:52:10.050] quietly = TRUE) 1530s [00:52:10.050] if (has_future) { 1530s [00:52:10.050] ns <- base::getNamespace("future") 1530s [00:52:10.050] version <- ns[[".package"]][["version"]] 1530s [00:52:10.050] if (is.null(version)) 1530s [00:52:10.050] version <- utils::packageVersion("future") 1530s [00:52:10.050] } 1530s [00:52:10.050] else { 1530s [00:52:10.050] version <- NULL 1530s [00:52:10.050] } 1530s [00:52:10.050] if (!has_future || version < "1.8.0") { 1530s [00:52:10.050] info <- base::c(r_version = base::gsub("R version ", 1530s [00:52:10.050] "", base::R.version$version.string), 1530s [00:52:10.050] platform = base::sprintf("%s (%s-bit)", 1530s [00:52:10.050] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1530s [00:52:10.050] os = base::paste(base::Sys.info()[base::c("sysname", 1530s [00:52:10.050] "release", "version")], collapse = " "), 1530s [00:52:10.050] hostname = base::Sys.info()[["nodename"]]) 1530s [00:52:10.050] info <- base::sprintf("%s: %s", base::names(info), 1530s [00:52:10.050] info) 1530s [00:52:10.050] info <- base::paste(info, collapse = "; ") 1530s [00:52:10.050] if (!has_future) { 1530s [00:52:10.050] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1530s [00:52:10.050] info) 1530s [00:52:10.050] } 1530s [00:52:10.050] else { 1530s [00:52:10.050] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1530s [00:52:10.050] info, version) 1530s [00:52:10.050] } 1530s [00:52:10.050] base::stop(msg) 1530s [00:52:10.050] } 1530s [00:52:10.050] }) 1530s [00:52:10.050] } 1530s [00:52:10.050] options(future.plan = NULL) 1530s [00:52:10.050] Sys.unsetenv("R_FUTURE_PLAN") 1530s [00:52:10.050] future::plan("default", .cleanup = FALSE, .init = FALSE) 1530s [00:52:10.050] } 1530s [00:52:10.050] ...future.workdir <- getwd() 1530s [00:52:10.050] } 1530s [00:52:10.050] ...future.oldOptions <- base::as.list(base::.Options) 1530s [00:52:10.050] ...future.oldEnvVars <- base::Sys.getenv() 1530s [00:52:10.050] } 1530s [00:52:10.050] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1530s [00:52:10.050] future.globals.maxSize = Inf, future.globals.method = NULL, 1530s [00:52:10.050] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1530s [00:52:10.050] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1530s [00:52:10.050] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1530s [00:52:10.050] future.stdout.windows.reencode = NULL, width = 80L) 1530s [00:52:10.050] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1530s [00:52:10.050] base::names(...future.oldOptions)) 1530s [00:52:10.050] } 1530s [00:52:10.050] if (FALSE) { 1530s [00:52:10.050] } 1530s [00:52:10.050] else { 1530s [00:52:10.050] if (TRUE) { 1530s [00:52:10.050] ...future.stdout <- base::rawConnection(base::raw(0L), 1530s [00:52:10.050] open = "w") 1530s [00:52:10.050] } 1530s [00:52:10.050] else { 1530s [00:52:10.050] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1530s [00:52:10.050] windows = "NUL", "/dev/null"), open = "w") 1530s [00:52:10.050] } 1530s [00:52:10.050] base::sink(...future.stdout, type = "output", split = FALSE) 1530s [00:52:10.050] base::on.exit(if (!base::is.null(...future.stdout)) { 1530s [00:52:10.050] base::sink(type = "output", split = FALSE) 1530s [00:52:10.050] base::close(...future.stdout) 1530s [00:52:10.050] }, add = TRUE) 1530s [00:52:10.050] } 1530s [00:52:10.050] ...future.frame <- base::sys.nframe() 1530s [00:52:10.050] ...future.conditions <- base::list() 1530s [00:52:10.050] ...future.rng <- base::globalenv()$.Random.seed 1530s [00:52:10.050] if (FALSE) { 1530s [00:52:10.050] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1530s [00:52:10.050] "...future.value", "...future.globalenv.names", ".Random.seed") 1530s [00:52:10.050] } 1530s [00:52:10.050] ...future.result <- base::tryCatch({ 1530s [00:52:10.050] base::withCallingHandlers({ 1530s [00:52:10.050] ...future.value <- base::withVisible(base::local({ 1530s [00:52:10.050] do.call(function(...) { 1530s [00:52:10.050] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1530s [00:52:10.050] if (!identical(...future.globals.maxSize.org, 1530s [00:52:10.050] ...future.globals.maxSize)) { 1530s [00:52:10.050] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1530s [00:52:10.050] on.exit(options(oopts), add = TRUE) 1530s [00:52:10.050] } 1530s [00:52:10.050] { 1530s [00:52:10.050] lapply(seq_along(...future.elements_ii), 1530s [00:52:10.050] FUN = function(jj) { 1530s [00:52:10.050] ...future.X_jj <- ...future.elements_ii[[jj]] 1530s [00:52:10.050] ...future.FUN(...future.X_jj, ...) 1530s [00:52:10.050] }) 1530s [00:52:10.050] } 1530s [00:52:10.050] }, args = future.call.arguments) 1530s [00:52:10.050] })) 1530s [00:52:10.050] future::FutureResult(value = ...future.value$value, 1530s [00:52:10.050] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1530s [00:52:10.050] ...future.rng), globalenv = if (FALSE) 1530s [00:52:10.050] list(added = base::setdiff(base::names(base::.GlobalEnv), 1530s [00:52:10.050] ...future.globalenv.names)) 1530s [00:52:10.050] else NULL, started = ...future.startTime, version = "1.8") 1530s [00:52:10.050] }, condition = base::local({ 1530s [00:52:10.050] c <- base::c 1530s [00:52:10.050] inherits <- base::inherits 1530s [00:52:10.050] invokeRestart <- base::invokeRestart 1530s [00:52:10.050] length <- base::length 1530s [00:52:10.050] list <- base::list 1530s [00:52:10.050] seq.int <- base::seq.int 1530s [00:52:10.050] signalCondition <- base::signalCondition 1530s [00:52:10.050] sys.calls <- base::sys.calls 1530s [00:52:10.050] `[[` <- base::`[[` 1530s [00:52:10.050] `+` <- base::`+` 1530s [00:52:10.050] `<<-` <- base::`<<-` 1530s [00:52:10.050] sysCalls <- function(calls = sys.calls(), from = 1L) { 1530s [00:52:10.050] calls[seq.int(from = from + 12L, to = length(calls) - 1530s [00:52:10.050] 3L)] 1530s [00:52:10.050] } 1530s [00:52:10.050] function(cond) { 1530s [00:52:10.050] is_error <- inherits(cond, "error") 1530s [00:52:10.050] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1530s [00:52:10.050] NULL) 1530s [00:52:10.050] if (is_error) { 1530s [00:52:10.050] sessionInformation <- function() { 1530s [00:52:10.050] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1530s [00:52:10.050] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1530s [00:52:10.050] search = base::search(), system = base::Sys.info()) 1530s [00:52:10.050] } 1530s [00:52:10.050] ...future.conditions[[length(...future.conditions) + 1530s [00:52:10.050] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1530s [00:52:10.050] cond$call), session = sessionInformation(), 1530s [00:52:10.050] timestamp = base::Sys.time(), signaled = 0L) 1530s [00:52:10.050] signalCondition(cond) 1530s [00:52:10.050] } 1530s [00:52:10.050] else if (!ignore && TRUE && inherits(cond, c("condition", 1530s [00:52:10.050] "immediateCondition"))) { 1530s [00:52:10.050] signal <- TRUE && inherits(cond, "immediateCondition") 1530s [00:52:10.050] ...future.conditions[[length(...future.conditions) + 1530s [00:52:10.050] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1530s [00:52:10.050] if (TRUE && !signal) { 1530s [00:52:10.050] muffleCondition <- function (cond, pattern = "^muffle") 1530s [00:52:10.050] { 1530s [00:52:10.050] inherits <- base::inherits 1530s [00:52:10.050] invokeRestart <- base::invokeRestart 1530s [00:52:10.050] is.null <- base::is.null 1530s [00:52:10.050] muffled <- FALSE 1530s [00:52:10.050] if (inherits(cond, "message")) { 1530s [00:52:10.050] muffled <- grepl(pattern, "muffleMessage") 1530s [00:52:10.050] if (muffled) 1530s [00:52:10.050] invokeRestart("muffleMessage") 1530s [00:52:10.050] } 1530s [00:52:10.050] else if (inherits(cond, "warning")) { 1530s [00:52:10.050] muffled <- grepl(pattern, "muffleWarning") 1530s [00:52:10.050] if (muffled) 1530s [00:52:10.050] invokeRestart("muffleWarning") 1530s [00:52:10.050] } 1530s [00:52:10.050] else if (inherits(cond, "condition")) { 1530s [00:52:10.050] if (!is.null(pattern)) { 1530s [00:52:10.050] computeRestarts <- base::computeRestarts 1530s [00:52:10.050] grepl <- base::grepl 1530s [00:52:10.050] restarts <- computeRestarts(cond) 1530s [00:52:10.050] for (restart in restarts) { 1530s [00:52:10.050] name <- restart$name 1530s [00:52:10.050] if (is.null(name)) 1530s [00:52:10.050] next 1530s [00:52:10.050] if (!grepl(pattern, name)) 1530s [00:52:10.050] next 1530s [00:52:10.050] invokeRestart(restart) 1530s [00:52:10.050] muffled <- TRUE 1530s [00:52:10.050] break 1530s [00:52:10.050] } 1530s [00:52:10.050] } 1530s [00:52:10.050] } 1530s [00:52:10.050] invisible(muffled) 1530s [00:52:10.050] } 1530s [00:52:10.050] muffleCondition(cond, pattern = "^muffle") 1530s [00:52:10.050] } 1530s [00:52:10.050] } 1530s [00:52:10.050] else { 1530s [00:52:10.050] if (TRUE) { 1530s [00:52:10.050] muffleCondition <- function (cond, pattern = "^muffle") 1530s [00:52:10.050] { 1530s [00:52:10.050] inherits <- base::inherits 1530s [00:52:10.050] invokeRestart <- base::invokeRestart 1530s [00:52:10.050] is.null <- base::is.null 1530s [00:52:10.050] muffled <- FALSE 1530s [00:52:10.050] if (inherits(cond, "message")) { 1530s [00:52:10.050] muffled <- grepl(pattern, "muffleMessage") 1530s [00:52:10.050] if (muffled) 1530s [00:52:10.050] invokeRestart("muffleMessage") 1530s [00:52:10.050] } 1530s [00:52:10.050] else if (inherits(cond, "warning")) { 1530s [00:52:10.050] muffled <- grepl(pattern, "muffleWarning") 1530s [00:52:10.050] if (muffled) 1530s [00:52:10.050] invokeRestart("muffleWarning") 1530s [00:52:10.050] } 1530s [00:52:10.050] else if (inherits(cond, "condition")) { 1530s [00:52:10.050] if (!is.null(pattern)) { 1530s [00:52:10.050] computeRestarts <- base::computeRestarts 1530s [00:52:10.050] grepl <- base::grepl 1530s [00:52:10.050] restarts <- computeRestarts(cond) 1530s [00:52:10.050] for (restart in restarts) { 1530s [00:52:10.050] name <- restart$name 1530s [00:52:10.050] if (is.null(name)) 1530s [00:52:10.050] next 1530s [00:52:10.050] if (!grepl(pattern, name)) 1530s [00:52:10.050] next 1530s [00:52:10.050] invokeRestart(restart) 1530s [00:52:10.050] muffled <- TRUE 1530s [00:52:10.050] break 1530s [00:52:10.050] } 1530s [00:52:10.050] } 1530s [00:52:10.050] } 1530s [00:52:10.050] invisible(muffled) 1530s [00:52:10.050] } 1530s [00:52:10.050] muffleCondition(cond, pattern = "^muffle") 1530s [00:52:10.050] } 1530s [00:52:10.050] } 1530s [00:52:10.050] } 1530s [00:52:10.050] })) 1530s [00:52:10.050] }, error = function(ex) { 1530s [00:52:10.050] base::structure(base::list(value = NULL, visible = NULL, 1530s [00:52:10.050] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1530s [00:52:10.050] ...future.rng), started = ...future.startTime, 1530s [00:52:10.050] finished = Sys.time(), session_uuid = NA_character_, 1530s [00:52:10.050] version = "1.8"), class = "FutureResult") 1530s [00:52:10.050] }, finally = { 1530s [00:52:10.050] if (!identical(...future.workdir, getwd())) 1530s [00:52:10.050] setwd(...future.workdir) 1530s [00:52:10.050] { 1530s [00:52:10.050] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1530s [00:52:10.050] ...future.oldOptions$nwarnings <- NULL 1530s [00:52:10.050] } 1530s [00:52:10.050] base::options(...future.oldOptions) 1530s [00:52:10.050] if (.Platform$OS.type == "windows") { 1530s [00:52:10.050] old_names <- names(...future.oldEnvVars) 1530s [00:52:10.050] envs <- base::Sys.getenv() 1530s [00:52:10.050] names <- names(envs) 1530s [00:52:10.050] common <- intersect(names, old_names) 1530s [00:52:10.050] added <- setdiff(names, old_names) 1530s [00:52:10.050] removed <- setdiff(old_names, names) 1530s [00:52:10.050] changed <- common[...future.oldEnvVars[common] != 1530s [00:52:10.050] envs[common]] 1530s [00:52:10.050] NAMES <- toupper(changed) 1530s [00:52:10.050] args <- list() 1530s [00:52:10.050] for (kk in seq_along(NAMES)) { 1530s [00:52:10.050] name <- changed[[kk]] 1530s [00:52:10.050] NAME <- NAMES[[kk]] 1530s [00:52:10.050] if (name != NAME && is.element(NAME, old_names)) 1530s [00:52:10.050] next 1530s [00:52:10.050] args[[name]] <- ...future.oldEnvVars[[name]] 1530s [00:52:10.050] } 1530s [00:52:10.050] NAMES <- toupper(added) 1530s [00:52:10.050] for (kk in seq_along(NAMES)) { 1530s [00:52:10.050] name <- added[[kk]] 1530s [00:52:10.050] NAME <- NAMES[[kk]] 1530s [00:52:10.050] if (name != NAME && is.element(NAME, old_names)) 1530s [00:52:10.050] next 1530s [00:52:10.050] args[[name]] <- "" 1530s [00:52:10.050] } 1530s [00:52:10.050] NAMES <- toupper(removed) 1530s [00:52:10.050] for (kk in seq_along(NAMES)) { 1530s [00:52:10.050] name <- removed[[kk]] 1530s [00:52:10.050] NAME <- NAMES[[kk]] 1530s [00:52:10.050] if (name != NAME && is.element(NAME, old_names)) 1530s [00:52:10.050] next 1530s [00:52:10.050] args[[name]] <- ...future.oldEnvVars[[name]] 1530s [00:52:10.050] } 1530s [00:52:10.050] if (length(args) > 0) 1530s [00:52:10.050] base::do.call(base::Sys.setenv, args = args) 1530s [00:52:10.050] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1530s [00:52:10.050] } 1530s [00:52:10.050] else { 1530s [00:52:10.050] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1530s [00:52:10.050] } 1530s [00:52:10.050] { 1530s [00:52:10.050] if (base::length(...future.futureOptionsAdded) > 1530s [00:52:10.050] 0L) { 1530s [00:52:10.050] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1530s [00:52:10.050] base::names(opts) <- ...future.futureOptionsAdded 1530s [00:52:10.050] base::options(opts) 1530s [00:52:10.050] } 1530s [00:52:10.050] { 1530s [00:52:10.050] { 1530s [00:52:10.050] base::assign(".Random.seed", c(10407L, 1726940932L, 1530s [00:52:10.050] -2133974675L, 912538111L, -666439689L, -800972927L, 1530s [00:52:10.050] -965361991L), envir = base::globalenv(), 1530s [00:52:10.050] inherits = FALSE) 1530s [00:52:10.050] NULL 1530s [00:52:10.050] } 1530s [00:52:10.050] options(future.plan = NULL) 1530s [00:52:10.050] if (is.na(NA_character_)) 1530s [00:52:10.050] Sys.unsetenv("R_FUTURE_PLAN") 1530s [00:52:10.050] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1530s [00:52:10.050] future::plan(list(function (..., workers = availableCores(), 1530s [00:52:10.050] lazy = FALSE, rscript_libs = .libPaths(), 1530s [00:52:10.050] envir = parent.frame()) 1530s [00:52:10.050] { 1530s [00:52:10.050] if (is.function(workers)) 1530s [00:52:10.050] workers <- workers() 1530s [00:52:10.050] workers <- structure(as.integer(workers), 1530s [00:52:10.050] class = class(workers)) 1530s [00:52:10.050] stop_if_not(length(workers) == 1, is.finite(workers), 1530s [00:52:10.050] workers >= 1) 1530s [00:52:10.050] if (workers == 1L && !inherits(workers, "AsIs")) { 1530s [00:52:10.050] return(sequential(..., lazy = TRUE, envir = envir)) 1530s [00:52:10.050] } 1530s [00:52:10.050] future <- MultisessionFuture(..., workers = workers, 1530s [00:52:10.050] lazy = lazy, rscript_libs = rscript_libs, 1530s [00:52:10.050] envir = envir) 1530s [00:52:10.050] if (!future$lazy) 1530s [00:52:10.050] future <- run(future) 1530s [00:52:10.050] invisible(future) 1530s [00:52:10.050] }), .cleanup = FALSE, .init = FALSE) 1530s [00:52:10.050] } 1530s [00:52:10.050] } 1530s [00:52:10.050] } 1530s [00:52:10.050] }) 1530s [00:52:10.050] if (TRUE) { 1530s [00:52:10.050] base::sink(type = "output", split = FALSE) 1530s [00:52:10.050] if (TRUE) { 1530s [00:52:10.050] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1530s [00:52:10.050] } 1530s [00:52:10.050] else { 1530s [00:52:10.050] ...future.result["stdout"] <- base::list(NULL) 1530s [00:52:10.050] } 1530s [00:52:10.050] base::close(...future.stdout) 1530s [00:52:10.050] ...future.stdout <- NULL 1530s [00:52:10.050] } 1530s [00:52:10.050] ...future.result$conditions <- ...future.conditions 1530s [00:52:10.050] ...future.result$finished <- base::Sys.time() 1530s [00:52:10.050] ...future.result 1530s [00:52:10.050] } 1530s [00:52:10.053] assign_globals() ... 1530s [00:52:10.053] List of 5 1530s [00:52:10.053] $ future.call.arguments : list() 1530s [00:52:10.053] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1530s [00:52:10.053] $ ...future.FUN :function (..., exclude = if (useNA == "no") c(NA, NaN), useNA = c("no", 1530s [00:52:10.053] "ifany", "always"), dnn = list.names(...), deparse.level = 1) 1530s [00:52:10.053] $ ...future.elements_ii :List of 2 1530s [00:52:10.053] ..$ : num [1:4] 1 3 1 7 1530s [00:52:10.053] ..$ : num [1:4] 2 4 6 8 1530s [00:52:10.053] $ ...future.seeds_ii : NULL 1530s [00:52:10.053] $ ...future.globals.maxSize: num Inf 1530s [00:52:10.053] - attr(*, "resolved")= logi FALSE 1530s [00:52:10.053] - attr(*, "total_size")= num NA 1530s [00:52:10.053] - attr(*, "where")=List of 5 1530s [00:52:10.053] ..$ future.call.arguments : 1530s [00:52:10.053] ..$ ...future.FUN : 1530s [00:52:10.053] ..$ ...future.elements_ii : 1530s [00:52:10.053] ..$ ...future.seeds_ii : 1530s [00:52:10.053] ..$ ...future.globals.maxSize: 1530s [00:52:10.053] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1530s [00:52:10.053] - attr(*, "already-done")= logi TRUE 1530s [00:52:10.066] - copied ‘future.call.arguments’ to environment 1530s [00:52:10.066] - copied ‘...future.FUN’ to environment 1530s [00:52:10.067] - copied ‘...future.elements_ii’ to environment 1530s [00:52:10.067] - copied ‘...future.seeds_ii’ to environment 1530s [00:52:10.067] - copied ‘...future.globals.maxSize’ to environment 1530s [00:52:10.067] assign_globals() ... done 1530s [00:52:10.068] plan(): Setting new future strategy stack: 1530s [00:52:10.068] List of future strategies: 1530s [00:52:10.068] 1. sequential: 1530s [00:52:10.068] - args: function (..., envir = parent.frame()) 1530s [00:52:10.068] - tweaked: FALSE 1530s [00:52:10.068] - call: NULL 1530s [00:52:10.069] plan(): nbrOfWorkers() = 1 1530s [00:52:10.070] plan(): Setting new future strategy stack: 1530s [00:52:10.070] List of future strategies: 1530s [00:52:10.070] 1. multisession: 1530s [00:52:10.070] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1530s [00:52:10.070] - tweaked: FALSE 1530s [00:52:10.070] - call: plan(strategy) 1530s [00:52:10.074] plan(): nbrOfWorkers() = 1 1530s [00:52:10.075] SequentialFuture started (and completed) 1530s [00:52:10.075] - Launch lazy future ... done 1530s [00:52:10.075] run() for ‘SequentialFuture’ ... done 1530s [00:52:10.076] Created future: 1530s [00:52:10.076] SequentialFuture: 1530s [00:52:10.076] Label: ‘future_apply-1’ 1530s [00:52:10.076] Expression: 1530s [00:52:10.076] { 1530s [00:52:10.076] do.call(function(...) { 1530s [00:52:10.076] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1530s [00:52:10.076] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1530s [00:52:10.076] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1530s [00:52:10.076] on.exit(options(oopts), add = TRUE) 1530s [00:52:10.076] } 1530s [00:52:10.076] { 1530s [00:52:10.076] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1530s [00:52:10.076] ...future.X_jj <- ...future.elements_ii[[jj]] 1530s [00:52:10.076] ...future.FUN(...future.X_jj, ...) 1530s [00:52:10.076] }) 1530s [00:52:10.076] } 1530s [00:52:10.076] }, args = future.call.arguments) 1530s [00:52:10.076] } 1530s [00:52:10.076] Lazy evaluation: FALSE 1530s [00:52:10.076] Asynchronous evaluation: FALSE 1530s [00:52:10.076] Local evaluation: TRUE 1530s [00:52:10.076] Environment: R_GlobalEnv 1530s [00:52:10.076] Capture standard output: TRUE 1530s [00:52:10.076] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1530s [00:52:10.076] Globals: 5 objects totaling 346.13 KiB (DotDotDotList ‘future.call.arguments’ of 0 bytes, function ‘...future.FUN’ of 345.92 KiB, list ‘...future.elements_ii’ of 160 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1530s [00:52:10.076] Packages: 1530s [00:52:10.076] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1530s [00:52:10.076] Resolved: TRUE 1530s [00:52:10.076] Value: 2.21 KiB of class ‘list’ 1530s [00:52:10.076] Early signaling: FALSE 1530s [00:52:10.076] Owner process: 856348fc-72a5-ec0b-63b7-1a3640a93e42 1530s [00:52:10.076] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1530s [00:52:10.078] Chunk #1 of 1 ... DONE 1530s [00:52:10.078] Launching 1 futures (chunks) ... DONE 1530s [00:52:10.078] Resolving 1 futures (chunks) ... 1530s [00:52:10.078] resolve() on list ... 1530s [00:52:10.078] recursive: 0 1530s [00:52:10.078] length: 1 1530s [00:52:10.079] 1530s [00:52:10.079] resolved() for ‘SequentialFuture’ ... 1530s [00:52:10.079] - state: ‘finished’ 1530s [00:52:10.079] - run: TRUE 1530s [00:52:10.079] - result: ‘FutureResult’ 1530s [00:52:10.079] resolved() for ‘SequentialFuture’ ... done 1530s [00:52:10.080] Future #1 1530s [00:52:10.080] signalConditionsASAP(SequentialFuture, pos=1) ... 1530s [00:52:10.080] - nx: 1 1530s [00:52:10.080] - relay: TRUE 1530s [00:52:10.080] - stdout: TRUE 1530s [00:52:10.080] - signal: TRUE 1530s [00:52:10.080] - resignal: FALSE 1530s [00:52:10.081] - force: TRUE 1530s [00:52:10.081] - relayed: [n=1] FALSE 1530s [00:52:10.081] - queued futures: [n=1] FALSE 1530s [00:52:10.081] - until=1 1530s [00:52:10.081] - relaying element #1 1530s [00:52:10.081] - relayed: [n=1] TRUE 1530s [00:52:10.082] - queued futures: [n=1] TRUE 1530s [00:52:10.082] signalConditionsASAP(SequentialFuture, pos=1) ... done 1530s [00:52:10.082] length: 0 (resolved future 1) 1530s [00:52:10.082] Relaying remaining futures 1530s [00:52:10.082] signalConditionsASAP(NULL, pos=0) ... 1530s [00:52:10.082] - nx: 1 1530s [00:52:10.082] - relay: TRUE 1530s [00:52:10.083] - stdout: TRUE 1530s [00:52:10.083] - signal: TRUE 1530s [00:52:10.083] - resignal: FALSE 1530s [00:52:10.083] - force: TRUE 1530s [00:52:10.084] - relayed: [n=1] TRUE 1530s [00:52:10.084] - queued futures: [n=1] TRUE 1530s - flush all 1530s [00:52:10.084] - relayed: [n=1] TRUE 1530s [00:52:10.084] - queued futures: [n=1] TRUE 1530s [00:52:10.084] signalConditionsASAP(NULL, pos=0) ... done 1530s [00:52:10.085] resolve() on list ... DONE 1530s [00:52:10.085] - Number of value chunks collected: 1 1530s [00:52:10.085] Resolving 1 futures (chunks) ... DONE 1530s [00:52:10.085] Reducing values from 1 chunks ... 1530s [00:52:10.085] - Number of values collected after concatenation: 2 1530s [00:52:10.085] - Number of values expected: 2 1530s [00:52:10.086] Reducing values from 1 chunks ... DONE 1530s [00:52:10.086] future_lapply() ... DONE 1530s [[1]] 1530s ...future.X_jj 1530s 1 3 7 1530s 2 1 [00:52:10.087] getGlobalsAndPackagesXApply() ... 1530s [00:52:10.087] - future.globals: TRUE 1530s 1 1530s 1530s [[2]] 1530s ...future.X_jj 1530s 2 4 6 8 1530s 1 1 1 1 1530s 1530s [00:52:10.087] getGlobalsAndPackages() ... 1530s [00:52:10.087] Searching for globals... 1530s [00:52:10.150] - globals found: [59] ‘FUN’, ‘if’, ‘==’, ‘c’, ‘list.names’, ‘{’, ‘<-’, ‘[’, ‘as.list’, ‘substitute’, ‘-’, ‘&&’, ‘length’, ‘is.list’, ‘!’, ‘is.null’, ‘names’, ‘return’, ‘seq_along’, ‘vapply’, ‘switch’, ‘+’, ‘is.symbol’, ‘as.character’, ‘deparse’, ‘[<-’, ‘missing’, ‘match’, ‘match.arg’, ‘!=’, ‘warning’, ‘list’, ‘[[’, ‘paste’, ‘stop’, ‘integer’, ‘for’, ‘is.factor’, ‘anyNA’, ‘options’, ‘on.exit’, ‘factor’, ‘(’, ‘||’, ‘levels’, ‘as.integer’, ‘which’, ‘is.na’, ‘is.na<-’, ‘>’, ‘prod’, ‘$’, ‘.Machine’, ‘*’, ‘names<-’, ‘array’, ‘tabulate’, ‘class’, ‘class<-’ 1530s [00:52:10.150] Searching for globals ... DONE 1530s [00:52:10.151] Resolving globals: FALSE 1530s [00:52:10.154] The total size of the 1 globals is 345.92 KiB (354224 bytes) 1530s [00:52:10.155] The total size of the 1 globals exported for future expression (‘FUN(X = structure(c(1, 2, 3, 4, 1, 6, 7, 8), dim = c(2L, 4L)))’) is 345.92 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (345.92 KiB of class ‘function’) 1530s [00:52:10.155] - globals: [1] ‘FUN’ 1530s [00:52:10.155] 1530s [00:52:10.155] getGlobalsAndPackages() ... DONE 1530s [00:52:10.156] - globals found/used: [n=1] ‘FUN’ 1530s [00:52:10.156] - needed namespaces: [n=0] 1530s [00:52:10.156] Finding globals ... DONE 1530s [00:52:10.156] - use_args: TRUE 1530s [00:52:10.156] - Getting '...' globals ... 1530s [00:52:10.157] resolve() on list ... 1530s [00:52:10.157] recursive: 0 1530s [00:52:10.157] length: 1 1530s [00:52:10.157] elements: ‘...’ 1530s [00:52:10.158] length: 0 (resolved future 1) 1530s [00:52:10.158] resolve() on list ... DONE 1530s [00:52:10.158] - '...' content: [n=0] 1530s [00:52:10.158] List of 1 1530s [00:52:10.158] $ ...: list() 1530s [00:52:10.158] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1530s [00:52:10.158] - attr(*, "where")=List of 1 1530s [00:52:10.158] ..$ ...: 1530s [00:52:10.158] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1530s [00:52:10.158] - attr(*, "resolved")= logi TRUE 1530s [00:52:10.158] - attr(*, "total_size")= num NA 1530s [00:52:10.166] - Getting '...' globals ... DONE 1530s [00:52:10.167] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1530s [00:52:10.167] List of 2 1530s [00:52:10.167] $ ...future.FUN:function (..., exclude = if (useNA == "no") c(NA, NaN), useNA = c("no", 1530s [00:52:10.167] "ifany", "always"), dnn = list.names(...), deparse.level = 1) 1530s [00:52:10.167] $ ... : list() 1530s [00:52:10.167] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1530s [00:52:10.167] - attr(*, "where")=List of 2 1530s [00:52:10.167] ..$ ...future.FUN: 1530s [00:52:10.167] ..$ ... : 1530s [00:52:10.167] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1530s [00:52:10.167] - attr(*, "resolved")= logi FALSE 1530s [00:52:10.167] - attr(*, "total_size")= num 354224 1530s [00:52:10.172] Packages to be attached in all futures: [n=0] 1530s [00:52:10.172] getGlobalsAndPackagesXApply() ... DONE 1530s [00:52:10.175] future_lapply() ... 1530s [00:52:10.230] Number of chunks: 1 1530s [00:52:10.230] getGlobalsAndPackagesXApply() ... 1530s [00:52:10.230] - future.globals: with names ‘list()’ 1530s [00:52:10.231] - use_args: TRUE 1530s [00:52:10.231] Globals to be used in all futures (chunks): [n=2] ‘...’, ‘...future.FUN’ 1530s [00:52:10.231] List of 2 1530s [00:52:10.231] $ ... : list() 1530s [00:52:10.231] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1530s [00:52:10.231] $ ...future.FUN:function (..., exclude = if (useNA == "no") c(NA, NaN), useNA = c("no", 1530s [00:52:10.231] "ifany", "always"), dnn = list.names(...), deparse.level = 1) 1530s [00:52:10.231] - attr(*, "where")=List of 2 1530s [00:52:10.231] ..$ ... : 1530s [00:52:10.231] ..$ ...future.FUN: 1530s [00:52:10.231] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1530s [00:52:10.231] - attr(*, "resolved")= logi FALSE 1530s [00:52:10.231] - attr(*, "total_size")= num NA 1530s [00:52:10.236] Packages to be attached in all futures: [n=0] 1530s [00:52:10.237] getGlobalsAndPackagesXApply() ... DONE 1530s [00:52:10.237] Number of futures (= number of chunks): 1 1530s [00:52:10.237] Launching 1 futures (chunks) ... 1530s [00:52:10.237] Chunk #1 of 1 ... 1530s [00:52:10.237] - seeds: 1530s [00:52:10.237] - All globals exported: [n=5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1530s [00:52:10.238] getGlobalsAndPackages() ... 1530s [00:52:10.238] - globals passed as-is: [5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1530s [00:52:10.238] Resolving globals: FALSE 1530s [00:52:10.238] Tweak future expression to call with '...' arguments ... 1530s [00:52:10.238] { 1530s [00:52:10.238] do.call(function(...) { 1530s [00:52:10.238] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1530s [00:52:10.238] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1530s [00:52:10.238] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1530s [00:52:10.238] on.exit(options(oopts), add = TRUE) 1530s [00:52:10.238] } 1530s [00:52:10.238] { 1530s [00:52:10.238] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1530s [00:52:10.238] ...future.X_jj <- ...future.elements_ii[[jj]] 1530s [00:52:10.238] ...future.FUN(...future.X_jj, ...) 1530s [00:52:10.238] }) 1530s [00:52:10.238] } 1530s [00:52:10.238] }, args = future.call.arguments) 1530s [00:52:10.238] } 1530s [00:52:10.239] Tweak future expression to call with '...' arguments ... DONE 1530s [00:52:10.239] - globals: [5] ‘future.call.arguments’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1530s [00:52:10.240] 1530s [00:52:10.240] getGlobalsAndPackages() ... DONE 1530s [00:52:10.240] run() for ‘Future’ ... 1530s [00:52:10.240] - state: ‘created’ 1530s [00:52:10.240] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1530s [00:52:10.244] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1530s [00:52:10.244] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1530s [00:52:10.244] - Field: ‘label’ 1530s [00:52:10.245] - Field: ‘local’ 1530s [00:52:10.245] - Field: ‘owner’ 1530s [00:52:10.245] - Field: ‘envir’ 1530s [00:52:10.245] - Field: ‘packages’ 1530s [00:52:10.245] - Field: ‘gc’ 1530s [00:52:10.245] - Field: ‘conditions’ 1530s [00:52:10.246] - Field: ‘expr’ 1530s [00:52:10.246] - Field: ‘uuid’ 1530s [00:52:10.246] - Field: ‘seed’ 1530s [00:52:10.246] - Field: ‘version’ 1530s [00:52:10.246] - Field: ‘result’ 1530s [00:52:10.247] - Field: ‘asynchronous’ 1530s [00:52:10.247] - Field: ‘calls’ 1530s [00:52:10.247] - Field: ‘globals’ 1530s [00:52:10.247] - Field: ‘stdout’ 1530s [00:52:10.247] - Field: ‘earlySignal’ 1530s [00:52:10.247] - Field: ‘lazy’ 1530s [00:52:10.248] - Field: ‘state’ 1530s [00:52:10.248] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1530s [00:52:10.248] - Launch lazy future ... 1530s [00:52:10.248] Packages needed by the future expression (n = 0): 1530s [00:52:10.248] Packages needed by future strategies (n = 0): 1530s [00:52:10.249] { 1530s [00:52:10.249] { 1530s [00:52:10.249] { 1530s [00:52:10.249] ...future.startTime <- base::Sys.time() 1530s [00:52:10.249] { 1530s [00:52:10.249] { 1530s [00:52:10.249] { 1530s [00:52:10.249] base::local({ 1530s [00:52:10.249] has_future <- base::requireNamespace("future", 1530s [00:52:10.249] quietly = TRUE) 1530s [00:52:10.249] if (has_future) { 1530s [00:52:10.249] ns <- base::getNamespace("future") 1530s [00:52:10.249] version <- ns[[".package"]][["version"]] 1530s [00:52:10.249] if (is.null(version)) 1530s [00:52:10.249] version <- utils::packageVersion("future") 1530s [00:52:10.249] } 1530s [00:52:10.249] else { 1530s [00:52:10.249] version <- NULL 1530s [00:52:10.249] } 1530s [00:52:10.249] if (!has_future || version < "1.8.0") { 1530s [00:52:10.249] info <- base::c(r_version = base::gsub("R version ", 1530s [00:52:10.249] "", base::R.version$version.string), 1530s [00:52:10.249] platform = base::sprintf("%s (%s-bit)", 1530s [00:52:10.249] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1530s [00:52:10.249] os = base::paste(base::Sys.info()[base::c("sysname", 1530s [00:52:10.249] "release", "version")], collapse = " "), 1530s [00:52:10.249] hostname = base::Sys.info()[["nodename"]]) 1530s [00:52:10.249] info <- base::sprintf("%s: %s", base::names(info), 1530s [00:52:10.249] info) 1530s [00:52:10.249] info <- base::paste(info, collapse = "; ") 1530s [00:52:10.249] if (!has_future) { 1530s [00:52:10.249] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1530s [00:52:10.249] info) 1530s [00:52:10.249] } 1530s [00:52:10.249] else { 1530s [00:52:10.249] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1530s [00:52:10.249] info, version) 1530s [00:52:10.249] } 1530s [00:52:10.249] base::stop(msg) 1530s [00:52:10.249] } 1530s [00:52:10.249] }) 1530s [00:52:10.249] } 1530s [00:52:10.249] options(future.plan = NULL) 1530s [00:52:10.249] Sys.unsetenv("R_FUTURE_PLAN") 1530s [00:52:10.249] future::plan("default", .cleanup = FALSE, .init = FALSE) 1530s [00:52:10.249] } 1530s [00:52:10.249] ...future.workdir <- getwd() 1530s [00:52:10.249] } 1530s [00:52:10.249] ...future.oldOptions <- base::as.list(base::.Options) 1530s [00:52:10.249] ...future.oldEnvVars <- base::Sys.getenv() 1530s [00:52:10.249] } 1530s [00:52:10.249] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1530s [00:52:10.249] future.globals.maxSize = Inf, future.globals.method = NULL, 1530s [00:52:10.249] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1530s [00:52:10.249] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1530s [00:52:10.249] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1530s [00:52:10.249] future.stdout.windows.reencode = NULL, width = 80L) 1530s [00:52:10.249] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1530s [00:52:10.249] base::names(...future.oldOptions)) 1530s [00:52:10.249] } 1530s [00:52:10.249] if (FALSE) { 1530s [00:52:10.249] } 1530s [00:52:10.249] else { 1530s [00:52:10.249] if (TRUE) { 1530s [00:52:10.249] ...future.stdout <- base::rawConnection(base::raw(0L), 1530s [00:52:10.249] open = "w") 1530s [00:52:10.249] } 1530s [00:52:10.249] else { 1530s [00:52:10.249] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1530s [00:52:10.249] windows = "NUL", "/dev/null"), open = "w") 1530s [00:52:10.249] } 1530s [00:52:10.249] base::sink(...future.stdout, type = "output", split = FALSE) 1530s [00:52:10.249] base::on.exit(if (!base::is.null(...future.stdout)) { 1530s [00:52:10.249] base::sink(type = "output", split = FALSE) 1530s [00:52:10.249] base::close(...future.stdout) 1530s [00:52:10.249] }, add = TRUE) 1530s [00:52:10.249] } 1530s [00:52:10.249] ...future.frame <- base::sys.nframe() 1530s [00:52:10.249] ...future.conditions <- base::list() 1530s [00:52:10.249] ...future.rng <- base::globalenv()$.Random.seed 1530s [00:52:10.249] if (FALSE) { 1530s [00:52:10.249] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1530s [00:52:10.249] "...future.value", "...future.globalenv.names", ".Random.seed") 1530s [00:52:10.249] } 1530s [00:52:10.249] ...future.result <- base::tryCatch({ 1530s [00:52:10.249] base::withCallingHandlers({ 1530s [00:52:10.249] ...future.value <- base::withVisible(base::local({ 1530s [00:52:10.249] do.call(function(...) { 1530s [00:52:10.249] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1530s [00:52:10.249] if (!identical(...future.globals.maxSize.org, 1530s [00:52:10.249] ...future.globals.maxSize)) { 1530s [00:52:10.249] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1530s [00:52:10.249] on.exit(options(oopts), add = TRUE) 1530s [00:52:10.249] } 1530s [00:52:10.249] { 1530s [00:52:10.249] lapply(seq_along(...future.elements_ii), 1530s [00:52:10.249] FUN = function(jj) { 1530s [00:52:10.249] ...future.X_jj <- ...future.elements_ii[[jj]] 1530s [00:52:10.249] ...future.FUN(...future.X_jj, ...) 1530s [00:52:10.249] }) 1530s [00:52:10.249] } 1530s [00:52:10.249] }, args = future.call.arguments) 1530s [00:52:10.249] })) 1530s [00:52:10.249] future::FutureResult(value = ...future.value$value, 1530s [00:52:10.249] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1530s [00:52:10.249] ...future.rng), globalenv = if (FALSE) 1530s [00:52:10.249] list(added = base::setdiff(base::names(base::.GlobalEnv), 1530s [00:52:10.249] ...future.globalenv.names)) 1530s [00:52:10.249] else NULL, started = ...future.startTime, version = "1.8") 1530s [00:52:10.249] }, condition = base::local({ 1530s [00:52:10.249] c <- base::c 1530s [00:52:10.249] inherits <- base::inherits 1530s [00:52:10.249] invokeRestart <- base::invokeRestart 1530s [00:52:10.249] length <- base::length 1530s [00:52:10.249] list <- base::list 1530s [00:52:10.249] seq.int <- base::seq.int 1530s [00:52:10.249] signalCondition <- base::signalCondition 1530s [00:52:10.249] sys.calls <- base::sys.calls 1530s [00:52:10.249] `[[` <- base::`[[` 1530s [00:52:10.249] `+` <- base::`+` 1530s [00:52:10.249] `<<-` <- base::`<<-` 1530s [00:52:10.249] sysCalls <- function(calls = sys.calls(), from = 1L) { 1530s [00:52:10.249] calls[seq.int(from = from + 12L, to = length(calls) - 1530s [00:52:10.249] 3L)] 1530s [00:52:10.249] } 1530s [00:52:10.249] function(cond) { 1530s [00:52:10.249] is_error <- inherits(cond, "error") 1530s [00:52:10.249] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1530s [00:52:10.249] NULL) 1530s [00:52:10.249] if (is_error) { 1530s [00:52:10.249] sessionInformation <- function() { 1530s [00:52:10.249] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1530s [00:52:10.249] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1530s [00:52:10.249] search = base::search(), system = base::Sys.info()) 1530s [00:52:10.249] } 1530s [00:52:10.249] ...future.conditions[[length(...future.conditions) + 1530s [00:52:10.249] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1530s [00:52:10.249] cond$call), session = sessionInformation(), 1530s [00:52:10.249] timestamp = base::Sys.time(), signaled = 0L) 1530s [00:52:10.249] signalCondition(cond) 1530s [00:52:10.249] } 1530s [00:52:10.249] else if (!ignore && TRUE && inherits(cond, c("condition", 1530s [00:52:10.249] "immediateCondition"))) { 1530s [00:52:10.249] signal <- TRUE && inherits(cond, "immediateCondition") 1530s [00:52:10.249] ...future.conditions[[length(...future.conditions) + 1530s [00:52:10.249] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1530s [00:52:10.249] if (TRUE && !signal) { 1530s [00:52:10.249] muffleCondition <- function (cond, pattern = "^muffle") 1530s [00:52:10.249] { 1530s [00:52:10.249] inherits <- base::inherits 1530s [00:52:10.249] invokeRestart <- base::invokeRestart 1530s [00:52:10.249] is.null <- base::is.null 1530s [00:52:10.249] muffled <- FALSE 1530s [00:52:10.249] if (inherits(cond, "message")) { 1530s [00:52:10.249] muffled <- grepl(pattern, "muffleMessage") 1530s [00:52:10.249] if (muffled) 1530s [00:52:10.249] invokeRestart("muffleMessage") 1530s [00:52:10.249] } 1530s [00:52:10.249] else if (inherits(cond, "warning")) { 1530s [00:52:10.249] muffled <- grepl(pattern, "muffleWarning") 1530s [00:52:10.249] if (muffled) 1530s [00:52:10.249] invokeRestart("muffleWarning") 1530s [00:52:10.249] } 1530s [00:52:10.249] else if (inherits(cond, "condition")) { 1530s [00:52:10.249] if (!is.null(pattern)) { 1530s [00:52:10.249] computeRestarts <- base::computeRestarts 1530s [00:52:10.249] grepl <- base::grepl 1530s [00:52:10.249] restarts <- computeRestarts(cond) 1530s [00:52:10.249] for (restart in restarts) { 1530s [00:52:10.249] name <- restart$name 1530s [00:52:10.249] if (is.null(name)) 1530s [00:52:10.249] next 1530s [00:52:10.249] if (!grepl(pattern, name)) 1530s [00:52:10.249] next 1530s [00:52:10.249] invokeRestart(restart) 1530s [00:52:10.249] muffled <- TRUE 1530s [00:52:10.249] break 1530s [00:52:10.249] } 1530s [00:52:10.249] } 1530s [00:52:10.249] } 1530s [00:52:10.249] invisible(muffled) 1530s [00:52:10.249] } 1530s [00:52:10.249] muffleCondition(cond, pattern = "^muffle") 1530s [00:52:10.249] } 1530s [00:52:10.249] } 1530s [00:52:10.249] else { 1530s [00:52:10.249] if (TRUE) { 1530s [00:52:10.249] muffleCondition <- function (cond, pattern = "^muffle") 1530s [00:52:10.249] { 1530s [00:52:10.249] inherits <- base::inherits 1530s [00:52:10.249] invokeRestart <- base::invokeRestart 1530s [00:52:10.249] is.null <- base::is.null 1530s [00:52:10.249] muffled <- FALSE 1530s [00:52:10.249] if (inherits(cond, "message")) { 1530s [00:52:10.249] muffled <- grepl(pattern, "muffleMessage") 1530s [00:52:10.249] if (muffled) 1530s [00:52:10.249] invokeRestart("muffleMessage") 1530s [00:52:10.249] } 1530s [00:52:10.249] else if (inherits(cond, "warning")) { 1530s [00:52:10.249] muffled <- grepl(pattern, "muffleWarning") 1530s [00:52:10.249] if (muffled) 1530s [00:52:10.249] invokeRestart("muffleWarning") 1530s [00:52:10.249] } 1530s [00:52:10.249] else if (inherits(cond, "condition")) { 1530s [00:52:10.249] if (!is.null(pattern)) { 1530s [00:52:10.249] computeRestarts <- base::computeRestarts 1530s [00:52:10.249] grepl <- base::grepl 1530s [00:52:10.249] restarts <- computeRestarts(cond) 1530s [00:52:10.249] for (restart in restarts) { 1530s [00:52:10.249] name <- restart$name 1530s [00:52:10.249] if (is.null(name)) 1530s [00:52:10.249] next 1530s [00:52:10.249] if (!grepl(pattern, name)) 1530s [00:52:10.249] next 1530s [00:52:10.249] invokeRestart(restart) 1530s [00:52:10.249] muffled <- TRUE 1530s [00:52:10.249] break 1530s [00:52:10.249] } 1530s [00:52:10.249] } 1530s [00:52:10.249] } 1530s [00:52:10.249] invisible(muffled) 1530s [00:52:10.249] } 1530s [00:52:10.249] muffleCondition(cond, pattern = "^muffle") 1530s [00:52:10.249] } 1530s [00:52:10.249] } 1530s [00:52:10.249] } 1530s [00:52:10.249] })) 1530s [00:52:10.249] }, error = function(ex) { 1530s [00:52:10.249] base::structure(base::list(value = NULL, visible = NULL, 1530s [00:52:10.249] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1530s [00:52:10.249] ...future.rng), started = ...future.startTime, 1530s [00:52:10.249] finished = Sys.time(), session_uuid = NA_character_, 1530s [00:52:10.249] version = "1.8"), class = "FutureResult") 1530s [00:52:10.249] }, finally = { 1530s [00:52:10.249] if (!identical(...future.workdir, getwd())) 1530s [00:52:10.249] setwd(...future.workdir) 1530s [00:52:10.249] { 1530s [00:52:10.249] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1530s [00:52:10.249] ...future.oldOptions$nwarnings <- NULL 1530s [00:52:10.249] } 1530s [00:52:10.249] base::options(...future.oldOptions) 1530s [00:52:10.249] if (.Platform$OS.type == "windows") { 1530s [00:52:10.249] old_names <- names(...future.oldEnvVars) 1530s [00:52:10.249] envs <- base::Sys.getenv() 1530s [00:52:10.249] names <- names(envs) 1530s [00:52:10.249] common <- intersect(names, old_names) 1530s [00:52:10.249] added <- setdiff(names, old_names) 1530s [00:52:10.249] removed <- setdiff(old_names, names) 1530s [00:52:10.249] changed <- common[...future.oldEnvVars[common] != 1530s [00:52:10.249] envs[common]] 1530s [00:52:10.249] NAMES <- toupper(changed) 1530s [00:52:10.249] args <- list() 1530s [00:52:10.249] for (kk in seq_along(NAMES)) { 1530s [00:52:10.249] name <- changed[[kk]] 1530s [00:52:10.249] NAME <- NAMES[[kk]] 1530s [00:52:10.249] if (name != NAME && is.element(NAME, old_names)) 1530s [00:52:10.249] next 1530s [00:52:10.249] args[[name]] <- ...future.oldEnvVars[[name]] 1530s [00:52:10.249] } 1530s [00:52:10.249] NAMES <- toupper(added) 1530s [00:52:10.249] for (kk in seq_along(NAMES)) { 1530s [00:52:10.249] name <- added[[kk]] 1530s [00:52:10.249] NAME <- NAMES[[kk]] 1530s [00:52:10.249] if (name != NAME && is.element(NAME, old_names)) 1530s [00:52:10.249] next 1530s [00:52:10.249] args[[name]] <- "" 1530s [00:52:10.249] } 1530s [00:52:10.249] NAMES <- toupper(removed) 1530s [00:52:10.249] for (kk in seq_along(NAMES)) { 1530s [00:52:10.249] name <- removed[[kk]] 1530s [00:52:10.249] NAME <- NAMES[[kk]] 1530s [00:52:10.249] if (name != NAME && is.element(NAME, old_names)) 1530s [00:52:10.249] next 1530s [00:52:10.249] args[[name]] <- ...future.oldEnvVars[[name]] 1530s [00:52:10.249] } 1530s [00:52:10.249] if (length(args) > 0) 1530s [00:52:10.249] base::do.call(base::Sys.setenv, args = args) 1530s [00:52:10.249] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1530s [00:52:10.249] } 1530s [00:52:10.249] else { 1530s [00:52:10.249] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1530s [00:52:10.249] } 1530s [00:52:10.249] { 1530s [00:52:10.249] if (base::length(...future.futureOptionsAdded) > 1530s [00:52:10.249] 0L) { 1530s [00:52:10.249] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1530s [00:52:10.249] base::names(opts) <- ...future.futureOptionsAdded 1530s [00:52:10.249] base::options(opts) 1530s [00:52:10.249] } 1530s [00:52:10.249] { 1530s [00:52:10.249] { 1530s [00:52:10.249] base::assign(".Random.seed", c(10407L, 1726940932L, 1530s [00:52:10.249] -2133974675L, 912538111L, -666439689L, -800972927L, 1530s [00:52:10.249] -965361991L), envir = base::globalenv(), 1530s [00:52:10.249] inherits = FALSE) 1530s [00:52:10.249] NULL 1530s [00:52:10.249] } 1530s [00:52:10.249] options(future.plan = NULL) 1530s [00:52:10.249] if (is.na(NA_character_)) 1530s [00:52:10.249] Sys.unsetenv("R_FUTURE_PLAN") 1530s [00:52:10.249] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1530s [00:52:10.249] future::plan(list(function (..., workers = availableCores(), 1530s [00:52:10.249] lazy = FALSE, rscript_libs = .libPaths(), 1530s [00:52:10.249] envir = parent.frame()) 1530s [00:52:10.249] { 1530s [00:52:10.249] if (is.function(workers)) 1530s [00:52:10.249] workers <- workers() 1530s [00:52:10.249] workers <- structure(as.integer(workers), 1530s [00:52:10.249] class = class(workers)) 1530s [00:52:10.249] stop_if_not(length(workers) == 1, is.finite(workers), 1530s [00:52:10.249] workers >= 1) 1530s [00:52:10.249] if (workers == 1L && !inherits(workers, "AsIs")) { 1530s [00:52:10.249] return(sequential(..., lazy = TRUE, envir = envir)) 1530s [00:52:10.249] } 1530s [00:52:10.249] future <- MultisessionFuture(..., workers = workers, 1530s [00:52:10.249] lazy = lazy, rscript_libs = rscript_libs, 1530s [00:52:10.249] envir = envir) 1530s [00:52:10.249] if (!future$lazy) 1530s [00:52:10.249] future <- run(future) 1530s [00:52:10.249] invisible(future) 1530s [00:52:10.249] }), .cleanup = FALSE, .init = FALSE) 1530s [00:52:10.249] } 1530s [00:52:10.249] } 1530s [00:52:10.249] } 1530s [00:52:10.249] }) 1530s [00:52:10.249] if (TRUE) { 1530s [00:52:10.249] base::sink(type = "output", split = FALSE) 1530s [00:52:10.249] if (TRUE) { 1530s [00:52:10.249] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1530s [00:52:10.249] } 1530s [00:52:10.249] else { 1530s [00:52:10.249] ...future.result["stdout"] <- base::list(NULL) 1530s [00:52:10.249] } 1530s [00:52:10.249] base::close(...future.stdout) 1530s [00:52:10.249] ...future.stdout <- NULL 1530s [00:52:10.249] } 1530s [00:52:10.249] ...future.result$conditions <- ...future.conditions 1530s [00:52:10.249] ...future.result$finished <- base::Sys.time() 1530s [00:52:10.249] ...future.result 1530s [00:52:10.249] } 1530s [00:52:10.253] assign_globals() ... 1530s [00:52:10.253] List of 5 1530s [00:52:10.253] $ future.call.arguments : list() 1530s [00:52:10.253] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1530s [00:52:10.253] $ ...future.FUN :function (..., exclude = if (useNA == "no") c(NA, NaN), useNA = c("no", 1530s [00:52:10.253] "ifany", "always"), dnn = list.names(...), deparse.level = 1) 1530s [00:52:10.253] $ ...future.elements_ii :List of 2 1530s [00:52:10.253] ..$ : num [1:4] 1 3 1 7 1530s [00:52:10.253] ..$ : num [1:4] 2 4 6 8 1530s [00:52:10.253] $ ...future.seeds_ii : NULL 1530s [00:52:10.253] $ ...future.globals.maxSize: num Inf 1530s [00:52:10.253] - attr(*, "resolved")= logi FALSE 1530s [00:52:10.253] - attr(*, "total_size")= num NA 1530s [00:52:10.253] - attr(*, "where")=List of 5 1530s [00:52:10.253] ..$ future.call.arguments : 1530s [00:52:10.253] ..$ ...future.FUN : 1530s [00:52:10.253] ..$ ...future.elements_ii : 1530s [00:52:10.253] ..$ ...future.seeds_ii : 1530s [00:52:10.253] ..$ ...future.globals.maxSize: 1530s [00:52:10.253] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1530s [00:52:10.253] - attr(*, "already-done")= logi TRUE 1530s [00:52:10.261] - copied ‘future.call.arguments’ to environment 1530s [00:52:10.261] - copied ‘...future.FUN’ to environment 1530s [00:52:10.262] - copied ‘...future.elements_ii’ to environment 1530s [00:52:10.264] - copied ‘...future.seeds_ii’ to environment 1530s [00:52:10.264] - copied ‘...future.globals.maxSize’ to environment 1530s [00:52:10.264] assign_globals() ... done 1530s [00:52:10.265] plan(): Setting new future strategy stack: 1530s [00:52:10.265] List of future strategies: 1530s [00:52:10.265] 1. sequential: 1530s [00:52:10.265] - args: function (..., envir = parent.frame()) 1530s [00:52:10.265] - tweaked: FALSE 1530s [00:52:10.265] - call: NULL 1530s [00:52:10.266] plan(): nbrOfWorkers() = 1 1530s [00:52:10.267] plan(): Setting new future strategy stack: 1530s [00:52:10.267] List of future strategies: 1530s [00:52:10.267] 1. multisession: 1530s [00:52:10.267] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1530s [00:52:10.267] - tweaked: FALSE 1530s [00:52:10.267] - call: plan(strategy) 1530s [00:52:10.270] plan(): nbrOfWorkers() = 1 1530s [00:52:10.270] SequentialFuture started (and completed) 1530s [00:52:10.271] - Launch lazy future ... done 1530s [00:52:10.271] run() for ‘SequentialFuture’ ... done 1530s [00:52:10.271] Created future: 1530s [00:52:10.271] SequentialFuture: 1530s [00:52:10.271] Label: ‘future_apply-1’ 1530s [00:52:10.271] Expression: 1530s [00:52:10.271] { 1530s [00:52:10.271] do.call(function(...) { 1530s [00:52:10.271] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1530s [00:52:10.271] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1530s [00:52:10.271] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1530s [00:52:10.271] on.exit(options(oopts), add = TRUE) 1530s [00:52:10.271] } 1530s [00:52:10.271] { 1530s [00:52:10.271] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1530s [00:52:10.271] ...future.X_jj <- ...future.elements_ii[[jj]] 1530s [00:52:10.271] ...future.FUN(...future.X_jj, ...) 1530s [00:52:10.271] }) 1530s [00:52:10.271] } 1530s [00:52:10.271] }, args = future.call.arguments) 1530s [00:52:10.271] } 1530s [00:52:10.271] Lazy evaluation: FALSE 1530s [00:52:10.271] Asynchronous evaluation: FALSE 1530s [00:52:10.271] Local evaluation: TRUE 1530s [00:52:10.271] Environment: R_GlobalEnv 1530s [00:52:10.271] Capture standard output: TRUE 1530s [00:52:10.271] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1530s [00:52:10.271] Globals: 5 objects totaling 346.13 KiB (DotDotDotList ‘future.call.arguments’ of 0 bytes, function ‘...future.FUN’ of 345.92 KiB, list ‘...future.elements_ii’ of 160 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1530s [00:52:10.271] Packages: 1530s [00:52:10.271] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1530s [00:52:10.271] Resolved: TRUE 1530s [00:52:10.271] Value: 2.21 KiB of class ‘list’ 1530s [00:52:10.271] Early signaling: FALSE 1530s [00:52:10.271] Owner process: 856348fc-72a5-ec0b-63b7-1a3640a93e42 1530s [00:52:10.271] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1530s [00:52:10.273] Chunk #1 of 1 ... DONE 1530s [00:52:10.273] Launching 1 futures (chunks) ... DONE 1530s [00:52:10.273] Resolving 1 futures (chunks) ... 1530s [00:52:10.273] resolve() on list ... 1530s [00:52:10.274] recursive: 0 1530s [00:52:10.274] length: 1 1530s [00:52:10.274] 1530s [00:52:10.274] resolved() for ‘SequentialFuture’ ... 1530s [00:52:10.274] - state: ‘finished’ 1530s [00:52:10.275] - run: TRUE 1530s [00:52:10.275] - result: ‘FutureResult’ 1530s [00:52:10.275] resolved() for ‘SequentialFuture’ ... done 1530s [00:52:10.275] Future #1 1530s [00:52:10.275] signalConditionsASAP(SequentialFuture, pos=1) ... 1530s [00:52:10.275] - nx: 1 1530s [00:52:10.276] - relay: TRUE 1530s [00:52:10.276] - stdout: TRUE 1530s [00:52:10.276] - signal: TRUE 1530s [00:52:10.276] - resignal: FALSE 1530s [00:52:10.276] - force: TRUE 1530s [00:52:10.276] - relayed: [n=1] FALSE 1530s [00:52:10.276] - queued futures: [n=1] FALSE 1530s [00:52:10.277] - until=1 1530s [00:52:10.277] - relaying element #1 1530s [00:52:10.277] - relayed: [n=1] TRUE 1530s [00:52:10.277] - queued futures: [n=1] TRUE 1530s [00:52:10.277] signalConditionsASAP(SequentialFuture, pos=1) ... done 1530s [00:52:10.277] length: 0 (resolved future 1) 1530s [00:52:10.278] Relaying remaining futures 1530s [00:52:10.278] signalConditionsASAP(NULL, pos=0) ... 1530s [00:52:10.278] - nx: 1 1530s [00:52:10.278] - relay: TRUE 1530s [00:52:10.278] - stdout: TRUE 1530s [00:52:10.278] - signal: TRUE 1530s [00:52:10.278] - resignal: FALSE 1530s [00:52:10.278] - force: TRUE 1530s [00:52:10.279] - relayed: [n=1] TRUE 1530s [00:52:10.279] - queued futures: [n=1] TRUE 1530s - flush all 1530s [00:52:10.279] - relayed: [n=1] TRUE 1530s [00:52:10.279] - queued futures: [n=1] TRUE 1530s [00:52:10.279] signalConditionsASAP(NULL, pos=0) ... done 1530s [00:52:10.280] resolve() on list ... DONE 1530s [00:52:10.280] - Number of value chunks collected: 1 1530s [00:52:10.280] Resolving 1 futures (chunks) ... DONE 1530s [00:52:10.280] Reducing values from 1 chunks ... 1530s [00:52:10.280] - Number of values collected after concatenation: 2 1530s [00:52:10.280] - Number of values expected: 2 1530s [00:52:10.281] Reducing values from 1 chunks ... DONE 1530s [00:52:10.281] future_lapply() ... DONE 1530s [[1]] 1530s ...future.X_jj 1530s 1 3 7 1530s 2 1 1 1530s 1530s [[2]] 1530s ...future.X_jj 1530s 2 4 6 8 1530s 1 1 1 1 1530s 1530s [00:52:10.283] getGlobalsAndPackagesXApply() ... 1530s [00:52:10.283] - future.globals: TRUE 1530s [00:52:10.283] getGlobalsAndPackages() ... 1530s [00:52:10.283] Searching for globals... 1530s [00:52:10.285] - globals found: [2] ‘FUN’, ‘UseMethod’ 1530s [00:52:10.285] Searching for globals ... DONE 1530s [00:52:10.285] Resolving globals: FALSE 1530s [00:52:10.286] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1530s [00:52:10.286] The total size of the 1 globals exported for future expression (‘FUN(X = structure(c(1, 2, 3, 4, 1, 6, 7, 8), dim = c(2L, 4L)))’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1530s [00:52:10.286] - globals: [1] ‘FUN’ 1530s [00:52:10.287] - packages: [1] ‘stats’ 1530s [00:52:10.287] getGlobalsAndPackages() ... DONE 1530s [00:52:10.287] - globals found/used: [n=1] ‘FUN’ 1530s [00:52:10.287] - needed namespaces: [n=1] ‘stats’ 1530s [00:52:10.287] Finding globals ... DONE 1530s [00:52:10.287] - use_args: TRUE 1530s [00:52:10.288] - Getting '...' globals ... 1530s [00:52:10.288] resolve() on list ... 1530s [00:52:10.288] recursive: 0 1530s [00:52:10.288] length: 1 1530s [00:52:10.288] elements: ‘...’ 1530s [00:52:10.288] length: 0 (resolved future 1) 1530s [00:52:10.288] resolve() on list ... DONE 1530s [00:52:10.289] - '...' content: [n=0] 1530s [00:52:10.289] List of 1 1530s [00:52:10.289] $ ...: list() 1530s [00:52:10.289] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1530s [00:52:10.289] - attr(*, "where")=List of 1 1530s [00:52:10.289] ..$ ...: 1530s [00:52:10.289] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1530s [00:52:10.289] - attr(*, "resolved")= logi TRUE 1530s [00:52:10.289] - attr(*, "total_size")= num NA 1530s [00:52:10.293] - Getting '...' globals ... DONE 1530s [00:52:10.294] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1530s [00:52:10.294] List of 2 1530s [00:52:10.294] $ ...future.FUN:function (x, ...) 1530s [00:52:10.294] $ ... : list() 1530s [00:52:10.294] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1530s [00:52:10.294] - attr(*, "where")=List of 2 1530s [00:52:10.294] ..$ ...future.FUN: 1530s [00:52:10.294] ..$ ... : 1530s [00:52:10.294] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1530s [00:52:10.294] - attr(*, "resolved")= logi FALSE 1530s [00:52:10.294] - attr(*, "total_size")= num 1248 1530s [00:52:10.297] Packages to be attached in all futures: [n=1] ‘stats’ 1530s [00:52:10.297] getGlobalsAndPackagesXApply() ... DONE 1530s [00:52:10.304] future_lapply() ... 1530s [00:52:10.308] Number of chunks: 1 1530s [00:52:10.308] getGlobalsAndPackagesXApply() ... 1530s [00:52:10.308] - future.globals: with names ‘list()’ 1530s [00:52:10.308] - use_args: TRUE 1530s [00:52:10.309] Globals to be used in all futures (chunks): [n=2] ‘...’, ‘...future.FUN’ 1530s [00:52:10.309] List of 2 1530s [00:52:10.309] $ ... : list() 1530s [00:52:10.309] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1530s [00:52:10.309] $ ...future.FUN:function (x, ...) 1530s [00:52:10.309] - attr(*, "where")=List of 2 1530s [00:52:10.309] ..$ ... : 1530s [00:52:10.309] ..$ ...future.FUN: 1530s [00:52:10.309] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1530s [00:52:10.309] - attr(*, "resolved")= logi FALSE 1530s [00:52:10.309] - attr(*, "total_size")= num NA 1530s [00:52:10.314] Packages to be attached in all futures: [n=1] ‘stats’ 1530s [00:52:10.315] getGlobalsAndPackagesXApply() ... DONE 1530s [00:52:10.315] Number of futures (= number of chunks): 1 1530s [00:52:10.315] Launching 1 futures (chunks) ... 1530s [00:52:10.316] Chunk #1 of 1 ... 1530s [00:52:10.316] - seeds: 1530s [00:52:10.316] - All globals exported: [n=5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1530s [00:52:10.316] getGlobalsAndPackages() ... 1530s [00:52:10.316] - globals passed as-is: [5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1530s [00:52:10.317] Resolving globals: FALSE 1530s [00:52:10.317] Tweak future expression to call with '...' arguments ... 1530s [00:52:10.317] { 1530s [00:52:10.317] do.call(function(...) { 1530s [00:52:10.317] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1530s [00:52:10.317] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1530s [00:52:10.317] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1530s [00:52:10.317] on.exit(options(oopts), add = TRUE) 1530s [00:52:10.317] } 1530s [00:52:10.317] { 1530s [00:52:10.317] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1530s [00:52:10.317] ...future.X_jj <- ...future.elements_ii[[jj]] 1530s [00:52:10.317] ...future.FUN(...future.X_jj, ...) 1530s [00:52:10.317] }) 1530s [00:52:10.317] } 1530s [00:52:10.317] }, args = future.call.arguments) 1530s [00:52:10.317] } 1530s [00:52:10.318] Tweak future expression to call with '...' arguments ... DONE 1530s [00:52:10.319] - globals: [5] ‘future.call.arguments’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1530s [00:52:10.319] - packages: [1] ‘stats’ 1530s [00:52:10.319] getGlobalsAndPackages() ... DONE 1530s [00:52:10.320] run() for ‘Future’ ... 1530s [00:52:10.320] - state: ‘created’ 1530s [00:52:10.320] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1530s [00:52:10.324] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1530s [00:52:10.325] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1530s [00:52:10.325] - Field: ‘label’ 1530s [00:52:10.325] - Field: ‘local’ 1530s [00:52:10.325] - Field: ‘owner’ 1530s [00:52:10.325] - Field: ‘envir’ 1530s [00:52:10.325] - Field: ‘packages’ 1530s [00:52:10.325] - Field: ‘gc’ 1530s [00:52:10.326] - Field: ‘conditions’ 1530s [00:52:10.326] - Field: ‘expr’ 1530s [00:52:10.326] - Field: ‘uuid’ 1530s [00:52:10.326] - Field: ‘seed’ 1530s [00:52:10.326] - Field: ‘version’ 1530s [00:52:10.326] - Field: ‘result’ 1530s [00:52:10.326] - Field: ‘asynchronous’ 1530s [00:52:10.326] - Field: ‘calls’ 1530s [00:52:10.327] - Field: ‘globals’ 1530s [00:52:10.327] - Field: ‘stdout’ 1530s [00:52:10.327] - Field: ‘earlySignal’ 1530s [00:52:10.327] - Field: ‘lazy’ 1530s [00:52:10.327] - Field: ‘state’ 1530s [00:52:10.327] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1530s [00:52:10.327] - Launch lazy future ... 1530s [00:52:10.327] Packages needed by the future expression (n = 1): ‘stats’ 1530s [00:52:10.328] Packages needed by future strategies (n = 0): 1530s [00:52:10.328] { 1530s [00:52:10.328] { 1530s [00:52:10.328] { 1530s [00:52:10.328] ...future.startTime <- base::Sys.time() 1530s [00:52:10.328] { 1530s [00:52:10.328] { 1530s [00:52:10.328] { 1530s [00:52:10.328] { 1530s [00:52:10.328] base::local({ 1530s [00:52:10.328] has_future <- base::requireNamespace("future", 1530s [00:52:10.328] quietly = TRUE) 1530s [00:52:10.328] if (has_future) { 1530s [00:52:10.328] ns <- base::getNamespace("future") 1530s [00:52:10.328] version <- ns[[".package"]][["version"]] 1530s [00:52:10.328] if (is.null(version)) 1530s [00:52:10.328] version <- utils::packageVersion("future") 1530s [00:52:10.328] } 1530s [00:52:10.328] else { 1530s [00:52:10.328] version <- NULL 1530s [00:52:10.328] } 1530s [00:52:10.328] if (!has_future || version < "1.8.0") { 1530s [00:52:10.328] info <- base::c(r_version = base::gsub("R version ", 1530s [00:52:10.328] "", base::R.version$version.string), 1530s [00:52:10.328] platform = base::sprintf("%s (%s-bit)", 1530s [00:52:10.328] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1530s [00:52:10.328] os = base::paste(base::Sys.info()[base::c("sysname", 1530s [00:52:10.328] "release", "version")], collapse = " "), 1530s [00:52:10.328] hostname = base::Sys.info()[["nodename"]]) 1530s [00:52:10.328] info <- base::sprintf("%s: %s", base::names(info), 1530s [00:52:10.328] info) 1530s [00:52:10.328] info <- base::paste(info, collapse = "; ") 1530s [00:52:10.328] if (!has_future) { 1530s [00:52:10.328] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1530s [00:52:10.328] info) 1530s [00:52:10.328] } 1530s [00:52:10.328] else { 1530s [00:52:10.328] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1530s [00:52:10.328] info, version) 1530s [00:52:10.328] } 1530s [00:52:10.328] base::stop(msg) 1530s [00:52:10.328] } 1530s [00:52:10.328] }) 1530s [00:52:10.328] } 1530s [00:52:10.328] base::local({ 1530s [00:52:10.328] for (pkg in "stats") { 1530s [00:52:10.328] base::loadNamespace(pkg) 1530s [00:52:10.328] base::library(pkg, character.only = TRUE) 1530s [00:52:10.328] } 1530s [00:52:10.328] }) 1530s [00:52:10.328] } 1530s [00:52:10.328] options(future.plan = NULL) 1530s [00:52:10.328] Sys.unsetenv("R_FUTURE_PLAN") 1530s [00:52:10.328] future::plan("default", .cleanup = FALSE, .init = FALSE) 1530s [00:52:10.328] } 1530s [00:52:10.328] ...future.workdir <- getwd() 1530s [00:52:10.328] } 1530s [00:52:10.328] ...future.oldOptions <- base::as.list(base::.Options) 1530s [00:52:10.328] ...future.oldEnvVars <- base::Sys.getenv() 1530s [00:52:10.328] } 1530s [00:52:10.328] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1530s [00:52:10.328] future.globals.maxSize = Inf, future.globals.method = NULL, 1530s [00:52:10.328] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1530s [00:52:10.328] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1530s [00:52:10.328] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1530s [00:52:10.328] future.stdout.windows.reencode = NULL, width = 80L) 1530s [00:52:10.328] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1530s [00:52:10.328] base::names(...future.oldOptions)) 1530s [00:52:10.328] } 1530s [00:52:10.328] if (FALSE) { 1530s [00:52:10.328] } 1530s [00:52:10.328] else { 1530s [00:52:10.328] if (TRUE) { 1530s [00:52:10.328] ...future.stdout <- base::rawConnection(base::raw(0L), 1530s [00:52:10.328] open = "w") 1530s [00:52:10.328] } 1530s [00:52:10.328] else { 1530s [00:52:10.328] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1530s [00:52:10.328] windows = "NUL", "/dev/null"), open = "w") 1530s [00:52:10.328] } 1530s [00:52:10.328] base::sink(...future.stdout, type = "output", split = FALSE) 1530s [00:52:10.328] base::on.exit(if (!base::is.null(...future.stdout)) { 1530s [00:52:10.328] base::sink(type = "output", split = FALSE) 1530s [00:52:10.328] base::close(...future.stdout) 1530s [00:52:10.328] }, add = TRUE) 1530s [00:52:10.328] } 1530s [00:52:10.328] ...future.frame <- base::sys.nframe() 1530s [00:52:10.328] ...future.conditions <- base::list() 1530s [00:52:10.328] ...future.rng <- base::globalenv()$.Random.seed 1530s [00:52:10.328] if (FALSE) { 1530s [00:52:10.328] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1530s [00:52:10.328] "...future.value", "...future.globalenv.names", ".Random.seed") 1530s [00:52:10.328] } 1530s [00:52:10.328] ...future.result <- base::tryCatch({ 1530s [00:52:10.328] base::withCallingHandlers({ 1530s [00:52:10.328] ...future.value <- base::withVisible(base::local({ 1530s [00:52:10.328] do.call(function(...) { 1530s [00:52:10.328] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1530s [00:52:10.328] if (!identical(...future.globals.maxSize.org, 1530s [00:52:10.328] ...future.globals.maxSize)) { 1530s [00:52:10.328] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1530s [00:52:10.328] on.exit(options(oopts), add = TRUE) 1530s [00:52:10.328] } 1530s [00:52:10.328] { 1530s [00:52:10.328] lapply(seq_along(...future.elements_ii), 1530s [00:52:10.328] FUN = function(jj) { 1530s [00:52:10.328] ...future.X_jj <- ...future.elements_ii[[jj]] 1530s [00:52:10.328] ...future.FUN(...future.X_jj, ...) 1530s [00:52:10.328] }) 1530s [00:52:10.328] } 1530s [00:52:10.328] }, args = future.call.arguments) 1530s [00:52:10.328] })) 1530s [00:52:10.328] future::FutureResult(value = ...future.value$value, 1530s [00:52:10.328] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1530s [00:52:10.328] ...future.rng), globalenv = if (FALSE) 1530s [00:52:10.328] list(added = base::setdiff(base::names(base::.GlobalEnv), 1530s [00:52:10.328] ...future.globalenv.names)) 1530s [00:52:10.328] else NULL, started = ...future.startTime, version = "1.8") 1530s [00:52:10.328] }, condition = base::local({ 1530s [00:52:10.328] c <- base::c 1530s [00:52:10.328] inherits <- base::inherits 1530s [00:52:10.328] invokeRestart <- base::invokeRestart 1530s [00:52:10.328] length <- base::length 1530s [00:52:10.328] list <- base::list 1530s [00:52:10.328] seq.int <- base::seq.int 1530s [00:52:10.328] signalCondition <- base::signalCondition 1530s [00:52:10.328] sys.calls <- base::sys.calls 1530s [00:52:10.328] `[[` <- base::`[[` 1530s [00:52:10.328] `+` <- base::`+` 1530s [00:52:10.328] `<<-` <- base::`<<-` 1530s [00:52:10.328] sysCalls <- function(calls = sys.calls(), from = 1L) { 1530s [00:52:10.328] calls[seq.int(from = from + 12L, to = length(calls) - 1530s [00:52:10.328] 3L)] 1530s [00:52:10.328] } 1530s [00:52:10.328] function(cond) { 1530s [00:52:10.328] is_error <- inherits(cond, "error") 1530s [00:52:10.328] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1530s [00:52:10.328] NULL) 1530s [00:52:10.328] if (is_error) { 1530s [00:52:10.328] sessionInformation <- function() { 1530s [00:52:10.328] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1530s [00:52:10.328] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1530s [00:52:10.328] search = base::search(), system = base::Sys.info()) 1530s [00:52:10.328] } 1530s [00:52:10.328] ...future.conditions[[length(...future.conditions) + 1530s [00:52:10.328] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1530s [00:52:10.328] cond$call), session = sessionInformation(), 1530s [00:52:10.328] timestamp = base::Sys.time(), signaled = 0L) 1530s [00:52:10.328] signalCondition(cond) 1530s [00:52:10.328] } 1530s [00:52:10.328] else if (!ignore && TRUE && inherits(cond, c("condition", 1530s [00:52:10.328] "immediateCondition"))) { 1530s [00:52:10.328] signal <- TRUE && inherits(cond, "immediateCondition") 1530s [00:52:10.328] ...future.conditions[[length(...future.conditions) + 1530s [00:52:10.328] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1530s [00:52:10.328] if (TRUE && !signal) { 1530s [00:52:10.328] muffleCondition <- function (cond, pattern = "^muffle") 1530s [00:52:10.328] { 1530s [00:52:10.328] inherits <- base::inherits 1530s [00:52:10.328] invokeRestart <- base::invokeRestart 1530s [00:52:10.328] is.null <- base::is.null 1530s [00:52:10.328] muffled <- FALSE 1530s [00:52:10.328] if (inherits(cond, "message")) { 1530s [00:52:10.328] muffled <- grepl(pattern, "muffleMessage") 1530s [00:52:10.328] if (muffled) 1530s [00:52:10.328] invokeRestart("muffleMessage") 1530s [00:52:10.328] } 1530s [00:52:10.328] else if (inherits(cond, "warning")) { 1530s [00:52:10.328] muffled <- grepl(pattern, "muffleWarning") 1530s [00:52:10.328] if (muffled) 1530s [00:52:10.328] invokeRestart("muffleWarning") 1530s [00:52:10.328] } 1530s [00:52:10.328] else if (inherits(cond, "condition")) { 1530s [00:52:10.328] if (!is.null(pattern)) { 1530s [00:52:10.328] computeRestarts <- base::computeRestarts 1530s [00:52:10.328] grepl <- base::grepl 1530s [00:52:10.328] restarts <- computeRestarts(cond) 1530s [00:52:10.328] for (restart in restarts) { 1530s [00:52:10.328] name <- restart$name 1530s [00:52:10.328] if (is.null(name)) 1530s [00:52:10.328] next 1530s [00:52:10.328] if (!grepl(pattern, name)) 1530s [00:52:10.328] next 1530s [00:52:10.328] invokeRestart(restart) 1530s [00:52:10.328] muffled <- TRUE 1530s [00:52:10.328] break 1530s [00:52:10.328] } 1530s [00:52:10.328] } 1530s [00:52:10.328] } 1530s [00:52:10.328] invisible(muffled) 1530s [00:52:10.328] } 1530s [00:52:10.328] muffleCondition(cond, pattern = "^muffle") 1530s [00:52:10.328] } 1530s [00:52:10.328] } 1530s [00:52:10.328] else { 1530s [00:52:10.328] if (TRUE) { 1530s [00:52:10.328] muffleCondition <- function (cond, pattern = "^muffle") 1530s [00:52:10.328] { 1530s [00:52:10.328] inherits <- base::inherits 1530s [00:52:10.328] invokeRestart <- base::invokeRestart 1530s [00:52:10.328] is.null <- base::is.null 1530s [00:52:10.328] muffled <- FALSE 1530s [00:52:10.328] if (inherits(cond, "message")) { 1530s [00:52:10.328] muffled <- grepl(pattern, "muffleMessage") 1530s [00:52:10.328] if (muffled) 1530s [00:52:10.328] invokeRestart("muffleMessage") 1530s [00:52:10.328] } 1530s [00:52:10.328] else if (inherits(cond, "warning")) { 1530s [00:52:10.328] muffled <- grepl(pattern, "muffleWarning") 1530s [00:52:10.328] if (muffled) 1530s [00:52:10.328] invokeRestart("muffleWarning") 1530s [00:52:10.328] } 1530s [00:52:10.328] else if (inherits(cond, "condition")) { 1530s [00:52:10.328] if (!is.null(pattern)) { 1530s [00:52:10.328] computeRestarts <- base::computeRestarts 1530s [00:52:10.328] grepl <- base::grepl 1530s [00:52:10.328] restarts <- computeRestarts(cond) 1530s [00:52:10.328] for (restart in restarts) { 1530s [00:52:10.328] name <- restart$name 1530s [00:52:10.328] if (is.null(name)) 1530s [00:52:10.328] next 1530s [00:52:10.328] if (!grepl(pattern, name)) 1530s [00:52:10.328] next 1530s [00:52:10.328] invokeRestart(restart) 1530s [00:52:10.328] muffled <- TRUE 1530s [00:52:10.328] break 1530s [00:52:10.328] } 1530s [00:52:10.328] } 1530s [00:52:10.328] } 1530s [00:52:10.328] invisible(muffled) 1530s [00:52:10.328] } 1530s [00:52:10.328] muffleCondition(cond, pattern = "^muffle") 1530s [00:52:10.328] } 1530s [00:52:10.328] } 1530s [00:52:10.328] } 1530s [00:52:10.328] })) 1530s [00:52:10.328] }, error = function(ex) { 1530s [00:52:10.328] base::structure(base::list(value = NULL, visible = NULL, 1530s [00:52:10.328] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1530s [00:52:10.328] ...future.rng), started = ...future.startTime, 1530s [00:52:10.328] finished = Sys.time(), session_uuid = NA_character_, 1530s [00:52:10.328] version = "1.8"), class = "FutureResult") 1530s [00:52:10.328] }, finally = { 1530s [00:52:10.328] if (!identical(...future.workdir, getwd())) 1530s [00:52:10.328] setwd(...future.workdir) 1530s [00:52:10.328] { 1530s [00:52:10.328] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1530s [00:52:10.328] ...future.oldOptions$nwarnings <- NULL 1530s [00:52:10.328] } 1530s [00:52:10.328] base::options(...future.oldOptions) 1530s [00:52:10.328] if (.Platform$OS.type == "windows") { 1530s [00:52:10.328] old_names <- names(...future.oldEnvVars) 1530s [00:52:10.328] envs <- base::Sys.getenv() 1530s [00:52:10.328] names <- names(envs) 1530s [00:52:10.328] common <- intersect(names, old_names) 1530s [00:52:10.328] added <- setdiff(names, old_names) 1530s [00:52:10.328] removed <- setdiff(old_names, names) 1530s [00:52:10.328] changed <- common[...future.oldEnvVars[common] != 1530s [00:52:10.328] envs[common]] 1530s [00:52:10.328] NAMES <- toupper(changed) 1530s [00:52:10.328] args <- list() 1530s [00:52:10.328] for (kk in seq_along(NAMES)) { 1530s [00:52:10.328] name <- changed[[kk]] 1530s [00:52:10.328] NAME <- NAMES[[kk]] 1530s [00:52:10.328] if (name != NAME && is.element(NAME, old_names)) 1530s [00:52:10.328] next 1530s [00:52:10.328] args[[name]] <- ...future.oldEnvVars[[name]] 1530s [00:52:10.328] } 1530s [00:52:10.328] NAMES <- toupper(added) 1530s [00:52:10.328] for (kk in seq_along(NAMES)) { 1530s [00:52:10.328] name <- added[[kk]] 1530s [00:52:10.328] NAME <- NAMES[[kk]] 1530s [00:52:10.328] if (name != NAME && is.element(NAME, old_names)) 1530s [00:52:10.328] next 1530s [00:52:10.328] args[[name]] <- "" 1530s [00:52:10.328] } 1530s [00:52:10.328] NAMES <- toupper(removed) 1530s [00:52:10.328] for (kk in seq_along(NAMES)) { 1530s [00:52:10.328] name <- removed[[kk]] 1530s [00:52:10.328] NAME <- NAMES[[kk]] 1530s [00:52:10.328] if (name != NAME && is.element(NAME, old_names)) 1530s [00:52:10.328] next 1530s [00:52:10.328] args[[name]] <- ...future.oldEnvVars[[name]] 1530s [00:52:10.328] } 1530s [00:52:10.328] if (length(args) > 0) 1530s [00:52:10.328] base::do.call(base::Sys.setenv, args = args) 1530s [00:52:10.328] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1530s [00:52:10.328] } 1530s [00:52:10.328] else { 1530s [00:52:10.328] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1530s [00:52:10.328] } 1530s [00:52:10.328] { 1530s [00:52:10.328] if (base::length(...future.futureOptionsAdded) > 1530s [00:52:10.328] 0L) { 1530s [00:52:10.328] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1530s [00:52:10.328] base::names(opts) <- ...future.futureOptionsAdded 1530s [00:52:10.328] base::options(opts) 1530s [00:52:10.328] } 1530s [00:52:10.328] { 1530s [00:52:10.328] { 1530s [00:52:10.328] base::assign(".Random.seed", c(10407L, 1726940932L, 1530s [00:52:10.328] -2133974675L, 912538111L, -666439689L, -800972927L, 1530s [00:52:10.328] -965361991L), envir = base::globalenv(), 1530s [00:52:10.328] inherits = FALSE) 1530s [00:52:10.328] NULL 1530s [00:52:10.328] } 1530s [00:52:10.328] options(future.plan = NULL) 1530s [00:52:10.328] if (is.na(NA_character_)) 1530s [00:52:10.328] Sys.unsetenv("R_FUTURE_PLAN") 1530s [00:52:10.328] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1530s [00:52:10.328] future::plan(list(function (..., workers = availableCores(), 1530s [00:52:10.328] lazy = FALSE, rscript_libs = .libPaths(), 1530s [00:52:10.328] envir = parent.frame()) 1530s [00:52:10.328] { 1530s [00:52:10.328] if (is.function(workers)) 1530s [00:52:10.328] workers <- workers() 1530s [00:52:10.328] workers <- structure(as.integer(workers), 1530s [00:52:10.328] class = class(workers)) 1530s [00:52:10.328] stop_if_not(length(workers) == 1, is.finite(workers), 1530s [00:52:10.328] workers >= 1) 1530s [00:52:10.328] if (workers == 1L && !inherits(workers, "AsIs")) { 1530s [00:52:10.328] return(sequential(..., lazy = TRUE, envir = envir)) 1530s [00:52:10.328] } 1530s [00:52:10.328] future <- MultisessionFuture(..., workers = workers, 1530s [00:52:10.328] lazy = lazy, rscript_libs = rscript_libs, 1530s [00:52:10.328] envir = envir) 1530s [00:52:10.328] if (!future$lazy) 1530s [00:52:10.328] future <- run(future) 1530s [00:52:10.328] invisible(future) 1530s [00:52:10.328] }), .cleanup = FALSE, .init = FALSE) 1530s [00:52:10.328] } 1530s [00:52:10.328] } 1530s [00:52:10.328] } 1530s [00:52:10.328] }) 1530s [00:52:10.328] if (TRUE) { 1530s [00:52:10.328] base::sink(type = "output", split = FALSE) 1530s [00:52:10.328] if (TRUE) { 1530s [00:52:10.328] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1530s [00:52:10.328] } 1530s [00:52:10.328] else { 1530s [00:52:10.328] ...future.result["stdout"] <- base::list(NULL) 1530s [00:52:10.328] } 1530s [00:52:10.328] base::close(...future.stdout) 1530s [00:52:10.328] ...future.stdout <- NULL 1530s [00:52:10.328] } 1530s [00:52:10.328] ...future.result$conditions <- ...future.conditions 1530s [00:52:10.328] ...future.result$finished <- base::Sys.time() 1530s [00:52:10.328] ...future.result 1530s [00:52:10.328] } 1530s [00:52:10.336] assign_globals() ... 1530s [00:52:10.336] List of 5 1530s [00:52:10.336] $ future.call.arguments : list() 1530s [00:52:10.336] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1530s [00:52:10.336] $ ...future.FUN :function (x, ...) 1530s [00:52:10.336] $ ...future.elements_ii :List of 2 1530s [00:52:10.336] ..$ : num [1:4] 1 3 1 7 1530s [00:52:10.336] ..$ : num [1:4] 2 4 6 8 1530s [00:52:10.336] $ ...future.seeds_ii : NULL 1530s [00:52:10.336] $ ...future.globals.maxSize: num Inf 1530s [00:52:10.336] - attr(*, "resolved")= logi FALSE 1530s [00:52:10.336] - attr(*, "total_size")= num NA 1530s [00:52:10.336] - attr(*, "where")=List of 5 1530s [00:52:10.336] ..$ future.call.arguments : 1530s [00:52:10.336] ..$ ...future.FUN : 1530s [00:52:10.336] ..$ ...future.elements_ii : 1530s [00:52:10.336] ..$ ...future.seeds_ii : 1530s [00:52:10.336] ..$ ...future.globals.maxSize: 1530s [00:52:10.336] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1530s [00:52:10.336] - attr(*, "already-done")= logi TRUE 1530s [00:52:10.342] - copied ‘future.call.arguments’ to environment 1530s [00:52:10.342] - copied ‘...future.FUN’ to environment 1530s [00:52:10.343] - copied ‘...future.elements_ii’ to environment 1530s [00:52:10.343] - copied ‘...future.seeds_ii’ to environment 1530s [00:52:10.343] - copied ‘...future.globals.maxSize’ to environment 1530s [00:52:10.343] assign_globals() ... done 1530s [00:52:10.344] plan(): Setting new future strategy stack: 1530s [00:52:10.344] List of future strategies: 1530s [00:52:10.344] 1. sequential: 1530s [00:52:10.344] - args: function (..., envir = parent.frame()) 1530s [00:52:10.344] - tweaked: FALSE 1530s [00:52:10.344] - call: NULL 1530s [00:52:10.345] plan(): nbrOfWorkers() = 1 1530s [00:52:10.346] plan(): Setting new future strategy stack: 1530s [00:52:10.346] List of future strategies: 1530s [00:52:10.346] 1. multisession: 1530s [00:52:10.346] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1530s [00:52:10.346] - tweaked: FALSE 1530s [00:52:10.346] - call: plan(strategy) 1530s [00:52:10.352] plan(): nbrOfWorkers() = 1 1530s [00:52:10.352] SequentialFuture started (and completed) 1530s [00:52:10.353] - Launch lazy future ... done 1530s [00:52:10.353] run() for ‘SequentialFuture’ ... done 1530s [00:52:10.353] Created future: 1530s [00:52:10.353] SequentialFuture: 1530s [00:52:10.353] Label: ‘future_apply-1’ 1530s [00:52:10.353] Expression: 1530s [00:52:10.353] { 1530s [00:52:10.353] do.call(function(...) { 1530s [00:52:10.353] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1530s [00:52:10.353] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1530s [00:52:10.353] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1530s [00:52:10.353] on.exit(options(oopts), add = TRUE) 1530s [00:52:10.353] } 1530s [00:52:10.353] { 1530s [00:52:10.353] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1530s [00:52:10.353] ...future.X_jj <- ...future.elements_ii[[jj]] 1530s [00:52:10.353] ...future.FUN(...future.X_jj, ...) 1530s [00:52:10.353] }) 1530s [00:52:10.353] } 1530s [00:52:10.353] }, args = future.call.arguments) 1530s [00:52:10.353] } 1530s [00:52:10.353] Lazy evaluation: FALSE 1530s [00:52:10.353] Asynchronous evaluation: FALSE 1530s [00:52:10.353] Local evaluation: TRUE 1530s [00:52:10.353] Environment: R_GlobalEnv 1530s [00:52:10.353] Capture standard output: TRUE 1530s [00:52:10.353] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1530s [00:52:10.353] Globals: 5 objects totaling 1.43 KiB (DotDotDotList ‘future.call.arguments’ of 0 bytes, function ‘...future.FUN’ of 1.22 KiB, list ‘...future.elements_ii’ of 160 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1530s [00:52:10.353] Packages: 1 packages (‘stats’) 1530s [00:52:10.353] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1530s [00:52:10.353] Resolved: TRUE 1530s [00:52:10.353] Value: 1.14 KiB of class ‘list’ 1530s [00:52:10.353] Early signaling: FALSE 1530s [00:52:10.353] Owner process: 856348fc-72a5-ec0b-63b7-1a3640a93e42 1530s [00:52:10.353] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1530s [00:52:10.356] Chunk #1 of 1 ... DONE 1530s [00:52:10.357] Launching 1 futures (chunks) ... DONE 1530s [00:52:10.357] Resolving 1 futures (chunks) ... 1530s [00:52:10.357] resolve() on list ... 1530s [00:52:10.357] recursive: 0 1530s [00:52:10.357] length: 1 1530s [00:52:10.357] 1530s [00:52:10.358] resolved() for ‘SequentialFuture’ ... 1530s [00:52:10.358] - state: ‘finished’ 1530s [00:52:10.358] - run: TRUE 1530s [00:52:10.358] - result: ‘FutureResult’ 1530s [00:52:10.358] resolved() for ‘SequentialFuture’ ... done 1530s [00:52:10.358] Future #1 1530s [00:52:10.359] signalConditionsASAP(SequentialFuture, pos=1) ... 1530s [00:52:10.359] - nx: 1 1530s [00:52:10.359] - relay: TRUE 1530s [00:52:10.359] - stdout: TRUE 1530s [00:52:10.359] - signal: TRUE 1530s [00:52:10.359] - resignal: FALSE 1530s [00:52:10.359] - force: TRUE 1530s [00:52:10.359] - relayed: [n=1] FALSE 1530s [00:52:10.360] - queued futures: [n=1] FALSE 1530s [00:52:10.360] - until=1 1530s [00:52:10.360] - relaying element #1 1530s [00:52:10.360] - relayed: [n=1] TRUE 1530s [00:52:10.360] - queued futures: [n=1] TRUE 1530s [00:52:10.361] signalConditionsASAP(SequentialFuture, pos=1) ... done 1530s [00:52:10.361] length: 0 (resolved future 1) 1530s [00:52:10.361] Relaying remaining futures 1530s [00:52:10.361] signalConditionsASAP(NULL, pos=0) ... 1530s [00:52:10.361] - nx: 1 1530s [00:52:10.361] - relay: TRUE 1530s [00:52:10.361] - stdout: TRUE 1530s [00:52:10.362] - signal: TRUE 1530s [00:52:10.362] - resignal: FALSE 1530s [00:52:10.362] - force: TRUE 1530s [00:52:10.362] - relayed: [n=1] TRUE 1530s [00:52:10.362] - queued futures: [n=1] TRUE 1530s - flush all 1530s [00:52:10.363] - relayed: [n=1] TRUE 1530s [00:52:10.363] - queued futures: [n=1] TRUE 1530s [00:52:10.363] signalConditionsASAP(NULL, pos=0) ... done 1530s [00:52:10.363] resolve() on list ... DONE 1530s [00:52:10.363] - Number of value chunks collected: 1 1530s [00:52:10.363] Resolving 1 futures (chunks) ... DONE 1530s [00:52:10.364] Reducing values from 1 chunks ... 1530s [00:52:10.364] - Number of values collected after concatenation: 2 1530s [00:52:10.364] - Number of values expected: 2 1530s [00:52:10.364] Reducing values from 1 chunks ... DONE 1530s [00:52:10.364] future_lapply() ... DONE 1530s [,1] [,2] 1530s 0% 1 2.0 1530s 25% 1 3.5 1530s 50% 2 5.0 1530s 75% 4 6.5 1530s 100% 7 8.0 1530s [00:52:10.365] getGlobalsAndPackagesXApply() ... 1530s [00:52:10.365] - future.globals: TRUE 1530s [00:52:10.366] getGlobalsAndPackages() ... 1530s [00:52:10.366] Searching for globals... 1530s [00:52:10.367] - globals found: [1] ‘FUN’ 1530s [00:52:10.367] Searching for globals ... DONE 1530s [00:52:10.367] Resolving globals: FALSE 1530s [00:52:10.368] The total size of the 1 globals is 848 bytes (848 bytes) 1530s [00:52:10.368] The total size of the 1 globals exported for future expression (‘FUN(X = structure(c(3, 3, 3, 3, 3, 3, 3, 3, 4, 3, 2, 1, 2, 3,; 4, 5), dim = c(8L, 2L), dimnames = list(row = NULL, col = c("x1",; "x2"))))’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1530s [00:52:10.368] - globals: [1] ‘FUN’ 1530s [00:52:10.368] 1530s [00:52:10.368] getGlobalsAndPackages() ... DONE 1530s [00:52:10.369] - globals found/used: [n=1] ‘FUN’ 1530s [00:52:10.369] - needed namespaces: [n=0] 1530s [00:52:10.369] Finding globals ... DONE 1530s [00:52:10.369] - use_args: TRUE 1530s [00:52:10.369] - Getting '...' globals ... 1530s [00:52:10.369] resolve() on list ... 1530s [00:52:10.370] recursive: 0 1530s [00:52:10.370] length: 1 1530s [00:52:10.370] elements: ‘...’ 1530s [00:52:10.370] length: 0 (resolved future 1) 1530s [00:52:10.370] resolve() on list ... DONE 1530s [00:52:10.371] - '...' content: [n=0] 1530s [00:52:10.371] List of 1 1530s [00:52:10.371] $ ...: list() 1530s [00:52:10.371] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1530s [00:52:10.371] - attr(*, "where")=List of 1 1530s [00:52:10.371] ..$ ...: 1530s [00:52:10.371] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1530s [00:52:10.371] - attr(*, "resolved")= logi TRUE 1530s [00:52:10.371] - attr(*, "total_size")= num NA 1530s [00:52:10.374] - Getting '...' globals ... DONE 1530s [00:52:10.375] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1530s [00:52:10.375] List of 2 1530s [00:52:10.375] $ ...future.FUN:function (x) 1530s [00:52:10.375] $ ... : list() 1530s [00:52:10.375] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1530s [00:52:10.375] - attr(*, "where")=List of 2 1530s [00:52:10.375] ..$ ...future.FUN: 1530s [00:52:10.375] ..$ ... : 1530s [00:52:10.375] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1530s [00:52:10.375] - attr(*, "resolved")= logi FALSE 1530s [00:52:10.375] - attr(*, "total_size")= num 848 1530s [00:52:10.378] Packages to be attached in all futures: [n=0] 1530s [00:52:10.378] getGlobalsAndPackagesXApply() ... DONE 1530s [00:52:10.382] future_lapply() ... 1530s [00:52:10.386] Number of chunks: 1 1530s [00:52:10.386] getGlobalsAndPackagesXApply() ... 1530s [00:52:10.386] - future.globals: with names ‘list()’ 1530s [00:52:10.386] - use_args: TRUE 1530s [00:52:10.387] Globals to be used in all futures (chunks): [n=2] ‘...’, ‘...future.FUN’ 1530s [00:52:10.387] List of 2 1530s [00:52:10.387] $ ... : list() 1530s [00:52:10.387] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1530s [00:52:10.387] $ ...future.FUN:function (x) 1530s [00:52:10.387] - attr(*, "where")=List of 2 1530s [00:52:10.387] ..$ ... : 1530s [00:52:10.387] ..$ ...future.FUN: 1530s [00:52:10.387] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1530s [00:52:10.387] - attr(*, "resolved")= logi FALSE 1530s [00:52:10.387] - attr(*, "total_size")= num NA 1530s [00:52:10.394] Packages to be attached in all futures: [n=0] 1530s [00:52:10.394] getGlobalsAndPackagesXApply() ... DONE 1530s [00:52:10.394] Number of futures (= number of chunks): 1 1530s [00:52:10.395] Launching 1 futures (chunks) ... 1530s [00:52:10.395] Chunk #1 of 1 ... 1530s [00:52:10.395] - seeds: 1530s [00:52:10.395] - All globals exported: [n=5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1530s [00:52:10.396] getGlobalsAndPackages() ... 1530s [00:52:10.396] - globals passed as-is: [5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1530s [00:52:10.396] Resolving globals: FALSE 1530s [00:52:10.396] Tweak future expression to call with '...' arguments ... 1530s [00:52:10.396] { 1530s [00:52:10.396] do.call(function(...) { 1530s [00:52:10.396] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1530s [00:52:10.396] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1530s [00:52:10.396] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1530s [00:52:10.396] on.exit(options(oopts), add = TRUE) 1530s [00:52:10.396] } 1530s [00:52:10.396] { 1530s [00:52:10.396] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1530s [00:52:10.396] ...future.X_jj <- ...future.elements_ii[[jj]] 1530s [00:52:10.396] ...future.FUN(...future.X_jj, ...) 1530s [00:52:10.396] }) 1530s [00:52:10.396] } 1530s [00:52:10.396] }, args = future.call.arguments) 1530s [00:52:10.396] } 1530s [00:52:10.397] Tweak future expression to call with '...' arguments ... DONE 1530s [00:52:10.397] - globals: [5] ‘future.call.arguments’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1530s [00:52:10.398] 1530s [00:52:10.398] getGlobalsAndPackages() ... DONE 1530s [00:52:10.398] run() for ‘Future’ ... 1530s [00:52:10.398] - state: ‘created’ 1530s [00:52:10.399] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1530s [00:52:10.402] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1530s [00:52:10.402] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1530s [00:52:10.403] - Field: ‘label’ 1530s [00:52:10.403] - Field: ‘local’ 1530s [00:52:10.403] - Field: ‘owner’ 1530s [00:52:10.403] - Field: ‘envir’ 1530s [00:52:10.403] - Field: ‘packages’ 1530s [00:52:10.403] - Field: ‘gc’ 1530s [00:52:10.403] - Field: ‘conditions’ 1530s [00:52:10.404] - Field: ‘expr’ 1530s [00:52:10.404] - Field: ‘uuid’ 1530s [00:52:10.404] - Field: ‘seed’ 1530s [00:52:10.404] - Field: ‘version’ 1530s [00:52:10.404] - Field: ‘result’ 1530s [00:52:10.404] - Field: ‘asynchronous’ 1530s [00:52:10.404] - Field: ‘calls’ 1530s [00:52:10.404] - Field: ‘globals’ 1530s [00:52:10.405] - Field: ‘stdout’ 1530s [00:52:10.405] - Field: ‘earlySignal’ 1530s [00:52:10.405] - Field: ‘lazy’ 1530s [00:52:10.405] - Field: ‘state’ 1530s [00:52:10.405] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1530s [00:52:10.405] - Launch lazy future ... 1530s [00:52:10.405] Packages needed by the future expression (n = 0): 1530s [00:52:10.405] Packages needed by future strategies (n = 0): 1530s [00:52:10.406] { 1530s [00:52:10.406] { 1530s [00:52:10.406] { 1530s [00:52:10.406] ...future.startTime <- base::Sys.time() 1530s [00:52:10.406] { 1530s [00:52:10.406] { 1530s [00:52:10.406] { 1530s [00:52:10.406] base::local({ 1530s [00:52:10.406] has_future <- base::requireNamespace("future", 1530s [00:52:10.406] quietly = TRUE) 1530s [00:52:10.406] if (has_future) { 1530s [00:52:10.406] ns <- base::getNamespace("future") 1530s [00:52:10.406] version <- ns[[".package"]][["version"]] 1530s [00:52:10.406] if (is.null(version)) 1530s [00:52:10.406] version <- utils::packageVersion("future") 1530s [00:52:10.406] } 1530s [00:52:10.406] else { 1530s [00:52:10.406] version <- NULL 1530s [00:52:10.406] } 1530s [00:52:10.406] if (!has_future || version < "1.8.0") { 1530s [00:52:10.406] info <- base::c(r_version = base::gsub("R version ", 1530s [00:52:10.406] "", base::R.version$version.string), 1530s [00:52:10.406] platform = base::sprintf("%s (%s-bit)", 1530s [00:52:10.406] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1530s [00:52:10.406] os = base::paste(base::Sys.info()[base::c("sysname", 1530s [00:52:10.406] "release", "version")], collapse = " "), 1530s [00:52:10.406] hostname = base::Sys.info()[["nodename"]]) 1530s [00:52:10.406] info <- base::sprintf("%s: %s", base::names(info), 1530s [00:52:10.406] info) 1530s [00:52:10.406] info <- base::paste(info, collapse = "; ") 1530s [00:52:10.406] if (!has_future) { 1530s [00:52:10.406] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1530s [00:52:10.406] info) 1530s [00:52:10.406] } 1530s [00:52:10.406] else { 1530s [00:52:10.406] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1530s [00:52:10.406] info, version) 1530s [00:52:10.406] } 1530s [00:52:10.406] base::stop(msg) 1530s [00:52:10.406] } 1530s [00:52:10.406] }) 1530s [00:52:10.406] } 1530s [00:52:10.406] options(future.plan = NULL) 1530s [00:52:10.406] Sys.unsetenv("R_FUTURE_PLAN") 1530s [00:52:10.406] future::plan("default", .cleanup = FALSE, .init = FALSE) 1530s [00:52:10.406] } 1530s [00:52:10.406] ...future.workdir <- getwd() 1530s [00:52:10.406] } 1530s [00:52:10.406] ...future.oldOptions <- base::as.list(base::.Options) 1530s [00:52:10.406] ...future.oldEnvVars <- base::Sys.getenv() 1530s [00:52:10.406] } 1530s [00:52:10.406] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1530s [00:52:10.406] future.globals.maxSize = Inf, future.globals.method = NULL, 1530s [00:52:10.406] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1530s [00:52:10.406] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1530s [00:52:10.406] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1530s [00:52:10.406] future.stdout.windows.reencode = NULL, width = 80L) 1530s [00:52:10.406] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1530s [00:52:10.406] base::names(...future.oldOptions)) 1530s [00:52:10.406] } 1530s [00:52:10.406] if (FALSE) { 1530s [00:52:10.406] } 1530s [00:52:10.406] else { 1530s [00:52:10.406] if (TRUE) { 1530s [00:52:10.406] ...future.stdout <- base::rawConnection(base::raw(0L), 1530s [00:52:10.406] open = "w") 1530s [00:52:10.406] } 1530s [00:52:10.406] else { 1530s [00:52:10.406] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1530s [00:52:10.406] windows = "NUL", "/dev/null"), open = "w") 1530s [00:52:10.406] } 1530s [00:52:10.406] base::sink(...future.stdout, type = "output", split = FALSE) 1530s [00:52:10.406] base::on.exit(if (!base::is.null(...future.stdout)) { 1530s [00:52:10.406] base::sink(type = "output", split = FALSE) 1530s [00:52:10.406] base::close(...future.stdout) 1530s [00:52:10.406] }, add = TRUE) 1530s [00:52:10.406] } 1530s [00:52:10.406] ...future.frame <- base::sys.nframe() 1530s [00:52:10.406] ...future.conditions <- base::list() 1530s [00:52:10.406] ...future.rng <- base::globalenv()$.Random.seed 1530s [00:52:10.406] if (FALSE) { 1530s [00:52:10.406] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1530s [00:52:10.406] "...future.value", "...future.globalenv.names", ".Random.seed") 1530s [00:52:10.406] } 1530s [00:52:10.406] ...future.result <- base::tryCatch({ 1530s [00:52:10.406] base::withCallingHandlers({ 1530s [00:52:10.406] ...future.value <- base::withVisible(base::local({ 1530s [00:52:10.406] do.call(function(...) { 1530s [00:52:10.406] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1530s [00:52:10.406] if (!identical(...future.globals.maxSize.org, 1530s [00:52:10.406] ...future.globals.maxSize)) { 1530s [00:52:10.406] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1530s [00:52:10.406] on.exit(options(oopts), add = TRUE) 1530s [00:52:10.406] } 1530s [00:52:10.406] { 1530s [00:52:10.406] lapply(seq_along(...future.elements_ii), 1530s [00:52:10.406] FUN = function(jj) { 1530s [00:52:10.406] ...future.X_jj <- ...future.elements_ii[[jj]] 1530s [00:52:10.406] ...future.FUN(...future.X_jj, ...) 1530s [00:52:10.406] }) 1530s [00:52:10.406] } 1530s [00:52:10.406] }, args = future.call.arguments) 1530s [00:52:10.406] })) 1530s [00:52:10.406] future::FutureResult(value = ...future.value$value, 1530s [00:52:10.406] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1530s [00:52:10.406] ...future.rng), globalenv = if (FALSE) 1530s [00:52:10.406] list(added = base::setdiff(base::names(base::.GlobalEnv), 1530s [00:52:10.406] ...future.globalenv.names)) 1530s [00:52:10.406] else NULL, started = ...future.startTime, version = "1.8") 1530s [00:52:10.406] }, condition = base::local({ 1530s [00:52:10.406] c <- base::c 1530s [00:52:10.406] inherits <- base::inherits 1530s [00:52:10.406] invokeRestart <- base::invokeRestart 1530s [00:52:10.406] length <- base::length 1530s [00:52:10.406] list <- base::list 1530s [00:52:10.406] seq.int <- base::seq.int 1530s [00:52:10.406] signalCondition <- base::signalCondition 1530s [00:52:10.406] sys.calls <- base::sys.calls 1530s [00:52:10.406] `[[` <- base::`[[` 1530s [00:52:10.406] `+` <- base::`+` 1530s [00:52:10.406] `<<-` <- base::`<<-` 1530s [00:52:10.406] sysCalls <- function(calls = sys.calls(), from = 1L) { 1530s [00:52:10.406] calls[seq.int(from = from + 12L, to = length(calls) - 1530s [00:52:10.406] 3L)] 1530s [00:52:10.406] } 1530s [00:52:10.406] function(cond) { 1530s [00:52:10.406] is_error <- inherits(cond, "error") 1530s [00:52:10.406] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1530s [00:52:10.406] NULL) 1530s [00:52:10.406] if (is_error) { 1530s [00:52:10.406] sessionInformation <- function() { 1530s [00:52:10.406] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1530s [00:52:10.406] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1530s [00:52:10.406] search = base::search(), system = base::Sys.info()) 1530s [00:52:10.406] } 1530s [00:52:10.406] ...future.conditions[[length(...future.conditions) + 1530s [00:52:10.406] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1530s [00:52:10.406] cond$call), session = sessionInformation(), 1530s [00:52:10.406] timestamp = base::Sys.time(), signaled = 0L) 1530s [00:52:10.406] signalCondition(cond) 1530s [00:52:10.406] } 1530s [00:52:10.406] else if (!ignore && TRUE && inherits(cond, c("condition", 1530s [00:52:10.406] "immediateCondition"))) { 1530s [00:52:10.406] signal <- TRUE && inherits(cond, "immediateCondition") 1530s [00:52:10.406] ...future.conditions[[length(...future.conditions) + 1530s [00:52:10.406] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1530s [00:52:10.406] if (TRUE && !signal) { 1530s [00:52:10.406] muffleCondition <- function (cond, pattern = "^muffle") 1530s [00:52:10.406] { 1530s [00:52:10.406] inherits <- base::inherits 1530s [00:52:10.406] invokeRestart <- base::invokeRestart 1530s [00:52:10.406] is.null <- base::is.null 1530s [00:52:10.406] muffled <- FALSE 1530s [00:52:10.406] if (inherits(cond, "message")) { 1530s [00:52:10.406] muffled <- grepl(pattern, "muffleMessage") 1530s [00:52:10.406] if (muffled) 1530s [00:52:10.406] invokeRestart("muffleMessage") 1530s [00:52:10.406] } 1530s [00:52:10.406] else if (inherits(cond, "warning")) { 1530s [00:52:10.406] muffled <- grepl(pattern, "muffleWarning") 1530s [00:52:10.406] if (muffled) 1530s [00:52:10.406] invokeRestart("muffleWarning") 1530s [00:52:10.406] } 1530s [00:52:10.406] else if (inherits(cond, "condition")) { 1530s [00:52:10.406] if (!is.null(pattern)) { 1530s [00:52:10.406] computeRestarts <- base::computeRestarts 1530s [00:52:10.406] grepl <- base::grepl 1530s [00:52:10.406] restarts <- computeRestarts(cond) 1530s [00:52:10.406] for (restart in restarts) { 1530s [00:52:10.406] name <- restart$name 1530s [00:52:10.406] if (is.null(name)) 1530s [00:52:10.406] next 1530s [00:52:10.406] if (!grepl(pattern, name)) 1530s [00:52:10.406] next 1530s [00:52:10.406] invokeRestart(restart) 1530s [00:52:10.406] muffled <- TRUE 1530s [00:52:10.406] break 1530s [00:52:10.406] } 1530s [00:52:10.406] } 1530s [00:52:10.406] } 1530s [00:52:10.406] invisible(muffled) 1530s [00:52:10.406] } 1530s [00:52:10.406] muffleCondition(cond, pattern = "^muffle") 1530s [00:52:10.406] } 1530s [00:52:10.406] } 1530s [00:52:10.406] else { 1530s [00:52:10.406] if (TRUE) { 1530s [00:52:10.406] muffleCondition <- function (cond, pattern = "^muffle") 1530s [00:52:10.406] { 1530s [00:52:10.406] inherits <- base::inherits 1530s [00:52:10.406] invokeRestart <- base::invokeRestart 1530s [00:52:10.406] is.null <- base::is.null 1530s [00:52:10.406] muffled <- FALSE 1530s [00:52:10.406] if (inherits(cond, "message")) { 1530s [00:52:10.406] muffled <- grepl(pattern, "muffleMessage") 1530s [00:52:10.406] if (muffled) 1530s [00:52:10.406] invokeRestart("muffleMessage") 1530s [00:52:10.406] } 1530s [00:52:10.406] else if (inherits(cond, "warning")) { 1530s [00:52:10.406] muffled <- grepl(pattern, "muffleWarning") 1530s [00:52:10.406] if (muffled) 1530s [00:52:10.406] invokeRestart("muffleWarning") 1530s [00:52:10.406] } 1530s [00:52:10.406] else if (inherits(cond, "condition")) { 1530s [00:52:10.406] if (!is.null(pattern)) { 1530s [00:52:10.406] computeRestarts <- base::computeRestarts 1530s [00:52:10.406] grepl <- base::grepl 1530s [00:52:10.406] restarts <- computeRestarts(cond) 1530s [00:52:10.406] for (restart in restarts) { 1530s [00:52:10.406] name <- restart$name 1530s [00:52:10.406] if (is.null(name)) 1530s [00:52:10.406] next 1530s [00:52:10.406] if (!grepl(pattern, name)) 1530s [00:52:10.406] next 1530s [00:52:10.406] invokeRestart(restart) 1530s [00:52:10.406] muffled <- TRUE 1530s [00:52:10.406] break 1530s [00:52:10.406] } 1530s [00:52:10.406] } 1530s [00:52:10.406] } 1530s [00:52:10.406] invisible(muffled) 1530s [00:52:10.406] } 1530s [00:52:10.406] muffleCondition(cond, pattern = "^muffle") 1530s [00:52:10.406] } 1530s [00:52:10.406] } 1530s [00:52:10.406] } 1530s [00:52:10.406] })) 1530s [00:52:10.406] }, error = function(ex) { 1530s [00:52:10.406] base::structure(base::list(value = NULL, visible = NULL, 1530s [00:52:10.406] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1530s [00:52:10.406] ...future.rng), started = ...future.startTime, 1530s [00:52:10.406] finished = Sys.time(), session_uuid = NA_character_, 1530s [00:52:10.406] version = "1.8"), class = "FutureResult") 1530s [00:52:10.406] }, finally = { 1530s [00:52:10.406] if (!identical(...future.workdir, getwd())) 1530s [00:52:10.406] setwd(...future.workdir) 1530s [00:52:10.406] { 1530s [00:52:10.406] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1530s [00:52:10.406] ...future.oldOptions$nwarnings <- NULL 1530s [00:52:10.406] } 1530s [00:52:10.406] base::options(...future.oldOptions) 1530s [00:52:10.406] if (.Platform$OS.type == "windows") { 1530s [00:52:10.406] old_names <- names(...future.oldEnvVars) 1530s [00:52:10.406] envs <- base::Sys.getenv() 1530s [00:52:10.406] names <- names(envs) 1530s [00:52:10.406] common <- intersect(names, old_names) 1530s [00:52:10.406] added <- setdiff(names, old_names) 1530s [00:52:10.406] removed <- setdiff(old_names, names) 1530s [00:52:10.406] changed <- common[...future.oldEnvVars[common] != 1530s [00:52:10.406] envs[common]] 1530s [00:52:10.406] NAMES <- toupper(changed) 1530s [00:52:10.406] args <- list() 1530s [00:52:10.406] for (kk in seq_along(NAMES)) { 1530s [00:52:10.406] name <- changed[[kk]] 1530s [00:52:10.406] NAME <- NAMES[[kk]] 1530s [00:52:10.406] if (name != NAME && is.element(NAME, old_names)) 1530s [00:52:10.406] next 1530s [00:52:10.406] args[[name]] <- ...future.oldEnvVars[[name]] 1530s [00:52:10.406] } 1530s [00:52:10.406] NAMES <- toupper(added) 1530s [00:52:10.406] for (kk in seq_along(NAMES)) { 1530s [00:52:10.406] name <- added[[kk]] 1530s [00:52:10.406] NAME <- NAMES[[kk]] 1530s [00:52:10.406] if (name != NAME && is.element(NAME, old_names)) 1530s [00:52:10.406] next 1530s [00:52:10.406] args[[name]] <- "" 1530s [00:52:10.406] } 1530s [00:52:10.406] NAMES <- toupper(removed) 1530s [00:52:10.406] for (kk in seq_along(NAMES)) { 1530s [00:52:10.406] name <- removed[[kk]] 1530s [00:52:10.406] NAME <- NAMES[[kk]] 1530s [00:52:10.406] if (name != NAME && is.element(NAME, old_names)) 1530s [00:52:10.406] next 1530s [00:52:10.406] args[[name]] <- ...future.oldEnvVars[[name]] 1530s [00:52:10.406] } 1530s [00:52:10.406] if (length(args) > 0) 1530s [00:52:10.406] base::do.call(base::Sys.setenv, args = args) 1530s [00:52:10.406] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1530s [00:52:10.406] } 1530s [00:52:10.406] else { 1530s [00:52:10.406] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1530s [00:52:10.406] } 1530s [00:52:10.406] { 1530s [00:52:10.406] if (base::length(...future.futureOptionsAdded) > 1530s [00:52:10.406] 0L) { 1530s [00:52:10.406] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1530s [00:52:10.406] base::names(opts) <- ...future.futureOptionsAdded 1530s [00:52:10.406] base::options(opts) 1530s [00:52:10.406] } 1530s [00:52:10.406] { 1530s [00:52:10.406] { 1530s [00:52:10.406] base::assign(".Random.seed", c(10407L, 1726940932L, 1530s [00:52:10.406] -2133974675L, 912538111L, -666439689L, -800972927L, 1530s [00:52:10.406] -965361991L), envir = base::globalenv(), 1530s [00:52:10.406] inherits = FALSE) 1530s [00:52:10.406] NULL 1530s [00:52:10.406] } 1530s [00:52:10.406] options(future.plan = NULL) 1530s [00:52:10.406] if (is.na(NA_character_)) 1530s [00:52:10.406] Sys.unsetenv("R_FUTURE_PLAN") 1530s [00:52:10.406] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1530s [00:52:10.406] future::plan(list(function (..., workers = availableCores(), 1530s [00:52:10.406] lazy = FALSE, rscript_libs = .libPaths(), 1530s [00:52:10.406] envir = parent.frame()) 1530s [00:52:10.406] { 1530s [00:52:10.406] if (is.function(workers)) 1530s [00:52:10.406] workers <- workers() 1530s [00:52:10.406] workers <- structure(as.integer(workers), 1530s [00:52:10.406] class = class(workers)) 1530s [00:52:10.406] stop_if_not(length(workers) == 1, is.finite(workers), 1530s [00:52:10.406] workers >= 1) 1530s [00:52:10.406] if (workers == 1L && !inherits(workers, "AsIs")) { 1530s [00:52:10.406] return(sequential(..., lazy = TRUE, envir = envir)) 1530s [00:52:10.406] } 1530s [00:52:10.406] future <- MultisessionFuture(..., workers = workers, 1530s [00:52:10.406] lazy = lazy, rscript_libs = rscript_libs, 1530s [00:52:10.406] envir = envir) 1530s [00:52:10.406] if (!future$lazy) 1530s [00:52:10.406] future <- run(future) 1530s [00:52:10.406] invisible(future) 1530s [00:52:10.406] }), .cleanup = FALSE, .init = FALSE) 1530s [00:52:10.406] } 1530s [00:52:10.406] } 1530s [00:52:10.406] } 1530s [00:52:10.406] }) 1530s [00:52:10.406] if (TRUE) { 1530s [00:52:10.406] base::sink(type = "output", split = FALSE) 1530s [00:52:10.406] if (TRUE) { 1530s [00:52:10.406] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1530s [00:52:10.406] } 1530s [00:52:10.406] else { 1530s [00:52:10.406] ...future.result["stdout"] <- base::list(NULL) 1530s [00:52:10.406] } 1530s [00:52:10.406] base::close(...future.stdout) 1530s [00:52:10.406] ...future.stdout <- NULL 1530s [00:52:10.406] } 1530s [00:52:10.406] ...future.result$conditions <- ...future.conditions 1530s [00:52:10.406] ...future.result$finished <- base::Sys.time() 1530s [00:52:10.406] ...future.result 1530s [00:52:10.406] } 1530s [00:52:10.409] assign_globals() ... 1530s [00:52:10.409] List of 5 1530s [00:52:10.409] $ future.call.arguments : list() 1530s [00:52:10.409] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1530s [00:52:10.409] $ ...future.FUN :function (x) 1530s [00:52:10.409] $ ...future.elements_ii :List of 2 1530s [00:52:10.409] ..$ : num [1:8] 3 3 3 3 3 3 3 3 1530s [00:52:10.409] ..$ : num [1:8] 4 3 2 1 2 3 4 5 1530s [00:52:10.409] $ ...future.seeds_ii : NULL 1530s [00:52:10.409] $ ...future.globals.maxSize: num Inf 1530s [00:52:10.409] - attr(*, "resolved")= logi FALSE 1530s [00:52:10.409] - attr(*, "total_size")= num NA 1530s [00:52:10.409] - attr(*, "where")=List of 5 1530s [00:52:10.409] ..$ future.call.arguments : 1530s [00:52:10.409] ..$ ...future.FUN : 1530s [00:52:10.409] ..$ ...future.elements_ii : 1530s [00:52:10.409] ..$ ...future.seeds_ii : 1530s [00:52:10.409] ..$ ...future.globals.maxSize: 1530s [00:52:10.409] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1530s [00:52:10.409] - attr(*, "already-done")= logi TRUE 1530s [00:52:10.415] - copied ‘future.call.arguments’ to environment 1530s [00:52:10.416] - copied ‘...future.FUN’ to environment 1530s [00:52:10.416] - copied ‘...future.elements_ii’ to environment 1530s [00:52:10.416] - copied ‘...future.seeds_ii’ to environment 1530s [00:52:10.416] - copied ‘...future.globals.maxSize’ to environment 1530s [00:52:10.416] assign_globals() ... done 1530s [00:52:10.417] plan(): Setting new future strategy stack: 1530s [00:52:10.417] List of future strategies: 1530s [00:52:10.417] 1. sequential: 1530s [00:52:10.417] - args: function (..., envir = parent.frame()) 1530s [00:52:10.417] - tweaked: FALSE 1530s [00:52:10.417] - call: NULL 1530s [00:52:10.417] plan(): nbrOfWorkers() = 1 1530s [00:52:10.418] plan(): Setting new future strategy stack: 1530s [00:52:10.418] List of future strategies: 1530s [00:52:10.418] 1. multisession: 1530s [00:52:10.418] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1530s [00:52:10.418] - tweaked: FALSE 1530s [00:52:10.418] - call: plan(strategy) 1530s [00:52:10.422] plan(): nbrOfWorkers() = 1 1530s [00:52:10.422] SequentialFuture started (and completed) 1530s [00:52:10.423] - Launch lazy future ... done 1530s [00:52:10.423] run() for ‘SequentialFuture’ ... done 1530s [00:52:10.423] Created future: 1530s [00:52:10.423] SequentialFuture: 1530s [00:52:10.423] Label: ‘future_apply-1’ 1530s [00:52:10.423] Expression: 1530s [00:52:10.423] { 1530s [00:52:10.423] do.call(function(...) { 1530s [00:52:10.423] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1530s [00:52:10.423] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1530s [00:52:10.423] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1530s [00:52:10.423] on.exit(options(oopts), add = TRUE) 1530s [00:52:10.423] } 1530s [00:52:10.423] { 1530s [00:52:10.423] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1530s [00:52:10.423] ...future.X_jj <- ...future.elements_ii[[jj]] 1530s [00:52:10.423] ...future.FUN(...future.X_jj, ...) 1530s [00:52:10.423] }) 1530s [00:52:10.423] } 1530s [00:52:10.423] }, args = future.call.arguments) 1530s [00:52:10.423] } 1530s [00:52:10.423] Lazy evaluation: FALSE 1530s [00:52:10.423] Asynchronous evaluation: FALSE 1530s [00:52:10.423] Local evaluation: TRUE 1530s [00:52:10.423] Environment: R_GlobalEnv 1530s [00:52:10.423] Capture standard output: TRUE 1530s [00:52:10.423] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1530s [00:52:10.423] Globals: 5 objects totaling 1.10 KiB (DotDotDotList ‘future.call.arguments’ of 0 bytes, function ‘...future.FUN’ of 848 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1530s [00:52:10.423] Packages: 1530s [00:52:10.423] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1530s [00:52:10.423] Resolved: TRUE 1530s [00:52:10.423] Value: 224 bytes of class ‘list’ 1530s [00:52:10.423] Early signaling: FALSE 1530s [00:52:10.423] Owner process: 856348fc-72a5-ec0b-63b7-1a3640a93e42 1530s [00:52:10.423] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1530s [00:52:10.425] Chunk #1 of 1 ... DONE 1530s [00:52:10.425] Launching 1 futures (chunks) ... DONE 1530s [00:52:10.425] Resolving 1 futures (chunks) ... 1530s [00:52:10.425] resolve() on list ... 1530s [00:52:10.425] recursive: 0 1530s [00:52:10.426] length: 1 1530s [00:52:10.426] 1530s [00:52:10.426] resolved() for ‘SequentialFuture’ ... 1530s [00:52:10.426] - state: ‘finished’ 1530s [00:52:10.426] - run: TRUE 1530s [00:52:10.426] - result: ‘FutureResult’ 1530s [00:52:10.426] resolved() for ‘SequentialFuture’ ... done 1530s [00:52:10.428] Future #1 1530s [00:52:10.429] signalConditionsASAP(SequentialFuture, pos=1) ... 1530s [00:52:10.429] - nx: 1 1530s [00:52:10.429] - relay: TRUE 1530s [00:52:10.429] - stdout: TRUE 1530s [00:52:10.429] - signal: TRUE 1530s [00:52:10.429] - resignal: FALSE 1530s [00:52:10.430] - force: TRUE 1530s [00:52:10.430] - relayed: [n=1] FALSE 1530s [00:52:10.430] - queued futures: [n=1] FALSE 1530s [00:52:10.430] - until=1 1530s [00:52:10.430] - relaying element #1 1530s [00:52:10.431] - relayed: [n=1] TRUE 1530s [00:52:10.431] - queued futures: [n=1] TRUE 1530s [00:52:10.431] signalConditionsASAP(SequentialFuture, pos=1) ... done 1530s [00:52:10.431] length: 0 (resolved future 1) 1530s [00:52:10.431] Relaying remaining futures 1530s [00:52:10.432] signalConditionsASAP(NULL, pos=0) ... 1530s [00:52:10.432] - nx: 1 1530s [00:52:10.432] - relay: TRUE 1530s [00:52:10.432] - stdout: TRUE 1530s [00:52:10.432] - signal: TRUE 1530s [00:52:10.432] - resignal: FALSE 1530s [00:52:10.432] - force: TRUE 1530s [00:52:10.433] - relayed: [n=1] TRUE 1530s [00:52:10.433] - queued futures: [n=1] TRUE 1530s - flush all 1530s [00:52:10.433] - relayed: [n=1] TRUE 1530s [00:52:10.433] - queued futures: [n=1] TRUE 1530s [00:52:10.433] signalConditionsASAP(NULL, pos=0) ... done 1530s [00:52:10.433] resolve() on list ... DONE 1530s [00:52:10.434] - Number of value chunks collected: 1 1530s [00:52:10.434] Resolving 1 futures (chunks) ... DONE 1530s [00:52:10.434] Reducing values from 1 chunks ... 1530s [00:52:10.435] - Number of values collected after concatenation: 2 1530s [00:52:10.435] - Number of values expected: 2 1530s [00:52:10.435] Reducing values from 1 chunks ... DONE 1530s [00:52:10.435] future_lapply() ... DONE 1530s col 1530s row x1 x2 1530s [1,] 3 4 1530s [2,] 3 3 1530s [3,] 3 2 1530s [4,] 3 1 1530s [5,] 3 2 1530s [6,] 3 3 1530s [7,] 3[00:52:10.436] getGlobalsAndPackagesXApply() ... 1530s [00:52:10.436] - future.globals: TRUE 1530s 4 1530s [8,] 3 5 1530s [00:52:10.437] getGlobalsAndPackages() ... 1530s [00:52:10.437] Searching for globals... 1530s [00:52:10.438] - globals found: [1] ‘FUN’ 1530s [00:52:10.439] Searching for globals ... DONE 1530s [00:52:10.439] Resolving globals: FALSE 1530s [00:52:10.439] The total size of the 1 globals is 848 bytes (848 bytes) 1530s [00:52:10.440] The total size of the 1 globals exported for future expression (‘FUN(X = structure(c(3, 3, 3, 3, 3, 3, 3, 3, 4, 3, 2, 1, 2, 3,; 4, 5, 3, 3, 3, 3, 3, 3, 3, 3, 4, 3, 2, 1, 2, 3, 4, 5, 3, 3, 3,; 3, 3, 3, 3, 3, 4, 3, 2, 1, 2, 3, 4, 5), dim = c(8L, 2L, 3L), dimnames = list(; row = NULL, col = c("x1", "x2"), C = c("cop.1", "cop.2",; "cop.3"))))’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1530s [00:52:10.440] - globals: [1] ‘FUN’ 1530s [00:52:10.440] 1530s [00:52:10.440] getGlobalsAndPackages() ... DONE 1530s [00:52:10.440] - globals found/used: [n=1] ‘FUN’ 1530s [00:52:10.440] - needed namespaces: [n=0] 1530s [00:52:10.441] Finding globals ... DONE 1530s [00:52:10.441] - use_args: TRUE 1530s [00:52:10.441] - Getting '...' globals ... 1530s [00:52:10.441] resolve() on list ... 1530s [00:52:10.441] recursive: 0 1530s [00:52:10.441] length: 1 1530s [00:52:10.442] elements: ‘...’ 1530s [00:52:10.442] length: 0 (resolved future 1) 1530s [00:52:10.442] resolve() on list ... DONE 1530s [00:52:10.442] - '...' content: [n=0] 1530s [00:52:10.442] List of 1 1530s [00:52:10.442] $ ...: list() 1530s [00:52:10.442] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1530s [00:52:10.442] - attr(*, "where")=List of 1 1530s [00:52:10.442] ..$ ...: 1530s [00:52:10.442] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1530s [00:52:10.442] - attr(*, "resolved")= logi TRUE 1530s [00:52:10.442] - attr(*, "total_size")= num NA 1530s [00:52:10.445] - Getting '...' globals ... DONE 1530s [00:52:10.445] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1530s [00:52:10.446] List of 2 1530s [00:52:10.446] $ ...future.FUN:function (x) 1530s [00:52:10.446] $ ... : list() 1530s [00:52:10.446] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1530s [00:52:10.446] - attr(*, "where")=List of 2 1530s [00:52:10.446] ..$ ...future.FUN: 1530s [00:52:10.446] ..$ ... : 1530s [00:52:10.446] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1530s [00:52:10.446] - attr(*, "resolved")= logi FALSE 1530s [00:52:10.446] - attr(*, "total_size")= num 848 1530s [00:52:10.449] Packages to be attached in all futures: [n=0] 1530s [00:52:10.449] getGlobalsAndPackagesXApply() ... DONE 1530s [00:52:10.452] future_lapply() ... 1530s [00:52:10.455] Number of chunks: 1 1530s [00:52:10.456] getGlobalsAndPackagesXApply() ... 1530s [00:52:10.456] - future.globals: with names ‘list()’ 1530s [00:52:10.456] - use_args: TRUE 1530s [00:52:10.456] Globals to be used in all futures (chunks): [n=2] ‘...’, ‘...future.FUN’ 1530s [00:52:10.456] List of 2 1530s [00:52:10.456] $ ... : list() 1530s [00:52:10.456] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1530s [00:52:10.456] $ ...future.FUN:function (x) 1530s [00:52:10.456] - attr(*, "where")=List of 2 1530s [00:52:10.456] ..$ ... : 1530s [00:52:10.456] ..$ ...future.FUN: 1530s [00:52:10.456] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1530s [00:52:10.456] - attr(*, "resolved")= logi FALSE 1530s [00:52:10.456] - attr(*, "total_size")= num NA 1530s [00:52:10.460] Packages to be attached in all futures: [n=0] 1530s [00:52:10.460] getGlobalsAndPackagesXApply() ... DONE 1530s [00:52:10.461] Number of futures (= number of chunks): 1 1530s [00:52:10.461] Launching 1 futures (chunks) ... 1530s [00:52:10.462] Chunk #1 of 1 ... 1530s [00:52:10.463] - seeds: 1530s [00:52:10.463] - All globals exported: [n=5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1530s [00:52:10.463] getGlobalsAndPackages() ... 1530s [00:52:10.463] - globals passed as-is: [5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1530s [00:52:10.464] Resolving globals: FALSE 1530s [00:52:10.464] Tweak future expression to call with '...' arguments ... 1530s [00:52:10.464] { 1530s [00:52:10.464] do.call(function(...) { 1530s [00:52:10.464] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1530s [00:52:10.464] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1530s [00:52:10.464] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1530s [00:52:10.464] on.exit(options(oopts), add = TRUE) 1530s [00:52:10.464] } 1530s [00:52:10.464] { 1530s [00:52:10.464] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1530s [00:52:10.464] ...future.X_jj <- ...future.elements_ii[[jj]] 1530s [00:52:10.464] ...future.FUN(...future.X_jj, ...) 1530s [00:52:10.464] }) 1530s [00:52:10.464] } 1530s [00:52:10.464] }, args = future.call.arguments) 1530s [00:52:10.464] } 1530s [00:52:10.464] Tweak future expression to call with '...' arguments ... DONE 1530s [00:52:10.465] - globals: [5] ‘future.call.arguments’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1530s [00:52:10.465] 1530s [00:52:10.465] getGlobalsAndPackages() ... DONE 1530s [00:52:10.466] run() for ‘Future’ ... 1530s [00:52:10.466] - state: ‘created’ 1530s [00:52:10.467] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1530s [00:52:10.471] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1530s [00:52:10.471] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1530s [00:52:10.471] - Field: ‘label’ 1530s [00:52:10.472] - Field: ‘local’ 1530s [00:52:10.472] - Field: ‘owner’ 1530s [00:52:10.472] - Field: ‘envir’ 1530s [00:52:10.472] - Field: ‘packages’ 1530s [00:52:10.472] - Field: ‘gc’ 1530s [00:52:10.472] - Field: ‘conditions’ 1530s [00:52:10.473] - Field: ‘expr’ 1530s [00:52:10.473] - Field: ‘uuid’ 1530s [00:52:10.473] - Field: ‘seed’ 1530s [00:52:10.473] - Field: ‘version’ 1530s [00:52:10.473] - Field: ‘result’ 1530s [00:52:10.473] - Field: ‘asynchronous’ 1530s [00:52:10.474] - Field: ‘calls’ 1530s [00:52:10.474] - Field: ‘globals’ 1530s [00:52:10.474] - Field: ‘stdout’ 1530s [00:52:10.474] - Field: ‘earlySignal’ 1530s [00:52:10.474] - Field: ‘lazy’ 1530s [00:52:10.474] - Field: ‘state’ 1530s [00:52:10.475] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1530s [00:52:10.475] - Launch lazy future ... 1530s [00:52:10.475] Packages needed by the future expression (n = 0): 1530s [00:52:10.476] Packages needed by future strategies (n = 0): 1530s [00:52:10.476] { 1530s [00:52:10.476] { 1530s [00:52:10.476] { 1530s [00:52:10.476] ...future.startTime <- base::Sys.time() 1530s [00:52:10.476] { 1530s [00:52:10.476] { 1530s [00:52:10.476] { 1530s [00:52:10.476] base::local({ 1530s [00:52:10.476] has_future <- base::requireNamespace("future", 1530s [00:52:10.476] quietly = TRUE) 1530s [00:52:10.476] if (has_future) { 1530s [00:52:10.476] ns <- base::getNamespace("future") 1530s [00:52:10.476] version <- ns[[".package"]][["version"]] 1530s [00:52:10.476] if (is.null(version)) 1530s [00:52:10.476] version <- utils::packageVersion("future") 1530s [00:52:10.476] } 1530s [00:52:10.476] else { 1530s [00:52:10.476] version <- NULL 1530s [00:52:10.476] } 1530s [00:52:10.476] if (!has_future || version < "1.8.0") { 1530s [00:52:10.476] info <- base::c(r_version = base::gsub("R version ", 1530s [00:52:10.476] "", base::R.version$version.string), 1530s [00:52:10.476] platform = base::sprintf("%s (%s-bit)", 1530s [00:52:10.476] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1530s [00:52:10.476] os = base::paste(base::Sys.info()[base::c("sysname", 1530s [00:52:10.476] "release", "version")], collapse = " "), 1530s [00:52:10.476] hostname = base::Sys.info()[["nodename"]]) 1530s [00:52:10.476] info <- base::sprintf("%s: %s", base::names(info), 1530s [00:52:10.476] info) 1530s [00:52:10.476] info <- base::paste(info, collapse = "; ") 1530s [00:52:10.476] if (!has_future) { 1530s [00:52:10.476] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1530s [00:52:10.476] info) 1530s [00:52:10.476] } 1530s [00:52:10.476] else { 1530s [00:52:10.476] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1530s [00:52:10.476] info, version) 1530s [00:52:10.476] } 1530s [00:52:10.476] base::stop(msg) 1530s [00:52:10.476] } 1530s [00:52:10.476] }) 1530s [00:52:10.476] } 1530s [00:52:10.476] options(future.plan = NULL) 1530s [00:52:10.476] Sys.unsetenv("R_FUTURE_PLAN") 1530s [00:52:10.476] future::plan("default", .cleanup = FALSE, .init = FALSE) 1530s [00:52:10.476] } 1530s [00:52:10.476] ...future.workdir <- getwd() 1530s [00:52:10.476] } 1530s [00:52:10.476] ...future.oldOptions <- base::as.list(base::.Options) 1530s [00:52:10.476] ...future.oldEnvVars <- base::Sys.getenv() 1530s [00:52:10.476] } 1530s [00:52:10.476] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1530s [00:52:10.476] future.globals.maxSize = Inf, future.globals.method = NULL, 1530s [00:52:10.476] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1530s [00:52:10.476] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1530s [00:52:10.476] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1530s [00:52:10.476] future.stdout.windows.reencode = NULL, width = 80L) 1530s [00:52:10.476] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1530s [00:52:10.476] base::names(...future.oldOptions)) 1530s [00:52:10.476] } 1530s [00:52:10.476] if (FALSE) { 1530s [00:52:10.476] } 1530s [00:52:10.476] else { 1530s [00:52:10.476] if (TRUE) { 1530s [00:52:10.476] ...future.stdout <- base::rawConnection(base::raw(0L), 1530s [00:52:10.476] open = "w") 1530s [00:52:10.476] } 1530s [00:52:10.476] else { 1530s [00:52:10.476] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1530s [00:52:10.476] windows = "NUL", "/dev/null"), open = "w") 1530s [00:52:10.476] } 1530s [00:52:10.476] base::sink(...future.stdout, type = "output", split = FALSE) 1530s [00:52:10.476] base::on.exit(if (!base::is.null(...future.stdout)) { 1530s [00:52:10.476] base::sink(type = "output", split = FALSE) 1530s [00:52:10.476] base::close(...future.stdout) 1530s [00:52:10.476] }, add = TRUE) 1530s [00:52:10.476] } 1530s [00:52:10.476] ...future.frame <- base::sys.nframe() 1530s [00:52:10.476] ...future.conditions <- base::list() 1530s [00:52:10.476] ...future.rng <- base::globalenv()$.Random.seed 1530s [00:52:10.476] if (FALSE) { 1530s [00:52:10.476] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1530s [00:52:10.476] "...future.value", "...future.globalenv.names", ".Random.seed") 1530s [00:52:10.476] } 1530s [00:52:10.476] ...future.result <- base::tryCatch({ 1530s [00:52:10.476] base::withCallingHandlers({ 1530s [00:52:10.476] ...future.value <- base::withVisible(base::local({ 1530s [00:52:10.476] do.call(function(...) { 1530s [00:52:10.476] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1530s [00:52:10.476] if (!identical(...future.globals.maxSize.org, 1530s [00:52:10.476] ...future.globals.maxSize)) { 1530s [00:52:10.476] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1530s [00:52:10.476] on.exit(options(oopts), add = TRUE) 1530s [00:52:10.476] } 1530s [00:52:10.476] { 1530s [00:52:10.476] lapply(seq_along(...future.elements_ii), 1530s [00:52:10.476] FUN = function(jj) { 1530s [00:52:10.476] ...future.X_jj <- ...future.elements_ii[[jj]] 1530s [00:52:10.476] ...future.FUN(...future.X_jj, ...) 1530s [00:52:10.476] }) 1530s [00:52:10.476] } 1530s [00:52:10.476] }, args = future.call.arguments) 1530s [00:52:10.476] })) 1530s [00:52:10.476] future::FutureResult(value = ...future.value$value, 1530s [00:52:10.476] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1530s [00:52:10.476] ...future.rng), globalenv = if (FALSE) 1530s [00:52:10.476] list(added = base::setdiff(base::names(base::.GlobalEnv), 1530s [00:52:10.476] ...future.globalenv.names)) 1530s [00:52:10.476] else NULL, started = ...future.startTime, version = "1.8") 1530s [00:52:10.476] }, condition = base::local({ 1530s [00:52:10.476] c <- base::c 1530s [00:52:10.476] inherits <- base::inherits 1530s [00:52:10.476] invokeRestart <- base::invokeRestart 1530s [00:52:10.476] length <- base::length 1530s [00:52:10.476] list <- base::list 1530s [00:52:10.476] seq.int <- base::seq.int 1530s [00:52:10.476] signalCondition <- base::signalCondition 1530s [00:52:10.476] sys.calls <- base::sys.calls 1530s [00:52:10.476] `[[` <- base::`[[` 1530s [00:52:10.476] `+` <- base::`+` 1530s [00:52:10.476] `<<-` <- base::`<<-` 1530s [00:52:10.476] sysCalls <- function(calls = sys.calls(), from = 1L) { 1530s [00:52:10.476] calls[seq.int(from = from + 12L, to = length(calls) - 1530s [00:52:10.476] 3L)] 1530s [00:52:10.476] } 1530s [00:52:10.476] function(cond) { 1530s [00:52:10.476] is_error <- inherits(cond, "error") 1530s [00:52:10.476] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1530s [00:52:10.476] NULL) 1530s [00:52:10.476] if (is_error) { 1530s [00:52:10.476] sessionInformation <- function() { 1530s [00:52:10.476] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1530s [00:52:10.476] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1530s [00:52:10.476] search = base::search(), system = base::Sys.info()) 1530s [00:52:10.476] } 1530s [00:52:10.476] ...future.conditions[[length(...future.conditions) + 1530s [00:52:10.476] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1530s [00:52:10.476] cond$call), session = sessionInformation(), 1530s [00:52:10.476] timestamp = base::Sys.time(), signaled = 0L) 1530s [00:52:10.476] signalCondition(cond) 1530s [00:52:10.476] } 1530s [00:52:10.476] else if (!ignore && TRUE && inherits(cond, c("condition", 1530s [00:52:10.476] "immediateCondition"))) { 1530s [00:52:10.476] signal <- TRUE && inherits(cond, "immediateCondition") 1530s [00:52:10.476] ...future.conditions[[length(...future.conditions) + 1530s [00:52:10.476] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1530s [00:52:10.476] if (TRUE && !signal) { 1530s [00:52:10.476] muffleCondition <- function (cond, pattern = "^muffle") 1530s [00:52:10.476] { 1530s [00:52:10.476] inherits <- base::inherits 1530s [00:52:10.476] invokeRestart <- base::invokeRestart 1530s [00:52:10.476] is.null <- base::is.null 1530s [00:52:10.476] muffled <- FALSE 1530s [00:52:10.476] if (inherits(cond, "message")) { 1530s [00:52:10.476] muffled <- grepl(pattern, "muffleMessage") 1530s [00:52:10.476] if (muffled) 1530s [00:52:10.476] invokeRestart("muffleMessage") 1530s [00:52:10.476] } 1530s [00:52:10.476] else if (inherits(cond, "warning")) { 1530s [00:52:10.476] muffled <- grepl(pattern, "muffleWarning") 1530s [00:52:10.476] if (muffled) 1530s [00:52:10.476] invokeRestart("muffleWarning") 1530s [00:52:10.476] } 1530s [00:52:10.476] else if (inherits(cond, "condition")) { 1530s [00:52:10.476] if (!is.null(pattern)) { 1530s [00:52:10.476] computeRestarts <- base::computeRestarts 1530s [00:52:10.476] grepl <- base::grepl 1530s [00:52:10.476] restarts <- computeRestarts(cond) 1530s [00:52:10.476] for (restart in restarts) { 1530s [00:52:10.476] name <- restart$name 1530s [00:52:10.476] if (is.null(name)) 1530s [00:52:10.476] next 1530s [00:52:10.476] if (!grepl(pattern, name)) 1530s [00:52:10.476] next 1530s [00:52:10.476] invokeRestart(restart) 1530s [00:52:10.476] muffled <- TRUE 1530s [00:52:10.476] break 1530s [00:52:10.476] } 1530s [00:52:10.476] } 1530s [00:52:10.476] } 1530s [00:52:10.476] invisible(muffled) 1530s [00:52:10.476] } 1530s [00:52:10.476] muffleCondition(cond, pattern = "^muffle") 1530s [00:52:10.476] } 1530s [00:52:10.476] } 1530s [00:52:10.476] else { 1530s [00:52:10.476] if (TRUE) { 1530s [00:52:10.476] muffleCondition <- function (cond, pattern = "^muffle") 1530s [00:52:10.476] { 1530s [00:52:10.476] inherits <- base::inherits 1530s [00:52:10.476] invokeRestart <- base::invokeRestart 1530s [00:52:10.476] is.null <- base::is.null 1530s [00:52:10.476] muffled <- FALSE 1530s [00:52:10.476] if (inherits(cond, "message")) { 1530s [00:52:10.476] muffled <- grepl(pattern, "muffleMessage") 1530s [00:52:10.476] if (muffled) 1530s [00:52:10.476] invokeRestart("muffleMessage") 1530s [00:52:10.476] } 1530s [00:52:10.476] else if (inherits(cond, "warning")) { 1530s [00:52:10.476] muffled <- grepl(pattern, "muffleWarning") 1530s [00:52:10.476] if (muffled) 1530s [00:52:10.476] invokeRestart("muffleWarning") 1530s [00:52:10.476] } 1530s [00:52:10.476] else if (inherits(cond, "condition")) { 1530s [00:52:10.476] if (!is.null(pattern)) { 1530s [00:52:10.476] computeRestarts <- base::computeRestarts 1530s [00:52:10.476] grepl <- base::grepl 1530s [00:52:10.476] restarts <- computeRestarts(cond) 1530s [00:52:10.476] for (restart in restarts) { 1530s [00:52:10.476] name <- restart$name 1530s [00:52:10.476] if (is.null(name)) 1530s [00:52:10.476] next 1530s [00:52:10.476] if (!grepl(pattern, name)) 1530s [00:52:10.476] next 1530s [00:52:10.476] invokeRestart(restart) 1530s [00:52:10.476] muffled <- TRUE 1530s [00:52:10.476] break 1530s [00:52:10.476] } 1530s [00:52:10.476] } 1530s [00:52:10.476] } 1530s [00:52:10.476] invisible(muffled) 1530s [00:52:10.476] } 1530s [00:52:10.476] muffleCondition(cond, pattern = "^muffle") 1530s [00:52:10.476] } 1530s [00:52:10.476] } 1530s [00:52:10.476] } 1530s [00:52:10.476] })) 1530s [00:52:10.476] }, error = function(ex) { 1530s [00:52:10.476] base::structure(base::list(value = NULL, visible = NULL, 1530s [00:52:10.476] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1530s [00:52:10.476] ...future.rng), started = ...future.startTime, 1530s [00:52:10.476] finished = Sys.time(), session_uuid = NA_character_, 1530s [00:52:10.476] version = "1.8"), class = "FutureResult") 1530s [00:52:10.476] }, finally = { 1530s [00:52:10.476] if (!identical(...future.workdir, getwd())) 1530s [00:52:10.476] setwd(...future.workdir) 1530s [00:52:10.476] { 1530s [00:52:10.476] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1530s [00:52:10.476] ...future.oldOptions$nwarnings <- NULL 1530s [00:52:10.476] } 1530s [00:52:10.476] base::options(...future.oldOptions) 1530s [00:52:10.476] if (.Platform$OS.type == "windows") { 1530s [00:52:10.476] old_names <- names(...future.oldEnvVars) 1530s [00:52:10.476] envs <- base::Sys.getenv() 1530s [00:52:10.476] names <- names(envs) 1530s [00:52:10.476] common <- intersect(names, old_names) 1530s [00:52:10.476] added <- setdiff(names, old_names) 1530s [00:52:10.476] removed <- setdiff(old_names, names) 1530s [00:52:10.476] changed <- common[...future.oldEnvVars[common] != 1530s [00:52:10.476] envs[common]] 1530s [00:52:10.476] NAMES <- toupper(changed) 1530s [00:52:10.476] args <- list() 1530s [00:52:10.476] for (kk in seq_along(NAMES)) { 1530s [00:52:10.476] name <- changed[[kk]] 1530s [00:52:10.476] NAME <- NAMES[[kk]] 1530s [00:52:10.476] if (name != NAME && is.element(NAME, old_names)) 1530s [00:52:10.476] next 1530s [00:52:10.476] args[[name]] <- ...future.oldEnvVars[[name]] 1530s [00:52:10.476] } 1530s [00:52:10.476] NAMES <- toupper(added) 1530s [00:52:10.476] for (kk in seq_along(NAMES)) { 1530s [00:52:10.476] name <- added[[kk]] 1530s [00:52:10.476] NAME <- NAMES[[kk]] 1530s [00:52:10.476] if (name != NAME && is.element(NAME, old_names)) 1530s [00:52:10.476] next 1530s [00:52:10.476] args[[name]] <- "" 1530s [00:52:10.476] } 1530s [00:52:10.476] NAMES <- toupper(removed) 1530s [00:52:10.476] for (kk in seq_along(NAMES)) { 1530s [00:52:10.476] name <- removed[[kk]] 1530s [00:52:10.476] NAME <- NAMES[[kk]] 1530s [00:52:10.476] if (name != NAME && is.element(NAME, old_names)) 1530s [00:52:10.476] next 1530s [00:52:10.476] args[[name]] <- ...future.oldEnvVars[[name]] 1530s [00:52:10.476] } 1530s [00:52:10.476] if (length(args) > 0) 1530s [00:52:10.476] base::do.call(base::Sys.setenv, args = args) 1530s [00:52:10.476] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1530s [00:52:10.476] } 1530s [00:52:10.476] else { 1530s [00:52:10.476] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1530s [00:52:10.476] } 1530s [00:52:10.476] { 1530s [00:52:10.476] if (base::length(...future.futureOptionsAdded) > 1530s [00:52:10.476] 0L) { 1530s [00:52:10.476] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1530s [00:52:10.476] base::names(opts) <- ...future.futureOptionsAdded 1530s [00:52:10.476] base::options(opts) 1530s [00:52:10.476] } 1530s [00:52:10.476] { 1530s [00:52:10.476] { 1530s [00:52:10.476] base::assign(".Random.seed", c(10407L, 1726940932L, 1530s [00:52:10.476] -2133974675L, 912538111L, -666439689L, -800972927L, 1530s [00:52:10.476] -965361991L), envir = base::globalenv(), 1530s [00:52:10.476] inherits = FALSE) 1530s [00:52:10.476] NULL 1530s [00:52:10.476] } 1530s [00:52:10.476] options(future.plan = NULL) 1530s [00:52:10.476] if (is.na(NA_character_)) 1530s [00:52:10.476] Sys.unsetenv("R_FUTURE_PLAN") 1530s [00:52:10.476] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1530s [00:52:10.476] future::plan(list(function (..., workers = availableCores(), 1530s [00:52:10.476] lazy = FALSE, rscript_libs = .libPaths(), 1530s [00:52:10.476] envir = parent.frame()) 1530s [00:52:10.476] { 1530s [00:52:10.476] if (is.function(workers)) 1530s [00:52:10.476] workers <- workers() 1530s [00:52:10.476] workers <- structure(as.integer(workers), 1530s [00:52:10.476] class = class(workers)) 1530s [00:52:10.476] stop_if_not(length(workers) == 1, is.finite(workers), 1530s [00:52:10.476] workers >= 1) 1530s [00:52:10.476] if (workers == 1L && !inherits(workers, "AsIs")) { 1530s [00:52:10.476] return(sequential(..., lazy = TRUE, envir = envir)) 1530s [00:52:10.476] } 1530s [00:52:10.476] future <- MultisessionFuture(..., workers = workers, 1530s [00:52:10.476] lazy = lazy, rscript_libs = rscript_libs, 1530s [00:52:10.476] envir = envir) 1530s [00:52:10.476] if (!future$lazy) 1530s [00:52:10.476] future <- run(future) 1530s [00:52:10.476] invisible(future) 1530s [00:52:10.476] }), .cleanup = FALSE, .init = FALSE) 1530s [00:52:10.476] } 1530s [00:52:10.476] } 1530s [00:52:10.476] } 1530s [00:52:10.476] }) 1530s [00:52:10.476] if (TRUE) { 1530s [00:52:10.476] base::sink(type = "output", split = FALSE) 1530s [00:52:10.476] if (TRUE) { 1530s [00:52:10.476] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1530s [00:52:10.476] } 1530s [00:52:10.476] else { 1530s [00:52:10.476] ...future.result["stdout"] <- base::list(NULL) 1530s [00:52:10.476] } 1530s [00:52:10.476] base::close(...future.stdout) 1530s [00:52:10.476] ...future.stdout <- NULL 1530s [00:52:10.476] } 1530s [00:52:10.476] ...future.result$conditions <- ...future.conditions 1530s [00:52:10.476] ...future.result$finished <- base::Sys.time() 1530s [00:52:10.476] ...future.result 1530s [00:52:10.476] } 1530s [00:52:10.482] assign_globals() ... 1530s [00:52:10.482] List of 5 1530s [00:52:10.482] $ future.call.arguments : list() 1530s [00:52:10.482] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1530s [00:52:10.482] $ ...future.FUN :function (x) 1530s [00:52:10.482] $ ...future.elements_ii :List of 6 1530s [00:52:10.482] ..$ : num [1:8] 3 3 3 3 3 3 3 3 1530s [00:52:10.482] ..$ : num [1:8] 4 3 2 1 2 3 4 5 1530s [00:52:10.482] ..$ : num [1:8] 3 3 3 3 3 3 3 3 1530s [00:52:10.482] ..$ : num [1:8] 4 3 2 1 2 3 4 5 1530s [00:52:10.482] ..$ : num [1:8] 3 3 3 3 3 3 3 3 1530s [00:52:10.482] ..$ : num [1:8] 4 3 2 1 2 3 4 5 1530s [00:52:10.482] $ ...future.seeds_ii : NULL 1530s [00:52:10.482] $ ...future.globals.maxSize: num Inf 1530s [00:52:10.482] - attr(*, "resolved")= logi FALSE 1530s [00:52:10.482] - attr(*, "total_size")= num NA 1530s [00:52:10.482] - attr(*, "where")=List of 5 1530s [00:52:10.482] ..$ future.call.arguments : 1530s [00:52:10.482] ..$ ...future.FUN : 1530s [00:52:10.482] ..$ ...future.elements_ii : 1530s [00:52:10.482] ..$ ...future.seeds_ii : 1530s [00:52:10.482] ..$ ...future.globals.maxSize: 1530s [00:52:10.482] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1530s [00:52:10.482] - attr(*, "already-done")= logi TRUE 1530s [00:52:10.491] - copied ‘future.call.arguments’ to environment 1530s [00:52:10.491] - copied ‘...future.FUN’ to environment 1530s [00:52:10.491] - copied ‘...future.elements_ii’ to environment 1530s [00:52:10.492] - copied ‘...future.seeds_ii’ to environment 1530s [00:52:10.492] - copied ‘...future.globals.maxSize’ to environment 1530s [00:52:10.492] assign_globals() ... done 1530s [00:52:10.492] plan(): Setting new future strategy stack: 1530s [00:52:10.493] List of future strategies: 1530s [00:52:10.493] 1. sequential: 1530s [00:52:10.493] - args: function (..., envir = parent.frame()) 1530s [00:52:10.493] - tweaked: FALSE 1530s [00:52:10.493] - call: NULL 1530s [00:52:10.493] plan(): nbrOfWorkers() = 1 1530s [00:52:10.494] plan(): Setting new future strategy stack: 1530s [00:52:10.494] List of future strategies: 1530s [00:52:10.494] 1. multisession: 1530s [00:52:10.494] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1530s [00:52:10.494] - tweaked: FALSE 1530s [00:52:10.494] - call: plan(strategy) 1530s [00:52:10.498] plan(): nbrOfWorkers() = 1 1530s [00:52:10.498] SequentialFuture started (and completed) 1530s [00:52:10.498] - Launch lazy future ... done 1530s [00:52:10.498] run() for ‘SequentialFuture’ ... done 1530s [00:52:10.498] Created future: 1530s [00:52:10.498] SequentialFuture: 1530s [00:52:10.498] Label: ‘future_apply-1’ 1530s [00:52:10.498] Expression: 1530s [00:52:10.498] { 1530s [00:52:10.498] do.call(function(...) { 1530s [00:52:10.498] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1530s [00:52:10.498] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1530s [00:52:10.498] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1530s [00:52:10.498] on.exit(options(oopts), add = TRUE) 1530s [00:52:10.498] } 1530s [00:52:10.498] { 1530s [00:52:10.498] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1530s [00:52:10.498] ...future.X_jj <- ...future.elements_ii[[jj]] 1530s [00:52:10.498] ...future.FUN(...future.X_jj, ...) 1530s [00:52:10.498] }) 1530s [00:52:10.498] } 1530s [00:52:10.498] }, args = future.call.arguments) 1530s [00:52:10.498] } 1530s [00:52:10.498] Lazy evaluation: FALSE 1530s [00:52:10.498] Asynchronous evaluation: FALSE 1530s [00:52:10.498] Local evaluation: TRUE 1530s [00:52:10.498] Environment: R_GlobalEnv 1530s [00:52:10.498] Capture standard output: TRUE 1530s [00:52:10.498] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1530s [00:52:10.498] Globals: 5 objects totaling 1.54 KiB (DotDotDotList ‘future.call.arguments’ of 0 bytes, function ‘...future.FUN’ of 848 bytes, list ‘...future.elements_ii’ of 672 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1530s [00:52:10.498] Packages: 1530s [00:52:10.498] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1530s [00:52:10.498] Resolved: TRUE 1530s [00:52:10.498] Value: 672 bytes of class ‘list’ 1530s [00:52:10.498] Early signaling: FALSE 1530s [00:52:10.498] Owner process: 856348fc-72a5-ec0b-63b7-1a3640a93e42 1530s [00:52:10.498] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1530s [00:52:10.500] Chunk #1 of 1 ... DONE 1530s [00:52:10.500] Launching 1 futures (chunks) ... DONE 1530s [00:52:10.500] Resolving 1 futures (chunks) ... 1530s [00:52:10.501] resolve() on list ... 1530s [00:52:10.501] recursive: 0 1530s [00:52:10.501] length: 1 1530s [00:52:10.501] 1530s [00:52:10.502] resolved() for ‘SequentialFuture’ ... 1530s [00:52:10.502] - state: ‘finished’ 1530s [00:52:10.502] - run: TRUE 1530s [00:52:10.502] - result: ‘FutureResult’ 1530s [00:52:10.502] resolved() for ‘SequentialFuture’ ... done 1530s [00:52:10.502] Future #1 1530s [00:52:10.503] signalConditionsASAP(SequentialFuture, pos=1) ... 1530s [00:52:10.503] - nx: 1 1530s [00:52:10.503] - relay: TRUE 1530s [00:52:10.503] - stdout: TRUE 1530s [00:52:10.503] - signal: TRUE 1530s [00:52:10.503] - resignal: FALSE 1530s [00:52:10.504] - force: TRUE 1530s [00:52:10.504] - relayed: [n=1] FALSE 1530s [00:52:10.504] - queued futures: [n=1] FALSE 1530s [00:52:10.506] - until=1 1530s [00:52:10.506] - relaying element #1 1530s [00:52:10.506] - relayed: [n=1] TRUE 1530s [00:52:10.507] - queued futures: [n=1] TRUE 1530s [00:52:10.507] signalConditionsASAP(SequentialFuture, pos=1) ... done 1530s [00:52:10.507] length: 0 (resolved future 1) 1530s [00:52:10.507] Relaying remaining futures 1530s [00:52:10.507] signalConditionsASAP(NULL, pos=0) ... 1530s [00:52:10.507] - nx: 1 1530s [00:52:10.508] - relay: TRUE 1530s [00:52:10.508] - stdout: TRUE 1530s [00:52:10.508] - signal: TRUE 1530s [00:52:10.508] - resignal: FALSE 1530s [00:52:10.508] - force: TRUE 1530s [00:52:10.508] - relayed: [n=1] TRUE 1530s [00:52:10.508] - queued futures: [n=1] TRUE 1530s - flush all 1530s [00:52:10.509] - relayed: [n=1] TRUE 1530s [00:52:10.509] - queued futures: [n=1] TRUE 1530s [00:52:10.509] signalConditionsASAP(NULL, pos=0) ... done 1530s [00:52:10.509] resolve() on list ... DONE 1530s [00:52:10.509] - Number of value chunks collected: 1 1530s [00:52:10.510] Resolving 1 futures (chunks) ... DONE 1530s [00:52:10.510] Reducing values from 1 chunks ... 1530s [00:52:10.510] - Number of values collected after concatenation: 6 1530s [00:52:10.510] - Number of values expected: 6 1530s [00:52:10.510] Reducing values from 1 chunks ... DONE 1530s [00:52:10.510] future_lapply() ... DONE 1530s , , C = cop.1 1530s 1530s col 1530s row x1 x2 1530s [1,] 3 4 1530s [2,] 3 3 1530s [3,] 3 2 1530s [4,] 3 1 1530s [5,] 3 2 1530s [6,] 3 3 1530s [7,] 3 4 1530s [8,] 3 5 1530s 1530s , , C = cop.2 1530s 1530s col 1530s row x1 x2 1530s [1,][00:52:10.512] getGlobalsAndPackagesXApply() ... 1530s 3 4 1530s [2,] 3 3 1530s [3,] 3 2 1530s [4,] 3 1 1530s [5,] 3 2 1530s [6,] 3 3 1530s [7,] 3 4 1530s [8,] 3 5 1530s 1530s , , C = cop.3 1530s 1530s col 1530s row x1 x2 1530s [1,] 3 4 1530s [2,] 3 3 1530s [3,] 3 2 1530s [4,] 3 1 1530s [5,] 3 2 1530s [6,] 3 3 1530s [7,] 3 4 1530s [8,] 3 5 1530s 1530s [00:52:10.512] - future.globals: TRUE 1530s [00:52:10.512] getGlobalsAndPackages() ... 1530s [00:52:10.512] Searching for globals... 1530s [00:52:10.514] - globals found: [3] ‘FUN’, ‘seq_len’, ‘max’ 1530s [00:52:10.515] Searching for globals ... DONE 1530s [00:52:10.515] Resolving globals: FALSE 1530s [00:52:10.515] The total size of the 1 globals is 1.73 KiB (1768 bytes) 1530s [00:52:10.516] The total size of the 1 globals exported for future expression (‘FUN(X = structure(1:24, dim = 2:4))’) is 1.73 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.73 KiB of class ‘function’) 1530s [00:52:10.516] - globals: [1] ‘FUN’ 1530s [00:52:10.516] 1530s [00:52:10.517] getGlobalsAndPackages() ... DONE 1530s [00:52:10.517] - globals found/used: [n=1] ‘FUN’ 1530s [00:52:10.517] - needed namespaces: [n=0] 1530s [00:52:10.517] Finding globals ... DONE 1530s [00:52:10.517] - use_args: TRUE 1530s [00:52:10.517] - Getting '...' globals ... 1530s [00:52:10.518] resolve() on list ... 1530s [00:52:10.518] recursive: 0 1530s [00:52:10.518] length: 1 1530s [00:52:10.518] elements: ‘...’ 1530s [00:52:10.518] length: 0 (resolved future 1) 1530s [00:52:10.519] resolve() on list ... DONE 1530s [00:52:10.519] - '...' content: [n=0] 1530s [00:52:10.519] List of 1 1530s [00:52:10.519] $ ...: list() 1530s [00:52:10.519] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1530s [00:52:10.519] - attr(*, "where")=List of 1 1530s [00:52:10.519] ..$ ...: 1530s [00:52:10.519] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1530s [00:52:10.519] - attr(*, "resolved")= logi TRUE 1530s [00:52:10.519] - attr(*, "total_size")= num NA 1530s [00:52:10.523] - Getting '...' globals ... DONE 1530s [00:52:10.523] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1530s [00:52:10.523] List of 2 1530s [00:52:10.523] $ ...future.FUN:function (x) 1530s [00:52:10.523] $ ... : list() 1530s [00:52:10.523] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1530s [00:52:10.523] - attr(*, "where")=List of 2 1530s [00:52:10.523] ..$ ...future.FUN: 1530s [00:52:10.523] ..$ ... : 1530s [00:52:10.523] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1530s [00:52:10.523] - attr(*, "resolved")= logi FALSE 1530s [00:52:10.523] - attr(*, "total_size")= num 1768 1530s [00:52:10.526] Packages to be attached in all futures: [n=0] 1530s [00:52:10.527] getGlobalsAndPackagesXApply() ... DONE 1530s [00:52:10.530] future_lapply() ... 1530s [00:52:10.534] Number of chunks: 1 1530s [00:52:10.534] getGlobalsAndPackagesXApply() ... 1530s [00:52:10.535] - future.globals: with names ‘list()’ 1530s [00:52:10.535] - use_args: TRUE 1530s [00:52:10.536] Globals to be used in all futures (chunks): [n=2] ‘...’, ‘...future.FUN’ 1530s [00:52:10.536] List of 2 1530s [00:52:10.536] $ ... : list() 1530s [00:52:10.536] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1530s [00:52:10.536] $ ...future.FUN:function (x) 1530s [00:52:10.536] - attr(*, "where")=List of 2 1530s [00:52:10.536] ..$ ... : 1530s [00:52:10.536] ..$ ...future.FUN: 1530s [00:52:10.536] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1530s [00:52:10.536] - attr(*, "resolved")= logi FALSE 1530s [00:52:10.536] - attr(*, "total_size")= num NA 1530s [00:52:10.540] Packages to be attached in all futures: [n=0] 1530s [00:52:10.540] getGlobalsAndPackagesXApply() ... DONE 1530s [00:52:10.540] Number of futures (= number of chunks): 1 1530s [00:52:10.541] Launching 1 futures (chunks) ... 1530s [00:52:10.541] Chunk #1 of 1 ... 1530s [00:52:10.541] - seeds: 1530s [00:52:10.541] - All globals exported: [n=5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1530s [00:52:10.545] getGlobalsAndPackages() ... 1530s [00:52:10.545] - globals passed as-is: [5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1530s [00:52:10.545] Resolving globals: FALSE 1530s [00:52:10.546] Tweak future expression to call with '...' arguments ... 1530s [00:52:10.546] { 1530s [00:52:10.546] do.call(function(...) { 1530s [00:52:10.546] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1530s [00:52:10.546] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1530s [00:52:10.546] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1530s [00:52:10.546] on.exit(options(oopts), add = TRUE) 1530s [00:52:10.546] } 1530s [00:52:10.546] { 1530s [00:52:10.546] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1530s [00:52:10.546] ...future.X_jj <- ...future.elements_ii[[jj]] 1530s [00:52:10.546] ...future.FUN(...future.X_jj, ...) 1530s [00:52:10.546] }) 1530s [00:52:10.546] } 1530s [00:52:10.546] }, args = future.call.arguments) 1530s [00:52:10.546] } 1530s [00:52:10.546] Tweak future expression to call with '...' arguments ... DONE 1530s [00:52:10.547] - globals: [5] ‘future.call.arguments’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1530s [00:52:10.547] 1530s [00:52:10.548] getGlobalsAndPackages() ... DONE 1530s [00:52:10.548] run() for ‘Future’ ... 1530s [00:52:10.548] - state: ‘created’ 1530s [00:52:10.549] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1530s [00:52:10.553] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1530s [00:52:10.554] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1530s [00:52:10.554] - Field: ‘label’ 1530s [00:52:10.554] - Field: ‘local’ 1530s [00:52:10.555] - Field: ‘owner’ 1530s [00:52:10.555] - Field: ‘envir’ 1530s [00:52:10.555] - Field: ‘packages’ 1530s [00:52:10.555] - Field: ‘gc’ 1530s [00:52:10.555] - Field: ‘conditions’ 1530s [00:52:10.556] - Field: ‘expr’ 1530s [00:52:10.556] - Field: ‘uuid’ 1530s [00:52:10.556] - Field: ‘seed’ 1530s [00:52:10.556] - Field: ‘version’ 1530s [00:52:10.557] - Field: ‘result’ 1530s [00:52:10.557] - Field: ‘asynchronous’ 1530s [00:52:10.557] - Field: ‘calls’ 1530s [00:52:10.557] - Field: ‘globals’ 1530s [00:52:10.558] - Field: ‘stdout’ 1530s [00:52:10.558] - Field: ‘earlySignal’ 1530s [00:52:10.558] - Field: ‘lazy’ 1530s [00:52:10.558] - Field: ‘state’ 1530s [00:52:10.558] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1530s [00:52:10.558] - Launch lazy future ... 1530s [00:52:10.559] Packages needed by the future expression (n = 0): 1530s [00:52:10.559] Packages needed by future strategies (n = 0): 1530s [00:52:10.560] { 1530s [00:52:10.560] { 1530s [00:52:10.560] { 1530s [00:52:10.560] ...future.startTime <- base::Sys.time() 1530s [00:52:10.560] { 1530s [00:52:10.560] { 1530s [00:52:10.560] { 1530s [00:52:10.560] base::local({ 1530s [00:52:10.560] has_future <- base::requireNamespace("future", 1530s [00:52:10.560] quietly = TRUE) 1530s [00:52:10.560] if (has_future) { 1530s [00:52:10.560] ns <- base::getNamespace("future") 1530s [00:52:10.560] version <- ns[[".package"]][["version"]] 1530s [00:52:10.560] if (is.null(version)) 1530s [00:52:10.560] version <- utils::packageVersion("future") 1530s [00:52:10.560] } 1530s [00:52:10.560] else { 1530s [00:52:10.560] version <- NULL 1530s [00:52:10.560] } 1530s [00:52:10.560] if (!has_future || version < "1.8.0") { 1530s [00:52:10.560] info <- base::c(r_version = base::gsub("R version ", 1530s [00:52:10.560] "", base::R.version$version.string), 1530s [00:52:10.560] platform = base::sprintf("%s (%s-bit)", 1530s [00:52:10.560] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1530s [00:52:10.560] os = base::paste(base::Sys.info()[base::c("sysname", 1530s [00:52:10.560] "release", "version")], collapse = " "), 1530s [00:52:10.560] hostname = base::Sys.info()[["nodename"]]) 1530s [00:52:10.560] info <- base::sprintf("%s: %s", base::names(info), 1530s [00:52:10.560] info) 1530s [00:52:10.560] info <- base::paste(info, collapse = "; ") 1530s [00:52:10.560] if (!has_future) { 1530s [00:52:10.560] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1530s [00:52:10.560] info) 1530s [00:52:10.560] } 1530s [00:52:10.560] else { 1530s [00:52:10.560] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1530s [00:52:10.560] info, version) 1530s [00:52:10.560] } 1530s [00:52:10.560] base::stop(msg) 1530s [00:52:10.560] } 1530s [00:52:10.560] }) 1530s [00:52:10.560] } 1530s [00:52:10.560] options(future.plan = NULL) 1530s [00:52:10.560] Sys.unsetenv("R_FUTURE_PLAN") 1530s [00:52:10.560] future::plan("default", .cleanup = FALSE, .init = FALSE) 1530s [00:52:10.560] } 1530s [00:52:10.560] ...future.workdir <- getwd() 1530s [00:52:10.560] } 1530s [00:52:10.560] ...future.oldOptions <- base::as.list(base::.Options) 1530s [00:52:10.560] ...future.oldEnvVars <- base::Sys.getenv() 1530s [00:52:10.560] } 1530s [00:52:10.560] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1530s [00:52:10.560] future.globals.maxSize = Inf, future.globals.method = NULL, 1530s [00:52:10.560] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1530s [00:52:10.560] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1530s [00:52:10.560] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1530s [00:52:10.560] future.stdout.windows.reencode = NULL, width = 80L) 1530s [00:52:10.560] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1530s [00:52:10.560] base::names(...future.oldOptions)) 1530s [00:52:10.560] } 1530s [00:52:10.560] if (FALSE) { 1530s [00:52:10.560] } 1530s [00:52:10.560] else { 1530s [00:52:10.560] if (TRUE) { 1530s [00:52:10.560] ...future.stdout <- base::rawConnection(base::raw(0L), 1530s [00:52:10.560] open = "w") 1530s [00:52:10.560] } 1530s [00:52:10.560] else { 1530s [00:52:10.560] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1530s [00:52:10.560] windows = "NUL", "/dev/null"), open = "w") 1530s [00:52:10.560] } 1530s [00:52:10.560] base::sink(...future.stdout, type = "output", split = FALSE) 1530s [00:52:10.560] base::on.exit(if (!base::is.null(...future.stdout)) { 1530s [00:52:10.560] base::sink(type = "output", split = FALSE) 1530s [00:52:10.560] base::close(...future.stdout) 1530s [00:52:10.560] }, add = TRUE) 1530s [00:52:10.560] } 1530s [00:52:10.560] ...future.frame <- base::sys.nframe() 1530s [00:52:10.560] ...future.conditions <- base::list() 1530s [00:52:10.560] ...future.rng <- base::globalenv()$.Random.seed 1530s [00:52:10.560] if (FALSE) { 1530s [00:52:10.560] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1530s [00:52:10.560] "...future.value", "...future.globalenv.names", ".Random.seed") 1530s [00:52:10.560] } 1530s [00:52:10.560] ...future.result <- base::tryCatch({ 1530s [00:52:10.560] base::withCallingHandlers({ 1530s [00:52:10.560] ...future.value <- base::withVisible(base::local({ 1530s [00:52:10.560] do.call(function(...) { 1530s [00:52:10.560] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1530s [00:52:10.560] if (!identical(...future.globals.maxSize.org, 1530s [00:52:10.560] ...future.globals.maxSize)) { 1530s [00:52:10.560] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1530s [00:52:10.560] on.exit(options(oopts), add = TRUE) 1530s [00:52:10.560] } 1530s [00:52:10.560] { 1530s [00:52:10.560] lapply(seq_along(...future.elements_ii), 1530s [00:52:10.560] FUN = function(jj) { 1530s [00:52:10.560] ...future.X_jj <- ...future.elements_ii[[jj]] 1530s [00:52:10.560] ...future.FUN(...future.X_jj, ...) 1530s [00:52:10.560] }) 1530s [00:52:10.560] } 1530s [00:52:10.560] }, args = future.call.arguments) 1530s [00:52:10.560] })) 1530s [00:52:10.560] future::FutureResult(value = ...future.value$value, 1530s [00:52:10.560] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1530s [00:52:10.560] ...future.rng), globalenv = if (FALSE) 1530s [00:52:10.560] list(added = base::setdiff(base::names(base::.GlobalEnv), 1530s [00:52:10.560] ...future.globalenv.names)) 1530s [00:52:10.560] else NULL, started = ...future.startTime, version = "1.8") 1530s [00:52:10.560] }, condition = base::local({ 1530s [00:52:10.560] c <- base::c 1530s [00:52:10.560] inherits <- base::inherits 1530s [00:52:10.560] invokeRestart <- base::invokeRestart 1530s [00:52:10.560] length <- base::length 1530s [00:52:10.560] list <- base::list 1530s [00:52:10.560] seq.int <- base::seq.int 1530s [00:52:10.560] signalCondition <- base::signalCondition 1530s [00:52:10.560] sys.calls <- base::sys.calls 1530s [00:52:10.560] `[[` <- base::`[[` 1530s [00:52:10.560] `+` <- base::`+` 1530s [00:52:10.560] `<<-` <- base::`<<-` 1530s [00:52:10.560] sysCalls <- function(calls = sys.calls(), from = 1L) { 1530s [00:52:10.560] calls[seq.int(from = from + 12L, to = length(calls) - 1530s [00:52:10.560] 3L)] 1530s [00:52:10.560] } 1530s [00:52:10.560] function(cond) { 1530s [00:52:10.560] is_error <- inherits(cond, "error") 1530s [00:52:10.560] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1530s [00:52:10.560] NULL) 1530s [00:52:10.560] if (is_error) { 1530s [00:52:10.560] sessionInformation <- function() { 1530s [00:52:10.560] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1530s [00:52:10.560] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1530s [00:52:10.560] search = base::search(), system = base::Sys.info()) 1530s [00:52:10.560] } 1530s [00:52:10.560] ...future.conditions[[length(...future.conditions) + 1530s [00:52:10.560] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1530s [00:52:10.560] cond$call), session = sessionInformation(), 1530s [00:52:10.560] timestamp = base::Sys.time(), signaled = 0L) 1530s [00:52:10.560] signalCondition(cond) 1530s [00:52:10.560] } 1530s [00:52:10.560] else if (!ignore && TRUE && inherits(cond, c("condition", 1530s [00:52:10.560] "immediateCondition"))) { 1530s [00:52:10.560] signal <- TRUE && inherits(cond, "immediateCondition") 1530s [00:52:10.560] ...future.conditions[[length(...future.conditions) + 1530s [00:52:10.560] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1530s [00:52:10.560] if (TRUE && !signal) { 1530s [00:52:10.560] muffleCondition <- function (cond, pattern = "^muffle") 1530s [00:52:10.560] { 1530s [00:52:10.560] inherits <- base::inherits 1530s [00:52:10.560] invokeRestart <- base::invokeRestart 1530s [00:52:10.560] is.null <- base::is.null 1530s [00:52:10.560] muffled <- FALSE 1530s [00:52:10.560] if (inherits(cond, "message")) { 1530s [00:52:10.560] muffled <- grepl(pattern, "muffleMessage") 1530s [00:52:10.560] if (muffled) 1530s [00:52:10.560] invokeRestart("muffleMessage") 1530s [00:52:10.560] } 1530s [00:52:10.560] else if (inherits(cond, "warning")) { 1530s [00:52:10.560] muffled <- grepl(pattern, "muffleWarning") 1530s [00:52:10.560] if (muffled) 1530s [00:52:10.560] invokeRestart("muffleWarning") 1530s [00:52:10.560] } 1530s [00:52:10.560] else if (inherits(cond, "condition")) { 1530s [00:52:10.560] if (!is.null(pattern)) { 1530s [00:52:10.560] computeRestarts <- base::computeRestarts 1530s [00:52:10.560] grepl <- base::grepl 1530s [00:52:10.560] restarts <- computeRestarts(cond) 1530s [00:52:10.560] for (restart in restarts) { 1530s [00:52:10.560] name <- restart$name 1530s [00:52:10.560] if (is.null(name)) 1530s [00:52:10.560] next 1530s [00:52:10.560] if (!grepl(pattern, name)) 1530s [00:52:10.560] next 1530s [00:52:10.560] invokeRestart(restart) 1530s [00:52:10.560] muffled <- TRUE 1530s [00:52:10.560] break 1530s [00:52:10.560] } 1530s [00:52:10.560] } 1530s [00:52:10.560] } 1530s [00:52:10.560] invisible(muffled) 1530s [00:52:10.560] } 1530s [00:52:10.560] muffleCondition(cond, pattern = "^muffle") 1530s [00:52:10.560] } 1530s [00:52:10.560] } 1530s [00:52:10.560] else { 1530s [00:52:10.560] if (TRUE) { 1530s [00:52:10.560] muffleCondition <- function (cond, pattern = "^muffle") 1530s [00:52:10.560] { 1530s [00:52:10.560] inherits <- base::inherits 1530s [00:52:10.560] invokeRestart <- base::invokeRestart 1530s [00:52:10.560] is.null <- base::is.null 1530s [00:52:10.560] muffled <- FALSE 1530s [00:52:10.560] if (inherits(cond, "message")) { 1530s [00:52:10.560] muffled <- grepl(pattern, "muffleMessage") 1530s [00:52:10.560] if (muffled) 1530s [00:52:10.560] invokeRestart("muffleMessage") 1530s [00:52:10.560] } 1530s [00:52:10.560] else if (inherits(cond, "warning")) { 1530s [00:52:10.560] muffled <- grepl(pattern, "muffleWarning") 1530s [00:52:10.560] if (muffled) 1530s [00:52:10.560] invokeRestart("muffleWarning") 1530s [00:52:10.560] } 1530s [00:52:10.560] else if (inherits(cond, "condition")) { 1530s [00:52:10.560] if (!is.null(pattern)) { 1530s [00:52:10.560] computeRestarts <- base::computeRestarts 1530s [00:52:10.560] grepl <- base::grepl 1530s [00:52:10.560] restarts <- computeRestarts(cond) 1530s [00:52:10.560] for (restart in restarts) { 1530s [00:52:10.560] name <- restart$name 1530s [00:52:10.560] if (is.null(name)) 1530s [00:52:10.560] next 1530s [00:52:10.560] if (!grepl(pattern, name)) 1530s [00:52:10.560] next 1530s [00:52:10.560] invokeRestart(restart) 1530s [00:52:10.560] muffled <- TRUE 1530s [00:52:10.560] break 1530s [00:52:10.560] } 1530s [00:52:10.560] } 1530s [00:52:10.560] } 1530s [00:52:10.560] invisible(muffled) 1530s [00:52:10.560] } 1530s [00:52:10.560] muffleCondition(cond, pattern = "^muffle") 1530s [00:52:10.560] } 1530s [00:52:10.560] } 1530s [00:52:10.560] } 1530s [00:52:10.560] })) 1530s [00:52:10.560] }, error = function(ex) { 1530s [00:52:10.560] base::structure(base::list(value = NULL, visible = NULL, 1530s [00:52:10.560] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1530s [00:52:10.560] ...future.rng), started = ...future.startTime, 1530s [00:52:10.560] finished = Sys.time(), session_uuid = NA_character_, 1530s [00:52:10.560] version = "1.8"), class = "FutureResult") 1530s [00:52:10.560] }, finally = { 1530s [00:52:10.560] if (!identical(...future.workdir, getwd())) 1530s [00:52:10.560] setwd(...future.workdir) 1530s [00:52:10.560] { 1530s [00:52:10.560] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1530s [00:52:10.560] ...future.oldOptions$nwarnings <- NULL 1530s [00:52:10.560] } 1530s [00:52:10.560] base::options(...future.oldOptions) 1530s [00:52:10.560] if (.Platform$OS.type == "windows") { 1530s [00:52:10.560] old_names <- names(...future.oldEnvVars) 1530s [00:52:10.560] envs <- base::Sys.getenv() 1530s [00:52:10.560] names <- names(envs) 1530s [00:52:10.560] common <- intersect(names, old_names) 1530s [00:52:10.560] added <- setdiff(names, old_names) 1530s [00:52:10.560] removed <- setdiff(old_names, names) 1530s [00:52:10.560] changed <- common[...future.oldEnvVars[common] != 1530s [00:52:10.560] envs[common]] 1530s [00:52:10.560] NAMES <- toupper(changed) 1530s [00:52:10.560] args <- list() 1530s [00:52:10.560] for (kk in seq_along(NAMES)) { 1530s [00:52:10.560] name <- changed[[kk]] 1530s [00:52:10.560] NAME <- NAMES[[kk]] 1530s [00:52:10.560] if (name != NAME && is.element(NAME, old_names)) 1530s [00:52:10.560] next 1530s [00:52:10.560] args[[name]] <- ...future.oldEnvVars[[name]] 1530s [00:52:10.560] } 1530s [00:52:10.560] NAMES <- toupper(added) 1530s [00:52:10.560] for (kk in seq_along(NAMES)) { 1530s [00:52:10.560] name <- added[[kk]] 1530s [00:52:10.560] NAME <- NAMES[[kk]] 1530s [00:52:10.560] if (name != NAME && is.element(NAME, old_names)) 1530s [00:52:10.560] next 1530s [00:52:10.560] args[[name]] <- "" 1530s [00:52:10.560] } 1530s [00:52:10.560] NAMES <- toupper(removed) 1530s [00:52:10.560] for (kk in seq_along(NAMES)) { 1530s [00:52:10.560] name <- removed[[kk]] 1530s [00:52:10.560] NAME <- NAMES[[kk]] 1530s [00:52:10.560] if (name != NAME && is.element(NAME, old_names)) 1530s [00:52:10.560] next 1530s [00:52:10.560] args[[name]] <- ...future.oldEnvVars[[name]] 1530s [00:52:10.560] } 1530s [00:52:10.560] if (length(args) > 0) 1530s [00:52:10.560] base::do.call(base::Sys.setenv, args = args) 1530s [00:52:10.560] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1530s [00:52:10.560] } 1530s [00:52:10.560] else { 1530s [00:52:10.560] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1530s [00:52:10.560] } 1530s [00:52:10.560] { 1530s [00:52:10.560] if (base::length(...future.futureOptionsAdded) > 1530s [00:52:10.560] 0L) { 1530s [00:52:10.560] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1530s [00:52:10.560] base::names(opts) <- ...future.futureOptionsAdded 1530s [00:52:10.560] base::options(opts) 1530s [00:52:10.560] } 1530s [00:52:10.560] { 1530s [00:52:10.560] { 1530s [00:52:10.560] base::assign(".Random.seed", c(10407L, 1726940932L, 1530s [00:52:10.560] -2133974675L, 912538111L, -666439689L, -800972927L, 1530s [00:52:10.560] -965361991L), envir = base::globalenv(), 1530s [00:52:10.560] inherits = FALSE) 1530s [00:52:10.560] NULL 1530s [00:52:10.560] } 1530s [00:52:10.560] options(future.plan = NULL) 1530s [00:52:10.560] if (is.na(NA_character_)) 1530s [00:52:10.560] Sys.unsetenv("R_FUTURE_PLAN") 1530s [00:52:10.560] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1530s [00:52:10.560] future::plan(list(function (..., workers = availableCores(), 1530s [00:52:10.560] lazy = FALSE, rscript_libs = .libPaths(), 1530s [00:52:10.560] envir = parent.frame()) 1530s [00:52:10.560] { 1530s [00:52:10.560] if (is.function(workers)) 1530s [00:52:10.560] workers <- workers() 1530s [00:52:10.560] workers <- structure(as.integer(workers), 1530s [00:52:10.560] class = class(workers)) 1530s [00:52:10.560] stop_if_not(length(workers) == 1, is.finite(workers), 1530s [00:52:10.560] workers >= 1) 1530s [00:52:10.560] if (workers == 1L && !inherits(workers, "AsIs")) { 1530s [00:52:10.560] return(sequential(..., lazy = TRUE, envir = envir)) 1530s [00:52:10.560] } 1530s [00:52:10.560] future <- MultisessionFuture(..., workers = workers, 1530s [00:52:10.560] lazy = lazy, rscript_libs = rscript_libs, 1530s [00:52:10.560] envir = envir) 1530s [00:52:10.560] if (!future$lazy) 1530s [00:52:10.560] future <- run(future) 1530s [00:52:10.560] invisible(future) 1530s [00:52:10.560] }), .cleanup = FALSE, .init = FALSE) 1530s [00:52:10.560] } 1530s [00:52:10.560] } 1530s [00:52:10.560] } 1530s [00:52:10.560] }) 1530s [00:52:10.560] if (TRUE) { 1530s [00:52:10.560] base::sink(type = "output", split = FALSE) 1530s [00:52:10.560] if (TRUE) { 1530s [00:52:10.560] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1530s [00:52:10.560] } 1530s [00:52:10.560] else { 1530s [00:52:10.560] ...future.result["stdout"] <- base::list(NULL) 1530s [00:52:10.560] } 1530s [00:52:10.560] base::close(...future.stdout) 1530s [00:52:10.560] ...future.stdout <- NULL 1530s [00:52:10.560] } 1530s [00:52:10.560] ...future.result$conditions <- ...future.conditions 1530s [00:52:10.560] ...future.result$finished <- base::Sys.time() 1530s [00:52:10.560] ...future.result 1530s [00:52:10.560] } 1530s [00:52:10.566] assign_globals() ... 1530s [00:52:10.566] List of 5 1530s [00:52:10.566] $ future.call.arguments : list() 1530s [00:52:10.566] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1530s [00:52:10.566] $ ...future.FUN :function (x) 1530s [00:52:10.566] $ ...future.elements_ii :List of 6 1530s [00:52:10.566] ..$ : int [1:4] 1 7 13 19 1530s [00:52:10.566] ..$ : int [1:4] 2 8 14 20 1530s [00:52:10.566] ..$ : int [1:4] 3 9 15 21 1530s [00:52:10.566] ..$ : int [1:4] 4 10 16 22 1530s [00:52:10.566] ..$ : int [1:4] 5 11 17 23 1530s [00:52:10.566] ..$ : int [1:4] 6 12 18 24 1530s [00:52:10.566] $ ...future.seeds_ii : NULL 1530s [00:52:10.566] $ ...future.globals.maxSize: num Inf 1530s [00:52:10.566] - attr(*, "resolved")= logi FALSE 1530s [00:52:10.566] - attr(*, "total_size")= num NA 1530s [00:52:10.566] - attr(*, "where")=List of 5 1530s [00:52:10.566] ..$ future.call.arguments : 1530s [00:52:10.566] ..$ ...future.FUN : 1530s [00:52:10.566] ..$ ...future.elements_ii : 1530s [00:52:10.566] ..$ ...future.seeds_ii : 1530s [00:52:10.566] ..$ ...future.globals.maxSize: 1530s [00:52:10.566] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1530s [00:52:10.566] - attr(*, "already-done")= logi TRUE 1530s [00:52:10.581] - copied ‘future.call.arguments’ to environment 1530s [00:52:10.581] - reassign environment for ‘...future.FUN’ 1530s [00:52:10.581] - copied ‘...future.FUN’ to environment 1530s [00:52:10.582] - copied ‘...future.elements_ii’ to environment 1530s [00:52:10.582] - copied ‘...future.seeds_ii’ to environment 1530s [00:52:10.583] - copied ‘...future.globals.maxSize’ to environment 1530s [00:52:10.583] assign_globals() ... done 1530s [00:52:10.584] plan(): Setting new future strategy stack: 1530s [00:52:10.585] List of future strategies: 1530s [00:52:10.585] 1. sequential: 1530s [00:52:10.585] - args: function (..., envir = parent.frame()) 1530s [00:52:10.585] - tweaked: FALSE 1530s [00:52:10.585] - call: NULL 1530s [00:52:10.587] plan(): nbrOfWorkers() = 1 1530s [00:52:10.588] plan(): Setting new future strategy stack: 1530s [00:52:10.588] List of future strategies: 1530s [00:52:10.588] 1. multisession: 1530s [00:52:10.588] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1530s [00:52:10.588] - tweaked: FALSE 1530s [00:52:10.588] - call: plan(strategy) 1530s [00:52:10.592] plan(): nbrOfWorkers() = 1 1530s [00:52:10.592] SequentialFuture started (and completed) 1530s [00:52:10.592] - Launch lazy future ... done 1530s [00:52:10.592] run() for ‘SequentialFuture’ ... done 1530s [00:52:10.593] Created future: 1530s [00:52:10.593] SequentialFuture: 1530s [00:52:10.593] Label: ‘future_apply-1’ 1530s [00:52:10.593] Expression: 1530s [00:52:10.593] { 1530s [00:52:10.593] do.call(function(...) { 1530s [00:52:10.593] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1530s [00:52:10.593] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1530s [00:52:10.593] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1530s [00:52:10.593] on.exit(options(oopts), add = TRUE) 1530s [00:52:10.593] } 1530s [00:52:10.593] { 1530s [00:52:10.593] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1530s [00:52:10.593] ...future.X_jj <- ...future.elements_ii[[jj]] 1530s [00:52:10.593] ...future.FUN(...future.X_jj, ...) 1530s [00:52:10.593] }) 1530s [00:52:10.593] } 1530s [00:52:10.593] }, args = future.call.arguments) 1530s [00:52:10.593] } 1530s [00:52:10.593] Lazy evaluation: FALSE 1530s [00:52:10.593] Asynchronous evaluation: FALSE 1530s [00:52:10.593] Local evaluation: TRUE 1530s [00:52:10.593] Environment: R_GlobalEnv 1530s [00:52:10.593] Capture standard output: TRUE 1530s [00:52:10.593] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1530s [00:52:10.593] Globals: 5 objects totaling 2.16 KiB (DotDotDotList ‘future.call.arguments’ of 0 bytes, function ‘...future.FUN’ of 1.73 KiB, list ‘...future.elements_ii’ of 384 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1530s [00:52:10.593] Packages: 1530s [00:52:10.593] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1530s [00:52:10.593] Resolved: TRUE 1530s [00:52:10.593] Value: 1.03 KiB of class ‘list’ 1530s [00:52:10.593] Early signaling: FALSE 1530s [00:52:10.593] Owner process: 856348fc-72a5-ec0b-63b7-1a3640a93e42 1530s [00:52:10.593] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1530s [00:52:10.595] Chunk #1 of 1 ... DONE 1530s [00:52:10.595] Launching 1 futures (chunks) ... DONE 1530s [00:52:10.595] Resolving 1 futures (chunks) ... 1530s [00:52:10.595] resolve() on list ... 1530s [00:52:10.595] recursive: 0 1530s [00:52:10.595] length: 1 1530s [00:52:10.595] 1530s [00:52:10.596] resolved() for ‘SequentialFuture’ ... 1530s [00:52:10.596] - state: ‘finished’ 1530s [00:52:10.596] - run: TRUE 1530s [00:52:10.596] - result: ‘FutureResult’ 1530s [00:52:10.596] resolved() for ‘SequentialFuture’ ... done 1530s [00:52:10.596] Future #1 1530s [00:52:10.596] signalConditionsASAP(SequentialFuture, pos=1) ... 1530s [00:52:10.596] - nx: 1 1530s [00:52:10.597] - relay: TRUE 1530s [00:52:10.597] - stdout: TRUE 1530s [00:52:10.597] - signal: TRUE 1530s [00:52:10.597] - resignal: FALSE 1530s [00:52:10.597] - force: TRUE 1530s [00:52:10.597] - relayed: [n=1] FALSE 1530s [00:52:10.597] - queued futures: [n=1] FALSE 1530s [00:52:10.597] - until=1 1530s [00:52:10.597] - relaying element #1 1530s [00:52:10.606] - relayed: [n=1] TRUE 1530s [00:52:10.606] - queued futures: [n=1] TRUE 1530s [00:52:10.606] signalConditionsASAP(SequentialFuture, pos=1) ... done 1530s [00:52:10.606] length: 0 (resolved future 1) 1530s [00:52:10.606] Relaying remaining futures 1530s [00:52:10.606] signalConditionsASAP(NULL, pos=0) ... 1530s [00:52:10.607] - nx: 1 1530s [00:52:10.607] - relay: TRUE 1530s [00:52:10.607] - stdout: TRUE 1530s [00:52:10.607] - signal: TRUE 1530s [00:52:10.607] - resignal: FALSE 1530s [00:52:10.607] - force: TRUE 1530s [00:52:10.607] - relayed: [n=1] TRUE 1530s [00:52:10.608] - queued futures: [n=1] TRUE 1530s - flush all 1530s [00:52:10.608] - relayed: [n=1] TRUE 1530s [00:52:10.608] - queued futures: [n=1] TRUE 1530s [00:52:10.608] signalConditionsASAP(NULL, pos=0) ... done 1530s [00:52:10.608] resolve() on list ... DONE 1530s [00:52:10.609] - Number of value chunks collected: 1 1530s [00:52:10.609] Resolving 1 futures (chunks) ... DONE 1530s [00:52:10.609] Reducing values from 1 chunks ... 1530s [00:52:10.609] - Number of values collected after concatenation: 6 1530s [00:52:10.609] - Number of values expected: 6 1530s [,1] [00:52:10.609] Reducing values from 1 chunks ... DONE 1530s [00:52:10.610] future_lapply() ... DONE 1530s [,2] [,3] 1530s [1,] integer,19 integer,21 integer,23 1530s [2,] integer,20 integer,22 integer,24 1530s - apply(X, MARGIN = , ...) ... 1530s [00:52:10.610] getGlobalsAndPackagesXApply() ... 1530s [00:52:10.611] - future.globals: TRUE 1530s [00:52:10.611] getGlobalsAndPackages() ... 1530s [00:52:10.611] Searching for globals... 1530s [00:52:10.612] - globals found: [1] ‘FUN’ 1530s [00:52:10.613] Searching for globals ... DONE 1530s [00:52:10.613] Resolving globals: FALSE 1530s [00:52:10.613] The total size of the 1 globals is 848 bytes (848 bytes) 1530s [00:52:10.614] The total size of the 1 globals exported for future expression (‘FUN(X = structure(1:2, dim = 2:1, dimnames = list(rows = c("a",; "b"), NULL)))’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1530s [00:52:10.614] - globals: [1] ‘FUN’ 1530s [00:52:10.614] 1530s [00:52:10.614] getGlobalsAndPackages() ... DONE 1530s [00:52:10.614] - globals found/used: [n=1] ‘FUN’ 1530s [00:52:10.614] - needed namespaces: [n=0] 1530s [00:52:10.615] Finding globals ... DONE 1530s [00:52:10.615] - use_args: TRUE 1530s [00:52:10.615] - Getting '...' globals ... 1530s [00:52:10.615] resolve() on list ... 1530s [00:52:10.615] recursive: 0 1530s [00:52:10.616] length: 1 1530s [00:52:10.616] elements: ‘...’ 1530s [00:52:10.616] length: 0 (resolved future 1) 1530s [00:52:10.616] resolve() on list ... DONE 1530s [00:52:10.617] - '...' content: [n=0] 1530s [00:52:10.618] List of 1 1530s [00:52:10.618] $ ...: list() 1530s [00:52:10.618] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1530s [00:52:10.618] - attr(*, "where")=List of 1 1530s [00:52:10.618] ..$ ...: 1530s [00:52:10.618] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1530s [00:52:10.618] - attr(*, "resolved")= logi TRUE 1530s [00:52:10.618] - attr(*, "total_size")= num NA 1530s [00:52:10.642] - Getting '...' globals ... DONE 1530s [00:52:10.643] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1530s [00:52:10.643] List of 2 1530s [00:52:10.643] $ ...future.FUN:function (x) 1530s [00:52:10.643] $ ... : list() 1530s [00:52:10.643] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1530s [00:52:10.643] - attr(*, "where")=List of 2 1530s [00:52:10.643] ..$ ...future.FUN: 1530s [00:52:10.643] ..$ ... : 1530s [00:52:10.643] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1530s [00:52:10.643] - attr(*, "resolved")= logi FALSE 1530s [00:52:10.643] - attr(*, "total_size")= num 848 1530s [00:52:10.647] Packages to be attached in all futures: [n=0] 1530s [00:52:10.647] getGlobalsAndPackagesXApply() ... DONE 1530s [00:52:10.650] future_lapply() ... 1530s [00:52:10.653] Number of chunks: 1 1530s [00:52:10.654] getGlobalsAndPackagesXApply() ... 1530s [00:52:10.654] - future.globals: with names ‘list()’ 1530s [00:52:10.654] - use_args: TRUE 1530s [00:52:10.654] Globals to be used in all futures (chunks): [n=2] ‘...’, ‘...future.FUN’ 1530s [00:52:10.654] List of 2 1530s [00:52:10.654] $ ... : list() 1530s [00:52:10.654] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1530s [00:52:10.654] $ ...future.FUN:function (x) 1530s [00:52:10.654] - attr(*, "where")=List of 2 1530s [00:52:10.654] ..$ ... : 1530s [00:52:10.654] ..$ ...future.FUN: 1530s [00:52:10.654] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1530s [00:52:10.654] - attr(*, "resolved")= logi FALSE 1530s [00:52:10.654] - attr(*, "total_size")= num NA 1530s [00:52:10.662] Packages to be attached in all futures: [n=0] 1530s [00:52:10.662] getGlobalsAndPackagesXApply() ... DONE 1530s [00:52:10.662] Number of futures (= number of chunks): 1 1530s [00:52:10.662] Launching 1 futures (chunks) ... 1530s [00:52:10.662] Chunk #1 of 1 ... 1530s [00:52:10.662] - seeds: 1530s [00:52:10.662] - All globals exported: [n=5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1530s [00:52:10.663] getGlobalsAndPackages() ... 1530s [00:52:10.663] - globals passed as-is: [5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1530s [00:52:10.663] Resolving globals: FALSE 1530s [00:52:10.663] Tweak future expression to call with '...' arguments ... 1530s [00:52:10.665] { 1530s [00:52:10.665] do.call(function(...) { 1530s [00:52:10.665] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1530s [00:52:10.665] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1530s [00:52:10.665] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1530s [00:52:10.665] on.exit(options(oopts), add = TRUE) 1530s [00:52:10.665] } 1530s [00:52:10.665] { 1530s [00:52:10.665] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1530s [00:52:10.665] ...future.X_jj <- ...future.elements_ii[[jj]] 1530s [00:52:10.665] ...future.FUN(...future.X_jj, ...) 1530s [00:52:10.665] }) 1530s [00:52:10.665] } 1530s [00:52:10.665] }, args = future.call.arguments) 1530s [00:52:10.665] } 1530s [00:52:10.665] Tweak future expression to call with '...' arguments ... DONE 1530s [00:52:10.666] - globals: [5] ‘future.call.arguments’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1530s [00:52:10.666] 1530s [00:52:10.666] getGlobalsAndPackages() ... DONE 1530s [00:52:10.666] run() for ‘Future’ ... 1530s [00:52:10.666] - state: ‘created’ 1530s [00:52:10.667] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1530s [00:52:10.671] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1530s [00:52:10.672] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1530s [00:52:10.672] - Field: ‘label’ 1530s [00:52:10.672] - Field: ‘local’ 1530s [00:52:10.672] - Field: ‘owner’ 1530s [00:52:10.672] - Field: ‘envir’ 1530s [00:52:10.672] - Field: ‘packages’ 1530s [00:52:10.673] - Field: ‘gc’ 1530s [00:52:10.673] - Field: ‘conditions’ 1530s [00:52:10.673] - Field: ‘expr’ 1530s [00:52:10.673] - Field: ‘uuid’ 1530s [00:52:10.673] - Field: ‘seed’ 1530s [00:52:10.673] - Field: ‘version’ 1530s [00:52:10.674] - Field: ‘result’ 1530s [00:52:10.674] - Field: ‘asynchronous’ 1530s [00:52:10.674] - Field: ‘calls’ 1530s [00:52:10.674] - Field: ‘globals’ 1530s [00:52:10.674] - Field: ‘stdout’ 1530s [00:52:10.674] - Field: ‘earlySignal’ 1530s [00:52:10.675] - Field: ‘lazy’ 1530s [00:52:10.675] - Field: ‘state’ 1530s [00:52:10.675] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1530s [00:52:10.675] - Launch lazy future ... 1530s [00:52:10.675] Packages needed by the future expression (n = 0): 1530s [00:52:10.675] Packages needed by future strategies (n = 0): 1530s [00:52:10.676] { 1530s [00:52:10.676] { 1530s [00:52:10.676] { 1530s [00:52:10.676] ...future.startTime <- base::Sys.time() 1530s [00:52:10.676] { 1530s [00:52:10.676] { 1530s [00:52:10.676] { 1530s [00:52:10.676] base::local({ 1530s [00:52:10.676] has_future <- base::requireNamespace("future", 1530s [00:52:10.676] quietly = TRUE) 1530s [00:52:10.676] if (has_future) { 1530s [00:52:10.676] ns <- base::getNamespace("future") 1530s [00:52:10.676] version <- ns[[".package"]][["version"]] 1530s [00:52:10.676] if (is.null(version)) 1530s [00:52:10.676] version <- utils::packageVersion("future") 1530s [00:52:10.676] } 1530s [00:52:10.676] else { 1530s [00:52:10.676] version <- NULL 1530s [00:52:10.676] } 1530s [00:52:10.676] if (!has_future || version < "1.8.0") { 1530s [00:52:10.676] info <- base::c(r_version = base::gsub("R version ", 1530s [00:52:10.676] "", base::R.version$version.string), 1530s [00:52:10.676] platform = base::sprintf("%s (%s-bit)", 1530s [00:52:10.676] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1530s [00:52:10.676] os = base::paste(base::Sys.info()[base::c("sysname", 1530s [00:52:10.676] "release", "version")], collapse = " "), 1530s [00:52:10.676] hostname = base::Sys.info()[["nodename"]]) 1530s [00:52:10.676] info <- base::sprintf("%s: %s", base::names(info), 1530s [00:52:10.676] info) 1530s [00:52:10.676] info <- base::paste(info, collapse = "; ") 1530s [00:52:10.676] if (!has_future) { 1530s [00:52:10.676] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1530s [00:52:10.676] info) 1530s [00:52:10.676] } 1530s [00:52:10.676] else { 1530s [00:52:10.676] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1530s [00:52:10.676] info, version) 1530s [00:52:10.676] } 1530s [00:52:10.676] base::stop(msg) 1530s [00:52:10.676] } 1530s [00:52:10.676] }) 1530s [00:52:10.676] } 1530s [00:52:10.676] options(future.plan = NULL) 1530s [00:52:10.676] Sys.unsetenv("R_FUTURE_PLAN") 1530s [00:52:10.676] future::plan("default", .cleanup = FALSE, .init = FALSE) 1530s [00:52:10.676] } 1530s [00:52:10.676] ...future.workdir <- getwd() 1530s [00:52:10.676] } 1530s [00:52:10.676] ...future.oldOptions <- base::as.list(base::.Options) 1530s [00:52:10.676] ...future.oldEnvVars <- base::Sys.getenv() 1530s [00:52:10.676] } 1530s [00:52:10.676] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1530s [00:52:10.676] future.globals.maxSize = Inf, future.globals.method = NULL, 1530s [00:52:10.676] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1530s [00:52:10.676] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1530s [00:52:10.676] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1530s [00:52:10.676] future.stdout.windows.reencode = NULL, width = 80L) 1530s [00:52:10.676] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1530s [00:52:10.676] base::names(...future.oldOptions)) 1530s [00:52:10.676] } 1530s [00:52:10.676] if (FALSE) { 1530s [00:52:10.676] } 1530s [00:52:10.676] else { 1530s [00:52:10.676] if (TRUE) { 1530s [00:52:10.676] ...future.stdout <- base::rawConnection(base::raw(0L), 1530s [00:52:10.676] open = "w") 1530s [00:52:10.676] } 1530s [00:52:10.676] else { 1530s [00:52:10.676] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1530s [00:52:10.676] windows = "NUL", "/dev/null"), open = "w") 1530s [00:52:10.676] } 1530s [00:52:10.676] base::sink(...future.stdout, type = "output", split = FALSE) 1530s [00:52:10.676] base::on.exit(if (!base::is.null(...future.stdout)) { 1530s [00:52:10.676] base::sink(type = "output", split = FALSE) 1530s [00:52:10.676] base::close(...future.stdout) 1530s [00:52:10.676] }, add = TRUE) 1530s [00:52:10.676] } 1530s [00:52:10.676] ...future.frame <- base::sys.nframe() 1530s [00:52:10.676] ...future.conditions <- base::list() 1530s [00:52:10.676] ...future.rng <- base::globalenv()$.Random.seed 1530s [00:52:10.676] if (FALSE) { 1530s [00:52:10.676] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1530s [00:52:10.676] "...future.value", "...future.globalenv.names", ".Random.seed") 1530s [00:52:10.676] } 1530s [00:52:10.676] ...future.result <- base::tryCatch({ 1530s [00:52:10.676] base::withCallingHandlers({ 1530s [00:52:10.676] ...future.value <- base::withVisible(base::local({ 1530s [00:52:10.676] do.call(function(...) { 1530s [00:52:10.676] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1530s [00:52:10.676] if (!identical(...future.globals.maxSize.org, 1530s [00:52:10.676] ...future.globals.maxSize)) { 1530s [00:52:10.676] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1530s [00:52:10.676] on.exit(options(oopts), add = TRUE) 1530s [00:52:10.676] } 1530s [00:52:10.676] { 1530s [00:52:10.676] lapply(seq_along(...future.elements_ii), 1530s [00:52:10.676] FUN = function(jj) { 1530s [00:52:10.676] ...future.X_jj <- ...future.elements_ii[[jj]] 1530s [00:52:10.676] ...future.FUN(...future.X_jj, ...) 1530s [00:52:10.676] }) 1530s [00:52:10.676] } 1530s [00:52:10.676] }, args = future.call.arguments) 1530s [00:52:10.676] })) 1530s [00:52:10.676] future::FutureResult(value = ...future.value$value, 1530s [00:52:10.676] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1530s [00:52:10.676] ...future.rng), globalenv = if (FALSE) 1530s [00:52:10.676] list(added = base::setdiff(base::names(base::.GlobalEnv), 1530s [00:52:10.676] ...future.globalenv.names)) 1530s [00:52:10.676] else NULL, started = ...future.startTime, version = "1.8") 1530s [00:52:10.676] }, condition = base::local({ 1530s [00:52:10.676] c <- base::c 1530s [00:52:10.676] inherits <- base::inherits 1530s [00:52:10.676] invokeRestart <- base::invokeRestart 1530s [00:52:10.676] length <- base::length 1530s [00:52:10.676] list <- base::list 1530s [00:52:10.676] seq.int <- base::seq.int 1530s [00:52:10.676] signalCondition <- base::signalCondition 1530s [00:52:10.676] sys.calls <- base::sys.calls 1530s [00:52:10.676] `[[` <- base::`[[` 1530s [00:52:10.676] `+` <- base::`+` 1530s [00:52:10.676] `<<-` <- base::`<<-` 1530s [00:52:10.676] sysCalls <- function(calls = sys.calls(), from = 1L) { 1530s [00:52:10.676] calls[seq.int(from = from + 12L, to = length(calls) - 1530s [00:52:10.676] 3L)] 1530s [00:52:10.676] } 1530s [00:52:10.676] function(cond) { 1530s [00:52:10.676] is_error <- inherits(cond, "error") 1530s [00:52:10.676] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1530s [00:52:10.676] NULL) 1530s [00:52:10.676] if (is_error) { 1530s [00:52:10.676] sessionInformation <- function() { 1530s [00:52:10.676] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1530s [00:52:10.676] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1530s [00:52:10.676] search = base::search(), system = base::Sys.info()) 1530s [00:52:10.676] } 1530s [00:52:10.676] ...future.conditions[[length(...future.conditions) + 1530s [00:52:10.676] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1530s [00:52:10.676] cond$call), session = sessionInformation(), 1530s [00:52:10.676] timestamp = base::Sys.time(), signaled = 0L) 1530s [00:52:10.676] signalCondition(cond) 1530s [00:52:10.676] } 1530s [00:52:10.676] else if (!ignore && TRUE && inherits(cond, c("condition", 1530s [00:52:10.676] "immediateCondition"))) { 1530s [00:52:10.676] signal <- TRUE && inherits(cond, "immediateCondition") 1530s [00:52:10.676] ...future.conditions[[length(...future.conditions) + 1530s [00:52:10.676] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1530s [00:52:10.676] if (TRUE && !signal) { 1530s [00:52:10.676] muffleCondition <- function (cond, pattern = "^muffle") 1530s [00:52:10.676] { 1530s [00:52:10.676] inherits <- base::inherits 1530s [00:52:10.676] invokeRestart <- base::invokeRestart 1530s [00:52:10.676] is.null <- base::is.null 1530s [00:52:10.676] muffled <- FALSE 1530s [00:52:10.676] if (inherits(cond, "message")) { 1530s [00:52:10.676] muffled <- grepl(pattern, "muffleMessage") 1530s [00:52:10.676] if (muffled) 1530s [00:52:10.676] invokeRestart("muffleMessage") 1530s [00:52:10.676] } 1530s [00:52:10.676] else if (inherits(cond, "warning")) { 1530s [00:52:10.676] muffled <- grepl(pattern, "muffleWarning") 1530s [00:52:10.676] if (muffled) 1530s [00:52:10.676] invokeRestart("muffleWarning") 1530s [00:52:10.676] } 1530s [00:52:10.676] else if (inherits(cond, "condition")) { 1530s [00:52:10.676] if (!is.null(pattern)) { 1530s [00:52:10.676] computeRestarts <- base::computeRestarts 1530s [00:52:10.676] grepl <- base::grepl 1530s [00:52:10.676] restarts <- computeRestarts(cond) 1530s [00:52:10.676] for (restart in restarts) { 1530s [00:52:10.676] name <- restart$name 1530s [00:52:10.676] if (is.null(name)) 1530s [00:52:10.676] next 1530s [00:52:10.676] if (!grepl(pattern, name)) 1530s [00:52:10.676] next 1530s [00:52:10.676] invokeRestart(restart) 1530s [00:52:10.676] muffled <- TRUE 1530s [00:52:10.676] break 1530s [00:52:10.676] } 1530s [00:52:10.676] } 1530s [00:52:10.676] } 1530s [00:52:10.676] invisible(muffled) 1530s [00:52:10.676] } 1530s [00:52:10.676] muffleCondition(cond, pattern = "^muffle") 1530s [00:52:10.676] } 1530s [00:52:10.676] } 1530s [00:52:10.676] else { 1530s [00:52:10.676] if (TRUE) { 1530s [00:52:10.676] muffleCondition <- function (cond, pattern = "^muffle") 1530s [00:52:10.676] { 1530s [00:52:10.676] inherits <- base::inherits 1530s [00:52:10.676] invokeRestart <- base::invokeRestart 1530s [00:52:10.676] is.null <- base::is.null 1530s [00:52:10.676] muffled <- FALSE 1530s [00:52:10.676] if (inherits(cond, "message")) { 1530s [00:52:10.676] muffled <- grepl(pattern, "muffleMessage") 1530s [00:52:10.676] if (muffled) 1530s [00:52:10.676] invokeRestart("muffleMessage") 1530s [00:52:10.676] } 1530s [00:52:10.676] else if (inherits(cond, "warning")) { 1530s [00:52:10.676] muffled <- grepl(pattern, "muffleWarning") 1530s [00:52:10.676] if (muffled) 1530s [00:52:10.676] invokeRestart("muffleWarning") 1530s [00:52:10.676] } 1530s [00:52:10.676] else if (inherits(cond, "condition")) { 1530s [00:52:10.676] if (!is.null(pattern)) { 1530s [00:52:10.676] computeRestarts <- base::computeRestarts 1530s [00:52:10.676] grepl <- base::grepl 1530s [00:52:10.676] restarts <- computeRestarts(cond) 1530s [00:52:10.676] for (restart in restarts) { 1530s [00:52:10.676] name <- restart$name 1530s [00:52:10.676] if (is.null(name)) 1530s [00:52:10.676] next 1530s [00:52:10.676] if (!grepl(pattern, name)) 1530s [00:52:10.676] next 1530s [00:52:10.676] invokeRestart(restart) 1530s [00:52:10.676] muffled <- TRUE 1530s [00:52:10.676] break 1530s [00:52:10.676] } 1530s [00:52:10.676] } 1530s [00:52:10.676] } 1530s [00:52:10.676] invisible(muffled) 1530s [00:52:10.676] } 1530s [00:52:10.676] muffleCondition(cond, pattern = "^muffle") 1530s [00:52:10.676] } 1530s [00:52:10.676] } 1530s [00:52:10.676] } 1530s [00:52:10.676] })) 1530s [00:52:10.676] }, error = function(ex) { 1530s [00:52:10.676] base::structure(base::list(value = NULL, visible = NULL, 1530s [00:52:10.676] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1530s [00:52:10.676] ...future.rng), started = ...future.startTime, 1530s [00:52:10.676] finished = Sys.time(), session_uuid = NA_character_, 1530s [00:52:10.676] version = "1.8"), class = "FutureResult") 1530s [00:52:10.676] }, finally = { 1530s [00:52:10.676] if (!identical(...future.workdir, getwd())) 1530s [00:52:10.676] setwd(...future.workdir) 1530s [00:52:10.676] { 1530s [00:52:10.676] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1530s [00:52:10.676] ...future.oldOptions$nwarnings <- NULL 1530s [00:52:10.676] } 1530s [00:52:10.676] base::options(...future.oldOptions) 1530s [00:52:10.676] if (.Platform$OS.type == "windows") { 1530s [00:52:10.676] old_names <- names(...future.oldEnvVars) 1530s [00:52:10.676] envs <- base::Sys.getenv() 1530s [00:52:10.676] names <- names(envs) 1530s [00:52:10.676] common <- intersect(names, old_names) 1530s [00:52:10.676] added <- setdiff(names, old_names) 1530s [00:52:10.676] removed <- setdiff(old_names, names) 1530s [00:52:10.676] changed <- common[...future.oldEnvVars[common] != 1530s [00:52:10.676] envs[common]] 1530s [00:52:10.676] NAMES <- toupper(changed) 1530s [00:52:10.676] args <- list() 1530s [00:52:10.676] for (kk in seq_along(NAMES)) { 1530s [00:52:10.676] name <- changed[[kk]] 1530s [00:52:10.676] NAME <- NAMES[[kk]] 1530s [00:52:10.676] if (name != NAME && is.element(NAME, old_names)) 1530s [00:52:10.676] next 1530s [00:52:10.676] args[[name]] <- ...future.oldEnvVars[[name]] 1530s [00:52:10.676] } 1530s [00:52:10.676] NAMES <- toupper(added) 1530s [00:52:10.676] for (kk in seq_along(NAMES)) { 1530s [00:52:10.676] name <- added[[kk]] 1530s [00:52:10.676] NAME <- NAMES[[kk]] 1530s [00:52:10.676] if (name != NAME && is.element(NAME, old_names)) 1530s [00:52:10.676] next 1530s [00:52:10.676] args[[name]] <- "" 1530s [00:52:10.676] } 1530s [00:52:10.676] NAMES <- toupper(removed) 1530s [00:52:10.676] for (kk in seq_along(NAMES)) { 1530s [00:52:10.676] name <- removed[[kk]] 1530s [00:52:10.676] NAME <- NAMES[[kk]] 1530s [00:52:10.676] if (name != NAME && is.element(NAME, old_names)) 1530s [00:52:10.676] next 1530s [00:52:10.676] args[[name]] <- ...future.oldEnvVars[[name]] 1530s [00:52:10.676] } 1530s [00:52:10.676] if (length(args) > 0) 1530s [00:52:10.676] base::do.call(base::Sys.setenv, args = args) 1530s [00:52:10.676] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1530s [00:52:10.676] } 1530s [00:52:10.676] else { 1530s [00:52:10.676] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1530s [00:52:10.676] } 1530s [00:52:10.676] { 1530s [00:52:10.676] if (base::length(...future.futureOptionsAdded) > 1530s [00:52:10.676] 0L) { 1530s [00:52:10.676] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1530s [00:52:10.676] base::names(opts) <- ...future.futureOptionsAdded 1530s [00:52:10.676] base::options(opts) 1530s [00:52:10.676] } 1530s [00:52:10.676] { 1530s [00:52:10.676] { 1530s [00:52:10.676] base::assign(".Random.seed", c(10407L, 1726940932L, 1530s [00:52:10.676] -2133974675L, 912538111L, -666439689L, -800972927L, 1530s [00:52:10.676] -965361991L), envir = base::globalenv(), 1530s [00:52:10.676] inherits = FALSE) 1530s [00:52:10.676] NULL 1530s [00:52:10.676] } 1530s [00:52:10.676] options(future.plan = NULL) 1530s [00:52:10.676] if (is.na(NA_character_)) 1530s [00:52:10.676] Sys.unsetenv("R_FUTURE_PLAN") 1530s [00:52:10.676] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1530s [00:52:10.676] future::plan(list(function (..., workers = availableCores(), 1530s [00:52:10.676] lazy = FALSE, rscript_libs = .libPaths(), 1530s [00:52:10.676] envir = parent.frame()) 1530s [00:52:10.676] { 1530s [00:52:10.676] if (is.function(workers)) 1530s [00:52:10.676] workers <- workers() 1530s [00:52:10.676] workers <- structure(as.integer(workers), 1530s [00:52:10.676] class = class(workers)) 1530s [00:52:10.676] stop_if_not(length(workers) == 1, is.finite(workers), 1530s [00:52:10.676] workers >= 1) 1530s [00:52:10.676] if (workers == 1L && !inherits(workers, "AsIs")) { 1530s [00:52:10.676] return(sequential(..., lazy = TRUE, envir = envir)) 1530s [00:52:10.676] } 1530s [00:52:10.676] future <- MultisessionFuture(..., workers = workers, 1530s [00:52:10.676] lazy = lazy, rscript_libs = rscript_libs, 1530s [00:52:10.676] envir = envir) 1530s [00:52:10.676] if (!future$lazy) 1530s [00:52:10.676] future <- run(future) 1530s [00:52:10.676] invisible(future) 1530s [00:52:10.676] }), .cleanup = FALSE, .init = FALSE) 1530s [00:52:10.676] } 1530s [00:52:10.676] } 1530s [00:52:10.676] } 1530s [00:52:10.676] }) 1530s [00:52:10.676] if (TRUE) { 1530s [00:52:10.676] base::sink(type = "output", split = FALSE) 1530s [00:52:10.676] if (TRUE) { 1530s [00:52:10.676] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1530s [00:52:10.676] } 1530s [00:52:10.676] else { 1530s [00:52:10.676] ...future.result["stdout"] <- base::list(NULL) 1530s [00:52:10.676] } 1530s [00:52:10.676] base::close(...future.stdout) 1530s [00:52:10.676] ...future.stdout <- NULL 1530s [00:52:10.676] } 1530s [00:52:10.676] ...future.result$conditions <- ...future.conditions 1530s [00:52:10.676] ...future.result$finished <- base::Sys.time() 1530s [00:52:10.676] ...future.result 1530s [00:52:10.676] } 1530s [00:52:10.682] assign_globals() ... 1530s [00:52:10.682] List of 5 1530s [00:52:10.682] $ future.call.arguments : list() 1530s [00:52:10.682] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1530s [00:52:10.682] $ ...future.FUN :function (x) 1530s [00:52:10.682] $ ...future.elements_ii :List of 2 1530s [00:52:10.682] ..$ : int 1 1530s [00:52:10.682] ..$ : int 2 1530s [00:52:10.682] $ ...future.seeds_ii : NULL 1530s [00:52:10.682] $ ...future.globals.maxSize: num Inf 1530s [00:52:10.682] - attr(*, "resolved")= logi FALSE 1530s [00:52:10.682] - attr(*, "total_size")= num NA 1530s [00:52:10.682] - attr(*, "where")=List of 5 1530s [00:52:10.682] ..$ future.call.arguments : 1530s [00:52:10.682] ..$ ...future.FUN : 1530s [00:52:10.682] ..$ ...future.elements_ii : 1530s [00:52:10.682] ..$ ...future.seeds_ii : 1530s [00:52:10.682] ..$ ...future.globals.maxSize: 1530s [00:52:10.682] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1530s [00:52:10.682] - attr(*, "already-done")= logi TRUE 1530s [00:52:10.698] - copied ‘future.call.arguments’ to environment 1530s [00:52:10.699] - copied ‘...future.FUN’ to environment 1530s [00:52:10.700] - copied ‘...future.elements_ii’ to environment 1530s [00:52:10.700] - copied ‘...future.seeds_ii’ to environment 1530s [00:52:10.700] - copied ‘...future.globals.maxSize’ to environment 1530s [00:52:10.701] assign_globals() ... done 1530s [00:52:10.702] plan(): Setting new future strategy stack: 1530s [00:52:10.703] List of future strategies: 1530s [00:52:10.703] 1. sequential: 1530s [00:52:10.703] - args: function (..., envir = parent.frame()) 1530s [00:52:10.703] - tweaked: FALSE 1530s [00:52:10.703] - call: NULL 1530s [00:52:10.703] plan(): nbrOfWorkers() = 1 1530s [00:52:10.705] plan(): Setting new future strategy stack: 1530s [00:52:10.705] List of future strategies: 1530s [00:52:10.705] 1. multisession: 1530s [00:52:10.705] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1530s [00:52:10.705] - tweaked: FALSE 1530s [00:52:10.705] - call: plan(strategy) 1530s [00:52:10.720] plan(): nbrOfWorkers() = 1 1530s [00:52:10.721] SequentialFuture started (and completed) 1530s [00:52:10.721] - Launch lazy future ... done 1530s [00:52:10.721] run() for ‘SequentialFuture’ ... done 1530s [00:52:10.721] Created future: 1530s [00:52:10.721] SequentialFuture: 1530s [00:52:10.721] Label: ‘future_apply-1’ 1530s [00:52:10.721] Expression: 1530s [00:52:10.721] { 1530s [00:52:10.721] do.call(function(...) { 1530s [00:52:10.721] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1530s [00:52:10.721] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1530s [00:52:10.721] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1530s [00:52:10.721] on.exit(options(oopts), add = TRUE) 1530s [00:52:10.721] } 1530s [00:52:10.721] { 1530s [00:52:10.721] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1530s [00:52:10.721] ...future.X_jj <- ...future.elements_ii[[jj]] 1530s [00:52:10.721] ...future.FUN(...future.X_jj, ...) 1530s [00:52:10.721] }) 1530s [00:52:10.721] } 1530s [00:52:10.721] }, args = future.call.arguments) 1530s [00:52:10.721] } 1530s [00:52:10.721] Lazy evaluation: FALSE 1530s [00:52:10.721] Asynchronous evaluation: FALSE 1530s [00:52:10.721] Local evaluation: TRUE 1530s [00:52:10.721] Environment: R_GlobalEnv 1530s [00:52:10.721] Capture standard output: TRUE 1530s [00:52:10.721] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1530s [00:52:10.721] Globals: 5 objects totaling 0.99 KiB (DotDotDotList ‘future.call.arguments’ of 0 bytes, function ‘...future.FUN’ of 848 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1530s [00:52:10.721] Packages: 1530s [00:52:10.721] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1530s [00:52:10.721] Resolved: TRUE 1530s [00:52:10.721] Value: 112 bytes of class ‘list’ 1530s [00:52:10.721] Early signaling: FALSE 1530s [00:52:10.721] Owner process: 856348fc-72a5-ec0b-63b7-1a3640a93e42 1530s [00:52:10.721] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1530s [00:52:10.723] Chunk #1 of 1 ... DONE 1530s [00:52:10.723] Launching 1 futures (chunks) ... DONE 1530s [00:52:10.723] Resolving 1 futures (chunks) ... 1530s [00:52:10.723] resolve() on list ... 1530s [00:52:10.724] recursive: 0 1530s [00:52:10.724] length: 1 1530s [00:52:10.724] 1530s [00:52:10.724] resolved() for ‘SequentialFuture’ ... 1530s [00:52:10.724] - state: ‘finished’ 1530s [00:52:10.724] - run: TRUE 1530s [00:52:10.725] - result: ‘FutureResult’ 1530s [00:52:10.725] resolved() for ‘SequentialFuture’ ... done 1530s [00:52:10.725] Future #1 1530s [00:52:10.725] signalConditionsASAP(SequentialFuture, pos=1) ... 1530s [00:52:10.725] - nx: 1 1530s [00:52:10.725] - relay: TRUE 1530s [00:52:10.726] - stdout: TRUE 1530s [00:52:10.727] - signal: TRUE 1530s [00:52:10.727] - resignal: FALSE 1530s [00:52:10.728] - force: TRUE 1530s [00:52:10.728] - relayed: [n=1] FALSE 1530s [00:52:10.729] - queued futures: [n=1] FALSE 1530s [00:52:10.729] - until=1 1530s [00:52:10.730] - relaying element #1 1530s [00:52:10.731] - relayed: [n=1] TRUE 1530s [00:52:10.731] - queued futures: [n=1] TRUE 1530s [00:52:10.731] signalConditionsASAP(SequentialFuture, pos=1) ... done 1530s [00:52:10.732] length: 0 (resolved future 1) 1530s [00:52:10.733] Relaying remaining futures 1530s [00:52:10.734] signalConditionsASAP(NULL, pos=0) ... 1530s [00:52:10.734] - nx: 1 1530s [00:52:10.735] - relay: TRUE 1530s [00:52:10.735] - stdout: TRUE 1530s [00:52:10.736] - signal: TRUE 1530s [00:52:10.736] - resignal: FALSE 1530s [00:52:10.737] - force: TRUE 1530s [00:52:10.737] - relayed: [n=1] TRUE 1530s [00:52:10.738] - queued futures: [n=1] TRUE 1530s - flush all 1530s [00:52:10.738] - relayed: [n=1] TRUE 1530s [00:52:10.739] - queued futures: [n=1] TRUE 1530s [00:52:10.745] signalConditionsASAP(NULL, pos=0) ... done 1530s [00:52:10.746] resolve() on list ... DONE 1530s [00:52:10.747] - Number of value chunks collected: 1 1530s [00:52:10.747] Resolving 1 futures (chunks) ... DONE 1530s [00:52:10.747] Reducing values from 1 chunks ... 1530s [00:52:10.748] - Number of values collected after concatenation: 2 1530s [00:52:10.749] - Number of values expected: 2 1530s [00:52:10.750] Reducing values from 1 chunks ... DONE 1530s a b 1530s 1 2 1530s [00:52:10.750] future_lapply() ... DONE 1530s - apply(X, ...) - dim(X) > 2 ... 1530s [00:52:10.753] getGlobalsAndPackagesXApply() ... 1530s [00:52:10.753] - future.globals: TRUE 1530s [00:52:10.754] getGlobalsAndPackages() ... 1530s [00:52:10.755] Searching for globals... 1530s [00:52:10.758] - globals found: [1] ‘FUN’ 1530s [00:52:10.759] Searching for globals ... DONE 1530s [00:52:10.759] Resolving globals: FALSE 1530s [00:52:10.761] The total size of the 1 globals is 848 bytes (848 bytes) 1530s [00:52:10.763] The total size of the 1 globals exported for future expression (‘FUN(X = structure(1:12, dim = c(2L, 2L, 3L)))’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1530s [00:52:10.763] - globals: [1] ‘FUN’ 1530s [00:52:10.764] 1530s [00:52:10.764] getGlobalsAndPackages() ... DONE 1530s [00:52:10.764] - globals found/used: [n=1] ‘FUN’ 1530s [00:52:10.764] - needed namespaces: [n=0] 1530s [00:52:10.765] Finding globals ... DONE 1530s [00:52:10.766] - use_args: TRUE 1530s [00:52:10.767] - Getting '...' globals ... 1530s [00:52:10.769] resolve() on list ... 1530s [00:52:10.770] recursive: 0 1530s [00:52:10.770] length: 1 1530s [00:52:10.770] elements: ‘...’ 1530s [00:52:10.770] length: 0 (resolved future 1) 1530s [00:52:10.771] resolve() on list ... DONE 1530s [00:52:10.771] - '...' content: [n=0] 1530s [00:52:10.771] List of 1 1530s [00:52:10.771] $ ...: list() 1530s [00:52:10.771] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1530s [00:52:10.771] - attr(*, "where")=List of 1 1530s [00:52:10.771] ..$ ...: 1530s [00:52:10.771] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1530s [00:52:10.771] - attr(*, "resolved")= logi TRUE 1530s [00:52:10.771] - attr(*, "total_size")= num NA 1530s [00:52:10.774] - Getting '...' globals ... DONE 1530s [00:52:10.775] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1530s [00:52:10.775] List of 2 1530s [00:52:10.775] $ ...future.FUN:function (x) 1530s [00:52:10.775] $ ... : list() 1530s [00:52:10.775] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1530s [00:52:10.775] - attr(*, "where")=List of 2 1530s [00:52:10.775] ..$ ...future.FUN: 1530s [00:52:10.775] ..$ ... : 1530s [00:52:10.775] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1530s [00:52:10.775] - attr(*, "resolved")= logi FALSE 1530s [00:52:10.775] - attr(*, "total_size")= num 848 1530s [00:52:10.778] Packages to be attached in all futures: [n=0] 1530s [00:52:10.778] getGlobalsAndPackagesXApply() ... DONE 1530s [00:52:10.782] future_lapply() ... 1530s [00:52:10.790] Number of chunks: 1 1530s [00:52:10.791] getGlobalsAndPackagesXApply() ... 1530s [00:52:10.791] - future.globals: with names ‘list()’ 1530s [00:52:10.792] - use_args: TRUE 1530s [00:52:10.792] Globals to be used in all futures (chunks): [n=2] ‘...’, ‘...future.FUN’ 1530s [00:52:10.793] List of 2 1530s [00:52:10.793] $ ... : list() 1530s [00:52:10.793] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1530s [00:52:10.793] $ ...future.FUN:function (x) 1530s [00:52:10.793] - attr(*, "where")=List of 2 1530s [00:52:10.793] ..$ ... : 1530s [00:52:10.793] ..$ ...future.FUN: 1530s [00:52:10.793] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1530s [00:52:10.793] - attr(*, "resolved")= logi FALSE 1530s [00:52:10.793] - attr(*, "total_size")= num NA 1530s [00:52:10.808] Packages to be attached in all futures: [n=0] 1530s [00:52:10.808] getGlobalsAndPackagesXApply() ... DONE 1530s [00:52:10.809] Number of futures (= number of chunks): 1 1530s [00:52:10.810] Launching 1 futures (chunks) ... 1530s [00:52:10.810] Chunk #1 of 1 ... 1530s [00:52:10.811] - seeds: 1530s [00:52:10.812] - All globals exported: [n=5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1530s [00:52:10.813] getGlobalsAndPackages() ... 1530s [00:52:10.813] - globals passed as-is: [5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1530s [00:52:10.814] Resolving globals: FALSE 1530s [00:52:10.815] Tweak future expression to call with '...' arguments ... 1530s [00:52:10.815] { 1530s [00:52:10.815] do.call(function(...) { 1530s [00:52:10.815] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1530s [00:52:10.815] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1530s [00:52:10.815] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1530s [00:52:10.815] on.exit(options(oopts), add = TRUE) 1530s [00:52:10.815] } 1530s [00:52:10.815] { 1530s [00:52:10.815] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1530s [00:52:10.815] ...future.X_jj <- ...future.elements_ii[[jj]] 1530s [00:52:10.815] ...future.FUN(...future.X_jj, ...) 1530s [00:52:10.815] }) 1530s [00:52:10.815] } 1530s [00:52:10.815] }, args = future.call.arguments) 1530s [00:52:10.815] } 1530s [00:52:10.818] Tweak future expression to call with '...' arguments ... DONE 1530s [00:52:10.821] - globals: [5] ‘future.call.arguments’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1530s [00:52:10.822] 1530s [00:52:10.822] getGlobalsAndPackages() ... DONE 1530s [00:52:10.823] run() for ‘Future’ ... 1530s [00:52:10.824] - state: ‘created’ 1530s [00:52:10.825] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1530s [00:52:10.835] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1530s [00:52:10.835] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1530s [00:52:10.835] - Field: ‘label’ 1530s [00:52:10.835] - Field: ‘local’ 1530s [00:52:10.836] - Field: ‘owner’ 1530s [00:52:10.836] - Field: ‘envir’ 1530s [00:52:10.836] - Field: ‘packages’ 1530s [00:52:10.836] - Field: ‘gc’ 1530s [00:52:10.836] - Field: ‘conditions’ 1530s [00:52:10.836] - Field: ‘expr’ 1530s [00:52:10.837] - Field: ‘uuid’ 1530s [00:52:10.837] - Field: ‘seed’ 1530s [00:52:10.837] - Field: ‘version’ 1530s [00:52:10.837] - Field: ‘result’ 1530s [00:52:10.838] - Field: ‘asynchronous’ 1530s [00:52:10.839] - Field: ‘calls’ 1530s [00:52:10.839] - Field: ‘globals’ 1530s [00:52:10.839] - Field: ‘stdout’ 1530s [00:52:10.839] - Field: ‘earlySignal’ 1530s [00:52:10.840] - Field: ‘lazy’ 1530s [00:52:10.840] - Field: ‘state’ 1530s [00:52:10.840] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1530s [00:52:10.841] - Launch lazy future ... 1530s [00:52:10.841] Packages needed by the future expression (n = 0): 1530s [00:52:10.841] Packages needed by future strategies (n = 0): 1530s [00:52:10.842] { 1530s [00:52:10.842] { 1530s [00:52:10.842] { 1530s [00:52:10.842] ...future.startTime <- base::Sys.time() 1530s [00:52:10.842] { 1530s [00:52:10.842] { 1530s [00:52:10.842] { 1530s [00:52:10.842] base::local({ 1530s [00:52:10.842] has_future <- base::requireNamespace("future", 1530s [00:52:10.842] quietly = TRUE) 1530s [00:52:10.842] if (has_future) { 1530s [00:52:10.842] ns <- base::getNamespace("future") 1530s [00:52:10.842] version <- ns[[".package"]][["version"]] 1530s [00:52:10.842] if (is.null(version)) 1530s [00:52:10.842] version <- utils::packageVersion("future") 1530s [00:52:10.842] } 1530s [00:52:10.842] else { 1530s [00:52:10.842] version <- NULL 1530s [00:52:10.842] } 1530s [00:52:10.842] if (!has_future || version < "1.8.0") { 1530s [00:52:10.842] info <- base::c(r_version = base::gsub("R version ", 1530s [00:52:10.842] "", base::R.version$version.string), 1530s [00:52:10.842] platform = base::sprintf("%s (%s-bit)", 1530s [00:52:10.842] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1530s [00:52:10.842] os = base::paste(base::Sys.info()[base::c("sysname", 1530s [00:52:10.842] "release", "version")], collapse = " "), 1530s [00:52:10.842] hostname = base::Sys.info()[["nodename"]]) 1530s [00:52:10.842] info <- base::sprintf("%s: %s", base::names(info), 1530s [00:52:10.842] info) 1530s [00:52:10.842] info <- base::paste(info, collapse = "; ") 1530s [00:52:10.842] if (!has_future) { 1530s [00:52:10.842] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1530s [00:52:10.842] info) 1530s [00:52:10.842] } 1530s [00:52:10.842] else { 1530s [00:52:10.842] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1530s [00:52:10.842] info, version) 1530s [00:52:10.842] } 1530s [00:52:10.842] base::stop(msg) 1530s [00:52:10.842] } 1530s [00:52:10.842] }) 1530s [00:52:10.842] } 1530s [00:52:10.842] options(future.plan = NULL) 1530s [00:52:10.842] Sys.unsetenv("R_FUTURE_PLAN") 1530s [00:52:10.842] future::plan("default", .cleanup = FALSE, .init = FALSE) 1530s [00:52:10.842] } 1530s [00:52:10.842] ...future.workdir <- getwd() 1530s [00:52:10.842] } 1530s [00:52:10.842] ...future.oldOptions <- base::as.list(base::.Options) 1530s [00:52:10.842] ...future.oldEnvVars <- base::Sys.getenv() 1530s [00:52:10.842] } 1530s [00:52:10.842] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1530s [00:52:10.842] future.globals.maxSize = Inf, future.globals.method = NULL, 1530s [00:52:10.842] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1530s [00:52:10.842] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1530s [00:52:10.842] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1530s [00:52:10.842] future.stdout.windows.reencode = NULL, width = 80L) 1530s [00:52:10.842] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1530s [00:52:10.842] base::names(...future.oldOptions)) 1530s [00:52:10.842] } 1530s [00:52:10.842] if (FALSE) { 1530s [00:52:10.842] } 1530s [00:52:10.842] else { 1530s [00:52:10.842] if (TRUE) { 1530s [00:52:10.842] ...future.stdout <- base::rawConnection(base::raw(0L), 1530s [00:52:10.842] open = "w") 1530s [00:52:10.842] } 1530s [00:52:10.842] else { 1530s [00:52:10.842] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1530s [00:52:10.842] windows = "NUL", "/dev/null"), open = "w") 1530s [00:52:10.842] } 1530s [00:52:10.842] base::sink(...future.stdout, type = "output", split = FALSE) 1530s [00:52:10.842] base::on.exit(if (!base::is.null(...future.stdout)) { 1530s [00:52:10.842] base::sink(type = "output", split = FALSE) 1530s [00:52:10.842] base::close(...future.stdout) 1530s [00:52:10.842] }, add = TRUE) 1530s [00:52:10.842] } 1530s [00:52:10.842] ...future.frame <- base::sys.nframe() 1530s [00:52:10.842] ...future.conditions <- base::list() 1530s [00:52:10.842] ...future.rng <- base::globalenv()$.Random.seed 1530s [00:52:10.842] if (FALSE) { 1530s [00:52:10.842] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1530s [00:52:10.842] "...future.value", "...future.globalenv.names", ".Random.seed") 1530s [00:52:10.842] } 1530s [00:52:10.842] ...future.result <- base::tryCatch({ 1530s [00:52:10.842] base::withCallingHandlers({ 1530s [00:52:10.842] ...future.value <- base::withVisible(base::local({ 1530s [00:52:10.842] do.call(function(...) { 1530s [00:52:10.842] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1530s [00:52:10.842] if (!identical(...future.globals.maxSize.org, 1530s [00:52:10.842] ...future.globals.maxSize)) { 1530s [00:52:10.842] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1530s [00:52:10.842] on.exit(options(oopts), add = TRUE) 1530s [00:52:10.842] } 1530s [00:52:10.842] { 1530s [00:52:10.842] lapply(seq_along(...future.elements_ii), 1530s [00:52:10.842] FUN = function(jj) { 1530s [00:52:10.842] ...future.X_jj <- ...future.elements_ii[[jj]] 1530s [00:52:10.842] ...future.FUN(...future.X_jj, ...) 1530s [00:52:10.842] }) 1530s [00:52:10.842] } 1530s [00:52:10.842] }, args = future.call.arguments) 1530s [00:52:10.842] })) 1530s [00:52:10.842] future::FutureResult(value = ...future.value$value, 1530s [00:52:10.842] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1530s [00:52:10.842] ...future.rng), globalenv = if (FALSE) 1530s [00:52:10.842] list(added = base::setdiff(base::names(base::.GlobalEnv), 1530s [00:52:10.842] ...future.globalenv.names)) 1530s [00:52:10.842] else NULL, started = ...future.startTime, version = "1.8") 1530s [00:52:10.842] }, condition = base::local({ 1530s [00:52:10.842] c <- base::c 1530s [00:52:10.842] inherits <- base::inherits 1530s [00:52:10.842] invokeRestart <- base::invokeRestart 1530s [00:52:10.842] length <- base::length 1530s [00:52:10.842] list <- base::list 1530s [00:52:10.842] seq.int <- base::seq.int 1530s [00:52:10.842] signalCondition <- base::signalCondition 1530s [00:52:10.842] sys.calls <- base::sys.calls 1530s [00:52:10.842] `[[` <- base::`[[` 1530s [00:52:10.842] `+` <- base::`+` 1530s [00:52:10.842] `<<-` <- base::`<<-` 1530s [00:52:10.842] sysCalls <- function(calls = sys.calls(), from = 1L) { 1530s [00:52:10.842] calls[seq.int(from = from + 12L, to = length(calls) - 1530s [00:52:10.842] 3L)] 1530s [00:52:10.842] } 1530s [00:52:10.842] function(cond) { 1530s [00:52:10.842] is_error <- inherits(cond, "error") 1530s [00:52:10.842] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1530s [00:52:10.842] NULL) 1530s [00:52:10.842] if (is_error) { 1530s [00:52:10.842] sessionInformation <- function() { 1530s [00:52:10.842] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1530s [00:52:10.842] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1530s [00:52:10.842] search = base::search(), system = base::Sys.info()) 1530s [00:52:10.842] } 1530s [00:52:10.842] ...future.conditions[[length(...future.conditions) + 1530s [00:52:10.842] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1530s [00:52:10.842] cond$call), session = sessionInformation(), 1530s [00:52:10.842] timestamp = base::Sys.time(), signaled = 0L) 1530s [00:52:10.842] signalCondition(cond) 1530s [00:52:10.842] } 1530s [00:52:10.842] else if (!ignore && TRUE && inherits(cond, c("condition", 1530s [00:52:10.842] "immediateCondition"))) { 1530s [00:52:10.842] signal <- TRUE && inherits(cond, "immediateCondition") 1530s [00:52:10.842] ...future.conditions[[length(...future.conditions) + 1530s [00:52:10.842] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1530s [00:52:10.842] if (TRUE && !signal) { 1530s [00:52:10.842] muffleCondition <- function (cond, pattern = "^muffle") 1530s [00:52:10.842] { 1530s [00:52:10.842] inherits <- base::inherits 1530s [00:52:10.842] invokeRestart <- base::invokeRestart 1530s [00:52:10.842] is.null <- base::is.null 1530s [00:52:10.842] muffled <- FALSE 1530s [00:52:10.842] if (inherits(cond, "message")) { 1530s [00:52:10.842] muffled <- grepl(pattern, "muffleMessage") 1530s [00:52:10.842] if (muffled) 1530s [00:52:10.842] invokeRestart("muffleMessage") 1530s [00:52:10.842] } 1530s [00:52:10.842] else if (inherits(cond, "warning")) { 1530s [00:52:10.842] muffled <- grepl(pattern, "muffleWarning") 1530s [00:52:10.842] if (muffled) 1530s [00:52:10.842] invokeRestart("muffleWarning") 1530s [00:52:10.842] } 1530s [00:52:10.842] else if (inherits(cond, "condition")) { 1530s [00:52:10.842] if (!is.null(pattern)) { 1530s [00:52:10.842] computeRestarts <- base::computeRestarts 1530s [00:52:10.842] grepl <- base::grepl 1530s [00:52:10.842] restarts <- computeRestarts(cond) 1530s [00:52:10.842] for (restart in restarts) { 1530s [00:52:10.842] name <- restart$name 1530s [00:52:10.842] if (is.null(name)) 1530s [00:52:10.842] next 1530s [00:52:10.842] if (!grepl(pattern, name)) 1530s [00:52:10.842] next 1530s [00:52:10.842] invokeRestart(restart) 1530s [00:52:10.842] muffled <- TRUE 1530s [00:52:10.842] break 1530s [00:52:10.842] } 1530s [00:52:10.842] } 1530s [00:52:10.842] } 1530s [00:52:10.842] invisible(muffled) 1530s [00:52:10.842] } 1530s [00:52:10.842] muffleCondition(cond, pattern = "^muffle") 1530s [00:52:10.842] } 1530s [00:52:10.842] } 1530s [00:52:10.842] else { 1530s [00:52:10.842] if (TRUE) { 1530s [00:52:10.842] muffleCondition <- function (cond, pattern = "^muffle") 1530s [00:52:10.842] { 1530s [00:52:10.842] inherits <- base::inherits 1530s [00:52:10.842] invokeRestart <- base::invokeRestart 1530s [00:52:10.842] is.null <- base::is.null 1530s [00:52:10.842] muffled <- FALSE 1530s [00:52:10.842] if (inherits(cond, "message")) { 1530s [00:52:10.842] muffled <- grepl(pattern, "muffleMessage") 1530s [00:52:10.842] if (muffled) 1530s [00:52:10.842] invokeRestart("muffleMessage") 1530s [00:52:10.842] } 1530s [00:52:10.842] else if (inherits(cond, "warning")) { 1530s [00:52:10.842] muffled <- grepl(pattern, "muffleWarning") 1530s [00:52:10.842] if (muffled) 1530s [00:52:10.842] invokeRestart("muffleWarning") 1530s [00:52:10.842] } 1530s [00:52:10.842] else if (inherits(cond, "condition")) { 1530s [00:52:10.842] if (!is.null(pattern)) { 1530s [00:52:10.842] computeRestarts <- base::computeRestarts 1530s [00:52:10.842] grepl <- base::grepl 1530s [00:52:10.842] restarts <- computeRestarts(cond) 1530s [00:52:10.842] for (restart in restarts) { 1530s [00:52:10.842] name <- restart$name 1530s [00:52:10.842] if (is.null(name)) 1530s [00:52:10.842] next 1530s [00:52:10.842] if (!grepl(pattern, name)) 1530s [00:52:10.842] next 1530s [00:52:10.842] invokeRestart(restart) 1530s [00:52:10.842] muffled <- TRUE 1530s [00:52:10.842] break 1530s [00:52:10.842] } 1530s [00:52:10.842] } 1530s [00:52:10.842] } 1530s [00:52:10.842] invisible(muffled) 1530s [00:52:10.842] } 1530s [00:52:10.842] muffleCondition(cond, pattern = "^muffle") 1530s [00:52:10.842] } 1530s [00:52:10.842] } 1530s [00:52:10.842] } 1530s [00:52:10.842] })) 1530s [00:52:10.842] }, error = function(ex) { 1530s [00:52:10.842] base::structure(base::list(value = NULL, visible = NULL, 1530s [00:52:10.842] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1530s [00:52:10.842] ...future.rng), started = ...future.startTime, 1530s [00:52:10.842] finished = Sys.time(), session_uuid = NA_character_, 1530s [00:52:10.842] version = "1.8"), class = "FutureResult") 1530s [00:52:10.842] }, finally = { 1530s [00:52:10.842] if (!identical(...future.workdir, getwd())) 1530s [00:52:10.842] setwd(...future.workdir) 1530s [00:52:10.842] { 1530s [00:52:10.842] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1530s [00:52:10.842] ...future.oldOptions$nwarnings <- NULL 1530s [00:52:10.842] } 1530s [00:52:10.842] base::options(...future.oldOptions) 1530s [00:52:10.842] if (.Platform$OS.type == "windows") { 1530s [00:52:10.842] old_names <- names(...future.oldEnvVars) 1530s [00:52:10.842] envs <- base::Sys.getenv() 1530s [00:52:10.842] names <- names(envs) 1530s [00:52:10.842] common <- intersect(names, old_names) 1530s [00:52:10.842] added <- setdiff(names, old_names) 1530s [00:52:10.842] removed <- setdiff(old_names, names) 1530s [00:52:10.842] changed <- common[...future.oldEnvVars[common] != 1530s [00:52:10.842] envs[common]] 1530s [00:52:10.842] NAMES <- toupper(changed) 1530s [00:52:10.842] args <- list() 1530s [00:52:10.842] for (kk in seq_along(NAMES)) { 1530s [00:52:10.842] name <- changed[[kk]] 1530s [00:52:10.842] NAME <- NAMES[[kk]] 1530s [00:52:10.842] if (name != NAME && is.element(NAME, old_names)) 1530s [00:52:10.842] next 1530s [00:52:10.842] args[[name]] <- ...future.oldEnvVars[[name]] 1530s [00:52:10.842] } 1530s [00:52:10.842] NAMES <- toupper(added) 1530s [00:52:10.842] for (kk in seq_along(NAMES)) { 1530s [00:52:10.842] name <- added[[kk]] 1530s [00:52:10.842] NAME <- NAMES[[kk]] 1530s [00:52:10.842] if (name != NAME && is.element(NAME, old_names)) 1530s [00:52:10.842] next 1530s [00:52:10.842] args[[name]] <- "" 1530s [00:52:10.842] } 1530s [00:52:10.842] NAMES <- toupper(removed) 1530s [00:52:10.842] for (kk in seq_along(NAMES)) { 1530s [00:52:10.842] name <- removed[[kk]] 1530s [00:52:10.842] NAME <- NAMES[[kk]] 1530s [00:52:10.842] if (name != NAME && is.element(NAME, old_names)) 1530s [00:52:10.842] next 1530s [00:52:10.842] args[[name]] <- ...future.oldEnvVars[[name]] 1530s [00:52:10.842] } 1530s [00:52:10.842] if (length(args) > 0) 1530s [00:52:10.842] base::do.call(base::Sys.setenv, args = args) 1530s [00:52:10.842] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1530s [00:52:10.842] } 1530s [00:52:10.842] else { 1530s [00:52:10.842] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1530s [00:52:10.842] } 1530s [00:52:10.842] { 1530s [00:52:10.842] if (base::length(...future.futureOptionsAdded) > 1530s [00:52:10.842] 0L) { 1530s [00:52:10.842] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1530s [00:52:10.842] base::names(opts) <- ...future.futureOptionsAdded 1530s [00:52:10.842] base::options(opts) 1530s [00:52:10.842] } 1530s [00:52:10.842] { 1530s [00:52:10.842] { 1530s [00:52:10.842] base::assign(".Random.seed", c(10407L, 1726940932L, 1530s [00:52:10.842] -2133974675L, 912538111L, -666439689L, -800972927L, 1530s [00:52:10.842] -965361991L), envir = base::globalenv(), 1530s [00:52:10.842] inherits = FALSE) 1530s [00:52:10.842] NULL 1530s [00:52:10.842] } 1530s [00:52:10.842] options(future.plan = NULL) 1530s [00:52:10.842] if (is.na(NA_character_)) 1530s [00:52:10.842] Sys.unsetenv("R_FUTURE_PLAN") 1530s [00:52:10.842] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1530s [00:52:10.842] future::plan(list(function (..., workers = availableCores(), 1530s [00:52:10.842] lazy = FALSE, rscript_libs = .libPaths(), 1530s [00:52:10.842] envir = parent.frame()) 1530s [00:52:10.842] { 1530s [00:52:10.842] if (is.function(workers)) 1530s [00:52:10.842] workers <- workers() 1530s [00:52:10.842] workers <- structure(as.integer(workers), 1530s [00:52:10.842] class = class(workers)) 1530s [00:52:10.842] stop_if_not(length(workers) == 1, is.finite(workers), 1530s [00:52:10.842] workers >= 1) 1530s [00:52:10.842] if (workers == 1L && !inherits(workers, "AsIs")) { 1530s [00:52:10.842] return(sequential(..., lazy = TRUE, envir = envir)) 1530s [00:52:10.842] } 1530s [00:52:10.842] future <- MultisessionFuture(..., workers = workers, 1530s [00:52:10.842] lazy = lazy, rscript_libs = rscript_libs, 1530s [00:52:10.842] envir = envir) 1530s [00:52:10.842] if (!future$lazy) 1530s [00:52:10.842] future <- run(future) 1530s [00:52:10.842] invisible(future) 1530s [00:52:10.842] }), .cleanup = FALSE, .init = FALSE) 1530s [00:52:10.842] } 1530s [00:52:10.842] } 1530s [00:52:10.842] } 1530s [00:52:10.842] }) 1530s [00:52:10.842] if (TRUE) { 1530s [00:52:10.842] base::sink(type = "output", split = FALSE) 1530s [00:52:10.842] if (TRUE) { 1530s [00:52:10.842] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1530s [00:52:10.842] } 1530s [00:52:10.842] else { 1530s [00:52:10.842] ...future.result["stdout"] <- base::list(NULL) 1530s [00:52:10.842] } 1530s [00:52:10.842] base::close(...future.stdout) 1530s [00:52:10.842] ...future.stdout <- NULL 1530s [00:52:10.842] } 1530s [00:52:10.842] ...future.result$conditions <- ...future.conditions 1530s [00:52:10.842] ...future.result$finished <- base::Sys.time() 1530s [00:52:10.842] ...future.result 1530s [00:52:10.842] } 1530s [00:52:10.848] assign_globals() ... 1530s [00:52:10.848] List of 5 1530s [00:52:10.848] $ future.call.arguments : list() 1530s [00:52:10.848] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1530s [00:52:10.848] $ ...future.FUN :function (x) 1530s [00:52:10.848] $ ...future.elements_ii :List of 2 1530s [00:52:10.848] ..$ : int [1:2, 1:3] 1 3 5 7 9 11 1530s [00:52:10.848] ..$ : int [1:2, 1:3] 2 4 6 8 10 12 1530s [00:52:10.848] $ ...future.seeds_ii : NULL 1530s [00:52:10.848] $ ...future.globals.maxSize: num Inf 1530s [00:52:10.848] - attr(*, "resolved")= logi FALSE 1530s [00:52:10.848] - attr(*, "total_size")= num NA 1530s [00:52:10.848] - attr(*, "where")=List of 5 1530s [00:52:10.848] ..$ future.call.arguments : 1530s [00:52:10.848] ..$ ...future.FUN : 1530s [00:52:10.848] ..$ ...future.elements_ii : 1530s [00:52:10.848] ..$ ...future.seeds_ii : 1530s [00:52:10.848] ..$ ...future.globals.maxSize: 1530s [00:52:10.848] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1530s [00:52:10.848] - attr(*, "already-done")= logi TRUE 1530s [00:52:10.855] - copied ‘future.call.arguments’ to environment 1530s [00:52:10.855] - copied ‘...future.FUN’ to environment 1530s [00:52:10.855] - copied ‘...future.elements_ii’ to environment 1530s [00:52:10.857] - copied ‘...future.seeds_ii’ to environment 1530s [00:52:10.857] - copied ‘...future.globals.maxSize’ to environment 1530s [00:52:10.857] assign_globals() ... done 1530s [00:52:10.857] plan(): Setting new future strategy stack: 1530s [00:52:10.859] List of future strategies: 1530s [00:52:10.859] 1. sequential: 1530s [00:52:10.859] - args: function (..., envir = parent.frame()) 1530s [00:52:10.859] - tweaked: FALSE 1530s [00:52:10.859] - call: NULL 1530s [00:52:10.859] plan(): nbrOfWorkers() = 1 1530s [00:52:10.860] plan(): Setting new future strategy stack: 1530s [00:52:10.860] List of future strategies: 1530s [00:52:10.860] 1. multisession: 1530s [00:52:10.860] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1530s [00:52:10.860] - tweaked: FALSE 1530s [00:52:10.860] - call: plan(strategy) 1530s [00:52:10.864] plan(): nbrOfWorkers() = 1 1530s [00:52:10.864] SequentialFuture started (and completed) 1530s [00:52:10.864] - Launch lazy future ... done 1530s [00:52:10.864] run() for ‘SequentialFuture’ ... done 1530s [00:52:10.864] Created future: 1530s [00:52:10.864] SequentialFuture: 1530s [00:52:10.864] Label: ‘future_apply-1’ 1530s [00:52:10.864] Expression: 1530s [00:52:10.864] { 1530s [00:52:10.864] do.call(function(...) { 1530s [00:52:10.864] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1530s [00:52:10.864] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1530s [00:52:10.864] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1530s [00:52:10.864] on.exit(options(oopts), add = TRUE) 1530s [00:52:10.864] } 1530s [00:52:10.864] { 1530s [00:52:10.864] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1530s [00:52:10.864] ...future.X_jj <- ...future.elements_ii[[jj]] 1530s [00:52:10.864] ...future.FUN(...future.X_jj, ...) 1530s [00:52:10.864] }) 1530s [00:52:10.864] } 1530s [00:52:10.864] }, args = future.call.arguments) 1530s [00:52:10.864] } 1530s [00:52:10.864] Lazy evaluation: FALSE 1530s [00:52:10.864] Asynchronous evaluation: FALSE 1530s [00:52:10.864] Local evaluation: TRUE 1530s [00:52:10.864] Environment: R_GlobalEnv 1530s [00:52:10.864] Capture standard output: TRUE 1530s [00:52:10.864] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1530s [00:52:10.864] Globals: 5 objects totaling 1.37 KiB (DotDotDotList ‘future.call.arguments’ of 0 bytes, function ‘...future.FUN’ of 848 bytes, list ‘...future.elements_ii’ of 496 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1530s [00:52:10.864] Packages: 1530s [00:52:10.864] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1530s [00:52:10.864] Resolved: TRUE 1530s [00:52:10.864] Value: 496 bytes of class ‘list’ 1530s [00:52:10.864] Early signaling: FALSE 1530s [00:52:10.864] Owner process: 856348fc-72a5-ec0b-63b7-1a3640a93e42 1530s [00:52:10.864] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1530s [00:52:10.866] Chunk #1 of 1 ... DONE 1530s [00:52:10.866] Launching 1 futures (chunks) ... DONE 1530s [00:52:10.866] Resolving 1 futures (chunks) ... 1530s [00:52:10.867] resolve() on list ... 1530s [00:52:10.867] recursive: 0 1530s [00:52:10.867] length: 1 1530s [00:52:10.867] 1530s [00:52:10.867] resolved() for ‘SequentialFuture’ ... 1530s [00:52:10.867] - state: ‘finished’ 1530s [00:52:10.867] - run: TRUE 1530s [00:52:10.868] - result: ‘FutureResult’ 1530s [00:52:10.868] resolved() for ‘SequentialFuture’ ... done 1530s [00:52:10.868] Future #1 1530s [00:52:10.868] signalConditionsASAP(SequentialFuture, pos=1) ... 1530s [00:52:10.868] - nx: 1 1530s [00:52:10.868] - relay: TRUE 1530s [00:52:10.869] - stdout: TRUE 1530s [00:52:10.869] - signal: TRUE 1530s [00:52:10.869] - resignal: FALSE 1530s [00:52:10.869] - force: TRUE 1530s [00:52:10.869] - relayed: [n=1] FALSE 1530s [00:52:10.869] - queued futures: [n=1] FALSE 1530s [00:52:10.869] - until=1 1530s [00:52:10.870] - relaying element #1 1530s [00:52:10.870] - relayed: [n=1] TRUE 1530s [00:52:10.870] - queued futures: [n=1] TRUE 1530s [00:52:10.870] signalConditionsASAP(SequentialFuture, pos=1) ... done 1530s [00:52:10.870] length: 0 (resolved future 1) 1530s [00:52:10.870] Relaying remaining futures 1530s [00:52:10.871] signalConditionsASAP(NULL, pos=0) ... 1530s [00:52:10.871] - nx: 1 1530s [00:52:10.871] - relay: TRUE 1530s [00:52:10.871] - stdout: TRUE 1530s [00:52:10.871] - signal: TRUE 1530s [00:52:10.871] - resignal: FALSE 1530s [00:52:10.871] - force: TRUE 1530s [00:52:10.873] - relayed: [n=1] TRUE 1530s [00:52:10.873] - queued futures: [n=1] TRUE 1530s - flush all 1530s [00:52:10.875] - relayed: [n=1] TRUE 1530s [00:52:10.876] - queued futures: [n=1] TRUE 1530s [00:52:10.876] signalConditionsASAP(NULL, pos=0) ... done 1530s [00:52:10.877] resolve() on list ... DONE 1530s [00:52:10.877] - Number of value chunks collected: 1 1530s [00:52:10.878] Resolving 1 futures (chunks) ... DONE 1530s [00:52:10.878] Reducing values from 1 chunks ... 1530s [00:52:10.882] - Number of values collected after concatenation: 2 1530s [00:52:10.882] - Number of values expected: 2 1530s [00:52:10.882] Reducing values from 1 chunks ... DONE 1530s [00:52:10.882] future_lapply() ... DONE 1530s [,1] [,2] 1530s [1,] 1 2 1530s [2,] 3 4 1530s [3,] 5 6 1530s [4,] 7 8 1530s [5,] 9 10 1530s [6,]- apply(X, ...) - not all same names ... 1530s 11 12 1530s [00:52:10.883] getGlobalsAndPackagesXApply() ... 1530s [00:52:10.886] - future.globals: TRUE 1530s [00:52:10.886] getGlobalsAndPackages() ... 1530s [00:52:10.886] Searching for globals... 1530s [00:52:10.890] - globals found: [10] ‘FUN’, ‘{’, ‘if’, ‘==’, ‘[’, ‘<-’, ‘names’, ‘names<-’, ‘letters’, ‘seq_along’ 1530s [00:52:10.890] Searching for globals ... DONE 1530s [00:52:10.891] Resolving globals: FALSE 1530s [00:52:10.891] The total size of the 1 globals is 9.66 KiB (9888 bytes) 1530s [00:52:10.892] The total size of the 1 globals exported for future expression (‘FUN(X = structure(1:4, dim = c(2L, 2L)))’) is 9.66 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (9.66 KiB of class ‘function’) 1530s [00:52:10.892] - globals: [1] ‘FUN’ 1530s [00:52:10.892] 1530s [00:52:10.892] getGlobalsAndPackages() ... DONE 1530s [00:52:10.892] - globals found/used: [n=1] ‘FUN’ 1530s [00:52:10.892] - needed namespaces: [n=0] 1530s [00:52:10.893] Finding globals ... DONE 1530s [00:52:10.893] - use_args: TRUE 1530s [00:52:10.893] - Getting '...' globals ... 1530s [00:52:10.893] resolve() on list ... 1530s [00:52:10.893] recursive: 0 1530s [00:52:10.894] length: 1 1530s [00:52:10.894] elements: ‘...’ 1530s [00:52:10.894] length: 0 (resolved future 1) 1530s [00:52:10.895] resolve() on list ... DONE 1530s [00:52:10.895] - '...' content: [n=0] 1530s [00:52:10.896] List of 1 1530s [00:52:10.896] $ ...: list() 1530s [00:52:10.896] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1530s [00:52:10.896] - attr(*, "where")=List of 1 1530s [00:52:10.896] ..$ ...: 1530s [00:52:10.896] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1530s [00:52:10.896] - attr(*, "resolved")= logi TRUE 1530s [00:52:10.896] - attr(*, "total_size")= num NA 1530s [00:52:10.903] - Getting '...' globals ... DONE 1530s [00:52:10.904] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1530s [00:52:10.904] List of 2 1530s [00:52:10.904] $ ...future.FUN:function (x) 1530s [00:52:10.904] $ ... : list() 1530s [00:52:10.904] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1530s [00:52:10.904] - attr(*, "where")=List of 2 1530s [00:52:10.904] ..$ ...future.FUN: 1530s [00:52:10.904] ..$ ... : 1530s [00:52:10.904] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1530s [00:52:10.904] - attr(*, "resolved")= logi FALSE 1530s [00:52:10.904] - attr(*, "total_size")= num 9888 1530s [00:52:10.923] Packages to be attached in all futures: [n=0] 1530s [00:52:10.923] getGlobalsAndPackagesXApply() ... DONE 1530s [00:52:10.928] future_lapply() ... 1530s [00:52:10.936] Number of chunks: 1 1530s [00:52:10.937] getGlobalsAndPackagesXApply() ... 1530s [00:52:10.937] - future.globals: with names ‘list()’ 1530s [00:52:10.937] - use_args: TRUE 1530s [00:52:10.937] Globals to be used in all futures (chunks): [n=2] ‘...’, ‘...future.FUN’ 1530s [00:52:10.938] List of 2 1530s [00:52:10.938] $ ... : list() 1530s [00:52:10.938] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1530s [00:52:10.938] $ ...future.FUN:function (x) 1530s [00:52:10.938] - attr(*, "where")=List of 2 1530s [00:52:10.938] ..$ ... : 1530s [00:52:10.938] ..$ ...future.FUN: 1530s [00:52:10.938] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1530s [00:52:10.938] - attr(*, "resolved")= logi FALSE 1530s [00:52:10.938] - attr(*, "total_size")= num NA 1530s [00:52:10.946] Packages to be attached in all futures: [n=0] 1530s [00:52:10.946] getGlobalsAndPackagesXApply() ... DONE 1530s [00:52:10.955] Number of futures (= number of chunks): 1 1530s [00:52:10.956] Launching 1 futures (chunks) ... 1530s [00:52:10.956] Chunk #1 of 1 ... 1530s [00:52:10.956] - seeds: 1530s [00:52:10.956] - All globals exported: [n=5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1530s [00:52:10.957] getGlobalsAndPackages() ... 1530s [00:52:10.957] - globals passed as-is: [5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1530s [00:52:10.957] Resolving globals: FALSE 1530s [00:52:10.958] Tweak future expression to call with '...' arguments ... 1530s [00:52:10.959] { 1530s [00:52:10.959] do.call(function(...) { 1530s [00:52:10.959] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1530s [00:52:10.959] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1530s [00:52:10.959] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1530s [00:52:10.959] on.exit(options(oopts), add = TRUE) 1530s [00:52:10.959] } 1530s [00:52:10.959] { 1530s [00:52:10.959] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1530s [00:52:10.959] ...future.X_jj <- ...future.elements_ii[[jj]] 1530s [00:52:10.959] ...future.FUN(...future.X_jj, ...) 1530s [00:52:10.959] }) 1530s [00:52:10.959] } 1530s [00:52:10.959] }, args = future.call.arguments) 1530s [00:52:10.959] } 1530s [00:52:10.959] Tweak future expression to call with '...' arguments ... DONE 1530s [00:52:10.960] - globals: [5] ‘future.call.arguments’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1530s [00:52:10.961] 1530s [00:52:10.961] getGlobalsAndPackages() ... DONE 1530s [00:52:10.962] run() for ‘Future’ ... 1530s [00:52:10.962] - state: ‘created’ 1530s [00:52:10.963] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1530s [00:52:10.970] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1530s [00:52:10.970] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1530s [00:52:10.970] - Field: ‘label’ 1530s [00:52:10.971] - Field: ‘local’ 1531s [00:52:10.973] - Field: ‘owner’ 1531s [00:52:10.973] - Field: ‘envir’ 1531s [00:52:10.973] - Field: ‘packages’ 1531s [00:52:10.975] - Field: ‘gc’ 1531s [00:52:10.975] - Field: ‘conditions’ 1531s [00:52:10.975] - Field: ‘expr’ 1531s [00:52:10.975] - Field: ‘uuid’ 1531s [00:52:10.975] - Field: ‘seed’ 1531s [00:52:10.975] - Field: ‘version’ 1531s [00:52:10.975] - Field: ‘result’ 1531s [00:52:10.977] - Field: ‘asynchronous’ 1531s [00:52:10.977] - Field: ‘calls’ 1531s [00:52:10.977] - Field: ‘globals’ 1531s [00:52:10.977] - Field: ‘stdout’ 1531s [00:52:10.977] - Field: ‘earlySignal’ 1531s [00:52:10.977] - Field: ‘lazy’ 1531s [00:52:10.978] - Field: ‘state’ 1531s [00:52:10.978] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1531s [00:52:10.978] - Launch lazy future ... 1531s [00:52:10.978] Packages needed by the future expression (n = 0): 1531s [00:52:10.978] Packages needed by future strategies (n = 0): 1531s [00:52:10.979] { 1531s [00:52:10.979] { 1531s [00:52:10.979] { 1531s [00:52:10.979] ...future.startTime <- base::Sys.time() 1531s [00:52:10.979] { 1531s [00:52:10.979] { 1531s [00:52:10.979] { 1531s [00:52:10.979] base::local({ 1531s [00:52:10.979] has_future <- base::requireNamespace("future", 1531s [00:52:10.979] quietly = TRUE) 1531s [00:52:10.979] if (has_future) { 1531s [00:52:10.979] ns <- base::getNamespace("future") 1531s [00:52:10.979] version <- ns[[".package"]][["version"]] 1531s [00:52:10.979] if (is.null(version)) 1531s [00:52:10.979] version <- utils::packageVersion("future") 1531s [00:52:10.979] } 1531s [00:52:10.979] else { 1531s [00:52:10.979] version <- NULL 1531s [00:52:10.979] } 1531s [00:52:10.979] if (!has_future || version < "1.8.0") { 1531s [00:52:10.979] info <- base::c(r_version = base::gsub("R version ", 1531s [00:52:10.979] "", base::R.version$version.string), 1531s [00:52:10.979] platform = base::sprintf("%s (%s-bit)", 1531s [00:52:10.979] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1531s [00:52:10.979] os = base::paste(base::Sys.info()[base::c("sysname", 1531s [00:52:10.979] "release", "version")], collapse = " "), 1531s [00:52:10.979] hostname = base::Sys.info()[["nodename"]]) 1531s [00:52:10.979] info <- base::sprintf("%s: %s", base::names(info), 1531s [00:52:10.979] info) 1531s [00:52:10.979] info <- base::paste(info, collapse = "; ") 1531s [00:52:10.979] if (!has_future) { 1531s [00:52:10.979] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1531s [00:52:10.979] info) 1531s [00:52:10.979] } 1531s [00:52:10.979] else { 1531s [00:52:10.979] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1531s [00:52:10.979] info, version) 1531s [00:52:10.979] } 1531s [00:52:10.979] base::stop(msg) 1531s [00:52:10.979] } 1531s [00:52:10.979] }) 1531s [00:52:10.979] } 1531s [00:52:10.979] options(future.plan = NULL) 1531s [00:52:10.979] Sys.unsetenv("R_FUTURE_PLAN") 1531s [00:52:10.979] future::plan("default", .cleanup = FALSE, .init = FALSE) 1531s [00:52:10.979] } 1531s [00:52:10.979] ...future.workdir <- getwd() 1531s [00:52:10.979] } 1531s [00:52:10.979] ...future.oldOptions <- base::as.list(base::.Options) 1531s [00:52:10.979] ...future.oldEnvVars <- base::Sys.getenv() 1531s [00:52:10.979] } 1531s [00:52:10.979] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1531s [00:52:10.979] future.globals.maxSize = Inf, future.globals.method = NULL, 1531s [00:52:10.979] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1531s [00:52:10.979] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1531s [00:52:10.979] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1531s [00:52:10.979] future.stdout.windows.reencode = NULL, width = 80L) 1531s [00:52:10.979] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1531s [00:52:10.979] base::names(...future.oldOptions)) 1531s [00:52:10.979] } 1531s [00:52:10.979] if (FALSE) { 1531s [00:52:10.979] } 1531s [00:52:10.979] else { 1531s [00:52:10.979] if (TRUE) { 1531s [00:52:10.979] ...future.stdout <- base::rawConnection(base::raw(0L), 1531s [00:52:10.979] open = "w") 1531s [00:52:10.979] } 1531s [00:52:10.979] else { 1531s [00:52:10.979] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1531s [00:52:10.979] windows = "NUL", "/dev/null"), open = "w") 1531s [00:52:10.979] } 1531s [00:52:10.979] base::sink(...future.stdout, type = "output", split = FALSE) 1531s [00:52:10.979] base::on.exit(if (!base::is.null(...future.stdout)) { 1531s [00:52:10.979] base::sink(type = "output", split = FALSE) 1531s [00:52:10.979] base::close(...future.stdout) 1531s [00:52:10.979] }, add = TRUE) 1531s [00:52:10.979] } 1531s [00:52:10.979] ...future.frame <- base::sys.nframe() 1531s [00:52:10.979] ...future.conditions <- base::list() 1531s [00:52:10.979] ...future.rng <- base::globalenv()$.Random.seed 1531s [00:52:10.979] if (FALSE) { 1531s [00:52:10.979] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1531s [00:52:10.979] "...future.value", "...future.globalenv.names", ".Random.seed") 1531s [00:52:10.979] } 1531s [00:52:10.979] ...future.result <- base::tryCatch({ 1531s [00:52:10.979] base::withCallingHandlers({ 1531s [00:52:10.979] ...future.value <- base::withVisible(base::local({ 1531s [00:52:10.979] do.call(function(...) { 1531s [00:52:10.979] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1531s [00:52:10.979] if (!identical(...future.globals.maxSize.org, 1531s [00:52:10.979] ...future.globals.maxSize)) { 1531s [00:52:10.979] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1531s [00:52:10.979] on.exit(options(oopts), add = TRUE) 1531s [00:52:10.979] } 1531s [00:52:10.979] { 1531s [00:52:10.979] lapply(seq_along(...future.elements_ii), 1531s [00:52:10.979] FUN = function(jj) { 1531s [00:52:10.979] ...future.X_jj <- ...future.elements_ii[[jj]] 1531s [00:52:10.979] ...future.FUN(...future.X_jj, ...) 1531s [00:52:10.979] }) 1531s [00:52:10.979] } 1531s [00:52:10.979] }, args = future.call.arguments) 1531s [00:52:10.979] })) 1531s [00:52:10.979] future::FutureResult(value = ...future.value$value, 1531s [00:52:10.979] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1531s [00:52:10.979] ...future.rng), globalenv = if (FALSE) 1531s [00:52:10.979] list(added = base::setdiff(base::names(base::.GlobalEnv), 1531s [00:52:10.979] ...future.globalenv.names)) 1531s [00:52:10.979] else NULL, started = ...future.startTime, version = "1.8") 1531s [00:52:10.979] }, condition = base::local({ 1531s [00:52:10.979] c <- base::c 1531s [00:52:10.979] inherits <- base::inherits 1531s [00:52:10.979] invokeRestart <- base::invokeRestart 1531s [00:52:10.979] length <- base::length 1531s [00:52:10.979] list <- base::list 1531s [00:52:10.979] seq.int <- base::seq.int 1531s [00:52:10.979] signalCondition <- base::signalCondition 1531s [00:52:10.979] sys.calls <- base::sys.calls 1531s [00:52:10.979] `[[` <- base::`[[` 1531s [00:52:10.979] `+` <- base::`+` 1531s [00:52:10.979] `<<-` <- base::`<<-` 1531s [00:52:10.979] sysCalls <- function(calls = sys.calls(), from = 1L) { 1531s [00:52:10.979] calls[seq.int(from = from + 12L, to = length(calls) - 1531s [00:52:10.979] 3L)] 1531s [00:52:10.979] } 1531s [00:52:10.979] function(cond) { 1531s [00:52:10.979] is_error <- inherits(cond, "error") 1531s [00:52:10.979] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1531s [00:52:10.979] NULL) 1531s [00:52:10.979] if (is_error) { 1531s [00:52:10.979] sessionInformation <- function() { 1531s [00:52:10.979] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1531s [00:52:10.979] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1531s [00:52:10.979] search = base::search(), system = base::Sys.info()) 1531s [00:52:10.979] } 1531s [00:52:10.979] ...future.conditions[[length(...future.conditions) + 1531s [00:52:10.979] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1531s [00:52:10.979] cond$call), session = sessionInformation(), 1531s [00:52:10.979] timestamp = base::Sys.time(), signaled = 0L) 1531s [00:52:10.979] signalCondition(cond) 1531s [00:52:10.979] } 1531s [00:52:10.979] else if (!ignore && TRUE && inherits(cond, c("condition", 1531s [00:52:10.979] "immediateCondition"))) { 1531s [00:52:10.979] signal <- TRUE && inherits(cond, "immediateCondition") 1531s [00:52:10.979] ...future.conditions[[length(...future.conditions) + 1531s [00:52:10.979] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1531s [00:52:10.979] if (TRUE && !signal) { 1531s [00:52:10.979] muffleCondition <- function (cond, pattern = "^muffle") 1531s [00:52:10.979] { 1531s [00:52:10.979] inherits <- base::inherits 1531s [00:52:10.979] invokeRestart <- base::invokeRestart 1531s [00:52:10.979] is.null <- base::is.null 1531s [00:52:10.979] muffled <- FALSE 1531s [00:52:10.979] if (inherits(cond, "message")) { 1531s [00:52:10.979] muffled <- grepl(pattern, "muffleMessage") 1531s [00:52:10.979] if (muffled) 1531s [00:52:10.979] invokeRestart("muffleMessage") 1531s [00:52:10.979] } 1531s [00:52:10.979] else if (inherits(cond, "warning")) { 1531s [00:52:10.979] muffled <- grepl(pattern, "muffleWarning") 1531s [00:52:10.979] if (muffled) 1531s [00:52:10.979] invokeRestart("muffleWarning") 1531s [00:52:10.979] } 1531s [00:52:10.979] else if (inherits(cond, "condition")) { 1531s [00:52:10.979] if (!is.null(pattern)) { 1531s [00:52:10.979] computeRestarts <- base::computeRestarts 1531s [00:52:10.979] grepl <- base::grepl 1531s [00:52:10.979] restarts <- computeRestarts(cond) 1531s [00:52:10.979] for (restart in restarts) { 1531s [00:52:10.979] name <- restart$name 1531s [00:52:10.979] if (is.null(name)) 1531s [00:52:10.979] next 1531s [00:52:10.979] if (!grepl(pattern, name)) 1531s [00:52:10.979] next 1531s [00:52:10.979] invokeRestart(restart) 1531s [00:52:10.979] muffled <- TRUE 1531s [00:52:10.979] break 1531s [00:52:10.979] } 1531s [00:52:10.979] } 1531s [00:52:10.979] } 1531s [00:52:10.979] invisible(muffled) 1531s [00:52:10.979] } 1531s [00:52:10.979] muffleCondition(cond, pattern = "^muffle") 1531s [00:52:10.979] } 1531s [00:52:10.979] } 1531s [00:52:10.979] else { 1531s [00:52:10.979] if (TRUE) { 1531s [00:52:10.979] muffleCondition <- function (cond, pattern = "^muffle") 1531s [00:52:10.979] { 1531s [00:52:10.979] inherits <- base::inherits 1531s [00:52:10.979] invokeRestart <- base::invokeRestart 1531s [00:52:10.979] is.null <- base::is.null 1531s [00:52:10.979] muffled <- FALSE 1531s [00:52:10.979] if (inherits(cond, "message")) { 1531s [00:52:10.979] muffled <- grepl(pattern, "muffleMessage") 1531s [00:52:10.979] if (muffled) 1531s [00:52:10.979] invokeRestart("muffleMessage") 1531s [00:52:10.979] } 1531s [00:52:10.979] else if (inherits(cond, "warning")) { 1531s [00:52:10.979] muffled <- grepl(pattern, "muffleWarning") 1531s [00:52:10.979] if (muffled) 1531s [00:52:10.979] invokeRestart("muffleWarning") 1531s [00:52:10.979] } 1531s [00:52:10.979] else if (inherits(cond, "condition")) { 1531s [00:52:10.979] if (!is.null(pattern)) { 1531s [00:52:10.979] computeRestarts <- base::computeRestarts 1531s [00:52:10.979] grepl <- base::grepl 1531s [00:52:10.979] restarts <- computeRestarts(cond) 1531s [00:52:10.979] for (restart in restarts) { 1531s [00:52:10.979] name <- restart$name 1531s [00:52:10.979] if (is.null(name)) 1531s [00:52:10.979] next 1531s [00:52:10.979] if (!grepl(pattern, name)) 1531s [00:52:10.979] next 1531s [00:52:10.979] invokeRestart(restart) 1531s [00:52:10.979] muffled <- TRUE 1531s [00:52:10.979] break 1531s [00:52:10.979] } 1531s [00:52:10.979] } 1531s [00:52:10.979] } 1531s [00:52:10.979] invisible(muffled) 1531s [00:52:10.979] } 1531s [00:52:10.979] muffleCondition(cond, pattern = "^muffle") 1531s [00:52:10.979] } 1531s [00:52:10.979] } 1531s [00:52:10.979] } 1531s [00:52:10.979] })) 1531s [00:52:10.979] }, error = function(ex) { 1531s [00:52:10.979] base::structure(base::list(value = NULL, visible = NULL, 1531s [00:52:10.979] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1531s [00:52:10.979] ...future.rng), started = ...future.startTime, 1531s [00:52:10.979] finished = Sys.time(), session_uuid = NA_character_, 1531s [00:52:10.979] version = "1.8"), class = "FutureResult") 1531s [00:52:10.979] }, finally = { 1531s [00:52:10.979] if (!identical(...future.workdir, getwd())) 1531s [00:52:10.979] setwd(...future.workdir) 1531s [00:52:10.979] { 1531s [00:52:10.979] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1531s [00:52:10.979] ...future.oldOptions$nwarnings <- NULL 1531s [00:52:10.979] } 1531s [00:52:10.979] base::options(...future.oldOptions) 1531s [00:52:10.979] if (.Platform$OS.type == "windows") { 1531s [00:52:10.979] old_names <- names(...future.oldEnvVars) 1531s [00:52:10.979] envs <- base::Sys.getenv() 1531s [00:52:10.979] names <- names(envs) 1531s [00:52:10.979] common <- intersect(names, old_names) 1531s [00:52:10.979] added <- setdiff(names, old_names) 1531s [00:52:10.979] removed <- setdiff(old_names, names) 1531s [00:52:10.979] changed <- common[...future.oldEnvVars[common] != 1531s [00:52:10.979] envs[common]] 1531s [00:52:10.979] NAMES <- toupper(changed) 1531s [00:52:10.979] args <- list() 1531s [00:52:10.979] for (kk in seq_along(NAMES)) { 1531s [00:52:10.979] name <- changed[[kk]] 1531s [00:52:10.979] NAME <- NAMES[[kk]] 1531s [00:52:10.979] if (name != NAME && is.element(NAME, old_names)) 1531s [00:52:10.979] next 1531s [00:52:10.979] args[[name]] <- ...future.oldEnvVars[[name]] 1531s [00:52:10.979] } 1531s [00:52:10.979] NAMES <- toupper(added) 1531s [00:52:10.979] for (kk in seq_along(NAMES)) { 1531s [00:52:10.979] name <- added[[kk]] 1531s [00:52:10.979] NAME <- NAMES[[kk]] 1531s [00:52:10.979] if (name != NAME && is.element(NAME, old_names)) 1531s [00:52:10.979] next 1531s [00:52:10.979] args[[name]] <- "" 1531s [00:52:10.979] } 1531s [00:52:10.979] NAMES <- toupper(removed) 1531s [00:52:10.979] for (kk in seq_along(NAMES)) { 1531s [00:52:10.979] name <- removed[[kk]] 1531s [00:52:10.979] NAME <- NAMES[[kk]] 1531s [00:52:10.979] if (name != NAME && is.element(NAME, old_names)) 1531s [00:52:10.979] next 1531s [00:52:10.979] args[[name]] <- ...future.oldEnvVars[[name]] 1531s [00:52:10.979] } 1531s [00:52:10.979] if (length(args) > 0) 1531s [00:52:10.979] base::do.call(base::Sys.setenv, args = args) 1531s [00:52:10.979] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1531s [00:52:10.979] } 1531s [00:52:10.979] else { 1531s [00:52:10.979] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1531s [00:52:10.979] } 1531s [00:52:10.979] { 1531s [00:52:10.979] if (base::length(...future.futureOptionsAdded) > 1531s [00:52:10.979] 0L) { 1531s [00:52:10.979] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1531s [00:52:10.979] base::names(opts) <- ...future.futureOptionsAdded 1531s [00:52:10.979] base::options(opts) 1531s [00:52:10.979] } 1531s [00:52:10.979] { 1531s [00:52:10.979] { 1531s [00:52:10.979] base::assign(".Random.seed", c(10407L, 1726940932L, 1531s [00:52:10.979] -2133974675L, 912538111L, -666439689L, -800972927L, 1531s [00:52:10.979] -965361991L), envir = base::globalenv(), 1531s [00:52:10.979] inherits = FALSE) 1531s [00:52:10.979] NULL 1531s [00:52:10.979] } 1531s [00:52:10.979] options(future.plan = NULL) 1531s [00:52:10.979] if (is.na(NA_character_)) 1531s [00:52:10.979] Sys.unsetenv("R_FUTURE_PLAN") 1531s [00:52:10.979] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1531s [00:52:10.979] future::plan(list(function (..., workers = availableCores(), 1531s [00:52:10.979] lazy = FALSE, rscript_libs = .libPaths(), 1531s [00:52:10.979] envir = parent.frame()) 1531s [00:52:10.979] { 1531s [00:52:10.979] if (is.function(workers)) 1531s [00:52:10.979] workers <- workers() 1531s [00:52:10.979] workers <- structure(as.integer(workers), 1531s [00:52:10.979] class = class(workers)) 1531s [00:52:10.979] stop_if_not(length(workers) == 1, is.finite(workers), 1531s [00:52:10.979] workers >= 1) 1531s [00:52:10.979] if (workers == 1L && !inherits(workers, "AsIs")) { 1531s [00:52:10.979] return(sequential(..., lazy = TRUE, envir = envir)) 1531s [00:52:10.979] } 1531s [00:52:10.979] future <- MultisessionFuture(..., workers = workers, 1531s [00:52:10.979] lazy = lazy, rscript_libs = rscript_libs, 1531s [00:52:10.979] envir = envir) 1531s [00:52:10.979] if (!future$lazy) 1531s [00:52:10.979] future <- run(future) 1531s [00:52:10.979] invisible(future) 1531s [00:52:10.979] }), .cleanup = FALSE, .init = FALSE) 1531s [00:52:10.979] } 1531s [00:52:10.979] } 1531s [00:52:10.979] } 1531s [00:52:10.979] }) 1531s [00:52:10.979] if (TRUE) { 1531s [00:52:10.979] base::sink(type = "output", split = FALSE) 1531s [00:52:10.979] if (TRUE) { 1531s [00:52:10.979] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1531s [00:52:10.979] } 1531s [00:52:10.979] else { 1531s [00:52:10.979] ...future.result["stdout"] <- base::list(NULL) 1531s [00:52:10.979] } 1531s [00:52:10.979] base::close(...future.stdout) 1531s [00:52:10.979] ...future.stdout <- NULL 1531s [00:52:10.979] } 1531s [00:52:10.979] ...future.result$conditions <- ...future.conditions 1531s [00:52:10.979] ...future.result$finished <- base::Sys.time() 1531s [00:52:10.979] ...future.result 1531s [00:52:10.979] } 1531s [00:52:10.984] assign_globals() ... 1531s [00:52:10.985] List of 5 1531s [00:52:10.985] $ future.call.arguments : list() 1531s [00:52:10.985] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1531s [00:52:10.985] $ ...future.FUN :function (x) 1531s [00:52:10.985] $ ...future.elements_ii :List of 2 1531s [00:52:10.985] ..$ : int [1:2] 1 3 1531s [00:52:10.985] ..$ : int [1:2] 2 4 1531s [00:52:10.985] $ ...future.seeds_ii : NULL 1531s [00:52:10.985] $ ...future.globals.maxSize: num Inf 1531s [00:52:10.985] - attr(*, "resolved")= logi FALSE 1531s [00:52:10.985] - attr(*, "total_size")= num NA 1531s [00:52:10.985] - attr(*, "where")=List of 5 1531s [00:52:10.985] ..$ future.call.arguments : 1531s [00:52:10.985] ..$ ...future.FUN : 1531s [00:52:10.985] ..$ ...future.elements_ii : 1531s [00:52:10.985] ..$ ...future.seeds_ii : 1531s [00:52:10.985] ..$ ...future.globals.maxSize: 1531s [00:52:10.985] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1531s [00:52:10.985] - attr(*, "already-done")= logi TRUE 1531s [00:52:10.993] - copied ‘future.call.arguments’ to environment 1531s [00:52:10.994] - reassign environment for ‘...future.FUN’ 1531s [00:52:10.994] - copied ‘...future.FUN’ to environment 1531s [00:52:10.994] - copied ‘...future.elements_ii’ to environment 1531s [00:52:10.994] - copied ‘...future.seeds_ii’ to environment 1531s [00:52:10.994] - copied ‘...future.globals.maxSize’ to environment 1531s [00:52:10.995] assign_globals() ... done 1531s [00:52:10.995] plan(): Setting new future strategy stack: 1531s [00:52:10.995] List of future strategies: 1531s [00:52:10.995] 1. sequential: 1531s [00:52:10.995] - args: function (..., envir = parent.frame()) 1531s [00:52:10.995] - tweaked: FALSE 1531s [00:52:10.995] - call: NULL 1531s [00:52:10.996] plan(): nbrOfWorkers() = 1 1531s [00:52:10.996] plan(): Setting new future strategy stack: 1531s [00:52:10.997] List of future strategies: 1531s [00:52:10.997] 1. multisession: 1531s [00:52:10.997] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1531s [00:52:10.997] - tweaked: FALSE 1531s [00:52:10.997] - call: plan(strategy) 1531s [00:52:11.002] plan(): nbrOfWorkers() = 1 1531s [00:52:11.003] SequentialFuture started (and completed) 1531s [00:52:11.003] - Launch lazy future ... done 1531s [00:52:11.003] run() for ‘SequentialFuture’ ... done 1531s [00:52:11.004] Created future: 1531s [00:52:11.004] SequentialFuture: 1531s [00:52:11.004] Label: ‘future_apply-1’ 1531s [00:52:11.004] Expression: 1531s [00:52:11.004] { 1531s [00:52:11.004] do.call(function(...) { 1531s [00:52:11.004] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1531s [00:52:11.004] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1531s [00:52:11.004] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1531s [00:52:11.004] on.exit(options(oopts), add = TRUE) 1531s [00:52:11.004] } 1531s [00:52:11.004] { 1531s [00:52:11.004] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1531s [00:52:11.004] ...future.X_jj <- ...future.elements_ii[[jj]] 1531s [00:52:11.004] ...future.FUN(...future.X_jj, ...) 1531s [00:52:11.004] }) 1531s [00:52:11.004] } 1531s [00:52:11.004] }, args = future.call.arguments) 1531s [00:52:11.004] } 1531s [00:52:11.004] Lazy evaluation: FALSE 1531s [00:52:11.004] Asynchronous evaluation: FALSE 1531s [00:52:11.004] Local evaluation: TRUE 1531s [00:52:11.004] Environment: R_GlobalEnv 1531s [00:52:11.004] Capture standard output: TRUE 1531s [00:52:11.004] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1531s [00:52:11.004] Globals: 5 objects totaling 9.82 KiB (DotDotDotList ‘future.call.arguments’ of 0 bytes, function ‘...future.FUN’ of 9.66 KiB, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1531s [00:52:11.004] Packages: 1531s [00:52:11.004] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1531s [00:52:11.004] Resolved: TRUE 1531s [00:52:11.004] Value: 400 bytes of class ‘list’ 1531s [00:52:11.004] Early signaling: FALSE 1531s [00:52:11.004] Owner process: 856348fc-72a5-ec0b-63b7-1a3640a93e42 1531s [00:52:11.004] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1531s [00:52:11.006] Chunk #1 of 1 ... DONE 1531s [00:52:11.006] Launching 1 futures (chunks) ... DONE 1531s [00:52:11.006] Resolving 1 futures (chunks) ... 1531s [00:52:11.006] resolve() on list ... 1531s [00:52:11.006] recursive: 0 1531s [00:52:11.007] length: 1 1531s [00:52:11.007] 1531s [00:52:11.007] resolved() for ‘SequentialFuture’ ... 1531s [00:52:11.007] - state: ‘finished’ 1531s [00:52:11.007] - run: TRUE 1531s [00:52:11.007] - result: ‘FutureResult’ 1531s [00:52:11.008] resolved() for ‘SequentialFuture’ ... done 1531s [00:52:11.008] Future #1 1531s [00:52:11.008] signalConditionsASAP(SequentialFuture, pos=1) ... 1531s [00:52:11.008] - nx: 1 1531s [00:52:11.008] - relay: TRUE 1531s [00:52:11.008] - stdout: TRUE 1531s [00:52:11.008] - signal: TRUE 1531s [00:52:11.009] - resignal: FALSE 1531s [00:52:11.009] - force: TRUE 1531s [00:52:11.009] - relayed: [n=1] FALSE 1531s [00:52:11.009] - queued futures: [n=1] FALSE 1531s [00:52:11.010] - until=1 1531s [00:52:11.010] - relaying element #1 1531s [00:52:11.011] - relayed: [n=1] TRUE 1531s [00:52:11.014] - queued futures: [n=1] TRUE 1531s [00:52:11.014] signalConditionsASAP(SequentialFuture, pos=1) ... done 1531s [00:52:11.014] length: 0 (resolved future 1) 1531s [00:52:11.015] Relaying remaining futures 1531s [00:52:11.015] signalConditionsASAP(NULL, pos=0) ... 1531s [00:52:11.015] - nx: 1 1531s [00:52:11.015] - relay: TRUE 1531s [00:52:11.015] - stdout: TRUE 1531s [00:52:11.016] - signal: TRUE 1531s [00:52:11.016] - resignal: FALSE 1531s [00:52:11.016] - force: TRUE 1531s [00:52:11.016] - relayed: [n=1] TRUE 1531s [00:52:11.016] - queued futures: [n=1] TRUE 1531s - flush all 1531s [00:52:11.017] - relayed: [n=1] TRUE 1531s [00:52:11.017] - queued futures: [n=1] TRUE 1531s [00:52:11.017] signalConditionsASAP(NULL, pos=0) ... done 1531s [00:52:11.017] resolve() on list ... DONE 1531s [00:52:11.018] - Number of value chunks collected: 1 1531s [00:52:11.018] Resolving 1 futures (chunks) ... DONE 1531s [00:52:11.018] Reducing values from 1 chunks ... 1531s [00:52:11.018] - Number of values collected after concatenation: 2 1531s [00:52:11.018] - Number of values expected: 2 1531s [00:52:11.018] Reducing values from 1 chunks ... DONE 1531s [00:52:11.018] future_lapply() ... DONE 1531s - example(future_apply) - reproducible RNG ... 1531s [00:52:11.019] getGlobalsAndPackagesXApply() ... 1531s [00:52:11.019] - future.globals: TRUE 1531s [00:52:11.019] getGlobalsAndPackages() ... 1531s [00:52:11.020] Searching for globals... 1531s [,1] [,2] 1531s [1,] 1 2 1531s [2,] 3 4 1531s [00:52:11.025] - globals found: [13] ‘FUN’, ‘{’, ‘if’, ‘&&’, ‘==’, ‘length’, ‘is.numeric’, ‘is.finite’, ‘>=’, ‘missing’, ‘<-’, ‘sample.int’, ‘[’ 1531s [00:52:11.026] Searching for globals ... DONE 1531s [00:52:11.026] Resolving globals: FALSE 1531s [00:52:11.027] The total size of the 1 globals is 35.45 KiB (36296 bytes) 1531s [00:52:11.027] The total size of the 1 globals exported for future expression (‘FUN(X = structure(1:4, dim = c(2L, 2L)))’) is 35.45 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (35.45 KiB of class ‘function’) 1531s [00:52:11.028] - globals: [1] ‘FUN’ 1531s [00:52:11.028] 1531s [00:52:11.028] getGlobalsAndPackages() ... DONE 1531s [00:52:11.028] - globals found/used: [n=1] ‘FUN’ 1531s [00:52:11.028] - needed namespaces: [n=0] 1531s [00:52:11.029] Finding globals ... DONE 1531s [00:52:11.029] - use_args: TRUE 1531s [00:52:11.029] - Getting '...' globals ... 1531s [00:52:11.029] resolve() on list ... 1531s [00:52:11.030] recursive: 0 1531s [00:52:11.030] length: 1 1531s [00:52:11.030] elements: ‘...’ 1531s [00:52:11.030] length: 0 (resolved future 1) 1531s [00:52:11.030] resolve() on list ... DONE 1531s [00:52:11.030] - '...' content: [n=0] 1531s [00:52:11.030] List of 1 1531s [00:52:11.030] $ ...: list() 1531s [00:52:11.030] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1531s [00:52:11.030] - attr(*, "where")=List of 1 1531s [00:52:11.030] ..$ ...: 1531s [00:52:11.030] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1531s [00:52:11.030] - attr(*, "resolved")= logi TRUE 1531s [00:52:11.030] - attr(*, "total_size")= num NA 1531s [00:52:11.034] - Getting '...' globals ... DONE 1531s [00:52:11.034] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1531s [00:52:11.035] List of 2 1531s [00:52:11.035] $ ...future.FUN:function (x, size, replace = FALSE, prob = NULL) 1531s [00:52:11.035] $ ... : list() 1531s [00:52:11.035] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1531s [00:52:11.035] - attr(*, "where")=List of 2 1531s [00:52:11.035] ..$ ...future.FUN: 1531s [00:52:11.035] ..$ ... : 1531s [00:52:11.035] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1531s [00:52:11.035] - attr(*, "resolved")= logi FALSE 1531s [00:52:11.035] - attr(*, "total_size")= num 36296 1531s [00:52:11.038] Packages to be attached in all futures: [n=0] 1531s [00:52:11.038] getGlobalsAndPackagesXApply() ... DONE 1531s [00:52:11.042] future_lapply() ... 1531s [00:52:11.045] Generating random seeds ... 1531s [00:52:11.046] Generating random seed streams for 2 elements ... 1531s [00:52:11.046] Generating random seed streams for 2 elements ... DONE 1531s [00:52:11.046] Generating random seeds ... DONE 1531s [00:52:11.047] Will set RNG state on exit: 10407, 912538111, 1384344283, 905643192, -965361991, -711773459, -1247205905 1531s [00:52:11.053] Number of chunks: 1 1531s [00:52:11.053] getGlobalsAndPackagesXApply() ... 1531s [00:52:11.053] - future.globals: with names ‘list()’ 1531s [00:52:11.053] - use_args: TRUE 1531s [00:52:11.053] Globals to be used in all futures (chunks): [n=2] ‘...’, ‘...future.FUN’ 1531s [00:52:11.054] List of 2 1531s [00:52:11.054] $ ... : list() 1531s [00:52:11.054] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1531s [00:52:11.054] $ ...future.FUN:function (x, size, replace = FALSE, prob = NULL) 1531s [00:52:11.054] - attr(*, "where")=List of 2 1531s [00:52:11.054] ..$ ... : 1531s [00:52:11.054] ..$ ...future.FUN: 1531s [00:52:11.054] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1531s [00:52:11.054] - attr(*, "resolved")= logi FALSE 1531s [00:52:11.054] - attr(*, "total_size")= num NA 1531s [00:52:11.058] Packages to be attached in all futures: [n=0] 1531s [00:52:11.058] getGlobalsAndPackagesXApply() ... DONE 1531s [00:52:11.059] Number of futures (= number of chunks): 1 1531s [00:52:11.059] Launching 1 futures (chunks) ... 1531s [00:52:11.059] Chunk #1 of 1 ... 1531s [00:52:11.059] - seeds: [2] 1531s [00:52:11.059] - All globals exported: [n=5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1531s [00:52:11.060] getGlobalsAndPackages() ... 1531s [00:52:11.060] - globals passed as-is: [5] ‘...’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1531s [00:52:11.060] Resolving globals: FALSE 1531s [00:52:11.060] Tweak future expression to call with '...' arguments ... 1531s [00:52:11.060] { 1531s [00:52:11.060] do.call(function(...) { 1531s [00:52:11.060] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1531s [00:52:11.060] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1531s [00:52:11.060] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1531s [00:52:11.060] on.exit(options(oopts), add = TRUE) 1531s [00:52:11.060] } 1531s [00:52:11.060] { 1531s [00:52:11.060] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1531s [00:52:11.060] ...future.X_jj <- ...future.elements_ii[[jj]] 1531s [00:52:11.060] assign(".Random.seed", ...future.seeds_ii[[jj]], 1531s [00:52:11.060] envir = globalenv(), inherits = FALSE) 1531s [00:52:11.060] ...future.FUN(...future.X_jj, ...) 1531s [00:52:11.060] }) 1531s [00:52:11.060] } 1531s [00:52:11.060] }, args = future.call.arguments) 1531s [00:52:11.060] } 1531s [00:52:11.061] Tweak future expression to call with '...' arguments ... DONE 1531s [00:52:11.062] - globals: [5] ‘future.call.arguments’, ‘...future.FUN’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1531s [00:52:11.062] 1531s [00:52:11.062] getGlobalsAndPackages() ... DONE 1531s [00:52:11.063] run() for ‘Future’ ... 1531s [00:52:11.063] - state: ‘created’ 1531s [00:52:11.063] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1531s [00:52:11.067] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1531s [00:52:11.067] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1531s [00:52:11.067] - Field: ‘label’ 1531s [00:52:11.067] - Field: ‘local’ 1531s [00:52:11.067] - Field: ‘owner’ 1531s [00:52:11.067] - Field: ‘envir’ 1531s [00:52:11.068] - Field: ‘packages’ 1531s [00:52:11.068] - Field: ‘gc’ 1531s [00:52:11.068] - Field: ‘conditions’ 1531s [00:52:11.068] - Field: ‘expr’ 1531s [00:52:11.068] - Field: ‘uuid’ 1531s [00:52:11.068] - Field: ‘seed’ 1531s [00:52:11.068] - Field: ‘version’ 1531s [00:52:11.069] - Field: ‘result’ 1531s [00:52:11.069] - Field: ‘asynchronous’ 1531s [00:52:11.069] - Field: ‘calls’ 1531s [00:52:11.069] - Field: ‘globals’ 1531s [00:52:11.070] - Field: ‘stdout’ 1531s [00:52:11.070] - Field: ‘earlySignal’ 1531s [00:52:11.070] - Field: ‘lazy’ 1531s [00:52:11.070] - Field: ‘state’ 1531s [00:52:11.070] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1531s [00:52:11.071] - Launch lazy future ... 1531s [00:52:11.071] Packages needed by the future expression (n = 0): 1531s [00:52:11.071] Packages needed by future strategies (n = 0): 1531s [00:52:11.072] { 1531s [00:52:11.072] { 1531s [00:52:11.072] { 1531s [00:52:11.072] ...future.startTime <- base::Sys.time() 1531s [00:52:11.072] { 1531s [00:52:11.072] { 1531s [00:52:11.072] { 1531s [00:52:11.072] base::local({ 1531s [00:52:11.072] has_future <- base::requireNamespace("future", 1531s [00:52:11.072] quietly = TRUE) 1531s [00:52:11.072] if (has_future) { 1531s [00:52:11.072] ns <- base::getNamespace("future") 1531s [00:52:11.072] version <- ns[[".package"]][["version"]] 1531s [00:52:11.072] if (is.null(version)) 1531s [00:52:11.072] version <- utils::packageVersion("future") 1531s [00:52:11.072] } 1531s [00:52:11.072] else { 1531s [00:52:11.072] version <- NULL 1531s [00:52:11.072] } 1531s [00:52:11.072] if (!has_future || version < "1.8.0") { 1531s [00:52:11.072] info <- base::c(r_version = base::gsub("R version ", 1531s [00:52:11.072] "", base::R.version$version.string), 1531s [00:52:11.072] platform = base::sprintf("%s (%s-bit)", 1531s [00:52:11.072] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1531s [00:52:11.072] os = base::paste(base::Sys.info()[base::c("sysname", 1531s [00:52:11.072] "release", "version")], collapse = " "), 1531s [00:52:11.072] hostname = base::Sys.info()[["nodename"]]) 1531s [00:52:11.072] info <- base::sprintf("%s: %s", base::names(info), 1531s [00:52:11.072] info) 1531s [00:52:11.072] info <- base::paste(info, collapse = "; ") 1531s [00:52:11.072] if (!has_future) { 1531s [00:52:11.072] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1531s [00:52:11.072] info) 1531s [00:52:11.072] } 1531s [00:52:11.072] else { 1531s [00:52:11.072] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1531s [00:52:11.072] info, version) 1531s [00:52:11.072] } 1531s [00:52:11.072] base::stop(msg) 1531s [00:52:11.072] } 1531s [00:52:11.072] }) 1531s [00:52:11.072] } 1531s [00:52:11.072] options(future.plan = NULL) 1531s [00:52:11.072] Sys.unsetenv("R_FUTURE_PLAN") 1531s [00:52:11.072] future::plan("default", .cleanup = FALSE, .init = FALSE) 1531s [00:52:11.072] } 1531s [00:52:11.072] ...future.workdir <- getwd() 1531s [00:52:11.072] } 1531s [00:52:11.072] ...future.oldOptions <- base::as.list(base::.Options) 1531s [00:52:11.072] ...future.oldEnvVars <- base::Sys.getenv() 1531s [00:52:11.072] } 1531s [00:52:11.072] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1531s [00:52:11.072] future.globals.maxSize = Inf, future.globals.method = NULL, 1531s [00:52:11.072] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1531s [00:52:11.072] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1531s [00:52:11.072] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1531s [00:52:11.072] future.stdout.windows.reencode = NULL, width = 80L) 1531s [00:52:11.072] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1531s [00:52:11.072] base::names(...future.oldOptions)) 1531s [00:52:11.072] } 1531s [00:52:11.072] if (FALSE) { 1531s [00:52:11.072] } 1531s [00:52:11.072] else { 1531s [00:52:11.072] if (TRUE) { 1531s [00:52:11.072] ...future.stdout <- base::rawConnection(base::raw(0L), 1531s [00:52:11.072] open = "w") 1531s [00:52:11.072] } 1531s [00:52:11.072] else { 1531s [00:52:11.072] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1531s [00:52:11.072] windows = "NUL", "/dev/null"), open = "w") 1531s [00:52:11.072] } 1531s [00:52:11.072] base::sink(...future.stdout, type = "output", split = FALSE) 1531s [00:52:11.072] base::on.exit(if (!base::is.null(...future.stdout)) { 1531s [00:52:11.072] base::sink(type = "output", split = FALSE) 1531s [00:52:11.072] base::close(...future.stdout) 1531s [00:52:11.072] }, add = TRUE) 1531s [00:52:11.072] } 1531s [00:52:11.072] ...future.frame <- base::sys.nframe() 1531s [00:52:11.072] ...future.conditions <- base::list() 1531s [00:52:11.072] ...future.rng <- base::globalenv()$.Random.seed 1531s [00:52:11.072] if (FALSE) { 1531s [00:52:11.072] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1531s [00:52:11.072] "...future.value", "...future.globalenv.names", ".Random.seed") 1531s [00:52:11.072] } 1531s [00:52:11.072] ...future.result <- base::tryCatch({ 1531s [00:52:11.072] base::withCallingHandlers({ 1531s [00:52:11.072] ...future.value <- base::withVisible(base::local({ 1531s [00:52:11.072] do.call(function(...) { 1531s [00:52:11.072] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1531s [00:52:11.072] if (!identical(...future.globals.maxSize.org, 1531s [00:52:11.072] ...future.globals.maxSize)) { 1531s [00:52:11.072] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1531s [00:52:11.072] on.exit(options(oopts), add = TRUE) 1531s [00:52:11.072] } 1531s [00:52:11.072] { 1531s [00:52:11.072] lapply(seq_along(...future.elements_ii), 1531s [00:52:11.072] FUN = function(jj) { 1531s [00:52:11.072] ...future.X_jj <- ...future.elements_ii[[jj]] 1531s [00:52:11.072] assign(".Random.seed", ...future.seeds_ii[[jj]], 1531s [00:52:11.072] envir = globalenv(), inherits = FALSE) 1531s [00:52:11.072] ...future.FUN(...future.X_jj, ...) 1531s [00:52:11.072] }) 1531s [00:52:11.072] } 1531s [00:52:11.072] }, args = future.call.arguments) 1531s [00:52:11.072] })) 1531s [00:52:11.072] future::FutureResult(value = ...future.value$value, 1531s [00:52:11.072] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1531s [00:52:11.072] ...future.rng), globalenv = if (FALSE) 1531s [00:52:11.072] list(added = base::setdiff(base::names(base::.GlobalEnv), 1531s [00:52:11.072] ...future.globalenv.names)) 1531s [00:52:11.072] else NULL, started = ...future.startTime, version = "1.8") 1531s [00:52:11.072] }, condition = base::local({ 1531s [00:52:11.072] c <- base::c 1531s [00:52:11.072] inherits <- base::inherits 1531s [00:52:11.072] invokeRestart <- base::invokeRestart 1531s [00:52:11.072] length <- base::length 1531s [00:52:11.072] list <- base::list 1531s [00:52:11.072] seq.int <- base::seq.int 1531s [00:52:11.072] signalCondition <- base::signalCondition 1531s [00:52:11.072] sys.calls <- base::sys.calls 1531s [00:52:11.072] `[[` <- base::`[[` 1531s [00:52:11.072] `+` <- base::`+` 1531s [00:52:11.072] `<<-` <- base::`<<-` 1531s [00:52:11.072] sysCalls <- function(calls = sys.calls(), from = 1L) { 1531s [00:52:11.072] calls[seq.int(from = from + 12L, to = length(calls) - 1531s [00:52:11.072] 3L)] 1531s [00:52:11.072] } 1531s [00:52:11.072] function(cond) { 1531s [00:52:11.072] is_error <- inherits(cond, "error") 1531s [00:52:11.072] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1531s [00:52:11.072] NULL) 1531s [00:52:11.072] if (is_error) { 1531s [00:52:11.072] sessionInformation <- function() { 1531s [00:52:11.072] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1531s [00:52:11.072] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1531s [00:52:11.072] search = base::search(), system = base::Sys.info()) 1531s [00:52:11.072] } 1531s [00:52:11.072] ...future.conditions[[length(...future.conditions) + 1531s [00:52:11.072] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1531s [00:52:11.072] cond$call), session = sessionInformation(), 1531s [00:52:11.072] timestamp = base::Sys.time(), signaled = 0L) 1531s [00:52:11.072] signalCondition(cond) 1531s [00:52:11.072] } 1531s [00:52:11.072] else if (!ignore && FALSE && inherits(cond, NULL)) { 1531s [00:52:11.072] signal <- TRUE && inherits(cond, character(0)) 1531s [00:52:11.072] ...future.conditions[[length(...future.conditions) + 1531s [00:52:11.072] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1531s [00:52:11.072] if (TRUE && !signal) { 1531s [00:52:11.072] muffleCondition <- function (cond, pattern = "^muffle") 1531s [00:52:11.072] { 1531s [00:52:11.072] inherits <- base::inherits 1531s [00:52:11.072] invokeRestart <- base::invokeRestart 1531s [00:52:11.072] is.null <- base::is.null 1531s [00:52:11.072] muffled <- FALSE 1531s [00:52:11.072] if (inherits(cond, "message")) { 1531s [00:52:11.072] muffled <- grepl(pattern, "muffleMessage") 1531s [00:52:11.072] if (muffled) 1531s [00:52:11.072] invokeRestart("muffleMessage") 1531s [00:52:11.072] } 1531s [00:52:11.072] else if (inherits(cond, "warning")) { 1531s [00:52:11.072] muffled <- grepl(pattern, "muffleWarning") 1531s [00:52:11.072] if (muffled) 1531s [00:52:11.072] invokeRestart("muffleWarning") 1531s [00:52:11.072] } 1531s [00:52:11.072] else if (inherits(cond, "condition")) { 1531s [00:52:11.072] if (!is.null(pattern)) { 1531s [00:52:11.072] computeRestarts <- base::computeRestarts 1531s [00:52:11.072] grepl <- base::grepl 1531s [00:52:11.072] restarts <- computeRestarts(cond) 1531s [00:52:11.072] for (restart in restarts) { 1531s [00:52:11.072] name <- restart$name 1531s [00:52:11.072] if (is.null(name)) 1531s [00:52:11.072] next 1531s [00:52:11.072] if (!grepl(pattern, name)) 1531s [00:52:11.072] next 1531s [00:52:11.072] invokeRestart(restart) 1531s [00:52:11.072] muffled <- TRUE 1531s [00:52:11.072] break 1531s [00:52:11.072] } 1531s [00:52:11.072] } 1531s [00:52:11.072] } 1531s [00:52:11.072] invisible(muffled) 1531s [00:52:11.072] } 1531s [00:52:11.072] muffleCondition(cond, pattern = "^muffle") 1531s [00:52:11.072] } 1531s [00:52:11.072] } 1531s [00:52:11.072] else { 1531s [00:52:11.072] if (FALSE) { 1531s [00:52:11.072] muffleCondition <- function (cond, pattern = "^muffle") 1531s [00:52:11.072] { 1531s [00:52:11.072] inherits <- base::inherits 1531s [00:52:11.072] invokeRestart <- base::invokeRestart 1531s [00:52:11.072] is.null <- base::is.null 1531s [00:52:11.072] muffled <- FALSE 1531s [00:52:11.072] if (inherits(cond, "message")) { 1531s [00:52:11.072] muffled <- grepl(pattern, "muffleMessage") 1531s [00:52:11.072] if (muffled) 1531s [00:52:11.072] invokeRestart("muffleMessage") 1531s [00:52:11.072] } 1531s [00:52:11.072] else if (inherits(cond, "warning")) { 1531s [00:52:11.072] muffled <- grepl(pattern, "muffleWarning") 1531s [00:52:11.072] if (muffled) 1531s [00:52:11.072] invokeRestart("muffleWarning") 1531s [00:52:11.072] } 1531s [00:52:11.072] else if (inherits(cond, "condition")) { 1531s [00:52:11.072] if (!is.null(pattern)) { 1531s [00:52:11.072] computeRestarts <- base::computeRestarts 1531s [00:52:11.072] grepl <- base::grepl 1531s [00:52:11.072] restarts <- computeRestarts(cond) 1531s [00:52:11.072] for (restart in restarts) { 1531s [00:52:11.072] name <- restart$name 1531s [00:52:11.072] if (is.null(name)) 1531s [00:52:11.072] next 1531s [00:52:11.072] if (!grepl(pattern, name)) 1531s [00:52:11.072] next 1531s [00:52:11.072] invokeRestart(restart) 1531s [00:52:11.072] muffled <- TRUE 1531s [00:52:11.072] break 1531s [00:52:11.072] } 1531s [00:52:11.072] } 1531s [00:52:11.072] } 1531s [00:52:11.072] invisible(muffled) 1531s [00:52:11.072] } 1531s [00:52:11.072] muffleCondition(cond, pattern = "^muffle") 1531s [00:52:11.072] } 1531s [00:52:11.072] } 1531s [00:52:11.072] } 1531s [00:52:11.072] })) 1531s [00:52:11.072] }, error = function(ex) { 1531s [00:52:11.072] base::structure(base::list(value = NULL, visible = NULL, 1531s [00:52:11.072] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1531s [00:52:11.072] ...future.rng), started = ...future.startTime, 1531s [00:52:11.072] finished = Sys.time(), session_uuid = NA_character_, 1531s [00:52:11.072] version = "1.8"), class = "FutureResult") 1531s [00:52:11.072] }, finally = { 1531s [00:52:11.072] if (!identical(...future.workdir, getwd())) 1531s [00:52:11.072] setwd(...future.workdir) 1531s [00:52:11.072] { 1531s [00:52:11.072] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1531s [00:52:11.072] ...future.oldOptions$nwarnings <- NULL 1531s [00:52:11.072] } 1531s [00:52:11.072] base::options(...future.oldOptions) 1531s [00:52:11.072] if (.Platform$OS.type == "windows") { 1531s [00:52:11.072] old_names <- names(...future.oldEnvVars) 1531s [00:52:11.072] envs <- base::Sys.getenv() 1531s [00:52:11.072] names <- names(envs) 1531s [00:52:11.072] common <- intersect(names, old_names) 1531s [00:52:11.072] added <- setdiff(names, old_names) 1531s [00:52:11.072] removed <- setdiff(old_names, names) 1531s [00:52:11.072] changed <- common[...future.oldEnvVars[common] != 1531s [00:52:11.072] envs[common]] 1531s [00:52:11.072] NAMES <- toupper(changed) 1531s [00:52:11.072] args <- list() 1531s [00:52:11.072] for (kk in seq_along(NAMES)) { 1531s [00:52:11.072] name <- changed[[kk]] 1531s [00:52:11.072] NAME <- NAMES[[kk]] 1531s [00:52:11.072] if (name != NAME && is.element(NAME, old_names)) 1531s [00:52:11.072] next 1531s [00:52:11.072] args[[name]] <- ...future.oldEnvVars[[name]] 1531s [00:52:11.072] } 1531s [00:52:11.072] NAMES <- toupper(added) 1531s [00:52:11.072] for (kk in seq_along(NAMES)) { 1531s [00:52:11.072] name <- added[[kk]] 1531s [00:52:11.072] NAME <- NAMES[[kk]] 1531s [00:52:11.072] if (name != NAME && is.element(NAME, old_names)) 1531s [00:52:11.072] next 1531s [00:52:11.072] args[[name]] <- "" 1531s [00:52:11.072] } 1531s [00:52:11.072] NAMES <- toupper(removed) 1531s [00:52:11.072] for (kk in seq_along(NAMES)) { 1531s [00:52:11.072] name <- removed[[kk]] 1531s [00:52:11.072] NAME <- NAMES[[kk]] 1531s [00:52:11.072] if (name != NAME && is.element(NAME, old_names)) 1531s [00:52:11.072] next 1531s [00:52:11.072] args[[name]] <- ...future.oldEnvVars[[name]] 1531s [00:52:11.072] } 1531s [00:52:11.072] if (length(args) > 0) 1531s [00:52:11.072] base::do.call(base::Sys.setenv, args = args) 1531s [00:52:11.072] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1531s [00:52:11.072] } 1531s [00:52:11.072] else { 1531s [00:52:11.072] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1531s [00:52:11.072] } 1531s [00:52:11.072] { 1531s [00:52:11.072] if (base::length(...future.futureOptionsAdded) > 1531s [00:52:11.072] 0L) { 1531s [00:52:11.072] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1531s [00:52:11.072] base::names(opts) <- ...future.futureOptionsAdded 1531s [00:52:11.072] base::options(opts) 1531s [00:52:11.072] } 1531s [00:52:11.072] { 1531s [00:52:11.072] { 1531s [00:52:11.072] base::assign(".Random.seed", c(10407L, 912538111L, 1531s [00:52:11.072] 1384344283L, 905643192L, -965361991L, -711773459L, 1531s [00:52:11.072] -1247205905L), envir = base::globalenv(), 1531s [00:52:11.072] inherits = FALSE) 1531s [00:52:11.072] NULL 1531s [00:52:11.072] } 1531s [00:52:11.072] options(future.plan = NULL) 1531s [00:52:11.072] if (is.na(NA_character_)) 1531s [00:52:11.072] Sys.unsetenv("R_FUTURE_PLAN") 1531s [00:52:11.072] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1531s [00:52:11.072] future::plan(list(function (..., workers = availableCores(), 1531s [00:52:11.072] lazy = FALSE, rscript_libs = .libPaths(), 1531s [00:52:11.072] envir = parent.frame()) 1531s [00:52:11.072] { 1531s [00:52:11.072] if (is.function(workers)) 1531s [00:52:11.072] workers <- workers() 1531s [00:52:11.072] workers <- structure(as.integer(workers), 1531s [00:52:11.072] class = class(workers)) 1531s [00:52:11.072] stop_if_not(length(workers) == 1, is.finite(workers), 1531s [00:52:11.072] workers >= 1) 1531s [00:52:11.072] if (workers == 1L && !inherits(workers, "AsIs")) { 1531s [00:52:11.072] return(sequential(..., lazy = TRUE, envir = envir)) 1531s [00:52:11.072] } 1531s [00:52:11.072] future <- MultisessionFuture(..., workers = workers, 1531s [00:52:11.072] lazy = lazy, rscript_libs = rscript_libs, 1531s [00:52:11.072] envir = envir) 1531s [00:52:11.072] if (!future$lazy) 1531s [00:52:11.072] future <- run(future) 1531s [00:52:11.072] invisible(future) 1531s [00:52:11.072] }), .cleanup = FALSE, .init = FALSE) 1531s [00:52:11.072] } 1531s [00:52:11.072] } 1531s [00:52:11.072] } 1531s [00:52:11.072] }) 1531s [00:52:11.072] if (TRUE) { 1531s [00:52:11.072] base::sink(type = "output", split = FALSE) 1531s [00:52:11.072] if (TRUE) { 1531s [00:52:11.072] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1531s [00:52:11.072] } 1531s [00:52:11.072] else { 1531s [00:52:11.072] ...future.result["stdout"] <- base::list(NULL) 1531s [00:52:11.072] } 1531s [00:52:11.072] base::close(...future.stdout) 1531s [00:52:11.072] ...future.stdout <- NULL 1531s [00:52:11.072] } 1531s [00:52:11.072] ...future.result$conditions <- ...future.conditions 1531s [00:52:11.072] ...future.result$finished <- base::Sys.time() 1531s [00:52:11.072] ...future.result 1531s [00:52:11.072] } 1531s [00:52:11.081] assign_globals() ... 1531s [00:52:11.081] List of 5 1531s [00:52:11.081] $ future.call.arguments : list() 1531s [00:52:11.081] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1531s [00:52:11.081] $ ...future.FUN :function (x, size, replace = FALSE, prob = NULL) 1531s [00:52:11.081] $ ...future.elements_ii :List of 2 1531s [00:52:11.081] ..$ : int [1:2] 1 3 1531s [00:52:11.081] ..$ : int [1:2] 2 4 1531s [00:52:11.081] $ ...future.seeds_ii :List of 2 1531s [00:52:11.081] ..$ : int [1:7] 10407 1242173061 -1150840343 -834448425 701050094 -1369558043 -650964284 1531s [00:52:11.081] ..$ : int [1:7] 10407 859061261 1088872332 -1371790091 -942478768 -889560561 1393381402 1531s [00:52:11.081] $ ...future.globals.maxSize: num Inf 1531s [00:52:11.081] - attr(*, "resolved")= logi FALSE 1531s [00:52:11.081] - attr(*, "total_size")= num NA 1531s [00:52:11.081] - attr(*, "where")=List of 5 1531s [00:52:11.081] ..$ future.call.arguments : 1531s [00:52:11.081] ..$ ...future.FUN : 1531s [00:52:11.081] ..$ ...future.elements_ii : 1531s [00:52:11.081] ..$ ...future.seeds_ii : 1531s [00:52:11.081] ..$ ...future.globals.maxSize: 1531s [00:52:11.081] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1531s [00:52:11.081] - attr(*, "already-done")= logi TRUE 1531s [00:52:11.091] - copied ‘future.call.arguments’ to environment 1531s [00:52:11.092] - copied ‘...future.FUN’ to environment 1531s [00:52:11.092] - copied ‘...future.elements_ii’ to environment 1531s [00:52:11.092] - copied ‘...future.seeds_ii’ to environment 1531s [00:52:11.092] - copied ‘...future.globals.maxSize’ to environment 1531s [00:52:11.092] assign_globals() ... done 1531s [00:52:11.093] plan(): Setting new future strategy stack: 1531s [00:52:11.093] List of future strategies: 1531s [00:52:11.093] 1. sequential: 1531s [00:52:11.093] - args: function (..., envir = parent.frame()) 1531s [00:52:11.093] - tweaked: FALSE 1531s [00:52:11.093] - call: NULL 1531s [00:52:11.093] plan(): nbrOfWorkers() = 1 1531s [00:52:11.098] plan(): Setting new future strategy stack: 1531s [00:52:11.098] List of future strategies: 1531s [00:52:11.098] 1. multisession: 1531s [00:52:11.098] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1531s [00:52:11.098] - tweaked: FALSE 1531s [00:52:11.098] - call: plan(strategy) 1531s [00:52:11.103] plan(): nbrOfWorkers() = 1 1531s [00:52:11.103] SequentialFuture started (and completed) 1531s [00:52:11.104] - Launch lazy future ... done 1531s [00:52:11.104] run() for ‘SequentialFuture’ ... done 1531s [00:52:11.105] Created future: 1531s [00:52:11.105] SequentialFuture: 1531s [00:52:11.105] Label: ‘future_apply-1’ 1531s [00:52:11.105] Expression: 1531s [00:52:11.105] { 1531s [00:52:11.105] do.call(function(...) { 1531s [00:52:11.105] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1531s [00:52:11.105] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1531s [00:52:11.105] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1531s [00:52:11.105] on.exit(options(oopts), add = TRUE) 1531s [00:52:11.105] } 1531s [00:52:11.105] { 1531s [00:52:11.105] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1531s [00:52:11.105] ...future.X_jj <- ...future.elements_ii[[jj]] 1531s [00:52:11.105] assign(".Random.seed", ...future.seeds_ii[[jj]], 1531s [00:52:11.105] envir = globalenv(), inherits = FALSE) 1531s [00:52:11.105] ...future.FUN(...future.X_jj, ...) 1531s [00:52:11.105] }) 1531s [00:52:11.105] } 1531s [00:52:11.105] }, args = future.call.arguments) 1531s [00:52:11.105] } 1531s [00:52:11.105] Lazy evaluation: FALSE 1531s [00:52:11.105] Asynchronous evaluation: FALSE 1531s [00:52:11.105] Local evaluation: TRUE 1531s [00:52:11.105] Environment: R_GlobalEnv 1531s [00:52:11.105] Capture standard output: TRUE 1531s [00:52:11.105] Capture condition classes: 1531s [00:52:11.105] Globals: 5 objects totaling 35.77 KiB (DotDotDotList ‘future.call.arguments’ of 0 bytes, function ‘...future.FUN’ of 35.45 KiB, list ‘...future.elements_ii’ of 112 bytes, list ‘...future.seeds_ii’ of 160 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1531s [00:52:11.105] Packages: 1531s [00:52:11.105] L'Ecuyer-CMRG RNG seed: (seed = NULL) 1531s [00:52:11.105] Resolved: TRUE 1531s [00:52:11.105] Value: 112 bytes of class ‘list’ 1531s [00:52:11.105] Early signaling: FALSE 1531s [00:52:11.105] Owner process: 856348fc-72a5-ec0b-63b7-1a3640a93e42 1531s [00:52:11.105] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1531s [00:52:11.108] Chunk #1 of 1 ... DONE 1531s [00:52:11.108] Launching 1 futures (chunks) ... DONE 1531s [00:52:11.108] Resolving 1 futures (chunks) ... 1531s [00:52:11.109] resolve() on list ... 1531s [00:52:11.109] recursive: 0 1531s [00:52:11.111] length: 1 1531s [00:52:11.111] 1531s [00:52:11.112] resolved() for ‘SequentialFuture’ ... 1531s [00:52:11.112] - state: ‘finished’ 1531s [00:52:11.113] - run: TRUE 1531s [00:52:11.113] - result: ‘FutureResult’ 1531s [00:52:11.113] resolved() for ‘SequentialFuture’ ... done 1531s [00:52:11.113] Future #1 1531s [00:52:11.114] signalConditionsASAP(SequentialFuture, pos=1) ... 1531s [00:52:11.114] - nx: 1 1531s [00:52:11.114] - relay: TRUE 1531s [00:52:11.115] - stdout: TRUE 1531s [00:52:11.115] - signal: TRUE 1531s [00:52:11.115] - resignal: FALSE 1531s [00:52:11.115] - force: TRUE 1531s [00:52:11.116] - relayed: [n=1] FALSE 1531s [00:52:11.116] - queued futures: [n=1] FALSE 1531s [00:52:11.116] - until=1 1531s [00:52:11.117] - relaying element #1 1531s [00:52:11.118] - relayed: [n=1] TRUE 1531s [00:52:11.118] - queued futures: [n=1] TRUE 1531s [00:52:11.118] signalConditionsASAP(SequentialFuture, pos=1) ... done 1531s [00:52:11.119] length: 0 (resolved future 1) 1531s [00:52:11.119] Relaying remaining futures 1531s [00:52:11.120] signalConditionsASAP(NULL, pos=0) ... 1531s [00:52:11.120] - nx: 1 1531s [00:52:11.120] - relay: TRUE 1531s [00:52:11.120] - stdout: TRUE 1531s [00:52:11.120] - signal: TRUE 1531s [00:52:11.120] - resignal: FALSE 1531s [00:52:11.120] - force: TRUE 1531s [00:52:11.121] - relayed: [n=1] TRUE 1531s [00:52:11.121] - queued futures: [n=1] TRUE 1531s - flush all 1531s [00:52:11.121] - relayed: [n=1] TRUE 1531s [00:52:11.122] - queued futures: [n=1] TRUE 1531s [00:52:11.122] signalConditionsASAP(NULL, pos=0) ... done 1531s [00:52:11.122] resolve() on list ... DONE 1531s [00:52:11.123] - Number of value chunks collected: 1 1531s [00:52:11.123] Resolving 1 futures (chunks) ... DONE 1531s [00:52:11.123] Reducing values from 1 chunks ... 1531s [00:52:11.123] - Number of values collected after concatenation: 2 1531s [00:52:11.124] - Number of values expected: 2 1531s [00:52:11.124] Reducing values from 1 chunks ... DONE 1531s [00:52:11.124] future_lapply() ... DONE 1531s [00:52:11.125] plan(): Setting new future strategy stack: 1531s [00:52:11.125] List of future strategies: 1531s [00:52:11.125] 1. sequential: 1531s [00:52:11.125] - args: function (..., envir = parent.frame()) 1531s [00:52:11.125] - tweaked: FALSE 1531s [00:52:11.125] - call: plan(sequential) 1531s [00:52:11.126] plan(): nbrOfWorkers() = 1 1531s *** strategy = ‘multisession’ ... done 1531s [,1] [,2] 1531s [1,] 3 2 1531s [2,] 1 4 1531s > *** apply(X, ...) - prod(dim(X)) == 0 [non-parallel] ... 1531s *** exceptions ... 1531s 1531s > 1531s > message("*** apply(X, ...) - prod(dim(X)) == 0 [non-parallel] ...") 1531s > X <- matrix(nrow = 0L, ncol = 2L) 1531s > y0 <- apply(X, MARGIN = 1L, FUN = identity) 1531s > y1 <- future_apply(X, MARGIN = 1L, FUN = identity) 1531s > print(y1) 1531s logical(0) 1531s > stopifnot(identical(y1, y0)) 1531s > 1531s > 1531s > message("*** exceptions ...") 1531s > 1531s > ## Error: dim(X) must have a positive length 1531s > res <- tryCatch({ 1531s + y <- future_apply(1L, MARGIN = 1L, FUN = identity) 1531s + }, error = identity) 1531s *** future_apply() ... DONE 1531s [00:52:11.131] plan(): Setting new future strategy stack: 1531s [00:52:11.131] List of future strategies: 1531s [00:52:11.131] 1. FutureStrategy: 1531s [00:52:11.131] - args: function (..., envir = parent.frame()) 1531s [00:52:11.131] - tweaked: FALSE 1531s [00:52:11.131] - call: future::plan(oplan) 1531s [00:52:11.133] plan(): nbrOfWorkers() = 1 1531s > stopifnot(inherits(res, "error")) 1531s > 1531s > ## Error: 'X' must have named dimnames 1531s > X <- matrix(1:2, nrow = 2L, ncol = 1L) 1531s > res <- tryCatch({ 1531s + y <- future_apply(X, MARGIN = "rows", FUN = identity) 1531s + }, error = identity) 1531s > stopifnot(inherits(res, "error")) 1531s > 1531s > ## Error: not all elements of 'MARGIN' are names of dimensions 1531s > X <- matrix(1:2, nrow = 2L, ncol = 1L, dimnames = list(rows = c("a", "b"))) 1531s > res <- tryCatch({ 1531s + y <- future_apply(X, MARGIN = "cols", FUN = identity) 1531s + }, error = identity) 1531s > stopifnot(inherits(res, "error")) 1531s > 1531s > 1531s > message("*** future_apply() ... DONE") 1531s > 1531s > source("incl/end.R") 1531s > 1531s BEGIN TEST future_by.R 1531s 1531s R version 4.3.3 (2024-02-29) -- "Angel Food Cake" 1531s Copyright (C) 2024 The R Foundation for Statistical Computing 1531s Platform: s390x-ibm-linux-gnu (64-bit) 1531s 1531s R is free software and comes with ABSOLUTELY NO WARRANTY. 1531s You are welcome to redistribute it under certain conditions. 1531s Type 'license()' or 'licence()' for distribution details. 1531s 1531s R is a collaborative project with many contributors. 1531s Type 'contributors()' for more information and 1531s 'citation()' on how to cite R or R packages in publications. 1531s 1531s Type 'demo()' for some demos, 'help()' for on-line help, or 1531s 'help.start()' for an HTML browser interface to help. 1531s Type 'q()' to quit R. 1531s 1531s > source("incl/start.R") 1531s Loading required package: future 1531s [00:52:11.472] plan(): Setting new future strategy stack: 1531s [00:52:11.473] List of future strategies: 1531s [00:52:11.473] 1. sequential: 1531s [00:52:11.473] - args: function (..., envir = parent.frame()) 1531s [00:52:11.473] - tweaked: FALSE 1531s [00:52:11.473] - call: future::plan("sequential") 1531s [00:52:11.494] plan(): nbrOfWorkers() = 1 1531s > library("listenv") 1531s > 1531s > all_equal_but_call <- function(target, current, ...) { 1531s + attr(target, "call") <- NULL 1531s + attr(current, "call") <- NULL 1531s + all.equal(target = target, current = current, ...) 1531s + } 1531s > 1531s > message("*** future_by() ...") 1531s *** future_by() ... 1531s > 1531s > ## --------------------------------------------------------- 1531s > ## by() 1531s > ## --------------------------------------------------------- 1531s > if (require("datasets") && require("stats")) { ## warpbreaks & lm() 1531s + ## Use a local variable to test that it is properly exported, because 1531s + ## 'warpbreaks' is available in all R sessions 1531s + data <- warpbreaks 1531s + 1531s + y0 <- by(data[, 1:2], INDICES = data[,"tension"], FUN = summary) 1531s + y1 <- by(data[, 1], INDICES = data[, -1], FUN = summary, digits = 2L) 1531s + y2 <- by(data, INDICES = data[,"tension"], FUN = function(x, ...) { 1531s + lm(breaks ~ wool, data = x, ...) 1531s + }, singular.ok = FALSE) 1531s + 1531s + ## now suppose we want to extract the coefficients by group 1531s + tmp <- with(data, by(data, INDICES = tension, FUN = function(x) { 1531s + lm(breaks ~ wool, data = x) 1531s + })) 1531s + y3 <- sapply(tmp, coef) 1531s + 1531s + ## Source: {r-source}/tests/reg-tests-1d.R 1531s + by2 <- function(data, INDICES, FUN) { 1531s + by(data, INDICES = INDICES, FUN = FUN) 1531s + } 1531s + future_by2 <- function(data, INDICES, FUN) { 1531s + future_by(data, INDICES = INDICES, FUN = FUN) 1531s + } 1531s + y4 <- by2(data, INDICES = data[,"tension"], FUN = summary) 1531s + 1531s + for (cores in 1:availCores) { 1531s + message(sprintf("Testing with %d cores ...", cores)) 1531s + options(mc.cores = cores) 1531s + strategies <- supportedStrategies(cores) 1531s + 1531s + for (strategy in supportedStrategies()) { 1531s + message(sprintf("- plan('%s') ...", strategy)) 1531s + plan(strategy) 1531s + 1531s + y0f <- future_by(data[, 1:2], INDICES = data[,"tension"], FUN = summary) 1531s + stopifnot(all_equal_but_call(y0f, y0, check.attributes = FALSE)) 1531s + 1531s + y1f <- future_by(data[, 1], INDICES = data[, -1], FUN = summary, digits = 2L) 1531s + stopifnot(all_equal_but_call(y1f, y1)) 1531s + 1531s + y2f <- future_by(data, INDICES = data[,"tension"], FUN = function(x, ...) { 1531s + lm(breaks ~ wool, data = x, ...) 1531s + }, singular.ok = FALSE) 1531s + stopifnot(all_equal_but_call(y2f, y2)) 1531s + 1531s + ## now suppose we want to extract the coefficients by group 1531s + tmp <- with(data, future_by(data, INDICES = tension, FUN = function(x) { 1531s + lm(breaks ~ wool, data = x) 1531s + })) 1531s + y3f <- sapply(tmp, coef) 1531s + stopifnot(all_equal_but_call(y3f, y3)) 1531s + 1531s + y4f <- future_by2(data, INDICES = data[,"tension"], FUN = summary) 1531s + stopifnot(all_equal_but_call(y4f, y4)) 1531s + 1531s + ## Deprecated /HB 2022-10-24 1531s + y4f2 <- future_by2(data, INDICES = data[,"tension"], FUN = "summary") 1531s + stopifnot(all_equal_but_call(y4f2, y4)) 1531s + 1531s + res <- tryCatch({ 1531s + y4f2 <- future_by2(data, INDICES = data[,"tension"], FUN = "summary") 1531s + }, warning = identity) 1531s + stopifnot(inherits(res, "warning")) 1531s + if (getRversion() >= "3.6.0") { 1531s + stopifnot(inherits(res, "deprecatedWarning")) 1531s + } 1531s + } ## for (strategy ...) 1531s + 1531s + message(sprintf("Testing with %d cores ... DONE", cores)) 1531s + } ## for (cores ...) 1531s + } ## if (require("stats")) 1531s Testing with 1 cores ... 1531s - plan('sequential') ... 1531s [00:52:11.595] plan(): Setting new future strategy stack: 1531s [00:52:11.595] List of future strategies: 1531s [00:52:11.595] 1. sequential: 1531s [00:52:11.595] - args: function (..., envir = parent.frame()) 1531s [00:52:11.595] - tweaked: FALSE 1531s [00:52:11.595] - call: plan(strategy) 1531s [00:52:11.612] plan(): nbrOfWorkers() = 1 1531s [00:52:11.613] future_by_internal() ... 1531s [00:52:11.614] future_lapply() ... 1531s [00:52:11.622] Number of chunks: 1 1531s [00:52:11.622] getGlobalsAndPackagesXApply() ... 1531s [00:52:11.623] - future.globals: TRUE 1531s [00:52:11.624] getGlobalsAndPackages() ... 1531s [00:52:11.624] Searching for globals... 1531s [00:52:11.627] - globals found: [2] ‘FUN’, ‘UseMethod’ 1531s [00:52:11.627] Searching for globals ... DONE 1531s [00:52:11.628] Resolving globals: FALSE 1531s [00:52:11.629] The total size of the 1 globals is 1.21 KiB (1240 bytes) 1531s [00:52:11.630] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.21 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.21 KiB of class ‘function’) 1531s [00:52:11.630] - globals: [1] ‘FUN’ 1531s [00:52:11.630] 1531s [00:52:11.630] getGlobalsAndPackages() ... DONE 1531s [00:52:11.630] - globals found/used: [n=1] ‘FUN’ 1531s [00:52:11.630] - needed namespaces: [n=0] 1531s [00:52:11.630] Finding globals ... DONE 1531s [00:52:11.630] - use_args: TRUE 1531s [00:52:11.631] - Getting '...' globals ... 1531s [00:52:11.632] resolve() on list ... 1531s [00:52:11.632] recursive: 0 1531s [00:52:11.632] length: 1 1531s [00:52:11.632] elements: ‘...’ 1531s [00:52:11.633] length: 0 (resolved future 1) 1531s [00:52:11.633] resolve() on list ... DONE 1531s [00:52:11.633] - '...' content: [n=0] 1531s [00:52:11.633] List of 1 1531s [00:52:11.633] $ ...: list() 1531s [00:52:11.633] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1531s [00:52:11.633] - attr(*, "where")=List of 1 1531s [00:52:11.633] ..$ ...: 1531s [00:52:11.633] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1531s [00:52:11.633] - attr(*, "resolved")= logi TRUE 1531s [00:52:11.633] - attr(*, "total_size")= num NA 1531s [00:52:11.639] - Getting '...' globals ... DONE 1531s [00:52:11.639] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1531s [00:52:11.639] List of 2 1531s [00:52:11.639] $ ...future.FUN:function (object, ...) 1531s [00:52:11.639] $ ... : list() 1531s [00:52:11.639] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1531s [00:52:11.639] - attr(*, "where")=List of 2 1531s [00:52:11.639] ..$ ...future.FUN: 1531s [00:52:11.639] ..$ ... : 1531s [00:52:11.639] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1531s [00:52:11.639] - attr(*, "resolved")= logi FALSE 1531s [00:52:11.639] - attr(*, "total_size")= num 1240 1531s [00:52:11.642] Packages to be attached in all futures: [n=0] 1531s [00:52:11.643] getGlobalsAndPackagesXApply() ... DONE 1531s [00:52:11.643] Number of futures (= number of chunks): 1 1531s [00:52:11.643] Launching 1 futures (chunks) ... 1531s [00:52:11.644] Chunk #1 of 1 ... 1531s [00:52:11.644] - Finding globals in 'X' for chunk #1 ... 1531s [00:52:11.644] getGlobalsAndPackages() ... 1531s [00:52:11.645] Searching for globals... 1531s [00:52:11.645] 1531s [00:52:11.645] Searching for globals ... DONE 1531s [00:52:11.646] - globals: [0] 1531s [00:52:11.646] getGlobalsAndPackages() ... DONE 1531s [00:52:11.646] + additional globals found: [n=0] 1531s [00:52:11.646] + additional namespaces needed: [n=0] 1531s [00:52:11.646] - Finding globals in 'X' for chunk #1 ... DONE 1531s [00:52:11.646] - seeds: 1531s [00:52:11.646] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1531s [00:52:11.647] getGlobalsAndPackages() ... 1531s [00:52:11.647] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1531s [00:52:11.647] Resolving globals: FALSE 1531s [00:52:11.648] Tweak future expression to call with '...' arguments ... 1531s [00:52:11.648] { 1531s [00:52:11.648] do.call(function(...) { 1531s [00:52:11.648] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1531s [00:52:11.648] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1531s [00:52:11.648] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1531s [00:52:11.648] on.exit(options(oopts), add = TRUE) 1531s [00:52:11.648] } 1531s [00:52:11.648] { 1531s [00:52:11.648] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1531s [00:52:11.648] ...future.X_jj <- ...future.elements_ii[[jj]] 1531s [00:52:11.648] ...future.FUN(...future.X_jj, ...) 1531s [00:52:11.648] }) 1531s [00:52:11.648] } 1531s [00:52:11.648] }, args = future.call.arguments) 1531s [00:52:11.648] } 1531s [00:52:11.648] Tweak future expression to call with '...' arguments ... DONE 1531s [00:52:11.649] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1531s [00:52:11.649] 1531s [00:52:11.649] getGlobalsAndPackages() ... DONE 1531s [00:52:11.650] run() for ‘Future’ ... 1531s [00:52:11.650] - state: ‘created’ 1531s [00:52:11.651] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1531s [00:52:11.651] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1531s [00:52:11.652] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1531s [00:52:11.652] - Field: ‘label’ 1531s [00:52:11.652] - Field: ‘local’ 1531s [00:52:11.652] - Field: ‘owner’ 1531s [00:52:11.652] - Field: ‘envir’ 1531s [00:52:11.652] - Field: ‘packages’ 1531s [00:52:11.652] - Field: ‘gc’ 1531s [00:52:11.653] - Field: ‘conditions’ 1531s [00:52:11.653] - Field: ‘expr’ 1531s [00:52:11.653] - Field: ‘uuid’ 1531s [00:52:11.653] - Field: ‘seed’ 1531s [00:52:11.654] - Field: ‘version’ 1531s [00:52:11.654] - Field: ‘result’ 1531s [00:52:11.654] - Field: ‘asynchronous’ 1531s [00:52:11.654] - Field: ‘calls’ 1531s [00:52:11.657] - Field: ‘globals’ 1531s [00:52:11.657] - Field: ‘stdout’ 1531s [00:52:11.658] - Field: ‘earlySignal’ 1531s [00:52:11.658] - Field: ‘lazy’ 1531s [00:52:11.658] - Field: ‘state’ 1531s [00:52:11.659] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1531s [00:52:11.659] - Launch lazy future ... 1531s [00:52:11.661] Packages needed by the future expression (n = 0): 1531s [00:52:11.662] Packages needed by future strategies (n = 0): 1531s [00:52:11.663] { 1531s [00:52:11.663] { 1531s [00:52:11.663] { 1531s [00:52:11.663] ...future.startTime <- base::Sys.time() 1531s [00:52:11.663] { 1531s [00:52:11.663] { 1531s [00:52:11.663] { 1531s [00:52:11.663] base::local({ 1531s [00:52:11.663] has_future <- base::requireNamespace("future", 1531s [00:52:11.663] quietly = TRUE) 1531s [00:52:11.663] if (has_future) { 1531s [00:52:11.663] ns <- base::getNamespace("future") 1531s [00:52:11.663] version <- ns[[".package"]][["version"]] 1531s [00:52:11.663] if (is.null(version)) 1531s [00:52:11.663] version <- utils::packageVersion("future") 1531s [00:52:11.663] } 1531s [00:52:11.663] else { 1531s [00:52:11.663] version <- NULL 1531s [00:52:11.663] } 1531s [00:52:11.663] if (!has_future || version < "1.8.0") { 1531s [00:52:11.663] info <- base::c(r_version = base::gsub("R version ", 1531s [00:52:11.663] "", base::R.version$version.string), 1531s [00:52:11.663] platform = base::sprintf("%s (%s-bit)", 1531s [00:52:11.663] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1531s [00:52:11.663] os = base::paste(base::Sys.info()[base::c("sysname", 1531s [00:52:11.663] "release", "version")], collapse = " "), 1531s [00:52:11.663] hostname = base::Sys.info()[["nodename"]]) 1531s [00:52:11.663] info <- base::sprintf("%s: %s", base::names(info), 1531s [00:52:11.663] info) 1531s [00:52:11.663] info <- base::paste(info, collapse = "; ") 1531s [00:52:11.663] if (!has_future) { 1531s [00:52:11.663] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1531s [00:52:11.663] info) 1531s [00:52:11.663] } 1531s [00:52:11.663] else { 1531s [00:52:11.663] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1531s [00:52:11.663] info, version) 1531s [00:52:11.663] } 1531s [00:52:11.663] base::stop(msg) 1531s [00:52:11.663] } 1531s [00:52:11.663] }) 1531s [00:52:11.663] } 1531s [00:52:11.663] options(future.plan = NULL) 1531s [00:52:11.663] Sys.unsetenv("R_FUTURE_PLAN") 1531s [00:52:11.663] future::plan("default", .cleanup = FALSE, .init = FALSE) 1531s [00:52:11.663] } 1531s [00:52:11.663] ...future.workdir <- getwd() 1531s [00:52:11.663] } 1531s [00:52:11.663] ...future.oldOptions <- base::as.list(base::.Options) 1531s [00:52:11.663] ...future.oldEnvVars <- base::Sys.getenv() 1531s [00:52:11.663] } 1531s [00:52:11.663] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1531s [00:52:11.663] future.globals.maxSize = NULL, future.globals.method = NULL, 1531s [00:52:11.663] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1531s [00:52:11.663] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1531s [00:52:11.663] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1531s [00:52:11.663] future.stdout.windows.reencode = NULL, width = 80L) 1531s [00:52:11.663] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1531s [00:52:11.663] base::names(...future.oldOptions)) 1531s [00:52:11.663] } 1531s [00:52:11.663] if (FALSE) { 1531s [00:52:11.663] } 1531s [00:52:11.663] else { 1531s [00:52:11.663] if (TRUE) { 1531s [00:52:11.663] ...future.stdout <- base::rawConnection(base::raw(0L), 1531s [00:52:11.663] open = "w") 1531s [00:52:11.663] } 1531s [00:52:11.663] else { 1531s [00:52:11.663] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1531s [00:52:11.663] windows = "NUL", "/dev/null"), open = "w") 1531s [00:52:11.663] } 1531s [00:52:11.663] base::sink(...future.stdout, type = "output", split = FALSE) 1531s [00:52:11.663] base::on.exit(if (!base::is.null(...future.stdout)) { 1531s [00:52:11.663] base::sink(type = "output", split = FALSE) 1531s [00:52:11.663] base::close(...future.stdout) 1531s [00:52:11.663] }, add = TRUE) 1531s [00:52:11.663] } 1531s [00:52:11.663] ...future.frame <- base::sys.nframe() 1531s [00:52:11.663] ...future.conditions <- base::list() 1531s [00:52:11.663] ...future.rng <- base::globalenv()$.Random.seed 1531s [00:52:11.663] if (FALSE) { 1531s [00:52:11.663] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1531s [00:52:11.663] "...future.value", "...future.globalenv.names", ".Random.seed") 1531s [00:52:11.663] } 1531s [00:52:11.663] ...future.result <- base::tryCatch({ 1531s [00:52:11.663] base::withCallingHandlers({ 1531s [00:52:11.663] ...future.value <- base::withVisible(base::local({ 1531s [00:52:11.663] do.call(function(...) { 1531s [00:52:11.663] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1531s [00:52:11.663] if (!identical(...future.globals.maxSize.org, 1531s [00:52:11.663] ...future.globals.maxSize)) { 1531s [00:52:11.663] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1531s [00:52:11.663] on.exit(options(oopts), add = TRUE) 1531s [00:52:11.663] } 1531s [00:52:11.663] { 1531s [00:52:11.663] lapply(seq_along(...future.elements_ii), 1531s [00:52:11.663] FUN = function(jj) { 1531s [00:52:11.663] ...future.X_jj <- ...future.elements_ii[[jj]] 1531s [00:52:11.663] ...future.FUN(...future.X_jj, ...) 1531s [00:52:11.663] }) 1531s [00:52:11.663] } 1531s [00:52:11.663] }, args = future.call.arguments) 1531s [00:52:11.663] })) 1531s [00:52:11.663] future::FutureResult(value = ...future.value$value, 1531s [00:52:11.663] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1531s [00:52:11.663] ...future.rng), globalenv = if (FALSE) 1531s [00:52:11.663] list(added = base::setdiff(base::names(base::.GlobalEnv), 1531s [00:52:11.663] ...future.globalenv.names)) 1531s [00:52:11.663] else NULL, started = ...future.startTime, version = "1.8") 1531s [00:52:11.663] }, condition = base::local({ 1531s [00:52:11.663] c <- base::c 1531s [00:52:11.663] inherits <- base::inherits 1531s [00:52:11.663] invokeRestart <- base::invokeRestart 1531s [00:52:11.663] length <- base::length 1531s [00:52:11.663] list <- base::list 1531s [00:52:11.663] seq.int <- base::seq.int 1531s [00:52:11.663] signalCondition <- base::signalCondition 1531s [00:52:11.663] sys.calls <- base::sys.calls 1531s [00:52:11.663] `[[` <- base::`[[` 1531s [00:52:11.663] `+` <- base::`+` 1531s [00:52:11.663] `<<-` <- base::`<<-` 1531s [00:52:11.663] sysCalls <- function(calls = sys.calls(), from = 1L) { 1531s [00:52:11.663] calls[seq.int(from = from + 12L, to = length(calls) - 1531s [00:52:11.663] 3L)] 1531s [00:52:11.663] } 1531s [00:52:11.663] function(cond) { 1531s [00:52:11.663] is_error <- inherits(cond, "error") 1531s [00:52:11.663] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1531s [00:52:11.663] NULL) 1531s [00:52:11.663] if (is_error) { 1531s [00:52:11.663] sessionInformation <- function() { 1531s [00:52:11.663] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1531s [00:52:11.663] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1531s [00:52:11.663] search = base::search(), system = base::Sys.info()) 1531s [00:52:11.663] } 1531s [00:52:11.663] ...future.conditions[[length(...future.conditions) + 1531s [00:52:11.663] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1531s [00:52:11.663] cond$call), session = sessionInformation(), 1531s [00:52:11.663] timestamp = base::Sys.time(), signaled = 0L) 1531s [00:52:11.663] signalCondition(cond) 1531s [00:52:11.663] } 1531s [00:52:11.663] else if (!ignore && TRUE && inherits(cond, c("condition", 1531s [00:52:11.663] "immediateCondition"))) { 1531s [00:52:11.663] signal <- TRUE && inherits(cond, "immediateCondition") 1531s [00:52:11.663] ...future.conditions[[length(...future.conditions) + 1531s [00:52:11.663] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1531s [00:52:11.663] if (TRUE && !signal) { 1531s [00:52:11.663] muffleCondition <- function (cond, pattern = "^muffle") 1531s [00:52:11.663] { 1531s [00:52:11.663] inherits <- base::inherits 1531s [00:52:11.663] invokeRestart <- base::invokeRestart 1531s [00:52:11.663] is.null <- base::is.null 1531s [00:52:11.663] muffled <- FALSE 1531s [00:52:11.663] if (inherits(cond, "message")) { 1531s [00:52:11.663] muffled <- grepl(pattern, "muffleMessage") 1531s [00:52:11.663] if (muffled) 1531s [00:52:11.663] invokeRestart("muffleMessage") 1531s [00:52:11.663] } 1531s [00:52:11.663] else if (inherits(cond, "warning")) { 1531s [00:52:11.663] muffled <- grepl(pattern, "muffleWarning") 1531s [00:52:11.663] if (muffled) 1531s [00:52:11.663] invokeRestart("muffleWarning") 1531s [00:52:11.663] } 1531s [00:52:11.663] else if (inherits(cond, "condition")) { 1531s [00:52:11.663] if (!is.null(pattern)) { 1531s [00:52:11.663] computeRestarts <- base::computeRestarts 1531s [00:52:11.663] grepl <- base::grepl 1531s [00:52:11.663] restarts <- computeRestarts(cond) 1531s [00:52:11.663] for (restart in restarts) { 1531s [00:52:11.663] name <- restart$name 1531s [00:52:11.663] if (is.null(name)) 1531s [00:52:11.663] next 1531s [00:52:11.663] if (!grepl(pattern, name)) 1531s [00:52:11.663] next 1531s [00:52:11.663] invokeRestart(restart) 1531s [00:52:11.663] muffled <- TRUE 1531s [00:52:11.663] break 1531s [00:52:11.663] } 1531s [00:52:11.663] } 1531s [00:52:11.663] } 1531s [00:52:11.663] invisible(muffled) 1531s [00:52:11.663] } 1531s [00:52:11.663] muffleCondition(cond, pattern = "^muffle") 1531s [00:52:11.663] } 1531s [00:52:11.663] } 1531s [00:52:11.663] else { 1531s [00:52:11.663] if (TRUE) { 1531s [00:52:11.663] muffleCondition <- function (cond, pattern = "^muffle") 1531s [00:52:11.663] { 1531s [00:52:11.663] inherits <- base::inherits 1531s [00:52:11.663] invokeRestart <- base::invokeRestart 1531s [00:52:11.663] is.null <- base::is.null 1531s [00:52:11.663] muffled <- FALSE 1531s [00:52:11.663] if (inherits(cond, "message")) { 1531s [00:52:11.663] muffled <- grepl(pattern, "muffleMessage") 1531s [00:52:11.663] if (muffled) 1531s [00:52:11.663] invokeRestart("muffleMessage") 1531s [00:52:11.663] } 1531s [00:52:11.663] else if (inherits(cond, "warning")) { 1531s [00:52:11.663] muffled <- grepl(pattern, "muffleWarning") 1531s [00:52:11.663] if (muffled) 1531s [00:52:11.663] invokeRestart("muffleWarning") 1531s [00:52:11.663] } 1531s [00:52:11.663] else if (inherits(cond, "condition")) { 1531s [00:52:11.663] if (!is.null(pattern)) { 1531s [00:52:11.663] computeRestarts <- base::computeRestarts 1531s [00:52:11.663] grepl <- base::grepl 1531s [00:52:11.663] restarts <- computeRestarts(cond) 1531s [00:52:11.663] for (restart in restarts) { 1531s [00:52:11.663] name <- restart$name 1531s [00:52:11.663] if (is.null(name)) 1531s [00:52:11.663] next 1531s [00:52:11.663] if (!grepl(pattern, name)) 1531s [00:52:11.663] next 1531s [00:52:11.663] invokeRestart(restart) 1531s [00:52:11.663] muffled <- TRUE 1531s [00:52:11.663] break 1531s [00:52:11.663] } 1531s [00:52:11.663] } 1531s [00:52:11.663] } 1531s [00:52:11.663] invisible(muffled) 1531s [00:52:11.663] } 1531s [00:52:11.663] muffleCondition(cond, pattern = "^muffle") 1531s [00:52:11.663] } 1531s [00:52:11.663] } 1531s [00:52:11.663] } 1531s [00:52:11.663] })) 1531s [00:52:11.663] }, error = function(ex) { 1531s [00:52:11.663] base::structure(base::list(value = NULL, visible = NULL, 1531s [00:52:11.663] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1531s [00:52:11.663] ...future.rng), started = ...future.startTime, 1531s [00:52:11.663] finished = Sys.time(), session_uuid = NA_character_, 1531s [00:52:11.663] version = "1.8"), class = "FutureResult") 1531s [00:52:11.663] }, finally = { 1531s [00:52:11.663] if (!identical(...future.workdir, getwd())) 1531s [00:52:11.663] setwd(...future.workdir) 1531s [00:52:11.663] { 1531s [00:52:11.663] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1531s [00:52:11.663] ...future.oldOptions$nwarnings <- NULL 1531s [00:52:11.663] } 1531s [00:52:11.663] base::options(...future.oldOptions) 1531s [00:52:11.663] if (.Platform$OS.type == "windows") { 1531s [00:52:11.663] old_names <- names(...future.oldEnvVars) 1531s [00:52:11.663] envs <- base::Sys.getenv() 1531s [00:52:11.663] names <- names(envs) 1531s [00:52:11.663] common <- intersect(names, old_names) 1531s [00:52:11.663] added <- setdiff(names, old_names) 1531s [00:52:11.663] removed <- setdiff(old_names, names) 1531s [00:52:11.663] changed <- common[...future.oldEnvVars[common] != 1531s [00:52:11.663] envs[common]] 1531s [00:52:11.663] NAMES <- toupper(changed) 1531s [00:52:11.663] args <- list() 1531s [00:52:11.663] for (kk in seq_along(NAMES)) { 1531s [00:52:11.663] name <- changed[[kk]] 1531s [00:52:11.663] NAME <- NAMES[[kk]] 1531s [00:52:11.663] if (name != NAME && is.element(NAME, old_names)) 1531s [00:52:11.663] next 1531s [00:52:11.663] args[[name]] <- ...future.oldEnvVars[[name]] 1531s [00:52:11.663] } 1531s [00:52:11.663] NAMES <- toupper(added) 1531s [00:52:11.663] for (kk in seq_along(NAMES)) { 1531s [00:52:11.663] name <- added[[kk]] 1531s [00:52:11.663] NAME <- NAMES[[kk]] 1531s [00:52:11.663] if (name != NAME && is.element(NAME, old_names)) 1531s [00:52:11.663] next 1531s [00:52:11.663] args[[name]] <- "" 1531s [00:52:11.663] } 1531s [00:52:11.663] NAMES <- toupper(removed) 1531s [00:52:11.663] for (kk in seq_along(NAMES)) { 1531s [00:52:11.663] name <- removed[[kk]] 1531s [00:52:11.663] NAME <- NAMES[[kk]] 1531s [00:52:11.663] if (name != NAME && is.element(NAME, old_names)) 1531s [00:52:11.663] next 1531s [00:52:11.663] args[[name]] <- ...future.oldEnvVars[[name]] 1531s [00:52:11.663] } 1531s [00:52:11.663] if (length(args) > 0) 1531s [00:52:11.663] base::do.call(base::Sys.setenv, args = args) 1531s [00:52:11.663] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1531s [00:52:11.663] } 1531s [00:52:11.663] else { 1531s [00:52:11.663] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1531s [00:52:11.663] } 1531s [00:52:11.663] { 1531s [00:52:11.663] if (base::length(...future.futureOptionsAdded) > 1531s [00:52:11.663] 0L) { 1531s [00:52:11.663] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1531s [00:52:11.663] base::names(opts) <- ...future.futureOptionsAdded 1531s [00:52:11.663] base::options(opts) 1531s [00:52:11.663] } 1531s [00:52:11.663] { 1531s [00:52:11.663] { 1531s [00:52:11.663] NULL 1531s [00:52:11.663] RNGkind("Mersenne-Twister") 1531s [00:52:11.663] base::rm(list = ".Random.seed", envir = base::globalenv(), 1531s [00:52:11.663] inherits = FALSE) 1531s [00:52:11.663] } 1531s [00:52:11.663] options(future.plan = NULL) 1531s [00:52:11.663] if (is.na(NA_character_)) 1531s [00:52:11.663] Sys.unsetenv("R_FUTURE_PLAN") 1531s [00:52:11.663] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1531s [00:52:11.663] future::plan(list(function (..., envir = parent.frame()) 1531s [00:52:11.663] { 1531s [00:52:11.663] future <- SequentialFuture(..., envir = envir) 1531s [00:52:11.663] if (!future$lazy) 1531s [00:52:11.663] future <- run(future) 1531s [00:52:11.663] invisible(future) 1531s [00:52:11.663] }), .cleanup = FALSE, .init = FALSE) 1531s [00:52:11.663] } 1531s [00:52:11.663] } 1531s [00:52:11.663] } 1531s [00:52:11.663] }) 1531s [00:52:11.663] if (TRUE) { 1531s [00:52:11.663] base::sink(type = "output", split = FALSE) 1531s [00:52:11.663] if (TRUE) { 1531s [00:52:11.663] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1531s [00:52:11.663] } 1531s [00:52:11.663] else { 1531s [00:52:11.663] ...future.result["stdout"] <- base::list(NULL) 1531s [00:52:11.663] } 1531s [00:52:11.663] base::close(...future.stdout) 1531s [00:52:11.663] ...future.stdout <- NULL 1531s [00:52:11.663] } 1531s [00:52:11.663] ...future.result$conditions <- ...future.conditions 1531s [00:52:11.663] ...future.result$finished <- base::Sys.time() 1531s [00:52:11.663] ...future.result 1531s [00:52:11.663] } 1531s [00:52:11.677] assign_globals() ... 1531s [00:52:11.677] List of 5 1531s [00:52:11.677] $ ...future.FUN :function (object, ...) 1531s [00:52:11.677] $ future.call.arguments : list() 1531s [00:52:11.677] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1531s [00:52:11.677] $ ...future.elements_ii :List of 3 1531s [00:52:11.677] ..$ :'data.frame': 18 obs. of 2 variables: 1531s [00:52:11.677] .. ..$ breaks: num [1:18] 26 30 54 25 70 52 51 26 67 27 ... 1531s [00:52:11.677] .. ..$ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 2 ... 1531s [00:52:11.677] ..$ :'data.frame': 18 obs. of 2 variables: 1531s [00:52:11.677] .. ..$ breaks: num [1:18] 18 21 29 17 12 18 35 30 36 42 ... 1531s [00:52:11.677] .. ..$ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 2 ... 1531s [00:52:11.677] ..$ :'data.frame': 18 obs. of 2 variables: 1531s [00:52:11.677] .. ..$ breaks: num [1:18] 36 21 24 18 10 43 28 15 26 20 ... 1531s [00:52:11.677] .. ..$ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 2 ... 1531s [00:52:11.677] $ ...future.seeds_ii : NULL 1531s [00:52:11.677] $ ...future.globals.maxSize: NULL 1531s [00:52:11.677] - attr(*, "where")=List of 5 1531s [00:52:11.677] ..$ ...future.FUN : 1531s [00:52:11.677] ..$ future.call.arguments : 1531s [00:52:11.677] ..$ ...future.elements_ii : 1531s [00:52:11.677] ..$ ...future.seeds_ii : 1531s [00:52:11.677] ..$ ...future.globals.maxSize: 1531s [00:52:11.677] - attr(*, "resolved")= logi FALSE 1531s [00:52:11.677] - attr(*, "total_size")= num 1240 1531s [00:52:11.677] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1531s [00:52:11.677] - attr(*, "already-done")= logi TRUE 1531s [00:52:11.695] - copied ‘...future.FUN’ to environment 1531s [00:52:11.695] - copied ‘future.call.arguments’ to environment 1531s [00:52:11.696] - copied ‘...future.elements_ii’ to environment 1531s [00:52:11.696] - copied ‘...future.seeds_ii’ to environment 1531s [00:52:11.696] - copied ‘...future.globals.maxSize’ to environment 1531s [00:52:11.697] assign_globals() ... done 1531s [00:52:11.699] plan(): Setting new future strategy stack: 1531s [00:52:11.699] List of future strategies: 1531s [00:52:11.699] 1. sequential: 1531s [00:52:11.699] - args: function (..., envir = parent.frame()) 1531s [00:52:11.699] - tweaked: FALSE 1531s [00:52:11.699] - call: NULL 1531s [00:52:11.700] plan(): nbrOfWorkers() = 1 1531s [00:52:11.702] plan(): Setting new future strategy stack: 1531s [00:52:11.703] List of future strategies: 1531s [00:52:11.703] 1. sequential: 1531s [00:52:11.703] - args: function (..., envir = parent.frame()) 1531s [00:52:11.703] - tweaked: FALSE 1531s [00:52:11.703] - call: plan(strategy) 1531s [00:52:11.703] plan(): nbrOfWorkers() = 1 1531s [00:52:11.703] SequentialFuture started (and completed) 1531s [00:52:11.704] - Launch lazy future ... done 1531s [00:52:11.704] run() for ‘SequentialFuture’ ... done 1531s [00:52:11.704] Created future: 1531s [00:52:11.705] SequentialFuture: 1531s [00:52:11.705] Label: ‘future_by-1’ 1531s [00:52:11.705] Expression: 1531s [00:52:11.705] { 1531s [00:52:11.705] do.call(function(...) { 1531s [00:52:11.705] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1531s [00:52:11.705] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1531s [00:52:11.705] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1531s [00:52:11.705] on.exit(options(oopts), add = TRUE) 1531s [00:52:11.705] } 1531s [00:52:11.705] { 1531s [00:52:11.705] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1531s [00:52:11.705] ...future.X_jj <- ...future.elements_ii[[jj]] 1531s [00:52:11.705] ...future.FUN(...future.X_jj, ...) 1531s [00:52:11.705] }) 1531s [00:52:11.705] } 1531s [00:52:11.705] }, args = future.call.arguments) 1531s [00:52:11.705] } 1531s [00:52:11.705] Lazy evaluation: FALSE 1531s [00:52:11.705] Asynchronous evaluation: FALSE 1531s [00:52:11.705] Local evaluation: TRUE 1531s [00:52:11.705] Environment: R_GlobalEnv 1531s [00:52:11.705] Capture standard output: TRUE 1531s [00:52:11.705] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1531s [00:52:11.705] Globals: 5 objects totaling 3.79 KiB (function ‘...future.FUN’ of 1.21 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 2.58 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1531s [00:52:11.705] Packages: 1531s [00:52:11.705] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1531s [00:52:11.705] Resolved: TRUE 1531s [00:52:11.705] Value: 4.62 KiB of class ‘list’ 1531s [00:52:11.705] Early signaling: FALSE 1531s [00:52:11.705] Owner process: 64a671dd-8756-a081-baa7-973da233f197 1531s [00:52:11.705] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1531s [00:52:11.707] Chunk #1 of 1 ... DONE 1531s [00:52:11.707] Launching 1 futures (chunks) ... DONE 1531s [00:52:11.707] Resolving 1 futures (chunks) ... 1531s [00:52:11.708] resolve() on list ... 1531s [00:52:11.708] recursive: 0 1531s [00:52:11.708] length: 1 1531s [00:52:11.708] 1531s [00:52:11.708] resolved() for ‘SequentialFuture’ ... 1531s [00:52:11.709] - state: ‘finished’ 1531s [00:52:11.709] - run: TRUE 1531s [00:52:11.709] - result: ‘FutureResult’ 1531s [00:52:11.709] resolved() for ‘SequentialFuture’ ... done 1531s [00:52:11.709] Future #1 1531s [00:52:11.710] signalConditionsASAP(SequentialFuture, pos=1) ... 1531s [00:52:11.710] - nx: 1 1531s [00:52:11.711] - relay: TRUE 1531s [00:52:11.711] - stdout: TRUE 1531s [00:52:11.711] - signal: TRUE 1531s [00:52:11.712] - resignal: FALSE 1531s [00:52:11.712] - force: TRUE 1531s [00:52:11.712] - relayed: [n=1] FALSE 1531s [00:52:11.712] - queued futures: [n=1] FALSE 1531s [00:52:11.712] - until=1 1531s [00:52:11.712] - relaying element #1 1531s [00:52:11.713] - relayed: [n=1] TRUE 1531s [00:52:11.713] - queued futures: [n=1] TRUE 1531s [00:52:11.713] signalConditionsASAP(SequentialFuture, pos=1) ... done 1531s [00:52:11.713] length: 0 (resolved future 1) 1531s [00:52:11.714] Relaying remaining futures 1531s [00:52:11.714] signalConditionsASAP(NULL, pos=0) ... 1531s [00:52:11.714] - nx: 1 1531s [00:52:11.714] - relay: TRUE 1531s [00:52:11.714] - stdout: TRUE 1531s [00:52:11.714] - signal: TRUE 1531s [00:52:11.715] - resignal: FALSE 1531s [00:52:11.715] - force: TRUE 1531s [00:52:11.715] - relayed: [n=1] TRUE 1531s [00:52:11.715] - queued futures: [n=1] TRUE 1531s - flush all 1531s [00:52:11.716] - relayed: [n=1] TRUE 1531s [00:52:11.716] - queued futures: [n=1] TRUE 1531s [00:52:11.717] signalConditionsASAP(NULL, pos=0) ... done 1531s [00:52:11.717] resolve() on list ... DONE 1531s [00:52:11.717] - Number of value chunks collected: 1 1531s [00:52:11.717] Resolving 1 futures (chunks) ... DONE 1531s [00:52:11.717] Reducing values from 1 chunks ... 1531s [00:52:11.717] - Number of values collected after concatenation: 3 1531s [00:52:11.718] - Number of values expected: 3 1531s [00:52:11.718] Reducing values from 1 chunks ... DONE 1531s [00:52:11.718] future_lapply() ... DONE 1531s [00:52:11.718] future_by_internal() ... DONE 1531s [00:52:11.719] future_by_internal() ... 1531s [00:52:11.720] future_lapply() ... 1531s [00:52:11.721] Number of chunks: 1 1531s [00:52:11.724] getGlobalsAndPackagesXApply() ... 1531s [00:52:11.724] - future.globals: TRUE 1531s [00:52:11.724] getGlobalsAndPackages() ... 1531s [00:52:11.724] Searching for globals... 1531s [00:52:11.725] - globals found: [2] ‘FUN’, ‘UseMethod’ 1531s [00:52:11.726] Searching for globals ... DONE 1531s [00:52:11.726] Resolving globals: FALSE 1531s [00:52:11.726] The total size of the 1 globals is 1.21 KiB (1240 bytes) 1531s [00:52:11.727] The total size of the 1 globals exported for future expression (‘FUN(digits = 2L)’) is 1.21 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.21 KiB of class ‘function’) 1531s [00:52:11.727] - globals: [1] ‘FUN’ 1531s [00:52:11.727] 1531s [00:52:11.727] getGlobalsAndPackages() ... DONE 1531s [00:52:11.727] - globals found/used: [n=1] ‘FUN’ 1531s [00:52:11.727] - needed namespaces: [n=0] 1531s [00:52:11.727] Finding globals ... DONE 1531s [00:52:11.727] - use_args: TRUE 1531s [00:52:11.728] - Getting '...' globals ... 1531s [00:52:11.728] resolve() on list ... 1531s [00:52:11.728] recursive: 0 1531s [00:52:11.728] length: 1 1531s [00:52:11.728] elements: ‘...’ 1531s [00:52:11.728] length: 0 (resolved future 1) 1531s [00:52:11.728] resolve() on list ... DONE 1531s [00:52:11.729] - '...' content: [n=1] ‘digits’ 1531s [00:52:11.729] List of 1 1531s [00:52:11.729] $ ...:List of 1 1531s [00:52:11.729] ..$ digits: int 2 1531s [00:52:11.729] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1531s [00:52:11.729] - attr(*, "where")=List of 1 1531s [00:52:11.729] ..$ ...: 1531s [00:52:11.729] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1531s [00:52:11.729] - attr(*, "resolved")= logi TRUE 1531s [00:52:11.729] - attr(*, "total_size")= num NA 1531s [00:52:11.732] - Getting '...' globals ... DONE 1531s [00:52:11.732] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1531s [00:52:11.733] List of 2 1531s [00:52:11.733] $ ...future.FUN:function (object, ...) 1531s [00:52:11.733] $ ... :List of 1 1531s [00:52:11.733] ..$ digits: int 2 1531s [00:52:11.733] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1531s [00:52:11.733] - attr(*, "where")=List of 2 1531s [00:52:11.733] ..$ ...future.FUN: 1531s [00:52:11.733] ..$ ... : 1531s [00:52:11.733] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1531s [00:52:11.733] - attr(*, "resolved")= logi FALSE 1531s [00:52:11.733] - attr(*, "total_size")= num 1296 1531s [00:52:11.737] Packages to be attached in all futures: [n=0] 1531s [00:52:11.737] getGlobalsAndPackagesXApply() ... DONE 1531s [00:52:11.738] Number of futures (= number of chunks): 1 1531s [00:52:11.738] Launching 1 futures (chunks) ... 1531s [00:52:11.738] Chunk #1 of 1 ... 1531s [00:52:11.738] - Finding globals in 'X' for chunk #1 ... 1531s [00:52:11.738] getGlobalsAndPackages() ... 1531s [00:52:11.738] Searching for globals... 1531s [00:52:11.739] 1531s [00:52:11.739] Searching for globals ... DONE 1531s [00:52:11.739] - globals: [0] 1531s [00:52:11.739] getGlobalsAndPackages() ... DONE 1531s [00:52:11.739] + additional globals found: [n=0] 1531s [00:52:11.739] + additional namespaces needed: [n=0] 1531s [00:52:11.739] - Finding globals in 'X' for chunk #1 ... DONE 1531s [00:52:11.740] - seeds: 1531s [00:52:11.740] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1531s [00:52:11.740] getGlobalsAndPackages() ... 1531s [00:52:11.740] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1531s [00:52:11.740] Resolving globals: FALSE 1531s [00:52:11.740] Tweak future expression to call with '...' arguments ... 1531s [00:52:11.741] { 1531s [00:52:11.741] do.call(function(...) { 1531s [00:52:11.741] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1531s [00:52:11.741] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1531s [00:52:11.741] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1531s [00:52:11.741] on.exit(options(oopts), add = TRUE) 1531s [00:52:11.741] } 1531s [00:52:11.741] { 1531s [00:52:11.741] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1531s [00:52:11.741] ...future.X_jj <- ...future.elements_ii[[jj]] 1531s [00:52:11.741] ...future.FUN(...future.X_jj, ...) 1531s [00:52:11.741] }) 1531s [00:52:11.741] } 1531s [00:52:11.741] }, args = future.call.arguments) 1531s [00:52:11.741] } 1531s [00:52:11.741] Tweak future expression to call with '...' arguments ... DONE 1531s [00:52:11.742] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1531s [00:52:11.742] 1531s [00:52:11.742] getGlobalsAndPackages() ... DONE 1531s [00:52:11.742] run() for ‘Future’ ... 1531s [00:52:11.743] - state: ‘created’ 1531s [00:52:11.743] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1531s [00:52:11.744] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1531s [00:52:11.744] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1531s [00:52:11.744] - Field: ‘label’ 1531s [00:52:11.744] - Field: ‘local’ 1531s [00:52:11.744] - Field: ‘owner’ 1531s [00:52:11.744] - Field: ‘envir’ 1531s [00:52:11.745] - Field: ‘packages’ 1531s [00:52:11.745] - Field: ‘gc’ 1531s [00:52:11.745] - Field: ‘conditions’ 1531s [00:52:11.745] - Field: ‘expr’ 1531s [00:52:11.745] - Field: ‘uuid’ 1531s [00:52:11.745] - Field: ‘seed’ 1531s [00:52:11.745] - Field: ‘version’ 1531s [00:52:11.746] - Field: ‘result’ 1531s [00:52:11.746] - Field: ‘asynchronous’ 1531s [00:52:11.746] - Field: ‘calls’ 1531s [00:52:11.746] - Field: ‘globals’ 1531s [00:52:11.746] - Field: ‘stdout’ 1531s [00:52:11.746] - Field: ‘earlySignal’ 1531s [00:52:11.746] - Field: ‘lazy’ 1531s [00:52:11.747] - Field: ‘state’ 1531s [00:52:11.747] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1531s [00:52:11.747] - Launch lazy future ... 1531s [00:52:11.747] Packages needed by the future expression (n = 0): 1531s [00:52:11.747] Packages needed by future strategies (n = 0): 1531s [00:52:11.748] { 1531s [00:52:11.748] { 1531s [00:52:11.748] { 1531s [00:52:11.748] ...future.startTime <- base::Sys.time() 1531s [00:52:11.748] { 1531s [00:52:11.748] { 1531s [00:52:11.748] { 1531s [00:52:11.748] base::local({ 1531s [00:52:11.748] has_future <- base::requireNamespace("future", 1531s [00:52:11.748] quietly = TRUE) 1531s [00:52:11.748] if (has_future) { 1531s [00:52:11.748] ns <- base::getNamespace("future") 1531s [00:52:11.748] version <- ns[[".package"]][["version"]] 1531s [00:52:11.748] if (is.null(version)) 1531s [00:52:11.748] version <- utils::packageVersion("future") 1531s [00:52:11.748] } 1531s [00:52:11.748] else { 1531s [00:52:11.748] version <- NULL 1531s [00:52:11.748] } 1531s [00:52:11.748] if (!has_future || version < "1.8.0") { 1531s [00:52:11.748] info <- base::c(r_version = base::gsub("R version ", 1531s [00:52:11.748] "", base::R.version$version.string), 1531s [00:52:11.748] platform = base::sprintf("%s (%s-bit)", 1531s [00:52:11.748] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1531s [00:52:11.748] os = base::paste(base::Sys.info()[base::c("sysname", 1531s [00:52:11.748] "release", "version")], collapse = " "), 1531s [00:52:11.748] hostname = base::Sys.info()[["nodename"]]) 1531s [00:52:11.748] info <- base::sprintf("%s: %s", base::names(info), 1531s [00:52:11.748] info) 1531s [00:52:11.748] info <- base::paste(info, collapse = "; ") 1531s [00:52:11.748] if (!has_future) { 1531s [00:52:11.748] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1531s [00:52:11.748] info) 1531s [00:52:11.748] } 1531s [00:52:11.748] else { 1531s [00:52:11.748] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1531s [00:52:11.748] info, version) 1531s [00:52:11.748] } 1531s [00:52:11.748] base::stop(msg) 1531s [00:52:11.748] } 1531s [00:52:11.748] }) 1531s [00:52:11.748] } 1531s [00:52:11.748] options(future.plan = NULL) 1531s [00:52:11.748] Sys.unsetenv("R_FUTURE_PLAN") 1531s [00:52:11.748] future::plan("default", .cleanup = FALSE, .init = FALSE) 1531s [00:52:11.748] } 1531s [00:52:11.748] ...future.workdir <- getwd() 1531s [00:52:11.748] } 1531s [00:52:11.748] ...future.oldOptions <- base::as.list(base::.Options) 1531s [00:52:11.748] ...future.oldEnvVars <- base::Sys.getenv() 1531s [00:52:11.748] } 1531s [00:52:11.748] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1531s [00:52:11.748] future.globals.maxSize = NULL, future.globals.method = NULL, 1531s [00:52:11.748] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1531s [00:52:11.748] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1531s [00:52:11.748] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1531s [00:52:11.748] future.stdout.windows.reencode = NULL, width = 80L) 1531s [00:52:11.748] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1531s [00:52:11.748] base::names(...future.oldOptions)) 1531s [00:52:11.748] } 1531s [00:52:11.748] if (FALSE) { 1531s [00:52:11.748] } 1531s [00:52:11.748] else { 1531s [00:52:11.748] if (TRUE) { 1531s [00:52:11.748] ...future.stdout <- base::rawConnection(base::raw(0L), 1531s [00:52:11.748] open = "w") 1531s [00:52:11.748] } 1531s [00:52:11.748] else { 1531s [00:52:11.748] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1531s [00:52:11.748] windows = "NUL", "/dev/null"), open = "w") 1531s [00:52:11.748] } 1531s [00:52:11.748] base::sink(...future.stdout, type = "output", split = FALSE) 1531s [00:52:11.748] base::on.exit(if (!base::is.null(...future.stdout)) { 1531s [00:52:11.748] base::sink(type = "output", split = FALSE) 1531s [00:52:11.748] base::close(...future.stdout) 1531s [00:52:11.748] }, add = TRUE) 1531s [00:52:11.748] } 1531s [00:52:11.748] ...future.frame <- base::sys.nframe() 1531s [00:52:11.748] ...future.conditions <- base::list() 1531s [00:52:11.748] ...future.rng <- base::globalenv()$.Random.seed 1531s [00:52:11.748] if (FALSE) { 1531s [00:52:11.748] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1531s [00:52:11.748] "...future.value", "...future.globalenv.names", ".Random.seed") 1531s [00:52:11.748] } 1531s [00:52:11.748] ...future.result <- base::tryCatch({ 1531s [00:52:11.748] base::withCallingHandlers({ 1531s [00:52:11.748] ...future.value <- base::withVisible(base::local({ 1531s [00:52:11.748] do.call(function(...) { 1531s [00:52:11.748] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1531s [00:52:11.748] if (!identical(...future.globals.maxSize.org, 1531s [00:52:11.748] ...future.globals.maxSize)) { 1531s [00:52:11.748] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1531s [00:52:11.748] on.exit(options(oopts), add = TRUE) 1531s [00:52:11.748] } 1531s [00:52:11.748] { 1531s [00:52:11.748] lapply(seq_along(...future.elements_ii), 1531s [00:52:11.748] FUN = function(jj) { 1531s [00:52:11.748] ...future.X_jj <- ...future.elements_ii[[jj]] 1531s [00:52:11.748] ...future.FUN(...future.X_jj, ...) 1531s [00:52:11.748] }) 1531s [00:52:11.748] } 1531s [00:52:11.748] }, args = future.call.arguments) 1531s [00:52:11.748] })) 1531s [00:52:11.748] future::FutureResult(value = ...future.value$value, 1531s [00:52:11.748] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1531s [00:52:11.748] ...future.rng), globalenv = if (FALSE) 1531s [00:52:11.748] list(added = base::setdiff(base::names(base::.GlobalEnv), 1531s [00:52:11.748] ...future.globalenv.names)) 1531s [00:52:11.748] else NULL, started = ...future.startTime, version = "1.8") 1531s [00:52:11.748] }, condition = base::local({ 1531s [00:52:11.748] c <- base::c 1531s [00:52:11.748] inherits <- base::inherits 1531s [00:52:11.748] invokeRestart <- base::invokeRestart 1531s [00:52:11.748] length <- base::length 1531s [00:52:11.748] list <- base::list 1531s [00:52:11.748] seq.int <- base::seq.int 1531s [00:52:11.748] signalCondition <- base::signalCondition 1531s [00:52:11.748] sys.calls <- base::sys.calls 1531s [00:52:11.748] `[[` <- base::`[[` 1531s [00:52:11.748] `+` <- base::`+` 1531s [00:52:11.748] `<<-` <- base::`<<-` 1531s [00:52:11.748] sysCalls <- function(calls = sys.calls(), from = 1L) { 1531s [00:52:11.748] calls[seq.int(from = from + 12L, to = length(calls) - 1531s [00:52:11.748] 3L)] 1531s [00:52:11.748] } 1531s [00:52:11.748] function(cond) { 1531s [00:52:11.748] is_error <- inherits(cond, "error") 1531s [00:52:11.748] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1531s [00:52:11.748] NULL) 1531s [00:52:11.748] if (is_error) { 1531s [00:52:11.748] sessionInformation <- function() { 1531s [00:52:11.748] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1531s [00:52:11.748] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1531s [00:52:11.748] search = base::search(), system = base::Sys.info()) 1531s [00:52:11.748] } 1531s [00:52:11.748] ...future.conditions[[length(...future.conditions) + 1531s [00:52:11.748] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1531s [00:52:11.748] cond$call), session = sessionInformation(), 1531s [00:52:11.748] timestamp = base::Sys.time(), signaled = 0L) 1531s [00:52:11.748] signalCondition(cond) 1531s [00:52:11.748] } 1531s [00:52:11.748] else if (!ignore && TRUE && inherits(cond, c("condition", 1531s [00:52:11.748] "immediateCondition"))) { 1531s [00:52:11.748] signal <- TRUE && inherits(cond, "immediateCondition") 1531s [00:52:11.748] ...future.conditions[[length(...future.conditions) + 1531s [00:52:11.748] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1531s [00:52:11.748] if (TRUE && !signal) { 1531s [00:52:11.748] muffleCondition <- function (cond, pattern = "^muffle") 1531s [00:52:11.748] { 1531s [00:52:11.748] inherits <- base::inherits 1531s [00:52:11.748] invokeRestart <- base::invokeRestart 1531s [00:52:11.748] is.null <- base::is.null 1531s [00:52:11.748] muffled <- FALSE 1531s [00:52:11.748] if (inherits(cond, "message")) { 1531s [00:52:11.748] muffled <- grepl(pattern, "muffleMessage") 1531s [00:52:11.748] if (muffled) 1531s [00:52:11.748] invokeRestart("muffleMessage") 1531s [00:52:11.748] } 1531s [00:52:11.748] else if (inherits(cond, "warning")) { 1531s [00:52:11.748] muffled <- grepl(pattern, "muffleWarning") 1531s [00:52:11.748] if (muffled) 1531s [00:52:11.748] invokeRestart("muffleWarning") 1531s [00:52:11.748] } 1531s [00:52:11.748] else if (inherits(cond, "condition")) { 1531s [00:52:11.748] if (!is.null(pattern)) { 1531s [00:52:11.748] computeRestarts <- base::computeRestarts 1531s [00:52:11.748] grepl <- base::grepl 1531s [00:52:11.748] restarts <- computeRestarts(cond) 1531s [00:52:11.748] for (restart in restarts) { 1531s [00:52:11.748] name <- restart$name 1531s [00:52:11.748] if (is.null(name)) 1531s [00:52:11.748] next 1531s [00:52:11.748] if (!grepl(pattern, name)) 1531s [00:52:11.748] next 1531s [00:52:11.748] invokeRestart(restart) 1531s [00:52:11.748] muffled <- TRUE 1531s [00:52:11.748] break 1531s [00:52:11.748] } 1531s [00:52:11.748] } 1531s [00:52:11.748] } 1531s [00:52:11.748] invisible(muffled) 1531s [00:52:11.748] } 1531s [00:52:11.748] muffleCondition(cond, pattern = "^muffle") 1531s [00:52:11.748] } 1531s [00:52:11.748] } 1531s [00:52:11.748] else { 1531s [00:52:11.748] if (TRUE) { 1531s [00:52:11.748] muffleCondition <- function (cond, pattern = "^muffle") 1531s [00:52:11.748] { 1531s [00:52:11.748] inherits <- base::inherits 1531s [00:52:11.748] invokeRestart <- base::invokeRestart 1531s [00:52:11.748] is.null <- base::is.null 1531s [00:52:11.748] muffled <- FALSE 1531s [00:52:11.748] if (inherits(cond, "message")) { 1531s [00:52:11.748] muffled <- grepl(pattern, "muffleMessage") 1531s [00:52:11.748] if (muffled) 1531s [00:52:11.748] invokeRestart("muffleMessage") 1531s [00:52:11.748] } 1531s [00:52:11.748] else if (inherits(cond, "warning")) { 1531s [00:52:11.748] muffled <- grepl(pattern, "muffleWarning") 1531s [00:52:11.748] if (muffled) 1531s [00:52:11.748] invokeRestart("muffleWarning") 1531s [00:52:11.748] } 1531s [00:52:11.748] else if (inherits(cond, "condition")) { 1531s [00:52:11.748] if (!is.null(pattern)) { 1531s [00:52:11.748] computeRestarts <- base::computeRestarts 1531s [00:52:11.748] grepl <- base::grepl 1531s [00:52:11.748] restarts <- computeRestarts(cond) 1531s [00:52:11.748] for (restart in restarts) { 1531s [00:52:11.748] name <- restart$name 1531s [00:52:11.748] if (is.null(name)) 1531s [00:52:11.748] next 1531s [00:52:11.748] if (!grepl(pattern, name)) 1531s [00:52:11.748] next 1531s [00:52:11.748] invokeRestart(restart) 1531s [00:52:11.748] muffled <- TRUE 1531s [00:52:11.748] break 1531s [00:52:11.748] } 1531s [00:52:11.748] } 1531s [00:52:11.748] } 1531s [00:52:11.748] invisible(muffled) 1531s [00:52:11.748] } 1531s [00:52:11.748] muffleCondition(cond, pattern = "^muffle") 1531s [00:52:11.748] } 1531s [00:52:11.748] } 1531s [00:52:11.748] } 1531s [00:52:11.748] })) 1531s [00:52:11.748] }, error = function(ex) { 1531s [00:52:11.748] base::structure(base::list(value = NULL, visible = NULL, 1531s [00:52:11.748] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1531s [00:52:11.748] ...future.rng), started = ...future.startTime, 1531s [00:52:11.748] finished = Sys.time(), session_uuid = NA_character_, 1531s [00:52:11.748] version = "1.8"), class = "FutureResult") 1531s [00:52:11.748] }, finally = { 1531s [00:52:11.748] if (!identical(...future.workdir, getwd())) 1531s [00:52:11.748] setwd(...future.workdir) 1531s [00:52:11.748] { 1531s [00:52:11.748] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1531s [00:52:11.748] ...future.oldOptions$nwarnings <- NULL 1531s [00:52:11.748] } 1531s [00:52:11.748] base::options(...future.oldOptions) 1531s [00:52:11.748] if (.Platform$OS.type == "windows") { 1531s [00:52:11.748] old_names <- names(...future.oldEnvVars) 1531s [00:52:11.748] envs <- base::Sys.getenv() 1531s [00:52:11.748] names <- names(envs) 1531s [00:52:11.748] common <- intersect(names, old_names) 1531s [00:52:11.748] added <- setdiff(names, old_names) 1531s [00:52:11.748] removed <- setdiff(old_names, names) 1531s [00:52:11.748] changed <- common[...future.oldEnvVars[common] != 1531s [00:52:11.748] envs[common]] 1531s [00:52:11.748] NAMES <- toupper(changed) 1531s [00:52:11.748] args <- list() 1531s [00:52:11.748] for (kk in seq_along(NAMES)) { 1531s [00:52:11.748] name <- changed[[kk]] 1531s [00:52:11.748] NAME <- NAMES[[kk]] 1531s [00:52:11.748] if (name != NAME && is.element(NAME, old_names)) 1531s [00:52:11.748] next 1531s [00:52:11.748] args[[name]] <- ...future.oldEnvVars[[name]] 1531s [00:52:11.748] } 1531s [00:52:11.748] NAMES <- toupper(added) 1531s [00:52:11.748] for (kk in seq_along(NAMES)) { 1531s [00:52:11.748] name <- added[[kk]] 1531s [00:52:11.748] NAME <- NAMES[[kk]] 1531s [00:52:11.748] if (name != NAME && is.element(NAME, old_names)) 1531s [00:52:11.748] next 1531s [00:52:11.748] args[[name]] <- "" 1531s [00:52:11.748] } 1531s [00:52:11.748] NAMES <- toupper(removed) 1531s [00:52:11.748] for (kk in seq_along(NAMES)) { 1531s [00:52:11.748] name <- removed[[kk]] 1531s [00:52:11.748] NAME <- NAMES[[kk]] 1531s [00:52:11.748] if (name != NAME && is.element(NAME, old_names)) 1531s [00:52:11.748] next 1531s [00:52:11.748] args[[name]] <- ...future.oldEnvVars[[name]] 1531s [00:52:11.748] } 1531s [00:52:11.748] if (length(args) > 0) 1531s [00:52:11.748] base::do.call(base::Sys.setenv, args = args) 1531s [00:52:11.748] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1531s [00:52:11.748] } 1531s [00:52:11.748] else { 1531s [00:52:11.748] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1531s [00:52:11.748] } 1531s [00:52:11.748] { 1531s [00:52:11.748] if (base::length(...future.futureOptionsAdded) > 1531s [00:52:11.748] 0L) { 1531s [00:52:11.748] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1531s [00:52:11.748] base::names(opts) <- ...future.futureOptionsAdded 1531s [00:52:11.748] base::options(opts) 1531s [00:52:11.748] } 1531s [00:52:11.748] { 1531s [00:52:11.748] { 1531s [00:52:11.748] NULL 1531s [00:52:11.748] RNGkind("Mersenne-Twister") 1531s [00:52:11.748] base::rm(list = ".Random.seed", envir = base::globalenv(), 1531s [00:52:11.748] inherits = FALSE) 1531s [00:52:11.748] } 1531s [00:52:11.748] options(future.plan = NULL) 1531s [00:52:11.748] if (is.na(NA_character_)) 1531s [00:52:11.748] Sys.unsetenv("R_FUTURE_PLAN") 1531s [00:52:11.748] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1531s [00:52:11.748] future::plan(list(function (..., envir = parent.frame()) 1531s [00:52:11.748] { 1531s [00:52:11.748] future <- SequentialFuture(..., envir = envir) 1531s [00:52:11.748] if (!future$lazy) 1531s [00:52:11.748] future <- run(future) 1531s [00:52:11.748] invisible(future) 1531s [00:52:11.748] }), .cleanup = FALSE, .init = FALSE) 1531s [00:52:11.748] } 1531s [00:52:11.748] } 1531s [00:52:11.748] } 1531s [00:52:11.748] }) 1531s [00:52:11.748] if (TRUE) { 1531s [00:52:11.748] base::sink(type = "output", split = FALSE) 1531s [00:52:11.748] if (TRUE) { 1531s [00:52:11.748] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1531s [00:52:11.748] } 1531s [00:52:11.748] else { 1531s [00:52:11.748] ...future.result["stdout"] <- base::list(NULL) 1531s [00:52:11.748] } 1531s [00:52:11.748] base::close(...future.stdout) 1531s [00:52:11.748] ...future.stdout <- NULL 1531s [00:52:11.748] } 1531s [00:52:11.748] ...future.result$conditions <- ...future.conditions 1531s [00:52:11.748] ...future.result$finished <- base::Sys.time() 1531s [00:52:11.748] ...future.result 1531s [00:52:11.748] } 1531s [00:52:11.754] assign_globals() ... 1531s [00:52:11.754] List of 5 1531s [00:52:11.754] $ ...future.FUN :function (object, ...) 1531s [00:52:11.754] $ future.call.arguments :List of 1 1531s [00:52:11.754] ..$ digits: int 2 1531s [00:52:11.754] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1531s [00:52:11.754] $ ...future.elements_ii :List of 6 1531s [00:52:11.754] ..$ : num [1:9] 26 30 54 25 70 52 51 26 67 1531s [00:52:11.754] ..$ : num [1:9] 27 14 29 19 29 31 41 20 44 1531s [00:52:11.754] ..$ : num [1:9] 18 21 29 17 12 18 35 30 36 1531s [00:52:11.754] ..$ : num [1:9] 42 26 19 16 39 28 21 39 29 1531s [00:52:11.754] ..$ : num [1:9] 36 21 24 18 10 43 28 15 26 1531s [00:52:11.754] ..$ : num [1:9] 20 21 24 17 13 15 15 16 28 1531s [00:52:11.754] $ ...future.seeds_ii : NULL 1531s [00:52:11.754] $ ...future.globals.maxSize: NULL 1531s [00:52:11.754] - attr(*, "where")=List of 5 1531s [00:52:11.754] ..$ ...future.FUN : 1531s [00:52:11.754] ..$ future.call.arguments : 1531s [00:52:11.754] ..$ ...future.elements_ii : 1531s [00:52:11.754] ..$ ...future.seeds_ii : 1531s [00:52:11.754] ..$ ...future.globals.maxSize: 1531s [00:52:11.754] - attr(*, "resolved")= logi FALSE 1531s [00:52:11.754] - attr(*, "total_size")= num 1296 1531s [00:52:11.754] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1531s [00:52:11.754] - attr(*, "already-done")= logi TRUE 1531s [00:52:11.765] - copied ‘...future.FUN’ to environment 1531s [00:52:11.765] - copied ‘future.call.arguments’ to environment 1531s [00:52:11.765] - copied ‘...future.elements_ii’ to environment 1531s [00:52:11.766] - copied ‘...future.seeds_ii’ to environment 1531s [00:52:11.766] - copied ‘...future.globals.maxSize’ to environment 1531s [00:52:11.766] assign_globals() ... done 1531s [00:52:11.766] plan(): Setting new future strategy stack: 1531s [00:52:11.766] List of future strategies: 1531s [00:52:11.766] 1. sequential: 1531s [00:52:11.766] - args: function (..., envir = parent.frame()) 1531s [00:52:11.766] - tweaked: FALSE 1531s [00:52:11.766] - call: NULL 1531s [00:52:11.767] plan(): nbrOfWorkers() = 1 1531s [00:52:11.768] plan(): Setting new future strategy stack: 1531s [00:52:11.768] List of future strategies: 1531s [00:52:11.768] 1. sequential: 1531s [00:52:11.768] - args: function (..., envir = parent.frame()) 1531s [00:52:11.768] - tweaked: FALSE 1531s [00:52:11.768] - call: plan(strategy) 1531s [00:52:11.769] plan(): nbrOfWorkers() = 1 1531s [00:52:11.769] SequentialFuture started (and completed) 1531s [00:52:11.769] - Launch lazy future ... done 1531s [00:52:11.769] run() for ‘SequentialFuture’ ... done 1531s [00:52:11.769] Created future: 1531s [00:52:11.769] SequentialFuture: 1531s [00:52:11.769] Label: ‘future_by-1’ 1531s [00:52:11.769] Expression: 1531s [00:52:11.769] { 1531s [00:52:11.769] do.call(function(...) { 1531s [00:52:11.769] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1531s [00:52:11.769] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1531s [00:52:11.769] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1531s [00:52:11.769] on.exit(options(oopts), add = TRUE) 1531s [00:52:11.769] } 1531s [00:52:11.769] { 1531s [00:52:11.769] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1531s [00:52:11.769] ...future.X_jj <- ...future.elements_ii[[jj]] 1531s [00:52:11.769] ...future.FUN(...future.X_jj, ...) 1531s [00:52:11.769] }) 1531s [00:52:11.769] } 1531s [00:52:11.769] }, args = future.call.arguments) 1531s [00:52:11.769] } 1531s [00:52:11.769] Lazy evaluation: FALSE 1531s [00:52:11.769] Asynchronous evaluation: FALSE 1531s [00:52:11.769] Local evaluation: TRUE 1531s [00:52:11.769] Environment: R_GlobalEnv 1531s [00:52:11.769] Capture standard output: TRUE 1531s [00:52:11.769] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1531s [00:52:11.769] Globals: 5 objects totaling 2.30 KiB (function ‘...future.FUN’ of 1.21 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 1.03 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1531s [00:52:11.769] Packages: 1531s [00:52:11.769] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1531s [00:52:11.769] Resolved: TRUE 1531s [00:52:11.769] Value: 5.48 KiB of class ‘list’ 1531s [00:52:11.769] Early signaling: FALSE 1531s [00:52:11.769] Owner process: 64a671dd-8756-a081-baa7-973da233f197 1531s [00:52:11.769] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1531s [00:52:11.771] Chunk #1 of 1 ... DONE 1531s [00:52:11.771] Launching 1 futures (chunks) ... DONE 1531s [00:52:11.771] Resolving 1 futures (chunks) ... 1531s [00:52:11.771] resolve() on list ... 1531s [00:52:11.771] recursive: 0 1531s [00:52:11.772] length: 1 1531s [00:52:11.772] 1531s [00:52:11.772] resolved() for ‘SequentialFuture’ ... 1531s [00:52:11.772] - state: ‘finished’ 1531s [00:52:11.772] - run: TRUE 1531s [00:52:11.772] - result: ‘FutureResult’ 1531s [00:52:11.773] resolved() for ‘SequentialFuture’ ... done 1531s [00:52:11.773] Future #1 1531s [00:52:11.773] signalConditionsASAP(SequentialFuture, pos=1) ... 1531s [00:52:11.773] - nx: 1 1531s [00:52:11.774] - relay: TRUE 1531s [00:52:11.774] - stdout: TRUE 1531s [00:52:11.774] - signal: TRUE 1531s [00:52:11.774] - resignal: FALSE 1531s [00:52:11.774] - force: TRUE 1531s [00:52:11.774] - relayed: [n=1] FALSE 1531s [00:52:11.774] - queued futures: [n=1] FALSE 1531s [00:52:11.775] - until=1 1531s [00:52:11.775] - relaying element #1 1531s [00:52:11.775] - relayed: [n=1] TRUE 1531s [00:52:11.775] - queued futures: [n=1] TRUE 1531s [00:52:11.775] signalConditionsASAP(SequentialFuture, pos=1) ... done 1531s [00:52:11.775] length: 0 (resolved future 1) 1531s [00:52:11.776] Relaying remaining futures 1531s [00:52:11.776] signalConditionsASAP(NULL, pos=0) ... 1531s [00:52:11.776] - nx: 1 1531s [00:52:11.776] - relay: TRUE 1531s [00:52:11.776] - stdout: TRUE 1531s [00:52:11.776] - signal: TRUE 1531s [00:52:11.776] - resignal: FALSE 1531s [00:52:11.776] - force: TRUE 1531s [00:52:11.777] - relayed: [n=1] TRUE 1531s [00:52:11.777] - queued futures: [n=1] TRUE 1531s - flush all 1531s [00:52:11.777] - relayed: [n=1] TRUE 1531s [00:52:11.777] - queued futures: [n=1] TRUE 1531s [00:52:11.777] signalConditionsASAP(NULL, pos=0) ... done 1531s [00:52:11.777] resolve() on list ... DONE 1531s [00:52:11.778] - Number of value chunks collected: 1 1531s [00:52:11.778] Resolving 1 futures (chunks) ... DONE 1531s [00:52:11.778] Reducing values from 1 chunks ... 1531s [00:52:11.778] - Number of values collected after concatenation: 6 1531s [00:52:11.778] - Number of values expected: 6 1531s [00:52:11.778] Reducing values from 1 chunks ... DONE 1531s [00:52:11.778] future_lapply() ... DONE 1531s [00:52:11.779] future_by_internal() ... DONE 1531s [00:52:11.783] future_by_internal() ... 1531s [00:52:11.784] future_lapply() ... 1531s [00:52:11.785] Number of chunks: 1 1531s [00:52:11.785] getGlobalsAndPackagesXApply() ... 1531s [00:52:11.786] - future.globals: TRUE 1531s [00:52:11.786] getGlobalsAndPackages() ... 1531s [00:52:11.786] Searching for globals... 1531s [00:52:11.789] - globals found: [6] ‘FUN’, ‘{’, ‘lm’, ‘~’, ‘breaks’, ‘wool’ 1531s [00:52:11.790] Searching for globals ... DONE 1531s [00:52:11.790] Resolving globals: FALSE 1531s [00:52:11.790] The total size of the 1 globals is 5.20 KiB (5328 bytes) 1531s [00:52:11.791] The total size of the 1 globals exported for future expression (‘FUN(singular.ok = FALSE)’) is 5.20 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (5.20 KiB of class ‘function’) 1531s [00:52:11.791] - globals: [1] ‘FUN’ 1531s [00:52:11.792] - packages: [1] ‘stats’ 1531s [00:52:11.792] getGlobalsAndPackages() ... DONE 1531s [00:52:11.792] - globals found/used: [n=1] ‘FUN’ 1531s [00:52:11.792] - needed namespaces: [n=1] ‘stats’ 1531s [00:52:11.792] Finding globals ... DONE 1531s [00:52:11.792] - use_args: TRUE 1531s [00:52:11.792] - Getting '...' globals ... 1531s [00:52:11.793] resolve() on list ... 1531s [00:52:11.793] recursive: 0 1531s [00:52:11.793] length: 1 1531s [00:52:11.793] elements: ‘...’ 1531s [00:52:11.793] length: 0 (resolved future 1) 1531s [00:52:11.794] resolve() on list ... DONE 1531s [00:52:11.794] - '...' content: [n=1] ‘singular.ok’ 1531s [00:52:11.794] List of 1 1531s [00:52:11.794] $ ...:List of 1 1531s [00:52:11.794] ..$ singular.ok: logi FALSE 1531s [00:52:11.794] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1531s [00:52:11.794] - attr(*, "where")=List of 1 1531s [00:52:11.794] ..$ ...: 1531s [00:52:11.794] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1531s [00:52:11.794] - attr(*, "resolved")= logi TRUE 1531s [00:52:11.794] - attr(*, "total_size")= num NA 1531s [00:52:11.798] - Getting '...' globals ... DONE 1531s [00:52:11.798] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1531s [00:52:11.798] List of 2 1531s [00:52:11.798] $ ...future.FUN:function (x, ...) 1531s [00:52:11.798] $ ... :List of 1 1531s [00:52:11.798] ..$ singular.ok: logi FALSE 1531s [00:52:11.798] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1531s [00:52:11.798] - attr(*, "where")=List of 2 1531s [00:52:11.798] ..$ ...future.FUN: 1531s [00:52:11.798] ..$ ... : 1531s [00:52:11.798] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1531s [00:52:11.798] - attr(*, "resolved")= logi FALSE 1531s [00:52:11.798] - attr(*, "total_size")= num 5384 1531s [00:52:11.802] Packages to be attached in all futures: [n=1] ‘stats’ 1531s [00:52:11.802] getGlobalsAndPackagesXApply() ... DONE 1531s [00:52:11.802] Number of futures (= number of chunks): 1 1531s [00:52:11.802] Launching 1 futures (chunks) ... 1531s [00:52:11.802] Chunk #1 of 1 ... 1531s [00:52:11.803] - Finding globals in 'X' for chunk #1 ... 1531s [00:52:11.803] getGlobalsAndPackages() ... 1531s [00:52:11.803] Searching for globals... 1531s [00:52:11.804] 1531s [00:52:11.804] Searching for globals ... DONE 1531s [00:52:11.804] - globals: [0] 1531s [00:52:11.804] getGlobalsAndPackages() ... DONE 1531s [00:52:11.804] + additional globals found: [n=0] 1531s [00:52:11.805] + additional namespaces needed: [n=0] 1531s [00:52:11.805] - Finding globals in 'X' for chunk #1 ... DONE 1531s [00:52:11.805] - seeds: 1531s [00:52:11.805] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1531s [00:52:11.806] getGlobalsAndPackages() ... 1531s [00:52:11.806] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1531s [00:52:11.806] Resolving globals: FALSE 1531s [00:52:11.806] Tweak future expression to call with '...' arguments ... 1531s [00:52:11.806] { 1531s [00:52:11.806] do.call(function(...) { 1531s [00:52:11.806] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1531s [00:52:11.806] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1531s [00:52:11.806] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1531s [00:52:11.806] on.exit(options(oopts), add = TRUE) 1531s [00:52:11.806] } 1531s [00:52:11.806] { 1531s [00:52:11.806] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1531s [00:52:11.806] ...future.X_jj <- ...future.elements_ii[[jj]] 1531s [00:52:11.806] ...future.FUN(...future.X_jj, ...) 1531s [00:52:11.806] }) 1531s [00:52:11.806] } 1531s [00:52:11.806] }, args = future.call.arguments) 1531s [00:52:11.806] } 1531s [00:52:11.807] Tweak future expression to call with '...' arguments ... DONE 1531s [00:52:11.808] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1531s [00:52:11.808] 1531s [00:52:11.808] getGlobalsAndPackages() ... DONE 1531s [00:52:11.808] run() for ‘Future’ ... 1531s [00:52:11.809] - state: ‘created’ 1531s [00:52:11.809] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1531s [00:52:11.810] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1531s [00:52:11.810] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1531s [00:52:11.810] - Field: ‘label’ 1531s [00:52:11.810] - Field: ‘local’ 1531s [00:52:11.810] - Field: ‘owner’ 1531s [00:52:11.811] - Field: ‘envir’ 1531s [00:52:11.811] - Field: ‘packages’ 1531s [00:52:11.811] - Field: ‘gc’ 1531s [00:52:11.811] - Field: ‘conditions’ 1531s [00:52:11.811] - Field: ‘expr’ 1531s [00:52:11.812] - Field: ‘uuid’ 1531s [00:52:11.812] - Field: ‘seed’ 1531s [00:52:11.812] - Field: ‘version’ 1531s [00:52:11.812] - Field: ‘result’ 1531s [00:52:11.812] - Field: ‘asynchronous’ 1531s [00:52:11.812] - Field: ‘calls’ 1531s [00:52:11.812] - Field: ‘globals’ 1531s [00:52:11.813] - Field: ‘stdout’ 1531s [00:52:11.813] - Field: ‘earlySignal’ 1531s [00:52:11.813] - Field: ‘lazy’ 1531s [00:52:11.813] - Field: ‘state’ 1531s [00:52:11.813] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1531s [00:52:11.813] - Launch lazy future ... 1531s [00:52:11.814] Packages needed by the future expression (n = 1): ‘stats’ 1531s [00:52:11.814] Packages needed by future strategies (n = 0): 1531s [00:52:11.815] { 1531s [00:52:11.815] { 1531s [00:52:11.815] { 1531s [00:52:11.815] ...future.startTime <- base::Sys.time() 1531s [00:52:11.815] { 1531s [00:52:11.815] { 1531s [00:52:11.815] { 1531s [00:52:11.815] { 1531s [00:52:11.815] base::local({ 1531s [00:52:11.815] has_future <- base::requireNamespace("future", 1531s [00:52:11.815] quietly = TRUE) 1531s [00:52:11.815] if (has_future) { 1531s [00:52:11.815] ns <- base::getNamespace("future") 1531s [00:52:11.815] version <- ns[[".package"]][["version"]] 1531s [00:52:11.815] if (is.null(version)) 1531s [00:52:11.815] version <- utils::packageVersion("future") 1531s [00:52:11.815] } 1531s [00:52:11.815] else { 1531s [00:52:11.815] version <- NULL 1531s [00:52:11.815] } 1531s [00:52:11.815] if (!has_future || version < "1.8.0") { 1531s [00:52:11.815] info <- base::c(r_version = base::gsub("R version ", 1531s [00:52:11.815] "", base::R.version$version.string), 1531s [00:52:11.815] platform = base::sprintf("%s (%s-bit)", 1531s [00:52:11.815] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1531s [00:52:11.815] os = base::paste(base::Sys.info()[base::c("sysname", 1531s [00:52:11.815] "release", "version")], collapse = " "), 1531s [00:52:11.815] hostname = base::Sys.info()[["nodename"]]) 1531s [00:52:11.815] info <- base::sprintf("%s: %s", base::names(info), 1531s [00:52:11.815] info) 1531s [00:52:11.815] info <- base::paste(info, collapse = "; ") 1531s [00:52:11.815] if (!has_future) { 1531s [00:52:11.815] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1531s [00:52:11.815] info) 1531s [00:52:11.815] } 1531s [00:52:11.815] else { 1531s [00:52:11.815] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1531s [00:52:11.815] info, version) 1531s [00:52:11.815] } 1531s [00:52:11.815] base::stop(msg) 1531s [00:52:11.815] } 1531s [00:52:11.815] }) 1531s [00:52:11.815] } 1531s [00:52:11.815] base::local({ 1531s [00:52:11.815] for (pkg in "stats") { 1531s [00:52:11.815] base::loadNamespace(pkg) 1531s [00:52:11.815] base::library(pkg, character.only = TRUE) 1531s [00:52:11.815] } 1531s [00:52:11.815] }) 1531s [00:52:11.815] } 1531s [00:52:11.815] options(future.plan = NULL) 1531s [00:52:11.815] Sys.unsetenv("R_FUTURE_PLAN") 1531s [00:52:11.815] future::plan("default", .cleanup = FALSE, .init = FALSE) 1531s [00:52:11.815] } 1531s [00:52:11.815] ...future.workdir <- getwd() 1531s [00:52:11.815] } 1531s [00:52:11.815] ...future.oldOptions <- base::as.list(base::.Options) 1531s [00:52:11.815] ...future.oldEnvVars <- base::Sys.getenv() 1531s [00:52:11.815] } 1531s [00:52:11.815] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1531s [00:52:11.815] future.globals.maxSize = NULL, future.globals.method = NULL, 1531s [00:52:11.815] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1531s [00:52:11.815] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1531s [00:52:11.815] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1531s [00:52:11.815] future.stdout.windows.reencode = NULL, width = 80L) 1531s [00:52:11.815] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1531s [00:52:11.815] base::names(...future.oldOptions)) 1531s [00:52:11.815] } 1531s [00:52:11.815] if (FALSE) { 1531s [00:52:11.815] } 1531s [00:52:11.815] else { 1531s [00:52:11.815] if (TRUE) { 1531s [00:52:11.815] ...future.stdout <- base::rawConnection(base::raw(0L), 1531s [00:52:11.815] open = "w") 1531s [00:52:11.815] } 1531s [00:52:11.815] else { 1531s [00:52:11.815] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1531s [00:52:11.815] windows = "NUL", "/dev/null"), open = "w") 1531s [00:52:11.815] } 1531s [00:52:11.815] base::sink(...future.stdout, type = "output", split = FALSE) 1531s [00:52:11.815] base::on.exit(if (!base::is.null(...future.stdout)) { 1531s [00:52:11.815] base::sink(type = "output", split = FALSE) 1531s [00:52:11.815] base::close(...future.stdout) 1531s [00:52:11.815] }, add = TRUE) 1531s [00:52:11.815] } 1531s [00:52:11.815] ...future.frame <- base::sys.nframe() 1531s [00:52:11.815] ...future.conditions <- base::list() 1531s [00:52:11.815] ...future.rng <- base::globalenv()$.Random.seed 1531s [00:52:11.815] if (FALSE) { 1531s [00:52:11.815] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1531s [00:52:11.815] "...future.value", "...future.globalenv.names", ".Random.seed") 1531s [00:52:11.815] } 1531s [00:52:11.815] ...future.result <- base::tryCatch({ 1531s [00:52:11.815] base::withCallingHandlers({ 1531s [00:52:11.815] ...future.value <- base::withVisible(base::local({ 1531s [00:52:11.815] do.call(function(...) { 1531s [00:52:11.815] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1531s [00:52:11.815] if (!identical(...future.globals.maxSize.org, 1531s [00:52:11.815] ...future.globals.maxSize)) { 1531s [00:52:11.815] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1531s [00:52:11.815] on.exit(options(oopts), add = TRUE) 1531s [00:52:11.815] } 1531s [00:52:11.815] { 1531s [00:52:11.815] lapply(seq_along(...future.elements_ii), 1531s [00:52:11.815] FUN = function(jj) { 1531s [00:52:11.815] ...future.X_jj <- ...future.elements_ii[[jj]] 1531s [00:52:11.815] ...future.FUN(...future.X_jj, ...) 1531s [00:52:11.815] }) 1531s [00:52:11.815] } 1531s [00:52:11.815] }, args = future.call.arguments) 1531s [00:52:11.815] })) 1531s [00:52:11.815] future::FutureResult(value = ...future.value$value, 1531s [00:52:11.815] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1531s [00:52:11.815] ...future.rng), globalenv = if (FALSE) 1531s [00:52:11.815] list(added = base::setdiff(base::names(base::.GlobalEnv), 1531s [00:52:11.815] ...future.globalenv.names)) 1531s [00:52:11.815] else NULL, started = ...future.startTime, version = "1.8") 1531s [00:52:11.815] }, condition = base::local({ 1531s [00:52:11.815] c <- base::c 1531s [00:52:11.815] inherits <- base::inherits 1531s [00:52:11.815] invokeRestart <- base::invokeRestart 1531s [00:52:11.815] length <- base::length 1531s [00:52:11.815] list <- base::list 1531s [00:52:11.815] seq.int <- base::seq.int 1531s [00:52:11.815] signalCondition <- base::signalCondition 1531s [00:52:11.815] sys.calls <- base::sys.calls 1531s [00:52:11.815] `[[` <- base::`[[` 1531s [00:52:11.815] `+` <- base::`+` 1531s [00:52:11.815] `<<-` <- base::`<<-` 1531s [00:52:11.815] sysCalls <- function(calls = sys.calls(), from = 1L) { 1531s [00:52:11.815] calls[seq.int(from = from + 12L, to = length(calls) - 1531s [00:52:11.815] 3L)] 1531s [00:52:11.815] } 1531s [00:52:11.815] function(cond) { 1531s [00:52:11.815] is_error <- inherits(cond, "error") 1531s [00:52:11.815] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1531s [00:52:11.815] NULL) 1531s [00:52:11.815] if (is_error) { 1531s [00:52:11.815] sessionInformation <- function() { 1531s [00:52:11.815] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1531s [00:52:11.815] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1531s [00:52:11.815] search = base::search(), system = base::Sys.info()) 1531s [00:52:11.815] } 1531s [00:52:11.815] ...future.conditions[[length(...future.conditions) + 1531s [00:52:11.815] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1531s [00:52:11.815] cond$call), session = sessionInformation(), 1531s [00:52:11.815] timestamp = base::Sys.time(), signaled = 0L) 1531s [00:52:11.815] signalCondition(cond) 1531s [00:52:11.815] } 1531s [00:52:11.815] else if (!ignore && TRUE && inherits(cond, c("condition", 1531s [00:52:11.815] "immediateCondition"))) { 1531s [00:52:11.815] signal <- TRUE && inherits(cond, "immediateCondition") 1531s [00:52:11.815] ...future.conditions[[length(...future.conditions) + 1531s [00:52:11.815] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1531s [00:52:11.815] if (TRUE && !signal) { 1531s [00:52:11.815] muffleCondition <- function (cond, pattern = "^muffle") 1531s [00:52:11.815] { 1531s [00:52:11.815] inherits <- base::inherits 1531s [00:52:11.815] invokeRestart <- base::invokeRestart 1531s [00:52:11.815] is.null <- base::is.null 1531s [00:52:11.815] muffled <- FALSE 1531s [00:52:11.815] if (inherits(cond, "message")) { 1531s [00:52:11.815] muffled <- grepl(pattern, "muffleMessage") 1531s [00:52:11.815] if (muffled) 1531s [00:52:11.815] invokeRestart("muffleMessage") 1531s [00:52:11.815] } 1531s [00:52:11.815] else if (inherits(cond, "warning")) { 1531s [00:52:11.815] muffled <- grepl(pattern, "muffleWarning") 1531s [00:52:11.815] if (muffled) 1531s [00:52:11.815] invokeRestart("muffleWarning") 1531s [00:52:11.815] } 1531s [00:52:11.815] else if (inherits(cond, "condition")) { 1531s [00:52:11.815] if (!is.null(pattern)) { 1531s [00:52:11.815] computeRestarts <- base::computeRestarts 1531s [00:52:11.815] grepl <- base::grepl 1531s [00:52:11.815] restarts <- computeRestarts(cond) 1531s [00:52:11.815] for (restart in restarts) { 1531s [00:52:11.815] name <- restart$name 1531s [00:52:11.815] if (is.null(name)) 1531s [00:52:11.815] next 1531s [00:52:11.815] if (!grepl(pattern, name)) 1531s [00:52:11.815] next 1531s [00:52:11.815] invokeRestart(restart) 1531s [00:52:11.815] muffled <- TRUE 1531s [00:52:11.815] break 1531s [00:52:11.815] } 1531s [00:52:11.815] } 1531s [00:52:11.815] } 1531s [00:52:11.815] invisible(muffled) 1531s [00:52:11.815] } 1531s [00:52:11.815] muffleCondition(cond, pattern = "^muffle") 1531s [00:52:11.815] } 1531s [00:52:11.815] } 1531s [00:52:11.815] else { 1531s [00:52:11.815] if (TRUE) { 1531s [00:52:11.815] muffleCondition <- function (cond, pattern = "^muffle") 1531s [00:52:11.815] { 1531s [00:52:11.815] inherits <- base::inherits 1531s [00:52:11.815] invokeRestart <- base::invokeRestart 1531s [00:52:11.815] is.null <- base::is.null 1531s [00:52:11.815] muffled <- FALSE 1531s [00:52:11.815] if (inherits(cond, "message")) { 1531s [00:52:11.815] muffled <- grepl(pattern, "muffleMessage") 1531s [00:52:11.815] if (muffled) 1531s [00:52:11.815] invokeRestart("muffleMessage") 1531s [00:52:11.815] } 1531s [00:52:11.815] else if (inherits(cond, "warning")) { 1531s [00:52:11.815] muffled <- grepl(pattern, "muffleWarning") 1531s [00:52:11.815] if (muffled) 1531s [00:52:11.815] invokeRestart("muffleWarning") 1531s [00:52:11.815] } 1531s [00:52:11.815] else if (inherits(cond, "condition")) { 1531s [00:52:11.815] if (!is.null(pattern)) { 1531s [00:52:11.815] computeRestarts <- base::computeRestarts 1531s [00:52:11.815] grepl <- base::grepl 1531s [00:52:11.815] restarts <- computeRestarts(cond) 1531s [00:52:11.815] for (restart in restarts) { 1531s [00:52:11.815] name <- restart$name 1531s [00:52:11.815] if (is.null(name)) 1531s [00:52:11.815] next 1531s [00:52:11.815] if (!grepl(pattern, name)) 1531s [00:52:11.815] next 1531s [00:52:11.815] invokeRestart(restart) 1531s [00:52:11.815] muffled <- TRUE 1531s [00:52:11.815] break 1531s [00:52:11.815] } 1531s [00:52:11.815] } 1531s [00:52:11.815] } 1531s [00:52:11.815] invisible(muffled) 1531s [00:52:11.815] } 1531s [00:52:11.815] muffleCondition(cond, pattern = "^muffle") 1531s [00:52:11.815] } 1531s [00:52:11.815] } 1531s [00:52:11.815] } 1531s [00:52:11.815] })) 1531s [00:52:11.815] }, error = function(ex) { 1531s [00:52:11.815] base::structure(base::list(value = NULL, visible = NULL, 1531s [00:52:11.815] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1531s [00:52:11.815] ...future.rng), started = ...future.startTime, 1531s [00:52:11.815] finished = Sys.time(), session_uuid = NA_character_, 1531s [00:52:11.815] version = "1.8"), class = "FutureResult") 1531s [00:52:11.815] }, finally = { 1531s [00:52:11.815] if (!identical(...future.workdir, getwd())) 1531s [00:52:11.815] setwd(...future.workdir) 1531s [00:52:11.815] { 1531s [00:52:11.815] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1531s [00:52:11.815] ...future.oldOptions$nwarnings <- NULL 1531s [00:52:11.815] } 1531s [00:52:11.815] base::options(...future.oldOptions) 1531s [00:52:11.815] if (.Platform$OS.type == "windows") { 1531s [00:52:11.815] old_names <- names(...future.oldEnvVars) 1531s [00:52:11.815] envs <- base::Sys.getenv() 1531s [00:52:11.815] names <- names(envs) 1531s [00:52:11.815] common <- intersect(names, old_names) 1531s [00:52:11.815] added <- setdiff(names, old_names) 1531s [00:52:11.815] removed <- setdiff(old_names, names) 1531s [00:52:11.815] changed <- common[...future.oldEnvVars[common] != 1531s [00:52:11.815] envs[common]] 1531s [00:52:11.815] NAMES <- toupper(changed) 1531s [00:52:11.815] args <- list() 1531s [00:52:11.815] for (kk in seq_along(NAMES)) { 1531s [00:52:11.815] name <- changed[[kk]] 1531s [00:52:11.815] NAME <- NAMES[[kk]] 1531s [00:52:11.815] if (name != NAME && is.element(NAME, old_names)) 1531s [00:52:11.815] next 1531s [00:52:11.815] args[[name]] <- ...future.oldEnvVars[[name]] 1531s [00:52:11.815] } 1531s [00:52:11.815] NAMES <- toupper(added) 1531s [00:52:11.815] for (kk in seq_along(NAMES)) { 1531s [00:52:11.815] name <- added[[kk]] 1531s [00:52:11.815] NAME <- NAMES[[kk]] 1531s [00:52:11.815] if (name != NAME && is.element(NAME, old_names)) 1531s [00:52:11.815] next 1531s [00:52:11.815] args[[name]] <- "" 1531s [00:52:11.815] } 1531s [00:52:11.815] NAMES <- toupper(removed) 1531s [00:52:11.815] for (kk in seq_along(NAMES)) { 1531s [00:52:11.815] name <- removed[[kk]] 1531s [00:52:11.815] NAME <- NAMES[[kk]] 1531s [00:52:11.815] if (name != NAME && is.element(NAME, old_names)) 1531s [00:52:11.815] next 1531s [00:52:11.815] args[[name]] <- ...future.oldEnvVars[[name]] 1531s [00:52:11.815] } 1531s [00:52:11.815] if (length(args) > 0) 1531s [00:52:11.815] base::do.call(base::Sys.setenv, args = args) 1531s [00:52:11.815] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1531s [00:52:11.815] } 1531s [00:52:11.815] else { 1531s [00:52:11.815] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1531s [00:52:11.815] } 1531s [00:52:11.815] { 1531s [00:52:11.815] if (base::length(...future.futureOptionsAdded) > 1531s [00:52:11.815] 0L) { 1531s [00:52:11.815] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1531s [00:52:11.815] base::names(opts) <- ...future.futureOptionsAdded 1531s [00:52:11.815] base::options(opts) 1531s [00:52:11.815] } 1531s [00:52:11.815] { 1531s [00:52:11.815] { 1531s [00:52:11.815] NULL 1531s [00:52:11.815] RNGkind("Mersenne-Twister") 1531s [00:52:11.815] base::rm(list = ".Random.seed", envir = base::globalenv(), 1531s [00:52:11.815] inherits = FALSE) 1531s [00:52:11.815] } 1531s [00:52:11.815] options(future.plan = NULL) 1531s [00:52:11.815] if (is.na(NA_character_)) 1531s [00:52:11.815] Sys.unsetenv("R_FUTURE_PLAN") 1531s [00:52:11.815] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1531s [00:52:11.815] future::plan(list(function (..., envir = parent.frame()) 1531s [00:52:11.815] { 1531s [00:52:11.815] future <- SequentialFuture(..., envir = envir) 1531s [00:52:11.815] if (!future$lazy) 1531s [00:52:11.815] future <- run(future) 1531s [00:52:11.815] invisible(future) 1531s [00:52:11.815] }), .cleanup = FALSE, .init = FALSE) 1531s [00:52:11.815] } 1531s [00:52:11.815] } 1531s [00:52:11.815] } 1531s [00:52:11.815] }) 1531s [00:52:11.815] if (TRUE) { 1531s [00:52:11.815] base::sink(type = "output", split = FALSE) 1531s [00:52:11.815] if (TRUE) { 1531s [00:52:11.815] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1531s [00:52:11.815] } 1531s [00:52:11.815] else { 1531s [00:52:11.815] ...future.result["stdout"] <- base::list(NULL) 1531s [00:52:11.815] } 1531s [00:52:11.815] base::close(...future.stdout) 1531s [00:52:11.815] ...future.stdout <- NULL 1531s [00:52:11.815] } 1531s [00:52:11.815] ...future.result$conditions <- ...future.conditions 1531s [00:52:11.815] ...future.result$finished <- base::Sys.time() 1531s [00:52:11.815] ...future.result 1531s [00:52:11.815] } 1531s [00:52:11.818] assign_globals() ... 1531s [00:52:11.819] List of 5 1531s [00:52:11.819] $ ...future.FUN :function (x, ...) 1531s [00:52:11.819] $ future.call.arguments :List of 1 1531s [00:52:11.819] ..$ singular.ok: logi FALSE 1531s [00:52:11.819] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1531s [00:52:11.819] $ ...future.elements_ii :List of 3 1531s [00:52:11.819] ..$ :'data.frame': 18 obs. of 3 variables: 1531s [00:52:11.819] .. ..$ breaks : num [1:18] 26 30 54 25 70 52 51 26 67 27 ... 1531s [00:52:11.819] .. ..$ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 2 ... 1531s [00:52:11.819] .. ..$ tension: Factor w/ 3 levels "L","M","H": 1 1 1 1 1 1 1 1 1 1 ... 1531s [00:52:11.819] ..$ :'data.frame': 18 obs. of 3 variables: 1531s [00:52:11.819] .. ..$ breaks : num [1:18] 18 21 29 17 12 18 35 30 36 42 ... 1531s [00:52:11.819] .. ..$ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 2 ... 1531s [00:52:11.819] .. ..$ tension: Factor w/ 3 levels "L","M","H": 2 2 2 2 2 2 2 2 2 2 ... 1531s [00:52:11.819] ..$ :'data.frame': 18 obs. of 3 variables: 1531s [00:52:11.819] .. ..$ breaks : num [1:18] 36 21 24 18 10 43 28 15 26 20 ... 1531s [00:52:11.819] .. ..$ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 2 ... 1531s [00:52:11.819] .. ..$ tension: Factor w/ 3 levels "L","M","H": 3 3 3 3 3 3 3 3 3 3 ... 1531s [00:52:11.819] $ ...future.seeds_ii : NULL 1531s [00:52:11.819] $ ...future.globals.maxSize: NULL 1531s [00:52:11.819] - attr(*, "where")=List of 5 1531s [00:52:11.819] ..$ ...future.FUN : 1531s [00:52:11.819] ..$ future.call.arguments : 1531s [00:52:11.819] ..$ ...future.elements_ii : 1531s [00:52:11.819] ..$ ...future.seeds_ii : 1531s [00:52:11.819] ..$ ...future.globals.maxSize: 1531s [00:52:11.819] - attr(*, "resolved")= logi FALSE 1531s [00:52:11.819] - attr(*, "total_size")= num 5384 1531s [00:52:11.819] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1531s [00:52:11.819] - attr(*, "already-done")= logi TRUE 1531s [00:52:11.832] - reassign environment for ‘...future.FUN’ 1531s [00:52:11.832] - copied ‘...future.FUN’ to environment 1531s [00:52:11.832] - copied ‘future.call.arguments’ to environment 1531s [00:52:11.832] - copied ‘...future.elements_ii’ to environment 1531s [00:52:11.833] - copied ‘...future.seeds_ii’ to environment 1531s [00:52:11.833] - copied ‘...future.globals.maxSize’ to environment 1531s [00:52:11.833] assign_globals() ... done 1531s [00:52:11.833] plan(): Setting new future strategy stack: 1531s [00:52:11.833] List of future strategies: 1531s [00:52:11.833] 1. sequential: 1531s [00:52:11.833] - args: function (..., envir = parent.frame()) 1531s [00:52:11.833] - tweaked: FALSE 1531s [00:52:11.833] - call: NULL 1531s [00:52:11.834] plan(): nbrOfWorkers() = 1 1531s [00:52:11.837] plan(): Setting new future strategy stack: 1531s [00:52:11.837] List of future strategies: 1531s [00:52:11.837] 1. sequential: 1531s [00:52:11.837] - args: function (..., envir = parent.frame()) 1531s [00:52:11.837] - tweaked: FALSE 1531s [00:52:11.837] - call: plan(strategy) 1531s [00:52:11.838] plan(): nbrOfWorkers() = 1 1531s [00:52:11.838] SequentialFuture started (and completed) 1531s [00:52:11.838] - Launch lazy future ... done 1531s [00:52:11.838] run() for ‘SequentialFuture’ ... done 1531s [00:52:11.839] Created future: 1531s [00:52:11.839] SequentialFuture: 1531s [00:52:11.839] Label: ‘future_by-1’ 1531s [00:52:11.839] Expression: 1531s [00:52:11.839] { 1531s [00:52:11.839] do.call(function(...) { 1531s [00:52:11.839] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1531s [00:52:11.839] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1531s [00:52:11.839] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1531s [00:52:11.839] on.exit(options(oopts), add = TRUE) 1531s [00:52:11.839] } 1531s [00:52:11.839] { 1531s [00:52:11.839] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1531s [00:52:11.839] ...future.X_jj <- ...future.elements_ii[[jj]] 1531s [00:52:11.839] ...future.FUN(...future.X_jj, ...) 1531s [00:52:11.839] }) 1531s [00:52:11.839] } 1531s [00:52:11.839] }, args = future.call.arguments) 1531s [00:52:11.839] } 1531s [00:52:11.839] Lazy evaluation: FALSE 1531s [00:52:11.839] Asynchronous evaluation: FALSE 1531s [00:52:11.839] Local evaluation: TRUE 1531s [00:52:11.839] Environment: R_GlobalEnv 1531s [00:52:11.839] Capture standard output: TRUE 1531s [00:52:11.839] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1531s [00:52:11.839] Globals: 5 objects totaling 10.06 KiB (function ‘...future.FUN’ of 5.20 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 4.80 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1531s [00:52:11.839] Packages: 1 packages (‘stats’) 1531s [00:52:11.839] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1531s [00:52:11.839] Resolved: TRUE 1531s [00:52:11.839] Value: 26.06 KiB of class ‘list’ 1531s [00:52:11.839] Early signaling: FALSE 1531s [00:52:11.839] Owner process: 64a671dd-8756-a081-baa7-973da233f197 1531s [00:52:11.839] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1531s [00:52:11.841] Chunk #1 of 1 ... DONE 1531s [00:52:11.841] Launching 1 futures (chunks) ... DONE 1531s [00:52:11.841] Resolving 1 futures (chunks) ... 1531s [00:52:11.841] resolve() on list ... 1531s [00:52:11.841] recursive: 0 1531s [00:52:11.842] length: 1 1531s [00:52:11.842] 1531s [00:52:11.842] resolved() for ‘SequentialFuture’ ... 1531s [00:52:11.842] - state: ‘finished’ 1531s [00:52:11.842] - run: TRUE 1531s [00:52:11.842] - result: ‘FutureResult’ 1531s [00:52:11.842] resolved() for ‘SequentialFuture’ ... done 1531s [00:52:11.842] Future #1 1531s [00:52:11.843] signalConditionsASAP(SequentialFuture, pos=1) ... 1531s [00:52:11.843] - nx: 1 1531s [00:52:11.843] - relay: TRUE 1531s [00:52:11.843] - stdout: TRUE 1531s [00:52:11.843] - signal: TRUE 1531s [00:52:11.843] - resignal: FALSE 1531s [00:52:11.843] - force: TRUE 1531s [00:52:11.843] - relayed: [n=1] FALSE 1531s [00:52:11.843] - queued futures: [n=1] FALSE 1531s [00:52:11.844] - until=1 1531s [00:52:11.844] - relaying element #1 1531s [00:52:11.844] - relayed: [n=1] TRUE 1531s [00:52:11.844] - queued futures: [n=1] TRUE 1531s [00:52:11.844] signalConditionsASAP(SequentialFuture, pos=1) ... done 1531s [00:52:11.844] length: 0 (resolved future 1) 1531s [00:52:11.844] Relaying remaining futures 1531s [00:52:11.844] signalConditionsASAP(NULL, pos=0) ... 1531s [00:52:11.845] - nx: 1 1531s [00:52:11.845] - relay: TRUE 1531s [00:52:11.845] - stdout: TRUE 1531s [00:52:11.845] - signal: TRUE 1531s [00:52:11.845] - resignal: FALSE 1531s [00:52:11.845] - force: TRUE 1531s [00:52:11.845] - relayed: [n=1] TRUE 1531s [00:52:11.845] - queued futures: [n=1] TRUE 1531s - flush all 1531s [00:52:11.845] - relayed: [n=1] TRUE 1531s [00:52:11.845] - queued futures: [n=1] TRUE 1531s [00:52:11.846] signalConditionsASAP(NULL, pos=0) ... done 1531s [00:52:11.846] resolve() on list ... DONE 1531s [00:52:11.846] - Number of value chunks collected: 1 1531s [00:52:11.846] Resolving 1 futures (chunks) ... DONE 1531s [00:52:11.846] Reducing values from 1 chunks ... 1531s [00:52:11.846] - Number of values collected after concatenation: 3 1531s [00:52:11.846] - Number of values expected: 3 1531s [00:52:11.846] Reducing values from 1 chunks ... DONE 1531s [00:52:11.846] future_lapply() ... DONE 1531s [00:52:11.847] future_by_internal() ... DONE 1531s [00:52:11.854] future_by_internal() ... 1531s [00:52:11.855] future_lapply() ... 1531s [00:52:11.856] Number of chunks: 1 1531s [00:52:11.856] getGlobalsAndPackagesXApply() ... 1531s [00:52:11.857] - future.globals: TRUE 1531s [00:52:11.857] getGlobalsAndPackages() ... 1531s [00:52:11.857] Searching for globals... 1531s [00:52:11.859] - globals found: [6] ‘FUN’, ‘{’, ‘lm’, ‘~’, ‘breaks’, ‘wool’ 1531s [00:52:11.859] Searching for globals ... DONE 1531s [00:52:11.859] Resolving globals: FALSE 1531s [00:52:11.860] The total size of the 3 globals is 2.27 KiB (2320 bytes) 1531s [00:52:11.860] The total size of the 3 globals exported for future expression (‘FUN()’) is 2.27 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are three globals: ‘FUN’ (1.04 KiB of class ‘function’), ‘wool’ (776 bytes of class ‘numeric’) and ‘breaks’ (480 bytes of class ‘numeric’) 1531s [00:52:11.861] - globals: [3] ‘FUN’, ‘breaks’, ‘wool’ 1531s [00:52:11.861] - packages: [1] ‘stats’ 1531s [00:52:11.861] getGlobalsAndPackages() ... DONE 1531s [00:52:11.861] - globals found/used: [n=3] ‘FUN’, ‘breaks’, ‘wool’ 1531s [00:52:11.861] - needed namespaces: [n=1] ‘stats’ 1531s [00:52:11.861] Finding globals ... DONE 1531s [00:52:11.862] - use_args: TRUE 1531s [00:52:11.862] - Getting '...' globals ... 1531s [00:52:11.862] resolve() on list ... 1531s [00:52:11.862] recursive: 0 1531s [00:52:11.862] length: 1 1531s [00:52:11.863] elements: ‘...’ 1531s [00:52:11.863] length: 0 (resolved future 1) 1531s [00:52:11.863] resolve() on list ... DONE 1531s [00:52:11.863] - '...' content: [n=0] 1531s [00:52:11.863] List of 1 1531s [00:52:11.863] $ ...: list() 1531s [00:52:11.863] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1531s [00:52:11.863] - attr(*, "where")=List of 1 1531s [00:52:11.863] ..$ ...: 1531s [00:52:11.863] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1531s [00:52:11.863] - attr(*, "resolved")= logi TRUE 1531s [00:52:11.863] - attr(*, "total_size")= num NA 1531s [00:52:11.866] - Getting '...' globals ... DONE 1531s [00:52:11.867] Globals to be used in all futures (chunks): [n=4] ‘...future.FUN’, ‘breaks’, ‘wool’, ‘...’ 1531s [00:52:11.867] List of 4 1531s [00:52:11.867] $ ...future.FUN:function (x) 1531s [00:52:11.867] $ breaks : num [1:54] 26 30 54 25 70 52 51 26 67 18 ... 1531s [00:52:11.867] $ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 1 ... 1531s [00:52:11.867] $ ... : list() 1531s [00:52:11.867] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1531s [00:52:11.867] - attr(*, "where")=List of 4 1531s [00:52:11.867] ..$ ...future.FUN: 1531s [00:52:11.867] ..$ breaks : 1531s [00:52:11.867] ..$ wool : 1531s [00:52:11.867] ..$ ... : 1531s [00:52:11.867] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1531s [00:52:11.867] - attr(*, "resolved")= logi FALSE 1531s [00:52:11.867] - attr(*, "total_size")= num 2320 1531s [00:52:11.872] Packages to be attached in all futures: [n=1] ‘stats’ 1531s [00:52:11.872] getGlobalsAndPackagesXApply() ... DONE 1531s [00:52:11.873] Number of futures (= number of chunks): 1 1531s [00:52:11.873] Launching 1 futures (chunks) ... 1531s [00:52:11.873] Chunk #1 of 1 ... 1531s [00:52:11.873] - Finding globals in 'X' for chunk #1 ... 1531s [00:52:11.873] getGlobalsAndPackages() ... 1531s [00:52:11.874] Searching for globals... 1531s [00:52:11.874] 1531s [00:52:11.874] Searching for globals ... DONE 1531s [00:52:11.875] - globals: [0] 1531s [00:52:11.875] getGlobalsAndPackages() ... DONE 1531s [00:52:11.875] + additional globals found: [n=0] 1531s [00:52:11.875] + additional namespaces needed: [n=0] 1531s [00:52:11.875] - Finding globals in 'X' for chunk #1 ... DONE 1531s [00:52:11.877] - seeds: 1531s [00:52:11.877] - All globals exported: [n=7] ‘...future.FUN’, ‘breaks’, ‘wool’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1531s [00:52:11.877] getGlobalsAndPackages() ... 1531s [00:52:11.878] - globals passed as-is: [7] ‘...future.FUN’, ‘breaks’, ‘wool’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1531s [00:52:11.878] Resolving globals: FALSE 1531s [00:52:11.878] Tweak future expression to call with '...' arguments ... 1531s [00:52:11.878] { 1531s [00:52:11.878] do.call(function(...) { 1531s [00:52:11.878] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1531s [00:52:11.878] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1531s [00:52:11.878] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1531s [00:52:11.878] on.exit(options(oopts), add = TRUE) 1531s [00:52:11.878] } 1531s [00:52:11.878] { 1531s [00:52:11.878] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1531s [00:52:11.878] ...future.X_jj <- ...future.elements_ii[[jj]] 1531s [00:52:11.878] ...future.FUN(...future.X_jj, ...) 1531s [00:52:11.878] }) 1531s [00:52:11.878] } 1531s [00:52:11.878] }, args = future.call.arguments) 1531s [00:52:11.878] } 1531s [00:52:11.879] Tweak future expression to call with '...' arguments ... DONE 1531s [00:52:11.879] - globals: [7] ‘...future.FUN’, ‘breaks’, ‘wool’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1531s [00:52:11.880] 1531s [00:52:11.880] getGlobalsAndPackages() ... DONE 1531s [00:52:11.880] run() for ‘Future’ ... 1531s [00:52:11.881] - state: ‘created’ 1531s [00:52:11.881] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1531s [00:52:11.881] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1531s [00:52:11.882] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1531s [00:52:11.882] - Field: ‘label’ 1531s [00:52:11.882] - Field: ‘local’ 1531s [00:52:11.882] - Field: ‘owner’ 1531s [00:52:11.882] - Field: ‘envir’ 1531s [00:52:11.883] - Field: ‘packages’ 1531s [00:52:11.883] - Field: ‘gc’ 1531s [00:52:11.883] - Field: ‘conditions’ 1531s [00:52:11.883] - Field: ‘expr’ 1531s [00:52:11.883] - Field: ‘uuid’ 1531s [00:52:11.883] - Field: ‘seed’ 1531s [00:52:11.884] - Field: ‘version’ 1531s [00:52:11.884] - Field: ‘result’ 1531s [00:52:11.884] - Field: ‘asynchronous’ 1531s [00:52:11.884] - Field: ‘calls’ 1531s [00:52:11.884] - Field: ‘globals’ 1531s [00:52:11.885] - Field: ‘stdout’ 1531s [00:52:11.885] - Field: ‘earlySignal’ 1531s [00:52:11.885] - Field: ‘lazy’ 1531s [00:52:11.885] - Field: ‘state’ 1531s [00:52:11.885] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1531s [00:52:11.885] - Launch lazy future ... 1531s [00:52:11.886] Packages needed by the future expression (n = 1): ‘stats’ 1531s [00:52:11.886] Packages needed by future strategies (n = 0): 1531s [00:52:11.886] { 1531s [00:52:11.886] { 1531s [00:52:11.886] { 1531s [00:52:11.886] ...future.startTime <- base::Sys.time() 1531s [00:52:11.886] { 1531s [00:52:11.886] { 1531s [00:52:11.886] { 1531s [00:52:11.886] { 1531s [00:52:11.886] base::local({ 1531s [00:52:11.886] has_future <- base::requireNamespace("future", 1531s [00:52:11.886] quietly = TRUE) 1531s [00:52:11.886] if (has_future) { 1531s [00:52:11.886] ns <- base::getNamespace("future") 1531s [00:52:11.886] version <- ns[[".package"]][["version"]] 1531s [00:52:11.886] if (is.null(version)) 1531s [00:52:11.886] version <- utils::packageVersion("future") 1531s [00:52:11.886] } 1531s [00:52:11.886] else { 1531s [00:52:11.886] version <- NULL 1531s [00:52:11.886] } 1531s [00:52:11.886] if (!has_future || version < "1.8.0") { 1531s [00:52:11.886] info <- base::c(r_version = base::gsub("R version ", 1531s [00:52:11.886] "", base::R.version$version.string), 1531s [00:52:11.886] platform = base::sprintf("%s (%s-bit)", 1531s [00:52:11.886] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1531s [00:52:11.886] os = base::paste(base::Sys.info()[base::c("sysname", 1531s [00:52:11.886] "release", "version")], collapse = " "), 1531s [00:52:11.886] hostname = base::Sys.info()[["nodename"]]) 1531s [00:52:11.886] info <- base::sprintf("%s: %s", base::names(info), 1531s [00:52:11.886] info) 1531s [00:52:11.886] info <- base::paste(info, collapse = "; ") 1531s [00:52:11.886] if (!has_future) { 1531s [00:52:11.886] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1531s [00:52:11.886] info) 1531s [00:52:11.886] } 1531s [00:52:11.886] else { 1531s [00:52:11.886] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1531s [00:52:11.886] info, version) 1531s [00:52:11.886] } 1531s [00:52:11.886] base::stop(msg) 1531s [00:52:11.886] } 1531s [00:52:11.886] }) 1531s [00:52:11.886] } 1531s [00:52:11.886] base::local({ 1531s [00:52:11.886] for (pkg in "stats") { 1531s [00:52:11.886] base::loadNamespace(pkg) 1531s [00:52:11.886] base::library(pkg, character.only = TRUE) 1531s [00:52:11.886] } 1531s [00:52:11.886] }) 1531s [00:52:11.886] } 1531s [00:52:11.886] options(future.plan = NULL) 1531s [00:52:11.886] Sys.unsetenv("R_FUTURE_PLAN") 1531s [00:52:11.886] future::plan("default", .cleanup = FALSE, .init = FALSE) 1531s [00:52:11.886] } 1531s [00:52:11.886] ...future.workdir <- getwd() 1531s [00:52:11.886] } 1531s [00:52:11.886] ...future.oldOptions <- base::as.list(base::.Options) 1531s [00:52:11.886] ...future.oldEnvVars <- base::Sys.getenv() 1531s [00:52:11.886] } 1531s [00:52:11.886] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1531s [00:52:11.886] future.globals.maxSize = NULL, future.globals.method = NULL, 1531s [00:52:11.886] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1531s [00:52:11.886] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1531s [00:52:11.886] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1531s [00:52:11.886] future.stdout.windows.reencode = NULL, width = 80L) 1531s [00:52:11.886] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1531s [00:52:11.886] base::names(...future.oldOptions)) 1531s [00:52:11.886] } 1531s [00:52:11.886] if (FALSE) { 1531s [00:52:11.886] } 1531s [00:52:11.886] else { 1531s [00:52:11.886] if (TRUE) { 1531s [00:52:11.886] ...future.stdout <- base::rawConnection(base::raw(0L), 1531s [00:52:11.886] open = "w") 1531s [00:52:11.886] } 1531s [00:52:11.886] else { 1531s [00:52:11.886] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1531s [00:52:11.886] windows = "NUL", "/dev/null"), open = "w") 1531s [00:52:11.886] } 1531s [00:52:11.886] base::sink(...future.stdout, type = "output", split = FALSE) 1531s [00:52:11.886] base::on.exit(if (!base::is.null(...future.stdout)) { 1531s [00:52:11.886] base::sink(type = "output", split = FALSE) 1531s [00:52:11.886] base::close(...future.stdout) 1531s [00:52:11.886] }, add = TRUE) 1531s [00:52:11.886] } 1531s [00:52:11.886] ...future.frame <- base::sys.nframe() 1531s [00:52:11.886] ...future.conditions <- base::list() 1531s [00:52:11.886] ...future.rng <- base::globalenv()$.Random.seed 1531s [00:52:11.886] if (FALSE) { 1531s [00:52:11.886] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1531s [00:52:11.886] "...future.value", "...future.globalenv.names", ".Random.seed") 1531s [00:52:11.886] } 1531s [00:52:11.886] ...future.result <- base::tryCatch({ 1531s [00:52:11.886] base::withCallingHandlers({ 1531s [00:52:11.886] ...future.value <- base::withVisible(base::local({ 1531s [00:52:11.886] do.call(function(...) { 1531s [00:52:11.886] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1531s [00:52:11.886] if (!identical(...future.globals.maxSize.org, 1531s [00:52:11.886] ...future.globals.maxSize)) { 1531s [00:52:11.886] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1531s [00:52:11.886] on.exit(options(oopts), add = TRUE) 1531s [00:52:11.886] } 1531s [00:52:11.886] { 1531s [00:52:11.886] lapply(seq_along(...future.elements_ii), 1531s [00:52:11.886] FUN = function(jj) { 1531s [00:52:11.886] ...future.X_jj <- ...future.elements_ii[[jj]] 1531s [00:52:11.886] ...future.FUN(...future.X_jj, ...) 1531s [00:52:11.886] }) 1531s [00:52:11.886] } 1531s [00:52:11.886] }, args = future.call.arguments) 1531s [00:52:11.886] })) 1531s [00:52:11.886] future::FutureResult(value = ...future.value$value, 1531s [00:52:11.886] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1531s [00:52:11.886] ...future.rng), globalenv = if (FALSE) 1531s [00:52:11.886] list(added = base::setdiff(base::names(base::.GlobalEnv), 1531s [00:52:11.886] ...future.globalenv.names)) 1531s [00:52:11.886] else NULL, started = ...future.startTime, version = "1.8") 1531s [00:52:11.886] }, condition = base::local({ 1531s [00:52:11.886] c <- base::c 1531s [00:52:11.886] inherits <- base::inherits 1531s [00:52:11.886] invokeRestart <- base::invokeRestart 1531s [00:52:11.886] length <- base::length 1531s [00:52:11.886] list <- base::list 1531s [00:52:11.886] seq.int <- base::seq.int 1531s [00:52:11.886] signalCondition <- base::signalCondition 1531s [00:52:11.886] sys.calls <- base::sys.calls 1531s [00:52:11.886] `[[` <- base::`[[` 1531s [00:52:11.886] `+` <- base::`+` 1531s [00:52:11.886] `<<-` <- base::`<<-` 1531s [00:52:11.886] sysCalls <- function(calls = sys.calls(), from = 1L) { 1531s [00:52:11.886] calls[seq.int(from = from + 12L, to = length(calls) - 1531s [00:52:11.886] 3L)] 1531s [00:52:11.886] } 1531s [00:52:11.886] function(cond) { 1531s [00:52:11.886] is_error <- inherits(cond, "error") 1531s [00:52:11.886] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1531s [00:52:11.886] NULL) 1531s [00:52:11.886] if (is_error) { 1531s [00:52:11.886] sessionInformation <- function() { 1531s [00:52:11.886] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1531s [00:52:11.886] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1531s [00:52:11.886] search = base::search(), system = base::Sys.info()) 1531s [00:52:11.886] } 1531s [00:52:11.886] ...future.conditions[[length(...future.conditions) + 1531s [00:52:11.886] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1531s [00:52:11.886] cond$call), session = sessionInformation(), 1531s [00:52:11.886] timestamp = base::Sys.time(), signaled = 0L) 1531s [00:52:11.886] signalCondition(cond) 1531s [00:52:11.886] } 1531s [00:52:11.886] else if (!ignore && TRUE && inherits(cond, c("condition", 1531s [00:52:11.886] "immediateCondition"))) { 1531s [00:52:11.886] signal <- TRUE && inherits(cond, "immediateCondition") 1531s [00:52:11.886] ...future.conditions[[length(...future.conditions) + 1531s [00:52:11.886] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1531s [00:52:11.886] if (TRUE && !signal) { 1531s [00:52:11.886] muffleCondition <- function (cond, pattern = "^muffle") 1531s [00:52:11.886] { 1531s [00:52:11.886] inherits <- base::inherits 1531s [00:52:11.886] invokeRestart <- base::invokeRestart 1531s [00:52:11.886] is.null <- base::is.null 1531s [00:52:11.886] muffled <- FALSE 1531s [00:52:11.886] if (inherits(cond, "message")) { 1531s [00:52:11.886] muffled <- grepl(pattern, "muffleMessage") 1531s [00:52:11.886] if (muffled) 1531s [00:52:11.886] invokeRestart("muffleMessage") 1531s [00:52:11.886] } 1531s [00:52:11.886] else if (inherits(cond, "warning")) { 1531s [00:52:11.886] muffled <- grepl(pattern, "muffleWarning") 1531s [00:52:11.886] if (muffled) 1531s [00:52:11.886] invokeRestart("muffleWarning") 1531s [00:52:11.886] } 1531s [00:52:11.886] else if (inherits(cond, "condition")) { 1531s [00:52:11.886] if (!is.null(pattern)) { 1531s [00:52:11.886] computeRestarts <- base::computeRestarts 1531s [00:52:11.886] grepl <- base::grepl 1531s [00:52:11.886] restarts <- computeRestarts(cond) 1531s [00:52:11.886] for (restart in restarts) { 1531s [00:52:11.886] name <- restart$name 1531s [00:52:11.886] if (is.null(name)) 1531s [00:52:11.886] next 1531s [00:52:11.886] if (!grepl(pattern, name)) 1531s [00:52:11.886] next 1531s [00:52:11.886] invokeRestart(restart) 1531s [00:52:11.886] muffled <- TRUE 1531s [00:52:11.886] break 1531s [00:52:11.886] } 1531s [00:52:11.886] } 1531s [00:52:11.886] } 1531s [00:52:11.886] invisible(muffled) 1531s [00:52:11.886] } 1531s [00:52:11.886] muffleCondition(cond, pattern = "^muffle") 1531s [00:52:11.886] } 1531s [00:52:11.886] } 1531s [00:52:11.886] else { 1531s [00:52:11.886] if (TRUE) { 1531s [00:52:11.886] muffleCondition <- function (cond, pattern = "^muffle") 1531s [00:52:11.886] { 1531s [00:52:11.886] inherits <- base::inherits 1531s [00:52:11.886] invokeRestart <- base::invokeRestart 1531s [00:52:11.886] is.null <- base::is.null 1531s [00:52:11.886] muffled <- FALSE 1531s [00:52:11.886] if (inherits(cond, "message")) { 1531s [00:52:11.886] muffled <- grepl(pattern, "muffleMessage") 1531s [00:52:11.886] if (muffled) 1531s [00:52:11.886] invokeRestart("muffleMessage") 1531s [00:52:11.886] } 1531s [00:52:11.886] else if (inherits(cond, "warning")) { 1531s [00:52:11.886] muffled <- grepl(pattern, "muffleWarning") 1531s [00:52:11.886] if (muffled) 1531s [00:52:11.886] invokeRestart("muffleWarning") 1531s [00:52:11.886] } 1531s [00:52:11.886] else if (inherits(cond, "condition")) { 1531s [00:52:11.886] if (!is.null(pattern)) { 1531s [00:52:11.886] computeRestarts <- base::computeRestarts 1531s [00:52:11.886] grepl <- base::grepl 1531s [00:52:11.886] restarts <- computeRestarts(cond) 1531s [00:52:11.886] for (restart in restarts) { 1531s [00:52:11.886] name <- restart$name 1531s [00:52:11.886] if (is.null(name)) 1531s [00:52:11.886] next 1531s [00:52:11.886] if (!grepl(pattern, name)) 1531s [00:52:11.886] next 1531s [00:52:11.886] invokeRestart(restart) 1531s [00:52:11.886] muffled <- TRUE 1531s [00:52:11.886] break 1531s [00:52:11.886] } 1531s [00:52:11.886] } 1531s [00:52:11.886] } 1531s [00:52:11.886] invisible(muffled) 1531s [00:52:11.886] } 1531s [00:52:11.886] muffleCondition(cond, pattern = "^muffle") 1531s [00:52:11.886] } 1531s [00:52:11.886] } 1531s [00:52:11.886] } 1531s [00:52:11.886] })) 1531s [00:52:11.886] }, error = function(ex) { 1531s [00:52:11.886] base::structure(base::list(value = NULL, visible = NULL, 1531s [00:52:11.886] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1531s [00:52:11.886] ...future.rng), started = ...future.startTime, 1531s [00:52:11.886] finished = Sys.time(), session_uuid = NA_character_, 1531s [00:52:11.886] version = "1.8"), class = "FutureResult") 1531s [00:52:11.886] }, finally = { 1531s [00:52:11.886] if (!identical(...future.workdir, getwd())) 1531s [00:52:11.886] setwd(...future.workdir) 1531s [00:52:11.886] { 1531s [00:52:11.886] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1531s [00:52:11.886] ...future.oldOptions$nwarnings <- NULL 1531s [00:52:11.886] } 1531s [00:52:11.886] base::options(...future.oldOptions) 1531s [00:52:11.886] if (.Platform$OS.type == "windows") { 1531s [00:52:11.886] old_names <- names(...future.oldEnvVars) 1531s [00:52:11.886] envs <- base::Sys.getenv() 1531s [00:52:11.886] names <- names(envs) 1531s [00:52:11.886] common <- intersect(names, old_names) 1531s [00:52:11.886] added <- setdiff(names, old_names) 1531s [00:52:11.886] removed <- setdiff(old_names, names) 1531s [00:52:11.886] changed <- common[...future.oldEnvVars[common] != 1531s [00:52:11.886] envs[common]] 1531s [00:52:11.886] NAMES <- toupper(changed) 1531s [00:52:11.886] args <- list() 1531s [00:52:11.886] for (kk in seq_along(NAMES)) { 1531s [00:52:11.886] name <- changed[[kk]] 1531s [00:52:11.886] NAME <- NAMES[[kk]] 1531s [00:52:11.886] if (name != NAME && is.element(NAME, old_names)) 1531s [00:52:11.886] next 1531s [00:52:11.886] args[[name]] <- ...future.oldEnvVars[[name]] 1531s [00:52:11.886] } 1531s [00:52:11.886] NAMES <- toupper(added) 1531s [00:52:11.886] for (kk in seq_along(NAMES)) { 1531s [00:52:11.886] name <- added[[kk]] 1531s [00:52:11.886] NAME <- NAMES[[kk]] 1531s [00:52:11.886] if (name != NAME && is.element(NAME, old_names)) 1531s [00:52:11.886] next 1531s [00:52:11.886] args[[name]] <- "" 1531s [00:52:11.886] } 1531s [00:52:11.886] NAMES <- toupper(removed) 1531s [00:52:11.886] for (kk in seq_along(NAMES)) { 1531s [00:52:11.886] name <- removed[[kk]] 1531s [00:52:11.886] NAME <- NAMES[[kk]] 1531s [00:52:11.886] if (name != NAME && is.element(NAME, old_names)) 1531s [00:52:11.886] next 1531s [00:52:11.886] args[[name]] <- ...future.oldEnvVars[[name]] 1531s [00:52:11.886] } 1531s [00:52:11.886] if (length(args) > 0) 1531s [00:52:11.886] base::do.call(base::Sys.setenv, args = args) 1531s [00:52:11.886] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1531s [00:52:11.886] } 1531s [00:52:11.886] else { 1531s [00:52:11.886] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1531s [00:52:11.886] } 1531s [00:52:11.886] { 1531s [00:52:11.886] if (base::length(...future.futureOptionsAdded) > 1531s [00:52:11.886] 0L) { 1531s [00:52:11.886] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1531s [00:52:11.886] base::names(opts) <- ...future.futureOptionsAdded 1531s [00:52:11.886] base::options(opts) 1531s [00:52:11.886] } 1531s [00:52:11.886] { 1531s [00:52:11.886] { 1531s [00:52:11.886] NULL 1531s [00:52:11.886] RNGkind("Mersenne-Twister") 1531s [00:52:11.886] base::rm(list = ".Random.seed", envir = base::globalenv(), 1531s [00:52:11.886] inherits = FALSE) 1531s [00:52:11.886] } 1531s [00:52:11.886] options(future.plan = NULL) 1531s [00:52:11.886] if (is.na(NA_character_)) 1531s [00:52:11.886] Sys.unsetenv("R_FUTURE_PLAN") 1531s [00:52:11.886] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1531s [00:52:11.886] future::plan(list(function (..., envir = parent.frame()) 1531s [00:52:11.886] { 1531s [00:52:11.886] future <- SequentialFuture(..., envir = envir) 1531s [00:52:11.886] if (!future$lazy) 1531s [00:52:11.886] future <- run(future) 1531s [00:52:11.886] invisible(future) 1531s [00:52:11.886] }), .cleanup = FALSE, .init = FALSE) 1531s [00:52:11.886] } 1531s [00:52:11.886] } 1531s [00:52:11.886] } 1531s [00:52:11.886] }) 1531s [00:52:11.886] if (TRUE) { 1531s [00:52:11.886] base::sink(type = "output", split = FALSE) 1531s [00:52:11.886] if (TRUE) { 1531s [00:52:11.886] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1531s [00:52:11.886] } 1531s [00:52:11.886] else { 1531s [00:52:11.886] ...future.result["stdout"] <- base::list(NULL) 1531s [00:52:11.886] } 1531s [00:52:11.886] base::close(...future.stdout) 1531s [00:52:11.886] ...future.stdout <- NULL 1531s [00:52:11.886] } 1531s [00:52:11.886] ...future.result$conditions <- ...future.conditions 1531s [00:52:11.886] ...future.result$finished <- base::Sys.time() 1531s [00:52:11.886] ...future.result 1531s [00:52:11.886] } 1531s [00:52:11.893] assign_globals() ... 1531s [00:52:11.893] List of 7 1531s [00:52:11.893] $ ...future.FUN :function (x) 1531s [00:52:11.893] $ breaks : num [1:54] 26 30 54 25 70 52 51 26 67 18 ... 1531s [00:52:11.893] $ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 1 ... 1531s [00:52:11.893] $ future.call.arguments : list() 1531s [00:52:11.893] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1531s [00:52:11.893] $ ...future.elements_ii :List of 3 1531s [00:52:11.893] ..$ :'data.frame': 18 obs. of 3 variables: 1531s [00:52:11.893] .. ..$ breaks : num [1:18] 26 30 54 25 70 52 51 26 67 27 ... 1531s [00:52:11.893] .. ..$ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 2 ... 1531s [00:52:11.893] .. ..$ tension: Factor w/ 3 levels "L","M","H": 1 1 1 1 1 1 1 1 1 1 ... 1531s [00:52:11.893] ..$ :'data.frame': 18 obs. of 3 variables: 1531s [00:52:11.893] .. ..$ breaks : num [1:18] 18 21 29 17 12 18 35 30 36 42 ... 1531s [00:52:11.893] .. ..$ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 2 ... 1531s [00:52:11.893] .. ..$ tension: Factor w/ 3 levels "L","M","H": 2 2 2 2 2 2 2 2 2 2 ... 1531s [00:52:11.893] ..$ :'data.frame': 18 obs. of 3 variables: 1531s [00:52:11.893] .. ..$ breaks : num [1:18] 36 21 24 18 10 43 28 15 26 20 ... 1531s [00:52:11.893] .. ..$ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 2 ... 1531s [00:52:11.893] .. ..$ tension: Factor w/ 3 levels "L","M","H": 3 3 3 3 3 3 3 3 3 3 ... 1531s [00:52:11.893] $ ...future.seeds_ii : NULL 1531s [00:52:11.893] $ ...future.globals.maxSize: NULL 1531s [00:52:11.893] - attr(*, "where")=List of 7 1531s [00:52:11.893] ..$ ...future.FUN : 1531s [00:52:11.893] ..$ breaks : 1531s [00:52:11.893] ..$ wool : 1531s [00:52:11.893] ..$ future.call.arguments : 1531s [00:52:11.893] ..$ ...future.elements_ii : 1531s [00:52:11.893] ..$ ...future.seeds_ii : 1531s [00:52:11.893] ..$ ...future.globals.maxSize: 1531s [00:52:11.893] - attr(*, "resolved")= logi FALSE 1531s [00:52:11.893] - attr(*, "total_size")= num 2320 1531s [00:52:11.893] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1531s [00:52:11.893] - attr(*, "already-done")= logi TRUE 1531s [00:52:11.905] - reassign environment for ‘...future.FUN’ 1531s [00:52:11.905] - copied ‘...future.FUN’ to environment 1531s [00:52:11.905] - copied ‘breaks’ to environment 1531s [00:52:11.906] - copied ‘wool’ to environment 1531s [00:52:11.906] - copied ‘future.call.arguments’ to environment 1531s [00:52:11.906] - copied ‘...future.elements_ii’ to environment 1531s [00:52:11.906] - copied ‘...future.seeds_ii’ to environment 1531s [00:52:11.906] - copied ‘...future.globals.maxSize’ to environment 1531s [00:52:11.906] assign_globals() ... done 1531s [00:52:11.907] plan(): Setting new future strategy stack: 1531s [00:52:11.907] List of future strategies: 1531s [00:52:11.907] 1. sequential: 1531s [00:52:11.907] - args: function (..., envir = parent.frame()) 1531s [00:52:11.907] - tweaked: FALSE 1531s [00:52:11.907] - call: NULL 1531s [00:52:11.907] plan(): nbrOfWorkers() = 1 1531s [00:52:11.913] plan(): Setting new future strategy stack: 1531s [00:52:11.913] List of future strategies: 1531s [00:52:11.913] 1. sequential: 1531s [00:52:11.913] - args: function (..., envir = parent.frame()) 1531s [00:52:11.913] - tweaked: FALSE 1531s [00:52:11.913] - call: plan(strategy) 1531s [00:52:11.914] plan(): nbrOfWorkers() = 1 1531s [00:52:11.914] SequentialFuture started (and completed) 1531s [00:52:11.914] - Launch lazy future ... done 1531s [00:52:11.914] run() for ‘SequentialFuture’ ... done 1531s [00:52:11.915] Created future: 1531s [00:52:11.915] SequentialFuture: 1531s [00:52:11.915] Label: ‘future_by-1’ 1531s [00:52:11.915] Expression: 1531s [00:52:11.915] { 1531s [00:52:11.915] do.call(function(...) { 1531s [00:52:11.915] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1531s [00:52:11.915] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1531s [00:52:11.915] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1531s [00:52:11.915] on.exit(options(oopts), add = TRUE) 1531s [00:52:11.915] } 1531s [00:52:11.915] { 1531s [00:52:11.915] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1531s [00:52:11.915] ...future.X_jj <- ...future.elements_ii[[jj]] 1531s [00:52:11.915] ...future.FUN(...future.X_jj, ...) 1531s [00:52:11.915] }) 1531s [00:52:11.915] } 1531s [00:52:11.915] }, args = future.call.arguments) 1531s [00:52:11.915] } 1531s [00:52:11.915] Lazy evaluation: FALSE 1531s [00:52:11.915] Asynchronous evaluation: FALSE 1531s [00:52:11.915] Local evaluation: TRUE 1531s [00:52:11.915] Environment: 0x2aa02c60808 1531s [00:52:11.915] Capture standard output: TRUE 1531s [00:52:11.915] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1531s [00:52:11.915] Globals: 7 objects totaling 7.07 KiB (function ‘...future.FUN’ of 1.04 KiB, numeric ‘breaks’ of 480 bytes, factor ‘wool’ of 776 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 4.80 KiB, ...) 1531s [00:52:11.915] Packages: 1 packages (‘stats’) 1531s [00:52:11.915] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1531s [00:52:11.915] Resolved: TRUE 1531s [00:52:11.915] Value: 25.57 KiB of class ‘list’ 1531s [00:52:11.915] Early signaling: FALSE 1531s [00:52:11.915] Owner process: 64a671dd-8756-a081-baa7-973da233f197 1531s [00:52:11.915] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1531s [00:52:11.917] Chunk #1 of 1 ... DONE 1531s [00:52:11.917] Launching 1 futures (chunks) ... DONE 1531s [00:52:11.917] Resolving 1 futures (chunks) ... 1531s [00:52:11.917] resolve() on list ... 1531s [00:52:11.918] recursive: 0 1531s [00:52:11.918] length: 1 1531s [00:52:11.918] 1531s [00:52:11.918] resolved() for ‘SequentialFuture’ ... 1531s [00:52:11.918] - state: ‘finished’ 1531s [00:52:11.918] - run: TRUE 1531s [00:52:11.918] - result: ‘FutureResult’ 1531s [00:52:11.919] resolved() for ‘SequentialFuture’ ... done 1531s [00:52:11.919] Future #1 1531s [00:52:11.919] signalConditionsASAP(SequentialFuture, pos=1) ... 1531s [00:52:11.919] - nx: 1 1531s [00:52:11.919] - relay: TRUE 1531s [00:52:11.919] - stdout: TRUE 1531s [00:52:11.920] - signal: TRUE 1531s [00:52:11.920] - resignal: FALSE 1531s [00:52:11.920] - force: TRUE 1531s [00:52:11.920] - relayed: [n=1] FALSE 1531s [00:52:11.920] - queued futures: [n=1] FALSE 1531s [00:52:11.920] - until=1 1531s [00:52:11.920] - relaying element #1 1531s [00:52:11.921] - relayed: [n=1] TRUE 1531s [00:52:11.921] - queued futures: [n=1] TRUE 1531s [00:52:11.921] signalConditionsASAP(SequentialFuture, pos=1) ... done 1531s [00:52:11.921] length: 0 (resolved future 1) 1531s [00:52:11.922] Relaying remaining futures 1531s [00:52:11.922] signalConditionsASAP(NULL, pos=0) ... 1531s [00:52:11.922] - nx: 1 1531s [00:52:11.922] - relay: TRUE 1531s [00:52:11.922] - stdout: TRUE 1531s [00:52:11.922] - signal: TRUE 1531s [00:52:11.923] - resignal: FALSE 1531s [00:52:11.923] - force: TRUE 1531s [00:52:11.923] - relayed: [n=1] TRUE 1531s [00:52:11.923] - queued futures: [n=1] TRUE 1531s - flush all 1531s [00:52:11.923] - relayed: [n=1] TRUE 1531s [00:52:11.923] - queued futures: [n=1] TRUE 1531s [00:52:11.924] signalConditionsASAP(NULL, pos=0) ... done 1531s [00:52:11.924] resolve() on list ... DONE 1531s [00:52:11.924] - Number of value chunks collected: 1 1531s [00:52:11.924] Resolving 1 futures (chunks) ... DONE 1531s [00:52:11.924] Reducing values from 1 chunks ... 1531s [00:52:11.924] - Number of values collected after concatenation: 3 1531s [00:52:11.925] - Number of values expected: 3 1531s [00:52:11.925] Reducing values from 1 chunks ... DONE 1531s [00:52:11.925] future_lapply() ... DONE 1531s [00:52:11.925] future_by_internal() ... DONE 1531s [00:52:11.926] future_by_internal() ... 1531s [00:52:11.926] future_lapply() ... 1531s [00:52:11.927] Number of chunks: 1 1531s [00:52:11.927] getGlobalsAndPackagesXApply() ... 1531s [00:52:11.927] - future.globals: TRUE 1531s [00:52:11.927] getGlobalsAndPackages() ... 1531s [00:52:11.927] Searching for globals... 1531s [00:52:11.928] - globals found: [2] ‘FUN’, ‘UseMethod’ 1531s [00:52:11.929] Searching for globals ... DONE 1531s [00:52:11.929] Resolving globals: FALSE 1531s [00:52:11.929] The total size of the 1 globals is 1.21 KiB (1240 bytes) 1531s [00:52:11.930] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.21 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.21 KiB of class ‘function’) 1531s [00:52:11.930] - globals: [1] ‘FUN’ 1531s [00:52:11.930] 1531s [00:52:11.930] getGlobalsAndPackages() ... DONE 1531s [00:52:11.930] - globals found/used: [n=1] ‘FUN’ 1531s [00:52:11.930] - needed namespaces: [n=0] 1531s [00:52:11.931] Finding globals ... DONE 1531s [00:52:11.931] - use_args: TRUE 1531s [00:52:11.931] - Getting '...' globals ... 1531s [00:52:11.931] resolve() on list ... 1531s [00:52:11.932] recursive: 0 1531s [00:52:11.932] length: 1 1531s [00:52:11.932] elements: ‘...’ 1531s [00:52:11.932] length: 0 (resolved future 1) 1531s [00:52:11.932] resolve() on list ... DONE 1531s [00:52:11.933] - '...' content: [n=0] 1531s [00:52:11.933] List of 1 1531s [00:52:11.933] $ ...: list() 1531s [00:52:11.933] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1531s [00:52:11.933] - attr(*, "where")=List of 1 1531s [00:52:11.933] ..$ ...: 1531s [00:52:11.933] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1531s [00:52:11.933] - attr(*, "resolved")= logi TRUE 1531s [00:52:11.933] - attr(*, "total_size")= num NA 1531s [00:52:11.937] - Getting '...' globals ... DONE 1531s [00:52:11.937] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1531s [00:52:11.937] List of 2 1531s [00:52:11.937] $ ...future.FUN:function (object, ...) 1531s [00:52:11.937] $ ... : list() 1531s [00:52:11.937] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1531s [00:52:11.937] - attr(*, "where")=List of 2 1531s [00:52:11.937] ..$ ...future.FUN: 1531s [00:52:11.937] ..$ ... : 1531s [00:52:11.937] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1531s [00:52:11.937] - attr(*, "resolved")= logi FALSE 1531s [00:52:11.937] - attr(*, "total_size")= num 1240 1531s [00:52:11.944] Packages to be attached in all futures: [n=0] 1531s [00:52:11.944] getGlobalsAndPackagesXApply() ... DONE 1531s [00:52:11.944] Number of futures (= number of chunks): 1 1531s [00:52:11.944] Launching 1 futures (chunks) ... 1531s [00:52:11.944] Chunk #1 of 1 ... 1531s [00:52:11.945] - Finding globals in 'X' for chunk #1 ... 1531s [00:52:11.945] getGlobalsAndPackages() ... 1531s [00:52:11.945] Searching for globals... 1531s [00:52:11.945] 1531s [00:52:11.946] Searching for globals ... DONE 1531s [00:52:11.946] - globals: [0] 1531s [00:52:11.946] getGlobalsAndPackages() ... DONE 1531s [00:52:11.946] + additional globals found: [n=0] 1531s [00:52:11.946] + additional namespaces needed: [n=0] 1531s [00:52:11.946] - Finding globals in 'X' for chunk #1 ... DONE 1531s [00:52:11.947] - seeds: 1531s [00:52:11.947] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1531s [00:52:11.947] getGlobalsAndPackages() ... 1531s [00:52:11.947] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1531s [00:52:11.948] Resolving globals: FALSE 1531s [00:52:11.948] Tweak future expression to call with '...' arguments ... 1531s [00:52:11.948] { 1531s [00:52:11.948] do.call(function(...) { 1531s [00:52:11.948] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1531s [00:52:11.948] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1531s [00:52:11.948] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1531s [00:52:11.948] on.exit(options(oopts), add = TRUE) 1531s [00:52:11.948] } 1531s [00:52:11.948] { 1531s [00:52:11.948] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1531s [00:52:11.948] ...future.X_jj <- ...future.elements_ii[[jj]] 1531s [00:52:11.948] ...future.FUN(...future.X_jj, ...) 1531s [00:52:11.948] }) 1531s [00:52:11.948] } 1531s [00:52:11.948] }, args = future.call.arguments) 1531s [00:52:11.948] } 1531s [00:52:11.949] Tweak future expression to call with '...' arguments ... DONE 1531s [00:52:11.949] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1531s [00:52:11.950] 1531s [00:52:11.950] getGlobalsAndPackages() ... DONE 1531s [00:52:11.950] run() for ‘Future’ ... 1531s [00:52:11.950] - state: ‘created’ 1531s [00:52:11.951] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1531s [00:52:11.951] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1531s [00:52:11.951] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1531s [00:52:11.952] - Field: ‘label’ 1531s [00:52:11.952] - Field: ‘local’ 1531s [00:52:11.952] - Field: ‘owner’ 1531s [00:52:11.952] - Field: ‘envir’ 1531s [00:52:11.952] - Field: ‘packages’ 1531s [00:52:11.952] - Field: ‘gc’ 1531s [00:52:11.952] - Field: ‘conditions’ 1531s [00:52:11.953] - Field: ‘expr’ 1531s [00:52:11.953] - Field: ‘uuid’ 1531s [00:52:11.953] - Field: ‘seed’ 1531s [00:52:11.953] - Field: ‘version’ 1531s [00:52:11.953] - Field: ‘result’ 1531s [00:52:11.953] - Field: ‘asynchronous’ 1531s [00:52:11.953] - Field: ‘calls’ 1531s [00:52:11.954] - Field: ‘globals’ 1531s [00:52:11.954] - Field: ‘stdout’ 1531s [00:52:11.954] - Field: ‘earlySignal’ 1531s [00:52:11.954] - Field: ‘lazy’ 1531s [00:52:11.954] - Field: ‘state’ 1531s [00:52:11.954] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1531s [00:52:11.954] - Launch lazy future ... 1531s [00:52:11.955] Packages needed by the future expression (n = 0): 1531s [00:52:11.955] Packages needed by future strategies (n = 0): 1531s [00:52:11.955] { 1531s [00:52:11.955] { 1531s [00:52:11.955] { 1531s [00:52:11.955] ...future.startTime <- base::Sys.time() 1531s [00:52:11.955] { 1531s [00:52:11.955] { 1531s [00:52:11.955] { 1531s [00:52:11.955] base::local({ 1531s [00:52:11.955] has_future <- base::requireNamespace("future", 1531s [00:52:11.955] quietly = TRUE) 1531s [00:52:11.955] if (has_future) { 1531s [00:52:11.955] ns <- base::getNamespace("future") 1531s [00:52:11.955] version <- ns[[".package"]][["version"]] 1531s [00:52:11.955] if (is.null(version)) 1531s [00:52:11.955] version <- utils::packageVersion("future") 1531s [00:52:11.955] } 1531s [00:52:11.955] else { 1531s [00:52:11.955] version <- NULL 1531s [00:52:11.955] } 1531s [00:52:11.955] if (!has_future || version < "1.8.0") { 1531s [00:52:11.955] info <- base::c(r_version = base::gsub("R version ", 1531s [00:52:11.955] "", base::R.version$version.string), 1531s [00:52:11.955] platform = base::sprintf("%s (%s-bit)", 1531s [00:52:11.955] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1531s [00:52:11.955] os = base::paste(base::Sys.info()[base::c("sysname", 1531s [00:52:11.955] "release", "version")], collapse = " "), 1531s [00:52:11.955] hostname = base::Sys.info()[["nodename"]]) 1531s [00:52:11.955] info <- base::sprintf("%s: %s", base::names(info), 1531s [00:52:11.955] info) 1531s [00:52:11.955] info <- base::paste(info, collapse = "; ") 1531s [00:52:11.955] if (!has_future) { 1531s [00:52:11.955] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1531s [00:52:11.955] info) 1531s [00:52:11.955] } 1531s [00:52:11.955] else { 1531s [00:52:11.955] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1531s [00:52:11.955] info, version) 1531s [00:52:11.955] } 1531s [00:52:11.955] base::stop(msg) 1531s [00:52:11.955] } 1531s [00:52:11.955] }) 1531s [00:52:11.955] } 1531s [00:52:11.955] options(future.plan = NULL) 1531s [00:52:11.955] Sys.unsetenv("R_FUTURE_PLAN") 1531s [00:52:11.955] future::plan("default", .cleanup = FALSE, .init = FALSE) 1531s [00:52:11.955] } 1531s [00:52:11.955] ...future.workdir <- getwd() 1531s [00:52:11.955] } 1531s [00:52:11.955] ...future.oldOptions <- base::as.list(base::.Options) 1531s [00:52:11.955] ...future.oldEnvVars <- base::Sys.getenv() 1531s [00:52:11.955] } 1531s [00:52:11.955] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1531s [00:52:11.955] future.globals.maxSize = NULL, future.globals.method = NULL, 1531s [00:52:11.955] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1531s [00:52:11.955] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1531s [00:52:11.955] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1531s [00:52:11.955] future.stdout.windows.reencode = NULL, width = 80L) 1531s [00:52:11.955] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1531s [00:52:11.955] base::names(...future.oldOptions)) 1531s [00:52:11.955] } 1531s [00:52:11.955] if (FALSE) { 1531s [00:52:11.955] } 1531s [00:52:11.955] else { 1531s [00:52:11.955] if (TRUE) { 1531s [00:52:11.955] ...future.stdout <- base::rawConnection(base::raw(0L), 1531s [00:52:11.955] open = "w") 1531s [00:52:11.955] } 1531s [00:52:11.955] else { 1531s [00:52:11.955] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1531s [00:52:11.955] windows = "NUL", "/dev/null"), open = "w") 1531s [00:52:11.955] } 1531s [00:52:11.955] base::sink(...future.stdout, type = "output", split = FALSE) 1531s [00:52:11.955] base::on.exit(if (!base::is.null(...future.stdout)) { 1531s [00:52:11.955] base::sink(type = "output", split = FALSE) 1531s [00:52:11.955] base::close(...future.stdout) 1531s [00:52:11.955] }, add = TRUE) 1531s [00:52:11.955] } 1531s [00:52:11.955] ...future.frame <- base::sys.nframe() 1531s [00:52:11.955] ...future.conditions <- base::list() 1531s [00:52:11.955] ...future.rng <- base::globalenv()$.Random.seed 1531s [00:52:11.955] if (FALSE) { 1531s [00:52:11.955] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1531s [00:52:11.955] "...future.value", "...future.globalenv.names", ".Random.seed") 1531s [00:52:11.955] } 1531s [00:52:11.955] ...future.result <- base::tryCatch({ 1531s [00:52:11.955] base::withCallingHandlers({ 1531s [00:52:11.955] ...future.value <- base::withVisible(base::local({ 1531s [00:52:11.955] do.call(function(...) { 1531s [00:52:11.955] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1531s [00:52:11.955] if (!identical(...future.globals.maxSize.org, 1531s [00:52:11.955] ...future.globals.maxSize)) { 1531s [00:52:11.955] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1531s [00:52:11.955] on.exit(options(oopts), add = TRUE) 1531s [00:52:11.955] } 1531s [00:52:11.955] { 1531s [00:52:11.955] lapply(seq_along(...future.elements_ii), 1531s [00:52:11.955] FUN = function(jj) { 1531s [00:52:11.955] ...future.X_jj <- ...future.elements_ii[[jj]] 1531s [00:52:11.955] ...future.FUN(...future.X_jj, ...) 1531s [00:52:11.955] }) 1531s [00:52:11.955] } 1531s [00:52:11.955] }, args = future.call.arguments) 1531s [00:52:11.955] })) 1531s [00:52:11.955] future::FutureResult(value = ...future.value$value, 1531s [00:52:11.955] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1531s [00:52:11.955] ...future.rng), globalenv = if (FALSE) 1531s [00:52:11.955] list(added = base::setdiff(base::names(base::.GlobalEnv), 1531s [00:52:11.955] ...future.globalenv.names)) 1531s [00:52:11.955] else NULL, started = ...future.startTime, version = "1.8") 1531s [00:52:11.955] }, condition = base::local({ 1531s [00:52:11.955] c <- base::c 1531s [00:52:11.955] inherits <- base::inherits 1531s [00:52:11.955] invokeRestart <- base::invokeRestart 1531s [00:52:11.955] length <- base::length 1531s [00:52:11.955] list <- base::list 1531s [00:52:11.955] seq.int <- base::seq.int 1531s [00:52:11.955] signalCondition <- base::signalCondition 1531s [00:52:11.955] sys.calls <- base::sys.calls 1531s [00:52:11.955] `[[` <- base::`[[` 1531s [00:52:11.955] `+` <- base::`+` 1531s [00:52:11.955] `<<-` <- base::`<<-` 1531s [00:52:11.955] sysCalls <- function(calls = sys.calls(), from = 1L) { 1531s [00:52:11.955] calls[seq.int(from = from + 12L, to = length(calls) - 1531s [00:52:11.955] 3L)] 1531s [00:52:11.955] } 1531s [00:52:11.955] function(cond) { 1531s [00:52:11.955] is_error <- inherits(cond, "error") 1531s [00:52:11.955] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1531s [00:52:11.955] NULL) 1531s [00:52:11.955] if (is_error) { 1531s [00:52:11.955] sessionInformation <- function() { 1531s [00:52:11.955] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1531s [00:52:11.955] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1531s [00:52:11.955] search = base::search(), system = base::Sys.info()) 1531s [00:52:11.955] } 1531s [00:52:11.955] ...future.conditions[[length(...future.conditions) + 1531s [00:52:11.955] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1531s [00:52:11.955] cond$call), session = sessionInformation(), 1531s [00:52:11.955] timestamp = base::Sys.time(), signaled = 0L) 1531s [00:52:11.955] signalCondition(cond) 1531s [00:52:11.955] } 1531s [00:52:11.955] else if (!ignore && TRUE && inherits(cond, c("condition", 1531s [00:52:11.955] "immediateCondition"))) { 1531s [00:52:11.955] signal <- TRUE && inherits(cond, "immediateCondition") 1531s [00:52:11.955] ...future.conditions[[length(...future.conditions) + 1531s [00:52:11.955] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1531s [00:52:11.955] if (TRUE && !signal) { 1531s [00:52:11.955] muffleCondition <- function (cond, pattern = "^muffle") 1531s [00:52:11.955] { 1531s [00:52:11.955] inherits <- base::inherits 1531s [00:52:11.955] invokeRestart <- base::invokeRestart 1531s [00:52:11.955] is.null <- base::is.null 1531s [00:52:11.955] muffled <- FALSE 1531s [00:52:11.955] if (inherits(cond, "message")) { 1531s [00:52:11.955] muffled <- grepl(pattern, "muffleMessage") 1531s [00:52:11.955] if (muffled) 1531s [00:52:11.955] invokeRestart("muffleMessage") 1531s [00:52:11.955] } 1531s [00:52:11.955] else if (inherits(cond, "warning")) { 1531s [00:52:11.955] muffled <- grepl(pattern, "muffleWarning") 1531s [00:52:11.955] if (muffled) 1531s [00:52:11.955] invokeRestart("muffleWarning") 1531s [00:52:11.955] } 1531s [00:52:11.955] else if (inherits(cond, "condition")) { 1531s [00:52:11.955] if (!is.null(pattern)) { 1531s [00:52:11.955] computeRestarts <- base::computeRestarts 1531s [00:52:11.955] grepl <- base::grepl 1531s [00:52:11.955] restarts <- computeRestarts(cond) 1531s [00:52:11.955] for (restart in restarts) { 1531s [00:52:11.955] name <- restart$name 1531s [00:52:11.955] if (is.null(name)) 1531s [00:52:11.955] next 1531s [00:52:11.955] if (!grepl(pattern, name)) 1531s [00:52:11.955] next 1531s [00:52:11.955] invokeRestart(restart) 1531s [00:52:11.955] muffled <- TRUE 1531s [00:52:11.955] break 1531s [00:52:11.955] } 1531s [00:52:11.955] } 1531s [00:52:11.955] } 1531s [00:52:11.955] invisible(muffled) 1531s [00:52:11.955] } 1531s [00:52:11.955] muffleCondition(cond, pattern = "^muffle") 1531s [00:52:11.955] } 1531s [00:52:11.955] } 1531s [00:52:11.955] else { 1531s [00:52:11.955] if (TRUE) { 1531s [00:52:11.955] muffleCondition <- function (cond, pattern = "^muffle") 1531s [00:52:11.955] { 1531s [00:52:11.955] inherits <- base::inherits 1531s [00:52:11.955] invokeRestart <- base::invokeRestart 1531s [00:52:11.955] is.null <- base::is.null 1531s [00:52:11.955] muffled <- FALSE 1531s [00:52:11.955] if (inherits(cond, "message")) { 1531s [00:52:11.955] muffled <- grepl(pattern, "muffleMessage") 1531s [00:52:11.955] if (muffled) 1531s [00:52:11.955] invokeRestart("muffleMessage") 1531s [00:52:11.955] } 1531s [00:52:11.955] else if (inherits(cond, "warning")) { 1531s [00:52:11.955] muffled <- grepl(pattern, "muffleWarning") 1531s [00:52:11.955] if (muffled) 1531s [00:52:11.955] invokeRestart("muffleWarning") 1531s [00:52:11.955] } 1531s [00:52:11.955] else if (inherits(cond, "condition")) { 1531s [00:52:11.955] if (!is.null(pattern)) { 1531s [00:52:11.955] computeRestarts <- base::computeRestarts 1531s [00:52:11.955] grepl <- base::grepl 1531s [00:52:11.955] restarts <- computeRestarts(cond) 1531s [00:52:11.955] for (restart in restarts) { 1531s [00:52:11.955] name <- restart$name 1531s [00:52:11.955] if (is.null(name)) 1531s [00:52:11.955] next 1531s [00:52:11.955] if (!grepl(pattern, name)) 1531s [00:52:11.955] next 1531s [00:52:11.955] invokeRestart(restart) 1531s [00:52:11.955] muffled <- TRUE 1531s [00:52:11.955] break 1531s [00:52:11.955] } 1531s [00:52:11.955] } 1531s [00:52:11.955] } 1531s [00:52:11.955] invisible(muffled) 1531s [00:52:11.955] } 1531s [00:52:11.955] muffleCondition(cond, pattern = "^muffle") 1532s [00:52:11.955] } 1532s [00:52:11.955] } 1532s [00:52:11.955] } 1532s [00:52:11.955] })) 1532s [00:52:11.955] }, error = function(ex) { 1532s [00:52:11.955] base::structure(base::list(value = NULL, visible = NULL, 1532s [00:52:11.955] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1532s [00:52:11.955] ...future.rng), started = ...future.startTime, 1532s [00:52:11.955] finished = Sys.time(), session_uuid = NA_character_, 1532s [00:52:11.955] version = "1.8"), class = "FutureResult") 1532s [00:52:11.955] }, finally = { 1532s [00:52:11.955] if (!identical(...future.workdir, getwd())) 1532s [00:52:11.955] setwd(...future.workdir) 1532s [00:52:11.955] { 1532s [00:52:11.955] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1532s [00:52:11.955] ...future.oldOptions$nwarnings <- NULL 1532s [00:52:11.955] } 1532s [00:52:11.955] base::options(...future.oldOptions) 1532s [00:52:11.955] if (.Platform$OS.type == "windows") { 1532s [00:52:11.955] old_names <- names(...future.oldEnvVars) 1532s [00:52:11.955] envs <- base::Sys.getenv() 1532s [00:52:11.955] names <- names(envs) 1532s [00:52:11.955] common <- intersect(names, old_names) 1532s [00:52:11.955] added <- setdiff(names, old_names) 1532s [00:52:11.955] removed <- setdiff(old_names, names) 1532s [00:52:11.955] changed <- common[...future.oldEnvVars[common] != 1532s [00:52:11.955] envs[common]] 1532s [00:52:11.955] NAMES <- toupper(changed) 1532s [00:52:11.955] args <- list() 1532s [00:52:11.955] for (kk in seq_along(NAMES)) { 1532s [00:52:11.955] name <- changed[[kk]] 1532s [00:52:11.955] NAME <- NAMES[[kk]] 1532s [00:52:11.955] if (name != NAME && is.element(NAME, old_names)) 1532s [00:52:11.955] next 1532s [00:52:11.955] args[[name]] <- ...future.oldEnvVars[[name]] 1532s [00:52:11.955] } 1532s [00:52:11.955] NAMES <- toupper(added) 1532s [00:52:11.955] for (kk in seq_along(NAMES)) { 1532s [00:52:11.955] name <- added[[kk]] 1532s [00:52:11.955] NAME <- NAMES[[kk]] 1532s [00:52:11.955] if (name != NAME && is.element(NAME, old_names)) 1532s [00:52:11.955] next 1532s [00:52:11.955] args[[name]] <- "" 1532s [00:52:11.955] } 1532s [00:52:11.955] NAMES <- toupper(removed) 1532s [00:52:11.955] for (kk in seq_along(NAMES)) { 1532s [00:52:11.955] name <- removed[[kk]] 1532s [00:52:11.955] NAME <- NAMES[[kk]] 1532s [00:52:11.955] if (name != NAME && is.element(NAME, old_names)) 1532s [00:52:11.955] next 1532s [00:52:11.955] args[[name]] <- ...future.oldEnvVars[[name]] 1532s [00:52:11.955] } 1532s [00:52:11.955] if (length(args) > 0) 1532s [00:52:11.955] base::do.call(base::Sys.setenv, args = args) 1532s [00:52:11.955] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1532s [00:52:11.955] } 1532s [00:52:11.955] else { 1532s [00:52:11.955] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1532s [00:52:11.955] } 1532s [00:52:11.955] { 1532s [00:52:11.955] if (base::length(...future.futureOptionsAdded) > 1532s [00:52:11.955] 0L) { 1532s [00:52:11.955] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1532s [00:52:11.955] base::names(opts) <- ...future.futureOptionsAdded 1532s [00:52:11.955] base::options(opts) 1532s [00:52:11.955] } 1532s [00:52:11.955] { 1532s [00:52:11.955] { 1532s [00:52:11.955] NULL 1532s [00:52:11.955] RNGkind("Mersenne-Twister") 1532s [00:52:11.955] base::rm(list = ".Random.seed", envir = base::globalenv(), 1532s [00:52:11.955] inherits = FALSE) 1532s [00:52:11.955] } 1532s [00:52:11.955] options(future.plan = NULL) 1532s [00:52:11.955] if (is.na(NA_character_)) 1532s [00:52:11.955] Sys.unsetenv("R_FUTURE_PLAN") 1532s [00:52:11.955] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1532s [00:52:11.955] future::plan(list(function (..., envir = parent.frame()) 1532s [00:52:11.955] { 1532s [00:52:11.955] future <- SequentialFuture(..., envir = envir) 1532s [00:52:11.955] if (!future$lazy) 1532s [00:52:11.955] future <- run(future) 1532s [00:52:11.955] invisible(future) 1532s [00:52:11.955] }), .cleanup = FALSE, .init = FALSE) 1532s [00:52:11.955] } 1532s [00:52:11.955] } 1532s [00:52:11.955] } 1532s [00:52:11.955] }) 1532s [00:52:11.955] if (TRUE) { 1532s [00:52:11.955] base::sink(type = "output", split = FALSE) 1532s [00:52:11.955] if (TRUE) { 1532s [00:52:11.955] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1532s [00:52:11.955] } 1532s [00:52:11.955] else { 1532s [00:52:11.955] ...future.result["stdout"] <- base::list(NULL) 1532s [00:52:11.955] } 1532s [00:52:11.955] base::close(...future.stdout) 1532s [00:52:11.955] ...future.stdout <- NULL 1532s [00:52:11.955] } 1532s [00:52:11.955] ...future.result$conditions <- ...future.conditions 1532s [00:52:11.955] ...future.result$finished <- base::Sys.time() 1532s [00:52:11.955] ...future.result 1532s [00:52:11.955] } 1532s [00:52:11.962] assign_globals() ... 1532s [00:52:11.962] List of 5 1532s [00:52:11.962] $ ...future.FUN :function (object, ...) 1532s [00:52:11.962] $ future.call.arguments : list() 1532s [00:52:11.962] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1532s [00:52:11.962] $ ...future.elements_ii :List of 3 1532s [00:52:11.962] ..$ :'data.frame': 18 obs. of 3 variables: 1532s [00:52:11.962] .. ..$ breaks : num [1:18] 26 30 54 25 70 52 51 26 67 27 ... 1532s [00:52:11.962] .. ..$ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 2 ... 1532s [00:52:11.962] .. ..$ tension: Factor w/ 3 levels "L","M","H": 1 1 1 1 1 1 1 1 1 1 ... 1532s [00:52:11.962] ..$ :'data.frame': 18 obs. of 3 variables: 1532s [00:52:11.962] .. ..$ breaks : num [1:18] 18 21 29 17 12 18 35 30 36 42 ... 1532s [00:52:11.962] .. ..$ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 2 ... 1532s [00:52:11.962] .. ..$ tension: Factor w/ 3 levels "L","M","H": 2 2 2 2 2 2 2 2 2 2 ... 1532s [00:52:11.962] ..$ :'data.frame': 18 obs. of 3 variables: 1532s [00:52:11.962] .. ..$ breaks : num [1:18] 36 21 24 18 10 43 28 15 26 20 ... 1532s [00:52:11.962] .. ..$ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 2 ... 1532s [00:52:11.962] .. ..$ tension: Factor w/ 3 levels "L","M","H": 3 3 3 3 3 3 3 3 3 3 ... 1532s [00:52:11.962] $ ...future.seeds_ii : NULL 1532s [00:52:11.962] $ ...future.globals.maxSize: NULL 1532s [00:52:11.962] - attr(*, "where")=List of 5 1532s [00:52:11.962] ..$ ...future.FUN : 1532s [00:52:11.962] ..$ future.call.arguments : 1532s [00:52:11.962] ..$ ...future.elements_ii : 1532s [00:52:11.962] ..$ ...future.seeds_ii : 1532s [00:52:11.962] ..$ ...future.globals.maxSize: 1532s [00:52:11.962] - attr(*, "resolved")= logi FALSE 1532s [00:52:11.962] - attr(*, "total_size")= num 1240 1532s [00:52:11.962] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1532s [00:52:11.962] - attr(*, "already-done")= logi TRUE 1532s [00:52:11.976] - copied ‘...future.FUN’ to environment 1532s [00:52:11.976] - copied ‘future.call.arguments’ to environment 1532s [00:52:11.976] - copied ‘...future.elements_ii’ to environment 1532s [00:52:11.977] - copied ‘...future.seeds_ii’ to environment 1532s [00:52:11.977] - copied ‘...future.globals.maxSize’ to environment 1532s [00:52:11.977] assign_globals() ... done 1532s [00:52:11.977] plan(): Setting new future strategy stack: 1532s [00:52:11.977] List of future strategies: 1532s [00:52:11.977] 1. sequential: 1532s [00:52:11.977] - args: function (..., envir = parent.frame()) 1532s [00:52:11.977] - tweaked: FALSE 1532s [00:52:11.977] - call: NULL 1532s [00:52:11.978] plan(): nbrOfWorkers() = 1 1532s [00:52:11.983] plan(): Setting new future strategy stack: 1532s [00:52:11.983] List of future strategies: 1532s [00:52:11.983] 1. sequential: 1532s [00:52:11.983] - args: function (..., envir = parent.frame()) 1532s [00:52:11.983] - tweaked: FALSE 1532s [00:52:11.983] - call: plan(strategy) 1532s [00:52:11.984] plan(): nbrOfWorkers() = 1 1532s [00:52:11.984] SequentialFuture started (and completed) 1532s [00:52:11.984] - Launch lazy future ... done 1532s [00:52:11.985] run() for ‘SequentialFuture’ ... done 1532s [00:52:11.985] Created future: 1532s [00:52:11.985] SequentialFuture: 1532s [00:52:11.985] Label: ‘future_by-1’ 1532s [00:52:11.985] Expression: 1532s [00:52:11.985] { 1532s [00:52:11.985] do.call(function(...) { 1532s [00:52:11.985] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1532s [00:52:11.985] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1532s [00:52:11.985] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1532s [00:52:11.985] on.exit(options(oopts), add = TRUE) 1532s [00:52:11.985] } 1532s [00:52:11.985] { 1532s [00:52:11.985] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1532s [00:52:11.985] ...future.X_jj <- ...future.elements_ii[[jj]] 1532s [00:52:11.985] ...future.FUN(...future.X_jj, ...) 1532s [00:52:11.985] }) 1532s [00:52:11.985] } 1532s [00:52:11.985] }, args = future.call.arguments) 1532s [00:52:11.985] } 1532s [00:52:11.985] Lazy evaluation: FALSE 1532s [00:52:11.985] Asynchronous evaluation: FALSE 1532s [00:52:11.985] Local evaluation: TRUE 1532s [00:52:11.985] Environment: 0x2aa04908680 1532s [00:52:11.985] Capture standard output: TRUE 1532s [00:52:11.985] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1532s [00:52:11.985] Globals: 5 objects totaling 6.02 KiB (function ‘...future.FUN’ of 1.21 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 4.80 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1532s [00:52:11.985] Packages: 1532s [00:52:11.985] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1532s [00:52:11.985] Resolved: TRUE 1532s [00:52:11.985] Value: 5.37 KiB of class ‘list’ 1532s [00:52:11.985] Early signaling: FALSE 1532s [00:52:11.985] Owner process: 64a671dd-8756-a081-baa7-973da233f197 1532s [00:52:11.985] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1532s [00:52:11.989] Chunk #1 of 1 ... DONE 1532s [00:52:11.989] Launching 1 futures (chunks) ... DONE 1532s [00:52:11.989] Resolving 1 futures (chunks) ... 1532s [00:52:11.990] resolve() on list ... 1532s [00:52:11.990] recursive: 0 1532s [00:52:11.990] length: 1 1532s [00:52:11.990] 1532s [00:52:11.991] resolved() for ‘SequentialFuture’ ... 1532s [00:52:11.991] - state: ‘finished’ 1532s [00:52:11.991] - run: TRUE 1532s [00:52:11.991] - result: ‘FutureResult’ 1532s [00:52:11.991] resolved() for ‘SequentialFuture’ ... done 1532s [00:52:11.991] Future #1 1532s [00:52:11.992] signalConditionsASAP(SequentialFuture, pos=1) ... 1532s [00:52:11.992] - nx: 1 1532s [00:52:11.992] - relay: TRUE 1532s [00:52:11.992] - stdout: TRUE 1532s [00:52:11.992] - signal: TRUE 1532s [00:52:11.992] - resignal: FALSE 1532s [00:52:11.992] - force: TRUE 1532s [00:52:11.993] - relayed: [n=1] FALSE 1532s [00:52:11.993] - queued futures: [n=1] FALSE 1532s [00:52:11.993] - until=1 1532s [00:52:11.993] - relaying element #1 1532s [00:52:11.993] - relayed: [n=1] TRUE 1532s [00:52:11.993] - queued futures: [n=1] TRUE 1532s [00:52:11.994] signalConditionsASAP(SequentialFuture, pos=1) ... done 1532s [00:52:11.994] length: 0 (resolved future 1) 1532s [00:52:11.994] Relaying remaining futures 1532s [00:52:11.994] signalConditionsASAP(NULL, pos=0) ... 1532s [00:52:11.994] - nx: 1 1532s [00:52:11.994] - relay: TRUE 1532s [00:52:11.994] - stdout: TRUE 1532s [00:52:11.994] - signal: TRUE 1532s [00:52:11.995] - resignal: FALSE 1532s [00:52:11.995] - force: TRUE 1532s [00:52:11.995] - relayed: [n=1] TRUE 1532s [00:52:11.995] - queued futures: [n=1] TRUE 1532s - flush all 1532s [00:52:11.996] - relayed: [n=1] TRUE 1532s [00:52:11.996] - queued futures: [n=1] TRUE 1532s [00:52:11.996] signalConditionsASAP(NULL, pos=0) ... done 1532s [00:52:11.997] resolve() on list ... DONE 1532s [00:52:11.997] - Number of value chunks collected: 1 1532s [00:52:11.997] Resolving 1 futures (chunks) ... DONE 1532s [00:52:11.997] Reducing values from 1 chunks ... 1532s [00:52:11.997] - Number of values collected after concatenation: 3 1532s [00:52:11.997] - Number of values expected: 3 1532s [00:52:11.998] Reducing values from 1 chunks ... DONE 1532s [00:52:11.998] future_lapply() ... DONE 1532s [00:52:11.998] future_by_internal() ... DONE 1532s [00:52:12.001] future_by_internal() ... 1532s Warning: Specifying the function 'FUN' for future_by() as a character string is deprecated in future.apply (>= 1.10.0) [2022-11-04], because base::by() does not support it. Instead, specify it as a function, e.g. FUN = sqrt and FUN = `[[`. It is deprecated. 1532s [00:52:12.002] future_lapply() ... 1532s [00:52:12.003] Number of chunks: 1 1532s [00:52:12.003] getGlobalsAndPackagesXApply() ... 1532s [00:52:12.004] - future.globals: TRUE 1532s [00:52:12.004] getGlobalsAndPackages() ... 1532s [00:52:12.004] Searching for globals... 1532s [00:52:12.006] - globals found: [2] ‘FUN’, ‘UseMethod’ 1532s [00:52:12.006] Searching for globals ... DONE 1532s [00:52:12.006] Resolving globals: FALSE 1532s [00:52:12.006] The total size of the 1 globals is 1.21 KiB (1240 bytes) 1532s [00:52:12.007] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.21 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.21 KiB of class ‘function’) 1532s [00:52:12.008] - globals: [1] ‘FUN’ 1532s [00:52:12.008] 1532s [00:52:12.008] getGlobalsAndPackages() ... DONE 1532s [00:52:12.008] - globals found/used: [n=1] ‘FUN’ 1532s [00:52:12.008] - needed namespaces: [n=0] 1532s [00:52:12.008] Finding globals ... DONE 1532s [00:52:12.008] - use_args: TRUE 1532s [00:52:12.009] - Getting '...' globals ... 1532s [00:52:12.009] resolve() on list ... 1532s [00:52:12.009] recursive: 0 1532s [00:52:12.009] length: 1 1532s [00:52:12.010] elements: ‘...’ 1532s [00:52:12.010] length: 0 (resolved future 1) 1532s [00:52:12.010] resolve() on list ... DONE 1532s [00:52:12.010] - '...' content: [n=0] 1532s [00:52:12.010] List of 1 1532s [00:52:12.010] $ ...: list() 1532s [00:52:12.010] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1532s [00:52:12.010] - attr(*, "where")=List of 1 1532s [00:52:12.010] ..$ ...: 1532s [00:52:12.010] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1532s [00:52:12.010] - attr(*, "resolved")= logi TRUE 1532s [00:52:12.010] - attr(*, "total_size")= num NA 1532s [00:52:12.014] - Getting '...' globals ... DONE 1532s [00:52:12.015] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1532s [00:52:12.015] List of 2 1532s [00:52:12.015] $ ...future.FUN:function (object, ...) 1532s [00:52:12.015] $ ... : list() 1532s [00:52:12.015] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1532s [00:52:12.015] - attr(*, "where")=List of 2 1532s [00:52:12.015] ..$ ...future.FUN: 1532s [00:52:12.015] ..$ ... : 1532s [00:52:12.015] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1532s [00:52:12.015] - attr(*, "resolved")= logi FALSE 1532s [00:52:12.015] - attr(*, "total_size")= num 1240 1532s [00:52:12.020] Packages to be attached in all futures: [n=0] 1532s [00:52:12.020] getGlobalsAndPackagesXApply() ... DONE 1532s [00:52:12.020] Number of futures (= number of chunks): 1 1532s [00:52:12.021] Launching 1 futures (chunks) ... 1532s [00:52:12.021] Chunk #1 of 1 ... 1532s [00:52:12.021] - Finding globals in 'X' for chunk #1 ... 1532s [00:52:12.021] getGlobalsAndPackages() ... 1532s [00:52:12.022] Searching for globals... 1532s [00:52:12.022] 1532s [00:52:12.022] Searching for globals ... DONE 1532s [00:52:12.023] - globals: [0] 1532s [00:52:12.023] getGlobalsAndPackages() ... DONE 1532s [00:52:12.023] + additional globals found: [n=0] 1532s [00:52:12.023] + additional namespaces needed: [n=0] 1532s [00:52:12.023] - Finding globals in 'X' for chunk #1 ... DONE 1532s [00:52:12.024] - seeds: 1532s [00:52:12.024] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1532s [00:52:12.024] getGlobalsAndPackages() ... 1532s [00:52:12.024] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1532s [00:52:12.024] Resolving globals: FALSE 1532s [00:52:12.025] Tweak future expression to call with '...' arguments ... 1532s [00:52:12.025] { 1532s [00:52:12.025] do.call(function(...) { 1532s [00:52:12.025] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1532s [00:52:12.025] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1532s [00:52:12.025] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1532s [00:52:12.025] on.exit(options(oopts), add = TRUE) 1532s [00:52:12.025] } 1532s [00:52:12.025] { 1532s [00:52:12.025] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1532s [00:52:12.025] ...future.X_jj <- ...future.elements_ii[[jj]] 1532s [00:52:12.025] ...future.FUN(...future.X_jj, ...) 1532s [00:52:12.025] }) 1532s [00:52:12.025] } 1532s [00:52:12.025] }, args = future.call.arguments) 1532s [00:52:12.025] } 1532s [00:52:12.025] Tweak future expression to call with '...' arguments ... DONE 1532s [00:52:12.026] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1532s [00:52:12.026] 1532s [00:52:12.026] getGlobalsAndPackages() ... DONE 1532s [00:52:12.027] run() for ‘Future’ ... 1532s [00:52:12.027] - state: ‘created’ 1532s [00:52:12.027] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1532s [00:52:12.027] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1532s [00:52:12.028] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1532s [00:52:12.028] - Field: ‘label’ 1532s [00:52:12.028] - Field: ‘local’ 1532s [00:52:12.028] - Field: ‘owner’ 1532s [00:52:12.028] - Field: ‘envir’ 1532s [00:52:12.028] - Field: ‘packages’ 1532s [00:52:12.028] - Field: ‘gc’ 1532s [00:52:12.029] - Field: ‘conditions’ 1532s [00:52:12.029] - Field: ‘expr’ 1532s [00:52:12.029] - Field: ‘uuid’ 1532s [00:52:12.029] - Field: ‘seed’ 1532s [00:52:12.029] - Field: ‘version’ 1532s [00:52:12.029] - Field: ‘result’ 1532s [00:52:12.029] - Field: ‘asynchronous’ 1532s [00:52:12.030] - Field: ‘calls’ 1532s [00:52:12.030] - Field: ‘globals’ 1532s [00:52:12.030] - Field: ‘stdout’ 1532s [00:52:12.030] - Field: ‘earlySignal’ 1532s [00:52:12.030] - Field: ‘lazy’ 1532s [00:52:12.031] - Field: ‘state’ 1532s [00:52:12.031] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1532s [00:52:12.031] - Launch lazy future ... 1532s [00:52:12.031] Packages needed by the future expression (n = 0): 1532s [00:52:12.031] Packages needed by future strategies (n = 0): 1532s [00:52:12.032] { 1532s [00:52:12.032] { 1532s [00:52:12.032] { 1532s [00:52:12.032] ...future.startTime <- base::Sys.time() 1532s [00:52:12.032] { 1532s [00:52:12.032] { 1532s [00:52:12.032] { 1532s [00:52:12.032] base::local({ 1532s [00:52:12.032] has_future <- base::requireNamespace("future", 1532s [00:52:12.032] quietly = TRUE) 1532s [00:52:12.032] if (has_future) { 1532s [00:52:12.032] ns <- base::getNamespace("future") 1532s [00:52:12.032] version <- ns[[".package"]][["version"]] 1532s [00:52:12.032] if (is.null(version)) 1532s [00:52:12.032] version <- utils::packageVersion("future") 1532s [00:52:12.032] } 1532s [00:52:12.032] else { 1532s [00:52:12.032] version <- NULL 1532s [00:52:12.032] } 1532s [00:52:12.032] if (!has_future || version < "1.8.0") { 1532s [00:52:12.032] info <- base::c(r_version = base::gsub("R version ", 1532s [00:52:12.032] "", base::R.version$version.string), 1532s [00:52:12.032] platform = base::sprintf("%s (%s-bit)", 1532s [00:52:12.032] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1532s [00:52:12.032] os = base::paste(base::Sys.info()[base::c("sysname", 1532s [00:52:12.032] "release", "version")], collapse = " "), 1532s [00:52:12.032] hostname = base::Sys.info()[["nodename"]]) 1532s [00:52:12.032] info <- base::sprintf("%s: %s", base::names(info), 1532s [00:52:12.032] info) 1532s [00:52:12.032] info <- base::paste(info, collapse = "; ") 1532s [00:52:12.032] if (!has_future) { 1532s [00:52:12.032] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1532s [00:52:12.032] info) 1532s [00:52:12.032] } 1532s [00:52:12.032] else { 1532s [00:52:12.032] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1532s [00:52:12.032] info, version) 1532s [00:52:12.032] } 1532s [00:52:12.032] base::stop(msg) 1532s [00:52:12.032] } 1532s [00:52:12.032] }) 1532s [00:52:12.032] } 1532s [00:52:12.032] options(future.plan = NULL) 1532s [00:52:12.032] Sys.unsetenv("R_FUTURE_PLAN") 1532s [00:52:12.032] future::plan("default", .cleanup = FALSE, .init = FALSE) 1532s [00:52:12.032] } 1532s [00:52:12.032] ...future.workdir <- getwd() 1532s [00:52:12.032] } 1532s [00:52:12.032] ...future.oldOptions <- base::as.list(base::.Options) 1532s [00:52:12.032] ...future.oldEnvVars <- base::Sys.getenv() 1532s [00:52:12.032] } 1532s [00:52:12.032] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1532s [00:52:12.032] future.globals.maxSize = NULL, future.globals.method = NULL, 1532s [00:52:12.032] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1532s [00:52:12.032] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1532s [00:52:12.032] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1532s [00:52:12.032] future.stdout.windows.reencode = NULL, width = 80L) 1532s [00:52:12.032] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1532s [00:52:12.032] base::names(...future.oldOptions)) 1532s [00:52:12.032] } 1532s [00:52:12.032] if (FALSE) { 1532s [00:52:12.032] } 1532s [00:52:12.032] else { 1532s [00:52:12.032] if (TRUE) { 1532s [00:52:12.032] ...future.stdout <- base::rawConnection(base::raw(0L), 1532s [00:52:12.032] open = "w") 1532s [00:52:12.032] } 1532s [00:52:12.032] else { 1532s [00:52:12.032] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1532s [00:52:12.032] windows = "NUL", "/dev/null"), open = "w") 1532s [00:52:12.032] } 1532s [00:52:12.032] base::sink(...future.stdout, type = "output", split = FALSE) 1532s [00:52:12.032] base::on.exit(if (!base::is.null(...future.stdout)) { 1532s [00:52:12.032] base::sink(type = "output", split = FALSE) 1532s [00:52:12.032] base::close(...future.stdout) 1532s [00:52:12.032] }, add = TRUE) 1532s [00:52:12.032] } 1532s [00:52:12.032] ...future.frame <- base::sys.nframe() 1532s [00:52:12.032] ...future.conditions <- base::list() 1532s [00:52:12.032] ...future.rng <- base::globalenv()$.Random.seed 1532s [00:52:12.032] if (FALSE) { 1532s [00:52:12.032] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1532s [00:52:12.032] "...future.value", "...future.globalenv.names", ".Random.seed") 1532s [00:52:12.032] } 1532s [00:52:12.032] ...future.result <- base::tryCatch({ 1532s [00:52:12.032] base::withCallingHandlers({ 1532s [00:52:12.032] ...future.value <- base::withVisible(base::local({ 1532s [00:52:12.032] do.call(function(...) { 1532s [00:52:12.032] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1532s [00:52:12.032] if (!identical(...future.globals.maxSize.org, 1532s [00:52:12.032] ...future.globals.maxSize)) { 1532s [00:52:12.032] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1532s [00:52:12.032] on.exit(options(oopts), add = TRUE) 1532s [00:52:12.032] } 1532s [00:52:12.032] { 1532s [00:52:12.032] lapply(seq_along(...future.elements_ii), 1532s [00:52:12.032] FUN = function(jj) { 1532s [00:52:12.032] ...future.X_jj <- ...future.elements_ii[[jj]] 1532s [00:52:12.032] ...future.FUN(...future.X_jj, ...) 1532s [00:52:12.032] }) 1532s [00:52:12.032] } 1532s [00:52:12.032] }, args = future.call.arguments) 1532s [00:52:12.032] })) 1532s [00:52:12.032] future::FutureResult(value = ...future.value$value, 1532s [00:52:12.032] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1532s [00:52:12.032] ...future.rng), globalenv = if (FALSE) 1532s [00:52:12.032] list(added = base::setdiff(base::names(base::.GlobalEnv), 1532s [00:52:12.032] ...future.globalenv.names)) 1532s [00:52:12.032] else NULL, started = ...future.startTime, version = "1.8") 1532s [00:52:12.032] }, condition = base::local({ 1532s [00:52:12.032] c <- base::c 1532s [00:52:12.032] inherits <- base::inherits 1532s [00:52:12.032] invokeRestart <- base::invokeRestart 1532s [00:52:12.032] length <- base::length 1532s [00:52:12.032] list <- base::list 1532s [00:52:12.032] seq.int <- base::seq.int 1532s [00:52:12.032] signalCondition <- base::signalCondition 1532s [00:52:12.032] sys.calls <- base::sys.calls 1532s [00:52:12.032] `[[` <- base::`[[` 1532s [00:52:12.032] `+` <- base::`+` 1532s [00:52:12.032] `<<-` <- base::`<<-` 1532s [00:52:12.032] sysCalls <- function(calls = sys.calls(), from = 1L) { 1532s [00:52:12.032] calls[seq.int(from = from + 12L, to = length(calls) - 1532s [00:52:12.032] 3L)] 1532s [00:52:12.032] } 1532s [00:52:12.032] function(cond) { 1532s [00:52:12.032] is_error <- inherits(cond, "error") 1532s [00:52:12.032] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1532s [00:52:12.032] NULL) 1532s [00:52:12.032] if (is_error) { 1532s [00:52:12.032] sessionInformation <- function() { 1532s [00:52:12.032] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1532s [00:52:12.032] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1532s [00:52:12.032] search = base::search(), system = base::Sys.info()) 1532s [00:52:12.032] } 1532s [00:52:12.032] ...future.conditions[[length(...future.conditions) + 1532s [00:52:12.032] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1532s [00:52:12.032] cond$call), session = sessionInformation(), 1532s [00:52:12.032] timestamp = base::Sys.time(), signaled = 0L) 1532s [00:52:12.032] signalCondition(cond) 1532s [00:52:12.032] } 1532s [00:52:12.032] else if (!ignore && TRUE && inherits(cond, c("condition", 1532s [00:52:12.032] "immediateCondition"))) { 1532s [00:52:12.032] signal <- TRUE && inherits(cond, "immediateCondition") 1532s [00:52:12.032] ...future.conditions[[length(...future.conditions) + 1532s [00:52:12.032] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1532s [00:52:12.032] if (TRUE && !signal) { 1532s [00:52:12.032] muffleCondition <- function (cond, pattern = "^muffle") 1532s [00:52:12.032] { 1532s [00:52:12.032] inherits <- base::inherits 1532s [00:52:12.032] invokeRestart <- base::invokeRestart 1532s [00:52:12.032] is.null <- base::is.null 1532s [00:52:12.032] muffled <- FALSE 1532s [00:52:12.032] if (inherits(cond, "message")) { 1532s [00:52:12.032] muffled <- grepl(pattern, "muffleMessage") 1532s [00:52:12.032] if (muffled) 1532s [00:52:12.032] invokeRestart("muffleMessage") 1532s [00:52:12.032] } 1532s [00:52:12.032] else if (inherits(cond, "warning")) { 1532s [00:52:12.032] muffled <- grepl(pattern, "muffleWarning") 1532s [00:52:12.032] if (muffled) 1532s [00:52:12.032] invokeRestart("muffleWarning") 1532s [00:52:12.032] } 1532s [00:52:12.032] else if (inherits(cond, "condition")) { 1532s [00:52:12.032] if (!is.null(pattern)) { 1532s [00:52:12.032] computeRestarts <- base::computeRestarts 1532s [00:52:12.032] grepl <- base::grepl 1532s [00:52:12.032] restarts <- computeRestarts(cond) 1532s [00:52:12.032] for (restart in restarts) { 1532s [00:52:12.032] name <- restart$name 1532s [00:52:12.032] if (is.null(name)) 1532s [00:52:12.032] next 1532s [00:52:12.032] if (!grepl(pattern, name)) 1532s [00:52:12.032] next 1532s [00:52:12.032] invokeRestart(restart) 1532s [00:52:12.032] muffled <- TRUE 1532s [00:52:12.032] break 1532s [00:52:12.032] } 1532s [00:52:12.032] } 1532s [00:52:12.032] } 1532s [00:52:12.032] invisible(muffled) 1532s [00:52:12.032] } 1532s [00:52:12.032] muffleCondition(cond, pattern = "^muffle") 1532s [00:52:12.032] } 1532s [00:52:12.032] } 1532s [00:52:12.032] else { 1532s [00:52:12.032] if (TRUE) { 1532s [00:52:12.032] muffleCondition <- function (cond, pattern = "^muffle") 1532s [00:52:12.032] { 1532s [00:52:12.032] inherits <- base::inherits 1532s [00:52:12.032] invokeRestart <- base::invokeRestart 1532s [00:52:12.032] is.null <- base::is.null 1532s [00:52:12.032] muffled <- FALSE 1532s [00:52:12.032] if (inherits(cond, "message")) { 1532s [00:52:12.032] muffled <- grepl(pattern, "muffleMessage") 1532s [00:52:12.032] if (muffled) 1532s [00:52:12.032] invokeRestart("muffleMessage") 1532s [00:52:12.032] } 1532s [00:52:12.032] else if (inherits(cond, "warning")) { 1532s [00:52:12.032] muffled <- grepl(pattern, "muffleWarning") 1532s [00:52:12.032] if (muffled) 1532s [00:52:12.032] invokeRestart("muffleWarning") 1532s [00:52:12.032] } 1532s [00:52:12.032] else if (inherits(cond, "condition")) { 1532s [00:52:12.032] if (!is.null(pattern)) { 1532s [00:52:12.032] computeRestarts <- base::computeRestarts 1532s [00:52:12.032] grepl <- base::grepl 1532s [00:52:12.032] restarts <- computeRestarts(cond) 1532s [00:52:12.032] for (restart in restarts) { 1532s [00:52:12.032] name <- restart$name 1532s [00:52:12.032] if (is.null(name)) 1532s [00:52:12.032] next 1532s [00:52:12.032] if (!grepl(pattern, name)) 1532s [00:52:12.032] next 1532s [00:52:12.032] invokeRestart(restart) 1532s [00:52:12.032] muffled <- TRUE 1532s [00:52:12.032] break 1532s [00:52:12.032] } 1532s [00:52:12.032] } 1532s [00:52:12.032] } 1532s [00:52:12.032] invisible(muffled) 1532s [00:52:12.032] } 1532s [00:52:12.032] muffleCondition(cond, pattern = "^muffle") 1532s [00:52:12.032] } 1532s [00:52:12.032] } 1532s [00:52:12.032] } 1532s [00:52:12.032] })) 1532s [00:52:12.032] }, error = function(ex) { 1532s [00:52:12.032] base::structure(base::list(value = NULL, visible = NULL, 1532s [00:52:12.032] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1532s [00:52:12.032] ...future.rng), started = ...future.startTime, 1532s [00:52:12.032] finished = Sys.time(), session_uuid = NA_character_, 1532s [00:52:12.032] version = "1.8"), class = "FutureResult") 1532s [00:52:12.032] }, finally = { 1532s [00:52:12.032] if (!identical(...future.workdir, getwd())) 1532s [00:52:12.032] setwd(...future.workdir) 1532s [00:52:12.032] { 1532s [00:52:12.032] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1532s [00:52:12.032] ...future.oldOptions$nwarnings <- NULL 1532s [00:52:12.032] } 1532s [00:52:12.032] base::options(...future.oldOptions) 1532s [00:52:12.032] if (.Platform$OS.type == "windows") { 1532s [00:52:12.032] old_names <- names(...future.oldEnvVars) 1532s [00:52:12.032] envs <- base::Sys.getenv() 1532s [00:52:12.032] names <- names(envs) 1532s [00:52:12.032] common <- intersect(names, old_names) 1532s [00:52:12.032] added <- setdiff(names, old_names) 1532s [00:52:12.032] removed <- setdiff(old_names, names) 1532s [00:52:12.032] changed <- common[...future.oldEnvVars[common] != 1532s [00:52:12.032] envs[common]] 1532s [00:52:12.032] NAMES <- toupper(changed) 1532s [00:52:12.032] args <- list() 1532s [00:52:12.032] for (kk in seq_along(NAMES)) { 1532s [00:52:12.032] name <- changed[[kk]] 1532s [00:52:12.032] NAME <- NAMES[[kk]] 1532s [00:52:12.032] if (name != NAME && is.element(NAME, old_names)) 1532s [00:52:12.032] next 1532s [00:52:12.032] args[[name]] <- ...future.oldEnvVars[[name]] 1532s [00:52:12.032] } 1532s [00:52:12.032] NAMES <- toupper(added) 1532s [00:52:12.032] for (kk in seq_along(NAMES)) { 1532s [00:52:12.032] name <- added[[kk]] 1532s [00:52:12.032] NAME <- NAMES[[kk]] 1532s [00:52:12.032] if (name != NAME && is.element(NAME, old_names)) 1532s [00:52:12.032] next 1532s [00:52:12.032] args[[name]] <- "" 1532s [00:52:12.032] } 1532s [00:52:12.032] NAMES <- toupper(removed) 1532s [00:52:12.032] for (kk in seq_along(NAMES)) { 1532s [00:52:12.032] name <- removed[[kk]] 1532s [00:52:12.032] NAME <- NAMES[[kk]] 1532s [00:52:12.032] if (name != NAME && is.element(NAME, old_names)) 1532s [00:52:12.032] next 1532s [00:52:12.032] args[[name]] <- ...future.oldEnvVars[[name]] 1532s [00:52:12.032] } 1532s [00:52:12.032] if (length(args) > 0) 1532s [00:52:12.032] base::do.call(base::Sys.setenv, args = args) 1532s [00:52:12.032] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1532s [00:52:12.032] } 1532s [00:52:12.032] else { 1532s [00:52:12.032] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1532s [00:52:12.032] } 1532s [00:52:12.032] { 1532s [00:52:12.032] if (base::length(...future.futureOptionsAdded) > 1532s [00:52:12.032] 0L) { 1532s [00:52:12.032] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1532s [00:52:12.032] base::names(opts) <- ...future.futureOptionsAdded 1532s [00:52:12.032] base::options(opts) 1532s [00:52:12.032] } 1532s [00:52:12.032] { 1532s [00:52:12.032] { 1532s [00:52:12.032] NULL 1532s [00:52:12.032] RNGkind("Mersenne-Twister") 1532s [00:52:12.032] base::rm(list = ".Random.seed", envir = base::globalenv(), 1532s [00:52:12.032] inherits = FALSE) 1532s [00:52:12.032] } 1532s [00:52:12.032] options(future.plan = NULL) 1532s [00:52:12.032] if (is.na(NA_character_)) 1532s [00:52:12.032] Sys.unsetenv("R_FUTURE_PLAN") 1532s [00:52:12.032] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1532s [00:52:12.032] future::plan(list(function (..., envir = parent.frame()) 1532s [00:52:12.032] { 1532s [00:52:12.032] future <- SequentialFuture(..., envir = envir) 1532s [00:52:12.032] if (!future$lazy) 1532s [00:52:12.032] future <- run(future) 1532s [00:52:12.032] invisible(future) 1532s [00:52:12.032] }), .cleanup = FALSE, .init = FALSE) 1532s [00:52:12.032] } 1532s [00:52:12.032] } 1532s [00:52:12.032] } 1532s [00:52:12.032] }) 1532s [00:52:12.032] if (TRUE) { 1532s [00:52:12.032] base::sink(type = "output", split = FALSE) 1532s [00:52:12.032] if (TRUE) { 1532s [00:52:12.032] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1532s [00:52:12.032] } 1532s [00:52:12.032] else { 1532s [00:52:12.032] ...future.result["stdout"] <- base::list(NULL) 1532s [00:52:12.032] } 1532s [00:52:12.032] base::close(...future.stdout) 1532s [00:52:12.032] ...future.stdout <- NULL 1532s [00:52:12.032] } 1532s [00:52:12.032] ...future.result$conditions <- ...future.conditions 1532s [00:52:12.032] ...future.result$finished <- base::Sys.time() 1532s [00:52:12.032] ...future.result 1532s [00:52:12.032] } 1532s [00:52:12.037] assign_globals() ... 1532s [00:52:12.037] List of 5 1532s [00:52:12.037] $ ...future.FUN :function (object, ...) 1532s [00:52:12.037] $ future.call.arguments : list() 1532s [00:52:12.037] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1532s [00:52:12.037] $ ...future.elements_ii :List of 3 1532s [00:52:12.037] ..$ :'data.frame': 18 obs. of 3 variables: 1532s [00:52:12.037] .. ..$ breaks : num [1:18] 26 30 54 25 70 52 51 26 67 27 ... 1532s [00:52:12.037] .. ..$ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 2 ... 1532s [00:52:12.037] .. ..$ tension: Factor w/ 3 levels "L","M","H": 1 1 1 1 1 1 1 1 1 1 ... 1532s [00:52:12.037] ..$ :'data.frame': 18 obs. of 3 variables: 1532s [00:52:12.037] .. ..$ breaks : num [1:18] 18 21 29 17 12 18 35 30 36 42 ... 1532s [00:52:12.037] .. ..$ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 2 ... 1532s [00:52:12.037] .. ..$ tension: Factor w/ 3 levels "L","M","H": 2 2 2 2 2 2 2 2 2 2 ... 1532s [00:52:12.037] ..$ :'data.frame': 18 obs. of 3 variables: 1532s [00:52:12.037] .. ..$ breaks : num [1:18] 36 21 24 18 10 43 28 15 26 20 ... 1532s [00:52:12.037] .. ..$ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 2 ... 1532s [00:52:12.037] .. ..$ tension: Factor w/ 3 levels "L","M","H": 3 3 3 3 3 3 3 3 3 3 ... 1532s [00:52:12.037] $ ...future.seeds_ii : NULL 1532s [00:52:12.037] $ ...future.globals.maxSize: NULL 1532s [00:52:12.037] - attr(*, "where")=List of 5 1532s [00:52:12.037] ..$ ...future.FUN : 1532s [00:52:12.037] ..$ future.call.arguments : 1532s [00:52:12.037] ..$ ...future.elements_ii : 1532s [00:52:12.037] ..$ ...future.seeds_ii : 1532s [00:52:12.037] ..$ ...future.globals.maxSize: 1532s [00:52:12.037] - attr(*, "resolved")= logi FALSE 1532s [00:52:12.037] - attr(*, "total_size")= num 1240 1532s [00:52:12.037] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1532s [00:52:12.037] - attr(*, "already-done")= logi TRUE 1532s [00:52:12.053] - copied ‘...future.FUN’ to environment 1532s [00:52:12.053] - copied ‘future.call.arguments’ to environment 1532s [00:52:12.053] - copied ‘...future.elements_ii’ to environment 1532s [00:52:12.053] - copied ‘...future.seeds_ii’ to environment 1532s [00:52:12.053] - copied ‘...future.globals.maxSize’ to environment 1532s [00:52:12.053] assign_globals() ... done 1532s [00:52:12.058] plan(): Setting new future strategy stack: 1532s [00:52:12.058] List of future strategies: 1532s [00:52:12.058] 1. sequential: 1532s [00:52:12.058] - args: function (..., envir = parent.frame()) 1532s [00:52:12.058] - tweaked: FALSE 1532s [00:52:12.058] - call: NULL 1532s [00:52:12.061] plan(): nbrOfWorkers() = 1 1532s [00:52:12.064] plan(): Setting new future strategy stack: 1532s [00:52:12.064] List of future strategies: 1532s [00:52:12.064] 1. sequential: 1532s [00:52:12.064] - args: function (..., envir = parent.frame()) 1532s [00:52:12.064] - tweaked: FALSE 1532s [00:52:12.064] - call: plan(strategy) 1532s [00:52:12.065] plan(): nbrOfWorkers() = 1 1532s [00:52:12.065] SequentialFuture started (and completed) 1532s [00:52:12.065] - Launch lazy future ... done 1532s [00:52:12.065] run() for ‘SequentialFuture’ ... done 1532s [00:52:12.067] Created future: 1532s [00:52:12.067] SequentialFuture: 1532s [00:52:12.067] Label: ‘future_by-1’ 1532s [00:52:12.067] Expression: 1532s [00:52:12.067] { 1532s [00:52:12.067] do.call(function(...) { 1532s [00:52:12.067] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1532s [00:52:12.067] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1532s [00:52:12.067] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1532s [00:52:12.067] on.exit(options(oopts), add = TRUE) 1532s [00:52:12.067] } 1532s [00:52:12.067] { 1532s [00:52:12.067] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1532s [00:52:12.067] ...future.X_jj <- ...future.elements_ii[[jj]] 1532s [00:52:12.067] ...future.FUN(...future.X_jj, ...) 1532s [00:52:12.067] }) 1532s [00:52:12.067] } 1532s [00:52:12.067] }, args = future.call.arguments) 1532s [00:52:12.067] } 1532s [00:52:12.067] Lazy evaluation: FALSE 1532s [00:52:12.067] Asynchronous evaluation: FALSE 1532s [00:52:12.067] Local evaluation: TRUE 1532s [00:52:12.067] Environment: 0x2aa048fc070 1532s [00:52:12.067] Capture standard output: TRUE 1532s [00:52:12.067] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1532s [00:52:12.067] Globals: 5 objects totaling 6.02 KiB (function ‘...future.FUN’ of 1.21 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 4.80 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1532s [00:52:12.067] Packages: 1532s [00:52:12.067] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1532s [00:52:12.067] Resolved: TRUE 1532s [00:52:12.067] Value: 5.37 KiB of class ‘list’ 1532s [00:52:12.067] Early signaling: FALSE 1532s [00:52:12.067] Owner process: 64a671dd-8756-a081-baa7-973da233f197 1532s [00:52:12.067] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1532s [00:52:12.069] Chunk #1 of 1 ... DONE 1532s [00:52:12.069] Launching 1 futures (chunks) ... DONE 1532s [00:52:12.069] Resolving 1 futures (chunks) ... 1532s [00:52:12.069] resolve() on list ... 1532s [00:52:12.070] recursive: 0 1532s [00:52:12.070] length: 1 1532s [00:52:12.070] 1532s [00:52:12.070] resolved() for ‘SequentialFuture’ ... 1532s [00:52:12.070] - state: ‘finished’ 1532s [00:52:12.071] - run: TRUE 1532s [00:52:12.071] - result: ‘FutureResult’ 1532s [00:52:12.071] resolved() for ‘SequentialFuture’ ... done 1532s [00:52:12.071] Future #1 1532s [00:52:12.071] signalConditionsASAP(SequentialFuture, pos=1) ... 1532s [00:52:12.071] - nx: 1 1532s [00:52:12.072] - relay: TRUE 1532s [00:52:12.072] - stdout: TRUE 1532s [00:52:12.072] - signal: TRUE 1532s [00:52:12.072] - resignal: FALSE 1532s [00:52:12.072] - force: TRUE 1532s [00:52:12.072] - relayed: [n=1] FALSE 1532s [00:52:12.072] - queued futures: [n=1] FALSE 1532s [00:52:12.073] - until=1 1532s [00:52:12.073] - relaying element #1 1532s [00:52:12.073] - relayed: [n=1] TRUE 1532s [00:52:12.073] - queued futures: [n=1] TRUE 1532s [00:52:12.073] signalConditionsASAP(SequentialFuture, pos=1) ... done 1532s [00:52:12.074] length: 0 (resolved future 1) 1532s [00:52:12.074] Relaying remaining futures 1532s [00:52:12.074] signalConditionsASAP(NULL, pos=0) ... 1532s [00:52:12.074] - nx: 1 1532s [00:52:12.074] - relay: TRUE 1532s [00:52:12.074] - stdout: TRUE 1532s [00:52:12.074] - signal: TRUE 1532s [00:52:12.075] - resignal: FALSE 1532s [00:52:12.075] - force: TRUE 1532s [00:52:12.075] - relayed: [n=1] TRUE 1532s [00:52:12.075] - queued futures: [n=1] TRUE 1532s - flush all 1532s [00:52:12.075] - relayed: [n=1] TRUE 1532s [00:52:12.075] - queued futures: [n=1] TRUE 1532s [00:52:12.076] signalConditionsASAP(NULL, pos=0) ... done 1532s [00:52:12.076] resolve() on list ... DONE 1532s [00:52:12.076] - Number of value chunks collected: 1 1532s [00:52:12.076] Resolving 1 futures (chunks) ... DONE 1532s [00:52:12.076] Reducing values from 1 chunks ... 1532s [00:52:12.076] - Number of values collected after concatenation: 3 1532s [00:52:12.077] - Number of values expected: 3 1532s [00:52:12.077] Reducing values from 1 chunks ... DONE 1532s [00:52:12.077] future_lapply() ... DONE 1532s [00:52:12.077] future_by_internal() ... DONE 1532s [00:52:12.078] future_by_internal() ... 1532s - plan('multicore') ... 1532s [00:52:12.080] plan(): Setting new future strategy stack: 1532s [00:52:12.081] List of future strategies: 1532s [00:52:12.081] 1. multicore: 1532s [00:52:12.081] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1532s [00:52:12.081] - tweaked: FALSE 1532s [00:52:12.081] - call: plan(strategy) 1532s [00:52:12.085] plan(): nbrOfWorkers() = 1 1532s [00:52:12.085] future_by_internal() ... 1532s [00:52:12.086] future_lapply() ... 1532s [00:52:12.089] Number of chunks: 1 1532s [00:52:12.090] getGlobalsAndPackagesXApply() ... 1532s [00:52:12.090] - future.globals: TRUE 1532s [00:52:12.090] getGlobalsAndPackages() ... 1532s [00:52:12.090] Searching for globals... 1532s [00:52:12.091] - globals found: [2] ‘FUN’, ‘UseMethod’ 1532s [00:52:12.092] Searching for globals ... DONE 1532s [00:52:12.092] Resolving globals: FALSE 1532s [00:52:12.092] The total size of the 1 globals is 1.21 KiB (1240 bytes) 1532s [00:52:12.098] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.21 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.21 KiB of class ‘function’) 1532s [00:52:12.100] - globals: [1] ‘FUN’ 1532s [00:52:12.100] 1532s [00:52:12.100] getGlobalsAndPackages() ... DONE 1532s [00:52:12.101] - globals found/used: [n=1] ‘FUN’ 1532s [00:52:12.101] - needed namespaces: [n=0] 1532s [00:52:12.101] Finding globals ... DONE 1532s [00:52:12.101] - use_args: TRUE 1532s [00:52:12.101] - Getting '...' globals ... 1532s [00:52:12.102] resolve() on list ... 1532s [00:52:12.102] recursive: 0 1532s [00:52:12.102] length: 1 1532s [00:52:12.102] elements: ‘...’ 1532s [00:52:12.102] length: 0 (resolved future 1) 1532s [00:52:12.103] resolve() on list ... DONE 1532s [00:52:12.103] - '...' content: [n=0] 1532s [00:52:12.103] List of 1 1532s [00:52:12.103] $ ...: list() 1532s [00:52:12.103] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1532s [00:52:12.103] - attr(*, "where")=List of 1 1532s [00:52:12.103] ..$ ...: 1532s [00:52:12.103] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1532s [00:52:12.103] - attr(*, "resolved")= logi TRUE 1532s [00:52:12.103] - attr(*, "total_size")= num NA 1532s [00:52:12.108] - Getting '...' globals ... DONE 1532s [00:52:12.108] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1532s [00:52:12.108] List of 2 1532s [00:52:12.108] $ ...future.FUN:function (object, ...) 1532s [00:52:12.108] $ ... : list() 1532s [00:52:12.108] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1532s [00:52:12.108] - attr(*, "where")=List of 2 1532s [00:52:12.108] ..$ ...future.FUN: 1532s [00:52:12.108] ..$ ... : 1532s [00:52:12.108] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1532s [00:52:12.108] - attr(*, "resolved")= logi FALSE 1532s [00:52:12.108] - attr(*, "total_size")= num 1240 1532s [00:52:12.112] Packages to be attached in all futures: [n=0] 1532s [00:52:12.112] getGlobalsAndPackagesXApply() ... DONE 1532s [00:52:12.119] Number of futures (= number of chunks): 1 1532s [00:52:12.119] Launching 1 futures (chunks) ... 1532s [00:52:12.119] Chunk #1 of 1 ... 1532s [00:52:12.119] - Finding globals in 'X' for chunk #1 ... 1532s [00:52:12.119] getGlobalsAndPackages() ... 1532s [00:52:12.120] Searching for globals... 1532s [00:52:12.120] 1532s [00:52:12.120] Searching for globals ... DONE 1532s [00:52:12.121] - globals: [0] 1532s [00:52:12.121] getGlobalsAndPackages() ... DONE 1532s [00:52:12.121] + additional globals found: [n=0] 1532s [00:52:12.121] + additional namespaces needed: [n=0] 1532s [00:52:12.121] - Finding globals in 'X' for chunk #1 ... DONE 1532s [00:52:12.121] - seeds: 1532s [00:52:12.122] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1532s [00:52:12.122] getGlobalsAndPackages() ... 1532s [00:52:12.122] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1532s [00:52:12.122] Resolving globals: FALSE 1532s [00:52:12.122] Tweak future expression to call with '...' arguments ... 1532s [00:52:12.123] { 1532s [00:52:12.123] do.call(function(...) { 1532s [00:52:12.123] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1532s [00:52:12.123] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1532s [00:52:12.123] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1532s [00:52:12.123] on.exit(options(oopts), add = TRUE) 1532s [00:52:12.123] } 1532s [00:52:12.123] { 1532s [00:52:12.123] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1532s [00:52:12.123] ...future.X_jj <- ...future.elements_ii[[jj]] 1532s [00:52:12.123] ...future.FUN(...future.X_jj, ...) 1532s [00:52:12.123] }) 1532s [00:52:12.123] } 1532s [00:52:12.123] }, args = future.call.arguments) 1532s [00:52:12.123] } 1532s [00:52:12.123] Tweak future expression to call with '...' arguments ... DONE 1532s [00:52:12.124] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1532s [00:52:12.124] 1532s [00:52:12.124] getGlobalsAndPackages() ... DONE 1532s [00:52:12.125] run() for ‘Future’ ... 1532s [00:52:12.125] - state: ‘created’ 1532s [00:52:12.125] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1532s [00:52:12.129] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1532s [00:52:12.129] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1532s [00:52:12.129] - Field: ‘label’ 1532s [00:52:12.129] - Field: ‘local’ 1532s [00:52:12.130] - Field: ‘owner’ 1532s [00:52:12.130] - Field: ‘envir’ 1532s [00:52:12.130] - Field: ‘packages’ 1532s [00:52:12.130] - Field: ‘gc’ 1532s [00:52:12.130] - Field: ‘conditions’ 1532s [00:52:12.130] - Field: ‘expr’ 1532s [00:52:12.131] - Field: ‘uuid’ 1532s [00:52:12.131] - Field: ‘seed’ 1532s [00:52:12.131] - Field: ‘version’ 1532s [00:52:12.131] - Field: ‘result’ 1532s [00:52:12.131] - Field: ‘asynchronous’ 1532s [00:52:12.133] - Field: ‘calls’ 1532s [00:52:12.133] - Field: ‘globals’ 1532s [00:52:12.134] - Field: ‘stdout’ 1532s [00:52:12.134] - Field: ‘earlySignal’ 1532s [00:52:12.134] - Field: ‘lazy’ 1532s [00:52:12.134] - Field: ‘state’ 1532s [00:52:12.134] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1532s [00:52:12.134] - Launch lazy future ... 1532s [00:52:12.134] Packages needed by the future expression (n = 0): 1532s [00:52:12.135] Packages needed by future strategies (n = 0): 1532s [00:52:12.135] { 1532s [00:52:12.135] { 1532s [00:52:12.135] { 1532s [00:52:12.135] ...future.startTime <- base::Sys.time() 1532s [00:52:12.135] { 1532s [00:52:12.135] { 1532s [00:52:12.135] { 1532s [00:52:12.135] base::local({ 1532s [00:52:12.135] has_future <- base::requireNamespace("future", 1532s [00:52:12.135] quietly = TRUE) 1532s [00:52:12.135] if (has_future) { 1532s [00:52:12.135] ns <- base::getNamespace("future") 1532s [00:52:12.135] version <- ns[[".package"]][["version"]] 1532s [00:52:12.135] if (is.null(version)) 1532s [00:52:12.135] version <- utils::packageVersion("future") 1532s [00:52:12.135] } 1532s [00:52:12.135] else { 1532s [00:52:12.135] version <- NULL 1532s [00:52:12.135] } 1532s [00:52:12.135] if (!has_future || version < "1.8.0") { 1532s [00:52:12.135] info <- base::c(r_version = base::gsub("R version ", 1532s [00:52:12.135] "", base::R.version$version.string), 1532s [00:52:12.135] platform = base::sprintf("%s (%s-bit)", 1532s [00:52:12.135] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1532s [00:52:12.135] os = base::paste(base::Sys.info()[base::c("sysname", 1532s [00:52:12.135] "release", "version")], collapse = " "), 1532s [00:52:12.135] hostname = base::Sys.info()[["nodename"]]) 1532s [00:52:12.135] info <- base::sprintf("%s: %s", base::names(info), 1532s [00:52:12.135] info) 1532s [00:52:12.135] info <- base::paste(info, collapse = "; ") 1532s [00:52:12.135] if (!has_future) { 1532s [00:52:12.135] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1532s [00:52:12.135] info) 1532s [00:52:12.135] } 1532s [00:52:12.135] else { 1532s [00:52:12.135] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1532s [00:52:12.135] info, version) 1532s [00:52:12.135] } 1532s [00:52:12.135] base::stop(msg) 1532s [00:52:12.135] } 1532s [00:52:12.135] }) 1532s [00:52:12.135] } 1532s [00:52:12.135] options(future.plan = NULL) 1532s [00:52:12.135] Sys.unsetenv("R_FUTURE_PLAN") 1532s [00:52:12.135] future::plan("default", .cleanup = FALSE, .init = FALSE) 1532s [00:52:12.135] } 1532s [00:52:12.135] ...future.workdir <- getwd() 1532s [00:52:12.135] } 1532s [00:52:12.135] ...future.oldOptions <- base::as.list(base::.Options) 1532s [00:52:12.135] ...future.oldEnvVars <- base::Sys.getenv() 1532s [00:52:12.135] } 1532s [00:52:12.135] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1532s [00:52:12.135] future.globals.maxSize = NULL, future.globals.method = NULL, 1532s [00:52:12.135] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1532s [00:52:12.135] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1532s [00:52:12.135] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1532s [00:52:12.135] future.stdout.windows.reencode = NULL, width = 80L) 1532s [00:52:12.135] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1532s [00:52:12.135] base::names(...future.oldOptions)) 1532s [00:52:12.135] } 1532s [00:52:12.135] if (FALSE) { 1532s [00:52:12.135] } 1532s [00:52:12.135] else { 1532s [00:52:12.135] if (TRUE) { 1532s [00:52:12.135] ...future.stdout <- base::rawConnection(base::raw(0L), 1532s [00:52:12.135] open = "w") 1532s [00:52:12.135] } 1532s [00:52:12.135] else { 1532s [00:52:12.135] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1532s [00:52:12.135] windows = "NUL", "/dev/null"), open = "w") 1532s [00:52:12.135] } 1532s [00:52:12.135] base::sink(...future.stdout, type = "output", split = FALSE) 1532s [00:52:12.135] base::on.exit(if (!base::is.null(...future.stdout)) { 1532s [00:52:12.135] base::sink(type = "output", split = FALSE) 1532s [00:52:12.135] base::close(...future.stdout) 1532s [00:52:12.135] }, add = TRUE) 1532s [00:52:12.135] } 1532s [00:52:12.135] ...future.frame <- base::sys.nframe() 1532s [00:52:12.135] ...future.conditions <- base::list() 1532s [00:52:12.135] ...future.rng <- base::globalenv()$.Random.seed 1532s [00:52:12.135] if (FALSE) { 1532s [00:52:12.135] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1532s [00:52:12.135] "...future.value", "...future.globalenv.names", ".Random.seed") 1532s [00:52:12.135] } 1532s [00:52:12.135] ...future.result <- base::tryCatch({ 1532s [00:52:12.135] base::withCallingHandlers({ 1532s [00:52:12.135] ...future.value <- base::withVisible(base::local({ 1532s [00:52:12.135] do.call(function(...) { 1532s [00:52:12.135] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1532s [00:52:12.135] if (!identical(...future.globals.maxSize.org, 1532s [00:52:12.135] ...future.globals.maxSize)) { 1532s [00:52:12.135] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1532s [00:52:12.135] on.exit(options(oopts), add = TRUE) 1532s [00:52:12.135] } 1532s [00:52:12.135] { 1532s [00:52:12.135] lapply(seq_along(...future.elements_ii), 1532s [00:52:12.135] FUN = function(jj) { 1532s [00:52:12.135] ...future.X_jj <- ...future.elements_ii[[jj]] 1532s [00:52:12.135] ...future.FUN(...future.X_jj, ...) 1532s [00:52:12.135] }) 1532s [00:52:12.135] } 1532s [00:52:12.135] }, args = future.call.arguments) 1532s [00:52:12.135] })) 1532s [00:52:12.135] future::FutureResult(value = ...future.value$value, 1532s [00:52:12.135] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1532s [00:52:12.135] ...future.rng), globalenv = if (FALSE) 1532s [00:52:12.135] list(added = base::setdiff(base::names(base::.GlobalEnv), 1532s [00:52:12.135] ...future.globalenv.names)) 1532s [00:52:12.135] else NULL, started = ...future.startTime, version = "1.8") 1532s [00:52:12.135] }, condition = base::local({ 1532s [00:52:12.135] c <- base::c 1532s [00:52:12.135] inherits <- base::inherits 1532s [00:52:12.135] invokeRestart <- base::invokeRestart 1532s [00:52:12.135] length <- base::length 1532s [00:52:12.135] list <- base::list 1532s [00:52:12.135] seq.int <- base::seq.int 1532s [00:52:12.135] signalCondition <- base::signalCondition 1532s [00:52:12.135] sys.calls <- base::sys.calls 1532s [00:52:12.135] `[[` <- base::`[[` 1532s [00:52:12.135] `+` <- base::`+` 1532s [00:52:12.135] `<<-` <- base::`<<-` 1532s [00:52:12.135] sysCalls <- function(calls = sys.calls(), from = 1L) { 1532s [00:52:12.135] calls[seq.int(from = from + 12L, to = length(calls) - 1532s [00:52:12.135] 3L)] 1532s [00:52:12.135] } 1532s [00:52:12.135] function(cond) { 1532s [00:52:12.135] is_error <- inherits(cond, "error") 1532s [00:52:12.135] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1532s [00:52:12.135] NULL) 1532s [00:52:12.135] if (is_error) { 1532s [00:52:12.135] sessionInformation <- function() { 1532s [00:52:12.135] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1532s [00:52:12.135] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1532s [00:52:12.135] search = base::search(), system = base::Sys.info()) 1532s [00:52:12.135] } 1532s [00:52:12.135] ...future.conditions[[length(...future.conditions) + 1532s [00:52:12.135] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1532s [00:52:12.135] cond$call), session = sessionInformation(), 1532s [00:52:12.135] timestamp = base::Sys.time(), signaled = 0L) 1532s [00:52:12.135] signalCondition(cond) 1532s [00:52:12.135] } 1532s [00:52:12.135] else if (!ignore && TRUE && inherits(cond, c("condition", 1532s [00:52:12.135] "immediateCondition"))) { 1532s [00:52:12.135] signal <- TRUE && inherits(cond, "immediateCondition") 1532s [00:52:12.135] ...future.conditions[[length(...future.conditions) + 1532s [00:52:12.135] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1532s [00:52:12.135] if (TRUE && !signal) { 1532s [00:52:12.135] muffleCondition <- function (cond, pattern = "^muffle") 1532s [00:52:12.135] { 1532s [00:52:12.135] inherits <- base::inherits 1532s [00:52:12.135] invokeRestart <- base::invokeRestart 1532s [00:52:12.135] is.null <- base::is.null 1532s [00:52:12.135] muffled <- FALSE 1532s [00:52:12.135] if (inherits(cond, "message")) { 1532s [00:52:12.135] muffled <- grepl(pattern, "muffleMessage") 1532s [00:52:12.135] if (muffled) 1532s [00:52:12.135] invokeRestart("muffleMessage") 1532s [00:52:12.135] } 1532s [00:52:12.135] else if (inherits(cond, "warning")) { 1532s [00:52:12.135] muffled <- grepl(pattern, "muffleWarning") 1532s [00:52:12.135] if (muffled) 1532s [00:52:12.135] invokeRestart("muffleWarning") 1532s [00:52:12.135] } 1532s [00:52:12.135] else if (inherits(cond, "condition")) { 1532s [00:52:12.135] if (!is.null(pattern)) { 1532s [00:52:12.135] computeRestarts <- base::computeRestarts 1532s [00:52:12.135] grepl <- base::grepl 1532s [00:52:12.135] restarts <- computeRestarts(cond) 1532s [00:52:12.135] for (restart in restarts) { 1532s [00:52:12.135] name <- restart$name 1532s [00:52:12.135] if (is.null(name)) 1532s [00:52:12.135] next 1532s [00:52:12.135] if (!grepl(pattern, name)) 1532s [00:52:12.135] next 1532s [00:52:12.135] invokeRestart(restart) 1532s [00:52:12.135] muffled <- TRUE 1532s [00:52:12.135] break 1532s [00:52:12.135] } 1532s [00:52:12.135] } 1532s [00:52:12.135] } 1532s [00:52:12.135] invisible(muffled) 1532s [00:52:12.135] } 1532s [00:52:12.135] muffleCondition(cond, pattern = "^muffle") 1532s [00:52:12.135] } 1532s [00:52:12.135] } 1532s [00:52:12.135] else { 1532s [00:52:12.135] if (TRUE) { 1532s [00:52:12.135] muffleCondition <- function (cond, pattern = "^muffle") 1532s [00:52:12.135] { 1532s [00:52:12.135] inherits <- base::inherits 1532s [00:52:12.135] invokeRestart <- base::invokeRestart 1532s [00:52:12.135] is.null <- base::is.null 1532s [00:52:12.135] muffled <- FALSE 1532s [00:52:12.135] if (inherits(cond, "message")) { 1532s [00:52:12.135] muffled <- grepl(pattern, "muffleMessage") 1532s [00:52:12.135] if (muffled) 1532s [00:52:12.135] invokeRestart("muffleMessage") 1532s [00:52:12.135] } 1532s [00:52:12.135] else if (inherits(cond, "warning")) { 1532s [00:52:12.135] muffled <- grepl(pattern, "muffleWarning") 1532s [00:52:12.135] if (muffled) 1532s [00:52:12.135] invokeRestart("muffleWarning") 1532s [00:52:12.135] } 1532s [00:52:12.135] else if (inherits(cond, "condition")) { 1532s [00:52:12.135] if (!is.null(pattern)) { 1532s [00:52:12.135] computeRestarts <- base::computeRestarts 1532s [00:52:12.135] grepl <- base::grepl 1532s [00:52:12.135] restarts <- computeRestarts(cond) 1532s [00:52:12.135] for (restart in restarts) { 1532s [00:52:12.135] name <- restart$name 1532s [00:52:12.135] if (is.null(name)) 1532s [00:52:12.135] next 1532s [00:52:12.135] if (!grepl(pattern, name)) 1532s [00:52:12.135] next 1532s [00:52:12.135] invokeRestart(restart) 1532s [00:52:12.135] muffled <- TRUE 1532s [00:52:12.135] break 1532s [00:52:12.135] } 1532s [00:52:12.135] } 1532s [00:52:12.135] } 1532s [00:52:12.135] invisible(muffled) 1532s [00:52:12.135] } 1532s [00:52:12.135] muffleCondition(cond, pattern = "^muffle") 1532s [00:52:12.135] } 1532s [00:52:12.135] } 1532s [00:52:12.135] } 1532s [00:52:12.135] })) 1532s [00:52:12.135] }, error = function(ex) { 1532s [00:52:12.135] base::structure(base::list(value = NULL, visible = NULL, 1532s [00:52:12.135] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1532s [00:52:12.135] ...future.rng), started = ...future.startTime, 1532s [00:52:12.135] finished = Sys.time(), session_uuid = NA_character_, 1532s [00:52:12.135] version = "1.8"), class = "FutureResult") 1532s [00:52:12.135] }, finally = { 1532s [00:52:12.135] if (!identical(...future.workdir, getwd())) 1532s [00:52:12.135] setwd(...future.workdir) 1532s [00:52:12.135] { 1532s [00:52:12.135] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1532s [00:52:12.135] ...future.oldOptions$nwarnings <- NULL 1532s [00:52:12.135] } 1532s [00:52:12.135] base::options(...future.oldOptions) 1532s [00:52:12.135] if (.Platform$OS.type == "windows") { 1532s [00:52:12.135] old_names <- names(...future.oldEnvVars) 1532s [00:52:12.135] envs <- base::Sys.getenv() 1532s [00:52:12.135] names <- names(envs) 1532s [00:52:12.135] common <- intersect(names, old_names) 1532s [00:52:12.135] added <- setdiff(names, old_names) 1532s [00:52:12.135] removed <- setdiff(old_names, names) 1532s [00:52:12.135] changed <- common[...future.oldEnvVars[common] != 1532s [00:52:12.135] envs[common]] 1532s [00:52:12.135] NAMES <- toupper(changed) 1532s [00:52:12.135] args <- list() 1532s [00:52:12.135] for (kk in seq_along(NAMES)) { 1532s [00:52:12.135] name <- changed[[kk]] 1532s [00:52:12.135] NAME <- NAMES[[kk]] 1532s [00:52:12.135] if (name != NAME && is.element(NAME, old_names)) 1532s [00:52:12.135] next 1532s [00:52:12.135] args[[name]] <- ...future.oldEnvVars[[name]] 1532s [00:52:12.135] } 1532s [00:52:12.135] NAMES <- toupper(added) 1532s [00:52:12.135] for (kk in seq_along(NAMES)) { 1532s [00:52:12.135] name <- added[[kk]] 1532s [00:52:12.135] NAME <- NAMES[[kk]] 1532s [00:52:12.135] if (name != NAME && is.element(NAME, old_names)) 1532s [00:52:12.135] next 1532s [00:52:12.135] args[[name]] <- "" 1532s [00:52:12.135] } 1532s [00:52:12.135] NAMES <- toupper(removed) 1532s [00:52:12.135] for (kk in seq_along(NAMES)) { 1532s [00:52:12.135] name <- removed[[kk]] 1532s [00:52:12.135] NAME <- NAMES[[kk]] 1532s [00:52:12.135] if (name != NAME && is.element(NAME, old_names)) 1532s [00:52:12.135] next 1532s [00:52:12.135] args[[name]] <- ...future.oldEnvVars[[name]] 1532s [00:52:12.135] } 1532s [00:52:12.135] if (length(args) > 0) 1532s [00:52:12.135] base::do.call(base::Sys.setenv, args = args) 1532s [00:52:12.135] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1532s [00:52:12.135] } 1532s [00:52:12.135] else { 1532s [00:52:12.135] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1532s [00:52:12.135] } 1532s [00:52:12.135] { 1532s [00:52:12.135] if (base::length(...future.futureOptionsAdded) > 1532s [00:52:12.135] 0L) { 1532s [00:52:12.135] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1532s [00:52:12.135] base::names(opts) <- ...future.futureOptionsAdded 1532s [00:52:12.135] base::options(opts) 1532s [00:52:12.135] } 1532s [00:52:12.135] { 1532s [00:52:12.135] { 1532s [00:52:12.135] NULL 1532s [00:52:12.135] RNGkind("Mersenne-Twister") 1532s [00:52:12.135] base::rm(list = ".Random.seed", envir = base::globalenv(), 1532s [00:52:12.135] inherits = FALSE) 1532s [00:52:12.135] } 1532s [00:52:12.135] options(future.plan = NULL) 1532s [00:52:12.135] if (is.na(NA_character_)) 1532s [00:52:12.135] Sys.unsetenv("R_FUTURE_PLAN") 1532s [00:52:12.135] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1532s [00:52:12.135] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1532s [00:52:12.135] envir = parent.frame()) 1532s [00:52:12.135] { 1532s [00:52:12.135] default_workers <- missing(workers) 1532s [00:52:12.135] if (is.function(workers)) 1532s [00:52:12.135] workers <- workers() 1532s [00:52:12.135] workers <- structure(as.integer(workers), 1532s [00:52:12.135] class = class(workers)) 1532s [00:52:12.135] stop_if_not(is.finite(workers), workers >= 1532s [00:52:12.135] 1L) 1532s [00:52:12.135] if ((workers == 1L && !inherits(workers, 1532s [00:52:12.135] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1532s [00:52:12.135] if (default_workers) 1532s [00:52:12.135] supportsMulticore(warn = TRUE) 1532s [00:52:12.135] return(sequential(..., envir = envir)) 1532s [00:52:12.135] } 1532s [00:52:12.135] oopts <- options(mc.cores = workers) 1532s [00:52:12.135] on.exit(options(oopts)) 1532s [00:52:12.135] future <- MulticoreFuture(..., workers = workers, 1532s [00:52:12.135] envir = envir) 1532s [00:52:12.135] if (!future$lazy) 1532s [00:52:12.135] future <- run(future) 1532s [00:52:12.135] invisible(future) 1532s [00:52:12.135] }), .cleanup = FALSE, .init = FALSE) 1532s [00:52:12.135] } 1532s [00:52:12.135] } 1532s [00:52:12.135] } 1532s [00:52:12.135] }) 1532s [00:52:12.135] if (TRUE) { 1532s [00:52:12.135] base::sink(type = "output", split = FALSE) 1532s [00:52:12.135] if (TRUE) { 1532s [00:52:12.135] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1532s [00:52:12.135] } 1532s [00:52:12.135] else { 1532s [00:52:12.135] ...future.result["stdout"] <- base::list(NULL) 1532s [00:52:12.135] } 1532s [00:52:12.135] base::close(...future.stdout) 1532s [00:52:12.135] ...future.stdout <- NULL 1532s [00:52:12.135] } 1532s [00:52:12.135] ...future.result$conditions <- ...future.conditions 1532s [00:52:12.135] ...future.result$finished <- base::Sys.time() 1532s [00:52:12.135] ...future.result 1532s [00:52:12.135] } 1532s [00:52:12.138] assign_globals() ... 1532s [00:52:12.138] List of 5 1532s [00:52:12.138] $ ...future.FUN :function (object, ...) 1532s [00:52:12.138] $ future.call.arguments : list() 1532s [00:52:12.138] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1532s [00:52:12.138] $ ...future.elements_ii :List of 3 1532s [00:52:12.138] ..$ :'data.frame': 18 obs. of 2 variables: 1532s [00:52:12.138] .. ..$ breaks: num [1:18] 26 30 54 25 70 52 51 26 67 27 ... 1532s [00:52:12.138] .. ..$ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 2 ... 1532s [00:52:12.138] ..$ :'data.frame': 18 obs. of 2 variables: 1532s [00:52:12.138] .. ..$ breaks: num [1:18] 18 21 29 17 12 18 35 30 36 42 ... 1532s [00:52:12.138] .. ..$ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 2 ... 1532s [00:52:12.138] ..$ :'data.frame': 18 obs. of 2 variables: 1532s [00:52:12.138] .. ..$ breaks: num [1:18] 36 21 24 18 10 43 28 15 26 20 ... 1532s [00:52:12.138] .. ..$ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 2 ... 1532s [00:52:12.138] $ ...future.seeds_ii : NULL 1532s [00:52:12.138] $ ...future.globals.maxSize: NULL 1532s [00:52:12.138] - attr(*, "where")=List of 5 1532s [00:52:12.138] ..$ ...future.FUN : 1532s [00:52:12.138] ..$ future.call.arguments : 1532s [00:52:12.138] ..$ ...future.elements_ii : 1532s [00:52:12.138] ..$ ...future.seeds_ii : 1532s [00:52:12.138] ..$ ...future.globals.maxSize: 1532s [00:52:12.138] - attr(*, "resolved")= logi FALSE 1532s [00:52:12.138] - attr(*, "total_size")= num 1240 1532s [00:52:12.138] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1532s [00:52:12.138] - attr(*, "already-done")= logi TRUE 1532s [00:52:12.151] - copied ‘...future.FUN’ to environment 1532s [00:52:12.151] - copied ‘future.call.arguments’ to environment 1532s [00:52:12.151] - copied ‘...future.elements_ii’ to environment 1532s [00:52:12.152] - copied ‘...future.seeds_ii’ to environment 1532s [00:52:12.152] - copied ‘...future.globals.maxSize’ to environment 1532s [00:52:12.152] assign_globals() ... done 1532s [00:52:12.152] plan(): Setting new future strategy stack: 1532s [00:52:12.152] List of future strategies: 1532s [00:52:12.152] 1. sequential: 1532s [00:52:12.152] - args: function (..., envir = parent.frame()) 1532s [00:52:12.152] - tweaked: FALSE 1532s [00:52:12.152] - call: NULL 1532s [00:52:12.153] plan(): nbrOfWorkers() = 1 1532s [00:52:12.155] plan(): Setting new future strategy stack: 1532s [00:52:12.156] List of future strategies: 1532s [00:52:12.156] 1. multicore: 1532s [00:52:12.156] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1532s [00:52:12.156] - tweaked: FALSE 1532s [00:52:12.156] - call: plan(strategy) 1532s [00:52:12.159] plan(): nbrOfWorkers() = 1 1532s [00:52:12.159] SequentialFuture started (and completed) 1532s [00:52:12.160] - Launch lazy future ... done 1532s [00:52:12.160] run() for ‘SequentialFuture’ ... done 1532s [00:52:12.160] Created future: 1532s [00:52:12.160] SequentialFuture: 1532s [00:52:12.160] Label: ‘future_by-1’ 1532s [00:52:12.160] Expression: 1532s [00:52:12.160] { 1532s [00:52:12.160] do.call(function(...) { 1532s [00:52:12.160] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1532s [00:52:12.160] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1532s [00:52:12.160] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1532s [00:52:12.160] on.exit(options(oopts), add = TRUE) 1532s [00:52:12.160] } 1532s [00:52:12.160] { 1532s [00:52:12.160] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1532s [00:52:12.160] ...future.X_jj <- ...future.elements_ii[[jj]] 1532s [00:52:12.160] ...future.FUN(...future.X_jj, ...) 1532s [00:52:12.160] }) 1532s [00:52:12.160] } 1532s [00:52:12.160] }, args = future.call.arguments) 1532s [00:52:12.160] } 1532s [00:52:12.160] Lazy evaluation: FALSE 1532s [00:52:12.160] Asynchronous evaluation: FALSE 1532s [00:52:12.160] Local evaluation: TRUE 1532s [00:52:12.160] Environment: R_GlobalEnv 1532s [00:52:12.160] Capture standard output: TRUE 1532s [00:52:12.160] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1532s [00:52:12.160] Globals: 5 objects totaling 3.79 KiB (function ‘...future.FUN’ of 1.21 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 2.58 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1532s [00:52:12.160] Packages: 1532s [00:52:12.160] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1532s [00:52:12.160] Resolved: TRUE 1532s [00:52:12.160] Value: 4.62 KiB of class ‘list’ 1532s [00:52:12.160] Early signaling: FALSE 1532s [00:52:12.160] Owner process: 64a671dd-8756-a081-baa7-973da233f197 1532s [00:52:12.160] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1532s [00:52:12.173] Chunk #1 of 1 ... DONE 1532s [00:52:12.173] Launching 1 futures (chunks) ... DONE 1532s [00:52:12.173] Resolving 1 futures (chunks) ... 1532s [00:52:12.173] resolve() on list ... 1532s [00:52:12.174] recursive: 0 1532s [00:52:12.174] length: 1 1532s [00:52:12.174] 1532s [00:52:12.174] resolved() for ‘SequentialFuture’ ... 1532s [00:52:12.174] - state: ‘finished’ 1532s [00:52:12.174] - run: TRUE 1532s [00:52:12.174] - result: ‘FutureResult’ 1532s [00:52:12.175] resolved() for ‘SequentialFuture’ ... done 1532s [00:52:12.175] Future #1 1532s [00:52:12.175] signalConditionsASAP(SequentialFuture, pos=1) ... 1532s [00:52:12.175] - nx: 1 1532s [00:52:12.175] - relay: TRUE 1532s [00:52:12.175] - stdout: TRUE 1532s [00:52:12.176] - signal: TRUE 1532s [00:52:12.176] - resignal: FALSE 1532s [00:52:12.176] - force: TRUE 1532s [00:52:12.176] - relayed: [n=1] FALSE 1532s [00:52:12.176] - queued futures: [n=1] FALSE 1532s [00:52:12.176] - until=1 1532s [00:52:12.176] - relaying element #1 1532s [00:52:12.177] - relayed: [n=1] TRUE 1532s [00:52:12.177] - queued futures: [n=1] TRUE 1532s [00:52:12.177] signalConditionsASAP(SequentialFuture, pos=1) ... done 1532s [00:52:12.177] length: 0 (resolved future 1) 1532s [00:52:12.177] Relaying remaining futures 1532s [00:52:12.178] signalConditionsASAP(NULL, pos=0) ... 1532s [00:52:12.178] - nx: 1 1532s [00:52:12.178] - relay: TRUE 1532s [00:52:12.178] - stdout: TRUE 1532s [00:52:12.178] - signal: TRUE 1532s [00:52:12.178] - resignal: FALSE 1532s [00:52:12.178] - force: TRUE 1532s [00:52:12.179] - relayed: [n=1] TRUE 1532s [00:52:12.179] - queued futures: [n=1] TRUE 1532s - flush all 1532s [00:52:12.179] - relayed: [n=1] TRUE 1532s [00:52:12.179] - queued futures: [n=1] TRUE 1532s [00:52:12.179] signalConditionsASAP(NULL, pos=0) ... done 1532s [00:52:12.179] resolve() on list ... DONE 1532s [00:52:12.180] - Number of value chunks collected: 1 1532s [00:52:12.180] Resolving 1 futures (chunks) ... DONE 1532s [00:52:12.180] Reducing values from 1 chunks ... 1532s [00:52:12.180] - Number of values collected after concatenation: 3 1532s [00:52:12.180] - Number of values expected: 3 1532s [00:52:12.180] Reducing values from 1 chunks ... DONE 1532s [00:52:12.180] future_lapply() ... DONE 1532s [00:52:12.181] future_by_internal() ... DONE 1532s [00:52:12.181] future_by_internal() ... 1532s [00:52:12.181] future_lapply() ... 1532s [00:52:12.189] Number of chunks: 1 1532s [00:52:12.192] getGlobalsAndPackagesXApply() ... 1532s [00:52:12.193] - future.globals: TRUE 1532s [00:52:12.193] getGlobalsAndPackages() ... 1532s [00:52:12.193] Searching for globals... 1532s [00:52:12.194] - globals found: [2] ‘FUN’, ‘UseMethod’ 1532s [00:52:12.195] Searching for globals ... DONE 1532s [00:52:12.195] Resolving globals: FALSE 1532s [00:52:12.195] The total size of the 1 globals is 1.21 KiB (1240 bytes) 1532s [00:52:12.195] The total size of the 1 globals exported for future expression (‘FUN(digits = 2L)’) is 1.21 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.21 KiB of class ‘function’) 1532s [00:52:12.196] - globals: [1] ‘FUN’ 1532s [00:52:12.196] 1532s [00:52:12.196] getGlobalsAndPackages() ... DONE 1532s [00:52:12.196] - globals found/used: [n=1] ‘FUN’ 1532s [00:52:12.198] - needed namespaces: [n=0] 1532s [00:52:12.198] Finding globals ... DONE 1532s [00:52:12.198] - use_args: TRUE 1532s [00:52:12.198] - Getting '...' globals ... 1532s [00:52:12.198] resolve() on list ... 1532s [00:52:12.199] recursive: 0 1532s [00:52:12.199] length: 1 1532s [00:52:12.199] elements: ‘...’ 1532s [00:52:12.199] length: 0 (resolved future 1) 1532s [00:52:12.199] resolve() on list ... DONE 1532s [00:52:12.199] - '...' content: [n=1] ‘digits’ 1532s [00:52:12.199] List of 1 1532s [00:52:12.199] $ ...:List of 1 1532s [00:52:12.199] ..$ digits: int 2 1532s [00:52:12.199] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1532s [00:52:12.199] - attr(*, "where")=List of 1 1532s [00:52:12.199] ..$ ...: 1532s [00:52:12.199] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1532s [00:52:12.199] - attr(*, "resolved")= logi TRUE 1532s [00:52:12.199] - attr(*, "total_size")= num NA 1532s [00:52:12.203] - Getting '...' globals ... DONE 1532s [00:52:12.203] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1532s [00:52:12.203] List of 2 1532s [00:52:12.203] $ ...future.FUN:function (object, ...) 1532s [00:52:12.203] $ ... :List of 1 1532s [00:52:12.203] ..$ digits: int 2 1532s [00:52:12.203] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1532s [00:52:12.203] - attr(*, "where")=List of 2 1532s [00:52:12.203] ..$ ...future.FUN: 1532s [00:52:12.203] ..$ ... : 1532s [00:52:12.203] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1532s [00:52:12.203] - attr(*, "resolved")= logi FALSE 1532s [00:52:12.203] - attr(*, "total_size")= num 1296 1532s [00:52:12.208] Packages to be attached in all futures: [n=0] 1532s [00:52:12.209] getGlobalsAndPackagesXApply() ... DONE 1532s [00:52:12.209] Number of futures (= number of chunks): 1 1532s [00:52:12.209] Launching 1 futures (chunks) ... 1532s [00:52:12.209] Chunk #1 of 1 ... 1532s [00:52:12.209] - Finding globals in 'X' for chunk #1 ... 1532s [00:52:12.209] getGlobalsAndPackages() ... 1532s [00:52:12.210] Searching for globals... 1532s [00:52:12.210] 1532s [00:52:12.210] Searching for globals ... DONE 1532s [00:52:12.210] - globals: [0] 1532s [00:52:12.210] getGlobalsAndPackages() ... DONE 1532s [00:52:12.211] + additional globals found: [n=0] 1532s [00:52:12.211] + additional namespaces needed: [n=0] 1532s [00:52:12.211] - Finding globals in 'X' for chunk #1 ... DONE 1532s [00:52:12.211] - seeds: 1532s [00:52:12.211] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1532s [00:52:12.211] getGlobalsAndPackages() ... 1532s [00:52:12.211] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1532s [00:52:12.212] Resolving globals: FALSE 1532s [00:52:12.212] Tweak future expression to call with '...' arguments ... 1532s [00:52:12.212] { 1532s [00:52:12.212] do.call(function(...) { 1532s [00:52:12.212] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1532s [00:52:12.212] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1532s [00:52:12.212] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1532s [00:52:12.212] on.exit(options(oopts), add = TRUE) 1532s [00:52:12.212] } 1532s [00:52:12.212] { 1532s [00:52:12.212] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1532s [00:52:12.212] ...future.X_jj <- ...future.elements_ii[[jj]] 1532s [00:52:12.212] ...future.FUN(...future.X_jj, ...) 1532s [00:52:12.212] }) 1532s [00:52:12.212] } 1532s [00:52:12.212] }, args = future.call.arguments) 1532s [00:52:12.212] } 1532s [00:52:12.212] Tweak future expression to call with '...' arguments ... DONE 1532s [00:52:12.213] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1532s [00:52:12.213] 1532s [00:52:12.213] getGlobalsAndPackages() ... DONE 1532s [00:52:12.214] run() for ‘Future’ ... 1532s [00:52:12.214] - state: ‘created’ 1532s [00:52:12.214] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1532s [00:52:12.225] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1532s [00:52:12.226] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1532s [00:52:12.227] - Field: ‘label’ 1532s [00:52:12.227] - Field: ‘local’ 1532s [00:52:12.227] - Field: ‘owner’ 1532s [00:52:12.227] - Field: ‘envir’ 1532s [00:52:12.227] - Field: ‘packages’ 1532s [00:52:12.227] - Field: ‘gc’ 1532s [00:52:12.227] - Field: ‘conditions’ 1532s [00:52:12.228] - Field: ‘expr’ 1532s [00:52:12.228] - Field: ‘uuid’ 1532s [00:52:12.228] - Field: ‘seed’ 1532s [00:52:12.229] - Field: ‘version’ 1532s [00:52:12.230] - Field: ‘result’ 1532s [00:52:12.230] - Field: ‘asynchronous’ 1532s [00:52:12.230] - Field: ‘calls’ 1532s [00:52:12.230] - Field: ‘globals’ 1532s [00:52:12.230] - Field: ‘stdout’ 1532s [00:52:12.230] - Field: ‘earlySignal’ 1532s [00:52:12.231] - Field: ‘lazy’ 1532s [00:52:12.231] - Field: ‘state’ 1532s [00:52:12.231] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1532s [00:52:12.231] - Launch lazy future ... 1532s [00:52:12.231] Packages needed by the future expression (n = 0): 1532s [00:52:12.232] Packages needed by future strategies (n = 0): 1532s [00:52:12.232] { 1532s [00:52:12.232] { 1532s [00:52:12.232] { 1532s [00:52:12.232] ...future.startTime <- base::Sys.time() 1532s [00:52:12.232] { 1532s [00:52:12.232] { 1532s [00:52:12.232] { 1532s [00:52:12.232] base::local({ 1532s [00:52:12.232] has_future <- base::requireNamespace("future", 1532s [00:52:12.232] quietly = TRUE) 1532s [00:52:12.232] if (has_future) { 1532s [00:52:12.232] ns <- base::getNamespace("future") 1532s [00:52:12.232] version <- ns[[".package"]][["version"]] 1532s [00:52:12.232] if (is.null(version)) 1532s [00:52:12.232] version <- utils::packageVersion("future") 1532s [00:52:12.232] } 1532s [00:52:12.232] else { 1532s [00:52:12.232] version <- NULL 1532s [00:52:12.232] } 1532s [00:52:12.232] if (!has_future || version < "1.8.0") { 1532s [00:52:12.232] info <- base::c(r_version = base::gsub("R version ", 1532s [00:52:12.232] "", base::R.version$version.string), 1532s [00:52:12.232] platform = base::sprintf("%s (%s-bit)", 1532s [00:52:12.232] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1532s [00:52:12.232] os = base::paste(base::Sys.info()[base::c("sysname", 1532s [00:52:12.232] "release", "version")], collapse = " "), 1532s [00:52:12.232] hostname = base::Sys.info()[["nodename"]]) 1532s [00:52:12.232] info <- base::sprintf("%s: %s", base::names(info), 1532s [00:52:12.232] info) 1532s [00:52:12.232] info <- base::paste(info, collapse = "; ") 1532s [00:52:12.232] if (!has_future) { 1532s [00:52:12.232] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1532s [00:52:12.232] info) 1532s [00:52:12.232] } 1532s [00:52:12.232] else { 1532s [00:52:12.232] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1532s [00:52:12.232] info, version) 1532s [00:52:12.232] } 1532s [00:52:12.232] base::stop(msg) 1532s [00:52:12.232] } 1532s [00:52:12.232] }) 1532s [00:52:12.232] } 1532s [00:52:12.232] options(future.plan = NULL) 1532s [00:52:12.232] Sys.unsetenv("R_FUTURE_PLAN") 1532s [00:52:12.232] future::plan("default", .cleanup = FALSE, .init = FALSE) 1532s [00:52:12.232] } 1532s [00:52:12.232] ...future.workdir <- getwd() 1532s [00:52:12.232] } 1532s [00:52:12.232] ...future.oldOptions <- base::as.list(base::.Options) 1532s [00:52:12.232] ...future.oldEnvVars <- base::Sys.getenv() 1532s [00:52:12.232] } 1532s [00:52:12.232] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1532s [00:52:12.232] future.globals.maxSize = NULL, future.globals.method = NULL, 1532s [00:52:12.232] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1532s [00:52:12.232] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1532s [00:52:12.232] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1532s [00:52:12.232] future.stdout.windows.reencode = NULL, width = 80L) 1532s [00:52:12.232] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1532s [00:52:12.232] base::names(...future.oldOptions)) 1532s [00:52:12.232] } 1532s [00:52:12.232] if (FALSE) { 1532s [00:52:12.232] } 1532s [00:52:12.232] else { 1532s [00:52:12.232] if (TRUE) { 1532s [00:52:12.232] ...future.stdout <- base::rawConnection(base::raw(0L), 1532s [00:52:12.232] open = "w") 1532s [00:52:12.232] } 1532s [00:52:12.232] else { 1532s [00:52:12.232] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1532s [00:52:12.232] windows = "NUL", "/dev/null"), open = "w") 1532s [00:52:12.232] } 1532s [00:52:12.232] base::sink(...future.stdout, type = "output", split = FALSE) 1532s [00:52:12.232] base::on.exit(if (!base::is.null(...future.stdout)) { 1532s [00:52:12.232] base::sink(type = "output", split = FALSE) 1532s [00:52:12.232] base::close(...future.stdout) 1532s [00:52:12.232] }, add = TRUE) 1532s [00:52:12.232] } 1532s [00:52:12.232] ...future.frame <- base::sys.nframe() 1532s [00:52:12.232] ...future.conditions <- base::list() 1532s [00:52:12.232] ...future.rng <- base::globalenv()$.Random.seed 1532s [00:52:12.232] if (FALSE) { 1532s [00:52:12.232] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1532s [00:52:12.232] "...future.value", "...future.globalenv.names", ".Random.seed") 1532s [00:52:12.232] } 1532s [00:52:12.232] ...future.result <- base::tryCatch({ 1532s [00:52:12.232] base::withCallingHandlers({ 1532s [00:52:12.232] ...future.value <- base::withVisible(base::local({ 1532s [00:52:12.232] do.call(function(...) { 1532s [00:52:12.232] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1532s [00:52:12.232] if (!identical(...future.globals.maxSize.org, 1532s [00:52:12.232] ...future.globals.maxSize)) { 1532s [00:52:12.232] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1532s [00:52:12.232] on.exit(options(oopts), add = TRUE) 1532s [00:52:12.232] } 1532s [00:52:12.232] { 1532s [00:52:12.232] lapply(seq_along(...future.elements_ii), 1532s [00:52:12.232] FUN = function(jj) { 1532s [00:52:12.232] ...future.X_jj <- ...future.elements_ii[[jj]] 1532s [00:52:12.232] ...future.FUN(...future.X_jj, ...) 1532s [00:52:12.232] }) 1532s [00:52:12.232] } 1532s [00:52:12.232] }, args = future.call.arguments) 1532s [00:52:12.232] })) 1532s [00:52:12.232] future::FutureResult(value = ...future.value$value, 1532s [00:52:12.232] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1532s [00:52:12.232] ...future.rng), globalenv = if (FALSE) 1532s [00:52:12.232] list(added = base::setdiff(base::names(base::.GlobalEnv), 1532s [00:52:12.232] ...future.globalenv.names)) 1532s [00:52:12.232] else NULL, started = ...future.startTime, version = "1.8") 1532s [00:52:12.232] }, condition = base::local({ 1532s [00:52:12.232] c <- base::c 1532s [00:52:12.232] inherits <- base::inherits 1532s [00:52:12.232] invokeRestart <- base::invokeRestart 1532s [00:52:12.232] length <- base::length 1532s [00:52:12.232] list <- base::list 1532s [00:52:12.232] seq.int <- base::seq.int 1532s [00:52:12.232] signalCondition <- base::signalCondition 1532s [00:52:12.232] sys.calls <- base::sys.calls 1532s [00:52:12.232] `[[` <- base::`[[` 1532s [00:52:12.232] `+` <- base::`+` 1532s [00:52:12.232] `<<-` <- base::`<<-` 1532s [00:52:12.232] sysCalls <- function(calls = sys.calls(), from = 1L) { 1532s [00:52:12.232] calls[seq.int(from = from + 12L, to = length(calls) - 1532s [00:52:12.232] 3L)] 1532s [00:52:12.232] } 1532s [00:52:12.232] function(cond) { 1532s [00:52:12.232] is_error <- inherits(cond, "error") 1532s [00:52:12.232] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1532s [00:52:12.232] NULL) 1532s [00:52:12.232] if (is_error) { 1532s [00:52:12.232] sessionInformation <- function() { 1532s [00:52:12.232] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1532s [00:52:12.232] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1532s [00:52:12.232] search = base::search(), system = base::Sys.info()) 1532s [00:52:12.232] } 1532s [00:52:12.232] ...future.conditions[[length(...future.conditions) + 1532s [00:52:12.232] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1532s [00:52:12.232] cond$call), session = sessionInformation(), 1532s [00:52:12.232] timestamp = base::Sys.time(), signaled = 0L) 1532s [00:52:12.232] signalCondition(cond) 1532s [00:52:12.232] } 1532s [00:52:12.232] else if (!ignore && TRUE && inherits(cond, c("condition", 1532s [00:52:12.232] "immediateCondition"))) { 1532s [00:52:12.232] signal <- TRUE && inherits(cond, "immediateCondition") 1532s [00:52:12.232] ...future.conditions[[length(...future.conditions) + 1532s [00:52:12.232] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1532s [00:52:12.232] if (TRUE && !signal) { 1532s [00:52:12.232] muffleCondition <- function (cond, pattern = "^muffle") 1532s [00:52:12.232] { 1532s [00:52:12.232] inherits <- base::inherits 1532s [00:52:12.232] invokeRestart <- base::invokeRestart 1532s [00:52:12.232] is.null <- base::is.null 1532s [00:52:12.232] muffled <- FALSE 1532s [00:52:12.232] if (inherits(cond, "message")) { 1532s [00:52:12.232] muffled <- grepl(pattern, "muffleMessage") 1532s [00:52:12.232] if (muffled) 1532s [00:52:12.232] invokeRestart("muffleMessage") 1532s [00:52:12.232] } 1532s [00:52:12.232] else if (inherits(cond, "warning")) { 1532s [00:52:12.232] muffled <- grepl(pattern, "muffleWarning") 1532s [00:52:12.232] if (muffled) 1532s [00:52:12.232] invokeRestart("muffleWarning") 1532s [00:52:12.232] } 1532s [00:52:12.232] else if (inherits(cond, "condition")) { 1532s [00:52:12.232] if (!is.null(pattern)) { 1532s [00:52:12.232] computeRestarts <- base::computeRestarts 1532s [00:52:12.232] grepl <- base::grepl 1532s [00:52:12.232] restarts <- computeRestarts(cond) 1532s [00:52:12.232] for (restart in restarts) { 1532s [00:52:12.232] name <- restart$name 1532s [00:52:12.232] if (is.null(name)) 1532s [00:52:12.232] next 1532s [00:52:12.232] if (!grepl(pattern, name)) 1532s [00:52:12.232] next 1532s [00:52:12.232] invokeRestart(restart) 1532s [00:52:12.232] muffled <- TRUE 1532s [00:52:12.232] break 1532s [00:52:12.232] } 1532s [00:52:12.232] } 1532s [00:52:12.232] } 1532s [00:52:12.232] invisible(muffled) 1532s [00:52:12.232] } 1532s [00:52:12.232] muffleCondition(cond, pattern = "^muffle") 1532s [00:52:12.232] } 1532s [00:52:12.232] } 1532s [00:52:12.232] else { 1532s [00:52:12.232] if (TRUE) { 1532s [00:52:12.232] muffleCondition <- function (cond, pattern = "^muffle") 1532s [00:52:12.232] { 1532s [00:52:12.232] inherits <- base::inherits 1532s [00:52:12.232] invokeRestart <- base::invokeRestart 1532s [00:52:12.232] is.null <- base::is.null 1532s [00:52:12.232] muffled <- FALSE 1532s [00:52:12.232] if (inherits(cond, "message")) { 1532s [00:52:12.232] muffled <- grepl(pattern, "muffleMessage") 1532s [00:52:12.232] if (muffled) 1532s [00:52:12.232] invokeRestart("muffleMessage") 1532s [00:52:12.232] } 1532s [00:52:12.232] else if (inherits(cond, "warning")) { 1532s [00:52:12.232] muffled <- grepl(pattern, "muffleWarning") 1532s [00:52:12.232] if (muffled) 1532s [00:52:12.232] invokeRestart("muffleWarning") 1532s [00:52:12.232] } 1532s [00:52:12.232] else if (inherits(cond, "condition")) { 1532s [00:52:12.232] if (!is.null(pattern)) { 1532s [00:52:12.232] computeRestarts <- base::computeRestarts 1532s [00:52:12.232] grepl <- base::grepl 1532s [00:52:12.232] restarts <- computeRestarts(cond) 1532s [00:52:12.232] for (restart in restarts) { 1532s [00:52:12.232] name <- restart$name 1532s [00:52:12.232] if (is.null(name)) 1532s [00:52:12.232] next 1532s [00:52:12.232] if (!grepl(pattern, name)) 1532s [00:52:12.232] next 1532s [00:52:12.232] invokeRestart(restart) 1532s [00:52:12.232] muffled <- TRUE 1532s [00:52:12.232] break 1532s [00:52:12.232] } 1532s [00:52:12.232] } 1532s [00:52:12.232] } 1532s [00:52:12.232] invisible(muffled) 1532s [00:52:12.232] } 1532s [00:52:12.232] muffleCondition(cond, pattern = "^muffle") 1532s [00:52:12.232] } 1532s [00:52:12.232] } 1532s [00:52:12.232] } 1532s [00:52:12.232] })) 1532s [00:52:12.232] }, error = function(ex) { 1532s [00:52:12.232] base::structure(base::list(value = NULL, visible = NULL, 1532s [00:52:12.232] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1532s [00:52:12.232] ...future.rng), started = ...future.startTime, 1532s [00:52:12.232] finished = Sys.time(), session_uuid = NA_character_, 1532s [00:52:12.232] version = "1.8"), class = "FutureResult") 1532s [00:52:12.232] }, finally = { 1532s [00:52:12.232] if (!identical(...future.workdir, getwd())) 1532s [00:52:12.232] setwd(...future.workdir) 1532s [00:52:12.232] { 1532s [00:52:12.232] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1532s [00:52:12.232] ...future.oldOptions$nwarnings <- NULL 1532s [00:52:12.232] } 1532s [00:52:12.232] base::options(...future.oldOptions) 1532s [00:52:12.232] if (.Platform$OS.type == "windows") { 1532s [00:52:12.232] old_names <- names(...future.oldEnvVars) 1532s [00:52:12.232] envs <- base::Sys.getenv() 1532s [00:52:12.232] names <- names(envs) 1532s [00:52:12.232] common <- intersect(names, old_names) 1532s [00:52:12.232] added <- setdiff(names, old_names) 1532s [00:52:12.232] removed <- setdiff(old_names, names) 1532s [00:52:12.232] changed <- common[...future.oldEnvVars[common] != 1532s [00:52:12.232] envs[common]] 1532s [00:52:12.232] NAMES <- toupper(changed) 1532s [00:52:12.232] args <- list() 1532s [00:52:12.232] for (kk in seq_along(NAMES)) { 1532s [00:52:12.232] name <- changed[[kk]] 1532s [00:52:12.232] NAME <- NAMES[[kk]] 1532s [00:52:12.232] if (name != NAME && is.element(NAME, old_names)) 1532s [00:52:12.232] next 1532s [00:52:12.232] args[[name]] <- ...future.oldEnvVars[[name]] 1532s [00:52:12.232] } 1532s [00:52:12.232] NAMES <- toupper(added) 1532s [00:52:12.232] for (kk in seq_along(NAMES)) { 1532s [00:52:12.232] name <- added[[kk]] 1532s [00:52:12.232] NAME <- NAMES[[kk]] 1532s [00:52:12.232] if (name != NAME && is.element(NAME, old_names)) 1532s [00:52:12.232] next 1532s [00:52:12.232] args[[name]] <- "" 1532s [00:52:12.232] } 1532s [00:52:12.232] NAMES <- toupper(removed) 1532s [00:52:12.232] for (kk in seq_along(NAMES)) { 1532s [00:52:12.232] name <- removed[[kk]] 1532s [00:52:12.232] NAME <- NAMES[[kk]] 1532s [00:52:12.232] if (name != NAME && is.element(NAME, old_names)) 1532s [00:52:12.232] next 1532s [00:52:12.232] args[[name]] <- ...future.oldEnvVars[[name]] 1532s [00:52:12.232] } 1532s [00:52:12.232] if (length(args) > 0) 1532s [00:52:12.232] base::do.call(base::Sys.setenv, args = args) 1532s [00:52:12.232] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1532s [00:52:12.232] } 1532s [00:52:12.232] else { 1532s [00:52:12.232] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1532s [00:52:12.232] } 1532s [00:52:12.232] { 1532s [00:52:12.232] if (base::length(...future.futureOptionsAdded) > 1532s [00:52:12.232] 0L) { 1532s [00:52:12.232] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1532s [00:52:12.232] base::names(opts) <- ...future.futureOptionsAdded 1532s [00:52:12.232] base::options(opts) 1532s [00:52:12.232] } 1532s [00:52:12.232] { 1532s [00:52:12.232] { 1532s [00:52:12.232] NULL 1532s [00:52:12.232] RNGkind("Mersenne-Twister") 1532s [00:52:12.232] base::rm(list = ".Random.seed", envir = base::globalenv(), 1532s [00:52:12.232] inherits = FALSE) 1532s [00:52:12.232] } 1532s [00:52:12.232] options(future.plan = NULL) 1532s [00:52:12.232] if (is.na(NA_character_)) 1532s [00:52:12.232] Sys.unsetenv("R_FUTURE_PLAN") 1532s [00:52:12.232] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1532s [00:52:12.232] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1532s [00:52:12.232] envir = parent.frame()) 1532s [00:52:12.232] { 1532s [00:52:12.232] default_workers <- missing(workers) 1532s [00:52:12.232] if (is.function(workers)) 1532s [00:52:12.232] workers <- workers() 1532s [00:52:12.232] workers <- structure(as.integer(workers), 1532s [00:52:12.232] class = class(workers)) 1532s [00:52:12.232] stop_if_not(is.finite(workers), workers >= 1532s [00:52:12.232] 1L) 1532s [00:52:12.232] if ((workers == 1L && !inherits(workers, 1532s [00:52:12.232] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1532s [00:52:12.232] if (default_workers) 1532s [00:52:12.232] supportsMulticore(warn = TRUE) 1532s [00:52:12.232] return(sequential(..., envir = envir)) 1532s [00:52:12.232] } 1532s [00:52:12.232] oopts <- options(mc.cores = workers) 1532s [00:52:12.232] on.exit(options(oopts)) 1532s [00:52:12.232] future <- MulticoreFuture(..., workers = workers, 1532s [00:52:12.232] envir = envir) 1532s [00:52:12.232] if (!future$lazy) 1532s [00:52:12.232] future <- run(future) 1532s [00:52:12.232] invisible(future) 1532s [00:52:12.232] }), .cleanup = FALSE, .init = FALSE) 1532s [00:52:12.232] } 1532s [00:52:12.232] } 1532s [00:52:12.232] } 1532s [00:52:12.232] }) 1532s [00:52:12.232] if (TRUE) { 1532s [00:52:12.232] base::sink(type = "output", split = FALSE) 1532s [00:52:12.232] if (TRUE) { 1532s [00:52:12.232] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1532s [00:52:12.232] } 1532s [00:52:12.232] else { 1532s [00:52:12.232] ...future.result["stdout"] <- base::list(NULL) 1532s [00:52:12.232] } 1532s [00:52:12.232] base::close(...future.stdout) 1532s [00:52:12.232] ...future.stdout <- NULL 1532s [00:52:12.232] } 1532s [00:52:12.232] ...future.result$conditions <- ...future.conditions 1532s [00:52:12.232] ...future.result$finished <- base::Sys.time() 1532s [00:52:12.232] ...future.result 1532s [00:52:12.232] } 1532s [00:52:12.237] assign_globals() ... 1532s [00:52:12.238] List of 5 1532s [00:52:12.238] $ ...future.FUN :function (object, ...) 1532s [00:52:12.238] $ future.call.arguments :List of 1 1532s [00:52:12.238] ..$ digits: int 2 1532s [00:52:12.238] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1532s [00:52:12.238] $ ...future.elements_ii :List of 6 1532s [00:52:12.238] ..$ : num [1:9] 26 30 54 25 70 52 51 26 67 1532s [00:52:12.238] ..$ : num [1:9] 27 14 29 19 29 31 41 20 44 1532s [00:52:12.238] ..$ : num [1:9] 18 21 29 17 12 18 35 30 36 1532s [00:52:12.238] ..$ : num [1:9] 42 26 19 16 39 28 21 39 29 1532s [00:52:12.238] ..$ : num [1:9] 36 21 24 18 10 43 28 15 26 1532s [00:52:12.238] ..$ : num [1:9] 20 21 24 17 13 15 15 16 28 1532s [00:52:12.238] $ ...future.seeds_ii : NULL 1532s [00:52:12.238] $ ...future.globals.maxSize: NULL 1532s [00:52:12.238] - attr(*, "where")=List of 5 1532s [00:52:12.238] ..$ ...future.FUN : 1532s [00:52:12.238] ..$ future.call.arguments : 1532s [00:52:12.238] ..$ ...future.elements_ii : 1532s [00:52:12.238] ..$ ...future.seeds_ii : 1532s [00:52:12.238] ..$ ...future.globals.maxSize: 1532s [00:52:12.238] - attr(*, "resolved")= logi FALSE 1532s [00:52:12.238] - attr(*, "total_size")= num 1296 1532s [00:52:12.238] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1532s [00:52:12.238] - attr(*, "already-done")= logi TRUE 1532s [00:52:12.258] - copied ‘...future.FUN’ to environment 1532s [00:52:12.258] - copied ‘future.call.arguments’ to environment 1532s [00:52:12.258] - copied ‘...future.elements_ii’ to environment 1532s [00:52:12.260] - copied ‘...future.seeds_ii’ to environment 1532s [00:52:12.260] - copied ‘...future.globals.maxSize’ to environment 1532s [00:52:12.260] assign_globals() ... done 1532s [00:52:12.261] plan(): Setting new future strategy stack: 1532s [00:52:12.261] List of future strategies: 1532s [00:52:12.261] 1. sequential: 1532s [00:52:12.261] - args: function (..., envir = parent.frame()) 1532s [00:52:12.261] - tweaked: FALSE 1532s [00:52:12.261] - call: NULL 1532s [00:52:12.261] plan(): nbrOfWorkers() = 1 1532s [00:52:12.263] plan(): Setting new future strategy stack: 1532s [00:52:12.263] List of future strategies: 1532s [00:52:12.263] 1. multicore: 1532s [00:52:12.263] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1532s [00:52:12.263] - tweaked: FALSE 1532s [00:52:12.263] - call: plan(strategy) 1532s [00:52:12.267] plan(): nbrOfWorkers() = 1 1532s [00:52:12.268] SequentialFuture started (and completed) 1532s [00:52:12.268] - Launch lazy future ... done 1532s [00:52:12.268] run() for ‘SequentialFuture’ ... done 1532s [00:52:12.268] Created future: 1532s [00:52:12.268] SequentialFuture: 1532s [00:52:12.268] Label: ‘future_by-1’ 1532s [00:52:12.268] Expression: 1532s [00:52:12.268] { 1532s [00:52:12.268] do.call(function(...) { 1532s [00:52:12.268] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1532s [00:52:12.268] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1532s [00:52:12.268] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1532s [00:52:12.268] on.exit(options(oopts), add = TRUE) 1532s [00:52:12.268] } 1532s [00:52:12.268] { 1532s [00:52:12.268] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1532s [00:52:12.268] ...future.X_jj <- ...future.elements_ii[[jj]] 1532s [00:52:12.268] ...future.FUN(...future.X_jj, ...) 1532s [00:52:12.268] }) 1532s [00:52:12.268] } 1532s [00:52:12.268] }, args = future.call.arguments) 1532s [00:52:12.268] } 1532s [00:52:12.268] Lazy evaluation: FALSE 1532s [00:52:12.268] Asynchronous evaluation: FALSE 1532s [00:52:12.268] Local evaluation: TRUE 1532s [00:52:12.268] Environment: R_GlobalEnv 1532s [00:52:12.268] Capture standard output: TRUE 1532s [00:52:12.268] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1532s [00:52:12.268] Globals: 5 objects totaling 2.30 KiB (function ‘...future.FUN’ of 1.21 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 1.03 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1532s [00:52:12.268] Packages: 1532s [00:52:12.268] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1532s [00:52:12.268] Resolved: TRUE 1532s [00:52:12.268] Value: 5.48 KiB of class ‘list’ 1532s [00:52:12.268] Early signaling: FALSE 1532s [00:52:12.268] Owner process: 64a671dd-8756-a081-baa7-973da233f197 1532s [00:52:12.268] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1532s [00:52:12.270] Chunk #1 of 1 ... DONE 1532s [00:52:12.270] Launching 1 futures (chunks) ... DONE 1532s [00:52:12.270] Resolving 1 futures (chunks) ... 1532s [00:52:12.270] resolve() on list ... 1532s [00:52:12.270] recursive: 0 1532s [00:52:12.270] length: 1 1532s [00:52:12.271] 1532s [00:52:12.271] resolved() for ‘SequentialFuture’ ... 1532s [00:52:12.271] - state: ‘finished’ 1532s [00:52:12.271] - run: TRUE 1532s [00:52:12.271] - result: ‘FutureResult’ 1532s [00:52:12.271] resolved() for ‘SequentialFuture’ ... done 1532s [00:52:12.271] Future #1 1532s [00:52:12.272] signalConditionsASAP(SequentialFuture, pos=1) ... 1532s [00:52:12.272] - nx: 1 1532s [00:52:12.272] - relay: TRUE 1532s [00:52:12.272] - stdout: TRUE 1532s [00:52:12.273] - signal: TRUE 1532s [00:52:12.273] - resignal: FALSE 1532s [00:52:12.273] - force: TRUE 1532s [00:52:12.273] - relayed: [n=1] FALSE 1532s [00:52:12.274] - queued futures: [n=1] FALSE 1532s [00:52:12.274] - until=1 1532s [00:52:12.274] - relaying element #1 1532s [00:52:12.275] - relayed: [n=1] TRUE 1532s [00:52:12.275] - queued futures: [n=1] TRUE 1532s [00:52:12.275] signalConditionsASAP(SequentialFuture, pos=1) ... done 1532s [00:52:12.275] length: 0 (resolved future 1) 1532s [00:52:12.276] Relaying remaining futures 1532s [00:52:12.276] signalConditionsASAP(NULL, pos=0) ... 1532s [00:52:12.276] - nx: 1 1532s [00:52:12.276] - relay: TRUE 1532s [00:52:12.276] - stdout: TRUE 1532s [00:52:12.276] - signal: TRUE 1532s [00:52:12.277] - resignal: FALSE 1532s [00:52:12.277] - force: TRUE 1532s [00:52:12.277] - relayed: [n=1] TRUE 1532s [00:52:12.277] - queued futures: [n=1] TRUE 1532s - flush all 1532s [00:52:12.277] - relayed: [n=1] TRUE 1532s [00:52:12.277] - queued futures: [n=1] TRUE 1532s [00:52:12.278] signalConditionsASAP(NULL, pos=0) ... done 1532s [00:52:12.278] resolve() on list ... DONE 1532s [00:52:12.279] - Number of value chunks collected: 1 1532s [00:52:12.279] Resolving 1 futures (chunks) ... DONE 1532s [00:52:12.279] Reducing values from 1 chunks ... 1532s [00:52:12.279] - Number of values collected after concatenation: 6 1532s [00:52:12.279] - Number of values expected: 6 1532s [00:52:12.279] Reducing values from 1 chunks ... DONE 1532s [00:52:12.279] future_lapply() ... DONE 1532s [00:52:12.280] future_by_internal() ... DONE 1532s [00:52:12.284] future_by_internal() ... 1532s [00:52:12.286] future_lapply() ... 1532s [00:52:12.354] Number of chunks: 1 1532s [00:52:12.354] getGlobalsAndPackagesXApply() ... 1532s [00:52:12.354] - future.globals: TRUE 1532s [00:52:12.355] getGlobalsAndPackages() ... 1532s [00:52:12.355] Searching for globals... 1532s [00:52:12.357] - globals found: [6] ‘FUN’, ‘{’, ‘lm’, ‘~’, ‘breaks’, ‘wool’ 1532s [00:52:12.357] Searching for globals ... DONE 1532s [00:52:12.357] Resolving globals: FALSE 1532s [00:52:12.358] The total size of the 1 globals is 5.20 KiB (5328 bytes) 1532s [00:52:12.359] The total size of the 1 globals exported for future expression (‘FUN(singular.ok = FALSE)’) is 5.20 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (5.20 KiB of class ‘function’) 1532s [00:52:12.359] - globals: [1] ‘FUN’ 1532s [00:52:12.359] - packages: [1] ‘stats’ 1532s [00:52:12.359] getGlobalsAndPackages() ... DONE 1532s [00:52:12.359] - globals found/used: [n=1] ‘FUN’ 1532s [00:52:12.359] - needed namespaces: [n=1] ‘stats’ 1532s [00:52:12.360] Finding globals ... DONE 1532s [00:52:12.360] - use_args: TRUE 1532s [00:52:12.360] - Getting '...' globals ... 1532s [00:52:12.360] resolve() on list ... 1532s [00:52:12.361] recursive: 0 1532s [00:52:12.361] length: 1 1532s [00:52:12.361] elements: ‘...’ 1532s [00:52:12.361] length: 0 (resolved future 1) 1532s [00:52:12.361] resolve() on list ... DONE 1532s [00:52:12.362] - '...' content: [n=1] ‘singular.ok’ 1532s [00:52:12.362] List of 1 1532s [00:52:12.362] $ ...:List of 1 1532s [00:52:12.362] ..$ singular.ok: logi FALSE 1532s [00:52:12.362] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1532s [00:52:12.362] - attr(*, "where")=List of 1 1532s [00:52:12.362] ..$ ...: 1532s [00:52:12.362] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1532s [00:52:12.362] - attr(*, "resolved")= logi TRUE 1532s [00:52:12.362] - attr(*, "total_size")= num NA 1532s [00:52:12.368] - Getting '...' globals ... DONE 1532s [00:52:12.369] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1532s [00:52:12.369] List of 2 1532s [00:52:12.369] $ ...future.FUN:function (x, ...) 1532s [00:52:12.369] $ ... :List of 1 1532s [00:52:12.369] ..$ singular.ok: logi FALSE 1532s [00:52:12.369] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1532s [00:52:12.369] - attr(*, "where")=List of 2 1532s [00:52:12.369] ..$ ...future.FUN: 1532s [00:52:12.369] ..$ ... : 1532s [00:52:12.369] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1532s [00:52:12.369] - attr(*, "resolved")= logi FALSE 1532s [00:52:12.369] - attr(*, "total_size")= num 5384 1532s [00:52:12.379] Packages to be attached in all futures: [n=1] ‘stats’ 1532s [00:52:12.380] getGlobalsAndPackagesXApply() ... DONE 1532s [00:52:12.380] Number of futures (= number of chunks): 1 1532s [00:52:12.381] Launching 1 futures (chunks) ... 1532s [00:52:12.381] Chunk #1 of 1 ... 1532s [00:52:12.381] - Finding globals in 'X' for chunk #1 ... 1532s [00:52:12.382] getGlobalsAndPackages() ... 1532s [00:52:12.382] Searching for globals... 1532s [00:52:12.383] 1532s [00:52:12.383] Searching for globals ... DONE 1532s [00:52:12.384] - globals: [0] 1532s [00:52:12.384] getGlobalsAndPackages() ... DONE 1532s [00:52:12.384] + additional globals found: [n=0] 1532s [00:52:12.384] + additional namespaces needed: [n=0] 1532s [00:52:12.385] - Finding globals in 'X' for chunk #1 ... DONE 1532s [00:52:12.385] - seeds: 1532s [00:52:12.385] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1532s [00:52:12.386] getGlobalsAndPackages() ... 1532s [00:52:12.386] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1532s [00:52:12.386] Resolving globals: FALSE 1532s [00:52:12.386] Tweak future expression to call with '...' arguments ... 1532s [00:52:12.387] { 1532s [00:52:12.387] do.call(function(...) { 1532s [00:52:12.387] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1532s [00:52:12.387] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1532s [00:52:12.387] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1532s [00:52:12.387] on.exit(options(oopts), add = TRUE) 1532s [00:52:12.387] } 1532s [00:52:12.387] { 1532s [00:52:12.387] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1532s [00:52:12.387] ...future.X_jj <- ...future.elements_ii[[jj]] 1532s [00:52:12.387] ...future.FUN(...future.X_jj, ...) 1532s [00:52:12.387] }) 1532s [00:52:12.387] } 1532s [00:52:12.387] }, args = future.call.arguments) 1532s [00:52:12.387] } 1532s [00:52:12.387] Tweak future expression to call with '...' arguments ... DONE 1532s [00:52:12.388] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1532s [00:52:12.388] 1532s [00:52:12.388] getGlobalsAndPackages() ... DONE 1532s [00:52:12.389] run() for ‘Future’ ... 1532s [00:52:12.389] - state: ‘created’ 1532s [00:52:12.390] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1532s [00:52:12.395] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1532s [00:52:12.396] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1532s [00:52:12.396] - Field: ‘label’ 1532s [00:52:12.396] - Field: ‘local’ 1532s [00:52:12.396] - Field: ‘owner’ 1532s [00:52:12.396] - Field: ‘envir’ 1532s [00:52:12.397] - Field: ‘packages’ 1532s [00:52:12.397] - Field: ‘gc’ 1532s [00:52:12.397] - Field: ‘conditions’ 1532s [00:52:12.397] - Field: ‘expr’ 1532s [00:52:12.397] - Field: ‘uuid’ 1532s [00:52:12.397] - Field: ‘seed’ 1532s [00:52:12.398] - Field: ‘version’ 1532s [00:52:12.398] - Field: ‘result’ 1532s [00:52:12.398] - Field: ‘asynchronous’ 1532s [00:52:12.398] - Field: ‘calls’ 1532s [00:52:12.398] - Field: ‘globals’ 1532s [00:52:12.398] - Field: ‘stdout’ 1532s [00:52:12.399] - Field: ‘earlySignal’ 1532s [00:52:12.399] - Field: ‘lazy’ 1532s [00:52:12.399] - Field: ‘state’ 1532s [00:52:12.399] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1532s [00:52:12.399] - Launch lazy future ... 1532s [00:52:12.400] Packages needed by the future expression (n = 1): ‘stats’ 1532s [00:52:12.400] Packages needed by future strategies (n = 0): 1532s [00:52:12.401] { 1532s [00:52:12.401] { 1532s [00:52:12.401] { 1532s [00:52:12.401] ...future.startTime <- base::Sys.time() 1532s [00:52:12.401] { 1532s [00:52:12.401] { 1532s [00:52:12.401] { 1532s [00:52:12.401] { 1532s [00:52:12.401] base::local({ 1532s [00:52:12.401] has_future <- base::requireNamespace("future", 1532s [00:52:12.401] quietly = TRUE) 1532s [00:52:12.401] if (has_future) { 1532s [00:52:12.401] ns <- base::getNamespace("future") 1532s [00:52:12.401] version <- ns[[".package"]][["version"]] 1532s [00:52:12.401] if (is.null(version)) 1532s [00:52:12.401] version <- utils::packageVersion("future") 1532s [00:52:12.401] } 1532s [00:52:12.401] else { 1532s [00:52:12.401] version <- NULL 1532s [00:52:12.401] } 1532s [00:52:12.401] if (!has_future || version < "1.8.0") { 1532s [00:52:12.401] info <- base::c(r_version = base::gsub("R version ", 1532s [00:52:12.401] "", base::R.version$version.string), 1532s [00:52:12.401] platform = base::sprintf("%s (%s-bit)", 1532s [00:52:12.401] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1532s [00:52:12.401] os = base::paste(base::Sys.info()[base::c("sysname", 1532s [00:52:12.401] "release", "version")], collapse = " "), 1532s [00:52:12.401] hostname = base::Sys.info()[["nodename"]]) 1532s [00:52:12.401] info <- base::sprintf("%s: %s", base::names(info), 1532s [00:52:12.401] info) 1532s [00:52:12.401] info <- base::paste(info, collapse = "; ") 1532s [00:52:12.401] if (!has_future) { 1532s [00:52:12.401] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1532s [00:52:12.401] info) 1532s [00:52:12.401] } 1532s [00:52:12.401] else { 1532s [00:52:12.401] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1532s [00:52:12.401] info, version) 1532s [00:52:12.401] } 1532s [00:52:12.401] base::stop(msg) 1532s [00:52:12.401] } 1532s [00:52:12.401] }) 1532s [00:52:12.401] } 1532s [00:52:12.401] base::local({ 1532s [00:52:12.401] for (pkg in "stats") { 1532s [00:52:12.401] base::loadNamespace(pkg) 1532s [00:52:12.401] base::library(pkg, character.only = TRUE) 1532s [00:52:12.401] } 1532s [00:52:12.401] }) 1532s [00:52:12.401] } 1532s [00:52:12.401] options(future.plan = NULL) 1532s [00:52:12.401] Sys.unsetenv("R_FUTURE_PLAN") 1532s [00:52:12.401] future::plan("default", .cleanup = FALSE, .init = FALSE) 1532s [00:52:12.401] } 1532s [00:52:12.401] ...future.workdir <- getwd() 1532s [00:52:12.401] } 1532s [00:52:12.401] ...future.oldOptions <- base::as.list(base::.Options) 1532s [00:52:12.401] ...future.oldEnvVars <- base::Sys.getenv() 1532s [00:52:12.401] } 1532s [00:52:12.401] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1532s [00:52:12.401] future.globals.maxSize = NULL, future.globals.method = NULL, 1532s [00:52:12.401] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1532s [00:52:12.401] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1532s [00:52:12.401] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1532s [00:52:12.401] future.stdout.windows.reencode = NULL, width = 80L) 1532s [00:52:12.401] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1532s [00:52:12.401] base::names(...future.oldOptions)) 1532s [00:52:12.401] } 1532s [00:52:12.401] if (FALSE) { 1532s [00:52:12.401] } 1532s [00:52:12.401] else { 1532s [00:52:12.401] if (TRUE) { 1532s [00:52:12.401] ...future.stdout <- base::rawConnection(base::raw(0L), 1532s [00:52:12.401] open = "w") 1532s [00:52:12.401] } 1532s [00:52:12.401] else { 1532s [00:52:12.401] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1532s [00:52:12.401] windows = "NUL", "/dev/null"), open = "w") 1532s [00:52:12.401] } 1532s [00:52:12.401] base::sink(...future.stdout, type = "output", split = FALSE) 1532s [00:52:12.401] base::on.exit(if (!base::is.null(...future.stdout)) { 1532s [00:52:12.401] base::sink(type = "output", split = FALSE) 1532s [00:52:12.401] base::close(...future.stdout) 1532s [00:52:12.401] }, add = TRUE) 1532s [00:52:12.401] } 1532s [00:52:12.401] ...future.frame <- base::sys.nframe() 1532s [00:52:12.401] ...future.conditions <- base::list() 1532s [00:52:12.401] ...future.rng <- base::globalenv()$.Random.seed 1532s [00:52:12.401] if (FALSE) { 1532s [00:52:12.401] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1532s [00:52:12.401] "...future.value", "...future.globalenv.names", ".Random.seed") 1532s [00:52:12.401] } 1532s [00:52:12.401] ...future.result <- base::tryCatch({ 1532s [00:52:12.401] base::withCallingHandlers({ 1532s [00:52:12.401] ...future.value <- base::withVisible(base::local({ 1532s [00:52:12.401] do.call(function(...) { 1532s [00:52:12.401] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1532s [00:52:12.401] if (!identical(...future.globals.maxSize.org, 1532s [00:52:12.401] ...future.globals.maxSize)) { 1532s [00:52:12.401] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1532s [00:52:12.401] on.exit(options(oopts), add = TRUE) 1532s [00:52:12.401] } 1532s [00:52:12.401] { 1532s [00:52:12.401] lapply(seq_along(...future.elements_ii), 1532s [00:52:12.401] FUN = function(jj) { 1532s [00:52:12.401] ...future.X_jj <- ...future.elements_ii[[jj]] 1532s [00:52:12.401] ...future.FUN(...future.X_jj, ...) 1532s [00:52:12.401] }) 1532s [00:52:12.401] } 1532s [00:52:12.401] }, args = future.call.arguments) 1532s [00:52:12.401] })) 1532s [00:52:12.401] future::FutureResult(value = ...future.value$value, 1532s [00:52:12.401] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1532s [00:52:12.401] ...future.rng), globalenv = if (FALSE) 1532s [00:52:12.401] list(added = base::setdiff(base::names(base::.GlobalEnv), 1532s [00:52:12.401] ...future.globalenv.names)) 1532s [00:52:12.401] else NULL, started = ...future.startTime, version = "1.8") 1532s [00:52:12.401] }, condition = base::local({ 1532s [00:52:12.401] c <- base::c 1532s [00:52:12.401] inherits <- base::inherits 1532s [00:52:12.401] invokeRestart <- base::invokeRestart 1532s [00:52:12.401] length <- base::length 1532s [00:52:12.401] list <- base::list 1532s [00:52:12.401] seq.int <- base::seq.int 1532s [00:52:12.401] signalCondition <- base::signalCondition 1532s [00:52:12.401] sys.calls <- base::sys.calls 1532s [00:52:12.401] `[[` <- base::`[[` 1532s [00:52:12.401] `+` <- base::`+` 1532s [00:52:12.401] `<<-` <- base::`<<-` 1532s [00:52:12.401] sysCalls <- function(calls = sys.calls(), from = 1L) { 1532s [00:52:12.401] calls[seq.int(from = from + 12L, to = length(calls) - 1532s [00:52:12.401] 3L)] 1532s [00:52:12.401] } 1532s [00:52:12.401] function(cond) { 1532s [00:52:12.401] is_error <- inherits(cond, "error") 1532s [00:52:12.401] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1532s [00:52:12.401] NULL) 1532s [00:52:12.401] if (is_error) { 1532s [00:52:12.401] sessionInformation <- function() { 1532s [00:52:12.401] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1532s [00:52:12.401] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1532s [00:52:12.401] search = base::search(), system = base::Sys.info()) 1532s [00:52:12.401] } 1532s [00:52:12.401] ...future.conditions[[length(...future.conditions) + 1532s [00:52:12.401] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1532s [00:52:12.401] cond$call), session = sessionInformation(), 1532s [00:52:12.401] timestamp = base::Sys.time(), signaled = 0L) 1532s [00:52:12.401] signalCondition(cond) 1532s [00:52:12.401] } 1532s [00:52:12.401] else if (!ignore && TRUE && inherits(cond, c("condition", 1532s [00:52:12.401] "immediateCondition"))) { 1532s [00:52:12.401] signal <- TRUE && inherits(cond, "immediateCondition") 1532s [00:52:12.401] ...future.conditions[[length(...future.conditions) + 1532s [00:52:12.401] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1532s [00:52:12.401] if (TRUE && !signal) { 1532s [00:52:12.401] muffleCondition <- function (cond, pattern = "^muffle") 1532s [00:52:12.401] { 1532s [00:52:12.401] inherits <- base::inherits 1532s [00:52:12.401] invokeRestart <- base::invokeRestart 1532s [00:52:12.401] is.null <- base::is.null 1532s [00:52:12.401] muffled <- FALSE 1532s [00:52:12.401] if (inherits(cond, "message")) { 1532s [00:52:12.401] muffled <- grepl(pattern, "muffleMessage") 1532s [00:52:12.401] if (muffled) 1532s [00:52:12.401] invokeRestart("muffleMessage") 1532s [00:52:12.401] } 1532s [00:52:12.401] else if (inherits(cond, "warning")) { 1532s [00:52:12.401] muffled <- grepl(pattern, "muffleWarning") 1532s [00:52:12.401] if (muffled) 1532s [00:52:12.401] invokeRestart("muffleWarning") 1532s [00:52:12.401] } 1532s [00:52:12.401] else if (inherits(cond, "condition")) { 1532s [00:52:12.401] if (!is.null(pattern)) { 1532s [00:52:12.401] computeRestarts <- base::computeRestarts 1532s [00:52:12.401] grepl <- base::grepl 1532s [00:52:12.401] restarts <- computeRestarts(cond) 1532s [00:52:12.401] for (restart in restarts) { 1532s [00:52:12.401] name <- restart$name 1532s [00:52:12.401] if (is.null(name)) 1532s [00:52:12.401] next 1532s [00:52:12.401] if (!grepl(pattern, name)) 1532s [00:52:12.401] next 1532s [00:52:12.401] invokeRestart(restart) 1532s [00:52:12.401] muffled <- TRUE 1532s [00:52:12.401] break 1532s [00:52:12.401] } 1532s [00:52:12.401] } 1532s [00:52:12.401] } 1532s [00:52:12.401] invisible(muffled) 1532s [00:52:12.401] } 1532s [00:52:12.401] muffleCondition(cond, pattern = "^muffle") 1532s [00:52:12.401] } 1532s [00:52:12.401] } 1532s [00:52:12.401] else { 1532s [00:52:12.401] if (TRUE) { 1532s [00:52:12.401] muffleCondition <- function (cond, pattern = "^muffle") 1532s [00:52:12.401] { 1532s [00:52:12.401] inherits <- base::inherits 1532s [00:52:12.401] invokeRestart <- base::invokeRestart 1532s [00:52:12.401] is.null <- base::is.null 1532s [00:52:12.401] muffled <- FALSE 1532s [00:52:12.401] if (inherits(cond, "message")) { 1532s [00:52:12.401] muffled <- grepl(pattern, "muffleMessage") 1532s [00:52:12.401] if (muffled) 1532s [00:52:12.401] invokeRestart("muffleMessage") 1532s [00:52:12.401] } 1532s [00:52:12.401] else if (inherits(cond, "warning")) { 1532s [00:52:12.401] muffled <- grepl(pattern, "muffleWarning") 1532s [00:52:12.401] if (muffled) 1532s [00:52:12.401] invokeRestart("muffleWarning") 1532s [00:52:12.401] } 1532s [00:52:12.401] else if (inherits(cond, "condition")) { 1532s [00:52:12.401] if (!is.null(pattern)) { 1532s [00:52:12.401] computeRestarts <- base::computeRestarts 1532s [00:52:12.401] grepl <- base::grepl 1532s [00:52:12.401] restarts <- computeRestarts(cond) 1532s [00:52:12.401] for (restart in restarts) { 1532s [00:52:12.401] name <- restart$name 1532s [00:52:12.401] if (is.null(name)) 1532s [00:52:12.401] next 1532s [00:52:12.401] if (!grepl(pattern, name)) 1532s [00:52:12.401] next 1532s [00:52:12.401] invokeRestart(restart) 1532s [00:52:12.401] muffled <- TRUE 1532s [00:52:12.401] break 1532s [00:52:12.401] } 1532s [00:52:12.401] } 1532s [00:52:12.401] } 1532s [00:52:12.401] invisible(muffled) 1532s [00:52:12.401] } 1532s [00:52:12.401] muffleCondition(cond, pattern = "^muffle") 1532s [00:52:12.401] } 1532s [00:52:12.401] } 1532s [00:52:12.401] } 1532s [00:52:12.401] })) 1532s [00:52:12.401] }, error = function(ex) { 1532s [00:52:12.401] base::structure(base::list(value = NULL, visible = NULL, 1532s [00:52:12.401] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1532s [00:52:12.401] ...future.rng), started = ...future.startTime, 1532s [00:52:12.401] finished = Sys.time(), session_uuid = NA_character_, 1532s [00:52:12.401] version = "1.8"), class = "FutureResult") 1532s [00:52:12.401] }, finally = { 1532s [00:52:12.401] if (!identical(...future.workdir, getwd())) 1532s [00:52:12.401] setwd(...future.workdir) 1532s [00:52:12.401] { 1532s [00:52:12.401] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1532s [00:52:12.401] ...future.oldOptions$nwarnings <- NULL 1532s [00:52:12.401] } 1532s [00:52:12.401] base::options(...future.oldOptions) 1532s [00:52:12.401] if (.Platform$OS.type == "windows") { 1532s [00:52:12.401] old_names <- names(...future.oldEnvVars) 1532s [00:52:12.401] envs <- base::Sys.getenv() 1532s [00:52:12.401] names <- names(envs) 1532s [00:52:12.401] common <- intersect(names, old_names) 1532s [00:52:12.401] added <- setdiff(names, old_names) 1532s [00:52:12.401] removed <- setdiff(old_names, names) 1532s [00:52:12.401] changed <- common[...future.oldEnvVars[common] != 1532s [00:52:12.401] envs[common]] 1532s [00:52:12.401] NAMES <- toupper(changed) 1532s [00:52:12.401] args <- list() 1532s [00:52:12.401] for (kk in seq_along(NAMES)) { 1532s [00:52:12.401] name <- changed[[kk]] 1532s [00:52:12.401] NAME <- NAMES[[kk]] 1532s [00:52:12.401] if (name != NAME && is.element(NAME, old_names)) 1532s [00:52:12.401] next 1532s [00:52:12.401] args[[name]] <- ...future.oldEnvVars[[name]] 1532s [00:52:12.401] } 1532s [00:52:12.401] NAMES <- toupper(added) 1532s [00:52:12.401] for (kk in seq_along(NAMES)) { 1532s [00:52:12.401] name <- added[[kk]] 1532s [00:52:12.401] NAME <- NAMES[[kk]] 1532s [00:52:12.401] if (name != NAME && is.element(NAME, old_names)) 1532s [00:52:12.401] next 1532s [00:52:12.401] args[[name]] <- "" 1532s [00:52:12.401] } 1532s [00:52:12.401] NAMES <- toupper(removed) 1532s [00:52:12.401] for (kk in seq_along(NAMES)) { 1532s [00:52:12.401] name <- removed[[kk]] 1532s [00:52:12.401] NAME <- NAMES[[kk]] 1532s [00:52:12.401] if (name != NAME && is.element(NAME, old_names)) 1532s [00:52:12.401] next 1532s [00:52:12.401] args[[name]] <- ...future.oldEnvVars[[name]] 1532s [00:52:12.401] } 1532s [00:52:12.401] if (length(args) > 0) 1532s [00:52:12.401] base::do.call(base::Sys.setenv, args = args) 1532s [00:52:12.401] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1532s [00:52:12.401] } 1532s [00:52:12.401] else { 1532s [00:52:12.401] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1532s [00:52:12.401] } 1532s [00:52:12.401] { 1532s [00:52:12.401] if (base::length(...future.futureOptionsAdded) > 1532s [00:52:12.401] 0L) { 1532s [00:52:12.401] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1532s [00:52:12.401] base::names(opts) <- ...future.futureOptionsAdded 1532s [00:52:12.401] base::options(opts) 1532s [00:52:12.401] } 1532s [00:52:12.401] { 1532s [00:52:12.401] { 1532s [00:52:12.401] NULL 1532s [00:52:12.401] RNGkind("Mersenne-Twister") 1532s [00:52:12.401] base::rm(list = ".Random.seed", envir = base::globalenv(), 1532s [00:52:12.401] inherits = FALSE) 1532s [00:52:12.401] } 1532s [00:52:12.401] options(future.plan = NULL) 1532s [00:52:12.401] if (is.na(NA_character_)) 1532s [00:52:12.401] Sys.unsetenv("R_FUTURE_PLAN") 1532s [00:52:12.401] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1532s [00:52:12.401] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1532s [00:52:12.401] envir = parent.frame()) 1532s [00:52:12.401] { 1532s [00:52:12.401] default_workers <- missing(workers) 1532s [00:52:12.401] if (is.function(workers)) 1532s [00:52:12.401] workers <- workers() 1532s [00:52:12.401] workers <- structure(as.integer(workers), 1532s [00:52:12.401] class = class(workers)) 1532s [00:52:12.401] stop_if_not(is.finite(workers), workers >= 1532s [00:52:12.401] 1L) 1532s [00:52:12.401] if ((workers == 1L && !inherits(workers, 1532s [00:52:12.401] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1532s [00:52:12.401] if (default_workers) 1532s [00:52:12.401] supportsMulticore(warn = TRUE) 1532s [00:52:12.401] return(sequential(..., envir = envir)) 1532s [00:52:12.401] } 1532s [00:52:12.401] oopts <- options(mc.cores = workers) 1532s [00:52:12.401] on.exit(options(oopts)) 1532s [00:52:12.401] future <- MulticoreFuture(..., workers = workers, 1532s [00:52:12.401] envir = envir) 1532s [00:52:12.401] if (!future$lazy) 1532s [00:52:12.401] future <- run(future) 1532s [00:52:12.401] invisible(future) 1532s [00:52:12.401] }), .cleanup = FALSE, .init = FALSE) 1532s [00:52:12.401] } 1532s [00:52:12.401] } 1532s [00:52:12.401] } 1532s [00:52:12.401] }) 1532s [00:52:12.401] if (TRUE) { 1532s [00:52:12.401] base::sink(type = "output", split = FALSE) 1532s [00:52:12.401] if (TRUE) { 1532s [00:52:12.401] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1532s [00:52:12.401] } 1532s [00:52:12.401] else { 1532s [00:52:12.401] ...future.result["stdout"] <- base::list(NULL) 1532s [00:52:12.401] } 1532s [00:52:12.401] base::close(...future.stdout) 1532s [00:52:12.401] ...future.stdout <- NULL 1532s [00:52:12.401] } 1532s [00:52:12.401] ...future.result$conditions <- ...future.conditions 1532s [00:52:12.401] ...future.result$finished <- base::Sys.time() 1532s [00:52:12.401] ...future.result 1532s [00:52:12.401] } 1532s [00:52:12.407] assign_globals() ... 1532s [00:52:12.407] List of 5 1532s [00:52:12.407] $ ...future.FUN :function (x, ...) 1532s [00:52:12.407] $ future.call.arguments :List of 1 1532s [00:52:12.407] ..$ singular.ok: logi FALSE 1532s [00:52:12.407] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1532s [00:52:12.407] $ ...future.elements_ii :List of 3 1532s [00:52:12.407] ..$ :'data.frame': 18 obs. of 3 variables: 1532s [00:52:12.407] .. ..$ breaks : num [1:18] 26 30 54 25 70 52 51 26 67 27 ... 1532s [00:52:12.407] .. ..$ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 2 ... 1532s [00:52:12.407] .. ..$ tension: Factor w/ 3 levels "L","M","H": 1 1 1 1 1 1 1 1 1 1 ... 1532s [00:52:12.407] ..$ :'data.frame': 18 obs. of 3 variables: 1532s [00:52:12.407] .. ..$ breaks : num [1:18] 18 21 29 17 12 18 35 30 36 42 ... 1532s [00:52:12.407] .. ..$ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 2 ... 1532s [00:52:12.407] .. ..$ tension: Factor w/ 3 levels "L","M","H": 2 2 2 2 2 2 2 2 2 2 ... 1532s [00:52:12.407] ..$ :'data.frame': 18 obs. of 3 variables: 1532s [00:52:12.407] .. ..$ breaks : num [1:18] 36 21 24 18 10 43 28 15 26 20 ... 1532s [00:52:12.407] .. ..$ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 2 ... 1532s [00:52:12.407] .. ..$ tension: Factor w/ 3 levels "L","M","H": 3 3 3 3 3 3 3 3 3 3 ... 1532s [00:52:12.407] $ ...future.seeds_ii : NULL 1532s [00:52:12.407] $ ...future.globals.maxSize: NULL 1532s [00:52:12.407] - attr(*, "where")=List of 5 1532s [00:52:12.407] ..$ ...future.FUN : 1532s [00:52:12.407] ..$ future.call.arguments : 1532s [00:52:12.407] ..$ ...future.elements_ii : 1532s [00:52:12.407] ..$ ...future.seeds_ii : 1532s [00:52:12.407] ..$ ...future.globals.maxSize: 1532s [00:52:12.407] - attr(*, "resolved")= logi FALSE 1532s [00:52:12.407] - attr(*, "total_size")= num 5384 1532s [00:52:12.407] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1532s [00:52:12.407] - attr(*, "already-done")= logi TRUE 1532s [00:52:12.429] - reassign environment for ‘...future.FUN’ 1532s [00:52:12.429] - copied ‘...future.FUN’ to environment 1532s [00:52:12.430] - copied ‘future.call.arguments’ to environment 1532s [00:52:12.430] - copied ‘...future.elements_ii’ to environment 1532s [00:52:12.430] - copied ‘...future.seeds_ii’ to environment 1532s [00:52:12.430] - copied ‘...future.globals.maxSize’ to environment 1532s [00:52:12.431] assign_globals() ... done 1532s [00:52:12.432] plan(): Setting new future strategy stack: 1532s [00:52:12.432] List of future strategies: 1532s [00:52:12.432] 1. sequential: 1532s [00:52:12.432] - args: function (..., envir = parent.frame()) 1532s [00:52:12.432] - tweaked: FALSE 1532s [00:52:12.432] - call: NULL 1532s [00:52:12.433] plan(): nbrOfWorkers() = 1 1532s [00:52:12.437] plan(): Setting new future strategy stack: 1532s [00:52:12.437] List of future strategies: 1532s [00:52:12.437] 1. multicore: 1532s [00:52:12.437] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1532s [00:52:12.437] - tweaked: FALSE 1532s [00:52:12.437] - call: plan(strategy) 1532s [00:52:12.442] plan(): nbrOfWorkers() = 1 1532s [00:52:12.442] SequentialFuture started (and completed) 1532s [00:52:12.443] - Launch lazy future ... done 1532s [00:52:12.443] run() for ‘SequentialFuture’ ... done 1532s [00:52:12.443] Created future: 1532s [00:52:12.443] SequentialFuture: 1532s [00:52:12.443] Label: ‘future_by-1’ 1532s [00:52:12.443] Expression: 1532s [00:52:12.443] { 1532s [00:52:12.443] do.call(function(...) { 1532s [00:52:12.443] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1532s [00:52:12.443] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1532s [00:52:12.443] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1532s [00:52:12.443] on.exit(options(oopts), add = TRUE) 1532s [00:52:12.443] } 1532s [00:52:12.443] { 1532s [00:52:12.443] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1532s [00:52:12.443] ...future.X_jj <- ...future.elements_ii[[jj]] 1532s [00:52:12.443] ...future.FUN(...future.X_jj, ...) 1532s [00:52:12.443] }) 1532s [00:52:12.443] } 1532s [00:52:12.443] }, args = future.call.arguments) 1532s [00:52:12.443] } 1532s [00:52:12.443] Lazy evaluation: FALSE 1532s [00:52:12.443] Asynchronous evaluation: FALSE 1532s [00:52:12.443] Local evaluation: TRUE 1532s [00:52:12.443] Environment: R_GlobalEnv 1532s [00:52:12.443] Capture standard output: TRUE 1532s [00:52:12.443] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1532s [00:52:12.443] Globals: 5 objects totaling 10.06 KiB (function ‘...future.FUN’ of 5.20 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 4.80 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1532s [00:52:12.443] Packages: 1 packages (‘stats’) 1532s [00:52:12.443] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1532s [00:52:12.443] Resolved: TRUE 1532s [00:52:12.443] Value: 26.06 KiB of class ‘list’ 1532s [00:52:12.443] Early signaling: FALSE 1532s [00:52:12.443] Owner process: 64a671dd-8756-a081-baa7-973da233f197 1532s [00:52:12.443] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1532s [00:52:12.446] Chunk #1 of 1 ... DONE 1532s [00:52:12.446] Launching 1 futures (chunks) ... DONE 1532s [00:52:12.446] Resolving 1 futures (chunks) ... 1532s [00:52:12.446] resolve() on list ... 1532s [00:52:12.446] recursive: 0 1532s [00:52:12.447] length: 1 1532s [00:52:12.447] 1532s [00:52:12.447] resolved() for ‘SequentialFuture’ ... 1532s [00:52:12.447] - state: ‘finished’ 1532s [00:52:12.447] - run: TRUE 1532s [00:52:12.447] - result: ‘FutureResult’ 1532s [00:52:12.447] resolved() for ‘SequentialFuture’ ... done 1532s [00:52:12.448] Future #1 1532s [00:52:12.448] signalConditionsASAP(SequentialFuture, pos=1) ... 1532s [00:52:12.448] - nx: 1 1532s [00:52:12.448] - relay: TRUE 1532s [00:52:12.448] - stdout: TRUE 1532s [00:52:12.448] - signal: TRUE 1532s [00:52:12.448] - resignal: FALSE 1532s [00:52:12.448] - force: TRUE 1532s [00:52:12.448] - relayed: [n=1] FALSE 1532s [00:52:12.449] - queued futures: [n=1] FALSE 1532s [00:52:12.449] - until=1 1532s [00:52:12.449] - relaying element #1 1532s [00:52:12.449] - relayed: [n=1] TRUE 1532s [00:52:12.449] - queued futures: [n=1] TRUE 1532s [00:52:12.449] signalConditionsASAP(SequentialFuture, pos=1) ... done 1532s [00:52:12.450] length: 0 (resolved future 1) 1532s [00:52:12.450] Relaying remaining futures 1532s [00:52:12.450] signalConditionsASAP(NULL, pos=0) ... 1532s [00:52:12.450] - nx: 1 1532s [00:52:12.451] - relay: TRUE 1532s [00:52:12.451] - stdout: TRUE 1532s [00:52:12.451] - signal: TRUE 1532s [00:52:12.451] - resignal: FALSE 1532s [00:52:12.452] - force: TRUE 1532s [00:52:12.452] - relayed: [n=1] TRUE 1532s [00:52:12.452] - queued futures: [n=1] TRUE 1532s - flush all 1532s [00:52:12.453] - relayed: [n=1] TRUE 1532s [00:52:12.453] - queued futures: [n=1] TRUE 1532s [00:52:12.453] signalConditionsASAP(NULL, pos=0) ... done 1532s [00:52:12.453] resolve() on list ... DONE 1532s [00:52:12.454] - Number of value chunks collected: 1 1532s [00:52:12.454] Resolving 1 futures (chunks) ... DONE 1532s [00:52:12.456] Reducing values from 1 chunks ... 1532s [00:52:12.457] - Number of values collected after concatenation: 3 1532s [00:52:12.457] - Number of values expected: 3 1532s [00:52:12.457] Reducing values from 1 chunks ... DONE 1532s [00:52:12.457] future_lapply() ... DONE 1532s [00:52:12.457] future_by_internal() ... DONE 1532s [00:52:12.465] future_by_internal() ... 1532s [00:52:12.465] future_lapply() ... 1532s [00:52:12.470] Number of chunks: 1 1532s [00:52:12.471] getGlobalsAndPackagesXApply() ... 1532s [00:52:12.471] - future.globals: TRUE 1532s [00:52:12.471] getGlobalsAndPackages() ... 1532s [00:52:12.471] Searching for globals... 1532s [00:52:12.474] - globals found: [6] ‘FUN’, ‘{’, ‘lm’, ‘~’, ‘breaks’, ‘wool’ 1532s [00:52:12.474] Searching for globals ... DONE 1532s [00:52:12.474] Resolving globals: FALSE 1532s [00:52:12.475] The total size of the 3 globals is 2.27 KiB (2320 bytes) 1532s [00:52:12.476] The total size of the 3 globals exported for future expression (‘FUN()’) is 2.27 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are three globals: ‘FUN’ (1.04 KiB of class ‘function’), ‘wool’ (776 bytes of class ‘numeric’) and ‘breaks’ (480 bytes of class ‘numeric’) 1532s [00:52:12.476] - globals: [3] ‘FUN’, ‘breaks’, ‘wool’ 1532s [00:52:12.477] - packages: [1] ‘stats’ 1532s [00:52:12.477] getGlobalsAndPackages() ... DONE 1532s [00:52:12.478] - globals found/used: [n=3] ‘FUN’, ‘breaks’, ‘wool’ 1532s [00:52:12.478] - needed namespaces: [n=1] ‘stats’ 1532s [00:52:12.478] Finding globals ... DONE 1532s [00:52:12.478] - use_args: TRUE 1532s [00:52:12.479] - Getting '...' globals ... 1532s [00:52:12.480] resolve() on list ... 1532s [00:52:12.480] recursive: 0 1532s [00:52:12.480] length: 1 1532s [00:52:12.480] elements: ‘...’ 1532s [00:52:12.481] length: 0 (resolved future 1) 1532s [00:52:12.481] resolve() on list ... DONE 1532s [00:52:12.482] - '...' content: [n=0] 1532s [00:52:12.482] List of 1 1532s [00:52:12.482] $ ...: list() 1532s [00:52:12.482] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1532s [00:52:12.482] - attr(*, "where")=List of 1 1532s [00:52:12.482] ..$ ...: 1532s [00:52:12.482] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1532s [00:52:12.482] - attr(*, "resolved")= logi TRUE 1532s [00:52:12.482] - attr(*, "total_size")= num NA 1532s [00:52:12.487] - Getting '...' globals ... DONE 1532s [00:52:12.487] Globals to be used in all futures (chunks): [n=4] ‘...future.FUN’, ‘breaks’, ‘wool’, ‘...’ 1532s [00:52:12.487] List of 4 1532s [00:52:12.487] $ ...future.FUN:function (x) 1532s [00:52:12.487] $ breaks : num [1:54] 26 30 54 25 70 52 51 26 67 18 ... 1532s [00:52:12.487] $ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 1 ... 1532s [00:52:12.487] $ ... : list() 1532s [00:52:12.487] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1532s [00:52:12.487] - attr(*, "where")=List of 4 1532s [00:52:12.487] ..$ ...future.FUN: 1532s [00:52:12.487] ..$ breaks : 1532s [00:52:12.487] ..$ wool : 1532s [00:52:12.487] ..$ ... : 1532s [00:52:12.487] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1532s [00:52:12.487] - attr(*, "resolved")= logi FALSE 1532s [00:52:12.487] - attr(*, "total_size")= num 2320 1532s [00:52:12.496] Packages to be attached in all futures: [n=1] ‘stats’ 1532s [00:52:12.499] getGlobalsAndPackagesXApply() ... DONE 1532s [00:52:12.499] Number of futures (= number of chunks): 1 1532s [00:52:12.500] Launching 1 futures (chunks) ... 1532s [00:52:12.500] Chunk #1 of 1 ... 1532s [00:52:12.501] - Finding globals in 'X' for chunk #1 ... 1532s [00:52:12.501] getGlobalsAndPackages() ... 1532s [00:52:12.501] Searching for globals... 1532s [00:52:12.503] 1532s [00:52:12.503] Searching for globals ... DONE 1532s [00:52:12.504] - globals: [0] 1532s [00:52:12.504] getGlobalsAndPackages() ... DONE 1532s [00:52:12.505] + additional globals found: [n=0] 1532s [00:52:12.505] + additional namespaces needed: [n=0] 1532s [00:52:12.505] - Finding globals in 'X' for chunk #1 ... DONE 1532s [00:52:12.506] - seeds: 1532s [00:52:12.506] - All globals exported: [n=7] ‘...future.FUN’, ‘breaks’, ‘wool’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1532s [00:52:12.507] getGlobalsAndPackages() ... 1532s [00:52:12.507] - globals passed as-is: [7] ‘...future.FUN’, ‘breaks’, ‘wool’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1532s [00:52:12.507] Resolving globals: FALSE 1532s [00:52:12.508] Tweak future expression to call with '...' arguments ... 1532s [00:52:12.508] { 1532s [00:52:12.508] do.call(function(...) { 1532s [00:52:12.508] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1532s [00:52:12.508] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1532s [00:52:12.508] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1532s [00:52:12.508] on.exit(options(oopts), add = TRUE) 1532s [00:52:12.508] } 1532s [00:52:12.508] { 1532s [00:52:12.508] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1532s [00:52:12.508] ...future.X_jj <- ...future.elements_ii[[jj]] 1532s [00:52:12.508] ...future.FUN(...future.X_jj, ...) 1532s [00:52:12.508] }) 1532s [00:52:12.508] } 1532s [00:52:12.508] }, args = future.call.arguments) 1532s [00:52:12.508] } 1532s [00:52:12.509] Tweak future expression to call with '...' arguments ... DONE 1532s [00:52:12.509] - globals: [7] ‘...future.FUN’, ‘breaks’, ‘wool’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1532s [00:52:12.510] 1532s [00:52:12.511] getGlobalsAndPackages() ... DONE 1532s [00:52:12.512] run() for ‘Future’ ... 1532s [00:52:12.512] - state: ‘created’ 1532s [00:52:12.512] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1532s [00:52:12.520] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1532s [00:52:12.521] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1532s [00:52:12.521] - Field: ‘label’ 1532s [00:52:12.521] - Field: ‘local’ 1532s [00:52:12.522] - Field: ‘owner’ 1532s [00:52:12.522] - Field: ‘envir’ 1532s [00:52:12.522] - Field: ‘packages’ 1532s [00:52:12.522] - Field: ‘gc’ 1532s [00:52:12.522] - Field: ‘conditions’ 1532s [00:52:12.522] - Field: ‘expr’ 1532s [00:52:12.522] - Field: ‘uuid’ 1532s [00:52:12.522] - Field: ‘seed’ 1532s [00:52:12.523] - Field: ‘version’ 1532s [00:52:12.523] - Field: ‘result’ 1532s [00:52:12.523] - Field: ‘asynchronous’ 1532s [00:52:12.523] - Field: ‘calls’ 1532s [00:52:12.523] - Field: ‘globals’ 1532s [00:52:12.523] - Field: ‘stdout’ 1532s [00:52:12.524] - Field: ‘earlySignal’ 1532s [00:52:12.524] - Field: ‘lazy’ 1532s [00:52:12.524] - Field: ‘state’ 1532s [00:52:12.524] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1532s [00:52:12.524] - Launch lazy future ... 1532s [00:52:12.524] Packages needed by the future expression (n = 1): ‘stats’ 1532s [00:52:12.525] Packages needed by future strategies (n = 0): 1532s [00:52:12.525] { 1532s [00:52:12.525] { 1532s [00:52:12.525] { 1532s [00:52:12.525] ...future.startTime <- base::Sys.time() 1532s [00:52:12.525] { 1532s [00:52:12.525] { 1532s [00:52:12.525] { 1532s [00:52:12.525] { 1532s [00:52:12.525] base::local({ 1532s [00:52:12.525] has_future <- base::requireNamespace("future", 1532s [00:52:12.525] quietly = TRUE) 1532s [00:52:12.525] if (has_future) { 1532s [00:52:12.525] ns <- base::getNamespace("future") 1532s [00:52:12.525] version <- ns[[".package"]][["version"]] 1532s [00:52:12.525] if (is.null(version)) 1532s [00:52:12.525] version <- utils::packageVersion("future") 1532s [00:52:12.525] } 1532s [00:52:12.525] else { 1532s [00:52:12.525] version <- NULL 1532s [00:52:12.525] } 1532s [00:52:12.525] if (!has_future || version < "1.8.0") { 1532s [00:52:12.525] info <- base::c(r_version = base::gsub("R version ", 1532s [00:52:12.525] "", base::R.version$version.string), 1532s [00:52:12.525] platform = base::sprintf("%s (%s-bit)", 1532s [00:52:12.525] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1532s [00:52:12.525] os = base::paste(base::Sys.info()[base::c("sysname", 1532s [00:52:12.525] "release", "version")], collapse = " "), 1532s [00:52:12.525] hostname = base::Sys.info()[["nodename"]]) 1532s [00:52:12.525] info <- base::sprintf("%s: %s", base::names(info), 1532s [00:52:12.525] info) 1532s [00:52:12.525] info <- base::paste(info, collapse = "; ") 1532s [00:52:12.525] if (!has_future) { 1532s [00:52:12.525] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1532s [00:52:12.525] info) 1532s [00:52:12.525] } 1532s [00:52:12.525] else { 1532s [00:52:12.525] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1532s [00:52:12.525] info, version) 1532s [00:52:12.525] } 1532s [00:52:12.525] base::stop(msg) 1532s [00:52:12.525] } 1532s [00:52:12.525] }) 1532s [00:52:12.525] } 1532s [00:52:12.525] base::local({ 1532s [00:52:12.525] for (pkg in "stats") { 1532s [00:52:12.525] base::loadNamespace(pkg) 1532s [00:52:12.525] base::library(pkg, character.only = TRUE) 1532s [00:52:12.525] } 1532s [00:52:12.525] }) 1532s [00:52:12.525] } 1532s [00:52:12.525] options(future.plan = NULL) 1532s [00:52:12.525] Sys.unsetenv("R_FUTURE_PLAN") 1532s [00:52:12.525] future::plan("default", .cleanup = FALSE, .init = FALSE) 1532s [00:52:12.525] } 1532s [00:52:12.525] ...future.workdir <- getwd() 1532s [00:52:12.525] } 1532s [00:52:12.525] ...future.oldOptions <- base::as.list(base::.Options) 1532s [00:52:12.525] ...future.oldEnvVars <- base::Sys.getenv() 1532s [00:52:12.525] } 1532s [00:52:12.525] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1532s [00:52:12.525] future.globals.maxSize = NULL, future.globals.method = NULL, 1532s [00:52:12.525] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1532s [00:52:12.525] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1532s [00:52:12.525] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1532s [00:52:12.525] future.stdout.windows.reencode = NULL, width = 80L) 1532s [00:52:12.525] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1532s [00:52:12.525] base::names(...future.oldOptions)) 1532s [00:52:12.525] } 1532s [00:52:12.525] if (FALSE) { 1532s [00:52:12.525] } 1532s [00:52:12.525] else { 1532s [00:52:12.525] if (TRUE) { 1532s [00:52:12.525] ...future.stdout <- base::rawConnection(base::raw(0L), 1532s [00:52:12.525] open = "w") 1532s [00:52:12.525] } 1532s [00:52:12.525] else { 1532s [00:52:12.525] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1532s [00:52:12.525] windows = "NUL", "/dev/null"), open = "w") 1532s [00:52:12.525] } 1532s [00:52:12.525] base::sink(...future.stdout, type = "output", split = FALSE) 1532s [00:52:12.525] base::on.exit(if (!base::is.null(...future.stdout)) { 1532s [00:52:12.525] base::sink(type = "output", split = FALSE) 1532s [00:52:12.525] base::close(...future.stdout) 1532s [00:52:12.525] }, add = TRUE) 1532s [00:52:12.525] } 1532s [00:52:12.525] ...future.frame <- base::sys.nframe() 1532s [00:52:12.525] ...future.conditions <- base::list() 1532s [00:52:12.525] ...future.rng <- base::globalenv()$.Random.seed 1532s [00:52:12.525] if (FALSE) { 1532s [00:52:12.525] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1532s [00:52:12.525] "...future.value", "...future.globalenv.names", ".Random.seed") 1532s [00:52:12.525] } 1532s [00:52:12.525] ...future.result <- base::tryCatch({ 1532s [00:52:12.525] base::withCallingHandlers({ 1532s [00:52:12.525] ...future.value <- base::withVisible(base::local({ 1532s [00:52:12.525] do.call(function(...) { 1532s [00:52:12.525] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1532s [00:52:12.525] if (!identical(...future.globals.maxSize.org, 1532s [00:52:12.525] ...future.globals.maxSize)) { 1532s [00:52:12.525] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1532s [00:52:12.525] on.exit(options(oopts), add = TRUE) 1532s [00:52:12.525] } 1532s [00:52:12.525] { 1532s [00:52:12.525] lapply(seq_along(...future.elements_ii), 1532s [00:52:12.525] FUN = function(jj) { 1532s [00:52:12.525] ...future.X_jj <- ...future.elements_ii[[jj]] 1532s [00:52:12.525] ...future.FUN(...future.X_jj, ...) 1532s [00:52:12.525] }) 1532s [00:52:12.525] } 1532s [00:52:12.525] }, args = future.call.arguments) 1532s [00:52:12.525] })) 1532s [00:52:12.525] future::FutureResult(value = ...future.value$value, 1532s [00:52:12.525] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1532s [00:52:12.525] ...future.rng), globalenv = if (FALSE) 1532s [00:52:12.525] list(added = base::setdiff(base::names(base::.GlobalEnv), 1532s [00:52:12.525] ...future.globalenv.names)) 1532s [00:52:12.525] else NULL, started = ...future.startTime, version = "1.8") 1532s [00:52:12.525] }, condition = base::local({ 1532s [00:52:12.525] c <- base::c 1532s [00:52:12.525] inherits <- base::inherits 1532s [00:52:12.525] invokeRestart <- base::invokeRestart 1532s [00:52:12.525] length <- base::length 1532s [00:52:12.525] list <- base::list 1532s [00:52:12.525] seq.int <- base::seq.int 1532s [00:52:12.525] signalCondition <- base::signalCondition 1532s [00:52:12.525] sys.calls <- base::sys.calls 1532s [00:52:12.525] `[[` <- base::`[[` 1532s [00:52:12.525] `+` <- base::`+` 1532s [00:52:12.525] `<<-` <- base::`<<-` 1532s [00:52:12.525] sysCalls <- function(calls = sys.calls(), from = 1L) { 1532s [00:52:12.525] calls[seq.int(from = from + 12L, to = length(calls) - 1532s [00:52:12.525] 3L)] 1532s [00:52:12.525] } 1532s [00:52:12.525] function(cond) { 1532s [00:52:12.525] is_error <- inherits(cond, "error") 1532s [00:52:12.525] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1532s [00:52:12.525] NULL) 1532s [00:52:12.525] if (is_error) { 1532s [00:52:12.525] sessionInformation <- function() { 1532s [00:52:12.525] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1532s [00:52:12.525] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1532s [00:52:12.525] search = base::search(), system = base::Sys.info()) 1532s [00:52:12.525] } 1532s [00:52:12.525] ...future.conditions[[length(...future.conditions) + 1532s [00:52:12.525] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1532s [00:52:12.525] cond$call), session = sessionInformation(), 1532s [00:52:12.525] timestamp = base::Sys.time(), signaled = 0L) 1532s [00:52:12.525] signalCondition(cond) 1532s [00:52:12.525] } 1532s [00:52:12.525] else if (!ignore && TRUE && inherits(cond, c("condition", 1532s [00:52:12.525] "immediateCondition"))) { 1532s [00:52:12.525] signal <- TRUE && inherits(cond, "immediateCondition") 1532s [00:52:12.525] ...future.conditions[[length(...future.conditions) + 1532s [00:52:12.525] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1532s [00:52:12.525] if (TRUE && !signal) { 1532s [00:52:12.525] muffleCondition <- function (cond, pattern = "^muffle") 1532s [00:52:12.525] { 1532s [00:52:12.525] inherits <- base::inherits 1532s [00:52:12.525] invokeRestart <- base::invokeRestart 1532s [00:52:12.525] is.null <- base::is.null 1532s [00:52:12.525] muffled <- FALSE 1532s [00:52:12.525] if (inherits(cond, "message")) { 1532s [00:52:12.525] muffled <- grepl(pattern, "muffleMessage") 1532s [00:52:12.525] if (muffled) 1532s [00:52:12.525] invokeRestart("muffleMessage") 1532s [00:52:12.525] } 1532s [00:52:12.525] else if (inherits(cond, "warning")) { 1532s [00:52:12.525] muffled <- grepl(pattern, "muffleWarning") 1532s [00:52:12.525] if (muffled) 1532s [00:52:12.525] invokeRestart("muffleWarning") 1532s [00:52:12.525] } 1532s [00:52:12.525] else if (inherits(cond, "condition")) { 1532s [00:52:12.525] if (!is.null(pattern)) { 1532s [00:52:12.525] computeRestarts <- base::computeRestarts 1532s [00:52:12.525] grepl <- base::grepl 1532s [00:52:12.525] restarts <- computeRestarts(cond) 1532s [00:52:12.525] for (restart in restarts) { 1532s [00:52:12.525] name <- restart$name 1532s [00:52:12.525] if (is.null(name)) 1532s [00:52:12.525] next 1532s [00:52:12.525] if (!grepl(pattern, name)) 1532s [00:52:12.525] next 1532s [00:52:12.525] invokeRestart(restart) 1532s [00:52:12.525] muffled <- TRUE 1532s [00:52:12.525] break 1532s [00:52:12.525] } 1532s [00:52:12.525] } 1532s [00:52:12.525] } 1532s [00:52:12.525] invisible(muffled) 1532s [00:52:12.525] } 1532s [00:52:12.525] muffleCondition(cond, pattern = "^muffle") 1532s [00:52:12.525] } 1532s [00:52:12.525] } 1532s [00:52:12.525] else { 1532s [00:52:12.525] if (TRUE) { 1532s [00:52:12.525] muffleCondition <- function (cond, pattern = "^muffle") 1532s [00:52:12.525] { 1532s [00:52:12.525] inherits <- base::inherits 1532s [00:52:12.525] invokeRestart <- base::invokeRestart 1532s [00:52:12.525] is.null <- base::is.null 1532s [00:52:12.525] muffled <- FALSE 1532s [00:52:12.525] if (inherits(cond, "message")) { 1532s [00:52:12.525] muffled <- grepl(pattern, "muffleMessage") 1532s [00:52:12.525] if (muffled) 1532s [00:52:12.525] invokeRestart("muffleMessage") 1532s [00:52:12.525] } 1532s [00:52:12.525] else if (inherits(cond, "warning")) { 1532s [00:52:12.525] muffled <- grepl(pattern, "muffleWarning") 1532s [00:52:12.525] if (muffled) 1532s [00:52:12.525] invokeRestart("muffleWarning") 1532s [00:52:12.525] } 1532s [00:52:12.525] else if (inherits(cond, "condition")) { 1532s [00:52:12.525] if (!is.null(pattern)) { 1532s [00:52:12.525] computeRestarts <- base::computeRestarts 1532s [00:52:12.525] grepl <- base::grepl 1532s [00:52:12.525] restarts <- computeRestarts(cond) 1532s [00:52:12.525] for (restart in restarts) { 1532s [00:52:12.525] name <- restart$name 1532s [00:52:12.525] if (is.null(name)) 1532s [00:52:12.525] next 1532s [00:52:12.525] if (!grepl(pattern, name)) 1532s [00:52:12.525] next 1532s [00:52:12.525] invokeRestart(restart) 1532s [00:52:12.525] muffled <- TRUE 1532s [00:52:12.525] break 1532s [00:52:12.525] } 1532s [00:52:12.525] } 1532s [00:52:12.525] } 1532s [00:52:12.525] invisible(muffled) 1532s [00:52:12.525] } 1532s [00:52:12.525] muffleCondition(cond, pattern = "^muffle") 1532s [00:52:12.525] } 1532s [00:52:12.525] } 1532s [00:52:12.525] } 1532s [00:52:12.525] })) 1532s [00:52:12.525] }, error = function(ex) { 1532s [00:52:12.525] base::structure(base::list(value = NULL, visible = NULL, 1532s [00:52:12.525] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1532s [00:52:12.525] ...future.rng), started = ...future.startTime, 1532s [00:52:12.525] finished = Sys.time(), session_uuid = NA_character_, 1532s [00:52:12.525] version = "1.8"), class = "FutureResult") 1532s [00:52:12.525] }, finally = { 1532s [00:52:12.525] if (!identical(...future.workdir, getwd())) 1532s [00:52:12.525] setwd(...future.workdir) 1532s [00:52:12.525] { 1532s [00:52:12.525] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1532s [00:52:12.525] ...future.oldOptions$nwarnings <- NULL 1532s [00:52:12.525] } 1532s [00:52:12.525] base::options(...future.oldOptions) 1532s [00:52:12.525] if (.Platform$OS.type == "windows") { 1532s [00:52:12.525] old_names <- names(...future.oldEnvVars) 1532s [00:52:12.525] envs <- base::Sys.getenv() 1532s [00:52:12.525] names <- names(envs) 1532s [00:52:12.525] common <- intersect(names, old_names) 1532s [00:52:12.525] added <- setdiff(names, old_names) 1532s [00:52:12.525] removed <- setdiff(old_names, names) 1532s [00:52:12.525] changed <- common[...future.oldEnvVars[common] != 1532s [00:52:12.525] envs[common]] 1532s [00:52:12.525] NAMES <- toupper(changed) 1532s [00:52:12.525] args <- list() 1532s [00:52:12.525] for (kk in seq_along(NAMES)) { 1532s [00:52:12.525] name <- changed[[kk]] 1532s [00:52:12.525] NAME <- NAMES[[kk]] 1532s [00:52:12.525] if (name != NAME && is.element(NAME, old_names)) 1532s [00:52:12.525] next 1532s [00:52:12.525] args[[name]] <- ...future.oldEnvVars[[name]] 1532s [00:52:12.525] } 1532s [00:52:12.525] NAMES <- toupper(added) 1532s [00:52:12.525] for (kk in seq_along(NAMES)) { 1532s [00:52:12.525] name <- added[[kk]] 1532s [00:52:12.525] NAME <- NAMES[[kk]] 1532s [00:52:12.525] if (name != NAME && is.element(NAME, old_names)) 1532s [00:52:12.525] next 1532s [00:52:12.525] args[[name]] <- "" 1532s [00:52:12.525] } 1532s [00:52:12.525] NAMES <- toupper(removed) 1532s [00:52:12.525] for (kk in seq_along(NAMES)) { 1532s [00:52:12.525] name <- removed[[kk]] 1532s [00:52:12.525] NAME <- NAMES[[kk]] 1532s [00:52:12.525] if (name != NAME && is.element(NAME, old_names)) 1532s [00:52:12.525] next 1532s [00:52:12.525] args[[name]] <- ...future.oldEnvVars[[name]] 1532s [00:52:12.525] } 1532s [00:52:12.525] if (length(args) > 0) 1532s [00:52:12.525] base::do.call(base::Sys.setenv, args = args) 1532s [00:52:12.525] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1532s [00:52:12.525] } 1532s [00:52:12.525] else { 1532s [00:52:12.525] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1532s [00:52:12.525] } 1532s [00:52:12.525] { 1532s [00:52:12.525] if (base::length(...future.futureOptionsAdded) > 1532s [00:52:12.525] 0L) { 1532s [00:52:12.525] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1532s [00:52:12.525] base::names(opts) <- ...future.futureOptionsAdded 1532s [00:52:12.525] base::options(opts) 1532s [00:52:12.525] } 1532s [00:52:12.525] { 1532s [00:52:12.525] { 1532s [00:52:12.525] NULL 1532s [00:52:12.525] RNGkind("Mersenne-Twister") 1532s [00:52:12.525] base::rm(list = ".Random.seed", envir = base::globalenv(), 1532s [00:52:12.525] inherits = FALSE) 1532s [00:52:12.525] } 1532s [00:52:12.525] options(future.plan = NULL) 1532s [00:52:12.525] if (is.na(NA_character_)) 1532s [00:52:12.525] Sys.unsetenv("R_FUTURE_PLAN") 1532s [00:52:12.525] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1532s [00:52:12.525] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1532s [00:52:12.525] envir = parent.frame()) 1532s [00:52:12.525] { 1532s [00:52:12.525] default_workers <- missing(workers) 1532s [00:52:12.525] if (is.function(workers)) 1532s [00:52:12.525] workers <- workers() 1532s [00:52:12.525] workers <- structure(as.integer(workers), 1532s [00:52:12.525] class = class(workers)) 1532s [00:52:12.525] stop_if_not(is.finite(workers), workers >= 1532s [00:52:12.525] 1L) 1532s [00:52:12.525] if ((workers == 1L && !inherits(workers, 1532s [00:52:12.525] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1532s [00:52:12.525] if (default_workers) 1532s [00:52:12.525] supportsMulticore(warn = TRUE) 1532s [00:52:12.525] return(sequential(..., envir = envir)) 1532s [00:52:12.525] } 1532s [00:52:12.525] oopts <- options(mc.cores = workers) 1532s [00:52:12.525] on.exit(options(oopts)) 1532s [00:52:12.525] future <- MulticoreFuture(..., workers = workers, 1532s [00:52:12.525] envir = envir) 1532s [00:52:12.525] if (!future$lazy) 1532s [00:52:12.525] future <- run(future) 1532s [00:52:12.525] invisible(future) 1532s [00:52:12.525] }), .cleanup = FALSE, .init = FALSE) 1532s [00:52:12.525] } 1532s [00:52:12.525] } 1532s [00:52:12.525] } 1532s [00:52:12.525] }) 1532s [00:52:12.525] if (TRUE) { 1532s [00:52:12.525] base::sink(type = "output", split = FALSE) 1532s [00:52:12.525] if (TRUE) { 1532s [00:52:12.525] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1532s [00:52:12.525] } 1532s [00:52:12.525] else { 1532s [00:52:12.525] ...future.result["stdout"] <- base::list(NULL) 1532s [00:52:12.525] } 1532s [00:52:12.525] base::close(...future.stdout) 1532s [00:52:12.525] ...future.stdout <- NULL 1532s [00:52:12.525] } 1532s [00:52:12.525] ...future.result$conditions <- ...future.conditions 1532s [00:52:12.525] ...future.result$finished <- base::Sys.time() 1532s [00:52:12.525] ...future.result 1532s [00:52:12.525] } 1532s [00:52:12.529] assign_globals() ... 1532s [00:52:12.529] List of 7 1532s [00:52:12.529] $ ...future.FUN :function (x) 1532s [00:52:12.529] $ breaks : num [1:54] 26 30 54 25 70 52 51 26 67 18 ... 1532s [00:52:12.529] $ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 1 ... 1532s [00:52:12.529] $ future.call.arguments : list() 1532s [00:52:12.529] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1532s [00:52:12.529] $ ...future.elements_ii :List of 3 1532s [00:52:12.529] ..$ :'data.frame': 18 obs. of 3 variables: 1532s [00:52:12.529] .. ..$ breaks : num [1:18] 26 30 54 25 70 52 51 26 67 27 ... 1532s [00:52:12.529] .. ..$ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 2 ... 1532s [00:52:12.529] .. ..$ tension: Factor w/ 3 levels "L","M","H": 1 1 1 1 1 1 1 1 1 1 ... 1532s [00:52:12.529] ..$ :'data.frame': 18 obs. of 3 variables: 1532s [00:52:12.529] .. ..$ breaks : num [1:18] 18 21 29 17 12 18 35 30 36 42 ... 1532s [00:52:12.529] .. ..$ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 2 ... 1532s [00:52:12.529] .. ..$ tension: Factor w/ 3 levels "L","M","H": 2 2 2 2 2 2 2 2 2 2 ... 1532s [00:52:12.529] ..$ :'data.frame': 18 obs. of 3 variables: 1532s [00:52:12.529] .. ..$ breaks : num [1:18] 36 21 24 18 10 43 28 15 26 20 ... 1532s [00:52:12.529] .. ..$ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 2 ... 1532s [00:52:12.529] .. ..$ tension: Factor w/ 3 levels "L","M","H": 3 3 3 3 3 3 3 3 3 3 ... 1532s [00:52:12.529] $ ...future.seeds_ii : NULL 1532s [00:52:12.529] $ ...future.globals.maxSize: NULL 1532s [00:52:12.529] - attr(*, "where")=List of 7 1532s [00:52:12.529] ..$ ...future.FUN : 1532s [00:52:12.529] ..$ breaks : 1532s [00:52:12.529] ..$ wool : 1532s [00:52:12.529] ..$ future.call.arguments : 1532s [00:52:12.529] ..$ ...future.elements_ii : 1532s [00:52:12.529] ..$ ...future.seeds_ii : 1532s [00:52:12.529] ..$ ...future.globals.maxSize: 1532s [00:52:12.529] - attr(*, "resolved")= logi FALSE 1532s [00:52:12.529] - attr(*, "total_size")= num 2320 1532s [00:52:12.529] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1532s [00:52:12.529] - attr(*, "already-done")= logi TRUE 1532s [00:52:12.548] - reassign environment for ‘...future.FUN’ 1532s [00:52:12.548] - copied ‘...future.FUN’ to environment 1532s [00:52:12.548] - copied ‘breaks’ to environment 1532s [00:52:12.549] - copied ‘wool’ to environment 1532s [00:52:12.549] - copied ‘future.call.arguments’ to environment 1532s [00:52:12.550] - copied ‘...future.elements_ii’ to environment 1532s [00:52:12.551] - copied ‘...future.seeds_ii’ to environment 1532s [00:52:12.551] - copied ‘...future.globals.maxSize’ to environment 1532s [00:52:12.552] assign_globals() ... done 1532s [00:52:12.553] plan(): Setting new future strategy stack: 1532s [00:52:12.554] List of future strategies: 1532s [00:52:12.554] 1. sequential: 1532s [00:52:12.554] - args: function (..., envir = parent.frame()) 1532s [00:52:12.554] - tweaked: FALSE 1532s [00:52:12.554] - call: NULL 1532s [00:52:12.555] plan(): nbrOfWorkers() = 1 1532s [00:52:12.562] plan(): Setting new future strategy stack: 1532s [00:52:12.562] List of future strategies: 1532s [00:52:12.562] 1. multicore: 1532s [00:52:12.562] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1532s [00:52:12.562] - tweaked: FALSE 1532s [00:52:12.562] - call: plan(strategy) 1532s [00:52:12.567] plan(): nbrOfWorkers() = 1 1532s [00:52:12.568] SequentialFuture started (and completed) 1532s [00:52:12.568] - Launch lazy future ... done 1532s [00:52:12.568] run() for ‘SequentialFuture’ ... done 1532s [00:52:12.568] Created future: 1532s [00:52:12.569] SequentialFuture: 1532s [00:52:12.569] Label: ‘future_by-1’ 1532s [00:52:12.569] Expression: 1532s [00:52:12.569] { 1532s [00:52:12.569] do.call(function(...) { 1532s [00:52:12.569] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1532s [00:52:12.569] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1532s [00:52:12.569] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1532s [00:52:12.569] on.exit(options(oopts), add = TRUE) 1532s [00:52:12.569] } 1532s [00:52:12.569] { 1532s [00:52:12.569] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1532s [00:52:12.569] ...future.X_jj <- ...future.elements_ii[[jj]] 1532s [00:52:12.569] ...future.FUN(...future.X_jj, ...) 1532s [00:52:12.569] }) 1532s [00:52:12.569] } 1532s [00:52:12.569] }, args = future.call.arguments) 1532s [00:52:12.569] } 1532s [00:52:12.569] Lazy evaluation: FALSE 1532s [00:52:12.569] Asynchronous evaluation: FALSE 1532s [00:52:12.569] Local evaluation: TRUE 1532s [00:52:12.569] Environment: 0x2aa02ba93a0 1532s [00:52:12.569] Capture standard output: TRUE 1532s [00:52:12.569] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1532s [00:52:12.569] Globals: 7 objects totaling 7.07 KiB (function ‘...future.FUN’ of 1.04 KiB, numeric ‘breaks’ of 480 bytes, factor ‘wool’ of 776 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 4.80 KiB, ...) 1532s [00:52:12.569] Packages: 1 packages (‘stats’) 1532s [00:52:12.569] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1532s [00:52:12.569] Resolved: TRUE 1532s [00:52:12.569] Value: 25.57 KiB of class ‘list’ 1532s [00:52:12.569] Early signaling: FALSE 1532s [00:52:12.569] Owner process: 64a671dd-8756-a081-baa7-973da233f197 1532s [00:52:12.569] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1532s [00:52:12.572] Chunk #1 of 1 ... DONE 1532s [00:52:12.572] Launching 1 futures (chunks) ... DONE 1532s [00:52:12.572] Resolving 1 futures (chunks) ... 1532s [00:52:12.572] resolve() on list ... 1532s [00:52:12.573] recursive: 0 1532s [00:52:12.573] length: 1 1532s [00:52:12.573] 1532s [00:52:12.573] resolved() for ‘SequentialFuture’ ... 1532s [00:52:12.573] - state: ‘finished’ 1532s [00:52:12.574] - run: TRUE 1532s [00:52:12.574] - result: ‘FutureResult’ 1532s [00:52:12.574] resolved() for ‘SequentialFuture’ ... done 1532s [00:52:12.574] Future #1 1532s [00:52:12.575] signalConditionsASAP(SequentialFuture, pos=1) ... 1532s [00:52:12.575] - nx: 1 1532s [00:52:12.575] - relay: TRUE 1532s [00:52:12.575] - stdout: TRUE 1532s [00:52:12.576] - signal: TRUE 1532s [00:52:12.576] - resignal: FALSE 1532s [00:52:12.576] - force: TRUE 1532s [00:52:12.576] - relayed: [n=1] FALSE 1532s [00:52:12.577] - queued futures: [n=1] FALSE 1532s [00:52:12.577] - until=1 1532s [00:52:12.577] - relaying element #1 1532s [00:52:12.577] - relayed: [n=1] TRUE 1532s [00:52:12.577] - queued futures: [n=1] TRUE 1532s [00:52:12.577] signalConditionsASAP(SequentialFuture, pos=1) ... done 1532s [00:52:12.578] length: 0 (resolved future 1) 1532s [00:52:12.578] Relaying remaining futures 1532s [00:52:12.579] signalConditionsASAP(NULL, pos=0) ... 1532s [00:52:12.579] - nx: 1 1532s [00:52:12.579] - relay: TRUE 1532s [00:52:12.579] - stdout: TRUE 1532s [00:52:12.580] - signal: TRUE 1532s [00:52:12.580] - resignal: FALSE 1532s [00:52:12.580] - force: TRUE 1532s [00:52:12.580] - relayed: [n=1] TRUE 1532s [00:52:12.580] - queued futures: [n=1] TRUE 1532s - flush all 1532s [00:52:12.581] - relayed: [n=1] TRUE 1532s [00:52:12.581] - queued futures: [n=1] TRUE 1532s [00:52:12.581] signalConditionsASAP(NULL, pos=0) ... done 1532s [00:52:12.581] resolve() on list ... DONE 1532s [00:52:12.582] - Number of value chunks collected: 1 1532s [00:52:12.582] Resolving 1 futures (chunks) ... DONE 1532s [00:52:12.582] Reducing values from 1 chunks ... 1532s [00:52:12.582] - Number of values collected after concatenation: 3 1532s [00:52:12.582] - Number of values expected: 3 1532s [00:52:12.583] Reducing values from 1 chunks ... DONE 1532s [00:52:12.583] future_lapply() ... DONE 1532s [00:52:12.583] future_by_internal() ... DONE 1532s [00:52:12.583] future_by_internal() ... 1532s [00:52:12.584] future_lapply() ... 1532s [00:52:12.588] Number of chunks: 1 1532s [00:52:12.589] getGlobalsAndPackagesXApply() ... 1532s [00:52:12.589] - future.globals: TRUE 1532s [00:52:12.589] getGlobalsAndPackages() ... 1532s [00:52:12.589] Searching for globals... 1532s [00:52:12.591] - globals found: [2] ‘FUN’, ‘UseMethod’ 1532s [00:52:12.591] Searching for globals ... DONE 1532s [00:52:12.591] Resolving globals: FALSE 1532s [00:52:12.592] The total size of the 1 globals is 1.21 KiB (1240 bytes) 1532s [00:52:12.592] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.21 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.21 KiB of class ‘function’) 1532s [00:52:12.592] - globals: [1] ‘FUN’ 1532s [00:52:12.593] 1532s [00:52:12.593] getGlobalsAndPackages() ... DONE 1532s [00:52:12.593] - globals found/used: [n=1] ‘FUN’ 1532s [00:52:12.593] - needed namespaces: [n=0] 1532s [00:52:12.593] Finding globals ... DONE 1532s [00:52:12.594] - use_args: TRUE 1532s [00:52:12.594] - Getting '...' globals ... 1532s [00:52:12.594] resolve() on list ... 1532s [00:52:12.594] recursive: 0 1532s [00:52:12.594] length: 1 1532s [00:52:12.595] elements: ‘...’ 1532s [00:52:12.595] length: 0 (resolved future 1) 1532s [00:52:12.595] resolve() on list ... DONE 1532s [00:52:12.595] - '...' content: [n=0] 1532s [00:52:12.595] List of 1 1532s [00:52:12.595] $ ...: list() 1532s [00:52:12.595] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1532s [00:52:12.595] - attr(*, "where")=List of 1 1532s [00:52:12.595] ..$ ...: 1532s [00:52:12.595] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1532s [00:52:12.595] - attr(*, "resolved")= logi TRUE 1532s [00:52:12.595] - attr(*, "total_size")= num NA 1532s [00:52:12.599] - Getting '...' globals ... DONE 1532s [00:52:12.599] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1532s [00:52:12.599] List of 2 1532s [00:52:12.599] $ ...future.FUN:function (object, ...) 1532s [00:52:12.599] $ ... : list() 1532s [00:52:12.599] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1532s [00:52:12.599] - attr(*, "where")=List of 2 1532s [00:52:12.599] ..$ ...future.FUN: 1532s [00:52:12.599] ..$ ... : 1532s [00:52:12.599] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1532s [00:52:12.599] - attr(*, "resolved")= logi FALSE 1532s [00:52:12.599] - attr(*, "total_size")= num 1240 1532s [00:52:12.606] Packages to be attached in all futures: [n=0] 1532s [00:52:12.606] getGlobalsAndPackagesXApply() ... DONE 1532s [00:52:12.606] Number of futures (= number of chunks): 1 1532s [00:52:12.606] Launching 1 futures (chunks) ... 1532s [00:52:12.606] Chunk #1 of 1 ... 1532s [00:52:12.606] - Finding globals in 'X' for chunk #1 ... 1532s [00:52:12.607] getGlobalsAndPackages() ... 1532s [00:52:12.607] Searching for globals... 1532s [00:52:12.607] 1532s [00:52:12.608] Searching for globals ... DONE 1532s [00:52:12.608] - globals: [0] 1532s [00:52:12.608] getGlobalsAndPackages() ... DONE 1532s [00:52:12.608] + additional globals found: [n=0] 1532s [00:52:12.608] + additional namespaces needed: [n=0] 1532s [00:52:12.608] - Finding globals in 'X' for chunk #1 ... DONE 1532s [00:52:12.608] - seeds: 1532s [00:52:12.609] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1532s [00:52:12.609] getGlobalsAndPackages() ... 1532s [00:52:12.609] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1532s [00:52:12.609] Resolving globals: FALSE 1532s [00:52:12.609] Tweak future expression to call with '...' arguments ... 1532s [00:52:12.609] { 1532s [00:52:12.609] do.call(function(...) { 1532s [00:52:12.609] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1532s [00:52:12.609] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1532s [00:52:12.609] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1532s [00:52:12.609] on.exit(options(oopts), add = TRUE) 1532s [00:52:12.609] } 1532s [00:52:12.609] { 1532s [00:52:12.609] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1532s [00:52:12.609] ...future.X_jj <- ...future.elements_ii[[jj]] 1532s [00:52:12.609] ...future.FUN(...future.X_jj, ...) 1532s [00:52:12.609] }) 1532s [00:52:12.609] } 1532s [00:52:12.609] }, args = future.call.arguments) 1532s [00:52:12.609] } 1532s [00:52:12.610] Tweak future expression to call with '...' arguments ... DONE 1532s [00:52:12.610] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1532s [00:52:12.610] 1532s [00:52:12.611] getGlobalsAndPackages() ... DONE 1532s [00:52:12.611] run() for ‘Future’ ... 1532s [00:52:12.611] - state: ‘created’ 1532s [00:52:12.612] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1532s [00:52:12.616] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1532s [00:52:12.616] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1532s [00:52:12.617] - Field: ‘label’ 1532s [00:52:12.617] - Field: ‘local’ 1532s [00:52:12.617] - Field: ‘owner’ 1532s [00:52:12.617] - Field: ‘envir’ 1532s [00:52:12.617] - Field: ‘packages’ 1532s [00:52:12.617] - Field: ‘gc’ 1532s [00:52:12.618] - Field: ‘conditions’ 1532s [00:52:12.618] - Field: ‘expr’ 1532s [00:52:12.618] - Field: ‘uuid’ 1532s [00:52:12.618] - Field: ‘seed’ 1532s [00:52:12.618] - Field: ‘version’ 1532s [00:52:12.618] - Field: ‘result’ 1532s [00:52:12.619] - Field: ‘asynchronous’ 1532s [00:52:12.619] - Field: ‘calls’ 1532s [00:52:12.619] - Field: ‘globals’ 1532s [00:52:12.619] - Field: ‘stdout’ 1532s [00:52:12.620] - Field: ‘earlySignal’ 1532s [00:52:12.620] - Field: ‘lazy’ 1532s [00:52:12.620] - Field: ‘state’ 1532s [00:52:12.621] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1532s [00:52:12.621] - Launch lazy future ... 1532s [00:52:12.621] Packages needed by the future expression (n = 0): 1532s [00:52:12.621] Packages needed by future strategies (n = 0): 1532s [00:52:12.622] { 1532s [00:52:12.622] { 1532s [00:52:12.622] { 1532s [00:52:12.622] ...future.startTime <- base::Sys.time() 1532s [00:52:12.622] { 1532s [00:52:12.622] { 1532s [00:52:12.622] { 1532s [00:52:12.622] base::local({ 1532s [00:52:12.622] has_future <- base::requireNamespace("future", 1532s [00:52:12.622] quietly = TRUE) 1532s [00:52:12.622] if (has_future) { 1532s [00:52:12.622] ns <- base::getNamespace("future") 1532s [00:52:12.622] version <- ns[[".package"]][["version"]] 1532s [00:52:12.622] if (is.null(version)) 1532s [00:52:12.622] version <- utils::packageVersion("future") 1532s [00:52:12.622] } 1532s [00:52:12.622] else { 1532s [00:52:12.622] version <- NULL 1532s [00:52:12.622] } 1532s [00:52:12.622] if (!has_future || version < "1.8.0") { 1532s [00:52:12.622] info <- base::c(r_version = base::gsub("R version ", 1532s [00:52:12.622] "", base::R.version$version.string), 1532s [00:52:12.622] platform = base::sprintf("%s (%s-bit)", 1532s [00:52:12.622] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1532s [00:52:12.622] os = base::paste(base::Sys.info()[base::c("sysname", 1532s [00:52:12.622] "release", "version")], collapse = " "), 1532s [00:52:12.622] hostname = base::Sys.info()[["nodename"]]) 1532s [00:52:12.622] info <- base::sprintf("%s: %s", base::names(info), 1532s [00:52:12.622] info) 1532s [00:52:12.622] info <- base::paste(info, collapse = "; ") 1532s [00:52:12.622] if (!has_future) { 1532s [00:52:12.622] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1532s [00:52:12.622] info) 1532s [00:52:12.622] } 1532s [00:52:12.622] else { 1532s [00:52:12.622] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1532s [00:52:12.622] info, version) 1532s [00:52:12.622] } 1532s [00:52:12.622] base::stop(msg) 1532s [00:52:12.622] } 1532s [00:52:12.622] }) 1532s [00:52:12.622] } 1532s [00:52:12.622] options(future.plan = NULL) 1532s [00:52:12.622] Sys.unsetenv("R_FUTURE_PLAN") 1532s [00:52:12.622] future::plan("default", .cleanup = FALSE, .init = FALSE) 1532s [00:52:12.622] } 1532s [00:52:12.622] ...future.workdir <- getwd() 1532s [00:52:12.622] } 1532s [00:52:12.622] ...future.oldOptions <- base::as.list(base::.Options) 1532s [00:52:12.622] ...future.oldEnvVars <- base::Sys.getenv() 1532s [00:52:12.622] } 1532s [00:52:12.622] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1532s [00:52:12.622] future.globals.maxSize = NULL, future.globals.method = NULL, 1532s [00:52:12.622] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1532s [00:52:12.622] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1532s [00:52:12.622] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1532s [00:52:12.622] future.stdout.windows.reencode = NULL, width = 80L) 1532s [00:52:12.622] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1532s [00:52:12.622] base::names(...future.oldOptions)) 1532s [00:52:12.622] } 1532s [00:52:12.622] if (FALSE) { 1532s [00:52:12.622] } 1532s [00:52:12.622] else { 1532s [00:52:12.622] if (TRUE) { 1532s [00:52:12.622] ...future.stdout <- base::rawConnection(base::raw(0L), 1532s [00:52:12.622] open = "w") 1532s [00:52:12.622] } 1532s [00:52:12.622] else { 1532s [00:52:12.622] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1532s [00:52:12.622] windows = "NUL", "/dev/null"), open = "w") 1532s [00:52:12.622] } 1532s [00:52:12.622] base::sink(...future.stdout, type = "output", split = FALSE) 1532s [00:52:12.622] base::on.exit(if (!base::is.null(...future.stdout)) { 1532s [00:52:12.622] base::sink(type = "output", split = FALSE) 1532s [00:52:12.622] base::close(...future.stdout) 1532s [00:52:12.622] }, add = TRUE) 1532s [00:52:12.622] } 1532s [00:52:12.622] ...future.frame <- base::sys.nframe() 1532s [00:52:12.622] ...future.conditions <- base::list() 1532s [00:52:12.622] ...future.rng <- base::globalenv()$.Random.seed 1532s [00:52:12.622] if (FALSE) { 1532s [00:52:12.622] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1532s [00:52:12.622] "...future.value", "...future.globalenv.names", ".Random.seed") 1532s [00:52:12.622] } 1532s [00:52:12.622] ...future.result <- base::tryCatch({ 1532s [00:52:12.622] base::withCallingHandlers({ 1532s [00:52:12.622] ...future.value <- base::withVisible(base::local({ 1532s [00:52:12.622] do.call(function(...) { 1532s [00:52:12.622] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1532s [00:52:12.622] if (!identical(...future.globals.maxSize.org, 1532s [00:52:12.622] ...future.globals.maxSize)) { 1532s [00:52:12.622] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1532s [00:52:12.622] on.exit(options(oopts), add = TRUE) 1532s [00:52:12.622] } 1532s [00:52:12.622] { 1532s [00:52:12.622] lapply(seq_along(...future.elements_ii), 1532s [00:52:12.622] FUN = function(jj) { 1532s [00:52:12.622] ...future.X_jj <- ...future.elements_ii[[jj]] 1532s [00:52:12.622] ...future.FUN(...future.X_jj, ...) 1532s [00:52:12.622] }) 1532s [00:52:12.622] } 1532s [00:52:12.622] }, args = future.call.arguments) 1532s [00:52:12.622] })) 1532s [00:52:12.622] future::FutureResult(value = ...future.value$value, 1532s [00:52:12.622] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1532s [00:52:12.622] ...future.rng), globalenv = if (FALSE) 1532s [00:52:12.622] list(added = base::setdiff(base::names(base::.GlobalEnv), 1532s [00:52:12.622] ...future.globalenv.names)) 1532s [00:52:12.622] else NULL, started = ...future.startTime, version = "1.8") 1532s [00:52:12.622] }, condition = base::local({ 1532s [00:52:12.622] c <- base::c 1532s [00:52:12.622] inherits <- base::inherits 1532s [00:52:12.622] invokeRestart <- base::invokeRestart 1532s [00:52:12.622] length <- base::length 1532s [00:52:12.622] list <- base::list 1532s [00:52:12.622] seq.int <- base::seq.int 1532s [00:52:12.622] signalCondition <- base::signalCondition 1532s [00:52:12.622] sys.calls <- base::sys.calls 1532s [00:52:12.622] `[[` <- base::`[[` 1532s [00:52:12.622] `+` <- base::`+` 1532s [00:52:12.622] `<<-` <- base::`<<-` 1532s [00:52:12.622] sysCalls <- function(calls = sys.calls(), from = 1L) { 1532s [00:52:12.622] calls[seq.int(from = from + 12L, to = length(calls) - 1532s [00:52:12.622] 3L)] 1532s [00:52:12.622] } 1532s [00:52:12.622] function(cond) { 1532s [00:52:12.622] is_error <- inherits(cond, "error") 1532s [00:52:12.622] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1532s [00:52:12.622] NULL) 1532s [00:52:12.622] if (is_error) { 1532s [00:52:12.622] sessionInformation <- function() { 1532s [00:52:12.622] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1532s [00:52:12.622] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1532s [00:52:12.622] search = base::search(), system = base::Sys.info()) 1532s [00:52:12.622] } 1532s [00:52:12.622] ...future.conditions[[length(...future.conditions) + 1532s [00:52:12.622] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1532s [00:52:12.622] cond$call), session = sessionInformation(), 1532s [00:52:12.622] timestamp = base::Sys.time(), signaled = 0L) 1532s [00:52:12.622] signalCondition(cond) 1532s [00:52:12.622] } 1532s [00:52:12.622] else if (!ignore && TRUE && inherits(cond, c("condition", 1532s [00:52:12.622] "immediateCondition"))) { 1532s [00:52:12.622] signal <- TRUE && inherits(cond, "immediateCondition") 1532s [00:52:12.622] ...future.conditions[[length(...future.conditions) + 1532s [00:52:12.622] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1532s [00:52:12.622] if (TRUE && !signal) { 1532s [00:52:12.622] muffleCondition <- function (cond, pattern = "^muffle") 1532s [00:52:12.622] { 1532s [00:52:12.622] inherits <- base::inherits 1532s [00:52:12.622] invokeRestart <- base::invokeRestart 1532s [00:52:12.622] is.null <- base::is.null 1532s [00:52:12.622] muffled <- FALSE 1532s [00:52:12.622] if (inherits(cond, "message")) { 1532s [00:52:12.622] muffled <- grepl(pattern, "muffleMessage") 1532s [00:52:12.622] if (muffled) 1532s [00:52:12.622] invokeRestart("muffleMessage") 1532s [00:52:12.622] } 1532s [00:52:12.622] else if (inherits(cond, "warning")) { 1532s [00:52:12.622] muffled <- grepl(pattern, "muffleWarning") 1532s [00:52:12.622] if (muffled) 1532s [00:52:12.622] invokeRestart("muffleWarning") 1532s [00:52:12.622] } 1532s [00:52:12.622] else if (inherits(cond, "condition")) { 1532s [00:52:12.622] if (!is.null(pattern)) { 1532s [00:52:12.622] computeRestarts <- base::computeRestarts 1532s [00:52:12.622] grepl <- base::grepl 1532s [00:52:12.622] restarts <- computeRestarts(cond) 1532s [00:52:12.622] for (restart in restarts) { 1532s [00:52:12.622] name <- restart$name 1532s [00:52:12.622] if (is.null(name)) 1532s [00:52:12.622] next 1532s [00:52:12.622] if (!grepl(pattern, name)) 1532s [00:52:12.622] next 1532s [00:52:12.622] invokeRestart(restart) 1532s [00:52:12.622] muffled <- TRUE 1532s [00:52:12.622] break 1532s [00:52:12.622] } 1532s [00:52:12.622] } 1532s [00:52:12.622] } 1532s [00:52:12.622] invisible(muffled) 1532s [00:52:12.622] } 1532s [00:52:12.622] muffleCondition(cond, pattern = "^muffle") 1532s [00:52:12.622] } 1532s [00:52:12.622] } 1532s [00:52:12.622] else { 1532s [00:52:12.622] if (TRUE) { 1532s [00:52:12.622] muffleCondition <- function (cond, pattern = "^muffle") 1532s [00:52:12.622] { 1532s [00:52:12.622] inherits <- base::inherits 1532s [00:52:12.622] invokeRestart <- base::invokeRestart 1532s [00:52:12.622] is.null <- base::is.null 1532s [00:52:12.622] muffled <- FALSE 1532s [00:52:12.622] if (inherits(cond, "message")) { 1532s [00:52:12.622] muffled <- grepl(pattern, "muffleMessage") 1532s [00:52:12.622] if (muffled) 1532s [00:52:12.622] invokeRestart("muffleMessage") 1532s [00:52:12.622] } 1532s [00:52:12.622] else if (inherits(cond, "warning")) { 1532s [00:52:12.622] muffled <- grepl(pattern, "muffleWarning") 1532s [00:52:12.622] if (muffled) 1532s [00:52:12.622] invokeRestart("muffleWarning") 1532s [00:52:12.622] } 1532s [00:52:12.622] else if (inherits(cond, "condition")) { 1532s [00:52:12.622] if (!is.null(pattern)) { 1532s [00:52:12.622] computeRestarts <- base::computeRestarts 1532s [00:52:12.622] grepl <- base::grepl 1532s [00:52:12.622] restarts <- computeRestarts(cond) 1532s [00:52:12.622] for (restart in restarts) { 1532s [00:52:12.622] name <- restart$name 1532s [00:52:12.622] if (is.null(name)) 1532s [00:52:12.622] next 1532s [00:52:12.622] if (!grepl(pattern, name)) 1532s [00:52:12.622] next 1532s [00:52:12.622] invokeRestart(restart) 1532s [00:52:12.622] muffled <- TRUE 1532s [00:52:12.622] break 1532s [00:52:12.622] } 1532s [00:52:12.622] } 1532s [00:52:12.622] } 1532s [00:52:12.622] invisible(muffled) 1532s [00:52:12.622] } 1532s [00:52:12.622] muffleCondition(cond, pattern = "^muffle") 1532s [00:52:12.622] } 1532s [00:52:12.622] } 1532s [00:52:12.622] } 1532s [00:52:12.622] })) 1532s [00:52:12.622] }, error = function(ex) { 1532s [00:52:12.622] base::structure(base::list(value = NULL, visible = NULL, 1532s [00:52:12.622] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1532s [00:52:12.622] ...future.rng), started = ...future.startTime, 1532s [00:52:12.622] finished = Sys.time(), session_uuid = NA_character_, 1532s [00:52:12.622] version = "1.8"), class = "FutureResult") 1532s [00:52:12.622] }, finally = { 1532s [00:52:12.622] if (!identical(...future.workdir, getwd())) 1532s [00:52:12.622] setwd(...future.workdir) 1532s [00:52:12.622] { 1532s [00:52:12.622] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1532s [00:52:12.622] ...future.oldOptions$nwarnings <- NULL 1532s [00:52:12.622] } 1532s [00:52:12.622] base::options(...future.oldOptions) 1532s [00:52:12.622] if (.Platform$OS.type == "windows") { 1532s [00:52:12.622] old_names <- names(...future.oldEnvVars) 1532s [00:52:12.622] envs <- base::Sys.getenv() 1532s [00:52:12.622] names <- names(envs) 1532s [00:52:12.622] common <- intersect(names, old_names) 1532s [00:52:12.622] added <- setdiff(names, old_names) 1532s [00:52:12.622] removed <- setdiff(old_names, names) 1532s [00:52:12.622] changed <- common[...future.oldEnvVars[common] != 1532s [00:52:12.622] envs[common]] 1532s [00:52:12.622] NAMES <- toupper(changed) 1532s [00:52:12.622] args <- list() 1532s [00:52:12.622] for (kk in seq_along(NAMES)) { 1532s [00:52:12.622] name <- changed[[kk]] 1532s [00:52:12.622] NAME <- NAMES[[kk]] 1532s [00:52:12.622] if (name != NAME && is.element(NAME, old_names)) 1532s [00:52:12.622] next 1532s [00:52:12.622] args[[name]] <- ...future.oldEnvVars[[name]] 1532s [00:52:12.622] } 1532s [00:52:12.622] NAMES <- toupper(added) 1532s [00:52:12.622] for (kk in seq_along(NAMES)) { 1532s [00:52:12.622] name <- added[[kk]] 1532s [00:52:12.622] NAME <- NAMES[[kk]] 1532s [00:52:12.622] if (name != NAME && is.element(NAME, old_names)) 1532s [00:52:12.622] next 1532s [00:52:12.622] args[[name]] <- "" 1532s [00:52:12.622] } 1532s [00:52:12.622] NAMES <- toupper(removed) 1532s [00:52:12.622] for (kk in seq_along(NAMES)) { 1532s [00:52:12.622] name <- removed[[kk]] 1532s [00:52:12.622] NAME <- NAMES[[kk]] 1532s [00:52:12.622] if (name != NAME && is.element(NAME, old_names)) 1532s [00:52:12.622] next 1532s [00:52:12.622] args[[name]] <- ...future.oldEnvVars[[name]] 1532s [00:52:12.622] } 1532s [00:52:12.622] if (length(args) > 0) 1532s [00:52:12.622] base::do.call(base::Sys.setenv, args = args) 1532s [00:52:12.622] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1532s [00:52:12.622] } 1532s [00:52:12.622] else { 1532s [00:52:12.622] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1532s [00:52:12.622] } 1532s [00:52:12.622] { 1532s [00:52:12.622] if (base::length(...future.futureOptionsAdded) > 1532s [00:52:12.622] 0L) { 1532s [00:52:12.622] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1532s [00:52:12.622] base::names(opts) <- ...future.futureOptionsAdded 1532s [00:52:12.622] base::options(opts) 1532s [00:52:12.622] } 1532s [00:52:12.622] { 1532s [00:52:12.622] { 1532s [00:52:12.622] NULL 1532s [00:52:12.622] RNGkind("Mersenne-Twister") 1532s [00:52:12.622] base::rm(list = ".Random.seed", envir = base::globalenv(), 1532s [00:52:12.622] inherits = FALSE) 1532s [00:52:12.622] } 1532s [00:52:12.622] options(future.plan = NULL) 1532s [00:52:12.622] if (is.na(NA_character_)) 1532s [00:52:12.622] Sys.unsetenv("R_FUTURE_PLAN") 1532s [00:52:12.622] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1532s [00:52:12.622] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1532s [00:52:12.622] envir = parent.frame()) 1532s [00:52:12.622] { 1532s [00:52:12.622] default_workers <- missing(workers) 1532s [00:52:12.622] if (is.function(workers)) 1532s [00:52:12.622] workers <- workers() 1532s [00:52:12.622] workers <- structure(as.integer(workers), 1532s [00:52:12.622] class = class(workers)) 1532s [00:52:12.622] stop_if_not(is.finite(workers), workers >= 1532s [00:52:12.622] 1L) 1532s [00:52:12.622] if ((workers == 1L && !inherits(workers, 1532s [00:52:12.622] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1532s [00:52:12.622] if (default_workers) 1532s [00:52:12.622] supportsMulticore(warn = TRUE) 1532s [00:52:12.622] return(sequential(..., envir = envir)) 1532s [00:52:12.622] } 1532s [00:52:12.622] oopts <- options(mc.cores = workers) 1532s [00:52:12.622] on.exit(options(oopts)) 1532s [00:52:12.622] future <- MulticoreFuture(..., workers = workers, 1532s [00:52:12.622] envir = envir) 1532s [00:52:12.622] if (!future$lazy) 1532s [00:52:12.622] future <- run(future) 1532s [00:52:12.622] invisible(future) 1532s [00:52:12.622] }), .cleanup = FALSE, .init = FALSE) 1532s [00:52:12.622] } 1532s [00:52:12.622] } 1532s [00:52:12.622] } 1532s [00:52:12.622] }) 1532s [00:52:12.622] if (TRUE) { 1532s [00:52:12.622] base::sink(type = "output", split = FALSE) 1532s [00:52:12.622] if (TRUE) { 1532s [00:52:12.622] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1532s [00:52:12.622] } 1532s [00:52:12.622] else { 1532s [00:52:12.622] ...future.result["stdout"] <- base::list(NULL) 1532s [00:52:12.622] } 1532s [00:52:12.622] base::close(...future.stdout) 1532s [00:52:12.622] ...future.stdout <- NULL 1532s [00:52:12.622] } 1532s [00:52:12.622] ...future.result$conditions <- ...future.conditions 1532s [00:52:12.622] ...future.result$finished <- base::Sys.time() 1532s [00:52:12.622] ...future.result 1532s [00:52:12.622] } 1532s [00:52:12.625] assign_globals() ... 1532s [00:52:12.625] List of 5 1532s [00:52:12.625] $ ...future.FUN :function (object, ...) 1532s [00:52:12.625] $ future.call.arguments : list() 1532s [00:52:12.625] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1532s [00:52:12.625] $ ...future.elements_ii :List of 3 1532s [00:52:12.625] ..$ :'data.frame': 18 obs. of 3 variables: 1532s [00:52:12.625] .. ..$ breaks : num [1:18] 26 30 54 25 70 52 51 26 67 27 ... 1532s [00:52:12.625] .. ..$ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 2 ... 1532s [00:52:12.625] .. ..$ tension: Factor w/ 3 levels "L","M","H": 1 1 1 1 1 1 1 1 1 1 ... 1532s [00:52:12.625] ..$ :'data.frame': 18 obs. of 3 variables: 1532s [00:52:12.625] .. ..$ breaks : num [1:18] 18 21 29 17 12 18 35 30 36 42 ... 1532s [00:52:12.625] .. ..$ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 2 ... 1532s [00:52:12.625] .. ..$ tension: Factor w/ 3 levels "L","M","H": 2 2 2 2 2 2 2 2 2 2 ... 1532s [00:52:12.625] ..$ :'data.frame': 18 obs. of 3 variables: 1532s [00:52:12.625] .. ..$ breaks : num [1:18] 36 21 24 18 10 43 28 15 26 20 ... 1532s [00:52:12.625] .. ..$ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 2 ... 1532s [00:52:12.625] .. ..$ tension: Factor w/ 3 levels "L","M","H": 3 3 3 3 3 3 3 3 3 3 ... 1532s [00:52:12.625] $ ...future.seeds_ii : NULL 1532s [00:52:12.625] $ ...future.globals.maxSize: NULL 1532s [00:52:12.625] - attr(*, "where")=List of 5 1532s [00:52:12.625] ..$ ...future.FUN : 1532s [00:52:12.625] ..$ future.call.arguments : 1532s [00:52:12.625] ..$ ...future.elements_ii : 1532s [00:52:12.625] ..$ ...future.seeds_ii : 1532s [00:52:12.625] ..$ ...future.globals.maxSize: 1532s [00:52:12.625] - attr(*, "resolved")= logi FALSE 1532s [00:52:12.625] - attr(*, "total_size")= num 1240 1532s [00:52:12.625] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1532s [00:52:12.625] - attr(*, "already-done")= logi TRUE 1532s [00:52:12.640] - copied ‘...future.FUN’ to environment 1532s [00:52:12.640] - copied ‘future.call.arguments’ to environment 1532s [00:52:12.641] - copied ‘...future.elements_ii’ to environment 1532s [00:52:12.641] - copied ‘...future.seeds_ii’ to environment 1532s [00:52:12.641] - copied ‘...future.globals.maxSize’ to environment 1532s [00:52:12.641] assign_globals() ... done 1532s [00:52:12.642] plan(): Setting new future strategy stack: 1532s [00:52:12.643] List of future strategies: 1532s [00:52:12.643] 1. sequential: 1532s [00:52:12.643] - args: function (..., envir = parent.frame()) 1532s [00:52:12.643] - tweaked: FALSE 1532s [00:52:12.643] - call: NULL 1532s [00:52:12.644] plan(): nbrOfWorkers() = 1 1532s [00:52:12.646] plan(): Setting new future strategy stack: 1532s [00:52:12.647] List of future strategies: 1532s [00:52:12.647] 1. multicore: 1532s [00:52:12.647] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1532s [00:52:12.647] - tweaked: FALSE 1532s [00:52:12.647] - call: plan(strategy) 1532s [00:52:12.651] plan(): nbrOfWorkers() = 1 1532s [00:52:12.651] SequentialFuture started (and completed) 1532s [00:52:12.651] - Launch lazy future ... done 1532s [00:52:12.651] run() for ‘SequentialFuture’ ... done 1532s [00:52:12.651] Created future: 1532s [00:52:12.652] SequentialFuture: 1532s [00:52:12.652] Label: ‘future_by-1’ 1532s [00:52:12.652] Expression: 1532s [00:52:12.652] { 1532s [00:52:12.652] do.call(function(...) { 1532s [00:52:12.652] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1532s [00:52:12.652] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1532s [00:52:12.652] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1532s [00:52:12.652] on.exit(options(oopts), add = TRUE) 1532s [00:52:12.652] } 1532s [00:52:12.652] { 1532s [00:52:12.652] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1532s [00:52:12.652] ...future.X_jj <- ...future.elements_ii[[jj]] 1532s [00:52:12.652] ...future.FUN(...future.X_jj, ...) 1532s [00:52:12.652] }) 1532s [00:52:12.652] } 1532s [00:52:12.652] }, args = future.call.arguments) 1532s [00:52:12.652] } 1532s [00:52:12.652] Lazy evaluation: FALSE 1532s [00:52:12.652] Asynchronous evaluation: FALSE 1532s [00:52:12.652] Local evaluation: TRUE 1532s [00:52:12.652] Environment: 0x2aa04968960 1532s [00:52:12.652] Capture standard output: TRUE 1532s [00:52:12.652] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1532s [00:52:12.652] Globals: 5 objects totaling 6.02 KiB (function ‘...future.FUN’ of 1.21 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 4.80 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1532s [00:52:12.652] Packages: 1532s [00:52:12.652] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1532s [00:52:12.652] Resolved: TRUE 1532s [00:52:12.652] Value: 5.37 KiB of class ‘list’ 1532s [00:52:12.652] Early signaling: FALSE 1532s [00:52:12.652] Owner process: 64a671dd-8756-a081-baa7-973da233f197 1532s [00:52:12.652] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1532s [00:52:12.654] Chunk #1 of 1 ... DONE 1532s [00:52:12.654] Launching 1 futures (chunks) ... DONE 1532s [00:52:12.654] Resolving 1 futures (chunks) ... 1532s [00:52:12.654] resolve() on list ... 1532s [00:52:12.654] recursive: 0 1532s [00:52:12.655] length: 1 1532s [00:52:12.655] 1532s [00:52:12.655] resolved() for ‘SequentialFuture’ ... 1532s [00:52:12.655] - state: ‘finished’ 1532s [00:52:12.655] - run: TRUE 1532s [00:52:12.655] - result: ‘FutureResult’ 1532s [00:52:12.655] resolved() for ‘SequentialFuture’ ... done 1532s [00:52:12.656] Future #1 1532s [00:52:12.656] signalConditionsASAP(SequentialFuture, pos=1) ... 1532s [00:52:12.656] - nx: 1 1532s [00:52:12.656] - relay: TRUE 1532s [00:52:12.656] - stdout: TRUE 1532s [00:52:12.657] - signal: TRUE 1532s [00:52:12.657] - resignal: FALSE 1532s [00:52:12.657] - force: TRUE 1532s [00:52:12.657] - relayed: [n=1] FALSE 1532s [00:52:12.657] - queued futures: [n=1] FALSE 1532s [00:52:12.657] - until=1 1532s [00:52:12.657] - relaying element #1 1532s [00:52:12.658] - relayed: [n=1] TRUE 1532s [00:52:12.658] - queued futures: [n=1] TRUE 1532s [00:52:12.658] signalConditionsASAP(SequentialFuture, pos=1) ... done 1532s [00:52:12.658] length: 0 (resolved future 1) 1532s [00:52:12.659] Relaying remaining futures 1532s [00:52:12.659] signalConditionsASAP(NULL, pos=0) ... 1532s [00:52:12.659] - nx: 1 1532s [00:52:12.659] - relay: TRUE 1532s [00:52:12.659] - stdout: TRUE 1532s [00:52:12.659] - signal: TRUE 1532s [00:52:12.659] - resignal: FALSE 1532s [00:52:12.659] - force: TRUE 1532s [00:52:12.660] - relayed: [n=1] TRUE 1532s [00:52:12.660] - queued futures: [n=1] TRUE 1532s - flush all 1532s [00:52:12.660] - relayed: [n=1] TRUE 1532s [00:52:12.660] - queued futures: [n=1] TRUE 1532s [00:52:12.660] signalConditionsASAP(NULL, pos=0) ... done 1532s [00:52:12.660] resolve() on list ... DONE 1532s [00:52:12.661] - Number of value chunks collected: 1 1532s [00:52:12.661] Resolving 1 futures (chunks) ... DONE 1532s [00:52:12.661] Reducing values from 1 chunks ... 1532s [00:52:12.661] - Number of values collected after concatenation: 3 1532s [00:52:12.661] - Number of values expected: 3 1532s [00:52:12.662] Reducing values from 1 chunks ... DONE 1532s [00:52:12.662] future_lapply() ... DONE 1532s [00:52:12.662] future_by_internal() ... DONE 1532s [00:52:12.663] future_by_internal() ... 1532s Warning: Specifying the function 'FUN' for future_by() as a character string is deprecated in future.apply (>= 1.10.0) [2022-11-04], because base::by() does not support it. Instead, specify it as a function, e.g. FUN = sqrt and FUN = `[[`. It is deprecated. 1532s [00:52:12.663] future_lapply() ... 1532s [00:52:12.667] Number of chunks: 1 1532s [00:52:12.668] getGlobalsAndPackagesXApply() ... 1532s [00:52:12.668] - future.globals: TRUE 1532s [00:52:12.668] getGlobalsAndPackages() ... 1532s [00:52:12.668] Searching for globals... 1532s [00:52:12.670] - globals found: [2] ‘FUN’, ‘UseMethod’ 1532s [00:52:12.670] Searching for globals ... DONE 1532s [00:52:12.670] Resolving globals: FALSE 1532s [00:52:12.671] The total size of the 1 globals is 1.21 KiB (1240 bytes) 1532s [00:52:12.671] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.21 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.21 KiB of class ‘function’) 1532s [00:52:12.671] - globals: [1] ‘FUN’ 1532s [00:52:12.672] 1532s [00:52:12.672] getGlobalsAndPackages() ... DONE 1532s [00:52:12.672] - globals found/used: [n=1] ‘FUN’ 1532s [00:52:12.672] - needed namespaces: [n=0] 1532s [00:52:12.672] Finding globals ... DONE 1532s [00:52:12.672] - use_args: TRUE 1532s [00:52:12.672] - Getting '...' globals ... 1532s [00:52:12.673] resolve() on list ... 1532s [00:52:12.673] recursive: 0 1532s [00:52:12.673] length: 1 1532s [00:52:12.673] elements: ‘...’ 1532s [00:52:12.673] length: 0 (resolved future 1) 1532s [00:52:12.674] resolve() on list ... DONE 1532s [00:52:12.674] - '...' content: [n=0] 1532s [00:52:12.674] List of 1 1532s [00:52:12.674] $ ...: list() 1532s [00:52:12.674] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1532s [00:52:12.674] - attr(*, "where")=List of 1 1532s [00:52:12.674] ..$ ...: 1532s [00:52:12.674] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1532s [00:52:12.674] - attr(*, "resolved")= logi TRUE 1532s [00:52:12.674] - attr(*, "total_size")= num NA 1532s [00:52:12.677] - Getting '...' globals ... DONE 1532s [00:52:12.678] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1532s [00:52:12.678] List of 2 1532s [00:52:12.678] $ ...future.FUN:function (object, ...) 1532s [00:52:12.678] $ ... : list() 1532s [00:52:12.678] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1532s [00:52:12.678] - attr(*, "where")=List of 2 1532s [00:52:12.678] ..$ ...future.FUN: 1532s [00:52:12.678] ..$ ... : 1532s [00:52:12.678] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1532s [00:52:12.678] - attr(*, "resolved")= logi FALSE 1532s [00:52:12.678] - attr(*, "total_size")= num 1240 1532s [00:52:12.683] Packages to be attached in all futures: [n=0] 1532s [00:52:12.683] getGlobalsAndPackagesXApply() ... DONE 1532s [00:52:12.683] Number of futures (= number of chunks): 1 1532s [00:52:12.684] Launching 1 futures (chunks) ... 1532s [00:52:12.684] Chunk #1 of 1 ... 1532s [00:52:12.684] - Finding globals in 'X' for chunk #1 ... 1532s [00:52:12.684] getGlobalsAndPackages() ... 1532s [00:52:12.684] Searching for globals... 1532s [00:52:12.685] 1532s [00:52:12.685] Searching for globals ... DONE 1532s [00:52:12.685] - globals: [0] 1532s [00:52:12.685] getGlobalsAndPackages() ... DONE 1532s [00:52:12.685] + additional globals found: [n=0] 1532s [00:52:12.685] + additional namespaces needed: [n=0] 1532s [00:52:12.686] - Finding globals in 'X' for chunk #1 ... DONE 1532s [00:52:12.686] - seeds: 1532s [00:52:12.686] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1532s [00:52:12.686] getGlobalsAndPackages() ... 1532s [00:52:12.686] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1532s [00:52:12.686] Resolving globals: FALSE 1532s [00:52:12.687] Tweak future expression to call with '...' arguments ... 1532s [00:52:12.687] { 1532s [00:52:12.687] do.call(function(...) { 1532s [00:52:12.687] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1532s [00:52:12.687] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1532s [00:52:12.687] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1532s [00:52:12.687] on.exit(options(oopts), add = TRUE) 1532s [00:52:12.687] } 1532s [00:52:12.687] { 1532s [00:52:12.687] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1532s [00:52:12.687] ...future.X_jj <- ...future.elements_ii[[jj]] 1532s [00:52:12.687] ...future.FUN(...future.X_jj, ...) 1532s [00:52:12.687] }) 1532s [00:52:12.687] } 1532s [00:52:12.687] }, args = future.call.arguments) 1532s [00:52:12.687] } 1532s [00:52:12.687] Tweak future expression to call with '...' arguments ... DONE 1532s [00:52:12.688] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1532s [00:52:12.688] 1532s [00:52:12.688] getGlobalsAndPackages() ... DONE 1532s [00:52:12.688] run() for ‘Future’ ... 1532s [00:52:12.689] - state: ‘created’ 1532s [00:52:12.689] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1532s [00:52:12.693] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1532s [00:52:12.693] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1532s [00:52:12.693] - Field: ‘label’ 1532s [00:52:12.693] - Field: ‘local’ 1532s [00:52:12.694] - Field: ‘owner’ 1532s [00:52:12.694] - Field: ‘envir’ 1532s [00:52:12.694] - Field: ‘packages’ 1532s [00:52:12.694] - Field: ‘gc’ 1532s [00:52:12.694] - Field: ‘conditions’ 1532s [00:52:12.694] - Field: ‘expr’ 1532s [00:52:12.694] - Field: ‘uuid’ 1532s [00:52:12.694] - Field: ‘seed’ 1532s [00:52:12.694] - Field: ‘version’ 1532s [00:52:12.695] - Field: ‘result’ 1532s [00:52:12.695] - Field: ‘asynchronous’ 1532s [00:52:12.695] - Field: ‘calls’ 1532s [00:52:12.695] - Field: ‘globals’ 1532s [00:52:12.695] - Field: ‘stdout’ 1532s [00:52:12.695] - Field: ‘earlySignal’ 1532s [00:52:12.695] - Field: ‘lazy’ 1532s [00:52:12.695] - Field: ‘state’ 1532s [00:52:12.696] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1532s [00:52:12.696] - Launch lazy future ... 1532s [00:52:12.696] Packages needed by the future expression (n = 0): 1532s [00:52:12.696] Packages needed by future strategies (n = 0): 1532s [00:52:12.697] { 1532s [00:52:12.697] { 1532s [00:52:12.697] { 1532s [00:52:12.697] ...future.startTime <- base::Sys.time() 1532s [00:52:12.697] { 1532s [00:52:12.697] { 1532s [00:52:12.697] { 1532s [00:52:12.697] base::local({ 1532s [00:52:12.697] has_future <- base::requireNamespace("future", 1532s [00:52:12.697] quietly = TRUE) 1532s [00:52:12.697] if (has_future) { 1532s [00:52:12.697] ns <- base::getNamespace("future") 1532s [00:52:12.697] version <- ns[[".package"]][["version"]] 1532s [00:52:12.697] if (is.null(version)) 1532s [00:52:12.697] version <- utils::packageVersion("future") 1532s [00:52:12.697] } 1532s [00:52:12.697] else { 1532s [00:52:12.697] version <- NULL 1532s [00:52:12.697] } 1532s [00:52:12.697] if (!has_future || version < "1.8.0") { 1532s [00:52:12.697] info <- base::c(r_version = base::gsub("R version ", 1532s [00:52:12.697] "", base::R.version$version.string), 1532s [00:52:12.697] platform = base::sprintf("%s (%s-bit)", 1532s [00:52:12.697] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1532s [00:52:12.697] os = base::paste(base::Sys.info()[base::c("sysname", 1532s [00:52:12.697] "release", "version")], collapse = " "), 1532s [00:52:12.697] hostname = base::Sys.info()[["nodename"]]) 1532s [00:52:12.697] info <- base::sprintf("%s: %s", base::names(info), 1532s [00:52:12.697] info) 1532s [00:52:12.697] info <- base::paste(info, collapse = "; ") 1532s [00:52:12.697] if (!has_future) { 1532s [00:52:12.697] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1532s [00:52:12.697] info) 1532s [00:52:12.697] } 1532s [00:52:12.697] else { 1532s [00:52:12.697] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1532s [00:52:12.697] info, version) 1532s [00:52:12.697] } 1532s [00:52:12.697] base::stop(msg) 1532s [00:52:12.697] } 1532s [00:52:12.697] }) 1532s [00:52:12.697] } 1532s [00:52:12.697] options(future.plan = NULL) 1532s [00:52:12.697] Sys.unsetenv("R_FUTURE_PLAN") 1532s [00:52:12.697] future::plan("default", .cleanup = FALSE, .init = FALSE) 1532s [00:52:12.697] } 1532s [00:52:12.697] ...future.workdir <- getwd() 1532s [00:52:12.697] } 1532s [00:52:12.697] ...future.oldOptions <- base::as.list(base::.Options) 1532s [00:52:12.697] ...future.oldEnvVars <- base::Sys.getenv() 1532s [00:52:12.697] } 1532s [00:52:12.697] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1532s [00:52:12.697] future.globals.maxSize = NULL, future.globals.method = NULL, 1532s [00:52:12.697] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1532s [00:52:12.697] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1532s [00:52:12.697] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1532s [00:52:12.697] future.stdout.windows.reencode = NULL, width = 80L) 1532s [00:52:12.697] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1532s [00:52:12.697] base::names(...future.oldOptions)) 1532s [00:52:12.697] } 1532s [00:52:12.697] if (FALSE) { 1532s [00:52:12.697] } 1532s [00:52:12.697] else { 1532s [00:52:12.697] if (TRUE) { 1532s [00:52:12.697] ...future.stdout <- base::rawConnection(base::raw(0L), 1532s [00:52:12.697] open = "w") 1532s [00:52:12.697] } 1532s [00:52:12.697] else { 1532s [00:52:12.697] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1532s [00:52:12.697] windows = "NUL", "/dev/null"), open = "w") 1532s [00:52:12.697] } 1532s [00:52:12.697] base::sink(...future.stdout, type = "output", split = FALSE) 1532s [00:52:12.697] base::on.exit(if (!base::is.null(...future.stdout)) { 1532s [00:52:12.697] base::sink(type = "output", split = FALSE) 1532s [00:52:12.697] base::close(...future.stdout) 1532s [00:52:12.697] }, add = TRUE) 1532s [00:52:12.697] } 1532s [00:52:12.697] ...future.frame <- base::sys.nframe() 1532s [00:52:12.697] ...future.conditions <- base::list() 1532s [00:52:12.697] ...future.rng <- base::globalenv()$.Random.seed 1532s [00:52:12.697] if (FALSE) { 1532s [00:52:12.697] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1532s [00:52:12.697] "...future.value", "...future.globalenv.names", ".Random.seed") 1532s [00:52:12.697] } 1532s [00:52:12.697] ...future.result <- base::tryCatch({ 1532s [00:52:12.697] base::withCallingHandlers({ 1532s [00:52:12.697] ...future.value <- base::withVisible(base::local({ 1532s [00:52:12.697] do.call(function(...) { 1532s [00:52:12.697] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1532s [00:52:12.697] if (!identical(...future.globals.maxSize.org, 1532s [00:52:12.697] ...future.globals.maxSize)) { 1532s [00:52:12.697] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1532s [00:52:12.697] on.exit(options(oopts), add = TRUE) 1532s [00:52:12.697] } 1532s [00:52:12.697] { 1532s [00:52:12.697] lapply(seq_along(...future.elements_ii), 1532s [00:52:12.697] FUN = function(jj) { 1532s [00:52:12.697] ...future.X_jj <- ...future.elements_ii[[jj]] 1532s [00:52:12.697] ...future.FUN(...future.X_jj, ...) 1532s [00:52:12.697] }) 1532s [00:52:12.697] } 1532s [00:52:12.697] }, args = future.call.arguments) 1532s [00:52:12.697] })) 1532s [00:52:12.697] future::FutureResult(value = ...future.value$value, 1532s [00:52:12.697] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1532s [00:52:12.697] ...future.rng), globalenv = if (FALSE) 1532s [00:52:12.697] list(added = base::setdiff(base::names(base::.GlobalEnv), 1532s [00:52:12.697] ...future.globalenv.names)) 1532s [00:52:12.697] else NULL, started = ...future.startTime, version = "1.8") 1532s [00:52:12.697] }, condition = base::local({ 1532s [00:52:12.697] c <- base::c 1532s [00:52:12.697] inherits <- base::inherits 1532s [00:52:12.697] invokeRestart <- base::invokeRestart 1532s [00:52:12.697] length <- base::length 1532s [00:52:12.697] list <- base::list 1532s [00:52:12.697] seq.int <- base::seq.int 1532s [00:52:12.697] signalCondition <- base::signalCondition 1532s [00:52:12.697] sys.calls <- base::sys.calls 1532s [00:52:12.697] `[[` <- base::`[[` 1532s [00:52:12.697] `+` <- base::`+` 1532s [00:52:12.697] `<<-` <- base::`<<-` 1532s [00:52:12.697] sysCalls <- function(calls = sys.calls(), from = 1L) { 1532s [00:52:12.697] calls[seq.int(from = from + 12L, to = length(calls) - 1532s [00:52:12.697] 3L)] 1532s [00:52:12.697] } 1532s [00:52:12.697] function(cond) { 1532s [00:52:12.697] is_error <- inherits(cond, "error") 1532s [00:52:12.697] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1532s [00:52:12.697] NULL) 1532s [00:52:12.697] if (is_error) { 1532s [00:52:12.697] sessionInformation <- function() { 1532s [00:52:12.697] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1532s [00:52:12.697] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1532s [00:52:12.697] search = base::search(), system = base::Sys.info()) 1532s [00:52:12.697] } 1532s [00:52:12.697] ...future.conditions[[length(...future.conditions) + 1532s [00:52:12.697] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1532s [00:52:12.697] cond$call), session = sessionInformation(), 1532s [00:52:12.697] timestamp = base::Sys.time(), signaled = 0L) 1532s [00:52:12.697] signalCondition(cond) 1532s [00:52:12.697] } 1532s [00:52:12.697] else if (!ignore && TRUE && inherits(cond, c("condition", 1532s [00:52:12.697] "immediateCondition"))) { 1532s [00:52:12.697] signal <- TRUE && inherits(cond, "immediateCondition") 1532s [00:52:12.697] ...future.conditions[[length(...future.conditions) + 1532s [00:52:12.697] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1532s [00:52:12.697] if (TRUE && !signal) { 1532s [00:52:12.697] muffleCondition <- function (cond, pattern = "^muffle") 1532s [00:52:12.697] { 1532s [00:52:12.697] inherits <- base::inherits 1532s [00:52:12.697] invokeRestart <- base::invokeRestart 1532s [00:52:12.697] is.null <- base::is.null 1532s [00:52:12.697] muffled <- FALSE 1532s [00:52:12.697] if (inherits(cond, "message")) { 1532s [00:52:12.697] muffled <- grepl(pattern, "muffleMessage") 1532s [00:52:12.697] if (muffled) 1532s [00:52:12.697] invokeRestart("muffleMessage") 1532s [00:52:12.697] } 1532s [00:52:12.697] else if (inherits(cond, "warning")) { 1532s [00:52:12.697] muffled <- grepl(pattern, "muffleWarning") 1532s [00:52:12.697] if (muffled) 1532s [00:52:12.697] invokeRestart("muffleWarning") 1532s [00:52:12.697] } 1532s [00:52:12.697] else if (inherits(cond, "condition")) { 1532s [00:52:12.697] if (!is.null(pattern)) { 1532s [00:52:12.697] computeRestarts <- base::computeRestarts 1532s [00:52:12.697] grepl <- base::grepl 1532s [00:52:12.697] restarts <- computeRestarts(cond) 1532s [00:52:12.697] for (restart in restarts) { 1532s [00:52:12.697] name <- restart$name 1532s [00:52:12.697] if (is.null(name)) 1532s [00:52:12.697] next 1532s [00:52:12.697] if (!grepl(pattern, name)) 1532s [00:52:12.697] next 1532s [00:52:12.697] invokeRestart(restart) 1532s [00:52:12.697] muffled <- TRUE 1532s [00:52:12.697] break 1532s [00:52:12.697] } 1532s [00:52:12.697] } 1532s [00:52:12.697] } 1532s [00:52:12.697] invisible(muffled) 1532s [00:52:12.697] } 1532s [00:52:12.697] muffleCondition(cond, pattern = "^muffle") 1532s [00:52:12.697] } 1532s [00:52:12.697] } 1532s [00:52:12.697] else { 1532s [00:52:12.697] if (TRUE) { 1532s [00:52:12.697] muffleCondition <- function (cond, pattern = "^muffle") 1532s [00:52:12.697] { 1532s [00:52:12.697] inherits <- base::inherits 1532s [00:52:12.697] invokeRestart <- base::invokeRestart 1532s [00:52:12.697] is.null <- base::is.null 1532s [00:52:12.697] muffled <- FALSE 1532s [00:52:12.697] if (inherits(cond, "message")) { 1532s [00:52:12.697] muffled <- grepl(pattern, "muffleMessage") 1532s [00:52:12.697] if (muffled) 1532s [00:52:12.697] invokeRestart("muffleMessage") 1532s [00:52:12.697] } 1532s [00:52:12.697] else if (inherits(cond, "warning")) { 1532s [00:52:12.697] muffled <- grepl(pattern, "muffleWarning") 1532s [00:52:12.697] if (muffled) 1532s [00:52:12.697] invokeRestart("muffleWarning") 1532s [00:52:12.697] } 1532s [00:52:12.697] else if (inherits(cond, "condition")) { 1532s [00:52:12.697] if (!is.null(pattern)) { 1532s [00:52:12.697] computeRestarts <- base::computeRestarts 1532s [00:52:12.697] grepl <- base::grepl 1532s [00:52:12.697] restarts <- computeRestarts(cond) 1532s [00:52:12.697] for (restart in restarts) { 1532s [00:52:12.697] name <- restart$name 1532s [00:52:12.697] if (is.null(name)) 1532s [00:52:12.697] next 1532s [00:52:12.697] if (!grepl(pattern, name)) 1532s [00:52:12.697] next 1532s [00:52:12.697] invokeRestart(restart) 1532s [00:52:12.697] muffled <- TRUE 1532s [00:52:12.697] break 1532s [00:52:12.697] } 1532s [00:52:12.697] } 1532s [00:52:12.697] } 1532s [00:52:12.697] invisible(muffled) 1532s [00:52:12.697] } 1532s [00:52:12.697] muffleCondition(cond, pattern = "^muffle") 1532s [00:52:12.697] } 1532s [00:52:12.697] } 1532s [00:52:12.697] } 1532s [00:52:12.697] })) 1532s [00:52:12.697] }, error = function(ex) { 1532s [00:52:12.697] base::structure(base::list(value = NULL, visible = NULL, 1532s [00:52:12.697] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1532s [00:52:12.697] ...future.rng), started = ...future.startTime, 1532s [00:52:12.697] finished = Sys.time(), session_uuid = NA_character_, 1532s [00:52:12.697] version = "1.8"), class = "FutureResult") 1532s [00:52:12.697] }, finally = { 1532s [00:52:12.697] if (!identical(...future.workdir, getwd())) 1532s [00:52:12.697] setwd(...future.workdir) 1532s [00:52:12.697] { 1532s [00:52:12.697] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1532s [00:52:12.697] ...future.oldOptions$nwarnings <- NULL 1532s [00:52:12.697] } 1532s [00:52:12.697] base::options(...future.oldOptions) 1532s [00:52:12.697] if (.Platform$OS.type == "windows") { 1532s [00:52:12.697] old_names <- names(...future.oldEnvVars) 1532s [00:52:12.697] envs <- base::Sys.getenv() 1532s [00:52:12.697] names <- names(envs) 1532s [00:52:12.697] common <- intersect(names, old_names) 1532s [00:52:12.697] added <- setdiff(names, old_names) 1532s [00:52:12.697] removed <- setdiff(old_names, names) 1532s [00:52:12.697] changed <- common[...future.oldEnvVars[common] != 1532s [00:52:12.697] envs[common]] 1532s [00:52:12.697] NAMES <- toupper(changed) 1532s [00:52:12.697] args <- list() 1532s [00:52:12.697] for (kk in seq_along(NAMES)) { 1532s [00:52:12.697] name <- changed[[kk]] 1532s [00:52:12.697] NAME <- NAMES[[kk]] 1532s [00:52:12.697] if (name != NAME && is.element(NAME, old_names)) 1532s [00:52:12.697] next 1532s [00:52:12.697] args[[name]] <- ...future.oldEnvVars[[name]] 1532s [00:52:12.697] } 1532s [00:52:12.697] NAMES <- toupper(added) 1532s [00:52:12.697] for (kk in seq_along(NAMES)) { 1532s [00:52:12.697] name <- added[[kk]] 1532s [00:52:12.697] NAME <- NAMES[[kk]] 1532s [00:52:12.697] if (name != NAME && is.element(NAME, old_names)) 1532s [00:52:12.697] next 1532s [00:52:12.697] args[[name]] <- "" 1532s [00:52:12.697] } 1532s [00:52:12.697] NAMES <- toupper(removed) 1532s [00:52:12.697] for (kk in seq_along(NAMES)) { 1532s [00:52:12.697] name <- removed[[kk]] 1532s [00:52:12.697] NAME <- NAMES[[kk]] 1532s [00:52:12.697] if (name != NAME && is.element(NAME, old_names)) 1532s [00:52:12.697] next 1532s [00:52:12.697] args[[name]] <- ...future.oldEnvVars[[name]] 1532s [00:52:12.697] } 1532s [00:52:12.697] if (length(args) > 0) 1532s [00:52:12.697] base::do.call(base::Sys.setenv, args = args) 1532s [00:52:12.697] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1532s [00:52:12.697] } 1532s [00:52:12.697] else { 1532s [00:52:12.697] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1532s [00:52:12.697] } 1532s [00:52:12.697] { 1532s [00:52:12.697] if (base::length(...future.futureOptionsAdded) > 1532s [00:52:12.697] 0L) { 1532s [00:52:12.697] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1532s [00:52:12.697] base::names(opts) <- ...future.futureOptionsAdded 1532s [00:52:12.697] base::options(opts) 1532s [00:52:12.697] } 1532s [00:52:12.697] { 1532s [00:52:12.697] { 1532s [00:52:12.697] NULL 1532s [00:52:12.697] RNGkind("Mersenne-Twister") 1532s [00:52:12.697] base::rm(list = ".Random.seed", envir = base::globalenv(), 1532s [00:52:12.697] inherits = FALSE) 1532s [00:52:12.697] } 1532s [00:52:12.697] options(future.plan = NULL) 1532s [00:52:12.697] if (is.na(NA_character_)) 1532s [00:52:12.697] Sys.unsetenv("R_FUTURE_PLAN") 1532s [00:52:12.697] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1532s [00:52:12.697] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1532s [00:52:12.697] envir = parent.frame()) 1532s [00:52:12.697] { 1532s [00:52:12.697] default_workers <- missing(workers) 1532s [00:52:12.697] if (is.function(workers)) 1532s [00:52:12.697] workers <- workers() 1532s [00:52:12.697] workers <- structure(as.integer(workers), 1532s [00:52:12.697] class = class(workers)) 1532s [00:52:12.697] stop_if_not(is.finite(workers), workers >= 1532s [00:52:12.697] 1L) 1532s [00:52:12.697] if ((workers == 1L && !inherits(workers, 1532s [00:52:12.697] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1532s [00:52:12.697] if (default_workers) 1532s [00:52:12.697] supportsMulticore(warn = TRUE) 1532s [00:52:12.697] return(sequential(..., envir = envir)) 1532s [00:52:12.697] } 1532s [00:52:12.697] oopts <- options(mc.cores = workers) 1532s [00:52:12.697] on.exit(options(oopts)) 1532s [00:52:12.697] future <- MulticoreFuture(..., workers = workers, 1532s [00:52:12.697] envir = envir) 1532s [00:52:12.697] if (!future$lazy) 1532s [00:52:12.697] future <- run(future) 1532s [00:52:12.697] invisible(future) 1532s [00:52:12.697] }), .cleanup = FALSE, .init = FALSE) 1532s [00:52:12.697] } 1532s [00:52:12.697] } 1532s [00:52:12.697] } 1532s [00:52:12.697] }) 1532s [00:52:12.697] if (TRUE) { 1532s [00:52:12.697] base::sink(type = "output", split = FALSE) 1532s [00:52:12.697] if (TRUE) { 1532s [00:52:12.697] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1532s [00:52:12.697] } 1532s [00:52:12.697] else { 1532s [00:52:12.697] ...future.result["stdout"] <- base::list(NULL) 1532s [00:52:12.697] } 1532s [00:52:12.697] base::close(...future.stdout) 1532s [00:52:12.697] ...future.stdout <- NULL 1532s [00:52:12.697] } 1532s [00:52:12.697] ...future.result$conditions <- ...future.conditions 1532s [00:52:12.697] ...future.result$finished <- base::Sys.time() 1532s [00:52:12.697] ...future.result 1532s [00:52:12.697] } 1532s [00:52:12.700] assign_globals() ... 1532s [00:52:12.700] List of 5 1532s [00:52:12.700] $ ...future.FUN :function (object, ...) 1532s [00:52:12.700] $ future.call.arguments : list() 1532s [00:52:12.700] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1532s [00:52:12.700] $ ...future.elements_ii :List of 3 1532s [00:52:12.700] ..$ :'data.frame': 18 obs. of 3 variables: 1532s [00:52:12.700] .. ..$ breaks : num [1:18] 26 30 54 25 70 52 51 26 67 27 ... 1532s [00:52:12.700] .. ..$ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 2 ... 1532s [00:52:12.700] .. ..$ tension: Factor w/ 3 levels "L","M","H": 1 1 1 1 1 1 1 1 1 1 ... 1532s [00:52:12.700] ..$ :'data.frame': 18 obs. of 3 variables: 1532s [00:52:12.700] .. ..$ breaks : num [1:18] 18 21 29 17 12 18 35 30 36 42 ... 1532s [00:52:12.700] .. ..$ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 2 ... 1532s [00:52:12.700] .. ..$ tension: Factor w/ 3 levels "L","M","H": 2 2 2 2 2 2 2 2 2 2 ... 1532s [00:52:12.700] ..$ :'data.frame': 18 obs. of 3 variables: 1532s [00:52:12.700] .. ..$ breaks : num [1:18] 36 21 24 18 10 43 28 15 26 20 ... 1532s [00:52:12.700] .. ..$ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 2 ... 1532s [00:52:12.700] .. ..$ tension: Factor w/ 3 levels "L","M","H": 3 3 3 3 3 3 3 3 3 3 ... 1532s [00:52:12.700] $ ...future.seeds_ii : NULL 1532s [00:52:12.700] $ ...future.globals.maxSize: NULL 1532s [00:52:12.700] - attr(*, "where")=List of 5 1532s [00:52:12.700] ..$ ...future.FUN : 1532s [00:52:12.700] ..$ future.call.arguments : 1532s [00:52:12.700] ..$ ...future.elements_ii : 1532s [00:52:12.700] ..$ ...future.seeds_ii : 1532s [00:52:12.700] ..$ ...future.globals.maxSize: 1532s [00:52:12.700] - attr(*, "resolved")= logi FALSE 1532s [00:52:12.700] - attr(*, "total_size")= num 1240 1532s [00:52:12.700] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1532s [00:52:12.700] - attr(*, "already-done")= logi TRUE 1532s [00:52:12.712] - copied ‘...future.FUN’ to environment 1532s [00:52:12.714] - copied ‘future.call.arguments’ to environment 1532s [00:52:12.714] - copied ‘...future.elements_ii’ to environment 1532s [00:52:12.714] - copied ‘...future.seeds_ii’ to environment 1532s [00:52:12.715] - copied ‘...future.globals.maxSize’ to environment 1532s [00:52:12.715] assign_globals() ... done 1532s [00:52:12.715] plan(): Setting new future strategy stack: 1532s [00:52:12.715] List of future strategies: 1532s [00:52:12.715] 1. sequential: 1532s [00:52:12.715] - args: function (..., envir = parent.frame()) 1532s [00:52:12.715] - tweaked: FALSE 1532s [00:52:12.715] - call: NULL 1532s [00:52:12.716] plan(): nbrOfWorkers() = 1 1532s [00:52:12.719] plan(): Setting new future strategy stack: 1532s [00:52:12.719] List of future strategies: 1532s [00:52:12.719] 1. multicore: 1532s [00:52:12.719] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1532s [00:52:12.719] - tweaked: FALSE 1532s [00:52:12.719] - call: plan(strategy) 1532s [00:52:12.723] plan(): nbrOfWorkers() = 1 1532s [00:52:12.723] SequentialFuture started (and completed) 1532s [00:52:12.723] - Launch lazy future ... done 1532s [00:52:12.723] run() for ‘SequentialFuture’ ... done 1532s [00:52:12.723] Created future: 1532s [00:52:12.724] SequentialFuture: 1532s [00:52:12.724] Label: ‘future_by-1’ 1532s [00:52:12.724] Expression: 1532s [00:52:12.724] { 1532s [00:52:12.724] do.call(function(...) { 1532s [00:52:12.724] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1532s [00:52:12.724] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1532s [00:52:12.724] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1532s [00:52:12.724] on.exit(options(oopts), add = TRUE) 1532s [00:52:12.724] } 1532s [00:52:12.724] { 1532s [00:52:12.724] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1532s [00:52:12.724] ...future.X_jj <- ...future.elements_ii[[jj]] 1532s [00:52:12.724] ...future.FUN(...future.X_jj, ...) 1532s [00:52:12.724] }) 1532s [00:52:12.724] } 1532s [00:52:12.724] }, args = future.call.arguments) 1532s [00:52:12.724] } 1532s [00:52:12.724] Lazy evaluation: FALSE 1532s [00:52:12.724] Asynchronous evaluation: FALSE 1532s [00:52:12.724] Local evaluation: TRUE 1532s [00:52:12.724] Environment: 0x2aa0499fa10 1532s [00:52:12.724] Capture standard output: TRUE 1532s [00:52:12.724] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1532s [00:52:12.724] Globals: 5 objects totaling 6.02 KiB (function ‘...future.FUN’ of 1.21 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 4.80 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1532s [00:52:12.724] Packages: 1532s [00:52:12.724] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1532s [00:52:12.724] Resolved: TRUE 1532s [00:52:12.724] Value: 5.37 KiB of class ‘list’ 1532s [00:52:12.724] Early signaling: FALSE 1532s [00:52:12.724] Owner process: 64a671dd-8756-a081-baa7-973da233f197 1532s [00:52:12.724] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1532s [00:52:12.726] Chunk #1 of 1 ... DONE 1532s [00:52:12.726] Launching 1 futures (chunks) ... DONE 1532s [00:52:12.726] Resolving 1 futures (chunks) ... 1532s [00:52:12.726] resolve() on list ... 1532s [00:52:12.726] recursive: 0 1532s [00:52:12.726] length: 1 1532s [00:52:12.726] 1532s [00:52:12.727] resolved() for ‘SequentialFuture’ ... 1532s [00:52:12.727] - state: ‘finished’ 1532s [00:52:12.727] - run: TRUE 1532s [00:52:12.727] - result: ‘FutureResult’ 1532s [00:52:12.727] resolved() for ‘SequentialFuture’ ... done 1532s [00:52:12.727] Future #1 1532s [00:52:12.728] signalConditionsASAP(SequentialFuture, pos=1) ... 1532s [00:52:12.728] - nx: 1 1532s [00:52:12.728] - relay: TRUE 1532s [00:52:12.728] - stdout: TRUE 1532s [00:52:12.728] - signal: TRUE 1532s [00:52:12.728] - resignal: FALSE 1532s [00:52:12.728] - force: TRUE 1532s [00:52:12.728] - relayed: [n=1] FALSE 1532s [00:52:12.729] - queued futures: [n=1] FALSE 1532s [00:52:12.729] - until=1 1532s [00:52:12.729] - relaying element #1 1532s [00:52:12.729] - relayed: [n=1] TRUE 1532s [00:52:12.729] - queued futures: [n=1] TRUE 1532s [00:52:12.729] signalConditionsASAP(SequentialFuture, pos=1) ... done 1532s [00:52:12.730] length: 0 (resolved future 1) 1532s [00:52:12.730] Relaying remaining futures 1532s [00:52:12.730] signalConditionsASAP(NULL, pos=0) ... 1532s [00:52:12.730] - nx: 1 1532s [00:52:12.730] - relay: TRUE 1532s [00:52:12.730] - stdout: TRUE 1532s [00:52:12.730] - signal: TRUE 1532s [00:52:12.731] - resignal: FALSE 1532s [00:52:12.731] - force: TRUE 1532s [00:52:12.731] - relayed: [n=1] TRUE 1532s [00:52:12.731] - queued futures: [n=1] TRUE 1532s - flush all 1532s [00:52:12.731] - relayed: [n=1] TRUE 1532s [00:52:12.731] - queued futures: [n=1] TRUE 1532s [00:52:12.731] signalConditionsASAP(NULL, pos=0) ... done 1532s [00:52:12.731] resolve() on list ... DONE 1532s [00:52:12.732] - Number of value chunks collected: 1 1532s [00:52:12.732] Resolving 1 futures (chunks) ... DONE 1532s [00:52:12.732] Reducing values from 1 chunks ... 1532s [00:52:12.732] - Number of values collected after concatenation: 3 1532s [00:52:12.732] - Number of values expected: 3 1532s [00:52:12.732] Reducing values from 1 chunks ... DONE 1532s [00:52:12.732] future_lapply() ... DONE 1532s [00:52:12.732] future_by_internal() ... DONE 1532s [00:52:12.734] future_by_internal() ... 1532s - plan('multisession') ... 1532s [00:52:12.734] plan(): Setting new future strategy stack: 1532s [00:52:12.734] List of future strategies: 1532s [00:52:12.734] 1. multisession: 1532s [00:52:12.734] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1532s [00:52:12.734] - tweaked: FALSE 1532s [00:52:12.734] - call: plan(strategy) 1532s [00:52:12.735] plan(): plan_init() of ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ ... 1532s [00:52:12.735] multisession: 1532s [00:52:12.735] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1532s [00:52:12.735] - tweaked: FALSE 1532s [00:52:12.735] - call: plan(strategy) 1532s [00:52:12.738] getGlobalsAndPackages() ... 1532s [00:52:12.738] Not searching for globals 1532s [00:52:12.739] - globals: [0] 1532s [00:52:12.739] getGlobalsAndPackages() ... DONE 1532s [00:52:12.739] Packages needed by the future expression (n = 0): 1532s [00:52:12.739] Packages needed by future strategies (n = 0): 1532s [00:52:12.740] { 1532s [00:52:12.740] { 1532s [00:52:12.740] { 1532s [00:52:12.740] ...future.startTime <- base::Sys.time() 1532s [00:52:12.740] { 1532s [00:52:12.740] { 1532s [00:52:12.740] { 1532s [00:52:12.740] base::local({ 1532s [00:52:12.740] has_future <- base::requireNamespace("future", 1532s [00:52:12.740] quietly = TRUE) 1532s [00:52:12.740] if (has_future) { 1532s [00:52:12.740] ns <- base::getNamespace("future") 1532s [00:52:12.740] version <- ns[[".package"]][["version"]] 1532s [00:52:12.740] if (is.null(version)) 1532s [00:52:12.740] version <- utils::packageVersion("future") 1532s [00:52:12.740] } 1532s [00:52:12.740] else { 1532s [00:52:12.740] version <- NULL 1532s [00:52:12.740] } 1532s [00:52:12.740] if (!has_future || version < "1.8.0") { 1532s [00:52:12.740] info <- base::c(r_version = base::gsub("R version ", 1532s [00:52:12.740] "", base::R.version$version.string), 1532s [00:52:12.740] platform = base::sprintf("%s (%s-bit)", 1532s [00:52:12.740] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1532s [00:52:12.740] os = base::paste(base::Sys.info()[base::c("sysname", 1532s [00:52:12.740] "release", "version")], collapse = " "), 1532s [00:52:12.740] hostname = base::Sys.info()[["nodename"]]) 1532s [00:52:12.740] info <- base::sprintf("%s: %s", base::names(info), 1532s [00:52:12.740] info) 1532s [00:52:12.740] info <- base::paste(info, collapse = "; ") 1532s [00:52:12.740] if (!has_future) { 1532s [00:52:12.740] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1532s [00:52:12.740] info) 1532s [00:52:12.740] } 1532s [00:52:12.740] else { 1532s [00:52:12.740] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1532s [00:52:12.740] info, version) 1532s [00:52:12.740] } 1532s [00:52:12.740] base::stop(msg) 1532s [00:52:12.740] } 1532s [00:52:12.740] }) 1532s [00:52:12.740] } 1532s [00:52:12.740] options(future.plan = NULL) 1532s [00:52:12.740] Sys.unsetenv("R_FUTURE_PLAN") 1532s [00:52:12.740] future::plan("default", .cleanup = FALSE, .init = FALSE) 1532s [00:52:12.740] } 1532s [00:52:12.740] ...future.workdir <- getwd() 1532s [00:52:12.740] } 1532s [00:52:12.740] ...future.oldOptions <- base::as.list(base::.Options) 1532s [00:52:12.740] ...future.oldEnvVars <- base::Sys.getenv() 1532s [00:52:12.740] } 1532s [00:52:12.740] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1532s [00:52:12.740] future.globals.maxSize = NULL, future.globals.method = NULL, 1532s [00:52:12.740] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1532s [00:52:12.740] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1532s [00:52:12.740] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1532s [00:52:12.740] future.stdout.windows.reencode = NULL, width = 80L) 1532s [00:52:12.740] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1532s [00:52:12.740] base::names(...future.oldOptions)) 1532s [00:52:12.740] } 1532s [00:52:12.740] if (FALSE) { 1532s [00:52:12.740] } 1532s [00:52:12.740] else { 1532s [00:52:12.740] if (TRUE) { 1532s [00:52:12.740] ...future.stdout <- base::rawConnection(base::raw(0L), 1532s [00:52:12.740] open = "w") 1532s [00:52:12.740] } 1532s [00:52:12.740] else { 1532s [00:52:12.740] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1532s [00:52:12.740] windows = "NUL", "/dev/null"), open = "w") 1532s [00:52:12.740] } 1532s [00:52:12.740] base::sink(...future.stdout, type = "output", split = FALSE) 1532s [00:52:12.740] base::on.exit(if (!base::is.null(...future.stdout)) { 1532s [00:52:12.740] base::sink(type = "output", split = FALSE) 1532s [00:52:12.740] base::close(...future.stdout) 1532s [00:52:12.740] }, add = TRUE) 1532s [00:52:12.740] } 1532s [00:52:12.740] ...future.frame <- base::sys.nframe() 1532s [00:52:12.740] ...future.conditions <- base::list() 1532s [00:52:12.740] ...future.rng <- base::globalenv()$.Random.seed 1532s [00:52:12.740] if (FALSE) { 1532s [00:52:12.740] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1532s [00:52:12.740] "...future.value", "...future.globalenv.names", ".Random.seed") 1532s [00:52:12.740] } 1532s [00:52:12.740] ...future.result <- base::tryCatch({ 1532s [00:52:12.740] base::withCallingHandlers({ 1532s [00:52:12.740] ...future.value <- base::withVisible(base::local(NA)) 1532s [00:52:12.740] future::FutureResult(value = ...future.value$value, 1532s [00:52:12.740] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1532s [00:52:12.740] ...future.rng), globalenv = if (FALSE) 1532s [00:52:12.740] list(added = base::setdiff(base::names(base::.GlobalEnv), 1532s [00:52:12.740] ...future.globalenv.names)) 1532s [00:52:12.740] else NULL, started = ...future.startTime, version = "1.8") 1532s [00:52:12.740] }, condition = base::local({ 1532s [00:52:12.740] c <- base::c 1532s [00:52:12.740] inherits <- base::inherits 1532s [00:52:12.740] invokeRestart <- base::invokeRestart 1532s [00:52:12.740] length <- base::length 1532s [00:52:12.740] list <- base::list 1532s [00:52:12.740] seq.int <- base::seq.int 1532s [00:52:12.740] signalCondition <- base::signalCondition 1532s [00:52:12.740] sys.calls <- base::sys.calls 1532s [00:52:12.740] `[[` <- base::`[[` 1532s [00:52:12.740] `+` <- base::`+` 1532s [00:52:12.740] `<<-` <- base::`<<-` 1532s [00:52:12.740] sysCalls <- function(calls = sys.calls(), from = 1L) { 1532s [00:52:12.740] calls[seq.int(from = from + 12L, to = length(calls) - 1532s [00:52:12.740] 3L)] 1532s [00:52:12.740] } 1532s [00:52:12.740] function(cond) { 1532s [00:52:12.740] is_error <- inherits(cond, "error") 1532s [00:52:12.740] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1532s [00:52:12.740] NULL) 1532s [00:52:12.740] if (is_error) { 1532s [00:52:12.740] sessionInformation <- function() { 1532s [00:52:12.740] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1532s [00:52:12.740] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1532s [00:52:12.740] search = base::search(), system = base::Sys.info()) 1532s [00:52:12.740] } 1532s [00:52:12.740] ...future.conditions[[length(...future.conditions) + 1532s [00:52:12.740] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1532s [00:52:12.740] cond$call), session = sessionInformation(), 1532s [00:52:12.740] timestamp = base::Sys.time(), signaled = 0L) 1532s [00:52:12.740] signalCondition(cond) 1532s [00:52:12.740] } 1532s [00:52:12.740] else if (!ignore && TRUE && inherits(cond, c("condition", 1532s [00:52:12.740] "immediateCondition"))) { 1532s [00:52:12.740] signal <- TRUE && inherits(cond, "immediateCondition") 1532s [00:52:12.740] ...future.conditions[[length(...future.conditions) + 1532s [00:52:12.740] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1532s [00:52:12.740] if (TRUE && !signal) { 1532s [00:52:12.740] muffleCondition <- function (cond, pattern = "^muffle") 1532s [00:52:12.740] { 1532s [00:52:12.740] inherits <- base::inherits 1532s [00:52:12.740] invokeRestart <- base::invokeRestart 1532s [00:52:12.740] is.null <- base::is.null 1532s [00:52:12.740] muffled <- FALSE 1532s [00:52:12.740] if (inherits(cond, "message")) { 1532s [00:52:12.740] muffled <- grepl(pattern, "muffleMessage") 1532s [00:52:12.740] if (muffled) 1532s [00:52:12.740] invokeRestart("muffleMessage") 1532s [00:52:12.740] } 1532s [00:52:12.740] else if (inherits(cond, "warning")) { 1532s [00:52:12.740] muffled <- grepl(pattern, "muffleWarning") 1532s [00:52:12.740] if (muffled) 1532s [00:52:12.740] invokeRestart("muffleWarning") 1532s [00:52:12.740] } 1532s [00:52:12.740] else if (inherits(cond, "condition")) { 1532s [00:52:12.740] if (!is.null(pattern)) { 1532s [00:52:12.740] computeRestarts <- base::computeRestarts 1532s [00:52:12.740] grepl <- base::grepl 1532s [00:52:12.740] restarts <- computeRestarts(cond) 1532s [00:52:12.740] for (restart in restarts) { 1532s [00:52:12.740] name <- restart$name 1532s [00:52:12.740] if (is.null(name)) 1532s [00:52:12.740] next 1532s [00:52:12.740] if (!grepl(pattern, name)) 1532s [00:52:12.740] next 1532s [00:52:12.740] invokeRestart(restart) 1532s [00:52:12.740] muffled <- TRUE 1532s [00:52:12.740] break 1532s [00:52:12.740] } 1532s [00:52:12.740] } 1532s [00:52:12.740] } 1532s [00:52:12.740] invisible(muffled) 1532s [00:52:12.740] } 1532s [00:52:12.740] muffleCondition(cond, pattern = "^muffle") 1532s [00:52:12.740] } 1532s [00:52:12.740] } 1532s [00:52:12.740] else { 1532s [00:52:12.740] if (TRUE) { 1532s [00:52:12.740] muffleCondition <- function (cond, pattern = "^muffle") 1532s [00:52:12.740] { 1532s [00:52:12.740] inherits <- base::inherits 1532s [00:52:12.740] invokeRestart <- base::invokeRestart 1532s [00:52:12.740] is.null <- base::is.null 1532s [00:52:12.740] muffled <- FALSE 1532s [00:52:12.740] if (inherits(cond, "message")) { 1532s [00:52:12.740] muffled <- grepl(pattern, "muffleMessage") 1532s [00:52:12.740] if (muffled) 1532s [00:52:12.740] invokeRestart("muffleMessage") 1532s [00:52:12.740] } 1532s [00:52:12.740] else if (inherits(cond, "warning")) { 1532s [00:52:12.740] muffled <- grepl(pattern, "muffleWarning") 1532s [00:52:12.740] if (muffled) 1532s [00:52:12.740] invokeRestart("muffleWarning") 1532s [00:52:12.740] } 1532s [00:52:12.740] else if (inherits(cond, "condition")) { 1532s [00:52:12.740] if (!is.null(pattern)) { 1532s [00:52:12.740] computeRestarts <- base::computeRestarts 1532s [00:52:12.740] grepl <- base::grepl 1532s [00:52:12.740] restarts <- computeRestarts(cond) 1532s [00:52:12.740] for (restart in restarts) { 1532s [00:52:12.740] name <- restart$name 1532s [00:52:12.740] if (is.null(name)) 1532s [00:52:12.740] next 1532s [00:52:12.740] if (!grepl(pattern, name)) 1532s [00:52:12.740] next 1532s [00:52:12.740] invokeRestart(restart) 1532s [00:52:12.740] muffled <- TRUE 1532s [00:52:12.740] break 1532s [00:52:12.740] } 1532s [00:52:12.740] } 1532s [00:52:12.740] } 1532s [00:52:12.740] invisible(muffled) 1532s [00:52:12.740] } 1532s [00:52:12.740] muffleCondition(cond, pattern = "^muffle") 1532s [00:52:12.740] } 1532s [00:52:12.740] } 1532s [00:52:12.740] } 1532s [00:52:12.740] })) 1532s [00:52:12.740] }, error = function(ex) { 1532s [00:52:12.740] base::structure(base::list(value = NULL, visible = NULL, 1532s [00:52:12.740] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1532s [00:52:12.740] ...future.rng), started = ...future.startTime, 1532s [00:52:12.740] finished = Sys.time(), session_uuid = NA_character_, 1532s [00:52:12.740] version = "1.8"), class = "FutureResult") 1532s [00:52:12.740] }, finally = { 1532s [00:52:12.740] if (!identical(...future.workdir, getwd())) 1532s [00:52:12.740] setwd(...future.workdir) 1532s [00:52:12.740] { 1532s [00:52:12.740] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1532s [00:52:12.740] ...future.oldOptions$nwarnings <- NULL 1532s [00:52:12.740] } 1532s [00:52:12.740] base::options(...future.oldOptions) 1532s [00:52:12.740] if (.Platform$OS.type == "windows") { 1532s [00:52:12.740] old_names <- names(...future.oldEnvVars) 1532s [00:52:12.740] envs <- base::Sys.getenv() 1532s [00:52:12.740] names <- names(envs) 1532s [00:52:12.740] common <- intersect(names, old_names) 1532s [00:52:12.740] added <- setdiff(names, old_names) 1532s [00:52:12.740] removed <- setdiff(old_names, names) 1532s [00:52:12.740] changed <- common[...future.oldEnvVars[common] != 1532s [00:52:12.740] envs[common]] 1532s [00:52:12.740] NAMES <- toupper(changed) 1532s [00:52:12.740] args <- list() 1532s [00:52:12.740] for (kk in seq_along(NAMES)) { 1532s [00:52:12.740] name <- changed[[kk]] 1532s [00:52:12.740] NAME <- NAMES[[kk]] 1532s [00:52:12.740] if (name != NAME && is.element(NAME, old_names)) 1532s [00:52:12.740] next 1532s [00:52:12.740] args[[name]] <- ...future.oldEnvVars[[name]] 1532s [00:52:12.740] } 1532s [00:52:12.740] NAMES <- toupper(added) 1532s [00:52:12.740] for (kk in seq_along(NAMES)) { 1532s [00:52:12.740] name <- added[[kk]] 1532s [00:52:12.740] NAME <- NAMES[[kk]] 1532s [00:52:12.740] if (name != NAME && is.element(NAME, old_names)) 1532s [00:52:12.740] next 1532s [00:52:12.740] args[[name]] <- "" 1532s [00:52:12.740] } 1532s [00:52:12.740] NAMES <- toupper(removed) 1532s [00:52:12.740] for (kk in seq_along(NAMES)) { 1532s [00:52:12.740] name <- removed[[kk]] 1532s [00:52:12.740] NAME <- NAMES[[kk]] 1532s [00:52:12.740] if (name != NAME && is.element(NAME, old_names)) 1532s [00:52:12.740] next 1532s [00:52:12.740] args[[name]] <- ...future.oldEnvVars[[name]] 1532s [00:52:12.740] } 1532s [00:52:12.740] if (length(args) > 0) 1532s [00:52:12.740] base::do.call(base::Sys.setenv, args = args) 1532s [00:52:12.740] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1532s [00:52:12.740] } 1532s [00:52:12.740] else { 1532s [00:52:12.740] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1532s [00:52:12.740] } 1532s [00:52:12.740] { 1532s [00:52:12.740] if (base::length(...future.futureOptionsAdded) > 1532s [00:52:12.740] 0L) { 1532s [00:52:12.740] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1532s [00:52:12.740] base::names(opts) <- ...future.futureOptionsAdded 1532s [00:52:12.740] base::options(opts) 1532s [00:52:12.740] } 1532s [00:52:12.740] { 1532s [00:52:12.740] { 1532s [00:52:12.740] NULL 1532s [00:52:12.740] RNGkind("Mersenne-Twister") 1532s [00:52:12.740] base::rm(list = ".Random.seed", envir = base::globalenv(), 1532s [00:52:12.740] inherits = FALSE) 1532s [00:52:12.740] } 1532s [00:52:12.740] options(future.plan = NULL) 1532s [00:52:12.740] if (is.na(NA_character_)) 1532s [00:52:12.740] Sys.unsetenv("R_FUTURE_PLAN") 1532s [00:52:12.740] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1532s [00:52:12.740] future::plan(list(function (..., workers = availableCores(), 1532s [00:52:12.740] lazy = FALSE, rscript_libs = .libPaths(), 1532s [00:52:12.740] envir = parent.frame()) 1532s [00:52:12.740] { 1532s [00:52:12.740] if (is.function(workers)) 1532s [00:52:12.740] workers <- workers() 1532s [00:52:12.740] workers <- structure(as.integer(workers), 1532s [00:52:12.740] class = class(workers)) 1532s [00:52:12.740] stop_if_not(length(workers) == 1, is.finite(workers), 1532s [00:52:12.740] workers >= 1) 1532s [00:52:12.740] if (workers == 1L && !inherits(workers, "AsIs")) { 1532s [00:52:12.740] return(sequential(..., lazy = TRUE, envir = envir)) 1532s [00:52:12.740] } 1532s [00:52:12.740] future <- MultisessionFuture(..., workers = workers, 1532s [00:52:12.740] lazy = lazy, rscript_libs = rscript_libs, 1532s [00:52:12.740] envir = envir) 1532s [00:52:12.740] if (!future$lazy) 1532s [00:52:12.740] future <- run(future) 1532s [00:52:12.740] invisible(future) 1532s [00:52:12.740] }), .cleanup = FALSE, .init = FALSE) 1532s [00:52:12.740] } 1532s [00:52:12.740] } 1532s [00:52:12.740] } 1532s [00:52:12.740] }) 1532s [00:52:12.740] if (TRUE) { 1532s [00:52:12.740] base::sink(type = "output", split = FALSE) 1532s [00:52:12.740] if (TRUE) { 1532s [00:52:12.740] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1532s [00:52:12.740] } 1532s [00:52:12.740] else { 1532s [00:52:12.740] ...future.result["stdout"] <- base::list(NULL) 1532s [00:52:12.740] } 1532s [00:52:12.740] base::close(...future.stdout) 1532s [00:52:12.740] ...future.stdout <- NULL 1532s [00:52:12.740] } 1532s [00:52:12.740] ...future.result$conditions <- ...future.conditions 1532s [00:52:12.740] ...future.result$finished <- base::Sys.time() 1532s [00:52:12.740] ...future.result 1532s [00:52:12.740] } 1532s [00:52:12.744] plan(): Setting new future strategy stack: 1532s [00:52:12.744] List of future strategies: 1532s [00:52:12.744] 1. sequential: 1532s [00:52:12.744] - args: function (..., envir = parent.frame()) 1532s [00:52:12.744] - tweaked: FALSE 1532s [00:52:12.744] - call: NULL 1532s [00:52:12.745] plan(): nbrOfWorkers() = 1 1532s [00:52:12.745] plan(): Setting new future strategy stack: 1532s [00:52:12.746] List of future strategies: 1532s [00:52:12.746] 1. multisession: 1532s [00:52:12.746] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1532s [00:52:12.746] - tweaked: FALSE 1532s [00:52:12.746] - call: plan(strategy) 1532s [00:52:12.749] plan(): nbrOfWorkers() = 1 1532s [00:52:12.749] SequentialFuture started (and completed) 1532s [00:52:12.750] plan(): plan_init() of ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ ... DONE 1532s [00:52:12.753] plan(): nbrOfWorkers() = 1 1532s [00:52:12.754] future_by_internal() ... 1532s [00:52:12.754] future_lapply() ... 1532s [00:52:12.760] Number of chunks: 1 1532s [00:52:12.760] getGlobalsAndPackagesXApply() ... 1532s [00:52:12.760] - future.globals: TRUE 1532s [00:52:12.760] getGlobalsAndPackages() ... 1532s [00:52:12.761] Searching for globals... 1532s [00:52:12.762] - globals found: [2] ‘FUN’, ‘UseMethod’ 1532s [00:52:12.762] Searching for globals ... DONE 1532s [00:52:12.762] Resolving globals: FALSE 1532s [00:52:12.763] The total size of the 1 globals is 1.21 KiB (1240 bytes) 1532s [00:52:12.763] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.21 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.21 KiB of class ‘function’) 1532s [00:52:12.764] - globals: [1] ‘FUN’ 1532s [00:52:12.764] 1532s [00:52:12.764] getGlobalsAndPackages() ... DONE 1532s [00:52:12.764] - globals found/used: [n=1] ‘FUN’ 1532s [00:52:12.764] - needed namespaces: [n=0] 1532s [00:52:12.765] Finding globals ... DONE 1532s [00:52:12.765] - use_args: TRUE 1532s [00:52:12.765] - Getting '...' globals ... 1532s [00:52:12.765] resolve() on list ... 1532s [00:52:12.765] recursive: 0 1532s [00:52:12.766] length: 1 1532s [00:52:12.766] elements: ‘...’ 1532s [00:52:12.766] length: 0 (resolved future 1) 1532s [00:52:12.766] resolve() on list ... DONE 1532s [00:52:12.766] - '...' content: [n=0] 1532s [00:52:12.766] List of 1 1532s [00:52:12.766] $ ...: list() 1532s [00:52:12.766] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1532s [00:52:12.766] - attr(*, "where")=List of 1 1532s [00:52:12.766] ..$ ...: 1532s [00:52:12.766] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1532s [00:52:12.766] - attr(*, "resolved")= logi TRUE 1532s [00:52:12.766] - attr(*, "total_size")= num NA 1532s [00:52:12.769] - Getting '...' globals ... DONE 1532s [00:52:12.770] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1532s [00:52:12.770] List of 2 1532s [00:52:12.770] $ ...future.FUN:function (object, ...) 1532s [00:52:12.770] $ ... : list() 1532s [00:52:12.770] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1532s [00:52:12.770] - attr(*, "where")=List of 2 1532s [00:52:12.770] ..$ ...future.FUN: 1532s [00:52:12.770] ..$ ... : 1532s [00:52:12.770] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1532s [00:52:12.770] - attr(*, "resolved")= logi FALSE 1532s [00:52:12.770] - attr(*, "total_size")= num 1240 1532s [00:52:12.773] Packages to be attached in all futures: [n=0] 1532s [00:52:12.773] getGlobalsAndPackagesXApply() ... DONE 1532s [00:52:12.774] Number of futures (= number of chunks): 1 1532s [00:52:12.774] Launching 1 futures (chunks) ... 1532s [00:52:12.774] Chunk #1 of 1 ... 1532s [00:52:12.774] - Finding globals in 'X' for chunk #1 ... 1532s [00:52:12.774] getGlobalsAndPackages() ... 1532s [00:52:12.774] Searching for globals... 1532s [00:52:12.775] 1532s [00:52:12.775] Searching for globals ... DONE 1532s [00:52:12.775] - globals: [0] 1532s [00:52:12.775] getGlobalsAndPackages() ... DONE 1532s [00:52:12.775] + additional globals found: [n=0] 1532s [00:52:12.776] + additional namespaces needed: [n=0] 1532s [00:52:12.776] - Finding globals in 'X' for chunk #1 ... DONE 1532s [00:52:12.776] - seeds: 1532s [00:52:12.776] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1532s [00:52:12.776] getGlobalsAndPackages() ... 1532s [00:52:12.776] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1532s [00:52:12.777] Resolving globals: FALSE 1532s [00:52:12.777] Tweak future expression to call with '...' arguments ... 1532s [00:52:12.777] { 1532s [00:52:12.777] do.call(function(...) { 1532s [00:52:12.777] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1532s [00:52:12.777] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1532s [00:52:12.777] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1532s [00:52:12.777] on.exit(options(oopts), add = TRUE) 1532s [00:52:12.777] } 1532s [00:52:12.777] { 1532s [00:52:12.777] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1532s [00:52:12.777] ...future.X_jj <- ...future.elements_ii[[jj]] 1532s [00:52:12.777] ...future.FUN(...future.X_jj, ...) 1532s [00:52:12.777] }) 1532s [00:52:12.777] } 1532s [00:52:12.777] }, args = future.call.arguments) 1532s [00:52:12.777] } 1532s [00:52:12.777] Tweak future expression to call with '...' arguments ... DONE 1532s [00:52:12.778] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1532s [00:52:12.778] 1532s [00:52:12.778] getGlobalsAndPackages() ... DONE 1532s [00:52:12.779] run() for ‘Future’ ... 1532s [00:52:12.779] - state: ‘created’ 1532s [00:52:12.779] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1532s [00:52:12.782] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1532s [00:52:12.782] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1532s [00:52:12.782] - Field: ‘label’ 1532s [00:52:12.783] - Field: ‘local’ 1532s [00:52:12.783] - Field: ‘owner’ 1532s [00:52:12.783] - Field: ‘envir’ 1532s [00:52:12.783] - Field: ‘packages’ 1532s [00:52:12.783] - Field: ‘gc’ 1532s [00:52:12.784] - Field: ‘conditions’ 1532s [00:52:12.784] - Field: ‘expr’ 1532s [00:52:12.784] - Field: ‘uuid’ 1532s [00:52:12.784] - Field: ‘seed’ 1532s [00:52:12.784] - Field: ‘version’ 1532s [00:52:12.784] - Field: ‘result’ 1532s [00:52:12.785] - Field: ‘asynchronous’ 1532s [00:52:12.785] - Field: ‘calls’ 1532s [00:52:12.785] - Field: ‘globals’ 1532s [00:52:12.785] - Field: ‘stdout’ 1532s [00:52:12.785] - Field: ‘earlySignal’ 1532s [00:52:12.785] - Field: ‘lazy’ 1532s [00:52:12.786] - Field: ‘state’ 1532s [00:52:12.786] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1532s [00:52:12.786] - Launch lazy future ... 1532s [00:52:12.786] Packages needed by the future expression (n = 0): 1532s [00:52:12.786] Packages needed by future strategies (n = 0): 1532s [00:52:12.787] { 1532s [00:52:12.787] { 1532s [00:52:12.787] { 1532s [00:52:12.787] ...future.startTime <- base::Sys.time() 1532s [00:52:12.787] { 1532s [00:52:12.787] { 1532s [00:52:12.787] { 1532s [00:52:12.787] base::local({ 1532s [00:52:12.787] has_future <- base::requireNamespace("future", 1532s [00:52:12.787] quietly = TRUE) 1532s [00:52:12.787] if (has_future) { 1532s [00:52:12.787] ns <- base::getNamespace("future") 1532s [00:52:12.787] version <- ns[[".package"]][["version"]] 1532s [00:52:12.787] if (is.null(version)) 1532s [00:52:12.787] version <- utils::packageVersion("future") 1532s [00:52:12.787] } 1532s [00:52:12.787] else { 1532s [00:52:12.787] version <- NULL 1532s [00:52:12.787] } 1532s [00:52:12.787] if (!has_future || version < "1.8.0") { 1532s [00:52:12.787] info <- base::c(r_version = base::gsub("R version ", 1532s [00:52:12.787] "", base::R.version$version.string), 1532s [00:52:12.787] platform = base::sprintf("%s (%s-bit)", 1532s [00:52:12.787] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1532s [00:52:12.787] os = base::paste(base::Sys.info()[base::c("sysname", 1532s [00:52:12.787] "release", "version")], collapse = " "), 1532s [00:52:12.787] hostname = base::Sys.info()[["nodename"]]) 1532s [00:52:12.787] info <- base::sprintf("%s: %s", base::names(info), 1532s [00:52:12.787] info) 1532s [00:52:12.787] info <- base::paste(info, collapse = "; ") 1532s [00:52:12.787] if (!has_future) { 1532s [00:52:12.787] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1532s [00:52:12.787] info) 1532s [00:52:12.787] } 1532s [00:52:12.787] else { 1532s [00:52:12.787] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1532s [00:52:12.787] info, version) 1532s [00:52:12.787] } 1532s [00:52:12.787] base::stop(msg) 1532s [00:52:12.787] } 1532s [00:52:12.787] }) 1532s [00:52:12.787] } 1532s [00:52:12.787] options(future.plan = NULL) 1532s [00:52:12.787] Sys.unsetenv("R_FUTURE_PLAN") 1532s [00:52:12.787] future::plan("default", .cleanup = FALSE, .init = FALSE) 1532s [00:52:12.787] } 1532s [00:52:12.787] ...future.workdir <- getwd() 1532s [00:52:12.787] } 1532s [00:52:12.787] ...future.oldOptions <- base::as.list(base::.Options) 1532s [00:52:12.787] ...future.oldEnvVars <- base::Sys.getenv() 1532s [00:52:12.787] } 1532s [00:52:12.787] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1532s [00:52:12.787] future.globals.maxSize = NULL, future.globals.method = NULL, 1532s [00:52:12.787] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1532s [00:52:12.787] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1532s [00:52:12.787] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1532s [00:52:12.787] future.stdout.windows.reencode = NULL, width = 80L) 1532s [00:52:12.787] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1532s [00:52:12.787] base::names(...future.oldOptions)) 1532s [00:52:12.787] } 1532s [00:52:12.787] if (FALSE) { 1532s [00:52:12.787] } 1532s [00:52:12.787] else { 1532s [00:52:12.787] if (TRUE) { 1532s [00:52:12.787] ...future.stdout <- base::rawConnection(base::raw(0L), 1532s [00:52:12.787] open = "w") 1532s [00:52:12.787] } 1532s [00:52:12.787] else { 1532s [00:52:12.787] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1532s [00:52:12.787] windows = "NUL", "/dev/null"), open = "w") 1532s [00:52:12.787] } 1532s [00:52:12.787] base::sink(...future.stdout, type = "output", split = FALSE) 1532s [00:52:12.787] base::on.exit(if (!base::is.null(...future.stdout)) { 1532s [00:52:12.787] base::sink(type = "output", split = FALSE) 1532s [00:52:12.787] base::close(...future.stdout) 1532s [00:52:12.787] }, add = TRUE) 1532s [00:52:12.787] } 1532s [00:52:12.787] ...future.frame <- base::sys.nframe() 1532s [00:52:12.787] ...future.conditions <- base::list() 1532s [00:52:12.787] ...future.rng <- base::globalenv()$.Random.seed 1532s [00:52:12.787] if (FALSE) { 1532s [00:52:12.787] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1532s [00:52:12.787] "...future.value", "...future.globalenv.names", ".Random.seed") 1532s [00:52:12.787] } 1532s [00:52:12.787] ...future.result <- base::tryCatch({ 1532s [00:52:12.787] base::withCallingHandlers({ 1532s [00:52:12.787] ...future.value <- base::withVisible(base::local({ 1532s [00:52:12.787] do.call(function(...) { 1532s [00:52:12.787] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1532s [00:52:12.787] if (!identical(...future.globals.maxSize.org, 1532s [00:52:12.787] ...future.globals.maxSize)) { 1532s [00:52:12.787] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1532s [00:52:12.787] on.exit(options(oopts), add = TRUE) 1532s [00:52:12.787] } 1532s [00:52:12.787] { 1532s [00:52:12.787] lapply(seq_along(...future.elements_ii), 1532s [00:52:12.787] FUN = function(jj) { 1532s [00:52:12.787] ...future.X_jj <- ...future.elements_ii[[jj]] 1532s [00:52:12.787] ...future.FUN(...future.X_jj, ...) 1532s [00:52:12.787] }) 1532s [00:52:12.787] } 1532s [00:52:12.787] }, args = future.call.arguments) 1532s [00:52:12.787] })) 1532s [00:52:12.787] future::FutureResult(value = ...future.value$value, 1532s [00:52:12.787] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1532s [00:52:12.787] ...future.rng), globalenv = if (FALSE) 1532s [00:52:12.787] list(added = base::setdiff(base::names(base::.GlobalEnv), 1532s [00:52:12.787] ...future.globalenv.names)) 1532s [00:52:12.787] else NULL, started = ...future.startTime, version = "1.8") 1532s [00:52:12.787] }, condition = base::local({ 1532s [00:52:12.787] c <- base::c 1532s [00:52:12.787] inherits <- base::inherits 1532s [00:52:12.787] invokeRestart <- base::invokeRestart 1532s [00:52:12.787] length <- base::length 1532s [00:52:12.787] list <- base::list 1532s [00:52:12.787] seq.int <- base::seq.int 1532s [00:52:12.787] signalCondition <- base::signalCondition 1532s [00:52:12.787] sys.calls <- base::sys.calls 1532s [00:52:12.787] `[[` <- base::`[[` 1532s [00:52:12.787] `+` <- base::`+` 1532s [00:52:12.787] `<<-` <- base::`<<-` 1532s [00:52:12.787] sysCalls <- function(calls = sys.calls(), from = 1L) { 1532s [00:52:12.787] calls[seq.int(from = from + 12L, to = length(calls) - 1532s [00:52:12.787] 3L)] 1532s [00:52:12.787] } 1532s [00:52:12.787] function(cond) { 1532s [00:52:12.787] is_error <- inherits(cond, "error") 1532s [00:52:12.787] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1532s [00:52:12.787] NULL) 1532s [00:52:12.787] if (is_error) { 1532s [00:52:12.787] sessionInformation <- function() { 1532s [00:52:12.787] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1532s [00:52:12.787] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1532s [00:52:12.787] search = base::search(), system = base::Sys.info()) 1532s [00:52:12.787] } 1532s [00:52:12.787] ...future.conditions[[length(...future.conditions) + 1532s [00:52:12.787] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1532s [00:52:12.787] cond$call), session = sessionInformation(), 1532s [00:52:12.787] timestamp = base::Sys.time(), signaled = 0L) 1532s [00:52:12.787] signalCondition(cond) 1532s [00:52:12.787] } 1532s [00:52:12.787] else if (!ignore && TRUE && inherits(cond, c("condition", 1532s [00:52:12.787] "immediateCondition"))) { 1532s [00:52:12.787] signal <- TRUE && inherits(cond, "immediateCondition") 1532s [00:52:12.787] ...future.conditions[[length(...future.conditions) + 1532s [00:52:12.787] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1532s [00:52:12.787] if (TRUE && !signal) { 1532s [00:52:12.787] muffleCondition <- function (cond, pattern = "^muffle") 1532s [00:52:12.787] { 1532s [00:52:12.787] inherits <- base::inherits 1532s [00:52:12.787] invokeRestart <- base::invokeRestart 1532s [00:52:12.787] is.null <- base::is.null 1532s [00:52:12.787] muffled <- FALSE 1532s [00:52:12.787] if (inherits(cond, "message")) { 1532s [00:52:12.787] muffled <- grepl(pattern, "muffleMessage") 1532s [00:52:12.787] if (muffled) 1532s [00:52:12.787] invokeRestart("muffleMessage") 1532s [00:52:12.787] } 1532s [00:52:12.787] else if (inherits(cond, "warning")) { 1532s [00:52:12.787] muffled <- grepl(pattern, "muffleWarning") 1532s [00:52:12.787] if (muffled) 1532s [00:52:12.787] invokeRestart("muffleWarning") 1532s [00:52:12.787] } 1532s [00:52:12.787] else if (inherits(cond, "condition")) { 1532s [00:52:12.787] if (!is.null(pattern)) { 1532s [00:52:12.787] computeRestarts <- base::computeRestarts 1532s [00:52:12.787] grepl <- base::grepl 1532s [00:52:12.787] restarts <- computeRestarts(cond) 1532s [00:52:12.787] for (restart in restarts) { 1532s [00:52:12.787] name <- restart$name 1532s [00:52:12.787] if (is.null(name)) 1532s [00:52:12.787] next 1532s [00:52:12.787] if (!grepl(pattern, name)) 1532s [00:52:12.787] next 1532s [00:52:12.787] invokeRestart(restart) 1532s [00:52:12.787] muffled <- TRUE 1532s [00:52:12.787] break 1532s [00:52:12.787] } 1532s [00:52:12.787] } 1532s [00:52:12.787] } 1532s [00:52:12.787] invisible(muffled) 1532s [00:52:12.787] } 1532s [00:52:12.787] muffleCondition(cond, pattern = "^muffle") 1532s [00:52:12.787] } 1532s [00:52:12.787] } 1532s [00:52:12.787] else { 1532s [00:52:12.787] if (TRUE) { 1532s [00:52:12.787] muffleCondition <- function (cond, pattern = "^muffle") 1532s [00:52:12.787] { 1532s [00:52:12.787] inherits <- base::inherits 1532s [00:52:12.787] invokeRestart <- base::invokeRestart 1532s [00:52:12.787] is.null <- base::is.null 1532s [00:52:12.787] muffled <- FALSE 1532s [00:52:12.787] if (inherits(cond, "message")) { 1532s [00:52:12.787] muffled <- grepl(pattern, "muffleMessage") 1532s [00:52:12.787] if (muffled) 1532s [00:52:12.787] invokeRestart("muffleMessage") 1532s [00:52:12.787] } 1532s [00:52:12.787] else if (inherits(cond, "warning")) { 1532s [00:52:12.787] muffled <- grepl(pattern, "muffleWarning") 1532s [00:52:12.787] if (muffled) 1532s [00:52:12.787] invokeRestart("muffleWarning") 1532s [00:52:12.787] } 1532s [00:52:12.787] else if (inherits(cond, "condition")) { 1532s [00:52:12.787] if (!is.null(pattern)) { 1532s [00:52:12.787] computeRestarts <- base::computeRestarts 1532s [00:52:12.787] grepl <- base::grepl 1532s [00:52:12.787] restarts <- computeRestarts(cond) 1532s [00:52:12.787] for (restart in restarts) { 1532s [00:52:12.787] name <- restart$name 1532s [00:52:12.787] if (is.null(name)) 1532s [00:52:12.787] next 1532s [00:52:12.787] if (!grepl(pattern, name)) 1532s [00:52:12.787] next 1532s [00:52:12.787] invokeRestart(restart) 1532s [00:52:12.787] muffled <- TRUE 1532s [00:52:12.787] break 1532s [00:52:12.787] } 1532s [00:52:12.787] } 1532s [00:52:12.787] } 1532s [00:52:12.787] invisible(muffled) 1532s [00:52:12.787] } 1532s [00:52:12.787] muffleCondition(cond, pattern = "^muffle") 1532s [00:52:12.787] } 1532s [00:52:12.787] } 1532s [00:52:12.787] } 1532s [00:52:12.787] })) 1532s [00:52:12.787] }, error = function(ex) { 1532s [00:52:12.787] base::structure(base::list(value = NULL, visible = NULL, 1532s [00:52:12.787] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1532s [00:52:12.787] ...future.rng), started = ...future.startTime, 1532s [00:52:12.787] finished = Sys.time(), session_uuid = NA_character_, 1532s [00:52:12.787] version = "1.8"), class = "FutureResult") 1532s [00:52:12.787] }, finally = { 1532s [00:52:12.787] if (!identical(...future.workdir, getwd())) 1532s [00:52:12.787] setwd(...future.workdir) 1532s [00:52:12.787] { 1532s [00:52:12.787] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1532s [00:52:12.787] ...future.oldOptions$nwarnings <- NULL 1532s [00:52:12.787] } 1532s [00:52:12.787] base::options(...future.oldOptions) 1532s [00:52:12.787] if (.Platform$OS.type == "windows") { 1532s [00:52:12.787] old_names <- names(...future.oldEnvVars) 1532s [00:52:12.787] envs <- base::Sys.getenv() 1532s [00:52:12.787] names <- names(envs) 1532s [00:52:12.787] common <- intersect(names, old_names) 1532s [00:52:12.787] added <- setdiff(names, old_names) 1532s [00:52:12.787] removed <- setdiff(old_names, names) 1532s [00:52:12.787] changed <- common[...future.oldEnvVars[common] != 1532s [00:52:12.787] envs[common]] 1532s [00:52:12.787] NAMES <- toupper(changed) 1532s [00:52:12.787] args <- list() 1532s [00:52:12.787] for (kk in seq_along(NAMES)) { 1532s [00:52:12.787] name <- changed[[kk]] 1532s [00:52:12.787] NAME <- NAMES[[kk]] 1532s [00:52:12.787] if (name != NAME && is.element(NAME, old_names)) 1532s [00:52:12.787] next 1532s [00:52:12.787] args[[name]] <- ...future.oldEnvVars[[name]] 1532s [00:52:12.787] } 1532s [00:52:12.787] NAMES <- toupper(added) 1532s [00:52:12.787] for (kk in seq_along(NAMES)) { 1532s [00:52:12.787] name <- added[[kk]] 1532s [00:52:12.787] NAME <- NAMES[[kk]] 1532s [00:52:12.787] if (name != NAME && is.element(NAME, old_names)) 1532s [00:52:12.787] next 1532s [00:52:12.787] args[[name]] <- "" 1532s [00:52:12.787] } 1532s [00:52:12.787] NAMES <- toupper(removed) 1532s [00:52:12.787] for (kk in seq_along(NAMES)) { 1532s [00:52:12.787] name <- removed[[kk]] 1532s [00:52:12.787] NAME <- NAMES[[kk]] 1532s [00:52:12.787] if (name != NAME && is.element(NAME, old_names)) 1532s [00:52:12.787] next 1532s [00:52:12.787] args[[name]] <- ...future.oldEnvVars[[name]] 1532s [00:52:12.787] } 1532s [00:52:12.787] if (length(args) > 0) 1532s [00:52:12.787] base::do.call(base::Sys.setenv, args = args) 1532s [00:52:12.787] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1532s [00:52:12.787] } 1532s [00:52:12.787] else { 1532s [00:52:12.787] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1532s [00:52:12.787] } 1532s [00:52:12.787] { 1532s [00:52:12.787] if (base::length(...future.futureOptionsAdded) > 1532s [00:52:12.787] 0L) { 1532s [00:52:12.787] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1532s [00:52:12.787] base::names(opts) <- ...future.futureOptionsAdded 1532s [00:52:12.787] base::options(opts) 1532s [00:52:12.787] } 1532s [00:52:12.787] { 1532s [00:52:12.787] { 1532s [00:52:12.787] NULL 1532s [00:52:12.787] RNGkind("Mersenne-Twister") 1532s [00:52:12.787] base::rm(list = ".Random.seed", envir = base::globalenv(), 1532s [00:52:12.787] inherits = FALSE) 1532s [00:52:12.787] } 1532s [00:52:12.787] options(future.plan = NULL) 1532s [00:52:12.787] if (is.na(NA_character_)) 1532s [00:52:12.787] Sys.unsetenv("R_FUTURE_PLAN") 1532s [00:52:12.787] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1532s [00:52:12.787] future::plan(list(function (..., workers = availableCores(), 1532s [00:52:12.787] lazy = FALSE, rscript_libs = .libPaths(), 1532s [00:52:12.787] envir = parent.frame()) 1532s [00:52:12.787] { 1532s [00:52:12.787] if (is.function(workers)) 1532s [00:52:12.787] workers <- workers() 1532s [00:52:12.787] workers <- structure(as.integer(workers), 1532s [00:52:12.787] class = class(workers)) 1532s [00:52:12.787] stop_if_not(length(workers) == 1, is.finite(workers), 1532s [00:52:12.787] workers >= 1) 1532s [00:52:12.787] if (workers == 1L && !inherits(workers, "AsIs")) { 1532s [00:52:12.787] return(sequential(..., lazy = TRUE, envir = envir)) 1532s [00:52:12.787] } 1532s [00:52:12.787] future <- MultisessionFuture(..., workers = workers, 1532s [00:52:12.787] lazy = lazy, rscript_libs = rscript_libs, 1532s [00:52:12.787] envir = envir) 1532s [00:52:12.787] if (!future$lazy) 1532s [00:52:12.787] future <- run(future) 1532s [00:52:12.787] invisible(future) 1532s [00:52:12.787] }), .cleanup = FALSE, .init = FALSE) 1532s [00:52:12.787] } 1532s [00:52:12.787] } 1532s [00:52:12.787] } 1532s [00:52:12.787] }) 1532s [00:52:12.787] if (TRUE) { 1532s [00:52:12.787] base::sink(type = "output", split = FALSE) 1532s [00:52:12.787] if (TRUE) { 1532s [00:52:12.787] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1532s [00:52:12.787] } 1532s [00:52:12.787] else { 1532s [00:52:12.787] ...future.result["stdout"] <- base::list(NULL) 1532s [00:52:12.787] } 1532s [00:52:12.787] base::close(...future.stdout) 1532s [00:52:12.787] ...future.stdout <- NULL 1532s [00:52:12.787] } 1532s [00:52:12.787] ...future.result$conditions <- ...future.conditions 1532s [00:52:12.787] ...future.result$finished <- base::Sys.time() 1532s [00:52:12.787] ...future.result 1532s [00:52:12.787] } 1532s [00:52:12.791] assign_globals() ... 1532s [00:52:12.791] List of 5 1532s [00:52:12.791] $ ...future.FUN :function (object, ...) 1532s [00:52:12.791] $ future.call.arguments : list() 1532s [00:52:12.791] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1532s [00:52:12.791] $ ...future.elements_ii :List of 3 1532s [00:52:12.791] ..$ :'data.frame': 18 obs. of 2 variables: 1532s [00:52:12.791] .. ..$ breaks: num [1:18] 26 30 54 25 70 52 51 26 67 27 ... 1532s [00:52:12.791] .. ..$ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 2 ... 1532s [00:52:12.791] ..$ :'data.frame': 18 obs. of 2 variables: 1532s [00:52:12.791] .. ..$ breaks: num [1:18] 18 21 29 17 12 18 35 30 36 42 ... 1532s [00:52:12.791] .. ..$ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 2 ... 1532s [00:52:12.791] ..$ :'data.frame': 18 obs. of 2 variables: 1532s [00:52:12.791] .. ..$ breaks: num [1:18] 36 21 24 18 10 43 28 15 26 20 ... 1532s [00:52:12.791] .. ..$ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 2 ... 1532s [00:52:12.791] $ ...future.seeds_ii : NULL 1532s [00:52:12.791] $ ...future.globals.maxSize: NULL 1532s [00:52:12.791] - attr(*, "where")=List of 5 1532s [00:52:12.791] ..$ ...future.FUN : 1532s [00:52:12.791] ..$ future.call.arguments : 1532s [00:52:12.791] ..$ ...future.elements_ii : 1532s [00:52:12.791] ..$ ...future.seeds_ii : 1532s [00:52:12.791] ..$ ...future.globals.maxSize: 1532s [00:52:12.791] - attr(*, "resolved")= logi FALSE 1532s [00:52:12.791] - attr(*, "total_size")= num 1240 1532s [00:52:12.791] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1532s [00:52:12.791] - attr(*, "already-done")= logi TRUE 1532s [00:52:12.803] - copied ‘...future.FUN’ to environment 1532s [00:52:12.803] - copied ‘future.call.arguments’ to environment 1532s [00:52:12.803] - copied ‘...future.elements_ii’ to environment 1532s [00:52:12.803] - copied ‘...future.seeds_ii’ to environment 1532s [00:52:12.803] - copied ‘...future.globals.maxSize’ to environment 1532s [00:52:12.804] assign_globals() ... done 1532s [00:52:12.804] plan(): Setting new future strategy stack: 1532s [00:52:12.804] List of future strategies: 1532s [00:52:12.804] 1. sequential: 1532s [00:52:12.804] - args: function (..., envir = parent.frame()) 1532s [00:52:12.804] - tweaked: FALSE 1532s [00:52:12.804] - call: NULL 1532s [00:52:12.805] plan(): nbrOfWorkers() = 1 1532s [00:52:12.808] plan(): Setting new future strategy stack: 1532s [00:52:12.808] List of future strategies: 1532s [00:52:12.808] 1. multisession: 1532s [00:52:12.808] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1532s [00:52:12.808] - tweaked: FALSE 1532s [00:52:12.808] - call: plan(strategy) 1532s [00:52:12.811] plan(): nbrOfWorkers() = 1 1532s [00:52:12.812] SequentialFuture started (and completed) 1532s [00:52:12.812] - Launch lazy future ... done 1532s [00:52:12.812] run() for ‘SequentialFuture’ ... done 1532s [00:52:12.812] Created future: 1532s [00:52:12.813] SequentialFuture: 1532s [00:52:12.813] Label: ‘future_by-1’ 1532s [00:52:12.813] Expression: 1532s [00:52:12.813] { 1532s [00:52:12.813] do.call(function(...) { 1532s [00:52:12.813] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1532s [00:52:12.813] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1532s [00:52:12.813] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1532s [00:52:12.813] on.exit(options(oopts), add = TRUE) 1532s [00:52:12.813] } 1532s [00:52:12.813] { 1532s [00:52:12.813] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1532s [00:52:12.813] ...future.X_jj <- ...future.elements_ii[[jj]] 1532s [00:52:12.813] ...future.FUN(...future.X_jj, ...) 1532s [00:52:12.813] }) 1532s [00:52:12.813] } 1532s [00:52:12.813] }, args = future.call.arguments) 1532s [00:52:12.813] } 1532s [00:52:12.813] Lazy evaluation: FALSE 1532s [00:52:12.813] Asynchronous evaluation: FALSE 1532s [00:52:12.813] Local evaluation: TRUE 1532s [00:52:12.813] Environment: R_GlobalEnv 1532s [00:52:12.813] Capture standard output: TRUE 1532s [00:52:12.813] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1532s [00:52:12.813] Globals: 5 objects totaling 3.79 KiB (function ‘...future.FUN’ of 1.21 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 2.58 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1532s [00:52:12.813] Packages: 1532s [00:52:12.813] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1532s [00:52:12.813] Resolved: TRUE 1532s [00:52:12.813] Value: 4.62 KiB of class ‘list’ 1532s [00:52:12.813] Early signaling: FALSE 1532s [00:52:12.813] Owner process: 64a671dd-8756-a081-baa7-973da233f197 1532s [00:52:12.813] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1532s [00:52:12.814] Chunk #1 of 1 ... DONE 1532s [00:52:12.815] Launching 1 futures (chunks) ... DONE 1532s [00:52:12.815] Resolving 1 futures (chunks) ... 1532s [00:52:12.815] resolve() on list ... 1532s [00:52:12.815] recursive: 0 1532s [00:52:12.815] length: 1 1532s [00:52:12.815] 1532s [00:52:12.815] resolved() for ‘SequentialFuture’ ... 1532s [00:52:12.816] - state: ‘finished’ 1532s [00:52:12.816] - run: TRUE 1532s [00:52:12.816] - result: ‘FutureResult’ 1532s [00:52:12.816] resolved() for ‘SequentialFuture’ ... done 1532s [00:52:12.816] Future #1 1532s [00:52:12.816] signalConditionsASAP(SequentialFuture, pos=1) ... 1532s [00:52:12.817] - nx: 1 1532s [00:52:12.817] - relay: TRUE 1532s [00:52:12.817] - stdout: TRUE 1532s [00:52:12.817] - signal: TRUE 1532s [00:52:12.817] - resignal: FALSE 1532s [00:52:12.817] - force: TRUE 1532s [00:52:12.817] - relayed: [n=1] FALSE 1532s [00:52:12.818] - queued futures: [n=1] FALSE 1532s [00:52:12.818] - until=1 1532s [00:52:12.818] - relaying element #1 1532s [00:52:12.818] - relayed: [n=1] TRUE 1532s [00:52:12.818] - queued futures: [n=1] TRUE 1532s [00:52:12.818] signalConditionsASAP(SequentialFuture, pos=1) ... done 1532s [00:52:12.819] length: 0 (resolved future 1) 1532s [00:52:12.819] Relaying remaining futures 1532s [00:52:12.819] signalConditionsASAP(NULL, pos=0) ... 1532s [00:52:12.819] - nx: 1 1532s [00:52:12.819] - relay: TRUE 1532s [00:52:12.819] - stdout: TRUE 1532s [00:52:12.819] - signal: TRUE 1532s [00:52:12.820] - resignal: FALSE 1532s [00:52:12.820] - force: TRUE 1532s [00:52:12.820] - relayed: [n=1] TRUE 1532s [00:52:12.820] - queued futures: [n=1] TRUE 1532s - flush all 1532s [00:52:12.820] - relayed: [n=1] TRUE 1532s [00:52:12.820] - queued futures: [n=1] TRUE 1532s [00:52:12.821] signalConditionsASAP(NULL, pos=0) ... done 1532s [00:52:12.821] resolve() on list ... DONE 1532s [00:52:12.821] - Number of value chunks collected: 1 1532s [00:52:12.821] Resolving 1 futures (chunks) ... DONE 1532s [00:52:12.821] Reducing values from 1 chunks ... 1532s [00:52:12.821] - Number of values collected after concatenation: 3 1532s [00:52:12.822] - Number of values expected: 3 1532s [00:52:12.822] Reducing values from 1 chunks ... DONE 1532s [00:52:12.822] future_lapply() ... DONE 1532s [00:52:12.822] future_by_internal() ... DONE 1532s [00:52:12.823] future_by_internal() ... 1532s [00:52:12.823] future_lapply() ... 1532s [00:52:12.828] Number of chunks: 1 1532s [00:52:12.828] getGlobalsAndPackagesXApply() ... 1532s [00:52:12.828] - future.globals: TRUE 1532s [00:52:12.828] getGlobalsAndPackages() ... 1532s [00:52:12.828] Searching for globals... 1532s [00:52:12.830] - globals found: [2] ‘FUN’, ‘UseMethod’ 1532s [00:52:12.830] Searching for globals ... DONE 1532s [00:52:12.830] Resolving globals: FALSE 1532s [00:52:12.831] The total size of the 1 globals is 1.21 KiB (1240 bytes) 1532s [00:52:12.831] The total size of the 1 globals exported for future expression (‘FUN(digits = 2L)’) is 1.21 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.21 KiB of class ‘function’) 1532s [00:52:12.831] - globals: [1] ‘FUN’ 1532s [00:52:12.832] 1532s [00:52:12.832] getGlobalsAndPackages() ... DONE 1532s [00:52:12.832] - globals found/used: [n=1] ‘FUN’ 1532s [00:52:12.832] - needed namespaces: [n=0] 1532s [00:52:12.832] Finding globals ... DONE 1532s [00:52:12.832] - use_args: TRUE 1532s [00:52:12.832] - Getting '...' globals ... 1532s [00:52:12.833] resolve() on list ... 1532s [00:52:12.833] recursive: 0 1532s [00:52:12.833] length: 1 1532s [00:52:12.833] elements: ‘...’ 1532s [00:52:12.833] length: 0 (resolved future 1) 1532s [00:52:12.833] resolve() on list ... DONE 1532s [00:52:12.834] - '...' content: [n=1] ‘digits’ 1532s [00:52:12.834] List of 1 1532s [00:52:12.834] $ ...:List of 1 1532s [00:52:12.834] ..$ digits: int 2 1532s [00:52:12.834] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1532s [00:52:12.834] - attr(*, "where")=List of 1 1532s [00:52:12.834] ..$ ...: 1532s [00:52:12.834] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1532s [00:52:12.834] - attr(*, "resolved")= logi TRUE 1532s [00:52:12.834] - attr(*, "total_size")= num NA 1532s [00:52:12.837] - Getting '...' globals ... DONE 1532s [00:52:12.837] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1532s [00:52:12.838] List of 2 1532s [00:52:12.838] $ ...future.FUN:function (object, ...) 1532s [00:52:12.838] $ ... :List of 1 1532s [00:52:12.838] ..$ digits: int 2 1532s [00:52:12.838] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1532s [00:52:12.838] - attr(*, "where")=List of 2 1532s [00:52:12.838] ..$ ...future.FUN: 1532s [00:52:12.838] ..$ ... : 1532s [00:52:12.838] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1532s [00:52:12.838] - attr(*, "resolved")= logi FALSE 1532s [00:52:12.838] - attr(*, "total_size")= num 1296 1532s [00:52:12.843] Packages to be attached in all futures: [n=0] 1532s [00:52:12.843] getGlobalsAndPackagesXApply() ... DONE 1532s [00:52:12.844] Number of futures (= number of chunks): 1 1532s [00:52:12.844] Launching 1 futures (chunks) ... 1532s [00:52:12.844] Chunk #1 of 1 ... 1532s [00:52:12.844] - Finding globals in 'X' for chunk #1 ... 1532s [00:52:12.844] getGlobalsAndPackages() ... 1532s [00:52:12.844] Searching for globals... 1532s [00:52:12.845] 1532s [00:52:12.845] Searching for globals ... DONE 1532s [00:52:12.845] - globals: [0] 1532s [00:52:12.845] getGlobalsAndPackages() ... DONE 1532s [00:52:12.845] + additional globals found: [n=0] 1532s [00:52:12.846] + additional namespaces needed: [n=0] 1532s [00:52:12.846] - Finding globals in 'X' for chunk #1 ... DONE 1532s [00:52:12.846] - seeds: 1532s [00:52:12.846] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1532s [00:52:12.846] getGlobalsAndPackages() ... 1532s [00:52:12.846] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1532s [00:52:12.846] Resolving globals: FALSE 1532s [00:52:12.847] Tweak future expression to call with '...' arguments ... 1532s [00:52:12.847] { 1532s [00:52:12.847] do.call(function(...) { 1532s [00:52:12.847] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1532s [00:52:12.847] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1532s [00:52:12.847] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1532s [00:52:12.847] on.exit(options(oopts), add = TRUE) 1532s [00:52:12.847] } 1532s [00:52:12.847] { 1532s [00:52:12.847] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1532s [00:52:12.847] ...future.X_jj <- ...future.elements_ii[[jj]] 1532s [00:52:12.847] ...future.FUN(...future.X_jj, ...) 1532s [00:52:12.847] }) 1532s [00:52:12.847] } 1532s [00:52:12.847] }, args = future.call.arguments) 1532s [00:52:12.847] } 1532s [00:52:12.847] Tweak future expression to call with '...' arguments ... DONE 1532s [00:52:12.848] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1532s [00:52:12.848] 1532s [00:52:12.848] getGlobalsAndPackages() ... DONE 1532s [00:52:12.849] run() for ‘Future’ ... 1532s [00:52:12.849] - state: ‘created’ 1532s [00:52:12.849] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1532s [00:52:12.852] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1532s [00:52:12.853] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1532s [00:52:12.853] - Field: ‘label’ 1532s [00:52:12.853] - Field: ‘local’ 1532s [00:52:12.853] - Field: ‘owner’ 1532s [00:52:12.853] - Field: ‘envir’ 1532s [00:52:12.853] - Field: ‘packages’ 1532s [00:52:12.854] - Field: ‘gc’ 1532s [00:52:12.854] - Field: ‘conditions’ 1532s [00:52:12.854] - Field: ‘expr’ 1532s [00:52:12.854] - Field: ‘uuid’ 1532s [00:52:12.854] - Field: ‘seed’ 1532s [00:52:12.854] - Field: ‘version’ 1532s [00:52:12.854] - Field: ‘result’ 1532s [00:52:12.855] - Field: ‘asynchronous’ 1532s [00:52:12.855] - Field: ‘calls’ 1532s [00:52:12.855] - Field: ‘globals’ 1532s [00:52:12.855] - Field: ‘stdout’ 1532s [00:52:12.855] - Field: ‘earlySignal’ 1532s [00:52:12.855] - Field: ‘lazy’ 1532s [00:52:12.855] - Field: ‘state’ 1532s [00:52:12.856] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1532s [00:52:12.856] - Launch lazy future ... 1532s [00:52:12.856] Packages needed by the future expression (n = 0): 1532s [00:52:12.856] Packages needed by future strategies (n = 0): 1532s [00:52:12.857] { 1532s [00:52:12.857] { 1532s [00:52:12.857] { 1532s [00:52:12.857] ...future.startTime <- base::Sys.time() 1532s [00:52:12.857] { 1532s [00:52:12.857] { 1532s [00:52:12.857] { 1532s [00:52:12.857] base::local({ 1532s [00:52:12.857] has_future <- base::requireNamespace("future", 1532s [00:52:12.857] quietly = TRUE) 1532s [00:52:12.857] if (has_future) { 1532s [00:52:12.857] ns <- base::getNamespace("future") 1532s [00:52:12.857] version <- ns[[".package"]][["version"]] 1532s [00:52:12.857] if (is.null(version)) 1532s [00:52:12.857] version <- utils::packageVersion("future") 1532s [00:52:12.857] } 1532s [00:52:12.857] else { 1532s [00:52:12.857] version <- NULL 1532s [00:52:12.857] } 1532s [00:52:12.857] if (!has_future || version < "1.8.0") { 1532s [00:52:12.857] info <- base::c(r_version = base::gsub("R version ", 1532s [00:52:12.857] "", base::R.version$version.string), 1532s [00:52:12.857] platform = base::sprintf("%s (%s-bit)", 1532s [00:52:12.857] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1532s [00:52:12.857] os = base::paste(base::Sys.info()[base::c("sysname", 1532s [00:52:12.857] "release", "version")], collapse = " "), 1532s [00:52:12.857] hostname = base::Sys.info()[["nodename"]]) 1532s [00:52:12.857] info <- base::sprintf("%s: %s", base::names(info), 1532s [00:52:12.857] info) 1532s [00:52:12.857] info <- base::paste(info, collapse = "; ") 1532s [00:52:12.857] if (!has_future) { 1532s [00:52:12.857] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1532s [00:52:12.857] info) 1532s [00:52:12.857] } 1532s [00:52:12.857] else { 1532s [00:52:12.857] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1532s [00:52:12.857] info, version) 1532s [00:52:12.857] } 1532s [00:52:12.857] base::stop(msg) 1532s [00:52:12.857] } 1532s [00:52:12.857] }) 1532s [00:52:12.857] } 1532s [00:52:12.857] options(future.plan = NULL) 1532s [00:52:12.857] Sys.unsetenv("R_FUTURE_PLAN") 1532s [00:52:12.857] future::plan("default", .cleanup = FALSE, .init = FALSE) 1532s [00:52:12.857] } 1532s [00:52:12.857] ...future.workdir <- getwd() 1532s [00:52:12.857] } 1532s [00:52:12.857] ...future.oldOptions <- base::as.list(base::.Options) 1532s [00:52:12.857] ...future.oldEnvVars <- base::Sys.getenv() 1532s [00:52:12.857] } 1532s [00:52:12.857] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1532s [00:52:12.857] future.globals.maxSize = NULL, future.globals.method = NULL, 1532s [00:52:12.857] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1532s [00:52:12.857] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1532s [00:52:12.857] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1532s [00:52:12.857] future.stdout.windows.reencode = NULL, width = 80L) 1532s [00:52:12.857] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1532s [00:52:12.857] base::names(...future.oldOptions)) 1532s [00:52:12.857] } 1532s [00:52:12.857] if (FALSE) { 1532s [00:52:12.857] } 1532s [00:52:12.857] else { 1532s [00:52:12.857] if (TRUE) { 1532s [00:52:12.857] ...future.stdout <- base::rawConnection(base::raw(0L), 1532s [00:52:12.857] open = "w") 1532s [00:52:12.857] } 1532s [00:52:12.857] else { 1532s [00:52:12.857] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1532s [00:52:12.857] windows = "NUL", "/dev/null"), open = "w") 1532s [00:52:12.857] } 1532s [00:52:12.857] base::sink(...future.stdout, type = "output", split = FALSE) 1532s [00:52:12.857] base::on.exit(if (!base::is.null(...future.stdout)) { 1532s [00:52:12.857] base::sink(type = "output", split = FALSE) 1532s [00:52:12.857] base::close(...future.stdout) 1532s [00:52:12.857] }, add = TRUE) 1532s [00:52:12.857] } 1532s [00:52:12.857] ...future.frame <- base::sys.nframe() 1532s [00:52:12.857] ...future.conditions <- base::list() 1532s [00:52:12.857] ...future.rng <- base::globalenv()$.Random.seed 1532s [00:52:12.857] if (FALSE) { 1532s [00:52:12.857] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1532s [00:52:12.857] "...future.value", "...future.globalenv.names", ".Random.seed") 1532s [00:52:12.857] } 1532s [00:52:12.857] ...future.result <- base::tryCatch({ 1532s [00:52:12.857] base::withCallingHandlers({ 1532s [00:52:12.857] ...future.value <- base::withVisible(base::local({ 1532s [00:52:12.857] do.call(function(...) { 1532s [00:52:12.857] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1532s [00:52:12.857] if (!identical(...future.globals.maxSize.org, 1532s [00:52:12.857] ...future.globals.maxSize)) { 1532s [00:52:12.857] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1532s [00:52:12.857] on.exit(options(oopts), add = TRUE) 1532s [00:52:12.857] } 1532s [00:52:12.857] { 1532s [00:52:12.857] lapply(seq_along(...future.elements_ii), 1532s [00:52:12.857] FUN = function(jj) { 1532s [00:52:12.857] ...future.X_jj <- ...future.elements_ii[[jj]] 1532s [00:52:12.857] ...future.FUN(...future.X_jj, ...) 1532s [00:52:12.857] }) 1532s [00:52:12.857] } 1532s [00:52:12.857] }, args = future.call.arguments) 1532s [00:52:12.857] })) 1532s [00:52:12.857] future::FutureResult(value = ...future.value$value, 1532s [00:52:12.857] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1532s [00:52:12.857] ...future.rng), globalenv = if (FALSE) 1532s [00:52:12.857] list(added = base::setdiff(base::names(base::.GlobalEnv), 1532s [00:52:12.857] ...future.globalenv.names)) 1532s [00:52:12.857] else NULL, started = ...future.startTime, version = "1.8") 1532s [00:52:12.857] }, condition = base::local({ 1532s [00:52:12.857] c <- base::c 1532s [00:52:12.857] inherits <- base::inherits 1532s [00:52:12.857] invokeRestart <- base::invokeRestart 1532s [00:52:12.857] length <- base::length 1532s [00:52:12.857] list <- base::list 1532s [00:52:12.857] seq.int <- base::seq.int 1532s [00:52:12.857] signalCondition <- base::signalCondition 1532s [00:52:12.857] sys.calls <- base::sys.calls 1532s [00:52:12.857] `[[` <- base::`[[` 1532s [00:52:12.857] `+` <- base::`+` 1532s [00:52:12.857] `<<-` <- base::`<<-` 1532s [00:52:12.857] sysCalls <- function(calls = sys.calls(), from = 1L) { 1532s [00:52:12.857] calls[seq.int(from = from + 12L, to = length(calls) - 1532s [00:52:12.857] 3L)] 1532s [00:52:12.857] } 1532s [00:52:12.857] function(cond) { 1532s [00:52:12.857] is_error <- inherits(cond, "error") 1532s [00:52:12.857] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1532s [00:52:12.857] NULL) 1532s [00:52:12.857] if (is_error) { 1532s [00:52:12.857] sessionInformation <- function() { 1532s [00:52:12.857] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1532s [00:52:12.857] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1532s [00:52:12.857] search = base::search(), system = base::Sys.info()) 1532s [00:52:12.857] } 1532s [00:52:12.857] ...future.conditions[[length(...future.conditions) + 1532s [00:52:12.857] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1532s [00:52:12.857] cond$call), session = sessionInformation(), 1532s [00:52:12.857] timestamp = base::Sys.time(), signaled = 0L) 1532s [00:52:12.857] signalCondition(cond) 1532s [00:52:12.857] } 1532s [00:52:12.857] else if (!ignore && TRUE && inherits(cond, c("condition", 1532s [00:52:12.857] "immediateCondition"))) { 1532s [00:52:12.857] signal <- TRUE && inherits(cond, "immediateCondition") 1532s [00:52:12.857] ...future.conditions[[length(...future.conditions) + 1532s [00:52:12.857] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1532s [00:52:12.857] if (TRUE && !signal) { 1532s [00:52:12.857] muffleCondition <- function (cond, pattern = "^muffle") 1532s [00:52:12.857] { 1532s [00:52:12.857] inherits <- base::inherits 1532s [00:52:12.857] invokeRestart <- base::invokeRestart 1532s [00:52:12.857] is.null <- base::is.null 1532s [00:52:12.857] muffled <- FALSE 1532s [00:52:12.857] if (inherits(cond, "message")) { 1532s [00:52:12.857] muffled <- grepl(pattern, "muffleMessage") 1532s [00:52:12.857] if (muffled) 1532s [00:52:12.857] invokeRestart("muffleMessage") 1532s [00:52:12.857] } 1532s [00:52:12.857] else if (inherits(cond, "warning")) { 1532s [00:52:12.857] muffled <- grepl(pattern, "muffleWarning") 1532s [00:52:12.857] if (muffled) 1532s [00:52:12.857] invokeRestart("muffleWarning") 1532s [00:52:12.857] } 1532s [00:52:12.857] else if (inherits(cond, "condition")) { 1532s [00:52:12.857] if (!is.null(pattern)) { 1532s [00:52:12.857] computeRestarts <- base::computeRestarts 1532s [00:52:12.857] grepl <- base::grepl 1532s [00:52:12.857] restarts <- computeRestarts(cond) 1532s [00:52:12.857] for (restart in restarts) { 1532s [00:52:12.857] name <- restart$name 1532s [00:52:12.857] if (is.null(name)) 1532s [00:52:12.857] next 1532s [00:52:12.857] if (!grepl(pattern, name)) 1532s [00:52:12.857] next 1532s [00:52:12.857] invokeRestart(restart) 1532s [00:52:12.857] muffled <- TRUE 1532s [00:52:12.857] break 1532s [00:52:12.857] } 1532s [00:52:12.857] } 1532s [00:52:12.857] } 1532s [00:52:12.857] invisible(muffled) 1532s [00:52:12.857] } 1532s [00:52:12.857] muffleCondition(cond, pattern = "^muffle") 1532s [00:52:12.857] } 1532s [00:52:12.857] } 1532s [00:52:12.857] else { 1532s [00:52:12.857] if (TRUE) { 1532s [00:52:12.857] muffleCondition <- function (cond, pattern = "^muffle") 1532s [00:52:12.857] { 1532s [00:52:12.857] inherits <- base::inherits 1532s [00:52:12.857] invokeRestart <- base::invokeRestart 1532s [00:52:12.857] is.null <- base::is.null 1532s [00:52:12.857] muffled <- FALSE 1532s [00:52:12.857] if (inherits(cond, "message")) { 1532s [00:52:12.857] muffled <- grepl(pattern, "muffleMessage") 1532s [00:52:12.857] if (muffled) 1532s [00:52:12.857] invokeRestart("muffleMessage") 1532s [00:52:12.857] } 1532s [00:52:12.857] else if (inherits(cond, "warning")) { 1532s [00:52:12.857] muffled <- grepl(pattern, "muffleWarning") 1532s [00:52:12.857] if (muffled) 1532s [00:52:12.857] invokeRestart("muffleWarning") 1532s [00:52:12.857] } 1532s [00:52:12.857] else if (inherits(cond, "condition")) { 1532s [00:52:12.857] if (!is.null(pattern)) { 1532s [00:52:12.857] computeRestarts <- base::computeRestarts 1532s [00:52:12.857] grepl <- base::grepl 1532s [00:52:12.857] restarts <- computeRestarts(cond) 1532s [00:52:12.857] for (restart in restarts) { 1532s [00:52:12.857] name <- restart$name 1532s [00:52:12.857] if (is.null(name)) 1532s [00:52:12.857] next 1532s [00:52:12.857] if (!grepl(pattern, name)) 1532s [00:52:12.857] next 1532s [00:52:12.857] invokeRestart(restart) 1532s [00:52:12.857] muffled <- TRUE 1532s [00:52:12.857] break 1532s [00:52:12.857] } 1532s [00:52:12.857] } 1532s [00:52:12.857] } 1532s [00:52:12.857] invisible(muffled) 1532s [00:52:12.857] } 1532s [00:52:12.857] muffleCondition(cond, pattern = "^muffle") 1532s [00:52:12.857] } 1532s [00:52:12.857] } 1532s [00:52:12.857] } 1532s [00:52:12.857] })) 1532s [00:52:12.857] }, error = function(ex) { 1532s [00:52:12.857] base::structure(base::list(value = NULL, visible = NULL, 1532s [00:52:12.857] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1532s [00:52:12.857] ...future.rng), started = ...future.startTime, 1532s [00:52:12.857] finished = Sys.time(), session_uuid = NA_character_, 1532s [00:52:12.857] version = "1.8"), class = "FutureResult") 1532s [00:52:12.857] }, finally = { 1532s [00:52:12.857] if (!identical(...future.workdir, getwd())) 1532s [00:52:12.857] setwd(...future.workdir) 1532s [00:52:12.857] { 1532s [00:52:12.857] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1532s [00:52:12.857] ...future.oldOptions$nwarnings <- NULL 1532s [00:52:12.857] } 1532s [00:52:12.857] base::options(...future.oldOptions) 1532s [00:52:12.857] if (.Platform$OS.type == "windows") { 1532s [00:52:12.857] old_names <- names(...future.oldEnvVars) 1532s [00:52:12.857] envs <- base::Sys.getenv() 1532s [00:52:12.857] names <- names(envs) 1532s [00:52:12.857] common <- intersect(names, old_names) 1532s [00:52:12.857] added <- setdiff(names, old_names) 1532s [00:52:12.857] removed <- setdiff(old_names, names) 1532s [00:52:12.857] changed <- common[...future.oldEnvVars[common] != 1532s [00:52:12.857] envs[common]] 1532s [00:52:12.857] NAMES <- toupper(changed) 1532s [00:52:12.857] args <- list() 1532s [00:52:12.857] for (kk in seq_along(NAMES)) { 1532s [00:52:12.857] name <- changed[[kk]] 1532s [00:52:12.857] NAME <- NAMES[[kk]] 1532s [00:52:12.857] if (name != NAME && is.element(NAME, old_names)) 1532s [00:52:12.857] next 1532s [00:52:12.857] args[[name]] <- ...future.oldEnvVars[[name]] 1532s [00:52:12.857] } 1532s [00:52:12.857] NAMES <- toupper(added) 1532s [00:52:12.857] for (kk in seq_along(NAMES)) { 1532s [00:52:12.857] name <- added[[kk]] 1532s [00:52:12.857] NAME <- NAMES[[kk]] 1532s [00:52:12.857] if (name != NAME && is.element(NAME, old_names)) 1532s [00:52:12.857] next 1532s [00:52:12.857] args[[name]] <- "" 1532s [00:52:12.857] } 1532s [00:52:12.857] NAMES <- toupper(removed) 1532s [00:52:12.857] for (kk in seq_along(NAMES)) { 1532s [00:52:12.857] name <- removed[[kk]] 1532s [00:52:12.857] NAME <- NAMES[[kk]] 1532s [00:52:12.857] if (name != NAME && is.element(NAME, old_names)) 1532s [00:52:12.857] next 1532s [00:52:12.857] args[[name]] <- ...future.oldEnvVars[[name]] 1532s [00:52:12.857] } 1532s [00:52:12.857] if (length(args) > 0) 1532s [00:52:12.857] base::do.call(base::Sys.setenv, args = args) 1532s [00:52:12.857] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1532s [00:52:12.857] } 1532s [00:52:12.857] else { 1532s [00:52:12.857] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1532s [00:52:12.857] } 1532s [00:52:12.857] { 1532s [00:52:12.857] if (base::length(...future.futureOptionsAdded) > 1532s [00:52:12.857] 0L) { 1532s [00:52:12.857] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1532s [00:52:12.857] base::names(opts) <- ...future.futureOptionsAdded 1532s [00:52:12.857] base::options(opts) 1532s [00:52:12.857] } 1532s [00:52:12.857] { 1532s [00:52:12.857] { 1532s [00:52:12.857] NULL 1532s [00:52:12.857] RNGkind("Mersenne-Twister") 1532s [00:52:12.857] base::rm(list = ".Random.seed", envir = base::globalenv(), 1532s [00:52:12.857] inherits = FALSE) 1532s [00:52:12.857] } 1532s [00:52:12.857] options(future.plan = NULL) 1532s [00:52:12.857] if (is.na(NA_character_)) 1532s [00:52:12.857] Sys.unsetenv("R_FUTURE_PLAN") 1532s [00:52:12.857] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1532s [00:52:12.857] future::plan(list(function (..., workers = availableCores(), 1532s [00:52:12.857] lazy = FALSE, rscript_libs = .libPaths(), 1532s [00:52:12.857] envir = parent.frame()) 1532s [00:52:12.857] { 1532s [00:52:12.857] if (is.function(workers)) 1532s [00:52:12.857] workers <- workers() 1532s [00:52:12.857] workers <- structure(as.integer(workers), 1532s [00:52:12.857] class = class(workers)) 1532s [00:52:12.857] stop_if_not(length(workers) == 1, is.finite(workers), 1532s [00:52:12.857] workers >= 1) 1532s [00:52:12.857] if (workers == 1L && !inherits(workers, "AsIs")) { 1532s [00:52:12.857] return(sequential(..., lazy = TRUE, envir = envir)) 1532s [00:52:12.857] } 1532s [00:52:12.857] future <- MultisessionFuture(..., workers = workers, 1532s [00:52:12.857] lazy = lazy, rscript_libs = rscript_libs, 1532s [00:52:12.857] envir = envir) 1532s [00:52:12.857] if (!future$lazy) 1532s [00:52:12.857] future <- run(future) 1532s [00:52:12.857] invisible(future) 1532s [00:52:12.857] }), .cleanup = FALSE, .init = FALSE) 1532s [00:52:12.857] } 1532s [00:52:12.857] } 1532s [00:52:12.857] } 1532s [00:52:12.857] }) 1532s [00:52:12.857] if (TRUE) { 1532s [00:52:12.857] base::sink(type = "output", split = FALSE) 1532s [00:52:12.857] if (TRUE) { 1532s [00:52:12.857] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1532s [00:52:12.857] } 1532s [00:52:12.857] else { 1532s [00:52:12.857] ...future.result["stdout"] <- base::list(NULL) 1532s [00:52:12.857] } 1532s [00:52:12.857] base::close(...future.stdout) 1532s [00:52:12.857] ...future.stdout <- NULL 1532s [00:52:12.857] } 1532s [00:52:12.857] ...future.result$conditions <- ...future.conditions 1532s [00:52:12.857] ...future.result$finished <- base::Sys.time() 1532s [00:52:12.857] ...future.result 1532s [00:52:12.857] } 1532s [00:52:12.862] assign_globals() ... 1532s [00:52:12.862] List of 5 1532s [00:52:12.862] $ ...future.FUN :function (object, ...) 1532s [00:52:12.862] $ future.call.arguments :List of 1 1532s [00:52:12.862] ..$ digits: int 2 1532s [00:52:12.862] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1532s [00:52:12.862] $ ...future.elements_ii :List of 6 1532s [00:52:12.862] ..$ : num [1:9] 26 30 54 25 70 52 51 26 67 1532s [00:52:12.862] ..$ : num [1:9] 27 14 29 19 29 31 41 20 44 1532s [00:52:12.862] ..$ : num [1:9] 18 21 29 17 12 18 35 30 36 1532s [00:52:12.862] ..$ : num [1:9] 42 26 19 16 39 28 21 39 29 1532s [00:52:12.862] ..$ : num [1:9] 36 21 24 18 10 43 28 15 26 1532s [00:52:12.862] ..$ : num [1:9] 20 21 24 17 13 15 15 16 28 1532s [00:52:12.862] $ ...future.seeds_ii : NULL 1532s [00:52:12.862] $ ...future.globals.maxSize: NULL 1532s [00:52:12.862] - attr(*, "where")=List of 5 1532s [00:52:12.862] ..$ ...future.FUN : 1532s [00:52:12.862] ..$ future.call.arguments : 1532s [00:52:12.862] ..$ ...future.elements_ii : 1532s [00:52:12.862] ..$ ...future.seeds_ii : 1532s [00:52:12.862] ..$ ...future.globals.maxSize: 1532s [00:52:12.862] - attr(*, "resolved")= logi FALSE 1532s [00:52:12.862] - attr(*, "total_size")= num 1296 1532s [00:52:12.862] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1532s [00:52:12.862] - attr(*, "already-done")= logi TRUE 1532s [00:52:12.874] - copied ‘...future.FUN’ to environment 1532s [00:52:12.875] - copied ‘future.call.arguments’ to environment 1532s [00:52:12.875] - copied ‘...future.elements_ii’ to environment 1532s [00:52:12.875] - copied ‘...future.seeds_ii’ to environment 1532s [00:52:12.875] - copied ‘...future.globals.maxSize’ to environment 1532s [00:52:12.875] assign_globals() ... done 1532s [00:52:12.876] plan(): Setting new future strategy stack: 1532s [00:52:12.876] List of future strategies: 1532s [00:52:12.876] 1. sequential: 1532s [00:52:12.876] - args: function (..., envir = parent.frame()) 1532s [00:52:12.876] - tweaked: FALSE 1532s [00:52:12.876] - call: NULL 1532s [00:52:12.876] plan(): nbrOfWorkers() = 1 1532s [00:52:12.878] plan(): Setting new future strategy stack: 1532s [00:52:12.878] List of future strategies: 1532s [00:52:12.878] 1. multisession: 1532s [00:52:12.878] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1532s [00:52:12.878] - tweaked: FALSE 1532s [00:52:12.878] - call: plan(strategy) 1532s [00:52:12.881] plan(): nbrOfWorkers() = 1 1532s [00:52:12.882] SequentialFuture started (and completed) 1532s [00:52:12.882] - Launch lazy future ... done 1532s [00:52:12.882] run() for ‘SequentialFuture’ ... done 1532s [00:52:12.882] Created future: 1532s [00:52:12.882] SequentialFuture: 1532s [00:52:12.882] Label: ‘future_by-1’ 1532s [00:52:12.882] Expression: 1532s [00:52:12.882] { 1532s [00:52:12.882] do.call(function(...) { 1532s [00:52:12.882] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1532s [00:52:12.882] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1532s [00:52:12.882] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1532s [00:52:12.882] on.exit(options(oopts), add = TRUE) 1532s [00:52:12.882] } 1532s [00:52:12.882] { 1532s [00:52:12.882] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1532s [00:52:12.882] ...future.X_jj <- ...future.elements_ii[[jj]] 1532s [00:52:12.882] ...future.FUN(...future.X_jj, ...) 1532s [00:52:12.882] }) 1532s [00:52:12.882] } 1532s [00:52:12.882] }, args = future.call.arguments) 1532s [00:52:12.882] } 1532s [00:52:12.882] Lazy evaluation: FALSE 1532s [00:52:12.882] Asynchronous evaluation: FALSE 1532s [00:52:12.882] Local evaluation: TRUE 1532s [00:52:12.882] Environment: R_GlobalEnv 1532s [00:52:12.882] Capture standard output: TRUE 1532s [00:52:12.882] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1532s [00:52:12.882] Globals: 5 objects totaling 2.30 KiB (function ‘...future.FUN’ of 1.21 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 1.03 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1532s [00:52:12.882] Packages: 1532s [00:52:12.882] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1532s [00:52:12.882] Resolved: TRUE 1532s [00:52:12.882] Value: 5.48 KiB of class ‘list’ 1532s [00:52:12.882] Early signaling: FALSE 1532s [00:52:12.882] Owner process: 64a671dd-8756-a081-baa7-973da233f197 1532s [00:52:12.882] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1532s [00:52:12.884] Chunk #1 of 1 ... DONE 1532s [00:52:12.885] Launching 1 futures (chunks) ... DONE 1532s [00:52:12.885] Resolving 1 futures (chunks) ... 1532s [00:52:12.885] resolve() on list ... 1532s [00:52:12.885] recursive: 0 1532s [00:52:12.885] length: 1 1532s [00:52:12.885] 1532s [00:52:12.886] resolved() for ‘SequentialFuture’ ... 1532s [00:52:12.886] - state: ‘finished’ 1532s [00:52:12.886] - run: TRUE 1532s [00:52:12.886] - result: ‘FutureResult’ 1532s [00:52:12.886] resolved() for ‘SequentialFuture’ ... done 1532s [00:52:12.886] Future #1 1532s [00:52:12.887] signalConditionsASAP(SequentialFuture, pos=1) ... 1532s [00:52:12.887] - nx: 1 1532s [00:52:12.887] - relay: TRUE 1532s [00:52:12.887] - stdout: TRUE 1532s [00:52:12.887] - signal: TRUE 1532s [00:52:12.887] - resignal: FALSE 1532s [00:52:12.887] - force: TRUE 1532s [00:52:12.887] - relayed: [n=1] FALSE 1532s [00:52:12.888] - queued futures: [n=1] FALSE 1532s [00:52:12.888] - until=1 1532s [00:52:12.888] - relaying element #1 1532s [00:52:12.889] - relayed: [n=1] TRUE 1532s [00:52:12.889] - queued futures: [n=1] TRUE 1532s [00:52:12.889] signalConditionsASAP(SequentialFuture, pos=1) ... done 1532s [00:52:12.889] length: 0 (resolved future 1) 1532s [00:52:12.889] Relaying remaining futures 1532s [00:52:12.889] signalConditionsASAP(NULL, pos=0) ... 1532s [00:52:12.889] - nx: 1 1532s [00:52:12.890] - relay: TRUE 1532s [00:52:12.890] - stdout: TRUE 1532s [00:52:12.890] - signal: TRUE 1532s [00:52:12.890] - resignal: FALSE 1532s [00:52:12.890] - force: TRUE 1532s [00:52:12.891] - relayed: [n=1] TRUE 1532s [00:52:12.891] - queued futures: [n=1] TRUE 1532s - flush all 1532s [00:52:12.891] - relayed: [n=1] TRUE 1532s [00:52:12.891] - queued futures: [n=1] TRUE 1532s [00:52:12.891] signalConditionsASAP(NULL, pos=0) ... done 1532s [00:52:12.891] resolve() on list ... DONE 1532s [00:52:12.891] - Number of value chunks collected: 1 1532s [00:52:12.892] Resolving 1 futures (chunks) ... DONE 1532s [00:52:12.892] Reducing values from 1 chunks ... 1532s [00:52:12.892] - Number of values collected after concatenation: 6 1532s [00:52:12.892] - Number of values expected: 6 1532s [00:52:12.892] Reducing values from 1 chunks ... DONE 1532s [00:52:12.892] future_lapply() ... DONE 1532s [00:52:12.892] future_by_internal() ... DONE 1532s [00:52:12.894] future_by_internal() ... 1532s [00:52:12.895] future_lapply() ... 1532s [00:52:12.900] Number of chunks: 1 1532s [00:52:12.901] getGlobalsAndPackagesXApply() ... 1532s [00:52:12.901] - future.globals: TRUE 1532s [00:52:12.901] getGlobalsAndPackages() ... 1532s [00:52:12.901] Searching for globals... 1532s [00:52:12.904] - globals found: [6] ‘FUN’, ‘{’, ‘lm’, ‘~’, ‘breaks’, ‘wool’ 1532s [00:52:12.904] Searching for globals ... DONE 1532s [00:52:12.904] Resolving globals: FALSE 1532s [00:52:12.905] The total size of the 1 globals is 5.20 KiB (5328 bytes) 1532s [00:52:12.905] The total size of the 1 globals exported for future expression (‘FUN(singular.ok = FALSE)’) is 5.20 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (5.20 KiB of class ‘function’) 1532s [00:52:12.906] - globals: [1] ‘FUN’ 1532s [00:52:12.906] - packages: [1] ‘stats’ 1532s [00:52:12.906] getGlobalsAndPackages() ... DONE 1532s [00:52:12.906] - globals found/used: [n=1] ‘FUN’ 1532s [00:52:12.906] - needed namespaces: [n=1] ‘stats’ 1532s [00:52:12.906] Finding globals ... DONE 1532s [00:52:12.907] - use_args: TRUE 1532s [00:52:12.907] - Getting '...' globals ... 1532s [00:52:12.907] resolve() on list ... 1532s [00:52:12.908] recursive: 0 1532s [00:52:12.908] length: 1 1532s [00:52:12.908] elements: ‘...’ 1532s [00:52:12.908] length: 0 (resolved future 1) 1532s [00:52:12.908] resolve() on list ... DONE 1532s [00:52:12.908] - '...' content: [n=1] ‘singular.ok’ 1532s [00:52:12.909] List of 1 1532s [00:52:12.909] $ ...:List of 1 1532s [00:52:12.909] ..$ singular.ok: logi FALSE 1532s [00:52:12.909] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1532s [00:52:12.909] - attr(*, "where")=List of 1 1532s [00:52:12.909] ..$ ...: 1532s [00:52:12.909] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1532s [00:52:12.909] - attr(*, "resolved")= logi TRUE 1532s [00:52:12.909] - attr(*, "total_size")= num NA 1532s [00:52:12.913] - Getting '...' globals ... DONE 1532s [00:52:12.913] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1532s [00:52:12.913] List of 2 1532s [00:52:12.913] $ ...future.FUN:function (x, ...) 1532s [00:52:12.913] $ ... :List of 1 1532s [00:52:12.913] ..$ singular.ok: logi FALSE 1532s [00:52:12.913] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1532s [00:52:12.913] - attr(*, "where")=List of 2 1532s [00:52:12.913] ..$ ...future.FUN: 1532s [00:52:12.913] ..$ ... : 1532s [00:52:12.913] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1532s [00:52:12.913] - attr(*, "resolved")= logi FALSE 1532s [00:52:12.913] - attr(*, "total_size")= num 5384 1532s [00:52:12.917] Packages to be attached in all futures: [n=1] ‘stats’ 1532s [00:52:12.917] getGlobalsAndPackagesXApply() ... DONE 1532s [00:52:12.917] Number of futures (= number of chunks): 1 1532s [00:52:12.917] Launching 1 futures (chunks) ... 1532s [00:52:12.918] Chunk #1 of 1 ... 1532s [00:52:12.918] - Finding globals in 'X' for chunk #1 ... 1532s [00:52:12.918] getGlobalsAndPackages() ... 1532s [00:52:12.918] Searching for globals... 1532s [00:52:12.919] 1532s [00:52:12.919] Searching for globals ... DONE 1532s [00:52:12.919] - globals: [0] 1532s [00:52:12.919] getGlobalsAndPackages() ... DONE 1532s [00:52:12.919] + additional globals found: [n=0] 1532s [00:52:12.919] + additional namespaces needed: [n=0] 1532s [00:52:12.920] - Finding globals in 'X' for chunk #1 ... DONE 1532s [00:52:12.920] - seeds: 1532s [00:52:12.920] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1532s [00:52:12.920] getGlobalsAndPackages() ... 1532s [00:52:12.920] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1532s [00:52:12.921] Resolving globals: FALSE 1532s [00:52:12.921] Tweak future expression to call with '...' arguments ... 1532s [00:52:12.921] { 1532s [00:52:12.921] do.call(function(...) { 1532s [00:52:12.921] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1532s [00:52:12.921] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1532s [00:52:12.921] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1532s [00:52:12.921] on.exit(options(oopts), add = TRUE) 1532s [00:52:12.921] } 1532s [00:52:12.921] { 1532s [00:52:12.921] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1532s [00:52:12.921] ...future.X_jj <- ...future.elements_ii[[jj]] 1532s [00:52:12.921] ...future.FUN(...future.X_jj, ...) 1532s [00:52:12.921] }) 1532s [00:52:12.921] } 1532s [00:52:12.921] }, args = future.call.arguments) 1532s [00:52:12.921] } 1532s [00:52:12.921] Tweak future expression to call with '...' arguments ... DONE 1532s [00:52:12.922] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1532s [00:52:12.922] 1532s [00:52:12.922] getGlobalsAndPackages() ... DONE 1532s [00:52:12.923] run() for ‘Future’ ... 1532s [00:52:12.923] - state: ‘created’ 1532s [00:52:12.923] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1532s [00:52:12.927] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1532s [00:52:12.927] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1532s [00:52:12.927] - Field: ‘label’ 1532s [00:52:12.927] - Field: ‘local’ 1532s [00:52:12.927] - Field: ‘owner’ 1532s [00:52:12.927] - Field: ‘envir’ 1532s [00:52:12.928] - Field: ‘packages’ 1532s [00:52:12.928] - Field: ‘gc’ 1532s [00:52:12.928] - Field: ‘conditions’ 1532s [00:52:12.928] - Field: ‘expr’ 1532s [00:52:12.928] - Field: ‘uuid’ 1532s [00:52:12.928] - Field: ‘seed’ 1532s [00:52:12.928] - Field: ‘version’ 1532s [00:52:12.929] - Field: ‘result’ 1532s [00:52:12.929] - Field: ‘asynchronous’ 1532s [00:52:12.929] - Field: ‘calls’ 1532s [00:52:12.929] - Field: ‘globals’ 1532s [00:52:12.929] - Field: ‘stdout’ 1532s [00:52:12.929] - Field: ‘earlySignal’ 1532s [00:52:12.931] - Field: ‘lazy’ 1532s [00:52:12.932] - Field: ‘state’ 1532s [00:52:12.932] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1532s [00:52:12.932] - Launch lazy future ... 1532s [00:52:12.932] Packages needed by the future expression (n = 1): ‘stats’ 1532s [00:52:12.932] Packages needed by future strategies (n = 0): 1532s [00:52:12.933] { 1532s [00:52:12.933] { 1532s [00:52:12.933] { 1532s [00:52:12.933] ...future.startTime <- base::Sys.time() 1532s [00:52:12.933] { 1532s [00:52:12.933] { 1532s [00:52:12.933] { 1532s [00:52:12.933] { 1532s [00:52:12.933] base::local({ 1532s [00:52:12.933] has_future <- base::requireNamespace("future", 1532s [00:52:12.933] quietly = TRUE) 1532s [00:52:12.933] if (has_future) { 1532s [00:52:12.933] ns <- base::getNamespace("future") 1532s [00:52:12.933] version <- ns[[".package"]][["version"]] 1532s [00:52:12.933] if (is.null(version)) 1532s [00:52:12.933] version <- utils::packageVersion("future") 1532s [00:52:12.933] } 1532s [00:52:12.933] else { 1532s [00:52:12.933] version <- NULL 1532s [00:52:12.933] } 1532s [00:52:12.933] if (!has_future || version < "1.8.0") { 1532s [00:52:12.933] info <- base::c(r_version = base::gsub("R version ", 1532s [00:52:12.933] "", base::R.version$version.string), 1532s [00:52:12.933] platform = base::sprintf("%s (%s-bit)", 1532s [00:52:12.933] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1532s [00:52:12.933] os = base::paste(base::Sys.info()[base::c("sysname", 1532s [00:52:12.933] "release", "version")], collapse = " "), 1532s [00:52:12.933] hostname = base::Sys.info()[["nodename"]]) 1532s [00:52:12.933] info <- base::sprintf("%s: %s", base::names(info), 1532s [00:52:12.933] info) 1532s [00:52:12.933] info <- base::paste(info, collapse = "; ") 1532s [00:52:12.933] if (!has_future) { 1532s [00:52:12.933] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1532s [00:52:12.933] info) 1532s [00:52:12.933] } 1532s [00:52:12.933] else { 1532s [00:52:12.933] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1532s [00:52:12.933] info, version) 1532s [00:52:12.933] } 1532s [00:52:12.933] base::stop(msg) 1532s [00:52:12.933] } 1532s [00:52:12.933] }) 1532s [00:52:12.933] } 1532s [00:52:12.933] base::local({ 1532s [00:52:12.933] for (pkg in "stats") { 1532s [00:52:12.933] base::loadNamespace(pkg) 1532s [00:52:12.933] base::library(pkg, character.only = TRUE) 1532s [00:52:12.933] } 1532s [00:52:12.933] }) 1532s [00:52:12.933] } 1532s [00:52:12.933] options(future.plan = NULL) 1532s [00:52:12.933] Sys.unsetenv("R_FUTURE_PLAN") 1532s [00:52:12.933] future::plan("default", .cleanup = FALSE, .init = FALSE) 1532s [00:52:12.933] } 1532s [00:52:12.933] ...future.workdir <- getwd() 1532s [00:52:12.933] } 1532s [00:52:12.933] ...future.oldOptions <- base::as.list(base::.Options) 1532s [00:52:12.933] ...future.oldEnvVars <- base::Sys.getenv() 1532s [00:52:12.933] } 1532s [00:52:12.933] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1532s [00:52:12.933] future.globals.maxSize = NULL, future.globals.method = NULL, 1532s [00:52:12.933] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1532s [00:52:12.933] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1532s [00:52:12.933] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1532s [00:52:12.933] future.stdout.windows.reencode = NULL, width = 80L) 1532s [00:52:12.933] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1532s [00:52:12.933] base::names(...future.oldOptions)) 1532s [00:52:12.933] } 1532s [00:52:12.933] if (FALSE) { 1532s [00:52:12.933] } 1532s [00:52:12.933] else { 1532s [00:52:12.933] if (TRUE) { 1532s [00:52:12.933] ...future.stdout <- base::rawConnection(base::raw(0L), 1532s [00:52:12.933] open = "w") 1532s [00:52:12.933] } 1532s [00:52:12.933] else { 1532s [00:52:12.933] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1532s [00:52:12.933] windows = "NUL", "/dev/null"), open = "w") 1532s [00:52:12.933] } 1532s [00:52:12.933] base::sink(...future.stdout, type = "output", split = FALSE) 1532s [00:52:12.933] base::on.exit(if (!base::is.null(...future.stdout)) { 1532s [00:52:12.933] base::sink(type = "output", split = FALSE) 1532s [00:52:12.933] base::close(...future.stdout) 1532s [00:52:12.933] }, add = TRUE) 1532s [00:52:12.933] } 1532s [00:52:12.933] ...future.frame <- base::sys.nframe() 1532s [00:52:12.933] ...future.conditions <- base::list() 1532s [00:52:12.933] ...future.rng <- base::globalenv()$.Random.seed 1532s [00:52:12.933] if (FALSE) { 1532s [00:52:12.933] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1532s [00:52:12.933] "...future.value", "...future.globalenv.names", ".Random.seed") 1532s [00:52:12.933] } 1532s [00:52:12.933] ...future.result <- base::tryCatch({ 1532s [00:52:12.933] base::withCallingHandlers({ 1532s [00:52:12.933] ...future.value <- base::withVisible(base::local({ 1532s [00:52:12.933] do.call(function(...) { 1532s [00:52:12.933] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1532s [00:52:12.933] if (!identical(...future.globals.maxSize.org, 1532s [00:52:12.933] ...future.globals.maxSize)) { 1532s [00:52:12.933] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1532s [00:52:12.933] on.exit(options(oopts), add = TRUE) 1532s [00:52:12.933] } 1532s [00:52:12.933] { 1532s [00:52:12.933] lapply(seq_along(...future.elements_ii), 1532s [00:52:12.933] FUN = function(jj) { 1532s [00:52:12.933] ...future.X_jj <- ...future.elements_ii[[jj]] 1532s [00:52:12.933] ...future.FUN(...future.X_jj, ...) 1532s [00:52:12.933] }) 1532s [00:52:12.933] } 1532s [00:52:12.933] }, args = future.call.arguments) 1532s [00:52:12.933] })) 1532s [00:52:12.933] future::FutureResult(value = ...future.value$value, 1532s [00:52:12.933] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1532s [00:52:12.933] ...future.rng), globalenv = if (FALSE) 1532s [00:52:12.933] list(added = base::setdiff(base::names(base::.GlobalEnv), 1532s [00:52:12.933] ...future.globalenv.names)) 1532s [00:52:12.933] else NULL, started = ...future.startTime, version = "1.8") 1532s [00:52:12.933] }, condition = base::local({ 1532s [00:52:12.933] c <- base::c 1532s [00:52:12.933] inherits <- base::inherits 1532s [00:52:12.933] invokeRestart <- base::invokeRestart 1532s [00:52:12.933] length <- base::length 1532s [00:52:12.933] list <- base::list 1532s [00:52:12.933] seq.int <- base::seq.int 1532s [00:52:12.933] signalCondition <- base::signalCondition 1532s [00:52:12.933] sys.calls <- base::sys.calls 1532s [00:52:12.933] `[[` <- base::`[[` 1532s [00:52:12.933] `+` <- base::`+` 1532s [00:52:12.933] `<<-` <- base::`<<-` 1532s [00:52:12.933] sysCalls <- function(calls = sys.calls(), from = 1L) { 1532s [00:52:12.933] calls[seq.int(from = from + 12L, to = length(calls) - 1532s [00:52:12.933] 3L)] 1532s [00:52:12.933] } 1532s [00:52:12.933] function(cond) { 1532s [00:52:12.933] is_error <- inherits(cond, "error") 1532s [00:52:12.933] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1532s [00:52:12.933] NULL) 1532s [00:52:12.933] if (is_error) { 1532s [00:52:12.933] sessionInformation <- function() { 1532s [00:52:12.933] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1532s [00:52:12.933] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1532s [00:52:12.933] search = base::search(), system = base::Sys.info()) 1532s [00:52:12.933] } 1532s [00:52:12.933] ...future.conditions[[length(...future.conditions) + 1532s [00:52:12.933] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1532s [00:52:12.933] cond$call), session = sessionInformation(), 1532s [00:52:12.933] timestamp = base::Sys.time(), signaled = 0L) 1532s [00:52:12.933] signalCondition(cond) 1532s [00:52:12.933] } 1532s [00:52:12.933] else if (!ignore && TRUE && inherits(cond, c("condition", 1532s [00:52:12.933] "immediateCondition"))) { 1532s [00:52:12.933] signal <- TRUE && inherits(cond, "immediateCondition") 1532s [00:52:12.933] ...future.conditions[[length(...future.conditions) + 1532s [00:52:12.933] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1532s [00:52:12.933] if (TRUE && !signal) { 1532s [00:52:12.933] muffleCondition <- function (cond, pattern = "^muffle") 1532s [00:52:12.933] { 1532s [00:52:12.933] inherits <- base::inherits 1532s [00:52:12.933] invokeRestart <- base::invokeRestart 1532s [00:52:12.933] is.null <- base::is.null 1532s [00:52:12.933] muffled <- FALSE 1532s [00:52:12.933] if (inherits(cond, "message")) { 1532s [00:52:12.933] muffled <- grepl(pattern, "muffleMessage") 1532s [00:52:12.933] if (muffled) 1532s [00:52:12.933] invokeRestart("muffleMessage") 1532s [00:52:12.933] } 1532s [00:52:12.933] else if (inherits(cond, "warning")) { 1532s [00:52:12.933] muffled <- grepl(pattern, "muffleWarning") 1532s [00:52:12.933] if (muffled) 1532s [00:52:12.933] invokeRestart("muffleWarning") 1532s [00:52:12.933] } 1532s [00:52:12.933] else if (inherits(cond, "condition")) { 1532s [00:52:12.933] if (!is.null(pattern)) { 1532s [00:52:12.933] computeRestarts <- base::computeRestarts 1532s [00:52:12.933] grepl <- base::grepl 1532s [00:52:12.933] restarts <- computeRestarts(cond) 1532s [00:52:12.933] for (restart in restarts) { 1532s [00:52:12.933] name <- restart$name 1532s [00:52:12.933] if (is.null(name)) 1532s [00:52:12.933] next 1532s [00:52:12.933] if (!grepl(pattern, name)) 1532s [00:52:12.933] next 1532s [00:52:12.933] invokeRestart(restart) 1532s [00:52:12.933] muffled <- TRUE 1532s [00:52:12.933] break 1532s [00:52:12.933] } 1532s [00:52:12.933] } 1532s [00:52:12.933] } 1532s [00:52:12.933] invisible(muffled) 1532s [00:52:12.933] } 1532s [00:52:12.933] muffleCondition(cond, pattern = "^muffle") 1532s [00:52:12.933] } 1532s [00:52:12.933] } 1532s [00:52:12.933] else { 1532s [00:52:12.933] if (TRUE) { 1532s [00:52:12.933] muffleCondition <- function (cond, pattern = "^muffle") 1532s [00:52:12.933] { 1532s [00:52:12.933] inherits <- base::inherits 1532s [00:52:12.933] invokeRestart <- base::invokeRestart 1532s [00:52:12.933] is.null <- base::is.null 1532s [00:52:12.933] muffled <- FALSE 1532s [00:52:12.933] if (inherits(cond, "message")) { 1532s [00:52:12.933] muffled <- grepl(pattern, "muffleMessage") 1532s [00:52:12.933] if (muffled) 1532s [00:52:12.933] invokeRestart("muffleMessage") 1532s [00:52:12.933] } 1532s [00:52:12.933] else if (inherits(cond, "warning")) { 1532s [00:52:12.933] muffled <- grepl(pattern, "muffleWarning") 1532s [00:52:12.933] if (muffled) 1532s [00:52:12.933] invokeRestart("muffleWarning") 1532s [00:52:12.933] } 1532s [00:52:12.933] else if (inherits(cond, "condition")) { 1532s [00:52:12.933] if (!is.null(pattern)) { 1532s [00:52:12.933] computeRestarts <- base::computeRestarts 1532s [00:52:12.933] grepl <- base::grepl 1532s [00:52:12.933] restarts <- computeRestarts(cond) 1532s [00:52:12.933] for (restart in restarts) { 1532s [00:52:12.933] name <- restart$name 1532s [00:52:12.933] if (is.null(name)) 1532s [00:52:12.933] next 1532s [00:52:12.933] if (!grepl(pattern, name)) 1532s [00:52:12.933] next 1532s [00:52:12.933] invokeRestart(restart) 1532s [00:52:12.933] muffled <- TRUE 1532s [00:52:12.933] break 1532s [00:52:12.933] } 1532s [00:52:12.933] } 1532s [00:52:12.933] } 1532s [00:52:12.933] invisible(muffled) 1532s [00:52:12.933] } 1532s [00:52:12.933] muffleCondition(cond, pattern = "^muffle") 1532s [00:52:12.933] } 1532s [00:52:12.933] } 1532s [00:52:12.933] } 1532s [00:52:12.933] })) 1532s [00:52:12.933] }, error = function(ex) { 1532s [00:52:12.933] base::structure(base::list(value = NULL, visible = NULL, 1532s [00:52:12.933] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1532s [00:52:12.933] ...future.rng), started = ...future.startTime, 1532s [00:52:12.933] finished = Sys.time(), session_uuid = NA_character_, 1532s [00:52:12.933] version = "1.8"), class = "FutureResult") 1532s [00:52:12.933] }, finally = { 1532s [00:52:12.933] if (!identical(...future.workdir, getwd())) 1532s [00:52:12.933] setwd(...future.workdir) 1532s [00:52:12.933] { 1532s [00:52:12.933] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1532s [00:52:12.933] ...future.oldOptions$nwarnings <- NULL 1532s [00:52:12.933] } 1532s [00:52:12.933] base::options(...future.oldOptions) 1532s [00:52:12.933] if (.Platform$OS.type == "windows") { 1532s [00:52:12.933] old_names <- names(...future.oldEnvVars) 1532s [00:52:12.933] envs <- base::Sys.getenv() 1532s [00:52:12.933] names <- names(envs) 1532s [00:52:12.933] common <- intersect(names, old_names) 1532s [00:52:12.933] added <- setdiff(names, old_names) 1532s [00:52:12.933] removed <- setdiff(old_names, names) 1532s [00:52:12.933] changed <- common[...future.oldEnvVars[common] != 1532s [00:52:12.933] envs[common]] 1532s [00:52:12.933] NAMES <- toupper(changed) 1532s [00:52:12.933] args <- list() 1532s [00:52:12.933] for (kk in seq_along(NAMES)) { 1532s [00:52:12.933] name <- changed[[kk]] 1532s [00:52:12.933] NAME <- NAMES[[kk]] 1532s [00:52:12.933] if (name != NAME && is.element(NAME, old_names)) 1532s [00:52:12.933] next 1532s [00:52:12.933] args[[name]] <- ...future.oldEnvVars[[name]] 1532s [00:52:12.933] } 1532s [00:52:12.933] NAMES <- toupper(added) 1532s [00:52:12.933] for (kk in seq_along(NAMES)) { 1532s [00:52:12.933] name <- added[[kk]] 1532s [00:52:12.933] NAME <- NAMES[[kk]] 1532s [00:52:12.933] if (name != NAME && is.element(NAME, old_names)) 1532s [00:52:12.933] next 1532s [00:52:12.933] args[[name]] <- "" 1532s [00:52:12.933] } 1532s [00:52:12.933] NAMES <- toupper(removed) 1532s [00:52:12.933] for (kk in seq_along(NAMES)) { 1532s [00:52:12.933] name <- removed[[kk]] 1532s [00:52:12.933] NAME <- NAMES[[kk]] 1532s [00:52:12.933] if (name != NAME && is.element(NAME, old_names)) 1532s [00:52:12.933] next 1532s [00:52:12.933] args[[name]] <- ...future.oldEnvVars[[name]] 1532s [00:52:12.933] } 1532s [00:52:12.933] if (length(args) > 0) 1532s [00:52:12.933] base::do.call(base::Sys.setenv, args = args) 1532s [00:52:12.933] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1532s [00:52:12.933] } 1532s [00:52:12.933] else { 1532s [00:52:12.933] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1532s [00:52:12.933] } 1532s [00:52:12.933] { 1532s [00:52:12.933] if (base::length(...future.futureOptionsAdded) > 1532s [00:52:12.933] 0L) { 1532s [00:52:12.933] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1532s [00:52:12.933] base::names(opts) <- ...future.futureOptionsAdded 1532s [00:52:12.933] base::options(opts) 1532s [00:52:12.933] } 1532s [00:52:12.933] { 1532s [00:52:12.933] { 1532s [00:52:12.933] NULL 1532s [00:52:12.933] RNGkind("Mersenne-Twister") 1532s [00:52:12.933] base::rm(list = ".Random.seed", envir = base::globalenv(), 1532s [00:52:12.933] inherits = FALSE) 1532s [00:52:12.933] } 1532s [00:52:12.933] options(future.plan = NULL) 1532s [00:52:12.933] if (is.na(NA_character_)) 1532s [00:52:12.933] Sys.unsetenv("R_FUTURE_PLAN") 1532s [00:52:12.933] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1532s [00:52:12.933] future::plan(list(function (..., workers = availableCores(), 1532s [00:52:12.933] lazy = FALSE, rscript_libs = .libPaths(), 1532s [00:52:12.933] envir = parent.frame()) 1532s [00:52:12.933] { 1532s [00:52:12.933] if (is.function(workers)) 1532s [00:52:12.933] workers <- workers() 1532s [00:52:12.933] workers <- structure(as.integer(workers), 1532s [00:52:12.933] class = class(workers)) 1532s [00:52:12.933] stop_if_not(length(workers) == 1, is.finite(workers), 1532s [00:52:12.933] workers >= 1) 1532s [00:52:12.933] if (workers == 1L && !inherits(workers, "AsIs")) { 1532s [00:52:12.933] return(sequential(..., lazy = TRUE, envir = envir)) 1532s [00:52:12.933] } 1532s [00:52:12.933] future <- MultisessionFuture(..., workers = workers, 1532s [00:52:12.933] lazy = lazy, rscript_libs = rscript_libs, 1532s [00:52:12.933] envir = envir) 1532s [00:52:12.933] if (!future$lazy) 1532s [00:52:12.933] future <- run(future) 1532s [00:52:12.933] invisible(future) 1532s [00:52:12.933] }), .cleanup = FALSE, .init = FALSE) 1532s [00:52:12.933] } 1532s [00:52:12.933] } 1532s [00:52:12.933] } 1532s [00:52:12.933] }) 1532s [00:52:12.933] if (TRUE) { 1532s [00:52:12.933] base::sink(type = "output", split = FALSE) 1532s [00:52:12.933] if (TRUE) { 1532s [00:52:12.933] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1532s [00:52:12.933] } 1532s [00:52:12.933] else { 1532s [00:52:12.933] ...future.result["stdout"] <- base::list(NULL) 1532s [00:52:12.933] } 1532s [00:52:12.933] base::close(...future.stdout) 1532s [00:52:12.933] ...future.stdout <- NULL 1532s [00:52:12.933] } 1532s [00:52:12.933] ...future.result$conditions <- ...future.conditions 1532s [00:52:12.933] ...future.result$finished <- base::Sys.time() 1532s [00:52:12.933] ...future.result 1532s [00:52:12.933] } 1532s [00:52:12.939] assign_globals() ... 1532s [00:52:12.940] List of 5 1532s [00:52:12.940] $ ...future.FUN :function (x, ...) 1532s [00:52:12.940] $ future.call.arguments :List of 1 1532s [00:52:12.940] ..$ singular.ok: logi FALSE 1532s [00:52:12.940] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1532s [00:52:12.940] $ ...future.elements_ii :List of 3 1532s [00:52:12.940] ..$ :'data.frame': 18 obs. of 3 variables: 1532s [00:52:12.940] .. ..$ breaks : num [1:18] 26 30 54 25 70 52 51 26 67 27 ... 1532s [00:52:12.940] .. ..$ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 2 ... 1532s [00:52:12.940] .. ..$ tension: Factor w/ 3 levels "L","M","H": 1 1 1 1 1 1 1 1 1 1 ... 1532s [00:52:12.940] ..$ :'data.frame': 18 obs. of 3 variables: 1532s [00:52:12.940] .. ..$ breaks : num [1:18] 18 21 29 17 12 18 35 30 36 42 ... 1532s [00:52:12.940] .. ..$ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 2 ... 1532s [00:52:12.940] .. ..$ tension: Factor w/ 3 levels "L","M","H": 2 2 2 2 2 2 2 2 2 2 ... 1532s [00:52:12.940] ..$ :'data.frame': 18 obs. of 3 variables: 1532s [00:52:12.940] .. ..$ breaks : num [1:18] 36 21 24 18 10 43 28 15 26 20 ... 1532s [00:52:12.940] .. ..$ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 2 ... 1532s [00:52:12.940] .. ..$ tension: Factor w/ 3 levels "L","M","H": 3 3 3 3 3 3 3 3 3 3 ... 1532s [00:52:12.940] $ ...future.seeds_ii : NULL 1532s [00:52:12.940] $ ...future.globals.maxSize: NULL 1532s [00:52:12.940] - attr(*, "where")=List of 5 1532s [00:52:12.940] ..$ ...future.FUN : 1532s [00:52:12.940] ..$ future.call.arguments : 1532s [00:52:12.940] ..$ ...future.elements_ii : 1532s [00:52:12.940] ..$ ...future.seeds_ii : 1532s [00:52:12.940] ..$ ...future.globals.maxSize: 1532s [00:52:12.940] - attr(*, "resolved")= logi FALSE 1532s [00:52:12.940] - attr(*, "total_size")= num 5384 1532s [00:52:12.940] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1532s [00:52:12.940] - attr(*, "already-done")= logi TRUE 1532s [00:52:12.952] - reassign environment for ‘...future.FUN’ 1532s [00:52:12.953] - copied ‘...future.FUN’ to environment 1532s [00:52:12.953] - copied ‘future.call.arguments’ to environment 1532s [00:52:12.953] - copied ‘...future.elements_ii’ to environment 1532s [00:52:12.953] - copied ‘...future.seeds_ii’ to environment 1532s [00:52:12.953] - copied ‘...future.globals.maxSize’ to environment 1532s [00:52:12.954] assign_globals() ... done 1532s [00:52:12.954] plan(): Setting new future strategy stack: 1532s [00:52:12.954] List of future strategies: 1532s [00:52:12.954] 1. sequential: 1532s [00:52:12.954] - args: function (..., envir = parent.frame()) 1532s [00:52:12.954] - tweaked: FALSE 1532s [00:52:12.954] - call: NULL 1532s [00:52:12.955] plan(): nbrOfWorkers() = 1 1532s [00:52:12.958] plan(): Setting new future strategy stack: 1532s [00:52:12.959] List of future strategies: 1532s [00:52:12.959] 1. multisession: 1532s [00:52:12.959] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1532s [00:52:12.959] - tweaked: FALSE 1532s [00:52:12.959] - call: plan(strategy) 1532s [00:52:12.963] plan(): nbrOfWorkers() = 1 1532s [00:52:12.963] SequentialFuture started (and completed) 1532s [00:52:12.963] - Launch lazy future ... done 1532s [00:52:12.963] run() for ‘SequentialFuture’ ... done 1532s [00:52:12.964] Created future: 1532s [00:52:12.964] SequentialFuture: 1532s [00:52:12.964] Label: ‘future_by-1’ 1532s [00:52:12.964] Expression: 1532s [00:52:12.964] { 1532s [00:52:12.964] do.call(function(...) { 1532s [00:52:12.964] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1532s [00:52:12.964] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1532s [00:52:12.964] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1532s [00:52:12.964] on.exit(options(oopts), add = TRUE) 1532s [00:52:12.964] } 1532s [00:52:12.964] { 1532s [00:52:12.964] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1532s [00:52:12.964] ...future.X_jj <- ...future.elements_ii[[jj]] 1532s [00:52:12.964] ...future.FUN(...future.X_jj, ...) 1532s [00:52:12.964] }) 1532s [00:52:12.964] } 1532s [00:52:12.964] }, args = future.call.arguments) 1532s [00:52:12.964] } 1532s [00:52:12.964] Lazy evaluation: FALSE 1532s [00:52:12.964] Asynchronous evaluation: FALSE 1532s [00:52:12.964] Local evaluation: TRUE 1532s [00:52:12.964] Environment: R_GlobalEnv 1532s [00:52:12.964] Capture standard output: TRUE 1532s [00:52:12.964] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1532s [00:52:12.964] Globals: 5 objects totaling 10.06 KiB (function ‘...future.FUN’ of 5.20 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 4.80 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1532s [00:52:12.964] Packages: 1 packages (‘stats’) 1532s [00:52:12.964] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1532s [00:52:12.964] Resolved: TRUE 1532s [00:52:12.964] Value: 26.06 KiB of class ‘list’ 1532s [00:52:12.964] Early signaling: FALSE 1532s [00:52:12.964] Owner process: 64a671dd-8756-a081-baa7-973da233f197 1532s [00:52:12.964] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1532s [00:52:12.966] Chunk #1 of 1 ... DONE 1532s [00:52:12.966] Launching 1 futures (chunks) ... DONE 1532s [00:52:12.966] Resolving 1 futures (chunks) ... 1532s [00:52:12.966] resolve() on list ... 1532s [00:52:12.966] recursive: 0 1532s [00:52:12.966] length: 1 1532s [00:52:12.968] 1532s [00:52:12.968] resolved() for ‘SequentialFuture’ ... 1532s [00:52:12.968] - state: ‘finished’ 1532s [00:52:12.968] - run: TRUE 1532s [00:52:12.969] - result: ‘FutureResult’ 1532s [00:52:12.969] resolved() for ‘SequentialFuture’ ... done 1532s [00:52:12.969] Future #1 1532s [00:52:12.969] signalConditionsASAP(SequentialFuture, pos=1) ... 1532s [00:52:12.969] - nx: 1 1532s [00:52:12.969] - relay: TRUE 1532s [00:52:12.969] - stdout: TRUE 1532s [00:52:12.970] - signal: TRUE 1532s [00:52:12.970] - resignal: FALSE 1532s [00:52:12.970] - force: TRUE 1532s [00:52:12.970] - relayed: [n=1] FALSE 1532s [00:52:12.970] - queued futures: [n=1] FALSE 1532s [00:52:12.970] - until=1 1532s [00:52:12.971] - relaying element #1 1532s [00:52:12.971] - relayed: [n=1] TRUE 1533s [00:52:12.971] - queued futures: [n=1] TRUE 1533s [00:52:12.971] signalConditionsASAP(SequentialFuture, pos=1) ... done 1533s [00:52:12.972] length: 0 (resolved future 1) 1533s [00:52:12.972] Relaying remaining futures 1533s [00:52:12.972] signalConditionsASAP(NULL, pos=0) ... 1533s [00:52:12.972] - nx: 1 1533s [00:52:12.972] - relay: TRUE 1533s [00:52:12.972] - stdout: TRUE 1533s [00:52:12.972] - signal: TRUE 1533s [00:52:12.973] - resignal: FALSE 1533s [00:52:12.973] - force: TRUE 1533s [00:52:12.973] - relayed: [n=1] TRUE 1533s [00:52:12.973] - queued futures: [n=1] TRUE 1533s - flush all 1533s [00:52:12.973] - relayed: [n=1] TRUE 1533s [00:52:12.974] - queued futures: [n=1] TRUE 1533s [00:52:12.974] signalConditionsASAP(NULL, pos=0) ... done 1533s [00:52:12.974] resolve() on list ... DONE 1533s [00:52:12.974] - Number of value chunks collected: 1 1533s [00:52:12.974] Resolving 1 futures (chunks) ... DONE 1533s [00:52:12.974] Reducing values from 1 chunks ... 1533s [00:52:12.975] - Number of values collected after concatenation: 3 1533s [00:52:12.975] - Number of values expected: 3 1533s [00:52:12.975] Reducing values from 1 chunks ... DONE 1533s [00:52:12.975] future_lapply() ... DONE 1533s [00:52:12.975] future_by_internal() ... DONE 1533s [00:52:12.981] future_by_internal() ... 1533s [00:52:12.981] future_lapply() ... 1533s [00:52:12.986] Number of chunks: 1 1533s [00:52:12.986] getGlobalsAndPackagesXApply() ... 1533s [00:52:12.987] - future.globals: TRUE 1533s [00:52:12.987] getGlobalsAndPackages() ... 1533s [00:52:12.987] Searching for globals... 1533s [00:52:12.989] - globals found: [6] ‘FUN’, ‘{’, ‘lm’, ‘~’, ‘breaks’, ‘wool’ 1533s [00:52:12.990] Searching for globals ... DONE 1533s [00:52:12.990] Resolving globals: FALSE 1533s [00:52:12.991] The total size of the 3 globals is 2.27 KiB (2320 bytes) 1533s [00:52:12.991] The total size of the 3 globals exported for future expression (‘FUN()’) is 2.27 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are three globals: ‘FUN’ (1.04 KiB of class ‘function’), ‘wool’ (776 bytes of class ‘numeric’) and ‘breaks’ (480 bytes of class ‘numeric’) 1533s [00:52:12.992] - globals: [3] ‘FUN’, ‘breaks’, ‘wool’ 1533s [00:52:12.992] - packages: [1] ‘stats’ 1533s [00:52:12.992] getGlobalsAndPackages() ... DONE 1533s [00:52:12.992] - globals found/used: [n=3] ‘FUN’, ‘breaks’, ‘wool’ 1533s [00:52:12.993] - needed namespaces: [n=1] ‘stats’ 1533s [00:52:12.993] Finding globals ... DONE 1533s [00:52:12.993] - use_args: TRUE 1533s [00:52:12.993] - Getting '...' globals ... 1533s [00:52:12.993] resolve() on list ... 1533s [00:52:12.994] recursive: 0 1533s [00:52:12.994] length: 1 1533s [00:52:12.994] elements: ‘...’ 1533s [00:52:12.994] length: 0 (resolved future 1) 1533s [00:52:12.994] resolve() on list ... DONE 1533s [00:52:12.994] - '...' content: [n=0] 1533s [00:52:12.995] List of 1 1533s [00:52:12.995] $ ...: list() 1533s [00:52:12.995] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1533s [00:52:12.995] - attr(*, "where")=List of 1 1533s [00:52:12.995] ..$ ...: 1533s [00:52:12.995] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1533s [00:52:12.995] - attr(*, "resolved")= logi TRUE 1533s [00:52:12.995] - attr(*, "total_size")= num NA 1533s [00:52:13.000] - Getting '...' globals ... DONE 1533s [00:52:13.000] Globals to be used in all futures (chunks): [n=4] ‘...future.FUN’, ‘breaks’, ‘wool’, ‘...’ 1533s [00:52:13.000] List of 4 1533s [00:52:13.000] $ ...future.FUN:function (x) 1533s [00:52:13.000] $ breaks : num [1:54] 26 30 54 25 70 52 51 26 67 18 ... 1533s [00:52:13.000] $ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 1 ... 1533s [00:52:13.000] $ ... : list() 1533s [00:52:13.000] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1533s [00:52:13.000] - attr(*, "where")=List of 4 1533s [00:52:13.000] ..$ ...future.FUN: 1533s [00:52:13.000] ..$ breaks : 1533s [00:52:13.000] ..$ wool : 1533s [00:52:13.000] ..$ ... : 1533s [00:52:13.000] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1533s [00:52:13.000] - attr(*, "resolved")= logi FALSE 1533s [00:52:13.000] - attr(*, "total_size")= num 2320 1533s [00:52:13.007] Packages to be attached in all futures: [n=1] ‘stats’ 1533s [00:52:13.007] getGlobalsAndPackagesXApply() ... DONE 1533s [00:52:13.007] Number of futures (= number of chunks): 1 1533s [00:52:13.007] Launching 1 futures (chunks) ... 1533s [00:52:13.007] Chunk #1 of 1 ... 1533s [00:52:13.007] - Finding globals in 'X' for chunk #1 ... 1533s [00:52:13.008] getGlobalsAndPackages() ... 1533s [00:52:13.008] Searching for globals... 1533s [00:52:13.008] 1533s [00:52:13.009] Searching for globals ... DONE 1533s [00:52:13.009] - globals: [0] 1533s [00:52:13.009] getGlobalsAndPackages() ... DONE 1533s [00:52:13.009] + additional globals found: [n=0] 1533s [00:52:13.009] + additional namespaces needed: [n=0] 1533s [00:52:13.009] - Finding globals in 'X' for chunk #1 ... DONE 1533s [00:52:13.009] - seeds: 1533s [00:52:13.010] - All globals exported: [n=7] ‘...future.FUN’, ‘breaks’, ‘wool’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1533s [00:52:13.010] getGlobalsAndPackages() ... 1533s [00:52:13.010] - globals passed as-is: [7] ‘...future.FUN’, ‘breaks’, ‘wool’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1533s [00:52:13.010] Resolving globals: FALSE 1533s [00:52:13.010] Tweak future expression to call with '...' arguments ... 1533s [00:52:13.011] { 1533s [00:52:13.011] do.call(function(...) { 1533s [00:52:13.011] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1533s [00:52:13.011] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1533s [00:52:13.011] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1533s [00:52:13.011] on.exit(options(oopts), add = TRUE) 1533s [00:52:13.011] } 1533s [00:52:13.011] { 1533s [00:52:13.011] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1533s [00:52:13.011] ...future.X_jj <- ...future.elements_ii[[jj]] 1533s [00:52:13.011] ...future.FUN(...future.X_jj, ...) 1533s [00:52:13.011] }) 1533s [00:52:13.011] } 1533s [00:52:13.011] }, args = future.call.arguments) 1533s [00:52:13.011] } 1533s [00:52:13.011] Tweak future expression to call with '...' arguments ... DONE 1533s [00:52:13.012] - globals: [7] ‘...future.FUN’, ‘breaks’, ‘wool’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1533s [00:52:13.012] 1533s [00:52:13.012] getGlobalsAndPackages() ... DONE 1533s [00:52:13.013] run() for ‘Future’ ... 1533s [00:52:13.013] - state: ‘created’ 1533s [00:52:13.013] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1533s [00:52:13.017] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1533s [00:52:13.017] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1533s [00:52:13.017] - Field: ‘label’ 1533s [00:52:13.017] - Field: ‘local’ 1533s [00:52:13.017] - Field: ‘owner’ 1533s [00:52:13.018] - Field: ‘envir’ 1533s [00:52:13.018] - Field: ‘packages’ 1533s [00:52:13.018] - Field: ‘gc’ 1533s [00:52:13.018] - Field: ‘conditions’ 1533s [00:52:13.018] - Field: ‘expr’ 1533s [00:52:13.018] - Field: ‘uuid’ 1533s [00:52:13.018] - Field: ‘seed’ 1533s [00:52:13.019] - Field: ‘version’ 1533s [00:52:13.019] - Field: ‘result’ 1533s [00:52:13.019] - Field: ‘asynchronous’ 1533s [00:52:13.019] - Field: ‘calls’ 1533s [00:52:13.019] - Field: ‘globals’ 1533s [00:52:13.019] - Field: ‘stdout’ 1533s [00:52:13.019] - Field: ‘earlySignal’ 1533s [00:52:13.020] - Field: ‘lazy’ 1533s [00:52:13.020] - Field: ‘state’ 1533s [00:52:13.020] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1533s [00:52:13.020] - Launch lazy future ... 1533s [00:52:13.021] Packages needed by the future expression (n = 1): ‘stats’ 1533s [00:52:13.021] Packages needed by future strategies (n = 0): 1533s [00:52:13.021] { 1533s [00:52:13.021] { 1533s [00:52:13.021] { 1533s [00:52:13.021] ...future.startTime <- base::Sys.time() 1533s [00:52:13.021] { 1533s [00:52:13.021] { 1533s [00:52:13.021] { 1533s [00:52:13.021] { 1533s [00:52:13.021] base::local({ 1533s [00:52:13.021] has_future <- base::requireNamespace("future", 1533s [00:52:13.021] quietly = TRUE) 1533s [00:52:13.021] if (has_future) { 1533s [00:52:13.021] ns <- base::getNamespace("future") 1533s [00:52:13.021] version <- ns[[".package"]][["version"]] 1533s [00:52:13.021] if (is.null(version)) 1533s [00:52:13.021] version <- utils::packageVersion("future") 1533s [00:52:13.021] } 1533s [00:52:13.021] else { 1533s [00:52:13.021] version <- NULL 1533s [00:52:13.021] } 1533s [00:52:13.021] if (!has_future || version < "1.8.0") { 1533s [00:52:13.021] info <- base::c(r_version = base::gsub("R version ", 1533s [00:52:13.021] "", base::R.version$version.string), 1533s [00:52:13.021] platform = base::sprintf("%s (%s-bit)", 1533s [00:52:13.021] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1533s [00:52:13.021] os = base::paste(base::Sys.info()[base::c("sysname", 1533s [00:52:13.021] "release", "version")], collapse = " "), 1533s [00:52:13.021] hostname = base::Sys.info()[["nodename"]]) 1533s [00:52:13.021] info <- base::sprintf("%s: %s", base::names(info), 1533s [00:52:13.021] info) 1533s [00:52:13.021] info <- base::paste(info, collapse = "; ") 1533s [00:52:13.021] if (!has_future) { 1533s [00:52:13.021] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1533s [00:52:13.021] info) 1533s [00:52:13.021] } 1533s [00:52:13.021] else { 1533s [00:52:13.021] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1533s [00:52:13.021] info, version) 1533s [00:52:13.021] } 1533s [00:52:13.021] base::stop(msg) 1533s [00:52:13.021] } 1533s [00:52:13.021] }) 1533s [00:52:13.021] } 1533s [00:52:13.021] base::local({ 1533s [00:52:13.021] for (pkg in "stats") { 1533s [00:52:13.021] base::loadNamespace(pkg) 1533s [00:52:13.021] base::library(pkg, character.only = TRUE) 1533s [00:52:13.021] } 1533s [00:52:13.021] }) 1533s [00:52:13.021] } 1533s [00:52:13.021] options(future.plan = NULL) 1533s [00:52:13.021] Sys.unsetenv("R_FUTURE_PLAN") 1533s [00:52:13.021] future::plan("default", .cleanup = FALSE, .init = FALSE) 1533s [00:52:13.021] } 1533s [00:52:13.021] ...future.workdir <- getwd() 1533s [00:52:13.021] } 1533s [00:52:13.021] ...future.oldOptions <- base::as.list(base::.Options) 1533s [00:52:13.021] ...future.oldEnvVars <- base::Sys.getenv() 1533s [00:52:13.021] } 1533s [00:52:13.021] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1533s [00:52:13.021] future.globals.maxSize = NULL, future.globals.method = NULL, 1533s [00:52:13.021] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1533s [00:52:13.021] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1533s [00:52:13.021] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1533s [00:52:13.021] future.stdout.windows.reencode = NULL, width = 80L) 1533s [00:52:13.021] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1533s [00:52:13.021] base::names(...future.oldOptions)) 1533s [00:52:13.021] } 1533s [00:52:13.021] if (FALSE) { 1533s [00:52:13.021] } 1533s [00:52:13.021] else { 1533s [00:52:13.021] if (TRUE) { 1533s [00:52:13.021] ...future.stdout <- base::rawConnection(base::raw(0L), 1533s [00:52:13.021] open = "w") 1533s [00:52:13.021] } 1533s [00:52:13.021] else { 1533s [00:52:13.021] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1533s [00:52:13.021] windows = "NUL", "/dev/null"), open = "w") 1533s [00:52:13.021] } 1533s [00:52:13.021] base::sink(...future.stdout, type = "output", split = FALSE) 1533s [00:52:13.021] base::on.exit(if (!base::is.null(...future.stdout)) { 1533s [00:52:13.021] base::sink(type = "output", split = FALSE) 1533s [00:52:13.021] base::close(...future.stdout) 1533s [00:52:13.021] }, add = TRUE) 1533s [00:52:13.021] } 1533s [00:52:13.021] ...future.frame <- base::sys.nframe() 1533s [00:52:13.021] ...future.conditions <- base::list() 1533s [00:52:13.021] ...future.rng <- base::globalenv()$.Random.seed 1533s [00:52:13.021] if (FALSE) { 1533s [00:52:13.021] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1533s [00:52:13.021] "...future.value", "...future.globalenv.names", ".Random.seed") 1533s [00:52:13.021] } 1533s [00:52:13.021] ...future.result <- base::tryCatch({ 1533s [00:52:13.021] base::withCallingHandlers({ 1533s [00:52:13.021] ...future.value <- base::withVisible(base::local({ 1533s [00:52:13.021] do.call(function(...) { 1533s [00:52:13.021] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1533s [00:52:13.021] if (!identical(...future.globals.maxSize.org, 1533s [00:52:13.021] ...future.globals.maxSize)) { 1533s [00:52:13.021] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1533s [00:52:13.021] on.exit(options(oopts), add = TRUE) 1533s [00:52:13.021] } 1533s [00:52:13.021] { 1533s [00:52:13.021] lapply(seq_along(...future.elements_ii), 1533s [00:52:13.021] FUN = function(jj) { 1533s [00:52:13.021] ...future.X_jj <- ...future.elements_ii[[jj]] 1533s [00:52:13.021] ...future.FUN(...future.X_jj, ...) 1533s [00:52:13.021] }) 1533s [00:52:13.021] } 1533s [00:52:13.021] }, args = future.call.arguments) 1533s [00:52:13.021] })) 1533s [00:52:13.021] future::FutureResult(value = ...future.value$value, 1533s [00:52:13.021] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1533s [00:52:13.021] ...future.rng), globalenv = if (FALSE) 1533s [00:52:13.021] list(added = base::setdiff(base::names(base::.GlobalEnv), 1533s [00:52:13.021] ...future.globalenv.names)) 1533s [00:52:13.021] else NULL, started = ...future.startTime, version = "1.8") 1533s [00:52:13.021] }, condition = base::local({ 1533s [00:52:13.021] c <- base::c 1533s [00:52:13.021] inherits <- base::inherits 1533s [00:52:13.021] invokeRestart <- base::invokeRestart 1533s [00:52:13.021] length <- base::length 1533s [00:52:13.021] list <- base::list 1533s [00:52:13.021] seq.int <- base::seq.int 1533s [00:52:13.021] signalCondition <- base::signalCondition 1533s [00:52:13.021] sys.calls <- base::sys.calls 1533s [00:52:13.021] `[[` <- base::`[[` 1533s [00:52:13.021] `+` <- base::`+` 1533s [00:52:13.021] `<<-` <- base::`<<-` 1533s [00:52:13.021] sysCalls <- function(calls = sys.calls(), from = 1L) { 1533s [00:52:13.021] calls[seq.int(from = from + 12L, to = length(calls) - 1533s [00:52:13.021] 3L)] 1533s [00:52:13.021] } 1533s [00:52:13.021] function(cond) { 1533s [00:52:13.021] is_error <- inherits(cond, "error") 1533s [00:52:13.021] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1533s [00:52:13.021] NULL) 1533s [00:52:13.021] if (is_error) { 1533s [00:52:13.021] sessionInformation <- function() { 1533s [00:52:13.021] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1533s [00:52:13.021] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1533s [00:52:13.021] search = base::search(), system = base::Sys.info()) 1533s [00:52:13.021] } 1533s [00:52:13.021] ...future.conditions[[length(...future.conditions) + 1533s [00:52:13.021] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1533s [00:52:13.021] cond$call), session = sessionInformation(), 1533s [00:52:13.021] timestamp = base::Sys.time(), signaled = 0L) 1533s [00:52:13.021] signalCondition(cond) 1533s [00:52:13.021] } 1533s [00:52:13.021] else if (!ignore && TRUE && inherits(cond, c("condition", 1533s [00:52:13.021] "immediateCondition"))) { 1533s [00:52:13.021] signal <- TRUE && inherits(cond, "immediateCondition") 1533s [00:52:13.021] ...future.conditions[[length(...future.conditions) + 1533s [00:52:13.021] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1533s [00:52:13.021] if (TRUE && !signal) { 1533s [00:52:13.021] muffleCondition <- function (cond, pattern = "^muffle") 1533s [00:52:13.021] { 1533s [00:52:13.021] inherits <- base::inherits 1533s [00:52:13.021] invokeRestart <- base::invokeRestart 1533s [00:52:13.021] is.null <- base::is.null 1533s [00:52:13.021] muffled <- FALSE 1533s [00:52:13.021] if (inherits(cond, "message")) { 1533s [00:52:13.021] muffled <- grepl(pattern, "muffleMessage") 1533s [00:52:13.021] if (muffled) 1533s [00:52:13.021] invokeRestart("muffleMessage") 1533s [00:52:13.021] } 1533s [00:52:13.021] else if (inherits(cond, "warning")) { 1533s [00:52:13.021] muffled <- grepl(pattern, "muffleWarning") 1533s [00:52:13.021] if (muffled) 1533s [00:52:13.021] invokeRestart("muffleWarning") 1533s [00:52:13.021] } 1533s [00:52:13.021] else if (inherits(cond, "condition")) { 1533s [00:52:13.021] if (!is.null(pattern)) { 1533s [00:52:13.021] computeRestarts <- base::computeRestarts 1533s [00:52:13.021] grepl <- base::grepl 1533s [00:52:13.021] restarts <- computeRestarts(cond) 1533s [00:52:13.021] for (restart in restarts) { 1533s [00:52:13.021] name <- restart$name 1533s [00:52:13.021] if (is.null(name)) 1533s [00:52:13.021] next 1533s [00:52:13.021] if (!grepl(pattern, name)) 1533s [00:52:13.021] next 1533s [00:52:13.021] invokeRestart(restart) 1533s [00:52:13.021] muffled <- TRUE 1533s [00:52:13.021] break 1533s [00:52:13.021] } 1533s [00:52:13.021] } 1533s [00:52:13.021] } 1533s [00:52:13.021] invisible(muffled) 1533s [00:52:13.021] } 1533s [00:52:13.021] muffleCondition(cond, pattern = "^muffle") 1533s [00:52:13.021] } 1533s [00:52:13.021] } 1533s [00:52:13.021] else { 1533s [00:52:13.021] if (TRUE) { 1533s [00:52:13.021] muffleCondition <- function (cond, pattern = "^muffle") 1533s [00:52:13.021] { 1533s [00:52:13.021] inherits <- base::inherits 1533s [00:52:13.021] invokeRestart <- base::invokeRestart 1533s [00:52:13.021] is.null <- base::is.null 1533s [00:52:13.021] muffled <- FALSE 1533s [00:52:13.021] if (inherits(cond, "message")) { 1533s [00:52:13.021] muffled <- grepl(pattern, "muffleMessage") 1533s [00:52:13.021] if (muffled) 1533s [00:52:13.021] invokeRestart("muffleMessage") 1533s [00:52:13.021] } 1533s [00:52:13.021] else if (inherits(cond, "warning")) { 1533s [00:52:13.021] muffled <- grepl(pattern, "muffleWarning") 1533s [00:52:13.021] if (muffled) 1533s [00:52:13.021] invokeRestart("muffleWarning") 1533s [00:52:13.021] } 1533s [00:52:13.021] else if (inherits(cond, "condition")) { 1533s [00:52:13.021] if (!is.null(pattern)) { 1533s [00:52:13.021] computeRestarts <- base::computeRestarts 1533s [00:52:13.021] grepl <- base::grepl 1533s [00:52:13.021] restarts <- computeRestarts(cond) 1533s [00:52:13.021] for (restart in restarts) { 1533s [00:52:13.021] name <- restart$name 1533s [00:52:13.021] if (is.null(name)) 1533s [00:52:13.021] next 1533s [00:52:13.021] if (!grepl(pattern, name)) 1533s [00:52:13.021] next 1533s [00:52:13.021] invokeRestart(restart) 1533s [00:52:13.021] muffled <- TRUE 1533s [00:52:13.021] break 1533s [00:52:13.021] } 1533s [00:52:13.021] } 1533s [00:52:13.021] } 1533s [00:52:13.021] invisible(muffled) 1533s [00:52:13.021] } 1533s [00:52:13.021] muffleCondition(cond, pattern = "^muffle") 1533s [00:52:13.021] } 1533s [00:52:13.021] } 1533s [00:52:13.021] } 1533s [00:52:13.021] })) 1533s [00:52:13.021] }, error = function(ex) { 1533s [00:52:13.021] base::structure(base::list(value = NULL, visible = NULL, 1533s [00:52:13.021] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1533s [00:52:13.021] ...future.rng), started = ...future.startTime, 1533s [00:52:13.021] finished = Sys.time(), session_uuid = NA_character_, 1533s [00:52:13.021] version = "1.8"), class = "FutureResult") 1533s [00:52:13.021] }, finally = { 1533s [00:52:13.021] if (!identical(...future.workdir, getwd())) 1533s [00:52:13.021] setwd(...future.workdir) 1533s [00:52:13.021] { 1533s [00:52:13.021] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1533s [00:52:13.021] ...future.oldOptions$nwarnings <- NULL 1533s [00:52:13.021] } 1533s [00:52:13.021] base::options(...future.oldOptions) 1533s [00:52:13.021] if (.Platform$OS.type == "windows") { 1533s [00:52:13.021] old_names <- names(...future.oldEnvVars) 1533s [00:52:13.021] envs <- base::Sys.getenv() 1533s [00:52:13.021] names <- names(envs) 1533s [00:52:13.021] common <- intersect(names, old_names) 1533s [00:52:13.021] added <- setdiff(names, old_names) 1533s [00:52:13.021] removed <- setdiff(old_names, names) 1533s [00:52:13.021] changed <- common[...future.oldEnvVars[common] != 1533s [00:52:13.021] envs[common]] 1533s [00:52:13.021] NAMES <- toupper(changed) 1533s [00:52:13.021] args <- list() 1533s [00:52:13.021] for (kk in seq_along(NAMES)) { 1533s [00:52:13.021] name <- changed[[kk]] 1533s [00:52:13.021] NAME <- NAMES[[kk]] 1533s [00:52:13.021] if (name != NAME && is.element(NAME, old_names)) 1533s [00:52:13.021] next 1533s [00:52:13.021] args[[name]] <- ...future.oldEnvVars[[name]] 1533s [00:52:13.021] } 1533s [00:52:13.021] NAMES <- toupper(added) 1533s [00:52:13.021] for (kk in seq_along(NAMES)) { 1533s [00:52:13.021] name <- added[[kk]] 1533s [00:52:13.021] NAME <- NAMES[[kk]] 1533s [00:52:13.021] if (name != NAME && is.element(NAME, old_names)) 1533s [00:52:13.021] next 1533s [00:52:13.021] args[[name]] <- "" 1533s [00:52:13.021] } 1533s [00:52:13.021] NAMES <- toupper(removed) 1533s [00:52:13.021] for (kk in seq_along(NAMES)) { 1533s [00:52:13.021] name <- removed[[kk]] 1533s [00:52:13.021] NAME <- NAMES[[kk]] 1533s [00:52:13.021] if (name != NAME && is.element(NAME, old_names)) 1533s [00:52:13.021] next 1533s [00:52:13.021] args[[name]] <- ...future.oldEnvVars[[name]] 1533s [00:52:13.021] } 1533s [00:52:13.021] if (length(args) > 0) 1533s [00:52:13.021] base::do.call(base::Sys.setenv, args = args) 1533s [00:52:13.021] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1533s [00:52:13.021] } 1533s [00:52:13.021] else { 1533s [00:52:13.021] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1533s [00:52:13.021] } 1533s [00:52:13.021] { 1533s [00:52:13.021] if (base::length(...future.futureOptionsAdded) > 1533s [00:52:13.021] 0L) { 1533s [00:52:13.021] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1533s [00:52:13.021] base::names(opts) <- ...future.futureOptionsAdded 1533s [00:52:13.021] base::options(opts) 1533s [00:52:13.021] } 1533s [00:52:13.021] { 1533s [00:52:13.021] { 1533s [00:52:13.021] NULL 1533s [00:52:13.021] RNGkind("Mersenne-Twister") 1533s [00:52:13.021] base::rm(list = ".Random.seed", envir = base::globalenv(), 1533s [00:52:13.021] inherits = FALSE) 1533s [00:52:13.021] } 1533s [00:52:13.021] options(future.plan = NULL) 1533s [00:52:13.021] if (is.na(NA_character_)) 1533s [00:52:13.021] Sys.unsetenv("R_FUTURE_PLAN") 1533s [00:52:13.021] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1533s [00:52:13.021] future::plan(list(function (..., workers = availableCores(), 1533s [00:52:13.021] lazy = FALSE, rscript_libs = .libPaths(), 1533s [00:52:13.021] envir = parent.frame()) 1533s [00:52:13.021] { 1533s [00:52:13.021] if (is.function(workers)) 1533s [00:52:13.021] workers <- workers() 1533s [00:52:13.021] workers <- structure(as.integer(workers), 1533s [00:52:13.021] class = class(workers)) 1533s [00:52:13.021] stop_if_not(length(workers) == 1, is.finite(workers), 1533s [00:52:13.021] workers >= 1) 1533s [00:52:13.021] if (workers == 1L && !inherits(workers, "AsIs")) { 1533s [00:52:13.021] return(sequential(..., lazy = TRUE, envir = envir)) 1533s [00:52:13.021] } 1533s [00:52:13.021] future <- MultisessionFuture(..., workers = workers, 1533s [00:52:13.021] lazy = lazy, rscript_libs = rscript_libs, 1533s [00:52:13.021] envir = envir) 1533s [00:52:13.021] if (!future$lazy) 1533s [00:52:13.021] future <- run(future) 1533s [00:52:13.021] invisible(future) 1533s [00:52:13.021] }), .cleanup = FALSE, .init = FALSE) 1533s [00:52:13.021] } 1533s [00:52:13.021] } 1533s [00:52:13.021] } 1533s [00:52:13.021] }) 1533s [00:52:13.021] if (TRUE) { 1533s [00:52:13.021] base::sink(type = "output", split = FALSE) 1533s [00:52:13.021] if (TRUE) { 1533s [00:52:13.021] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1533s [00:52:13.021] } 1533s [00:52:13.021] else { 1533s [00:52:13.021] ...future.result["stdout"] <- base::list(NULL) 1533s [00:52:13.021] } 1533s [00:52:13.021] base::close(...future.stdout) 1533s [00:52:13.021] ...future.stdout <- NULL 1533s [00:52:13.021] } 1533s [00:52:13.021] ...future.result$conditions <- ...future.conditions 1533s [00:52:13.021] ...future.result$finished <- base::Sys.time() 1533s [00:52:13.021] ...future.result 1533s [00:52:13.021] } 1533s [00:52:13.025] assign_globals() ... 1533s [00:52:13.025] List of 7 1533s [00:52:13.025] $ ...future.FUN :function (x) 1533s [00:52:13.025] $ breaks : num [1:54] 26 30 54 25 70 52 51 26 67 18 ... 1533s [00:52:13.025] $ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 1 ... 1533s [00:52:13.025] $ future.call.arguments : list() 1533s [00:52:13.025] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1533s [00:52:13.025] $ ...future.elements_ii :List of 3 1533s [00:52:13.025] ..$ :'data.frame': 18 obs. of 3 variables: 1533s [00:52:13.025] .. ..$ breaks : num [1:18] 26 30 54 25 70 52 51 26 67 27 ... 1533s [00:52:13.025] .. ..$ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 2 ... 1533s [00:52:13.025] .. ..$ tension: Factor w/ 3 levels "L","M","H": 1 1 1 1 1 1 1 1 1 1 ... 1533s [00:52:13.025] ..$ :'data.frame': 18 obs. of 3 variables: 1533s [00:52:13.025] .. ..$ breaks : num [1:18] 18 21 29 17 12 18 35 30 36 42 ... 1533s [00:52:13.025] .. ..$ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 2 ... 1533s [00:52:13.025] .. ..$ tension: Factor w/ 3 levels "L","M","H": 2 2 2 2 2 2 2 2 2 2 ... 1533s [00:52:13.025] ..$ :'data.frame': 18 obs. of 3 variables: 1533s [00:52:13.025] .. ..$ breaks : num [1:18] 36 21 24 18 10 43 28 15 26 20 ... 1533s [00:52:13.025] .. ..$ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 2 ... 1533s [00:52:13.025] .. ..$ tension: Factor w/ 3 levels "L","M","H": 3 3 3 3 3 3 3 3 3 3 ... 1533s [00:52:13.025] $ ...future.seeds_ii : NULL 1533s [00:52:13.025] $ ...future.globals.maxSize: NULL 1533s [00:52:13.025] - attr(*, "where")=List of 7 1533s [00:52:13.025] ..$ ...future.FUN : 1533s [00:52:13.025] ..$ breaks : 1533s [00:52:13.025] ..$ wool : 1533s [00:52:13.025] ..$ future.call.arguments : 1533s [00:52:13.025] ..$ ...future.elements_ii : 1533s [00:52:13.025] ..$ ...future.seeds_ii : 1533s [00:52:13.025] ..$ ...future.globals.maxSize: 1533s [00:52:13.025] - attr(*, "resolved")= logi FALSE 1533s [00:52:13.025] - attr(*, "total_size")= num 2320 1533s [00:52:13.025] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1533s [00:52:13.025] - attr(*, "already-done")= logi TRUE 1533s [00:52:13.040] - reassign environment for ‘...future.FUN’ 1533s [00:52:13.040] - copied ‘...future.FUN’ to environment 1533s [00:52:13.040] - copied ‘breaks’ to environment 1533s [00:52:13.041] - copied ‘wool’ to environment 1533s [00:52:13.041] - copied ‘future.call.arguments’ to environment 1533s [00:52:13.041] - copied ‘...future.elements_ii’ to environment 1533s [00:52:13.042] - copied ‘...future.seeds_ii’ to environment 1533s [00:52:13.042] - copied ‘...future.globals.maxSize’ to environment 1533s [00:52:13.042] assign_globals() ... done 1533s [00:52:13.043] plan(): Setting new future strategy stack: 1533s [00:52:13.043] List of future strategies: 1533s [00:52:13.043] 1. sequential: 1533s [00:52:13.043] - args: function (..., envir = parent.frame()) 1533s [00:52:13.043] - tweaked: FALSE 1533s [00:52:13.043] - call: NULL 1533s [00:52:13.043] plan(): nbrOfWorkers() = 1 1533s [00:52:13.047] plan(): Setting new future strategy stack: 1533s [00:52:13.047] List of future strategies: 1533s [00:52:13.047] 1. multisession: 1533s [00:52:13.047] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1533s [00:52:13.047] - tweaked: FALSE 1533s [00:52:13.047] - call: plan(strategy) 1533s [00:52:13.051] plan(): nbrOfWorkers() = 1 1533s [00:52:13.051] SequentialFuture started (and completed) 1533s [00:52:13.051] - Launch lazy future ... done 1533s [00:52:13.052] run() for ‘SequentialFuture’ ... done 1533s [00:52:13.052] Created future: 1533s [00:52:13.052] SequentialFuture: 1533s [00:52:13.052] Label: ‘future_by-1’ 1533s [00:52:13.052] Expression: 1533s [00:52:13.052] { 1533s [00:52:13.052] do.call(function(...) { 1533s [00:52:13.052] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1533s [00:52:13.052] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1533s [00:52:13.052] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1533s [00:52:13.052] on.exit(options(oopts), add = TRUE) 1533s [00:52:13.052] } 1533s [00:52:13.052] { 1533s [00:52:13.052] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1533s [00:52:13.052] ...future.X_jj <- ...future.elements_ii[[jj]] 1533s [00:52:13.052] ...future.FUN(...future.X_jj, ...) 1533s [00:52:13.052] }) 1533s [00:52:13.052] } 1533s [00:52:13.052] }, args = future.call.arguments) 1533s [00:52:13.052] } 1533s [00:52:13.052] Lazy evaluation: FALSE 1533s [00:52:13.052] Asynchronous evaluation: FALSE 1533s [00:52:13.052] Local evaluation: TRUE 1533s [00:52:13.052] Environment: 0x2aa048e4968 1533s [00:52:13.052] Capture standard output: TRUE 1533s [00:52:13.052] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1533s [00:52:13.052] Globals: 7 objects totaling 7.07 KiB (function ‘...future.FUN’ of 1.04 KiB, numeric ‘breaks’ of 480 bytes, factor ‘wool’ of 776 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 4.80 KiB, ...) 1533s [00:52:13.052] Packages: 1 packages (‘stats’) 1533s [00:52:13.052] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1533s [00:52:13.052] Resolved: TRUE 1533s [00:52:13.052] Value: 25.57 KiB of class ‘list’ 1533s [00:52:13.052] Early signaling: FALSE 1533s [00:52:13.052] Owner process: 64a671dd-8756-a081-baa7-973da233f197 1533s [00:52:13.052] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1533s [00:52:13.055] Chunk #1 of 1 ... DONE 1533s [00:52:13.055] Launching 1 futures (chunks) ... DONE 1533s [00:52:13.055] Resolving 1 futures (chunks) ... 1533s [00:52:13.055] resolve() on list ... 1533s [00:52:13.056] recursive: 0 1533s [00:52:13.056] length: 1 1533s [00:52:13.056] 1533s [00:52:13.056] resolved() for ‘SequentialFuture’ ... 1533s [00:52:13.056] - state: ‘finished’ 1533s [00:52:13.056] - run: TRUE 1533s [00:52:13.056] - result: ‘FutureResult’ 1533s [00:52:13.057] resolved() for ‘SequentialFuture’ ... done 1533s [00:52:13.057] Future #1 1533s [00:52:13.057] signalConditionsASAP(SequentialFuture, pos=1) ... 1533s [00:52:13.057] - nx: 1 1533s [00:52:13.057] - relay: TRUE 1533s [00:52:13.057] - stdout: TRUE 1533s [00:52:13.057] - signal: TRUE 1533s [00:52:13.058] - resignal: FALSE 1533s [00:52:13.058] - force: TRUE 1533s [00:52:13.058] - relayed: [n=1] FALSE 1533s [00:52:13.058] - queued futures: [n=1] FALSE 1533s [00:52:13.058] - until=1 1533s [00:52:13.058] - relaying element #1 1533s [00:52:13.059] - relayed: [n=1] TRUE 1533s [00:52:13.059] - queued futures: [n=1] TRUE 1533s [00:52:13.059] signalConditionsASAP(SequentialFuture, pos=1) ... done 1533s [00:52:13.059] length: 0 (resolved future 1) 1533s [00:52:13.059] Relaying remaining futures 1533s [00:52:13.060] signalConditionsASAP(NULL, pos=0) ... 1533s [00:52:13.060] - nx: 1 1533s [00:52:13.060] - relay: TRUE 1533s [00:52:13.060] - stdout: TRUE 1533s [00:52:13.060] - signal: TRUE 1533s [00:52:13.060] - resignal: FALSE 1533s [00:52:13.061] - force: TRUE 1533s [00:52:13.061] - relayed: [n=1] TRUE 1533s [00:52:13.061] - queued futures: [n=1] TRUE 1533s - flush all 1533s [00:52:13.061] - relayed: [n=1] TRUE 1533s [00:52:13.061] - queued futures: [n=1] TRUE 1533s [00:52:13.062] signalConditionsASAP(NULL, pos=0) ... done 1533s [00:52:13.062] resolve() on list ... DONE 1533s [00:52:13.062] - Number of value chunks collected: 1 1533s [00:52:13.062] Resolving 1 futures (chunks) ... DONE 1533s [00:52:13.062] Reducing values from 1 chunks ... 1533s [00:52:13.062] - Number of values collected after concatenation: 3 1533s [00:52:13.063] - Number of values expected: 3 1533s [00:52:13.063] Reducing values from 1 chunks ... DONE 1533s [00:52:13.063] future_lapply() ... DONE 1533s [00:52:13.063] future_by_internal() ... DONE 1533s [00:52:13.065] future_by_internal() ... 1533s [00:52:13.066] future_lapply() ... 1533s [00:52:13.070] Number of chunks: 1 1533s [00:52:13.070] getGlobalsAndPackagesXApply() ... 1533s [00:52:13.070] - future.globals: TRUE 1533s [00:52:13.070] getGlobalsAndPackages() ... 1533s [00:52:13.071] Searching for globals... 1533s [00:52:13.073] - globals found: [2] ‘FUN’, ‘UseMethod’ 1533s [00:52:13.073] Searching for globals ... DONE 1533s [00:52:13.073] Resolving globals: FALSE 1533s [00:52:13.073] The total size of the 1 globals is 1.21 KiB (1240 bytes) 1533s [00:52:13.074] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.21 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.21 KiB of class ‘function’) 1533s [00:52:13.074] - globals: [1] ‘FUN’ 1533s [00:52:13.075] 1533s [00:52:13.075] getGlobalsAndPackages() ... DONE 1533s [00:52:13.075] - globals found/used: [n=1] ‘FUN’ 1533s [00:52:13.076] - needed namespaces: [n=0] 1533s [00:52:13.076] Finding globals ... DONE 1533s [00:52:13.076] - use_args: TRUE 1533s [00:52:13.076] - Getting '...' globals ... 1533s [00:52:13.077] resolve() on list ... 1533s [00:52:13.077] recursive: 0 1533s [00:52:13.077] length: 1 1533s [00:52:13.077] elements: ‘...’ 1533s [00:52:13.077] length: 0 (resolved future 1) 1533s [00:52:13.078] resolve() on list ... DONE 1533s [00:52:13.078] - '...' content: [n=0] 1533s [00:52:13.078] List of 1 1533s [00:52:13.078] $ ...: list() 1533s [00:52:13.078] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1533s [00:52:13.078] - attr(*, "where")=List of 1 1533s [00:52:13.078] ..$ ...: 1533s [00:52:13.078] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1533s [00:52:13.078] - attr(*, "resolved")= logi TRUE 1533s [00:52:13.078] - attr(*, "total_size")= num NA 1533s [00:52:13.081] - Getting '...' globals ... DONE 1533s [00:52:13.082] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1533s [00:52:13.082] List of 2 1533s [00:52:13.082] $ ...future.FUN:function (object, ...) 1533s [00:52:13.082] $ ... : list() 1533s [00:52:13.082] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1533s [00:52:13.082] - attr(*, "where")=List of 2 1533s [00:52:13.082] ..$ ...future.FUN: 1533s [00:52:13.082] ..$ ... : 1533s [00:52:13.082] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1533s [00:52:13.082] - attr(*, "resolved")= logi FALSE 1533s [00:52:13.082] - attr(*, "total_size")= num 1240 1533s [00:52:13.086] Packages to be attached in all futures: [n=0] 1533s [00:52:13.086] getGlobalsAndPackagesXApply() ... DONE 1533s [00:52:13.087] Number of futures (= number of chunks): 1 1533s [00:52:13.087] Launching 1 futures (chunks) ... 1533s [00:52:13.087] Chunk #1 of 1 ... 1533s [00:52:13.087] - Finding globals in 'X' for chunk #1 ... 1533s [00:52:13.087] getGlobalsAndPackages() ... 1533s [00:52:13.087] Searching for globals... 1533s [00:52:13.088] 1533s [00:52:13.088] Searching for globals ... DONE 1533s [00:52:13.088] - globals: [0] 1533s [00:52:13.089] getGlobalsAndPackages() ... DONE 1533s [00:52:13.089] + additional globals found: [n=0] 1533s [00:52:13.089] + additional namespaces needed: [n=0] 1533s [00:52:13.089] - Finding globals in 'X' for chunk #1 ... DONE 1533s [00:52:13.089] - seeds: 1533s [00:52:13.089] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1533s [00:52:13.090] getGlobalsAndPackages() ... 1533s [00:52:13.090] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1533s [00:52:13.090] Resolving globals: FALSE 1533s [00:52:13.091] Tweak future expression to call with '...' arguments ... 1533s [00:52:13.091] { 1533s [00:52:13.091] do.call(function(...) { 1533s [00:52:13.091] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1533s [00:52:13.091] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1533s [00:52:13.091] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1533s [00:52:13.091] on.exit(options(oopts), add = TRUE) 1533s [00:52:13.091] } 1533s [00:52:13.091] { 1533s [00:52:13.091] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1533s [00:52:13.091] ...future.X_jj <- ...future.elements_ii[[jj]] 1533s [00:52:13.091] ...future.FUN(...future.X_jj, ...) 1533s [00:52:13.091] }) 1533s [00:52:13.091] } 1533s [00:52:13.091] }, args = future.call.arguments) 1533s [00:52:13.091] } 1533s [00:52:13.092] Tweak future expression to call with '...' arguments ... DONE 1533s [00:52:13.092] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1533s [00:52:13.092] 1533s [00:52:13.092] getGlobalsAndPackages() ... DONE 1533s [00:52:13.093] run() for ‘Future’ ... 1533s [00:52:13.093] - state: ‘created’ 1533s [00:52:13.093] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1533s [00:52:13.097] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1533s [00:52:13.097] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1533s [00:52:13.098] - Field: ‘label’ 1533s [00:52:13.098] - Field: ‘local’ 1533s [00:52:13.098] - Field: ‘owner’ 1533s [00:52:13.099] - Field: ‘envir’ 1533s [00:52:13.099] - Field: ‘packages’ 1533s [00:52:13.099] - Field: ‘gc’ 1533s [00:52:13.099] - Field: ‘conditions’ 1533s [00:52:13.099] - Field: ‘expr’ 1533s [00:52:13.100] - Field: ‘uuid’ 1533s [00:52:13.100] - Field: ‘seed’ 1533s [00:52:13.100] - Field: ‘version’ 1533s [00:52:13.100] - Field: ‘result’ 1533s [00:52:13.100] - Field: ‘asynchronous’ 1533s [00:52:13.100] - Field: ‘calls’ 1533s [00:52:13.101] - Field: ‘globals’ 1533s [00:52:13.101] - Field: ‘stdout’ 1533s [00:52:13.103] - Field: ‘earlySignal’ 1533s [00:52:13.104] - Field: ‘lazy’ 1533s [00:52:13.104] - Field: ‘state’ 1533s [00:52:13.104] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1533s [00:52:13.104] - Launch lazy future ... 1533s [00:52:13.105] Packages needed by the future expression (n = 0): 1533s [00:52:13.105] Packages needed by future strategies (n = 0): 1533s [00:52:13.106] { 1533s [00:52:13.106] { 1533s [00:52:13.106] { 1533s [00:52:13.106] ...future.startTime <- base::Sys.time() 1533s [00:52:13.106] { 1533s [00:52:13.106] { 1533s [00:52:13.106] { 1533s [00:52:13.106] base::local({ 1533s [00:52:13.106] has_future <- base::requireNamespace("future", 1533s [00:52:13.106] quietly = TRUE) 1533s [00:52:13.106] if (has_future) { 1533s [00:52:13.106] ns <- base::getNamespace("future") 1533s [00:52:13.106] version <- ns[[".package"]][["version"]] 1533s [00:52:13.106] if (is.null(version)) 1533s [00:52:13.106] version <- utils::packageVersion("future") 1533s [00:52:13.106] } 1533s [00:52:13.106] else { 1533s [00:52:13.106] version <- NULL 1533s [00:52:13.106] } 1533s [00:52:13.106] if (!has_future || version < "1.8.0") { 1533s [00:52:13.106] info <- base::c(r_version = base::gsub("R version ", 1533s [00:52:13.106] "", base::R.version$version.string), 1533s [00:52:13.106] platform = base::sprintf("%s (%s-bit)", 1533s [00:52:13.106] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1533s [00:52:13.106] os = base::paste(base::Sys.info()[base::c("sysname", 1533s [00:52:13.106] "release", "version")], collapse = " "), 1533s [00:52:13.106] hostname = base::Sys.info()[["nodename"]]) 1533s [00:52:13.106] info <- base::sprintf("%s: %s", base::names(info), 1533s [00:52:13.106] info) 1533s [00:52:13.106] info <- base::paste(info, collapse = "; ") 1533s [00:52:13.106] if (!has_future) { 1533s [00:52:13.106] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1533s [00:52:13.106] info) 1533s [00:52:13.106] } 1533s [00:52:13.106] else { 1533s [00:52:13.106] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1533s [00:52:13.106] info, version) 1533s [00:52:13.106] } 1533s [00:52:13.106] base::stop(msg) 1533s [00:52:13.106] } 1533s [00:52:13.106] }) 1533s [00:52:13.106] } 1533s [00:52:13.106] options(future.plan = NULL) 1533s [00:52:13.106] Sys.unsetenv("R_FUTURE_PLAN") 1533s [00:52:13.106] future::plan("default", .cleanup = FALSE, .init = FALSE) 1533s [00:52:13.106] } 1533s [00:52:13.106] ...future.workdir <- getwd() 1533s [00:52:13.106] } 1533s [00:52:13.106] ...future.oldOptions <- base::as.list(base::.Options) 1533s [00:52:13.106] ...future.oldEnvVars <- base::Sys.getenv() 1533s [00:52:13.106] } 1533s [00:52:13.106] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1533s [00:52:13.106] future.globals.maxSize = NULL, future.globals.method = NULL, 1533s [00:52:13.106] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1533s [00:52:13.106] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1533s [00:52:13.106] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1533s [00:52:13.106] future.stdout.windows.reencode = NULL, width = 80L) 1533s [00:52:13.106] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1533s [00:52:13.106] base::names(...future.oldOptions)) 1533s [00:52:13.106] } 1533s [00:52:13.106] if (FALSE) { 1533s [00:52:13.106] } 1533s [00:52:13.106] else { 1533s [00:52:13.106] if (TRUE) { 1533s [00:52:13.106] ...future.stdout <- base::rawConnection(base::raw(0L), 1533s [00:52:13.106] open = "w") 1533s [00:52:13.106] } 1533s [00:52:13.106] else { 1533s [00:52:13.106] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1533s [00:52:13.106] windows = "NUL", "/dev/null"), open = "w") 1533s [00:52:13.106] } 1533s [00:52:13.106] base::sink(...future.stdout, type = "output", split = FALSE) 1533s [00:52:13.106] base::on.exit(if (!base::is.null(...future.stdout)) { 1533s [00:52:13.106] base::sink(type = "output", split = FALSE) 1533s [00:52:13.106] base::close(...future.stdout) 1533s [00:52:13.106] }, add = TRUE) 1533s [00:52:13.106] } 1533s [00:52:13.106] ...future.frame <- base::sys.nframe() 1533s [00:52:13.106] ...future.conditions <- base::list() 1533s [00:52:13.106] ...future.rng <- base::globalenv()$.Random.seed 1533s [00:52:13.106] if (FALSE) { 1533s [00:52:13.106] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1533s [00:52:13.106] "...future.value", "...future.globalenv.names", ".Random.seed") 1533s [00:52:13.106] } 1533s [00:52:13.106] ...future.result <- base::tryCatch({ 1533s [00:52:13.106] base::withCallingHandlers({ 1533s [00:52:13.106] ...future.value <- base::withVisible(base::local({ 1533s [00:52:13.106] do.call(function(...) { 1533s [00:52:13.106] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1533s [00:52:13.106] if (!identical(...future.globals.maxSize.org, 1533s [00:52:13.106] ...future.globals.maxSize)) { 1533s [00:52:13.106] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1533s [00:52:13.106] on.exit(options(oopts), add = TRUE) 1533s [00:52:13.106] } 1533s [00:52:13.106] { 1533s [00:52:13.106] lapply(seq_along(...future.elements_ii), 1533s [00:52:13.106] FUN = function(jj) { 1533s [00:52:13.106] ...future.X_jj <- ...future.elements_ii[[jj]] 1533s [00:52:13.106] ...future.FUN(...future.X_jj, ...) 1533s [00:52:13.106] }) 1533s [00:52:13.106] } 1533s [00:52:13.106] }, args = future.call.arguments) 1533s [00:52:13.106] })) 1533s [00:52:13.106] future::FutureResult(value = ...future.value$value, 1533s [00:52:13.106] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1533s [00:52:13.106] ...future.rng), globalenv = if (FALSE) 1533s [00:52:13.106] list(added = base::setdiff(base::names(base::.GlobalEnv), 1533s [00:52:13.106] ...future.globalenv.names)) 1533s [00:52:13.106] else NULL, started = ...future.startTime, version = "1.8") 1533s [00:52:13.106] }, condition = base::local({ 1533s [00:52:13.106] c <- base::c 1533s [00:52:13.106] inherits <- base::inherits 1533s [00:52:13.106] invokeRestart <- base::invokeRestart 1533s [00:52:13.106] length <- base::length 1533s [00:52:13.106] list <- base::list 1533s [00:52:13.106] seq.int <- base::seq.int 1533s [00:52:13.106] signalCondition <- base::signalCondition 1533s [00:52:13.106] sys.calls <- base::sys.calls 1533s [00:52:13.106] `[[` <- base::`[[` 1533s [00:52:13.106] `+` <- base::`+` 1533s [00:52:13.106] `<<-` <- base::`<<-` 1533s [00:52:13.106] sysCalls <- function(calls = sys.calls(), from = 1L) { 1533s [00:52:13.106] calls[seq.int(from = from + 12L, to = length(calls) - 1533s [00:52:13.106] 3L)] 1533s [00:52:13.106] } 1533s [00:52:13.106] function(cond) { 1533s [00:52:13.106] is_error <- inherits(cond, "error") 1533s [00:52:13.106] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1533s [00:52:13.106] NULL) 1533s [00:52:13.106] if (is_error) { 1533s [00:52:13.106] sessionInformation <- function() { 1533s [00:52:13.106] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1533s [00:52:13.106] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1533s [00:52:13.106] search = base::search(), system = base::Sys.info()) 1533s [00:52:13.106] } 1533s [00:52:13.106] ...future.conditions[[length(...future.conditions) + 1533s [00:52:13.106] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1533s [00:52:13.106] cond$call), session = sessionInformation(), 1533s [00:52:13.106] timestamp = base::Sys.time(), signaled = 0L) 1533s [00:52:13.106] signalCondition(cond) 1533s [00:52:13.106] } 1533s [00:52:13.106] else if (!ignore && TRUE && inherits(cond, c("condition", 1533s [00:52:13.106] "immediateCondition"))) { 1533s [00:52:13.106] signal <- TRUE && inherits(cond, "immediateCondition") 1533s [00:52:13.106] ...future.conditions[[length(...future.conditions) + 1533s [00:52:13.106] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1533s [00:52:13.106] if (TRUE && !signal) { 1533s [00:52:13.106] muffleCondition <- function (cond, pattern = "^muffle") 1533s [00:52:13.106] { 1533s [00:52:13.106] inherits <- base::inherits 1533s [00:52:13.106] invokeRestart <- base::invokeRestart 1533s [00:52:13.106] is.null <- base::is.null 1533s [00:52:13.106] muffled <- FALSE 1533s [00:52:13.106] if (inherits(cond, "message")) { 1533s [00:52:13.106] muffled <- grepl(pattern, "muffleMessage") 1533s [00:52:13.106] if (muffled) 1533s [00:52:13.106] invokeRestart("muffleMessage") 1533s [00:52:13.106] } 1533s [00:52:13.106] else if (inherits(cond, "warning")) { 1533s [00:52:13.106] muffled <- grepl(pattern, "muffleWarning") 1533s [00:52:13.106] if (muffled) 1533s [00:52:13.106] invokeRestart("muffleWarning") 1533s [00:52:13.106] } 1533s [00:52:13.106] else if (inherits(cond, "condition")) { 1533s [00:52:13.106] if (!is.null(pattern)) { 1533s [00:52:13.106] computeRestarts <- base::computeRestarts 1533s [00:52:13.106] grepl <- base::grepl 1533s [00:52:13.106] restarts <- computeRestarts(cond) 1533s [00:52:13.106] for (restart in restarts) { 1533s [00:52:13.106] name <- restart$name 1533s [00:52:13.106] if (is.null(name)) 1533s [00:52:13.106] next 1533s [00:52:13.106] if (!grepl(pattern, name)) 1533s [00:52:13.106] next 1533s [00:52:13.106] invokeRestart(restart) 1533s [00:52:13.106] muffled <- TRUE 1533s [00:52:13.106] break 1533s [00:52:13.106] } 1533s [00:52:13.106] } 1533s [00:52:13.106] } 1533s [00:52:13.106] invisible(muffled) 1533s [00:52:13.106] } 1533s [00:52:13.106] muffleCondition(cond, pattern = "^muffle") 1533s [00:52:13.106] } 1533s [00:52:13.106] } 1533s [00:52:13.106] else { 1533s [00:52:13.106] if (TRUE) { 1533s [00:52:13.106] muffleCondition <- function (cond, pattern = "^muffle") 1533s [00:52:13.106] { 1533s [00:52:13.106] inherits <- base::inherits 1533s [00:52:13.106] invokeRestart <- base::invokeRestart 1533s [00:52:13.106] is.null <- base::is.null 1533s [00:52:13.106] muffled <- FALSE 1533s [00:52:13.106] if (inherits(cond, "message")) { 1533s [00:52:13.106] muffled <- grepl(pattern, "muffleMessage") 1533s [00:52:13.106] if (muffled) 1533s [00:52:13.106] invokeRestart("muffleMessage") 1533s [00:52:13.106] } 1533s [00:52:13.106] else if (inherits(cond, "warning")) { 1533s [00:52:13.106] muffled <- grepl(pattern, "muffleWarning") 1533s [00:52:13.106] if (muffled) 1533s [00:52:13.106] invokeRestart("muffleWarning") 1533s [00:52:13.106] } 1533s [00:52:13.106] else if (inherits(cond, "condition")) { 1533s [00:52:13.106] if (!is.null(pattern)) { 1533s [00:52:13.106] computeRestarts <- base::computeRestarts 1533s [00:52:13.106] grepl <- base::grepl 1533s [00:52:13.106] restarts <- computeRestarts(cond) 1533s [00:52:13.106] for (restart in restarts) { 1533s [00:52:13.106] name <- restart$name 1533s [00:52:13.106] if (is.null(name)) 1533s [00:52:13.106] next 1533s [00:52:13.106] if (!grepl(pattern, name)) 1533s [00:52:13.106] next 1533s [00:52:13.106] invokeRestart(restart) 1533s [00:52:13.106] muffled <- TRUE 1533s [00:52:13.106] break 1533s [00:52:13.106] } 1533s [00:52:13.106] } 1533s [00:52:13.106] } 1533s [00:52:13.106] invisible(muffled) 1533s [00:52:13.106] } 1533s [00:52:13.106] muffleCondition(cond, pattern = "^muffle") 1533s [00:52:13.106] } 1533s [00:52:13.106] } 1533s [00:52:13.106] } 1533s [00:52:13.106] })) 1533s [00:52:13.106] }, error = function(ex) { 1533s [00:52:13.106] base::structure(base::list(value = NULL, visible = NULL, 1533s [00:52:13.106] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1533s [00:52:13.106] ...future.rng), started = ...future.startTime, 1533s [00:52:13.106] finished = Sys.time(), session_uuid = NA_character_, 1533s [00:52:13.106] version = "1.8"), class = "FutureResult") 1533s [00:52:13.106] }, finally = { 1533s [00:52:13.106] if (!identical(...future.workdir, getwd())) 1533s [00:52:13.106] setwd(...future.workdir) 1533s [00:52:13.106] { 1533s [00:52:13.106] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1533s [00:52:13.106] ...future.oldOptions$nwarnings <- NULL 1533s [00:52:13.106] } 1533s [00:52:13.106] base::options(...future.oldOptions) 1533s [00:52:13.106] if (.Platform$OS.type == "windows") { 1533s [00:52:13.106] old_names <- names(...future.oldEnvVars) 1533s [00:52:13.106] envs <- base::Sys.getenv() 1533s [00:52:13.106] names <- names(envs) 1533s [00:52:13.106] common <- intersect(names, old_names) 1533s [00:52:13.106] added <- setdiff(names, old_names) 1533s [00:52:13.106] removed <- setdiff(old_names, names) 1533s [00:52:13.106] changed <- common[...future.oldEnvVars[common] != 1533s [00:52:13.106] envs[common]] 1533s [00:52:13.106] NAMES <- toupper(changed) 1533s [00:52:13.106] args <- list() 1533s [00:52:13.106] for (kk in seq_along(NAMES)) { 1533s [00:52:13.106] name <- changed[[kk]] 1533s [00:52:13.106] NAME <- NAMES[[kk]] 1533s [00:52:13.106] if (name != NAME && is.element(NAME, old_names)) 1533s [00:52:13.106] next 1533s [00:52:13.106] args[[name]] <- ...future.oldEnvVars[[name]] 1533s [00:52:13.106] } 1533s [00:52:13.106] NAMES <- toupper(added) 1533s [00:52:13.106] for (kk in seq_along(NAMES)) { 1533s [00:52:13.106] name <- added[[kk]] 1533s [00:52:13.106] NAME <- NAMES[[kk]] 1533s [00:52:13.106] if (name != NAME && is.element(NAME, old_names)) 1533s [00:52:13.106] next 1533s [00:52:13.106] args[[name]] <- "" 1533s [00:52:13.106] } 1533s [00:52:13.106] NAMES <- toupper(removed) 1533s [00:52:13.106] for (kk in seq_along(NAMES)) { 1533s [00:52:13.106] name <- removed[[kk]] 1533s [00:52:13.106] NAME <- NAMES[[kk]] 1533s [00:52:13.106] if (name != NAME && is.element(NAME, old_names)) 1533s [00:52:13.106] next 1533s [00:52:13.106] args[[name]] <- ...future.oldEnvVars[[name]] 1533s [00:52:13.106] } 1533s [00:52:13.106] if (length(args) > 0) 1533s [00:52:13.106] base::do.call(base::Sys.setenv, args = args) 1533s [00:52:13.106] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1533s [00:52:13.106] } 1533s [00:52:13.106] else { 1533s [00:52:13.106] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1533s [00:52:13.106] } 1533s [00:52:13.106] { 1533s [00:52:13.106] if (base::length(...future.futureOptionsAdded) > 1533s [00:52:13.106] 0L) { 1533s [00:52:13.106] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1533s [00:52:13.106] base::names(opts) <- ...future.futureOptionsAdded 1533s [00:52:13.106] base::options(opts) 1533s [00:52:13.106] } 1533s [00:52:13.106] { 1533s [00:52:13.106] { 1533s [00:52:13.106] NULL 1533s [00:52:13.106] RNGkind("Mersenne-Twister") 1533s [00:52:13.106] base::rm(list = ".Random.seed", envir = base::globalenv(), 1533s [00:52:13.106] inherits = FALSE) 1533s [00:52:13.106] } 1533s [00:52:13.106] options(future.plan = NULL) 1533s [00:52:13.106] if (is.na(NA_character_)) 1533s [00:52:13.106] Sys.unsetenv("R_FUTURE_PLAN") 1533s [00:52:13.106] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1533s [00:52:13.106] future::plan(list(function (..., workers = availableCores(), 1533s [00:52:13.106] lazy = FALSE, rscript_libs = .libPaths(), 1533s [00:52:13.106] envir = parent.frame()) 1533s [00:52:13.106] { 1533s [00:52:13.106] if (is.function(workers)) 1533s [00:52:13.106] workers <- workers() 1533s [00:52:13.106] workers <- structure(as.integer(workers), 1533s [00:52:13.106] class = class(workers)) 1533s [00:52:13.106] stop_if_not(length(workers) == 1, is.finite(workers), 1533s [00:52:13.106] workers >= 1) 1533s [00:52:13.106] if (workers == 1L && !inherits(workers, "AsIs")) { 1533s [00:52:13.106] return(sequential(..., lazy = TRUE, envir = envir)) 1533s [00:52:13.106] } 1533s [00:52:13.106] future <- MultisessionFuture(..., workers = workers, 1533s [00:52:13.106] lazy = lazy, rscript_libs = rscript_libs, 1533s [00:52:13.106] envir = envir) 1533s [00:52:13.106] if (!future$lazy) 1533s [00:52:13.106] future <- run(future) 1533s [00:52:13.106] invisible(future) 1533s [00:52:13.106] }), .cleanup = FALSE, .init = FALSE) 1533s [00:52:13.106] } 1533s [00:52:13.106] } 1533s [00:52:13.106] } 1533s [00:52:13.106] }) 1533s [00:52:13.106] if (TRUE) { 1533s [00:52:13.106] base::sink(type = "output", split = FALSE) 1533s [00:52:13.106] if (TRUE) { 1533s [00:52:13.106] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1533s [00:52:13.106] } 1533s [00:52:13.106] else { 1533s [00:52:13.106] ...future.result["stdout"] <- base::list(NULL) 1533s [00:52:13.106] } 1533s [00:52:13.106] base::close(...future.stdout) 1533s [00:52:13.106] ...future.stdout <- NULL 1533s [00:52:13.106] } 1533s [00:52:13.106] ...future.result$conditions <- ...future.conditions 1533s [00:52:13.106] ...future.result$finished <- base::Sys.time() 1533s [00:52:13.106] ...future.result 1533s [00:52:13.106] } 1533s [00:52:13.109] assign_globals() ... 1533s [00:52:13.109] List of 5 1533s [00:52:13.109] $ ...future.FUN :function (object, ...) 1533s [00:52:13.109] $ future.call.arguments : list() 1533s [00:52:13.109] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1533s [00:52:13.109] $ ...future.elements_ii :List of 3 1533s [00:52:13.109] ..$ :'data.frame': 18 obs. of 3 variables: 1533s [00:52:13.109] .. ..$ breaks : num [1:18] 26 30 54 25 70 52 51 26 67 27 ... 1533s [00:52:13.109] .. ..$ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 2 ... 1533s [00:52:13.109] .. ..$ tension: Factor w/ 3 levels "L","M","H": 1 1 1 1 1 1 1 1 1 1 ... 1533s [00:52:13.109] ..$ :'data.frame': 18 obs. of 3 variables: 1533s [00:52:13.109] .. ..$ breaks : num [1:18] 18 21 29 17 12 18 35 30 36 42 ... 1533s [00:52:13.109] .. ..$ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 2 ... 1533s [00:52:13.109] .. ..$ tension: Factor w/ 3 levels "L","M","H": 2 2 2 2 2 2 2 2 2 2 ... 1533s [00:52:13.109] ..$ :'data.frame': 18 obs. of 3 variables: 1533s [00:52:13.109] .. ..$ breaks : num [1:18] 36 21 24 18 10 43 28 15 26 20 ... 1533s [00:52:13.109] .. ..$ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 2 ... 1533s [00:52:13.109] .. ..$ tension: Factor w/ 3 levels "L","M","H": 3 3 3 3 3 3 3 3 3 3 ... 1533s [00:52:13.109] $ ...future.seeds_ii : NULL 1533s [00:52:13.109] $ ...future.globals.maxSize: NULL 1533s [00:52:13.109] - attr(*, "where")=List of 5 1533s [00:52:13.109] ..$ ...future.FUN : 1533s [00:52:13.109] ..$ future.call.arguments : 1533s [00:52:13.109] ..$ ...future.elements_ii : 1533s [00:52:13.109] ..$ ...future.seeds_ii : 1533s [00:52:13.109] ..$ ...future.globals.maxSize: 1533s [00:52:13.109] - attr(*, "resolved")= logi FALSE 1533s [00:52:13.109] - attr(*, "total_size")= num 1240 1533s [00:52:13.109] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1533s [00:52:13.109] - attr(*, "already-done")= logi TRUE 1533s [00:52:13.121] - copied ‘...future.FUN’ to environment 1533s [00:52:13.121] - copied ‘future.call.arguments’ to environment 1533s [00:52:13.122] - copied ‘...future.elements_ii’ to environment 1533s [00:52:13.122] - copied ‘...future.seeds_ii’ to environment 1533s [00:52:13.122] - copied ‘...future.globals.maxSize’ to environment 1533s [00:52:13.122] assign_globals() ... done 1533s [00:52:13.122] plan(): Setting new future strategy stack: 1533s [00:52:13.122] List of future strategies: 1533s [00:52:13.122] 1. sequential: 1533s [00:52:13.122] - args: function (..., envir = parent.frame()) 1533s [00:52:13.122] - tweaked: FALSE 1533s [00:52:13.122] - call: NULL 1533s [00:52:13.123] plan(): nbrOfWorkers() = 1 1533s [00:52:13.126] plan(): Setting new future strategy stack: 1533s [00:52:13.126] List of future strategies: 1533s [00:52:13.126] 1. multisession: 1533s [00:52:13.126] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1533s [00:52:13.126] - tweaked: FALSE 1533s [00:52:13.126] - call: plan(strategy) 1533s [00:52:13.130] plan(): nbrOfWorkers() = 1 1533s [00:52:13.130] SequentialFuture started (and completed) 1533s [00:52:13.130] - Launch lazy future ... done 1533s [00:52:13.131] run() for ‘SequentialFuture’ ... done 1533s [00:52:13.131] Created future: 1533s [00:52:13.131] SequentialFuture: 1533s [00:52:13.131] Label: ‘future_by-1’ 1533s [00:52:13.131] Expression: 1533s [00:52:13.131] { 1533s [00:52:13.131] do.call(function(...) { 1533s [00:52:13.131] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1533s [00:52:13.131] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1533s [00:52:13.131] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1533s [00:52:13.131] on.exit(options(oopts), add = TRUE) 1533s [00:52:13.131] } 1533s [00:52:13.131] { 1533s [00:52:13.131] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1533s [00:52:13.131] ...future.X_jj <- ...future.elements_ii[[jj]] 1533s [00:52:13.131] ...future.FUN(...future.X_jj, ...) 1533s [00:52:13.131] }) 1533s [00:52:13.131] } 1533s [00:52:13.131] }, args = future.call.arguments) 1533s [00:52:13.131] } 1533s [00:52:13.131] Lazy evaluation: FALSE 1533s [00:52:13.131] Asynchronous evaluation: FALSE 1533s [00:52:13.131] Local evaluation: TRUE 1533s [00:52:13.131] Environment: 0x2aa04b484b8 1533s [00:52:13.131] Capture standard output: TRUE 1533s [00:52:13.131] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1533s [00:52:13.131] Globals: 5 objects totaling 6.02 KiB (function ‘...future.FUN’ of 1.21 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 4.80 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1533s [00:52:13.131] Packages: 1533s [00:52:13.131] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1533s [00:52:13.131] Resolved: TRUE 1533s [00:52:13.131] Value: 5.37 KiB of class ‘list’ 1533s [00:52:13.131] Early signaling: FALSE 1533s [00:52:13.131] Owner process: 64a671dd-8756-a081-baa7-973da233f197 1533s [00:52:13.131] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1533s [00:52:13.134] Chunk #1 of 1 ... DONE 1533s [00:52:13.135] Launching 1 futures (chunks) ... DONE 1533s [00:52:13.135] Resolving 1 futures (chunks) ... 1533s [00:52:13.135] resolve() on list ... 1533s [00:52:13.135] recursive: 0 1533s [00:52:13.135] length: 1 1533s [00:52:13.136] 1533s [00:52:13.136] resolved() for ‘SequentialFuture’ ... 1533s [00:52:13.136] - state: ‘finished’ 1533s [00:52:13.136] - run: TRUE 1533s [00:52:13.137] - result: ‘FutureResult’ 1533s [00:52:13.137] resolved() for ‘SequentialFuture’ ... done 1533s [00:52:13.137] Future #1 1533s [00:52:13.137] signalConditionsASAP(SequentialFuture, pos=1) ... 1533s [00:52:13.137] - nx: 1 1533s [00:52:13.137] - relay: TRUE 1533s [00:52:13.140] - stdout: TRUE 1533s [00:52:13.140] - signal: TRUE 1533s [00:52:13.141] - resignal: FALSE 1533s [00:52:13.141] - force: TRUE 1533s [00:52:13.141] - relayed: [n=1] FALSE 1533s [00:52:13.142] - queued futures: [n=1] FALSE 1533s [00:52:13.142] - until=1 1533s [00:52:13.142] - relaying element #1 1533s [00:52:13.143] - relayed: [n=1] TRUE 1533s [00:52:13.143] - queued futures: [n=1] TRUE 1533s [00:52:13.143] signalConditionsASAP(SequentialFuture, pos=1) ... done 1533s [00:52:13.143] length: 0 (resolved future 1) 1533s [00:52:13.144] Relaying remaining futures 1533s [00:52:13.144] signalConditionsASAP(NULL, pos=0) ... 1533s [00:52:13.144] - nx: 1 1533s [00:52:13.144] - relay: TRUE 1533s [00:52:13.145] - stdout: TRUE 1533s [00:52:13.145] - signal: TRUE 1533s [00:52:13.145] - resignal: FALSE 1533s [00:52:13.145] - force: TRUE 1533s [00:52:13.145] - relayed: [n=1] TRUE 1533s [00:52:13.146] - queued futures: [n=1] TRUE 1533s - flush all 1533s [00:52:13.146] - relayed: [n=1] TRUE 1533s [00:52:13.147] - queued futures: [n=1] TRUE 1533s [00:52:13.147] signalConditionsASAP(NULL, pos=0) ... done 1533s [00:52:13.147] resolve() on list ... DONE 1533s [00:52:13.147] - Number of value chunks collected: 1 1533s [00:52:13.147] Resolving 1 futures (chunks) ... DONE 1533s [00:52:13.147] Reducing values from 1 chunks ... 1533s [00:52:13.148] - Number of values collected after concatenation: 3 1533s [00:52:13.148] - Number of values expected: 3 1533s [00:52:13.148] Reducing values from 1 chunks ... DONE 1533s [00:52:13.148] future_lapply() ... DONE 1533s [00:52:13.148] future_by_internal() ... DONE 1533s [00:52:13.149] future_by_internal() ... 1533s Warning: Specifying the function 'FUN' for future_by() as a character string is deprecated in future.apply (>= 1.10.0) [2022-11-04], because base::by() does not support it. Instead, specify it as a function, e.g. FUN = sqrt and FUN = `[[`. It is deprecated. 1533s [00:52:13.150] future_lapply() ... 1533s [00:52:13.155] Number of chunks: 1 1533s [00:52:13.155] getGlobalsAndPackagesXApply() ... 1533s [00:52:13.156] - future.globals: TRUE 1533s [00:52:13.156] getGlobalsAndPackages() ... 1533s [00:52:13.156] Searching for globals... 1533s [00:52:13.158] - globals found: [2] ‘FUN’, ‘UseMethod’ 1533s [00:52:13.159] Searching for globals ... DONE 1533s [00:52:13.159] Resolving globals: FALSE 1533s [00:52:13.160] The total size of the 1 globals is 1.21 KiB (1240 bytes) 1533s [00:52:13.160] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.21 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.21 KiB of class ‘function’) 1533s [00:52:13.160] - globals: [1] ‘FUN’ 1533s [00:52:13.161] 1533s [00:52:13.161] getGlobalsAndPackages() ... DONE 1533s [00:52:13.161] - globals found/used: [n=1] ‘FUN’ 1533s [00:52:13.161] - needed namespaces: [n=0] 1533s [00:52:13.161] Finding globals ... DONE 1533s [00:52:13.161] - use_args: TRUE 1533s [00:52:13.161] - Getting '...' globals ... 1533s [00:52:13.162] resolve() on list ... 1533s [00:52:13.162] recursive: 0 1533s [00:52:13.162] length: 1 1533s [00:52:13.162] elements: ‘...’ 1533s [00:52:13.162] length: 0 (resolved future 1) 1533s [00:52:13.163] resolve() on list ... DONE 1533s [00:52:13.163] - '...' content: [n=0] 1533s [00:52:13.163] List of 1 1533s [00:52:13.163] $ ...: list() 1533s [00:52:13.163] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1533s [00:52:13.163] - attr(*, "where")=List of 1 1533s [00:52:13.163] ..$ ...: 1533s [00:52:13.163] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1533s [00:52:13.163] - attr(*, "resolved")= logi TRUE 1533s [00:52:13.163] - attr(*, "total_size")= num NA 1533s [00:52:13.166] - Getting '...' globals ... DONE 1533s [00:52:13.166] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1533s [00:52:13.166] List of 2 1533s [00:52:13.166] $ ...future.FUN:function (object, ...) 1533s [00:52:13.166] $ ... : list() 1533s [00:52:13.166] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1533s [00:52:13.166] - attr(*, "where")=List of 2 1533s [00:52:13.166] ..$ ...future.FUN: 1533s [00:52:13.166] ..$ ... : 1533s [00:52:13.166] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1533s [00:52:13.166] - attr(*, "resolved")= logi FALSE 1533s [00:52:13.166] - attr(*, "total_size")= num 1240 1533s [00:52:13.170] Packages to be attached in all futures: [n=0] 1533s [00:52:13.170] getGlobalsAndPackagesXApply() ... DONE 1533s [00:52:13.171] Number of futures (= number of chunks): 1 1533s [00:52:13.171] Launching 1 futures (chunks) ... 1533s [00:52:13.172] Chunk #1 of 1 ... 1533s [00:52:13.172] - Finding globals in 'X' for chunk #1 ... 1533s [00:52:13.172] getGlobalsAndPackages() ... 1533s [00:52:13.173] Searching for globals... 1533s [00:52:13.173] 1533s [00:52:13.173] Searching for globals ... DONE 1533s [00:52:13.174] - globals: [0] 1533s [00:52:13.174] getGlobalsAndPackages() ... DONE 1533s [00:52:13.174] + additional globals found: [n=0] 1533s [00:52:13.174] + additional namespaces needed: [n=0] 1533s [00:52:13.174] - Finding globals in 'X' for chunk #1 ... DONE 1533s [00:52:13.174] - seeds: 1533s [00:52:13.175] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1533s [00:52:13.175] getGlobalsAndPackages() ... 1533s [00:52:13.178] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1533s [00:52:13.179] Resolving globals: FALSE 1533s [00:52:13.179] Tweak future expression to call with '...' arguments ... 1533s [00:52:13.179] { 1533s [00:52:13.179] do.call(function(...) { 1533s [00:52:13.179] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1533s [00:52:13.179] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1533s [00:52:13.179] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1533s [00:52:13.179] on.exit(options(oopts), add = TRUE) 1533s [00:52:13.179] } 1533s [00:52:13.179] { 1533s [00:52:13.179] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1533s [00:52:13.179] ...future.X_jj <- ...future.elements_ii[[jj]] 1533s [00:52:13.179] ...future.FUN(...future.X_jj, ...) 1533s [00:52:13.179] }) 1533s [00:52:13.179] } 1533s [00:52:13.179] }, args = future.call.arguments) 1533s [00:52:13.179] } 1533s [00:52:13.180] Tweak future expression to call with '...' arguments ... DONE 1533s [00:52:13.181] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1533s [00:52:13.181] 1533s [00:52:13.181] getGlobalsAndPackages() ... DONE 1533s [00:52:13.182] run() for ‘Future’ ... 1533s [00:52:13.182] - state: ‘created’ 1533s [00:52:13.182] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1533s [00:52:13.187] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1533s [00:52:13.187] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1533s [00:52:13.187] - Field: ‘label’ 1533s [00:52:13.187] - Field: ‘local’ 1533s [00:52:13.188] - Field: ‘owner’ 1533s [00:52:13.188] - Field: ‘envir’ 1533s [00:52:13.188] - Field: ‘packages’ 1533s [00:52:13.188] - Field: ‘gc’ 1533s [00:52:13.189] - Field: ‘conditions’ 1533s [00:52:13.189] - Field: ‘expr’ 1533s [00:52:13.189] - Field: ‘uuid’ 1533s [00:52:13.189] - Field: ‘seed’ 1533s [00:52:13.189] - Field: ‘version’ 1533s [00:52:13.189] - Field: ‘result’ 1533s [00:52:13.190] - Field: ‘asynchronous’ 1533s [00:52:13.190] - Field: ‘calls’ 1533s [00:52:13.191] - Field: ‘globals’ 1533s [00:52:13.191] - Field: ‘stdout’ 1533s [00:52:13.191] - Field: ‘earlySignal’ 1533s [00:52:13.192] - Field: ‘lazy’ 1533s [00:52:13.192] - Field: ‘state’ 1533s [00:52:13.192] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1533s [00:52:13.192] - Launch lazy future ... 1533s [00:52:13.193] Packages needed by the future expression (n = 0): 1533s [00:52:13.193] Packages needed by future strategies (n = 0): 1533s [00:52:13.194] { 1533s [00:52:13.194] { 1533s [00:52:13.194] { 1533s [00:52:13.194] ...future.startTime <- base::Sys.time() 1533s [00:52:13.194] { 1533s [00:52:13.194] { 1533s [00:52:13.194] { 1533s [00:52:13.194] base::local({ 1533s [00:52:13.194] has_future <- base::requireNamespace("future", 1533s [00:52:13.194] quietly = TRUE) 1533s [00:52:13.194] if (has_future) { 1533s [00:52:13.194] ns <- base::getNamespace("future") 1533s [00:52:13.194] version <- ns[[".package"]][["version"]] 1533s [00:52:13.194] if (is.null(version)) 1533s [00:52:13.194] version <- utils::packageVersion("future") 1533s [00:52:13.194] } 1533s [00:52:13.194] else { 1533s [00:52:13.194] version <- NULL 1533s [00:52:13.194] } 1533s [00:52:13.194] if (!has_future || version < "1.8.0") { 1533s [00:52:13.194] info <- base::c(r_version = base::gsub("R version ", 1533s [00:52:13.194] "", base::R.version$version.string), 1533s [00:52:13.194] platform = base::sprintf("%s (%s-bit)", 1533s [00:52:13.194] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1533s [00:52:13.194] os = base::paste(base::Sys.info()[base::c("sysname", 1533s [00:52:13.194] "release", "version")], collapse = " "), 1533s [00:52:13.194] hostname = base::Sys.info()[["nodename"]]) 1533s [00:52:13.194] info <- base::sprintf("%s: %s", base::names(info), 1533s [00:52:13.194] info) 1533s [00:52:13.194] info <- base::paste(info, collapse = "; ") 1533s [00:52:13.194] if (!has_future) { 1533s [00:52:13.194] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1533s [00:52:13.194] info) 1533s [00:52:13.194] } 1533s [00:52:13.194] else { 1533s [00:52:13.194] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1533s [00:52:13.194] info, version) 1533s [00:52:13.194] } 1533s [00:52:13.194] base::stop(msg) 1533s [00:52:13.194] } 1533s [00:52:13.194] }) 1533s [00:52:13.194] } 1533s [00:52:13.194] options(future.plan = NULL) 1533s [00:52:13.194] Sys.unsetenv("R_FUTURE_PLAN") 1533s [00:52:13.194] future::plan("default", .cleanup = FALSE, .init = FALSE) 1533s [00:52:13.194] } 1533s [00:52:13.194] ...future.workdir <- getwd() 1533s [00:52:13.194] } 1533s [00:52:13.194] ...future.oldOptions <- base::as.list(base::.Options) 1533s [00:52:13.194] ...future.oldEnvVars <- base::Sys.getenv() 1533s [00:52:13.194] } 1533s [00:52:13.194] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1533s [00:52:13.194] future.globals.maxSize = NULL, future.globals.method = NULL, 1533s [00:52:13.194] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1533s [00:52:13.194] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1533s [00:52:13.194] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1533s [00:52:13.194] future.stdout.windows.reencode = NULL, width = 80L) 1533s [00:52:13.194] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1533s [00:52:13.194] base::names(...future.oldOptions)) 1533s [00:52:13.194] } 1533s [00:52:13.194] if (FALSE) { 1533s [00:52:13.194] } 1533s [00:52:13.194] else { 1533s [00:52:13.194] if (TRUE) { 1533s [00:52:13.194] ...future.stdout <- base::rawConnection(base::raw(0L), 1533s [00:52:13.194] open = "w") 1533s [00:52:13.194] } 1533s [00:52:13.194] else { 1533s [00:52:13.194] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1533s [00:52:13.194] windows = "NUL", "/dev/null"), open = "w") 1533s [00:52:13.194] } 1533s [00:52:13.194] base::sink(...future.stdout, type = "output", split = FALSE) 1533s [00:52:13.194] base::on.exit(if (!base::is.null(...future.stdout)) { 1533s [00:52:13.194] base::sink(type = "output", split = FALSE) 1533s [00:52:13.194] base::close(...future.stdout) 1533s [00:52:13.194] }, add = TRUE) 1533s [00:52:13.194] } 1533s [00:52:13.194] ...future.frame <- base::sys.nframe() 1533s [00:52:13.194] ...future.conditions <- base::list() 1533s [00:52:13.194] ...future.rng <- base::globalenv()$.Random.seed 1533s [00:52:13.194] if (FALSE) { 1533s [00:52:13.194] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1533s [00:52:13.194] "...future.value", "...future.globalenv.names", ".Random.seed") 1533s [00:52:13.194] } 1533s [00:52:13.194] ...future.result <- base::tryCatch({ 1533s [00:52:13.194] base::withCallingHandlers({ 1533s [00:52:13.194] ...future.value <- base::withVisible(base::local({ 1533s [00:52:13.194] do.call(function(...) { 1533s [00:52:13.194] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1533s [00:52:13.194] if (!identical(...future.globals.maxSize.org, 1533s [00:52:13.194] ...future.globals.maxSize)) { 1533s [00:52:13.194] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1533s [00:52:13.194] on.exit(options(oopts), add = TRUE) 1533s [00:52:13.194] } 1533s [00:52:13.194] { 1533s [00:52:13.194] lapply(seq_along(...future.elements_ii), 1533s [00:52:13.194] FUN = function(jj) { 1533s [00:52:13.194] ...future.X_jj <- ...future.elements_ii[[jj]] 1533s [00:52:13.194] ...future.FUN(...future.X_jj, ...) 1533s [00:52:13.194] }) 1533s [00:52:13.194] } 1533s [00:52:13.194] }, args = future.call.arguments) 1533s [00:52:13.194] })) 1533s [00:52:13.194] future::FutureResult(value = ...future.value$value, 1533s [00:52:13.194] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1533s [00:52:13.194] ...future.rng), globalenv = if (FALSE) 1533s [00:52:13.194] list(added = base::setdiff(base::names(base::.GlobalEnv), 1533s [00:52:13.194] ...future.globalenv.names)) 1533s [00:52:13.194] else NULL, started = ...future.startTime, version = "1.8") 1533s [00:52:13.194] }, condition = base::local({ 1533s [00:52:13.194] c <- base::c 1533s [00:52:13.194] inherits <- base::inherits 1533s [00:52:13.194] invokeRestart <- base::invokeRestart 1533s [00:52:13.194] length <- base::length 1533s [00:52:13.194] list <- base::list 1533s [00:52:13.194] seq.int <- base::seq.int 1533s [00:52:13.194] signalCondition <- base::signalCondition 1533s [00:52:13.194] sys.calls <- base::sys.calls 1533s [00:52:13.194] `[[` <- base::`[[` 1533s [00:52:13.194] `+` <- base::`+` 1533s [00:52:13.194] `<<-` <- base::`<<-` 1533s [00:52:13.194] sysCalls <- function(calls = sys.calls(), from = 1L) { 1533s [00:52:13.194] calls[seq.int(from = from + 12L, to = length(calls) - 1533s [00:52:13.194] 3L)] 1533s [00:52:13.194] } 1533s [00:52:13.194] function(cond) { 1533s [00:52:13.194] is_error <- inherits(cond, "error") 1533s [00:52:13.194] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1533s [00:52:13.194] NULL) 1533s [00:52:13.194] if (is_error) { 1533s [00:52:13.194] sessionInformation <- function() { 1533s [00:52:13.194] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1533s [00:52:13.194] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1533s [00:52:13.194] search = base::search(), system = base::Sys.info()) 1533s [00:52:13.194] } 1533s [00:52:13.194] ...future.conditions[[length(...future.conditions) + 1533s [00:52:13.194] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1533s [00:52:13.194] cond$call), session = sessionInformation(), 1533s [00:52:13.194] timestamp = base::Sys.time(), signaled = 0L) 1533s [00:52:13.194] signalCondition(cond) 1533s [00:52:13.194] } 1533s [00:52:13.194] else if (!ignore && TRUE && inherits(cond, c("condition", 1533s [00:52:13.194] "immediateCondition"))) { 1533s [00:52:13.194] signal <- TRUE && inherits(cond, "immediateCondition") 1533s [00:52:13.194] ...future.conditions[[length(...future.conditions) + 1533s [00:52:13.194] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1533s [00:52:13.194] if (TRUE && !signal) { 1533s [00:52:13.194] muffleCondition <- function (cond, pattern = "^muffle") 1533s [00:52:13.194] { 1533s [00:52:13.194] inherits <- base::inherits 1533s [00:52:13.194] invokeRestart <- base::invokeRestart 1533s [00:52:13.194] is.null <- base::is.null 1533s [00:52:13.194] muffled <- FALSE 1533s [00:52:13.194] if (inherits(cond, "message")) { 1533s [00:52:13.194] muffled <- grepl(pattern, "muffleMessage") 1533s [00:52:13.194] if (muffled) 1533s [00:52:13.194] invokeRestart("muffleMessage") 1533s [00:52:13.194] } 1533s [00:52:13.194] else if (inherits(cond, "warning")) { 1533s [00:52:13.194] muffled <- grepl(pattern, "muffleWarning") 1533s [00:52:13.194] if (muffled) 1533s [00:52:13.194] invokeRestart("muffleWarning") 1533s [00:52:13.194] } 1533s [00:52:13.194] else if (inherits(cond, "condition")) { 1533s [00:52:13.194] if (!is.null(pattern)) { 1533s [00:52:13.194] computeRestarts <- base::computeRestarts 1533s [00:52:13.194] grepl <- base::grepl 1533s [00:52:13.194] restarts <- computeRestarts(cond) 1533s [00:52:13.194] for (restart in restarts) { 1533s [00:52:13.194] name <- restart$name 1533s [00:52:13.194] if (is.null(name)) 1533s [00:52:13.194] next 1533s [00:52:13.194] if (!grepl(pattern, name)) 1533s [00:52:13.194] next 1533s [00:52:13.194] invokeRestart(restart) 1533s [00:52:13.194] muffled <- TRUE 1533s [00:52:13.194] break 1533s [00:52:13.194] } 1533s [00:52:13.194] } 1533s [00:52:13.194] } 1533s [00:52:13.194] invisible(muffled) 1533s [00:52:13.194] } 1533s [00:52:13.194] muffleCondition(cond, pattern = "^muffle") 1533s [00:52:13.194] } 1533s [00:52:13.194] } 1533s [00:52:13.194] else { 1533s [00:52:13.194] if (TRUE) { 1533s [00:52:13.194] muffleCondition <- function (cond, pattern = "^muffle") 1533s [00:52:13.194] { 1533s [00:52:13.194] inherits <- base::inherits 1533s [00:52:13.194] invokeRestart <- base::invokeRestart 1533s [00:52:13.194] is.null <- base::is.null 1533s [00:52:13.194] muffled <- FALSE 1533s [00:52:13.194] if (inherits(cond, "message")) { 1533s [00:52:13.194] muffled <- grepl(pattern, "muffleMessage") 1533s [00:52:13.194] if (muffled) 1533s [00:52:13.194] invokeRestart("muffleMessage") 1533s [00:52:13.194] } 1533s [00:52:13.194] else if (inherits(cond, "warning")) { 1533s [00:52:13.194] muffled <- grepl(pattern, "muffleWarning") 1533s [00:52:13.194] if (muffled) 1533s [00:52:13.194] invokeRestart("muffleWarning") 1533s [00:52:13.194] } 1533s [00:52:13.194] else if (inherits(cond, "condition")) { 1533s [00:52:13.194] if (!is.null(pattern)) { 1533s [00:52:13.194] computeRestarts <- base::computeRestarts 1533s [00:52:13.194] grepl <- base::grepl 1533s [00:52:13.194] restarts <- computeRestarts(cond) 1533s [00:52:13.194] for (restart in restarts) { 1533s [00:52:13.194] name <- restart$name 1533s [00:52:13.194] if (is.null(name)) 1533s [00:52:13.194] next 1533s [00:52:13.194] if (!grepl(pattern, name)) 1533s [00:52:13.194] next 1533s [00:52:13.194] invokeRestart(restart) 1533s [00:52:13.194] muffled <- TRUE 1533s [00:52:13.194] break 1533s [00:52:13.194] } 1533s [00:52:13.194] } 1533s [00:52:13.194] } 1533s [00:52:13.194] invisible(muffled) 1533s [00:52:13.194] } 1533s [00:52:13.194] muffleCondition(cond, pattern = "^muffle") 1533s [00:52:13.194] } 1533s [00:52:13.194] } 1533s [00:52:13.194] } 1533s [00:52:13.194] })) 1533s [00:52:13.194] }, error = function(ex) { 1533s [00:52:13.194] base::structure(base::list(value = NULL, visible = NULL, 1533s [00:52:13.194] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1533s [00:52:13.194] ...future.rng), started = ...future.startTime, 1533s [00:52:13.194] finished = Sys.time(), session_uuid = NA_character_, 1533s [00:52:13.194] version = "1.8"), class = "FutureResult") 1533s [00:52:13.194] }, finally = { 1533s [00:52:13.194] if (!identical(...future.workdir, getwd())) 1533s [00:52:13.194] setwd(...future.workdir) 1533s [00:52:13.194] { 1533s [00:52:13.194] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1533s [00:52:13.194] ...future.oldOptions$nwarnings <- NULL 1533s [00:52:13.194] } 1533s [00:52:13.194] base::options(...future.oldOptions) 1533s [00:52:13.194] if (.Platform$OS.type == "windows") { 1533s [00:52:13.194] old_names <- names(...future.oldEnvVars) 1533s [00:52:13.194] envs <- base::Sys.getenv() 1533s [00:52:13.194] names <- names(envs) 1533s [00:52:13.194] common <- intersect(names, old_names) 1533s [00:52:13.194] added <- setdiff(names, old_names) 1533s [00:52:13.194] removed <- setdiff(old_names, names) 1533s [00:52:13.194] changed <- common[...future.oldEnvVars[common] != 1533s [00:52:13.194] envs[common]] 1533s [00:52:13.194] NAMES <- toupper(changed) 1533s [00:52:13.194] args <- list() 1533s [00:52:13.194] for (kk in seq_along(NAMES)) { 1533s [00:52:13.194] name <- changed[[kk]] 1533s [00:52:13.194] NAME <- NAMES[[kk]] 1533s [00:52:13.194] if (name != NAME && is.element(NAME, old_names)) 1533s [00:52:13.194] next 1533s [00:52:13.194] args[[name]] <- ...future.oldEnvVars[[name]] 1533s [00:52:13.194] } 1533s [00:52:13.194] NAMES <- toupper(added) 1533s [00:52:13.194] for (kk in seq_along(NAMES)) { 1533s [00:52:13.194] name <- added[[kk]] 1533s [00:52:13.194] NAME <- NAMES[[kk]] 1533s [00:52:13.194] if (name != NAME && is.element(NAME, old_names)) 1533s [00:52:13.194] next 1533s [00:52:13.194] args[[name]] <- "" 1533s [00:52:13.194] } 1533s [00:52:13.194] NAMES <- toupper(removed) 1533s [00:52:13.194] for (kk in seq_along(NAMES)) { 1533s [00:52:13.194] name <- removed[[kk]] 1533s [00:52:13.194] NAME <- NAMES[[kk]] 1533s [00:52:13.194] if (name != NAME && is.element(NAME, old_names)) 1533s [00:52:13.194] next 1533s [00:52:13.194] args[[name]] <- ...future.oldEnvVars[[name]] 1533s [00:52:13.194] } 1533s [00:52:13.194] if (length(args) > 0) 1533s [00:52:13.194] base::do.call(base::Sys.setenv, args = args) 1533s [00:52:13.194] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1533s [00:52:13.194] } 1533s [00:52:13.194] else { 1533s [00:52:13.194] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1533s [00:52:13.194] } 1533s [00:52:13.194] { 1533s [00:52:13.194] if (base::length(...future.futureOptionsAdded) > 1533s [00:52:13.194] 0L) { 1533s [00:52:13.194] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1533s [00:52:13.194] base::names(opts) <- ...future.futureOptionsAdded 1533s [00:52:13.194] base::options(opts) 1533s [00:52:13.194] } 1533s [00:52:13.194] { 1533s [00:52:13.194] { 1533s [00:52:13.194] NULL 1533s [00:52:13.194] RNGkind("Mersenne-Twister") 1533s [00:52:13.194] base::rm(list = ".Random.seed", envir = base::globalenv(), 1533s [00:52:13.194] inherits = FALSE) 1533s [00:52:13.194] } 1533s [00:52:13.194] options(future.plan = NULL) 1533s [00:52:13.194] if (is.na(NA_character_)) 1533s [00:52:13.194] Sys.unsetenv("R_FUTURE_PLAN") 1533s [00:52:13.194] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1533s [00:52:13.194] future::plan(list(function (..., workers = availableCores(), 1533s [00:52:13.194] lazy = FALSE, rscript_libs = .libPaths(), 1533s [00:52:13.194] envir = parent.frame()) 1533s [00:52:13.194] { 1533s [00:52:13.194] if (is.function(workers)) 1533s [00:52:13.194] workers <- workers() 1533s [00:52:13.194] workers <- structure(as.integer(workers), 1533s [00:52:13.194] class = class(workers)) 1533s [00:52:13.194] stop_if_not(length(workers) == 1, is.finite(workers), 1533s [00:52:13.194] workers >= 1) 1533s [00:52:13.194] if (workers == 1L && !inherits(workers, "AsIs")) { 1533s [00:52:13.194] return(sequential(..., lazy = TRUE, envir = envir)) 1533s [00:52:13.194] } 1533s [00:52:13.194] future <- MultisessionFuture(..., workers = workers, 1533s [00:52:13.194] lazy = lazy, rscript_libs = rscript_libs, 1533s [00:52:13.194] envir = envir) 1533s [00:52:13.194] if (!future$lazy) 1533s [00:52:13.194] future <- run(future) 1533s [00:52:13.194] invisible(future) 1533s [00:52:13.194] }), .cleanup = FALSE, .init = FALSE) 1533s [00:52:13.194] } 1533s [00:52:13.194] } 1533s [00:52:13.194] } 1533s [00:52:13.194] }) 1533s [00:52:13.194] if (TRUE) { 1533s [00:52:13.194] base::sink(type = "output", split = FALSE) 1533s [00:52:13.194] if (TRUE) { 1533s [00:52:13.194] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1533s [00:52:13.194] } 1533s [00:52:13.194] else { 1533s [00:52:13.194] ...future.result["stdout"] <- base::list(NULL) 1533s [00:52:13.194] } 1533s [00:52:13.194] base::close(...future.stdout) 1533s [00:52:13.194] ...future.stdout <- NULL 1533s [00:52:13.194] } 1533s [00:52:13.194] ...future.result$conditions <- ...future.conditions 1533s [00:52:13.194] ...future.result$finished <- base::Sys.time() 1533s [00:52:13.194] ...future.result 1533s [00:52:13.194] } 1533s [00:52:13.198] assign_globals() ... 1533s [00:52:13.198] List of 5 1533s [00:52:13.198] $ ...future.FUN :function (object, ...) 1533s [00:52:13.198] $ future.call.arguments : list() 1533s [00:52:13.198] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1533s [00:52:13.198] $ ...future.elements_ii :List of 3 1533s [00:52:13.198] ..$ :'data.frame': 18 obs. of 3 variables: 1533s [00:52:13.198] .. ..$ breaks : num [1:18] 26 30 54 25 70 52 51 26 67 27 ... 1533s [00:52:13.198] .. ..$ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 2 ... 1533s [00:52:13.198] .. ..$ tension: Factor w/ 3 levels "L","M","H": 1 1 1 1 1 1 1 1 1 1 ... 1533s [00:52:13.198] ..$ :'data.frame': 18 obs. of 3 variables: 1533s [00:52:13.198] .. ..$ breaks : num [1:18] 18 21 29 17 12 18 35 30 36 42 ... 1533s [00:52:13.198] .. ..$ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 2 ... 1533s [00:52:13.198] .. ..$ tension: Factor w/ 3 levels "L","M","H": 2 2 2 2 2 2 2 2 2 2 ... 1533s [00:52:13.198] ..$ :'data.frame': 18 obs. of 3 variables: 1533s [00:52:13.198] .. ..$ breaks : num [1:18] 36 21 24 18 10 43 28 15 26 20 ... 1533s [00:52:13.198] .. ..$ wool : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 2 ... 1533s [00:52:13.198] .. ..$ tension: Factor w/ 3 levels "L","M","H": 3 3 3 3 3 3 3 3 3 3 ... 1533s [00:52:13.198] $ ...future.seeds_ii : NULL 1533s [00:52:13.198] $ ...future.globals.maxSize: NULL 1533s [00:52:13.198] - attr(*, "where")=List of 5 1533s [00:52:13.198] ..$ ...future.FUN : 1533s [00:52:13.198] ..$ future.call.arguments : 1533s [00:52:13.198] ..$ ...future.elements_ii : 1533s [00:52:13.198] ..$ ...future.seeds_ii : 1533s [00:52:13.198] ..$ ...future.globals.maxSize: 1533s [00:52:13.198] - attr(*, "resolved")= logi FALSE 1533s [00:52:13.198] - attr(*, "total_size")= num 1240 1533s [00:52:13.198] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1533s [00:52:13.198] - attr(*, "already-done")= logi TRUE 1533s [00:52:13.212] - copied ‘...future.FUN’ to environment 1533s [00:52:13.212] - copied ‘future.call.arguments’ to environment 1533s [00:52:13.212] - copied ‘...future.elements_ii’ to environment 1533s [00:52:13.212] - copied ‘...future.seeds_ii’ to environment 1533s [00:52:13.212] - copied ‘...future.globals.maxSize’ to environment 1533s [00:52:13.213] assign_globals() ... done 1533s [00:52:13.213] plan(): Setting new future strategy stack: 1533s [00:52:13.213] List of future strategies: 1533s [00:52:13.213] 1. sequential: 1533s [00:52:13.213] - args: function (..., envir = parent.frame()) 1533s [00:52:13.213] - tweaked: FALSE 1533s [00:52:13.213] - call: NULL 1533s [00:52:13.214] plan(): nbrOfWorkers() = 1 1533s [00:52:13.217] plan(): Setting new future strategy stack: 1533s [00:52:13.217] List of future strategies: 1533s [00:52:13.217] 1. multisession: 1533s [00:52:13.217] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1533s [00:52:13.217] - tweaked: FALSE 1533s [00:52:13.217] - call: plan(strategy) 1533s [00:52:13.221] plan(): nbrOfWorkers() = 1 1533s [00:52:13.222] SequentialFuture started (and completed) 1533s [00:52:13.222] - Launch lazy future ... done 1533s [00:52:13.222] run() for ‘SequentialFuture’ ... done 1533s [00:52:13.223] Created future: 1533s [00:52:13.224] SequentialFuture: 1533s [00:52:13.224] Label: ‘future_by-1’ 1533s [00:52:13.224] Expression: 1533s [00:52:13.224] { 1533s [00:52:13.224] do.call(function(...) { 1533s [00:52:13.224] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1533s [00:52:13.224] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1533s [00:52:13.224] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1533s [00:52:13.224] on.exit(options(oopts), add = TRUE) 1533s [00:52:13.224] } 1533s [00:52:13.224] { 1533s [00:52:13.224] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1533s [00:52:13.224] ...future.X_jj <- ...future.elements_ii[[jj]] 1533s [00:52:13.224] ...future.FUN(...future.X_jj, ...) 1533s [00:52:13.224] }) 1533s [00:52:13.224] } 1533s [00:52:13.224] }, args = future.call.arguments) 1533s [00:52:13.224] } 1533s [00:52:13.224] Lazy evaluation: FALSE 1533s [00:52:13.224] Asynchronous evaluation: FALSE 1533s [00:52:13.224] Local evaluation: TRUE 1533s [00:52:13.224] Environment: 0x2aa034501f0 1533s [00:52:13.224] Capture standard output: TRUE 1533s [00:52:13.224] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1533s [00:52:13.224] Globals: 5 objects totaling 6.02 KiB (function ‘...future.FUN’ of 1.21 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 4.80 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1533s [00:52:13.224] Packages: 1533s [00:52:13.224] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1533s [00:52:13.224] Resolved: TRUE 1533s [00:52:13.224] Value: 5.37 KiB of class ‘list’ 1533s [00:52:13.224] Early signaling: FALSE 1533s [00:52:13.224] Owner process: 64a671dd-8756-a081-baa7-973da233f197 1533s [00:52:13.224] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1533s [00:52:13.227] Chunk #1 of 1 ... DONE 1533s [00:52:13.227] Launching 1 futures (chunks) ... DONE 1533s [00:52:13.227] Resolving 1 futures (chunks) ... 1533s [00:52:13.228] resolve() on list ... 1533s [00:52:13.228] recursive: 0 1533s [00:52:13.228] length: 1 1533s [00:52:13.228] 1533s [00:52:13.228] resolved() for ‘SequentialFuture’ ... 1533s [00:52:13.228] - state: ‘finished’ 1533s [00:52:13.228] - run: TRUE 1533s [00:52:13.229] - result: ‘FutureResult’ 1533s [00:52:13.229] resolved() for ‘SequentialFuture’ ... done 1533s [00:52:13.229] Future #1 1533s [00:52:13.229] signalConditionsASAP(SequentialFuture, pos=1) ... 1533s [00:52:13.229] - nx: 1 1533s [00:52:13.229] - relay: TRUE 1533s [00:52:13.229] - stdout: TRUE 1533s [00:52:13.229] - signal: TRUE 1533s [00:52:13.230] - resignal: FALSE 1533s [00:52:13.230] - force: TRUE 1533s [00:52:13.230] - relayed: [n=1] FALSE 1533s [00:52:13.230] - queued futures: [n=1] FALSE 1533s [00:52:13.231] - until=1 1533s [00:52:13.231] - relaying element #1 1533s [00:52:13.232] - relayed: [n=1] TRUE 1533s [00:52:13.232] - queued futures: [n=1] TRUE 1533s [00:52:13.232] signalConditionsASAP(SequentialFuture, pos=1) ... done 1533s [00:52:13.233] length: 0 (resolved future 1) 1533s [00:52:13.233] Relaying remaining futures 1533s [00:52:13.233] signalConditionsASAP(NULL, pos=0) ... 1533s [00:52:13.233] - nx: 1 1533s [00:52:13.233] - relay: TRUE 1533s [00:52:13.233] - stdout: TRUE 1533s [00:52:13.234] - signal: TRUE 1533s [00:52:13.234] - resignal: FALSE 1533s [00:52:13.234] - force: TRUE 1533s [00:52:13.234] - relayed: [n=1] TRUE 1533s [00:52:13.234] - queued futures: [n=1] TRUE 1533s - flush all 1533s [00:52:13.235] - relayed: [n=1] TRUE 1533s [00:52:13.235] - queued futures: [n=1] TRUE 1533s [00:52:13.235] signalConditionsASAP(NULL, pos=0) ... done 1533s [00:52:13.235] resolve() on list ... DONE 1533s [00:52:13.235] - Number of value chunks collected: 1 1533s [00:52:13.236] Resolving 1 futures (chunks) ... DONE 1533s [00:52:13.236] Reducing values from 1 chunks ... 1533s [00:52:13.236] - Number of values collected after concatenation: 3 1533s [00:52:13.236] - Number of values expected: 3 1533s [00:52:13.236] Reducing values from 1 chunks ... DONE 1533s [00:52:13.236] future_lapply() ... DONE 1533s [00:52:13.236] future_by_internal() ... DONE 1533s [00:52:13.238] future_by_internal() ... 1533s Testing with 1 cores ... DONE 1533s > 1533s > message("*** future_by() ... DONE") 1533s > 1533s > source("incl/end.R") 1533s *** future_by() ... DONE 1533s [00:52:13.240] plan(): Setting new future strategy stack: 1533s [00:52:13.240] List of future strategies: 1533s [00:52:13.240] 1. FutureStrategy: 1533s [00:52:13.240] - args: function (..., envir = parent.frame()) 1533s [00:52:13.240] - tweaked: FALSE 1533s [00:52:13.240] - call: future::plan(oplan) 1533s [00:52:13.241] plan(): nbrOfWorkers() = 1 1533s > 1533s BEGIN TEST future_eapply.R 1533s 1533s R version 4.3.3 (2024-02-29) -- "Angel Food Cake" 1533s Copyright (C) 2024 The R Foundation for Statistical Computing 1533s Platform: s390x-ibm-linux-gnu (64-bit) 1533s 1533s R is free software and comes with ABSOLUTELY NO WARRANTY. 1533s You are welcome to redistribute it under certain conditions. 1533s Type 'license()' or 'licence()' for distribution details. 1533s 1533s R is a collaborative project with many contributors. 1533s Type 'contributors()' for more information and 1533s 'citation()' on how to cite R or R packages in publications. 1533s 1533s Type 'demo()' for some demos, 'help()' for on-line help, or 1533s 'help.start()' for an HTML browser interface to help. 1533s Type 'q()' to quit R. 1533s 1533s > source("incl/start.R") 1533s Loading required package: future 1533s [00:52:13.619] plan(): Setting new future strategy stack: 1533s [00:52:13.620] List of future strategies: 1533s [00:52:13.620] 1. sequential: 1533s [00:52:13.620] - args: function (..., envir = parent.frame()) 1533s [00:52:13.620] - tweaked: FALSE 1533s [00:52:13.620] - call: future::plan("sequential") 1533s [00:52:13.649] plan(): nbrOfWorkers() = 1 1533s > 1533s > message("*** future_eapply() ...") 1533s > 1533s > message("- From example(eapply) ...") 1533s *** future_eapply() ... 1533s - From example(eapply) ... 1533s > 1533s > for (strategy in supportedStrategies()) { 1533s + message(sprintf("*** strategy = %s ...", sQuote(strategy))) 1533s + plan(strategy) 1533s + 1533s + env <- new.env(hash = FALSE) 1533s + env$a <- 1:10 1533s + env$beta <- exp(-3:3) 1533s + env$logic <- c(TRUE, FALSE, FALSE, TRUE) 1533s + 1533s + y0 <- unlist(eapply(env, mean, USE.NAMES = FALSE)) 1533s + y1 <- unlist(future_eapply(env, mean, USE.NAMES = FALSE)) 1533s + stopifnot(all.equal(y1, y0)) 1533s + 1533s + y0 <- eapply(env, quantile, probs = 1:3/4) 1533s + y1 <- future_eapply(env, quantile, probs = 1:3/4) 1533s + stopifnot(all.equal(y1, y0)) 1533s + 1533s + y0 <- eapply(env, quantile) 1533s + y1 <- future_eapply(env, quantile) 1533s + stopifnot(all.equal(y1, y0)) 1533s + y2 <- future_eapply(env, "quantile") 1533s + stopifnot(all.equal(y2, y0)) 1533s + 1533s + plan(sequential) 1533s + message(sprintf("*** strategy = %s ... done", sQuote(strategy))) 1533s + } ## for (strategy in ...) 1533s *** strategy = ‘sequential’ ... 1533s [00:52:13.693] plan(): Setting new future strategy stack: 1533s [00:52:13.693] List of future strategies: 1533s [00:52:13.693] 1. sequential: 1533s [00:52:13.693] - args: function (..., envir = parent.frame()) 1533s [00:52:13.693] - tweaked: FALSE 1533s [00:52:13.693] - call: plan(strategy) 1533s [00:52:13.713] plan(): nbrOfWorkers() = 1 1533s [00:52:13.714] future_lapply() ... 1533s [00:52:13.720] Number of chunks: 1 1533s [00:52:13.721] getGlobalsAndPackagesXApply() ... 1533s [00:52:13.722] - future.globals: TRUE 1533s [00:52:13.723] getGlobalsAndPackages() ... 1533s [00:52:13.724] Searching for globals... 1533s [00:52:13.727] - globals found: [2] ‘FUN’, ‘UseMethod’ 1533s [00:52:13.727] Searching for globals ... DONE 1533s [00:52:13.728] Resolving globals: FALSE 1533s [00:52:13.729] The total size of the 1 globals is 1.21 KiB (1240 bytes) 1533s [00:52:13.730] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.21 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.21 KiB of class ‘function’) 1533s [00:52:13.731] - globals: [1] ‘FUN’ 1533s [00:52:13.732] 1533s [00:52:13.732] getGlobalsAndPackages() ... DONE 1533s [00:52:13.733] - globals found/used: [n=1] ‘FUN’ 1533s [00:52:13.733] - needed namespaces: [n=0] 1533s [00:52:13.733] Finding globals ... DONE 1533s [00:52:13.733] - use_args: TRUE 1533s [00:52:13.734] - Getting '...' globals ... 1533s [00:52:13.736] resolve() on list ... 1533s [00:52:13.736] recursive: 0 1533s [00:52:13.737] length: 1 1533s [00:52:13.737] elements: ‘...’ 1533s [00:52:13.737] length: 0 (resolved future 1) 1533s [00:52:13.738] resolve() on list ... DONE 1533s [00:52:13.738] - '...' content: [n=0] 1533s [00:52:13.738] List of 1 1533s [00:52:13.738] $ ...: list() 1533s [00:52:13.738] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1533s [00:52:13.738] - attr(*, "where")=List of 1 1533s [00:52:13.738] ..$ ...: 1533s [00:52:13.738] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1533s [00:52:13.738] - attr(*, "resolved")= logi TRUE 1533s [00:52:13.738] - attr(*, "total_size")= num NA 1533s [00:52:13.748] - Getting '...' globals ... DONE 1533s [00:52:13.748] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1533s [00:52:13.748] List of 2 1533s [00:52:13.748] $ ...future.FUN:function (x, ...) 1533s [00:52:13.748] $ ... : list() 1533s [00:52:13.748] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1533s [00:52:13.748] - attr(*, "where")=List of 2 1533s [00:52:13.748] ..$ ...future.FUN: 1533s [00:52:13.748] ..$ ... : 1533s [00:52:13.748] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1533s [00:52:13.748] - attr(*, "resolved")= logi FALSE 1533s [00:52:13.748] - attr(*, "total_size")= num 1240 1533s [00:52:13.752] Packages to be attached in all futures: [n=0] 1533s [00:52:13.752] getGlobalsAndPackagesXApply() ... DONE 1533s [00:52:13.753] Number of futures (= number of chunks): 1 1533s [00:52:13.753] Launching 1 futures (chunks) ... 1533s [00:52:13.754] Chunk #1 of 1 ... 1533s [00:52:13.754] - Finding globals in 'X' for chunk #1 ... 1533s [00:52:13.754] getGlobalsAndPackages() ... 1533s [00:52:13.754] Searching for globals... 1533s [00:52:13.755] 1533s [00:52:13.755] Searching for globals ... DONE 1533s [00:52:13.755] - globals: [0] 1533s [00:52:13.755] getGlobalsAndPackages() ... DONE 1533s [00:52:13.756] + additional globals found: [n=0] 1533s [00:52:13.756] + additional namespaces needed: [n=0] 1533s [00:52:13.756] - Finding globals in 'X' for chunk #1 ... DONE 1533s [00:52:13.756] - seeds: 1533s [00:52:13.756] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1533s [00:52:13.756] getGlobalsAndPackages() ... 1533s [00:52:13.756] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1533s [00:52:13.757] Resolving globals: FALSE 1533s [00:52:13.757] Tweak future expression to call with '...' arguments ... 1533s [00:52:13.757] { 1533s [00:52:13.757] do.call(function(...) { 1533s [00:52:13.757] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1533s [00:52:13.757] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1533s [00:52:13.757] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1533s [00:52:13.757] on.exit(options(oopts), add = TRUE) 1533s [00:52:13.757] } 1533s [00:52:13.757] { 1533s [00:52:13.757] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1533s [00:52:13.757] ...future.X_jj <- ...future.elements_ii[[jj]] 1533s [00:52:13.757] ...future.FUN(...future.X_jj, ...) 1533s [00:52:13.757] }) 1533s [00:52:13.757] } 1533s [00:52:13.757] }, args = future.call.arguments) 1533s [00:52:13.757] } 1533s [00:52:13.757] Tweak future expression to call with '...' arguments ... DONE 1533s [00:52:13.758] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1533s [00:52:13.758] 1533s [00:52:13.758] getGlobalsAndPackages() ... DONE 1533s [00:52:13.759] run() for ‘Future’ ... 1533s [00:52:13.760] - state: ‘created’ 1533s [00:52:13.760] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1533s [00:52:13.761] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1533s [00:52:13.762] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1533s [00:52:13.762] - Field: ‘label’ 1533s [00:52:13.763] - Field: ‘local’ 1533s [00:52:13.763] - Field: ‘owner’ 1533s [00:52:13.763] - Field: ‘envir’ 1533s [00:52:13.764] - Field: ‘packages’ 1533s [00:52:13.764] - Field: ‘gc’ 1533s [00:52:13.764] - Field: ‘conditions’ 1533s [00:52:13.764] - Field: ‘expr’ 1533s [00:52:13.764] - Field: ‘uuid’ 1533s [00:52:13.765] - Field: ‘seed’ 1533s [00:52:13.765] - Field: ‘version’ 1533s [00:52:13.765] - Field: ‘result’ 1533s [00:52:13.765] - Field: ‘asynchronous’ 1533s [00:52:13.766] - Field: ‘calls’ 1533s [00:52:13.766] - Field: ‘globals’ 1533s [00:52:13.766] - Field: ‘stdout’ 1533s [00:52:13.766] - Field: ‘earlySignal’ 1533s [00:52:13.766] - Field: ‘lazy’ 1533s [00:52:13.766] - Field: ‘state’ 1533s [00:52:13.766] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1533s [00:52:13.766] - Launch lazy future ... 1533s [00:52:13.768] Packages needed by the future expression (n = 0): 1533s [00:52:13.768] Packages needed by future strategies (n = 0): 1533s [00:52:13.770] { 1533s [00:52:13.770] { 1533s [00:52:13.770] { 1533s [00:52:13.770] ...future.startTime <- base::Sys.time() 1533s [00:52:13.770] { 1533s [00:52:13.770] { 1533s [00:52:13.770] { 1533s [00:52:13.770] base::local({ 1533s [00:52:13.770] has_future <- base::requireNamespace("future", 1533s [00:52:13.770] quietly = TRUE) 1533s [00:52:13.770] if (has_future) { 1533s [00:52:13.770] ns <- base::getNamespace("future") 1533s [00:52:13.770] version <- ns[[".package"]][["version"]] 1533s [00:52:13.770] if (is.null(version)) 1533s [00:52:13.770] version <- utils::packageVersion("future") 1533s [00:52:13.770] } 1533s [00:52:13.770] else { 1533s [00:52:13.770] version <- NULL 1533s [00:52:13.770] } 1533s [00:52:13.770] if (!has_future || version < "1.8.0") { 1533s [00:52:13.770] info <- base::c(r_version = base::gsub("R version ", 1533s [00:52:13.770] "", base::R.version$version.string), 1533s [00:52:13.770] platform = base::sprintf("%s (%s-bit)", 1533s [00:52:13.770] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1533s [00:52:13.770] os = base::paste(base::Sys.info()[base::c("sysname", 1533s [00:52:13.770] "release", "version")], collapse = " "), 1533s [00:52:13.770] hostname = base::Sys.info()[["nodename"]]) 1533s [00:52:13.770] info <- base::sprintf("%s: %s", base::names(info), 1533s [00:52:13.770] info) 1533s [00:52:13.770] info <- base::paste(info, collapse = "; ") 1533s [00:52:13.770] if (!has_future) { 1533s [00:52:13.770] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1533s [00:52:13.770] info) 1533s [00:52:13.770] } 1533s [00:52:13.770] else { 1533s [00:52:13.770] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1533s [00:52:13.770] info, version) 1533s [00:52:13.770] } 1533s [00:52:13.770] base::stop(msg) 1533s [00:52:13.770] } 1533s [00:52:13.770] }) 1533s [00:52:13.770] } 1533s [00:52:13.770] options(future.plan = NULL) 1533s [00:52:13.770] Sys.unsetenv("R_FUTURE_PLAN") 1533s [00:52:13.770] future::plan("default", .cleanup = FALSE, .init = FALSE) 1533s [00:52:13.770] } 1533s [00:52:13.770] ...future.workdir <- getwd() 1533s [00:52:13.770] } 1533s [00:52:13.770] ...future.oldOptions <- base::as.list(base::.Options) 1533s [00:52:13.770] ...future.oldEnvVars <- base::Sys.getenv() 1533s [00:52:13.770] } 1533s [00:52:13.770] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1533s [00:52:13.770] future.globals.maxSize = NULL, future.globals.method = NULL, 1533s [00:52:13.770] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1533s [00:52:13.770] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1533s [00:52:13.770] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1533s [00:52:13.770] future.stdout.windows.reencode = NULL, width = 80L) 1533s [00:52:13.770] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1533s [00:52:13.770] base::names(...future.oldOptions)) 1533s [00:52:13.770] } 1533s [00:52:13.770] if (FALSE) { 1533s [00:52:13.770] } 1533s [00:52:13.770] else { 1533s [00:52:13.770] if (TRUE) { 1533s [00:52:13.770] ...future.stdout <- base::rawConnection(base::raw(0L), 1533s [00:52:13.770] open = "w") 1533s [00:52:13.770] } 1533s [00:52:13.770] else { 1533s [00:52:13.770] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1533s [00:52:13.770] windows = "NUL", "/dev/null"), open = "w") 1533s [00:52:13.770] } 1533s [00:52:13.770] base::sink(...future.stdout, type = "output", split = FALSE) 1533s [00:52:13.770] base::on.exit(if (!base::is.null(...future.stdout)) { 1533s [00:52:13.770] base::sink(type = "output", split = FALSE) 1533s [00:52:13.770] base::close(...future.stdout) 1533s [00:52:13.770] }, add = TRUE) 1533s [00:52:13.770] } 1533s [00:52:13.770] ...future.frame <- base::sys.nframe() 1533s [00:52:13.770] ...future.conditions <- base::list() 1533s [00:52:13.770] ...future.rng <- base::globalenv()$.Random.seed 1533s [00:52:13.770] if (FALSE) { 1533s [00:52:13.770] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1533s [00:52:13.770] "...future.value", "...future.globalenv.names", ".Random.seed") 1533s [00:52:13.770] } 1533s [00:52:13.770] ...future.result <- base::tryCatch({ 1533s [00:52:13.770] base::withCallingHandlers({ 1533s [00:52:13.770] ...future.value <- base::withVisible(base::local({ 1533s [00:52:13.770] do.call(function(...) { 1533s [00:52:13.770] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1533s [00:52:13.770] if (!identical(...future.globals.maxSize.org, 1533s [00:52:13.770] ...future.globals.maxSize)) { 1533s [00:52:13.770] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1533s [00:52:13.770] on.exit(options(oopts), add = TRUE) 1533s [00:52:13.770] } 1533s [00:52:13.770] { 1533s [00:52:13.770] lapply(seq_along(...future.elements_ii), 1533s [00:52:13.770] FUN = function(jj) { 1533s [00:52:13.770] ...future.X_jj <- ...future.elements_ii[[jj]] 1533s [00:52:13.770] ...future.FUN(...future.X_jj, ...) 1533s [00:52:13.770] }) 1533s [00:52:13.770] } 1533s [00:52:13.770] }, args = future.call.arguments) 1533s [00:52:13.770] })) 1533s [00:52:13.770] future::FutureResult(value = ...future.value$value, 1533s [00:52:13.770] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1533s [00:52:13.770] ...future.rng), globalenv = if (FALSE) 1533s [00:52:13.770] list(added = base::setdiff(base::names(base::.GlobalEnv), 1533s [00:52:13.770] ...future.globalenv.names)) 1533s [00:52:13.770] else NULL, started = ...future.startTime, version = "1.8") 1533s [00:52:13.770] }, condition = base::local({ 1533s [00:52:13.770] c <- base::c 1533s [00:52:13.770] inherits <- base::inherits 1533s [00:52:13.770] invokeRestart <- base::invokeRestart 1533s [00:52:13.770] length <- base::length 1533s [00:52:13.770] list <- base::list 1533s [00:52:13.770] seq.int <- base::seq.int 1533s [00:52:13.770] signalCondition <- base::signalCondition 1533s [00:52:13.770] sys.calls <- base::sys.calls 1533s [00:52:13.770] `[[` <- base::`[[` 1533s [00:52:13.770] `+` <- base::`+` 1533s [00:52:13.770] `<<-` <- base::`<<-` 1533s [00:52:13.770] sysCalls <- function(calls = sys.calls(), from = 1L) { 1533s [00:52:13.770] calls[seq.int(from = from + 12L, to = length(calls) - 1533s [00:52:13.770] 3L)] 1533s [00:52:13.770] } 1533s [00:52:13.770] function(cond) { 1533s [00:52:13.770] is_error <- inherits(cond, "error") 1533s [00:52:13.770] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1533s [00:52:13.770] NULL) 1533s [00:52:13.770] if (is_error) { 1533s [00:52:13.770] sessionInformation <- function() { 1533s [00:52:13.770] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1533s [00:52:13.770] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1533s [00:52:13.770] search = base::search(), system = base::Sys.info()) 1533s [00:52:13.770] } 1533s [00:52:13.770] ...future.conditions[[length(...future.conditions) + 1533s [00:52:13.770] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1533s [00:52:13.770] cond$call), session = sessionInformation(), 1533s [00:52:13.770] timestamp = base::Sys.time(), signaled = 0L) 1533s [00:52:13.770] signalCondition(cond) 1533s [00:52:13.770] } 1533s [00:52:13.770] else if (!ignore && TRUE && inherits(cond, c("condition", 1533s [00:52:13.770] "immediateCondition"))) { 1533s [00:52:13.770] signal <- TRUE && inherits(cond, "immediateCondition") 1533s [00:52:13.770] ...future.conditions[[length(...future.conditions) + 1533s [00:52:13.770] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1533s [00:52:13.770] if (TRUE && !signal) { 1533s [00:52:13.770] muffleCondition <- function (cond, pattern = "^muffle") 1533s [00:52:13.770] { 1533s [00:52:13.770] inherits <- base::inherits 1533s [00:52:13.770] invokeRestart <- base::invokeRestart 1533s [00:52:13.770] is.null <- base::is.null 1533s [00:52:13.770] muffled <- FALSE 1533s [00:52:13.770] if (inherits(cond, "message")) { 1533s [00:52:13.770] muffled <- grepl(pattern, "muffleMessage") 1533s [00:52:13.770] if (muffled) 1533s [00:52:13.770] invokeRestart("muffleMessage") 1533s [00:52:13.770] } 1533s [00:52:13.770] else if (inherits(cond, "warning")) { 1533s [00:52:13.770] muffled <- grepl(pattern, "muffleWarning") 1533s [00:52:13.770] if (muffled) 1533s [00:52:13.770] invokeRestart("muffleWarning") 1533s [00:52:13.770] } 1533s [00:52:13.770] else if (inherits(cond, "condition")) { 1533s [00:52:13.770] if (!is.null(pattern)) { 1533s [00:52:13.770] computeRestarts <- base::computeRestarts 1533s [00:52:13.770] grepl <- base::grepl 1533s [00:52:13.770] restarts <- computeRestarts(cond) 1533s [00:52:13.770] for (restart in restarts) { 1533s [00:52:13.770] name <- restart$name 1533s [00:52:13.770] if (is.null(name)) 1533s [00:52:13.770] next 1533s [00:52:13.770] if (!grepl(pattern, name)) 1533s [00:52:13.770] next 1533s [00:52:13.770] invokeRestart(restart) 1533s [00:52:13.770] muffled <- TRUE 1533s [00:52:13.770] break 1533s [00:52:13.770] } 1533s [00:52:13.770] } 1533s [00:52:13.770] } 1533s [00:52:13.770] invisible(muffled) 1533s [00:52:13.770] } 1533s [00:52:13.770] muffleCondition(cond, pattern = "^muffle") 1533s [00:52:13.770] } 1533s [00:52:13.770] } 1533s [00:52:13.770] else { 1533s [00:52:13.770] if (TRUE) { 1533s [00:52:13.770] muffleCondition <- function (cond, pattern = "^muffle") 1533s [00:52:13.770] { 1533s [00:52:13.770] inherits <- base::inherits 1533s [00:52:13.770] invokeRestart <- base::invokeRestart 1533s [00:52:13.770] is.null <- base::is.null 1533s [00:52:13.770] muffled <- FALSE 1533s [00:52:13.770] if (inherits(cond, "message")) { 1533s [00:52:13.770] muffled <- grepl(pattern, "muffleMessage") 1533s [00:52:13.770] if (muffled) 1533s [00:52:13.770] invokeRestart("muffleMessage") 1533s [00:52:13.770] } 1533s [00:52:13.770] else if (inherits(cond, "warning")) { 1533s [00:52:13.770] muffled <- grepl(pattern, "muffleWarning") 1533s [00:52:13.770] if (muffled) 1533s [00:52:13.770] invokeRestart("muffleWarning") 1533s [00:52:13.770] } 1533s [00:52:13.770] else if (inherits(cond, "condition")) { 1533s [00:52:13.770] if (!is.null(pattern)) { 1533s [00:52:13.770] computeRestarts <- base::computeRestarts 1533s [00:52:13.770] grepl <- base::grepl 1533s [00:52:13.770] restarts <- computeRestarts(cond) 1533s [00:52:13.770] for (restart in restarts) { 1533s [00:52:13.770] name <- restart$name 1533s [00:52:13.770] if (is.null(name)) 1533s [00:52:13.770] next 1533s [00:52:13.770] if (!grepl(pattern, name)) 1533s [00:52:13.770] next 1533s [00:52:13.770] invokeRestart(restart) 1533s [00:52:13.770] muffled <- TRUE 1533s [00:52:13.770] break 1533s [00:52:13.770] } 1533s [00:52:13.770] } 1533s [00:52:13.770] } 1533s [00:52:13.770] invisible(muffled) 1533s [00:52:13.770] } 1533s [00:52:13.770] muffleCondition(cond, pattern = "^muffle") 1533s [00:52:13.770] } 1533s [00:52:13.770] } 1533s [00:52:13.770] } 1533s [00:52:13.770] })) 1533s [00:52:13.770] }, error = function(ex) { 1533s [00:52:13.770] base::structure(base::list(value = NULL, visible = NULL, 1533s [00:52:13.770] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1533s [00:52:13.770] ...future.rng), started = ...future.startTime, 1533s [00:52:13.770] finished = Sys.time(), session_uuid = NA_character_, 1533s [00:52:13.770] version = "1.8"), class = "FutureResult") 1533s [00:52:13.770] }, finally = { 1533s [00:52:13.770] if (!identical(...future.workdir, getwd())) 1533s [00:52:13.770] setwd(...future.workdir) 1533s [00:52:13.770] { 1533s [00:52:13.770] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1533s [00:52:13.770] ...future.oldOptions$nwarnings <- NULL 1533s [00:52:13.770] } 1533s [00:52:13.770] base::options(...future.oldOptions) 1533s [00:52:13.770] if (.Platform$OS.type == "windows") { 1533s [00:52:13.770] old_names <- names(...future.oldEnvVars) 1533s [00:52:13.770] envs <- base::Sys.getenv() 1533s [00:52:13.770] names <- names(envs) 1533s [00:52:13.770] common <- intersect(names, old_names) 1533s [00:52:13.770] added <- setdiff(names, old_names) 1533s [00:52:13.770] removed <- setdiff(old_names, names) 1533s [00:52:13.770] changed <- common[...future.oldEnvVars[common] != 1533s [00:52:13.770] envs[common]] 1533s [00:52:13.770] NAMES <- toupper(changed) 1533s [00:52:13.770] args <- list() 1533s [00:52:13.770] for (kk in seq_along(NAMES)) { 1533s [00:52:13.770] name <- changed[[kk]] 1533s [00:52:13.770] NAME <- NAMES[[kk]] 1533s [00:52:13.770] if (name != NAME && is.element(NAME, old_names)) 1533s [00:52:13.770] next 1533s [00:52:13.770] args[[name]] <- ...future.oldEnvVars[[name]] 1533s [00:52:13.770] } 1533s [00:52:13.770] NAMES <- toupper(added) 1533s [00:52:13.770] for (kk in seq_along(NAMES)) { 1533s [00:52:13.770] name <- added[[kk]] 1533s [00:52:13.770] NAME <- NAMES[[kk]] 1533s [00:52:13.770] if (name != NAME && is.element(NAME, old_names)) 1533s [00:52:13.770] next 1533s [00:52:13.770] args[[name]] <- "" 1533s [00:52:13.770] } 1533s [00:52:13.770] NAMES <- toupper(removed) 1533s [00:52:13.770] for (kk in seq_along(NAMES)) { 1533s [00:52:13.770] name <- removed[[kk]] 1533s [00:52:13.770] NAME <- NAMES[[kk]] 1533s [00:52:13.770] if (name != NAME && is.element(NAME, old_names)) 1533s [00:52:13.770] next 1533s [00:52:13.770] args[[name]] <- ...future.oldEnvVars[[name]] 1533s [00:52:13.770] } 1533s [00:52:13.770] if (length(args) > 0) 1533s [00:52:13.770] base::do.call(base::Sys.setenv, args = args) 1533s [00:52:13.770] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1533s [00:52:13.770] } 1533s [00:52:13.770] else { 1533s [00:52:13.770] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1533s [00:52:13.770] } 1533s [00:52:13.770] { 1533s [00:52:13.770] if (base::length(...future.futureOptionsAdded) > 1533s [00:52:13.770] 0L) { 1533s [00:52:13.770] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1533s [00:52:13.770] base::names(opts) <- ...future.futureOptionsAdded 1533s [00:52:13.770] base::options(opts) 1533s [00:52:13.770] } 1533s [00:52:13.770] { 1533s [00:52:13.770] { 1533s [00:52:13.770] NULL 1533s [00:52:13.770] RNGkind("Mersenne-Twister") 1533s [00:52:13.770] base::rm(list = ".Random.seed", envir = base::globalenv(), 1533s [00:52:13.770] inherits = FALSE) 1533s [00:52:13.770] } 1533s [00:52:13.770] options(future.plan = NULL) 1533s [00:52:13.770] if (is.na(NA_character_)) 1533s [00:52:13.770] Sys.unsetenv("R_FUTURE_PLAN") 1533s [00:52:13.770] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1533s [00:52:13.770] future::plan(list(function (..., envir = parent.frame()) 1533s [00:52:13.770] { 1533s [00:52:13.770] future <- SequentialFuture(..., envir = envir) 1533s [00:52:13.770] if (!future$lazy) 1533s [00:52:13.770] future <- run(future) 1533s [00:52:13.770] invisible(future) 1533s [00:52:13.770] }), .cleanup = FALSE, .init = FALSE) 1533s [00:52:13.770] } 1533s [00:52:13.770] } 1533s [00:52:13.770] } 1533s [00:52:13.770] }) 1533s [00:52:13.770] if (TRUE) { 1533s [00:52:13.770] base::sink(type = "output", split = FALSE) 1533s [00:52:13.770] if (TRUE) { 1533s [00:52:13.770] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1533s [00:52:13.770] } 1533s [00:52:13.770] else { 1533s [00:52:13.770] ...future.result["stdout"] <- base::list(NULL) 1533s [00:52:13.770] } 1533s [00:52:13.770] base::close(...future.stdout) 1533s [00:52:13.770] ...future.stdout <- NULL 1533s [00:52:13.770] } 1533s [00:52:13.770] ...future.result$conditions <- ...future.conditions 1533s [00:52:13.770] ...future.result$finished <- base::Sys.time() 1533s [00:52:13.770] ...future.result 1533s [00:52:13.770] } 1533s [00:52:13.779] assign_globals() ... 1533s [00:52:13.784] List of 5 1533s [00:52:13.784] $ ...future.FUN :function (x, ...) 1533s [00:52:13.784] $ future.call.arguments : list() 1533s [00:52:13.784] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1533s [00:52:13.784] $ ...future.elements_ii :List of 3 1533s [00:52:13.784] ..$ : logi [1:4] TRUE FALSE FALSE TRUE 1533s [00:52:13.784] ..$ : num [1:7] 0.0498 0.1353 0.3679 1 2.7183 ... 1533s [00:52:13.784] ..$ : int [1:10] 1 2 3 4 5 6 7 8 9 10 1533s [00:52:13.784] $ ...future.seeds_ii : NULL 1533s [00:52:13.784] $ ...future.globals.maxSize: NULL 1533s [00:52:13.784] - attr(*, "where")=List of 5 1533s [00:52:13.784] ..$ ...future.FUN : 1533s [00:52:13.784] ..$ future.call.arguments : 1533s [00:52:13.784] ..$ ...future.elements_ii : 1533s [00:52:13.784] ..$ ...future.seeds_ii : 1533s [00:52:13.784] ..$ ...future.globals.maxSize: 1533s [00:52:13.784] - attr(*, "resolved")= logi FALSE 1533s [00:52:13.784] - attr(*, "total_size")= num 1240 1533s [00:52:13.784] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1533s [00:52:13.784] - attr(*, "already-done")= logi TRUE 1533s [00:52:13.793] - copied ‘...future.FUN’ to environment 1533s [00:52:13.793] - copied ‘future.call.arguments’ to environment 1533s [00:52:13.793] - copied ‘...future.elements_ii’ to environment 1533s [00:52:13.793] - copied ‘...future.seeds_ii’ to environment 1533s [00:52:13.794] - copied ‘...future.globals.maxSize’ to environment 1533s [00:52:13.794] assign_globals() ... done 1533s [00:52:13.794] plan(): Setting new future strategy stack: 1533s [00:52:13.795] List of future strategies: 1533s [00:52:13.795] 1. sequential: 1533s [00:52:13.795] - args: function (..., envir = parent.frame()) 1533s [00:52:13.795] - tweaked: FALSE 1533s [00:52:13.795] - call: NULL 1533s [00:52:13.795] plan(): nbrOfWorkers() = 1 1533s [00:52:13.797] plan(): Setting new future strategy stack: 1533s [00:52:13.798] List of future strategies: 1533s [00:52:13.798] 1. sequential: 1533s [00:52:13.798] - args: function (..., envir = parent.frame()) 1533s [00:52:13.798] - tweaked: FALSE 1533s [00:52:13.798] - call: plan(strategy) 1533s [00:52:13.798] plan(): nbrOfWorkers() = 1 1533s [00:52:13.799] SequentialFuture started (and completed) 1533s [00:52:13.799] - Launch lazy future ... done 1533s [00:52:13.800] run() for ‘SequentialFuture’ ... done 1533s [00:52:13.800] Created future: 1533s [00:52:13.800] SequentialFuture: 1533s [00:52:13.800] Label: ‘future_eapply-1’ 1533s [00:52:13.800] Expression: 1533s [00:52:13.800] { 1533s [00:52:13.800] do.call(function(...) { 1533s [00:52:13.800] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1533s [00:52:13.800] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1533s [00:52:13.800] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1533s [00:52:13.800] on.exit(options(oopts), add = TRUE) 1533s [00:52:13.800] } 1533s [00:52:13.800] { 1533s [00:52:13.800] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1533s [00:52:13.800] ...future.X_jj <- ...future.elements_ii[[jj]] 1533s [00:52:13.800] ...future.FUN(...future.X_jj, ...) 1533s [00:52:13.800] }) 1533s [00:52:13.800] } 1533s [00:52:13.800] }, args = future.call.arguments) 1533s [00:52:13.800] } 1533s [00:52:13.800] Lazy evaluation: FALSE 1533s [00:52:13.800] Asynchronous evaluation: FALSE 1533s [00:52:13.800] Local evaluation: TRUE 1533s [00:52:13.800] Environment: R_GlobalEnv 1533s [00:52:13.800] Capture standard output: TRUE 1533s [00:52:13.800] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1533s [00:52:13.800] Globals: 5 objects totaling 1.48 KiB (function ‘...future.FUN’ of 1.21 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 272 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1533s [00:52:13.800] Packages: 1533s [00:52:13.800] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1533s [00:52:13.800] Resolved: TRUE 1533s [00:52:13.800] Value: 168 bytes of class ‘list’ 1533s [00:52:13.800] Early signaling: FALSE 1533s [00:52:13.800] Owner process: a67f97e2-ffea-5be0-b95e-c580db557e5a 1533s [00:52:13.800] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1533s [00:52:13.804] Chunk #1 of 1 ... DONE 1533s [00:52:13.805] Launching 1 futures (chunks) ... DONE 1533s [00:52:13.805] Resolving 1 futures (chunks) ... 1533s [00:52:13.806] resolve() on list ... 1533s [00:52:13.806] recursive: 0 1533s [00:52:13.807] length: 1 1533s [00:52:13.807] 1533s [00:52:13.808] resolved() for ‘SequentialFuture’ ... 1533s [00:52:13.808] - state: ‘finished’ 1533s [00:52:13.808] - run: TRUE 1533s [00:52:13.808] - result: ‘FutureResult’ 1533s [00:52:13.808] resolved() for ‘SequentialFuture’ ... done 1533s [00:52:13.808] Future #1 1533s [00:52:13.809] signalConditionsASAP(SequentialFuture, pos=1) ... 1533s [00:52:13.810] - nx: 1 1533s [00:52:13.810] - relay: TRUE 1533s [00:52:13.810] - stdout: TRUE 1533s [00:52:13.810] - signal: TRUE 1533s [00:52:13.811] - resignal: FALSE 1533s [00:52:13.811] - force: TRUE 1533s [00:52:13.811] - relayed: [n=1] FALSE 1533s [00:52:13.811] - queued futures: [n=1] FALSE 1533s [00:52:13.811] - until=1 1533s [00:52:13.812] - relaying element #1 1533s [00:52:13.812] - relayed: [n=1] TRUE 1533s [00:52:13.813] - queued futures: [n=1] TRUE 1533s [00:52:13.813] signalConditionsASAP(SequentialFuture, pos=1) ... done 1533s [00:52:13.813] length: 0 (resolved future 1) 1533s [00:52:13.813] Relaying remaining futures 1533s [00:52:13.813] signalConditionsASAP(NULL, pos=0) ... 1533s [00:52:13.814] - nx: 1 1533s [00:52:13.814] - relay: TRUE 1533s [00:52:13.814] - stdout: TRUE 1533s [00:52:13.815] - signal: TRUE 1533s [00:52:13.815] - resignal: FALSE 1533s [00:52:13.815] - force: TRUE 1533s [00:52:13.815] - relayed: [n=1] TRUE 1533s [00:52:13.815] - queued futures: [n=1] TRUE 1533s - flush all 1533s [00:52:13.815] - relayed: [n=1] TRUE 1533s [00:52:13.815] - queued futures: [n=1] TRUE 1533s [00:52:13.815] signalConditionsASAP(NULL, pos=0) ... done 1533s [00:52:13.816] resolve() on list ... DONE 1533s [00:52:13.816] - Number of value chunks collected: 1 1533s [00:52:13.816] Resolving 1 futures (chunks) ... DONE 1533s [00:52:13.816] Reducing values from 1 chunks ... 1533s [00:52:13.816] - Number of values collected after concatenation: 3 1533s [00:52:13.816] - Number of values expected: 3 1533s [00:52:13.817] Reducing values from 1 chunks ... DONE 1533s [00:52:13.817] future_lapply() ... DONE 1533s [00:52:13.820] future_lapply() ... 1533s [00:52:13.821] Number of chunks: 1 1533s [00:52:13.821] getGlobalsAndPackagesXApply() ... 1533s [00:52:13.821] - future.globals: TRUE 1533s [00:52:13.821] getGlobalsAndPackages() ... 1533s [00:52:13.821] Searching for globals... 1533s [00:52:13.823] - globals found: [2] ‘FUN’, ‘UseMethod’ 1533s [00:52:13.823] Searching for globals ... DONE 1533s [00:52:13.823] Resolving globals: FALSE 1533s [00:52:13.823] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1533s [00:52:13.824] The total size of the 1 globals exported for future expression (‘FUN(probs = c(0.25, 0.5, 0.75))’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1533s [00:52:13.824] - globals: [1] ‘FUN’ 1533s [00:52:13.825] - packages: [1] ‘stats’ 1533s [00:52:13.825] getGlobalsAndPackages() ... DONE 1533s [00:52:13.825] - globals found/used: [n=1] ‘FUN’ 1533s [00:52:13.825] - needed namespaces: [n=1] ‘stats’ 1533s [00:52:13.825] Finding globals ... DONE 1533s [00:52:13.825] - use_args: TRUE 1533s [00:52:13.825] - Getting '...' globals ... 1533s [00:52:13.826] resolve() on list ... 1533s [00:52:13.826] recursive: 0 1533s [00:52:13.826] length: 1 1533s [00:52:13.826] elements: ‘...’ 1533s [00:52:13.826] length: 0 (resolved future 1) 1533s [00:52:13.826] resolve() on list ... DONE 1533s [00:52:13.827] - '...' content: [n=1] ‘probs’ 1533s [00:52:13.827] List of 1 1533s [00:52:13.827] $ ...:List of 1 1533s [00:52:13.827] ..$ probs: num [1:3] 0.25 0.5 0.75 1533s [00:52:13.827] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1533s [00:52:13.827] - attr(*, "where")=List of 1 1533s [00:52:13.827] ..$ ...: 1533s [00:52:13.827] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1533s [00:52:13.827] - attr(*, "resolved")= logi TRUE 1533s [00:52:13.827] - attr(*, "total_size")= num NA 1533s [00:52:13.831] - Getting '...' globals ... DONE 1533s [00:52:13.831] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1533s [00:52:13.831] List of 2 1533s [00:52:13.831] $ ...future.FUN:function (x, ...) 1533s [00:52:13.831] $ ... :List of 1 1533s [00:52:13.831] ..$ probs: num [1:3] 0.25 0.5 0.75 1533s [00:52:13.831] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1533s [00:52:13.831] - attr(*, "where")=List of 2 1533s [00:52:13.831] ..$ ...future.FUN: 1533s [00:52:13.831] ..$ ... : 1533s [00:52:13.831] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1533s [00:52:13.831] - attr(*, "resolved")= logi FALSE 1533s [00:52:13.831] - attr(*, "total_size")= num 1328 1533s [00:52:13.839] Packages to be attached in all futures: [n=1] ‘stats’ 1533s [00:52:13.839] getGlobalsAndPackagesXApply() ... DONE 1533s [00:52:13.839] Number of futures (= number of chunks): 1 1533s [00:52:13.839] Launching 1 futures (chunks) ... 1533s [00:52:13.840] Chunk #1 of 1 ... 1533s [00:52:13.840] - Finding globals in 'X' for chunk #1 ... 1533s [00:52:13.840] getGlobalsAndPackages() ... 1533s [00:52:13.840] Searching for globals... 1533s [00:52:13.841] 1533s [00:52:13.841] Searching for globals ... DONE 1533s [00:52:13.841] - globals: [0] 1533s [00:52:13.841] getGlobalsAndPackages() ... DONE 1533s [00:52:13.841] + additional globals found: [n=0] 1533s [00:52:13.842] + additional namespaces needed: [n=0] 1533s [00:52:13.842] - Finding globals in 'X' for chunk #1 ... DONE 1533s [00:52:13.842] - seeds: 1533s [00:52:13.843] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1533s [00:52:13.843] getGlobalsAndPackages() ... 1533s [00:52:13.843] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1533s [00:52:13.843] Resolving globals: FALSE 1533s [00:52:13.843] Tweak future expression to call with '...' arguments ... 1533s [00:52:13.844] { 1533s [00:52:13.844] do.call(function(...) { 1533s [00:52:13.844] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1533s [00:52:13.844] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1533s [00:52:13.844] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1533s [00:52:13.844] on.exit(options(oopts), add = TRUE) 1533s [00:52:13.844] } 1533s [00:52:13.844] { 1533s [00:52:13.844] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1533s [00:52:13.844] ...future.X_jj <- ...future.elements_ii[[jj]] 1533s [00:52:13.844] ...future.FUN(...future.X_jj, ...) 1533s [00:52:13.844] }) 1533s [00:52:13.844] } 1533s [00:52:13.844] }, args = future.call.arguments) 1533s [00:52:13.844] } 1533s [00:52:13.844] Tweak future expression to call with '...' arguments ... DONE 1533s [00:52:13.845] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1533s [00:52:13.845] - packages: [1] ‘stats’ 1533s [00:52:13.846] getGlobalsAndPackages() ... DONE 1533s [00:52:13.846] run() for ‘Future’ ... 1533s [00:52:13.846] - state: ‘created’ 1533s [00:52:13.846] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1533s [00:52:13.847] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1533s [00:52:13.848] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1533s [00:52:13.848] - Field: ‘label’ 1533s [00:52:13.848] - Field: ‘local’ 1533s [00:52:13.849] - Field: ‘owner’ 1533s [00:52:13.849] - Field: ‘envir’ 1533s [00:52:13.849] - Field: ‘packages’ 1533s [00:52:13.850] - Field: ‘gc’ 1533s [00:52:13.850] - Field: ‘conditions’ 1533s [00:52:13.850] - Field: ‘expr’ 1533s [00:52:13.851] - Field: ‘uuid’ 1533s [00:52:13.851] - Field: ‘seed’ 1533s [00:52:13.852] - Field: ‘version’ 1533s [00:52:13.852] - Field: ‘result’ 1533s [00:52:13.852] - Field: ‘asynchronous’ 1533s [00:52:13.852] - Field: ‘calls’ 1533s [00:52:13.852] - Field: ‘globals’ 1533s [00:52:13.853] - Field: ‘stdout’ 1533s [00:52:13.853] - Field: ‘earlySignal’ 1533s [00:52:13.853] - Field: ‘lazy’ 1533s [00:52:13.853] - Field: ‘state’ 1533s [00:52:13.853] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1533s [00:52:13.854] - Launch lazy future ... 1533s [00:52:13.854] Packages needed by the future expression (n = 1): ‘stats’ 1533s [00:52:13.854] Packages needed by future strategies (n = 0): 1533s [00:52:13.855] { 1533s [00:52:13.855] { 1533s [00:52:13.855] { 1533s [00:52:13.855] ...future.startTime <- base::Sys.time() 1533s [00:52:13.855] { 1533s [00:52:13.855] { 1533s [00:52:13.855] { 1533s [00:52:13.855] { 1533s [00:52:13.855] base::local({ 1533s [00:52:13.855] has_future <- base::requireNamespace("future", 1533s [00:52:13.855] quietly = TRUE) 1533s [00:52:13.855] if (has_future) { 1533s [00:52:13.855] ns <- base::getNamespace("future") 1533s [00:52:13.855] version <- ns[[".package"]][["version"]] 1533s [00:52:13.855] if (is.null(version)) 1533s [00:52:13.855] version <- utils::packageVersion("future") 1533s [00:52:13.855] } 1533s [00:52:13.855] else { 1533s [00:52:13.855] version <- NULL 1533s [00:52:13.855] } 1533s [00:52:13.855] if (!has_future || version < "1.8.0") { 1533s [00:52:13.855] info <- base::c(r_version = base::gsub("R version ", 1533s [00:52:13.855] "", base::R.version$version.string), 1533s [00:52:13.855] platform = base::sprintf("%s (%s-bit)", 1533s [00:52:13.855] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1533s [00:52:13.855] os = base::paste(base::Sys.info()[base::c("sysname", 1533s [00:52:13.855] "release", "version")], collapse = " "), 1533s [00:52:13.855] hostname = base::Sys.info()[["nodename"]]) 1533s [00:52:13.855] info <- base::sprintf("%s: %s", base::names(info), 1533s [00:52:13.855] info) 1533s [00:52:13.855] info <- base::paste(info, collapse = "; ") 1533s [00:52:13.855] if (!has_future) { 1533s [00:52:13.855] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1533s [00:52:13.855] info) 1533s [00:52:13.855] } 1533s [00:52:13.855] else { 1533s [00:52:13.855] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1533s [00:52:13.855] info, version) 1533s [00:52:13.855] } 1533s [00:52:13.855] base::stop(msg) 1533s [00:52:13.855] } 1533s [00:52:13.855] }) 1533s [00:52:13.855] } 1533s [00:52:13.855] base::local({ 1533s [00:52:13.855] for (pkg in "stats") { 1533s [00:52:13.855] base::loadNamespace(pkg) 1533s [00:52:13.855] base::library(pkg, character.only = TRUE) 1533s [00:52:13.855] } 1533s [00:52:13.855] }) 1533s [00:52:13.855] } 1533s [00:52:13.855] options(future.plan = NULL) 1533s [00:52:13.855] Sys.unsetenv("R_FUTURE_PLAN") 1533s [00:52:13.855] future::plan("default", .cleanup = FALSE, .init = FALSE) 1533s [00:52:13.855] } 1533s [00:52:13.855] ...future.workdir <- getwd() 1533s [00:52:13.855] } 1533s [00:52:13.855] ...future.oldOptions <- base::as.list(base::.Options) 1533s [00:52:13.855] ...future.oldEnvVars <- base::Sys.getenv() 1533s [00:52:13.855] } 1533s [00:52:13.855] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1533s [00:52:13.855] future.globals.maxSize = NULL, future.globals.method = NULL, 1533s [00:52:13.855] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1533s [00:52:13.855] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1533s [00:52:13.855] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1533s [00:52:13.855] future.stdout.windows.reencode = NULL, width = 80L) 1533s [00:52:13.855] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1533s [00:52:13.855] base::names(...future.oldOptions)) 1533s [00:52:13.855] } 1533s [00:52:13.855] if (FALSE) { 1533s [00:52:13.855] } 1533s [00:52:13.855] else { 1533s [00:52:13.855] if (TRUE) { 1533s [00:52:13.855] ...future.stdout <- base::rawConnection(base::raw(0L), 1533s [00:52:13.855] open = "w") 1533s [00:52:13.855] } 1533s [00:52:13.855] else { 1533s [00:52:13.855] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1533s [00:52:13.855] windows = "NUL", "/dev/null"), open = "w") 1533s [00:52:13.855] } 1533s [00:52:13.855] base::sink(...future.stdout, type = "output", split = FALSE) 1533s [00:52:13.855] base::on.exit(if (!base::is.null(...future.stdout)) { 1533s [00:52:13.855] base::sink(type = "output", split = FALSE) 1533s [00:52:13.855] base::close(...future.stdout) 1533s [00:52:13.855] }, add = TRUE) 1533s [00:52:13.855] } 1533s [00:52:13.855] ...future.frame <- base::sys.nframe() 1533s [00:52:13.855] ...future.conditions <- base::list() 1533s [00:52:13.855] ...future.rng <- base::globalenv()$.Random.seed 1533s [00:52:13.855] if (FALSE) { 1533s [00:52:13.855] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1533s [00:52:13.855] "...future.value", "...future.globalenv.names", ".Random.seed") 1533s [00:52:13.855] } 1533s [00:52:13.855] ...future.result <- base::tryCatch({ 1533s [00:52:13.855] base::withCallingHandlers({ 1533s [00:52:13.855] ...future.value <- base::withVisible(base::local({ 1533s [00:52:13.855] do.call(function(...) { 1533s [00:52:13.855] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1533s [00:52:13.855] if (!identical(...future.globals.maxSize.org, 1533s [00:52:13.855] ...future.globals.maxSize)) { 1533s [00:52:13.855] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1533s [00:52:13.855] on.exit(options(oopts), add = TRUE) 1533s [00:52:13.855] } 1533s [00:52:13.855] { 1533s [00:52:13.855] lapply(seq_along(...future.elements_ii), 1533s [00:52:13.855] FUN = function(jj) { 1533s [00:52:13.855] ...future.X_jj <- ...future.elements_ii[[jj]] 1533s [00:52:13.855] ...future.FUN(...future.X_jj, ...) 1533s [00:52:13.855] }) 1533s [00:52:13.855] } 1533s [00:52:13.855] }, args = future.call.arguments) 1533s [00:52:13.855] })) 1533s [00:52:13.855] future::FutureResult(value = ...future.value$value, 1533s [00:52:13.855] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1533s [00:52:13.855] ...future.rng), globalenv = if (FALSE) 1533s [00:52:13.855] list(added = base::setdiff(base::names(base::.GlobalEnv), 1533s [00:52:13.855] ...future.globalenv.names)) 1533s [00:52:13.855] else NULL, started = ...future.startTime, version = "1.8") 1533s [00:52:13.855] }, condition = base::local({ 1533s [00:52:13.855] c <- base::c 1533s [00:52:13.855] inherits <- base::inherits 1533s [00:52:13.855] invokeRestart <- base::invokeRestart 1533s [00:52:13.855] length <- base::length 1533s [00:52:13.855] list <- base::list 1533s [00:52:13.855] seq.int <- base::seq.int 1533s [00:52:13.855] signalCondition <- base::signalCondition 1533s [00:52:13.855] sys.calls <- base::sys.calls 1533s [00:52:13.855] `[[` <- base::`[[` 1533s [00:52:13.855] `+` <- base::`+` 1533s [00:52:13.855] `<<-` <- base::`<<-` 1533s [00:52:13.855] sysCalls <- function(calls = sys.calls(), from = 1L) { 1533s [00:52:13.855] calls[seq.int(from = from + 12L, to = length(calls) - 1533s [00:52:13.855] 3L)] 1533s [00:52:13.855] } 1533s [00:52:13.855] function(cond) { 1533s [00:52:13.855] is_error <- inherits(cond, "error") 1533s [00:52:13.855] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1533s [00:52:13.855] NULL) 1533s [00:52:13.855] if (is_error) { 1533s [00:52:13.855] sessionInformation <- function() { 1533s [00:52:13.855] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1533s [00:52:13.855] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1533s [00:52:13.855] search = base::search(), system = base::Sys.info()) 1533s [00:52:13.855] } 1533s [00:52:13.855] ...future.conditions[[length(...future.conditions) + 1533s [00:52:13.855] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1533s [00:52:13.855] cond$call), session = sessionInformation(), 1533s [00:52:13.855] timestamp = base::Sys.time(), signaled = 0L) 1533s [00:52:13.855] signalCondition(cond) 1533s [00:52:13.855] } 1533s [00:52:13.855] else if (!ignore && TRUE && inherits(cond, c("condition", 1533s [00:52:13.855] "immediateCondition"))) { 1533s [00:52:13.855] signal <- TRUE && inherits(cond, "immediateCondition") 1533s [00:52:13.855] ...future.conditions[[length(...future.conditions) + 1533s [00:52:13.855] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1533s [00:52:13.855] if (TRUE && !signal) { 1533s [00:52:13.855] muffleCondition <- function (cond, pattern = "^muffle") 1533s [00:52:13.855] { 1533s [00:52:13.855] inherits <- base::inherits 1533s [00:52:13.855] invokeRestart <- base::invokeRestart 1533s [00:52:13.855] is.null <- base::is.null 1533s [00:52:13.855] muffled <- FALSE 1533s [00:52:13.855] if (inherits(cond, "message")) { 1533s [00:52:13.855] muffled <- grepl(pattern, "muffleMessage") 1533s [00:52:13.855] if (muffled) 1533s [00:52:13.855] invokeRestart("muffleMessage") 1533s [00:52:13.855] } 1533s [00:52:13.855] else if (inherits(cond, "warning")) { 1533s [00:52:13.855] muffled <- grepl(pattern, "muffleWarning") 1533s [00:52:13.855] if (muffled) 1533s [00:52:13.855] invokeRestart("muffleWarning") 1533s [00:52:13.855] } 1533s [00:52:13.855] else if (inherits(cond, "condition")) { 1533s [00:52:13.855] if (!is.null(pattern)) { 1533s [00:52:13.855] computeRestarts <- base::computeRestarts 1533s [00:52:13.855] grepl <- base::grepl 1533s [00:52:13.855] restarts <- computeRestarts(cond) 1533s [00:52:13.855] for (restart in restarts) { 1533s [00:52:13.855] name <- restart$name 1533s [00:52:13.855] if (is.null(name)) 1533s [00:52:13.855] next 1533s [00:52:13.855] if (!grepl(pattern, name)) 1533s [00:52:13.855] next 1533s [00:52:13.855] invokeRestart(restart) 1533s [00:52:13.855] muffled <- TRUE 1533s [00:52:13.855] break 1533s [00:52:13.855] } 1533s [00:52:13.855] } 1533s [00:52:13.855] } 1533s [00:52:13.855] invisible(muffled) 1533s [00:52:13.855] } 1533s [00:52:13.855] muffleCondition(cond, pattern = "^muffle") 1533s [00:52:13.855] } 1533s [00:52:13.855] } 1533s [00:52:13.855] else { 1533s [00:52:13.855] if (TRUE) { 1533s [00:52:13.855] muffleCondition <- function (cond, pattern = "^muffle") 1533s [00:52:13.855] { 1533s [00:52:13.855] inherits <- base::inherits 1533s [00:52:13.855] invokeRestart <- base::invokeRestart 1533s [00:52:13.855] is.null <- base::is.null 1533s [00:52:13.855] muffled <- FALSE 1533s [00:52:13.855] if (inherits(cond, "message")) { 1533s [00:52:13.855] muffled <- grepl(pattern, "muffleMessage") 1533s [00:52:13.855] if (muffled) 1533s [00:52:13.855] invokeRestart("muffleMessage") 1533s [00:52:13.855] } 1533s [00:52:13.855] else if (inherits(cond, "warning")) { 1533s [00:52:13.855] muffled <- grepl(pattern, "muffleWarning") 1533s [00:52:13.855] if (muffled) 1533s [00:52:13.855] invokeRestart("muffleWarning") 1533s [00:52:13.855] } 1533s [00:52:13.855] else if (inherits(cond, "condition")) { 1533s [00:52:13.855] if (!is.null(pattern)) { 1533s [00:52:13.855] computeRestarts <- base::computeRestarts 1533s [00:52:13.855] grepl <- base::grepl 1533s [00:52:13.855] restarts <- computeRestarts(cond) 1533s [00:52:13.855] for (restart in restarts) { 1533s [00:52:13.855] name <- restart$name 1533s [00:52:13.855] if (is.null(name)) 1533s [00:52:13.855] next 1533s [00:52:13.855] if (!grepl(pattern, name)) 1533s [00:52:13.855] next 1533s [00:52:13.855] invokeRestart(restart) 1533s [00:52:13.855] muffled <- TRUE 1533s [00:52:13.855] break 1533s [00:52:13.855] } 1533s [00:52:13.855] } 1533s [00:52:13.855] } 1533s [00:52:13.855] invisible(muffled) 1533s [00:52:13.855] } 1533s [00:52:13.855] muffleCondition(cond, pattern = "^muffle") 1533s [00:52:13.855] } 1533s [00:52:13.855] } 1533s [00:52:13.855] } 1533s [00:52:13.855] })) 1533s [00:52:13.855] }, error = function(ex) { 1533s [00:52:13.855] base::structure(base::list(value = NULL, visible = NULL, 1533s [00:52:13.855] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1533s [00:52:13.855] ...future.rng), started = ...future.startTime, 1533s [00:52:13.855] finished = Sys.time(), session_uuid = NA_character_, 1533s [00:52:13.855] version = "1.8"), class = "FutureResult") 1533s [00:52:13.855] }, finally = { 1533s [00:52:13.855] if (!identical(...future.workdir, getwd())) 1533s [00:52:13.855] setwd(...future.workdir) 1533s [00:52:13.855] { 1533s [00:52:13.855] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1533s [00:52:13.855] ...future.oldOptions$nwarnings <- NULL 1533s [00:52:13.855] } 1533s [00:52:13.855] base::options(...future.oldOptions) 1533s [00:52:13.855] if (.Platform$OS.type == "windows") { 1533s [00:52:13.855] old_names <- names(...future.oldEnvVars) 1533s [00:52:13.855] envs <- base::Sys.getenv() 1533s [00:52:13.855] names <- names(envs) 1533s [00:52:13.855] common <- intersect(names, old_names) 1533s [00:52:13.855] added <- setdiff(names, old_names) 1533s [00:52:13.855] removed <- setdiff(old_names, names) 1533s [00:52:13.855] changed <- common[...future.oldEnvVars[common] != 1533s [00:52:13.855] envs[common]] 1533s [00:52:13.855] NAMES <- toupper(changed) 1533s [00:52:13.855] args <- list() 1533s [00:52:13.855] for (kk in seq_along(NAMES)) { 1533s [00:52:13.855] name <- changed[[kk]] 1533s [00:52:13.855] NAME <- NAMES[[kk]] 1533s [00:52:13.855] if (name != NAME && is.element(NAME, old_names)) 1533s [00:52:13.855] next 1533s [00:52:13.855] args[[name]] <- ...future.oldEnvVars[[name]] 1533s [00:52:13.855] } 1533s [00:52:13.855] NAMES <- toupper(added) 1533s [00:52:13.855] for (kk in seq_along(NAMES)) { 1533s [00:52:13.855] name <- added[[kk]] 1533s [00:52:13.855] NAME <- NAMES[[kk]] 1533s [00:52:13.855] if (name != NAME && is.element(NAME, old_names)) 1533s [00:52:13.855] next 1533s [00:52:13.855] args[[name]] <- "" 1533s [00:52:13.855] } 1533s [00:52:13.855] NAMES <- toupper(removed) 1533s [00:52:13.855] for (kk in seq_along(NAMES)) { 1533s [00:52:13.855] name <- removed[[kk]] 1533s [00:52:13.855] NAME <- NAMES[[kk]] 1533s [00:52:13.855] if (name != NAME && is.element(NAME, old_names)) 1533s [00:52:13.855] next 1533s [00:52:13.855] args[[name]] <- ...future.oldEnvVars[[name]] 1533s [00:52:13.855] } 1533s [00:52:13.855] if (length(args) > 0) 1533s [00:52:13.855] base::do.call(base::Sys.setenv, args = args) 1533s [00:52:13.855] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1533s [00:52:13.855] } 1533s [00:52:13.855] else { 1533s [00:52:13.855] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1533s [00:52:13.855] } 1533s [00:52:13.855] { 1533s [00:52:13.855] if (base::length(...future.futureOptionsAdded) > 1533s [00:52:13.855] 0L) { 1533s [00:52:13.855] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1533s [00:52:13.855] base::names(opts) <- ...future.futureOptionsAdded 1533s [00:52:13.855] base::options(opts) 1533s [00:52:13.855] } 1533s [00:52:13.855] { 1533s [00:52:13.855] { 1533s [00:52:13.855] NULL 1533s [00:52:13.855] RNGkind("Mersenne-Twister") 1533s [00:52:13.855] base::rm(list = ".Random.seed", envir = base::globalenv(), 1533s [00:52:13.855] inherits = FALSE) 1533s [00:52:13.855] } 1533s [00:52:13.855] options(future.plan = NULL) 1533s [00:52:13.855] if (is.na(NA_character_)) 1533s [00:52:13.855] Sys.unsetenv("R_FUTURE_PLAN") 1533s [00:52:13.855] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1533s [00:52:13.855] future::plan(list(function (..., envir = parent.frame()) 1533s [00:52:13.855] { 1533s [00:52:13.855] future <- SequentialFuture(..., envir = envir) 1533s [00:52:13.855] if (!future$lazy) 1533s [00:52:13.855] future <- run(future) 1533s [00:52:13.855] invisible(future) 1533s [00:52:13.855] }), .cleanup = FALSE, .init = FALSE) 1533s [00:52:13.855] } 1533s [00:52:13.855] } 1533s [00:52:13.855] } 1533s [00:52:13.855] }) 1533s [00:52:13.855] if (TRUE) { 1533s [00:52:13.855] base::sink(type = "output", split = FALSE) 1533s [00:52:13.855] if (TRUE) { 1533s [00:52:13.855] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1533s [00:52:13.855] } 1533s [00:52:13.855] else { 1533s [00:52:13.855] ...future.result["stdout"] <- base::list(NULL) 1533s [00:52:13.855] } 1533s [00:52:13.855] base::close(...future.stdout) 1533s [00:52:13.855] ...future.stdout <- NULL 1533s [00:52:13.855] } 1533s [00:52:13.855] ...future.result$conditions <- ...future.conditions 1533s [00:52:13.855] ...future.result$finished <- base::Sys.time() 1533s [00:52:13.855] ...future.result 1533s [00:52:13.855] } 1533s [00:52:13.862] assign_globals() ... 1533s [00:52:13.862] List of 5 1533s [00:52:13.862] $ ...future.FUN :function (x, ...) 1533s [00:52:13.862] $ future.call.arguments :List of 1 1533s [00:52:13.862] ..$ probs: num [1:3] 0.25 0.5 0.75 1533s [00:52:13.862] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1533s [00:52:13.862] $ ...future.elements_ii :List of 3 1533s [00:52:13.862] ..$ logic: logi [1:4] TRUE FALSE FALSE TRUE 1533s [00:52:13.862] ..$ beta : num [1:7] 0.0498 0.1353 0.3679 1 2.7183 ... 1533s [00:52:13.862] ..$ a : int [1:10] 1 2 3 4 5 6 7 8 9 10 1533s [00:52:13.862] $ ...future.seeds_ii : NULL 1533s [00:52:13.862] $ ...future.globals.maxSize: NULL 1533s [00:52:13.862] - attr(*, "where")=List of 5 1533s [00:52:13.862] ..$ ...future.FUN : 1533s [00:52:13.862] ..$ future.call.arguments : 1533s [00:52:13.862] ..$ ...future.elements_ii : 1533s [00:52:13.862] ..$ ...future.seeds_ii : 1533s [00:52:13.862] ..$ ...future.globals.maxSize: 1533s [00:52:13.862] - attr(*, "resolved")= logi FALSE 1533s [00:52:13.862] - attr(*, "total_size")= num 1328 1533s [00:52:13.862] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1533s [00:52:13.862] - attr(*, "already-done")= logi TRUE 1533s [00:52:13.871] - copied ‘...future.FUN’ to environment 1533s [00:52:13.871] - copied ‘future.call.arguments’ to environment 1533s [00:52:13.872] - copied ‘...future.elements_ii’ to environment 1533s [00:52:13.872] - copied ‘...future.seeds_ii’ to environment 1533s [00:52:13.872] - copied ‘...future.globals.maxSize’ to environment 1533s [00:52:13.873] assign_globals() ... done 1533s [00:52:13.873] plan(): Setting new future strategy stack: 1533s [00:52:13.874] List of future strategies: 1533s [00:52:13.874] 1. sequential: 1533s [00:52:13.874] - args: function (..., envir = parent.frame()) 1533s [00:52:13.874] - tweaked: FALSE 1533s [00:52:13.874] - call: NULL 1533s [00:52:13.874] plan(): nbrOfWorkers() = 1 1533s [00:52:13.876] plan(): Setting new future strategy stack: 1533s [00:52:13.876] List of future strategies: 1533s [00:52:13.876] 1. sequential: 1533s [00:52:13.876] - args: function (..., envir = parent.frame()) 1533s [00:52:13.876] - tweaked: FALSE 1533s [00:52:13.876] - call: plan(strategy) 1533s [00:52:13.876] plan(): nbrOfWorkers() = 1 1533s [00:52:13.877] SequentialFuture started (and completed) 1533s [00:52:13.877] - Launch lazy future ... done 1533s [00:52:13.877] run() for ‘SequentialFuture’ ... done 1533s [00:52:13.877] Created future: 1533s [00:52:13.877] SequentialFuture: 1533s [00:52:13.877] Label: ‘future_eapply-1’ 1533s [00:52:13.877] Expression: 1533s [00:52:13.877] { 1533s [00:52:13.877] do.call(function(...) { 1533s [00:52:13.877] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1533s [00:52:13.877] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1533s [00:52:13.877] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1533s [00:52:13.877] on.exit(options(oopts), add = TRUE) 1533s [00:52:13.877] } 1533s [00:52:13.877] { 1533s [00:52:13.877] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1533s [00:52:13.877] ...future.X_jj <- ...future.elements_ii[[jj]] 1533s [00:52:13.877] ...future.FUN(...future.X_jj, ...) 1533s [00:52:13.877] }) 1533s [00:52:13.877] } 1533s [00:52:13.877] }, args = future.call.arguments) 1533s [00:52:13.877] } 1533s [00:52:13.877] Lazy evaluation: FALSE 1533s [00:52:13.877] Asynchronous evaluation: FALSE 1533s [00:52:13.877] Local evaluation: TRUE 1533s [00:52:13.877] Environment: R_GlobalEnv 1533s [00:52:13.877] Capture standard output: TRUE 1533s [00:52:13.877] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1533s [00:52:13.877] Globals: 5 objects totaling 1.56 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 80 bytes, list ‘...future.elements_ii’ of 272 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1533s [00:52:13.877] Packages: 1 packages (‘stats’) 1533s [00:52:13.877] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1533s [00:52:13.877] Resolved: TRUE 1533s [00:52:13.877] Value: 1.29 KiB of class ‘list’ 1533s [00:52:13.877] Early signaling: FALSE 1533s [00:52:13.877] Owner process: a67f97e2-ffea-5be0-b95e-c580db557e5a 1533s [00:52:13.877] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1533s [00:52:13.879] Chunk #1 of 1 ... DONE 1533s [00:52:13.879] Launching 1 futures (chunks) ... DONE 1533s [00:52:13.879] Resolving 1 futures (chunks) ... 1533s [00:52:13.879] resolve() on list ... 1533s [00:52:13.880] recursive: 0 1533s [00:52:13.880] length: 1 1533s [00:52:13.880] 1533s [00:52:13.880] resolved() for ‘SequentialFuture’ ... 1533s [00:52:13.880] - state: ‘finished’ 1533s [00:52:13.881] - run: TRUE 1533s [00:52:13.881] - result: ‘FutureResult’ 1533s [00:52:13.881] resolved() for ‘SequentialFuture’ ... done 1533s [00:52:13.881] Future #1 1533s [00:52:13.881] signalConditionsASAP(SequentialFuture, pos=1) ... 1533s [00:52:13.881] - nx: 1 1533s [00:52:13.882] - relay: TRUE 1533s [00:52:13.882] - stdout: TRUE 1533s [00:52:13.882] - signal: TRUE 1533s [00:52:13.882] - resignal: FALSE 1533s [00:52:13.882] - force: TRUE 1533s [00:52:13.882] - relayed: [n=1] FALSE 1533s [00:52:13.882] - queued futures: [n=1] FALSE 1533s [00:52:13.883] - until=1 1533s [00:52:13.883] - relaying element #1 1533s [00:52:13.883] - relayed: [n=1] TRUE 1533s [00:52:13.883] - queued futures: [n=1] TRUE 1533s [00:52:13.883] signalConditionsASAP(SequentialFuture, pos=1) ... done 1533s [00:52:13.884] length: 0 (resolved future 1) 1533s [00:52:13.886] Relaying remaining futures 1533s [00:52:13.886] signalConditionsASAP(NULL, pos=0) ... 1533s [00:52:13.886] - nx: 1 1533s [00:52:13.886] - relay: TRUE 1533s [00:52:13.886] - stdout: TRUE 1533s [00:52:13.887] - signal: TRUE 1533s [00:52:13.887] - resignal: FALSE 1533s [00:52:13.887] - force: TRUE 1533s [00:52:13.887] - relayed: [n=1] TRUE 1533s [00:52:13.887] - queued futures: [n=1] TRUE 1533s - flush all 1533s [00:52:13.888] - relayed: [n=1] TRUE 1533s [00:52:13.888] - queued futures: [n=1] TRUE 1533s [00:52:13.888] signalConditionsASAP(NULL, pos=0) ... done 1533s [00:52:13.889] resolve() on list ... DONE 1533s [00:52:13.889] - Number of value chunks collected: 1 1533s [00:52:13.890] Resolving 1 futures (chunks) ... DONE 1533s [00:52:13.890] Reducing values from 1 chunks ... 1533s [00:52:13.890] - Number of values collected after concatenation: 3 1533s [00:52:13.890] - Number of values expected: 3 1533s [00:52:13.890] Reducing values from 1 chunks ... DONE 1533s [00:52:13.891] future_lapply() ... DONE 1533s [00:52:13.893] future_lapply() ... 1533s [00:52:13.893] Number of chunks: 1 1533s [00:52:13.894] getGlobalsAndPackagesXApply() ... 1533s [00:52:13.894] - future.globals: TRUE 1533s [00:52:13.894] getGlobalsAndPackages() ... 1533s [00:52:13.894] Searching for globals... 1533s [00:52:13.897] - globals found: [2] ‘FUN’, ‘UseMethod’ 1533s [00:52:13.897] Searching for globals ... DONE 1533s [00:52:13.897] Resolving globals: FALSE 1533s [00:52:13.898] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1533s [00:52:13.898] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1533s [00:52:13.899] - globals: [1] ‘FUN’ 1533s [00:52:13.899] - packages: [1] ‘stats’ 1533s [00:52:13.899] getGlobalsAndPackages() ... DONE 1533s [00:52:13.899] - globals found/used: [n=1] ‘FUN’ 1533s [00:52:13.899] - needed namespaces: [n=1] ‘stats’ 1533s [00:52:13.900] Finding globals ... DONE 1533s [00:52:13.900] - use_args: TRUE 1533s [00:52:13.901] - Getting '...' globals ... 1533s [00:52:13.901] resolve() on list ... 1533s [00:52:13.902] recursive: 0 1533s [00:52:13.902] length: 1 1533s [00:52:13.902] elements: ‘...’ 1533s [00:52:13.902] length: 0 (resolved future 1) 1533s [00:52:13.902] resolve() on list ... DONE 1533s [00:52:13.902] - '...' content: [n=0] 1533s [00:52:13.903] List of 1 1533s [00:52:13.903] $ ...: list() 1533s [00:52:13.903] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1533s [00:52:13.903] - attr(*, "where")=List of 1 1533s [00:52:13.903] ..$ ...: 1533s [00:52:13.903] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1533s [00:52:13.903] - attr(*, "resolved")= logi TRUE 1533s [00:52:13.903] - attr(*, "total_size")= num NA 1533s [00:52:13.906] - Getting '...' globals ... DONE 1533s [00:52:13.906] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1533s [00:52:13.906] List of 2 1533s [00:52:13.906] $ ...future.FUN:function (x, ...) 1533s [00:52:13.906] $ ... : list() 1533s [00:52:13.906] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1533s [00:52:13.906] - attr(*, "where")=List of 2 1533s [00:52:13.906] ..$ ...future.FUN: 1533s [00:52:13.906] ..$ ... : 1533s [00:52:13.906] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1533s [00:52:13.906] - attr(*, "resolved")= logi FALSE 1533s [00:52:13.906] - attr(*, "total_size")= num 1248 1533s [00:52:13.912] Packages to be attached in all futures: [n=1] ‘stats’ 1533s [00:52:13.912] getGlobalsAndPackagesXApply() ... DONE 1533s [00:52:13.912] Number of futures (= number of chunks): 1 1533s [00:52:13.913] Launching 1 futures (chunks) ... 1533s [00:52:13.913] Chunk #1 of 1 ... 1533s [00:52:13.913] - Finding globals in 'X' for chunk #1 ... 1533s [00:52:13.913] getGlobalsAndPackages() ... 1533s [00:52:13.913] Searching for globals... 1533s [00:52:13.914] 1533s [00:52:13.916] Searching for globals ... DONE 1533s [00:52:13.916] - globals: [0] 1533s [00:52:13.916] getGlobalsAndPackages() ... DONE 1533s [00:52:13.916] + additional globals found: [n=0] 1533s [00:52:13.916] + additional namespaces needed: [n=0] 1533s [00:52:13.916] - Finding globals in 'X' for chunk #1 ... DONE 1533s [00:52:13.917] - seeds: 1533s [00:52:13.917] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1533s [00:52:13.917] getGlobalsAndPackages() ... 1533s [00:52:13.917] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1533s [00:52:13.917] Resolving globals: FALSE 1533s [00:52:13.917] Tweak future expression to call with '...' arguments ... 1533s [00:52:13.918] { 1533s [00:52:13.918] do.call(function(...) { 1533s [00:52:13.918] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1533s [00:52:13.918] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1533s [00:52:13.918] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1533s [00:52:13.918] on.exit(options(oopts), add = TRUE) 1533s [00:52:13.918] } 1533s [00:52:13.918] { 1533s [00:52:13.918] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1533s [00:52:13.918] ...future.X_jj <- ...future.elements_ii[[jj]] 1533s [00:52:13.918] ...future.FUN(...future.X_jj, ...) 1533s [00:52:13.918] }) 1533s [00:52:13.918] } 1533s [00:52:13.918] }, args = future.call.arguments) 1533s [00:52:13.918] } 1533s [00:52:13.918] Tweak future expression to call with '...' arguments ... DONE 1533s [00:52:13.919] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1533s [00:52:13.919] - packages: [1] ‘stats’ 1533s [00:52:13.919] getGlobalsAndPackages() ... DONE 1533s [00:52:13.920] run() for ‘Future’ ... 1533s [00:52:13.920] - state: ‘created’ 1533s [00:52:13.920] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1533s [00:52:13.920] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1533s [00:52:13.921] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1533s [00:52:13.921] - Field: ‘label’ 1533s [00:52:13.921] - Field: ‘local’ 1533s [00:52:13.921] - Field: ‘owner’ 1533s [00:52:13.921] - Field: ‘envir’ 1533s [00:52:13.921] - Field: ‘packages’ 1533s [00:52:13.922] - Field: ‘gc’ 1533s [00:52:13.922] - Field: ‘conditions’ 1533s [00:52:13.922] - Field: ‘expr’ 1533s [00:52:13.922] - Field: ‘uuid’ 1533s [00:52:13.922] - Field: ‘seed’ 1533s [00:52:13.922] - Field: ‘version’ 1533s [00:52:13.922] - Field: ‘result’ 1533s [00:52:13.923] - Field: ‘asynchronous’ 1533s [00:52:13.923] - Field: ‘calls’ 1533s [00:52:13.923] - Field: ‘globals’ 1533s [00:52:13.923] - Field: ‘stdout’ 1533s [00:52:13.923] - Field: ‘earlySignal’ 1533s [00:52:13.923] - Field: ‘lazy’ 1533s [00:52:13.923] - Field: ‘state’ 1533s [00:52:13.924] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1533s [00:52:13.924] - Launch lazy future ... 1533s [00:52:13.924] Packages needed by the future expression (n = 1): ‘stats’ 1533s [00:52:13.924] Packages needed by future strategies (n = 0): 1533s [00:52:13.925] { 1533s [00:52:13.925] { 1533s [00:52:13.925] { 1533s [00:52:13.925] ...future.startTime <- base::Sys.time() 1533s [00:52:13.925] { 1533s [00:52:13.925] { 1533s [00:52:13.925] { 1533s [00:52:13.925] { 1533s [00:52:13.925] base::local({ 1533s [00:52:13.925] has_future <- base::requireNamespace("future", 1533s [00:52:13.925] quietly = TRUE) 1533s [00:52:13.925] if (has_future) { 1533s [00:52:13.925] ns <- base::getNamespace("future") 1533s [00:52:13.925] version <- ns[[".package"]][["version"]] 1533s [00:52:13.925] if (is.null(version)) 1533s [00:52:13.925] version <- utils::packageVersion("future") 1533s [00:52:13.925] } 1533s [00:52:13.925] else { 1533s [00:52:13.925] version <- NULL 1533s [00:52:13.925] } 1533s [00:52:13.925] if (!has_future || version < "1.8.0") { 1533s [00:52:13.925] info <- base::c(r_version = base::gsub("R version ", 1533s [00:52:13.925] "", base::R.version$version.string), 1533s [00:52:13.925] platform = base::sprintf("%s (%s-bit)", 1533s [00:52:13.925] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1533s [00:52:13.925] os = base::paste(base::Sys.info()[base::c("sysname", 1533s [00:52:13.925] "release", "version")], collapse = " "), 1533s [00:52:13.925] hostname = base::Sys.info()[["nodename"]]) 1533s [00:52:13.925] info <- base::sprintf("%s: %s", base::names(info), 1533s [00:52:13.925] info) 1533s [00:52:13.925] info <- base::paste(info, collapse = "; ") 1533s [00:52:13.925] if (!has_future) { 1533s [00:52:13.925] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1533s [00:52:13.925] info) 1533s [00:52:13.925] } 1533s [00:52:13.925] else { 1533s [00:52:13.925] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1533s [00:52:13.925] info, version) 1533s [00:52:13.925] } 1533s [00:52:13.925] base::stop(msg) 1533s [00:52:13.925] } 1533s [00:52:13.925] }) 1533s [00:52:13.925] } 1533s [00:52:13.925] base::local({ 1533s [00:52:13.925] for (pkg in "stats") { 1533s [00:52:13.925] base::loadNamespace(pkg) 1533s [00:52:13.925] base::library(pkg, character.only = TRUE) 1533s [00:52:13.925] } 1533s [00:52:13.925] }) 1533s [00:52:13.925] } 1533s [00:52:13.925] options(future.plan = NULL) 1533s [00:52:13.925] Sys.unsetenv("R_FUTURE_PLAN") 1533s [00:52:13.925] future::plan("default", .cleanup = FALSE, .init = FALSE) 1533s [00:52:13.925] } 1533s [00:52:13.925] ...future.workdir <- getwd() 1533s [00:52:13.925] } 1533s [00:52:13.925] ...future.oldOptions <- base::as.list(base::.Options) 1533s [00:52:13.925] ...future.oldEnvVars <- base::Sys.getenv() 1533s [00:52:13.925] } 1533s [00:52:13.925] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1533s [00:52:13.925] future.globals.maxSize = NULL, future.globals.method = NULL, 1533s [00:52:13.925] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1533s [00:52:13.925] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1533s [00:52:13.925] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1533s [00:52:13.925] future.stdout.windows.reencode = NULL, width = 80L) 1533s [00:52:13.925] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1533s [00:52:13.925] base::names(...future.oldOptions)) 1533s [00:52:13.925] } 1533s [00:52:13.925] if (FALSE) { 1533s [00:52:13.925] } 1533s [00:52:13.925] else { 1533s [00:52:13.925] if (TRUE) { 1533s [00:52:13.925] ...future.stdout <- base::rawConnection(base::raw(0L), 1533s [00:52:13.925] open = "w") 1533s [00:52:13.925] } 1533s [00:52:13.925] else { 1533s [00:52:13.925] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1533s [00:52:13.925] windows = "NUL", "/dev/null"), open = "w") 1533s [00:52:13.925] } 1533s [00:52:13.925] base::sink(...future.stdout, type = "output", split = FALSE) 1533s [00:52:13.925] base::on.exit(if (!base::is.null(...future.stdout)) { 1533s [00:52:13.925] base::sink(type = "output", split = FALSE) 1533s [00:52:13.925] base::close(...future.stdout) 1533s [00:52:13.925] }, add = TRUE) 1533s [00:52:13.925] } 1533s [00:52:13.925] ...future.frame <- base::sys.nframe() 1533s [00:52:13.925] ...future.conditions <- base::list() 1533s [00:52:13.925] ...future.rng <- base::globalenv()$.Random.seed 1533s [00:52:13.925] if (FALSE) { 1533s [00:52:13.925] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1533s [00:52:13.925] "...future.value", "...future.globalenv.names", ".Random.seed") 1533s [00:52:13.925] } 1533s [00:52:13.925] ...future.result <- base::tryCatch({ 1533s [00:52:13.925] base::withCallingHandlers({ 1533s [00:52:13.925] ...future.value <- base::withVisible(base::local({ 1533s [00:52:13.925] do.call(function(...) { 1533s [00:52:13.925] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1533s [00:52:13.925] if (!identical(...future.globals.maxSize.org, 1533s [00:52:13.925] ...future.globals.maxSize)) { 1533s [00:52:13.925] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1533s [00:52:13.925] on.exit(options(oopts), add = TRUE) 1533s [00:52:13.925] } 1533s [00:52:13.925] { 1533s [00:52:13.925] lapply(seq_along(...future.elements_ii), 1533s [00:52:13.925] FUN = function(jj) { 1533s [00:52:13.925] ...future.X_jj <- ...future.elements_ii[[jj]] 1533s [00:52:13.925] ...future.FUN(...future.X_jj, ...) 1533s [00:52:13.925] }) 1533s [00:52:13.925] } 1533s [00:52:13.925] }, args = future.call.arguments) 1533s [00:52:13.925] })) 1533s [00:52:13.925] future::FutureResult(value = ...future.value$value, 1533s [00:52:13.925] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1533s [00:52:13.925] ...future.rng), globalenv = if (FALSE) 1533s [00:52:13.925] list(added = base::setdiff(base::names(base::.GlobalEnv), 1533s [00:52:13.925] ...future.globalenv.names)) 1533s [00:52:13.925] else NULL, started = ...future.startTime, version = "1.8") 1533s [00:52:13.925] }, condition = base::local({ 1533s [00:52:13.925] c <- base::c 1533s [00:52:13.925] inherits <- base::inherits 1533s [00:52:13.925] invokeRestart <- base::invokeRestart 1533s [00:52:13.925] length <- base::length 1533s [00:52:13.925] list <- base::list 1533s [00:52:13.925] seq.int <- base::seq.int 1533s [00:52:13.925] signalCondition <- base::signalCondition 1533s [00:52:13.925] sys.calls <- base::sys.calls 1533s [00:52:13.925] `[[` <- base::`[[` 1533s [00:52:13.925] `+` <- base::`+` 1533s [00:52:13.925] `<<-` <- base::`<<-` 1533s [00:52:13.925] sysCalls <- function(calls = sys.calls(), from = 1L) { 1533s [00:52:13.925] calls[seq.int(from = from + 12L, to = length(calls) - 1533s [00:52:13.925] 3L)] 1533s [00:52:13.925] } 1533s [00:52:13.925] function(cond) { 1533s [00:52:13.925] is_error <- inherits(cond, "error") 1533s [00:52:13.925] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1533s [00:52:13.925] NULL) 1533s [00:52:13.925] if (is_error) { 1533s [00:52:13.925] sessionInformation <- function() { 1533s [00:52:13.925] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1533s [00:52:13.925] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1533s [00:52:13.925] search = base::search(), system = base::Sys.info()) 1533s [00:52:13.925] } 1533s [00:52:13.925] ...future.conditions[[length(...future.conditions) + 1533s [00:52:13.925] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1533s [00:52:13.925] cond$call), session = sessionInformation(), 1533s [00:52:13.925] timestamp = base::Sys.time(), signaled = 0L) 1533s [00:52:13.925] signalCondition(cond) 1533s [00:52:13.925] } 1533s [00:52:13.925] else if (!ignore && TRUE && inherits(cond, c("condition", 1533s [00:52:13.925] "immediateCondition"))) { 1533s [00:52:13.925] signal <- TRUE && inherits(cond, "immediateCondition") 1533s [00:52:13.925] ...future.conditions[[length(...future.conditions) + 1533s [00:52:13.925] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1533s [00:52:13.925] if (TRUE && !signal) { 1533s [00:52:13.925] muffleCondition <- function (cond, pattern = "^muffle") 1533s [00:52:13.925] { 1533s [00:52:13.925] inherits <- base::inherits 1533s [00:52:13.925] invokeRestart <- base::invokeRestart 1533s [00:52:13.925] is.null <- base::is.null 1533s [00:52:13.925] muffled <- FALSE 1533s [00:52:13.925] if (inherits(cond, "message")) { 1533s [00:52:13.925] muffled <- grepl(pattern, "muffleMessage") 1533s [00:52:13.925] if (muffled) 1533s [00:52:13.925] invokeRestart("muffleMessage") 1533s [00:52:13.925] } 1533s [00:52:13.925] else if (inherits(cond, "warning")) { 1533s [00:52:13.925] muffled <- grepl(pattern, "muffleWarning") 1533s [00:52:13.925] if (muffled) 1533s [00:52:13.925] invokeRestart("muffleWarning") 1533s [00:52:13.925] } 1533s [00:52:13.925] else if (inherits(cond, "condition")) { 1533s [00:52:13.925] if (!is.null(pattern)) { 1533s [00:52:13.925] computeRestarts <- base::computeRestarts 1533s [00:52:13.925] grepl <- base::grepl 1533s [00:52:13.925] restarts <- computeRestarts(cond) 1533s [00:52:13.925] for (restart in restarts) { 1533s [00:52:13.925] name <- restart$name 1533s [00:52:13.925] if (is.null(name)) 1533s [00:52:13.925] next 1533s [00:52:13.925] if (!grepl(pattern, name)) 1533s [00:52:13.925] next 1533s [00:52:13.925] invokeRestart(restart) 1533s [00:52:13.925] muffled <- TRUE 1533s [00:52:13.925] break 1533s [00:52:13.925] } 1533s [00:52:13.925] } 1533s [00:52:13.925] } 1533s [00:52:13.925] invisible(muffled) 1533s [00:52:13.925] } 1533s [00:52:13.925] muffleCondition(cond, pattern = "^muffle") 1533s [00:52:13.925] } 1533s [00:52:13.925] } 1533s [00:52:13.925] else { 1533s [00:52:13.925] if (TRUE) { 1533s [00:52:13.925] muffleCondition <- function (cond, pattern = "^muffle") 1533s [00:52:13.925] { 1533s [00:52:13.925] inherits <- base::inherits 1533s [00:52:13.925] invokeRestart <- base::invokeRestart 1533s [00:52:13.925] is.null <- base::is.null 1533s [00:52:13.925] muffled <- FALSE 1533s [00:52:13.925] if (inherits(cond, "message")) { 1533s [00:52:13.925] muffled <- grepl(pattern, "muffleMessage") 1533s [00:52:13.925] if (muffled) 1533s [00:52:13.925] invokeRestart("muffleMessage") 1533s [00:52:13.925] } 1533s [00:52:13.925] else if (inherits(cond, "warning")) { 1533s [00:52:13.925] muffled <- grepl(pattern, "muffleWarning") 1533s [00:52:13.925] if (muffled) 1533s [00:52:13.925] invokeRestart("muffleWarning") 1533s [00:52:13.925] } 1533s [00:52:13.925] else if (inherits(cond, "condition")) { 1533s [00:52:13.925] if (!is.null(pattern)) { 1533s [00:52:13.925] computeRestarts <- base::computeRestarts 1533s [00:52:13.925] grepl <- base::grepl 1533s [00:52:13.925] restarts <- computeRestarts(cond) 1533s [00:52:13.925] for (restart in restarts) { 1533s [00:52:13.925] name <- restart$name 1533s [00:52:13.925] if (is.null(name)) 1533s [00:52:13.925] next 1533s [00:52:13.925] if (!grepl(pattern, name)) 1533s [00:52:13.925] next 1533s [00:52:13.925] invokeRestart(restart) 1533s [00:52:13.925] muffled <- TRUE 1533s [00:52:13.925] break 1533s [00:52:13.925] } 1533s [00:52:13.925] } 1533s [00:52:13.925] } 1533s [00:52:13.925] invisible(muffled) 1533s [00:52:13.925] } 1533s [00:52:13.925] muffleCondition(cond, pattern = "^muffle") 1533s [00:52:13.925] } 1533s [00:52:13.925] } 1533s [00:52:13.925] } 1533s [00:52:13.925] })) 1533s [00:52:13.925] }, error = function(ex) { 1533s [00:52:13.925] base::structure(base::list(value = NULL, visible = NULL, 1533s [00:52:13.925] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1533s [00:52:13.925] ...future.rng), started = ...future.startTime, 1533s [00:52:13.925] finished = Sys.time(), session_uuid = NA_character_, 1533s [00:52:13.925] version = "1.8"), class = "FutureResult") 1533s [00:52:13.925] }, finally = { 1533s [00:52:13.925] if (!identical(...future.workdir, getwd())) 1533s [00:52:13.925] setwd(...future.workdir) 1533s [00:52:13.925] { 1533s [00:52:13.925] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1533s [00:52:13.925] ...future.oldOptions$nwarnings <- NULL 1533s [00:52:13.925] } 1533s [00:52:13.925] base::options(...future.oldOptions) 1533s [00:52:13.925] if (.Platform$OS.type == "windows") { 1533s [00:52:13.925] old_names <- names(...future.oldEnvVars) 1533s [00:52:13.925] envs <- base::Sys.getenv() 1533s [00:52:13.925] names <- names(envs) 1533s [00:52:13.925] common <- intersect(names, old_names) 1533s [00:52:13.925] added <- setdiff(names, old_names) 1533s [00:52:13.925] removed <- setdiff(old_names, names) 1533s [00:52:13.925] changed <- common[...future.oldEnvVars[common] != 1533s [00:52:13.925] envs[common]] 1533s [00:52:13.925] NAMES <- toupper(changed) 1533s [00:52:13.925] args <- list() 1533s [00:52:13.925] for (kk in seq_along(NAMES)) { 1533s [00:52:13.925] name <- changed[[kk]] 1533s [00:52:13.925] NAME <- NAMES[[kk]] 1533s [00:52:13.925] if (name != NAME && is.element(NAME, old_names)) 1533s [00:52:13.925] next 1533s [00:52:13.925] args[[name]] <- ...future.oldEnvVars[[name]] 1533s [00:52:13.925] } 1533s [00:52:13.925] NAMES <- toupper(added) 1533s [00:52:13.925] for (kk in seq_along(NAMES)) { 1533s [00:52:13.925] name <- added[[kk]] 1533s [00:52:13.925] NAME <- NAMES[[kk]] 1533s [00:52:13.925] if (name != NAME && is.element(NAME, old_names)) 1533s [00:52:13.925] next 1533s [00:52:13.925] args[[name]] <- "" 1533s [00:52:13.925] } 1533s [00:52:13.925] NAMES <- toupper(removed) 1533s [00:52:13.925] for (kk in seq_along(NAMES)) { 1533s [00:52:13.925] name <- removed[[kk]] 1533s [00:52:13.925] NAME <- NAMES[[kk]] 1533s [00:52:13.925] if (name != NAME && is.element(NAME, old_names)) 1533s [00:52:13.925] next 1533s [00:52:13.925] args[[name]] <- ...future.oldEnvVars[[name]] 1533s [00:52:13.925] } 1533s [00:52:13.925] if (length(args) > 0) 1533s [00:52:13.925] base::do.call(base::Sys.setenv, args = args) 1533s [00:52:13.925] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1533s [00:52:13.925] } 1533s [00:52:13.925] else { 1533s [00:52:13.925] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1533s [00:52:13.925] } 1533s [00:52:13.925] { 1533s [00:52:13.925] if (base::length(...future.futureOptionsAdded) > 1533s [00:52:13.925] 0L) { 1533s [00:52:13.925] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1533s [00:52:13.925] base::names(opts) <- ...future.futureOptionsAdded 1533s [00:52:13.925] base::options(opts) 1533s [00:52:13.925] } 1533s [00:52:13.925] { 1533s [00:52:13.925] { 1533s [00:52:13.925] NULL 1533s [00:52:13.925] RNGkind("Mersenne-Twister") 1533s [00:52:13.925] base::rm(list = ".Random.seed", envir = base::globalenv(), 1533s [00:52:13.925] inherits = FALSE) 1533s [00:52:13.925] } 1533s [00:52:13.925] options(future.plan = NULL) 1533s [00:52:13.925] if (is.na(NA_character_)) 1533s [00:52:13.925] Sys.unsetenv("R_FUTURE_PLAN") 1533s [00:52:13.925] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1533s [00:52:13.925] future::plan(list(function (..., envir = parent.frame()) 1533s [00:52:13.925] { 1533s [00:52:13.925] future <- SequentialFuture(..., envir = envir) 1533s [00:52:13.925] if (!future$lazy) 1533s [00:52:13.925] future <- run(future) 1533s [00:52:13.925] invisible(future) 1533s [00:52:13.925] }), .cleanup = FALSE, .init = FALSE) 1533s [00:52:13.925] } 1533s [00:52:13.925] } 1533s [00:52:13.925] } 1533s [00:52:13.925] }) 1533s [00:52:13.925] if (TRUE) { 1533s [00:52:13.925] base::sink(type = "output", split = FALSE) 1533s [00:52:13.925] if (TRUE) { 1533s [00:52:13.925] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1533s [00:52:13.925] } 1533s [00:52:13.925] else { 1533s [00:52:13.925] ...future.result["stdout"] <- base::list(NULL) 1533s [00:52:13.925] } 1533s [00:52:13.925] base::close(...future.stdout) 1533s [00:52:13.925] ...future.stdout <- NULL 1533s [00:52:13.925] } 1533s [00:52:13.925] ...future.result$conditions <- ...future.conditions 1533s [00:52:13.925] ...future.result$finished <- base::Sys.time() 1533s [00:52:13.925] ...future.result 1533s [00:52:13.925] } 1533s [00:52:13.931] assign_globals() ... 1533s [00:52:13.931] List of 5 1533s [00:52:13.931] $ ...future.FUN :function (x, ...) 1533s [00:52:13.931] $ future.call.arguments : list() 1533s [00:52:13.931] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1533s [00:52:13.931] $ ...future.elements_ii :List of 3 1533s [00:52:13.931] ..$ logic: logi [1:4] TRUE FALSE FALSE TRUE 1533s [00:52:13.931] ..$ beta : num [1:7] 0.0498 0.1353 0.3679 1 2.7183 ... 1533s [00:52:13.931] ..$ a : int [1:10] 1 2 3 4 5 6 7 8 9 10 1533s [00:52:13.931] $ ...future.seeds_ii : NULL 1533s [00:52:13.931] $ ...future.globals.maxSize: NULL 1533s [00:52:13.931] - attr(*, "where")=List of 5 1533s [00:52:13.931] ..$ ...future.FUN : 1533s [00:52:13.931] ..$ future.call.arguments : 1533s [00:52:13.931] ..$ ...future.elements_ii : 1533s [00:52:13.931] ..$ ...future.seeds_ii : 1533s [00:52:13.931] ..$ ...future.globals.maxSize: 1533s [00:52:13.931] - attr(*, "resolved")= logi FALSE 1533s [00:52:13.931] - attr(*, "total_size")= num 1248 1533s [00:52:13.931] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1533s [00:52:13.931] - attr(*, "already-done")= logi TRUE 1533s [00:52:13.940] - copied ‘...future.FUN’ to environment 1533s [00:52:13.941] - copied ‘future.call.arguments’ to environment 1533s [00:52:13.941] - copied ‘...future.elements_ii’ to environment 1533s [00:52:13.941] - copied ‘...future.seeds_ii’ to environment 1533s [00:52:13.942] - copied ‘...future.globals.maxSize’ to environment 1533s [00:52:13.942] assign_globals() ... done 1533s [00:52:13.943] plan(): Setting new future strategy stack: 1533s [00:52:13.943] List of future strategies: 1533s [00:52:13.943] 1. sequential: 1533s [00:52:13.943] - args: function (..., envir = parent.frame()) 1533s [00:52:13.943] - tweaked: FALSE 1533s [00:52:13.943] - call: NULL 1533s [00:52:13.944] plan(): nbrOfWorkers() = 1 1533s [00:52:13.945] plan(): Setting new future strategy stack: 1533s [00:52:13.946] List of future strategies: 1533s [00:52:13.946] 1. sequential: 1533s [00:52:13.946] - args: function (..., envir = parent.frame()) 1533s [00:52:13.946] - tweaked: FALSE 1533s [00:52:13.946] - call: plan(strategy) 1533s [00:52:13.949] plan(): nbrOfWorkers() = 1 1533s [00:52:13.950] SequentialFuture started (and completed) 1533s [00:52:13.950] - Launch lazy future ... done 1533s [00:52:13.950] run() for ‘SequentialFuture’ ... done 1533s [00:52:13.950] Created future: 1533s [00:52:13.951] SequentialFuture: 1533s [00:52:13.951] Label: ‘future_eapply-1’ 1533s [00:52:13.951] Expression: 1533s [00:52:13.951] { 1533s [00:52:13.951] do.call(function(...) { 1533s [00:52:13.951] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1533s [00:52:13.951] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1533s [00:52:13.951] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1533s [00:52:13.951] on.exit(options(oopts), add = TRUE) 1533s [00:52:13.951] } 1533s [00:52:13.951] { 1533s [00:52:13.951] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1533s [00:52:13.951] ...future.X_jj <- ...future.elements_ii[[jj]] 1533s [00:52:13.951] ...future.FUN(...future.X_jj, ...) 1533s [00:52:13.951] }) 1533s [00:52:13.951] } 1533s [00:52:13.951] }, args = future.call.arguments) 1533s [00:52:13.951] } 1533s [00:52:13.951] Lazy evaluation: FALSE 1533s [00:52:13.951] Asynchronous evaluation: FALSE 1533s [00:52:13.951] Local evaluation: TRUE 1533s [00:52:13.951] Environment: R_GlobalEnv 1533s [00:52:13.951] Capture standard output: TRUE 1533s [00:52:13.951] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1533s [00:52:13.951] Globals: 5 objects totaling 1.48 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 272 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1533s [00:52:13.951] Packages: 1 packages (‘stats’) 1533s [00:52:13.951] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1533s [00:52:13.951] Resolved: TRUE 1533s [00:52:13.951] Value: 1.71 KiB of class ‘list’ 1533s [00:52:13.951] Early signaling: FALSE 1533s [00:52:13.951] Owner process: a67f97e2-ffea-5be0-b95e-c580db557e5a 1533s [00:52:13.951] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1533s [00:52:13.952] Chunk #1 of 1 ... DONE 1533s [00:52:13.953] Launching 1 futures (chunks) ... DONE 1533s [00:52:13.953] Resolving 1 futures (chunks) ... 1533s [00:52:13.953] resolve() on list ... 1533s [00:52:13.953] recursive: 0 1533s [00:52:13.953] length: 1 1533s [00:52:13.953] 1533s [00:52:13.953] resolved() for ‘SequentialFuture’ ... 1533s [00:52:13.954] - state: ‘finished’ 1533s [00:52:13.954] - run: TRUE 1533s [00:52:13.954] - result: ‘FutureResult’ 1533s [00:52:13.954] resolved() for ‘SequentialFuture’ ... done 1533s [00:52:13.954] Future #1 1533s [00:52:13.955] signalConditionsASAP(SequentialFuture, pos=1) ... 1533s [00:52:13.955] - nx: 1 1533s [00:52:13.955] - relay: TRUE 1533s [00:52:13.955] - stdout: TRUE 1533s [00:52:13.955] - signal: TRUE 1533s [00:52:13.955] - resignal: FALSE 1533s [00:52:13.955] - force: TRUE 1533s [00:52:13.955] - relayed: [n=1] FALSE 1533s [00:52:13.956] - queued futures: [n=1] FALSE 1533s [00:52:13.956] - until=1 1533s [00:52:13.956] - relaying element #1 1533s [00:52:13.957] - relayed: [n=1] TRUE 1533s [00:52:13.957] - queued futures: [n=1] TRUE 1533s [00:52:13.957] signalConditionsASAP(SequentialFuture, pos=1) ... done 1533s [00:52:13.957] length: 0 (resolved future 1) 1533s [00:52:13.957] Relaying remaining futures 1533s [00:52:13.957] signalConditionsASAP(NULL, pos=0) ... 1533s [00:52:13.958] - nx: 1 1533s [00:52:13.958] - relay: TRUE 1533s [00:52:13.958] - stdout: TRUE 1533s [00:52:13.958] - signal: TRUE 1533s [00:52:13.958] - resignal: FALSE 1533s [00:52:13.958] - force: TRUE 1533s [00:52:13.958] - relayed: [n=1] TRUE 1533s [00:52:13.959] - queued futures: [n=1] TRUE 1533s - flush all 1533s [00:52:13.959] - relayed: [n=1] TRUE 1533s [00:52:13.959] - queued futures: [n=1] TRUE 1533s [00:52:13.959] signalConditionsASAP(NULL, pos=0) ... done 1533s [00:52:13.959] resolve() on list ... DONE 1533s [00:52:13.960] - Number of value chunks collected: 1 1533s [00:52:13.960] Resolving 1 futures (chunks) ... DONE 1533s [00:52:13.960] Reducing values from 1 chunks ... 1533s [00:52:13.960] - Number of values collected after concatenation: 3 1533s [00:52:13.960] - Number of values expected: 3 1533s [00:52:13.960] Reducing values from 1 chunks ... DONE 1533s [00:52:13.960] future_lapply() ... DONE 1533s [00:52:13.961] future_lapply() ... 1533s [00:52:13.962] Number of chunks: 1 1533s [00:52:13.962] getGlobalsAndPackagesXApply() ... 1533s [00:52:13.962] - future.globals: TRUE 1533s [00:52:13.963] getGlobalsAndPackages() ... 1533s [00:52:13.963] Searching for globals... 1533s [00:52:13.964] - globals found: [2] ‘FUN’, ‘UseMethod’ 1533s [00:52:13.965] Searching for globals ... DONE 1533s [00:52:13.965] Resolving globals: FALSE 1533s [00:52:13.965] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1533s [00:52:13.966] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1533s [00:52:13.966] - globals: [1] ‘FUN’ 1533s [00:52:13.966] - packages: [1] ‘stats’ 1533s [00:52:13.967] getGlobalsAndPackages() ... DONE 1533s [00:52:13.967] - globals found/used: [n=1] ‘FUN’ 1533s [00:52:13.967] - needed namespaces: [n=1] ‘stats’ 1533s [00:52:13.967] Finding globals ... DONE 1533s [00:52:13.967] - use_args: TRUE 1533s [00:52:13.967] - Getting '...' globals ... 1533s [00:52:13.968] resolve() on list ... 1533s [00:52:13.969] recursive: 0 1533s [00:52:13.969] length: 1 1533s [00:52:13.970] elements: ‘...’ 1534s [00:52:13.970] length: 0 (resolved future 1) 1534s [00:52:13.970] resolve() on list ... DONE 1534s [00:52:13.971] - '...' content: [n=0] 1534s [00:52:13.971] List of 1 1534s [00:52:13.971] $ ...: list() 1534s [00:52:13.971] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1534s [00:52:13.971] - attr(*, "where")=List of 1 1534s [00:52:13.971] ..$ ...: 1534s [00:52:13.971] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1534s [00:52:13.971] - attr(*, "resolved")= logi TRUE 1534s [00:52:13.971] - attr(*, "total_size")= num NA 1534s [00:52:13.976] - Getting '...' globals ... DONE 1534s [00:52:13.976] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1534s [00:52:13.977] List of 2 1534s [00:52:13.977] $ ...future.FUN:function (x, ...) 1534s [00:52:13.977] $ ... : list() 1534s [00:52:13.977] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1534s [00:52:13.977] - attr(*, "where")=List of 2 1534s [00:52:13.977] ..$ ...future.FUN: 1534s [00:52:13.977] ..$ ... : 1534s [00:52:13.977] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1534s [00:52:13.977] - attr(*, "resolved")= logi FALSE 1534s [00:52:13.977] - attr(*, "total_size")= num 1248 1534s [00:52:13.985] Packages to be attached in all futures: [n=1] ‘stats’ 1534s [00:52:13.985] getGlobalsAndPackagesXApply() ... DONE 1534s [00:52:13.985] Number of futures (= number of chunks): 1 1534s [00:52:13.986] Launching 1 futures (chunks) ... 1534s [00:52:13.986] Chunk #1 of 1 ... 1534s [00:52:13.986] - Finding globals in 'X' for chunk #1 ... 1534s [00:52:13.986] getGlobalsAndPackages() ... 1534s [00:52:13.986] Searching for globals... 1534s [00:52:13.987] 1534s [00:52:13.987] Searching for globals ... DONE 1534s [00:52:13.987] - globals: [0] 1534s [00:52:13.987] getGlobalsAndPackages() ... DONE 1534s [00:52:13.987] + additional globals found: [n=0] 1534s [00:52:13.987] + additional namespaces needed: [n=0] 1534s [00:52:13.988] - Finding globals in 'X' for chunk #1 ... DONE 1534s [00:52:13.988] - seeds: 1534s [00:52:13.988] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1534s [00:52:13.988] getGlobalsAndPackages() ... 1534s [00:52:13.988] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1534s [00:52:13.988] Resolving globals: FALSE 1534s [00:52:13.989] Tweak future expression to call with '...' arguments ... 1534s [00:52:13.989] { 1534s [00:52:13.989] do.call(function(...) { 1534s [00:52:13.989] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1534s [00:52:13.989] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1534s [00:52:13.989] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1534s [00:52:13.989] on.exit(options(oopts), add = TRUE) 1534s [00:52:13.989] } 1534s [00:52:13.989] { 1534s [00:52:13.989] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1534s [00:52:13.989] ...future.X_jj <- ...future.elements_ii[[jj]] 1534s [00:52:13.989] ...future.FUN(...future.X_jj, ...) 1534s [00:52:13.989] }) 1534s [00:52:13.989] } 1534s [00:52:13.989] }, args = future.call.arguments) 1534s [00:52:13.989] } 1534s [00:52:13.989] Tweak future expression to call with '...' arguments ... DONE 1534s [00:52:13.991] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1534s [00:52:13.991] - packages: [1] ‘stats’ 1534s [00:52:13.992] getGlobalsAndPackages() ... DONE 1534s [00:52:13.992] run() for ‘Future’ ... 1534s [00:52:13.992] - state: ‘created’ 1534s [00:52:13.993] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1534s [00:52:13.993] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1534s [00:52:13.993] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1534s [00:52:13.993] - Field: ‘label’ 1534s [00:52:13.993] - Field: ‘local’ 1534s [00:52:13.994] - Field: ‘owner’ 1534s [00:52:13.994] - Field: ‘envir’ 1534s [00:52:13.994] - Field: ‘packages’ 1534s [00:52:13.994] - Field: ‘gc’ 1534s [00:52:13.994] - Field: ‘conditions’ 1534s [00:52:13.994] - Field: ‘expr’ 1534s [00:52:13.995] - Field: ‘uuid’ 1534s [00:52:13.995] - Field: ‘seed’ 1534s [00:52:13.995] - Field: ‘version’ 1534s [00:52:13.995] - Field: ‘result’ 1534s [00:52:13.996] - Field: ‘asynchronous’ 1534s [00:52:13.996] - Field: ‘calls’ 1534s [00:52:13.996] - Field: ‘globals’ 1534s [00:52:13.996] - Field: ‘stdout’ 1534s [00:52:13.996] - Field: ‘earlySignal’ 1534s [00:52:13.996] - Field: ‘lazy’ 1534s [00:52:13.996] - Field: ‘state’ 1534s [00:52:13.997] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1534s [00:52:13.997] - Launch lazy future ... 1534s [00:52:13.997] Packages needed by the future expression (n = 1): ‘stats’ 1534s [00:52:13.997] Packages needed by future strategies (n = 0): 1534s [00:52:13.998] { 1534s [00:52:13.998] { 1534s [00:52:13.998] { 1534s [00:52:13.998] ...future.startTime <- base::Sys.time() 1534s [00:52:13.998] { 1534s [00:52:13.998] { 1534s [00:52:13.998] { 1534s [00:52:13.998] { 1534s [00:52:13.998] base::local({ 1534s [00:52:13.998] has_future <- base::requireNamespace("future", 1534s [00:52:13.998] quietly = TRUE) 1534s [00:52:13.998] if (has_future) { 1534s [00:52:13.998] ns <- base::getNamespace("future") 1534s [00:52:13.998] version <- ns[[".package"]][["version"]] 1534s [00:52:13.998] if (is.null(version)) 1534s [00:52:13.998] version <- utils::packageVersion("future") 1534s [00:52:13.998] } 1534s [00:52:13.998] else { 1534s [00:52:13.998] version <- NULL 1534s [00:52:13.998] } 1534s [00:52:13.998] if (!has_future || version < "1.8.0") { 1534s [00:52:13.998] info <- base::c(r_version = base::gsub("R version ", 1534s [00:52:13.998] "", base::R.version$version.string), 1534s [00:52:13.998] platform = base::sprintf("%s (%s-bit)", 1534s [00:52:13.998] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1534s [00:52:13.998] os = base::paste(base::Sys.info()[base::c("sysname", 1534s [00:52:13.998] "release", "version")], collapse = " "), 1534s [00:52:13.998] hostname = base::Sys.info()[["nodename"]]) 1534s [00:52:13.998] info <- base::sprintf("%s: %s", base::names(info), 1534s [00:52:13.998] info) 1534s [00:52:13.998] info <- base::paste(info, collapse = "; ") 1534s [00:52:13.998] if (!has_future) { 1534s [00:52:13.998] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1534s [00:52:13.998] info) 1534s [00:52:13.998] } 1534s [00:52:13.998] else { 1534s [00:52:13.998] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1534s [00:52:13.998] info, version) 1534s [00:52:13.998] } 1534s [00:52:13.998] base::stop(msg) 1534s [00:52:13.998] } 1534s [00:52:13.998] }) 1534s [00:52:13.998] } 1534s [00:52:13.998] base::local({ 1534s [00:52:13.998] for (pkg in "stats") { 1534s [00:52:13.998] base::loadNamespace(pkg) 1534s [00:52:13.998] base::library(pkg, character.only = TRUE) 1534s [00:52:13.998] } 1534s [00:52:13.998] }) 1534s [00:52:13.998] } 1534s [00:52:13.998] options(future.plan = NULL) 1534s [00:52:13.998] Sys.unsetenv("R_FUTURE_PLAN") 1534s [00:52:13.998] future::plan("default", .cleanup = FALSE, .init = FALSE) 1534s [00:52:13.998] } 1534s [00:52:13.998] ...future.workdir <- getwd() 1534s [00:52:13.998] } 1534s [00:52:13.998] ...future.oldOptions <- base::as.list(base::.Options) 1534s [00:52:13.998] ...future.oldEnvVars <- base::Sys.getenv() 1534s [00:52:13.998] } 1534s [00:52:13.998] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1534s [00:52:13.998] future.globals.maxSize = NULL, future.globals.method = NULL, 1534s [00:52:13.998] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1534s [00:52:13.998] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1534s [00:52:13.998] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1534s [00:52:13.998] future.stdout.windows.reencode = NULL, width = 80L) 1534s [00:52:13.998] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1534s [00:52:13.998] base::names(...future.oldOptions)) 1534s [00:52:13.998] } 1534s [00:52:13.998] if (FALSE) { 1534s [00:52:13.998] } 1534s [00:52:13.998] else { 1534s [00:52:13.998] if (TRUE) { 1534s [00:52:13.998] ...future.stdout <- base::rawConnection(base::raw(0L), 1534s [00:52:13.998] open = "w") 1534s [00:52:13.998] } 1534s [00:52:13.998] else { 1534s [00:52:13.998] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1534s [00:52:13.998] windows = "NUL", "/dev/null"), open = "w") 1534s [00:52:13.998] } 1534s [00:52:13.998] base::sink(...future.stdout, type = "output", split = FALSE) 1534s [00:52:13.998] base::on.exit(if (!base::is.null(...future.stdout)) { 1534s [00:52:13.998] base::sink(type = "output", split = FALSE) 1534s [00:52:13.998] base::close(...future.stdout) 1534s [00:52:13.998] }, add = TRUE) 1534s [00:52:13.998] } 1534s [00:52:13.998] ...future.frame <- base::sys.nframe() 1534s [00:52:13.998] ...future.conditions <- base::list() 1534s [00:52:13.998] ...future.rng <- base::globalenv()$.Random.seed 1534s [00:52:13.998] if (FALSE) { 1534s [00:52:13.998] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1534s [00:52:13.998] "...future.value", "...future.globalenv.names", ".Random.seed") 1534s [00:52:13.998] } 1534s [00:52:13.998] ...future.result <- base::tryCatch({ 1534s [00:52:13.998] base::withCallingHandlers({ 1534s [00:52:13.998] ...future.value <- base::withVisible(base::local({ 1534s [00:52:13.998] do.call(function(...) { 1534s [00:52:13.998] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1534s [00:52:13.998] if (!identical(...future.globals.maxSize.org, 1534s [00:52:13.998] ...future.globals.maxSize)) { 1534s [00:52:13.998] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1534s [00:52:13.998] on.exit(options(oopts), add = TRUE) 1534s [00:52:13.998] } 1534s [00:52:13.998] { 1534s [00:52:13.998] lapply(seq_along(...future.elements_ii), 1534s [00:52:13.998] FUN = function(jj) { 1534s [00:52:13.998] ...future.X_jj <- ...future.elements_ii[[jj]] 1534s [00:52:13.998] ...future.FUN(...future.X_jj, ...) 1534s [00:52:13.998] }) 1534s [00:52:13.998] } 1534s [00:52:13.998] }, args = future.call.arguments) 1534s [00:52:13.998] })) 1534s [00:52:13.998] future::FutureResult(value = ...future.value$value, 1534s [00:52:13.998] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1534s [00:52:13.998] ...future.rng), globalenv = if (FALSE) 1534s [00:52:13.998] list(added = base::setdiff(base::names(base::.GlobalEnv), 1534s [00:52:13.998] ...future.globalenv.names)) 1534s [00:52:13.998] else NULL, started = ...future.startTime, version = "1.8") 1534s [00:52:13.998] }, condition = base::local({ 1534s [00:52:13.998] c <- base::c 1534s [00:52:13.998] inherits <- base::inherits 1534s [00:52:13.998] invokeRestart <- base::invokeRestart 1534s [00:52:13.998] length <- base::length 1534s [00:52:13.998] list <- base::list 1534s [00:52:13.998] seq.int <- base::seq.int 1534s [00:52:13.998] signalCondition <- base::signalCondition 1534s [00:52:13.998] sys.calls <- base::sys.calls 1534s [00:52:13.998] `[[` <- base::`[[` 1534s [00:52:13.998] `+` <- base::`+` 1534s [00:52:13.998] `<<-` <- base::`<<-` 1534s [00:52:13.998] sysCalls <- function(calls = sys.calls(), from = 1L) { 1534s [00:52:13.998] calls[seq.int(from = from + 12L, to = length(calls) - 1534s [00:52:13.998] 3L)] 1534s [00:52:13.998] } 1534s [00:52:13.998] function(cond) { 1534s [00:52:13.998] is_error <- inherits(cond, "error") 1534s [00:52:13.998] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1534s [00:52:13.998] NULL) 1534s [00:52:13.998] if (is_error) { 1534s [00:52:13.998] sessionInformation <- function() { 1534s [00:52:13.998] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1534s [00:52:13.998] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1534s [00:52:13.998] search = base::search(), system = base::Sys.info()) 1534s [00:52:13.998] } 1534s [00:52:13.998] ...future.conditions[[length(...future.conditions) + 1534s [00:52:13.998] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1534s [00:52:13.998] cond$call), session = sessionInformation(), 1534s [00:52:13.998] timestamp = base::Sys.time(), signaled = 0L) 1534s [00:52:13.998] signalCondition(cond) 1534s [00:52:13.998] } 1534s [00:52:13.998] else if (!ignore && TRUE && inherits(cond, c("condition", 1534s [00:52:13.998] "immediateCondition"))) { 1534s [00:52:13.998] signal <- TRUE && inherits(cond, "immediateCondition") 1534s [00:52:13.998] ...future.conditions[[length(...future.conditions) + 1534s [00:52:13.998] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1534s [00:52:13.998] if (TRUE && !signal) { 1534s [00:52:13.998] muffleCondition <- function (cond, pattern = "^muffle") 1534s [00:52:13.998] { 1534s [00:52:13.998] inherits <- base::inherits 1534s [00:52:13.998] invokeRestart <- base::invokeRestart 1534s [00:52:13.998] is.null <- base::is.null 1534s [00:52:13.998] muffled <- FALSE 1534s [00:52:13.998] if (inherits(cond, "message")) { 1534s [00:52:13.998] muffled <- grepl(pattern, "muffleMessage") 1534s [00:52:13.998] if (muffled) 1534s [00:52:13.998] invokeRestart("muffleMessage") 1534s [00:52:13.998] } 1534s [00:52:13.998] else if (inherits(cond, "warning")) { 1534s [00:52:13.998] muffled <- grepl(pattern, "muffleWarning") 1534s [00:52:13.998] if (muffled) 1534s [00:52:13.998] invokeRestart("muffleWarning") 1534s [00:52:13.998] } 1534s [00:52:13.998] else if (inherits(cond, "condition")) { 1534s [00:52:13.998] if (!is.null(pattern)) { 1534s [00:52:13.998] computeRestarts <- base::computeRestarts 1534s [00:52:13.998] grepl <- base::grepl 1534s [00:52:13.998] restarts <- computeRestarts(cond) 1534s [00:52:13.998] for (restart in restarts) { 1534s [00:52:13.998] name <- restart$name 1534s [00:52:13.998] if (is.null(name)) 1534s [00:52:13.998] next 1534s [00:52:13.998] if (!grepl(pattern, name)) 1534s [00:52:13.998] next 1534s [00:52:13.998] invokeRestart(restart) 1534s [00:52:13.998] muffled <- TRUE 1534s [00:52:13.998] break 1534s [00:52:13.998] } 1534s [00:52:13.998] } 1534s [00:52:13.998] } 1534s [00:52:13.998] invisible(muffled) 1534s [00:52:13.998] } 1534s [00:52:13.998] muffleCondition(cond, pattern = "^muffle") 1534s [00:52:13.998] } 1534s [00:52:13.998] } 1534s [00:52:13.998] else { 1534s [00:52:13.998] if (TRUE) { 1534s [00:52:13.998] muffleCondition <- function (cond, pattern = "^muffle") 1534s [00:52:13.998] { 1534s [00:52:13.998] inherits <- base::inherits 1534s [00:52:13.998] invokeRestart <- base::invokeRestart 1534s [00:52:13.998] is.null <- base::is.null 1534s [00:52:13.998] muffled <- FALSE 1534s [00:52:13.998] if (inherits(cond, "message")) { 1534s [00:52:13.998] muffled <- grepl(pattern, "muffleMessage") 1534s [00:52:13.998] if (muffled) 1534s [00:52:13.998] invokeRestart("muffleMessage") 1534s [00:52:13.998] } 1534s [00:52:13.998] else if (inherits(cond, "warning")) { 1534s [00:52:13.998] muffled <- grepl(pattern, "muffleWarning") 1534s [00:52:13.998] if (muffled) 1534s [00:52:13.998] invokeRestart("muffleWarning") 1534s [00:52:13.998] } 1534s [00:52:13.998] else if (inherits(cond, "condition")) { 1534s [00:52:13.998] if (!is.null(pattern)) { 1534s [00:52:13.998] computeRestarts <- base::computeRestarts 1534s [00:52:13.998] grepl <- base::grepl 1534s [00:52:13.998] restarts <- computeRestarts(cond) 1534s [00:52:13.998] for (restart in restarts) { 1534s [00:52:13.998] name <- restart$name 1534s [00:52:13.998] if (is.null(name)) 1534s [00:52:13.998] next 1534s [00:52:13.998] if (!grepl(pattern, name)) 1534s [00:52:13.998] next 1534s [00:52:13.998] invokeRestart(restart) 1534s [00:52:13.998] muffled <- TRUE 1534s [00:52:13.998] break 1534s [00:52:13.998] } 1534s [00:52:13.998] } 1534s [00:52:13.998] } 1534s [00:52:13.998] invisible(muffled) 1534s [00:52:13.998] } 1534s [00:52:13.998] muffleCondition(cond, pattern = "^muffle") 1534s [00:52:13.998] } 1534s [00:52:13.998] } 1534s [00:52:13.998] } 1534s [00:52:13.998] })) 1534s [00:52:13.998] }, error = function(ex) { 1534s [00:52:13.998] base::structure(base::list(value = NULL, visible = NULL, 1534s [00:52:13.998] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1534s [00:52:13.998] ...future.rng), started = ...future.startTime, 1534s [00:52:13.998] finished = Sys.time(), session_uuid = NA_character_, 1534s [00:52:13.998] version = "1.8"), class = "FutureResult") 1534s [00:52:13.998] }, finally = { 1534s [00:52:13.998] if (!identical(...future.workdir, getwd())) 1534s [00:52:13.998] setwd(...future.workdir) 1534s [00:52:13.998] { 1534s [00:52:13.998] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1534s [00:52:13.998] ...future.oldOptions$nwarnings <- NULL 1534s [00:52:13.998] } 1534s [00:52:13.998] base::options(...future.oldOptions) 1534s [00:52:13.998] if (.Platform$OS.type == "windows") { 1534s [00:52:13.998] old_names <- names(...future.oldEnvVars) 1534s [00:52:13.998] envs <- base::Sys.getenv() 1534s [00:52:13.998] names <- names(envs) 1534s [00:52:13.998] common <- intersect(names, old_names) 1534s [00:52:13.998] added <- setdiff(names, old_names) 1534s [00:52:13.998] removed <- setdiff(old_names, names) 1534s [00:52:13.998] changed <- common[...future.oldEnvVars[common] != 1534s [00:52:13.998] envs[common]] 1534s [00:52:13.998] NAMES <- toupper(changed) 1534s [00:52:13.998] args <- list() 1534s [00:52:13.998] for (kk in seq_along(NAMES)) { 1534s [00:52:13.998] name <- changed[[kk]] 1534s [00:52:13.998] NAME <- NAMES[[kk]] 1534s [00:52:13.998] if (name != NAME && is.element(NAME, old_names)) 1534s [00:52:13.998] next 1534s [00:52:13.998] args[[name]] <- ...future.oldEnvVars[[name]] 1534s [00:52:13.998] } 1534s [00:52:13.998] NAMES <- toupper(added) 1534s [00:52:13.998] for (kk in seq_along(NAMES)) { 1534s [00:52:13.998] name <- added[[kk]] 1534s [00:52:13.998] NAME <- NAMES[[kk]] 1534s [00:52:13.998] if (name != NAME && is.element(NAME, old_names)) 1534s [00:52:13.998] next 1534s [00:52:13.998] args[[name]] <- "" 1534s [00:52:13.998] } 1534s [00:52:13.998] NAMES <- toupper(removed) 1534s [00:52:13.998] for (kk in seq_along(NAMES)) { 1534s [00:52:13.998] name <- removed[[kk]] 1534s [00:52:13.998] NAME <- NAMES[[kk]] 1534s [00:52:13.998] if (name != NAME && is.element(NAME, old_names)) 1534s [00:52:13.998] next 1534s [00:52:13.998] args[[name]] <- ...future.oldEnvVars[[name]] 1534s [00:52:13.998] } 1534s [00:52:13.998] if (length(args) > 0) 1534s [00:52:13.998] base::do.call(base::Sys.setenv, args = args) 1534s [00:52:13.998] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1534s [00:52:13.998] } 1534s [00:52:13.998] else { 1534s [00:52:13.998] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1534s [00:52:13.998] } 1534s [00:52:13.998] { 1534s [00:52:13.998] if (base::length(...future.futureOptionsAdded) > 1534s [00:52:13.998] 0L) { 1534s [00:52:13.998] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1534s [00:52:13.998] base::names(opts) <- ...future.futureOptionsAdded 1534s [00:52:13.998] base::options(opts) 1534s [00:52:13.998] } 1534s [00:52:13.998] { 1534s [00:52:13.998] { 1534s [00:52:13.998] NULL 1534s [00:52:13.998] RNGkind("Mersenne-Twister") 1534s [00:52:13.998] base::rm(list = ".Random.seed", envir = base::globalenv(), 1534s [00:52:13.998] inherits = FALSE) 1534s [00:52:13.998] } 1534s [00:52:13.998] options(future.plan = NULL) 1534s [00:52:13.998] if (is.na(NA_character_)) 1534s [00:52:13.998] Sys.unsetenv("R_FUTURE_PLAN") 1534s [00:52:13.998] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1534s [00:52:13.998] future::plan(list(function (..., envir = parent.frame()) 1534s [00:52:13.998] { 1534s [00:52:13.998] future <- SequentialFuture(..., envir = envir) 1534s [00:52:13.998] if (!future$lazy) 1534s [00:52:13.998] future <- run(future) 1534s [00:52:13.998] invisible(future) 1534s [00:52:13.998] }), .cleanup = FALSE, .init = FALSE) 1534s [00:52:13.998] } 1534s [00:52:13.998] } 1534s [00:52:13.998] } 1534s [00:52:13.998] }) 1534s [00:52:13.998] if (TRUE) { 1534s [00:52:13.998] base::sink(type = "output", split = FALSE) 1534s [00:52:13.998] if (TRUE) { 1534s [00:52:13.998] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1534s [00:52:13.998] } 1534s [00:52:13.998] else { 1534s [00:52:13.998] ...future.result["stdout"] <- base::list(NULL) 1534s [00:52:13.998] } 1534s [00:52:13.998] base::close(...future.stdout) 1534s [00:52:13.998] ...future.stdout <- NULL 1534s [00:52:13.998] } 1534s [00:52:13.998] ...future.result$conditions <- ...future.conditions 1534s [00:52:13.998] ...future.result$finished <- base::Sys.time() 1534s [00:52:13.998] ...future.result 1534s [00:52:13.998] } 1534s [00:52:14.003] assign_globals() ... 1534s [00:52:14.003] List of 5 1534s [00:52:14.003] $ ...future.FUN :function (x, ...) 1534s [00:52:14.003] $ future.call.arguments : list() 1534s [00:52:14.003] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1534s [00:52:14.003] $ ...future.elements_ii :List of 3 1534s [00:52:14.003] ..$ logic: logi [1:4] TRUE FALSE FALSE TRUE 1534s [00:52:14.003] ..$ beta : num [1:7] 0.0498 0.1353 0.3679 1 2.7183 ... 1534s [00:52:14.003] ..$ a : int [1:10] 1 2 3 4 5 6 7 8 9 10 1534s [00:52:14.003] $ ...future.seeds_ii : NULL 1534s [00:52:14.003] $ ...future.globals.maxSize: NULL 1534s [00:52:14.003] - attr(*, "where")=List of 5 1534s [00:52:14.003] ..$ ...future.FUN : 1534s [00:52:14.003] ..$ future.call.arguments : 1534s [00:52:14.003] ..$ ...future.elements_ii : 1534s [00:52:14.003] ..$ ...future.seeds_ii : 1534s [00:52:14.003] ..$ ...future.globals.maxSize: 1534s [00:52:14.003] - attr(*, "resolved")= logi FALSE 1534s [00:52:14.003] - attr(*, "total_size")= num 1248 1534s [00:52:14.003] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1534s [00:52:14.003] - attr(*, "already-done")= logi TRUE 1534s [00:52:14.014] - copied ‘...future.FUN’ to environment 1534s [00:52:14.014] - copied ‘future.call.arguments’ to environment 1534s [00:52:14.014] - copied ‘...future.elements_ii’ to environment 1534s [00:52:14.014] - copied ‘...future.seeds_ii’ to environment 1534s [00:52:14.015] - copied ‘...future.globals.maxSize’ to environment 1534s [00:52:14.015] assign_globals() ... done 1534s [00:52:14.015] plan(): Setting new future strategy stack: 1534s [00:52:14.015] List of future strategies: 1534s [00:52:14.015] 1. sequential: 1534s [00:52:14.015] - args: function (..., envir = parent.frame()) 1534s [00:52:14.015] - tweaked: FALSE 1534s [00:52:14.015] - call: NULL 1534s [00:52:14.016] plan(): nbrOfWorkers() = 1 1534s [00:52:14.018] plan(): Setting new future strategy stack: 1534s [00:52:14.018] List of future strategies: 1534s [00:52:14.018] 1. sequential: 1534s [00:52:14.018] - args: function (..., envir = parent.frame()) 1534s [00:52:14.018] - tweaked: FALSE 1534s [00:52:14.018] - call: plan(strategy) 1534s [00:52:14.019] plan(): nbrOfWorkers() = 1 1534s [00:52:14.019] SequentialFuture started (and completed) 1534s [00:52:14.019] - Launch lazy future ... done 1534s [00:52:14.019] run() for ‘SequentialFuture’ ... done 1534s [00:52:14.019] Created future: 1534s [00:52:14.020] SequentialFuture: 1534s [00:52:14.020] Label: ‘future_eapply-1’ 1534s [00:52:14.020] Expression: 1534s [00:52:14.020] { 1534s [00:52:14.020] do.call(function(...) { 1534s [00:52:14.020] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1534s [00:52:14.020] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1534s [00:52:14.020] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1534s [00:52:14.020] on.exit(options(oopts), add = TRUE) 1534s [00:52:14.020] } 1534s [00:52:14.020] { 1534s [00:52:14.020] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1534s [00:52:14.020] ...future.X_jj <- ...future.elements_ii[[jj]] 1534s [00:52:14.020] ...future.FUN(...future.X_jj, ...) 1534s [00:52:14.020] }) 1534s [00:52:14.020] } 1534s [00:52:14.020] }, args = future.call.arguments) 1534s [00:52:14.020] } 1534s [00:52:14.020] Lazy evaluation: FALSE 1534s [00:52:14.020] Asynchronous evaluation: FALSE 1534s [00:52:14.020] Local evaluation: TRUE 1534s [00:52:14.020] Environment: R_GlobalEnv 1534s [00:52:14.020] Capture standard output: TRUE 1534s [00:52:14.020] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1534s [00:52:14.020] Globals: 5 objects totaling 1.48 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 272 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1534s [00:52:14.020] Packages: 1 packages (‘stats’) 1534s [00:52:14.020] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1534s [00:52:14.020] Resolved: TRUE 1534s [00:52:14.020] Value: 1.71 KiB of class ‘list’ 1534s [00:52:14.020] Early signaling: FALSE 1534s [00:52:14.020] Owner process: a67f97e2-ffea-5be0-b95e-c580db557e5a 1534s [00:52:14.020] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1534s [00:52:14.022] Chunk #1 of 1 ... DONE 1534s [00:52:14.022] Launching 1 futures (chunks) ... DONE 1534s [00:52:14.022] Resolving 1 futures (chunks) ... 1534s [00:52:14.022] resolve() on list ... 1534s [00:52:14.022] recursive: 0 1534s [00:52:14.023] length: 1 1534s [00:52:14.023] 1534s [00:52:14.023] resolved() for ‘SequentialFuture’ ... 1534s [00:52:14.023] - state: ‘finished’ 1534s [00:52:14.023] - run: TRUE 1534s [00:52:14.024] - result: ‘FutureResult’ 1534s [00:52:14.024] resolved() for ‘SequentialFuture’ ... done 1534s [00:52:14.024] Future #1 1534s [00:52:14.024] signalConditionsASAP(SequentialFuture, pos=1) ... 1534s [00:52:14.024] - nx: 1 1534s [00:52:14.024] - relay: TRUE 1534s [00:52:14.025] - stdout: TRUE 1534s [00:52:14.025] - signal: TRUE 1534s [00:52:14.025] - resignal: FALSE 1534s [00:52:14.025] - force: TRUE 1534s [00:52:14.025] - relayed: [n=1] FALSE 1534s [00:52:14.025] - queued futures: [n=1] FALSE 1534s [00:52:14.026] - until=1 1534s [00:52:14.026] - relaying element #1 1534s [00:52:14.026] - relayed: [n=1] TRUE 1534s [00:52:14.026] - queued futures: [n=1] TRUE 1534s [00:52:14.026] signalConditionsASAP(SequentialFuture, pos=1) ... done 1534s [00:52:14.026] length: 0 (resolved future 1) 1534s [00:52:14.027] Relaying remaining futures 1534s [00:52:14.027] signalConditionsASAP(NULL, pos=0) ... 1534s [00:52:14.027] - nx: 1 1534s [00:52:14.027] - relay: TRUE 1534s [00:52:14.027] - stdout: TRUE 1534s [00:52:14.027] - signal: TRUE 1534s [00:52:14.027] - resignal: FALSE 1534s [00:52:14.028] - force: TRUE 1534s [00:52:14.028] - relayed: [n=1] TRUE 1534s [00:52:14.028] - queued futures: [n=1] TRUE 1534s - flush all 1534s [00:52:14.028] - relayed: [n=1] TRUE 1534s [00:52:14.028] - queued futures: [n=1] TRUE 1534s [00:52:14.028] signalConditionsASAP(NULL, pos=0) ... done 1534s [00:52:14.028] resolve() on list ... DONE 1534s [00:52:14.028] - Number of value chunks collected: 1 1534s [00:52:14.028] Resolving 1 futures (chunks) ... DONE 1534s [00:52:14.031] Reducing values from 1 chunks ... 1534s [00:52:14.031] - Number of values collected after concatenation: 3 1534s [00:52:14.032] - Number of values expected: 3 1534s [00:52:14.032] Reducing values from 1 chunks ... DONE 1534s [00:52:14.032] future_lapply() ... DONE 1534s [00:52:14.032] plan(): Setting new future strategy stack: 1534s [00:52:14.032] List of future strategies: 1534s [00:52:14.032] 1. sequential: 1534s [00:52:14.032] - args: function (..., envir = parent.frame()) 1534s [00:52:14.032] - tweaked: FALSE 1534s [00:52:14.032] - call: plan(sequential) 1534s [00:52:14.033] plan(): nbrOfWorkers() = 1 1534s *** strategy = ‘sequential’ ... done 1534s *** strategy = ‘multicore’ ... 1534s [00:52:14.034] plan(): Setting new future strategy stack: 1534s [00:52:14.034] List of future strategies: 1534s [00:52:14.034] 1. multicore: 1534s [00:52:14.034] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1534s [00:52:14.034] - tweaked: FALSE 1534s [00:52:14.034] - call: plan(strategy) 1534s [00:52:14.038] plan(): nbrOfWorkers() = 1 1534s [00:52:14.038] future_lapply() ... 1534s [00:52:14.043] Number of chunks: 1 1534s [00:52:14.043] getGlobalsAndPackagesXApply() ... 1534s [00:52:14.043] - future.globals: TRUE 1534s [00:52:14.044] getGlobalsAndPackages() ... 1534s [00:52:14.044] Searching for globals... 1534s [00:52:14.045] - globals found: [2] ‘FUN’, ‘UseMethod’ 1534s [00:52:14.046] Searching for globals ... DONE 1534s [00:52:14.046] Resolving globals: FALSE 1534s [00:52:14.046] The total size of the 1 globals is 1.21 KiB (1240 bytes) 1534s [00:52:14.047] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.21 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.21 KiB of class ‘function’) 1534s [00:52:14.047] - globals: [1] ‘FUN’ 1534s [00:52:14.047] 1534s [00:52:14.047] getGlobalsAndPackages() ... DONE 1534s [00:52:14.047] - globals found/used: [n=1] ‘FUN’ 1534s [00:52:14.048] - needed namespaces: [n=0] 1534s [00:52:14.048] Finding globals ... DONE 1534s [00:52:14.048] - use_args: TRUE 1534s [00:52:14.048] - Getting '...' globals ... 1534s [00:52:14.049] resolve() on list ... 1534s [00:52:14.049] recursive: 0 1534s [00:52:14.049] length: 1 1534s [00:52:14.049] elements: ‘...’ 1534s [00:52:14.049] length: 0 (resolved future 1) 1534s [00:52:14.050] resolve() on list ... DONE 1534s [00:52:14.050] - '...' content: [n=0] 1534s [00:52:14.050] List of 1 1534s [00:52:14.050] $ ...: list() 1534s [00:52:14.050] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1534s [00:52:14.050] - attr(*, "where")=List of 1 1534s [00:52:14.050] ..$ ...: 1534s [00:52:14.050] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1534s [00:52:14.050] - attr(*, "resolved")= logi TRUE 1534s [00:52:14.050] - attr(*, "total_size")= num NA 1534s [00:52:14.055] - Getting '...' globals ... DONE 1534s [00:52:14.055] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1534s [00:52:14.056] List of 2 1534s [00:52:14.056] $ ...future.FUN:function (x, ...) 1534s [00:52:14.056] $ ... : list() 1534s [00:52:14.056] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1534s [00:52:14.056] - attr(*, "where")=List of 2 1534s [00:52:14.056] ..$ ...future.FUN: 1534s [00:52:14.056] ..$ ... : 1534s [00:52:14.056] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1534s [00:52:14.056] - attr(*, "resolved")= logi FALSE 1534s [00:52:14.056] - attr(*, "total_size")= num 1240 1534s [00:52:14.061] Packages to be attached in all futures: [n=0] 1534s [00:52:14.061] getGlobalsAndPackagesXApply() ... DONE 1534s [00:52:14.062] Number of futures (= number of chunks): 1 1534s [00:52:14.062] Launching 1 futures (chunks) ... 1534s [00:52:14.062] Chunk #1 of 1 ... 1534s [00:52:14.062] - Finding globals in 'X' for chunk #1 ... 1534s [00:52:14.062] getGlobalsAndPackages() ... 1534s [00:52:14.062] Searching for globals... 1534s [00:52:14.063] 1534s [00:52:14.063] Searching for globals ... DONE 1534s [00:52:14.063] - globals: [0] 1534s [00:52:14.063] getGlobalsAndPackages() ... DONE 1534s [00:52:14.063] + additional globals found: [n=0] 1534s [00:52:14.064] + additional namespaces needed: [n=0] 1534s [00:52:14.064] - Finding globals in 'X' for chunk #1 ... DONE 1534s [00:52:14.064] - seeds: 1534s [00:52:14.064] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1534s [00:52:14.064] getGlobalsAndPackages() ... 1534s [00:52:14.064] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1534s [00:52:14.065] Resolving globals: FALSE 1534s [00:52:14.065] Tweak future expression to call with '...' arguments ... 1534s [00:52:14.065] { 1534s [00:52:14.065] do.call(function(...) { 1534s [00:52:14.065] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1534s [00:52:14.065] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1534s [00:52:14.065] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1534s [00:52:14.065] on.exit(options(oopts), add = TRUE) 1534s [00:52:14.065] } 1534s [00:52:14.065] { 1534s [00:52:14.065] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1534s [00:52:14.065] ...future.X_jj <- ...future.elements_ii[[jj]] 1534s [00:52:14.065] ...future.FUN(...future.X_jj, ...) 1534s [00:52:14.065] }) 1534s [00:52:14.065] } 1534s [00:52:14.065] }, args = future.call.arguments) 1534s [00:52:14.065] } 1534s [00:52:14.065] Tweak future expression to call with '...' arguments ... DONE 1534s [00:52:14.066] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1534s [00:52:14.066] 1534s [00:52:14.066] getGlobalsAndPackages() ... DONE 1534s [00:52:14.066] run() for ‘Future’ ... 1534s [00:52:14.067] - state: ‘created’ 1534s [00:52:14.067] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1534s [00:52:14.072] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1534s [00:52:14.072] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1534s [00:52:14.073] - Field: ‘label’ 1534s [00:52:14.073] - Field: ‘local’ 1534s [00:52:14.073] - Field: ‘owner’ 1534s [00:52:14.073] - Field: ‘envir’ 1534s [00:52:14.073] - Field: ‘packages’ 1534s [00:52:14.073] - Field: ‘gc’ 1534s [00:52:14.073] - Field: ‘conditions’ 1534s [00:52:14.074] - Field: ‘expr’ 1534s [00:52:14.074] - Field: ‘uuid’ 1534s [00:52:14.074] - Field: ‘seed’ 1534s [00:52:14.075] - Field: ‘version’ 1534s [00:52:14.075] - Field: ‘result’ 1534s [00:52:14.075] - Field: ‘asynchronous’ 1534s [00:52:14.076] - Field: ‘calls’ 1534s [00:52:14.076] - Field: ‘globals’ 1534s [00:52:14.077] - Field: ‘stdout’ 1534s [00:52:14.077] - Field: ‘earlySignal’ 1534s [00:52:14.077] - Field: ‘lazy’ 1534s [00:52:14.077] - Field: ‘state’ 1534s [00:52:14.077] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1534s [00:52:14.077] - Launch lazy future ... 1534s [00:52:14.078] Packages needed by the future expression (n = 0): 1534s [00:52:14.078] Packages needed by future strategies (n = 0): 1534s [00:52:14.078] { 1534s [00:52:14.078] { 1534s [00:52:14.078] { 1534s [00:52:14.078] ...future.startTime <- base::Sys.time() 1534s [00:52:14.078] { 1534s [00:52:14.078] { 1534s [00:52:14.078] { 1534s [00:52:14.078] base::local({ 1534s [00:52:14.078] has_future <- base::requireNamespace("future", 1534s [00:52:14.078] quietly = TRUE) 1534s [00:52:14.078] if (has_future) { 1534s [00:52:14.078] ns <- base::getNamespace("future") 1534s [00:52:14.078] version <- ns[[".package"]][["version"]] 1534s [00:52:14.078] if (is.null(version)) 1534s [00:52:14.078] version <- utils::packageVersion("future") 1534s [00:52:14.078] } 1534s [00:52:14.078] else { 1534s [00:52:14.078] version <- NULL 1534s [00:52:14.078] } 1534s [00:52:14.078] if (!has_future || version < "1.8.0") { 1534s [00:52:14.078] info <- base::c(r_version = base::gsub("R version ", 1534s [00:52:14.078] "", base::R.version$version.string), 1534s [00:52:14.078] platform = base::sprintf("%s (%s-bit)", 1534s [00:52:14.078] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1534s [00:52:14.078] os = base::paste(base::Sys.info()[base::c("sysname", 1534s [00:52:14.078] "release", "version")], collapse = " "), 1534s [00:52:14.078] hostname = base::Sys.info()[["nodename"]]) 1534s [00:52:14.078] info <- base::sprintf("%s: %s", base::names(info), 1534s [00:52:14.078] info) 1534s [00:52:14.078] info <- base::paste(info, collapse = "; ") 1534s [00:52:14.078] if (!has_future) { 1534s [00:52:14.078] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1534s [00:52:14.078] info) 1534s [00:52:14.078] } 1534s [00:52:14.078] else { 1534s [00:52:14.078] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1534s [00:52:14.078] info, version) 1534s [00:52:14.078] } 1534s [00:52:14.078] base::stop(msg) 1534s [00:52:14.078] } 1534s [00:52:14.078] }) 1534s [00:52:14.078] } 1534s [00:52:14.078] options(future.plan = NULL) 1534s [00:52:14.078] Sys.unsetenv("R_FUTURE_PLAN") 1534s [00:52:14.078] future::plan("default", .cleanup = FALSE, .init = FALSE) 1534s [00:52:14.078] } 1534s [00:52:14.078] ...future.workdir <- getwd() 1534s [00:52:14.078] } 1534s [00:52:14.078] ...future.oldOptions <- base::as.list(base::.Options) 1534s [00:52:14.078] ...future.oldEnvVars <- base::Sys.getenv() 1534s [00:52:14.078] } 1534s [00:52:14.078] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1534s [00:52:14.078] future.globals.maxSize = NULL, future.globals.method = NULL, 1534s [00:52:14.078] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1534s [00:52:14.078] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1534s [00:52:14.078] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1534s [00:52:14.078] future.stdout.windows.reencode = NULL, width = 80L) 1534s [00:52:14.078] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1534s [00:52:14.078] base::names(...future.oldOptions)) 1534s [00:52:14.078] } 1534s [00:52:14.078] if (FALSE) { 1534s [00:52:14.078] } 1534s [00:52:14.078] else { 1534s [00:52:14.078] if (TRUE) { 1534s [00:52:14.078] ...future.stdout <- base::rawConnection(base::raw(0L), 1534s [00:52:14.078] open = "w") 1534s [00:52:14.078] } 1534s [00:52:14.078] else { 1534s [00:52:14.078] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1534s [00:52:14.078] windows = "NUL", "/dev/null"), open = "w") 1534s [00:52:14.078] } 1534s [00:52:14.078] base::sink(...future.stdout, type = "output", split = FALSE) 1534s [00:52:14.078] base::on.exit(if (!base::is.null(...future.stdout)) { 1534s [00:52:14.078] base::sink(type = "output", split = FALSE) 1534s [00:52:14.078] base::close(...future.stdout) 1534s [00:52:14.078] }, add = TRUE) 1534s [00:52:14.078] } 1534s [00:52:14.078] ...future.frame <- base::sys.nframe() 1534s [00:52:14.078] ...future.conditions <- base::list() 1534s [00:52:14.078] ...future.rng <- base::globalenv()$.Random.seed 1534s [00:52:14.078] if (FALSE) { 1534s [00:52:14.078] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1534s [00:52:14.078] "...future.value", "...future.globalenv.names", ".Random.seed") 1534s [00:52:14.078] } 1534s [00:52:14.078] ...future.result <- base::tryCatch({ 1534s [00:52:14.078] base::withCallingHandlers({ 1534s [00:52:14.078] ...future.value <- base::withVisible(base::local({ 1534s [00:52:14.078] do.call(function(...) { 1534s [00:52:14.078] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1534s [00:52:14.078] if (!identical(...future.globals.maxSize.org, 1534s [00:52:14.078] ...future.globals.maxSize)) { 1534s [00:52:14.078] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1534s [00:52:14.078] on.exit(options(oopts), add = TRUE) 1534s [00:52:14.078] } 1534s [00:52:14.078] { 1534s [00:52:14.078] lapply(seq_along(...future.elements_ii), 1534s [00:52:14.078] FUN = function(jj) { 1534s [00:52:14.078] ...future.X_jj <- ...future.elements_ii[[jj]] 1534s [00:52:14.078] ...future.FUN(...future.X_jj, ...) 1534s [00:52:14.078] }) 1534s [00:52:14.078] } 1534s [00:52:14.078] }, args = future.call.arguments) 1534s [00:52:14.078] })) 1534s [00:52:14.078] future::FutureResult(value = ...future.value$value, 1534s [00:52:14.078] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1534s [00:52:14.078] ...future.rng), globalenv = if (FALSE) 1534s [00:52:14.078] list(added = base::setdiff(base::names(base::.GlobalEnv), 1534s [00:52:14.078] ...future.globalenv.names)) 1534s [00:52:14.078] else NULL, started = ...future.startTime, version = "1.8") 1534s [00:52:14.078] }, condition = base::local({ 1534s [00:52:14.078] c <- base::c 1534s [00:52:14.078] inherits <- base::inherits 1534s [00:52:14.078] invokeRestart <- base::invokeRestart 1534s [00:52:14.078] length <- base::length 1534s [00:52:14.078] list <- base::list 1534s [00:52:14.078] seq.int <- base::seq.int 1534s [00:52:14.078] signalCondition <- base::signalCondition 1534s [00:52:14.078] sys.calls <- base::sys.calls 1534s [00:52:14.078] `[[` <- base::`[[` 1534s [00:52:14.078] `+` <- base::`+` 1534s [00:52:14.078] `<<-` <- base::`<<-` 1534s [00:52:14.078] sysCalls <- function(calls = sys.calls(), from = 1L) { 1534s [00:52:14.078] calls[seq.int(from = from + 12L, to = length(calls) - 1534s [00:52:14.078] 3L)] 1534s [00:52:14.078] } 1534s [00:52:14.078] function(cond) { 1534s [00:52:14.078] is_error <- inherits(cond, "error") 1534s [00:52:14.078] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1534s [00:52:14.078] NULL) 1534s [00:52:14.078] if (is_error) { 1534s [00:52:14.078] sessionInformation <- function() { 1534s [00:52:14.078] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1534s [00:52:14.078] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1534s [00:52:14.078] search = base::search(), system = base::Sys.info()) 1534s [00:52:14.078] } 1534s [00:52:14.078] ...future.conditions[[length(...future.conditions) + 1534s [00:52:14.078] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1534s [00:52:14.078] cond$call), session = sessionInformation(), 1534s [00:52:14.078] timestamp = base::Sys.time(), signaled = 0L) 1534s [00:52:14.078] signalCondition(cond) 1534s [00:52:14.078] } 1534s [00:52:14.078] else if (!ignore && TRUE && inherits(cond, c("condition", 1534s [00:52:14.078] "immediateCondition"))) { 1534s [00:52:14.078] signal <- TRUE && inherits(cond, "immediateCondition") 1534s [00:52:14.078] ...future.conditions[[length(...future.conditions) + 1534s [00:52:14.078] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1534s [00:52:14.078] if (TRUE && !signal) { 1534s [00:52:14.078] muffleCondition <- function (cond, pattern = "^muffle") 1534s [00:52:14.078] { 1534s [00:52:14.078] inherits <- base::inherits 1534s [00:52:14.078] invokeRestart <- base::invokeRestart 1534s [00:52:14.078] is.null <- base::is.null 1534s [00:52:14.078] muffled <- FALSE 1534s [00:52:14.078] if (inherits(cond, "message")) { 1534s [00:52:14.078] muffled <- grepl(pattern, "muffleMessage") 1534s [00:52:14.078] if (muffled) 1534s [00:52:14.078] invokeRestart("muffleMessage") 1534s [00:52:14.078] } 1534s [00:52:14.078] else if (inherits(cond, "warning")) { 1534s [00:52:14.078] muffled <- grepl(pattern, "muffleWarning") 1534s [00:52:14.078] if (muffled) 1534s [00:52:14.078] invokeRestart("muffleWarning") 1534s [00:52:14.078] } 1534s [00:52:14.078] else if (inherits(cond, "condition")) { 1534s [00:52:14.078] if (!is.null(pattern)) { 1534s [00:52:14.078] computeRestarts <- base::computeRestarts 1534s [00:52:14.078] grepl <- base::grepl 1534s [00:52:14.078] restarts <- computeRestarts(cond) 1534s [00:52:14.078] for (restart in restarts) { 1534s [00:52:14.078] name <- restart$name 1534s [00:52:14.078] if (is.null(name)) 1534s [00:52:14.078] next 1534s [00:52:14.078] if (!grepl(pattern, name)) 1534s [00:52:14.078] next 1534s [00:52:14.078] invokeRestart(restart) 1534s [00:52:14.078] muffled <- TRUE 1534s [00:52:14.078] break 1534s [00:52:14.078] } 1534s [00:52:14.078] } 1534s [00:52:14.078] } 1534s [00:52:14.078] invisible(muffled) 1534s [00:52:14.078] } 1534s [00:52:14.078] muffleCondition(cond, pattern = "^muffle") 1534s [00:52:14.078] } 1534s [00:52:14.078] } 1534s [00:52:14.078] else { 1534s [00:52:14.078] if (TRUE) { 1534s [00:52:14.078] muffleCondition <- function (cond, pattern = "^muffle") 1534s [00:52:14.078] { 1534s [00:52:14.078] inherits <- base::inherits 1534s [00:52:14.078] invokeRestart <- base::invokeRestart 1534s [00:52:14.078] is.null <- base::is.null 1534s [00:52:14.078] muffled <- FALSE 1534s [00:52:14.078] if (inherits(cond, "message")) { 1534s [00:52:14.078] muffled <- grepl(pattern, "muffleMessage") 1534s [00:52:14.078] if (muffled) 1534s [00:52:14.078] invokeRestart("muffleMessage") 1534s [00:52:14.078] } 1534s [00:52:14.078] else if (inherits(cond, "warning")) { 1534s [00:52:14.078] muffled <- grepl(pattern, "muffleWarning") 1534s [00:52:14.078] if (muffled) 1534s [00:52:14.078] invokeRestart("muffleWarning") 1534s [00:52:14.078] } 1534s [00:52:14.078] else if (inherits(cond, "condition")) { 1534s [00:52:14.078] if (!is.null(pattern)) { 1534s [00:52:14.078] computeRestarts <- base::computeRestarts 1534s [00:52:14.078] grepl <- base::grepl 1534s [00:52:14.078] restarts <- computeRestarts(cond) 1534s [00:52:14.078] for (restart in restarts) { 1534s [00:52:14.078] name <- restart$name 1534s [00:52:14.078] if (is.null(name)) 1534s [00:52:14.078] next 1534s [00:52:14.078] if (!grepl(pattern, name)) 1534s [00:52:14.078] next 1534s [00:52:14.078] invokeRestart(restart) 1534s [00:52:14.078] muffled <- TRUE 1534s [00:52:14.078] break 1534s [00:52:14.078] } 1534s [00:52:14.078] } 1534s [00:52:14.078] } 1534s [00:52:14.078] invisible(muffled) 1534s [00:52:14.078] } 1534s [00:52:14.078] muffleCondition(cond, pattern = "^muffle") 1534s [00:52:14.078] } 1534s [00:52:14.078] } 1534s [00:52:14.078] } 1534s [00:52:14.078] })) 1534s [00:52:14.078] }, error = function(ex) { 1534s [00:52:14.078] base::structure(base::list(value = NULL, visible = NULL, 1534s [00:52:14.078] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1534s [00:52:14.078] ...future.rng), started = ...future.startTime, 1534s [00:52:14.078] finished = Sys.time(), session_uuid = NA_character_, 1534s [00:52:14.078] version = "1.8"), class = "FutureResult") 1534s [00:52:14.078] }, finally = { 1534s [00:52:14.078] if (!identical(...future.workdir, getwd())) 1534s [00:52:14.078] setwd(...future.workdir) 1534s [00:52:14.078] { 1534s [00:52:14.078] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1534s [00:52:14.078] ...future.oldOptions$nwarnings <- NULL 1534s [00:52:14.078] } 1534s [00:52:14.078] base::options(...future.oldOptions) 1534s [00:52:14.078] if (.Platform$OS.type == "windows") { 1534s [00:52:14.078] old_names <- names(...future.oldEnvVars) 1534s [00:52:14.078] envs <- base::Sys.getenv() 1534s [00:52:14.078] names <- names(envs) 1534s [00:52:14.078] common <- intersect(names, old_names) 1534s [00:52:14.078] added <- setdiff(names, old_names) 1534s [00:52:14.078] removed <- setdiff(old_names, names) 1534s [00:52:14.078] changed <- common[...future.oldEnvVars[common] != 1534s [00:52:14.078] envs[common]] 1534s [00:52:14.078] NAMES <- toupper(changed) 1534s [00:52:14.078] args <- list() 1534s [00:52:14.078] for (kk in seq_along(NAMES)) { 1534s [00:52:14.078] name <- changed[[kk]] 1534s [00:52:14.078] NAME <- NAMES[[kk]] 1534s [00:52:14.078] if (name != NAME && is.element(NAME, old_names)) 1534s [00:52:14.078] next 1534s [00:52:14.078] args[[name]] <- ...future.oldEnvVars[[name]] 1534s [00:52:14.078] } 1534s [00:52:14.078] NAMES <- toupper(added) 1534s [00:52:14.078] for (kk in seq_along(NAMES)) { 1534s [00:52:14.078] name <- added[[kk]] 1534s [00:52:14.078] NAME <- NAMES[[kk]] 1534s [00:52:14.078] if (name != NAME && is.element(NAME, old_names)) 1534s [00:52:14.078] next 1534s [00:52:14.078] args[[name]] <- "" 1534s [00:52:14.078] } 1534s [00:52:14.078] NAMES <- toupper(removed) 1534s [00:52:14.078] for (kk in seq_along(NAMES)) { 1534s [00:52:14.078] name <- removed[[kk]] 1534s [00:52:14.078] NAME <- NAMES[[kk]] 1534s [00:52:14.078] if (name != NAME && is.element(NAME, old_names)) 1534s [00:52:14.078] next 1534s [00:52:14.078] args[[name]] <- ...future.oldEnvVars[[name]] 1534s [00:52:14.078] } 1534s [00:52:14.078] if (length(args) > 0) 1534s [00:52:14.078] base::do.call(base::Sys.setenv, args = args) 1534s [00:52:14.078] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1534s [00:52:14.078] } 1534s [00:52:14.078] else { 1534s [00:52:14.078] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1534s [00:52:14.078] } 1534s [00:52:14.078] { 1534s [00:52:14.078] if (base::length(...future.futureOptionsAdded) > 1534s [00:52:14.078] 0L) { 1534s [00:52:14.078] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1534s [00:52:14.078] base::names(opts) <- ...future.futureOptionsAdded 1534s [00:52:14.078] base::options(opts) 1534s [00:52:14.078] } 1534s [00:52:14.078] { 1534s [00:52:14.078] { 1534s [00:52:14.078] NULL 1534s [00:52:14.078] RNGkind("Mersenne-Twister") 1534s [00:52:14.078] base::rm(list = ".Random.seed", envir = base::globalenv(), 1534s [00:52:14.078] inherits = FALSE) 1534s [00:52:14.078] } 1534s [00:52:14.078] options(future.plan = NULL) 1534s [00:52:14.078] if (is.na(NA_character_)) 1534s [00:52:14.078] Sys.unsetenv("R_FUTURE_PLAN") 1534s [00:52:14.078] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1534s [00:52:14.078] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1534s [00:52:14.078] envir = parent.frame()) 1534s [00:52:14.078] { 1534s [00:52:14.078] default_workers <- missing(workers) 1534s [00:52:14.078] if (is.function(workers)) 1534s [00:52:14.078] workers <- workers() 1534s [00:52:14.078] workers <- structure(as.integer(workers), 1534s [00:52:14.078] class = class(workers)) 1534s [00:52:14.078] stop_if_not(is.finite(workers), workers >= 1534s [00:52:14.078] 1L) 1534s [00:52:14.078] if ((workers == 1L && !inherits(workers, 1534s [00:52:14.078] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1534s [00:52:14.078] if (default_workers) 1534s [00:52:14.078] supportsMulticore(warn = TRUE) 1534s [00:52:14.078] return(sequential(..., envir = envir)) 1534s [00:52:14.078] } 1534s [00:52:14.078] oopts <- options(mc.cores = workers) 1534s [00:52:14.078] on.exit(options(oopts)) 1534s [00:52:14.078] future <- MulticoreFuture(..., workers = workers, 1534s [00:52:14.078] envir = envir) 1534s [00:52:14.078] if (!future$lazy) 1534s [00:52:14.078] future <- run(future) 1534s [00:52:14.078] invisible(future) 1534s [00:52:14.078] }), .cleanup = FALSE, .init = FALSE) 1534s [00:52:14.078] } 1534s [00:52:14.078] } 1534s [00:52:14.078] } 1534s [00:52:14.078] }) 1534s [00:52:14.078] if (TRUE) { 1534s [00:52:14.078] base::sink(type = "output", split = FALSE) 1534s [00:52:14.078] if (TRUE) { 1534s [00:52:14.078] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1534s [00:52:14.078] } 1534s [00:52:14.078] else { 1534s [00:52:14.078] ...future.result["stdout"] <- base::list(NULL) 1534s [00:52:14.078] } 1534s [00:52:14.078] base::close(...future.stdout) 1534s [00:52:14.078] ...future.stdout <- NULL 1534s [00:52:14.078] } 1534s [00:52:14.078] ...future.result$conditions <- ...future.conditions 1534s [00:52:14.078] ...future.result$finished <- base::Sys.time() 1534s [00:52:14.078] ...future.result 1534s [00:52:14.078] } 1534s [00:52:14.085] assign_globals() ... 1534s [00:52:14.085] List of 5 1534s [00:52:14.085] $ ...future.FUN :function (x, ...) 1534s [00:52:14.085] $ future.call.arguments : list() 1534s [00:52:14.085] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1534s [00:52:14.085] $ ...future.elements_ii :List of 3 1534s [00:52:14.085] ..$ : logi [1:4] TRUE FALSE FALSE TRUE 1534s [00:52:14.085] ..$ : num [1:7] 0.0498 0.1353 0.3679 1 2.7183 ... 1534s [00:52:14.085] ..$ : int [1:10] 1 2 3 4 5 6 7 8 9 10 1534s [00:52:14.085] $ ...future.seeds_ii : NULL 1534s [00:52:14.085] $ ...future.globals.maxSize: NULL 1534s [00:52:14.085] - attr(*, "where")=List of 5 1534s [00:52:14.085] ..$ ...future.FUN : 1534s [00:52:14.085] ..$ future.call.arguments : 1534s [00:52:14.085] ..$ ...future.elements_ii : 1534s [00:52:14.085] ..$ ...future.seeds_ii : 1534s [00:52:14.085] ..$ ...future.globals.maxSize: 1534s [00:52:14.085] - attr(*, "resolved")= logi FALSE 1534s [00:52:14.085] - attr(*, "total_size")= num 1240 1534s [00:52:14.085] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1534s [00:52:14.085] - attr(*, "already-done")= logi TRUE 1534s [00:52:14.097] - copied ‘...future.FUN’ to environment 1534s [00:52:14.098] - copied ‘future.call.arguments’ to environment 1534s [00:52:14.098] - copied ‘...future.elements_ii’ to environment 1534s [00:52:14.098] - copied ‘...future.seeds_ii’ to environment 1534s [00:52:14.098] - copied ‘...future.globals.maxSize’ to environment 1534s [00:52:14.099] assign_globals() ... done 1534s [00:52:14.100] plan(): Setting new future strategy stack: 1534s [00:52:14.100] List of future strategies: 1534s [00:52:14.100] 1. sequential: 1534s [00:52:14.100] - args: function (..., envir = parent.frame()) 1534s [00:52:14.100] - tweaked: FALSE 1534s [00:52:14.100] - call: NULL 1534s [00:52:14.102] plan(): nbrOfWorkers() = 1 1534s [00:52:14.103] plan(): Setting new future strategy stack: 1534s [00:52:14.103] List of future strategies: 1534s [00:52:14.103] 1. multicore: 1534s [00:52:14.103] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1534s [00:52:14.103] - tweaked: FALSE 1534s [00:52:14.103] - call: plan(strategy) 1534s [00:52:14.108] plan(): nbrOfWorkers() = 1 1534s [00:52:14.109] SequentialFuture started (and completed) 1534s [00:52:14.109] - Launch lazy future ... done 1534s [00:52:14.110] run() for ‘SequentialFuture’ ... done 1534s [00:52:14.110] Created future: 1534s [00:52:14.110] SequentialFuture: 1534s [00:52:14.110] Label: ‘future_eapply-1’ 1534s [00:52:14.110] Expression: 1534s [00:52:14.110] { 1534s [00:52:14.110] do.call(function(...) { 1534s [00:52:14.110] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1534s [00:52:14.110] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1534s [00:52:14.110] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1534s [00:52:14.110] on.exit(options(oopts), add = TRUE) 1534s [00:52:14.110] } 1534s [00:52:14.110] { 1534s [00:52:14.110] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1534s [00:52:14.110] ...future.X_jj <- ...future.elements_ii[[jj]] 1534s [00:52:14.110] ...future.FUN(...future.X_jj, ...) 1534s [00:52:14.110] }) 1534s [00:52:14.110] } 1534s [00:52:14.110] }, args = future.call.arguments) 1534s [00:52:14.110] } 1534s [00:52:14.110] Lazy evaluation: FALSE 1534s [00:52:14.110] Asynchronous evaluation: FALSE 1534s [00:52:14.110] Local evaluation: TRUE 1534s [00:52:14.110] Environment: R_GlobalEnv 1534s [00:52:14.110] Capture standard output: TRUE 1534s [00:52:14.110] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1534s [00:52:14.110] Globals: 5 objects totaling 1.48 KiB (function ‘...future.FUN’ of 1.21 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 272 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1534s [00:52:14.110] Packages: 1534s [00:52:14.110] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1534s [00:52:14.110] Resolved: TRUE 1534s [00:52:14.110] Value: 168 bytes of class ‘list’ 1534s [00:52:14.110] Early signaling: FALSE 1534s [00:52:14.110] Owner process: a67f97e2-ffea-5be0-b95e-c580db557e5a 1534s [00:52:14.110] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1534s [00:52:14.113] Chunk #1 of 1 ... DONE 1534s [00:52:14.113] Launching 1 futures (chunks) ... DONE 1534s [00:52:14.113] Resolving 1 futures (chunks) ... 1534s [00:52:14.113] resolve() on list ... 1534s [00:52:14.113] recursive: 0 1534s [00:52:14.113] length: 1 1534s [00:52:14.114] 1534s [00:52:14.114] resolved() for ‘SequentialFuture’ ... 1534s [00:52:14.114] - state: ‘finished’ 1534s [00:52:14.114] - run: TRUE 1534s [00:52:14.114] - result: ‘FutureResult’ 1534s [00:52:14.115] resolved() for ‘SequentialFuture’ ... done 1534s [00:52:14.115] Future #1 1534s [00:52:14.115] signalConditionsASAP(SequentialFuture, pos=1) ... 1534s [00:52:14.116] - nx: 1 1534s [00:52:14.116] - relay: TRUE 1534s [00:52:14.116] - stdout: TRUE 1534s [00:52:14.116] - signal: TRUE 1534s [00:52:14.117] - resignal: FALSE 1534s [00:52:14.117] - force: TRUE 1534s [00:52:14.117] - relayed: [n=1] FALSE 1534s [00:52:14.118] - queued futures: [n=1] FALSE 1534s [00:52:14.118] - until=1 1534s [00:52:14.118] - relaying element #1 1534s [00:52:14.118] - relayed: [n=1] TRUE 1534s [00:52:14.119] - queued futures: [n=1] TRUE 1534s [00:52:14.119] signalConditionsASAP(SequentialFuture, pos=1) ... done 1534s [00:52:14.119] length: 0 (resolved future 1) 1534s [00:52:14.119] Relaying remaining futures 1534s [00:52:14.120] signalConditionsASAP(NULL, pos=0) ... 1534s [00:52:14.120] - nx: 1 1534s [00:52:14.120] - relay: TRUE 1534s [00:52:14.120] - stdout: TRUE 1534s [00:52:14.121] - signal: TRUE 1534s [00:52:14.121] - resignal: FALSE 1534s [00:52:14.121] - force: TRUE 1534s [00:52:14.121] - relayed: [n=1] TRUE 1534s [00:52:14.122] - queued futures: [n=1] TRUE 1534s - flush all 1534s [00:52:14.122] - relayed: [n=1] TRUE 1534s [00:52:14.122] - queued futures: [n=1] TRUE 1534s [00:52:14.123] signalConditionsASAP(NULL, pos=0) ... done 1534s [00:52:14.123] resolve() on list ... DONE 1534s [00:52:14.123] - Number of value chunks collected: 1 1534s [00:52:14.123] Resolving 1 futures (chunks) ... DONE 1534s [00:52:14.123] Reducing values from 1 chunks ... 1534s [00:52:14.124] - Number of values collected after concatenation: 3 1534s [00:52:14.124] - Number of values expected: 3 1534s [00:52:14.124] Reducing values from 1 chunks ... DONE 1534s [00:52:14.124] future_lapply() ... DONE 1534s [00:52:14.125] future_lapply() ... 1534s [00:52:14.131] Number of chunks: 1 1534s [00:52:14.131] getGlobalsAndPackagesXApply() ... 1534s [00:52:14.131] - future.globals: TRUE 1534s [00:52:14.132] getGlobalsAndPackages() ... 1534s [00:52:14.132] Searching for globals... 1534s [00:52:14.135] - globals found: [2] ‘FUN’, ‘UseMethod’ 1534s [00:52:14.135] Searching for globals ... DONE 1534s [00:52:14.135] Resolving globals: FALSE 1534s [00:52:14.136] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1534s [00:52:14.137] The total size of the 1 globals exported for future expression (‘FUN(probs = c(0.25, 0.5, 0.75))’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1534s [00:52:14.138] - globals: [1] ‘FUN’ 1534s [00:52:14.138] - packages: [1] ‘stats’ 1534s [00:52:14.138] getGlobalsAndPackages() ... DONE 1534s [00:52:14.138] - globals found/used: [n=1] ‘FUN’ 1534s [00:52:14.138] - needed namespaces: [n=1] ‘stats’ 1534s [00:52:14.138] Finding globals ... DONE 1534s [00:52:14.139] - use_args: TRUE 1534s [00:52:14.139] - Getting '...' globals ... 1534s [00:52:14.140] resolve() on list ... 1534s [00:52:14.141] recursive: 0 1534s [00:52:14.141] length: 1 1534s [00:52:14.141] elements: ‘...’ 1534s [00:52:14.142] length: 0 (resolved future 1) 1534s [00:52:14.142] resolve() on list ... DONE 1534s [00:52:14.142] - '...' content: [n=1] ‘probs’ 1534s [00:52:14.143] List of 1 1534s [00:52:14.143] $ ...:List of 1 1534s [00:52:14.143] ..$ probs: num [1:3] 0.25 0.5 0.75 1534s [00:52:14.143] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1534s [00:52:14.143] - attr(*, "where")=List of 1 1534s [00:52:14.143] ..$ ...: 1534s [00:52:14.143] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1534s [00:52:14.143] - attr(*, "resolved")= logi TRUE 1534s [00:52:14.143] - attr(*, "total_size")= num NA 1534s [00:52:14.151] - Getting '...' globals ... DONE 1534s [00:52:14.152] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1534s [00:52:14.152] List of 2 1534s [00:52:14.152] $ ...future.FUN:function (x, ...) 1534s [00:52:14.152] $ ... :List of 1 1534s [00:52:14.152] ..$ probs: num [1:3] 0.25 0.5 0.75 1534s [00:52:14.152] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1534s [00:52:14.152] - attr(*, "where")=List of 2 1534s [00:52:14.152] ..$ ...future.FUN: 1534s [00:52:14.152] ..$ ... : 1534s [00:52:14.152] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1534s [00:52:14.152] - attr(*, "resolved")= logi FALSE 1534s [00:52:14.152] - attr(*, "total_size")= num 1328 1534s [00:52:14.160] Packages to be attached in all futures: [n=1] ‘stats’ 1534s [00:52:14.160] getGlobalsAndPackagesXApply() ... DONE 1534s [00:52:14.161] Number of futures (= number of chunks): 1 1534s [00:52:14.161] Launching 1 futures (chunks) ... 1534s [00:52:14.161] Chunk #1 of 1 ... 1534s [00:52:14.161] - Finding globals in 'X' for chunk #1 ... 1534s [00:52:14.162] getGlobalsAndPackages() ... 1534s [00:52:14.162] Searching for globals... 1534s [00:52:14.162] 1534s [00:52:14.162] Searching for globals ... DONE 1534s [00:52:14.162] - globals: [0] 1534s [00:52:14.162] getGlobalsAndPackages() ... DONE 1534s [00:52:14.163] + additional globals found: [n=0] 1534s [00:52:14.163] + additional namespaces needed: [n=0] 1534s [00:52:14.163] - Finding globals in 'X' for chunk #1 ... DONE 1534s [00:52:14.163] - seeds: 1534s [00:52:14.163] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1534s [00:52:14.163] getGlobalsAndPackages() ... 1534s [00:52:14.163] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1534s [00:52:14.164] Resolving globals: FALSE 1534s [00:52:14.164] Tweak future expression to call with '...' arguments ... 1534s [00:52:14.164] { 1534s [00:52:14.164] do.call(function(...) { 1534s [00:52:14.164] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1534s [00:52:14.164] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1534s [00:52:14.164] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1534s [00:52:14.164] on.exit(options(oopts), add = TRUE) 1534s [00:52:14.164] } 1534s [00:52:14.164] { 1534s [00:52:14.164] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1534s [00:52:14.164] ...future.X_jj <- ...future.elements_ii[[jj]] 1534s [00:52:14.164] ...future.FUN(...future.X_jj, ...) 1534s [00:52:14.164] }) 1534s [00:52:14.164] } 1534s [00:52:14.164] }, args = future.call.arguments) 1534s [00:52:14.164] } 1534s [00:52:14.165] Tweak future expression to call with '...' arguments ... DONE 1534s [00:52:14.166] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1534s [00:52:14.166] - packages: [1] ‘stats’ 1534s [00:52:14.166] getGlobalsAndPackages() ... DONE 1534s [00:52:14.166] run() for ‘Future’ ... 1534s [00:52:14.167] - state: ‘created’ 1534s [00:52:14.167] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1534s [00:52:14.172] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1534s [00:52:14.172] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1534s [00:52:14.173] - Field: ‘label’ 1534s [00:52:14.173] - Field: ‘local’ 1534s [00:52:14.174] - Field: ‘owner’ 1534s [00:52:14.174] - Field: ‘envir’ 1534s [00:52:14.174] - Field: ‘packages’ 1534s [00:52:14.175] - Field: ‘gc’ 1534s [00:52:14.175] - Field: ‘conditions’ 1534s [00:52:14.175] - Field: ‘expr’ 1534s [00:52:14.175] - Field: ‘uuid’ 1534s [00:52:14.175] - Field: ‘seed’ 1534s [00:52:14.175] - Field: ‘version’ 1534s [00:52:14.176] - Field: ‘result’ 1534s [00:52:14.176] - Field: ‘asynchronous’ 1534s [00:52:14.176] - Field: ‘calls’ 1534s [00:52:14.176] - Field: ‘globals’ 1534s [00:52:14.176] - Field: ‘stdout’ 1534s [00:52:14.176] - Field: ‘earlySignal’ 1534s [00:52:14.176] - Field: ‘lazy’ 1534s [00:52:14.177] - Field: ‘state’ 1534s [00:52:14.177] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1534s [00:52:14.177] - Launch lazy future ... 1534s [00:52:14.178] Packages needed by the future expression (n = 1): ‘stats’ 1534s [00:52:14.178] Packages needed by future strategies (n = 0): 1534s [00:52:14.179] { 1534s [00:52:14.179] { 1534s [00:52:14.179] { 1534s [00:52:14.179] ...future.startTime <- base::Sys.time() 1534s [00:52:14.179] { 1534s [00:52:14.179] { 1534s [00:52:14.179] { 1534s [00:52:14.179] { 1534s [00:52:14.179] base::local({ 1534s [00:52:14.179] has_future <- base::requireNamespace("future", 1534s [00:52:14.179] quietly = TRUE) 1534s [00:52:14.179] if (has_future) { 1534s [00:52:14.179] ns <- base::getNamespace("future") 1534s [00:52:14.179] version <- ns[[".package"]][["version"]] 1534s [00:52:14.179] if (is.null(version)) 1534s [00:52:14.179] version <- utils::packageVersion("future") 1534s [00:52:14.179] } 1534s [00:52:14.179] else { 1534s [00:52:14.179] version <- NULL 1534s [00:52:14.179] } 1534s [00:52:14.179] if (!has_future || version < "1.8.0") { 1534s [00:52:14.179] info <- base::c(r_version = base::gsub("R version ", 1534s [00:52:14.179] "", base::R.version$version.string), 1534s [00:52:14.179] platform = base::sprintf("%s (%s-bit)", 1534s [00:52:14.179] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1534s [00:52:14.179] os = base::paste(base::Sys.info()[base::c("sysname", 1534s [00:52:14.179] "release", "version")], collapse = " "), 1534s [00:52:14.179] hostname = base::Sys.info()[["nodename"]]) 1534s [00:52:14.179] info <- base::sprintf("%s: %s", base::names(info), 1534s [00:52:14.179] info) 1534s [00:52:14.179] info <- base::paste(info, collapse = "; ") 1534s [00:52:14.179] if (!has_future) { 1534s [00:52:14.179] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1534s [00:52:14.179] info) 1534s [00:52:14.179] } 1534s [00:52:14.179] else { 1534s [00:52:14.179] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1534s [00:52:14.179] info, version) 1534s [00:52:14.179] } 1534s [00:52:14.179] base::stop(msg) 1534s [00:52:14.179] } 1534s [00:52:14.179] }) 1534s [00:52:14.179] } 1534s [00:52:14.179] base::local({ 1534s [00:52:14.179] for (pkg in "stats") { 1534s [00:52:14.179] base::loadNamespace(pkg) 1534s [00:52:14.179] base::library(pkg, character.only = TRUE) 1534s [00:52:14.179] } 1534s [00:52:14.179] }) 1534s [00:52:14.179] } 1534s [00:52:14.179] options(future.plan = NULL) 1534s [00:52:14.179] Sys.unsetenv("R_FUTURE_PLAN") 1534s [00:52:14.179] future::plan("default", .cleanup = FALSE, .init = FALSE) 1534s [00:52:14.179] } 1534s [00:52:14.179] ...future.workdir <- getwd() 1534s [00:52:14.179] } 1534s [00:52:14.179] ...future.oldOptions <- base::as.list(base::.Options) 1534s [00:52:14.179] ...future.oldEnvVars <- base::Sys.getenv() 1534s [00:52:14.179] } 1534s [00:52:14.179] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1534s [00:52:14.179] future.globals.maxSize = NULL, future.globals.method = NULL, 1534s [00:52:14.179] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1534s [00:52:14.179] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1534s [00:52:14.179] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1534s [00:52:14.179] future.stdout.windows.reencode = NULL, width = 80L) 1534s [00:52:14.179] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1534s [00:52:14.179] base::names(...future.oldOptions)) 1534s [00:52:14.179] } 1534s [00:52:14.179] if (FALSE) { 1534s [00:52:14.179] } 1534s [00:52:14.179] else { 1534s [00:52:14.179] if (TRUE) { 1534s [00:52:14.179] ...future.stdout <- base::rawConnection(base::raw(0L), 1534s [00:52:14.179] open = "w") 1534s [00:52:14.179] } 1534s [00:52:14.179] else { 1534s [00:52:14.179] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1534s [00:52:14.179] windows = "NUL", "/dev/null"), open = "w") 1534s [00:52:14.179] } 1534s [00:52:14.179] base::sink(...future.stdout, type = "output", split = FALSE) 1534s [00:52:14.179] base::on.exit(if (!base::is.null(...future.stdout)) { 1534s [00:52:14.179] base::sink(type = "output", split = FALSE) 1534s [00:52:14.179] base::close(...future.stdout) 1534s [00:52:14.179] }, add = TRUE) 1534s [00:52:14.179] } 1534s [00:52:14.179] ...future.frame <- base::sys.nframe() 1534s [00:52:14.179] ...future.conditions <- base::list() 1534s [00:52:14.179] ...future.rng <- base::globalenv()$.Random.seed 1534s [00:52:14.179] if (FALSE) { 1534s [00:52:14.179] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1534s [00:52:14.179] "...future.value", "...future.globalenv.names", ".Random.seed") 1534s [00:52:14.179] } 1534s [00:52:14.179] ...future.result <- base::tryCatch({ 1534s [00:52:14.179] base::withCallingHandlers({ 1534s [00:52:14.179] ...future.value <- base::withVisible(base::local({ 1534s [00:52:14.179] do.call(function(...) { 1534s [00:52:14.179] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1534s [00:52:14.179] if (!identical(...future.globals.maxSize.org, 1534s [00:52:14.179] ...future.globals.maxSize)) { 1534s [00:52:14.179] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1534s [00:52:14.179] on.exit(options(oopts), add = TRUE) 1534s [00:52:14.179] } 1534s [00:52:14.179] { 1534s [00:52:14.179] lapply(seq_along(...future.elements_ii), 1534s [00:52:14.179] FUN = function(jj) { 1534s [00:52:14.179] ...future.X_jj <- ...future.elements_ii[[jj]] 1534s [00:52:14.179] ...future.FUN(...future.X_jj, ...) 1534s [00:52:14.179] }) 1534s [00:52:14.179] } 1534s [00:52:14.179] }, args = future.call.arguments) 1534s [00:52:14.179] })) 1534s [00:52:14.179] future::FutureResult(value = ...future.value$value, 1534s [00:52:14.179] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1534s [00:52:14.179] ...future.rng), globalenv = if (FALSE) 1534s [00:52:14.179] list(added = base::setdiff(base::names(base::.GlobalEnv), 1534s [00:52:14.179] ...future.globalenv.names)) 1534s [00:52:14.179] else NULL, started = ...future.startTime, version = "1.8") 1534s [00:52:14.179] }, condition = base::local({ 1534s [00:52:14.179] c <- base::c 1534s [00:52:14.179] inherits <- base::inherits 1534s [00:52:14.179] invokeRestart <- base::invokeRestart 1534s [00:52:14.179] length <- base::length 1534s [00:52:14.179] list <- base::list 1534s [00:52:14.179] seq.int <- base::seq.int 1534s [00:52:14.179] signalCondition <- base::signalCondition 1534s [00:52:14.179] sys.calls <- base::sys.calls 1534s [00:52:14.179] `[[` <- base::`[[` 1534s [00:52:14.179] `+` <- base::`+` 1534s [00:52:14.179] `<<-` <- base::`<<-` 1534s [00:52:14.179] sysCalls <- function(calls = sys.calls(), from = 1L) { 1534s [00:52:14.179] calls[seq.int(from = from + 12L, to = length(calls) - 1534s [00:52:14.179] 3L)] 1534s [00:52:14.179] } 1534s [00:52:14.179] function(cond) { 1534s [00:52:14.179] is_error <- inherits(cond, "error") 1534s [00:52:14.179] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1534s [00:52:14.179] NULL) 1534s [00:52:14.179] if (is_error) { 1534s [00:52:14.179] sessionInformation <- function() { 1534s [00:52:14.179] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1534s [00:52:14.179] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1534s [00:52:14.179] search = base::search(), system = base::Sys.info()) 1534s [00:52:14.179] } 1534s [00:52:14.179] ...future.conditions[[length(...future.conditions) + 1534s [00:52:14.179] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1534s [00:52:14.179] cond$call), session = sessionInformation(), 1534s [00:52:14.179] timestamp = base::Sys.time(), signaled = 0L) 1534s [00:52:14.179] signalCondition(cond) 1534s [00:52:14.179] } 1534s [00:52:14.179] else if (!ignore && TRUE && inherits(cond, c("condition", 1534s [00:52:14.179] "immediateCondition"))) { 1534s [00:52:14.179] signal <- TRUE && inherits(cond, "immediateCondition") 1534s [00:52:14.179] ...future.conditions[[length(...future.conditions) + 1534s [00:52:14.179] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1534s [00:52:14.179] if (TRUE && !signal) { 1534s [00:52:14.179] muffleCondition <- function (cond, pattern = "^muffle") 1534s [00:52:14.179] { 1534s [00:52:14.179] inherits <- base::inherits 1534s [00:52:14.179] invokeRestart <- base::invokeRestart 1534s [00:52:14.179] is.null <- base::is.null 1534s [00:52:14.179] muffled <- FALSE 1534s [00:52:14.179] if (inherits(cond, "message")) { 1534s [00:52:14.179] muffled <- grepl(pattern, "muffleMessage") 1534s [00:52:14.179] if (muffled) 1534s [00:52:14.179] invokeRestart("muffleMessage") 1534s [00:52:14.179] } 1534s [00:52:14.179] else if (inherits(cond, "warning")) { 1534s [00:52:14.179] muffled <- grepl(pattern, "muffleWarning") 1534s [00:52:14.179] if (muffled) 1534s [00:52:14.179] invokeRestart("muffleWarning") 1534s [00:52:14.179] } 1534s [00:52:14.179] else if (inherits(cond, "condition")) { 1534s [00:52:14.179] if (!is.null(pattern)) { 1534s [00:52:14.179] computeRestarts <- base::computeRestarts 1534s [00:52:14.179] grepl <- base::grepl 1534s [00:52:14.179] restarts <- computeRestarts(cond) 1534s [00:52:14.179] for (restart in restarts) { 1534s [00:52:14.179] name <- restart$name 1534s [00:52:14.179] if (is.null(name)) 1534s [00:52:14.179] next 1534s [00:52:14.179] if (!grepl(pattern, name)) 1534s [00:52:14.179] next 1534s [00:52:14.179] invokeRestart(restart) 1534s [00:52:14.179] muffled <- TRUE 1534s [00:52:14.179] break 1534s [00:52:14.179] } 1534s [00:52:14.179] } 1534s [00:52:14.179] } 1534s [00:52:14.179] invisible(muffled) 1534s [00:52:14.179] } 1534s [00:52:14.179] muffleCondition(cond, pattern = "^muffle") 1534s [00:52:14.179] } 1534s [00:52:14.179] } 1534s [00:52:14.179] else { 1534s [00:52:14.179] if (TRUE) { 1534s [00:52:14.179] muffleCondition <- function (cond, pattern = "^muffle") 1534s [00:52:14.179] { 1534s [00:52:14.179] inherits <- base::inherits 1534s [00:52:14.179] invokeRestart <- base::invokeRestart 1534s [00:52:14.179] is.null <- base::is.null 1534s [00:52:14.179] muffled <- FALSE 1534s [00:52:14.179] if (inherits(cond, "message")) { 1534s [00:52:14.179] muffled <- grepl(pattern, "muffleMessage") 1534s [00:52:14.179] if (muffled) 1534s [00:52:14.179] invokeRestart("muffleMessage") 1534s [00:52:14.179] } 1534s [00:52:14.179] else if (inherits(cond, "warning")) { 1534s [00:52:14.179] muffled <- grepl(pattern, "muffleWarning") 1534s [00:52:14.179] if (muffled) 1534s [00:52:14.179] invokeRestart("muffleWarning") 1534s [00:52:14.179] } 1534s [00:52:14.179] else if (inherits(cond, "condition")) { 1534s [00:52:14.179] if (!is.null(pattern)) { 1534s [00:52:14.179] computeRestarts <- base::computeRestarts 1534s [00:52:14.179] grepl <- base::grepl 1534s [00:52:14.179] restarts <- computeRestarts(cond) 1534s [00:52:14.179] for (restart in restarts) { 1534s [00:52:14.179] name <- restart$name 1534s [00:52:14.179] if (is.null(name)) 1534s [00:52:14.179] next 1534s [00:52:14.179] if (!grepl(pattern, name)) 1534s [00:52:14.179] next 1534s [00:52:14.179] invokeRestart(restart) 1534s [00:52:14.179] muffled <- TRUE 1534s [00:52:14.179] break 1534s [00:52:14.179] } 1534s [00:52:14.179] } 1534s [00:52:14.179] } 1534s [00:52:14.179] invisible(muffled) 1534s [00:52:14.179] } 1534s [00:52:14.179] muffleCondition(cond, pattern = "^muffle") 1534s [00:52:14.179] } 1534s [00:52:14.179] } 1534s [00:52:14.179] } 1534s [00:52:14.179] })) 1534s [00:52:14.179] }, error = function(ex) { 1534s [00:52:14.179] base::structure(base::list(value = NULL, visible = NULL, 1534s [00:52:14.179] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1534s [00:52:14.179] ...future.rng), started = ...future.startTime, 1534s [00:52:14.179] finished = Sys.time(), session_uuid = NA_character_, 1534s [00:52:14.179] version = "1.8"), class = "FutureResult") 1534s [00:52:14.179] }, finally = { 1534s [00:52:14.179] if (!identical(...future.workdir, getwd())) 1534s [00:52:14.179] setwd(...future.workdir) 1534s [00:52:14.179] { 1534s [00:52:14.179] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1534s [00:52:14.179] ...future.oldOptions$nwarnings <- NULL 1534s [00:52:14.179] } 1534s [00:52:14.179] base::options(...future.oldOptions) 1534s [00:52:14.179] if (.Platform$OS.type == "windows") { 1534s [00:52:14.179] old_names <- names(...future.oldEnvVars) 1534s [00:52:14.179] envs <- base::Sys.getenv() 1534s [00:52:14.179] names <- names(envs) 1534s [00:52:14.179] common <- intersect(names, old_names) 1534s [00:52:14.179] added <- setdiff(names, old_names) 1534s [00:52:14.179] removed <- setdiff(old_names, names) 1534s [00:52:14.179] changed <- common[...future.oldEnvVars[common] != 1534s [00:52:14.179] envs[common]] 1534s [00:52:14.179] NAMES <- toupper(changed) 1534s [00:52:14.179] args <- list() 1534s [00:52:14.179] for (kk in seq_along(NAMES)) { 1534s [00:52:14.179] name <- changed[[kk]] 1534s [00:52:14.179] NAME <- NAMES[[kk]] 1534s [00:52:14.179] if (name != NAME && is.element(NAME, old_names)) 1534s [00:52:14.179] next 1534s [00:52:14.179] args[[name]] <- ...future.oldEnvVars[[name]] 1534s [00:52:14.179] } 1534s [00:52:14.179] NAMES <- toupper(added) 1534s [00:52:14.179] for (kk in seq_along(NAMES)) { 1534s [00:52:14.179] name <- added[[kk]] 1534s [00:52:14.179] NAME <- NAMES[[kk]] 1534s [00:52:14.179] if (name != NAME && is.element(NAME, old_names)) 1534s [00:52:14.179] next 1534s [00:52:14.179] args[[name]] <- "" 1534s [00:52:14.179] } 1534s [00:52:14.179] NAMES <- toupper(removed) 1534s [00:52:14.179] for (kk in seq_along(NAMES)) { 1534s [00:52:14.179] name <- removed[[kk]] 1534s [00:52:14.179] NAME <- NAMES[[kk]] 1534s [00:52:14.179] if (name != NAME && is.element(NAME, old_names)) 1534s [00:52:14.179] next 1534s [00:52:14.179] args[[name]] <- ...future.oldEnvVars[[name]] 1534s [00:52:14.179] } 1534s [00:52:14.179] if (length(args) > 0) 1534s [00:52:14.179] base::do.call(base::Sys.setenv, args = args) 1534s [00:52:14.179] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1534s [00:52:14.179] } 1534s [00:52:14.179] else { 1534s [00:52:14.179] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1534s [00:52:14.179] } 1534s [00:52:14.179] { 1534s [00:52:14.179] if (base::length(...future.futureOptionsAdded) > 1534s [00:52:14.179] 0L) { 1534s [00:52:14.179] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1534s [00:52:14.179] base::names(opts) <- ...future.futureOptionsAdded 1534s [00:52:14.179] base::options(opts) 1534s [00:52:14.179] } 1534s [00:52:14.179] { 1534s [00:52:14.179] { 1534s [00:52:14.179] NULL 1534s [00:52:14.179] RNGkind("Mersenne-Twister") 1534s [00:52:14.179] base::rm(list = ".Random.seed", envir = base::globalenv(), 1534s [00:52:14.179] inherits = FALSE) 1534s [00:52:14.179] } 1534s [00:52:14.179] options(future.plan = NULL) 1534s [00:52:14.179] if (is.na(NA_character_)) 1534s [00:52:14.179] Sys.unsetenv("R_FUTURE_PLAN") 1534s [00:52:14.179] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1534s [00:52:14.179] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1534s [00:52:14.179] envir = parent.frame()) 1534s [00:52:14.179] { 1534s [00:52:14.179] default_workers <- missing(workers) 1534s [00:52:14.179] if (is.function(workers)) 1534s [00:52:14.179] workers <- workers() 1534s [00:52:14.179] workers <- structure(as.integer(workers), 1534s [00:52:14.179] class = class(workers)) 1534s [00:52:14.179] stop_if_not(is.finite(workers), workers >= 1534s [00:52:14.179] 1L) 1534s [00:52:14.179] if ((workers == 1L && !inherits(workers, 1534s [00:52:14.179] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1534s [00:52:14.179] if (default_workers) 1534s [00:52:14.179] supportsMulticore(warn = TRUE) 1534s [00:52:14.179] return(sequential(..., envir = envir)) 1534s [00:52:14.179] } 1534s [00:52:14.179] oopts <- options(mc.cores = workers) 1534s [00:52:14.179] on.exit(options(oopts)) 1534s [00:52:14.179] future <- MulticoreFuture(..., workers = workers, 1534s [00:52:14.179] envir = envir) 1534s [00:52:14.179] if (!future$lazy) 1534s [00:52:14.179] future <- run(future) 1534s [00:52:14.179] invisible(future) 1534s [00:52:14.179] }), .cleanup = FALSE, .init = FALSE) 1534s [00:52:14.179] } 1534s [00:52:14.179] } 1534s [00:52:14.179] } 1534s [00:52:14.179] }) 1534s [00:52:14.179] if (TRUE) { 1534s [00:52:14.179] base::sink(type = "output", split = FALSE) 1534s [00:52:14.179] if (TRUE) { 1534s [00:52:14.179] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1534s [00:52:14.179] } 1534s [00:52:14.179] else { 1534s [00:52:14.179] ...future.result["stdout"] <- base::list(NULL) 1534s [00:52:14.179] } 1534s [00:52:14.179] base::close(...future.stdout) 1534s [00:52:14.179] ...future.stdout <- NULL 1534s [00:52:14.179] } 1534s [00:52:14.179] ...future.result$conditions <- ...future.conditions 1534s [00:52:14.179] ...future.result$finished <- base::Sys.time() 1534s [00:52:14.179] ...future.result 1534s [00:52:14.179] } 1534s [00:52:14.183] assign_globals() ... 1534s [00:52:14.183] List of 5 1534s [00:52:14.183] $ ...future.FUN :function (x, ...) 1534s [00:52:14.183] $ future.call.arguments :List of 1 1534s [00:52:14.183] ..$ probs: num [1:3] 0.25 0.5 0.75 1534s [00:52:14.183] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1534s [00:52:14.183] $ ...future.elements_ii :List of 3 1534s [00:52:14.183] ..$ logic: logi [1:4] TRUE FALSE FALSE TRUE 1534s [00:52:14.183] ..$ beta : num [1:7] 0.0498 0.1353 0.3679 1 2.7183 ... 1534s [00:52:14.183] ..$ a : int [1:10] 1 2 3 4 5 6 7 8 9 10 1534s [00:52:14.183] $ ...future.seeds_ii : NULL 1534s [00:52:14.183] $ ...future.globals.maxSize: NULL 1534s [00:52:14.183] - attr(*, "where")=List of 5 1534s [00:52:14.183] ..$ ...future.FUN : 1534s [00:52:14.183] ..$ future.call.arguments : 1534s [00:52:14.183] ..$ ...future.elements_ii : 1534s [00:52:14.183] ..$ ...future.seeds_ii : 1534s [00:52:14.183] ..$ ...future.globals.maxSize: 1534s [00:52:14.183] - attr(*, "resolved")= logi FALSE 1534s [00:52:14.183] - attr(*, "total_size")= num 1328 1534s [00:52:14.183] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1534s [00:52:14.183] - attr(*, "already-done")= logi TRUE 1534s [00:52:14.192] - copied ‘...future.FUN’ to environment 1534s [00:52:14.192] - copied ‘future.call.arguments’ to environment 1534s [00:52:14.192] - copied ‘...future.elements_ii’ to environment 1534s [00:52:14.192] - copied ‘...future.seeds_ii’ to environment 1534s [00:52:14.192] - copied ‘...future.globals.maxSize’ to environment 1534s [00:52:14.192] assign_globals() ... done 1534s [00:52:14.193] plan(): Setting new future strategy stack: 1534s [00:52:14.193] List of future strategies: 1534s [00:52:14.193] 1. sequential: 1534s [00:52:14.193] - args: function (..., envir = parent.frame()) 1534s [00:52:14.193] - tweaked: FALSE 1534s [00:52:14.193] - call: NULL 1534s [00:52:14.195] plan(): nbrOfWorkers() = 1 1534s [00:52:14.197] plan(): Setting new future strategy stack: 1534s [00:52:14.197] List of future strategies: 1534s [00:52:14.197] 1. multicore: 1534s [00:52:14.197] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1534s [00:52:14.197] - tweaked: FALSE 1534s [00:52:14.197] - call: plan(strategy) 1534s [00:52:14.200] plan(): nbrOfWorkers() = 1 1534s [00:52:14.201] SequentialFuture started (and completed) 1534s [00:52:14.201] - Launch lazy future ... done 1534s [00:52:14.201] run() for ‘SequentialFuture’ ... done 1534s [00:52:14.201] Created future: 1534s [00:52:14.201] SequentialFuture: 1534s [00:52:14.201] Label: ‘future_eapply-1’ 1534s [00:52:14.201] Expression: 1534s [00:52:14.201] { 1534s [00:52:14.201] do.call(function(...) { 1534s [00:52:14.201] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1534s [00:52:14.201] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1534s [00:52:14.201] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1534s [00:52:14.201] on.exit(options(oopts), add = TRUE) 1534s [00:52:14.201] } 1534s [00:52:14.201] { 1534s [00:52:14.201] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1534s [00:52:14.201] ...future.X_jj <- ...future.elements_ii[[jj]] 1534s [00:52:14.201] ...future.FUN(...future.X_jj, ...) 1534s [00:52:14.201] }) 1534s [00:52:14.201] } 1534s [00:52:14.201] }, args = future.call.arguments) 1534s [00:52:14.201] } 1534s [00:52:14.201] Lazy evaluation: FALSE 1534s [00:52:14.201] Asynchronous evaluation: FALSE 1534s [00:52:14.201] Local evaluation: TRUE 1534s [00:52:14.201] Environment: R_GlobalEnv 1534s [00:52:14.201] Capture standard output: TRUE 1534s [00:52:14.201] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1534s [00:52:14.201] Globals: 5 objects totaling 1.56 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 80 bytes, list ‘...future.elements_ii’ of 272 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1534s [00:52:14.201] Packages: 1 packages (‘stats’) 1534s [00:52:14.201] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1534s [00:52:14.201] Resolved: TRUE 1534s [00:52:14.201] Value: 1.29 KiB of class ‘list’ 1534s [00:52:14.201] Early signaling: FALSE 1534s [00:52:14.201] Owner process: a67f97e2-ffea-5be0-b95e-c580db557e5a 1534s [00:52:14.201] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1534s [00:52:14.203] Chunk #1 of 1 ... DONE 1534s [00:52:14.203] Launching 1 futures (chunks) ... DONE 1534s [00:52:14.203] Resolving 1 futures (chunks) ... 1534s [00:52:14.203] resolve() on list ... 1534s [00:52:14.203] recursive: 0 1534s [00:52:14.203] length: 1 1534s [00:52:14.204] 1534s [00:52:14.204] resolved() for ‘SequentialFuture’ ... 1534s [00:52:14.204] - state: ‘finished’ 1534s [00:52:14.204] - run: TRUE 1534s [00:52:14.204] - result: ‘FutureResult’ 1534s [00:52:14.204] resolved() for ‘SequentialFuture’ ... done 1534s [00:52:14.204] Future #1 1534s [00:52:14.204] signalConditionsASAP(SequentialFuture, pos=1) ... 1534s [00:52:14.205] - nx: 1 1534s [00:52:14.205] - relay: TRUE 1534s [00:52:14.205] - stdout: TRUE 1534s [00:52:14.205] - signal: TRUE 1534s [00:52:14.205] - resignal: FALSE 1534s [00:52:14.205] - force: TRUE 1534s [00:52:14.205] - relayed: [n=1] FALSE 1534s [00:52:14.206] - queued futures: [n=1] FALSE 1534s [00:52:14.206] - until=1 1534s [00:52:14.206] - relaying element #1 1534s [00:52:14.206] - relayed: [n=1] TRUE 1534s [00:52:14.206] - queued futures: [n=1] TRUE 1534s [00:52:14.206] signalConditionsASAP(SequentialFuture, pos=1) ... done 1534s [00:52:14.206] length: 0 (resolved future 1) 1534s [00:52:14.207] Relaying remaining futures 1534s [00:52:14.207] signalConditionsASAP(NULL, pos=0) ... 1534s [00:52:14.207] - nx: 1 1534s [00:52:14.207] - relay: TRUE 1534s [00:52:14.207] - stdout: TRUE 1534s [00:52:14.207] - signal: TRUE 1534s [00:52:14.207] - resignal: FALSE 1534s [00:52:14.207] - force: TRUE 1534s [00:52:14.207] - relayed: [n=1] TRUE 1534s [00:52:14.207] - queued futures: [n=1] TRUE 1534s - flush all 1534s [00:52:14.208] - relayed: [n=1] TRUE 1534s [00:52:14.208] - queued futures: [n=1] TRUE 1534s [00:52:14.208] signalConditionsASAP(NULL, pos=0) ... done 1534s [00:52:14.208] resolve() on list ... DONE 1534s [00:52:14.208] - Number of value chunks collected: 1 1534s [00:52:14.208] Resolving 1 futures (chunks) ... DONE 1534s [00:52:14.208] Reducing values from 1 chunks ... 1534s [00:52:14.208] - Number of values collected after concatenation: 3 1534s [00:52:14.208] - Number of values expected: 3 1534s [00:52:14.209] Reducing values from 1 chunks ... DONE 1534s [00:52:14.209] future_lapply() ... DONE 1534s [00:52:14.210] future_lapply() ... 1534s [00:52:14.213] Number of chunks: 1 1534s [00:52:14.214] getGlobalsAndPackagesXApply() ... 1534s [00:52:14.214] - future.globals: TRUE 1534s [00:52:14.214] getGlobalsAndPackages() ... 1534s [00:52:14.214] Searching for globals... 1534s [00:52:14.215] - globals found: [2] ‘FUN’, ‘UseMethod’ 1534s [00:52:14.215] Searching for globals ... DONE 1534s [00:52:14.216] Resolving globals: FALSE 1534s [00:52:14.216] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1534s [00:52:14.216] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1534s [00:52:14.217] - globals: [1] ‘FUN’ 1534s [00:52:14.217] - packages: [1] ‘stats’ 1534s [00:52:14.217] getGlobalsAndPackages() ... DONE 1534s [00:52:14.217] - globals found/used: [n=1] ‘FUN’ 1534s [00:52:14.217] - needed namespaces: [n=1] ‘stats’ 1534s [00:52:14.217] Finding globals ... DONE 1534s [00:52:14.217] - use_args: TRUE 1534s [00:52:14.218] - Getting '...' globals ... 1534s [00:52:14.218] resolve() on list ... 1534s [00:52:14.218] recursive: 0 1534s [00:52:14.218] length: 1 1534s [00:52:14.218] elements: ‘...’ 1534s [00:52:14.219] length: 0 (resolved future 1) 1534s [00:52:14.219] resolve() on list ... DONE 1534s [00:52:14.219] - '...' content: [n=0] 1534s [00:52:14.219] List of 1 1534s [00:52:14.219] $ ...: list() 1534s [00:52:14.219] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1534s [00:52:14.219] - attr(*, "where")=List of 1 1534s [00:52:14.219] ..$ ...: 1534s [00:52:14.219] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1534s [00:52:14.219] - attr(*, "resolved")= logi TRUE 1534s [00:52:14.219] - attr(*, "total_size")= num NA 1534s [00:52:14.222] - Getting '...' globals ... DONE 1534s [00:52:14.223] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1534s [00:52:14.223] List of 2 1534s [00:52:14.223] $ ...future.FUN:function (x, ...) 1534s [00:52:14.223] $ ... : list() 1534s [00:52:14.223] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1534s [00:52:14.223] - attr(*, "where")=List of 2 1534s [00:52:14.223] ..$ ...future.FUN: 1534s [00:52:14.223] ..$ ... : 1534s [00:52:14.223] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1534s [00:52:14.223] - attr(*, "resolved")= logi FALSE 1534s [00:52:14.223] - attr(*, "total_size")= num 1248 1534s [00:52:14.226] Packages to be attached in all futures: [n=1] ‘stats’ 1534s [00:52:14.226] getGlobalsAndPackagesXApply() ... DONE 1534s [00:52:14.226] Number of futures (= number of chunks): 1 1534s [00:52:14.227] Launching 1 futures (chunks) ... 1534s [00:52:14.227] Chunk #1 of 1 ... 1534s [00:52:14.227] - Finding globals in 'X' for chunk #1 ... 1534s [00:52:14.227] getGlobalsAndPackages() ... 1534s [00:52:14.227] Searching for globals... 1534s [00:52:14.229] 1534s [00:52:14.229] Searching for globals ... DONE 1534s [00:52:14.229] - globals: [0] 1534s [00:52:14.229] getGlobalsAndPackages() ... DONE 1534s [00:52:14.229] + additional globals found: [n=0] 1534s [00:52:14.230] + additional namespaces needed: [n=0] 1534s [00:52:14.230] - Finding globals in 'X' for chunk #1 ... DONE 1534s [00:52:14.230] - seeds: 1534s [00:52:14.230] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1534s [00:52:14.230] getGlobalsAndPackages() ... 1534s [00:52:14.230] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1534s [00:52:14.231] Resolving globals: FALSE 1534s [00:52:14.231] Tweak future expression to call with '...' arguments ... 1534s [00:52:14.231] { 1534s [00:52:14.231] do.call(function(...) { 1534s [00:52:14.231] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1534s [00:52:14.231] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1534s [00:52:14.231] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1534s [00:52:14.231] on.exit(options(oopts), add = TRUE) 1534s [00:52:14.231] } 1534s [00:52:14.231] { 1534s [00:52:14.231] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1534s [00:52:14.231] ...future.X_jj <- ...future.elements_ii[[jj]] 1534s [00:52:14.231] ...future.FUN(...future.X_jj, ...) 1534s [00:52:14.231] }) 1534s [00:52:14.231] } 1534s [00:52:14.231] }, args = future.call.arguments) 1534s [00:52:14.231] } 1534s [00:52:14.232] Tweak future expression to call with '...' arguments ... DONE 1534s [00:52:14.232] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1534s [00:52:14.233] - packages: [1] ‘stats’ 1534s [00:52:14.233] getGlobalsAndPackages() ... DONE 1534s [00:52:14.233] run() for ‘Future’ ... 1534s [00:52:14.234] - state: ‘created’ 1534s [00:52:14.234] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1534s [00:52:14.238] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1534s [00:52:14.238] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1534s [00:52:14.238] - Field: ‘label’ 1534s [00:52:14.238] - Field: ‘local’ 1534s [00:52:14.238] - Field: ‘owner’ 1534s [00:52:14.239] - Field: ‘envir’ 1534s [00:52:14.239] - Field: ‘packages’ 1534s [00:52:14.239] - Field: ‘gc’ 1534s [00:52:14.239] - Field: ‘conditions’ 1534s [00:52:14.240] - Field: ‘expr’ 1534s [00:52:14.240] - Field: ‘uuid’ 1534s [00:52:14.240] - Field: ‘seed’ 1534s [00:52:14.240] - Field: ‘version’ 1534s [00:52:14.240] - Field: ‘result’ 1534s [00:52:14.241] - Field: ‘asynchronous’ 1534s [00:52:14.241] - Field: ‘calls’ 1534s [00:52:14.241] - Field: ‘globals’ 1534s [00:52:14.241] - Field: ‘stdout’ 1534s [00:52:14.242] - Field: ‘earlySignal’ 1534s [00:52:14.242] - Field: ‘lazy’ 1534s [00:52:14.242] - Field: ‘state’ 1534s [00:52:14.242] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1534s [00:52:14.242] - Launch lazy future ... 1534s [00:52:14.243] Packages needed by the future expression (n = 1): ‘stats’ 1534s [00:52:14.243] Packages needed by future strategies (n = 0): 1534s [00:52:14.243] { 1534s [00:52:14.243] { 1534s [00:52:14.243] { 1534s [00:52:14.243] ...future.startTime <- base::Sys.time() 1534s [00:52:14.243] { 1534s [00:52:14.243] { 1534s [00:52:14.243] { 1534s [00:52:14.243] { 1534s [00:52:14.243] base::local({ 1534s [00:52:14.243] has_future <- base::requireNamespace("future", 1534s [00:52:14.243] quietly = TRUE) 1534s [00:52:14.243] if (has_future) { 1534s [00:52:14.243] ns <- base::getNamespace("future") 1534s [00:52:14.243] version <- ns[[".package"]][["version"]] 1534s [00:52:14.243] if (is.null(version)) 1534s [00:52:14.243] version <- utils::packageVersion("future") 1534s [00:52:14.243] } 1534s [00:52:14.243] else { 1534s [00:52:14.243] version <- NULL 1534s [00:52:14.243] } 1534s [00:52:14.243] if (!has_future || version < "1.8.0") { 1534s [00:52:14.243] info <- base::c(r_version = base::gsub("R version ", 1534s [00:52:14.243] "", base::R.version$version.string), 1534s [00:52:14.243] platform = base::sprintf("%s (%s-bit)", 1534s [00:52:14.243] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1534s [00:52:14.243] os = base::paste(base::Sys.info()[base::c("sysname", 1534s [00:52:14.243] "release", "version")], collapse = " "), 1534s [00:52:14.243] hostname = base::Sys.info()[["nodename"]]) 1534s [00:52:14.243] info <- base::sprintf("%s: %s", base::names(info), 1534s [00:52:14.243] info) 1534s [00:52:14.243] info <- base::paste(info, collapse = "; ") 1534s [00:52:14.243] if (!has_future) { 1534s [00:52:14.243] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1534s [00:52:14.243] info) 1534s [00:52:14.243] } 1534s [00:52:14.243] else { 1534s [00:52:14.243] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1534s [00:52:14.243] info, version) 1534s [00:52:14.243] } 1534s [00:52:14.243] base::stop(msg) 1534s [00:52:14.243] } 1534s [00:52:14.243] }) 1534s [00:52:14.243] } 1534s [00:52:14.243] base::local({ 1534s [00:52:14.243] for (pkg in "stats") { 1534s [00:52:14.243] base::loadNamespace(pkg) 1534s [00:52:14.243] base::library(pkg, character.only = TRUE) 1534s [00:52:14.243] } 1534s [00:52:14.243] }) 1534s [00:52:14.243] } 1534s [00:52:14.243] options(future.plan = NULL) 1534s [00:52:14.243] Sys.unsetenv("R_FUTURE_PLAN") 1534s [00:52:14.243] future::plan("default", .cleanup = FALSE, .init = FALSE) 1534s [00:52:14.243] } 1534s [00:52:14.243] ...future.workdir <- getwd() 1534s [00:52:14.243] } 1534s [00:52:14.243] ...future.oldOptions <- base::as.list(base::.Options) 1534s [00:52:14.243] ...future.oldEnvVars <- base::Sys.getenv() 1534s [00:52:14.243] } 1534s [00:52:14.243] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1534s [00:52:14.243] future.globals.maxSize = NULL, future.globals.method = NULL, 1534s [00:52:14.243] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1534s [00:52:14.243] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1534s [00:52:14.243] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1534s [00:52:14.243] future.stdout.windows.reencode = NULL, width = 80L) 1534s [00:52:14.243] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1534s [00:52:14.243] base::names(...future.oldOptions)) 1534s [00:52:14.243] } 1534s [00:52:14.243] if (FALSE) { 1534s [00:52:14.243] } 1534s [00:52:14.243] else { 1534s [00:52:14.243] if (TRUE) { 1534s [00:52:14.243] ...future.stdout <- base::rawConnection(base::raw(0L), 1534s [00:52:14.243] open = "w") 1534s [00:52:14.243] } 1534s [00:52:14.243] else { 1534s [00:52:14.243] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1534s [00:52:14.243] windows = "NUL", "/dev/null"), open = "w") 1534s [00:52:14.243] } 1534s [00:52:14.243] base::sink(...future.stdout, type = "output", split = FALSE) 1534s [00:52:14.243] base::on.exit(if (!base::is.null(...future.stdout)) { 1534s [00:52:14.243] base::sink(type = "output", split = FALSE) 1534s [00:52:14.243] base::close(...future.stdout) 1534s [00:52:14.243] }, add = TRUE) 1534s [00:52:14.243] } 1534s [00:52:14.243] ...future.frame <- base::sys.nframe() 1534s [00:52:14.243] ...future.conditions <- base::list() 1534s [00:52:14.243] ...future.rng <- base::globalenv()$.Random.seed 1534s [00:52:14.243] if (FALSE) { 1534s [00:52:14.243] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1534s [00:52:14.243] "...future.value", "...future.globalenv.names", ".Random.seed") 1534s [00:52:14.243] } 1534s [00:52:14.243] ...future.result <- base::tryCatch({ 1534s [00:52:14.243] base::withCallingHandlers({ 1534s [00:52:14.243] ...future.value <- base::withVisible(base::local({ 1534s [00:52:14.243] do.call(function(...) { 1534s [00:52:14.243] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1534s [00:52:14.243] if (!identical(...future.globals.maxSize.org, 1534s [00:52:14.243] ...future.globals.maxSize)) { 1534s [00:52:14.243] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1534s [00:52:14.243] on.exit(options(oopts), add = TRUE) 1534s [00:52:14.243] } 1534s [00:52:14.243] { 1534s [00:52:14.243] lapply(seq_along(...future.elements_ii), 1534s [00:52:14.243] FUN = function(jj) { 1534s [00:52:14.243] ...future.X_jj <- ...future.elements_ii[[jj]] 1534s [00:52:14.243] ...future.FUN(...future.X_jj, ...) 1534s [00:52:14.243] }) 1534s [00:52:14.243] } 1534s [00:52:14.243] }, args = future.call.arguments) 1534s [00:52:14.243] })) 1534s [00:52:14.243] future::FutureResult(value = ...future.value$value, 1534s [00:52:14.243] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1534s [00:52:14.243] ...future.rng), globalenv = if (FALSE) 1534s [00:52:14.243] list(added = base::setdiff(base::names(base::.GlobalEnv), 1534s [00:52:14.243] ...future.globalenv.names)) 1534s [00:52:14.243] else NULL, started = ...future.startTime, version = "1.8") 1534s [00:52:14.243] }, condition = base::local({ 1534s [00:52:14.243] c <- base::c 1534s [00:52:14.243] inherits <- base::inherits 1534s [00:52:14.243] invokeRestart <- base::invokeRestart 1534s [00:52:14.243] length <- base::length 1534s [00:52:14.243] list <- base::list 1534s [00:52:14.243] seq.int <- base::seq.int 1534s [00:52:14.243] signalCondition <- base::signalCondition 1534s [00:52:14.243] sys.calls <- base::sys.calls 1534s [00:52:14.243] `[[` <- base::`[[` 1534s [00:52:14.243] `+` <- base::`+` 1534s [00:52:14.243] `<<-` <- base::`<<-` 1534s [00:52:14.243] sysCalls <- function(calls = sys.calls(), from = 1L) { 1534s [00:52:14.243] calls[seq.int(from = from + 12L, to = length(calls) - 1534s [00:52:14.243] 3L)] 1534s [00:52:14.243] } 1534s [00:52:14.243] function(cond) { 1534s [00:52:14.243] is_error <- inherits(cond, "error") 1534s [00:52:14.243] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1534s [00:52:14.243] NULL) 1534s [00:52:14.243] if (is_error) { 1534s [00:52:14.243] sessionInformation <- function() { 1534s [00:52:14.243] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1534s [00:52:14.243] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1534s [00:52:14.243] search = base::search(), system = base::Sys.info()) 1534s [00:52:14.243] } 1534s [00:52:14.243] ...future.conditions[[length(...future.conditions) + 1534s [00:52:14.243] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1534s [00:52:14.243] cond$call), session = sessionInformation(), 1534s [00:52:14.243] timestamp = base::Sys.time(), signaled = 0L) 1534s [00:52:14.243] signalCondition(cond) 1534s [00:52:14.243] } 1534s [00:52:14.243] else if (!ignore && TRUE && inherits(cond, c("condition", 1534s [00:52:14.243] "immediateCondition"))) { 1534s [00:52:14.243] signal <- TRUE && inherits(cond, "immediateCondition") 1534s [00:52:14.243] ...future.conditions[[length(...future.conditions) + 1534s [00:52:14.243] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1534s [00:52:14.243] if (TRUE && !signal) { 1534s [00:52:14.243] muffleCondition <- function (cond, pattern = "^muffle") 1534s [00:52:14.243] { 1534s [00:52:14.243] inherits <- base::inherits 1534s [00:52:14.243] invokeRestart <- base::invokeRestart 1534s [00:52:14.243] is.null <- base::is.null 1534s [00:52:14.243] muffled <- FALSE 1534s [00:52:14.243] if (inherits(cond, "message")) { 1534s [00:52:14.243] muffled <- grepl(pattern, "muffleMessage") 1534s [00:52:14.243] if (muffled) 1534s [00:52:14.243] invokeRestart("muffleMessage") 1534s [00:52:14.243] } 1534s [00:52:14.243] else if (inherits(cond, "warning")) { 1534s [00:52:14.243] muffled <- grepl(pattern, "muffleWarning") 1534s [00:52:14.243] if (muffled) 1534s [00:52:14.243] invokeRestart("muffleWarning") 1534s [00:52:14.243] } 1534s [00:52:14.243] else if (inherits(cond, "condition")) { 1534s [00:52:14.243] if (!is.null(pattern)) { 1534s [00:52:14.243] computeRestarts <- base::computeRestarts 1534s [00:52:14.243] grepl <- base::grepl 1534s [00:52:14.243] restarts <- computeRestarts(cond) 1534s [00:52:14.243] for (restart in restarts) { 1534s [00:52:14.243] name <- restart$name 1534s [00:52:14.243] if (is.null(name)) 1534s [00:52:14.243] next 1534s [00:52:14.243] if (!grepl(pattern, name)) 1534s [00:52:14.243] next 1534s [00:52:14.243] invokeRestart(restart) 1534s [00:52:14.243] muffled <- TRUE 1534s [00:52:14.243] break 1534s [00:52:14.243] } 1534s [00:52:14.243] } 1534s [00:52:14.243] } 1534s [00:52:14.243] invisible(muffled) 1534s [00:52:14.243] } 1534s [00:52:14.243] muffleCondition(cond, pattern = "^muffle") 1534s [00:52:14.243] } 1534s [00:52:14.243] } 1534s [00:52:14.243] else { 1534s [00:52:14.243] if (TRUE) { 1534s [00:52:14.243] muffleCondition <- function (cond, pattern = "^muffle") 1534s [00:52:14.243] { 1534s [00:52:14.243] inherits <- base::inherits 1534s [00:52:14.243] invokeRestart <- base::invokeRestart 1534s [00:52:14.243] is.null <- base::is.null 1534s [00:52:14.243] muffled <- FALSE 1534s [00:52:14.243] if (inherits(cond, "message")) { 1534s [00:52:14.243] muffled <- grepl(pattern, "muffleMessage") 1534s [00:52:14.243] if (muffled) 1534s [00:52:14.243] invokeRestart("muffleMessage") 1534s [00:52:14.243] } 1534s [00:52:14.243] else if (inherits(cond, "warning")) { 1534s [00:52:14.243] muffled <- grepl(pattern, "muffleWarning") 1534s [00:52:14.243] if (muffled) 1534s [00:52:14.243] invokeRestart("muffleWarning") 1534s [00:52:14.243] } 1534s [00:52:14.243] else if (inherits(cond, "condition")) { 1534s [00:52:14.243] if (!is.null(pattern)) { 1534s [00:52:14.243] computeRestarts <- base::computeRestarts 1534s [00:52:14.243] grepl <- base::grepl 1534s [00:52:14.243] restarts <- computeRestarts(cond) 1534s [00:52:14.243] for (restart in restarts) { 1534s [00:52:14.243] name <- restart$name 1534s [00:52:14.243] if (is.null(name)) 1534s [00:52:14.243] next 1534s [00:52:14.243] if (!grepl(pattern, name)) 1534s [00:52:14.243] next 1534s [00:52:14.243] invokeRestart(restart) 1534s [00:52:14.243] muffled <- TRUE 1534s [00:52:14.243] break 1534s [00:52:14.243] } 1534s [00:52:14.243] } 1534s [00:52:14.243] } 1534s [00:52:14.243] invisible(muffled) 1534s [00:52:14.243] } 1534s [00:52:14.243] muffleCondition(cond, pattern = "^muffle") 1534s [00:52:14.243] } 1534s [00:52:14.243] } 1534s [00:52:14.243] } 1534s [00:52:14.243] })) 1534s [00:52:14.243] }, error = function(ex) { 1534s [00:52:14.243] base::structure(base::list(value = NULL, visible = NULL, 1534s [00:52:14.243] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1534s [00:52:14.243] ...future.rng), started = ...future.startTime, 1534s [00:52:14.243] finished = Sys.time(), session_uuid = NA_character_, 1534s [00:52:14.243] version = "1.8"), class = "FutureResult") 1534s [00:52:14.243] }, finally = { 1534s [00:52:14.243] if (!identical(...future.workdir, getwd())) 1534s [00:52:14.243] setwd(...future.workdir) 1534s [00:52:14.243] { 1534s [00:52:14.243] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1534s [00:52:14.243] ...future.oldOptions$nwarnings <- NULL 1534s [00:52:14.243] } 1534s [00:52:14.243] base::options(...future.oldOptions) 1534s [00:52:14.243] if (.Platform$OS.type == "windows") { 1534s [00:52:14.243] old_names <- names(...future.oldEnvVars) 1534s [00:52:14.243] envs <- base::Sys.getenv() 1534s [00:52:14.243] names <- names(envs) 1534s [00:52:14.243] common <- intersect(names, old_names) 1534s [00:52:14.243] added <- setdiff(names, old_names) 1534s [00:52:14.243] removed <- setdiff(old_names, names) 1534s [00:52:14.243] changed <- common[...future.oldEnvVars[common] != 1534s [00:52:14.243] envs[common]] 1534s [00:52:14.243] NAMES <- toupper(changed) 1534s [00:52:14.243] args <- list() 1534s [00:52:14.243] for (kk in seq_along(NAMES)) { 1534s [00:52:14.243] name <- changed[[kk]] 1534s [00:52:14.243] NAME <- NAMES[[kk]] 1534s [00:52:14.243] if (name != NAME && is.element(NAME, old_names)) 1534s [00:52:14.243] next 1534s [00:52:14.243] args[[name]] <- ...future.oldEnvVars[[name]] 1534s [00:52:14.243] } 1534s [00:52:14.243] NAMES <- toupper(added) 1534s [00:52:14.243] for (kk in seq_along(NAMES)) { 1534s [00:52:14.243] name <- added[[kk]] 1534s [00:52:14.243] NAME <- NAMES[[kk]] 1534s [00:52:14.243] if (name != NAME && is.element(NAME, old_names)) 1534s [00:52:14.243] next 1534s [00:52:14.243] args[[name]] <- "" 1534s [00:52:14.243] } 1534s [00:52:14.243] NAMES <- toupper(removed) 1534s [00:52:14.243] for (kk in seq_along(NAMES)) { 1534s [00:52:14.243] name <- removed[[kk]] 1534s [00:52:14.243] NAME <- NAMES[[kk]] 1534s [00:52:14.243] if (name != NAME && is.element(NAME, old_names)) 1534s [00:52:14.243] next 1534s [00:52:14.243] args[[name]] <- ...future.oldEnvVars[[name]] 1534s [00:52:14.243] } 1534s [00:52:14.243] if (length(args) > 0) 1534s [00:52:14.243] base::do.call(base::Sys.setenv, args = args) 1534s [00:52:14.243] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1534s [00:52:14.243] } 1534s [00:52:14.243] else { 1534s [00:52:14.243] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1534s [00:52:14.243] } 1534s [00:52:14.243] { 1534s [00:52:14.243] if (base::length(...future.futureOptionsAdded) > 1534s [00:52:14.243] 0L) { 1534s [00:52:14.243] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1534s [00:52:14.243] base::names(opts) <- ...future.futureOptionsAdded 1534s [00:52:14.243] base::options(opts) 1534s [00:52:14.243] } 1534s [00:52:14.243] { 1534s [00:52:14.243] { 1534s [00:52:14.243] NULL 1534s [00:52:14.243] RNGkind("Mersenne-Twister") 1534s [00:52:14.243] base::rm(list = ".Random.seed", envir = base::globalenv(), 1534s [00:52:14.243] inherits = FALSE) 1534s [00:52:14.243] } 1534s [00:52:14.243] options(future.plan = NULL) 1534s [00:52:14.243] if (is.na(NA_character_)) 1534s [00:52:14.243] Sys.unsetenv("R_FUTURE_PLAN") 1534s [00:52:14.243] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1534s [00:52:14.243] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1534s [00:52:14.243] envir = parent.frame()) 1534s [00:52:14.243] { 1534s [00:52:14.243] default_workers <- missing(workers) 1534s [00:52:14.243] if (is.function(workers)) 1534s [00:52:14.243] workers <- workers() 1534s [00:52:14.243] workers <- structure(as.integer(workers), 1534s [00:52:14.243] class = class(workers)) 1534s [00:52:14.243] stop_if_not(is.finite(workers), workers >= 1534s [00:52:14.243] 1L) 1534s [00:52:14.243] if ((workers == 1L && !inherits(workers, 1534s [00:52:14.243] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1534s [00:52:14.243] if (default_workers) 1534s [00:52:14.243] supportsMulticore(warn = TRUE) 1534s [00:52:14.243] return(sequential(..., envir = envir)) 1534s [00:52:14.243] } 1534s [00:52:14.243] oopts <- options(mc.cores = workers) 1534s [00:52:14.243] on.exit(options(oopts)) 1534s [00:52:14.243] future <- MulticoreFuture(..., workers = workers, 1534s [00:52:14.243] envir = envir) 1534s [00:52:14.243] if (!future$lazy) 1534s [00:52:14.243] future <- run(future) 1534s [00:52:14.243] invisible(future) 1534s [00:52:14.243] }), .cleanup = FALSE, .init = FALSE) 1534s [00:52:14.243] } 1534s [00:52:14.243] } 1534s [00:52:14.243] } 1534s [00:52:14.243] }) 1534s [00:52:14.243] if (TRUE) { 1534s [00:52:14.243] base::sink(type = "output", split = FALSE) 1534s [00:52:14.243] if (TRUE) { 1534s [00:52:14.243] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1534s [00:52:14.243] } 1534s [00:52:14.243] else { 1534s [00:52:14.243] ...future.result["stdout"] <- base::list(NULL) 1534s [00:52:14.243] } 1534s [00:52:14.243] base::close(...future.stdout) 1534s [00:52:14.243] ...future.stdout <- NULL 1534s [00:52:14.243] } 1534s [00:52:14.243] ...future.result$conditions <- ...future.conditions 1534s [00:52:14.243] ...future.result$finished <- base::Sys.time() 1534s [00:52:14.243] ...future.result 1534s [00:52:14.243] } 1534s [00:52:14.250] assign_globals() ... 1534s [00:52:14.250] List of 5 1534s [00:52:14.250] $ ...future.FUN :function (x, ...) 1534s [00:52:14.250] $ future.call.arguments : list() 1534s [00:52:14.250] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1534s [00:52:14.250] $ ...future.elements_ii :List of 3 1534s [00:52:14.250] ..$ logic: logi [1:4] TRUE FALSE FALSE TRUE 1534s [00:52:14.250] ..$ beta : num [1:7] 0.0498 0.1353 0.3679 1 2.7183 ... 1534s [00:52:14.250] ..$ a : int [1:10] 1 2 3 4 5 6 7 8 9 10 1534s [00:52:14.250] $ ...future.seeds_ii : NULL 1534s [00:52:14.250] $ ...future.globals.maxSize: NULL 1534s [00:52:14.250] - attr(*, "where")=List of 5 1534s [00:52:14.250] ..$ ...future.FUN : 1534s [00:52:14.250] ..$ future.call.arguments : 1534s [00:52:14.250] ..$ ...future.elements_ii : 1534s [00:52:14.250] ..$ ...future.seeds_ii : 1534s [00:52:14.250] ..$ ...future.globals.maxSize: 1534s [00:52:14.250] - attr(*, "resolved")= logi FALSE 1534s [00:52:14.250] - attr(*, "total_size")= num 1248 1534s [00:52:14.250] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1534s [00:52:14.250] - attr(*, "already-done")= logi TRUE 1534s [00:52:14.257] - copied ‘...future.FUN’ to environment 1534s [00:52:14.257] - copied ‘future.call.arguments’ to environment 1534s [00:52:14.257] - copied ‘...future.elements_ii’ to environment 1534s [00:52:14.258] - copied ‘...future.seeds_ii’ to environment 1534s [00:52:14.258] - copied ‘...future.globals.maxSize’ to environment 1534s [00:52:14.258] assign_globals() ... done 1534s [00:52:14.258] plan(): Setting new future strategy stack: 1534s [00:52:14.258] List of future strategies: 1534s [00:52:14.258] 1. sequential: 1534s [00:52:14.258] - args: function (..., envir = parent.frame()) 1534s [00:52:14.258] - tweaked: FALSE 1534s [00:52:14.258] - call: NULL 1534s [00:52:14.259] plan(): nbrOfWorkers() = 1 1534s [00:52:14.260] plan(): Setting new future strategy stack: 1534s [00:52:14.261] List of future strategies: 1534s [00:52:14.261] 1. multicore: 1534s [00:52:14.261] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1534s [00:52:14.261] - tweaked: FALSE 1534s [00:52:14.261] - call: plan(strategy) 1534s [00:52:14.264] plan(): nbrOfWorkers() = 1 1534s [00:52:14.265] SequentialFuture started (and completed) 1534s [00:52:14.265] - Launch lazy future ... done 1534s [00:52:14.265] run() for ‘SequentialFuture’ ... done 1534s [00:52:14.265] Created future: 1534s [00:52:14.265] SequentialFuture: 1534s [00:52:14.265] Label: ‘future_eapply-1’ 1534s [00:52:14.265] Expression: 1534s [00:52:14.265] { 1534s [00:52:14.265] do.call(function(...) { 1534s [00:52:14.265] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1534s [00:52:14.265] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1534s [00:52:14.265] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1534s [00:52:14.265] on.exit(options(oopts), add = TRUE) 1534s [00:52:14.265] } 1534s [00:52:14.265] { 1534s [00:52:14.265] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1534s [00:52:14.265] ...future.X_jj <- ...future.elements_ii[[jj]] 1534s [00:52:14.265] ...future.FUN(...future.X_jj, ...) 1534s [00:52:14.265] }) 1534s [00:52:14.265] } 1534s [00:52:14.265] }, args = future.call.arguments) 1534s [00:52:14.265] } 1534s [00:52:14.265] Lazy evaluation: FALSE 1534s [00:52:14.265] Asynchronous evaluation: FALSE 1534s [00:52:14.265] Local evaluation: TRUE 1534s [00:52:14.265] Environment: R_GlobalEnv 1534s [00:52:14.265] Capture standard output: TRUE 1534s [00:52:14.265] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1534s [00:52:14.265] Globals: 5 objects totaling 1.48 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 272 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1534s [00:52:14.265] Packages: 1 packages (‘stats’) 1534s [00:52:14.265] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1534s [00:52:14.265] Resolved: TRUE 1534s [00:52:14.265] Value: 1.71 KiB of class ‘list’ 1534s [00:52:14.265] Early signaling: FALSE 1534s [00:52:14.265] Owner process: a67f97e2-ffea-5be0-b95e-c580db557e5a 1534s [00:52:14.265] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1534s [00:52:14.267] Chunk #1 of 1 ... DONE 1534s [00:52:14.267] Launching 1 futures (chunks) ... DONE 1534s [00:52:14.267] Resolving 1 futures (chunks) ... 1534s [00:52:14.267] resolve() on list ... 1534s [00:52:14.267] recursive: 0 1534s [00:52:14.268] length: 1 1534s [00:52:14.268] 1534s [00:52:14.268] resolved() for ‘SequentialFuture’ ... 1534s [00:52:14.268] - state: ‘finished’ 1534s [00:52:14.268] - run: TRUE 1534s [00:52:14.268] - result: ‘FutureResult’ 1534s [00:52:14.268] resolved() for ‘SequentialFuture’ ... done 1534s [00:52:14.268] Future #1 1534s [00:52:14.269] signalConditionsASAP(SequentialFuture, pos=1) ... 1534s [00:52:14.269] - nx: 1 1534s [00:52:14.269] - relay: TRUE 1534s [00:52:14.269] - stdout: TRUE 1534s [00:52:14.269] - signal: TRUE 1534s [00:52:14.269] - resignal: FALSE 1534s [00:52:14.269] - force: TRUE 1534s [00:52:14.269] - relayed: [n=1] FALSE 1534s [00:52:14.269] - queued futures: [n=1] FALSE 1534s [00:52:14.269] - until=1 1534s [00:52:14.270] - relaying element #1 1534s [00:52:14.270] - relayed: [n=1] TRUE 1534s [00:52:14.270] - queued futures: [n=1] TRUE 1534s [00:52:14.270] signalConditionsASAP(SequentialFuture, pos=1) ... done 1534s [00:52:14.270] length: 0 (resolved future 1) 1534s [00:52:14.270] Relaying remaining futures 1534s [00:52:14.271] signalConditionsASAP(NULL, pos=0) ... 1534s [00:52:14.271] - nx: 1 1534s [00:52:14.271] - relay: TRUE 1534s [00:52:14.271] - stdout: TRUE 1534s [00:52:14.271] - signal: TRUE 1534s [00:52:14.271] - resignal: FALSE 1534s [00:52:14.271] - force: TRUE 1534s [00:52:14.273] - relayed: [n=1] TRUE 1534s [00:52:14.274] - queued futures: [n=1] TRUE 1534s - flush all 1534s [00:52:14.274] - relayed: [n=1] TRUE 1534s [00:52:14.274] - queued futures: [n=1] TRUE 1534s [00:52:14.274] signalConditionsASAP(NULL, pos=0) ... done 1534s [00:52:14.274] resolve() on list ... DONE 1534s [00:52:14.274] - Number of value chunks collected: 1 1534s [00:52:14.274] Resolving 1 futures (chunks) ... DONE 1534s [00:52:14.275] Reducing values from 1 chunks ... 1534s [00:52:14.275] - Number of values collected after concatenation: 3 1534s [00:52:14.275] - Number of values expected: 3 1534s [00:52:14.275] Reducing values from 1 chunks ... DONE 1534s [00:52:14.275] future_lapply() ... DONE 1534s [00:52:14.276] future_lapply() ... 1534s [00:52:14.279] Number of chunks: 1 1534s [00:52:14.280] getGlobalsAndPackagesXApply() ... 1534s [00:52:14.280] - future.globals: TRUE 1534s [00:52:14.280] getGlobalsAndPackages() ... 1534s [00:52:14.280] Searching for globals... 1534s [00:52:14.282] - globals found: [2] ‘FUN’, ‘UseMethod’ 1534s [00:52:14.282] Searching for globals ... DONE 1534s [00:52:14.282] Resolving globals: FALSE 1534s [00:52:14.282] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1534s [00:52:14.283] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1534s [00:52:14.283] - globals: [1] ‘FUN’ 1534s [00:52:14.283] - packages: [1] ‘stats’ 1534s [00:52:14.283] getGlobalsAndPackages() ... DONE 1534s [00:52:14.283] - globals found/used: [n=1] ‘FUN’ 1534s [00:52:14.284] - needed namespaces: [n=1] ‘stats’ 1534s [00:52:14.284] Finding globals ... DONE 1534s [00:52:14.284] - use_args: TRUE 1534s [00:52:14.284] - Getting '...' globals ... 1534s [00:52:14.285] resolve() on list ... 1534s [00:52:14.285] recursive: 0 1534s [00:52:14.285] length: 1 1534s [00:52:14.285] elements: ‘...’ 1534s [00:52:14.285] length: 0 (resolved future 1) 1534s [00:52:14.285] resolve() on list ... DONE 1534s [00:52:14.285] - '...' content: [n=0] 1534s [00:52:14.286] List of 1 1534s [00:52:14.286] $ ...: list() 1534s [00:52:14.286] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1534s [00:52:14.286] - attr(*, "where")=List of 1 1534s [00:52:14.286] ..$ ...: 1534s [00:52:14.286] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1534s [00:52:14.286] - attr(*, "resolved")= logi TRUE 1534s [00:52:14.286] - attr(*, "total_size")= num NA 1534s [00:52:14.289] - Getting '...' globals ... DONE 1534s [00:52:14.289] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1534s [00:52:14.289] List of 2 1534s [00:52:14.289] $ ...future.FUN:function (x, ...) 1534s [00:52:14.289] $ ... : list() 1534s [00:52:14.289] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1534s [00:52:14.289] - attr(*, "where")=List of 2 1534s [00:52:14.289] ..$ ...future.FUN: 1534s [00:52:14.289] ..$ ... : 1534s [00:52:14.289] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1534s [00:52:14.289] - attr(*, "resolved")= logi FALSE 1534s [00:52:14.289] - attr(*, "total_size")= num 1248 1534s [00:52:14.292] Packages to be attached in all futures: [n=1] ‘stats’ 1534s [00:52:14.292] getGlobalsAndPackagesXApply() ... DONE 1534s [00:52:14.293] Number of futures (= number of chunks): 1 1534s [00:52:14.293] Launching 1 futures (chunks) ... 1534s [00:52:14.293] Chunk #1 of 1 ... 1534s [00:52:14.294] - Finding globals in 'X' for chunk #1 ... 1534s [00:52:14.294] getGlobalsAndPackages() ... 1534s [00:52:14.294] Searching for globals... 1534s [00:52:14.294] 1534s [00:52:14.295] Searching for globals ... DONE 1534s [00:52:14.295] - globals: [0] 1534s [00:52:14.295] getGlobalsAndPackages() ... DONE 1534s [00:52:14.295] + additional globals found: [n=0] 1534s [00:52:14.295] + additional namespaces needed: [n=0] 1534s [00:52:14.295] - Finding globals in 'X' for chunk #1 ... DONE 1534s [00:52:14.296] - seeds: 1534s [00:52:14.296] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1534s [00:52:14.296] getGlobalsAndPackages() ... 1534s [00:52:14.296] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1534s [00:52:14.296] Resolving globals: FALSE 1534s [00:52:14.296] Tweak future expression to call with '...' arguments ... 1534s [00:52:14.297] { 1534s [00:52:14.297] do.call(function(...) { 1534s [00:52:14.297] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1534s [00:52:14.297] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1534s [00:52:14.297] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1534s [00:52:14.297] on.exit(options(oopts), add = TRUE) 1534s [00:52:14.297] } 1534s [00:52:14.297] { 1534s [00:52:14.297] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1534s [00:52:14.297] ...future.X_jj <- ...future.elements_ii[[jj]] 1534s [00:52:14.297] ...future.FUN(...future.X_jj, ...) 1534s [00:52:14.297] }) 1534s [00:52:14.297] } 1534s [00:52:14.297] }, args = future.call.arguments) 1534s [00:52:14.297] } 1534s [00:52:14.297] Tweak future expression to call with '...' arguments ... DONE 1534s [00:52:14.298] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1534s [00:52:14.298] - packages: [1] ‘stats’ 1534s [00:52:14.298] getGlobalsAndPackages() ... DONE 1534s [00:52:14.299] run() for ‘Future’ ... 1534s [00:52:14.299] - state: ‘created’ 1534s [00:52:14.299] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1534s [00:52:14.303] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1534s [00:52:14.303] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1534s [00:52:14.303] - Field: ‘label’ 1534s [00:52:14.304] - Field: ‘local’ 1534s [00:52:14.304] - Field: ‘owner’ 1534s [00:52:14.304] - Field: ‘envir’ 1534s [00:52:14.304] - Field: ‘packages’ 1534s [00:52:14.305] - Field: ‘gc’ 1534s [00:52:14.305] - Field: ‘conditions’ 1534s [00:52:14.305] - Field: ‘expr’ 1534s [00:52:14.305] - Field: ‘uuid’ 1534s [00:52:14.305] - Field: ‘seed’ 1534s [00:52:14.305] - Field: ‘version’ 1534s [00:52:14.305] - Field: ‘result’ 1534s [00:52:14.306] - Field: ‘asynchronous’ 1534s [00:52:14.306] - Field: ‘calls’ 1534s [00:52:14.306] - Field: ‘globals’ 1534s [00:52:14.306] - Field: ‘stdout’ 1534s [00:52:14.306] - Field: ‘earlySignal’ 1534s [00:52:14.306] - Field: ‘lazy’ 1534s [00:52:14.306] - Field: ‘state’ 1534s [00:52:14.307] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1534s [00:52:14.307] - Launch lazy future ... 1534s [00:52:14.307] Packages needed by the future expression (n = 1): ‘stats’ 1534s [00:52:14.307] Packages needed by future strategies (n = 0): 1534s [00:52:14.308] { 1534s [00:52:14.308] { 1534s [00:52:14.308] { 1534s [00:52:14.308] ...future.startTime <- base::Sys.time() 1534s [00:52:14.308] { 1534s [00:52:14.308] { 1534s [00:52:14.308] { 1534s [00:52:14.308] { 1534s [00:52:14.308] base::local({ 1534s [00:52:14.308] has_future <- base::requireNamespace("future", 1534s [00:52:14.308] quietly = TRUE) 1534s [00:52:14.308] if (has_future) { 1534s [00:52:14.308] ns <- base::getNamespace("future") 1534s [00:52:14.308] version <- ns[[".package"]][["version"]] 1534s [00:52:14.308] if (is.null(version)) 1534s [00:52:14.308] version <- utils::packageVersion("future") 1534s [00:52:14.308] } 1534s [00:52:14.308] else { 1534s [00:52:14.308] version <- NULL 1534s [00:52:14.308] } 1534s [00:52:14.308] if (!has_future || version < "1.8.0") { 1534s [00:52:14.308] info <- base::c(r_version = base::gsub("R version ", 1534s [00:52:14.308] "", base::R.version$version.string), 1534s [00:52:14.308] platform = base::sprintf("%s (%s-bit)", 1534s [00:52:14.308] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1534s [00:52:14.308] os = base::paste(base::Sys.info()[base::c("sysname", 1534s [00:52:14.308] "release", "version")], collapse = " "), 1534s [00:52:14.308] hostname = base::Sys.info()[["nodename"]]) 1534s [00:52:14.308] info <- base::sprintf("%s: %s", base::names(info), 1534s [00:52:14.308] info) 1534s [00:52:14.308] info <- base::paste(info, collapse = "; ") 1534s [00:52:14.308] if (!has_future) { 1534s [00:52:14.308] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1534s [00:52:14.308] info) 1534s [00:52:14.308] } 1534s [00:52:14.308] else { 1534s [00:52:14.308] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1534s [00:52:14.308] info, version) 1534s [00:52:14.308] } 1534s [00:52:14.308] base::stop(msg) 1534s [00:52:14.308] } 1534s [00:52:14.308] }) 1534s [00:52:14.308] } 1534s [00:52:14.308] base::local({ 1534s [00:52:14.308] for (pkg in "stats") { 1534s [00:52:14.308] base::loadNamespace(pkg) 1534s [00:52:14.308] base::library(pkg, character.only = TRUE) 1534s [00:52:14.308] } 1534s [00:52:14.308] }) 1534s [00:52:14.308] } 1534s [00:52:14.308] options(future.plan = NULL) 1534s [00:52:14.308] Sys.unsetenv("R_FUTURE_PLAN") 1534s [00:52:14.308] future::plan("default", .cleanup = FALSE, .init = FALSE) 1534s [00:52:14.308] } 1534s [00:52:14.308] ...future.workdir <- getwd() 1534s [00:52:14.308] } 1534s [00:52:14.308] ...future.oldOptions <- base::as.list(base::.Options) 1534s [00:52:14.308] ...future.oldEnvVars <- base::Sys.getenv() 1534s [00:52:14.308] } 1534s [00:52:14.308] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1534s [00:52:14.308] future.globals.maxSize = NULL, future.globals.method = NULL, 1534s [00:52:14.308] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1534s [00:52:14.308] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1534s [00:52:14.308] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1534s [00:52:14.308] future.stdout.windows.reencode = NULL, width = 80L) 1534s [00:52:14.308] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1534s [00:52:14.308] base::names(...future.oldOptions)) 1534s [00:52:14.308] } 1534s [00:52:14.308] if (FALSE) { 1534s [00:52:14.308] } 1534s [00:52:14.308] else { 1534s [00:52:14.308] if (TRUE) { 1534s [00:52:14.308] ...future.stdout <- base::rawConnection(base::raw(0L), 1534s [00:52:14.308] open = "w") 1534s [00:52:14.308] } 1534s [00:52:14.308] else { 1534s [00:52:14.308] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1534s [00:52:14.308] windows = "NUL", "/dev/null"), open = "w") 1534s [00:52:14.308] } 1534s [00:52:14.308] base::sink(...future.stdout, type = "output", split = FALSE) 1534s [00:52:14.308] base::on.exit(if (!base::is.null(...future.stdout)) { 1534s [00:52:14.308] base::sink(type = "output", split = FALSE) 1534s [00:52:14.308] base::close(...future.stdout) 1534s [00:52:14.308] }, add = TRUE) 1534s [00:52:14.308] } 1534s [00:52:14.308] ...future.frame <- base::sys.nframe() 1534s [00:52:14.308] ...future.conditions <- base::list() 1534s [00:52:14.308] ...future.rng <- base::globalenv()$.Random.seed 1534s [00:52:14.308] if (FALSE) { 1534s [00:52:14.308] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1534s [00:52:14.308] "...future.value", "...future.globalenv.names", ".Random.seed") 1534s [00:52:14.308] } 1534s [00:52:14.308] ...future.result <- base::tryCatch({ 1534s [00:52:14.308] base::withCallingHandlers({ 1534s [00:52:14.308] ...future.value <- base::withVisible(base::local({ 1534s [00:52:14.308] do.call(function(...) { 1534s [00:52:14.308] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1534s [00:52:14.308] if (!identical(...future.globals.maxSize.org, 1534s [00:52:14.308] ...future.globals.maxSize)) { 1534s [00:52:14.308] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1534s [00:52:14.308] on.exit(options(oopts), add = TRUE) 1534s [00:52:14.308] } 1534s [00:52:14.308] { 1534s [00:52:14.308] lapply(seq_along(...future.elements_ii), 1534s [00:52:14.308] FUN = function(jj) { 1534s [00:52:14.308] ...future.X_jj <- ...future.elements_ii[[jj]] 1534s [00:52:14.308] ...future.FUN(...future.X_jj, ...) 1534s [00:52:14.308] }) 1534s [00:52:14.308] } 1534s [00:52:14.308] }, args = future.call.arguments) 1534s [00:52:14.308] })) 1534s [00:52:14.308] future::FutureResult(value = ...future.value$value, 1534s [00:52:14.308] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1534s [00:52:14.308] ...future.rng), globalenv = if (FALSE) 1534s [00:52:14.308] list(added = base::setdiff(base::names(base::.GlobalEnv), 1534s [00:52:14.308] ...future.globalenv.names)) 1534s [00:52:14.308] else NULL, started = ...future.startTime, version = "1.8") 1534s [00:52:14.308] }, condition = base::local({ 1534s [00:52:14.308] c <- base::c 1534s [00:52:14.308] inherits <- base::inherits 1534s [00:52:14.308] invokeRestart <- base::invokeRestart 1534s [00:52:14.308] length <- base::length 1534s [00:52:14.308] list <- base::list 1534s [00:52:14.308] seq.int <- base::seq.int 1534s [00:52:14.308] signalCondition <- base::signalCondition 1534s [00:52:14.308] sys.calls <- base::sys.calls 1534s [00:52:14.308] `[[` <- base::`[[` 1534s [00:52:14.308] `+` <- base::`+` 1534s [00:52:14.308] `<<-` <- base::`<<-` 1534s [00:52:14.308] sysCalls <- function(calls = sys.calls(), from = 1L) { 1534s [00:52:14.308] calls[seq.int(from = from + 12L, to = length(calls) - 1534s [00:52:14.308] 3L)] 1534s [00:52:14.308] } 1534s [00:52:14.308] function(cond) { 1534s [00:52:14.308] is_error <- inherits(cond, "error") 1534s [00:52:14.308] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1534s [00:52:14.308] NULL) 1534s [00:52:14.308] if (is_error) { 1534s [00:52:14.308] sessionInformation <- function() { 1534s [00:52:14.308] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1534s [00:52:14.308] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1534s [00:52:14.308] search = base::search(), system = base::Sys.info()) 1534s [00:52:14.308] } 1534s [00:52:14.308] ...future.conditions[[length(...future.conditions) + 1534s [00:52:14.308] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1534s [00:52:14.308] cond$call), session = sessionInformation(), 1534s [00:52:14.308] timestamp = base::Sys.time(), signaled = 0L) 1534s [00:52:14.308] signalCondition(cond) 1534s [00:52:14.308] } 1534s [00:52:14.308] else if (!ignore && TRUE && inherits(cond, c("condition", 1534s [00:52:14.308] "immediateCondition"))) { 1534s [00:52:14.308] signal <- TRUE && inherits(cond, "immediateCondition") 1534s [00:52:14.308] ...future.conditions[[length(...future.conditions) + 1534s [00:52:14.308] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1534s [00:52:14.308] if (TRUE && !signal) { 1534s [00:52:14.308] muffleCondition <- function (cond, pattern = "^muffle") 1534s [00:52:14.308] { 1534s [00:52:14.308] inherits <- base::inherits 1534s [00:52:14.308] invokeRestart <- base::invokeRestart 1534s [00:52:14.308] is.null <- base::is.null 1534s [00:52:14.308] muffled <- FALSE 1534s [00:52:14.308] if (inherits(cond, "message")) { 1534s [00:52:14.308] muffled <- grepl(pattern, "muffleMessage") 1534s [00:52:14.308] if (muffled) 1534s [00:52:14.308] invokeRestart("muffleMessage") 1534s [00:52:14.308] } 1534s [00:52:14.308] else if (inherits(cond, "warning")) { 1534s [00:52:14.308] muffled <- grepl(pattern, "muffleWarning") 1534s [00:52:14.308] if (muffled) 1534s [00:52:14.308] invokeRestart("muffleWarning") 1534s [00:52:14.308] } 1534s [00:52:14.308] else if (inherits(cond, "condition")) { 1534s [00:52:14.308] if (!is.null(pattern)) { 1534s [00:52:14.308] computeRestarts <- base::computeRestarts 1534s [00:52:14.308] grepl <- base::grepl 1534s [00:52:14.308] restarts <- computeRestarts(cond) 1534s [00:52:14.308] for (restart in restarts) { 1534s [00:52:14.308] name <- restart$name 1534s [00:52:14.308] if (is.null(name)) 1534s [00:52:14.308] next 1534s [00:52:14.308] if (!grepl(pattern, name)) 1534s [00:52:14.308] next 1534s [00:52:14.308] invokeRestart(restart) 1534s [00:52:14.308] muffled <- TRUE 1534s [00:52:14.308] break 1534s [00:52:14.308] } 1534s [00:52:14.308] } 1534s [00:52:14.308] } 1534s [00:52:14.308] invisible(muffled) 1534s [00:52:14.308] } 1534s [00:52:14.308] muffleCondition(cond, pattern = "^muffle") 1534s [00:52:14.308] } 1534s [00:52:14.308] } 1534s [00:52:14.308] else { 1534s [00:52:14.308] if (TRUE) { 1534s [00:52:14.308] muffleCondition <- function (cond, pattern = "^muffle") 1534s [00:52:14.308] { 1534s [00:52:14.308] inherits <- base::inherits 1534s [00:52:14.308] invokeRestart <- base::invokeRestart 1534s [00:52:14.308] is.null <- base::is.null 1534s [00:52:14.308] muffled <- FALSE 1534s [00:52:14.308] if (inherits(cond, "message")) { 1534s [00:52:14.308] muffled <- grepl(pattern, "muffleMessage") 1534s [00:52:14.308] if (muffled) 1534s [00:52:14.308] invokeRestart("muffleMessage") 1534s [00:52:14.308] } 1534s [00:52:14.308] else if (inherits(cond, "warning")) { 1534s [00:52:14.308] muffled <- grepl(pattern, "muffleWarning") 1534s [00:52:14.308] if (muffled) 1534s [00:52:14.308] invokeRestart("muffleWarning") 1534s [00:52:14.308] } 1534s [00:52:14.308] else if (inherits(cond, "condition")) { 1534s [00:52:14.308] if (!is.null(pattern)) { 1534s [00:52:14.308] computeRestarts <- base::computeRestarts 1534s [00:52:14.308] grepl <- base::grepl 1534s [00:52:14.308] restarts <- computeRestarts(cond) 1534s [00:52:14.308] for (restart in restarts) { 1534s [00:52:14.308] name <- restart$name 1534s [00:52:14.308] if (is.null(name)) 1534s [00:52:14.308] next 1534s [00:52:14.308] if (!grepl(pattern, name)) 1534s [00:52:14.308] next 1534s [00:52:14.308] invokeRestart(restart) 1534s [00:52:14.308] muffled <- TRUE 1534s [00:52:14.308] break 1534s [00:52:14.308] } 1534s [00:52:14.308] } 1534s [00:52:14.308] } 1534s [00:52:14.308] invisible(muffled) 1534s [00:52:14.308] } 1534s [00:52:14.308] muffleCondition(cond, pattern = "^muffle") 1534s [00:52:14.308] } 1534s [00:52:14.308] } 1534s [00:52:14.308] } 1534s [00:52:14.308] })) 1534s [00:52:14.308] }, error = function(ex) { 1534s [00:52:14.308] base::structure(base::list(value = NULL, visible = NULL, 1534s [00:52:14.308] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1534s [00:52:14.308] ...future.rng), started = ...future.startTime, 1534s [00:52:14.308] finished = Sys.time(), session_uuid = NA_character_, 1534s [00:52:14.308] version = "1.8"), class = "FutureResult") 1534s [00:52:14.308] }, finally = { 1534s [00:52:14.308] if (!identical(...future.workdir, getwd())) 1534s [00:52:14.308] setwd(...future.workdir) 1534s [00:52:14.308] { 1534s [00:52:14.308] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1534s [00:52:14.308] ...future.oldOptions$nwarnings <- NULL 1534s [00:52:14.308] } 1534s [00:52:14.308] base::options(...future.oldOptions) 1534s [00:52:14.308] if (.Platform$OS.type == "windows") { 1534s [00:52:14.308] old_names <- names(...future.oldEnvVars) 1534s [00:52:14.308] envs <- base::Sys.getenv() 1534s [00:52:14.308] names <- names(envs) 1534s [00:52:14.308] common <- intersect(names, old_names) 1534s [00:52:14.308] added <- setdiff(names, old_names) 1534s [00:52:14.308] removed <- setdiff(old_names, names) 1534s [00:52:14.308] changed <- common[...future.oldEnvVars[common] != 1534s [00:52:14.308] envs[common]] 1534s [00:52:14.308] NAMES <- toupper(changed) 1534s [00:52:14.308] args <- list() 1534s [00:52:14.308] for (kk in seq_along(NAMES)) { 1534s [00:52:14.308] name <- changed[[kk]] 1534s [00:52:14.308] NAME <- NAMES[[kk]] 1534s [00:52:14.308] if (name != NAME && is.element(NAME, old_names)) 1534s [00:52:14.308] next 1534s [00:52:14.308] args[[name]] <- ...future.oldEnvVars[[name]] 1534s [00:52:14.308] } 1534s [00:52:14.308] NAMES <- toupper(added) 1534s [00:52:14.308] for (kk in seq_along(NAMES)) { 1534s [00:52:14.308] name <- added[[kk]] 1534s [00:52:14.308] NAME <- NAMES[[kk]] 1534s [00:52:14.308] if (name != NAME && is.element(NAME, old_names)) 1534s [00:52:14.308] next 1534s [00:52:14.308] args[[name]] <- "" 1534s [00:52:14.308] } 1534s [00:52:14.308] NAMES <- toupper(removed) 1534s [00:52:14.308] for (kk in seq_along(NAMES)) { 1534s [00:52:14.308] name <- removed[[kk]] 1534s [00:52:14.308] NAME <- NAMES[[kk]] 1534s [00:52:14.308] if (name != NAME && is.element(NAME, old_names)) 1534s [00:52:14.308] next 1534s [00:52:14.308] args[[name]] <- ...future.oldEnvVars[[name]] 1534s [00:52:14.308] } 1534s [00:52:14.308] if (length(args) > 0) 1534s [00:52:14.308] base::do.call(base::Sys.setenv, args = args) 1534s [00:52:14.308] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1534s [00:52:14.308] } 1534s [00:52:14.308] else { 1534s [00:52:14.308] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1534s [00:52:14.308] } 1534s [00:52:14.308] { 1534s [00:52:14.308] if (base::length(...future.futureOptionsAdded) > 1534s [00:52:14.308] 0L) { 1534s [00:52:14.308] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1534s [00:52:14.308] base::names(opts) <- ...future.futureOptionsAdded 1534s [00:52:14.308] base::options(opts) 1534s [00:52:14.308] } 1534s [00:52:14.308] { 1534s [00:52:14.308] { 1534s [00:52:14.308] NULL 1534s [00:52:14.308] RNGkind("Mersenne-Twister") 1534s [00:52:14.308] base::rm(list = ".Random.seed", envir = base::globalenv(), 1534s [00:52:14.308] inherits = FALSE) 1534s [00:52:14.308] } 1534s [00:52:14.308] options(future.plan = NULL) 1534s [00:52:14.308] if (is.na(NA_character_)) 1534s [00:52:14.308] Sys.unsetenv("R_FUTURE_PLAN") 1534s [00:52:14.308] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1534s [00:52:14.308] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1534s [00:52:14.308] envir = parent.frame()) 1534s [00:52:14.308] { 1534s [00:52:14.308] default_workers <- missing(workers) 1534s [00:52:14.308] if (is.function(workers)) 1534s [00:52:14.308] workers <- workers() 1534s [00:52:14.308] workers <- structure(as.integer(workers), 1534s [00:52:14.308] class = class(workers)) 1534s [00:52:14.308] stop_if_not(is.finite(workers), workers >= 1534s [00:52:14.308] 1L) 1534s [00:52:14.308] if ((workers == 1L && !inherits(workers, 1534s [00:52:14.308] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1534s [00:52:14.308] if (default_workers) 1534s [00:52:14.308] supportsMulticore(warn = TRUE) 1534s [00:52:14.308] return(sequential(..., envir = envir)) 1534s [00:52:14.308] } 1534s [00:52:14.308] oopts <- options(mc.cores = workers) 1534s [00:52:14.308] on.exit(options(oopts)) 1534s [00:52:14.308] future <- MulticoreFuture(..., workers = workers, 1534s [00:52:14.308] envir = envir) 1534s [00:52:14.308] if (!future$lazy) 1534s [00:52:14.308] future <- run(future) 1534s [00:52:14.308] invisible(future) 1534s [00:52:14.308] }), .cleanup = FALSE, .init = FALSE) 1534s [00:52:14.308] } 1534s [00:52:14.308] } 1534s [00:52:14.308] } 1534s [00:52:14.308] }) 1534s [00:52:14.308] if (TRUE) { 1534s [00:52:14.308] base::sink(type = "output", split = FALSE) 1534s [00:52:14.308] if (TRUE) { 1534s [00:52:14.308] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1534s [00:52:14.308] } 1534s [00:52:14.308] else { 1534s [00:52:14.308] ...future.result["stdout"] <- base::list(NULL) 1534s [00:52:14.308] } 1534s [00:52:14.308] base::close(...future.stdout) 1534s [00:52:14.308] ...future.stdout <- NULL 1534s [00:52:14.308] } 1534s [00:52:14.308] ...future.result$conditions <- ...future.conditions 1534s [00:52:14.308] ...future.result$finished <- base::Sys.time() 1534s [00:52:14.308] ...future.result 1534s [00:52:14.308] } 1534s [00:52:14.311] assign_globals() ... 1534s [00:52:14.311] List of 5 1534s [00:52:14.311] $ ...future.FUN :function (x, ...) 1534s [00:52:14.311] $ future.call.arguments : list() 1534s [00:52:14.311] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1534s [00:52:14.311] $ ...future.elements_ii :List of 3 1534s [00:52:14.311] ..$ logic: logi [1:4] TRUE FALSE FALSE TRUE 1534s [00:52:14.311] ..$ beta : num [1:7] 0.0498 0.1353 0.3679 1 2.7183 ... 1534s [00:52:14.311] ..$ a : int [1:10] 1 2 3 4 5 6 7 8 9 10 1534s [00:52:14.311] $ ...future.seeds_ii : NULL 1534s [00:52:14.311] $ ...future.globals.maxSize: NULL 1534s [00:52:14.311] - attr(*, "where")=List of 5 1534s [00:52:14.311] ..$ ...future.FUN : 1534s [00:52:14.311] ..$ future.call.arguments : 1534s [00:52:14.311] ..$ ...future.elements_ii : 1534s [00:52:14.311] ..$ ...future.seeds_ii : 1534s [00:52:14.311] ..$ ...future.globals.maxSize: 1534s [00:52:14.311] - attr(*, "resolved")= logi FALSE 1534s [00:52:14.311] - attr(*, "total_size")= num 1248 1534s [00:52:14.311] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1534s [00:52:14.311] - attr(*, "already-done")= logi TRUE 1534s [00:52:14.321] - copied ‘...future.FUN’ to environment 1534s [00:52:14.321] - copied ‘future.call.arguments’ to environment 1534s [00:52:14.321] - copied ‘...future.elements_ii’ to environment 1534s [00:52:14.321] - copied ‘...future.seeds_ii’ to environment 1534s [00:52:14.321] - copied ‘...future.globals.maxSize’ to environment 1534s [00:52:14.322] assign_globals() ... done 1534s [00:52:14.322] plan(): Setting new future strategy stack: 1534s [00:52:14.322] List of future strategies: 1534s [00:52:14.322] 1. sequential: 1534s [00:52:14.322] - args: function (..., envir = parent.frame()) 1534s [00:52:14.322] - tweaked: FALSE 1534s [00:52:14.322] - call: NULL 1534s [00:52:14.323] plan(): nbrOfWorkers() = 1 1534s [00:52:14.324] plan(): Setting new future strategy stack: 1534s [00:52:14.324] List of future strategies: 1534s [00:52:14.324] 1. multicore: 1534s [00:52:14.324] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1534s [00:52:14.324] - tweaked: FALSE 1534s [00:52:14.324] - call: plan(strategy) 1534s [00:52:14.328] plan(): nbrOfWorkers() = 1 1534s [00:52:14.329] SequentialFuture started (and completed) 1534s [00:52:14.329] - Launch lazy future ... done 1534s [00:52:14.330] run() for ‘SequentialFuture’ ... done 1534s [00:52:14.330] Created future: 1534s [00:52:14.330] SequentialFuture: 1534s [00:52:14.330] Label: ‘future_eapply-1’ 1534s [00:52:14.330] Expression: 1534s [00:52:14.330] { 1534s [00:52:14.330] do.call(function(...) { 1534s [00:52:14.330] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1534s [00:52:14.330] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1534s [00:52:14.330] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1534s [00:52:14.330] on.exit(options(oopts), add = TRUE) 1534s [00:52:14.330] } 1534s [00:52:14.330] { 1534s [00:52:14.330] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1534s [00:52:14.330] ...future.X_jj <- ...future.elements_ii[[jj]] 1534s [00:52:14.330] ...future.FUN(...future.X_jj, ...) 1534s [00:52:14.330] }) 1534s [00:52:14.330] } 1534s [00:52:14.330] }, args = future.call.arguments) 1534s [00:52:14.330] } 1534s [00:52:14.330] Lazy evaluation: FALSE 1534s [00:52:14.330] Asynchronous evaluation: FALSE 1534s [00:52:14.330] Local evaluation: TRUE 1534s [00:52:14.330] Environment: R_GlobalEnv 1534s [00:52:14.330] Capture standard output: TRUE 1534s [00:52:14.330] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1534s [00:52:14.330] Globals: 5 objects totaling 1.48 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 272 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1534s [00:52:14.330] Packages: 1 packages (‘stats’) 1534s [00:52:14.330] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1534s [00:52:14.330] Resolved: TRUE 1534s [00:52:14.330] Value: 1.71 KiB of class ‘list’ 1534s [00:52:14.330] Early signaling: FALSE 1534s [00:52:14.330] Owner process: a67f97e2-ffea-5be0-b95e-c580db557e5a 1534s [00:52:14.330] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1534s [00:52:14.332] Chunk #1 of 1 ... DONE 1534s [00:52:14.332] Launching 1 futures (chunks) ... DONE 1534s [00:52:14.332] Resolving 1 futures (chunks) ... 1534s [00:52:14.332] resolve() on list ... 1534s [00:52:14.332] recursive: 0 1534s [00:52:14.333] length: 1 1534s [00:52:14.333] 1534s [00:52:14.333] resolved() for ‘SequentialFuture’ ... 1534s [00:52:14.333] - state: ‘finished’ 1534s [00:52:14.333] - run: TRUE 1534s [00:52:14.333] - result: ‘FutureResult’ 1534s [00:52:14.334] resolved() for ‘SequentialFuture’ ... done 1534s [00:52:14.334] Future #1 1534s [00:52:14.334] signalConditionsASAP(SequentialFuture, pos=1) ... 1534s [00:52:14.334] - nx: 1 1534s [00:52:14.334] - relay: TRUE 1534s [00:52:14.335] - stdout: TRUE 1534s [00:52:14.335] - signal: TRUE 1534s [00:52:14.335] - resignal: FALSE 1534s [00:52:14.335] - force: TRUE 1534s [00:52:14.335] - relayed: [n=1] FALSE 1534s [00:52:14.335] - queued futures: [n=1] FALSE 1534s [00:52:14.335] - until=1 1534s [00:52:14.336] - relaying element #1 1534s [00:52:14.336] - relayed: [n=1] TRUE 1534s [00:52:14.336] - queued futures: [n=1] TRUE 1534s [00:52:14.336] signalConditionsASAP(SequentialFuture, pos=1) ... done 1534s [00:52:14.336] length: 0 (resolved future 1) 1534s [00:52:14.336] Relaying remaining futures 1534s [00:52:14.337] signalConditionsASAP(NULL, pos=0) ... 1534s [00:52:14.337] - nx: 1 1534s [00:52:14.337] - relay: TRUE 1534s [00:52:14.337] - stdout: TRUE 1534s [00:52:14.337] - signal: TRUE 1534s [00:52:14.337] - resignal: FALSE 1534s [00:52:14.337] - force: TRUE 1534s [00:52:14.337] - relayed: [n=1] TRUE 1534s [00:52:14.338] - queued futures: [n=1] TRUE 1534s - flush all 1534s [00:52:14.338] - relayed: [n=1] TRUE 1534s [00:52:14.338] - queued futures: [n=1] TRUE 1534s [00:52:14.338] signalConditionsASAP(NULL, pos=0) ... done 1534s [00:52:14.338] resolve() on list ... DONE 1534s [00:52:14.338] - Number of value chunks collected: 1 1534s [00:52:14.339] Resolving 1 futures (chunks) ... DONE 1534s [00:52:14.339] Reducing values from 1 chunks ... 1534s [00:52:14.339] - Number of values collected after concatenation: 3 1534s [00:52:14.339] - Number of values expected: 3 1534s [00:52:14.339] Reducing values from 1 chunks ... DONE 1534s [00:52:14.339] future_lapply() ... DONE 1534s [00:52:14.340] plan(): Setting new future strategy stack: 1534s [00:52:14.340] List of future strategies: 1534s [00:52:14.340] 1. sequential: 1534s [00:52:14.340] - args: function (..., envir = parent.frame()) 1534s [00:52:14.340] - tweaked: FALSE 1534s [00:52:14.340] - call: plan(sequential) 1534s [00:52:14.340] plan(): nbrOfWorkers() = 1 1534s *** strategy = ‘multicore’ ... done 1534s *** strategy = ‘multisession’ ... 1534s [00:52:14.341] plan(): Setting new future strategy stack: 1534s [00:52:14.341] List of future strategies: 1534s [00:52:14.341] 1. multisession: 1534s [00:52:14.341] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1534s [00:52:14.341] - tweaked: FALSE 1534s [00:52:14.341] - call: plan(strategy) 1534s [00:52:14.342] plan(): plan_init() of ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ ... 1534s [00:52:14.342] multisession: 1534s [00:52:14.342] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1534s [00:52:14.342] - tweaked: FALSE 1534s [00:52:14.342] - call: plan(strategy) 1534s [00:52:14.346] getGlobalsAndPackages() ... 1534s [00:52:14.346] Not searching for globals 1534s [00:52:14.346] - globals: [0] 1534s [00:52:14.346] getGlobalsAndPackages() ... DONE 1534s [00:52:14.347] Packages needed by the future expression (n = 0): 1534s [00:52:14.347] Packages needed by future strategies (n = 0): 1534s [00:52:14.347] { 1534s [00:52:14.347] { 1534s [00:52:14.347] { 1534s [00:52:14.347] ...future.startTime <- base::Sys.time() 1534s [00:52:14.347] { 1534s [00:52:14.347] { 1534s [00:52:14.347] { 1534s [00:52:14.347] base::local({ 1534s [00:52:14.347] has_future <- base::requireNamespace("future", 1534s [00:52:14.347] quietly = TRUE) 1534s [00:52:14.347] if (has_future) { 1534s [00:52:14.347] ns <- base::getNamespace("future") 1534s [00:52:14.347] version <- ns[[".package"]][["version"]] 1534s [00:52:14.347] if (is.null(version)) 1534s [00:52:14.347] version <- utils::packageVersion("future") 1534s [00:52:14.347] } 1534s [00:52:14.347] else { 1534s [00:52:14.347] version <- NULL 1534s [00:52:14.347] } 1534s [00:52:14.347] if (!has_future || version < "1.8.0") { 1534s [00:52:14.347] info <- base::c(r_version = base::gsub("R version ", 1534s [00:52:14.347] "", base::R.version$version.string), 1534s [00:52:14.347] platform = base::sprintf("%s (%s-bit)", 1534s [00:52:14.347] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1534s [00:52:14.347] os = base::paste(base::Sys.info()[base::c("sysname", 1534s [00:52:14.347] "release", "version")], collapse = " "), 1534s [00:52:14.347] hostname = base::Sys.info()[["nodename"]]) 1534s [00:52:14.347] info <- base::sprintf("%s: %s", base::names(info), 1534s [00:52:14.347] info) 1534s [00:52:14.347] info <- base::paste(info, collapse = "; ") 1534s [00:52:14.347] if (!has_future) { 1534s [00:52:14.347] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1534s [00:52:14.347] info) 1534s [00:52:14.347] } 1534s [00:52:14.347] else { 1534s [00:52:14.347] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1534s [00:52:14.347] info, version) 1534s [00:52:14.347] } 1534s [00:52:14.347] base::stop(msg) 1534s [00:52:14.347] } 1534s [00:52:14.347] }) 1534s [00:52:14.347] } 1534s [00:52:14.347] options(future.plan = NULL) 1534s [00:52:14.347] Sys.unsetenv("R_FUTURE_PLAN") 1534s [00:52:14.347] future::plan("default", .cleanup = FALSE, .init = FALSE) 1534s [00:52:14.347] } 1534s [00:52:14.347] ...future.workdir <- getwd() 1534s [00:52:14.347] } 1534s [00:52:14.347] ...future.oldOptions <- base::as.list(base::.Options) 1534s [00:52:14.347] ...future.oldEnvVars <- base::Sys.getenv() 1534s [00:52:14.347] } 1534s [00:52:14.347] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1534s [00:52:14.347] future.globals.maxSize = NULL, future.globals.method = NULL, 1534s [00:52:14.347] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1534s [00:52:14.347] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1534s [00:52:14.347] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1534s [00:52:14.347] future.stdout.windows.reencode = NULL, width = 80L) 1534s [00:52:14.347] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1534s [00:52:14.347] base::names(...future.oldOptions)) 1534s [00:52:14.347] } 1534s [00:52:14.347] if (FALSE) { 1534s [00:52:14.347] } 1534s [00:52:14.347] else { 1534s [00:52:14.347] if (TRUE) { 1534s [00:52:14.347] ...future.stdout <- base::rawConnection(base::raw(0L), 1534s [00:52:14.347] open = "w") 1534s [00:52:14.347] } 1534s [00:52:14.347] else { 1534s [00:52:14.347] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1534s [00:52:14.347] windows = "NUL", "/dev/null"), open = "w") 1534s [00:52:14.347] } 1534s [00:52:14.347] base::sink(...future.stdout, type = "output", split = FALSE) 1534s [00:52:14.347] base::on.exit(if (!base::is.null(...future.stdout)) { 1534s [00:52:14.347] base::sink(type = "output", split = FALSE) 1534s [00:52:14.347] base::close(...future.stdout) 1534s [00:52:14.347] }, add = TRUE) 1534s [00:52:14.347] } 1534s [00:52:14.347] ...future.frame <- base::sys.nframe() 1534s [00:52:14.347] ...future.conditions <- base::list() 1534s [00:52:14.347] ...future.rng <- base::globalenv()$.Random.seed 1534s [00:52:14.347] if (FALSE) { 1534s [00:52:14.347] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1534s [00:52:14.347] "...future.value", "...future.globalenv.names", ".Random.seed") 1534s [00:52:14.347] } 1534s [00:52:14.347] ...future.result <- base::tryCatch({ 1534s [00:52:14.347] base::withCallingHandlers({ 1534s [00:52:14.347] ...future.value <- base::withVisible(base::local(NA)) 1534s [00:52:14.347] future::FutureResult(value = ...future.value$value, 1534s [00:52:14.347] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1534s [00:52:14.347] ...future.rng), globalenv = if (FALSE) 1534s [00:52:14.347] list(added = base::setdiff(base::names(base::.GlobalEnv), 1534s [00:52:14.347] ...future.globalenv.names)) 1534s [00:52:14.347] else NULL, started = ...future.startTime, version = "1.8") 1534s [00:52:14.347] }, condition = base::local({ 1534s [00:52:14.347] c <- base::c 1534s [00:52:14.347] inherits <- base::inherits 1534s [00:52:14.347] invokeRestart <- base::invokeRestart 1534s [00:52:14.347] length <- base::length 1534s [00:52:14.347] list <- base::list 1534s [00:52:14.347] seq.int <- base::seq.int 1534s [00:52:14.347] signalCondition <- base::signalCondition 1534s [00:52:14.347] sys.calls <- base::sys.calls 1534s [00:52:14.347] `[[` <- base::`[[` 1534s [00:52:14.347] `+` <- base::`+` 1534s [00:52:14.347] `<<-` <- base::`<<-` 1534s [00:52:14.347] sysCalls <- function(calls = sys.calls(), from = 1L) { 1534s [00:52:14.347] calls[seq.int(from = from + 12L, to = length(calls) - 1534s [00:52:14.347] 3L)] 1534s [00:52:14.347] } 1534s [00:52:14.347] function(cond) { 1534s [00:52:14.347] is_error <- inherits(cond, "error") 1534s [00:52:14.347] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1534s [00:52:14.347] NULL) 1534s [00:52:14.347] if (is_error) { 1534s [00:52:14.347] sessionInformation <- function() { 1534s [00:52:14.347] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1534s [00:52:14.347] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1534s [00:52:14.347] search = base::search(), system = base::Sys.info()) 1534s [00:52:14.347] } 1534s [00:52:14.347] ...future.conditions[[length(...future.conditions) + 1534s [00:52:14.347] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1534s [00:52:14.347] cond$call), session = sessionInformation(), 1534s [00:52:14.347] timestamp = base::Sys.time(), signaled = 0L) 1534s [00:52:14.347] signalCondition(cond) 1534s [00:52:14.347] } 1534s [00:52:14.347] else if (!ignore && TRUE && inherits(cond, c("condition", 1534s [00:52:14.347] "immediateCondition"))) { 1534s [00:52:14.347] signal <- TRUE && inherits(cond, "immediateCondition") 1534s [00:52:14.347] ...future.conditions[[length(...future.conditions) + 1534s [00:52:14.347] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1534s [00:52:14.347] if (TRUE && !signal) { 1534s [00:52:14.347] muffleCondition <- function (cond, pattern = "^muffle") 1534s [00:52:14.347] { 1534s [00:52:14.347] inherits <- base::inherits 1534s [00:52:14.347] invokeRestart <- base::invokeRestart 1534s [00:52:14.347] is.null <- base::is.null 1534s [00:52:14.347] muffled <- FALSE 1534s [00:52:14.347] if (inherits(cond, "message")) { 1534s [00:52:14.347] muffled <- grepl(pattern, "muffleMessage") 1534s [00:52:14.347] if (muffled) 1534s [00:52:14.347] invokeRestart("muffleMessage") 1534s [00:52:14.347] } 1534s [00:52:14.347] else if (inherits(cond, "warning")) { 1534s [00:52:14.347] muffled <- grepl(pattern, "muffleWarning") 1534s [00:52:14.347] if (muffled) 1534s [00:52:14.347] invokeRestart("muffleWarning") 1534s [00:52:14.347] } 1534s [00:52:14.347] else if (inherits(cond, "condition")) { 1534s [00:52:14.347] if (!is.null(pattern)) { 1534s [00:52:14.347] computeRestarts <- base::computeRestarts 1534s [00:52:14.347] grepl <- base::grepl 1534s [00:52:14.347] restarts <- computeRestarts(cond) 1534s [00:52:14.347] for (restart in restarts) { 1534s [00:52:14.347] name <- restart$name 1534s [00:52:14.347] if (is.null(name)) 1534s [00:52:14.347] next 1534s [00:52:14.347] if (!grepl(pattern, name)) 1534s [00:52:14.347] next 1534s [00:52:14.347] invokeRestart(restart) 1534s [00:52:14.347] muffled <- TRUE 1534s [00:52:14.347] break 1534s [00:52:14.347] } 1534s [00:52:14.347] } 1534s [00:52:14.347] } 1534s [00:52:14.347] invisible(muffled) 1534s [00:52:14.347] } 1534s [00:52:14.347] muffleCondition(cond, pattern = "^muffle") 1534s [00:52:14.347] } 1534s [00:52:14.347] } 1534s [00:52:14.347] else { 1534s [00:52:14.347] if (TRUE) { 1534s [00:52:14.347] muffleCondition <- function (cond, pattern = "^muffle") 1534s [00:52:14.347] { 1534s [00:52:14.347] inherits <- base::inherits 1534s [00:52:14.347] invokeRestart <- base::invokeRestart 1534s [00:52:14.347] is.null <- base::is.null 1534s [00:52:14.347] muffled <- FALSE 1534s [00:52:14.347] if (inherits(cond, "message")) { 1534s [00:52:14.347] muffled <- grepl(pattern, "muffleMessage") 1534s [00:52:14.347] if (muffled) 1534s [00:52:14.347] invokeRestart("muffleMessage") 1534s [00:52:14.347] } 1534s [00:52:14.347] else if (inherits(cond, "warning")) { 1534s [00:52:14.347] muffled <- grepl(pattern, "muffleWarning") 1534s [00:52:14.347] if (muffled) 1534s [00:52:14.347] invokeRestart("muffleWarning") 1534s [00:52:14.347] } 1534s [00:52:14.347] else if (inherits(cond, "condition")) { 1534s [00:52:14.347] if (!is.null(pattern)) { 1534s [00:52:14.347] computeRestarts <- base::computeRestarts 1534s [00:52:14.347] grepl <- base::grepl 1534s [00:52:14.347] restarts <- computeRestarts(cond) 1534s [00:52:14.347] for (restart in restarts) { 1534s [00:52:14.347] name <- restart$name 1534s [00:52:14.347] if (is.null(name)) 1534s [00:52:14.347] next 1534s [00:52:14.347] if (!grepl(pattern, name)) 1534s [00:52:14.347] next 1534s [00:52:14.347] invokeRestart(restart) 1534s [00:52:14.347] muffled <- TRUE 1534s [00:52:14.347] break 1534s [00:52:14.347] } 1534s [00:52:14.347] } 1534s [00:52:14.347] } 1534s [00:52:14.347] invisible(muffled) 1534s [00:52:14.347] } 1534s [00:52:14.347] muffleCondition(cond, pattern = "^muffle") 1534s [00:52:14.347] } 1534s [00:52:14.347] } 1534s [00:52:14.347] } 1534s [00:52:14.347] })) 1534s [00:52:14.347] }, error = function(ex) { 1534s [00:52:14.347] base::structure(base::list(value = NULL, visible = NULL, 1534s [00:52:14.347] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1534s [00:52:14.347] ...future.rng), started = ...future.startTime, 1534s [00:52:14.347] finished = Sys.time(), session_uuid = NA_character_, 1534s [00:52:14.347] version = "1.8"), class = "FutureResult") 1534s [00:52:14.347] }, finally = { 1534s [00:52:14.347] if (!identical(...future.workdir, getwd())) 1534s [00:52:14.347] setwd(...future.workdir) 1534s [00:52:14.347] { 1534s [00:52:14.347] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1534s [00:52:14.347] ...future.oldOptions$nwarnings <- NULL 1534s [00:52:14.347] } 1534s [00:52:14.347] base::options(...future.oldOptions) 1534s [00:52:14.347] if (.Platform$OS.type == "windows") { 1534s [00:52:14.347] old_names <- names(...future.oldEnvVars) 1534s [00:52:14.347] envs <- base::Sys.getenv() 1534s [00:52:14.347] names <- names(envs) 1534s [00:52:14.347] common <- intersect(names, old_names) 1534s [00:52:14.347] added <- setdiff(names, old_names) 1534s [00:52:14.347] removed <- setdiff(old_names, names) 1534s [00:52:14.347] changed <- common[...future.oldEnvVars[common] != 1534s [00:52:14.347] envs[common]] 1534s [00:52:14.347] NAMES <- toupper(changed) 1534s [00:52:14.347] args <- list() 1534s [00:52:14.347] for (kk in seq_along(NAMES)) { 1534s [00:52:14.347] name <- changed[[kk]] 1534s [00:52:14.347] NAME <- NAMES[[kk]] 1534s [00:52:14.347] if (name != NAME && is.element(NAME, old_names)) 1534s [00:52:14.347] next 1534s [00:52:14.347] args[[name]] <- ...future.oldEnvVars[[name]] 1534s [00:52:14.347] } 1534s [00:52:14.347] NAMES <- toupper(added) 1534s [00:52:14.347] for (kk in seq_along(NAMES)) { 1534s [00:52:14.347] name <- added[[kk]] 1534s [00:52:14.347] NAME <- NAMES[[kk]] 1534s [00:52:14.347] if (name != NAME && is.element(NAME, old_names)) 1534s [00:52:14.347] next 1534s [00:52:14.347] args[[name]] <- "" 1534s [00:52:14.347] } 1534s [00:52:14.347] NAMES <- toupper(removed) 1534s [00:52:14.347] for (kk in seq_along(NAMES)) { 1534s [00:52:14.347] name <- removed[[kk]] 1534s [00:52:14.347] NAME <- NAMES[[kk]] 1534s [00:52:14.347] if (name != NAME && is.element(NAME, old_names)) 1534s [00:52:14.347] next 1534s [00:52:14.347] args[[name]] <- ...future.oldEnvVars[[name]] 1534s [00:52:14.347] } 1534s [00:52:14.347] if (length(args) > 0) 1534s [00:52:14.347] base::do.call(base::Sys.setenv, args = args) 1534s [00:52:14.347] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1534s [00:52:14.347] } 1534s [00:52:14.347] else { 1534s [00:52:14.347] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1534s [00:52:14.347] } 1534s [00:52:14.347] { 1534s [00:52:14.347] if (base::length(...future.futureOptionsAdded) > 1534s [00:52:14.347] 0L) { 1534s [00:52:14.347] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1534s [00:52:14.347] base::names(opts) <- ...future.futureOptionsAdded 1534s [00:52:14.347] base::options(opts) 1534s [00:52:14.347] } 1534s [00:52:14.347] { 1534s [00:52:14.347] { 1534s [00:52:14.347] NULL 1534s [00:52:14.347] RNGkind("Mersenne-Twister") 1534s [00:52:14.347] base::rm(list = ".Random.seed", envir = base::globalenv(), 1534s [00:52:14.347] inherits = FALSE) 1534s [00:52:14.347] } 1534s [00:52:14.347] options(future.plan = NULL) 1534s [00:52:14.347] if (is.na(NA_character_)) 1534s [00:52:14.347] Sys.unsetenv("R_FUTURE_PLAN") 1534s [00:52:14.347] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1534s [00:52:14.347] future::plan(list(function (..., workers = availableCores(), 1534s [00:52:14.347] lazy = FALSE, rscript_libs = .libPaths(), 1534s [00:52:14.347] envir = parent.frame()) 1534s [00:52:14.347] { 1534s [00:52:14.347] if (is.function(workers)) 1534s [00:52:14.347] workers <- workers() 1534s [00:52:14.347] workers <- structure(as.integer(workers), 1534s [00:52:14.347] class = class(workers)) 1534s [00:52:14.347] stop_if_not(length(workers) == 1, is.finite(workers), 1534s [00:52:14.347] workers >= 1) 1534s [00:52:14.347] if (workers == 1L && !inherits(workers, "AsIs")) { 1534s [00:52:14.347] return(sequential(..., lazy = TRUE, envir = envir)) 1534s [00:52:14.347] } 1534s [00:52:14.347] future <- MultisessionFuture(..., workers = workers, 1534s [00:52:14.347] lazy = lazy, rscript_libs = rscript_libs, 1534s [00:52:14.347] envir = envir) 1534s [00:52:14.347] if (!future$lazy) 1534s [00:52:14.347] future <- run(future) 1534s [00:52:14.347] invisible(future) 1534s [00:52:14.347] }), .cleanup = FALSE, .init = FALSE) 1534s [00:52:14.347] } 1534s [00:52:14.347] } 1534s [00:52:14.347] } 1534s [00:52:14.347] }) 1534s [00:52:14.347] if (TRUE) { 1534s [00:52:14.347] base::sink(type = "output", split = FALSE) 1534s [00:52:14.347] if (TRUE) { 1534s [00:52:14.347] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1534s [00:52:14.347] } 1534s [00:52:14.347] else { 1534s [00:52:14.347] ...future.result["stdout"] <- base::list(NULL) 1534s [00:52:14.347] } 1534s [00:52:14.347] base::close(...future.stdout) 1534s [00:52:14.347] ...future.stdout <- NULL 1534s [00:52:14.347] } 1534s [00:52:14.347] ...future.result$conditions <- ...future.conditions 1534s [00:52:14.347] ...future.result$finished <- base::Sys.time() 1534s [00:52:14.347] ...future.result 1534s [00:52:14.347] } 1534s [00:52:14.354] plan(): Setting new future strategy stack: 1534s [00:52:14.355] List of future strategies: 1534s [00:52:14.355] 1. sequential: 1534s [00:52:14.355] - args: function (..., envir = parent.frame()) 1534s [00:52:14.355] - tweaked: FALSE 1534s [00:52:14.355] - call: NULL 1534s [00:52:14.355] plan(): nbrOfWorkers() = 1 1534s [00:52:14.356] plan(): Setting new future strategy stack: 1534s [00:52:14.356] List of future strategies: 1534s [00:52:14.356] 1. multisession: 1534s [00:52:14.356] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1534s [00:52:14.356] - tweaked: FALSE 1534s [00:52:14.356] - call: plan(strategy) 1534s [00:52:14.361] plan(): nbrOfWorkers() = 1 1534s [00:52:14.362] SequentialFuture started (and completed) 1534s [00:52:14.362] plan(): plan_init() of ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ ... DONE 1534s [00:52:14.365] plan(): nbrOfWorkers() = 1 1534s [00:52:14.365] future_lapply() ... 1534s [00:52:14.368] Number of chunks: 1 1534s [00:52:14.368] getGlobalsAndPackagesXApply() ... 1534s [00:52:14.368] - future.globals: TRUE 1534s [00:52:14.369] getGlobalsAndPackages() ... 1534s [00:52:14.369] Searching for globals... 1534s [00:52:14.370] - globals found: [2] ‘FUN’, ‘UseMethod’ 1534s [00:52:14.371] Searching for globals ... DONE 1534s [00:52:14.371] Resolving globals: FALSE 1534s [00:52:14.371] The total size of the 1 globals is 1.21 KiB (1240 bytes) 1534s [00:52:14.372] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.21 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.21 KiB of class ‘function’) 1534s [00:52:14.372] - globals: [1] ‘FUN’ 1534s [00:52:14.372] 1534s [00:52:14.372] getGlobalsAndPackages() ... DONE 1534s [00:52:14.372] - globals found/used: [n=1] ‘FUN’ 1534s [00:52:14.373] - needed namespaces: [n=0] 1534s [00:52:14.373] Finding globals ... DONE 1534s [00:52:14.373] - use_args: TRUE 1534s [00:52:14.373] - Getting '...' globals ... 1534s [00:52:14.373] resolve() on list ... 1534s [00:52:14.373] recursive: 0 1534s [00:52:14.374] length: 1 1534s [00:52:14.374] elements: ‘...’ 1534s [00:52:14.374] length: 0 (resolved future 1) 1534s [00:52:14.374] resolve() on list ... DONE 1534s [00:52:14.374] - '...' content: [n=0] 1534s [00:52:14.374] List of 1 1534s [00:52:14.374] $ ...: list() 1534s [00:52:14.374] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1534s [00:52:14.374] - attr(*, "where")=List of 1 1534s [00:52:14.374] ..$ ...: 1534s [00:52:14.374] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1534s [00:52:14.374] - attr(*, "resolved")= logi TRUE 1534s [00:52:14.374] - attr(*, "total_size")= num NA 1534s [00:52:14.377] - Getting '...' globals ... DONE 1534s [00:52:14.378] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1534s [00:52:14.378] List of 2 1534s [00:52:14.378] $ ...future.FUN:function (x, ...) 1534s [00:52:14.378] $ ... : list() 1534s [00:52:14.378] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1534s [00:52:14.378] - attr(*, "where")=List of 2 1534s [00:52:14.378] ..$ ...future.FUN: 1534s [00:52:14.378] ..$ ... : 1534s [00:52:14.378] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1534s [00:52:14.378] - attr(*, "resolved")= logi FALSE 1534s [00:52:14.378] - attr(*, "total_size")= num 1240 1534s [00:52:14.381] Packages to be attached in all futures: [n=0] 1534s [00:52:14.381] getGlobalsAndPackagesXApply() ... DONE 1534s [00:52:14.382] Number of futures (= number of chunks): 1 1534s [00:52:14.382] Launching 1 futures (chunks) ... 1534s [00:52:14.382] Chunk #1 of 1 ... 1534s [00:52:14.382] - Finding globals in 'X' for chunk #1 ... 1534s [00:52:14.382] getGlobalsAndPackages() ... 1534s [00:52:14.382] Searching for globals... 1534s [00:52:14.383] 1534s [00:52:14.383] Searching for globals ... DONE 1534s [00:52:14.383] - globals: [0] 1534s [00:52:14.383] getGlobalsAndPackages() ... DONE 1534s [00:52:14.383] + additional globals found: [n=0] 1534s [00:52:14.383] + additional namespaces needed: [n=0] 1534s [00:52:14.383] - Finding globals in 'X' for chunk #1 ... DONE 1534s [00:52:14.384] - seeds: 1534s [00:52:14.384] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1534s [00:52:14.384] getGlobalsAndPackages() ... 1534s [00:52:14.384] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1534s [00:52:14.384] Resolving globals: FALSE 1534s [00:52:14.384] Tweak future expression to call with '...' arguments ... 1534s [00:52:14.385] { 1534s [00:52:14.385] do.call(function(...) { 1534s [00:52:14.385] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1534s [00:52:14.385] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1534s [00:52:14.385] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1534s [00:52:14.385] on.exit(options(oopts), add = TRUE) 1534s [00:52:14.385] } 1534s [00:52:14.385] { 1534s [00:52:14.385] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1534s [00:52:14.385] ...future.X_jj <- ...future.elements_ii[[jj]] 1534s [00:52:14.385] ...future.FUN(...future.X_jj, ...) 1534s [00:52:14.385] }) 1534s [00:52:14.385] } 1534s [00:52:14.385] }, args = future.call.arguments) 1534s [00:52:14.385] } 1534s [00:52:14.385] Tweak future expression to call with '...' arguments ... DONE 1534s [00:52:14.386] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1534s [00:52:14.386] 1534s [00:52:14.386] getGlobalsAndPackages() ... DONE 1534s [00:52:14.386] run() for ‘Future’ ... 1534s [00:52:14.387] - state: ‘created’ 1534s [00:52:14.387] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1534s [00:52:14.391] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1534s [00:52:14.391] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1534s [00:52:14.391] - Field: ‘label’ 1534s [00:52:14.391] - Field: ‘local’ 1534s [00:52:14.391] - Field: ‘owner’ 1534s [00:52:14.391] - Field: ‘envir’ 1534s [00:52:14.392] - Field: ‘packages’ 1534s [00:52:14.392] - Field: ‘gc’ 1534s [00:52:14.392] - Field: ‘conditions’ 1534s [00:52:14.392] - Field: ‘expr’ 1534s [00:52:14.393] - Field: ‘uuid’ 1534s [00:52:14.393] - Field: ‘seed’ 1534s [00:52:14.393] - Field: ‘version’ 1534s [00:52:14.393] - Field: ‘result’ 1534s [00:52:14.393] - Field: ‘asynchronous’ 1534s [00:52:14.393] - Field: ‘calls’ 1534s [00:52:14.393] - Field: ‘globals’ 1534s [00:52:14.394] - Field: ‘stdout’ 1534s [00:52:14.394] - Field: ‘earlySignal’ 1534s [00:52:14.394] - Field: ‘lazy’ 1534s [00:52:14.394] - Field: ‘state’ 1534s [00:52:14.395] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1534s [00:52:14.395] - Launch lazy future ... 1534s [00:52:14.395] Packages needed by the future expression (n = 0): 1534s [00:52:14.395] Packages needed by future strategies (n = 0): 1534s [00:52:14.398] { 1534s [00:52:14.398] { 1534s [00:52:14.398] { 1534s [00:52:14.398] ...future.startTime <- base::Sys.time() 1534s [00:52:14.398] { 1534s [00:52:14.398] { 1534s [00:52:14.398] { 1534s [00:52:14.398] base::local({ 1534s [00:52:14.398] has_future <- base::requireNamespace("future", 1534s [00:52:14.398] quietly = TRUE) 1534s [00:52:14.398] if (has_future) { 1534s [00:52:14.398] ns <- base::getNamespace("future") 1534s [00:52:14.398] version <- ns[[".package"]][["version"]] 1534s [00:52:14.398] if (is.null(version)) 1534s [00:52:14.398] version <- utils::packageVersion("future") 1534s [00:52:14.398] } 1534s [00:52:14.398] else { 1534s [00:52:14.398] version <- NULL 1534s [00:52:14.398] } 1534s [00:52:14.398] if (!has_future || version < "1.8.0") { 1534s [00:52:14.398] info <- base::c(r_version = base::gsub("R version ", 1534s [00:52:14.398] "", base::R.version$version.string), 1534s [00:52:14.398] platform = base::sprintf("%s (%s-bit)", 1534s [00:52:14.398] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1534s [00:52:14.398] os = base::paste(base::Sys.info()[base::c("sysname", 1534s [00:52:14.398] "release", "version")], collapse = " "), 1534s [00:52:14.398] hostname = base::Sys.info()[["nodename"]]) 1534s [00:52:14.398] info <- base::sprintf("%s: %s", base::names(info), 1534s [00:52:14.398] info) 1534s [00:52:14.398] info <- base::paste(info, collapse = "; ") 1534s [00:52:14.398] if (!has_future) { 1534s [00:52:14.398] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1534s [00:52:14.398] info) 1534s [00:52:14.398] } 1534s [00:52:14.398] else { 1534s [00:52:14.398] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1534s [00:52:14.398] info, version) 1534s [00:52:14.398] } 1534s [00:52:14.398] base::stop(msg) 1534s [00:52:14.398] } 1534s [00:52:14.398] }) 1534s [00:52:14.398] } 1534s [00:52:14.398] options(future.plan = NULL) 1534s [00:52:14.398] Sys.unsetenv("R_FUTURE_PLAN") 1534s [00:52:14.398] future::plan("default", .cleanup = FALSE, .init = FALSE) 1534s [00:52:14.398] } 1534s [00:52:14.398] ...future.workdir <- getwd() 1534s [00:52:14.398] } 1534s [00:52:14.398] ...future.oldOptions <- base::as.list(base::.Options) 1534s [00:52:14.398] ...future.oldEnvVars <- base::Sys.getenv() 1534s [00:52:14.398] } 1534s [00:52:14.398] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1534s [00:52:14.398] future.globals.maxSize = NULL, future.globals.method = NULL, 1534s [00:52:14.398] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1534s [00:52:14.398] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1534s [00:52:14.398] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1534s [00:52:14.398] future.stdout.windows.reencode = NULL, width = 80L) 1534s [00:52:14.398] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1534s [00:52:14.398] base::names(...future.oldOptions)) 1534s [00:52:14.398] } 1534s [00:52:14.398] if (FALSE) { 1534s [00:52:14.398] } 1534s [00:52:14.398] else { 1534s [00:52:14.398] if (TRUE) { 1534s [00:52:14.398] ...future.stdout <- base::rawConnection(base::raw(0L), 1534s [00:52:14.398] open = "w") 1534s [00:52:14.398] } 1534s [00:52:14.398] else { 1534s [00:52:14.398] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1534s [00:52:14.398] windows = "NUL", "/dev/null"), open = "w") 1534s [00:52:14.398] } 1534s [00:52:14.398] base::sink(...future.stdout, type = "output", split = FALSE) 1534s [00:52:14.398] base::on.exit(if (!base::is.null(...future.stdout)) { 1534s [00:52:14.398] base::sink(type = "output", split = FALSE) 1534s [00:52:14.398] base::close(...future.stdout) 1534s [00:52:14.398] }, add = TRUE) 1534s [00:52:14.398] } 1534s [00:52:14.398] ...future.frame <- base::sys.nframe() 1534s [00:52:14.398] ...future.conditions <- base::list() 1534s [00:52:14.398] ...future.rng <- base::globalenv()$.Random.seed 1534s [00:52:14.398] if (FALSE) { 1534s [00:52:14.398] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1534s [00:52:14.398] "...future.value", "...future.globalenv.names", ".Random.seed") 1534s [00:52:14.398] } 1534s [00:52:14.398] ...future.result <- base::tryCatch({ 1534s [00:52:14.398] base::withCallingHandlers({ 1534s [00:52:14.398] ...future.value <- base::withVisible(base::local({ 1534s [00:52:14.398] do.call(function(...) { 1534s [00:52:14.398] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1534s [00:52:14.398] if (!identical(...future.globals.maxSize.org, 1534s [00:52:14.398] ...future.globals.maxSize)) { 1534s [00:52:14.398] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1534s [00:52:14.398] on.exit(options(oopts), add = TRUE) 1534s [00:52:14.398] } 1534s [00:52:14.398] { 1534s [00:52:14.398] lapply(seq_along(...future.elements_ii), 1534s [00:52:14.398] FUN = function(jj) { 1534s [00:52:14.398] ...future.X_jj <- ...future.elements_ii[[jj]] 1534s [00:52:14.398] ...future.FUN(...future.X_jj, ...) 1534s [00:52:14.398] }) 1534s [00:52:14.398] } 1534s [00:52:14.398] }, args = future.call.arguments) 1534s [00:52:14.398] })) 1534s [00:52:14.398] future::FutureResult(value = ...future.value$value, 1534s [00:52:14.398] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1534s [00:52:14.398] ...future.rng), globalenv = if (FALSE) 1534s [00:52:14.398] list(added = base::setdiff(base::names(base::.GlobalEnv), 1534s [00:52:14.398] ...future.globalenv.names)) 1534s [00:52:14.398] else NULL, started = ...future.startTime, version = "1.8") 1534s [00:52:14.398] }, condition = base::local({ 1534s [00:52:14.398] c <- base::c 1534s [00:52:14.398] inherits <- base::inherits 1534s [00:52:14.398] invokeRestart <- base::invokeRestart 1534s [00:52:14.398] length <- base::length 1534s [00:52:14.398] list <- base::list 1534s [00:52:14.398] seq.int <- base::seq.int 1534s [00:52:14.398] signalCondition <- base::signalCondition 1534s [00:52:14.398] sys.calls <- base::sys.calls 1534s [00:52:14.398] `[[` <- base::`[[` 1534s [00:52:14.398] `+` <- base::`+` 1534s [00:52:14.398] `<<-` <- base::`<<-` 1534s [00:52:14.398] sysCalls <- function(calls = sys.calls(), from = 1L) { 1534s [00:52:14.398] calls[seq.int(from = from + 12L, to = length(calls) - 1534s [00:52:14.398] 3L)] 1534s [00:52:14.398] } 1534s [00:52:14.398] function(cond) { 1534s [00:52:14.398] is_error <- inherits(cond, "error") 1534s [00:52:14.398] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1534s [00:52:14.398] NULL) 1534s [00:52:14.398] if (is_error) { 1534s [00:52:14.398] sessionInformation <- function() { 1534s [00:52:14.398] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1534s [00:52:14.398] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1534s [00:52:14.398] search = base::search(), system = base::Sys.info()) 1534s [00:52:14.398] } 1534s [00:52:14.398] ...future.conditions[[length(...future.conditions) + 1534s [00:52:14.398] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1534s [00:52:14.398] cond$call), session = sessionInformation(), 1534s [00:52:14.398] timestamp = base::Sys.time(), signaled = 0L) 1534s [00:52:14.398] signalCondition(cond) 1534s [00:52:14.398] } 1534s [00:52:14.398] else if (!ignore && TRUE && inherits(cond, c("condition", 1534s [00:52:14.398] "immediateCondition"))) { 1534s [00:52:14.398] signal <- TRUE && inherits(cond, "immediateCondition") 1534s [00:52:14.398] ...future.conditions[[length(...future.conditions) + 1534s [00:52:14.398] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1534s [00:52:14.398] if (TRUE && !signal) { 1534s [00:52:14.398] muffleCondition <- function (cond, pattern = "^muffle") 1534s [00:52:14.398] { 1534s [00:52:14.398] inherits <- base::inherits 1534s [00:52:14.398] invokeRestart <- base::invokeRestart 1534s [00:52:14.398] is.null <- base::is.null 1534s [00:52:14.398] muffled <- FALSE 1534s [00:52:14.398] if (inherits(cond, "message")) { 1534s [00:52:14.398] muffled <- grepl(pattern, "muffleMessage") 1534s [00:52:14.398] if (muffled) 1534s [00:52:14.398] invokeRestart("muffleMessage") 1534s [00:52:14.398] } 1534s [00:52:14.398] else if (inherits(cond, "warning")) { 1534s [00:52:14.398] muffled <- grepl(pattern, "muffleWarning") 1534s [00:52:14.398] if (muffled) 1534s [00:52:14.398] invokeRestart("muffleWarning") 1534s [00:52:14.398] } 1534s [00:52:14.398] else if (inherits(cond, "condition")) { 1534s [00:52:14.398] if (!is.null(pattern)) { 1534s [00:52:14.398] computeRestarts <- base::computeRestarts 1534s [00:52:14.398] grepl <- base::grepl 1534s [00:52:14.398] restarts <- computeRestarts(cond) 1534s [00:52:14.398] for (restart in restarts) { 1534s [00:52:14.398] name <- restart$name 1534s [00:52:14.398] if (is.null(name)) 1534s [00:52:14.398] next 1534s [00:52:14.398] if (!grepl(pattern, name)) 1534s [00:52:14.398] next 1534s [00:52:14.398] invokeRestart(restart) 1534s [00:52:14.398] muffled <- TRUE 1534s [00:52:14.398] break 1534s [00:52:14.398] } 1534s [00:52:14.398] } 1534s [00:52:14.398] } 1534s [00:52:14.398] invisible(muffled) 1534s [00:52:14.398] } 1534s [00:52:14.398] muffleCondition(cond, pattern = "^muffle") 1534s [00:52:14.398] } 1534s [00:52:14.398] } 1534s [00:52:14.398] else { 1534s [00:52:14.398] if (TRUE) { 1534s [00:52:14.398] muffleCondition <- function (cond, pattern = "^muffle") 1534s [00:52:14.398] { 1534s [00:52:14.398] inherits <- base::inherits 1534s [00:52:14.398] invokeRestart <- base::invokeRestart 1534s [00:52:14.398] is.null <- base::is.null 1534s [00:52:14.398] muffled <- FALSE 1534s [00:52:14.398] if (inherits(cond, "message")) { 1534s [00:52:14.398] muffled <- grepl(pattern, "muffleMessage") 1534s [00:52:14.398] if (muffled) 1534s [00:52:14.398] invokeRestart("muffleMessage") 1534s [00:52:14.398] } 1534s [00:52:14.398] else if (inherits(cond, "warning")) { 1534s [00:52:14.398] muffled <- grepl(pattern, "muffleWarning") 1534s [00:52:14.398] if (muffled) 1534s [00:52:14.398] invokeRestart("muffleWarning") 1534s [00:52:14.398] } 1534s [00:52:14.398] else if (inherits(cond, "condition")) { 1534s [00:52:14.398] if (!is.null(pattern)) { 1534s [00:52:14.398] computeRestarts <- base::computeRestarts 1534s [00:52:14.398] grepl <- base::grepl 1534s [00:52:14.398] restarts <- computeRestarts(cond) 1534s [00:52:14.398] for (restart in restarts) { 1534s [00:52:14.398] name <- restart$name 1534s [00:52:14.398] if (is.null(name)) 1534s [00:52:14.398] next 1534s [00:52:14.398] if (!grepl(pattern, name)) 1534s [00:52:14.398] next 1534s [00:52:14.398] invokeRestart(restart) 1534s [00:52:14.398] muffled <- TRUE 1534s [00:52:14.398] break 1534s [00:52:14.398] } 1534s [00:52:14.398] } 1534s [00:52:14.398] } 1534s [00:52:14.398] invisible(muffled) 1534s [00:52:14.398] } 1534s [00:52:14.398] muffleCondition(cond, pattern = "^muffle") 1534s [00:52:14.398] } 1534s [00:52:14.398] } 1534s [00:52:14.398] } 1534s [00:52:14.398] })) 1534s [00:52:14.398] }, error = function(ex) { 1534s [00:52:14.398] base::structure(base::list(value = NULL, visible = NULL, 1534s [00:52:14.398] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1534s [00:52:14.398] ...future.rng), started = ...future.startTime, 1534s [00:52:14.398] finished = Sys.time(), session_uuid = NA_character_, 1534s [00:52:14.398] version = "1.8"), class = "FutureResult") 1534s [00:52:14.398] }, finally = { 1534s [00:52:14.398] if (!identical(...future.workdir, getwd())) 1534s [00:52:14.398] setwd(...future.workdir) 1534s [00:52:14.398] { 1534s [00:52:14.398] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1534s [00:52:14.398] ...future.oldOptions$nwarnings <- NULL 1534s [00:52:14.398] } 1534s [00:52:14.398] base::options(...future.oldOptions) 1534s [00:52:14.398] if (.Platform$OS.type == "windows") { 1534s [00:52:14.398] old_names <- names(...future.oldEnvVars) 1534s [00:52:14.398] envs <- base::Sys.getenv() 1534s [00:52:14.398] names <- names(envs) 1534s [00:52:14.398] common <- intersect(names, old_names) 1534s [00:52:14.398] added <- setdiff(names, old_names) 1534s [00:52:14.398] removed <- setdiff(old_names, names) 1534s [00:52:14.398] changed <- common[...future.oldEnvVars[common] != 1534s [00:52:14.398] envs[common]] 1534s [00:52:14.398] NAMES <- toupper(changed) 1534s [00:52:14.398] args <- list() 1534s [00:52:14.398] for (kk in seq_along(NAMES)) { 1534s [00:52:14.398] name <- changed[[kk]] 1534s [00:52:14.398] NAME <- NAMES[[kk]] 1534s [00:52:14.398] if (name != NAME && is.element(NAME, old_names)) 1534s [00:52:14.398] next 1534s [00:52:14.398] args[[name]] <- ...future.oldEnvVars[[name]] 1534s [00:52:14.398] } 1534s [00:52:14.398] NAMES <- toupper(added) 1534s [00:52:14.398] for (kk in seq_along(NAMES)) { 1534s [00:52:14.398] name <- added[[kk]] 1534s [00:52:14.398] NAME <- NAMES[[kk]] 1534s [00:52:14.398] if (name != NAME && is.element(NAME, old_names)) 1534s [00:52:14.398] next 1534s [00:52:14.398] args[[name]] <- "" 1534s [00:52:14.398] } 1534s [00:52:14.398] NAMES <- toupper(removed) 1534s [00:52:14.398] for (kk in seq_along(NAMES)) { 1534s [00:52:14.398] name <- removed[[kk]] 1534s [00:52:14.398] NAME <- NAMES[[kk]] 1534s [00:52:14.398] if (name != NAME && is.element(NAME, old_names)) 1534s [00:52:14.398] next 1534s [00:52:14.398] args[[name]] <- ...future.oldEnvVars[[name]] 1534s [00:52:14.398] } 1534s [00:52:14.398] if (length(args) > 0) 1534s [00:52:14.398] base::do.call(base::Sys.setenv, args = args) 1534s [00:52:14.398] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1534s [00:52:14.398] } 1534s [00:52:14.398] else { 1534s [00:52:14.398] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1534s [00:52:14.398] } 1534s [00:52:14.398] { 1534s [00:52:14.398] if (base::length(...future.futureOptionsAdded) > 1534s [00:52:14.398] 0L) { 1534s [00:52:14.398] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1534s [00:52:14.398] base::names(opts) <- ...future.futureOptionsAdded 1534s [00:52:14.398] base::options(opts) 1534s [00:52:14.398] } 1534s [00:52:14.398] { 1534s [00:52:14.398] { 1534s [00:52:14.398] NULL 1534s [00:52:14.398] RNGkind("Mersenne-Twister") 1534s [00:52:14.398] base::rm(list = ".Random.seed", envir = base::globalenv(), 1534s [00:52:14.398] inherits = FALSE) 1534s [00:52:14.398] } 1534s [00:52:14.398] options(future.plan = NULL) 1534s [00:52:14.398] if (is.na(NA_character_)) 1534s [00:52:14.398] Sys.unsetenv("R_FUTURE_PLAN") 1534s [00:52:14.398] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1534s [00:52:14.398] future::plan(list(function (..., workers = availableCores(), 1534s [00:52:14.398] lazy = FALSE, rscript_libs = .libPaths(), 1534s [00:52:14.398] envir = parent.frame()) 1534s [00:52:14.398] { 1534s [00:52:14.398] if (is.function(workers)) 1534s [00:52:14.398] workers <- workers() 1534s [00:52:14.398] workers <- structure(as.integer(workers), 1534s [00:52:14.398] class = class(workers)) 1534s [00:52:14.398] stop_if_not(length(workers) == 1, is.finite(workers), 1534s [00:52:14.398] workers >= 1) 1534s [00:52:14.398] if (workers == 1L && !inherits(workers, "AsIs")) { 1534s [00:52:14.398] return(sequential(..., lazy = TRUE, envir = envir)) 1534s [00:52:14.398] } 1534s [00:52:14.398] future <- MultisessionFuture(..., workers = workers, 1534s [00:52:14.398] lazy = lazy, rscript_libs = rscript_libs, 1534s [00:52:14.398] envir = envir) 1534s [00:52:14.398] if (!future$lazy) 1534s [00:52:14.398] future <- run(future) 1534s [00:52:14.398] invisible(future) 1534s [00:52:14.398] }), .cleanup = FALSE, .init = FALSE) 1534s [00:52:14.398] } 1534s [00:52:14.398] } 1534s [00:52:14.398] } 1534s [00:52:14.398] }) 1534s [00:52:14.398] if (TRUE) { 1534s [00:52:14.398] base::sink(type = "output", split = FALSE) 1534s [00:52:14.398] if (TRUE) { 1534s [00:52:14.398] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1534s [00:52:14.398] } 1534s [00:52:14.398] else { 1534s [00:52:14.398] ...future.result["stdout"] <- base::list(NULL) 1534s [00:52:14.398] } 1534s [00:52:14.398] base::close(...future.stdout) 1534s [00:52:14.398] ...future.stdout <- NULL 1534s [00:52:14.398] } 1534s [00:52:14.398] ...future.result$conditions <- ...future.conditions 1534s [00:52:14.398] ...future.result$finished <- base::Sys.time() 1534s [00:52:14.398] ...future.result 1534s [00:52:14.398] } 1534s [00:52:14.402] assign_globals() ... 1534s [00:52:14.402] List of 5 1534s [00:52:14.402] $ ...future.FUN :function (x, ...) 1534s [00:52:14.402] $ future.call.arguments : list() 1534s [00:52:14.402] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1534s [00:52:14.402] $ ...future.elements_ii :List of 3 1534s [00:52:14.402] ..$ : logi [1:4] TRUE FALSE FALSE TRUE 1534s [00:52:14.402] ..$ : num [1:7] 0.0498 0.1353 0.3679 1 2.7183 ... 1534s [00:52:14.402] ..$ : int [1:10] 1 2 3 4 5 6 7 8 9 10 1534s [00:52:14.402] $ ...future.seeds_ii : NULL 1534s [00:52:14.402] $ ...future.globals.maxSize: NULL 1534s [00:52:14.402] - attr(*, "where")=List of 5 1534s [00:52:14.402] ..$ ...future.FUN : 1534s [00:52:14.402] ..$ future.call.arguments : 1534s [00:52:14.402] ..$ ...future.elements_ii : 1534s [00:52:14.402] ..$ ...future.seeds_ii : 1534s [00:52:14.402] ..$ ...future.globals.maxSize: 1534s [00:52:14.402] - attr(*, "resolved")= logi FALSE 1534s [00:52:14.402] - attr(*, "total_size")= num 1240 1534s [00:52:14.402] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1534s [00:52:14.402] - attr(*, "already-done")= logi TRUE 1534s [00:52:14.410] - copied ‘...future.FUN’ to environment 1534s [00:52:14.410] - copied ‘future.call.arguments’ to environment 1534s [00:52:14.410] - copied ‘...future.elements_ii’ to environment 1534s [00:52:14.410] - copied ‘...future.seeds_ii’ to environment 1534s [00:52:14.411] - copied ‘...future.globals.maxSize’ to environment 1534s [00:52:14.411] assign_globals() ... done 1534s [00:52:14.411] plan(): Setting new future strategy stack: 1534s [00:52:14.411] List of future strategies: 1534s [00:52:14.411] 1. sequential: 1534s [00:52:14.411] - args: function (..., envir = parent.frame()) 1534s [00:52:14.411] - tweaked: FALSE 1534s [00:52:14.411] - call: NULL 1534s [00:52:14.412] plan(): nbrOfWorkers() = 1 1534s [00:52:14.413] plan(): Setting new future strategy stack: 1534s [00:52:14.413] List of future strategies: 1534s [00:52:14.413] 1. multisession: 1534s [00:52:14.413] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1534s [00:52:14.413] - tweaked: FALSE 1534s [00:52:14.413] - call: plan(strategy) 1534s [00:52:14.416] plan(): nbrOfWorkers() = 1 1534s [00:52:14.417] SequentialFuture started (and completed) 1534s [00:52:14.417] - Launch lazy future ... done 1534s [00:52:14.417] run() for ‘SequentialFuture’ ... done 1534s [00:52:14.417] Created future: 1534s [00:52:14.417] SequentialFuture: 1534s [00:52:14.417] Label: ‘future_eapply-1’ 1534s [00:52:14.417] Expression: 1534s [00:52:14.417] { 1534s [00:52:14.417] do.call(function(...) { 1534s [00:52:14.417] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1534s [00:52:14.417] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1534s [00:52:14.417] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1534s [00:52:14.417] on.exit(options(oopts), add = TRUE) 1534s [00:52:14.417] } 1534s [00:52:14.417] { 1534s [00:52:14.417] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1534s [00:52:14.417] ...future.X_jj <- ...future.elements_ii[[jj]] 1534s [00:52:14.417] ...future.FUN(...future.X_jj, ...) 1534s [00:52:14.417] }) 1534s [00:52:14.417] } 1534s [00:52:14.417] }, args = future.call.arguments) 1534s [00:52:14.417] } 1534s [00:52:14.417] Lazy evaluation: FALSE 1534s [00:52:14.417] Asynchronous evaluation: FALSE 1534s [00:52:14.417] Local evaluation: TRUE 1534s [00:52:14.417] Environment: R_GlobalEnv 1534s [00:52:14.417] Capture standard output: TRUE 1534s [00:52:14.417] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1534s [00:52:14.417] Globals: 5 objects totaling 1.48 KiB (function ‘...future.FUN’ of 1.21 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 272 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1534s [00:52:14.417] Packages: 1534s [00:52:14.417] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1534s [00:52:14.417] Resolved: TRUE 1534s [00:52:14.417] Value: 168 bytes of class ‘list’ 1534s [00:52:14.417] Early signaling: FALSE 1534s [00:52:14.417] Owner process: a67f97e2-ffea-5be0-b95e-c580db557e5a 1534s [00:52:14.417] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1534s [00:52:14.419] Chunk #1 of 1 ... DONE 1534s [00:52:14.419] Launching 1 futures (chunks) ... DONE 1534s [00:52:14.419] Resolving 1 futures (chunks) ... 1534s [00:52:14.420] resolve() on list ... 1534s [00:52:14.420] recursive: 0 1534s [00:52:14.420] length: 1 1534s [00:52:14.420] 1534s [00:52:14.420] resolved() for ‘SequentialFuture’ ... 1534s [00:52:14.420] - state: ‘finished’ 1534s [00:52:14.421] - run: TRUE 1534s [00:52:14.421] - result: ‘FutureResult’ 1534s [00:52:14.421] resolved() for ‘SequentialFuture’ ... done 1534s [00:52:14.421] Future #1 1534s [00:52:14.421] signalConditionsASAP(SequentialFuture, pos=1) ... 1534s [00:52:14.421] - nx: 1 1534s [00:52:14.421] - relay: TRUE 1534s [00:52:14.422] - stdout: TRUE 1534s [00:52:14.422] - signal: TRUE 1534s [00:52:14.422] - resignal: FALSE 1534s [00:52:14.422] - force: TRUE 1534s [00:52:14.422] - relayed: [n=1] FALSE 1534s [00:52:14.423] - queued futures: [n=1] FALSE 1534s [00:52:14.423] - until=1 1534s [00:52:14.423] - relaying element #1 1534s [00:52:14.423] - relayed: [n=1] TRUE 1534s [00:52:14.423] - queued futures: [n=1] TRUE 1534s [00:52:14.423] signalConditionsASAP(SequentialFuture, pos=1) ... done 1534s [00:52:14.424] length: 0 (resolved future 1) 1534s [00:52:14.424] Relaying remaining futures 1534s [00:52:14.424] signalConditionsASAP(NULL, pos=0) ... 1534s [00:52:14.424] - nx: 1 1534s [00:52:14.424] - relay: TRUE 1534s [00:52:14.424] - stdout: TRUE 1534s [00:52:14.424] - signal: TRUE 1534s [00:52:14.425] - resignal: FALSE 1534s [00:52:14.425] - force: TRUE 1534s [00:52:14.425] - relayed: [n=1] TRUE 1534s [00:52:14.425] - queued futures: [n=1] TRUE 1534s - flush all 1534s [00:52:14.425] - relayed: [n=1] TRUE 1534s [00:52:14.425] - queued futures: [n=1] TRUE 1534s [00:52:14.425] signalConditionsASAP(NULL, pos=0) ... done 1534s [00:52:14.426] resolve() on list ... DONE 1534s [00:52:14.426] - Number of value chunks collected: 1 1534s [00:52:14.426] Resolving 1 futures (chunks) ... DONE 1534s [00:52:14.426] Reducing values from 1 chunks ... 1534s [00:52:14.426] - Number of values collected after concatenation: 3 1534s [00:52:14.426] - Number of values expected: 3 1534s [00:52:14.426] Reducing values from 1 chunks ... DONE 1534s [00:52:14.427] future_lapply() ... DONE 1534s [00:52:14.427] future_lapply() ... 1534s [00:52:14.431] Number of chunks: 1 1534s [00:52:14.431] getGlobalsAndPackagesXApply() ... 1534s [00:52:14.431] - future.globals: TRUE 1534s [00:52:14.431] getGlobalsAndPackages() ... 1534s [00:52:14.431] Searching for globals... 1534s [00:52:14.433] - globals found: [2] ‘FUN’, ‘UseMethod’ 1534s [00:52:14.433] Searching for globals ... DONE 1534s [00:52:14.433] Resolving globals: FALSE 1534s [00:52:14.433] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1534s [00:52:14.434] The total size of the 1 globals exported for future expression (‘FUN(probs = c(0.25, 0.5, 0.75))’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1534s [00:52:14.434] - globals: [1] ‘FUN’ 1534s [00:52:14.434] - packages: [1] ‘stats’ 1534s [00:52:14.434] getGlobalsAndPackages() ... DONE 1534s [00:52:14.434] - globals found/used: [n=1] ‘FUN’ 1534s [00:52:14.435] - needed namespaces: [n=1] ‘stats’ 1534s [00:52:14.435] Finding globals ... DONE 1534s [00:52:14.435] - use_args: TRUE 1534s [00:52:14.435] - Getting '...' globals ... 1534s [00:52:14.437] resolve() on list ... 1534s [00:52:14.438] recursive: 0 1534s [00:52:14.438] length: 1 1534s [00:52:14.438] elements: ‘...’ 1534s [00:52:14.438] length: 0 (resolved future 1) 1534s [00:52:14.438] resolve() on list ... DONE 1534s [00:52:14.438] - '...' content: [n=1] ‘probs’ 1534s [00:52:14.438] List of 1 1534s [00:52:14.438] $ ...:List of 1 1534s [00:52:14.438] ..$ probs: num [1:3] 0.25 0.5 0.75 1534s [00:52:14.438] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1534s [00:52:14.438] - attr(*, "where")=List of 1 1534s [00:52:14.438] ..$ ...: 1534s [00:52:14.438] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1534s [00:52:14.438] - attr(*, "resolved")= logi TRUE 1534s [00:52:14.438] - attr(*, "total_size")= num NA 1534s [00:52:14.443] - Getting '...' globals ... DONE 1534s [00:52:14.443] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1534s [00:52:14.443] List of 2 1534s [00:52:14.443] $ ...future.FUN:function (x, ...) 1534s [00:52:14.443] $ ... :List of 1 1534s [00:52:14.443] ..$ probs: num [1:3] 0.25 0.5 0.75 1534s [00:52:14.443] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1534s [00:52:14.443] - attr(*, "where")=List of 2 1534s [00:52:14.443] ..$ ...future.FUN: 1534s [00:52:14.443] ..$ ... : 1534s [00:52:14.443] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1534s [00:52:14.443] - attr(*, "resolved")= logi FALSE 1534s [00:52:14.443] - attr(*, "total_size")= num 1328 1534s [00:52:14.448] Packages to be attached in all futures: [n=1] ‘stats’ 1534s [00:52:14.448] getGlobalsAndPackagesXApply() ... DONE 1534s [00:52:14.448] Number of futures (= number of chunks): 1 1534s [00:52:14.448] Launching 1 futures (chunks) ... 1534s [00:52:14.449] Chunk #1 of 1 ... 1534s [00:52:14.449] - Finding globals in 'X' for chunk #1 ... 1534s [00:52:14.449] getGlobalsAndPackages() ... 1534s [00:52:14.449] Searching for globals... 1534s [00:52:14.449] 1534s [00:52:14.450] Searching for globals ... DONE 1534s [00:52:14.450] - globals: [0] 1534s [00:52:14.450] getGlobalsAndPackages() ... DONE 1534s [00:52:14.450] + additional globals found: [n=0] 1534s [00:52:14.450] + additional namespaces needed: [n=0] 1534s [00:52:14.450] - Finding globals in 'X' for chunk #1 ... DONE 1534s [00:52:14.451] - seeds: 1534s [00:52:14.451] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1534s [00:52:14.451] getGlobalsAndPackages() ... 1534s [00:52:14.451] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1534s [00:52:14.451] Resolving globals: FALSE 1534s [00:52:14.452] Tweak future expression to call with '...' arguments ... 1534s [00:52:14.452] { 1534s [00:52:14.452] do.call(function(...) { 1534s [00:52:14.452] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1534s [00:52:14.452] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1534s [00:52:14.452] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1534s [00:52:14.452] on.exit(options(oopts), add = TRUE) 1534s [00:52:14.452] } 1534s [00:52:14.452] { 1534s [00:52:14.452] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1534s [00:52:14.452] ...future.X_jj <- ...future.elements_ii[[jj]] 1534s [00:52:14.452] ...future.FUN(...future.X_jj, ...) 1534s [00:52:14.452] }) 1534s [00:52:14.452] } 1534s [00:52:14.452] }, args = future.call.arguments) 1534s [00:52:14.452] } 1534s [00:52:14.452] Tweak future expression to call with '...' arguments ... DONE 1534s [00:52:14.453] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1534s [00:52:14.453] - packages: [1] ‘stats’ 1534s [00:52:14.453] getGlobalsAndPackages() ... DONE 1534s [00:52:14.453] run() for ‘Future’ ... 1534s [00:52:14.454] - state: ‘created’ 1534s [00:52:14.454] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1534s [00:52:14.457] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1534s [00:52:14.458] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1534s [00:52:14.458] - Field: ‘label’ 1534s [00:52:14.458] - Field: ‘local’ 1534s [00:52:14.458] - Field: ‘owner’ 1534s [00:52:14.458] - Field: ‘envir’ 1534s [00:52:14.459] - Field: ‘packages’ 1534s [00:52:14.459] - Field: ‘gc’ 1534s [00:52:14.459] - Field: ‘conditions’ 1534s [00:52:14.459] - Field: ‘expr’ 1534s [00:52:14.459] - Field: ‘uuid’ 1534s [00:52:14.459] - Field: ‘seed’ 1534s [00:52:14.459] - Field: ‘version’ 1534s [00:52:14.460] - Field: ‘result’ 1534s [00:52:14.460] - Field: ‘asynchronous’ 1534s [00:52:14.460] - Field: ‘calls’ 1534s [00:52:14.460] - Field: ‘globals’ 1534s [00:52:14.460] - Field: ‘stdout’ 1534s [00:52:14.461] - Field: ‘earlySignal’ 1534s [00:52:14.461] - Field: ‘lazy’ 1534s [00:52:14.461] - Field: ‘state’ 1534s [00:52:14.461] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1534s [00:52:14.462] - Launch lazy future ... 1534s [00:52:14.462] Packages needed by the future expression (n = 1): ‘stats’ 1534s [00:52:14.462] Packages needed by future strategies (n = 0): 1534s [00:52:14.463] { 1534s [00:52:14.463] { 1534s [00:52:14.463] { 1534s [00:52:14.463] ...future.startTime <- base::Sys.time() 1534s [00:52:14.463] { 1534s [00:52:14.463] { 1534s [00:52:14.463] { 1534s [00:52:14.463] { 1534s [00:52:14.463] base::local({ 1534s [00:52:14.463] has_future <- base::requireNamespace("future", 1534s [00:52:14.463] quietly = TRUE) 1534s [00:52:14.463] if (has_future) { 1534s [00:52:14.463] ns <- base::getNamespace("future") 1534s [00:52:14.463] version <- ns[[".package"]][["version"]] 1534s [00:52:14.463] if (is.null(version)) 1534s [00:52:14.463] version <- utils::packageVersion("future") 1534s [00:52:14.463] } 1534s [00:52:14.463] else { 1534s [00:52:14.463] version <- NULL 1534s [00:52:14.463] } 1534s [00:52:14.463] if (!has_future || version < "1.8.0") { 1534s [00:52:14.463] info <- base::c(r_version = base::gsub("R version ", 1534s [00:52:14.463] "", base::R.version$version.string), 1534s [00:52:14.463] platform = base::sprintf("%s (%s-bit)", 1534s [00:52:14.463] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1534s [00:52:14.463] os = base::paste(base::Sys.info()[base::c("sysname", 1534s [00:52:14.463] "release", "version")], collapse = " "), 1534s [00:52:14.463] hostname = base::Sys.info()[["nodename"]]) 1534s [00:52:14.463] info <- base::sprintf("%s: %s", base::names(info), 1534s [00:52:14.463] info) 1534s [00:52:14.463] info <- base::paste(info, collapse = "; ") 1534s [00:52:14.463] if (!has_future) { 1534s [00:52:14.463] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1534s [00:52:14.463] info) 1534s [00:52:14.463] } 1534s [00:52:14.463] else { 1534s [00:52:14.463] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1534s [00:52:14.463] info, version) 1534s [00:52:14.463] } 1534s [00:52:14.463] base::stop(msg) 1534s [00:52:14.463] } 1534s [00:52:14.463] }) 1534s [00:52:14.463] } 1534s [00:52:14.463] base::local({ 1534s [00:52:14.463] for (pkg in "stats") { 1534s [00:52:14.463] base::loadNamespace(pkg) 1534s [00:52:14.463] base::library(pkg, character.only = TRUE) 1534s [00:52:14.463] } 1534s [00:52:14.463] }) 1534s [00:52:14.463] } 1534s [00:52:14.463] options(future.plan = NULL) 1534s [00:52:14.463] Sys.unsetenv("R_FUTURE_PLAN") 1534s [00:52:14.463] future::plan("default", .cleanup = FALSE, .init = FALSE) 1534s [00:52:14.463] } 1534s [00:52:14.463] ...future.workdir <- getwd() 1534s [00:52:14.463] } 1534s [00:52:14.463] ...future.oldOptions <- base::as.list(base::.Options) 1534s [00:52:14.463] ...future.oldEnvVars <- base::Sys.getenv() 1534s [00:52:14.463] } 1534s [00:52:14.463] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1534s [00:52:14.463] future.globals.maxSize = NULL, future.globals.method = NULL, 1534s [00:52:14.463] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1534s [00:52:14.463] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1534s [00:52:14.463] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1534s [00:52:14.463] future.stdout.windows.reencode = NULL, width = 80L) 1534s [00:52:14.463] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1534s [00:52:14.463] base::names(...future.oldOptions)) 1534s [00:52:14.463] } 1534s [00:52:14.463] if (FALSE) { 1534s [00:52:14.463] } 1534s [00:52:14.463] else { 1534s [00:52:14.463] if (TRUE) { 1534s [00:52:14.463] ...future.stdout <- base::rawConnection(base::raw(0L), 1534s [00:52:14.463] open = "w") 1534s [00:52:14.463] } 1534s [00:52:14.463] else { 1534s [00:52:14.463] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1534s [00:52:14.463] windows = "NUL", "/dev/null"), open = "w") 1534s [00:52:14.463] } 1534s [00:52:14.463] base::sink(...future.stdout, type = "output", split = FALSE) 1534s [00:52:14.463] base::on.exit(if (!base::is.null(...future.stdout)) { 1534s [00:52:14.463] base::sink(type = "output", split = FALSE) 1534s [00:52:14.463] base::close(...future.stdout) 1534s [00:52:14.463] }, add = TRUE) 1534s [00:52:14.463] } 1534s [00:52:14.463] ...future.frame <- base::sys.nframe() 1534s [00:52:14.463] ...future.conditions <- base::list() 1534s [00:52:14.463] ...future.rng <- base::globalenv()$.Random.seed 1534s [00:52:14.463] if (FALSE) { 1534s [00:52:14.463] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1534s [00:52:14.463] "...future.value", "...future.globalenv.names", ".Random.seed") 1534s [00:52:14.463] } 1534s [00:52:14.463] ...future.result <- base::tryCatch({ 1534s [00:52:14.463] base::withCallingHandlers({ 1534s [00:52:14.463] ...future.value <- base::withVisible(base::local({ 1534s [00:52:14.463] do.call(function(...) { 1534s [00:52:14.463] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1534s [00:52:14.463] if (!identical(...future.globals.maxSize.org, 1534s [00:52:14.463] ...future.globals.maxSize)) { 1534s [00:52:14.463] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1534s [00:52:14.463] on.exit(options(oopts), add = TRUE) 1534s [00:52:14.463] } 1534s [00:52:14.463] { 1534s [00:52:14.463] lapply(seq_along(...future.elements_ii), 1534s [00:52:14.463] FUN = function(jj) { 1534s [00:52:14.463] ...future.X_jj <- ...future.elements_ii[[jj]] 1534s [00:52:14.463] ...future.FUN(...future.X_jj, ...) 1534s [00:52:14.463] }) 1534s [00:52:14.463] } 1534s [00:52:14.463] }, args = future.call.arguments) 1534s [00:52:14.463] })) 1534s [00:52:14.463] future::FutureResult(value = ...future.value$value, 1534s [00:52:14.463] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1534s [00:52:14.463] ...future.rng), globalenv = if (FALSE) 1534s [00:52:14.463] list(added = base::setdiff(base::names(base::.GlobalEnv), 1534s [00:52:14.463] ...future.globalenv.names)) 1534s [00:52:14.463] else NULL, started = ...future.startTime, version = "1.8") 1534s [00:52:14.463] }, condition = base::local({ 1534s [00:52:14.463] c <- base::c 1534s [00:52:14.463] inherits <- base::inherits 1534s [00:52:14.463] invokeRestart <- base::invokeRestart 1534s [00:52:14.463] length <- base::length 1534s [00:52:14.463] list <- base::list 1534s [00:52:14.463] seq.int <- base::seq.int 1534s [00:52:14.463] signalCondition <- base::signalCondition 1534s [00:52:14.463] sys.calls <- base::sys.calls 1534s [00:52:14.463] `[[` <- base::`[[` 1534s [00:52:14.463] `+` <- base::`+` 1534s [00:52:14.463] `<<-` <- base::`<<-` 1534s [00:52:14.463] sysCalls <- function(calls = sys.calls(), from = 1L) { 1534s [00:52:14.463] calls[seq.int(from = from + 12L, to = length(calls) - 1534s [00:52:14.463] 3L)] 1534s [00:52:14.463] } 1534s [00:52:14.463] function(cond) { 1534s [00:52:14.463] is_error <- inherits(cond, "error") 1534s [00:52:14.463] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1534s [00:52:14.463] NULL) 1534s [00:52:14.463] if (is_error) { 1534s [00:52:14.463] sessionInformation <- function() { 1534s [00:52:14.463] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1534s [00:52:14.463] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1534s [00:52:14.463] search = base::search(), system = base::Sys.info()) 1534s [00:52:14.463] } 1534s [00:52:14.463] ...future.conditions[[length(...future.conditions) + 1534s [00:52:14.463] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1534s [00:52:14.463] cond$call), session = sessionInformation(), 1534s [00:52:14.463] timestamp = base::Sys.time(), signaled = 0L) 1534s [00:52:14.463] signalCondition(cond) 1534s [00:52:14.463] } 1534s [00:52:14.463] else if (!ignore && TRUE && inherits(cond, c("condition", 1534s [00:52:14.463] "immediateCondition"))) { 1534s [00:52:14.463] signal <- TRUE && inherits(cond, "immediateCondition") 1534s [00:52:14.463] ...future.conditions[[length(...future.conditions) + 1534s [00:52:14.463] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1534s [00:52:14.463] if (TRUE && !signal) { 1534s [00:52:14.463] muffleCondition <- function (cond, pattern = "^muffle") 1534s [00:52:14.463] { 1534s [00:52:14.463] inherits <- base::inherits 1534s [00:52:14.463] invokeRestart <- base::invokeRestart 1534s [00:52:14.463] is.null <- base::is.null 1534s [00:52:14.463] muffled <- FALSE 1534s [00:52:14.463] if (inherits(cond, "message")) { 1534s [00:52:14.463] muffled <- grepl(pattern, "muffleMessage") 1534s [00:52:14.463] if (muffled) 1534s [00:52:14.463] invokeRestart("muffleMessage") 1534s [00:52:14.463] } 1534s [00:52:14.463] else if (inherits(cond, "warning")) { 1534s [00:52:14.463] muffled <- grepl(pattern, "muffleWarning") 1534s [00:52:14.463] if (muffled) 1534s [00:52:14.463] invokeRestart("muffleWarning") 1534s [00:52:14.463] } 1534s [00:52:14.463] else if (inherits(cond, "condition")) { 1534s [00:52:14.463] if (!is.null(pattern)) { 1534s [00:52:14.463] computeRestarts <- base::computeRestarts 1534s [00:52:14.463] grepl <- base::grepl 1534s [00:52:14.463] restarts <- computeRestarts(cond) 1534s [00:52:14.463] for (restart in restarts) { 1534s [00:52:14.463] name <- restart$name 1534s [00:52:14.463] if (is.null(name)) 1534s [00:52:14.463] next 1534s [00:52:14.463] if (!grepl(pattern, name)) 1534s [00:52:14.463] next 1534s [00:52:14.463] invokeRestart(restart) 1534s [00:52:14.463] muffled <- TRUE 1534s [00:52:14.463] break 1534s [00:52:14.463] } 1534s [00:52:14.463] } 1534s [00:52:14.463] } 1534s [00:52:14.463] invisible(muffled) 1534s [00:52:14.463] } 1534s [00:52:14.463] muffleCondition(cond, pattern = "^muffle") 1534s [00:52:14.463] } 1534s [00:52:14.463] } 1534s [00:52:14.463] else { 1534s [00:52:14.463] if (TRUE) { 1534s [00:52:14.463] muffleCondition <- function (cond, pattern = "^muffle") 1534s [00:52:14.463] { 1534s [00:52:14.463] inherits <- base::inherits 1534s [00:52:14.463] invokeRestart <- base::invokeRestart 1534s [00:52:14.463] is.null <- base::is.null 1534s [00:52:14.463] muffled <- FALSE 1534s [00:52:14.463] if (inherits(cond, "message")) { 1534s [00:52:14.463] muffled <- grepl(pattern, "muffleMessage") 1534s [00:52:14.463] if (muffled) 1534s [00:52:14.463] invokeRestart("muffleMessage") 1534s [00:52:14.463] } 1534s [00:52:14.463] else if (inherits(cond, "warning")) { 1534s [00:52:14.463] muffled <- grepl(pattern, "muffleWarning") 1534s [00:52:14.463] if (muffled) 1534s [00:52:14.463] invokeRestart("muffleWarning") 1534s [00:52:14.463] } 1534s [00:52:14.463] else if (inherits(cond, "condition")) { 1534s [00:52:14.463] if (!is.null(pattern)) { 1534s [00:52:14.463] computeRestarts <- base::computeRestarts 1534s [00:52:14.463] grepl <- base::grepl 1534s [00:52:14.463] restarts <- computeRestarts(cond) 1534s [00:52:14.463] for (restart in restarts) { 1534s [00:52:14.463] name <- restart$name 1534s [00:52:14.463] if (is.null(name)) 1534s [00:52:14.463] next 1534s [00:52:14.463] if (!grepl(pattern, name)) 1534s [00:52:14.463] next 1534s [00:52:14.463] invokeRestart(restart) 1534s [00:52:14.463] muffled <- TRUE 1534s [00:52:14.463] break 1534s [00:52:14.463] } 1534s [00:52:14.463] } 1534s [00:52:14.463] } 1534s [00:52:14.463] invisible(muffled) 1534s [00:52:14.463] } 1534s [00:52:14.463] muffleCondition(cond, pattern = "^muffle") 1534s [00:52:14.463] } 1534s [00:52:14.463] } 1534s [00:52:14.463] } 1534s [00:52:14.463] })) 1534s [00:52:14.463] }, error = function(ex) { 1534s [00:52:14.463] base::structure(base::list(value = NULL, visible = NULL, 1534s [00:52:14.463] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1534s [00:52:14.463] ...future.rng), started = ...future.startTime, 1534s [00:52:14.463] finished = Sys.time(), session_uuid = NA_character_, 1534s [00:52:14.463] version = "1.8"), class = "FutureResult") 1534s [00:52:14.463] }, finally = { 1534s [00:52:14.463] if (!identical(...future.workdir, getwd())) 1534s [00:52:14.463] setwd(...future.workdir) 1534s [00:52:14.463] { 1534s [00:52:14.463] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1534s [00:52:14.463] ...future.oldOptions$nwarnings <- NULL 1534s [00:52:14.463] } 1534s [00:52:14.463] base::options(...future.oldOptions) 1534s [00:52:14.463] if (.Platform$OS.type == "windows") { 1534s [00:52:14.463] old_names <- names(...future.oldEnvVars) 1534s [00:52:14.463] envs <- base::Sys.getenv() 1534s [00:52:14.463] names <- names(envs) 1534s [00:52:14.463] common <- intersect(names, old_names) 1534s [00:52:14.463] added <- setdiff(names, old_names) 1534s [00:52:14.463] removed <- setdiff(old_names, names) 1534s [00:52:14.463] changed <- common[...future.oldEnvVars[common] != 1534s [00:52:14.463] envs[common]] 1534s [00:52:14.463] NAMES <- toupper(changed) 1534s [00:52:14.463] args <- list() 1534s [00:52:14.463] for (kk in seq_along(NAMES)) { 1534s [00:52:14.463] name <- changed[[kk]] 1534s [00:52:14.463] NAME <- NAMES[[kk]] 1534s [00:52:14.463] if (name != NAME && is.element(NAME, old_names)) 1534s [00:52:14.463] next 1534s [00:52:14.463] args[[name]] <- ...future.oldEnvVars[[name]] 1534s [00:52:14.463] } 1534s [00:52:14.463] NAMES <- toupper(added) 1534s [00:52:14.463] for (kk in seq_along(NAMES)) { 1534s [00:52:14.463] name <- added[[kk]] 1534s [00:52:14.463] NAME <- NAMES[[kk]] 1534s [00:52:14.463] if (name != NAME && is.element(NAME, old_names)) 1534s [00:52:14.463] next 1534s [00:52:14.463] args[[name]] <- "" 1534s [00:52:14.463] } 1534s [00:52:14.463] NAMES <- toupper(removed) 1534s [00:52:14.463] for (kk in seq_along(NAMES)) { 1534s [00:52:14.463] name <- removed[[kk]] 1534s [00:52:14.463] NAME <- NAMES[[kk]] 1534s [00:52:14.463] if (name != NAME && is.element(NAME, old_names)) 1534s [00:52:14.463] next 1534s [00:52:14.463] args[[name]] <- ...future.oldEnvVars[[name]] 1534s [00:52:14.463] } 1534s [00:52:14.463] if (length(args) > 0) 1534s [00:52:14.463] base::do.call(base::Sys.setenv, args = args) 1534s [00:52:14.463] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1534s [00:52:14.463] } 1534s [00:52:14.463] else { 1534s [00:52:14.463] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1534s [00:52:14.463] } 1534s [00:52:14.463] { 1534s [00:52:14.463] if (base::length(...future.futureOptionsAdded) > 1534s [00:52:14.463] 0L) { 1534s [00:52:14.463] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1534s [00:52:14.463] base::names(opts) <- ...future.futureOptionsAdded 1534s [00:52:14.463] base::options(opts) 1534s [00:52:14.463] } 1534s [00:52:14.463] { 1534s [00:52:14.463] { 1534s [00:52:14.463] NULL 1534s [00:52:14.463] RNGkind("Mersenne-Twister") 1534s [00:52:14.463] base::rm(list = ".Random.seed", envir = base::globalenv(), 1534s [00:52:14.463] inherits = FALSE) 1534s [00:52:14.463] } 1534s [00:52:14.463] options(future.plan = NULL) 1534s [00:52:14.463] if (is.na(NA_character_)) 1534s [00:52:14.463] Sys.unsetenv("R_FUTURE_PLAN") 1534s [00:52:14.463] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1534s [00:52:14.463] future::plan(list(function (..., workers = availableCores(), 1534s [00:52:14.463] lazy = FALSE, rscript_libs = .libPaths(), 1534s [00:52:14.463] envir = parent.frame()) 1534s [00:52:14.463] { 1534s [00:52:14.463] if (is.function(workers)) 1534s [00:52:14.463] workers <- workers() 1534s [00:52:14.463] workers <- structure(as.integer(workers), 1534s [00:52:14.463] class = class(workers)) 1534s [00:52:14.463] stop_if_not(length(workers) == 1, is.finite(workers), 1534s [00:52:14.463] workers >= 1) 1534s [00:52:14.463] if (workers == 1L && !inherits(workers, "AsIs")) { 1534s [00:52:14.463] return(sequential(..., lazy = TRUE, envir = envir)) 1534s [00:52:14.463] } 1534s [00:52:14.463] future <- MultisessionFuture(..., workers = workers, 1534s [00:52:14.463] lazy = lazy, rscript_libs = rscript_libs, 1534s [00:52:14.463] envir = envir) 1534s [00:52:14.463] if (!future$lazy) 1534s [00:52:14.463] future <- run(future) 1534s [00:52:14.463] invisible(future) 1534s [00:52:14.463] }), .cleanup = FALSE, .init = FALSE) 1534s [00:52:14.463] } 1534s [00:52:14.463] } 1534s [00:52:14.463] } 1534s [00:52:14.463] }) 1534s [00:52:14.463] if (TRUE) { 1534s [00:52:14.463] base::sink(type = "output", split = FALSE) 1534s [00:52:14.463] if (TRUE) { 1534s [00:52:14.463] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1534s [00:52:14.463] } 1534s [00:52:14.463] else { 1534s [00:52:14.463] ...future.result["stdout"] <- base::list(NULL) 1534s [00:52:14.463] } 1534s [00:52:14.463] base::close(...future.stdout) 1534s [00:52:14.463] ...future.stdout <- NULL 1534s [00:52:14.463] } 1534s [00:52:14.463] ...future.result$conditions <- ...future.conditions 1534s [00:52:14.463] ...future.result$finished <- base::Sys.time() 1534s [00:52:14.463] ...future.result 1534s [00:52:14.463] } 1534s [00:52:14.467] assign_globals() ... 1534s [00:52:14.467] List of 5 1534s [00:52:14.467] $ ...future.FUN :function (x, ...) 1534s [00:52:14.467] $ future.call.arguments :List of 1 1534s [00:52:14.467] ..$ probs: num [1:3] 0.25 0.5 0.75 1534s [00:52:14.467] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1534s [00:52:14.467] $ ...future.elements_ii :List of 3 1534s [00:52:14.467] ..$ logic: logi [1:4] TRUE FALSE FALSE TRUE 1534s [00:52:14.467] ..$ beta : num [1:7] 0.0498 0.1353 0.3679 1 2.7183 ... 1534s [00:52:14.467] ..$ a : int [1:10] 1 2 3 4 5 6 7 8 9 10 1534s [00:52:14.467] $ ...future.seeds_ii : NULL 1534s [00:52:14.467] $ ...future.globals.maxSize: NULL 1534s [00:52:14.467] - attr(*, "where")=List of 5 1534s [00:52:14.467] ..$ ...future.FUN : 1534s [00:52:14.467] ..$ future.call.arguments : 1534s [00:52:14.467] ..$ ...future.elements_ii : 1534s [00:52:14.467] ..$ ...future.seeds_ii : 1534s [00:52:14.467] ..$ ...future.globals.maxSize: 1534s [00:52:14.467] - attr(*, "resolved")= logi FALSE 1534s [00:52:14.467] - attr(*, "total_size")= num 1328 1534s [00:52:14.467] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1534s [00:52:14.467] - attr(*, "already-done")= logi TRUE 1534s [00:52:14.478] - copied ‘...future.FUN’ to environment 1534s [00:52:14.478] - copied ‘future.call.arguments’ to environment 1534s [00:52:14.478] - copied ‘...future.elements_ii’ to environment 1534s [00:52:14.478] - copied ‘...future.seeds_ii’ to environment 1534s [00:52:14.478] - copied ‘...future.globals.maxSize’ to environment 1534s [00:52:14.479] assign_globals() ... done 1534s [00:52:14.479] plan(): Setting new future strategy stack: 1534s [00:52:14.479] List of future strategies: 1534s [00:52:14.479] 1. sequential: 1534s [00:52:14.479] - args: function (..., envir = parent.frame()) 1534s [00:52:14.479] - tweaked: FALSE 1534s [00:52:14.479] - call: NULL 1534s [00:52:14.480] plan(): nbrOfWorkers() = 1 1534s [00:52:14.482] plan(): Setting new future strategy stack: 1534s [00:52:14.482] List of future strategies: 1534s [00:52:14.482] 1. multisession: 1534s [00:52:14.482] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1534s [00:52:14.482] - tweaked: FALSE 1534s [00:52:14.482] - call: plan(strategy) 1534s [00:52:14.486] plan(): nbrOfWorkers() = 1 1534s [00:52:14.486] SequentialFuture started (and completed) 1534s [00:52:14.486] - Launch lazy future ... done 1534s [00:52:14.486] run() for ‘SequentialFuture’ ... done 1534s [00:52:14.487] Created future: 1534s [00:52:14.487] SequentialFuture: 1534s [00:52:14.487] Label: ‘future_eapply-1’ 1534s [00:52:14.487] Expression: 1534s [00:52:14.487] { 1534s [00:52:14.487] do.call(function(...) { 1534s [00:52:14.487] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1534s [00:52:14.487] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1534s [00:52:14.487] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1534s [00:52:14.487] on.exit(options(oopts), add = TRUE) 1534s [00:52:14.487] } 1534s [00:52:14.487] { 1534s [00:52:14.487] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1534s [00:52:14.487] ...future.X_jj <- ...future.elements_ii[[jj]] 1534s [00:52:14.487] ...future.FUN(...future.X_jj, ...) 1534s [00:52:14.487] }) 1534s [00:52:14.487] } 1534s [00:52:14.487] }, args = future.call.arguments) 1534s [00:52:14.487] } 1534s [00:52:14.487] Lazy evaluation: FALSE 1534s [00:52:14.487] Asynchronous evaluation: FALSE 1534s [00:52:14.487] Local evaluation: TRUE 1534s [00:52:14.487] Environment: R_GlobalEnv 1534s [00:52:14.487] Capture standard output: TRUE 1534s [00:52:14.487] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1534s [00:52:14.487] Globals: 5 objects totaling 1.56 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 80 bytes, list ‘...future.elements_ii’ of 272 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1534s [00:52:14.487] Packages: 1 packages (‘stats’) 1534s [00:52:14.487] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1534s [00:52:14.487] Resolved: TRUE 1534s [00:52:14.487] Value: 1.29 KiB of class ‘list’ 1534s [00:52:14.487] Early signaling: FALSE 1534s [00:52:14.487] Owner process: a67f97e2-ffea-5be0-b95e-c580db557e5a 1534s [00:52:14.487] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1534s [00:52:14.488] Chunk #1 of 1 ... DONE 1534s [00:52:14.489] Launching 1 futures (chunks) ... DONE 1534s [00:52:14.489] Resolving 1 futures (chunks) ... 1534s [00:52:14.489] resolve() on list ... 1534s [00:52:14.489] recursive: 0 1534s [00:52:14.489] length: 1 1534s [00:52:14.490] 1534s [00:52:14.490] resolved() for ‘SequentialFuture’ ... 1534s [00:52:14.490] - state: ‘finished’ 1534s [00:52:14.490] - run: TRUE 1534s [00:52:14.490] - result: ‘FutureResult’ 1534s [00:52:14.490] resolved() for ‘SequentialFuture’ ... done 1534s [00:52:14.491] Future #1 1534s [00:52:14.491] signalConditionsASAP(SequentialFuture, pos=1) ... 1534s [00:52:14.491] - nx: 1 1534s [00:52:14.491] - relay: TRUE 1534s [00:52:14.492] - stdout: TRUE 1534s [00:52:14.492] - signal: TRUE 1534s [00:52:14.492] - resignal: FALSE 1534s [00:52:14.492] - force: TRUE 1534s [00:52:14.492] - relayed: [n=1] FALSE 1534s [00:52:14.492] - queued futures: [n=1] FALSE 1534s [00:52:14.492] - until=1 1534s [00:52:14.493] - relaying element #1 1534s [00:52:14.493] - relayed: [n=1] TRUE 1534s [00:52:14.493] - queued futures: [n=1] TRUE 1534s [00:52:14.493] signalConditionsASAP(SequentialFuture, pos=1) ... done 1534s [00:52:14.493] length: 0 (resolved future 1) 1534s [00:52:14.493] Relaying remaining futures 1534s [00:52:14.494] signalConditionsASAP(NULL, pos=0) ... 1534s [00:52:14.494] - nx: 1 1534s [00:52:14.494] - relay: TRUE 1534s [00:52:14.494] - stdout: TRUE 1534s [00:52:14.494] - signal: TRUE 1534s [00:52:14.494] - resignal: FALSE 1534s [00:52:14.494] - force: TRUE 1534s [00:52:14.495] - relayed: [n=1] TRUE 1534s [00:52:14.495] - queued futures: [n=1] TRUE 1534s - flush all 1534s [00:52:14.495] - relayed: [n=1] TRUE 1534s [00:52:14.495] - queued futures: [n=1] TRUE 1534s [00:52:14.495] signalConditionsASAP(NULL, pos=0) ... done 1534s [00:52:14.496] resolve() on list ... DONE 1534s [00:52:14.496] - Number of value chunks collected: 1 1534s [00:52:14.496] Resolving 1 futures (chunks) ... DONE 1534s [00:52:14.496] Reducing values from 1 chunks ... 1534s [00:52:14.496] - Number of values collected after concatenation: 3 1534s [00:52:14.496] - Number of values expected: 3 1534s [00:52:14.496] Reducing values from 1 chunks ... DONE 1534s [00:52:14.497] future_lapply() ... DONE 1534s [00:52:14.498] future_lapply() ... 1534s [00:52:14.501] Number of chunks: 1 1534s [00:52:14.501] getGlobalsAndPackagesXApply() ... 1534s [00:52:14.502] - future.globals: TRUE 1534s [00:52:14.502] getGlobalsAndPackages() ... 1534s [00:52:14.502] Searching for globals... 1534s [00:52:14.503] - globals found: [2] ‘FUN’, ‘UseMethod’ 1534s [00:52:14.503] Searching for globals ... DONE 1534s [00:52:14.503] Resolving globals: FALSE 1534s [00:52:14.504] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1534s [00:52:14.504] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1534s [00:52:14.504] - globals: [1] ‘FUN’ 1534s [00:52:14.505] - packages: [1] ‘stats’ 1534s [00:52:14.505] getGlobalsAndPackages() ... DONE 1534s [00:52:14.505] - globals found/used: [n=1] ‘FUN’ 1534s [00:52:14.505] - needed namespaces: [n=1] ‘stats’ 1534s [00:52:14.505] Finding globals ... DONE 1534s [00:52:14.505] - use_args: TRUE 1534s [00:52:14.505] - Getting '...' globals ... 1534s [00:52:14.506] resolve() on list ... 1534s [00:52:14.506] recursive: 0 1534s [00:52:14.506] length: 1 1534s [00:52:14.506] elements: ‘...’ 1534s [00:52:14.506] length: 0 (resolved future 1) 1534s [00:52:14.507] resolve() on list ... DONE 1534s [00:52:14.507] - '...' content: [n=0] 1534s [00:52:14.507] List of 1 1534s [00:52:14.507] $ ...: list() 1534s [00:52:14.507] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1534s [00:52:14.507] - attr(*, "where")=List of 1 1534s [00:52:14.507] ..$ ...: 1534s [00:52:14.507] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1534s [00:52:14.507] - attr(*, "resolved")= logi TRUE 1534s [00:52:14.507] - attr(*, "total_size")= num NA 1534s [00:52:14.510] - Getting '...' globals ... DONE 1534s [00:52:14.511] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1534s [00:52:14.511] List of 2 1534s [00:52:14.511] $ ...future.FUN:function (x, ...) 1534s [00:52:14.511] $ ... : list() 1534s [00:52:14.511] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1534s [00:52:14.511] - attr(*, "where")=List of 2 1534s [00:52:14.511] ..$ ...future.FUN: 1534s [00:52:14.511] ..$ ... : 1534s [00:52:14.511] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1534s [00:52:14.511] - attr(*, "resolved")= logi FALSE 1534s [00:52:14.511] - attr(*, "total_size")= num 1248 1534s [00:52:14.516] Packages to be attached in all futures: [n=1] ‘stats’ 1534s [00:52:14.516] getGlobalsAndPackagesXApply() ... DONE 1534s [00:52:14.516] Number of futures (= number of chunks): 1 1534s [00:52:14.517] Launching 1 futures (chunks) ... 1534s [00:52:14.517] Chunk #1 of 1 ... 1534s [00:52:14.517] - Finding globals in 'X' for chunk #1 ... 1534s [00:52:14.517] getGlobalsAndPackages() ... 1534s [00:52:14.517] Searching for globals... 1534s [00:52:14.517] 1534s [00:52:14.517] Searching for globals ... DONE 1534s [00:52:14.518] - globals: [0] 1534s [00:52:14.518] getGlobalsAndPackages() ... DONE 1534s [00:52:14.518] + additional globals found: [n=0] 1534s [00:52:14.518] + additional namespaces needed: [n=0] 1534s [00:52:14.518] - Finding globals in 'X' for chunk #1 ... DONE 1534s [00:52:14.518] - seeds: 1534s [00:52:14.518] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1534s [00:52:14.519] getGlobalsAndPackages() ... 1534s [00:52:14.519] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1534s [00:52:14.519] Resolving globals: FALSE 1534s [00:52:14.519] Tweak future expression to call with '...' arguments ... 1534s [00:52:14.519] { 1534s [00:52:14.519] do.call(function(...) { 1534s [00:52:14.519] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1534s [00:52:14.519] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1534s [00:52:14.519] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1534s [00:52:14.519] on.exit(options(oopts), add = TRUE) 1534s [00:52:14.519] } 1534s [00:52:14.519] { 1534s [00:52:14.519] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1534s [00:52:14.519] ...future.X_jj <- ...future.elements_ii[[jj]] 1534s [00:52:14.519] ...future.FUN(...future.X_jj, ...) 1534s [00:52:14.519] }) 1534s [00:52:14.519] } 1534s [00:52:14.519] }, args = future.call.arguments) 1534s [00:52:14.519] } 1534s [00:52:14.519] Tweak future expression to call with '...' arguments ... DONE 1534s [00:52:14.520] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1534s [00:52:14.521] - packages: [1] ‘stats’ 1534s [00:52:14.521] getGlobalsAndPackages() ... DONE 1534s [00:52:14.521] run() for ‘Future’ ... 1534s [00:52:14.521] - state: ‘created’ 1534s [00:52:14.521] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1534s [00:52:14.525] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1534s [00:52:14.525] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1534s [00:52:14.525] - Field: ‘label’ 1534s [00:52:14.526] - Field: ‘local’ 1534s [00:52:14.526] - Field: ‘owner’ 1534s [00:52:14.526] - Field: ‘envir’ 1534s [00:52:14.526] - Field: ‘packages’ 1534s [00:52:14.526] - Field: ‘gc’ 1534s [00:52:14.526] - Field: ‘conditions’ 1534s [00:52:14.527] - Field: ‘expr’ 1534s [00:52:14.527] - Field: ‘uuid’ 1534s [00:52:14.527] - Field: ‘seed’ 1534s [00:52:14.527] - Field: ‘version’ 1534s [00:52:14.527] - Field: ‘result’ 1534s [00:52:14.527] - Field: ‘asynchronous’ 1534s [00:52:14.527] - Field: ‘calls’ 1534s [00:52:14.528] - Field: ‘globals’ 1534s [00:52:14.528] - Field: ‘stdout’ 1534s [00:52:14.528] - Field: ‘earlySignal’ 1534s [00:52:14.528] - Field: ‘lazy’ 1534s [00:52:14.528] - Field: ‘state’ 1534s [00:52:14.528] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1534s [00:52:14.528] - Launch lazy future ... 1534s [00:52:14.529] Packages needed by the future expression (n = 1): ‘stats’ 1534s [00:52:14.529] Packages needed by future strategies (n = 0): 1534s [00:52:14.530] { 1534s [00:52:14.530] { 1534s [00:52:14.530] { 1534s [00:52:14.530] ...future.startTime <- base::Sys.time() 1534s [00:52:14.530] { 1534s [00:52:14.530] { 1534s [00:52:14.530] { 1534s [00:52:14.530] { 1534s [00:52:14.530] base::local({ 1534s [00:52:14.530] has_future <- base::requireNamespace("future", 1534s [00:52:14.530] quietly = TRUE) 1534s [00:52:14.530] if (has_future) { 1534s [00:52:14.530] ns <- base::getNamespace("future") 1534s [00:52:14.530] version <- ns[[".package"]][["version"]] 1534s [00:52:14.530] if (is.null(version)) 1534s [00:52:14.530] version <- utils::packageVersion("future") 1534s [00:52:14.530] } 1534s [00:52:14.530] else { 1534s [00:52:14.530] version <- NULL 1534s [00:52:14.530] } 1534s [00:52:14.530] if (!has_future || version < "1.8.0") { 1534s [00:52:14.530] info <- base::c(r_version = base::gsub("R version ", 1534s [00:52:14.530] "", base::R.version$version.string), 1534s [00:52:14.530] platform = base::sprintf("%s (%s-bit)", 1534s [00:52:14.530] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1534s [00:52:14.530] os = base::paste(base::Sys.info()[base::c("sysname", 1534s [00:52:14.530] "release", "version")], collapse = " "), 1534s [00:52:14.530] hostname = base::Sys.info()[["nodename"]]) 1534s [00:52:14.530] info <- base::sprintf("%s: %s", base::names(info), 1534s [00:52:14.530] info) 1534s [00:52:14.530] info <- base::paste(info, collapse = "; ") 1534s [00:52:14.530] if (!has_future) { 1534s [00:52:14.530] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1534s [00:52:14.530] info) 1534s [00:52:14.530] } 1534s [00:52:14.530] else { 1534s [00:52:14.530] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1534s [00:52:14.530] info, version) 1534s [00:52:14.530] } 1534s [00:52:14.530] base::stop(msg) 1534s [00:52:14.530] } 1534s [00:52:14.530] }) 1534s [00:52:14.530] } 1534s [00:52:14.530] base::local({ 1534s [00:52:14.530] for (pkg in "stats") { 1534s [00:52:14.530] base::loadNamespace(pkg) 1534s [00:52:14.530] base::library(pkg, character.only = TRUE) 1534s [00:52:14.530] } 1534s [00:52:14.530] }) 1534s [00:52:14.530] } 1534s [00:52:14.530] options(future.plan = NULL) 1534s [00:52:14.530] Sys.unsetenv("R_FUTURE_PLAN") 1534s [00:52:14.530] future::plan("default", .cleanup = FALSE, .init = FALSE) 1534s [00:52:14.530] } 1534s [00:52:14.530] ...future.workdir <- getwd() 1534s [00:52:14.530] } 1534s [00:52:14.530] ...future.oldOptions <- base::as.list(base::.Options) 1534s [00:52:14.530] ...future.oldEnvVars <- base::Sys.getenv() 1534s [00:52:14.530] } 1534s [00:52:14.530] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1534s [00:52:14.530] future.globals.maxSize = NULL, future.globals.method = NULL, 1534s [00:52:14.530] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1534s [00:52:14.530] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1534s [00:52:14.530] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1534s [00:52:14.530] future.stdout.windows.reencode = NULL, width = 80L) 1534s [00:52:14.530] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1534s [00:52:14.530] base::names(...future.oldOptions)) 1534s [00:52:14.530] } 1534s [00:52:14.530] if (FALSE) { 1534s [00:52:14.530] } 1534s [00:52:14.530] else { 1534s [00:52:14.530] if (TRUE) { 1534s [00:52:14.530] ...future.stdout <- base::rawConnection(base::raw(0L), 1534s [00:52:14.530] open = "w") 1534s [00:52:14.530] } 1534s [00:52:14.530] else { 1534s [00:52:14.530] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1534s [00:52:14.530] windows = "NUL", "/dev/null"), open = "w") 1534s [00:52:14.530] } 1534s [00:52:14.530] base::sink(...future.stdout, type = "output", split = FALSE) 1534s [00:52:14.530] base::on.exit(if (!base::is.null(...future.stdout)) { 1534s [00:52:14.530] base::sink(type = "output", split = FALSE) 1534s [00:52:14.530] base::close(...future.stdout) 1534s [00:52:14.530] }, add = TRUE) 1534s [00:52:14.530] } 1534s [00:52:14.530] ...future.frame <- base::sys.nframe() 1534s [00:52:14.530] ...future.conditions <- base::list() 1534s [00:52:14.530] ...future.rng <- base::globalenv()$.Random.seed 1534s [00:52:14.530] if (FALSE) { 1534s [00:52:14.530] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1534s [00:52:14.530] "...future.value", "...future.globalenv.names", ".Random.seed") 1534s [00:52:14.530] } 1534s [00:52:14.530] ...future.result <- base::tryCatch({ 1534s [00:52:14.530] base::withCallingHandlers({ 1534s [00:52:14.530] ...future.value <- base::withVisible(base::local({ 1534s [00:52:14.530] do.call(function(...) { 1534s [00:52:14.530] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1534s [00:52:14.530] if (!identical(...future.globals.maxSize.org, 1534s [00:52:14.530] ...future.globals.maxSize)) { 1534s [00:52:14.530] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1534s [00:52:14.530] on.exit(options(oopts), add = TRUE) 1534s [00:52:14.530] } 1534s [00:52:14.530] { 1534s [00:52:14.530] lapply(seq_along(...future.elements_ii), 1534s [00:52:14.530] FUN = function(jj) { 1534s [00:52:14.530] ...future.X_jj <- ...future.elements_ii[[jj]] 1534s [00:52:14.530] ...future.FUN(...future.X_jj, ...) 1534s [00:52:14.530] }) 1534s [00:52:14.530] } 1534s [00:52:14.530] }, args = future.call.arguments) 1534s [00:52:14.530] })) 1534s [00:52:14.530] future::FutureResult(value = ...future.value$value, 1534s [00:52:14.530] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1534s [00:52:14.530] ...future.rng), globalenv = if (FALSE) 1534s [00:52:14.530] list(added = base::setdiff(base::names(base::.GlobalEnv), 1534s [00:52:14.530] ...future.globalenv.names)) 1534s [00:52:14.530] else NULL, started = ...future.startTime, version = "1.8") 1534s [00:52:14.530] }, condition = base::local({ 1534s [00:52:14.530] c <- base::c 1534s [00:52:14.530] inherits <- base::inherits 1534s [00:52:14.530] invokeRestart <- base::invokeRestart 1534s [00:52:14.530] length <- base::length 1534s [00:52:14.530] list <- base::list 1534s [00:52:14.530] seq.int <- base::seq.int 1534s [00:52:14.530] signalCondition <- base::signalCondition 1534s [00:52:14.530] sys.calls <- base::sys.calls 1534s [00:52:14.530] `[[` <- base::`[[` 1534s [00:52:14.530] `+` <- base::`+` 1534s [00:52:14.530] `<<-` <- base::`<<-` 1534s [00:52:14.530] sysCalls <- function(calls = sys.calls(), from = 1L) { 1534s [00:52:14.530] calls[seq.int(from = from + 12L, to = length(calls) - 1534s [00:52:14.530] 3L)] 1534s [00:52:14.530] } 1534s [00:52:14.530] function(cond) { 1534s [00:52:14.530] is_error <- inherits(cond, "error") 1534s [00:52:14.530] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1534s [00:52:14.530] NULL) 1534s [00:52:14.530] if (is_error) { 1534s [00:52:14.530] sessionInformation <- function() { 1534s [00:52:14.530] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1534s [00:52:14.530] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1534s [00:52:14.530] search = base::search(), system = base::Sys.info()) 1534s [00:52:14.530] } 1534s [00:52:14.530] ...future.conditions[[length(...future.conditions) + 1534s [00:52:14.530] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1534s [00:52:14.530] cond$call), session = sessionInformation(), 1534s [00:52:14.530] timestamp = base::Sys.time(), signaled = 0L) 1534s [00:52:14.530] signalCondition(cond) 1534s [00:52:14.530] } 1534s [00:52:14.530] else if (!ignore && TRUE && inherits(cond, c("condition", 1534s [00:52:14.530] "immediateCondition"))) { 1534s [00:52:14.530] signal <- TRUE && inherits(cond, "immediateCondition") 1534s [00:52:14.530] ...future.conditions[[length(...future.conditions) + 1534s [00:52:14.530] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1534s [00:52:14.530] if (TRUE && !signal) { 1534s [00:52:14.530] muffleCondition <- function (cond, pattern = "^muffle") 1534s [00:52:14.530] { 1534s [00:52:14.530] inherits <- base::inherits 1534s [00:52:14.530] invokeRestart <- base::invokeRestart 1534s [00:52:14.530] is.null <- base::is.null 1534s [00:52:14.530] muffled <- FALSE 1534s [00:52:14.530] if (inherits(cond, "message")) { 1534s [00:52:14.530] muffled <- grepl(pattern, "muffleMessage") 1534s [00:52:14.530] if (muffled) 1534s [00:52:14.530] invokeRestart("muffleMessage") 1534s [00:52:14.530] } 1534s [00:52:14.530] else if (inherits(cond, "warning")) { 1534s [00:52:14.530] muffled <- grepl(pattern, "muffleWarning") 1534s [00:52:14.530] if (muffled) 1534s [00:52:14.530] invokeRestart("muffleWarning") 1534s [00:52:14.530] } 1534s [00:52:14.530] else if (inherits(cond, "condition")) { 1534s [00:52:14.530] if (!is.null(pattern)) { 1534s [00:52:14.530] computeRestarts <- base::computeRestarts 1534s [00:52:14.530] grepl <- base::grepl 1534s [00:52:14.530] restarts <- computeRestarts(cond) 1534s [00:52:14.530] for (restart in restarts) { 1534s [00:52:14.530] name <- restart$name 1534s [00:52:14.530] if (is.null(name)) 1534s [00:52:14.530] next 1534s [00:52:14.530] if (!grepl(pattern, name)) 1534s [00:52:14.530] next 1534s [00:52:14.530] invokeRestart(restart) 1534s [00:52:14.530] muffled <- TRUE 1534s [00:52:14.530] break 1534s [00:52:14.530] } 1534s [00:52:14.530] } 1534s [00:52:14.530] } 1534s [00:52:14.530] invisible(muffled) 1534s [00:52:14.530] } 1534s [00:52:14.530] muffleCondition(cond, pattern = "^muffle") 1534s [00:52:14.530] } 1534s [00:52:14.530] } 1534s [00:52:14.530] else { 1534s [00:52:14.530] if (TRUE) { 1534s [00:52:14.530] muffleCondition <- function (cond, pattern = "^muffle") 1534s [00:52:14.530] { 1534s [00:52:14.530] inherits <- base::inherits 1534s [00:52:14.530] invokeRestart <- base::invokeRestart 1534s [00:52:14.530] is.null <- base::is.null 1534s [00:52:14.530] muffled <- FALSE 1534s [00:52:14.530] if (inherits(cond, "message")) { 1534s [00:52:14.530] muffled <- grepl(pattern, "muffleMessage") 1534s [00:52:14.530] if (muffled) 1534s [00:52:14.530] invokeRestart("muffleMessage") 1534s [00:52:14.530] } 1534s [00:52:14.530] else if (inherits(cond, "warning")) { 1534s [00:52:14.530] muffled <- grepl(pattern, "muffleWarning") 1534s [00:52:14.530] if (muffled) 1534s [00:52:14.530] invokeRestart("muffleWarning") 1534s [00:52:14.530] } 1534s [00:52:14.530] else if (inherits(cond, "condition")) { 1534s [00:52:14.530] if (!is.null(pattern)) { 1534s [00:52:14.530] computeRestarts <- base::computeRestarts 1534s [00:52:14.530] grepl <- base::grepl 1534s [00:52:14.530] restarts <- computeRestarts(cond) 1534s [00:52:14.530] for (restart in restarts) { 1534s [00:52:14.530] name <- restart$name 1534s [00:52:14.530] if (is.null(name)) 1534s [00:52:14.530] next 1534s [00:52:14.530] if (!grepl(pattern, name)) 1534s [00:52:14.530] next 1534s [00:52:14.530] invokeRestart(restart) 1534s [00:52:14.530] muffled <- TRUE 1534s [00:52:14.530] break 1534s [00:52:14.530] } 1534s [00:52:14.530] } 1534s [00:52:14.530] } 1534s [00:52:14.530] invisible(muffled) 1534s [00:52:14.530] } 1534s [00:52:14.530] muffleCondition(cond, pattern = "^muffle") 1534s [00:52:14.530] } 1534s [00:52:14.530] } 1534s [00:52:14.530] } 1534s [00:52:14.530] })) 1534s [00:52:14.530] }, error = function(ex) { 1534s [00:52:14.530] base::structure(base::list(value = NULL, visible = NULL, 1534s [00:52:14.530] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1534s [00:52:14.530] ...future.rng), started = ...future.startTime, 1534s [00:52:14.530] finished = Sys.time(), session_uuid = NA_character_, 1534s [00:52:14.530] version = "1.8"), class = "FutureResult") 1534s [00:52:14.530] }, finally = { 1534s [00:52:14.530] if (!identical(...future.workdir, getwd())) 1534s [00:52:14.530] setwd(...future.workdir) 1534s [00:52:14.530] { 1534s [00:52:14.530] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1534s [00:52:14.530] ...future.oldOptions$nwarnings <- NULL 1534s [00:52:14.530] } 1534s [00:52:14.530] base::options(...future.oldOptions) 1534s [00:52:14.530] if (.Platform$OS.type == "windows") { 1534s [00:52:14.530] old_names <- names(...future.oldEnvVars) 1534s [00:52:14.530] envs <- base::Sys.getenv() 1534s [00:52:14.530] names <- names(envs) 1534s [00:52:14.530] common <- intersect(names, old_names) 1534s [00:52:14.530] added <- setdiff(names, old_names) 1534s [00:52:14.530] removed <- setdiff(old_names, names) 1534s [00:52:14.530] changed <- common[...future.oldEnvVars[common] != 1534s [00:52:14.530] envs[common]] 1534s [00:52:14.530] NAMES <- toupper(changed) 1534s [00:52:14.530] args <- list() 1534s [00:52:14.530] for (kk in seq_along(NAMES)) { 1534s [00:52:14.530] name <- changed[[kk]] 1534s [00:52:14.530] NAME <- NAMES[[kk]] 1534s [00:52:14.530] if (name != NAME && is.element(NAME, old_names)) 1534s [00:52:14.530] next 1534s [00:52:14.530] args[[name]] <- ...future.oldEnvVars[[name]] 1534s [00:52:14.530] } 1534s [00:52:14.530] NAMES <- toupper(added) 1534s [00:52:14.530] for (kk in seq_along(NAMES)) { 1534s [00:52:14.530] name <- added[[kk]] 1534s [00:52:14.530] NAME <- NAMES[[kk]] 1534s [00:52:14.530] if (name != NAME && is.element(NAME, old_names)) 1534s [00:52:14.530] next 1534s [00:52:14.530] args[[name]] <- "" 1534s [00:52:14.530] } 1534s [00:52:14.530] NAMES <- toupper(removed) 1534s [00:52:14.530] for (kk in seq_along(NAMES)) { 1534s [00:52:14.530] name <- removed[[kk]] 1534s [00:52:14.530] NAME <- NAMES[[kk]] 1534s [00:52:14.530] if (name != NAME && is.element(NAME, old_names)) 1534s [00:52:14.530] next 1534s [00:52:14.530] args[[name]] <- ...future.oldEnvVars[[name]] 1534s [00:52:14.530] } 1534s [00:52:14.530] if (length(args) > 0) 1534s [00:52:14.530] base::do.call(base::Sys.setenv, args = args) 1534s [00:52:14.530] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1534s [00:52:14.530] } 1534s [00:52:14.530] else { 1534s [00:52:14.530] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1534s [00:52:14.530] } 1534s [00:52:14.530] { 1534s [00:52:14.530] if (base::length(...future.futureOptionsAdded) > 1534s [00:52:14.530] 0L) { 1534s [00:52:14.530] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1534s [00:52:14.530] base::names(opts) <- ...future.futureOptionsAdded 1534s [00:52:14.530] base::options(opts) 1534s [00:52:14.530] } 1534s [00:52:14.530] { 1534s [00:52:14.530] { 1534s [00:52:14.530] NULL 1534s [00:52:14.530] RNGkind("Mersenne-Twister") 1534s [00:52:14.530] base::rm(list = ".Random.seed", envir = base::globalenv(), 1534s [00:52:14.530] inherits = FALSE) 1534s [00:52:14.530] } 1534s [00:52:14.530] options(future.plan = NULL) 1534s [00:52:14.530] if (is.na(NA_character_)) 1534s [00:52:14.530] Sys.unsetenv("R_FUTURE_PLAN") 1534s [00:52:14.530] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1534s [00:52:14.530] future::plan(list(function (..., workers = availableCores(), 1534s [00:52:14.530] lazy = FALSE, rscript_libs = .libPaths(), 1534s [00:52:14.530] envir = parent.frame()) 1534s [00:52:14.530] { 1534s [00:52:14.530] if (is.function(workers)) 1534s [00:52:14.530] workers <- workers() 1534s [00:52:14.530] workers <- structure(as.integer(workers), 1534s [00:52:14.530] class = class(workers)) 1534s [00:52:14.530] stop_if_not(length(workers) == 1, is.finite(workers), 1534s [00:52:14.530] workers >= 1) 1534s [00:52:14.530] if (workers == 1L && !inherits(workers, "AsIs")) { 1534s [00:52:14.530] return(sequential(..., lazy = TRUE, envir = envir)) 1534s [00:52:14.530] } 1534s [00:52:14.530] future <- MultisessionFuture(..., workers = workers, 1534s [00:52:14.530] lazy = lazy, rscript_libs = rscript_libs, 1534s [00:52:14.530] envir = envir) 1534s [00:52:14.530] if (!future$lazy) 1534s [00:52:14.530] future <- run(future) 1534s [00:52:14.530] invisible(future) 1534s [00:52:14.530] }), .cleanup = FALSE, .init = FALSE) 1534s [00:52:14.530] } 1534s [00:52:14.530] } 1534s [00:52:14.530] } 1534s [00:52:14.530] }) 1534s [00:52:14.530] if (TRUE) { 1534s [00:52:14.530] base::sink(type = "output", split = FALSE) 1534s [00:52:14.530] if (TRUE) { 1534s [00:52:14.530] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1534s [00:52:14.530] } 1534s [00:52:14.530] else { 1534s [00:52:14.530] ...future.result["stdout"] <- base::list(NULL) 1534s [00:52:14.530] } 1534s [00:52:14.530] base::close(...future.stdout) 1534s [00:52:14.530] ...future.stdout <- NULL 1534s [00:52:14.530] } 1534s [00:52:14.530] ...future.result$conditions <- ...future.conditions 1534s [00:52:14.530] ...future.result$finished <- base::Sys.time() 1534s [00:52:14.530] ...future.result 1534s [00:52:14.530] } 1534s [00:52:14.537] assign_globals() ... 1534s [00:52:14.537] List of 5 1534s [00:52:14.537] $ ...future.FUN :function (x, ...) 1534s [00:52:14.537] $ future.call.arguments : list() 1534s [00:52:14.537] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1534s [00:52:14.537] $ ...future.elements_ii :List of 3 1534s [00:52:14.537] ..$ logic: logi [1:4] TRUE FALSE FALSE TRUE 1534s [00:52:14.537] ..$ beta : num [1:7] 0.0498 0.1353 0.3679 1 2.7183 ... 1534s [00:52:14.537] ..$ a : int [1:10] 1 2 3 4 5 6 7 8 9 10 1534s [00:52:14.537] $ ...future.seeds_ii : NULL 1534s [00:52:14.537] $ ...future.globals.maxSize: NULL 1534s [00:52:14.537] - attr(*, "where")=List of 5 1534s [00:52:14.537] ..$ ...future.FUN : 1534s [00:52:14.537] ..$ future.call.arguments : 1534s [00:52:14.537] ..$ ...future.elements_ii : 1534s [00:52:14.537] ..$ ...future.seeds_ii : 1534s [00:52:14.537] ..$ ...future.globals.maxSize: 1534s [00:52:14.537] - attr(*, "resolved")= logi FALSE 1534s [00:52:14.537] - attr(*, "total_size")= num 1248 1534s [00:52:14.537] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1534s [00:52:14.537] - attr(*, "already-done")= logi TRUE 1534s [00:52:14.545] - copied ‘...future.FUN’ to environment 1534s [00:52:14.545] - copied ‘future.call.arguments’ to environment 1534s [00:52:14.545] - copied ‘...future.elements_ii’ to environment 1534s [00:52:14.545] - copied ‘...future.seeds_ii’ to environment 1534s [00:52:14.545] - copied ‘...future.globals.maxSize’ to environment 1534s [00:52:14.545] assign_globals() ... done 1534s [00:52:14.546] plan(): Setting new future strategy stack: 1534s [00:52:14.546] List of future strategies: 1534s [00:52:14.546] 1. sequential: 1534s [00:52:14.546] - args: function (..., envir = parent.frame()) 1534s [00:52:14.546] - tweaked: FALSE 1534s [00:52:14.546] - call: NULL 1534s [00:52:14.547] plan(): nbrOfWorkers() = 1 1534s [00:52:14.548] plan(): Setting new future strategy stack: 1534s [00:52:14.549] List of future strategies: 1534s [00:52:14.549] 1. multisession: 1534s [00:52:14.549] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1534s [00:52:14.549] - tweaked: FALSE 1534s [00:52:14.549] - call: plan(strategy) 1534s [00:52:14.553] plan(): nbrOfWorkers() = 1 1534s [00:52:14.553] SequentialFuture started (and completed) 1534s [00:52:14.554] - Launch lazy future ... done 1534s [00:52:14.591] run() for ‘SequentialFuture’ ... done 1534s [00:52:14.591] Created future: 1534s [00:52:14.592] SequentialFuture: 1534s [00:52:14.592] Label: ‘future_eapply-1’ 1534s [00:52:14.592] Expression: 1534s [00:52:14.592] { 1534s [00:52:14.592] do.call(function(...) { 1534s [00:52:14.592] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1534s [00:52:14.592] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1534s [00:52:14.592] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1534s [00:52:14.592] on.exit(options(oopts), add = TRUE) 1534s [00:52:14.592] } 1534s [00:52:14.592] { 1534s [00:52:14.592] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1534s [00:52:14.592] ...future.X_jj <- ...future.elements_ii[[jj]] 1534s [00:52:14.592] ...future.FUN(...future.X_jj, ...) 1534s [00:52:14.592] }) 1534s [00:52:14.592] } 1534s [00:52:14.592] }, args = future.call.arguments) 1534s [00:52:14.592] } 1534s [00:52:14.592] Lazy evaluation: FALSE 1534s [00:52:14.592] Asynchronous evaluation: FALSE 1534s [00:52:14.592] Local evaluation: TRUE 1534s [00:52:14.592] Environment: R_GlobalEnv 1534s [00:52:14.592] Capture standard output: TRUE 1534s [00:52:14.592] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1534s [00:52:14.592] Globals: 5 objects totaling 1.48 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 272 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1534s [00:52:14.592] Packages: 1 packages (‘stats’) 1534s [00:52:14.592] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1534s [00:52:14.592] Resolved: TRUE 1534s [00:52:14.592] Value: 1.71 KiB of class ‘list’ 1534s [00:52:14.592] Early signaling: FALSE 1534s [00:52:14.592] Owner process: a67f97e2-ffea-5be0-b95e-c580db557e5a 1534s [00:52:14.592] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1534s [00:52:14.594] Chunk #1 of 1 ... DONE 1534s [00:52:14.594] Launching 1 futures (chunks) ... DONE 1534s [00:52:14.594] Resolving 1 futures (chunks) ... 1534s [00:52:14.594] resolve() on list ... 1534s [00:52:14.595] recursive: 0 1534s [00:52:14.595] length: 1 1534s [00:52:14.595] 1534s [00:52:14.595] resolved() for ‘SequentialFuture’ ... 1534s [00:52:14.595] - state: ‘finished’ 1534s [00:52:14.596] - run: TRUE 1534s [00:52:14.596] - result: ‘FutureResult’ 1534s [00:52:14.596] resolved() for ‘SequentialFuture’ ... done 1534s [00:52:14.596] Future #1 1534s [00:52:14.597] signalConditionsASAP(SequentialFuture, pos=1) ... 1534s [00:52:14.597] - nx: 1 1534s [00:52:14.597] - relay: TRUE 1534s [00:52:14.597] - stdout: TRUE 1534s [00:52:14.597] - signal: TRUE 1534s [00:52:14.597] - resignal: FALSE 1534s [00:52:14.597] - force: TRUE 1534s [00:52:14.598] - relayed: [n=1] FALSE 1534s [00:52:14.598] - queued futures: [n=1] FALSE 1534s [00:52:14.598] - until=1 1534s [00:52:14.598] - relaying element #1 1534s [00:52:14.598] - relayed: [n=1] TRUE 1534s [00:52:14.598] - queued futures: [n=1] TRUE 1534s [00:52:14.599] signalConditionsASAP(SequentialFuture, pos=1) ... done 1534s [00:52:14.599] length: 0 (resolved future 1) 1534s [00:52:14.599] Relaying remaining futures 1534s [00:52:14.599] signalConditionsASAP(NULL, pos=0) ... 1534s [00:52:14.599] - nx: 1 1534s [00:52:14.599] - relay: TRUE 1534s [00:52:14.600] - stdout: TRUE 1534s [00:52:14.600] - signal: TRUE 1534s [00:52:14.600] - resignal: FALSE 1534s [00:52:14.600] - force: TRUE 1534s [00:52:14.600] - relayed: [n=1] TRUE 1534s [00:52:14.600] - queued futures: [n=1] TRUE 1534s - flush all 1534s [00:52:14.601] - relayed: [n=1] TRUE 1534s [00:52:14.601] - queued futures: [n=1] TRUE 1534s [00:52:14.601] signalConditionsASAP(NULL, pos=0) ... done 1534s [00:52:14.601] resolve() on list ... DONE 1534s [00:52:14.601] - Number of value chunks collected: 1 1534s [00:52:14.601] Resolving 1 futures (chunks) ... DONE 1534s [00:52:14.602] Reducing values from 1 chunks ... 1534s [00:52:14.602] - Number of values collected after concatenation: 3 1534s [00:52:14.602] - Number of values expected: 3 1534s [00:52:14.603] Reducing values from 1 chunks ... DONE 1534s [00:52:14.603] future_lapply() ... DONE 1534s [00:52:14.603] future_lapply() ... 1534s [00:52:14.607] Number of chunks: 1 1534s [00:52:14.607] getGlobalsAndPackagesXApply() ... 1534s [00:52:14.607] - future.globals: TRUE 1534s [00:52:14.608] getGlobalsAndPackages() ... 1534s [00:52:14.608] Searching for globals... 1534s [00:52:14.609] - globals found: [2] ‘FUN’, ‘UseMethod’ 1534s [00:52:14.610] Searching for globals ... DONE 1534s [00:52:14.610] Resolving globals: FALSE 1534s [00:52:14.610] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1534s [00:52:14.611] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1534s [00:52:14.611] - globals: [1] ‘FUN’ 1534s [00:52:14.611] - packages: [1] ‘stats’ 1534s [00:52:14.611] getGlobalsAndPackages() ... DONE 1534s [00:52:14.611] - globals found/used: [n=1] ‘FUN’ 1534s [00:52:14.612] - needed namespaces: [n=1] ‘stats’ 1534s [00:52:14.612] Finding globals ... DONE 1534s [00:52:14.612] - use_args: TRUE 1534s [00:52:14.612] - Getting '...' globals ... 1534s [00:52:14.612] resolve() on list ... 1534s [00:52:14.613] recursive: 0 1534s [00:52:14.613] length: 1 1534s [00:52:14.613] elements: ‘...’ 1534s [00:52:14.613] length: 0 (resolved future 1) 1534s [00:52:14.613] resolve() on list ... DONE 1534s [00:52:14.613] - '...' content: [n=0] 1534s [00:52:14.613] List of 1 1534s [00:52:14.613] $ ...: list() 1534s [00:52:14.613] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1534s [00:52:14.613] - attr(*, "where")=List of 1 1534s [00:52:14.613] ..$ ...: 1534s [00:52:14.613] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1534s [00:52:14.613] - attr(*, "resolved")= logi TRUE 1534s [00:52:14.613] - attr(*, "total_size")= num NA 1534s [00:52:14.617] - Getting '...' globals ... DONE 1534s [00:52:14.618] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1534s [00:52:14.618] List of 2 1534s [00:52:14.618] $ ...future.FUN:function (x, ...) 1534s [00:52:14.618] $ ... : list() 1534s [00:52:14.618] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1534s [00:52:14.618] - attr(*, "where")=List of 2 1534s [00:52:14.618] ..$ ...future.FUN: 1534s [00:52:14.618] ..$ ... : 1534s [00:52:14.618] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1534s [00:52:14.618] - attr(*, "resolved")= logi FALSE 1534s [00:52:14.618] - attr(*, "total_size")= num 1248 1534s [00:52:14.621] Packages to be attached in all futures: [n=1] ‘stats’ 1534s [00:52:14.621] getGlobalsAndPackagesXApply() ... DONE 1534s [00:52:14.622] Number of futures (= number of chunks): 1 1534s [00:52:14.622] Launching 1 futures (chunks) ... 1534s [00:52:14.622] Chunk #1 of 1 ... 1534s [00:52:14.622] - Finding globals in 'X' for chunk #1 ... 1534s [00:52:14.622] getGlobalsAndPackages() ... 1534s [00:52:14.622] Searching for globals... 1534s [00:52:14.623] 1534s [00:52:14.623] Searching for globals ... DONE 1534s [00:52:14.623] - globals: [0] 1534s [00:52:14.623] getGlobalsAndPackages() ... DONE 1534s [00:52:14.623] + additional globals found: [n=0] 1534s [00:52:14.623] + additional namespaces needed: [n=0] 1534s [00:52:14.623] - Finding globals in 'X' for chunk #1 ... DONE 1534s [00:52:14.624] - seeds: 1534s [00:52:14.624] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1534s [00:52:14.624] getGlobalsAndPackages() ... 1534s [00:52:14.624] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1534s [00:52:14.624] Resolving globals: FALSE 1534s [00:52:14.624] Tweak future expression to call with '...' arguments ... 1534s [00:52:14.625] { 1534s [00:52:14.625] do.call(function(...) { 1534s [00:52:14.625] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1534s [00:52:14.625] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1534s [00:52:14.625] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1534s [00:52:14.625] on.exit(options(oopts), add = TRUE) 1534s [00:52:14.625] } 1534s [00:52:14.625] { 1534s [00:52:14.625] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1534s [00:52:14.625] ...future.X_jj <- ...future.elements_ii[[jj]] 1534s [00:52:14.625] ...future.FUN(...future.X_jj, ...) 1534s [00:52:14.625] }) 1534s [00:52:14.625] } 1534s [00:52:14.625] }, args = future.call.arguments) 1534s [00:52:14.625] } 1534s [00:52:14.625] Tweak future expression to call with '...' arguments ... DONE 1534s [00:52:14.625] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1534s [00:52:14.626] - packages: [1] ‘stats’ 1534s [00:52:14.626] getGlobalsAndPackages() ... DONE 1534s [00:52:14.626] run() for ‘Future’ ... 1534s [00:52:14.626] - state: ‘created’ 1534s [00:52:14.626] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1534s [00:52:14.629] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1534s [00:52:14.630] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1534s [00:52:14.630] - Field: ‘label’ 1534s [00:52:14.630] - Field: ‘local’ 1534s [00:52:14.630] - Field: ‘owner’ 1534s [00:52:14.630] - Field: ‘envir’ 1534s [00:52:14.631] - Field: ‘packages’ 1534s [00:52:14.631] - Field: ‘gc’ 1534s [00:52:14.631] - Field: ‘conditions’ 1534s [00:52:14.631] - Field: ‘expr’ 1534s [00:52:14.631] - Field: ‘uuid’ 1534s [00:52:14.631] - Field: ‘seed’ 1534s [00:52:14.632] - Field: ‘version’ 1534s [00:52:14.632] - Field: ‘result’ 1534s [00:52:14.633] - Field: ‘asynchronous’ 1534s [00:52:14.633] - Field: ‘calls’ 1534s [00:52:14.633] - Field: ‘globals’ 1534s [00:52:14.634] - Field: ‘stdout’ 1534s [00:52:14.634] - Field: ‘earlySignal’ 1534s [00:52:14.634] - Field: ‘lazy’ 1534s [00:52:14.634] - Field: ‘state’ 1534s [00:52:14.634] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1534s [00:52:14.634] - Launch lazy future ... 1534s [00:52:14.635] Packages needed by the future expression (n = 1): ‘stats’ 1534s [00:52:14.635] Packages needed by future strategies (n = 0): 1534s [00:52:14.636] { 1534s [00:52:14.636] { 1534s [00:52:14.636] { 1534s [00:52:14.636] ...future.startTime <- base::Sys.time() 1534s [00:52:14.636] { 1534s [00:52:14.636] { 1534s [00:52:14.636] { 1534s [00:52:14.636] { 1534s [00:52:14.636] base::local({ 1534s [00:52:14.636] has_future <- base::requireNamespace("future", 1534s [00:52:14.636] quietly = TRUE) 1534s [00:52:14.636] if (has_future) { 1534s [00:52:14.636] ns <- base::getNamespace("future") 1534s [00:52:14.636] version <- ns[[".package"]][["version"]] 1534s [00:52:14.636] if (is.null(version)) 1534s [00:52:14.636] version <- utils::packageVersion("future") 1534s [00:52:14.636] } 1534s [00:52:14.636] else { 1534s [00:52:14.636] version <- NULL 1534s [00:52:14.636] } 1534s [00:52:14.636] if (!has_future || version < "1.8.0") { 1534s [00:52:14.636] info <- base::c(r_version = base::gsub("R version ", 1534s [00:52:14.636] "", base::R.version$version.string), 1534s [00:52:14.636] platform = base::sprintf("%s (%s-bit)", 1534s [00:52:14.636] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1534s [00:52:14.636] os = base::paste(base::Sys.info()[base::c("sysname", 1534s [00:52:14.636] "release", "version")], collapse = " "), 1534s [00:52:14.636] hostname = base::Sys.info()[["nodename"]]) 1534s [00:52:14.636] info <- base::sprintf("%s: %s", base::names(info), 1534s [00:52:14.636] info) 1534s [00:52:14.636] info <- base::paste(info, collapse = "; ") 1534s [00:52:14.636] if (!has_future) { 1534s [00:52:14.636] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1534s [00:52:14.636] info) 1534s [00:52:14.636] } 1534s [00:52:14.636] else { 1534s [00:52:14.636] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1534s [00:52:14.636] info, version) 1534s [00:52:14.636] } 1534s [00:52:14.636] base::stop(msg) 1534s [00:52:14.636] } 1534s [00:52:14.636] }) 1534s [00:52:14.636] } 1534s [00:52:14.636] base::local({ 1534s [00:52:14.636] for (pkg in "stats") { 1534s [00:52:14.636] base::loadNamespace(pkg) 1534s [00:52:14.636] base::library(pkg, character.only = TRUE) 1534s [00:52:14.636] } 1534s [00:52:14.636] }) 1534s [00:52:14.636] } 1534s [00:52:14.636] options(future.plan = NULL) 1534s [00:52:14.636] Sys.unsetenv("R_FUTURE_PLAN") 1534s [00:52:14.636] future::plan("default", .cleanup = FALSE, .init = FALSE) 1534s [00:52:14.636] } 1534s [00:52:14.636] ...future.workdir <- getwd() 1534s [00:52:14.636] } 1534s [00:52:14.636] ...future.oldOptions <- base::as.list(base::.Options) 1534s [00:52:14.636] ...future.oldEnvVars <- base::Sys.getenv() 1534s [00:52:14.636] } 1534s [00:52:14.636] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1534s [00:52:14.636] future.globals.maxSize = NULL, future.globals.method = NULL, 1534s [00:52:14.636] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1534s [00:52:14.636] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1534s [00:52:14.636] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1534s [00:52:14.636] future.stdout.windows.reencode = NULL, width = 80L) 1534s [00:52:14.636] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1534s [00:52:14.636] base::names(...future.oldOptions)) 1534s [00:52:14.636] } 1534s [00:52:14.636] if (FALSE) { 1534s [00:52:14.636] } 1534s [00:52:14.636] else { 1534s [00:52:14.636] if (TRUE) { 1534s [00:52:14.636] ...future.stdout <- base::rawConnection(base::raw(0L), 1534s [00:52:14.636] open = "w") 1534s [00:52:14.636] } 1534s [00:52:14.636] else { 1534s [00:52:14.636] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1534s [00:52:14.636] windows = "NUL", "/dev/null"), open = "w") 1534s [00:52:14.636] } 1534s [00:52:14.636] base::sink(...future.stdout, type = "output", split = FALSE) 1534s [00:52:14.636] base::on.exit(if (!base::is.null(...future.stdout)) { 1534s [00:52:14.636] base::sink(type = "output", split = FALSE) 1534s [00:52:14.636] base::close(...future.stdout) 1534s [00:52:14.636] }, add = TRUE) 1534s [00:52:14.636] } 1534s [00:52:14.636] ...future.frame <- base::sys.nframe() 1534s [00:52:14.636] ...future.conditions <- base::list() 1534s [00:52:14.636] ...future.rng <- base::globalenv()$.Random.seed 1534s [00:52:14.636] if (FALSE) { 1534s [00:52:14.636] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1534s [00:52:14.636] "...future.value", "...future.globalenv.names", ".Random.seed") 1534s [00:52:14.636] } 1534s [00:52:14.636] ...future.result <- base::tryCatch({ 1534s [00:52:14.636] base::withCallingHandlers({ 1534s [00:52:14.636] ...future.value <- base::withVisible(base::local({ 1534s [00:52:14.636] do.call(function(...) { 1534s [00:52:14.636] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1534s [00:52:14.636] if (!identical(...future.globals.maxSize.org, 1534s [00:52:14.636] ...future.globals.maxSize)) { 1534s [00:52:14.636] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1534s [00:52:14.636] on.exit(options(oopts), add = TRUE) 1534s [00:52:14.636] } 1534s [00:52:14.636] { 1534s [00:52:14.636] lapply(seq_along(...future.elements_ii), 1534s [00:52:14.636] FUN = function(jj) { 1534s [00:52:14.636] ...future.X_jj <- ...future.elements_ii[[jj]] 1534s [00:52:14.636] ...future.FUN(...future.X_jj, ...) 1534s [00:52:14.636] }) 1534s [00:52:14.636] } 1534s [00:52:14.636] }, args = future.call.arguments) 1534s [00:52:14.636] })) 1534s [00:52:14.636] future::FutureResult(value = ...future.value$value, 1534s [00:52:14.636] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1534s [00:52:14.636] ...future.rng), globalenv = if (FALSE) 1534s [00:52:14.636] list(added = base::setdiff(base::names(base::.GlobalEnv), 1534s [00:52:14.636] ...future.globalenv.names)) 1534s [00:52:14.636] else NULL, started = ...future.startTime, version = "1.8") 1534s [00:52:14.636] }, condition = base::local({ 1534s [00:52:14.636] c <- base::c 1534s [00:52:14.636] inherits <- base::inherits 1534s [00:52:14.636] invokeRestart <- base::invokeRestart 1534s [00:52:14.636] length <- base::length 1534s [00:52:14.636] list <- base::list 1534s [00:52:14.636] seq.int <- base::seq.int 1534s [00:52:14.636] signalCondition <- base::signalCondition 1534s [00:52:14.636] sys.calls <- base::sys.calls 1534s [00:52:14.636] `[[` <- base::`[[` 1534s [00:52:14.636] `+` <- base::`+` 1534s [00:52:14.636] `<<-` <- base::`<<-` 1534s [00:52:14.636] sysCalls <- function(calls = sys.calls(), from = 1L) { 1534s [00:52:14.636] calls[seq.int(from = from + 12L, to = length(calls) - 1534s [00:52:14.636] 3L)] 1534s [00:52:14.636] } 1534s [00:52:14.636] function(cond) { 1534s [00:52:14.636] is_error <- inherits(cond, "error") 1534s [00:52:14.636] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1534s [00:52:14.636] NULL) 1534s [00:52:14.636] if (is_error) { 1534s [00:52:14.636] sessionInformation <- function() { 1534s [00:52:14.636] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1534s [00:52:14.636] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1534s [00:52:14.636] search = base::search(), system = base::Sys.info()) 1534s [00:52:14.636] } 1534s [00:52:14.636] ...future.conditions[[length(...future.conditions) + 1534s [00:52:14.636] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1534s [00:52:14.636] cond$call), session = sessionInformation(), 1534s [00:52:14.636] timestamp = base::Sys.time(), signaled = 0L) 1534s [00:52:14.636] signalCondition(cond) 1534s [00:52:14.636] } 1534s [00:52:14.636] else if (!ignore && TRUE && inherits(cond, c("condition", 1534s [00:52:14.636] "immediateCondition"))) { 1534s [00:52:14.636] signal <- TRUE && inherits(cond, "immediateCondition") 1534s [00:52:14.636] ...future.conditions[[length(...future.conditions) + 1534s [00:52:14.636] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1534s [00:52:14.636] if (TRUE && !signal) { 1534s [00:52:14.636] muffleCondition <- function (cond, pattern = "^muffle") 1534s [00:52:14.636] { 1534s [00:52:14.636] inherits <- base::inherits 1534s [00:52:14.636] invokeRestart <- base::invokeRestart 1534s [00:52:14.636] is.null <- base::is.null 1534s [00:52:14.636] muffled <- FALSE 1534s [00:52:14.636] if (inherits(cond, "message")) { 1534s [00:52:14.636] muffled <- grepl(pattern, "muffleMessage") 1534s [00:52:14.636] if (muffled) 1534s [00:52:14.636] invokeRestart("muffleMessage") 1534s [00:52:14.636] } 1534s [00:52:14.636] else if (inherits(cond, "warning")) { 1534s [00:52:14.636] muffled <- grepl(pattern, "muffleWarning") 1534s [00:52:14.636] if (muffled) 1534s [00:52:14.636] invokeRestart("muffleWarning") 1534s [00:52:14.636] } 1534s [00:52:14.636] else if (inherits(cond, "condition")) { 1534s [00:52:14.636] if (!is.null(pattern)) { 1534s [00:52:14.636] computeRestarts <- base::computeRestarts 1534s [00:52:14.636] grepl <- base::grepl 1534s [00:52:14.636] restarts <- computeRestarts(cond) 1534s [00:52:14.636] for (restart in restarts) { 1534s [00:52:14.636] name <- restart$name 1534s [00:52:14.636] if (is.null(name)) 1534s [00:52:14.636] next 1534s [00:52:14.636] if (!grepl(pattern, name)) 1534s [00:52:14.636] next 1534s [00:52:14.636] invokeRestart(restart) 1534s [00:52:14.636] muffled <- TRUE 1534s [00:52:14.636] break 1534s [00:52:14.636] } 1534s [00:52:14.636] } 1534s [00:52:14.636] } 1534s [00:52:14.636] invisible(muffled) 1534s [00:52:14.636] } 1534s [00:52:14.636] muffleCondition(cond, pattern = "^muffle") 1534s [00:52:14.636] } 1534s [00:52:14.636] } 1534s [00:52:14.636] else { 1534s [00:52:14.636] if (TRUE) { 1534s [00:52:14.636] muffleCondition <- function (cond, pattern = "^muffle") 1534s [00:52:14.636] { 1534s [00:52:14.636] inherits <- base::inherits 1534s [00:52:14.636] invokeRestart <- base::invokeRestart 1534s [00:52:14.636] is.null <- base::is.null 1534s [00:52:14.636] muffled <- FALSE 1534s [00:52:14.636] if (inherits(cond, "message")) { 1534s [00:52:14.636] muffled <- grepl(pattern, "muffleMessage") 1534s [00:52:14.636] if (muffled) 1534s [00:52:14.636] invokeRestart("muffleMessage") 1534s [00:52:14.636] } 1534s [00:52:14.636] else if (inherits(cond, "warning")) { 1534s [00:52:14.636] muffled <- grepl(pattern, "muffleWarning") 1534s [00:52:14.636] if (muffled) 1534s [00:52:14.636] invokeRestart("muffleWarning") 1534s [00:52:14.636] } 1534s [00:52:14.636] else if (inherits(cond, "condition")) { 1534s [00:52:14.636] if (!is.null(pattern)) { 1534s [00:52:14.636] computeRestarts <- base::computeRestarts 1534s [00:52:14.636] grepl <- base::grepl 1534s [00:52:14.636] restarts <- computeRestarts(cond) 1534s [00:52:14.636] for (restart in restarts) { 1534s [00:52:14.636] name <- restart$name 1534s [00:52:14.636] if (is.null(name)) 1534s [00:52:14.636] next 1534s [00:52:14.636] if (!grepl(pattern, name)) 1534s [00:52:14.636] next 1534s [00:52:14.636] invokeRestart(restart) 1534s [00:52:14.636] muffled <- TRUE 1534s [00:52:14.636] break 1534s [00:52:14.636] } 1534s [00:52:14.636] } 1534s [00:52:14.636] } 1534s [00:52:14.636] invisible(muffled) 1534s [00:52:14.636] } 1534s [00:52:14.636] muffleCondition(cond, pattern = "^muffle") 1534s [00:52:14.636] } 1534s [00:52:14.636] } 1534s [00:52:14.636] } 1534s [00:52:14.636] })) 1534s [00:52:14.636] }, error = function(ex) { 1534s [00:52:14.636] base::structure(base::list(value = NULL, visible = NULL, 1534s [00:52:14.636] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1534s [00:52:14.636] ...future.rng), started = ...future.startTime, 1534s [00:52:14.636] finished = Sys.time(), session_uuid = NA_character_, 1534s [00:52:14.636] version = "1.8"), class = "FutureResult") 1534s [00:52:14.636] }, finally = { 1534s [00:52:14.636] if (!identical(...future.workdir, getwd())) 1534s [00:52:14.636] setwd(...future.workdir) 1534s [00:52:14.636] { 1534s [00:52:14.636] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1534s [00:52:14.636] ...future.oldOptions$nwarnings <- NULL 1534s [00:52:14.636] } 1534s [00:52:14.636] base::options(...future.oldOptions) 1534s [00:52:14.636] if (.Platform$OS.type == "windows") { 1534s [00:52:14.636] old_names <- names(...future.oldEnvVars) 1534s [00:52:14.636] envs <- base::Sys.getenv() 1534s [00:52:14.636] names <- names(envs) 1534s [00:52:14.636] common <- intersect(names, old_names) 1534s [00:52:14.636] added <- setdiff(names, old_names) 1534s [00:52:14.636] removed <- setdiff(old_names, names) 1534s [00:52:14.636] changed <- common[...future.oldEnvVars[common] != 1534s [00:52:14.636] envs[common]] 1534s [00:52:14.636] NAMES <- toupper(changed) 1534s [00:52:14.636] args <- list() 1534s [00:52:14.636] for (kk in seq_along(NAMES)) { 1534s [00:52:14.636] name <- changed[[kk]] 1534s [00:52:14.636] NAME <- NAMES[[kk]] 1534s [00:52:14.636] if (name != NAME && is.element(NAME, old_names)) 1534s [00:52:14.636] next 1534s [00:52:14.636] args[[name]] <- ...future.oldEnvVars[[name]] 1534s [00:52:14.636] } 1534s [00:52:14.636] NAMES <- toupper(added) 1534s [00:52:14.636] for (kk in seq_along(NAMES)) { 1534s [00:52:14.636] name <- added[[kk]] 1534s [00:52:14.636] NAME <- NAMES[[kk]] 1534s [00:52:14.636] if (name != NAME && is.element(NAME, old_names)) 1534s [00:52:14.636] next 1534s [00:52:14.636] args[[name]] <- "" 1534s [00:52:14.636] } 1534s [00:52:14.636] NAMES <- toupper(removed) 1534s [00:52:14.636] for (kk in seq_along(NAMES)) { 1534s [00:52:14.636] name <- removed[[kk]] 1534s [00:52:14.636] NAME <- NAMES[[kk]] 1534s [00:52:14.636] if (name != NAME && is.element(NAME, old_names)) 1534s [00:52:14.636] next 1534s [00:52:14.636] args[[name]] <- ...future.oldEnvVars[[name]] 1534s [00:52:14.636] } 1534s [00:52:14.636] if (length(args) > 0) 1534s [00:52:14.636] base::do.call(base::Sys.setenv, args = args) 1534s [00:52:14.636] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1534s [00:52:14.636] } 1534s [00:52:14.636] else { 1534s [00:52:14.636] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1534s [00:52:14.636] } 1534s [00:52:14.636] { 1534s [00:52:14.636] if (base::length(...future.futureOptionsAdded) > 1534s [00:52:14.636] 0L) { 1534s [00:52:14.636] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1534s [00:52:14.636] base::names(opts) <- ...future.futureOptionsAdded 1534s [00:52:14.636] base::options(opts) 1534s [00:52:14.636] } 1534s [00:52:14.636] { 1534s [00:52:14.636] { 1534s [00:52:14.636] NULL 1534s [00:52:14.636] RNGkind("Mersenne-Twister") 1534s [00:52:14.636] base::rm(list = ".Random.seed", envir = base::globalenv(), 1534s [00:52:14.636] inherits = FALSE) 1534s [00:52:14.636] } 1534s [00:52:14.636] options(future.plan = NULL) 1534s [00:52:14.636] if (is.na(NA_character_)) 1534s [00:52:14.636] Sys.unsetenv("R_FUTURE_PLAN") 1534s [00:52:14.636] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1534s [00:52:14.636] future::plan(list(function (..., workers = availableCores(), 1534s [00:52:14.636] lazy = FALSE, rscript_libs = .libPaths(), 1534s [00:52:14.636] envir = parent.frame()) 1534s [00:52:14.636] { 1534s [00:52:14.636] if (is.function(workers)) 1534s [00:52:14.636] workers <- workers() 1534s [00:52:14.636] workers <- structure(as.integer(workers), 1534s [00:52:14.636] class = class(workers)) 1534s [00:52:14.636] stop_if_not(length(workers) == 1, is.finite(workers), 1534s [00:52:14.636] workers >= 1) 1534s [00:52:14.636] if (workers == 1L && !inherits(workers, "AsIs")) { 1534s [00:52:14.636] return(sequential(..., lazy = TRUE, envir = envir)) 1534s [00:52:14.636] } 1534s [00:52:14.636] future <- MultisessionFuture(..., workers = workers, 1534s [00:52:14.636] lazy = lazy, rscript_libs = rscript_libs, 1534s [00:52:14.636] envir = envir) 1534s [00:52:14.636] if (!future$lazy) 1534s [00:52:14.636] future <- run(future) 1534s [00:52:14.636] invisible(future) 1534s [00:52:14.636] }), .cleanup = FALSE, .init = FALSE) 1534s [00:52:14.636] } 1534s [00:52:14.636] } 1534s [00:52:14.636] } 1534s [00:52:14.636] }) 1534s [00:52:14.636] if (TRUE) { 1534s [00:52:14.636] base::sink(type = "output", split = FALSE) 1534s [00:52:14.636] if (TRUE) { 1534s [00:52:14.636] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1534s [00:52:14.636] } 1534s [00:52:14.636] else { 1534s [00:52:14.636] ...future.result["stdout"] <- base::list(NULL) 1534s [00:52:14.636] } 1534s [00:52:14.636] base::close(...future.stdout) 1534s [00:52:14.636] ...future.stdout <- NULL 1534s [00:52:14.636] } 1534s [00:52:14.636] ...future.result$conditions <- ...future.conditions 1534s [00:52:14.636] ...future.result$finished <- base::Sys.time() 1534s [00:52:14.636] ...future.result 1534s [00:52:14.636] } 1534s [00:52:14.643] assign_globals() ... 1534s [00:52:14.643] List of 5 1534s [00:52:14.643] $ ...future.FUN :function (x, ...) 1534s [00:52:14.643] $ future.call.arguments : list() 1534s [00:52:14.643] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1534s [00:52:14.643] $ ...future.elements_ii :List of 3 1534s [00:52:14.643] ..$ logic: logi [1:4] TRUE FALSE FALSE TRUE 1534s [00:52:14.643] ..$ beta : num [1:7] 0.0498 0.1353 0.3679 1 2.7183 ... 1534s [00:52:14.643] ..$ a : int [1:10] 1 2 3 4 5 6 7 8 9 10 1534s [00:52:14.643] $ ...future.seeds_ii : NULL 1534s [00:52:14.643] $ ...future.globals.maxSize: NULL 1534s [00:52:14.643] - attr(*, "where")=List of 5 1534s [00:52:14.643] ..$ ...future.FUN : 1534s [00:52:14.643] ..$ future.call.arguments : 1534s [00:52:14.643] ..$ ...future.elements_ii : 1534s [00:52:14.643] ..$ ...future.seeds_ii : 1534s [00:52:14.643] ..$ ...future.globals.maxSize: 1534s [00:52:14.643] - attr(*, "resolved")= logi FALSE 1534s [00:52:14.643] - attr(*, "total_size")= num 1248 1534s [00:52:14.643] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1534s [00:52:14.643] - attr(*, "already-done")= logi TRUE 1534s [00:52:14.651] - copied ‘...future.FUN’ to environment 1534s [00:52:14.651] - copied ‘future.call.arguments’ to environment 1534s [00:52:14.651] - copied ‘...future.elements_ii’ to environment 1534s [00:52:14.651] - copied ‘...future.seeds_ii’ to environment 1534s [00:52:14.651] - copied ‘...future.globals.maxSize’ to environment 1534s [00:52:14.652] assign_globals() ... done 1534s [00:52:14.652] plan(): Setting new future strategy stack: 1534s [00:52:14.652] List of future strategies: 1534s [00:52:14.652] 1. sequential: 1534s [00:52:14.652] - args: function (..., envir = parent.frame()) 1534s [00:52:14.652] - tweaked: FALSE 1534s [00:52:14.652] - call: NULL 1534s [00:52:14.653] plan(): nbrOfWorkers() = 1 1534s [00:52:14.654] plan(): Setting new future strategy stack: 1534s [00:52:14.654] List of future strategies: 1534s [00:52:14.654] 1. multisession: 1534s [00:52:14.654] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1534s [00:52:14.654] - tweaked: FALSE 1534s [00:52:14.654] - call: plan(strategy) 1534s [00:52:14.658] plan(): nbrOfWorkers() = 1 1534s [00:52:14.658] SequentialFuture started (and completed) 1534s [00:52:14.659] - Launch lazy future ... done 1534s [00:52:14.659] run() for ‘SequentialFuture’ ... done 1534s [00:52:14.659] Created future: 1534s [00:52:14.659] SequentialFuture: 1534s [00:52:14.659] Label: ‘future_eapply-1’ 1534s [00:52:14.659] Expression: 1534s [00:52:14.659] { 1534s [00:52:14.659] do.call(function(...) { 1534s [00:52:14.659] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1534s [00:52:14.659] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1534s [00:52:14.659] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1534s [00:52:14.659] on.exit(options(oopts), add = TRUE) 1534s [00:52:14.659] } 1534s [00:52:14.659] { 1534s [00:52:14.659] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1534s [00:52:14.659] ...future.X_jj <- ...future.elements_ii[[jj]] 1534s [00:52:14.659] ...future.FUN(...future.X_jj, ...) 1534s [00:52:14.659] }) 1534s [00:52:14.659] } 1534s [00:52:14.659] }, args = future.call.arguments) 1534s [00:52:14.659] } 1534s [00:52:14.659] Lazy evaluation: FALSE 1534s [00:52:14.659] Asynchronous evaluation: FALSE 1534s [00:52:14.659] Local evaluation: TRUE 1534s [00:52:14.659] Environment: R_GlobalEnv 1534s [00:52:14.659] Capture standard output: TRUE 1534s [00:52:14.659] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1534s [00:52:14.659] Globals: 5 objects totaling 1.48 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 272 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1534s [00:52:14.659] Packages: 1 packages (‘stats’) 1534s [00:52:14.659] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1534s [00:52:14.659] Resolved: TRUE 1534s [00:52:14.659] Value: 1.71 KiB of class ‘list’ 1534s [00:52:14.659] Early signaling: FALSE 1534s [00:52:14.659] Owner process: a67f97e2-ffea-5be0-b95e-c580db557e5a 1534s [00:52:14.659] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1534s [00:52:14.661] Chunk #1 of 1 ... DONE 1534s [00:52:14.662] Launching 1 futures (chunks) ... DONE 1534s [00:52:14.662] Resolving 1 futures (chunks) ... 1534s [00:52:14.662] resolve() on list ... 1534s [00:52:14.662] recursive: 0 1534s [00:52:14.662] length: 1 1534s [00:52:14.662] 1534s [00:52:14.663] resolved() for ‘SequentialFuture’ ... 1534s [00:52:14.663] - state: ‘finished’ 1534s [00:52:14.663] - run: TRUE 1534s [00:52:14.664] - result: ‘FutureResult’ 1534s [00:52:14.664] resolved() for ‘SequentialFuture’ ... done 1534s [00:52:14.664] Future #1 1534s [00:52:14.664] signalConditionsASAP(SequentialFuture, pos=1) ... 1534s [00:52:14.664] - nx: 1 1534s [00:52:14.665] - relay: TRUE 1534s [00:52:14.665] - stdout: TRUE 1534s [00:52:14.665] - signal: TRUE 1534s [00:52:14.665] - resignal: FALSE 1534s [00:52:14.665] - force: TRUE 1534s [00:52:14.665] - relayed: [n=1] FALSE 1534s [00:52:14.666] - queued futures: [n=1] FALSE 1534s [00:52:14.666] - until=1 1534s [00:52:14.666] - relaying element #1 1534s [00:52:14.666] - relayed: [n=1] TRUE 1534s [00:52:14.666] - queued futures: [n=1] TRUE 1534s [00:52:14.667] signalConditionsASAP(SequentialFuture, pos=1) ... done 1534s [00:52:14.667] length: 0 (resolved future 1) 1534s [00:52:14.667] Relaying remaining futures 1534s [00:52:14.667] signalConditionsASAP(NULL, pos=0) ... 1534s [00:52:14.667] - nx: 1 1534s [00:52:14.667] - relay: TRUE 1534s [00:52:14.667] - stdout: TRUE 1534s [00:52:14.668] - signal: TRUE 1534s [00:52:14.668] - resignal: FALSE 1534s [00:52:14.668] - force: TRUE 1534s [00:52:14.668] - relayed: [n=1] TRUE 1534s [00:52:14.668] - queued futures: [n=1] TRUE 1534s - flush all 1534s [00:52:14.668] - relayed: [n=1] TRUE 1534s [00:52:14.668] - queued futures: [n=1] TRUE 1534s [00:52:14.669] signalConditionsASAP(NULL, pos=0) ... done 1534s [00:52:14.669] resolve() on list ... DONE 1534s [00:52:14.669] - Number of value chunks collected: 1 1534s [00:52:14.669] Resolving 1 futures (chunks) ... DONE 1534s [00:52:14.669] Reducing values from 1 chunks ... 1534s [00:52:14.670] - Number of values collected after concatenation: 3 1534s [00:52:14.670] - Number of values expected: 3 1534s [00:52:14.670] Reducing values from 1 chunks ... DONE 1534s [00:52:14.670] future_lapply() ... DONE 1534s [00:52:14.670] plan(): Setting new future strategy stack: 1534s [00:52:14.671] List of future strategies: 1534s [00:52:14.671] 1. sequential: 1534s [00:52:14.671] - args: function (..., envir = parent.frame()) 1534s [00:52:14.671] - tweaked: FALSE 1534s [00:52:14.671] - call: plan(sequential) 1534s [00:52:14.671] plan(): nbrOfWorkers() = 1 1534s *** strategy = ‘multisession’ ... done 1534s *** future_eapply() ... DONE 1534s > 1534s > message("*** future_eapply() ... DONE") 1534s > 1534s > source("incl/end.R") 1534s [00:52:14.672] plan(): Setting new future strategy stack: 1534s [00:52:14.672] List of future strategies: 1534s [00:52:14.672] 1. FutureStrategy: 1534s [00:52:14.672] - args: function (..., envir = parent.frame()) 1534s [00:52:14.672] - tweaked: FALSE 1534s [00:52:14.672] - call: future::plan(oplan) 1534s [00:52:14.673] plan(): nbrOfWorkers() = 1 1534s > 1534s BEGIN TEST future_lapply,RNG.R 1534s 1534s R version 4.3.3 (2024-02-29) -- "Angel Food Cake" 1534s Copyright (C) 2024 The R Foundation for Statistical Computing 1534s Platform: s390x-ibm-linux-gnu (64-bit) 1534s 1534s R is free software and comes with ABSOLUTELY NO WARRANTY. 1534s You are welcome to redistribute it under certain conditions. 1534s Type 'license()' or 'licence()' for distribution details. 1534s 1534s R is a collaborative project with many contributors. 1534s Type 'contributors()' for more information and 1534s 'citation()' on how to cite R or R packages in publications. 1534s 1534s Type 'demo()' for some demos, 'help()' for on-line help, or 1534s 'help.start()' for an HTML browser interface to help. 1534s Type 'q()' to quit R. 1534s 1534s > source("incl/start.R") 1534s Loading required package: future 1535s [00:52:15.037] plan(): Setting new future strategy stack: 1535s [00:52:15.037] List of future strategies: 1535s [00:52:15.037] 1. sequential: 1535s [00:52:15.037] - args: function (..., envir = parent.frame()) 1535s [00:52:15.037] - tweaked: FALSE 1535s [00:52:15.037] - call: future::plan("sequential") 1535s [00:52:15.065] plan(): nbrOfWorkers() = 1 1535s > 1535s > message("*** future_lapply() and RNGs ...") 1535s > 1535s > options(future.debug = FALSE) 1535s > 1535s > message("* future_lapply(x, ..., future.seed = ) ...") 1535s > 1535s > res <- tryCatch({ 1535s + y <- future_lapply(1:3, FUN = identity, future.seed = as.list(1:2)) 1535s + }, error = identity) 1535s *** future_lapply() and RNGs ... 1535s * future_lapply(x, ..., future.seed = ) ... 1535s > print(res) 1535s 1535s > stopifnot(inherits(res, "simpleError")) 1535s > 1535s > res <- tryCatch({ 1535s + y <- future_lapply(1:3, FUN = identity, future.seed = list(1, 2, 3:4)) 1535s + }, error = identity) 1535s > print(res) 1535s 1535s > stopifnot(inherits(res, "simpleError")) 1535s > 1535s > res <- tryCatch({ 1535s + y <- future_lapply(1:3, FUN = identity, future.seed = as.list(1:3)) 1535s + }, error = identity) 1535s > print(res) 1535s 1535s > stopifnot(inherits(res, "simpleError")) 1535s > 1535s > seeds <- lapply(1:3, FUN = as_lecyer_cmrg_seed) 1535s > res <- tryCatch({ 1535s + y <- future_lapply(1:3, FUN = identity, future.seed = lapply(seeds, FUN = as.numeric)) 1535s + }, error = identity) 1535s > print(res) 1535s 1535s > stopifnot(inherits(res, "simpleError")) 1535s > 1535s > seeds[[1]][1] <- seeds[[1]][1] + 1L 1535s > res <- tryCatch({ 1535s + y <- future_lapply(1:3, FUN = identity, future.seed = seeds) 1535s + }, error = identity) 1535s > print(res) 1535s 1535s > stopifnot(inherits(res, "simpleError")) 1535s > 1535s > message("* future_lapply(x, ..., future.seed = ) ... DONE") 1535s * future_lapply(x, ..., future.seed = ) ... DONE 1535s > 1535s > 1535s > ## Iterate of the same set in all tests 1535s > x <- 1:5 1535s > 1535s > message("* future_lapply(x, ..., future.seed = FALSE) ...") 1535s > 1535s > y0 <- y0_nested <- seed00 <- NULL 1535s > for (cores in 1:availCores) { 1535s * future_lapply(x, ..., future.seed = FALSE) ... 1535s + message(sprintf(" - Testing with %d cores ...", cores)) 1535s + options(mc.cores = cores) 1535s + 1535s + for (strategy in supportedStrategies(cores)) { 1535s + message(sprintf("* plan('%s') ...", strategy)) 1535s + plan(strategy) 1535s + 1535s + set.seed(0xBEEF) 1535s + seed0 <- get_random_seed() 1535s + y <- future_lapply(x, FUN = function(i) i, future.seed = FALSE) 1535s + y <- unlist(y) 1535s + seed <- get_random_seed() 1535s + if (is.null(y0)) { 1535s + y0 <- y 1535s + seed00 <- seed 1535s + } 1535s + str(list(y = y)) 1535s + stopifnot(identical(seed, seed0), identical(seed, seed00)) 1535s + ## NOTE: We cannot guarantee the same random numbers, because 1535s + ## future.seed = FALSE. 1535s + 1535s + message(sprintf("* plan('%s') ... DONE", strategy)) 1535s + } ## for (strategy ...) 1535s + message(sprintf(" - Testing with %d cores ... DONE", cores)) 1535s + } ## for (core ...) 1535s - Testing with 1 cores ... 1535s * plan('sequential') ... 1535s List of 1 1535s $ y: int [1:5] 1 2 3 4 5 1535s * plan('sequential') ... DONE 1535s * plan('multicore') ... 1535s List of 1 1535s $ y: int [1:5] 1 2 3 4 5 1535s * plan('multicore') ... DONE 1535s * plan('multisession') ... 1535s List of 1 1535s $ y: int [1:5] 1 2 3 4 5 1535s * plan('multisession') ... DONE 1535s - Testing with 1 cores ... DONE 1535s > 1535s > message("* future_lapply(x, ..., future.seed = FALSE) ... DONE") 1535s * future_lapply(x, ..., future.seed = FALSE) ... DONE 1535s > 1535s > 1535s > seed_sets <- list( 1535s + A = TRUE, 1535s + ## B = NA, 1535s + C = 42L, 1535s + D = as_lecyer_cmrg_seed(42L), 1535s + E = list(), 1535s + F = vector("list", length = length(x)), 1535s + G = NULL 1535s + ) 1535s > 1535s > ## Generate sequence of seeds of the current RNGkind() 1535s > ## NOTE: This is NOT a good way to generate random seeds!!! 1535s > seeds <- lapply(seq_along(x), FUN = function(i) { 1535s + set.seed(i) 1535s + globalenv()$.Random.seed 1535s + }) 1535s > seed_sets$E <- seeds 1535s > 1535s > ## Generate sequence of L'Ecyer CMRG seeds 1535s > seeds <- seed_sets$F 1535s > seeds[[1]] <- seed_sets$D 1535s > for (kk in 2:length(x)) seeds[[kk]] <- parallel::nextRNGStream(seeds[[kk - 1]]) 1535s > seed_sets$F <- seeds 1535s > seed_sets$G <- seed_sets$A 1535s > 1535s > rm(list = "seeds") 1535s > 1535s > for (name in names(seed_sets)) { 1535s + future.seed <- seed_sets[[name]] 1535s + 1535s + if (is.list(future.seed)) { 1535s + label <- sprintf("", 1535s + length(future.seed), length(future.seed[[1]])) 1535s + } else { 1535s + label <- hpaste(future.seed) 1535s + } 1535s + message(sprintf("* future_lapply(x, ..., future.seed = %s) ...", label)) 1535s + 1535s + set.seed(0xBEEF) 1535s + y0 <- seed00 <- NULL 1535s + 1535s + for (cores in 1:availCores) { 1535s + message(sprintf(" - Testing with %d cores ...", cores)) 1535s + options(mc.cores = cores) 1535s + 1535s + for (strategy in supportedStrategies(cores)) { 1535s + message(sprintf("* plan('%s') ...", strategy)) 1535s + plan(strategy) 1535s + 1535s + set.seed(0xBEEF) 1535s + seed0 <- get_random_seed() 1535s + y <- future_lapply(x, FUN = function(i) { 1535s + rnorm(1L) 1535s + }, future.seed = future.seed) 1535s + y <- unlist(y) 1535s + seed <- get_random_seed() 1535s + if (is.null(y0)) { 1535s + y0 <- y 1535s + seed00 <- seed 1535s + } 1535s + str(list(y = y)) 1535s + stopifnot(!identical(seed, seed0), identical(seed, seed00), 1535s + identical(y, y0)) 1535s + 1535s + ## RNG-based results should also be identical regardless of 1535s + ## load-balance scheduling. 1535s + for (scheduling in list(FALSE, TRUE, 0, 0.5, 2.0, Inf)) { 1535s + set.seed(0xBEEF) 1535s + seed0 <- get_random_seed() 1535s + y <- future_lapply(x, FUN = function(i) { 1535s + rnorm(1L) 1535s + }, future.seed = future.seed, future.scheduling = scheduling) 1535s + seed <- get_random_seed() 1535s + y <- unlist(y) 1535s + str(list(y = y)) 1535s + stopifnot(!identical(seed, seed0), identical(seed, seed00), 1535s + identical(y, y0)) 1535s + } 1535s + 1535s + ## Nested future_lapply():s 1535s + for (scheduling in list(FALSE, TRUE)) { 1535s + y <- future_lapply(x, FUN = function(i) { 1535s + .seed <- globalenv()$.Random.seed 1535s + 1535s + z <- future_lapply(1:3, FUN = function(j) { 1535s + list(j = j, seed = globalenv()$.Random.seed) 1535s + }, future.seed = .seed) 1535s + 1535s + ## Assert that all future seeds are unique 1535s + seeds <- lapply(z, FUN = function(x) x$seed) 1535s + for (kk in 2:length(seeds)) stopifnot(!all(seeds[[kk]] == seeds[[1]])) 1535s + 1535s + list(i = i, seed = .seed, sample = rnorm(1L), z = z) 1535s + }, future.seed = 42L, future.scheduling = scheduling) 1535s + 1535s + if (is.null(y0_nested)) y0_nested <- y 1535s + str(list(y = y)) 1535s + 1535s + ## Assert that all future seeds (also nested ones) are unique 1535s + seeds <- Reduce(c, lapply(y, FUN = function(x) { 1535s + c(list(seed = x$seed), lapply(x$z, FUN = function(x) x$seed)) 1535s + })) 1535s + for (kk in 2:length(seeds)) stopifnot(!all(seeds[[kk]] == seeds[[1]])) 1535s + 1535s + stopifnot(identical(y, y0_nested)) 1535s + } 1535s + 1535s + message(sprintf("* plan('%s') ... DONE", strategy)) 1535s + } ## for (strategy ...) 1535s + message(sprintf(" - Testing with %d cores ... DONE", cores)) 1535s + } ## for (cores ...) 1535s + 1535s + message(sprintf("* future_lapply(x, ..., future.seed = %s) ... DONE", label)) 1535s + 1535s + } ## for (name ...) 1535s * future_lapply(x, ..., future.seed = TRUE) ... 1535s - Testing with 1 cores ... 1535s * plan('sequential') ... 1535s List of 1 1535s $ y: num [1:5] 0.682 1.19 -1.081 1.143 -1.293 1535s List of 1 1535s $ y: num [1:5] 0.682 1.19 -1.081 1.143 -1.293 1535s List of 1 1535s $ y: num [1:5] 0.682 1.19 -1.081 1.143 -1.293 1535s List of 1 1535s $ y: num [1:5] 0.682 1.19 -1.081 1.143 -1.293 1535s List of 1 1535s $ y: num [1:5] 0.682 1.19 -1.081 1.143 -1.293 1535s List of 1 1535s $ y: num [1:5] 0.682 1.19 -1.081 1.143 -1.293 1535s List of 1 1535s $ y: num [1:5] 0.682 1.19 -1.081 1.143 -1.293 1535s List of 1 1535s $ y:List of 5 1535s ..$ :List of 4 1535s .. ..$ i : int 1 1535s .. ..$ seed : int [1:7] 10407 -1871565002 1968597656 -505666782 1055078269 658163990 1090264187 1535s .. ..$ sample: num -1.73 1535s .. ..$ z :List of 3 1535s .. .. ..$ :List of 2 1535s .. .. .. ..$ j : int 1 1535s .. .. .. ..$ seed: int [1:7] 10407 -122323274 442418215 -314150398 -1994370242 -1572376734 -1226578877 1535s .. .. ..$ :List of 2 1535s .. .. .. ..$ j : int 2 1535s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1535s .. .. ..$ :List of 2 1535s .. .. .. ..$ j : int 3 1535s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1535s ..$ :List of 4 1535s .. ..$ i : int 2 1535s .. ..$ seed : int [1:7] 10407 -503482957 -863217979 -980579484 -1807161053 -1917089476 -126101442 1535s .. ..$ sample: num -0.613 1535s .. ..$ z :List of 3 1535s .. .. ..$ :List of 2 1535s .. .. .. ..$ j : int 1 1535s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1535s .. .. ..$ :List of 2 1535s .. .. .. ..$ j : int 2 1535s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1535s .. .. ..$ :List of 2 1535s .. .. .. ..$ j : int 3 1535s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1535s ..$ :List of 4 1535s .. ..$ i : int 3 1535s .. ..$ seed : int [1:7] 10407 -1416887823 -1951372948 -290339832 1953140740 518544831 1295962379 1535s .. ..$ sample: num -1.3 1535s .. ..$ z :List of 3 1535s .. .. ..$ :List of 2 1535s .. .. .. ..$ j : int 1 1535s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1535s .. .. ..$ :List of 2 1535s .. .. .. ..$ j : int 2 1535s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1535s .. .. ..$ :List of 2 1535s .. .. .. ..$ j : int 3 1535s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1535s ..$ :List of 4 1535s .. ..$ i : int 4 1535s .. ..$ seed : int [1:7] 10407 -1895924057 1338330203 1337745945 -1864062382 -246625186 85998543 1535s .. ..$ sample: num 1.62 1535s .. ..$ z :List of 3 1535s .. .. ..$ :List of 2 1535s .. .. .. ..$ j : int 1 1535s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1535s .. .. ..$ :List of 2 1535s .. .. .. ..$ j : int 2 1535s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1535s .. .. ..$ :List of 2 1535s .. .. .. ..$ j : int 3 1535s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1535s ..$ :List of 4 1535s .. ..$ i : int 5 1535s .. ..$ seed : int [1:7] 10407 159795861 -1341632454 -672147384 -2118510370 -486654842 1639834115 1535s .. ..$ sample: num 0.684 1535s .. ..$ z :List of 3 1535s .. .. ..$ :List of 2 1535s .. .. .. ..$ j : int 1 1535s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1535s .. .. ..$ :List of 2 1535s .. .. .. ..$ j : int 2 1535s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1535s .. .. ..$ :List of 2 1535s .. .. .. ..$ j : int 3 1535s .. .. .. ..$ seed: int [1:7] 10407 1128582173 1654094174 -1602611927 417070242 159418060 622348586 1535s List of 1 1535s $ y:List of 5 1535s ..$ :List of 4 1535s .. ..$ i : int 1 1535s .. ..$ seed : int [1:7] 10407 -1871565002 1968597656 -505666782 1055078269 658163990 1090264187 1535s .. ..$ sample: num -1.73 1535s .. ..$ z :List of 3 1535s .. .. ..$ :List of 2 1535s .. .. .. ..$ j : int 1 1535s .. .. .. ..$ seed: int [1:7] 10407 -122323274 442418215 -314150398 -1994370242 -1572376734 -1226578877 1535s .. .. ..$ :List of 2 1535s .. .. .. ..$ j : int 2 1535s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1535s .. .. ..$ :List of 2 1535s .. .. .. ..$ j : int 3 1535s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1535s ..$ :List of 4 1535s .. ..$ i : int 2 1535s .. ..$ seed : int [1:7] 10407 -503482957 -863217979 -980579484 -1807161053 -1917089476 -126101442 1535s .. ..$ sample: num -0.613 1535s .. ..$ z :List of 3 1535s .. .. ..$ :List of 2 1535s .. .. .. ..$ j : int 1 1535s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1535s .. .. ..$ :List of 2 1535s .. .. .. ..$ j : int 2 1535s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1535s .. .. ..$ :List of 2 1535s .. .. .. ..$ j : int 3 1535s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1535s ..$ :List of 4 1535s .. ..$ i : int 3 1535s .. ..$ seed : int [1:7] 10407 -1416887823 -1951372948 -290339832 1953140740 518544831 1295962379 1535s .. ..$ sample: num -1.3 1535s .. ..$ z :List of 3 1535s .. .. ..$ :List of 2 1535s .. .. .. ..$ j : int 1 1535s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1535s .. .. ..$ :List of 2 1535s .. .. .. ..$ j : int 2 1535s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1535s .. .. ..$ :List of 2 1535s .. .. .. ..$ j : int 3 1535s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1535s ..$ :List of 4 1535s .. ..$ i : int 4 1535s .. ..$ seed : int [1:7] 10407 -1895924057 1338330203 1337745945 -1864062382 -246625186 85998543 1535s .. ..$ sample: num 1.62 1535s .. ..$ z :List of 3 1535s .. .. ..$ :List of 2 1535s .. .. .. ..$ j : int 1 1535s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1535s .. .. ..$ :List of 2 1535s .. .. .. ..$ j : int 2 1535s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1535s .. .. ..$ :List of 2 1535s .. .. .. ..$ j : int 3 1535s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1535s ..$ :List of 4 1535s .. ..$ i : int 5 1535s .. ..$ seed : int [1:7] 10407 159795861 -1341632454 -672147384 -2118510370 -486654842 1639834115 1535s .. ..$ sample: num 0.684 1535s .. ..$ z :List of 3 1535s .. .. ..$ :List of 2 1535s .. .. .. ..$ j : int 1 1535s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1535s .. .. ..$ :List of 2 1535s .. .. .. ..$ j : int 2 1535s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1535s .. .. ..$ :List of 2 1535s .. .. .. ..$ j : int 3 1535s .. .. .. ..$ seed: int [1:7] 10407 1128582173 1654094174 -1602611927 417070242 159418060 622348586 1535s * plan('sequential') ... DONE 1535s * plan('multicore') ... 1535s List of 1 1535s $ y: num [1:5] 0.682 1.19 -1.081 1.143 -1.293 1535s List of 1 1535s $ y: num [1:5] 0.682 1.19 -1.081 1.143 -1.293 1535s List of 1 1535s $ y: num [1:5] 0.682 1.19 -1.081 1.143 -1.293 1535s List of 1 1535s $ y: num [1:5] 0.682 1.19 -1.081 1.143 -1.293 1535s List of 1 1535s $ y: num [1:5] 0.682 1.19 -1.081 1.143 -1.293 1535s List of 1 1535s $ y: num [1:5] 0.682 1.19 -1.081 1.143 -1.293 1536s List of 1 1536s $ y: num [1:5] 0.682 1.19 -1.081 1.143 -1.293 1536s List of 1 1536s $ y:List of 5 1536s ..$ :List of 4 1536s .. ..$ i : int 1 1536s .. ..$ seed : int [1:7] 10407 -1871565002 1968597656 -505666782 1055078269 658163990 1090264187 1536s .. ..$ sample: num -1.73 1536s .. ..$ z :List of 3 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 1 1536s .. .. .. ..$ seed: int [1:7] 10407 -122323274 442418215 -314150398 -1994370242 -1572376734 -1226578877 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 2 1536s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 3 1536s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1536s ..$ :List of 4 1536s .. ..$ i : int 2 1536s .. ..$ seed : int [1:7] 10407 -503482957 -863217979 -980579484 -1807161053 -1917089476 -126101442 1536s .. ..$ sample: num -0.613 1536s .. ..$ z :List of 3 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 1 1536s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 2 1536s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 3 1536s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1536s ..$ :List of 4 1536s .. ..$ i : int 3 1536s .. ..$ seed : int [1:7] 10407 -1416887823 -1951372948 -290339832 1953140740 518544831 1295962379 1536s .. ..$ sample: num -1.3 1536s .. ..$ z :List of 3 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 1 1536s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 2 1536s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 3 1536s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1536s ..$ :List of 4 1536s .. ..$ i : int 4 1536s .. ..$ seed : int [1:7] 10407 -1895924057 1338330203 1337745945 -1864062382 -246625186 85998543 1536s .. ..$ sample: num 1.62 1536s .. ..$ z :List of 3 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 1 1536s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 2 1536s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 3 1536s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1536s ..$ :List of 4 1536s .. ..$ i : int 5 1536s .. ..$ seed : int [1:7] 10407 159795861 -1341632454 -672147384 -2118510370 -486654842 1639834115 1536s .. ..$ sample: num 0.684 1536s .. ..$ z :List of 3 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 1 1536s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 2 1536s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 3 1536s .. .. .. ..$ seed: int [1:7] 10407 1128582173 1654094174 -1602611927 417070242 159418060 622348586 1536s List of 1 1536s $ y:List of 5 1536s ..$ :List of 4 1536s .. ..$ i : int 1 1536s .. ..$ seed : int [1:7] 10407 -1871565002 1968597656 -505666782 1055078269 658163990 1090264187 1536s .. ..$ sample: num -1.73 1536s .. ..$ z :List of 3 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 1 1536s .. .. .. ..$ seed: int [1:7] 10407 -122323274 442418215 -314150398 -1994370242 -1572376734 -1226578877 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 2 1536s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 3 1536s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1536s ..$ :List of 4 1536s .. ..$ i : int 2 1536s .. ..$ seed : int [1:7] 10407 -503482957 -863217979 -980579484 -1807161053 -1917089476 -126101442 1536s .. ..$ sample: num -0.613 1536s .. ..$ z :List of 3 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 1 1536s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 2 1536s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 3 1536s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1536s ..$ :List of 4 1536s .. ..$ i : int 3 1536s .. ..$ seed : int [1:7] 10407 -1416887823 -1951372948 -290339832 1953140740 518544831 1295962379 1536s .. ..$ sample: num -1.3 1536s .. ..$ z :List of 3 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 1 1536s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 2 1536s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 3 1536s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1536s ..$ :List of 4 1536s .. ..$ i : int 4 1536s .. ..$ seed : int [1:7] 10407 -1895924057 1338330203 1337745945 -1864062382 -246625186 85998543 1536s .. ..$ sample: num 1.62 1536s .. ..$ z :List of 3 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 1 1536s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 2 1536s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 3 1536s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1536s ..$ :* plan('multicore') ... DONE 1536s * plan('multisession') ... 1536s List of 4 1536s .. ..$ i : int 5 1536s .. ..$ seed : int [1:7] 10407 159795861 -1341632454 -672147384 -2118510370 -486654842 1639834115 1536s .. ..$ sample: num 0.684 1536s .. ..$ z :List of 3 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 1 1536s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 2 1536s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 3 1536s .. .. .. ..$ seed: int [1:7] 10407 1128582173 1654094174 -1602611927 417070242 159418060 622348586 1536s List of 1 1536s $ y: num [1:5] 0.682 1.19 -1.081 1.143 -1.293 1536s List of 1 1536s $ y: num [1:5] 0.682 1.19 -1.081 1.143 -1.293 1536s List of 1 1536s $ y: num [1:5] 0.682 1.19 -1.081 1.143 -1.293 1536s List of 1 1536s $ y: num [1:5] 0.682 1.19 -1.081 1.143 -1.293 1536s List of 1 1536s $ y: num [1:5] 0.682 1.19 -1.081 1.143 -1.293 1536s List of 1 1536s $ y: num [1:5] 0.682 1.19 -1.081 1.143 -1.293 1536s List of 1 1536s $ y: num [1:5] 0.682 1.19 -1.081 1.143 -1.293 1536s List of 1 1536s $ y:List of 5 1536s ..$ :List of 4 1536s .. ..$ i : int 1 1536s .. ..$ seed : int [1:7] 10407 -1871565002 1968597656 -505666782 1055078269 658163990 1090264187 1536s .. ..$ sample: num -1.73 1536s .. ..$ z :List of 3 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 1 1536s .. .. .. ..$ seed: int [1:7] 10407 -122323274 442418215 -314150398 -1994370242 -1572376734 -1226578877 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 2 1536s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 3 1536s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1536s ..$ :List of 4 1536s .. ..$ i : int 2 1536s .. ..$ seed : int [1:7] 10407 -503482957 -863217979 -980579484 -1807161053 -1917089476 -126101442 1536s .. ..$ sample: num -0.613 1536s .. ..$ z :List of 3 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 1 1536s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 2 1536s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 3 1536s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1536s ..$ :List of 4 1536s .. ..$ i : int 3 1536s .. ..$ seed : int [1:7] 10407 -1416887823 -1951372948 -290339832 1953140740 518544831 1295962379 1536s .. ..$ sample: num -1.3 1536s .. ..$ z :List of 3 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 1 1536s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 2 1536s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 3 1536s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1536s ..$ :List of 4 1536s .. ..$ i : int 4 1536s .. ..$ seed : int [1:7] 10407 -1895924057 1338330203 1337745945 -1864062382 -246625186 85998543 1536s .. ..$ sample: num 1.62 1536s .. ..$ z :List of 3 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 1 1536s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 2 1536s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 3 1536s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1536s ..$ :List of 4 1536s .. ..$ i : int 5 1536s .. ..$ seed : int [1:7] 10407 159795861 -1341632454 -672147384 -2118510370 -486654842 1639834115 1536s .. ..$ sample: num 0.684 1536s .. ..$ z :List of 3 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 1 1536s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 2 1536s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 3 1536s .. .. .. ..$ seed: int [1:7] 10407 1128582173 1654094174 -1602611927 417070242 159418060 622348586 1536s List of 1 1536s $ y:List of 5 1536s ..$ :List of 4 1536s .. ..$ i : int 1 1536s .. ..$ seed : int [1:7] 10407 -1871565002 1968597656 -505666782 1055078269 658163990 1090264187 1536s .. ..$ sample: num -1.73 1536s .. ..$ z :List of 3 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 1 1536s .. .. .. ..$ seed: int [1:7] 10407 -122323274 442418215 -314150398 -1994370242 -1572376734 -1226578877 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 2 1536s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 3 1536s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1536s ..$ :List of 4 1536s .. ..$ i : int 2 1536s .. ..$ seed : int [1:7] 10407 -503482957 -863217979 -980579484 -1807161053 -1917089476 -126101442 1536s .. ..$ sample: num -0.613 1536s .. ..$ z :List of 3 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 1 1536s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 2 1536s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 3 1536s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1536s ..$ :List of 4 1536s .. ..$ i : int 3 1536s .. ..$ seed : int [1:7] 10407 -1416887823 -1951372948 -290339832 1953140740 518544831 1295962379 1536s .. ..$ sample: num -1.3 1536s .. ..$ z :List of 3 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 1 1536s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 2 1536s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 3 1536s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1536s ..$ :List of 4 1536s .. ..$ i : int 4 1536s .. ..$ seed : int [1:7] 10407 -1895924057 1338330203 1337745945 -1864062382 -246625186 85998543 1536s .. ..$ sample: num 1.62 1536s .. ..$ z :List of 3 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 1 1536s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 2 1536s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 3 1536s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1536s ..$ :List of 4 1536s .. ..$ i : int 5 1536s .. ..$ seed : int [1:7] 10407 159795861 -1341632454 -672147384 -2118510370 -486654842 1639834115 1536s .. ..$ sample: num 0.684 1536s .. ..$ z :List of 3 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 1 1536s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 2 1536s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1536s .. .. ..$ :List of 2 1536s .. .. .. ..$ j : int 3 1536s .. .. .. ..$ seed: int [1:7] 10407 1128582173 1654094174 -1602611927 417070242 159418060 622348586 1536s * plan('multisession') ... DONE 1536s - Testing with 1 cores ... DONE 1536s * future_lapply(x, ..., future.seed = TRUE) ... DONE 1536s * future_lapply(x, ..., future.seed = 42) ... 1536s - Testing with 1 cores ... 1536s * plan('sequential') ... 1536s List of 1 1536s $ y: num [1:5] -0.0265 2.5456 -2.1074 0.5898 0.4167 1536s List of 1 1536s $ y: num [1:5] -0.0265 2.5456 -2.1074 0.5898 0.4167 1536s List of 1 1536s $ y: num [1:5] -0.0265 2.5456 -2.1074 0.5898 0.4167 1536s List of 1 1536s $ y: num [1:5] -0.0265 2.5456 -2.1074 0.5898 0.4167 1536s List of 1 1536s $ y: num [1:5] -0.0265 2.5456 -2.1074 0.5898 0.4167 1536s List of 1 1536s $ y: num [1:5] -0.0265 2.5456 -2.1074 0.5898 0.4167 1536s List of 1 1536s $ y: num [1:5] -0.0265 2.5456 -2.1074 0.5898 0.4167 1537s List of 1 1537s $ y:List of 5 1537s ..$ :List of 4 1537s .. ..$ i : int 1 1537s .. ..$ seed : int [1:7] 10407 -1871565002 1968597656 -505666782 1055078269 658163990 1090264187 1537s .. ..$ sample: num -1.73 1537s .. ..$ z :List of 3 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 1 1537s .. .. .. ..$ seed: int [1:7] 10407 -122323274 442418215 -314150398 -1994370242 -1572376734 -1226578877 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 2 1537s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 3 1537s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1537s ..$ :List of 4 1537s .. ..$ i : int 2 1537s .. ..$ seed : int [1:7] 10407 -503482957 -863217979 -980579484 -1807161053 -1917089476 -126101442 1537s .. ..$ sample: num -0.613 1537s .. ..$ z :List of 3 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 1 1537s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 2 1537s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 3 1537s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1537s ..$ :List of 4 1537s .. ..$ i : int 3 1537s .. ..$ seed : int [1:7] 10407 -1416887823 -1951372948 -290339832 1953140740 518544831 1295962379 1537s .. ..$ sample: num -1.3 1537s .. ..$ z :List of 3 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 1 1537s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 2 1537s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 3 1537s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1537s ..$ :List of 4 1537s .. ..$ i : int 4 1537s .. ..$ seed : int [1:7] 10407 -1895924057 1338330203 1337745945 -1864062382 -246625186 85998543 1537s .. ..$ sample: num 1.62 1537s .. ..$ z :List of 3 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 1 1537s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 2 1537s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 3 1537s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1537s ..$ :List of 4 1537s .. ..$ i : int 5 1537s .. ..$ seed : int [1:7] 10407 159795861 -1341632454 -672147384 -2118510370 -486654842 1639834115 1537s .. ..$ sample: num 0.684 1537s .. ..$ z :List of 3 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 1 1537s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 2 1537s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 3 1537s .. .. .. ..$ seed: int [1:7] 10407 1128582173 1654094174 -1602611927 417070242 159418060 622348586 1537s List of 1 1537s $ y:List of 5 1537s ..$ :List of 4 1537s .. ..$ i : int 1 1537s .. ..$ seed : int [1:7] 10407 -1871565002 1968597656 -505666782 1055078269 658163990 1090264187 1537s .. ..$ sample: num -1.73 1537s .. ..$ z :List of 3 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 1 1537s .. .. .. ..$ seed: int [1:7] 10407 -122323274 442418215 -314150398 -1994370242 -1572376734 -1226578877 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 2 1537s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 3 1537s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1537s ..$ :List of 4 1537s .. ..$ i : int 2 1537s .. ..$ seed : int [1:7] 10407 -503482957 -863217979 -980579484 -1807161053 -1917089476 -126101442 1537s .. ..$ sample: num -0.613 1537s .. ..$ z :List of 3 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 1 1537s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 2 1537s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 3 1537s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1537s ..$ :List of 4 1537s .. ..$ i : int 3 1537s .. ..$ seed : int [1:7] 10407 -1416887823 -1951372948 -290339832 1953140740 518544831 1295962379 1537s .. ..$ sample: num -1.3 1537s .. ..$ z :List of 3 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 1 1537s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 2 1537s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 3 1537s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1537s ..$ :List of 4 1537s .. ..$ i : int 4 1537s .. ..$ seed : int [1:7] 10407 -1895924057 1338330203 1337745945 -1864062382 -246625186 85998543 1537s .. ..$ sample: num 1.62 1537s .. ..$ z :List of 3 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 1 1537s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 2 1537s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 3 1537s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1537s ..$ :List of 4 1537s .. ..$ i : int 5 1537s .. ..$ seed : int [1:7] 10407 159795861 -1341632454 -672147384 -2118510370 -486654842 1639834115 1537s .. ..$ sample: num 0.684 1537s .. ..$ z :List of 3 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 1 1537s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 2 1537s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 3 1537s .. .. .. ..$ seed: int [1:7] 10407 1128582173 1654094174 -1602611927 417070242 159418060 622348586 1537s * plan('sequential') ... DONE 1537s * plan('multicore') ... 1537s List of 1 1537s $ y: num [1:5] -0.0265 2.5456 -2.1074 0.5898 0.4167 1537s List of 1 1537s $ y: num [1:5] -0.0265 2.5456 -2.1074 0.5898 0.4167 1537s List of 1 1537s $ y: num [1:5] -0.0265 2.5456 -2.1074 0.5898 0.4167 1537s List of 1 1537s $ y: num [1:5] -0.0265 2.5456 -2.1074 0.5898 0.4167 1537s List of 1 1537s $ y: num [1:5] -0.0265 2.5456 -2.1074 0.5898 0.4167 1537s List of 1 1537s $ y: num [1:5] -0.0265 2.5456 -2.1074 0.5898 0.4167 1537s List of 1 1537s $ y: num [1:5] -0.0265 2.5456 -2.1074 0.5898 0.4167 1537s List of 1 1537s $ y:List of 5 1537s ..$ :List of 4 1537s .. ..$ i : int 1 1537s .. ..$ seed : int [1:7] 10407 -1871565002 1968597656 -505666782 1055078269 658163990 1090264187 1537s .. ..$ sample: num -1.73 1537s .. ..$ z :List of 3 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 1 1537s .. .. .. ..$ seed: int [1:7] 10407 -122323274 442418215 -314150398 -1994370242 -1572376734 -1226578877 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 2 1537s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 3 1537s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1537s ..$ :List of 4 1537s .. ..$ i : int 2 1537s .. ..$ seed : int [1:7] 10407 -503482957 -863217979 -980579484 -1807161053 -1917089476 -126101442 1537s .. ..$ sample: num -0.613 1537s .. ..$ z :List of 3 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 1 1537s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 2 1537s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 3 1537s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1537s ..$ :List of 4 1537s .. ..$ i : int 3 1537s .. ..$ seed : int [1:7] 10407 -1416887823 -1951372948 -290339832 1953140740 518544831 1295962379 1537s .. ..$ sample: num -1.3 1537s .. ..$ z :List of 3 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 1 1537s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 2 1537s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 3 1537s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1537s ..$ :List of 4 1537s .. ..$ i : int 4 1537s .. ..$ seed : int [1:7] 10407 -1895924057 1338330203 1337745945 -1864062382 -246625186 85998543 1537s .. ..$ sample: num 1.62 1537s .. ..$ z :List of 3 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 1 1537s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 2 1537s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 3 1537s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1537s ..$ :List of 4 1537s .. ..$ i : int 5 1537s .. ..$ seed : int [1:7] 10407 159795861 -1341632454 -672147384 -2118510370 -486654842 1639834115 1537s .. ..$ sample: num 0.684 1537s .. ..$ z :List of 3 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 1 1537s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 2 1537s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 3 1537s .. .. .. ..$ seed: int [1:7] 10407 1128582173 1654094174 -1602611927 417070242 159418060 622348586 1537s List of 1 1537s $ y:List of 5 1537s ..$ :List of 4 1537s .. ..$ i : int 1 1537s .. ..$ seed : int [1:7] 10407 -1871565002 1968597656 -505666782 1055078269 658163990 1090264187 1537s .. ..$ sample: num -1.73 1537s .. ..$ z :List of 3 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 1 1537s .. .. .. ..$ seed: int [1:7] 10407 -122323274 442418215 -314150398 -1994370242 -1572376734 -1226578877 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 2 1537s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 3 1537s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1537s ..$ :List of 4 1537s .. ..$ i : int 2 1537s .. ..$ seed : int [1:7] 10407 -503482957 -863217979 -980579484 -1807161053 -1917089476 -126101442 1537s .. ..$ sample: num -0.613 1537s .. ..$ z :List of 3 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 1 1537s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 2 1537s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 3 1537s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1537s ..$ :List of 4 1537s .. ..$ i : int 3 1537s .. ..$ seed : int [1:7] 10407 -1416887823 -1951372948 -290339832 1953140740 518544831 1295962379 1537s .. ..$ sample: num -1.3 1537s .. ..$ z :List of 3 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 1 1537s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 2 1537s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 3 1537s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1537s ..$ :List of 4 1537s .. ..$ i : int 4 1537s .. ..$ seed : int [1:7] 10407 -1895924057 1338330203 1337745945 -1864062382 -246625186 85998543 1537s .. ..$ sample: num 1.62 1537s .. ..$ z :List of 3 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 1 1537s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 2 1537s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 3 1537s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1537s ..$ :List of 4 1537s .. ..$ i : int 5 1537s .. ..$ seed : int [1:7] 10407 159795861 -1341632454 -672147384 -2118510370 -486654842 1639834115 1537s .. ..$ sample: num 0.684 1537s .. ..$ z :List of 3 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 1 1537s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 2 1537s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1537s .. .. ..$ :List of 2 1537s .. .. .. ..$ j : int 3 1537s .. .. .. ..$ seed: int [1:7] 10407 1128582173 1654094174 -1602611927 417070242 159418060 622348586 1537s * plan('multicore') ... DONE 1537s * plan('multisession') ... 1537s List of 1 1537s $ y: num [1:5] -0.0265 2.5456 -2.1074 0.5898 0.4167 1537s List of 1 1537s $ y: num [1:5] -0.0265 2.5456 -2.1074 0.5898 0.4167 1537s List of 1 1537s $ y: num [1:5] -0.0265 2.5456 -2.1074 0.5898 0.4167 1537s List of 1 1537s $ y: num [1:5] -0.0265 2.5456 -2.1074 0.5898 0.4167 1537s List of 1 1538s $ y: num [1:5] -0.0265 2.5456 -2.1074 0.5898 0.4167 1538s List of 1 1538s $ y: num [1:5] -0.0265 2.5456 -2.1074 0.5898 0.4167 1538s List of 1 1538s $ y: num [1:5] -0.0265 2.5456 -2.1074 0.5898 0.4167 1538s List of 1 1538s $ y:List of 5 1538s ..$ :List of 4 1538s .. ..$ i : int 1 1538s .. ..$ seed : int [1:7] 10407 -1871565002 1968597656 -505666782 1055078269 658163990 1090264187 1538s .. ..$ sample: num -1.73 1538s .. ..$ z :List of 3 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 1 1538s .. .. .. ..$ seed: int [1:7] 10407 -122323274 442418215 -314150398 -1994370242 -1572376734 -1226578877 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 2 1538s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 3 1538s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1538s ..$ :List of 4 1538s .. ..$ i : int 2 1538s .. ..$ seed : int [1:7] 10407 -503482957 -863217979 -980579484 -1807161053 -1917089476 -126101442 1538s .. ..$ sample: num -0.613 1538s .. ..$ z :List of 3 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 1 1538s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 2 1538s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 3 1538s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1538s ..$ :List of 4 1538s .. ..$ i : int 3 1538s .. ..$ seed : int [1:7] 10407 -1416887823 -1951372948 -290339832 1953140740 518544831 1295962379 1538s .. ..$ sample: num -1.3 1538s .. ..$ z :List of 3 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 1 1538s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 2 1538s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 3 1538s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1538s ..$ :List of 4 1538s .. ..$ i : int 4 1538s .. ..$ seed : int [1:7] 10407 -1895924057 1338330203 1337745945 -1864062382 -246625186 85998543 1538s .. ..$ sample: num 1.62 1538s .. ..$ z :List of 3 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 1 1538s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 2 1538s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 3 1538s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1538s ..$ :List of 4 1538s .. ..$ i : int 5 1538s .. ..$ seed : int [1:7] 10407 159795861 -1341632454 -672147384 -2118510370 -486654842 1639834115 1538s .. ..$ sample: num 0.684 1538s .. ..$ z :List of 3 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 1 1538s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 2 1538s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 3 1538s .. .. .. ..$ seed: int [1:7] 10407 1128582173 1654094174 -1602611927 417070242 159418060 622348586 1538s List of 1 1538s $ y:List of 5 1538s ..$ :List of 4 1538s .. ..$ i : int 1 1538s .. ..$ seed : int [1:7] 10407 -1871565002 1968597656 -505666782 1055078269 658163990 1090264187 1538s .. ..$ sample: num -1.73 1538s .. ..$ z :List of 3 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 1 1538s .. .. .. ..$ seed: int [1:7] 10407 -122323274 442418215 -314150398 -1994370242 -1572376734 -1226578877 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 2 1538s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 3 1538s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1538s ..$ :List of 4 1538s .. ..$ i : int 2 1538s .. ..$ seed : int [1:7] 10407 -503482957 -863217979 -980579484 -1807161053 -1917089476 -126101442 1538s .. ..$ sample: num -0.613 1538s .. ..$ z :List of 3 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 1 1538s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 2 1538s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 3 1538s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1538s ..$ :List of 4 1538s .. ..$ i : int 3 1538s .. ..$ seed : int [1:7] 10407 -1416887823 -1951372948 -290339832 1953140740 518544831 1295962379 1538s .. ..$ sample: num -1.3 1538s .. ..$ z :List of 3 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 1 1538s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 2 1538s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 3 1538s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1538s ..$ :List of 4 1538s .. ..$ i : int 4 1538s .. ..$ seed : int [1:7] 10407 -1895924057 1338330203 1337745945 -1864062382 -246625186 85998543 1538s .. ..$ sample: num 1.62 1538s .. ..$ z :List of 3 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 1 1538s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 2 1538s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 3 1538s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1538s ..$ :List of 4 1538s .. ..$ i : int 5 1538s .. ..$ seed : int [1:7] 10407 159795861 -1341632454 -672147384 -2118510370 -486654842 1639834115 1538s .. ..$ sample: num 0.684 1538s .. ..$ z :List of * plan('multisession') ... DONE 1538s 3 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 1 1538s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 2 1538s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 3 1538s .. .. .. ..$ seed: int [1:7] 10407 1128582173 1654094174 -1602611927 417070242 159418060 622348586 1538s - Testing with 1 cores ... DONE 1538s * future_lapply(x, ..., future.seed = 42) ... DONE 1538s * future_lapply(x, ..., future.seed = 10407, -2133391687, 507561766, 1260545903, 1362917092, -1772566379, -1344458670) ... 1538s - Testing with 1 cores ... 1538s * plan('sequential') ... 1538s List of 1 1538s $ y: num [1:5] -0.0265 2.5456 -2.1074 0.5898 0.4167 1538s List of 1 1538s $ y: num [1:5] -0.0265 2.5456 -2.1074 0.5898 0.4167 1538s List of 1 1538s $ y: num [1:5] -0.0265 2.5456 -2.1074 0.5898 0.4167 1538s List of 1 1538s $ y: num [1:5] -0.0265 2.5456 -2.1074 0.5898 0.4167 1538s List of 1 1538s $ y: num [1:5] -0.0265 2.5456 -2.1074 0.5898 0.4167 1538s List of 1 1538s $ y: num [1:5] -0.0265 2.5456 -2.1074 0.5898 0.4167 1538s List of 1 1538s $ y: num [1:5] -0.0265 2.5456 -2.1074 0.5898 0.4167 1538s List of 1 1538s $ y:List of 5 1538s ..$ :List of 4 1538s .. ..$ i : int 1 1538s .. ..$ seed : int [1:7] 10407 -1871565002 1968597656 -505666782 1055078269 658163990 1090264187 1538s .. ..$ sample: num -1.73 1538s .. ..$ z :List of 3 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 1 1538s .. .. .. ..$ seed: int [1:7] 10407 -122323274 442418215 -314150398 -1994370242 -1572376734 -1226578877 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 2 1538s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 3 1538s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1538s ..$ :List of 4 1538s .. ..$ i : int 2 1538s .. ..$ seed : int [1:7] 10407 -503482957 -863217979 -980579484 -1807161053 -1917089476 -126101442 1538s .. ..$ sample: num -0.613 1538s .. ..$ z :List of 3 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 1 1538s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 2 1538s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 3 1538s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1538s ..$ :List of 4 1538s .. ..$ i : int 3 1538s .. ..$ seed : int [1:7] 10407 -1416887823 -1951372948 -290339832 1953140740 518544831 1295962379 1538s .. ..$ sample: num -1.3 1538s .. ..$ z :List of 3 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 1 1538s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 2 1538s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 3 1538s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1538s ..$ :List of 4 1538s .. ..$ i : int 4 1538s .. ..$ seed : int [1:7] 10407 -1895924057 1338330203 1337745945 -1864062382 -246625186 85998543 1538s .. ..$ sample: num 1.62 1538s .. ..$ z :List of 3 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 1 1538s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 2 1538s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 3 1538s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1538s ..$ :List of 4 1538s .. ..$ i : int 5 1538s .. ..$ seed : int [1:7] 10407 159795861 -1341632454 -672147384 -2118510370 -486654842 1639834115 1538s .. ..$ sample: num 0.684 1538s .. ..$ z :List of 3 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 1 1538s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 2 1538s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 3 1538s .. .. .. ..$ seed: int [1:7] 10407 1128582173 1654094174 -1602611927 417070242 159418060 622348586 1538s List of 1 1538s $ y:List of 5 1538s ..$ :List of 4 1538s .. ..$ i : int 1 1538s .. ..$ seed : int [1:7] 10407 -1871565002 1968597656 -505666782 1055078269 658163990 1090264187 1538s .. ..$ sample: num -1.73 1538s .. ..$ z :List of 3 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 1 1538s .. .. .. ..$ seed: int [1:7] 10407 -122323274 442418215 -314150398 -1994370242 -1572376734 -1226578877 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 2 1538s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 3 1538s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1538s ..$ :List of 4 1538s .. ..$ i : int 2 1538s .. ..$ seed : int [1:7] 10407 -503482957 -863217979 -980579484 -1807161053 -1917089476 -126101442 1538s .. ..$ sample: num -0.613 1538s .. ..$ z :List of 3 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 1 1538s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 2 1538s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 3 1538s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1538s ..$ :List of 4 1538s .. ..$ i : int 3 1538s .. ..$ seed : int [1:7] 10407 -1416887823 -1951372948 -290339832 1953140740 518544831 1295962379 1538s .. ..$ sample: num -1.3 1538s .. ..$ z :List of 3 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 1 1538s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 2 1538s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 3 1538s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1538s ..$ :List of 4 1538s .. ..$ i : int 4 1538s .. ..$ seed : int [1:7] 10407 -1895924057 1338330203 1337745945 -1864062382 -246625186 85998543 1538s .. ..$ sample: num 1.62 1538s .. ..$ z :List of 3 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 1 1538s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 2 1538s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 3 1538s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1538s ..$ :List of * plan('sequential') ... DONE 1538s * plan('multicore') ... 1538s 4 1538s .. ..$ i : int 5 1538s .. ..$ seed : int [1:7] 10407 159795861 -1341632454 -672147384 -2118510370 -486654842 1639834115 1538s .. ..$ sample: num 0.684 1538s .. ..$ z :List of 3 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 1 1538s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 2 1538s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 3 1538s .. .. .. ..$ seed: int [1:7] 10407 1128582173 1654094174 -1602611927 417070242 159418060 622348586 1538s List of 1 1538s $ y: num [1:5] -0.0265 2.5456 -2.1074 0.5898 0.4167 1538s List of 1 1538s $ y: num [1:5] -0.0265 2.5456 -2.1074 0.5898 0.4167 1538s List of 1 1538s $ y: num [1:5] -0.0265 2.5456 -2.1074 0.5898 0.4167 1538s List of 1 1538s $ y: num [1:5] -0.0265 2.5456 -2.1074 0.5898 0.4167 1538s List of 1 1538s $ y: num [1:5] -0.0265 2.5456 -2.1074 0.5898 0.4167 1538s List of 1 1538s $ y: num [1:5] -0.0265 2.5456 -2.1074 0.5898 0.4167 1538s List of 1 1538s $ y: num [1:5] -0.0265 2.5456 -2.1074 0.5898 0.4167 1538s List of 1 1538s $ y:List of 5 1538s ..$ :List of 4 1538s .. ..$ i : int 1 1538s .. ..$ seed : int [1:7] 10407 -1871565002 1968597656 -505666782 1055078269 658163990 1090264187 1538s .. ..$ sample: num -1.73 1538s .. ..$ z :List of 3 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 1 1538s .. .. .. ..$ seed: int [1:7] 10407 -122323274 442418215 -314150398 -1994370242 -1572376734 -1226578877 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 2 1538s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 3 1538s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1538s ..$ :List of 4 1538s .. ..$ i : int 2 1538s .. ..$ seed : int [1:7] 10407 -503482957 -863217979 -980579484 -1807161053 -1917089476 -126101442 1538s .. ..$ sample: num -0.613 1538s .. ..$ z :List of 3 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 1 1538s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 2 1538s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 3 1538s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1538s ..$ :List of 4 1538s .. ..$ i : int 3 1538s .. ..$ seed : int [1:7] 10407 -1416887823 -1951372948 -290339832 1953140740 518544831 1295962379 1538s .. ..$ sample: num -1.3 1538s .. ..$ z :List of 3 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 1 1538s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 2 1538s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 3 1538s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1538s ..$ :List of 4 1538s .. ..$ i : int 4 1538s .. ..$ seed : int [1:7] 10407 -1895924057 1338330203 1337745945 -1864062382 -246625186 85998543 1538s .. ..$ sample: num 1.62 1538s .. ..$ z :List of 3 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 1 1538s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 2 1538s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 3 1538s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1538s ..$ :List of 4 1538s .. ..$ i : int 5 1538s .. ..$ seed : int [1:7] 10407 159795861 -1341632454 -672147384 -2118510370 -486654842 1639834115 1538s .. ..$ sample: num 0.684 1538s .. ..$ z :List of 3 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 1 1538s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 2 1538s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1538s .. .. ..$ :List of 2 1538s .. .. .. ..$ j : int 3 1538s .. .. .. ..$ seed: int [1:7] 10407 1128582173 1654094174 -1602611927 417070242 159418060 622348586 1539s List of 1 1539s $ y:List of 5 1539s ..$ :List of 4 1539s .. ..$ i : int 1 1539s .. ..$ seed : int [1:7] 10407 -1871565002 1968597656 -505666782 1055078269 658163990 1090264187 1539s .. ..$ sample: num -1.73 1539s .. ..$ z :List of 3 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 1 1539s .. .. .. ..$ seed: int [1:7] 10407 -122323274 442418215 -314150398 -1994370242 -1572376734 -1226578877 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 2 1539s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 3 1539s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1539s ..$ :List of 4 1539s .. ..$ i : int 2 1539s .. ..$ seed : int [1:7] 10407 -503482957 -863217979 -980579484 -1807161053 -1917089476 -126101442 1539s .. ..$ sample: num -0.613 1539s .. ..$ z :List of 3 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 1 1539s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 2 1539s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 3 1539s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1539s ..$ :List of 4 1539s .. ..$ i : int 3 1539s .. ..$ seed : int [1:7] 10407 -1416887823 -1951372948 -290339832 1953140740 518544831 1295962379 1539s .. ..$ sample: num -1.3 1539s .. ..$ z :List of 3 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 1 1539s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 2 1539s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 3 1539s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1539s ..$ :List of 4 1539s .. ..$ i : int 4 1539s .. ..$ seed : int [1:7] 10407 -1895924057 1338330203 1337745945 -1864062382 -246625186 85998543 1539s .. ..$ sample: num 1.62 1539s .. ..$ z :List of 3 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 1 1539s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 2 1539s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 3 1539s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1539s ..$ :List of 4 1539s .. ..$ i : int 5 1539s .. ..$ seed : int [1:7] 10407 159795861 -1341632454 -672147384 -2118510370 -486654842 1639834115 1539s .. ..$ sample: num 0.684 1539s .. ..$ z :List of 3 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 1 1539s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 2 1539s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 3 1539s .. .. .. ..$ seed: int [1:7] 10407 1128582173 1654094174 -1602611927 417070242 159418060 622348586 1539s * plan('multicore') ... DONE 1539s * plan('multisession') ... 1539s List of 1 1539s $ y: num [1:5] -0.0265 2.5456 -2.1074 0.5898 0.4167 1539s List of 1 1539s $ y: num [1:5] -0.0265 2.5456 -2.1074 0.5898 0.4167 1539s List of 1 1539s $ y: num [1:5] -0.0265 2.5456 -2.1074 0.5898 0.4167 1539s List of 1 1539s $ y: num [1:5] -0.0265 2.5456 -2.1074 0.5898 0.4167 1539s List of 1 1539s $ y: num [1:5] -0.0265 2.5456 -2.1074 0.5898 0.4167 1539s List of 1 1539s $ y: num [1:5] -0.0265 2.5456 -2.1074 0.5898 0.4167 1539s List of 1 1539s $ y: num [1:5] -0.0265 2.5456 -2.1074 0.5898 0.4167 1539s List of 1 1539s $ y:List of 5 1539s ..$ :List of 4 1539s .. ..$ i : int 1 1539s .. ..$ seed : int [1:7] 10407 -1871565002 1968597656 -505666782 1055078269 658163990 1090264187 1539s .. ..$ sample: num -1.73 1539s .. ..$ z :List of 3 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 1 1539s .. .. .. ..$ seed: int [1:7] 10407 -122323274 442418215 -314150398 -1994370242 -1572376734 -1226578877 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 2 1539s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 3 1539s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1539s ..$ :List of 4 1539s .. ..$ i : int 2 1539s .. ..$ seed : int [1:7] 10407 -503482957 -863217979 -980579484 -1807161053 -1917089476 -126101442 1539s .. ..$ sample: num -0.613 1539s .. ..$ z :List of 3 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 1 1539s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 2 1539s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 3 1539s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1539s ..$ :List of 4 1539s .. ..$ i : int 3 1539s .. ..$ seed : int [1:7] 10407 -1416887823 -1951372948 -290339832 1953140740 518544831 1295962379 1539s .. ..$ sample: num -1.3 1539s .. ..$ z :List of 3 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 1 1539s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 2 1539s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 3 1539s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1539s ..$ :List of 4 1539s .. ..$ i : int 4 1539s .. ..$ seed : int [1:7] 10407 -1895924057 1338330203 1337745945 -1864062382 -246625186 85998543 1539s .. ..$ sample: num 1.62 1539s .. ..$ z :List of 3 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 1 1539s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 2 1539s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 3 1539s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1539s ..$ :List of 4 1539s .. ..$ i : int 5 1539s .. ..$ seed : int [1:7] 10407 159795861 -1341632454 -672147384 -2118510370 -486654842 1639834115 1539s .. ..$ sample: num 0.684 1539s .. ..$ z :List of 3 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 1 1539s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 2 1539s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 3 1539s .. .. .. ..$ seed: int [1:7] 10407 1128582173 1654094174 -1602611927 417070242 159418060 622348586 1539s List of 1 1539s $ y:List of 5 1539s ..$ :List of 4 1539s .. ..$ i : int 1 1539s .. ..$ seed : int [1:7] 10407 -1871565002 1968597656 -505666782 1055078269 658163990 1090264187 1539s .. ..$ sample: num -1.73 1539s .. ..$ z :List of 3 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 1 1539s .. .. .. ..$ seed: int [1:7] 10407 -122323274 442418215 -314150398 -1994370242 -1572376734 -1226578877 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 2 1539s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 3 1539s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1539s ..$ :List of 4 1539s .. ..$ i : int 2 1539s .. ..$ seed : int [1:7] 10407 -503482957 -863217979 -980579484 -1807161053 -1917089476 -126101442 1539s .. ..$ sample: num -0.613 1539s .. ..$ z :List of 3 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 1 1539s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 2 1539s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 3 1539s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1539s ..$ :List of 4 1539s .. ..$ i : int 3 1539s .. ..$ seed : int [1:7] 10407 -1416887823 -1951372948 -290339832 1953140740 518544831 1295962379 1539s .. ..$ sample: num -1.3 1539s .. ..$ z :List of 3 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 1 1539s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 2 1539s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 3 1539s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1539s ..$ :List of 4 1539s .. ..$ i : int 4 1539s .. ..$ seed : int [1:7] 10407 -1895924057 1338330203 1337745945 -1864062382 -246625186 85998543 1539s .. ..$ sample: num 1.62 1539s .. ..$ z :List of 3 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 1 1539s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 2 1539s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 3 1539s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1539s ..$ :List of 4 1539s .. ..$ i : int 5 1539s .. ..$ seed : int [1:7] 10407 159795861 -1341632454 -672147384 -2118510370 -486654842 1639834115 1539s .. ..$ sample: num 0.684 1539s .. ..$ z :List of 3 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 1 1539s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 2 1539s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 3 1539s .. .. .. ..$ seed:* plan('multisession') ... DONE 1539s - Testing with 1 cores ... DONE 1539s * future_lapply(x, ..., future.seed = 10407, -2133391687, 507561766, 1260545903, 1362917092, -1772566379, -1344458670) ... DONE 1539s * future_lapply(x, ..., future.seed = ) ... 1539s - Testing with 1 cores ... 1539s int [1:7] 10407 1128582173 1654094174 -1602611927 417070242 159418060 622348586 1539s * plan('sequential') ... 1539s List of 1 1539s $ y: num [1:5] 0.461 -1.243 -0.297 1.18 -0.385 1539s List of 1 1539s $ y: num [1:5] 0.461 -1.243 -0.297 1.18 -0.385 1539s List of 1 1539s $ y: num [1:5] 0.461 -1.243 -0.297 1.18 -0.385 1539s List of 1 1539s $ y: num [1:5] 0.461 -1.243 -0.297 1.18 -0.385 1539s List of 1 1539s $ y: num [1:5] 0.461 -1.243 -0.297 1.18 -0.385 1539s List of 1 1539s $ y: num [1:5] 0.461 -1.243 -0.297 1.18 -0.385 1539s List of 1 1539s $ y: num [1:5] 0.461 -1.243 -0.297 1.18 -0.385 1539s List of 1 1539s $ y:List of 5 1539s ..$ :List of 4 1539s .. ..$ i : int 1 1539s .. ..$ seed : int [1:7] 10407 -1871565002 1968597656 -505666782 1055078269 658163990 1090264187 1539s .. ..$ sample: num -1.73 1539s .. ..$ z :List of 3 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 1 1539s .. .. .. ..$ seed: int [1:7] 10407 -122323274 442418215 -314150398 -1994370242 -1572376734 -1226578877 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 2 1539s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 3 1539s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1539s ..$ :List of 4 1539s .. ..$ i : int 2 1539s .. ..$ seed : int [1:7] 10407 -503482957 -863217979 -980579484 -1807161053 -1917089476 -126101442 1539s .. ..$ sample: num -0.613 1539s .. ..$ z :List of 3 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 1 1539s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 2 1539s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 3 1539s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1539s ..$ :List of 4 1539s .. ..$ i : int 3 1539s .. ..$ seed : int [1:7] 10407 -1416887823 -1951372948 -290339832 1953140740 518544831 1295962379 1539s .. ..$ sample: num -1.3 1539s .. ..$ z :List of 3 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 1 1539s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 2 1539s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 3 1539s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1539s ..$ :List of 4 1539s .. ..$ i : int 4 1539s .. ..$ seed : int [1:7] 10407 -1895924057 1338330203 1337745945 -1864062382 -246625186 85998543 1539s .. ..$ sample: num 1.62 1539s .. ..$ z :List of 3 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 1 1539s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 2 1539s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 3 1539s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1539s ..$ :List of 4 1539s .. ..$ i : int 5 1539s .. ..$ seed : int [1:7] 10407 159795861 -1341632454 -672147384 -2118510370 -486654842 1639834115 1539s .. ..$ sample: num 0.684 1539s .. ..$ z :List of 3 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 1 1539s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 2 1539s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 3 1539s .. .. .. ..$ seed: int [1:7] 10407 1128582173 1654094174 -1602611927 417070242 159418060 622348586 1539s List of 1 1539s $ y:List of 5 1539s ..$ :List of 4 1539s .. ..$ i : int 1 1539s .. ..$ seed : int [1:7] 10407 -1871565002 1968597656 -505666782 1055078269 658163990 1090264187 1539s .. ..$ sample: num -1.73 1539s .. ..$ z :List of 3 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 1 1539s .. .. .. ..$ seed: int [1:7] 10407 -122323274 442418215 -314150398 -1994370242 -1572376734 -1226578877 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 2 1539s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 3 1539s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1539s ..$ :List of 4 1539s .. ..$ i : int 2 1539s .. ..$ seed : int [1:7] 10407 -503482957 -863217979 -980579484 -1807161053 -1917089476 -126101442 1539s .. ..$ sample: num -0.613 1539s .. ..$ z :List of 3 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 1 1539s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 2 1539s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 3 1539s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1539s ..$ :List of 4 1539s .. ..$ i : int 3 1539s .. ..$ seed : int [1:7] 10407 -1416887823 -1951372948 -290339832 1953140740 518544831 1295962379 1539s .. ..$ sample: num -1.3 1539s .. ..$ z :List of 3 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 1 1539s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 2 1539s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 3 1539s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1539s ..$ :List of 4 1539s .. ..$ i : int 4 1539s .. ..$ seed : int [1:7] 10407 -1895924057 1338330203 1337745945 -1864062382 -246625186 85998543 1539s .. ..$ sample: num 1.62 1539s .. ..$ z :List of 3 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 1 1539s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 2 1539s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 3 1539s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1539s ..$ :List of 4 1539s .. ..$ i : int 5 1539s .. ..$ seed : int [1:7] 10407 159795861 -1341632454 -672147384 -2118510370 -486654842 1639834115 1539s .. ..$ sample: num 0.684 1539s .. ..$ z :List of 3 1539s .. .. ..$ :List of 2* plan('sequential') ... DONE 1539s * plan('multicore') ... 1539s 1539s .. .. .. ..$ j : int 1 1539s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 2 1539s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1539s .. .. ..$ :List of 2 1539s .. .. .. ..$ j : int 3 1539s .. .. .. ..$ seed: int [1:7] 10407 1128582173 1654094174 -1602611927 417070242 159418060 622348586 1539s List of 1 1539s $ y: num [1:5] 0.461 -1.243 -0.297 1.18 -0.385 1540s List of 1 1540s $ y: num [1:5] 0.461 -1.243 -0.297 1.18 -0.385 1540s List of 1 1540s $ y: num [1:5] 0.461 -1.243 -0.297 1.18 -0.385 1540s List of 1 1540s $ y: num [1:5] 0.461 -1.243 -0.297 1.18 -0.385 1540s List of 1 1540s $ y: num [1:5] 0.461 -1.243 -0.297 1.18 -0.385 1540s List of 1 1540s $ y: num [1:5] 0.461 -1.243 -0.297 1.18 -0.385 1540s List of 1 1540s $ y: num [1:5] 0.461 -1.243 -0.297 1.18 -0.385 1540s List of 1 1540s $ y:List of 5 1540s ..$ :List of 4 1540s .. ..$ i : int 1 1540s .. ..$ seed : int [1:7] 10407 -1871565002 1968597656 -505666782 1055078269 658163990 1090264187 1540s .. ..$ sample: num -1.73 1540s .. ..$ z :List of 3 1540s .. .. ..$ :List of 2 1540s .. .. .. ..$ j : int 1 1540s .. .. .. ..$ seed: int [1:7] 10407 -122323274 442418215 -314150398 -1994370242 -1572376734 -1226578877 1540s .. .. ..$ :List of 2 1540s .. .. .. ..$ j : int 2 1540s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1540s .. .. ..$ :List of 2 1540s .. .. .. ..$ j : int 3 1540s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1540s ..$ :List of 4 1540s .. ..$ i : int 2 1540s .. ..$ seed : int [1:7] 10407 -503482957 -863217979 -980579484 -1807161053 -1917089476 -126101442 1540s .. ..$ sample: num -0.613 1540s .. ..$ z :List of 3 1540s .. .. ..$ :List of 2 1540s .. .. .. ..$ j : int 1 1540s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1540s .. .. ..$ :List of 2 1540s .. .. .. ..$ j : int 2 1540s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1540s .. .. ..$ :List of 2 1540s .. .. .. ..$ j : int 3 1540s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1540s ..$ :List of 4 1540s .. ..$ i : int 3 1540s .. ..$ seed : int [1:7] 10407 -1416887823 -1951372948 -290339832 1953140740 518544831 1295962379 1540s .. ..$ sample: num -1.3 1540s .. ..$ z :List of 3 1540s .. .. ..$ :List of 2 1540s .. .. .. ..$ j : int 1 1540s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1540s .. .. ..$ :List of 2 1540s .. .. .. ..$ j : int 2 1540s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1540s .. .. ..$ :List of 2 1540s .. .. .. ..$ j : int 3 1540s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1540s ..$ :List of 4 1540s .. ..$ i : int 4 1540s .. ..$ seed : int [1:7] 10407 -1895924057 1338330203 1337745945 -1864062382 -246625186 85998543 1540s .. ..$ sample: num 1.62 1540s .. ..$ z :List of 3 1540s .. .. ..$ :List of 2 1540s .. .. .. ..$ j : int 1 1540s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1540s .. .. ..$ :List of 2 1540s .. .. .. ..$ j : int 2 1540s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1540s .. .. ..$ :List of 2 1540s .. .. .. ..$ j : int 3 1540s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1540s ..$ :List of 4 1540s .. ..$ i : int 5 1540s .. ..$ seed : int [1:7] 10407 159795861 -1341632454 -672147384 -2118510370 -486654842 1639834115 1540s .. ..$ sample: num 0.684 1540s .. ..$ z :List of 3 1540s .. .. ..$ :List of 2 1540s .. .. .. ..$ j : int 1 1540s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1540s .. .. ..$ :List of 2 1540s .. .. .. ..$ j : int 2 1540s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1540s .. .. ..$ :List of 2 1540s .. .. .. ..$ j : int 3 1540s .. .. .. ..$ seed: int [1:7] 10407 1128582173 1654094174 -1602611927 417070242 159418060 622348586 1540s List of 1 1540s $ y:List of 5 1540s ..$ :List of 4 1540s .. ..$ i : int 1 1540s .. ..$ seed : int [1:7] 10407 -1871565002 1968597656 -505666782 1055078269 658163990 1090264187 1540s .. ..$ sample: num -1.73 1540s .. ..$ z :List of 3 1540s .. .. ..$ :List of 2 1540s .. .. .. ..$ j : int 1 1540s .. .. .. ..$ seed: int [1:7] 10407 -122323274 442418215 -314150398 -1994370242 -1572376734 -1226578877 1540s .. .. ..$ :List of 2 1540s .. .. .. ..$ j : int 2 1540s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1540s .. .. ..$ :List of 2 1540s .. .. .. ..$ j : int 3 1540s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1540s ..$ :List of 4 1540s .. ..$ i : int 2 1540s .. ..$ seed : int [1:7] 10407 -503482957 -863217979 -980579484 -1807161053 -1917089476 -126101442 1540s .. ..$ sample: num -0.613 1540s .. ..$ z :List of 3 1540s .. .. ..$ :List of 2 1540s .. .. .. ..$ j : int 1 1540s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1540s .. .. ..$ :List of 2 1540s .. .. .. ..$ j : int 2 1540s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1540s .. .. ..$ :List of 2 1540s .. .. .. ..$ j : int 3 1540s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1540s ..$ :List of 4 1540s .. ..$ i : int 3 1540s .. ..$ seed : int [1:7] 10407 -1416887823 -1951372948 -290339832 1953140740 518544831 1295962379 1540s .. ..$ sample: num -1.3 1540s .. ..$ z :List of 3 1540s .. .. ..$ :List of 2 1540s .. .. .. ..$ j : int 1 1540s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1540s .. .. ..$ :List of 2 1540s .. .. .. ..$ j : int 2 1540s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1540s .. .. ..$ :List of 2 1540s .. .. .. ..$ j : int 3 1540s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1540s ..$ :List of 4 1540s .. ..$ i : int 4 1540s .. ..$ seed : int [1:7] 10407 -1895924057 1338330203 1337745945 -1864062382 -246625186 85998543 1540s .. ..$ sample: num 1.62 1540s .. ..$ z :List of 3 1540s .. .. ..$ :List of 2 1540s .. .. .. ..$ j : int 1 1540s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1540s .. .. ..$ :List of 2 1540s .. .. .. ..$ j : int 2 1540s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1540s .. .. ..$ :List of 2 1540s .. .. .. ..$ j : int 3 1540s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1540s ..$ :List of 4 1540s .. ..$ i : int 5 1540s .. ..$ seed : int [1:7] 10407 159795861 -1341632454 -672147384 -2118510370 -486654842 1639834115 1540s .. ..$ sample: num 0.684 1540s .. ..$ z :List of 3 1540s .. .. ..$ :List of 2 1540s .. .. .. ..$ j : int 1 1540s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1540s .. .. ..$ :List of 2 1540s .. .. .. ..$ j : int 2 1540s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1540s .. .. ..$ :List of 2 1540s .. .. .. ..$ j : int * plan('multicore') ... DONE 1540s * plan('multisession') ... 1540s 3 1540s .. .. .. ..$ seed: int [1:7] 10407 1128582173 1654094174 -1602611927 417070242 159418060 622348586 1540s List of 1 1540s $ y: num [1:5] 0.461 -1.243 -0.297 1.18 -0.385 1540s List of 1 1540s $ y: num [1:5] 0.461 -1.243 -0.297 1.18 -0.385 1540s List of 1 1540s $ y: num [1:5] 0.461 -1.243 -0.297 1.18 -0.385 1540s List of 1 1540s $ y: num [1:5] 0.461 -1.243 -0.297 1.18 -0.385 1540s List of 1 1540s $ y: num [1:5] 0.461 -1.243 -0.297 1.18 -0.385 1540s List of 1 1540s $ y: num [1:5] 0.461 -1.243 -0.297 1.18 -0.385 1540s List of 1 1540s $ y: num [1:5] 0.461 -1.243 -0.297 1.18 -0.385 1540s List of 1 1540s $ y:List of 5 1540s ..$ :List of 4 1540s .. ..$ i : int 1 1540s .. ..$ seed : int [1:7] 10407 -1871565002 1968597656 -505666782 1055078269 658163990 1090264187 1540s .. ..$ sample: num -1.73 1540s .. ..$ z :List of 3 1540s .. .. ..$ :List of 2 1540s .. .. .. ..$ j : int 1 1540s .. .. .. ..$ seed: int [1:7] 10407 -122323274 442418215 -314150398 -1994370242 -1572376734 -1226578877 1540s .. .. ..$ :List of 2 1540s .. .. .. ..$ j : int 2 1540s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1540s .. .. ..$ :List of 2 1540s .. .. .. ..$ j : int 3 1540s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1540s ..$ :List of 4 1540s .. ..$ i : int 2 1540s .. ..$ seed : int [1:7] 10407 -503482957 -863217979 -980579484 -1807161053 -1917089476 -126101442 1540s .. ..$ sample: num -0.613 1540s .. ..$ z :List of 3 1540s .. .. ..$ :List of 2 1540s .. .. .. ..$ j : int 1 1540s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1540s .. .. ..$ :List of 2 1540s .. .. .. ..$ j : int 2 1540s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1540s .. .. ..$ :List of 2 1540s .. .. .. ..$ j : int 3 1540s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1540s ..$ :List of 4 1540s .. ..$ i : int 3 1540s .. ..$ seed : int [1:7] 10407 -1416887823 -1951372948 -290339832 1953140740 518544831 1295962379 1540s .. ..$ sample: num -1.3 1540s .. ..$ z :List of 3 1540s .. .. ..$ :List of 2 1540s .. .. .. ..$ j : int 1 1540s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1540s .. .. ..$ :List of 2 1540s .. .. .. ..$ j : int 2 1540s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1540s .. .. ..$ :List of 2 1540s .. .. .. ..$ j : int 3 1540s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1540s ..$ :List of 4 1540s .. ..$ i : int 4 1540s .. ..$ seed : int [1:7] 10407 -1895924057 1338330203 1337745945 -1864062382 -246625186 85998543 1540s .. ..$ sample: num 1.62 1540s .. ..$ z :List of 3 1540s .. .. ..$ :List of 2 1540s .. .. .. ..$ j : int 1 1540s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1540s .. .. ..$ :List of 2 1540s .. .. .. ..$ j : int 2 1540s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1540s .. .. ..$ :List of 2 1540s .. .. .. ..$ j : int 3 1540s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1540s ..$ :List of 4 1540s .. ..$ i : int 5 1540s .. ..$ seed : int [1:7] 10407 159795861 -1341632454 -672147384 -2118510370 -486654842 1639834115 1540s .. ..$ sample: num 0.684 1540s .. ..$ z :List of 3 1540s .. .. ..$ :List of 2 1540s .. .. .. ..$ j : int 1 1540s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1540s .. .. ..$ :List of 2 1540s .. .. .. ..$ j : int 2 1540s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1540s .. .. ..$ :List of 2 1540s .. .. .. ..$ j : int 3 1540s .. .. .. ..$ seed: int [1:7] 10407 1128582173 1654094174 -1602611927 417070242 159418060 622348586 1541s List of 1 1541s $ y:List of 5 1541s ..$ :List of 4 1541s .. ..$ i : int 1 1541s .. ..$ seed : int [1:7] 10407 -1871565002 1968597656 -505666782 1055078269 658163990 1090264187 1541s .. ..$ sample: num -1.73 1541s .. ..$ z :List of 3 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 1 1541s .. .. .. ..$ seed: int [1:7] 10407 -122323274 442418215 -314150398 -1994370242 -1572376734 -1226578877 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 2 1541s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 3 1541s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1541s ..$ :List of 4 1541s .. ..$ i : int 2 1541s .. ..$ seed : int [1:7] 10407 -503482957 -863217979 -980579484 -1807161053 -1917089476 -126101442 1541s .. ..$ sample: num -0.613 1541s .. ..$ z :List of 3 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 1 1541s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 2 1541s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 3 1541s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1541s ..$ :List of 4 1541s .. ..$ i : int 3 1541s .. ..$ seed : int [1:7] 10407 -1416887823 -1951372948 -290339832 1953140740 518544831 1295962379 1541s .. ..$ sample: num -1.3 1541s .. ..$ z :List of 3 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 1 1541s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 2 1541s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 3 1541s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1541s ..$ :List of 4 1541s .. ..$ i : int 4 1541s .. ..$ seed : int [1:7] 10407 -1895924057 1338330203 1337745945 -1864062382 -246625186 85998543 1541s .. ..$ sample: num 1.62 1541s .. ..$ z :List of 3 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 1 1541s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 2 1541s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 3 1541s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1541s ..$ :List of 4 1541s .. ..$ i : int 5 1541s .. ..$ seed : int [1:7] 10407 159795861 -1341632454 -672147384 -2118510370 -486654842 1639834115 1541s .. ..$ sample: num 0.684 1541s .. ..$ z :List of 3 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 1 1541s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 2 1541s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j :* plan('multisession') ... DONE 1541s int 3 1541s .. .. .. ..$ seed: int [1:7] 10407 1128582173 1654094174 -1602611927 417070242 159418060 622348586 1541s - Testing with 1 cores ... DONE 1541s * future_lapply(x, ..., future.seed = ) ... DONE 1541s * future_lapply(x, ..., future.seed = ) ... 1541s - Testing with 1 cores ... 1541s * plan('sequential') ... 1541s List of 1 1541s $ y: num [1:5] -0.9391 1.1193 -0.2085 0.0011 0.2263 1541s List of 1 1541s $ y: num [1:5] -0.9391 1.1193 -0.2085 0.0011 0.2263 1541s List of 1 1541s $ y: num [1:5] -0.9391 1.1193 -0.2085 0.0011 0.2263 1541s List of 1 1541s $ y: num [1:5] -0.9391 1.1193 -0.2085 0.0011 0.2263 1541s List of 1 1541s $ y: num [1:5] -0.9391 1.1193 -0.2085 0.0011 0.2263 1541s List of 1 1541s $ y: num [1:5] -0.9391 1.1193 -0.2085 0.0011 0.2263 1541s List of 1 1541s $ y: num [1:5] -0.9391 1.1193 -0.2085 0.0011 0.2263 1541s List of 1 1541s $ y:List of 5 1541s ..$ :List of 4 1541s .. ..$ i : int 1 1541s .. ..$ seed : int [1:7] 10407 -1871565002 1968597656 -505666782 1055078269 658163990 1090264187 1541s .. ..$ sample: num -1.73 1541s .. ..$ z :List of 3 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 1 1541s .. .. .. ..$ seed: int [1:7] 10407 -122323274 442418215 -314150398 -1994370242 -1572376734 -1226578877 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 2 1541s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 3 1541s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1541s ..$ :List of 4 1541s .. ..$ i : int 2 1541s .. ..$ seed : int [1:7] 10407 -503482957 -863217979 -980579484 -1807161053 -1917089476 -126101442 1541s .. ..$ sample: num -0.613 1541s .. ..$ z :List of 3 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 1 1541s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 2 1541s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 3 1541s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1541s ..$ :List of 4 1541s .. ..$ i : int 3 1541s .. ..$ seed : int [1:7] 10407 -1416887823 -1951372948 -290339832 1953140740 518544831 1295962379 1541s .. ..$ sample: num -1.3 1541s .. ..$ z :List of 3 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 1 1541s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 2 1541s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 3 1541s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1541s ..$ :List of 4 1541s .. ..$ i : int 4 1541s .. ..$ seed : int [1:7] 10407 -1895924057 1338330203 1337745945 -1864062382 -246625186 85998543 1541s .. ..$ sample: num 1.62 1541s .. ..$ z :List of 3 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 1 1541s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 2 1541s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 3 1541s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1541s ..$ :List of 4 1541s .. ..$ i : int 5 1541s .. ..$ seed : int [1:7] 10407 159795861 -1341632454 -672147384 -2118510370 -486654842 1639834115 1541s .. ..$ sample: num 0.684 1541s .. ..$ z :List of 3 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 1 1541s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 2 1541s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 3 1541s .. .. .. ..$ seed: int [1:7] 10407 1128582173 1654094174 -1602611927 417070242 159418060 622348586 1541s List of 1 1541s $ y:List of 5 1541s ..$ :List of 4 1541s .. ..$ i : int 1 1541s .. ..$ seed : int [1:7] 10407 -1871565002 1968597656 -505666782 1055078269 658163990 1090264187 1541s .. ..$ sample: num -1.73 1541s .. ..$ z :List of 3 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 1 1541s .. .. .. ..$ seed: int [1:7] 10407 -122323274 442418215 -314150398 -1994370242 -1572376734 -1226578877 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 2 1541s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 3 1541s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1541s ..$ :List of 4 1541s .. ..$ i : int 2 1541s .. ..$ seed : int [1:7] 10407 -503482957 -863217979 -980579484 -1807161053 -1917089476 -126101442 1541s .. ..$ sample: num -0.613 1541s .. ..$ z :List of 3 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 1 1541s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 2 1541s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 3 1541s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1541s ..$ :List of 4 1541s .. ..$ i : int 3 1541s .. ..$ seed : int [1:7] 10407 -1416887823 -1951372948 -290339832 1953140740 518544831 1295962379 1541s .. ..$ sample: num -1.3 1541s .. ..$ z :List of 3 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 1 1541s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 2 1541s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 3 1541s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1541s ..$ :List of 4 1541s .. ..$ i : int 4 1541s .. ..$ seed : int [1:7] 10407 -1895924057 1338330203 1337745945 -1864062382 -246625186 85998543 1541s .. ..$ sample: num 1.62 1541s .. ..$ z :List of 3 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 1 1541s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 2 1541s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 3 1541s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1541s ..$ :List of 4 1541s .. ..$ i : int 5 1541s .. ..$ seed : int [1:7] 10407 159795861 -1341632454 -672147384 -2118510370 -486654842 1639834115 1541s .. ..$ sample: num 0.684 1541s .. ..$ z :List of 3 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 1 1541s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 2 1541s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 3 1541s .. .. .. ..$ seed: int [1:7] 10407 1128582173 1654094174 -1602611927 417070242 159418060 622348586 1541s * plan('sequential') ... DONE 1541s * plan('multicore') ... 1541s List of 1 1541s $ y: num [1:5] -0.9391 1.1193 -0.2085 0.0011 0.2263 1541s List of 1 1541s $ y: num [1:5] -0.9391 1.1193 -0.2085 0.0011 0.2263 1541s List of 1 1541s $ y: num [1:5] -0.9391 1.1193 -0.2085 0.0011 0.2263 1541s List of 1 1541s $ y: num [1:5] -0.9391 1.1193 -0.2085 0.0011 0.2263 1541s List of 1 1541s $ y: num [1:5] -0.9391 1.1193 -0.2085 0.0011 0.2263 1541s List of 1 1541s $ y: num [1:5] -0.9391 1.1193 -0.2085 0.0011 0.2263 1541s List of 1 1541s $ y: num [1:5] -0.9391 1.1193 -0.2085 0.0011 0.2263 1541s List of 1 1541s $ y:List of 5 1541s ..$ :List of 4 1541s .. ..$ i : int 1 1541s .. ..$ seed : int [1:7] 10407 -1871565002 1968597656 -505666782 1055078269 658163990 1090264187 1541s .. ..$ sample: num -1.73 1541s .. ..$ z :List of 3 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 1 1541s .. .. .. ..$ seed: int [1:7] 10407 -122323274 442418215 -314150398 -1994370242 -1572376734 -1226578877 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 2 1541s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 3 1541s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1541s ..$ :List of 4 1541s .. ..$ i : int 2 1541s .. ..$ seed : int [1:7] 10407 -503482957 -863217979 -980579484 -1807161053 -1917089476 -126101442 1541s .. ..$ sample: num -0.613 1541s .. ..$ z :List of 3 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 1 1541s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 2 1541s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 3 1541s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1541s ..$ :List of 4 1541s .. ..$ i : int 3 1541s .. ..$ seed : int [1:7] 10407 -1416887823 -1951372948 -290339832 1953140740 518544831 1295962379 1541s .. ..$ sample: num -1.3 1541s .. ..$ z :List of 3 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 1 1541s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 2 1541s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 3 1541s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1541s ..$ :List of 4 1541s .. ..$ i : int 4 1541s .. ..$ seed : int [1:7] 10407 -1895924057 1338330203 1337745945 -1864062382 -246625186 85998543 1541s .. ..$ sample: num 1.62 1541s .. ..$ z :List of 3 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 1 1541s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 2 1541s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 3 1541s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1541s ..$ :List of 4 1541s .. ..$ i : int 5 1541s .. ..$ seed : int [1:7] 10407 159795861 -1341632454 -672147384 -2118510370 -486654842 1639834115 1541s .. ..$ sample: num 0.684 1541s .. ..$ z :List of 3 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 1 1541s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 2 1541s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1541s .. .. ..$ :List of 2 1541s .. .. .. ..$ j : int 3 1541s .. .. .. ..$ seed: int [1:7] 10407 1128582173 1654094174 -1602611927 417070242 159418060 622348586 1542s List of 1 1542s $ y:List of 5 1542s ..$ :List of 4 1542s .. ..$ i : int 1 1542s .. ..$ seed : int [1:7] 10407 -1871565002 1968597656 -505666782 1055078269 658163990 1090264187 1542s .. ..$ sample: num -1.73 1542s .. ..$ z :List of 3 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 1 1542s .. .. .. ..$ seed: int [1:7] 10407 -122323274 442418215 -314150398 -1994370242 -1572376734 -1226578877 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 2 1542s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 3 1542s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1542s ..$ :List of 4 1542s .. ..$ i : int 2 1542s .. ..$ seed : int [1:7] 10407 -503482957 -863217979 -980579484 -1807161053 -1917089476 -126101442 1542s .. ..$ sample: num -0.613 1542s .. ..$ z :List of 3 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 1 1542s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 2 1542s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 3 1542s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1542s ..$ :List of 4 1542s .. ..$ i : int 3 1542s .. ..$ seed : int [1:7] 10407 -1416887823 -1951372948 -290339832 1953140740 518544831 1295962379 1542s .. ..$ sample: num -1.3 1542s .. ..$ z :List of 3 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 1 1542s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 2 1542s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 3 1542s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1542s ..$ :List of 4 1542s .. ..$ i : int 4 1542s .. ..$ seed : int [1:7] 10407 -1895924057 1338330203 1337745945 -1864062382 -246625186 85998543 1542s .. ..$ sample: num 1.62 1542s .. ..$ z :List of 3 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 1 1542s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 2 1542s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 3 1542s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1542s ..$ :List of 4 1542s .. ..$ i : int 5 1542s .. ..$ seed : int [1:7] 10407 159795861 -1341632454 -672147384 -2118510370 -486654842 1639834115 1542s .. ..$ sample: num 0.684 1542s .. ..$ z :List of 3 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 1 1542s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 2 1542s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 3 1542s .. .. .. ..$ seed: int [1:7] 10407 1128582173 1654094174 -1602611927 417070242 159418060 622348586 1542s * plan('multicore') ... DONE 1542s * plan('multisession') ... 1542s List of 1 1542s $ y: num [1:5] -0.9391 1.1193 -0.2085 0.0011 0.2263 1542s List of 1 1542s $ y: num [1:5] -0.9391 1.1193 -0.2085 0.0011 0.2263 1542s List of 1 1542s $ y: num [1:5] -0.9391 1.1193 -0.2085 0.0011 0.2263 1542s List of 1 1542s $ y: num [1:5] -0.9391 1.1193 -0.2085 0.0011 0.2263 1542s List of 1 1542s $ y: num [1:5] -0.9391 1.1193 -0.2085 0.0011 0.2263 1542s List of 1 1542s $ y: num [1:5] -0.9391 1.1193 -0.2085 0.0011 0.2263 1542s List of 1 1542s $ y: num [1:5] -0.9391 1.1193 -0.2085 0.0011 0.2263 1542s List of 1 1542s $ y:List of 5 1542s ..$ :List of 4 1542s .. ..$ i : int 1 1542s .. ..$ seed : int [1:7] 10407 -1871565002 1968597656 -505666782 1055078269 658163990 1090264187 1542s .. ..$ sample: num -1.73 1542s .. ..$ z :List of 3 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 1 1542s .. .. .. ..$ seed: int [1:7] 10407 -122323274 442418215 -314150398 -1994370242 -1572376734 -1226578877 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 2 1542s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 3 1542s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1542s ..$ :List of 4 1542s .. ..$ i : int 2 1542s .. ..$ seed : int [1:7] 10407 -503482957 -863217979 -980579484 -1807161053 -1917089476 -126101442 1542s .. ..$ sample: num -0.613 1542s .. ..$ z :List of 3 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 1 1542s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 2 1542s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 3 1542s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1542s ..$ :List of 4 1542s .. ..$ i : int 3 1542s .. ..$ seed : int [1:7] 10407 -1416887823 -1951372948 -290339832 1953140740 518544831 1295962379 1542s .. ..$ sample: num -1.3 1542s .. ..$ z :List of 3 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 1 1542s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 2 1542s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 3 1542s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1542s ..$ :List of 4 1542s .. ..$ i : int 4 1542s .. ..$ seed : int [1:7] 10407 -1895924057 1338330203 1337745945 -1864062382 -246625186 85998543 1542s .. ..$ sample: num 1.62 1542s .. ..$ z :List of 3 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 1 1542s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 2 1542s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 3 1542s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1542s ..$ :List of 4 1542s .. ..$ i : int 5 1542s .. ..$ seed : int [1:7] 10407 159795861 -1341632454 -672147384 -2118510370 -486654842 1639834115 1542s .. ..$ sample: num 0.684 1542s .. ..$ z :List of 3 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 1 1542s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 2 1542s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 3 1542s .. .. .. ..$ seed: int [1:7] 10407 1128582173 1654094174 -1602611927 417070242 159418060 622348586 1542s List of 1 1542s $ y:List of 5 1542s ..$ :List of 4 1542s .. ..$ i : int 1 1542s .. ..$ seed : int [1:7] 10407 -1871565002 1968597656 -505666782 1055078269 658163990 1090264187 1542s .. ..$ sample: num -1.73 1542s .. ..$ z :List of 3 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 1 1542s .. .. .. ..$ seed: int [1:7] 10407 -122323274 442418215 -314150398 -1994370242 -1572376734 -1226578877 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 2 1542s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 3 1542s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1542s ..$ :List of 4 1542s .. ..$ i : int 2 1542s .. ..$ seed : int [1:7] 10407 -503482957 -863217979 -980579484 -1807161053 -1917089476 -126101442 1542s .. ..$ sample: num -0.613 1542s .. ..$ z :List of 3 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 1 1542s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 2 1542s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 3 1542s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1542s ..$ :List of 4 1542s .. ..$ i : int 3 1542s .. ..$ seed : int [1:7] 10407 -1416887823 -1951372948 -290339832 1953140740 518544831 1295962379 1542s .. ..$ sample: num -1.3 1542s .. ..$ z :List of 3 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 1 1542s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 2 1542s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 3 1542s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1542s ..$ :List of 4 1542s .. ..$ i : int 4 1542s .. ..$ seed : int [1:7] 10407 -1895924057 1338330203 1337745945 -1864062382 -246625186 85998543 1542s .. ..$ sample: num 1.62 1542s .. ..$ z :List of 3 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 1 1542s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 2 1542s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 3 1542s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1542s ..$ :List of 4 1542s .. ..$ i : int 5 1542s .. ..$ seed : int [1:7] 10407 159795861 -1341632454 -672147384 -2118510370 -486654842 1639834115 1542s .. ..$ sample: num 0.684 1542s .. ..$ z :List of 3 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 1 1542s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 2 1542s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 3 1542s .. .. .. ..$ seed: int [1:7] 10407 1128582173 1654094174 -1602611927 417070242 159418060 622348586 1542s * plan('multisession') ... DONE 1542s - Testing with 1 cores ... DONE 1542s * future_lapply(x, ..., future.seed = ) ... DONE 1542s * future_lapply(x, ..., future.seed = TRUE) ... 1542s - Testing with 1 cores ... 1542s * plan('sequential') ... 1542s List of 1 1542s $ y: num [1:5] 0.682 1.19 -1.081 1.143 -1.293 1542s List of 1 1542s $ y: num [1:5] 0.682 1.19 -1.081 1.143 -1.293 1542s List of 1 1542s $ y: num [1:5] 0.682 1.19 -1.081 1.143 -1.293 1542s List of 1 1542s $ y: num [1:5] 0.682 1.19 -1.081 1.143 -1.293 1542s List of 1 1542s $ y: num [1:5] 0.682 1.19 -1.081 1.143 -1.293 1542s List of 1 1542s $ y: num [1:5] 0.682 1.19 -1.081 1.143 -1.293 1542s List of 1 1542s $ y: num [1:5] 0.682 1.19 -1.081 1.143 -1.293 1542s List of 1 1542s $ y:List of 5 1542s ..$ :List of 4 1542s .. ..$ i : int 1 1542s .. ..$ seed : int [1:7] 10407 -1871565002 1968597656 -505666782 1055078269 658163990 1090264187 1542s .. ..$ sample: num -1.73 1542s .. ..$ z :List of 3 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 1 1542s .. .. .. ..$ seed: int [1:7] 10407 -122323274 442418215 -314150398 -1994370242 -1572376734 -1226578877 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 2 1542s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 3 1542s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1542s ..$ :List of 4 1542s .. ..$ i : int 2 1542s .. ..$ seed : int [1:7] 10407 -503482957 -863217979 -980579484 -1807161053 -1917089476 -126101442 1542s .. ..$ sample: num -0.613 1542s .. ..$ z :List of 3 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 1 1542s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 2 1542s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 3 1542s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1542s ..$ :List of 4 1542s .. ..$ i : int 3 1542s .. ..$ seed : int [1:7] 10407 -1416887823 -1951372948 -290339832 1953140740 518544831 1295962379 1542s .. ..$ sample: num -1.3 1542s .. ..$ z :List of 3 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 1 1542s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 2 1542s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 3 1542s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1542s ..$ :List of 4 1542s .. ..$ i : int 4 1542s .. ..$ seed : int [1:7] 10407 -1895924057 1338330203 1337745945 -1864062382 -246625186 85998543 1542s .. ..$ sample: num 1.62 1542s .. ..$ z :List of 3 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 1 1542s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 2 1542s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 3 1542s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1542s ..$ :List of 4 1542s .. ..$ i : int 5 1542s .. ..$ seed : int [1:7] 10407 159795861 -1341632454 -672147384 -2118510370 -486654842 1639834115 1542s .. ..$ sample: num 0.684 1542s .. ..$ z :List of 3 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 1 1542s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 2 1542s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1542s .. .. ..$ :List of 2 1542s .. .. .. ..$ j : int 3 1542s .. .. .. ..$ seed: int [1:7] 10407 1128582173 1654094174 -1602611927 417070242 159418060 622348586 1543s List of 1 1543s $ y:List of 5 1543s ..$ :List of 4 1543s .. ..$ i : int 1 1543s .. ..$ seed : int [1:7] 10407 -1871565002 1968597656 -505666782 1055078269 658163990 1090264187 1543s .. ..$ sample: num -1.73 1543s .. ..$ z :List of 3 1543s .. .. ..$ :List of 2 1543s .. .. .. ..$ j : int 1 1543s .. .. .. ..$ seed: int [1:7] 10407 -122323274 442418215 -314150398 -1994370242 -1572376734 -1226578877 1543s .. .. ..$ :List of 2 1543s .. .. .. ..$ j : int 2 1543s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1543s .. .. ..$ :List of 2 1543s .. .. .. ..$ j : int 3 1543s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1543s ..$ :List of 4 1543s .. ..$ i : int 2 1543s .. ..$ seed : int [1:7] 10407 -503482957 -863217979 -980579484 -1807161053 -1917089476 -126101442 1543s .. ..$ sample: num -0.613 1543s .. ..$ z :List of 3 1543s .. .. ..$ :List of 2 1543s .. .. .. ..$ j : int 1 1543s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1543s .. .. ..$ :List of 2 1543s .. .. .. ..$ j : int 2 1543s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1543s .. .. ..$ :List of 2 1543s .. .. .. ..$ j : int 3 1543s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1543s ..$ :List of 4 1543s .. ..$ i : int 3 1543s .. ..$ seed : int [1:7] 10407 -1416887823 -1951372948 -290339832 1953140740 518544831 1295962379 1543s .. ..$ sample: num -1.3 1543s .. ..$ z :List of 3 1543s .. .. ..$ :List of 2 1543s .. .. .. ..$ j : int 1 1543s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1543s .. .. ..$ :List of 2 1543s .. .. .. ..$ j : int 2 1543s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1543s .. .. ..$ :List of 2 1543s .. .. .. ..$ j : int 3 1543s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1543s ..$ :List of 4 1543s .. ..$ i : int 4 1543s .. ..$ seed : int [1:7] 10407 -1895924057 1338330203 1337745945 -1864062382 -246625186 85998543 1543s .. ..$ sample: num 1.62 1543s .. ..$ z :List of 3 1543s .. .. ..$ :List of 2 1543s .. .. .. ..$ j : int 1 1543s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1543s .. .. ..$ :List of 2 1543s .. .. .. ..$ j : int 2 1543s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1543s .. .. ..$ :List of 2 1543s .. .. .. ..$ j : int 3 1543s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1543s ..$ :List of 4 1543s .. ..$ i : int 5 1543s .. ..$ seed : int [1:7] 10407 159795861 -1341632454 -672147384 -2118510370 -486654842 1639834115 1543s .. ..$ sample: num 0.684 1543s .. ..$ z :List of 3 1543s .. .. ..$ :List of 2 1543s .. .. .. ..$ j : int 1 1543s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1543s .. .. ..$ :List of 2 1543s .. .. .. ..$ j : int 2 1543s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1543s .. .. ..$ :List of 2 1543s .. .. .. ..$ j : int 3 1543s .. .. .. ..$ seed: int [1:7] 10407 1128582173 1654094174 -1602611927 417070242 159418060 622348586 1543s * plan('sequential') ... DONE 1543s * plan('multicore') ... 1543s List of 1 1543s $ y: num [1:5] 0.682 1.19 -1.081 1.143 -1.293 1543s List of 1 1543s $ y: num [1:5] 0.682 1.19 -1.081 1.143 -1.293 1543s List of 1 1543s $ y: num [1:5] 0.682 1.19 -1.081 1.143 -1.293 1543s List of 1 1543s $ y: num [1:5] 0.682 1.19 -1.081 1.143 -1.293 1543s List of 1 1543s $ y: num [1:5] 0.682 1.19 -1.081 1.143 -1.293 1543s List of 1 1543s $ y: num [1:5] 0.682 1.19 -1.081 1.143 -1.293 1543s List of 1 1543s $ y: num [1:5] 0.682 1.19 -1.081 1.143 -1.293 1543s List of 1 1543s $ y:List of 5 1543s ..$ :List of 4 1543s .. ..$ i : int 1 1543s .. ..$ seed : int [1:7] 10407 -1871565002 1968597656 -505666782 1055078269 658163990 1090264187 1543s .. ..$ sample: num -1.73 1543s .. ..$ z :List of 3 1543s .. .. ..$ :List of 2 1543s .. .. .. ..$ j : int 1 1543s .. .. .. ..$ seed: int [1:7] 10407 -122323274 442418215 -314150398 -1994370242 -1572376734 -1226578877 1543s .. .. ..$ :List of 2 1543s .. .. .. ..$ j : int 2 1543s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1543s .. .. ..$ :List of 2 1543s .. .. .. ..$ j : int 3 1543s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1543s ..$ :List of 4 1543s .. ..$ i : int 2 1543s .. ..$ seed : int [1:7] 10407 -503482957 -863217979 -980579484 -1807161053 -1917089476 -126101442 1543s .. ..$ sample: num -0.613 1543s .. ..$ z :List of 3 1543s .. .. ..$ :List of 2 1543s .. .. .. ..$ j : int 1 1543s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1543s .. .. ..$ :List of 2 1543s .. .. .. ..$ j : int 2 1543s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1543s .. .. ..$ :List of 2 1543s .. .. .. ..$ j : int 3 1543s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1543s ..$ :List of 4 1543s .. ..$ i : int 3 1543s .. ..$ seed : int [1:7] 10407 -1416887823 -1951372948 -290339832 1953140740 518544831 1295962379 1543s .. ..$ sample: num -1.3 1543s .. ..$ z :List of 3 1543s .. .. ..$ :List of 2 1543s .. .. .. ..$ j : int 1 1543s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1543s .. .. ..$ :List of 2 1543s .. .. .. ..$ j : int 2 1543s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1543s .. .. ..$ :List of 2 1543s .. .. .. ..$ j : int 3 1543s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1543s ..$ :List of 4 1543s .. ..$ i : int 4 1543s .. ..$ seed : int [1:7] 10407 -1895924057 1338330203 1337745945 -1864062382 -246625186 85998543 1543s .. ..$ sample: num 1.62 1543s .. ..$ z :List of 3 1543s .. .. ..$ :List of 2 1543s .. .. .. ..$ j : int 1 1543s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1543s .. .. ..$ :List of 2 1543s .. .. .. ..$ j : int 2 1543s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1543s .. .. ..$ :List of 2 1543s .. .. .. ..$ j : int 3 1543s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1543s ..$ :List of 4 1543s .. ..$ i : int 5 1543s .. ..$ seed : int [1:7] 10407 159795861 -1341632454 -672147384 -2118510370 -486654842 1639834115 1543s .. ..$ sample: num 0.684 1543s .. ..$ z :List of 3 1543s .. .. ..$ :List of 2 1543s .. .. .. ..$ j : int 1 1543s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1543s .. .. ..$ :List of 2 1543s .. .. .. ..$ j : int 2 1543s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1543s .. .. ..$ :List of 2 1543s .. .. .. ..$ j : int 3 1543s .. .. .. ..$ seed: int [1:7] 10407 1128582173 1654094174 -1602611927 417070242 159418060 622348586 1543s List of 1 1543s $ y:List of 5 1543s ..$ :List of 4 1543s .. ..$ i : int 1 1543s .. ..$ seed : int [1:7] 10407 -1871565002 1968597656 -505666782 1055078269 658163990 1090264187 1543s .. ..$ sample: num -1.73 1543s .. ..$ z :List of 3 1543s .. .. ..$ :List of 2 1543s .. .. .. ..$ j : int 1 1543s .. .. .. ..$ seed: int [1:7] 10407 -122323274 442418215 -314150398 -1994370242 -1572376734 -1226578877 1543s .. .. ..$ :List of 2 1543s .. .. .. ..$ j : int 2 1543s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1543s .. .. ..$ :List of 2 1543s .. .. .. ..$ j : int 3 1543s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1543s ..$ :List of 4 1543s .. ..$ i : int 2 1543s .. ..$ seed : int [1:7] 10407 -503482957 -863217979 -980579484 -1807161053 -1917089476 -126101442 1543s .. ..$ sample: num -0.613 1543s .. ..$ z :List of 3 1543s .. .. ..$ :List of 2 1543s .. .. .. ..$ j : int 1 1543s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1543s .. .. ..$ :List of 2 1543s .. .. .. ..$ j : int 2 1543s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1543s .. .. ..$ :List of 2 1543s .. .. .. ..$ j : int 3 1543s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1543s ..$ :List of 4 1543s .. ..$ i : int 3 1543s .. ..$ seed : int [1:7] 10407 -1416887823 -1951372948 -290339832 1953140740 518544831 1295962379 1543s .. ..$ sample: num -1.3 1543s .. ..$ z :List of 3 1543s .. .. ..$ :List of 2 1543s .. .. .. ..$ j : int 1 1543s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1543s .. .. ..$ :List of 2 1543s .. .. .. ..$ j : int 2 1543s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1543s .. .. ..$ :List of 2 1543s .. .. .. ..$ j : int 3 1543s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1543s ..$ :List of 4 1543s .. ..$ i : int 4 1543s .. ..$ seed : int [1:7] 10407 -1895924057 1338330203 1337745945 -1864062382 -246625186 85998543 1543s .. ..$ sample: num 1.62 1543s .. ..$ z :List of 3 1543s .. .. ..$ :List of 2 1543s .. .. .. ..$ j : int 1 1543s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1543s .. .. ..$ :List of 2 1543s .. .. .. ..$ j : int 2 1543s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1543s .. .. ..$ :List of 2 1543s .. .. .. ..$ j : int 3 1543s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1543s ..$ :List of 4 1543s .. ..$ i : int 5 1543s .. ..$ seed : int [1:7] 10407 159795861 -1341632454 -672147384 -2118510370 -486654842 1639834115 1543s .. ..$ sample: num 0.684 1543s .. ..$ z :List of 3 1543s .. .. ..$ :List of 2 1543s .. .. .. ..$ j : int 1 1543s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1543s .. .. ..$ :List of 2 1543s .. .. .. ..$ j : int 2 1543s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1543s .. .. ..$ :List of 2 1543s .. .. .. ..$ j : int 3 1543s .. .. .. ..$ seed: int [1:7] 10407 1128582173 1654094174 -1602611927 417070242 159418060 622348586 1543s * plan('multicore') ... DONE 1543s * plan('multisession') ... 1543s List of 1 1543s $ y: num [1:5] 0.682 1.19 -1.081 1.143 -1.293 1543s List of 1 1543s $ y: num [1:5] 0.682 1.19 -1.081 1.143 -1.293 1543s List of 1 1543s $ y: num [1:5] 0.682 1.19 -1.081 1.143 -1.293 1543s List of 1 1543s $ y: num [1:5] 0.682 1.19 -1.081 1.143 -1.293 1543s List of 1 1543s $ y: num [1:5] 0.682 1.19 -1.081 1.143 -1.293 1543s List of 1 1543s $ y: num [1:5] 0.682 1.19 -1.081 1.143 -1.293 1543s List of 1 1543s $ y: num [1:5] 0.682 1.19 -1.081 1.143 -1.293 1544s List of 1 1544s $ y:List of 5 1544s ..$ :List of 4 1544s .. ..$ i : int 1 1544s .. ..$ seed : int [1:7] 10407 -1871565002 1968597656 -505666782 1055078269 658163990 1090264187 1544s .. ..$ sample: num -1.73 1544s .. ..$ z :List of 3 1544s .. .. ..$ :List of 2 1544s .. .. .. ..$ j : int 1 1544s .. .. .. ..$ seed: int [1:7] 10407 -122323274 442418215 -314150398 -1994370242 -1572376734 -1226578877 1544s .. .. ..$ :List of 2 1544s .. .. .. ..$ j : int 2 1544s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1544s .. .. ..$ :List of 2 1544s .. .. .. ..$ j : int 3 1544s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1544s ..$ :List of 4 1544s .. ..$ i : int 2 1544s .. ..$ seed : int [1:7] 10407 -503482957 -863217979 -980579484 -1807161053 -1917089476 -126101442 1544s .. ..$ sample: num -0.613 1544s .. ..$ z :List of 3 1544s .. .. ..$ :List of 2 1544s .. .. .. ..$ j : int 1 1544s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1544s .. .. ..$ :List of 2 1544s .. .. .. ..$ j : int 2 1544s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1544s .. .. ..$ :List of 2 1544s .. .. .. ..$ j : int 3 1544s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1544s ..$ :List of 4 1544s .. ..$ i : int 3 1544s .. ..$ seed : int [1:7] 10407 -1416887823 -1951372948 -290339832 1953140740 518544831 1295962379 1544s .. ..$ sample: num -1.3 1544s .. ..$ z :List of 3 1544s .. .. ..$ :List of 2 1544s .. .. .. ..$ j : int 1 1544s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1544s .. .. ..$ :List of 2 1544s .. .. .. ..$ j : int 2 1544s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1544s .. .. ..$ :List of 2 1544s .. .. .. ..$ j : int 3 1544s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1544s ..$ :List of 4 1544s .. ..$ i : int 4 1544s .. ..$ seed : int [1:7] 10407 -1895924057 1338330203 1337745945 -1864062382 -246625186 85998543 1544s .. ..$ sample: num 1.62 1544s .. ..$ z :List of 3 1544s .. .. ..$ :List of 2 1544s .. .. .. ..$ j : int 1 1544s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1544s .. .. ..$ :List of 2 1544s .. .. .. ..$ j : int 2 1544s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1544s .. .. ..$ :List of 2 1544s .. .. .. ..$ j : int 3 1544s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1544s ..$ :List of 4 1544s .. ..$ i : int 5 1544s .. ..$ seed : int [1:7] 10407 159795861 -1341632454 -672147384 -2118510370 -486654842 1639834115 1544s .. ..$ sample: num 0.684 1544s .. ..$ z :List of 3 1544s .. .. ..$ :List of 2 1544s .. .. .. ..$ j : int 1 1544s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1544s .. .. ..$ :List of 2 1544s .. .. .. ..$ j : int 2 1544s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1544s .. .. ..$ :List of 2 1544s .. .. .. ..$ j : int 3 1544s .. .. .. ..$ seed: int [1:7] 10407 1128582173 1654094174 -1602611927 417070242 159418060 622348586 1544s List of 1 1544s $ y:List of 5 1544s ..$ :List of 4 1544s .. ..$ i : int 1 1544s .. ..$ seed : int [1:7] 10407 -1871565002 1968597656 -505666782 1055078269 658163990 1090264187 1544s .. ..$ sample: num -1.73 1544s .. ..$ z :List of 3 1544s .. .. ..$ :List of 2 1544s .. .. .. ..$ j : int 1 1544s .. .. .. ..$ seed: int [1:7] 10407 -122323274 442418215 -314150398 -1994370242 -1572376734 -1226578877 1544s .. .. ..$ :List of 2 1544s .. .. .. ..$ j : int 2 1544s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1544s .. .. ..$ :List of 2 1544s .. .. .. ..$ j : int 3 1544s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1544s ..$ :List of 4 1544s .. ..$ i : int 2 1544s .. ..$ seed : int [1:7] 10407 -503482957 -863217979 -980579484 -1807161053 -1917089476 -126101442 1544s .. ..$ sample: num -0.613 1544s .. ..$ z :List of 3 1544s .. .. ..$ :List of 2 1544s .. .. .. ..$ j : int 1 1544s .. .. .. ..$ seed: int [1:7] 10407 -1871254577 -825239395 875794779 -247498306 438043846 1608281042 1544s .. .. ..$ :List of 2 1544s .. .. .. ..$ j : int 2 1544s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1544s .. .. ..$ :List of 2 1544s .. .. .. ..$ j : int 3 1544s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1544s ..$ :List of 4 1544s .. ..$ i : int 3 1544s .. ..$ seed : int [1:7] 10407 -1416887823 -1951372948 -290339832 1953140740 518544831 1295962379 1544s .. ..$ sample: num -1.3 1544s .. ..$ z :List of 3 1544s .. .. ..$ :List of 2 1544s .. .. .. ..$ j : int 1 1544s .. .. .. ..$ seed: int [1:7] 10407 997135606 1479245243 -2016452053 1100999787 -104552021 2044111928 1544s .. .. ..$ :List of 2 1544s .. .. .. ..$ j : int 2 1544s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1544s .. .. ..$ :List of 2 1544s .. .. .. ..$ j : int 3 1544s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1544s ..$ :List of 4 1544s .. ..$ i : int 4 1544s .. ..$ seed : int [1:7] 10407 -1895924057 1338330203 1337745945 -1864062382 -246625186 85998543 1544s .. ..$ sample: num 1.62 1544s .. ..$ z :List of 3 1544s .. .. ..$ :List of 2 1544s .. .. .. ..$ j : int 1 1544s .. .. .. ..$ seed: int [1:7] 10407 -1269057340 -1399655485 1519579598 -1180765060 1521246727 -1017612807 1544s .. .. ..$ :List of 2 1544s .. .. .. ..$ j : int 2 1544s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1544s .. .. ..$ :List of 2 1544s .. .. .. ..$ j : int 3 1544s .. .. .. ..$ seed: int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1544s ..$ :List of 4 1544s .. ..$ i : int 5 1544s .. ..$ seed : int [1:7] 10407 159795861 -1341632454 -672147384 -2118510370 -486654842 1639834115 1544s .. ..$ sample: num 0.684 1544s .. ..$ z :List of 3 1544s .. .. ..$ :List of 2 1544s .. .. .. ..$ j : int 1 1544s .. .. .. ..$ seed: int [1:7] 10407 1613341724 1511905231 -48934370 201757509 -191270057 -252590183 1544s .. .. ..$ :List of 2 1544s .. .. .. ..$ j : int 2 1544s .. .. .. ..$ seed:* plan('multisession') ... DONE 1544s - Testing with 1 cores ... DONE 1544s * future_lapply(x, ..., future.seed = TRUE) ... DONE 1544s *** future_lapply() and RNGs ... DONE 1544s int [1:7] 10407 1846266912 1321142837 2076962100 -1723920069 -1063347708 542913105 1544s .. .. ..$ :List of 2 1544s .. .. .. ..$ j : int 3 1544s .. .. .. ..$ seed: int [1:7] 10407 1128582173 1654094174 -1602611927 417070242 159418060 622348586 1544s > 1544s > 1544s > message("*** future_lapply() and RNGs ... DONE") 1544s > 1544s > source("incl/end.R") 1544s > 1544s BEGIN TEST future_lapply,globals.R 1544s 1544s R version 4.3.3 (2024-02-29) -- "Angel Food Cake" 1544s Copyright (C) 2024 The R Foundation for Statistical Computing 1544s Platform: s390x-ibm-linux-gnu (64-bit) 1544s 1544s R is free software and comes with ABSOLUTELY NO WARRANTY. 1544s You are welcome to redistribute it under certain conditions. 1544s Type 'license()' or 'licence()' for distribution details. 1544s 1544s R is a collaborative project with many contributors. 1544s Type 'contributors()' for more information and 1544s 'citation()' on how to cite R or R packages in publications. 1544s 1544s Type 'demo()' for some demos, 'help()' for on-line help, or 1544s 'help.start()' for an HTML browser interface to help. 1544s Type 'q()' to quit R. 1544s 1544s > source("incl/start.R") 1544s Loading required package: future 1544s [00:52:24.686] plan(): Setting new future strategy stack: 1544s [00:52:24.687] List of future strategies: 1544s [00:52:24.687] 1. sequential: 1544s [00:52:24.687] - args: function (..., envir = parent.frame()) 1544s [00:52:24.687] - tweaked: FALSE 1544s [00:52:24.687] - call: future::plan("sequential") 1544s [00:52:24.719] plan(): nbrOfWorkers() = 1 1544s *** future_lapply() - globals ... 1544s > library("tools") ## toTitleCase() 1544s > 1544s > options(future.debug = FALSE) 1544s > options(future.apply.debug = TRUE) 1544s > 1544s > message("*** future_lapply() - globals ...") 1544s > 1544s > plan(cluster, workers = "localhost") 1545s > 1545s > a <- 1 1545s > b <- 2 1545s > 1545s > globals_set <- list( 1545s + A = FALSE, 1545s + B = TRUE, 1545s + C = c("a", "b"), 1545s + D = list(a = 2, b = 3) 1545s + ) 1545s > 1545s > x <- list(1) 1545s > y_truth <- list(A = NULL, B = list(1), C = list(1), D = list(2)) 1545s > str(y_truth) 1545s List of 4 1545s $ A: NULL 1545s $ B:List of 1 1545s ..$ : num 1 1545s $ C:List of 1 1545s ..$ : num 1 1545s $ D:List of 1 1545s ..$ : num 2 1545s > 1545s > for (name in names(globals_set)) { 1545s + globals <- globals_set[[name]] 1545s + message("Globals set ", sQuote(name)) 1545s + y <- tryCatch({ 1545s + future_lapply(x, FUN = function(x) { 1545s + median(c(x, a, b)) 1545s + }, future.globals = globals, future.packages = "utils") 1545s + }, error = identity) 1545s + print(y) 1545s + stopifnot((name == "A" && inherits(y, "error")) || 1545s + identical(y, y_truth[[name]])) 1545s + } 1545s Globals set ‘A’ 1545s [00:52:25.474] future_lapply() ... 1545s [00:52:25.483] Number of chunks: 1 1545s [00:52:25.484] getGlobalsAndPackagesXApply() ... 1545s [00:52:25.484] - future.globals: FALSE 1545s [00:52:25.488] - globals found/used: [n=2] ‘FUN’, ‘future.call.arguments’ 1545s [00:52:25.488] - needed namespaces: [n=0] 1545s [00:52:25.488] Finding globals ... DONE 1545s [00:52:25.489] - use_args: TRUE 1545s [00:52:25.489] - Getting '...' globals ... 1545s [00:52:25.491] - '...' content: [n=0] 1545s [00:52:25.491] List of 1 1545s [00:52:25.491] $ ...: list() 1545s [00:52:25.491] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1545s [00:52:25.491] - attr(*, "where")=List of 1 1545s [00:52:25.491] ..$ ...: 1545s [00:52:25.491] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1545s [00:52:25.491] - attr(*, "resolved")= logi TRUE 1545s [00:52:25.491] - attr(*, "total_size")= num NA 1545s [00:52:25.495] - Getting '...' globals ... DONE 1545s [00:52:25.495] Globals to be used in all futures (chunks): [n=3] ‘...future.FUN’, ‘future.call.arguments’, ‘...’ 1545s [00:52:25.495] List of 3 1545s [00:52:25.495] $ ...future.FUN :function (x) 1545s [00:52:25.495] $ future.call.arguments: list() 1545s [00:52:25.495] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1545s [00:52:25.495] $ ... : list() 1545s [00:52:25.495] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1545s [00:52:25.495] - attr(*, "where")=List of 3 1545s [00:52:25.495] ..$ ...future.FUN : 1545s [00:52:25.495] ..$ future.call.arguments: 1545s [00:52:25.495] ..$ ... : 1545s [00:52:25.495] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1545s [00:52:25.495] - attr(*, "resolved")= logi FALSE 1545s [00:52:25.495] - attr(*, "total_size")= num 3824 1545s [00:52:25.501] Packages to be attached in all futures: [n=1] ‘utils’ 1545s [00:52:25.502] getGlobalsAndPackagesXApply() ... DONE 1545s [00:52:25.502] Number of futures (= number of chunks): 1 1545s [00:52:25.502] Launching 1 futures (chunks) ... 1545s [00:52:25.502] Chunk #1 of 1 ... 1545s [00:52:25.503] - seeds: 1545s [00:52:25.503] - All globals exported: [n=6] ‘...future.FUN’, ‘future.call.arguments’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1545s [00:52:25.516] Created future: 1545s [00:52:25.516] ClusterFuture: 1545s [00:52:25.516] Label: ‘future_lapply-1’ 1545s [00:52:25.516] Expression: 1545s [00:52:25.516] { 1545s [00:52:25.516] do.call(function(...) { 1545s [00:52:25.516] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1545s [00:52:25.516] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1545s [00:52:25.516] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1545s [00:52:25.516] on.exit(options(oopts), add = TRUE) 1545s [00:52:25.516] } 1545s [00:52:25.516] { 1545s [00:52:25.516] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1545s [00:52:25.516] ...future.X_jj <- ...future.elements_ii[[jj]] 1545s [00:52:25.516] ...future.FUN(...future.X_jj, ...) 1545s [00:52:25.516] }) 1545s [00:52:25.516] } 1545s [00:52:25.516] }, args = future.call.arguments) 1545s [00:52:25.516] } 1545s [00:52:25.516] Lazy evaluation: FALSE 1545s [00:52:25.516] Asynchronous evaluation: TRUE 1545s [00:52:25.516] Local evaluation: TRUE 1545s [00:52:25.516] Environment: R_GlobalEnv 1545s [00:52:25.516] Capture standard output: TRUE 1545s [00:52:25.516] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1545s [00:52:25.516] Globals: 5 objects totaling 3.79 KiB (function ‘...future.FUN’ of 3.73 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 56 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1545s [00:52:25.516] Packages: 1 packages (‘utils’) 1545s [00:52:25.516] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1545s [00:52:25.516] Resolved: FALSE 1545s [00:52:25.516] Value: 1545s [00:52:25.516] Conditions captured: 1545s [00:52:25.516] Early signaling: FALSE 1545s [00:52:25.516] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1545s [00:52:25.516] Class: ‘ClusterFuture’, ‘MultiprocessFuture’, ‘Future’, ‘environment’ 1545s [00:52:25.532] Chunk #1 of 1 ... DONE 1545s [00:52:25.532] Launching 1 futures (chunks) ... DONE 1545s [00:52:25.532] Resolving 1 futures (chunks) ... 1545s Globals set ‘B’ 1545s [00:52:25.584] future_lapply() ... 1545s 1545s [00:52:25.585] Number of chunks: 1 1545s [00:52:25.585] getGlobalsAndPackagesXApply() ... 1545s [00:52:25.586] - future.globals: TRUE 1545s [00:52:25.591] - globals found/used: [n=3] ‘FUN’, ‘a’, ‘b’ 1545s [00:52:25.592] - needed namespaces: [n=1] ‘stats’ 1545s [00:52:25.592] Finding globals ... DONE 1545s [00:52:25.592] - use_args: TRUE 1545s [00:52:25.592] - Getting '...' globals ... 1545s [00:52:25.593] - '...' content: [n=0] 1545s [00:52:25.593] List of 1 1545s [00:52:25.593] $ ...: list() 1545s [00:52:25.593] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1545s [00:52:25.593] - attr(*, "where")=List of 1 1545s [00:52:25.593] ..$ ...: 1545s [00:52:25.593] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1545s [00:52:25.593] - attr(*, "resolved")= logi TRUE 1545s [00:52:25.593] - attr(*, "total_size")= num NA 1545s [00:52:25.598] - Getting '...' globals ... DONE 1545s [00:52:25.598] Globals to be used in all futures (chunks): [n=4] ‘...future.FUN’, ‘a’, ‘b’, ‘...’ 1545s [00:52:25.598] List of 4 1545s [00:52:25.598] $ ...future.FUN:function (x) 1545s [00:52:25.598] $ a : num 1 1545s [00:52:25.598] $ b : num 2 1545s [00:52:25.598] $ ... : list() 1545s [00:52:25.598] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1545s [00:52:25.598] - attr(*, "where")=List of 4 1545s [00:52:25.598] ..$ ...future.FUN: 1545s [00:52:25.598] ..$ a : 1545s [00:52:25.598] ..$ b : 1545s [00:52:25.598] ..$ ... : 1545s [00:52:25.598] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1545s [00:52:25.598] - attr(*, "resolved")= logi FALSE 1545s [00:52:25.598] - attr(*, "total_size")= num 3936 1545s [00:52:25.610] Packages to be attached in all futures: [n=2] ‘stats’, ‘utils’ 1545s [00:52:25.616] getGlobalsAndPackagesXApply() ... DONE 1545s [00:52:25.616] Number of futures (= number of chunks): 1 1545s [00:52:25.616] Launching 1 futures (chunks) ... 1545s [00:52:25.616] Chunk #1 of 1 ... 1545s [00:52:25.616] - Finding globals in 'X' for chunk #1 ... 1545s [00:52:25.617] + additional globals found: [n=0] 1545s [00:52:25.617] + additional namespaces needed: [n=0] 1545s [00:52:25.617] - Finding globals in 'X' for chunk #1 ... DONE 1545s [00:52:25.617] - seeds: 1545s [00:52:25.618] - All globals exported: [n=7] ‘...future.FUN’, ‘a’, ‘b’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1545s [00:52:25.628] Created future: 1545s [00:52:25.629] ClusterFuture: 1545s [00:52:25.629] Label: ‘future_lapply-1’ 1545s [00:52:25.629] Expression: 1545s [00:52:25.629] { 1545s [00:52:25.629] do.call(function(...) { 1545s [00:52:25.629] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1545s [00:52:25.629] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1545s [00:52:25.629] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1545s [00:52:25.629] on.exit(options(oopts), add = TRUE) 1545s [00:52:25.629] } 1545s [00:52:25.629] { 1545s [00:52:25.629] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1545s [00:52:25.629] ...future.X_jj <- ...future.elements_ii[[jj]] 1545s [00:52:25.629] ...future.FUN(...future.X_jj, ...) 1545s [00:52:25.629] }) 1545s [00:52:25.629] } 1545s [00:52:25.629] }, args = future.call.arguments) 1545s [00:52:25.629] } 1545s [00:52:25.629] Lazy evaluation: FALSE 1545s [00:52:25.629] Asynchronous evaluation: TRUE 1545s [00:52:25.629] Local evaluation: TRUE 1545s [00:52:25.629] Environment: R_GlobalEnv 1545s [00:52:25.629] Capture standard output: TRUE 1545s [00:52:25.629] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1545s [00:52:25.629] Globals: 7 objects totaling 3.90 KiB (function ‘...future.FUN’ of 3.73 KiB, numeric ‘a’ of 56 bytes, numeric ‘b’ of 56 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 56 bytes, ...) 1545s [00:52:25.629] Packages: 2 packages (‘stats’, ‘utils’) 1545s [00:52:25.629] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1545s [00:52:25.629] Resolved: FALSE 1545s [00:52:25.629] Value: 1545s [00:52:25.629] Conditions captured: 1545s [00:52:25.629] Early signaling: FALSE 1545s [00:52:25.629] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1545s [00:52:25.629] Class: ‘ClusterFuture’, ‘MultiprocessFuture’, ‘Future’, ‘environment’ 1545s [00:52:25.642] Chunk #1 of 1 ... DONE 1545s [00:52:25.642] Launching 1 futures (chunks) ... DONE 1545s [00:52:25.642] Resolving 1 futures (chunks) ... 1545s [00:52:25.674] - Number of value chunks collected: 1 1545s [00:52:25.674] Resolving 1 futures (chunks) ... DONE 1545s [00:52:25.674] Reducing values from 1 chunks ... 1545s [00:52:25.674] - Number of values collected after concatenation: 1 1545s [00:52:25.674] - Number of values expected: 1 1545s [00:52:25.674] Reducing values from 1 chunks ... DONE 1545s [00:52:25.675] future_lapply() ... DONE 1545s [[1]] 1545s [1] 1 1545s 1545s Globals set ‘C’ 1545s [00:52:25.675] future_lapply() ... 1545s [00:52:25.676] Number of chunks: 1 1545s [00:52:25.676] getGlobalsAndPackagesXApply() ... 1545s [00:52:25.676] - future.globals: ‘a’, ‘b’ 1545s [00:52:25.677] - use_args: TRUE 1545s [00:52:25.677] Globals to be used in all futures (chunks): [n=4] ‘a’, ‘b’, ‘...future.FUN’, ‘...’ 1545s [00:52:25.677] List of 4 1545s [00:52:25.677] $ a : num 1 1545s [00:52:25.677] $ b : num 2 1545s [00:52:25.677] $ ...future.FUN:function (x) 1545s [00:52:25.677] $ ... : list() 1545s [00:52:25.677] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1545s [00:52:25.677] - attr(*, "where")=List of 4 1545s [00:52:25.677] ..$ a : 1545s [00:52:25.677] ..$ b : 1545s [00:52:25.677] ..$ ...future.FUN: 1545s [00:52:25.677] ..$ ... : 1545s [00:52:25.677] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1545s [00:52:25.677] - attr(*, "resolved")= logi FALSE 1545s [00:52:25.677] - attr(*, "total_size")= num NA 1545s [00:52:25.682] Packages to be attached in all futures: [n=1] ‘utils’ 1545s [00:52:25.682] getGlobalsAndPackagesXApply() ... DONE 1545s [00:52:25.683] Number of futures (= number of chunks): 1 1545s [00:52:25.683] Launching 1 futures (chunks) ... 1545s [00:52:25.683] Chunk #1 of 1 ... 1545s [00:52:25.683] - seeds: 1545s [00:52:25.683] - All globals exported: [n=7] ‘a’, ‘b’, ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1545s [00:52:25.694] Created future: 1545s [00:52:25.694] ClusterFuture: 1545s [00:52:25.694] Label: ‘future_lapply-1’ 1545s [00:52:25.694] Expression: 1545s [00:52:25.694] { 1545s [00:52:25.694] do.call(function(...) { 1545s [00:52:25.694] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1545s [00:52:25.694] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1545s [00:52:25.694] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1545s [00:52:25.694] on.exit(options(oopts), add = TRUE) 1545s [00:52:25.694] } 1545s [00:52:25.694] { 1545s [00:52:25.694] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1545s [00:52:25.694] ...future.X_jj <- ...future.elements_ii[[jj]] 1545s [00:52:25.694] ...future.FUN(...future.X_jj, ...) 1545s [00:52:25.694] }) 1545s [00:52:25.694] } 1545s [00:52:25.694] }, args = future.call.arguments) 1545s [00:52:25.694] } 1545s [00:52:25.694] Lazy evaluation: FALSE 1545s [00:52:25.694] Asynchronous evaluation: TRUE 1545s [00:52:25.694] Local evaluation: TRUE 1545s [00:52:25.694] Environment: R_GlobalEnv 1545s [00:52:25.694] Capture standard output: TRUE 1545s [00:52:25.694] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1545s [00:52:25.694] Globals: 7 objects totaling 3.90 KiB (numeric ‘a’ of 56 bytes, numeric ‘b’ of 56 bytes, function ‘...future.FUN’ of 3.73 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 56 bytes, ...) 1545s [00:52:25.694] Packages: 1 packages (‘utils’) 1545s [00:52:25.694] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1545s [00:52:25.694] Resolved: FALSE 1545s [00:52:25.694] Value: 1545s [00:52:25.694] Conditions captured: 1545s [00:52:25.694] Early signaling: FALSE 1545s [00:52:25.694] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1545s [00:52:25.694] Class: ‘ClusterFuture’, ‘MultiprocessFuture’, ‘Future’, ‘environment’ 1545s [00:52:25.706] Chunk #1 of 1 ... DONE 1545s [00:52:25.706] Launching 1 futures (chunks) ... DONE 1545s [00:52:25.706] Resolving 1 futures (chunks) ... 1545s [[1]] 1545s [1] 1 1545s 1545s [00:52:25.750] - Number of value chunks collected: 1 1545s [00:52:25.750] Resolving 1 futures (chunks) ... DONE 1545s [00:52:25.750] Reducing values from 1 chunks ... 1545s [00:52:25.750] - Number of values collected after concatenation: 1 1545s [00:52:25.750] - Number of values expected: 1 1545s [00:52:25.750] Reducing values from 1 chunks ... DONE 1545s [00:52:25.750] future_lapply() ... DONE 1545s Globals set ‘D’ 1545s [00:52:25.751] future_lapply() ... 1545s [00:52:25.752] Number of chunks: 1 1545s [00:52:25.752] getGlobalsAndPackagesXApply() ... 1545s [00:52:25.752] - future.globals: with names ‘2’, ‘3’ 1545s [00:52:25.753] - use_args: TRUE 1545s [00:52:25.753] - Getting '...' globals ... 1545s [00:52:25.753] - '...' content: [n=0] 1545s [00:52:25.753] List of 1 1545s [00:52:25.753] $ ...: list() 1545s [00:52:25.753] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1545s [00:52:25.753] - attr(*, "where")=List of 1 1545s [00:52:25.753] ..$ ...: 1545s [00:52:25.753] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1545s [00:52:25.753] - attr(*, "resolved")= logi TRUE 1545s [00:52:25.753] - attr(*, "total_size")= num NA 1545s [00:52:25.757] - Getting '...' globals ... DONE 1545s [00:52:25.757] Globals to be used in all futures (chunks): [n=4] ‘a’, ‘b’, ‘...future.FUN’, ‘...’ 1545s [00:52:25.757] List of 4 1545s [00:52:25.757] $ a : num 2 1545s [00:52:25.757] $ b : num 3 1545s [00:52:25.757] $ ...future.FUN:function (x) 1545s [00:52:25.757] $ ... : list() 1545s [00:52:25.757] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1545s [00:52:25.757] - attr(*, "where")=List of 4 1545s [00:52:25.757] ..$ a : 1545s [00:52:25.757] ..$ b : 1545s [00:52:25.757] ..$ ...future.FUN: 1545s [00:52:25.757] ..$ ... : 1545s [00:52:25.757] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1545s [00:52:25.757] - attr(*, "resolved")= logi FALSE 1545s [00:52:25.757] - attr(*, "total_size")= num NA 1545s [00:52:25.763] Packages to be attached in all futures: [n=1] ‘utils’ 1545s [00:52:25.763] getGlobalsAndPackagesXApply() ... DONE 1545s [00:52:25.763] Number of futures (= number of chunks): 1 1545s [00:52:25.763] Launching 1 futures (chunks) ... 1545s [00:52:25.763] Chunk #1 of 1 ... 1545s [00:52:25.764] - seeds: 1545s [00:52:25.764] - All globals exported: [n=7] ‘a’, ‘b’, ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1545s [00:52:25.775] Created future: 1545s [00:52:25.775] ClusterFuture: 1545s [00:52:25.775] Label: ‘future_lapply-1’ 1545s [00:52:25.775] Expression: 1545s [00:52:25.775] { 1545s [00:52:25.775] do.call(function(...) { 1545s [00:52:25.775] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1545s [00:52:25.775] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1545s [00:52:25.775] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1545s [00:52:25.775] on.exit(options(oopts), add = TRUE) 1545s [00:52:25.775] } 1545s [00:52:25.775] { 1545s [00:52:25.775] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1545s [00:52:25.775] ...future.X_jj <- ...future.elements_ii[[jj]] 1545s [00:52:25.775] ...future.FUN(...future.X_jj, ...) 1545s [00:52:25.775] }) 1545s [00:52:25.775] } 1545s [00:52:25.775] }, args = future.call.arguments) 1545s [00:52:25.775] } 1545s [00:52:25.775] Lazy evaluation: FALSE 1545s [00:52:25.775] Asynchronous evaluation: TRUE 1545s [00:52:25.775] Local evaluation: TRUE 1545s [00:52:25.775] Environment: R_GlobalEnv 1545s [00:52:25.775] Capture standard output: TRUE 1545s [00:52:25.775] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1545s [00:52:25.775] Globals: 7 objects totaling 3.90 KiB (numeric ‘a’ of 56 bytes, numeric ‘b’ of 56 bytes, function ‘...future.FUN’ of 3.73 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 56 bytes, ...) 1545s [00:52:25.775] Packages: 1 packages (‘utils’) 1545s [00:52:25.775] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1545s [00:52:25.775] Resolved: FALSE 1545s [00:52:25.775] Value: 1545s [00:52:25.775] Conditions captured: 1545s [00:52:25.775] Early signaling: FALSE 1545s [00:52:25.775] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1545s [00:52:25.775] Class: ‘ClusterFuture’, ‘MultiprocessFuture’, ‘Future’, ‘environment’ 1545s [00:52:25.788] Chunk #1 of 1 ... DONE 1545s [00:52:25.788] Launching 1 futures (chunks) ... DONE 1545s [00:52:25.788] Resolving 1 futures (chunks) ... 1545s [00:52:25.833] - Number of value chunks collected: 1 1545s [00:52:25.834] Resolving 1 futures (chunks) ... DONE 1545s [00:52:25.834] Reducing values from 1 chunks ... 1545s [00:52:25.834] - Number of values collected after concatenation: 1 1545s [00:52:25.834] - Number of values expected: 1 1545s [00:52:25.834] Reducing values from 1 chunks ... DONE 1545s [00:52:25.834] future_lapply() ... DONE 1545s [[1]] 1545s [1] 2 1545s 1545s > 1545s > message("*** future_lapply() - globals ... DONE") 1545s *** future_lapply() - globals ... DONE 1545s *** future_lapply() - manual globals ... 1545s > 1545s > 1545s > message("*** future_lapply() - manual globals ...") 1545s > 1545s > d <- 42 1545s > y <- future_lapply(1:2, FUN = function(x) { x * d }, 1545s + future.globals = structure(FALSE, add = "d")) 1545s [00:52:25.836] future_lapply() ... 1545s [00:52:25.836] Number of chunks: 1 1545s [00:52:25.837] getGlobalsAndPackagesXApply() ... 1545s [00:52:25.837] - future.globals: FALSE 1545s [00:52:25.838] - globals found/used: [n=3] ‘d’, ‘FUN’, ‘future.call.arguments’ 1545s [00:52:25.838] - needed namespaces: [n=0] 1545s [00:52:25.838] Finding globals ... DONE 1545s [00:52:25.838] - use_args: TRUE 1545s [00:52:25.839] - Getting '...' globals ... 1545s [00:52:25.839] - '...' content: [n=0] 1545s [00:52:25.839] List of 1 1545s [00:52:25.839] $ ...: list() 1545s [00:52:25.839] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1545s [00:52:25.839] - attr(*, "where")=List of 1 1545s [00:52:25.839] ..$ ...: 1545s [00:52:25.839] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1545s [00:52:25.839] - attr(*, "resolved")= logi TRUE 1545s [00:52:25.839] - attr(*, "total_size")= num NA 1545s [00:52:25.842] - Getting '...' globals ... DONE 1545s [00:52:25.843] Globals to be used in all futures (chunks): [n=4] ‘d’, ‘...future.FUN’, ‘future.call.arguments’, ‘...’ 1545s [00:52:25.843] List of 4 1545s [00:52:25.843] $ d : num 42 1545s [00:52:25.843] $ ...future.FUN :function (x) 1545s [00:52:25.843] $ future.call.arguments: list() 1545s [00:52:25.843] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1545s [00:52:25.843] $ ... : list() 1545s [00:52:25.843] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1545s [00:52:25.843] - attr(*, "where")=List of 4 1545s [00:52:25.843] ..$ d : 1545s [00:52:25.843] ..$ ...future.FUN : 1545s [00:52:25.843] ..$ future.call.arguments: 1545s [00:52:25.843] ..$ ... : 1545s [00:52:25.843] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1545s [00:52:25.843] - attr(*, "resolved")= logi FALSE 1545s [00:52:25.843] - attr(*, "total_size")= num 784 1545s [00:52:25.848] Packages to be attached in all futures: [n=0] 1545s [00:52:25.848] getGlobalsAndPackagesXApply() ... DONE 1545s [00:52:25.848] Number of futures (= number of chunks): 1 1545s [00:52:25.849] Launching 1 futures (chunks) ... 1545s [00:52:25.849] Chunk #1 of 1 ... 1545s [00:52:25.849] - seeds: 1545s [00:52:25.849] - All globals exported: [n=7] ‘d’, ‘...future.FUN’, ‘future.call.arguments’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1545s [00:52:25.861] Created future: 1545s [00:52:25.861] ClusterFuture: 1545s [00:52:25.861] Label: ‘future_lapply-1’ 1545s [00:52:25.861] Expression: 1545s [00:52:25.861] { 1545s [00:52:25.861] do.call(function(...) { 1545s [00:52:25.861] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1545s [00:52:25.861] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1545s [00:52:25.861] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1545s [00:52:25.861] on.exit(options(oopts), add = TRUE) 1545s [00:52:25.861] } 1545s [00:52:25.861] { 1545s [00:52:25.861] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1545s [00:52:25.861] ...future.X_jj <- ...future.elements_ii[[jj]] 1545s [00:52:25.861] ...future.FUN(...future.X_jj, ...) 1545s [00:52:25.861] }) 1545s [00:52:25.861] } 1545s [00:52:25.861] }, args = future.call.arguments) 1545s [00:52:25.861] } 1545s [00:52:25.861] Lazy evaluation: FALSE 1545s [00:52:25.861] Asynchronous evaluation: TRUE 1545s [00:52:25.861] Local evaluation: TRUE 1545s [00:52:25.861] Environment: R_GlobalEnv 1545s [00:52:25.861] Capture standard output: TRUE 1545s [00:52:25.861] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1545s [00:52:25.861] Globals: 6 objects totaling 896 bytes (numeric ‘d’ of 56 bytes, function ‘...future.FUN’ of 728 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, ...) 1545s [00:52:25.861] Packages: 1545s [00:52:25.861] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1545s [00:52:25.861] Resolved: FALSE 1545s [00:52:25.861] Value: 1545s [00:52:25.861] Conditions captured: 1545s [00:52:25.861] Early signaling: FALSE 1545s [00:52:25.861] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1545s [00:52:25.861] Class: ‘ClusterFuture’, ‘MultiprocessFuture’, ‘Future’, ‘environment’ 1545s [00:52:25.874] Chunk #1 of 1 ... DONE 1545s [00:52:25.874] Launching 1 futures (chunks) ... DONE 1545s [00:52:25.874] Resolving 1 futures (chunks) ... 1545s [00:52:25.918] - Number of value chunks collected: 1 1545s [00:52:25.918] Resolving 1 futures (chunks) ... DONE 1545s [00:52:25.918] Reducing values from 1 chunks ... 1545s [00:52:25.919] - Number of values collected after concatenation: 2 1545s [00:52:25.919] - Number of values expected: 2 1545s [00:52:25.919] Reducing values from 1 chunks ... DONE 1545s [00:52:25.919] future_lapply() ... DONE 1545s > stopifnot(identical(y, list(42, 84))) 1545s > 1545s > e <- 42 1545s > res <- tryCatch({ 1545s + future_lapply(1:2, FUN = function(x) { 2 * e }, 1545s + future.globals = structure(TRUE, ignore = "e")) 1545s + }, error = identity) 1545s [00:52:25.920] future_lapply() ... 1545s [00:52:25.921] Number of chunks: 1 1545s [00:52:25.921] getGlobalsAndPackagesXApply() ... 1545s [00:52:25.921] - future.globals: TRUE 1545s [00:52:25.924] - globals found/used: [n=1] ‘FUN’ 1545s [00:52:25.924] - needed namespaces: [n=0] 1545s [00:52:25.924] Finding globals ... DONE 1545s [00:52:25.924] - use_args: TRUE 1545s [00:52:25.924] - Getting '...' globals ... 1545s [00:52:25.925] - '...' content: [n=0] 1545s [00:52:25.925] List of 1 1545s [00:52:25.925] $ ...: list() 1545s [00:52:25.925] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1545s [00:52:25.925] - attr(*, "where")=List of 1 1545s [00:52:25.925] ..$ ...: 1545s [00:52:25.925] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1545s [00:52:25.925] - attr(*, "resolved")= logi TRUE 1545s [00:52:25.925] - attr(*, "total_size")= num NA 1545s [00:52:25.931] - Getting '...' globals ... DONE 1545s [00:52:25.932] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1545s [00:52:25.932] List of 2 1545s [00:52:25.932] $ ...future.FUN:function (x) 1545s [00:52:25.932] $ ... : list() 1545s [00:52:25.932] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1545s [00:52:25.932] - attr(*, "where")=List of 2 1545s [00:52:25.932] ..$ ...future.FUN: 1545s [00:52:25.932] ..$ ... : 1545s [00:52:25.932] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1545s [00:52:25.932] - attr(*, "resolved")= logi FALSE 1545s [00:52:25.932] - attr(*, "total_size")= num 728 1545s [00:52:25.937] Packages to be attached in all futures: [n=0] 1545s [00:52:25.937] getGlobalsAndPackagesXApply() ... DONE 1545s [00:52:25.938] Number of futures (= number of chunks): 1 1545s [00:52:25.938] Launching 1 futures (chunks) ... 1545s [00:52:25.938] Chunk #1 of 1 ... 1545s [00:52:25.938] - Finding globals in 'X' for chunk #1 ... 1545s [00:52:25.939] + additional globals found: [n=0] 1545s [00:52:25.939] + additional namespaces needed: [n=0] 1545s [00:52:25.939] - Finding globals in 'X' for chunk #1 ... DONE 1545s [00:52:25.939] - seeds: 1545s [00:52:25.940] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1545s [00:52:25.951] Created future: 1545s [00:52:25.952] ClusterFuture: 1545s [00:52:25.952] Label: ‘future_lapply-1’ 1545s [00:52:25.952] Expression: 1545s [00:52:25.952] { 1545s [00:52:25.952] do.call(function(...) { 1545s [00:52:25.952] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1545s [00:52:25.952] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1545s [00:52:25.952] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1545s [00:52:25.952] on.exit(options(oopts), add = TRUE) 1545s [00:52:25.952] } 1545s [00:52:25.952] { 1545s [00:52:25.952] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1545s [00:52:25.952] ...future.X_jj <- ...future.elements_ii[[jj]] 1545s [00:52:25.952] ...future.FUN(...future.X_jj, ...) 1545s [00:52:25.952] }) 1545s [00:52:25.952] } 1545s [00:52:25.952] }, args = future.call.arguments) 1545s [00:52:25.952] } 1545s [00:52:25.952] Lazy evaluation: FALSE 1545s [00:52:25.952] Asynchronous evaluation: TRUE 1545s [00:52:25.952] Local evaluation: TRUE 1545s [00:52:25.952] Environment: R_GlobalEnv 1545s [00:52:25.952] Capture standard output: TRUE 1545s [00:52:25.952] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1545s [00:52:25.952] Globals: 5 objects totaling 840 bytes (function ‘...future.FUN’ of 728 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1545s [00:52:25.952] Packages: 1545s [00:52:25.952] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1545s [00:52:25.952] Resolved: FALSE 1545s [00:52:25.952] Value: 1545s [00:52:25.952] Conditions captured: 1545s [00:52:25.952] Early signaling: FALSE 1545s [00:52:25.952] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1545s [00:52:25.952] Class: ‘ClusterFuture’, ‘MultiprocessFuture’, ‘Future’, ‘environment’ 1545s [00:52:25.964] Chunk #1 of 1 ... DONE 1545s [00:52:25.965] Launching 1 futures (chunks) ... DONE 1545s [00:52:25.965] Resolving 1 futures (chunks) ... 1546s > stopifnot(inherits(res, "error")) 1546s > 1546s > message("*** future_lapply() - manual globals ... DONE") 1546s *** future_lapply() - manual globals ... DONE 1546s *** future_lapply() - tricky globals ... 1546s > 1546s > 1546s > 1546s > ## Test adopted from http://stackoverflow.com/questions/42561088/nested-do-call-within-a-foreach-dopar-environment-cant-find-function-passed-w 1546s > 1546s > message("*** future_lapply() - tricky globals ...") 1546s > 1546s > my_add <- function(a, b) a + b 1546s > 1546s > call_my_add <- function(a, b) { 1546s + do.call(my_add, args = list(a = a, b = b)) 1546s + } 1546s > 1546s > call_my_add_caller <- function(a, b, FUN = call_my_add) { 1546s + do.call(FUN, args = list(a = a, b = b)) 1546s + } 1546s > 1546s > main <- function(x = 1:2, caller = call_my_add_caller, 1546s + args = list(FUN = call_my_add)) { 1546s + results <- future_lapply(x, FUN = function(i) { 1546s + do.call(caller, args = c(list(a = i, b = i + 1L), args)) 1546s + }) 1546s + results 1546s + } 1546s > 1546s > x <- list(list(1:2)) 1546s > z_length <- lapply(x, FUN = do.call, what = length) 1546s > fun <- function(...) sum(...) 1546s > z_fun <- lapply(x, FUN = do.call, what = fun) 1546s > 1546s > y0 <- NULL 1546s > for (strategy in supportedStrategies()) { 1546s + plan(strategy) 1546s + 1546s + y <- main(1:3) 1546s + if (is.null(y0)) y0 <- y 1546s + stopifnot(identical(y, y0)) 1546s + 1546s + message("- future_lapply(x, FUN = do.call, ...) ...") 1546s + z <- future_lapply(x, FUN = do.call, what = length) 1546s + stopifnot(identical(z, z_length)) 1546s + z <- future_lapply(x, FUN = do.call, what = fun) 1546s + stopifnot(identical(z, z_fun)) 1546s + 1546s + message("- future_lapply(x, ...) - passing arguments via '...' ...") 1546s + ## typeof() == "list" 1546s + obj <- data.frame(a = 1:2) 1546s + stopifnot(typeof(obj) == "list") 1546s + y <- future_lapply(1L, function(a, b) typeof(b), b = obj) 1546s + stopifnot(identical(y[[1]], typeof(obj))) 1546s + 1546s + ## typeof() == "environment" 1546s + obj <- new.env() 1546s + stopifnot(typeof(obj) == "environment") 1546s + y <- future_lapply(1L, function(a, b) typeof(b), b = obj) 1546s + stopifnot(identical(y[[1]], typeof(obj))) 1546s + 1546s + ## typeof() == "S4" 1546s + if (requireNamespace("methods")) { 1546s + obj <- methods::getClass("MethodDefinition") 1546s + stopifnot(typeof(obj) == "S4") 1546s + y <- future_lapply(1L, function(a, b) typeof(b), b = obj) 1546s + stopifnot(identical(y[[1]], typeof(obj))) 1546s + } 1546s + 1546s + message("- future_lapply(X, ...) - 'X' containing globals ...") 1546s + ## From https://github.com/HenrikBengtsson/future.apply/issues/12 1546s + a <- 42 1546s + b <- 21 1546s + X <- list( 1546s + function(b) 2 * a, 1546s + function() b / 2, 1546s + function() a + b, 1546s + function() nchar(toTitleCase("hello world")) 1546s + ) 1546s + z0 <- lapply(X, FUN = function(f) f()) 1546s + str(z0) 1546s + z1 <- future_lapply(X, FUN = function(f) f()) 1546s + str(z1) 1546s + stopifnot(identical(z1, z0)) 1546s + 1546s + message("- future_lapply(x, ...) - passing '...' as a global ...") 1546s + ## https://github.com/HenrikBengtsson/future/issues/417 1546s + fcn0 <- function(...) { lapply(1, FUN = function(x) list(...)) } 1546s + z0 <- fcn0(a = 1) 1546s + str(list(z0 = z0)) 1546s + stopifnot(identical(z0, list(list(a = 1)))) 1546s + fcn <- function(...) { future_lapply(1, FUN = function(x) list(...)) } 1546s + z1 <- fcn(a = 1) 1546s + str(list(z1 = z1)) 1546s + stopifnot(identical(z1, z0)) 1546s + 1546s + ## https://github.com/HenrikBengtsson/future.apply/issues/47 1546s + message("- future_lapply(X, ...) - '{ a <- a + 1; a }' ...") 1546s + a <- 1 1546s + z0 <- lapply(1, function(ii) { 1546s + a <- a + 1 1546s + a 1546s + }) 1546s + z1 <- future_lapply(1, function(ii) { 1546s + a <- a + 1 1546s + a 1546s + }) 1546s + stopifnot(identical(z1, z0)) 1546s + 1546s + ## https://github.com/HenrikBengtsson/future.apply/issues/47 1546s + message("- future_lapply(X, ...) - '{ a; a <- a + 1 }' ...") 1546s + z2 <- tryCatch(future_lapply(1, function(ii) { 1546s + a 1546s + a <- a + 1 1546s + }), error = identity) 1546s + stopifnot(identical(z2, z0)) 1546s + 1546s + ## https://github.com/HenrikBengtsson/future.apply/issues/85 1546s + message("- future_lapply(..., future.globals = ) ...") 1546s + a <- 0 1546s + y <- future_lapply(1, FUN = function(x) a, future.globals = list(a = 42)) 1546s + str(y) 1546s + stopifnot(y[[1]] == 42) 1546s + } ## for (strategy ...) 1546s [00:52:26.091] future_lapply() ... 1546s [00:52:26.093] Number of chunks: 1 1546s [00:52:26.095] getGlobalsAndPackagesXApply() ... 1546s [00:52:26.096] - future.globals: TRUE 1546s [00:52:26.111] - globals found/used: [n=5] ‘FUN’, ‘caller’, ‘args’, ‘call_my_add’, ‘my_add’ 1546s [00:52:26.112] - needed namespaces: [n=0] 1546s [00:52:26.112] Finding globals ... DONE 1546s [00:52:26.112] - use_args: TRUE 1546s [00:52:26.112] - Getting '...' globals ... 1546s [00:52:26.113] - '...' content: [n=0] 1546s [00:52:26.113] List of 1 1546s [00:52:26.113] $ ...: list() 1546s [00:52:26.113] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1546s [00:52:26.113] - attr(*, "where")=List of 1 1546s [00:52:26.113] ..$ ...: 1546s [00:52:26.113] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1546s [00:52:26.113] - attr(*, "resolved")= logi TRUE 1546s [00:52:26.113] - attr(*, "total_size")= num NA 1546s [00:52:26.119] - Getting '...' globals ... DONE 1546s [00:52:26.119] Globals to be used in all futures (chunks): [n=6] ‘...future.FUN’, ‘caller’, ‘args’, ‘call_my_add’, ‘my_add’, ‘...’ 1546s [00:52:26.119] List of 6 1546s [00:52:26.119] $ ...future.FUN:function (i) 1546s [00:52:26.119] $ caller :function (a, b, FUN = call_my_add) 1546s [00:52:26.119] $ args :List of 1 1546s [00:52:26.119] ..$ FUN:function (a, b) 1546s [00:52:26.119] $ call_my_add :function (a, b) 1546s [00:52:26.119] $ my_add :function (a, b) 1546s [00:52:26.119] $ ... : list() 1546s [00:52:26.119] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1546s [00:52:26.119] - attr(*, "where")=List of 6 1546s [00:52:26.119] ..$ ...future.FUN: 1546s [00:52:26.119] ..$ caller : 1546s [00:52:26.119] ..$ args : 1546s [00:52:26.119] ..$ call_my_add : 1546s [00:52:26.119] ..$ my_add : 1546s [00:52:26.119] ..$ ... : 1546s [00:52:26.119] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1546s [00:52:26.119] - attr(*, "resolved")= logi FALSE 1546s [00:52:26.119] - attr(*, "total_size")= num 6664 1546s [00:52:26.129] Packages to be attached in all futures: [n=0] 1546s [00:52:26.129] getGlobalsAndPackagesXApply() ... DONE 1546s [00:52:26.129] Number of futures (= number of chunks): 1 1546s [00:52:26.129] Launching 1 futures (chunks) ... 1546s [00:52:26.129] Chunk #1 of 1 ... 1546s [00:52:26.130] - Finding globals in 'X' for chunk #1 ... 1546s [00:52:26.130] + additional globals found: [n=0] 1546s [00:52:26.130] + additional namespaces needed: [n=0] 1546s [00:52:26.131] - Finding globals in 'X' for chunk #1 ... DONE 1546s [00:52:26.131] - seeds: 1546s [00:52:26.131] - All globals exported: [n=9] ‘...future.FUN’, ‘caller’, ‘args’, ‘call_my_add’, ‘my_add’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1546s [00:52:26.143] Created future: 1546s [00:52:26.143] SequentialFuture: 1546s [00:52:26.143] Label: ‘future_lapply-1’ 1546s [00:52:26.143] Expression: 1546s [00:52:26.143] { 1546s [00:52:26.143] do.call(function(...) { 1546s [00:52:26.143] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1546s [00:52:26.143] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1546s [00:52:26.143] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1546s [00:52:26.143] on.exit(options(oopts), add = TRUE) 1546s [00:52:26.143] } 1546s [00:52:26.143] { 1546s [00:52:26.143] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1546s [00:52:26.143] ...future.X_jj <- ...future.elements_ii[[jj]] 1546s [00:52:26.143] ...future.FUN(...future.X_jj, ...) 1546s [00:52:26.143] }) 1546s [00:52:26.143] } 1546s [00:52:26.143] }, args = future.call.arguments) 1546s [00:52:26.143] } 1546s [00:52:26.143] Lazy evaluation: FALSE 1546s [00:52:26.143] Asynchronous evaluation: FALSE 1546s [00:52:26.143] Local evaluation: TRUE 1546s [00:52:26.143] Environment: 0x2aa1f1dbb38 1546s [00:52:26.143] Capture standard output: TRUE 1546s [00:52:26.143] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1546s [00:52:26.143] Globals: 9 objects totaling 16.21 KiB (function ‘...future.FUN’ of 1.70 KiB, function ‘caller’ of 1.48 KiB, list ‘args’ of 5.72 KiB, function ‘call_my_add’ of 5.72 KiB, function ‘my_add’ of 1.44 KiB, ...) 1546s [00:52:26.143] Packages: 1546s [00:52:26.143] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1546s [00:52:26.143] Resolved: TRUE 1546s [00:52:26.143] Value: 168 bytes of class ‘list’ 1546s [00:52:26.143] Early signaling: FALSE 1546s [00:52:26.143] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1546s [00:52:26.143] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1546s [00:52:26.146] Chunk #1 of 1 ... DONE 1546s [00:52:26.146] Launching 1 futures (chunks) ... DONE 1546s [00:52:26.146] Resolving 1 futures (chunks) ... 1546s [00:52:26.147] - Number of value chunks collected: 1 1546s [00:52:26.147] Resolving 1 futures (chunks) ... DONE 1546s [00:52:26.147] Reducing values from 1 chunks ... 1546s [00:52:26.147] - Number of values collected after concatenation: 3 1546s [00:52:26.148] - Number of values expected: 3 1546s [00:52:26.148] Reducing values from 1 chunks ... DONE 1546s [00:52:26.148] future_lapply() ... DONE 1546s - future_lapply(x, FUN = do.call, ...) ... 1546s [00:52:26.148] future_lapply() ... 1546s [00:52:26.154] Number of chunks: 1 1546s [00:52:26.154] getGlobalsAndPackagesXApply() ... 1546s [00:52:26.154] - future.globals: TRUE 1546s [00:52:26.158] - globals found/used: [n=1] ‘FUN’ 1546s [00:52:26.158] - needed namespaces: [n=0] 1546s [00:52:26.158] Finding globals ... DONE 1546s [00:52:26.158] - use_args: TRUE 1546s [00:52:26.159] - Getting '...' globals ... 1546s [00:52:26.159] - '...' content: [n=1] ‘what’ 1546s [00:52:26.159] List of 1 1546s [00:52:26.159] $ ...:List of 1 1546s [00:52:26.159] ..$ what:function (x) 1546s [00:52:26.159] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1546s [00:52:26.159] - attr(*, "where")=List of 1 1546s [00:52:26.159] ..$ ...: 1546s [00:52:26.159] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1546s [00:52:26.159] - attr(*, "resolved")= logi TRUE 1546s [00:52:26.159] - attr(*, "total_size")= num NA 1546s [00:52:26.163] - Getting '...' globals ... DONE 1546s [00:52:26.164] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1546s [00:52:26.164] List of 2 1546s [00:52:26.164] $ ...future.FUN:function (what, args, quote = FALSE, envir = parent.frame()) 1546s [00:52:26.164] $ ... :List of 1 1546s [00:52:26.164] ..$ what:function (x) 1546s [00:52:26.164] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1546s [00:52:26.164] - attr(*, "where")=List of 2 1546s [00:52:26.164] ..$ ...future.FUN: 1546s [00:52:26.164] ..$ ... : 1546s [00:52:26.164] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1546s [00:52:26.164] - attr(*, "resolved")= logi FALSE 1546s [00:52:26.164] - attr(*, "total_size")= num 12192 1546s [00:52:26.168] Packages to be attached in all futures: [n=0] 1546s [00:52:26.168] getGlobalsAndPackagesXApply() ... DONE 1546s [00:52:26.168] Number of futures (= number of chunks): 1 1546s [00:52:26.168] Launching 1 futures (chunks) ... 1546s [00:52:26.168] Chunk #1 of 1 ... 1546s [00:52:26.168] - Finding globals in 'X' for chunk #1 ... 1546s [00:52:26.169] + additional globals found: [n=0] 1546s [00:52:26.169] + additional namespaces needed: [n=0] 1546s [00:52:26.169] - Finding globals in 'X' for chunk #1 ... DONE 1546s [00:52:26.169] - seeds: 1546s [00:52:26.169] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1546s [00:52:26.172] Created future: 1546s [00:52:26.172] SequentialFuture: 1546s [00:52:26.172] Label: ‘future_lapply-1’ 1546s [00:52:26.172] Expression: 1546s [00:52:26.172] { 1546s [00:52:26.172] do.call(function(...) { 1546s [00:52:26.172] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1546s [00:52:26.172] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1546s [00:52:26.172] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1546s [00:52:26.172] on.exit(options(oopts), add = TRUE) 1546s [00:52:26.172] } 1546s [00:52:26.172] { 1546s [00:52:26.172] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1546s [00:52:26.172] ...future.X_jj <- ...future.elements_ii[[jj]] 1546s [00:52:26.172] ...future.FUN(...future.X_jj, ...) 1546s [00:52:26.172] }) 1546s [00:52:26.172] } 1546s [00:52:26.172] }, args = future.call.arguments) 1546s [00:52:26.172] } 1546s [00:52:26.172] Lazy evaluation: FALSE 1546s [00:52:26.172] Asynchronous evaluation: FALSE 1546s [00:52:26.172] Local evaluation: TRUE 1546s [00:52:26.172] Environment: R_GlobalEnv 1546s [00:52:26.172] Capture standard output: TRUE 1546s [00:52:26.172] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1546s [00:52:26.172] Globals: 5 objects totaling 11.96 KiB (function ‘...future.FUN’ of 11.85 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 56 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1546s [00:52:26.172] Packages: 1546s [00:52:26.172] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1546s [00:52:26.172] Resolved: TRUE 1546s [00:52:26.172] Value: 56 bytes of class ‘list’ 1546s [00:52:26.172] Early signaling: FALSE 1546s [00:52:26.172] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1546s [00:52:26.172] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1546s [00:52:26.174] Chunk #1 of 1 ... DONE 1546s [00:52:26.174] Launching 1 futures (chunks) ... DONE 1546s [00:52:26.174] Resolving 1 futures (chunks) ... 1546s [00:52:26.174] - Number of value chunks collected: 1 1546s [00:52:26.174] Resolving 1 futures (chunks) ... DONE 1546s [00:52:26.174] Reducing values from 1 chunks ... 1546s [00:52:26.175] - Number of values collected after concatenation: 1 1546s [00:52:26.175] - Number of values expected: 1 1546s [00:52:26.175] Reducing values from 1 chunks ... DONE 1546s [00:52:26.175] future_lapply() ... DONE 1546s [00:52:26.175] future_lapply() ... 1546s [00:52:26.177] Number of chunks: 1 1546s [00:52:26.177] getGlobalsAndPackagesXApply() ... 1546s [00:52:26.177] - future.globals: TRUE 1546s [00:52:26.181] - globals found/used: [n=1] ‘FUN’ 1546s [00:52:26.181] - needed namespaces: [n=0] 1546s [00:52:26.181] Finding globals ... DONE 1546s [00:52:26.182] - use_args: TRUE 1546s [00:52:26.182] - Getting '...' globals ... 1546s [00:52:26.182] - '...' content: [n=1] ‘what’ 1546s [00:52:26.182] List of 1 1546s [00:52:26.182] $ ...:List of 1 1546s [00:52:26.182] ..$ what:function (...) 1546s [00:52:26.182] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1546s [00:52:26.182] - attr(*, "where")=List of 1 1546s [00:52:26.182] ..$ ...: 1546s [00:52:26.182] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1546s [00:52:26.182] - attr(*, "resolved")= logi TRUE 1546s [00:52:26.182] - attr(*, "total_size")= num NA 1546s [00:52:26.186] - Getting '...' globals ... DONE 1546s [00:52:26.186] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1546s [00:52:26.187] List of 2 1546s [00:52:26.187] $ ...future.FUN:function (what, args, quote = FALSE, envir = parent.frame()) 1546s [00:52:26.187] $ ... :List of 1 1546s [00:52:26.187] ..$ what:function (...) 1546s [00:52:26.187] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1546s [00:52:26.187] - attr(*, "where")=List of 2 1546s [00:52:26.187] ..$ ...future.FUN: 1546s [00:52:26.187] ..$ ... : 1546s [00:52:26.187] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1546s [00:52:26.187] - attr(*, "resolved")= logi FALSE 1546s [00:52:26.187] - attr(*, "total_size")= num 12584 1546s [00:52:26.190] Packages to be attached in all futures: [n=0] 1546s [00:52:26.190] getGlobalsAndPackagesXApply() ... DONE 1546s [00:52:26.191] Number of futures (= number of chunks): 1 1546s [00:52:26.191] Launching 1 futures (chunks) ... 1546s [00:52:26.191] Chunk #1 of 1 ... 1546s [00:52:26.191] - Finding globals in 'X' for chunk #1 ... 1546s [00:52:26.192] + additional globals found: [n=0] 1546s [00:52:26.192] + additional namespaces needed: [n=0] 1546s [00:52:26.192] - Finding globals in 'X' for chunk #1 ... DONE 1546s [00:52:26.192] - seeds: 1546s [00:52:26.192] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1546s [00:52:26.197] Created future: 1546s [00:52:26.198] SequentialFuture: 1546s [00:52:26.198] Label: ‘future_lapply-1’ 1546s [00:52:26.198] Expression: 1546s [00:52:26.198] { 1546s [00:52:26.198] do.call(function(...) { 1546s [00:52:26.198] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1546s [00:52:26.198] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1546s [00:52:26.198] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1546s [00:52:26.198] on.exit(options(oopts), add = TRUE) 1546s [00:52:26.198] } 1546s [00:52:26.198] { 1546s [00:52:26.198] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1546s [00:52:26.198] ...future.X_jj <- ...future.elements_ii[[jj]] 1546s [00:52:26.198] ...future.FUN(...future.X_jj, ...) 1546s [00:52:26.198] }) 1546s [00:52:26.198] } 1546s [00:52:26.198] }, args = future.call.arguments) 1546s [00:52:26.198] } 1546s [00:52:26.198] Lazy evaluation: FALSE 1546s [00:52:26.198] Asynchronous evaluation: FALSE 1546s [00:52:26.198] Local evaluation: TRUE 1546s [00:52:26.198] Environment: R_GlobalEnv 1546s [00:52:26.198] Capture standard output: TRUE 1546s [00:52:26.198] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1546s [00:52:26.198] Globals: 5 objects totaling 13.09 KiB (function ‘...future.FUN’ of 11.85 KiB, DotDotDotList ‘future.call.arguments’ of 1.19 KiB, list ‘...future.elements_ii’ of 56 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1546s [00:52:26.198] Packages: 1546s [00:52:26.198] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1546s [00:52:26.198] Resolved: TRUE 1546s [00:52:26.198] Value: 56 bytes of class ‘list’ 1546s [00:52:26.198] Early signaling: FALSE 1546s [00:52:26.198] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1546s [00:52:26.198] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1546s [00:52:26.199] Chunk #1 of 1 ... DONE 1546s [00:52:26.199] Launching 1 futures (chunks) ... DONE 1546s [00:52:26.200] Resolving 1 futures (chunks) ... 1546s [00:52:26.200] - Number of value chunks collected: 1 1546s [00:52:26.200] Resolving 1 futures (chunks) ... DONE 1546s [00:52:26.200] Reducing values from 1 chunks ... 1546s [00:52:26.200] - Number of values collected after concatenation: 1 1546s [00:52:26.201] - Number of values expected: 1 1546s [00:52:26.201] Reducing values from 1 chunks ... DONE 1546s [00:52:26.201] future_lapply() ... DONE 1546s - future_lapply(x, ...) - passing arguments via '...' ... 1546s [00:52:26.201] future_lapply() ... 1546s [00:52:26.202] Number of chunks: 1 1546s [00:52:26.202] getGlobalsAndPackagesXApply() ... 1546s [00:52:26.202] - future.globals: TRUE 1546s [00:52:26.204] - globals found/used: [n=1] ‘FUN’ 1546s [00:52:26.204] - needed namespaces: [n=0] 1546s [00:52:26.204] Finding globals ... DONE 1546s [00:52:26.205] - use_args: TRUE 1546s [00:52:26.205] - Getting '...' globals ... 1546s [00:52:26.205] - '...' content: [n=1] ‘b’ 1546s [00:52:26.205] List of 1 1546s [00:52:26.205] $ ...:List of 1 1546s [00:52:26.205] ..$ b:'data.frame': 2 obs. of 1 variable: 1546s [00:52:26.205] .. ..$ a: int [1:2] 1 2 1546s [00:52:26.205] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1546s [00:52:26.205] - attr(*, "where")=List of 1 1546s [00:52:26.205] ..$ ...: 1546s [00:52:26.205] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1546s [00:52:26.205] - attr(*, "resolved")= logi TRUE 1546s [00:52:26.205] - attr(*, "total_size")= num NA 1546s [00:52:26.209] - Getting '...' globals ... DONE 1546s [00:52:26.209] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1546s [00:52:26.210] List of 2 1546s [00:52:26.210] $ ...future.FUN:function (a, b) 1546s [00:52:26.210] $ ... :List of 1 1546s [00:52:26.210] ..$ b:'data.frame': 2 obs. of 1 variable: 1546s [00:52:26.210] .. ..$ a: int [1:2] 1 2 1546s [00:52:26.210] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1546s [00:52:26.210] - attr(*, "where")=List of 2 1546s [00:52:26.210] ..$ ...future.FUN: 1546s [00:52:26.210] ..$ ... : 1546s [00:52:26.210] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1546s [00:52:26.210] - attr(*, "resolved")= logi FALSE 1546s [00:52:26.210] - attr(*, "total_size")= num 1440 1546s [00:52:26.214] Packages to be attached in all futures: [n=0] 1546s [00:52:26.214] getGlobalsAndPackagesXApply() ... DONE 1546s [00:52:26.214] Number of futures (= number of chunks): 1 1546s [00:52:26.214] Launching 1 futures (chunks) ... 1546s [00:52:26.214] Chunk #1 of 1 ... 1546s [00:52:26.214] - Finding globals in 'X' for chunk #1 ... 1546s [00:52:26.215] + additional globals found: [n=0] 1546s [00:52:26.215] + additional namespaces needed: [n=0] 1546s [00:52:26.215] - Finding globals in 'X' for chunk #1 ... DONE 1546s [00:52:26.215] - seeds: 1546s [00:52:26.215] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1546s [00:52:26.218] Created future: 1546s [00:52:26.218] SequentialFuture: 1546s [00:52:26.218] Label: ‘future_lapply-1’ 1546s [00:52:26.218] Expression: 1546s [00:52:26.218] { 1546s [00:52:26.218] do.call(function(...) { 1546s [00:52:26.218] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1546s [00:52:26.218] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1546s [00:52:26.218] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1546s [00:52:26.218] on.exit(options(oopts), add = TRUE) 1546s [00:52:26.218] } 1546s [00:52:26.218] { 1546s [00:52:26.218] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1546s [00:52:26.218] ...future.X_jj <- ...future.elements_ii[[jj]] 1546s [00:52:26.218] ...future.FUN(...future.X_jj, ...) 1546s [00:52:26.218] }) 1546s [00:52:26.218] } 1546s [00:52:26.218] }, args = future.call.arguments) 1546s [00:52:26.218] } 1546s [00:52:26.218] Lazy evaluation: FALSE 1546s [00:52:26.218] Asynchronous evaluation: FALSE 1546s [00:52:26.218] Local evaluation: TRUE 1546s [00:52:26.218] Environment: R_GlobalEnv 1546s [00:52:26.218] Capture standard output: TRUE 1546s [00:52:26.218] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1546s [00:52:26.218] Globals: 5 objects totaling 1.52 KiB (function ‘...future.FUN’ of 1.41 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 56 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1546s [00:52:26.218] Packages: 1546s [00:52:26.218] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1546s [00:52:26.218] Resolved: TRUE 1546s [00:52:26.218] Value: 112 bytes of class ‘list’ 1546s [00:52:26.218] Early signaling: FALSE 1546s [00:52:26.218] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1546s [00:52:26.218] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1546s [00:52:26.223] Chunk #1 of 1 ... DONE 1546s [00:52:26.223] Launching 1 futures (chunks) ... DONE 1546s [00:52:26.223] Resolving 1 futures (chunks) ... 1546s [00:52:26.224] - Number of value chunks collected: 1 1546s [00:52:26.224] Resolving 1 futures (chunks) ... DONE 1546s [00:52:26.225] Reducing values from 1 chunks ... 1546s [00:52:26.225] - Number of values collected after concatenation: 1 1546s [00:52:26.225] - Number of values expected: 1 1546s [00:52:26.225] Reducing values from 1 chunks ... DONE 1546s [00:52:26.225] future_lapply() ... DONE 1546s [00:52:26.226] future_lapply() ... 1546s [00:52:26.226] Number of chunks: 1 1546s [00:52:26.226] getGlobalsAndPackagesXApply() ... 1546s [00:52:26.226] - future.globals: TRUE 1546s [00:52:26.228] - globals found/used: [n=1] ‘FUN’ 1546s [00:52:26.228] - needed namespaces: [n=0] 1546s [00:52:26.229] Finding globals ... DONE 1546s [00:52:26.229] - use_args: TRUE 1546s [00:52:26.229] - Getting '...' globals ... 1546s [00:52:26.229] - '...' content: [n=1] ‘b’ 1546s [00:52:26.229] List of 1 1546s [00:52:26.229] $ ...:List of 1 1546s [00:52:26.229] ..$ b: 1546s [00:52:26.229] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1546s [00:52:26.229] - attr(*, "where")=List of 1 1546s [00:52:26.229] ..$ ...: 1546s [00:52:26.229] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1546s [00:52:26.229] - attr(*, "resolved")= logi TRUE 1546s [00:52:26.229] - attr(*, "total_size")= num NA 1546s [00:52:26.233] - Getting '...' globals ... DONE 1546s [00:52:26.233] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1546s [00:52:26.233] List of 2 1546s [00:52:26.233] $ ...future.FUN:function (a, b) 1546s [00:52:26.233] $ ... :List of 1 1546s [00:52:26.233] ..$ b: 1546s [00:52:26.233] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1546s [00:52:26.233] - attr(*, "where")=List of 2 1546s [00:52:26.233] ..$ ...future.FUN: 1546s [00:52:26.233] ..$ ... : 1546s [00:52:26.233] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1546s [00:52:26.233] - attr(*, "resolved")= logi FALSE 1546s [00:52:26.233] - attr(*, "total_size")= num 1440 1546s [00:52:26.239] Packages to be attached in all futures: [n=0] 1546s [00:52:26.239] getGlobalsAndPackagesXApply() ... DONE 1546s [00:52:26.239] Number of futures (= number of chunks): 1 1546s [00:52:26.240] Launching 1 futures (chunks) ... 1546s [00:52:26.240] Chunk #1 of 1 ... 1546s [00:52:26.240] - Finding globals in 'X' for chunk #1 ... 1546s [00:52:26.240] + additional globals found: [n=0] 1546s [00:52:26.241] + additional namespaces needed: [n=0] 1546s [00:52:26.241] - Finding globals in 'X' for chunk #1 ... DONE 1546s [00:52:26.241] - seeds: 1546s [00:52:26.241] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1546s [00:52:26.244] Created future: 1546s [00:52:26.245] SequentialFuture: 1546s [00:52:26.245] Label: ‘future_lapply-1’ 1546s [00:52:26.245] Expression: 1546s [00:52:26.245] { 1546s [00:52:26.245] do.call(function(...) { 1546s [00:52:26.245] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1546s [00:52:26.245] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1546s [00:52:26.245] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1546s [00:52:26.245] on.exit(options(oopts), add = TRUE) 1546s [00:52:26.245] } 1546s [00:52:26.245] { 1546s [00:52:26.245] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1546s [00:52:26.245] ...future.X_jj <- ...future.elements_ii[[jj]] 1546s [00:52:26.245] ...future.FUN(...future.X_jj, ...) 1546s [00:52:26.245] }) 1546s [00:52:26.245] } 1546s [00:52:26.245] }, args = future.call.arguments) 1546s [00:52:26.245] } 1546s [00:52:26.245] Lazy evaluation: FALSE 1546s [00:52:26.245] Asynchronous evaluation: FALSE 1546s [00:52:26.245] Local evaluation: TRUE 1546s [00:52:26.245] Environment: R_GlobalEnv 1546s [00:52:26.245] Capture standard output: TRUE 1546s [00:52:26.245] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1546s [00:52:26.245] Globals: 5 objects totaling 1.46 KiB (function ‘...future.FUN’ of 1.41 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 56 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1546s [00:52:26.245] Packages: 1546s [00:52:26.245] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1546s [00:52:26.245] Resolved: TRUE 1546s [00:52:26.245] Value: 120 bytes of class ‘list’ 1546s [00:52:26.245] Early signaling: FALSE 1546s [00:52:26.245] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1546s [00:52:26.245] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1546s [00:52:26.247] Chunk #1 of 1 ... DONE 1546s [00:52:26.247] Launching 1 futures (chunks) ... DONE 1546s [00:52:26.247] Resolving 1 futures (chunks) ... 1546s [00:52:26.248] - Number of value chunks collected: 1 1546s [00:52:26.248] Resolving 1 futures (chunks) ... DONE 1546s [00:52:26.248] Reducing values from 1 chunks ... 1546s [00:52:26.248] - Number of values collected after concatenation: 1 1546s [00:52:26.248] - Number of values expected: 1 1546s [00:52:26.248] Reducing values from 1 chunks ... DONE 1546s [00:52:26.249] future_lapply() ... DONE 1546s [00:52:26.249] future_lapply() ... 1546s [00:52:26.250] Number of chunks: 1 1546s [00:52:26.250] getGlobalsAndPackagesXApply() ... 1546s [00:52:26.250] - future.globals: TRUE 1546s [00:52:26.253] - globals found/used: [n=1] ‘FUN’ 1546s [00:52:26.253] - needed namespaces: [n=0] 1546s [00:52:26.254] Finding globals ... DONE 1546s [00:52:26.254] - use_args: TRUE 1546s [00:52:26.254] - Getting '...' globals ... 1546s [00:52:26.255] - '...' content: [n=1] ‘b’ 1546s [00:52:26.255] List of 1 1546s [00:52:26.255] $ ...:List of 1 1546s [00:52:26.255] ..$ b:Formal class 'classRepresentation' [package "methods"] with 11 slots 1546s [00:52:26.255] .. .. ..@ slots :List of 4 1546s [00:52:26.255] .. .. .. ..$ .Data : chr "function" 1546s [00:52:26.255] .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.255] .. .. .. ..$ target : chr "signature" 1546s [00:52:26.255] .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.255] .. .. .. ..$ defined: chr "signature" 1546s [00:52:26.255] .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.255] .. .. .. ..$ generic: chr "character" 1546s [00:52:26.255] .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.255] .. .. ..@ contains :List of 3 1546s [00:52:26.255] .. .. .. ..$ function :Formal class 'SClassExtension' [package "methods"] with 10 slots 1546s [00:52:26.255] .. .. .. .. .. ..@ subClass : chr "MethodDefinition" 1546s [00:52:26.255] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.255] .. .. .. .. .. ..@ superClass: chr "function" 1546s [00:52:26.255] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.255] .. .. .. .. .. ..@ package : chr "methods" 1546s [00:52:26.255] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1546s [00:52:26.255] .. .. .. .. .. ..@ test :function (object) 1546s [00:52:26.255] .. .. .. .. .. ..@ replace :function (from, to, value) 1546s [00:52:26.255] .. .. .. .. .. ..@ simple : logi TRUE 1546s [00:52:26.255] .. .. .. .. .. ..@ by : chr(0) 1546s [00:52:26.255] .. .. .. .. .. ..@ dataPart : logi TRUE 1546s [00:52:26.255] .. .. .. .. .. ..@ distance : num 1 1546s [00:52:26.255] .. .. .. ..$ PossibleMethod :Formal class 'SClassExtension' [package "methods"] with 10 slots 1546s [00:52:26.255] .. .. .. .. .. ..@ subClass : chr "MethodDefinition" 1546s [00:52:26.255] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.255] .. .. .. .. .. ..@ superClass: chr "PossibleMethod" 1546s [00:52:26.255] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.255] .. .. .. .. .. ..@ package : chr "methods" 1546s [00:52:26.255] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1546s [00:52:26.255] .. .. .. .. .. ..@ test :function (object) 1546s [00:52:26.255] .. .. .. .. .. ..@ replace :function (from, to, value) 1546s [00:52:26.255] .. .. .. .. .. ..@ simple : logi TRUE 1546s [00:52:26.255] .. .. .. .. .. ..@ by : chr(0) 1546s [00:52:26.255] .. .. .. .. .. ..@ dataPart : logi FALSE 1546s [00:52:26.255] .. .. .. .. .. ..@ distance : num 1 1546s [00:52:26.255] .. .. .. ..$ OptionalFunction:Formal class 'SClassExtension' [package "methods"] with 10 slots 1546s [00:52:26.255] .. .. .. .. .. ..@ subClass : chr "MethodDefinition" 1546s [00:52:26.255] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.255] .. .. .. .. .. ..@ superClass: chr "OptionalFunction" 1546s [00:52:26.255] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.255] .. .. .. .. .. ..@ package : chr "methods" 1546s [00:52:26.255] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1546s [00:52:26.255] .. .. .. .. .. ..@ test :function (object) 1546s [00:52:26.255] .. .. .. .. .. ..@ replace :function (from, to, value) 1546s [00:52:26.255] .. .. .. .. .. ..@ simple : logi TRUE 1546s [00:52:26.255] .. .. .. .. .. ..@ by : chr "function" 1546s [00:52:26.255] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.255] .. .. .. .. .. ..@ dataPart : logi FALSE 1546s [00:52:26.255] .. .. .. .. .. ..@ distance : num 2 1546s [00:52:26.255] .. .. ..@ virtual : logi FALSE 1546s [00:52:26.255] .. .. ..@ prototype :Formal class 'function' [package ""] with 0 slots 1546s [00:52:26.255] list() 1546s [00:52:26.255] .. .. .. .. ..$ target :Formal class 'signature' [package "methods"] with 3 slots 1546s [00:52:26.255] .. .. .. .. .. .. ..@ .Data : chr(0) 1546s [00:52:26.255] .. .. .. .. .. .. ..@ names : chr(0) 1546s [00:52:26.255] .. .. .. .. .. .. ..@ package: chr(0) 1546s [00:52:26.255] .. .. .. .. ..$ defined:Formal class 'signature' [package "methods"] with 3 slots 1546s [00:52:26.255] .. .. .. .. .. .. ..@ .Data : chr(0) 1546s [00:52:26.255] .. .. .. .. .. .. ..@ names : chr(0) 1546s [00:52:26.255] .. .. .. .. .. .. ..@ package: chr(0) 1546s [00:52:26.255] .. .. .. .. ..$ generic: chr(0) 1546s [00:52:26.255] .. .. ..@ validity : NULL 1546s [00:52:26.255] .. .. ..@ access : list() 1546s [00:52:26.255] .. .. ..@ className : chr "MethodDefinition" 1546s [00:52:26.255] .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.255] .. .. ..@ package : chr "methods" 1546s [00:52:26.255] .. .. ..@ subclasses:List of 7 1546s [00:52:26.255] .. .. .. ..$ derivedDefaultMethod :Formal class 'SClassExtension' [package "methods"] with 10 slots 1546s [00:52:26.255] .. .. .. .. .. ..@ subClass : chr "derivedDefaultMethod" 1546s [00:52:26.255] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.255] .. .. .. .. .. ..@ superClass: chr "MethodDefinition" 1546s [00:52:26.255] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.255] .. .. .. .. .. ..@ package : chr "methods" 1546s [00:52:26.255] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1546s [00:52:26.255] .. .. .. .. .. ..@ test :function (object) 1546s [00:52:26.255] .. .. .. .. .. ..@ replace :function (from, to, value) 1546s [00:52:26.255] .. .. .. .. .. ..@ simple : logi TRUE 1546s [00:52:26.255] .. .. .. .. .. ..@ by : chr(0) 1546s [00:52:26.255] .. .. .. .. .. ..@ dataPart : logi FALSE 1546s [00:52:26.255] .. .. .. .. .. ..@ distance : num 1 1546s [00:52:26.255] .. .. .. ..$ MethodWithNext :Formal class 'SClassExtension' [package "methods"] with 10 slots 1546s [00:52:26.255] .. .. .. .. .. ..@ subClass : chr "MethodWithNext" 1546s [00:52:26.255] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.255] .. .. .. .. .. ..@ superClass: chr "MethodDefinition" 1546s [00:52:26.255] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.255] .. .. .. .. .. ..@ package : chr "methods" 1546s [00:52:26.255] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1546s [00:52:26.255] .. .. .. .. .. ..@ test :function (object) 1546s [00:52:26.255] .. .. .. .. .. ..@ replace :function (from, to, value) 1546s [00:52:26.255] .. .. .. .. .. ..@ simple : logi TRUE 1546s [00:52:26.255] .. .. .. .. .. ..@ by : chr(0) 1546s [00:52:26.255] .. .. .. .. .. ..@ dataPart : logi FALSE 1546s [00:52:26.255] .. .. .. .. .. ..@ distance : num 1 1546s [00:52:26.255] .. .. .. ..$ SealedMethodDefinition :Formal class 'SClassExtension' [package "methods"] with 10 slots 1546s [00:52:26.255] .. .. .. .. .. ..@ subClass : chr "SealedMethodDefinition" 1546s [00:52:26.255] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.255] .. .. .. .. .. ..@ superClass: chr "MethodDefinition" 1546s [00:52:26.255] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.255] .. .. .. .. .. ..@ package : chr "methods" 1546s [00:52:26.255] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1546s [00:52:26.255] .. .. .. .. .. ..@ test :function (object) 1546s [00:52:26.255] .. .. .. .. .. ..@ replace :function (from, to, value) 1546s [00:52:26.255] .. .. .. .. .. ..@ simple : logi TRUE 1546s [00:52:26.255] .. .. .. .. .. ..@ by : chr(0) 1546s [00:52:26.255] .. .. .. .. .. ..@ dataPart : logi FALSE 1546s [00:52:26.255] .. .. .. .. .. ..@ distance : num 1 1546s [00:52:26.255] .. .. .. ..$ MethodDefinitionWithTrace :Formal class 'SClassExtension' [package "methods"] with 10 slots 1546s [00:52:26.255] .. .. .. .. .. ..@ subClass : chr "MethodDefinitionWithTrace" 1546s [00:52:26.255] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.255] .. .. .. .. .. ..@ superClass: chr "MethodDefinition" 1546s [00:52:26.255] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.255] .. .. .. .. .. ..@ package : chr "methods" 1546s [00:52:26.255] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1546s [00:52:26.255] .. .. .. .. .. ..@ test :function (object) 1546s [00:52:26.255] .. .. .. .. .. ..@ replace :function (from, to, value) 1546s [00:52:26.255] .. .. .. .. .. ..@ simple : logi TRUE 1546s [00:52:26.255] .. .. .. .. .. ..@ by : chr(0) 1546s [00:52:26.255] .. .. .. .. .. ..@ dataPart : logi FALSE 1546s [00:52:26.255] .. .. .. .. .. ..@ distance : num 1 1546s [00:52:26.255] .. .. .. ..$ internalDispatchMethod :Formal class 'SClassExtension' [package "methods"] with 10 slots 1546s [00:52:26.255] .. .. .. .. .. ..@ subClass : chr "internalDispatchMethod" 1546s [00:52:26.255] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.255] .. .. .. .. .. ..@ superClass: chr "MethodDefinition" 1546s [00:52:26.255] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.255] .. .. .. .. .. ..@ package : chr "methods" 1546s [00:52:26.255] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1546s [00:52:26.255] .. .. .. .. .. ..@ test :function (object) 1546s [00:52:26.255] .. .. .. .. .. ..@ replace :function (from, to, value) 1546s [00:52:26.255] .. .. .. .. .. ..@ simple : logi TRUE 1546s [00:52:26.255] .. .. .. .. .. ..@ by : chr "derivedDefaultMethod" 1546s [00:52:26.255] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.255] .. .. .. .. .. ..@ dataPart : logi FALSE 1546s [00:52:26.255] .. .. .. .. .. ..@ distance : num 2 1546s [00:52:26.255] .. .. .. ..$ MethodWithNextWithTrace :Formal class 'SClassExtension' [package "methods"] with 10 slots 1546s [00:52:26.255] .. .. .. .. .. ..@ subClass : chr "MethodWithNextWithTrace" 1546s [00:52:26.255] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.255] .. .. .. .. .. ..@ superClass: chr "MethodDefinition" 1546s [00:52:26.255] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.255] .. .. .. .. .. ..@ package : chr "methods" 1546s [00:52:26.255] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1546s [00:52:26.255] .. .. .. .. .. ..@ test :function (object) 1546s [00:52:26.255] .. .. .. .. .. ..@ replace :function (from, to, value) 1546s [00:52:26.255] .. .. .. .. .. ..@ simple : logi TRUE 1546s [00:52:26.255] .. .. .. .. .. ..@ by : chr "MethodWithNext" 1546s [00:52:26.255] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.255] .. .. .. .. .. ..@ dataPart : logi FALSE 1546s [00:52:26.255] .. .. .. .. .. ..@ distance : num 2 1546s [00:52:26.255] .. .. .. ..$ derivedDefaultMethodWithTrace:Formal class 'SClassExtension' [package "methods"] with 10 slots 1546s [00:52:26.255] .. .. .. .. .. ..@ subClass : chr "derivedDefaultMethodWithTrace" 1546s [00:52:26.255] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.255] .. .. .. .. .. ..@ superClass: chr "MethodDefinition" 1546s [00:52:26.255] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.255] .. .. .. .. .. ..@ package : chr "methods" 1546s [00:52:26.255] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1546s [00:52:26.255] .. .. .. .. .. ..@ test :function (object) 1546s [00:52:26.255] .. .. .. .. .. ..@ replace :function (from, to, value) 1546s [00:52:26.255] .. .. .. .. .. ..@ simple : logi TRUE 1546s [00:52:26.255] .. .. .. .. .. ..@ by : chr "derivedDefaultMethod" 1546s [00:52:26.255] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.255] .. .. .. .. .. ..@ dataPart : logi FALSE 1546s [00:52:26.255] .. .. .. .. .. ..@ distance : num 2 1546s [00:52:26.255] .. .. ..@ versionKey: 1546s [00:52:26.255] .. .. ..@ sealed : logi TRUE 1546s [00:52:26.255] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1546s [00:52:26.255] - attr(*, "where")=List of 1 1546s [00:52:26.255] ..$ ...: 1546s [00:52:26.255] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1546s [00:52:26.255] - attr(*, "resolved")= logi TRUE 1546s [00:52:26.255] - attr(*, "total_size")= num NA 1546s [00:52:26.326] - Getting '...' globals ... DONE 1546s [00:52:26.328] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1546s [00:52:26.328] List of 2 1546s [00:52:26.328] $ ...future.FUN:function (a, b) 1546s [00:52:26.328] $ ... :List of 1 1546s [00:52:26.328] ..$ b:Formal class 'classRepresentation' [package "methods"] with 11 slots 1546s [00:52:26.328] .. .. ..@ slots :List of 4 1546s [00:52:26.328] .. .. .. ..$ .Data : chr "function" 1546s [00:52:26.328] .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.328] .. .. .. ..$ target : chr "signature" 1546s [00:52:26.328] .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.328] .. .. .. ..$ defined: chr "signature" 1546s [00:52:26.328] .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.328] .. .. .. ..$ generic: chr "character" 1546s [00:52:26.328] .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.328] .. .. ..@ contains :List of 3 1546s [00:52:26.328] .. .. .. ..$ function :Formal class 'SClassExtension' [package "methods"] with 10 slots 1546s [00:52:26.328] .. .. .. .. .. ..@ subClass : chr "MethodDefinition" 1546s [00:52:26.328] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.328] .. .. .. .. .. ..@ superClass: chr "function" 1546s [00:52:26.328] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.328] .. .. .. .. .. ..@ package : chr "methods" 1546s [00:52:26.328] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1546s [00:52:26.328] .. .. .. .. .. ..@ test :function (object) 1546s [00:52:26.328] .. .. .. .. .. ..@ replace :function (from, to, value) 1546s [00:52:26.328] .. .. .. .. .. ..@ simple : logi TRUE 1546s [00:52:26.328] .. .. .. .. .. ..@ by : chr(0) 1546s [00:52:26.328] .. .. .. .. .. ..@ dataPart : logi TRUE 1546s [00:52:26.328] .. .. .. .. .. ..@ distance : num 1 1546s [00:52:26.328] .. .. .. ..$ PossibleMethod :Formal class 'SClassExtension' [package "methods"] with 10 slots 1546s [00:52:26.328] .. .. .. .. .. ..@ subClass : chr "MethodDefinition" 1546s [00:52:26.328] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.328] .. .. .. .. .. ..@ superClass: chr "PossibleMethod" 1546s [00:52:26.328] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.328] .. .. .. .. .. ..@ package : chr "methods" 1546s [00:52:26.328] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1546s [00:52:26.328] .. .. .. .. .. ..@ test :function (object) 1546s [00:52:26.328] .. .. .. .. .. ..@ replace :function (from, to, value) 1546s [00:52:26.328] .. .. .. .. .. ..@ simple : logi TRUE 1546s [00:52:26.328] .. .. .. .. .. ..@ by : chr(0) 1546s [00:52:26.328] .. .. .. .. .. ..@ dataPart : logi FALSE 1546s [00:52:26.328] .. .. .. .. .. ..@ distance : num 1 1546s [00:52:26.328] .. .. .. ..$ OptionalFunction:Formal class 'SClassExtension' [package "methods"] with 10 slots 1546s [00:52:26.328] .. .. .. .. .. ..@ subClass : chr "MethodDefinition" 1546s [00:52:26.328] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.328] .. .. .. .. .. ..@ superClass: chr "OptionalFunction" 1546s [00:52:26.328] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.328] .. .. .. .. .. ..@ package : chr "methods" 1546s [00:52:26.328] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1546s [00:52:26.328] .. .. .. .. .. ..@ test :function (object) 1546s [00:52:26.328] .. .. .. .. .. ..@ replace :function (from, to, value) 1546s [00:52:26.328] .. .. .. .. .. ..@ simple : logi TRUE 1546s [00:52:26.328] .. .. .. .. .. ..@ by : chr "function" 1546s [00:52:26.328] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.328] .. .. .. .. .. ..@ dataPart : logi FALSE 1546s [00:52:26.328] .. .. .. .. .. ..@ distance : num 2 1546s [00:52:26.328] .. .. ..@ virtual : logi FALSE 1546s [00:52:26.328] .. .. ..@ prototype :Formal class 'function' [package ""] with 0 slots 1546s [00:52:26.328] list() 1546s [00:52:26.328] .. .. .. .. ..$ target :Formal class 'signature' [package "methods"] with 3 slots 1546s [00:52:26.328] .. .. .. .. .. .. ..@ .Data : chr(0) 1546s [00:52:26.328] .. .. .. .. .. .. ..@ names : chr(0) 1546s [00:52:26.328] .. .. .. .. .. .. ..@ package: chr(0) 1546s [00:52:26.328] .. .. .. .. ..$ defined:Formal class 'signature' [package "methods"] with 3 slots 1546s [00:52:26.328] .. .. .. .. .. .. ..@ .Data : chr(0) 1546s [00:52:26.328] .. .. .. .. .. .. ..@ names : chr(0) 1546s [00:52:26.328] .. .. .. .. .. .. ..@ package: chr(0) 1546s [00:52:26.328] .. .. .. .. ..$ generic: chr(0) 1546s [00:52:26.328] .. .. ..@ validity : NULL 1546s [00:52:26.328] .. .. ..@ access : list() 1546s [00:52:26.328] .. .. ..@ className : chr "MethodDefinition" 1546s [00:52:26.328] .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.328] .. .. ..@ package : chr "methods" 1546s [00:52:26.328] .. .. ..@ subclasses:List of 7 1546s [00:52:26.328] .. .. .. ..$ derivedDefaultMethod :Formal class 'SClassExtension' [package "methods"] with 10 slots 1546s [00:52:26.328] .. .. .. .. .. ..@ subClass : chr "derivedDefaultMethod" 1546s [00:52:26.328] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.328] .. .. .. .. .. ..@ superClass: chr "MethodDefinition" 1546s [00:52:26.328] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.328] .. .. .. .. .. ..@ package : chr "methods" 1546s [00:52:26.328] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1546s [00:52:26.328] .. .. .. .. .. ..@ test :function (object) 1546s [00:52:26.328] .. .. .. .. .. ..@ replace :function (from, to, value) 1546s [00:52:26.328] .. .. .. .. .. ..@ simple : logi TRUE 1546s [00:52:26.328] .. .. .. .. .. ..@ by : chr(0) 1546s [00:52:26.328] .. .. .. .. .. ..@ dataPart : logi FALSE 1546s [00:52:26.328] .. .. .. .. .. ..@ distance : num 1 1546s [00:52:26.328] .. .. .. ..$ MethodWithNext :Formal class 'SClassExtension' [package "methods"] with 10 slots 1546s [00:52:26.328] .. .. .. .. .. ..@ subClass : chr "MethodWithNext" 1546s [00:52:26.328] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.328] .. .. .. .. .. ..@ superClass: chr "MethodDefinition" 1546s [00:52:26.328] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.328] .. .. .. .. .. ..@ package : chr "methods" 1546s [00:52:26.328] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1546s [00:52:26.328] .. .. .. .. .. ..@ test :function (object) 1546s [00:52:26.328] .. .. .. .. .. ..@ replace :function (from, to, value) 1546s [00:52:26.328] .. .. .. .. .. ..@ simple : logi TRUE 1546s [00:52:26.328] .. .. .. .. .. ..@ by : chr(0) 1546s [00:52:26.328] .. .. .. .. .. ..@ dataPart : logi FALSE 1546s [00:52:26.328] .. .. .. .. .. ..@ distance : num 1 1546s [00:52:26.328] .. .. .. ..$ SealedMethodDefinition :Formal class 'SClassExtension' [package "methods"] with 10 slots 1546s [00:52:26.328] .. .. .. .. .. ..@ subClass : chr "SealedMethodDefinition" 1546s [00:52:26.328] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.328] .. .. .. .. .. ..@ superClass: chr "MethodDefinition" 1546s [00:52:26.328] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.328] .. .. .. .. .. ..@ package : chr "methods" 1546s [00:52:26.328] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1546s [00:52:26.328] .. .. .. .. .. ..@ test :function (object) 1546s [00:52:26.328] .. .. .. .. .. ..@ replace :function (from, to, value) 1546s [00:52:26.328] .. .. .. .. .. ..@ simple : logi TRUE 1546s [00:52:26.328] .. .. .. .. .. ..@ by : chr(0) 1546s [00:52:26.328] .. .. .. .. .. ..@ dataPart : logi FALSE 1546s [00:52:26.328] .. .. .. .. .. ..@ distance : num 1 1546s [00:52:26.328] .. .. .. ..$ MethodDefinitionWithTrace :Formal class 'SClassExtension' [package "methods"] with 10 slots 1546s [00:52:26.328] .. .. .. .. .. ..@ subClass : chr "MethodDefinitionWithTrace" 1546s [00:52:26.328] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.328] .. .. .. .. .. ..@ superClass: chr "MethodDefinition" 1546s [00:52:26.328] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.328] .. .. .. .. .. ..@ package : chr "methods" 1546s [00:52:26.328] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1546s [00:52:26.328] .. .. .. .. .. ..@ test :function (object) 1546s [00:52:26.328] .. .. .. .. .. ..@ replace :function (from, to, value) 1546s [00:52:26.328] .. .. .. .. .. ..@ simple : logi TRUE 1546s [00:52:26.328] .. .. .. .. .. ..@ by : chr(0) 1546s [00:52:26.328] .. .. .. .. .. ..@ dataPart : logi FALSE 1546s [00:52:26.328] .. .. .. .. .. ..@ distance : num 1 1546s [00:52:26.328] .. .. .. ..$ internalDispatchMethod :Formal class 'SClassExtension' [package "methods"] with 10 slots 1546s [00:52:26.328] .. .. .. .. .. ..@ subClass : chr "internalDispatchMethod" 1546s [00:52:26.328] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.328] .. .. .. .. .. ..@ superClass: chr "MethodDefinition" 1546s [00:52:26.328] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.328] .. .. .. .. .. ..@ package : chr "methods" 1546s [00:52:26.328] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1546s [00:52:26.328] .. .. .. .. .. ..@ test :function (object) 1546s [00:52:26.328] .. .. .. .. .. ..@ replace :function (from, to, value) 1546s [00:52:26.328] .. .. .. .. .. ..@ simple : logi TRUE 1546s [00:52:26.328] .. .. .. .. .. ..@ by : chr "derivedDefaultMethod" 1546s [00:52:26.328] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.328] .. .. .. .. .. ..@ dataPart : logi FALSE 1546s [00:52:26.328] .. .. .. .. .. ..@ distance : num 2 1546s [00:52:26.328] .. .. .. ..$ MethodWithNextWithTrace :Formal class 'SClassExtension' [package "methods"] with 10 slots 1546s [00:52:26.328] .. .. .. .. .. ..@ subClass : chr "MethodWithNextWithTrace" 1546s [00:52:26.328] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.328] .. .. .. .. .. ..@ superClass: chr "MethodDefinition" 1546s [00:52:26.328] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.328] .. .. .. .. .. ..@ package : chr "methods" 1546s [00:52:26.328] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1546s [00:52:26.328] .. .. .. .. .. ..@ test :function (object) 1546s [00:52:26.328] .. .. .. .. .. ..@ replace :function (from, to, value) 1546s [00:52:26.328] .. .. .. .. .. ..@ simple : logi TRUE 1546s [00:52:26.328] .. .. .. .. .. ..@ by : chr "MethodWithNext" 1546s [00:52:26.328] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.328] .. .. .. .. .. ..@ dataPart : logi FALSE 1546s [00:52:26.328] .. .. .. .. .. ..@ distance : num 2 1546s [00:52:26.328] .. .. .. ..$ derivedDefaultMethodWithTrace:Formal class 'SClassExtension' [package "methods"] with 10 slots 1546s [00:52:26.328] .. .. .. .. .. ..@ subClass : chr "derivedDefaultMethodWithTrace" 1546s [00:52:26.328] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.328] .. .. .. .. .. ..@ superClass: chr "MethodDefinition" 1546s [00:52:26.328] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.328] .. .. .. .. .. ..@ package : chr "methods" 1546s [00:52:26.328] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1546s [00:52:26.328] .. .. .. .. .. ..@ test :function (object) 1546s [00:52:26.328] .. .. .. .. .. ..@ replace :function (from, to, value) 1546s [00:52:26.328] .. .. .. .. .. ..@ simple : logi TRUE 1546s [00:52:26.328] .. .. .. .. .. ..@ by : chr "derivedDefaultMethod" 1546s [00:52:26.328] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.328] .. .. .. .. .. ..@ dataPart : logi FALSE 1546s [00:52:26.328] .. .. .. .. .. ..@ distance : num 2 1546s [00:52:26.328] .. .. ..@ versionKey: 1546s [00:52:26.328] .. .. ..@ sealed : logi TRUE 1546s [00:52:26.328] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1546s [00:52:26.328] - attr(*, "where")=List of 2 1546s [00:52:26.328] ..$ ...future.FUN: 1546s [00:52:26.328] ..$ ... : 1546s [00:52:26.328] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1546s [00:52:26.328] - attr(*, "resolved")= logi FALSE 1546s [00:52:26.328] - attr(*, "total_size")= num 312512 1546s [00:52:26.386] Packages to be attached in all futures: [n=0] 1546s [00:52:26.386] getGlobalsAndPackagesXApply() ... DONE 1546s [00:52:26.386] Number of futures (= number of chunks): 1 1546s [00:52:26.386] Launching 1 futures (chunks) ... 1546s [00:52:26.386] Chunk #1 of 1 ... 1546s [00:52:26.386] - Finding globals in 'X' for chunk #1 ... 1546s [00:52:26.387] + additional globals found: [n=0] 1546s [00:52:26.387] + additional namespaces needed: [n=0] 1546s [00:52:26.387] - Finding globals in 'X' for chunk #1 ... DONE 1546s [00:52:26.387] - seeds: 1546s [00:52:26.387] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1546s [00:52:26.390] Created future: 1546s [00:52:26.390] SequentialFuture: 1546s [00:52:26.390] Label: ‘future_lapply-1’ 1546s [00:52:26.390] Expression: 1546s [00:52:26.390] { 1546s [00:52:26.390] do.call(function(...) { 1546s [00:52:26.390] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1546s [00:52:26.390] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1546s [00:52:26.390] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1546s [00:52:26.390] on.exit(options(oopts), add = TRUE) 1546s [00:52:26.390] } 1546s [00:52:26.390] { 1546s [00:52:26.390] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1546s [00:52:26.390] ...future.X_jj <- ...future.elements_ii[[jj]] 1546s [00:52:26.390] ...future.FUN(...future.X_jj, ...) 1546s [00:52:26.390] }) 1546s [00:52:26.390] } 1546s [00:52:26.390] }, args = future.call.arguments) 1546s [00:52:26.390] } 1546s [00:52:26.390] Lazy evaluation: FALSE 1546s [00:52:26.390] Asynchronous evaluation: FALSE 1546s [00:52:26.390] Local evaluation: TRUE 1546s [00:52:26.390] Environment: R_GlobalEnv 1546s [00:52:26.390] Capture standard output: TRUE 1546s [00:52:26.390] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1546s [00:52:26.390] Globals: 5 objects totaling 305.24 KiB (function ‘...future.FUN’ of 1.41 KiB, DotDotDotList ‘future.call.arguments’ of 303.78 KiB, list ‘...future.elements_ii’ of 56 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1546s [00:52:26.390] Packages: 1546s [00:52:26.390] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1546s [00:52:26.390] Resolved: TRUE 1546s [00:52:26.390] Value: 112 bytes of class ‘list’ 1546s [00:52:26.390] Early signaling: FALSE 1546s [00:52:26.390] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1546s [00:52:26.390] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1546s [00:52:26.392] Chunk #1 of 1 ... DONE 1546s [00:52:26.392] Launching 1 futures (chunks) ... DONE 1546s [00:52:26.392] Resolving 1 futures (chunks) ... 1546s [00:52:26.393] - Number of value chunks collected: 1 1546s [00:52:26.393] Resolving 1 futures (chunks) ... DONE 1546s [00:52:26.393] Reducing values from 1 chunks ... 1546s [00:52:26.393] - Number of values collected after concatenation: 1 1546s [00:52:26.393] - Number of values expected: 1 1546s [00:52:26.393] Reducing values from 1 chunks ... DONE 1546s [00:52:26.394] future_lapply() ... DONE 1546s - future_lapply(X, ...) - 'X' containing globals ... 1546s List of 4 1546s $ : num 84 1546s $ : num 10.5 1546s $ : num 63 1546s $ : int 11 1546s [00:52:26.397] future_lapply() ... 1546s [00:52:26.398] Number of chunks: 1 1546s [00:52:26.398] getGlobalsAndPackagesXApply() ... 1546s [00:52:26.398] - future.globals: TRUE 1546s [00:52:26.400] - globals found/used: [n=1] ‘FUN’ 1546s [00:52:26.400] - needed namespaces: [n=0] 1546s [00:52:26.400] Finding globals ... DONE 1546s [00:52:26.400] - use_args: TRUE 1546s [00:52:26.400] - Getting '...' globals ... 1546s [00:52:26.401] - '...' content: [n=0] 1546s [00:52:26.401] List of 1 1546s [00:52:26.401] $ ...: list() 1546s [00:52:26.401] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1546s [00:52:26.401] - attr(*, "where")=List of 1 1546s [00:52:26.401] ..$ ...: 1546s [00:52:26.401] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1546s [00:52:26.401] - attr(*, "resolved")= logi TRUE 1546s [00:52:26.401] - attr(*, "total_size")= num NA 1546s [00:52:26.404] - Getting '...' globals ... DONE 1546s [00:52:26.404] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1546s [00:52:26.404] List of 2 1546s [00:52:26.404] $ ...future.FUN:function (f) 1546s [00:52:26.404] $ ... : list() 1546s [00:52:26.404] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1546s [00:52:26.404] - attr(*, "where")=List of 2 1546s [00:52:26.404] ..$ ...future.FUN: 1546s [00:52:26.404] ..$ ... : 1546s [00:52:26.404] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1546s [00:52:26.404] - attr(*, "resolved")= logi FALSE 1546s [00:52:26.404] - attr(*, "total_size")= num 1008 1546s [00:52:26.407] Packages to be attached in all futures: [n=0] 1546s [00:52:26.407] getGlobalsAndPackagesXApply() ... DONE 1546s [00:52:26.408] Number of futures (= number of chunks): 1 1546s [00:52:26.408] Launching 1 futures (chunks) ... 1546s [00:52:26.408] Chunk #1 of 1 ... 1546s [00:52:26.408] - Finding globals in 'X' for chunk #1 ... 1546s [00:52:26.411] + additional globals found: [n=2] ‘a’, ‘b’ 1546s [00:52:26.411] + additional namespaces needed: [n=1] ‘tools’ 1546s [00:52:26.411] - Finding globals in 'X' for chunk #1 ... DONE 1546s [00:52:26.412] - seeds: 1546s [00:52:26.412] - All globals exported: [n=7] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’, ‘a’, ‘b’ 1546s [00:52:26.415] Created future: 1546s [00:52:26.415] SequentialFuture: 1546s [00:52:26.415] Label: ‘future_lapply-1’ 1546s [00:52:26.415] Expression: 1546s [00:52:26.415] { 1546s [00:52:26.415] do.call(function(...) { 1546s [00:52:26.415] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1546s [00:52:26.415] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1546s [00:52:26.415] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1546s [00:52:26.415] on.exit(options(oopts), add = TRUE) 1546s [00:52:26.415] } 1546s [00:52:26.415] { 1546s [00:52:26.415] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1546s [00:52:26.415] ...future.X_jj <- ...future.elements_ii[[jj]] 1546s [00:52:26.415] ...future.FUN(...future.X_jj, ...) 1546s [00:52:26.415] }) 1546s [00:52:26.415] } 1546s [00:52:26.415] }, args = future.call.arguments) 1546s [00:52:26.415] } 1546s [00:52:26.415] Lazy evaluation: FALSE 1546s [00:52:26.415] Asynchronous evaluation: FALSE 1546s [00:52:26.415] Local evaluation: TRUE 1546s [00:52:26.415] Environment: R_GlobalEnv 1546s [00:52:26.415] Capture standard output: TRUE 1546s [00:52:26.415] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1546s [00:52:26.415] Globals: 7 objects totaling 7.49 KiB (function ‘...future.FUN’ of 0.98 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 6.40 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes, ...) 1546s [00:52:26.415] Packages: 1 packages (‘tools’) 1546s [00:52:26.415] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1546s [00:52:26.415] Resolved: TRUE 1546s [00:52:26.415] Value: 224 bytes of class ‘list’ 1546s [00:52:26.415] Early signaling: FALSE 1546s [00:52:26.415] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1546s [00:52:26.415] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1546s [00:52:26.417] Chunk #1 of 1 ... DONE 1546s [00:52:26.417] Launching 1 futures (chunks) ... DONE 1546s [00:52:26.417] Resolving 1 futures (chunks) ... 1546s [00:52:26.417] - Number of value chunks collected: 1 1546s [00:52:26.418] Resolving 1 futures (chunks) ... DONE 1546s [00:52:26.418] Reducing values from 1 chunks ... 1546s [00:52:26.418] - Number of values collected after concatenation: 4 1546s [00:52:26.418] - Number of values expected: 4 1546s [00:52:26.418] Reducing values from 1 chunks ... DONE 1546s [00:52:26.418] future_lapply() ... DONE 1546s List of 4 1546s $ : num 84 1546s $ : num 10.5 1546s $ : num 63 1546s $ : int 11 1546s - future_lapply(x, ...) - passing '...' as a global ... 1546s List of 1 1546s $ z0:List of 1 1546s ..$ :List of 1 1546s .. ..$ a: num 1 1546s [00:52:26.422] future_lapply() ... 1546s [00:52:26.423] Number of chunks: 1 1546s [00:52:26.423] getGlobalsAndPackagesXApply() ... 1546s [00:52:26.424] - future.globals: TRUE 1546s [00:52:26.426] - globals found/used: [n=2] ‘FUN’, ‘future.call.arguments’ 1546s [00:52:26.426] - needed namespaces: [n=0] 1546s [00:52:26.426] Finding globals ... DONE 1546s [00:52:26.426] - use_args: TRUE 1546s [00:52:26.427] - Getting '...' globals ... 1546s [00:52:26.427] - '...' content: [n=0] 1546s [00:52:26.427] List of 1 1546s [00:52:26.427] $ ...: list() 1546s [00:52:26.427] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1546s [00:52:26.427] - attr(*, "where")=List of 1 1546s [00:52:26.427] ..$ ...: 1546s [00:52:26.427] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1546s [00:52:26.427] - attr(*, "resolved")= logi TRUE 1546s [00:52:26.427] - attr(*, "total_size")= num NA 1546s [00:52:26.430] - Getting '...' globals ... DONE 1546s [00:52:26.430] Globals to be used in all futures (chunks): [n=3] ‘...future.FUN’, ‘future.call.arguments’, ‘...’ 1546s [00:52:26.430] List of 3 1546s [00:52:26.430] $ ...future.FUN :function (x) 1546s [00:52:26.430] $ future.call.arguments:List of 1 1546s [00:52:26.430] ..$ a: num 1 1546s [00:52:26.430] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1546s [00:52:26.430] $ ... : list() 1546s [00:52:26.430] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1546s [00:52:26.430] - attr(*, "where")=List of 3 1546s [00:52:26.430] ..$ ...future.FUN : 1546s [00:52:26.430] ..$ future.call.arguments: 1546s [00:52:26.430] ..$ ... : 1546s [00:52:26.430] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1546s [00:52:26.430] - attr(*, "resolved")= logi FALSE 1546s [00:52:26.430] - attr(*, "total_size")= num 1272 1546s [00:52:26.436] Packages to be attached in all futures: [n=0] 1546s [00:52:26.436] getGlobalsAndPackagesXApply() ... DONE 1546s [00:52:26.436] Number of futures (= number of chunks): 1 1546s [00:52:26.436] Launching 1 futures (chunks) ... 1546s [00:52:26.436] Chunk #1 of 1 ... 1546s [00:52:26.437] - Finding globals in 'X' for chunk #1 ... 1546s [00:52:26.437] + additional globals found: [n=0] 1546s [00:52:26.437] + additional namespaces needed: [n=0] 1546s [00:52:26.437] - Finding globals in 'X' for chunk #1 ... DONE 1546s [00:52:26.437] - seeds: 1546s [00:52:26.437] - All globals exported: [n=6] ‘...future.FUN’, ‘future.call.arguments’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1546s [00:52:26.440] Created future: 1546s [00:52:26.440] SequentialFuture: 1546s [00:52:26.440] Label: ‘future_lapply-1’ 1546s [00:52:26.440] Expression: 1546s [00:52:26.440] { 1546s [00:52:26.440] do.call(function(...) { 1546s [00:52:26.440] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1546s [00:52:26.440] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1546s [00:52:26.440] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1546s [00:52:26.440] on.exit(options(oopts), add = TRUE) 1546s [00:52:26.440] } 1546s [00:52:26.440] { 1546s [00:52:26.440] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1546s [00:52:26.440] ...future.X_jj <- ...future.elements_ii[[jj]] 1546s [00:52:26.440] ...future.FUN(...future.X_jj) 1546s [00:52:26.440] }) 1546s [00:52:26.440] } 1546s [00:52:26.440] }, args = future.call.arguments) 1546s [00:52:26.440] } 1546s [00:52:26.440] Lazy evaluation: FALSE 1546s [00:52:26.440] Asynchronous evaluation: FALSE 1546s [00:52:26.440] Local evaluation: TRUE 1546s [00:52:26.440] Environment: 0x2aa1f1363a8 1546s [00:52:26.440] Capture standard output: TRUE 1546s [00:52:26.440] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1546s [00:52:26.440] Globals: 5 objects totaling 1.30 KiB (function ‘...future.FUN’ of 1.19 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 56 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1546s [00:52:26.440] Packages: 1546s [00:52:26.440] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1546s [00:52:26.440] Resolved: TRUE 1546s [00:52:26.440] Value: 56 bytes of class ‘list’ 1546s [00:52:26.440] Early signaling: FALSE 1546s [00:52:26.440] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1546s [00:52:26.440] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1546s [00:52:26.442] Chunk #1 of 1 ... DONE 1546s [00:52:26.442] Launching 1 futures (chunks) ... DONE 1546s [00:52:26.442] Resolving 1 futures (chunks) ... 1546s [00:52:26.442] - Number of value chunks collected: 1 1546s [00:52:26.443] Resolving 1 futures (chunks) ... DONE 1546s [00:52:26.443] Reducing values from 1 chunks ... 1546s [00:52:26.443] - Number of values collected after concatenation: 1 1546s [00:52:26.443] - Number of values expected: 1 1546s [00:52:26.443] Reducing values from 1 chunks ... DONE 1546s [00:52:26.443] future_lapply() ... DONE 1546s List of 1 1546s $ z1:List of 1 1546s ..$ :List of 1 1546s .. ..$ a: num 1 1546s - future_lapply(X, ...) - '{ a <- a + 1; a }' ... 1546s [00:52:26.445] future_lapply() ... 1546s [00:52:26.446] Number of chunks: 1 1546s [00:52:26.446] getGlobalsAndPackagesXApply() ... 1546s [00:52:26.447] - future.globals: TRUE 1546s [00:52:26.449] - globals found/used: [n=2] ‘FUN’, ‘a’ 1546s [00:52:26.449] - needed namespaces: [n=0] 1546s [00:52:26.449] Finding globals ... DONE 1546s [00:52:26.450] - use_args: TRUE 1546s [00:52:26.450] - Getting '...' globals ... 1546s [00:52:26.450] - '...' content: [n=0] 1546s [00:52:26.450] List of 1 1546s [00:52:26.450] $ ...: list() 1546s [00:52:26.450] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1546s [00:52:26.450] - attr(*, "where")=List of 1 1546s [00:52:26.450] ..$ ...: 1546s [00:52:26.450] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1546s [00:52:26.450] - attr(*, "resolved")= logi TRUE 1546s [00:52:26.450] - attr(*, "total_size")= num NA 1546s [00:52:26.453] - Getting '...' globals ... DONE 1546s [00:52:26.453] Globals to be used in all futures (chunks): [n=3] ‘...future.FUN’, ‘a’, ‘...’ 1546s [00:52:26.454] List of 3 1546s [00:52:26.454] $ ...future.FUN:function (ii) 1546s [00:52:26.454] $ a : num 1 1546s [00:52:26.454] $ ... : list() 1546s [00:52:26.454] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1546s [00:52:26.454] - attr(*, "where")=List of 3 1546s [00:52:26.454] ..$ ...future.FUN: 1546s [00:52:26.454] ..$ a : 1546s [00:52:26.454] ..$ ... : 1546s [00:52:26.454] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1546s [00:52:26.454] - attr(*, "resolved")= logi FALSE 1546s [00:52:26.454] - attr(*, "total_size")= num 2984 1546s [00:52:26.458] Packages to be attached in all futures: [n=0] 1546s [00:52:26.458] getGlobalsAndPackagesXApply() ... DONE 1546s [00:52:26.458] Number of futures (= number of chunks): 1 1546s [00:52:26.458] Launching 1 futures (chunks) ... 1546s [00:52:26.458] Chunk #1 of 1 ... 1546s [00:52:26.458] - Finding globals in 'X' for chunk #1 ... 1546s [00:52:26.459] + additional globals found: [n=0] 1546s [00:52:26.459] + additional namespaces needed: [n=0] 1546s [00:52:26.459] - Finding globals in 'X' for chunk #1 ... DONE 1546s [00:52:26.459] - seeds: 1546s [00:52:26.459] - All globals exported: [n=6] ‘...future.FUN’, ‘a’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1546s [00:52:26.462] Created future: 1546s [00:52:26.462] SequentialFuture: 1546s [00:52:26.462] Label: ‘future_lapply-1’ 1546s [00:52:26.462] Expression: 1546s [00:52:26.462] { 1546s [00:52:26.462] do.call(function(...) { 1546s [00:52:26.462] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1546s [00:52:26.462] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1546s [00:52:26.462] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1546s [00:52:26.462] on.exit(options(oopts), add = TRUE) 1546s [00:52:26.462] } 1546s [00:52:26.462] { 1546s [00:52:26.462] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1546s [00:52:26.462] ...future.X_jj <- ...future.elements_ii[[jj]] 1546s [00:52:26.462] ...future.FUN(...future.X_jj, ...) 1546s [00:52:26.462] }) 1546s [00:52:26.462] } 1546s [00:52:26.462] }, args = future.call.arguments) 1546s [00:52:26.462] } 1546s [00:52:26.462] Lazy evaluation: FALSE 1546s [00:52:26.462] Asynchronous evaluation: FALSE 1546s [00:52:26.462] Local evaluation: TRUE 1546s [00:52:26.462] Environment: R_GlobalEnv 1546s [00:52:26.462] Capture standard output: TRUE 1546s [00:52:26.462] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1546s [00:52:26.462] Globals: 6 objects totaling 2.97 KiB (function ‘...future.FUN’ of 2.86 KiB, numeric ‘a’ of 56 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 56 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, ...) 1546s [00:52:26.462] Packages: 1546s [00:52:26.462] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1546s [00:52:26.462] Resolved: TRUE 1546s [00:52:26.462] Value: 56 bytes of class ‘list’ 1546s [00:52:26.462] Early signaling: FALSE 1546s [00:52:26.462] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1546s [00:52:26.462] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1546s [00:52:26.464] Chunk #1 of 1 ... DONE 1546s [00:52:26.464] Launching 1 futures (chunks) ... DONE 1546s [00:52:26.465] Resolving 1 futures (chunks) ... 1546s [00:52:26.465] - Number of value chunks collected: 1 1546s [00:52:26.465] Resolving 1 futures (chunks) ... DONE 1546s [00:52:26.465] Reducing values from 1 chunks ... 1546s [00:52:26.466] - Number of values collected after concatenation: 1 1546s [00:52:26.466] - Number of values expected: 1 1546s [00:52:26.466] Reducing values from 1 chunks ... DONE 1546s [00:52:26.466] future_lapply() ... DONE 1546s - future_lapply(X, ...) - '{ a; a <- a + 1 }' ... 1546s [00:52:26.466] future_lapply() ... 1546s [00:52:26.467] Number of chunks: 1 1546s [00:52:26.467] getGlobalsAndPackagesXApply() ... 1546s [00:52:26.468] - future.globals: TRUE 1546s [00:52:26.470] - globals found/used: [n=2] ‘FUN’, ‘a’ 1546s [00:52:26.470] - needed namespaces: [n=0] 1546s [00:52:26.471] Finding globals ... DONE 1546s [00:52:26.471] - use_args: TRUE 1546s [00:52:26.471] - Getting '...' globals ... 1546s [00:52:26.471] - '...' content: [n=0] 1546s [00:52:26.471] List of 1 1546s [00:52:26.471] $ ...: list() 1546s [00:52:26.471] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1546s [00:52:26.471] - attr(*, "where")=List of 1 1546s [00:52:26.471] ..$ ...: 1546s [00:52:26.471] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1546s [00:52:26.471] - attr(*, "resolved")= logi TRUE 1546s [00:52:26.471] - attr(*, "total_size")= num NA 1546s [00:52:26.474] - Getting '...' globals ... DONE 1546s [00:52:26.475] Globals to be used in all futures (chunks): [n=3] ‘...future.FUN’, ‘a’, ‘...’ 1546s [00:52:26.475] List of 3 1546s [00:52:26.475] $ ...future.FUN:function (ii) 1546s [00:52:26.475] $ a : num 1 1546s [00:52:26.475] $ ... : list() 1546s [00:52:26.475] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1546s [00:52:26.475] - attr(*, "where")=List of 3 1546s [00:52:26.475] ..$ ...future.FUN: 1546s [00:52:26.475] ..$ a : 1546s [00:52:26.475] ..$ ... : 1546s [00:52:26.475] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1546s [00:52:26.475] - attr(*, "resolved")= logi FALSE 1546s [00:52:26.475] - attr(*, "total_size")= num 2984 1546s [00:52:26.479] Packages to be attached in all futures: [n=0] 1546s [00:52:26.479] getGlobalsAndPackagesXApply() ... DONE 1546s [00:52:26.479] Number of futures (= number of chunks): 1 1546s [00:52:26.479] Launching 1 futures (chunks) ... 1546s [00:52:26.479] Chunk #1 of 1 ... 1546s [00:52:26.480] - Finding globals in 'X' for chunk #1 ... 1546s [00:52:26.480] + additional globals found: [n=0] 1546s [00:52:26.480] + additional namespaces needed: [n=0] 1546s [00:52:26.480] - Finding globals in 'X' for chunk #1 ... DONE 1546s [00:52:26.480] - seeds: 1546s [00:52:26.481] - All globals exported: [n=6] ‘...future.FUN’, ‘a’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1546s [00:52:26.484] Created future: 1546s [00:52:26.484] SequentialFuture: 1546s [00:52:26.484] Label: ‘future_lapply-1’ 1546s [00:52:26.484] Expression: 1546s [00:52:26.484] { 1546s [00:52:26.484] do.call(function(...) { 1546s [00:52:26.484] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1546s [00:52:26.484] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1546s [00:52:26.484] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1546s [00:52:26.484] on.exit(options(oopts), add = TRUE) 1546s [00:52:26.484] } 1546s [00:52:26.484] { 1546s [00:52:26.484] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1546s [00:52:26.484] ...future.X_jj <- ...future.elements_ii[[jj]] 1546s [00:52:26.484] ...future.FUN(...future.X_jj, ...) 1546s [00:52:26.484] }) 1546s [00:52:26.484] } 1546s [00:52:26.484] }, args = future.call.arguments) 1546s [00:52:26.484] } 1546s [00:52:26.484] Lazy evaluation: FALSE 1546s [00:52:26.484] Asynchronous evaluation: FALSE 1546s [00:52:26.484] Local evaluation: TRUE 1546s [00:52:26.484] Environment: R_GlobalEnv 1546s [00:52:26.484] Capture standard output: TRUE 1546s [00:52:26.484] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1546s [00:52:26.484] Globals: 6 objects totaling 2.97 KiB (function ‘...future.FUN’ of 2.86 KiB, numeric ‘a’ of 56 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 56 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, ...) 1546s [00:52:26.484] Packages: 1546s [00:52:26.484] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1546s [00:52:26.484] Resolved: TRUE 1546s [00:52:26.484] Value: 56 bytes of class ‘list’ 1546s [00:52:26.484] Early signaling: FALSE 1546s [00:52:26.484] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1546s [00:52:26.484] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1546s [00:52:26.486] Chunk #1 of 1 ... DONE 1546s [00:52:26.486] Launching 1 futures (chunks) ... DONE 1546s [00:52:26.486] Resolving 1 futures (chunks) ... 1546s [00:52:26.487] - Number of value chunks collected: 1 1546s [00:52:26.487] Resolving 1 futures (chunks) ... DONE 1546s [00:52:26.488] Reducing values from 1 chunks ... 1546s [00:52:26.488] - Number of values collected after concatenation: 1 1546s [00:52:26.488] - Number of values expected: 1 1546s [00:52:26.488] Reducing values from 1 chunks ... DONE 1546s [00:52:26.488] future_lapply() ... DONE 1546s - future_lapply(..., future.globals = ) ... 1546s [00:52:26.488] future_lapply() ... 1546s [00:52:26.489] Number of chunks: 1 1546s [00:52:26.489] getGlobalsAndPackagesXApply() ... 1546s [00:52:26.489] - future.globals: with names ‘42’ 1546s [00:52:26.490] - use_args: TRUE 1546s [00:52:26.490] - Getting '...' globals ... 1546s [00:52:26.490] - '...' content: [n=0] 1546s [00:52:26.490] List of 1 1546s [00:52:26.490] $ ...: list() 1546s [00:52:26.490] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1546s [00:52:26.490] - attr(*, "where")=List of 1 1546s [00:52:26.490] ..$ ...: 1546s [00:52:26.490] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1546s [00:52:26.490] - attr(*, "resolved")= logi TRUE 1546s [00:52:26.490] - attr(*, "total_size")= num NA 1546s [00:52:26.493] - Getting '...' globals ... DONE 1546s [00:52:26.494] Globals to be used in all futures (chunks): [n=3] ‘a’, ‘...future.FUN’, ‘...’ 1546s [00:52:26.494] List of 3 1546s [00:52:26.494] $ a : num 42 1546s [00:52:26.494] $ ...future.FUN:function (x) 1546s [00:52:26.494] $ ... : list() 1546s [00:52:26.494] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1546s [00:52:26.494] - attr(*, "where")=List of 3 1546s [00:52:26.494] ..$ a : 1546s [00:52:26.494] ..$ ...future.FUN: 1546s [00:52:26.494] ..$ ... : 1546s [00:52:26.494] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1546s [00:52:26.494] - attr(*, "resolved")= logi FALSE 1546s [00:52:26.494] - attr(*, "total_size")= num NA 1546s [00:52:26.500] Packages to be attached in all futures: [n=0] 1546s [00:52:26.500] getGlobalsAndPackagesXApply() ... DONE 1546s [00:52:26.501] Number of futures (= number of chunks): 1 1546s [00:52:26.501] Launching 1 futures (chunks) ... 1546s [00:52:26.501] Chunk #1 of 1 ... 1546s [00:52:26.501] - seeds: 1546s [00:52:26.501] - All globals exported: [n=6] ‘a’, ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1546s [00:52:26.505] Created future: 1546s [00:52:26.505] SequentialFuture: 1546s [00:52:26.505] Label: ‘future_lapply-1’ 1546s [00:52:26.505] Expression: 1546s [00:52:26.505] { 1546s [00:52:26.505] do.call(function(...) { 1546s [00:52:26.505] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1546s [00:52:26.505] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1546s [00:52:26.505] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1546s [00:52:26.505] on.exit(options(oopts), add = TRUE) 1546s [00:52:26.505] } 1546s [00:52:26.505] { 1546s [00:52:26.505] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1546s [00:52:26.505] ...future.X_jj <- ...future.elements_ii[[jj]] 1546s [00:52:26.505] ...future.FUN(...future.X_jj, ...) 1546s [00:52:26.505] }) 1546s [00:52:26.505] } 1546s [00:52:26.505] }, args = future.call.arguments) 1546s [00:52:26.505] } 1546s [00:52:26.505] Lazy evaluation: FALSE 1546s [00:52:26.505] Asynchronous evaluation: FALSE 1546s [00:52:26.505] Local evaluation: TRUE 1546s [00:52:26.505] Environment: R_GlobalEnv 1546s [00:52:26.505] Capture standard output: TRUE 1546s [00:52:26.505] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1546s [00:52:26.505] Globals: 6 objects totaling 1.45 KiB (numeric ‘a’ of 56 bytes, function ‘...future.FUN’ of 1.34 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 56 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, ...) 1546s [00:52:26.505] Packages: 1546s [00:52:26.505] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1546s [00:52:26.505] Resolved: TRUE 1546s [00:52:26.505] Value: 56 bytes of class ‘list’ 1546s [00:52:26.505] Early signaling: FALSE 1546s [00:52:26.505] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1546s [00:52:26.505] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1546s [00:52:26.506] Chunk #1 of 1 ... DONE 1546s [00:52:26.506] Launching 1 futures (chunks) ... DONE 1546s [00:52:26.507] Resolving 1 futures (chunks) ... 1546s [00:52:26.507] - Number of value chunks collected: 1 1546s [00:52:26.507] Resolving 1 futures (chunks) ... DONE 1546s [00:52:26.507] Reducing values from 1 chunks ... 1546s [00:52:26.508] - Number of values collected after concatenation: 1 1546s [00:52:26.508] - Number of values expected: 1 1546s [00:52:26.508] Reducing values from 1 chunks ... DONE 1546s [00:52:26.508] future_lapply() ... DONE 1546s List of 1 1546s $ : num 42 1546s [00:52:26.517] future_lapply() ... 1546s [00:52:26.521] Number of chunks: 1 1546s [00:52:26.521] getGlobalsAndPackagesXApply() ... 1546s [00:52:26.521] - future.globals: TRUE 1546s [00:52:26.528] - globals found/used: [n=5] ‘FUN’, ‘caller’, ‘args’, ‘call_my_add’, ‘my_add’ 1546s [00:52:26.528] - needed namespaces: [n=0] 1546s [00:52:26.528] Finding globals ... DONE 1546s [00:52:26.528] - use_args: TRUE 1546s [00:52:26.528] - Getting '...' globals ... 1546s [00:52:26.529] - '...' content: [n=0] 1546s [00:52:26.529] List of 1 1546s [00:52:26.529] $ ...: list() 1546s [00:52:26.529] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1546s [00:52:26.529] - attr(*, "where")=List of 1 1546s [00:52:26.529] ..$ ...: 1546s [00:52:26.529] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1546s [00:52:26.529] - attr(*, "resolved")= logi TRUE 1546s [00:52:26.529] - attr(*, "total_size")= num NA 1546s [00:52:26.532] - Getting '...' globals ... DONE 1546s [00:52:26.532] Globals to be used in all futures (chunks): [n=6] ‘...future.FUN’, ‘caller’, ‘args’, ‘call_my_add’, ‘my_add’, ‘...’ 1546s [00:52:26.532] List of 6 1546s [00:52:26.532] $ ...future.FUN:function (i) 1546s [00:52:26.532] $ caller :function (a, b, FUN = call_my_add) 1546s [00:52:26.532] $ args :List of 1 1546s [00:52:26.532] ..$ FUN:function (a, b) 1546s [00:52:26.532] $ call_my_add :function (a, b) 1546s [00:52:26.532] $ my_add :function (a, b) 1546s [00:52:26.532] $ ... : list() 1546s [00:52:26.532] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1546s [00:52:26.532] - attr(*, "where")=List of 6 1546s [00:52:26.532] ..$ ...future.FUN: 1546s [00:52:26.532] ..$ caller : 1546s [00:52:26.532] ..$ args : 1546s [00:52:26.532] ..$ call_my_add : 1546s [00:52:26.532] ..$ my_add : 1546s [00:52:26.532] ..$ ... : 1546s [00:52:26.532] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1546s [00:52:26.532] - attr(*, "resolved")= logi FALSE 1546s [00:52:26.532] - attr(*, "total_size")= num 24120 1546s [00:52:26.538] Packages to be attached in all futures: [n=0] 1546s [00:52:26.538] getGlobalsAndPackagesXApply() ... DONE 1546s [00:52:26.538] Number of futures (= number of chunks): 1 1546s [00:52:26.539] Launching 1 futures (chunks) ... 1546s [00:52:26.539] Chunk #1 of 1 ... 1546s [00:52:26.539] - Finding globals in 'X' for chunk #1 ... 1546s [00:52:26.539] + additional globals found: [n=0] 1546s [00:52:26.539] + additional namespaces needed: [n=0] 1546s [00:52:26.539] - Finding globals in 'X' for chunk #1 ... DONE 1546s [00:52:26.540] - seeds: 1546s [00:52:26.540] - All globals exported: [n=9] ‘...future.FUN’, ‘caller’, ‘args’, ‘call_my_add’, ‘my_add’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1546s [00:52:26.548] Created future: 1546s [00:52:26.548] SequentialFuture: 1546s [00:52:26.548] Label: ‘future_lapply-1’ 1546s [00:52:26.548] Expression: 1546s [00:52:26.548] { 1546s [00:52:26.548] do.call(function(...) { 1546s [00:52:26.548] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1546s [00:52:26.548] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1546s [00:52:26.548] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1546s [00:52:26.548] on.exit(options(oopts), add = TRUE) 1546s [00:52:26.548] } 1546s [00:52:26.548] { 1546s [00:52:26.548] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1546s [00:52:26.548] ...future.X_jj <- ...future.elements_ii[[jj]] 1546s [00:52:26.548] ...future.FUN(...future.X_jj, ...) 1546s [00:52:26.548] }) 1546s [00:52:26.548] } 1546s [00:52:26.548] }, args = future.call.arguments) 1546s [00:52:26.548] } 1546s [00:52:26.548] Lazy evaluation: FALSE 1546s [00:52:26.548] Asynchronous evaluation: FALSE 1546s [00:52:26.548] Local evaluation: TRUE 1546s [00:52:26.548] Environment: 0x2aa1e01dd50 1546s [00:52:26.548] Capture standard output: TRUE 1546s [00:52:26.548] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1546s [00:52:26.548] Globals: 9 objects totaling 23.72 KiB (function ‘...future.FUN’ of 9.20 KiB, function ‘caller’ of 1.48 KiB, list ‘args’ of 5.72 KiB, function ‘call_my_add’ of 5.72 KiB, function ‘my_add’ of 1.44 KiB, ...) 1546s [00:52:26.548] Packages: 1546s [00:52:26.548] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1546s [00:52:26.548] Resolved: TRUE 1546s [00:52:26.548] Value: 168 bytes of class ‘list’ 1546s [00:52:26.548] Early signaling: FALSE 1546s [00:52:26.548] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1546s [00:52:26.548] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1546s [00:52:26.550] Chunk #1 of 1 ... DONE 1546s [00:52:26.550] Launching 1 futures (chunks) ... DONE 1546s [00:52:26.550] Resolving 1 futures (chunks) ... 1546s [00:52:26.551] - Number of value chunks collected: 1 1546s [00:52:26.551] Resolving 1 futures (chunks) ... DONE 1546s [00:52:26.551] Reducing values from 1 chunks ... 1546s [00:52:26.551] - Number of values collected after concatenation: 3 1546s [00:52:26.551] - Number of values expected: 3 1546s [00:52:26.551] Reducing values from 1 chunks ... DONE 1546s [00:52:26.552] future_lapply() ... DONE 1546s - future_lapply(x, FUN = do.call, ...) ... 1546s [00:52:26.552] future_lapply() ... 1546s [00:52:26.556] Number of chunks: 1 1546s [00:52:26.556] getGlobalsAndPackagesXApply() ... 1546s [00:52:26.557] - future.globals: TRUE 1546s [00:52:26.560] - globals found/used: [n=1] ‘FUN’ 1546s [00:52:26.560] - needed namespaces: [n=0] 1546s [00:52:26.560] Finding globals ... DONE 1546s [00:52:26.560] - use_args: TRUE 1546s [00:52:26.560] - Getting '...' globals ... 1546s [00:52:26.561] - '...' content: [n=1] ‘what’ 1546s [00:52:26.561] List of 1 1546s [00:52:26.561] $ ...:List of 1 1546s [00:52:26.561] ..$ what:function (x) 1546s [00:52:26.561] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1546s [00:52:26.561] - attr(*, "where")=List of 1 1546s [00:52:26.561] ..$ ...: 1546s [00:52:26.561] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1546s [00:52:26.561] - attr(*, "resolved")= logi TRUE 1546s [00:52:26.561] - attr(*, "total_size")= num NA 1546s [00:52:26.569] - Getting '...' globals ... DONE 1546s [00:52:26.569] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1546s [00:52:26.569] List of 2 1546s [00:52:26.569] $ ...future.FUN:function (what, args, quote = FALSE, envir = parent.frame()) 1546s [00:52:26.569] $ ... :List of 1 1546s [00:52:26.569] ..$ what:function (x) 1546s [00:52:26.569] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1546s [00:52:26.569] - attr(*, "where")=List of 2 1546s [00:52:26.569] ..$ ...future.FUN: 1546s [00:52:26.569] ..$ ... : 1546s [00:52:26.569] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1546s [00:52:26.569] - attr(*, "resolved")= logi FALSE 1546s [00:52:26.569] - attr(*, "total_size")= num 12192 1546s [00:52:26.573] Packages to be attached in all futures: [n=0] 1546s [00:52:26.573] getGlobalsAndPackagesXApply() ... DONE 1546s [00:52:26.573] Number of futures (= number of chunks): 1 1546s [00:52:26.574] Launching 1 futures (chunks) ... 1546s [00:52:26.574] Chunk #1 of 1 ... 1546s [00:52:26.574] - Finding globals in 'X' for chunk #1 ... 1546s [00:52:26.574] + additional globals found: [n=0] 1546s [00:52:26.574] + additional namespaces needed: [n=0] 1546s [00:52:26.574] - Finding globals in 'X' for chunk #1 ... DONE 1546s [00:52:26.574] - seeds: 1546s [00:52:26.575] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1546s [00:52:26.583] Created future: 1546s [00:52:26.583] SequentialFuture: 1546s [00:52:26.583] Label: ‘future_lapply-1’ 1546s [00:52:26.583] Expression: 1546s [00:52:26.583] { 1546s [00:52:26.583] do.call(function(...) { 1546s [00:52:26.583] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1546s [00:52:26.583] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1546s [00:52:26.583] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1546s [00:52:26.583] on.exit(options(oopts), add = TRUE) 1546s [00:52:26.583] } 1546s [00:52:26.583] { 1546s [00:52:26.583] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1546s [00:52:26.583] ...future.X_jj <- ...future.elements_ii[[jj]] 1546s [00:52:26.583] ...future.FUN(...future.X_jj, ...) 1546s [00:52:26.583] }) 1546s [00:52:26.583] } 1546s [00:52:26.583] }, args = future.call.arguments) 1546s [00:52:26.583] } 1546s [00:52:26.583] Lazy evaluation: FALSE 1546s [00:52:26.583] Asynchronous evaluation: FALSE 1546s [00:52:26.583] Local evaluation: TRUE 1546s [00:52:26.583] Environment: R_GlobalEnv 1546s [00:52:26.583] Capture standard output: TRUE 1546s [00:52:26.583] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1546s [00:52:26.583] Globals: 5 objects totaling 11.96 KiB (function ‘...future.FUN’ of 11.85 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 56 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1546s [00:52:26.583] Packages: 1546s [00:52:26.583] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1546s [00:52:26.583] Resolved: TRUE 1546s [00:52:26.583] Value: 56 bytes of class ‘list’ 1546s [00:52:26.583] Early signaling: FALSE 1546s [00:52:26.583] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1546s [00:52:26.583] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1546s [00:52:26.585] Chunk #1 of 1 ... DONE 1546s [00:52:26.585] Launching 1 futures (chunks) ... DONE 1546s [00:52:26.585] Resolving 1 futures (chunks) ... 1546s [00:52:26.586] - Number of value chunks collected: 1 1546s [00:52:26.586] Resolving 1 futures (chunks) ... DONE 1546s [00:52:26.586] Reducing values from 1 chunks ... 1546s [00:52:26.586] - Number of values collected after concatenation: 1 1546s [00:52:26.586] - Number of values expected: 1 1546s [00:52:26.586] Reducing values from 1 chunks ... DONE 1546s [00:52:26.586] future_lapply() ... DONE 1546s [00:52:26.587] future_lapply() ... 1546s [00:52:26.592] Number of chunks: 1 1546s [00:52:26.592] getGlobalsAndPackagesXApply() ... 1546s [00:52:26.592] - future.globals: TRUE 1546s [00:52:26.596] - globals found/used: [n=1] ‘FUN’ 1546s [00:52:26.596] - needed namespaces: [n=0] 1546s [00:52:26.596] Finding globals ... DONE 1546s [00:52:26.596] - use_args: TRUE 1546s [00:52:26.596] - Getting '...' globals ... 1546s [00:52:26.597] - '...' content: [n=1] ‘what’ 1546s [00:52:26.597] List of 1 1546s [00:52:26.597] $ ...:List of 1 1546s [00:52:26.597] ..$ what:function (...) 1546s [00:52:26.597] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1546s [00:52:26.597] - attr(*, "where")=List of 1 1546s [00:52:26.597] ..$ ...: 1546s [00:52:26.597] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1546s [00:52:26.597] - attr(*, "resolved")= logi TRUE 1546s [00:52:26.597] - attr(*, "total_size")= num NA 1546s [00:52:26.600] - Getting '...' globals ... DONE 1546s [00:52:26.601] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1546s [00:52:26.601] List of 2 1546s [00:52:26.601] $ ...future.FUN:function (what, args, quote = FALSE, envir = parent.frame()) 1546s [00:52:26.601] $ ... :List of 1 1546s [00:52:26.601] ..$ what:function (...) 1546s [00:52:26.601] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1546s [00:52:26.601] - attr(*, "where")=List of 2 1546s [00:52:26.601] ..$ ...future.FUN: 1546s [00:52:26.601] ..$ ... : 1546s [00:52:26.601] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1546s [00:52:26.601] - attr(*, "resolved")= logi FALSE 1546s [00:52:26.601] - attr(*, "total_size")= num 13352 1546s [00:52:26.604] Packages to be attached in all futures: [n=0] 1546s [00:52:26.605] getGlobalsAndPackagesXApply() ... DONE 1546s [00:52:26.605] Number of futures (= number of chunks): 1 1546s [00:52:26.605] Launching 1 futures (chunks) ... 1546s [00:52:26.605] Chunk #1 of 1 ... 1546s [00:52:26.605] - Finding globals in 'X' for chunk #1 ... 1546s [00:52:26.606] + additional globals found: [n=0] 1546s [00:52:26.606] + additional namespaces needed: [n=0] 1546s [00:52:26.606] - Finding globals in 'X' for chunk #1 ... DONE 1546s [00:52:26.606] - seeds: 1546s [00:52:26.607] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1546s [00:52:26.615] Created future: 1546s [00:52:26.616] SequentialFuture: 1546s [00:52:26.616] Label: ‘future_lapply-1’ 1546s [00:52:26.616] Expression: 1546s [00:52:26.616] { 1546s [00:52:26.616] do.call(function(...) { 1546s [00:52:26.616] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1546s [00:52:26.616] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1546s [00:52:26.616] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1546s [00:52:26.616] on.exit(options(oopts), add = TRUE) 1546s [00:52:26.616] } 1546s [00:52:26.616] { 1546s [00:52:26.616] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1546s [00:52:26.616] ...future.X_jj <- ...future.elements_ii[[jj]] 1546s [00:52:26.616] ...future.FUN(...future.X_jj, ...) 1546s [00:52:26.616] }) 1546s [00:52:26.616] } 1546s [00:52:26.616] }, args = future.call.arguments) 1546s [00:52:26.616] } 1546s [00:52:26.616] Lazy evaluation: FALSE 1546s [00:52:26.616] Asynchronous evaluation: FALSE 1546s [00:52:26.616] Local evaluation: TRUE 1546s [00:52:26.616] Environment: R_GlobalEnv 1546s [00:52:26.616] Capture standard output: TRUE 1546s [00:52:26.616] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1546s [00:52:26.616] Globals: 5 objects totaling 13.09 KiB (function ‘...future.FUN’ of 11.85 KiB, DotDotDotList ‘future.call.arguments’ of 1.19 KiB, list ‘...future.elements_ii’ of 56 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1546s [00:52:26.616] Packages: 1546s [00:52:26.616] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1546s [00:52:26.616] Resolved: TRUE 1546s [00:52:26.616] Value: 56 bytes of class ‘list’ 1546s [00:52:26.616] Early signaling: FALSE 1546s [00:52:26.616] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1546s [00:52:26.616] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1546s [00:52:26.617] Chunk #1 of 1 ... DONE 1546s [00:52:26.617] Launching 1 futures (chunks) ... DONE 1546s [00:52:26.617] Resolving 1 futures (chunks) ... 1546s [00:52:26.618] - Number of value chunks collected: 1 1546s [00:52:26.618] Resolving 1 futures (chunks) ... DONE 1546s [00:52:26.618] Reducing values from 1 chunks ... 1546s [00:52:26.618] - Number of values collected after concatenation: 1 1546s [00:52:26.618] - Number of values expected: 1 1546s [00:52:26.619] Reducing values from 1 chunks ... DONE 1546s [00:52:26.619] future_lapply() ... DONE 1546s - future_lapply(x, ...) - passing arguments via '...' ... 1546s [00:52:26.619] future_lapply() ... 1546s [00:52:26.623] Number of chunks: 1 1546s [00:52:26.624] getGlobalsAndPackagesXApply() ... 1546s [00:52:26.624] - future.globals: TRUE 1546s [00:52:26.626] - globals found/used: [n=1] ‘FUN’ 1546s [00:52:26.626] - needed namespaces: [n=0] 1546s [00:52:26.626] Finding globals ... DONE 1546s [00:52:26.626] - use_args: TRUE 1546s [00:52:26.626] - Getting '...' globals ... 1546s [00:52:26.627] - '...' content: [n=1] ‘b’ 1546s [00:52:26.627] List of 1 1546s [00:52:26.627] $ ...:List of 1 1546s [00:52:26.627] ..$ b:'data.frame': 2 obs. of 1 variable: 1546s [00:52:26.627] .. ..$ a: int [1:2] 1 2 1546s [00:52:26.627] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1546s [00:52:26.627] - attr(*, "where")=List of 1 1546s [00:52:26.627] ..$ ...: 1546s [00:52:26.627] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1546s [00:52:26.627] - attr(*, "resolved")= logi TRUE 1546s [00:52:26.627] - attr(*, "total_size")= num NA 1546s [00:52:26.631] - Getting '...' globals ... DONE 1546s [00:52:26.631] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1546s [00:52:26.632] List of 2 1546s [00:52:26.632] $ ...future.FUN:function (a, b) 1546s [00:52:26.632] $ ... :List of 1 1546s [00:52:26.632] ..$ b:'data.frame': 2 obs. of 1 variable: 1546s [00:52:26.632] .. ..$ a: int [1:2] 1 2 1546s [00:52:26.632] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1546s [00:52:26.632] - attr(*, "where")=List of 2 1546s [00:52:26.632] ..$ ...future.FUN: 1546s [00:52:26.632] ..$ ... : 1546s [00:52:26.632] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1546s [00:52:26.632] - attr(*, "resolved")= logi FALSE 1546s [00:52:26.632] - attr(*, "total_size")= num 1440 1546s [00:52:26.636] Packages to be attached in all futures: [n=0] 1546s [00:52:26.636] getGlobalsAndPackagesXApply() ... DONE 1546s [00:52:26.637] Number of futures (= number of chunks): 1 1546s [00:52:26.637] Launching 1 futures (chunks) ... 1546s [00:52:26.637] Chunk #1 of 1 ... 1546s [00:52:26.637] - Finding globals in 'X' for chunk #1 ... 1546s [00:52:26.638] + additional globals found: [n=0] 1546s [00:52:26.638] + additional namespaces needed: [n=0] 1546s [00:52:26.638] - Finding globals in 'X' for chunk #1 ... DONE 1546s [00:52:26.638] - seeds: 1546s [00:52:26.638] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1546s [00:52:26.649] Created future: 1546s [00:52:26.649] SequentialFuture: 1546s [00:52:26.649] Label: ‘future_lapply-1’ 1546s [00:52:26.649] Expression: 1546s [00:52:26.649] { 1546s [00:52:26.649] do.call(function(...) { 1546s [00:52:26.649] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1546s [00:52:26.649] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1546s [00:52:26.649] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1546s [00:52:26.649] on.exit(options(oopts), add = TRUE) 1546s [00:52:26.649] } 1546s [00:52:26.649] { 1546s [00:52:26.649] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1546s [00:52:26.649] ...future.X_jj <- ...future.elements_ii[[jj]] 1546s [00:52:26.649] ...future.FUN(...future.X_jj, ...) 1546s [00:52:26.649] }) 1546s [00:52:26.649] } 1546s [00:52:26.649] }, args = future.call.arguments) 1546s [00:52:26.649] } 1546s [00:52:26.649] Lazy evaluation: FALSE 1546s [00:52:26.649] Asynchronous evaluation: FALSE 1546s [00:52:26.649] Local evaluation: TRUE 1546s [00:52:26.649] Environment: R_GlobalEnv 1546s [00:52:26.649] Capture standard output: TRUE 1546s [00:52:26.649] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1546s [00:52:26.649] Globals: 5 objects totaling 1.52 KiB (function ‘...future.FUN’ of 1.41 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 56 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1546s [00:52:26.649] Packages: 1546s [00:52:26.649] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1546s [00:52:26.649] Resolved: TRUE 1546s [00:52:26.649] Value: 112 bytes of class ‘list’ 1546s [00:52:26.649] Early signaling: FALSE 1546s [00:52:26.649] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1546s [00:52:26.649] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1546s [00:52:26.651] Chunk #1 of 1 ... DONE 1546s [00:52:26.651] Launching 1 futures (chunks) ... DONE 1546s [00:52:26.651] Resolving 1 futures (chunks) ... 1546s [00:52:26.652] - Number of value chunks collected: 1 1546s [00:52:26.652] Resolving 1 futures (chunks) ... DONE 1546s [00:52:26.653] Reducing values from 1 chunks ... 1546s [00:52:26.653] - Number of values collected after concatenation: 1 1546s [00:52:26.653] - Number of values expected: 1 1546s [00:52:26.653] Reducing values from 1 chunks ... DONE 1546s [00:52:26.653] future_lapply() ... DONE 1546s [00:52:26.653] future_lapply() ... 1546s [00:52:26.657] Number of chunks: 1 1546s [00:52:26.657] getGlobalsAndPackagesXApply() ... 1546s [00:52:26.658] - future.globals: TRUE 1546s [00:52:26.659] - globals found/used: [n=1] ‘FUN’ 1546s [00:52:26.660] - needed namespaces: [n=0] 1546s [00:52:26.660] Finding globals ... DONE 1546s [00:52:26.660] - use_args: TRUE 1546s [00:52:26.660] - Getting '...' globals ... 1546s [00:52:26.661] - '...' content: [n=1] ‘b’ 1546s [00:52:26.661] List of 1 1546s [00:52:26.661] $ ...:List of 1 1546s [00:52:26.661] ..$ b: 1546s [00:52:26.661] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1546s [00:52:26.661] - attr(*, "where")=List of 1 1546s [00:52:26.661] ..$ ...: 1546s [00:52:26.661] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1546s [00:52:26.661] - attr(*, "resolved")= logi TRUE 1546s [00:52:26.661] - attr(*, "total_size")= num NA 1546s [00:52:26.664] - Getting '...' globals ... DONE 1546s [00:52:26.665] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1546s [00:52:26.665] List of 2 1546s [00:52:26.665] $ ...future.FUN:function (a, b) 1546s [00:52:26.665] $ ... :List of 1 1546s [00:52:26.665] ..$ b: 1546s [00:52:26.665] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1546s [00:52:26.665] - attr(*, "where")=List of 2 1546s [00:52:26.665] ..$ ...future.FUN: 1546s [00:52:26.665] ..$ ... : 1546s [00:52:26.665] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1546s [00:52:26.665] - attr(*, "resolved")= logi FALSE 1546s [00:52:26.665] - attr(*, "total_size")= num 1440 1546s [00:52:26.668] Packages to be attached in all futures: [n=0] 1546s [00:52:26.668] getGlobalsAndPackagesXApply() ... DONE 1546s [00:52:26.668] Number of futures (= number of chunks): 1 1546s [00:52:26.669] Launching 1 futures (chunks) ... 1546s [00:52:26.669] Chunk #1 of 1 ... 1546s [00:52:26.669] - Finding globals in 'X' for chunk #1 ... 1546s [00:52:26.669] + additional globals found: [n=0] 1546s [00:52:26.669] + additional namespaces needed: [n=0] 1546s [00:52:26.669] - Finding globals in 'X' for chunk #1 ... DONE 1546s [00:52:26.669] - seeds: 1546s [00:52:26.670] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1546s [00:52:26.678] Created future: 1546s [00:52:26.678] SequentialFuture: 1546s [00:52:26.678] Label: ‘future_lapply-1’ 1546s [00:52:26.678] Expression: 1546s [00:52:26.678] { 1546s [00:52:26.678] do.call(function(...) { 1546s [00:52:26.678] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1546s [00:52:26.678] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1546s [00:52:26.678] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1546s [00:52:26.678] on.exit(options(oopts), add = TRUE) 1546s [00:52:26.678] } 1546s [00:52:26.678] { 1546s [00:52:26.678] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1546s [00:52:26.678] ...future.X_jj <- ...future.elements_ii[[jj]] 1546s [00:52:26.678] ...future.FUN(...future.X_jj, ...) 1546s [00:52:26.678] }) 1546s [00:52:26.678] } 1546s [00:52:26.678] }, args = future.call.arguments) 1546s [00:52:26.678] } 1546s [00:52:26.678] Lazy evaluation: FALSE 1546s [00:52:26.678] Asynchronous evaluation: FALSE 1546s [00:52:26.678] Local evaluation: TRUE 1546s [00:52:26.678] Environment: R_GlobalEnv 1546s [00:52:26.678] Capture standard output: TRUE 1546s [00:52:26.678] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1546s [00:52:26.678] Globals: 5 objects totaling 1.46 KiB (function ‘...future.FUN’ of 1.41 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 56 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1546s [00:52:26.678] Packages: 1546s [00:52:26.678] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1546s [00:52:26.678] Resolved: TRUE 1546s [00:52:26.678] Value: 120 bytes of class ‘list’ 1546s [00:52:26.678] Early signaling: FALSE 1546s [00:52:26.678] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1546s [00:52:26.678] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1546s [00:52:26.680] Chunk #1 of 1 ... DONE 1546s [00:52:26.680] Launching 1 futures (chunks) ... DONE 1546s [00:52:26.680] Resolving 1 futures (chunks) ... 1546s [00:52:26.681] - Number of value chunks collected: 1 1546s [00:52:26.681] Resolving 1 futures (chunks) ... DONE 1546s [00:52:26.681] Reducing values from 1 chunks ... 1546s [00:52:26.681] - Number of values collected after concatenation: 1 1546s [00:52:26.682] - Number of values expected: 1 1546s [00:52:26.682] Reducing values from 1 chunks ... DONE 1546s [00:52:26.682] future_lapply() ... DONE 1546s [00:52:26.682] future_lapply() ... 1546s [00:52:26.686] Number of chunks: 1 1546s [00:52:26.686] getGlobalsAndPackagesXApply() ... 1546s [00:52:26.686] - future.globals: TRUE 1546s [00:52:26.689] - globals found/used: [n=1] ‘FUN’ 1546s [00:52:26.689] - needed namespaces: [n=0] 1546s [00:52:26.689] Finding globals ... DONE 1546s [00:52:26.690] - use_args: TRUE 1546s [00:52:26.690] - Getting '...' globals ... 1546s [00:52:26.690] - '...' content: [n=1] ‘b’ 1546s [00:52:26.690] List of 1 1546s [00:52:26.690] $ ...:List of 1 1546s [00:52:26.690] ..$ b:Formal class 'classRepresentation' [package "methods"] with 11 slots 1546s [00:52:26.690] .. .. ..@ slots :List of 4 1546s [00:52:26.690] .. .. .. ..$ .Data : chr "function" 1546s [00:52:26.690] .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.690] .. .. .. ..$ target : chr "signature" 1546s [00:52:26.690] .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.690] .. .. .. ..$ defined: chr "signature" 1546s [00:52:26.690] .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.690] .. .. .. ..$ generic: chr "character" 1546s [00:52:26.690] .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.690] .. .. ..@ contains :List of 3 1546s [00:52:26.690] .. .. .. ..$ function :Formal class 'SClassExtension' [package "methods"] with 10 slots 1546s [00:52:26.690] .. .. .. .. .. ..@ subClass : chr "MethodDefinition" 1546s [00:52:26.690] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.690] .. .. .. .. .. ..@ superClass: chr "function" 1546s [00:52:26.690] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.690] .. .. .. .. .. ..@ package : chr "methods" 1546s [00:52:26.690] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1546s [00:52:26.690] .. .. .. .. .. ..@ test :function (object) 1546s [00:52:26.690] .. .. .. .. .. ..@ replace :function (from, to, value) 1546s [00:52:26.690] .. .. .. .. .. ..@ simple : logi TRUE 1546s [00:52:26.690] .. .. .. .. .. ..@ by : chr(0) 1546s [00:52:26.690] .. .. .. .. .. ..@ dataPart : logi TRUE 1546s [00:52:26.690] .. .. .. .. .. ..@ distance : num 1 1546s [00:52:26.690] .. .. .. ..$ PossibleMethod :Formal class 'SClassExtension' [package "methods"] with 10 slots 1546s [00:52:26.690] .. .. .. .. .. ..@ subClass : chr "MethodDefinition" 1546s [00:52:26.690] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.690] .. .. .. .. .. ..@ superClass: chr "PossibleMethod" 1546s [00:52:26.690] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.690] .. .. .. .. .. ..@ package : chr "methods" 1546s [00:52:26.690] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1546s [00:52:26.690] .. .. .. .. .. ..@ test :function (object) 1546s [00:52:26.690] .. .. .. .. .. ..@ replace :function (from, to, value) 1546s [00:52:26.690] .. .. .. .. .. ..@ simple : logi TRUE 1546s [00:52:26.690] .. .. .. .. .. ..@ by : chr(0) 1546s [00:52:26.690] .. .. .. .. .. ..@ dataPart : logi FALSE 1546s [00:52:26.690] .. .. .. .. .. ..@ distance : num 1 1546s [00:52:26.690] .. .. .. ..$ OptionalFunction:Formal class 'SClassExtension' [package "methods"] with 10 slots 1546s [00:52:26.690] .. .. .. .. .. ..@ subClass : chr "MethodDefinition" 1546s [00:52:26.690] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.690] .. .. .. .. .. ..@ superClass: chr "OptionalFunction" 1546s [00:52:26.690] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.690] .. .. .. .. .. ..@ package : chr "methods" 1546s [00:52:26.690] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1546s [00:52:26.690] .. .. .. .. .. ..@ test :function (object) 1546s [00:52:26.690] .. .. .. .. .. ..@ replace :function (from, to, value) 1546s [00:52:26.690] .. .. .. .. .. ..@ simple : logi TRUE 1546s [00:52:26.690] .. .. .. .. .. ..@ by : chr "function" 1546s [00:52:26.690] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.690] .. .. .. .. .. ..@ dataPart : logi FALSE 1546s [00:52:26.690] .. .. .. .. .. ..@ distance : num 2 1546s [00:52:26.690] .. .. ..@ virtual : logi FALSE 1546s [00:52:26.690] .. .. ..@ prototype :Formal class 'function' [package ""] with 0 slots 1546s [00:52:26.690] list() 1546s [00:52:26.690] .. .. .. .. ..$ target :Formal class 'signature' [package "methods"] with 3 slots 1546s [00:52:26.690] .. .. .. .. .. .. ..@ .Data : chr(0) 1546s [00:52:26.690] .. .. .. .. .. .. ..@ names : chr(0) 1546s [00:52:26.690] .. .. .. .. .. .. ..@ package: chr(0) 1546s [00:52:26.690] .. .. .. .. ..$ defined:Formal class 'signature' [package "methods"] with 3 slots 1546s [00:52:26.690] .. .. .. .. .. .. ..@ .Data : chr(0) 1546s [00:52:26.690] .. .. .. .. .. .. ..@ names : chr(0) 1546s [00:52:26.690] .. .. .. .. .. .. ..@ package: chr(0) 1546s [00:52:26.690] .. .. .. .. ..$ generic: chr(0) 1546s [00:52:26.690] .. .. ..@ validity : NULL 1546s [00:52:26.690] .. .. ..@ access : list() 1546s [00:52:26.690] .. .. ..@ className : chr "MethodDefinition" 1546s [00:52:26.690] .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.690] .. .. ..@ package : chr "methods" 1546s [00:52:26.690] .. .. ..@ subclasses:List of 7 1546s [00:52:26.690] .. .. .. ..$ derivedDefaultMethod :Formal class 'SClassExtension' [package "methods"] with 10 slots 1546s [00:52:26.690] .. .. .. .. .. ..@ subClass : chr "derivedDefaultMethod" 1546s [00:52:26.690] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.690] .. .. .. .. .. ..@ superClass: chr "MethodDefinition" 1546s [00:52:26.690] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.690] .. .. .. .. .. ..@ package : chr "methods" 1546s [00:52:26.690] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1546s [00:52:26.690] .. .. .. .. .. ..@ test :function (object) 1546s [00:52:26.690] .. .. .. .. .. ..@ replace :function (from, to, value) 1546s [00:52:26.690] .. .. .. .. .. ..@ simple : logi TRUE 1546s [00:52:26.690] .. .. .. .. .. ..@ by : chr(0) 1546s [00:52:26.690] .. .. .. .. .. ..@ dataPart : logi FALSE 1546s [00:52:26.690] .. .. .. .. .. ..@ distance : num 1 1546s [00:52:26.690] .. .. .. ..$ MethodWithNext :Formal class 'SClassExtension' [package "methods"] with 10 slots 1546s [00:52:26.690] .. .. .. .. .. ..@ subClass : chr "MethodWithNext" 1546s [00:52:26.690] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.690] .. .. .. .. .. ..@ superClass: chr "MethodDefinition" 1546s [00:52:26.690] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.690] .. .. .. .. .. ..@ package : chr "methods" 1546s [00:52:26.690] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1546s [00:52:26.690] .. .. .. .. .. ..@ test :function (object) 1546s [00:52:26.690] .. .. .. .. .. ..@ replace :function (from, to, value) 1546s [00:52:26.690] .. .. .. .. .. ..@ simple : logi TRUE 1546s [00:52:26.690] .. .. .. .. .. ..@ by : chr(0) 1546s [00:52:26.690] .. .. .. .. .. ..@ dataPart : logi FALSE 1546s [00:52:26.690] .. .. .. .. .. ..@ distance : num 1 1546s [00:52:26.690] .. .. .. ..$ SealedMethodDefinition :Formal class 'SClassExtension' [package "methods"] with 10 slots 1546s [00:52:26.690] .. .. .. .. .. ..@ subClass : chr "SealedMethodDefinition" 1546s [00:52:26.690] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.690] .. .. .. .. .. ..@ superClass: chr "MethodDefinition" 1546s [00:52:26.690] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.690] .. .. .. .. .. ..@ package : chr "methods" 1546s [00:52:26.690] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1546s [00:52:26.690] .. .. .. .. .. ..@ test :function (object) 1546s [00:52:26.690] .. .. .. .. .. ..@ replace :function (from, to, value) 1546s [00:52:26.690] .. .. .. .. .. ..@ simple : logi TRUE 1546s [00:52:26.690] .. .. .. .. .. ..@ by : chr(0) 1546s [00:52:26.690] .. .. .. .. .. ..@ dataPart : logi FALSE 1546s [00:52:26.690] .. .. .. .. .. ..@ distance : num 1 1546s [00:52:26.690] .. .. .. ..$ MethodDefinitionWithTrace :Formal class 'SClassExtension' [package "methods"] with 10 slots 1546s [00:52:26.690] .. .. .. .. .. ..@ subClass : chr "MethodDefinitionWithTrace" 1546s [00:52:26.690] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.690] .. .. .. .. .. ..@ superClass: chr "MethodDefinition" 1546s [00:52:26.690] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.690] .. .. .. .. .. ..@ package : chr "methods" 1546s [00:52:26.690] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1546s [00:52:26.690] .. .. .. .. .. ..@ test :function (object) 1546s [00:52:26.690] .. .. .. .. .. ..@ replace :function (from, to, value) 1546s [00:52:26.690] .. .. .. .. .. ..@ simple : logi TRUE 1546s [00:52:26.690] .. .. .. .. .. ..@ by : chr(0) 1546s [00:52:26.690] .. .. .. .. .. ..@ dataPart : logi FALSE 1546s [00:52:26.690] .. .. .. .. .. ..@ distance : num 1 1546s [00:52:26.690] .. .. .. ..$ internalDispatchMethod :Formal class 'SClassExtension' [package "methods"] with 10 slots 1546s [00:52:26.690] .. .. .. .. .. ..@ subClass : chr "internalDispatchMethod" 1546s [00:52:26.690] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.690] .. .. .. .. .. ..@ superClass: chr "MethodDefinition" 1546s [00:52:26.690] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.690] .. .. .. .. .. ..@ package : chr "methods" 1546s [00:52:26.690] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1546s [00:52:26.690] .. .. .. .. .. ..@ test :function (object) 1546s [00:52:26.690] .. .. .. .. .. ..@ replace :function (from, to, value) 1546s [00:52:26.690] .. .. .. .. .. ..@ simple : logi TRUE 1546s [00:52:26.690] .. .. .. .. .. ..@ by : chr "derivedDefaultMethod" 1546s [00:52:26.690] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.690] .. .. .. .. .. ..@ dataPart : logi FALSE 1546s [00:52:26.690] .. .. .. .. .. ..@ distance : num 2 1546s [00:52:26.690] .. .. .. ..$ MethodWithNextWithTrace :Formal class 'SClassExtension' [package "methods"] with 10 slots 1546s [00:52:26.690] .. .. .. .. .. ..@ subClass : chr "MethodWithNextWithTrace" 1546s [00:52:26.690] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.690] .. .. .. .. .. ..@ superClass: chr "MethodDefinition" 1546s [00:52:26.690] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.690] .. .. .. .. .. ..@ package : chr "methods" 1546s [00:52:26.690] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1546s [00:52:26.690] .. .. .. .. .. ..@ test :function (object) 1546s [00:52:26.690] .. .. .. .. .. ..@ replace :function (from, to, value) 1546s [00:52:26.690] .. .. .. .. .. ..@ simple : logi TRUE 1546s [00:52:26.690] .. .. .. .. .. ..@ by : chr "MethodWithNext" 1546s [00:52:26.690] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.690] .. .. .. .. .. ..@ dataPart : logi FALSE 1546s [00:52:26.690] .. .. .. .. .. ..@ distance : num 2 1546s [00:52:26.690] .. .. .. ..$ derivedDefaultMethodWithTrace:Formal class 'SClassExtension' [package "methods"] with 10 slots 1546s [00:52:26.690] .. .. .. .. .. ..@ subClass : chr "derivedDefaultMethodWithTrace" 1546s [00:52:26.690] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.690] .. .. .. .. .. ..@ superClass: chr "MethodDefinition" 1546s [00:52:26.690] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.690] .. .. .. .. .. ..@ package : chr "methods" 1546s [00:52:26.690] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1546s [00:52:26.690] .. .. .. .. .. ..@ test :function (object) 1546s [00:52:26.690] .. .. .. .. .. ..@ replace :function (from, to, value) 1546s [00:52:26.690] .. .. .. .. .. ..@ simple : logi TRUE 1546s [00:52:26.690] .. .. .. .. .. ..@ by : chr "derivedDefaultMethod" 1546s [00:52:26.690] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.690] .. .. .. .. .. ..@ dataPart : logi FALSE 1546s [00:52:26.690] .. .. .. .. .. ..@ distance : num 2 1546s [00:52:26.690] .. .. ..@ versionKey: 1546s [00:52:26.690] .. .. ..@ sealed : logi TRUE 1546s [00:52:26.690] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1546s [00:52:26.690] - attr(*, "where")=List of 1 1546s [00:52:26.690] ..$ ...: 1546s [00:52:26.690] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1546s [00:52:26.690] - attr(*, "resolved")= logi TRUE 1546s [00:52:26.690] - attr(*, "total_size")= num NA 1546s [00:52:26.751] - Getting '...' globals ... DONE 1546s [00:52:26.752] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1546s [00:52:26.752] List of 2 1546s [00:52:26.752] $ ...future.FUN:function (a, b) 1546s [00:52:26.752] $ ... :List of 1 1546s [00:52:26.752] ..$ b:Formal class 'classRepresentation' [package "methods"] with 11 slots 1546s [00:52:26.752] .. .. ..@ slots :List of 4 1546s [00:52:26.752] .. .. .. ..$ .Data : chr "function" 1546s [00:52:26.752] .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.752] .. .. .. ..$ target : chr "signature" 1546s [00:52:26.752] .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.752] .. .. .. ..$ defined: chr "signature" 1546s [00:52:26.752] .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.752] .. .. .. ..$ generic: chr "character" 1546s [00:52:26.752] .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.752] .. .. ..@ contains :List of 3 1546s [00:52:26.752] .. .. .. ..$ function :Formal class 'SClassExtension' [package "methods"] with 10 slots 1546s [00:52:26.752] .. .. .. .. .. ..@ subClass : chr "MethodDefinition" 1546s [00:52:26.752] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.752] .. .. .. .. .. ..@ superClass: chr "function" 1546s [00:52:26.752] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.752] .. .. .. .. .. ..@ package : chr "methods" 1546s [00:52:26.752] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1546s [00:52:26.752] .. .. .. .. .. ..@ test :function (object) 1546s [00:52:26.752] .. .. .. .. .. ..@ replace :function (from, to, value) 1546s [00:52:26.752] .. .. .. .. .. ..@ simple : logi TRUE 1546s [00:52:26.752] .. .. .. .. .. ..@ by : chr(0) 1546s [00:52:26.752] .. .. .. .. .. ..@ dataPart : logi TRUE 1546s [00:52:26.752] .. .. .. .. .. ..@ distance : num 1 1546s [00:52:26.752] .. .. .. ..$ PossibleMethod :Formal class 'SClassExtension' [package "methods"] with 10 slots 1546s [00:52:26.752] .. .. .. .. .. ..@ subClass : chr "MethodDefinition" 1546s [00:52:26.752] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.752] .. .. .. .. .. ..@ superClass: chr "PossibleMethod" 1546s [00:52:26.752] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.752] .. .. .. .. .. ..@ package : chr "methods" 1546s [00:52:26.752] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1546s [00:52:26.752] .. .. .. .. .. ..@ test :function (object) 1546s [00:52:26.752] .. .. .. .. .. ..@ replace :function (from, to, value) 1546s [00:52:26.752] .. .. .. .. .. ..@ simple : logi TRUE 1546s [00:52:26.752] .. .. .. .. .. ..@ by : chr(0) 1546s [00:52:26.752] .. .. .. .. .. ..@ dataPart : logi FALSE 1546s [00:52:26.752] .. .. .. .. .. ..@ distance : num 1 1546s [00:52:26.752] .. .. .. ..$ OptionalFunction:Formal class 'SClassExtension' [package "methods"] with 10 slots 1546s [00:52:26.752] .. .. .. .. .. ..@ subClass : chr "MethodDefinition" 1546s [00:52:26.752] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.752] .. .. .. .. .. ..@ superClass: chr "OptionalFunction" 1546s [00:52:26.752] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.752] .. .. .. .. .. ..@ package : chr "methods" 1546s [00:52:26.752] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1546s [00:52:26.752] .. .. .. .. .. ..@ test :function (object) 1546s [00:52:26.752] .. .. .. .. .. ..@ replace :function (from, to, value) 1546s [00:52:26.752] .. .. .. .. .. ..@ simple : logi TRUE 1546s [00:52:26.752] .. .. .. .. .. ..@ by : chr "function" 1546s [00:52:26.752] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.752] .. .. .. .. .. ..@ dataPart : logi FALSE 1546s [00:52:26.752] .. .. .. .. .. ..@ distance : num 2 1546s [00:52:26.752] .. .. ..@ virtual : logi FALSE 1546s [00:52:26.752] .. .. ..@ prototype :Formal class 'function' [package ""] with 0 slots 1546s [00:52:26.752] list() 1546s [00:52:26.752] .. .. .. .. ..$ target :Formal class 'signature' [package "methods"] with 3 slots 1546s [00:52:26.752] .. .. .. .. .. .. ..@ .Data : chr(0) 1546s [00:52:26.752] .. .. .. .. .. .. ..@ names : chr(0) 1546s [00:52:26.752] .. .. .. .. .. .. ..@ package: chr(0) 1546s [00:52:26.752] .. .. .. .. ..$ defined:Formal class 'signature' [package "methods"] with 3 slots 1546s [00:52:26.752] .. .. .. .. .. .. ..@ .Data : chr(0) 1546s [00:52:26.752] .. .. .. .. .. .. ..@ names : chr(0) 1546s [00:52:26.752] .. .. .. .. .. .. ..@ package: chr(0) 1546s [00:52:26.752] .. .. .. .. ..$ generic: chr(0) 1546s [00:52:26.752] .. .. ..@ validity : NULL 1546s [00:52:26.752] .. .. ..@ access : list() 1546s [00:52:26.752] .. .. ..@ className : chr "MethodDefinition" 1546s [00:52:26.752] .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.752] .. .. ..@ package : chr "methods" 1546s [00:52:26.752] .. .. ..@ subclasses:List of 7 1546s [00:52:26.752] .. .. .. ..$ derivedDefaultMethod :Formal class 'SClassExtension' [package "methods"] with 10 slots 1546s [00:52:26.752] .. .. .. .. .. ..@ subClass : chr "derivedDefaultMethod" 1546s [00:52:26.752] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.752] .. .. .. .. .. ..@ superClass: chr "MethodDefinition" 1546s [00:52:26.752] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.752] .. .. .. .. .. ..@ package : chr "methods" 1546s [00:52:26.752] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1546s [00:52:26.752] .. .. .. .. .. ..@ test :function (object) 1546s [00:52:26.752] .. .. .. .. .. ..@ replace :function (from, to, value) 1546s [00:52:26.752] .. .. .. .. .. ..@ simple : logi TRUE 1546s [00:52:26.752] .. .. .. .. .. ..@ by : chr(0) 1546s [00:52:26.752] .. .. .. .. .. ..@ dataPart : logi FALSE 1546s [00:52:26.752] .. .. .. .. .. ..@ distance : num 1 1546s [00:52:26.752] .. .. .. ..$ MethodWithNext :Formal class 'SClassExtension' [package "methods"] with 10 slots 1546s [00:52:26.752] .. .. .. .. .. ..@ subClass : chr "MethodWithNext" 1546s [00:52:26.752] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.752] .. .. .. .. .. ..@ superClass: chr "MethodDefinition" 1546s [00:52:26.752] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.752] .. .. .. .. .. ..@ package : chr "methods" 1546s [00:52:26.752] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1546s [00:52:26.752] .. .. .. .. .. ..@ test :function (object) 1546s [00:52:26.752] .. .. .. .. .. ..@ replace :function (from, to, value) 1546s [00:52:26.752] .. .. .. .. .. ..@ simple : logi TRUE 1546s [00:52:26.752] .. .. .. .. .. ..@ by : chr(0) 1546s [00:52:26.752] .. .. .. .. .. ..@ dataPart : logi FALSE 1546s [00:52:26.752] .. .. .. .. .. ..@ distance : num 1 1546s [00:52:26.752] .. .. .. ..$ SealedMethodDefinition :Formal class 'SClassExtension' [package "methods"] with 10 slots 1546s [00:52:26.752] .. .. .. .. .. ..@ subClass : chr "SealedMethodDefinition" 1546s [00:52:26.752] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.752] .. .. .. .. .. ..@ superClass: chr "MethodDefinition" 1546s [00:52:26.752] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.752] .. .. .. .. .. ..@ package : chr "methods" 1546s [00:52:26.752] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1546s [00:52:26.752] .. .. .. .. .. ..@ test :function (object) 1546s [00:52:26.752] .. .. .. .. .. ..@ replace :function (from, to, value) 1546s [00:52:26.752] .. .. .. .. .. ..@ simple : logi TRUE 1546s [00:52:26.752] .. .. .. .. .. ..@ by : chr(0) 1546s [00:52:26.752] .. .. .. .. .. ..@ dataPart : logi FALSE 1546s [00:52:26.752] .. .. .. .. .. ..@ distance : num 1 1546s [00:52:26.752] .. .. .. ..$ MethodDefinitionWithTrace :Formal class 'SClassExtension' [package "methods"] with 10 slots 1546s [00:52:26.752] .. .. .. .. .. ..@ subClass : chr "MethodDefinitionWithTrace" 1546s [00:52:26.752] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.752] .. .. .. .. .. ..@ superClass: chr "MethodDefinition" 1546s [00:52:26.752] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.752] .. .. .. .. .. ..@ package : chr "methods" 1546s [00:52:26.752] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1546s [00:52:26.752] .. .. .. .. .. ..@ test :function (object) 1546s [00:52:26.752] .. .. .. .. .. ..@ replace :function (from, to, value) 1546s [00:52:26.752] .. .. .. .. .. ..@ simple : logi TRUE 1546s [00:52:26.752] .. .. .. .. .. ..@ by : chr(0) 1546s [00:52:26.752] .. .. .. .. .. ..@ dataPart : logi FALSE 1546s [00:52:26.752] .. .. .. .. .. ..@ distance : num 1 1546s [00:52:26.752] .. .. .. ..$ internalDispatchMethod :Formal class 'SClassExtension' [package "methods"] with 10 slots 1546s [00:52:26.752] .. .. .. .. .. ..@ subClass : chr "internalDispatchMethod" 1546s [00:52:26.752] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.752] .. .. .. .. .. ..@ superClass: chr "MethodDefinition" 1546s [00:52:26.752] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.752] .. .. .. .. .. ..@ package : chr "methods" 1546s [00:52:26.752] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1546s [00:52:26.752] .. .. .. .. .. ..@ test :function (object) 1546s [00:52:26.752] .. .. .. .. .. ..@ replace :function (from, to, value) 1546s [00:52:26.752] .. .. .. .. .. ..@ simple : logi TRUE 1546s [00:52:26.752] .. .. .. .. .. ..@ by : chr "derivedDefaultMethod" 1546s [00:52:26.752] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.752] .. .. .. .. .. ..@ dataPart : logi FALSE 1546s [00:52:26.752] .. .. .. .. .. ..@ distance : num 2 1546s [00:52:26.752] .. .. .. ..$ MethodWithNextWithTrace :Formal class 'SClassExtension' [package "methods"] with 10 slots 1546s [00:52:26.752] .. .. .. .. .. ..@ subClass : chr "MethodWithNextWithTrace" 1546s [00:52:26.752] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.752] .. .. .. .. .. ..@ superClass: chr "MethodDefinition" 1546s [00:52:26.752] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.752] .. .. .. .. .. ..@ package : chr "methods" 1546s [00:52:26.752] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1546s [00:52:26.752] .. .. .. .. .. ..@ test :function (object) 1546s [00:52:26.752] .. .. .. .. .. ..@ replace :function (from, to, value) 1546s [00:52:26.752] .. .. .. .. .. ..@ simple : logi TRUE 1546s [00:52:26.752] .. .. .. .. .. ..@ by : chr "MethodWithNext" 1546s [00:52:26.752] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.752] .. .. .. .. .. ..@ dataPart : logi FALSE 1546s [00:52:26.752] .. .. .. .. .. ..@ distance : num 2 1546s [00:52:26.752] .. .. .. ..$ derivedDefaultMethodWithTrace:Formal class 'SClassExtension' [package "methods"] with 10 slots 1546s [00:52:26.752] .. .. .. .. .. ..@ subClass : chr "derivedDefaultMethodWithTrace" 1546s [00:52:26.752] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.752] .. .. .. .. .. ..@ superClass: chr "MethodDefinition" 1546s [00:52:26.752] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.752] .. .. .. .. .. ..@ package : chr "methods" 1546s [00:52:26.752] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1546s [00:52:26.752] .. .. .. .. .. ..@ test :function (object) 1546s [00:52:26.752] .. .. .. .. .. ..@ replace :function (from, to, value) 1546s [00:52:26.752] .. .. .. .. .. ..@ simple : logi TRUE 1546s [00:52:26.752] .. .. .. .. .. ..@ by : chr "derivedDefaultMethod" 1546s [00:52:26.752] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1546s [00:52:26.752] .. .. .. .. .. ..@ dataPart : logi FALSE 1546s [00:52:26.752] .. .. .. .. .. ..@ distance : num 2 1546s [00:52:26.752] .. .. ..@ versionKey: 1546s [00:52:26.752] .. .. ..@ sealed : logi TRUE 1546s [00:52:26.752] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1546s [00:52:26.752] - attr(*, "where")=List of 2 1546s [00:52:26.752] ..$ ...future.FUN: 1546s [00:52:26.752] ..$ ... : 1546s [00:52:26.752] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1546s [00:52:26.752] - attr(*, "resolved")= logi FALSE 1546s [00:52:26.752] - attr(*, "total_size")= num 312512 1546s [00:52:26.815] Packages to be attached in all futures: [n=0] 1546s [00:52:26.815] getGlobalsAndPackagesXApply() ... DONE 1546s [00:52:26.816] Number of futures (= number of chunks): 1 1546s [00:52:26.816] Launching 1 futures (chunks) ... 1546s [00:52:26.816] Chunk #1 of 1 ... 1546s [00:52:26.816] - Finding globals in 'X' for chunk #1 ... 1546s [00:52:26.816] + additional globals found: [n=0] 1546s [00:52:26.816] + additional namespaces needed: [n=0] 1546s [00:52:26.817] - Finding globals in 'X' for chunk #1 ... DONE 1546s [00:52:26.817] - seeds: 1546s [00:52:26.817] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1546s [00:52:26.827] Created future: 1546s [00:52:26.827] SequentialFuture: 1546s [00:52:26.827] Label: ‘future_lapply-1’ 1546s [00:52:26.827] Expression: 1546s [00:52:26.827] { 1546s [00:52:26.827] do.call(function(...) { 1546s [00:52:26.827] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1546s [00:52:26.827] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1546s [00:52:26.827] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1546s [00:52:26.827] on.exit(options(oopts), add = TRUE) 1546s [00:52:26.827] } 1546s [00:52:26.827] { 1546s [00:52:26.827] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1546s [00:52:26.827] ...future.X_jj <- ...future.elements_ii[[jj]] 1546s [00:52:26.827] ...future.FUN(...future.X_jj, ...) 1546s [00:52:26.827] }) 1546s [00:52:26.827] } 1546s [00:52:26.827] }, args = future.call.arguments) 1546s [00:52:26.827] } 1546s [00:52:26.827] Lazy evaluation: FALSE 1546s [00:52:26.827] Asynchronous evaluation: FALSE 1546s [00:52:26.827] Local evaluation: TRUE 1546s [00:52:26.827] Environment: R_GlobalEnv 1546s [00:52:26.827] Capture standard output: TRUE 1546s [00:52:26.827] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1546s [00:52:26.827] Globals: 5 objects totaling 305.24 KiB (function ‘...future.FUN’ of 1.41 KiB, DotDotDotList ‘future.call.arguments’ of 303.78 KiB, list ‘...future.elements_ii’ of 56 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1546s [00:52:26.827] Packages: 1546s [00:52:26.827] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1546s [00:52:26.827] Resolved: TRUE 1546s [00:52:26.827] Value: 112 bytes of class ‘list’ 1546s [00:52:26.827] Early signaling: FALSE 1546s [00:52:26.827] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1546s [00:52:26.827] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1546s [00:52:26.829] Chunk #1 of 1 ... DONE 1546s [00:52:26.829] Launching 1 futures (chunks) ... DONE 1546s [00:52:26.829] Resolving 1 futures (chunks) ... 1546s [00:52:26.830] - Number of value chunks collected: 1 1546s [00:52:26.830] Resolving 1 futures (chunks) ... DONE 1546s [00:52:26.830] Reducing values from 1 chunks ... 1546s [00:52:26.830] - Number of values collected after concatenation: 1 1546s [00:52:26.830] - Number of values expected: 1 1546s [00:52:26.830] Reducing values from 1 chunks ... DONE 1546s [00:52:26.831] future_lapply() ... DONE 1546s - future_lapply(X, ...) - 'X' containing globals ... 1546s List of 4 1546s $ : num 84 1546s $ : num 10.5 1546s $ : num 63 1546s $ : int 11 1546s [00:52:26.834] future_lapply() ... 1546s [00:52:26.837] Number of chunks: 1 1546s [00:52:26.838] getGlobalsAndPackagesXApply() ... 1546s [00:52:26.838] - future.globals: TRUE 1546s [00:52:26.839] - globals found/used: [n=1] ‘FUN’ 1546s [00:52:26.840] - needed namespaces: [n=0] 1546s [00:52:26.840] Finding globals ... DONE 1546s [00:52:26.840] - use_args: TRUE 1546s [00:52:26.840] - Getting '...' globals ... 1546s [00:52:26.841] - '...' content: [n=0] 1546s [00:52:26.841] List of 1 1546s [00:52:26.841] $ ...: list() 1546s [00:52:26.841] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1546s [00:52:26.841] - attr(*, "where")=List of 1 1546s [00:52:26.841] ..$ ...: 1546s [00:52:26.841] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1546s [00:52:26.841] - attr(*, "resolved")= logi TRUE 1546s [00:52:26.841] - attr(*, "total_size")= num NA 1546s [00:52:26.845] - Getting '...' globals ... DONE 1546s [00:52:26.845] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1546s [00:52:26.846] List of 2 1546s [00:52:26.846] $ ...future.FUN:function (f) 1546s [00:52:26.846] $ ... : list() 1546s [00:52:26.846] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1546s [00:52:26.846] - attr(*, "where")=List of 2 1546s [00:52:26.846] ..$ ...future.FUN: 1546s [00:52:26.846] ..$ ... : 1546s [00:52:26.846] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1546s [00:52:26.846] - attr(*, "resolved")= logi FALSE 1546s [00:52:26.846] - attr(*, "total_size")= num 1008 1546s [00:52:26.849] Packages to be attached in all futures: [n=0] 1546s [00:52:26.849] getGlobalsAndPackagesXApply() ... DONE 1546s [00:52:26.850] Number of futures (= number of chunks): 1 1546s [00:52:26.850] Launching 1 futures (chunks) ... 1546s [00:52:26.850] Chunk #1 of 1 ... 1546s [00:52:26.850] - Finding globals in 'X' for chunk #1 ... 1546s [00:52:26.854] + additional globals found: [n=2] ‘a’, ‘b’ 1546s [00:52:26.855] + additional namespaces needed: [n=1] ‘tools’ 1546s [00:52:26.855] - Finding globals in 'X' for chunk #1 ... DONE 1546s [00:52:26.855] - seeds: 1546s [00:52:26.855] - All globals exported: [n=7] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’, ‘a’, ‘b’ 1546s [00:52:26.865] Created future: 1546s [00:52:26.865] SequentialFuture: 1546s [00:52:26.865] Label: ‘future_lapply-1’ 1546s [00:52:26.865] Expression: 1546s [00:52:26.865] { 1546s [00:52:List of 4 1546s $ :26.865] do.call(function(...) { 1546s [00:52:26.865] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1546s [00:52:26.865] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1546s [00:52:26.865] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1546s [00:52:26.865] on.exit(options(oopts), add = TRUE) 1546s [00:52:26.865] } 1546s [00:52:26.865] { 1546s [00:52:26.865] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1546s [00:52:26.865] ...future.X_jj <- ...future.elements_ii[[jj]] 1546s [00:52:26.865] ...future.FUN(...future.X_jj, ...) 1546s [00:52:26.865] }) 1546s [00:52:26.865] } 1546s [00:52:26.865] }, args = future.call.arguments) 1546s [00:52:26.865] } 1546s [00:52:26.865] Lazy evaluation: FALSE 1546s [00:52:26.865] Asynchronous evaluation: FALSE 1546s [00:52:26.865] Local evaluation: TRUE 1546s [00:52:26.865] Environment: R_GlobalEnv 1546s [00:52:26.865] Capture standard output: TRUE 1546s [00:52:26.865] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1546s [00:52:26.865] Globals: 7 objects totaling 7.49 KiB (function ‘...future.FUN’ of 0.98 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 6.40 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes, ...) 1546s [00:52:26.865] Packages: 1 packages (‘tools’) 1546s [00:52:26.865] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1546s [00:52:26.865] Resolved: TRUE 1546s [00:52:26.865] Value: 224 bytes of class ‘list’ 1546s [00:52:26.865] Early signaling: FALSE 1546s [00:52:26.865] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1546s [00:52:26.865] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1546s [00:52:26.867] Chunk #1 of 1 ... DONE 1546s [00:52:26.867] Launching 1 futures (chunks) ... DONE 1546s [00:52:26.867] Resolving 1 futures (chunks) ... 1546s [00:52:26.867] - Number of value chunks collected: 1 1546s [00:52:26.868] Resolving 1 futures (chunks) ... DONE 1546s [00:52:26.868] Reducing values from 1 chunks ... 1546s [00:52:26.868] - Number of values collected after concatenation: 4 1546s [00:52:26.868] - Number of values expected: 4 1546s [00:52:26.868] Reducing values from 1 chunks ... DONE 1546s [00:52:26.868] future_lapply() ... DONE 1546s num 84 1546s $ : num 10.5 1546s $ : num 63 1546s $ : int 11 1546s - future_lapply(x, ...) - passing '...' as a global ... 1546s [00:52:26.873] future_lapply() ... 1546s List of 1 1546s $ z0:List of 1 1546s ..$ :List of 1 1546s .. ..$ a: num 1 1546s [00:52:26.876] Number of chunks: 1 1546s [00:52:26.876] getGlobalsAndPackagesXApply() ... 1546s [00:52:26.877] - future.globals: TRUE 1546s [00:52:26.879] - globals found/used: [n=2] ‘FUN’, ‘future.call.arguments’ 1546s [00:52:26.879] - needed namespaces: [n=0] 1546s [00:52:26.879] Finding globals ... DONE 1546s [00:52:26.879] - use_args: TRUE 1546s [00:52:26.880] - Getting '...' globals ... 1546s [00:52:26.880] - '...' content: [n=0] 1546s [00:52:26.880] List of 1 1546s [00:52:26.880] $ ...: list() 1546s [00:52:26.880] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1546s [00:52:26.880] - attr(*, "where")=List of 1 1546s [00:52:26.880] ..$ ...: 1546s [00:52:26.880] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1546s [00:52:26.880] - attr(*, "resolved")= logi TRUE 1546s [00:52:26.880] - attr(*, "total_size")= num NA 1546s [00:52:26.883] - Getting '...' globals ... DONE 1546s [00:52:26.883] Globals to be used in all futures (chunks): [n=3] ‘...future.FUN’, ‘future.call.arguments’, ‘...’ 1546s [00:52:26.884] List of 3 1546s [00:52:26.884] $ ...future.FUN :function (x) 1546s [00:52:26.884] $ future.call.arguments:List of 1 1546s [00:52:26.884] ..$ a: num 1 1546s [00:52:26.884] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1546s [00:52:26.884] $ ... : list() 1546s [00:52:26.884] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1546s [00:52:26.884] - attr(*, "where")=List of 3 1546s [00:52:26.884] ..$ ...future.FUN : 1546s [00:52:26.884] ..$ future.call.arguments: 1546s [00:52:26.884] ..$ ... : 1546s [00:52:26.884] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1546s [00:52:26.884] - attr(*, "resolved")= logi FALSE 1546s [00:52:26.884] - attr(*, "total_size")= num 1272 1546s [00:52:26.890] Packages to be attached in all futures: [n=0] 1546s [00:52:26.890] getGlobalsAndPackagesXApply() ... DONE 1546s [00:52:26.890] Number of futures (= number of chunks): 1 1546s [00:52:26.890] Launching 1 futures (chunks) ... 1546s [00:52:26.890] Chunk #1 of 1 ... 1546s [00:52:26.891] - Finding globals in 'X' for chunk #1 ... 1546s [00:52:26.891] + additional globals found: [n=0] 1546s [00:52:26.891] + additional namespaces needed: [n=0] 1546s [00:52:26.891] - Finding globals in 'X' for chunk #1 ... DONE 1546s [00:52:26.891] - seeds: 1546s [00:52:26.891] - All globals exported: [n=6] ‘...future.FUN’, ‘future.call.arguments’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1546s [00:52:26.901] Created future: 1546s [00:52:26.901] SequentialFuture: 1546s [00:52:26.901] Label: ‘future_lapply-1’ 1546s [00:52:26.901] Expression: 1546s [00:52:26.901] { 1546s [00:52:26.901] do.call(function(...) { 1546s [00:52:26.901] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1546s [00:52:26.901] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1546s [00:52:26.901] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1546s [00:52:26.901] on.exit(options(oopts), add = TRUE) 1546s [00:52:26.901] } 1546s [00:52:26.901] { 1546s [00:52:26.901] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1546s [00:52:26.901] ...future.X_jj <- ...future.elements_ii[[jj]] 1546s [00:52:26.901] ...future.FUN(...future.X_jj) 1546s [00:52:26.901] }) 1546s [00:52:26.901] } 1546s [00:52:26.901] }, args = future.call.arguments) 1546s [00:52:26.901] } 1546s [00:52:26.901] Lazy evaluation: FALSE 1546s [00:52:26.901] Asynchronous evaluation: FALSE 1546s [00:52:26.901] Local evaluation: TRUE 1546s [00:52:26.901] Environment: 0x2aa1f028448 1546s [00:52:26.901] Capture standard output: TRUE 1546s [00:52:26.901] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1546s [00:52:26.901] Globals: 5 objects totaling 1.30 KiB (function ‘...future.FUN’ of 1.19 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 56 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1546s [00:52:26.901] Packages: 1546s [00:52:26.901] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1546s [00:52:26.901] Resolved: TRUE 1546s [00:52:26.901] Value: 56 bytes of class ‘list’ 1546s [00:52:26.901] Early signaling: FALSE 1546s [00:52:26.901] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1546s [00:52:26.901] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1546s [00:52:26.902] Chunk #1 of 1 ... DONE 1546s [00:52:26.902] Launching 1 futures (chunks) ... DONE 1546s [00:52:26.903] Resolving 1 futures (chunks) ... 1546s [00:52:26.903] - Number of value chunks collected: 1 1546s [00:52:26.903] Resolving 1 futures (chunks) ... DONE 1546s [00:52:26.903] Reducing values from 1 chunks ... 1546s [00:52:26.903] - Number of values collected after concatenation: 1 1546s [00:52:26.904] - Number of values expected: 1 1546s [00:52:26.904] Reducing values from 1 chunks ... DONE 1546s [00:52:26.904] future_lapply() ... DONE 1546s List of 1 1546s $ z1:List of 1 1546s ..$ :List of 1 1546s .. ..$ a: num - future_lapply(X, ...) - '{ a <- a + 1; a }' ... 1546s 1[00:52:26.906] future_lapply() ... 1546s 1546s [00:52:26.910] Number of chunks: 1 1546s [00:52:26.910] getGlobalsAndPackagesXApply() ... 1546s [00:52:26.910] - future.globals: TRUE 1546s [00:52:26.913] - globals found/used: [n=2] ‘FUN’, ‘a’ 1546s [00:52:26.913] - needed namespaces: [n=0] 1546s [00:52:26.913] Finding globals ... DONE 1546s [00:52:26.913] - use_args: TRUE 1546s [00:52:26.913] - Getting '...' globals ... 1546s [00:52:26.914] - '...' content: [n=0] 1546s [00:52:26.914] List of 1 1546s [00:52:26.914] $ ...: list() 1546s [00:52:26.914] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1546s [00:52:26.914] - attr(*, "where")=List of 1 1546s [00:52:26.914] ..$ ...: 1546s [00:52:26.914] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1546s [00:52:26.914] - attr(*, "resolved")= logi TRUE 1546s [00:52:26.914] - attr(*, "total_size")= num NA 1546s [00:52:26.917] - Getting '...' globals ... DONE 1546s [00:52:26.917] Globals to be used in all futures (chunks): [n=3] ‘...future.FUN’, ‘a’, ‘...’ 1546s [00:52:26.917] List of 3 1546s [00:52:26.917] $ ...future.FUN:function (ii) 1546s [00:52:26.917] $ a : num 1 1546s [00:52:26.917] $ ... : list() 1546s [00:52:26.917] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1546s [00:52:26.917] - attr(*, "where")=List of 3 1546s [00:52:26.917] ..$ ...future.FUN: 1546s [00:52:26.917] ..$ a : 1546s [00:52:26.917] ..$ ... : 1546s [00:52:26.917] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1546s [00:52:26.917] - attr(*, "resolved")= logi FALSE 1546s [00:52:26.917] - attr(*, "total_size")= num 2984 1546s [00:52:26.921] Packages to be attached in all futures: [n=0] 1546s [00:52:26.921] getGlobalsAndPackagesXApply() ... DONE 1546s [00:52:26.922] Number of futures (= number of chunks): 1 1546s [00:52:26.922] Launching 1 futures (chunks) ... 1546s [00:52:26.922] Chunk #1 of 1 ... 1546s [00:52:26.922] - Finding globals in 'X' for chunk #1 ... 1546s [00:52:26.923] + additional globals found: [n=0] 1546s [00:52:26.923] + additional namespaces needed: [n=0] 1546s [00:52:26.923] - Finding globals in 'X' for chunk #1 ... DONE 1546s [00:52:26.923] - seeds: 1546s [00:52:26.923] - All globals exported: [n=6] ‘...future.FUN’, ‘a’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1546s [00:52:26.932] Created future: 1546s [00:52:26.932] SequentialFuture: 1546s [00:52:26.932] Label: ‘future_lapply-1’ 1546s [00:52:26.932] Expression: 1546s [00:52:26.932] { 1546s [00:52:26.932] do.call(function(...) { 1546s [00:52:26.932] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1546s [00:52:26.932] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1546s [00:52:26.932] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1546s [00:52:26.932] on.exit(options(oopts), add = TRUE) 1546s [00:52:26.932] } 1546s [00:52:26.932] { 1546s [00:52:26.932] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1546s [00:52:26.932] ...future.X_jj <- ...future.elements_ii[[jj]] 1546s [00:52:26.932] ...future.FUN(...future.X_jj, ...) 1546s [00:52:26.932] }) 1546s [00:52:26.932] } 1546s [00:52:26.932] }, args = future.call.arguments) 1546s [00:52:26.932] } 1546s [00:52:26.932] Lazy evaluation: FALSE 1546s [00:52:26.932] Asynchronous evaluation: FALSE 1546s [00:52:26.932] Local evaluation: TRUE 1546s [00:52:26.932] Environment: R_GlobalEnv 1546s [00:52:26.932] Capture standard output: TRUE 1546s [00:52:26.932] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1546s [00:52:26.932] Globals: 6 objects totaling 2.97 KiB (function ‘...future.FUN’ of 2.86 KiB, numeric ‘a’ of 56 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 56 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, ...) 1546s [00:52:26.932] Packages: 1546s [00:52:26.932] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1546s [00:52:26.932] Resolved: TRUE 1546s [00:52:26.932] Value: 56 bytes of class ‘list’ 1546s [00:52:26.932] Early signaling: FALSE 1546s [00:52:26.932] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1546s [00:52:26.932] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1546s [00:52:26.934] Chunk #1 of 1 ... DONE 1546s [00:52:26.934] Launching 1 futures (chunks) ... DONE 1546s [00:52:26.934] Resolving 1 futures (chunks) ... 1546s [00:52:26.935] - Number of value chunks collected: 1 1546s [00:52:26.935] Resolving 1 futures (chunks) ... DONE 1546s [00:52:26.935] Reducing values from 1 chunks ... 1546s [00:52:26.935] - Number of values collected after concatenation: 1 1546s [00:52:26.935] - Number of values expected: 1 1546s [00:52:26.936] Reducing values from 1 chunks ... DONE 1546s [00:52:26.936] future_lapply() ... DONE 1546s - future_lapply(X, ...) - '{ a; a <- a + 1 }' ... 1546s [00:52:26.936] future_lapply() ... 1546s [00:52:26.940] Number of chunks: 1 1546s [00:52:26.940] getGlobalsAndPackagesXApply() ... 1546s [00:52:26.940] - future.globals: TRUE 1546s [00:52:26.943] - globals found/used: [n=2] ‘FUN’, ‘a’ 1546s [00:52:26.943] - needed namespaces: [n=0] 1546s [00:52:26.943] Finding globals ... DONE 1546s [00:52:26.944] - use_args: TRUE 1546s [00:52:26.944] - Getting '...' globals ... 1546s [00:52:26.944] - '...' content: [n=0] 1546s [00:52:26.944] List of 1 1546s [00:52:26.944] $ ...: list() 1546s [00:52:26.944] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1546s [00:52:26.944] - attr(*, "where")=List of 1 1546s [00:52:26.944] ..$ ...: 1546s [00:52:26.944] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1546s [00:52:26.944] - attr(*, "resolved")= logi TRUE 1546s [00:52:26.944] - attr(*, "total_size")= num NA 1546s [00:52:26.947] - Getting '...' globals ... DONE 1546s [00:52:26.948] Globals to be used in all futures (chunks): [n=3] ‘...future.FUN’, ‘a’, ‘...’ 1546s [00:52:26.948] List of 3 1546s [00:52:26.948] $ ...future.FUN:function (ii) 1546s [00:52:26.948] $ a : num 1 1546s [00:52:26.948] $ ... : list() 1546s [00:52:26.948] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1546s [00:52:26.948] - attr(*, "where")=List of 3 1546s [00:52:26.948] ..$ ...future.FUN: 1546s [00:52:26.948] ..$ a : 1546s [00:52:26.948] ..$ ... : 1546s [00:52:26.948] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1546s [00:52:26.948] - attr(*, "resolved")= logi FALSE 1546s [00:52:26.948] - attr(*, "total_size")= num 2984 1546s [00:52:26.952] Packages to be attached in all futures: [n=0] 1546s [00:52:26.952] getGlobalsAndPackagesXApply() ... DONE 1546s [00:52:26.952] Number of futures (= number of chunks): 1 1546s [00:52:26.952] Launching 1 futures (chunks) ... 1546s [00:52:26.952] Chunk #1 of 1 ... 1546s [00:52:26.952] - Finding globals in 'X' for chunk #1 ... 1546s [00:52:26.953] + additional globals found: [n=0] 1546s [00:52:26.953] + additional namespaces needed: [n=0] 1546s [00:52:26.953] - Finding globals in 'X' for chunk #1 ... DONE 1546s [00:52:26.953] - seeds: 1546s [00:52:26.953] - All globals exported: [n=6] ‘...future.FUN’, ‘a’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1547s [00:52:26.964] Created future: 1547s [00:52:26.964] SequentialFuture: 1547s [00:52:26.964] Label: ‘future_lapply-1’ 1547s [00:52:26.964] Expression: 1547s [00:52:26.964] { 1547s [00:52:26.964] do.call(function(...) { 1547s [00:52:26.964] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1547s [00:52:26.964] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1547s [00:52:26.964] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1547s [00:52:26.964] on.exit(options(oopts), add = TRUE) 1547s [00:52:26.964] } 1547s [00:52:26.964] { 1547s [00:52:26.964] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1547s [00:52:26.964] ...future.X_jj <- ...future.elements_ii[[jj]] 1547s [00:52:26.964] ...future.FUN(...future.X_jj, ...) 1547s [00:52:26.964] }) 1547s [00:52:26.964] } 1547s [00:52:26.964] }, args = future.call.arguments) 1547s [00:52:26.964] } 1547s [00:52:26.964] Lazy evaluation: FALSE 1547s [00:52:26.964] Asynchronous evaluation: FALSE 1547s [00:52:26.964] Local evaluation: TRUE 1547s [00:52:26.964] Environment: R_GlobalEnv 1547s [00:52:26.964] Capture standard output: TRUE 1547s [00:52:26.964] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1547s [00:52:26.964] Globals: 6 objects totaling 2.97 KiB (function ‘...future.FUN’ of 2.86 KiB, numeric ‘a’ of 56 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 56 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, ...) 1547s [00:52:26.964] Packages: 1547s [00:52:26.964] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1547s [00:52:26.964] Resolved: TRUE 1547s [00:52:26.964] Value: 56 bytes of class ‘list’ 1547s [00:52:26.964] Early signaling: FALSE 1547s [00:52:26.964] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1547s [00:52:26.964] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1547s [00:52:26.966] Chunk #1 of 1 ... DONE 1547s [00:52:26.966] Launching 1 futures (chunks) ... DONE 1547s [00:52:26.966] Resolving 1 futures (chunks) ... 1547s [00:52:26.966] - Number of value chunks collected: 1 1547s [00:52:26.966] Resolving 1 futures (chunks) ... DONE 1547s [00:52:26.966] Reducing values from 1 chunks ... 1547s [00:52:26.967] - Number of values collected after concatenation: 1 1547s [00:52:26.967] - Number of values expected: 1 1547s [00:52:26.967] Reducing values from 1 chunks ... DONE 1547s [00:52:26.967] future_lapply() ... DONE 1547s - future_lapply(..., future.globals = ) ... 1547s [00:52:26.967] future_lapply() ... 1547s [00:52:26.970] Number of chunks: 1 1547s [00:52:26.971] getGlobalsAndPackagesXApply() ... 1547s [00:52:26.971] - future.globals: with names ‘42’ 1547s [00:52:26.971] - use_args: TRUE 1547s [00:52:26.971] - Getting '...' globals ... 1547s [00:52:26.972] - '...' content: [n=0] 1547s [00:52:26.972] List of 1 1547s [00:52:26.972] $ ...: list() 1547s [00:52:26.972] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1547s [00:52:26.972] - attr(*, "where")=List of 1 1547s [00:52:26.972] ..$ ...: 1547s [00:52:26.972] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1547s [00:52:26.972] - attr(*, "resolved")= logi TRUE 1547s [00:52:26.972] - attr(*, "total_size")= num NA 1547s [00:52:26.975] - Getting '...' globals ... DONE 1547s [00:52:26.975] Globals to be used in all futures (chunks): [n=3] ‘a’, ‘...future.FUN’, ‘...’ 1547s [00:52:26.975] List of 3 1547s [00:52:26.975] $ a : num 42 1547s [00:52:26.975] $ ...future.FUN:function (x) 1547s [00:52:26.975] $ ... : list() 1547s [00:52:26.975] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1547s [00:52:26.975] - attr(*, "where")=List of 3 1547s [00:52:26.975] ..$ a : 1547s [00:52:26.975] ..$ ...future.FUN: 1547s [00:52:26.975] ..$ ... : 1547s [00:52:26.975] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1547s [00:52:26.975] - attr(*, "resolved")= logi FALSE 1547s [00:52:26.975] - attr(*, "total_size")= num NA 1547s [00:52:26.979] Packages to be attached in all futures: [n=0] 1547s [00:52:26.979] getGlobalsAndPackagesXApply() ... DONE 1547s [00:52:26.980] Number of futures (= number of chunks): 1 1547s [00:52:26.980] Launching 1 futures (chunks) ... 1547s [00:52:26.981] Chunk #1 of 1 ... 1547s [00:52:26.981] - seeds: 1547s [00:52:26.981] - All globals exported: [n=6] ‘a’, ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1547s [00:52:26.990] Created future: 1547s [00:52:26.991] SequentialFuture: 1547s [00:52:26.991] Label: ‘future_lapply-1’ 1547s [00:52:26.991] Expression: 1547s [00:52:26.991] { 1547s [00:52:26.991] do.call(function(...) { 1547s [00:52:26.991] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1547s [00:52:26.991] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1547s [00:52:26.991] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1547s [00:52:26.991] on.exit(options(oopts), add = TRUE) 1547s [00:52:26.991] } 1547s [00:52:26.991] { 1547s [00:52:26.991] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1547s [00:52:26.991] ...future.X_jj <- ...future.elements_ii[[jj]] 1547s [00:52:26.991] ...future.FUN(...future.X_jj, ...) 1547s [00:52:26.991] }) 1547s [00:52:26.991] } 1547s [00:52:26.991] }, args = future.call.arguments) 1547s [00:52:26.991] } 1547s [00:52:26.991] Lazy evaluation: FALSE 1547s [00:52:26.991] Asynchronous evaluation: FALSE 1547s [00:52:26.991] Local evaluation: TRUE 1547s [00:52:26.991] Environment: R_GlobalEnv 1547s [00:52:26.991] Capture standard output: TRUE 1547s [00:52:26.991] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1547s [00:52:26.991] Globals: 6 objects totaling 1.45 KiB (numeric ‘a’ of 56 bytes, function ‘...future.FUN’ of 1.34 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 56 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, ...) 1547s [00:52:26.991] Packages: 1547s [00:52:26.991] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1547s [00:52:26.991] Resolved: TRUE 1547s [00:52:26.991] Value: 56 bytes of class ‘list’ 1547s [00:52:26.991] Early signaling: FALSE 1547s [00:52:26.991] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1547s [00:52:26.991] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1547s [00:52:26.992] Chunk #1 of 1 ... DONE 1547s [00:52:26.992] Launching 1 futures (chunks) ... DONE 1547s [00:52:26.993] Resolving 1 futures (chunks) ... 1547s [00:52:26.993] - Number of value chunks collected: 1 1547s [00:52:26.993] Resolving 1 futures (chunks) ... DONE 1547s [00:52:26.994] Reducing values from 1 chunks ... 1547s [00:52:26.994] - Number of values collected after concatenation: 1 1547s [00:52:26.994] - Number of values expected: 1 1547s [00:52:26.994] Reducing values from 1 chunks ... DONE 1547s [00:52:26.994] future_lapply() ... DONE 1547s List of 1 1547s $ : num 42 1547s [00:52:27.007] future_lapply() ... 1547s [00:52:27.011] Number of chunks: 1 1547s [00:52:27.012] getGlobalsAndPackagesXApply() ... 1547s [00:52:27.012] - future.globals: TRUE 1547s [00:52:27.018] - globals found/used: [n=5] ‘FUN’, ‘caller’, ‘args’, ‘call_my_add’, ‘my_add’ 1547s [00:52:27.018] - needed namespaces: [n=0] 1547s [00:52:27.018] Finding globals ... DONE 1547s [00:52:27.018] - use_args: TRUE 1547s [00:52:27.019] - Getting '...' globals ... 1547s [00:52:27.019] - '...' content: [n=0] 1547s [00:52:27.019] List of 1 1547s [00:52:27.019] $ ...: list() 1547s [00:52:27.019] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1547s [00:52:27.019] - attr(*, "where")=List of 1 1547s [00:52:27.019] ..$ ...: 1547s [00:52:27.019] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1547s [00:52:27.019] - attr(*, "resolved")= logi TRUE 1547s [00:52:27.019] - attr(*, "total_size")= num NA 1547s [00:52:27.023] - Getting '...' globals ... DONE 1547s [00:52:27.023] Globals to be used in all futures (chunks): [n=6] ‘...future.FUN’, ‘caller’, ‘args’, ‘call_my_add’, ‘my_add’, ‘...’ 1547s [00:52:27.023] List of 6 1547s [00:52:27.023] $ ...future.FUN:function (i) 1547s [00:52:27.023] $ caller :function (a, b, FUN = call_my_add) 1547s [00:52:27.023] $ args :List of 1 1547s [00:52:27.023] ..$ FUN:function (a, b) 1547s [00:52:27.023] $ call_my_add :function (a, b) 1547s [00:52:27.023] $ my_add :function (a, b) 1547s [00:52:27.023] $ ... : list() 1547s [00:52:27.023] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1547s [00:52:27.023] - attr(*, "where")=List of 6 1547s [00:52:27.023] ..$ ...future.FUN: 1547s [00:52:27.023] ..$ caller : 1547s [00:52:27.023] ..$ args : 1547s [00:52:27.023] ..$ call_my_add : 1547s [00:52:27.023] ..$ my_add : 1547s [00:52:27.023] ..$ ... : 1547s [00:52:27.023] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1547s [00:52:27.023] - attr(*, "resolved")= logi FALSE 1547s [00:52:27.023] - attr(*, "total_size")= num 24120 1547s [00:52:27.029] Packages to be attached in all futures: [n=0] 1547s [00:52:27.030] getGlobalsAndPackagesXApply() ... DONE 1547s [00:52:27.030] Number of futures (= number of chunks): 1 1547s [00:52:27.030] Launching 1 futures (chunks) ... 1547s [00:52:27.030] Chunk #1 of 1 ... 1547s [00:52:27.031] - Finding globals in 'X' for chunk #1 ... 1547s [00:52:27.032] + additional globals found: [n=0] 1547s [00:52:27.032] + additional namespaces needed: [n=0] 1547s [00:52:27.032] - Finding globals in 'X' for chunk #1 ... DONE 1547s [00:52:27.032] - seeds: 1547s [00:52:27.033] - All globals exported: [n=9] ‘...future.FUN’, ‘caller’, ‘args’, ‘call_my_add’, ‘my_add’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1547s [00:52:27.044] Created future: 1547s [00:52:27.044] SequentialFuture: 1547s [00:52:27.044] Label: ‘future_lapply-1’ 1547s [00:52:27.044] Expression: 1547s [00:52:27.044] { 1547s [00:52:27.044] do.call(function(...) { 1547s [00:52:27.044] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1547s [00:52:27.044] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1547s [00:52:27.044] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1547s [00:52:27.044] on.exit(options(oopts), add = TRUE) 1547s [00:52:27.044] } 1547s [00:52:27.044] { 1547s [00:52:27.044] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1547s [00:52:27.044] ...future.X_jj <- ...future.elements_ii[[jj]] 1547s [00:52:27.044] ...future.FUN(...future.X_jj, ...) 1547s [00:52:27.044] }) 1547s [00:52:27.044] } 1547s [00:52:27.044] }, args = future.call.arguments) 1547s [00:52:27.044] } 1547s [00:52:27.044] Lazy evaluation: FALSE 1547s [00:52:27.044] Asynchronous evaluation: FALSE 1547s [00:52:27.044] Local evaluation: TRUE 1547s [00:52:27.044] Environment: 0x2aa1c7e5818 1547s [00:52:27.044] Capture standard output: TRUE 1547s [00:52:27.044] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1547s [00:52:27.044] Globals: 9 objects totaling 23.72 KiB (function ‘...future.FUN’ of 9.20 KiB, function ‘caller’ of 1.48 KiB, list ‘args’ of 5.72 KiB, function ‘call_my_add’ of 5.72 KiB, function ‘my_add’ of 1.44 KiB, ...) 1547s [00:52:27.044] Packages: 1547s [00:52:27.044] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1547s [00:52:27.044] Resolved: TRUE 1547s [00:52:27.044] Value: 168 bytes of class ‘list’ 1547s [00:52:27.044] Early signaling: FALSE 1547s [00:52:27.044] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1547s [00:52:27.044] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1547s [00:52:27.045] Chunk #1 of 1 ... DONE 1547s [00:52:27.045] Launching 1 futures (chunks) ... DONE 1547s [00:52:27.045] Resolving 1 futures (chunks) ... 1547s [00:52:27.046] - Number of value chunks collected: 1 1547s [00:52:27.046] Resolving 1 futures (chunks) ... DONE 1547s [00:52:27.046] Reducing values from 1 chunks ... 1547s [00:52:27.046] - Number of values collected after concatenation: 3 1547s [00:52:27.046] - Number of values expected: 3 1547s [00:52:27.047] Reducing values from 1 chunks ... DONE 1547s [00:52:27.047] future_lapply() ... DONE 1547s - future_lapply(x, FUN = do.call, ...) ... 1547s [00:52:27.047] future_lapply() ... 1547s [00:52:27.051] Number of chunks: 1 1547s [00:52:27.052] getGlobalsAndPackagesXApply() ... 1547s [00:52:27.052] - future.globals: TRUE 1547s [00:52:27.055] - globals found/used: [n=1] ‘FUN’ 1547s [00:52:27.055] - needed namespaces: [n=0] 1547s [00:52:27.056] Finding globals ... DONE 1547s [00:52:27.056] - use_args: TRUE 1547s [00:52:27.056] - Getting '...' globals ... 1547s [00:52:27.056] - '...' content: [n=1] ‘what’ 1547s [00:52:27.056] List of 1 1547s [00:52:27.056] $ ...:List of 1 1547s [00:52:27.056] ..$ what:function (x) 1547s [00:52:27.056] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1547s [00:52:27.056] - attr(*, "where")=List of 1 1547s [00:52:27.056] ..$ ...: 1547s [00:52:27.056] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1547s [00:52:27.056] - attr(*, "resolved")= logi TRUE 1547s [00:52:27.056] - attr(*, "total_size")= num NA 1547s [00:52:27.061] - Getting '...' globals ... DONE 1547s [00:52:27.062] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1547s [00:52:27.062] List of 2 1547s [00:52:27.062] $ ...future.FUN:function (what, args, quote = FALSE, envir = parent.frame()) 1547s [00:52:27.062] $ ... :List of 1 1547s [00:52:27.062] ..$ what:function (x) 1547s [00:52:27.062] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1547s [00:52:27.062] - attr(*, "where")=List of 2 1547s [00:52:27.062] ..$ ...future.FUN: 1547s [00:52:27.062] ..$ ... : 1547s [00:52:27.062] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1547s [00:52:27.062] - attr(*, "resolved")= logi FALSE 1547s [00:52:27.062] - attr(*, "total_size")= num 12192 1547s [00:52:27.066] Packages to be attached in all futures: [n=0] 1547s [00:52:27.066] getGlobalsAndPackagesXApply() ... DONE 1547s [00:52:27.066] Number of futures (= number of chunks): 1 1547s [00:52:27.066] Launching 1 futures (chunks) ... 1547s [00:52:27.067] Chunk #1 of 1 ... 1547s [00:52:27.067] - Finding globals in 'X' for chunk #1 ... 1547s [00:52:27.067] + additional globals found: [n=0] 1547s [00:52:27.067] + additional namespaces needed: [n=0] 1547s [00:52:27.067] - Finding globals in 'X' for chunk #1 ... DONE 1547s [00:52:27.068] - seeds: 1547s [00:52:27.068] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1547s [00:52:27.077] Created future: 1547s [00:52:27.078] SequentialFuture: 1547s [00:52:27.078] Label: ‘future_lapply-1’ 1547s [00:52:27.078] Expression: 1547s [00:52:27.078] { 1547s [00:52:27.078] do.call(function(...) { 1547s [00:52:27.078] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1547s [00:52:27.078] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1547s [00:52:27.078] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1547s [00:52:27.078] on.exit(options(oopts), add = TRUE) 1547s [00:52:27.078] } 1547s [00:52:27.078] { 1547s [00:52:27.078] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1547s [00:52:27.078] ...future.X_jj <- ...future.elements_ii[[jj]] 1547s [00:52:27.078] ...future.FUN(...future.X_jj, ...) 1547s [00:52:27.078] }) 1547s [00:52:27.078] } 1547s [00:52:27.078] }, args = future.call.arguments) 1547s [00:52:27.078] } 1547s [00:52:27.078] Lazy evaluation: FALSE 1547s [00:52:27.078] Asynchronous evaluation: FALSE 1547s [00:52:27.078] Local evaluation: TRUE 1547s [00:52:27.078] Environment: R_GlobalEnv 1547s [00:52:27.078] Capture standard output: TRUE 1547s [00:52:27.078] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1547s [00:52:27.078] Globals: 5 objects totaling 11.96 KiB (function ‘...future.FUN’ of 11.85 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 56 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1547s [00:52:27.078] Packages: 1547s [00:52:27.078] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1547s [00:52:27.078] Resolved: TRUE 1547s [00:52:27.078] Value: 56 bytes of class ‘list’ 1547s [00:52:27.078] Early signaling: FALSE 1547s [00:52:27.078] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1547s [00:52:27.078] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1547s [00:52:27.079] Chunk #1 of 1 ... DONE 1547s [00:52:27.079] Launching 1 futures (chunks) ... DONE 1547s [00:52:27.079] Resolving 1 futures (chunks) ... 1547s [00:52:27.080] - Number of value chunks collected: 1 1547s [00:52:27.080] Resolving 1 futures (chunks) ... DONE 1547s [00:52:27.080] Reducing values from 1 chunks ... 1547s [00:52:27.080] - Number of values collected after concatenation: 1 1547s [00:52:27.081] - Number of values expected: 1 1547s [00:52:27.081] Reducing values from 1 chunks ... DONE 1547s [00:52:27.081] future_lapply() ... DONE 1547s [00:52:27.081] future_lapply() ... 1547s [00:52:27.086] Number of chunks: 1 1547s [00:52:27.087] getGlobalsAndPackagesXApply() ... 1547s [00:52:27.087] - future.globals: TRUE 1547s [00:52:27.091] - globals found/used: [n=1] ‘FUN’ 1547s [00:52:27.092] - needed namespaces: [n=0] 1547s [00:52:27.092] Finding globals ... DONE 1547s [00:52:27.092] - use_args: TRUE 1547s [00:52:27.092] - Getting '...' globals ... 1547s [00:52:27.092] - '...' content: [n=1] ‘what’ 1547s [00:52:27.092] List of 1 1547s [00:52:27.092] $ ...:List of 1 1547s [00:52:27.092] ..$ what:function (...) 1547s [00:52:27.092] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1547s [00:52:27.092] - attr(*, "where")=List of 1 1547s [00:52:27.092] ..$ ...: 1547s [00:52:27.092] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1547s [00:52:27.092] - attr(*, "resolved")= logi TRUE 1547s [00:52:27.092] - attr(*, "total_size")= num NA 1547s [00:52:27.096] - Getting '...' globals ... DONE 1547s [00:52:27.096] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1547s [00:52:27.096] List of 2 1547s [00:52:27.096] $ ...future.FUN:function (what, args, quote = FALSE, envir = parent.frame()) 1547s [00:52:27.096] $ ... :List of 1 1547s [00:52:27.096] ..$ what:function (...) 1547s [00:52:27.096] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1547s [00:52:27.096] - attr(*, "where")=List of 2 1547s [00:52:27.096] ..$ ...future.FUN: 1547s [00:52:27.096] ..$ ... : 1547s [00:52:27.096] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1547s [00:52:27.096] - attr(*, "resolved")= logi FALSE 1547s [00:52:27.096] - attr(*, "total_size")= num 13352 1547s [00:52:27.099] Packages to be attached in all futures: [n=0] 1547s [00:52:27.100] getGlobalsAndPackagesXApply() ... DONE 1547s [00:52:27.100] Number of futures (= number of chunks): 1 1547s [00:52:27.101] Launching 1 futures (chunks) ... 1547s [00:52:27.101] Chunk #1 of 1 ... 1547s [00:52:27.101] - Finding globals in 'X' for chunk #1 ... 1547s [00:52:27.102] + additional globals found: [n=0] 1547s [00:52:27.103] + additional namespaces needed: [n=0] 1547s [00:52:27.103] - Finding globals in 'X' for chunk #1 ... DONE 1547s [00:52:27.103] - seeds: 1547s [00:52:27.103] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1547s [00:52:27.112] Created future: 1547s [00:52:27.112] SequentialFuture: 1547s [00:52:27.112] Label: ‘future_lapply-1’ 1547s [00:52:27.112] Expression: 1547s [00:52:27.112] { 1547s [00:52:27.112] do.call(function(...) { 1547s [00:52:27.112] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1547s [00:52:27.112] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1547s [00:52:27.112] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1547s [00:52:27.112] on.exit(options(oopts), add = TRUE) 1547s [00:52:27.112] } 1547s [00:52:27.112] { 1547s [00:52:27.112] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1547s [00:52:27.112] ...future.X_jj <- ...future.elements_ii[[jj]] 1547s [00:52:27.112] ...future.FUN(...future.X_jj, ...) 1547s [00:52:27.112] }) 1547s [00:52:27.112] } 1547s [00:52:27.112] }, args = future.call.arguments) 1547s [00:52:27.112] } 1547s [00:52:27.112] Lazy evaluation: FALSE 1547s [00:52:27.112] Asynchronous evaluation: FALSE 1547s [00:52:27.112] Local evaluation: TRUE 1547s [00:52:27.112] Environment: R_GlobalEnv 1547s [00:52:27.112] Capture standard output: TRUE 1547s [00:52:27.112] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1547s [00:52:27.112] Globals: 5 objects totaling 13.09 KiB (function ‘...future.FUN’ of 11.85 KiB, DotDotDotList ‘future.call.arguments’ of 1.19 KiB, list ‘...future.elements_ii’ of 56 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1547s [00:52:27.112] Packages: 1547s [00:52:27.112] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1547s [00:52:27.112] Resolved: TRUE 1547s [00:52:27.112] Value: 56 bytes of class ‘list’ 1547s [00:52:27.112] Early signaling: FALSE 1547s [00:52:27.112] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1547s [00:52:27.112] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1547s [00:52:27.113] Chunk #1 of 1 ... DONE 1547s [00:52:27.113] Launching 1 futures (chunks) ... DONE 1547s [00:52:27.114] Resolving 1 futures (chunks) ... 1547s [00:52:27.114] - Number of value chunks collected: 1 1547s [00:52:27.114] Resolving 1 futures (chunks) ... DONE 1547s [00:52:27.114] Reducing values from 1 chunks ... 1547s [00:52:27.115] - Number of values collected after concatenation: 1 1547s [00:52:27.115] - Number of values expected: 1 1547s [00:52:27.115] Reducing values from 1 chunks ... DONE 1547s [00:52:27.115] future_lapply() ... DONE 1547s - future_lapply(x, ...) - passing arguments via '...' ... 1547s [00:52:27.116] future_lapply() ... 1547s [00:52:27.127] Number of chunks: 1 1547s [00:52:27.127] getGlobalsAndPackagesXApply() ... 1547s [00:52:27.127] - future.globals: TRUE 1547s [00:52:27.129] - globals found/used: [n=1] ‘FUN’ 1547s [00:52:27.129] - needed namespaces: [n=0] 1547s [00:52:27.129] Finding globals ... DONE 1547s [00:52:27.130] - use_args: TRUE 1547s [00:52:27.130] - Getting '...' globals ... 1547s [00:52:27.131] - '...' content: [n=1] ‘b’ 1547s [00:52:27.131] List of 1 1547s [00:52:27.131] $ ...:List of 1 1547s [00:52:27.131] ..$ b:'data.frame': 2 obs. of 1 variable: 1547s [00:52:27.131] .. ..$ a: int [1:2] 1 2 1547s [00:52:27.131] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1547s [00:52:27.131] - attr(*, "where")=List of 1 1547s [00:52:27.131] ..$ ...: 1547s [00:52:27.131] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1547s [00:52:27.131] - attr(*, "resolved")= logi TRUE 1547s [00:52:27.131] - attr(*, "total_size")= num NA 1547s [00:52:27.135] - Getting '...' globals ... DONE 1547s [00:52:27.136] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1547s [00:52:27.136] List of 2 1547s [00:52:27.136] $ ...future.FUN:function (a, b) 1547s [00:52:27.136] $ ... :List of 1 1547s [00:52:27.136] ..$ b:'data.frame': 2 obs. of 1 variable: 1547s [00:52:27.136] .. ..$ a: int [1:2] 1 2 1547s [00:52:27.136] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1547s [00:52:27.136] - attr(*, "where")=List of 2 1547s [00:52:27.136] ..$ ...future.FUN: 1547s [00:52:27.136] ..$ ... : 1547s [00:52:27.136] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1547s [00:52:27.136] - attr(*, "resolved")= logi FALSE 1547s [00:52:27.136] - attr(*, "total_size")= num 1440 1547s [00:52:27.141] Packages to be attached in all futures: [n=0] 1547s [00:52:27.141] getGlobalsAndPackagesXApply() ... DONE 1547s [00:52:27.141] Number of futures (= number of chunks): 1 1547s [00:52:27.142] Launching 1 futures (chunks) ... 1547s [00:52:27.142] Chunk #1 of 1 ... 1547s [00:52:27.142] - Finding globals in 'X' for chunk #1 ... 1547s [00:52:27.142] + additional globals found: [n=0] 1547s [00:52:27.142] + additional namespaces needed: [n=0] 1547s [00:52:27.143] - Finding globals in 'X' for chunk #1 ... DONE 1547s [00:52:27.143] - seeds: 1547s [00:52:27.143] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1547s [00:52:27.151] Created future: 1547s [00:52:27.151] SequentialFuture: 1547s [00:52:27.151] Label: ‘future_lapply-1’ 1547s [00:52:27.151] Expression: 1547s [00:52:27.151] { 1547s [00:52:27.151] do.call(function(...) { 1547s [00:52:27.151] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1547s [00:52:27.151] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1547s [00:52:27.151] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1547s [00:52:27.151] on.exit(options(oopts), add = TRUE) 1547s [00:52:27.151] } 1547s [00:52:27.151] { 1547s [00:52:27.151] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1547s [00:52:27.151] ...future.X_jj <- ...future.elements_ii[[jj]] 1547s [00:52:27.151] ...future.FUN(...future.X_jj, ...) 1547s [00:52:27.151] }) 1547s [00:52:27.151] } 1547s [00:52:27.151] }, args = future.call.arguments) 1547s [00:52:27.151] } 1547s [00:52:27.151] Lazy evaluation: FALSE 1547s [00:52:27.151] Asynchronous evaluation: FALSE 1547s [00:52:27.151] Local evaluation: TRUE 1547s [00:52:27.151] Environment: R_GlobalEnv 1547s [00:52:27.151] Capture standard output: TRUE 1547s [00:52:27.151] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1547s [00:52:27.151] Globals: 5 objects totaling 1.52 KiB (function ‘...future.FUN’ of 1.41 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 56 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1547s [00:52:27.151] Packages: 1547s [00:52:27.151] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1547s [00:52:27.151] Resolved: TRUE 1547s [00:52:27.151] Value: 112 bytes of class ‘list’ 1547s [00:52:27.151] Early signaling: FALSE 1547s [00:52:27.151] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1547s [00:52:27.151] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1547s [00:52:27.153] Chunk #1 of 1 ... DONE 1547s [00:52:27.153] Launching 1 futures (chunks) ... DONE 1547s [00:52:27.153] Resolving 1 futures (chunks) ... 1547s [00:52:27.154] - Number of value chunks collected: 1 1547s [00:52:27.154] Resolving 1 futures (chunks) ... DONE 1547s [00:52:27.154] Reducing values from 1 chunks ... 1547s [00:52:27.154] - Number of values collected after concatenation: 1 1547s [00:52:27.154] - Number of values expected: 1 1547s [00:52:27.155] Reducing values from 1 chunks ... DONE 1547s [00:52:27.155] future_lapply() ... DONE 1547s [00:52:27.155] future_lapply() ... 1547s [00:52:27.158] Number of chunks: 1 1547s [00:52:27.159] getGlobalsAndPackagesXApply() ... 1547s [00:52:27.159] - future.globals: TRUE 1547s [00:52:27.161] - globals found/used: [n=1] ‘FUN’ 1547s [00:52:27.161] - needed namespaces: [n=0] 1547s [00:52:27.161] Finding globals ... DONE 1547s [00:52:27.161] - use_args: TRUE 1547s [00:52:27.161] - Getting '...' globals ... 1547s [00:52:27.162] - '...' content: [n=1] ‘b’ 1547s [00:52:27.162] List of 1 1547s [00:52:27.162] $ ...:List of 1 1547s [00:52:27.162] ..$ b: 1547s [00:52:27.162] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1547s [00:52:27.162] - attr(*, "where")=List of 1 1547s [00:52:27.162] ..$ ...: 1547s [00:52:27.162] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1547s [00:52:27.162] - attr(*, "resolved")= logi TRUE 1547s [00:52:27.162] - attr(*, "total_size")= num NA 1547s [00:52:27.165] - Getting '...' globals ... DONE 1547s [00:52:27.165] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1547s [00:52:27.166] List of 2 1547s [00:52:27.166] $ ...future.FUN:function (a, b) 1547s [00:52:27.166] $ ... :List of 1 1547s [00:52:27.166] ..$ b: 1547s [00:52:27.166] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1547s [00:52:27.166] - attr(*, "where")=List of 2 1547s [00:52:27.166] ..$ ...future.FUN: 1547s [00:52:27.166] ..$ ... : 1547s [00:52:27.166] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1547s [00:52:27.166] - attr(*, "resolved")= logi FALSE 1547s [00:52:27.166] - attr(*, "total_size")= num 1440 1547s [00:52:27.171] Packages to be attached in all futures: [n=0] 1547s [00:52:27.171] getGlobalsAndPackagesXApply() ... DONE 1547s [00:52:27.171] Number of futures (= number of chunks): 1 1547s [00:52:27.171] Launching 1 futures (chunks) ... 1547s [00:52:27.171] Chunk #1 of 1 ... 1547s [00:52:27.172] - Finding globals in 'X' for chunk #1 ... 1547s [00:52:27.172] + additional globals found: [n=0] 1547s [00:52:27.172] + additional namespaces needed: [n=0] 1547s [00:52:27.172] - Finding globals in 'X' for chunk #1 ... DONE 1547s [00:52:27.172] - seeds: 1547s [00:52:27.173] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1547s [00:52:27.181] Created future: 1547s [00:52:27.181] SequentialFuture: 1547s [00:52:27.181] Label: ‘future_lapply-1’ 1547s [00:52:27.181] Expression: 1547s [00:52:27.181] { 1547s [00:52:27.181] do.call(function(...) { 1547s [00:52:27.181] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1547s [00:52:27.181] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1547s [00:52:27.181] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1547s [00:52:27.181] on.exit(options(oopts), add = TRUE) 1547s [00:52:27.181] } 1547s [00:52:27.181] { 1547s [00:52:27.181] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1547s [00:52:27.181] ...future.X_jj <- ...future.elements_ii[[jj]] 1547s [00:52:27.181] ...future.FUN(...future.X_jj, ...) 1547s [00:52:27.181] }) 1547s [00:52:27.181] } 1547s [00:52:27.181] }, args = future.call.arguments) 1547s [00:52:27.181] } 1547s [00:52:27.181] Lazy evaluation: FALSE 1547s [00:52:27.181] Asynchronous evaluation: FALSE 1547s [00:52:27.181] Local evaluation: TRUE 1547s [00:52:27.181] Environment: R_GlobalEnv 1547s [00:52:27.181] Capture standard output: TRUE 1547s [00:52:27.181] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1547s [00:52:27.181] Globals: 5 objects totaling 1.46 KiB (function ‘...future.FUN’ of 1.41 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 56 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1547s [00:52:27.181] Packages: 1547s [00:52:27.181] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1547s [00:52:27.181] Resolved: TRUE 1547s [00:52:27.181] Value: 120 bytes of class ‘list’ 1547s [00:52:27.181] Early signaling: FALSE 1547s [00:52:27.181] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1547s [00:52:27.181] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1547s [00:52:27.183] Chunk #1 of 1 ... DONE 1547s [00:52:27.183] Launching 1 futures (chunks) ... DONE 1547s [00:52:27.183] Resolving 1 futures (chunks) ... 1547s [00:52:27.184] - Number of value chunks collected: 1 1547s [00:52:27.184] Resolving 1 futures (chunks) ... DONE 1547s [00:52:27.184] Reducing values from 1 chunks ... 1547s [00:52:27.184] - Number of values collected after concatenation: 1 1547s [00:52:27.184] - Number of values expected: 1 1547s [00:52:27.185] Reducing values from 1 chunks ... DONE 1547s [00:52:27.185] future_lapply() ... DONE 1547s [00:52:27.185] future_lapply() ... 1547s [00:52:27.188] Number of chunks: 1 1547s [00:52:27.189] getGlobalsAndPackagesXApply() ... 1547s [00:52:27.189] - future.globals: TRUE 1547s [00:52:27.191] - globals found/used: [n=1] ‘FUN’ 1547s [00:52:27.192] - needed namespaces: [n=0] 1547s [00:52:27.192] Finding globals ... DONE 1547s [00:52:27.192] - use_args: TRUE 1547s [00:52:27.192] - Getting '...' globals ... 1547s [00:52:27.193] - '...' content: [n=1] ‘b’ 1547s [00:52:27.194] List of 1 1547s [00:52:27.194] $ ...:List of 1 1547s [00:52:27.194] ..$ b:Formal class 'classRepresentation' [package "methods"] with 11 slots 1547s [00:52:27.194] .. .. ..@ slots :List of 4 1547s [00:52:27.194] .. .. .. ..$ .Data : chr "function" 1547s [00:52:27.194] .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.194] .. .. .. ..$ target : chr "signature" 1547s [00:52:27.194] .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.194] .. .. .. ..$ defined: chr "signature" 1547s [00:52:27.194] .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.194] .. .. .. ..$ generic: chr "character" 1547s [00:52:27.194] .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.194] .. .. ..@ contains :List of 3 1547s [00:52:27.194] .. .. .. ..$ function :Formal class 'SClassExtension' [package "methods"] with 10 slots 1547s [00:52:27.194] .. .. .. .. .. ..@ subClass : chr "MethodDefinition" 1547s [00:52:27.194] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.194] .. .. .. .. .. ..@ superClass: chr "function" 1547s [00:52:27.194] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.194] .. .. .. .. .. ..@ package : chr "methods" 1547s [00:52:27.194] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1547s [00:52:27.194] .. .. .. .. .. ..@ test :function (object) 1547s [00:52:27.194] .. .. .. .. .. ..@ replace :function (from, to, value) 1547s [00:52:27.194] .. .. .. .. .. ..@ simple : logi TRUE 1547s [00:52:27.194] .. .. .. .. .. ..@ by : chr(0) 1547s [00:52:27.194] .. .. .. .. .. ..@ dataPart : logi TRUE 1547s [00:52:27.194] .. .. .. .. .. ..@ distance : num 1 1547s [00:52:27.194] .. .. .. ..$ PossibleMethod :Formal class 'SClassExtension' [package "methods"] with 10 slots 1547s [00:52:27.194] .. .. .. .. .. ..@ subClass : chr "MethodDefinition" 1547s [00:52:27.194] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.194] .. .. .. .. .. ..@ superClass: chr "PossibleMethod" 1547s [00:52:27.194] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.194] .. .. .. .. .. ..@ package : chr "methods" 1547s [00:52:27.194] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1547s [00:52:27.194] .. .. .. .. .. ..@ test :function (object) 1547s [00:52:27.194] .. .. .. .. .. ..@ replace :function (from, to, value) 1547s [00:52:27.194] .. .. .. .. .. ..@ simple : logi TRUE 1547s [00:52:27.194] .. .. .. .. .. ..@ by : chr(0) 1547s [00:52:27.194] .. .. .. .. .. ..@ dataPart : logi FALSE 1547s [00:52:27.194] .. .. .. .. .. ..@ distance : num 1 1547s [00:52:27.194] .. .. .. ..$ OptionalFunction:Formal class 'SClassExtension' [package "methods"] with 10 slots 1547s [00:52:27.194] .. .. .. .. .. ..@ subClass : chr "MethodDefinition" 1547s [00:52:27.194] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.194] .. .. .. .. .. ..@ superClass: chr "OptionalFunction" 1547s [00:52:27.194] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.194] .. .. .. .. .. ..@ package : chr "methods" 1547s [00:52:27.194] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1547s [00:52:27.194] .. .. .. .. .. ..@ test :function (object) 1547s [00:52:27.194] .. .. .. .. .. ..@ replace :function (from, to, value) 1547s [00:52:27.194] .. .. .. .. .. ..@ simple : logi TRUE 1547s [00:52:27.194] .. .. .. .. .. ..@ by : chr "function" 1547s [00:52:27.194] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.194] .. .. .. .. .. ..@ dataPart : logi FALSE 1547s [00:52:27.194] .. .. .. .. .. ..@ distance : num 2 1547s [00:52:27.194] .. .. ..@ virtual : logi FALSE 1547s [00:52:27.194] .. .. ..@ prototype :Formal class 'function' [package ""] with 0 slots 1547s [00:52:27.194] list() 1547s [00:52:27.194] .. .. .. .. ..$ target :Formal class 'signature' [package "methods"] with 3 slots 1547s [00:52:27.194] .. .. .. .. .. .. ..@ .Data : chr(0) 1547s [00:52:27.194] .. .. .. .. .. .. ..@ names : chr(0) 1547s [00:52:27.194] .. .. .. .. .. .. ..@ package: chr(0) 1547s [00:52:27.194] .. .. .. .. ..$ defined:Formal class 'signature' [package "methods"] with 3 slots 1547s [00:52:27.194] .. .. .. .. .. .. ..@ .Data : chr(0) 1547s [00:52:27.194] .. .. .. .. .. .. ..@ names : chr(0) 1547s [00:52:27.194] .. .. .. .. .. .. ..@ package: chr(0) 1547s [00:52:27.194] .. .. .. .. ..$ generic: chr(0) 1547s [00:52:27.194] .. .. ..@ validity : NULL 1547s [00:52:27.194] .. .. ..@ access : list() 1547s [00:52:27.194] .. .. ..@ className : chr "MethodDefinition" 1547s [00:52:27.194] .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.194] .. .. ..@ package : chr "methods" 1547s [00:52:27.194] .. .. ..@ subclasses:List of 7 1547s [00:52:27.194] .. .. .. ..$ derivedDefaultMethod :Formal class 'SClassExtension' [package "methods"] with 10 slots 1547s [00:52:27.194] .. .. .. .. .. ..@ subClass : chr "derivedDefaultMethod" 1547s [00:52:27.194] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.194] .. .. .. .. .. ..@ superClass: chr "MethodDefinition" 1547s [00:52:27.194] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.194] .. .. .. .. .. ..@ package : chr "methods" 1547s [00:52:27.194] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1547s [00:52:27.194] .. .. .. .. .. ..@ test :function (object) 1547s [00:52:27.194] .. .. .. .. .. ..@ replace :function (from, to, value) 1547s [00:52:27.194] .. .. .. .. .. ..@ simple : logi TRUE 1547s [00:52:27.194] .. .. .. .. .. ..@ by : chr(0) 1547s [00:52:27.194] .. .. .. .. .. ..@ dataPart : logi FALSE 1547s [00:52:27.194] .. .. .. .. .. ..@ distance : num 1 1547s [00:52:27.194] .. .. .. ..$ MethodWithNext :Formal class 'SClassExtension' [package "methods"] with 10 slots 1547s [00:52:27.194] .. .. .. .. .. ..@ subClass : chr "MethodWithNext" 1547s [00:52:27.194] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.194] .. .. .. .. .. ..@ superClass: chr "MethodDefinition" 1547s [00:52:27.194] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.194] .. .. .. .. .. ..@ package : chr "methods" 1547s [00:52:27.194] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1547s [00:52:27.194] .. .. .. .. .. ..@ test :function (object) 1547s [00:52:27.194] .. .. .. .. .. ..@ replace :function (from, to, value) 1547s [00:52:27.194] .. .. .. .. .. ..@ simple : logi TRUE 1547s [00:52:27.194] .. .. .. .. .. ..@ by : chr(0) 1547s [00:52:27.194] .. .. .. .. .. ..@ dataPart : logi FALSE 1547s [00:52:27.194] .. .. .. .. .. ..@ distance : num 1 1547s [00:52:27.194] .. .. .. ..$ SealedMethodDefinition :Formal class 'SClassExtension' [package "methods"] with 10 slots 1547s [00:52:27.194] .. .. .. .. .. ..@ subClass : chr "SealedMethodDefinition" 1547s [00:52:27.194] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.194] .. .. .. .. .. ..@ superClass: chr "MethodDefinition" 1547s [00:52:27.194] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.194] .. .. .. .. .. ..@ package : chr "methods" 1547s [00:52:27.194] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1547s [00:52:27.194] .. .. .. .. .. ..@ test :function (object) 1547s [00:52:27.194] .. .. .. .. .. ..@ replace :function (from, to, value) 1547s [00:52:27.194] .. .. .. .. .. ..@ simple : logi TRUE 1547s [00:52:27.194] .. .. .. .. .. ..@ by : chr(0) 1547s [00:52:27.194] .. .. .. .. .. ..@ dataPart : logi FALSE 1547s [00:52:27.194] .. .. .. .. .. ..@ distance : num 1 1547s [00:52:27.194] .. .. .. ..$ MethodDefinitionWithTrace :Formal class 'SClassExtension' [package "methods"] with 10 slots 1547s [00:52:27.194] .. .. .. .. .. ..@ subClass : chr "MethodDefinitionWithTrace" 1547s [00:52:27.194] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.194] .. .. .. .. .. ..@ superClass: chr "MethodDefinition" 1547s [00:52:27.194] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.194] .. .. .. .. .. ..@ package : chr "methods" 1547s [00:52:27.194] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1547s [00:52:27.194] .. .. .. .. .. ..@ test :function (object) 1547s [00:52:27.194] .. .. .. .. .. ..@ replace :function (from, to, value) 1547s [00:52:27.194] .. .. .. .. .. ..@ simple : logi TRUE 1547s [00:52:27.194] .. .. .. .. .. ..@ by : chr(0) 1547s [00:52:27.194] .. .. .. .. .. ..@ dataPart : logi FALSE 1547s [00:52:27.194] .. .. .. .. .. ..@ distance : num 1 1547s [00:52:27.194] .. .. .. ..$ internalDispatchMethod :Formal class 'SClassExtension' [package "methods"] with 10 slots 1547s [00:52:27.194] .. .. .. .. .. ..@ subClass : chr "internalDispatchMethod" 1547s [00:52:27.194] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.194] .. .. .. .. .. ..@ superClass: chr "MethodDefinition" 1547s [00:52:27.194] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.194] .. .. .. .. .. ..@ package : chr "methods" 1547s [00:52:27.194] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1547s [00:52:27.194] .. .. .. .. .. ..@ test :function (object) 1547s [00:52:27.194] .. .. .. .. .. ..@ replace :function (from, to, value) 1547s [00:52:27.194] .. .. .. .. .. ..@ simple : logi TRUE 1547s [00:52:27.194] .. .. .. .. .. ..@ by : chr "derivedDefaultMethod" 1547s [00:52:27.194] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.194] .. .. .. .. .. ..@ dataPart : logi FALSE 1547s [00:52:27.194] .. .. .. .. .. ..@ distance : num 2 1547s [00:52:27.194] .. .. .. ..$ MethodWithNextWithTrace :Formal class 'SClassExtension' [package "methods"] with 10 slots 1547s [00:52:27.194] .. .. .. .. .. ..@ subClass : chr "MethodWithNextWithTrace" 1547s [00:52:27.194] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.194] .. .. .. .. .. ..@ superClass: chr "MethodDefinition" 1547s [00:52:27.194] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.194] .. .. .. .. .. ..@ package : chr "methods" 1547s [00:52:27.194] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1547s [00:52:27.194] .. .. .. .. .. ..@ test :function (object) 1547s [00:52:27.194] .. .. .. .. .. ..@ replace :function (from, to, value) 1547s [00:52:27.194] .. .. .. .. .. ..@ simple : logi TRUE 1547s [00:52:27.194] .. .. .. .. .. ..@ by : chr "MethodWithNext" 1547s [00:52:27.194] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.194] .. .. .. .. .. ..@ dataPart : logi FALSE 1547s [00:52:27.194] .. .. .. .. .. ..@ distance : num 2 1547s [00:52:27.194] .. .. .. ..$ derivedDefaultMethodWithTrace:Formal class 'SClassExtension' [package "methods"] with 10 slots 1547s [00:52:27.194] .. .. .. .. .. ..@ subClass : chr "derivedDefaultMethodWithTrace" 1547s [00:52:27.194] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.194] .. .. .. .. .. ..@ superClass: chr "MethodDefinition" 1547s [00:52:27.194] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.194] .. .. .. .. .. ..@ package : chr "methods" 1547s [00:52:27.194] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1547s [00:52:27.194] .. .. .. .. .. ..@ test :function (object) 1547s [00:52:27.194] .. .. .. .. .. ..@ replace :function (from, to, value) 1547s [00:52:27.194] .. .. .. .. .. ..@ simple : logi TRUE 1547s [00:52:27.194] .. .. .. .. .. ..@ by : chr "derivedDefaultMethod" 1547s [00:52:27.194] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.194] .. .. .. .. .. ..@ dataPart : logi FALSE 1547s [00:52:27.194] .. .. .. .. .. ..@ distance : num 2 1547s [00:52:27.194] .. .. ..@ versionKey: 1547s [00:52:27.194] .. .. ..@ sealed : logi TRUE 1547s [00:52:27.194] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1547s [00:52:27.194] - attr(*, "where")=List of 1 1547s [00:52:27.194] ..$ ...: 1547s [00:52:27.194] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1547s [00:52:27.194] - attr(*, "resolved")= logi TRUE 1547s [00:52:27.194] - attr(*, "total_size")= num NA 1547s [00:52:27.264] - Getting '...' globals ... DONE 1547s [00:52:27.264] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1547s [00:52:27.265] List of 2 1547s [00:52:27.265] $ ...future.FUN:function (a, b) 1547s [00:52:27.265] $ ... :List of 1 1547s [00:52:27.265] ..$ b:Formal class 'classRepresentation' [package "methods"] with 11 slots 1547s [00:52:27.265] .. .. ..@ slots :List of 4 1547s [00:52:27.265] .. .. .. ..$ .Data : chr "function" 1547s [00:52:27.265] .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.265] .. .. .. ..$ target : chr "signature" 1547s [00:52:27.265] .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.265] .. .. .. ..$ defined: chr "signature" 1547s [00:52:27.265] .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.265] .. .. .. ..$ generic: chr "character" 1547s [00:52:27.265] .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.265] .. .. ..@ contains :List of 3 1547s [00:52:27.265] .. .. .. ..$ function :Formal class 'SClassExtension' [package "methods"] with 10 slots 1547s [00:52:27.265] .. .. .. .. .. ..@ subClass : chr "MethodDefinition" 1547s [00:52:27.265] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.265] .. .. .. .. .. ..@ superClass: chr "function" 1547s [00:52:27.265] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.265] .. .. .. .. .. ..@ package : chr "methods" 1547s [00:52:27.265] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1547s [00:52:27.265] .. .. .. .. .. ..@ test :function (object) 1547s [00:52:27.265] .. .. .. .. .. ..@ replace :function (from, to, value) 1547s [00:52:27.265] .. .. .. .. .. ..@ simple : logi TRUE 1547s [00:52:27.265] .. .. .. .. .. ..@ by : chr(0) 1547s [00:52:27.265] .. .. .. .. .. ..@ dataPart : logi TRUE 1547s [00:52:27.265] .. .. .. .. .. ..@ distance : num 1 1547s [00:52:27.265] .. .. .. ..$ PossibleMethod :Formal class 'SClassExtension' [package "methods"] with 10 slots 1547s [00:52:27.265] .. .. .. .. .. ..@ subClass : chr "MethodDefinition" 1547s [00:52:27.265] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.265] .. .. .. .. .. ..@ superClass: chr "PossibleMethod" 1547s [00:52:27.265] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.265] .. .. .. .. .. ..@ package : chr "methods" 1547s [00:52:27.265] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1547s [00:52:27.265] .. .. .. .. .. ..@ test :function (object) 1547s [00:52:27.265] .. .. .. .. .. ..@ replace :function (from, to, value) 1547s [00:52:27.265] .. .. .. .. .. ..@ simple : logi TRUE 1547s [00:52:27.265] .. .. .. .. .. ..@ by : chr(0) 1547s [00:52:27.265] .. .. .. .. .. ..@ dataPart : logi FALSE 1547s [00:52:27.265] .. .. .. .. .. ..@ distance : num 1 1547s [00:52:27.265] .. .. .. ..$ OptionalFunction:Formal class 'SClassExtension' [package "methods"] with 10 slots 1547s [00:52:27.265] .. .. .. .. .. ..@ subClass : chr "MethodDefinition" 1547s [00:52:27.265] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.265] .. .. .. .. .. ..@ superClass: chr "OptionalFunction" 1547s [00:52:27.265] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.265] .. .. .. .. .. ..@ package : chr "methods" 1547s [00:52:27.265] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1547s [00:52:27.265] .. .. .. .. .. ..@ test :function (object) 1547s [00:52:27.265] .. .. .. .. .. ..@ replace :function (from, to, value) 1547s [00:52:27.265] .. .. .. .. .. ..@ simple : logi TRUE 1547s [00:52:27.265] .. .. .. .. .. ..@ by : chr "function" 1547s [00:52:27.265] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.265] .. .. .. .. .. ..@ dataPart : logi FALSE 1547s [00:52:27.265] .. .. .. .. .. ..@ distance : num 2 1547s [00:52:27.265] .. .. ..@ virtual : logi FALSE 1547s [00:52:27.265] .. .. ..@ prototype :Formal class 'function' [package ""] with 0 slots 1547s [00:52:27.265] list() 1547s [00:52:27.265] .. .. .. .. ..$ target :Formal class 'signature' [package "methods"] with 3 slots 1547s [00:52:27.265] .. .. .. .. .. .. ..@ .Data : chr(0) 1547s [00:52:27.265] .. .. .. .. .. .. ..@ names : chr(0) 1547s [00:52:27.265] .. .. .. .. .. .. ..@ package: chr(0) 1547s [00:52:27.265] .. .. .. .. ..$ defined:Formal class 'signature' [package "methods"] with 3 slots 1547s [00:52:27.265] .. .. .. .. .. .. ..@ .Data : chr(0) 1547s [00:52:27.265] .. .. .. .. .. .. ..@ names : chr(0) 1547s [00:52:27.265] .. .. .. .. .. .. ..@ package: chr(0) 1547s [00:52:27.265] .. .. .. .. ..$ generic: chr(0) 1547s [00:52:27.265] .. .. ..@ validity : NULL 1547s [00:52:27.265] .. .. ..@ access : list() 1547s [00:52:27.265] .. .. ..@ className : chr "MethodDefinition" 1547s [00:52:27.265] .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.265] .. .. ..@ package : chr "methods" 1547s [00:52:27.265] .. .. ..@ subclasses:List of 7 1547s [00:52:27.265] .. .. .. ..$ derivedDefaultMethod :Formal class 'SClassExtension' [package "methods"] with 10 slots 1547s [00:52:27.265] .. .. .. .. .. ..@ subClass : chr "derivedDefaultMethod" 1547s [00:52:27.265] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.265] .. .. .. .. .. ..@ superClass: chr "MethodDefinition" 1547s [00:52:27.265] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.265] .. .. .. .. .. ..@ package : chr "methods" 1547s [00:52:27.265] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1547s [00:52:27.265] .. .. .. .. .. ..@ test :function (object) 1547s [00:52:27.265] .. .. .. .. .. ..@ replace :function (from, to, value) 1547s [00:52:27.265] .. .. .. .. .. ..@ simple : logi TRUE 1547s [00:52:27.265] .. .. .. .. .. ..@ by : chr(0) 1547s [00:52:27.265] .. .. .. .. .. ..@ dataPart : logi FALSE 1547s [00:52:27.265] .. .. .. .. .. ..@ distance : num 1 1547s [00:52:27.265] .. .. .. ..$ MethodWithNext :Formal class 'SClassExtension' [package "methods"] with 10 slots 1547s [00:52:27.265] .. .. .. .. .. ..@ subClass : chr "MethodWithNext" 1547s [00:52:27.265] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.265] .. .. .. .. .. ..@ superClass: chr "MethodDefinition" 1547s [00:52:27.265] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.265] .. .. .. .. .. ..@ package : chr "methods" 1547s [00:52:27.265] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1547s [00:52:27.265] .. .. .. .. .. ..@ test :function (object) 1547s [00:52:27.265] .. .. .. .. .. ..@ replace :function (from, to, value) 1547s [00:52:27.265] .. .. .. .. .. ..@ simple : logi TRUE 1547s [00:52:27.265] .. .. .. .. .. ..@ by : chr(0) 1547s [00:52:27.265] .. .. .. .. .. ..@ dataPart : logi FALSE 1547s [00:52:27.265] .. .. .. .. .. ..@ distance : num 1 1547s [00:52:27.265] .. .. .. ..$ SealedMethodDefinition :Formal class 'SClassExtension' [package "methods"] with 10 slots 1547s [00:52:27.265] .. .. .. .. .. ..@ subClass : chr "SealedMethodDefinition" 1547s [00:52:27.265] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.265] .. .. .. .. .. ..@ superClass: chr "MethodDefinition" 1547s [00:52:27.265] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.265] .. .. .. .. .. ..@ package : chr "methods" 1547s [00:52:27.265] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1547s [00:52:27.265] .. .. .. .. .. ..@ test :function (object) 1547s [00:52:27.265] .. .. .. .. .. ..@ replace :function (from, to, value) 1547s [00:52:27.265] .. .. .. .. .. ..@ simple : logi TRUE 1547s [00:52:27.265] .. .. .. .. .. ..@ by : chr(0) 1547s [00:52:27.265] .. .. .. .. .. ..@ dataPart : logi FALSE 1547s [00:52:27.265] .. .. .. .. .. ..@ distance : num 1 1547s [00:52:27.265] .. .. .. ..$ MethodDefinitionWithTrace :Formal class 'SClassExtension' [package "methods"] with 10 slots 1547s [00:52:27.265] .. .. .. .. .. ..@ subClass : chr "MethodDefinitionWithTrace" 1547s [00:52:27.265] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.265] .. .. .. .. .. ..@ superClass: chr "MethodDefinition" 1547s [00:52:27.265] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.265] .. .. .. .. .. ..@ package : chr "methods" 1547s [00:52:27.265] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1547s [00:52:27.265] .. .. .. .. .. ..@ test :function (object) 1547s [00:52:27.265] .. .. .. .. .. ..@ replace :function (from, to, value) 1547s [00:52:27.265] .. .. .. .. .. ..@ simple : logi TRUE 1547s [00:52:27.265] .. .. .. .. .. ..@ by : chr(0) 1547s [00:52:27.265] .. .. .. .. .. ..@ dataPart : logi FALSE 1547s [00:52:27.265] .. .. .. .. .. ..@ distance : num 1 1547s [00:52:27.265] .. .. .. ..$ internalDispatchMethod :Formal class 'SClassExtension' [package "methods"] with 10 slots 1547s [00:52:27.265] .. .. .. .. .. ..@ subClass : chr "internalDispatchMethod" 1547s [00:52:27.265] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.265] .. .. .. .. .. ..@ superClass: chr "MethodDefinition" 1547s [00:52:27.265] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.265] .. .. .. .. .. ..@ package : chr "methods" 1547s [00:52:27.265] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1547s [00:52:27.265] .. .. .. .. .. ..@ test :function (object) 1547s [00:52:27.265] .. .. .. .. .. ..@ replace :function (from, to, value) 1547s [00:52:27.265] .. .. .. .. .. ..@ simple : logi TRUE 1547s [00:52:27.265] .. .. .. .. .. ..@ by : chr "derivedDefaultMethod" 1547s [00:52:27.265] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.265] .. .. .. .. .. ..@ dataPart : logi FALSE 1547s [00:52:27.265] .. .. .. .. .. ..@ distance : num 2 1547s [00:52:27.265] .. .. .. ..$ MethodWithNextWithTrace :Formal class 'SClassExtension' [package "methods"] with 10 slots 1547s [00:52:27.265] .. .. .. .. .. ..@ subClass : chr "MethodWithNextWithTrace" 1547s [00:52:27.265] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.265] .. .. .. .. .. ..@ superClass: chr "MethodDefinition" 1547s [00:52:27.265] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.265] .. .. .. .. .. ..@ package : chr "methods" 1547s [00:52:27.265] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1547s [00:52:27.265] .. .. .. .. .. ..@ test :function (object) 1547s [00:52:27.265] .. .. .. .. .. ..@ replace :function (from, to, value) 1547s [00:52:27.265] .. .. .. .. .. ..@ simple : logi TRUE 1547s [00:52:27.265] .. .. .. .. .. ..@ by : chr "MethodWithNext" 1547s [00:52:27.265] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.265] .. .. .. .. .. ..@ dataPart : logi FALSE 1547s [00:52:27.265] .. .. .. .. .. ..@ distance : num 2 1547s [00:52:27.265] .. .. .. ..$ derivedDefaultMethodWithTrace:Formal class 'SClassExtension' [package "methods"] with 10 slots 1547s [00:52:27.265] .. .. .. .. .. ..@ subClass : chr "derivedDefaultMethodWithTrace" 1547s [00:52:27.265] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.265] .. .. .. .. .. ..@ superClass: chr "MethodDefinition" 1547s [00:52:27.265] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.265] .. .. .. .. .. ..@ package : chr "methods" 1547s [00:52:27.265] .. .. .. .. .. ..@ coerce :function (from, strict = TRUE) 1547s [00:52:27.265] .. .. .. .. .. ..@ test :function (object) 1547s [00:52:27.265] .. .. .. .. .. ..@ replace :function (from, to, value) 1547s [00:52:27.265] .. .. .. .. .. ..@ simple : logi TRUE 1547s [00:52:27.265] .. .. .. .. .. ..@ by : chr "derivedDefaultMethod" 1547s [00:52:27.265] .. .. .. .. .. .. ..- attr(*, "package")= chr "methods" 1547s [00:52:27.265] .. .. .. .. .. ..@ dataPart : logi FALSE 1547s [00:52:27.265] .. .. .. .. .. ..@ distance : num 2 1547s [00:52:27.265] .. .. ..@ versionKey: 1547s [00:52:27.265] .. .. ..@ sealed : logi TRUE 1547s [00:52:27.265] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1547s [00:52:27.265] - attr(*, "where")=List of 2 1547s [00:52:27.265] ..$ ...future.FUN: 1547s [00:52:27.265] ..$ ... : 1547s [00:52:27.265] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1547s [00:52:27.265] - attr(*, "resolved")= logi FALSE 1547s [00:52:27.265] - attr(*, "total_size")= num 312512 1547s [00:52:27.333] Packages to be attached in all futures: [n=0] 1547s [00:52:27.334] getGlobalsAndPackagesXApply() ... DONE 1547s [00:52:27.334] Number of futures (= number of chunks): 1 1547s [00:52:27.334] Launching 1 futures (chunks) ... 1547s [00:52:27.334] Chunk #1 of 1 ... 1547s [00:52:27.335] - Finding globals in 'X' for chunk #1 ... 1547s [00:52:27.335] + additional globals found: [n=0] 1547s [00:52:27.336] + additional namespaces needed: [n=0] 1547s [00:52:27.336] - Finding globals in 'X' for chunk #1 ... DONE 1547s [00:52:27.336] - seeds: 1547s [00:52:27.336] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1547s [00:52:27.349] Created future: 1547s [00:52:27.349] SequentialFuture: 1547s [00:52:27.349] Label: ‘future_lapply-1’ 1547s [00:52:27.349] Expression: 1547s [00:52:27.349] { 1547s [00:52:27.349] do.call(function(...) { 1547s [00:52:27.349] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1547s [00:52:27.349] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1547s [00:52:27.349] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1547s [00:52:27.349] on.exit(options(oopts), add = TRUE) 1547s [00:52:27.349] } 1547s [00:52:27.349] { 1547s [00:52:27.349] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1547s [00:52:27.349] ...future.X_jj <- ...future.elements_ii[[jj]] 1547s [00:52:27.349] ...future.FUN(...future.X_jj, ...) 1547s [00:52:27.349] }) 1547s [00:52:27.349] } 1547s [00:52:27.349] }, args = future.call.arguments) 1547s [00:52:27.349] } 1547s [00:52:27.349] Lazy evaluation: FALSE 1547s [00:52:27.349] Asynchronous evaluation: FALSE 1547s [00:52:27.349] Local evaluation: TRUE 1547s [00:52:27.349] Environment: R_GlobalEnv 1547s [00:52:27.349] Capture standard output: TRUE 1547s [00:52:27.349] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1547s [00:52:27.349] Globals: 5 objects totaling 305.24 KiB (function ‘...future.FUN’ of 1.41 KiB, DotDotDotList ‘future.call.arguments’ of 303.78 KiB, list ‘...future.elements_ii’ of 56 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1547s [00:52:27.349] Packages: 1547s [00:52:27.349] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1547s [00:52:27.349] Resolved: TRUE 1547s [00:52:27.349] Value: 112 bytes of class ‘list’ 1547s [00:52:27.349] Early signaling: FALSE 1547s [00:52:27.349] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1547s [00:52:27.349] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1547s [00:52:27.353] Chunk #1 of 1 ... DONE 1547s [00:52:27.353] Launching 1 futures (chunks) ... DONE 1547s [00:52:27.354] Resolving 1 futures (chunks) ... 1547s [00:52:27.354] - Number of value chunks collected: 1 1547s [00:52:27.355] Resolving 1 futures (chunks) ... DONE 1547s [00:52:27.355] Reducing values from 1 chunks ... 1547s [00:52:27.355] - Number of values collected after concatenation: 1 1547s [00:52:27.356] - Number of values expected: 1 1547s [00:52:27.356] Reducing values from 1 chunks ... DONE 1547s [00:52:27.356] future_lapply() ... DONE 1547s - future_lapply(X, ...) - 'X' containing globals ... 1547s List of 4 1547s $ : num 84 1547s $ : num 10.5 1547s $ : num 63 1547s $ : int 11 1547s [00:52:27.359] future_lapply() ... 1547s [00:52:27.366] Number of chunks: 1 1547s [00:52:27.366] getGlobalsAndPackagesXApply() ... 1547s [00:52:27.368] - future.globals: TRUE 1547s [00:52:27.371] - globals found/used: [n=1] ‘FUN’ 1547s [00:52:27.372] - needed namespaces: [n=0] 1547s [00:52:27.372] Finding globals ... DONE 1547s [00:52:27.372] - use_args: TRUE 1547s [00:52:27.373] - Getting '...' globals ... 1547s [00:52:27.374] - '...' content: [n=0] 1547s [00:52:27.375] List of 1 1547s [00:52:27.375] $ ...: list() 1547s [00:52:27.375] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1547s [00:52:27.375] - attr(*, "where")=List of 1 1547s [00:52:27.375] ..$ ...: 1547s [00:52:27.375] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1547s [00:52:27.375] - attr(*, "resolved")= logi TRUE 1547s [00:52:27.375] - attr(*, "total_size")= num NA 1547s [00:52:27.381] - Getting '...' globals ... DONE 1547s [00:52:27.381] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1547s [00:52:27.381] List of 2 1547s [00:52:27.381] $ ...future.FUN:function (f) 1547s [00:52:27.381] $ ... : list() 1547s [00:52:27.381] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1547s [00:52:27.381] - attr(*, "where")=List of 2 1547s [00:52:27.381] ..$ ...future.FUN: 1547s [00:52:27.381] ..$ ... : 1547s [00:52:27.381] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1547s [00:52:27.381] - attr(*, "resolved")= logi FALSE 1547s [00:52:27.381] - attr(*, "total_size")= num 1008 1547s [00:52:27.385] Packages to be attached in all futures: [n=0] 1547s [00:52:27.385] getGlobalsAndPackagesXApply() ... DONE 1547s [00:52:27.385] Number of futures (= number of chunks): 1 1547s [00:52:27.385] Launching 1 futures (chunks) ... 1547s [00:52:27.386] Chunk #1 of 1 ... 1547s [00:52:27.386] - Finding globals in 'X' for chunk #1 ... 1547s [00:52:27.389] + additional globals found: [n=2] ‘a’, ‘b’ 1547s [00:52:27.390] + additional namespaces needed: [n=1] ‘tools’ 1547s [00:52:27.393] - Finding globals in 'X' for chunk #1 ... DONE 1547s [00:52:27.394] - seeds: 1547s [00:52:27.395] - All globals exported: [n=7] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’, ‘a’, ‘b’ 1547s [00:52:27.420] Created future: 1547s [00:52:27.421] SequentialFuture: 1547s [00:52:27.421] Label: ‘future_lapply-1’ 1547s [00:52:27.421] Expression: 1547s [00:52:27.421] { 1547s [00:52:27.421] do.call(function(...) { 1547s [00:52:27.421] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1547s [00:52:27.421] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1547s [00:52:27.421] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1547s [00:52:27.421] on.exit(options(oopts), add = TRUE) 1547s [00:52:27.421] } 1547s [00:52:27.421] { 1547s [00:52:27.421] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1547s [00:52:27.421] ...future.X_jj <- ...future.elements_ii[[jj]] 1547s [00:52:27.421] ...future.FUN(...future.X_jj, ...) 1547s [00:52:27.421] }) 1547s [00:52:27.421] } 1547s [00:52:27.421] }, args = future.call.arguments) 1547s [00:52:27.421] } 1547s [00:52:27.421] Lazy evaluation: FALSE 1547s [00:52:27.421] Asynchronous evaluation: FALSE 1547s [00:52:27.421] Local evaluation: TRUE 1547s [00:52:27.421] Environment: R_GlobalEnv 1547s [00:52:27.421] Capture standard output: TRUE 1547s [00:52:27.421] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1547s [00:52:27.421] Globals: 7 objects totaling 7.49 KiB (function ‘...future.FUN’ of 0.98 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 6.40 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes, ...) 1547s [00:52:27.421] Packages: 1 packages (‘tools’) 1547s [00:52:27.421] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1547s [00:52:27.421] Resolved: TRUE 1547s [00:52:27.421] Value: 224 bytes of class ‘list’ 1547s [00:52:27.421] Early signaling: FALSE 1547s [00:52:27.421] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1547s [00:52:27.421] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1547s [00:52:27.423] Chunk #1 of 1 ... DONE 1547s [00:52:27.424] Launching 1 futures (chunks) ... DONE 1547s [00:52:27.424] Resolving 1 futures (chunks) ... 1547s [00:52:27.425] - Number of value chunks collected: 1 1547s [00:52:27.425] Resolving 1 futures (chunks) ... DONE 1547s [00:52:27.426] Reducing values from 1 chunks ... 1547s [00:52:27.426] - Number of values collected after concatenation: 4 1547s [00:52:27.426] - Number of values expected: 4 1547s [00:52:27.426] Reducing values from 1 chunks ... DONE 1547s [00:52:27.427] future_lapply() ... DONE 1547s List of 4 1547s $ : num 84 1547s $ : num 10.5 1547s $ : num 63 1547s $ : int 11 1547s List of 1 1547s - future_lapply(x, ...) - passing '...' as a global ... 1547s $ z0:List of 1 1547s ..$ :List of 1 1547s .. ..$ a: num 1 1547s [00:52:27.435] future_lapply() ... 1547s [00:52:27.444] Number of chunks: 1 1547s [00:52:27.444] getGlobalsAndPackagesXApply() ... 1547s [00:52:27.445] - future.globals: TRUE 1547s [00:52:27.455] - globals found/used: [n=2] ‘FUN’, ‘future.call.arguments’ 1547s [00:52:27.456] - needed namespaces: [n=0] 1547s [00:52:27.457] Finding globals ... DONE 1547s [00:52:27.458] - use_args: TRUE 1547s [00:52:27.459] - Getting '...' globals ... 1547s [00:52:27.461] - '...' content: [n=0] 1547s [00:52:27.462] List of 1 1547s [00:52:27.462] $ ...: list() 1547s [00:52:27.462] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1547s [00:52:27.462] - attr(*, "where")=List of 1 1547s [00:52:27.462] ..$ ...: 1547s [00:52:27.462] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1547s [00:52:27.462] - attr(*, "resolved")= logi TRUE 1547s [00:52:27.462] - attr(*, "total_size")= num NA 1547s [00:52:27.473] - Getting '...' globals ... DONE 1547s [00:52:27.474] Globals to be used in all futures (chunks): [n=3] ‘...future.FUN’, ‘future.call.arguments’, ‘...’ 1547s [00:52:27.474] List of 3 1547s [00:52:27.474] $ ...future.FUN :function (x) 1547s [00:52:27.474] $ future.call.arguments:List of 1 1547s [00:52:27.474] ..$ a: num 1 1547s [00:52:27.474] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1547s [00:52:27.474] $ ... : list() 1547s [00:52:27.474] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1547s [00:52:27.474] - attr(*, "where")=List of 3 1547s [00:52:27.474] ..$ ...future.FUN : 1547s [00:52:27.474] ..$ future.call.arguments: 1547s [00:52:27.474] ..$ ... : 1547s [00:52:27.474] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1547s [00:52:27.474] - attr(*, "resolved")= logi FALSE 1547s [00:52:27.474] - attr(*, "total_size")= num 1272 1547s [00:52:27.479] Packages to be attached in all futures: [n=0] 1547s [00:52:27.479] getGlobalsAndPackagesXApply() ... DONE 1547s [00:52:27.479] Number of futures (= number of chunks): 1 1547s [00:52:27.480] Launching 1 futures (chunks) ... 1547s [00:52:27.480] Chunk #1 of 1 ... 1547s [00:52:27.481] - Finding globals in 'X' for chunk #1 ... 1547s [00:52:27.484] + additional globals found: [n=0] 1547s [00:52:27.485] + additional namespaces needed: [n=0] 1547s [00:52:27.485] - Finding globals in 'X' for chunk #1 ... DONE 1547s [00:52:27.485] - seeds: 1547s [00:52:27.486] - All globals exported: [n=6] ‘...future.FUN’, ‘future.call.arguments’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1547s [00:52:27.495] Created future: 1547s [00:52:27.495] SequentialFuture: 1547s [00:52:27.495] Label: ‘future_lapply-1’ 1547s [00:52:27.495] Expression: 1547s [00:52:27.495] { 1547s [00:52:27.495] do.call(function(...) { 1547s [00:52:27.495] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1547s [00:52:27.495] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1547s [00:52:27.495] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1547s [00:52:27.495] on.exit(options(oopts), add = TRUE) 1547s [00:52:27.495] } 1547s [00:52:27.495] { 1547s [00:52:27.495] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1547s [00:52:27.495] ...future.X_jj <- ...future.elements_ii[[jj]] 1547s [00:52:27.495] ...future.FUN(...future.X_jj) 1547s [00:52:27.495] }) 1547s [00:52:27.495] } 1547s [00:52:27.495] }, args = future.call.arguments) 1547s [00:52:27.495] } 1547s [00:52:27.495] Lazy evaluation: FALSE 1547s [00:52:27.495] Asynchronous evaluation: FALSE 1547s [00:52:27.495] Local evaluation: TRUE 1547s [00:52:27.495] Environment: 0x2aa1edc92a0 1547s [00:52:27.495] Capture standard output: TRUE 1547s [00:52:27.495] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1547s [00:52:27.495] Globals: 5 objects totaling 1.30 KiB (function ‘...future.FUN’ of 1.19 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 56 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1547s [00:52:27.495] Packages: 1547s [00:52:27.495] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1547s [00:52:27.495] Resolved: TRUE 1547s [00:52:27.495] Value: 56 bytes of class ‘list’ 1547s [00:52:27.495] Early signaling: FALSE 1547s [00:52:27.495] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1547s [00:52:27.495] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1547s [00:52:27.497] Chunk #1 of 1 ... DONE 1547s [00:52:27.497] Launching 1 futures (chunks) ... DONE 1547s [00:52:27.498] Resolving 1 futures (chunks) ... 1547s [00:52:27.500] - Number of value chunks collected: 1 1547s [00:52:27.502] Resolving 1 futures (chunks) ... DONE 1547s [00:52:27.502] Reducing values from 1 chunks ... 1547s [00:52:27.504] - Number of values collected after concatenation: 1 1547s [00:52:27.504] - Number of values expected: 1 1547s [00:52:27.505] Reducing values from 1 chunks ... DONE 1547s [00:52:27.506] future_lapply() ... DONE 1547s List of 1 1547s $ z1:List of 1 1547s ..$ :List of 1 1547s .. ..$ a: num - future_lapply(X, ...) - '{ a <- a + 1; a }' ... 1547s [00:52:27.519] future_lapply() ... 1547s 1 1547s [00:52:27.524] Number of chunks: 1 1547s [00:52:27.524] getGlobalsAndPackagesXApply() ... 1547s [00:52:27.524] - future.globals: TRUE 1547s [00:52:27.527] - globals found/used: [n=2] ‘FUN’, ‘a’ 1547s [00:52:27.527] - needed namespaces: [n=0] 1547s [00:52:27.527] Finding globals ... DONE 1547s [00:52:27.527] - use_args: TRUE 1547s [00:52:27.528] - Getting '...' globals ... 1547s [00:52:27.528] - '...' content: [n=0] 1547s [00:52:27.528] List of 1 1547s [00:52:27.528] $ ...: list() 1547s [00:52:27.528] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1547s [00:52:27.528] - attr(*, "where")=List of 1 1547s [00:52:27.528] ..$ ...: 1547s [00:52:27.528] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1547s [00:52:27.528] - attr(*, "resolved")= logi TRUE 1547s [00:52:27.528] - attr(*, "total_size")= num NA 1547s [00:52:27.535] - Getting '...' globals ... DONE 1547s [00:52:27.536] Globals to be used in all futures (chunks): [n=3] ‘...future.FUN’, ‘a’, ‘...’ 1547s [00:52:27.536] List of 3 1547s [00:52:27.536] $ ...future.FUN:function (ii) 1547s [00:52:27.536] $ a : num 1 1547s [00:52:27.536] $ ... : list() 1547s [00:52:27.536] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1547s [00:52:27.536] - attr(*, "where")=List of 3 1547s [00:52:27.536] ..$ ...future.FUN: 1547s [00:52:27.536] ..$ a : 1547s [00:52:27.536] ..$ ... : 1547s [00:52:27.536] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1547s [00:52:27.536] - attr(*, "resolved")= logi FALSE 1547s [00:52:27.536] - attr(*, "total_size")= num 2984 1547s [00:52:27.544] Packages to be attached in all futures: [n=0] 1547s [00:52:27.545] getGlobalsAndPackagesXApply() ... DONE 1547s [00:52:27.546] Number of futures (= number of chunks): 1 1547s [00:52:27.546] Launching 1 futures (chunks) ... 1547s [00:52:27.546] Chunk #1 of 1 ... 1547s [00:52:27.546] - Finding globals in 'X' for chunk #1 ... 1547s [00:52:27.547] + additional globals found: [n=0] 1547s [00:52:27.547] + additional namespaces needed: [n=0] 1547s [00:52:27.548] - Finding globals in 'X' for chunk #1 ... DONE 1547s [00:52:27.548] - seeds: 1547s [00:52:27.548] - All globals exported: [n=6] ‘...future.FUN’, ‘a’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1547s [00:52:27.578] Created future: 1547s [00:52:27.578] SequentialFuture: 1547s [00:52:27.578] Label: ‘future_lapply-1’ 1547s [00:52:27.578] Expression: 1547s [00:52:27.578] { 1547s [00:52:27.578] do.call(function(...) { 1547s [00:52:27.578] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1547s [00:52:27.578] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1547s [00:52:27.578] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1547s [00:52:27.578] on.exit(options(oopts), add = TRUE) 1547s [00:52:27.578] } 1547s [00:52:27.578] { 1547s [00:52:27.578] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1547s [00:52:27.578] ...future.X_jj <- ...future.elements_ii[[jj]] 1547s [00:52:27.578] ...future.FUN(...future.X_jj, ...) 1547s [00:52:27.578] }) 1547s [00:52:27.578] } 1547s [00:52:27.578] }, args = future.call.arguments) 1547s [00:52:27.578] } 1547s [00:52:27.578] Lazy evaluation: FALSE 1547s [00:52:27.578] Asynchronous evaluation: FALSE 1547s [00:52:27.578] Local evaluation: TRUE 1547s [00:52:27.578] Environment: R_GlobalEnv 1547s [00:52:27.578] Capture standard output: TRUE 1547s [00:52:27.578] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1547s [00:52:27.578] Globals: 6 objects totaling 2.97 KiB (function ‘...future.FUN’ of 2.86 KiB, numeric ‘a’ of 56 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 56 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, ...) 1547s [00:52:27.578] Packages: 1547s [00:52:27.578] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1547s [00:52:27.578] Resolved: TRUE 1547s [00:52:27.578] Value: 56 bytes of class ‘list’ 1547s [00:52:27.578] Early signaling: FALSE 1547s [00:52:27.578] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1547s [00:52:27.578] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1547s [00:52:27.581] Chunk #1 of 1 ... DONE 1547s [00:52:27.582] Launching 1 futures (chunks) ... DONE 1547s [00:52:27.582] Resolving 1 futures (chunks) ... 1547s [00:52:27.583] - Number of value chunks collected: 1 1547s [00:52:27.583] Resolving 1 futures (chunks) ... DONE 1547s [00:52:27.583] Reducing values from 1 chunks ... 1547s [00:52:27.584] - Number of values collected after concatenation: 1 1547s [00:52:27.584] - Number of values expected: 1 1547s [00:52:27.584] Reducing values from 1 chunks ... DONE 1547s [00:52:27.585] future_lapply() ... DONE 1547s - future_lapply(X, ...) - '{ a; a <- a + 1 }' ... 1547s [00:52:27.585] future_lapply() ... 1547s [00:52:27.590] Number of chunks: 1 1547s [00:52:27.590] getGlobalsAndPackagesXApply() ... 1547s [00:52:27.590] - future.globals: TRUE 1547s [00:52:27.594] - globals found/used: [n=2] ‘FUN’, ‘a’ 1547s [00:52:27.595] - needed namespaces: [n=0] 1547s [00:52:27.595] Finding globals ... DONE 1547s [00:52:27.595] - use_args: TRUE 1547s [00:52:27.596] - Getting '...' globals ... 1547s [00:52:27.596] - '...' content: [n=0] 1547s [00:52:27.597] List of 1 1547s [00:52:27.597] $ ...: list() 1547s [00:52:27.597] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1547s [00:52:27.597] - attr(*, "where")=List of 1 1547s [00:52:27.597] ..$ ...: 1547s [00:52:27.597] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1547s [00:52:27.597] - attr(*, "resolved")= logi TRUE 1547s [00:52:27.597] - attr(*, "total_size")= num NA 1547s [00:52:27.603] - Getting '...' globals ... DONE 1547s [00:52:27.603] Globals to be used in all futures (chunks): [n=3] ‘...future.FUN’, ‘a’, ‘...’ 1547s [00:52:27.603] List of 3 1547s [00:52:27.603] $ ...future.FUN:function (ii) 1547s [00:52:27.603] $ a : num 1 1547s [00:52:27.603] $ ... : list() 1547s [00:52:27.603] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1547s [00:52:27.603] - attr(*, "where")=List of 3 1547s [00:52:27.603] ..$ ...future.FUN: 1547s [00:52:27.603] ..$ a : 1547s [00:52:27.603] ..$ ... : 1547s [00:52:27.603] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1547s [00:52:27.603] - attr(*, "resolved")= logi FALSE 1547s [00:52:27.603] - attr(*, "total_size")= num 2984 1547s [00:52:27.613] Packages to be attached in all futures: [n=0] 1547s [00:52:27.614] getGlobalsAndPackagesXApply() ... DONE 1547s [00:52:27.615] Number of futures (= number of chunks): 1 1547s [00:52:27.615] Launching 1 futures (chunks) ... 1547s [00:52:27.616] Chunk #1 of 1 ... 1547s [00:52:27.616] - Finding globals in 'X' for chunk #1 ... 1547s [00:52:27.617] + additional globals found: [n=0] 1547s [00:52:27.617] + additional namespaces needed: [n=0] 1547s [00:52:27.617] - Finding globals in 'X' for chunk #1 ... DONE 1547s [00:52:27.617] - seeds: 1547s [00:52:27.617] - All globals exported: [n=6] ‘...future.FUN’, ‘a’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1547s [00:52:27.636] Created future: 1547s [00:52:27.636] SequentialFuture: 1547s [00:52:27.636] Label: ‘future_lapply-1’ 1547s [00:52:27.636] Expression: 1547s [00:52:27.636] { 1547s [00:52:27.636] do.call(function(...) { 1547s [00:52:27.636] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1547s [00:52:27.636] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1547s [00:52:27.636] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1547s [00:52:27.636] on.exit(options(oopts), add = TRUE) 1547s [00:52:27.636] } 1547s [00:52:27.636] { 1547s [00:52:27.636] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1547s [00:52:27.636] ...future.X_jj <- ...future.elements_ii[[jj]] 1547s [00:52:27.636] ...future.FUN(...future.X_jj, ...) 1547s [00:52:27.636] }) 1547s [00:52:27.636] } 1547s [00:52:27.636] }, args = future.call.arguments) 1547s [00:52:27.636] } 1547s [00:52:27.636] Lazy evaluation: FALSE 1547s [00:52:27.636] Asynchronous evaluation: FALSE 1547s [00:52:27.636] Local evaluation: TRUE 1547s [00:52:27.636] Environment: R_GlobalEnv 1547s [00:52:27.636] Capture standard output: TRUE 1547s [00:52:27.636] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1547s [00:52:27.636] Globals: 6 objects totaling 2.97 KiB (function ‘...future.FUN’ of 2.86 KiB, numeric ‘a’ of 56 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 56 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, ...) 1547s [00:52:27.636] Packages: 1547s [00:52:27.636] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1547s [00:52:27.636] Resolved: TRUE 1547s [00:52:27.636] Value: 56 bytes of class ‘list’ 1547s [00:52:27.636] Early signaling: FALSE 1547s [00:52:27.636] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1547s [00:52:27.636] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1547s [00:52:27.638] Chunk #1 of 1 ... DONE 1547s [00:52:27.638] Launching 1 futures (chunks) ... DONE 1547s [00:52:27.638] Resolving 1 futures (chunks) ... 1547s [00:52:27.639] - Number of value chunks collected: 1 1547s [00:52:27.639] Resolving 1 futures (chunks) ... DONE 1547s [00:52:27.639] Reducing values from 1 chunks ... 1547s [00:52:27.639] - Number of values collected after concatenation: 1 1547s [00:52:27.639] - Number of values expected: 1 1547s [00:52:27.640] Reducing values from 1 chunks ... DONE 1547s [00:52:27.640] future_lapply() ... DONE 1547s - future_lapply(..., future.globals = ) ... 1547s [00:52:27.640] future_lapply() ... 1547s [00:52:27.645] Number of chunks: 1 1547s [00:52:27.645] getGlobalsAndPackagesXApply() ... 1547s [00:52:27.646] - future.globals: with names ‘42’ 1547s [00:52:27.646] - use_args: TRUE 1547s [00:52:27.647] - Getting '...' globals ... 1547s [00:52:27.648] - '...' content: [n=0] 1547s [00:52:27.649] List of 1 1547s [00:52:27.649] $ ...: list() 1547s [00:52:27.649] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1547s [00:52:27.649] - attr(*, "where")=List of 1 1547s [00:52:27.649] ..$ ...: 1547s [00:52:27.649] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1547s [00:52:27.649] - attr(*, "resolved")= logi TRUE 1547s [00:52:27.649] - attr(*, "total_size")= num NA 1547s [00:52:27.655] - Getting '...' globals ... DONE 1547s [00:52:27.655] Globals to be used in all futures (chunks): [n=3] ‘a’, ‘...future.FUN’, ‘...’ 1547s [00:52:27.656] List of 3 1547s [00:52:27.656] $ a : num 42 1547s [00:52:27.656] $ ...future.FUN:function (x) 1547s [00:52:27.656] $ ... : list() 1547s [00:52:27.656] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1547s [00:52:27.656] - attr(*, "where")=List of 3 1547s [00:52:27.656] ..$ a : 1547s [00:52:27.656] ..$ ...future.FUN: 1547s [00:52:27.656] ..$ ... : 1547s [00:52:27.656] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1547s [00:52:27.656] - attr(*, "resolved")= logi FALSE 1547s [00:52:27.656] - attr(*, "total_size")= num NA 1547s [00:52:27.661] Packages to be attached in all futures: [n=0] 1547s [00:52:27.661] getGlobalsAndPackagesXApply() ... DONE 1547s [00:52:27.662] Number of futures (= number of chunks): 1 1547s [00:52:27.662] Launching 1 futures (chunks) ... 1547s [00:52:27.662] Chunk #1 of 1 ... 1547s [00:52:27.662] - seeds: 1547s [00:52:27.662] - All globals exported: [n=6] ‘a’, ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1547s [00:52:27.675] Created future: 1547s [00:52:27.675] SequentialFuture: 1547s [00:52:27.675] Label: ‘future_lapply-1’ 1547s [00:52:27.675] Expression: 1547s [00:52:27.675] { 1547s [00:52:27.675] do.call(function(...) { 1547s [00:52:27.675] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1547s [00:52:27.675] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1547s [00:52:27.675] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1547s [00:52:27.675] on.exit(options(oopts), add = TRUE) 1547s [00:52:27.675] } 1547s [00:52:27.675] { 1547s [00:52:27.675] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1547s [00:52:27.675] ...future.X_jj <- ...future.elements_ii[[jj]] 1547s [00:52:27.675] ...future.FUN(...future.X_jj, ...) 1547s [00:52:27.675] }) 1547s [00:52:27.675] } 1547s [00:52:27.675] }, args = future.call.arguments) 1547s [00:52:27.675] } 1547s [00:52:27.675] Lazy evaluation: FALSE 1547s [00:52:27.675] Asynchronous evaluation: FALSE 1547s [00:52:27.675] Local evaluation: TRUE 1547s [00:52:27.675] Environment: R_GlobalEnv 1547s [00:52:27.675] Capture standard output: TRUE 1547s [00:52:27.675] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1547s [00:52:27.675] Globals: 6 objects totaling 1.45 KiB (numeric ‘a’ of 56 bytes, function ‘...future.FUN’ of 1.34 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 56 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, ...) 1547s [00:52:27.675] Packages: 1547s [00:52:27.675] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1547s [00:52:27.675] Resolved: TRUE 1547s [00:52:27.675] Value: 56 bytes of class ‘list’ 1547s [00:52:27.675] Early signaling: FALSE 1547s [00:52:27.675] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1547s [00:52:27.675] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1547s [00:52:27.677] Chunk #1 of 1 ... DONE 1547s [00:52:27.677] Launching 1 futures (chunks) ... DONE 1547s [00:52:27.677] Resolving 1 futures (chunks) ... 1547s [00:52:27.678] - Number of value chunks collected: 1 1547s [00:52:27.678] Resolving 1 futures (chunks) ... DONE 1547s [00:52:27.678] Reducing values from 1 chunks ... 1547s [00:52:27.678] - Number of values collected after concatenation: 1 1547s [00:52:27.679] - Number of values expected: 1 1547s [00:52:27.679] Reducing values from 1 chunks ... DONE 1547s [00:52:27.679] future_lapply() ... DONE 1547s List of 1 1547s $ : num 42 1547s > 1547s > message("*** future_lapply() - tricky globals ... DONE") 1547s *** future_lapply() - tricky globals ... DONE 1547s > 1547s > 1547s > message("*** future_lapply() - missing arguments ...") 1547s *** future_lapply() - missing arguments ... 1547s > 1547s > ## Here 'abc' becomes missing, i.e. missing(abc) is TRUE 1547s > foo <- function(x, abc) future_lapply(x, FUN = function(y) y) 1547s > y <- foo(1:2) 1547s [00:52:27.682] future_lapply() ... 1547s [00:52:27.687] Number of chunks: 1 1547s [00:52:27.687] getGlobalsAndPackagesXApply() ... 1547s [00:52:27.687] - future.globals: TRUE 1547s [00:52:27.689] - globals found/used: [n=1] ‘FUN’ 1547s [00:52:27.689] - needed namespaces: [n=0] 1547s [00:52:27.689] Finding globals ... DONE 1547s [00:52:27.689] - use_args: TRUE 1547s [00:52:27.690] - Getting '...' globals ... 1547s [00:52:27.690] - '...' content: [n=0] 1547s [00:52:27.691] List of 1 1547s [00:52:27.691] $ ...: list() 1547s [00:52:27.691] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1547s [00:52:27.691] - attr(*, "where")=List of 1 1547s [00:52:27.691] ..$ ...: 1547s [00:52:27.691] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1547s [00:52:27.691] - attr(*, "resolved")= logi TRUE 1547s [00:52:27.691] - attr(*, "total_size")= num NA 1547s [00:52:27.695] - Getting '...' globals ... DONE 1547s [00:52:27.695] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1547s [00:52:27.695] List of 2 1547s [00:52:27.695] $ ...future.FUN:function (y) 1547s [00:52:27.695] $ ... : list() 1547s [00:52:27.695] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1547s [00:52:27.695] - attr(*, "where")=List of 2 1547s [00:52:27.695] ..$ ...future.FUN: 1547s [00:52:27.695] ..$ ... : 1547s [00:52:27.695] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1547s [00:52:27.695] - attr(*, "resolved")= logi FALSE 1547s [00:52:27.695] - attr(*, "total_size")= num 280 1547s [00:52:27.700] Packages to be attached in all futures: [n=0] 1547s [00:52:27.700] getGlobalsAndPackagesXApply() ... DONE 1547s [00:52:27.700] Number of futures (= number of chunks): 1 1547s [00:52:27.701] Launching 1 futures (chunks) ... 1547s [00:52:27.701] Chunk #1 of 1 ... 1547s [00:52:27.702] - Finding globals in 'X' for chunk #1 ... 1547s [00:52:27.702] + additional globals found: [n=0] 1547s [00:52:27.703] + additional namespaces needed: [n=0] 1547s [00:52:27.703] - Finding globals in 'X' for chunk #1 ... DONE 1547s [00:52:27.703] - seeds: 1547s [00:52:27.703] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1547s [00:52:27.714] Created future: 1547s > stopifnot(identical(y, as.list(1:2))) 1547s > 1547s > message("*** future_lapply() - missing arguments ... DONE") 1547s > 1547s > 1547s > message("*** future_lapply() - false positives ...") 1547s [00:52:27.714] SequentialFuture: 1547s [00:52:27.714] Label: ‘future_lapply-1’ 1547s [00:52:27.714] Expression: 1547s [00:52:27.714] { 1547s [00:52:27.714] do.call(function(...) { 1547s [00:52:27.714] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1547s [00:52:27.714] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1547s [00:52:27.714] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1547s [00:52:27.714] on.exit(options(oopts), add = TRUE) 1547s [00:52:27.714] } 1547s [00:52:27.714] { 1547s [00:52:27.714] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1547s [00:52:27.714] ...future.X_jj <- ...future.elements_ii[[jj]] 1547s [00:52:27.714] ...future.FUN(...future.X_jj, ...) 1547s [00:52:27.714] }) 1547s [00:52:27.714] } 1547s [00:52:27.714] }, args = future.call.arguments) 1547s [00:52:27.714] } 1547s [00:52:27.714] Lazy evaluation: FALSE 1547s [00:52:27.714] Asynchronous evaluation: FALSE 1547s [00:52:27.714] Local evaluation: TRUE 1547s [00:52:27.714] Environment: 0x2aa1efdbf18 1547s [00:52:27.714] Capture standard output: TRUE 1547s [00:52:27.714] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1547s [00:52:27.714] Globals: 5 objects totaling 392 bytes (function ‘...future.FUN’ of 280 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1547s [00:52:27.714] Packages: 1547s [00:52:27.714] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1547s [00:52:27.714] Resolved: TRUE 1547s [00:52:27.714] Value: 112 bytes of class ‘list’ 1547s [00:52:27.714] Early signaling: FALSE 1547s [00:52:27.714] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1547s [00:52:27.714] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1547s [00:52:27.717] Chunk #1 of 1 ... DONE 1547s [00:52:27.717] Launching 1 futures (chunks) ... DONE 1547s [00:52:27.717] Resolving 1 futures (chunks) ... 1547s [00:52:27.718] - Number of value chunks collected: 1 1547s [00:52:27.718] Resolving 1 futures (chunks) ... DONE 1547s [00:52:27.718] Reducing values from 1 chunks ... 1547s [00:52:27.719] - Number of values collected after concatenation: 2 1547s [00:52:27.719] - Number of values expected: 2 1547s [00:52:27.719] Reducing values from 1 chunks ... DONE 1547s [00:52:27.719] future_lapply() ... DONE 1547s *** future_lapply() - missing arguments ... DONE 1547s > 1547s > ## Here 'abc' becomes a promise, which fails to resolve 1547s > ## iff 'xyz' does not exist. (Issue #161) 1547s *** future_lapply() - false positives ... 1547s > suppressWarnings(rm(list = "xyz")) 1547s > foo <- function(x, abc) future_lapply(x, FUN = function(y) y) 1547s > y <- foo(1:2, abc = (xyz >= 3.14)) 1547s [00:52:27.722] future_lapply() ... 1547s [00:52:27.728] Number of chunks: 1 1547s [00:52:27.728] getGlobalsAndPackagesXApply() ... 1547s [00:52:27.728] - future.globals: TRUE 1547s [00:52:27.730] - globals found/used: [n=1] ‘FUN’ 1547s [00:52:27.731] - needed namespaces: [n=0] 1547s [00:52:27.731] Finding globals ... DONE 1547s [00:52:27.732] - use_args: TRUE 1547s [00:52:27.732] - Getting '...' globals ... 1547s [00:52:27.733] - '...' content: [n=0] 1547s [00:52:27.733] List of 1 1547s [00:52:27.733] $ ...: list() 1547s [00:52:27.733] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1547s [00:52:27.733] - attr(*, "where")=List of 1 1547s [00:52:27.733] ..$ ...: 1547s [00:52:27.733] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1547s [00:52:27.733] - attr(*, "resolved")= logi TRUE 1547s [00:52:27.733] - attr(*, "total_size")= num NA 1547s [00:52:27.743] - Getting '...' globals ... DONE 1547s [00:52:27.743] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1547s [00:52:27.743] List of 2 1547s [00:52:27.743] $ ...future.FUN:function (y) 1547s [00:52:27.743] $ ... : list() 1547s [00:52:27.743] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1547s [00:52:27.743] - attr(*, "where")=List of 2 1547s [00:52:27.743] ..$ ...future.FUN: 1547s [00:52:27.743] ..$ ... : 1547s [00:52:27.743] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1547s [00:52:27.743] - attr(*, "resolved")= logi FALSE 1547s [00:52:27.743] - attr(*, "total_size")= num 280 1547s [00:52:27.747] Packages to be attached in all futures: [n=0] 1547s [00:52:27.747] getGlobalsAndPackagesXApply() ... DONE 1547s [00:52:27.748] Number of futures (= number of chunks): 1 1547s [00:52:27.748] Launching 1 futures (chunks) ... 1547s [00:52:27.748] Chunk #1 of 1 ... 1547s [00:52:27.748] - Finding globals in 'X' for chunk #1 ... 1547s [00:52:27.749] + additional globals found: [n=0] 1547s [00:52:27.749] + additional namespaces needed: [n=0] 1547s [00:52:27.750] - Finding globals in 'X' for chunk #1 ... DONE 1547s [00:52:27.750] - seeds: 1547s [00:52:27.751] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1547s [00:52:27.764] Created future: 1547s [00:52:27.765] SequentialFuture: 1547s [00:52:27.765] Label: ‘future_lapply-1’ 1547s [00:52:27.765] Expression: 1547s [00:52:27.765] { 1547s [00:52:27.765] do.call(function(...) { 1547s [00:52:27.765] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1547s [00:52:27.765] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1547s [00:52:27.765] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1547s [00:52:27.765] on.exit(options(oopts), add = TRUE) 1547s [00:52:27.765] } 1547s [00:52:27.765] { 1547s [00:52:27.765] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1547s [00:52:27.765] ...future.X_jj <- ...future.elements_ii[[jj]] 1547s [00:52:27.765] ...future.FUN(...future.X_jj, ...) 1547s [00:52:27.765] }) 1547s [00:52:27.765] } 1547s [00:52:27.765] }, args = future.call.arguments) 1547s [00:52:27.765] } 1547s [00:52:27.765] Lazy evaluation: FALSE 1547s [00:52:27.765] Asynchronous evaluation: FALSE 1547s [00:52:27.765] Local evaluation: TRUE 1547s [00:52:27.765] Environment: 0x2aa1ec92b68 1547s [00:52:27.765] Capture standard output: TRUE 1547s [00:52:27.765] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1547s [00:52:27.765] Globals: 5 objects totaling 392 bytes (function ‘...future.FUN’ of 280 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1547s [00:52:27.765] Packages: 1547s [00:52:27.765] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1547s [00:52:27.765] Resolved: TRUE 1547s [00:52:27.765] Value: 112 bytes of class ‘list’ 1547s [00:52:27.765] Early signaling: FALSE 1547s [00:52:27.765] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1547s [00:52:27.765] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1547s [00:52:27.769] Chunk #1 of 1 ... DONE 1547s [00:52:27.769] Launching 1 futures (chunks) ... DONE 1547s [00:52:27.769] Resolving 1 futures (chunks) ... 1547s [00:52:27.769] - Number of value chunks collected: 1 1547s [00:52:27.770] Resolving 1 futures (chunks) ... DONE 1547s [00:52:27.770] Reducing values from 1 chunks ... 1547s [00:52:27.770] - Number of values collected after concatenation: 2 1547s [00:52:27.770] - Number of values expected: 2 1547s > [00:52:27.771] Reducing values from 1 chunks ... DONE 1547s [00:52:27.771] future_lapply() ... DONE 1547s stopifnot(identical(y, as.list(1:2))) 1547s > 1547s > message("*** future_lapply() - false positives ... DONE") 1547s *** future_lapply() - false positives ... DONE 1547s > 1547s > 1547s > message("*** future_lapply() - too large ...") 1547s *** future_lapply() - too large ... 1547s > 1547s > oMaxSize <- getOption("future.globals.maxSize") 1547s > X <- replicate(10L, 1:100, simplify = FALSE) 1547s > FUN <- function(x) { 1547s + getOption("future.globals.maxSize") 1547s + } 1547s > 1547s > y0 <- lapply(X, FUN = FUN) 1547s > stopifnot(all(sapply(y0, FUN = identical, oMaxSize))) 1547s > 1547s > sizes <- unclass(c(FUN = object.size(FUN), X = object.size(X))) 1547s > cat(sprintf("Baseline size of globals: %.2f KiB\n", sizes[["FUN"]] / 1024)) 1547s Baseline size of globals: 1.80 KiB 1547s > 1547s > message("- true positive ...") 1547s > options(future.globals.maxSize = 1L) 1547s > res <- tryCatch({ 1547s + y <- future_lapply(X, FUN = FUN) 1547s + }, error = identity) 1547s - true positive ... 1547s [00:52:27.781] future_lapply() ... 1547s [00:52:27.785] Number of chunks: 1 1547s [00:52:27.786] getGlobalsAndPackagesXApply() ... 1547s [00:52:27.786] - future.globals: TRUE 1547s > [00:52:27.789] getGlobalsAndPackagesXApply() ... DONE 1547s stopifnot(inherits(res, "error")) 1547s > res <- NULL 1547s > options(future.globals.maxSize = oMaxSize) 1547s > 1547s > maxSize <- getOption("future.globals.maxSize") 1547s > y <- future_lapply(X, FUN = FUN) 1547s [00:52:27.789] future_lapply() ... 1547s [00:52:27.793] Number of chunks: 1 1547s [00:52:27.794] getGlobalsAndPackagesXApply() ... 1547s [00:52:27.794] - future.globals: TRUE 1547s [00:52:27.796] - globals found/used: [n=1] ‘FUN’ 1547s [00:52:27.797] - needed namespaces: [n=0] 1547s [00:52:27.797] Finding globals ... DONE 1547s [00:52:27.797] - use_args: TRUE 1547s [00:52:27.797] - Getting '...' globals ... 1547s [00:52:27.797] - '...' content: [n=0] 1547s [00:52:27.797] List of 1 1547s [00:52:27.797] $ ...: list() 1547s [00:52:27.797] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1547s [00:52:27.797] - attr(*, "where")=List of 1 1547s [00:52:27.797] ..$ ...: 1547s [00:52:27.797] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1547s [00:52:27.797] - attr(*, "resolved")= logi TRUE 1547s [00:52:27.797] - attr(*, "total_size")= num NA 1547s [00:52:27.801] - Getting '...' globals ... DONE 1547s [00:52:27.802] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1547s [00:52:27.802] List of 2 1547s [00:52:27.802] $ ...future.FUN:function (x) 1547s [00:52:27.802] $ ... : list() 1547s [00:52:27.802] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1547s [00:52:27.802] - attr(*, "where")=List of 2 1547s [00:52:27.802] ..$ ...future.FUN: 1547s [00:52:27.802] ..$ ... : 1547s [00:52:27.802] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1547s [00:52:27.802] - attr(*, "resolved")= logi FALSE 1547s [00:52:27.802] - attr(*, "total_size")= num 1840 1547s [00:52:27.806] Packages to be attached in all futures: [n=0] 1547s [00:52:27.806] getGlobalsAndPackagesXApply() ... DONE 1547s [00:52:27.806] Number of futures (= number of chunks): 1 1547s [00:52:27.806] Launching 1 futures (chunks) ... 1547s [00:52:27.806] Chunk #1 of 1 ... 1547s [00:52:27.807] - Finding globals in 'X' for chunk #1 ... 1547s [00:52:27.807] + additional globals found: [n=0] 1547s [00:52:27.807] + additional namespaces needed: [n=0] 1547s [00:52:27.807] - Finding globals in 'X' for chunk #1 ... DONE 1547s [00:52:27.807] - seeds: 1547s [00:52:27.808] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1547s [00:52:27.816] Created future: 1547s [00:52:27.816] SequentialFuture: 1547s [00:52:27.816] Label: ‘future_lapply-1’ 1547s [00:52:27.816] Expression: 1547s [00:52:27.816] { 1547s [00:52:27.816] do.call(function(...) { 1547s [00:52:27.816] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1547s [00:52:27.816] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1547s [00:52:27.816] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1547s [00:52:27.816] on.exit(options(oopts), add = TRUE) 1547s [00:52:27.816] } 1547s [00:52:27.816] { 1547s [00:52:27.816] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1547s [00:52:27.816] ...future.X_jj <- ...future.elements_ii[[jj]] 1547s [00:52:27.816] ...future.FUN(...future.X_jj, ...) 1547s [00:52:27.816] }) 1547s [00:52:27.816] } 1547s [00:52:27.816] }, args = future.call.arguments) 1547s [00:52:27.816] } 1547s [00:52:27.816] Lazy evaluation: FALSE 1547s [00:52:27.816] Asynchronous evaluation: FALSE 1547s [00:52:27.816] Local evaluation: TRUE 1547s [00:52:27.816] Environment: R_GlobalEnv 1547s [00:52:27.816] Capture standard output: TRUE 1547s [00:52:27.816] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1547s [00:52:27.816] Globals: 5 objects totaling 6.17 KiB (function ‘...future.FUN’ of 1.80 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 4.38 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1547s [00:52:27.816] Packages: 1547s [00:52:27.816] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1547s [00:52:27.816] Resolved: TRUE 1547s [00:52:27.816] Value: 0 bytes of class ‘list’ 1547s [00:52:27.816] Early signaling: FALSE 1547s [00:52:27.816] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1547s [00:52:27.816] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1547s [00:52:27.818] Chunk #1 of 1 ... DONE 1547s [00:52:27.818] Launching 1 futures (chunks) ... DONE 1547s [00:52:27.819] Resolving 1 futures (chunks) ... 1547s [00:52:27.819] - Number of value chunks collected: 1 1547s [00:52:27.819] Resolving 1 futures (chunks) ... DONE 1547s [00:52:27.819] Reducing values from 1 chunks ... 1547s [00:52:27.820] - Number of values collected after concatenation: 10 1547s [00:52:27.820] - Number of values expected: 10 1547s [00:52:27.820] Reducing values from 1 chunks ... DONE 1547s [00:52:27.820] future_lapply() ... DONE 1547s > str(y) 1547s List of 10 1547s $ : NULL 1547s $ : NULL 1547s $ : NULL 1547s $ : NULL 1547s $ : NULL 1547s $ : NULL 1547s $ : NULL 1547s $ : NULL 1547s $ : NULL 1547s $ : NULL 1547s > stopifnot(all(sapply(y, FUN = identical, oMaxSize))) 1547s > 1547s > message("- approximately invariant to chunk size ...") 1547s - approximately invariant to chunk size ... 1547s > maxSize <- sizes[["FUN"]] + sizes[["X"]] / length(X) 1547s > options(future.globals.maxSize = maxSize) 1547s > 1547s > for (chunk.size in c(1L, 2L, 5L, 10L)) { 1547s + y <- future_lapply(X, FUN = FUN, future.chunk.size = chunk.size) 1547s + str(y) 1547s + stopifnot(all(unlist(y) == maxSize)) 1547s + cat(sprintf("maxSize = %g bytes\nfuture.globals.maxSize = %g bytes\n", 1547s + maxSize, getOption("future.globals.maxSize"))) 1547s + stopifnot(getOption("future.globals.maxSize") == maxSize) 1547s + } 1547s [00:52:27.832] future_lapply() ... 1547s [00:52:27.840] Number of chunks: 10 1547s [00:52:27.841] getGlobalsAndPackagesXApply() ... 1547s [00:52:27.841] - future.globals: TRUE 1547s [00:52:27.843] - globals found/used: [n=1] ‘FUN’ 1547s [00:52:27.843] - needed namespaces: [n=0] 1547s [00:52:27.843] Finding globals ... DONE 1547s [00:52:27.843] - use_args: TRUE 1547s [00:52:27.844] - Getting '...' globals ... 1547s [00:52:27.844] - '...' content: [n=0] 1547s [00:52:27.844] List of 1 1547s [00:52:27.844] $ ...: list() 1547s [00:52:27.844] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1547s [00:52:27.844] - attr(*, "where")=List of 1 1547s [00:52:27.844] ..$ ...: 1547s [00:52:27.844] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1547s [00:52:27.844] - attr(*, "resolved")= logi TRUE 1547s [00:52:27.844] - attr(*, "total_size")= num NA 1547s [00:52:27.848] - Getting '...' globals ... DONE 1547s [00:52:27.848] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1547s [00:52:27.848] List of 2 1547s [00:52:27.848] $ ...future.FUN:function (x) 1547s [00:52:27.848] $ ... : list() 1547s [00:52:27.848] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1547s [00:52:27.848] - attr(*, "where")=List of 2 1547s [00:52:27.848] ..$ ...future.FUN: 1547s [00:52:27.848] ..$ ... : 1547s [00:52:27.848] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1547s [00:52:27.848] - attr(*, "resolved")= logi FALSE 1547s [00:52:27.848] - attr(*, "total_size")= num 1840 1547s [00:52:27.852] Packages to be attached in all futures: [n=0] 1547s [00:52:27.853] getGlobalsAndPackagesXApply() ... DONE 1547s [00:52:27.853] Number of futures (= number of chunks): 10 1547s [00:52:27.853] Launching 10 futures (chunks) ... 1547s [00:52:27.853] Chunk #1 of 10 ... 1547s [00:52:27.853] - Finding globals in 'X' for chunk #1 ... 1547s [00:52:27.854] + additional globals found: [n=0] 1547s [00:52:27.854] + additional namespaces needed: [n=0] 1547s [00:52:27.854] - Finding globals in 'X' for chunk #1 ... DONE 1547s [00:52:27.855] - Adjusted option 'future.globals.maxSize': 2306 -> 10 * 2306 = 23056 (bytes) 1547s [00:52:27.855] - seeds: 1547s [00:52:27.855] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1547s [00:52:27.864] Created future: 1547s [00:52:27.864] SequentialFuture: 1547s [00:52:27.864] Label: ‘future_lapply-1’ 1547s [00:52:27.864] Expression: 1547s [00:52:27.864] { 1547s [00:52:27.864] do.call(function(...) { 1547s [00:52:27.864] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1547s [00:52:27.864] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1547s [00:52:27.864] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1547s [00:52:27.864] on.exit(options(oopts), add = TRUE) 1547s [00:52:27.864] } 1547s [00:52:27.864] { 1547s [00:52:27.864] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1547s [00:52:27.864] ...future.X_jj <- ...future.elements_ii[[jj]] 1547s [00:52:27.864] ...future.FUN(...future.X_jj, ...) 1547s [00:52:27.864] }) 1547s [00:52:27.864] } 1547s [00:52:27.864] }, args = future.call.arguments) 1547s [00:52:27.864] } 1547s [00:52:27.864] Lazy evaluation: FALSE 1547s [00:52:27.864] Asynchronous evaluation: FALSE 1547s [00:52:27.864] Local evaluation: TRUE 1547s [00:52:27.864] Environment: R_GlobalEnv 1547s [00:52:27.864] Capture standard output: TRUE 1547s [00:52:27.864] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1547s [00:52:27.864] Globals: 5 objects totaling 2.29 KiB (function ‘...future.FUN’ of 1.80 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 448 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1547s [00:52:27.864] Packages: 1547s [00:52:27.864] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1547s [00:52:27.864] Resolved: TRUE 1547s [00:52:27.864] Value: 56 bytes of class ‘list’ 1547s [00:52:27.864] Early signaling: FALSE 1547s [00:52:27.864] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1547s [00:52:27.864] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1547s [00:52:27.866] Chunk #1 of 10 ... DONE 1547s [00:52:27.866] Chunk #2 of 10 ... 1547s [00:52:27.866] - Finding globals in 'X' for chunk #2 ... 1547s [00:52:27.867] + additional globals found: [n=0] 1547s [00:52:27.867] + additional namespaces needed: [n=0] 1547s [00:52:27.867] - Finding globals in 'X' for chunk #2 ... DONE 1547s [00:52:27.867] - Adjusted option 'future.globals.maxSize': 2306 -> 10 * 2306 = 23056 (bytes) 1547s [00:52:27.867] - seeds: 1547s [00:52:27.867] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1547s [00:52:27.876] Created future: 1547s [00:52:27.876] SequentialFuture: 1547s [00:52:27.876] Label: ‘future_lapply-2’ 1547s [00:52:27.876] Expression: 1547s [00:52:27.876] { 1547s [00:52:27.876] do.call(function(...) { 1547s [00:52:27.876] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1547s [00:52:27.876] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1547s [00:52:27.876] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1547s [00:52:27.876] on.exit(options(oopts), add = TRUE) 1547s [00:52:27.876] } 1547s [00:52:27.876] { 1547s [00:52:27.876] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1547s [00:52:27.876] ...future.X_jj <- ...future.elements_ii[[jj]] 1547s [00:52:27.876] ...future.FUN(...future.X_jj, ...) 1547s [00:52:27.876] }) 1547s [00:52:27.876] } 1547s [00:52:27.876] }, args = future.call.arguments) 1547s [00:52:27.876] } 1547s [00:52:27.876] Lazy evaluation: FALSE 1547s [00:52:27.876] Asynchronous evaluation: FALSE 1547s [00:52:27.876] Local evaluation: TRUE 1547s [00:52:27.876] Environment: R_GlobalEnv 1547s [00:52:27.876] Capture standard output: TRUE 1547s [00:52:27.876] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1547s [00:52:27.876] Globals: 5 objects totaling 2.29 KiB (function ‘...future.FUN’ of 1.80 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 448 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1547s [00:52:27.876] Packages: 1547s [00:52:27.876] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1547s [00:52:27.876] Resolved: TRUE 1547s [00:52:27.876] Value: 56 bytes of class ‘list’ 1547s [00:52:27.876] Early signaling: FALSE 1547s [00:52:27.876] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1547s [00:52:27.876] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1547s [00:52:27.878] Chunk #2 of 10 ... DONE 1547s [00:52:27.878] Chunk #3 of 10 ... 1547s [00:52:27.878] - Finding globals in 'X' for chunk #3 ... 1547s [00:52:27.878] + additional globals found: [n=0] 1547s [00:52:27.879] + additional namespaces needed: [n=0] 1547s [00:52:27.879] - Finding globals in 'X' for chunk #3 ... DONE 1547s [00:52:27.879] - Adjusted option 'future.globals.maxSize': 2306 -> 10 * 2306 = 23056 (bytes) 1547s [00:52:27.879] - seeds: 1547s [00:52:27.879] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1547s [00:52:27.888] Created future: 1547s [00:52:27.888] SequentialFuture: 1547s [00:52:27.888] Label: ‘future_lapply-3’ 1547s [00:52:27.888] Expression: 1547s [00:52:27.888] { 1547s [00:52:27.888] do.call(function(...) { 1547s [00:52:27.888] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1547s [00:52:27.888] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1547s [00:52:27.888] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1547s [00:52:27.888] on.exit(options(oopts), add = TRUE) 1547s [00:52:27.888] } 1547s [00:52:27.888] { 1547s [00:52:27.888] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1547s [00:52:27.888] ...future.X_jj <- ...future.elements_ii[[jj]] 1547s [00:52:27.888] ...future.FUN(...future.X_jj, ...) 1547s [00:52:27.888] }) 1547s [00:52:27.888] } 1547s [00:52:27.888] }, args = future.call.arguments) 1547s [00:52:27.888] } 1547s [00:52:27.888] Lazy evaluation: FALSE 1547s [00:52:27.888] Asynchronous evaluation: FALSE 1547s [00:52:27.888] Local evaluation: TRUE 1547s [00:52:27.888] Environment: R_GlobalEnv 1547s [00:52:27.888] Capture standard output: TRUE 1547s [00:52:27.888] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1547s [00:52:27.888] Globals: 5 objects totaling 2.29 KiB (function ‘...future.FUN’ of 1.80 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 448 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1547s [00:52:27.888] Packages: 1547s [00:52:27.888] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1547s [00:52:27.888] Resolved: TRUE 1547s [00:52:27.888] Value: 56 bytes of class ‘list’ 1547s [00:52:27.888] Early signaling: FALSE 1547s [00:52:27.888] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1547s [00:52:27.888] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1547s [00:52:27.890] Chunk #3 of 10 ... DONE 1547s [00:52:27.890] Chunk #4 of 10 ... 1547s [00:52:27.890] - Finding globals in 'X' for chunk #4 ... 1547s [00:52:27.891] + additional globals found: [n=0] 1547s [00:52:27.891] + additional namespaces needed: [n=0] 1547s [00:52:27.892] - Finding globals in 'X' for chunk #4 ... DONE 1547s [00:52:27.892] - Adjusted option 'future.globals.maxSize': 2306 -> 10 * 2306 = 23056 (bytes) 1547s [00:52:27.892] - seeds: 1547s [00:52:27.892] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1547s [00:52:27.901] Created future: 1547s [00:52:27.901] SequentialFuture: 1547s [00:52:27.901] Label: ‘future_lapply-4’ 1547s [00:52:27.901] Expression: 1547s [00:52:27.901] { 1547s [00:52:27.901] do.call(function(...) { 1547s [00:52:27.901] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1547s [00:52:27.901] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1547s [00:52:27.901] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1547s [00:52:27.901] on.exit(options(oopts), add = TRUE) 1547s [00:52:27.901] } 1547s [00:52:27.901] { 1547s [00:52:27.901] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1547s [00:52:27.901] ...future.X_jj <- ...future.elements_ii[[jj]] 1547s [00:52:27.901] ...future.FUN(...future.X_jj, ...) 1547s [00:52:27.901] }) 1547s [00:52:27.901] } 1547s [00:52:27.901] }, args = future.call.arguments) 1547s [00:52:27.901] } 1547s [00:52:27.901] Lazy evaluation: FALSE 1547s [00:52:27.901] Asynchronous evaluation: FALSE 1547s [00:52:27.901] Local evaluation: TRUE 1547s [00:52:27.901] Environment: R_GlobalEnv 1547s [00:52:27.901] Capture standard output: TRUE 1547s [00:52:27.901] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1547s [00:52:27.901] Globals: 5 objects totaling 2.29 KiB (function ‘...future.FUN’ of 1.80 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 448 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1547s [00:52:27.901] Packages: 1547s [00:52:27.901] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1547s [00:52:27.901] Resolved: TRUE 1547s [00:52:27.901] Value: 56 bytes of class ‘list’ 1547s [00:52:27.901] Early signaling: FALSE 1547s [00:52:27.901] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1547s [00:52:27.901] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1547s [00:52:27.903] Chunk #4 of 10 ... DONE 1547s [00:52:27.903] Chunk #5 of 10 ... 1547s [00:52:27.903] - Finding globals in 'X' for chunk #5 ... 1547s [00:52:27.903] + additional globals found: [n=0] 1547s [00:52:27.903] + additional namespaces needed: [n=0] 1547s [00:52:27.904] - Finding globals in 'X' for chunk #5 ... DONE 1547s [00:52:27.904] - Adjusted option 'future.globals.maxSize': 2306 -> 10 * 2306 = 23056 (bytes) 1547s [00:52:27.904] - seeds: 1547s [00:52:27.904] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1547s [00:52:27.913] Created future: 1547s [00:52:27.913] SequentialFuture: 1547s [00:52:27.913] Label: ‘future_lapply-5’ 1547s [00:52:27.913] Expression: 1547s [00:52:27.913] { 1547s [00:52:27.913] do.call(function(...) { 1547s [00:52:27.913] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1547s [00:52:27.913] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1547s [00:52:27.913] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1547s [00:52:27.913] on.exit(options(oopts), add = TRUE) 1547s [00:52:27.913] } 1547s [00:52:27.913] { 1547s [00:52:27.913] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1547s [00:52:27.913] ...future.X_jj <- ...future.elements_ii[[jj]] 1547s [00:52:27.913] ...future.FUN(...future.X_jj, ...) 1547s [00:52:27.913] }) 1547s [00:52:27.913] } 1547s [00:52:27.913] }, args = future.call.arguments) 1547s [00:52:27.913] } 1547s [00:52:27.913] Lazy evaluation: FALSE 1547s [00:52:27.913] Asynchronous evaluation: FALSE 1547s [00:52:27.913] Local evaluation: TRUE 1547s [00:52:27.913] Environment: R_GlobalEnv 1547s [00:52:27.913] Capture standard output: TRUE 1547s [00:52:27.913] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1547s [00:52:27.913] Globals: 5 objects totaling 2.29 KiB (function ‘...future.FUN’ of 1.80 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 448 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1547s [00:52:27.913] Packages: 1547s [00:52:27.913] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1547s [00:52:27.913] Resolved: TRUE 1547s [00:52:27.913] Value: 56 bytes of class ‘list’ 1547s [00:52:27.913] Early signaling: FALSE 1547s [00:52:27.913] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1547s [00:52:27.913] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1547s [00:52:27.915] Chunk #5 of 10 ... DONE 1547s [00:52:27.915] Chunk #6 of 10 ... 1547s [00:52:27.916] - Finding globals in 'X' for chunk #6 ... 1547s [00:52:27.916] + additional globals found: [n=0] 1547s [00:52:27.916] + additional namespaces needed: [n=0] 1547s [00:52:27.916] - Finding globals in 'X' for chunk #6 ... DONE 1547s [00:52:27.916] - Adjusted option 'future.globals.maxSize': 2306 -> 10 * 2306 = 23056 (bytes) 1547s [00:52:27.916] - seeds: 1547s [00:52:27.917] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1547s [00:52:27.927] Created future: 1547s [00:52:27.927] SequentialFuture: 1547s [00:52:27.927] Label: ‘future_lapply-6’ 1547s [00:52:27.927] Expression: 1547s [00:52:27.927] { 1547s [00:52:27.927] do.call(function(...) { 1547s [00:52:27.927] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1547s [00:52:27.927] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1547s [00:52:27.927] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1547s [00:52:27.927] on.exit(options(oopts), add = TRUE) 1547s [00:52:27.927] } 1547s [00:52:27.927] { 1547s [00:52:27.927] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1547s [00:52:27.927] ...future.X_jj <- ...future.elements_ii[[jj]] 1547s [00:52:27.927] ...future.FUN(...future.X_jj, ...) 1547s [00:52:27.927] }) 1547s [00:52:27.927] } 1547s [00:52:27.927] }, args = future.call.arguments) 1547s [00:52:27.927] } 1547s [00:52:27.927] Lazy evaluation: FALSE 1547s [00:52:27.927] Asynchronous evaluation: FALSE 1547s [00:52:27.927] Local evaluation: TRUE 1547s [00:52:27.927] Environment: R_GlobalEnv 1547s [00:52:27.927] Capture standard output: TRUE 1547s [00:52:27.927] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1547s [00:52:27.927] Globals: 5 objects totaling 2.29 KiB (function ‘...future.FUN’ of 1.80 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 448 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1547s [00:52:27.927] Packages: 1547s [00:52:27.927] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1547s [00:52:27.927] Resolved: TRUE 1547s [00:52:27.927] Value: 56 bytes of class ‘list’ 1547s [00:52:27.927] Early signaling: FALSE 1547s [00:52:27.927] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1547s [00:52:27.927] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1547s [00:52:27.929] Chunk #6 of 10 ... DONE 1547s [00:52:27.929] Chunk #7 of 10 ... 1547s [00:52:27.929] - Finding globals in 'X' for chunk #7 ... 1547s [00:52:27.930] + additional globals found: [n=0] 1547s [00:52:27.931] + additional namespaces needed: [n=0] 1547s [00:52:27.931] - Finding globals in 'X' for chunk #7 ... DONE 1547s [00:52:27.931] - Adjusted option 'future.globals.maxSize': 2306 -> 10 * 2306 = 23056 (bytes) 1547s [00:52:27.931] - seeds: 1547s [00:52:27.931] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1547s [00:52:27.944] Created future: 1547s [00:52:27.944] SequentialFuture: 1547s [00:52:27.944] Label: ‘future_lapply-7’ 1547s [00:52:27.944] Expression: 1547s [00:52:27.944] { 1547s [00:52:27.944] do.call(function(...) { 1547s [00:52:27.944] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1547s [00:52:27.944] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1547s [00:52:27.944] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1547s [00:52:27.944] on.exit(options(oopts), add = TRUE) 1547s [00:52:27.944] } 1547s [00:52:27.944] { 1547s [00:52:27.944] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1547s [00:52:27.944] ...future.X_jj <- ...future.elements_ii[[jj]] 1547s [00:52:27.944] ...future.FUN(...future.X_jj, ...) 1547s [00:52:27.944] }) 1547s [00:52:27.944] } 1547s [00:52:27.944] }, args = future.call.arguments) 1547s [00:52:27.944] } 1547s [00:52:27.944] Lazy evaluation: FALSE 1547s [00:52:27.944] Asynchronous evaluation: FALSE 1547s [00:52:27.944] Local evaluation: TRUE 1547s [00:52:27.944] Environment: R_GlobalEnv 1547s [00:52:27.944] Capture standard output: TRUE 1547s [00:52:27.944] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1547s [00:52:27.944] Globals: 5 objects totaling 2.29 KiB (function ‘...future.FUN’ of 1.80 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 448 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1547s [00:52:27.944] Packages: 1547s [00:52:27.944] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1547s [00:52:27.944] Resolved: TRUE 1547s [00:52:27.944] Value: 56 bytes of class ‘list’ 1547s [00:52:27.944] Early signaling: FALSE 1547s [00:52:27.944] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1547s [00:52:27.944] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1547s [00:52:27.946] Chunk #7 of 10 ... DONE 1547s [00:52:27.946] Chunk #8 of 10 ... 1547s [00:52:27.946] - Finding globals in 'X' for chunk #8 ... 1547s [00:52:27.947] + additional globals found: [n=0] 1547s [00:52:27.947] + additional namespaces needed: [n=0] 1547s [00:52:27.947] - Finding globals in 'X' for chunk #8 ... DONE 1547s [00:52:27.947] - Adjusted option 'future.globals.maxSize': 2306 -> 10 * 2306 = 23056 (bytes) 1547s [00:52:27.947] - seeds: 1547s [00:52:27.947] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1547s [00:52:27.956] Created future: 1547s [00:52:27.957] SequentialFuture: 1547s [00:52:27.957] Label: ‘future_lapply-8’ 1547s [00:52:27.957] Expression: 1547s [00:52:27.957] { 1547s [00:52:27.957] do.call(function(...) { 1547s [00:52:27.957] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1547s [00:52:27.957] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1547s [00:52:27.957] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1547s [00:52:27.957] on.exit(options(oopts), add = TRUE) 1547s [00:52:27.957] } 1547s [00:52:27.957] { 1547s [00:52:27.957] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1547s [00:52:27.957] ...future.X_jj <- ...future.elements_ii[[jj]] 1547s [00:52:27.957] ...future.FUN(...future.X_jj, ...) 1547s [00:52:27.957] }) 1547s [00:52:27.957] } 1547s [00:52:27.957] }, args = future.call.arguments) 1547s [00:52:27.957] } 1547s [00:52:27.957] Lazy evaluation: FALSE 1547s [00:52:27.957] Asynchronous evaluation: FALSE 1547s [00:52:27.957] Local evaluation: TRUE 1547s [00:52:27.957] Environment: R_GlobalEnv 1547s [00:52:27.957] Capture standard output: TRUE 1547s [00:52:27.957] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1547s [00:52:27.957] Globals: 5 objects totaling 2.29 KiB (function ‘...future.FUN’ of 1.80 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 448 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1547s [00:52:27.957] Packages: 1547s [00:52:27.957] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1547s [00:52:27.957] Resolved: TRUE 1547s [00:52:27.957] Value: 56 bytes of class ‘list’ 1547s [00:52:27.957] Early signaling: FALSE 1547s [00:52:27.957] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1547s [00:52:27.957] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1547s [00:52:27.958] Chunk #8 of 10 ... DONE 1547s [00:52:27.958] Chunk #9 of 10 ... 1547s [00:52:27.958] - Finding globals in 'X' for chunk #9 ... 1547s [00:52:27.959] + additional globals found: [n=0] 1547s [00:52:27.959] + additional namespaces needed: [n=0] 1547s [00:52:27.959] - Finding globals in 'X' for chunk #9 ... DONE 1547s [00:52:27.959] - Adjusted option 'future.globals.maxSize': 2306 -> 10 * 2306 = 23056 (bytes) 1547s [00:52:27.959] - seeds: 1547s [00:52:27.959] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1548s [00:52:27.968] Created future: 1548s [00:52:27.968] SequentialFuture: 1548s [00:52:27.968] Label: ‘future_lapply-9’ 1548s [00:52:27.968] Expression: 1548s [00:52:27.968] { 1548s [00:52:27.968] do.call(function(...) { 1548s [00:52:27.968] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1548s [00:52:27.968] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1548s [00:52:27.968] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1548s [00:52:27.968] on.exit(options(oopts), add = TRUE) 1548s [00:52:27.968] } 1548s [00:52:27.968] { 1548s [00:52:27.968] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1548s [00:52:27.968] ...future.X_jj <- ...future.elements_ii[[jj]] 1548s [00:52:27.968] ...future.FUN(...future.X_jj, ...) 1548s [00:52:27.968] }) 1548s [00:52:27.968] } 1548s [00:52:27.968] }, args = future.call.arguments) 1548s [00:52:27.968] } 1548s [00:52:27.968] Lazy evaluation: FALSE 1548s [00:52:27.968] Asynchronous evaluation: FALSE 1548s [00:52:27.968] Local evaluation: TRUE 1548s [00:52:27.968] Environment: R_GlobalEnv 1548s [00:52:27.968] Capture standard output: TRUE 1548s [00:52:27.968] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1548s [00:52:27.968] Globals: 5 objects totaling 2.29 KiB (function ‘...future.FUN’ of 1.80 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 448 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1548s [00:52:27.968] Packages: 1548s [00:52:27.968] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1548s [00:52:27.968] Resolved: TRUE 1548s [00:52:27.968] Value: 56 bytes of class ‘list’ 1548s [00:52:27.968] Early signaling: FALSE 1548s [00:52:27.968] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1548s [00:52:27.968] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1548s [00:52:27.970] Chunk #9 of 10 ... DONE 1548s [00:52:27.970] Chunk #10 of 10 ... 1548s [00:52:27.970] - Finding globals in 'X' for chunk #10 ... 1548s [00:52:27.971] + additional globals found: [n=0] 1548s [00:52:27.971] + additional namespaces needed: [n=0] 1548s [00:52:27.971] - Finding globals in 'X' for chunk #10 ... DONE 1548s [00:52:27.971] - Adjusted option 'future.globals.maxSize': 2306 -> 10 * 2306 = 23056 (bytes) 1548s [00:52:27.971] - seeds: 1548s [00:52:27.971] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1548s [00:52:27.980] Created future: 1548s [00:52:27.980] SequentialFuture: 1548s [00:52:27.980] Label: ‘future_lapply-10’ 1548s [00:52:27.980] Expression: 1548s [00:52:27.980] { 1548s [00:52:27.980] do.call(function(...) { 1548s [00:52:27.980] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1548s [00:52:27.980] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1548s [00:52:27.980] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1548s [00:52:27.980] on.exit(options(oopts), add = TRUE) 1548s [00:52:27.980] } 1548s [00:52:27.980] { 1548s [00:52:27.980] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1548s [00:52:27.980] ...future.X_jj <- ...future.elements_ii[[jj]] 1548s [00:52:27.980] ...futList of 10 1548s $ : num 2306 1548s $ : num ure.FUN(...future.X_jj, ...) 1548s [00:52:27.980] }) 1548s [00:52:27.980] } 1548s [00:52:27.980] }, args = future.call.arguments) 1548s [00:52:27.980] } 1548s [00:52:27.980] Lazy evaluation: FALSE 1548s [00:52:27.980] Asynchronous evaluation: FALSE 1548s [00:52:27.980] Local evaluation: TRUE 1548s [00:52:27.980] Environment: R_GlobalEnv 1548s [00:52:27.980] Capture standard output: TRUE 1548s [00:52:27.980] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1548s [00:52:27.980] Globals: 5 objects totaling 2.29 KiB (function ‘...future.FUN’ of 1.80 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 448 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1548s [00:52:27.980] Packages: 1548s [00:52:27.980] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1548s [00:52:27.980] Resolved: TRUE 1548s [00:52:27.980] Value: 56 bytes of class ‘list’ 1548s [00:52:27.980] Early signaling: FALSE 1548s [00:52:27.980] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1548s [00:52:27.980] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1548s [00:52:27.981] Chunk #10 of 10 ... DONE 1548s [00:52:27.982] Launching 10 futures (chunks) ... DONE 1548s [00:52:27.982] Resolving 10 futures (chunks) ... 1548s [00:52:27.985] - Number of value chunks collected: 10 1548s [00:52:27.985] Resolving 10 futures (chunks) ... DONE 1548s [00:52:27.986] Reducing values from 10 chunks ... 1548s [00:52:27.986] - Number of values collected after concatenation: 10 1548s [00:52:27.986] - Number of values expected: 10 1548s [00:52:27.986] Reducing values from 10 chunks ... DONE 1548s [00:52:27.986] future_lapply() ... DONE 1548s 2306 1548s $ : num 2306 1548s $ : num 2306 1548s $ : num 2306 1548s $ : num 2306 1548s $ : num 2306 1548s $ : num 2306 1548s $ : num 2306 1548s $ : num [00:52:27.992] future_lapply() ... 1548s 2306 1548s maxSize = 2305.6 bytes 1548s future.globals.maxSize = 2305.6 bytes 1548s [00:52:27.997] Number of chunks: 5 1548s [00:52:27.997] getGlobalsAndPackagesXApply() ... 1548s [00:52:27.997] - future.globals: TRUE 1548s [00:52:28.000] - globals found/used: [n=1] ‘FUN’ 1548s [00:52:28.000] - needed namespaces: [n=0] 1548s [00:52:28.000] Finding globals ... DONE 1548s [00:52:28.000] - use_args: TRUE 1548s [00:52:28.000] - Getting '...' globals ... 1548s [00:52:28.001] - '...' content: [n=0] 1548s [00:52:28.001] List of 1 1548s [00:52:28.001] $ ...: list() 1548s [00:52:28.001] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1548s [00:52:28.001] - attr(*, "where")=List of 1 1548s [00:52:28.001] ..$ ...: 1548s [00:52:28.001] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1548s [00:52:28.001] - attr(*, "resolved")= logi TRUE 1548s [00:52:28.001] - attr(*, "total_size")= num NA 1548s [00:52:28.005] - Getting '...' globals ... DONE 1548s [00:52:28.006] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1548s [00:52:28.006] List of 2 1548s [00:52:28.006] $ ...future.FUN:function (x) 1548s [00:52:28.006] $ ... : list() 1548s [00:52:28.006] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1548s [00:52:28.006] - attr(*, "where")=List of 2 1548s [00:52:28.006] ..$ ...future.FUN: 1548s [00:52:28.006] ..$ ... : 1548s [00:52:28.006] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1548s [00:52:28.006] - attr(*, "resolved")= logi FALSE 1548s [00:52:28.006] - attr(*, "total_size")= num 1840 1548s [00:52:28.009] Packages to be attached in all futures: [n=0] 1548s [00:52:28.009] getGlobalsAndPackagesXApply() ... DONE 1548s [00:52:28.010] Number of futures (= number of chunks): 5 1548s [00:52:28.010] Launching 5 futures (chunks) ... 1548s [00:52:28.010] Chunk #1 of 5 ... 1548s [00:52:28.011] - Finding globals in 'X' for chunk #1 ... 1548s [00:52:28.011] + additional globals found: [n=0] 1548s [00:52:28.011] + additional namespaces needed: [n=0] 1548s [00:52:28.012] - Finding globals in 'X' for chunk #1 ... DONE 1548s [00:52:28.012] - Adjusted option 'future.globals.maxSize': 2306 -> 5 * 2306 = 11528 (bytes) 1548s [00:52:28.012] - seeds: 1548s [00:52:28.012] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1548s [00:52:28.023] Created future: 1548s [00:52:28.023] SequentialFuture: 1548s [00:52:28.023] Label: ‘future_lapply-1’ 1548s [00:52:28.023] Expression: 1548s [00:52:28.023] { 1548s [00:52:28.023] do.call(function(...) { 1548s [00:52:28.023] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1548s [00:52:28.023] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1548s [00:52:28.023] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1548s [00:52:28.023] on.exit(options(oopts), add = TRUE) 1548s [00:52:28.023] } 1548s [00:52:28.023] { 1548s [00:52:28.023] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1548s [00:52:28.023] ...future.X_jj <- ...future.elements_ii[[jj]] 1548s [00:52:28.023] ...future.FUN(...future.X_jj, ...) 1548s [00:52:28.023] }) 1548s [00:52:28.023] } 1548s [00:52:28.023] }, args = future.call.arguments) 1548s [00:52:28.023] } 1548s [00:52:28.023] Lazy evaluation: FALSE 1548s [00:52:28.023] Asynchronous evaluation: FALSE 1548s [00:52:28.023] Local evaluation: TRUE 1548s [00:52:28.023] Environment: R_GlobalEnv 1548s [00:52:28.023] Capture standard output: TRUE 1548s [00:52:28.023] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1548s [00:52:28.023] Globals: 5 objects totaling 2.73 KiB (function ‘...future.FUN’ of 1.80 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 896 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1548s [00:52:28.023] Packages: 1548s [00:52:28.023] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1548s [00:52:28.023] Resolved: TRUE 1548s [00:52:28.023] Value: 112 bytes of class ‘list’ 1548s [00:52:28.023] Early signaling: FALSE 1548s [00:52:28.023] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1548s [00:52:28.023] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1548s [00:52:28.025] Chunk #1 of 5 ... DONE 1548s [00:52:28.025] Chunk #2 of 5 ... 1548s [00:52:28.026] - Finding globals in 'X' for chunk #2 ... 1548s [00:52:28.026] + additional globals found: [n=0] 1548s [00:52:28.026] + additional namespaces needed: [n=0] 1548s [00:52:28.028] - Finding globals in 'X' for chunk #2 ... DONE 1548s [00:52:28.029] - Adjusted option 'future.globals.maxSize': 2306 -> 5 * 2306 = 11528 (bytes) 1548s [00:52:28.029] - seeds: 1548s [00:52:28.029] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1548s [00:52:28.037] Created future: 1548s [00:52:28.038] SequentialFuture: 1548s [00:52:28.038] Label: ‘future_lapply-2’ 1548s [00:52:28.038] Expression: 1548s [00:52:28.038] { 1548s [00:52:28.038] do.call(function(...) { 1548s [00:52:28.038] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1548s [00:52:28.038] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1548s [00:52:28.038] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1548s [00:52:28.038] on.exit(options(oopts), add = TRUE) 1548s [00:52:28.038] } 1548s [00:52:28.038] { 1548s [00:52:28.038] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1548s [00:52:28.038] ...future.X_jj <- ...future.elements_ii[[jj]] 1548s [00:52:28.038] ...future.FUN(...future.X_jj, ...) 1548s [00:52:28.038] }) 1548s [00:52:28.038] } 1548s [00:52:28.038] }, args = future.call.arguments) 1548s [00:52:28.038] } 1548s [00:52:28.038] Lazy evaluation: FALSE 1548s [00:52:28.038] Asynchronous evaluation: FALSE 1548s [00:52:28.038] Local evaluation: TRUE 1548s [00:52:28.038] Environment: R_GlobalEnv 1548s [00:52:28.038] Capture standard output: TRUE 1548s [00:52:28.038] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1548s [00:52:28.038] Globals: 5 objects totaling 2.73 KiB (function ‘...future.FUN’ of 1.80 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 896 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1548s [00:52:28.038] Packages: 1548s [00:52:28.038] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1548s [00:52:28.038] Resolved: TRUE 1548s [00:52:28.038] Value: 112 bytes of class ‘list’ 1548s [00:52:28.038] Early signaling: FALSE 1548s [00:52:28.038] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1548s [00:52:28.038] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1548s [00:52:28.039] Chunk #2 of 5 ... DONE 1548s [00:52:28.039] Chunk #3 of 5 ... 1548s [00:52:28.039] - Finding globals in 'X' for chunk #3 ... 1548s [00:52:28.040] + additional globals found: [n=0] 1548s [00:52:28.040] + additional namespaces needed: [n=0] 1548s [00:52:28.040] - Finding globals in 'X' for chunk #3 ... DONE 1548s [00:52:28.040] - Adjusted option 'future.globals.maxSize': 2306 -> 5 * 2306 = 11528 (bytes) 1548s [00:52:28.040] - seeds: 1548s [00:52:28.041] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1548s [00:52:28.048] Created future: 1548s [00:52:28.049] SequentialFuture: 1548s [00:52:28.049] Label: ‘future_lapply-3’ 1548s [00:52:28.049] Expression: 1548s [00:52:28.049] { 1548s [00:52:28.049] do.call(function(...) { 1548s [00:52:28.049] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1548s [00:52:28.049] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1548s [00:52:28.049] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1548s [00:52:28.049] on.exit(options(oopts), add = TRUE) 1548s [00:52:28.049] } 1548s [00:52:28.049] { 1548s [00:52:28.049] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1548s [00:52:28.049] ...future.X_jj <- ...future.elements_ii[[jj]] 1548s [00:52:28.049] ...future.FUN(...future.X_jj, ...) 1548s [00:52:28.049] }) 1548s [00:52:28.049] } 1548s [00:52:28.049] }, args = future.call.arguments) 1548s [00:52:28.049] } 1548s [00:52:28.049] Lazy evaluation: FALSE 1548s [00:52:28.049] Asynchronous evaluation: FALSE 1548s [00:52:28.049] Local evaluation: TRUE 1548s [00:52:28.049] Environment: R_GlobalEnv 1548s [00:52:28.049] Capture standard output: TRUE 1548s [00:52:28.049] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1548s [00:52:28.049] Globals: 5 objects totaling 2.73 KiB (function ‘...future.FUN’ of 1.80 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 896 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1548s [00:52:28.049] Packages: 1548s [00:52:28.049] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1548s [00:52:28.049] Resolved: TRUE 1548s [00:52:28.049] Value: 112 bytes of class ‘list’ 1548s [00:52:28.049] Early signaling: FALSE 1548s [00:52:28.049] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1548s [00:52:28.049] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1548s [00:52:28.050] Chunk #3 of 5 ... DONE 1548s [00:52:28.050] Chunk #4 of 5 ... 1548s [00:52:28.051] - Finding globals in 'X' for chunk #4 ... 1548s [00:52:28.051] + additional globals found: [n=0] 1548s [00:52:28.051] + additional namespaces needed: [n=0] 1548s [00:52:28.052] - Finding globals in 'X' for chunk #4 ... DONE 1548s [00:52:28.052] - Adjusted option 'future.globals.maxSize': 2306 -> 5 * 2306 = 11528 (bytes) 1548s [00:52:28.052] - seeds: 1548s [00:52:28.052] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1548s [00:52:28.062] Created future: 1548s [00:52:28.062] SequentialFuture: 1548s [00:52:28.062] Label: ‘future_lapply-4’ 1548s [00:52:28.062] Expression: 1548s [00:52:28.062] { 1548s [00:52:28.062] do.call(function(...) { 1548s [00:52:28.062] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1548s [00:52:28.062] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1548s [00:52:28.062] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1548s [00:52:28.062] on.exit(options(oopts), add = TRUE) 1548s [00:52:28.062] } 1548s [00:52:28.062] { 1548s [00:52:28.062] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1548s [00:52:28.062] ...future.X_jj <- ...future.elements_ii[[jj]] 1548s [00:52:28.062] ...future.FUN(...future.X_jj, ...) 1548s [00:52:28.062] }) 1548s [00:52:28.062] } 1548s [00:52:28.062] }, args = future.call.arguments) 1548s [00:52:28.062] } 1548s [00:52:28.062] Lazy evaluation: FALSE 1548s [00:52:28.062] Asynchronous evaluation: FALSE 1548s [00:52:28.062] Local evaluation: TRUE 1548s [00:52:28.062] Environment: R_GlobalEnv 1548s [00:52:28.062] Capture standard output: TRUE 1548s [00:52:28.062] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1548s [00:52:28.062] Globals: 5 objects totaling 2.73 KiB (function ‘...future.FUN’ of 1.80 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 896 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1548s [00:52:28.062] Packages: 1548s [00:52:28.062] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1548s [00:52:28.062] Resolved: TRUE 1548s [00:52:28.062] Value: 112 bytes of class ‘list’ 1548s [00:52:28.062] Early signaling: FALSE 1548s [00:52:28.062] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1548s [00:52:28.062] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1548s [00:52:28.064] Chunk #4 of 5 ... DONE 1548s [00:52:28.064] Chunk #5 of 5 ... 1548s [00:52:28.065] - Finding globals in 'X' for chunk #5 ... 1548s [00:52:28.065] + additional globals found: [n=0] 1548s [00:52:28.066] + additional namespaces needed: [n=0] 1548s [00:52:28.066] - Finding globals in 'X' for chunk #5 ... DONE 1548s [00:52:28.066] - Adjusted option 'future.globals.maxSize': 2306 -> 5 * 2306 = 11528 (bytes) 1548s [00:52:28.066] - seeds: 1548s [00:52:28.066] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1548s [00:52:28.078] Created future: 1548s [00:52:28.078] SequentialFuture: 1548s [00:52:28.078] Label: ‘future_lapply-5’ 1548s [00:52:28.078] Expression: 1548s [00:52:28.078] { 1548s [00:52:28.078] do.call(function(...) { 1548s [00:52:28.078] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1548s [00:52:28.078] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1548s [00:52:28.078] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1548s [00:52:28.078] on.exit(options(oopts), add = TRUE) 1548s [00:52:28.078] } 1548s [00:52:28.078] { 1548s [00:52:28.078] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1548s [00:52:28.078] ...future.X_jj <- ...future.elements_ii[[jj]] 1548s [00:52:28.078] ...future.FUN(...future.X_jj, ...) 1548s [00:52:28.078] }) 1548s [00:52:28.078] } 1548s [00:52:28.078] }, args = future.call.arguments) 1548s [00:52:28.078] } 1548s [00:52:28.078] Lazy evaluation: FALSE 1548s [00:52:28.078] Asynchronous evaluation: FALSE 1548s [00:52:28.078] Local evaluation: TRUE 1548s [00:52:28.078] Environment: R_GlobalEnv 1548s [00:52:28.078] Capture standard output: TRUE 1548s [00:52:28.078] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1548s [00:52:28.078] Globals: 5 objects totaling 2.73 KiB (function ‘...future.FUN’ of 1.80 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 896 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1548s [00:52:28.078] Packages: 1548s [00:52:28.078] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1548s [00:52:28.078] Resolved: TRUE 1548s [00:52:28.078] Value: 112 bytes of class ‘list’ 1548s [00:52:28.078] Early signaling: FALSE 1548s [00:52:28.078] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1548s [00:52:28.078] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1548s [00:52:28.080] Chunk #5 of 5 ... DONE 1548s [00:52:28.080] Launching 5 futures (chunks) ... DONE 1548s [00:52:28.081] Resolving 5 futures (chunks) ... 1548s [00:52:28.083] - Number of value chunks collected: 5 1548s [00:52:28.084] Resolving 5 futures (chunks) ... DONE 1548s List of 10 1548s [00:52:28.084] Reducing values from 5 chunks ... 1548s [00:52:28.084] - Number of values collected after concatenation: 10 1548s [00:52:28.084] - Number of values expected: 10 1548s [00:52:28.084] Reducing values from 5 chunks ... DONE 1548s [00:52:28.084] future_lapply() ... DONE 1548s $ : num 2306 1548s $ : num 2306 1548s $ : num 2306 1548s $ : num 2306 1548s $ : num 2306 1548s $ : num 2306 1548s $ : num 2306 1548s $ : num 2306 1548s $ : num 2306 1548s $ : num 2306 1548s maxSize = 2305.6 bytes 1548s future.globals.maxSize = 2305.6 bytes 1548s [00:52:28.090] future_lapply() ... 1548s [00:52:28.094] Number of chunks: 2 1548s [00:52:28.094] getGlobalsAndPackagesXApply() ... 1548s [00:52:28.095] - future.globals: TRUE 1548s [00:52:28.097] - globals found/used: [n=1] ‘FUN’ 1548s [00:52:28.097] - needed namespaces: [n=0] 1548s [00:52:28.097] Finding globals ... DONE 1548s [00:52:28.097] - use_args: TRUE 1548s [00:52:28.097] - Getting '...' globals ... 1548s [00:52:28.098] - '...' content: [n=0] 1548s [00:52:28.098] List of 1 1548s [00:52:28.098] $ ...: list() 1548s [00:52:28.098] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1548s [00:52:28.098] - attr(*, "where")=List of 1 1548s [00:52:28.098] ..$ ...: 1548s [00:52:28.098] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1548s [00:52:28.098] - attr(*, "resolved")= logi TRUE 1548s [00:52:28.098] - attr(*, "total_size")= num NA 1548s [00:52:28.102] - Getting '...' globals ... DONE 1548s [00:52:28.103] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1548s [00:52:28.103] List of 2 1548s [00:52:28.103] $ ...future.FUN:function (x) 1548s [00:52:28.103] $ ... : list() 1548s [00:52:28.103] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1548s [00:52:28.103] - attr(*, "where")=List of 2 1548s [00:52:28.103] ..$ ...future.FUN: 1548s [00:52:28.103] ..$ ... : 1548s [00:52:28.103] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1548s [00:52:28.103] - attr(*, "resolved")= logi FALSE 1548s [00:52:28.103] - attr(*, "total_size")= num 1840 1548s [00:52:28.107] Packages to be attached in all futures: [n=0] 1548s [00:52:28.107] getGlobalsAndPackagesXApply() ... DONE 1548s [00:52:28.107] Number of futures (= number of chunks): 2 1548s [00:52:28.107] Launching 2 futures (chunks) ... 1548s [00:52:28.107] Chunk #1 of 2 ... 1548s [00:52:28.108] - Finding globals in 'X' for chunk #1 ... 1548s [00:52:28.108] + additional globals found: [n=0] 1548s [00:52:28.108] + additional namespaces needed: [n=0] 1548s [00:52:28.108] - Finding globals in 'X' for chunk #1 ... DONE 1548s [00:52:28.108] - Adjusted option 'future.globals.maxSize': 2306 -> 2 * 2306 = 4611 (bytes) 1548s [00:52:28.109] - seeds: 1548s [00:52:28.109] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1548s [00:52:28.118] Created future: 1548s [00:52:28.118] SequentialFuture: 1548s [00:52:28.118] Label: ‘future_lapply-1’ 1548s [00:52:28.118] Expression: 1548s [00:52:28.118] { 1548s [00:52:28.118] do.call(function(...) { 1548s [00:52:28.118] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1548s [00:52:28.118] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1548s [00:52:28.118] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1548s [00:52:28.118] on.exit(options(oopts), add = TRUE) 1548s [00:52:28.118] } 1548s [00:52:28.118] { 1548s [00:52:28.118] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1548s [00:52:28.118] ...future.X_jj <- ...future.elements_ii[[jj]] 1548s [00:52:28.118] ...future.FUN(...future.X_jj, ...) 1548s [00:52:28.118] }) 1548s [00:52:28.118] } 1548s [00:52:28.118] }, args = future.call.arguments) 1548s [00:52:28.118] } 1548s [00:52:28.118] Lazy evaluation: FALSE 1548s [00:52:28.118] Asynchronous evaluation: FALSE 1548s [00:52:28.118] Local evaluation: TRUE 1548s [00:52:28.118] Environment: R_GlobalEnv 1548s [00:52:28.118] Capture standard output: TRUE 1548s [00:52:28.118] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1548s [00:52:28.118] Globals: 5 objects totaling 4.04 KiB (function ‘...future.FUN’ of 1.80 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 2.19 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1548s [00:52:28.118] Packages: 1548s [00:52:28.118] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1548s [00:52:28.118] Resolved: TRUE 1548s [00:52:28.118] Value: 280 bytes of class ‘list’ 1548s [00:52:28.118] Early signaling: FALSE 1548s [00:52:28.118] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1548s [00:52:28.118] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1548s [00:52:28.120] Chunk #1 of 2 ... DONE 1548s [00:52:28.120] Chunk #2 of 2 ... 1548s [00:52:28.120] - Finding globals in 'X' for chunk #2 ... 1548s [00:52:28.124] + additional globals found: [n=0] 1548s [00:52:28.124] + additional namespaces needed: [n=0] 1548s [00:52:28.125] - Finding globals in 'X' for chunk #2 ... DONE 1548s [00:52:28.125] - Adjusted option 'future.globals.maxSize': 2306 -> 2 * 2306 = 4611 (bytes) 1548s [00:52:28.126] - seeds: 1548s [00:52:28.126] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1548s [00:52:28.136] Created future: 1548s [00:52:28.137] SequentialFuture: 1548s [00:52:28.137] Label: ‘future_lapply-2’ 1548s [00:52:28.137] Expression: 1548s [00:52:28.137] { 1548s [00:52:28.137] do.call(function(...) { 1548s [00:52:28.137] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1548s [00:52:28.137] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1548s [00:52:28.137] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1548s [00:52:28.137] on.exit(options(oopts), add = TRUE) 1548s [00:52:28.137] } 1548s [00:52:28.137] { 1548s [00:52:28.137] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1548s [00:52:28.137] ...future.X_jj <- ...future.elements_ii[[jj]] 1548s [00:52:28.137] ...future.FUN(...future.X_jj, ...) 1548s [00:52:28.137] }) 1548s [00:52:28.137] } 1548s [00:52:28.137] }, args = future.call.arguments) 1548s [00:52:28.137] } 1548s [00:52:28.137] Lazy evaluation: FALSE 1548s [00:52:28.137] Asynchronous evaluation: FALSE 1548s [00:52:28.137] Local evaluation: TRUE 1548s [00:52:28.137] Environment: R_GlobalEnv 1548s [00:52:28.137] Capture standard output: TRUE 1548s [00:52:28.137] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1548s [00:52:28.137] Globals: 5 objects totaling 4.04 KiB (function ‘...future.FUN’ of 1.80 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 2.19 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1548s [00:52:28.137] Packages: 1548s [00:52:28.137] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1548s [00:52:28.137] Resolved: TRUE 1548s [00:52:28.137] Value: 280 bytes of class ‘list’ 1548s [00:52:28.137] Early signaling: FALSE 1548s [00:52:28.137] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1548s [00:52:28.137] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1548s [00:52:28.138] Chunk #2 of 2 ... DONE 1548s [00:52:28.139] Launching 2 futures (chunks) ... DONE 1548s [00:52:28.139] Resolving 2 futures (chunks) ... 1548s [00:52:28.140] - Number of value chunks collected: 2 1548s [00:52:28.140] Resolving 2 futures (chunks) ... DONE 1548s [00:52:28.140] Reducing values from 2 chunks ... 1548s [00:52:28.140] - Number of values collected after concatenation: 10 1548s [00:52:28.140] - Number of values expected: 10 1548s [00:52:28.140] Reducing values from 2 chunks ... DONE 1548s [00:52:28.141] future_lapply() ... DONE 1548s List of 10 1548s $ : num 2306 1548s $ : num 2306 1548s $ : num 2306 1548s $ : num 2306 1548s [00:52:28.147] future_lapply() ... 1548s $ : num 2306 1548s $ : num 2306 1548s $ : num 2306 1548s $ : num 2306 1548s $ : num 2306 1548s $ : num 2306 1548s maxSize = 2305.6 bytes 1548s future.globals.maxSize = 2305.6 bytes 1548s [00:52:28.151] Number of chunks: 1 1548s [00:52:28.151] getGlobalsAndPackagesXApply() ... 1548s [00:52:28.152] - future.globals: TRUE 1548s [00:52:28.154] - globals found/used: [n=1] ‘FUN’ 1548s [00:52:28.154] - needed namespaces: [n=0] 1548s [00:52:28.155] Finding globals ... DONE 1548s [00:52:28.155] - use_args: TRUE 1548s [00:52:28.155] - Getting '...' globals ... 1548s [00:52:28.155] - '...' content: [n=0] 1548s [00:52:28.156] List of 1 1548s [00:52:28.156] $ ...: list() 1548s [00:52:28.156] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1548s [00:52:28.156] - attr(*, "where")=List of 1 1548s [00:52:28.156] ..$ ...: 1548s [00:52:28.156] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1548s [00:52:28.156] - attr(*, "resolved")= logi TRUE 1548s [00:52:28.156] - attr(*, "total_size")= num NA 1548s [00:52:28.159] - Getting '...' globals ... DONE 1548s [00:52:28.160] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1548s [00:52:28.160] List of 2 1548s [00:52:28.160] $ ...future.FUN:function (x) 1548s [00:52:28.160] $ ... : list() 1548s [00:52:28.160] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1548s [00:52:28.160] - attr(*, "where")=List of 2 1548s [00:52:28.160] ..$ ...future.FUN: 1548s [00:52:28.160] ..$ ... : 1548s [00:52:28.160] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1548s [00:52:28.160] - attr(*, "resolved")= logi FALSE 1548s [00:52:28.160] - attr(*, "total_size")= num 1840 1548s [00:52:28.165] Packages to be attached in all futures: [n=0] 1548s [00:52:28.165] getGlobalsAndPackagesXApply() ... DONE 1548s [00:52:28.166] Number of futures (= number of chunks): 1 1548s [00:52:28.166] Launching 1 futures (chunks) ... 1548s [00:52:28.166] Chunk #1 of 1 ... 1548s [00:52:28.167] - Finding globals in 'X' for chunk #1 ... 1548s [00:52:28.167] + additional globals found: [n=0] 1548s [00:52:28.168] + additional namespaces needed: [n=0] 1548s [00:52:28.168] - Finding globals in 'X' for chunk #1 ... DONE 1548s [00:52:28.168] - seeds: 1548s [00:52:28.168] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1548s [00:52:28.179] Created future: 1548s List of 10 1548s [00:52:28.180] SequentialFuture: 1548s [00:52:28.180] Label: ‘future_lapply-1’ 1548s [00:52:28.180] Expression: 1548s [00:52:28.180] { 1548s [00:52:28.180] do.call(function(...) { 1548s [00:52:28.180] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1548s [00:52:28.180] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1548s [00:52:28.180] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1548s [00:52:28.180] on.exit(options(oopts), add = TRUE) 1548s [00:52:28.180] } 1548s [00:52:28.180] { 1548s [00:52:28.180] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1548s [00:52:28.180] ...future.X_jj <- ...future.elements_ii[[jj]] 1548s [00:52:28.180] ...future.FUN(...future.X_jj, ...) 1548s [00:52:28.180] }) 1548s [00:52:28.180] } 1548s [00:52:28.180] }, args = future.call.arguments) 1548s [00:52:28.180] } 1548s [00:52:28.180] Lazy evaluation: FALSE 1548s [00:52:28.180] Asynchronous evaluation: FALSE 1548s [00:52:28.180] Local evaluation: TRUE 1548s [00:52:28.180] Environment: R_GlobalEnv 1548s [00:52:28.180] Capture standard output: TRUE 1548s [00:52:28.180] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1548s [00:52:28.180] Globals: 5 objects totaling 6.23 KiB (function ‘...future.FUN’ of 1.80 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 4.38 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, numeric ‘...future.globals.maxSize’ of 56 bytes) 1548s [00:52:28.180] Packages: 1548s [00:52:28.180] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1548s [00:52:28.180] Resolved: TRUE 1548s [00:52:28.180] Value: 560 bytes of class ‘list’ 1548s [00:52:28.180] Early signaling: FALSE 1548s [00:52:28.180] Owner process: 2fd429fc-0e20-f5e7-31bd-1898fcd0038a 1548s [00:52:28.180] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1548s [00:52:28.182] Chunk #1 of 1 ... DONE 1548s [00:52:28.182] Launching 1 futures (chunks) ... DONE 1548s [00:52:28.182] Resolving 1 futures (chunks) ... 1548s [00:52:28.183] - Number of value chunks collected: 1 1548s [00:52:28.183] Resolving 1 futures (chunks) ... DONE 1548s [00:52:28.183] Reducing values from 1 chunks ... 1548s [00:52:28.183] - Number of values collected after concatenation: 10 1548s [00:52:28.183] - Number of values expected: 10 1548s [00:52:28.184] Reducing values from 1 chunks ... DONE 1548s [00:52:28.184] future_lapply() ... DONE 1548s $ : num 2306 1548s $ : num 2306 1548s $ : num 2306 1548s $ : num 2306 1548s $ : num 2306 1548s $ : num 2306 1548s $ : num 2306 1548s $ : num 2306 1548s $ : num 2306 1548s $ : num 2306 1548s maxSize = 2305.6 bytes 1548s future.globals.maxSize = 2305.6 bytes 1548s > y <- NULL 1548s > options(future.globals.maxSize = oMaxSize) 1548s > 1548s > 1548s > message("*** future_lapply() - too large ... DONE") 1548s *** future_lapply() - too large ... DONE 1548s > 1548s > 1548s > message("*** future_lapply() - globals exceptions ...") 1548s *** future_lapply() - globals exceptions ... 1548s > 1548s > res <- tryCatch({ 1548s + y <- future_lapply(1, FUN = function(x) x, future.globals = 42) 1548s + }, error = identity) 1548s [00:52:28.191] future_lapply() ... 1548s [00:52:28.194] Number of chunks: 1 1548s [00:52:28.194] getGlobalsAndPackagesXApply() ... 1548s [00:52:28.194] getGlobalsAndPackagesXApply() ... DONE 1548s > stopifnot(inherits(res, "error")) 1548s > 1548s > res <- tryCatch({ 1548s + y <- future_lapply(1, FUN = function(x) x, future.globals = list(1)) 1548s + }, error = identity) 1548s [00:52:28.195] future_lapply() ... 1548s [00:52:28.199] Number of chunks: 1 1548s [00:52:28.199] getGlobalsAndPackagesXApply() ... 1548s [00:52:28.199] - future.globals: with names ‘1’ 1548s > [00:52:28.199] getGlobalsAndPackagesXApply() ... DONE 1548s stopifnot(inherits(res, "error")) 1548s > 1548s > res <- tryCatch({ 1548s + y <- future_lapply(1, FUN = function(x) x, future.globals = "...future.FUN") 1548s + }, error = identity) 1548s [00:52:28.200] future_lapply() ... 1548s [00:52:28.203] Number of chunks: 1 1548s [00:52:28.203] getGlobalsAndPackagesXApply() ... 1548s [00:52:28.204] - future.globals: ‘...future.FUN’ 1548s [00:52:28.204] - use_args: TRUE 1548s [00:52:28.204] getGlobalsAndPackagesXApply() ... DONE 1548s > stopifnot(inherits(res, "error")) 1548s > 1548s > res <- tryCatch({ 1548s + y <- future_lapply(1, FUN = function(x) x, future.globals = "...future.FUN") 1548s + }, error = identity) 1548s [00:52:28.204] future_lapply() ... 1548s [00:52:28.207] Number of chunks: 1 1548s [00:52:28.208] getGlobalsAndPackagesXApply() ... 1548s [00:52:28.208] - future.globals: ‘...future.FUN’ 1548s [00:52:28.208] - use_args: TRUE 1548s [00:52:28.208] getGlobalsAndPackagesXApply() ... DONE 1548s > stopifnot(inherits(res, "error")) 1548s > 1548s [00:52:28.209] future_lapply() ... 1548s > ...future.elements_ii <- 42L 1548s > X <- list(function() 2 * ...future.elements_ii) 1548s > res <- tryCatch({ 1548s + y <- future_lapply(X, FUN = function(f) f()) 1548s + }, error = identity) 1548s [00:52:28.213] Number of chunks: 1 1548s [00:52:28.213] getGlobalsAndPackagesXApply() ... 1548s [00:52:28.213] - future.globals: TRUE 1548s [00:52:28.215] - globals found/used: [n=1] ‘FUN’ 1548s [00:52:28.215] - needed namespaces: [n=0] 1548s [00:52:28.215] Finding globals ... DONE 1548s [00:52:28.215] - use_args: TRUE 1548s [00:52:28.215] - Getting '...' globals ... 1548s [00:52:28.216] - '...' content: [n=0] 1548s [00:52:28.216] List of 1 1548s [00:52:28.216] $ ...: list() 1548s [00:52:28.216] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1548s [00:52:28.216] - attr(*, "where")=List of 1 1548s [00:52:28.216] ..$ ...: 1548s [00:52:28.216] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1548s [00:52:28.216] - attr(*, "resolved")= logi TRUE 1548s [00:52:28.216] - attr(*, "total_size")= num NA 1548s [00:52:28.221] - Getting '...' globals ... DONE 1548s [00:52:28.222] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1548s [00:52:28.222] List of 2 1548s [00:52:28.222] $ ...future.FUN:function (f) 1548s [00:52:28.222] $ ... : list() 1548s [00:52:28.222] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1548s [00:52:28.222] - attr(*, "where")=List of 2 1548s [00:52:28.222] ..$ ...future.FUN: 1548s [00:52:28.222] ..$ ... : 1548s [00:52:28.222] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1548s [00:52:28.222] - attr(*, "resolved")= logi FALSE 1548s [00:52:28.222] - attr(*, "total_size")= num 336 1548s [00:52:28.226] Packages to be attached in all futures: [n=0] 1548s [00:52:28.226] getGlobalsAndPackagesXApply() ... DONE 1548s [00:52:28.226] Number of futures (= number of chunks): 1 1548s [00:52:28.226] Launching 1 futures (chunks) ... 1548s [00:52:28.226] Chunk #1 of 1 ... 1548s [00:52:28.227] - Finding globals in 'X' for chunk #1 ... 1548s [00:52:28.228] + additional globals found: [n=1] ‘...future.elements_ii’ 1548s [00:52:28.228] + additional namespaces needed: [n=0] 1548s > stopifnot(inherits(res, "error")) 1548s > 1548s > message("*** future_lapply() - globals exceptions ... DONE") 1548s > 1548s > *** future_lapply() - globals exceptions ... DONE 1548s source("incl/end.R") 1548s > 1548s BEGIN TEST future_lapply.R 1548s 1548s R version 4.3.3 (2024-02-29) -- "Angel Food Cake" 1548s Copyright (C) 2024 The R Foundation for Statistical Computing 1548s Platform: s390x-ibm-linux-gnu (64-bit) 1548s 1548s R is free software and comes with ABSOLUTELY NO WARRANTY. 1548s You are welcome to redistribute it under certain conditions. 1548s Type 'license()' or 'licence()' for distribution details. 1548s 1548s R is a collaborative project with many contributors. 1548s Type 'contributors()' for more information and 1548s 'citation()' on how to cite R or R packages in publications. 1548s 1548s Type 'demo()' for some demos, 'help()' for on-line help, or 1548s 'help.start()' for an HTML browser interface to help. 1548s Type 'q()' to quit R. 1548s 1548s > source("incl/start.R") 1548s Loading required package: future 1548s [00:52:28.560] plan(): Setting new future strategy stack: 1548s [00:52:28.561] List of future strategies: 1548s [00:52:28.561] 1. sequential: 1548s [00:52:28.561] - args: function (..., envir = parent.frame()) 1548s [00:52:28.561] - tweaked: FALSE 1548s [00:52:28.561] - call: future::plan("sequential") 1548s [00:52:28.580] plan(): nbrOfWorkers() = 1 1548s > library("listenv") 1548s > 1548s > message("*** future_lapply() ...") 1548s *** future_lapply() ... 1548s > 1548s > x_a <- list(a = "integer", b = "numeric", c = "character", c = "list") 1548s > str(list(x_a = x_a)) 1548s List of 1 1548s $ x_a:List of 4 1548s ..$ a: chr "integer" 1548s ..$ b: chr "numeric" 1548s ..$ c: chr "character" 1548s ..$ c: chr "list" 1548s > y_a <- lapply(x_a, FUN = base::vector, length = 2L) 1548s > str(list(y_a = y_a)) 1548s List of 1 1548s $ y_a:List of 4 1548s ..$ a: int [1:2] 0 0 1548s ..$ b: num [1:2] 0 0 1548s ..$ c: chr [1:2] "" "" 1548s ..$ c:List of 2 1548s .. ..$ : NULL 1548s .. ..$ : NULL 1548s > 1548s > x_b <- list(a = c("hello", b = 1:100)) 1548s > str(list(x_b = x_b)) 1548s List of 1 1548s $ x_b:List of 1 1548s ..$ a: Named chr [1:101] "hello" "1" "2" "3" ... 1548s .. ..- attr(*, "names")= chr [1:101] "" "b1" "b2" "b3" ... 1548s > y_b <- lapply(x_b, FUN = future:::hpaste, collapse = "; ", maxHead = 3L) 1548s > str(list(y_b = y_b)) 1548s List of 1 1548s $ y_b:List of 1 1548s ..$ a: chr "hello; 1; 2; ...; 100" 1548s > 1548s > x_c <- list() 1548s > y_c <- listenv() 1548s > y_c$A <- 3L 1548s > x_c$a <- y_c 1548s > y_c<- listenv() 1548s > y_c$A <- 3L 1548s > y_c$B <- c("hello", b = 1:100) 1548s > x_c$b <- y_c 1548s > print(x_c) 1548s $a 1548s A ‘listenv’ vector with 1 element (‘A’). 1548s 1548s $b 1548s A ‘listenv’ vector with 2 elements (‘A’, ‘B’). 1548s 1548s > y_c <- lapply(x_c, FUN = listenv::mapping) 1548s > str(list(y_c = y_c)) 1548s List of 1 1548s $ y_c:List of 2 1548s ..$ a: Named chr "A" 1548s .. ..- attr(*, "names")= chr "A" 1548s ..$ b: Named chr [1:2] "A" "B" 1548s .. ..- attr(*, "names")= chr [1:2] "A" "B" 1548s > 1548s > for (cores in 1:availCores) { 1548s + message(sprintf("Testing with %d cores ...", cores)) 1548s + options(mc.cores = cores) 1548s + strategies <- supportedStrategies(cores) 1548s + 1548s + for (strategy in supportedStrategies()) { 1548s + message(sprintf("- plan('%s') ...", strategy)) 1548s + plan(strategy) 1548s + 1548s + for (scheduling in list(FALSE, TRUE, structure(TRUE, ordering = "random"), structure(TRUE, ordering = function(n) rev(seq_len(n))))) { 1548s + message("- future_lapply(x, FUN = vector, ...) ...") 1548s + y <- future_lapply(x_a, FUN = vector, length = 2L, future.scheduling = scheduling) 1548s + str(list(y = y)) 1548s + stopifnot(identical(y, y_a)) 1548s + 1548s + y <- future_lapply(x_a, FUN = "vector", length = 2L, future.scheduling = scheduling) 1548s + str(list(y = y)) 1548s + stopifnot(identical(y, y_a)) 1548s + 1548s + message("- future_lapply(x, FUN = base::vector, ...) ...") 1548s + y <- future_lapply(x_a, FUN = base::vector, length = 2L, future.scheduling = scheduling) 1548s + str(list(y = y)) 1548s + stopifnot(identical(y, y_a)) 1548s + 1548s + message("- future_lapply(x, FUN = future:::hpaste, ...) ...") 1548s + y <- future_lapply(x_b, FUN = future:::hpaste, collapse = "; ", maxHead = 3L, future.scheduling = scheduling) 1548s + str(list(y = y)) 1548s + stopifnot(identical(y, y_b)) 1548s + 1548s + message("- future_lapply(x, FUN = listenv::listenv, ...) ...") 1548s + y <- future_lapply(x_c, FUN = listenv::mapping, future.scheduling = scheduling) 1548s + str(list(y = y)) 1548s + stopifnot(identical(y, y_c)) 1548s + } ## for (scheduling ...) 1548s + 1548s + message("- future_lapply(x, FUN, ...) for large length(x) ...") 1548s + a <- 3.14 1548s + x_d <- 1:1e4 1548s + y <- future_lapply(x_d, FUN = function(z) sqrt(z + a)) 1548s + y <- unlist(y, use.names = FALSE) 1548s + stopifnot(all.equal(y, sqrt(x_d + a))) 1548s + 1548s + message("- future_lapply(x, FUN = table, ...) ...") 1548s + x <- list(a = 1:4, b = 5:8) 1548s + y0 <- lapply(x, FUN = table) 1548s + y1 <- future_lapply(x, FUN = table) 1548s + stopifnot(all.equal(y1, y0, check.attributes = FALSE)) ## FIXME 1548s + 1548s + message("- future_lapply(x, ...) where length(x) != length(as.list(x)) ...") 1548s + x <- structure(list(a = 1, b = 2), class = "Foo") 1548s + as.list.Foo <- function(x, ...) c(x, c = 3) 1548s + y0 <- lapply(x, FUN = length) 1548s + stopifnot(identical(y0, list(a = 1L, b = 1L, c = 1L))) 1548s + y1 <- future_lapply(x, FUN = length) 1548s + stopifnot(identical(y1, y0)) 1548s + rm(list = "as.list.Foo") 1548s + 1548s + message("- future_lapply(x, ...) where x[[i]] subsets via S3 method ...") 1548s + x <- structure(list(a = 1, b = 2), class = "Foo") 1548s + `[[.Foo` <- function(x, ...) 0 1548s + y0 <- lapply(x, FUN = identity) 1548s + stopifnot(identical(y0, list(a = 0, b = 0))) 1548s + y1 <- future_lapply(x, FUN = identity) 1548s + if (getOption("future.apply.chunkWith", "[[") == "[") { 1548s + stopifnot(identical(y1, unclass(x))) 1548s + } else { 1548s + stopifnot(identical(y1, y0)) 1548s + } 1548s + rm(list = "[[.Foo") 1548s + } ## for (strategy ...) 1548s + 1548s + message(sprintf("Testing with %d cores ... DONE", cores)) 1548s + } ## for (cores ...) 1548s Testing with 1 cores ... 1548s - plan('sequential') ... 1548s [00:52:28.764] plan(): Setting new future strategy stack: 1548s [00:52:28.764] List of future strategies: 1548s [00:52:28.764] 1. sequential: 1548s [00:52:28.764] - args: function (..., envir = parent.frame()) 1548s [00:52:28.764] - tweaked: FALSE 1548s [00:52:28.764] - call: plan(strategy) 1548s [00:52:28.781] plan(): nbrOfWorkers() = 1 1548s - future_lapply(x, FUN = vector, ...) ... 1548s [00:52:28.781] future_lapply() ... 1548s [00:52:28.791] Number of chunks: 4 1548s [00:52:28.792] getGlobalsAndPackagesXApply() ... 1548s [00:52:28.792] - future.globals: TRUE 1548s [00:52:28.793] getGlobalsAndPackages() ... 1548s [00:52:28.794] Searching for globals... 1548s [00:52:28.797] - globals found: [2] ‘FUN’, ‘.Internal’ 1548s [00:52:28.797] Searching for globals ... DONE 1548s [00:52:28.797] Resolving globals: FALSE 1548s [00:52:28.801] The total size of the 1 globals is 2.13 KiB (2184 bytes) 1548s [00:52:28.802] The total size of the 1 globals exported for future expression (‘FUN(length = 2L)’) is 2.13 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (2.13 KiB of class ‘function’) 1548s [00:52:28.802] - globals: [1] ‘FUN’ 1548s [00:52:28.802] 1548s [00:52:28.802] getGlobalsAndPackages() ... DONE 1548s [00:52:28.802] - globals found/used: [n=1] ‘FUN’ 1548s [00:52:28.802] - needed namespaces: [n=0] 1548s [00:52:28.803] Finding globals ... DONE 1548s [00:52:28.803] - use_args: TRUE 1548s [00:52:28.803] - Getting '...' globals ... 1548s [00:52:28.804] resolve() on list ... 1548s [00:52:28.804] recursive: 0 1548s [00:52:28.805] length: 1 1548s [00:52:28.805] elements: ‘...’ 1548s [00:52:28.805] length: 0 (resolved future 1) 1548s [00:52:28.806] resolve() on list ... DONE 1548s [00:52:28.806] - '...' content: [n=1] ‘length’ 1548s [00:52:28.806] List of 1 1548s [00:52:28.806] $ ...:List of 1 1548s [00:52:28.806] ..$ length: int 2 1548s [00:52:28.806] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1548s [00:52:28.806] - attr(*, "where")=List of 1 1548s [00:52:28.806] ..$ ...: 1548s [00:52:28.806] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1548s [00:52:28.806] - attr(*, "resolved")= logi TRUE 1548s [00:52:28.806] - attr(*, "total_size")= num NA 1548s [00:52:28.811] - Getting '...' globals ... DONE 1548s [00:52:28.812] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1548s [00:52:28.812] List of 2 1548s [00:52:28.812] $ ...future.FUN:function (mode = "logical", length = 0L) 1548s [00:52:28.812] $ ... :List of 1 1548s [00:52:28.812] ..$ length: int 2 1548s [00:52:28.812] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1548s [00:52:28.812] - attr(*, "where")=List of 2 1548s [00:52:28.812] ..$ ...future.FUN: 1548s [00:52:28.812] ..$ ... : 1548s [00:52:28.812] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1548s [00:52:28.812] - attr(*, "resolved")= logi FALSE 1548s [00:52:28.812] - attr(*, "total_size")= num 2240 1548s [00:52:28.816] Packages to be attached in all futures: [n=0] 1548s [00:52:28.816] getGlobalsAndPackagesXApply() ... DONE 1548s [00:52:28.816] Number of futures (= number of chunks): 4 1548s [00:52:28.816] Launching 4 futures (chunks) ... 1548s [00:52:28.816] Chunk #1 of 4 ... 1548s [00:52:28.817] - Finding globals in 'X' for chunk #1 ... 1548s [00:52:28.817] getGlobalsAndPackages() ... 1548s [00:52:28.817] Searching for globals... 1548s [00:52:28.818] 1548s [00:52:28.818] Searching for globals ... DONE 1548s [00:52:28.818] - globals: [0] 1548s [00:52:28.818] getGlobalsAndPackages() ... DONE 1548s [00:52:28.818] + additional globals found: [n=0] 1548s [00:52:28.818] + additional namespaces needed: [n=0] 1548s [00:52:28.819] - Finding globals in 'X' for chunk #1 ... DONE 1548s [00:52:28.819] - Adjusted option 'future.globals.maxSize': 524288000 -> 4 * 524288000 = 2097152000 (bytes) 1548s [00:52:28.819] - seeds: 1548s [00:52:28.819] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1548s [00:52:28.819] getGlobalsAndPackages() ... 1548s [00:52:28.819] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1548s [00:52:28.820] Resolving globals: FALSE 1548s [00:52:28.820] Tweak future expression to call with '...' arguments ... 1548s [00:52:28.820] { 1548s [00:52:28.820] do.call(function(...) { 1548s [00:52:28.820] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1548s [00:52:28.820] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1548s [00:52:28.820] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1548s [00:52:28.820] on.exit(options(oopts), add = TRUE) 1548s [00:52:28.820] } 1548s [00:52:28.820] { 1548s [00:52:28.820] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1548s [00:52:28.820] ...future.X_jj <- ...future.elements_ii[[jj]] 1548s [00:52:28.820] ...future.FUN(...future.X_jj, ...) 1548s [00:52:28.820] }) 1548s [00:52:28.820] } 1548s [00:52:28.820] }, args = future.call.arguments) 1548s [00:52:28.820] } 1548s [00:52:28.821] Tweak future expression to call with '...' arguments ... DONE 1548s [00:52:28.821] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1548s [00:52:28.821] 1548s [00:52:28.821] getGlobalsAndPackages() ... DONE 1548s [00:52:28.823] run() for ‘Future’ ... 1548s [00:52:28.823] - state: ‘created’ 1548s [00:52:28.823] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1548s [00:52:28.824] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1548s [00:52:28.824] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1548s [00:52:28.824] - Field: ‘label’ 1548s [00:52:28.824] - Field: ‘local’ 1548s [00:52:28.824] - Field: ‘owner’ 1548s [00:52:28.824] - Field: ‘envir’ 1548s [00:52:28.825] - Field: ‘packages’ 1548s [00:52:28.825] - Field: ‘gc’ 1548s [00:52:28.825] - Field: ‘conditions’ 1548s [00:52:28.825] - Field: ‘expr’ 1548s [00:52:28.825] - Field: ‘uuid’ 1548s [00:52:28.825] - Field: ‘seed’ 1548s [00:52:28.825] - Field: ‘version’ 1548s [00:52:28.825] - Field: ‘result’ 1548s [00:52:28.825] - Field: ‘asynchronous’ 1548s [00:52:28.826] - Field: ‘calls’ 1548s [00:52:28.826] - Field: ‘globals’ 1548s [00:52:28.826] - Field: ‘stdout’ 1548s [00:52:28.826] - Field: ‘earlySignal’ 1548s [00:52:28.826] - Field: ‘lazy’ 1548s [00:52:28.826] - Field: ‘state’ 1548s [00:52:28.826] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1548s [00:52:28.826] - Launch lazy future ... 1548s [00:52:28.828] Packages needed by the future expression (n = 0): 1548s [00:52:28.828] Packages needed by future strategies (n = 0): 1548s [00:52:28.829] { 1548s [00:52:28.829] { 1548s [00:52:28.829] { 1548s [00:52:28.829] ...future.startTime <- base::Sys.time() 1548s [00:52:28.829] { 1548s [00:52:28.829] { 1548s [00:52:28.829] { 1548s [00:52:28.829] base::local({ 1548s [00:52:28.829] has_future <- base::requireNamespace("future", 1548s [00:52:28.829] quietly = TRUE) 1548s [00:52:28.829] if (has_future) { 1548s [00:52:28.829] ns <- base::getNamespace("future") 1548s [00:52:28.829] version <- ns[[".package"]][["version"]] 1548s [00:52:28.829] if (is.null(version)) 1548s [00:52:28.829] version <- utils::packageVersion("future") 1548s [00:52:28.829] } 1548s [00:52:28.829] else { 1548s [00:52:28.829] version <- NULL 1548s [00:52:28.829] } 1548s [00:52:28.829] if (!has_future || version < "1.8.0") { 1548s [00:52:28.829] info <- base::c(r_version = base::gsub("R version ", 1548s [00:52:28.829] "", base::R.version$version.string), 1548s [00:52:28.829] platform = base::sprintf("%s (%s-bit)", 1548s [00:52:28.829] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1548s [00:52:28.829] os = base::paste(base::Sys.info()[base::c("sysname", 1548s [00:52:28.829] "release", "version")], collapse = " "), 1548s [00:52:28.829] hostname = base::Sys.info()[["nodename"]]) 1548s [00:52:28.829] info <- base::sprintf("%s: %s", base::names(info), 1548s [00:52:28.829] info) 1548s [00:52:28.829] info <- base::paste(info, collapse = "; ") 1548s [00:52:28.829] if (!has_future) { 1548s [00:52:28.829] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1548s [00:52:28.829] info) 1548s [00:52:28.829] } 1548s [00:52:28.829] else { 1548s [00:52:28.829] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1548s [00:52:28.829] info, version) 1548s [00:52:28.829] } 1548s [00:52:28.829] base::stop(msg) 1548s [00:52:28.829] } 1548s [00:52:28.829] }) 1548s [00:52:28.829] } 1548s [00:52:28.829] options(future.plan = NULL) 1548s [00:52:28.829] Sys.unsetenv("R_FUTURE_PLAN") 1548s [00:52:28.829] future::plan("default", .cleanup = FALSE, .init = FALSE) 1548s [00:52:28.829] } 1548s [00:52:28.829] ...future.workdir <- getwd() 1548s [00:52:28.829] } 1548s [00:52:28.829] ...future.oldOptions <- base::as.list(base::.Options) 1548s [00:52:28.829] ...future.oldEnvVars <- base::Sys.getenv() 1548s [00:52:28.829] } 1548s [00:52:28.829] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1548s [00:52:28.829] future.globals.maxSize = 2097152000, future.globals.method = NULL, 1548s [00:52:28.829] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1548s [00:52:28.829] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1548s [00:52:28.829] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1548s [00:52:28.829] future.stdout.windows.reencode = NULL, width = 80L) 1548s [00:52:28.829] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1548s [00:52:28.829] base::names(...future.oldOptions)) 1548s [00:52:28.829] } 1548s [00:52:28.829] if (FALSE) { 1548s [00:52:28.829] } 1548s [00:52:28.829] else { 1548s [00:52:28.829] if (TRUE) { 1548s [00:52:28.829] ...future.stdout <- base::rawConnection(base::raw(0L), 1548s [00:52:28.829] open = "w") 1548s [00:52:28.829] } 1548s [00:52:28.829] else { 1548s [00:52:28.829] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1548s [00:52:28.829] windows = "NUL", "/dev/null"), open = "w") 1548s [00:52:28.829] } 1548s [00:52:28.829] base::sink(...future.stdout, type = "output", split = FALSE) 1548s [00:52:28.829] base::on.exit(if (!base::is.null(...future.stdout)) { 1548s [00:52:28.829] base::sink(type = "output", split = FALSE) 1548s [00:52:28.829] base::close(...future.stdout) 1548s [00:52:28.829] }, add = TRUE) 1548s [00:52:28.829] } 1548s [00:52:28.829] ...future.frame <- base::sys.nframe() 1548s [00:52:28.829] ...future.conditions <- base::list() 1548s [00:52:28.829] ...future.rng <- base::globalenv()$.Random.seed 1548s [00:52:28.829] if (FALSE) { 1548s [00:52:28.829] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1548s [00:52:28.829] "...future.value", "...future.globalenv.names", ".Random.seed") 1548s [00:52:28.829] } 1548s [00:52:28.829] ...future.result <- base::tryCatch({ 1548s [00:52:28.829] base::withCallingHandlers({ 1548s [00:52:28.829] ...future.value <- base::withVisible(base::local({ 1548s [00:52:28.829] do.call(function(...) { 1548s [00:52:28.829] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1548s [00:52:28.829] if (!identical(...future.globals.maxSize.org, 1548s [00:52:28.829] ...future.globals.maxSize)) { 1548s [00:52:28.829] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1548s [00:52:28.829] on.exit(options(oopts), add = TRUE) 1548s [00:52:28.829] } 1548s [00:52:28.829] { 1548s [00:52:28.829] lapply(seq_along(...future.elements_ii), 1548s [00:52:28.829] FUN = function(jj) { 1548s [00:52:28.829] ...future.X_jj <- ...future.elements_ii[[jj]] 1548s [00:52:28.829] ...future.FUN(...future.X_jj, ...) 1548s [00:52:28.829] }) 1548s [00:52:28.829] } 1548s [00:52:28.829] }, args = future.call.arguments) 1548s [00:52:28.829] })) 1548s [00:52:28.829] future::FutureResult(value = ...future.value$value, 1548s [00:52:28.829] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1548s [00:52:28.829] ...future.rng), globalenv = if (FALSE) 1548s [00:52:28.829] list(added = base::setdiff(base::names(base::.GlobalEnv), 1548s [00:52:28.829] ...future.globalenv.names)) 1548s [00:52:28.829] else NULL, started = ...future.startTime, version = "1.8") 1548s [00:52:28.829] }, condition = base::local({ 1548s [00:52:28.829] c <- base::c 1548s [00:52:28.829] inherits <- base::inherits 1548s [00:52:28.829] invokeRestart <- base::invokeRestart 1548s [00:52:28.829] length <- base::length 1548s [00:52:28.829] list <- base::list 1548s [00:52:28.829] seq.int <- base::seq.int 1548s [00:52:28.829] signalCondition <- base::signalCondition 1548s [00:52:28.829] sys.calls <- base::sys.calls 1548s [00:52:28.829] `[[` <- base::`[[` 1548s [00:52:28.829] `+` <- base::`+` 1548s [00:52:28.829] `<<-` <- base::`<<-` 1548s [00:52:28.829] sysCalls <- function(calls = sys.calls(), from = 1L) { 1548s [00:52:28.829] calls[seq.int(from = from + 12L, to = length(calls) - 1548s [00:52:28.829] 3L)] 1548s [00:52:28.829] } 1548s [00:52:28.829] function(cond) { 1548s [00:52:28.829] is_error <- inherits(cond, "error") 1548s [00:52:28.829] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1548s [00:52:28.829] NULL) 1548s [00:52:28.829] if (is_error) { 1548s [00:52:28.829] sessionInformation <- function() { 1548s [00:52:28.829] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1548s [00:52:28.829] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1548s [00:52:28.829] search = base::search(), system = base::Sys.info()) 1548s [00:52:28.829] } 1548s [00:52:28.829] ...future.conditions[[length(...future.conditions) + 1548s [00:52:28.829] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1548s [00:52:28.829] cond$call), session = sessionInformation(), 1548s [00:52:28.829] timestamp = base::Sys.time(), signaled = 0L) 1548s [00:52:28.829] signalCondition(cond) 1548s [00:52:28.829] } 1548s [00:52:28.829] else if (!ignore && TRUE && inherits(cond, c("condition", 1548s [00:52:28.829] "immediateCondition"))) { 1548s [00:52:28.829] signal <- TRUE && inherits(cond, "immediateCondition") 1548s [00:52:28.829] ...future.conditions[[length(...future.conditions) + 1548s [00:52:28.829] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1548s [00:52:28.829] if (TRUE && !signal) { 1548s [00:52:28.829] muffleCondition <- function (cond, pattern = "^muffle") 1548s [00:52:28.829] { 1548s [00:52:28.829] inherits <- base::inherits 1548s [00:52:28.829] invokeRestart <- base::invokeRestart 1548s [00:52:28.829] is.null <- base::is.null 1548s [00:52:28.829] muffled <- FALSE 1548s [00:52:28.829] if (inherits(cond, "message")) { 1548s [00:52:28.829] muffled <- grepl(pattern, "muffleMessage") 1548s [00:52:28.829] if (muffled) 1548s [00:52:28.829] invokeRestart("muffleMessage") 1548s [00:52:28.829] } 1548s [00:52:28.829] else if (inherits(cond, "warning")) { 1548s [00:52:28.829] muffled <- grepl(pattern, "muffleWarning") 1548s [00:52:28.829] if (muffled) 1548s [00:52:28.829] invokeRestart("muffleWarning") 1548s [00:52:28.829] } 1548s [00:52:28.829] else if (inherits(cond, "condition")) { 1548s [00:52:28.829] if (!is.null(pattern)) { 1548s [00:52:28.829] computeRestarts <- base::computeRestarts 1548s [00:52:28.829] grepl <- base::grepl 1548s [00:52:28.829] restarts <- computeRestarts(cond) 1548s [00:52:28.829] for (restart in restarts) { 1548s [00:52:28.829] name <- restart$name 1548s [00:52:28.829] if (is.null(name)) 1548s [00:52:28.829] next 1548s [00:52:28.829] if (!grepl(pattern, name)) 1548s [00:52:28.829] next 1548s [00:52:28.829] invokeRestart(restart) 1548s [00:52:28.829] muffled <- TRUE 1548s [00:52:28.829] break 1548s [00:52:28.829] } 1548s [00:52:28.829] } 1548s [00:52:28.829] } 1548s [00:52:28.829] invisible(muffled) 1548s [00:52:28.829] } 1548s [00:52:28.829] muffleCondition(cond, pattern = "^muffle") 1548s [00:52:28.829] } 1548s [00:52:28.829] } 1548s [00:52:28.829] else { 1548s [00:52:28.829] if (TRUE) { 1548s [00:52:28.829] muffleCondition <- function (cond, pattern = "^muffle") 1548s [00:52:28.829] { 1548s [00:52:28.829] inherits <- base::inherits 1548s [00:52:28.829] invokeRestart <- base::invokeRestart 1548s [00:52:28.829] is.null <- base::is.null 1548s [00:52:28.829] muffled <- FALSE 1548s [00:52:28.829] if (inherits(cond, "message")) { 1548s [00:52:28.829] muffled <- grepl(pattern, "muffleMessage") 1548s [00:52:28.829] if (muffled) 1548s [00:52:28.829] invokeRestart("muffleMessage") 1548s [00:52:28.829] } 1548s [00:52:28.829] else if (inherits(cond, "warning")) { 1548s [00:52:28.829] muffled <- grepl(pattern, "muffleWarning") 1548s [00:52:28.829] if (muffled) 1548s [00:52:28.829] invokeRestart("muffleWarning") 1548s [00:52:28.829] } 1548s [00:52:28.829] else if (inherits(cond, "condition")) { 1548s [00:52:28.829] if (!is.null(pattern)) { 1548s [00:52:28.829] computeRestarts <- base::computeRestarts 1548s [00:52:28.829] grepl <- base::grepl 1548s [00:52:28.829] restarts <- computeRestarts(cond) 1548s [00:52:28.829] for (restart in restarts) { 1548s [00:52:28.829] name <- restart$name 1548s [00:52:28.829] if (is.null(name)) 1548s [00:52:28.829] next 1548s [00:52:28.829] if (!grepl(pattern, name)) 1548s [00:52:28.829] next 1548s [00:52:28.829] invokeRestart(restart) 1548s [00:52:28.829] muffled <- TRUE 1548s [00:52:28.829] break 1548s [00:52:28.829] } 1548s [00:52:28.829] } 1548s [00:52:28.829] } 1548s [00:52:28.829] invisible(muffled) 1548s [00:52:28.829] } 1548s [00:52:28.829] muffleCondition(cond, pattern = "^muffle") 1548s [00:52:28.829] } 1548s [00:52:28.829] } 1548s [00:52:28.829] } 1548s [00:52:28.829] })) 1548s [00:52:28.829] }, error = function(ex) { 1548s [00:52:28.829] base::structure(base::list(value = NULL, visible = NULL, 1548s [00:52:28.829] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1548s [00:52:28.829] ...future.rng), started = ...future.startTime, 1548s [00:52:28.829] finished = Sys.time(), session_uuid = NA_character_, 1548s [00:52:28.829] version = "1.8"), class = "FutureResult") 1548s [00:52:28.829] }, finally = { 1548s [00:52:28.829] if (!identical(...future.workdir, getwd())) 1548s [00:52:28.829] setwd(...future.workdir) 1548s [00:52:28.829] { 1548s [00:52:28.829] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1548s [00:52:28.829] ...future.oldOptions$nwarnings <- NULL 1548s [00:52:28.829] } 1548s [00:52:28.829] base::options(...future.oldOptions) 1548s [00:52:28.829] if (.Platform$OS.type == "windows") { 1548s [00:52:28.829] old_names <- names(...future.oldEnvVars) 1548s [00:52:28.829] envs <- base::Sys.getenv() 1548s [00:52:28.829] names <- names(envs) 1548s [00:52:28.829] common <- intersect(names, old_names) 1548s [00:52:28.829] added <- setdiff(names, old_names) 1548s [00:52:28.829] removed <- setdiff(old_names, names) 1548s [00:52:28.829] changed <- common[...future.oldEnvVars[common] != 1548s [00:52:28.829] envs[common]] 1548s [00:52:28.829] NAMES <- toupper(changed) 1548s [00:52:28.829] args <- list() 1548s [00:52:28.829] for (kk in seq_along(NAMES)) { 1548s [00:52:28.829] name <- changed[[kk]] 1548s [00:52:28.829] NAME <- NAMES[[kk]] 1548s [00:52:28.829] if (name != NAME && is.element(NAME, old_names)) 1548s [00:52:28.829] next 1548s [00:52:28.829] args[[name]] <- ...future.oldEnvVars[[name]] 1548s [00:52:28.829] } 1548s [00:52:28.829] NAMES <- toupper(added) 1548s [00:52:28.829] for (kk in seq_along(NAMES)) { 1548s [00:52:28.829] name <- added[[kk]] 1548s [00:52:28.829] NAME <- NAMES[[kk]] 1548s [00:52:28.829] if (name != NAME && is.element(NAME, old_names)) 1548s [00:52:28.829] next 1548s [00:52:28.829] args[[name]] <- "" 1548s [00:52:28.829] } 1548s [00:52:28.829] NAMES <- toupper(removed) 1548s [00:52:28.829] for (kk in seq_along(NAMES)) { 1548s [00:52:28.829] name <- removed[[kk]] 1548s [00:52:28.829] NAME <- NAMES[[kk]] 1548s [00:52:28.829] if (name != NAME && is.element(NAME, old_names)) 1548s [00:52:28.829] next 1548s [00:52:28.829] args[[name]] <- ...future.oldEnvVars[[name]] 1548s [00:52:28.829] } 1548s [00:52:28.829] if (length(args) > 0) 1548s [00:52:28.829] base::do.call(base::Sys.setenv, args = args) 1548s [00:52:28.829] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1548s [00:52:28.829] } 1548s [00:52:28.829] else { 1548s [00:52:28.829] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1548s [00:52:28.829] } 1548s [00:52:28.829] { 1548s [00:52:28.829] if (base::length(...future.futureOptionsAdded) > 1548s [00:52:28.829] 0L) { 1548s [00:52:28.829] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1548s [00:52:28.829] base::names(opts) <- ...future.futureOptionsAdded 1548s [00:52:28.829] base::options(opts) 1548s [00:52:28.829] } 1548s [00:52:28.829] { 1548s [00:52:28.829] { 1548s [00:52:28.829] NULL 1548s [00:52:28.829] RNGkind("Mersenne-Twister") 1548s [00:52:28.829] base::rm(list = ".Random.seed", envir = base::globalenv(), 1548s [00:52:28.829] inherits = FALSE) 1548s [00:52:28.829] } 1548s [00:52:28.829] options(future.plan = NULL) 1548s [00:52:28.829] if (is.na(NA_character_)) 1548s [00:52:28.829] Sys.unsetenv("R_FUTURE_PLAN") 1548s [00:52:28.829] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1548s [00:52:28.829] future::plan(list(function (..., envir = parent.frame()) 1548s [00:52:28.829] { 1548s [00:52:28.829] future <- SequentialFuture(..., envir = envir) 1548s [00:52:28.829] if (!future$lazy) 1548s [00:52:28.829] future <- run(future) 1548s [00:52:28.829] invisible(future) 1548s [00:52:28.829] }), .cleanup = FALSE, .init = FALSE) 1548s [00:52:28.829] } 1548s [00:52:28.829] } 1548s [00:52:28.829] } 1548s [00:52:28.829] }) 1548s [00:52:28.829] if (TRUE) { 1548s [00:52:28.829] base::sink(type = "output", split = FALSE) 1548s [00:52:28.829] if (TRUE) { 1548s [00:52:28.829] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1548s [00:52:28.829] } 1548s [00:52:28.829] else { 1548s [00:52:28.829] ...future.result["stdout"] <- base::list(NULL) 1548s [00:52:28.829] } 1548s [00:52:28.829] base::close(...future.stdout) 1548s [00:52:28.829] ...future.stdout <- NULL 1548s [00:52:28.829] } 1548s [00:52:28.829] ...future.result$conditions <- ...future.conditions 1548s [00:52:28.829] ...future.result$finished <- base::Sys.time() 1548s [00:52:28.829] ...future.result 1548s [00:52:28.829] } 1548s [00:52:28.836] assign_globals() ... 1548s [00:52:28.836] List of 5 1548s [00:52:28.836] $ ...future.FUN :function (mode = "logical", length = 0L) 1548s [00:52:28.836] $ future.call.arguments :List of 1 1548s [00:52:28.836] ..$ length: int 2 1548s [00:52:28.836] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1548s [00:52:28.836] $ ...future.elements_ii :List of 1 1548s [00:52:28.836] ..$ a: chr "integer" 1548s [00:52:28.836] $ ...future.seeds_ii : NULL 1548s [00:52:28.836] $ ...future.globals.maxSize: NULL 1548s [00:52:28.836] - attr(*, "where")=List of 5 1548s [00:52:28.836] ..$ ...future.FUN : 1548s [00:52:28.836] ..$ future.call.arguments : 1548s [00:52:28.836] ..$ ...future.elements_ii : 1548s [00:52:28.836] ..$ ...future.seeds_ii : 1548s [00:52:28.836] ..$ ...future.globals.maxSize: 1548s [00:52:28.836] - attr(*, "resolved")= logi FALSE 1548s [00:52:28.836] - attr(*, "total_size")= num 2240 1548s [00:52:28.836] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1548s [00:52:28.836] - attr(*, "already-done")= logi TRUE 1548s [00:52:28.843] - copied ‘...future.FUN’ to environment 1548s [00:52:28.843] - copied ‘future.call.arguments’ to environment 1548s [00:52:28.844] - copied ‘...future.elements_ii’ to environment 1548s [00:52:28.844] - copied ‘...future.seeds_ii’ to environment 1548s [00:52:28.844] - copied ‘...future.globals.maxSize’ to environment 1548s [00:52:28.844] assign_globals() ... done 1548s [00:52:28.845] plan(): Setting new future strategy stack: 1548s [00:52:28.845] List of future strategies: 1548s [00:52:28.845] 1. sequential: 1548s [00:52:28.845] - args: function (..., envir = parent.frame()) 1548s [00:52:28.845] - tweaked: FALSE 1548s [00:52:28.845] - call: NULL 1548s [00:52:28.845] plan(): nbrOfWorkers() = 1 1548s [00:52:28.847] plan(): Setting new future strategy stack: 1548s [00:52:28.847] List of future strategies: 1548s [00:52:28.847] 1. sequential: 1548s [00:52:28.847] - args: function (..., envir = parent.frame()) 1548s [00:52:28.847] - tweaked: FALSE 1548s [00:52:28.847] - call: plan(strategy) 1548s [00:52:28.850] plan(): nbrOfWorkers() = 1 1548s [00:52:28.851] SequentialFuture started (and completed) 1548s [00:52:28.852] - Launch lazy future ... done 1548s [00:52:28.852] run() for ‘SequentialFuture’ ... done 1548s [00:52:28.852] Created future: 1548s [00:52:28.852] SequentialFuture: 1548s [00:52:28.852] Label: ‘future_lapply-1’ 1548s [00:52:28.852] Expression: 1548s [00:52:28.852] { 1548s [00:52:28.852] do.call(function(...) { 1548s [00:52:28.852] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1548s [00:52:28.852] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1548s [00:52:28.852] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1548s [00:52:28.852] on.exit(options(oopts), add = TRUE) 1548s [00:52:28.852] } 1548s [00:52:28.852] { 1548s [00:52:28.852] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1548s [00:52:28.852] ...future.X_jj <- ...future.elements_ii[[jj]] 1548s [00:52:28.852] ...future.FUN(...future.X_jj, ...) 1548s [00:52:28.852] }) 1548s [00:52:28.852] } 1548s [00:52:28.852] }, args = future.call.arguments) 1548s [00:52:28.852] } 1548s [00:52:28.852] Lazy evaluation: FALSE 1548s [00:52:28.852] Asynchronous evaluation: FALSE 1548s [00:52:28.852] Local evaluation: TRUE 1548s [00:52:28.852] Environment: R_GlobalEnv 1548s [00:52:28.852] Capture standard output: TRUE 1548s [00:52:28.852] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1548s [00:52:28.852] Globals: 5 objects totaling 2.30 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1548s [00:52:28.852] Packages: 1548s [00:52:28.852] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1548s [00:52:28.852] Resolved: TRUE 1548s [00:52:28.852] Value: 56 bytes of class ‘list’ 1548s [00:52:28.852] Early signaling: FALSE 1548s [00:52:28.852] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1548s [00:52:28.852] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1548s [00:52:28.855] Chunk #1 of 4 ... DONE 1548s [00:52:28.855] Chunk #2 of 4 ... 1548s [00:52:28.855] - Finding globals in 'X' for chunk #2 ... 1548s [00:52:28.855] getGlobalsAndPackages() ... 1548s [00:52:28.855] Searching for globals... 1548s [00:52:28.856] 1548s [00:52:28.856] Searching for globals ... DONE 1548s [00:52:28.856] - globals: [0] 1548s [00:52:28.856] getGlobalsAndPackages() ... DONE 1548s [00:52:28.856] + additional globals found: [n=0] 1548s [00:52:28.856] + additional namespaces needed: [n=0] 1548s [00:52:28.856] - Finding globals in 'X' for chunk #2 ... DONE 1548s [00:52:28.856] - Adjusted option 'future.globals.maxSize': 524288000 -> 4 * 524288000 = 2097152000 (bytes) 1548s [00:52:28.857] - seeds: 1548s [00:52:28.857] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1548s [00:52:28.857] getGlobalsAndPackages() ... 1548s [00:52:28.857] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1548s [00:52:28.858] Resolving globals: FALSE 1548s [00:52:28.858] Tweak future expression to call with '...' arguments ... 1548s [00:52:28.858] { 1548s [00:52:28.858] do.call(function(...) { 1548s [00:52:28.858] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1548s [00:52:28.858] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1548s [00:52:28.858] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1548s [00:52:28.858] on.exit(options(oopts), add = TRUE) 1548s [00:52:28.858] } 1548s [00:52:28.858] { 1548s [00:52:28.858] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1548s [00:52:28.858] ...future.X_jj <- ...future.elements_ii[[jj]] 1548s [00:52:28.858] ...future.FUN(...future.X_jj, ...) 1548s [00:52:28.858] }) 1548s [00:52:28.858] } 1548s [00:52:28.858] }, args = future.call.arguments) 1548s [00:52:28.858] } 1548s [00:52:28.859] Tweak future expression to call with '...' arguments ... DONE 1548s [00:52:28.859] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1548s [00:52:28.860] 1548s [00:52:28.860] getGlobalsAndPackages() ... DONE 1548s [00:52:28.860] run() for ‘Future’ ... 1548s [00:52:28.860] - state: ‘created’ 1548s [00:52:28.860] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1548s [00:52:28.861] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1548s [00:52:28.861] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1548s [00:52:28.861] - Field: ‘label’ 1548s [00:52:28.861] - Field: ‘local’ 1548s [00:52:28.861] - Field: ‘owner’ 1548s [00:52:28.862] - Field: ‘envir’ 1548s [00:52:28.862] - Field: ‘packages’ 1548s [00:52:28.862] - Field: ‘gc’ 1548s [00:52:28.862] - Field: ‘conditions’ 1548s [00:52:28.862] - Field: ‘expr’ 1548s [00:52:28.862] - Field: ‘uuid’ 1548s [00:52:28.863] - Field: ‘seed’ 1548s [00:52:28.863] - Field: ‘version’ 1548s [00:52:28.863] - Field: ‘result’ 1548s [00:52:28.863] - Field: ‘asynchronous’ 1548s [00:52:28.863] - Field: ‘calls’ 1548s [00:52:28.863] - Field: ‘globals’ 1548s [00:52:28.863] - Field: ‘stdout’ 1548s [00:52:28.864] - Field: ‘earlySignal’ 1548s [00:52:28.864] - Field: ‘lazy’ 1548s [00:52:28.864] - Field: ‘state’ 1548s [00:52:28.864] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1548s [00:52:28.864] - Launch lazy future ... 1548s [00:52:28.864] Packages needed by the future expression (n = 0): 1548s [00:52:28.865] Packages needed by future strategies (n = 0): 1548s [00:52:28.865] { 1548s [00:52:28.865] { 1548s [00:52:28.865] { 1548s [00:52:28.865] ...future.startTime <- base::Sys.time() 1548s [00:52:28.865] { 1548s [00:52:28.865] { 1548s [00:52:28.865] { 1548s [00:52:28.865] base::local({ 1548s [00:52:28.865] has_future <- base::requireNamespace("future", 1548s [00:52:28.865] quietly = TRUE) 1548s [00:52:28.865] if (has_future) { 1548s [00:52:28.865] ns <- base::getNamespace("future") 1548s [00:52:28.865] version <- ns[[".package"]][["version"]] 1548s [00:52:28.865] if (is.null(version)) 1548s [00:52:28.865] version <- utils::packageVersion("future") 1548s [00:52:28.865] } 1548s [00:52:28.865] else { 1548s [00:52:28.865] version <- NULL 1548s [00:52:28.865] } 1548s [00:52:28.865] if (!has_future || version < "1.8.0") { 1548s [00:52:28.865] info <- base::c(r_version = base::gsub("R version ", 1548s [00:52:28.865] "", base::R.version$version.string), 1548s [00:52:28.865] platform = base::sprintf("%s (%s-bit)", 1548s [00:52:28.865] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1548s [00:52:28.865] os = base::paste(base::Sys.info()[base::c("sysname", 1548s [00:52:28.865] "release", "version")], collapse = " "), 1548s [00:52:28.865] hostname = base::Sys.info()[["nodename"]]) 1548s [00:52:28.865] info <- base::sprintf("%s: %s", base::names(info), 1548s [00:52:28.865] info) 1548s [00:52:28.865] info <- base::paste(info, collapse = "; ") 1548s [00:52:28.865] if (!has_future) { 1548s [00:52:28.865] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1548s [00:52:28.865] info) 1548s [00:52:28.865] } 1548s [00:52:28.865] else { 1548s [00:52:28.865] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1548s [00:52:28.865] info, version) 1548s [00:52:28.865] } 1548s [00:52:28.865] base::stop(msg) 1548s [00:52:28.865] } 1548s [00:52:28.865] }) 1548s [00:52:28.865] } 1548s [00:52:28.865] options(future.plan = NULL) 1548s [00:52:28.865] Sys.unsetenv("R_FUTURE_PLAN") 1548s [00:52:28.865] future::plan("default", .cleanup = FALSE, .init = FALSE) 1548s [00:52:28.865] } 1548s [00:52:28.865] ...future.workdir <- getwd() 1548s [00:52:28.865] } 1548s [00:52:28.865] ...future.oldOptions <- base::as.list(base::.Options) 1548s [00:52:28.865] ...future.oldEnvVars <- base::Sys.getenv() 1548s [00:52:28.865] } 1548s [00:52:28.865] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1548s [00:52:28.865] future.globals.maxSize = 2097152000, future.globals.method = NULL, 1548s [00:52:28.865] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1548s [00:52:28.865] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1548s [00:52:28.865] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1548s [00:52:28.865] future.stdout.windows.reencode = NULL, width = 80L) 1548s [00:52:28.865] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1548s [00:52:28.865] base::names(...future.oldOptions)) 1548s [00:52:28.865] } 1548s [00:52:28.865] if (FALSE) { 1548s [00:52:28.865] } 1548s [00:52:28.865] else { 1548s [00:52:28.865] if (TRUE) { 1548s [00:52:28.865] ...future.stdout <- base::rawConnection(base::raw(0L), 1548s [00:52:28.865] open = "w") 1548s [00:52:28.865] } 1548s [00:52:28.865] else { 1548s [00:52:28.865] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1548s [00:52:28.865] windows = "NUL", "/dev/null"), open = "w") 1548s [00:52:28.865] } 1548s [00:52:28.865] base::sink(...future.stdout, type = "output", split = FALSE) 1548s [00:52:28.865] base::on.exit(if (!base::is.null(...future.stdout)) { 1548s [00:52:28.865] base::sink(type = "output", split = FALSE) 1548s [00:52:28.865] base::close(...future.stdout) 1548s [00:52:28.865] }, add = TRUE) 1548s [00:52:28.865] } 1548s [00:52:28.865] ...future.frame <- base::sys.nframe() 1548s [00:52:28.865] ...future.conditions <- base::list() 1548s [00:52:28.865] ...future.rng <- base::globalenv()$.Random.seed 1548s [00:52:28.865] if (FALSE) { 1548s [00:52:28.865] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1548s [00:52:28.865] "...future.value", "...future.globalenv.names", ".Random.seed") 1548s [00:52:28.865] } 1548s [00:52:28.865] ...future.result <- base::tryCatch({ 1548s [00:52:28.865] base::withCallingHandlers({ 1548s [00:52:28.865] ...future.value <- base::withVisible(base::local({ 1548s [00:52:28.865] do.call(function(...) { 1548s [00:52:28.865] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1548s [00:52:28.865] if (!identical(...future.globals.maxSize.org, 1548s [00:52:28.865] ...future.globals.maxSize)) { 1548s [00:52:28.865] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1548s [00:52:28.865] on.exit(options(oopts), add = TRUE) 1548s [00:52:28.865] } 1548s [00:52:28.865] { 1548s [00:52:28.865] lapply(seq_along(...future.elements_ii), 1548s [00:52:28.865] FUN = function(jj) { 1548s [00:52:28.865] ...future.X_jj <- ...future.elements_ii[[jj]] 1548s [00:52:28.865] ...future.FUN(...future.X_jj, ...) 1548s [00:52:28.865] }) 1548s [00:52:28.865] } 1548s [00:52:28.865] }, args = future.call.arguments) 1548s [00:52:28.865] })) 1548s [00:52:28.865] future::FutureResult(value = ...future.value$value, 1548s [00:52:28.865] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1548s [00:52:28.865] ...future.rng), globalenv = if (FALSE) 1548s [00:52:28.865] list(added = base::setdiff(base::names(base::.GlobalEnv), 1548s [00:52:28.865] ...future.globalenv.names)) 1548s [00:52:28.865] else NULL, started = ...future.startTime, version = "1.8") 1548s [00:52:28.865] }, condition = base::local({ 1548s [00:52:28.865] c <- base::c 1548s [00:52:28.865] inherits <- base::inherits 1548s [00:52:28.865] invokeRestart <- base::invokeRestart 1548s [00:52:28.865] length <- base::length 1548s [00:52:28.865] list <- base::list 1548s [00:52:28.865] seq.int <- base::seq.int 1548s [00:52:28.865] signalCondition <- base::signalCondition 1548s [00:52:28.865] sys.calls <- base::sys.calls 1548s [00:52:28.865] `[[` <- base::`[[` 1548s [00:52:28.865] `+` <- base::`+` 1548s [00:52:28.865] `<<-` <- base::`<<-` 1548s [00:52:28.865] sysCalls <- function(calls = sys.calls(), from = 1L) { 1548s [00:52:28.865] calls[seq.int(from = from + 12L, to = length(calls) - 1548s [00:52:28.865] 3L)] 1548s [00:52:28.865] } 1548s [00:52:28.865] function(cond) { 1548s [00:52:28.865] is_error <- inherits(cond, "error") 1548s [00:52:28.865] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1548s [00:52:28.865] NULL) 1548s [00:52:28.865] if (is_error) { 1548s [00:52:28.865] sessionInformation <- function() { 1548s [00:52:28.865] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1548s [00:52:28.865] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1548s [00:52:28.865] search = base::search(), system = base::Sys.info()) 1548s [00:52:28.865] } 1548s [00:52:28.865] ...future.conditions[[length(...future.conditions) + 1548s [00:52:28.865] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1548s [00:52:28.865] cond$call), session = sessionInformation(), 1548s [00:52:28.865] timestamp = base::Sys.time(), signaled = 0L) 1548s [00:52:28.865] signalCondition(cond) 1548s [00:52:28.865] } 1548s [00:52:28.865] else if (!ignore && TRUE && inherits(cond, c("condition", 1548s [00:52:28.865] "immediateCondition"))) { 1548s [00:52:28.865] signal <- TRUE && inherits(cond, "immediateCondition") 1548s [00:52:28.865] ...future.conditions[[length(...future.conditions) + 1548s [00:52:28.865] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1548s [00:52:28.865] if (TRUE && !signal) { 1548s [00:52:28.865] muffleCondition <- function (cond, pattern = "^muffle") 1548s [00:52:28.865] { 1548s [00:52:28.865] inherits <- base::inherits 1548s [00:52:28.865] invokeRestart <- base::invokeRestart 1548s [00:52:28.865] is.null <- base::is.null 1548s [00:52:28.865] muffled <- FALSE 1548s [00:52:28.865] if (inherits(cond, "message")) { 1548s [00:52:28.865] muffled <- grepl(pattern, "muffleMessage") 1548s [00:52:28.865] if (muffled) 1548s [00:52:28.865] invokeRestart("muffleMessage") 1548s [00:52:28.865] } 1548s [00:52:28.865] else if (inherits(cond, "warning")) { 1548s [00:52:28.865] muffled <- grepl(pattern, "muffleWarning") 1548s [00:52:28.865] if (muffled) 1548s [00:52:28.865] invokeRestart("muffleWarning") 1548s [00:52:28.865] } 1548s [00:52:28.865] else if (inherits(cond, "condition")) { 1548s [00:52:28.865] if (!is.null(pattern)) { 1548s [00:52:28.865] computeRestarts <- base::computeRestarts 1548s [00:52:28.865] grepl <- base::grepl 1548s [00:52:28.865] restarts <- computeRestarts(cond) 1548s [00:52:28.865] for (restart in restarts) { 1548s [00:52:28.865] name <- restart$name 1548s [00:52:28.865] if (is.null(name)) 1548s [00:52:28.865] next 1548s [00:52:28.865] if (!grepl(pattern, name)) 1548s [00:52:28.865] next 1548s [00:52:28.865] invokeRestart(restart) 1548s [00:52:28.865] muffled <- TRUE 1548s [00:52:28.865] break 1548s [00:52:28.865] } 1548s [00:52:28.865] } 1548s [00:52:28.865] } 1548s [00:52:28.865] invisible(muffled) 1548s [00:52:28.865] } 1548s [00:52:28.865] muffleCondition(cond, pattern = "^muffle") 1548s [00:52:28.865] } 1548s [00:52:28.865] } 1548s [00:52:28.865] else { 1548s [00:52:28.865] if (TRUE) { 1548s [00:52:28.865] muffleCondition <- function (cond, pattern = "^muffle") 1548s [00:52:28.865] { 1548s [00:52:28.865] inherits <- base::inherits 1548s [00:52:28.865] invokeRestart <- base::invokeRestart 1548s [00:52:28.865] is.null <- base::is.null 1548s [00:52:28.865] muffled <- FALSE 1548s [00:52:28.865] if (inherits(cond, "message")) { 1548s [00:52:28.865] muffled <- grepl(pattern, "muffleMessage") 1548s [00:52:28.865] if (muffled) 1548s [00:52:28.865] invokeRestart("muffleMessage") 1548s [00:52:28.865] } 1548s [00:52:28.865] else if (inherits(cond, "warning")) { 1548s [00:52:28.865] muffled <- grepl(pattern, "muffleWarning") 1548s [00:52:28.865] if (muffled) 1548s [00:52:28.865] invokeRestart("muffleWarning") 1548s [00:52:28.865] } 1548s [00:52:28.865] else if (inherits(cond, "condition")) { 1548s [00:52:28.865] if (!is.null(pattern)) { 1548s [00:52:28.865] computeRestarts <- base::computeRestarts 1548s [00:52:28.865] grepl <- base::grepl 1548s [00:52:28.865] restarts <- computeRestarts(cond) 1548s [00:52:28.865] for (restart in restarts) { 1548s [00:52:28.865] name <- restart$name 1548s [00:52:28.865] if (is.null(name)) 1548s [00:52:28.865] next 1548s [00:52:28.865] if (!grepl(pattern, name)) 1548s [00:52:28.865] next 1548s [00:52:28.865] invokeRestart(restart) 1548s [00:52:28.865] muffled <- TRUE 1548s [00:52:28.865] break 1548s [00:52:28.865] } 1548s [00:52:28.865] } 1548s [00:52:28.865] } 1548s [00:52:28.865] invisible(muffled) 1548s [00:52:28.865] } 1548s [00:52:28.865] muffleCondition(cond, pattern = "^muffle") 1548s [00:52:28.865] } 1548s [00:52:28.865] } 1548s [00:52:28.865] } 1548s [00:52:28.865] })) 1548s [00:52:28.865] }, error = function(ex) { 1548s [00:52:28.865] base::structure(base::list(value = NULL, visible = NULL, 1548s [00:52:28.865] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1548s [00:52:28.865] ...future.rng), started = ...future.startTime, 1548s [00:52:28.865] finished = Sys.time(), session_uuid = NA_character_, 1548s [00:52:28.865] version = "1.8"), class = "FutureResult") 1548s [00:52:28.865] }, finally = { 1548s [00:52:28.865] if (!identical(...future.workdir, getwd())) 1548s [00:52:28.865] setwd(...future.workdir) 1548s [00:52:28.865] { 1548s [00:52:28.865] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1548s [00:52:28.865] ...future.oldOptions$nwarnings <- NULL 1548s [00:52:28.865] } 1548s [00:52:28.865] base::options(...future.oldOptions) 1548s [00:52:28.865] if (.Platform$OS.type == "windows") { 1548s [00:52:28.865] old_names <- names(...future.oldEnvVars) 1548s [00:52:28.865] envs <- base::Sys.getenv() 1548s [00:52:28.865] names <- names(envs) 1548s [00:52:28.865] common <- intersect(names, old_names) 1548s [00:52:28.865] added <- setdiff(names, old_names) 1548s [00:52:28.865] removed <- setdiff(old_names, names) 1548s [00:52:28.865] changed <- common[...future.oldEnvVars[common] != 1548s [00:52:28.865] envs[common]] 1548s [00:52:28.865] NAMES <- toupper(changed) 1548s [00:52:28.865] args <- list() 1548s [00:52:28.865] for (kk in seq_along(NAMES)) { 1548s [00:52:28.865] name <- changed[[kk]] 1548s [00:52:28.865] NAME <- NAMES[[kk]] 1548s [00:52:28.865] if (name != NAME && is.element(NAME, old_names)) 1548s [00:52:28.865] next 1548s [00:52:28.865] args[[name]] <- ...future.oldEnvVars[[name]] 1548s [00:52:28.865] } 1548s [00:52:28.865] NAMES <- toupper(added) 1548s [00:52:28.865] for (kk in seq_along(NAMES)) { 1548s [00:52:28.865] name <- added[[kk]] 1548s [00:52:28.865] NAME <- NAMES[[kk]] 1548s [00:52:28.865] if (name != NAME && is.element(NAME, old_names)) 1548s [00:52:28.865] next 1548s [00:52:28.865] args[[name]] <- "" 1548s [00:52:28.865] } 1548s [00:52:28.865] NAMES <- toupper(removed) 1548s [00:52:28.865] for (kk in seq_along(NAMES)) { 1548s [00:52:28.865] name <- removed[[kk]] 1548s [00:52:28.865] NAME <- NAMES[[kk]] 1548s [00:52:28.865] if (name != NAME && is.element(NAME, old_names)) 1548s [00:52:28.865] next 1548s [00:52:28.865] args[[name]] <- ...future.oldEnvVars[[name]] 1548s [00:52:28.865] } 1548s [00:52:28.865] if (length(args) > 0) 1548s [00:52:28.865] base::do.call(base::Sys.setenv, args = args) 1548s [00:52:28.865] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1548s [00:52:28.865] } 1548s [00:52:28.865] else { 1548s [00:52:28.865] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1548s [00:52:28.865] } 1548s [00:52:28.865] { 1548s [00:52:28.865] if (base::length(...future.futureOptionsAdded) > 1548s [00:52:28.865] 0L) { 1548s [00:52:28.865] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1548s [00:52:28.865] base::names(opts) <- ...future.futureOptionsAdded 1548s [00:52:28.865] base::options(opts) 1548s [00:52:28.865] } 1548s [00:52:28.865] { 1548s [00:52:28.865] { 1548s [00:52:28.865] NULL 1548s [00:52:28.865] RNGkind("Mersenne-Twister") 1548s [00:52:28.865] base::rm(list = ".Random.seed", envir = base::globalenv(), 1548s [00:52:28.865] inherits = FALSE) 1548s [00:52:28.865] } 1548s [00:52:28.865] options(future.plan = NULL) 1548s [00:52:28.865] if (is.na(NA_character_)) 1548s [00:52:28.865] Sys.unsetenv("R_FUTURE_PLAN") 1548s [00:52:28.865] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1548s [00:52:28.865] future::plan(list(function (..., envir = parent.frame()) 1548s [00:52:28.865] { 1548s [00:52:28.865] future <- SequentialFuture(..., envir = envir) 1548s [00:52:28.865] if (!future$lazy) 1548s [00:52:28.865] future <- run(future) 1548s [00:52:28.865] invisible(future) 1548s [00:52:28.865] }), .cleanup = FALSE, .init = FALSE) 1548s [00:52:28.865] } 1548s [00:52:28.865] } 1548s [00:52:28.865] } 1548s [00:52:28.865] }) 1548s [00:52:28.865] if (TRUE) { 1548s [00:52:28.865] base::sink(type = "output", split = FALSE) 1548s [00:52:28.865] if (TRUE) { 1548s [00:52:28.865] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1548s [00:52:28.865] } 1548s [00:52:28.865] else { 1548s [00:52:28.865] ...future.result["stdout"] <- base::list(NULL) 1548s [00:52:28.865] } 1548s [00:52:28.865] base::close(...future.stdout) 1548s [00:52:28.865] ...future.stdout <- NULL 1548s [00:52:28.865] } 1548s [00:52:28.865] ...future.result$conditions <- ...future.conditions 1548s [00:52:28.865] ...future.result$finished <- base::Sys.time() 1548s [00:52:28.865] ...future.result 1548s [00:52:28.865] } 1548s [00:52:28.868] assign_globals() ... 1548s [00:52:28.868] List of 5 1548s [00:52:28.868] $ ...future.FUN :function (mode = "logical", length = 0L) 1548s [00:52:28.868] $ future.call.arguments :List of 1 1548s [00:52:28.868] ..$ length: int 2 1548s [00:52:28.868] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1548s [00:52:28.868] $ ...future.elements_ii :List of 1 1548s [00:52:28.868] ..$ b: chr "numeric" 1548s [00:52:28.868] $ ...future.seeds_ii : NULL 1548s [00:52:28.868] $ ...future.globals.maxSize: NULL 1548s [00:52:28.868] - attr(*, "where")=List of 5 1548s [00:52:28.868] ..$ ...future.FUN : 1548s [00:52:28.868] ..$ future.call.arguments : 1548s [00:52:28.868] ..$ ...future.elements_ii : 1548s [00:52:28.868] ..$ ...future.seeds_ii : 1548s [00:52:28.868] ..$ ...future.globals.maxSize: 1548s [00:52:28.868] - attr(*, "resolved")= logi FALSE 1548s [00:52:28.868] - attr(*, "total_size")= num 2240 1548s [00:52:28.868] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1548s [00:52:28.868] - attr(*, "already-done")= logi TRUE 1548s [00:52:28.875] - copied ‘...future.FUN’ to environment 1548s [00:52:28.876] - copied ‘future.call.arguments’ to environment 1548s [00:52:28.876] - copied ‘...future.elements_ii’ to environment 1548s [00:52:28.876] - copied ‘...future.seeds_ii’ to environment 1548s [00:52:28.876] - copied ‘...future.globals.maxSize’ to environment 1548s [00:52:28.876] assign_globals() ... done 1548s [00:52:28.877] plan(): Setting new future strategy stack: 1548s [00:52:28.877] List of future strategies: 1548s [00:52:28.877] 1. sequential: 1548s [00:52:28.877] - args: function (..., envir = parent.frame()) 1548s [00:52:28.877] - tweaked: FALSE 1548s [00:52:28.877] - call: NULL 1548s [00:52:28.877] plan(): nbrOfWorkers() = 1 1548s [00:52:28.878] plan(): Setting new future strategy stack: 1548s [00:52:28.878] List of future strategies: 1548s [00:52:28.878] 1. sequential: 1548s [00:52:28.878] - args: function (..., envir = parent.frame()) 1548s [00:52:28.878] - tweaked: FALSE 1548s [00:52:28.878] - call: plan(strategy) 1548s [00:52:28.879] plan(): nbrOfWorkers() = 1 1548s [00:52:28.879] SequentialFuture started (and completed) 1548s [00:52:28.879] - Launch lazy future ... done 1548s [00:52:28.879] run() for ‘SequentialFuture’ ... done 1548s [00:52:28.879] Created future: 1548s [00:52:28.879] SequentialFuture: 1548s [00:52:28.879] Label: ‘future_lapply-2’ 1548s [00:52:28.879] Expression: 1548s [00:52:28.879] { 1548s [00:52:28.879] do.call(function(...) { 1548s [00:52:28.879] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1548s [00:52:28.879] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1548s [00:52:28.879] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1548s [00:52:28.879] on.exit(options(oopts), add = TRUE) 1548s [00:52:28.879] } 1548s [00:52:28.879] { 1548s [00:52:28.879] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1548s [00:52:28.879] ...future.X_jj <- ...future.elements_ii[[jj]] 1548s [00:52:28.879] ...future.FUN(...future.X_jj, ...) 1548s [00:52:28.879] }) 1548s [00:52:28.879] } 1548s [00:52:28.879] }, args = future.call.arguments) 1548s [00:52:28.879] } 1548s [00:52:28.879] Lazy evaluation: FALSE 1548s [00:52:28.879] Asynchronous evaluation: FALSE 1548s [00:52:28.879] Local evaluation: TRUE 1548s [00:52:28.879] Environment: R_GlobalEnv 1548s [00:52:28.879] Capture standard output: TRUE 1548s [00:52:28.879] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1548s [00:52:28.879] Globals: 5 objects totaling 2.30 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1548s [00:52:28.879] Packages: 1548s [00:52:28.879] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1548s [00:52:28.879] Resolved: TRUE 1548s [00:52:28.879] Value: 64 bytes of class ‘list’ 1548s [00:52:28.879] Early signaling: FALSE 1548s [00:52:28.879] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1548s [00:52:28.879] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1548s [00:52:28.881] Chunk #2 of 4 ... DONE 1548s [00:52:28.881] Chunk #3 of 4 ... 1548s [00:52:28.882] - Finding globals in 'X' for chunk #3 ... 1548s [00:52:28.882] getGlobalsAndPackages() ... 1548s [00:52:28.882] Searching for globals... 1548s [00:52:28.883] 1548s [00:52:28.883] Searching for globals ... DONE 1548s [00:52:28.883] - globals: [0] 1548s [00:52:28.884] getGlobalsAndPackages() ... DONE 1548s [00:52:28.884] + additional globals found: [n=0] 1548s [00:52:28.884] + additional namespaces needed: [n=0] 1548s [00:52:28.884] - Finding globals in 'X' for chunk #3 ... DONE 1548s [00:52:28.885] - Adjusted option 'future.globals.maxSize': 524288000 -> 4 * 524288000 = 2097152000 (bytes) 1548s [00:52:28.885] - seeds: 1548s [00:52:28.885] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1548s [00:52:28.886] getGlobalsAndPackages() ... 1548s [00:52:28.886] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1548s [00:52:28.886] Resolving globals: FALSE 1548s [00:52:28.886] Tweak future expression to call with '...' arguments ... 1548s [00:52:28.886] { 1548s [00:52:28.886] do.call(function(...) { 1548s [00:52:28.886] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1548s [00:52:28.886] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1548s [00:52:28.886] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1548s [00:52:28.886] on.exit(options(oopts), add = TRUE) 1548s [00:52:28.886] } 1548s [00:52:28.886] { 1548s [00:52:28.886] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1548s [00:52:28.886] ...future.X_jj <- ...future.elements_ii[[jj]] 1548s [00:52:28.886] ...future.FUN(...future.X_jj, ...) 1548s [00:52:28.886] }) 1548s [00:52:28.886] } 1548s [00:52:28.886] }, args = future.call.arguments) 1548s [00:52:28.886] } 1548s [00:52:28.887] Tweak future expression to call with '...' arguments ... DONE 1548s [00:52:28.887] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1548s [00:52:28.888] 1548s [00:52:28.888] getGlobalsAndPackages() ... DONE 1548s [00:52:28.888] run() for ‘Future’ ... 1548s [00:52:28.888] - state: ‘created’ 1548s [00:52:28.889] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1548s [00:52:28.890] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1548s [00:52:28.890] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1548s [00:52:28.890] - Field: ‘label’ 1548s [00:52:28.890] - Field: ‘local’ 1548s [00:52:28.891] - Field: ‘owner’ 1548s [00:52:28.891] - Field: ‘envir’ 1548s [00:52:28.892] - Field: ‘packages’ 1548s [00:52:28.892] - Field: ‘gc’ 1548s [00:52:28.892] - Field: ‘conditions’ 1548s [00:52:28.892] - Field: ‘expr’ 1548s [00:52:28.892] - Field: ‘uuid’ 1548s [00:52:28.892] - Field: ‘seed’ 1548s [00:52:28.893] - Field: ‘version’ 1548s [00:52:28.893] - Field: ‘result’ 1548s [00:52:28.893] - Field: ‘asynchronous’ 1548s [00:52:28.894] - Field: ‘calls’ 1548s [00:52:28.894] - Field: ‘globals’ 1548s [00:52:28.894] - Field: ‘stdout’ 1548s [00:52:28.895] - Field: ‘earlySignal’ 1548s [00:52:28.895] - Field: ‘lazy’ 1548s [00:52:28.895] - Field: ‘state’ 1548s [00:52:28.895] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1548s [00:52:28.895] - Launch lazy future ... 1548s [00:52:28.898] Packages needed by the future expression (n = 0): 1548s [00:52:28.898] Packages needed by future strategies (n = 0): 1548s [00:52:28.900] { 1548s [00:52:28.900] { 1548s [00:52:28.900] { 1548s [00:52:28.900] ...future.startTime <- base::Sys.time() 1548s [00:52:28.900] { 1548s [00:52:28.900] { 1548s [00:52:28.900] { 1548s [00:52:28.900] base::local({ 1548s [00:52:28.900] has_future <- base::requireNamespace("future", 1548s [00:52:28.900] quietly = TRUE) 1548s [00:52:28.900] if (has_future) { 1548s [00:52:28.900] ns <- base::getNamespace("future") 1548s [00:52:28.900] version <- ns[[".package"]][["version"]] 1548s [00:52:28.900] if (is.null(version)) 1548s [00:52:28.900] version <- utils::packageVersion("future") 1548s [00:52:28.900] } 1548s [00:52:28.900] else { 1548s [00:52:28.900] version <- NULL 1548s [00:52:28.900] } 1548s [00:52:28.900] if (!has_future || version < "1.8.0") { 1548s [00:52:28.900] info <- base::c(r_version = base::gsub("R version ", 1548s [00:52:28.900] "", base::R.version$version.string), 1548s [00:52:28.900] platform = base::sprintf("%s (%s-bit)", 1548s [00:52:28.900] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1548s [00:52:28.900] os = base::paste(base::Sys.info()[base::c("sysname", 1548s [00:52:28.900] "release", "version")], collapse = " "), 1548s [00:52:28.900] hostname = base::Sys.info()[["nodename"]]) 1548s [00:52:28.900] info <- base::sprintf("%s: %s", base::names(info), 1548s [00:52:28.900] info) 1548s [00:52:28.900] info <- base::paste(info, collapse = "; ") 1548s [00:52:28.900] if (!has_future) { 1548s [00:52:28.900] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1548s [00:52:28.900] info) 1548s [00:52:28.900] } 1548s [00:52:28.900] else { 1548s [00:52:28.900] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1548s [00:52:28.900] info, version) 1548s [00:52:28.900] } 1548s [00:52:28.900] base::stop(msg) 1548s [00:52:28.900] } 1548s [00:52:28.900] }) 1548s [00:52:28.900] } 1548s [00:52:28.900] options(future.plan = NULL) 1548s [00:52:28.900] Sys.unsetenv("R_FUTURE_PLAN") 1548s [00:52:28.900] future::plan("default", .cleanup = FALSE, .init = FALSE) 1548s [00:52:28.900] } 1548s [00:52:28.900] ...future.workdir <- getwd() 1548s [00:52:28.900] } 1548s [00:52:28.900] ...future.oldOptions <- base::as.list(base::.Options) 1548s [00:52:28.900] ...future.oldEnvVars <- base::Sys.getenv() 1548s [00:52:28.900] } 1548s [00:52:28.900] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1548s [00:52:28.900] future.globals.maxSize = 2097152000, future.globals.method = NULL, 1548s [00:52:28.900] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1548s [00:52:28.900] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1548s [00:52:28.900] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1548s [00:52:28.900] future.stdout.windows.reencode = NULL, width = 80L) 1548s [00:52:28.900] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1548s [00:52:28.900] base::names(...future.oldOptions)) 1548s [00:52:28.900] } 1548s [00:52:28.900] if (FALSE) { 1548s [00:52:28.900] } 1548s [00:52:28.900] else { 1548s [00:52:28.900] if (TRUE) { 1548s [00:52:28.900] ...future.stdout <- base::rawConnection(base::raw(0L), 1548s [00:52:28.900] open = "w") 1548s [00:52:28.900] } 1548s [00:52:28.900] else { 1548s [00:52:28.900] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1548s [00:52:28.900] windows = "NUL", "/dev/null"), open = "w") 1548s [00:52:28.900] } 1548s [00:52:28.900] base::sink(...future.stdout, type = "output", split = FALSE) 1548s [00:52:28.900] base::on.exit(if (!base::is.null(...future.stdout)) { 1548s [00:52:28.900] base::sink(type = "output", split = FALSE) 1548s [00:52:28.900] base::close(...future.stdout) 1548s [00:52:28.900] }, add = TRUE) 1548s [00:52:28.900] } 1548s [00:52:28.900] ...future.frame <- base::sys.nframe() 1548s [00:52:28.900] ...future.conditions <- base::list() 1548s [00:52:28.900] ...future.rng <- base::globalenv()$.Random.seed 1548s [00:52:28.900] if (FALSE) { 1548s [00:52:28.900] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1548s [00:52:28.900] "...future.value", "...future.globalenv.names", ".Random.seed") 1548s [00:52:28.900] } 1548s [00:52:28.900] ...future.result <- base::tryCatch({ 1548s [00:52:28.900] base::withCallingHandlers({ 1548s [00:52:28.900] ...future.value <- base::withVisible(base::local({ 1548s [00:52:28.900] do.call(function(...) { 1548s [00:52:28.900] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1548s [00:52:28.900] if (!identical(...future.globals.maxSize.org, 1548s [00:52:28.900] ...future.globals.maxSize)) { 1548s [00:52:28.900] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1548s [00:52:28.900] on.exit(options(oopts), add = TRUE) 1548s [00:52:28.900] } 1548s [00:52:28.900] { 1548s [00:52:28.900] lapply(seq_along(...future.elements_ii), 1548s [00:52:28.900] FUN = function(jj) { 1548s [00:52:28.900] ...future.X_jj <- ...future.elements_ii[[jj]] 1548s [00:52:28.900] ...future.FUN(...future.X_jj, ...) 1548s [00:52:28.900] }) 1548s [00:52:28.900] } 1548s [00:52:28.900] }, args = future.call.arguments) 1548s [00:52:28.900] })) 1548s [00:52:28.900] future::FutureResult(value = ...future.value$value, 1548s [00:52:28.900] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1548s [00:52:28.900] ...future.rng), globalenv = if (FALSE) 1548s [00:52:28.900] list(added = base::setdiff(base::names(base::.GlobalEnv), 1548s [00:52:28.900] ...future.globalenv.names)) 1548s [00:52:28.900] else NULL, started = ...future.startTime, version = "1.8") 1548s [00:52:28.900] }, condition = base::local({ 1548s [00:52:28.900] c <- base::c 1548s [00:52:28.900] inherits <- base::inherits 1548s [00:52:28.900] invokeRestart <- base::invokeRestart 1548s [00:52:28.900] length <- base::length 1548s [00:52:28.900] list <- base::list 1548s [00:52:28.900] seq.int <- base::seq.int 1548s [00:52:28.900] signalCondition <- base::signalCondition 1548s [00:52:28.900] sys.calls <- base::sys.calls 1548s [00:52:28.900] `[[` <- base::`[[` 1548s [00:52:28.900] `+` <- base::`+` 1548s [00:52:28.900] `<<-` <- base::`<<-` 1548s [00:52:28.900] sysCalls <- function(calls = sys.calls(), from = 1L) { 1548s [00:52:28.900] calls[seq.int(from = from + 12L, to = length(calls) - 1548s [00:52:28.900] 3L)] 1548s [00:52:28.900] } 1548s [00:52:28.900] function(cond) { 1548s [00:52:28.900] is_error <- inherits(cond, "error") 1548s [00:52:28.900] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1548s [00:52:28.900] NULL) 1548s [00:52:28.900] if (is_error) { 1548s [00:52:28.900] sessionInformation <- function() { 1548s [00:52:28.900] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1548s [00:52:28.900] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1548s [00:52:28.900] search = base::search(), system = base::Sys.info()) 1548s [00:52:28.900] } 1548s [00:52:28.900] ...future.conditions[[length(...future.conditions) + 1548s [00:52:28.900] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1548s [00:52:28.900] cond$call), session = sessionInformation(), 1548s [00:52:28.900] timestamp = base::Sys.time(), signaled = 0L) 1548s [00:52:28.900] signalCondition(cond) 1548s [00:52:28.900] } 1548s [00:52:28.900] else if (!ignore && TRUE && inherits(cond, c("condition", 1548s [00:52:28.900] "immediateCondition"))) { 1548s [00:52:28.900] signal <- TRUE && inherits(cond, "immediateCondition") 1548s [00:52:28.900] ...future.conditions[[length(...future.conditions) + 1548s [00:52:28.900] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1548s [00:52:28.900] if (TRUE && !signal) { 1548s [00:52:28.900] muffleCondition <- function (cond, pattern = "^muffle") 1548s [00:52:28.900] { 1548s [00:52:28.900] inherits <- base::inherits 1548s [00:52:28.900] invokeRestart <- base::invokeRestart 1548s [00:52:28.900] is.null <- base::is.null 1548s [00:52:28.900] muffled <- FALSE 1548s [00:52:28.900] if (inherits(cond, "message")) { 1548s [00:52:28.900] muffled <- grepl(pattern, "muffleMessage") 1548s [00:52:28.900] if (muffled) 1548s [00:52:28.900] invokeRestart("muffleMessage") 1548s [00:52:28.900] } 1548s [00:52:28.900] else if (inherits(cond, "warning")) { 1548s [00:52:28.900] muffled <- grepl(pattern, "muffleWarning") 1548s [00:52:28.900] if (muffled) 1548s [00:52:28.900] invokeRestart("muffleWarning") 1548s [00:52:28.900] } 1548s [00:52:28.900] else if (inherits(cond, "condition")) { 1548s [00:52:28.900] if (!is.null(pattern)) { 1548s [00:52:28.900] computeRestarts <- base::computeRestarts 1548s [00:52:28.900] grepl <- base::grepl 1548s [00:52:28.900] restarts <- computeRestarts(cond) 1548s [00:52:28.900] for (restart in restarts) { 1548s [00:52:28.900] name <- restart$name 1548s [00:52:28.900] if (is.null(name)) 1548s [00:52:28.900] next 1548s [00:52:28.900] if (!grepl(pattern, name)) 1548s [00:52:28.900] next 1548s [00:52:28.900] invokeRestart(restart) 1548s [00:52:28.900] muffled <- TRUE 1548s [00:52:28.900] break 1548s [00:52:28.900] } 1548s [00:52:28.900] } 1548s [00:52:28.900] } 1548s [00:52:28.900] invisible(muffled) 1548s [00:52:28.900] } 1548s [00:52:28.900] muffleCondition(cond, pattern = "^muffle") 1548s [00:52:28.900] } 1548s [00:52:28.900] } 1548s [00:52:28.900] else { 1548s [00:52:28.900] if (TRUE) { 1548s [00:52:28.900] muffleCondition <- function (cond, pattern = "^muffle") 1548s [00:52:28.900] { 1548s [00:52:28.900] inherits <- base::inherits 1548s [00:52:28.900] invokeRestart <- base::invokeRestart 1548s [00:52:28.900] is.null <- base::is.null 1548s [00:52:28.900] muffled <- FALSE 1548s [00:52:28.900] if (inherits(cond, "message")) { 1548s [00:52:28.900] muffled <- grepl(pattern, "muffleMessage") 1548s [00:52:28.900] if (muffled) 1548s [00:52:28.900] invokeRestart("muffleMessage") 1548s [00:52:28.900] } 1548s [00:52:28.900] else if (inherits(cond, "warning")) { 1548s [00:52:28.900] muffled <- grepl(pattern, "muffleWarning") 1548s [00:52:28.900] if (muffled) 1548s [00:52:28.900] invokeRestart("muffleWarning") 1548s [00:52:28.900] } 1548s [00:52:28.900] else if (inherits(cond, "condition")) { 1548s [00:52:28.900] if (!is.null(pattern)) { 1548s [00:52:28.900] computeRestarts <- base::computeRestarts 1548s [00:52:28.900] grepl <- base::grepl 1548s [00:52:28.900] restarts <- computeRestarts(cond) 1548s [00:52:28.900] for (restart in restarts) { 1548s [00:52:28.900] name <- restart$name 1548s [00:52:28.900] if (is.null(name)) 1548s [00:52:28.900] next 1548s [00:52:28.900] if (!grepl(pattern, name)) 1548s [00:52:28.900] next 1548s [00:52:28.900] invokeRestart(restart) 1548s [00:52:28.900] muffled <- TRUE 1548s [00:52:28.900] break 1548s [00:52:28.900] } 1548s [00:52:28.900] } 1548s [00:52:28.900] } 1548s [00:52:28.900] invisible(muffled) 1548s [00:52:28.900] } 1548s [00:52:28.900] muffleCondition(cond, pattern = "^muffle") 1548s [00:52:28.900] } 1548s [00:52:28.900] } 1548s [00:52:28.900] } 1548s [00:52:28.900] })) 1548s [00:52:28.900] }, error = function(ex) { 1548s [00:52:28.900] base::structure(base::list(value = NULL, visible = NULL, 1548s [00:52:28.900] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1548s [00:52:28.900] ...future.rng), started = ...future.startTime, 1548s [00:52:28.900] finished = Sys.time(), session_uuid = NA_character_, 1548s [00:52:28.900] version = "1.8"), class = "FutureResult") 1548s [00:52:28.900] }, finally = { 1548s [00:52:28.900] if (!identical(...future.workdir, getwd())) 1548s [00:52:28.900] setwd(...future.workdir) 1548s [00:52:28.900] { 1548s [00:52:28.900] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1548s [00:52:28.900] ...future.oldOptions$nwarnings <- NULL 1548s [00:52:28.900] } 1548s [00:52:28.900] base::options(...future.oldOptions) 1548s [00:52:28.900] if (.Platform$OS.type == "windows") { 1548s [00:52:28.900] old_names <- names(...future.oldEnvVars) 1548s [00:52:28.900] envs <- base::Sys.getenv() 1548s [00:52:28.900] names <- names(envs) 1548s [00:52:28.900] common <- intersect(names, old_names) 1548s [00:52:28.900] added <- setdiff(names, old_names) 1548s [00:52:28.900] removed <- setdiff(old_names, names) 1548s [00:52:28.900] changed <- common[...future.oldEnvVars[common] != 1548s [00:52:28.900] envs[common]] 1548s [00:52:28.900] NAMES <- toupper(changed) 1548s [00:52:28.900] args <- list() 1548s [00:52:28.900] for (kk in seq_along(NAMES)) { 1548s [00:52:28.900] name <- changed[[kk]] 1548s [00:52:28.900] NAME <- NAMES[[kk]] 1548s [00:52:28.900] if (name != NAME && is.element(NAME, old_names)) 1548s [00:52:28.900] next 1548s [00:52:28.900] args[[name]] <- ...future.oldEnvVars[[name]] 1548s [00:52:28.900] } 1548s [00:52:28.900] NAMES <- toupper(added) 1548s [00:52:28.900] for (kk in seq_along(NAMES)) { 1548s [00:52:28.900] name <- added[[kk]] 1548s [00:52:28.900] NAME <- NAMES[[kk]] 1548s [00:52:28.900] if (name != NAME && is.element(NAME, old_names)) 1548s [00:52:28.900] next 1548s [00:52:28.900] args[[name]] <- "" 1548s [00:52:28.900] } 1548s [00:52:28.900] NAMES <- toupper(removed) 1548s [00:52:28.900] for (kk in seq_along(NAMES)) { 1548s [00:52:28.900] name <- removed[[kk]] 1548s [00:52:28.900] NAME <- NAMES[[kk]] 1548s [00:52:28.900] if (name != NAME && is.element(NAME, old_names)) 1548s [00:52:28.900] next 1548s [00:52:28.900] args[[name]] <- ...future.oldEnvVars[[name]] 1548s [00:52:28.900] } 1548s [00:52:28.900] if (length(args) > 0) 1548s [00:52:28.900] base::do.call(base::Sys.setenv, args = args) 1548s [00:52:28.900] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1548s [00:52:28.900] } 1548s [00:52:28.900] else { 1548s [00:52:28.900] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1548s [00:52:28.900] } 1548s [00:52:28.900] { 1548s [00:52:28.900] if (base::length(...future.futureOptionsAdded) > 1548s [00:52:28.900] 0L) { 1548s [00:52:28.900] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1548s [00:52:28.900] base::names(opts) <- ...future.futureOptionsAdded 1548s [00:52:28.900] base::options(opts) 1548s [00:52:28.900] } 1548s [00:52:28.900] { 1548s [00:52:28.900] { 1548s [00:52:28.900] NULL 1548s [00:52:28.900] RNGkind("Mersenne-Twister") 1548s [00:52:28.900] base::rm(list = ".Random.seed", envir = base::globalenv(), 1548s [00:52:28.900] inherits = FALSE) 1548s [00:52:28.900] } 1548s [00:52:28.900] options(future.plan = NULL) 1548s [00:52:28.900] if (is.na(NA_character_)) 1548s [00:52:28.900] Sys.unsetenv("R_FUTURE_PLAN") 1548s [00:52:28.900] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1548s [00:52:28.900] future::plan(list(function (..., envir = parent.frame()) 1548s [00:52:28.900] { 1548s [00:52:28.900] future <- SequentialFuture(..., envir = envir) 1548s [00:52:28.900] if (!future$lazy) 1548s [00:52:28.900] future <- run(future) 1548s [00:52:28.900] invisible(future) 1548s [00:52:28.900] }), .cleanup = FALSE, .init = FALSE) 1548s [00:52:28.900] } 1548s [00:52:28.900] } 1548s [00:52:28.900] } 1548s [00:52:28.900] }) 1548s [00:52:28.900] if (TRUE) { 1548s [00:52:28.900] base::sink(type = "output", split = FALSE) 1548s [00:52:28.900] if (TRUE) { 1548s [00:52:28.900] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1548s [00:52:28.900] } 1548s [00:52:28.900] else { 1548s [00:52:28.900] ...future.result["stdout"] <- base::list(NULL) 1548s [00:52:28.900] } 1548s [00:52:28.900] base::close(...future.stdout) 1548s [00:52:28.900] ...future.stdout <- NULL 1548s [00:52:28.900] } 1548s [00:52:28.900] ...future.result$conditions <- ...future.conditions 1548s [00:52:28.900] ...future.result$finished <- base::Sys.time() 1548s [00:52:28.900] ...future.result 1548s [00:52:28.900] } 1548s [00:52:28.905] assign_globals() ... 1548s [00:52:28.905] List of 5 1548s [00:52:28.905] $ ...future.FUN :function (mode = "logical", length = 0L) 1548s [00:52:28.905] $ future.call.arguments :List of 1 1548s [00:52:28.905] ..$ length: int 2 1548s [00:52:28.905] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1548s [00:52:28.905] $ ...future.elements_ii :List of 1 1548s [00:52:28.905] ..$ c: chr "character" 1548s [00:52:28.905] $ ...future.seeds_ii : NULL 1548s [00:52:28.905] $ ...future.globals.maxSize: NULL 1548s [00:52:28.905] - attr(*, "where")=List of 5 1548s [00:52:28.905] ..$ ...future.FUN : 1548s [00:52:28.905] ..$ future.call.arguments : 1548s [00:52:28.905] ..$ ...future.elements_ii : 1548s [00:52:28.905] ..$ ...future.seeds_ii : 1548s [00:52:28.905] ..$ ...future.globals.maxSize: 1548s [00:52:28.905] - attr(*, "resolved")= logi FALSE 1548s [00:52:28.905] - attr(*, "total_size")= num 2240 1548s [00:52:28.905] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1548s [00:52:28.905] - attr(*, "already-done")= logi TRUE 1548s [00:52:28.915] - copied ‘...future.FUN’ to environment 1548s [00:52:28.916] - copied ‘future.call.arguments’ to environment 1548s [00:52:28.916] - copied ‘...future.elements_ii’ to environment 1548s [00:52:28.916] - copied ‘...future.seeds_ii’ to environment 1548s [00:52:28.916] - copied ‘...future.globals.maxSize’ to environment 1548s [00:52:28.916] assign_globals() ... done 1548s [00:52:28.917] plan(): Setting new future strategy stack: 1548s [00:52:28.917] List of future strategies: 1548s [00:52:28.917] 1. sequential: 1548s [00:52:28.917] - args: function (..., envir = parent.frame()) 1548s [00:52:28.917] - tweaked: FALSE 1548s [00:52:28.917] - call: NULL 1548s [00:52:28.918] plan(): nbrOfWorkers() = 1 1548s [00:52:28.919] plan(): Setting new future strategy stack: 1548s [00:52:28.919] List of future strategies: 1548s [00:52:28.919] 1. sequential: 1548s [00:52:28.919] - args: function (..., envir = parent.frame()) 1548s [00:52:28.919] - tweaked: FALSE 1548s [00:52:28.919] - call: plan(strategy) 1548s [00:52:28.920] plan(): nbrOfWorkers() = 1 1548s [00:52:28.920] SequentialFuture started (and completed) 1548s [00:52:28.921] - Launch lazy future ... done 1548s [00:52:28.921] run() for ‘SequentialFuture’ ... done 1548s [00:52:28.921] Created future: 1548s [00:52:28.921] SequentialFuture: 1548s [00:52:28.921] Label: ‘future_lapply-3’ 1548s [00:52:28.921] Expression: 1548s [00:52:28.921] { 1548s [00:52:28.921] do.call(function(...) { 1548s [00:52:28.921] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1548s [00:52:28.921] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1548s [00:52:28.921] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1548s [00:52:28.921] on.exit(options(oopts), add = TRUE) 1548s [00:52:28.921] } 1548s [00:52:28.921] { 1548s [00:52:28.921] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1548s [00:52:28.921] ...future.X_jj <- ...future.elements_ii[[jj]] 1548s [00:52:28.921] ...future.FUN(...future.X_jj, ...) 1548s [00:52:28.921] }) 1548s [00:52:28.921] } 1548s [00:52:28.921] }, args = future.call.arguments) 1548s [00:52:28.921] } 1548s [00:52:28.921] Lazy evaluation: FALSE 1548s [00:52:28.921] Asynchronous evaluation: FALSE 1548s [00:52:28.921] Local evaluation: TRUE 1548s [00:52:28.921] Environment: R_GlobalEnv 1548s [00:52:28.921] Capture standard output: TRUE 1548s [00:52:28.921] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1548s [00:52:28.921] Globals: 5 objects totaling 2.30 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 120 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1548s [00:52:28.921] Packages: 1548s [00:52:28.921] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1548s [00:52:28.921] Resolved: TRUE 1548s [00:52:28.921] Value: 120 bytes of class ‘list’ 1548s [00:52:28.921] Early signaling: FALSE 1548s [00:52:28.921] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1548s [00:52:28.921] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1548s [00:52:28.923] Chunk #3 of 4 ... DONE 1548s [00:52:28.923] Chunk #4 of 4 ... 1548s [00:52:28.923] - Finding globals in 'X' for chunk #4 ... 1548s [00:52:28.923] getGlobalsAndPackages() ... 1548s [00:52:28.923] Searching for globals... 1548s [00:52:28.924] 1548s [00:52:28.924] Searching for globals ... DONE 1548s [00:52:28.924] - globals: [0] 1548s [00:52:28.924] getGlobalsAndPackages() ... DONE 1548s [00:52:28.925] + additional globals found: [n=0] 1548s [00:52:28.925] + additional namespaces needed: [n=0] 1548s [00:52:28.925] - Finding globals in 'X' for chunk #4 ... DONE 1548s [00:52:28.925] - Adjusted option 'future.globals.maxSize': 524288000 -> 4 * 524288000 = 2097152000 (bytes) 1548s [00:52:28.925] - seeds: 1548s [00:52:28.925] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1548s [00:52:28.925] getGlobalsAndPackages() ... 1548s [00:52:28.925] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1548s [00:52:28.926] Resolving globals: FALSE 1548s [00:52:28.926] Tweak future expression to call with '...' arguments ... 1548s [00:52:28.926] { 1548s [00:52:28.926] do.call(function(...) { 1548s [00:52:28.926] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1548s [00:52:28.926] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1548s [00:52:28.926] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1548s [00:52:28.926] on.exit(options(oopts), add = TRUE) 1548s [00:52:28.926] } 1548s [00:52:28.926] { 1548s [00:52:28.926] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1548s [00:52:28.926] ...future.X_jj <- ...future.elements_ii[[jj]] 1548s [00:52:28.926] ...future.FUN(...future.X_jj, ...) 1548s [00:52:28.926] }) 1548s [00:52:28.926] } 1548s [00:52:28.926] }, args = future.call.arguments) 1548s [00:52:28.926] } 1548s [00:52:28.926] Tweak future expression to call with '...' arguments ... DONE 1548s [00:52:28.927] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1548s [00:52:28.927] 1548s [00:52:28.927] getGlobalsAndPackages() ... DONE 1548s [00:52:28.927] run() for ‘Future’ ... 1548s [00:52:28.927] - state: ‘created’ 1548s [00:52:28.928] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1548s [00:52:28.928] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1548s [00:52:28.928] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1548s [00:52:28.928] - Field: ‘label’ 1548s [00:52:28.928] - Field: ‘local’ 1548s [00:52:28.929] - Field: ‘owner’ 1548s [00:52:28.929] - Field: ‘envir’ 1548s [00:52:28.929] - Field: ‘packages’ 1548s [00:52:28.929] - Field: ‘gc’ 1548s [00:52:28.929] - Field: ‘conditions’ 1548s [00:52:28.929] - Field: ‘expr’ 1548s [00:52:28.929] - Field: ‘uuid’ 1548s [00:52:28.929] - Field: ‘seed’ 1548s [00:52:28.930] - Field: ‘version’ 1548s [00:52:28.930] - Field: ‘result’ 1548s [00:52:28.930] - Field: ‘asynchronous’ 1548s [00:52:28.930] - Field: ‘calls’ 1548s [00:52:28.931] - Field: ‘globals’ 1548s [00:52:28.931] - Field: ‘stdout’ 1548s [00:52:28.931] - Field: ‘earlySignal’ 1548s [00:52:28.931] - Field: ‘lazy’ 1548s [00:52:28.931] - Field: ‘state’ 1548s [00:52:28.931] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1548s [00:52:28.931] - Launch lazy future ... 1548s [00:52:28.932] Packages needed by the future expression (n = 0): 1548s [00:52:28.932] Packages needed by future strategies (n = 0): 1548s [00:52:28.932] { 1548s [00:52:28.932] { 1548s [00:52:28.932] { 1548s [00:52:28.932] ...future.startTime <- base::Sys.time() 1548s [00:52:28.932] { 1548s [00:52:28.932] { 1548s [00:52:28.932] { 1548s [00:52:28.932] base::local({ 1548s [00:52:28.932] has_future <- base::requireNamespace("future", 1548s [00:52:28.932] quietly = TRUE) 1548s [00:52:28.932] if (has_future) { 1548s [00:52:28.932] ns <- base::getNamespace("future") 1548s [00:52:28.932] version <- ns[[".package"]][["version"]] 1548s [00:52:28.932] if (is.null(version)) 1548s [00:52:28.932] version <- utils::packageVersion("future") 1548s [00:52:28.932] } 1548s [00:52:28.932] else { 1548s [00:52:28.932] version <- NULL 1548s [00:52:28.932] } 1548s [00:52:28.932] if (!has_future || version < "1.8.0") { 1548s [00:52:28.932] info <- base::c(r_version = base::gsub("R version ", 1548s [00:52:28.932] "", base::R.version$version.string), 1548s [00:52:28.932] platform = base::sprintf("%s (%s-bit)", 1548s [00:52:28.932] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1548s [00:52:28.932] os = base::paste(base::Sys.info()[base::c("sysname", 1548s [00:52:28.932] "release", "version")], collapse = " "), 1548s [00:52:28.932] hostname = base::Sys.info()[["nodename"]]) 1548s [00:52:28.932] info <- base::sprintf("%s: %s", base::names(info), 1548s [00:52:28.932] info) 1548s [00:52:28.932] info <- base::paste(info, collapse = "; ") 1548s [00:52:28.932] if (!has_future) { 1548s [00:52:28.932] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1548s [00:52:28.932] info) 1548s [00:52:28.932] } 1548s [00:52:28.932] else { 1548s [00:52:28.932] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1548s [00:52:28.932] info, version) 1548s [00:52:28.932] } 1548s [00:52:28.932] base::stop(msg) 1548s [00:52:28.932] } 1548s [00:52:28.932] }) 1548s [00:52:28.932] } 1548s [00:52:28.932] options(future.plan = NULL) 1548s [00:52:28.932] Sys.unsetenv("R_FUTURE_PLAN") 1548s [00:52:28.932] future::plan("default", .cleanup = FALSE, .init = FALSE) 1548s [00:52:28.932] } 1548s [00:52:28.932] ...future.workdir <- getwd() 1548s [00:52:28.932] } 1548s [00:52:28.932] ...future.oldOptions <- base::as.list(base::.Options) 1548s [00:52:28.932] ...future.oldEnvVars <- base::Sys.getenv() 1548s [00:52:28.932] } 1548s [00:52:28.932] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1548s [00:52:28.932] future.globals.maxSize = 2097152000, future.globals.method = NULL, 1548s [00:52:28.932] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1548s [00:52:28.932] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1548s [00:52:28.932] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1548s [00:52:28.932] future.stdout.windows.reencode = NULL, width = 80L) 1548s [00:52:28.932] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1548s [00:52:28.932] base::names(...future.oldOptions)) 1548s [00:52:28.932] } 1548s [00:52:28.932] if (FALSE) { 1548s [00:52:28.932] } 1548s [00:52:28.932] else { 1548s [00:52:28.932] if (TRUE) { 1548s [00:52:28.932] ...future.stdout <- base::rawConnection(base::raw(0L), 1548s [00:52:28.932] open = "w") 1548s [00:52:28.932] } 1548s [00:52:28.932] else { 1548s [00:52:28.932] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1548s [00:52:28.932] windows = "NUL", "/dev/null"), open = "w") 1548s [00:52:28.932] } 1548s [00:52:28.932] base::sink(...future.stdout, type = "output", split = FALSE) 1548s [00:52:28.932] base::on.exit(if (!base::is.null(...future.stdout)) { 1548s [00:52:28.932] base::sink(type = "output", split = FALSE) 1548s [00:52:28.932] base::close(...future.stdout) 1548s [00:52:28.932] }, add = TRUE) 1548s [00:52:28.932] } 1548s [00:52:28.932] ...future.frame <- base::sys.nframe() 1548s [00:52:28.932] ...future.conditions <- base::list() 1548s [00:52:28.932] ...future.rng <- base::globalenv()$.Random.seed 1548s [00:52:28.932] if (FALSE) { 1548s [00:52:28.932] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1548s [00:52:28.932] "...future.value", "...future.globalenv.names", ".Random.seed") 1548s [00:52:28.932] } 1548s [00:52:28.932] ...future.result <- base::tryCatch({ 1548s [00:52:28.932] base::withCallingHandlers({ 1548s [00:52:28.932] ...future.value <- base::withVisible(base::local({ 1548s [00:52:28.932] do.call(function(...) { 1548s [00:52:28.932] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1548s [00:52:28.932] if (!identical(...future.globals.maxSize.org, 1548s [00:52:28.932] ...future.globals.maxSize)) { 1548s [00:52:28.932] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1548s [00:52:28.932] on.exit(options(oopts), add = TRUE) 1548s [00:52:28.932] } 1548s [00:52:28.932] { 1548s [00:52:28.932] lapply(seq_along(...future.elements_ii), 1548s [00:52:28.932] FUN = function(jj) { 1548s [00:52:28.932] ...future.X_jj <- ...future.elements_ii[[jj]] 1548s [00:52:28.932] ...future.FUN(...future.X_jj, ...) 1548s [00:52:28.932] }) 1548s [00:52:28.932] } 1548s [00:52:28.932] }, args = future.call.arguments) 1548s [00:52:28.932] })) 1548s [00:52:28.932] future::FutureResult(value = ...future.value$value, 1548s [00:52:28.932] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1548s [00:52:28.932] ...future.rng), globalenv = if (FALSE) 1548s [00:52:28.932] list(added = base::setdiff(base::names(base::.GlobalEnv), 1548s [00:52:28.932] ...future.globalenv.names)) 1548s [00:52:28.932] else NULL, started = ...future.startTime, version = "1.8") 1548s [00:52:28.932] }, condition = base::local({ 1548s [00:52:28.932] c <- base::c 1548s [00:52:28.932] inherits <- base::inherits 1548s [00:52:28.932] invokeRestart <- base::invokeRestart 1548s [00:52:28.932] length <- base::length 1548s [00:52:28.932] list <- base::list 1548s [00:52:28.932] seq.int <- base::seq.int 1548s [00:52:28.932] signalCondition <- base::signalCondition 1548s [00:52:28.932] sys.calls <- base::sys.calls 1548s [00:52:28.932] `[[` <- base::`[[` 1548s [00:52:28.932] `+` <- base::`+` 1548s [00:52:28.932] `<<-` <- base::`<<-` 1548s [00:52:28.932] sysCalls <- function(calls = sys.calls(), from = 1L) { 1548s [00:52:28.932] calls[seq.int(from = from + 12L, to = length(calls) - 1548s [00:52:28.932] 3L)] 1548s [00:52:28.932] } 1548s [00:52:28.932] function(cond) { 1548s [00:52:28.932] is_error <- inherits(cond, "error") 1548s [00:52:28.932] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1548s [00:52:28.932] NULL) 1548s [00:52:28.932] if (is_error) { 1548s [00:52:28.932] sessionInformation <- function() { 1548s [00:52:28.932] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1548s [00:52:28.932] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1548s [00:52:28.932] search = base::search(), system = base::Sys.info()) 1548s [00:52:28.932] } 1548s [00:52:28.932] ...future.conditions[[length(...future.conditions) + 1548s [00:52:28.932] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1548s [00:52:28.932] cond$call), session = sessionInformation(), 1548s [00:52:28.932] timestamp = base::Sys.time(), signaled = 0L) 1548s [00:52:28.932] signalCondition(cond) 1548s [00:52:28.932] } 1548s [00:52:28.932] else if (!ignore && TRUE && inherits(cond, c("condition", 1548s [00:52:28.932] "immediateCondition"))) { 1548s [00:52:28.932] signal <- TRUE && inherits(cond, "immediateCondition") 1548s [00:52:28.932] ...future.conditions[[length(...future.conditions) + 1548s [00:52:28.932] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1548s [00:52:28.932] if (TRUE && !signal) { 1548s [00:52:28.932] muffleCondition <- function (cond, pattern = "^muffle") 1548s [00:52:28.932] { 1548s [00:52:28.932] inherits <- base::inherits 1548s [00:52:28.932] invokeRestart <- base::invokeRestart 1548s [00:52:28.932] is.null <- base::is.null 1548s [00:52:28.932] muffled <- FALSE 1548s [00:52:28.932] if (inherits(cond, "message")) { 1548s [00:52:28.932] muffled <- grepl(pattern, "muffleMessage") 1548s [00:52:28.932] if (muffled) 1548s [00:52:28.932] invokeRestart("muffleMessage") 1548s [00:52:28.932] } 1548s [00:52:28.932] else if (inherits(cond, "warning")) { 1548s [00:52:28.932] muffled <- grepl(pattern, "muffleWarning") 1548s [00:52:28.932] if (muffled) 1548s [00:52:28.932] invokeRestart("muffleWarning") 1548s [00:52:28.932] } 1548s [00:52:28.932] else if (inherits(cond, "condition")) { 1548s [00:52:28.932] if (!is.null(pattern)) { 1548s [00:52:28.932] computeRestarts <- base::computeRestarts 1548s [00:52:28.932] grepl <- base::grepl 1548s [00:52:28.932] restarts <- computeRestarts(cond) 1548s [00:52:28.932] for (restart in restarts) { 1548s [00:52:28.932] name <- restart$name 1548s [00:52:28.932] if (is.null(name)) 1548s [00:52:28.932] next 1548s [00:52:28.932] if (!grepl(pattern, name)) 1548s [00:52:28.932] next 1548s [00:52:28.932] invokeRestart(restart) 1548s [00:52:28.932] muffled <- TRUE 1548s [00:52:28.932] break 1548s [00:52:28.932] } 1548s [00:52:28.932] } 1548s [00:52:28.932] } 1548s [00:52:28.932] invisible(muffled) 1548s [00:52:28.932] } 1548s [00:52:28.932] muffleCondition(cond, pattern = "^muffle") 1548s [00:52:28.932] } 1548s [00:52:28.932] } 1548s [00:52:28.932] else { 1548s [00:52:28.932] if (TRUE) { 1548s [00:52:28.932] muffleCondition <- function (cond, pattern = "^muffle") 1548s [00:52:28.932] { 1548s [00:52:28.932] inherits <- base::inherits 1548s [00:52:28.932] invokeRestart <- base::invokeRestart 1548s [00:52:28.932] is.null <- base::is.null 1548s [00:52:28.932] muffled <- FALSE 1548s [00:52:28.932] if (inherits(cond, "message")) { 1548s [00:52:28.932] muffled <- grepl(pattern, "muffleMessage") 1548s [00:52:28.932] if (muffled) 1548s [00:52:28.932] invokeRestart("muffleMessage") 1548s [00:52:28.932] } 1548s [00:52:28.932] else if (inherits(cond, "warning")) { 1548s [00:52:28.932] muffled <- grepl(pattern, "muffleWarning") 1548s [00:52:28.932] if (muffled) 1548s [00:52:28.932] invokeRestart("muffleWarning") 1548s [00:52:28.932] } 1548s [00:52:28.932] else if (inherits(cond, "condition")) { 1548s [00:52:28.932] if (!is.null(pattern)) { 1548s [00:52:28.932] computeRestarts <- base::computeRestarts 1548s [00:52:28.932] grepl <- base::grepl 1548s [00:52:28.932] restarts <- computeRestarts(cond) 1548s [00:52:28.932] for (restart in restarts) { 1548s [00:52:28.932] name <- restart$name 1548s [00:52:28.932] if (is.null(name)) 1548s [00:52:28.932] next 1548s [00:52:28.932] if (!grepl(pattern, name)) 1548s [00:52:28.932] next 1548s [00:52:28.932] invokeRestart(restart) 1548s [00:52:28.932] muffled <- TRUE 1548s [00:52:28.932] break 1548s [00:52:28.932] } 1548s [00:52:28.932] } 1548s [00:52:28.932] } 1548s [00:52:28.932] invisible(muffled) 1548s [00:52:28.932] } 1548s [00:52:28.932] muffleCondition(cond, pattern = "^muffle") 1548s [00:52:28.932] } 1548s [00:52:28.932] } 1548s [00:52:28.932] } 1548s [00:52:28.932] })) 1548s [00:52:28.932] }, error = function(ex) { 1548s [00:52:28.932] base::structure(base::list(value = NULL, visible = NULL, 1548s [00:52:28.932] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1548s [00:52:28.932] ...future.rng), started = ...future.startTime, 1548s [00:52:28.932] finished = Sys.time(), session_uuid = NA_character_, 1548s [00:52:28.932] version = "1.8"), class = "FutureResult") 1548s [00:52:28.932] }, finally = { 1548s [00:52:28.932] if (!identical(...future.workdir, getwd())) 1548s [00:52:28.932] setwd(...future.workdir) 1548s [00:52:28.932] { 1548s [00:52:28.932] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1548s [00:52:28.932] ...future.oldOptions$nwarnings <- NULL 1548s [00:52:28.932] } 1548s [00:52:28.932] base::options(...future.oldOptions) 1548s [00:52:28.932] if (.Platform$OS.type == "windows") { 1548s [00:52:28.932] old_names <- names(...future.oldEnvVars) 1548s [00:52:28.932] envs <- base::Sys.getenv() 1548s [00:52:28.932] names <- names(envs) 1548s [00:52:28.932] common <- intersect(names, old_names) 1548s [00:52:28.932] added <- setdiff(names, old_names) 1548s [00:52:28.932] removed <- setdiff(old_names, names) 1548s [00:52:28.932] changed <- common[...future.oldEnvVars[common] != 1548s [00:52:28.932] envs[common]] 1548s [00:52:28.932] NAMES <- toupper(changed) 1548s [00:52:28.932] args <- list() 1548s [00:52:28.932] for (kk in seq_along(NAMES)) { 1548s [00:52:28.932] name <- changed[[kk]] 1548s [00:52:28.932] NAME <- NAMES[[kk]] 1548s [00:52:28.932] if (name != NAME && is.element(NAME, old_names)) 1548s [00:52:28.932] next 1548s [00:52:28.932] args[[name]] <- ...future.oldEnvVars[[name]] 1548s [00:52:28.932] } 1548s [00:52:28.932] NAMES <- toupper(added) 1548s [00:52:28.932] for (kk in seq_along(NAMES)) { 1548s [00:52:28.932] name <- added[[kk]] 1548s [00:52:28.932] NAME <- NAMES[[kk]] 1548s [00:52:28.932] if (name != NAME && is.element(NAME, old_names)) 1548s [00:52:28.932] next 1548s [00:52:28.932] args[[name]] <- "" 1548s [00:52:28.932] } 1548s [00:52:28.932] NAMES <- toupper(removed) 1548s [00:52:28.932] for (kk in seq_along(NAMES)) { 1548s [00:52:28.932] name <- removed[[kk]] 1548s [00:52:28.932] NAME <- NAMES[[kk]] 1548s [00:52:28.932] if (name != NAME && is.element(NAME, old_names)) 1548s [00:52:28.932] next 1548s [00:52:28.932] args[[name]] <- ...future.oldEnvVars[[name]] 1548s [00:52:28.932] } 1548s [00:52:28.932] if (length(args) > 0) 1548s [00:52:28.932] base::do.call(base::Sys.setenv, args = args) 1548s [00:52:28.932] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1548s [00:52:28.932] } 1548s [00:52:28.932] else { 1548s [00:52:28.932] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1548s [00:52:28.932] } 1548s [00:52:28.932] { 1548s [00:52:28.932] if (base::length(...future.futureOptionsAdded) > 1548s [00:52:28.932] 0L) { 1548s [00:52:28.932] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1548s [00:52:28.932] base::names(opts) <- ...future.futureOptionsAdded 1548s [00:52:28.932] base::options(opts) 1548s [00:52:28.932] } 1548s [00:52:28.932] { 1548s [00:52:28.932] { 1548s [00:52:28.932] NULL 1548s [00:52:28.932] RNGkind("Mersenne-Twister") 1548s [00:52:28.932] base::rm(list = ".Random.seed", envir = base::globalenv(), 1548s [00:52:28.932] inherits = FALSE) 1548s [00:52:28.932] } 1548s [00:52:28.932] options(future.plan = NULL) 1548s [00:52:28.932] if (is.na(NA_character_)) 1548s [00:52:28.932] Sys.unsetenv("R_FUTURE_PLAN") 1548s [00:52:28.932] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1548s [00:52:28.932] future::plan(list(function (..., envir = parent.frame()) 1548s [00:52:28.932] { 1548s [00:52:28.932] future <- SequentialFuture(..., envir = envir) 1548s [00:52:28.932] if (!future$lazy) 1548s [00:52:28.932] future <- run(future) 1548s [00:52:28.932] invisible(future) 1548s [00:52:28.932] }), .cleanup = FALSE, .init = FALSE) 1548s [00:52:28.932] } 1548s [00:52:28.932] } 1548s [00:52:28.932] } 1548s [00:52:28.932] }) 1548s [00:52:28.932] if (TRUE) { 1548s [00:52:28.932] base::sink(type = "output", split = FALSE) 1548s [00:52:28.932] if (TRUE) { 1548s [00:52:28.932] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1548s [00:52:28.932] } 1548s [00:52:28.932] else { 1548s [00:52:28.932] ...future.result["stdout"] <- base::list(NULL) 1548s [00:52:28.932] } 1548s [00:52:28.932] base::close(...future.stdout) 1548s [00:52:28.932] ...future.stdout <- NULL 1548s [00:52:28.932] } 1548s [00:52:28.932] ...future.result$conditions <- ...future.conditions 1548s [00:52:28.932] ...future.result$finished <- base::Sys.time() 1548s [00:52:28.932] ...future.result 1548s [00:52:28.932] } 1548s [00:52:28.940] assign_globals() ... 1548s [00:52:28.940] List of 5 1548s [00:52:28.940] $ ...future.FUN :function (mode = "logical", length = 0L) 1548s [00:52:28.940] $ future.call.arguments :List of 1 1548s [00:52:28.940] ..$ length: int 2 1548s [00:52:28.940] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1548s [00:52:28.940] $ ...future.elements_ii :List of 1 1548s [00:52:28.940] ..$ c: chr "list" 1548s [00:52:28.940] $ ...future.seeds_ii : NULL 1548s [00:52:28.940] $ ...future.globals.maxSize: NULL 1548s [00:52:28.940] - attr(*, "where")=List of 5 1548s [00:52:28.940] ..$ ...future.FUN : 1548s [00:52:28.940] ..$ future.call.arguments : 1548s [00:52:28.940] ..$ ...future.elements_ii : 1548s [00:52:28.940] ..$ ...future.seeds_ii : 1548s [00:52:28.940] ..$ ...future.globals.maxSize: 1548s [00:52:28.940] - attr(*, "resolved")= logi FALSE 1548s [00:52:28.940] - attr(*, "total_size")= num 2240 1548s [00:52:28.940] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1548s [00:52:28.940] - attr(*, "already-done")= logi TRUE 1548s [00:52:28.948] - copied ‘...future.FUN’ to environment 1548s [00:52:28.948] - copied ‘future.call.arguments’ to environment 1548s [00:52:28.948] - copied ‘...future.elements_ii’ to environment 1548s [00:52:28.948] - copied ‘...future.seeds_ii’ to environment 1548s [00:52:28.949] - copied ‘...future.globals.maxSize’ to environment 1548s [00:52:28.949] assign_globals() ... done 1548s [00:52:28.949] plan(): Setting new future strategy stack: 1548s [00:52:28.951] List of future strategies: 1548s [00:52:28.951] 1. sequential: 1548s [00:52:28.951] - args: function (..., envir = parent.frame()) 1548s [00:52:28.951] - tweaked: FALSE 1548s [00:52:28.951] - call: NULL 1548s [00:52:28.952] plan(): nbrOfWorkers() = 1 1548s [00:52:28.953] plan(): Setting new future strategy stack: 1548s [00:52:28.953] List of future strategies: 1548s [00:52:28.953] 1. sequential: 1548s [00:52:28.953] - args: function (..., envir = parent.frame()) 1548s [00:52:28.953] - tweaked: FALSE 1548s [00:52:28.953] - call: plan(strategy) 1548s [00:52:28.953] plan(): nbrOfWorkers() = 1 1548s [00:52:28.954] SequentialFuture started (and completed) 1548s [00:52:28.954] - Launch lazy future ... done 1548s [00:52:28.954] run() for ‘SequentialFuture’ ... done 1548s [00:52:28.955] Created future: 1548s [00:52:28.955] SequentialFuture: 1548s [00:52:28.955] Label: ‘future_lapply-4’ 1548s [00:52:28.955] Expression: 1548s [00:52:28.955] { 1548s [00:52:28.955] do.call(function(...) { 1548s [00:52:28.955] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1548s [00:52:28.955] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1548s [00:52:28.955] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1548s [00:52:28.955] on.exit(options(oopts), add = TRUE) 1548s [00:52:28.955] } 1548s [00:52:28.955] { 1548s [00:52:28.955] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1548s [00:52:28.955] ...future.X_jj <- ...future.elements_ii[[jj]] 1548s [00:52:28.955] ...future.FUN(...future.X_jj, ...) 1548s [00:52:28.955] }) 1548s [00:52:28.955] } 1548s [00:52:28.955] }, args = future.call.arguments) 1548s [00:52:28.955] } 1548s [00:52:28.955] Lazy evaluation: FALSE 1548s [00:52:28.955] Asynchronous evaluation: FALSE 1548s [00:52:28.955] Local evaluation: TRUE 1548s [00:52:28.955] Environment: R_GlobalEnv 1548s [00:52:28.955] Capture standard output: TRUE 1548s [00:52:28.955] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1548s [00:52:28.955] Globals: 5 objects totaling 2.30 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1548s [00:52:28.955] Packages: 1548s [00:52:28.955] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1548s [00:52:28.955] Resolved: TRUE 1548s [00:52:28.955] Value: 0 bytes of class ‘list’ 1548s [00:52:28.955] Early signaling: FALSE 1548s [00:52:28.955] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1548s [00:52:28.955] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1548s [00:52:28.957] Chunk #4 of 4 ... DONE 1548s [00:52:28.957] Launching 4 futures (chunks) ... DONE 1548s [00:52:28.957] Resolving 4 futures (chunks) ... 1548s [00:52:28.958] resolve() on list ... 1548s [00:52:28.958] recursive: 0 1548s [00:52:28.958] length: 4 1548s [00:52:28.958] 1548s [00:52:28.959] resolved() for ‘SequentialFuture’ ... 1548s [00:52:28.959] - state: ‘finished’ 1548s [00:52:28.959] - run: TRUE 1548s [00:52:28.959] - result: ‘FutureResult’ 1548s [00:52:28.960] resolved() for ‘SequentialFuture’ ... done 1548s [00:52:28.960] Future #1 1548s [00:52:28.961] signalConditionsASAP(SequentialFuture, pos=1) ... 1548s [00:52:28.961] - nx: 4 1548s [00:52:28.961] - relay: TRUE 1548s [00:52:28.961] - stdout: TRUE 1548s [00:52:28.962] - signal: TRUE 1548s [00:52:28.962] - resignal: FALSE 1548s [00:52:28.962] - force: TRUE 1548s [00:52:28.962] - relayed: [n=4] FALSE, FALSE, FALSE, FALSE 1548s [00:52:28.963] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE 1548s [00:52:28.963] - until=1 1548s [00:52:28.963] - relaying element #1 1548s [00:52:28.964] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE 1548s [00:52:28.964] - queued futures: [n=4] TRUE, FALSE, FALSE, FALSE 1548s [00:52:28.964] signalConditionsASAP(SequentialFuture, pos=1) ... done 1548s [00:52:28.965] length: 3 (resolved future 1) 1548s [00:52:28.965] resolved() for ‘SequentialFuture’ ... 1548s [00:52:28.965] - state: ‘finished’ 1548s [00:52:28.965] - run: TRUE 1548s [00:52:28.966] - result: ‘FutureResult’ 1548s [00:52:28.966] resolved() for ‘SequentialFuture’ ... done 1548s [00:52:28.966] Future #2 1548s [00:52:28.966] signalConditionsASAP(SequentialFuture, pos=2) ... 1548s [00:52:28.966] - nx: 4 1548s [00:52:28.966] - relay: TRUE 1548s [00:52:28.967] - stdout: TRUE 1548s [00:52:28.967] - signal: TRUE 1548s [00:52:28.967] - resignal: FALSE 1548s [00:52:28.967] - force: TRUE 1548s [00:52:28.967] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE 1548s [00:52:28.967] - queued futures: [n=4] TRUE, FALSE, FALSE, FALSE 1548s [00:52:28.968] - until=2 1549s [00:52:28.968] - relaying element #2 1549s [00:52:28.968] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE 1549s [00:52:28.969] - queued futures: [n=4] TRUE, TRUE, FALSE, FALSE 1549s [00:52:28.969] signalConditionsASAP(SequentialFuture, pos=2) ... done 1549s [00:52:28.969] length: 2 (resolved future 2) 1549s [00:52:28.970] resolved() for ‘SequentialFuture’ ... 1549s [00:52:28.970] - state: ‘finished’ 1549s [00:52:28.970] - run: TRUE 1549s [00:52:28.970] - result: ‘FutureResult’ 1549s [00:52:28.970] resolved() for ‘SequentialFuture’ ... done 1549s [00:52:28.970] Future #3 1549s [00:52:28.971] signalConditionsASAP(SequentialFuture, pos=3) ... 1549s [00:52:28.971] - nx: 4 1549s [00:52:28.971] - relay: TRUE 1549s [00:52:28.971] - stdout: TRUE 1549s [00:52:28.971] - signal: TRUE 1549s [00:52:28.971] - resignal: FALSE 1549s [00:52:28.971] - force: TRUE 1549s [00:52:28.971] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE 1549s [00:52:28.971] - queued futures: [n=4] TRUE, TRUE, FALSE, FALSE 1549s [00:52:28.971] - until=3 1549s [00:52:28.972] - relaying element #3 1549s [00:52:28.972] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE 1549s [00:52:28.972] - queued futures: [n=4] TRUE, TRUE, TRUE, FALSE 1549s [00:52:28.972] signalConditionsASAP(SequentialFuture, pos=3) ... done 1549s [00:52:28.972] length: 1 (resolved future 3) 1549s [00:52:28.972] resolved() for ‘SequentialFuture’ ... 1549s [00:52:28.972] - state: ‘finished’ 1549s [00:52:28.973] - run: TRUE 1549s [00:52:28.973] - result: ‘FutureResult’ 1549s [00:52:28.974] resolved() for ‘SequentialFuture’ ... done 1549s [00:52:28.974] Future #4 1549s [00:52:28.974] signalConditionsASAP(SequentialFuture, pos=4) ... 1549s [00:52:28.974] - nx: 4 1549s [00:52:28.974] - relay: TRUE 1549s [00:52:28.975] - stdout: TRUE 1549s [00:52:28.975] - signal: TRUE 1549s [00:52:28.975] - resignal: FALSE 1549s [00:52:28.975] - force: TRUE 1549s [00:52:28.976] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE 1549s [00:52:28.976] - queued futures: [n=4] TRUE, TRUE, TRUE, FALSE 1549s [00:52:28.976] - until=4 1549s [00:52:28.976] - relaying element #4 1549s [00:52:28.977] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE 1549s [00:52:28.977] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE 1549s [00:52:28.977] signalConditionsASAP(SequentialFuture, pos=4) ... done 1549s [00:52:28.977] length: 0 (resolved future 4) 1549s [00:52:28.977] Relaying remaining futures 1549s [00:52:28.978] signalConditionsASAP(NULL, pos=0) ... 1549s [00:52:28.978] - nx: 4 1549s [00:52:28.978] - relay: TRUE 1549s [00:52:28.978] - stdout: TRUE 1549s [00:52:28.978] - signal: TRUE 1549s [00:52:28.978] - resignal: FALSE 1549s [00:52:28.979] - force: TRUE 1549s [00:52:28.979] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE 1549s [00:52:28.979] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE 1549s - flush all 1549s [00:52:28.980] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE 1549s [00:52:28.980] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE 1549s [00:52:28.980] signalConditionsASAP(NULL, pos=0) ... done 1549s [00:52:28.980] resolve() on list ... DONE 1549s [00:52:28.981] - Number of value chunks collected: 4 1549s [00:52:28.981] Resolving 4 futures (chunks) ... DONE 1549s [00:52:28.981] Reducing values from 4 chunks ... 1549s [00:52:28.982] - Number of values collected after concatenation: 4 1549s [00:52:28.982] - Number of values expected: 4 1549s [00:52:28.982] Reducing values from 4 chunks ... DONE 1549s [00:52:28.983] future_lapply() ... DONE 1549s List of 1 1549s $ y:List of 4 1549s ..$ a: int [1:2] 0 0 1549s ..$ b: num [1:2] 0 0 1549s ..$ c: chr [1:2] "" "" 1549s ..$ c:List of 2 1549s .. ..$ : NULL 1549s .. ..$ : NULL 1549s [00:52:28.988] future_lapply() ... 1549s [00:52:28.989] Number of chunks: 4 1549s [00:52:28.989] getGlobalsAndPackagesXApply() ... 1549s [00:52:28.989] - future.globals: TRUE 1549s [00:52:28.990] getGlobalsAndPackages() ... 1549s [00:52:28.990] Searching for globals... 1549s [00:52:28.992] - globals found: [2] ‘FUN’, ‘.Internal’ 1549s [00:52:28.992] Searching for globals ... DONE 1549s [00:52:28.992] Resolving globals: FALSE 1549s [00:52:28.993] The total size of the 1 globals is 2.13 KiB (2184 bytes) 1549s [00:52:28.994] The total size of the 1 globals exported for future expression (‘FUN(length = 2L)’) is 2.13 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (2.13 KiB of class ‘function’) 1549s [00:52:28.994] - globals: [1] ‘FUN’ 1549s [00:52:28.994] 1549s [00:52:28.994] getGlobalsAndPackages() ... DONE 1549s [00:52:28.995] - globals found/used: [n=1] ‘FUN’ 1549s [00:52:28.995] - needed namespaces: [n=0] 1549s [00:52:28.995] Finding globals ... DONE 1549s [00:52:28.996] - use_args: TRUE 1549s [00:52:28.996] - Getting '...' globals ... 1549s [00:52:28.996] resolve() on list ... 1549s [00:52:28.997] recursive: 0 1549s [00:52:28.997] length: 1 1549s [00:52:28.997] elements: ‘...’ 1549s [00:52:28.997] length: 0 (resolved future 1) 1549s [00:52:28.997] resolve() on list ... DONE 1549s [00:52:28.997] - '...' content: [n=1] ‘length’ 1549s [00:52:28.998] List of 1 1549s [00:52:28.998] $ ...:List of 1 1549s [00:52:28.998] ..$ length: int 2 1549s [00:52:28.998] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1549s [00:52:28.998] - attr(*, "where")=List of 1 1549s [00:52:28.998] ..$ ...: 1549s [00:52:28.998] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1549s [00:52:28.998] - attr(*, "resolved")= logi TRUE 1549s [00:52:28.998] - attr(*, "total_size")= num NA 1549s [00:52:29.008] - Getting '...' globals ... DONE 1549s [00:52:29.008] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1549s [00:52:29.008] List of 2 1549s [00:52:29.008] $ ...future.FUN:function (mode = "logical", length = 0L) 1549s [00:52:29.008] $ ... :List of 1 1549s [00:52:29.008] ..$ length: int 2 1549s [00:52:29.008] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1549s [00:52:29.008] - attr(*, "where")=List of 2 1549s [00:52:29.008] ..$ ...future.FUN: 1549s [00:52:29.008] ..$ ... : 1549s [00:52:29.008] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1549s [00:52:29.008] - attr(*, "resolved")= logi FALSE 1549s [00:52:29.008] - attr(*, "total_size")= num 2240 1549s [00:52:29.012] Packages to be attached in all futures: [n=0] 1549s [00:52:29.012] getGlobalsAndPackagesXApply() ... DONE 1549s [00:52:29.013] Number of futures (= number of chunks): 4 1549s [00:52:29.013] Launching 4 futures (chunks) ... 1549s [00:52:29.013] Chunk #1 of 4 ... 1549s [00:52:29.013] - Finding globals in 'X' for chunk #1 ... 1549s [00:52:29.013] getGlobalsAndPackages() ... 1549s [00:52:29.014] Searching for globals... 1549s [00:52:29.014] 1549s [00:52:29.014] Searching for globals ... DONE 1549s [00:52:29.014] - globals: [0] 1549s [00:52:29.014] getGlobalsAndPackages() ... DONE 1549s [00:52:29.015] + additional globals found: [n=0] 1549s [00:52:29.015] + additional namespaces needed: [n=0] 1549s [00:52:29.016] - Finding globals in 'X' for chunk #1 ... DONE 1549s [00:52:29.016] - Adjusted option 'future.globals.maxSize': 524288000 -> 4 * 524288000 = 2097152000 (bytes) 1549s [00:52:29.016] - seeds: 1549s [00:52:29.016] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.016] getGlobalsAndPackages() ... 1549s [00:52:29.016] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.017] Resolving globals: FALSE 1549s [00:52:29.017] Tweak future expression to call with '...' arguments ... 1549s [00:52:29.018] { 1549s [00:52:29.018] do.call(function(...) { 1549s [00:52:29.018] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.018] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1549s [00:52:29.018] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.018] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.018] } 1549s [00:52:29.018] { 1549s [00:52:29.018] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1549s [00:52:29.018] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.018] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.018] }) 1549s [00:52:29.018] } 1549s [00:52:29.018] }, args = future.call.arguments) 1549s [00:52:29.018] } 1549s [00:52:29.020] Tweak future expression to call with '...' arguments ... DONE 1549s [00:52:29.021] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.022] 1549s [00:52:29.022] getGlobalsAndPackages() ... DONE 1549s [00:52:29.023] run() for ‘Future’ ... 1549s [00:52:29.025] - state: ‘created’ 1549s [00:52:29.025] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1549s [00:52:29.026] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1549s [00:52:29.026] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1549s [00:52:29.026] - Field: ‘label’ 1549s [00:52:29.026] - Field: ‘local’ 1549s [00:52:29.026] - Field: ‘owner’ 1549s [00:52:29.026] - Field: ‘envir’ 1549s [00:52:29.026] - Field: ‘packages’ 1549s [00:52:29.027] - Field: ‘gc’ 1549s [00:52:29.027] - Field: ‘conditions’ 1549s [00:52:29.027] - Field: ‘expr’ 1549s [00:52:29.027] - Field: ‘uuid’ 1549s [00:52:29.027] - Field: ‘seed’ 1549s [00:52:29.027] - Field: ‘version’ 1549s [00:52:29.028] - Field: ‘result’ 1549s [00:52:29.028] - Field: ‘asynchronous’ 1549s [00:52:29.028] - Field: ‘calls’ 1549s [00:52:29.028] - Field: ‘globals’ 1549s [00:52:29.028] - Field: ‘stdout’ 1549s [00:52:29.028] - Field: ‘earlySignal’ 1549s [00:52:29.029] - Field: ‘lazy’ 1549s [00:52:29.029] - Field: ‘state’ 1549s [00:52:29.029] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1549s [00:52:29.030] - Launch lazy future ... 1549s [00:52:29.030] Packages needed by the future expression (n = 0): 1549s [00:52:29.030] Packages needed by future strategies (n = 0): 1549s [00:52:29.031] { 1549s [00:52:29.031] { 1549s [00:52:29.031] { 1549s [00:52:29.031] ...future.startTime <- base::Sys.time() 1549s [00:52:29.031] { 1549s [00:52:29.031] { 1549s [00:52:29.031] { 1549s [00:52:29.031] base::local({ 1549s [00:52:29.031] has_future <- base::requireNamespace("future", 1549s [00:52:29.031] quietly = TRUE) 1549s [00:52:29.031] if (has_future) { 1549s [00:52:29.031] ns <- base::getNamespace("future") 1549s [00:52:29.031] version <- ns[[".package"]][["version"]] 1549s [00:52:29.031] if (is.null(version)) 1549s [00:52:29.031] version <- utils::packageVersion("future") 1549s [00:52:29.031] } 1549s [00:52:29.031] else { 1549s [00:52:29.031] version <- NULL 1549s [00:52:29.031] } 1549s [00:52:29.031] if (!has_future || version < "1.8.0") { 1549s [00:52:29.031] info <- base::c(r_version = base::gsub("R version ", 1549s [00:52:29.031] "", base::R.version$version.string), 1549s [00:52:29.031] platform = base::sprintf("%s (%s-bit)", 1549s [00:52:29.031] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1549s [00:52:29.031] os = base::paste(base::Sys.info()[base::c("sysname", 1549s [00:52:29.031] "release", "version")], collapse = " "), 1549s [00:52:29.031] hostname = base::Sys.info()[["nodename"]]) 1549s [00:52:29.031] info <- base::sprintf("%s: %s", base::names(info), 1549s [00:52:29.031] info) 1549s [00:52:29.031] info <- base::paste(info, collapse = "; ") 1549s [00:52:29.031] if (!has_future) { 1549s [00:52:29.031] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1549s [00:52:29.031] info) 1549s [00:52:29.031] } 1549s [00:52:29.031] else { 1549s [00:52:29.031] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1549s [00:52:29.031] info, version) 1549s [00:52:29.031] } 1549s [00:52:29.031] base::stop(msg) 1549s [00:52:29.031] } 1549s [00:52:29.031] }) 1549s [00:52:29.031] } 1549s [00:52:29.031] options(future.plan = NULL) 1549s [00:52:29.031] Sys.unsetenv("R_FUTURE_PLAN") 1549s [00:52:29.031] future::plan("default", .cleanup = FALSE, .init = FALSE) 1549s [00:52:29.031] } 1549s [00:52:29.031] ...future.workdir <- getwd() 1549s [00:52:29.031] } 1549s [00:52:29.031] ...future.oldOptions <- base::as.list(base::.Options) 1549s [00:52:29.031] ...future.oldEnvVars <- base::Sys.getenv() 1549s [00:52:29.031] } 1549s [00:52:29.031] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1549s [00:52:29.031] future.globals.maxSize = 2097152000, future.globals.method = NULL, 1549s [00:52:29.031] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1549s [00:52:29.031] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1549s [00:52:29.031] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1549s [00:52:29.031] future.stdout.windows.reencode = NULL, width = 80L) 1549s [00:52:29.031] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1549s [00:52:29.031] base::names(...future.oldOptions)) 1549s [00:52:29.031] } 1549s [00:52:29.031] if (FALSE) { 1549s [00:52:29.031] } 1549s [00:52:29.031] else { 1549s [00:52:29.031] if (TRUE) { 1549s [00:52:29.031] ...future.stdout <- base::rawConnection(base::raw(0L), 1549s [00:52:29.031] open = "w") 1549s [00:52:29.031] } 1549s [00:52:29.031] else { 1549s [00:52:29.031] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1549s [00:52:29.031] windows = "NUL", "/dev/null"), open = "w") 1549s [00:52:29.031] } 1549s [00:52:29.031] base::sink(...future.stdout, type = "output", split = FALSE) 1549s [00:52:29.031] base::on.exit(if (!base::is.null(...future.stdout)) { 1549s [00:52:29.031] base::sink(type = "output", split = FALSE) 1549s [00:52:29.031] base::close(...future.stdout) 1549s [00:52:29.031] }, add = TRUE) 1549s [00:52:29.031] } 1549s [00:52:29.031] ...future.frame <- base::sys.nframe() 1549s [00:52:29.031] ...future.conditions <- base::list() 1549s [00:52:29.031] ...future.rng <- base::globalenv()$.Random.seed 1549s [00:52:29.031] if (FALSE) { 1549s [00:52:29.031] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1549s [00:52:29.031] "...future.value", "...future.globalenv.names", ".Random.seed") 1549s [00:52:29.031] } 1549s [00:52:29.031] ...future.result <- base::tryCatch({ 1549s [00:52:29.031] base::withCallingHandlers({ 1549s [00:52:29.031] ...future.value <- base::withVisible(base::local({ 1549s [00:52:29.031] do.call(function(...) { 1549s [00:52:29.031] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.031] if (!identical(...future.globals.maxSize.org, 1549s [00:52:29.031] ...future.globals.maxSize)) { 1549s [00:52:29.031] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.031] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.031] } 1549s [00:52:29.031] { 1549s [00:52:29.031] lapply(seq_along(...future.elements_ii), 1549s [00:52:29.031] FUN = function(jj) { 1549s [00:52:29.031] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.031] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.031] }) 1549s [00:52:29.031] } 1549s [00:52:29.031] }, args = future.call.arguments) 1549s [00:52:29.031] })) 1549s [00:52:29.031] future::FutureResult(value = ...future.value$value, 1549s [00:52:29.031] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1549s [00:52:29.031] ...future.rng), globalenv = if (FALSE) 1549s [00:52:29.031] list(added = base::setdiff(base::names(base::.GlobalEnv), 1549s [00:52:29.031] ...future.globalenv.names)) 1549s [00:52:29.031] else NULL, started = ...future.startTime, version = "1.8") 1549s [00:52:29.031] }, condition = base::local({ 1549s [00:52:29.031] c <- base::c 1549s [00:52:29.031] inherits <- base::inherits 1549s [00:52:29.031] invokeRestart <- base::invokeRestart 1549s [00:52:29.031] length <- base::length 1549s [00:52:29.031] list <- base::list 1549s [00:52:29.031] seq.int <- base::seq.int 1549s [00:52:29.031] signalCondition <- base::signalCondition 1549s [00:52:29.031] sys.calls <- base::sys.calls 1549s [00:52:29.031] `[[` <- base::`[[` 1549s [00:52:29.031] `+` <- base::`+` 1549s [00:52:29.031] `<<-` <- base::`<<-` 1549s [00:52:29.031] sysCalls <- function(calls = sys.calls(), from = 1L) { 1549s [00:52:29.031] calls[seq.int(from = from + 12L, to = length(calls) - 1549s [00:52:29.031] 3L)] 1549s [00:52:29.031] } 1549s [00:52:29.031] function(cond) { 1549s [00:52:29.031] is_error <- inherits(cond, "error") 1549s [00:52:29.031] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1549s [00:52:29.031] NULL) 1549s [00:52:29.031] if (is_error) { 1549s [00:52:29.031] sessionInformation <- function() { 1549s [00:52:29.031] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1549s [00:52:29.031] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1549s [00:52:29.031] search = base::search(), system = base::Sys.info()) 1549s [00:52:29.031] } 1549s [00:52:29.031] ...future.conditions[[length(...future.conditions) + 1549s [00:52:29.031] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1549s [00:52:29.031] cond$call), session = sessionInformation(), 1549s [00:52:29.031] timestamp = base::Sys.time(), signaled = 0L) 1549s [00:52:29.031] signalCondition(cond) 1549s [00:52:29.031] } 1549s [00:52:29.031] else if (!ignore && TRUE && inherits(cond, c("condition", 1549s [00:52:29.031] "immediateCondition"))) { 1549s [00:52:29.031] signal <- TRUE && inherits(cond, "immediateCondition") 1549s [00:52:29.031] ...future.conditions[[length(...future.conditions) + 1549s [00:52:29.031] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1549s [00:52:29.031] if (TRUE && !signal) { 1549s [00:52:29.031] muffleCondition <- function (cond, pattern = "^muffle") 1549s [00:52:29.031] { 1549s [00:52:29.031] inherits <- base::inherits 1549s [00:52:29.031] invokeRestart <- base::invokeRestart 1549s [00:52:29.031] is.null <- base::is.null 1549s [00:52:29.031] muffled <- FALSE 1549s [00:52:29.031] if (inherits(cond, "message")) { 1549s [00:52:29.031] muffled <- grepl(pattern, "muffleMessage") 1549s [00:52:29.031] if (muffled) 1549s [00:52:29.031] invokeRestart("muffleMessage") 1549s [00:52:29.031] } 1549s [00:52:29.031] else if (inherits(cond, "warning")) { 1549s [00:52:29.031] muffled <- grepl(pattern, "muffleWarning") 1549s [00:52:29.031] if (muffled) 1549s [00:52:29.031] invokeRestart("muffleWarning") 1549s [00:52:29.031] } 1549s [00:52:29.031] else if (inherits(cond, "condition")) { 1549s [00:52:29.031] if (!is.null(pattern)) { 1549s [00:52:29.031] computeRestarts <- base::computeRestarts 1549s [00:52:29.031] grepl <- base::grepl 1549s [00:52:29.031] restarts <- computeRestarts(cond) 1549s [00:52:29.031] for (restart in restarts) { 1549s [00:52:29.031] name <- restart$name 1549s [00:52:29.031] if (is.null(name)) 1549s [00:52:29.031] next 1549s [00:52:29.031] if (!grepl(pattern, name)) 1549s [00:52:29.031] next 1549s [00:52:29.031] invokeRestart(restart) 1549s [00:52:29.031] muffled <- TRUE 1549s [00:52:29.031] break 1549s [00:52:29.031] } 1549s [00:52:29.031] } 1549s [00:52:29.031] } 1549s [00:52:29.031] invisible(muffled) 1549s [00:52:29.031] } 1549s [00:52:29.031] muffleCondition(cond, pattern = "^muffle") 1549s [00:52:29.031] } 1549s [00:52:29.031] } 1549s [00:52:29.031] else { 1549s [00:52:29.031] if (TRUE) { 1549s [00:52:29.031] muffleCondition <- function (cond, pattern = "^muffle") 1549s [00:52:29.031] { 1549s [00:52:29.031] inherits <- base::inherits 1549s [00:52:29.031] invokeRestart <- base::invokeRestart 1549s [00:52:29.031] is.null <- base::is.null 1549s [00:52:29.031] muffled <- FALSE 1549s [00:52:29.031] if (inherits(cond, "message")) { 1549s [00:52:29.031] muffled <- grepl(pattern, "muffleMessage") 1549s [00:52:29.031] if (muffled) 1549s [00:52:29.031] invokeRestart("muffleMessage") 1549s [00:52:29.031] } 1549s [00:52:29.031] else if (inherits(cond, "warning")) { 1549s [00:52:29.031] muffled <- grepl(pattern, "muffleWarning") 1549s [00:52:29.031] if (muffled) 1549s [00:52:29.031] invokeRestart("muffleWarning") 1549s [00:52:29.031] } 1549s [00:52:29.031] else if (inherits(cond, "condition")) { 1549s [00:52:29.031] if (!is.null(pattern)) { 1549s [00:52:29.031] computeRestarts <- base::computeRestarts 1549s [00:52:29.031] grepl <- base::grepl 1549s [00:52:29.031] restarts <- computeRestarts(cond) 1549s [00:52:29.031] for (restart in restarts) { 1549s [00:52:29.031] name <- restart$name 1549s [00:52:29.031] if (is.null(name)) 1549s [00:52:29.031] next 1549s [00:52:29.031] if (!grepl(pattern, name)) 1549s [00:52:29.031] next 1549s [00:52:29.031] invokeRestart(restart) 1549s [00:52:29.031] muffled <- TRUE 1549s [00:52:29.031] break 1549s [00:52:29.031] } 1549s [00:52:29.031] } 1549s [00:52:29.031] } 1549s [00:52:29.031] invisible(muffled) 1549s [00:52:29.031] } 1549s [00:52:29.031] muffleCondition(cond, pattern = "^muffle") 1549s [00:52:29.031] } 1549s [00:52:29.031] } 1549s [00:52:29.031] } 1549s [00:52:29.031] })) 1549s [00:52:29.031] }, error = function(ex) { 1549s [00:52:29.031] base::structure(base::list(value = NULL, visible = NULL, 1549s [00:52:29.031] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1549s [00:52:29.031] ...future.rng), started = ...future.startTime, 1549s [00:52:29.031] finished = Sys.time(), session_uuid = NA_character_, 1549s [00:52:29.031] version = "1.8"), class = "FutureResult") 1549s [00:52:29.031] }, finally = { 1549s [00:52:29.031] if (!identical(...future.workdir, getwd())) 1549s [00:52:29.031] setwd(...future.workdir) 1549s [00:52:29.031] { 1549s [00:52:29.031] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1549s [00:52:29.031] ...future.oldOptions$nwarnings <- NULL 1549s [00:52:29.031] } 1549s [00:52:29.031] base::options(...future.oldOptions) 1549s [00:52:29.031] if (.Platform$OS.type == "windows") { 1549s [00:52:29.031] old_names <- names(...future.oldEnvVars) 1549s [00:52:29.031] envs <- base::Sys.getenv() 1549s [00:52:29.031] names <- names(envs) 1549s [00:52:29.031] common <- intersect(names, old_names) 1549s [00:52:29.031] added <- setdiff(names, old_names) 1549s [00:52:29.031] removed <- setdiff(old_names, names) 1549s [00:52:29.031] changed <- common[...future.oldEnvVars[common] != 1549s [00:52:29.031] envs[common]] 1549s [00:52:29.031] NAMES <- toupper(changed) 1549s [00:52:29.031] args <- list() 1549s [00:52:29.031] for (kk in seq_along(NAMES)) { 1549s [00:52:29.031] name <- changed[[kk]] 1549s [00:52:29.031] NAME <- NAMES[[kk]] 1549s [00:52:29.031] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.031] next 1549s [00:52:29.031] args[[name]] <- ...future.oldEnvVars[[name]] 1549s [00:52:29.031] } 1549s [00:52:29.031] NAMES <- toupper(added) 1549s [00:52:29.031] for (kk in seq_along(NAMES)) { 1549s [00:52:29.031] name <- added[[kk]] 1549s [00:52:29.031] NAME <- NAMES[[kk]] 1549s [00:52:29.031] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.031] next 1549s [00:52:29.031] args[[name]] <- "" 1549s [00:52:29.031] } 1549s [00:52:29.031] NAMES <- toupper(removed) 1549s [00:52:29.031] for (kk in seq_along(NAMES)) { 1549s [00:52:29.031] name <- removed[[kk]] 1549s [00:52:29.031] NAME <- NAMES[[kk]] 1549s [00:52:29.031] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.031] next 1549s [00:52:29.031] args[[name]] <- ...future.oldEnvVars[[name]] 1549s [00:52:29.031] } 1549s [00:52:29.031] if (length(args) > 0) 1549s [00:52:29.031] base::do.call(base::Sys.setenv, args = args) 1549s [00:52:29.031] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1549s [00:52:29.031] } 1549s [00:52:29.031] else { 1549s [00:52:29.031] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1549s [00:52:29.031] } 1549s [00:52:29.031] { 1549s [00:52:29.031] if (base::length(...future.futureOptionsAdded) > 1549s [00:52:29.031] 0L) { 1549s [00:52:29.031] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1549s [00:52:29.031] base::names(opts) <- ...future.futureOptionsAdded 1549s [00:52:29.031] base::options(opts) 1549s [00:52:29.031] } 1549s [00:52:29.031] { 1549s [00:52:29.031] { 1549s [00:52:29.031] NULL 1549s [00:52:29.031] RNGkind("Mersenne-Twister") 1549s [00:52:29.031] base::rm(list = ".Random.seed", envir = base::globalenv(), 1549s [00:52:29.031] inherits = FALSE) 1549s [00:52:29.031] } 1549s [00:52:29.031] options(future.plan = NULL) 1549s [00:52:29.031] if (is.na(NA_character_)) 1549s [00:52:29.031] Sys.unsetenv("R_FUTURE_PLAN") 1549s [00:52:29.031] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1549s [00:52:29.031] future::plan(list(function (..., envir = parent.frame()) 1549s [00:52:29.031] { 1549s [00:52:29.031] future <- SequentialFuture(..., envir = envir) 1549s [00:52:29.031] if (!future$lazy) 1549s [00:52:29.031] future <- run(future) 1549s [00:52:29.031] invisible(future) 1549s [00:52:29.031] }), .cleanup = FALSE, .init = FALSE) 1549s [00:52:29.031] } 1549s [00:52:29.031] } 1549s [00:52:29.031] } 1549s [00:52:29.031] }) 1549s [00:52:29.031] if (TRUE) { 1549s [00:52:29.031] base::sink(type = "output", split = FALSE) 1549s [00:52:29.031] if (TRUE) { 1549s [00:52:29.031] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1549s [00:52:29.031] } 1549s [00:52:29.031] else { 1549s [00:52:29.031] ...future.result["stdout"] <- base::list(NULL) 1549s [00:52:29.031] } 1549s [00:52:29.031] base::close(...future.stdout) 1549s [00:52:29.031] ...future.stdout <- NULL 1549s [00:52:29.031] } 1549s [00:52:29.031] ...future.result$conditions <- ...future.conditions 1549s [00:52:29.031] ...future.result$finished <- base::Sys.time() 1549s [00:52:29.031] ...future.result 1549s [00:52:29.031] } 1549s [00:52:29.036] assign_globals() ... 1549s [00:52:29.037] List of 5 1549s [00:52:29.037] $ ...future.FUN :function (mode = "logical", length = 0L) 1549s [00:52:29.037] $ future.call.arguments :List of 1 1549s [00:52:29.037] ..$ length: int 2 1549s [00:52:29.037] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1549s [00:52:29.037] $ ...future.elements_ii :List of 1 1549s [00:52:29.037] ..$ a: chr "integer" 1549s [00:52:29.037] $ ...future.seeds_ii : NULL 1549s [00:52:29.037] $ ...future.globals.maxSize: NULL 1549s [00:52:29.037] - attr(*, "where")=List of 5 1549s [00:52:29.037] ..$ ...future.FUN : 1549s [00:52:29.037] ..$ future.call.arguments : 1549s [00:52:29.037] ..$ ...future.elements_ii : 1549s [00:52:29.037] ..$ ...future.seeds_ii : 1549s [00:52:29.037] ..$ ...future.globals.maxSize: 1549s [00:52:29.037] - attr(*, "resolved")= logi FALSE 1549s [00:52:29.037] - attr(*, "total_size")= num 2240 1549s [00:52:29.037] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1549s [00:52:29.037] - attr(*, "already-done")= logi TRUE 1549s [00:52:29.047] - copied ‘...future.FUN’ to environment 1549s [00:52:29.047] - copied ‘future.call.arguments’ to environment 1549s [00:52:29.047] - copied ‘...future.elements_ii’ to environment 1549s [00:52:29.048] - copied ‘...future.seeds_ii’ to environment 1549s [00:52:29.048] - copied ‘...future.globals.maxSize’ to environment 1549s [00:52:29.048] assign_globals() ... done 1549s [00:52:29.048] plan(): Setting new future strategy stack: 1549s [00:52:29.048] List of future strategies: 1549s [00:52:29.048] 1. sequential: 1549s [00:52:29.048] - args: function (..., envir = parent.frame()) 1549s [00:52:29.048] - tweaked: FALSE 1549s [00:52:29.048] - call: NULL 1549s [00:52:29.049] plan(): nbrOfWorkers() = 1 1549s [00:52:29.050] plan(): Setting new future strategy stack: 1549s [00:52:29.050] List of future strategies: 1549s [00:52:29.050] 1. sequential: 1549s [00:52:29.050] - args: function (..., envir = parent.frame()) 1549s [00:52:29.050] - tweaked: FALSE 1549s [00:52:29.050] - call: plan(strategy) 1549s [00:52:29.050] plan(): nbrOfWorkers() = 1 1549s [00:52:29.051] SequentialFuture started (and completed) 1549s [00:52:29.051] - Launch lazy future ... done 1549s [00:52:29.051] run() for ‘SequentialFuture’ ... done 1549s [00:52:29.051] Created future: 1549s [00:52:29.051] SequentialFuture: 1549s [00:52:29.051] Label: ‘future_lapply-1’ 1549s [00:52:29.051] Expression: 1549s [00:52:29.051] { 1549s [00:52:29.051] do.call(function(...) { 1549s [00:52:29.051] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.051] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1549s [00:52:29.051] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.051] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.051] } 1549s [00:52:29.051] { 1549s [00:52:29.051] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1549s [00:52:29.051] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.051] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.051] }) 1549s [00:52:29.051] } 1549s [00:52:29.051] }, args = future.call.arguments) 1549s [00:52:29.051] } 1549s [00:52:29.051] Lazy evaluation: FALSE 1549s [00:52:29.051] Asynchronous evaluation: FALSE 1549s [00:52:29.051] Local evaluation: TRUE 1549s [00:52:29.051] Environment: R_GlobalEnv 1549s [00:52:29.051] Capture standard output: TRUE 1549s [00:52:29.051] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1549s [00:52:29.051] Globals: 5 objects totaling 2.30 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1549s [00:52:29.051] Packages: 1549s [00:52:29.051] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1549s [00:52:29.051] Resolved: TRUE 1549s [00:52:29.051] Value: 56 bytes of class ‘list’ 1549s [00:52:29.051] Early signaling: FALSE 1549s [00:52:29.051] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1549s [00:52:29.051] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1549s [00:52:29.053] Chunk #1 of 4 ... DONE 1549s [00:52:29.053] Chunk #2 of 4 ... 1549s [00:52:29.053] - Finding globals in 'X' for chunk #2 ... 1549s [00:52:29.053] getGlobalsAndPackages() ... 1549s [00:52:29.054] Searching for globals... 1549s [00:52:29.058] 1549s [00:52:29.058] Searching for globals ... DONE 1549s [00:52:29.058] - globals: [0] 1549s [00:52:29.058] getGlobalsAndPackages() ... DONE 1549s [00:52:29.059] + additional globals found: [n=0] 1549s [00:52:29.059] + additional namespaces needed: [n=0] 1549s [00:52:29.059] - Finding globals in 'X' for chunk #2 ... DONE 1549s [00:52:29.059] - Adjusted option 'future.globals.maxSize': 524288000 -> 4 * 524288000 = 2097152000 (bytes) 1549s [00:52:29.059] - seeds: 1549s [00:52:29.059] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.059] getGlobalsAndPackages() ... 1549s [00:52:29.060] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.060] Resolving globals: FALSE 1549s [00:52:29.060] Tweak future expression to call with '...' arguments ... 1549s [00:52:29.060] { 1549s [00:52:29.060] do.call(function(...) { 1549s [00:52:29.060] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.060] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1549s [00:52:29.060] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.060] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.060] } 1549s [00:52:29.060] { 1549s [00:52:29.060] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1549s [00:52:29.060] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.060] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.060] }) 1549s [00:52:29.060] } 1549s [00:52:29.060] }, args = future.call.arguments) 1549s [00:52:29.060] } 1549s [00:52:29.061] Tweak future expression to call with '...' arguments ... DONE 1549s [00:52:29.061] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.061] 1549s [00:52:29.061] getGlobalsAndPackages() ... DONE 1549s [00:52:29.062] run() for ‘Future’ ... 1549s [00:52:29.062] - state: ‘created’ 1549s [00:52:29.062] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1549s [00:52:29.062] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1549s [00:52:29.063] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1549s [00:52:29.063] - Field: ‘label’ 1549s [00:52:29.063] - Field: ‘local’ 1549s [00:52:29.063] - Field: ‘owner’ 1549s [00:52:29.063] - Field: ‘envir’ 1549s [00:52:29.063] - Field: ‘packages’ 1549s [00:52:29.063] - Field: ‘gc’ 1549s [00:52:29.064] - Field: ‘conditions’ 1549s [00:52:29.064] - Field: ‘expr’ 1549s [00:52:29.064] - Field: ‘uuid’ 1549s [00:52:29.064] - Field: ‘seed’ 1549s [00:52:29.064] - Field: ‘version’ 1549s [00:52:29.064] - Field: ‘result’ 1549s [00:52:29.064] - Field: ‘asynchronous’ 1549s [00:52:29.065] - Field: ‘calls’ 1549s [00:52:29.065] - Field: ‘globals’ 1549s [00:52:29.065] - Field: ‘stdout’ 1549s [00:52:29.065] - Field: ‘earlySignal’ 1549s [00:52:29.065] - Field: ‘lazy’ 1549s [00:52:29.065] - Field: ‘state’ 1549s [00:52:29.065] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1549s [00:52:29.065] - Launch lazy future ... 1549s [00:52:29.066] Packages needed by the future expression (n = 0): 1549s [00:52:29.066] Packages needed by future strategies (n = 0): 1549s [00:52:29.066] { 1549s [00:52:29.066] { 1549s [00:52:29.066] { 1549s [00:52:29.066] ...future.startTime <- base::Sys.time() 1549s [00:52:29.066] { 1549s [00:52:29.066] { 1549s [00:52:29.066] { 1549s [00:52:29.066] base::local({ 1549s [00:52:29.066] has_future <- base::requireNamespace("future", 1549s [00:52:29.066] quietly = TRUE) 1549s [00:52:29.066] if (has_future) { 1549s [00:52:29.066] ns <- base::getNamespace("future") 1549s [00:52:29.066] version <- ns[[".package"]][["version"]] 1549s [00:52:29.066] if (is.null(version)) 1549s [00:52:29.066] version <- utils::packageVersion("future") 1549s [00:52:29.066] } 1549s [00:52:29.066] else { 1549s [00:52:29.066] version <- NULL 1549s [00:52:29.066] } 1549s [00:52:29.066] if (!has_future || version < "1.8.0") { 1549s [00:52:29.066] info <- base::c(r_version = base::gsub("R version ", 1549s [00:52:29.066] "", base::R.version$version.string), 1549s [00:52:29.066] platform = base::sprintf("%s (%s-bit)", 1549s [00:52:29.066] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1549s [00:52:29.066] os = base::paste(base::Sys.info()[base::c("sysname", 1549s [00:52:29.066] "release", "version")], collapse = " "), 1549s [00:52:29.066] hostname = base::Sys.info()[["nodename"]]) 1549s [00:52:29.066] info <- base::sprintf("%s: %s", base::names(info), 1549s [00:52:29.066] info) 1549s [00:52:29.066] info <- base::paste(info, collapse = "; ") 1549s [00:52:29.066] if (!has_future) { 1549s [00:52:29.066] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1549s [00:52:29.066] info) 1549s [00:52:29.066] } 1549s [00:52:29.066] else { 1549s [00:52:29.066] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1549s [00:52:29.066] info, version) 1549s [00:52:29.066] } 1549s [00:52:29.066] base::stop(msg) 1549s [00:52:29.066] } 1549s [00:52:29.066] }) 1549s [00:52:29.066] } 1549s [00:52:29.066] options(future.plan = NULL) 1549s [00:52:29.066] Sys.unsetenv("R_FUTURE_PLAN") 1549s [00:52:29.066] future::plan("default", .cleanup = FALSE, .init = FALSE) 1549s [00:52:29.066] } 1549s [00:52:29.066] ...future.workdir <- getwd() 1549s [00:52:29.066] } 1549s [00:52:29.066] ...future.oldOptions <- base::as.list(base::.Options) 1549s [00:52:29.066] ...future.oldEnvVars <- base::Sys.getenv() 1549s [00:52:29.066] } 1549s [00:52:29.066] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1549s [00:52:29.066] future.globals.maxSize = 2097152000, future.globals.method = NULL, 1549s [00:52:29.066] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1549s [00:52:29.066] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1549s [00:52:29.066] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1549s [00:52:29.066] future.stdout.windows.reencode = NULL, width = 80L) 1549s [00:52:29.066] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1549s [00:52:29.066] base::names(...future.oldOptions)) 1549s [00:52:29.066] } 1549s [00:52:29.066] if (FALSE) { 1549s [00:52:29.066] } 1549s [00:52:29.066] else { 1549s [00:52:29.066] if (TRUE) { 1549s [00:52:29.066] ...future.stdout <- base::rawConnection(base::raw(0L), 1549s [00:52:29.066] open = "w") 1549s [00:52:29.066] } 1549s [00:52:29.066] else { 1549s [00:52:29.066] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1549s [00:52:29.066] windows = "NUL", "/dev/null"), open = "w") 1549s [00:52:29.066] } 1549s [00:52:29.066] base::sink(...future.stdout, type = "output", split = FALSE) 1549s [00:52:29.066] base::on.exit(if (!base::is.null(...future.stdout)) { 1549s [00:52:29.066] base::sink(type = "output", split = FALSE) 1549s [00:52:29.066] base::close(...future.stdout) 1549s [00:52:29.066] }, add = TRUE) 1549s [00:52:29.066] } 1549s [00:52:29.066] ...future.frame <- base::sys.nframe() 1549s [00:52:29.066] ...future.conditions <- base::list() 1549s [00:52:29.066] ...future.rng <- base::globalenv()$.Random.seed 1549s [00:52:29.066] if (FALSE) { 1549s [00:52:29.066] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1549s [00:52:29.066] "...future.value", "...future.globalenv.names", ".Random.seed") 1549s [00:52:29.066] } 1549s [00:52:29.066] ...future.result <- base::tryCatch({ 1549s [00:52:29.066] base::withCallingHandlers({ 1549s [00:52:29.066] ...future.value <- base::withVisible(base::local({ 1549s [00:52:29.066] do.call(function(...) { 1549s [00:52:29.066] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.066] if (!identical(...future.globals.maxSize.org, 1549s [00:52:29.066] ...future.globals.maxSize)) { 1549s [00:52:29.066] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.066] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.066] } 1549s [00:52:29.066] { 1549s [00:52:29.066] lapply(seq_along(...future.elements_ii), 1549s [00:52:29.066] FUN = function(jj) { 1549s [00:52:29.066] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.066] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.066] }) 1549s [00:52:29.066] } 1549s [00:52:29.066] }, args = future.call.arguments) 1549s [00:52:29.066] })) 1549s [00:52:29.066] future::FutureResult(value = ...future.value$value, 1549s [00:52:29.066] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1549s [00:52:29.066] ...future.rng), globalenv = if (FALSE) 1549s [00:52:29.066] list(added = base::setdiff(base::names(base::.GlobalEnv), 1549s [00:52:29.066] ...future.globalenv.names)) 1549s [00:52:29.066] else NULL, started = ...future.startTime, version = "1.8") 1549s [00:52:29.066] }, condition = base::local({ 1549s [00:52:29.066] c <- base::c 1549s [00:52:29.066] inherits <- base::inherits 1549s [00:52:29.066] invokeRestart <- base::invokeRestart 1549s [00:52:29.066] length <- base::length 1549s [00:52:29.066] list <- base::list 1549s [00:52:29.066] seq.int <- base::seq.int 1549s [00:52:29.066] signalCondition <- base::signalCondition 1549s [00:52:29.066] sys.calls <- base::sys.calls 1549s [00:52:29.066] `[[` <- base::`[[` 1549s [00:52:29.066] `+` <- base::`+` 1549s [00:52:29.066] `<<-` <- base::`<<-` 1549s [00:52:29.066] sysCalls <- function(calls = sys.calls(), from = 1L) { 1549s [00:52:29.066] calls[seq.int(from = from + 12L, to = length(calls) - 1549s [00:52:29.066] 3L)] 1549s [00:52:29.066] } 1549s [00:52:29.066] function(cond) { 1549s [00:52:29.066] is_error <- inherits(cond, "error") 1549s [00:52:29.066] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1549s [00:52:29.066] NULL) 1549s [00:52:29.066] if (is_error) { 1549s [00:52:29.066] sessionInformation <- function() { 1549s [00:52:29.066] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1549s [00:52:29.066] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1549s [00:52:29.066] search = base::search(), system = base::Sys.info()) 1549s [00:52:29.066] } 1549s [00:52:29.066] ...future.conditions[[length(...future.conditions) + 1549s [00:52:29.066] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1549s [00:52:29.066] cond$call), session = sessionInformation(), 1549s [00:52:29.066] timestamp = base::Sys.time(), signaled = 0L) 1549s [00:52:29.066] signalCondition(cond) 1549s [00:52:29.066] } 1549s [00:52:29.066] else if (!ignore && TRUE && inherits(cond, c("condition", 1549s [00:52:29.066] "immediateCondition"))) { 1549s [00:52:29.066] signal <- TRUE && inherits(cond, "immediateCondition") 1549s [00:52:29.066] ...future.conditions[[length(...future.conditions) + 1549s [00:52:29.066] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1549s [00:52:29.066] if (TRUE && !signal) { 1549s [00:52:29.066] muffleCondition <- function (cond, pattern = "^muffle") 1549s [00:52:29.066] { 1549s [00:52:29.066] inherits <- base::inherits 1549s [00:52:29.066] invokeRestart <- base::invokeRestart 1549s [00:52:29.066] is.null <- base::is.null 1549s [00:52:29.066] muffled <- FALSE 1549s [00:52:29.066] if (inherits(cond, "message")) { 1549s [00:52:29.066] muffled <- grepl(pattern, "muffleMessage") 1549s [00:52:29.066] if (muffled) 1549s [00:52:29.066] invokeRestart("muffleMessage") 1549s [00:52:29.066] } 1549s [00:52:29.066] else if (inherits(cond, "warning")) { 1549s [00:52:29.066] muffled <- grepl(pattern, "muffleWarning") 1549s [00:52:29.066] if (muffled) 1549s [00:52:29.066] invokeRestart("muffleWarning") 1549s [00:52:29.066] } 1549s [00:52:29.066] else if (inherits(cond, "condition")) { 1549s [00:52:29.066] if (!is.null(pattern)) { 1549s [00:52:29.066] computeRestarts <- base::computeRestarts 1549s [00:52:29.066] grepl <- base::grepl 1549s [00:52:29.066] restarts <- computeRestarts(cond) 1549s [00:52:29.066] for (restart in restarts) { 1549s [00:52:29.066] name <- restart$name 1549s [00:52:29.066] if (is.null(name)) 1549s [00:52:29.066] next 1549s [00:52:29.066] if (!grepl(pattern, name)) 1549s [00:52:29.066] next 1549s [00:52:29.066] invokeRestart(restart) 1549s [00:52:29.066] muffled <- TRUE 1549s [00:52:29.066] break 1549s [00:52:29.066] } 1549s [00:52:29.066] } 1549s [00:52:29.066] } 1549s [00:52:29.066] invisible(muffled) 1549s [00:52:29.066] } 1549s [00:52:29.066] muffleCondition(cond, pattern = "^muffle") 1549s [00:52:29.066] } 1549s [00:52:29.066] } 1549s [00:52:29.066] else { 1549s [00:52:29.066] if (TRUE) { 1549s [00:52:29.066] muffleCondition <- function (cond, pattern = "^muffle") 1549s [00:52:29.066] { 1549s [00:52:29.066] inherits <- base::inherits 1549s [00:52:29.066] invokeRestart <- base::invokeRestart 1549s [00:52:29.066] is.null <- base::is.null 1549s [00:52:29.066] muffled <- FALSE 1549s [00:52:29.066] if (inherits(cond, "message")) { 1549s [00:52:29.066] muffled <- grepl(pattern, "muffleMessage") 1549s [00:52:29.066] if (muffled) 1549s [00:52:29.066] invokeRestart("muffleMessage") 1549s [00:52:29.066] } 1549s [00:52:29.066] else if (inherits(cond, "warning")) { 1549s [00:52:29.066] muffled <- grepl(pattern, "muffleWarning") 1549s [00:52:29.066] if (muffled) 1549s [00:52:29.066] invokeRestart("muffleWarning") 1549s [00:52:29.066] } 1549s [00:52:29.066] else if (inherits(cond, "condition")) { 1549s [00:52:29.066] if (!is.null(pattern)) { 1549s [00:52:29.066] computeRestarts <- base::computeRestarts 1549s [00:52:29.066] grepl <- base::grepl 1549s [00:52:29.066] restarts <- computeRestarts(cond) 1549s [00:52:29.066] for (restart in restarts) { 1549s [00:52:29.066] name <- restart$name 1549s [00:52:29.066] if (is.null(name)) 1549s [00:52:29.066] next 1549s [00:52:29.066] if (!grepl(pattern, name)) 1549s [00:52:29.066] next 1549s [00:52:29.066] invokeRestart(restart) 1549s [00:52:29.066] muffled <- TRUE 1549s [00:52:29.066] break 1549s [00:52:29.066] } 1549s [00:52:29.066] } 1549s [00:52:29.066] } 1549s [00:52:29.066] invisible(muffled) 1549s [00:52:29.066] } 1549s [00:52:29.066] muffleCondition(cond, pattern = "^muffle") 1549s [00:52:29.066] } 1549s [00:52:29.066] } 1549s [00:52:29.066] } 1549s [00:52:29.066] })) 1549s [00:52:29.066] }, error = function(ex) { 1549s [00:52:29.066] base::structure(base::list(value = NULL, visible = NULL, 1549s [00:52:29.066] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1549s [00:52:29.066] ...future.rng), started = ...future.startTime, 1549s [00:52:29.066] finished = Sys.time(), session_uuid = NA_character_, 1549s [00:52:29.066] version = "1.8"), class = "FutureResult") 1549s [00:52:29.066] }, finally = { 1549s [00:52:29.066] if (!identical(...future.workdir, getwd())) 1549s [00:52:29.066] setwd(...future.workdir) 1549s [00:52:29.066] { 1549s [00:52:29.066] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1549s [00:52:29.066] ...future.oldOptions$nwarnings <- NULL 1549s [00:52:29.066] } 1549s [00:52:29.066] base::options(...future.oldOptions) 1549s [00:52:29.066] if (.Platform$OS.type == "windows") { 1549s [00:52:29.066] old_names <- names(...future.oldEnvVars) 1549s [00:52:29.066] envs <- base::Sys.getenv() 1549s [00:52:29.066] names <- names(envs) 1549s [00:52:29.066] common <- intersect(names, old_names) 1549s [00:52:29.066] added <- setdiff(names, old_names) 1549s [00:52:29.066] removed <- setdiff(old_names, names) 1549s [00:52:29.066] changed <- common[...future.oldEnvVars[common] != 1549s [00:52:29.066] envs[common]] 1549s [00:52:29.066] NAMES <- toupper(changed) 1549s [00:52:29.066] args <- list() 1549s [00:52:29.066] for (kk in seq_along(NAMES)) { 1549s [00:52:29.066] name <- changed[[kk]] 1549s [00:52:29.066] NAME <- NAMES[[kk]] 1549s [00:52:29.066] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.066] next 1549s [00:52:29.066] args[[name]] <- ...future.oldEnvVars[[name]] 1549s [00:52:29.066] } 1549s [00:52:29.066] NAMES <- toupper(added) 1549s [00:52:29.066] for (kk in seq_along(NAMES)) { 1549s [00:52:29.066] name <- added[[kk]] 1549s [00:52:29.066] NAME <- NAMES[[kk]] 1549s [00:52:29.066] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.066] next 1549s [00:52:29.066] args[[name]] <- "" 1549s [00:52:29.066] } 1549s [00:52:29.066] NAMES <- toupper(removed) 1549s [00:52:29.066] for (kk in seq_along(NAMES)) { 1549s [00:52:29.066] name <- removed[[kk]] 1549s [00:52:29.066] NAME <- NAMES[[kk]] 1549s [00:52:29.066] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.066] next 1549s [00:52:29.066] args[[name]] <- ...future.oldEnvVars[[name]] 1549s [00:52:29.066] } 1549s [00:52:29.066] if (length(args) > 0) 1549s [00:52:29.066] base::do.call(base::Sys.setenv, args = args) 1549s [00:52:29.066] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1549s [00:52:29.066] } 1549s [00:52:29.066] else { 1549s [00:52:29.066] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1549s [00:52:29.066] } 1549s [00:52:29.066] { 1549s [00:52:29.066] if (base::length(...future.futureOptionsAdded) > 1549s [00:52:29.066] 0L) { 1549s [00:52:29.066] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1549s [00:52:29.066] base::names(opts) <- ...future.futureOptionsAdded 1549s [00:52:29.066] base::options(opts) 1549s [00:52:29.066] } 1549s [00:52:29.066] { 1549s [00:52:29.066] { 1549s [00:52:29.066] NULL 1549s [00:52:29.066] RNGkind("Mersenne-Twister") 1549s [00:52:29.066] base::rm(list = ".Random.seed", envir = base::globalenv(), 1549s [00:52:29.066] inherits = FALSE) 1549s [00:52:29.066] } 1549s [00:52:29.066] options(future.plan = NULL) 1549s [00:52:29.066] if (is.na(NA_character_)) 1549s [00:52:29.066] Sys.unsetenv("R_FUTURE_PLAN") 1549s [00:52:29.066] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1549s [00:52:29.066] future::plan(list(function (..., envir = parent.frame()) 1549s [00:52:29.066] { 1549s [00:52:29.066] future <- SequentialFuture(..., envir = envir) 1549s [00:52:29.066] if (!future$lazy) 1549s [00:52:29.066] future <- run(future) 1549s [00:52:29.066] invisible(future) 1549s [00:52:29.066] }), .cleanup = FALSE, .init = FALSE) 1549s [00:52:29.066] } 1549s [00:52:29.066] } 1549s [00:52:29.066] } 1549s [00:52:29.066] }) 1549s [00:52:29.066] if (TRUE) { 1549s [00:52:29.066] base::sink(type = "output", split = FALSE) 1549s [00:52:29.066] if (TRUE) { 1549s [00:52:29.066] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1549s [00:52:29.066] } 1549s [00:52:29.066] else { 1549s [00:52:29.066] ...future.result["stdout"] <- base::list(NULL) 1549s [00:52:29.066] } 1549s [00:52:29.066] base::close(...future.stdout) 1549s [00:52:29.066] ...future.stdout <- NULL 1549s [00:52:29.066] } 1549s [00:52:29.066] ...future.result$conditions <- ...future.conditions 1549s [00:52:29.066] ...future.result$finished <- base::Sys.time() 1549s [00:52:29.066] ...future.result 1549s [00:52:29.066] } 1549s [00:52:29.069] assign_globals() ... 1549s [00:52:29.074] List of 5 1549s [00:52:29.074] $ ...future.FUN :function (mode = "logical", length = 0L) 1549s [00:52:29.074] $ future.call.arguments :List of 1 1549s [00:52:29.074] ..$ length: int 2 1549s [00:52:29.074] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1549s [00:52:29.074] $ ...future.elements_ii :List of 1 1549s [00:52:29.074] ..$ b: chr "numeric" 1549s [00:52:29.074] $ ...future.seeds_ii : NULL 1549s [00:52:29.074] $ ...future.globals.maxSize: NULL 1549s [00:52:29.074] - attr(*, "where")=List of 5 1549s [00:52:29.074] ..$ ...future.FUN : 1549s [00:52:29.074] ..$ future.call.arguments : 1549s [00:52:29.074] ..$ ...future.elements_ii : 1549s [00:52:29.074] ..$ ...future.seeds_ii : 1549s [00:52:29.074] ..$ ...future.globals.maxSize: 1549s [00:52:29.074] - attr(*, "resolved")= logi FALSE 1549s [00:52:29.074] - attr(*, "total_size")= num 2240 1549s [00:52:29.074] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1549s [00:52:29.074] - attr(*, "already-done")= logi TRUE 1549s [00:52:29.094] - copied ‘...future.FUN’ to environment 1549s [00:52:29.094] - copied ‘future.call.arguments’ to environment 1549s [00:52:29.094] - copied ‘...future.elements_ii’ to environment 1549s [00:52:29.094] - copied ‘...future.seeds_ii’ to environment 1549s [00:52:29.095] - copied ‘...future.globals.maxSize’ to environment 1549s [00:52:29.095] assign_globals() ... done 1549s [00:52:29.095] plan(): Setting new future strategy stack: 1549s [00:52:29.095] List of future strategies: 1549s [00:52:29.095] 1. sequential: 1549s [00:52:29.095] - args: function (..., envir = parent.frame()) 1549s [00:52:29.095] - tweaked: FALSE 1549s [00:52:29.095] - call: NULL 1549s [00:52:29.096] plan(): nbrOfWorkers() = 1 1549s [00:52:29.096] plan(): Setting new future strategy stack: 1549s [00:52:29.097] List of future strategies: 1549s [00:52:29.097] 1. sequential: 1549s [00:52:29.097] - args: function (..., envir = parent.frame()) 1549s [00:52:29.097] - tweaked: FALSE 1549s [00:52:29.097] - call: plan(strategy) 1549s [00:52:29.097] plan(): nbrOfWorkers() = 1 1549s [00:52:29.097] SequentialFuture started (and completed) 1549s [00:52:29.098] - Launch lazy future ... done 1549s [00:52:29.098] run() for ‘SequentialFuture’ ... done 1549s [00:52:29.100] Created future: 1549s [00:52:29.102] SequentialFuture: 1549s [00:52:29.102] Label: ‘future_lapply-2’ 1549s [00:52:29.102] Expression: 1549s [00:52:29.102] { 1549s [00:52:29.102] do.call(function(...) { 1549s [00:52:29.102] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.102] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1549s [00:52:29.102] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.102] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.102] } 1549s [00:52:29.102] { 1549s [00:52:29.102] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1549s [00:52:29.102] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.102] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.102] }) 1549s [00:52:29.102] } 1549s [00:52:29.102] }, args = future.call.arguments) 1549s [00:52:29.102] } 1549s [00:52:29.102] Lazy evaluation: FALSE 1549s [00:52:29.102] Asynchronous evaluation: FALSE 1549s [00:52:29.102] Local evaluation: TRUE 1549s [00:52:29.102] Environment: R_GlobalEnv 1549s [00:52:29.102] Capture standard output: TRUE 1549s [00:52:29.102] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1549s [00:52:29.102] Globals: 5 objects totaling 2.30 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1549s [00:52:29.102] Packages: 1549s [00:52:29.102] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1549s [00:52:29.102] Resolved: TRUE 1549s [00:52:29.102] Value: 64 bytes of class ‘list’ 1549s [00:52:29.102] Early signaling: FALSE 1549s [00:52:29.102] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1549s [00:52:29.102] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1549s [00:52:29.106] Chunk #2 of 4 ... DONE 1549s [00:52:29.106] Chunk #3 of 4 ... 1549s [00:52:29.106] - Finding globals in 'X' for chunk #3 ... 1549s [00:52:29.107] getGlobalsAndPackages() ... 1549s [00:52:29.107] Searching for globals... 1549s [00:52:29.107] 1549s [00:52:29.107] Searching for globals ... DONE 1549s [00:52:29.107] - globals: [0] 1549s [00:52:29.107] getGlobalsAndPackages() ... DONE 1549s [00:52:29.107] + additional globals found: [n=0] 1549s [00:52:29.107] + additional namespaces needed: [n=0] 1549s [00:52:29.108] - Finding globals in 'X' for chunk #3 ... DONE 1549s [00:52:29.108] - Adjusted option 'future.globals.maxSize': 524288000 -> 4 * 524288000 = 2097152000 (bytes) 1549s [00:52:29.108] - seeds: 1549s [00:52:29.108] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.108] getGlobalsAndPackages() ... 1549s [00:52:29.108] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.108] Resolving globals: FALSE 1549s [00:52:29.108] Tweak future expression to call with '...' arguments ... 1549s [00:52:29.108] { 1549s [00:52:29.108] do.call(function(...) { 1549s [00:52:29.108] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.108] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1549s [00:52:29.108] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.108] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.108] } 1549s [00:52:29.108] { 1549s [00:52:29.108] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1549s [00:52:29.108] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.108] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.108] }) 1549s [00:52:29.108] } 1549s [00:52:29.108] }, args = future.call.arguments) 1549s [00:52:29.108] } 1549s [00:52:29.109] Tweak future expression to call with '...' arguments ... DONE 1549s [00:52:29.109] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.109] 1549s [00:52:29.109] getGlobalsAndPackages() ... DONE 1549s [00:52:29.110] run() for ‘Future’ ... 1549s [00:52:29.110] - state: ‘created’ 1549s [00:52:29.110] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1549s [00:52:29.111] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1549s [00:52:29.112] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1549s [00:52:29.114] - Field: ‘label’ 1549s [00:52:29.115] - Field: ‘local’ 1549s [00:52:29.115] - Field: ‘owner’ 1549s [00:52:29.115] - Field: ‘envir’ 1549s [00:52:29.115] - Field: ‘packages’ 1549s [00:52:29.115] - Field: ‘gc’ 1549s [00:52:29.115] - Field: ‘conditions’ 1549s [00:52:29.116] - Field: ‘expr’ 1549s [00:52:29.116] - Field: ‘uuid’ 1549s [00:52:29.116] - Field: ‘seed’ 1549s [00:52:29.116] - Field: ‘version’ 1549s [00:52:29.116] - Field: ‘result’ 1549s [00:52:29.116] - Field: ‘asynchronous’ 1549s [00:52:29.116] - Field: ‘calls’ 1549s [00:52:29.117] - Field: ‘globals’ 1549s [00:52:29.117] - Field: ‘stdout’ 1549s [00:52:29.117] - Field: ‘earlySignal’ 1549s [00:52:29.117] - Field: ‘lazy’ 1549s [00:52:29.117] - Field: ‘state’ 1549s [00:52:29.117] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1549s [00:52:29.117] - Launch lazy future ... 1549s [00:52:29.118] Packages needed by the future expression (n = 0): 1549s [00:52:29.118] Packages needed by future strategies (n = 0): 1549s [00:52:29.119] { 1549s [00:52:29.119] { 1549s [00:52:29.119] { 1549s [00:52:29.119] ...future.startTime <- base::Sys.time() 1549s [00:52:29.119] { 1549s [00:52:29.119] { 1549s [00:52:29.119] { 1549s [00:52:29.119] base::local({ 1549s [00:52:29.119] has_future <- base::requireNamespace("future", 1549s [00:52:29.119] quietly = TRUE) 1549s [00:52:29.119] if (has_future) { 1549s [00:52:29.119] ns <- base::getNamespace("future") 1549s [00:52:29.119] version <- ns[[".package"]][["version"]] 1549s [00:52:29.119] if (is.null(version)) 1549s [00:52:29.119] version <- utils::packageVersion("future") 1549s [00:52:29.119] } 1549s [00:52:29.119] else { 1549s [00:52:29.119] version <- NULL 1549s [00:52:29.119] } 1549s [00:52:29.119] if (!has_future || version < "1.8.0") { 1549s [00:52:29.119] info <- base::c(r_version = base::gsub("R version ", 1549s [00:52:29.119] "", base::R.version$version.string), 1549s [00:52:29.119] platform = base::sprintf("%s (%s-bit)", 1549s [00:52:29.119] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1549s [00:52:29.119] os = base::paste(base::Sys.info()[base::c("sysname", 1549s [00:52:29.119] "release", "version")], collapse = " "), 1549s [00:52:29.119] hostname = base::Sys.info()[["nodename"]]) 1549s [00:52:29.119] info <- base::sprintf("%s: %s", base::names(info), 1549s [00:52:29.119] info) 1549s [00:52:29.119] info <- base::paste(info, collapse = "; ") 1549s [00:52:29.119] if (!has_future) { 1549s [00:52:29.119] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1549s [00:52:29.119] info) 1549s [00:52:29.119] } 1549s [00:52:29.119] else { 1549s [00:52:29.119] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1549s [00:52:29.119] info, version) 1549s [00:52:29.119] } 1549s [00:52:29.119] base::stop(msg) 1549s [00:52:29.119] } 1549s [00:52:29.119] }) 1549s [00:52:29.119] } 1549s [00:52:29.119] options(future.plan = NULL) 1549s [00:52:29.119] Sys.unsetenv("R_FUTURE_PLAN") 1549s [00:52:29.119] future::plan("default", .cleanup = FALSE, .init = FALSE) 1549s [00:52:29.119] } 1549s [00:52:29.119] ...future.workdir <- getwd() 1549s [00:52:29.119] } 1549s [00:52:29.119] ...future.oldOptions <- base::as.list(base::.Options) 1549s [00:52:29.119] ...future.oldEnvVars <- base::Sys.getenv() 1549s [00:52:29.119] } 1549s [00:52:29.119] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1549s [00:52:29.119] future.globals.maxSize = 2097152000, future.globals.method = NULL, 1549s [00:52:29.119] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1549s [00:52:29.119] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1549s [00:52:29.119] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1549s [00:52:29.119] future.stdout.windows.reencode = NULL, width = 80L) 1549s [00:52:29.119] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1549s [00:52:29.119] base::names(...future.oldOptions)) 1549s [00:52:29.119] } 1549s [00:52:29.119] if (FALSE) { 1549s [00:52:29.119] } 1549s [00:52:29.119] else { 1549s [00:52:29.119] if (TRUE) { 1549s [00:52:29.119] ...future.stdout <- base::rawConnection(base::raw(0L), 1549s [00:52:29.119] open = "w") 1549s [00:52:29.119] } 1549s [00:52:29.119] else { 1549s [00:52:29.119] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1549s [00:52:29.119] windows = "NUL", "/dev/null"), open = "w") 1549s [00:52:29.119] } 1549s [00:52:29.119] base::sink(...future.stdout, type = "output", split = FALSE) 1549s [00:52:29.119] base::on.exit(if (!base::is.null(...future.stdout)) { 1549s [00:52:29.119] base::sink(type = "output", split = FALSE) 1549s [00:52:29.119] base::close(...future.stdout) 1549s [00:52:29.119] }, add = TRUE) 1549s [00:52:29.119] } 1549s [00:52:29.119] ...future.frame <- base::sys.nframe() 1549s [00:52:29.119] ...future.conditions <- base::list() 1549s [00:52:29.119] ...future.rng <- base::globalenv()$.Random.seed 1549s [00:52:29.119] if (FALSE) { 1549s [00:52:29.119] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1549s [00:52:29.119] "...future.value", "...future.globalenv.names", ".Random.seed") 1549s [00:52:29.119] } 1549s [00:52:29.119] ...future.result <- base::tryCatch({ 1549s [00:52:29.119] base::withCallingHandlers({ 1549s [00:52:29.119] ...future.value <- base::withVisible(base::local({ 1549s [00:52:29.119] do.call(function(...) { 1549s [00:52:29.119] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.119] if (!identical(...future.globals.maxSize.org, 1549s [00:52:29.119] ...future.globals.maxSize)) { 1549s [00:52:29.119] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.119] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.119] } 1549s [00:52:29.119] { 1549s [00:52:29.119] lapply(seq_along(...future.elements_ii), 1549s [00:52:29.119] FUN = function(jj) { 1549s [00:52:29.119] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.119] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.119] }) 1549s [00:52:29.119] } 1549s [00:52:29.119] }, args = future.call.arguments) 1549s [00:52:29.119] })) 1549s [00:52:29.119] future::FutureResult(value = ...future.value$value, 1549s [00:52:29.119] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1549s [00:52:29.119] ...future.rng), globalenv = if (FALSE) 1549s [00:52:29.119] list(added = base::setdiff(base::names(base::.GlobalEnv), 1549s [00:52:29.119] ...future.globalenv.names)) 1549s [00:52:29.119] else NULL, started = ...future.startTime, version = "1.8") 1549s [00:52:29.119] }, condition = base::local({ 1549s [00:52:29.119] c <- base::c 1549s [00:52:29.119] inherits <- base::inherits 1549s [00:52:29.119] invokeRestart <- base::invokeRestart 1549s [00:52:29.119] length <- base::length 1549s [00:52:29.119] list <- base::list 1549s [00:52:29.119] seq.int <- base::seq.int 1549s [00:52:29.119] signalCondition <- base::signalCondition 1549s [00:52:29.119] sys.calls <- base::sys.calls 1549s [00:52:29.119] `[[` <- base::`[[` 1549s [00:52:29.119] `+` <- base::`+` 1549s [00:52:29.119] `<<-` <- base::`<<-` 1549s [00:52:29.119] sysCalls <- function(calls = sys.calls(), from = 1L) { 1549s [00:52:29.119] calls[seq.int(from = from + 12L, to = length(calls) - 1549s [00:52:29.119] 3L)] 1549s [00:52:29.119] } 1549s [00:52:29.119] function(cond) { 1549s [00:52:29.119] is_error <- inherits(cond, "error") 1549s [00:52:29.119] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1549s [00:52:29.119] NULL) 1549s [00:52:29.119] if (is_error) { 1549s [00:52:29.119] sessionInformation <- function() { 1549s [00:52:29.119] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1549s [00:52:29.119] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1549s [00:52:29.119] search = base::search(), system = base::Sys.info()) 1549s [00:52:29.119] } 1549s [00:52:29.119] ...future.conditions[[length(...future.conditions) + 1549s [00:52:29.119] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1549s [00:52:29.119] cond$call), session = sessionInformation(), 1549s [00:52:29.119] timestamp = base::Sys.time(), signaled = 0L) 1549s [00:52:29.119] signalCondition(cond) 1549s [00:52:29.119] } 1549s [00:52:29.119] else if (!ignore && TRUE && inherits(cond, c("condition", 1549s [00:52:29.119] "immediateCondition"))) { 1549s [00:52:29.119] signal <- TRUE && inherits(cond, "immediateCondition") 1549s [00:52:29.119] ...future.conditions[[length(...future.conditions) + 1549s [00:52:29.119] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1549s [00:52:29.119] if (TRUE && !signal) { 1549s [00:52:29.119] muffleCondition <- function (cond, pattern = "^muffle") 1549s [00:52:29.119] { 1549s [00:52:29.119] inherits <- base::inherits 1549s [00:52:29.119] invokeRestart <- base::invokeRestart 1549s [00:52:29.119] is.null <- base::is.null 1549s [00:52:29.119] muffled <- FALSE 1549s [00:52:29.119] if (inherits(cond, "message")) { 1549s [00:52:29.119] muffled <- grepl(pattern, "muffleMessage") 1549s [00:52:29.119] if (muffled) 1549s [00:52:29.119] invokeRestart("muffleMessage") 1549s [00:52:29.119] } 1549s [00:52:29.119] else if (inherits(cond, "warning")) { 1549s [00:52:29.119] muffled <- grepl(pattern, "muffleWarning") 1549s [00:52:29.119] if (muffled) 1549s [00:52:29.119] invokeRestart("muffleWarning") 1549s [00:52:29.119] } 1549s [00:52:29.119] else if (inherits(cond, "condition")) { 1549s [00:52:29.119] if (!is.null(pattern)) { 1549s [00:52:29.119] computeRestarts <- base::computeRestarts 1549s [00:52:29.119] grepl <- base::grepl 1549s [00:52:29.119] restarts <- computeRestarts(cond) 1549s [00:52:29.119] for (restart in restarts) { 1549s [00:52:29.119] name <- restart$name 1549s [00:52:29.119] if (is.null(name)) 1549s [00:52:29.119] next 1549s [00:52:29.119] if (!grepl(pattern, name)) 1549s [00:52:29.119] next 1549s [00:52:29.119] invokeRestart(restart) 1549s [00:52:29.119] muffled <- TRUE 1549s [00:52:29.119] break 1549s [00:52:29.119] } 1549s [00:52:29.119] } 1549s [00:52:29.119] } 1549s [00:52:29.119] invisible(muffled) 1549s [00:52:29.119] } 1549s [00:52:29.119] muffleCondition(cond, pattern = "^muffle") 1549s [00:52:29.119] } 1549s [00:52:29.119] } 1549s [00:52:29.119] else { 1549s [00:52:29.119] if (TRUE) { 1549s [00:52:29.119] muffleCondition <- function (cond, pattern = "^muffle") 1549s [00:52:29.119] { 1549s [00:52:29.119] inherits <- base::inherits 1549s [00:52:29.119] invokeRestart <- base::invokeRestart 1549s [00:52:29.119] is.null <- base::is.null 1549s [00:52:29.119] muffled <- FALSE 1549s [00:52:29.119] if (inherits(cond, "message")) { 1549s [00:52:29.119] muffled <- grepl(pattern, "muffleMessage") 1549s [00:52:29.119] if (muffled) 1549s [00:52:29.119] invokeRestart("muffleMessage") 1549s [00:52:29.119] } 1549s [00:52:29.119] else if (inherits(cond, "warning")) { 1549s [00:52:29.119] muffled <- grepl(pattern, "muffleWarning") 1549s [00:52:29.119] if (muffled) 1549s [00:52:29.119] invokeRestart("muffleWarning") 1549s [00:52:29.119] } 1549s [00:52:29.119] else if (inherits(cond, "condition")) { 1549s [00:52:29.119] if (!is.null(pattern)) { 1549s [00:52:29.119] computeRestarts <- base::computeRestarts 1549s [00:52:29.119] grepl <- base::grepl 1549s [00:52:29.119] restarts <- computeRestarts(cond) 1549s [00:52:29.119] for (restart in restarts) { 1549s [00:52:29.119] name <- restart$name 1549s [00:52:29.119] if (is.null(name)) 1549s [00:52:29.119] next 1549s [00:52:29.119] if (!grepl(pattern, name)) 1549s [00:52:29.119] next 1549s [00:52:29.119] invokeRestart(restart) 1549s [00:52:29.119] muffled <- TRUE 1549s [00:52:29.119] break 1549s [00:52:29.119] } 1549s [00:52:29.119] } 1549s [00:52:29.119] } 1549s [00:52:29.119] invisible(muffled) 1549s [00:52:29.119] } 1549s [00:52:29.119] muffleCondition(cond, pattern = "^muffle") 1549s [00:52:29.119] } 1549s [00:52:29.119] } 1549s [00:52:29.119] } 1549s [00:52:29.119] })) 1549s [00:52:29.119] }, error = function(ex) { 1549s [00:52:29.119] base::structure(base::list(value = NULL, visible = NULL, 1549s [00:52:29.119] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1549s [00:52:29.119] ...future.rng), started = ...future.startTime, 1549s [00:52:29.119] finished = Sys.time(), session_uuid = NA_character_, 1549s [00:52:29.119] version = "1.8"), class = "FutureResult") 1549s [00:52:29.119] }, finally = { 1549s [00:52:29.119] if (!identical(...future.workdir, getwd())) 1549s [00:52:29.119] setwd(...future.workdir) 1549s [00:52:29.119] { 1549s [00:52:29.119] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1549s [00:52:29.119] ...future.oldOptions$nwarnings <- NULL 1549s [00:52:29.119] } 1549s [00:52:29.119] base::options(...future.oldOptions) 1549s [00:52:29.119] if (.Platform$OS.type == "windows") { 1549s [00:52:29.119] old_names <- names(...future.oldEnvVars) 1549s [00:52:29.119] envs <- base::Sys.getenv() 1549s [00:52:29.119] names <- names(envs) 1549s [00:52:29.119] common <- intersect(names, old_names) 1549s [00:52:29.119] added <- setdiff(names, old_names) 1549s [00:52:29.119] removed <- setdiff(old_names, names) 1549s [00:52:29.119] changed <- common[...future.oldEnvVars[common] != 1549s [00:52:29.119] envs[common]] 1549s [00:52:29.119] NAMES <- toupper(changed) 1549s [00:52:29.119] args <- list() 1549s [00:52:29.119] for (kk in seq_along(NAMES)) { 1549s [00:52:29.119] name <- changed[[kk]] 1549s [00:52:29.119] NAME <- NAMES[[kk]] 1549s [00:52:29.119] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.119] next 1549s [00:52:29.119] args[[name]] <- ...future.oldEnvVars[[name]] 1549s [00:52:29.119] } 1549s [00:52:29.119] NAMES <- toupper(added) 1549s [00:52:29.119] for (kk in seq_along(NAMES)) { 1549s [00:52:29.119] name <- added[[kk]] 1549s [00:52:29.119] NAME <- NAMES[[kk]] 1549s [00:52:29.119] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.119] next 1549s [00:52:29.119] args[[name]] <- "" 1549s [00:52:29.119] } 1549s [00:52:29.119] NAMES <- toupper(removed) 1549s [00:52:29.119] for (kk in seq_along(NAMES)) { 1549s [00:52:29.119] name <- removed[[kk]] 1549s [00:52:29.119] NAME <- NAMES[[kk]] 1549s [00:52:29.119] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.119] next 1549s [00:52:29.119] args[[name]] <- ...future.oldEnvVars[[name]] 1549s [00:52:29.119] } 1549s [00:52:29.119] if (length(args) > 0) 1549s [00:52:29.119] base::do.call(base::Sys.setenv, args = args) 1549s [00:52:29.119] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1549s [00:52:29.119] } 1549s [00:52:29.119] else { 1549s [00:52:29.119] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1549s [00:52:29.119] } 1549s [00:52:29.119] { 1549s [00:52:29.119] if (base::length(...future.futureOptionsAdded) > 1549s [00:52:29.119] 0L) { 1549s [00:52:29.119] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1549s [00:52:29.119] base::names(opts) <- ...future.futureOptionsAdded 1549s [00:52:29.119] base::options(opts) 1549s [00:52:29.119] } 1549s [00:52:29.119] { 1549s [00:52:29.119] { 1549s [00:52:29.119] NULL 1549s [00:52:29.119] RNGkind("Mersenne-Twister") 1549s [00:52:29.119] base::rm(list = ".Random.seed", envir = base::globalenv(), 1549s [00:52:29.119] inherits = FALSE) 1549s [00:52:29.119] } 1549s [00:52:29.119] options(future.plan = NULL) 1549s [00:52:29.119] if (is.na(NA_character_)) 1549s [00:52:29.119] Sys.unsetenv("R_FUTURE_PLAN") 1549s [00:52:29.119] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1549s [00:52:29.119] future::plan(list(function (..., envir = parent.frame()) 1549s [00:52:29.119] { 1549s [00:52:29.119] future <- SequentialFuture(..., envir = envir) 1549s [00:52:29.119] if (!future$lazy) 1549s [00:52:29.119] future <- run(future) 1549s [00:52:29.119] invisible(future) 1549s [00:52:29.119] }), .cleanup = FALSE, .init = FALSE) 1549s [00:52:29.119] } 1549s [00:52:29.119] } 1549s [00:52:29.119] } 1549s [00:52:29.119] }) 1549s [00:52:29.119] if (TRUE) { 1549s [00:52:29.119] base::sink(type = "output", split = FALSE) 1549s [00:52:29.119] if (TRUE) { 1549s [00:52:29.119] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1549s [00:52:29.119] } 1549s [00:52:29.119] else { 1549s [00:52:29.119] ...future.result["stdout"] <- base::list(NULL) 1549s [00:52:29.119] } 1549s [00:52:29.119] base::close(...future.stdout) 1549s [00:52:29.119] ...future.stdout <- NULL 1549s [00:52:29.119] } 1549s [00:52:29.119] ...future.result$conditions <- ...future.conditions 1549s [00:52:29.119] ...future.result$finished <- base::Sys.time() 1549s [00:52:29.119] ...future.result 1549s [00:52:29.119] } 1549s [00:52:29.123] assign_globals() ... 1549s [00:52:29.123] List of 5 1549s [00:52:29.123] $ ...future.FUN :function (mode = "logical", length = 0L) 1549s [00:52:29.123] $ future.call.arguments :List of 1 1549s [00:52:29.123] ..$ length: int 2 1549s [00:52:29.123] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1549s [00:52:29.123] $ ...future.elements_ii :List of 1 1549s [00:52:29.123] ..$ c: chr "character" 1549s [00:52:29.123] $ ...future.seeds_ii : NULL 1549s [00:52:29.123] $ ...future.globals.maxSize: NULL 1549s [00:52:29.123] - attr(*, "where")=List of 5 1549s [00:52:29.123] ..$ ...future.FUN : 1549s [00:52:29.123] ..$ future.call.arguments : 1549s [00:52:29.123] ..$ ...future.elements_ii : 1549s [00:52:29.123] ..$ ...future.seeds_ii : 1549s [00:52:29.123] ..$ ...future.globals.maxSize: 1549s [00:52:29.123] - attr(*, "resolved")= logi FALSE 1549s [00:52:29.123] - attr(*, "total_size")= num 2240 1549s [00:52:29.123] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1549s [00:52:29.123] - attr(*, "already-done")= logi TRUE 1549s [00:52:29.132] - copied ‘...future.FUN’ to environment 1549s [00:52:29.132] - copied ‘future.call.arguments’ to environment 1549s [00:52:29.132] - copied ‘...future.elements_ii’ to environment 1549s [00:52:29.132] - copied ‘...future.seeds_ii’ to environment 1549s [00:52:29.132] - copied ‘...future.globals.maxSize’ to environment 1549s [00:52:29.133] assign_globals() ... done 1549s [00:52:29.133] plan(): Setting new future strategy stack: 1549s [00:52:29.133] List of future strategies: 1549s [00:52:29.133] 1. sequential: 1549s [00:52:29.133] - args: function (..., envir = parent.frame()) 1549s [00:52:29.133] - tweaked: FALSE 1549s [00:52:29.133] - call: NULL 1549s [00:52:29.134] plan(): nbrOfWorkers() = 1 1549s [00:52:29.134] plan(): Setting new future strategy stack: 1549s [00:52:29.134] List of future strategies: 1549s [00:52:29.134] 1. sequential: 1549s [00:52:29.134] - args: function (..., envir = parent.frame()) 1549s [00:52:29.134] - tweaked: FALSE 1549s [00:52:29.134] - call: plan(strategy) 1549s [00:52:29.135] plan(): nbrOfWorkers() = 1 1549s [00:52:29.135] SequentialFuture started (and completed) 1549s [00:52:29.135] - Launch lazy future ... done 1549s [00:52:29.135] run() for ‘SequentialFuture’ ... done 1549s [00:52:29.136] Created future: 1549s [00:52:29.136] SequentialFuture: 1549s [00:52:29.136] Label: ‘future_lapply-3’ 1549s [00:52:29.136] Expression: 1549s [00:52:29.136] { 1549s [00:52:29.136] do.call(function(...) { 1549s [00:52:29.136] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.136] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1549s [00:52:29.136] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.136] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.136] } 1549s [00:52:29.136] { 1549s [00:52:29.136] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1549s [00:52:29.136] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.136] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.136] }) 1549s [00:52:29.136] } 1549s [00:52:29.136] }, args = future.call.arguments) 1549s [00:52:29.136] } 1549s [00:52:29.136] Lazy evaluation: FALSE 1549s [00:52:29.136] Asynchronous evaluation: FALSE 1549s [00:52:29.136] Local evaluation: TRUE 1549s [00:52:29.136] Environment: R_GlobalEnv 1549s [00:52:29.136] Capture standard output: TRUE 1549s [00:52:29.136] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1549s [00:52:29.136] Globals: 5 objects totaling 2.30 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 120 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1549s [00:52:29.136] Packages: 1549s [00:52:29.136] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1549s [00:52:29.136] Resolved: TRUE 1549s [00:52:29.136] Value: 120 bytes of class ‘list’ 1549s [00:52:29.136] Early signaling: FALSE 1549s [00:52:29.136] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1549s [00:52:29.136] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1549s [00:52:29.137] Chunk #3 of 4 ... DONE 1549s [00:52:29.138] Chunk #4 of 4 ... 1549s [00:52:29.138] - Finding globals in 'X' for chunk #4 ... 1549s [00:52:29.138] getGlobalsAndPackages() ... 1549s [00:52:29.138] Searching for globals... 1549s [00:52:29.138] 1549s [00:52:29.138] Searching for globals ... DONE 1549s [00:52:29.139] - globals: [0] 1549s [00:52:29.139] getGlobalsAndPackages() ... DONE 1549s [00:52:29.139] + additional globals found: [n=0] 1549s [00:52:29.139] + additional namespaces needed: [n=0] 1549s [00:52:29.139] - Finding globals in 'X' for chunk #4 ... DONE 1549s [00:52:29.139] - Adjusted option 'future.globals.maxSize': 524288000 -> 4 * 524288000 = 2097152000 (bytes) 1549s [00:52:29.139] - seeds: 1549s [00:52:29.140] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.140] getGlobalsAndPackages() ... 1549s [00:52:29.140] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.140] Resolving globals: FALSE 1549s [00:52:29.140] Tweak future expression to call with '...' arguments ... 1549s [00:52:29.141] { 1549s [00:52:29.141] do.call(function(...) { 1549s [00:52:29.141] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.141] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1549s [00:52:29.141] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.141] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.141] } 1549s [00:52:29.141] { 1549s [00:52:29.141] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1549s [00:52:29.141] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.141] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.141] }) 1549s [00:52:29.141] } 1549s [00:52:29.141] }, args = future.call.arguments) 1549s [00:52:29.141] } 1549s [00:52:29.142] Tweak future expression to call with '...' arguments ... DONE 1549s [00:52:29.143] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.143] 1549s [00:52:29.144] getGlobalsAndPackages() ... DONE 1549s [00:52:29.146] run() for ‘Future’ ... 1549s [00:52:29.146] - state: ‘created’ 1549s [00:52:29.147] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1549s [00:52:29.150] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1549s [00:52:29.152] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1549s [00:52:29.153] - Field: ‘label’ 1549s [00:52:29.154] - Field: ‘local’ 1549s [00:52:29.154] - Field: ‘owner’ 1549s [00:52:29.155] - Field: ‘envir’ 1549s [00:52:29.155] - Field: ‘packages’ 1549s [00:52:29.155] - Field: ‘gc’ 1549s [00:52:29.156] - Field: ‘conditions’ 1549s [00:52:29.156] - Field: ‘expr’ 1549s [00:52:29.156] - Field: ‘uuid’ 1549s [00:52:29.156] - Field: ‘seed’ 1549s [00:52:29.157] - Field: ‘version’ 1549s [00:52:29.157] - Field: ‘result’ 1549s [00:52:29.157] - Field: ‘asynchronous’ 1549s [00:52:29.157] - Field: ‘calls’ 1549s [00:52:29.157] - Field: ‘globals’ 1549s [00:52:29.158] - Field: ‘stdout’ 1549s [00:52:29.158] - Field: ‘earlySignal’ 1549s [00:52:29.158] - Field: ‘lazy’ 1549s [00:52:29.159] - Field: ‘state’ 1549s [00:52:29.159] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1549s [00:52:29.159] - Launch lazy future ... 1549s [00:52:29.162] Packages needed by the future expression (n = 0): 1549s [00:52:29.162] Packages needed by future strategies (n = 0): 1549s [00:52:29.164] { 1549s [00:52:29.164] { 1549s [00:52:29.164] { 1549s [00:52:29.164] ...future.startTime <- base::Sys.time() 1549s [00:52:29.164] { 1549s [00:52:29.164] { 1549s [00:52:29.164] { 1549s [00:52:29.164] base::local({ 1549s [00:52:29.164] has_future <- base::requireNamespace("future", 1549s [00:52:29.164] quietly = TRUE) 1549s [00:52:29.164] if (has_future) { 1549s [00:52:29.164] ns <- base::getNamespace("future") 1549s [00:52:29.164] version <- ns[[".package"]][["version"]] 1549s [00:52:29.164] if (is.null(version)) 1549s [00:52:29.164] version <- utils::packageVersion("future") 1549s [00:52:29.164] } 1549s [00:52:29.164] else { 1549s [00:52:29.164] version <- NULL 1549s [00:52:29.164] } 1549s [00:52:29.164] if (!has_future || version < "1.8.0") { 1549s [00:52:29.164] info <- base::c(r_version = base::gsub("R version ", 1549s [00:52:29.164] "", base::R.version$version.string), 1549s [00:52:29.164] platform = base::sprintf("%s (%s-bit)", 1549s [00:52:29.164] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1549s [00:52:29.164] os = base::paste(base::Sys.info()[base::c("sysname", 1549s [00:52:29.164] "release", "version")], collapse = " "), 1549s [00:52:29.164] hostname = base::Sys.info()[["nodename"]]) 1549s [00:52:29.164] info <- base::sprintf("%s: %s", base::names(info), 1549s [00:52:29.164] info) 1549s [00:52:29.164] info <- base::paste(info, collapse = "; ") 1549s [00:52:29.164] if (!has_future) { 1549s [00:52:29.164] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1549s [00:52:29.164] info) 1549s [00:52:29.164] } 1549s [00:52:29.164] else { 1549s [00:52:29.164] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1549s [00:52:29.164] info, version) 1549s [00:52:29.164] } 1549s [00:52:29.164] base::stop(msg) 1549s [00:52:29.164] } 1549s [00:52:29.164] }) 1549s [00:52:29.164] } 1549s [00:52:29.164] options(future.plan = NULL) 1549s [00:52:29.164] Sys.unsetenv("R_FUTURE_PLAN") 1549s [00:52:29.164] future::plan("default", .cleanup = FALSE, .init = FALSE) 1549s [00:52:29.164] } 1549s [00:52:29.164] ...future.workdir <- getwd() 1549s [00:52:29.164] } 1549s [00:52:29.164] ...future.oldOptions <- base::as.list(base::.Options) 1549s [00:52:29.164] ...future.oldEnvVars <- base::Sys.getenv() 1549s [00:52:29.164] } 1549s [00:52:29.164] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1549s [00:52:29.164] future.globals.maxSize = 2097152000, future.globals.method = NULL, 1549s [00:52:29.164] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1549s [00:52:29.164] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1549s [00:52:29.164] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1549s [00:52:29.164] future.stdout.windows.reencode = NULL, width = 80L) 1549s [00:52:29.164] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1549s [00:52:29.164] base::names(...future.oldOptions)) 1549s [00:52:29.164] } 1549s [00:52:29.164] if (FALSE) { 1549s [00:52:29.164] } 1549s [00:52:29.164] else { 1549s [00:52:29.164] if (TRUE) { 1549s [00:52:29.164] ...future.stdout <- base::rawConnection(base::raw(0L), 1549s [00:52:29.164] open = "w") 1549s [00:52:29.164] } 1549s [00:52:29.164] else { 1549s [00:52:29.164] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1549s [00:52:29.164] windows = "NUL", "/dev/null"), open = "w") 1549s [00:52:29.164] } 1549s [00:52:29.164] base::sink(...future.stdout, type = "output", split = FALSE) 1549s [00:52:29.164] base::on.exit(if (!base::is.null(...future.stdout)) { 1549s [00:52:29.164] base::sink(type = "output", split = FALSE) 1549s [00:52:29.164] base::close(...future.stdout) 1549s [00:52:29.164] }, add = TRUE) 1549s [00:52:29.164] } 1549s [00:52:29.164] ...future.frame <- base::sys.nframe() 1549s [00:52:29.164] ...future.conditions <- base::list() 1549s [00:52:29.164] ...future.rng <- base::globalenv()$.Random.seed 1549s [00:52:29.164] if (FALSE) { 1549s [00:52:29.164] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1549s [00:52:29.164] "...future.value", "...future.globalenv.names", ".Random.seed") 1549s [00:52:29.164] } 1549s [00:52:29.164] ...future.result <- base::tryCatch({ 1549s [00:52:29.164] base::withCallingHandlers({ 1549s [00:52:29.164] ...future.value <- base::withVisible(base::local({ 1549s [00:52:29.164] do.call(function(...) { 1549s [00:52:29.164] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.164] if (!identical(...future.globals.maxSize.org, 1549s [00:52:29.164] ...future.globals.maxSize)) { 1549s [00:52:29.164] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.164] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.164] } 1549s [00:52:29.164] { 1549s [00:52:29.164] lapply(seq_along(...future.elements_ii), 1549s [00:52:29.164] FUN = function(jj) { 1549s [00:52:29.164] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.164] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.164] }) 1549s [00:52:29.164] } 1549s [00:52:29.164] }, args = future.call.arguments) 1549s [00:52:29.164] })) 1549s [00:52:29.164] future::FutureResult(value = ...future.value$value, 1549s [00:52:29.164] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1549s [00:52:29.164] ...future.rng), globalenv = if (FALSE) 1549s [00:52:29.164] list(added = base::setdiff(base::names(base::.GlobalEnv), 1549s [00:52:29.164] ...future.globalenv.names)) 1549s [00:52:29.164] else NULL, started = ...future.startTime, version = "1.8") 1549s [00:52:29.164] }, condition = base::local({ 1549s [00:52:29.164] c <- base::c 1549s [00:52:29.164] inherits <- base::inherits 1549s [00:52:29.164] invokeRestart <- base::invokeRestart 1549s [00:52:29.164] length <- base::length 1549s [00:52:29.164] list <- base::list 1549s [00:52:29.164] seq.int <- base::seq.int 1549s [00:52:29.164] signalCondition <- base::signalCondition 1549s [00:52:29.164] sys.calls <- base::sys.calls 1549s [00:52:29.164] `[[` <- base::`[[` 1549s [00:52:29.164] `+` <- base::`+` 1549s [00:52:29.164] `<<-` <- base::`<<-` 1549s [00:52:29.164] sysCalls <- function(calls = sys.calls(), from = 1L) { 1549s [00:52:29.164] calls[seq.int(from = from + 12L, to = length(calls) - 1549s [00:52:29.164] 3L)] 1549s [00:52:29.164] } 1549s [00:52:29.164] function(cond) { 1549s [00:52:29.164] is_error <- inherits(cond, "error") 1549s [00:52:29.164] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1549s [00:52:29.164] NULL) 1549s [00:52:29.164] if (is_error) { 1549s [00:52:29.164] sessionInformation <- function() { 1549s [00:52:29.164] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1549s [00:52:29.164] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1549s [00:52:29.164] search = base::search(), system = base::Sys.info()) 1549s [00:52:29.164] } 1549s [00:52:29.164] ...future.conditions[[length(...future.conditions) + 1549s [00:52:29.164] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1549s [00:52:29.164] cond$call), session = sessionInformation(), 1549s [00:52:29.164] timestamp = base::Sys.time(), signaled = 0L) 1549s [00:52:29.164] signalCondition(cond) 1549s [00:52:29.164] } 1549s [00:52:29.164] else if (!ignore && TRUE && inherits(cond, c("condition", 1549s [00:52:29.164] "immediateCondition"))) { 1549s [00:52:29.164] signal <- TRUE && inherits(cond, "immediateCondition") 1549s [00:52:29.164] ...future.conditions[[length(...future.conditions) + 1549s [00:52:29.164] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1549s [00:52:29.164] if (TRUE && !signal) { 1549s [00:52:29.164] muffleCondition <- function (cond, pattern = "^muffle") 1549s [00:52:29.164] { 1549s [00:52:29.164] inherits <- base::inherits 1549s [00:52:29.164] invokeRestart <- base::invokeRestart 1549s [00:52:29.164] is.null <- base::is.null 1549s [00:52:29.164] muffled <- FALSE 1549s [00:52:29.164] if (inherits(cond, "message")) { 1549s [00:52:29.164] muffled <- grepl(pattern, "muffleMessage") 1549s [00:52:29.164] if (muffled) 1549s [00:52:29.164] invokeRestart("muffleMessage") 1549s [00:52:29.164] } 1549s [00:52:29.164] else if (inherits(cond, "warning")) { 1549s [00:52:29.164] muffled <- grepl(pattern, "muffleWarning") 1549s [00:52:29.164] if (muffled) 1549s [00:52:29.164] invokeRestart("muffleWarning") 1549s [00:52:29.164] } 1549s [00:52:29.164] else if (inherits(cond, "condition")) { 1549s [00:52:29.164] if (!is.null(pattern)) { 1549s [00:52:29.164] computeRestarts <- base::computeRestarts 1549s [00:52:29.164] grepl <- base::grepl 1549s [00:52:29.164] restarts <- computeRestarts(cond) 1549s [00:52:29.164] for (restart in restarts) { 1549s [00:52:29.164] name <- restart$name 1549s [00:52:29.164] if (is.null(name)) 1549s [00:52:29.164] next 1549s [00:52:29.164] if (!grepl(pattern, name)) 1549s [00:52:29.164] next 1549s [00:52:29.164] invokeRestart(restart) 1549s [00:52:29.164] muffled <- TRUE 1549s [00:52:29.164] break 1549s [00:52:29.164] } 1549s [00:52:29.164] } 1549s [00:52:29.164] } 1549s [00:52:29.164] invisible(muffled) 1549s [00:52:29.164] } 1549s [00:52:29.164] muffleCondition(cond, pattern = "^muffle") 1549s [00:52:29.164] } 1549s [00:52:29.164] } 1549s [00:52:29.164] else { 1549s [00:52:29.164] if (TRUE) { 1549s [00:52:29.164] muffleCondition <- function (cond, pattern = "^muffle") 1549s [00:52:29.164] { 1549s [00:52:29.164] inherits <- base::inherits 1549s [00:52:29.164] invokeRestart <- base::invokeRestart 1549s [00:52:29.164] is.null <- base::is.null 1549s [00:52:29.164] muffled <- FALSE 1549s [00:52:29.164] if (inherits(cond, "message")) { 1549s [00:52:29.164] muffled <- grepl(pattern, "muffleMessage") 1549s [00:52:29.164] if (muffled) 1549s [00:52:29.164] invokeRestart("muffleMessage") 1549s [00:52:29.164] } 1549s [00:52:29.164] else if (inherits(cond, "warning")) { 1549s [00:52:29.164] muffled <- grepl(pattern, "muffleWarning") 1549s [00:52:29.164] if (muffled) 1549s [00:52:29.164] invokeRestart("muffleWarning") 1549s [00:52:29.164] } 1549s [00:52:29.164] else if (inherits(cond, "condition")) { 1549s [00:52:29.164] if (!is.null(pattern)) { 1549s [00:52:29.164] computeRestarts <- base::computeRestarts 1549s [00:52:29.164] grepl <- base::grepl 1549s [00:52:29.164] restarts <- computeRestarts(cond) 1549s [00:52:29.164] for (restart in restarts) { 1549s [00:52:29.164] name <- restart$name 1549s [00:52:29.164] if (is.null(name)) 1549s [00:52:29.164] next 1549s [00:52:29.164] if (!grepl(pattern, name)) 1549s [00:52:29.164] next 1549s [00:52:29.164] invokeRestart(restart) 1549s [00:52:29.164] muffled <- TRUE 1549s [00:52:29.164] break 1549s [00:52:29.164] } 1549s [00:52:29.164] } 1549s [00:52:29.164] } 1549s [00:52:29.164] invisible(muffled) 1549s [00:52:29.164] } 1549s [00:52:29.164] muffleCondition(cond, pattern = "^muffle") 1549s [00:52:29.164] } 1549s [00:52:29.164] } 1549s [00:52:29.164] } 1549s [00:52:29.164] })) 1549s [00:52:29.164] }, error = function(ex) { 1549s [00:52:29.164] base::structure(base::list(value = NULL, visible = NULL, 1549s [00:52:29.164] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1549s [00:52:29.164] ...future.rng), started = ...future.startTime, 1549s [00:52:29.164] finished = Sys.time(), session_uuid = NA_character_, 1549s [00:52:29.164] version = "1.8"), class = "FutureResult") 1549s [00:52:29.164] }, finally = { 1549s [00:52:29.164] if (!identical(...future.workdir, getwd())) 1549s [00:52:29.164] setwd(...future.workdir) 1549s [00:52:29.164] { 1549s [00:52:29.164] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1549s [00:52:29.164] ...future.oldOptions$nwarnings <- NULL 1549s [00:52:29.164] } 1549s [00:52:29.164] base::options(...future.oldOptions) 1549s [00:52:29.164] if (.Platform$OS.type == "windows") { 1549s [00:52:29.164] old_names <- names(...future.oldEnvVars) 1549s [00:52:29.164] envs <- base::Sys.getenv() 1549s [00:52:29.164] names <- names(envs) 1549s [00:52:29.164] common <- intersect(names, old_names) 1549s [00:52:29.164] added <- setdiff(names, old_names) 1549s [00:52:29.164] removed <- setdiff(old_names, names) 1549s [00:52:29.164] changed <- common[...future.oldEnvVars[common] != 1549s [00:52:29.164] envs[common]] 1549s [00:52:29.164] NAMES <- toupper(changed) 1549s [00:52:29.164] args <- list() 1549s [00:52:29.164] for (kk in seq_along(NAMES)) { 1549s [00:52:29.164] name <- changed[[kk]] 1549s [00:52:29.164] NAME <- NAMES[[kk]] 1549s [00:52:29.164] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.164] next 1549s [00:52:29.164] args[[name]] <- ...future.oldEnvVars[[name]] 1549s [00:52:29.164] } 1549s [00:52:29.164] NAMES <- toupper(added) 1549s [00:52:29.164] for (kk in seq_along(NAMES)) { 1549s [00:52:29.164] name <- added[[kk]] 1549s [00:52:29.164] NAME <- NAMES[[kk]] 1549s [00:52:29.164] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.164] next 1549s [00:52:29.164] args[[name]] <- "" 1549s [00:52:29.164] } 1549s [00:52:29.164] NAMES <- toupper(removed) 1549s [00:52:29.164] for (kk in seq_along(NAMES)) { 1549s [00:52:29.164] name <- removed[[kk]] 1549s [00:52:29.164] NAME <- NAMES[[kk]] 1549s [00:52:29.164] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.164] next 1549s [00:52:29.164] args[[name]] <- ...future.oldEnvVars[[name]] 1549s [00:52:29.164] } 1549s [00:52:29.164] if (length(args) > 0) 1549s [00:52:29.164] base::do.call(base::Sys.setenv, args = args) 1549s [00:52:29.164] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1549s [00:52:29.164] } 1549s [00:52:29.164] else { 1549s [00:52:29.164] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1549s [00:52:29.164] } 1549s [00:52:29.164] { 1549s [00:52:29.164] if (base::length(...future.futureOptionsAdded) > 1549s [00:52:29.164] 0L) { 1549s [00:52:29.164] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1549s [00:52:29.164] base::names(opts) <- ...future.futureOptionsAdded 1549s [00:52:29.164] base::options(opts) 1549s [00:52:29.164] } 1549s [00:52:29.164] { 1549s [00:52:29.164] { 1549s [00:52:29.164] NULL 1549s [00:52:29.164] RNGkind("Mersenne-Twister") 1549s [00:52:29.164] base::rm(list = ".Random.seed", envir = base::globalenv(), 1549s [00:52:29.164] inherits = FALSE) 1549s [00:52:29.164] } 1549s [00:52:29.164] options(future.plan = NULL) 1549s [00:52:29.164] if (is.na(NA_character_)) 1549s [00:52:29.164] Sys.unsetenv("R_FUTURE_PLAN") 1549s [00:52:29.164] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1549s [00:52:29.164] future::plan(list(function (..., envir = parent.frame()) 1549s [00:52:29.164] { 1549s [00:52:29.164] future <- SequentialFuture(..., envir = envir) 1549s [00:52:29.164] if (!future$lazy) 1549s [00:52:29.164] future <- run(future) 1549s [00:52:29.164] invisible(future) 1549s [00:52:29.164] }), .cleanup = FALSE, .init = FALSE) 1549s [00:52:29.164] } 1549s [00:52:29.164] } 1549s [00:52:29.164] } 1549s [00:52:29.164] }) 1549s [00:52:29.164] if (TRUE) { 1549s [00:52:29.164] base::sink(type = "output", split = FALSE) 1549s [00:52:29.164] if (TRUE) { 1549s [00:52:29.164] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1549s [00:52:29.164] } 1549s [00:52:29.164] else { 1549s [00:52:29.164] ...future.result["stdout"] <- base::list(NULL) 1549s [00:52:29.164] } 1549s [00:52:29.164] base::close(...future.stdout) 1549s [00:52:29.164] ...future.stdout <- NULL 1549s [00:52:29.164] } 1549s [00:52:29.164] ...future.result$conditions <- ...future.conditions 1549s [00:52:29.164] ...future.result$finished <- base::Sys.time() 1549s [00:52:29.164] ...future.result 1549s [00:52:29.164] } 1549s [00:52:29.175] assign_globals() ... 1549s [00:52:29.175] List of 5 1549s [00:52:29.175] $ ...future.FUN :function (mode = "logical", length = 0L) 1549s [00:52:29.175] $ future.call.arguments :List of 1 1549s [00:52:29.175] ..$ length: int 2 1549s [00:52:29.175] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1549s [00:52:29.175] $ ...future.elements_ii :List of 1 1549s [00:52:29.175] ..$ c: chr "list" 1549s [00:52:29.175] $ ...future.seeds_ii : NULL 1549s [00:52:29.175] $ ...future.globals.maxSize: NULL 1549s [00:52:29.175] - attr(*, "where")=List of 5 1549s [00:52:29.175] ..$ ...future.FUN : 1549s [00:52:29.175] ..$ future.call.arguments : 1549s [00:52:29.175] ..$ ...future.elements_ii : 1549s [00:52:29.175] ..$ ...future.seeds_ii : 1549s [00:52:29.175] ..$ ...future.globals.maxSize: 1549s [00:52:29.175] - attr(*, "resolved")= logi FALSE 1549s [00:52:29.175] - attr(*, "total_size")= num 2240 1549s [00:52:29.175] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1549s [00:52:29.175] - attr(*, "already-done")= logi TRUE 1549s [00:52:29.184] - copied ‘...future.FUN’ to environment 1549s [00:52:29.184] - copied ‘future.call.arguments’ to environment 1549s [00:52:29.184] - copied ‘...future.elements_ii’ to environment 1549s [00:52:29.184] - copied ‘...future.seeds_ii’ to environment 1549s [00:52:29.185] - copied ‘...future.globals.maxSize’ to environment 1549s [00:52:29.185] assign_globals() ... done 1549s [00:52:29.185] plan(): Setting new future strategy stack: 1549s [00:52:29.186] List of future strategies: 1549s [00:52:29.186] 1. sequential: 1549s [00:52:29.186] - args: function (..., envir = parent.frame()) 1549s [00:52:29.186] - tweaked: FALSE 1549s [00:52:29.186] - call: NULL 1549s [00:52:29.188] plan(): nbrOfWorkers() = 1 1549s [00:52:29.189] plan(): Setting new future strategy stack: 1549s [00:52:29.189] List of future strategies: 1549s [00:52:29.189] 1. sequential: 1549s [00:52:29.189] - args: function (..., envir = parent.frame()) 1549s [00:52:29.189] - tweaked: FALSE 1549s [00:52:29.189] - call: plan(strategy) 1549s [00:52:29.190] plan(): nbrOfWorkers() = 1 1549s [00:52:29.190] SequentialFuture started (and completed) 1549s [00:52:29.190] - Launch lazy future ... done 1549s [00:52:29.190] run() for ‘SequentialFuture’ ... done 1549s [00:52:29.191] Created future: 1549s [00:52:29.191] SequentialFuture: 1549s [00:52:29.191] Label: ‘future_lapply-4’ 1549s [00:52:29.191] Expression: 1549s [00:52:29.191] { 1549s [00:52:29.191] do.call(function(...) { 1549s [00:52:29.191] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.191] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1549s [00:52:29.191] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.191] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.191] } 1549s [00:52:29.191] { 1549s [00:52:29.191] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1549s [00:52:29.191] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.191] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.191] }) 1549s [00:52:29.191] } 1549s [00:52:29.191] }, args = future.call.arguments) 1549s [00:52:29.191] } 1549s [00:52:29.191] Lazy evaluation: FALSE 1549s [00:52:29.191] Asynchronous evaluation: FALSE 1549s [00:52:29.191] Local evaluation: TRUE 1549s [00:52:29.191] Environment: R_GlobalEnv 1549s [00:52:29.191] Capture standard output: TRUE 1549s [00:52:29.191] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1549s [00:52:29.191] Globals: 5 objects totaling 2.30 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1549s [00:52:29.191] Packages: 1549s [00:52:29.191] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1549s [00:52:29.191] Resolved: TRUE 1549s [00:52:29.191] Value: 0 bytes of class ‘list’ 1549s [00:52:29.191] Early signaling: FALSE 1549s [00:52:29.191] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1549s [00:52:29.191] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1549s [00:52:29.193] Chunk #4 of 4 ... DONE 1549s [00:52:29.193] Launching 4 futures (chunks) ... DONE 1549s [00:52:29.193] Resolving 4 futures (chunks) ... 1549s [00:52:29.193] resolve() on list ... 1549s [00:52:29.193] recursive: 0 1549s [00:52:29.193] length: 4 1549s [00:52:29.194] 1549s [00:52:29.194] resolved() for ‘SequentialFuture’ ... 1549s [00:52:29.194] - state: ‘finished’ 1549s [00:52:29.194] - run: TRUE 1549s [00:52:29.194] - result: ‘FutureResult’ 1549s [00:52:29.195] resolved() for ‘SequentialFuture’ ... done 1549s [00:52:29.195] Future #1 1549s [00:52:29.195] signalConditionsASAP(SequentialFuture, pos=1) ... 1549s [00:52:29.195] - nx: 4 1549s [00:52:29.195] - relay: TRUE 1549s [00:52:29.196] - stdout: TRUE 1549s [00:52:29.196] - signal: TRUE 1549s [00:52:29.196] - resignal: FALSE 1549s [00:52:29.196] - force: TRUE 1549s [00:52:29.196] - relayed: [n=4] FALSE, FALSE, FALSE, FALSE 1549s [00:52:29.196] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE 1549s [00:52:29.196] - until=1 1549s [00:52:29.197] - relaying element #1 1549s [00:52:29.197] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE 1549s [00:52:29.197] - queued futures: [n=4] TRUE, FALSE, FALSE, FALSE 1549s [00:52:29.197] signalConditionsASAP(SequentialFuture, pos=1) ... done 1549s [00:52:29.198] length: 3 (resolved future 1) 1549s [00:52:29.198] resolved() for ‘SequentialFuture’ ... 1549s [00:52:29.198] - state: ‘finished’ 1549s [00:52:29.198] - run: TRUE 1549s [00:52:29.198] - result: ‘FutureResult’ 1549s [00:52:29.198] resolved() for ‘SequentialFuture’ ... done 1549s [00:52:29.198] Future #2 1549s [00:52:29.199] signalConditionsASAP(SequentialFuture, pos=2) ... 1549s [00:52:29.199] - nx: 4 1549s [00:52:29.199] - relay: TRUE 1549s [00:52:29.199] - stdout: TRUE 1549s [00:52:29.199] - signal: TRUE 1549s [00:52:29.199] - resignal: FALSE 1549s [00:52:29.200] - force: TRUE 1549s [00:52:29.200] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE 1549s [00:52:29.200] - queued futures: [n=4] TRUE, FALSE, FALSE, FALSE 1549s [00:52:29.200] - until=2 1549s [00:52:29.200] - relaying element #2 1549s [00:52:29.200] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE 1549s [00:52:29.201] - queued futures: [n=4] TRUE, TRUE, FALSE, FALSE 1549s [00:52:29.201] signalConditionsASAP(SequentialFuture, pos=2) ... done 1549s [00:52:29.201] length: 2 (resolved future 2) 1549s [00:52:29.201] resolved() for ‘SequentialFuture’ ... 1549s [00:52:29.201] - state: ‘finished’ 1549s [00:52:29.201] - run: TRUE 1549s [00:52:29.201] - result: ‘FutureResult’ 1549s [00:52:29.202] resolved() for ‘SequentialFuture’ ... done 1549s [00:52:29.202] Future #3 1549s [00:52:29.202] signalConditionsASAP(SequentialFuture, pos=3) ... 1549s [00:52:29.202] - nx: 4 1549s [00:52:29.203] - relay: TRUE 1549s [00:52:29.203] - stdout: TRUE 1549s [00:52:29.203] - signal: TRUE 1549s [00:52:29.203] - resignal: FALSE 1549s [00:52:29.203] - force: TRUE 1549s [00:52:29.203] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE 1549s [00:52:29.203] - queued futures: [n=4] TRUE, TRUE, FALSE, FALSE 1549s [00:52:29.204] - until=3 1549s [00:52:29.204] - relaying element #3 1549s [00:52:29.204] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE 1549s [00:52:29.204] - queued futures: [n=4] TRUE, TRUE, TRUE, FALSE 1549s [00:52:29.204] signalConditionsASAP(SequentialFuture, pos=3) ... done 1549s [00:52:29.205] length: 1 (resolved future 3) 1549s [00:52:29.205] resolved() for ‘SequentialFuture’ ... 1549s [00:52:29.205] - state: ‘finished’ 1549s [00:52:29.205] - run: TRUE 1549s [00:52:29.205] - result: ‘FutureResult’ 1549s [00:52:29.205] resolved() for ‘SequentialFuture’ ... done 1549s [00:52:29.205] Future #4 1549s [00:52:29.206] signalConditionsASAP(SequentialFuture, pos=4) ... 1549s [00:52:29.206] - nx: 4 1549s [00:52:29.206] - relay: TRUE 1549s [00:52:29.206] - stdout: TRUE 1549s [00:52:29.206] - signal: TRUE 1549s [00:52:29.206] - resignal: FALSE 1549s [00:52:29.207] - force: TRUE 1549s [00:52:29.207] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE 1549s [00:52:29.207] - queued futures: [n=4] TRUE, TRUE, TRUE, FALSE 1549s [00:52:29.207] - until=4 1549s [00:52:29.207] - relaying element #4 1549s [00:52:29.207] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE 1549s [00:52:29.208] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE 1549s [00:52:29.208] signalConditionsASAP(SequentialFuture, pos=4) ... done 1549s [00:52:29.208] length: 0 (resolved future 4) 1549s [00:52:29.208] Relaying remaining futures 1549s [00:52:29.208] signalConditionsASAP(NULL, pos=0) ... 1549s [00:52:29.208] - nx: 4 1549s [00:52:29.208] - relay: TRUE 1549s [00:52:29.208] - stdout: TRUE 1549s [00:52:29.209] - signal: TRUE 1549s [00:52:29.209] - resignal: FALSE 1549s [00:52:29.209] - force: TRUE 1549s [00:52:29.209] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE 1549s [00:52:29.209] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE 1549s - flush all 1549s [00:52:29.209] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE 1549s [00:52:29.210] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE 1549s [00:52:29.210] signalConditionsASAP(NULL, pos=0) ... done 1549s [00:52:29.210] resolve() on list ... DONE 1549s [00:52:29.211] - Number of value chunks collected: 4 1549s [00:52:29.211] Resolving 4 futures (chunks) ... DONE 1549s [00:52:29.211] Reducing values from 4 chunks ... 1549s [00:52:29.211] - Number of values collected after concatenation: 4 1549s [00:52:29.211] - Number of values expected: 4 1549s [00:52:29.211] Reducing values from 4 chunks ... DONE 1549s [00:52:29.211] future_lapply() ... DONE 1549s List of 1 1549s $ y:List of 4 1549s ..$ a: int [1:2] 0 0 1549s ..$ b: num [1:2] 0 0 1549s ..$ c: chr [1:2] "" "" 1549s ..$ c:List of 2 1549s .. ..$ : NULL 1549s .. ..$ : NULL 1549s - future_lapply(x, FUN = base::vector, ...) ... 1549s [00:52:29.217] future_lapply() ... 1549s [00:52:29.218] Number of chunks: 4 1549s [00:52:29.218] getGlobalsAndPackagesXApply() ... 1549s [00:52:29.218] - future.globals: TRUE 1549s [00:52:29.218] getGlobalsAndPackages() ... 1549s [00:52:29.218] Searching for globals... 1549s [00:52:29.220] - globals found: [2] ‘FUN’, ‘.Internal’ 1549s [00:52:29.220] Searching for globals ... DONE 1549s [00:52:29.220] Resolving globals: FALSE 1549s [00:52:29.221] The total size of the 1 globals is 2.13 KiB (2184 bytes) 1549s [00:52:29.221] The total size of the 1 globals exported for future expression (‘FUN(length = 2L)’) is 2.13 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (2.13 KiB of class ‘function’) 1549s [00:52:29.222] - globals: [1] ‘FUN’ 1549s [00:52:29.222] 1549s [00:52:29.222] getGlobalsAndPackages() ... DONE 1549s [00:52:29.222] - globals found/used: [n=1] ‘FUN’ 1549s [00:52:29.222] - needed namespaces: [n=0] 1549s [00:52:29.222] Finding globals ... DONE 1549s [00:52:29.223] - use_args: TRUE 1549s [00:52:29.223] - Getting '...' globals ... 1549s [00:52:29.223] resolve() on list ... 1549s [00:52:29.223] recursive: 0 1549s [00:52:29.223] length: 1 1549s [00:52:29.223] elements: ‘...’ 1549s [00:52:29.223] length: 0 (resolved future 1) 1549s [00:52:29.224] resolve() on list ... DONE 1549s [00:52:29.224] - '...' content: [n=1] ‘length’ 1549s [00:52:29.224] List of 1 1549s [00:52:29.224] $ ...:List of 1 1549s [00:52:29.224] ..$ length: int 2 1549s [00:52:29.224] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1549s [00:52:29.224] - attr(*, "where")=List of 1 1549s [00:52:29.224] ..$ ...: 1549s [00:52:29.224] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1549s [00:52:29.224] - attr(*, "resolved")= logi TRUE 1549s [00:52:29.224] - attr(*, "total_size")= num NA 1549s [00:52:29.229] - Getting '...' globals ... DONE 1549s [00:52:29.229] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1549s [00:52:29.229] List of 2 1549s [00:52:29.229] $ ...future.FUN:function (mode = "logical", length = 0L) 1549s [00:52:29.229] $ ... :List of 1 1549s [00:52:29.229] ..$ length: int 2 1549s [00:52:29.229] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1549s [00:52:29.229] - attr(*, "where")=List of 2 1549s [00:52:29.229] ..$ ...future.FUN: 1549s [00:52:29.229] ..$ ... : 1549s [00:52:29.229] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1549s [00:52:29.229] - attr(*, "resolved")= logi FALSE 1549s [00:52:29.229] - attr(*, "total_size")= num 2240 1549s [00:52:29.234] Packages to be attached in all futures: [n=0] 1549s [00:52:29.234] getGlobalsAndPackagesXApply() ... DONE 1549s [00:52:29.234] Number of futures (= number of chunks): 4 1549s [00:52:29.234] Launching 4 futures (chunks) ... 1549s [00:52:29.235] Chunk #1 of 4 ... 1549s [00:52:29.235] - Finding globals in 'X' for chunk #1 ... 1549s [00:52:29.235] getGlobalsAndPackages() ... 1549s [00:52:29.235] Searching for globals... 1549s [00:52:29.236] 1549s [00:52:29.236] Searching for globals ... DONE 1549s [00:52:29.236] - globals: [0] 1549s [00:52:29.236] getGlobalsAndPackages() ... DONE 1549s [00:52:29.236] + additional globals found: [n=0] 1549s [00:52:29.236] + additional namespaces needed: [n=0] 1549s [00:52:29.237] - Finding globals in 'X' for chunk #1 ... DONE 1549s [00:52:29.237] - Adjusted option 'future.globals.maxSize': 524288000 -> 4 * 524288000 = 2097152000 (bytes) 1549s [00:52:29.237] - seeds: 1549s [00:52:29.237] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.237] getGlobalsAndPackages() ... 1549s [00:52:29.238] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.238] Resolving globals: FALSE 1549s [00:52:29.238] Tweak future expression to call with '...' arguments ... 1549s [00:52:29.238] { 1549s [00:52:29.238] do.call(function(...) { 1549s [00:52:29.238] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.238] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1549s [00:52:29.238] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.238] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.238] } 1549s [00:52:29.238] { 1549s [00:52:29.238] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1549s [00:52:29.238] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.238] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.238] }) 1549s [00:52:29.238] } 1549s [00:52:29.238] }, args = future.call.arguments) 1549s [00:52:29.238] } 1549s [00:52:29.239] Tweak future expression to call with '...' arguments ... DONE 1549s [00:52:29.239] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.239] 1549s [00:52:29.239] getGlobalsAndPackages() ... DONE 1549s [00:52:29.240] run() for ‘Future’ ... 1549s [00:52:29.240] - state: ‘created’ 1549s [00:52:29.240] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1549s [00:52:29.241] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1549s [00:52:29.241] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1549s [00:52:29.241] - Field: ‘label’ 1549s [00:52:29.241] - Field: ‘local’ 1549s [00:52:29.241] - Field: ‘owner’ 1549s [00:52:29.241] - Field: ‘envir’ 1549s [00:52:29.242] - Field: ‘packages’ 1549s [00:52:29.242] - Field: ‘gc’ 1549s [00:52:29.242] - Field: ‘conditions’ 1549s [00:52:29.242] - Field: ‘expr’ 1549s [00:52:29.242] - Field: ‘uuid’ 1549s [00:52:29.242] - Field: ‘seed’ 1549s [00:52:29.242] - Field: ‘version’ 1549s [00:52:29.243] - Field: ‘result’ 1549s [00:52:29.243] - Field: ‘asynchronous’ 1549s [00:52:29.243] - Field: ‘calls’ 1549s [00:52:29.243] - Field: ‘globals’ 1549s [00:52:29.243] - Field: ‘stdout’ 1549s [00:52:29.244] - Field: ‘earlySignal’ 1549s [00:52:29.244] - Field: ‘lazy’ 1549s [00:52:29.244] - Field: ‘state’ 1549s [00:52:29.244] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1549s [00:52:29.244] - Launch lazy future ... 1549s [00:52:29.245] Packages needed by the future expression (n = 0): 1549s [00:52:29.245] Packages needed by future strategies (n = 0): 1549s [00:52:29.245] { 1549s [00:52:29.245] { 1549s [00:52:29.245] { 1549s [00:52:29.245] ...future.startTime <- base::Sys.time() 1549s [00:52:29.245] { 1549s [00:52:29.245] { 1549s [00:52:29.245] { 1549s [00:52:29.245] base::local({ 1549s [00:52:29.245] has_future <- base::requireNamespace("future", 1549s [00:52:29.245] quietly = TRUE) 1549s [00:52:29.245] if (has_future) { 1549s [00:52:29.245] ns <- base::getNamespace("future") 1549s [00:52:29.245] version <- ns[[".package"]][["version"]] 1549s [00:52:29.245] if (is.null(version)) 1549s [00:52:29.245] version <- utils::packageVersion("future") 1549s [00:52:29.245] } 1549s [00:52:29.245] else { 1549s [00:52:29.245] version <- NULL 1549s [00:52:29.245] } 1549s [00:52:29.245] if (!has_future || version < "1.8.0") { 1549s [00:52:29.245] info <- base::c(r_version = base::gsub("R version ", 1549s [00:52:29.245] "", base::R.version$version.string), 1549s [00:52:29.245] platform = base::sprintf("%s (%s-bit)", 1549s [00:52:29.245] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1549s [00:52:29.245] os = base::paste(base::Sys.info()[base::c("sysname", 1549s [00:52:29.245] "release", "version")], collapse = " "), 1549s [00:52:29.245] hostname = base::Sys.info()[["nodename"]]) 1549s [00:52:29.245] info <- base::sprintf("%s: %s", base::names(info), 1549s [00:52:29.245] info) 1549s [00:52:29.245] info <- base::paste(info, collapse = "; ") 1549s [00:52:29.245] if (!has_future) { 1549s [00:52:29.245] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1549s [00:52:29.245] info) 1549s [00:52:29.245] } 1549s [00:52:29.245] else { 1549s [00:52:29.245] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1549s [00:52:29.245] info, version) 1549s [00:52:29.245] } 1549s [00:52:29.245] base::stop(msg) 1549s [00:52:29.245] } 1549s [00:52:29.245] }) 1549s [00:52:29.245] } 1549s [00:52:29.245] options(future.plan = NULL) 1549s [00:52:29.245] Sys.unsetenv("R_FUTURE_PLAN") 1549s [00:52:29.245] future::plan("default", .cleanup = FALSE, .init = FALSE) 1549s [00:52:29.245] } 1549s [00:52:29.245] ...future.workdir <- getwd() 1549s [00:52:29.245] } 1549s [00:52:29.245] ...future.oldOptions <- base::as.list(base::.Options) 1549s [00:52:29.245] ...future.oldEnvVars <- base::Sys.getenv() 1549s [00:52:29.245] } 1549s [00:52:29.245] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1549s [00:52:29.245] future.globals.maxSize = 2097152000, future.globals.method = NULL, 1549s [00:52:29.245] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1549s [00:52:29.245] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1549s [00:52:29.245] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1549s [00:52:29.245] future.stdout.windows.reencode = NULL, width = 80L) 1549s [00:52:29.245] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1549s [00:52:29.245] base::names(...future.oldOptions)) 1549s [00:52:29.245] } 1549s [00:52:29.245] if (FALSE) { 1549s [00:52:29.245] } 1549s [00:52:29.245] else { 1549s [00:52:29.245] if (TRUE) { 1549s [00:52:29.245] ...future.stdout <- base::rawConnection(base::raw(0L), 1549s [00:52:29.245] open = "w") 1549s [00:52:29.245] } 1549s [00:52:29.245] else { 1549s [00:52:29.245] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1549s [00:52:29.245] windows = "NUL", "/dev/null"), open = "w") 1549s [00:52:29.245] } 1549s [00:52:29.245] base::sink(...future.stdout, type = "output", split = FALSE) 1549s [00:52:29.245] base::on.exit(if (!base::is.null(...future.stdout)) { 1549s [00:52:29.245] base::sink(type = "output", split = FALSE) 1549s [00:52:29.245] base::close(...future.stdout) 1549s [00:52:29.245] }, add = TRUE) 1549s [00:52:29.245] } 1549s [00:52:29.245] ...future.frame <- base::sys.nframe() 1549s [00:52:29.245] ...future.conditions <- base::list() 1549s [00:52:29.245] ...future.rng <- base::globalenv()$.Random.seed 1549s [00:52:29.245] if (FALSE) { 1549s [00:52:29.245] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1549s [00:52:29.245] "...future.value", "...future.globalenv.names", ".Random.seed") 1549s [00:52:29.245] } 1549s [00:52:29.245] ...future.result <- base::tryCatch({ 1549s [00:52:29.245] base::withCallingHandlers({ 1549s [00:52:29.245] ...future.value <- base::withVisible(base::local({ 1549s [00:52:29.245] do.call(function(...) { 1549s [00:52:29.245] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.245] if (!identical(...future.globals.maxSize.org, 1549s [00:52:29.245] ...future.globals.maxSize)) { 1549s [00:52:29.245] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.245] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.245] } 1549s [00:52:29.245] { 1549s [00:52:29.245] lapply(seq_along(...future.elements_ii), 1549s [00:52:29.245] FUN = function(jj) { 1549s [00:52:29.245] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.245] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.245] }) 1549s [00:52:29.245] } 1549s [00:52:29.245] }, args = future.call.arguments) 1549s [00:52:29.245] })) 1549s [00:52:29.245] future::FutureResult(value = ...future.value$value, 1549s [00:52:29.245] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1549s [00:52:29.245] ...future.rng), globalenv = if (FALSE) 1549s [00:52:29.245] list(added = base::setdiff(base::names(base::.GlobalEnv), 1549s [00:52:29.245] ...future.globalenv.names)) 1549s [00:52:29.245] else NULL, started = ...future.startTime, version = "1.8") 1549s [00:52:29.245] }, condition = base::local({ 1549s [00:52:29.245] c <- base::c 1549s [00:52:29.245] inherits <- base::inherits 1549s [00:52:29.245] invokeRestart <- base::invokeRestart 1549s [00:52:29.245] length <- base::length 1549s [00:52:29.245] list <- base::list 1549s [00:52:29.245] seq.int <- base::seq.int 1549s [00:52:29.245] signalCondition <- base::signalCondition 1549s [00:52:29.245] sys.calls <- base::sys.calls 1549s [00:52:29.245] `[[` <- base::`[[` 1549s [00:52:29.245] `+` <- base::`+` 1549s [00:52:29.245] `<<-` <- base::`<<-` 1549s [00:52:29.245] sysCalls <- function(calls = sys.calls(), from = 1L) { 1549s [00:52:29.245] calls[seq.int(from = from + 12L, to = length(calls) - 1549s [00:52:29.245] 3L)] 1549s [00:52:29.245] } 1549s [00:52:29.245] function(cond) { 1549s [00:52:29.245] is_error <- inherits(cond, "error") 1549s [00:52:29.245] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1549s [00:52:29.245] NULL) 1549s [00:52:29.245] if (is_error) { 1549s [00:52:29.245] sessionInformation <- function() { 1549s [00:52:29.245] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1549s [00:52:29.245] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1549s [00:52:29.245] search = base::search(), system = base::Sys.info()) 1549s [00:52:29.245] } 1549s [00:52:29.245] ...future.conditions[[length(...future.conditions) + 1549s [00:52:29.245] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1549s [00:52:29.245] cond$call), session = sessionInformation(), 1549s [00:52:29.245] timestamp = base::Sys.time(), signaled = 0L) 1549s [00:52:29.245] signalCondition(cond) 1549s [00:52:29.245] } 1549s [00:52:29.245] else if (!ignore && TRUE && inherits(cond, c("condition", 1549s [00:52:29.245] "immediateCondition"))) { 1549s [00:52:29.245] signal <- TRUE && inherits(cond, "immediateCondition") 1549s [00:52:29.245] ...future.conditions[[length(...future.conditions) + 1549s [00:52:29.245] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1549s [00:52:29.245] if (TRUE && !signal) { 1549s [00:52:29.245] muffleCondition <- function (cond, pattern = "^muffle") 1549s [00:52:29.245] { 1549s [00:52:29.245] inherits <- base::inherits 1549s [00:52:29.245] invokeRestart <- base::invokeRestart 1549s [00:52:29.245] is.null <- base::is.null 1549s [00:52:29.245] muffled <- FALSE 1549s [00:52:29.245] if (inherits(cond, "message")) { 1549s [00:52:29.245] muffled <- grepl(pattern, "muffleMessage") 1549s [00:52:29.245] if (muffled) 1549s [00:52:29.245] invokeRestart("muffleMessage") 1549s [00:52:29.245] } 1549s [00:52:29.245] else if (inherits(cond, "warning")) { 1549s [00:52:29.245] muffled <- grepl(pattern, "muffleWarning") 1549s [00:52:29.245] if (muffled) 1549s [00:52:29.245] invokeRestart("muffleWarning") 1549s [00:52:29.245] } 1549s [00:52:29.245] else if (inherits(cond, "condition")) { 1549s [00:52:29.245] if (!is.null(pattern)) { 1549s [00:52:29.245] computeRestarts <- base::computeRestarts 1549s [00:52:29.245] grepl <- base::grepl 1549s [00:52:29.245] restarts <- computeRestarts(cond) 1549s [00:52:29.245] for (restart in restarts) { 1549s [00:52:29.245] name <- restart$name 1549s [00:52:29.245] if (is.null(name)) 1549s [00:52:29.245] next 1549s [00:52:29.245] if (!grepl(pattern, name)) 1549s [00:52:29.245] next 1549s [00:52:29.245] invokeRestart(restart) 1549s [00:52:29.245] muffled <- TRUE 1549s [00:52:29.245] break 1549s [00:52:29.245] } 1549s [00:52:29.245] } 1549s [00:52:29.245] } 1549s [00:52:29.245] invisible(muffled) 1549s [00:52:29.245] } 1549s [00:52:29.245] muffleCondition(cond, pattern = "^muffle") 1549s [00:52:29.245] } 1549s [00:52:29.245] } 1549s [00:52:29.245] else { 1549s [00:52:29.245] if (TRUE) { 1549s [00:52:29.245] muffleCondition <- function (cond, pattern = "^muffle") 1549s [00:52:29.245] { 1549s [00:52:29.245] inherits <- base::inherits 1549s [00:52:29.245] invokeRestart <- base::invokeRestart 1549s [00:52:29.245] is.null <- base::is.null 1549s [00:52:29.245] muffled <- FALSE 1549s [00:52:29.245] if (inherits(cond, "message")) { 1549s [00:52:29.245] muffled <- grepl(pattern, "muffleMessage") 1549s [00:52:29.245] if (muffled) 1549s [00:52:29.245] invokeRestart("muffleMessage") 1549s [00:52:29.245] } 1549s [00:52:29.245] else if (inherits(cond, "warning")) { 1549s [00:52:29.245] muffled <- grepl(pattern, "muffleWarning") 1549s [00:52:29.245] if (muffled) 1549s [00:52:29.245] invokeRestart("muffleWarning") 1549s [00:52:29.245] } 1549s [00:52:29.245] else if (inherits(cond, "condition")) { 1549s [00:52:29.245] if (!is.null(pattern)) { 1549s [00:52:29.245] computeRestarts <- base::computeRestarts 1549s [00:52:29.245] grepl <- base::grepl 1549s [00:52:29.245] restarts <- computeRestarts(cond) 1549s [00:52:29.245] for (restart in restarts) { 1549s [00:52:29.245] name <- restart$name 1549s [00:52:29.245] if (is.null(name)) 1549s [00:52:29.245] next 1549s [00:52:29.245] if (!grepl(pattern, name)) 1549s [00:52:29.245] next 1549s [00:52:29.245] invokeRestart(restart) 1549s [00:52:29.245] muffled <- TRUE 1549s [00:52:29.245] break 1549s [00:52:29.245] } 1549s [00:52:29.245] } 1549s [00:52:29.245] } 1549s [00:52:29.245] invisible(muffled) 1549s [00:52:29.245] } 1549s [00:52:29.245] muffleCondition(cond, pattern = "^muffle") 1549s [00:52:29.245] } 1549s [00:52:29.245] } 1549s [00:52:29.245] } 1549s [00:52:29.245] })) 1549s [00:52:29.245] }, error = function(ex) { 1549s [00:52:29.245] base::structure(base::list(value = NULL, visible = NULL, 1549s [00:52:29.245] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1549s [00:52:29.245] ...future.rng), started = ...future.startTime, 1549s [00:52:29.245] finished = Sys.time(), session_uuid = NA_character_, 1549s [00:52:29.245] version = "1.8"), class = "FutureResult") 1549s [00:52:29.245] }, finally = { 1549s [00:52:29.245] if (!identical(...future.workdir, getwd())) 1549s [00:52:29.245] setwd(...future.workdir) 1549s [00:52:29.245] { 1549s [00:52:29.245] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1549s [00:52:29.245] ...future.oldOptions$nwarnings <- NULL 1549s [00:52:29.245] } 1549s [00:52:29.245] base::options(...future.oldOptions) 1549s [00:52:29.245] if (.Platform$OS.type == "windows") { 1549s [00:52:29.245] old_names <- names(...future.oldEnvVars) 1549s [00:52:29.245] envs <- base::Sys.getenv() 1549s [00:52:29.245] names <- names(envs) 1549s [00:52:29.245] common <- intersect(names, old_names) 1549s [00:52:29.245] added <- setdiff(names, old_names) 1549s [00:52:29.245] removed <- setdiff(old_names, names) 1549s [00:52:29.245] changed <- common[...future.oldEnvVars[common] != 1549s [00:52:29.245] envs[common]] 1549s [00:52:29.245] NAMES <- toupper(changed) 1549s [00:52:29.245] args <- list() 1549s [00:52:29.245] for (kk in seq_along(NAMES)) { 1549s [00:52:29.245] name <- changed[[kk]] 1549s [00:52:29.245] NAME <- NAMES[[kk]] 1549s [00:52:29.245] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.245] next 1549s [00:52:29.245] args[[name]] <- ...future.oldEnvVars[[name]] 1549s [00:52:29.245] } 1549s [00:52:29.245] NAMES <- toupper(added) 1549s [00:52:29.245] for (kk in seq_along(NAMES)) { 1549s [00:52:29.245] name <- added[[kk]] 1549s [00:52:29.245] NAME <- NAMES[[kk]] 1549s [00:52:29.245] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.245] next 1549s [00:52:29.245] args[[name]] <- "" 1549s [00:52:29.245] } 1549s [00:52:29.245] NAMES <- toupper(removed) 1549s [00:52:29.245] for (kk in seq_along(NAMES)) { 1549s [00:52:29.245] name <- removed[[kk]] 1549s [00:52:29.245] NAME <- NAMES[[kk]] 1549s [00:52:29.245] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.245] next 1549s [00:52:29.245] args[[name]] <- ...future.oldEnvVars[[name]] 1549s [00:52:29.245] } 1549s [00:52:29.245] if (length(args) > 0) 1549s [00:52:29.245] base::do.call(base::Sys.setenv, args = args) 1549s [00:52:29.245] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1549s [00:52:29.245] } 1549s [00:52:29.245] else { 1549s [00:52:29.245] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1549s [00:52:29.245] } 1549s [00:52:29.245] { 1549s [00:52:29.245] if (base::length(...future.futureOptionsAdded) > 1549s [00:52:29.245] 0L) { 1549s [00:52:29.245] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1549s [00:52:29.245] base::names(opts) <- ...future.futureOptionsAdded 1549s [00:52:29.245] base::options(opts) 1549s [00:52:29.245] } 1549s [00:52:29.245] { 1549s [00:52:29.245] { 1549s [00:52:29.245] NULL 1549s [00:52:29.245] RNGkind("Mersenne-Twister") 1549s [00:52:29.245] base::rm(list = ".Random.seed", envir = base::globalenv(), 1549s [00:52:29.245] inherits = FALSE) 1549s [00:52:29.245] } 1549s [00:52:29.245] options(future.plan = NULL) 1549s [00:52:29.245] if (is.na(NA_character_)) 1549s [00:52:29.245] Sys.unsetenv("R_FUTURE_PLAN") 1549s [00:52:29.245] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1549s [00:52:29.245] future::plan(list(function (..., envir = parent.frame()) 1549s [00:52:29.245] { 1549s [00:52:29.245] future <- SequentialFuture(..., envir = envir) 1549s [00:52:29.245] if (!future$lazy) 1549s [00:52:29.245] future <- run(future) 1549s [00:52:29.245] invisible(future) 1549s [00:52:29.245] }), .cleanup = FALSE, .init = FALSE) 1549s [00:52:29.245] } 1549s [00:52:29.245] } 1549s [00:52:29.245] } 1549s [00:52:29.245] }) 1549s [00:52:29.245] if (TRUE) { 1549s [00:52:29.245] base::sink(type = "output", split = FALSE) 1549s [00:52:29.245] if (TRUE) { 1549s [00:52:29.245] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1549s [00:52:29.245] } 1549s [00:52:29.245] else { 1549s [00:52:29.245] ...future.result["stdout"] <- base::list(NULL) 1549s [00:52:29.245] } 1549s [00:52:29.245] base::close(...future.stdout) 1549s [00:52:29.245] ...future.stdout <- NULL 1549s [00:52:29.245] } 1549s [00:52:29.245] ...future.result$conditions <- ...future.conditions 1549s [00:52:29.245] ...future.result$finished <- base::Sys.time() 1549s [00:52:29.245] ...future.result 1549s [00:52:29.245] } 1549s [00:52:29.252] assign_globals() ... 1549s [00:52:29.252] List of 5 1549s [00:52:29.252] $ ...future.FUN :function (mode = "logical", length = 0L) 1549s [00:52:29.252] $ future.call.arguments :List of 1 1549s [00:52:29.252] ..$ length: int 2 1549s [00:52:29.252] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1549s [00:52:29.252] $ ...future.elements_ii :List of 1 1549s [00:52:29.252] ..$ a: chr "integer" 1549s [00:52:29.252] $ ...future.seeds_ii : NULL 1549s [00:52:29.252] $ ...future.globals.maxSize: NULL 1549s [00:52:29.252] - attr(*, "where")=List of 5 1549s [00:52:29.252] ..$ ...future.FUN : 1549s [00:52:29.252] ..$ future.call.arguments : 1549s [00:52:29.252] ..$ ...future.elements_ii : 1549s [00:52:29.252] ..$ ...future.seeds_ii : 1549s [00:52:29.252] ..$ ...future.globals.maxSize: 1549s [00:52:29.252] - attr(*, "resolved")= logi FALSE 1549s [00:52:29.252] - attr(*, "total_size")= num 2240 1549s [00:52:29.252] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1549s [00:52:29.252] - attr(*, "already-done")= logi TRUE 1549s [00:52:29.258] - copied ‘...future.FUN’ to environment 1549s [00:52:29.259] - copied ‘future.call.arguments’ to environment 1549s [00:52:29.259] - copied ‘...future.elements_ii’ to environment 1549s [00:52:29.259] - copied ‘...future.seeds_ii’ to environment 1549s [00:52:29.259] - copied ‘...future.globals.maxSize’ to environment 1549s [00:52:29.259] assign_globals() ... done 1549s [00:52:29.260] plan(): Setting new future strategy stack: 1549s [00:52:29.260] List of future strategies: 1549s [00:52:29.260] 1. sequential: 1549s [00:52:29.260] - args: function (..., envir = parent.frame()) 1549s [00:52:29.260] - tweaked: FALSE 1549s [00:52:29.260] - call: NULL 1549s [00:52:29.260] plan(): nbrOfWorkers() = 1 1549s [00:52:29.261] plan(): Setting new future strategy stack: 1549s [00:52:29.261] List of future strategies: 1549s [00:52:29.261] 1. sequential: 1549s [00:52:29.261] - args: function (..., envir = parent.frame()) 1549s [00:52:29.261] - tweaked: FALSE 1549s [00:52:29.261] - call: plan(strategy) 1549s [00:52:29.262] plan(): nbrOfWorkers() = 1 1549s [00:52:29.262] SequentialFuture started (and completed) 1549s [00:52:29.262] - Launch lazy future ... done 1549s [00:52:29.262] run() for ‘SequentialFuture’ ... done 1549s [00:52:29.263] Created future: 1549s [00:52:29.263] SequentialFuture: 1549s [00:52:29.263] Label: ‘future_lapply-1’ 1549s [00:52:29.263] Expression: 1549s [00:52:29.263] { 1549s [00:52:29.263] do.call(function(...) { 1549s [00:52:29.263] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.263] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1549s [00:52:29.263] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.263] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.263] } 1549s [00:52:29.263] { 1549s [00:52:29.263] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1549s [00:52:29.263] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.263] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.263] }) 1549s [00:52:29.263] } 1549s [00:52:29.263] }, args = future.call.arguments) 1549s [00:52:29.263] } 1549s [00:52:29.263] Lazy evaluation: FALSE 1549s [00:52:29.263] Asynchronous evaluation: FALSE 1549s [00:52:29.263] Local evaluation: TRUE 1549s [00:52:29.263] Environment: R_GlobalEnv 1549s [00:52:29.263] Capture standard output: TRUE 1549s [00:52:29.263] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1549s [00:52:29.263] Globals: 5 objects totaling 2.30 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1549s [00:52:29.263] Packages: 1549s [00:52:29.263] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1549s [00:52:29.263] Resolved: TRUE 1549s [00:52:29.263] Value: 56 bytes of class ‘list’ 1549s [00:52:29.263] Early signaling: FALSE 1549s [00:52:29.263] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1549s [00:52:29.263] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1549s [00:52:29.267] Chunk #1 of 4 ... DONE 1549s [00:52:29.267] Chunk #2 of 4 ... 1549s [00:52:29.267] - Finding globals in 'X' for chunk #2 ... 1549s [00:52:29.267] getGlobalsAndPackages() ... 1549s [00:52:29.267] Searching for globals... 1549s [00:52:29.267] 1549s [00:52:29.268] Searching for globals ... DONE 1549s [00:52:29.268] - globals: [0] 1549s [00:52:29.268] getGlobalsAndPackages() ... DONE 1549s [00:52:29.268] + additional globals found: [n=0] 1549s [00:52:29.268] + additional namespaces needed: [n=0] 1549s [00:52:29.268] - Finding globals in 'X' for chunk #2 ... DONE 1549s [00:52:29.269] - Adjusted option 'future.globals.maxSize': 524288000 -> 4 * 524288000 = 2097152000 (bytes) 1549s [00:52:29.269] - seeds: 1549s [00:52:29.269] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.269] getGlobalsAndPackages() ... 1549s [00:52:29.270] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.270] Resolving globals: FALSE 1549s [00:52:29.270] Tweak future expression to call with '...' arguments ... 1549s [00:52:29.271] { 1549s [00:52:29.271] do.call(function(...) { 1549s [00:52:29.271] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.271] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1549s [00:52:29.271] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.271] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.271] } 1549s [00:52:29.271] { 1549s [00:52:29.271] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1549s [00:52:29.271] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.271] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.271] }) 1549s [00:52:29.271] } 1549s [00:52:29.271] }, args = future.call.arguments) 1549s [00:52:29.271] } 1549s [00:52:29.271] Tweak future expression to call with '...' arguments ... DONE 1549s [00:52:29.271] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.272] 1549s [00:52:29.272] getGlobalsAndPackages() ... DONE 1549s [00:52:29.272] run() for ‘Future’ ... 1549s [00:52:29.272] - state: ‘created’ 1549s [00:52:29.272] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1549s [00:52:29.273] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1549s [00:52:29.273] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1549s [00:52:29.273] - Field: ‘label’ 1549s [00:52:29.273] - Field: ‘local’ 1549s [00:52:29.273] - Field: ‘owner’ 1549s [00:52:29.273] - Field: ‘envir’ 1549s [00:52:29.274] - Field: ‘packages’ 1549s [00:52:29.274] - Field: ‘gc’ 1549s [00:52:29.274] - Field: ‘conditions’ 1549s [00:52:29.274] - Field: ‘expr’ 1549s [00:52:29.274] - Field: ‘uuid’ 1549s [00:52:29.274] - Field: ‘seed’ 1549s [00:52:29.274] - Field: ‘version’ 1549s [00:52:29.274] - Field: ‘result’ 1549s [00:52:29.275] - Field: ‘asynchronous’ 1549s [00:52:29.275] - Field: ‘calls’ 1549s [00:52:29.275] - Field: ‘globals’ 1549s [00:52:29.275] - Field: ‘stdout’ 1549s [00:52:29.275] - Field: ‘earlySignal’ 1549s [00:52:29.275] - Field: ‘lazy’ 1549s [00:52:29.275] - Field: ‘state’ 1549s [00:52:29.275] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1549s [00:52:29.275] - Launch lazy future ... 1549s [00:52:29.276] Packages needed by the future expression (n = 0): 1549s [00:52:29.276] Packages needed by future strategies (n = 0): 1549s [00:52:29.276] { 1549s [00:52:29.276] { 1549s [00:52:29.276] { 1549s [00:52:29.276] ...future.startTime <- base::Sys.time() 1549s [00:52:29.276] { 1549s [00:52:29.276] { 1549s [00:52:29.276] { 1549s [00:52:29.276] base::local({ 1549s [00:52:29.276] has_future <- base::requireNamespace("future", 1549s [00:52:29.276] quietly = TRUE) 1549s [00:52:29.276] if (has_future) { 1549s [00:52:29.276] ns <- base::getNamespace("future") 1549s [00:52:29.276] version <- ns[[".package"]][["version"]] 1549s [00:52:29.276] if (is.null(version)) 1549s [00:52:29.276] version <- utils::packageVersion("future") 1549s [00:52:29.276] } 1549s [00:52:29.276] else { 1549s [00:52:29.276] version <- NULL 1549s [00:52:29.276] } 1549s [00:52:29.276] if (!has_future || version < "1.8.0") { 1549s [00:52:29.276] info <- base::c(r_version = base::gsub("R version ", 1549s [00:52:29.276] "", base::R.version$version.string), 1549s [00:52:29.276] platform = base::sprintf("%s (%s-bit)", 1549s [00:52:29.276] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1549s [00:52:29.276] os = base::paste(base::Sys.info()[base::c("sysname", 1549s [00:52:29.276] "release", "version")], collapse = " "), 1549s [00:52:29.276] hostname = base::Sys.info()[["nodename"]]) 1549s [00:52:29.276] info <- base::sprintf("%s: %s", base::names(info), 1549s [00:52:29.276] info) 1549s [00:52:29.276] info <- base::paste(info, collapse = "; ") 1549s [00:52:29.276] if (!has_future) { 1549s [00:52:29.276] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1549s [00:52:29.276] info) 1549s [00:52:29.276] } 1549s [00:52:29.276] else { 1549s [00:52:29.276] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1549s [00:52:29.276] info, version) 1549s [00:52:29.276] } 1549s [00:52:29.276] base::stop(msg) 1549s [00:52:29.276] } 1549s [00:52:29.276] }) 1549s [00:52:29.276] } 1549s [00:52:29.276] options(future.plan = NULL) 1549s [00:52:29.276] Sys.unsetenv("R_FUTURE_PLAN") 1549s [00:52:29.276] future::plan("default", .cleanup = FALSE, .init = FALSE) 1549s [00:52:29.276] } 1549s [00:52:29.276] ...future.workdir <- getwd() 1549s [00:52:29.276] } 1549s [00:52:29.276] ...future.oldOptions <- base::as.list(base::.Options) 1549s [00:52:29.276] ...future.oldEnvVars <- base::Sys.getenv() 1549s [00:52:29.276] } 1549s [00:52:29.276] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1549s [00:52:29.276] future.globals.maxSize = 2097152000, future.globals.method = NULL, 1549s [00:52:29.276] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1549s [00:52:29.276] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1549s [00:52:29.276] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1549s [00:52:29.276] future.stdout.windows.reencode = NULL, width = 80L) 1549s [00:52:29.276] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1549s [00:52:29.276] base::names(...future.oldOptions)) 1549s [00:52:29.276] } 1549s [00:52:29.276] if (FALSE) { 1549s [00:52:29.276] } 1549s [00:52:29.276] else { 1549s [00:52:29.276] if (TRUE) { 1549s [00:52:29.276] ...future.stdout <- base::rawConnection(base::raw(0L), 1549s [00:52:29.276] open = "w") 1549s [00:52:29.276] } 1549s [00:52:29.276] else { 1549s [00:52:29.276] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1549s [00:52:29.276] windows = "NUL", "/dev/null"), open = "w") 1549s [00:52:29.276] } 1549s [00:52:29.276] base::sink(...future.stdout, type = "output", split = FALSE) 1549s [00:52:29.276] base::on.exit(if (!base::is.null(...future.stdout)) { 1549s [00:52:29.276] base::sink(type = "output", split = FALSE) 1549s [00:52:29.276] base::close(...future.stdout) 1549s [00:52:29.276] }, add = TRUE) 1549s [00:52:29.276] } 1549s [00:52:29.276] ...future.frame <- base::sys.nframe() 1549s [00:52:29.276] ...future.conditions <- base::list() 1549s [00:52:29.276] ...future.rng <- base::globalenv()$.Random.seed 1549s [00:52:29.276] if (FALSE) { 1549s [00:52:29.276] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1549s [00:52:29.276] "...future.value", "...future.globalenv.names", ".Random.seed") 1549s [00:52:29.276] } 1549s [00:52:29.276] ...future.result <- base::tryCatch({ 1549s [00:52:29.276] base::withCallingHandlers({ 1549s [00:52:29.276] ...future.value <- base::withVisible(base::local({ 1549s [00:52:29.276] do.call(function(...) { 1549s [00:52:29.276] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.276] if (!identical(...future.globals.maxSize.org, 1549s [00:52:29.276] ...future.globals.maxSize)) { 1549s [00:52:29.276] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.276] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.276] } 1549s [00:52:29.276] { 1549s [00:52:29.276] lapply(seq_along(...future.elements_ii), 1549s [00:52:29.276] FUN = function(jj) { 1549s [00:52:29.276] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.276] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.276] }) 1549s [00:52:29.276] } 1549s [00:52:29.276] }, args = future.call.arguments) 1549s [00:52:29.276] })) 1549s [00:52:29.276] future::FutureResult(value = ...future.value$value, 1549s [00:52:29.276] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1549s [00:52:29.276] ...future.rng), globalenv = if (FALSE) 1549s [00:52:29.276] list(added = base::setdiff(base::names(base::.GlobalEnv), 1549s [00:52:29.276] ...future.globalenv.names)) 1549s [00:52:29.276] else NULL, started = ...future.startTime, version = "1.8") 1549s [00:52:29.276] }, condition = base::local({ 1549s [00:52:29.276] c <- base::c 1549s [00:52:29.276] inherits <- base::inherits 1549s [00:52:29.276] invokeRestart <- base::invokeRestart 1549s [00:52:29.276] length <- base::length 1549s [00:52:29.276] list <- base::list 1549s [00:52:29.276] seq.int <- base::seq.int 1549s [00:52:29.276] signalCondition <- base::signalCondition 1549s [00:52:29.276] sys.calls <- base::sys.calls 1549s [00:52:29.276] `[[` <- base::`[[` 1549s [00:52:29.276] `+` <- base::`+` 1549s [00:52:29.276] `<<-` <- base::`<<-` 1549s [00:52:29.276] sysCalls <- function(calls = sys.calls(), from = 1L) { 1549s [00:52:29.276] calls[seq.int(from = from + 12L, to = length(calls) - 1549s [00:52:29.276] 3L)] 1549s [00:52:29.276] } 1549s [00:52:29.276] function(cond) { 1549s [00:52:29.276] is_error <- inherits(cond, "error") 1549s [00:52:29.276] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1549s [00:52:29.276] NULL) 1549s [00:52:29.276] if (is_error) { 1549s [00:52:29.276] sessionInformation <- function() { 1549s [00:52:29.276] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1549s [00:52:29.276] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1549s [00:52:29.276] search = base::search(), system = base::Sys.info()) 1549s [00:52:29.276] } 1549s [00:52:29.276] ...future.conditions[[length(...future.conditions) + 1549s [00:52:29.276] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1549s [00:52:29.276] cond$call), session = sessionInformation(), 1549s [00:52:29.276] timestamp = base::Sys.time(), signaled = 0L) 1549s [00:52:29.276] signalCondition(cond) 1549s [00:52:29.276] } 1549s [00:52:29.276] else if (!ignore && TRUE && inherits(cond, c("condition", 1549s [00:52:29.276] "immediateCondition"))) { 1549s [00:52:29.276] signal <- TRUE && inherits(cond, "immediateCondition") 1549s [00:52:29.276] ...future.conditions[[length(...future.conditions) + 1549s [00:52:29.276] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1549s [00:52:29.276] if (TRUE && !signal) { 1549s [00:52:29.276] muffleCondition <- function (cond, pattern = "^muffle") 1549s [00:52:29.276] { 1549s [00:52:29.276] inherits <- base::inherits 1549s [00:52:29.276] invokeRestart <- base::invokeRestart 1549s [00:52:29.276] is.null <- base::is.null 1549s [00:52:29.276] muffled <- FALSE 1549s [00:52:29.276] if (inherits(cond, "message")) { 1549s [00:52:29.276] muffled <- grepl(pattern, "muffleMessage") 1549s [00:52:29.276] if (muffled) 1549s [00:52:29.276] invokeRestart("muffleMessage") 1549s [00:52:29.276] } 1549s [00:52:29.276] else if (inherits(cond, "warning")) { 1549s [00:52:29.276] muffled <- grepl(pattern, "muffleWarning") 1549s [00:52:29.276] if (muffled) 1549s [00:52:29.276] invokeRestart("muffleWarning") 1549s [00:52:29.276] } 1549s [00:52:29.276] else if (inherits(cond, "condition")) { 1549s [00:52:29.276] if (!is.null(pattern)) { 1549s [00:52:29.276] computeRestarts <- base::computeRestarts 1549s [00:52:29.276] grepl <- base::grepl 1549s [00:52:29.276] restarts <- computeRestarts(cond) 1549s [00:52:29.276] for (restart in restarts) { 1549s [00:52:29.276] name <- restart$name 1549s [00:52:29.276] if (is.null(name)) 1549s [00:52:29.276] next 1549s [00:52:29.276] if (!grepl(pattern, name)) 1549s [00:52:29.276] next 1549s [00:52:29.276] invokeRestart(restart) 1549s [00:52:29.276] muffled <- TRUE 1549s [00:52:29.276] break 1549s [00:52:29.276] } 1549s [00:52:29.276] } 1549s [00:52:29.276] } 1549s [00:52:29.276] invisible(muffled) 1549s [00:52:29.276] } 1549s [00:52:29.276] muffleCondition(cond, pattern = "^muffle") 1549s [00:52:29.276] } 1549s [00:52:29.276] } 1549s [00:52:29.276] else { 1549s [00:52:29.276] if (TRUE) { 1549s [00:52:29.276] muffleCondition <- function (cond, pattern = "^muffle") 1549s [00:52:29.276] { 1549s [00:52:29.276] inherits <- base::inherits 1549s [00:52:29.276] invokeRestart <- base::invokeRestart 1549s [00:52:29.276] is.null <- base::is.null 1549s [00:52:29.276] muffled <- FALSE 1549s [00:52:29.276] if (inherits(cond, "message")) { 1549s [00:52:29.276] muffled <- grepl(pattern, "muffleMessage") 1549s [00:52:29.276] if (muffled) 1549s [00:52:29.276] invokeRestart("muffleMessage") 1549s [00:52:29.276] } 1549s [00:52:29.276] else if (inherits(cond, "warning")) { 1549s [00:52:29.276] muffled <- grepl(pattern, "muffleWarning") 1549s [00:52:29.276] if (muffled) 1549s [00:52:29.276] invokeRestart("muffleWarning") 1549s [00:52:29.276] } 1549s [00:52:29.276] else if (inherits(cond, "condition")) { 1549s [00:52:29.276] if (!is.null(pattern)) { 1549s [00:52:29.276] computeRestarts <- base::computeRestarts 1549s [00:52:29.276] grepl <- base::grepl 1549s [00:52:29.276] restarts <- computeRestarts(cond) 1549s [00:52:29.276] for (restart in restarts) { 1549s [00:52:29.276] name <- restart$name 1549s [00:52:29.276] if (is.null(name)) 1549s [00:52:29.276] next 1549s [00:52:29.276] if (!grepl(pattern, name)) 1549s [00:52:29.276] next 1549s [00:52:29.276] invokeRestart(restart) 1549s [00:52:29.276] muffled <- TRUE 1549s [00:52:29.276] break 1549s [00:52:29.276] } 1549s [00:52:29.276] } 1549s [00:52:29.276] } 1549s [00:52:29.276] invisible(muffled) 1549s [00:52:29.276] } 1549s [00:52:29.276] muffleCondition(cond, pattern = "^muffle") 1549s [00:52:29.276] } 1549s [00:52:29.276] } 1549s [00:52:29.276] } 1549s [00:52:29.276] })) 1549s [00:52:29.276] }, error = function(ex) { 1549s [00:52:29.276] base::structure(base::list(value = NULL, visible = NULL, 1549s [00:52:29.276] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1549s [00:52:29.276] ...future.rng), started = ...future.startTime, 1549s [00:52:29.276] finished = Sys.time(), session_uuid = NA_character_, 1549s [00:52:29.276] version = "1.8"), class = "FutureResult") 1549s [00:52:29.276] }, finally = { 1549s [00:52:29.276] if (!identical(...future.workdir, getwd())) 1549s [00:52:29.276] setwd(...future.workdir) 1549s [00:52:29.276] { 1549s [00:52:29.276] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1549s [00:52:29.276] ...future.oldOptions$nwarnings <- NULL 1549s [00:52:29.276] } 1549s [00:52:29.276] base::options(...future.oldOptions) 1549s [00:52:29.276] if (.Platform$OS.type == "windows") { 1549s [00:52:29.276] old_names <- names(...future.oldEnvVars) 1549s [00:52:29.276] envs <- base::Sys.getenv() 1549s [00:52:29.276] names <- names(envs) 1549s [00:52:29.276] common <- intersect(names, old_names) 1549s [00:52:29.276] added <- setdiff(names, old_names) 1549s [00:52:29.276] removed <- setdiff(old_names, names) 1549s [00:52:29.276] changed <- common[...future.oldEnvVars[common] != 1549s [00:52:29.276] envs[common]] 1549s [00:52:29.276] NAMES <- toupper(changed) 1549s [00:52:29.276] args <- list() 1549s [00:52:29.276] for (kk in seq_along(NAMES)) { 1549s [00:52:29.276] name <- changed[[kk]] 1549s [00:52:29.276] NAME <- NAMES[[kk]] 1549s [00:52:29.276] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.276] next 1549s [00:52:29.276] args[[name]] <- ...future.oldEnvVars[[name]] 1549s [00:52:29.276] } 1549s [00:52:29.276] NAMES <- toupper(added) 1549s [00:52:29.276] for (kk in seq_along(NAMES)) { 1549s [00:52:29.276] name <- added[[kk]] 1549s [00:52:29.276] NAME <- NAMES[[kk]] 1549s [00:52:29.276] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.276] next 1549s [00:52:29.276] args[[name]] <- "" 1549s [00:52:29.276] } 1549s [00:52:29.276] NAMES <- toupper(removed) 1549s [00:52:29.276] for (kk in seq_along(NAMES)) { 1549s [00:52:29.276] name <- removed[[kk]] 1549s [00:52:29.276] NAME <- NAMES[[kk]] 1549s [00:52:29.276] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.276] next 1549s [00:52:29.276] args[[name]] <- ...future.oldEnvVars[[name]] 1549s [00:52:29.276] } 1549s [00:52:29.276] if (length(args) > 0) 1549s [00:52:29.276] base::do.call(base::Sys.setenv, args = args) 1549s [00:52:29.276] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1549s [00:52:29.276] } 1549s [00:52:29.276] else { 1549s [00:52:29.276] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1549s [00:52:29.276] } 1549s [00:52:29.276] { 1549s [00:52:29.276] if (base::length(...future.futureOptionsAdded) > 1549s [00:52:29.276] 0L) { 1549s [00:52:29.276] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1549s [00:52:29.276] base::names(opts) <- ...future.futureOptionsAdded 1549s [00:52:29.276] base::options(opts) 1549s [00:52:29.276] } 1549s [00:52:29.276] { 1549s [00:52:29.276] { 1549s [00:52:29.276] NULL 1549s [00:52:29.276] RNGkind("Mersenne-Twister") 1549s [00:52:29.276] base::rm(list = ".Random.seed", envir = base::globalenv(), 1549s [00:52:29.276] inherits = FALSE) 1549s [00:52:29.276] } 1549s [00:52:29.276] options(future.plan = NULL) 1549s [00:52:29.276] if (is.na(NA_character_)) 1549s [00:52:29.276] Sys.unsetenv("R_FUTURE_PLAN") 1549s [00:52:29.276] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1549s [00:52:29.276] future::plan(list(function (..., envir = parent.frame()) 1549s [00:52:29.276] { 1549s [00:52:29.276] future <- SequentialFuture(..., envir = envir) 1549s [00:52:29.276] if (!future$lazy) 1549s [00:52:29.276] future <- run(future) 1549s [00:52:29.276] invisible(future) 1549s [00:52:29.276] }), .cleanup = FALSE, .init = FALSE) 1549s [00:52:29.276] } 1549s [00:52:29.276] } 1549s [00:52:29.276] } 1549s [00:52:29.276] }) 1549s [00:52:29.276] if (TRUE) { 1549s [00:52:29.276] base::sink(type = "output", split = FALSE) 1549s [00:52:29.276] if (TRUE) { 1549s [00:52:29.276] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1549s [00:52:29.276] } 1549s [00:52:29.276] else { 1549s [00:52:29.276] ...future.result["stdout"] <- base::list(NULL) 1549s [00:52:29.276] } 1549s [00:52:29.276] base::close(...future.stdout) 1549s [00:52:29.276] ...future.stdout <- NULL 1549s [00:52:29.276] } 1549s [00:52:29.276] ...future.result$conditions <- ...future.conditions 1549s [00:52:29.276] ...future.result$finished <- base::Sys.time() 1549s [00:52:29.276] ...future.result 1549s [00:52:29.276] } 1549s [00:52:29.279] assign_globals() ... 1549s [00:52:29.279] List of 5 1549s [00:52:29.279] $ ...future.FUN :function (mode = "logical", length = 0L) 1549s [00:52:29.279] $ future.call.arguments :List of 1 1549s [00:52:29.279] ..$ length: int 2 1549s [00:52:29.279] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1549s [00:52:29.279] $ ...future.elements_ii :List of 1 1549s [00:52:29.279] ..$ b: chr "numeric" 1549s [00:52:29.279] $ ...future.seeds_ii : NULL 1549s [00:52:29.279] $ ...future.globals.maxSize: NULL 1549s [00:52:29.279] - attr(*, "where")=List of 5 1549s [00:52:29.279] ..$ ...future.FUN : 1549s [00:52:29.279] ..$ future.call.arguments : 1549s [00:52:29.279] ..$ ...future.elements_ii : 1549s [00:52:29.279] ..$ ...future.seeds_ii : 1549s [00:52:29.279] ..$ ...future.globals.maxSize: 1549s [00:52:29.279] - attr(*, "resolved")= logi FALSE 1549s [00:52:29.279] - attr(*, "total_size")= num 2240 1549s [00:52:29.279] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1549s [00:52:29.279] - attr(*, "already-done")= logi TRUE 1549s [00:52:29.286] - copied ‘...future.FUN’ to environment 1549s [00:52:29.286] - copied ‘future.call.arguments’ to environment 1549s [00:52:29.286] - copied ‘...future.elements_ii’ to environment 1549s [00:52:29.286] - copied ‘...future.seeds_ii’ to environment 1549s [00:52:29.286] - copied ‘...future.globals.maxSize’ to environment 1549s [00:52:29.286] assign_globals() ... done 1549s [00:52:29.286] plan(): Setting new future strategy stack: 1549s [00:52:29.287] List of future strategies: 1549s [00:52:29.287] 1. sequential: 1549s [00:52:29.287] - args: function (..., envir = parent.frame()) 1549s [00:52:29.287] - tweaked: FALSE 1549s [00:52:29.287] - call: NULL 1549s [00:52:29.287] plan(): nbrOfWorkers() = 1 1549s [00:52:29.288] plan(): Setting new future strategy stack: 1549s [00:52:29.288] List of future strategies: 1549s [00:52:29.288] 1. sequential: 1549s [00:52:29.288] - args: function (..., envir = parent.frame()) 1549s [00:52:29.288] - tweaked: FALSE 1549s [00:52:29.288] - call: plan(strategy) 1549s [00:52:29.288] plan(): nbrOfWorkers() = 1 1549s [00:52:29.289] SequentialFuture started (and completed) 1549s [00:52:29.289] - Launch lazy future ... done 1549s [00:52:29.289] run() for ‘SequentialFuture’ ... done 1549s [00:52:29.289] Created future: 1549s [00:52:29.289] SequentialFuture: 1549s [00:52:29.289] Label: ‘future_lapply-2’ 1549s [00:52:29.289] Expression: 1549s [00:52:29.289] { 1549s [00:52:29.289] do.call(function(...) { 1549s [00:52:29.289] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.289] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1549s [00:52:29.289] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.289] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.289] } 1549s [00:52:29.289] { 1549s [00:52:29.289] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1549s [00:52:29.289] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.289] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.289] }) 1549s [00:52:29.289] } 1549s [00:52:29.289] }, args = future.call.arguments) 1549s [00:52:29.289] } 1549s [00:52:29.289] Lazy evaluation: FALSE 1549s [00:52:29.289] Asynchronous evaluation: FALSE 1549s [00:52:29.289] Local evaluation: TRUE 1549s [00:52:29.289] Environment: R_GlobalEnv 1549s [00:52:29.289] Capture standard output: TRUE 1549s [00:52:29.289] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1549s [00:52:29.289] Globals: 5 objects totaling 2.30 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1549s [00:52:29.289] Packages: 1549s [00:52:29.289] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1549s [00:52:29.289] Resolved: TRUE 1549s [00:52:29.289] Value: 64 bytes of class ‘list’ 1549s [00:52:29.289] Early signaling: FALSE 1549s [00:52:29.289] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1549s [00:52:29.289] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1549s [00:52:29.291] Chunk #2 of 4 ... DONE 1549s [00:52:29.291] Chunk #3 of 4 ... 1549s [00:52:29.291] - Finding globals in 'X' for chunk #3 ... 1549s [00:52:29.292] getGlobalsAndPackages() ... 1549s [00:52:29.292] Searching for globals... 1549s [00:52:29.292] 1549s [00:52:29.292] Searching for globals ... DONE 1549s [00:52:29.293] - globals: [0] 1549s [00:52:29.293] getGlobalsAndPackages() ... DONE 1549s [00:52:29.293] + additional globals found: [n=0] 1549s [00:52:29.293] + additional namespaces needed: [n=0] 1549s [00:52:29.293] - Finding globals in 'X' for chunk #3 ... DONE 1549s [00:52:29.293] - Adjusted option 'future.globals.maxSize': 524288000 -> 4 * 524288000 = 2097152000 (bytes) 1549s [00:52:29.293] - seeds: 1549s [00:52:29.293] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.294] getGlobalsAndPackages() ... 1549s [00:52:29.294] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.294] Resolving globals: FALSE 1549s [00:52:29.294] Tweak future expression to call with '...' arguments ... 1549s [00:52:29.295] { 1549s [00:52:29.295] do.call(function(...) { 1549s [00:52:29.295] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.295] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1549s [00:52:29.295] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.295] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.295] } 1549s [00:52:29.295] { 1549s [00:52:29.295] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1549s [00:52:29.295] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.295] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.295] }) 1549s [00:52:29.295] } 1549s [00:52:29.295] }, args = future.call.arguments) 1549s [00:52:29.295] } 1549s [00:52:29.295] Tweak future expression to call with '...' arguments ... DONE 1549s [00:52:29.296] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.296] 1549s [00:52:29.296] getGlobalsAndPackages() ... DONE 1549s [00:52:29.296] run() for ‘Future’ ... 1549s [00:52:29.296] - state: ‘created’ 1549s [00:52:29.296] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1549s [00:52:29.297] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1549s [00:52:29.297] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1549s [00:52:29.297] - Field: ‘label’ 1549s [00:52:29.297] - Field: ‘local’ 1549s [00:52:29.297] - Field: ‘owner’ 1549s [00:52:29.297] - Field: ‘envir’ 1549s [00:52:29.297] - Field: ‘packages’ 1549s [00:52:29.298] - Field: ‘gc’ 1549s [00:52:29.298] - Field: ‘conditions’ 1549s [00:52:29.298] - Field: ‘expr’ 1549s [00:52:29.298] - Field: ‘uuid’ 1549s [00:52:29.298] - Field: ‘seed’ 1549s [00:52:29.298] - Field: ‘version’ 1549s [00:52:29.298] - Field: ‘result’ 1549s [00:52:29.299] - Field: ‘asynchronous’ 1549s [00:52:29.299] - Field: ‘calls’ 1549s [00:52:29.299] - Field: ‘globals’ 1549s [00:52:29.299] - Field: ‘stdout’ 1549s [00:52:29.301] - Field: ‘earlySignal’ 1549s [00:52:29.301] - Field: ‘lazy’ 1549s [00:52:29.301] - Field: ‘state’ 1549s [00:52:29.301] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1549s [00:52:29.301] - Launch lazy future ... 1549s [00:52:29.302] Packages needed by the future expression (n = 0): 1549s [00:52:29.302] Packages needed by future strategies (n = 0): 1549s [00:52:29.302] { 1549s [00:52:29.302] { 1549s [00:52:29.302] { 1549s [00:52:29.302] ...future.startTime <- base::Sys.time() 1549s [00:52:29.302] { 1549s [00:52:29.302] { 1549s [00:52:29.302] { 1549s [00:52:29.302] base::local({ 1549s [00:52:29.302] has_future <- base::requireNamespace("future", 1549s [00:52:29.302] quietly = TRUE) 1549s [00:52:29.302] if (has_future) { 1549s [00:52:29.302] ns <- base::getNamespace("future") 1549s [00:52:29.302] version <- ns[[".package"]][["version"]] 1549s [00:52:29.302] if (is.null(version)) 1549s [00:52:29.302] version <- utils::packageVersion("future") 1549s [00:52:29.302] } 1549s [00:52:29.302] else { 1549s [00:52:29.302] version <- NULL 1549s [00:52:29.302] } 1549s [00:52:29.302] if (!has_future || version < "1.8.0") { 1549s [00:52:29.302] info <- base::c(r_version = base::gsub("R version ", 1549s [00:52:29.302] "", base::R.version$version.string), 1549s [00:52:29.302] platform = base::sprintf("%s (%s-bit)", 1549s [00:52:29.302] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1549s [00:52:29.302] os = base::paste(base::Sys.info()[base::c("sysname", 1549s [00:52:29.302] "release", "version")], collapse = " "), 1549s [00:52:29.302] hostname = base::Sys.info()[["nodename"]]) 1549s [00:52:29.302] info <- base::sprintf("%s: %s", base::names(info), 1549s [00:52:29.302] info) 1549s [00:52:29.302] info <- base::paste(info, collapse = "; ") 1549s [00:52:29.302] if (!has_future) { 1549s [00:52:29.302] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1549s [00:52:29.302] info) 1549s [00:52:29.302] } 1549s [00:52:29.302] else { 1549s [00:52:29.302] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1549s [00:52:29.302] info, version) 1549s [00:52:29.302] } 1549s [00:52:29.302] base::stop(msg) 1549s [00:52:29.302] } 1549s [00:52:29.302] }) 1549s [00:52:29.302] } 1549s [00:52:29.302] options(future.plan = NULL) 1549s [00:52:29.302] Sys.unsetenv("R_FUTURE_PLAN") 1549s [00:52:29.302] future::plan("default", .cleanup = FALSE, .init = FALSE) 1549s [00:52:29.302] } 1549s [00:52:29.302] ...future.workdir <- getwd() 1549s [00:52:29.302] } 1549s [00:52:29.302] ...future.oldOptions <- base::as.list(base::.Options) 1549s [00:52:29.302] ...future.oldEnvVars <- base::Sys.getenv() 1549s [00:52:29.302] } 1549s [00:52:29.302] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1549s [00:52:29.302] future.globals.maxSize = 2097152000, future.globals.method = NULL, 1549s [00:52:29.302] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1549s [00:52:29.302] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1549s [00:52:29.302] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1549s [00:52:29.302] future.stdout.windows.reencode = NULL, width = 80L) 1549s [00:52:29.302] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1549s [00:52:29.302] base::names(...future.oldOptions)) 1549s [00:52:29.302] } 1549s [00:52:29.302] if (FALSE) { 1549s [00:52:29.302] } 1549s [00:52:29.302] else { 1549s [00:52:29.302] if (TRUE) { 1549s [00:52:29.302] ...future.stdout <- base::rawConnection(base::raw(0L), 1549s [00:52:29.302] open = "w") 1549s [00:52:29.302] } 1549s [00:52:29.302] else { 1549s [00:52:29.302] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1549s [00:52:29.302] windows = "NUL", "/dev/null"), open = "w") 1549s [00:52:29.302] } 1549s [00:52:29.302] base::sink(...future.stdout, type = "output", split = FALSE) 1549s [00:52:29.302] base::on.exit(if (!base::is.null(...future.stdout)) { 1549s [00:52:29.302] base::sink(type = "output", split = FALSE) 1549s [00:52:29.302] base::close(...future.stdout) 1549s [00:52:29.302] }, add = TRUE) 1549s [00:52:29.302] } 1549s [00:52:29.302] ...future.frame <- base::sys.nframe() 1549s [00:52:29.302] ...future.conditions <- base::list() 1549s [00:52:29.302] ...future.rng <- base::globalenv()$.Random.seed 1549s [00:52:29.302] if (FALSE) { 1549s [00:52:29.302] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1549s [00:52:29.302] "...future.value", "...future.globalenv.names", ".Random.seed") 1549s [00:52:29.302] } 1549s [00:52:29.302] ...future.result <- base::tryCatch({ 1549s [00:52:29.302] base::withCallingHandlers({ 1549s [00:52:29.302] ...future.value <- base::withVisible(base::local({ 1549s [00:52:29.302] do.call(function(...) { 1549s [00:52:29.302] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.302] if (!identical(...future.globals.maxSize.org, 1549s [00:52:29.302] ...future.globals.maxSize)) { 1549s [00:52:29.302] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.302] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.302] } 1549s [00:52:29.302] { 1549s [00:52:29.302] lapply(seq_along(...future.elements_ii), 1549s [00:52:29.302] FUN = function(jj) { 1549s [00:52:29.302] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.302] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.302] }) 1549s [00:52:29.302] } 1549s [00:52:29.302] }, args = future.call.arguments) 1549s [00:52:29.302] })) 1549s [00:52:29.302] future::FutureResult(value = ...future.value$value, 1549s [00:52:29.302] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1549s [00:52:29.302] ...future.rng), globalenv = if (FALSE) 1549s [00:52:29.302] list(added = base::setdiff(base::names(base::.GlobalEnv), 1549s [00:52:29.302] ...future.globalenv.names)) 1549s [00:52:29.302] else NULL, started = ...future.startTime, version = "1.8") 1549s [00:52:29.302] }, condition = base::local({ 1549s [00:52:29.302] c <- base::c 1549s [00:52:29.302] inherits <- base::inherits 1549s [00:52:29.302] invokeRestart <- base::invokeRestart 1549s [00:52:29.302] length <- base::length 1549s [00:52:29.302] list <- base::list 1549s [00:52:29.302] seq.int <- base::seq.int 1549s [00:52:29.302] signalCondition <- base::signalCondition 1549s [00:52:29.302] sys.calls <- base::sys.calls 1549s [00:52:29.302] `[[` <- base::`[[` 1549s [00:52:29.302] `+` <- base::`+` 1549s [00:52:29.302] `<<-` <- base::`<<-` 1549s [00:52:29.302] sysCalls <- function(calls = sys.calls(), from = 1L) { 1549s [00:52:29.302] calls[seq.int(from = from + 12L, to = length(calls) - 1549s [00:52:29.302] 3L)] 1549s [00:52:29.302] } 1549s [00:52:29.302] function(cond) { 1549s [00:52:29.302] is_error <- inherits(cond, "error") 1549s [00:52:29.302] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1549s [00:52:29.302] NULL) 1549s [00:52:29.302] if (is_error) { 1549s [00:52:29.302] sessionInformation <- function() { 1549s [00:52:29.302] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1549s [00:52:29.302] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1549s [00:52:29.302] search = base::search(), system = base::Sys.info()) 1549s [00:52:29.302] } 1549s [00:52:29.302] ...future.conditions[[length(...future.conditions) + 1549s [00:52:29.302] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1549s [00:52:29.302] cond$call), session = sessionInformation(), 1549s [00:52:29.302] timestamp = base::Sys.time(), signaled = 0L) 1549s [00:52:29.302] signalCondition(cond) 1549s [00:52:29.302] } 1549s [00:52:29.302] else if (!ignore && TRUE && inherits(cond, c("condition", 1549s [00:52:29.302] "immediateCondition"))) { 1549s [00:52:29.302] signal <- TRUE && inherits(cond, "immediateCondition") 1549s [00:52:29.302] ...future.conditions[[length(...future.conditions) + 1549s [00:52:29.302] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1549s [00:52:29.302] if (TRUE && !signal) { 1549s [00:52:29.302] muffleCondition <- function (cond, pattern = "^muffle") 1549s [00:52:29.302] { 1549s [00:52:29.302] inherits <- base::inherits 1549s [00:52:29.302] invokeRestart <- base::invokeRestart 1549s [00:52:29.302] is.null <- base::is.null 1549s [00:52:29.302] muffled <- FALSE 1549s [00:52:29.302] if (inherits(cond, "message")) { 1549s [00:52:29.302] muffled <- grepl(pattern, "muffleMessage") 1549s [00:52:29.302] if (muffled) 1549s [00:52:29.302] invokeRestart("muffleMessage") 1549s [00:52:29.302] } 1549s [00:52:29.302] else if (inherits(cond, "warning")) { 1549s [00:52:29.302] muffled <- grepl(pattern, "muffleWarning") 1549s [00:52:29.302] if (muffled) 1549s [00:52:29.302] invokeRestart("muffleWarning") 1549s [00:52:29.302] } 1549s [00:52:29.302] else if (inherits(cond, "condition")) { 1549s [00:52:29.302] if (!is.null(pattern)) { 1549s [00:52:29.302] computeRestarts <- base::computeRestarts 1549s [00:52:29.302] grepl <- base::grepl 1549s [00:52:29.302] restarts <- computeRestarts(cond) 1549s [00:52:29.302] for (restart in restarts) { 1549s [00:52:29.302] name <- restart$name 1549s [00:52:29.302] if (is.null(name)) 1549s [00:52:29.302] next 1549s [00:52:29.302] if (!grepl(pattern, name)) 1549s [00:52:29.302] next 1549s [00:52:29.302] invokeRestart(restart) 1549s [00:52:29.302] muffled <- TRUE 1549s [00:52:29.302] break 1549s [00:52:29.302] } 1549s [00:52:29.302] } 1549s [00:52:29.302] } 1549s [00:52:29.302] invisible(muffled) 1549s [00:52:29.302] } 1549s [00:52:29.302] muffleCondition(cond, pattern = "^muffle") 1549s [00:52:29.302] } 1549s [00:52:29.302] } 1549s [00:52:29.302] else { 1549s [00:52:29.302] if (TRUE) { 1549s [00:52:29.302] muffleCondition <- function (cond, pattern = "^muffle") 1549s [00:52:29.302] { 1549s [00:52:29.302] inherits <- base::inherits 1549s [00:52:29.302] invokeRestart <- base::invokeRestart 1549s [00:52:29.302] is.null <- base::is.null 1549s [00:52:29.302] muffled <- FALSE 1549s [00:52:29.302] if (inherits(cond, "message")) { 1549s [00:52:29.302] muffled <- grepl(pattern, "muffleMessage") 1549s [00:52:29.302] if (muffled) 1549s [00:52:29.302] invokeRestart("muffleMessage") 1549s [00:52:29.302] } 1549s [00:52:29.302] else if (inherits(cond, "warning")) { 1549s [00:52:29.302] muffled <- grepl(pattern, "muffleWarning") 1549s [00:52:29.302] if (muffled) 1549s [00:52:29.302] invokeRestart("muffleWarning") 1549s [00:52:29.302] } 1549s [00:52:29.302] else if (inherits(cond, "condition")) { 1549s [00:52:29.302] if (!is.null(pattern)) { 1549s [00:52:29.302] computeRestarts <- base::computeRestarts 1549s [00:52:29.302] grepl <- base::grepl 1549s [00:52:29.302] restarts <- computeRestarts(cond) 1549s [00:52:29.302] for (restart in restarts) { 1549s [00:52:29.302] name <- restart$name 1549s [00:52:29.302] if (is.null(name)) 1549s [00:52:29.302] next 1549s [00:52:29.302] if (!grepl(pattern, name)) 1549s [00:52:29.302] next 1549s [00:52:29.302] invokeRestart(restart) 1549s [00:52:29.302] muffled <- TRUE 1549s [00:52:29.302] break 1549s [00:52:29.302] } 1549s [00:52:29.302] } 1549s [00:52:29.302] } 1549s [00:52:29.302] invisible(muffled) 1549s [00:52:29.302] } 1549s [00:52:29.302] muffleCondition(cond, pattern = "^muffle") 1549s [00:52:29.302] } 1549s [00:52:29.302] } 1549s [00:52:29.302] } 1549s [00:52:29.302] })) 1549s [00:52:29.302] }, error = function(ex) { 1549s [00:52:29.302] base::structure(base::list(value = NULL, visible = NULL, 1549s [00:52:29.302] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1549s [00:52:29.302] ...future.rng), started = ...future.startTime, 1549s [00:52:29.302] finished = Sys.time(), session_uuid = NA_character_, 1549s [00:52:29.302] version = "1.8"), class = "FutureResult") 1549s [00:52:29.302] }, finally = { 1549s [00:52:29.302] if (!identical(...future.workdir, getwd())) 1549s [00:52:29.302] setwd(...future.workdir) 1549s [00:52:29.302] { 1549s [00:52:29.302] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1549s [00:52:29.302] ...future.oldOptions$nwarnings <- NULL 1549s [00:52:29.302] } 1549s [00:52:29.302] base::options(...future.oldOptions) 1549s [00:52:29.302] if (.Platform$OS.type == "windows") { 1549s [00:52:29.302] old_names <- names(...future.oldEnvVars) 1549s [00:52:29.302] envs <- base::Sys.getenv() 1549s [00:52:29.302] names <- names(envs) 1549s [00:52:29.302] common <- intersect(names, old_names) 1549s [00:52:29.302] added <- setdiff(names, old_names) 1549s [00:52:29.302] removed <- setdiff(old_names, names) 1549s [00:52:29.302] changed <- common[...future.oldEnvVars[common] != 1549s [00:52:29.302] envs[common]] 1549s [00:52:29.302] NAMES <- toupper(changed) 1549s [00:52:29.302] args <- list() 1549s [00:52:29.302] for (kk in seq_along(NAMES)) { 1549s [00:52:29.302] name <- changed[[kk]] 1549s [00:52:29.302] NAME <- NAMES[[kk]] 1549s [00:52:29.302] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.302] next 1549s [00:52:29.302] args[[name]] <- ...future.oldEnvVars[[name]] 1549s [00:52:29.302] } 1549s [00:52:29.302] NAMES <- toupper(added) 1549s [00:52:29.302] for (kk in seq_along(NAMES)) { 1549s [00:52:29.302] name <- added[[kk]] 1549s [00:52:29.302] NAME <- NAMES[[kk]] 1549s [00:52:29.302] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.302] next 1549s [00:52:29.302] args[[name]] <- "" 1549s [00:52:29.302] } 1549s [00:52:29.302] NAMES <- toupper(removed) 1549s [00:52:29.302] for (kk in seq_along(NAMES)) { 1549s [00:52:29.302] name <- removed[[kk]] 1549s [00:52:29.302] NAME <- NAMES[[kk]] 1549s [00:52:29.302] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.302] next 1549s [00:52:29.302] args[[name]] <- ...future.oldEnvVars[[name]] 1549s [00:52:29.302] } 1549s [00:52:29.302] if (length(args) > 0) 1549s [00:52:29.302] base::do.call(base::Sys.setenv, args = args) 1549s [00:52:29.302] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1549s [00:52:29.302] } 1549s [00:52:29.302] else { 1549s [00:52:29.302] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1549s [00:52:29.302] } 1549s [00:52:29.302] { 1549s [00:52:29.302] if (base::length(...future.futureOptionsAdded) > 1549s [00:52:29.302] 0L) { 1549s [00:52:29.302] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1549s [00:52:29.302] base::names(opts) <- ...future.futureOptionsAdded 1549s [00:52:29.302] base::options(opts) 1549s [00:52:29.302] } 1549s [00:52:29.302] { 1549s [00:52:29.302] { 1549s [00:52:29.302] NULL 1549s [00:52:29.302] RNGkind("Mersenne-Twister") 1549s [00:52:29.302] base::rm(list = ".Random.seed", envir = base::globalenv(), 1549s [00:52:29.302] inherits = FALSE) 1549s [00:52:29.302] } 1549s [00:52:29.302] options(future.plan = NULL) 1549s [00:52:29.302] if (is.na(NA_character_)) 1549s [00:52:29.302] Sys.unsetenv("R_FUTURE_PLAN") 1549s [00:52:29.302] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1549s [00:52:29.302] future::plan(list(function (..., envir = parent.frame()) 1549s [00:52:29.302] { 1549s [00:52:29.302] future <- SequentialFuture(..., envir = envir) 1549s [00:52:29.302] if (!future$lazy) 1549s [00:52:29.302] future <- run(future) 1549s [00:52:29.302] invisible(future) 1549s [00:52:29.302] }), .cleanup = FALSE, .init = FALSE) 1549s [00:52:29.302] } 1549s [00:52:29.302] } 1549s [00:52:29.302] } 1549s [00:52:29.302] }) 1549s [00:52:29.302] if (TRUE) { 1549s [00:52:29.302] base::sink(type = "output", split = FALSE) 1549s [00:52:29.302] if (TRUE) { 1549s [00:52:29.302] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1549s [00:52:29.302] } 1549s [00:52:29.302] else { 1549s [00:52:29.302] ...future.result["stdout"] <- base::list(NULL) 1549s [00:52:29.302] } 1549s [00:52:29.302] base::close(...future.stdout) 1549s [00:52:29.302] ...future.stdout <- NULL 1549s [00:52:29.302] } 1549s [00:52:29.302] ...future.result$conditions <- ...future.conditions 1549s [00:52:29.302] ...future.result$finished <- base::Sys.time() 1549s [00:52:29.302] ...future.result 1549s [00:52:29.302] } 1549s [00:52:29.305] assign_globals() ... 1549s [00:52:29.305] List of 5 1549s [00:52:29.305] $ ...future.FUN :function (mode = "logical", length = 0L) 1549s [00:52:29.305] $ future.call.arguments :List of 1 1549s [00:52:29.305] ..$ length: int 2 1549s [00:52:29.305] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1549s [00:52:29.305] $ ...future.elements_ii :List of 1 1549s [00:52:29.305] ..$ c: chr "character" 1549s [00:52:29.305] $ ...future.seeds_ii : NULL 1549s [00:52:29.305] $ ...future.globals.maxSize: NULL 1549s [00:52:29.305] - attr(*, "where")=List of 5 1549s [00:52:29.305] ..$ ...future.FUN : 1549s [00:52:29.305] ..$ future.call.arguments : 1549s [00:52:29.305] ..$ ...future.elements_ii : 1549s [00:52:29.305] ..$ ...future.seeds_ii : 1549s [00:52:29.305] ..$ ...future.globals.maxSize: 1549s [00:52:29.305] - attr(*, "resolved")= logi FALSE 1549s [00:52:29.305] - attr(*, "total_size")= num 2240 1549s [00:52:29.305] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1549s [00:52:29.305] - attr(*, "already-done")= logi TRUE 1549s [00:52:29.313] - copied ‘...future.FUN’ to environment 1549s [00:52:29.313] - copied ‘future.call.arguments’ to environment 1549s [00:52:29.313] - copied ‘...future.elements_ii’ to environment 1549s [00:52:29.313] - copied ‘...future.seeds_ii’ to environment 1549s [00:52:29.313] - copied ‘...future.globals.maxSize’ to environment 1549s [00:52:29.314] assign_globals() ... done 1549s [00:52:29.314] plan(): Setting new future strategy stack: 1549s [00:52:29.314] List of future strategies: 1549s [00:52:29.314] 1. sequential: 1549s [00:52:29.314] - args: function (..., envir = parent.frame()) 1549s [00:52:29.314] - tweaked: FALSE 1549s [00:52:29.314] - call: NULL 1549s [00:52:29.315] plan(): nbrOfWorkers() = 1 1549s [00:52:29.316] plan(): Setting new future strategy stack: 1549s [00:52:29.316] List of future strategies: 1549s [00:52:29.316] 1. sequential: 1549s [00:52:29.316] - args: function (..., envir = parent.frame()) 1549s [00:52:29.316] - tweaked: FALSE 1549s [00:52:29.316] - call: plan(strategy) 1549s [00:52:29.316] plan(): nbrOfWorkers() = 1 1549s [00:52:29.317] SequentialFuture started (and completed) 1549s [00:52:29.317] - Launch lazy future ... done 1549s [00:52:29.317] run() for ‘SequentialFuture’ ... done 1549s [00:52:29.317] Created future: 1549s [00:52:29.317] SequentialFuture: 1549s [00:52:29.317] Label: ‘future_lapply-3’ 1549s [00:52:29.317] Expression: 1549s [00:52:29.317] { 1549s [00:52:29.317] do.call(function(...) { 1549s [00:52:29.317] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.317] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1549s [00:52:29.317] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.317] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.317] } 1549s [00:52:29.317] { 1549s [00:52:29.317] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1549s [00:52:29.317] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.317] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.317] }) 1549s [00:52:29.317] } 1549s [00:52:29.317] }, args = future.call.arguments) 1549s [00:52:29.317] } 1549s [00:52:29.317] Lazy evaluation: FALSE 1549s [00:52:29.317] Asynchronous evaluation: FALSE 1549s [00:52:29.317] Local evaluation: TRUE 1549s [00:52:29.317] Environment: R_GlobalEnv 1549s [00:52:29.317] Capture standard output: TRUE 1549s [00:52:29.317] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1549s [00:52:29.317] Globals: 5 objects totaling 2.30 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 120 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1549s [00:52:29.317] Packages: 1549s [00:52:29.317] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1549s [00:52:29.317] Resolved: TRUE 1549s [00:52:29.317] Value: 120 bytes of class ‘list’ 1549s [00:52:29.317] Early signaling: FALSE 1549s [00:52:29.317] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1549s [00:52:29.317] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1549s [00:52:29.319] Chunk #3 of 4 ... DONE 1549s [00:52:29.319] Chunk #4 of 4 ... 1549s [00:52:29.319] - Finding globals in 'X' for chunk #4 ... 1549s [00:52:29.319] getGlobalsAndPackages() ... 1549s [00:52:29.319] Searching for globals... 1549s [00:52:29.320] 1549s [00:52:29.320] Searching for globals ... DONE 1549s [00:52:29.320] - globals: [0] 1549s [00:52:29.320] getGlobalsAndPackages() ... DONE 1549s [00:52:29.320] + additional globals found: [n=0] 1549s [00:52:29.321] + additional namespaces needed: [n=0] 1549s [00:52:29.321] - Finding globals in 'X' for chunk #4 ... DONE 1549s [00:52:29.321] - Adjusted option 'future.globals.maxSize': 524288000 -> 4 * 524288000 = 2097152000 (bytes) 1549s [00:52:29.321] - seeds: 1549s [00:52:29.321] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.321] getGlobalsAndPackages() ... 1549s [00:52:29.321] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.322] Resolving globals: FALSE 1549s [00:52:29.322] Tweak future expression to call with '...' arguments ... 1549s [00:52:29.322] { 1549s [00:52:29.322] do.call(function(...) { 1549s [00:52:29.322] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.322] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1549s [00:52:29.322] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.322] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.322] } 1549s [00:52:29.322] { 1549s [00:52:29.322] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1549s [00:52:29.322] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.322] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.322] }) 1549s [00:52:29.322] } 1549s [00:52:29.322] }, args = future.call.arguments) 1549s [00:52:29.322] } 1549s [00:52:29.322] Tweak future expression to call with '...' arguments ... DONE 1549s [00:52:29.323] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.323] 1549s [00:52:29.323] getGlobalsAndPackages() ... DONE 1549s [00:52:29.324] run() for ‘Future’ ... 1549s [00:52:29.324] - state: ‘created’ 1549s [00:52:29.324] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1549s [00:52:29.324] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1549s [00:52:29.324] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1549s [00:52:29.325] - Field: ‘label’ 1549s [00:52:29.325] - Field: ‘local’ 1549s [00:52:29.325] - Field: ‘owner’ 1549s [00:52:29.325] - Field: ‘envir’ 1549s [00:52:29.326] - Field: ‘packages’ 1549s [00:52:29.326] - Field: ‘gc’ 1549s [00:52:29.326] - Field: ‘conditions’ 1549s [00:52:29.326] - Field: ‘expr’ 1549s [00:52:29.326] - Field: ‘uuid’ 1549s [00:52:29.327] - Field: ‘seed’ 1549s [00:52:29.327] - Field: ‘version’ 1549s [00:52:29.327] - Field: ‘result’ 1549s [00:52:29.327] - Field: ‘asynchronous’ 1549s [00:52:29.327] - Field: ‘calls’ 1549s [00:52:29.327] - Field: ‘globals’ 1549s [00:52:29.327] - Field: ‘stdout’ 1549s [00:52:29.327] - Field: ‘earlySignal’ 1549s [00:52:29.328] - Field: ‘lazy’ 1549s [00:52:29.328] - Field: ‘state’ 1549s [00:52:29.328] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1549s [00:52:29.328] - Launch lazy future ... 1549s [00:52:29.328] Packages needed by the future expression (n = 0): 1549s [00:52:29.328] Packages needed by future strategies (n = 0): 1549s [00:52:29.329] { 1549s [00:52:29.329] { 1549s [00:52:29.329] { 1549s [00:52:29.329] ...future.startTime <- base::Sys.time() 1549s [00:52:29.329] { 1549s [00:52:29.329] { 1549s [00:52:29.329] { 1549s [00:52:29.329] base::local({ 1549s [00:52:29.329] has_future <- base::requireNamespace("future", 1549s [00:52:29.329] quietly = TRUE) 1549s [00:52:29.329] if (has_future) { 1549s [00:52:29.329] ns <- base::getNamespace("future") 1549s [00:52:29.329] version <- ns[[".package"]][["version"]] 1549s [00:52:29.329] if (is.null(version)) 1549s [00:52:29.329] version <- utils::packageVersion("future") 1549s [00:52:29.329] } 1549s [00:52:29.329] else { 1549s [00:52:29.329] version <- NULL 1549s [00:52:29.329] } 1549s [00:52:29.329] if (!has_future || version < "1.8.0") { 1549s [00:52:29.329] info <- base::c(r_version = base::gsub("R version ", 1549s [00:52:29.329] "", base::R.version$version.string), 1549s [00:52:29.329] platform = base::sprintf("%s (%s-bit)", 1549s [00:52:29.329] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1549s [00:52:29.329] os = base::paste(base::Sys.info()[base::c("sysname", 1549s [00:52:29.329] "release", "version")], collapse = " "), 1549s [00:52:29.329] hostname = base::Sys.info()[["nodename"]]) 1549s [00:52:29.329] info <- base::sprintf("%s: %s", base::names(info), 1549s [00:52:29.329] info) 1549s [00:52:29.329] info <- base::paste(info, collapse = "; ") 1549s [00:52:29.329] if (!has_future) { 1549s [00:52:29.329] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1549s [00:52:29.329] info) 1549s [00:52:29.329] } 1549s [00:52:29.329] else { 1549s [00:52:29.329] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1549s [00:52:29.329] info, version) 1549s [00:52:29.329] } 1549s [00:52:29.329] base::stop(msg) 1549s [00:52:29.329] } 1549s [00:52:29.329] }) 1549s [00:52:29.329] } 1549s [00:52:29.329] options(future.plan = NULL) 1549s [00:52:29.329] Sys.unsetenv("R_FUTURE_PLAN") 1549s [00:52:29.329] future::plan("default", .cleanup = FALSE, .init = FALSE) 1549s [00:52:29.329] } 1549s [00:52:29.329] ...future.workdir <- getwd() 1549s [00:52:29.329] } 1549s [00:52:29.329] ...future.oldOptions <- base::as.list(base::.Options) 1549s [00:52:29.329] ...future.oldEnvVars <- base::Sys.getenv() 1549s [00:52:29.329] } 1549s [00:52:29.329] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1549s [00:52:29.329] future.globals.maxSize = 2097152000, future.globals.method = NULL, 1549s [00:52:29.329] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1549s [00:52:29.329] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1549s [00:52:29.329] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1549s [00:52:29.329] future.stdout.windows.reencode = NULL, width = 80L) 1549s [00:52:29.329] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1549s [00:52:29.329] base::names(...future.oldOptions)) 1549s [00:52:29.329] } 1549s [00:52:29.329] if (FALSE) { 1549s [00:52:29.329] } 1549s [00:52:29.329] else { 1549s [00:52:29.329] if (TRUE) { 1549s [00:52:29.329] ...future.stdout <- base::rawConnection(base::raw(0L), 1549s [00:52:29.329] open = "w") 1549s [00:52:29.329] } 1549s [00:52:29.329] else { 1549s [00:52:29.329] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1549s [00:52:29.329] windows = "NUL", "/dev/null"), open = "w") 1549s [00:52:29.329] } 1549s [00:52:29.329] base::sink(...future.stdout, type = "output", split = FALSE) 1549s [00:52:29.329] base::on.exit(if (!base::is.null(...future.stdout)) { 1549s [00:52:29.329] base::sink(type = "output", split = FALSE) 1549s [00:52:29.329] base::close(...future.stdout) 1549s [00:52:29.329] }, add = TRUE) 1549s [00:52:29.329] } 1549s [00:52:29.329] ...future.frame <- base::sys.nframe() 1549s [00:52:29.329] ...future.conditions <- base::list() 1549s [00:52:29.329] ...future.rng <- base::globalenv()$.Random.seed 1549s [00:52:29.329] if (FALSE) { 1549s [00:52:29.329] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1549s [00:52:29.329] "...future.value", "...future.globalenv.names", ".Random.seed") 1549s [00:52:29.329] } 1549s [00:52:29.329] ...future.result <- base::tryCatch({ 1549s [00:52:29.329] base::withCallingHandlers({ 1549s [00:52:29.329] ...future.value <- base::withVisible(base::local({ 1549s [00:52:29.329] do.call(function(...) { 1549s [00:52:29.329] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.329] if (!identical(...future.globals.maxSize.org, 1549s [00:52:29.329] ...future.globals.maxSize)) { 1549s [00:52:29.329] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.329] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.329] } 1549s [00:52:29.329] { 1549s [00:52:29.329] lapply(seq_along(...future.elements_ii), 1549s [00:52:29.329] FUN = function(jj) { 1549s [00:52:29.329] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.329] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.329] }) 1549s [00:52:29.329] } 1549s [00:52:29.329] }, args = future.call.arguments) 1549s [00:52:29.329] })) 1549s [00:52:29.329] future::FutureResult(value = ...future.value$value, 1549s [00:52:29.329] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1549s [00:52:29.329] ...future.rng), globalenv = if (FALSE) 1549s [00:52:29.329] list(added = base::setdiff(base::names(base::.GlobalEnv), 1549s [00:52:29.329] ...future.globalenv.names)) 1549s [00:52:29.329] else NULL, started = ...future.startTime, version = "1.8") 1549s [00:52:29.329] }, condition = base::local({ 1549s [00:52:29.329] c <- base::c 1549s [00:52:29.329] inherits <- base::inherits 1549s [00:52:29.329] invokeRestart <- base::invokeRestart 1549s [00:52:29.329] length <- base::length 1549s [00:52:29.329] list <- base::list 1549s [00:52:29.329] seq.int <- base::seq.int 1549s [00:52:29.329] signalCondition <- base::signalCondition 1549s [00:52:29.329] sys.calls <- base::sys.calls 1549s [00:52:29.329] `[[` <- base::`[[` 1549s [00:52:29.329] `+` <- base::`+` 1549s [00:52:29.329] `<<-` <- base::`<<-` 1549s [00:52:29.329] sysCalls <- function(calls = sys.calls(), from = 1L) { 1549s [00:52:29.329] calls[seq.int(from = from + 12L, to = length(calls) - 1549s [00:52:29.329] 3L)] 1549s [00:52:29.329] } 1549s [00:52:29.329] function(cond) { 1549s [00:52:29.329] is_error <- inherits(cond, "error") 1549s [00:52:29.329] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1549s [00:52:29.329] NULL) 1549s [00:52:29.329] if (is_error) { 1549s [00:52:29.329] sessionInformation <- function() { 1549s [00:52:29.329] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1549s [00:52:29.329] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1549s [00:52:29.329] search = base::search(), system = base::Sys.info()) 1549s [00:52:29.329] } 1549s [00:52:29.329] ...future.conditions[[length(...future.conditions) + 1549s [00:52:29.329] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1549s [00:52:29.329] cond$call), session = sessionInformation(), 1549s [00:52:29.329] timestamp = base::Sys.time(), signaled = 0L) 1549s [00:52:29.329] signalCondition(cond) 1549s [00:52:29.329] } 1549s [00:52:29.329] else if (!ignore && TRUE && inherits(cond, c("condition", 1549s [00:52:29.329] "immediateCondition"))) { 1549s [00:52:29.329] signal <- TRUE && inherits(cond, "immediateCondition") 1549s [00:52:29.329] ...future.conditions[[length(...future.conditions) + 1549s [00:52:29.329] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1549s [00:52:29.329] if (TRUE && !signal) { 1549s [00:52:29.329] muffleCondition <- function (cond, pattern = "^muffle") 1549s [00:52:29.329] { 1549s [00:52:29.329] inherits <- base::inherits 1549s [00:52:29.329] invokeRestart <- base::invokeRestart 1549s [00:52:29.329] is.null <- base::is.null 1549s [00:52:29.329] muffled <- FALSE 1549s [00:52:29.329] if (inherits(cond, "message")) { 1549s [00:52:29.329] muffled <- grepl(pattern, "muffleMessage") 1549s [00:52:29.329] if (muffled) 1549s [00:52:29.329] invokeRestart("muffleMessage") 1549s [00:52:29.329] } 1549s [00:52:29.329] else if (inherits(cond, "warning")) { 1549s [00:52:29.329] muffled <- grepl(pattern, "muffleWarning") 1549s [00:52:29.329] if (muffled) 1549s [00:52:29.329] invokeRestart("muffleWarning") 1549s [00:52:29.329] } 1549s [00:52:29.329] else if (inherits(cond, "condition")) { 1549s [00:52:29.329] if (!is.null(pattern)) { 1549s [00:52:29.329] computeRestarts <- base::computeRestarts 1549s [00:52:29.329] grepl <- base::grepl 1549s [00:52:29.329] restarts <- computeRestarts(cond) 1549s [00:52:29.329] for (restart in restarts) { 1549s [00:52:29.329] name <- restart$name 1549s [00:52:29.329] if (is.null(name)) 1549s [00:52:29.329] next 1549s [00:52:29.329] if (!grepl(pattern, name)) 1549s [00:52:29.329] next 1549s [00:52:29.329] invokeRestart(restart) 1549s [00:52:29.329] muffled <- TRUE 1549s [00:52:29.329] break 1549s [00:52:29.329] } 1549s [00:52:29.329] } 1549s [00:52:29.329] } 1549s [00:52:29.329] invisible(muffled) 1549s [00:52:29.329] } 1549s [00:52:29.329] muffleCondition(cond, pattern = "^muffle") 1549s [00:52:29.329] } 1549s [00:52:29.329] } 1549s [00:52:29.329] else { 1549s [00:52:29.329] if (TRUE) { 1549s [00:52:29.329] muffleCondition <- function (cond, pattern = "^muffle") 1549s [00:52:29.329] { 1549s [00:52:29.329] inherits <- base::inherits 1549s [00:52:29.329] invokeRestart <- base::invokeRestart 1549s [00:52:29.329] is.null <- base::is.null 1549s [00:52:29.329] muffled <- FALSE 1549s [00:52:29.329] if (inherits(cond, "message")) { 1549s [00:52:29.329] muffled <- grepl(pattern, "muffleMessage") 1549s [00:52:29.329] if (muffled) 1549s [00:52:29.329] invokeRestart("muffleMessage") 1549s [00:52:29.329] } 1549s [00:52:29.329] else if (inherits(cond, "warning")) { 1549s [00:52:29.329] muffled <- grepl(pattern, "muffleWarning") 1549s [00:52:29.329] if (muffled) 1549s [00:52:29.329] invokeRestart("muffleWarning") 1549s [00:52:29.329] } 1549s [00:52:29.329] else if (inherits(cond, "condition")) { 1549s [00:52:29.329] if (!is.null(pattern)) { 1549s [00:52:29.329] computeRestarts <- base::computeRestarts 1549s [00:52:29.329] grepl <- base::grepl 1549s [00:52:29.329] restarts <- computeRestarts(cond) 1549s [00:52:29.329] for (restart in restarts) { 1549s [00:52:29.329] name <- restart$name 1549s [00:52:29.329] if (is.null(name)) 1549s [00:52:29.329] next 1549s [00:52:29.329] if (!grepl(pattern, name)) 1549s [00:52:29.329] next 1549s [00:52:29.329] invokeRestart(restart) 1549s [00:52:29.329] muffled <- TRUE 1549s [00:52:29.329] break 1549s [00:52:29.329] } 1549s [00:52:29.329] } 1549s [00:52:29.329] } 1549s [00:52:29.329] invisible(muffled) 1549s [00:52:29.329] } 1549s [00:52:29.329] muffleCondition(cond, pattern = "^muffle") 1549s [00:52:29.329] } 1549s [00:52:29.329] } 1549s [00:52:29.329] } 1549s [00:52:29.329] })) 1549s [00:52:29.329] }, error = function(ex) { 1549s [00:52:29.329] base::structure(base::list(value = NULL, visible = NULL, 1549s [00:52:29.329] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1549s [00:52:29.329] ...future.rng), started = ...future.startTime, 1549s [00:52:29.329] finished = Sys.time(), session_uuid = NA_character_, 1549s [00:52:29.329] version = "1.8"), class = "FutureResult") 1549s [00:52:29.329] }, finally = { 1549s [00:52:29.329] if (!identical(...future.workdir, getwd())) 1549s [00:52:29.329] setwd(...future.workdir) 1549s [00:52:29.329] { 1549s [00:52:29.329] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1549s [00:52:29.329] ...future.oldOptions$nwarnings <- NULL 1549s [00:52:29.329] } 1549s [00:52:29.329] base::options(...future.oldOptions) 1549s [00:52:29.329] if (.Platform$OS.type == "windows") { 1549s [00:52:29.329] old_names <- names(...future.oldEnvVars) 1549s [00:52:29.329] envs <- base::Sys.getenv() 1549s [00:52:29.329] names <- names(envs) 1549s [00:52:29.329] common <- intersect(names, old_names) 1549s [00:52:29.329] added <- setdiff(names, old_names) 1549s [00:52:29.329] removed <- setdiff(old_names, names) 1549s [00:52:29.329] changed <- common[...future.oldEnvVars[common] != 1549s [00:52:29.329] envs[common]] 1549s [00:52:29.329] NAMES <- toupper(changed) 1549s [00:52:29.329] args <- list() 1549s [00:52:29.329] for (kk in seq_along(NAMES)) { 1549s [00:52:29.329] name <- changed[[kk]] 1549s [00:52:29.329] NAME <- NAMES[[kk]] 1549s [00:52:29.329] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.329] next 1549s [00:52:29.329] args[[name]] <- ...future.oldEnvVars[[name]] 1549s [00:52:29.329] } 1549s [00:52:29.329] NAMES <- toupper(added) 1549s [00:52:29.329] for (kk in seq_along(NAMES)) { 1549s [00:52:29.329] name <- added[[kk]] 1549s [00:52:29.329] NAME <- NAMES[[kk]] 1549s [00:52:29.329] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.329] next 1549s [00:52:29.329] args[[name]] <- "" 1549s [00:52:29.329] } 1549s [00:52:29.329] NAMES <- toupper(removed) 1549s [00:52:29.329] for (kk in seq_along(NAMES)) { 1549s [00:52:29.329] name <- removed[[kk]] 1549s [00:52:29.329] NAME <- NAMES[[kk]] 1549s [00:52:29.329] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.329] next 1549s [00:52:29.329] args[[name]] <- ...future.oldEnvVars[[name]] 1549s [00:52:29.329] } 1549s [00:52:29.329] if (length(args) > 0) 1549s [00:52:29.329] base::do.call(base::Sys.setenv, args = args) 1549s [00:52:29.329] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1549s [00:52:29.329] } 1549s [00:52:29.329] else { 1549s [00:52:29.329] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1549s [00:52:29.329] } 1549s [00:52:29.329] { 1549s [00:52:29.329] if (base::length(...future.futureOptionsAdded) > 1549s [00:52:29.329] 0L) { 1549s [00:52:29.329] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1549s [00:52:29.329] base::names(opts) <- ...future.futureOptionsAdded 1549s [00:52:29.329] base::options(opts) 1549s [00:52:29.329] } 1549s [00:52:29.329] { 1549s [00:52:29.329] { 1549s [00:52:29.329] NULL 1549s [00:52:29.329] RNGkind("Mersenne-Twister") 1549s [00:52:29.329] base::rm(list = ".Random.seed", envir = base::globalenv(), 1549s [00:52:29.329] inherits = FALSE) 1549s [00:52:29.329] } 1549s [00:52:29.329] options(future.plan = NULL) 1549s [00:52:29.329] if (is.na(NA_character_)) 1549s [00:52:29.329] Sys.unsetenv("R_FUTURE_PLAN") 1549s [00:52:29.329] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1549s [00:52:29.329] future::plan(list(function (..., envir = parent.frame()) 1549s [00:52:29.329] { 1549s [00:52:29.329] future <- SequentialFuture(..., envir = envir) 1549s [00:52:29.329] if (!future$lazy) 1549s [00:52:29.329] future <- run(future) 1549s [00:52:29.329] invisible(future) 1549s [00:52:29.329] }), .cleanup = FALSE, .init = FALSE) 1549s [00:52:29.329] } 1549s [00:52:29.329] } 1549s [00:52:29.329] } 1549s [00:52:29.329] }) 1549s [00:52:29.329] if (TRUE) { 1549s [00:52:29.329] base::sink(type = "output", split = FALSE) 1549s [00:52:29.329] if (TRUE) { 1549s [00:52:29.329] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1549s [00:52:29.329] } 1549s [00:52:29.329] else { 1549s [00:52:29.329] ...future.result["stdout"] <- base::list(NULL) 1549s [00:52:29.329] } 1549s [00:52:29.329] base::close(...future.stdout) 1549s [00:52:29.329] ...future.stdout <- NULL 1549s [00:52:29.329] } 1549s [00:52:29.329] ...future.result$conditions <- ...future.conditions 1549s [00:52:29.329] ...future.result$finished <- base::Sys.time() 1549s [00:52:29.329] ...future.result 1549s [00:52:29.329] } 1549s [00:52:29.333] assign_globals() ... 1549s [00:52:29.333] List of 5 1549s [00:52:29.333] $ ...future.FUN :function (mode = "logical", length = 0L) 1549s [00:52:29.333] $ future.call.arguments :List of 1 1549s [00:52:29.333] ..$ length: int 2 1549s [00:52:29.333] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1549s [00:52:29.333] $ ...future.elements_ii :List of 1 1549s [00:52:29.333] ..$ c: chr "list" 1549s [00:52:29.333] $ ...future.seeds_ii : NULL 1549s [00:52:29.333] $ ...future.globals.maxSize: NULL 1549s [00:52:29.333] - attr(*, "where")=List of 5 1549s [00:52:29.333] ..$ ...future.FUN : 1549s [00:52:29.333] ..$ future.call.arguments : 1549s [00:52:29.333] ..$ ...future.elements_ii : 1549s [00:52:29.333] ..$ ...future.seeds_ii : 1549s [00:52:29.333] ..$ ...future.globals.maxSize: 1549s [00:52:29.333] - attr(*, "resolved")= logi FALSE 1549s [00:52:29.333] - attr(*, "total_size")= num 2240 1549s [00:52:29.333] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1549s [00:52:29.333] - attr(*, "already-done")= logi TRUE 1549s [00:52:29.341] - copied ‘...future.FUN’ to environment 1549s [00:52:29.341] - copied ‘future.call.arguments’ to environment 1549s [00:52:29.341] - copied ‘...future.elements_ii’ to environment 1549s [00:52:29.341] - copied ‘...future.seeds_ii’ to environment 1549s [00:52:29.342] - copied ‘...future.globals.maxSize’ to environment 1549s [00:52:29.342] assign_globals() ... done 1549s [00:52:29.342] plan(): Setting new future strategy stack: 1549s [00:52:29.342] List of future strategies: 1549s [00:52:29.342] 1. sequential: 1549s [00:52:29.342] - args: function (..., envir = parent.frame()) 1549s [00:52:29.342] - tweaked: FALSE 1549s [00:52:29.342] - call: NULL 1549s [00:52:29.343] plan(): nbrOfWorkers() = 1 1549s [00:52:29.344] plan(): Setting new future strategy stack: 1549s [00:52:29.344] List of future strategies: 1549s [00:52:29.344] 1. sequential: 1549s [00:52:29.344] - args: function (..., envir = parent.frame()) 1549s [00:52:29.344] - tweaked: FALSE 1549s [00:52:29.344] - call: plan(strategy) 1549s [00:52:29.345] plan(): nbrOfWorkers() = 1 1549s [00:52:29.345] SequentialFuture started (and completed) 1549s [00:52:29.345] - Launch lazy future ... done 1549s [00:52:29.345] run() for ‘SequentialFuture’ ... done 1549s [00:52:29.346] Created future: 1549s [00:52:29.346] SequentialFuture: 1549s [00:52:29.346] Label: ‘future_lapply-4’ 1549s [00:52:29.346] Expression: 1549s [00:52:29.346] { 1549s [00:52:29.346] do.call(function(...) { 1549s [00:52:29.346] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.346] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1549s [00:52:29.346] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.346] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.346] } 1549s [00:52:29.346] { 1549s [00:52:29.346] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1549s [00:52:29.346] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.346] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.346] }) 1549s [00:52:29.346] } 1549s [00:52:29.346] }, args = future.call.arguments) 1549s [00:52:29.346] } 1549s [00:52:29.346] Lazy evaluation: FALSE 1549s [00:52:29.346] Asynchronous evaluation: FALSE 1549s [00:52:29.346] Local evaluation: TRUE 1549s [00:52:29.346] Environment: R_GlobalEnv 1549s [00:52:29.346] Capture standard output: TRUE 1549s [00:52:29.346] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1549s [00:52:29.346] Globals: 5 objects totaling 2.30 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1549s [00:52:29.346] Packages: 1549s [00:52:29.346] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1549s [00:52:29.346] Resolved: TRUE 1549s [00:52:29.346] Value: 0 bytes of class ‘list’ 1549s [00:52:29.346] Early signaling: FALSE 1549s [00:52:29.346] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1549s [00:52:29.346] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1549s [00:52:29.347] Chunk #4 of 4 ... DONE 1549s [00:52:29.347] Launching 4 futures (chunks) ... DONE 1549s [00:52:29.348] Resolving 4 futures (chunks) ... 1549s [00:52:29.348] resolve() on list ... 1549s [00:52:29.348] recursive: 0 1549s [00:52:29.348] length: 4 1549s [00:52:29.349] 1549s [00:52:29.349] resolved() for ‘SequentialFuture’ ... 1549s [00:52:29.349] - state: ‘finished’ 1549s [00:52:29.349] - run: TRUE 1549s [00:52:29.349] - result: ‘FutureResult’ 1549s [00:52:29.349] resolved() for ‘SequentialFuture’ ... done 1549s [00:52:29.350] Future #1 1549s [00:52:29.350] signalConditionsASAP(SequentialFuture, pos=1) ... 1549s [00:52:29.350] - nx: 4 1549s [00:52:29.350] - relay: TRUE 1549s [00:52:29.350] - stdout: TRUE 1549s [00:52:29.351] - signal: TRUE 1549s [00:52:29.351] - resignal: FALSE 1549s [00:52:29.351] - force: TRUE 1549s [00:52:29.351] - relayed: [n=4] FALSE, FALSE, FALSE, FALSE 1549s [00:52:29.351] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE 1549s [00:52:29.351] - until=1 1549s [00:52:29.351] - relaying element #1 1549s [00:52:29.352] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE 1549s [00:52:29.352] - queued futures: [n=4] TRUE, FALSE, FALSE, FALSE 1549s [00:52:29.352] signalConditionsASAP(SequentialFuture, pos=1) ... done 1549s [00:52:29.352] length: 3 (resolved future 1) 1549s [00:52:29.353] resolved() for ‘SequentialFuture’ ... 1549s [00:52:29.353] - state: ‘finished’ 1549s [00:52:29.353] - run: TRUE 1549s [00:52:29.353] - result: ‘FutureResult’ 1549s [00:52:29.353] resolved() for ‘SequentialFuture’ ... done 1549s [00:52:29.353] Future #2 1549s [00:52:29.354] signalConditionsASAP(SequentialFuture, pos=2) ... 1549s [00:52:29.354] - nx: 4 1549s [00:52:29.354] - relay: TRUE 1549s [00:52:29.354] - stdout: TRUE 1549s [00:52:29.354] - signal: TRUE 1549s [00:52:29.354] - resignal: FALSE 1549s [00:52:29.354] - force: TRUE 1549s [00:52:29.355] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE 1549s [00:52:29.355] - queued futures: [n=4] TRUE, FALSE, FALSE, FALSE 1549s [00:52:29.355] - until=2 1549s [00:52:29.355] - relaying element #2 1549s [00:52:29.355] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE 1549s [00:52:29.355] - queued futures: [n=4] TRUE, TRUE, FALSE, FALSE 1549s [00:52:29.356] signalConditionsASAP(SequentialFuture, pos=2) ... done 1549s [00:52:29.356] length: 2 (resolved future 2) 1549s [00:52:29.356] resolved() for ‘SequentialFuture’ ... 1549s [00:52:29.356] - state: ‘finished’ 1549s [00:52:29.356] - run: TRUE 1549s [00:52:29.356] - result: ‘FutureResult’ 1549s [00:52:29.356] resolved() for ‘SequentialFuture’ ... done 1549s [00:52:29.357] Future #3 1549s [00:52:29.357] signalConditionsASAP(SequentialFuture, pos=3) ... 1549s [00:52:29.357] - nx: 4 1549s [00:52:29.357] - relay: TRUE 1549s [00:52:29.357] - stdout: TRUE 1549s [00:52:29.357] - signal: TRUE 1549s [00:52:29.357] - resignal: FALSE 1549s [00:52:29.358] - force: TRUE 1549s [00:52:29.358] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE 1549s [00:52:29.358] - queued futures: [n=4] TRUE, TRUE, FALSE, FALSE 1549s [00:52:29.358] - until=3 1549s [00:52:29.358] - relaying element #3 1549s [00:52:29.358] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE 1549s [00:52:29.358] - queued futures: [n=4] TRUE, TRUE, TRUE, FALSE 1549s [00:52:29.359] signalConditionsASAP(SequentialFuture, pos=3) ... done 1549s [00:52:29.359] length: 1 (resolved future 3) 1549s [00:52:29.359] resolved() for ‘SequentialFuture’ ... 1549s [00:52:29.359] - state: ‘finished’ 1549s [00:52:29.359] - run: TRUE 1549s [00:52:29.359] - result: ‘FutureResult’ 1549s [00:52:29.360] resolved() for ‘SequentialFuture’ ... done 1549s [00:52:29.360] Future #4 1549s [00:52:29.360] signalConditionsASAP(SequentialFuture, pos=4) ... 1549s [00:52:29.361] - nx: 4 1549s [00:52:29.361] - relay: TRUE 1549s [00:52:29.361] - stdout: TRUE 1549s [00:52:29.361] - signal: TRUE 1549s [00:52:29.361] - resignal: FALSE 1549s [00:52:29.361] - force: TRUE 1549s [00:52:29.362] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE 1549s [00:52:29.362] - queued futures: [n=4] TRUE, TRUE, TRUE, FALSE 1549s [00:52:29.362] - until=4 1549s [00:52:29.362] - relaying element #4 1549s [00:52:29.362] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE 1549s [00:52:29.362] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE 1549s [00:52:29.363] signalConditionsASAP(SequentialFuture, pos=4) ... done 1549s [00:52:29.363] length: 0 (resolved future 4) 1549s [00:52:29.363] Relaying remaining futures 1549s [00:52:29.363] signalConditionsASAP(NULL, pos=0) ... 1549s [00:52:29.363] - nx: 4 1549s [00:52:29.363] - relay: TRUE 1549s [00:52:29.364] - stdout: TRUE 1549s [00:52:29.364] - signal: TRUE 1549s [00:52:29.364] - resignal: FALSE 1549s [00:52:29.364] - force: TRUE 1549s [00:52:29.364] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE 1549s [00:52:29.364] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE 1549s - flush all 1549s [00:52:29.365] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE 1549s [00:52:29.365] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE 1549s [00:52:29.365] signalConditionsASAP(NULL, pos=0) ... done 1549s [00:52:29.365] resolve() on list ... DONE 1549s [00:52:29.366] - Number of value chunks collected: 4 1549s List of 1 1549s $ y:[00:52:29.366] Resolving 4 futures (chunks) ... DONE 1549s [00:52:29.366] Reducing values from 4 chunks ... 1549s [00:52:29.366] - Number of values collected after concatenation: 4 1549s [00:52:29.366] - Number of values expected: 4 1549s [00:52:29.366] Reducing values from 4 chunks ... DONE 1549s [00:52:29.366] future_lapply() ... DONE 1549s List of 4 1549s ..$ a: int [1:2] 0 0 1549s ..$ b: num [1:2] 0 0 1549s ..$ c: chr [1:2] "" "" 1549s ..$ c:List of 2 1549s .. ..$ : NULL 1549s .. ..$ : NULL 1549s - future_lapply(x, FUN = future:::hpaste, ...) ... 1549s [00:52:29.370] future_lapply() ... 1549s [00:52:29.384] Number of chunks: 1 1549s [00:52:29.384] getGlobalsAndPackagesXApply() ... 1549s [00:52:29.384] - future.globals: TRUE 1549s [00:52:29.384] getGlobalsAndPackages() ... 1549s [00:52:29.384] Searching for globals... 1549s [00:52:29.395] - globals found: [22] ‘FUN’, ‘if’, ‘missing’, ‘is.finite’, ‘{’, ‘is.null’, ‘<-’, ‘paste’, ‘length’, ‘==’, ‘return’, ‘>’, ‘+’, ‘[’, ‘seq_len’, ‘rev’, ‘c’, ‘&&’, ‘!’, ‘:’, ‘(’, ‘-’ 1549s [00:52:29.395] Searching for globals ... DONE 1549s [00:52:29.395] Resolving globals: FALSE 1549s [00:52:29.396] The total size of the 1 globals is 69.62 KiB (71288 bytes) 1549s [00:52:29.397] The total size of the 1 globals exported for future expression (‘FUN(collapse = "; ", maxHead = 3L)’) is 69.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (69.62 KiB of class ‘function’) 1549s [00:52:29.397] - globals: [1] ‘FUN’ 1549s [00:52:29.398] - packages: [1] ‘future’ 1549s [00:52:29.398] getGlobalsAndPackages() ... DONE 1549s [00:52:29.398] - globals found/used: [n=1] ‘FUN’ 1549s [00:52:29.398] - needed namespaces: [n=1] ‘future’ 1549s [00:52:29.398] Finding globals ... DONE 1549s [00:52:29.398] - use_args: TRUE 1549s [00:52:29.398] - Getting '...' globals ... 1549s [00:52:29.399] resolve() on list ... 1549s [00:52:29.399] recursive: 0 1549s [00:52:29.399] length: 1 1549s [00:52:29.399] elements: ‘...’ 1549s [00:52:29.400] length: 0 (resolved future 1) 1549s [00:52:29.400] resolve() on list ... DONE 1549s [00:52:29.400] - '...' content: [n=2] ‘collapse’, ‘maxHead’ 1549s [00:52:29.400] List of 1 1549s [00:52:29.400] $ ...:List of 2 1549s [00:52:29.400] ..$ collapse: chr "; " 1549s [00:52:29.400] ..$ maxHead : int 3 1549s [00:52:29.400] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1549s [00:52:29.400] - attr(*, "where")=List of 1 1549s [00:52:29.400] ..$ ...: 1549s [00:52:29.400] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1549s [00:52:29.400] - attr(*, "resolved")= logi TRUE 1549s [00:52:29.400] - attr(*, "total_size")= num NA 1549s [00:52:29.406] - Getting '...' globals ... DONE 1549s [00:52:29.407] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1549s [00:52:29.407] List of 2 1549s [00:52:29.407] $ ...future.FUN:function (..., sep = "", collapse = ", ", lastCollapse = NULL, maxHead = if (missing(lastCollapse)) 3 else Inf, 1549s [00:52:29.407] maxTail = if (is.finite(maxHead)) 1 else Inf, abbreviate = "...") 1549s [00:52:29.407] $ ... :List of 2 1549s [00:52:29.407] ..$ collapse: chr "; " 1549s [00:52:29.407] ..$ maxHead : int 3 1549s [00:52:29.407] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1549s [00:52:29.407] - attr(*, "where")=List of 2 1549s [00:52:29.407] ..$ ...future.FUN: 1549s [00:52:29.407] ..$ ... : 1549s [00:52:29.407] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1549s [00:52:29.407] - attr(*, "resolved")= logi FALSE 1549s [00:52:29.407] - attr(*, "total_size")= num 71456 1549s [00:52:29.412] Packages to be attached in all futures: [n=1] ‘future’ 1549s [00:52:29.412] getGlobalsAndPackagesXApply() ... DONE 1549s [00:52:29.412] Number of futures (= number of chunks): 1 1549s [00:52:29.413] Launching 1 futures (chunks) ... 1549s [00:52:29.413] Chunk #1 of 1 ... 1549s [00:52:29.413] - Finding globals in 'X' for chunk #1 ... 1549s [00:52:29.413] getGlobalsAndPackages() ... 1549s [00:52:29.413] Searching for globals... 1549s [00:52:29.414] 1549s [00:52:29.414] Searching for globals ... DONE 1549s [00:52:29.414] - globals: [0] 1549s [00:52:29.414] getGlobalsAndPackages() ... DONE 1549s [00:52:29.414] + additional globals found: [n=0] 1549s [00:52:29.415] + additional namespaces needed: [n=0] 1549s [00:52:29.415] - Finding globals in 'X' for chunk #1 ... DONE 1549s [00:52:29.415] - seeds: 1549s [00:52:29.415] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.415] getGlobalsAndPackages() ... 1549s [00:52:29.415] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.415] Resolving globals: FALSE 1549s [00:52:29.415] Tweak future expression to call with '...' arguments ... 1549s [00:52:29.416] { 1549s [00:52:29.416] do.call(function(...) { 1549s [00:52:29.416] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.416] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1549s [00:52:29.416] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.416] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.416] } 1549s [00:52:29.416] { 1549s [00:52:29.416] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1549s [00:52:29.416] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.416] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.416] }) 1549s [00:52:29.416] } 1549s [00:52:29.416] }, args = future.call.arguments) 1549s [00:52:29.416] } 1549s [00:52:29.416] Tweak future expression to call with '...' arguments ... DONE 1549s [00:52:29.416] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.417] - packages: [1] ‘future’ 1549s [00:52:29.417] getGlobalsAndPackages() ... DONE 1549s [00:52:29.417] run() for ‘Future’ ... 1549s [00:52:29.417] - state: ‘created’ 1549s [00:52:29.417] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1549s [00:52:29.418] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1549s [00:52:29.418] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1549s [00:52:29.418] - Field: ‘label’ 1549s [00:52:29.418] - Field: ‘local’ 1549s [00:52:29.418] - Field: ‘owner’ 1549s [00:52:29.418] - Field: ‘envir’ 1549s [00:52:29.418] - Field: ‘packages’ 1549s [00:52:29.418] - Field: ‘gc’ 1549s [00:52:29.419] - Field: ‘conditions’ 1549s [00:52:29.419] - Field: ‘expr’ 1549s [00:52:29.419] - Field: ‘uuid’ 1549s [00:52:29.419] - Field: ‘seed’ 1549s [00:52:29.419] - Field: ‘version’ 1549s [00:52:29.419] - Field: ‘result’ 1549s [00:52:29.419] - Field: ‘asynchronous’ 1549s [00:52:29.419] - Field: ‘calls’ 1549s [00:52:29.420] - Field: ‘globals’ 1549s [00:52:29.420] - Field: ‘stdout’ 1549s [00:52:29.420] - Field: ‘earlySignal’ 1549s [00:52:29.420] - Field: ‘lazy’ 1549s [00:52:29.420] - Field: ‘state’ 1549s [00:52:29.420] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1549s [00:52:29.420] - Launch lazy future ... 1549s [00:52:29.421] Packages needed by the future expression (n = 1): ‘future’ 1549s [00:52:29.421] Packages needed by future strategies (n = 0): 1549s [00:52:29.422] { 1549s [00:52:29.422] { 1549s [00:52:29.422] { 1549s [00:52:29.422] ...future.startTime <- base::Sys.time() 1549s [00:52:29.422] { 1549s [00:52:29.422] { 1549s [00:52:29.422] { 1549s [00:52:29.422] { 1549s [00:52:29.422] base::local({ 1549s [00:52:29.422] has_future <- base::requireNamespace("future", 1549s [00:52:29.422] quietly = TRUE) 1549s [00:52:29.422] if (has_future) { 1549s [00:52:29.422] ns <- base::getNamespace("future") 1549s [00:52:29.422] version <- ns[[".package"]][["version"]] 1549s [00:52:29.422] if (is.null(version)) 1549s [00:52:29.422] version <- utils::packageVersion("future") 1549s [00:52:29.422] } 1549s [00:52:29.422] else { 1549s [00:52:29.422] version <- NULL 1549s [00:52:29.422] } 1549s [00:52:29.422] if (!has_future || version < "1.8.0") { 1549s [00:52:29.422] info <- base::c(r_version = base::gsub("R version ", 1549s [00:52:29.422] "", base::R.version$version.string), 1549s [00:52:29.422] platform = base::sprintf("%s (%s-bit)", 1549s [00:52:29.422] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1549s [00:52:29.422] os = base::paste(base::Sys.info()[base::c("sysname", 1549s [00:52:29.422] "release", "version")], collapse = " "), 1549s [00:52:29.422] hostname = base::Sys.info()[["nodename"]]) 1549s [00:52:29.422] info <- base::sprintf("%s: %s", base::names(info), 1549s [00:52:29.422] info) 1549s [00:52:29.422] info <- base::paste(info, collapse = "; ") 1549s [00:52:29.422] if (!has_future) { 1549s [00:52:29.422] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1549s [00:52:29.422] info) 1549s [00:52:29.422] } 1549s [00:52:29.422] else { 1549s [00:52:29.422] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1549s [00:52:29.422] info, version) 1549s [00:52:29.422] } 1549s [00:52:29.422] base::stop(msg) 1549s [00:52:29.422] } 1549s [00:52:29.422] }) 1549s [00:52:29.422] } 1549s [00:52:29.422] base::local({ 1549s [00:52:29.422] for (pkg in "future") { 1549s [00:52:29.422] base::loadNamespace(pkg) 1549s [00:52:29.422] base::library(pkg, character.only = TRUE) 1549s [00:52:29.422] } 1549s [00:52:29.422] }) 1549s [00:52:29.422] } 1549s [00:52:29.422] options(future.plan = NULL) 1549s [00:52:29.422] Sys.unsetenv("R_FUTURE_PLAN") 1549s [00:52:29.422] future::plan("default", .cleanup = FALSE, .init = FALSE) 1549s [00:52:29.422] } 1549s [00:52:29.422] ...future.workdir <- getwd() 1549s [00:52:29.422] } 1549s [00:52:29.422] ...future.oldOptions <- base::as.list(base::.Options) 1549s [00:52:29.422] ...future.oldEnvVars <- base::Sys.getenv() 1549s [00:52:29.422] } 1549s [00:52:29.422] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1549s [00:52:29.422] future.globals.maxSize = NULL, future.globals.method = NULL, 1549s [00:52:29.422] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1549s [00:52:29.422] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1549s [00:52:29.422] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1549s [00:52:29.422] future.stdout.windows.reencode = NULL, width = 80L) 1549s [00:52:29.422] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1549s [00:52:29.422] base::names(...future.oldOptions)) 1549s [00:52:29.422] } 1549s [00:52:29.422] if (FALSE) { 1549s [00:52:29.422] } 1549s [00:52:29.422] else { 1549s [00:52:29.422] if (TRUE) { 1549s [00:52:29.422] ...future.stdout <- base::rawConnection(base::raw(0L), 1549s [00:52:29.422] open = "w") 1549s [00:52:29.422] } 1549s [00:52:29.422] else { 1549s [00:52:29.422] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1549s [00:52:29.422] windows = "NUL", "/dev/null"), open = "w") 1549s [00:52:29.422] } 1549s [00:52:29.422] base::sink(...future.stdout, type = "output", split = FALSE) 1549s [00:52:29.422] base::on.exit(if (!base::is.null(...future.stdout)) { 1549s [00:52:29.422] base::sink(type = "output", split = FALSE) 1549s [00:52:29.422] base::close(...future.stdout) 1549s [00:52:29.422] }, add = TRUE) 1549s [00:52:29.422] } 1549s [00:52:29.422] ...future.frame <- base::sys.nframe() 1549s [00:52:29.422] ...future.conditions <- base::list() 1549s [00:52:29.422] ...future.rng <- base::globalenv()$.Random.seed 1549s [00:52:29.422] if (FALSE) { 1549s [00:52:29.422] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1549s [00:52:29.422] "...future.value", "...future.globalenv.names", ".Random.seed") 1549s [00:52:29.422] } 1549s [00:52:29.422] ...future.result <- base::tryCatch({ 1549s [00:52:29.422] base::withCallingHandlers({ 1549s [00:52:29.422] ...future.value <- base::withVisible(base::local({ 1549s [00:52:29.422] do.call(function(...) { 1549s [00:52:29.422] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.422] if (!identical(...future.globals.maxSize.org, 1549s [00:52:29.422] ...future.globals.maxSize)) { 1549s [00:52:29.422] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.422] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.422] } 1549s [00:52:29.422] { 1549s [00:52:29.422] lapply(seq_along(...future.elements_ii), 1549s [00:52:29.422] FUN = function(jj) { 1549s [00:52:29.422] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.422] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.422] }) 1549s [00:52:29.422] } 1549s [00:52:29.422] }, args = future.call.arguments) 1549s [00:52:29.422] })) 1549s [00:52:29.422] future::FutureResult(value = ...future.value$value, 1549s [00:52:29.422] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1549s [00:52:29.422] ...future.rng), globalenv = if (FALSE) 1549s [00:52:29.422] list(added = base::setdiff(base::names(base::.GlobalEnv), 1549s [00:52:29.422] ...future.globalenv.names)) 1549s [00:52:29.422] else NULL, started = ...future.startTime, version = "1.8") 1549s [00:52:29.422] }, condition = base::local({ 1549s [00:52:29.422] c <- base::c 1549s [00:52:29.422] inherits <- base::inherits 1549s [00:52:29.422] invokeRestart <- base::invokeRestart 1549s [00:52:29.422] length <- base::length 1549s [00:52:29.422] list <- base::list 1549s [00:52:29.422] seq.int <- base::seq.int 1549s [00:52:29.422] signalCondition <- base::signalCondition 1549s [00:52:29.422] sys.calls <- base::sys.calls 1549s [00:52:29.422] `[[` <- base::`[[` 1549s [00:52:29.422] `+` <- base::`+` 1549s [00:52:29.422] `<<-` <- base::`<<-` 1549s [00:52:29.422] sysCalls <- function(calls = sys.calls(), from = 1L) { 1549s [00:52:29.422] calls[seq.int(from = from + 12L, to = length(calls) - 1549s [00:52:29.422] 3L)] 1549s [00:52:29.422] } 1549s [00:52:29.422] function(cond) { 1549s [00:52:29.422] is_error <- inherits(cond, "error") 1549s [00:52:29.422] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1549s [00:52:29.422] NULL) 1549s [00:52:29.422] if (is_error) { 1549s [00:52:29.422] sessionInformation <- function() { 1549s [00:52:29.422] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1549s [00:52:29.422] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1549s [00:52:29.422] search = base::search(), system = base::Sys.info()) 1549s [00:52:29.422] } 1549s [00:52:29.422] ...future.conditions[[length(...future.conditions) + 1549s [00:52:29.422] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1549s [00:52:29.422] cond$call), session = sessionInformation(), 1549s [00:52:29.422] timestamp = base::Sys.time(), signaled = 0L) 1549s [00:52:29.422] signalCondition(cond) 1549s [00:52:29.422] } 1549s [00:52:29.422] else if (!ignore && TRUE && inherits(cond, c("condition", 1549s [00:52:29.422] "immediateCondition"))) { 1549s [00:52:29.422] signal <- TRUE && inherits(cond, "immediateCondition") 1549s [00:52:29.422] ...future.conditions[[length(...future.conditions) + 1549s [00:52:29.422] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1549s [00:52:29.422] if (TRUE && !signal) { 1549s [00:52:29.422] muffleCondition <- function (cond, pattern = "^muffle") 1549s [00:52:29.422] { 1549s [00:52:29.422] inherits <- base::inherits 1549s [00:52:29.422] invokeRestart <- base::invokeRestart 1549s [00:52:29.422] is.null <- base::is.null 1549s [00:52:29.422] muffled <- FALSE 1549s [00:52:29.422] if (inherits(cond, "message")) { 1549s [00:52:29.422] muffled <- grepl(pattern, "muffleMessage") 1549s [00:52:29.422] if (muffled) 1549s [00:52:29.422] invokeRestart("muffleMessage") 1549s [00:52:29.422] } 1549s [00:52:29.422] else if (inherits(cond, "warning")) { 1549s [00:52:29.422] muffled <- grepl(pattern, "muffleWarning") 1549s [00:52:29.422] if (muffled) 1549s [00:52:29.422] invokeRestart("muffleWarning") 1549s [00:52:29.422] } 1549s [00:52:29.422] else if (inherits(cond, "condition")) { 1549s [00:52:29.422] if (!is.null(pattern)) { 1549s [00:52:29.422] computeRestarts <- base::computeRestarts 1549s [00:52:29.422] grepl <- base::grepl 1549s [00:52:29.422] restarts <- computeRestarts(cond) 1549s [00:52:29.422] for (restart in restarts) { 1549s [00:52:29.422] name <- restart$name 1549s [00:52:29.422] if (is.null(name)) 1549s [00:52:29.422] next 1549s [00:52:29.422] if (!grepl(pattern, name)) 1549s [00:52:29.422] next 1549s [00:52:29.422] invokeRestart(restart) 1549s [00:52:29.422] muffled <- TRUE 1549s [00:52:29.422] break 1549s [00:52:29.422] } 1549s [00:52:29.422] } 1549s [00:52:29.422] } 1549s [00:52:29.422] invisible(muffled) 1549s [00:52:29.422] } 1549s [00:52:29.422] muffleCondition(cond, pattern = "^muffle") 1549s [00:52:29.422] } 1549s [00:52:29.422] } 1549s [00:52:29.422] else { 1549s [00:52:29.422] if (TRUE) { 1549s [00:52:29.422] muffleCondition <- function (cond, pattern = "^muffle") 1549s [00:52:29.422] { 1549s [00:52:29.422] inherits <- base::inherits 1549s [00:52:29.422] invokeRestart <- base::invokeRestart 1549s [00:52:29.422] is.null <- base::is.null 1549s [00:52:29.422] muffled <- FALSE 1549s [00:52:29.422] if (inherits(cond, "message")) { 1549s [00:52:29.422] muffled <- grepl(pattern, "muffleMessage") 1549s [00:52:29.422] if (muffled) 1549s [00:52:29.422] invokeRestart("muffleMessage") 1549s [00:52:29.422] } 1549s [00:52:29.422] else if (inherits(cond, "warning")) { 1549s [00:52:29.422] muffled <- grepl(pattern, "muffleWarning") 1549s [00:52:29.422] if (muffled) 1549s [00:52:29.422] invokeRestart("muffleWarning") 1549s [00:52:29.422] } 1549s [00:52:29.422] else if (inherits(cond, "condition")) { 1549s [00:52:29.422] if (!is.null(pattern)) { 1549s [00:52:29.422] computeRestarts <- base::computeRestarts 1549s [00:52:29.422] grepl <- base::grepl 1549s [00:52:29.422] restarts <- computeRestarts(cond) 1549s [00:52:29.422] for (restart in restarts) { 1549s [00:52:29.422] name <- restart$name 1549s [00:52:29.422] if (is.null(name)) 1549s [00:52:29.422] next 1549s [00:52:29.422] if (!grepl(pattern, name)) 1549s [00:52:29.422] next 1549s [00:52:29.422] invokeRestart(restart) 1549s [00:52:29.422] muffled <- TRUE 1549s [00:52:29.422] break 1549s [00:52:29.422] } 1549s [00:52:29.422] } 1549s [00:52:29.422] } 1549s [00:52:29.422] invisible(muffled) 1549s [00:52:29.422] } 1549s [00:52:29.422] muffleCondition(cond, pattern = "^muffle") 1549s [00:52:29.422] } 1549s [00:52:29.422] } 1549s [00:52:29.422] } 1549s [00:52:29.422] })) 1549s [00:52:29.422] }, error = function(ex) { 1549s [00:52:29.422] base::structure(base::list(value = NULL, visible = NULL, 1549s [00:52:29.422] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1549s [00:52:29.422] ...future.rng), started = ...future.startTime, 1549s [00:52:29.422] finished = Sys.time(), session_uuid = NA_character_, 1549s [00:52:29.422] version = "1.8"), class = "FutureResult") 1549s [00:52:29.422] }, finally = { 1549s [00:52:29.422] if (!identical(...future.workdir, getwd())) 1549s [00:52:29.422] setwd(...future.workdir) 1549s [00:52:29.422] { 1549s [00:52:29.422] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1549s [00:52:29.422] ...future.oldOptions$nwarnings <- NULL 1549s [00:52:29.422] } 1549s [00:52:29.422] base::options(...future.oldOptions) 1549s [00:52:29.422] if (.Platform$OS.type == "windows") { 1549s [00:52:29.422] old_names <- names(...future.oldEnvVars) 1549s [00:52:29.422] envs <- base::Sys.getenv() 1549s [00:52:29.422] names <- names(envs) 1549s [00:52:29.422] common <- intersect(names, old_names) 1549s [00:52:29.422] added <- setdiff(names, old_names) 1549s [00:52:29.422] removed <- setdiff(old_names, names) 1549s [00:52:29.422] changed <- common[...future.oldEnvVars[common] != 1549s [00:52:29.422] envs[common]] 1549s [00:52:29.422] NAMES <- toupper(changed) 1549s [00:52:29.422] args <- list() 1549s [00:52:29.422] for (kk in seq_along(NAMES)) { 1549s [00:52:29.422] name <- changed[[kk]] 1549s [00:52:29.422] NAME <- NAMES[[kk]] 1549s [00:52:29.422] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.422] next 1549s [00:52:29.422] args[[name]] <- ...future.oldEnvVars[[name]] 1549s [00:52:29.422] } 1549s [00:52:29.422] NAMES <- toupper(added) 1549s [00:52:29.422] for (kk in seq_along(NAMES)) { 1549s [00:52:29.422] name <- added[[kk]] 1549s [00:52:29.422] NAME <- NAMES[[kk]] 1549s [00:52:29.422] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.422] next 1549s [00:52:29.422] args[[name]] <- "" 1549s [00:52:29.422] } 1549s [00:52:29.422] NAMES <- toupper(removed) 1549s [00:52:29.422] for (kk in seq_along(NAMES)) { 1549s [00:52:29.422] name <- removed[[kk]] 1549s [00:52:29.422] NAME <- NAMES[[kk]] 1549s [00:52:29.422] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.422] next 1549s [00:52:29.422] args[[name]] <- ...future.oldEnvVars[[name]] 1549s [00:52:29.422] } 1549s [00:52:29.422] if (length(args) > 0) 1549s [00:52:29.422] base::do.call(base::Sys.setenv, args = args) 1549s [00:52:29.422] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1549s [00:52:29.422] } 1549s [00:52:29.422] else { 1549s [00:52:29.422] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1549s [00:52:29.422] } 1549s [00:52:29.422] { 1549s [00:52:29.422] if (base::length(...future.futureOptionsAdded) > 1549s [00:52:29.422] 0L) { 1549s [00:52:29.422] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1549s [00:52:29.422] base::names(opts) <- ...future.futureOptionsAdded 1549s [00:52:29.422] base::options(opts) 1549s [00:52:29.422] } 1549s [00:52:29.422] { 1549s [00:52:29.422] { 1549s [00:52:29.422] NULL 1549s [00:52:29.422] RNGkind("Mersenne-Twister") 1549s [00:52:29.422] base::rm(list = ".Random.seed", envir = base::globalenv(), 1549s [00:52:29.422] inherits = FALSE) 1549s [00:52:29.422] } 1549s [00:52:29.422] options(future.plan = NULL) 1549s [00:52:29.422] if (is.na(NA_character_)) 1549s [00:52:29.422] Sys.unsetenv("R_FUTURE_PLAN") 1549s [00:52:29.422] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1549s [00:52:29.422] future::plan(list(function (..., envir = parent.frame()) 1549s [00:52:29.422] { 1549s [00:52:29.422] future <- SequentialFuture(..., envir = envir) 1549s [00:52:29.422] if (!future$lazy) 1549s [00:52:29.422] future <- run(future) 1549s [00:52:29.422] invisible(future) 1549s [00:52:29.422] }), .cleanup = FALSE, .init = FALSE) 1549s [00:52:29.422] } 1549s [00:52:29.422] } 1549s [00:52:29.422] } 1549s [00:52:29.422] }) 1549s [00:52:29.422] if (TRUE) { 1549s [00:52:29.422] base::sink(type = "output", split = FALSE) 1549s [00:52:29.422] if (TRUE) { 1549s [00:52:29.422] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1549s [00:52:29.422] } 1549s [00:52:29.422] else { 1549s [00:52:29.422] ...future.result["stdout"] <- base::list(NULL) 1549s [00:52:29.422] } 1549s [00:52:29.422] base::close(...future.stdout) 1549s [00:52:29.422] ...future.stdout <- NULL 1549s [00:52:29.422] } 1549s [00:52:29.422] ...future.result$conditions <- ...future.conditions 1549s [00:52:29.422] ...future.result$finished <- base::Sys.time() 1549s [00:52:29.422] ...future.result 1549s [00:52:29.422] } 1549s [00:52:29.428] assign_globals() ... 1549s [00:52:29.428] List of 5 1549s [00:52:29.428] $ ...future.FUN :function (..., sep = "", collapse = ", ", lastCollapse = NULL, maxHead = if (missing(lastCollapse)) 3 else Inf, 1549s [00:52:29.428] maxTail = if (is.finite(maxHead)) 1 else Inf, abbreviate = "...") 1549s [00:52:29.428] $ future.call.arguments :List of 2 1549s [00:52:29.428] ..$ collapse: chr "; " 1549s [00:52:29.428] ..$ maxHead : int 3 1549s [00:52:29.428] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1549s [00:52:29.428] $ ...future.elements_ii :List of 1 1549s [00:52:29.428] ..$ a: Named chr [1:101] "hello" "1" "2" "3" ... 1549s [00:52:29.428] .. ..- attr(*, "names")= chr [1:101] "" "b1" "b2" "b3" ... 1549s [00:52:29.428] $ ...future.seeds_ii : NULL 1549s [00:52:29.428] $ ...future.globals.maxSize: NULL 1549s [00:52:29.428] - attr(*, "where")=List of 5 1549s [00:52:29.428] ..$ ...future.FUN : 1549s [00:52:29.428] ..$ future.call.arguments : 1549s [00:52:29.428] ..$ ...future.elements_ii : 1549s [00:52:29.428] ..$ ...future.seeds_ii : 1549s [00:52:29.428] ..$ ...future.globals.maxSize: 1549s [00:52:29.428] - attr(*, "resolved")= logi FALSE 1549s [00:52:29.428] - attr(*, "total_size")= num 71456 1549s [00:52:29.428] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1549s [00:52:29.428] - attr(*, "already-done")= logi TRUE 1549s [00:52:29.436] - copied ‘...future.FUN’ to environment 1549s [00:52:29.436] - copied ‘future.call.arguments’ to environment 1549s [00:52:29.436] - copied ‘...future.elements_ii’ to environment 1549s [00:52:29.436] - copied ‘...future.seeds_ii’ to environment 1549s [00:52:29.436] - copied ‘...future.globals.maxSize’ to environment 1549s [00:52:29.437] assign_globals() ... done 1549s [00:52:29.440] plan(): Setting new future strategy stack: 1549s [00:52:29.440] List of future strategies: 1549s [00:52:29.440] 1. sequential: 1549s [00:52:29.440] - args: function (..., envir = parent.frame()) 1549s [00:52:29.440] - tweaked: FALSE 1549s [00:52:29.440] - call: NULL 1549s [00:52:29.441] plan(): nbrOfWorkers() = 1 1549s [00:52:29.441] plan(): Setting new future strategy stack: 1549s [00:52:29.442] List of future strategies: 1549s [00:52:29.442] 1. sequential: 1549s [00:52:29.442] - args: function (..., envir = parent.frame()) 1549s [00:52:29.442] - tweaked: FALSE 1549s [00:52:29.442] - call: plan(strategy) 1549s [00:52:29.442] plan(): nbrOfWorkers() = 1 1549s [00:52:29.442] SequentialFuture started (and completed) 1549s [00:52:29.443] - Launch lazy future ... done 1549s [00:52:29.443] run() for ‘SequentialFuture’ ... done 1549s [00:52:29.443] Created future: 1549s [00:52:29.443] SequentialFuture: 1549s [00:52:29.443] Label: ‘future_lapply-1’ 1549s [00:52:29.443] Expression: 1549s [00:52:29.443] { 1549s [00:52:29.443] do.call(function(...) { 1549s [00:52:29.443] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.443] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1549s [00:52:29.443] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.443] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.443] } 1549s [00:52:29.443] { 1549s [00:52:29.443] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1549s [00:52:29.443] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.443] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.443] }) 1549s [00:52:29.443] } 1549s [00:52:29.443] }, args = future.call.arguments) 1549s [00:52:29.443] } 1549s [00:52:29.443] Lazy evaluation: FALSE 1549s [00:52:29.443] Asynchronous evaluation: FALSE 1549s [00:52:29.443] Local evaluation: TRUE 1549s [00:52:29.443] Environment: R_GlobalEnv 1549s [00:52:29.443] Capture standard output: TRUE 1549s [00:52:29.443] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1549s [00:52:29.443] Globals: 5 objects totaling 82.61 KiB (function ‘...future.FUN’ of 69.62 KiB, DotDotDotList ‘future.call.arguments’ of 168 bytes, list ‘...future.elements_ii’ of 12.83 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1549s [00:52:29.443] Packages: 1 packages (‘future’) 1549s [00:52:29.443] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1549s [00:52:29.443] Resolved: TRUE 1549s [00:52:29.443] Value: 136 bytes of class ‘list’ 1549s [00:52:29.443] Early signaling: FALSE 1549s [00:52:29.443] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1549s [00:52:29.443] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1549s [00:52:29.445] Chunk #1 of 1 ... DONE 1549s [00:52:29.445] Launching 1 futures (chunks) ... DONE 1549s [00:52:29.445] Resolving 1 futures (chunks) ... 1549s [00:52:29.445] resolve() on list ... 1549s [00:52:29.445] recursive: 0 1549s [00:52:29.445] length: 1 1549s [00:52:29.446] 1549s [00:52:29.446] resolved() for ‘SequentialFuture’ ... 1549s [00:52:29.446] - state: ‘finished’ 1549s [00:52:29.446] - run: TRUE 1549s [00:52:29.446] - result: ‘FutureResult’ 1549s [00:52:29.446] resolved() for ‘SequentialFuture’ ... done 1549s [00:52:29.446] Future #1 1549s [00:52:29.447] signalConditionsASAP(SequentialFuture, pos=1) ... 1549s [00:52:29.447] - nx: 1 1549s [00:52:29.447] - relay: TRUE 1549s [00:52:29.447] - stdout: TRUE 1549s [00:52:29.447] - signal: TRUE 1549s [00:52:29.447] - resignal: FALSE 1549s [00:52:29.447] - force: TRUE 1549s [00:52:29.447] - relayed: [n=1] FALSE 1549s [00:52:29.447] - queued futures: [n=1] FALSE 1549s [00:52:29.448] - until=1 1549s [00:52:29.448] - relaying element #1 1549s [00:52:29.448] - relayed: [n=1] TRUE 1549s [00:52:29.448] - queued futures: [n=1] TRUE 1549s [00:52:29.448] signalConditionsASAP(SequentialFuture, pos=1) ... done 1549s [00:52:29.448] length: 0 (resolved future 1) 1549s [00:52:29.448] Relaying remaining futures 1549s [00:52:29.448] signalConditionsASAP(NULL, pos=0) ... 1549s [00:52:29.449] - nx: 1 1549s [00:52:29.449] - relay: TRUE 1549s [00:52:29.449] - stdout: TRUE 1549s [00:52:29.449] - signal: TRUE 1549s [00:52:29.449] - resignal: FALSE 1549s [00:52:29.449] - force: TRUE 1549s [00:52:29.449] - relayed: [n=1] TRUE 1549s [00:52:29.449] - queued futures: [n=1] TRUE 1549s - flush all 1549s [00:52:29.449] - relayed: [n=1] TRUE 1549s [00:52:29.449] - queued futures: [n=1] TRUE 1549s [00:52:29.450] signalConditionsASAP(NULL, pos=0) ... done 1549s [00:52:29.450] resolve() on list ... DONE 1549s [00:52:29.450] - Number of value chunks collected: 1 1549s [00:52:29.450] Resolving 1 futures (chunks) ... DONE 1549s [00:52:29.451] Reducing values from 1 chunks ... 1549s [00:52:29.451] - Number of values collected after concatenation: 1 1549s [00:52:29.451] - Number of values expected: 1 1549s [00:52:29.452] Reducing values from 1 chunks ... DONE 1549s [00:52:29.452] future_lapply() ... DONE 1549s List of 1 1549s $ y:List of 1 1549s ..$ a: chr "hello; 1; 2; ...; 100" 1549s - future_lapply(x, FUN = listenv::listenv, ...) ... 1549s [00:52:29.453] future_lapply() ... 1549s [00:52:29.455] Number of chunks: 2 1549s [00:52:29.455] getGlobalsAndPackagesXApply() ... 1549s [00:52:29.456] - future.globals: TRUE 1549s [00:52:29.456] getGlobalsAndPackages() ... 1549s [00:52:29.456] Searching for globals... 1549s [00:52:29.458] - globals found: [4] ‘FUN’, ‘{’, ‘get’, ‘parent.env’ 1549s [00:52:29.458] Searching for globals ... DONE 1549s [00:52:29.458] Resolving globals: FALSE 1549s [00:52:29.459] The total size of the 1 globals is 4.85 KiB (4968 bytes) 1549s [00:52:29.459] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.85 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.85 KiB of class ‘function’) 1549s [00:52:29.460] - globals: [1] ‘FUN’ 1549s [00:52:29.460] - packages: [1] ‘listenv’ 1549s [00:52:29.460] getGlobalsAndPackages() ... DONE 1549s [00:52:29.460] - globals found/used: [n=1] ‘FUN’ 1549s [00:52:29.460] - needed namespaces: [n=1] ‘listenv’ 1549s [00:52:29.460] Finding globals ... DONE 1549s [00:52:29.461] - use_args: TRUE 1549s [00:52:29.461] - Getting '...' globals ... 1549s [00:52:29.461] resolve() on list ... 1549s [00:52:29.461] recursive: 0 1549s [00:52:29.461] length: 1 1549s [00:52:29.461] elements: ‘...’ 1549s [00:52:29.462] length: 0 (resolved future 1) 1549s [00:52:29.462] resolve() on list ... DONE 1549s [00:52:29.462] - '...' content: [n=0] 1549s [00:52:29.462] List of 1 1549s [00:52:29.462] $ ...: list() 1549s [00:52:29.462] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1549s [00:52:29.462] - attr(*, "where")=List of 1 1549s [00:52:29.462] ..$ ...: 1549s [00:52:29.462] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1549s [00:52:29.462] - attr(*, "resolved")= logi TRUE 1549s [00:52:29.462] - attr(*, "total_size")= num NA 1549s [00:52:29.466] - Getting '...' globals ... DONE 1549s [00:52:29.466] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1549s [00:52:29.466] List of 2 1549s [00:52:29.466] $ ...future.FUN:function (x, ...) 1549s [00:52:29.466] $ ... : list() 1549s [00:52:29.466] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1549s [00:52:29.466] - attr(*, "where")=List of 2 1549s [00:52:29.466] ..$ ...future.FUN: 1549s [00:52:29.466] ..$ ... : 1549s [00:52:29.466] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1549s [00:52:29.466] - attr(*, "resolved")= logi FALSE 1549s [00:52:29.466] - attr(*, "total_size")= num 4968 1549s [00:52:29.470] Packages to be attached in all futures: [n=1] ‘listenv’ 1549s [00:52:29.471] getGlobalsAndPackagesXApply() ... DONE 1549s [00:52:29.471] Number of futures (= number of chunks): 2 1549s [00:52:29.472] Launching 2 futures (chunks) ... 1549s [00:52:29.472] Chunk #1 of 2 ... 1549s [00:52:29.472] - Finding globals in 'X' for chunk #1 ... 1549s [00:52:29.473] getGlobalsAndPackages() ... 1549s [00:52:29.475] Searching for globals... 1549s [00:52:29.475] 1549s [00:52:29.476] Searching for globals ... DONE 1549s [00:52:29.476] - globals: [0] 1549s [00:52:29.476] getGlobalsAndPackages() ... DONE 1549s [00:52:29.476] + additional globals found: [n=0] 1549s [00:52:29.476] + additional namespaces needed: [n=0] 1549s [00:52:29.477] - Finding globals in 'X' for chunk #1 ... DONE 1549s [00:52:29.477] - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes) 1549s [00:52:29.477] - seeds: 1549s [00:52:29.477] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.477] getGlobalsAndPackages() ... 1549s [00:52:29.478] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.478] Resolving globals: FALSE 1549s [00:52:29.478] Tweak future expression to call with '...' arguments ... 1549s [00:52:29.478] { 1549s [00:52:29.478] do.call(function(...) { 1549s [00:52:29.478] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.478] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1549s [00:52:29.478] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.478] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.478] } 1549s [00:52:29.478] { 1549s [00:52:29.478] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1549s [00:52:29.478] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.478] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.478] }) 1549s [00:52:29.478] } 1549s [00:52:29.478] }, args = future.call.arguments) 1549s [00:52:29.478] } 1549s [00:52:29.479] Tweak future expression to call with '...' arguments ... DONE 1549s [00:52:29.479] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.480] - packages: [1] ‘listenv’ 1549s [00:52:29.480] getGlobalsAndPackages() ... DONE 1549s [00:52:29.480] run() for ‘Future’ ... 1549s [00:52:29.481] - state: ‘created’ 1549s [00:52:29.481] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1549s [00:52:29.481] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1549s [00:52:29.481] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1549s [00:52:29.482] - Field: ‘label’ 1549s [00:52:29.482] - Field: ‘local’ 1549s [00:52:29.482] - Field: ‘owner’ 1549s [00:52:29.482] - Field: ‘envir’ 1549s [00:52:29.482] - Field: ‘packages’ 1549s [00:52:29.483] - Field: ‘gc’ 1549s [00:52:29.483] - Field: ‘conditions’ 1549s [00:52:29.483] - Field: ‘expr’ 1549s [00:52:29.483] - Field: ‘uuid’ 1549s [00:52:29.483] - Field: ‘seed’ 1549s [00:52:29.483] - Field: ‘version’ 1549s [00:52:29.484] - Field: ‘result’ 1549s [00:52:29.484] - Field: ‘asynchronous’ 1549s [00:52:29.484] - Field: ‘calls’ 1549s [00:52:29.484] - Field: ‘globals’ 1549s [00:52:29.484] - Field: ‘stdout’ 1549s [00:52:29.484] - Field: ‘earlySignal’ 1549s [00:52:29.485] - Field: ‘lazy’ 1549s [00:52:29.485] - Field: ‘state’ 1549s [00:52:29.485] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1549s [00:52:29.485] - Launch lazy future ... 1549s [00:52:29.486] Packages needed by the future expression (n = 1): ‘listenv’ 1549s [00:52:29.486] Packages needed by future strategies (n = 0): 1549s [00:52:29.487] { 1549s [00:52:29.487] { 1549s [00:52:29.487] { 1549s [00:52:29.487] ...future.startTime <- base::Sys.time() 1549s [00:52:29.487] { 1549s [00:52:29.487] { 1549s [00:52:29.487] { 1549s [00:52:29.487] { 1549s [00:52:29.487] base::local({ 1549s [00:52:29.487] has_future <- base::requireNamespace("future", 1549s [00:52:29.487] quietly = TRUE) 1549s [00:52:29.487] if (has_future) { 1549s [00:52:29.487] ns <- base::getNamespace("future") 1549s [00:52:29.487] version <- ns[[".package"]][["version"]] 1549s [00:52:29.487] if (is.null(version)) 1549s [00:52:29.487] version <- utils::packageVersion("future") 1549s [00:52:29.487] } 1549s [00:52:29.487] else { 1549s [00:52:29.487] version <- NULL 1549s [00:52:29.487] } 1549s [00:52:29.487] if (!has_future || version < "1.8.0") { 1549s [00:52:29.487] info <- base::c(r_version = base::gsub("R version ", 1549s [00:52:29.487] "", base::R.version$version.string), 1549s [00:52:29.487] platform = base::sprintf("%s (%s-bit)", 1549s [00:52:29.487] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1549s [00:52:29.487] os = base::paste(base::Sys.info()[base::c("sysname", 1549s [00:52:29.487] "release", "version")], collapse = " "), 1549s [00:52:29.487] hostname = base::Sys.info()[["nodename"]]) 1549s [00:52:29.487] info <- base::sprintf("%s: %s", base::names(info), 1549s [00:52:29.487] info) 1549s [00:52:29.487] info <- base::paste(info, collapse = "; ") 1549s [00:52:29.487] if (!has_future) { 1549s [00:52:29.487] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1549s [00:52:29.487] info) 1549s [00:52:29.487] } 1549s [00:52:29.487] else { 1549s [00:52:29.487] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1549s [00:52:29.487] info, version) 1549s [00:52:29.487] } 1549s [00:52:29.487] base::stop(msg) 1549s [00:52:29.487] } 1549s [00:52:29.487] }) 1549s [00:52:29.487] } 1549s [00:52:29.487] base::local({ 1549s [00:52:29.487] for (pkg in "listenv") { 1549s [00:52:29.487] base::loadNamespace(pkg) 1549s [00:52:29.487] base::library(pkg, character.only = TRUE) 1549s [00:52:29.487] } 1549s [00:52:29.487] }) 1549s [00:52:29.487] } 1549s [00:52:29.487] options(future.plan = NULL) 1549s [00:52:29.487] Sys.unsetenv("R_FUTURE_PLAN") 1549s [00:52:29.487] future::plan("default", .cleanup = FALSE, .init = FALSE) 1549s [00:52:29.487] } 1549s [00:52:29.487] ...future.workdir <- getwd() 1549s [00:52:29.487] } 1549s [00:52:29.487] ...future.oldOptions <- base::as.list(base::.Options) 1549s [00:52:29.487] ...future.oldEnvVars <- base::Sys.getenv() 1549s [00:52:29.487] } 1549s [00:52:29.487] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1549s [00:52:29.487] future.globals.maxSize = 1048576000, future.globals.method = NULL, 1549s [00:52:29.487] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1549s [00:52:29.487] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1549s [00:52:29.487] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1549s [00:52:29.487] future.stdout.windows.reencode = NULL, width = 80L) 1549s [00:52:29.487] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1549s [00:52:29.487] base::names(...future.oldOptions)) 1549s [00:52:29.487] } 1549s [00:52:29.487] if (FALSE) { 1549s [00:52:29.487] } 1549s [00:52:29.487] else { 1549s [00:52:29.487] if (TRUE) { 1549s [00:52:29.487] ...future.stdout <- base::rawConnection(base::raw(0L), 1549s [00:52:29.487] open = "w") 1549s [00:52:29.487] } 1549s [00:52:29.487] else { 1549s [00:52:29.487] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1549s [00:52:29.487] windows = "NUL", "/dev/null"), open = "w") 1549s [00:52:29.487] } 1549s [00:52:29.487] base::sink(...future.stdout, type = "output", split = FALSE) 1549s [00:52:29.487] base::on.exit(if (!base::is.null(...future.stdout)) { 1549s [00:52:29.487] base::sink(type = "output", split = FALSE) 1549s [00:52:29.487] base::close(...future.stdout) 1549s [00:52:29.487] }, add = TRUE) 1549s [00:52:29.487] } 1549s [00:52:29.487] ...future.frame <- base::sys.nframe() 1549s [00:52:29.487] ...future.conditions <- base::list() 1549s [00:52:29.487] ...future.rng <- base::globalenv()$.Random.seed 1549s [00:52:29.487] if (FALSE) { 1549s [00:52:29.487] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1549s [00:52:29.487] "...future.value", "...future.globalenv.names", ".Random.seed") 1549s [00:52:29.487] } 1549s [00:52:29.487] ...future.result <- base::tryCatch({ 1549s [00:52:29.487] base::withCallingHandlers({ 1549s [00:52:29.487] ...future.value <- base::withVisible(base::local({ 1549s [00:52:29.487] do.call(function(...) { 1549s [00:52:29.487] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.487] if (!identical(...future.globals.maxSize.org, 1549s [00:52:29.487] ...future.globals.maxSize)) { 1549s [00:52:29.487] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.487] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.487] } 1549s [00:52:29.487] { 1549s [00:52:29.487] lapply(seq_along(...future.elements_ii), 1549s [00:52:29.487] FUN = function(jj) { 1549s [00:52:29.487] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.487] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.487] }) 1549s [00:52:29.487] } 1549s [00:52:29.487] }, args = future.call.arguments) 1549s [00:52:29.487] })) 1549s [00:52:29.487] future::FutureResult(value = ...future.value$value, 1549s [00:52:29.487] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1549s [00:52:29.487] ...future.rng), globalenv = if (FALSE) 1549s [00:52:29.487] list(added = base::setdiff(base::names(base::.GlobalEnv), 1549s [00:52:29.487] ...future.globalenv.names)) 1549s [00:52:29.487] else NULL, started = ...future.startTime, version = "1.8") 1549s [00:52:29.487] }, condition = base::local({ 1549s [00:52:29.487] c <- base::c 1549s [00:52:29.487] inherits <- base::inherits 1549s [00:52:29.487] invokeRestart <- base::invokeRestart 1549s [00:52:29.487] length <- base::length 1549s [00:52:29.487] list <- base::list 1549s [00:52:29.487] seq.int <- base::seq.int 1549s [00:52:29.487] signalCondition <- base::signalCondition 1549s [00:52:29.487] sys.calls <- base::sys.calls 1549s [00:52:29.487] `[[` <- base::`[[` 1549s [00:52:29.487] `+` <- base::`+` 1549s [00:52:29.487] `<<-` <- base::`<<-` 1549s [00:52:29.487] sysCalls <- function(calls = sys.calls(), from = 1L) { 1549s [00:52:29.487] calls[seq.int(from = from + 12L, to = length(calls) - 1549s [00:52:29.487] 3L)] 1549s [00:52:29.487] } 1549s [00:52:29.487] function(cond) { 1549s [00:52:29.487] is_error <- inherits(cond, "error") 1549s [00:52:29.487] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1549s [00:52:29.487] NULL) 1549s [00:52:29.487] if (is_error) { 1549s [00:52:29.487] sessionInformation <- function() { 1549s [00:52:29.487] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1549s [00:52:29.487] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1549s [00:52:29.487] search = base::search(), system = base::Sys.info()) 1549s [00:52:29.487] } 1549s [00:52:29.487] ...future.conditions[[length(...future.conditions) + 1549s [00:52:29.487] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1549s [00:52:29.487] cond$call), session = sessionInformation(), 1549s [00:52:29.487] timestamp = base::Sys.time(), signaled = 0L) 1549s [00:52:29.487] signalCondition(cond) 1549s [00:52:29.487] } 1549s [00:52:29.487] else if (!ignore && TRUE && inherits(cond, c("condition", 1549s [00:52:29.487] "immediateCondition"))) { 1549s [00:52:29.487] signal <- TRUE && inherits(cond, "immediateCondition") 1549s [00:52:29.487] ...future.conditions[[length(...future.conditions) + 1549s [00:52:29.487] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1549s [00:52:29.487] if (TRUE && !signal) { 1549s [00:52:29.487] muffleCondition <- function (cond, pattern = "^muffle") 1549s [00:52:29.487] { 1549s [00:52:29.487] inherits <- base::inherits 1549s [00:52:29.487] invokeRestart <- base::invokeRestart 1549s [00:52:29.487] is.null <- base::is.null 1549s [00:52:29.487] muffled <- FALSE 1549s [00:52:29.487] if (inherits(cond, "message")) { 1549s [00:52:29.487] muffled <- grepl(pattern, "muffleMessage") 1549s [00:52:29.487] if (muffled) 1549s [00:52:29.487] invokeRestart("muffleMessage") 1549s [00:52:29.487] } 1549s [00:52:29.487] else if (inherits(cond, "warning")) { 1549s [00:52:29.487] muffled <- grepl(pattern, "muffleWarning") 1549s [00:52:29.487] if (muffled) 1549s [00:52:29.487] invokeRestart("muffleWarning") 1549s [00:52:29.487] } 1549s [00:52:29.487] else if (inherits(cond, "condition")) { 1549s [00:52:29.487] if (!is.null(pattern)) { 1549s [00:52:29.487] computeRestarts <- base::computeRestarts 1549s [00:52:29.487] grepl <- base::grepl 1549s [00:52:29.487] restarts <- computeRestarts(cond) 1549s [00:52:29.487] for (restart in restarts) { 1549s [00:52:29.487] name <- restart$name 1549s [00:52:29.487] if (is.null(name)) 1549s [00:52:29.487] next 1549s [00:52:29.487] if (!grepl(pattern, name)) 1549s [00:52:29.487] next 1549s [00:52:29.487] invokeRestart(restart) 1549s [00:52:29.487] muffled <- TRUE 1549s [00:52:29.487] break 1549s [00:52:29.487] } 1549s [00:52:29.487] } 1549s [00:52:29.487] } 1549s [00:52:29.487] invisible(muffled) 1549s [00:52:29.487] } 1549s [00:52:29.487] muffleCondition(cond, pattern = "^muffle") 1549s [00:52:29.487] } 1549s [00:52:29.487] } 1549s [00:52:29.487] else { 1549s [00:52:29.487] if (TRUE) { 1549s [00:52:29.487] muffleCondition <- function (cond, pattern = "^muffle") 1549s [00:52:29.487] { 1549s [00:52:29.487] inherits <- base::inherits 1549s [00:52:29.487] invokeRestart <- base::invokeRestart 1549s [00:52:29.487] is.null <- base::is.null 1549s [00:52:29.487] muffled <- FALSE 1549s [00:52:29.487] if (inherits(cond, "message")) { 1549s [00:52:29.487] muffled <- grepl(pattern, "muffleMessage") 1549s [00:52:29.487] if (muffled) 1549s [00:52:29.487] invokeRestart("muffleMessage") 1549s [00:52:29.487] } 1549s [00:52:29.487] else if (inherits(cond, "warning")) { 1549s [00:52:29.487] muffled <- grepl(pattern, "muffleWarning") 1549s [00:52:29.487] if (muffled) 1549s [00:52:29.487] invokeRestart("muffleWarning") 1549s [00:52:29.487] } 1549s [00:52:29.487] else if (inherits(cond, "condition")) { 1549s [00:52:29.487] if (!is.null(pattern)) { 1549s [00:52:29.487] computeRestarts <- base::computeRestarts 1549s [00:52:29.487] grepl <- base::grepl 1549s [00:52:29.487] restarts <- computeRestarts(cond) 1549s [00:52:29.487] for (restart in restarts) { 1549s [00:52:29.487] name <- restart$name 1549s [00:52:29.487] if (is.null(name)) 1549s [00:52:29.487] next 1549s [00:52:29.487] if (!grepl(pattern, name)) 1549s [00:52:29.487] next 1549s [00:52:29.487] invokeRestart(restart) 1549s [00:52:29.487] muffled <- TRUE 1549s [00:52:29.487] break 1549s [00:52:29.487] } 1549s [00:52:29.487] } 1549s [00:52:29.487] } 1549s [00:52:29.487] invisible(muffled) 1549s [00:52:29.487] } 1549s [00:52:29.487] muffleCondition(cond, pattern = "^muffle") 1549s [00:52:29.487] } 1549s [00:52:29.487] } 1549s [00:52:29.487] } 1549s [00:52:29.487] })) 1549s [00:52:29.487] }, error = function(ex) { 1549s [00:52:29.487] base::structure(base::list(value = NULL, visible = NULL, 1549s [00:52:29.487] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1549s [00:52:29.487] ...future.rng), started = ...future.startTime, 1549s [00:52:29.487] finished = Sys.time(), session_uuid = NA_character_, 1549s [00:52:29.487] version = "1.8"), class = "FutureResult") 1549s [00:52:29.487] }, finally = { 1549s [00:52:29.487] if (!identical(...future.workdir, getwd())) 1549s [00:52:29.487] setwd(...future.workdir) 1549s [00:52:29.487] { 1549s [00:52:29.487] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1549s [00:52:29.487] ...future.oldOptions$nwarnings <- NULL 1549s [00:52:29.487] } 1549s [00:52:29.487] base::options(...future.oldOptions) 1549s [00:52:29.487] if (.Platform$OS.type == "windows") { 1549s [00:52:29.487] old_names <- names(...future.oldEnvVars) 1549s [00:52:29.487] envs <- base::Sys.getenv() 1549s [00:52:29.487] names <- names(envs) 1549s [00:52:29.487] common <- intersect(names, old_names) 1549s [00:52:29.487] added <- setdiff(names, old_names) 1549s [00:52:29.487] removed <- setdiff(old_names, names) 1549s [00:52:29.487] changed <- common[...future.oldEnvVars[common] != 1549s [00:52:29.487] envs[common]] 1549s [00:52:29.487] NAMES <- toupper(changed) 1549s [00:52:29.487] args <- list() 1549s [00:52:29.487] for (kk in seq_along(NAMES)) { 1549s [00:52:29.487] name <- changed[[kk]] 1549s [00:52:29.487] NAME <- NAMES[[kk]] 1549s [00:52:29.487] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.487] next 1549s [00:52:29.487] args[[name]] <- ...future.oldEnvVars[[name]] 1549s [00:52:29.487] } 1549s [00:52:29.487] NAMES <- toupper(added) 1549s [00:52:29.487] for (kk in seq_along(NAMES)) { 1549s [00:52:29.487] name <- added[[kk]] 1549s [00:52:29.487] NAME <- NAMES[[kk]] 1549s [00:52:29.487] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.487] next 1549s [00:52:29.487] args[[name]] <- "" 1549s [00:52:29.487] } 1549s [00:52:29.487] NAMES <- toupper(removed) 1549s [00:52:29.487] for (kk in seq_along(NAMES)) { 1549s [00:52:29.487] name <- removed[[kk]] 1549s [00:52:29.487] NAME <- NAMES[[kk]] 1549s [00:52:29.487] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.487] next 1549s [00:52:29.487] args[[name]] <- ...future.oldEnvVars[[name]] 1549s [00:52:29.487] } 1549s [00:52:29.487] if (length(args) > 0) 1549s [00:52:29.487] base::do.call(base::Sys.setenv, args = args) 1549s [00:52:29.487] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1549s [00:52:29.487] } 1549s [00:52:29.487] else { 1549s [00:52:29.487] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1549s [00:52:29.487] } 1549s [00:52:29.487] { 1549s [00:52:29.487] if (base::length(...future.futureOptionsAdded) > 1549s [00:52:29.487] 0L) { 1549s [00:52:29.487] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1549s [00:52:29.487] base::names(opts) <- ...future.futureOptionsAdded 1549s [00:52:29.487] base::options(opts) 1549s [00:52:29.487] } 1549s [00:52:29.487] { 1549s [00:52:29.487] { 1549s [00:52:29.487] NULL 1549s [00:52:29.487] RNGkind("Mersenne-Twister") 1549s [00:52:29.487] base::rm(list = ".Random.seed", envir = base::globalenv(), 1549s [00:52:29.487] inherits = FALSE) 1549s [00:52:29.487] } 1549s [00:52:29.487] options(future.plan = NULL) 1549s [00:52:29.487] if (is.na(NA_character_)) 1549s [00:52:29.487] Sys.unsetenv("R_FUTURE_PLAN") 1549s [00:52:29.487] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1549s [00:52:29.487] future::plan(list(function (..., envir = parent.frame()) 1549s [00:52:29.487] { 1549s [00:52:29.487] future <- SequentialFuture(..., envir = envir) 1549s [00:52:29.487] if (!future$lazy) 1549s [00:52:29.487] future <- run(future) 1549s [00:52:29.487] invisible(future) 1549s [00:52:29.487] }), .cleanup = FALSE, .init = FALSE) 1549s [00:52:29.487] } 1549s [00:52:29.487] } 1549s [00:52:29.487] } 1549s [00:52:29.487] }) 1549s [00:52:29.487] if (TRUE) { 1549s [00:52:29.487] base::sink(type = "output", split = FALSE) 1549s [00:52:29.487] if (TRUE) { 1549s [00:52:29.487] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1549s [00:52:29.487] } 1549s [00:52:29.487] else { 1549s [00:52:29.487] ...future.result["stdout"] <- base::list(NULL) 1549s [00:52:29.487] } 1549s [00:52:29.487] base::close(...future.stdout) 1549s [00:52:29.487] ...future.stdout <- NULL 1549s [00:52:29.487] } 1549s [00:52:29.487] ...future.result$conditions <- ...future.conditions 1549s [00:52:29.487] ...future.result$finished <- base::Sys.time() 1549s [00:52:29.487] ...future.result 1549s [00:52:29.487] } 1549s [00:52:29.492] assign_globals() ... 1549s [00:52:29.492] List of 5 1549s [00:52:29.492] $ ...future.FUN :function (x, ...) 1549s [00:52:29.492] $ future.call.arguments : list() 1549s [00:52:29.492] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1549s [00:52:29.492] $ ...future.elements_ii :List of 1 1549s [00:52:29.492] ..$ a:Classes 'listenv', 'environment' 1549s [00:52:29.492] $ ...future.seeds_ii : NULL 1549s [00:52:29.492] $ ...future.globals.maxSize: NULL 1549s [00:52:29.492] - attr(*, "where")=List of 5 1549s [00:52:29.492] ..$ ...future.FUN : 1549s [00:52:29.492] ..$ future.call.arguments : 1549s [00:52:29.492] ..$ ...future.elements_ii : 1549s [00:52:29.492] ..$ ...future.seeds_ii : 1549s [00:52:29.492] ..$ ...future.globals.maxSize: 1549s [00:52:29.492] - attr(*, "resolved")= logi FALSE 1549s [00:52:29.492] - attr(*, "total_size")= num 4968 1549s [00:52:29.492] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1549s [00:52:29.492] - attr(*, "already-done")= logi TRUE 1549s [00:52:29.499] - copied ‘...future.FUN’ to environment 1549s [00:52:29.499] - copied ‘future.call.arguments’ to environment 1549s [00:52:29.500] - copied ‘...future.elements_ii’ to environment 1549s [00:52:29.500] - copied ‘...future.seeds_ii’ to environment 1549s [00:52:29.500] - copied ‘...future.globals.maxSize’ to environment 1549s [00:52:29.500] assign_globals() ... done 1549s [00:52:29.501] plan(): Setting new future strategy stack: 1549s [00:52:29.501] List of future strategies: 1549s [00:52:29.501] 1. sequential: 1549s [00:52:29.501] - args: function (..., envir = parent.frame()) 1549s [00:52:29.501] - tweaked: FALSE 1549s [00:52:29.501] - call: NULL 1549s [00:52:29.502] plan(): nbrOfWorkers() = 1 1549s [00:52:29.503] plan(): Setting new future strategy stack: 1549s [00:52:29.503] List of future strategies: 1549s [00:52:29.503] 1. sequential: 1549s [00:52:29.503] - args: function (..., envir = parent.frame()) 1549s [00:52:29.503] - tweaked: FALSE 1549s [00:52:29.503] - call: plan(strategy) 1549s [00:52:29.504] plan(): nbrOfWorkers() = 1 1549s [00:52:29.504] SequentialFuture started (and completed) 1549s [00:52:29.504] - Launch lazy future ... done 1549s [00:52:29.504] run() for ‘SequentialFuture’ ... done 1549s [00:52:29.504] Created future: 1549s [00:52:29.505] SequentialFuture: 1549s [00:52:29.505] Label: ‘future_lapply-1’ 1549s [00:52:29.505] Expression: 1549s [00:52:29.505] { 1549s [00:52:29.505] do.call(function(...) { 1549s [00:52:29.505] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.505] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1549s [00:52:29.505] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.505] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.505] } 1549s [00:52:29.505] { 1549s [00:52:29.505] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1549s [00:52:29.505] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.505] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.505] }) 1549s [00:52:29.505] } 1549s [00:52:29.505] }, args = future.call.arguments) 1549s [00:52:29.505] } 1549s [00:52:29.505] Lazy evaluation: FALSE 1549s [00:52:29.505] Asynchronous evaluation: FALSE 1549s [00:52:29.505] Local evaluation: TRUE 1549s [00:52:29.505] Environment: R_GlobalEnv 1549s [00:52:29.505] Capture standard output: TRUE 1549s [00:52:29.505] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1549s [00:52:29.505] Globals: 5 objects totaling 4.96 KiB (function ‘...future.FUN’ of 4.85 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1549s [00:52:29.505] Packages: 1 packages (‘listenv’) 1549s [00:52:29.505] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1549s [00:52:29.505] Resolved: TRUE 1549s [00:52:29.505] Value: 336 bytes of class ‘list’ 1549s [00:52:29.505] Early signaling: FALSE 1549s [00:52:29.505] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1549s [00:52:29.505] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1549s [00:52:29.507] Chunk #1 of 2 ... DONE 1549s [00:52:29.507] Chunk #2 of 2 ... 1549s [00:52:29.507] - Finding globals in 'X' for chunk #2 ... 1549s [00:52:29.507] getGlobalsAndPackages() ... 1549s [00:52:29.507] Searching for globals... 1549s [00:52:29.508] 1549s [00:52:29.508] Searching for globals ... DONE 1549s [00:52:29.508] - globals: [0] 1549s [00:52:29.509] getGlobalsAndPackages() ... DONE 1549s [00:52:29.509] + additional globals found: [n=0] 1549s [00:52:29.509] + additional namespaces needed: [n=0] 1549s [00:52:29.509] - Finding globals in 'X' for chunk #2 ... DONE 1549s [00:52:29.509] - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes) 1549s [00:52:29.509] - seeds: 1549s [00:52:29.510] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.510] getGlobalsAndPackages() ... 1549s [00:52:29.510] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.511] Resolving globals: FALSE 1549s [00:52:29.511] Tweak future expression to call with '...' arguments ... 1549s [00:52:29.511] { 1549s [00:52:29.511] do.call(function(...) { 1549s [00:52:29.511] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.511] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1549s [00:52:29.511] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.511] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.511] } 1549s [00:52:29.511] { 1549s [00:52:29.511] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1549s [00:52:29.511] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.511] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.511] }) 1549s [00:52:29.511] } 1549s [00:52:29.511] }, args = future.call.arguments) 1549s [00:52:29.511] } 1549s [00:52:29.512] Tweak future expression to call with '...' arguments ... DONE 1549s [00:52:29.512] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.512] - packages: [1] ‘listenv’ 1549s [00:52:29.512] getGlobalsAndPackages() ... DONE 1549s [00:52:29.513] run() for ‘Future’ ... 1549s [00:52:29.513] - state: ‘created’ 1549s [00:52:29.513] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1549s [00:52:29.514] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1549s [00:52:29.514] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1549s [00:52:29.514] - Field: ‘label’ 1549s [00:52:29.514] - Field: ‘local’ 1549s [00:52:29.515] - Field: ‘owner’ 1549s [00:52:29.515] - Field: ‘envir’ 1549s [00:52:29.515] - Field: ‘packages’ 1549s [00:52:29.515] - Field: ‘gc’ 1549s [00:52:29.515] - Field: ‘conditions’ 1549s [00:52:29.515] - Field: ‘expr’ 1549s [00:52:29.516] - Field: ‘uuid’ 1549s [00:52:29.516] - Field: ‘seed’ 1549s [00:52:29.553] - Field: ‘version’ 1549s [00:52:29.553] - Field: ‘result’ 1549s [00:52:29.553] - Field: ‘asynchronous’ 1549s [00:52:29.554] - Field: ‘calls’ 1549s [00:52:29.554] - Field: ‘globals’ 1549s [00:52:29.554] - Field: ‘stdout’ 1549s [00:52:29.554] - Field: ‘earlySignal’ 1549s [00:52:29.554] - Field: ‘lazy’ 1549s [00:52:29.555] - Field: ‘state’ 1549s [00:52:29.555] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1549s [00:52:29.555] - Launch lazy future ... 1549s [00:52:29.556] Packages needed by the future expression (n = 1): ‘listenv’ 1549s [00:52:29.556] Packages needed by future strategies (n = 0): 1549s [00:52:29.557] { 1549s [00:52:29.557] { 1549s [00:52:29.557] { 1549s [00:52:29.557] ...future.startTime <- base::Sys.time() 1549s [00:52:29.557] { 1549s [00:52:29.557] { 1549s [00:52:29.557] { 1549s [00:52:29.557] { 1549s [00:52:29.557] base::local({ 1549s [00:52:29.557] has_future <- base::requireNamespace("future", 1549s [00:52:29.557] quietly = TRUE) 1549s [00:52:29.557] if (has_future) { 1549s [00:52:29.557] ns <- base::getNamespace("future") 1549s [00:52:29.557] version <- ns[[".package"]][["version"]] 1549s [00:52:29.557] if (is.null(version)) 1549s [00:52:29.557] version <- utils::packageVersion("future") 1549s [00:52:29.557] } 1549s [00:52:29.557] else { 1549s [00:52:29.557] version <- NULL 1549s [00:52:29.557] } 1549s [00:52:29.557] if (!has_future || version < "1.8.0") { 1549s [00:52:29.557] info <- base::c(r_version = base::gsub("R version ", 1549s [00:52:29.557] "", base::R.version$version.string), 1549s [00:52:29.557] platform = base::sprintf("%s (%s-bit)", 1549s [00:52:29.557] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1549s [00:52:29.557] os = base::paste(base::Sys.info()[base::c("sysname", 1549s [00:52:29.557] "release", "version")], collapse = " "), 1549s [00:52:29.557] hostname = base::Sys.info()[["nodename"]]) 1549s [00:52:29.557] info <- base::sprintf("%s: %s", base::names(info), 1549s [00:52:29.557] info) 1549s [00:52:29.557] info <- base::paste(info, collapse = "; ") 1549s [00:52:29.557] if (!has_future) { 1549s [00:52:29.557] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1549s [00:52:29.557] info) 1549s [00:52:29.557] } 1549s [00:52:29.557] else { 1549s [00:52:29.557] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1549s [00:52:29.557] info, version) 1549s [00:52:29.557] } 1549s [00:52:29.557] base::stop(msg) 1549s [00:52:29.557] } 1549s [00:52:29.557] }) 1549s [00:52:29.557] } 1549s [00:52:29.557] base::local({ 1549s [00:52:29.557] for (pkg in "listenv") { 1549s [00:52:29.557] base::loadNamespace(pkg) 1549s [00:52:29.557] base::library(pkg, character.only = TRUE) 1549s [00:52:29.557] } 1549s [00:52:29.557] }) 1549s [00:52:29.557] } 1549s [00:52:29.557] options(future.plan = NULL) 1549s [00:52:29.557] Sys.unsetenv("R_FUTURE_PLAN") 1549s [00:52:29.557] future::plan("default", .cleanup = FALSE, .init = FALSE) 1549s [00:52:29.557] } 1549s [00:52:29.557] ...future.workdir <- getwd() 1549s [00:52:29.557] } 1549s [00:52:29.557] ...future.oldOptions <- base::as.list(base::.Options) 1549s [00:52:29.557] ...future.oldEnvVars <- base::Sys.getenv() 1549s [00:52:29.557] } 1549s [00:52:29.557] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1549s [00:52:29.557] future.globals.maxSize = 1048576000, future.globals.method = NULL, 1549s [00:52:29.557] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1549s [00:52:29.557] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1549s [00:52:29.557] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1549s [00:52:29.557] future.stdout.windows.reencode = NULL, width = 80L) 1549s [00:52:29.557] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1549s [00:52:29.557] base::names(...future.oldOptions)) 1549s [00:52:29.557] } 1549s [00:52:29.557] if (FALSE) { 1549s [00:52:29.557] } 1549s [00:52:29.557] else { 1549s [00:52:29.557] if (TRUE) { 1549s [00:52:29.557] ...future.stdout <- base::rawConnection(base::raw(0L), 1549s [00:52:29.557] open = "w") 1549s [00:52:29.557] } 1549s [00:52:29.557] else { 1549s [00:52:29.557] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1549s [00:52:29.557] windows = "NUL", "/dev/null"), open = "w") 1549s [00:52:29.557] } 1549s [00:52:29.557] base::sink(...future.stdout, type = "output", split = FALSE) 1549s [00:52:29.557] base::on.exit(if (!base::is.null(...future.stdout)) { 1549s [00:52:29.557] base::sink(type = "output", split = FALSE) 1549s [00:52:29.557] base::close(...future.stdout) 1549s [00:52:29.557] }, add = TRUE) 1549s [00:52:29.557] } 1549s [00:52:29.557] ...future.frame <- base::sys.nframe() 1549s [00:52:29.557] ...future.conditions <- base::list() 1549s [00:52:29.557] ...future.rng <- base::globalenv()$.Random.seed 1549s [00:52:29.557] if (FALSE) { 1549s [00:52:29.557] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1549s [00:52:29.557] "...future.value", "...future.globalenv.names", ".Random.seed") 1549s [00:52:29.557] } 1549s [00:52:29.557] ...future.result <- base::tryCatch({ 1549s [00:52:29.557] base::withCallingHandlers({ 1549s [00:52:29.557] ...future.value <- base::withVisible(base::local({ 1549s [00:52:29.557] do.call(function(...) { 1549s [00:52:29.557] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.557] if (!identical(...future.globals.maxSize.org, 1549s [00:52:29.557] ...future.globals.maxSize)) { 1549s [00:52:29.557] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.557] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.557] } 1549s [00:52:29.557] { 1549s [00:52:29.557] lapply(seq_along(...future.elements_ii), 1549s [00:52:29.557] FUN = function(jj) { 1549s [00:52:29.557] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.557] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.557] }) 1549s [00:52:29.557] } 1549s [00:52:29.557] }, args = future.call.arguments) 1549s [00:52:29.557] })) 1549s [00:52:29.557] future::FutureResult(value = ...future.value$value, 1549s [00:52:29.557] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1549s [00:52:29.557] ...future.rng), globalenv = if (FALSE) 1549s [00:52:29.557] list(added = base::setdiff(base::names(base::.GlobalEnv), 1549s [00:52:29.557] ...future.globalenv.names)) 1549s [00:52:29.557] else NULL, started = ...future.startTime, version = "1.8") 1549s [00:52:29.557] }, condition = base::local({ 1549s [00:52:29.557] c <- base::c 1549s [00:52:29.557] inherits <- base::inherits 1549s [00:52:29.557] invokeRestart <- base::invokeRestart 1549s [00:52:29.557] length <- base::length 1549s [00:52:29.557] list <- base::list 1549s [00:52:29.557] seq.int <- base::seq.int 1549s [00:52:29.557] signalCondition <- base::signalCondition 1549s [00:52:29.557] sys.calls <- base::sys.calls 1549s [00:52:29.557] `[[` <- base::`[[` 1549s [00:52:29.557] `+` <- base::`+` 1549s [00:52:29.557] `<<-` <- base::`<<-` 1549s [00:52:29.557] sysCalls <- function(calls = sys.calls(), from = 1L) { 1549s [00:52:29.557] calls[seq.int(from = from + 12L, to = length(calls) - 1549s [00:52:29.557] 3L)] 1549s [00:52:29.557] } 1549s [00:52:29.557] function(cond) { 1549s [00:52:29.557] is_error <- inherits(cond, "error") 1549s [00:52:29.557] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1549s [00:52:29.557] NULL) 1549s [00:52:29.557] if (is_error) { 1549s [00:52:29.557] sessionInformation <- function() { 1549s [00:52:29.557] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1549s [00:52:29.557] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1549s [00:52:29.557] search = base::search(), system = base::Sys.info()) 1549s [00:52:29.557] } 1549s [00:52:29.557] ...future.conditions[[length(...future.conditions) + 1549s [00:52:29.557] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1549s [00:52:29.557] cond$call), session = sessionInformation(), 1549s [00:52:29.557] timestamp = base::Sys.time(), signaled = 0L) 1549s [00:52:29.557] signalCondition(cond) 1549s [00:52:29.557] } 1549s [00:52:29.557] else if (!ignore && TRUE && inherits(cond, c("condition", 1549s [00:52:29.557] "immediateCondition"))) { 1549s [00:52:29.557] signal <- TRUE && inherits(cond, "immediateCondition") 1549s [00:52:29.557] ...future.conditions[[length(...future.conditions) + 1549s [00:52:29.557] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1549s [00:52:29.557] if (TRUE && !signal) { 1549s [00:52:29.557] muffleCondition <- function (cond, pattern = "^muffle") 1549s [00:52:29.557] { 1549s [00:52:29.557] inherits <- base::inherits 1549s [00:52:29.557] invokeRestart <- base::invokeRestart 1549s [00:52:29.557] is.null <- base::is.null 1549s [00:52:29.557] muffled <- FALSE 1549s [00:52:29.557] if (inherits(cond, "message")) { 1549s [00:52:29.557] muffled <- grepl(pattern, "muffleMessage") 1549s [00:52:29.557] if (muffled) 1549s [00:52:29.557] invokeRestart("muffleMessage") 1549s [00:52:29.557] } 1549s [00:52:29.557] else if (inherits(cond, "warning")) { 1549s [00:52:29.557] muffled <- grepl(pattern, "muffleWarning") 1549s [00:52:29.557] if (muffled) 1549s [00:52:29.557] invokeRestart("muffleWarning") 1549s [00:52:29.557] } 1549s [00:52:29.557] else if (inherits(cond, "condition")) { 1549s [00:52:29.557] if (!is.null(pattern)) { 1549s [00:52:29.557] computeRestarts <- base::computeRestarts 1549s [00:52:29.557] grepl <- base::grepl 1549s [00:52:29.557] restarts <- computeRestarts(cond) 1549s [00:52:29.557] for (restart in restarts) { 1549s [00:52:29.557] name <- restart$name 1549s [00:52:29.557] if (is.null(name)) 1549s [00:52:29.557] next 1549s [00:52:29.557] if (!grepl(pattern, name)) 1549s [00:52:29.557] next 1549s [00:52:29.557] invokeRestart(restart) 1549s [00:52:29.557] muffled <- TRUE 1549s [00:52:29.557] break 1549s [00:52:29.557] } 1549s [00:52:29.557] } 1549s [00:52:29.557] } 1549s [00:52:29.557] invisible(muffled) 1549s [00:52:29.557] } 1549s [00:52:29.557] muffleCondition(cond, pattern = "^muffle") 1549s [00:52:29.557] } 1549s [00:52:29.557] } 1549s [00:52:29.557] else { 1549s [00:52:29.557] if (TRUE) { 1549s [00:52:29.557] muffleCondition <- function (cond, pattern = "^muffle") 1549s [00:52:29.557] { 1549s [00:52:29.557] inherits <- base::inherits 1549s [00:52:29.557] invokeRestart <- base::invokeRestart 1549s [00:52:29.557] is.null <- base::is.null 1549s [00:52:29.557] muffled <- FALSE 1549s [00:52:29.557] if (inherits(cond, "message")) { 1549s [00:52:29.557] muffled <- grepl(pattern, "muffleMessage") 1549s [00:52:29.557] if (muffled) 1549s [00:52:29.557] invokeRestart("muffleMessage") 1549s [00:52:29.557] } 1549s [00:52:29.557] else if (inherits(cond, "warning")) { 1549s [00:52:29.557] muffled <- grepl(pattern, "muffleWarning") 1549s [00:52:29.557] if (muffled) 1549s [00:52:29.557] invokeRestart("muffleWarning") 1549s [00:52:29.557] } 1549s [00:52:29.557] else if (inherits(cond, "condition")) { 1549s [00:52:29.557] if (!is.null(pattern)) { 1549s [00:52:29.557] computeRestarts <- base::computeRestarts 1549s [00:52:29.557] grepl <- base::grepl 1549s [00:52:29.557] restarts <- computeRestarts(cond) 1549s [00:52:29.557] for (restart in restarts) { 1549s [00:52:29.557] name <- restart$name 1549s [00:52:29.557] if (is.null(name)) 1549s [00:52:29.557] next 1549s [00:52:29.557] if (!grepl(pattern, name)) 1549s [00:52:29.557] next 1549s [00:52:29.557] invokeRestart(restart) 1549s [00:52:29.557] muffled <- TRUE 1549s [00:52:29.557] break 1549s [00:52:29.557] } 1549s [00:52:29.557] } 1549s [00:52:29.557] } 1549s [00:52:29.557] invisible(muffled) 1549s [00:52:29.557] } 1549s [00:52:29.557] muffleCondition(cond, pattern = "^muffle") 1549s [00:52:29.557] } 1549s [00:52:29.557] } 1549s [00:52:29.557] } 1549s [00:52:29.557] })) 1549s [00:52:29.557] }, error = function(ex) { 1549s [00:52:29.557] base::structure(base::list(value = NULL, visible = NULL, 1549s [00:52:29.557] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1549s [00:52:29.557] ...future.rng), started = ...future.startTime, 1549s [00:52:29.557] finished = Sys.time(), session_uuid = NA_character_, 1549s [00:52:29.557] version = "1.8"), class = "FutureResult") 1549s [00:52:29.557] }, finally = { 1549s [00:52:29.557] if (!identical(...future.workdir, getwd())) 1549s [00:52:29.557] setwd(...future.workdir) 1549s [00:52:29.557] { 1549s [00:52:29.557] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1549s [00:52:29.557] ...future.oldOptions$nwarnings <- NULL 1549s [00:52:29.557] } 1549s [00:52:29.557] base::options(...future.oldOptions) 1549s [00:52:29.557] if (.Platform$OS.type == "windows") { 1549s [00:52:29.557] old_names <- names(...future.oldEnvVars) 1549s [00:52:29.557] envs <- base::Sys.getenv() 1549s [00:52:29.557] names <- names(envs) 1549s [00:52:29.557] common <- intersect(names, old_names) 1549s [00:52:29.557] added <- setdiff(names, old_names) 1549s [00:52:29.557] removed <- setdiff(old_names, names) 1549s [00:52:29.557] changed <- common[...future.oldEnvVars[common] != 1549s [00:52:29.557] envs[common]] 1549s [00:52:29.557] NAMES <- toupper(changed) 1549s [00:52:29.557] args <- list() 1549s [00:52:29.557] for (kk in seq_along(NAMES)) { 1549s [00:52:29.557] name <- changed[[kk]] 1549s [00:52:29.557] NAME <- NAMES[[kk]] 1549s [00:52:29.557] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.557] next 1549s [00:52:29.557] args[[name]] <- ...future.oldEnvVars[[name]] 1549s [00:52:29.557] } 1549s [00:52:29.557] NAMES <- toupper(added) 1549s [00:52:29.557] for (kk in seq_along(NAMES)) { 1549s [00:52:29.557] name <- added[[kk]] 1549s [00:52:29.557] NAME <- NAMES[[kk]] 1549s [00:52:29.557] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.557] next 1549s [00:52:29.557] args[[name]] <- "" 1549s [00:52:29.557] } 1549s [00:52:29.557] NAMES <- toupper(removed) 1549s [00:52:29.557] for (kk in seq_along(NAMES)) { 1549s [00:52:29.557] name <- removed[[kk]] 1549s [00:52:29.557] NAME <- NAMES[[kk]] 1549s [00:52:29.557] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.557] next 1549s [00:52:29.557] args[[name]] <- ...future.oldEnvVars[[name]] 1549s [00:52:29.557] } 1549s [00:52:29.557] if (length(args) > 0) 1549s [00:52:29.557] base::do.call(base::Sys.setenv, args = args) 1549s [00:52:29.557] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1549s [00:52:29.557] } 1549s [00:52:29.557] else { 1549s [00:52:29.557] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1549s [00:52:29.557] } 1549s [00:52:29.557] { 1549s [00:52:29.557] if (base::length(...future.futureOptionsAdded) > 1549s [00:52:29.557] 0L) { 1549s [00:52:29.557] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1549s [00:52:29.557] base::names(opts) <- ...future.futureOptionsAdded 1549s [00:52:29.557] base::options(opts) 1549s [00:52:29.557] } 1549s [00:52:29.557] { 1549s [00:52:29.557] { 1549s [00:52:29.557] NULL 1549s [00:52:29.557] RNGkind("Mersenne-Twister") 1549s [00:52:29.557] base::rm(list = ".Random.seed", envir = base::globalenv(), 1549s [00:52:29.557] inherits = FALSE) 1549s [00:52:29.557] } 1549s [00:52:29.557] options(future.plan = NULL) 1549s [00:52:29.557] if (is.na(NA_character_)) 1549s [00:52:29.557] Sys.unsetenv("R_FUTURE_PLAN") 1549s [00:52:29.557] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1549s [00:52:29.557] future::plan(list(function (..., envir = parent.frame()) 1549s [00:52:29.557] { 1549s [00:52:29.557] future <- SequentialFuture(..., envir = envir) 1549s [00:52:29.557] if (!future$lazy) 1549s [00:52:29.557] future <- run(future) 1549s [00:52:29.557] invisible(future) 1549s [00:52:29.557] }), .cleanup = FALSE, .init = FALSE) 1549s [00:52:29.557] } 1549s [00:52:29.557] } 1549s [00:52:29.557] } 1549s [00:52:29.557] }) 1549s [00:52:29.557] if (TRUE) { 1549s [00:52:29.557] base::sink(type = "output", split = FALSE) 1549s [00:52:29.557] if (TRUE) { 1549s [00:52:29.557] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1549s [00:52:29.557] } 1549s [00:52:29.557] else { 1549s [00:52:29.557] ...future.result["stdout"] <- base::list(NULL) 1549s [00:52:29.557] } 1549s [00:52:29.557] base::close(...future.stdout) 1549s [00:52:29.557] ...future.stdout <- NULL 1549s [00:52:29.557] } 1549s [00:52:29.557] ...future.result$conditions <- ...future.conditions 1549s [00:52:29.557] ...future.result$finished <- base::Sys.time() 1549s [00:52:29.557] ...future.result 1549s [00:52:29.557] } 1549s [00:52:29.561] assign_globals() ... 1549s [00:52:29.561] List of 5 1549s [00:52:29.561] $ ...future.FUN :function (x, ...) 1549s [00:52:29.561] $ future.call.arguments : list() 1549s [00:52:29.561] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1549s [00:52:29.561] $ ...future.elements_ii :List of 1 1549s [00:52:29.561] ..$ b:Classes 'listenv', 'environment' 1549s [00:52:29.561] $ ...future.seeds_ii : NULL 1549s [00:52:29.561] $ ...future.globals.maxSize: NULL 1549s [00:52:29.561] - attr(*, "where")=List of 5 1549s [00:52:29.561] ..$ ...future.FUN : 1549s [00:52:29.561] ..$ future.call.arguments : 1549s [00:52:29.561] ..$ ...future.elements_ii : 1549s [00:52:29.561] ..$ ...future.seeds_ii : 1549s [00:52:29.561] ..$ ...future.globals.maxSize: 1549s [00:52:29.561] - attr(*, "resolved")= logi FALSE 1549s [00:52:29.561] - attr(*, "total_size")= num 4968 1549s [00:52:29.561] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1549s [00:52:29.561] - attr(*, "already-done")= logi TRUE 1549s [00:52:29.568] - copied ‘...future.FUN’ to environment 1549s [00:52:29.568] - copied ‘future.call.arguments’ to environment 1549s [00:52:29.568] - copied ‘...future.elements_ii’ to environment 1549s [00:52:29.568] - copied ‘...future.seeds_ii’ to environment 1549s [00:52:29.568] - copied ‘...future.globals.maxSize’ to environment 1549s [00:52:29.568] assign_globals() ... done 1549s [00:52:29.569] plan(): Setting new future strategy stack: 1549s [00:52:29.569] List of future strategies: 1549s [00:52:29.569] 1. sequential: 1549s [00:52:29.569] - args: function (..., envir = parent.frame()) 1549s [00:52:29.569] - tweaked: FALSE 1549s [00:52:29.569] - call: NULL 1549s [00:52:29.569] plan(): nbrOfWorkers() = 1 1549s [00:52:29.570] plan(): Setting new future strategy stack: 1549s [00:52:29.571] List of future strategies: 1549s [00:52:29.571] 1. sequential: 1549s [00:52:29.571] - args: function (..., envir = parent.frame()) 1549s [00:52:29.571] - tweaked: FALSE 1549s [00:52:29.571] - call: plan(strategy) 1549s [00:52:29.571] plan(): nbrOfWorkers() = 1 1549s [00:52:29.571] SequentialFuture started (and completed) 1549s [00:52:29.571] - Launch lazy future ... done 1549s [00:52:29.572] run() for ‘SequentialFuture’ ... done 1549s [00:52:29.572] Created future: 1549s [00:52:29.572] SequentialFuture: 1549s [00:52:29.572] Label: ‘future_lapply-2’ 1549s [00:52:29.572] Expression: 1549s [00:52:29.572] { 1549s [00:52:29.572] do.call(function(...) { 1549s [00:52:29.572] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.572] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1549s [00:52:29.572] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.572] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.572] } 1549s [00:52:29.572] { 1549s [00:52:29.572] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1549s [00:52:29.572] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.572] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.572] }) 1549s [00:52:29.572] } 1549s [00:52:29.572] }, args = future.call.arguments) 1549s [00:52:29.572] } 1549s [00:52:29.572] Lazy evaluation: FALSE 1549s [00:52:29.572] Asynchronous evaluation: FALSE 1549s [00:52:29.572] Local evaluation: TRUE 1549s [00:52:29.572] Environment: R_GlobalEnv 1549s [00:52:29.572] Capture standard output: TRUE 1549s [00:52:29.572] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1549s [00:52:29.572] Globals: 5 objects totaling 17.79 KiB (function ‘...future.FUN’ of 4.85 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 12.94 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1549s [00:52:29.572] Packages: 1 packages (‘listenv’) 1549s [00:52:29.572] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1549s [00:52:29.572] Resolved: TRUE 1549s [00:52:29.572] Value: 464 bytes of class ‘list’ 1549s [00:52:29.572] Early signaling: FALSE 1549s [00:52:29.572] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1549s [00:52:29.572] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1549s [00:52:29.574] Chunk #2 of 2 ... DONE 1549s [00:52:29.574] Launching 2 futures (chunks) ... DONE 1549s [00:52:29.574] Resolving 2 futures (chunks) ... 1549s [00:52:29.574] resolve() on list ... 1549s [00:52:29.574] recursive: 0 1549s [00:52:29.575] length: 2 1549s [00:52:29.575] 1549s [00:52:29.575] resolved() for ‘SequentialFuture’ ... 1549s [00:52:29.575] - state: ‘finished’ 1549s [00:52:29.575] - run: TRUE 1549s [00:52:29.575] - result: ‘FutureResult’ 1549s [00:52:29.575] resolved() for ‘SequentialFuture’ ... done 1549s [00:52:29.576] Future #1 1549s [00:52:29.576] signalConditionsASAP(SequentialFuture, pos=1) ... 1549s [00:52:29.576] - nx: 2 1549s [00:52:29.577] - relay: TRUE 1549s [00:52:29.577] - stdout: TRUE 1549s [00:52:29.577] - signal: TRUE 1549s [00:52:29.577] - resignal: FALSE 1549s [00:52:29.577] - force: TRUE 1549s [00:52:29.577] - relayed: [n=2] FALSE, FALSE 1549s [00:52:29.577] - queued futures: [n=2] FALSE, FALSE 1549s [00:52:29.578] - until=1 1549s [00:52:29.578] - relaying element #1 1549s [00:52:29.578] - relayed: [n=2] TRUE, FALSE 1549s [00:52:29.578] - queued futures: [n=2] TRUE, FALSE 1549s [00:52:29.579] signalConditionsASAP(SequentialFuture, pos=1) ... done 1549s [00:52:29.579] length: 1 (resolved future 1) 1549s [00:52:29.579] resolved() for ‘SequentialFuture’ ... 1549s [00:52:29.579] - state: ‘finished’ 1549s [00:52:29.579] - run: TRUE 1549s [00:52:29.579] - result: ‘FutureResult’ 1549s [00:52:29.579] resolved() for ‘SequentialFuture’ ... done 1549s [00:52:29.580] Future #2 1549s [00:52:29.580] signalConditionsASAP(SequentialFuture, pos=2) ... 1549s [00:52:29.580] - nx: 2 1549s [00:52:29.580] - relay: TRUE 1549s [00:52:29.581] - stdout: TRUE 1549s [00:52:29.581] - signal: TRUE 1549s [00:52:29.581] - resignal: FALSE 1549s [00:52:29.581] - force: TRUE 1549s [00:52:29.581] - relayed: [n=2] TRUE, FALSE 1549s [00:52:29.582] - queued futures: [n=2] TRUE, FALSE 1549s [00:52:29.582] - until=2 1549s [00:52:29.582] - relaying element #2 1549s [00:52:29.582] - relayed: [n=2] TRUE, TRUE 1549s [00:52:29.583] - queued futures: [n=2] TRUE, TRUE 1549s [00:52:29.583] signalConditionsASAP(SequentialFuture, pos=2) ... done 1549s [00:52:29.583] length: 0 (resolved future 2) 1549s [00:52:29.583] Relaying remaining futures 1549s [00:52:29.583] signalConditionsASAP(NULL, pos=0) ... 1549s [00:52:29.584] - nx: 2 1549s [00:52:29.584] - relay: TRUE 1549s [00:52:29.584] - stdout: TRUE 1549s [00:52:29.584] - signal: TRUE 1549s [00:52:29.584] - resignal: FALSE 1549s [00:52:29.584] - force: TRUE 1549s [00:52:29.585] - relayed: [n=2] TRUE, TRUE 1549s [00:52:29.585] - queued futures: [n=2] TRUE, TRUE 1549s - flush all 1549s [00:52:29.585] - relayed: [n=2] TRUE, TRUE 1549s [00:52:29.585] - queued futures: [n=2] TRUE, TRUE 1549s [00:52:29.586] signalConditionsASAP(NULL, pos=0) ... done 1549s [00:52:29.586] resolve() on list ... DONE 1549s [00:52:29.586] - Number of value chunks collected: 2 1549s [00:52:29.586] Resolving 2 futures (chunks) ... DONE 1549s [00:52:29.586] Reducing values from 2 chunks ... 1549s [00:52:29.587] - Number of values collected after concatenation: 2 1549s [00:52:29.587] - Number of values expected: 2 1549s [00:52:29.587] Reducing values from 2 chunks ... DONE 1549s [00:52:29.587] future_lapply() ... DONE 1549s List of 1 1549s $ y:List of 2 1549s ..$ a- future_lapply(x, FUN = vector, ...) ... 1549s [00:52:29.590] future_lapply() ... 1549s : Named chr "A" 1549s .. ..- attr(*, "names")= chr "A" 1549s ..$ b: Named chr [1:2] "A" "B" 1549s .. ..- attr(*, "names")= chr [1:2] "A" "B" 1549s [00:52:29.590] Number of chunks: 1 1549s [00:52:29.591] getGlobalsAndPackagesXApply() ... 1549s [00:52:29.591] - future.globals: TRUE 1549s [00:52:29.591] getGlobalsAndPackages() ... 1549s [00:52:29.591] Searching for globals... 1549s [00:52:29.593] - globals found: [2] ‘FUN’, ‘.Internal’ 1549s [00:52:29.593] Searching for globals ... DONE 1549s [00:52:29.593] Resolving globals: FALSE 1549s [00:52:29.593] The total size of the 1 globals is 2.13 KiB (2184 bytes) 1549s [00:52:29.594] The total size of the 1 globals exported for future expression (‘FUN(length = 2L)’) is 2.13 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (2.13 KiB of class ‘function’) 1549s [00:52:29.594] - globals: [1] ‘FUN’ 1549s [00:52:29.594] 1549s [00:52:29.594] getGlobalsAndPackages() ... DONE 1549s [00:52:29.594] - globals found/used: [n=1] ‘FUN’ 1549s [00:52:29.595] - needed namespaces: [n=0] 1549s [00:52:29.595] Finding globals ... DONE 1549s [00:52:29.595] - use_args: TRUE 1549s [00:52:29.595] - Getting '...' globals ... 1549s [00:52:29.597] resolve() on list ... 1549s [00:52:29.597] recursive: 0 1549s [00:52:29.597] length: 1 1549s [00:52:29.597] elements: ‘...’ 1549s [00:52:29.597] length: 0 (resolved future 1) 1549s [00:52:29.597] resolve() on list ... DONE 1549s [00:52:29.598] - '...' content: [n=1] ‘length’ 1549s [00:52:29.598] List of 1 1549s [00:52:29.598] $ ...:List of 1 1549s [00:52:29.598] ..$ length: int 2 1549s [00:52:29.598] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1549s [00:52:29.598] - attr(*, "where")=List of 1 1549s [00:52:29.598] ..$ ...: 1549s [00:52:29.598] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1549s [00:52:29.598] - attr(*, "resolved")= logi TRUE 1549s [00:52:29.598] - attr(*, "total_size")= num NA 1549s [00:52:29.602] - Getting '...' globals ... DONE 1549s [00:52:29.602] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1549s [00:52:29.602] List of 2 1549s [00:52:29.602] $ ...future.FUN:function (mode = "logical", length = 0L) 1549s [00:52:29.602] $ ... :List of 1 1549s [00:52:29.602] ..$ length: int 2 1549s [00:52:29.602] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1549s [00:52:29.602] - attr(*, "where")=List of 2 1549s [00:52:29.602] ..$ ...future.FUN: 1549s [00:52:29.602] ..$ ... : 1549s [00:52:29.602] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1549s [00:52:29.602] - attr(*, "resolved")= logi FALSE 1549s [00:52:29.602] - attr(*, "total_size")= num 2240 1549s [00:52:29.606] Packages to be attached in all futures: [n=0] 1549s [00:52:29.606] getGlobalsAndPackagesXApply() ... DONE 1549s [00:52:29.607] Number of futures (= number of chunks): 1 1549s [00:52:29.607] Launching 1 futures (chunks) ... 1549s [00:52:29.607] Chunk #1 of 1 ... 1549s [00:52:29.607] - Finding globals in 'X' for chunk #1 ... 1549s [00:52:29.607] getGlobalsAndPackages() ... 1549s [00:52:29.607] Searching for globals... 1549s [00:52:29.607] 1549s [00:52:29.608] Searching for globals ... DONE 1549s [00:52:29.608] - globals: [0] 1549s [00:52:29.608] getGlobalsAndPackages() ... DONE 1549s [00:52:29.608] + additional globals found: [n=0] 1549s [00:52:29.608] + additional namespaces needed: [n=0] 1549s [00:52:29.608] - Finding globals in 'X' for chunk #1 ... DONE 1549s [00:52:29.608] - seeds: 1549s [00:52:29.608] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.608] getGlobalsAndPackages() ... 1549s [00:52:29.609] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.609] Resolving globals: FALSE 1549s [00:52:29.609] Tweak future expression to call with '...' arguments ... 1549s [00:52:29.609] { 1549s [00:52:29.609] do.call(function(...) { 1549s [00:52:29.609] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.609] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1549s [00:52:29.609] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.609] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.609] } 1549s [00:52:29.609] { 1549s [00:52:29.609] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1549s [00:52:29.609] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.609] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.609] }) 1549s [00:52:29.609] } 1549s [00:52:29.609] }, args = future.call.arguments) 1549s [00:52:29.609] } 1549s [00:52:29.609] Tweak future expression to call with '...' arguments ... DONE 1549s [00:52:29.610] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.610] 1549s [00:52:29.610] getGlobalsAndPackages() ... DONE 1549s [00:52:29.611] run() for ‘Future’ ... 1549s [00:52:29.611] - state: ‘created’ 1549s [00:52:29.611] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1549s [00:52:29.612] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1549s [00:52:29.612] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1549s [00:52:29.612] - Field: ‘label’ 1549s [00:52:29.612] - Field: ‘local’ 1549s [00:52:29.613] - Field: ‘owner’ 1549s [00:52:29.613] - Field: ‘envir’ 1549s [00:52:29.613] - Field: ‘packages’ 1549s [00:52:29.613] - Field: ‘gc’ 1549s [00:52:29.613] - Field: ‘conditions’ 1549s [00:52:29.613] - Field: ‘expr’ 1549s [00:52:29.614] - Field: ‘uuid’ 1549s [00:52:29.614] - Field: ‘seed’ 1549s [00:52:29.614] - Field: ‘version’ 1549s [00:52:29.614] - Field: ‘result’ 1549s [00:52:29.614] - Field: ‘asynchronous’ 1549s [00:52:29.615] - Field: ‘calls’ 1549s [00:52:29.615] - Field: ‘globals’ 1549s [00:52:29.615] - Field: ‘stdout’ 1549s [00:52:29.615] - Field: ‘earlySignal’ 1549s [00:52:29.615] - Field: ‘lazy’ 1549s [00:52:29.615] - Field: ‘state’ 1549s [00:52:29.616] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1549s [00:52:29.616] - Launch lazy future ... 1549s [00:52:29.616] Packages needed by the future expression (n = 0): 1549s [00:52:29.616] Packages needed by future strategies (n = 0): 1549s [00:52:29.617] { 1549s [00:52:29.617] { 1549s [00:52:29.617] { 1549s [00:52:29.617] ...future.startTime <- base::Sys.time() 1549s [00:52:29.617] { 1549s [00:52:29.617] { 1549s [00:52:29.617] { 1549s [00:52:29.617] base::local({ 1549s [00:52:29.617] has_future <- base::requireNamespace("future", 1549s [00:52:29.617] quietly = TRUE) 1549s [00:52:29.617] if (has_future) { 1549s [00:52:29.617] ns <- base::getNamespace("future") 1549s [00:52:29.617] version <- ns[[".package"]][["version"]] 1549s [00:52:29.617] if (is.null(version)) 1549s [00:52:29.617] version <- utils::packageVersion("future") 1549s [00:52:29.617] } 1549s [00:52:29.617] else { 1549s [00:52:29.617] version <- NULL 1549s [00:52:29.617] } 1549s [00:52:29.617] if (!has_future || version < "1.8.0") { 1549s [00:52:29.617] info <- base::c(r_version = base::gsub("R version ", 1549s [00:52:29.617] "", base::R.version$version.string), 1549s [00:52:29.617] platform = base::sprintf("%s (%s-bit)", 1549s [00:52:29.617] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1549s [00:52:29.617] os = base::paste(base::Sys.info()[base::c("sysname", 1549s [00:52:29.617] "release", "version")], collapse = " "), 1549s [00:52:29.617] hostname = base::Sys.info()[["nodename"]]) 1549s [00:52:29.617] info <- base::sprintf("%s: %s", base::names(info), 1549s [00:52:29.617] info) 1549s [00:52:29.617] info <- base::paste(info, collapse = "; ") 1549s [00:52:29.617] if (!has_future) { 1549s [00:52:29.617] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1549s [00:52:29.617] info) 1549s [00:52:29.617] } 1549s [00:52:29.617] else { 1549s [00:52:29.617] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1549s [00:52:29.617] info, version) 1549s [00:52:29.617] } 1549s [00:52:29.617] base::stop(msg) 1549s [00:52:29.617] } 1549s [00:52:29.617] }) 1549s [00:52:29.617] } 1549s [00:52:29.617] options(future.plan = NULL) 1549s [00:52:29.617] Sys.unsetenv("R_FUTURE_PLAN") 1549s [00:52:29.617] future::plan("default", .cleanup = FALSE, .init = FALSE) 1549s [00:52:29.617] } 1549s [00:52:29.617] ...future.workdir <- getwd() 1549s [00:52:29.617] } 1549s [00:52:29.617] ...future.oldOptions <- base::as.list(base::.Options) 1549s [00:52:29.617] ...future.oldEnvVars <- base::Sys.getenv() 1549s [00:52:29.617] } 1549s [00:52:29.617] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1549s [00:52:29.617] future.globals.maxSize = NULL, future.globals.method = NULL, 1549s [00:52:29.617] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1549s [00:52:29.617] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1549s [00:52:29.617] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1549s [00:52:29.617] future.stdout.windows.reencode = NULL, width = 80L) 1549s [00:52:29.617] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1549s [00:52:29.617] base::names(...future.oldOptions)) 1549s [00:52:29.617] } 1549s [00:52:29.617] if (FALSE) { 1549s [00:52:29.617] } 1549s [00:52:29.617] else { 1549s [00:52:29.617] if (TRUE) { 1549s [00:52:29.617] ...future.stdout <- base::rawConnection(base::raw(0L), 1549s [00:52:29.617] open = "w") 1549s [00:52:29.617] } 1549s [00:52:29.617] else { 1549s [00:52:29.617] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1549s [00:52:29.617] windows = "NUL", "/dev/null"), open = "w") 1549s [00:52:29.617] } 1549s [00:52:29.617] base::sink(...future.stdout, type = "output", split = FALSE) 1549s [00:52:29.617] base::on.exit(if (!base::is.null(...future.stdout)) { 1549s [00:52:29.617] base::sink(type = "output", split = FALSE) 1549s [00:52:29.617] base::close(...future.stdout) 1549s [00:52:29.617] }, add = TRUE) 1549s [00:52:29.617] } 1549s [00:52:29.617] ...future.frame <- base::sys.nframe() 1549s [00:52:29.617] ...future.conditions <- base::list() 1549s [00:52:29.617] ...future.rng <- base::globalenv()$.Random.seed 1549s [00:52:29.617] if (FALSE) { 1549s [00:52:29.617] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1549s [00:52:29.617] "...future.value", "...future.globalenv.names", ".Random.seed") 1549s [00:52:29.617] } 1549s [00:52:29.617] ...future.result <- base::tryCatch({ 1549s [00:52:29.617] base::withCallingHandlers({ 1549s [00:52:29.617] ...future.value <- base::withVisible(base::local({ 1549s [00:52:29.617] do.call(function(...) { 1549s [00:52:29.617] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.617] if (!identical(...future.globals.maxSize.org, 1549s [00:52:29.617] ...future.globals.maxSize)) { 1549s [00:52:29.617] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.617] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.617] } 1549s [00:52:29.617] { 1549s [00:52:29.617] lapply(seq_along(...future.elements_ii), 1549s [00:52:29.617] FUN = function(jj) { 1549s [00:52:29.617] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.617] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.617] }) 1549s [00:52:29.617] } 1549s [00:52:29.617] }, args = future.call.arguments) 1549s [00:52:29.617] })) 1549s [00:52:29.617] future::FutureResult(value = ...future.value$value, 1549s [00:52:29.617] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1549s [00:52:29.617] ...future.rng), globalenv = if (FALSE) 1549s [00:52:29.617] list(added = base::setdiff(base::names(base::.GlobalEnv), 1549s [00:52:29.617] ...future.globalenv.names)) 1549s [00:52:29.617] else NULL, started = ...future.startTime, version = "1.8") 1549s [00:52:29.617] }, condition = base::local({ 1549s [00:52:29.617] c <- base::c 1549s [00:52:29.617] inherits <- base::inherits 1549s [00:52:29.617] invokeRestart <- base::invokeRestart 1549s [00:52:29.617] length <- base::length 1549s [00:52:29.617] list <- base::list 1549s [00:52:29.617] seq.int <- base::seq.int 1549s [00:52:29.617] signalCondition <- base::signalCondition 1549s [00:52:29.617] sys.calls <- base::sys.calls 1549s [00:52:29.617] `[[` <- base::`[[` 1549s [00:52:29.617] `+` <- base::`+` 1549s [00:52:29.617] `<<-` <- base::`<<-` 1549s [00:52:29.617] sysCalls <- function(calls = sys.calls(), from = 1L) { 1549s [00:52:29.617] calls[seq.int(from = from + 12L, to = length(calls) - 1549s [00:52:29.617] 3L)] 1549s [00:52:29.617] } 1549s [00:52:29.617] function(cond) { 1549s [00:52:29.617] is_error <- inherits(cond, "error") 1549s [00:52:29.617] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1549s [00:52:29.617] NULL) 1549s [00:52:29.617] if (is_error) { 1549s [00:52:29.617] sessionInformation <- function() { 1549s [00:52:29.617] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1549s [00:52:29.617] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1549s [00:52:29.617] search = base::search(), system = base::Sys.info()) 1549s [00:52:29.617] } 1549s [00:52:29.617] ...future.conditions[[length(...future.conditions) + 1549s [00:52:29.617] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1549s [00:52:29.617] cond$call), session = sessionInformation(), 1549s [00:52:29.617] timestamp = base::Sys.time(), signaled = 0L) 1549s [00:52:29.617] signalCondition(cond) 1549s [00:52:29.617] } 1549s [00:52:29.617] else if (!ignore && TRUE && inherits(cond, c("condition", 1549s [00:52:29.617] "immediateCondition"))) { 1549s [00:52:29.617] signal <- TRUE && inherits(cond, "immediateCondition") 1549s [00:52:29.617] ...future.conditions[[length(...future.conditions) + 1549s [00:52:29.617] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1549s [00:52:29.617] if (TRUE && !signal) { 1549s [00:52:29.617] muffleCondition <- function (cond, pattern = "^muffle") 1549s [00:52:29.617] { 1549s [00:52:29.617] inherits <- base::inherits 1549s [00:52:29.617] invokeRestart <- base::invokeRestart 1549s [00:52:29.617] is.null <- base::is.null 1549s [00:52:29.617] muffled <- FALSE 1549s [00:52:29.617] if (inherits(cond, "message")) { 1549s [00:52:29.617] muffled <- grepl(pattern, "muffleMessage") 1549s [00:52:29.617] if (muffled) 1549s [00:52:29.617] invokeRestart("muffleMessage") 1549s [00:52:29.617] } 1549s [00:52:29.617] else if (inherits(cond, "warning")) { 1549s [00:52:29.617] muffled <- grepl(pattern, "muffleWarning") 1549s [00:52:29.617] if (muffled) 1549s [00:52:29.617] invokeRestart("muffleWarning") 1549s [00:52:29.617] } 1549s [00:52:29.617] else if (inherits(cond, "condition")) { 1549s [00:52:29.617] if (!is.null(pattern)) { 1549s [00:52:29.617] computeRestarts <- base::computeRestarts 1549s [00:52:29.617] grepl <- base::grepl 1549s [00:52:29.617] restarts <- computeRestarts(cond) 1549s [00:52:29.617] for (restart in restarts) { 1549s [00:52:29.617] name <- restart$name 1549s [00:52:29.617] if (is.null(name)) 1549s [00:52:29.617] next 1549s [00:52:29.617] if (!grepl(pattern, name)) 1549s [00:52:29.617] next 1549s [00:52:29.617] invokeRestart(restart) 1549s [00:52:29.617] muffled <- TRUE 1549s [00:52:29.617] break 1549s [00:52:29.617] } 1549s [00:52:29.617] } 1549s [00:52:29.617] } 1549s [00:52:29.617] invisible(muffled) 1549s [00:52:29.617] } 1549s [00:52:29.617] muffleCondition(cond, pattern = "^muffle") 1549s [00:52:29.617] } 1549s [00:52:29.617] } 1549s [00:52:29.617] else { 1549s [00:52:29.617] if (TRUE) { 1549s [00:52:29.617] muffleCondition <- function (cond, pattern = "^muffle") 1549s [00:52:29.617] { 1549s [00:52:29.617] inherits <- base::inherits 1549s [00:52:29.617] invokeRestart <- base::invokeRestart 1549s [00:52:29.617] is.null <- base::is.null 1549s [00:52:29.617] muffled <- FALSE 1549s [00:52:29.617] if (inherits(cond, "message")) { 1549s [00:52:29.617] muffled <- grepl(pattern, "muffleMessage") 1549s [00:52:29.617] if (muffled) 1549s [00:52:29.617] invokeRestart("muffleMessage") 1549s [00:52:29.617] } 1549s [00:52:29.617] else if (inherits(cond, "warning")) { 1549s [00:52:29.617] muffled <- grepl(pattern, "muffleWarning") 1549s [00:52:29.617] if (muffled) 1549s [00:52:29.617] invokeRestart("muffleWarning") 1549s [00:52:29.617] } 1549s [00:52:29.617] else if (inherits(cond, "condition")) { 1549s [00:52:29.617] if (!is.null(pattern)) { 1549s [00:52:29.617] computeRestarts <- base::computeRestarts 1549s [00:52:29.617] grepl <- base::grepl 1549s [00:52:29.617] restarts <- computeRestarts(cond) 1549s [00:52:29.617] for (restart in restarts) { 1549s [00:52:29.617] name <- restart$name 1549s [00:52:29.617] if (is.null(name)) 1549s [00:52:29.617] next 1549s [00:52:29.617] if (!grepl(pattern, name)) 1549s [00:52:29.617] next 1549s [00:52:29.617] invokeRestart(restart) 1549s [00:52:29.617] muffled <- TRUE 1549s [00:52:29.617] break 1549s [00:52:29.617] } 1549s [00:52:29.617] } 1549s [00:52:29.617] } 1549s [00:52:29.617] invisible(muffled) 1549s [00:52:29.617] } 1549s [00:52:29.617] muffleCondition(cond, pattern = "^muffle") 1549s [00:52:29.617] } 1549s [00:52:29.617] } 1549s [00:52:29.617] } 1549s [00:52:29.617] })) 1549s [00:52:29.617] }, error = function(ex) { 1549s [00:52:29.617] base::structure(base::list(value = NULL, visible = NULL, 1549s [00:52:29.617] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1549s [00:52:29.617] ...future.rng), started = ...future.startTime, 1549s [00:52:29.617] finished = Sys.time(), session_uuid = NA_character_, 1549s [00:52:29.617] version = "1.8"), class = "FutureResult") 1549s [00:52:29.617] }, finally = { 1549s [00:52:29.617] if (!identical(...future.workdir, getwd())) 1549s [00:52:29.617] setwd(...future.workdir) 1549s [00:52:29.617] { 1549s [00:52:29.617] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1549s [00:52:29.617] ...future.oldOptions$nwarnings <- NULL 1549s [00:52:29.617] } 1549s [00:52:29.617] base::options(...future.oldOptions) 1549s [00:52:29.617] if (.Platform$OS.type == "windows") { 1549s [00:52:29.617] old_names <- names(...future.oldEnvVars) 1549s [00:52:29.617] envs <- base::Sys.getenv() 1549s [00:52:29.617] names <- names(envs) 1549s [00:52:29.617] common <- intersect(names, old_names) 1549s [00:52:29.617] added <- setdiff(names, old_names) 1549s [00:52:29.617] removed <- setdiff(old_names, names) 1549s [00:52:29.617] changed <- common[...future.oldEnvVars[common] != 1549s [00:52:29.617] envs[common]] 1549s [00:52:29.617] NAMES <- toupper(changed) 1549s [00:52:29.617] args <- list() 1549s [00:52:29.617] for (kk in seq_along(NAMES)) { 1549s [00:52:29.617] name <- changed[[kk]] 1549s [00:52:29.617] NAME <- NAMES[[kk]] 1549s [00:52:29.617] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.617] next 1549s [00:52:29.617] args[[name]] <- ...future.oldEnvVars[[name]] 1549s [00:52:29.617] } 1549s [00:52:29.617] NAMES <- toupper(added) 1549s [00:52:29.617] for (kk in seq_along(NAMES)) { 1549s [00:52:29.617] name <- added[[kk]] 1549s [00:52:29.617] NAME <- NAMES[[kk]] 1549s [00:52:29.617] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.617] next 1549s [00:52:29.617] args[[name]] <- "" 1549s [00:52:29.617] } 1549s [00:52:29.617] NAMES <- toupper(removed) 1549s [00:52:29.617] for (kk in seq_along(NAMES)) { 1549s [00:52:29.617] name <- removed[[kk]] 1549s [00:52:29.617] NAME <- NAMES[[kk]] 1549s [00:52:29.617] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.617] next 1549s [00:52:29.617] args[[name]] <- ...future.oldEnvVars[[name]] 1549s [00:52:29.617] } 1549s [00:52:29.617] if (length(args) > 0) 1549s [00:52:29.617] base::do.call(base::Sys.setenv, args = args) 1549s [00:52:29.617] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1549s [00:52:29.617] } 1549s [00:52:29.617] else { 1549s [00:52:29.617] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1549s [00:52:29.617] } 1549s [00:52:29.617] { 1549s [00:52:29.617] if (base::length(...future.futureOptionsAdded) > 1549s [00:52:29.617] 0L) { 1549s [00:52:29.617] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1549s [00:52:29.617] base::names(opts) <- ...future.futureOptionsAdded 1549s [00:52:29.617] base::options(opts) 1549s [00:52:29.617] } 1549s [00:52:29.617] { 1549s [00:52:29.617] { 1549s [00:52:29.617] NULL 1549s [00:52:29.617] RNGkind("Mersenne-Twister") 1549s [00:52:29.617] base::rm(list = ".Random.seed", envir = base::globalenv(), 1549s [00:52:29.617] inherits = FALSE) 1549s [00:52:29.617] } 1549s [00:52:29.617] options(future.plan = NULL) 1549s [00:52:29.617] if (is.na(NA_character_)) 1549s [00:52:29.617] Sys.unsetenv("R_FUTURE_PLAN") 1549s [00:52:29.617] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1549s [00:52:29.617] future::plan(list(function (..., envir = parent.frame()) 1549s [00:52:29.617] { 1549s [00:52:29.617] future <- SequentialFuture(..., envir = envir) 1549s [00:52:29.617] if (!future$lazy) 1549s [00:52:29.617] future <- run(future) 1549s [00:52:29.617] invisible(future) 1549s [00:52:29.617] }), .cleanup = FALSE, .init = FALSE) 1549s [00:52:29.617] } 1549s [00:52:29.617] } 1549s [00:52:29.617] } 1549s [00:52:29.617] }) 1549s [00:52:29.617] if (TRUE) { 1549s [00:52:29.617] base::sink(type = "output", split = FALSE) 1549s [00:52:29.617] if (TRUE) { 1549s [00:52:29.617] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1549s [00:52:29.617] } 1549s [00:52:29.617] else { 1549s [00:52:29.617] ...future.result["stdout"] <- base::list(NULL) 1549s [00:52:29.617] } 1549s [00:52:29.617] base::close(...future.stdout) 1549s [00:52:29.617] ...future.stdout <- NULL 1549s [00:52:29.617] } 1549s [00:52:29.617] ...future.result$conditions <- ...future.conditions 1549s [00:52:29.617] ...future.result$finished <- base::Sys.time() 1549s [00:52:29.617] ...future.result 1549s [00:52:29.617] } 1549s [00:52:29.624] assign_globals() ... 1549s [00:52:29.624] List of 5 1549s [00:52:29.624] $ ...future.FUN :function (mode = "logical", length = 0L) 1549s [00:52:29.624] $ future.call.arguments :List of 1 1549s [00:52:29.624] ..$ length: int 2 1549s [00:52:29.624] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1549s [00:52:29.624] $ ...future.elements_ii :List of 4 1549s [00:52:29.624] ..$ a: chr "integer" 1549s [00:52:29.624] ..$ b: chr "numeric" 1549s [00:52:29.624] ..$ c: chr "character" 1549s [00:52:29.624] ..$ c: chr "list" 1549s [00:52:29.624] $ ...future.seeds_ii : NULL 1549s [00:52:29.624] $ ...future.globals.maxSize: NULL 1549s [00:52:29.624] - attr(*, "where")=List of 5 1549s [00:52:29.624] ..$ ...future.FUN : 1549s [00:52:29.624] ..$ future.call.arguments : 1549s [00:52:29.624] ..$ ...future.elements_ii : 1549s [00:52:29.624] ..$ ...future.seeds_ii : 1549s [00:52:29.624] ..$ ...future.globals.maxSize: 1549s [00:52:29.624] - attr(*, "resolved")= logi FALSE 1549s [00:52:29.624] - attr(*, "total_size")= num 2240 1549s [00:52:29.624] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1549s [00:52:29.624] - attr(*, "already-done")= logi TRUE 1549s [00:52:29.635] - copied ‘...future.FUN’ to environment 1549s [00:52:29.635] - copied ‘future.call.arguments’ to environment 1549s [00:52:29.635] - copied ‘...future.elements_ii’ to environment 1549s [00:52:29.635] - copied ‘...future.seeds_ii’ to environment 1549s [00:52:29.635] - copied ‘...future.globals.maxSize’ to environment 1549s [00:52:29.635] assign_globals() ... done 1549s [00:52:29.636] plan(): Setting new future strategy stack: 1549s [00:52:29.636] List of future strategies: 1549s [00:52:29.636] 1. sequential: 1549s [00:52:29.636] - args: function (..., envir = parent.frame()) 1549s [00:52:29.636] - tweaked: FALSE 1549s [00:52:29.636] - call: NULL 1549s [00:52:29.636] plan(): nbrOfWorkers() = 1 1549s [00:52:29.637] plan(): Setting new future strategy stack: 1549s [00:52:29.638] List of future strategies: 1549s [00:52:29.638] 1. sequential: 1549s [00:52:29.638] - args: function (..., envir = parent.frame()) 1549s [00:52:29.638] - tweaked: FALSE 1549s [00:52:29.638] - call: plan(strategy) 1549s [00:52:29.638] plan(): nbrOfWorkers() = 1 1549s [00:52:29.640] SequentialFuture started (and completed) 1549s [00:52:29.640] - Launch lazy future ... done 1549s [00:52:29.640] run() for ‘SequentialFuture’ ... done 1549s [00:52:29.641] Created future: 1549s [00:52:29.641] SequentialFuture: 1549s [00:52:29.641] Label: ‘future_lapply-1’ 1549s [00:52:29.641] Expression: 1549s [00:52:29.641] { 1549s [00:52:29.641] do.call(function(...) { 1549s [00:52:29.641] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.641] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1549s [00:52:29.641] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.641] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.641] } 1549s [00:52:29.641] { 1549s [00:52:29.641] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1549s [00:52:29.641] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.641] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.641] }) 1549s [00:52:29.641] } 1549s [00:52:29.641] }, args = future.call.arguments) 1549s [00:52:29.641] } 1549s [00:52:29.641] Lazy evaluation: FALSE 1549s [00:52:29.641] Asynchronous evaluation: FALSE 1549s [00:52:29.641] Local evaluation: TRUE 1549s [00:52:29.641] Environment: R_GlobalEnv 1549s [00:52:29.641] Capture standard output: TRUE 1549s [00:52:29.641] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1549s [00:52:29.641] Globals: 5 objects totaling 2.63 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 456 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1549s [00:52:29.641] Packages: 1549s [00:52:29.641] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1549s [00:52:29.641] Resolved: TRUE 1549s [00:52:29.641] Value: 240 bytes of class ‘list’ 1549s [00:52:29.641] Early signaling: FALSE 1549s [00:52:29.641] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1549s [00:52:29.641] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1549s [00:52:29.644] Chunk #1 of 1 ... DONE 1549s [00:52:29.644] Launching 1 futures (chunks) ... DONE 1549s [00:52:29.644] Resolving 1 futures (chunks) ... 1549s [00:52:29.645] resolve() on list ... 1549s [00:52:29.645] recursive: 0 1549s [00:52:29.645] length: 1 1549s [00:52:29.645] 1549s [00:52:29.645] resolved() for ‘SequentialFuture’ ... 1549s [00:52:29.646] - state: ‘finished’ 1549s [00:52:29.646] - run: TRUE 1549s [00:52:29.646] - result: ‘FutureResult’ 1549s [00:52:29.646] resolved() for ‘SequentialFuture’ ... done 1549s [00:52:29.646] Future #1 1549s [00:52:29.647] signalConditionsASAP(SequentialFuture, pos=1) ... 1549s [00:52:29.647] - nx: 1 1549s [00:52:29.647] - relay: TRUE 1549s [00:52:29.647] - stdout: TRUE 1549s [00:52:29.648] - signal: TRUE 1549s [00:52:29.648] - resignal: FALSE 1549s [00:52:29.648] - force: TRUE 1549s [00:52:29.648] - relayed: [n=1] FALSE 1549s [00:52:29.648] - queued futures: [n=1] FALSE 1549s [00:52:29.649] - until=1 1549s [00:52:29.649] - relaying element #1 1549s [00:52:29.649] - relayed: [n=1] TRUE 1549s [00:52:29.649] - queued futures: [n=1] TRUE 1549s [00:52:29.649] signalConditionsASAP(SequentialFuture, pos=1) ... done 1549s [00:52:29.650] length: 0 (resolved future 1) 1549s [00:52:29.650] Relaying remaining futures 1549s [00:52:29.650] signalConditionsASAP(NULL, pos=0) ... 1549s [00:52:29.650] - nx: 1 1549s [00:52:29.650] - relay: TRUE 1549s [00:52:29.651] - stdout: TRUE 1549s [00:52:29.651] - signal: TRUE 1549s [00:52:29.651] - resignal: FALSE 1549s [00:52:29.651] - force: TRUE 1549s [00:52:29.651] - relayed: [n=1] TRUE 1549s [00:52:29.651] - queued futures: [n=1] TRUE 1549s - flush all 1549s [00:52:29.652] - relayed: [n=1] TRUE 1549s [00:52:29.652] - queued futures: [n=1] TRUE 1549s [00:52:29.652] signalConditionsASAP(NULL, pos=0) ... done 1549s [00:52:29.652] resolve() on list ... DONE 1549s [00:52:29.652] - Number of value chunks collected: 1 1549s [00:52:29.653] Resolving 1 futures (chunks) ... DONE 1549s [00:52:29.653] Reducing values from 1 chunks ... 1549s [00:52:29.653] - Number of values collected after concatenation: 4 1549s [00:52:29.653] - Number of values expected: 4 1549s [00:52:29.653] Reducing values from 1 chunks ... DONE 1549s [00:52:29.654] future_lapply() ... DONE 1549s List of 1 1549s $ y:List of 4 1549s ..$ a: int [1:2] 0 0 1549s ..$ b: num [1:2] 0 0 1549s ..$ c: chr [1:2] "" "" 1549s ..$ c:List of 2 1549s .. ..$ : NULL 1549s .. ..$ : NULL 1549s [00:52:29.657] future_lapply() ... 1549s [00:52:29.658] Number of chunks: 1 1549s [00:52:29.658] getGlobalsAndPackagesXApply() ... 1549s [00:52:29.658] - future.globals: TRUE 1549s [00:52:29.659] getGlobalsAndPackages() ... 1549s [00:52:29.659] Searching for globals... 1549s [00:52:29.660] - globals found: [2] ‘FUN’, ‘.Internal’ 1549s [00:52:29.660] Searching for globals ... DONE 1549s [00:52:29.660] Resolving globals: FALSE 1549s [00:52:29.661] The total size of the 1 globals is 2.13 KiB (2184 bytes) 1549s [00:52:29.661] The total size of the 1 globals exported for future expression (‘FUN(length = 2L)’) is 2.13 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (2.13 KiB of class ‘function’) 1549s [00:52:29.662] - globals: [1] ‘FUN’ 1549s [00:52:29.662] 1549s [00:52:29.662] getGlobalsAndPackages() ... DONE 1549s [00:52:29.662] - globals found/used: [n=1] ‘FUN’ 1549s [00:52:29.662] - needed namespaces: [n=0] 1549s [00:52:29.662] Finding globals ... DONE 1549s [00:52:29.662] - use_args: TRUE 1549s [00:52:29.663] - Getting '...' globals ... 1549s [00:52:29.663] resolve() on list ... 1549s [00:52:29.663] recursive: 0 1549s [00:52:29.663] length: 1 1549s [00:52:29.663] elements: ‘...’ 1549s [00:52:29.663] length: 0 (resolved future 1) 1549s [00:52:29.664] resolve() on list ... DONE 1549s [00:52:29.664] - '...' content: [n=1] ‘length’ 1549s [00:52:29.664] List of 1 1549s [00:52:29.664] $ ...:List of 1 1549s [00:52:29.664] ..$ length: int 2 1549s [00:52:29.664] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1549s [00:52:29.664] - attr(*, "where")=List of 1 1549s [00:52:29.664] ..$ ...: 1549s [00:52:29.664] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1549s [00:52:29.664] - attr(*, "resolved")= logi TRUE 1549s [00:52:29.664] - attr(*, "total_size")= num NA 1549s [00:52:29.668] - Getting '...' globals ... DONE 1549s [00:52:29.668] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1549s [00:52:29.669] List of 2 1549s [00:52:29.669] $ ...future.FUN:function (mode = "logical", length = 0L) 1549s [00:52:29.669] $ ... :List of 1 1549s [00:52:29.669] ..$ length: int 2 1549s [00:52:29.669] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1549s [00:52:29.669] - attr(*, "where")=List of 2 1549s [00:52:29.669] ..$ ...future.FUN: 1549s [00:52:29.669] ..$ ... : 1549s [00:52:29.669] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1549s [00:52:29.669] - attr(*, "resolved")= logi FALSE 1549s [00:52:29.669] - attr(*, "total_size")= num 2240 1549s [00:52:29.674] Packages to be attached in all futures: [n=0] 1549s [00:52:29.674] getGlobalsAndPackagesXApply() ... DONE 1549s [00:52:29.674] Number of futures (= number of chunks): 1 1549s [00:52:29.675] Launching 1 futures (chunks) ... 1549s [00:52:29.675] Chunk #1 of 1 ... 1549s [00:52:29.675] - Finding globals in 'X' for chunk #1 ... 1549s [00:52:29.675] getGlobalsAndPackages() ... 1549s [00:52:29.676] Searching for globals... 1549s [00:52:29.676] 1549s [00:52:29.676] Searching for globals ... DONE 1549s [00:52:29.677] - globals: [0] 1549s [00:52:29.677] getGlobalsAndPackages() ... DONE 1549s [00:52:29.677] + additional globals found: [n=0] 1549s [00:52:29.677] + additional namespaces needed: [n=0] 1549s [00:52:29.677] - Finding globals in 'X' for chunk #1 ... DONE 1549s [00:52:29.677] - seeds: 1549s [00:52:29.678] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.678] getGlobalsAndPackages() ... 1549s [00:52:29.678] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.678] Resolving globals: FALSE 1549s [00:52:29.678] Tweak future expression to call with '...' arguments ... 1549s [00:52:29.679] { 1549s [00:52:29.679] do.call(function(...) { 1549s [00:52:29.679] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.679] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1549s [00:52:29.679] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.679] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.679] } 1549s [00:52:29.679] { 1549s [00:52:29.679] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1549s [00:52:29.679] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.679] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.679] }) 1549s [00:52:29.679] } 1549s [00:52:29.679] }, args = future.call.arguments) 1549s [00:52:29.679] } 1549s [00:52:29.679] Tweak future expression to call with '...' arguments ... DONE 1549s [00:52:29.680] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.680] 1549s [00:52:29.680] getGlobalsAndPackages() ... DONE 1549s [00:52:29.680] run() for ‘Future’ ... 1549s [00:52:29.680] - state: ‘created’ 1549s [00:52:29.683] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1549s [00:52:29.683] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1549s [00:52:29.684] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1549s [00:52:29.684] - Field: ‘label’ 1549s [00:52:29.684] - Field: ‘local’ 1549s [00:52:29.684] - Field: ‘owner’ 1549s [00:52:29.684] - Field: ‘envir’ 1549s [00:52:29.684] - Field: ‘packages’ 1549s [00:52:29.685] - Field: ‘gc’ 1549s [00:52:29.685] - Field: ‘conditions’ 1549s [00:52:29.685] - Field: ‘expr’ 1549s [00:52:29.685] - Field: ‘uuid’ 1549s [00:52:29.685] - Field: ‘seed’ 1549s [00:52:29.685] - Field: ‘version’ 1549s [00:52:29.686] - Field: ‘result’ 1549s [00:52:29.686] - Field: ‘asynchronous’ 1549s [00:52:29.686] - Field: ‘calls’ 1549s [00:52:29.686] - Field: ‘globals’ 1549s [00:52:29.687] - Field: ‘stdout’ 1549s [00:52:29.687] - Field: ‘earlySignal’ 1549s [00:52:29.688] - Field: ‘lazy’ 1549s [00:52:29.688] - Field: ‘state’ 1549s [00:52:29.688] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1549s [00:52:29.689] - Launch lazy future ... 1549s [00:52:29.689] Packages needed by the future expression (n = 0): 1549s [00:52:29.689] Packages needed by future strategies (n = 0): 1549s [00:52:29.691] { 1549s [00:52:29.691] { 1549s [00:52:29.691] { 1549s [00:52:29.691] ...future.startTime <- base::Sys.time() 1549s [00:52:29.691] { 1549s [00:52:29.691] { 1549s [00:52:29.691] { 1549s [00:52:29.691] base::local({ 1549s [00:52:29.691] has_future <- base::requireNamespace("future", 1549s [00:52:29.691] quietly = TRUE) 1549s [00:52:29.691] if (has_future) { 1549s [00:52:29.691] ns <- base::getNamespace("future") 1549s [00:52:29.691] version <- ns[[".package"]][["version"]] 1549s [00:52:29.691] if (is.null(version)) 1549s [00:52:29.691] version <- utils::packageVersion("future") 1549s [00:52:29.691] } 1549s [00:52:29.691] else { 1549s [00:52:29.691] version <- NULL 1549s [00:52:29.691] } 1549s [00:52:29.691] if (!has_future || version < "1.8.0") { 1549s [00:52:29.691] info <- base::c(r_version = base::gsub("R version ", 1549s [00:52:29.691] "", base::R.version$version.string), 1549s [00:52:29.691] platform = base::sprintf("%s (%s-bit)", 1549s [00:52:29.691] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1549s [00:52:29.691] os = base::paste(base::Sys.info()[base::c("sysname", 1549s [00:52:29.691] "release", "version")], collapse = " "), 1549s [00:52:29.691] hostname = base::Sys.info()[["nodename"]]) 1549s [00:52:29.691] info <- base::sprintf("%s: %s", base::names(info), 1549s [00:52:29.691] info) 1549s [00:52:29.691] info <- base::paste(info, collapse = "; ") 1549s [00:52:29.691] if (!has_future) { 1549s [00:52:29.691] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1549s [00:52:29.691] info) 1549s [00:52:29.691] } 1549s [00:52:29.691] else { 1549s [00:52:29.691] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1549s [00:52:29.691] info, version) 1549s [00:52:29.691] } 1549s [00:52:29.691] base::stop(msg) 1549s [00:52:29.691] } 1549s [00:52:29.691] }) 1549s [00:52:29.691] } 1549s [00:52:29.691] options(future.plan = NULL) 1549s [00:52:29.691] Sys.unsetenv("R_FUTURE_PLAN") 1549s [00:52:29.691] future::plan("default", .cleanup = FALSE, .init = FALSE) 1549s [00:52:29.691] } 1549s [00:52:29.691] ...future.workdir <- getwd() 1549s [00:52:29.691] } 1549s [00:52:29.691] ...future.oldOptions <- base::as.list(base::.Options) 1549s [00:52:29.691] ...future.oldEnvVars <- base::Sys.getenv() 1549s [00:52:29.691] } 1549s [00:52:29.691] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1549s [00:52:29.691] future.globals.maxSize = NULL, future.globals.method = NULL, 1549s [00:52:29.691] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1549s [00:52:29.691] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1549s [00:52:29.691] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1549s [00:52:29.691] future.stdout.windows.reencode = NULL, width = 80L) 1549s [00:52:29.691] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1549s [00:52:29.691] base::names(...future.oldOptions)) 1549s [00:52:29.691] } 1549s [00:52:29.691] if (FALSE) { 1549s [00:52:29.691] } 1549s [00:52:29.691] else { 1549s [00:52:29.691] if (TRUE) { 1549s [00:52:29.691] ...future.stdout <- base::rawConnection(base::raw(0L), 1549s [00:52:29.691] open = "w") 1549s [00:52:29.691] } 1549s [00:52:29.691] else { 1549s [00:52:29.691] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1549s [00:52:29.691] windows = "NUL", "/dev/null"), open = "w") 1549s [00:52:29.691] } 1549s [00:52:29.691] base::sink(...future.stdout, type = "output", split = FALSE) 1549s [00:52:29.691] base::on.exit(if (!base::is.null(...future.stdout)) { 1549s [00:52:29.691] base::sink(type = "output", split = FALSE) 1549s [00:52:29.691] base::close(...future.stdout) 1549s [00:52:29.691] }, add = TRUE) 1549s [00:52:29.691] } 1549s [00:52:29.691] ...future.frame <- base::sys.nframe() 1549s [00:52:29.691] ...future.conditions <- base::list() 1549s [00:52:29.691] ...future.rng <- base::globalenv()$.Random.seed 1549s [00:52:29.691] if (FALSE) { 1549s [00:52:29.691] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1549s [00:52:29.691] "...future.value", "...future.globalenv.names", ".Random.seed") 1549s [00:52:29.691] } 1549s [00:52:29.691] ...future.result <- base::tryCatch({ 1549s [00:52:29.691] base::withCallingHandlers({ 1549s [00:52:29.691] ...future.value <- base::withVisible(base::local({ 1549s [00:52:29.691] do.call(function(...) { 1549s [00:52:29.691] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.691] if (!identical(...future.globals.maxSize.org, 1549s [00:52:29.691] ...future.globals.maxSize)) { 1549s [00:52:29.691] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.691] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.691] } 1549s [00:52:29.691] { 1549s [00:52:29.691] lapply(seq_along(...future.elements_ii), 1549s [00:52:29.691] FUN = function(jj) { 1549s [00:52:29.691] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.691] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.691] }) 1549s [00:52:29.691] } 1549s [00:52:29.691] }, args = future.call.arguments) 1549s [00:52:29.691] })) 1549s [00:52:29.691] future::FutureResult(value = ...future.value$value, 1549s [00:52:29.691] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1549s [00:52:29.691] ...future.rng), globalenv = if (FALSE) 1549s [00:52:29.691] list(added = base::setdiff(base::names(base::.GlobalEnv), 1549s [00:52:29.691] ...future.globalenv.names)) 1549s [00:52:29.691] else NULL, started = ...future.startTime, version = "1.8") 1549s [00:52:29.691] }, condition = base::local({ 1549s [00:52:29.691] c <- base::c 1549s [00:52:29.691] inherits <- base::inherits 1549s [00:52:29.691] invokeRestart <- base::invokeRestart 1549s [00:52:29.691] length <- base::length 1549s [00:52:29.691] list <- base::list 1549s [00:52:29.691] seq.int <- base::seq.int 1549s [00:52:29.691] signalCondition <- base::signalCondition 1549s [00:52:29.691] sys.calls <- base::sys.calls 1549s [00:52:29.691] `[[` <- base::`[[` 1549s [00:52:29.691] `+` <- base::`+` 1549s [00:52:29.691] `<<-` <- base::`<<-` 1549s [00:52:29.691] sysCalls <- function(calls = sys.calls(), from = 1L) { 1549s [00:52:29.691] calls[seq.int(from = from + 12L, to = length(calls) - 1549s [00:52:29.691] 3L)] 1549s [00:52:29.691] } 1549s [00:52:29.691] function(cond) { 1549s [00:52:29.691] is_error <- inherits(cond, "error") 1549s [00:52:29.691] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1549s [00:52:29.691] NULL) 1549s [00:52:29.691] if (is_error) { 1549s [00:52:29.691] sessionInformation <- function() { 1549s [00:52:29.691] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1549s [00:52:29.691] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1549s [00:52:29.691] search = base::search(), system = base::Sys.info()) 1549s [00:52:29.691] } 1549s [00:52:29.691] ...future.conditions[[length(...future.conditions) + 1549s [00:52:29.691] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1549s [00:52:29.691] cond$call), session = sessionInformation(), 1549s [00:52:29.691] timestamp = base::Sys.time(), signaled = 0L) 1549s [00:52:29.691] signalCondition(cond) 1549s [00:52:29.691] } 1549s [00:52:29.691] else if (!ignore && TRUE && inherits(cond, c("condition", 1549s [00:52:29.691] "immediateCondition"))) { 1549s [00:52:29.691] signal <- TRUE && inherits(cond, "immediateCondition") 1549s [00:52:29.691] ...future.conditions[[length(...future.conditions) + 1549s [00:52:29.691] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1549s [00:52:29.691] if (TRUE && !signal) { 1549s [00:52:29.691] muffleCondition <- function (cond, pattern = "^muffle") 1549s [00:52:29.691] { 1549s [00:52:29.691] inherits <- base::inherits 1549s [00:52:29.691] invokeRestart <- base::invokeRestart 1549s [00:52:29.691] is.null <- base::is.null 1549s [00:52:29.691] muffled <- FALSE 1549s [00:52:29.691] if (inherits(cond, "message")) { 1549s [00:52:29.691] muffled <- grepl(pattern, "muffleMessage") 1549s [00:52:29.691] if (muffled) 1549s [00:52:29.691] invokeRestart("muffleMessage") 1549s [00:52:29.691] } 1549s [00:52:29.691] else if (inherits(cond, "warning")) { 1549s [00:52:29.691] muffled <- grepl(pattern, "muffleWarning") 1549s [00:52:29.691] if (muffled) 1549s [00:52:29.691] invokeRestart("muffleWarning") 1549s [00:52:29.691] } 1549s [00:52:29.691] else if (inherits(cond, "condition")) { 1549s [00:52:29.691] if (!is.null(pattern)) { 1549s [00:52:29.691] computeRestarts <- base::computeRestarts 1549s [00:52:29.691] grepl <- base::grepl 1549s [00:52:29.691] restarts <- computeRestarts(cond) 1549s [00:52:29.691] for (restart in restarts) { 1549s [00:52:29.691] name <- restart$name 1549s [00:52:29.691] if (is.null(name)) 1549s [00:52:29.691] next 1549s [00:52:29.691] if (!grepl(pattern, name)) 1549s [00:52:29.691] next 1549s [00:52:29.691] invokeRestart(restart) 1549s [00:52:29.691] muffled <- TRUE 1549s [00:52:29.691] break 1549s [00:52:29.691] } 1549s [00:52:29.691] } 1549s [00:52:29.691] } 1549s [00:52:29.691] invisible(muffled) 1549s [00:52:29.691] } 1549s [00:52:29.691] muffleCondition(cond, pattern = "^muffle") 1549s [00:52:29.691] } 1549s [00:52:29.691] } 1549s [00:52:29.691] else { 1549s [00:52:29.691] if (TRUE) { 1549s [00:52:29.691] muffleCondition <- function (cond, pattern = "^muffle") 1549s [00:52:29.691] { 1549s [00:52:29.691] inherits <- base::inherits 1549s [00:52:29.691] invokeRestart <- base::invokeRestart 1549s [00:52:29.691] is.null <- base::is.null 1549s [00:52:29.691] muffled <- FALSE 1549s [00:52:29.691] if (inherits(cond, "message")) { 1549s [00:52:29.691] muffled <- grepl(pattern, "muffleMessage") 1549s [00:52:29.691] if (muffled) 1549s [00:52:29.691] invokeRestart("muffleMessage") 1549s [00:52:29.691] } 1549s [00:52:29.691] else if (inherits(cond, "warning")) { 1549s [00:52:29.691] muffled <- grepl(pattern, "muffleWarning") 1549s [00:52:29.691] if (muffled) 1549s [00:52:29.691] invokeRestart("muffleWarning") 1549s [00:52:29.691] } 1549s [00:52:29.691] else if (inherits(cond, "condition")) { 1549s [00:52:29.691] if (!is.null(pattern)) { 1549s [00:52:29.691] computeRestarts <- base::computeRestarts 1549s [00:52:29.691] grepl <- base::grepl 1549s [00:52:29.691] restarts <- computeRestarts(cond) 1549s [00:52:29.691] for (restart in restarts) { 1549s [00:52:29.691] name <- restart$name 1549s [00:52:29.691] if (is.null(name)) 1549s [00:52:29.691] next 1549s [00:52:29.691] if (!grepl(pattern, name)) 1549s [00:52:29.691] next 1549s [00:52:29.691] invokeRestart(restart) 1549s [00:52:29.691] muffled <- TRUE 1549s [00:52:29.691] break 1549s [00:52:29.691] } 1549s [00:52:29.691] } 1549s [00:52:29.691] } 1549s [00:52:29.691] invisible(muffled) 1549s [00:52:29.691] } 1549s [00:52:29.691] muffleCondition(cond, pattern = "^muffle") 1549s [00:52:29.691] } 1549s [00:52:29.691] } 1549s [00:52:29.691] } 1549s [00:52:29.691] })) 1549s [00:52:29.691] }, error = function(ex) { 1549s [00:52:29.691] base::structure(base::list(value = NULL, visible = NULL, 1549s [00:52:29.691] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1549s [00:52:29.691] ...future.rng), started = ...future.startTime, 1549s [00:52:29.691] finished = Sys.time(), session_uuid = NA_character_, 1549s [00:52:29.691] version = "1.8"), class = "FutureResult") 1549s [00:52:29.691] }, finally = { 1549s [00:52:29.691] if (!identical(...future.workdir, getwd())) 1549s [00:52:29.691] setwd(...future.workdir) 1549s [00:52:29.691] { 1549s [00:52:29.691] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1549s [00:52:29.691] ...future.oldOptions$nwarnings <- NULL 1549s [00:52:29.691] } 1549s [00:52:29.691] base::options(...future.oldOptions) 1549s [00:52:29.691] if (.Platform$OS.type == "windows") { 1549s [00:52:29.691] old_names <- names(...future.oldEnvVars) 1549s [00:52:29.691] envs <- base::Sys.getenv() 1549s [00:52:29.691] names <- names(envs) 1549s [00:52:29.691] common <- intersect(names, old_names) 1549s [00:52:29.691] added <- setdiff(names, old_names) 1549s [00:52:29.691] removed <- setdiff(old_names, names) 1549s [00:52:29.691] changed <- common[...future.oldEnvVars[common] != 1549s [00:52:29.691] envs[common]] 1549s [00:52:29.691] NAMES <- toupper(changed) 1549s [00:52:29.691] args <- list() 1549s [00:52:29.691] for (kk in seq_along(NAMES)) { 1549s [00:52:29.691] name <- changed[[kk]] 1549s [00:52:29.691] NAME <- NAMES[[kk]] 1549s [00:52:29.691] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.691] next 1549s [00:52:29.691] args[[name]] <- ...future.oldEnvVars[[name]] 1549s [00:52:29.691] } 1549s [00:52:29.691] NAMES <- toupper(added) 1549s [00:52:29.691] for (kk in seq_along(NAMES)) { 1549s [00:52:29.691] name <- added[[kk]] 1549s [00:52:29.691] NAME <- NAMES[[kk]] 1549s [00:52:29.691] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.691] next 1549s [00:52:29.691] args[[name]] <- "" 1549s [00:52:29.691] } 1549s [00:52:29.691] NAMES <- toupper(removed) 1549s [00:52:29.691] for (kk in seq_along(NAMES)) { 1549s [00:52:29.691] name <- removed[[kk]] 1549s [00:52:29.691] NAME <- NAMES[[kk]] 1549s [00:52:29.691] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.691] next 1549s [00:52:29.691] args[[name]] <- ...future.oldEnvVars[[name]] 1549s [00:52:29.691] } 1549s [00:52:29.691] if (length(args) > 0) 1549s [00:52:29.691] base::do.call(base::Sys.setenv, args = args) 1549s [00:52:29.691] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1549s [00:52:29.691] } 1549s [00:52:29.691] else { 1549s [00:52:29.691] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1549s [00:52:29.691] } 1549s [00:52:29.691] { 1549s [00:52:29.691] if (base::length(...future.futureOptionsAdded) > 1549s [00:52:29.691] 0L) { 1549s [00:52:29.691] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1549s [00:52:29.691] base::names(opts) <- ...future.futureOptionsAdded 1549s [00:52:29.691] base::options(opts) 1549s [00:52:29.691] } 1549s [00:52:29.691] { 1549s [00:52:29.691] { 1549s [00:52:29.691] NULL 1549s [00:52:29.691] RNGkind("Mersenne-Twister") 1549s [00:52:29.691] base::rm(list = ".Random.seed", envir = base::globalenv(), 1549s [00:52:29.691] inherits = FALSE) 1549s [00:52:29.691] } 1549s [00:52:29.691] options(future.plan = NULL) 1549s [00:52:29.691] if (is.na(NA_character_)) 1549s [00:52:29.691] Sys.unsetenv("R_FUTURE_PLAN") 1549s [00:52:29.691] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1549s [00:52:29.691] future::plan(list(function (..., envir = parent.frame()) 1549s [00:52:29.691] { 1549s [00:52:29.691] future <- SequentialFuture(..., envir = envir) 1549s [00:52:29.691] if (!future$lazy) 1549s [00:52:29.691] future <- run(future) 1549s [00:52:29.691] invisible(future) 1549s [00:52:29.691] }), .cleanup = FALSE, .init = FALSE) 1549s [00:52:29.691] } 1549s [00:52:29.691] } 1549s [00:52:29.691] } 1549s [00:52:29.691] }) 1549s [00:52:29.691] if (TRUE) { 1549s [00:52:29.691] base::sink(type = "output", split = FALSE) 1549s [00:52:29.691] if (TRUE) { 1549s [00:52:29.691] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1549s [00:52:29.691] } 1549s [00:52:29.691] else { 1549s [00:52:29.691] ...future.result["stdout"] <- base::list(NULL) 1549s [00:52:29.691] } 1549s [00:52:29.691] base::close(...future.stdout) 1549s [00:52:29.691] ...future.stdout <- NULL 1549s [00:52:29.691] } 1549s [00:52:29.691] ...future.result$conditions <- ...future.conditions 1549s [00:52:29.691] ...future.result$finished <- base::Sys.time() 1549s [00:52:29.691] ...future.result 1549s [00:52:29.691] } 1549s [00:52:29.698] assign_globals() ... 1549s [00:52:29.698] List of 5 1549s [00:52:29.698] $ ...future.FUN :function (mode = "logical", length = 0L) 1549s [00:52:29.698] $ future.call.arguments :List of 1 1549s [00:52:29.698] ..$ length: int 2 1549s [00:52:29.698] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1549s [00:52:29.698] $ ...future.elements_ii :List of 4 1549s [00:52:29.698] ..$ a: chr "integer" 1549s [00:52:29.698] ..$ b: chr "numeric" 1549s [00:52:29.698] ..$ c: chr "character" 1549s [00:52:29.698] ..$ c: chr "list" 1549s [00:52:29.698] $ ...future.seeds_ii : NULL 1549s [00:52:29.698] $ ...future.globals.maxSize: NULL 1549s [00:52:29.698] - attr(*, "where")=List of 5 1549s [00:52:29.698] ..$ ...future.FUN : 1549s [00:52:29.698] ..$ future.call.arguments : 1549s [00:52:29.698] ..$ ...future.elements_ii : 1549s [00:52:29.698] ..$ ...future.seeds_ii : 1549s [00:52:29.698] ..$ ...future.globals.maxSize: 1549s [00:52:29.698] - attr(*, "resolved")= logi FALSE 1549s [00:52:29.698] - attr(*, "total_size")= num 2240 1549s [00:52:29.698] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1549s [00:52:29.698] - attr(*, "already-done")= logi TRUE 1549s [00:52:29.710] - copied ‘...future.FUN’ to environment 1549s [00:52:29.710] - copied ‘future.call.arguments’ to environment 1549s [00:52:29.711] - copied ‘...future.elements_ii’ to environment 1549s [00:52:29.711] - copied ‘...future.seeds_ii’ to environment 1549s [00:52:29.711] - copied ‘...future.globals.maxSize’ to environment 1549s [00:52:29.711] assign_globals() ... done 1549s [00:52:29.712] plan(): Setting new future strategy stack: 1549s [00:52:29.712] List of future strategies: 1549s [00:52:29.712] 1. sequential: 1549s [00:52:29.712] - args: function (..., envir = parent.frame()) 1549s [00:52:29.712] - tweaked: FALSE 1549s [00:52:29.712] - call: NULL 1549s [00:52:29.712] plan(): nbrOfWorkers() = 1 1549s [00:52:29.713] plan(): Setting new future strategy stack: 1549s [00:52:29.713] List of future strategies: 1549s [00:52:29.713] 1. sequential: 1549s [00:52:29.713] - args: function (..., envir = parent.frame()) 1549s [00:52:29.713] - tweaked: FALSE 1549s [00:52:29.713] - call: plan(strategy) 1549s [00:52:29.714] plan(): nbrOfWorkers() = 1 1549s [00:52:29.714] SequentialFuture started (and completed) 1549s [00:52:29.714] - Launch lazy future ... done 1549s [00:52:29.714] run() for ‘SequentialFuture’ ... done 1549s [00:52:29.715] Created future: 1549s [00:52:29.715] SequentialFuture: 1549s [00:52:29.715] Label: ‘future_lapply-1’ 1549s [00:52:29.715] Expression: 1549s [00:52:29.715] { 1549s [00:52:29.715] do.call(function(...) { 1549s [00:52:29.715] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.715] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1549s [00:52:29.715] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.715] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.715] } 1549s [00:52:29.715] { 1549s [00:52:29.715] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1549s [00:52:29.715] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.715] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.715] }) 1549s [00:52:29.715] } 1549s [00:52:29.715] }, args = future.call.arguments) 1549s [00:52:29.715] } 1549s [00:52:29.715] Lazy evaluation: FALSE 1549s [00:52:29.715] Asynchronous evaluation: FALSE 1549s [00:52:29.715] Local evaluation: TRUE 1549s [00:52:29.715] Environment: R_GlobalEnv 1549s [00:52:29.715] Capture standard output: TRUE 1549s [00:52:29.715] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1549s [00:52:29.715] Globals: 5 objects totaling 2.63 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 456 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1549s [00:52:29.715] Packages: 1549s [00:52:29.715] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1549s [00:52:29.715] Resolved: TRUE 1549s [00:52:29.715] Value: 240 bytes of class ‘list’ 1549s [00:52:29.715] Early signaling: FALSE 1549s [00:52:29.715] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1549s [00:52:29.715] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1549s [00:52:29.716] Chunk #1 of 1 ... DONE 1549s [00:52:29.716] Launching 1 futures (chunks) ... DONE 1549s [00:52:29.717] Resolving 1 futures (chunks) ... 1549s [00:52:29.717] resolve() on list ... 1549s [00:52:29.717] recursive: 0 1549s [00:52:29.717] length: 1 1549s [00:52:29.717] 1549s [00:52:29.717] resolved() for ‘SequentialFuture’ ... 1549s [00:52:29.717] - state: ‘finished’ 1549s [00:52:29.718] - run: TRUE 1549s [00:52:29.718] - result: ‘FutureResult’ 1549s [00:52:29.718] resolved() for ‘SequentialFuture’ ... done 1549s [00:52:29.719] Future #1 1549s [00:52:29.719] signalConditionsASAP(SequentialFuture, pos=1) ... 1549s [00:52:29.719] - nx: 1 1549s [00:52:29.720] - relay: TRUE 1549s List of 1 1549s $ y:List of 4 1549s ..$ a: int [1:2] 0 0 1549s ..$ b: num [1:2] 0 0 1549s ..[00:52:29.720] - stdout: TRUE 1549s [00:52:29.720] - signal: TRUE 1549s [00:52:29.721] - resignal: FALSE 1549s [00:52:29.721] - force: TRUE 1549s [00:52:29.721] - relayed: [n=1] FALSE 1549s [00:52:29.721] - queued futures: [n=1] FALSE 1549s [00:52:29.721] - until=1 1549s [00:52:29.721] - relaying element #1 1549s [00:52:29.721] - relayed: [n=1] TRUE 1549s [00:52:29.721] - queued futures: [n=1] TRUE 1549s [00:52:29.722] signalConditionsASAP(SequentialFuture, pos=1) ... done 1549s [00:52:29.722] length: 0 (resolved future 1) 1549s [00:52:29.722] Relaying remaining futures 1549s [00:52:29.722] signalConditionsASAP(NULL, pos=0) ... 1549s [00:52:29.722] - nx: 1 1549s [00:52:29.722] - relay: TRUE 1549s [00:52:29.723] - stdout: TRUE 1549s [00:52:29.723] - signal: TRUE 1549s [00:52:29.723] - resignal: FALSE 1549s [00:52:29.723] - force: TRUE 1549s [00:52:29.723] - relayed: [n=1] TRUE 1549s [00:52:29.723] - queued futures: [n=1] TRUE 1549s - flush all 1549s [00:52:29.723] - relayed: [n=1] TRUE 1549s [00:52:29.723] - queued futures: [n=1] TRUE 1549s [00:52:29.723] signalConditionsASAP(NULL, pos=0) ... done 1549s [00:52:29.724] resolve() on list ... DONE 1549s [00:52:29.724] - Number of value chunks collected: 1 1549s [00:52:29.724] Resolving 1 futures (chunks) ... DONE 1549s [00:52:29.724] Reducing values from 1 chunks ... 1549s [00:52:29.724] - Number of values collected after concatenation: 4 1549s [00:52:29.724] - Number of values expected: 4 1549s [00:52:29.724] Reducing values from 1 chunks ... DONE 1549s [00:52:29.724] future_lapply() ... DONE 1549s - future_lapply(x, FUN = base::vector, ...) ... 1549s $ c: chr [1:2] "" "" 1549s ..$ c:List of 2 1549s .. ..$ : NULL 1549s .. ..$ : NULL 1549s [00:52:29.728] future_lapply() ... 1549s [00:52:29.729] Number of chunks: 1 1549s [00:52:29.729] getGlobalsAndPackagesXApply() ... 1549s [00:52:29.729] - future.globals: TRUE 1549s [00:52:29.729] getGlobalsAndPackages() ... 1549s [00:52:29.729] Searching for globals... 1549s [00:52:29.731] - globals found: [2] ‘FUN’, ‘.Internal’ 1549s [00:52:29.731] Searching for globals ... DONE 1549s [00:52:29.731] Resolving globals: FALSE 1549s [00:52:29.733] The total size of the 1 globals is 2.13 KiB (2184 bytes) 1549s [00:52:29.733] The total size of the 1 globals exported for future expression (‘FUN(length = 2L)’) is 2.13 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (2.13 KiB of class ‘function’) 1549s [00:52:29.733] - globals: [1] ‘FUN’ 1549s [00:52:29.734] 1549s [00:52:29.734] getGlobalsAndPackages() ... DONE 1549s [00:52:29.734] - globals found/used: [n=1] ‘FUN’ 1549s [00:52:29.734] - needed namespaces: [n=0] 1549s [00:52:29.734] Finding globals ... DONE 1549s [00:52:29.734] - use_args: TRUE 1549s [00:52:29.735] - Getting '...' globals ... 1549s [00:52:29.735] resolve() on list ... 1549s [00:52:29.735] recursive: 0 1549s [00:52:29.736] length: 1 1549s [00:52:29.736] elements: ‘...’ 1549s [00:52:29.736] length: 0 (resolved future 1) 1549s [00:52:29.737] resolve() on list ... DONE 1549s [00:52:29.737] - '...' content: [n=1] ‘length’ 1549s [00:52:29.737] List of 1 1549s [00:52:29.737] $ ...:List of 1 1549s [00:52:29.737] ..$ length: int 2 1549s [00:52:29.737] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1549s [00:52:29.737] - attr(*, "where")=List of 1 1549s [00:52:29.737] ..$ ...: 1549s [00:52:29.737] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1549s [00:52:29.737] - attr(*, "resolved")= logi TRUE 1549s [00:52:29.737] - attr(*, "total_size")= num NA 1549s [00:52:29.741] - Getting '...' globals ... DONE 1549s [00:52:29.742] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1549s [00:52:29.742] List of 2 1549s [00:52:29.742] $ ...future.FUN:function (mode = "logical", length = 0L) 1549s [00:52:29.742] $ ... :List of 1 1549s [00:52:29.742] ..$ length: int 2 1549s [00:52:29.742] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1549s [00:52:29.742] - attr(*, "where")=List of 2 1549s [00:52:29.742] ..$ ...future.FUN: 1549s [00:52:29.742] ..$ ... : 1549s [00:52:29.742] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1549s [00:52:29.742] - attr(*, "resolved")= logi FALSE 1549s [00:52:29.742] - attr(*, "total_size")= num 2240 1549s [00:52:29.746] Packages to be attached in all futures: [n=0] 1549s [00:52:29.747] getGlobalsAndPackagesXApply() ... DONE 1549s [00:52:29.747] Number of futures (= number of chunks): 1 1549s [00:52:29.747] Launching 1 futures (chunks) ... 1549s [00:52:29.747] Chunk #1 of 1 ... 1549s [00:52:29.747] - Finding globals in 'X' for chunk #1 ... 1549s [00:52:29.747] getGlobalsAndPackages() ... 1549s [00:52:29.748] Searching for globals... 1549s [00:52:29.748] 1549s [00:52:29.748] Searching for globals ... DONE 1549s [00:52:29.748] - globals: [0] 1549s [00:52:29.748] getGlobalsAndPackages() ... DONE 1549s [00:52:29.748] + additional globals found: [n=0] 1549s [00:52:29.749] + additional namespaces needed: [n=0] 1549s [00:52:29.749] - Finding globals in 'X' for chunk #1 ... DONE 1549s [00:52:29.749] - seeds: 1549s [00:52:29.749] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.749] getGlobalsAndPackages() ... 1549s [00:52:29.749] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.750] Resolving globals: FALSE 1549s [00:52:29.750] Tweak future expression to call with '...' arguments ... 1549s [00:52:29.750] { 1549s [00:52:29.750] do.call(function(...) { 1549s [00:52:29.750] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.750] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1549s [00:52:29.750] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.750] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.750] } 1549s [00:52:29.750] { 1549s [00:52:29.750] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1549s [00:52:29.750] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.750] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.750] }) 1549s [00:52:29.750] } 1549s [00:52:29.750] }, args = future.call.arguments) 1549s [00:52:29.750] } 1549s [00:52:29.751] Tweak future expression to call with '...' arguments ... DONE 1549s [00:52:29.751] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.751] 1549s [00:52:29.751] getGlobalsAndPackages() ... DONE 1549s [00:52:29.752] run() for ‘Future’ ... 1549s [00:52:29.752] - state: ‘created’ 1549s [00:52:29.752] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1549s [00:52:29.753] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1549s [00:52:29.753] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1549s [00:52:29.753] - Field: ‘label’ 1549s [00:52:29.753] - Field: ‘local’ 1549s [00:52:29.753] - Field: ‘owner’ 1549s [00:52:29.754] - Field: ‘envir’ 1549s [00:52:29.754] - Field: ‘packages’ 1549s [00:52:29.754] - Field: ‘gc’ 1549s [00:52:29.754] - Field: ‘conditions’ 1549s [00:52:29.754] - Field: ‘expr’ 1549s [00:52:29.754] - Field: ‘uuid’ 1549s [00:52:29.755] - Field: ‘seed’ 1549s [00:52:29.755] - Field: ‘version’ 1549s [00:52:29.755] - Field: ‘result’ 1549s [00:52:29.755] - Field: ‘asynchronous’ 1549s [00:52:29.755] - Field: ‘calls’ 1549s [00:52:29.756] - Field: ‘globals’ 1549s [00:52:29.756] - Field: ‘stdout’ 1549s [00:52:29.756] - Field: ‘earlySignal’ 1549s [00:52:29.756] - Field: ‘lazy’ 1549s [00:52:29.756] - Field: ‘state’ 1549s [00:52:29.756] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1549s [00:52:29.756] - Launch lazy future ... 1549s [00:52:29.757] Packages needed by the future expression (n = 0): 1549s [00:52:29.757] Packages needed by future strategies (n = 0): 1549s [00:52:29.757] { 1549s [00:52:29.757] { 1549s [00:52:29.757] { 1549s [00:52:29.757] ...future.startTime <- base::Sys.time() 1549s [00:52:29.757] { 1549s [00:52:29.757] { 1549s [00:52:29.757] { 1549s [00:52:29.757] base::local({ 1549s [00:52:29.757] has_future <- base::requireNamespace("future", 1549s [00:52:29.757] quietly = TRUE) 1549s [00:52:29.757] if (has_future) { 1549s [00:52:29.757] ns <- base::getNamespace("future") 1549s [00:52:29.757] version <- ns[[".package"]][["version"]] 1549s [00:52:29.757] if (is.null(version)) 1549s [00:52:29.757] version <- utils::packageVersion("future") 1549s [00:52:29.757] } 1549s [00:52:29.757] else { 1549s [00:52:29.757] version <- NULL 1549s [00:52:29.757] } 1549s [00:52:29.757] if (!has_future || version < "1.8.0") { 1549s [00:52:29.757] info <- base::c(r_version = base::gsub("R version ", 1549s [00:52:29.757] "", base::R.version$version.string), 1549s [00:52:29.757] platform = base::sprintf("%s (%s-bit)", 1549s [00:52:29.757] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1549s [00:52:29.757] os = base::paste(base::Sys.info()[base::c("sysname", 1549s [00:52:29.757] "release", "version")], collapse = " "), 1549s [00:52:29.757] hostname = base::Sys.info()[["nodename"]]) 1549s [00:52:29.757] info <- base::sprintf("%s: %s", base::names(info), 1549s [00:52:29.757] info) 1549s [00:52:29.757] info <- base::paste(info, collapse = "; ") 1549s [00:52:29.757] if (!has_future) { 1549s [00:52:29.757] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1549s [00:52:29.757] info) 1549s [00:52:29.757] } 1549s [00:52:29.757] else { 1549s [00:52:29.757] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1549s [00:52:29.757] info, version) 1549s [00:52:29.757] } 1549s [00:52:29.757] base::stop(msg) 1549s [00:52:29.757] } 1549s [00:52:29.757] }) 1549s [00:52:29.757] } 1549s [00:52:29.757] options(future.plan = NULL) 1549s [00:52:29.757] Sys.unsetenv("R_FUTURE_PLAN") 1549s [00:52:29.757] future::plan("default", .cleanup = FALSE, .init = FALSE) 1549s [00:52:29.757] } 1549s [00:52:29.757] ...future.workdir <- getwd() 1549s [00:52:29.757] } 1549s [00:52:29.757] ...future.oldOptions <- base::as.list(base::.Options) 1549s [00:52:29.757] ...future.oldEnvVars <- base::Sys.getenv() 1549s [00:52:29.757] } 1549s [00:52:29.757] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1549s [00:52:29.757] future.globals.maxSize = NULL, future.globals.method = NULL, 1549s [00:52:29.757] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1549s [00:52:29.757] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1549s [00:52:29.757] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1549s [00:52:29.757] future.stdout.windows.reencode = NULL, width = 80L) 1549s [00:52:29.757] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1549s [00:52:29.757] base::names(...future.oldOptions)) 1549s [00:52:29.757] } 1549s [00:52:29.757] if (FALSE) { 1549s [00:52:29.757] } 1549s [00:52:29.757] else { 1549s [00:52:29.757] if (TRUE) { 1549s [00:52:29.757] ...future.stdout <- base::rawConnection(base::raw(0L), 1549s [00:52:29.757] open = "w") 1549s [00:52:29.757] } 1549s [00:52:29.757] else { 1549s [00:52:29.757] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1549s [00:52:29.757] windows = "NUL", "/dev/null"), open = "w") 1549s [00:52:29.757] } 1549s [00:52:29.757] base::sink(...future.stdout, type = "output", split = FALSE) 1549s [00:52:29.757] base::on.exit(if (!base::is.null(...future.stdout)) { 1549s [00:52:29.757] base::sink(type = "output", split = FALSE) 1549s [00:52:29.757] base::close(...future.stdout) 1549s [00:52:29.757] }, add = TRUE) 1549s [00:52:29.757] } 1549s [00:52:29.757] ...future.frame <- base::sys.nframe() 1549s [00:52:29.757] ...future.conditions <- base::list() 1549s [00:52:29.757] ...future.rng <- base::globalenv()$.Random.seed 1549s [00:52:29.757] if (FALSE) { 1549s [00:52:29.757] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1549s [00:52:29.757] "...future.value", "...future.globalenv.names", ".Random.seed") 1549s [00:52:29.757] } 1549s [00:52:29.757] ...future.result <- base::tryCatch({ 1549s [00:52:29.757] base::withCallingHandlers({ 1549s [00:52:29.757] ...future.value <- base::withVisible(base::local({ 1549s [00:52:29.757] do.call(function(...) { 1549s [00:52:29.757] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.757] if (!identical(...future.globals.maxSize.org, 1549s [00:52:29.757] ...future.globals.maxSize)) { 1549s [00:52:29.757] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.757] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.757] } 1549s [00:52:29.757] { 1549s [00:52:29.757] lapply(seq_along(...future.elements_ii), 1549s [00:52:29.757] FUN = function(jj) { 1549s [00:52:29.757] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.757] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.757] }) 1549s [00:52:29.757] } 1549s [00:52:29.757] }, args = future.call.arguments) 1549s [00:52:29.757] })) 1549s [00:52:29.757] future::FutureResult(value = ...future.value$value, 1549s [00:52:29.757] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1549s [00:52:29.757] ...future.rng), globalenv = if (FALSE) 1549s [00:52:29.757] list(added = base::setdiff(base::names(base::.GlobalEnv), 1549s [00:52:29.757] ...future.globalenv.names)) 1549s [00:52:29.757] else NULL, started = ...future.startTime, version = "1.8") 1549s [00:52:29.757] }, condition = base::local({ 1549s [00:52:29.757] c <- base::c 1549s [00:52:29.757] inherits <- base::inherits 1549s [00:52:29.757] invokeRestart <- base::invokeRestart 1549s [00:52:29.757] length <- base::length 1549s [00:52:29.757] list <- base::list 1549s [00:52:29.757] seq.int <- base::seq.int 1549s [00:52:29.757] signalCondition <- base::signalCondition 1549s [00:52:29.757] sys.calls <- base::sys.calls 1549s [00:52:29.757] `[[` <- base::`[[` 1549s [00:52:29.757] `+` <- base::`+` 1549s [00:52:29.757] `<<-` <- base::`<<-` 1549s [00:52:29.757] sysCalls <- function(calls = sys.calls(), from = 1L) { 1549s [00:52:29.757] calls[seq.int(from = from + 12L, to = length(calls) - 1549s [00:52:29.757] 3L)] 1549s [00:52:29.757] } 1549s [00:52:29.757] function(cond) { 1549s [00:52:29.757] is_error <- inherits(cond, "error") 1549s [00:52:29.757] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1549s [00:52:29.757] NULL) 1549s [00:52:29.757] if (is_error) { 1549s [00:52:29.757] sessionInformation <- function() { 1549s [00:52:29.757] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1549s [00:52:29.757] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1549s [00:52:29.757] search = base::search(), system = base::Sys.info()) 1549s [00:52:29.757] } 1549s [00:52:29.757] ...future.conditions[[length(...future.conditions) + 1549s [00:52:29.757] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1549s [00:52:29.757] cond$call), session = sessionInformation(), 1549s [00:52:29.757] timestamp = base::Sys.time(), signaled = 0L) 1549s [00:52:29.757] signalCondition(cond) 1549s [00:52:29.757] } 1549s [00:52:29.757] else if (!ignore && TRUE && inherits(cond, c("condition", 1549s [00:52:29.757] "immediateCondition"))) { 1549s [00:52:29.757] signal <- TRUE && inherits(cond, "immediateCondition") 1549s [00:52:29.757] ...future.conditions[[length(...future.conditions) + 1549s [00:52:29.757] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1549s [00:52:29.757] if (TRUE && !signal) { 1549s [00:52:29.757] muffleCondition <- function (cond, pattern = "^muffle") 1549s [00:52:29.757] { 1549s [00:52:29.757] inherits <- base::inherits 1549s [00:52:29.757] invokeRestart <- base::invokeRestart 1549s [00:52:29.757] is.null <- base::is.null 1549s [00:52:29.757] muffled <- FALSE 1549s [00:52:29.757] if (inherits(cond, "message")) { 1549s [00:52:29.757] muffled <- grepl(pattern, "muffleMessage") 1549s [00:52:29.757] if (muffled) 1549s [00:52:29.757] invokeRestart("muffleMessage") 1549s [00:52:29.757] } 1549s [00:52:29.757] else if (inherits(cond, "warning")) { 1549s [00:52:29.757] muffled <- grepl(pattern, "muffleWarning") 1549s [00:52:29.757] if (muffled) 1549s [00:52:29.757] invokeRestart("muffleWarning") 1549s [00:52:29.757] } 1549s [00:52:29.757] else if (inherits(cond, "condition")) { 1549s [00:52:29.757] if (!is.null(pattern)) { 1549s [00:52:29.757] computeRestarts <- base::computeRestarts 1549s [00:52:29.757] grepl <- base::grepl 1549s [00:52:29.757] restarts <- computeRestarts(cond) 1549s [00:52:29.757] for (restart in restarts) { 1549s [00:52:29.757] name <- restart$name 1549s [00:52:29.757] if (is.null(name)) 1549s [00:52:29.757] next 1549s [00:52:29.757] if (!grepl(pattern, name)) 1549s [00:52:29.757] next 1549s [00:52:29.757] invokeRestart(restart) 1549s [00:52:29.757] muffled <- TRUE 1549s [00:52:29.757] break 1549s [00:52:29.757] } 1549s [00:52:29.757] } 1549s [00:52:29.757] } 1549s [00:52:29.757] invisible(muffled) 1549s [00:52:29.757] } 1549s [00:52:29.757] muffleCondition(cond, pattern = "^muffle") 1549s [00:52:29.757] } 1549s [00:52:29.757] } 1549s [00:52:29.757] else { 1549s [00:52:29.757] if (TRUE) { 1549s [00:52:29.757] muffleCondition <- function (cond, pattern = "^muffle") 1549s [00:52:29.757] { 1549s [00:52:29.757] inherits <- base::inherits 1549s [00:52:29.757] invokeRestart <- base::invokeRestart 1549s [00:52:29.757] is.null <- base::is.null 1549s [00:52:29.757] muffled <- FALSE 1549s [00:52:29.757] if (inherits(cond, "message")) { 1549s [00:52:29.757] muffled <- grepl(pattern, "muffleMessage") 1549s [00:52:29.757] if (muffled) 1549s [00:52:29.757] invokeRestart("muffleMessage") 1549s [00:52:29.757] } 1549s [00:52:29.757] else if (inherits(cond, "warning")) { 1549s [00:52:29.757] muffled <- grepl(pattern, "muffleWarning") 1549s [00:52:29.757] if (muffled) 1549s [00:52:29.757] invokeRestart("muffleWarning") 1549s [00:52:29.757] } 1549s [00:52:29.757] else if (inherits(cond, "condition")) { 1549s [00:52:29.757] if (!is.null(pattern)) { 1549s [00:52:29.757] computeRestarts <- base::computeRestarts 1549s [00:52:29.757] grepl <- base::grepl 1549s [00:52:29.757] restarts <- computeRestarts(cond) 1549s [00:52:29.757] for (restart in restarts) { 1549s [00:52:29.757] name <- restart$name 1549s [00:52:29.757] if (is.null(name)) 1549s [00:52:29.757] next 1549s [00:52:29.757] if (!grepl(pattern, name)) 1549s [00:52:29.757] next 1549s [00:52:29.757] invokeRestart(restart) 1549s [00:52:29.757] muffled <- TRUE 1549s [00:52:29.757] break 1549s [00:52:29.757] } 1549s [00:52:29.757] } 1549s [00:52:29.757] } 1549s [00:52:29.757] invisible(muffled) 1549s [00:52:29.757] } 1549s [00:52:29.757] muffleCondition(cond, pattern = "^muffle") 1549s [00:52:29.757] } 1549s [00:52:29.757] } 1549s [00:52:29.757] } 1549s [00:52:29.757] })) 1549s [00:52:29.757] }, error = function(ex) { 1549s [00:52:29.757] base::structure(base::list(value = NULL, visible = NULL, 1549s [00:52:29.757] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1549s [00:52:29.757] ...future.rng), started = ...future.startTime, 1549s [00:52:29.757] finished = Sys.time(), session_uuid = NA_character_, 1549s [00:52:29.757] version = "1.8"), class = "FutureResult") 1549s [00:52:29.757] }, finally = { 1549s [00:52:29.757] if (!identical(...future.workdir, getwd())) 1549s [00:52:29.757] setwd(...future.workdir) 1549s [00:52:29.757] { 1549s [00:52:29.757] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1549s [00:52:29.757] ...future.oldOptions$nwarnings <- NULL 1549s [00:52:29.757] } 1549s [00:52:29.757] base::options(...future.oldOptions) 1549s [00:52:29.757] if (.Platform$OS.type == "windows") { 1549s [00:52:29.757] old_names <- names(...future.oldEnvVars) 1549s [00:52:29.757] envs <- base::Sys.getenv() 1549s [00:52:29.757] names <- names(envs) 1549s [00:52:29.757] common <- intersect(names, old_names) 1549s [00:52:29.757] added <- setdiff(names, old_names) 1549s [00:52:29.757] removed <- setdiff(old_names, names) 1549s [00:52:29.757] changed <- common[...future.oldEnvVars[common] != 1549s [00:52:29.757] envs[common]] 1549s [00:52:29.757] NAMES <- toupper(changed) 1549s [00:52:29.757] args <- list() 1549s [00:52:29.757] for (kk in seq_along(NAMES)) { 1549s [00:52:29.757] name <- changed[[kk]] 1549s [00:52:29.757] NAME <- NAMES[[kk]] 1549s [00:52:29.757] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.757] next 1549s [00:52:29.757] args[[name]] <- ...future.oldEnvVars[[name]] 1549s [00:52:29.757] } 1549s [00:52:29.757] NAMES <- toupper(added) 1549s [00:52:29.757] for (kk in seq_along(NAMES)) { 1549s [00:52:29.757] name <- added[[kk]] 1549s [00:52:29.757] NAME <- NAMES[[kk]] 1549s [00:52:29.757] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.757] next 1549s [00:52:29.757] args[[name]] <- "" 1549s [00:52:29.757] } 1549s [00:52:29.757] NAMES <- toupper(removed) 1549s [00:52:29.757] for (kk in seq_along(NAMES)) { 1549s [00:52:29.757] name <- removed[[kk]] 1549s [00:52:29.757] NAME <- NAMES[[kk]] 1549s [00:52:29.757] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.757] next 1549s [00:52:29.757] args[[name]] <- ...future.oldEnvVars[[name]] 1549s [00:52:29.757] } 1549s [00:52:29.757] if (length(args) > 0) 1549s [00:52:29.757] base::do.call(base::Sys.setenv, args = args) 1549s [00:52:29.757] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1549s [00:52:29.757] } 1549s [00:52:29.757] else { 1549s [00:52:29.757] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1549s [00:52:29.757] } 1549s [00:52:29.757] { 1549s [00:52:29.757] if (base::length(...future.futureOptionsAdded) > 1549s [00:52:29.757] 0L) { 1549s [00:52:29.757] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1549s [00:52:29.757] base::names(opts) <- ...future.futureOptionsAdded 1549s [00:52:29.757] base::options(opts) 1549s [00:52:29.757] } 1549s [00:52:29.757] { 1549s [00:52:29.757] { 1549s [00:52:29.757] NULL 1549s [00:52:29.757] RNGkind("Mersenne-Twister") 1549s [00:52:29.757] base::rm(list = ".Random.seed", envir = base::globalenv(), 1549s [00:52:29.757] inherits = FALSE) 1549s [00:52:29.757] } 1549s [00:52:29.757] options(future.plan = NULL) 1549s [00:52:29.757] if (is.na(NA_character_)) 1549s [00:52:29.757] Sys.unsetenv("R_FUTURE_PLAN") 1549s [00:52:29.757] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1549s [00:52:29.757] future::plan(list(function (..., envir = parent.frame()) 1549s [00:52:29.757] { 1549s [00:52:29.757] future <- SequentialFuture(..., envir = envir) 1549s [00:52:29.757] if (!future$lazy) 1549s [00:52:29.757] future <- run(future) 1549s [00:52:29.757] invisible(future) 1549s [00:52:29.757] }), .cleanup = FALSE, .init = FALSE) 1549s [00:52:29.757] } 1549s [00:52:29.757] } 1549s [00:52:29.757] } 1549s [00:52:29.757] }) 1549s [00:52:29.757] if (TRUE) { 1549s [00:52:29.757] base::sink(type = "output", split = FALSE) 1549s [00:52:29.757] if (TRUE) { 1549s [00:52:29.757] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1549s [00:52:29.757] } 1549s [00:52:29.757] else { 1549s [00:52:29.757] ...future.result["stdout"] <- base::list(NULL) 1549s [00:52:29.757] } 1549s [00:52:29.757] base::close(...future.stdout) 1549s [00:52:29.757] ...future.stdout <- NULL 1549s [00:52:29.757] } 1549s [00:52:29.757] ...future.result$conditions <- ...future.conditions 1549s [00:52:29.757] ...future.result$finished <- base::Sys.time() 1549s [00:52:29.757] ...future.result 1549s [00:52:29.757] } 1549s [00:52:29.762] assign_globals() ... 1549s [00:52:29.762] List of 5 1549s [00:52:29.762] $ ...future.FUN :function (mode = "logical", length = 0L) 1549s [00:52:29.762] $ future.call.arguments :List of 1 1549s [00:52:29.762] ..$ length: int 2 1549s [00:52:29.762] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1549s [00:52:29.762] $ ...future.elements_ii :List of 4 1549s [00:52:29.762] ..$ a: chr "integer" 1549s [00:52:29.762] ..$ b: chr "numeric" 1549s [00:52:29.762] ..$ c: chr "character" 1549s [00:52:29.762] ..$ c: chr "list" 1549s [00:52:29.762] $ ...future.seeds_ii : NULL 1549s [00:52:29.762] $ ...future.globals.maxSize: NULL 1549s [00:52:29.762] - attr(*, "where")=List of 5 1549s [00:52:29.762] ..$ ...future.FUN : 1549s [00:52:29.762] ..$ future.call.arguments : 1549s [00:52:29.762] ..$ ...future.elements_ii : 1549s [00:52:29.762] ..$ ...future.seeds_ii : 1549s [00:52:29.762] ..$ ...future.globals.maxSize: 1549s [00:52:29.762] - attr(*, "resolved")= logi FALSE 1549s [00:52:29.762] - attr(*, "total_size")= num 2240 1549s [00:52:29.762] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1549s [00:52:29.762] - attr(*, "already-done")= logi TRUE 1549s [00:52:29.769] - copied ‘...future.FUN’ to environment 1549s [00:52:29.770] - copied ‘future.call.arguments’ to environment 1549s [00:52:29.770] - copied ‘...future.elements_ii’ to environment 1549s [00:52:29.770] - copied ‘...future.seeds_ii’ to environment 1549s [00:52:29.770] - copied ‘...future.globals.maxSize’ to environment 1549s [00:52:29.770] assign_globals() ... done 1549s [00:52:29.773] plan(): Setting new future strategy stack: 1549s [00:52:29.773] List of future strategies: 1549s [00:52:29.773] 1. sequential: 1549s [00:52:29.773] - args: function (..., envir = parent.frame()) 1549s [00:52:29.773] - tweaked: FALSE 1549s [00:52:29.773] - call: NULL 1549s [00:52:29.773] plan(): nbrOfWorkers() = 1 1549s [00:52:29.774] plan(): Setting new future strategy stack: 1549s [00:52:29.774] List of future strategies: 1549s [00:52:29.774] 1. sequential: 1549s [00:52:29.774] - args: function (..., envir = parent.frame()) 1549s [00:52:29.774] - tweaked: FALSE 1549s [00:52:29.774] - call: plan(strategy) 1549s [00:52:29.775] plan(): nbrOfWorkers() = 1 1549s [00:52:29.775] SequentialFuture started (and completed) 1549s [00:52:29.775] - Launch lazy future ... done 1549s [00:52:29.775] run() for ‘SequentialFuture’ ... done 1549s [00:52:29.776] Created future: 1549s [00:52:29.776] SequentialFuture: 1549s [00:52:29.776] Label: ‘future_lapply-1’ 1549s [00:52:29.776] Expression: 1549s [00:52:29.776] { 1549s [00:52:29.776] do.call(function(...) { 1549s [00:52:29.776] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.776] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1549s [00:52:29.776] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.776] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.776] } 1549s [00:52:29.776] { 1549s [00:52:29.776] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1549s [00:52:29.776] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.776] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.776] }) 1549s [00:52:29.776] } 1549s [00:52:29.776] }, args = future.call.arguments) 1549s [00:52:29.776] } 1549s [00:52:29.776] Lazy evaluation: FALSE 1549s [00:52:29.776] Asynchronous evaluation: FALSE 1549s [00:52:29.776] Local evaluation: TRUE 1549s [00:52:29.776] Environment: R_GlobalEnv 1549s [00:52:29.776] Capture standard output: TRUE 1549s [00:52:29.776] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1549s [00:52:29.776] Globals: 5 objects totaling 2.63 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 456 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1549s [00:52:29.776] Packages: 1549s [00:52:29.776] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1549s [00:52:29.776] Resolved: TRUE 1549s [00:52:29.776] Value: 240 bytes of class ‘list’ 1549s [00:52:29.776] Early signaling: FALSE 1549s [00:52:29.776] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1549s [00:52:29.776] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1549s [00:52:29.777] Chunk #1 of 1 ... DONE 1549s [00:52:29.777] Launching 1 futures (chunks) ... DONE 1549s [00:52:29.778] Resolving 1 futures (chunks) ... 1549s [00:52:29.778] resolve() on list ... 1549s [00:52:29.778] recursive: 0 1549s [00:52:29.778] length: 1 1549s [00:52:29.778] 1549s [00:52:29.778] resolved() for ‘SequentialFuture’ ... 1549s [00:52:29.779] - state: ‘finished’ 1549s [00:52:29.779] - run: TRUE 1549s [00:52:29.779] - result: ‘FutureResult’ 1549s [00:52:29.779] resolved() for ‘SequentialFuture’ ... done 1549s [00:52:29.779] Future #1 1549s [00:52:29.779] signalConditionsASAP(SequentialFuture, pos=1) ... 1549s [00:52:29.779] - nx: 1 1549s [00:52:29.780] - relay: TRUE 1549s [00:52:29.780] - stdout: TRUE 1549s [00:52:29.780] - signal: TRUE 1549s [00:52:29.780] - resignal: FALSE 1549s [00:52:29.780] - force: TRUE 1549s [00:52:29.780] - relayed: [n=1] FALSE 1549s [00:52:29.780] - queued futures: [n=1] FALSE 1549s [00:52:29.781] - until=1 1549s [00:52:29.781] - relaying element #1 1549s [00:52:29.781] - relayed: [n=1] TRUE 1549s [00:52:29.781] - queued futures: [n=1] TRUE 1549s [00:52:29.781] signalConditionsASAP(SequentialFuture, pos=1) ... done 1549s [00:52:29.781] length: 0 (resolved future 1) 1549s [00:52:29.782] Relaying remaining futures 1549s [00:52:29.782] signalConditionsASAP(NULL, pos=0) ... 1549s [00:52:29.782] - nx: 1 1549s [00:52:29.782] - relay: TRUE 1549s [00:52:29.782] - stdout: TRUE 1549s [00:52:29.782] - signal: TRUE 1549s [00:52:29.782] - resignal: FALSE 1549s [00:52:29.782] - force: TRUE 1549s [00:52:29.782] - relayed: [n=1] TRUE 1549s [00:52:29.782] - queued futures: [n=1] TRUE 1549s - flush all 1549s [00:52:29.783] - relayed: [n=1] TRUE 1549s [00:52:29.783] - queued futures: [n=1] TRUE 1549s [00:52:29.783] signalConditionsASAP(NULL, pos=0) ... done 1549s [00:52:29.783] resolve() on list ... DONE 1549s [00:52:29.783] - Number of value chunks collected: 1 1549s [00:52:29.783] Resolving 1 futures (chunks) ... DONE 1549s [00:52:29.784] Reducing values from 1 chunks ... 1549s [00:52:29.784] - Number of values collected after concatenation: 4 1549s [00:52:29.784] - Number of values expected: 4 1549s [00:52:29.784] Reducing values from 1 chunks ... DONE 1549s [00:52:29.784] future_lapply() ... DONE 1549s List of 1 1549s $ y:List of 4 1549s ..$ a: int [1:2] 0 0 1549s ..$ b: num [1:2] 0 0 1549s ..$ c: chr [1:2] "" "" 1549s ..- future_lapply(x, FUN = future:::hpaste, ...) ... 1549s [00:52:29.788] future_lapply() ... 1549s $ c:List of 2 1549s .. ..$ : NULL 1549s .. ..$ : NULL 1549s [00:52:29.800] Number of chunks: 1 1549s [00:52:29.800] getGlobalsAndPackagesXApply() ... 1549s [00:52:29.800] - future.globals: TRUE 1549s [00:52:29.800] getGlobalsAndPackages() ... 1549s [00:52:29.800] Searching for globals... 1549s [00:52:29.812] - globals found: [22] ‘FUN’, ‘if’, ‘missing’, ‘is.finite’, ‘{’, ‘is.null’, ‘<-’, ‘paste’, ‘length’, ‘==’, ‘return’, ‘>’, ‘+’, ‘[’, ‘seq_len’, ‘rev’, ‘c’, ‘&&’, ‘!’, ‘:’, ‘(’, ‘-’ 1549s [00:52:29.813] Searching for globals ... DONE 1549s [00:52:29.813] Resolving globals: FALSE 1549s [00:52:29.814] The total size of the 1 globals is 69.62 KiB (71288 bytes) 1549s [00:52:29.814] The total size of the 1 globals exported for future expression (‘FUN(collapse = "; ", maxHead = 3L)’) is 69.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (69.62 KiB of class ‘function’) 1549s [00:52:29.815] - globals: [1] ‘FUN’ 1549s [00:52:29.815] - packages: [1] ‘future’ 1549s [00:52:29.815] getGlobalsAndPackages() ... DONE 1549s [00:52:29.815] - globals found/used: [n=1] ‘FUN’ 1549s [00:52:29.815] - needed namespaces: [n=1] ‘future’ 1549s [00:52:29.815] Finding globals ... DONE 1549s [00:52:29.815] - use_args: TRUE 1549s [00:52:29.816] - Getting '...' globals ... 1549s [00:52:29.816] resolve() on list ... 1549s [00:52:29.816] recursive: 0 1549s [00:52:29.816] length: 1 1549s [00:52:29.816] elements: ‘...’ 1549s [00:52:29.816] length: 0 (resolved future 1) 1549s [00:52:29.817] resolve() on list ... DONE 1549s [00:52:29.817] - '...' content: [n=2] ‘collapse’, ‘maxHead’ 1549s [00:52:29.817] List of 1 1549s [00:52:29.817] $ ...:List of 2 1549s [00:52:29.817] ..$ collapse: chr "; " 1549s [00:52:29.817] ..$ maxHead : int 3 1549s [00:52:29.817] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1549s [00:52:29.817] - attr(*, "where")=List of 1 1549s [00:52:29.817] ..$ ...: 1549s [00:52:29.817] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1549s [00:52:29.817] - attr(*, "resolved")= logi TRUE 1549s [00:52:29.817] - attr(*, "total_size")= num NA 1549s [00:52:29.821] - Getting '...' globals ... DONE 1549s [00:52:29.821] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1549s [00:52:29.822] List of 2 1549s [00:52:29.822] $ ...future.FUN:function (..., sep = "", collapse = ", ", lastCollapse = NULL, maxHead = if (missing(lastCollapse)) 3 else Inf, 1549s [00:52:29.822] maxTail = if (is.finite(maxHead)) 1 else Inf, abbreviate = "...") 1549s [00:52:29.822] $ ... :List of 2 1549s [00:52:29.822] ..$ collapse: chr "; " 1549s [00:52:29.822] ..$ maxHead : int 3 1549s [00:52:29.822] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1549s [00:52:29.822] - attr(*, "where")=List of 2 1549s [00:52:29.822] ..$ ...future.FUN: 1549s [00:52:29.822] ..$ ... : 1549s [00:52:29.822] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1549s [00:52:29.822] - attr(*, "resolved")= logi FALSE 1549s [00:52:29.822] - attr(*, "total_size")= num 71456 1549s [00:52:29.827] Packages to be attached in all futures: [n=1] ‘future’ 1549s [00:52:29.827] getGlobalsAndPackagesXApply() ... DONE 1549s [00:52:29.827] Number of futures (= number of chunks): 1 1549s [00:52:29.827] Launching 1 futures (chunks) ... 1549s [00:52:29.827] Chunk #1 of 1 ... 1549s [00:52:29.828] - Finding globals in 'X' for chunk #1 ... 1549s [00:52:29.828] getGlobalsAndPackages() ... 1549s [00:52:29.828] Searching for globals... 1549s [00:52:29.828] 1549s [00:52:29.828] Searching for globals ... DONE 1549s [00:52:29.828] - globals: [0] 1549s [00:52:29.829] getGlobalsAndPackages() ... DONE 1549s [00:52:29.829] + additional globals found: [n=0] 1549s [00:52:29.829] + additional namespaces needed: [n=0] 1549s [00:52:29.829] - Finding globals in 'X' for chunk #1 ... DONE 1549s [00:52:29.829] - seeds: 1549s [00:52:29.830] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.830] getGlobalsAndPackages() ... 1549s [00:52:29.830] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.830] Resolving globals: FALSE 1549s [00:52:29.830] Tweak future expression to call with '...' arguments ... 1549s [00:52:29.830] { 1549s [00:52:29.830] do.call(function(...) { 1549s [00:52:29.830] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.830] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1549s [00:52:29.830] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.830] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.830] } 1549s [00:52:29.830] { 1549s [00:52:29.830] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1549s [00:52:29.830] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.830] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.830] }) 1549s [00:52:29.830] } 1549s [00:52:29.830] }, args = future.call.arguments) 1549s [00:52:29.830] } 1549s [00:52:29.831] Tweak future expression to call with '...' arguments ... DONE 1549s [00:52:29.832] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.832] - packages: [1] ‘future’ 1549s [00:52:29.832] getGlobalsAndPackages() ... DONE 1549s [00:52:29.833] run() for ‘Future’ ... 1549s [00:52:29.833] - state: ‘created’ 1549s [00:52:29.833] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1549s [00:52:29.833] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1549s [00:52:29.834] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1549s [00:52:29.834] - Field: ‘label’ 1549s [00:52:29.834] - Field: ‘local’ 1549s [00:52:29.834] - Field: ‘owner’ 1549s [00:52:29.835] - Field: ‘envir’ 1549s [00:52:29.835] - Field: ‘packages’ 1549s [00:52:29.835] - Field: ‘gc’ 1549s [00:52:29.835] - Field: ‘conditions’ 1549s [00:52:29.835] - Field: ‘expr’ 1549s [00:52:29.835] - Field: ‘uuid’ 1549s [00:52:29.835] - Field: ‘seed’ 1549s [00:52:29.836] - Field: ‘version’ 1549s [00:52:29.836] - Field: ‘result’ 1549s [00:52:29.836] - Field: ‘asynchronous’ 1549s [00:52:29.836] - Field: ‘calls’ 1549s [00:52:29.836] - Field: ‘globals’ 1549s [00:52:29.837] - Field: ‘stdout’ 1549s [00:52:29.837] - Field: ‘earlySignal’ 1549s [00:52:29.837] - Field: ‘lazy’ 1549s [00:52:29.837] - Field: ‘state’ 1549s [00:52:29.838] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1549s [00:52:29.838] - Launch lazy future ... 1549s [00:52:29.839] Packages needed by the future expression (n = 1): ‘future’ 1549s [00:52:29.839] Packages needed by future strategies (n = 0): 1549s [00:52:29.840] { 1549s [00:52:29.840] { 1549s [00:52:29.840] { 1549s [00:52:29.840] ...future.startTime <- base::Sys.time() 1549s [00:52:29.840] { 1549s [00:52:29.840] { 1549s [00:52:29.840] { 1549s [00:52:29.840] { 1549s [00:52:29.840] base::local({ 1549s [00:52:29.840] has_future <- base::requireNamespace("future", 1549s [00:52:29.840] quietly = TRUE) 1549s [00:52:29.840] if (has_future) { 1549s [00:52:29.840] ns <- base::getNamespace("future") 1549s [00:52:29.840] version <- ns[[".package"]][["version"]] 1549s [00:52:29.840] if (is.null(version)) 1549s [00:52:29.840] version <- utils::packageVersion("future") 1549s [00:52:29.840] } 1549s [00:52:29.840] else { 1549s [00:52:29.840] version <- NULL 1549s [00:52:29.840] } 1549s [00:52:29.840] if (!has_future || version < "1.8.0") { 1549s [00:52:29.840] info <- base::c(r_version = base::gsub("R version ", 1549s [00:52:29.840] "", base::R.version$version.string), 1549s [00:52:29.840] platform = base::sprintf("%s (%s-bit)", 1549s [00:52:29.840] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1549s [00:52:29.840] os = base::paste(base::Sys.info()[base::c("sysname", 1549s [00:52:29.840] "release", "version")], collapse = " "), 1549s [00:52:29.840] hostname = base::Sys.info()[["nodename"]]) 1549s [00:52:29.840] info <- base::sprintf("%s: %s", base::names(info), 1549s [00:52:29.840] info) 1549s [00:52:29.840] info <- base::paste(info, collapse = "; ") 1549s [00:52:29.840] if (!has_future) { 1549s [00:52:29.840] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1549s [00:52:29.840] info) 1549s [00:52:29.840] } 1549s [00:52:29.840] else { 1549s [00:52:29.840] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1549s [00:52:29.840] info, version) 1549s [00:52:29.840] } 1549s [00:52:29.840] base::stop(msg) 1549s [00:52:29.840] } 1549s [00:52:29.840] }) 1549s [00:52:29.840] } 1549s [00:52:29.840] base::local({ 1549s [00:52:29.840] for (pkg in "future") { 1549s [00:52:29.840] base::loadNamespace(pkg) 1549s [00:52:29.840] base::library(pkg, character.only = TRUE) 1549s [00:52:29.840] } 1549s [00:52:29.840] }) 1549s [00:52:29.840] } 1549s [00:52:29.840] options(future.plan = NULL) 1549s [00:52:29.840] Sys.unsetenv("R_FUTURE_PLAN") 1549s [00:52:29.840] future::plan("default", .cleanup = FALSE, .init = FALSE) 1549s [00:52:29.840] } 1549s [00:52:29.840] ...future.workdir <- getwd() 1549s [00:52:29.840] } 1549s [00:52:29.840] ...future.oldOptions <- base::as.list(base::.Options) 1549s [00:52:29.840] ...future.oldEnvVars <- base::Sys.getenv() 1549s [00:52:29.840] } 1549s [00:52:29.840] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1549s [00:52:29.840] future.globals.maxSize = NULL, future.globals.method = NULL, 1549s [00:52:29.840] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1549s [00:52:29.840] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1549s [00:52:29.840] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1549s [00:52:29.840] future.stdout.windows.reencode = NULL, width = 80L) 1549s [00:52:29.840] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1549s [00:52:29.840] base::names(...future.oldOptions)) 1549s [00:52:29.840] } 1549s [00:52:29.840] if (FALSE) { 1549s [00:52:29.840] } 1549s [00:52:29.840] else { 1549s [00:52:29.840] if (TRUE) { 1549s [00:52:29.840] ...future.stdout <- base::rawConnection(base::raw(0L), 1549s [00:52:29.840] open = "w") 1549s [00:52:29.840] } 1549s [00:52:29.840] else { 1549s [00:52:29.840] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1549s [00:52:29.840] windows = "NUL", "/dev/null"), open = "w") 1549s [00:52:29.840] } 1549s [00:52:29.840] base::sink(...future.stdout, type = "output", split = FALSE) 1549s [00:52:29.840] base::on.exit(if (!base::is.null(...future.stdout)) { 1549s [00:52:29.840] base::sink(type = "output", split = FALSE) 1549s [00:52:29.840] base::close(...future.stdout) 1549s [00:52:29.840] }, add = TRUE) 1549s [00:52:29.840] } 1549s [00:52:29.840] ...future.frame <- base::sys.nframe() 1549s [00:52:29.840] ...future.conditions <- base::list() 1549s [00:52:29.840] ...future.rng <- base::globalenv()$.Random.seed 1549s [00:52:29.840] if (FALSE) { 1549s [00:52:29.840] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1549s [00:52:29.840] "...future.value", "...future.globalenv.names", ".Random.seed") 1549s [00:52:29.840] } 1549s [00:52:29.840] ...future.result <- base::tryCatch({ 1549s [00:52:29.840] base::withCallingHandlers({ 1549s [00:52:29.840] ...future.value <- base::withVisible(base::local({ 1549s [00:52:29.840] do.call(function(...) { 1549s [00:52:29.840] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.840] if (!identical(...future.globals.maxSize.org, 1549s [00:52:29.840] ...future.globals.maxSize)) { 1549s [00:52:29.840] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.840] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.840] } 1549s [00:52:29.840] { 1549s [00:52:29.840] lapply(seq_along(...future.elements_ii), 1549s [00:52:29.840] FUN = function(jj) { 1549s [00:52:29.840] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.840] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.840] }) 1549s [00:52:29.840] } 1549s [00:52:29.840] }, args = future.call.arguments) 1549s [00:52:29.840] })) 1549s [00:52:29.840] future::FutureResult(value = ...future.value$value, 1549s [00:52:29.840] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1549s [00:52:29.840] ...future.rng), globalenv = if (FALSE) 1549s [00:52:29.840] list(added = base::setdiff(base::names(base::.GlobalEnv), 1549s [00:52:29.840] ...future.globalenv.names)) 1549s [00:52:29.840] else NULL, started = ...future.startTime, version = "1.8") 1549s [00:52:29.840] }, condition = base::local({ 1549s [00:52:29.840] c <- base::c 1549s [00:52:29.840] inherits <- base::inherits 1549s [00:52:29.840] invokeRestart <- base::invokeRestart 1549s [00:52:29.840] length <- base::length 1549s [00:52:29.840] list <- base::list 1549s [00:52:29.840] seq.int <- base::seq.int 1549s [00:52:29.840] signalCondition <- base::signalCondition 1549s [00:52:29.840] sys.calls <- base::sys.calls 1549s [00:52:29.840] `[[` <- base::`[[` 1549s [00:52:29.840] `+` <- base::`+` 1549s [00:52:29.840] `<<-` <- base::`<<-` 1549s [00:52:29.840] sysCalls <- function(calls = sys.calls(), from = 1L) { 1549s [00:52:29.840] calls[seq.int(from = from + 12L, to = length(calls) - 1549s [00:52:29.840] 3L)] 1549s [00:52:29.840] } 1549s [00:52:29.840] function(cond) { 1549s [00:52:29.840] is_error <- inherits(cond, "error") 1549s [00:52:29.840] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1549s [00:52:29.840] NULL) 1549s [00:52:29.840] if (is_error) { 1549s [00:52:29.840] sessionInformation <- function() { 1549s [00:52:29.840] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1549s [00:52:29.840] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1549s [00:52:29.840] search = base::search(), system = base::Sys.info()) 1549s [00:52:29.840] } 1549s [00:52:29.840] ...future.conditions[[length(...future.conditions) + 1549s [00:52:29.840] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1549s [00:52:29.840] cond$call), session = sessionInformation(), 1549s [00:52:29.840] timestamp = base::Sys.time(), signaled = 0L) 1549s [00:52:29.840] signalCondition(cond) 1549s [00:52:29.840] } 1549s [00:52:29.840] else if (!ignore && TRUE && inherits(cond, c("condition", 1549s [00:52:29.840] "immediateCondition"))) { 1549s [00:52:29.840] signal <- TRUE && inherits(cond, "immediateCondition") 1549s [00:52:29.840] ...future.conditions[[length(...future.conditions) + 1549s [00:52:29.840] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1549s [00:52:29.840] if (TRUE && !signal) { 1549s [00:52:29.840] muffleCondition <- function (cond, pattern = "^muffle") 1549s [00:52:29.840] { 1549s [00:52:29.840] inherits <- base::inherits 1549s [00:52:29.840] invokeRestart <- base::invokeRestart 1549s [00:52:29.840] is.null <- base::is.null 1549s [00:52:29.840] muffled <- FALSE 1549s [00:52:29.840] if (inherits(cond, "message")) { 1549s [00:52:29.840] muffled <- grepl(pattern, "muffleMessage") 1549s [00:52:29.840] if (muffled) 1549s [00:52:29.840] invokeRestart("muffleMessage") 1549s [00:52:29.840] } 1549s [00:52:29.840] else if (inherits(cond, "warning")) { 1549s [00:52:29.840] muffled <- grepl(pattern, "muffleWarning") 1549s [00:52:29.840] if (muffled) 1549s [00:52:29.840] invokeRestart("muffleWarning") 1549s [00:52:29.840] } 1549s [00:52:29.840] else if (inherits(cond, "condition")) { 1549s [00:52:29.840] if (!is.null(pattern)) { 1549s [00:52:29.840] computeRestarts <- base::computeRestarts 1549s [00:52:29.840] grepl <- base::grepl 1549s [00:52:29.840] restarts <- computeRestarts(cond) 1549s [00:52:29.840] for (restart in restarts) { 1549s [00:52:29.840] name <- restart$name 1549s [00:52:29.840] if (is.null(name)) 1549s [00:52:29.840] next 1549s [00:52:29.840] if (!grepl(pattern, name)) 1549s [00:52:29.840] next 1549s [00:52:29.840] invokeRestart(restart) 1549s [00:52:29.840] muffled <- TRUE 1549s [00:52:29.840] break 1549s [00:52:29.840] } 1549s [00:52:29.840] } 1549s [00:52:29.840] } 1549s [00:52:29.840] invisible(muffled) 1549s [00:52:29.840] } 1549s [00:52:29.840] muffleCondition(cond, pattern = "^muffle") 1549s [00:52:29.840] } 1549s [00:52:29.840] } 1549s [00:52:29.840] else { 1549s [00:52:29.840] if (TRUE) { 1549s [00:52:29.840] muffleCondition <- function (cond, pattern = "^muffle") 1549s [00:52:29.840] { 1549s [00:52:29.840] inherits <- base::inherits 1549s [00:52:29.840] invokeRestart <- base::invokeRestart 1549s [00:52:29.840] is.null <- base::is.null 1549s [00:52:29.840] muffled <- FALSE 1549s [00:52:29.840] if (inherits(cond, "message")) { 1549s [00:52:29.840] muffled <- grepl(pattern, "muffleMessage") 1549s [00:52:29.840] if (muffled) 1549s [00:52:29.840] invokeRestart("muffleMessage") 1549s [00:52:29.840] } 1549s [00:52:29.840] else if (inherits(cond, "warning")) { 1549s [00:52:29.840] muffled <- grepl(pattern, "muffleWarning") 1549s [00:52:29.840] if (muffled) 1549s [00:52:29.840] invokeRestart("muffleWarning") 1549s [00:52:29.840] } 1549s [00:52:29.840] else if (inherits(cond, "condition")) { 1549s [00:52:29.840] if (!is.null(pattern)) { 1549s [00:52:29.840] computeRestarts <- base::computeRestarts 1549s [00:52:29.840] grepl <- base::grepl 1549s [00:52:29.840] restarts <- computeRestarts(cond) 1549s [00:52:29.840] for (restart in restarts) { 1549s [00:52:29.840] name <- restart$name 1549s [00:52:29.840] if (is.null(name)) 1549s [00:52:29.840] next 1549s [00:52:29.840] if (!grepl(pattern, name)) 1549s [00:52:29.840] next 1549s [00:52:29.840] invokeRestart(restart) 1549s [00:52:29.840] muffled <- TRUE 1549s [00:52:29.840] break 1549s [00:52:29.840] } 1549s [00:52:29.840] } 1549s [00:52:29.840] } 1549s [00:52:29.840] invisible(muffled) 1549s [00:52:29.840] } 1549s [00:52:29.840] muffleCondition(cond, pattern = "^muffle") 1549s [00:52:29.840] } 1549s [00:52:29.840] } 1549s [00:52:29.840] } 1549s [00:52:29.840] })) 1549s [00:52:29.840] }, error = function(ex) { 1549s [00:52:29.840] base::structure(base::list(value = NULL, visible = NULL, 1549s [00:52:29.840] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1549s [00:52:29.840] ...future.rng), started = ...future.startTime, 1549s [00:52:29.840] finished = Sys.time(), session_uuid = NA_character_, 1549s [00:52:29.840] version = "1.8"), class = "FutureResult") 1549s [00:52:29.840] }, finally = { 1549s [00:52:29.840] if (!identical(...future.workdir, getwd())) 1549s [00:52:29.840] setwd(...future.workdir) 1549s [00:52:29.840] { 1549s [00:52:29.840] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1549s [00:52:29.840] ...future.oldOptions$nwarnings <- NULL 1549s [00:52:29.840] } 1549s [00:52:29.840] base::options(...future.oldOptions) 1549s [00:52:29.840] if (.Platform$OS.type == "windows") { 1549s [00:52:29.840] old_names <- names(...future.oldEnvVars) 1549s [00:52:29.840] envs <- base::Sys.getenv() 1549s [00:52:29.840] names <- names(envs) 1549s [00:52:29.840] common <- intersect(names, old_names) 1549s [00:52:29.840] added <- setdiff(names, old_names) 1549s [00:52:29.840] removed <- setdiff(old_names, names) 1549s [00:52:29.840] changed <- common[...future.oldEnvVars[common] != 1549s [00:52:29.840] envs[common]] 1549s [00:52:29.840] NAMES <- toupper(changed) 1549s [00:52:29.840] args <- list() 1549s [00:52:29.840] for (kk in seq_along(NAMES)) { 1549s [00:52:29.840] name <- changed[[kk]] 1549s [00:52:29.840] NAME <- NAMES[[kk]] 1549s [00:52:29.840] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.840] next 1549s [00:52:29.840] args[[name]] <- ...future.oldEnvVars[[name]] 1549s [00:52:29.840] } 1549s [00:52:29.840] NAMES <- toupper(added) 1549s [00:52:29.840] for (kk in seq_along(NAMES)) { 1549s [00:52:29.840] name <- added[[kk]] 1549s [00:52:29.840] NAME <- NAMES[[kk]] 1549s [00:52:29.840] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.840] next 1549s [00:52:29.840] args[[name]] <- "" 1549s [00:52:29.840] } 1549s [00:52:29.840] NAMES <- toupper(removed) 1549s [00:52:29.840] for (kk in seq_along(NAMES)) { 1549s [00:52:29.840] name <- removed[[kk]] 1549s [00:52:29.840] NAME <- NAMES[[kk]] 1549s [00:52:29.840] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.840] next 1549s [00:52:29.840] args[[name]] <- ...future.oldEnvVars[[name]] 1549s [00:52:29.840] } 1549s [00:52:29.840] if (length(args) > 0) 1549s [00:52:29.840] base::do.call(base::Sys.setenv, args = args) 1549s [00:52:29.840] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1549s [00:52:29.840] } 1549s [00:52:29.840] else { 1549s [00:52:29.840] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1549s [00:52:29.840] } 1549s [00:52:29.840] { 1549s [00:52:29.840] if (base::length(...future.futureOptionsAdded) > 1549s [00:52:29.840] 0L) { 1549s [00:52:29.840] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1549s [00:52:29.840] base::names(opts) <- ...future.futureOptionsAdded 1549s [00:52:29.840] base::options(opts) 1549s [00:52:29.840] } 1549s [00:52:29.840] { 1549s [00:52:29.840] { 1549s [00:52:29.840] NULL 1549s [00:52:29.840] RNGkind("Mersenne-Twister") 1549s [00:52:29.840] base::rm(list = ".Random.seed", envir = base::globalenv(), 1549s [00:52:29.840] inherits = FALSE) 1549s [00:52:29.840] } 1549s [00:52:29.840] options(future.plan = NULL) 1549s [00:52:29.840] if (is.na(NA_character_)) 1549s [00:52:29.840] Sys.unsetenv("R_FUTURE_PLAN") 1549s [00:52:29.840] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1549s [00:52:29.840] future::plan(list(function (..., envir = parent.frame()) 1549s [00:52:29.840] { 1549s [00:52:29.840] future <- SequentialFuture(..., envir = envir) 1549s [00:52:29.840] if (!future$lazy) 1549s [00:52:29.840] future <- run(future) 1549s [00:52:29.840] invisible(future) 1549s [00:52:29.840] }), .cleanup = FALSE, .init = FALSE) 1549s [00:52:29.840] } 1549s [00:52:29.840] } 1549s [00:52:29.840] } 1549s [00:52:29.840] }) 1549s [00:52:29.840] if (TRUE) { 1549s [00:52:29.840] base::sink(type = "output", split = FALSE) 1549s [00:52:29.840] if (TRUE) { 1549s [00:52:29.840] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1549s [00:52:29.840] } 1549s [00:52:29.840] else { 1549s [00:52:29.840] ...future.result["stdout"] <- base::list(NULL) 1549s [00:52:29.840] } 1549s [00:52:29.840] base::close(...future.stdout) 1549s [00:52:29.840] ...future.stdout <- NULL 1549s [00:52:29.840] } 1549s [00:52:29.840] ...future.result$conditions <- ...future.conditions 1549s [00:52:29.840] ...future.result$finished <- base::Sys.time() 1549s [00:52:29.840] ...future.result 1549s [00:52:29.840] } 1549s [00:52:29.848] assign_globals() ... 1549s [00:52:29.848] List of 5 1549s [00:52:29.848] $ ...future.FUN :function (..., sep = "", collapse = ", ", lastCollapse = NULL, maxHead = if (missing(lastCollapse)) 3 else Inf, 1549s [00:52:29.848] maxTail = if (is.finite(maxHead)) 1 else Inf, abbreviate = "...") 1549s [00:52:29.848] $ future.call.arguments :List of 2 1549s [00:52:29.848] ..$ collapse: chr "; " 1549s [00:52:29.848] ..$ maxHead : int 3 1549s [00:52:29.848] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1549s [00:52:29.848] $ ...future.elements_ii :List of 1 1549s [00:52:29.848] ..$ a: Named chr [1:101] "hello" "1" "2" "3" ... 1549s [00:52:29.848] .. ..- attr(*, "names")= chr [1:101] "" "b1" "b2" "b3" ... 1549s [00:52:29.848] $ ...future.seeds_ii : NULL 1549s [00:52:29.848] $ ...future.globals.maxSize: NULL 1549s [00:52:29.848] - attr(*, "where")=List of 5 1549s [00:52:29.848] ..$ ...future.FUN : 1549s [00:52:29.848] ..$ future.call.arguments : 1549s [00:52:29.848] ..$ ...future.elements_ii : 1549s [00:52:29.848] ..$ ...future.seeds_ii : 1549s [00:52:29.848] ..$ ...future.globals.maxSize: 1549s [00:52:29.848] - attr(*, "resolved")= logi FALSE 1549s [00:52:29.848] - attr(*, "total_size")= num 71456 1549s [00:52:29.848] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1549s [00:52:29.848] - attr(*, "already-done")= logi TRUE 1549s [00:52:29.859] - copied ‘...future.FUN’ to environment 1549s [00:52:29.859] - copied ‘future.call.arguments’ to environment 1549s [00:52:29.859] - copied ‘...future.elements_ii’ to environment 1549s [00:52:29.859] - copied ‘...future.seeds_ii’ to environment 1549s [00:52:29.859] - copied ‘...future.globals.maxSize’ to environment 1549s [00:52:29.860] assign_globals() ... done 1549s [00:52:29.860] plan(): Setting new future strategy stack: 1549s [00:52:29.860] List of future strategies: 1549s [00:52:29.860] 1. sequential: 1549s [00:52:29.860] - args: function (..., envir = parent.frame()) 1549s [00:52:29.860] - tweaked: FALSE 1549s [00:52:29.860] - call: NULL 1549s [00:52:29.861] plan(): nbrOfWorkers() = 1 1549s [00:52:29.862] plan(): Setting new future strategy stack: 1549s [00:52:29.862] List of future strategies: 1549s [00:52:29.862] 1. sequential: 1549s [00:52:29.862] - args: function (..., envir = parent.frame()) 1549s [00:52:29.862] - tweaked: FALSE 1549s [00:52:29.862] - call: plan(strategy) 1549s [00:52:29.862] plan(): nbrOfWorkers() = 1 1549s [00:52:29.862] SequentialFuture started (and completed) 1549s [00:52:29.863] - Launch lazy future ... done 1549s [00:52:29.863] run() for ‘SequentialFuture’ ... done 1549s [00:52:29.863] Created future: 1549s [00:52:29.863] SequentialFuture: 1549s [00:52:29.863] Label: ‘future_lapply-1’ 1549s [00:52:29.863] Expression: 1549s [00:52:29.863] { 1549s [00:52:List of 1 1549s $ y:List of 1 1549s ..$ a: chr "hello; 1; 2; ...; 100" 1549s 29.863] do.call(function(...) { 1549s [00:52:29.863] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.863] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1549s [00:52:29.863] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.863] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.863] } 1549s [00:52:29.863] { 1549s [00:52:29.863] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1549s [00:52:29.863] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.863] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.863] }) 1549s [00:52:29.863] } 1549s [00:52:29.863] }, args = future.call.arguments) 1549s [00:52:29.863] } 1549s [00:52:29.863] Lazy evaluation: FALSE 1549s [00:52:29.863] Asynchronous evaluation: FALSE 1549s [00:52:29.863] Local evaluation: TRUE 1549s [00:52:29.863] Environment: R_GlobalEnv 1549s [00:52:29.863] Capture standard output: TRUE 1549s [00:52:29.863] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1549s [00:52:29.863] Globals: 5 objects totaling 82.61 KiB (function ‘...future.FUN’ of 69.62 KiB, DotDotDotList ‘future.call.arguments’ of 168 bytes, list ‘...future.elements_ii’ of 12.83 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1549s [00:52:29.863] Packages: 1 packages (‘future’) 1549s [00:52:29.863] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1549s [00:52:29.863] Resolved: TRUE 1549s [00:52:29.863] Value: 136 bytes of class ‘list’ 1549s [00:52:29.863] Early signaling: FALSE 1549s [00:52:29.863] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1549s [00:52:29.863] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1549s [00:52:29.864] Chunk #1 of 1 ... DONE 1549s [00:52:29.864] Launching 1 futures (chunks) ... DONE 1549s [00:52:29.864] Resolving 1 futures (chunks) ... 1549s [00:52:29.865] resolve() on list ... 1549s [00:52:29.865] recursive: 0 1549s [00:52:29.865] length: 1 1549s [00:52:29.865] 1549s [00:52:29.865] resolved() for ‘SequentialFuture’ ... 1549s [00:52:29.865] - state: ‘finished’ 1549s [00:52:29.865] - run: TRUE 1549s [00:52:29.865] - result: ‘FutureResult’ 1549s [00:52:29.865] resolved() for ‘SequentialFuture’ ... done 1549s [00:52:29.866] Future #1 1549s [00:52:29.866] signalConditionsASAP(SequentialFuture, pos=1) ... 1549s [00:52:29.866] - nx: 1 1549s [00:52:29.866] - relay: TRUE 1549s [00:52:29.866] - stdout: TRUE 1549s [00:52:29.866] - signal: TRUE 1549s [00:52:29.866] - resignal: FALSE 1549s [00:52:29.866] - force: TRUE 1549s [00:52:29.866] - relayed: [n=1] FALSE 1549s [00:52:29.867] - queued futures: [n=1] FALSE 1549s [00:52:29.867] - until=1 1549s [00:52:29.867] - relaying element #1 1549s [00:52:29.867] - relayed: [n=1] TRUE 1549s [00:52:29.867] - queued futures: [n=1] TRUE 1549s [00:52:29.867] signalConditionsASAP(SequentialFuture, pos=1) ... done 1549s [00:52:29.867] length: 0 (resolved future 1) 1549s [00:52:29.867] Relaying remaining futures 1549s [00:52:29.867] signalConditionsASAP(NULL, pos=0) ... 1549s [00:52:29.868] - nx: 1 1549s [00:52:29.868] - relay: TRUE 1549s [00:52:29.868] - stdout: TRUE 1549s [00:52:29.868] - signal: TRUE 1549s [00:52:29.868] - resignal: FALSE 1549s [00:52:29.868] - force: TRUE 1549s [00:52:29.868] - relayed: [n=1] TRUE 1549s [00:52:29.868] - queued futures: [n=1] TRUE 1549s - flush all 1549s [00:52:29.868] - relayed: [n=1] TRUE 1549s [00:52:29.869] - queued futures: [n=1] TRUE 1549s [00:52:29.869] signalConditionsASAP(NULL, pos=0) ... done 1549s [00:52:29.869] resolve() on list ... DONE 1549s [00:52:29.869] - Number of value chunks collected: 1 1549s [00:52:29.869] Resolving 1 futures (chunks) ... DONE 1549s [00:52:29.869] Reducing values from 1 chunks ... 1549s [00:52:29.869] - Number of values collected after concatenation: 1 1549s [00:52:29.869] - Number of values expected: 1 1549s [00:52:29.869] Reducing values from 1 chunks ... DONE 1549s [00:52:29.869] future_lapply() ... DONE 1549s - future_lapply(x, FUN = listenv::listenv, ...) ... 1549s [00:52:29.871] future_lapply() ... 1549s [00:52:29.872] Number of chunks: 1 1549s [00:52:29.872] getGlobalsAndPackagesXApply() ... 1549s [00:52:29.872] - future.globals: TRUE 1549s [00:52:29.873] getGlobalsAndPackages() ... 1549s [00:52:29.873] Searching for globals... 1549s [00:52:29.874] - globals found: [4] ‘FUN’, ‘{’, ‘get’, ‘parent.env’ 1549s [00:52:29.874] Searching for globals ... DONE 1549s [00:52:29.875] Resolving globals: FALSE 1549s [00:52:29.875] The total size of the 1 globals is 4.85 KiB (4968 bytes) 1549s [00:52:29.875] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.85 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.85 KiB of class ‘function’) 1549s [00:52:29.876] - globals: [1] ‘FUN’ 1549s [00:52:29.876] - packages: [1] ‘listenv’ 1549s [00:52:29.876] getGlobalsAndPackages() ... DONE 1549s [00:52:29.876] - globals found/used: [n=1] ‘FUN’ 1549s [00:52:29.876] - needed namespaces: [n=1] ‘listenv’ 1549s [00:52:29.876] Finding globals ... DONE 1549s [00:52:29.877] - use_args: TRUE 1549s [00:52:29.877] - Getting '...' globals ... 1549s [00:52:29.877] resolve() on list ... 1549s [00:52:29.877] recursive: 0 1549s [00:52:29.877] length: 1 1549s [00:52:29.877] elements: ‘...’ 1549s [00:52:29.878] length: 0 (resolved future 1) 1549s [00:52:29.878] resolve() on list ... DONE 1549s [00:52:29.878] - '...' content: [n=0] 1549s [00:52:29.878] List of 1 1549s [00:52:29.878] $ ...: list() 1549s [00:52:29.878] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1549s [00:52:29.878] - attr(*, "where")=List of 1 1549s [00:52:29.878] ..$ ...: 1549s [00:52:29.878] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1549s [00:52:29.878] - attr(*, "resolved")= logi TRUE 1549s [00:52:29.878] - attr(*, "total_size")= num NA 1549s [00:52:29.881] - Getting '...' globals ... DONE 1549s [00:52:29.881] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1549s [00:52:29.882] List of 2 1549s [00:52:29.882] $ ...future.FUN:function (x, ...) 1549s [00:52:29.882] $ ... : list() 1549s [00:52:29.882] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1549s [00:52:29.882] - attr(*, "where")=List of 2 1549s [00:52:29.882] ..$ ...future.FUN: 1549s [00:52:29.882] ..$ ... : 1549s [00:52:29.882] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1549s [00:52:29.882] - attr(*, "resolved")= logi FALSE 1549s [00:52:29.882] - attr(*, "total_size")= num 4968 1549s [00:52:29.887] Packages to be attached in all futures: [n=1] ‘listenv’ 1549s [00:52:29.887] getGlobalsAndPackagesXApply() ... DONE 1549s [00:52:29.887] Number of futures (= number of chunks): 1 1549s [00:52:29.887] Launching 1 futures (chunks) ... 1549s [00:52:29.888] Chunk #1 of 1 ... 1549s [00:52:29.888] - Finding globals in 'X' for chunk #1 ... 1549s [00:52:29.888] getGlobalsAndPackages() ... 1549s [00:52:29.888] Searching for globals... 1549s [00:52:29.889] 1549s [00:52:29.889] Searching for globals ... DONE 1549s [00:52:29.889] - globals: [0] 1549s [00:52:29.889] getGlobalsAndPackages() ... DONE 1549s [00:52:29.889] + additional globals found: [n=0] 1549s [00:52:29.889] + additional namespaces needed: [n=0] 1549s [00:52:29.889] - Finding globals in 'X' for chunk #1 ... DONE 1549s [00:52:29.890] - seeds: 1549s [00:52:29.890] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.890] getGlobalsAndPackages() ... 1549s [00:52:29.890] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.890] Resolving globals: FALSE 1549s [00:52:29.890] Tweak future expression to call with '...' arguments ... 1549s [00:52:29.891] { 1549s [00:52:29.891] do.call(function(...) { 1549s [00:52:29.891] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.891] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1549s [00:52:29.891] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.891] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.891] } 1549s [00:52:29.891] { 1549s [00:52:29.891] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1549s [00:52:29.891] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.891] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.891] }) 1549s [00:52:29.891] } 1549s [00:52:29.891] }, args = future.call.arguments) 1549s [00:52:29.891] } 1549s [00:52:29.891] Tweak future expression to call with '...' arguments ... DONE 1549s [00:52:29.892] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.892] - packages: [1] ‘listenv’ 1549s [00:52:29.892] getGlobalsAndPackages() ... DONE 1549s [00:52:29.892] run() for ‘Future’ ... 1549s [00:52:29.892] - state: ‘created’ 1549s [00:52:29.893] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1549s [00:52:29.893] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1549s [00:52:29.893] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1549s [00:52:29.893] - Field: ‘label’ 1549s [00:52:29.893] - Field: ‘local’ 1549s [00:52:29.894] - Field: ‘owner’ 1549s [00:52:29.894] - Field: ‘envir’ 1549s [00:52:29.894] - Field: ‘packages’ 1549s [00:52:29.894] - Field: ‘gc’ 1549s [00:52:29.894] - Field: ‘conditions’ 1549s [00:52:29.894] - Field: ‘expr’ 1549s [00:52:29.894] - Field: ‘uuid’ 1549s [00:52:29.895] - Field: ‘seed’ 1549s [00:52:29.895] - Field: ‘version’ 1549s [00:52:29.895] - Field: ‘result’ 1549s [00:52:29.895] - Field: ‘asynchronous’ 1549s [00:52:29.895] - Field: ‘calls’ 1549s [00:52:29.895] - Field: ‘globals’ 1549s [00:52:29.895] - Field: ‘stdout’ 1549s [00:52:29.896] - Field: ‘earlySignal’ 1549s [00:52:29.896] - Field: ‘lazy’ 1549s [00:52:29.896] - Field: ‘state’ 1549s [00:52:29.896] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1549s [00:52:29.896] - Launch lazy future ... 1549s [00:52:29.896] Packages needed by the future expression (n = 1): ‘listenv’ 1549s [00:52:29.897] Packages needed by future strategies (n = 0): 1549s [00:52:29.897] { 1549s [00:52:29.897] { 1549s [00:52:29.897] { 1549s [00:52:29.897] ...future.startTime <- base::Sys.time() 1549s [00:52:29.897] { 1549s [00:52:29.897] { 1549s [00:52:29.897] { 1549s [00:52:29.897] { 1549s [00:52:29.897] base::local({ 1549s [00:52:29.897] has_future <- base::requireNamespace("future", 1549s [00:52:29.897] quietly = TRUE) 1549s [00:52:29.897] if (has_future) { 1549s [00:52:29.897] ns <- base::getNamespace("future") 1549s [00:52:29.897] version <- ns[[".package"]][["version"]] 1549s [00:52:29.897] if (is.null(version)) 1549s [00:52:29.897] version <- utils::packageVersion("future") 1549s [00:52:29.897] } 1549s [00:52:29.897] else { 1549s [00:52:29.897] version <- NULL 1549s [00:52:29.897] } 1549s [00:52:29.897] if (!has_future || version < "1.8.0") { 1549s [00:52:29.897] info <- base::c(r_version = base::gsub("R version ", 1549s [00:52:29.897] "", base::R.version$version.string), 1549s [00:52:29.897] platform = base::sprintf("%s (%s-bit)", 1549s [00:52:29.897] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1549s [00:52:29.897] os = base::paste(base::Sys.info()[base::c("sysname", 1549s [00:52:29.897] "release", "version")], collapse = " "), 1549s [00:52:29.897] hostname = base::Sys.info()[["nodename"]]) 1549s [00:52:29.897] info <- base::sprintf("%s: %s", base::names(info), 1549s [00:52:29.897] info) 1549s [00:52:29.897] info <- base::paste(info, collapse = "; ") 1549s [00:52:29.897] if (!has_future) { 1549s [00:52:29.897] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1549s [00:52:29.897] info) 1549s [00:52:29.897] } 1549s [00:52:29.897] else { 1549s [00:52:29.897] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1549s [00:52:29.897] info, version) 1549s [00:52:29.897] } 1549s [00:52:29.897] base::stop(msg) 1549s [00:52:29.897] } 1549s [00:52:29.897] }) 1549s [00:52:29.897] } 1549s [00:52:29.897] base::local({ 1549s [00:52:29.897] for (pkg in "listenv") { 1549s [00:52:29.897] base::loadNamespace(pkg) 1549s [00:52:29.897] base::library(pkg, character.only = TRUE) 1549s [00:52:29.897] } 1549s [00:52:29.897] }) 1549s [00:52:29.897] } 1549s [00:52:29.897] options(future.plan = NULL) 1549s [00:52:29.897] Sys.unsetenv("R_FUTURE_PLAN") 1549s [00:52:29.897] future::plan("default", .cleanup = FALSE, .init = FALSE) 1549s [00:52:29.897] } 1549s [00:52:29.897] ...future.workdir <- getwd() 1549s [00:52:29.897] } 1549s [00:52:29.897] ...future.oldOptions <- base::as.list(base::.Options) 1549s [00:52:29.897] ...future.oldEnvVars <- base::Sys.getenv() 1549s [00:52:29.897] } 1549s [00:52:29.897] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1549s [00:52:29.897] future.globals.maxSize = NULL, future.globals.method = NULL, 1549s [00:52:29.897] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1549s [00:52:29.897] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1549s [00:52:29.897] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1549s [00:52:29.897] future.stdout.windows.reencode = NULL, width = 80L) 1549s [00:52:29.897] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1549s [00:52:29.897] base::names(...future.oldOptions)) 1549s [00:52:29.897] } 1549s [00:52:29.897] if (FALSE) { 1549s [00:52:29.897] } 1549s [00:52:29.897] else { 1549s [00:52:29.897] if (TRUE) { 1549s [00:52:29.897] ...future.stdout <- base::rawConnection(base::raw(0L), 1549s [00:52:29.897] open = "w") 1549s [00:52:29.897] } 1549s [00:52:29.897] else { 1549s [00:52:29.897] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1549s [00:52:29.897] windows = "NUL", "/dev/null"), open = "w") 1549s [00:52:29.897] } 1549s [00:52:29.897] base::sink(...future.stdout, type = "output", split = FALSE) 1549s [00:52:29.897] base::on.exit(if (!base::is.null(...future.stdout)) { 1549s [00:52:29.897] base::sink(type = "output", split = FALSE) 1549s [00:52:29.897] base::close(...future.stdout) 1549s [00:52:29.897] }, add = TRUE) 1549s [00:52:29.897] } 1549s [00:52:29.897] ...future.frame <- base::sys.nframe() 1549s [00:52:29.897] ...future.conditions <- base::list() 1549s [00:52:29.897] ...future.rng <- base::globalenv()$.Random.seed 1549s [00:52:29.897] if (FALSE) { 1549s [00:52:29.897] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1549s [00:52:29.897] "...future.value", "...future.globalenv.names", ".Random.seed") 1549s [00:52:29.897] } 1549s [00:52:29.897] ...future.result <- base::tryCatch({ 1549s [00:52:29.897] base::withCallingHandlers({ 1549s [00:52:29.897] ...future.value <- base::withVisible(base::local({ 1549s [00:52:29.897] do.call(function(...) { 1549s [00:52:29.897] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.897] if (!identical(...future.globals.maxSize.org, 1549s [00:52:29.897] ...future.globals.maxSize)) { 1549s [00:52:29.897] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.897] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.897] } 1549s [00:52:29.897] { 1549s [00:52:29.897] lapply(seq_along(...future.elements_ii), 1549s [00:52:29.897] FUN = function(jj) { 1549s [00:52:29.897] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.897] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.897] }) 1549s [00:52:29.897] } 1549s [00:52:29.897] }, args = future.call.arguments) 1549s [00:52:29.897] })) 1549s [00:52:29.897] future::FutureResult(value = ...future.value$value, 1549s [00:52:29.897] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1549s [00:52:29.897] ...future.rng), globalenv = if (FALSE) 1549s [00:52:29.897] list(added = base::setdiff(base::names(base::.GlobalEnv), 1549s [00:52:29.897] ...future.globalenv.names)) 1549s [00:52:29.897] else NULL, started = ...future.startTime, version = "1.8") 1549s [00:52:29.897] }, condition = base::local({ 1549s [00:52:29.897] c <- base::c 1549s [00:52:29.897] inherits <- base::inherits 1549s [00:52:29.897] invokeRestart <- base::invokeRestart 1549s [00:52:29.897] length <- base::length 1549s [00:52:29.897] list <- base::list 1549s [00:52:29.897] seq.int <- base::seq.int 1549s [00:52:29.897] signalCondition <- base::signalCondition 1549s [00:52:29.897] sys.calls <- base::sys.calls 1549s [00:52:29.897] `[[` <- base::`[[` 1549s [00:52:29.897] `+` <- base::`+` 1549s [00:52:29.897] `<<-` <- base::`<<-` 1549s [00:52:29.897] sysCalls <- function(calls = sys.calls(), from = 1L) { 1549s [00:52:29.897] calls[seq.int(from = from + 12L, to = length(calls) - 1549s [00:52:29.897] 3L)] 1549s [00:52:29.897] } 1549s [00:52:29.897] function(cond) { 1549s [00:52:29.897] is_error <- inherits(cond, "error") 1549s [00:52:29.897] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1549s [00:52:29.897] NULL) 1549s [00:52:29.897] if (is_error) { 1549s [00:52:29.897] sessionInformation <- function() { 1549s [00:52:29.897] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1549s [00:52:29.897] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1549s [00:52:29.897] search = base::search(), system = base::Sys.info()) 1549s [00:52:29.897] } 1549s [00:52:29.897] ...future.conditions[[length(...future.conditions) + 1549s [00:52:29.897] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1549s [00:52:29.897] cond$call), session = sessionInformation(), 1549s [00:52:29.897] timestamp = base::Sys.time(), signaled = 0L) 1549s [00:52:29.897] signalCondition(cond) 1549s [00:52:29.897] } 1549s [00:52:29.897] else if (!ignore && TRUE && inherits(cond, c("condition", 1549s [00:52:29.897] "immediateCondition"))) { 1549s [00:52:29.897] signal <- TRUE && inherits(cond, "immediateCondition") 1549s [00:52:29.897] ...future.conditions[[length(...future.conditions) + 1549s [00:52:29.897] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1549s [00:52:29.897] if (TRUE && !signal) { 1549s [00:52:29.897] muffleCondition <- function (cond, pattern = "^muffle") 1549s [00:52:29.897] { 1549s [00:52:29.897] inherits <- base::inherits 1549s [00:52:29.897] invokeRestart <- base::invokeRestart 1549s [00:52:29.897] is.null <- base::is.null 1549s [00:52:29.897] muffled <- FALSE 1549s [00:52:29.897] if (inherits(cond, "message")) { 1549s [00:52:29.897] muffled <- grepl(pattern, "muffleMessage") 1549s [00:52:29.897] if (muffled) 1549s [00:52:29.897] invokeRestart("muffleMessage") 1549s [00:52:29.897] } 1549s [00:52:29.897] else if (inherits(cond, "warning")) { 1549s [00:52:29.897] muffled <- grepl(pattern, "muffleWarning") 1549s [00:52:29.897] if (muffled) 1549s [00:52:29.897] invokeRestart("muffleWarning") 1549s [00:52:29.897] } 1549s [00:52:29.897] else if (inherits(cond, "condition")) { 1549s [00:52:29.897] if (!is.null(pattern)) { 1549s [00:52:29.897] computeRestarts <- base::computeRestarts 1549s [00:52:29.897] grepl <- base::grepl 1549s [00:52:29.897] restarts <- computeRestarts(cond) 1549s [00:52:29.897] for (restart in restarts) { 1549s [00:52:29.897] name <- restart$name 1549s [00:52:29.897] if (is.null(name)) 1549s [00:52:29.897] next 1549s [00:52:29.897] if (!grepl(pattern, name)) 1549s [00:52:29.897] next 1549s [00:52:29.897] invokeRestart(restart) 1549s [00:52:29.897] muffled <- TRUE 1549s [00:52:29.897] break 1549s [00:52:29.897] } 1549s [00:52:29.897] } 1549s [00:52:29.897] } 1549s [00:52:29.897] invisible(muffled) 1549s [00:52:29.897] } 1549s [00:52:29.897] muffleCondition(cond, pattern = "^muffle") 1549s [00:52:29.897] } 1549s [00:52:29.897] } 1549s [00:52:29.897] else { 1549s [00:52:29.897] if (TRUE) { 1549s [00:52:29.897] muffleCondition <- function (cond, pattern = "^muffle") 1549s [00:52:29.897] { 1549s [00:52:29.897] inherits <- base::inherits 1549s [00:52:29.897] invokeRestart <- base::invokeRestart 1549s [00:52:29.897] is.null <- base::is.null 1549s [00:52:29.897] muffled <- FALSE 1549s [00:52:29.897] if (inherits(cond, "message")) { 1549s [00:52:29.897] muffled <- grepl(pattern, "muffleMessage") 1549s [00:52:29.897] if (muffled) 1549s [00:52:29.897] invokeRestart("muffleMessage") 1549s [00:52:29.897] } 1549s [00:52:29.897] else if (inherits(cond, "warning")) { 1549s [00:52:29.897] muffled <- grepl(pattern, "muffleWarning") 1549s [00:52:29.897] if (muffled) 1549s [00:52:29.897] invokeRestart("muffleWarning") 1549s [00:52:29.897] } 1549s [00:52:29.897] else if (inherits(cond, "condition")) { 1549s [00:52:29.897] if (!is.null(pattern)) { 1549s [00:52:29.897] computeRestarts <- base::computeRestarts 1549s [00:52:29.897] grepl <- base::grepl 1549s [00:52:29.897] restarts <- computeRestarts(cond) 1549s [00:52:29.897] for (restart in restarts) { 1549s [00:52:29.897] name <- restart$name 1549s [00:52:29.897] if (is.null(name)) 1549s [00:52:29.897] next 1549s [00:52:29.897] if (!grepl(pattern, name)) 1549s [00:52:29.897] next 1549s [00:52:29.897] invokeRestart(restart) 1549s [00:52:29.897] muffled <- TRUE 1549s [00:52:29.897] break 1549s [00:52:29.897] } 1549s [00:52:29.897] } 1549s [00:52:29.897] } 1549s [00:52:29.897] invisible(muffled) 1549s [00:52:29.897] } 1549s [00:52:29.897] muffleCondition(cond, pattern = "^muffle") 1549s [00:52:29.897] } 1549s [00:52:29.897] } 1549s [00:52:29.897] } 1549s [00:52:29.897] })) 1549s [00:52:29.897] }, error = function(ex) { 1549s [00:52:29.897] base::structure(base::list(value = NULL, visible = NULL, 1549s [00:52:29.897] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1549s [00:52:29.897] ...future.rng), started = ...future.startTime, 1549s [00:52:29.897] finished = Sys.time(), session_uuid = NA_character_, 1549s [00:52:29.897] version = "1.8"), class = "FutureResult") 1549s [00:52:29.897] }, finally = { 1549s [00:52:29.897] if (!identical(...future.workdir, getwd())) 1549s [00:52:29.897] setwd(...future.workdir) 1549s [00:52:29.897] { 1549s [00:52:29.897] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1549s [00:52:29.897] ...future.oldOptions$nwarnings <- NULL 1549s [00:52:29.897] } 1549s [00:52:29.897] base::options(...future.oldOptions) 1549s [00:52:29.897] if (.Platform$OS.type == "windows") { 1549s [00:52:29.897] old_names <- names(...future.oldEnvVars) 1549s [00:52:29.897] envs <- base::Sys.getenv() 1549s [00:52:29.897] names <- names(envs) 1549s [00:52:29.897] common <- intersect(names, old_names) 1549s [00:52:29.897] added <- setdiff(names, old_names) 1549s [00:52:29.897] removed <- setdiff(old_names, names) 1549s [00:52:29.897] changed <- common[...future.oldEnvVars[common] != 1549s [00:52:29.897] envs[common]] 1549s [00:52:29.897] NAMES <- toupper(changed) 1549s [00:52:29.897] args <- list() 1549s [00:52:29.897] for (kk in seq_along(NAMES)) { 1549s [00:52:29.897] name <- changed[[kk]] 1549s [00:52:29.897] NAME <- NAMES[[kk]] 1549s [00:52:29.897] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.897] next 1549s [00:52:29.897] args[[name]] <- ...future.oldEnvVars[[name]] 1549s [00:52:29.897] } 1549s [00:52:29.897] NAMES <- toupper(added) 1549s [00:52:29.897] for (kk in seq_along(NAMES)) { 1549s [00:52:29.897] name <- added[[kk]] 1549s [00:52:29.897] NAME <- NAMES[[kk]] 1549s [00:52:29.897] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.897] next 1549s [00:52:29.897] args[[name]] <- "" 1549s [00:52:29.897] } 1549s [00:52:29.897] NAMES <- toupper(removed) 1549s [00:52:29.897] for (kk in seq_along(NAMES)) { 1549s [00:52:29.897] name <- removed[[kk]] 1549s [00:52:29.897] NAME <- NAMES[[kk]] 1549s [00:52:29.897] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.897] next 1549s [00:52:29.897] args[[name]] <- ...future.oldEnvVars[[name]] 1549s [00:52:29.897] } 1549s [00:52:29.897] if (length(args) > 0) 1549s [00:52:29.897] base::do.call(base::Sys.setenv, args = args) 1549s [00:52:29.897] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1549s [00:52:29.897] } 1549s [00:52:29.897] else { 1549s [00:52:29.897] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1549s [00:52:29.897] } 1549s [00:52:29.897] { 1549s [00:52:29.897] if (base::length(...future.futureOptionsAdded) > 1549s [00:52:29.897] 0L) { 1549s [00:52:29.897] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1549s [00:52:29.897] base::names(opts) <- ...future.futureOptionsAdded 1549s [00:52:29.897] base::options(opts) 1549s [00:52:29.897] } 1549s [00:52:29.897] { 1549s [00:52:29.897] { 1549s [00:52:29.897] NULL 1549s [00:52:29.897] RNGkind("Mersenne-Twister") 1549s [00:52:29.897] base::rm(list = ".Random.seed", envir = base::globalenv(), 1549s [00:52:29.897] inherits = FALSE) 1549s [00:52:29.897] } 1549s [00:52:29.897] options(future.plan = NULL) 1549s [00:52:29.897] if (is.na(NA_character_)) 1549s [00:52:29.897] Sys.unsetenv("R_FUTURE_PLAN") 1549s [00:52:29.897] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1549s [00:52:29.897] future::plan(list(function (..., envir = parent.frame()) 1549s [00:52:29.897] { 1549s [00:52:29.897] future <- SequentialFuture(..., envir = envir) 1549s [00:52:29.897] if (!future$lazy) 1549s [00:52:29.897] future <- run(future) 1549s [00:52:29.897] invisible(future) 1549s [00:52:29.897] }), .cleanup = FALSE, .init = FALSE) 1549s [00:52:29.897] } 1549s [00:52:29.897] } 1549s [00:52:29.897] } 1549s [00:52:29.897] }) 1549s [00:52:29.897] if (TRUE) { 1549s [00:52:29.897] base::sink(type = "output", split = FALSE) 1549s [00:52:29.897] if (TRUE) { 1549s [00:52:29.897] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1549s [00:52:29.897] } 1549s [00:52:29.897] else { 1549s [00:52:29.897] ...future.result["stdout"] <- base::list(NULL) 1549s [00:52:29.897] } 1549s [00:52:29.897] base::close(...future.stdout) 1549s [00:52:29.897] ...future.stdout <- NULL 1549s [00:52:29.897] } 1549s [00:52:29.897] ...future.result$conditions <- ...future.conditions 1549s [00:52:29.897] ...future.result$finished <- base::Sys.time() 1549s [00:52:29.897] ...future.result 1549s [00:52:29.897] } 1549s [00:52:29.902] assign_globals() ... 1549s [00:52:29.902] List of 5 1549s [00:52:29.902] $ ...future.FUN :function (x, ...) 1549s [00:52:29.902] $ future.call.arguments : list() 1549s [00:52:29.902] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1549s [00:52:29.902] $ ...future.elements_ii :List of 2 1549s [00:52:29.902] ..$ a:Classes 'listenv', 'environment' 1549s [00:52:29.902] ..$ b:Classes 'listenv', 'environment' 1549s [00:52:29.902] $ ...future.seeds_ii : NULL 1549s [00:52:29.902] $ ...future.globals.maxSize: NULL 1549s [00:52:29.902] - attr(*, "where")=List of 5 1549s [00:52:29.902] ..$ ...future.FUN : 1549s [00:52:29.902] ..$ future.call.arguments : 1549s [00:52:29.902] ..$ ...future.elements_ii : 1549s [00:52:29.902] ..$ ...future.seeds_ii : 1549s [00:52:29.902] ..$ ...future.globals.maxSize: 1549s [00:52:29.902] - attr(*, "resolved")= logi FALSE 1549s [00:52:29.902] - attr(*, "total_size")= num 4968 1549s [00:52:29.902] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1549s [00:52:29.902] - attr(*, "already-done")= logi TRUE 1549s [00:52:29.908] - copied ‘...future.FUN’ to environment 1549s [00:52:29.908] - copied ‘future.call.arguments’ to environment 1549s [00:52:29.908] - copied ‘...future.elements_ii’ to environment 1549s [00:52:29.908] - copied ‘...future.seeds_ii’ to environment 1549s [00:52:29.908] - copied ‘...future.globals.maxSize’ to environment 1549s [00:52:29.908] assign_globals() ... done 1549s [00:52:29.909] plan(): Setting new future strategy stack: 1549s [00:52:29.909] List of future strategies: 1549s [00:52:29.909] 1. sequential: 1549s [00:52:29.909] - args: function (..., envir = parent.frame()) 1549s [00:52:29.909] - tweaked: FALSE 1549s [00:52:29.909] - call: NULL 1549s [00:52:29.909] plan(): nbrOfWorkers() = 1 1549s [00:52:29.910] plan(): Setting new future strategy stack: 1549s [00:52:29.910] List of future strategies: 1549s [00:52:29.910] 1. sequential: 1549s [00:52:29.910] - args: function (..., envir = parent.frame()) 1549s [00:52:29.910] - tweaked: FALSE 1549s [00:52:29.910] - call: plan(strategy) 1549s [00:52:29.911] plan(): nbrOfWorkers() = 1 1549s [00:52:29.911] SequentialFuture started (and completed) 1549s [00:52:29.911] - Launch lazy future ... done 1549s [00:52:29.911] run() for ‘SequentialFuture’ ... done 1549s [00:52:29.911] Created future: 1549s [00:52:29.911] SequentialFuture: 1549s [00:52:29.911] Label: ‘future_lapply-1’ 1549s [00:52:29.911] Expression: 1549s [00:52:29.911] { 1549s [00:52:29.911] do.call(function(...) { 1549s [00:52:29.911] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.911] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1549s [00:52:29.911] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.911] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.911] } 1549s [00:52:29.911] { 1549s [00:52:29.911] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1549s [00:52:29.911] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.911] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.911] }) 1549s [00:52:29.911] } 1549s [00:52:29.911] }, args = future.call.arguments) 1549s [00:52:29.911] } 1549s [00:52:29.911] Lazy evaluation: FALSE 1549s [00:52:29.911] Asynchronous evaluation: FALSE 1549s [00:52:29.911] Local evaluation: TRUE 1549s [00:52:29.911] Environment: R_GlobalEnv 1549s [00:52:29.911] Capture standard output: TRUE 1549s [00:52:29.911] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1549s [00:52:29.911] Globals: 5 objects totaling 17.90 KiB (function ‘...future.FUN’ of 4.85 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 13.05 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1549s [00:52:29.911] Packages: 1 packages (‘listenv’) 1549s [00:52:29.911] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1549s [00:52:29.911] Resolved: TRUE 1549s [00:52:29.911] Value: 800 bytes of class ‘list’ 1549s [00:52:29.911] Early signaling: FALSE 1549s [00:52:29.911] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1549s [00:52:29.911] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1549s [00:52:29.914] Chunk #1 of 1 ... DONE 1549s [00:52:29.914] Launching 1 futures (chunks) ... DONE 1549s [00:52:29.914] Resolving 1 futures (chunks) ... 1549s [00:52:29.914] resolve() on list ... 1549s [00:52:29.914] recursive: 0 1549s [00:52:29.915] length: 1 1549s [00:52:29.915] 1549s [00:52:29.915] resolved() for ‘SequentialFuture’ ... 1549s [00:52:29.915] - state: ‘finished’ 1549s [00:52:29.915] - run: TRUE 1549s [00:52:29.915] - result: ‘FutureResult’ 1549s [00:52:29.915] resolved() for ‘SequentialFuture’ ... done 1549s [00:52:29.916] Future #1 1549s [00:52:29.916] signalConditionsASAP(SequentialFuture, pos=1) ... 1549s [00:52:29.916] - nx: 1 1549s [00:52:29.916] - relay: TRUE 1549s [00:52:29.916] - stdout: TRUE 1549s [00:52:29.916] - signal: TRUE 1549s [00:52:29.916] - resignal: FALSE 1549s [00:52:29.917] - force: TRUE 1549s [00:52:29.917] - relayed: [n=1] FALSE 1549s [00:52:29.917] - queued futures: [n=1] FALSE 1549s [00:52:29.917] - until=1 1549s [00:52:29.917] - relaying element #1 1549s [00:52:29.917] - relayed: [n=1] TRUE 1549s [00:52:29.918] - queued futures: [n=1] TRUE 1549s [00:52:29.918] signalConditionsASAP(SequentialFuture, pos=1) ... done 1549s [00:52:29.918] length: 0 (resolved future 1) 1549s [00:52:29.918] Relaying remaining futures 1549s [00:52:29.920] signalConditionsASAP(NULL, pos=0) ... 1549s [00:52:29.920] - nx: 1 1549s [00:52:29.920] - relay: TRUE 1549s [00:52:29.920] - stdout: TRUE 1549s [00:52:29.921] - signal: TRUE 1549s [00:52:29.921] - resignal: FALSE 1549s [00:52:29.921] - force: TRUE 1549s [00:52:29.921] - relayed: [n=1] TRUE 1549s [00:52:29.921] - queued futures: [n=1] TRUE 1549s - flush all 1549s [00:52:29.922] - relayed: [n=1] TRUE 1549s [00:52:29.922] - queued futures: [n=1] TRUE 1549s [00:52:29.922] signalConditionsASAP(NULL, pos=0) ... done 1549s [00:52:29.922] resolve() on list ... DONE 1549s [00:52:29.922] - Number of value chunks collected: 1 1549s [00:52:29.923] Resolving 1 futures (chunks) ... DONE 1549s [00:52:29.923] Reducing values from 1 chunks ... 1549s [00:52:29.923] - Number of values collected after concatenation: 2 1549s [00:52:29.923] - Number of values expected: 2 1549s [00:52:29.923] Reducing values from 1 chunks ... DONE 1549s [00:52:29.923] future_lapply() ... DONE 1549s List of 1 1549s $ y:List of 2 1549s ..$ a: Named chr "A" 1549s .. ..- attr(*, "names")= chr "A" 1549s ..$ b: Named chr [1:2] "A" "B" 1549s .. ..- attr(*, "names")= chr [1:2] "A" "B" 1549s - future_lapply(x, FUN = vector, ...) ... 1549s [00:52:29.927] future_lapply() ... 1549s [00:52:29.928] Number of chunks: 1 1549s [00:52:29.928] Index remapping (attribute 'ordering'): [n = 4] 3, 1, 2, 4 1549s [00:52:29.928] getGlobalsAndPackagesXApply() ... 1549s [00:52:29.928] - future.globals: TRUE 1549s [00:52:29.929] getGlobalsAndPackages() ... 1549s [00:52:29.929] Searching for globals... 1549s [00:52:29.930] - globals found: [2] ‘FUN’, ‘.Internal’ 1549s [00:52:29.930] Searching for globals ... DONE 1549s [00:52:29.930] Resolving globals: FALSE 1549s [00:52:29.931] The total size of the 1 globals is 2.13 KiB (2184 bytes) 1549s [00:52:29.931] The total size of the 1 globals exported for future expression (‘FUN(length = 2L)’) is 2.13 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (2.13 KiB of class ‘function’) 1549s [00:52:29.932] - globals: [1] ‘FUN’ 1549s [00:52:29.932] 1549s [00:52:29.932] getGlobalsAndPackages() ... DONE 1549s [00:52:29.932] - globals found/used: [n=1] ‘FUN’ 1549s [00:52:29.932] - needed namespaces: [n=0] 1549s [00:52:29.932] Finding globals ... DONE 1549s [00:52:29.932] - use_args: TRUE 1549s [00:52:29.933] - Getting '...' globals ... 1549s [00:52:29.933] resolve() on list ... 1549s [00:52:29.933] recursive: 0 1549s [00:52:29.933] length: 1 1549s [00:52:29.933] elements: ‘...’ 1549s [00:52:29.934] length: 0 (resolved future 1) 1549s [00:52:29.934] resolve() on list ... DONE 1549s [00:52:29.934] - '...' content: [n=1] ‘length’ 1549s [00:52:29.934] List of 1 1549s [00:52:29.934] $ ...:List of 1 1549s [00:52:29.934] ..$ length: int 2 1549s [00:52:29.934] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1549s [00:52:29.934] - attr(*, "where")=List of 1 1549s [00:52:29.934] ..$ ...: 1549s [00:52:29.934] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1549s [00:52:29.934] - attr(*, "resolved")= logi TRUE 1549s [00:52:29.934] - attr(*, "total_size")= num NA 1549s [00:52:29.937] - Getting '...' globals ... DONE 1549s [00:52:29.938] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1549s [00:52:29.938] List of 2 1549s [00:52:29.938] $ ...future.FUN:function (mode = "logical", length = 0L) 1549s [00:52:29.938] $ ... :List of 1 1549s [00:52:29.938] ..$ length: int 2 1549s [00:52:29.938] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1549s [00:52:29.938] - attr(*, "where")=List of 2 1549s [00:52:29.938] ..$ ...future.FUN: 1549s [00:52:29.938] ..$ ... : 1549s [00:52:29.938] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1549s [00:52:29.938] - attr(*, "resolved")= logi FALSE 1549s [00:52:29.938] - attr(*, "total_size")= num 2240 1549s [00:52:29.941] Packages to be attached in all futures: [n=0] 1549s [00:52:29.942] getGlobalsAndPackagesXApply() ... DONE 1549s [00:52:29.942] Number of futures (= number of chunks): 1 1549s [00:52:29.942] Launching 1 futures (chunks) ... 1549s [00:52:29.942] Chunk #1 of 1 ... 1549s [00:52:29.942] - Finding globals in 'X' for chunk #1 ... 1549s [00:52:29.943] getGlobalsAndPackages() ... 1549s [00:52:29.943] Searching for globals... 1549s [00:52:29.943] 1549s [00:52:29.943] Searching for globals ... DONE 1549s [00:52:29.943] - globals: [0] 1549s [00:52:29.943] getGlobalsAndPackages() ... DONE 1549s [00:52:29.944] + additional globals found: [n=0] 1549s [00:52:29.944] + additional namespaces needed: [n=0] 1549s [00:52:29.944] - Finding globals in 'X' for chunk #1 ... DONE 1549s [00:52:29.944] - seeds: 1549s [00:52:29.944] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.945] getGlobalsAndPackages() ... 1549s [00:52:29.945] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.945] Resolving globals: FALSE 1549s [00:52:29.945] Tweak future expression to call with '...' arguments ... 1549s [00:52:29.945] { 1549s [00:52:29.945] do.call(function(...) { 1549s [00:52:29.945] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.945] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1549s [00:52:29.945] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.945] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.945] } 1549s [00:52:29.945] { 1549s [00:52:29.945] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1549s [00:52:29.945] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.945] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.945] }) 1549s [00:52:29.945] } 1549s [00:52:29.945] }, args = future.call.arguments) 1549s [00:52:29.945] } 1549s [00:52:29.946] Tweak future expression to call with '...' arguments ... DONE 1549s [00:52:29.946] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1549s [00:52:29.947] 1549s [00:52:29.947] getGlobalsAndPackages() ... DONE 1549s [00:52:29.947] run() for ‘Future’ ... 1549s [00:52:29.947] - state: ‘created’ 1549s [00:52:29.947] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1549s [00:52:29.948] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1549s [00:52:29.948] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1549s [00:52:29.948] - Field: ‘label’ 1549s [00:52:29.948] - Field: ‘local’ 1549s [00:52:29.948] - Field: ‘owner’ 1549s [00:52:29.948] - Field: ‘envir’ 1549s [00:52:29.949] - Field: ‘packages’ 1549s [00:52:29.949] - Field: ‘gc’ 1549s [00:52:29.949] - Field: ‘conditions’ 1549s [00:52:29.949] - Field: ‘expr’ 1549s [00:52:29.949] - Field: ‘uuid’ 1549s [00:52:29.949] - Field: ‘seed’ 1549s [00:52:29.949] - Field: ‘version’ 1549s [00:52:29.950] - Field: ‘result’ 1549s [00:52:29.950] - Field: ‘asynchronous’ 1549s [00:52:29.950] - Field: ‘calls’ 1549s [00:52:29.950] - Field: ‘globals’ 1549s [00:52:29.950] - Field: ‘stdout’ 1549s [00:52:29.951] - Field: ‘earlySignal’ 1549s [00:52:29.951] - Field: ‘lazy’ 1549s [00:52:29.951] - Field: ‘state’ 1549s [00:52:29.951] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1549s [00:52:29.951] - Launch lazy future ... 1549s [00:52:29.952] Packages needed by the future expression (n = 0): 1549s [00:52:29.952] Packages needed by future strategies (n = 0): 1549s [00:52:29.952] { 1549s [00:52:29.952] { 1549s [00:52:29.952] { 1549s [00:52:29.952] ...future.startTime <- base::Sys.time() 1549s [00:52:29.952] { 1549s [00:52:29.952] { 1549s [00:52:29.952] { 1549s [00:52:29.952] base::local({ 1549s [00:52:29.952] has_future <- base::requireNamespace("future", 1549s [00:52:29.952] quietly = TRUE) 1549s [00:52:29.952] if (has_future) { 1549s [00:52:29.952] ns <- base::getNamespace("future") 1549s [00:52:29.952] version <- ns[[".package"]][["version"]] 1549s [00:52:29.952] if (is.null(version)) 1549s [00:52:29.952] version <- utils::packageVersion("future") 1549s [00:52:29.952] } 1549s [00:52:29.952] else { 1549s [00:52:29.952] version <- NULL 1549s [00:52:29.952] } 1549s [00:52:29.952] if (!has_future || version < "1.8.0") { 1549s [00:52:29.952] info <- base::c(r_version = base::gsub("R version ", 1549s [00:52:29.952] "", base::R.version$version.string), 1549s [00:52:29.952] platform = base::sprintf("%s (%s-bit)", 1549s [00:52:29.952] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1549s [00:52:29.952] os = base::paste(base::Sys.info()[base::c("sysname", 1549s [00:52:29.952] "release", "version")], collapse = " "), 1549s [00:52:29.952] hostname = base::Sys.info()[["nodename"]]) 1549s [00:52:29.952] info <- base::sprintf("%s: %s", base::names(info), 1549s [00:52:29.952] info) 1549s [00:52:29.952] info <- base::paste(info, collapse = "; ") 1549s [00:52:29.952] if (!has_future) { 1549s [00:52:29.952] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1549s [00:52:29.952] info) 1549s [00:52:29.952] } 1549s [00:52:29.952] else { 1549s [00:52:29.952] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1549s [00:52:29.952] info, version) 1549s [00:52:29.952] } 1549s [00:52:29.952] base::stop(msg) 1549s [00:52:29.952] } 1549s [00:52:29.952] }) 1549s [00:52:29.952] } 1549s [00:52:29.952] options(future.plan = NULL) 1549s [00:52:29.952] Sys.unsetenv("R_FUTURE_PLAN") 1549s [00:52:29.952] future::plan("default", .cleanup = FALSE, .init = FALSE) 1549s [00:52:29.952] } 1549s [00:52:29.952] ...future.workdir <- getwd() 1549s [00:52:29.952] } 1549s [00:52:29.952] ...future.oldOptions <- base::as.list(base::.Options) 1549s [00:52:29.952] ...future.oldEnvVars <- base::Sys.getenv() 1549s [00:52:29.952] } 1549s [00:52:29.952] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1549s [00:52:29.952] future.globals.maxSize = NULL, future.globals.method = NULL, 1549s [00:52:29.952] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1549s [00:52:29.952] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1549s [00:52:29.952] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1549s [00:52:29.952] future.stdout.windows.reencode = NULL, width = 80L) 1549s [00:52:29.952] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1549s [00:52:29.952] base::names(...future.oldOptions)) 1549s [00:52:29.952] } 1549s [00:52:29.952] if (FALSE) { 1549s [00:52:29.952] } 1549s [00:52:29.952] else { 1549s [00:52:29.952] if (TRUE) { 1549s [00:52:29.952] ...future.stdout <- base::rawConnection(base::raw(0L), 1549s [00:52:29.952] open = "w") 1549s [00:52:29.952] } 1549s [00:52:29.952] else { 1549s [00:52:29.952] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1549s [00:52:29.952] windows = "NUL", "/dev/null"), open = "w") 1549s [00:52:29.952] } 1549s [00:52:29.952] base::sink(...future.stdout, type = "output", split = FALSE) 1549s [00:52:29.952] base::on.exit(if (!base::is.null(...future.stdout)) { 1549s [00:52:29.952] base::sink(type = "output", split = FALSE) 1549s [00:52:29.952] base::close(...future.stdout) 1549s [00:52:29.952] }, add = TRUE) 1549s [00:52:29.952] } 1549s [00:52:29.952] ...future.frame <- base::sys.nframe() 1549s [00:52:29.952] ...future.conditions <- base::list() 1549s [00:52:29.952] ...future.rng <- base::globalenv()$.Random.seed 1549s [00:52:29.952] if (FALSE) { 1549s [00:52:29.952] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1549s [00:52:29.952] "...future.value", "...future.globalenv.names", ".Random.seed") 1549s [00:52:29.952] } 1549s [00:52:29.952] ...future.result <- base::tryCatch({ 1549s [00:52:29.952] base::withCallingHandlers({ 1549s [00:52:29.952] ...future.value <- base::withVisible(base::local({ 1549s [00:52:29.952] do.call(function(...) { 1549s [00:52:29.952] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1549s [00:52:29.952] if (!identical(...future.globals.maxSize.org, 1549s [00:52:29.952] ...future.globals.maxSize)) { 1549s [00:52:29.952] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1549s [00:52:29.952] on.exit(options(oopts), add = TRUE) 1549s [00:52:29.952] } 1549s [00:52:29.952] { 1549s [00:52:29.952] lapply(seq_along(...future.elements_ii), 1549s [00:52:29.952] FUN = function(jj) { 1549s [00:52:29.952] ...future.X_jj <- ...future.elements_ii[[jj]] 1549s [00:52:29.952] ...future.FUN(...future.X_jj, ...) 1549s [00:52:29.952] }) 1549s [00:52:29.952] } 1549s [00:52:29.952] }, args = future.call.arguments) 1549s [00:52:29.952] })) 1549s [00:52:29.952] future::FutureResult(value = ...future.value$value, 1549s [00:52:29.952] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1549s [00:52:29.952] ...future.rng), globalenv = if (FALSE) 1549s [00:52:29.952] list(added = base::setdiff(base::names(base::.GlobalEnv), 1549s [00:52:29.952] ...future.globalenv.names)) 1549s [00:52:29.952] else NULL, started = ...future.startTime, version = "1.8") 1549s [00:52:29.952] }, condition = base::local({ 1549s [00:52:29.952] c <- base::c 1549s [00:52:29.952] inherits <- base::inherits 1549s [00:52:29.952] invokeRestart <- base::invokeRestart 1549s [00:52:29.952] length <- base::length 1549s [00:52:29.952] list <- base::list 1549s [00:52:29.952] seq.int <- base::seq.int 1549s [00:52:29.952] signalCondition <- base::signalCondition 1549s [00:52:29.952] sys.calls <- base::sys.calls 1549s [00:52:29.952] `[[` <- base::`[[` 1549s [00:52:29.952] `+` <- base::`+` 1549s [00:52:29.952] `<<-` <- base::`<<-` 1549s [00:52:29.952] sysCalls <- function(calls = sys.calls(), from = 1L) { 1549s [00:52:29.952] calls[seq.int(from = from + 12L, to = length(calls) - 1549s [00:52:29.952] 3L)] 1549s [00:52:29.952] } 1549s [00:52:29.952] function(cond) { 1549s [00:52:29.952] is_error <- inherits(cond, "error") 1549s [00:52:29.952] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1549s [00:52:29.952] NULL) 1549s [00:52:29.952] if (is_error) { 1549s [00:52:29.952] sessionInformation <- function() { 1549s [00:52:29.952] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1549s [00:52:29.952] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1549s [00:52:29.952] search = base::search(), system = base::Sys.info()) 1549s [00:52:29.952] } 1549s [00:52:29.952] ...future.conditions[[length(...future.conditions) + 1549s [00:52:29.952] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1549s [00:52:29.952] cond$call), session = sessionInformation(), 1549s [00:52:29.952] timestamp = base::Sys.time(), signaled = 0L) 1549s [00:52:29.952] signalCondition(cond) 1549s [00:52:29.952] } 1549s [00:52:29.952] else if (!ignore && TRUE && inherits(cond, c("condition", 1549s [00:52:29.952] "immediateCondition"))) { 1549s [00:52:29.952] signal <- TRUE && inherits(cond, "immediateCondition") 1549s [00:52:29.952] ...future.conditions[[length(...future.conditions) + 1549s [00:52:29.952] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1549s [00:52:29.952] if (TRUE && !signal) { 1549s [00:52:29.952] muffleCondition <- function (cond, pattern = "^muffle") 1549s [00:52:29.952] { 1549s [00:52:29.952] inherits <- base::inherits 1549s [00:52:29.952] invokeRestart <- base::invokeRestart 1549s [00:52:29.952] is.null <- base::is.null 1549s [00:52:29.952] muffled <- FALSE 1549s [00:52:29.952] if (inherits(cond, "message")) { 1549s [00:52:29.952] muffled <- grepl(pattern, "muffleMessage") 1549s [00:52:29.952] if (muffled) 1549s [00:52:29.952] invokeRestart("muffleMessage") 1549s [00:52:29.952] } 1549s [00:52:29.952] else if (inherits(cond, "warning")) { 1549s [00:52:29.952] muffled <- grepl(pattern, "muffleWarning") 1549s [00:52:29.952] if (muffled) 1549s [00:52:29.952] invokeRestart("muffleWarning") 1549s [00:52:29.952] } 1549s [00:52:29.952] else if (inherits(cond, "condition")) { 1549s [00:52:29.952] if (!is.null(pattern)) { 1549s [00:52:29.952] computeRestarts <- base::computeRestarts 1549s [00:52:29.952] grepl <- base::grepl 1549s [00:52:29.952] restarts <- computeRestarts(cond) 1549s [00:52:29.952] for (restart in restarts) { 1549s [00:52:29.952] name <- restart$name 1549s [00:52:29.952] if (is.null(name)) 1549s [00:52:29.952] next 1549s [00:52:29.952] if (!grepl(pattern, name)) 1549s [00:52:29.952] next 1549s [00:52:29.952] invokeRestart(restart) 1549s [00:52:29.952] muffled <- TRUE 1549s [00:52:29.952] break 1549s [00:52:29.952] } 1549s [00:52:29.952] } 1549s [00:52:29.952] } 1549s [00:52:29.952] invisible(muffled) 1549s [00:52:29.952] } 1549s [00:52:29.952] muffleCondition(cond, pattern = "^muffle") 1549s [00:52:29.952] } 1549s [00:52:29.952] } 1549s [00:52:29.952] else { 1549s [00:52:29.952] if (TRUE) { 1549s [00:52:29.952] muffleCondition <- function (cond, pattern = "^muffle") 1549s [00:52:29.952] { 1549s [00:52:29.952] inherits <- base::inherits 1549s [00:52:29.952] invokeRestart <- base::invokeRestart 1549s [00:52:29.952] is.null <- base::is.null 1549s [00:52:29.952] muffled <- FALSE 1549s [00:52:29.952] if (inherits(cond, "message")) { 1549s [00:52:29.952] muffled <- grepl(pattern, "muffleMessage") 1549s [00:52:29.952] if (muffled) 1549s [00:52:29.952] invokeRestart("muffleMessage") 1549s [00:52:29.952] } 1549s [00:52:29.952] else if (inherits(cond, "warning")) { 1549s [00:52:29.952] muffled <- grepl(pattern, "muffleWarning") 1549s [00:52:29.952] if (muffled) 1549s [00:52:29.952] invokeRestart("muffleWarning") 1549s [00:52:29.952] } 1549s [00:52:29.952] else if (inherits(cond, "condition")) { 1549s [00:52:29.952] if (!is.null(pattern)) { 1549s [00:52:29.952] computeRestarts <- base::computeRestarts 1549s [00:52:29.952] grepl <- base::grepl 1549s [00:52:29.952] restarts <- computeRestarts(cond) 1549s [00:52:29.952] for (restart in restarts) { 1549s [00:52:29.952] name <- restart$name 1549s [00:52:29.952] if (is.null(name)) 1549s [00:52:29.952] next 1549s [00:52:29.952] if (!grepl(pattern, name)) 1549s [00:52:29.952] next 1549s [00:52:29.952] invokeRestart(restart) 1549s [00:52:29.952] muffled <- TRUE 1549s [00:52:29.952] break 1549s [00:52:29.952] } 1549s [00:52:29.952] } 1549s [00:52:29.952] } 1549s [00:52:29.952] invisible(muffled) 1549s [00:52:29.952] } 1549s [00:52:29.952] muffleCondition(cond, pattern = "^muffle") 1549s [00:52:29.952] } 1549s [00:52:29.952] } 1549s [00:52:29.952] } 1549s [00:52:29.952] })) 1549s [00:52:29.952] }, error = function(ex) { 1549s [00:52:29.952] base::structure(base::list(value = NULL, visible = NULL, 1549s [00:52:29.952] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1549s [00:52:29.952] ...future.rng), started = ...future.startTime, 1549s [00:52:29.952] finished = Sys.time(), session_uuid = NA_character_, 1549s [00:52:29.952] version = "1.8"), class = "FutureResult") 1549s [00:52:29.952] }, finally = { 1549s [00:52:29.952] if (!identical(...future.workdir, getwd())) 1549s [00:52:29.952] setwd(...future.workdir) 1549s [00:52:29.952] { 1549s [00:52:29.952] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1549s [00:52:29.952] ...future.oldOptions$nwarnings <- NULL 1549s [00:52:29.952] } 1549s [00:52:29.952] base::options(...future.oldOptions) 1549s [00:52:29.952] if (.Platform$OS.type == "windows") { 1549s [00:52:29.952] old_names <- names(...future.oldEnvVars) 1549s [00:52:29.952] envs <- base::Sys.getenv() 1549s [00:52:29.952] names <- names(envs) 1549s [00:52:29.952] common <- intersect(names, old_names) 1549s [00:52:29.952] added <- setdiff(names, old_names) 1549s [00:52:29.952] removed <- setdiff(old_names, names) 1549s [00:52:29.952] changed <- common[...future.oldEnvVars[common] != 1549s [00:52:29.952] envs[common]] 1549s [00:52:29.952] NAMES <- toupper(changed) 1549s [00:52:29.952] args <- list() 1549s [00:52:29.952] for (kk in seq_along(NAMES)) { 1549s [00:52:29.952] name <- changed[[kk]] 1549s [00:52:29.952] NAME <- NAMES[[kk]] 1549s [00:52:29.952] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.952] next 1549s [00:52:29.952] args[[name]] <- ...future.oldEnvVars[[name]] 1549s [00:52:29.952] } 1549s [00:52:29.952] NAMES <- toupper(added) 1549s [00:52:29.952] for (kk in seq_along(NAMES)) { 1549s [00:52:29.952] name <- added[[kk]] 1549s [00:52:29.952] NAME <- NAMES[[kk]] 1549s [00:52:29.952] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.952] next 1549s [00:52:29.952] args[[name]] <- "" 1549s [00:52:29.952] } 1549s [00:52:29.952] NAMES <- toupper(removed) 1549s [00:52:29.952] for (kk in seq_along(NAMES)) { 1549s [00:52:29.952] name <- removed[[kk]] 1549s [00:52:29.952] NAME <- NAMES[[kk]] 1549s [00:52:29.952] if (name != NAME && is.element(NAME, old_names)) 1549s [00:52:29.952] next 1549s [00:52:29.952] args[[name]] <- ...future.oldEnvVars[[name]] 1549s [00:52:29.952] } 1549s [00:52:29.952] if (length(args) > 0) 1549s [00:52:29.952] base::do.call(base::Sys.setenv, args = args) 1549s [00:52:29.952] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1549s [00:52:29.952] } 1549s [00:52:29.952] else { 1549s [00:52:29.952] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1549s [00:52:29.952] } 1549s [00:52:29.952] { 1549s [00:52:29.952] if (base::length(...future.futureOptionsAdded) > 1549s [00:52:29.952] 0L) { 1549s [00:52:29.952] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1549s [00:52:29.952] base::names(opts) <- ...future.futureOptionsAdded 1549s [00:52:29.952] base::options(opts) 1549s [00:52:29.952] } 1549s [00:52:29.952] { 1549s [00:52:29.952] { 1549s [00:52:29.952] NULL 1549s [00:52:29.952] RNGkind("Mersenne-Twister") 1549s [00:52:29.952] base::rm(list = ".Random.seed", envir = base::globalenv(), 1549s [00:52:29.952] inherits = FALSE) 1549s [00:52:29.952] } 1549s [00:52:29.952] options(future.plan = NULL) 1549s [00:52:29.952] if (is.na(NA_character_)) 1549s [00:52:29.952] Sys.unsetenv("R_FUTURE_PLAN") 1549s [00:52:29.952] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1549s [00:52:29.952] future::plan(list(function (..., envir = parent.frame()) 1549s [00:52:29.952] { 1549s [00:52:29.952] future <- SequentialFuture(..., envir = envir) 1549s [00:52:29.952] if (!future$lazy) 1549s [00:52:29.952] future <- run(future) 1549s [00:52:29.952] invisible(future) 1549s [00:52:29.952] }), .cleanup = FALSE, .init = FALSE) 1549s [00:52:29.952] } 1549s [00:52:29.952] } 1549s [00:52:29.952] } 1549s [00:52:29.952] }) 1549s [00:52:29.952] if (TRUE) { 1549s [00:52:29.952] base::sink(type = "output", split = FALSE) 1549s [00:52:29.952] if (TRUE) { 1549s [00:52:29.952] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1549s [00:52:29.952] } 1549s [00:52:29.952] else { 1549s [00:52:29.952] ...future.result["stdout"] <- base::list(NULL) 1549s [00:52:29.952] } 1549s [00:52:29.952] base::close(...future.stdout) 1549s [00:52:29.952] ...future.stdout <- NULL 1549s [00:52:29.952] } 1549s [00:52:29.952] ...future.result$conditions <- ...future.conditions 1549s [00:52:29.952] ...future.result$finished <- base::Sys.time() 1549s [00:52:29.952] ...future.result 1549s [00:52:29.952] } 1549s [00:52:29.957] assign_globals() ... 1549s [00:52:29.957] List of 5 1549s [00:52:29.957] $ ...future.FUN :function (mode = "logical", length = 0L) 1549s [00:52:29.957] $ future.call.arguments :List of 1 1549s [00:52:29.957] ..$ length: int 2 1549s [00:52:29.957] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1549s [00:52:29.957] $ ...future.elements_ii :List of 4 1549s [00:52:29.957] ..$ c: chr "character" 1549s [00:52:29.957] ..$ a: chr "integer" 1549s [00:52:29.957] ..$ b: chr "numeric" 1549s [00:52:29.957] ..$ c: chr "list" 1549s [00:52:29.957] $ ...future.seeds_ii : NULL 1549s [00:52:29.957] $ ...future.globals.maxSize: NULL 1549s [00:52:29.957] - attr(*, "where")=List of 5 1549s [00:52:29.957] ..$ ...future.FUN : 1549s [00:52:29.957] ..$ future.call.arguments : 1549s [00:52:29.957] ..$ ...future.elements_ii : 1549s [00:52:29.957] ..$ ...future.seeds_ii : 1549s [00:52:29.957] ..$ ...future.globals.maxSize: 1549s [00:52:29.957] - attr(*, "resolved")= logi FALSE 1549s [00:52:29.957] - attr(*, "total_size")= num 2240 1549s [00:52:29.957] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1549s [00:52:29.957] - attr(*, "already-done")= logi TRUE 1549s [00:52:29.965] - copied ‘...future.FUN’ to environment 1549s [00:52:29.965] - copied ‘future.call.arguments’ to environment 1549s [00:52:29.965] - copied ‘...future.elements_ii’ to environment 1549s [00:52:29.966] - copied ‘...future.seeds_ii’ to environment 1549s [00:52:29.966] - copied ‘...future.globals.maxSize’ to environment 1549s [00:52:29.966] assign_globals() ... done 1549s [00:52:29.966] plan(): Setting new future strategy stack: 1549s [00:52:29.966] List of future strategies: 1549s [00:52:29.966] 1. sequential: 1549s [00:52:29.966] - args: function (..., envir = parent.frame()) 1549s [00:52:29.966] - tweaked: FALSE 1549s [00:52:29.966] - call: NULL 1549s [00:52:29.967] plan(): nbrOfWorkers() = 1 1549s [00:52:29.968] plan(): Setting new future strategy stack: 1550s [00:52:29.968] List of future strategies: 1550s [00:52:29.968] 1. sequential: 1550s [00:52:29.968] - args: function (..., envir = parent.frame()) 1550s [00:52:29.968] - tweaked: FALSE 1550s [00:52:29.968] - call: plan(strategy) 1550s [00:52:29.968] plan(): nbrOfWorkers() = 1 1550s [00:52:29.968] SequentialFuture started (and completed) 1550s [00:52:29.969] - Launch lazy future ... done 1550s [00:52:29.969] run() for ‘SequentialFuture’ ... done 1550s [00:52:29.969] Created future: 1550s [00:52:29.969] SequentialFuture: 1550s [00:52:29.969] Label: ‘future_lapply-1’ 1550s [00:52:29.969] Expression: 1550s [00:52:29.969] { 1550s [00:52:29.969] do.call(function(...) { 1550s [00:52:29.969] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1550s [00:52:29.969] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1550s [00:52:29.969] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1550s [00:52:29.969] on.exit(options(oopts), add = TRUE) 1550s [00:52:29.969] } 1550s [00:52:29.969] { 1550s [00:52:29.969] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1550s [00:52:29.969] ...future.X_jj <- ...future.elements_ii[[jj]] 1550s [00:52:29.969] ...future.FUN(...future.X_jj, ...) 1550s [00:52:29.969] }) 1550s [00:52:29.969] } 1550s [00:52:29.969] }, args = future.call.arguments) 1550s [00:52:29.969] } 1550s [00:52:29.969] Lazy evaluation: FALSE 1550s [00:52:29.969] Asynchronous evaluation: FALSE 1550s [00:52:29.969] Local evaluation: TRUE 1550s [00:52:29.969] Environment: R_GlobalEnv 1550s [00:52:29.969] Capture standard output: TRUE 1550s [00:52:29.969] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1550s [00:52:29.969] Globals: 5 objects totaling 2.63 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 456 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1550s [00:52:29.969] Packages: 1550s [00:52:29.969] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1550s [00:52:29.969] Resolved: TRUE 1550s [00:52:29.969] Value: 240 bytes of class ‘list’ 1550s [00:52:29.969] Early signaling: FALSE 1550s [00:52:29.969] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1550s [00:52:29.969] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1550s [00:52:29.971] Chunk #1 of 1 ... DONE 1550s [00:52:29.971] Launching 1 futures (chunks) ... DONE 1550s [00:52:29.971] Resolving 1 futures (chunks) ... 1550s [00:52:29.971] resolve() on list ... 1550s [00:52:29.972] recursive: 0 1550s [00:52:29.972] length: 1 1550s [00:52:29.972] 1550s [00:52:29.972] resolved() for ‘SequentialFuture’ ... 1550s [00:52:29.972] - state: ‘finished’ 1550s [00:52:29.972] - run: TRUE 1550s [00:52:29.972] - result: ‘FutureResult’ 1550s [00:52:29.973] resolved() for ‘SequentialFuture’ ... done 1550s [00:52:29.973] Future #1 1550s [00:52:29.973] signalConditionsASAP(SequentialFuture, pos=1) ... 1550s [00:52:29.973] - nx: 1 1550s [00:52:29.973] - relay: TRUE 1550s [00:52:29.973] - stdout: TRUE 1550s [00:52:29.973] - signal: TRUE 1550s [00:52:29.974] - resignal: FALSE 1550s [00:52:29.974] - force: TRUE 1550s [00:52:29.974] - relayed: [n=1] FALSE 1550s [00:52:29.974] - queued futures: [n=1] FALSE 1550s [00:52:29.974] - until=1 1550s [00:52:29.974] - relaying element #1 1550s [00:52:29.974] - relayed: [n=1] TRUE 1550s [00:52:29.974] - queued futures: [n=1] TRUE 1550s [00:52:29.975] signalConditionsASAP(SequentialFuture, pos=1) ... done 1550s [00:52:29.975] length: 0 (resolved future 1) 1550s [00:52:29.975] Relaying remaining futures 1550s [00:52:29.975] signalConditionsASAP(NULL, pos=0) ... 1550s [00:52:29.975] - nx: 1 1550s [00:52:29.975] - relay: TRUE 1550s [00:52:29.976] - stdout: TRUE 1550s [00:52:29.976] - signal: TRUE 1550s [00:52:29.976] - resignal: FALSE 1550s [00:52:29.976] - force: TRUE 1550s [00:52:29.976] - relayed: [n=1] TRUE 1550s [00:52:29.976] - queued futures: [n=1] TRUE 1550s - flush all 1550s [00:52:29.976] - relayed: [n=1] TRUE 1550s [00:52:29.977] - queued futures: [n=1] TRUE 1550s [00:52:29.977] signalConditionsASAP(NULL, pos=0) ... done 1550s [00:52:29.977] resolve() on list ... DONE 1550s [00:52:29.977] - Number of value chunks collected: 1 1550s [00:52:29.977] Resolving 1 futures (chunks) ... DONE 1550s [00:52:29.977] Reducing values from 1 chunks ... 1550s [00:52:29.977] - Number of values collected after concatenation: 4 1550s [00:52:29.978] - Number of values expected: 4 1550s [00:52:29.978] Reverse index remapping (attribute 'ordering'): [n = 4] 2, 3, 1, 4 1550s [00:52:29.978] Reducing values from 1 chunks ... DONE 1550s [00:52:29.978] future_lapply() ... DONE 1550s List of 1 1550s $ y:List of 4 1550s ..$ a: int [1:2] 0 0 1550s ..$ b: num [1:2] 0 0 1550s ..$ c: chr [1:2] "" "" 1550s ..$ c:List of 2 1550s .. ..$ : NULL 1550s .. ..$ : NULL 1550s [00:52:29.982] future_lapply() ... 1550s [00:52:29.983] Number of chunks: 1 1550s [00:52:29.983] Index remapping (attribute 'ordering'): [n = 4] 3, 1, 4, 2 1550s [00:52:29.983] getGlobalsAndPackagesXApply() ... 1550s [00:52:29.983] - future.globals: TRUE 1550s [00:52:29.984] getGlobalsAndPackages() ... 1550s [00:52:29.984] Searching for globals... 1550s [00:52:29.985] - globals found: [2] ‘FUN’, ‘.Internal’ 1550s [00:52:29.985] Searching for globals ... DONE 1550s [00:52:29.985] Resolving globals: FALSE 1550s [00:52:29.986] The total size of the 1 globals is 2.13 KiB (2184 bytes) 1550s [00:52:29.986] The total size of the 1 globals exported for future expression (‘FUN(length = 2L)’) is 2.13 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (2.13 KiB of class ‘function’) 1550s [00:52:29.986] - globals: [1] ‘FUN’ 1550s [00:52:29.986] 1550s [00:52:29.987] getGlobalsAndPackages() ... DONE 1550s [00:52:29.987] - globals found/used: [n=1] ‘FUN’ 1550s [00:52:29.987] - needed namespaces: [n=0] 1550s [00:52:29.987] Finding globals ... DONE 1550s [00:52:29.987] - use_args: TRUE 1550s [00:52:29.988] - Getting '...' globals ... 1550s [00:52:29.988] resolve() on list ... 1550s [00:52:29.988] recursive: 0 1550s [00:52:29.988] length: 1 1550s [00:52:29.988] elements: ‘...’ 1550s [00:52:29.989] length: 0 (resolved future 1) 1550s [00:52:29.989] resolve() on list ... DONE 1550s [00:52:29.989] - '...' content: [n=1] ‘length’ 1550s [00:52:29.989] List of 1 1550s [00:52:29.989] $ ...:List of 1 1550s [00:52:29.989] ..$ length: int 2 1550s [00:52:29.989] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1550s [00:52:29.989] - attr(*, "where")=List of 1 1550s [00:52:29.989] ..$ ...: 1550s [00:52:29.989] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1550s [00:52:29.989] - attr(*, "resolved")= logi TRUE 1550s [00:52:29.989] - attr(*, "total_size")= num NA 1550s [00:52:29.995] - Getting '...' globals ... DONE 1550s [00:52:29.995] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1550s [00:52:29.996] List of 2 1550s [00:52:29.996] $ ...future.FUN:function (mode = "logical", length = 0L) 1550s [00:52:29.996] $ ... :List of 1 1550s [00:52:29.996] ..$ length: int 2 1550s [00:52:29.996] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1550s [00:52:29.996] - attr(*, "where")=List of 2 1550s [00:52:29.996] ..$ ...future.FUN: 1550s [00:52:29.996] ..$ ... : 1550s [00:52:29.996] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1550s [00:52:29.996] - attr(*, "resolved")= logi FALSE 1550s [00:52:29.996] - attr(*, "total_size")= num 2240 1550s [00:52:30.000] Packages to be attached in all futures: [n=0] 1550s [00:52:30.000] getGlobalsAndPackagesXApply() ... DONE 1550s [00:52:30.000] Number of futures (= number of chunks): 1 1550s [00:52:30.001] Launching 1 futures (chunks) ... 1550s [00:52:30.001] Chunk #1 of 1 ... 1550s [00:52:30.001] - Finding globals in 'X' for chunk #1 ... 1550s [00:52:30.001] getGlobalsAndPackages() ... 1550s [00:52:30.002] Searching for globals... 1550s [00:52:30.002] 1550s [00:52:30.003] Searching for globals ... DONE 1550s [00:52:30.003] - globals: [0] 1550s [00:52:30.003] getGlobalsAndPackages() ... DONE 1550s [00:52:30.003] + additional globals found: [n=0] 1550s [00:52:30.004] + additional namespaces needed: [n=0] 1550s [00:52:30.004] - Finding globals in 'X' for chunk #1 ... DONE 1550s [00:52:30.004] - seeds: 1550s [00:52:30.004] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1550s [00:52:30.005] getGlobalsAndPackages() ... 1550s [00:52:30.005] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1550s [00:52:30.006] Resolving globals: FALSE 1550s [00:52:30.006] Tweak future expression to call with '...' arguments ... 1550s [00:52:30.006] { 1550s [00:52:30.006] do.call(function(...) { 1550s [00:52:30.006] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1550s [00:52:30.006] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1550s [00:52:30.006] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1550s [00:52:30.006] on.exit(options(oopts), add = TRUE) 1550s [00:52:30.006] } 1550s [00:52:30.006] { 1550s [00:52:30.006] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1550s [00:52:30.006] ...future.X_jj <- ...future.elements_ii[[jj]] 1550s [00:52:30.006] ...future.FUN(...future.X_jj, ...) 1550s [00:52:30.006] }) 1550s [00:52:30.006] } 1550s [00:52:30.006] }, args = future.call.arguments) 1550s [00:52:30.006] } 1550s [00:52:30.007] Tweak future expression to call with '...' arguments ... DONE 1550s [00:52:30.008] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1550s [00:52:30.008] 1550s [00:52:30.008] getGlobalsAndPackages() ... DONE 1550s [00:52:30.009] run() for ‘Future’ ... 1550s [00:52:30.009] - state: ‘created’ 1550s [00:52:30.009] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1550s [00:52:30.010] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1550s [00:52:30.010] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1550s [00:52:30.010] - Field: ‘label’ 1550s [00:52:30.010] - Field: ‘local’ 1550s [00:52:30.011] - Field: ‘owner’ 1550s [00:52:30.011] - Field: ‘envir’ 1550s [00:52:30.011] - Field: ‘packages’ 1550s [00:52:30.012] - Field: ‘gc’ 1550s [00:52:30.012] - Field: ‘conditions’ 1550s [00:52:30.012] - Field: ‘expr’ 1550s [00:52:30.013] - Field: ‘uuid’ 1550s [00:52:30.013] - Field: ‘seed’ 1550s [00:52:30.013] - Field: ‘version’ 1550s [00:52:30.013] - Field: ‘result’ 1550s [00:52:30.014] - Field: ‘asynchronous’ 1550s [00:52:30.014] - Field: ‘calls’ 1550s [00:52:30.014] - Field: ‘globals’ 1550s [00:52:30.014] - Field: ‘stdout’ 1550s [00:52:30.015] - Field: ‘earlySignal’ 1550s [00:52:30.015] - Field: ‘lazy’ 1550s [00:52:30.015] - Field: ‘state’ 1550s [00:52:30.016] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1550s [00:52:30.016] - Launch lazy future ... 1550s [00:52:30.016] Packages needed by the future expression (n = 0): 1550s [00:52:30.017] Packages needed by future strategies (n = 0): 1550s [00:52:30.018] { 1550s [00:52:30.018] { 1550s [00:52:30.018] { 1550s [00:52:30.018] ...future.startTime <- base::Sys.time() 1550s [00:52:30.018] { 1550s [00:52:30.018] { 1550s [00:52:30.018] { 1550s [00:52:30.018] base::local({ 1550s [00:52:30.018] has_future <- base::requireNamespace("future", 1550s [00:52:30.018] quietly = TRUE) 1550s [00:52:30.018] if (has_future) { 1550s [00:52:30.018] ns <- base::getNamespace("future") 1550s [00:52:30.018] version <- ns[[".package"]][["version"]] 1550s [00:52:30.018] if (is.null(version)) 1550s [00:52:30.018] version <- utils::packageVersion("future") 1550s [00:52:30.018] } 1550s [00:52:30.018] else { 1550s [00:52:30.018] version <- NULL 1550s [00:52:30.018] } 1550s [00:52:30.018] if (!has_future || version < "1.8.0") { 1550s [00:52:30.018] info <- base::c(r_version = base::gsub("R version ", 1550s [00:52:30.018] "", base::R.version$version.string), 1550s [00:52:30.018] platform = base::sprintf("%s (%s-bit)", 1550s [00:52:30.018] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1550s [00:52:30.018] os = base::paste(base::Sys.info()[base::c("sysname", 1550s [00:52:30.018] "release", "version")], collapse = " "), 1550s [00:52:30.018] hostname = base::Sys.info()[["nodename"]]) 1550s [00:52:30.018] info <- base::sprintf("%s: %s", base::names(info), 1550s [00:52:30.018] info) 1550s [00:52:30.018] info <- base::paste(info, collapse = "; ") 1550s [00:52:30.018] if (!has_future) { 1550s [00:52:30.018] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1550s [00:52:30.018] info) 1550s [00:52:30.018] } 1550s [00:52:30.018] else { 1550s [00:52:30.018] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1550s [00:52:30.018] info, version) 1550s [00:52:30.018] } 1550s [00:52:30.018] base::stop(msg) 1550s [00:52:30.018] } 1550s [00:52:30.018] }) 1550s [00:52:30.018] } 1550s [00:52:30.018] options(future.plan = NULL) 1550s [00:52:30.018] Sys.unsetenv("R_FUTURE_PLAN") 1550s [00:52:30.018] future::plan("default", .cleanup = FALSE, .init = FALSE) 1550s [00:52:30.018] } 1550s [00:52:30.018] ...future.workdir <- getwd() 1550s [00:52:30.018] } 1550s [00:52:30.018] ...future.oldOptions <- base::as.list(base::.Options) 1550s [00:52:30.018] ...future.oldEnvVars <- base::Sys.getenv() 1550s [00:52:30.018] } 1550s [00:52:30.018] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1550s [00:52:30.018] future.globals.maxSize = NULL, future.globals.method = NULL, 1550s [00:52:30.018] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1550s [00:52:30.018] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1550s [00:52:30.018] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1550s [00:52:30.018] future.stdout.windows.reencode = NULL, width = 80L) 1550s [00:52:30.018] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1550s [00:52:30.018] base::names(...future.oldOptions)) 1550s [00:52:30.018] } 1550s [00:52:30.018] if (FALSE) { 1550s [00:52:30.018] } 1550s [00:52:30.018] else { 1550s [00:52:30.018] if (TRUE) { 1550s [00:52:30.018] ...future.stdout <- base::rawConnection(base::raw(0L), 1550s [00:52:30.018] open = "w") 1550s [00:52:30.018] } 1550s [00:52:30.018] else { 1550s [00:52:30.018] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1550s [00:52:30.018] windows = "NUL", "/dev/null"), open = "w") 1550s [00:52:30.018] } 1550s [00:52:30.018] base::sink(...future.stdout, type = "output", split = FALSE) 1550s [00:52:30.018] base::on.exit(if (!base::is.null(...future.stdout)) { 1550s [00:52:30.018] base::sink(type = "output", split = FALSE) 1550s [00:52:30.018] base::close(...future.stdout) 1550s [00:52:30.018] }, add = TRUE) 1550s [00:52:30.018] } 1550s [00:52:30.018] ...future.frame <- base::sys.nframe() 1550s [00:52:30.018] ...future.conditions <- base::list() 1550s [00:52:30.018] ...future.rng <- base::globalenv()$.Random.seed 1550s [00:52:30.018] if (FALSE) { 1550s [00:52:30.018] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1550s [00:52:30.018] "...future.value", "...future.globalenv.names", ".Random.seed") 1550s [00:52:30.018] } 1550s [00:52:30.018] ...future.result <- base::tryCatch({ 1550s [00:52:30.018] base::withCallingHandlers({ 1550s [00:52:30.018] ...future.value <- base::withVisible(base::local({ 1550s [00:52:30.018] do.call(function(...) { 1550s [00:52:30.018] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1550s [00:52:30.018] if (!identical(...future.globals.maxSize.org, 1550s [00:52:30.018] ...future.globals.maxSize)) { 1550s [00:52:30.018] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1550s [00:52:30.018] on.exit(options(oopts), add = TRUE) 1550s [00:52:30.018] } 1550s [00:52:30.018] { 1550s [00:52:30.018] lapply(seq_along(...future.elements_ii), 1550s [00:52:30.018] FUN = function(jj) { 1550s [00:52:30.018] ...future.X_jj <- ...future.elements_ii[[jj]] 1550s [00:52:30.018] ...future.FUN(...future.X_jj, ...) 1550s [00:52:30.018] }) 1550s [00:52:30.018] } 1550s [00:52:30.018] }, args = future.call.arguments) 1550s [00:52:30.018] })) 1550s [00:52:30.018] future::FutureResult(value = ...future.value$value, 1550s [00:52:30.018] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1550s [00:52:30.018] ...future.rng), globalenv = if (FALSE) 1550s [00:52:30.018] list(added = base::setdiff(base::names(base::.GlobalEnv), 1550s [00:52:30.018] ...future.globalenv.names)) 1550s [00:52:30.018] else NULL, started = ...future.startTime, version = "1.8") 1550s [00:52:30.018] }, condition = base::local({ 1550s [00:52:30.018] c <- base::c 1550s [00:52:30.018] inherits <- base::inherits 1550s [00:52:30.018] invokeRestart <- base::invokeRestart 1550s [00:52:30.018] length <- base::length 1550s [00:52:30.018] list <- base::list 1550s [00:52:30.018] seq.int <- base::seq.int 1550s [00:52:30.018] signalCondition <- base::signalCondition 1550s [00:52:30.018] sys.calls <- base::sys.calls 1550s [00:52:30.018] `[[` <- base::`[[` 1550s [00:52:30.018] `+` <- base::`+` 1550s [00:52:30.018] `<<-` <- base::`<<-` 1550s [00:52:30.018] sysCalls <- function(calls = sys.calls(), from = 1L) { 1550s [00:52:30.018] calls[seq.int(from = from + 12L, to = length(calls) - 1550s [00:52:30.018] 3L)] 1550s [00:52:30.018] } 1550s [00:52:30.018] function(cond) { 1550s [00:52:30.018] is_error <- inherits(cond, "error") 1550s [00:52:30.018] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1550s [00:52:30.018] NULL) 1550s [00:52:30.018] if (is_error) { 1550s [00:52:30.018] sessionInformation <- function() { 1550s [00:52:30.018] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1550s [00:52:30.018] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1550s [00:52:30.018] search = base::search(), system = base::Sys.info()) 1550s [00:52:30.018] } 1550s [00:52:30.018] ...future.conditions[[length(...future.conditions) + 1550s [00:52:30.018] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1550s [00:52:30.018] cond$call), session = sessionInformation(), 1550s [00:52:30.018] timestamp = base::Sys.time(), signaled = 0L) 1550s [00:52:30.018] signalCondition(cond) 1550s [00:52:30.018] } 1550s [00:52:30.018] else if (!ignore && TRUE && inherits(cond, c("condition", 1550s [00:52:30.018] "immediateCondition"))) { 1550s [00:52:30.018] signal <- TRUE && inherits(cond, "immediateCondition") 1550s [00:52:30.018] ...future.conditions[[length(...future.conditions) + 1550s [00:52:30.018] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1550s [00:52:30.018] if (TRUE && !signal) { 1550s [00:52:30.018] muffleCondition <- function (cond, pattern = "^muffle") 1550s [00:52:30.018] { 1550s [00:52:30.018] inherits <- base::inherits 1550s [00:52:30.018] invokeRestart <- base::invokeRestart 1550s [00:52:30.018] is.null <- base::is.null 1550s [00:52:30.018] muffled <- FALSE 1550s [00:52:30.018] if (inherits(cond, "message")) { 1550s [00:52:30.018] muffled <- grepl(pattern, "muffleMessage") 1550s [00:52:30.018] if (muffled) 1550s [00:52:30.018] invokeRestart("muffleMessage") 1550s [00:52:30.018] } 1550s [00:52:30.018] else if (inherits(cond, "warning")) { 1550s [00:52:30.018] muffled <- grepl(pattern, "muffleWarning") 1550s [00:52:30.018] if (muffled) 1550s [00:52:30.018] invokeRestart("muffleWarning") 1550s [00:52:30.018] } 1550s [00:52:30.018] else if (inherits(cond, "condition")) { 1550s [00:52:30.018] if (!is.null(pattern)) { 1550s [00:52:30.018] computeRestarts <- base::computeRestarts 1550s [00:52:30.018] grepl <- base::grepl 1550s [00:52:30.018] restarts <- computeRestarts(cond) 1550s [00:52:30.018] for (restart in restarts) { 1550s [00:52:30.018] name <- restart$name 1550s [00:52:30.018] if (is.null(name)) 1550s [00:52:30.018] next 1550s [00:52:30.018] if (!grepl(pattern, name)) 1550s [00:52:30.018] next 1550s [00:52:30.018] invokeRestart(restart) 1550s [00:52:30.018] muffled <- TRUE 1550s [00:52:30.018] break 1550s [00:52:30.018] } 1550s [00:52:30.018] } 1550s [00:52:30.018] } 1550s [00:52:30.018] invisible(muffled) 1550s [00:52:30.018] } 1550s [00:52:30.018] muffleCondition(cond, pattern = "^muffle") 1550s [00:52:30.018] } 1550s [00:52:30.018] } 1550s [00:52:30.018] else { 1550s [00:52:30.018] if (TRUE) { 1550s [00:52:30.018] muffleCondition <- function (cond, pattern = "^muffle") 1550s [00:52:30.018] { 1550s [00:52:30.018] inherits <- base::inherits 1550s [00:52:30.018] invokeRestart <- base::invokeRestart 1550s [00:52:30.018] is.null <- base::is.null 1550s [00:52:30.018] muffled <- FALSE 1550s [00:52:30.018] if (inherits(cond, "message")) { 1550s [00:52:30.018] muffled <- grepl(pattern, "muffleMessage") 1550s [00:52:30.018] if (muffled) 1550s [00:52:30.018] invokeRestart("muffleMessage") 1550s [00:52:30.018] } 1550s [00:52:30.018] else if (inherits(cond, "warning")) { 1550s [00:52:30.018] muffled <- grepl(pattern, "muffleWarning") 1550s [00:52:30.018] if (muffled) 1550s [00:52:30.018] invokeRestart("muffleWarning") 1550s [00:52:30.018] } 1550s [00:52:30.018] else if (inherits(cond, "condition")) { 1550s [00:52:30.018] if (!is.null(pattern)) { 1550s [00:52:30.018] computeRestarts <- base::computeRestarts 1550s [00:52:30.018] grepl <- base::grepl 1550s [00:52:30.018] restarts <- computeRestarts(cond) 1550s [00:52:30.018] for (restart in restarts) { 1550s [00:52:30.018] name <- restart$name 1550s [00:52:30.018] if (is.null(name)) 1550s [00:52:30.018] next 1550s [00:52:30.018] if (!grepl(pattern, name)) 1550s [00:52:30.018] next 1550s [00:52:30.018] invokeRestart(restart) 1550s [00:52:30.018] muffled <- TRUE 1550s [00:52:30.018] break 1550s [00:52:30.018] } 1550s [00:52:30.018] } 1550s [00:52:30.018] } 1550s [00:52:30.018] invisible(muffled) 1550s [00:52:30.018] } 1550s [00:52:30.018] muffleCondition(cond, pattern = "^muffle") 1550s [00:52:30.018] } 1550s [00:52:30.018] } 1550s [00:52:30.018] } 1550s [00:52:30.018] })) 1550s [00:52:30.018] }, error = function(ex) { 1550s [00:52:30.018] base::structure(base::list(value = NULL, visible = NULL, 1550s [00:52:30.018] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1550s [00:52:30.018] ...future.rng), started = ...future.startTime, 1550s [00:52:30.018] finished = Sys.time(), session_uuid = NA_character_, 1550s [00:52:30.018] version = "1.8"), class = "FutureResult") 1550s [00:52:30.018] }, finally = { 1550s [00:52:30.018] if (!identical(...future.workdir, getwd())) 1550s [00:52:30.018] setwd(...future.workdir) 1550s [00:52:30.018] { 1550s [00:52:30.018] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1550s [00:52:30.018] ...future.oldOptions$nwarnings <- NULL 1550s [00:52:30.018] } 1550s [00:52:30.018] base::options(...future.oldOptions) 1550s [00:52:30.018] if (.Platform$OS.type == "windows") { 1550s [00:52:30.018] old_names <- names(...future.oldEnvVars) 1550s [00:52:30.018] envs <- base::Sys.getenv() 1550s [00:52:30.018] names <- names(envs) 1550s [00:52:30.018] common <- intersect(names, old_names) 1550s [00:52:30.018] added <- setdiff(names, old_names) 1550s [00:52:30.018] removed <- setdiff(old_names, names) 1550s [00:52:30.018] changed <- common[...future.oldEnvVars[common] != 1550s [00:52:30.018] envs[common]] 1550s [00:52:30.018] NAMES <- toupper(changed) 1550s [00:52:30.018] args <- list() 1550s [00:52:30.018] for (kk in seq_along(NAMES)) { 1550s [00:52:30.018] name <- changed[[kk]] 1550s [00:52:30.018] NAME <- NAMES[[kk]] 1550s [00:52:30.018] if (name != NAME && is.element(NAME, old_names)) 1550s [00:52:30.018] next 1550s [00:52:30.018] args[[name]] <- ...future.oldEnvVars[[name]] 1550s [00:52:30.018] } 1550s [00:52:30.018] NAMES <- toupper(added) 1550s [00:52:30.018] for (kk in seq_along(NAMES)) { 1550s [00:52:30.018] name <- added[[kk]] 1550s [00:52:30.018] NAME <- NAMES[[kk]] 1550s [00:52:30.018] if (name != NAME && is.element(NAME, old_names)) 1550s [00:52:30.018] next 1550s [00:52:30.018] args[[name]] <- "" 1550s [00:52:30.018] } 1550s [00:52:30.018] NAMES <- toupper(removed) 1550s [00:52:30.018] for (kk in seq_along(NAMES)) { 1550s [00:52:30.018] name <- removed[[kk]] 1550s [00:52:30.018] NAME <- NAMES[[kk]] 1550s [00:52:30.018] if (name != NAME && is.element(NAME, old_names)) 1550s [00:52:30.018] next 1550s [00:52:30.018] args[[name]] <- ...future.oldEnvVars[[name]] 1550s [00:52:30.018] } 1550s [00:52:30.018] if (length(args) > 0) 1550s [00:52:30.018] base::do.call(base::Sys.setenv, args = args) 1550s [00:52:30.018] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1550s [00:52:30.018] } 1550s [00:52:30.018] else { 1550s [00:52:30.018] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1550s [00:52:30.018] } 1550s [00:52:30.018] { 1550s [00:52:30.018] if (base::length(...future.futureOptionsAdded) > 1550s [00:52:30.018] 0L) { 1550s [00:52:30.018] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1550s [00:52:30.018] base::names(opts) <- ...future.futureOptionsAdded 1550s [00:52:30.018] base::options(opts) 1550s [00:52:30.018] } 1550s [00:52:30.018] { 1550s [00:52:30.018] { 1550s [00:52:30.018] NULL 1550s [00:52:30.018] RNGkind("Mersenne-Twister") 1550s [00:52:30.018] base::rm(list = ".Random.seed", envir = base::globalenv(), 1550s [00:52:30.018] inherits = FALSE) 1550s [00:52:30.018] } 1550s [00:52:30.018] options(future.plan = NULL) 1550s [00:52:30.018] if (is.na(NA_character_)) 1550s [00:52:30.018] Sys.unsetenv("R_FUTURE_PLAN") 1550s [00:52:30.018] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1550s [00:52:30.018] future::plan(list(function (..., envir = parent.frame()) 1550s [00:52:30.018] { 1550s [00:52:30.018] future <- SequentialFuture(..., envir = envir) 1550s [00:52:30.018] if (!future$lazy) 1550s [00:52:30.018] future <- run(future) 1550s [00:52:30.018] invisible(future) 1550s [00:52:30.018] }), .cleanup = FALSE, .init = FALSE) 1550s [00:52:30.018] } 1550s [00:52:30.018] } 1550s [00:52:30.018] } 1550s [00:52:30.018] }) 1550s [00:52:30.018] if (TRUE) { 1550s [00:52:30.018] base::sink(type = "output", split = FALSE) 1550s [00:52:30.018] if (TRUE) { 1550s [00:52:30.018] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1550s [00:52:30.018] } 1550s [00:52:30.018] else { 1550s [00:52:30.018] ...future.result["stdout"] <- base::list(NULL) 1550s [00:52:30.018] } 1550s [00:52:30.018] base::close(...future.stdout) 1550s [00:52:30.018] ...future.stdout <- NULL 1550s [00:52:30.018] } 1550s [00:52:30.018] ...future.result$conditions <- ...future.conditions 1550s [00:52:30.018] ...future.result$finished <- base::Sys.time() 1550s [00:52:30.018] ...future.result 1550s [00:52:30.018] } 1550s [00:52:30.027] assign_globals() ... 1550s [00:52:30.027] List of 5 1550s [00:52:30.027] $ ...future.FUN :function (mode = "logical", length = 0L) 1550s [00:52:30.027] $ future.call.arguments :List of 1 1550s [00:52:30.027] ..$ length: int 2 1550s [00:52:30.027] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1550s [00:52:30.027] $ ...future.elements_ii :List of 4 1550s [00:52:30.027] ..$ c: chr "character" 1550s [00:52:30.027] ..$ a: chr "integer" 1550s [00:52:30.027] ..$ c: chr "list" 1550s [00:52:30.027] ..$ b: chr "numeric" 1550s [00:52:30.027] $ ...future.seeds_ii : NULL 1550s [00:52:30.027] $ ...future.globals.maxSize: NULL 1550s [00:52:30.027] - attr(*, "where")=List of 5 1550s [00:52:30.027] ..$ ...future.FUN : 1550s [00:52:30.027] ..$ future.call.arguments : 1550s [00:52:30.027] ..$ ...future.elements_ii : 1550s [00:52:30.027] ..$ ...future.seeds_ii : 1550s [00:52:30.027] ..$ ...future.globals.maxSize: 1550s [00:52:30.027] - attr(*, "resolved")= logi FALSE 1550s [00:52:30.027] - attr(*, "total_size")= num 2240 1550s [00:52:30.027] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1550s [00:52:30.027] - attr(*, "already-done")= logi TRUE 1550s [00:52:30.035] - copied ‘...future.FUN’ to environment 1550s [00:52:30.035] - copied ‘future.call.arguments’ to environment 1550s [00:52:30.036] - copied ‘...future.elements_ii’ to environment 1550s [00:52:30.036] - copied ‘...future.seeds_ii’ to environment 1550s [00:52:30.036] - copied ‘...future.globals.maxSize’ to environment 1550s [00:52:30.036] assign_globals() ... done 1550s [00:52:30.036] plan(): Setting new future strategy stack: 1550s [00:52:30.036] List of future strategies: 1550s [00:52:30.036] 1. sequential: 1550s [00:52:30.036] - args: function (..., envir = parent.frame()) 1550s [00:52:30.036] - tweaked: FALSE 1550s [00:52:30.036] - call: NULL 1550s [00:52:30.037] plan(): nbrOfWorkers() = 1 1550s [00:52:30.038] plan(): Setting new future strategy stack: 1550s [00:52:30.038] List of future strategies: 1550s [00:52:30.038] 1. sequential: 1550s [00:52:30.038] - args: function (..., envir = parent.frame()) 1550s [00:52:30.038] - tweaked: FALSE 1550s [00:52:30.038] - call: plan(strategy) 1550s [00:52:30.042] plan(): nbrOfWorkers() = 1 1550s [00:52:30.043] SequentialFuture started (and completed) 1550s [00:52:30.043] - Launch lazy future ... done 1550s [00:52:30.043] run() for ‘SequentialFuture’ ... done 1550s [00:52:30.043] Created future: 1550s [00:52:30.043] SequentialFuture: 1550s [00:52:30.043] Label: ‘future_lapply-1’ 1550s [00:52:30.043] Expression: 1550s [00:52:30.043] { 1550s [00:52:30.043] do.call(function(...) { 1550s [00:52:30.043] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1550s [00:52:30.043] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1550s [00:52:30.043] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1550s [00:52:30.043] on.exit(options(oopts), add = TRUE) 1550s [00:52:30.043] } 1550s [00:52:30.043] { 1550s [00:52:30.043] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1550s [00:52:30.043] ...future.X_jj <- ...future.elements_ii[[jj]] 1550s [00:52:30.043] ...future.FUN(...future.X_jj, ...) 1550s [00:52:30.043] }) 1550s [00:52:30.043] } 1550s [00:52:30.043] }, args = future.call.arguments) 1550s [00:52:30.043] } 1550s [00:52:30.043] Lazy evaluation: FALSE 1550s [00:52:30.043] Asynchronous evaluation: FALSE 1550s [00:52:30.043] Local evaluation: TRUE 1550s [00:52:30.043] Environment: R_GlobalEnv 1550s [00:52:30.043] Capture standard output: TRUE 1550s [00:52:30.043] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1550s [00:52:30.043] Globals: 5 objects totaling 2.63 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 456 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1550s [00:52:30.043] Packages: 1550s [00:52:30.043] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1550s [00:52:30.043] Resolved: TRUE 1550s [00:52:30.043] Value: 240 bytes of class ‘list’ 1550s [00:52:30.043] Early signaling: FALSE 1550s [00:52:30.043] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1550s [00:52:30.043] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1550s [00:52:30.046] Chunk #1 of 1 ... DONE 1550s [00:52:30.046] Launching 1 futures (chunks) ... DONE 1550s [00:52:30.046] Resolving 1 futures (chunks) ... 1550s [00:52:30.046] resolve() on list ... 1550s [00:52:30.046] recursive: 0 1550s [00:52:30.047] length: 1 1550s [00:52:30.047] 1550s [00:52:30.047] resolved() for ‘SequentialFuture’ ... 1550s [00:52:30.047] - state: ‘finished’ 1550s [00:52:30.047] - run: TRUE 1550s [00:52:30.048] - result: ‘FutureResult’ 1550s [00:52:30.048] resolved() for ‘SequentialFuture’ ... done 1550s [00:52:30.048] Future #1 1550s [00:52:30.049] signalConditionsASAP(SequentialFuture, pos=1) ... 1550s [00:52:30.049] - nx: 1 1550s [00:52:30.049] - relay: TRUE 1550s [00:52:30.049] - stdout: TRUE 1550s [00:52:30.049] - signal: TRUE 1550s [00:52:30.049] - resignal: FALSE 1550s [00:52:30.049] - force: TRUE 1550s [00:52:30.049] - relayed: [n=1] FALSE 1550s [00:52:30.050] - queued futures: [n=1] FALSE 1550s [00:52:30.050] - until=1 1550s [00:52:30.050] - relaying element #1 1550s [00:52:30.051] - relayed: [n=1] TRUE 1550s [00:52:30.051] - queued futures: [n=1] TRUE 1550s [00:52:30.051] signalConditionsASAP(SequentialFuture, pos=1) ... done 1550s [00:52:30.052] length: 0 (resolved future 1) 1550s [00:52:30.052] Relaying remaining futures 1550s [00:52:30.052] signalConditionsASAP(NULL, pos=0) ... 1550s [00:52:30.052] - nx: 1 1550s [00:52:30.053] - relay: TRUE 1550s [00:52:30.053] - stdout: TRUE 1550s [00:52:30.053] - signal: TRUE 1550s [00:52:30.053] - resignal: FALSE 1550s [00:52:30.053] - force: TRUE 1550s [00:52:30.053] - relayed: [n=1] TRUE 1550s [00:52:30.054] - queued futures: [n=1] TRUE 1550s - flush all 1550s [00:52:30.054] - relayed: [n=1] TRUE 1550s [00:52:30.054] - queued futures: [n=1] TRUE 1550s [00:52:30.054] signalConditionsASAP(NULL, pos=0) ... done 1550s [00:52:30.055] resolve() on list ... DONE 1550s [00:52:30.055] - Number of value chunks collected: 1 1550s [00:52:30.055] Resolving 1 futures (chunks) ... DONE 1550s [00:52:30.055] Reducing values from 1 chunks ... 1550s [00:52:30.055] - Number of values collected after concatenation: 4 1550s [00:52:30.056] - Number of values expected: 4 1550s [00:52:30.056] Reverse index remapping (attribute 'ordering'): [n = 4] 2, 4, 1, 3 1550s [00:52:30.056] Reducing values from 1 chunks ... DONE 1550s [00:52:30.056] future_lapply() ... DONE 1550s List of 1 1550s $ y:List of 4 1550s ..$ a: int [1:2] 0 0 1550s ..$ b: num [1:2] 0 0 1550s ..$ c: chr [1:2] "" ""- future_lapply(x, FUN = base::vector, ...) ... 1550s [00:52:30.061] future_lapply() ... 1550s [00:52:30.062] Number of chunks: 1 1550s [00:52:30.062] Index remapping (attribute 'ordering'): [n = 4] 1, 2, 4, 3 1550s 1550s ..$ c:List of 2 1550s .. ..$ : NULL 1550s .. ..$ : NULL 1550s [00:52:30.062] getGlobalsAndPackagesXApply() ... 1550s [00:52:30.062] - future.globals: TRUE 1550s [00:52:30.063] getGlobalsAndPackages() ... 1550s [00:52:30.063] Searching for globals... 1550s [00:52:30.065] - globals found: [2] ‘FUN’, ‘.Internal’ 1550s [00:52:30.065] Searching for globals ... DONE 1550s [00:52:30.065] Resolving globals: FALSE 1550s [00:52:30.066] The total size of the 1 globals is 2.13 KiB (2184 bytes) 1550s [00:52:30.066] The total size of the 1 globals exported for future expression (‘FUN(length = 2L)’) is 2.13 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (2.13 KiB of class ‘function’) 1550s [00:52:30.067] - globals: [1] ‘FUN’ 1550s [00:52:30.067] 1550s [00:52:30.069] getGlobalsAndPackages() ... DONE 1550s [00:52:30.070] - globals found/used: [n=1] ‘FUN’ 1550s [00:52:30.071] - needed namespaces: [n=0] 1550s [00:52:30.071] Finding globals ... DONE 1550s [00:52:30.072] - use_args: TRUE 1550s [00:52:30.072] - Getting '...' globals ... 1550s [00:52:30.072] resolve() on list ... 1550s [00:52:30.072] recursive: 0 1550s [00:52:30.072] length: 1 1550s [00:52:30.073] elements: ‘...’ 1550s [00:52:30.073] length: 0 (resolved future 1) 1550s [00:52:30.073] resolve() on list ... DONE 1550s [00:52:30.073] - '...' content: [n=1] ‘length’ 1550s [00:52:30.073] List of 1 1550s [00:52:30.073] $ ...:List of 1 1550s [00:52:30.073] ..$ length: int 2 1550s [00:52:30.073] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1550s [00:52:30.073] - attr(*, "where")=List of 1 1550s [00:52:30.073] ..$ ...: 1550s [00:52:30.073] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1550s [00:52:30.073] - attr(*, "resolved")= logi TRUE 1550s [00:52:30.073] - attr(*, "total_size")= num NA 1550s [00:52:30.080] - Getting '...' globals ... DONE 1550s [00:52:30.081] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1550s [00:52:30.081] List of 2 1550s [00:52:30.081] $ ...future.FUN:function (mode = "logical", length = 0L) 1550s [00:52:30.081] $ ... :List of 1 1550s [00:52:30.081] ..$ length: int 2 1550s [00:52:30.081] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1550s [00:52:30.081] - attr(*, "where")=List of 2 1550s [00:52:30.081] ..$ ...future.FUN: 1550s [00:52:30.081] ..$ ... : 1550s [00:52:30.081] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1550s [00:52:30.081] - attr(*, "resolved")= logi FALSE 1550s [00:52:30.081] - attr(*, "total_size")= num 2240 1550s [00:52:30.088] Packages to be attached in all futures: [n=0] 1550s [00:52:30.088] getGlobalsAndPackagesXApply() ... DONE 1550s [00:52:30.089] Number of futures (= number of chunks): 1 1550s [00:52:30.089] Launching 1 futures (chunks) ... 1550s [00:52:30.090] Chunk #1 of 1 ... 1550s [00:52:30.090] - Finding globals in 'X' for chunk #1 ... 1550s [00:52:30.090] getGlobalsAndPackages() ... 1550s [00:52:30.091] Searching for globals... 1550s [00:52:30.092] 1550s [00:52:30.092] Searching for globals ... DONE 1550s [00:52:30.097] - globals: [0] 1550s [00:52:30.097] getGlobalsAndPackages() ... DONE 1550s [00:52:30.098] + additional globals found: [n=0] 1550s [00:52:30.098] + additional namespaces needed: [n=0] 1550s [00:52:30.098] - Finding globals in 'X' for chunk #1 ... DONE 1550s [00:52:30.099] - seeds: 1550s [00:52:30.100] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1550s [00:52:30.101] getGlobalsAndPackages() ... 1550s [00:52:30.102] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1550s [00:52:30.103] Resolving globals: FALSE 1550s [00:52:30.103] Tweak future expression to call with '...' arguments ... 1550s [00:52:30.104] { 1550s [00:52:30.104] do.call(function(...) { 1550s [00:52:30.104] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1550s [00:52:30.104] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1550s [00:52:30.104] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1550s [00:52:30.104] on.exit(options(oopts), add = TRUE) 1550s [00:52:30.104] } 1550s [00:52:30.104] { 1550s [00:52:30.104] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1550s [00:52:30.104] ...future.X_jj <- ...future.elements_ii[[jj]] 1550s [00:52:30.104] ...future.FUN(...future.X_jj, ...) 1550s [00:52:30.104] }) 1550s [00:52:30.104] } 1550s [00:52:30.104] }, args = future.call.arguments) 1550s [00:52:30.104] } 1550s [00:52:30.106] Tweak future expression to call with '...' arguments ... DONE 1550s [00:52:30.107] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1550s [00:52:30.107] 1550s [00:52:30.107] getGlobalsAndPackages() ... DONE 1550s [00:52:30.108] run() for ‘Future’ ... 1550s [00:52:30.109] - state: ‘created’ 1550s [00:52:30.109] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1550s [00:52:30.111] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1550s [00:52:30.111] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1550s [00:52:30.111] - Field: ‘label’ 1550s [00:52:30.112] - Field: ‘local’ 1550s [00:52:30.112] - Field: ‘owner’ 1550s [00:52:30.112] - Field: ‘envir’ 1550s [00:52:30.113] - Field: ‘packages’ 1550s [00:52:30.113] - Field: ‘gc’ 1550s [00:52:30.113] - Field: ‘conditions’ 1550s [00:52:30.113] - Field: ‘expr’ 1550s [00:52:30.113] - Field: ‘uuid’ 1550s [00:52:30.114] - Field: ‘seed’ 1550s [00:52:30.114] - Field: ‘version’ 1550s [00:52:30.114] - Field: ‘result’ 1550s [00:52:30.114] - Field: ‘asynchronous’ 1550s [00:52:30.114] - Field: ‘calls’ 1550s [00:52:30.114] - Field: ‘globals’ 1550s [00:52:30.115] - Field: ‘stdout’ 1550s [00:52:30.115] - Field: ‘earlySignal’ 1550s [00:52:30.115] - Field: ‘lazy’ 1550s [00:52:30.116] - Field: ‘state’ 1550s [00:52:30.117] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1550s [00:52:30.117] - Launch lazy future ... 1550s [00:52:30.117] Packages needed by the future expression (n = 0): 1550s [00:52:30.118] Packages needed by future strategies (n = 0): 1550s [00:52:30.118] { 1550s [00:52:30.118] { 1550s [00:52:30.118] { 1550s [00:52:30.118] ...future.startTime <- base::Sys.time() 1550s [00:52:30.118] { 1550s [00:52:30.118] { 1550s [00:52:30.118] { 1550s [00:52:30.118] base::local({ 1550s [00:52:30.118] has_future <- base::requireNamespace("future", 1550s [00:52:30.118] quietly = TRUE) 1550s [00:52:30.118] if (has_future) { 1550s [00:52:30.118] ns <- base::getNamespace("future") 1550s [00:52:30.118] version <- ns[[".package"]][["version"]] 1550s [00:52:30.118] if (is.null(version)) 1550s [00:52:30.118] version <- utils::packageVersion("future") 1550s [00:52:30.118] } 1550s [00:52:30.118] else { 1550s [00:52:30.118] version <- NULL 1550s [00:52:30.118] } 1550s [00:52:30.118] if (!has_future || version < "1.8.0") { 1550s [00:52:30.118] info <- base::c(r_version = base::gsub("R version ", 1550s [00:52:30.118] "", base::R.version$version.string), 1550s [00:52:30.118] platform = base::sprintf("%s (%s-bit)", 1550s [00:52:30.118] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1550s [00:52:30.118] os = base::paste(base::Sys.info()[base::c("sysname", 1550s [00:52:30.118] "release", "version")], collapse = " "), 1550s [00:52:30.118] hostname = base::Sys.info()[["nodename"]]) 1550s [00:52:30.118] info <- base::sprintf("%s: %s", base::names(info), 1550s [00:52:30.118] info) 1550s [00:52:30.118] info <- base::paste(info, collapse = "; ") 1550s [00:52:30.118] if (!has_future) { 1550s [00:52:30.118] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1550s [00:52:30.118] info) 1550s [00:52:30.118] } 1550s [00:52:30.118] else { 1550s [00:52:30.118] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1550s [00:52:30.118] info, version) 1550s [00:52:30.118] } 1550s [00:52:30.118] base::stop(msg) 1550s [00:52:30.118] } 1550s [00:52:30.118] }) 1550s [00:52:30.118] } 1550s [00:52:30.118] options(future.plan = NULL) 1550s [00:52:30.118] Sys.unsetenv("R_FUTURE_PLAN") 1550s [00:52:30.118] future::plan("default", .cleanup = FALSE, .init = FALSE) 1550s [00:52:30.118] } 1550s [00:52:30.118] ...future.workdir <- getwd() 1550s [00:52:30.118] } 1550s [00:52:30.118] ...future.oldOptions <- base::as.list(base::.Options) 1550s [00:52:30.118] ...future.oldEnvVars <- base::Sys.getenv() 1550s [00:52:30.118] } 1550s [00:52:30.118] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1550s [00:52:30.118] future.globals.maxSize = NULL, future.globals.method = NULL, 1550s [00:52:30.118] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1550s [00:52:30.118] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1550s [00:52:30.118] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1550s [00:52:30.118] future.stdout.windows.reencode = NULL, width = 80L) 1550s [00:52:30.118] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1550s [00:52:30.118] base::names(...future.oldOptions)) 1550s [00:52:30.118] } 1550s [00:52:30.118] if (FALSE) { 1550s [00:52:30.118] } 1550s [00:52:30.118] else { 1550s [00:52:30.118] if (TRUE) { 1550s [00:52:30.118] ...future.stdout <- base::rawConnection(base::raw(0L), 1550s [00:52:30.118] open = "w") 1550s [00:52:30.118] } 1550s [00:52:30.118] else { 1550s [00:52:30.118] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1550s [00:52:30.118] windows = "NUL", "/dev/null"), open = "w") 1550s [00:52:30.118] } 1550s [00:52:30.118] base::sink(...future.stdout, type = "output", split = FALSE) 1550s [00:52:30.118] base::on.exit(if (!base::is.null(...future.stdout)) { 1550s [00:52:30.118] base::sink(type = "output", split = FALSE) 1550s [00:52:30.118] base::close(...future.stdout) 1550s [00:52:30.118] }, add = TRUE) 1550s [00:52:30.118] } 1550s [00:52:30.118] ...future.frame <- base::sys.nframe() 1550s [00:52:30.118] ...future.conditions <- base::list() 1550s [00:52:30.118] ...future.rng <- base::globalenv()$.Random.seed 1550s [00:52:30.118] if (FALSE) { 1550s [00:52:30.118] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1550s [00:52:30.118] "...future.value", "...future.globalenv.names", ".Random.seed") 1550s [00:52:30.118] } 1550s [00:52:30.118] ...future.result <- base::tryCatch({ 1550s [00:52:30.118] base::withCallingHandlers({ 1550s [00:52:30.118] ...future.value <- base::withVisible(base::local({ 1550s [00:52:30.118] do.call(function(...) { 1550s [00:52:30.118] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1550s [00:52:30.118] if (!identical(...future.globals.maxSize.org, 1550s [00:52:30.118] ...future.globals.maxSize)) { 1550s [00:52:30.118] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1550s [00:52:30.118] on.exit(options(oopts), add = TRUE) 1550s [00:52:30.118] } 1550s [00:52:30.118] { 1550s [00:52:30.118] lapply(seq_along(...future.elements_ii), 1550s [00:52:30.118] FUN = function(jj) { 1550s [00:52:30.118] ...future.X_jj <- ...future.elements_ii[[jj]] 1550s [00:52:30.118] ...future.FUN(...future.X_jj, ...) 1550s [00:52:30.118] }) 1550s [00:52:30.118] } 1550s [00:52:30.118] }, args = future.call.arguments) 1550s [00:52:30.118] })) 1550s [00:52:30.118] future::FutureResult(value = ...future.value$value, 1550s [00:52:30.118] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1550s [00:52:30.118] ...future.rng), globalenv = if (FALSE) 1550s [00:52:30.118] list(added = base::setdiff(base::names(base::.GlobalEnv), 1550s [00:52:30.118] ...future.globalenv.names)) 1550s [00:52:30.118] else NULL, started = ...future.startTime, version = "1.8") 1550s [00:52:30.118] }, condition = base::local({ 1550s [00:52:30.118] c <- base::c 1550s [00:52:30.118] inherits <- base::inherits 1550s [00:52:30.118] invokeRestart <- base::invokeRestart 1550s [00:52:30.118] length <- base::length 1550s [00:52:30.118] list <- base::list 1550s [00:52:30.118] seq.int <- base::seq.int 1550s [00:52:30.118] signalCondition <- base::signalCondition 1550s [00:52:30.118] sys.calls <- base::sys.calls 1550s [00:52:30.118] `[[` <- base::`[[` 1550s [00:52:30.118] `+` <- base::`+` 1550s [00:52:30.118] `<<-` <- base::`<<-` 1550s [00:52:30.118] sysCalls <- function(calls = sys.calls(), from = 1L) { 1550s [00:52:30.118] calls[seq.int(from = from + 12L, to = length(calls) - 1550s [00:52:30.118] 3L)] 1550s [00:52:30.118] } 1550s [00:52:30.118] function(cond) { 1550s [00:52:30.118] is_error <- inherits(cond, "error") 1550s [00:52:30.118] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1550s [00:52:30.118] NULL) 1550s [00:52:30.118] if (is_error) { 1550s [00:52:30.118] sessionInformation <- function() { 1550s [00:52:30.118] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1550s [00:52:30.118] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1550s [00:52:30.118] search = base::search(), system = base::Sys.info()) 1550s [00:52:30.118] } 1550s [00:52:30.118] ...future.conditions[[length(...future.conditions) + 1550s [00:52:30.118] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1550s [00:52:30.118] cond$call), session = sessionInformation(), 1550s [00:52:30.118] timestamp = base::Sys.time(), signaled = 0L) 1550s [00:52:30.118] signalCondition(cond) 1550s [00:52:30.118] } 1550s [00:52:30.118] else if (!ignore && TRUE && inherits(cond, c("condition", 1550s [00:52:30.118] "immediateCondition"))) { 1550s [00:52:30.118] signal <- TRUE && inherits(cond, "immediateCondition") 1550s [00:52:30.118] ...future.conditions[[length(...future.conditions) + 1550s [00:52:30.118] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1550s [00:52:30.118] if (TRUE && !signal) { 1550s [00:52:30.118] muffleCondition <- function (cond, pattern = "^muffle") 1550s [00:52:30.118] { 1550s [00:52:30.118] inherits <- base::inherits 1550s [00:52:30.118] invokeRestart <- base::invokeRestart 1550s [00:52:30.118] is.null <- base::is.null 1550s [00:52:30.118] muffled <- FALSE 1550s [00:52:30.118] if (inherits(cond, "message")) { 1550s [00:52:30.118] muffled <- grepl(pattern, "muffleMessage") 1550s [00:52:30.118] if (muffled) 1550s [00:52:30.118] invokeRestart("muffleMessage") 1550s [00:52:30.118] } 1550s [00:52:30.118] else if (inherits(cond, "warning")) { 1550s [00:52:30.118] muffled <- grepl(pattern, "muffleWarning") 1550s [00:52:30.118] if (muffled) 1550s [00:52:30.118] invokeRestart("muffleWarning") 1550s [00:52:30.118] } 1550s [00:52:30.118] else if (inherits(cond, "condition")) { 1550s [00:52:30.118] if (!is.null(pattern)) { 1550s [00:52:30.118] computeRestarts <- base::computeRestarts 1550s [00:52:30.118] grepl <- base::grepl 1550s [00:52:30.118] restarts <- computeRestarts(cond) 1550s [00:52:30.118] for (restart in restarts) { 1550s [00:52:30.118] name <- restart$name 1550s [00:52:30.118] if (is.null(name)) 1550s [00:52:30.118] next 1550s [00:52:30.118] if (!grepl(pattern, name)) 1550s [00:52:30.118] next 1550s [00:52:30.118] invokeRestart(restart) 1550s [00:52:30.118] muffled <- TRUE 1550s [00:52:30.118] break 1550s [00:52:30.118] } 1550s [00:52:30.118] } 1550s [00:52:30.118] } 1550s [00:52:30.118] invisible(muffled) 1550s [00:52:30.118] } 1550s [00:52:30.118] muffleCondition(cond, pattern = "^muffle") 1550s [00:52:30.118] } 1550s [00:52:30.118] } 1550s [00:52:30.118] else { 1550s [00:52:30.118] if (TRUE) { 1550s [00:52:30.118] muffleCondition <- function (cond, pattern = "^muffle") 1550s [00:52:30.118] { 1550s [00:52:30.118] inherits <- base::inherits 1550s [00:52:30.118] invokeRestart <- base::invokeRestart 1550s [00:52:30.118] is.null <- base::is.null 1550s [00:52:30.118] muffled <- FALSE 1550s [00:52:30.118] if (inherits(cond, "message")) { 1550s [00:52:30.118] muffled <- grepl(pattern, "muffleMessage") 1550s [00:52:30.118] if (muffled) 1550s [00:52:30.118] invokeRestart("muffleMessage") 1550s [00:52:30.118] } 1550s [00:52:30.118] else if (inherits(cond, "warning")) { 1550s [00:52:30.118] muffled <- grepl(pattern, "muffleWarning") 1550s [00:52:30.118] if (muffled) 1550s [00:52:30.118] invokeRestart("muffleWarning") 1550s [00:52:30.118] } 1550s [00:52:30.118] else if (inherits(cond, "condition")) { 1550s [00:52:30.118] if (!is.null(pattern)) { 1550s [00:52:30.118] computeRestarts <- base::computeRestarts 1550s [00:52:30.118] grepl <- base::grepl 1550s [00:52:30.118] restarts <- computeRestarts(cond) 1550s [00:52:30.118] for (restart in restarts) { 1550s [00:52:30.118] name <- restart$name 1550s [00:52:30.118] if (is.null(name)) 1550s [00:52:30.118] next 1550s [00:52:30.118] if (!grepl(pattern, name)) 1550s [00:52:30.118] next 1550s [00:52:30.118] invokeRestart(restart) 1550s [00:52:30.118] muffled <- TRUE 1550s [00:52:30.118] break 1550s [00:52:30.118] } 1550s [00:52:30.118] } 1550s [00:52:30.118] } 1550s [00:52:30.118] invisible(muffled) 1550s [00:52:30.118] } 1550s [00:52:30.118] muffleCondition(cond, pattern = "^muffle") 1550s [00:52:30.118] } 1550s [00:52:30.118] } 1550s [00:52:30.118] } 1550s [00:52:30.118] })) 1550s [00:52:30.118] }, error = function(ex) { 1550s [00:52:30.118] base::structure(base::list(value = NULL, visible = NULL, 1550s [00:52:30.118] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1550s [00:52:30.118] ...future.rng), started = ...future.startTime, 1550s [00:52:30.118] finished = Sys.time(), session_uuid = NA_character_, 1550s [00:52:30.118] version = "1.8"), class = "FutureResult") 1550s [00:52:30.118] }, finally = { 1550s [00:52:30.118] if (!identical(...future.workdir, getwd())) 1550s [00:52:30.118] setwd(...future.workdir) 1550s [00:52:30.118] { 1550s [00:52:30.118] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1550s [00:52:30.118] ...future.oldOptions$nwarnings <- NULL 1550s [00:52:30.118] } 1550s [00:52:30.118] base::options(...future.oldOptions) 1550s [00:52:30.118] if (.Platform$OS.type == "windows") { 1550s [00:52:30.118] old_names <- names(...future.oldEnvVars) 1550s [00:52:30.118] envs <- base::Sys.getenv() 1550s [00:52:30.118] names <- names(envs) 1550s [00:52:30.118] common <- intersect(names, old_names) 1550s [00:52:30.118] added <- setdiff(names, old_names) 1550s [00:52:30.118] removed <- setdiff(old_names, names) 1550s [00:52:30.118] changed <- common[...future.oldEnvVars[common] != 1550s [00:52:30.118] envs[common]] 1550s [00:52:30.118] NAMES <- toupper(changed) 1550s [00:52:30.118] args <- list() 1550s [00:52:30.118] for (kk in seq_along(NAMES)) { 1550s [00:52:30.118] name <- changed[[kk]] 1550s [00:52:30.118] NAME <- NAMES[[kk]] 1550s [00:52:30.118] if (name != NAME && is.element(NAME, old_names)) 1550s [00:52:30.118] next 1550s [00:52:30.118] args[[name]] <- ...future.oldEnvVars[[name]] 1550s [00:52:30.118] } 1550s [00:52:30.118] NAMES <- toupper(added) 1550s [00:52:30.118] for (kk in seq_along(NAMES)) { 1550s [00:52:30.118] name <- added[[kk]] 1550s [00:52:30.118] NAME <- NAMES[[kk]] 1550s [00:52:30.118] if (name != NAME && is.element(NAME, old_names)) 1550s [00:52:30.118] next 1550s [00:52:30.118] args[[name]] <- "" 1550s [00:52:30.118] } 1550s [00:52:30.118] NAMES <- toupper(removed) 1550s [00:52:30.118] for (kk in seq_along(NAMES)) { 1550s [00:52:30.118] name <- removed[[kk]] 1550s [00:52:30.118] NAME <- NAMES[[kk]] 1550s [00:52:30.118] if (name != NAME && is.element(NAME, old_names)) 1550s [00:52:30.118] next 1550s [00:52:30.118] args[[name]] <- ...future.oldEnvVars[[name]] 1550s [00:52:30.118] } 1550s [00:52:30.118] if (length(args) > 0) 1550s [00:52:30.118] base::do.call(base::Sys.setenv, args = args) 1550s [00:52:30.118] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1550s [00:52:30.118] } 1550s [00:52:30.118] else { 1550s [00:52:30.118] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1550s [00:52:30.118] } 1550s [00:52:30.118] { 1550s [00:52:30.118] if (base::length(...future.futureOptionsAdded) > 1550s [00:52:30.118] 0L) { 1550s [00:52:30.118] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1550s [00:52:30.118] base::names(opts) <- ...future.futureOptionsAdded 1550s [00:52:30.118] base::options(opts) 1550s [00:52:30.118] } 1550s [00:52:30.118] { 1550s [00:52:30.118] { 1550s [00:52:30.118] NULL 1550s [00:52:30.118] RNGkind("Mersenne-Twister") 1550s [00:52:30.118] base::rm(list = ".Random.seed", envir = base::globalenv(), 1550s [00:52:30.118] inherits = FALSE) 1550s [00:52:30.118] } 1550s [00:52:30.118] options(future.plan = NULL) 1550s [00:52:30.118] if (is.na(NA_character_)) 1550s [00:52:30.118] Sys.unsetenv("R_FUTURE_PLAN") 1550s [00:52:30.118] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1550s [00:52:30.118] future::plan(list(function (..., envir = parent.frame()) 1550s [00:52:30.118] { 1550s [00:52:30.118] future <- SequentialFuture(..., envir = envir) 1550s [00:52:30.118] if (!future$lazy) 1550s [00:52:30.118] future <- run(future) 1550s [00:52:30.118] invisible(future) 1550s [00:52:30.118] }), .cleanup = FALSE, .init = FALSE) 1550s [00:52:30.118] } 1550s [00:52:30.118] } 1550s [00:52:30.118] } 1550s [00:52:30.118] }) 1550s [00:52:30.118] if (TRUE) { 1550s [00:52:30.118] base::sink(type = "output", split = FALSE) 1550s [00:52:30.118] if (TRUE) { 1550s [00:52:30.118] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1550s [00:52:30.118] } 1550s [00:52:30.118] else { 1550s [00:52:30.118] ...future.result["stdout"] <- base::list(NULL) 1550s [00:52:30.118] } 1550s [00:52:30.118] base::close(...future.stdout) 1550s [00:52:30.118] ...future.stdout <- NULL 1550s [00:52:30.118] } 1550s [00:52:30.118] ...future.result$conditions <- ...future.conditions 1550s [00:52:30.118] ...future.result$finished <- base::Sys.time() 1550s [00:52:30.118] ...future.result 1550s [00:52:30.118] } 1550s [00:52:30.123] assign_globals() ... 1550s [00:52:30.123] List of 5 1550s [00:52:30.123] $ ...future.FUN :function (mode = "logical", length = 0L) 1550s [00:52:30.123] $ future.call.arguments :List of 1 1550s [00:52:30.123] ..$ length: int 2 1550s [00:52:30.123] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1550s [00:52:30.123] $ ...future.elements_ii :List of 4 1550s [00:52:30.123] ..$ a: chr "integer" 1550s [00:52:30.123] ..$ b: chr "numeric" 1550s [00:52:30.123] ..$ c: chr "list" 1550s [00:52:30.123] ..$ c: chr "character" 1550s [00:52:30.123] $ ...future.seeds_ii : NULL 1550s [00:52:30.123] $ ...future.globals.maxSize: NULL 1550s [00:52:30.123] - attr(*, "where")=List of 5 1550s [00:52:30.123] ..$ ...future.FUN : 1550s [00:52:30.123] ..$ future.call.arguments : 1550s [00:52:30.123] ..$ ...future.elements_ii : 1550s [00:52:30.123] ..$ ...future.seeds_ii : 1550s [00:52:30.123] ..$ ...future.globals.maxSize: 1550s [00:52:30.123] - attr(*, "resolved")= logi FALSE 1550s [00:52:30.123] - attr(*, "total_size")= num 2240 1550s [00:52:30.123] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1550s [00:52:30.123] - attr(*, "already-done")= logi TRUE 1550s [00:52:30.134] - copied ‘...future.FUN’ to environment 1550s [00:52:30.134] - copied ‘future.call.arguments’ to environment 1550s [00:52:30.134] - copied ‘...future.elements_ii’ to environment 1550s [00:52:30.134] - copied ‘...future.seeds_ii’ to environment 1550s [00:52:30.134] - copied ‘...future.globals.maxSize’ to environment 1550s [00:52:30.134] assign_globals() ... done 1550s [00:52:30.135] plan(): Setting new future strategy stack: 1550s [00:52:30.135] List of future strategies: 1550s [00:52:30.135] 1. sequential: 1550s [00:52:30.135] - args: function (..., envir = parent.frame()) 1550s [00:52:30.135] - tweaked: FALSE 1550s [00:52:30.135] - call: NULL 1550s [00:52:30.135] plan(): nbrOfWorkers() = 1 1550s [00:52:30.137] plan(): Setting new future strategy stack: 1550s [00:52:30.137] List of future strategies: 1550s [00:52:30.137] 1. sequential: 1550s [00:52:30.137] - args: function (..., envir = parent.frame()) 1550s [00:52:30.137] - tweaked: FALSE 1550s [00:52:30.137] - call: plan(strategy) 1550s [00:52:30.138] plan(): nbrOfWorkers() = 1 1550s [00:52:30.138] SequentialFuture started (and completed) 1550s [00:52:30.138] - Launch lazy future ... done 1550s [00:52:30.139] run() for ‘SequentialFuture’ ... done 1550s [00:52:30.139] Created future: 1550s [00:52:30.139] SequentialFuture: 1550s [00:52:30.139] Label: ‘future_lapply-1’ 1550s [00:52:30.139] Expression: 1550s [00:52:30.139] { 1550s [00:52:30.139] do.call(function(...) { 1550s [00:52:30.139] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1550s [00:52:30.139] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1550s [00:52:30.139] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1550s [00:52:30.139] on.exit(options(oopts), add = TRUE) 1550s [00:52:30.139] } 1550s [00:52:30.139] { 1550s [00:52:30.139] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1550s [00:52:30.139] ...future.X_jj <- ...future.elements_ii[[jj]] 1550s [00:52:30.139] ...future.FUN(...future.X_jj, ...) 1550s [00:52:30.139] }) 1550s [00:52:30.139] } 1550s [00:52:30.139] }, args = future.call.arguments) 1550s [00:52:30.139] } 1550s [00:52:30.139] Lazy evaluation: FALSE 1550s [00:52:30.139] Asynchronous evaluation: FALSE 1550s [00:52:30.139] Local evaluation: TRUE 1550s [00:52:30.139] Environment: R_GlobalEnv 1550s [00:52:30.139] Capture standard output: TRUE 1550s [00:52:30.139] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1550s [00:52:30.139] Globals: 5 objects totaling 2.63 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 456 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1550s [00:52:30.139] Packages: 1550s [00:52:30.139] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1550s [00:52:30.139] Resolved: TRUE 1550s [00:52:30.139] Value: 240 bytes of class ‘list’ 1550s [00:52:30.139] Early signaling: FALSE 1550s [00:52:30.139] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1550s [00:52:30.139] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1550s [00:52:30.141] Chunk #1 of 1 ... DONE 1550s [00:52:30.141] Launching 1 futures (chunks) ... DONE 1550s [00:52:30.141] Resolving 1 futures (chunks) ... 1550s [00:52:30.141] resolve() on list ... 1550s [00:52:30.141] recursive: 0 1550s [00:52:30.141] length: 1 1550s [00:52:30.141] 1550s [00:52:30.142] resolved() for ‘SequentialFuture’ ... 1550s [00:52:30.142] - state: ‘finished’ 1550s [00:52:30.142] - run: TRUE 1550s [00:52:30.142] - result: ‘FutureResult’ 1550s [00:52:30.142] resolved() for ‘SequentialFuture’ ... done 1550s [00:52:30.142] Future #1 1550s [00:52:30.143] signalConditionsASAP(SequentialFuture, pos=1) ... 1550s [00:52:30.143] - nx: 1 1550s [00:52:30.143] - relay: TRUE 1550s [00:52:30.143] - stdout: TRUE 1550s [00:52:30.143] - signal: TRUE 1550s [00:52:30.143] - resignal: FALSE 1550s [00:52:30.143] - force: TRUE 1550s [00:52:30.144] - relayed: [n=1] FALSE 1550s [00:52:30.144] - queued futures: [n=1] FALSE 1550s [00:52:30.144] - until=1 1550s [00:52:30.144] - relaying element #1 1550s [00:52:30.144] - relayed: [n=1] TRUE 1550s [00:52:30.145] - queued futures: [n=1] TRUE 1550s [00:52:30.145] signalConditionsASAP(SequentialFuture, pos=1) ... done 1550s [00:52:30.145] length: 0 (resolved future 1) 1550s [00:52:30.145] Relaying remaining futures 1550s [00:52:30.147] signalConditionsASAP(NULL, pos=0) ... 1550s [00:52:30.151] - nx: 1 1550s [00:52:30.152] - relay: TRUE 1550s [00:52:30.152] - stdout: TRUE 1550s [00:52:30.152] - signal: TRUE 1550s [00:52:30.152] - resignal: FALSE 1550s [00:52:30.152] - force: TRUE 1550s [00:52:30.152] - relayed: [n=1] TRUE 1550s [00:52:30.152] - queued futures: [n=1] TRUE 1550s - flush all 1550s [00:52:30.157] - relayed: [n=1] TRUE 1550s [00:52:30.157] - queued futures: [n=1] TRUE 1550s [00:52:30.157] signalConditionsASAP(NULL, pos=0) ... done 1550s [00:52:30.157] resolve() on list ... DONE 1550s [00:52:30.158] - Number of value chunks collected: 1 1550s [00:52:30.158] Resolving 1 futures (chunks) ... DONE 1550s [00:52:30.158] Reducing values from 1 chunks ... 1550s [00:52:30.158] - Number of values collected after concatenation: 4 1550s [00:52:30.158] - Number of values expected: 4 1550s [00:52:30.158] Reverse index remapping (attribute 'ordering'): [n = 4] 1, 2, 4, 3 1550s [00:52:30.158] Reducing values from 1 chunks ... DONE 1550s [00:52:30.159] future_lapply() ... DONE 1550s List of 1 1550s $ y:List of 4 1550s ..$ a: int [1:2] 0 0 1550s ..$ b: num [1:2] 0 0 1550s ..$ c: chr [1:2] "" "" 1550s ..$ c:List of 2 1550s .. ..$ : NULL 1550s .. ..$ : NULL 1550s - future_lapply(x, FUN = future:::hpaste, ...) ... 1550s [00:52:30.165] future_lapply() ... 1550s [00:52:30.175] Number of chunks: 1 1550s [00:52:30.178] getGlobalsAndPackagesXApply() ... 1550s [00:52:30.178] - future.globals: TRUE 1550s [00:52:30.178] getGlobalsAndPackages() ... 1550s [00:52:30.178] Searching for globals... 1550s [00:52:30.192] - globals found: [22] ‘FUN’, ‘if’, ‘missing’, ‘is.finite’, ‘{’, ‘is.null’, ‘<-’, ‘paste’, ‘length’, ‘==’, ‘return’, ‘>’, ‘+’, ‘[’, ‘seq_len’, ‘rev’, ‘c’, ‘&&’, ‘!’, ‘:’, ‘(’, ‘-’ 1550s [00:52:30.192] Searching for globals ... DONE 1550s [00:52:30.192] Resolving globals: FALSE 1550s [00:52:30.194] The total size of the 1 globals is 69.62 KiB (71288 bytes) 1550s [00:52:30.194] The total size of the 1 globals exported for future expression (‘FUN(collapse = "; ", maxHead = 3L)’) is 69.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (69.62 KiB of class ‘function’) 1550s [00:52:30.194] - globals: [1] ‘FUN’ 1550s [00:52:30.194] - packages: [1] ‘future’ 1550s [00:52:30.195] getGlobalsAndPackages() ... DONE 1550s [00:52:30.195] - globals found/used: [n=1] ‘FUN’ 1550s [00:52:30.195] - needed namespaces: [n=1] ‘future’ 1550s [00:52:30.195] Finding globals ... DONE 1550s [00:52:30.195] - use_args: TRUE 1550s [00:52:30.195] - Getting '...' globals ... 1550s [00:52:30.196] resolve() on list ... 1550s [00:52:30.196] recursive: 0 1550s [00:52:30.196] length: 1 1550s [00:52:30.196] elements: ‘...’ 1550s [00:52:30.196] length: 0 (resolved future 1) 1550s [00:52:30.197] resolve() on list ... DONE 1550s [00:52:30.197] - '...' content: [n=2] ‘collapse’, ‘maxHead’ 1550s [00:52:30.197] List of 1 1550s [00:52:30.197] $ ...:List of 2 1550s [00:52:30.197] ..$ collapse: chr "; " 1550s [00:52:30.197] ..$ maxHead : int 3 1550s [00:52:30.197] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1550s [00:52:30.197] - attr(*, "where")=List of 1 1550s [00:52:30.197] ..$ ...: 1550s [00:52:30.197] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1550s [00:52:30.197] - attr(*, "resolved")= logi TRUE 1550s [00:52:30.197] - attr(*, "total_size")= num NA 1550s [00:52:30.206] - Getting '...' globals ... DONE 1550s [00:52:30.206] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1550s [00:52:30.206] List of 2 1550s [00:52:30.206] $ ...future.FUN:function (..., sep = "", collapse = ", ", lastCollapse = NULL, maxHead = if (missing(lastCollapse)) 3 else Inf, 1550s [00:52:30.206] maxTail = if (is.finite(maxHead)) 1 else Inf, abbreviate = "...") 1550s [00:52:30.206] $ ... :List of 2 1550s [00:52:30.206] ..$ collapse: chr "; " 1550s [00:52:30.206] ..$ maxHead : int 3 1550s [00:52:30.206] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1550s [00:52:30.206] - attr(*, "where")=List of 2 1550s [00:52:30.206] ..$ ...future.FUN: 1550s [00:52:30.206] ..$ ... : 1550s [00:52:30.206] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1550s [00:52:30.206] - attr(*, "resolved")= logi FALSE 1550s [00:52:30.206] - attr(*, "total_size")= num 71456 1550s [00:52:30.217] Packages to be attached in all futures: [n=1] ‘future’ 1550s [00:52:30.218] getGlobalsAndPackagesXApply() ... DONE 1550s [00:52:30.218] Number of futures (= number of chunks): 1 1550s [00:52:30.218] Launching 1 futures (chunks) ... 1550s [00:52:30.219] Chunk #1 of 1 ... 1550s [00:52:30.219] - Finding globals in 'X' for chunk #1 ... 1550s [00:52:30.219] getGlobalsAndPackages() ... 1550s [00:52:30.219] Searching for globals... 1550s [00:52:30.219] 1550s [00:52:30.220] Searching for globals ... DONE 1550s [00:52:30.220] - globals: [0] 1550s [00:52:30.220] getGlobalsAndPackages() ... DONE 1550s [00:52:30.220] + additional globals found: [n=0] 1550s [00:52:30.221] + additional namespaces needed: [n=0] 1550s [00:52:30.221] - Finding globals in 'X' for chunk #1 ... DONE 1550s [00:52:30.221] - seeds: 1550s [00:52:30.221] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1550s [00:52:30.222] getGlobalsAndPackages() ... 1550s [00:52:30.222] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1550s [00:52:30.223] Resolving globals: FALSE 1550s [00:52:30.223] Tweak future expression to call with '...' arguments ... 1550s [00:52:30.223] { 1550s [00:52:30.223] do.call(function(...) { 1550s [00:52:30.223] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1550s [00:52:30.223] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1550s [00:52:30.223] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1550s [00:52:30.223] on.exit(options(oopts), add = TRUE) 1550s [00:52:30.223] } 1550s [00:52:30.223] { 1550s [00:52:30.223] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1550s [00:52:30.223] ...future.X_jj <- ...future.elements_ii[[jj]] 1550s [00:52:30.223] ...future.FUN(...future.X_jj, ...) 1550s [00:52:30.223] }) 1550s [00:52:30.223] } 1550s [00:52:30.223] }, args = future.call.arguments) 1550s [00:52:30.223] } 1550s [00:52:30.224] Tweak future expression to call with '...' arguments ... DONE 1550s [00:52:30.225] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1550s [00:52:30.225] - packages: [1] ‘future’ 1550s [00:52:30.225] getGlobalsAndPackages() ... DONE 1550s [00:52:30.226] run() for ‘Future’ ... 1550s [00:52:30.226] - state: ‘created’ 1550s [00:52:30.226] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1550s [00:52:30.227] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1550s [00:52:30.227] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1550s [00:52:30.227] - Field: ‘label’ 1550s [00:52:30.227] - Field: ‘local’ 1550s [00:52:30.228] - Field: ‘owner’ 1550s [00:52:30.228] - Field: ‘envir’ 1550s [00:52:30.228] - Field: ‘packages’ 1550s [00:52:30.229] - Field: ‘gc’ 1550s [00:52:30.229] - Field: ‘conditions’ 1550s [00:52:30.229] - Field: ‘expr’ 1550s [00:52:30.229] - Field: ‘uuid’ 1550s [00:52:30.229] - Field: ‘seed’ 1550s [00:52:30.229] - Field: ‘version’ 1550s [00:52:30.229] - Field: ‘result’ 1550s [00:52:30.230] - Field: ‘asynchronous’ 1550s [00:52:30.230] - Field: ‘calls’ 1550s [00:52:30.230] - Field: ‘globals’ 1550s [00:52:30.231] - Field: ‘stdout’ 1550s [00:52:30.231] - Field: ‘earlySignal’ 1550s [00:52:30.232] - Field: ‘lazy’ 1550s [00:52:30.232] - Field: ‘state’ 1550s [00:52:30.232] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1550s [00:52:30.232] - Launch lazy future ... 1550s [00:52:30.234] Packages needed by the future expression (n = 1): ‘future’ 1550s [00:52:30.234] Packages needed by future strategies (n = 0): 1550s [00:52:30.235] { 1550s [00:52:30.235] { 1550s [00:52:30.235] { 1550s [00:52:30.235] ...future.startTime <- base::Sys.time() 1550s [00:52:30.235] { 1550s [00:52:30.235] { 1550s [00:52:30.235] { 1550s [00:52:30.235] { 1550s [00:52:30.235] base::local({ 1550s [00:52:30.235] has_future <- base::requireNamespace("future", 1550s [00:52:30.235] quietly = TRUE) 1550s [00:52:30.235] if (has_future) { 1550s [00:52:30.235] ns <- base::getNamespace("future") 1550s [00:52:30.235] version <- ns[[".package"]][["version"]] 1550s [00:52:30.235] if (is.null(version)) 1550s [00:52:30.235] version <- utils::packageVersion("future") 1550s [00:52:30.235] } 1550s [00:52:30.235] else { 1550s [00:52:30.235] version <- NULL 1550s [00:52:30.235] } 1550s [00:52:30.235] if (!has_future || version < "1.8.0") { 1550s [00:52:30.235] info <- base::c(r_version = base::gsub("R version ", 1550s [00:52:30.235] "", base::R.version$version.string), 1550s [00:52:30.235] platform = base::sprintf("%s (%s-bit)", 1550s [00:52:30.235] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1550s [00:52:30.235] os = base::paste(base::Sys.info()[base::c("sysname", 1550s [00:52:30.235] "release", "version")], collapse = " "), 1550s [00:52:30.235] hostname = base::Sys.info()[["nodename"]]) 1550s [00:52:30.235] info <- base::sprintf("%s: %s", base::names(info), 1550s [00:52:30.235] info) 1550s [00:52:30.235] info <- base::paste(info, collapse = "; ") 1550s [00:52:30.235] if (!has_future) { 1550s [00:52:30.235] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1550s [00:52:30.235] info) 1550s [00:52:30.235] } 1550s [00:52:30.235] else { 1550s [00:52:30.235] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1550s [00:52:30.235] info, version) 1550s [00:52:30.235] } 1550s [00:52:30.235] base::stop(msg) 1550s [00:52:30.235] } 1550s [00:52:30.235] }) 1550s [00:52:30.235] } 1550s [00:52:30.235] base::local({ 1550s [00:52:30.235] for (pkg in "future") { 1550s [00:52:30.235] base::loadNamespace(pkg) 1550s [00:52:30.235] base::library(pkg, character.only = TRUE) 1550s [00:52:30.235] } 1550s [00:52:30.235] }) 1550s [00:52:30.235] } 1550s [00:52:30.235] options(future.plan = NULL) 1550s [00:52:30.235] Sys.unsetenv("R_FUTURE_PLAN") 1550s [00:52:30.235] future::plan("default", .cleanup = FALSE, .init = FALSE) 1550s [00:52:30.235] } 1550s [00:52:30.235] ...future.workdir <- getwd() 1550s [00:52:30.235] } 1550s [00:52:30.235] ...future.oldOptions <- base::as.list(base::.Options) 1550s [00:52:30.235] ...future.oldEnvVars <- base::Sys.getenv() 1550s [00:52:30.235] } 1550s [00:52:30.235] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1550s [00:52:30.235] future.globals.maxSize = NULL, future.globals.method = NULL, 1550s [00:52:30.235] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1550s [00:52:30.235] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1550s [00:52:30.235] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1550s [00:52:30.235] future.stdout.windows.reencode = NULL, width = 80L) 1550s [00:52:30.235] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1550s [00:52:30.235] base::names(...future.oldOptions)) 1550s [00:52:30.235] } 1550s [00:52:30.235] if (FALSE) { 1550s [00:52:30.235] } 1550s [00:52:30.235] else { 1550s [00:52:30.235] if (TRUE) { 1550s [00:52:30.235] ...future.stdout <- base::rawConnection(base::raw(0L), 1550s [00:52:30.235] open = "w") 1550s [00:52:30.235] } 1550s [00:52:30.235] else { 1550s [00:52:30.235] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1550s [00:52:30.235] windows = "NUL", "/dev/null"), open = "w") 1550s [00:52:30.235] } 1550s [00:52:30.235] base::sink(...future.stdout, type = "output", split = FALSE) 1550s [00:52:30.235] base::on.exit(if (!base::is.null(...future.stdout)) { 1550s [00:52:30.235] base::sink(type = "output", split = FALSE) 1550s [00:52:30.235] base::close(...future.stdout) 1550s [00:52:30.235] }, add = TRUE) 1550s [00:52:30.235] } 1550s [00:52:30.235] ...future.frame <- base::sys.nframe() 1550s [00:52:30.235] ...future.conditions <- base::list() 1550s [00:52:30.235] ...future.rng <- base::globalenv()$.Random.seed 1550s [00:52:30.235] if (FALSE) { 1550s [00:52:30.235] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1550s [00:52:30.235] "...future.value", "...future.globalenv.names", ".Random.seed") 1550s [00:52:30.235] } 1550s [00:52:30.235] ...future.result <- base::tryCatch({ 1550s [00:52:30.235] base::withCallingHandlers({ 1550s [00:52:30.235] ...future.value <- base::withVisible(base::local({ 1550s [00:52:30.235] do.call(function(...) { 1550s [00:52:30.235] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1550s [00:52:30.235] if (!identical(...future.globals.maxSize.org, 1550s [00:52:30.235] ...future.globals.maxSize)) { 1550s [00:52:30.235] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1550s [00:52:30.235] on.exit(options(oopts), add = TRUE) 1550s [00:52:30.235] } 1550s [00:52:30.235] { 1550s [00:52:30.235] lapply(seq_along(...future.elements_ii), 1550s [00:52:30.235] FUN = function(jj) { 1550s [00:52:30.235] ...future.X_jj <- ...future.elements_ii[[jj]] 1550s [00:52:30.235] ...future.FUN(...future.X_jj, ...) 1550s [00:52:30.235] }) 1550s [00:52:30.235] } 1550s [00:52:30.235] }, args = future.call.arguments) 1550s [00:52:30.235] })) 1550s [00:52:30.235] future::FutureResult(value = ...future.value$value, 1550s [00:52:30.235] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1550s [00:52:30.235] ...future.rng), globalenv = if (FALSE) 1550s [00:52:30.235] list(added = base::setdiff(base::names(base::.GlobalEnv), 1550s [00:52:30.235] ...future.globalenv.names)) 1550s [00:52:30.235] else NULL, started = ...future.startTime, version = "1.8") 1550s [00:52:30.235] }, condition = base::local({ 1550s [00:52:30.235] c <- base::c 1550s [00:52:30.235] inherits <- base::inherits 1550s [00:52:30.235] invokeRestart <- base::invokeRestart 1550s [00:52:30.235] length <- base::length 1550s [00:52:30.235] list <- base::list 1550s [00:52:30.235] seq.int <- base::seq.int 1550s [00:52:30.235] signalCondition <- base::signalCondition 1550s [00:52:30.235] sys.calls <- base::sys.calls 1550s [00:52:30.235] `[[` <- base::`[[` 1550s [00:52:30.235] `+` <- base::`+` 1550s [00:52:30.235] `<<-` <- base::`<<-` 1550s [00:52:30.235] sysCalls <- function(calls = sys.calls(), from = 1L) { 1550s [00:52:30.235] calls[seq.int(from = from + 12L, to = length(calls) - 1550s [00:52:30.235] 3L)] 1550s [00:52:30.235] } 1550s [00:52:30.235] function(cond) { 1550s [00:52:30.235] is_error <- inherits(cond, "error") 1550s [00:52:30.235] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1550s [00:52:30.235] NULL) 1550s [00:52:30.235] if (is_error) { 1550s [00:52:30.235] sessionInformation <- function() { 1550s [00:52:30.235] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1550s [00:52:30.235] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1550s [00:52:30.235] search = base::search(), system = base::Sys.info()) 1550s [00:52:30.235] } 1550s [00:52:30.235] ...future.conditions[[length(...future.conditions) + 1550s [00:52:30.235] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1550s [00:52:30.235] cond$call), session = sessionInformation(), 1550s [00:52:30.235] timestamp = base::Sys.time(), signaled = 0L) 1550s [00:52:30.235] signalCondition(cond) 1550s [00:52:30.235] } 1550s [00:52:30.235] else if (!ignore && TRUE && inherits(cond, c("condition", 1550s [00:52:30.235] "immediateCondition"))) { 1550s [00:52:30.235] signal <- TRUE && inherits(cond, "immediateCondition") 1550s [00:52:30.235] ...future.conditions[[length(...future.conditions) + 1550s [00:52:30.235] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1550s [00:52:30.235] if (TRUE && !signal) { 1550s [00:52:30.235] muffleCondition <- function (cond, pattern = "^muffle") 1550s [00:52:30.235] { 1550s [00:52:30.235] inherits <- base::inherits 1550s [00:52:30.235] invokeRestart <- base::invokeRestart 1550s [00:52:30.235] is.null <- base::is.null 1550s [00:52:30.235] muffled <- FALSE 1550s [00:52:30.235] if (inherits(cond, "message")) { 1550s [00:52:30.235] muffled <- grepl(pattern, "muffleMessage") 1550s [00:52:30.235] if (muffled) 1550s [00:52:30.235] invokeRestart("muffleMessage") 1550s [00:52:30.235] } 1550s [00:52:30.235] else if (inherits(cond, "warning")) { 1550s [00:52:30.235] muffled <- grepl(pattern, "muffleWarning") 1550s [00:52:30.235] if (muffled) 1550s [00:52:30.235] invokeRestart("muffleWarning") 1550s [00:52:30.235] } 1550s [00:52:30.235] else if (inherits(cond, "condition")) { 1550s [00:52:30.235] if (!is.null(pattern)) { 1550s [00:52:30.235] computeRestarts <- base::computeRestarts 1550s [00:52:30.235] grepl <- base::grepl 1550s [00:52:30.235] restarts <- computeRestarts(cond) 1550s [00:52:30.235] for (restart in restarts) { 1550s [00:52:30.235] name <- restart$name 1550s [00:52:30.235] if (is.null(name)) 1550s [00:52:30.235] next 1550s [00:52:30.235] if (!grepl(pattern, name)) 1550s [00:52:30.235] next 1550s [00:52:30.235] invokeRestart(restart) 1550s [00:52:30.235] muffled <- TRUE 1550s [00:52:30.235] break 1550s [00:52:30.235] } 1550s [00:52:30.235] } 1550s [00:52:30.235] } 1550s [00:52:30.235] invisible(muffled) 1550s [00:52:30.235] } 1550s [00:52:30.235] muffleCondition(cond, pattern = "^muffle") 1550s [00:52:30.235] } 1550s [00:52:30.235] } 1550s [00:52:30.235] else { 1550s [00:52:30.235] if (TRUE) { 1550s [00:52:30.235] muffleCondition <- function (cond, pattern = "^muffle") 1550s [00:52:30.235] { 1550s [00:52:30.235] inherits <- base::inherits 1550s [00:52:30.235] invokeRestart <- base::invokeRestart 1550s [00:52:30.235] is.null <- base::is.null 1550s [00:52:30.235] muffled <- FALSE 1550s [00:52:30.235] if (inherits(cond, "message")) { 1550s [00:52:30.235] muffled <- grepl(pattern, "muffleMessage") 1550s [00:52:30.235] if (muffled) 1550s [00:52:30.235] invokeRestart("muffleMessage") 1550s [00:52:30.235] } 1550s [00:52:30.235] else if (inherits(cond, "warning")) { 1550s [00:52:30.235] muffled <- grepl(pattern, "muffleWarning") 1550s [00:52:30.235] if (muffled) 1550s [00:52:30.235] invokeRestart("muffleWarning") 1550s [00:52:30.235] } 1550s [00:52:30.235] else if (inherits(cond, "condition")) { 1550s [00:52:30.235] if (!is.null(pattern)) { 1550s [00:52:30.235] computeRestarts <- base::computeRestarts 1550s [00:52:30.235] grepl <- base::grepl 1550s [00:52:30.235] restarts <- computeRestarts(cond) 1550s [00:52:30.235] for (restart in restarts) { 1550s [00:52:30.235] name <- restart$name 1550s [00:52:30.235] if (is.null(name)) 1550s [00:52:30.235] next 1550s [00:52:30.235] if (!grepl(pattern, name)) 1550s [00:52:30.235] next 1550s [00:52:30.235] invokeRestart(restart) 1550s [00:52:30.235] muffled <- TRUE 1550s [00:52:30.235] break 1550s [00:52:30.235] } 1550s [00:52:30.235] } 1550s [00:52:30.235] } 1550s [00:52:30.235] invisible(muffled) 1550s [00:52:30.235] } 1550s [00:52:30.235] muffleCondition(cond, pattern = "^muffle") 1550s [00:52:30.235] } 1550s [00:52:30.235] } 1550s [00:52:30.235] } 1550s [00:52:30.235] })) 1550s [00:52:30.235] }, error = function(ex) { 1550s [00:52:30.235] base::structure(base::list(value = NULL, visible = NULL, 1550s [00:52:30.235] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1550s [00:52:30.235] ...future.rng), started = ...future.startTime, 1550s [00:52:30.235] finished = Sys.time(), session_uuid = NA_character_, 1550s [00:52:30.235] version = "1.8"), class = "FutureResult") 1550s [00:52:30.235] }, finally = { 1550s [00:52:30.235] if (!identical(...future.workdir, getwd())) 1550s [00:52:30.235] setwd(...future.workdir) 1550s [00:52:30.235] { 1550s [00:52:30.235] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1550s [00:52:30.235] ...future.oldOptions$nwarnings <- NULL 1550s [00:52:30.235] } 1550s [00:52:30.235] base::options(...future.oldOptions) 1550s [00:52:30.235] if (.Platform$OS.type == "windows") { 1550s [00:52:30.235] old_names <- names(...future.oldEnvVars) 1550s [00:52:30.235] envs <- base::Sys.getenv() 1550s [00:52:30.235] names <- names(envs) 1550s [00:52:30.235] common <- intersect(names, old_names) 1550s [00:52:30.235] added <- setdiff(names, old_names) 1550s [00:52:30.235] removed <- setdiff(old_names, names) 1550s [00:52:30.235] changed <- common[...future.oldEnvVars[common] != 1550s [00:52:30.235] envs[common]] 1550s [00:52:30.235] NAMES <- toupper(changed) 1550s [00:52:30.235] args <- list() 1550s [00:52:30.235] for (kk in seq_along(NAMES)) { 1550s [00:52:30.235] name <- changed[[kk]] 1550s [00:52:30.235] NAME <- NAMES[[kk]] 1550s [00:52:30.235] if (name != NAME && is.element(NAME, old_names)) 1550s [00:52:30.235] next 1550s [00:52:30.235] args[[name]] <- ...future.oldEnvVars[[name]] 1550s [00:52:30.235] } 1550s [00:52:30.235] NAMES <- toupper(added) 1550s [00:52:30.235] for (kk in seq_along(NAMES)) { 1550s [00:52:30.235] name <- added[[kk]] 1550s [00:52:30.235] NAME <- NAMES[[kk]] 1550s [00:52:30.235] if (name != NAME && is.element(NAME, old_names)) 1550s [00:52:30.235] next 1550s [00:52:30.235] args[[name]] <- "" 1550s [00:52:30.235] } 1550s [00:52:30.235] NAMES <- toupper(removed) 1550s [00:52:30.235] for (kk in seq_along(NAMES)) { 1550s [00:52:30.235] name <- removed[[kk]] 1550s [00:52:30.235] NAME <- NAMES[[kk]] 1550s [00:52:30.235] if (name != NAME && is.element(NAME, old_names)) 1550s [00:52:30.235] next 1550s [00:52:30.235] args[[name]] <- ...future.oldEnvVars[[name]] 1550s [00:52:30.235] } 1550s [00:52:30.235] if (length(args) > 0) 1550s [00:52:30.235] base::do.call(base::Sys.setenv, args = args) 1550s [00:52:30.235] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1550s [00:52:30.235] } 1550s [00:52:30.235] else { 1550s [00:52:30.235] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1550s [00:52:30.235] } 1550s [00:52:30.235] { 1550s [00:52:30.235] if (base::length(...future.futureOptionsAdded) > 1550s [00:52:30.235] 0L) { 1550s [00:52:30.235] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1550s [00:52:30.235] base::names(opts) <- ...future.futureOptionsAdded 1550s [00:52:30.235] base::options(opts) 1550s [00:52:30.235] } 1550s [00:52:30.235] { 1550s [00:52:30.235] { 1550s [00:52:30.235] NULL 1550s [00:52:30.235] RNGkind("Mersenne-Twister") 1550s [00:52:30.235] base::rm(list = ".Random.seed", envir = base::globalenv(), 1550s [00:52:30.235] inherits = FALSE) 1550s [00:52:30.235] } 1550s [00:52:30.235] options(future.plan = NULL) 1550s [00:52:30.235] if (is.na(NA_character_)) 1550s [00:52:30.235] Sys.unsetenv("R_FUTURE_PLAN") 1550s [00:52:30.235] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1550s [00:52:30.235] future::plan(list(function (..., envir = parent.frame()) 1550s [00:52:30.235] { 1550s [00:52:30.235] future <- SequentialFuture(..., envir = envir) 1550s [00:52:30.235] if (!future$lazy) 1550s [00:52:30.235] future <- run(future) 1550s [00:52:30.235] invisible(future) 1550s [00:52:30.235] }), .cleanup = FALSE, .init = FALSE) 1550s [00:52:30.235] } 1550s [00:52:30.235] } 1550s [00:52:30.235] } 1550s [00:52:30.235] }) 1550s [00:52:30.235] if (TRUE) { 1550s [00:52:30.235] base::sink(type = "output", split = FALSE) 1550s [00:52:30.235] if (TRUE) { 1550s [00:52:30.235] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1550s [00:52:30.235] } 1550s [00:52:30.235] else { 1550s [00:52:30.235] ...future.result["stdout"] <- base::list(NULL) 1550s [00:52:30.235] } 1550s [00:52:30.235] base::close(...future.stdout) 1550s [00:52:30.235] ...future.stdout <- NULL 1550s [00:52:30.235] } 1550s [00:52:30.235] ...future.result$conditions <- ...future.conditions 1550s [00:52:30.235] ...future.result$finished <- base::Sys.time() 1550s [00:52:30.235] ...future.result 1550s [00:52:30.235] } 1550s [00:52:30.239] assign_globals() ... 1550s [00:52:30.239] List of 5 1550s [00:52:30.239] $ ...future.FUN :function (..., sep = "", collapse = ", ", lastCollapse = NULL, maxHead = if (missing(lastCollapse)) 3 else Inf, 1550s [00:52:30.239] maxTail = if (is.finite(maxHead)) 1 else Inf, abbreviate = "...") 1550s [00:52:30.239] $ future.call.arguments :List of 2 1550s [00:52:30.239] ..$ collapse: chr "; " 1550s [00:52:30.239] ..$ maxHead : int 3 1550s [00:52:30.239] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1550s [00:52:30.239] $ ...future.elements_ii :List of 1 1550s [00:52:30.239] ..$ a: Named chr [1:101] "hello" "1" "2" "3" ... 1550s [00:52:30.239] .. ..- attr(*, "names")= chr [1:101] "" "b1" "b2" "b3" ... 1550s [00:52:30.239] $ ...future.seeds_ii : NULL 1550s [00:52:30.239] $ ...future.globals.maxSize: NULL 1550s [00:52:30.239] - attr(*, "where")=List of 5 1550s [00:52:30.239] ..$ ...future.FUN : 1550s [00:52:30.239] ..$ future.call.arguments : 1550s [00:52:30.239] ..$ ...future.elements_ii : 1550s [00:52:30.239] ..$ ...future.seeds_ii : 1550s [00:52:30.239] ..$ ...future.globals.maxSize: 1550s [00:52:30.239] - attr(*, "resolved")= logi FALSE 1550s [00:52:30.239] - attr(*, "total_size")= num 71456 1550s [00:52:30.239] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1550s [00:52:30.239] - attr(*, "already-done")= logi TRUE 1550s [00:52:30.250] - copied ‘...future.FUN’ to environment 1550s [00:52:30.250] - copied ‘future.call.arguments’ to environment 1550s [00:52:30.250] - copied ‘...future.elements_ii’ to environment 1550s [00:52:30.250] - copied ‘...future.seeds_ii’ to environment 1550s [00:52:30.250] - copied ‘...future.globals.maxSize’ to environment 1550s [00:52:30.250] assign_globals() ... done 1550s [00:52:30.251] plan(): Setting new future strategy stack: 1550s [00:52:30.252] List of future strategies: 1550s [00:52:30.252] 1. sequential: 1550s [00:52:30.252] - args: function (..., envir = parent.frame()) 1550s [00:52:30.252] - tweaked: FALSE 1550s [00:52:30.252] - call: NULL 1550s [00:52:30.253] plan(): nbrOfWorkers() = 1 1550s [00:52:30.254] plan(): Setting new future strategy stack: 1550s [00:52:30.254] List of future strategies: 1550s [00:52:30.254] 1. sequential: 1550s [00:52:30.254] - args: function (..., envir = parent.frame()) 1550s [00:52:30.254] - tweaked: FALSE 1550s [00:52:30.254] - call: plan(strategy) 1550s [00:52:30.254] plan(): nbrOfWorkers() = 1 1550s [00:52:30.254] SequentialFuture started (and completed) 1550s [00:52:30.255] - Launch lazy future ... done 1550s [00:52:30.255] run() for ‘SequentialFuture’ ... done 1550s [00:52:30.255] Created future: 1550s [00:52:30.255] SequentialFuture: 1550s [00:52:30.255] Label: ‘future_lapply-1’ 1550s [00:52:30.255] Expression: 1550s [00:52:30.255] { 1550s [00:52:30.255] do.call(function(...) { 1550s [00:52:30.255] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1550s [00:52:30.255] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1550s [00:52:30.255] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1550s [00:52:30.255] on.exit(options(oopts), add = TRUE) 1550s [00:52:30.255] } 1550s [00:52:30.255] { 1550s [00:52:30.255] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1550s [00:52:30.255] ...future.X_jj <- ...future.elements_ii[[jj]] 1550s [00:52:30.255] ...future.FUN(...future.X_jj, ...) 1550s [00:52:30.255] }) 1550s [00:52:30.255] } 1550s [00:52:30.255] }, args = future.call.arguments) 1550s [00:52:30.255] } 1550s [00:52:30.255] Lazy evaluation: FALSE 1550s [00:52:30.255] Asynchronous evaluation: FALSE 1550s [00:52:30.255] Local evaluation: TRUE 1550s [00:52:30.255] Environment: R_GlobalEnv 1550s [00:52:30.255] Capture standard output: TRUE 1550s [00:52:30.255] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1550s [00:52:30.255] Globals: 5 objects totaling 82.61 KiB (function ‘...future.FUN’ of 69.62 KiB, DotDotDotList ‘future.call.arguments’ of 168 bytes, list ‘...future.elements_ii’ of 12.83 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1550s [00:52:30.255] Packages: 1 packages (‘future’) 1550s [00:52:30.255] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1550s [00:52:30.255] Resolved: TRUE 1550s [00:52:30.255] Value: 136 bytes of class ‘list’ 1550s [00:52:30.255] Early signaling: FALSE 1550s [00:52:30.255] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1550s [00:52:30.255] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1550s [00:52:30.257] Chunk #1 of 1 ... DONE 1550s [00:52:30.257] Launching 1 futures (chunks) ... DONE 1550s [00:52:30.257] Resolving 1 futures (chunks) ... 1550s [00:52:30.257] resolve() on list ... 1550s [00:52:30.257] recursive: 0 1550s [00:52:30.257] length: 1 1550s [00:52:30.258] 1550s [00:52:30.258] resolved() for ‘SequentialFuture’ ... 1550s [00:52:30.258] - state: ‘finished’ 1550s [00:52:30.258] - run: TRUE 1550s [00:52:30.258] - result: ‘FutureResult’ 1550s [00:52:30.258] resolved() for ‘SequentialFuture’ ... done 1550s [00:52:30.258] Future #1 1550s [00:52:30.259] signalConditionsASAP(SequentialFuture, pos=1) ... 1550s [00:52:30.259] - nx: 1 1550s [00:52:30.259] - relay: TRUE 1550s [00:52:30.259] - stdout: TRUE 1550s [00:52:30.259] - signal: TRUE 1550s [00:52:30.260] - resignal: FALSE 1550s [00:52:30.262] - force: TRUE 1550s [00:52:30.262] - relayed: [n=1] FALSE 1550s [00:52:30.262] - queued futures: [n=1] FALSE 1550s [00:52:30.263] - until=1 1550s [00:52:30.263] - relaying element #1 1550s [00:52:30.263] - relayed: [n=1] TRUE 1550s [00:52:30.263] - queued futures: [n=1] TRUE 1550s [00:52:30.263] signalConditionsASAP(SequentialFuture, pos=1) ... done 1550s [00:52:30.264] length: 0 (resolved future 1) 1550s [00:52:30.264] Relaying remaining futures 1550s [00:52:30.264] signalConditionsASAP(NULL, pos=0) ... 1550s [00:52:30.264] - nx: 1 1550s [00:52:30.264] - relay: TRUE 1550s [00:52:30.264] - stdout: TRUE 1550s List of [00:52:30.264] - signal: TRUE 1550s [00:52:30.264] - resignal: FALSE 1550s [00:52:30.265] - force: TRUE 1550s [00:52:30.265] - relayed: [n=1] TRUE 1550s [00:52:30.265] - queued futures: [n=1] TRUE 1550s - flush all 1550s [00:52:30.265] - relayed: [n=1] TRUE 1550s [00:52:30.265] - queued futures: [n=1] TRUE 1550s [00:52:30.265] signalConditionsASAP(NULL, pos=0) ... done 1550s [00:52:30.265] resolve() on list ... DONE 1550s [00:52:30.266] - Number of value chunks collected: 1 1550s [00:52:30.266] Resolving 1 futures (chunks) ... DONE 1550s [00:52:30.266] Reducing values from 1 chunks ... 1550s [00:52:30.266] - Number of values collected after concatenation: 1 1550s [00:52:30.266] - Number of values expected: 1 1550s [00:52:30.266] Reducing values from 1 chunks ... DONE 1550s [00:52:30.266] future_lapply() ... DONE 1550s 1 1550s $ y:List of 1 1550s ..$ a: chr "hello; 1; 2; ...; 100" 1550s - future_lapply(x, FUN = listenv::listenv, ...) ... 1550s [00:52:30.268] future_lapply() ... 1550s [00:52:30.269] Number of chunks: 1 1550s [00:52:30.269] Index remapping (attribute 'ordering'): [n = 2] 2, 1 1550s [00:52:30.269] getGlobalsAndPackagesXApply() ... 1550s [00:52:30.269] - future.globals: TRUE 1550s [00:52:30.269] getGlobalsAndPackages() ... 1550s [00:52:30.269] Searching for globals... 1550s [00:52:30.271] - globals found: [4] ‘FUN’, ‘{’, ‘get’, ‘parent.env’ 1550s [00:52:30.271] Searching for globals ... DONE 1550s [00:52:30.271] Resolving globals: FALSE 1550s [00:52:30.272] The total size of the 1 globals is 4.85 KiB (4968 bytes) 1550s [00:52:30.272] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.85 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.85 KiB of class ‘function’) 1550s [00:52:30.272] - globals: [1] ‘FUN’ 1550s [00:52:30.273] - packages: [1] ‘listenv’ 1550s [00:52:30.273] getGlobalsAndPackages() ... DONE 1550s [00:52:30.273] - globals found/used: [n=1] ‘FUN’ 1550s [00:52:30.273] - needed namespaces: [n=1] ‘listenv’ 1550s [00:52:30.273] Finding globals ... DONE 1550s [00:52:30.273] - use_args: TRUE 1550s [00:52:30.273] - Getting '...' globals ... 1550s [00:52:30.274] resolve() on list ... 1550s [00:52:30.274] recursive: 0 1550s [00:52:30.274] length: 1 1550s [00:52:30.274] elements: ‘...’ 1550s [00:52:30.275] length: 0 (resolved future 1) 1550s [00:52:30.275] resolve() on list ... DONE 1550s [00:52:30.275] - '...' content: [n=0] 1550s [00:52:30.276] List of 1 1550s [00:52:30.276] $ ...: list() 1550s [00:52:30.276] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1550s [00:52:30.276] - attr(*, "where")=List of 1 1550s [00:52:30.276] ..$ ...: 1550s [00:52:30.276] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1550s [00:52:30.276] - attr(*, "resolved")= logi TRUE 1550s [00:52:30.276] - attr(*, "total_size")= num NA 1550s [00:52:30.280] - Getting '...' globals ... DONE 1550s [00:52:30.280] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1550s [00:52:30.281] List of 2 1550s [00:52:30.281] $ ...future.FUN:function (x, ...) 1550s [00:52:30.281] $ ... : list() 1550s [00:52:30.281] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1550s [00:52:30.281] - attr(*, "where")=List of 2 1550s [00:52:30.281] ..$ ...future.FUN: 1550s [00:52:30.281] ..$ ... : 1550s [00:52:30.281] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1550s [00:52:30.281] - attr(*, "resolved")= logi FALSE 1550s [00:52:30.281] - attr(*, "total_size")= num 4968 1550s [00:52:30.288] Packages to be attached in all futures: [n=1] ‘listenv’ 1550s [00:52:30.288] getGlobalsAndPackagesXApply() ... DONE 1550s [00:52:30.289] Number of futures (= number of chunks): 1 1550s [00:52:30.289] Launching 1 futures (chunks) ... 1550s [00:52:30.289] Chunk #1 of 1 ... 1550s [00:52:30.290] - Finding globals in 'X' for chunk #1 ... 1550s [00:52:30.290] getGlobalsAndPackages() ... 1550s [00:52:30.291] Searching for globals... 1550s [00:52:30.293] 1550s [00:52:30.293] Searching for globals ... DONE 1550s [00:52:30.293] - globals: [0] 1550s [00:52:30.294] getGlobalsAndPackages() ... DONE 1550s [00:52:30.294] + additional globals found: [n=0] 1550s [00:52:30.295] + additional namespaces needed: [n=0] 1550s [00:52:30.299] - Finding globals in 'X' for chunk #1 ... DONE 1550s [00:52:30.299] - seeds: 1550s [00:52:30.299] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1550s [00:52:30.299] getGlobalsAndPackages() ... 1550s [00:52:30.300] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1550s [00:52:30.300] Resolving globals: FALSE 1550s [00:52:30.301] Tweak future expression to call with '...' arguments ... 1550s [00:52:30.301] { 1550s [00:52:30.301] do.call(function(...) { 1550s [00:52:30.301] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1550s [00:52:30.301] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1550s [00:52:30.301] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1550s [00:52:30.301] on.exit(options(oopts), add = TRUE) 1550s [00:52:30.301] } 1550s [00:52:30.301] { 1550s [00:52:30.301] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1550s [00:52:30.301] ...future.X_jj <- ...future.elements_ii[[jj]] 1550s [00:52:30.301] ...future.FUN(...future.X_jj, ...) 1550s [00:52:30.301] }) 1550s [00:52:30.301] } 1550s [00:52:30.301] }, args = future.call.arguments) 1550s [00:52:30.301] } 1550s [00:52:30.302] Tweak future expression to call with '...' arguments ... DONE 1550s [00:52:30.303] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1550s [00:52:30.304] - packages: [1] ‘listenv’ 1550s [00:52:30.304] getGlobalsAndPackages() ... DONE 1550s [00:52:30.305] run() for ‘Future’ ... 1550s [00:52:30.305] - state: ‘created’ 1550s [00:52:30.305] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1550s [00:52:30.306] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1550s [00:52:30.306] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1550s [00:52:30.306] - Field: ‘label’ 1550s [00:52:30.307] - Field: ‘local’ 1550s [00:52:30.307] - Field: ‘owner’ 1550s [00:52:30.307] - Field: ‘envir’ 1550s [00:52:30.307] - Field: ‘packages’ 1550s [00:52:30.308] - Field: ‘gc’ 1550s [00:52:30.308] - Field: ‘conditions’ 1550s [00:52:30.308] - Field: ‘expr’ 1550s [00:52:30.308] - Field: ‘uuid’ 1550s [00:52:30.309] - Field: ‘seed’ 1550s [00:52:30.309] - Field: ‘version’ 1550s [00:52:30.309] - Field: ‘result’ 1550s [00:52:30.309] - Field: ‘asynchronous’ 1550s [00:52:30.309] - Field: ‘calls’ 1550s [00:52:30.309] - Field: ‘globals’ 1550s [00:52:30.310] - Field: ‘stdout’ 1550s [00:52:30.310] - Field: ‘earlySignal’ 1550s [00:52:30.310] - Field: ‘lazy’ 1550s [00:52:30.310] - Field: ‘state’ 1550s [00:52:30.311] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1550s [00:52:30.311] - Launch lazy future ... 1550s [00:52:30.311] Packages needed by the future expression (n = 1): ‘listenv’ 1550s [00:52:30.312] Packages needed by future strategies (n = 0): 1550s [00:52:30.313] { 1550s [00:52:30.313] { 1550s [00:52:30.313] { 1550s [00:52:30.313] ...future.startTime <- base::Sys.time() 1550s [00:52:30.313] { 1550s [00:52:30.313] { 1550s [00:52:30.313] { 1550s [00:52:30.313] { 1550s [00:52:30.313] base::local({ 1550s [00:52:30.313] has_future <- base::requireNamespace("future", 1550s [00:52:30.313] quietly = TRUE) 1550s [00:52:30.313] if (has_future) { 1550s [00:52:30.313] ns <- base::getNamespace("future") 1550s [00:52:30.313] version <- ns[[".package"]][["version"]] 1550s [00:52:30.313] if (is.null(version)) 1550s [00:52:30.313] version <- utils::packageVersion("future") 1550s [00:52:30.313] } 1550s [00:52:30.313] else { 1550s [00:52:30.313] version <- NULL 1550s [00:52:30.313] } 1550s [00:52:30.313] if (!has_future || version < "1.8.0") { 1550s [00:52:30.313] info <- base::c(r_version = base::gsub("R version ", 1550s [00:52:30.313] "", base::R.version$version.string), 1550s [00:52:30.313] platform = base::sprintf("%s (%s-bit)", 1550s [00:52:30.313] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1550s [00:52:30.313] os = base::paste(base::Sys.info()[base::c("sysname", 1550s [00:52:30.313] "release", "version")], collapse = " "), 1550s [00:52:30.313] hostname = base::Sys.info()[["nodename"]]) 1550s [00:52:30.313] info <- base::sprintf("%s: %s", base::names(info), 1550s [00:52:30.313] info) 1550s [00:52:30.313] info <- base::paste(info, collapse = "; ") 1550s [00:52:30.313] if (!has_future) { 1550s [00:52:30.313] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1550s [00:52:30.313] info) 1550s [00:52:30.313] } 1550s [00:52:30.313] else { 1550s [00:52:30.313] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1550s [00:52:30.313] info, version) 1550s [00:52:30.313] } 1550s [00:52:30.313] base::stop(msg) 1550s [00:52:30.313] } 1550s [00:52:30.313] }) 1550s [00:52:30.313] } 1550s [00:52:30.313] base::local({ 1550s [00:52:30.313] for (pkg in "listenv") { 1550s [00:52:30.313] base::loadNamespace(pkg) 1550s [00:52:30.313] base::library(pkg, character.only = TRUE) 1550s [00:52:30.313] } 1550s [00:52:30.313] }) 1550s [00:52:30.313] } 1550s [00:52:30.313] options(future.plan = NULL) 1550s [00:52:30.313] Sys.unsetenv("R_FUTURE_PLAN") 1550s [00:52:30.313] future::plan("default", .cleanup = FALSE, .init = FALSE) 1550s [00:52:30.313] } 1550s [00:52:30.313] ...future.workdir <- getwd() 1550s [00:52:30.313] } 1550s [00:52:30.313] ...future.oldOptions <- base::as.list(base::.Options) 1550s [00:52:30.313] ...future.oldEnvVars <- base::Sys.getenv() 1550s [00:52:30.313] } 1550s [00:52:30.313] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1550s [00:52:30.313] future.globals.maxSize = NULL, future.globals.method = NULL, 1550s [00:52:30.313] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1550s [00:52:30.313] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1550s [00:52:30.313] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1550s [00:52:30.313] future.stdout.windows.reencode = NULL, width = 80L) 1550s [00:52:30.313] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1550s [00:52:30.313] base::names(...future.oldOptions)) 1550s [00:52:30.313] } 1550s [00:52:30.313] if (FALSE) { 1550s [00:52:30.313] } 1550s [00:52:30.313] else { 1550s [00:52:30.313] if (TRUE) { 1550s [00:52:30.313] ...future.stdout <- base::rawConnection(base::raw(0L), 1550s [00:52:30.313] open = "w") 1550s [00:52:30.313] } 1550s [00:52:30.313] else { 1550s [00:52:30.313] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1550s [00:52:30.313] windows = "NUL", "/dev/null"), open = "w") 1550s [00:52:30.313] } 1550s [00:52:30.313] base::sink(...future.stdout, type = "output", split = FALSE) 1550s [00:52:30.313] base::on.exit(if (!base::is.null(...future.stdout)) { 1550s [00:52:30.313] base::sink(type = "output", split = FALSE) 1550s [00:52:30.313] base::close(...future.stdout) 1550s [00:52:30.313] }, add = TRUE) 1550s [00:52:30.313] } 1550s [00:52:30.313] ...future.frame <- base::sys.nframe() 1550s [00:52:30.313] ...future.conditions <- base::list() 1550s [00:52:30.313] ...future.rng <- base::globalenv()$.Random.seed 1550s [00:52:30.313] if (FALSE) { 1550s [00:52:30.313] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1550s [00:52:30.313] "...future.value", "...future.globalenv.names", ".Random.seed") 1550s [00:52:30.313] } 1550s [00:52:30.313] ...future.result <- base::tryCatch({ 1550s [00:52:30.313] base::withCallingHandlers({ 1550s [00:52:30.313] ...future.value <- base::withVisible(base::local({ 1550s [00:52:30.313] do.call(function(...) { 1550s [00:52:30.313] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1550s [00:52:30.313] if (!identical(...future.globals.maxSize.org, 1550s [00:52:30.313] ...future.globals.maxSize)) { 1550s [00:52:30.313] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1550s [00:52:30.313] on.exit(options(oopts), add = TRUE) 1550s [00:52:30.313] } 1550s [00:52:30.313] { 1550s [00:52:30.313] lapply(seq_along(...future.elements_ii), 1550s [00:52:30.313] FUN = function(jj) { 1550s [00:52:30.313] ...future.X_jj <- ...future.elements_ii[[jj]] 1550s [00:52:30.313] ...future.FUN(...future.X_jj, ...) 1550s [00:52:30.313] }) 1550s [00:52:30.313] } 1550s [00:52:30.313] }, args = future.call.arguments) 1550s [00:52:30.313] })) 1550s [00:52:30.313] future::FutureResult(value = ...future.value$value, 1550s [00:52:30.313] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1550s [00:52:30.313] ...future.rng), globalenv = if (FALSE) 1550s [00:52:30.313] list(added = base::setdiff(base::names(base::.GlobalEnv), 1550s [00:52:30.313] ...future.globalenv.names)) 1550s [00:52:30.313] else NULL, started = ...future.startTime, version = "1.8") 1550s [00:52:30.313] }, condition = base::local({ 1550s [00:52:30.313] c <- base::c 1550s [00:52:30.313] inherits <- base::inherits 1550s [00:52:30.313] invokeRestart <- base::invokeRestart 1550s [00:52:30.313] length <- base::length 1550s [00:52:30.313] list <- base::list 1550s [00:52:30.313] seq.int <- base::seq.int 1550s [00:52:30.313] signalCondition <- base::signalCondition 1550s [00:52:30.313] sys.calls <- base::sys.calls 1550s [00:52:30.313] `[[` <- base::`[[` 1550s [00:52:30.313] `+` <- base::`+` 1550s [00:52:30.313] `<<-` <- base::`<<-` 1550s [00:52:30.313] sysCalls <- function(calls = sys.calls(), from = 1L) { 1550s [00:52:30.313] calls[seq.int(from = from + 12L, to = length(calls) - 1550s [00:52:30.313] 3L)] 1550s [00:52:30.313] } 1550s [00:52:30.313] function(cond) { 1550s [00:52:30.313] is_error <- inherits(cond, "error") 1550s [00:52:30.313] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1550s [00:52:30.313] NULL) 1550s [00:52:30.313] if (is_error) { 1550s [00:52:30.313] sessionInformation <- function() { 1550s [00:52:30.313] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1550s [00:52:30.313] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1550s [00:52:30.313] search = base::search(), system = base::Sys.info()) 1550s [00:52:30.313] } 1550s [00:52:30.313] ...future.conditions[[length(...future.conditions) + 1550s [00:52:30.313] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1550s [00:52:30.313] cond$call), session = sessionInformation(), 1550s [00:52:30.313] timestamp = base::Sys.time(), signaled = 0L) 1550s [00:52:30.313] signalCondition(cond) 1550s [00:52:30.313] } 1550s [00:52:30.313] else if (!ignore && TRUE && inherits(cond, c("condition", 1550s [00:52:30.313] "immediateCondition"))) { 1550s [00:52:30.313] signal <- TRUE && inherits(cond, "immediateCondition") 1550s [00:52:30.313] ...future.conditions[[length(...future.conditions) + 1550s [00:52:30.313] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1550s [00:52:30.313] if (TRUE && !signal) { 1550s [00:52:30.313] muffleCondition <- function (cond, pattern = "^muffle") 1550s [00:52:30.313] { 1550s [00:52:30.313] inherits <- base::inherits 1550s [00:52:30.313] invokeRestart <- base::invokeRestart 1550s [00:52:30.313] is.null <- base::is.null 1550s [00:52:30.313] muffled <- FALSE 1550s [00:52:30.313] if (inherits(cond, "message")) { 1550s [00:52:30.313] muffled <- grepl(pattern, "muffleMessage") 1550s [00:52:30.313] if (muffled) 1550s [00:52:30.313] invokeRestart("muffleMessage") 1550s [00:52:30.313] } 1550s [00:52:30.313] else if (inherits(cond, "warning")) { 1550s [00:52:30.313] muffled <- grepl(pattern, "muffleWarning") 1550s [00:52:30.313] if (muffled) 1550s [00:52:30.313] invokeRestart("muffleWarning") 1550s [00:52:30.313] } 1550s [00:52:30.313] else if (inherits(cond, "condition")) { 1550s [00:52:30.313] if (!is.null(pattern)) { 1550s [00:52:30.313] computeRestarts <- base::computeRestarts 1550s [00:52:30.313] grepl <- base::grepl 1550s [00:52:30.313] restarts <- computeRestarts(cond) 1550s [00:52:30.313] for (restart in restarts) { 1550s [00:52:30.313] name <- restart$name 1550s [00:52:30.313] if (is.null(name)) 1550s [00:52:30.313] next 1550s [00:52:30.313] if (!grepl(pattern, name)) 1550s [00:52:30.313] next 1550s [00:52:30.313] invokeRestart(restart) 1550s [00:52:30.313] muffled <- TRUE 1550s [00:52:30.313] break 1550s [00:52:30.313] } 1550s [00:52:30.313] } 1550s [00:52:30.313] } 1550s [00:52:30.313] invisible(muffled) 1550s [00:52:30.313] } 1550s [00:52:30.313] muffleCondition(cond, pattern = "^muffle") 1550s [00:52:30.313] } 1550s [00:52:30.313] } 1550s [00:52:30.313] else { 1550s [00:52:30.313] if (TRUE) { 1550s [00:52:30.313] muffleCondition <- function (cond, pattern = "^muffle") 1550s [00:52:30.313] { 1550s [00:52:30.313] inherits <- base::inherits 1550s [00:52:30.313] invokeRestart <- base::invokeRestart 1550s [00:52:30.313] is.null <- base::is.null 1550s [00:52:30.313] muffled <- FALSE 1550s [00:52:30.313] if (inherits(cond, "message")) { 1550s [00:52:30.313] muffled <- grepl(pattern, "muffleMessage") 1550s [00:52:30.313] if (muffled) 1550s [00:52:30.313] invokeRestart("muffleMessage") 1550s [00:52:30.313] } 1550s [00:52:30.313] else if (inherits(cond, "warning")) { 1550s [00:52:30.313] muffled <- grepl(pattern, "muffleWarning") 1550s [00:52:30.313] if (muffled) 1550s [00:52:30.313] invokeRestart("muffleWarning") 1550s [00:52:30.313] } 1550s [00:52:30.313] else if (inherits(cond, "condition")) { 1550s [00:52:30.313] if (!is.null(pattern)) { 1550s [00:52:30.313] computeRestarts <- base::computeRestarts 1550s [00:52:30.313] grepl <- base::grepl 1550s [00:52:30.313] restarts <- computeRestarts(cond) 1550s [00:52:30.313] for (restart in restarts) { 1550s [00:52:30.313] name <- restart$name 1550s [00:52:30.313] if (is.null(name)) 1550s [00:52:30.313] next 1550s [00:52:30.313] if (!grepl(pattern, name)) 1550s [00:52:30.313] next 1550s [00:52:30.313] invokeRestart(restart) 1550s [00:52:30.313] muffled <- TRUE 1550s [00:52:30.313] break 1550s [00:52:30.313] } 1550s [00:52:30.313] } 1550s [00:52:30.313] } 1550s [00:52:30.313] invisible(muffled) 1550s [00:52:30.313] } 1550s [00:52:30.313] muffleCondition(cond, pattern = "^muffle") 1550s [00:52:30.313] } 1550s [00:52:30.313] } 1550s [00:52:30.313] } 1550s [00:52:30.313] })) 1550s [00:52:30.313] }, error = function(ex) { 1550s [00:52:30.313] base::structure(base::list(value = NULL, visible = NULL, 1550s [00:52:30.313] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1550s [00:52:30.313] ...future.rng), started = ...future.startTime, 1550s [00:52:30.313] finished = Sys.time(), session_uuid = NA_character_, 1550s [00:52:30.313] version = "1.8"), class = "FutureResult") 1550s [00:52:30.313] }, finally = { 1550s [00:52:30.313] if (!identical(...future.workdir, getwd())) 1550s [00:52:30.313] setwd(...future.workdir) 1550s [00:52:30.313] { 1550s [00:52:30.313] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1550s [00:52:30.313] ...future.oldOptions$nwarnings <- NULL 1550s [00:52:30.313] } 1550s [00:52:30.313] base::options(...future.oldOptions) 1550s [00:52:30.313] if (.Platform$OS.type == "windows") { 1550s [00:52:30.313] old_names <- names(...future.oldEnvVars) 1550s [00:52:30.313] envs <- base::Sys.getenv() 1550s [00:52:30.313] names <- names(envs) 1550s [00:52:30.313] common <- intersect(names, old_names) 1550s [00:52:30.313] added <- setdiff(names, old_names) 1550s [00:52:30.313] removed <- setdiff(old_names, names) 1550s [00:52:30.313] changed <- common[...future.oldEnvVars[common] != 1550s [00:52:30.313] envs[common]] 1550s [00:52:30.313] NAMES <- toupper(changed) 1550s [00:52:30.313] args <- list() 1550s [00:52:30.313] for (kk in seq_along(NAMES)) { 1550s [00:52:30.313] name <- changed[[kk]] 1550s [00:52:30.313] NAME <- NAMES[[kk]] 1550s [00:52:30.313] if (name != NAME && is.element(NAME, old_names)) 1550s [00:52:30.313] next 1550s [00:52:30.313] args[[name]] <- ...future.oldEnvVars[[name]] 1550s [00:52:30.313] } 1550s [00:52:30.313] NAMES <- toupper(added) 1550s [00:52:30.313] for (kk in seq_along(NAMES)) { 1550s [00:52:30.313] name <- added[[kk]] 1550s [00:52:30.313] NAME <- NAMES[[kk]] 1550s [00:52:30.313] if (name != NAME && is.element(NAME, old_names)) 1550s [00:52:30.313] next 1550s [00:52:30.313] args[[name]] <- "" 1550s [00:52:30.313] } 1550s [00:52:30.313] NAMES <- toupper(removed) 1550s [00:52:30.313] for (kk in seq_along(NAMES)) { 1550s [00:52:30.313] name <- removed[[kk]] 1550s [00:52:30.313] NAME <- NAMES[[kk]] 1550s [00:52:30.313] if (name != NAME && is.element(NAME, old_names)) 1550s [00:52:30.313] next 1550s [00:52:30.313] args[[name]] <- ...future.oldEnvVars[[name]] 1550s [00:52:30.313] } 1550s [00:52:30.313] if (length(args) > 0) 1550s [00:52:30.313] base::do.call(base::Sys.setenv, args = args) 1550s [00:52:30.313] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1550s [00:52:30.313] } 1550s [00:52:30.313] else { 1550s [00:52:30.313] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1550s [00:52:30.313] } 1550s [00:52:30.313] { 1550s [00:52:30.313] if (base::length(...future.futureOptionsAdded) > 1550s [00:52:30.313] 0L) { 1550s [00:52:30.313] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1550s [00:52:30.313] base::names(opts) <- ...future.futureOptionsAdded 1550s [00:52:30.313] base::options(opts) 1550s [00:52:30.313] } 1550s [00:52:30.313] { 1550s [00:52:30.313] { 1550s [00:52:30.313] NULL 1550s [00:52:30.313] RNGkind("Mersenne-Twister") 1550s [00:52:30.313] base::rm(list = ".Random.seed", envir = base::globalenv(), 1550s [00:52:30.313] inherits = FALSE) 1550s [00:52:30.313] } 1550s [00:52:30.313] options(future.plan = NULL) 1550s [00:52:30.313] if (is.na(NA_character_)) 1550s [00:52:30.313] Sys.unsetenv("R_FUTURE_PLAN") 1550s [00:52:30.313] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1550s [00:52:30.313] future::plan(list(function (..., envir = parent.frame()) 1550s [00:52:30.313] { 1550s [00:52:30.313] future <- SequentialFuture(..., envir = envir) 1550s [00:52:30.313] if (!future$lazy) 1550s [00:52:30.313] future <- run(future) 1550s [00:52:30.313] invisible(future) 1550s [00:52:30.313] }), .cleanup = FALSE, .init = FALSE) 1550s [00:52:30.313] } 1550s [00:52:30.313] } 1550s [00:52:30.313] } 1550s [00:52:30.313] }) 1550s [00:52:30.313] if (TRUE) { 1550s [00:52:30.313] base::sink(type = "output", split = FALSE) 1550s [00:52:30.313] if (TRUE) { 1550s [00:52:30.313] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1550s [00:52:30.313] } 1550s [00:52:30.313] else { 1550s [00:52:30.313] ...future.result["stdout"] <- base::list(NULL) 1550s [00:52:30.313] } 1550s [00:52:30.313] base::close(...future.stdout) 1550s [00:52:30.313] ...future.stdout <- NULL 1550s [00:52:30.313] } 1550s [00:52:30.313] ...future.result$conditions <- ...future.conditions 1550s [00:52:30.313] ...future.result$finished <- base::Sys.time() 1550s [00:52:30.313] ...future.result 1550s [00:52:30.313] } 1550s [00:52:30.321] assign_globals() ... 1550s [00:52:30.321] List of 5 1550s [00:52:30.321] $ ...future.FUN :function (x, ...) 1550s [00:52:30.321] $ future.call.arguments : list() 1550s [00:52:30.321] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1550s [00:52:30.321] $ ...future.elements_ii :List of 2 1550s [00:52:30.321] ..$ b:Classes 'listenv', 'environment' 1550s [00:52:30.321] ..$ a:Classes 'listenv', 'environment' 1550s [00:52:30.321] $ ...future.seeds_ii : NULL 1550s [00:52:30.321] $ ...future.globals.maxSize: NULL 1550s [00:52:30.321] - attr(*, "where")=List of 5 1550s [00:52:30.321] ..$ ...future.FUN : 1550s [00:52:30.321] ..$ future.call.arguments : 1550s [00:52:30.321] ..$ ...future.elements_ii : 1550s [00:52:30.321] ..$ ...future.seeds_ii : 1550s [00:52:30.321] ..$ ...future.globals.maxSize: 1550s [00:52:30.321] - attr(*, "resolved")= logi FALSE 1550s [00:52:30.321] - attr(*, "total_size")= num 4968 1550s [00:52:30.321] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1550s [00:52:30.321] - attr(*, "already-done")= logi TRUE 1550s [00:52:30.334] - copied ‘...future.FUN’ to environment 1550s [00:52:30.334] - copied ‘future.call.arguments’ to environment 1550s [00:52:30.335] - copied ‘...future.elements_ii’ to environment 1550s [00:52:30.335] - copied ‘...future.seeds_ii’ to environment 1550s [00:52:30.335] - copied ‘...future.globals.maxSize’ to environment 1550s [00:52:30.335] assign_globals() ... done 1550s [00:52:30.336] plan(): Setting new future strategy stack: 1550s [00:52:30.336] List of future strategies: 1550s [00:52:30.336] 1. sequential: 1550s [00:52:30.336] - args: function (..., envir = parent.frame()) 1550s [00:52:30.336] - tweaked: FALSE 1550s [00:52:30.336] - call: NULL 1550s [00:52:30.336] plan(): nbrOfWorkers() = 1 1550s [00:52:30.337] plan(): Setting new future strategy stack: 1550s [00:52:30.337] List of future strategies: 1550s [00:52:30.337] 1. sequential: 1550s [00:52:30.337] - args: function (..., envir = parent.frame()) 1550s [00:52:30.337] - tweaked: FALSE 1550s [00:52:30.337] - call: plan(strategy) 1550s [00:52:30.338] plan(): nbrOfWorkers() = 1 1550s [00:52:30.338] SequentialFuture started (and completed) 1550s [00:52:30.338] - Launch lazy future ... done 1550s [00:52:30.338] run() for ‘SequentialFuture’ ... done 1550s [00:52:30.339] Created future: 1550s [00:52:30.339] SequentialFuture: 1550s [00:52:30.339] Label: ‘future_lapply-1’ 1550s [00:52:30.339] Expression: 1550s [00:52:30.339] { 1550s [00:52:30.339] do.call(function(...) { 1550s [00:52:30.339] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1550s [00:52:30.339] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1550s [00:52:30.339] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1550s [00:52:30.339] on.exit(options(oopts), add = TRUE) 1550s [00:52:30.339] } 1550s [00:52:30.339] { 1550s [00:52:30.339] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1550s [00:52:30.339] ...future.X_jj <- ...future.elements_ii[[jj]] 1550s [00:52:30.339] ...future.FUN(...future.X_jj, ...) 1550s [00:52:30.339] }) 1550s [00:52:30.339] } 1550s [00:52:30.339] }, args = future.call.arguments) 1550s [00:52:30.339] } 1550s [00:52:30.339] Lazy evaluation: FALSE 1550s [00:52:30.339] Asynchronous evaluation: FALSE 1550s [00:52:30.339] Local evaluation: TRUE 1550s [00:52:30.339] Environment: R_GlobalEnv 1550s [00:52:30.339] Capture standard output: TRUE 1550s [00:52:30.339] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1550s [00:52:30.339] Globals: 5 objects totaling 17.90 KiB (function ‘...future.FUN’ of 4.85 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 13.05 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1550s [00:52:30.339] Packages: 1 packages (‘listenv’) 1550s [00:52:30.339] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1550s [00:52:30.339] Resolved: TRUE 1550s [00:52:30.339] Value: 800 bytes of class ‘list’ 1550s [00:52:30.339] Early signaling: FALSE 1550s [00:52:30.339] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1550s [00:52:30.339] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1550s [00:52:30.342] Chunk #1 of 1 ... DONE 1550s [00:52:30.342] Launching 1 futures (chunks) ... DONE 1550s [00:52:30.342] Resolving 1 futures (chunks) ... 1550s [00:52:30.343] resolve() on list ... 1550s [00:52:30.343] recursive: 0 1550s [00:52:30.343] length: 1 1550s [00:52:30.343] 1550s [00:52:30.343] resolved() for ‘SequentialFuture’ ... 1550s [00:52:30.343] - state: ‘finished’ 1550s [00:52:30.344] - run: TRUE 1550s [00:52:30.344] - result: ‘FutureResult’ 1550s [00:52:30.344] resolved() for ‘SequentialFuture’ ... done 1550s [00:52:30.344] Future #1 1550s [00:52:30.344] signalConditionsASAP(SequentialFuture, pos=1) ... 1550s [00:52:30.345] - nx: 1 1550s [00:52:30.345] - relay: TRUE 1550s [00:52:30.345] - stdout: TRUE 1550s [00:52:30.345] - signal: TRUE 1550s [00:52:30.346] - resignal: FALSE 1550s [00:52:30.346] - force: TRUE 1550s [00:52:30.346] - relayed: [n=1] FALSE 1550s [00:52:30.346] - queued futures: [n=1] FALSE 1550s [00:52:30.346] - until=1 1550s [00:52:30.346] - relaying element #1 1550s [00:52:30.347] - relayed: [n=1] TRUE 1550s [00:52:30.347] - queued futures: [n=1] TRUE 1550s [00:52:30.347] signalConditionsASAP(SequentialFuture, pos=1) ... done 1550s [00:52:30.347] length: 0 (resolved future 1) 1550s [00:52:30.348] Relaying remaining futures 1550s [00:52:30.348] signalConditionsASAP(NULL, pos=0) ... 1550s [00:52:30.348] - nx: 1 1550s [00:52:30.348] - relay: TRUE 1550s [00:52:30.348] - stdout: TRUE 1550s [00:52:30.348] - signal: TRUE 1550s [00:52:30.348] - resignal: FALSE 1550s [00:52:30.349] - force: TRUE 1550s [00:52:30.349] - relayed: [n=1] TRUE 1550s [00:52:30.349] - queued futures: [n=1] TRUE 1550s - flush all 1550s [00:52:30.350] - relayed: [n=1] TRUE 1550s [00:52:30.350] - queued futures: [n=1] TRUE 1550s [00:52:30.350] signalConditionsASAP(NULL, pos=0) ... done 1550s [00:52:30.351] resolve() on list ... DONE 1550s [00:52:30.351] - Number of value chunks collected: 1 1550s [00:52:30.351] Resolving 1 futures (chunks) ... DONE 1550s [00:52:30.352] Reducing values from 1 chunks ... 1550s [00:52:30.352] - Number of values collected after concatenation: 2 1550s [00:52:30.352] - Number of values expected: 2 1550s [00:52:30.352] Reverse index remapping (attribute 'ordering'): [n = 2] 2, 1 1550s [00:52:30.353] Reducing values from 1 chunks ... DONE 1550s [00:52:30.353] future_lapply() ... DONE 1550s List- future_lapply(x, FUN = vector, ...) ... 1550s [00:52:30.359] future_lapply() ... 1550s of 1 1550s $ y:List of 2 1550s ..$ a: Named chr "A" 1550s .. ..- attr(*, "names")= chr "A" 1550s ..$ b: Named chr [1:2] "A" "B" 1550s .. ..- attr(*, "names")= chr [1:2] "A" "B" 1550s [00:52:30.361] Number of chunks: 1 1550s [00:52:30.361] Index remapping (attribute 'ordering'): [n = 4] 4, 3, 2, 1 1550s [00:52:30.362] getGlobalsAndPackagesXApply() ... 1550s [00:52:30.362] - future.globals: TRUE 1550s [00:52:30.362] getGlobalsAndPackages() ... 1550s [00:52:30.362] Searching for globals... 1550s [00:52:30.365] - globals found: [2] ‘FUN’, ‘.Internal’ 1550s [00:52:30.365] Searching for globals ... DONE 1550s [00:52:30.366] Resolving globals: FALSE 1550s [00:52:30.366] The total size of the 1 globals is 2.13 KiB (2184 bytes) 1550s [00:52:30.367] The total size of the 1 globals exported for future expression (‘FUN(length = 2L)’) is 2.13 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (2.13 KiB of class ‘function’) 1550s [00:52:30.367] - globals: [1] ‘FUN’ 1550s [00:52:30.368] 1550s [00:52:30.368] getGlobalsAndPackages() ... DONE 1550s [00:52:30.368] - globals found/used: [n=1] ‘FUN’ 1550s [00:52:30.368] - needed namespaces: [n=0] 1550s [00:52:30.368] Finding globals ... DONE 1550s [00:52:30.368] - use_args: TRUE 1550s [00:52:30.369] - Getting '...' globals ... 1550s [00:52:30.369] resolve() on list ... 1550s [00:52:30.369] recursive: 0 1550s [00:52:30.369] length: 1 1550s [00:52:30.369] elements: ‘...’ 1550s [00:52:30.370] length: 0 (resolved future 1) 1550s [00:52:30.370] resolve() on list ... DONE 1550s [00:52:30.370] - '...' content: [n=1] ‘length’ 1550s [00:52:30.370] List of 1 1550s [00:52:30.370] $ ...:List of 1 1550s [00:52:30.370] ..$ length: int 2 1550s [00:52:30.370] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1550s [00:52:30.370] - attr(*, "where")=List of 1 1550s [00:52:30.370] ..$ ...: 1550s [00:52:30.370] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1550s [00:52:30.370] - attr(*, "resolved")= logi TRUE 1550s [00:52:30.370] - attr(*, "total_size")= num NA 1550s [00:52:30.377] - Getting '...' globals ... DONE 1550s [00:52:30.377] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1550s [00:52:30.377] List of 2 1550s [00:52:30.377] $ ...future.FUN:function (mode = "logical", length = 0L) 1550s [00:52:30.377] $ ... :List of 1 1550s [00:52:30.377] ..$ length: int 2 1550s [00:52:30.377] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1550s [00:52:30.377] - attr(*, "where")=List of 2 1550s [00:52:30.377] ..$ ...future.FUN: 1550s [00:52:30.377] ..$ ... : 1550s [00:52:30.377] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1550s [00:52:30.377] - attr(*, "resolved")= logi FALSE 1550s [00:52:30.377] - attr(*, "total_size")= num 2240 1550s [00:52:30.383] Packages to be attached in all futures: [n=0] 1550s [00:52:30.384] getGlobalsAndPackagesXApply() ... DONE 1550s [00:52:30.384] Number of futures (= number of chunks): 1 1550s [00:52:30.385] Launching 1 futures (chunks) ... 1550s [00:52:30.385] Chunk #1 of 1 ... 1550s [00:52:30.385] - Finding globals in 'X' for chunk #1 ... 1550s [00:52:30.386] getGlobalsAndPackages() ... 1550s [00:52:30.386] Searching for globals... 1550s [00:52:30.387] 1550s [00:52:30.387] Searching for globals ... DONE 1550s [00:52:30.387] - globals: [0] 1550s [00:52:30.387] getGlobalsAndPackages() ... DONE 1550s [00:52:30.387] + additional globals found: [n=0] 1550s [00:52:30.388] + additional namespaces needed: [n=0] 1550s [00:52:30.388] - Finding globals in 'X' for chunk #1 ... DONE 1550s [00:52:30.388] - seeds: 1550s [00:52:30.388] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1550s [00:52:30.388] getGlobalsAndPackages() ... 1550s [00:52:30.388] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1550s [00:52:30.389] Resolving globals: FALSE 1550s [00:52:30.389] Tweak future expression to call with '...' arguments ... 1550s [00:52:30.389] { 1550s [00:52:30.389] do.call(function(...) { 1550s [00:52:30.389] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1550s [00:52:30.389] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1550s [00:52:30.389] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1550s [00:52:30.389] on.exit(options(oopts), add = TRUE) 1550s [00:52:30.389] } 1550s [00:52:30.389] { 1550s [00:52:30.389] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1550s [00:52:30.389] ...future.X_jj <- ...future.elements_ii[[jj]] 1550s [00:52:30.389] ...future.FUN(...future.X_jj, ...) 1550s [00:52:30.389] }) 1550s [00:52:30.389] } 1550s [00:52:30.389] }, args = future.call.arguments) 1550s [00:52:30.389] } 1550s [00:52:30.390] Tweak future expression to call with '...' arguments ... DONE 1550s [00:52:30.391] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1550s [00:52:30.391] 1550s [00:52:30.391] getGlobalsAndPackages() ... DONE 1550s [00:52:30.392] run() for ‘Future’ ... 1550s [00:52:30.393] - state: ‘created’ 1550s [00:52:30.393] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1550s [00:52:30.394] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1550s [00:52:30.394] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1550s [00:52:30.394] - Field: ‘label’ 1550s [00:52:30.395] - Field: ‘local’ 1550s [00:52:30.395] - Field: ‘owner’ 1550s [00:52:30.395] - Field: ‘envir’ 1550s [00:52:30.395] - Field: ‘packages’ 1550s [00:52:30.395] - Field: ‘gc’ 1550s [00:52:30.396] - Field: ‘conditions’ 1550s [00:52:30.396] - Field: ‘expr’ 1550s [00:52:30.396] - Field: ‘uuid’ 1550s [00:52:30.396] - Field: ‘seed’ 1550s [00:52:30.396] - Field: ‘version’ 1550s [00:52:30.397] - Field: ‘result’ 1550s [00:52:30.397] - Field: ‘asynchronous’ 1550s [00:52:30.397] - Field: ‘calls’ 1550s [00:52:30.397] - Field: ‘globals’ 1550s [00:52:30.397] - Field: ‘stdout’ 1550s [00:52:30.398] - Field: ‘earlySignal’ 1550s [00:52:30.398] - Field: ‘lazy’ 1550s [00:52:30.398] - Field: ‘state’ 1550s [00:52:30.398] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1550s [00:52:30.398] - Launch lazy future ... 1550s [00:52:30.398] Packages needed by the future expression (n = 0): 1550s [00:52:30.399] Packages needed by future strategies (n = 0): 1550s [00:52:30.399] { 1550s [00:52:30.399] { 1550s [00:52:30.399] { 1550s [00:52:30.399] ...future.startTime <- base::Sys.time() 1550s [00:52:30.399] { 1550s [00:52:30.399] { 1550s [00:52:30.399] { 1550s [00:52:30.399] base::local({ 1550s [00:52:30.399] has_future <- base::requireNamespace("future", 1550s [00:52:30.399] quietly = TRUE) 1550s [00:52:30.399] if (has_future) { 1550s [00:52:30.399] ns <- base::getNamespace("future") 1550s [00:52:30.399] version <- ns[[".package"]][["version"]] 1550s [00:52:30.399] if (is.null(version)) 1550s [00:52:30.399] version <- utils::packageVersion("future") 1550s [00:52:30.399] } 1550s [00:52:30.399] else { 1550s [00:52:30.399] version <- NULL 1550s [00:52:30.399] } 1550s [00:52:30.399] if (!has_future || version < "1.8.0") { 1550s [00:52:30.399] info <- base::c(r_version = base::gsub("R version ", 1550s [00:52:30.399] "", base::R.version$version.string), 1550s [00:52:30.399] platform = base::sprintf("%s (%s-bit)", 1550s [00:52:30.399] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1550s [00:52:30.399] os = base::paste(base::Sys.info()[base::c("sysname", 1550s [00:52:30.399] "release", "version")], collapse = " "), 1550s [00:52:30.399] hostname = base::Sys.info()[["nodename"]]) 1550s [00:52:30.399] info <- base::sprintf("%s: %s", base::names(info), 1550s [00:52:30.399] info) 1550s [00:52:30.399] info <- base::paste(info, collapse = "; ") 1550s [00:52:30.399] if (!has_future) { 1550s [00:52:30.399] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1550s [00:52:30.399] info) 1550s [00:52:30.399] } 1550s [00:52:30.399] else { 1550s [00:52:30.399] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1550s [00:52:30.399] info, version) 1550s [00:52:30.399] } 1550s [00:52:30.399] base::stop(msg) 1550s [00:52:30.399] } 1550s [00:52:30.399] }) 1550s [00:52:30.399] } 1550s [00:52:30.399] options(future.plan = NULL) 1550s [00:52:30.399] Sys.unsetenv("R_FUTURE_PLAN") 1550s [00:52:30.399] future::plan("default", .cleanup = FALSE, .init = FALSE) 1550s [00:52:30.399] } 1550s [00:52:30.399] ...future.workdir <- getwd() 1550s [00:52:30.399] } 1550s [00:52:30.399] ...future.oldOptions <- base::as.list(base::.Options) 1550s [00:52:30.399] ...future.oldEnvVars <- base::Sys.getenv() 1550s [00:52:30.399] } 1550s [00:52:30.399] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1550s [00:52:30.399] future.globals.maxSize = NULL, future.globals.method = NULL, 1550s [00:52:30.399] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1550s [00:52:30.399] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1550s [00:52:30.399] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1550s [00:52:30.399] future.stdout.windows.reencode = NULL, width = 80L) 1550s [00:52:30.399] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1550s [00:52:30.399] base::names(...future.oldOptions)) 1550s [00:52:30.399] } 1550s [00:52:30.399] if (FALSE) { 1550s [00:52:30.399] } 1550s [00:52:30.399] else { 1550s [00:52:30.399] if (TRUE) { 1550s [00:52:30.399] ...future.stdout <- base::rawConnection(base::raw(0L), 1550s [00:52:30.399] open = "w") 1550s [00:52:30.399] } 1550s [00:52:30.399] else { 1550s [00:52:30.399] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1550s [00:52:30.399] windows = "NUL", "/dev/null"), open = "w") 1550s [00:52:30.399] } 1550s [00:52:30.399] base::sink(...future.stdout, type = "output", split = FALSE) 1550s [00:52:30.399] base::on.exit(if (!base::is.null(...future.stdout)) { 1550s [00:52:30.399] base::sink(type = "output", split = FALSE) 1550s [00:52:30.399] base::close(...future.stdout) 1550s [00:52:30.399] }, add = TRUE) 1550s [00:52:30.399] } 1550s [00:52:30.399] ...future.frame <- base::sys.nframe() 1550s [00:52:30.399] ...future.conditions <- base::list() 1550s [00:52:30.399] ...future.rng <- base::globalenv()$.Random.seed 1550s [00:52:30.399] if (FALSE) { 1550s [00:52:30.399] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1550s [00:52:30.399] "...future.value", "...future.globalenv.names", ".Random.seed") 1550s [00:52:30.399] } 1550s [00:52:30.399] ...future.result <- base::tryCatch({ 1550s [00:52:30.399] base::withCallingHandlers({ 1550s [00:52:30.399] ...future.value <- base::withVisible(base::local({ 1550s [00:52:30.399] do.call(function(...) { 1550s [00:52:30.399] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1550s [00:52:30.399] if (!identical(...future.globals.maxSize.org, 1550s [00:52:30.399] ...future.globals.maxSize)) { 1550s [00:52:30.399] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1550s [00:52:30.399] on.exit(options(oopts), add = TRUE) 1550s [00:52:30.399] } 1550s [00:52:30.399] { 1550s [00:52:30.399] lapply(seq_along(...future.elements_ii), 1550s [00:52:30.399] FUN = function(jj) { 1550s [00:52:30.399] ...future.X_jj <- ...future.elements_ii[[jj]] 1550s [00:52:30.399] ...future.FUN(...future.X_jj, ...) 1550s [00:52:30.399] }) 1550s [00:52:30.399] } 1550s [00:52:30.399] }, args = future.call.arguments) 1550s [00:52:30.399] })) 1550s [00:52:30.399] future::FutureResult(value = ...future.value$value, 1550s [00:52:30.399] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1550s [00:52:30.399] ...future.rng), globalenv = if (FALSE) 1550s [00:52:30.399] list(added = base::setdiff(base::names(base::.GlobalEnv), 1550s [00:52:30.399] ...future.globalenv.names)) 1550s [00:52:30.399] else NULL, started = ...future.startTime, version = "1.8") 1550s [00:52:30.399] }, condition = base::local({ 1550s [00:52:30.399] c <- base::c 1550s [00:52:30.399] inherits <- base::inherits 1550s [00:52:30.399] invokeRestart <- base::invokeRestart 1550s [00:52:30.399] length <- base::length 1550s [00:52:30.399] list <- base::list 1550s [00:52:30.399] seq.int <- base::seq.int 1550s [00:52:30.399] signalCondition <- base::signalCondition 1550s [00:52:30.399] sys.calls <- base::sys.calls 1550s [00:52:30.399] `[[` <- base::`[[` 1550s [00:52:30.399] `+` <- base::`+` 1550s [00:52:30.399] `<<-` <- base::`<<-` 1550s [00:52:30.399] sysCalls <- function(calls = sys.calls(), from = 1L) { 1550s [00:52:30.399] calls[seq.int(from = from + 12L, to = length(calls) - 1550s [00:52:30.399] 3L)] 1550s [00:52:30.399] } 1550s [00:52:30.399] function(cond) { 1550s [00:52:30.399] is_error <- inherits(cond, "error") 1550s [00:52:30.399] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1550s [00:52:30.399] NULL) 1550s [00:52:30.399] if (is_error) { 1550s [00:52:30.399] sessionInformation <- function() { 1550s [00:52:30.399] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1550s [00:52:30.399] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1550s [00:52:30.399] search = base::search(), system = base::Sys.info()) 1550s [00:52:30.399] } 1550s [00:52:30.399] ...future.conditions[[length(...future.conditions) + 1550s [00:52:30.399] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1550s [00:52:30.399] cond$call), session = sessionInformation(), 1550s [00:52:30.399] timestamp = base::Sys.time(), signaled = 0L) 1550s [00:52:30.399] signalCondition(cond) 1550s [00:52:30.399] } 1550s [00:52:30.399] else if (!ignore && TRUE && inherits(cond, c("condition", 1550s [00:52:30.399] "immediateCondition"))) { 1550s [00:52:30.399] signal <- TRUE && inherits(cond, "immediateCondition") 1550s [00:52:30.399] ...future.conditions[[length(...future.conditions) + 1550s [00:52:30.399] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1550s [00:52:30.399] if (TRUE && !signal) { 1550s [00:52:30.399] muffleCondition <- function (cond, pattern = "^muffle") 1550s [00:52:30.399] { 1550s [00:52:30.399] inherits <- base::inherits 1550s [00:52:30.399] invokeRestart <- base::invokeRestart 1550s [00:52:30.399] is.null <- base::is.null 1550s [00:52:30.399] muffled <- FALSE 1550s [00:52:30.399] if (inherits(cond, "message")) { 1550s [00:52:30.399] muffled <- grepl(pattern, "muffleMessage") 1550s [00:52:30.399] if (muffled) 1550s [00:52:30.399] invokeRestart("muffleMessage") 1550s [00:52:30.399] } 1550s [00:52:30.399] else if (inherits(cond, "warning")) { 1550s [00:52:30.399] muffled <- grepl(pattern, "muffleWarning") 1550s [00:52:30.399] if (muffled) 1550s [00:52:30.399] invokeRestart("muffleWarning") 1550s [00:52:30.399] } 1550s [00:52:30.399] else if (inherits(cond, "condition")) { 1550s [00:52:30.399] if (!is.null(pattern)) { 1550s [00:52:30.399] computeRestarts <- base::computeRestarts 1550s [00:52:30.399] grepl <- base::grepl 1550s [00:52:30.399] restarts <- computeRestarts(cond) 1550s [00:52:30.399] for (restart in restarts) { 1550s [00:52:30.399] name <- restart$name 1550s [00:52:30.399] if (is.null(name)) 1550s [00:52:30.399] next 1550s [00:52:30.399] if (!grepl(pattern, name)) 1550s [00:52:30.399] next 1550s [00:52:30.399] invokeRestart(restart) 1550s [00:52:30.399] muffled <- TRUE 1550s [00:52:30.399] break 1550s [00:52:30.399] } 1550s [00:52:30.399] } 1550s [00:52:30.399] } 1550s [00:52:30.399] invisible(muffled) 1550s [00:52:30.399] } 1550s [00:52:30.399] muffleCondition(cond, pattern = "^muffle") 1550s [00:52:30.399] } 1550s [00:52:30.399] } 1550s [00:52:30.399] else { 1550s [00:52:30.399] if (TRUE) { 1550s [00:52:30.399] muffleCondition <- function (cond, pattern = "^muffle") 1550s [00:52:30.399] { 1550s [00:52:30.399] inherits <- base::inherits 1550s [00:52:30.399] invokeRestart <- base::invokeRestart 1550s [00:52:30.399] is.null <- base::is.null 1550s [00:52:30.399] muffled <- FALSE 1550s [00:52:30.399] if (inherits(cond, "message")) { 1550s [00:52:30.399] muffled <- grepl(pattern, "muffleMessage") 1550s [00:52:30.399] if (muffled) 1550s [00:52:30.399] invokeRestart("muffleMessage") 1550s [00:52:30.399] } 1550s [00:52:30.399] else if (inherits(cond, "warning")) { 1550s [00:52:30.399] muffled <- grepl(pattern, "muffleWarning") 1550s [00:52:30.399] if (muffled) 1550s [00:52:30.399] invokeRestart("muffleWarning") 1550s [00:52:30.399] } 1550s [00:52:30.399] else if (inherits(cond, "condition")) { 1550s [00:52:30.399] if (!is.null(pattern)) { 1550s [00:52:30.399] computeRestarts <- base::computeRestarts 1550s [00:52:30.399] grepl <- base::grepl 1550s [00:52:30.399] restarts <- computeRestarts(cond) 1550s [00:52:30.399] for (restart in restarts) { 1550s [00:52:30.399] name <- restart$name 1550s [00:52:30.399] if (is.null(name)) 1550s [00:52:30.399] next 1550s [00:52:30.399] if (!grepl(pattern, name)) 1550s [00:52:30.399] next 1550s [00:52:30.399] invokeRestart(restart) 1550s [00:52:30.399] muffled <- TRUE 1550s [00:52:30.399] break 1550s [00:52:30.399] } 1550s [00:52:30.399] } 1550s [00:52:30.399] } 1550s [00:52:30.399] invisible(muffled) 1550s [00:52:30.399] } 1550s [00:52:30.399] muffleCondition(cond, pattern = "^muffle") 1550s [00:52:30.399] } 1550s [00:52:30.399] } 1550s [00:52:30.399] } 1550s [00:52:30.399] })) 1550s [00:52:30.399] }, error = function(ex) { 1550s [00:52:30.399] base::structure(base::list(value = NULL, visible = NULL, 1550s [00:52:30.399] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1550s [00:52:30.399] ...future.rng), started = ...future.startTime, 1550s [00:52:30.399] finished = Sys.time(), session_uuid = NA_character_, 1550s [00:52:30.399] version = "1.8"), class = "FutureResult") 1550s [00:52:30.399] }, finally = { 1550s [00:52:30.399] if (!identical(...future.workdir, getwd())) 1550s [00:52:30.399] setwd(...future.workdir) 1550s [00:52:30.399] { 1550s [00:52:30.399] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1550s [00:52:30.399] ...future.oldOptions$nwarnings <- NULL 1550s [00:52:30.399] } 1550s [00:52:30.399] base::options(...future.oldOptions) 1550s [00:52:30.399] if (.Platform$OS.type == "windows") { 1550s [00:52:30.399] old_names <- names(...future.oldEnvVars) 1550s [00:52:30.399] envs <- base::Sys.getenv() 1550s [00:52:30.399] names <- names(envs) 1550s [00:52:30.399] common <- intersect(names, old_names) 1550s [00:52:30.399] added <- setdiff(names, old_names) 1550s [00:52:30.399] removed <- setdiff(old_names, names) 1550s [00:52:30.399] changed <- common[...future.oldEnvVars[common] != 1550s [00:52:30.399] envs[common]] 1550s [00:52:30.399] NAMES <- toupper(changed) 1550s [00:52:30.399] args <- list() 1550s [00:52:30.399] for (kk in seq_along(NAMES)) { 1550s [00:52:30.399] name <- changed[[kk]] 1550s [00:52:30.399] NAME <- NAMES[[kk]] 1550s [00:52:30.399] if (name != NAME && is.element(NAME, old_names)) 1550s [00:52:30.399] next 1550s [00:52:30.399] args[[name]] <- ...future.oldEnvVars[[name]] 1550s [00:52:30.399] } 1550s [00:52:30.399] NAMES <- toupper(added) 1550s [00:52:30.399] for (kk in seq_along(NAMES)) { 1550s [00:52:30.399] name <- added[[kk]] 1550s [00:52:30.399] NAME <- NAMES[[kk]] 1550s [00:52:30.399] if (name != NAME && is.element(NAME, old_names)) 1550s [00:52:30.399] next 1550s [00:52:30.399] args[[name]] <- "" 1550s [00:52:30.399] } 1550s [00:52:30.399] NAMES <- toupper(removed) 1550s [00:52:30.399] for (kk in seq_along(NAMES)) { 1550s [00:52:30.399] name <- removed[[kk]] 1550s [00:52:30.399] NAME <- NAMES[[kk]] 1550s [00:52:30.399] if (name != NAME && is.element(NAME, old_names)) 1550s [00:52:30.399] next 1550s [00:52:30.399] args[[name]] <- ...future.oldEnvVars[[name]] 1550s [00:52:30.399] } 1550s [00:52:30.399] if (length(args) > 0) 1550s [00:52:30.399] base::do.call(base::Sys.setenv, args = args) 1550s [00:52:30.399] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1550s [00:52:30.399] } 1550s [00:52:30.399] else { 1550s [00:52:30.399] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1550s [00:52:30.399] } 1550s [00:52:30.399] { 1550s [00:52:30.399] if (base::length(...future.futureOptionsAdded) > 1550s [00:52:30.399] 0L) { 1550s [00:52:30.399] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1550s [00:52:30.399] base::names(opts) <- ...future.futureOptionsAdded 1550s [00:52:30.399] base::options(opts) 1550s [00:52:30.399] } 1550s [00:52:30.399] { 1550s [00:52:30.399] { 1550s [00:52:30.399] NULL 1550s [00:52:30.399] RNGkind("Mersenne-Twister") 1550s [00:52:30.399] base::rm(list = ".Random.seed", envir = base::globalenv(), 1550s [00:52:30.399] inherits = FALSE) 1550s [00:52:30.399] } 1550s [00:52:30.399] options(future.plan = NULL) 1550s [00:52:30.399] if (is.na(NA_character_)) 1550s [00:52:30.399] Sys.unsetenv("R_FUTURE_PLAN") 1550s [00:52:30.399] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1550s [00:52:30.399] future::plan(list(function (..., envir = parent.frame()) 1550s [00:52:30.399] { 1550s [00:52:30.399] future <- SequentialFuture(..., envir = envir) 1550s [00:52:30.399] if (!future$lazy) 1550s [00:52:30.399] future <- run(future) 1550s [00:52:30.399] invisible(future) 1550s [00:52:30.399] }), .cleanup = FALSE, .init = FALSE) 1550s [00:52:30.399] } 1550s [00:52:30.399] } 1550s [00:52:30.399] } 1550s [00:52:30.399] }) 1550s [00:52:30.399] if (TRUE) { 1550s [00:52:30.399] base::sink(type = "output", split = FALSE) 1550s [00:52:30.399] if (TRUE) { 1550s [00:52:30.399] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1550s [00:52:30.399] } 1550s [00:52:30.399] else { 1550s [00:52:30.399] ...future.result["stdout"] <- base::list(NULL) 1550s [00:52:30.399] } 1550s [00:52:30.399] base::close(...future.stdout) 1550s [00:52:30.399] ...future.stdout <- NULL 1550s [00:52:30.399] } 1550s [00:52:30.399] ...future.result$conditions <- ...future.conditions 1550s [00:52:30.399] ...future.result$finished <- base::Sys.time() 1550s [00:52:30.399] ...future.result 1550s [00:52:30.399] } 1550s [00:52:30.405] assign_globals() ... 1550s [00:52:30.405] List of 5 1550s [00:52:30.405] $ ...future.FUN :function (mode = "logical", length = 0L) 1550s [00:52:30.405] $ future.call.arguments :List of 1 1550s [00:52:30.405] ..$ length: int 2 1550s [00:52:30.405] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1550s [00:52:30.405] $ ...future.elements_ii :List of 4 1550s [00:52:30.405] ..$ c: chr "list" 1550s [00:52:30.405] ..$ c: chr "character" 1550s [00:52:30.405] ..$ b: chr "numeric" 1550s [00:52:30.405] ..$ a: chr "integer" 1550s [00:52:30.405] $ ...future.seeds_ii : NULL 1550s [00:52:30.405] $ ...future.globals.maxSize: NULL 1550s [00:52:30.405] - attr(*, "where")=List of 5 1550s [00:52:30.405] ..$ ...future.FUN : 1550s [00:52:30.405] ..$ future.call.arguments : 1550s [00:52:30.405] ..$ ...future.elements_ii : 1550s [00:52:30.405] ..$ ...future.seeds_ii : 1550s [00:52:30.405] ..$ ...future.globals.maxSize: 1550s [00:52:30.405] - attr(*, "resolved")= logi FALSE 1550s [00:52:30.405] - attr(*, "total_size")= num 2240 1550s [00:52:30.405] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1550s [00:52:30.405] - attr(*, "already-done")= logi TRUE 1550s [00:52:30.423] - copied ‘...future.FUN’ to environment 1550s [00:52:30.423] - copied ‘future.call.arguments’ to environment 1550s [00:52:30.424] - copied ‘...future.elements_ii’ to environment 1550s [00:52:30.424] - copied ‘...future.seeds_ii’ to environment 1550s [00:52:30.424] - copied ‘...future.globals.maxSize’ to environment 1550s [00:52:30.425] assign_globals() ... done 1550s [00:52:30.425] plan(): Setting new future strategy stack: 1550s [00:52:30.425] List of future strategies: 1550s [00:52:30.425] 1. sequential: 1550s [00:52:30.425] - args: function (..., envir = parent.frame()) 1550s [00:52:30.425] - tweaked: FALSE 1550s [00:52:30.425] - call: NULL 1550s [00:52:30.426] plan(): nbrOfWorkers() = 1 1550s [00:52:30.427] plan(): Setting new future strategy stack: 1550s [00:52:30.427] List of future strategies: 1550s [00:52:30.427] 1. sequential: 1550s [00:52:30.427] - args: function (..., envir = parent.frame()) 1550s [00:52:30.427] - tweaked: FALSE 1550s [00:52:30.427] - call: plan(strategy) 1550s [00:52:30.428] plan(): nbrOfWorkers() = 1 1550s [00:52:30.428] SequentialFuture started (and completed) 1550s [00:52:30.428] - Launch lazy future ... done 1550s [00:52:30.428] run() for ‘SequentialFuture’ ... done 1550s [00:52:30.429] Created future: 1550s [00:52:30.429] SequentialFuture: 1550s [00:52:30.429] Label: ‘future_lapply-1’ 1550s [00:52:30.429] Expression: 1550s [00:52:30.429] { 1550s [00:52:30.429] do.call(function(...) { 1550s [00:52:30.429] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1550s [00:52:30.429] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1550s [00:52:30.429] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1550s [00:52:30.429] on.exit(options(oopts), add = TRUE) 1550s [00:52:30.429] } 1550s [00:52:30.429] { 1550s [00:52:30.429] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1550s [00:52:30.429] ...future.X_jj <- ...future.elements_ii[[jj]] 1550s [00:52:30.429] ...future.FUN(...future.X_jj, ...) 1550s [00:52:30.429] }) 1550s [00:52:30.429] } 1550s [00:52:30.429] }, args = future.call.arguments) 1550s [00:52:30.429] } 1550s [00:52:30.429] Lazy evaluation: FALSE 1550s [00:52:30.429] Asynchronous evaluation: FALSE 1550s [00:52:30.429] Local evaluation: TRUE 1550s [00:52:30.429] Environment: R_GlobalEnv 1550s [00:52:30.429] Capture standard output: TRUE 1550s [00:52:30.429] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1550s [00:52:30.429] Globals: 5 objects totaling 2.63 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 456 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1550s [00:52:30.429] Packages: 1550s [00:52:30.429] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1550s [00:52:30.429] Resolved: TRUE 1550s [00:52:30.429] Value: 240 bytes of class ‘list’ 1550s [00:52:30.429] Early signaling: FALSE 1550s [00:52:30.429] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1550s [00:52:30.429] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1550s [00:52:30.431] Chunk #1 of 1 ... DONE 1550s [00:52:30.431] Launching 1 futures (chunks) ... DONE 1550s [00:52:30.431] Resolving 1 futures (chunks) ... 1550s [00:52:30.431] resolve() on list ... 1550s [00:52:30.431] recursive: 0 1550s [00:52:30.431] length: 1 1550s [00:52:30.432] 1550s [00:52:30.432] resolved() for ‘SequentialFuture’ ... 1550s [00:52:30.432] - state: ‘finished’ 1550s [00:52:30.432] - run: TRUE 1550s [00:52:30.432] - result: ‘FutureResult’ 1550s [00:52:30.432] resolved() for ‘SequentialFuture’ ... done 1550s [00:52:30.433] Future #1 1550s [00:52:30.433] signalConditionsASAP(SequentialFuture, pos=1) ... 1550s [00:52:30.433] - nx: 1 1550s [00:52:30.433] - relay: TRUE 1550s [00:52:30.433] - stdout: TRUE 1550s [00:52:30.433] - signal: TRUE 1550s [00:52:30.434] - resignal: FALSE 1550s [00:52:30.434] - force: TRUE 1550s [00:52:30.434] - relayed: [n=1] FALSE 1550s [00:52:30.434] - queued futures: [n=1] FALSE 1550s [00:52:30.434] - until=1 1550s [00:52:30.435] - relaying element #1 1550s [00:52:30.435] - relayed: [n=1] TRUE 1550s List of 1[00:52:30.435] - queued futures: [n=1] TRUE 1550s [00:52:30.435] signalConditionsASAP(SequentialFuture, pos=1) ... done 1550s [00:52:30.436] length: 0 (resolved future 1) 1550s [00:52:30.436] Relaying remaining futures 1550s [00:52:30.436] signalConditionsASAP(NULL, pos=0) ... 1550s [00:52:30.436] - nx: 1 1550s [00:52:30.437] - relay: TRUE 1550s [00:52:30.437] - stdout: TRUE 1550s [00:52:30.437] - signal: TRUE 1550s [00:52:30.437] - resignal: FALSE 1550s [00:52:30.437] - force: TRUE 1550s [00:52:30.437] - relayed: [n=1] TRUE 1550s [00:52:30.437] - queued futures: [n=1] TRUE 1550s - flush all 1550s [00:52:30.438] - relayed: [n=1] TRUE 1550s [00:52:30.438] - queued futures: [n=1] TRUE 1550s [00:52:30.438] signalConditionsASAP(NULL, pos=0) ... done 1550s [00:52:30.438] resolve() on list ... DONE 1550s [00:52:30.438] - Number of value chunks collected: 1 1550s [00:52:30.438] Resolving 1 futures (chunks) ... DONE 1550s [00:52:30.438] Reducing values from 1 chunks ... 1550s [00:52:30.438] - Number of values collected after concatenation: 4 1550s [00:52:30.439] - Number of values expected: 4 1550s [00:52:30.439] Reverse index remapping (attribute 'ordering'): [n = 4] 4, 3, 2, 1 1550s [00:52:30.439] Reducing values from 1 chunks ... DONE 1550s [00:52:30.439] future_lapply() ... DONE 1550s 1550s $ y:List of 4 1550s ..$ a: int [1:2] 0 0 1550s ..$ b: num [1:2] 0 0 1550s ..$ c: chr [1:2] "" "" 1550s ..$ c:List of 2 1550s .. ..$ : NULL 1550s .. ..$ : NULL 1550s [00:52:30.443] future_lapply() ... 1550s [00:52:30.444] Number of chunks: 1 1550s [00:52:30.444] Index remapping (attribute 'ordering'): [n = 4] 4, 3, 2, 1 1550s [00:52:30.445] getGlobalsAndPackagesXApply() ... 1550s [00:52:30.445] - future.globals: TRUE 1550s [00:52:30.445] getGlobalsAndPackages() ... 1550s [00:52:30.445] Searching for globals... 1550s [00:52:30.446] - globals found: [2] ‘FUN’, ‘.Internal’ 1550s [00:52:30.447] Searching for globals ... DONE 1550s [00:52:30.447] Resolving globals: FALSE 1550s [00:52:30.447] The total size of the 1 globals is 2.13 KiB (2184 bytes) 1550s [00:52:30.448] The total size of the 1 globals exported for future expression (‘FUN(length = 2L)’) is 2.13 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (2.13 KiB of class ‘function’) 1550s [00:52:30.448] - globals: [1] ‘FUN’ 1550s [00:52:30.448] 1550s [00:52:30.449] getGlobalsAndPackages() ... DONE 1550s [00:52:30.449] - globals found/used: [n=1] ‘FUN’ 1550s [00:52:30.449] - needed namespaces: [n=0] 1550s [00:52:30.449] Finding globals ... DONE 1550s [00:52:30.449] - use_args: TRUE 1550s [00:52:30.450] - Getting '...' globals ... 1550s [00:52:30.450] resolve() on list ... 1550s [00:52:30.451] recursive: 0 1550s [00:52:30.451] length: 1 1550s [00:52:30.451] elements: ‘...’ 1550s [00:52:30.451] length: 0 (resolved future 1) 1550s [00:52:30.451] resolve() on list ... DONE 1550s [00:52:30.451] - '...' content: [n=1] ‘length’ 1550s [00:52:30.452] List of 1 1550s [00:52:30.452] $ ...:List of 1 1550s [00:52:30.452] ..$ length: int 2 1550s [00:52:30.452] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1550s [00:52:30.452] - attr(*, "where")=List of 1 1550s [00:52:30.452] ..$ ...: 1550s [00:52:30.452] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1550s [00:52:30.452] - attr(*, "resolved")= logi TRUE 1550s [00:52:30.452] - attr(*, "total_size")= num NA 1550s [00:52:30.458] - Getting '...' globals ... DONE 1550s [00:52:30.459] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1550s [00:52:30.459] List of 2 1550s [00:52:30.459] $ ...future.FUN:function (mode = "logical", length = 0L) 1550s [00:52:30.459] $ ... :List of 1 1550s [00:52:30.459] ..$ length: int 2 1550s [00:52:30.459] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1550s [00:52:30.459] - attr(*, "where")=List of 2 1550s [00:52:30.459] ..$ ...future.FUN: 1550s [00:52:30.459] ..$ ... : 1550s [00:52:30.459] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1550s [00:52:30.459] - attr(*, "resolved")= logi FALSE 1550s [00:52:30.459] - attr(*, "total_size")= num 2240 1550s [00:52:30.464] Packages to be attached in all futures: [n=0] 1550s [00:52:30.465] getGlobalsAndPackagesXApply() ... DONE 1550s [00:52:30.465] Number of futures (= number of chunks): 1 1550s [00:52:30.466] Launching 1 futures (chunks) ... 1550s [00:52:30.466] Chunk #1 of 1 ... 1550s [00:52:30.466] - Finding globals in 'X' for chunk #1 ... 1550s [00:52:30.466] getGlobalsAndPackages() ... 1550s [00:52:30.466] Searching for globals... 1550s [00:52:30.467] 1550s [00:52:30.467] Searching for globals ... DONE 1550s [00:52:30.467] - globals: [0] 1550s [00:52:30.467] getGlobalsAndPackages() ... DONE 1550s [00:52:30.467] + additional globals found: [n=0] 1550s [00:52:30.467] + additional namespaces needed: [n=0] 1550s [00:52:30.467] - Finding globals in 'X' for chunk #1 ... DONE 1550s [00:52:30.467] - seeds: 1550s [00:52:30.468] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1550s [00:52:30.468] getGlobalsAndPackages() ... 1550s [00:52:30.468] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1550s [00:52:30.468] Resolving globals: FALSE 1550s [00:52:30.468] Tweak future expression to call with '...' arguments ... 1550s [00:52:30.468] { 1550s [00:52:30.468] do.call(function(...) { 1550s [00:52:30.468] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1550s [00:52:30.468] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1550s [00:52:30.468] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1550s [00:52:30.468] on.exit(options(oopts), add = TRUE) 1550s [00:52:30.468] } 1550s [00:52:30.468] { 1550s [00:52:30.468] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1550s [00:52:30.468] ...future.X_jj <- ...future.elements_ii[[jj]] 1550s [00:52:30.468] ...future.FUN(...future.X_jj, ...) 1550s [00:52:30.468] }) 1550s [00:52:30.468] } 1550s [00:52:30.468] }, args = future.call.arguments) 1550s [00:52:30.468] } 1550s [00:52:30.469] Tweak future expression to call with '...' arguments ... DONE 1550s [00:52:30.469] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1550s [00:52:30.469] 1550s [00:52:30.469] getGlobalsAndPackages() ... DONE 1550s [00:52:30.470] run() for ‘Future’ ... 1550s [00:52:30.470] - state: ‘created’ 1550s [00:52:30.470] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1550s [00:52:30.471] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1550s [00:52:30.471] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1550s [00:52:30.471] - Field: ‘label’ 1550s [00:52:30.471] - Field: ‘local’ 1550s [00:52:30.472] - Field: ‘owner’ 1550s [00:52:30.472] - Field: ‘envir’ 1550s [00:52:30.472] - Field: ‘packages’ 1550s [00:52:30.472] - Field: ‘gc’ 1550s [00:52:30.472] - Field: ‘conditions’ 1550s [00:52:30.472] - Field: ‘expr’ 1550s [00:52:30.472] - Field: ‘uuid’ 1550s [00:52:30.473] - Field: ‘seed’ 1550s [00:52:30.473] - Field: ‘version’ 1550s [00:52:30.473] - Field: ‘result’ 1550s [00:52:30.473] - Field: ‘asynchronous’ 1550s [00:52:30.473] - Field: ‘calls’ 1550s [00:52:30.473] - Field: ‘globals’ 1550s [00:52:30.473] - Field: ‘stdout’ 1550s [00:52:30.474] - Field: ‘earlySignal’ 1550s [00:52:30.474] - Field: ‘lazy’ 1550s [00:52:30.474] - Field: ‘state’ 1550s [00:52:30.474] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1550s [00:52:30.474] - Launch lazy future ... 1550s [00:52:30.475] Packages needed by the future expression (n = 0): 1550s [00:52:30.475] Packages needed by future strategies (n = 0): 1550s [00:52:30.475] { 1550s [00:52:30.475] { 1550s [00:52:30.475] { 1550s [00:52:30.475] ...future.startTime <- base::Sys.time() 1550s [00:52:30.475] { 1550s [00:52:30.475] { 1550s [00:52:30.475] { 1550s [00:52:30.475] base::local({ 1550s [00:52:30.475] has_future <- base::requireNamespace("future", 1550s [00:52:30.475] quietly = TRUE) 1550s [00:52:30.475] if (has_future) { 1550s [00:52:30.475] ns <- base::getNamespace("future") 1550s [00:52:30.475] version <- ns[[".package"]][["version"]] 1550s [00:52:30.475] if (is.null(version)) 1550s [00:52:30.475] version <- utils::packageVersion("future") 1550s [00:52:30.475] } 1550s [00:52:30.475] else { 1550s [00:52:30.475] version <- NULL 1550s [00:52:30.475] } 1550s [00:52:30.475] if (!has_future || version < "1.8.0") { 1550s [00:52:30.475] info <- base::c(r_version = base::gsub("R version ", 1550s [00:52:30.475] "", base::R.version$version.string), 1550s [00:52:30.475] platform = base::sprintf("%s (%s-bit)", 1550s [00:52:30.475] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1550s [00:52:30.475] os = base::paste(base::Sys.info()[base::c("sysname", 1550s [00:52:30.475] "release", "version")], collapse = " "), 1550s [00:52:30.475] hostname = base::Sys.info()[["nodename"]]) 1550s [00:52:30.475] info <- base::sprintf("%s: %s", base::names(info), 1550s [00:52:30.475] info) 1550s [00:52:30.475] info <- base::paste(info, collapse = "; ") 1550s [00:52:30.475] if (!has_future) { 1550s [00:52:30.475] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1550s [00:52:30.475] info) 1550s [00:52:30.475] } 1550s [00:52:30.475] else { 1550s [00:52:30.475] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1550s [00:52:30.475] info, version) 1550s [00:52:30.475] } 1550s [00:52:30.475] base::stop(msg) 1550s [00:52:30.475] } 1550s [00:52:30.475] }) 1550s [00:52:30.475] } 1550s [00:52:30.475] options(future.plan = NULL) 1550s [00:52:30.475] Sys.unsetenv("R_FUTURE_PLAN") 1550s [00:52:30.475] future::plan("default", .cleanup = FALSE, .init = FALSE) 1550s [00:52:30.475] } 1550s [00:52:30.475] ...future.workdir <- getwd() 1550s [00:52:30.475] } 1550s [00:52:30.475] ...future.oldOptions <- base::as.list(base::.Options) 1550s [00:52:30.475] ...future.oldEnvVars <- base::Sys.getenv() 1550s [00:52:30.475] } 1550s [00:52:30.475] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1550s [00:52:30.475] future.globals.maxSize = NULL, future.globals.method = NULL, 1550s [00:52:30.475] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1550s [00:52:30.475] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1550s [00:52:30.475] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1550s [00:52:30.475] future.stdout.windows.reencode = NULL, width = 80L) 1550s [00:52:30.475] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1550s [00:52:30.475] base::names(...future.oldOptions)) 1550s [00:52:30.475] } 1550s [00:52:30.475] if (FALSE) { 1550s [00:52:30.475] } 1550s [00:52:30.475] else { 1550s [00:52:30.475] if (TRUE) { 1550s [00:52:30.475] ...future.stdout <- base::rawConnection(base::raw(0L), 1550s [00:52:30.475] open = "w") 1550s [00:52:30.475] } 1550s [00:52:30.475] else { 1550s [00:52:30.475] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1550s [00:52:30.475] windows = "NUL", "/dev/null"), open = "w") 1550s [00:52:30.475] } 1550s [00:52:30.475] base::sink(...future.stdout, type = "output", split = FALSE) 1550s [00:52:30.475] base::on.exit(if (!base::is.null(...future.stdout)) { 1550s [00:52:30.475] base::sink(type = "output", split = FALSE) 1550s [00:52:30.475] base::close(...future.stdout) 1550s [00:52:30.475] }, add = TRUE) 1550s [00:52:30.475] } 1550s [00:52:30.475] ...future.frame <- base::sys.nframe() 1550s [00:52:30.475] ...future.conditions <- base::list() 1550s [00:52:30.475] ...future.rng <- base::globalenv()$.Random.seed 1550s [00:52:30.475] if (FALSE) { 1550s [00:52:30.475] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1550s [00:52:30.475] "...future.value", "...future.globalenv.names", ".Random.seed") 1550s [00:52:30.475] } 1550s [00:52:30.475] ...future.result <- base::tryCatch({ 1550s [00:52:30.475] base::withCallingHandlers({ 1550s [00:52:30.475] ...future.value <- base::withVisible(base::local({ 1550s [00:52:30.475] do.call(function(...) { 1550s [00:52:30.475] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1550s [00:52:30.475] if (!identical(...future.globals.maxSize.org, 1550s [00:52:30.475] ...future.globals.maxSize)) { 1550s [00:52:30.475] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1550s [00:52:30.475] on.exit(options(oopts), add = TRUE) 1550s [00:52:30.475] } 1550s [00:52:30.475] { 1550s [00:52:30.475] lapply(seq_along(...future.elements_ii), 1550s [00:52:30.475] FUN = function(jj) { 1550s [00:52:30.475] ...future.X_jj <- ...future.elements_ii[[jj]] 1550s [00:52:30.475] ...future.FUN(...future.X_jj, ...) 1550s [00:52:30.475] }) 1550s [00:52:30.475] } 1550s [00:52:30.475] }, args = future.call.arguments) 1550s [00:52:30.475] })) 1550s [00:52:30.475] future::FutureResult(value = ...future.value$value, 1550s [00:52:30.475] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1550s [00:52:30.475] ...future.rng), globalenv = if (FALSE) 1550s [00:52:30.475] list(added = base::setdiff(base::names(base::.GlobalEnv), 1550s [00:52:30.475] ...future.globalenv.names)) 1550s [00:52:30.475] else NULL, started = ...future.startTime, version = "1.8") 1550s [00:52:30.475] }, condition = base::local({ 1550s [00:52:30.475] c <- base::c 1550s [00:52:30.475] inherits <- base::inherits 1550s [00:52:30.475] invokeRestart <- base::invokeRestart 1550s [00:52:30.475] length <- base::length 1550s [00:52:30.475] list <- base::list 1550s [00:52:30.475] seq.int <- base::seq.int 1550s [00:52:30.475] signalCondition <- base::signalCondition 1550s [00:52:30.475] sys.calls <- base::sys.calls 1550s [00:52:30.475] `[[` <- base::`[[` 1550s [00:52:30.475] `+` <- base::`+` 1550s [00:52:30.475] `<<-` <- base::`<<-` 1550s [00:52:30.475] sysCalls <- function(calls = sys.calls(), from = 1L) { 1550s [00:52:30.475] calls[seq.int(from = from + 12L, to = length(calls) - 1550s [00:52:30.475] 3L)] 1550s [00:52:30.475] } 1550s [00:52:30.475] function(cond) { 1550s [00:52:30.475] is_error <- inherits(cond, "error") 1550s [00:52:30.475] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1550s [00:52:30.475] NULL) 1550s [00:52:30.475] if (is_error) { 1550s [00:52:30.475] sessionInformation <- function() { 1550s [00:52:30.475] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1550s [00:52:30.475] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1550s [00:52:30.475] search = base::search(), system = base::Sys.info()) 1550s [00:52:30.475] } 1550s [00:52:30.475] ...future.conditions[[length(...future.conditions) + 1550s [00:52:30.475] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1550s [00:52:30.475] cond$call), session = sessionInformation(), 1550s [00:52:30.475] timestamp = base::Sys.time(), signaled = 0L) 1550s [00:52:30.475] signalCondition(cond) 1550s [00:52:30.475] } 1550s [00:52:30.475] else if (!ignore && TRUE && inherits(cond, c("condition", 1550s [00:52:30.475] "immediateCondition"))) { 1550s [00:52:30.475] signal <- TRUE && inherits(cond, "immediateCondition") 1550s [00:52:30.475] ...future.conditions[[length(...future.conditions) + 1550s [00:52:30.475] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1550s [00:52:30.475] if (TRUE && !signal) { 1550s [00:52:30.475] muffleCondition <- function (cond, pattern = "^muffle") 1550s [00:52:30.475] { 1550s [00:52:30.475] inherits <- base::inherits 1550s [00:52:30.475] invokeRestart <- base::invokeRestart 1550s [00:52:30.475] is.null <- base::is.null 1550s [00:52:30.475] muffled <- FALSE 1550s [00:52:30.475] if (inherits(cond, "message")) { 1550s [00:52:30.475] muffled <- grepl(pattern, "muffleMessage") 1550s [00:52:30.475] if (muffled) 1550s [00:52:30.475] invokeRestart("muffleMessage") 1550s [00:52:30.475] } 1550s [00:52:30.475] else if (inherits(cond, "warning")) { 1550s [00:52:30.475] muffled <- grepl(pattern, "muffleWarning") 1550s [00:52:30.475] if (muffled) 1550s [00:52:30.475] invokeRestart("muffleWarning") 1550s [00:52:30.475] } 1550s [00:52:30.475] else if (inherits(cond, "condition")) { 1550s [00:52:30.475] if (!is.null(pattern)) { 1550s [00:52:30.475] computeRestarts <- base::computeRestarts 1550s [00:52:30.475] grepl <- base::grepl 1550s [00:52:30.475] restarts <- computeRestarts(cond) 1550s [00:52:30.475] for (restart in restarts) { 1550s [00:52:30.475] name <- restart$name 1550s [00:52:30.475] if (is.null(name)) 1550s [00:52:30.475] next 1550s [00:52:30.475] if (!grepl(pattern, name)) 1550s [00:52:30.475] next 1550s [00:52:30.475] invokeRestart(restart) 1550s [00:52:30.475] muffled <- TRUE 1550s [00:52:30.475] break 1550s [00:52:30.475] } 1550s [00:52:30.475] } 1550s [00:52:30.475] } 1550s [00:52:30.475] invisible(muffled) 1550s [00:52:30.475] } 1550s [00:52:30.475] muffleCondition(cond, pattern = "^muffle") 1550s [00:52:30.475] } 1550s [00:52:30.475] } 1550s [00:52:30.475] else { 1550s [00:52:30.475] if (TRUE) { 1550s [00:52:30.475] muffleCondition <- function (cond, pattern = "^muffle") 1550s [00:52:30.475] { 1550s [00:52:30.475] inherits <- base::inherits 1550s [00:52:30.475] invokeRestart <- base::invokeRestart 1550s [00:52:30.475] is.null <- base::is.null 1550s [00:52:30.475] muffled <- FALSE 1550s [00:52:30.475] if (inherits(cond, "message")) { 1550s [00:52:30.475] muffled <- grepl(pattern, "muffleMessage") 1550s [00:52:30.475] if (muffled) 1550s [00:52:30.475] invokeRestart("muffleMessage") 1550s [00:52:30.475] } 1550s [00:52:30.475] else if (inherits(cond, "warning")) { 1550s [00:52:30.475] muffled <- grepl(pattern, "muffleWarning") 1550s [00:52:30.475] if (muffled) 1550s [00:52:30.475] invokeRestart("muffleWarning") 1550s [00:52:30.475] } 1550s [00:52:30.475] else if (inherits(cond, "condition")) { 1550s [00:52:30.475] if (!is.null(pattern)) { 1550s [00:52:30.475] computeRestarts <- base::computeRestarts 1550s [00:52:30.475] grepl <- base::grepl 1550s [00:52:30.475] restarts <- computeRestarts(cond) 1550s [00:52:30.475] for (restart in restarts) { 1550s [00:52:30.475] name <- restart$name 1550s [00:52:30.475] if (is.null(name)) 1550s [00:52:30.475] next 1550s [00:52:30.475] if (!grepl(pattern, name)) 1550s [00:52:30.475] next 1550s [00:52:30.475] invokeRestart(restart) 1550s [00:52:30.475] muffled <- TRUE 1550s [00:52:30.475] break 1550s [00:52:30.475] } 1550s [00:52:30.475] } 1550s [00:52:30.475] } 1550s [00:52:30.475] invisible(muffled) 1550s [00:52:30.475] } 1550s [00:52:30.475] muffleCondition(cond, pattern = "^muffle") 1550s [00:52:30.475] } 1550s [00:52:30.475] } 1550s [00:52:30.475] } 1550s [00:52:30.475] })) 1550s [00:52:30.475] }, error = function(ex) { 1550s [00:52:30.475] base::structure(base::list(value = NULL, visible = NULL, 1550s [00:52:30.475] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1550s [00:52:30.475] ...future.rng), started = ...future.startTime, 1550s [00:52:30.475] finished = Sys.time(), session_uuid = NA_character_, 1550s [00:52:30.475] version = "1.8"), class = "FutureResult") 1550s [00:52:30.475] }, finally = { 1550s [00:52:30.475] if (!identical(...future.workdir, getwd())) 1550s [00:52:30.475] setwd(...future.workdir) 1550s [00:52:30.475] { 1550s [00:52:30.475] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1550s [00:52:30.475] ...future.oldOptions$nwarnings <- NULL 1550s [00:52:30.475] } 1550s [00:52:30.475] base::options(...future.oldOptions) 1550s [00:52:30.475] if (.Platform$OS.type == "windows") { 1550s [00:52:30.475] old_names <- names(...future.oldEnvVars) 1550s [00:52:30.475] envs <- base::Sys.getenv() 1550s [00:52:30.475] names <- names(envs) 1550s [00:52:30.475] common <- intersect(names, old_names) 1550s [00:52:30.475] added <- setdiff(names, old_names) 1550s [00:52:30.475] removed <- setdiff(old_names, names) 1550s [00:52:30.475] changed <- common[...future.oldEnvVars[common] != 1550s [00:52:30.475] envs[common]] 1550s [00:52:30.475] NAMES <- toupper(changed) 1550s [00:52:30.475] args <- list() 1550s [00:52:30.475] for (kk in seq_along(NAMES)) { 1550s [00:52:30.475] name <- changed[[kk]] 1550s [00:52:30.475] NAME <- NAMES[[kk]] 1550s [00:52:30.475] if (name != NAME && is.element(NAME, old_names)) 1550s [00:52:30.475] next 1550s [00:52:30.475] args[[name]] <- ...future.oldEnvVars[[name]] 1550s [00:52:30.475] } 1550s [00:52:30.475] NAMES <- toupper(added) 1550s [00:52:30.475] for (kk in seq_along(NAMES)) { 1550s [00:52:30.475] name <- added[[kk]] 1550s [00:52:30.475] NAME <- NAMES[[kk]] 1550s [00:52:30.475] if (name != NAME && is.element(NAME, old_names)) 1550s [00:52:30.475] next 1550s [00:52:30.475] args[[name]] <- "" 1550s [00:52:30.475] } 1550s [00:52:30.475] NAMES <- toupper(removed) 1550s [00:52:30.475] for (kk in seq_along(NAMES)) { 1550s [00:52:30.475] name <- removed[[kk]] 1550s [00:52:30.475] NAME <- NAMES[[kk]] 1550s [00:52:30.475] if (name != NAME && is.element(NAME, old_names)) 1550s [00:52:30.475] next 1550s [00:52:30.475] args[[name]] <- ...future.oldEnvVars[[name]] 1550s [00:52:30.475] } 1550s [00:52:30.475] if (length(args) > 0) 1550s [00:52:30.475] base::do.call(base::Sys.setenv, args = args) 1550s [00:52:30.475] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1550s [00:52:30.475] } 1550s [00:52:30.475] else { 1550s [00:52:30.475] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1550s [00:52:30.475] } 1550s [00:52:30.475] { 1550s [00:52:30.475] if (base::length(...future.futureOptionsAdded) > 1550s [00:52:30.475] 0L) { 1550s [00:52:30.475] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1550s [00:52:30.475] base::names(opts) <- ...future.futureOptionsAdded 1550s [00:52:30.475] base::options(opts) 1550s [00:52:30.475] } 1550s [00:52:30.475] { 1550s [00:52:30.475] { 1550s [00:52:30.475] NULL 1550s [00:52:30.475] RNGkind("Mersenne-Twister") 1550s [00:52:30.475] base::rm(list = ".Random.seed", envir = base::globalenv(), 1550s [00:52:30.475] inherits = FALSE) 1550s [00:52:30.475] } 1550s [00:52:30.475] options(future.plan = NULL) 1550s [00:52:30.475] if (is.na(NA_character_)) 1550s [00:52:30.475] Sys.unsetenv("R_FUTURE_PLAN") 1550s [00:52:30.475] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1550s [00:52:30.475] future::plan(list(function (..., envir = parent.frame()) 1550s [00:52:30.475] { 1550s [00:52:30.475] future <- SequentialFuture(..., envir = envir) 1550s [00:52:30.475] if (!future$lazy) 1550s [00:52:30.475] future <- run(future) 1550s [00:52:30.475] invisible(future) 1550s [00:52:30.475] }), .cleanup = FALSE, .init = FALSE) 1550s [00:52:30.475] } 1550s [00:52:30.475] } 1550s [00:52:30.475] } 1550s [00:52:30.475] }) 1550s [00:52:30.475] if (TRUE) { 1550s [00:52:30.475] base::sink(type = "output", split = FALSE) 1550s [00:52:30.475] if (TRUE) { 1550s [00:52:30.475] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1550s [00:52:30.475] } 1550s [00:52:30.475] else { 1550s [00:52:30.475] ...future.result["stdout"] <- base::list(NULL) 1550s [00:52:30.475] } 1550s [00:52:30.475] base::close(...future.stdout) 1550s [00:52:30.475] ...future.stdout <- NULL 1550s [00:52:30.475] } 1550s [00:52:30.475] ...future.result$conditions <- ...future.conditions 1550s [00:52:30.475] ...future.result$finished <- base::Sys.time() 1550s [00:52:30.475] ...future.result 1550s [00:52:30.475] } 1550s [00:52:30.480] assign_globals() ... 1550s [00:52:30.480] List of 5 1550s [00:52:30.480] $ ...future.FUN :function (mode = "logical", length = 0L) 1550s [00:52:30.480] $ future.call.arguments :List of 1 1550s [00:52:30.480] ..$ length: int 2 1550s [00:52:30.480] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1550s [00:52:30.480] $ ...future.elements_ii :List of 4 1550s [00:52:30.480] ..$ c: chr "list" 1550s [00:52:30.480] ..$ c: chr "character" 1550s [00:52:30.480] ..$ b: chr "numeric" 1550s [00:52:30.480] ..$ a: chr "integer" 1550s [00:52:30.480] $ ...future.seeds_ii : NULL 1550s [00:52:30.480] $ ...future.globals.maxSize: NULL 1550s [00:52:30.480] - attr(*, "where")=List of 5 1550s [00:52:30.480] ..$ ...future.FUN : 1550s [00:52:30.480] ..$ future.call.arguments : 1550s [00:52:30.480] ..$ ...future.elements_ii : 1550s [00:52:30.480] ..$ ...future.seeds_ii : 1550s [00:52:30.480] ..$ ...future.globals.maxSize: 1550s [00:52:30.480] - attr(*, "resolved")= logi FALSE 1550s [00:52:30.480] - attr(*, "total_size")= num 2240 1550s [00:52:30.480] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1550s [00:52:30.480] - attr(*, "already-done")= logi TRUE 1550s [00:52:30.488] - copied ‘...future.FUN’ to environment 1550s [00:52:30.488] - copied ‘future.call.arguments’ to environment 1550s [00:52:30.488] - copied ‘...future.elements_ii’ to environment 1550s [00:52:30.488] - copied ‘...future.seeds_ii’ to environment 1550s [00:52:30.488] - copied ‘...future.globals.maxSize’ to environment 1550s [00:52:30.489] assign_globals() ... done 1550s [00:52:30.489] plan(): Setting new future strategy stack: 1550s [00:52:30.489] List of future strategies: 1550s [00:52:30.489] 1. sequential: 1550s [00:52:30.489] - args: function (..., envir = parent.frame()) 1550s [00:52:30.489] - tweaked: FALSE 1550s [00:52:30.489] - call: NULL 1550s [00:52:30.490] plan(): nbrOfWorkers() = 1 1550s [00:52:30.496] plan(): Setting new future strategy stack: 1550s [00:52:30.496] List of future strategies: 1550s [00:52:30.496] 1. sequential: 1550s [00:52:30.496] - args: function (..., envir = parent.frame()) 1550s [00:52:30.496] - tweaked: FALSE 1550s [00:52:30.496] - call: plan(strategy) 1550s [00:52:30.497] plan(): nbrOfWorkers() = 1 1550s [00:52:30.497] SequentialFuture started (and completed) 1550s [00:52:30.498] - Launch lazy future ... done 1550s [00:52:30.498] run() for ‘SequentialFuture’ ... done 1550s [00:52:30.498] Created future: 1550s [00:52:30.498] SequentialFuture: 1550s [00:52:30.498] Label: ‘future_lapply-1’ 1550s [00:52:30.498] Expression: 1550s [00:52:30.498] { 1550s [00:52:30.498] do.call(function(...) { 1550s [00:52:30.498] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1550s [00:52:30.498] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1550s [00:52:30.498] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1550s [00:52:30.498] on.exit(options(oopts), add = TRUE) 1550s [00:52:30.498] } 1550s [00:52:30.498] { 1550s [00:52:30.498] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1550s [00:52:30.498] ...future.X_jj <- ...future.elements_ii[[jj]] 1550s [00:52:30.498] ...future.FUN(...future.X_jj, ...) 1550s [00:52:30.498] }) 1550s [00:52:30.498] } 1550s [00:52:30.498] }, args = future.call.arguments) 1550s [00:52:30.498] } 1550s [00:52:30.498] Lazy evaluation: FALSE 1550s [00:52:30.498] Asynchronous evaluation: FALSE 1550s [00:52:30.498] Local evaluation: TRUE 1550s [00:52:30.498] Environment: R_GlobalEnv 1550s [00:52:30.498] Capture standard output: TRUE 1550s [00:52:30.498] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1550s [00:52:30.498] Globals: 5 objects totaling 2.63 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 456 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1550s [00:52:30.498] Packages: 1550s [00:52:30.498] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1550s [00:52:30.498] Resolved: TRUE 1550s [00:52:30.498] Value: 240 bytes of class ‘list’ 1550s [00:52:30.498] Early signaling: FALSE 1550s [00:52:30.498] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1550s [00:52:30.498] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1550s [00:52:30.501] Chunk #1 of 1 ... DONE 1550s [00:52:30.501] Launching 1 futures (chunks) ... DONE 1550s [00:52:30.502] Resolving 1 futures (chunks) ... 1550s [00:52:30.502] resolve() on list ... 1550s [00:52:30.502] recursive: 0 1550s [00:52:30.502] length: 1 1550s [00:52:30.502] 1550s [00:52:30.503] resolved() for ‘SequentialFuture’ ... 1550s [00:52:30.503] - state: ‘finished’ 1550s [00:52:30.503] - run: TRUE 1550s [00:52:30.503] - result: ‘FutureResult’ 1550s [00:52:30.503] resolved() for ‘SequentialFuture’ ... done 1550s [00:52:30.503] Future #1 1550s [00:52:30.504] signalConditionsASAP(SequentialFuture, pos=1) ... 1550s [00:52:30.504] - nx: 1 1550s [00:52:30.504] - relay: TRUE 1550s [00:52:30.504] - stdout: TRUE 1550s [00:52:30.504] - signal: TRUE 1550s [00:52:30.504] - resignal: FALSE 1550s [00:52:30.505] - force: TRUE 1550s [00:52:30.505] - relayed: [n=1] FALSE 1550s [00:52:30.505] - queued futures: [n=1] FALSE 1550s [00:52:30.505] - until=1 1550s [00:52:30.505] - relaying element #1 1550s [00:52:30.506] - relayed: [n=1] TRUE 1550s [00:52:30.506] - queued futures: [n=1] TRUE 1550s [00:52:30.506] signalConditionsASAP(SequentialFuture, pos=1) ... done 1550s [00:52:30.506] length: 0 (resolved future 1) 1550s [00:52:30.506] Relaying remaining futures 1550s [00:52:30.506] signalConditionsASAP(NULL, pos=0) ... 1550s [00:52:30.506] - nx: 1 1550s [00:52:30.507] - relay: TRUE 1550s [00:52:30.507] - stdout: TRUE 1550s [00:52:30.507] - signal: TRUE 1550s [00:52:30.507] - resignal: FALSE 1550s [00:52:30.507] - force: TRUE 1550s [00:52:30.507] - relayed: [n=1] TRUE 1550s [00:52:30.507] - queued futures: [n=1] TRUE 1550s - flush all 1550s [00:52:30.508] - relayed: [n=1] TRUE 1550s [00:52:30.508] - queued futures: [n=1] TRUE 1550s [00:52:30.508] signalConditionsASAP(NULL, pos=0) ... done 1550s [00:52:30.508] resolve() on list ... DONE 1550s [00:52:30.508] - Number of value chunks collected: 1 1550s [00:52:30.509] Resolving 1 futures (chunks) ... DONE 1550s [00:52:30.509] Reducing values from 1 chunks ... 1550s [00:52:30.509] - Number of values collected after concatenation: 4 1550s [00:52:30.509] - Number of values expected: 4 1550s [00:52:30.509] Reverse index remapping (attribute 'ordering'): [n = 4] 4, 3, 2, 1 1550s [00:52:30.510] Reducing values from 1 chunks ... DONE 1550s [00:52:30.510] future_lapply() ... DONE 1550s List of 1 1550s $ y:List of 4 1550s ..$ a: int [1:2] 0 0 1550s ..$ b: num [1:2] 0 0 1550s ..$ c: chr [1:2] "" "" 1550s ..$ c:List of 2 1550s .. ..$ : NULL 1550s .. ..$ : NULL 1550s - future_lapply(x, FUN = base::vector, ...) ... 1550s [00:52:30.517] future_lapply() ... 1550s [00:52:30.517] Number of chunks: 1 1550s [00:52:30.517] Index remapping (attribute 'ordering'): [n = 4] 4, 3, 2, 1 1550s [00:52:30.518] getGlobalsAndPackagesXApply() ... 1550s [00:52:30.518] - future.globals: TRUE 1550s [00:52:30.518] getGlobalsAndPackages() ... 1550s [00:52:30.518] Searching for globals... 1550s [00:52:30.520] - globals found: [2] ‘FUN’, ‘.Internal’ 1550s [00:52:30.520] Searching for globals ... DONE 1550s [00:52:30.520] Resolving globals: FALSE 1550s [00:52:30.521] The total size of the 1 globals is 2.13 KiB (2184 bytes) 1550s [00:52:30.522] The total size of the 1 globals exported for future expression (‘FUN(length = 2L)’) is 2.13 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (2.13 KiB of class ‘function’) 1550s [00:52:30.523] - globals: [1] ‘FUN’ 1550s [00:52:30.523] 1550s [00:52:30.523] getGlobalsAndPackages() ... DONE 1550s [00:52:30.524] - globals found/used: [n=1] ‘FUN’ 1550s [00:52:30.524] - needed namespaces: [n=0] 1550s [00:52:30.524] Finding globals ... DONE 1550s [00:52:30.524] - use_args: TRUE 1550s [00:52:30.524] - Getting '...' globals ... 1550s [00:52:30.525] resolve() on list ... 1550s [00:52:30.525] recursive: 0 1550s [00:52:30.525] length: 1 1550s [00:52:30.525] elements: ‘...’ 1550s [00:52:30.526] length: 0 (resolved future 1) 1550s [00:52:30.526] resolve() on list ... DONE 1550s [00:52:30.526] - '...' content: [n=1] ‘length’ 1550s [00:52:30.526] List of 1 1550s [00:52:30.526] $ ...:List of 1 1550s [00:52:30.526] ..$ length: int 2 1550s [00:52:30.526] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1550s [00:52:30.526] - attr(*, "where")=List of 1 1550s [00:52:30.526] ..$ ...: 1550s [00:52:30.526] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1550s [00:52:30.526] - attr(*, "resolved")= logi TRUE 1550s [00:52:30.526] - attr(*, "total_size")= num NA 1550s [00:52:30.530] - Getting '...' globals ... DONE 1550s [00:52:30.531] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1550s [00:52:30.531] List of 2 1550s [00:52:30.531] $ ...future.FUN:function (mode = "logical", length = 0L) 1550s [00:52:30.531] $ ... :List of 1 1550s [00:52:30.531] ..$ length: int 2 1550s [00:52:30.531] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1550s [00:52:30.531] - attr(*, "where")=List of 2 1550s [00:52:30.531] ..$ ...future.FUN: 1550s [00:52:30.531] ..$ ... : 1550s [00:52:30.531] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1550s [00:52:30.531] - attr(*, "resolved")= logi FALSE 1550s [00:52:30.531] - attr(*, "total_size")= num 2240 1550s [00:52:30.536] Packages to be attached in all futures: [n=0] 1550s [00:52:30.537] getGlobalsAndPackagesXApply() ... DONE 1550s [00:52:30.537] Number of futures (= number of chunks): 1 1550s [00:52:30.537] Launching 1 futures (chunks) ... 1550s [00:52:30.537] Chunk #1 of 1 ... 1550s [00:52:30.538] - Finding globals in 'X' for chunk #1 ... 1550s [00:52:30.538] getGlobalsAndPackages() ... 1550s [00:52:30.538] Searching for globals... 1550s [00:52:30.539] 1550s [00:52:30.540] Searching for globals ... DONE 1550s [00:52:30.540] - globals: [0] 1550s [00:52:30.540] getGlobalsAndPackages() ... DONE 1550s [00:52:30.543] + additional globals found: [n=0] 1550s [00:52:30.544] + additional namespaces needed: [n=0] 1550s [00:52:30.544] - Finding globals in 'X' for chunk #1 ... DONE 1550s [00:52:30.545] - seeds: 1550s [00:52:30.545] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1550s [00:52:30.545] getGlobalsAndPackages() ... 1550s [00:52:30.545] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1550s [00:52:30.545] Resolving globals: FALSE 1550s [00:52:30.546] Tweak future expression to call with '...' arguments ... 1550s [00:52:30.546] { 1550s [00:52:30.546] do.call(function(...) { 1550s [00:52:30.546] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1550s [00:52:30.546] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1550s [00:52:30.546] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1550s [00:52:30.546] on.exit(options(oopts), add = TRUE) 1550s [00:52:30.546] } 1550s [00:52:30.546] { 1550s [00:52:30.546] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1550s [00:52:30.546] ...future.X_jj <- ...future.elements_ii[[jj]] 1550s [00:52:30.546] ...future.FUN(...future.X_jj, ...) 1550s [00:52:30.546] }) 1550s [00:52:30.546] } 1550s [00:52:30.546] }, args = future.call.arguments) 1550s [00:52:30.546] } 1550s [00:52:30.546] Tweak future expression to call with '...' arguments ... DONE 1550s [00:52:30.547] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1550s [00:52:30.547] 1550s [00:52:30.548] getGlobalsAndPackages() ... DONE 1550s [00:52:30.549] run() for ‘Future’ ... 1550s [00:52:30.549] - state: ‘created’ 1550s [00:52:30.549] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1550s [00:52:30.550] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1550s [00:52:30.550] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1550s [00:52:30.551] - Field: ‘label’ 1550s [00:52:30.551] - Field: ‘local’ 1550s [00:52:30.551] - Field: ‘owner’ 1550s [00:52:30.551] - Field: ‘envir’ 1550s [00:52:30.551] - Field: ‘packages’ 1550s [00:52:30.552] - Field: ‘gc’ 1550s [00:52:30.552] - Field: ‘conditions’ 1550s [00:52:30.552] - Field: ‘expr’ 1550s [00:52:30.552] - Field: ‘uuid’ 1550s [00:52:30.553] - Field: ‘seed’ 1550s [00:52:30.553] - Field: ‘version’ 1550s [00:52:30.553] - Field: ‘result’ 1550s [00:52:30.553] - Field: ‘asynchronous’ 1550s [00:52:30.553] - Field: ‘calls’ 1550s [00:52:30.553] - Field: ‘globals’ 1550s [00:52:30.553] - Field: ‘stdout’ 1550s [00:52:30.554] - Field: ‘earlySignal’ 1550s [00:52:30.554] - Field: ‘lazy’ 1550s [00:52:30.554] - Field: ‘state’ 1550s [00:52:30.554] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1550s [00:52:30.554] - Launch lazy future ... 1550s [00:52:30.555] Packages needed by the future expression (n = 0): 1550s [00:52:30.555] Packages needed by future strategies (n = 0): 1550s [00:52:30.555] { 1550s [00:52:30.555] { 1550s [00:52:30.555] { 1550s [00:52:30.555] ...future.startTime <- base::Sys.time() 1550s [00:52:30.555] { 1550s [00:52:30.555] { 1550s [00:52:30.555] { 1550s [00:52:30.555] base::local({ 1550s [00:52:30.555] has_future <- base::requireNamespace("future", 1550s [00:52:30.555] quietly = TRUE) 1550s [00:52:30.555] if (has_future) { 1550s [00:52:30.555] ns <- base::getNamespace("future") 1550s [00:52:30.555] version <- ns[[".package"]][["version"]] 1550s [00:52:30.555] if (is.null(version)) 1550s [00:52:30.555] version <- utils::packageVersion("future") 1550s [00:52:30.555] } 1550s [00:52:30.555] else { 1550s [00:52:30.555] version <- NULL 1550s [00:52:30.555] } 1550s [00:52:30.555] if (!has_future || version < "1.8.0") { 1550s [00:52:30.555] info <- base::c(r_version = base::gsub("R version ", 1550s [00:52:30.555] "", base::R.version$version.string), 1550s [00:52:30.555] platform = base::sprintf("%s (%s-bit)", 1550s [00:52:30.555] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1550s [00:52:30.555] os = base::paste(base::Sys.info()[base::c("sysname", 1550s [00:52:30.555] "release", "version")], collapse = " "), 1550s [00:52:30.555] hostname = base::Sys.info()[["nodename"]]) 1550s [00:52:30.555] info <- base::sprintf("%s: %s", base::names(info), 1550s [00:52:30.555] info) 1550s [00:52:30.555] info <- base::paste(info, collapse = "; ") 1550s [00:52:30.555] if (!has_future) { 1550s [00:52:30.555] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1550s [00:52:30.555] info) 1550s [00:52:30.555] } 1550s [00:52:30.555] else { 1550s [00:52:30.555] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1550s [00:52:30.555] info, version) 1550s [00:52:30.555] } 1550s [00:52:30.555] base::stop(msg) 1550s [00:52:30.555] } 1550s [00:52:30.555] }) 1550s [00:52:30.555] } 1550s [00:52:30.555] options(future.plan = NULL) 1550s [00:52:30.555] Sys.unsetenv("R_FUTURE_PLAN") 1550s [00:52:30.555] future::plan("default", .cleanup = FALSE, .init = FALSE) 1550s [00:52:30.555] } 1550s [00:52:30.555] ...future.workdir <- getwd() 1550s [00:52:30.555] } 1550s [00:52:30.555] ...future.oldOptions <- base::as.list(base::.Options) 1550s [00:52:30.555] ...future.oldEnvVars <- base::Sys.getenv() 1550s [00:52:30.555] } 1550s [00:52:30.555] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1550s [00:52:30.555] future.globals.maxSize = NULL, future.globals.method = NULL, 1550s [00:52:30.555] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1550s [00:52:30.555] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1550s [00:52:30.555] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1550s [00:52:30.555] future.stdout.windows.reencode = NULL, width = 80L) 1550s [00:52:30.555] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1550s [00:52:30.555] base::names(...future.oldOptions)) 1550s [00:52:30.555] } 1550s [00:52:30.555] if (FALSE) { 1550s [00:52:30.555] } 1550s [00:52:30.555] else { 1550s [00:52:30.555] if (TRUE) { 1550s [00:52:30.555] ...future.stdout <- base::rawConnection(base::raw(0L), 1550s [00:52:30.555] open = "w") 1550s [00:52:30.555] } 1550s [00:52:30.555] else { 1550s [00:52:30.555] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1550s [00:52:30.555] windows = "NUL", "/dev/null"), open = "w") 1550s [00:52:30.555] } 1550s [00:52:30.555] base::sink(...future.stdout, type = "output", split = FALSE) 1550s [00:52:30.555] base::on.exit(if (!base::is.null(...future.stdout)) { 1550s [00:52:30.555] base::sink(type = "output", split = FALSE) 1550s [00:52:30.555] base::close(...future.stdout) 1550s [00:52:30.555] }, add = TRUE) 1550s [00:52:30.555] } 1550s [00:52:30.555] ...future.frame <- base::sys.nframe() 1550s [00:52:30.555] ...future.conditions <- base::list() 1550s [00:52:30.555] ...future.rng <- base::globalenv()$.Random.seed 1550s [00:52:30.555] if (FALSE) { 1550s [00:52:30.555] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1550s [00:52:30.555] "...future.value", "...future.globalenv.names", ".Random.seed") 1550s [00:52:30.555] } 1550s [00:52:30.555] ...future.result <- base::tryCatch({ 1550s [00:52:30.555] base::withCallingHandlers({ 1550s [00:52:30.555] ...future.value <- base::withVisible(base::local({ 1550s [00:52:30.555] do.call(function(...) { 1550s [00:52:30.555] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1550s [00:52:30.555] if (!identical(...future.globals.maxSize.org, 1550s [00:52:30.555] ...future.globals.maxSize)) { 1550s [00:52:30.555] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1550s [00:52:30.555] on.exit(options(oopts), add = TRUE) 1550s [00:52:30.555] } 1550s [00:52:30.555] { 1550s [00:52:30.555] lapply(seq_along(...future.elements_ii), 1550s [00:52:30.555] FUN = function(jj) { 1550s [00:52:30.555] ...future.X_jj <- ...future.elements_ii[[jj]] 1550s [00:52:30.555] ...future.FUN(...future.X_jj, ...) 1550s [00:52:30.555] }) 1550s [00:52:30.555] } 1550s [00:52:30.555] }, args = future.call.arguments) 1550s [00:52:30.555] })) 1550s [00:52:30.555] future::FutureResult(value = ...future.value$value, 1550s [00:52:30.555] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1550s [00:52:30.555] ...future.rng), globalenv = if (FALSE) 1550s [00:52:30.555] list(added = base::setdiff(base::names(base::.GlobalEnv), 1550s [00:52:30.555] ...future.globalenv.names)) 1550s [00:52:30.555] else NULL, started = ...future.startTime, version = "1.8") 1550s [00:52:30.555] }, condition = base::local({ 1550s [00:52:30.555] c <- base::c 1550s [00:52:30.555] inherits <- base::inherits 1550s [00:52:30.555] invokeRestart <- base::invokeRestart 1550s [00:52:30.555] length <- base::length 1550s [00:52:30.555] list <- base::list 1550s [00:52:30.555] seq.int <- base::seq.int 1550s [00:52:30.555] signalCondition <- base::signalCondition 1550s [00:52:30.555] sys.calls <- base::sys.calls 1550s [00:52:30.555] `[[` <- base::`[[` 1550s [00:52:30.555] `+` <- base::`+` 1550s [00:52:30.555] `<<-` <- base::`<<-` 1550s [00:52:30.555] sysCalls <- function(calls = sys.calls(), from = 1L) { 1550s [00:52:30.555] calls[seq.int(from = from + 12L, to = length(calls) - 1550s [00:52:30.555] 3L)] 1550s [00:52:30.555] } 1550s [00:52:30.555] function(cond) { 1550s [00:52:30.555] is_error <- inherits(cond, "error") 1550s [00:52:30.555] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1550s [00:52:30.555] NULL) 1550s [00:52:30.555] if (is_error) { 1550s [00:52:30.555] sessionInformation <- function() { 1550s [00:52:30.555] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1550s [00:52:30.555] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1550s [00:52:30.555] search = base::search(), system = base::Sys.info()) 1550s [00:52:30.555] } 1550s [00:52:30.555] ...future.conditions[[length(...future.conditions) + 1550s [00:52:30.555] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1550s [00:52:30.555] cond$call), session = sessionInformation(), 1550s [00:52:30.555] timestamp = base::Sys.time(), signaled = 0L) 1550s [00:52:30.555] signalCondition(cond) 1550s [00:52:30.555] } 1550s [00:52:30.555] else if (!ignore && TRUE && inherits(cond, c("condition", 1550s [00:52:30.555] "immediateCondition"))) { 1550s [00:52:30.555] signal <- TRUE && inherits(cond, "immediateCondition") 1550s [00:52:30.555] ...future.conditions[[length(...future.conditions) + 1550s [00:52:30.555] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1550s [00:52:30.555] if (TRUE && !signal) { 1550s [00:52:30.555] muffleCondition <- function (cond, pattern = "^muffle") 1550s [00:52:30.555] { 1550s [00:52:30.555] inherits <- base::inherits 1550s [00:52:30.555] invokeRestart <- base::invokeRestart 1550s [00:52:30.555] is.null <- base::is.null 1550s [00:52:30.555] muffled <- FALSE 1550s [00:52:30.555] if (inherits(cond, "message")) { 1550s [00:52:30.555] muffled <- grepl(pattern, "muffleMessage") 1550s [00:52:30.555] if (muffled) 1550s [00:52:30.555] invokeRestart("muffleMessage") 1550s [00:52:30.555] } 1550s [00:52:30.555] else if (inherits(cond, "warning")) { 1550s [00:52:30.555] muffled <- grepl(pattern, "muffleWarning") 1550s [00:52:30.555] if (muffled) 1550s [00:52:30.555] invokeRestart("muffleWarning") 1550s [00:52:30.555] } 1550s [00:52:30.555] else if (inherits(cond, "condition")) { 1550s [00:52:30.555] if (!is.null(pattern)) { 1550s [00:52:30.555] computeRestarts <- base::computeRestarts 1550s [00:52:30.555] grepl <- base::grepl 1550s [00:52:30.555] restarts <- computeRestarts(cond) 1550s [00:52:30.555] for (restart in restarts) { 1550s [00:52:30.555] name <- restart$name 1550s [00:52:30.555] if (is.null(name)) 1550s [00:52:30.555] next 1550s [00:52:30.555] if (!grepl(pattern, name)) 1550s [00:52:30.555] next 1550s [00:52:30.555] invokeRestart(restart) 1550s [00:52:30.555] muffled <- TRUE 1550s [00:52:30.555] break 1550s [00:52:30.555] } 1550s [00:52:30.555] } 1550s [00:52:30.555] } 1550s [00:52:30.555] invisible(muffled) 1550s [00:52:30.555] } 1550s [00:52:30.555] muffleCondition(cond, pattern = "^muffle") 1550s [00:52:30.555] } 1550s [00:52:30.555] } 1550s [00:52:30.555] else { 1550s [00:52:30.555] if (TRUE) { 1550s [00:52:30.555] muffleCondition <- function (cond, pattern = "^muffle") 1550s [00:52:30.555] { 1550s [00:52:30.555] inherits <- base::inherits 1550s [00:52:30.555] invokeRestart <- base::invokeRestart 1550s [00:52:30.555] is.null <- base::is.null 1550s [00:52:30.555] muffled <- FALSE 1550s [00:52:30.555] if (inherits(cond, "message")) { 1550s [00:52:30.555] muffled <- grepl(pattern, "muffleMessage") 1550s [00:52:30.555] if (muffled) 1550s [00:52:30.555] invokeRestart("muffleMessage") 1550s [00:52:30.555] } 1550s [00:52:30.555] else if (inherits(cond, "warning")) { 1550s [00:52:30.555] muffled <- grepl(pattern, "muffleWarning") 1550s [00:52:30.555] if (muffled) 1550s [00:52:30.555] invokeRestart("muffleWarning") 1550s [00:52:30.555] } 1550s [00:52:30.555] else if (inherits(cond, "condition")) { 1550s [00:52:30.555] if (!is.null(pattern)) { 1550s [00:52:30.555] computeRestarts <- base::computeRestarts 1550s [00:52:30.555] grepl <- base::grepl 1550s [00:52:30.555] restarts <- computeRestarts(cond) 1550s [00:52:30.555] for (restart in restarts) { 1550s [00:52:30.555] name <- restart$name 1550s [00:52:30.555] if (is.null(name)) 1550s [00:52:30.555] next 1550s [00:52:30.555] if (!grepl(pattern, name)) 1550s [00:52:30.555] next 1550s [00:52:30.555] invokeRestart(restart) 1550s [00:52:30.555] muffled <- TRUE 1550s [00:52:30.555] break 1550s [00:52:30.555] } 1550s [00:52:30.555] } 1550s [00:52:30.555] } 1550s [00:52:30.555] invisible(muffled) 1550s [00:52:30.555] } 1550s [00:52:30.555] muffleCondition(cond, pattern = "^muffle") 1550s [00:52:30.555] } 1550s [00:52:30.555] } 1550s [00:52:30.555] } 1550s [00:52:30.555] })) 1550s [00:52:30.555] }, error = function(ex) { 1550s [00:52:30.555] base::structure(base::list(value = NULL, visible = NULL, 1550s [00:52:30.555] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1550s [00:52:30.555] ...future.rng), started = ...future.startTime, 1550s [00:52:30.555] finished = Sys.time(), session_uuid = NA_character_, 1550s [00:52:30.555] version = "1.8"), class = "FutureResult") 1550s [00:52:30.555] }, finally = { 1550s [00:52:30.555] if (!identical(...future.workdir, getwd())) 1550s [00:52:30.555] setwd(...future.workdir) 1550s [00:52:30.555] { 1550s [00:52:30.555] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1550s [00:52:30.555] ...future.oldOptions$nwarnings <- NULL 1550s [00:52:30.555] } 1550s [00:52:30.555] base::options(...future.oldOptions) 1550s [00:52:30.555] if (.Platform$OS.type == "windows") { 1550s [00:52:30.555] old_names <- names(...future.oldEnvVars) 1550s [00:52:30.555] envs <- base::Sys.getenv() 1550s [00:52:30.555] names <- names(envs) 1550s [00:52:30.555] common <- intersect(names, old_names) 1550s [00:52:30.555] added <- setdiff(names, old_names) 1550s [00:52:30.555] removed <- setdiff(old_names, names) 1550s [00:52:30.555] changed <- common[...future.oldEnvVars[common] != 1550s [00:52:30.555] envs[common]] 1550s [00:52:30.555] NAMES <- toupper(changed) 1550s [00:52:30.555] args <- list() 1550s [00:52:30.555] for (kk in seq_along(NAMES)) { 1550s [00:52:30.555] name <- changed[[kk]] 1550s [00:52:30.555] NAME <- NAMES[[kk]] 1550s [00:52:30.555] if (name != NAME && is.element(NAME, old_names)) 1550s [00:52:30.555] next 1550s [00:52:30.555] args[[name]] <- ...future.oldEnvVars[[name]] 1550s [00:52:30.555] } 1550s [00:52:30.555] NAMES <- toupper(added) 1550s [00:52:30.555] for (kk in seq_along(NAMES)) { 1550s [00:52:30.555] name <- added[[kk]] 1550s [00:52:30.555] NAME <- NAMES[[kk]] 1550s [00:52:30.555] if (name != NAME && is.element(NAME, old_names)) 1550s [00:52:30.555] next 1550s [00:52:30.555] args[[name]] <- "" 1550s [00:52:30.555] } 1550s [00:52:30.555] NAMES <- toupper(removed) 1550s [00:52:30.555] for (kk in seq_along(NAMES)) { 1550s [00:52:30.555] name <- removed[[kk]] 1550s [00:52:30.555] NAME <- NAMES[[kk]] 1550s [00:52:30.555] if (name != NAME && is.element(NAME, old_names)) 1550s [00:52:30.555] next 1550s [00:52:30.555] args[[name]] <- ...future.oldEnvVars[[name]] 1550s [00:52:30.555] } 1550s [00:52:30.555] if (length(args) > 0) 1550s [00:52:30.555] base::do.call(base::Sys.setenv, args = args) 1550s [00:52:30.555] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1550s [00:52:30.555] } 1550s [00:52:30.555] else { 1550s [00:52:30.555] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1550s [00:52:30.555] } 1550s [00:52:30.555] { 1550s [00:52:30.555] if (base::length(...future.futureOptionsAdded) > 1550s [00:52:30.555] 0L) { 1550s [00:52:30.555] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1550s [00:52:30.555] base::names(opts) <- ...future.futureOptionsAdded 1550s [00:52:30.555] base::options(opts) 1550s [00:52:30.555] } 1550s [00:52:30.555] { 1550s [00:52:30.555] { 1550s [00:52:30.555] NULL 1550s [00:52:30.555] RNGkind("Mersenne-Twister") 1550s [00:52:30.555] base::rm(list = ".Random.seed", envir = base::globalenv(), 1550s [00:52:30.555] inherits = FALSE) 1550s [00:52:30.555] } 1550s [00:52:30.555] options(future.plan = NULL) 1550s [00:52:30.555] if (is.na(NA_character_)) 1550s [00:52:30.555] Sys.unsetenv("R_FUTURE_PLAN") 1550s [00:52:30.555] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1550s [00:52:30.555] future::plan(list(function (..., envir = parent.frame()) 1550s [00:52:30.555] { 1550s [00:52:30.555] future <- SequentialFuture(..., envir = envir) 1550s [00:52:30.555] if (!future$lazy) 1550s [00:52:30.555] future <- run(future) 1550s [00:52:30.555] invisible(future) 1550s [00:52:30.555] }), .cleanup = FALSE, .init = FALSE) 1550s [00:52:30.555] } 1550s [00:52:30.555] } 1550s [00:52:30.555] } 1550s [00:52:30.555] }) 1550s [00:52:30.555] if (TRUE) { 1550s [00:52:30.555] base::sink(type = "output", split = FALSE) 1550s [00:52:30.555] if (TRUE) { 1550s [00:52:30.555] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1550s [00:52:30.555] } 1550s [00:52:30.555] else { 1550s [00:52:30.555] ...future.result["stdout"] <- base::list(NULL) 1550s [00:52:30.555] } 1550s [00:52:30.555] base::close(...future.stdout) 1550s [00:52:30.555] ...future.stdout <- NULL 1550s [00:52:30.555] } 1550s [00:52:30.555] ...future.result$conditions <- ...future.conditions 1550s [00:52:30.555] ...future.result$finished <- base::Sys.time() 1550s [00:52:30.555] ...future.result 1550s [00:52:30.555] } 1550s [00:52:30.560] assign_globals() ... 1550s [00:52:30.560] List of 5 1550s [00:52:30.560] $ ...future.FUN :function (mode = "logical", length = 0L) 1550s [00:52:30.560] $ future.call.arguments :List of 1 1550s [00:52:30.560] ..$ length: int 2 1550s [00:52:30.560] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1550s [00:52:30.560] $ ...future.elements_ii :List of 4 1550s [00:52:30.560] ..$ c: chr "list" 1550s [00:52:30.560] ..$ c: chr "character" 1550s [00:52:30.560] ..$ b: chr "numeric" 1550s [00:52:30.560] ..$ a: chr "integer" 1550s [00:52:30.560] $ ...future.seeds_ii : NULL 1550s [00:52:30.560] $ ...future.globals.maxSize: NULL 1550s [00:52:30.560] - attr(*, "where")=List of 5 1550s [00:52:30.560] ..$ ...future.FUN : 1550s [00:52:30.560] ..$ future.call.arguments : 1550s [00:52:30.560] ..$ ...future.elements_ii : 1550s [00:52:30.560] ..$ ...future.seeds_ii : 1550s [00:52:30.560] ..$ ...future.globals.maxSize: 1550s [00:52:30.560] - attr(*, "resolved")= logi FALSE 1550s [00:52:30.560] - attr(*, "total_size")= num 2240 1550s [00:52:30.560] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1550s [00:52:30.560] - attr(*, "already-done")= logi TRUE 1550s [00:52:30.571] - copied ‘...future.FUN’ to environment 1550s [00:52:30.572] - copied ‘future.call.arguments’ to environment 1550s [00:52:30.572] - copied ‘...future.elements_ii’ to environment 1550s [00:52:30.572] - copied ‘...future.seeds_ii’ to environment 1550s [00:52:30.572] - copied ‘...future.globals.maxSize’ to environment 1550s [00:52:30.572] assign_globals() ... done 1550s [00:52:30.573] plan(): Setting new future strategy stack: 1550s [00:52:30.573] List of future strategies: 1550s [00:52:30.573] 1. sequential: 1550s [00:52:30.573] - args: function (..., envir = parent.frame()) 1550s [00:52:30.573] - tweaked: FALSE 1550s [00:52:30.573] - call: NULL 1550s [00:52:30.573] plan(): nbrOfWorkers() = 1 1550s [00:52:30.574] plan(): Setting new future strategy stack: 1550s [00:52:30.575] List of future strategies: 1550s [00:52:30.575] 1. sequential: 1550s [00:52:30.575] - args: function (..., envir = parent.frame()) 1550s [00:52:30.575] - tweaked: FALSE 1550s [00:52:30.575] - call: plan(strategy) 1550s [00:52:30.576] plan(): nbrOfWorkers() = 1 1550s [00:52:30.576] SequentialFuture started (and completed) 1550s [00:52:30.576] - Launch lazy future ... done 1550s [00:52:30.576] run() for ‘SequentialFuture’ ... done 1550s [00:52:30.577] Created future: 1550s [00:52:30.577] SequentialFuture: 1550s [00:52:30.577] Label: ‘future_lapply-1’ 1550s [00:52:30.577] Expression: 1550s [00:52:30.577] { 1550s [00:52:30.577] do.call(function(...) { 1550s [00:52:30.577] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1550s [00:52:30.577] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1550s [00:52:30.577] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1550s [00:52:30.577] on.exit(options(oopts), add = TRUE) 1550s [00:52:30.577] } 1550s [00:52:30.577] { 1550s [00:52:30.577] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1550s [00:52:30.577] ...future.X_jj <- ...future.elements_ii[[jj]] 1550s [00:52:30.577] ...future.FUN(...future.X_jj, ...) 1550s [00:52:30.577] }) 1550s [00:52:30.577] } 1550s [00:52:30.577] }, args = future.call.arguments) 1550s [00:52:30.577] } 1550s [00:52:30.577] Lazy evaluation: FALSE 1550s [00:52:30.577] Asynchronous evaluation: FALSE 1550s [00:52:30.577] Local evaluation: TRUE 1550s [00:52:30.577] Environment: R_GlobalEnv 1550s [00:52:30.577] Capture standard output: TRUE 1550s [00:52:30.577] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1550s [00:52:30.577] Globals: 5 objects totaling 2.63 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 456 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1550s [00:52:30.577] Packages: 1550s [00:52:30.577] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1550s [00:52:30.577] Resolved: TRUE 1550s [00:52:30.577] Value: 240 bytes of class ‘list’ 1550s [00:52:30.577] Early signaling: FALSE 1550s [00:52:30.577] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1550s [00:52:30.577] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1550s [00:52:30.580] Chunk #1 of 1 ... DONE 1550s [00:52:30.580] Launching 1 futures (chunks) ... DONE 1550s [00:52:30.580] Resolving 1 futures (chunks) ... 1550s [00:52:30.581] resolve() on list ... 1550s [00:52:30.581] recursive: 0 1550s [00:52:30.582] length: 1 1550s [00:52:30.582] 1550s [00:52:30.582] resolved() for ‘SequentialFuture’ ... 1550s [00:52:30.583] - state: ‘finished’ 1550s [00:52:30.583] - run: TRUE 1550s [00:52:30.583] - result: ‘FutureResult’ 1550s [00:52:30.584] resolved() for ‘SequentialFuture’ ... done 1550s [00:52:30.584] Future #1 1550s [00:52:30.585] signalConditionsASAP(SequentialFuture, pos=1) ... 1550s [00:52:30.585] - nx: 1 1550s [00:52:30.585] - relay: TRUE 1550s [00:52:30.585] - stdout: TRUE 1550s [00:52:30.585] - signal: TRUE 1550s [00:52:30.586] - resignal: FALSE 1550s [00:52:30.586] - force: TRUE 1550s [00:52:30.586] - relayed: [n=1] FALSE 1550s [00:52:30.586] - queued futures: [n=1] FALSE 1550s [00:52:30.587] - until=1 1550s [00:52:30.587] - relaying element #1 1550s [00:52:30.587] - relayed: [n=1] TRUE 1550s [00:52:30.588] - queued futures: [n=1] TRUE 1550s [00:52:30.588] signalConditionsASAP(SequentialFuture, pos=1) ... done 1550s [00:52:30.588] length: 0 (resolved future 1) 1550s [00:52:30.588] Relaying remaining futures 1550s [00:52:30.589] signalConditionsASAP(NULL, pos=0) ... 1550s [00:52:30.589] - nx: 1 1550s [00:52:30.589] - relay: TRUE 1550s [00:52:30.589] - stdout: TRUE 1550s [00:52:30.589] - signal: TRUE 1550s [00:52:30.589] - resignal: FALSE 1550s [00:52:30.589] - force: TRUE 1550s [00:52:30.590] - relayed: [n=1] TRUE 1550s [00:52:30.590] - queued futures: [n=1] TRUE 1550s - flush all 1550s [00:52:30.590] - relayed: [n=1] TRUE 1550s [00:52:30.590] - queued futures: [n=1] TRUE 1550s [00:52:30.590] signalConditionsASAP(NULL, pos=0) ... done 1550s [00:52:30.591] resolve() on list ... DONE 1550s [00:52:30.591] - Number of value chunks collected: 1 1550s [00:52:30.591] Resolving 1 futures (chunks) ... DONE 1550s [00:52:30.591] Reducing values from 1 chunks ... 1550s [00:52:30.592] - Number of values collected after concatenation: 4 1550s [00:52:30.592] - Number of values expected: 4 1550s [00:52:30.592] Reverse index remapping (attribute 'ordering'): [n = 4] 4, 3, 2, 1 1550s [00:52:30.592] Reducing values from 1 chunks ... DONE 1550s [00:52:30.592] future_lapply() ... DONE 1550s List of 1 1550s $ y:List of 4 1550s ..$ a: int [1:2] 0 0 1550s ..$ b: num [1:2] 0 0 1550s ..$ c: chr [1:2] "" "" 1550s ..$ c:List of 2 1550s .. ..$ : NULL 1550s .. ..$ : NULL 1550s - future_lapply(x, FUN = future:::hpaste, ...) ... 1550s [00:52:30.602] future_lapply() ... 1550s [00:52:30.614] Number of chunks: 1 1550s [00:52:30.615] getGlobalsAndPackagesXApply() ... 1550s [00:52:30.615] - future.globals: TRUE 1550s [00:52:30.615] getGlobalsAndPackages() ... 1550s [00:52:30.615] Searching for globals... 1550s [00:52:30.626] - globals found: [22] ‘FUN’, ‘if’, ‘missing’, ‘is.finite’, ‘{’, ‘is.null’, ‘<-’, ‘paste’, ‘length’, ‘==’, ‘return’, ‘>’, ‘+’, ‘[’, ‘seq_len’, ‘rev’, ‘c’, ‘&&’, ‘!’, ‘:’, ‘(’, ‘-’ 1550s [00:52:30.627] Searching for globals ... DONE 1550s [00:52:30.627] Resolving globals: FALSE 1550s [00:52:30.628] The total size of the 1 globals is 69.62 KiB (71288 bytes) 1550s [00:52:30.628] The total size of the 1 globals exported for future expression (‘FUN(collapse = "; ", maxHead = 3L)’) is 69.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (69.62 KiB of class ‘function’) 1550s [00:52:30.629] - globals: [1] ‘FUN’ 1550s [00:52:30.629] - packages: [1] ‘future’ 1550s [00:52:30.629] getGlobalsAndPackages() ... DONE 1550s [00:52:30.629] - globals found/used: [n=1] ‘FUN’ 1550s [00:52:30.629] - needed namespaces: [n=1] ‘future’ 1550s [00:52:30.629] Finding globals ... DONE 1550s [00:52:30.629] - use_args: TRUE 1550s [00:52:30.630] - Getting '...' globals ... 1550s [00:52:30.630] resolve() on list ... 1550s [00:52:30.630] recursive: 0 1550s [00:52:30.630] length: 1 1550s [00:52:30.631] elements: ‘...’ 1550s [00:52:30.631] length: 0 (resolved future 1) 1550s [00:52:30.631] resolve() on list ... DONE 1550s [00:52:30.631] - '...' content: [n=2] ‘collapse’, ‘maxHead’ 1550s [00:52:30.632] List of 1 1550s [00:52:30.632] $ ...:List of 2 1550s [00:52:30.632] ..$ collapse: chr "; " 1550s [00:52:30.632] ..$ maxHead : int 3 1550s [00:52:30.632] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1550s [00:52:30.632] - attr(*, "where")=List of 1 1550s [00:52:30.632] ..$ ...: 1550s [00:52:30.632] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1550s [00:52:30.632] - attr(*, "resolved")= logi TRUE 1550s [00:52:30.632] - attr(*, "total_size")= num NA 1550s [00:52:30.641] - Getting '...' globals ... DONE 1550s [00:52:30.641] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1550s [00:52:30.641] List of 2 1550s [00:52:30.641] $ ...future.FUN:function (..., sep = "", collapse = ", ", lastCollapse = NULL, maxHead = if (missing(lastCollapse)) 3 else Inf, 1550s [00:52:30.641] maxTail = if (is.finite(maxHead)) 1 else Inf, abbreviate = "...") 1550s [00:52:30.641] $ ... :List of 2 1550s [00:52:30.641] ..$ collapse: chr "; " 1550s [00:52:30.641] ..$ maxHead : int 3 1550s [00:52:30.641] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1550s [00:52:30.641] - attr(*, "where")=List of 2 1550s [00:52:30.641] ..$ ...future.FUN: 1550s [00:52:30.641] ..$ ... : 1550s [00:52:30.641] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1550s [00:52:30.641] - attr(*, "resolved")= logi FALSE 1550s [00:52:30.641] - attr(*, "total_size")= num 71456 1550s [00:52:30.646] Packages to be attached in all futures: [n=1] ‘future’ 1550s [00:52:30.647] getGlobalsAndPackagesXApply() ... DONE 1550s [00:52:30.647] Number of futures (= number of chunks): 1 1550s [00:52:30.647] Launching 1 futures (chunks) ... 1550s [00:52:30.647] Chunk #1 of 1 ... 1550s [00:52:30.647] - Finding globals in 'X' for chunk #1 ... 1550s [00:52:30.647] getGlobalsAndPackages() ... 1550s [00:52:30.648] Searching for globals... 1550s [00:52:30.648] 1550s [00:52:30.649] Searching for globals ... DONE 1550s [00:52:30.649] - globals: [0] 1550s [00:52:30.649] getGlobalsAndPackages() ... DONE 1550s [00:52:30.649] + additional globals found: [n=0] 1550s [00:52:30.649] + additional namespaces needed: [n=0] 1550s [00:52:30.649] - Finding globals in 'X' for chunk #1 ... DONE 1550s [00:52:30.649] - seeds: 1550s [00:52:30.650] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1550s [00:52:30.650] getGlobalsAndPackages() ... 1550s [00:52:30.650] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1550s [00:52:30.650] Resolving globals: FALSE 1550s [00:52:30.651] Tweak future expression to call with '...' arguments ... 1550s [00:52:30.651] { 1550s [00:52:30.651] do.call(function(...) { 1550s [00:52:30.651] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1550s [00:52:30.651] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1550s [00:52:30.651] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1550s [00:52:30.651] on.exit(options(oopts), add = TRUE) 1550s [00:52:30.651] } 1550s [00:52:30.651] { 1550s [00:52:30.651] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1550s [00:52:30.651] ...future.X_jj <- ...future.elements_ii[[jj]] 1550s [00:52:30.651] ...future.FUN(...future.X_jj, ...) 1550s [00:52:30.651] }) 1550s [00:52:30.651] } 1550s [00:52:30.651] }, args = future.call.arguments) 1550s [00:52:30.651] } 1550s [00:52:30.651] Tweak future expression to call with '...' arguments ... DONE 1550s [00:52:30.652] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1550s [00:52:30.652] - packages: [1] ‘future’ 1550s [00:52:30.652] getGlobalsAndPackages() ... DONE 1550s [00:52:30.653] run() for ‘Future’ ... 1550s [00:52:30.653] - state: ‘created’ 1550s [00:52:30.653] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1550s [00:52:30.653] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1550s [00:52:30.653] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1550s [00:52:30.654] - Field: ‘label’ 1550s [00:52:30.654] - Field: ‘local’ 1550s [00:52:30.654] - Field: ‘owner’ 1550s [00:52:30.654] - Field: ‘envir’ 1550s [00:52:30.654] - Field: ‘packages’ 1550s [00:52:30.654] - Field: ‘gc’ 1550s [00:52:30.654] - Field: ‘conditions’ 1550s [00:52:30.654] - Field: ‘expr’ 1550s [00:52:30.655] - Field: ‘uuid’ 1550s [00:52:30.655] - Field: ‘seed’ 1550s [00:52:30.655] - Field: ‘version’ 1550s [00:52:30.655] - Field: ‘result’ 1550s [00:52:30.655] - Field: ‘asynchronous’ 1550s [00:52:30.655] - Field: ‘calls’ 1550s [00:52:30.655] - Field: ‘globals’ 1550s [00:52:30.655] - Field: ‘stdout’ 1550s [00:52:30.656] - Field: ‘earlySignal’ 1550s [00:52:30.656] - Field: ‘lazy’ 1550s [00:52:30.656] - Field: ‘state’ 1550s [00:52:30.656] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1550s [00:52:30.656] - Launch lazy future ... 1550s [00:52:30.657] Packages needed by the future expression (n = 1): ‘future’ 1550s [00:52:30.657] Packages needed by future strategies (n = 0): 1550s [00:52:30.657] { 1550s [00:52:30.657] { 1550s [00:52:30.657] { 1550s [00:52:30.657] ...future.startTime <- base::Sys.time() 1550s [00:52:30.657] { 1550s [00:52:30.657] { 1550s [00:52:30.657] { 1550s [00:52:30.657] { 1550s [00:52:30.657] base::local({ 1550s [00:52:30.657] has_future <- base::requireNamespace("future", 1550s [00:52:30.657] quietly = TRUE) 1550s [00:52:30.657] if (has_future) { 1550s [00:52:30.657] ns <- base::getNamespace("future") 1550s [00:52:30.657] version <- ns[[".package"]][["version"]] 1550s [00:52:30.657] if (is.null(version)) 1550s [00:52:30.657] version <- utils::packageVersion("future") 1550s [00:52:30.657] } 1550s [00:52:30.657] else { 1550s [00:52:30.657] version <- NULL 1550s [00:52:30.657] } 1550s [00:52:30.657] if (!has_future || version < "1.8.0") { 1550s [00:52:30.657] info <- base::c(r_version = base::gsub("R version ", 1550s [00:52:30.657] "", base::R.version$version.string), 1550s [00:52:30.657] platform = base::sprintf("%s (%s-bit)", 1550s [00:52:30.657] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1550s [00:52:30.657] os = base::paste(base::Sys.info()[base::c("sysname", 1550s [00:52:30.657] "release", "version")], collapse = " "), 1550s [00:52:30.657] hostname = base::Sys.info()[["nodename"]]) 1550s [00:52:30.657] info <- base::sprintf("%s: %s", base::names(info), 1550s [00:52:30.657] info) 1550s [00:52:30.657] info <- base::paste(info, collapse = "; ") 1550s [00:52:30.657] if (!has_future) { 1550s [00:52:30.657] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1550s [00:52:30.657] info) 1550s [00:52:30.657] } 1550s [00:52:30.657] else { 1550s [00:52:30.657] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1550s [00:52:30.657] info, version) 1550s [00:52:30.657] } 1550s [00:52:30.657] base::stop(msg) 1550s [00:52:30.657] } 1550s [00:52:30.657] }) 1550s [00:52:30.657] } 1550s [00:52:30.657] base::local({ 1550s [00:52:30.657] for (pkg in "future") { 1550s [00:52:30.657] base::loadNamespace(pkg) 1550s [00:52:30.657] base::library(pkg, character.only = TRUE) 1550s [00:52:30.657] } 1550s [00:52:30.657] }) 1550s [00:52:30.657] } 1550s [00:52:30.657] options(future.plan = NULL) 1550s [00:52:30.657] Sys.unsetenv("R_FUTURE_PLAN") 1550s [00:52:30.657] future::plan("default", .cleanup = FALSE, .init = FALSE) 1550s [00:52:30.657] } 1550s [00:52:30.657] ...future.workdir <- getwd() 1550s [00:52:30.657] } 1550s [00:52:30.657] ...future.oldOptions <- base::as.list(base::.Options) 1550s [00:52:30.657] ...future.oldEnvVars <- base::Sys.getenv() 1550s [00:52:30.657] } 1550s [00:52:30.657] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1550s [00:52:30.657] future.globals.maxSize = NULL, future.globals.method = NULL, 1550s [00:52:30.657] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1550s [00:52:30.657] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1550s [00:52:30.657] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1550s [00:52:30.657] future.stdout.windows.reencode = NULL, width = 80L) 1550s [00:52:30.657] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1550s [00:52:30.657] base::names(...future.oldOptions)) 1550s [00:52:30.657] } 1550s [00:52:30.657] if (FALSE) { 1550s [00:52:30.657] } 1550s [00:52:30.657] else { 1550s [00:52:30.657] if (TRUE) { 1550s [00:52:30.657] ...future.stdout <- base::rawConnection(base::raw(0L), 1550s [00:52:30.657] open = "w") 1550s [00:52:30.657] } 1550s [00:52:30.657] else { 1550s [00:52:30.657] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1550s [00:52:30.657] windows = "NUL", "/dev/null"), open = "w") 1550s [00:52:30.657] } 1550s [00:52:30.657] base::sink(...future.stdout, type = "output", split = FALSE) 1550s [00:52:30.657] base::on.exit(if (!base::is.null(...future.stdout)) { 1550s [00:52:30.657] base::sink(type = "output", split = FALSE) 1550s [00:52:30.657] base::close(...future.stdout) 1550s [00:52:30.657] }, add = TRUE) 1550s [00:52:30.657] } 1550s [00:52:30.657] ...future.frame <- base::sys.nframe() 1550s [00:52:30.657] ...future.conditions <- base::list() 1550s [00:52:30.657] ...future.rng <- base::globalenv()$.Random.seed 1550s [00:52:30.657] if (FALSE) { 1550s [00:52:30.657] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1550s [00:52:30.657] "...future.value", "...future.globalenv.names", ".Random.seed") 1550s [00:52:30.657] } 1550s [00:52:30.657] ...future.result <- base::tryCatch({ 1550s [00:52:30.657] base::withCallingHandlers({ 1550s [00:52:30.657] ...future.value <- base::withVisible(base::local({ 1550s [00:52:30.657] do.call(function(...) { 1550s [00:52:30.657] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1550s [00:52:30.657] if (!identical(...future.globals.maxSize.org, 1550s [00:52:30.657] ...future.globals.maxSize)) { 1550s [00:52:30.657] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1550s [00:52:30.657] on.exit(options(oopts), add = TRUE) 1550s [00:52:30.657] } 1550s [00:52:30.657] { 1550s [00:52:30.657] lapply(seq_along(...future.elements_ii), 1550s [00:52:30.657] FUN = function(jj) { 1550s [00:52:30.657] ...future.X_jj <- ...future.elements_ii[[jj]] 1550s [00:52:30.657] ...future.FUN(...future.X_jj, ...) 1550s [00:52:30.657] }) 1550s [00:52:30.657] } 1550s [00:52:30.657] }, args = future.call.arguments) 1550s [00:52:30.657] })) 1550s [00:52:30.657] future::FutureResult(value = ...future.value$value, 1550s [00:52:30.657] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1550s [00:52:30.657] ...future.rng), globalenv = if (FALSE) 1550s [00:52:30.657] list(added = base::setdiff(base::names(base::.GlobalEnv), 1550s [00:52:30.657] ...future.globalenv.names)) 1550s [00:52:30.657] else NULL, started = ...future.startTime, version = "1.8") 1550s [00:52:30.657] }, condition = base::local({ 1550s [00:52:30.657] c <- base::c 1550s [00:52:30.657] inherits <- base::inherits 1550s [00:52:30.657] invokeRestart <- base::invokeRestart 1550s [00:52:30.657] length <- base::length 1550s [00:52:30.657] list <- base::list 1550s [00:52:30.657] seq.int <- base::seq.int 1550s [00:52:30.657] signalCondition <- base::signalCondition 1550s [00:52:30.657] sys.calls <- base::sys.calls 1550s [00:52:30.657] `[[` <- base::`[[` 1550s [00:52:30.657] `+` <- base::`+` 1550s [00:52:30.657] `<<-` <- base::`<<-` 1550s [00:52:30.657] sysCalls <- function(calls = sys.calls(), from = 1L) { 1550s [00:52:30.657] calls[seq.int(from = from + 12L, to = length(calls) - 1550s [00:52:30.657] 3L)] 1550s [00:52:30.657] } 1550s [00:52:30.657] function(cond) { 1550s [00:52:30.657] is_error <- inherits(cond, "error") 1550s [00:52:30.657] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1550s [00:52:30.657] NULL) 1550s [00:52:30.657] if (is_error) { 1550s [00:52:30.657] sessionInformation <- function() { 1550s [00:52:30.657] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1550s [00:52:30.657] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1550s [00:52:30.657] search = base::search(), system = base::Sys.info()) 1550s [00:52:30.657] } 1550s [00:52:30.657] ...future.conditions[[length(...future.conditions) + 1550s [00:52:30.657] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1550s [00:52:30.657] cond$call), session = sessionInformation(), 1550s [00:52:30.657] timestamp = base::Sys.time(), signaled = 0L) 1550s [00:52:30.657] signalCondition(cond) 1550s [00:52:30.657] } 1550s [00:52:30.657] else if (!ignore && TRUE && inherits(cond, c("condition", 1550s [00:52:30.657] "immediateCondition"))) { 1550s [00:52:30.657] signal <- TRUE && inherits(cond, "immediateCondition") 1550s [00:52:30.657] ...future.conditions[[length(...future.conditions) + 1550s [00:52:30.657] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1550s [00:52:30.657] if (TRUE && !signal) { 1550s [00:52:30.657] muffleCondition <- function (cond, pattern = "^muffle") 1550s [00:52:30.657] { 1550s [00:52:30.657] inherits <- base::inherits 1550s [00:52:30.657] invokeRestart <- base::invokeRestart 1550s [00:52:30.657] is.null <- base::is.null 1550s [00:52:30.657] muffled <- FALSE 1550s [00:52:30.657] if (inherits(cond, "message")) { 1550s [00:52:30.657] muffled <- grepl(pattern, "muffleMessage") 1550s [00:52:30.657] if (muffled) 1550s [00:52:30.657] invokeRestart("muffleMessage") 1550s [00:52:30.657] } 1550s [00:52:30.657] else if (inherits(cond, "warning")) { 1550s [00:52:30.657] muffled <- grepl(pattern, "muffleWarning") 1550s [00:52:30.657] if (muffled) 1550s [00:52:30.657] invokeRestart("muffleWarning") 1550s [00:52:30.657] } 1550s [00:52:30.657] else if (inherits(cond, "condition")) { 1550s [00:52:30.657] if (!is.null(pattern)) { 1550s [00:52:30.657] computeRestarts <- base::computeRestarts 1550s [00:52:30.657] grepl <- base::grepl 1550s [00:52:30.657] restarts <- computeRestarts(cond) 1550s [00:52:30.657] for (restart in restarts) { 1550s [00:52:30.657] name <- restart$name 1550s [00:52:30.657] if (is.null(name)) 1550s [00:52:30.657] next 1550s [00:52:30.657] if (!grepl(pattern, name)) 1550s [00:52:30.657] next 1550s [00:52:30.657] invokeRestart(restart) 1550s [00:52:30.657] muffled <- TRUE 1550s [00:52:30.657] break 1550s [00:52:30.657] } 1550s [00:52:30.657] } 1550s [00:52:30.657] } 1550s [00:52:30.657] invisible(muffled) 1550s [00:52:30.657] } 1550s [00:52:30.657] muffleCondition(cond, pattern = "^muffle") 1550s [00:52:30.657] } 1550s [00:52:30.657] } 1550s [00:52:30.657] else { 1550s [00:52:30.657] if (TRUE) { 1550s [00:52:30.657] muffleCondition <- function (cond, pattern = "^muffle") 1550s [00:52:30.657] { 1550s [00:52:30.657] inherits <- base::inherits 1550s [00:52:30.657] invokeRestart <- base::invokeRestart 1550s [00:52:30.657] is.null <- base::is.null 1550s [00:52:30.657] muffled <- FALSE 1550s [00:52:30.657] if (inherits(cond, "message")) { 1550s [00:52:30.657] muffled <- grepl(pattern, "muffleMessage") 1550s [00:52:30.657] if (muffled) 1550s [00:52:30.657] invokeRestart("muffleMessage") 1550s [00:52:30.657] } 1550s [00:52:30.657] else if (inherits(cond, "warning")) { 1550s [00:52:30.657] muffled <- grepl(pattern, "muffleWarning") 1550s [00:52:30.657] if (muffled) 1550s [00:52:30.657] invokeRestart("muffleWarning") 1550s [00:52:30.657] } 1550s [00:52:30.657] else if (inherits(cond, "condition")) { 1550s [00:52:30.657] if (!is.null(pattern)) { 1550s [00:52:30.657] computeRestarts <- base::computeRestarts 1550s [00:52:30.657] grepl <- base::grepl 1550s [00:52:30.657] restarts <- computeRestarts(cond) 1550s [00:52:30.657] for (restart in restarts) { 1550s [00:52:30.657] name <- restart$name 1550s [00:52:30.657] if (is.null(name)) 1550s [00:52:30.657] next 1550s [00:52:30.657] if (!grepl(pattern, name)) 1550s [00:52:30.657] next 1550s [00:52:30.657] invokeRestart(restart) 1550s [00:52:30.657] muffled <- TRUE 1550s [00:52:30.657] break 1550s [00:52:30.657] } 1550s [00:52:30.657] } 1550s [00:52:30.657] } 1550s [00:52:30.657] invisible(muffled) 1550s [00:52:30.657] } 1550s [00:52:30.657] muffleCondition(cond, pattern = "^muffle") 1550s [00:52:30.657] } 1550s [00:52:30.657] } 1550s [00:52:30.657] } 1550s [00:52:30.657] })) 1550s [00:52:30.657] }, error = function(ex) { 1550s [00:52:30.657] base::structure(base::list(value = NULL, visible = NULL, 1550s [00:52:30.657] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1550s [00:52:30.657] ...future.rng), started = ...future.startTime, 1550s [00:52:30.657] finished = Sys.time(), session_uuid = NA_character_, 1550s [00:52:30.657] version = "1.8"), class = "FutureResult") 1550s [00:52:30.657] }, finally = { 1550s [00:52:30.657] if (!identical(...future.workdir, getwd())) 1550s [00:52:30.657] setwd(...future.workdir) 1550s [00:52:30.657] { 1550s [00:52:30.657] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1550s [00:52:30.657] ...future.oldOptions$nwarnings <- NULL 1550s [00:52:30.657] } 1550s [00:52:30.657] base::options(...future.oldOptions) 1550s [00:52:30.657] if (.Platform$OS.type == "windows") { 1550s [00:52:30.657] old_names <- names(...future.oldEnvVars) 1550s [00:52:30.657] envs <- base::Sys.getenv() 1550s [00:52:30.657] names <- names(envs) 1550s [00:52:30.657] common <- intersect(names, old_names) 1550s [00:52:30.657] added <- setdiff(names, old_names) 1550s [00:52:30.657] removed <- setdiff(old_names, names) 1550s [00:52:30.657] changed <- common[...future.oldEnvVars[common] != 1550s [00:52:30.657] envs[common]] 1550s [00:52:30.657] NAMES <- toupper(changed) 1550s [00:52:30.657] args <- list() 1550s [00:52:30.657] for (kk in seq_along(NAMES)) { 1550s [00:52:30.657] name <- changed[[kk]] 1550s [00:52:30.657] NAME <- NAMES[[kk]] 1550s [00:52:30.657] if (name != NAME && is.element(NAME, old_names)) 1550s [00:52:30.657] next 1550s [00:52:30.657] args[[name]] <- ...future.oldEnvVars[[name]] 1550s [00:52:30.657] } 1550s [00:52:30.657] NAMES <- toupper(added) 1550s [00:52:30.657] for (kk in seq_along(NAMES)) { 1550s [00:52:30.657] name <- added[[kk]] 1550s [00:52:30.657] NAME <- NAMES[[kk]] 1550s [00:52:30.657] if (name != NAME && is.element(NAME, old_names)) 1550s [00:52:30.657] next 1550s [00:52:30.657] args[[name]] <- "" 1550s [00:52:30.657] } 1550s [00:52:30.657] NAMES <- toupper(removed) 1550s [00:52:30.657] for (kk in seq_along(NAMES)) { 1550s [00:52:30.657] name <- removed[[kk]] 1550s [00:52:30.657] NAME <- NAMES[[kk]] 1550s [00:52:30.657] if (name != NAME && is.element(NAME, old_names)) 1550s [00:52:30.657] next 1550s [00:52:30.657] args[[name]] <- ...future.oldEnvVars[[name]] 1550s [00:52:30.657] } 1550s [00:52:30.657] if (length(args) > 0) 1550s [00:52:30.657] base::do.call(base::Sys.setenv, args = args) 1550s [00:52:30.657] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1550s [00:52:30.657] } 1550s [00:52:30.657] else { 1550s [00:52:30.657] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1550s [00:52:30.657] } 1550s [00:52:30.657] { 1550s [00:52:30.657] if (base::length(...future.futureOptionsAdded) > 1550s [00:52:30.657] 0L) { 1550s [00:52:30.657] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1550s [00:52:30.657] base::names(opts) <- ...future.futureOptionsAdded 1550s [00:52:30.657] base::options(opts) 1550s [00:52:30.657] } 1550s [00:52:30.657] { 1550s [00:52:30.657] { 1550s [00:52:30.657] NULL 1550s [00:52:30.657] RNGkind("Mersenne-Twister") 1550s [00:52:30.657] base::rm(list = ".Random.seed", envir = base::globalenv(), 1550s [00:52:30.657] inherits = FALSE) 1550s [00:52:30.657] } 1550s [00:52:30.657] options(future.plan = NULL) 1550s [00:52:30.657] if (is.na(NA_character_)) 1550s [00:52:30.657] Sys.unsetenv("R_FUTURE_PLAN") 1550s [00:52:30.657] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1550s [00:52:30.657] future::plan(list(function (..., envir = parent.frame()) 1550s [00:52:30.657] { 1550s [00:52:30.657] future <- SequentialFuture(..., envir = envir) 1550s [00:52:30.657] if (!future$lazy) 1550s [00:52:30.657] future <- run(future) 1550s [00:52:30.657] invisible(future) 1550s [00:52:30.657] }), .cleanup = FALSE, .init = FALSE) 1550s [00:52:30.657] } 1550s [00:52:30.657] } 1550s [00:52:30.657] } 1550s [00:52:30.657] }) 1550s [00:52:30.657] if (TRUE) { 1550s [00:52:30.657] base::sink(type = "output", split = FALSE) 1550s [00:52:30.657] if (TRUE) { 1550s [00:52:30.657] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1550s [00:52:30.657] } 1550s [00:52:30.657] else { 1550s [00:52:30.657] ...future.result["stdout"] <- base::list(NULL) 1550s [00:52:30.657] } 1550s [00:52:30.657] base::close(...future.stdout) 1550s [00:52:30.657] ...future.stdout <- NULL 1550s [00:52:30.657] } 1550s [00:52:30.657] ...future.result$conditions <- ...future.conditions 1550s [00:52:30.657] ...future.result$finished <- base::Sys.time() 1550s [00:52:30.657] ...future.result 1550s [00:52:30.657] } 1550s [00:52:30.661] assign_globals() ... 1550s [00:52:30.661] List of 5 1550s [00:52:30.661] $ ...future.FUN :function (..., sep = "", collapse = ", ", lastCollapse = NULL, maxHead = if (missing(lastCollapse)) 3 else Inf, 1550s [00:52:30.661] maxTail = if (is.finite(maxHead)) 1 else Inf, abbreviate = "...") 1550s [00:52:30.661] $ future.call.arguments :List of 2 1550s [00:52:30.661] ..$ collapse: chr "; " 1550s [00:52:30.661] ..$ maxHead : int 3 1550s [00:52:30.661] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1550s [00:52:30.661] $ ...future.elements_ii :List of 1 1550s [00:52:30.661] ..$ a: Named chr [1:101] "hello" "1" "2" "3" ... 1550s [00:52:30.661] .. ..- attr(*, "names")= chr [1:101] "" "b1" "b2" "b3" ... 1550s [00:52:30.661] $ ...future.seeds_ii : NULL 1550s [00:52:30.661] $ ...future.globals.maxSize: NULL 1550s [00:52:30.661] - attr(*, "where")=List of 5 1550s [00:52:30.661] ..$ ...future.FUN : 1550s [00:52:30.661] ..$ future.call.arguments : 1550s [00:52:30.661] ..$ ...future.elements_ii : 1550s [00:52:30.661] ..$ ...future.seeds_ii : 1550s [00:52:30.661] ..$ ...future.globals.maxSize: 1550s [00:52:30.661] - attr(*, "resolved")= logi FALSE 1550s [00:52:30.661] - attr(*, "total_size")= num 71456 1550s [00:52:30.661] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1550s [00:52:30.661] - attr(*, "already-done")= logi TRUE 1550s [00:52:30.671] - copied ‘...future.FUN’ to environment 1550s [00:52:30.671] - copied ‘future.call.arguments’ to environment 1550s [00:52:30.671] - copied ‘...future.elements_ii’ to environment 1550s [00:52:30.671] - copied ‘...future.seeds_ii’ to environment 1550s [00:52:30.672] - copied ‘...future.globals.maxSize’ to environment 1550s [00:52:30.672] assign_globals() ... done 1550s [00:52:30.672] plan(): Setting new future strategy stack: 1550s [00:52:30.673] List of future strategies: 1550s [00:52:30.673] 1. sequential: 1550s [00:52:30.673] - args: function (..., envir = parent.frame()) 1550s [00:52:30.673] - tweaked: FALSE 1550s [00:52:30.673] - call: NULL 1550s [00:52:30.673] plan(): nbrOfWorkers() = 1 1550s [00:52:30.674] plan(): Setting new future strategy stack: 1550s [00:52:30.674] List of future strategies: 1550s [00:52:30.674] 1. sequential: 1550s [00:52:30.674] - args: function (..., envir = parent.frame()) 1550s [00:52:30.674] - tweaked: FALSE 1550s [00:52:30.674] - call: plan(strategy) 1550s [00:52:30.675] plan(): nbrOfWorkers() = 1 1550s [00:52:30.675] SequentialFuture started (and completed) 1550s [00:52:30.675] - Launch lazy future ... done 1550s [00:52:30.676] run() for ‘SequentialFuture’ ... done 1550s [00:52:30.676] Created future: 1550s [00:52:30.676] SequentialFuture: 1550s [00:52:30.676] Label: ‘future_lapply-1’ 1550s [00:52:30.676] Expression: 1550s [00:52:30.676] { 1550s [00:52:30.676] do.call(function(...) { 1550s [00:52:30.676] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1550s [00:52:30.676] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1550s [00:52:30.676] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1550s [00:52:30.676] on.exit(options(oopts), add = TRUE) 1550s [00:52:30.676] } 1550s [00:52:30.676] { 1550s [00:52:30.676] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1550s [00:52:30.676] ...future.X_jj <- ...future.elements_ii[[jj]] 1550s [00:52:30.676] ...future.FUN(...future.X_jj, ...) 1550s [00:52:30.676] }) 1550s [00:52:30.676] } 1550s [00:52:30.676] }, args = future.call.arguments) 1550s [00:52:30.676] } 1550s [00:52:30.676] Lazy evaluation: FALSE 1550s [00:52:30.676] Asynchronous evaluation: FALSE 1550s [00:52:30.676] Local evaluation: TRUE 1550s [00:52:30.676] Environment: R_GlobalEnv 1550s [00:52:30.676] Capture standard output: TRUE 1550s [00:52:30.676] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1550s [00:52:30.676] Globals: 5 objects totaling 82.61 KiB (function ‘...future.FUN’ of 69.62 KiB, DotDotDotList ‘future.call.arguments’ of 168 bytes, list ‘...future.elements_ii’ of 12.83 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1550s [00:52:30.676] Packages: 1 packages (‘future’) 1550s [00:52:30.676] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1550s [00:52:30.676] Resolved: TRUE 1550s [00:52:30.676] Value: 136 bytes of class ‘list’ 1550s [00:52:30.676] Early signaling: FALSE 1550s [00:52:30.676] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1550s [00:52:30.676] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1550s [00:52:30.681] Chunk #1 of 1 ... DONE 1550s [00:52:30.681] Launching 1 futures (chunks) ... DONE 1550s [00:52:30.681] Resolving 1 futures (chunks) ... 1550s [00:52:30.682] resolve() on list ... 1550s [00:52:30.682] recursive: 0 1550s [00:52:30.682] length: 1 1550s [00:52:30.683] 1550s [00:52:30.683] resolved() for ‘SequentialFuture’ ... 1550s [00:52:30.683] - state: ‘finished’ 1550s [00:52:30.683] - run: TRUE 1550s [00:52:30.683] - result: ‘FutureResult’ 1550s [00:52:30.683] resolved() for ‘SequentialFuture’ ... done 1550s [00:52:30.684] Future #1 1550s [00:52:30.684] signalConditionsASAP(SequentialFuture, pos=1) ... 1550s [00:52:30.685] - nx: 1 1550s [00:52:30.685] - relay: TRUE 1550s [00:52:30.685] - stdout: TRUE 1550s [00:52:30.685] - signal: TRUE 1550s [00:52:30.686] - resignal: FALSE 1550s [00:52:30.686] - force: TRUE 1550s [00:52:30.686] - relayed: [n=1] FALSE 1550s [00:52:30.686] - queued futures: [n=1] FALSE 1550s [00:52:30.686] - until=1 1550s [00:52:30.687] - relaying element #1 1550s [00:52:30.687] - relayed: [n=1] TRUE 1550s [00:52:30.687] - queued futures: [n=1] TRUE 1550s [00:52:30.688] signalConditionsASAP(SequentialFuture, pos=1) ... done 1550s [00:52:30.688] length: 0 (resolved future 1) 1550s [00:52:30.688] Relaying remaining futures 1550s [00:52:30.688] signalConditionsASAP(NULL, pos=0) ... 1550s [00:52:30.688] - nx: 1 1550s [00:52:30.689] - relay: TRUE 1550s [00:52:30.689] - stdout: TRUE 1550s [00:52:30.689] - signal: TRUE 1550s [00:52:30.689] - resignal: FALSE 1550s [00:52:30.689] - force: TRUE 1550s [00:52:30.689] - relayed: [n=1] TRUE 1550s [00:52:30.689] - queued futures: [n=1] TRUE 1550s - flush all 1550s [00:52:30.690] - relayed: [n=1] TRUE 1550s [00:52:30.690] - queued futures: [n=1] TRUE 1550s [00:52:30.690] signalConditionsASAP(NULL, pos=0) ... done 1550s [00:52:30.690] resolve() on list ... DONE 1550s [00:52:30.690] - Number of value chunks collected: 1 1550s [00:52:30.690] Resolving 1 futures (chunks) ... DONE 1550s [00:52:30.691] Reducing values from 1 chunks ... 1550s [00:52:30.691] - Number of values collected after concatenation: 1 1550s [00:52:30.691] - Number of values expected: 1 1550s [00:52:30.691] Reducing values from 1 chunks ... DONE 1550s [00:52:30.691] future_lapply() ... DONE 1550s List of 1 1550s $ y:List of 1 1550s ..$ a: chr "hello; 1; 2; ...; 100" 1550s - future_lapply(x, FUN = listenv::listenv, ...) ... 1550s [00:52:30.694] future_lapply() ... 1550s [00:52:30.694] Number of chunks: 1 1550s [00:52:30.695] Index remapping (attribute 'ordering'): [n = 2] 2, 1 1550s [00:52:30.695] getGlobalsAndPackagesXApply() ... 1550s [00:52:30.695] - future.globals: TRUE 1550s [00:52:30.695] getGlobalsAndPackages() ... 1550s [00:52:30.695] Searching for globals... 1550s [00:52:30.698] - globals found: [4] ‘FUN’, ‘{’, ‘get’, ‘parent.env’ 1550s [00:52:30.698] Searching for globals ... DONE 1550s [00:52:30.698] Resolving globals: FALSE 1550s [00:52:30.698] The total size of the 1 globals is 4.85 KiB (4968 bytes) 1550s [00:52:30.699] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.85 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.85 KiB of class ‘function’) 1550s [00:52:30.699] - globals: [1] ‘FUN’ 1550s [00:52:30.699] - packages: [1] ‘listenv’ 1550s [00:52:30.700] getGlobalsAndPackages() ... DONE 1550s [00:52:30.700] - globals found/used: [n=1] ‘FUN’ 1550s [00:52:30.700] - needed namespaces: [n=1] ‘listenv’ 1550s [00:52:30.700] Finding globals ... DONE 1550s [00:52:30.701] - use_args: TRUE 1550s [00:52:30.701] - Getting '...' globals ... 1550s [00:52:30.702] resolve() on list ... 1550s [00:52:30.702] recursive: 0 1550s [00:52:30.702] length: 1 1550s [00:52:30.703] elements: ‘...’ 1550s [00:52:30.703] length: 0 (resolved future 1) 1550s [00:52:30.703] resolve() on list ... DONE 1550s [00:52:30.703] - '...' content: [n=0] 1550s [00:52:30.703] List of 1 1550s [00:52:30.703] $ ...: list() 1550s [00:52:30.703] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1550s [00:52:30.703] - attr(*, "where")=List of 1 1550s [00:52:30.703] ..$ ...: 1550s [00:52:30.703] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1550s [00:52:30.703] - attr(*, "resolved")= logi TRUE 1550s [00:52:30.703] - attr(*, "total_size")= num NA 1550s [00:52:30.708] - Getting '...' globals ... DONE 1550s [00:52:30.708] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1550s [00:52:30.708] List of 2 1550s [00:52:30.708] $ ...future.FUN:function (x, ...) 1550s [00:52:30.708] $ ... : list() 1550s [00:52:30.708] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1550s [00:52:30.708] - attr(*, "where")=List of 2 1550s [00:52:30.708] ..$ ...future.FUN: 1550s [00:52:30.708] ..$ ... : 1550s [00:52:30.708] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1550s [00:52:30.708] - attr(*, "resolved")= logi FALSE 1550s [00:52:30.708] - attr(*, "total_size")= num 4968 1550s [00:52:30.714] Packages to be attached in all futures: [n=1] ‘listenv’ 1550s [00:52:30.714] getGlobalsAndPackagesXApply() ... DONE 1550s [00:52:30.714] Number of futures (= number of chunks): 1 1550s [00:52:30.714] Launching 1 futures (chunks) ... 1550s [00:52:30.714] Chunk #1 of 1 ... 1550s [00:52:30.715] - Finding globals in 'X' for chunk #1 ... 1550s [00:52:30.715] getGlobalsAndPackages() ... 1550s [00:52:30.715] Searching for globals... 1550s [00:52:30.716] 1550s [00:52:30.717] Searching for globals ... DONE 1550s [00:52:30.717] - globals: [0] 1550s [00:52:30.717] getGlobalsAndPackages() ... DONE 1550s [00:52:30.717] + additional globals found: [n=0] 1550s [00:52:30.717] + additional namespaces needed: [n=0] 1550s [00:52:30.717] - Finding globals in 'X' for chunk #1 ... DONE 1550s [00:52:30.717] - seeds: 1550s [00:52:30.717] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1550s [00:52:30.718] getGlobalsAndPackages() ... 1550s [00:52:30.718] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1550s [00:52:30.718] Resolving globals: FALSE 1550s [00:52:30.718] Tweak future expression to call with '...' arguments ... 1550s [00:52:30.718] { 1550s [00:52:30.718] do.call(function(...) { 1550s [00:52:30.718] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1550s [00:52:30.718] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1550s [00:52:30.718] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1550s [00:52:30.718] on.exit(options(oopts), add = TRUE) 1550s [00:52:30.718] } 1550s [00:52:30.718] { 1550s [00:52:30.718] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1550s [00:52:30.718] ...future.X_jj <- ...future.elements_ii[[jj]] 1550s [00:52:30.718] ...future.FUN(...future.X_jj, ...) 1550s [00:52:30.718] }) 1550s [00:52:30.718] } 1550s [00:52:30.718] }, args = future.call.arguments) 1550s [00:52:30.718] } 1550s [00:52:30.719] Tweak future expression to call with '...' arguments ... DONE 1550s [00:52:30.719] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1550s [00:52:30.719] - packages: [1] ‘listenv’ 1550s [00:52:30.720] getGlobalsAndPackages() ... DONE 1550s [00:52:30.721] run() for ‘Future’ ... 1550s [00:52:30.721] - state: ‘created’ 1550s [00:52:30.721] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1550s [00:52:30.722] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1550s [00:52:30.722] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1550s [00:52:30.722] - Field: ‘label’ 1550s [00:52:30.722] - Field: ‘local’ 1550s [00:52:30.725] - Field: ‘owner’ 1550s [00:52:30.726] - Field: ‘envir’ 1550s [00:52:30.726] - Field: ‘packages’ 1550s [00:52:30.726] - Field: ‘gc’ 1550s [00:52:30.726] - Field: ‘conditions’ 1550s [00:52:30.726] - Field: ‘expr’ 1550s [00:52:30.726] - Field: ‘uuid’ 1550s [00:52:30.727] - Field: ‘seed’ 1550s [00:52:30.727] - Field: ‘version’ 1550s [00:52:30.727] - Field: ‘result’ 1550s [00:52:30.727] - Field: ‘asynchronous’ 1550s [00:52:30.727] - Field: ‘calls’ 1550s [00:52:30.727] - Field: ‘globals’ 1550s [00:52:30.728] - Field: ‘stdout’ 1550s [00:52:30.728] - Field: ‘earlySignal’ 1550s [00:52:30.728] - Field: ‘lazy’ 1550s [00:52:30.728] - Field: ‘state’ 1550s [00:52:30.729] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1550s [00:52:30.729] - Launch lazy future ... 1550s [00:52:30.730] Packages needed by the future expression (n = 1): ‘listenv’ 1550s [00:52:30.730] Packages needed by future strategies (n = 0): 1550s [00:52:30.731] { 1550s [00:52:30.731] { 1550s [00:52:30.731] { 1550s [00:52:30.731] ...future.startTime <- base::Sys.time() 1550s [00:52:30.731] { 1550s [00:52:30.731] { 1550s [00:52:30.731] { 1550s [00:52:30.731] { 1550s [00:52:30.731] base::local({ 1550s [00:52:30.731] has_future <- base::requireNamespace("future", 1550s [00:52:30.731] quietly = TRUE) 1550s [00:52:30.731] if (has_future) { 1550s [00:52:30.731] ns <- base::getNamespace("future") 1550s [00:52:30.731] version <- ns[[".package"]][["version"]] 1550s [00:52:30.731] if (is.null(version)) 1550s [00:52:30.731] version <- utils::packageVersion("future") 1550s [00:52:30.731] } 1550s [00:52:30.731] else { 1550s [00:52:30.731] version <- NULL 1550s [00:52:30.731] } 1550s [00:52:30.731] if (!has_future || version < "1.8.0") { 1550s [00:52:30.731] info <- base::c(r_version = base::gsub("R version ", 1550s [00:52:30.731] "", base::R.version$version.string), 1550s [00:52:30.731] platform = base::sprintf("%s (%s-bit)", 1550s [00:52:30.731] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1550s [00:52:30.731] os = base::paste(base::Sys.info()[base::c("sysname", 1550s [00:52:30.731] "release", "version")], collapse = " "), 1550s [00:52:30.731] hostname = base::Sys.info()[["nodename"]]) 1550s [00:52:30.731] info <- base::sprintf("%s: %s", base::names(info), 1550s [00:52:30.731] info) 1550s [00:52:30.731] info <- base::paste(info, collapse = "; ") 1550s [00:52:30.731] if (!has_future) { 1550s [00:52:30.731] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1550s [00:52:30.731] info) 1550s [00:52:30.731] } 1550s [00:52:30.731] else { 1550s [00:52:30.731] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1550s [00:52:30.731] info, version) 1550s [00:52:30.731] } 1550s [00:52:30.731] base::stop(msg) 1550s [00:52:30.731] } 1550s [00:52:30.731] }) 1550s [00:52:30.731] } 1550s [00:52:30.731] base::local({ 1550s [00:52:30.731] for (pkg in "listenv") { 1550s [00:52:30.731] base::loadNamespace(pkg) 1550s [00:52:30.731] base::library(pkg, character.only = TRUE) 1550s [00:52:30.731] } 1550s [00:52:30.731] }) 1550s [00:52:30.731] } 1550s [00:52:30.731] options(future.plan = NULL) 1550s [00:52:30.731] Sys.unsetenv("R_FUTURE_PLAN") 1550s [00:52:30.731] future::plan("default", .cleanup = FALSE, .init = FALSE) 1550s [00:52:30.731] } 1550s [00:52:30.731] ...future.workdir <- getwd() 1550s [00:52:30.731] } 1550s [00:52:30.731] ...future.oldOptions <- base::as.list(base::.Options) 1550s [00:52:30.731] ...future.oldEnvVars <- base::Sys.getenv() 1550s [00:52:30.731] } 1550s [00:52:30.731] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1550s [00:52:30.731] future.globals.maxSize = NULL, future.globals.method = NULL, 1550s [00:52:30.731] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1550s [00:52:30.731] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1550s [00:52:30.731] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1550s [00:52:30.731] future.stdout.windows.reencode = NULL, width = 80L) 1550s [00:52:30.731] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1550s [00:52:30.731] base::names(...future.oldOptions)) 1550s [00:52:30.731] } 1550s [00:52:30.731] if (FALSE) { 1550s [00:52:30.731] } 1550s [00:52:30.731] else { 1550s [00:52:30.731] if (TRUE) { 1550s [00:52:30.731] ...future.stdout <- base::rawConnection(base::raw(0L), 1550s [00:52:30.731] open = "w") 1550s [00:52:30.731] } 1550s [00:52:30.731] else { 1550s [00:52:30.731] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1550s [00:52:30.731] windows = "NUL", "/dev/null"), open = "w") 1550s [00:52:30.731] } 1550s [00:52:30.731] base::sink(...future.stdout, type = "output", split = FALSE) 1550s [00:52:30.731] base::on.exit(if (!base::is.null(...future.stdout)) { 1550s [00:52:30.731] base::sink(type = "output", split = FALSE) 1550s [00:52:30.731] base::close(...future.stdout) 1550s [00:52:30.731] }, add = TRUE) 1550s [00:52:30.731] } 1550s [00:52:30.731] ...future.frame <- base::sys.nframe() 1550s [00:52:30.731] ...future.conditions <- base::list() 1550s [00:52:30.731] ...future.rng <- base::globalenv()$.Random.seed 1550s [00:52:30.731] if (FALSE) { 1550s [00:52:30.731] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1550s [00:52:30.731] "...future.value", "...future.globalenv.names", ".Random.seed") 1550s [00:52:30.731] } 1550s [00:52:30.731] ...future.result <- base::tryCatch({ 1550s [00:52:30.731] base::withCallingHandlers({ 1550s [00:52:30.731] ...future.value <- base::withVisible(base::local({ 1550s [00:52:30.731] do.call(function(...) { 1550s [00:52:30.731] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1550s [00:52:30.731] if (!identical(...future.globals.maxSize.org, 1550s [00:52:30.731] ...future.globals.maxSize)) { 1550s [00:52:30.731] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1550s [00:52:30.731] on.exit(options(oopts), add = TRUE) 1550s [00:52:30.731] } 1550s [00:52:30.731] { 1550s [00:52:30.731] lapply(seq_along(...future.elements_ii), 1550s [00:52:30.731] FUN = function(jj) { 1550s [00:52:30.731] ...future.X_jj <- ...future.elements_ii[[jj]] 1550s [00:52:30.731] ...future.FUN(...future.X_jj, ...) 1550s [00:52:30.731] }) 1550s [00:52:30.731] } 1550s [00:52:30.731] }, args = future.call.arguments) 1550s [00:52:30.731] })) 1550s [00:52:30.731] future::FutureResult(value = ...future.value$value, 1550s [00:52:30.731] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1550s [00:52:30.731] ...future.rng), globalenv = if (FALSE) 1550s [00:52:30.731] list(added = base::setdiff(base::names(base::.GlobalEnv), 1550s [00:52:30.731] ...future.globalenv.names)) 1550s [00:52:30.731] else NULL, started = ...future.startTime, version = "1.8") 1550s [00:52:30.731] }, condition = base::local({ 1550s [00:52:30.731] c <- base::c 1550s [00:52:30.731] inherits <- base::inherits 1550s [00:52:30.731] invokeRestart <- base::invokeRestart 1550s [00:52:30.731] length <- base::length 1550s [00:52:30.731] list <- base::list 1550s [00:52:30.731] seq.int <- base::seq.int 1550s [00:52:30.731] signalCondition <- base::signalCondition 1550s [00:52:30.731] sys.calls <- base::sys.calls 1550s [00:52:30.731] `[[` <- base::`[[` 1550s [00:52:30.731] `+` <- base::`+` 1550s [00:52:30.731] `<<-` <- base::`<<-` 1550s [00:52:30.731] sysCalls <- function(calls = sys.calls(), from = 1L) { 1550s [00:52:30.731] calls[seq.int(from = from + 12L, to = length(calls) - 1550s [00:52:30.731] 3L)] 1550s [00:52:30.731] } 1550s [00:52:30.731] function(cond) { 1550s [00:52:30.731] is_error <- inherits(cond, "error") 1550s [00:52:30.731] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1550s [00:52:30.731] NULL) 1550s [00:52:30.731] if (is_error) { 1550s [00:52:30.731] sessionInformation <- function() { 1550s [00:52:30.731] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1550s [00:52:30.731] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1550s [00:52:30.731] search = base::search(), system = base::Sys.info()) 1550s [00:52:30.731] } 1550s [00:52:30.731] ...future.conditions[[length(...future.conditions) + 1550s [00:52:30.731] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1550s [00:52:30.731] cond$call), session = sessionInformation(), 1550s [00:52:30.731] timestamp = base::Sys.time(), signaled = 0L) 1550s [00:52:30.731] signalCondition(cond) 1550s [00:52:30.731] } 1550s [00:52:30.731] else if (!ignore && TRUE && inherits(cond, c("condition", 1550s [00:52:30.731] "immediateCondition"))) { 1550s [00:52:30.731] signal <- TRUE && inherits(cond, "immediateCondition") 1550s [00:52:30.731] ...future.conditions[[length(...future.conditions) + 1550s [00:52:30.731] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1550s [00:52:30.731] if (TRUE && !signal) { 1550s [00:52:30.731] muffleCondition <- function (cond, pattern = "^muffle") 1550s [00:52:30.731] { 1550s [00:52:30.731] inherits <- base::inherits 1550s [00:52:30.731] invokeRestart <- base::invokeRestart 1550s [00:52:30.731] is.null <- base::is.null 1550s [00:52:30.731] muffled <- FALSE 1550s [00:52:30.731] if (inherits(cond, "message")) { 1550s [00:52:30.731] muffled <- grepl(pattern, "muffleMessage") 1550s [00:52:30.731] if (muffled) 1550s [00:52:30.731] invokeRestart("muffleMessage") 1550s [00:52:30.731] } 1550s [00:52:30.731] else if (inherits(cond, "warning")) { 1550s [00:52:30.731] muffled <- grepl(pattern, "muffleWarning") 1550s [00:52:30.731] if (muffled) 1550s [00:52:30.731] invokeRestart("muffleWarning") 1550s [00:52:30.731] } 1550s [00:52:30.731] else if (inherits(cond, "condition")) { 1550s [00:52:30.731] if (!is.null(pattern)) { 1550s [00:52:30.731] computeRestarts <- base::computeRestarts 1550s [00:52:30.731] grepl <- base::grepl 1550s [00:52:30.731] restarts <- computeRestarts(cond) 1550s [00:52:30.731] for (restart in restarts) { 1550s [00:52:30.731] name <- restart$name 1550s [00:52:30.731] if (is.null(name)) 1550s [00:52:30.731] next 1550s [00:52:30.731] if (!grepl(pattern, name)) 1550s [00:52:30.731] next 1550s [00:52:30.731] invokeRestart(restart) 1550s [00:52:30.731] muffled <- TRUE 1550s [00:52:30.731] break 1550s [00:52:30.731] } 1550s [00:52:30.731] } 1550s [00:52:30.731] } 1550s [00:52:30.731] invisible(muffled) 1550s [00:52:30.731] } 1550s [00:52:30.731] muffleCondition(cond, pattern = "^muffle") 1550s [00:52:30.731] } 1550s [00:52:30.731] } 1550s [00:52:30.731] else { 1550s [00:52:30.731] if (TRUE) { 1550s [00:52:30.731] muffleCondition <- function (cond, pattern = "^muffle") 1550s [00:52:30.731] { 1550s [00:52:30.731] inherits <- base::inherits 1550s [00:52:30.731] invokeRestart <- base::invokeRestart 1550s [00:52:30.731] is.null <- base::is.null 1550s [00:52:30.731] muffled <- FALSE 1550s [00:52:30.731] if (inherits(cond, "message")) { 1550s [00:52:30.731] muffled <- grepl(pattern, "muffleMessage") 1550s [00:52:30.731] if (muffled) 1550s [00:52:30.731] invokeRestart("muffleMessage") 1550s [00:52:30.731] } 1550s [00:52:30.731] else if (inherits(cond, "warning")) { 1550s [00:52:30.731] muffled <- grepl(pattern, "muffleWarning") 1550s [00:52:30.731] if (muffled) 1550s [00:52:30.731] invokeRestart("muffleWarning") 1550s [00:52:30.731] } 1550s [00:52:30.731] else if (inherits(cond, "condition")) { 1550s [00:52:30.731] if (!is.null(pattern)) { 1550s [00:52:30.731] computeRestarts <- base::computeRestarts 1550s [00:52:30.731] grepl <- base::grepl 1550s [00:52:30.731] restarts <- computeRestarts(cond) 1550s [00:52:30.731] for (restart in restarts) { 1550s [00:52:30.731] name <- restart$name 1550s [00:52:30.731] if (is.null(name)) 1550s [00:52:30.731] next 1550s [00:52:30.731] if (!grepl(pattern, name)) 1550s [00:52:30.731] next 1550s [00:52:30.731] invokeRestart(restart) 1550s [00:52:30.731] muffled <- TRUE 1550s [00:52:30.731] break 1550s [00:52:30.731] } 1550s [00:52:30.731] } 1550s [00:52:30.731] } 1550s [00:52:30.731] invisible(muffled) 1550s [00:52:30.731] } 1550s [00:52:30.731] muffleCondition(cond, pattern = "^muffle") 1550s [00:52:30.731] } 1550s [00:52:30.731] } 1550s [00:52:30.731] } 1550s [00:52:30.731] })) 1550s [00:52:30.731] }, error = function(ex) { 1550s [00:52:30.731] base::structure(base::list(value = NULL, visible = NULL, 1550s [00:52:30.731] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1550s [00:52:30.731] ...future.rng), started = ...future.startTime, 1550s [00:52:30.731] finished = Sys.time(), session_uuid = NA_character_, 1550s [00:52:30.731] version = "1.8"), class = "FutureResult") 1550s [00:52:30.731] }, finally = { 1550s [00:52:30.731] if (!identical(...future.workdir, getwd())) 1550s [00:52:30.731] setwd(...future.workdir) 1550s [00:52:30.731] { 1550s [00:52:30.731] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1550s [00:52:30.731] ...future.oldOptions$nwarnings <- NULL 1550s [00:52:30.731] } 1550s [00:52:30.731] base::options(...future.oldOptions) 1550s [00:52:30.731] if (.Platform$OS.type == "windows") { 1550s [00:52:30.731] old_names <- names(...future.oldEnvVars) 1550s [00:52:30.731] envs <- base::Sys.getenv() 1550s [00:52:30.731] names <- names(envs) 1550s [00:52:30.731] common <- intersect(names, old_names) 1550s [00:52:30.731] added <- setdiff(names, old_names) 1550s [00:52:30.731] removed <- setdiff(old_names, names) 1550s [00:52:30.731] changed <- common[...future.oldEnvVars[common] != 1550s [00:52:30.731] envs[common]] 1550s [00:52:30.731] NAMES <- toupper(changed) 1550s [00:52:30.731] args <- list() 1550s [00:52:30.731] for (kk in seq_along(NAMES)) { 1550s [00:52:30.731] name <- changed[[kk]] 1550s [00:52:30.731] NAME <- NAMES[[kk]] 1550s [00:52:30.731] if (name != NAME && is.element(NAME, old_names)) 1550s [00:52:30.731] next 1550s [00:52:30.731] args[[name]] <- ...future.oldEnvVars[[name]] 1550s [00:52:30.731] } 1550s [00:52:30.731] NAMES <- toupper(added) 1550s [00:52:30.731] for (kk in seq_along(NAMES)) { 1550s [00:52:30.731] name <- added[[kk]] 1550s [00:52:30.731] NAME <- NAMES[[kk]] 1550s [00:52:30.731] if (name != NAME && is.element(NAME, old_names)) 1550s [00:52:30.731] next 1550s [00:52:30.731] args[[name]] <- "" 1550s [00:52:30.731] } 1550s [00:52:30.731] NAMES <- toupper(removed) 1550s [00:52:30.731] for (kk in seq_along(NAMES)) { 1550s [00:52:30.731] name <- removed[[kk]] 1550s [00:52:30.731] NAME <- NAMES[[kk]] 1550s [00:52:30.731] if (name != NAME && is.element(NAME, old_names)) 1550s [00:52:30.731] next 1550s [00:52:30.731] args[[name]] <- ...future.oldEnvVars[[name]] 1550s [00:52:30.731] } 1550s [00:52:30.731] if (length(args) > 0) 1550s [00:52:30.731] base::do.call(base::Sys.setenv, args = args) 1550s [00:52:30.731] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1550s [00:52:30.731] } 1550s [00:52:30.731] else { 1550s [00:52:30.731] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1550s [00:52:30.731] } 1550s [00:52:30.731] { 1550s [00:52:30.731] if (base::length(...future.futureOptionsAdded) > 1550s [00:52:30.731] 0L) { 1550s [00:52:30.731] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1550s [00:52:30.731] base::names(opts) <- ...future.futureOptionsAdded 1550s [00:52:30.731] base::options(opts) 1550s [00:52:30.731] } 1550s [00:52:30.731] { 1550s [00:52:30.731] { 1550s [00:52:30.731] NULL 1550s [00:52:30.731] RNGkind("Mersenne-Twister") 1550s [00:52:30.731] base::rm(list = ".Random.seed", envir = base::globalenv(), 1550s [00:52:30.731] inherits = FALSE) 1550s [00:52:30.731] } 1550s [00:52:30.731] options(future.plan = NULL) 1550s [00:52:30.731] if (is.na(NA_character_)) 1550s [00:52:30.731] Sys.unsetenv("R_FUTURE_PLAN") 1550s [00:52:30.731] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1550s [00:52:30.731] future::plan(list(function (..., envir = parent.frame()) 1550s [00:52:30.731] { 1550s [00:52:30.731] future <- SequentialFuture(..., envir = envir) 1550s [00:52:30.731] if (!future$lazy) 1550s [00:52:30.731] future <- run(future) 1550s [00:52:30.731] invisible(future) 1550s [00:52:30.731] }), .cleanup = FALSE, .init = FALSE) 1550s [00:52:30.731] } 1550s [00:52:30.731] } 1550s [00:52:30.731] } 1550s [00:52:30.731] }) 1550s [00:52:30.731] if (TRUE) { 1550s [00:52:30.731] base::sink(type = "output", split = FALSE) 1550s [00:52:30.731] if (TRUE) { 1550s [00:52:30.731] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1550s [00:52:30.731] } 1550s [00:52:30.731] else { 1550s [00:52:30.731] ...future.result["stdout"] <- base::list(NULL) 1550s [00:52:30.731] } 1550s [00:52:30.731] base::close(...future.stdout) 1550s [00:52:30.731] ...future.stdout <- NULL 1550s [00:52:30.731] } 1550s [00:52:30.731] ...future.result$conditions <- ...future.conditions 1550s [00:52:30.731] ...future.result$finished <- base::Sys.time() 1550s [00:52:30.731] ...future.result 1550s [00:52:30.731] } 1550s [00:52:30.735] assign_globals() ... 1550s [00:52:30.735] List of 5 1550s [00:52:30.735] $ ...future.FUN :function (x, ...) 1550s [00:52:30.735] $ future.call.arguments : list() 1550s [00:52:30.735] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1550s [00:52:30.735] $ ...future.elements_ii :List of 2 1550s [00:52:30.735] ..$ b:Classes 'listenv', 'environment' 1550s [00:52:30.735] ..$ a:Classes 'listenv', 'environment' 1550s [00:52:30.735] $ ...future.seeds_ii : NULL 1550s [00:52:30.735] $ ...future.globals.maxSize: NULL 1550s [00:52:30.735] - attr(*, "where")=List of 5 1550s [00:52:30.735] ..$ ...future.FUN : 1550s [00:52:30.735] ..$ future.call.arguments : 1550s [00:52:30.735] ..$ ...future.elements_ii : 1550s [00:52:30.735] ..$ ...future.seeds_ii : 1550s [00:52:30.735] ..$ ...future.globals.maxSize: 1550s [00:52:30.735] - attr(*, "resolved")= logi FALSE 1550s [00:52:30.735] - attr(*, "total_size")= num 4968 1550s [00:52:30.735] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1550s [00:52:30.735] - attr(*, "already-done")= logi TRUE 1550s [00:52:30.743] - copied ‘...future.FUN’ to environment 1550s [00:52:30.743] - copied ‘future.call.arguments’ to environment 1550s [00:52:30.743] - copied ‘...future.elements_ii’ to environment 1550s [00:52:30.743] - copied ‘...future.seeds_ii’ to environment 1550s [00:52:30.743] - copied ‘...future.globals.maxSize’ to environment 1550s [00:52:30.744] assign_globals() ... done 1550s [00:52:30.744] plan(): Setting new future strategy stack: 1550s [00:52:30.744] List of future strategies: 1550s [00:52:30.744] 1. sequential: 1550s [00:52:30.744] - args: function (..., envir = parent.frame()) 1550s [00:52:30.744] - tweaked: FALSE 1550s [00:52:30.744] - call: NULL 1550s [00:52:30.745] plan(): nbrOfWorkers() = 1 1550s [00:52:30.745] plan(): Setting new future strategy stack: 1550s [00:52:30.745] List of future strategies: 1550s [00:52:30.745] 1. sequential: 1550s [00:52:30.745] - args: function (..., envir = parent.List of 1 1550s $ y:List of 2 1550s ..$ a: Named chr "A" 1550s .. ..- attr(*, "names")= chr "A" 1550s ..$ b: Named chr [1:2] "A" "B" 1550s .. ..- attr(*, "names")= chr [1:2] "A" "B" 1550s frame()) 1550s [00:52:30.745] - tweaked: FALSE 1550s [00:52:30.745] - call: plan(strategy) 1550s [00:52:30.746] plan(): nbrOfWorkers() = 1 1550s [00:52:30.746] SequentialFuture started (and completed) 1550s [00:52:30.746] - Launch lazy future ... done 1550s [00:52:30.746] run() for ‘SequentialFuture’ ... done 1550s [00:52:30.746] Created future: 1550s [00:52:30.747] SequentialFuture: 1550s [00:52:30.747] Label: ‘future_lapply-1’ 1550s [00:52:30.747] Expression: 1550s [00:52:30.747] { 1550s [00:52:30.747] do.call(function(...) { 1550s [00:52:30.747] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1550s [00:52:30.747] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1550s [00:52:30.747] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1550s [00:52:30.747] on.exit(options(oopts), add = TRUE) 1550s [00:52:30.747] } 1550s [00:52:30.747] { 1550s [00:52:30.747] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1550s [00:52:30.747] ...future.X_jj <- ...future.elements_ii[[jj]] 1550s [00:52:30.747] ...future.FUN(...future.X_jj, ...) 1550s [00:52:30.747] }) 1550s [00:52:30.747] } 1550s [00:52:30.747] }, args = future.call.arguments) 1550s [00:52:30.747] } 1550s [00:52:30.747] Lazy evaluation: FALSE 1550s [00:52:30.747] Asynchronous evaluation: FALSE 1550s [00:52:30.747] Local evaluation: TRUE 1550s [00:52:30.747] Environment: R_GlobalEnv 1550s [00:52:30.747] Capture standard output: TRUE 1550s [00:52:30.747] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1550s [00:52:30.747] Globals: 5 objects totaling 17.90 KiB (function ‘...future.FUN’ of 4.85 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 13.05 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1550s [00:52:30.747] Packages: 1 packages (‘listenv’) 1550s [00:52:30.747] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1550s [00:52:30.747] Resolved: TRUE 1550s [00:52:30.747] Value: 800 bytes of class ‘list’ 1550s [00:52:30.747] Early signaling: FALSE 1550s [00:52:30.747] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1550s [00:52:30.747] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1550s [00:52:30.748] Chunk #1 of 1 ... DONE 1550s [00:52:30.748] Launching 1 futures (chunks) ... DONE 1550s [00:52:30.748] Resolving 1 futures (chunks) ... 1550s [00:52:30.748] resolve() on list ... 1550s [00:52:30.748] recursive: 0 1550s [00:52:30.749] length: 1 1550s [00:52:30.749] 1550s [00:52:30.749] resolved() for ‘SequentialFuture’ ... 1550s [00:52:30.749] - state: ‘finished’ 1550s [00:52:30.749] - run: TRUE 1550s [00:52:30.749] - result: ‘FutureResult’ 1550s [00:52:30.749] resolved() for ‘SequentialFuture’ ... done 1550s [00:52:30.749] Future #1 1550s [00:52:30.749] signalConditionsASAP(SequentialFuture, pos=1) ... 1550s [00:52:30.750] - nx: 1 1550s [00:52:30.750] - relay: TRUE 1550s [00:52:30.750] - stdout: TRUE 1550s [00:52:30.750] - signal: TRUE 1550s [00:52:30.750] - resignal: FALSE 1550s [00:52:30.750] - force: TRUE 1550s [00:52:30.750] - relayed: [n=1] FALSE 1550s [00:52:30.750] - queued futures: [n=1] FALSE 1550s [00:52:30.751] - until=1 1550s [00:52:30.751] - relaying element #1 1550s [00:52:30.752] - relayed: [n=1] TRUE 1550s [00:52:30.752] - queued futures: [n=1] TRUE 1550s [00:52:30.752] signalConditionsASAP(SequentialFuture, pos=1) ... done 1550s [00:52:30.752] length: 0 (resolved future 1) 1550s [00:52:30.753] Relaying remaining futures 1550s [00:52:30.753] signalConditionsASAP(NULL, pos=0) ... 1550s [00:52:30.753] - nx: 1 1550s [00:52:30.753] - relay: TRUE 1550s [00:52:30.753] - stdout: TRUE 1550s [00:52:30.753] - signal: TRUE 1550s [00:52:30.754] - resignal: FALSE 1550s [00:52:30.754] - force: TRUE 1550s [00:52:30.754] - relayed: [n=1] TRUE 1550s [00:52:30.754] - queued futures: [n=1] TRUE 1550s - flush all 1550s [00:52:30.755] - relayed: [n=1] TRUE 1550s [00:52:30.755] - queued futures: [n=1] TRUE 1550s [00:52:30.755] signalConditionsASAP(NULL, pos=0) ... done 1550s [00:52:30.755] resolve() on list ... DONE 1550s [00:52:30.756] - Number of value chunks collected: 1 1550s [00:52:30.756] Resolving 1 futures (chunks) ... DONE 1550s [00:52:30.757] Reducing values from 1 chunks ... 1550s [00:52:30.757] - Number of values collected after concatenation: 2 1550s [00:52:30.757] - Number of values expected: 2 1550s [00:52:30.757] Reverse index remapping (attribute 'ordering'): [n = 2] 2, 1 1550s [00:52:30.758] Reducing values from 1 chunks ... DONE 1550s [00:52:30.758] future_lapply() ... DONE 1550s - future_lapply(x, FUN, ...) for large length(x) ... 1550s [00:52:30.761] future_lapply() ... 1550s [00:52:30.762] Number of chunks: 1 1550s [00:52:30.762] getGlobalsAndPackagesXApply() ... 1550s [00:52:30.762] - future.globals: TRUE 1550s [00:52:30.762] getGlobalsAndPackages() ... 1550s [00:52:30.762] Searching for globals... 1550s [00:52:30.764] - globals found: [4] ‘FUN’, ‘sqrt’, ‘+’, ‘a’ 1550s [00:52:30.765] Searching for globals ... DONE 1550s [00:52:30.765] Resolving globals: FALSE 1550s [00:52:30.766] The total size of the 2 globals is 1.93 KiB (1976 bytes) 1550s [00:52:30.769] The total size of the 2 globals exported for future expression (‘FUN()’) is 1.93 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are two globals: ‘FUN’ (1.88 KiB of class ‘function’) and ‘a’ (56 bytes of class ‘numeric’) 1550s [00:52:30.770] - globals: [2] ‘FUN’, ‘a’ 1550s [00:52:30.770] 1550s [00:52:30.770] getGlobalsAndPackages() ... DONE 1550s [00:52:30.771] - globals found/used: [n=2] ‘FUN’, ‘a’ 1550s [00:52:30.771] - needed namespaces: [n=0] 1550s [00:52:30.771] Finding globals ... DONE 1550s [00:52:30.771] - use_args: TRUE 1550s [00:52:30.771] - Getting '...' globals ... 1550s [00:52:30.772] resolve() on list ... 1550s [00:52:30.772] recursive: 0 1550s [00:52:30.772] length: 1 1550s [00:52:30.772] elements: ‘...’ 1550s [00:52:30.772] length: 0 (resolved future 1) 1550s [00:52:30.773] resolve() on list ... DONE 1550s [00:52:30.773] - '...' content: [n=0] 1550s [00:52:30.773] List of 1 1550s [00:52:30.773] $ ...: list() 1550s [00:52:30.773] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1550s [00:52:30.773] - attr(*, "where")=List of 1 1550s [00:52:30.773] ..$ ...: 1550s [00:52:30.773] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1550s [00:52:30.773] - attr(*, "resolved")= logi TRUE 1550s [00:52:30.773] - attr(*, "total_size")= num NA 1550s [00:52:30.776] - Getting '...' globals ... DONE 1550s [00:52:30.776] Globals to be used in all futures (chunks): [n=3] ‘...future.FUN’, ‘a’, ‘...’ 1550s [00:52:30.776] List of 3 1550s [00:52:30.776] $ ...future.FUN:function (z) 1550s [00:52:30.776] $ a : num 3.14 1550s [00:52:30.776] $ ... : list() 1550s [00:52:30.776] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1550s [00:52:30.776] - attr(*, "where")=List of 3 1550s [00:52:30.776] ..$ ...future.FUN: 1550s [00:52:30.776] ..$ a : 1550s [00:52:30.776] ..$ ... : 1550s [00:52:30.776] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1550s [00:52:30.776] - attr(*, "resolved")= logi FALSE 1550s [00:52:30.776] - attr(*, "total_size")= num 1976 1550s [00:52:30.782] Packages to be attached in all futures: [n=0] 1550s [00:52:30.782] getGlobalsAndPackagesXApply() ... DONE 1550s [00:52:30.782] Number of futures (= number of chunks): 1 1550s [00:52:30.783] Launching 1 futures (chunks) ... 1550s [00:52:30.783] Chunk #1 of 1 ... 1550s [00:52:30.785] - Finding globals in 'X' for chunk #1 ... 1550s [00:52:30.786] getGlobalsAndPackages() ... 1550s [00:52:30.786] Searching for globals... 1550s [00:52:30.797] 1550s [00:52:30.797] Searching for globals ... DONE 1550s [00:52:30.797] - globals: [0] 1550s [00:52:30.798] getGlobalsAndPackages() ... DONE 1550s [00:52:30.798] + additional globals found: [n=0] 1550s [00:52:30.798] + additional namespaces needed: [n=0] 1550s [00:52:30.798] - Finding globals in 'X' for chunk #1 ... DONE 1550s [00:52:30.798] - seeds: 1550s [00:52:30.798] - All globals exported: [n=6] ‘...future.FUN’, ‘a’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1550s [00:52:30.798] getGlobalsAndPackages() ... 1550s [00:52:30.798] - globals passed as-is: [6] ‘...future.FUN’, ‘a’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1550s [00:52:30.799] Resolving globals: FALSE 1550s [00:52:30.799] Tweak future expression to call with '...' arguments ... 1550s [00:52:30.799] { 1550s [00:52:30.799] do.call(function(...) { 1550s [00:52:30.799] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1550s [00:52:30.799] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1550s [00:52:30.799] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1550s [00:52:30.799] on.exit(options(oopts), add = TRUE) 1550s [00:52:30.799] } 1550s [00:52:30.799] { 1550s [00:52:30.799] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1550s [00:52:30.799] ...future.X_jj <- ...future.elements_ii[[jj]] 1550s [00:52:30.799] ...future.FUN(...future.X_jj, ...) 1550s [00:52:30.799] }) 1550s [00:52:30.799] } 1550s [00:52:30.799] }, args = future.call.arguments) 1550s [00:52:30.799] } 1550s [00:52:30.800] Tweak future expression to call with '...' arguments ... DONE 1550s [00:52:30.801] - globals: [6] ‘...future.FUN’, ‘a’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1550s [00:52:30.802] 1550s [00:52:30.802] getGlobalsAndPackages() ... DONE 1550s [00:52:30.803] run() for ‘Future’ ... 1550s [00:52:30.804] - state: ‘created’ 1550s [00:52:30.804] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1550s [00:52:30.805] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1550s [00:52:30.806] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1550s [00:52:30.806] - Field: ‘label’ 1550s [00:52:30.806] - Field: ‘local’ 1550s [00:52:30.807] - Field: ‘owner’ 1550s [00:52:30.807] - Field: ‘envir’ 1550s [00:52:30.807] - Field: ‘packages’ 1550s [00:52:30.808] - Field: ‘gc’ 1550s [00:52:30.808] - Field: ‘conditions’ 1550s [00:52:30.808] - Field: ‘expr’ 1550s [00:52:30.808] - Field: ‘uuid’ 1550s [00:52:30.809] - Field: ‘seed’ 1550s [00:52:30.809] - Field: ‘version’ 1550s [00:52:30.809] - Field: ‘result’ 1550s [00:52:30.809] - Field: ‘asynchronous’ 1550s [00:52:30.810] - Field: ‘calls’ 1550s [00:52:30.810] - Field: ‘globals’ 1550s [00:52:30.811] - Field: ‘stdout’ 1550s [00:52:30.811] - Field: ‘earlySignal’ 1550s [00:52:30.811] - Field: ‘lazy’ 1550s [00:52:30.812] - Field: ‘state’ 1550s [00:52:30.812] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1550s [00:52:30.812] - Launch lazy future ... 1550s [00:52:30.812] Packages needed by the future expression (n = 0): 1550s [00:52:30.812] Packages needed by future strategies (n = 0): 1550s [00:52:30.814] { 1550s [00:52:30.814] { 1550s [00:52:30.814] { 1550s [00:52:30.814] ...future.startTime <- base::Sys.time() 1550s [00:52:30.814] { 1550s [00:52:30.814] { 1550s [00:52:30.814] { 1550s [00:52:30.814] base::local({ 1550s [00:52:30.814] has_future <- base::requireNamespace("future", 1550s [00:52:30.814] quietly = TRUE) 1550s [00:52:30.814] if (has_future) { 1550s [00:52:30.814] ns <- base::getNamespace("future") 1550s [00:52:30.814] version <- ns[[".package"]][["version"]] 1550s [00:52:30.814] if (is.null(version)) 1550s [00:52:30.814] version <- utils::packageVersion("future") 1550s [00:52:30.814] } 1550s [00:52:30.814] else { 1550s [00:52:30.814] version <- NULL 1550s [00:52:30.814] } 1550s [00:52:30.814] if (!has_future || version < "1.8.0") { 1550s [00:52:30.814] info <- base::c(r_version = base::gsub("R version ", 1550s [00:52:30.814] "", base::R.version$version.string), 1550s [00:52:30.814] platform = base::sprintf("%s (%s-bit)", 1550s [00:52:30.814] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1550s [00:52:30.814] os = base::paste(base::Sys.info()[base::c("sysname", 1550s [00:52:30.814] "release", "version")], collapse = " "), 1550s [00:52:30.814] hostname = base::Sys.info()[["nodename"]]) 1550s [00:52:30.814] info <- base::sprintf("%s: %s", base::names(info), 1550s [00:52:30.814] info) 1550s [00:52:30.814] info <- base::paste(info, collapse = "; ") 1550s [00:52:30.814] if (!has_future) { 1550s [00:52:30.814] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1550s [00:52:30.814] info) 1550s [00:52:30.814] } 1550s [00:52:30.814] else { 1550s [00:52:30.814] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1550s [00:52:30.814] info, version) 1550s [00:52:30.814] } 1550s [00:52:30.814] base::stop(msg) 1550s [00:52:30.814] } 1550s [00:52:30.814] }) 1550s [00:52:30.814] } 1550s [00:52:30.814] options(future.plan = NULL) 1550s [00:52:30.814] Sys.unsetenv("R_FUTURE_PLAN") 1550s [00:52:30.814] future::plan("default", .cleanup = FALSE, .init = FALSE) 1550s [00:52:30.814] } 1550s [00:52:30.814] ...future.workdir <- getwd() 1550s [00:52:30.814] } 1550s [00:52:30.814] ...future.oldOptions <- base::as.list(base::.Options) 1550s [00:52:30.814] ...future.oldEnvVars <- base::Sys.getenv() 1550s [00:52:30.814] } 1550s [00:52:30.814] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1550s [00:52:30.814] future.globals.maxSize = NULL, future.globals.method = NULL, 1550s [00:52:30.814] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1550s [00:52:30.814] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1550s [00:52:30.814] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1550s [00:52:30.814] future.stdout.windows.reencode = NULL, width = 80L) 1550s [00:52:30.814] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1550s [00:52:30.814] base::names(...future.oldOptions)) 1550s [00:52:30.814] } 1550s [00:52:30.814] if (FALSE) { 1550s [00:52:30.814] } 1550s [00:52:30.814] else { 1550s [00:52:30.814] if (TRUE) { 1550s [00:52:30.814] ...future.stdout <- base::rawConnection(base::raw(0L), 1550s [00:52:30.814] open = "w") 1550s [00:52:30.814] } 1550s [00:52:30.814] else { 1550s [00:52:30.814] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1550s [00:52:30.814] windows = "NUL", "/dev/null"), open = "w") 1550s [00:52:30.814] } 1550s [00:52:30.814] base::sink(...future.stdout, type = "output", split = FALSE) 1550s [00:52:30.814] base::on.exit(if (!base::is.null(...future.stdout)) { 1550s [00:52:30.814] base::sink(type = "output", split = FALSE) 1550s [00:52:30.814] base::close(...future.stdout) 1550s [00:52:30.814] }, add = TRUE) 1550s [00:52:30.814] } 1550s [00:52:30.814] ...future.frame <- base::sys.nframe() 1550s [00:52:30.814] ...future.conditions <- base::list() 1550s [00:52:30.814] ...future.rng <- base::globalenv()$.Random.seed 1550s [00:52:30.814] if (FALSE) { 1550s [00:52:30.814] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1550s [00:52:30.814] "...future.value", "...future.globalenv.names", ".Random.seed") 1550s [00:52:30.814] } 1550s [00:52:30.814] ...future.result <- base::tryCatch({ 1550s [00:52:30.814] base::withCallingHandlers({ 1550s [00:52:30.814] ...future.value <- base::withVisible(base::local({ 1550s [00:52:30.814] do.call(function(...) { 1550s [00:52:30.814] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1550s [00:52:30.814] if (!identical(...future.globals.maxSize.org, 1550s [00:52:30.814] ...future.globals.maxSize)) { 1550s [00:52:30.814] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1550s [00:52:30.814] on.exit(options(oopts), add = TRUE) 1550s [00:52:30.814] } 1550s [00:52:30.814] { 1550s [00:52:30.814] lapply(seq_along(...future.elements_ii), 1550s [00:52:30.814] FUN = function(jj) { 1550s [00:52:30.814] ...future.X_jj <- ...future.elements_ii[[jj]] 1550s [00:52:30.814] ...future.FUN(...future.X_jj, ...) 1550s [00:52:30.814] }) 1550s [00:52:30.814] } 1550s [00:52:30.814] }, args = future.call.arguments) 1550s [00:52:30.814] })) 1550s [00:52:30.814] future::FutureResult(value = ...future.value$value, 1550s [00:52:30.814] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1550s [00:52:30.814] ...future.rng), globalenv = if (FALSE) 1550s [00:52:30.814] list(added = base::setdiff(base::names(base::.GlobalEnv), 1550s [00:52:30.814] ...future.globalenv.names)) 1550s [00:52:30.814] else NULL, started = ...future.startTime, version = "1.8") 1550s [00:52:30.814] }, condition = base::local({ 1550s [00:52:30.814] c <- base::c 1550s [00:52:30.814] inherits <- base::inherits 1550s [00:52:30.814] invokeRestart <- base::invokeRestart 1550s [00:52:30.814] length <- base::length 1550s [00:52:30.814] list <- base::list 1550s [00:52:30.814] seq.int <- base::seq.int 1550s [00:52:30.814] signalCondition <- base::signalCondition 1550s [00:52:30.814] sys.calls <- base::sys.calls 1550s [00:52:30.814] `[[` <- base::`[[` 1550s [00:52:30.814] `+` <- base::`+` 1550s [00:52:30.814] `<<-` <- base::`<<-` 1550s [00:52:30.814] sysCalls <- function(calls = sys.calls(), from = 1L) { 1550s [00:52:30.814] calls[seq.int(from = from + 12L, to = length(calls) - 1550s [00:52:30.814] 3L)] 1550s [00:52:30.814] } 1550s [00:52:30.814] function(cond) { 1550s [00:52:30.814] is_error <- inherits(cond, "error") 1550s [00:52:30.814] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1550s [00:52:30.814] NULL) 1550s [00:52:30.814] if (is_error) { 1550s [00:52:30.814] sessionInformation <- function() { 1550s [00:52:30.814] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1550s [00:52:30.814] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1550s [00:52:30.814] search = base::search(), system = base::Sys.info()) 1550s [00:52:30.814] } 1550s [00:52:30.814] ...future.conditions[[length(...future.conditions) + 1550s [00:52:30.814] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1550s [00:52:30.814] cond$call), session = sessionInformation(), 1550s [00:52:30.814] timestamp = base::Sys.time(), signaled = 0L) 1550s [00:52:30.814] signalCondition(cond) 1550s [00:52:30.814] } 1550s [00:52:30.814] else if (!ignore && TRUE && inherits(cond, c("condition", 1550s [00:52:30.814] "immediateCondition"))) { 1550s [00:52:30.814] signal <- TRUE && inherits(cond, "immediateCondition") 1550s [00:52:30.814] ...future.conditions[[length(...future.conditions) + 1550s [00:52:30.814] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1550s [00:52:30.814] if (TRUE && !signal) { 1550s [00:52:30.814] muffleCondition <- function (cond, pattern = "^muffle") 1550s [00:52:30.814] { 1550s [00:52:30.814] inherits <- base::inherits 1550s [00:52:30.814] invokeRestart <- base::invokeRestart 1550s [00:52:30.814] is.null <- base::is.null 1550s [00:52:30.814] muffled <- FALSE 1550s [00:52:30.814] if (inherits(cond, "message")) { 1550s [00:52:30.814] muffled <- grepl(pattern, "muffleMessage") 1550s [00:52:30.814] if (muffled) 1550s [00:52:30.814] invokeRestart("muffleMessage") 1550s [00:52:30.814] } 1550s [00:52:30.814] else if (inherits(cond, "warning")) { 1550s [00:52:30.814] muffled <- grepl(pattern, "muffleWarning") 1550s [00:52:30.814] if (muffled) 1550s [00:52:30.814] invokeRestart("muffleWarning") 1550s [00:52:30.814] } 1550s [00:52:30.814] else if (inherits(cond, "condition")) { 1550s [00:52:30.814] if (!is.null(pattern)) { 1550s [00:52:30.814] computeRestarts <- base::computeRestarts 1550s [00:52:30.814] grepl <- base::grepl 1550s [00:52:30.814] restarts <- computeRestarts(cond) 1550s [00:52:30.814] for (restart in restarts) { 1550s [00:52:30.814] name <- restart$name 1550s [00:52:30.814] if (is.null(name)) 1550s [00:52:30.814] next 1550s [00:52:30.814] if (!grepl(pattern, name)) 1550s [00:52:30.814] next 1550s [00:52:30.814] invokeRestart(restart) 1550s [00:52:30.814] muffled <- TRUE 1550s [00:52:30.814] break 1550s [00:52:30.814] } 1550s [00:52:30.814] } 1550s [00:52:30.814] } 1550s [00:52:30.814] invisible(muffled) 1550s [00:52:30.814] } 1550s [00:52:30.814] muffleCondition(cond, pattern = "^muffle") 1550s [00:52:30.814] } 1550s [00:52:30.814] } 1550s [00:52:30.814] else { 1550s [00:52:30.814] if (TRUE) { 1550s [00:52:30.814] muffleCondition <- function (cond, pattern = "^muffle") 1550s [00:52:30.814] { 1550s [00:52:30.814] inherits <- base::inherits 1550s [00:52:30.814] invokeRestart <- base::invokeRestart 1550s [00:52:30.814] is.null <- base::is.null 1550s [00:52:30.814] muffled <- FALSE 1550s [00:52:30.814] if (inherits(cond, "message")) { 1550s [00:52:30.814] muffled <- grepl(pattern, "muffleMessage") 1550s [00:52:30.814] if (muffled) 1550s [00:52:30.814] invokeRestart("muffleMessage") 1550s [00:52:30.814] } 1550s [00:52:30.814] else if (inherits(cond, "warning")) { 1550s [00:52:30.814] muffled <- grepl(pattern, "muffleWarning") 1550s [00:52:30.814] if (muffled) 1550s [00:52:30.814] invokeRestart("muffleWarning") 1550s [00:52:30.814] } 1550s [00:52:30.814] else if (inherits(cond, "condition")) { 1550s [00:52:30.814] if (!is.null(pattern)) { 1550s [00:52:30.814] computeRestarts <- base::computeRestarts 1550s [00:52:30.814] grepl <- base::grepl 1550s [00:52:30.814] restarts <- computeRestarts(cond) 1550s [00:52:30.814] for (restart in restarts) { 1550s [00:52:30.814] name <- restart$name 1550s [00:52:30.814] if (is.null(name)) 1550s [00:52:30.814] next 1550s [00:52:30.814] if (!grepl(pattern, name)) 1550s [00:52:30.814] next 1550s [00:52:30.814] invokeRestart(restart) 1550s [00:52:30.814] muffled <- TRUE 1550s [00:52:30.814] break 1550s [00:52:30.814] } 1550s [00:52:30.814] } 1550s [00:52:30.814] } 1550s [00:52:30.814] invisible(muffled) 1550s [00:52:30.814] } 1550s [00:52:30.814] muffleCondition(cond, pattern = "^muffle") 1550s [00:52:30.814] } 1550s [00:52:30.814] } 1550s [00:52:30.814] } 1550s [00:52:30.814] })) 1550s [00:52:30.814] }, error = function(ex) { 1550s [00:52:30.814] base::structure(base::list(value = NULL, visible = NULL, 1550s [00:52:30.814] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1550s [00:52:30.814] ...future.rng), started = ...future.startTime, 1550s [00:52:30.814] finished = Sys.time(), session_uuid = NA_character_, 1550s [00:52:30.814] version = "1.8"), class = "FutureResult") 1550s [00:52:30.814] }, finally = { 1550s [00:52:30.814] if (!identical(...future.workdir, getwd())) 1550s [00:52:30.814] setwd(...future.workdir) 1550s [00:52:30.814] { 1550s [00:52:30.814] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1550s [00:52:30.814] ...future.oldOptions$nwarnings <- NULL 1550s [00:52:30.814] } 1550s [00:52:30.814] base::options(...future.oldOptions) 1550s [00:52:30.814] if (.Platform$OS.type == "windows") { 1550s [00:52:30.814] old_names <- names(...future.oldEnvVars) 1550s [00:52:30.814] envs <- base::Sys.getenv() 1550s [00:52:30.814] names <- names(envs) 1550s [00:52:30.814] common <- intersect(names, old_names) 1550s [00:52:30.814] added <- setdiff(names, old_names) 1550s [00:52:30.814] removed <- setdiff(old_names, names) 1550s [00:52:30.814] changed <- common[...future.oldEnvVars[common] != 1550s [00:52:30.814] envs[common]] 1550s [00:52:30.814] NAMES <- toupper(changed) 1550s [00:52:30.814] args <- list() 1550s [00:52:30.814] for (kk in seq_along(NAMES)) { 1550s [00:52:30.814] name <- changed[[kk]] 1550s [00:52:30.814] NAME <- NAMES[[kk]] 1550s [00:52:30.814] if (name != NAME && is.element(NAME, old_names)) 1550s [00:52:30.814] next 1550s [00:52:30.814] args[[name]] <- ...future.oldEnvVars[[name]] 1550s [00:52:30.814] } 1550s [00:52:30.814] NAMES <- toupper(added) 1550s [00:52:30.814] for (kk in seq_along(NAMES)) { 1550s [00:52:30.814] name <- added[[kk]] 1550s [00:52:30.814] NAME <- NAMES[[kk]] 1550s [00:52:30.814] if (name != NAME && is.element(NAME, old_names)) 1550s [00:52:30.814] next 1550s [00:52:30.814] args[[name]] <- "" 1550s [00:52:30.814] } 1550s [00:52:30.814] NAMES <- toupper(removed) 1550s [00:52:30.814] for (kk in seq_along(NAMES)) { 1550s [00:52:30.814] name <- removed[[kk]] 1550s [00:52:30.814] NAME <- NAMES[[kk]] 1550s [00:52:30.814] if (name != NAME && is.element(NAME, old_names)) 1550s [00:52:30.814] next 1550s [00:52:30.814] args[[name]] <- ...future.oldEnvVars[[name]] 1550s [00:52:30.814] } 1550s [00:52:30.814] if (length(args) > 0) 1550s [00:52:30.814] base::do.call(base::Sys.setenv, args = args) 1550s [00:52:30.814] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1550s [00:52:30.814] } 1550s [00:52:30.814] else { 1550s [00:52:30.814] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1550s [00:52:30.814] } 1550s [00:52:30.814] { 1550s [00:52:30.814] if (base::length(...future.futureOptionsAdded) > 1550s [00:52:30.814] 0L) { 1550s [00:52:30.814] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1550s [00:52:30.814] base::names(opts) <- ...future.futureOptionsAdded 1550s [00:52:30.814] base::options(opts) 1550s [00:52:30.814] } 1550s [00:52:30.814] { 1550s [00:52:30.814] { 1550s [00:52:30.814] NULL 1550s [00:52:30.814] RNGkind("Mersenne-Twister") 1550s [00:52:30.814] base::rm(list = ".Random.seed", envir = base::globalenv(), 1550s [00:52:30.814] inherits = FALSE) 1550s [00:52:30.814] } 1550s [00:52:30.814] options(future.plan = NULL) 1550s [00:52:30.814] if (is.na(NA_character_)) 1550s [00:52:30.814] Sys.unsetenv("R_FUTURE_PLAN") 1550s [00:52:30.814] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1550s [00:52:30.814] future::plan(list(function (..., envir = parent.frame()) 1550s [00:52:30.814] { 1550s [00:52:30.814] future <- SequentialFuture(..., envir = envir) 1550s [00:52:30.814] if (!future$lazy) 1550s [00:52:30.814] future <- run(future) 1550s [00:52:30.814] invisible(future) 1550s [00:52:30.814] }), .cleanup = FALSE, .init = FALSE) 1550s [00:52:30.814] } 1550s [00:52:30.814] } 1550s [00:52:30.814] } 1550s [00:52:30.814] }) 1550s [00:52:30.814] if (TRUE) { 1550s [00:52:30.814] base::sink(type = "output", split = FALSE) 1550s [00:52:30.814] if (TRUE) { 1550s [00:52:30.814] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1550s [00:52:30.814] } 1550s [00:52:30.814] else { 1550s [00:52:30.814] ...future.result["stdout"] <- base::list(NULL) 1550s [00:52:30.814] } 1550s [00:52:30.814] base::close(...future.stdout) 1550s [00:52:30.814] ...future.stdout <- NULL 1550s [00:52:30.814] } 1550s [00:52:30.814] ...future.result$conditions <- ...future.conditions 1550s [00:52:30.814] ...future.result$finished <- base::Sys.time() 1550s [00:52:30.814] ...future.result 1550s [00:52:30.814] } 1550s [00:52:30.818] assign_globals() ... 1550s [00:52:30.818] List of 6 1550s [00:52:30.818] $ ...future.FUN :function (z) 1550s [00:52:30.818] $ a : num 3.14 1550s [00:52:30.818] $ future.call.arguments : list() 1550s [00:52:30.818] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1550s [00:52:30.818] $ ...future.elements_ii :List of 10000 1550s [00:52:30.818] ..$ : int 1 1550s [00:52:30.818] ..$ : int 2 1550s [00:52:30.818] ..$ : int 3 1550s [00:52:30.818] ..$ : int 4 1550s [00:52:30.818] ..$ : int 5 1550s [00:52:30.818] ..$ : int 6 1550s [00:52:30.818] ..$ : int 7 1550s [00:52:30.818] ..$ : int 8 1550s [00:52:30.818] ..$ : int 9 1550s [00:52:30.818] ..$ : int 10 1550s [00:52:30.818] ..$ : int 11 1550s [00:52:30.818] ..$ : int 12 1550s [00:52:30.818] ..$ : int 13 1550s [00:52:30.818] ..$ : int 14 1550s [00:52:30.818] ..$ : int 15 1550s [00:52:30.818] ..$ : int 16 1550s [00:52:30.818] ..$ : int 17 1550s [00:52:30.818] ..$ : int 18 1550s [00:52:30.818] ..$ : int 19 1550s [00:52:30.818] ..$ : int 20 1550s [00:52:30.818] ..$ : int 21 1550s [00:52:30.818] ..$ : int 22 1550s [00:52:30.818] ..$ : int 23 1550s [00:52:30.818] ..$ : int 24 1550s [00:52:30.818] ..$ : int 25 1550s [00:52:30.818] ..$ : int 26 1550s [00:52:30.818] ..$ : int 27 1550s [00:52:30.818] ..$ : int 28 1550s [00:52:30.818] ..$ : int 29 1550s [00:52:30.818] ..$ : int 30 1550s [00:52:30.818] ..$ : int 31 1550s [00:52:30.818] ..$ : int 32 1550s [00:52:30.818] ..$ : int 33 1550s [00:52:30.818] ..$ : int 34 1550s [00:52:30.818] ..$ : int 35 1550s [00:52:30.818] ..$ : int 36 1550s [00:52:30.818] ..$ : int 37 1550s [00:52:30.818] ..$ : int 38 1550s [00:52:30.818] ..$ : int 39 1550s [00:52:30.818] ..$ : int 40 1550s [00:52:30.818] ..$ : int 41 1550s [00:52:30.818] ..$ : int 42 1550s [00:52:30.818] ..$ : int 43 1550s [00:52:30.818] ..$ : int 44 1550s [00:52:30.818] ..$ : int 45 1550s [00:52:30.818] ..$ : int 46 1550s [00:52:30.818] ..$ : int 47 1550s [00:52:30.818] ..$ : int 48 1550s [00:52:30.818] ..$ : int 49 1550s [00:52:30.818] ..$ : int 50 1550s [00:52:30.818] ..$ : int 51 1550s [00:52:30.818] ..$ : int 52 1550s [00:52:30.818] ..$ : int 53 1550s [00:52:30.818] ..$ : int 54 1550s [00:52:30.818] ..$ : int 55 1550s [00:52:30.818] ..$ : int 56 1550s [00:52:30.818] ..$ : int 57 1550s [00:52:30.818] ..$ : int 58 1550s [00:52:30.818] ..$ : int 59 1550s [00:52:30.818] ..$ : int 60 1550s [00:52:30.818] ..$ : int 61 1550s [00:52:30.818] ..$ : int 62 1550s [00:52:30.818] ..$ : int 63 1550s [00:52:30.818] ..$ : int 64 1550s [00:52:30.818] ..$ : int 65 1550s [00:52:30.818] ..$ : int 66 1550s [00:52:30.818] ..$ : int 67 1550s [00:52:30.818] ..$ : int 68 1550s [00:52:30.818] ..$ : int 69 1550s [00:52:30.818] ..$ : int 70 1550s [00:52:30.818] ..$ : int 71 1550s [00:52:30.818] ..$ : int 72 1550s [00:52:30.818] ..$ : int 73 1550s [00:52:30.818] ..$ : int 74 1550s [00:52:30.818] ..$ : int 75 1550s [00:52:30.818] ..$ : int 76 1550s [00:52:30.818] ..$ : int 77 1550s [00:52:30.818] ..$ : int 78 1550s [00:52:30.818] ..$ : int 79 1550s [00:52:30.818] ..$ : int 80 1550s [00:52:30.818] ..$ : int 81 1550s [00:52:30.818] ..$ : int 82 1550s [00:52:30.818] ..$ : int 83 1550s [00:52:30.818] ..$ : int 84 1550s [00:52:30.818] ..$ : int 85 1550s [00:52:30.818] ..$ : int 86 1550s [00:52:30.818] ..$ : int 87 1550s [00:52:30.818] ..$ : int 88 1550s [00:52:30.818] ..$ : int 89 1550s [00:52:30.818] ..$ : int 90 1550s [00:52:30.818] ..$ : int 91 1550s [00:52:30.818] ..$ : int 92 1550s [00:52:30.818] ..$ : int 93 1550s [00:52:30.818] ..$ : int 94 1550s [00:52:30.818] ..$ : int 95 1550s [00:52:30.818] ..$ : int 96 1550s [00:52:30.818] ..$ : int 97 1550s [00:52:30.818] ..$ : int 98 1550s [00:52:30.818] ..$ : int 99 1550s [00:52:30.818] .. [list output truncated] 1550s [00:52:30.818] $ ...future.seeds_ii : NULL 1550s [00:52:30.818] $ ...future.globals.maxSize: NULL 1550s [00:52:30.818] - attr(*, "where")=List of 6 1550s [00:52:30.818] ..$ ...future.FUN : 1550s [00:52:30.818] ..$ a : 1550s [00:52:30.818] ..$ future.call.arguments : 1550s [00:52:30.818] ..$ ...future.elements_ii : 1550s [00:52:30.818] ..$ ...future.seeds_ii : 1550s [00:52:30.818] ..$ ...future.globals.maxSize: 1550s [00:52:30.818] - attr(*, "resolved")= logi FALSE 1550s [00:52:30.818] - attr(*, "total_size")= num 1976 1550s [00:52:30.818] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1550s [00:52:30.818] - attr(*, "already-done")= logi TRUE 1550s [00:52:30.882] - reassign environment for ‘...future.FUN’ 1550s [00:52:30.882] - copied ‘...future.FUN’ to environment 1550s [00:52:30.882] - copied ‘a’ to environment 1550s [00:52:30.882] - copied ‘future.call.arguments’ to environment 1550s [00:52:30.882] - copied ‘...future.elements_ii’ to environment 1550s [00:52:30.882] - copied ‘...future.seeds_ii’ to environment 1550s [00:52:30.883] - copied ‘...future.globals.maxSize’ to environment 1550s [00:52:30.883] assign_globals() ... done 1550s [00:52:30.883] plan(): Setting new future strategy stack: 1550s [00:52:30.883] List of future strategies: 1550s [00:52:30.883] 1. sequential: 1550s [00:52:30.883] - args: function (..., envir = parent.frame()) 1550s [00:52:30.883] - tweaked: FALSE 1550s [00:52:30.883] - call: NULL 1550s [00:52:30.884] plan(): nbrOfWorkers() = 1 1550s [00:52:30.912] plan(): Setting new future strategy stack: 1550s [00:52:30.913] List of future strategies: 1550s [00:52:30.913] 1. sequential: 1550s [00:52:30.913] - args: function (..., envir = parent.frame()) 1550s [00:52:30.913] - tweaked: FALSE 1550s [00:52:30.913] - call: plan(strategy) 1550s [00:52:30.913] plan(): nbrOfWorkers() = 1 1550s [00:52:30.914] SequentialFuture started (and completed) 1550s [00:52:30.914] - Launch lazy future ... done 1550s [00:52:30.914] run() for ‘SequentialFuture’ ... done 1550s [00:52:30.914] Created future: 1551s [00:52:30.914] SequentialFuture: 1551s [00:52:30.914] Label: ‘future_lapply-1’ 1551s [00:52:30.914] Expression: 1551s [00:52:30.914] { 1551s [00:52:30.914] do.call(function(...) { 1551s [00:52:30.914] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1551s [00:52:30.914] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1551s [00:52:30.914] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1551s [00:52:30.914] on.exit(options(oopts), add = TRUE) 1551s [00:52:30.914] } 1551s [00:52:30.914] { 1551s [00:52:30.914] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1551s [00:52:30.914] ...future.X_jj <- ...future.elements_ii[[jj]] 1551s [00:52:30.914] ...future.FUN(...future.X_jj, ...) 1551s [00:52:30.914] }) 1551s [00:52:30.914] } 1551s [00:52:30.914] }, args = future.call.arguments) 1551s [00:52:30.914] } 1551s [00:52:30.914] Lazy evaluation: FALSE 1551s [00:52:30.914] Asynchronous evaluation: FALSE 1551s [00:52:30.914] Local evaluation: TRUE 1551s [00:52:30.914] Environment: R_GlobalEnv 1551s [00:52:30.914] Capture standard output: TRUE 1551s [00:52:30.914] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1551s [00:52:30.914] Globals: 6 objects totaling 548.80 KiB (function ‘...future.FUN’ of 1.88 KiB, numeric ‘a’ of 56 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 546.88 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, ...) 1551s [00:52:30.914] Packages: 1551s [00:52:30.914] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1551s [00:52:30.914] Resolved: TRUE 1551s [00:52:30.914] Value: 546.88 KiB of class ‘list’ 1551s [00:52:30.914] Early signaling: FALSE 1551s [00:52:30.914] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1551s [00:52:30.914] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1551s [00:52:31.056] Chunk #1 of 1 ... DONE 1551s [00:52:31.056] Launching 1 futures (chunks) ... DONE 1551s [00:52:31.056] Resolving 1 futures (chunks) ... 1551s [00:52:31.056] resolve() on list ... 1551s [00:52:31.056] recursive: 0 1551s [00:52:31.057] length: 1 1551s [00:52:31.057] 1551s [00:52:31.057] resolved() for ‘SequentialFuture’ ... 1551s [00:52:31.057] - state: ‘finished’ 1551s [00:52:31.057] - run: TRUE 1551s [00:52:31.057] - result: ‘FutureResult’ 1551s [00:52:31.058] resolved() for ‘SequentialFuture’ ... done 1551s [00:52:31.058] Future #1 1551s [00:52:31.058] signalConditionsASAP(SequentialFuture, pos=1) ... 1551s [00:52:31.058] - nx: 1 1551s [00:52:31.060] - relay: TRUE 1551s [00:52:31.060] - stdout: TRUE 1551s [00:52:31.060] - signal: TRUE 1551s [00:52:31.060] - resignal: FALSE 1551s [00:52:31.061] - force: TRUE 1551s [00:52:31.061] - relayed: [n=1] FALSE 1551s [00:52:31.061] - queued futures: [n=1] FALSE 1551s [00:52:31.061] - until=1 1551s [00:52:31.061] - relaying element #1 1551s [00:52:31.062] - relayed: [n=1] TRUE 1551s [00:52:31.062] - queued futures: [n=1] TRUE 1551s [00:52:31.062] signalConditionsASAP(SequentialFuture, pos=1) ... done 1551s [00:52:31.062] length: 0 (resolved future 1) 1551s [00:52:31.063] Relaying remaining futures 1551s [00:52:31.063] signalConditionsASAP(NULL, pos=0) ... 1551s [00:52:31.063] - nx: 1 1551s [00:52:31.063] - relay: TRUE 1551s [00:52:31.063] - stdout: TRUE 1551s [00:52:31.064] - signal: TRUE 1551s [00:52:31.064] - resignal: FALSE 1551s [00:52:31.064] - force: TRUE 1551s [00:52:31.064] - relayed: [n=1] TRUE 1551s [00:52:31.064] - queued futures: [n=1] TRUE 1551s - flush all 1551s [00:52:31.065] - relayed: [n=1] TRUE 1551s [00:52:31.065] - queued futures: [n=1] TRUE 1551s [00:52:31.065] signalConditionsASAP(NULL, pos=0) ... done 1551s [00:52:31.065] resolve() on list ... DONE 1551s [00:52:31.066] - Number of value chunks collected: 1 1551s [00:52:31.066] Resolving 1 futures (chunks) ... DONE 1551s [00:52:31.066] Reducing values from 1 chunks ... 1551s [00:52:31.066] - Number of values collected after concatenation: 10000 1551s [00:52:31.067] - Number of values expected: 10000 1551s [00:52:31.067] Reducing values from 1 chunks ... DONE 1551s [00:52:31.067] future_lapply() ... DONE 1551s - future_lapply(x, FUN = table, ...) ... 1551s [00:52:31.071] future_lapply() ... 1551s [00:52:31.147] Number of chunks: 1 1551s [00:52:31.148] getGlobalsAndPackagesXApply() ... 1551s [00:52:31.148] - future.globals: TRUE 1551s [00:52:31.148] getGlobalsAndPackages() ... 1551s [00:52:31.149] Searching for globals... 1551s [00:52:31.211] - globals found: [59] ‘FUN’, ‘if’, ‘==’, ‘c’, ‘list.names’, ‘{’, ‘<-’, ‘[’, ‘as.list’, ‘substitute’, ‘-’, ‘&&’, ‘length’, ‘is.list’, ‘!’, ‘is.null’, ‘names’, ‘return’, ‘seq_along’, ‘vapply’, ‘switch’, ‘+’, ‘is.symbol’, ‘as.character’, ‘deparse’, ‘[<-’, ‘missing’, ‘match’, ‘match.arg’, ‘!=’, ‘warning’, ‘list’, ‘[[’, ‘paste’, ‘stop’, ‘integer’, ‘for’, ‘is.factor’, ‘anyNA’, ‘options’, ‘on.exit’, ‘factor’, ‘(’, ‘||’, ‘levels’, ‘as.integer’, ‘which’, ‘is.na’, ‘is.na<-’, ‘>’, ‘prod’, ‘$’, ‘.Machine’, ‘*’, ‘names<-’, ‘array’, ‘tabulate’, ‘class’, ‘class<-’ 1551s [00:52:31.212] Searching for globals ... DONE 1551s [00:52:31.213] Resolving globals: FALSE 1551s [00:52:31.217] The total size of the 1 globals is 345.92 KiB (354224 bytes) 1551s [00:52:31.218] The total size of the 1 globals exported for future expression (‘FUN()’) is 345.92 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (345.92 KiB of class ‘function’) 1551s [00:52:31.218] - globals: [1] ‘FUN’ 1551s [00:52:31.218] 1551s [00:52:31.218] getGlobalsAndPackages() ... DONE 1551s [00:52:31.219] - globals found/used: [n=1] ‘FUN’ 1551s [00:52:31.219] - needed namespaces: [n=0] 1551s [00:52:31.219] Finding globals ... DONE 1551s [00:52:31.219] - use_args: TRUE 1551s [00:52:31.219] - Getting '...' globals ... 1551s [00:52:31.220] resolve() on list ... 1551s [00:52:31.221] recursive: 0 1551s [00:52:31.221] length: 1 1551s [00:52:31.221] elements: ‘...’ 1551s [00:52:31.221] length: 0 (resolved future 1) 1551s [00:52:31.222] resolve() on list ... DONE 1551s [00:52:31.222] - '...' content: [n=0] 1551s [00:52:31.222] List of 1 1551s [00:52:31.222] $ ...: list() 1551s [00:52:31.222] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1551s [00:52:31.222] - attr(*, "where")=List of 1 1551s [00:52:31.222] ..$ ...: 1551s [00:52:31.222] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1551s [00:52:31.222] - attr(*, "resolved")= logi TRUE 1551s [00:52:31.222] - attr(*, "total_size")= num NA 1551s [00:52:31.226] - Getting '...' globals ... DONE 1551s [00:52:31.227] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1551s [00:52:31.227] List of 2 1551s [00:52:31.227] $ ...future.FUN:function (..., exclude = if (useNA == "no") c(NA, NaN), useNA = c("no", 1551s [00:52:31.227] "ifany", "always"), dnn = list.names(...), deparse.level = 1) 1551s [00:52:31.227] $ ... : list() 1551s [00:52:31.227] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1551s [00:52:31.227] - attr(*, "where")=List of 2 1551s [00:52:31.227] ..$ ...future.FUN: 1551s [00:52:31.227] ..$ ... : 1551s [00:52:31.227] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1551s [00:52:31.227] - attr(*, "resolved")= logi FALSE 1551s [00:52:31.227] - attr(*, "total_size")= num 354224 1551s [00:52:31.233] Packages to be attached in all futures: [n=0] 1551s [00:52:31.233] getGlobalsAndPackagesXApply() ... DONE 1551s [00:52:31.233] Number of futures (= number of chunks): 1 1551s [00:52:31.233] Launching 1 futures (chunks) ... 1551s [00:52:31.234] Chunk #1 of 1 ... 1551s [00:52:31.234] - Finding globals in 'X' for chunk #1 ... 1551s [00:52:31.234] getGlobalsAndPackages() ... 1551s [00:52:31.234] Searching for globals... 1551s [00:52:31.235] 1551s [00:52:31.235] Searching for globals ... DONE 1551s [00:52:31.236] - globals: [0] 1551s [00:52:31.236] getGlobalsAndPackages() ... DONE 1551s [00:52:31.236] + additional globals found: [n=0] 1551s [00:52:31.237] + additional namespaces needed: [n=0] 1551s [00:52:31.237] - Finding globals in 'X' for chunk #1 ... DONE 1551s [00:52:31.237] - seeds: 1551s [00:52:31.237] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1551s [00:52:31.238] getGlobalsAndPackages() ... 1551s [00:52:31.238] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1551s [00:52:31.238] Resolving globals: FALSE 1551s [00:52:31.238] Tweak future expression to call with '...' arguments ... 1551s [00:52:31.239] { 1551s [00:52:31.239] do.call(function(...) { 1551s [00:52:31.239] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1551s [00:52:31.239] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1551s [00:52:31.239] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1551s [00:52:31.239] on.exit(options(oopts), add = TRUE) 1551s [00:52:31.239] } 1551s [00:52:31.239] { 1551s [00:52:31.239] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1551s [00:52:31.239] ...future.X_jj <- ...future.elements_ii[[jj]] 1551s [00:52:31.239] ...future.FUN(...future.X_jj, ...) 1551s [00:52:31.239] }) 1551s [00:52:31.239] } 1551s [00:52:31.239] }, args = future.call.arguments) 1551s [00:52:31.239] } 1551s [00:52:31.239] Tweak future expression to call with '...' arguments ... DONE 1551s [00:52:31.240] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1551s [00:52:31.240] 1551s [00:52:31.241] getGlobalsAndPackages() ... DONE 1551s [00:52:31.242] run() for ‘Future’ ... 1551s [00:52:31.242] - state: ‘created’ 1551s [00:52:31.242] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1551s [00:52:31.243] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1551s [00:52:31.243] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1551s [00:52:31.243] - Field: ‘label’ 1551s [00:52:31.244] - Field: ‘local’ 1551s [00:52:31.244] - Field: ‘owner’ 1551s [00:52:31.244] - Field: ‘envir’ 1551s [00:52:31.245] - Field: ‘packages’ 1551s [00:52:31.246] - Field: ‘gc’ 1551s [00:52:31.246] - Field: ‘conditions’ 1551s [00:52:31.247] - Field: ‘expr’ 1551s [00:52:31.247] - Field: ‘uuid’ 1551s [00:52:31.247] - Field: ‘seed’ 1551s [00:52:31.248] - Field: ‘version’ 1551s [00:52:31.248] - Field: ‘result’ 1551s [00:52:31.249] - Field: ‘asynchronous’ 1551s [00:52:31.249] - Field: ‘calls’ 1551s [00:52:31.250] - Field: ‘globals’ 1551s [00:52:31.250] - Field: ‘stdout’ 1551s [00:52:31.250] - Field: ‘earlySignal’ 1551s [00:52:31.251] - Field: ‘lazy’ 1551s [00:52:31.251] - Field: ‘state’ 1551s [00:52:31.251] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1551s [00:52:31.252] - Launch lazy future ... 1551s [00:52:31.252] Packages needed by the future expression (n = 0): 1551s [00:52:31.253] Packages needed by future strategies (n = 0): 1551s [00:52:31.254] { 1551s [00:52:31.254] { 1551s [00:52:31.254] { 1551s [00:52:31.254] ...future.startTime <- base::Sys.time() 1551s [00:52:31.254] { 1551s [00:52:31.254] { 1551s [00:52:31.254] { 1551s [00:52:31.254] base::local({ 1551s [00:52:31.254] has_future <- base::requireNamespace("future", 1551s [00:52:31.254] quietly = TRUE) 1551s [00:52:31.254] if (has_future) { 1551s [00:52:31.254] ns <- base::getNamespace("future") 1551s [00:52:31.254] version <- ns[[".package"]][["version"]] 1551s [00:52:31.254] if (is.null(version)) 1551s [00:52:31.254] version <- utils::packageVersion("future") 1551s [00:52:31.254] } 1551s [00:52:31.254] else { 1551s [00:52:31.254] version <- NULL 1551s [00:52:31.254] } 1551s [00:52:31.254] if (!has_future || version < "1.8.0") { 1551s [00:52:31.254] info <- base::c(r_version = base::gsub("R version ", 1551s [00:52:31.254] "", base::R.version$version.string), 1551s [00:52:31.254] platform = base::sprintf("%s (%s-bit)", 1551s [00:52:31.254] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1551s [00:52:31.254] os = base::paste(base::Sys.info()[base::c("sysname", 1551s [00:52:31.254] "release", "version")], collapse = " "), 1551s [00:52:31.254] hostname = base::Sys.info()[["nodename"]]) 1551s [00:52:31.254] info <- base::sprintf("%s: %s", base::names(info), 1551s [00:52:31.254] info) 1551s [00:52:31.254] info <- base::paste(info, collapse = "; ") 1551s [00:52:31.254] if (!has_future) { 1551s [00:52:31.254] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1551s [00:52:31.254] info) 1551s [00:52:31.254] } 1551s [00:52:31.254] else { 1551s [00:52:31.254] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1551s [00:52:31.254] info, version) 1551s [00:52:31.254] } 1551s [00:52:31.254] base::stop(msg) 1551s [00:52:31.254] } 1551s [00:52:31.254] }) 1551s [00:52:31.254] } 1551s [00:52:31.254] options(future.plan = NULL) 1551s [00:52:31.254] Sys.unsetenv("R_FUTURE_PLAN") 1551s [00:52:31.254] future::plan("default", .cleanup = FALSE, .init = FALSE) 1551s [00:52:31.254] } 1551s [00:52:31.254] ...future.workdir <- getwd() 1551s [00:52:31.254] } 1551s [00:52:31.254] ...future.oldOptions <- base::as.list(base::.Options) 1551s [00:52:31.254] ...future.oldEnvVars <- base::Sys.getenv() 1551s [00:52:31.254] } 1551s [00:52:31.254] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1551s [00:52:31.254] future.globals.maxSize = NULL, future.globals.method = NULL, 1551s [00:52:31.254] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1551s [00:52:31.254] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1551s [00:52:31.254] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1551s [00:52:31.254] future.stdout.windows.reencode = NULL, width = 80L) 1551s [00:52:31.254] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1551s [00:52:31.254] base::names(...future.oldOptions)) 1551s [00:52:31.254] } 1551s [00:52:31.254] if (FALSE) { 1551s [00:52:31.254] } 1551s [00:52:31.254] else { 1551s [00:52:31.254] if (TRUE) { 1551s [00:52:31.254] ...future.stdout <- base::rawConnection(base::raw(0L), 1551s [00:52:31.254] open = "w") 1551s [00:52:31.254] } 1551s [00:52:31.254] else { 1551s [00:52:31.254] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1551s [00:52:31.254] windows = "NUL", "/dev/null"), open = "w") 1551s [00:52:31.254] } 1551s [00:52:31.254] base::sink(...future.stdout, type = "output", split = FALSE) 1551s [00:52:31.254] base::on.exit(if (!base::is.null(...future.stdout)) { 1551s [00:52:31.254] base::sink(type = "output", split = FALSE) 1551s [00:52:31.254] base::close(...future.stdout) 1551s [00:52:31.254] }, add = TRUE) 1551s [00:52:31.254] } 1551s [00:52:31.254] ...future.frame <- base::sys.nframe() 1551s [00:52:31.254] ...future.conditions <- base::list() 1551s [00:52:31.254] ...future.rng <- base::globalenv()$.Random.seed 1551s [00:52:31.254] if (FALSE) { 1551s [00:52:31.254] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1551s [00:52:31.254] "...future.value", "...future.globalenv.names", ".Random.seed") 1551s [00:52:31.254] } 1551s [00:52:31.254] ...future.result <- base::tryCatch({ 1551s [00:52:31.254] base::withCallingHandlers({ 1551s [00:52:31.254] ...future.value <- base::withVisible(base::local({ 1551s [00:52:31.254] do.call(function(...) { 1551s [00:52:31.254] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1551s [00:52:31.254] if (!identical(...future.globals.maxSize.org, 1551s [00:52:31.254] ...future.globals.maxSize)) { 1551s [00:52:31.254] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1551s [00:52:31.254] on.exit(options(oopts), add = TRUE) 1551s [00:52:31.254] } 1551s [00:52:31.254] { 1551s [00:52:31.254] lapply(seq_along(...future.elements_ii), 1551s [00:52:31.254] FUN = function(jj) { 1551s [00:52:31.254] ...future.X_jj <- ...future.elements_ii[[jj]] 1551s [00:52:31.254] ...future.FUN(...future.X_jj, ...) 1551s [00:52:31.254] }) 1551s [00:52:31.254] } 1551s [00:52:31.254] }, args = future.call.arguments) 1551s [00:52:31.254] })) 1551s [00:52:31.254] future::FutureResult(value = ...future.value$value, 1551s [00:52:31.254] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1551s [00:52:31.254] ...future.rng), globalenv = if (FALSE) 1551s [00:52:31.254] list(added = base::setdiff(base::names(base::.GlobalEnv), 1551s [00:52:31.254] ...future.globalenv.names)) 1551s [00:52:31.254] else NULL, started = ...future.startTime, version = "1.8") 1551s [00:52:31.254] }, condition = base::local({ 1551s [00:52:31.254] c <- base::c 1551s [00:52:31.254] inherits <- base::inherits 1551s [00:52:31.254] invokeRestart <- base::invokeRestart 1551s [00:52:31.254] length <- base::length 1551s [00:52:31.254] list <- base::list 1551s [00:52:31.254] seq.int <- base::seq.int 1551s [00:52:31.254] signalCondition <- base::signalCondition 1551s [00:52:31.254] sys.calls <- base::sys.calls 1551s [00:52:31.254] `[[` <- base::`[[` 1551s [00:52:31.254] `+` <- base::`+` 1551s [00:52:31.254] `<<-` <- base::`<<-` 1551s [00:52:31.254] sysCalls <- function(calls = sys.calls(), from = 1L) { 1551s [00:52:31.254] calls[seq.int(from = from + 12L, to = length(calls) - 1551s [00:52:31.254] 3L)] 1551s [00:52:31.254] } 1551s [00:52:31.254] function(cond) { 1551s [00:52:31.254] is_error <- inherits(cond, "error") 1551s [00:52:31.254] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1551s [00:52:31.254] NULL) 1551s [00:52:31.254] if (is_error) { 1551s [00:52:31.254] sessionInformation <- function() { 1551s [00:52:31.254] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1551s [00:52:31.254] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1551s [00:52:31.254] search = base::search(), system = base::Sys.info()) 1551s [00:52:31.254] } 1551s [00:52:31.254] ...future.conditions[[length(...future.conditions) + 1551s [00:52:31.254] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1551s [00:52:31.254] cond$call), session = sessionInformation(), 1551s [00:52:31.254] timestamp = base::Sys.time(), signaled = 0L) 1551s [00:52:31.254] signalCondition(cond) 1551s [00:52:31.254] } 1551s [00:52:31.254] else if (!ignore && TRUE && inherits(cond, c("condition", 1551s [00:52:31.254] "immediateCondition"))) { 1551s [00:52:31.254] signal <- TRUE && inherits(cond, "immediateCondition") 1551s [00:52:31.254] ...future.conditions[[length(...future.conditions) + 1551s [00:52:31.254] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1551s [00:52:31.254] if (TRUE && !signal) { 1551s [00:52:31.254] muffleCondition <- function (cond, pattern = "^muffle") 1551s [00:52:31.254] { 1551s [00:52:31.254] inherits <- base::inherits 1551s [00:52:31.254] invokeRestart <- base::invokeRestart 1551s [00:52:31.254] is.null <- base::is.null 1551s [00:52:31.254] muffled <- FALSE 1551s [00:52:31.254] if (inherits(cond, "message")) { 1551s [00:52:31.254] muffled <- grepl(pattern, "muffleMessage") 1551s [00:52:31.254] if (muffled) 1551s [00:52:31.254] invokeRestart("muffleMessage") 1551s [00:52:31.254] } 1551s [00:52:31.254] else if (inherits(cond, "warning")) { 1551s [00:52:31.254] muffled <- grepl(pattern, "muffleWarning") 1551s [00:52:31.254] if (muffled) 1551s [00:52:31.254] invokeRestart("muffleWarning") 1551s [00:52:31.254] } 1551s [00:52:31.254] else if (inherits(cond, "condition")) { 1551s [00:52:31.254] if (!is.null(pattern)) { 1551s [00:52:31.254] computeRestarts <- base::computeRestarts 1551s [00:52:31.254] grepl <- base::grepl 1551s [00:52:31.254] restarts <- computeRestarts(cond) 1551s [00:52:31.254] for (restart in restarts) { 1551s [00:52:31.254] name <- restart$name 1551s [00:52:31.254] if (is.null(name)) 1551s [00:52:31.254] next 1551s [00:52:31.254] if (!grepl(pattern, name)) 1551s [00:52:31.254] next 1551s [00:52:31.254] invokeRestart(restart) 1551s [00:52:31.254] muffled <- TRUE 1551s [00:52:31.254] break 1551s [00:52:31.254] } 1551s [00:52:31.254] } 1551s [00:52:31.254] } 1551s [00:52:31.254] invisible(muffled) 1551s [00:52:31.254] } 1551s [00:52:31.254] muffleCondition(cond, pattern = "^muffle") 1551s [00:52:31.254] } 1551s [00:52:31.254] } 1551s [00:52:31.254] else { 1551s [00:52:31.254] if (TRUE) { 1551s [00:52:31.254] muffleCondition <- function (cond, pattern = "^muffle") 1551s [00:52:31.254] { 1551s [00:52:31.254] inherits <- base::inherits 1551s [00:52:31.254] invokeRestart <- base::invokeRestart 1551s [00:52:31.254] is.null <- base::is.null 1551s [00:52:31.254] muffled <- FALSE 1551s [00:52:31.254] if (inherits(cond, "message")) { 1551s [00:52:31.254] muffled <- grepl(pattern, "muffleMessage") 1551s [00:52:31.254] if (muffled) 1551s [00:52:31.254] invokeRestart("muffleMessage") 1551s [00:52:31.254] } 1551s [00:52:31.254] else if (inherits(cond, "warning")) { 1551s [00:52:31.254] muffled <- grepl(pattern, "muffleWarning") 1551s [00:52:31.254] if (muffled) 1551s [00:52:31.254] invokeRestart("muffleWarning") 1551s [00:52:31.254] } 1551s [00:52:31.254] else if (inherits(cond, "condition")) { 1551s [00:52:31.254] if (!is.null(pattern)) { 1551s [00:52:31.254] computeRestarts <- base::computeRestarts 1551s [00:52:31.254] grepl <- base::grepl 1551s [00:52:31.254] restarts <- computeRestarts(cond) 1551s [00:52:31.254] for (restart in restarts) { 1551s [00:52:31.254] name <- restart$name 1551s [00:52:31.254] if (is.null(name)) 1551s [00:52:31.254] next 1551s [00:52:31.254] if (!grepl(pattern, name)) 1551s [00:52:31.254] next 1551s [00:52:31.254] invokeRestart(restart) 1551s [00:52:31.254] muffled <- TRUE 1551s [00:52:31.254] break 1551s [00:52:31.254] } 1551s [00:52:31.254] } 1551s [00:52:31.254] } 1551s [00:52:31.254] invisible(muffled) 1551s [00:52:31.254] } 1551s [00:52:31.254] muffleCondition(cond, pattern = "^muffle") 1551s [00:52:31.254] } 1551s [00:52:31.254] } 1551s [00:52:31.254] } 1551s [00:52:31.254] })) 1551s [00:52:31.254] }, error = function(ex) { 1551s [00:52:31.254] base::structure(base::list(value = NULL, visible = NULL, 1551s [00:52:31.254] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1551s [00:52:31.254] ...future.rng), started = ...future.startTime, 1551s [00:52:31.254] finished = Sys.time(), session_uuid = NA_character_, 1551s [00:52:31.254] version = "1.8"), class = "FutureResult") 1551s [00:52:31.254] }, finally = { 1551s [00:52:31.254] if (!identical(...future.workdir, getwd())) 1551s [00:52:31.254] setwd(...future.workdir) 1551s [00:52:31.254] { 1551s [00:52:31.254] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1551s [00:52:31.254] ...future.oldOptions$nwarnings <- NULL 1551s [00:52:31.254] } 1551s [00:52:31.254] base::options(...future.oldOptions) 1551s [00:52:31.254] if (.Platform$OS.type == "windows") { 1551s [00:52:31.254] old_names <- names(...future.oldEnvVars) 1551s [00:52:31.254] envs <- base::Sys.getenv() 1551s [00:52:31.254] names <- names(envs) 1551s [00:52:31.254] common <- intersect(names, old_names) 1551s [00:52:31.254] added <- setdiff(names, old_names) 1551s [00:52:31.254] removed <- setdiff(old_names, names) 1551s [00:52:31.254] changed <- common[...future.oldEnvVars[common] != 1551s [00:52:31.254] envs[common]] 1551s [00:52:31.254] NAMES <- toupper(changed) 1551s [00:52:31.254] args <- list() 1551s [00:52:31.254] for (kk in seq_along(NAMES)) { 1551s [00:52:31.254] name <- changed[[kk]] 1551s [00:52:31.254] NAME <- NAMES[[kk]] 1551s [00:52:31.254] if (name != NAME && is.element(NAME, old_names)) 1551s [00:52:31.254] next 1551s [00:52:31.254] args[[name]] <- ...future.oldEnvVars[[name]] 1551s [00:52:31.254] } 1551s [00:52:31.254] NAMES <- toupper(added) 1551s [00:52:31.254] for (kk in seq_along(NAMES)) { 1551s [00:52:31.254] name <- added[[kk]] 1551s [00:52:31.254] NAME <- NAMES[[kk]] 1551s [00:52:31.254] if (name != NAME && is.element(NAME, old_names)) 1551s [00:52:31.254] next 1551s [00:52:31.254] args[[name]] <- "" 1551s [00:52:31.254] } 1551s [00:52:31.254] NAMES <- toupper(removed) 1551s [00:52:31.254] for (kk in seq_along(NAMES)) { 1551s [00:52:31.254] name <- removed[[kk]] 1551s [00:52:31.254] NAME <- NAMES[[kk]] 1551s [00:52:31.254] if (name != NAME && is.element(NAME, old_names)) 1551s [00:52:31.254] next 1551s [00:52:31.254] args[[name]] <- ...future.oldEnvVars[[name]] 1551s [00:52:31.254] } 1551s [00:52:31.254] if (length(args) > 0) 1551s [00:52:31.254] base::do.call(base::Sys.setenv, args = args) 1551s [00:52:31.254] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1551s [00:52:31.254] } 1551s [00:52:31.254] else { 1551s [00:52:31.254] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1551s [00:52:31.254] } 1551s [00:52:31.254] { 1551s [00:52:31.254] if (base::length(...future.futureOptionsAdded) > 1551s [00:52:31.254] 0L) { 1551s [00:52:31.254] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1551s [00:52:31.254] base::names(opts) <- ...future.futureOptionsAdded 1551s [00:52:31.254] base::options(opts) 1551s [00:52:31.254] } 1551s [00:52:31.254] { 1551s [00:52:31.254] { 1551s [00:52:31.254] NULL 1551s [00:52:31.254] RNGkind("Mersenne-Twister") 1551s [00:52:31.254] base::rm(list = ".Random.seed", envir = base::globalenv(), 1551s [00:52:31.254] inherits = FALSE) 1551s [00:52:31.254] } 1551s [00:52:31.254] options(future.plan = NULL) 1551s [00:52:31.254] if (is.na(NA_character_)) 1551s [00:52:31.254] Sys.unsetenv("R_FUTURE_PLAN") 1551s [00:52:31.254] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1551s [00:52:31.254] future::plan(list(function (..., envir = parent.frame()) 1551s [00:52:31.254] { 1551s [00:52:31.254] future <- SequentialFuture(..., envir = envir) 1551s [00:52:31.254] if (!future$lazy) 1551s [00:52:31.254] future <- run(future) 1551s [00:52:31.254] invisible(future) 1551s [00:52:31.254] }), .cleanup = FALSE, .init = FALSE) 1551s [00:52:31.254] } 1551s [00:52:31.254] } 1551s [00:52:31.254] } 1551s [00:52:31.254] }) 1551s [00:52:31.254] if (TRUE) { 1551s [00:52:31.254] base::sink(type = "output", split = FALSE) 1551s [00:52:31.254] if (TRUE) { 1551s [00:52:31.254] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1551s [00:52:31.254] } 1551s [00:52:31.254] else { 1551s [00:52:31.254] ...future.result["stdout"] <- base::list(NULL) 1551s [00:52:31.254] } 1551s [00:52:31.254] base::close(...future.stdout) 1551s [00:52:31.254] ...future.stdout <- NULL 1551s [00:52:31.254] } 1551s [00:52:31.254] ...future.result$conditions <- ...future.conditions 1551s [00:52:31.254] ...future.result$finished <- base::Sys.time() 1551s [00:52:31.254] ...future.result 1551s [00:52:31.254] } 1551s [00:52:31.257] assign_globals() ... 1551s [00:52:31.257] List of 5 1551s [00:52:31.257] $ ...future.FUN :function (..., exclude = if (useNA == "no") c(NA, NaN), useNA = c("no", 1551s [00:52:31.257] "ifany", "always"), dnn = list.names(...), deparse.level = 1) 1551s [00:52:31.257] $ future.call.arguments : list() 1551s [00:52:31.257] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1551s [00:52:31.257] $ ...future.elements_ii :List of 2 1551s [00:52:31.257] ..$ a: int [1:4] 1 2 3 4 1551s [00:52:31.257] ..$ b: int [1:4] 5 6 7 8 1551s [00:52:31.257] $ ...future.seeds_ii : NULL 1551s [00:52:31.257] $ ...future.globals.maxSize: NULL 1551s [00:52:31.257] - attr(*, "where")=List of 5 1551s [00:52:31.257] ..$ ...future.FUN : 1551s [00:52:31.257] ..$ future.call.arguments : 1551s [00:52:31.257] ..$ ...future.elements_ii : 1551s [00:52:31.257] ..$ ...future.seeds_ii : 1551s [00:52:31.257] ..$ ...future.globals.maxSize: 1551s [00:52:31.257] - attr(*, "resolved")= logi FALSE 1551s [00:52:31.257] - attr(*, "total_size")= num 354224 1551s [00:52:31.257] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1551s [00:52:31.257] - attr(*, "already-done")= logi TRUE 1551s [00:52:31.270] - copied ‘...future.FUN’ to environment 1551s [00:52:31.271] - copied ‘future.call.arguments’ to environment 1551s [00:52:31.271] - copied ‘...future.elements_ii’ to environment 1551s [00:52:31.271] - copied ‘...future.seeds_ii’ to environment 1551s [00:52:31.272] - copied ‘...future.globals.maxSize’ to environment 1551s [00:52:31.272] assign_globals() ... done 1551s [00:52:31.273] plan(): Setting new future strategy stack: 1551s [00:52:31.273] List of future strategies: 1551s [00:52:31.273] 1. sequential: 1551s [00:52:31.273] - args: function (..., envir = parent.frame()) 1551s [00:52:31.273] - tweaked: FALSE 1551s [00:52:31.273] - call: NULL 1551s [00:52:31.274] plan(): nbrOfWorkers() = 1 1551s [00:52:31.276] plan(): Setting new future strategy stack: 1551s [00:52:31.276] List of future strategies: 1551s [00:52:31.276] 1. sequential: 1551s [00:52:31.276] - args: function (..., envir = parent.frame()) 1551s [00:52:31.276] - tweaked: FALSE 1551s [00:52:31.276] - call: plan(strategy) 1551s [00:52:31.277] plan(): nbrOfWorkers() = 1 1551s [00:52:31.277] SequentialFuture started (and completed) 1551s [00:52:31.278] - Launch lazy future ... done 1551s [00:52:31.278] run() for ‘SequentialFuture’ ... done 1551s [00:52:31.278] Created future: 1551s [00:52:31.279] SequentialFuture: 1551s [00:52:31.279] Label: ‘future_lapply-1’ 1551s [00:52:31.279] Expression: 1551s [00:52:31.279] { 1551s [00:52:31.279] do.call(function(...) { 1551s [00:52:31.279] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1551s [00:52:31.279] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1551s [00:52:31.279] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1551s [00:52:31.279] on.exit(options(oopts), add = TRUE) 1551s [00:52:31.279] } 1551s [00:52:31.279] { 1551s [00:52:31.279] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1551s [00:52:31.279] ...future.X_jj <- ...future.elements_ii[[jj]] 1551s [00:52:31.279] ...future.FUN(...future.X_jj, ...) 1551s [00:52:31.279] }) 1551s [00:52:31.279] } 1551s [00:52:31.279] }, args = future.call.arguments) 1551s [00:52:31.279] } 1551s [00:52:31.279] Lazy evaluation: FALSE 1551s [00:52:31.279] Asynchronous evaluation: FALSE 1551s [00:52:31.279] Local evaluation: TRUE 1551s [00:52:31.279] Environment: R_GlobalEnv 1551s [00:52:31.279] Capture standard output: TRUE 1551s [00:52:31.279] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1551s [00:52:31.279] Globals: 5 objects totaling 346.05 KiB (function ‘...future.FUN’ of 345.92 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 128 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1551s [00:52:31.279] Packages: 1551s [00:52:31.279] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1551s [00:52:31.279] Resolved: TRUE 1551s [00:52:31.279] Value: 2.27 KiB of class ‘list’ 1551s [00:52:31.279] Early signaling: FALSE 1551s [00:52:31.279] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1551s [00:52:31.279] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1551s [00:52:31.281] Chunk #1 of 1 ... DONE 1551s [00:52:31.281] Launching 1 futures (chunks) ... DONE 1551s [00:52:31.281] Resolving 1 futures (chunks) ... 1551s [00:52:31.281] resolve() on list ... 1551s [00:52:31.282] recursive: 0 1551s [00:52:31.282] length: 1 1551s [00:52:31.282] 1551s [00:52:31.282] resolved() for ‘SequentialFuture’ ... 1551s [00:52:31.282] - state: ‘finished’ 1551s [00:52:31.283] - run: TRUE 1551s [00:52:31.283] - result: ‘FutureResult’ 1551s [00:52:31.283] resolved() for ‘SequentialFuture’ ... done 1551s [00:52:31.283] Future #1 1551s [00:52:31.283] signalConditionsASAP(SequentialFuture, pos=1) ... 1551s [00:52:31.284] - nx: 1 1551s [00:52:31.284] - relay: TRUE 1551s [00:52:31.284] - stdout: TRUE 1551s [00:52:31.284] - signal: TRUE 1551s [00:52:31.284] - resignal: FALSE 1551s [00:52:31.284] - force: TRUE 1551s [00:52:31.284] - relayed: [n=1] FALSE 1551s [00:52:31.284] - queued futures: [n=1] FALSE 1551s [00:52:31.284] - until=1 1551s [00:52:31.285] - relaying element #1 1551s [00:52:31.285] - relayed: [n=1] TRUE 1551s [00:52:31.285] - queued futures: [n=1] TRUE 1551s [00:52:31.285] signalConditionsASAP(SequentialFuture, pos=1) ... done 1551s [00:52:31.285] length: 0 (resolved future 1) 1551s [00:52:31.285] Relaying remaining futures 1551s [00:52:31.285] signalConditionsASAP(NULL, pos=0) ... 1551s [00:52:31.285] - nx: 1 1551s [00:52:31.286] - relay: TRUE 1551s [00:52:31.286] - stdout: TRUE 1551s [00:52:31.286] - signal: TRUE 1551s [00:52:31.286] - resignal: FALSE 1551s [00:52:31.286] - force: TRUE 1551s [00:52:31.287] - relayed: [n=1] TRUE 1551s [00:52:31.287] - queued futures: [n=1] TRUE 1551s - flush all 1551s [00:52:31.287] - relayed: [n=1] TRUE 1551s [00:52:31.287] - queued futures: [n=1] TRUE 1551s [00:52:31.287] signalConditionsASAP(NULL, pos=0) ... done 1551s [00:52:31.288] resolve() on list ... DONE 1551s [00:52:31.288] - Number of value chunks collected: 1 1551s [00:52:31.288] Resolving 1 futures (chunks) ... DONE 1551s [00:52:31.288] Reducing values from 1 chunks ... 1551s [00:52:31.288] - Number of values collected after concatenation: 2 1551s [00:52:31.289] - Number of values expected: 2 1551s [00:52:31.289] Reducing values from 1 chunks ... DONE 1551s [00:52:31.289] future_lapply() ... DONE 1551s - future_lapply(x, ...) where length(x) != length(as.list(x)) ... 1551s [00:52:31.291] future_lapply() ... 1551s [00:52:31.292] Number of chunks: 1 1551s [00:52:31.292] getGlobalsAndPackagesXApply() ... 1551s [00:52:31.292] - future.globals: TRUE 1551s [00:52:31.292] getGlobalsAndPackages() ... 1551s [00:52:31.292] Searching for globals... 1551s [00:52:31.294] - globals found: [1] ‘FUN’ 1551s [00:52:31.294] Searching for globals ... DONE 1551s [00:52:31.294] Resolving globals: FALSE 1551s [00:52:31.295] The total size of the 1 globals is 56 bytes (56 bytes) 1551s [00:52:31.295] The total size of the 1 globals exported for future expression (‘FUN()’) is 56 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (56 bytes of class ‘function’) 1551s [00:52:31.296] - globals: [1] ‘FUN’ 1551s [00:52:31.296] 1551s [00:52:31.296] getGlobalsAndPackages() ... DONE 1551s [00:52:31.296] - globals found/used: [n=1] ‘FUN’ 1551s [00:52:31.296] - needed namespaces: [n=0] 1551s [00:52:31.297] Finding globals ... DONE 1551s [00:52:31.297] - use_args: TRUE 1551s [00:52:31.297] - Getting '...' globals ... 1551s [00:52:31.298] resolve() on list ... 1551s [00:52:31.298] recursive: 0 1551s [00:52:31.299] length: 1 1551s [00:52:31.299] elements: ‘...’ 1551s [00:52:31.299] length: 0 (resolved future 1) 1551s [00:52:31.299] resolve() on list ... DONE 1551s [00:52:31.299] - '...' content: [n=0] 1551s [00:52:31.299] List of 1 1551s [00:52:31.299] $ ...: list() 1551s [00:52:31.299] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1551s [00:52:31.299] - attr(*, "where")=List of 1 1551s [00:52:31.299] ..$ ...: 1551s [00:52:31.299] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1551s [00:52:31.299] - attr(*, "resolved")= logi TRUE 1551s [00:52:31.299] - attr(*, "total_size")= num NA 1551s [00:52:31.304] - Getting '...' globals ... DONE 1551s [00:52:31.305] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1551s [00:52:31.305] List of 2 1551s [00:52:31.305] $ ...future.FUN:function (x) 1551s [00:52:31.305] $ ... : list() 1551s [00:52:31.305] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1551s [00:52:31.305] - attr(*, "where")=List of 2 1551s [00:52:31.305] ..$ ...future.FUN: 1551s [00:52:31.305] ..$ ... : 1551s [00:52:31.305] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1551s [00:52:31.305] - attr(*, "resolved")= logi FALSE 1551s [00:52:31.305] - attr(*, "total_size")= num 56 1551s [00:52:31.314] Packages to be attached in all futures: [n=0] 1551s [00:52:31.314] getGlobalsAndPackagesXApply() ... DONE 1551s [00:52:31.315] Number of futures (= number of chunks): 1 1551s [00:52:31.315] Launching 1 futures (chunks) ... 1551s [00:52:31.315] Chunk #1 of 1 ... 1551s [00:52:31.315] - Finding globals in 'X' for chunk #1 ... 1551s [00:52:31.315] getGlobalsAndPackages() ... 1551s [00:52:31.315] Searching for globals... 1551s [00:52:31.316] 1551s [00:52:31.316] Searching for globals ... DONE 1551s [00:52:31.316] - globals: [0] 1551s [00:52:31.316] getGlobalsAndPackages() ... DONE 1551s [00:52:31.317] + additional globals found: [n=0] 1551s [00:52:31.317] + additional namespaces needed: [n=0] 1551s [00:52:31.317] - Finding globals in 'X' for chunk #1 ... DONE 1551s [00:52:31.317] - seeds: 1551s [00:52:31.317] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1551s [00:52:31.318] getGlobalsAndPackages() ... 1551s [00:52:31.318] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1551s [00:52:31.318] Resolving globals: FALSE 1551s [00:52:31.318] Tweak future expression to call with '...' arguments ... 1551s [00:52:31.318] { 1551s [00:52:31.318] do.call(function(...) { 1551s [00:52:31.318] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1551s [00:52:31.318] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1551s [00:52:31.318] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1551s [00:52:31.318] on.exit(options(oopts), add = TRUE) 1551s [00:52:31.318] } 1551s [00:52:31.318] { 1551s [00:52:31.318] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1551s [00:52:31.318] ...future.X_jj <- ...future.elements_ii[[jj]] 1551s [00:52:31.318] ...future.FUN(...future.X_jj, ...) 1551s [00:52:31.318] }) 1551s [00:52:31.318] } 1551s [00:52:31.318] }, args = future.call.arguments) 1551s [00:52:31.318] } 1551s [00:52:31.320] Tweak future expression to call with '...' arguments ... DONE 1551s [00:52:31.321] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1551s [00:52:31.321] 1551s [00:52:31.321] getGlobalsAndPackages() ... DONE 1551s [00:52:31.322] run() for ‘Future’ ... 1551s [00:52:31.322] - state: ‘created’ 1551s [00:52:31.323] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1551s [00:52:31.323] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1551s [00:52:31.324] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1551s [00:52:31.324] - Field: ‘label’ 1551s [00:52:31.324] - Field: ‘local’ 1551s [00:52:31.324] - Field: ‘owner’ 1551s [00:52:31.324] - Field: ‘envir’ 1551s [00:52:31.324] - Field: ‘packages’ 1551s [00:52:31.324] - Field: ‘gc’ 1551s [00:52:31.324] - Field: ‘conditions’ 1551s [00:52:31.325] - Field: ‘expr’ 1551s [00:52:31.325] - Field: ‘uuid’ 1551s [00:52:31.325] - Field: ‘seed’ 1551s [00:52:31.325] - Field: ‘version’ 1551s [00:52:31.325] - Field: ‘result’ 1551s [00:52:31.325] - Field: ‘asynchronous’ 1551s [00:52:31.325] - Field: ‘calls’ 1551s [00:52:31.326] - Field: ‘globals’ 1551s [00:52:31.326] - Field: ‘stdout’ 1551s [00:52:31.327] - Field: ‘earlySignal’ 1551s [00:52:31.327] - Field: ‘lazy’ 1551s [00:52:31.327] - Field: ‘state’ 1551s [00:52:31.327] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1551s [00:52:31.327] - Launch lazy future ... 1551s [00:52:31.328] Packages needed by the future expression (n = 0): 1551s [00:52:31.328] Packages needed by future strategies (n = 0): 1551s [00:52:31.329] { 1551s [00:52:31.329] { 1551s [00:52:31.329] { 1551s [00:52:31.329] ...future.startTime <- base::Sys.time() 1551s [00:52:31.329] { 1551s [00:52:31.329] { 1551s [00:52:31.329] { 1551s [00:52:31.329] base::local({ 1551s [00:52:31.329] has_future <- base::requireNamespace("future", 1551s [00:52:31.329] quietly = TRUE) 1551s [00:52:31.329] if (has_future) { 1551s [00:52:31.329] ns <- base::getNamespace("future") 1551s [00:52:31.329] version <- ns[[".package"]][["version"]] 1551s [00:52:31.329] if (is.null(version)) 1551s [00:52:31.329] version <- utils::packageVersion("future") 1551s [00:52:31.329] } 1551s [00:52:31.329] else { 1551s [00:52:31.329] version <- NULL 1551s [00:52:31.329] } 1551s [00:52:31.329] if (!has_future || version < "1.8.0") { 1551s [00:52:31.329] info <- base::c(r_version = base::gsub("R version ", 1551s [00:52:31.329] "", base::R.version$version.string), 1551s [00:52:31.329] platform = base::sprintf("%s (%s-bit)", 1551s [00:52:31.329] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1551s [00:52:31.329] os = base::paste(base::Sys.info()[base::c("sysname", 1551s [00:52:31.329] "release", "version")], collapse = " "), 1551s [00:52:31.329] hostname = base::Sys.info()[["nodename"]]) 1551s [00:52:31.329] info <- base::sprintf("%s: %s", base::names(info), 1551s [00:52:31.329] info) 1551s [00:52:31.329] info <- base::paste(info, collapse = "; ") 1551s [00:52:31.329] if (!has_future) { 1551s [00:52:31.329] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1551s [00:52:31.329] info) 1551s [00:52:31.329] } 1551s [00:52:31.329] else { 1551s [00:52:31.329] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1551s [00:52:31.329] info, version) 1551s [00:52:31.329] } 1551s [00:52:31.329] base::stop(msg) 1551s [00:52:31.329] } 1551s [00:52:31.329] }) 1551s [00:52:31.329] } 1551s [00:52:31.329] options(future.plan = NULL) 1551s [00:52:31.329] Sys.unsetenv("R_FUTURE_PLAN") 1551s [00:52:31.329] future::plan("default", .cleanup = FALSE, .init = FALSE) 1551s [00:52:31.329] } 1551s [00:52:31.329] ...future.workdir <- getwd() 1551s [00:52:31.329] } 1551s [00:52:31.329] ...future.oldOptions <- base::as.list(base::.Options) 1551s [00:52:31.329] ...future.oldEnvVars <- base::Sys.getenv() 1551s [00:52:31.329] } 1551s [00:52:31.329] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1551s [00:52:31.329] future.globals.maxSize = NULL, future.globals.method = NULL, 1551s [00:52:31.329] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1551s [00:52:31.329] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1551s [00:52:31.329] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1551s [00:52:31.329] future.stdout.windows.reencode = NULL, width = 80L) 1551s [00:52:31.329] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1551s [00:52:31.329] base::names(...future.oldOptions)) 1551s [00:52:31.329] } 1551s [00:52:31.329] if (FALSE) { 1551s [00:52:31.329] } 1551s [00:52:31.329] else { 1551s [00:52:31.329] if (TRUE) { 1551s [00:52:31.329] ...future.stdout <- base::rawConnection(base::raw(0L), 1551s [00:52:31.329] open = "w") 1551s [00:52:31.329] } 1551s [00:52:31.329] else { 1551s [00:52:31.329] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1551s [00:52:31.329] windows = "NUL", "/dev/null"), open = "w") 1551s [00:52:31.329] } 1551s [00:52:31.329] base::sink(...future.stdout, type = "output", split = FALSE) 1551s [00:52:31.329] base::on.exit(if (!base::is.null(...future.stdout)) { 1551s [00:52:31.329] base::sink(type = "output", split = FALSE) 1551s [00:52:31.329] base::close(...future.stdout) 1551s [00:52:31.329] }, add = TRUE) 1551s [00:52:31.329] } 1551s [00:52:31.329] ...future.frame <- base::sys.nframe() 1551s [00:52:31.329] ...future.conditions <- base::list() 1551s [00:52:31.329] ...future.rng <- base::globalenv()$.Random.seed 1551s [00:52:31.329] if (FALSE) { 1551s [00:52:31.329] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1551s [00:52:31.329] "...future.value", "...future.globalenv.names", ".Random.seed") 1551s [00:52:31.329] } 1551s [00:52:31.329] ...future.result <- base::tryCatch({ 1551s [00:52:31.329] base::withCallingHandlers({ 1551s [00:52:31.329] ...future.value <- base::withVisible(base::local({ 1551s [00:52:31.329] do.call(function(...) { 1551s [00:52:31.329] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1551s [00:52:31.329] if (!identical(...future.globals.maxSize.org, 1551s [00:52:31.329] ...future.globals.maxSize)) { 1551s [00:52:31.329] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1551s [00:52:31.329] on.exit(options(oopts), add = TRUE) 1551s [00:52:31.329] } 1551s [00:52:31.329] { 1551s [00:52:31.329] lapply(seq_along(...future.elements_ii), 1551s [00:52:31.329] FUN = function(jj) { 1551s [00:52:31.329] ...future.X_jj <- ...future.elements_ii[[jj]] 1551s [00:52:31.329] ...future.FUN(...future.X_jj, ...) 1551s [00:52:31.329] }) 1551s [00:52:31.329] } 1551s [00:52:31.329] }, args = future.call.arguments) 1551s [00:52:31.329] })) 1551s [00:52:31.329] future::FutureResult(value = ...future.value$value, 1551s [00:52:31.329] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1551s [00:52:31.329] ...future.rng), globalenv = if (FALSE) 1551s [00:52:31.329] list(added = base::setdiff(base::names(base::.GlobalEnv), 1551s [00:52:31.329] ...future.globalenv.names)) 1551s [00:52:31.329] else NULL, started = ...future.startTime, version = "1.8") 1551s [00:52:31.329] }, condition = base::local({ 1551s [00:52:31.329] c <- base::c 1551s [00:52:31.329] inherits <- base::inherits 1551s [00:52:31.329] invokeRestart <- base::invokeRestart 1551s [00:52:31.329] length <- base::length 1551s [00:52:31.329] list <- base::list 1551s [00:52:31.329] seq.int <- base::seq.int 1551s [00:52:31.329] signalCondition <- base::signalCondition 1551s [00:52:31.329] sys.calls <- base::sys.calls 1551s [00:52:31.329] `[[` <- base::`[[` 1551s [00:52:31.329] `+` <- base::`+` 1551s [00:52:31.329] `<<-` <- base::`<<-` 1551s [00:52:31.329] sysCalls <- function(calls = sys.calls(), from = 1L) { 1551s [00:52:31.329] calls[seq.int(from = from + 12L, to = length(calls) - 1551s [00:52:31.329] 3L)] 1551s [00:52:31.329] } 1551s [00:52:31.329] function(cond) { 1551s [00:52:31.329] is_error <- inherits(cond, "error") 1551s [00:52:31.329] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1551s [00:52:31.329] NULL) 1551s [00:52:31.329] if (is_error) { 1551s [00:52:31.329] sessionInformation <- function() { 1551s [00:52:31.329] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1551s [00:52:31.329] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1551s [00:52:31.329] search = base::search(), system = base::Sys.info()) 1551s [00:52:31.329] } 1551s [00:52:31.329] ...future.conditions[[length(...future.conditions) + 1551s [00:52:31.329] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1551s [00:52:31.329] cond$call), session = sessionInformation(), 1551s [00:52:31.329] timestamp = base::Sys.time(), signaled = 0L) 1551s [00:52:31.329] signalCondition(cond) 1551s [00:52:31.329] } 1551s [00:52:31.329] else if (!ignore && TRUE && inherits(cond, c("condition", 1551s [00:52:31.329] "immediateCondition"))) { 1551s [00:52:31.329] signal <- TRUE && inherits(cond, "immediateCondition") 1551s [00:52:31.329] ...future.conditions[[length(...future.conditions) + 1551s [00:52:31.329] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1551s [00:52:31.329] if (TRUE && !signal) { 1551s [00:52:31.329] muffleCondition <- function (cond, pattern = "^muffle") 1551s [00:52:31.329] { 1551s [00:52:31.329] inherits <- base::inherits 1551s [00:52:31.329] invokeRestart <- base::invokeRestart 1551s [00:52:31.329] is.null <- base::is.null 1551s [00:52:31.329] muffled <- FALSE 1551s [00:52:31.329] if (inherits(cond, "message")) { 1551s [00:52:31.329] muffled <- grepl(pattern, "muffleMessage") 1551s [00:52:31.329] if (muffled) 1551s [00:52:31.329] invokeRestart("muffleMessage") 1551s [00:52:31.329] } 1551s [00:52:31.329] else if (inherits(cond, "warning")) { 1551s [00:52:31.329] muffled <- grepl(pattern, "muffleWarning") 1551s [00:52:31.329] if (muffled) 1551s [00:52:31.329] invokeRestart("muffleWarning") 1551s [00:52:31.329] } 1551s [00:52:31.329] else if (inherits(cond, "condition")) { 1551s [00:52:31.329] if (!is.null(pattern)) { 1551s [00:52:31.329] computeRestarts <- base::computeRestarts 1551s [00:52:31.329] grepl <- base::grepl 1551s [00:52:31.329] restarts <- computeRestarts(cond) 1551s [00:52:31.329] for (restart in restarts) { 1551s [00:52:31.329] name <- restart$name 1551s [00:52:31.329] if (is.null(name)) 1551s [00:52:31.329] next 1551s [00:52:31.329] if (!grepl(pattern, name)) 1551s [00:52:31.329] next 1551s [00:52:31.329] invokeRestart(restart) 1551s [00:52:31.329] muffled <- TRUE 1551s [00:52:31.329] break 1551s [00:52:31.329] } 1551s [00:52:31.329] } 1551s [00:52:31.329] } 1551s [00:52:31.329] invisible(muffled) 1551s [00:52:31.329] } 1551s [00:52:31.329] muffleCondition(cond, pattern = "^muffle") 1551s [00:52:31.329] } 1551s [00:52:31.329] } 1551s [00:52:31.329] else { 1551s [00:52:31.329] if (TRUE) { 1551s [00:52:31.329] muffleCondition <- function (cond, pattern = "^muffle") 1551s [00:52:31.329] { 1551s [00:52:31.329] inherits <- base::inherits 1551s [00:52:31.329] invokeRestart <- base::invokeRestart 1551s [00:52:31.329] is.null <- base::is.null 1551s [00:52:31.329] muffled <- FALSE 1551s [00:52:31.329] if (inherits(cond, "message")) { 1551s [00:52:31.329] muffled <- grepl(pattern, "muffleMessage") 1551s [00:52:31.329] if (muffled) 1551s [00:52:31.329] invokeRestart("muffleMessage") 1551s [00:52:31.329] } 1551s [00:52:31.329] else if (inherits(cond, "warning")) { 1551s [00:52:31.329] muffled <- grepl(pattern, "muffleWarning") 1551s [00:52:31.329] if (muffled) 1551s [00:52:31.329] invokeRestart("muffleWarning") 1551s [00:52:31.329] } 1551s [00:52:31.329] else if (inherits(cond, "condition")) { 1551s [00:52:31.329] if (!is.null(pattern)) { 1551s [00:52:31.329] computeRestarts <- base::computeRestarts 1551s [00:52:31.329] grepl <- base::grepl 1551s [00:52:31.329] restarts <- computeRestarts(cond) 1551s [00:52:31.329] for (restart in restarts) { 1551s [00:52:31.329] name <- restart$name 1551s [00:52:31.329] if (is.null(name)) 1551s [00:52:31.329] next 1551s [00:52:31.329] if (!grepl(pattern, name)) 1551s [00:52:31.329] next 1551s [00:52:31.329] invokeRestart(restart) 1551s [00:52:31.329] muffled <- TRUE 1551s [00:52:31.329] break 1551s [00:52:31.329] } 1551s [00:52:31.329] } 1551s [00:52:31.329] } 1551s [00:52:31.329] invisible(muffled) 1551s [00:52:31.329] } 1551s [00:52:31.329] muffleCondition(cond, pattern = "^muffle") 1551s [00:52:31.329] } 1551s [00:52:31.329] } 1551s [00:52:31.329] } 1551s [00:52:31.329] })) 1551s [00:52:31.329] }, error = function(ex) { 1551s [00:52:31.329] base::structure(base::list(value = NULL, visible = NULL, 1551s [00:52:31.329] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1551s [00:52:31.329] ...future.rng), started = ...future.startTime, 1551s [00:52:31.329] finished = Sys.time(), session_uuid = NA_character_, 1551s [00:52:31.329] version = "1.8"), class = "FutureResult") 1551s [00:52:31.329] }, finally = { 1551s [00:52:31.329] if (!identical(...future.workdir, getwd())) 1551s [00:52:31.329] setwd(...future.workdir) 1551s [00:52:31.329] { 1551s [00:52:31.329] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1551s [00:52:31.329] ...future.oldOptions$nwarnings <- NULL 1551s [00:52:31.329] } 1551s [00:52:31.329] base::options(...future.oldOptions) 1551s [00:52:31.329] if (.Platform$OS.type == "windows") { 1551s [00:52:31.329] old_names <- names(...future.oldEnvVars) 1551s [00:52:31.329] envs <- base::Sys.getenv() 1551s [00:52:31.329] names <- names(envs) 1551s [00:52:31.329] common <- intersect(names, old_names) 1551s [00:52:31.329] added <- setdiff(names, old_names) 1551s [00:52:31.329] removed <- setdiff(old_names, names) 1551s [00:52:31.329] changed <- common[...future.oldEnvVars[common] != 1551s [00:52:31.329] envs[common]] 1551s [00:52:31.329] NAMES <- toupper(changed) 1551s [00:52:31.329] args <- list() 1551s [00:52:31.329] for (kk in seq_along(NAMES)) { 1551s [00:52:31.329] name <- changed[[kk]] 1551s [00:52:31.329] NAME <- NAMES[[kk]] 1551s [00:52:31.329] if (name != NAME && is.element(NAME, old_names)) 1551s [00:52:31.329] next 1551s [00:52:31.329] args[[name]] <- ...future.oldEnvVars[[name]] 1551s [00:52:31.329] } 1551s [00:52:31.329] NAMES <- toupper(added) 1551s [00:52:31.329] for (kk in seq_along(NAMES)) { 1551s [00:52:31.329] name <- added[[kk]] 1551s [00:52:31.329] NAME <- NAMES[[kk]] 1551s [00:52:31.329] if (name != NAME && is.element(NAME, old_names)) 1551s [00:52:31.329] next 1551s [00:52:31.329] args[[name]] <- "" 1551s [00:52:31.329] } 1551s [00:52:31.329] NAMES <- toupper(removed) 1551s [00:52:31.329] for (kk in seq_along(NAMES)) { 1551s [00:52:31.329] name <- removed[[kk]] 1551s [00:52:31.329] NAME <- NAMES[[kk]] 1551s [00:52:31.329] if (name != NAME && is.element(NAME, old_names)) 1551s [00:52:31.329] next 1551s [00:52:31.329] args[[name]] <- ...future.oldEnvVars[[name]] 1551s [00:52:31.329] } 1551s [00:52:31.329] if (length(args) > 0) 1551s [00:52:31.329] base::do.call(base::Sys.setenv, args = args) 1551s [00:52:31.329] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1551s [00:52:31.329] } 1551s [00:52:31.329] else { 1551s [00:52:31.329] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1551s [00:52:31.329] } 1551s [00:52:31.329] { 1551s [00:52:31.329] if (base::length(...future.futureOptionsAdded) > 1551s [00:52:31.329] 0L) { 1551s [00:52:31.329] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1551s [00:52:31.329] base::names(opts) <- ...future.futureOptionsAdded 1551s [00:52:31.329] base::options(opts) 1551s [00:52:31.329] } 1551s [00:52:31.329] { 1551s [00:52:31.329] { 1551s [00:52:31.329] NULL 1551s [00:52:31.329] RNGkind("Mersenne-Twister") 1551s [00:52:31.329] base::rm(list = ".Random.seed", envir = base::globalenv(), 1551s [00:52:31.329] inherits = FALSE) 1551s [00:52:31.329] } 1551s [00:52:31.329] options(future.plan = NULL) 1551s [00:52:31.329] if (is.na(NA_character_)) 1551s [00:52:31.329] Sys.unsetenv("R_FUTURE_PLAN") 1551s [00:52:31.329] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1551s [00:52:31.329] future::plan(list(function (..., envir = parent.frame()) 1551s [00:52:31.329] { 1551s [00:52:31.329] future <- SequentialFuture(..., envir = envir) 1551s [00:52:31.329] if (!future$lazy) 1551s [00:52:31.329] future <- run(future) 1551s [00:52:31.329] invisible(future) 1551s [00:52:31.329] }), .cleanup = FALSE, .init = FALSE) 1551s [00:52:31.329] } 1551s [00:52:31.329] } 1551s [00:52:31.329] } 1551s [00:52:31.329] }) 1551s [00:52:31.329] if (TRUE) { 1551s [00:52:31.329] base::sink(type = "output", split = FALSE) 1551s [00:52:31.329] if (TRUE) { 1551s [00:52:31.329] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1551s [00:52:31.329] } 1551s [00:52:31.329] else { 1551s [00:52:31.329] ...future.result["stdout"] <- base::list(NULL) 1551s [00:52:31.329] } 1551s [00:52:31.329] base::close(...future.stdout) 1551s [00:52:31.329] ...future.stdout <- NULL 1551s [00:52:31.329] } 1551s [00:52:31.329] ...future.result$conditions <- ...future.conditions 1551s [00:52:31.329] ...future.result$finished <- base::Sys.time() 1551s [00:52:31.329] ...future.result 1551s [00:52:31.329] } 1551s [00:52:31.336] assign_globals() ... 1551s [00:52:31.336] List of 5 1551s [00:52:31.336] $ ...future.FUN :function (x) 1551s [00:52:31.336] $ future.call.arguments : list() 1551s [00:52:31.336] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1551s [00:52:31.336] $ ...future.elements_ii :List of 3 1551s [00:52:31.336] ..$ a: num 1 1551s [00:52:31.336] ..$ b: num 2 1551s [00:52:31.336] ..$ c: num 3 1551s [00:52:31.336] $ ...future.seeds_ii : NULL 1551s [00:52:31.336] $ ...future.globals.maxSize: NULL 1551s [00:52:31.336] - attr(*, "where")=List of 5 1551s [00:52:31.336] ..$ ...future.FUN : 1551s [00:52:31.336] ..$ future.call.arguments : 1551s [00:52:31.336] ..$ ...future.elements_ii : 1551s [00:52:31.336] ..$ ...future.seeds_ii : 1551s [00:52:31.336] ..$ ...future.globals.maxSize: 1551s [00:52:31.336] - attr(*, "resolved")= logi FALSE 1551s [00:52:31.336] - attr(*, "total_size")= num 56 1551s [00:52:31.336] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1551s [00:52:31.336] - attr(*, "already-done")= logi TRUE 1551s [00:52:31.344] - copied ‘...future.FUN’ to environment 1551s [00:52:31.344] - copied ‘future.call.arguments’ to environment 1551s [00:52:31.345] - copied ‘...future.elements_ii’ to environment 1551s [00:52:31.345] - copied ‘...future.seeds_ii’ to environment 1551s [00:52:31.345] - copied ‘...future.globals.maxSize’ to environment 1551s [00:52:31.345] assign_globals() ... done 1551s [00:52:31.346] plan(): Setting new future strategy stack: 1551s [00:52:31.346] List of future strategies: 1551s [00:52:31.346] 1. sequential: 1551s [00:52:31.346] - args: function (..., envir = parent.frame()) 1551s [00:52:31.346] - tweaked: FALSE 1551s [00:52:31.346] - call: NULL 1551s [00:52:31.346] plan(): nbrOfWorkers() = 1 1551s [00:52:31.347] plan(): Setting new future strategy stack: 1551s [00:52:31.347] List of future strategies: 1551s [00:52:31.347] 1. sequential: 1551s [00:52:31.347] - args: function (..., envir = parent.frame()) 1551s [00:52:31.347] - tweaked: FALSE 1551s [00:52:31.347] - call: plan(strategy) 1551s [00:52:31.348] plan(): nbrOfWorkers() = 1 1551s [00:52:31.348] SequentialFuture started (and completed) 1551s [00:52:31.348] - Launch lazy future ... done 1551s [00:52:31.349] run() for ‘SequentialFuture’ ... done 1551s [00:52:31.349] Created future: 1551s [00:52:31.349] SequentialFuture: 1551s [00:52:31.349] Label: ‘future_lapply-1’ 1551s [00:52:31.349] Expression: 1551s [00:52:31.349] { 1551s [00:52:31.349] do.call(function(...) { 1551s [00:52:31.349] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1551s [00:52:31.349] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1551s [00:52:31.349] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1551s [00:52:31.349] on.exit(options(oopts), add = TRUE) 1551s [00:52:31.349] } 1551s [00:52:31.349] { 1551s [00:52:31.349] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1551s [00:52:31.349] ...future.X_jj <- ...future.elements_ii[[jj]] 1551s [00:52:31.349] ...future.FUN(...future.X_jj, ...) 1551s [00:52:31.349] }) 1551s [00:52:31.349] } 1551s [00:52:31.349] }, args = future.call.arguments) 1551s [00:52:31.349] } 1551s [00:52:31.349] Lazy evaluation: FALSE 1551s [00:52:31.349] Asynchronous evaluation: FALSE 1551s [00:52:31.349] Local evaluation: TRUE 1551s [00:52:31.349] Environment: R_GlobalEnv 1551s [00:52:31.349] Capture standard output: TRUE 1551s [00:52:31.349] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1551s [00:52:31.349] Globals: 5 objects totaling 224 bytes (function ‘...future.FUN’ of 56 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1551s [00:52:31.349] Packages: 1551s [00:52:31.349] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1551s [00:52:31.349] Resolved: TRUE 1551s [00:52:31.349] Value: 168 bytes of class ‘list’ 1551s [00:52:31.349] Early signaling: FALSE 1551s [00:52:31.349] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1551s [00:52:31.349] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1551s [00:52:31.351] Chunk #1 of 1 ... DONE 1551s [00:52:31.352] Launching 1 futures (chunks) ... DONE 1551s [00:52:31.352] Resolving 1 futures (chunks) ... 1551s [00:52:31.352] resolve() on list ... 1551s [00:52:31.352] recursive: 0 1551s [00:52:31.352] length: 1 1551s [00:52:31.352] 1551s [00:52:31.352] resolved() for ‘SequentialFuture’ ... 1551s [00:52:31.353] - state: ‘finished’ 1551s [00:52:31.353] - run: TRUE 1551s [00:52:31.353] - result: ‘FutureResult’ 1551s [00:52:31.353] resolved() for ‘SequentialFuture’ ... done 1551s [00:52:31.353] Future #1 1551s [00:52:31.354] signalConditionsASAP(SequentialFuture, pos=1) ... 1551s [00:52:31.354] - nx: 1 1551s [00:52:31.354] - relay: TRUE 1551s [00:52:31.354] - stdout: TRUE 1551s [00:52:31.354] - signal: TRUE 1551s [00:52:31.355] - resignal: FALSE 1551s [00:52:31.355] - force: TRUE 1551s [00:52:31.355] - relayed: [n=1] FALSE 1551s [00:52:31.355] - queued futures: [n=1] FALSE 1551s [00:52:31.355] - until=1 1551s [00:52:31.355] - relaying element #1 1551s [00:52:31.356] - relayed: [n=1] TRUE 1551s [00:52:31.356] - queued futures: [n=1] TRUE 1551s [00:52:31.356] signalConditionsASAP(SequentialFuture, pos=1) ... done 1551s [00:52:31.356] length: 0 (resolved future 1) 1551s [00:52:31.356] Relaying remaining futures 1551s [00:52:31.357] signalConditionsASAP(NULL, pos=0) ... 1551s [00:52:31.357] - nx: 1 1551s [00:52:31.359] - relay: TRUE 1551s [00:52:31.359] - stdout: TRUE 1551s [00:52:31.359] - signal: TRUE 1551s [00:52:31.359] - resignal: FALSE 1551s [00:52:31.359] - force: TRUE 1551s [00:52:31.360] - relayed: [n=1] TRUE 1551s [00:52:31.360] - queued futures: [n=1] TRUE 1551s - flush all 1551s [00:52:31.360] - relayed: [n=1] TRUE 1551s [00:52:31.361] - queued futures: [n=1] TRUE 1551s [00:52:31.361] signalConditionsASAP(NULL, pos=0) ... done 1551s [00:52:31.362] resolve() on list ... DONE 1551s [00:52:31.362] - Number of value chunks collected: 1 1551s [00:52:31.362] Resolving 1 futures (chunks) ... DONE 1551s [00:52:31.362] Reducing values from 1 chunks ... 1551s [00:52:31.363] - Number of values collected after concatenation: 3 1551s [00:52:31.363] - Number of values expected: 3 1551s [00:52:31.363] Reducing values from 1 chunks ... DONE 1551s [00:52:31.363] future_lapply() ... DONE 1551s - future_lapply(x, ...) where x[[i]] subsets via S3 method ... 1551s [00:52:31.363] future_lapply() ... 1551s [00:52:31.364] Number of chunks: 1 1551s [00:52:31.364] getGlobalsAndPackagesXApply() ... 1551s [00:52:31.365] - future.globals: TRUE 1551s [00:52:31.365] getGlobalsAndPackages() ... 1551s [00:52:31.365] Searching for globals... 1551s [00:52:31.366] - globals found: [1] ‘FUN’ 1551s [00:52:31.366] Searching for globals ... DONE 1551s [00:52:31.367] Resolving globals: FALSE 1551s [00:52:31.367] The total size of the 1 globals is 848 bytes (848 bytes) 1551s [00:52:31.367] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1551s [00:52:31.367] - globals: [1] ‘FUN’ 1551s [00:52:31.367] 1551s [00:52:31.368] getGlobalsAndPackages() ... DONE 1551s [00:52:31.368] - globals found/used: [n=1] ‘FUN’ 1551s [00:52:31.368] - needed namespaces: [n=0] 1551s [00:52:31.368] Finding globals ... DONE 1551s [00:52:31.368] - use_args: TRUE 1551s [00:52:31.368] - Getting '...' globals ... 1551s [00:52:31.369] resolve() on list ... 1551s [00:52:31.369] recursive: 0 1551s [00:52:31.369] length: 1 1551s [00:52:31.369] elements: ‘...’ 1551s [00:52:31.369] length: 0 (resolved future 1) 1551s [00:52:31.369] resolve() on list ... DONE 1551s [00:52:31.369] - '...' content: [n=0] 1551s [00:52:31.369] List of 1 1551s [00:52:31.369] $ ...: list() 1551s [00:52:31.369] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1551s [00:52:31.369] - attr(*, "where")=List of 1 1551s [00:52:31.369] ..$ ...: 1551s [00:52:31.369] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1551s [00:52:31.369] - attr(*, "resolved")= logi TRUE 1551s [00:52:31.369] - attr(*, "total_size")= num NA 1551s [00:52:31.373] - Getting '...' globals ... DONE 1551s [00:52:31.373] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1551s [00:52:31.373] List of 2 1551s [00:52:31.373] $ ...future.FUN:function (x) 1551s [00:52:31.373] $ ... : list() 1551s [00:52:31.373] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1551s [00:52:31.373] - attr(*, "where")=List of 2 1551s [00:52:31.373] ..$ ...future.FUN: 1551s [00:52:31.373] ..$ ... : 1551s [00:52:31.373] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1551s [00:52:31.373] - attr(*, "resolved")= logi FALSE 1551s [00:52:31.373] - attr(*, "total_size")= num 848 1551s [00:52:31.377] Packages to be attached in all futures: [n=0] 1551s [00:52:31.377] getGlobalsAndPackagesXApply() ... DONE 1551s [00:52:31.377] Number of futures (= number of chunks): 1 1551s [00:52:31.377] Launching 1 futures (chunks) ... 1551s [00:52:31.377] Chunk #1 of 1 ... 1551s [00:52:31.377] - Finding globals in 'X' for chunk #1 ... 1551s [00:52:31.378] getGlobalsAndPackages() ... 1551s [00:52:31.378] Searching for globals... 1551s [00:52:31.378] 1551s [00:52:31.379] Searching for globals ... DONE 1551s [00:52:31.379] - globals: [0] 1551s [00:52:31.379] getGlobalsAndPackages() ... DONE 1551s [00:52:31.379] + additional globals found: [n=0] 1551s [00:52:31.379] + additional namespaces needed: [n=0] 1551s [00:52:31.379] - Finding globals in 'X' for chunk #1 ... DONE 1551s [00:52:31.380] - seeds: 1551s [00:52:31.380] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1551s [00:52:31.380] getGlobalsAndPackages() ... 1551s [00:52:31.380] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1551s [00:52:31.380] Resolving globals: FALSE 1551s [00:52:31.380] Tweak future expression to call with '...' arguments ... 1551s [00:52:31.381] { 1551s [00:52:31.381] do.call(function(...) { 1551s [00:52:31.381] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1551s [00:52:31.381] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1551s [00:52:31.381] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1551s [00:52:31.381] on.exit(options(oopts), add = TRUE) 1551s [00:52:31.381] } 1551s [00:52:31.381] { 1551s [00:52:31.381] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1551s [00:52:31.381] ...future.X_jj <- ...future.elements_ii[[jj]] 1551s [00:52:31.381] ...future.FUN(...future.X_jj, ...) 1551s [00:52:31.381] }) 1551s [00:52:31.381] } 1551s [00:52:31.381] }, args = future.call.arguments) 1551s [00:52:31.381] } 1551s [00:52:31.381] Tweak future expression to call with '...' arguments ... DONE 1551s [00:52:31.382] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1551s [00:52:31.382] 1551s [00:52:31.382] getGlobalsAndPackages() ... DONE 1551s [00:52:31.382] run() for ‘Future’ ... 1551s [00:52:31.382] - state: ‘created’ 1551s [00:52:31.383] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1551s [00:52:31.383] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1551s [00:52:31.383] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1551s [00:52:31.383] - Field: ‘label’ 1551s [00:52:31.384] - Field: ‘local’ 1551s [00:52:31.384] - Field: ‘owner’ 1551s [00:52:31.384] - Field: ‘envir’ 1551s [00:52:31.384] - Field: ‘packages’ 1551s [00:52:31.384] - Field: ‘gc’ 1551s [00:52:31.384] - Field: ‘conditions’ 1551s [00:52:31.385] - Field: ‘expr’ 1551s [00:52:31.385] - Field: ‘uuid’ 1551s [00:52:31.385] - Field: ‘seed’ 1551s [00:52:31.385] - Field: ‘version’ 1551s [00:52:31.386] - Field: ‘result’ 1551s [00:52:31.386] - Field: ‘asynchronous’ 1551s [00:52:31.386] - Field: ‘calls’ 1551s [00:52:31.386] - Field: ‘globals’ 1551s [00:52:31.386] - Field: ‘stdout’ 1551s [00:52:31.386] - Field: ‘earlySignal’ 1551s [00:52:31.386] - Field: ‘lazy’ 1551s [00:52:31.386] - Field: ‘state’ 1551s [00:52:31.387] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1551s [00:52:31.387] - Launch lazy future ... 1551s [00:52:31.387] Packages needed by the future expression (n = 0): 1551s [00:52:31.387] Packages needed by future strategies (n = 0): 1551s [00:52:31.388] { 1551s [00:52:31.388] { 1551s [00:52:31.388] { 1551s [00:52:31.388] ...future.startTime <- base::Sys.time() 1551s [00:52:31.388] { 1551s [00:52:31.388] { 1551s [00:52:31.388] { 1551s [00:52:31.388] base::local({ 1551s [00:52:31.388] has_future <- base::requireNamespace("future", 1551s [00:52:31.388] quietly = TRUE) 1551s [00:52:31.388] if (has_future) { 1551s [00:52:31.388] ns <- base::getNamespace("future") 1551s [00:52:31.388] version <- ns[[".package"]][["version"]] 1551s [00:52:31.388] if (is.null(version)) 1551s [00:52:31.388] version <- utils::packageVersion("future") 1551s [00:52:31.388] } 1551s [00:52:31.388] else { 1551s [00:52:31.388] version <- NULL 1551s [00:52:31.388] } 1551s [00:52:31.388] if (!has_future || version < "1.8.0") { 1551s [00:52:31.388] info <- base::c(r_version = base::gsub("R version ", 1551s [00:52:31.388] "", base::R.version$version.string), 1551s [00:52:31.388] platform = base::sprintf("%s (%s-bit)", 1551s [00:52:31.388] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1551s [00:52:31.388] os = base::paste(base::Sys.info()[base::c("sysname", 1551s [00:52:31.388] "release", "version")], collapse = " "), 1551s [00:52:31.388] hostname = base::Sys.info()[["nodename"]]) 1551s [00:52:31.388] info <- base::sprintf("%s: %s", base::names(info), 1551s [00:52:31.388] info) 1551s [00:52:31.388] info <- base::paste(info, collapse = "; ") 1551s [00:52:31.388] if (!has_future) { 1551s [00:52:31.388] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1551s [00:52:31.388] info) 1551s [00:52:31.388] } 1551s [00:52:31.388] else { 1551s [00:52:31.388] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1551s [00:52:31.388] info, version) 1551s [00:52:31.388] } 1551s [00:52:31.388] base::stop(msg) 1551s [00:52:31.388] } 1551s [00:52:31.388] }) 1551s [00:52:31.388] } 1551s [00:52:31.388] options(future.plan = NULL) 1551s [00:52:31.388] Sys.unsetenv("R_FUTURE_PLAN") 1551s [00:52:31.388] future::plan("default", .cleanup = FALSE, .init = FALSE) 1551s [00:52:31.388] } 1551s [00:52:31.388] ...future.workdir <- getwd() 1551s [00:52:31.388] } 1551s [00:52:31.388] ...future.oldOptions <- base::as.list(base::.Options) 1551s [00:52:31.388] ...future.oldEnvVars <- base::Sys.getenv() 1551s [00:52:31.388] } 1551s [00:52:31.388] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1551s [00:52:31.388] future.globals.maxSize = NULL, future.globals.method = NULL, 1551s [00:52:31.388] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1551s [00:52:31.388] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1551s [00:52:31.388] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1551s [00:52:31.388] future.stdout.windows.reencode = NULL, width = 80L) 1551s [00:52:31.388] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1551s [00:52:31.388] base::names(...future.oldOptions)) 1551s [00:52:31.388] } 1551s [00:52:31.388] if (FALSE) { 1551s [00:52:31.388] } 1551s [00:52:31.388] else { 1551s [00:52:31.388] if (TRUE) { 1551s [00:52:31.388] ...future.stdout <- base::rawConnection(base::raw(0L), 1551s [00:52:31.388] open = "w") 1551s [00:52:31.388] } 1551s [00:52:31.388] else { 1551s [00:52:31.388] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1551s [00:52:31.388] windows = "NUL", "/dev/null"), open = "w") 1551s [00:52:31.388] } 1551s [00:52:31.388] base::sink(...future.stdout, type = "output", split = FALSE) 1551s [00:52:31.388] base::on.exit(if (!base::is.null(...future.stdout)) { 1551s [00:52:31.388] base::sink(type = "output", split = FALSE) 1551s [00:52:31.388] base::close(...future.stdout) 1551s [00:52:31.388] }, add = TRUE) 1551s [00:52:31.388] } 1551s [00:52:31.388] ...future.frame <- base::sys.nframe() 1551s [00:52:31.388] ...future.conditions <- base::list() 1551s [00:52:31.388] ...future.rng <- base::globalenv()$.Random.seed 1551s [00:52:31.388] if (FALSE) { 1551s [00:52:31.388] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1551s [00:52:31.388] "...future.value", "...future.globalenv.names", ".Random.seed") 1551s [00:52:31.388] } 1551s [00:52:31.388] ...future.result <- base::tryCatch({ 1551s [00:52:31.388] base::withCallingHandlers({ 1551s [00:52:31.388] ...future.value <- base::withVisible(base::local({ 1551s [00:52:31.388] do.call(function(...) { 1551s [00:52:31.388] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1551s [00:52:31.388] if (!identical(...future.globals.maxSize.org, 1551s [00:52:31.388] ...future.globals.maxSize)) { 1551s [00:52:31.388] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1551s [00:52:31.388] on.exit(options(oopts), add = TRUE) 1551s [00:52:31.388] } 1551s [00:52:31.388] { 1551s [00:52:31.388] lapply(seq_along(...future.elements_ii), 1551s [00:52:31.388] FUN = function(jj) { 1551s [00:52:31.388] ...future.X_jj <- ...future.elements_ii[[jj]] 1551s [00:52:31.388] ...future.FUN(...future.X_jj, ...) 1551s [00:52:31.388] }) 1551s [00:52:31.388] } 1551s [00:52:31.388] }, args = future.call.arguments) 1551s [00:52:31.388] })) 1551s [00:52:31.388] future::FutureResult(value = ...future.value$value, 1551s [00:52:31.388] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1551s [00:52:31.388] ...future.rng), globalenv = if (FALSE) 1551s [00:52:31.388] list(added = base::setdiff(base::names(base::.GlobalEnv), 1551s [00:52:31.388] ...future.globalenv.names)) 1551s [00:52:31.388] else NULL, started = ...future.startTime, version = "1.8") 1551s [00:52:31.388] }, condition = base::local({ 1551s [00:52:31.388] c <- base::c 1551s [00:52:31.388] inherits <- base::inherits 1551s [00:52:31.388] invokeRestart <- base::invokeRestart 1551s [00:52:31.388] length <- base::length 1551s [00:52:31.388] list <- base::list 1551s [00:52:31.388] seq.int <- base::seq.int 1551s [00:52:31.388] signalCondition <- base::signalCondition 1551s [00:52:31.388] sys.calls <- base::sys.calls 1551s [00:52:31.388] `[[` <- base::`[[` 1551s [00:52:31.388] `+` <- base::`+` 1551s [00:52:31.388] `<<-` <- base::`<<-` 1551s [00:52:31.388] sysCalls <- function(calls = sys.calls(), from = 1L) { 1551s [00:52:31.388] calls[seq.int(from = from + 12L, to = length(calls) - 1551s [00:52:31.388] 3L)] 1551s [00:52:31.388] } 1551s [00:52:31.388] function(cond) { 1551s [00:52:31.388] is_error <- inherits(cond, "error") 1551s [00:52:31.388] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1551s [00:52:31.388] NULL) 1551s [00:52:31.388] if (is_error) { 1551s [00:52:31.388] sessionInformation <- function() { 1551s [00:52:31.388] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1551s [00:52:31.388] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1551s [00:52:31.388] search = base::search(), system = base::Sys.info()) 1551s [00:52:31.388] } 1551s [00:52:31.388] ...future.conditions[[length(...future.conditions) + 1551s [00:52:31.388] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1551s [00:52:31.388] cond$call), session = sessionInformation(), 1551s [00:52:31.388] timestamp = base::Sys.time(), signaled = 0L) 1551s [00:52:31.388] signalCondition(cond) 1551s [00:52:31.388] } 1551s [00:52:31.388] else if (!ignore && TRUE && inherits(cond, c("condition", 1551s [00:52:31.388] "immediateCondition"))) { 1551s [00:52:31.388] signal <- TRUE && inherits(cond, "immediateCondition") 1551s [00:52:31.388] ...future.conditions[[length(...future.conditions) + 1551s [00:52:31.388] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1551s [00:52:31.388] if (TRUE && !signal) { 1551s [00:52:31.388] muffleCondition <- function (cond, pattern = "^muffle") 1551s [00:52:31.388] { 1551s [00:52:31.388] inherits <- base::inherits 1551s [00:52:31.388] invokeRestart <- base::invokeRestart 1551s [00:52:31.388] is.null <- base::is.null 1551s [00:52:31.388] muffled <- FALSE 1551s [00:52:31.388] if (inherits(cond, "message")) { 1551s [00:52:31.388] muffled <- grepl(pattern, "muffleMessage") 1551s [00:52:31.388] if (muffled) 1551s [00:52:31.388] invokeRestart("muffleMessage") 1551s [00:52:31.388] } 1551s [00:52:31.388] else if (inherits(cond, "warning")) { 1551s [00:52:31.388] muffled <- grepl(pattern, "muffleWarning") 1551s [00:52:31.388] if (muffled) 1551s [00:52:31.388] invokeRestart("muffleWarning") 1551s [00:52:31.388] } 1551s [00:52:31.388] else if (inherits(cond, "condition")) { 1551s [00:52:31.388] if (!is.null(pattern)) { 1551s [00:52:31.388] computeRestarts <- base::computeRestarts 1551s [00:52:31.388] grepl <- base::grepl 1551s [00:52:31.388] restarts <- computeRestarts(cond) 1551s [00:52:31.388] for (restart in restarts) { 1551s [00:52:31.388] name <- restart$name 1551s [00:52:31.388] if (is.null(name)) 1551s [00:52:31.388] next 1551s [00:52:31.388] if (!grepl(pattern, name)) 1551s [00:52:31.388] next 1551s [00:52:31.388] invokeRestart(restart) 1551s [00:52:31.388] muffled <- TRUE 1551s [00:52:31.388] break 1551s [00:52:31.388] } 1551s [00:52:31.388] } 1551s [00:52:31.388] } 1551s [00:52:31.388] invisible(muffled) 1551s [00:52:31.388] } 1551s [00:52:31.388] muffleCondition(cond, pattern = "^muffle") 1551s [00:52:31.388] } 1551s [00:52:31.388] } 1551s [00:52:31.388] else { 1551s [00:52:31.388] if (TRUE) { 1551s [00:52:31.388] muffleCondition <- function (cond, pattern = "^muffle") 1551s [00:52:31.388] { 1551s [00:52:31.388] inherits <- base::inherits 1551s [00:52:31.388] invokeRestart <- base::invokeRestart 1551s [00:52:31.388] is.null <- base::is.null 1551s [00:52:31.388] muffled <- FALSE 1551s [00:52:31.388] if (inherits(cond, "message")) { 1551s [00:52:31.388] muffled <- grepl(pattern, "muffleMessage") 1551s [00:52:31.388] if (muffled) 1551s [00:52:31.388] invokeRestart("muffleMessage") 1551s [00:52:31.388] } 1551s [00:52:31.388] else if (inherits(cond, "warning")) { 1551s [00:52:31.388] muffled <- grepl(pattern, "muffleWarning") 1551s [00:52:31.388] if (muffled) 1551s [00:52:31.388] invokeRestart("muffleWarning") 1551s [00:52:31.388] } 1551s [00:52:31.388] else if (inherits(cond, "condition")) { 1551s [00:52:31.388] if (!is.null(pattern)) { 1551s [00:52:31.388] computeRestarts <- base::computeRestarts 1551s [00:52:31.388] grepl <- base::grepl 1551s [00:52:31.388] restarts <- computeRestarts(cond) 1551s [00:52:31.388] for (restart in restarts) { 1551s [00:52:31.388] name <- restart$name 1551s [00:52:31.388] if (is.null(name)) 1551s [00:52:31.388] next 1551s [00:52:31.388] if (!grepl(pattern, name)) 1551s [00:52:31.388] next 1551s [00:52:31.388] invokeRestart(restart) 1551s [00:52:31.388] muffled <- TRUE 1551s [00:52:31.388] break 1551s [00:52:31.388] } 1551s [00:52:31.388] } 1551s [00:52:31.388] } 1551s [00:52:31.388] invisible(muffled) 1551s [00:52:31.388] } 1551s [00:52:31.388] muffleCondition(cond, pattern = "^muffle") 1551s [00:52:31.388] } 1551s [00:52:31.388] } 1551s [00:52:31.388] } 1551s [00:52:31.388] })) 1551s [00:52:31.388] }, error = function(ex) { 1551s [00:52:31.388] base::structure(base::list(value = NULL, visible = NULL, 1551s [00:52:31.388] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1551s [00:52:31.388] ...future.rng), started = ...future.startTime, 1551s [00:52:31.388] finished = Sys.time(), session_uuid = NA_character_, 1551s [00:52:31.388] version = "1.8"), class = "FutureResult") 1551s [00:52:31.388] }, finally = { 1551s [00:52:31.388] if (!identical(...future.workdir, getwd())) 1551s [00:52:31.388] setwd(...future.workdir) 1551s [00:52:31.388] { 1551s [00:52:31.388] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1551s [00:52:31.388] ...future.oldOptions$nwarnings <- NULL 1551s [00:52:31.388] } 1551s [00:52:31.388] base::options(...future.oldOptions) 1551s [00:52:31.388] if (.Platform$OS.type == "windows") { 1551s [00:52:31.388] old_names <- names(...future.oldEnvVars) 1551s [00:52:31.388] envs <- base::Sys.getenv() 1551s [00:52:31.388] names <- names(envs) 1551s [00:52:31.388] common <- intersect(names, old_names) 1551s [00:52:31.388] added <- setdiff(names, old_names) 1551s [00:52:31.388] removed <- setdiff(old_names, names) 1551s [00:52:31.388] changed <- common[...future.oldEnvVars[common] != 1551s [00:52:31.388] envs[common]] 1551s [00:52:31.388] NAMES <- toupper(changed) 1551s [00:52:31.388] args <- list() 1551s [00:52:31.388] for (kk in seq_along(NAMES)) { 1551s [00:52:31.388] name <- changed[[kk]] 1551s [00:52:31.388] NAME <- NAMES[[kk]] 1551s [00:52:31.388] if (name != NAME && is.element(NAME, old_names)) 1551s [00:52:31.388] next 1551s [00:52:31.388] args[[name]] <- ...future.oldEnvVars[[name]] 1551s [00:52:31.388] } 1551s [00:52:31.388] NAMES <- toupper(added) 1551s [00:52:31.388] for (kk in seq_along(NAMES)) { 1551s [00:52:31.388] name <- added[[kk]] 1551s [00:52:31.388] NAME <- NAMES[[kk]] 1551s [00:52:31.388] if (name != NAME && is.element(NAME, old_names)) 1551s [00:52:31.388] next 1551s [00:52:31.388] args[[name]] <- "" 1551s [00:52:31.388] } 1551s [00:52:31.388] NAMES <- toupper(removed) 1551s [00:52:31.388] for (kk in seq_along(NAMES)) { 1551s [00:52:31.388] name <- removed[[kk]] 1551s [00:52:31.388] NAME <- NAMES[[kk]] 1551s [00:52:31.388] if (name != NAME && is.element(NAME, old_names)) 1551s [00:52:31.388] next 1551s [00:52:31.388] args[[name]] <- ...future.oldEnvVars[[name]] 1551s [00:52:31.388] } 1551s [00:52:31.388] if (length(args) > 0) 1551s [00:52:31.388] base::do.call(base::Sys.setenv, args = args) 1551s [00:52:31.388] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1551s [00:52:31.388] } 1551s [00:52:31.388] else { 1551s [00:52:31.388] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1551s [00:52:31.388] } 1551s [00:52:31.388] { 1551s [00:52:31.388] if (base::length(...future.futureOptionsAdded) > 1551s [00:52:31.388] 0L) { 1551s [00:52:31.388] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1551s [00:52:31.388] base::names(opts) <- ...future.futureOptionsAdded 1551s [00:52:31.388] base::options(opts) 1551s [00:52:31.388] } 1551s [00:52:31.388] { 1551s [00:52:31.388] { 1551s [00:52:31.388] NULL 1551s [00:52:31.388] RNGkind("Mersenne-Twister") 1551s [00:52:31.388] base::rm(list = ".Random.seed", envir = base::globalenv(), 1551s [00:52:31.388] inherits = FALSE) 1551s [00:52:31.388] } 1551s [00:52:31.388] options(future.plan = NULL) 1551s [00:52:31.388] if (is.na(NA_character_)) 1551s [00:52:31.388] Sys.unsetenv("R_FUTURE_PLAN") 1551s [00:52:31.388] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1551s [00:52:31.388] future::plan(list(function (..., envir = parent.frame()) 1551s [00:52:31.388] { 1551s [00:52:31.388] future <- SequentialFuture(..., envir = envir) 1551s [00:52:31.388] if (!future$lazy) 1551s [00:52:31.388] future <- run(future) 1551s [00:52:31.388] invisible(future) 1551s [00:52:31.388] }), .cleanup = FALSE, .init = FALSE) 1551s [00:52:31.388] } 1551s [00:52:31.388] } 1551s [00:52:31.388] } 1551s [00:52:31.388] }) 1551s [00:52:31.388] if (TRUE) { 1551s [00:52:31.388] base::sink(type = "output", split = FALSE) 1551s [00:52:31.388] if (TRUE) { 1551s [00:52:31.388] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1551s [00:52:31.388] } 1551s [00:52:31.388] else { 1551s [00:52:31.388] ...future.result["stdout"] <- base::list(NULL) 1551s [00:52:31.388] } 1551s [00:52:31.388] base::close(...future.stdout) 1551s [00:52:31.388] ...future.stdout <- NULL 1551s [00:52:31.388] } 1551s [00:52:31.388] ...future.result$conditions <- ...future.conditions 1551s [00:52:31.388] ...future.result$finished <- base::Sys.time() 1551s [00:52:31.388] ...future.result 1551s [00:52:31.388] } 1551s [00:52:31.396] assign_globals() ... 1551s [00:52:31.397] List of 5 1551s [00:52:31.397] $ ...future.FUN :function (x) 1551s [00:52:31.397] $ future.call.arguments : list() 1551s [00:52:31.397] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1551s [00:52:31.397] $ ...future.elements_ii :List of 2 1551s [00:52:31.397] ..$ a: num 0 1551s [00:52:31.397] ..$ b: num 0 1551s [00:52:31.397] $ ...future.seeds_ii : NULL 1551s [00:52:31.397] $ ...future.globals.maxSize: NULL 1551s [00:52:31.397] - attr(*, "where")=List of 5 1551s [00:52:31.397] ..$ ...future.FUN : 1551s [00:52:31.397] ..$ future.call.arguments : 1551s [00:52:31.397] ..$ ...future.elements_ii : 1551s [00:52:31.397] ..$ ...future.seeds_ii : 1551s [00:52:31.397] ..$ ...future.globals.maxSize: 1551s [00:52:31.397] - attr(*, "resolved")= logi FALSE 1551s [00:52:31.397] - attr(*, "total_size")= num 848 1551s [00:52:31.397] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1551s [00:52:31.397] - attr(*, "already-done")= logi TRUE 1551s [00:52:31.409] - copied ‘...future.FUN’ to environment 1551s [00:52:31.409] - copied ‘future.call.arguments’ to environment 1551s [00:52:31.409] - copied ‘...future.elements_ii’ to environment 1551s [00:52:31.410] - copied ‘...future.seeds_ii’ to environment 1551s [00:52:31.410] - copied ‘...future.globals.maxSize’ to environment 1551s [00:52:31.410] assign_globals() ... done 1551s [00:52:31.410] plan(): Setting new future strategy stack: 1551s [00:52:31.411] List of future strategies: 1551s [00:52:31.411] 1. sequential: 1551s [00:52:31.411] - args: function (..., envir = parent.frame()) 1551s [00:52:31.411] - tweaked: FALSE 1551s [00:52:31.411] - call: NULL 1551s [00:52:31.412] plan(): nbrOfWorkers() = 1 1551s [00:52:31.412] plan(): Setting new future strategy stack: 1551s [00:52:31.413] List of future strategies: 1551s [00:52:31.413] 1. sequential: 1551s [00:52:31.413] - args: function (..., envir = parent.frame()) 1551s [00:52:31.413] - tweaked: FALSE 1551s [00:52:31.413] - call: plan(strategy) 1551s [00:52:31.413] plan(): nbrOfWorkers() = 1 1551s [00:52:31.413] SequentialFuture started (and completed) 1551s [00:52:31.414] - Launch lazy future ... done 1551s [00:52:31.414] run() for ‘SequentialFuture’ ... done 1551s [00:52:31.414] Created future: 1551s [00:52:31.414] SequentialFuture: 1551s [00:52:31.414] Label: ‘future_lapply-1’ 1551s [00:52:31.414] Expression: 1551s [00:52:31.414] { 1551s [00:52:31.414] do.call(function(...) { 1551s [00:52:31.414] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1551s [00:52:31.414] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1551s [00:52:31.414] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1551s [00:52:31.414] on.exit(options(oopts), add = TRUE) 1551s [00:52:31.414] } 1551s [00:52:31.414] { 1551s [00:52:31.414] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1551s [00:52:31.414] ...future.X_jj <- ...future.elements_ii[[jj]] 1551s [00:52:31.414] ...future.FUN(...future.X_jj, ...) 1551s [00:52:31.414] }) 1551s [00:52:31.414] } 1551s [00:52:31.414] }, args = future.call.arguments) 1551s [00:52:31.414] } 1551s [00:52:31.414] Lazy evaluation: FALSE 1551s [00:52:31.414] Asynchronous evaluation: FALSE 1551s [00:52:31.414] Local evaluation: TRUE 1551s [00:52:31.414] Environment: R_GlobalEnv 1551s [00:52:31.414] Capture standard output: TRUE 1551s [00:52:31.414] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1551s [00:52:31.414] Globals: 5 objects totaling 960 bytes (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1551s [00:52:31.414] Packages: 1551s [00:52:31.414] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1551s [00:52:31.414] Resolved: TRUE 1551s [00:52:31.414] Value: 112 bytes of class ‘list’ 1551s [00:52:31.414] Early signaling: FALSE 1551s [00:52:31.414] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1551s [00:52:31.414] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1551s [00:52:31.416] Chunk #1 of 1 ... DONE 1551s [00:52:31.416] Launching 1 futures (chunks) ... DONE 1551s [00:52:31.416] Resolving 1 futures (chunks) ... 1551s [00:52:31.417] resolve() on list ... 1551s [00:52:31.417] recursive: 0 1551s [00:52:31.417] length: 1 1551s [00:52:31.417] 1551s [00:52:31.417] resolved() for ‘SequentialFuture’ ... 1551s [00:52:31.417] - state: ‘finished’ 1551s [00:52:31.418] - run: TRUE 1551s [00:52:31.418] - result: ‘FutureResult’ 1551s [00:52:31.418] resolved() for ‘SequentialFuture’ ... done 1551s [00:52:31.418] Future #1 1551s [00:52:31.419] signalConditionsASAP(SequentialFuture, pos=1) ... 1551s [00:52:31.419] - nx: 1 1551s [00:52:31.419] - relay: TRUE 1551s [00:52:31.420] - stdout: TRUE 1551s [00:52:31.420] - signal: TRUE 1551s [00:52:31.420] - resignal: FALSE 1551s [00:52:31.420] - force: TRUE 1551s [00:52:31.420] - relayed: [n=1] FALSE 1551s [00:52:31.421] - queued futures: [n=1] FALSE 1551s [00:52:31.421] - until=1 1551s [00:52:31.421] - relaying element #1 1551s [00:52:31.421] - relayed: [n=1] TRUE 1551s [00:52:31.422] - queued futures: [n=1] TRUE 1551s [00:52:31.422] signalConditionsASAP(SequentialFuture, pos=1) ... done 1551s [00:52:31.422] length: 0 (resolved future 1) 1551s [00:52:31.422] Relaying remaining futures 1551s [00:52:31.422] signalConditionsASAP(NULL, pos=0) ... 1551s [00:52:31.423] - nx: 1 1551s [00:52:31.423] - relay: TRUE 1551s [00:52:31.423] - stdout: TRUE 1551s [00:52:31.423] - signal: TRUE 1551s [00:52:31.423] - resignal: FALSE 1551s [00:52:31.423] - force: TRUE 1551s [00:52:31.423] - relayed: [n=1] TRUE 1551s [00:52:31.424] - queued futures: [n=1] TRUE 1551s - flush all 1551s [00:52:31.424] - relayed: [n=1] TRUE 1551s [00:52:31.424] - queued futures: [n=1] TRUE 1551s [00:52:31.424] signalConditionsASAP(NULL, pos=0) ... done 1551s [00:52:31.424] resolve() on list ... DONE 1551s [00:52:31.425] - Number of value chunks collected: 1 1551s [00:52:31.425] Resolving 1 futures (chunks) ... DONE 1551s [00:52:31.425] Reducing values from 1 chunks ... 1551s [00:52:31.425] - Number of values collected after concatenation: 2 1551s [00:52:31.425] - Number of values expected: 2 1551s [00:52:31.425] Reducing values from 1 chunks ... DONE 1551s [00:52:31.426] future_lapply() ... DONE 1551s - plan('multicore') ... 1551s [00:52:31.426] plan(): Setting new future strategy stack: 1551s [00:52:31.426] List of future strategies: 1551s [00:52:31.426] 1. multicore: 1551s [00:52:31.426] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1551s [00:52:31.426] - tweaked: FALSE 1551s [00:52:31.426] - call: plan(strategy) 1551s [00:52:31.432] plan(): nbrOfWorkers() = 1 1551s - future_lapply(x, FUN = vector, ...) ... 1551s [00:52:31.432] future_lapply() ... 1551s [00:52:31.437] Number of chunks: 4 1551s [00:52:31.437] getGlobalsAndPackagesXApply() ... 1551s [00:52:31.437] - future.globals: TRUE 1551s [00:52:31.438] getGlobalsAndPackages() ... 1551s [00:52:31.438] Searching for globals... 1551s [00:52:31.440] - globals found: [2] ‘FUN’, ‘.Internal’ 1551s [00:52:31.440] Searching for globals ... DONE 1551s [00:52:31.440] Resolving globals: FALSE 1551s [00:52:31.441] The total size of the 1 globals is 2.13 KiB (2184 bytes) 1551s [00:52:31.441] The total size of the 1 globals exported for future expression (‘FUN(length = 2L)’) is 2.13 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (2.13 KiB of class ‘function’) 1551s [00:52:31.442] - globals: [1] ‘FUN’ 1551s [00:52:31.442] 1551s [00:52:31.442] getGlobalsAndPackages() ... DONE 1551s [00:52:31.442] - globals found/used: [n=1] ‘FUN’ 1551s [00:52:31.442] - needed namespaces: [n=0] 1551s [00:52:31.442] Finding globals ... DONE 1551s [00:52:31.443] - use_args: TRUE 1551s [00:52:31.443] - Getting '...' globals ... 1551s [00:52:31.444] resolve() on list ... 1551s [00:52:31.444] recursive: 0 1551s [00:52:31.444] length: 1 1551s [00:52:31.444] elements: ‘...’ 1551s [00:52:31.445] length: 0 (resolved future 1) 1551s [00:52:31.445] resolve() on list ... DONE 1551s [00:52:31.445] - '...' content: [n=1] ‘length’ 1551s [00:52:31.445] List of 1 1551s [00:52:31.445] $ ...:List of 1 1551s [00:52:31.445] ..$ length: int 2 1551s [00:52:31.445] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1551s [00:52:31.445] - attr(*, "where")=List of 1 1551s [00:52:31.445] ..$ ...: 1551s [00:52:31.445] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1551s [00:52:31.445] - attr(*, "resolved")= logi TRUE 1551s [00:52:31.445] - attr(*, "total_size")= num NA 1551s [00:52:31.453] - Getting '...' globals ... DONE 1551s [00:52:31.454] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1551s [00:52:31.454] List of 2 1551s [00:52:31.454] $ ...future.FUN:function (mode = "logical", length = 0L) 1551s [00:52:31.454] $ ... :List of 1 1551s [00:52:31.454] ..$ length: int 2 1551s [00:52:31.454] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1551s [00:52:31.454] - attr(*, "where")=List of 2 1551s [00:52:31.454] ..$ ...future.FUN: 1551s [00:52:31.454] ..$ ... : 1551s [00:52:31.454] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1551s [00:52:31.454] - attr(*, "resolved")= logi FALSE 1551s [00:52:31.454] - attr(*, "total_size")= num 2240 1551s [00:52:31.459] Packages to be attached in all futures: [n=0] 1551s [00:52:31.459] getGlobalsAndPackagesXApply() ... DONE 1551s [00:52:31.459] Number of futures (= number of chunks): 4 1551s [00:52:31.460] Launching 4 futures (chunks) ... 1551s [00:52:31.460] Chunk #1 of 4 ... 1551s [00:52:31.460] - Finding globals in 'X' for chunk #1 ... 1551s [00:52:31.460] getGlobalsAndPackages() ... 1551s [00:52:31.460] Searching for globals... 1551s [00:52:31.461] 1551s [00:52:31.462] Searching for globals ... DONE 1551s [00:52:31.462] - globals: [0] 1551s [00:52:31.462] getGlobalsAndPackages() ... DONE 1551s [00:52:31.462] + additional globals found: [n=0] 1551s [00:52:31.463] + additional namespaces needed: [n=0] 1551s [00:52:31.463] - Finding globals in 'X' for chunk #1 ... DONE 1551s [00:52:31.463] - Adjusted option 'future.globals.maxSize': 524288000 -> 4 * 524288000 = 2097152000 (bytes) 1551s [00:52:31.463] - seeds: 1551s [00:52:31.463] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1551s [00:52:31.464] getGlobalsAndPackages() ... 1551s [00:52:31.464] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1551s [00:52:31.464] Resolving globals: FALSE 1551s [00:52:31.464] Tweak future expression to call with '...' arguments ... 1551s [00:52:31.464] { 1551s [00:52:31.464] do.call(function(...) { 1551s [00:52:31.464] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1551s [00:52:31.464] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1551s [00:52:31.464] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1551s [00:52:31.464] on.exit(options(oopts), add = TRUE) 1551s [00:52:31.464] } 1551s [00:52:31.464] { 1551s [00:52:31.464] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1551s [00:52:31.464] ...future.X_jj <- ...future.elements_ii[[jj]] 1551s [00:52:31.464] ...future.FUN(...future.X_jj, ...) 1551s [00:52:31.464] }) 1551s [00:52:31.464] } 1551s [00:52:31.464] }, args = future.call.arguments) 1551s [00:52:31.464] } 1551s [00:52:31.465] Tweak future expression to call with '...' arguments ... DONE 1551s [00:52:31.466] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1551s [00:52:31.466] 1551s [00:52:31.467] getGlobalsAndPackages() ... DONE 1551s [00:52:31.467] run() for ‘Future’ ... 1551s [00:52:31.467] - state: ‘created’ 1551s [00:52:31.467] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1551s [00:52:31.471] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1551s [00:52:31.471] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1551s [00:52:31.472] - Field: ‘label’ 1551s [00:52:31.472] - Field: ‘local’ 1551s [00:52:31.472] - Field: ‘owner’ 1551s [00:52:31.472] - Field: ‘envir’ 1551s [00:52:31.472] - Field: ‘packages’ 1551s [00:52:31.472] - Field: ‘gc’ 1551s [00:52:31.472] - Field: ‘conditions’ 1551s [00:52:31.473] - Field: ‘expr’ 1551s [00:52:31.473] - Field: ‘uuid’ 1551s [00:52:31.473] - Field: ‘seed’ 1551s [00:52:31.473] - Field: ‘version’ 1551s [00:52:31.473] - Field: ‘result’ 1551s [00:52:31.473] - Field: ‘asynchronous’ 1551s [00:52:31.474] - Field: ‘calls’ 1551s [00:52:31.474] - Field: ‘globals’ 1551s [00:52:31.474] - Field: ‘stdout’ 1551s [00:52:31.474] - Field: ‘earlySignal’ 1551s [00:52:31.474] - Field: ‘lazy’ 1551s [00:52:31.474] - Field: ‘state’ 1551s [00:52:31.474] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1551s [00:52:31.475] - Launch lazy future ... 1551s [00:52:31.475] Packages needed by the future expression (n = 0): 1551s [00:52:31.475] Packages needed by future strategies (n = 0): 1551s [00:52:31.476] { 1551s [00:52:31.476] { 1551s [00:52:31.476] { 1551s [00:52:31.476] ...future.startTime <- base::Sys.time() 1551s [00:52:31.476] { 1551s [00:52:31.476] { 1551s [00:52:31.476] { 1551s [00:52:31.476] base::local({ 1551s [00:52:31.476] has_future <- base::requireNamespace("future", 1551s [00:52:31.476] quietly = TRUE) 1551s [00:52:31.476] if (has_future) { 1551s [00:52:31.476] ns <- base::getNamespace("future") 1551s [00:52:31.476] version <- ns[[".package"]][["version"]] 1551s [00:52:31.476] if (is.null(version)) 1551s [00:52:31.476] version <- utils::packageVersion("future") 1551s [00:52:31.476] } 1551s [00:52:31.476] else { 1551s [00:52:31.476] version <- NULL 1551s [00:52:31.476] } 1551s [00:52:31.476] if (!has_future || version < "1.8.0") { 1551s [00:52:31.476] info <- base::c(r_version = base::gsub("R version ", 1551s [00:52:31.476] "", base::R.version$version.string), 1551s [00:52:31.476] platform = base::sprintf("%s (%s-bit)", 1551s [00:52:31.476] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1551s [00:52:31.476] os = base::paste(base::Sys.info()[base::c("sysname", 1551s [00:52:31.476] "release", "version")], collapse = " "), 1551s [00:52:31.476] hostname = base::Sys.info()[["nodename"]]) 1551s [00:52:31.476] info <- base::sprintf("%s: %s", base::names(info), 1551s [00:52:31.476] info) 1551s [00:52:31.476] info <- base::paste(info, collapse = "; ") 1551s [00:52:31.476] if (!has_future) { 1551s [00:52:31.476] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1551s [00:52:31.476] info) 1551s [00:52:31.476] } 1551s [00:52:31.476] else { 1551s [00:52:31.476] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1551s [00:52:31.476] info, version) 1551s [00:52:31.476] } 1551s [00:52:31.476] base::stop(msg) 1551s [00:52:31.476] } 1551s [00:52:31.476] }) 1551s [00:52:31.476] } 1551s [00:52:31.476] options(future.plan = NULL) 1551s [00:52:31.476] Sys.unsetenv("R_FUTURE_PLAN") 1551s [00:52:31.476] future::plan("default", .cleanup = FALSE, .init = FALSE) 1551s [00:52:31.476] } 1551s [00:52:31.476] ...future.workdir <- getwd() 1551s [00:52:31.476] } 1551s [00:52:31.476] ...future.oldOptions <- base::as.list(base::.Options) 1551s [00:52:31.476] ...future.oldEnvVars <- base::Sys.getenv() 1551s [00:52:31.476] } 1551s [00:52:31.476] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1551s [00:52:31.476] future.globals.maxSize = 2097152000, future.globals.method = NULL, 1551s [00:52:31.476] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1551s [00:52:31.476] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1551s [00:52:31.476] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1551s [00:52:31.476] future.stdout.windows.reencode = NULL, width = 80L) 1551s [00:52:31.476] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1551s [00:52:31.476] base::names(...future.oldOptions)) 1551s [00:52:31.476] } 1551s [00:52:31.476] if (FALSE) { 1551s [00:52:31.476] } 1551s [00:52:31.476] else { 1551s [00:52:31.476] if (TRUE) { 1551s [00:52:31.476] ...future.stdout <- base::rawConnection(base::raw(0L), 1551s [00:52:31.476] open = "w") 1551s [00:52:31.476] } 1551s [00:52:31.476] else { 1551s [00:52:31.476] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1551s [00:52:31.476] windows = "NUL", "/dev/null"), open = "w") 1551s [00:52:31.476] } 1551s [00:52:31.476] base::sink(...future.stdout, type = "output", split = FALSE) 1551s [00:52:31.476] base::on.exit(if (!base::is.null(...future.stdout)) { 1551s [00:52:31.476] base::sink(type = "output", split = FALSE) 1551s [00:52:31.476] base::close(...future.stdout) 1551s [00:52:31.476] }, add = TRUE) 1551s [00:52:31.476] } 1551s [00:52:31.476] ...future.frame <- base::sys.nframe() 1551s [00:52:31.476] ...future.conditions <- base::list() 1551s [00:52:31.476] ...future.rng <- base::globalenv()$.Random.seed 1551s [00:52:31.476] if (FALSE) { 1551s [00:52:31.476] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1551s [00:52:31.476] "...future.value", "...future.globalenv.names", ".Random.seed") 1551s [00:52:31.476] } 1551s [00:52:31.476] ...future.result <- base::tryCatch({ 1551s [00:52:31.476] base::withCallingHandlers({ 1551s [00:52:31.476] ...future.value <- base::withVisible(base::local({ 1551s [00:52:31.476] do.call(function(...) { 1551s [00:52:31.476] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1551s [00:52:31.476] if (!identical(...future.globals.maxSize.org, 1551s [00:52:31.476] ...future.globals.maxSize)) { 1551s [00:52:31.476] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1551s [00:52:31.476] on.exit(options(oopts), add = TRUE) 1551s [00:52:31.476] } 1551s [00:52:31.476] { 1551s [00:52:31.476] lapply(seq_along(...future.elements_ii), 1551s [00:52:31.476] FUN = function(jj) { 1551s [00:52:31.476] ...future.X_jj <- ...future.elements_ii[[jj]] 1551s [00:52:31.476] ...future.FUN(...future.X_jj, ...) 1551s [00:52:31.476] }) 1551s [00:52:31.476] } 1551s [00:52:31.476] }, args = future.call.arguments) 1551s [00:52:31.476] })) 1551s [00:52:31.476] future::FutureResult(value = ...future.value$value, 1551s [00:52:31.476] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1551s [00:52:31.476] ...future.rng), globalenv = if (FALSE) 1551s [00:52:31.476] list(added = base::setdiff(base::names(base::.GlobalEnv), 1551s [00:52:31.476] ...future.globalenv.names)) 1551s [00:52:31.476] else NULL, started = ...future.startTime, version = "1.8") 1551s [00:52:31.476] }, condition = base::local({ 1551s [00:52:31.476] c <- base::c 1551s [00:52:31.476] inherits <- base::inherits 1551s [00:52:31.476] invokeRestart <- base::invokeRestart 1551s [00:52:31.476] length <- base::length 1551s [00:52:31.476] list <- base::list 1551s [00:52:31.476] seq.int <- base::seq.int 1551s [00:52:31.476] signalCondition <- base::signalCondition 1551s [00:52:31.476] sys.calls <- base::sys.calls 1551s [00:52:31.476] `[[` <- base::`[[` 1551s [00:52:31.476] `+` <- base::`+` 1551s [00:52:31.476] `<<-` <- base::`<<-` 1551s [00:52:31.476] sysCalls <- function(calls = sys.calls(), from = 1L) { 1551s [00:52:31.476] calls[seq.int(from = from + 12L, to = length(calls) - 1551s [00:52:31.476] 3L)] 1551s [00:52:31.476] } 1551s [00:52:31.476] function(cond) { 1551s [00:52:31.476] is_error <- inherits(cond, "error") 1551s [00:52:31.476] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1551s [00:52:31.476] NULL) 1551s [00:52:31.476] if (is_error) { 1551s [00:52:31.476] sessionInformation <- function() { 1551s [00:52:31.476] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1551s [00:52:31.476] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1551s [00:52:31.476] search = base::search(), system = base::Sys.info()) 1551s [00:52:31.476] } 1551s [00:52:31.476] ...future.conditions[[length(...future.conditions) + 1551s [00:52:31.476] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1551s [00:52:31.476] cond$call), session = sessionInformation(), 1551s [00:52:31.476] timestamp = base::Sys.time(), signaled = 0L) 1551s [00:52:31.476] signalCondition(cond) 1551s [00:52:31.476] } 1551s [00:52:31.476] else if (!ignore && TRUE && inherits(cond, c("condition", 1551s [00:52:31.476] "immediateCondition"))) { 1551s [00:52:31.476] signal <- TRUE && inherits(cond, "immediateCondition") 1551s [00:52:31.476] ...future.conditions[[length(...future.conditions) + 1551s [00:52:31.476] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1551s [00:52:31.476] if (TRUE && !signal) { 1551s [00:52:31.476] muffleCondition <- function (cond, pattern = "^muffle") 1551s [00:52:31.476] { 1551s [00:52:31.476] inherits <- base::inherits 1551s [00:52:31.476] invokeRestart <- base::invokeRestart 1551s [00:52:31.476] is.null <- base::is.null 1551s [00:52:31.476] muffled <- FALSE 1551s [00:52:31.476] if (inherits(cond, "message")) { 1551s [00:52:31.476] muffled <- grepl(pattern, "muffleMessage") 1551s [00:52:31.476] if (muffled) 1551s [00:52:31.476] invokeRestart("muffleMessage") 1551s [00:52:31.476] } 1551s [00:52:31.476] else if (inherits(cond, "warning")) { 1551s [00:52:31.476] muffled <- grepl(pattern, "muffleWarning") 1551s [00:52:31.476] if (muffled) 1551s [00:52:31.476] invokeRestart("muffleWarning") 1551s [00:52:31.476] } 1551s [00:52:31.476] else if (inherits(cond, "condition")) { 1551s [00:52:31.476] if (!is.null(pattern)) { 1551s [00:52:31.476] computeRestarts <- base::computeRestarts 1551s [00:52:31.476] grepl <- base::grepl 1551s [00:52:31.476] restarts <- computeRestarts(cond) 1551s [00:52:31.476] for (restart in restarts) { 1551s [00:52:31.476] name <- restart$name 1551s [00:52:31.476] if (is.null(name)) 1551s [00:52:31.476] next 1551s [00:52:31.476] if (!grepl(pattern, name)) 1551s [00:52:31.476] next 1551s [00:52:31.476] invokeRestart(restart) 1551s [00:52:31.476] muffled <- TRUE 1551s [00:52:31.476] break 1551s [00:52:31.476] } 1551s [00:52:31.476] } 1551s [00:52:31.476] } 1551s [00:52:31.476] invisible(muffled) 1551s [00:52:31.476] } 1551s [00:52:31.476] muffleCondition(cond, pattern = "^muffle") 1551s [00:52:31.476] } 1551s [00:52:31.476] } 1551s [00:52:31.476] else { 1551s [00:52:31.476] if (TRUE) { 1551s [00:52:31.476] muffleCondition <- function (cond, pattern = "^muffle") 1551s [00:52:31.476] { 1551s [00:52:31.476] inherits <- base::inherits 1551s [00:52:31.476] invokeRestart <- base::invokeRestart 1551s [00:52:31.476] is.null <- base::is.null 1551s [00:52:31.476] muffled <- FALSE 1551s [00:52:31.476] if (inherits(cond, "message")) { 1551s [00:52:31.476] muffled <- grepl(pattern, "muffleMessage") 1551s [00:52:31.476] if (muffled) 1551s [00:52:31.476] invokeRestart("muffleMessage") 1551s [00:52:31.476] } 1551s [00:52:31.476] else if (inherits(cond, "warning")) { 1551s [00:52:31.476] muffled <- grepl(pattern, "muffleWarning") 1551s [00:52:31.476] if (muffled) 1551s [00:52:31.476] invokeRestart("muffleWarning") 1551s [00:52:31.476] } 1551s [00:52:31.476] else if (inherits(cond, "condition")) { 1551s [00:52:31.476] if (!is.null(pattern)) { 1551s [00:52:31.476] computeRestarts <- base::computeRestarts 1551s [00:52:31.476] grepl <- base::grepl 1551s [00:52:31.476] restarts <- computeRestarts(cond) 1551s [00:52:31.476] for (restart in restarts) { 1551s [00:52:31.476] name <- restart$name 1551s [00:52:31.476] if (is.null(name)) 1551s [00:52:31.476] next 1551s [00:52:31.476] if (!grepl(pattern, name)) 1551s [00:52:31.476] next 1551s [00:52:31.476] invokeRestart(restart) 1551s [00:52:31.476] muffled <- TRUE 1551s [00:52:31.476] break 1551s [00:52:31.476] } 1551s [00:52:31.476] } 1551s [00:52:31.476] } 1551s [00:52:31.476] invisible(muffled) 1551s [00:52:31.476] } 1551s [00:52:31.476] muffleCondition(cond, pattern = "^muffle") 1551s [00:52:31.476] } 1551s [00:52:31.476] } 1551s [00:52:31.476] } 1551s [00:52:31.476] })) 1551s [00:52:31.476] }, error = function(ex) { 1551s [00:52:31.476] base::structure(base::list(value = NULL, visible = NULL, 1551s [00:52:31.476] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1551s [00:52:31.476] ...future.rng), started = ...future.startTime, 1551s [00:52:31.476] finished = Sys.time(), session_uuid = NA_character_, 1551s [00:52:31.476] version = "1.8"), class = "FutureResult") 1551s [00:52:31.476] }, finally = { 1551s [00:52:31.476] if (!identical(...future.workdir, getwd())) 1551s [00:52:31.476] setwd(...future.workdir) 1551s [00:52:31.476] { 1551s [00:52:31.476] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1551s [00:52:31.476] ...future.oldOptions$nwarnings <- NULL 1551s [00:52:31.476] } 1551s [00:52:31.476] base::options(...future.oldOptions) 1551s [00:52:31.476] if (.Platform$OS.type == "windows") { 1551s [00:52:31.476] old_names <- names(...future.oldEnvVars) 1551s [00:52:31.476] envs <- base::Sys.getenv() 1551s [00:52:31.476] names <- names(envs) 1551s [00:52:31.476] common <- intersect(names, old_names) 1551s [00:52:31.476] added <- setdiff(names, old_names) 1551s [00:52:31.476] removed <- setdiff(old_names, names) 1551s [00:52:31.476] changed <- common[...future.oldEnvVars[common] != 1551s [00:52:31.476] envs[common]] 1551s [00:52:31.476] NAMES <- toupper(changed) 1551s [00:52:31.476] args <- list() 1551s [00:52:31.476] for (kk in seq_along(NAMES)) { 1551s [00:52:31.476] name <- changed[[kk]] 1551s [00:52:31.476] NAME <- NAMES[[kk]] 1551s [00:52:31.476] if (name != NAME && is.element(NAME, old_names)) 1551s [00:52:31.476] next 1551s [00:52:31.476] args[[name]] <- ...future.oldEnvVars[[name]] 1551s [00:52:31.476] } 1551s [00:52:31.476] NAMES <- toupper(added) 1551s [00:52:31.476] for (kk in seq_along(NAMES)) { 1551s [00:52:31.476] name <- added[[kk]] 1551s [00:52:31.476] NAME <- NAMES[[kk]] 1551s [00:52:31.476] if (name != NAME && is.element(NAME, old_names)) 1551s [00:52:31.476] next 1551s [00:52:31.476] args[[name]] <- "" 1551s [00:52:31.476] } 1551s [00:52:31.476] NAMES <- toupper(removed) 1551s [00:52:31.476] for (kk in seq_along(NAMES)) { 1551s [00:52:31.476] name <- removed[[kk]] 1551s [00:52:31.476] NAME <- NAMES[[kk]] 1551s [00:52:31.476] if (name != NAME && is.element(NAME, old_names)) 1551s [00:52:31.476] next 1551s [00:52:31.476] args[[name]] <- ...future.oldEnvVars[[name]] 1551s [00:52:31.476] } 1551s [00:52:31.476] if (length(args) > 0) 1551s [00:52:31.476] base::do.call(base::Sys.setenv, args = args) 1551s [00:52:31.476] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1551s [00:52:31.476] } 1551s [00:52:31.476] else { 1551s [00:52:31.476] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1551s [00:52:31.476] } 1551s [00:52:31.476] { 1551s [00:52:31.476] if (base::length(...future.futureOptionsAdded) > 1551s [00:52:31.476] 0L) { 1551s [00:52:31.476] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1551s [00:52:31.476] base::names(opts) <- ...future.futureOptionsAdded 1551s [00:52:31.476] base::options(opts) 1551s [00:52:31.476] } 1551s [00:52:31.476] { 1551s [00:52:31.476] { 1551s [00:52:31.476] NULL 1551s [00:52:31.476] RNGkind("Mersenne-Twister") 1551s [00:52:31.476] base::rm(list = ".Random.seed", envir = base::globalenv(), 1551s [00:52:31.476] inherits = FALSE) 1551s [00:52:31.476] } 1551s [00:52:31.476] options(future.plan = NULL) 1551s [00:52:31.476] if (is.na(NA_character_)) 1551s [00:52:31.476] Sys.unsetenv("R_FUTURE_PLAN") 1551s [00:52:31.476] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1551s [00:52:31.476] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1551s [00:52:31.476] envir = parent.frame()) 1551s [00:52:31.476] { 1551s [00:52:31.476] default_workers <- missing(workers) 1551s [00:52:31.476] if (is.function(workers)) 1551s [00:52:31.476] workers <- workers() 1551s [00:52:31.476] workers <- structure(as.integer(workers), 1551s [00:52:31.476] class = class(workers)) 1551s [00:52:31.476] stop_if_not(is.finite(workers), workers >= 1551s [00:52:31.476] 1L) 1551s [00:52:31.476] if ((workers == 1L && !inherits(workers, 1551s [00:52:31.476] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1551s [00:52:31.476] if (default_workers) 1551s [00:52:31.476] supportsMulticore(warn = TRUE) 1551s [00:52:31.476] return(sequential(..., envir = envir)) 1551s [00:52:31.476] } 1551s [00:52:31.476] oopts <- options(mc.cores = workers) 1551s [00:52:31.476] on.exit(options(oopts)) 1551s [00:52:31.476] future <- MulticoreFuture(..., workers = workers, 1551s [00:52:31.476] envir = envir) 1551s [00:52:31.476] if (!future$lazy) 1551s [00:52:31.476] future <- run(future) 1551s [00:52:31.476] invisible(future) 1551s [00:52:31.476] }), .cleanup = FALSE, .init = FALSE) 1551s [00:52:31.476] } 1551s [00:52:31.476] } 1551s [00:52:31.476] } 1551s [00:52:31.476] }) 1551s [00:52:31.476] if (TRUE) { 1551s [00:52:31.476] base::sink(type = "output", split = FALSE) 1551s [00:52:31.476] if (TRUE) { 1551s [00:52:31.476] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1551s [00:52:31.476] } 1551s [00:52:31.476] else { 1551s [00:52:31.476] ...future.result["stdout"] <- base::list(NULL) 1551s [00:52:31.476] } 1551s [00:52:31.476] base::close(...future.stdout) 1551s [00:52:31.476] ...future.stdout <- NULL 1551s [00:52:31.476] } 1551s [00:52:31.476] ...future.result$conditions <- ...future.conditions 1551s [00:52:31.476] ...future.result$finished <- base::Sys.time() 1551s [00:52:31.476] ...future.result 1551s [00:52:31.476] } 1551s [00:52:31.479] assign_globals() ... 1551s [00:52:31.480] List of 5 1551s [00:52:31.480] $ ...future.FUN :function (mode = "logical", length = 0L) 1551s [00:52:31.480] $ future.call.arguments :List of 1 1551s [00:52:31.480] ..$ length: int 2 1551s [00:52:31.480] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1551s [00:52:31.480] $ ...future.elements_ii :List of 1 1551s [00:52:31.480] ..$ a: chr "integer" 1551s [00:52:31.480] $ ...future.seeds_ii : NULL 1551s [00:52:31.480] $ ...future.globals.maxSize: NULL 1551s [00:52:31.480] - attr(*, "where")=List of 5 1551s [00:52:31.480] ..$ ...future.FUN : 1551s [00:52:31.480] ..$ future.call.arguments : 1551s [00:52:31.480] ..$ ...future.elements_ii : 1551s [00:52:31.480] ..$ ...future.seeds_ii : 1551s [00:52:31.480] ..$ ...future.globals.maxSize: 1551s [00:52:31.480] - attr(*, "resolved")= logi FALSE 1551s [00:52:31.480] - attr(*, "total_size")= num 2240 1551s [00:52:31.480] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1551s [00:52:31.480] - attr(*, "already-done")= logi TRUE 1551s [00:52:31.488] - copied ‘...future.FUN’ to environment 1551s [00:52:31.488] - copied ‘future.call.arguments’ to environment 1551s [00:52:31.488] - copied ‘...future.elements_ii’ to environment 1551s [00:52:31.489] - copied ‘...future.seeds_ii’ to environment 1551s [00:52:31.489] - copied ‘...future.globals.maxSize’ to environment 1551s [00:52:31.491] assign_globals() ... done 1551s [00:52:31.491] plan(): Setting new future strategy stack: 1551s [00:52:31.492] List of future strategies: 1551s [00:52:31.492] 1. sequential: 1551s [00:52:31.492] - args: function (..., envir = parent.frame()) 1551s [00:52:31.492] - tweaked: FALSE 1551s [00:52:31.492] - call: NULL 1551s [00:52:31.492] plan(): nbrOfWorkers() = 1 1551s [00:52:31.493] plan(): Setting new future strategy stack: 1551s [00:52:31.493] List of future strategies: 1551s [00:52:31.493] 1. multicore: 1551s [00:52:31.493] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1551s [00:52:31.493] - tweaked: FALSE 1551s [00:52:31.493] - call: plan(strategy) 1551s [00:52:31.498] plan(): nbrOfWorkers() = 1 1551s [00:52:31.498] SequentialFuture started (and completed) 1551s [00:52:31.499] - Launch lazy future ... done 1551s [00:52:31.499] run() for ‘SequentialFuture’ ... done 1551s [00:52:31.499] Created future: 1551s [00:52:31.499] SequentialFuture: 1551s [00:52:31.499] Label: ‘future_lapply-1’ 1551s [00:52:31.499] Expression: 1551s [00:52:31.499] { 1551s [00:52:31.499] do.call(function(...) { 1551s [00:52:31.499] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1551s [00:52:31.499] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1551s [00:52:31.499] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1551s [00:52:31.499] on.exit(options(oopts), add = TRUE) 1551s [00:52:31.499] } 1551s [00:52:31.499] { 1551s [00:52:31.499] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1551s [00:52:31.499] ...future.X_jj <- ...future.elements_ii[[jj]] 1551s [00:52:31.499] ...future.FUN(...future.X_jj, ...) 1551s [00:52:31.499] }) 1551s [00:52:31.499] } 1551s [00:52:31.499] }, args = future.call.arguments) 1551s [00:52:31.499] } 1551s [00:52:31.499] Lazy evaluation: FALSE 1551s [00:52:31.499] Asynchronous evaluation: FALSE 1551s [00:52:31.499] Local evaluation: TRUE 1551s [00:52:31.499] Environment: R_GlobalEnv 1551s [00:52:31.499] Capture standard output: TRUE 1551s [00:52:31.499] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1551s [00:52:31.499] Globals: 5 objects totaling 2.30 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1551s [00:52:31.499] Packages: 1551s [00:52:31.499] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1551s [00:52:31.499] Resolved: TRUE 1551s [00:52:31.499] Value: 56 bytes of class ‘list’ 1551s [00:52:31.499] Early signaling: FALSE 1551s [00:52:31.499] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1551s [00:52:31.499] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1551s [00:52:31.501] Chunk #1 of 4 ... DONE 1551s [00:52:31.501] Chunk #2 of 4 ... 1551s [00:52:31.502] - Finding globals in 'X' for chunk #2 ... 1551s [00:52:31.502] getGlobalsAndPackages() ... 1551s [00:52:31.502] Searching for globals... 1551s [00:52:31.502] 1551s [00:52:31.502] Searching for globals ... DONE 1551s [00:52:31.502] - globals: [0] 1551s [00:52:31.502] getGlobalsAndPackages() ... DONE 1551s [00:52:31.502] + additional globals found: [n=0] 1551s [00:52:31.503] + additional namespaces needed: [n=0] 1551s [00:52:31.503] - Finding globals in 'X' for chunk #2 ... DONE 1551s [00:52:31.503] - Adjusted option 'future.globals.maxSize': 524288000 -> 4 * 524288000 = 2097152000 (bytes) 1551s [00:52:31.503] - seeds: 1551s [00:52:31.503] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1551s [00:52:31.504] getGlobalsAndPackages() ... 1551s [00:52:31.504] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1551s [00:52:31.504] Resolving globals: FALSE 1551s [00:52:31.504] Tweak future expression to call with '...' arguments ... 1551s [00:52:31.504] { 1551s [00:52:31.504] do.call(function(...) { 1551s [00:52:31.504] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1551s [00:52:31.504] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1551s [00:52:31.504] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1551s [00:52:31.504] on.exit(options(oopts), add = TRUE) 1551s [00:52:31.504] } 1551s [00:52:31.504] { 1551s [00:52:31.504] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1551s [00:52:31.504] ...future.X_jj <- ...future.elements_ii[[jj]] 1551s [00:52:31.504] ...future.FUN(...future.X_jj, ...) 1551s [00:52:31.504] }) 1551s [00:52:31.504] } 1551s [00:52:31.504] }, args = future.call.arguments) 1551s [00:52:31.504] } 1551s [00:52:31.505] Tweak future expression to call with '...' arguments ... DONE 1551s [00:52:31.506] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1551s [00:52:31.506] 1551s [00:52:31.506] getGlobalsAndPackages() ... DONE 1551s [00:52:31.506] run() for ‘Future’ ... 1551s [00:52:31.507] - state: ‘created’ 1551s [00:52:31.507] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1551s [00:52:31.511] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1551s [00:52:31.512] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1551s [00:52:31.512] - Field: ‘label’ 1551s [00:52:31.513] - Field: ‘local’ 1551s [00:52:31.513] - Field: ‘owner’ 1551s [00:52:31.513] - Field: ‘envir’ 1551s [00:52:31.513] - Field: ‘packages’ 1551s [00:52:31.514] - Field: ‘gc’ 1551s [00:52:31.514] - Field: ‘conditions’ 1551s [00:52:31.514] - Field: ‘expr’ 1551s [00:52:31.515] - Field: ‘uuid’ 1551s [00:52:31.515] - Field: ‘seed’ 1551s [00:52:31.515] - Field: ‘version’ 1551s [00:52:31.516] - Field: ‘result’ 1551s [00:52:31.516] - Field: ‘asynchronous’ 1551s [00:52:31.516] - Field: ‘calls’ 1551s [00:52:31.516] - Field: ‘globals’ 1551s [00:52:31.516] - Field: ‘stdout’ 1551s [00:52:31.516] - Field: ‘earlySignal’ 1551s [00:52:31.516] - Field: ‘lazy’ 1551s [00:52:31.517] - Field: ‘state’ 1551s [00:52:31.517] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1551s [00:52:31.517] - Launch lazy future ... 1551s [00:52:31.517] Packages needed by the future expression (n = 0): 1551s [00:52:31.517] Packages needed by future strategies (n = 0): 1551s [00:52:31.518] { 1551s [00:52:31.518] { 1551s [00:52:31.518] { 1551s [00:52:31.518] ...future.startTime <- base::Sys.time() 1551s [00:52:31.518] { 1551s [00:52:31.518] { 1551s [00:52:31.518] { 1551s [00:52:31.518] base::local({ 1551s [00:52:31.518] has_future <- base::requireNamespace("future", 1551s [00:52:31.518] quietly = TRUE) 1551s [00:52:31.518] if (has_future) { 1551s [00:52:31.518] ns <- base::getNamespace("future") 1551s [00:52:31.518] version <- ns[[".package"]][["version"]] 1551s [00:52:31.518] if (is.null(version)) 1551s [00:52:31.518] version <- utils::packageVersion("future") 1551s [00:52:31.518] } 1551s [00:52:31.518] else { 1551s [00:52:31.518] version <- NULL 1551s [00:52:31.518] } 1551s [00:52:31.518] if (!has_future || version < "1.8.0") { 1551s [00:52:31.518] info <- base::c(r_version = base::gsub("R version ", 1551s [00:52:31.518] "", base::R.version$version.string), 1551s [00:52:31.518] platform = base::sprintf("%s (%s-bit)", 1551s [00:52:31.518] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1551s [00:52:31.518] os = base::paste(base::Sys.info()[base::c("sysname", 1551s [00:52:31.518] "release", "version")], collapse = " "), 1551s [00:52:31.518] hostname = base::Sys.info()[["nodename"]]) 1551s [00:52:31.518] info <- base::sprintf("%s: %s", base::names(info), 1551s [00:52:31.518] info) 1551s [00:52:31.518] info <- base::paste(info, collapse = "; ") 1551s [00:52:31.518] if (!has_future) { 1551s [00:52:31.518] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1551s [00:52:31.518] info) 1551s [00:52:31.518] } 1551s [00:52:31.518] else { 1551s [00:52:31.518] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1551s [00:52:31.518] info, version) 1551s [00:52:31.518] } 1551s [00:52:31.518] base::stop(msg) 1551s [00:52:31.518] } 1551s [00:52:31.518] }) 1551s [00:52:31.518] } 1551s [00:52:31.518] options(future.plan = NULL) 1551s [00:52:31.518] Sys.unsetenv("R_FUTURE_PLAN") 1551s [00:52:31.518] future::plan("default", .cleanup = FALSE, .init = FALSE) 1551s [00:52:31.518] } 1551s [00:52:31.518] ...future.workdir <- getwd() 1551s [00:52:31.518] } 1551s [00:52:31.518] ...future.oldOptions <- base::as.list(base::.Options) 1551s [00:52:31.518] ...future.oldEnvVars <- base::Sys.getenv() 1551s [00:52:31.518] } 1551s [00:52:31.518] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1551s [00:52:31.518] future.globals.maxSize = 2097152000, future.globals.method = NULL, 1551s [00:52:31.518] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1551s [00:52:31.518] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1551s [00:52:31.518] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1551s [00:52:31.518] future.stdout.windows.reencode = NULL, width = 80L) 1551s [00:52:31.518] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1551s [00:52:31.518] base::names(...future.oldOptions)) 1551s [00:52:31.518] } 1551s [00:52:31.518] if (FALSE) { 1551s [00:52:31.518] } 1551s [00:52:31.518] else { 1551s [00:52:31.518] if (TRUE) { 1551s [00:52:31.518] ...future.stdout <- base::rawConnection(base::raw(0L), 1551s [00:52:31.518] open = "w") 1551s [00:52:31.518] } 1551s [00:52:31.518] else { 1551s [00:52:31.518] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1551s [00:52:31.518] windows = "NUL", "/dev/null"), open = "w") 1551s [00:52:31.518] } 1551s [00:52:31.518] base::sink(...future.stdout, type = "output", split = FALSE) 1551s [00:52:31.518] base::on.exit(if (!base::is.null(...future.stdout)) { 1551s [00:52:31.518] base::sink(type = "output", split = FALSE) 1551s [00:52:31.518] base::close(...future.stdout) 1551s [00:52:31.518] }, add = TRUE) 1551s [00:52:31.518] } 1551s [00:52:31.518] ...future.frame <- base::sys.nframe() 1551s [00:52:31.518] ...future.conditions <- base::list() 1551s [00:52:31.518] ...future.rng <- base::globalenv()$.Random.seed 1551s [00:52:31.518] if (FALSE) { 1551s [00:52:31.518] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1551s [00:52:31.518] "...future.value", "...future.globalenv.names", ".Random.seed") 1551s [00:52:31.518] } 1551s [00:52:31.518] ...future.result <- base::tryCatch({ 1551s [00:52:31.518] base::withCallingHandlers({ 1551s [00:52:31.518] ...future.value <- base::withVisible(base::local({ 1551s [00:52:31.518] do.call(function(...) { 1551s [00:52:31.518] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1551s [00:52:31.518] if (!identical(...future.globals.maxSize.org, 1551s [00:52:31.518] ...future.globals.maxSize)) { 1551s [00:52:31.518] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1551s [00:52:31.518] on.exit(options(oopts), add = TRUE) 1551s [00:52:31.518] } 1551s [00:52:31.518] { 1551s [00:52:31.518] lapply(seq_along(...future.elements_ii), 1551s [00:52:31.518] FUN = function(jj) { 1551s [00:52:31.518] ...future.X_jj <- ...future.elements_ii[[jj]] 1551s [00:52:31.518] ...future.FUN(...future.X_jj, ...) 1551s [00:52:31.518] }) 1551s [00:52:31.518] } 1551s [00:52:31.518] }, args = future.call.arguments) 1551s [00:52:31.518] })) 1551s [00:52:31.518] future::FutureResult(value = ...future.value$value, 1551s [00:52:31.518] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1551s [00:52:31.518] ...future.rng), globalenv = if (FALSE) 1551s [00:52:31.518] list(added = base::setdiff(base::names(base::.GlobalEnv), 1551s [00:52:31.518] ...future.globalenv.names)) 1551s [00:52:31.518] else NULL, started = ...future.startTime, version = "1.8") 1551s [00:52:31.518] }, condition = base::local({ 1551s [00:52:31.518] c <- base::c 1551s [00:52:31.518] inherits <- base::inherits 1551s [00:52:31.518] invokeRestart <- base::invokeRestart 1551s [00:52:31.518] length <- base::length 1551s [00:52:31.518] list <- base::list 1551s [00:52:31.518] seq.int <- base::seq.int 1551s [00:52:31.518] signalCondition <- base::signalCondition 1551s [00:52:31.518] sys.calls <- base::sys.calls 1551s [00:52:31.518] `[[` <- base::`[[` 1551s [00:52:31.518] `+` <- base::`+` 1551s [00:52:31.518] `<<-` <- base::`<<-` 1551s [00:52:31.518] sysCalls <- function(calls = sys.calls(), from = 1L) { 1551s [00:52:31.518] calls[seq.int(from = from + 12L, to = length(calls) - 1551s [00:52:31.518] 3L)] 1551s [00:52:31.518] } 1551s [00:52:31.518] function(cond) { 1551s [00:52:31.518] is_error <- inherits(cond, "error") 1551s [00:52:31.518] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1551s [00:52:31.518] NULL) 1551s [00:52:31.518] if (is_error) { 1551s [00:52:31.518] sessionInformation <- function() { 1551s [00:52:31.518] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1551s [00:52:31.518] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1551s [00:52:31.518] search = base::search(), system = base::Sys.info()) 1551s [00:52:31.518] } 1551s [00:52:31.518] ...future.conditions[[length(...future.conditions) + 1551s [00:52:31.518] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1551s [00:52:31.518] cond$call), session = sessionInformation(), 1551s [00:52:31.518] timestamp = base::Sys.time(), signaled = 0L) 1551s [00:52:31.518] signalCondition(cond) 1551s [00:52:31.518] } 1551s [00:52:31.518] else if (!ignore && TRUE && inherits(cond, c("condition", 1551s [00:52:31.518] "immediateCondition"))) { 1551s [00:52:31.518] signal <- TRUE && inherits(cond, "immediateCondition") 1551s [00:52:31.518] ...future.conditions[[length(...future.conditions) + 1551s [00:52:31.518] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1551s [00:52:31.518] if (TRUE && !signal) { 1551s [00:52:31.518] muffleCondition <- function (cond, pattern = "^muffle") 1551s [00:52:31.518] { 1551s [00:52:31.518] inherits <- base::inherits 1551s [00:52:31.518] invokeRestart <- base::invokeRestart 1551s [00:52:31.518] is.null <- base::is.null 1551s [00:52:31.518] muffled <- FALSE 1551s [00:52:31.518] if (inherits(cond, "message")) { 1551s [00:52:31.518] muffled <- grepl(pattern, "muffleMessage") 1551s [00:52:31.518] if (muffled) 1551s [00:52:31.518] invokeRestart("muffleMessage") 1551s [00:52:31.518] } 1551s [00:52:31.518] else if (inherits(cond, "warning")) { 1551s [00:52:31.518] muffled <- grepl(pattern, "muffleWarning") 1551s [00:52:31.518] if (muffled) 1551s [00:52:31.518] invokeRestart("muffleWarning") 1551s [00:52:31.518] } 1551s [00:52:31.518] else if (inherits(cond, "condition")) { 1551s [00:52:31.518] if (!is.null(pattern)) { 1551s [00:52:31.518] computeRestarts <- base::computeRestarts 1551s [00:52:31.518] grepl <- base::grepl 1551s [00:52:31.518] restarts <- computeRestarts(cond) 1551s [00:52:31.518] for (restart in restarts) { 1551s [00:52:31.518] name <- restart$name 1551s [00:52:31.518] if (is.null(name)) 1551s [00:52:31.518] next 1551s [00:52:31.518] if (!grepl(pattern, name)) 1551s [00:52:31.518] next 1551s [00:52:31.518] invokeRestart(restart) 1551s [00:52:31.518] muffled <- TRUE 1551s [00:52:31.518] break 1551s [00:52:31.518] } 1551s [00:52:31.518] } 1551s [00:52:31.518] } 1551s [00:52:31.518] invisible(muffled) 1551s [00:52:31.518] } 1551s [00:52:31.518] muffleCondition(cond, pattern = "^muffle") 1551s [00:52:31.518] } 1551s [00:52:31.518] } 1551s [00:52:31.518] else { 1551s [00:52:31.518] if (TRUE) { 1551s [00:52:31.518] muffleCondition <- function (cond, pattern = "^muffle") 1551s [00:52:31.518] { 1551s [00:52:31.518] inherits <- base::inherits 1551s [00:52:31.518] invokeRestart <- base::invokeRestart 1551s [00:52:31.518] is.null <- base::is.null 1551s [00:52:31.518] muffled <- FALSE 1551s [00:52:31.518] if (inherits(cond, "message")) { 1551s [00:52:31.518] muffled <- grepl(pattern, "muffleMessage") 1551s [00:52:31.518] if (muffled) 1551s [00:52:31.518] invokeRestart("muffleMessage") 1551s [00:52:31.518] } 1551s [00:52:31.518] else if (inherits(cond, "warning")) { 1551s [00:52:31.518] muffled <- grepl(pattern, "muffleWarning") 1551s [00:52:31.518] if (muffled) 1551s [00:52:31.518] invokeRestart("muffleWarning") 1551s [00:52:31.518] } 1551s [00:52:31.518] else if (inherits(cond, "condition")) { 1551s [00:52:31.518] if (!is.null(pattern)) { 1551s [00:52:31.518] computeRestarts <- base::computeRestarts 1551s [00:52:31.518] grepl <- base::grepl 1551s [00:52:31.518] restarts <- computeRestarts(cond) 1551s [00:52:31.518] for (restart in restarts) { 1551s [00:52:31.518] name <- restart$name 1551s [00:52:31.518] if (is.null(name)) 1551s [00:52:31.518] next 1551s [00:52:31.518] if (!grepl(pattern, name)) 1551s [00:52:31.518] next 1551s [00:52:31.518] invokeRestart(restart) 1551s [00:52:31.518] muffled <- TRUE 1551s [00:52:31.518] break 1551s [00:52:31.518] } 1551s [00:52:31.518] } 1551s [00:52:31.518] } 1551s [00:52:31.518] invisible(muffled) 1551s [00:52:31.518] } 1551s [00:52:31.518] muffleCondition(cond, pattern = "^muffle") 1551s [00:52:31.518] } 1551s [00:52:31.518] } 1551s [00:52:31.518] } 1551s [00:52:31.518] })) 1551s [00:52:31.518] }, error = function(ex) { 1551s [00:52:31.518] base::structure(base::list(value = NULL, visible = NULL, 1551s [00:52:31.518] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1551s [00:52:31.518] ...future.rng), started = ...future.startTime, 1551s [00:52:31.518] finished = Sys.time(), session_uuid = NA_character_, 1551s [00:52:31.518] version = "1.8"), class = "FutureResult") 1551s [00:52:31.518] }, finally = { 1551s [00:52:31.518] if (!identical(...future.workdir, getwd())) 1551s [00:52:31.518] setwd(...future.workdir) 1551s [00:52:31.518] { 1551s [00:52:31.518] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1551s [00:52:31.518] ...future.oldOptions$nwarnings <- NULL 1551s [00:52:31.518] } 1551s [00:52:31.518] base::options(...future.oldOptions) 1551s [00:52:31.518] if (.Platform$OS.type == "windows") { 1551s [00:52:31.518] old_names <- names(...future.oldEnvVars) 1551s [00:52:31.518] envs <- base::Sys.getenv() 1551s [00:52:31.518] names <- names(envs) 1551s [00:52:31.518] common <- intersect(names, old_names) 1551s [00:52:31.518] added <- setdiff(names, old_names) 1551s [00:52:31.518] removed <- setdiff(old_names, names) 1551s [00:52:31.518] changed <- common[...future.oldEnvVars[common] != 1551s [00:52:31.518] envs[common]] 1551s [00:52:31.518] NAMES <- toupper(changed) 1551s [00:52:31.518] args <- list() 1551s [00:52:31.518] for (kk in seq_along(NAMES)) { 1551s [00:52:31.518] name <- changed[[kk]] 1551s [00:52:31.518] NAME <- NAMES[[kk]] 1551s [00:52:31.518] if (name != NAME && is.element(NAME, old_names)) 1551s [00:52:31.518] next 1551s [00:52:31.518] args[[name]] <- ...future.oldEnvVars[[name]] 1551s [00:52:31.518] } 1551s [00:52:31.518] NAMES <- toupper(added) 1551s [00:52:31.518] for (kk in seq_along(NAMES)) { 1551s [00:52:31.518] name <- added[[kk]] 1551s [00:52:31.518] NAME <- NAMES[[kk]] 1551s [00:52:31.518] if (name != NAME && is.element(NAME, old_names)) 1551s [00:52:31.518] next 1551s [00:52:31.518] args[[name]] <- "" 1551s [00:52:31.518] } 1551s [00:52:31.518] NAMES <- toupper(removed) 1551s [00:52:31.518] for (kk in seq_along(NAMES)) { 1551s [00:52:31.518] name <- removed[[kk]] 1551s [00:52:31.518] NAME <- NAMES[[kk]] 1551s [00:52:31.518] if (name != NAME && is.element(NAME, old_names)) 1551s [00:52:31.518] next 1551s [00:52:31.518] args[[name]] <- ...future.oldEnvVars[[name]] 1551s [00:52:31.518] } 1551s [00:52:31.518] if (length(args) > 0) 1551s [00:52:31.518] base::do.call(base::Sys.setenv, args = args) 1551s [00:52:31.518] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1551s [00:52:31.518] } 1551s [00:52:31.518] else { 1551s [00:52:31.518] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1551s [00:52:31.518] } 1551s [00:52:31.518] { 1551s [00:52:31.518] if (base::length(...future.futureOptionsAdded) > 1551s [00:52:31.518] 0L) { 1551s [00:52:31.518] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1551s [00:52:31.518] base::names(opts) <- ...future.futureOptionsAdded 1551s [00:52:31.518] base::options(opts) 1551s [00:52:31.518] } 1551s [00:52:31.518] { 1551s [00:52:31.518] { 1551s [00:52:31.518] NULL 1551s [00:52:31.518] RNGkind("Mersenne-Twister") 1551s [00:52:31.518] base::rm(list = ".Random.seed", envir = base::globalenv(), 1551s [00:52:31.518] inherits = FALSE) 1551s [00:52:31.518] } 1551s [00:52:31.518] options(future.plan = NULL) 1551s [00:52:31.518] if (is.na(NA_character_)) 1551s [00:52:31.518] Sys.unsetenv("R_FUTURE_PLAN") 1551s [00:52:31.518] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1551s [00:52:31.518] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1551s [00:52:31.518] envir = parent.frame()) 1551s [00:52:31.518] { 1551s [00:52:31.518] default_workers <- missing(workers) 1551s [00:52:31.518] if (is.function(workers)) 1551s [00:52:31.518] workers <- workers() 1551s [00:52:31.518] workers <- structure(as.integer(workers), 1551s [00:52:31.518] class = class(workers)) 1551s [00:52:31.518] stop_if_not(is.finite(workers), workers >= 1551s [00:52:31.518] 1L) 1551s [00:52:31.518] if ((workers == 1L && !inherits(workers, 1551s [00:52:31.518] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1551s [00:52:31.518] if (default_workers) 1551s [00:52:31.518] supportsMulticore(warn = TRUE) 1551s [00:52:31.518] return(sequential(..., envir = envir)) 1551s [00:52:31.518] } 1551s [00:52:31.518] oopts <- options(mc.cores = workers) 1551s [00:52:31.518] on.exit(options(oopts)) 1551s [00:52:31.518] future <- MulticoreFuture(..., workers = workers, 1551s [00:52:31.518] envir = envir) 1551s [00:52:31.518] if (!future$lazy) 1551s [00:52:31.518] future <- run(future) 1551s [00:52:31.518] invisible(future) 1551s [00:52:31.518] }), .cleanup = FALSE, .init = FALSE) 1551s [00:52:31.518] } 1551s [00:52:31.518] } 1551s [00:52:31.518] } 1551s [00:52:31.518] }) 1551s [00:52:31.518] if (TRUE) { 1551s [00:52:31.518] base::sink(type = "output", split = FALSE) 1551s [00:52:31.518] if (TRUE) { 1551s [00:52:31.518] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1551s [00:52:31.518] } 1551s [00:52:31.518] else { 1551s [00:52:31.518] ...future.result["stdout"] <- base::list(NULL) 1551s [00:52:31.518] } 1551s [00:52:31.518] base::close(...future.stdout) 1551s [00:52:31.518] ...future.stdout <- NULL 1551s [00:52:31.518] } 1551s [00:52:31.518] ...future.result$conditions <- ...future.conditions 1551s [00:52:31.518] ...future.result$finished <- base::Sys.time() 1551s [00:52:31.518] ...future.result 1551s [00:52:31.518] } 1551s [00:52:31.524] assign_globals() ... 1551s [00:52:31.524] List of 5 1551s [00:52:31.524] $ ...future.FUN :function (mode = "logical", length = 0L) 1551s [00:52:31.524] $ future.call.arguments :List of 1 1551s [00:52:31.524] ..$ length: int 2 1551s [00:52:31.524] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1551s [00:52:31.524] $ ...future.elements_ii :List of 1 1551s [00:52:31.524] ..$ b: chr "numeric" 1551s [00:52:31.524] $ ...future.seeds_ii : NULL 1551s [00:52:31.524] $ ...future.globals.maxSize: NULL 1551s [00:52:31.524] - attr(*, "where")=List of 5 1551s [00:52:31.524] ..$ ...future.FUN : 1551s [00:52:31.524] ..$ future.call.arguments : 1551s [00:52:31.524] ..$ ...future.elements_ii : 1551s [00:52:31.524] ..$ ...future.seeds_ii : 1551s [00:52:31.524] ..$ ...future.globals.maxSize: 1551s [00:52:31.524] - attr(*, "resolved")= logi FALSE 1551s [00:52:31.524] - attr(*, "total_size")= num 2240 1551s [00:52:31.524] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1551s [00:52:31.524] - attr(*, "already-done")= logi TRUE 1551s [00:52:31.535] - copied ‘...future.FUN’ to environment 1551s [00:52:31.535] - copied ‘future.call.arguments’ to environment 1551s [00:52:31.535] - copied ‘...future.elements_ii’ to environment 1551s [00:52:31.536] - copied ‘...future.seeds_ii’ to environment 1551s [00:52:31.536] - copied ‘...future.globals.maxSize’ to environment 1551s [00:52:31.536] assign_globals() ... done 1551s [00:52:31.537] plan(): Setting new future strategy stack: 1551s [00:52:31.537] List of future strategies: 1551s [00:52:31.537] 1. sequential: 1551s [00:52:31.537] - args: function (..., envir = parent.frame()) 1551s [00:52:31.537] - tweaked: FALSE 1551s [00:52:31.537] - call: NULL 1551s [00:52:31.537] plan(): nbrOfWorkers() = 1 1551s [00:52:31.538] plan(): Setting new future strategy stack: 1551s [00:52:31.538] List of future strategies: 1551s [00:52:31.538] 1. multicore: 1551s [00:52:31.538] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1551s [00:52:31.538] - tweaked: FALSE 1551s [00:52:31.538] - call: plan(strategy) 1551s [00:52:31.544] plan(): nbrOfWorkers() = 1 1551s [00:52:31.544] SequentialFuture started (and completed) 1551s [00:52:31.547] - Launch lazy future ... done 1551s [00:52:31.547] run() for ‘SequentialFuture’ ... done 1551s [00:52:31.547] Created future: 1551s [00:52:31.548] SequentialFuture: 1551s [00:52:31.548] Label: ‘future_lapply-2’ 1551s [00:52:31.548] Expression: 1551s [00:52:31.548] { 1551s [00:52:31.548] do.call(function(...) { 1551s [00:52:31.548] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1551s [00:52:31.548] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1551s [00:52:31.548] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1551s [00:52:31.548] on.exit(options(oopts), add = TRUE) 1551s [00:52:31.548] } 1551s [00:52:31.548] { 1551s [00:52:31.548] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1551s [00:52:31.548] ...future.X_jj <- ...future.elements_ii[[jj]] 1551s [00:52:31.548] ...future.FUN(...future.X_jj, ...) 1551s [00:52:31.548] }) 1551s [00:52:31.548] } 1551s [00:52:31.548] }, args = future.call.arguments) 1551s [00:52:31.548] } 1551s [00:52:31.548] Lazy evaluation: FALSE 1551s [00:52:31.548] Asynchronous evaluation: FALSE 1551s [00:52:31.548] Local evaluation: TRUE 1551s [00:52:31.548] Environment: R_GlobalEnv 1551s [00:52:31.548] Capture standard output: TRUE 1551s [00:52:31.548] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1551s [00:52:31.548] Globals: 5 objects totaling 2.30 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1551s [00:52:31.548] Packages: 1551s [00:52:31.548] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1551s [00:52:31.548] Resolved: TRUE 1551s [00:52:31.548] Value: 64 bytes of class ‘list’ 1551s [00:52:31.548] Early signaling: FALSE 1551s [00:52:31.548] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1551s [00:52:31.548] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1551s [00:52:31.550] Chunk #2 of 4 ... DONE 1551s [00:52:31.550] Chunk #3 of 4 ... 1551s [00:52:31.550] - Finding globals in 'X' for chunk #3 ... 1551s [00:52:31.550] getGlobalsAndPackages() ... 1551s [00:52:31.551] Searching for globals... 1551s [00:52:31.551] 1551s [00:52:31.551] Searching for globals ... DONE 1551s [00:52:31.552] - globals: [0] 1551s [00:52:31.552] getGlobalsAndPackages() ... DONE 1551s [00:52:31.552] + additional globals found: [n=0] 1551s [00:52:31.552] + additional namespaces needed: [n=0] 1551s [00:52:31.552] - Finding globals in 'X' for chunk #3 ... DONE 1551s [00:52:31.552] - Adjusted option 'future.globals.maxSize': 524288000 -> 4 * 524288000 = 2097152000 (bytes) 1551s [00:52:31.553] - seeds: 1551s [00:52:31.553] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1551s [00:52:31.553] getGlobalsAndPackages() ... 1551s [00:52:31.553] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1551s [00:52:31.554] Resolving globals: FALSE 1551s [00:52:31.554] Tweak future expression to call with '...' arguments ... 1551s [00:52:31.554] { 1551s [00:52:31.554] do.call(function(...) { 1551s [00:52:31.554] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1551s [00:52:31.554] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1551s [00:52:31.554] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1551s [00:52:31.554] on.exit(options(oopts), add = TRUE) 1551s [00:52:31.554] } 1551s [00:52:31.554] { 1551s [00:52:31.554] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1551s [00:52:31.554] ...future.X_jj <- ...future.elements_ii[[jj]] 1551s [00:52:31.554] ...future.FUN(...future.X_jj, ...) 1551s [00:52:31.554] }) 1551s [00:52:31.554] } 1551s [00:52:31.554] }, args = future.call.arguments) 1551s [00:52:31.554] } 1551s [00:52:31.555] Tweak future expression to call with '...' arguments ... DONE 1551s [00:52:31.556] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1551s [00:52:31.556] 1551s [00:52:31.556] getGlobalsAndPackages() ... DONE 1551s [00:52:31.557] run() for ‘Future’ ... 1551s [00:52:31.557] - state: ‘created’ 1551s [00:52:31.557] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1551s [00:52:31.562] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1551s [00:52:31.563] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1551s [00:52:31.563] - Field: ‘label’ 1551s [00:52:31.563] - Field: ‘local’ 1551s [00:52:31.563] - Field: ‘owner’ 1551s [00:52:31.563] - Field: ‘envir’ 1551s [00:52:31.563] - Field: ‘packages’ 1551s [00:52:31.564] - Field: ‘gc’ 1551s [00:52:31.564] - Field: ‘conditions’ 1551s [00:52:31.564] - Field: ‘expr’ 1551s [00:52:31.564] - Field: ‘uuid’ 1551s [00:52:31.564] - Field: ‘seed’ 1551s [00:52:31.565] - Field: ‘version’ 1551s [00:52:31.565] - Field: ‘result’ 1551s [00:52:31.565] - Field: ‘asynchronous’ 1551s [00:52:31.566] - Field: ‘calls’ 1551s [00:52:31.566] - Field: ‘globals’ 1551s [00:52:31.566] - Field: ‘stdout’ 1551s [00:52:31.566] - Field: ‘earlySignal’ 1551s [00:52:31.566] - Field: ‘lazy’ 1551s [00:52:31.566] - Field: ‘state’ 1551s [00:52:31.567] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1551s [00:52:31.567] - Launch lazy future ... 1551s [00:52:31.567] Packages needed by the future expression (n = 0): 1551s [00:52:31.567] Packages needed by future strategies (n = 0): 1551s [00:52:31.568] { 1551s [00:52:31.568] { 1551s [00:52:31.568] { 1551s [00:52:31.568] ...future.startTime <- base::Sys.time() 1551s [00:52:31.568] { 1551s [00:52:31.568] { 1551s [00:52:31.568] { 1551s [00:52:31.568] base::local({ 1551s [00:52:31.568] has_future <- base::requireNamespace("future", 1551s [00:52:31.568] quietly = TRUE) 1551s [00:52:31.568] if (has_future) { 1551s [00:52:31.568] ns <- base::getNamespace("future") 1551s [00:52:31.568] version <- ns[[".package"]][["version"]] 1551s [00:52:31.568] if (is.null(version)) 1551s [00:52:31.568] version <- utils::packageVersion("future") 1551s [00:52:31.568] } 1551s [00:52:31.568] else { 1551s [00:52:31.568] version <- NULL 1551s [00:52:31.568] } 1551s [00:52:31.568] if (!has_future || version < "1.8.0") { 1551s [00:52:31.568] info <- base::c(r_version = base::gsub("R version ", 1551s [00:52:31.568] "", base::R.version$version.string), 1551s [00:52:31.568] platform = base::sprintf("%s (%s-bit)", 1551s [00:52:31.568] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1551s [00:52:31.568] os = base::paste(base::Sys.info()[base::c("sysname", 1551s [00:52:31.568] "release", "version")], collapse = " "), 1551s [00:52:31.568] hostname = base::Sys.info()[["nodename"]]) 1551s [00:52:31.568] info <- base::sprintf("%s: %s", base::names(info), 1551s [00:52:31.568] info) 1551s [00:52:31.568] info <- base::paste(info, collapse = "; ") 1551s [00:52:31.568] if (!has_future) { 1551s [00:52:31.568] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1551s [00:52:31.568] info) 1551s [00:52:31.568] } 1551s [00:52:31.568] else { 1551s [00:52:31.568] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1551s [00:52:31.568] info, version) 1551s [00:52:31.568] } 1551s [00:52:31.568] base::stop(msg) 1551s [00:52:31.568] } 1551s [00:52:31.568] }) 1551s [00:52:31.568] } 1551s [00:52:31.568] options(future.plan = NULL) 1551s [00:52:31.568] Sys.unsetenv("R_FUTURE_PLAN") 1551s [00:52:31.568] future::plan("default", .cleanup = FALSE, .init = FALSE) 1551s [00:52:31.568] } 1551s [00:52:31.568] ...future.workdir <- getwd() 1551s [00:52:31.568] } 1551s [00:52:31.568] ...future.oldOptions <- base::as.list(base::.Options) 1551s [00:52:31.568] ...future.oldEnvVars <- base::Sys.getenv() 1551s [00:52:31.568] } 1551s [00:52:31.568] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1551s [00:52:31.568] future.globals.maxSize = 2097152000, future.globals.method = NULL, 1551s [00:52:31.568] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1551s [00:52:31.568] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1551s [00:52:31.568] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1551s [00:52:31.568] future.stdout.windows.reencode = NULL, width = 80L) 1551s [00:52:31.568] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1551s [00:52:31.568] base::names(...future.oldOptions)) 1551s [00:52:31.568] } 1551s [00:52:31.568] if (FALSE) { 1551s [00:52:31.568] } 1551s [00:52:31.568] else { 1551s [00:52:31.568] if (TRUE) { 1551s [00:52:31.568] ...future.stdout <- base::rawConnection(base::raw(0L), 1551s [00:52:31.568] open = "w") 1551s [00:52:31.568] } 1551s [00:52:31.568] else { 1551s [00:52:31.568] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1551s [00:52:31.568] windows = "NUL", "/dev/null"), open = "w") 1551s [00:52:31.568] } 1551s [00:52:31.568] base::sink(...future.stdout, type = "output", split = FALSE) 1551s [00:52:31.568] base::on.exit(if (!base::is.null(...future.stdout)) { 1551s [00:52:31.568] base::sink(type = "output", split = FALSE) 1551s [00:52:31.568] base::close(...future.stdout) 1551s [00:52:31.568] }, add = TRUE) 1551s [00:52:31.568] } 1551s [00:52:31.568] ...future.frame <- base::sys.nframe() 1551s [00:52:31.568] ...future.conditions <- base::list() 1551s [00:52:31.568] ...future.rng <- base::globalenv()$.Random.seed 1551s [00:52:31.568] if (FALSE) { 1551s [00:52:31.568] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1551s [00:52:31.568] "...future.value", "...future.globalenv.names", ".Random.seed") 1551s [00:52:31.568] } 1551s [00:52:31.568] ...future.result <- base::tryCatch({ 1551s [00:52:31.568] base::withCallingHandlers({ 1551s [00:52:31.568] ...future.value <- base::withVisible(base::local({ 1551s [00:52:31.568] do.call(function(...) { 1551s [00:52:31.568] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1551s [00:52:31.568] if (!identical(...future.globals.maxSize.org, 1551s [00:52:31.568] ...future.globals.maxSize)) { 1551s [00:52:31.568] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1551s [00:52:31.568] on.exit(options(oopts), add = TRUE) 1551s [00:52:31.568] } 1551s [00:52:31.568] { 1551s [00:52:31.568] lapply(seq_along(...future.elements_ii), 1551s [00:52:31.568] FUN = function(jj) { 1551s [00:52:31.568] ...future.X_jj <- ...future.elements_ii[[jj]] 1551s [00:52:31.568] ...future.FUN(...future.X_jj, ...) 1551s [00:52:31.568] }) 1551s [00:52:31.568] } 1551s [00:52:31.568] }, args = future.call.arguments) 1551s [00:52:31.568] })) 1551s [00:52:31.568] future::FutureResult(value = ...future.value$value, 1551s [00:52:31.568] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1551s [00:52:31.568] ...future.rng), globalenv = if (FALSE) 1551s [00:52:31.568] list(added = base::setdiff(base::names(base::.GlobalEnv), 1551s [00:52:31.568] ...future.globalenv.names)) 1551s [00:52:31.568] else NULL, started = ...future.startTime, version = "1.8") 1551s [00:52:31.568] }, condition = base::local({ 1551s [00:52:31.568] c <- base::c 1551s [00:52:31.568] inherits <- base::inherits 1551s [00:52:31.568] invokeRestart <- base::invokeRestart 1551s [00:52:31.568] length <- base::length 1551s [00:52:31.568] list <- base::list 1551s [00:52:31.568] seq.int <- base::seq.int 1551s [00:52:31.568] signalCondition <- base::signalCondition 1551s [00:52:31.568] sys.calls <- base::sys.calls 1551s [00:52:31.568] `[[` <- base::`[[` 1551s [00:52:31.568] `+` <- base::`+` 1551s [00:52:31.568] `<<-` <- base::`<<-` 1551s [00:52:31.568] sysCalls <- function(calls = sys.calls(), from = 1L) { 1551s [00:52:31.568] calls[seq.int(from = from + 12L, to = length(calls) - 1551s [00:52:31.568] 3L)] 1551s [00:52:31.568] } 1551s [00:52:31.568] function(cond) { 1551s [00:52:31.568] is_error <- inherits(cond, "error") 1551s [00:52:31.568] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1551s [00:52:31.568] NULL) 1551s [00:52:31.568] if (is_error) { 1551s [00:52:31.568] sessionInformation <- function() { 1551s [00:52:31.568] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1551s [00:52:31.568] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1551s [00:52:31.568] search = base::search(), system = base::Sys.info()) 1551s [00:52:31.568] } 1551s [00:52:31.568] ...future.conditions[[length(...future.conditions) + 1551s [00:52:31.568] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1551s [00:52:31.568] cond$call), session = sessionInformation(), 1551s [00:52:31.568] timestamp = base::Sys.time(), signaled = 0L) 1551s [00:52:31.568] signalCondition(cond) 1551s [00:52:31.568] } 1551s [00:52:31.568] else if (!ignore && TRUE && inherits(cond, c("condition", 1551s [00:52:31.568] "immediateCondition"))) { 1551s [00:52:31.568] signal <- TRUE && inherits(cond, "immediateCondition") 1551s [00:52:31.568] ...future.conditions[[length(...future.conditions) + 1551s [00:52:31.568] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1551s [00:52:31.568] if (TRUE && !signal) { 1551s [00:52:31.568] muffleCondition <- function (cond, pattern = "^muffle") 1551s [00:52:31.568] { 1551s [00:52:31.568] inherits <- base::inherits 1551s [00:52:31.568] invokeRestart <- base::invokeRestart 1551s [00:52:31.568] is.null <- base::is.null 1551s [00:52:31.568] muffled <- FALSE 1551s [00:52:31.568] if (inherits(cond, "message")) { 1551s [00:52:31.568] muffled <- grepl(pattern, "muffleMessage") 1551s [00:52:31.568] if (muffled) 1551s [00:52:31.568] invokeRestart("muffleMessage") 1551s [00:52:31.568] } 1551s [00:52:31.568] else if (inherits(cond, "warning")) { 1551s [00:52:31.568] muffled <- grepl(pattern, "muffleWarning") 1551s [00:52:31.568] if (muffled) 1551s [00:52:31.568] invokeRestart("muffleWarning") 1551s [00:52:31.568] } 1551s [00:52:31.568] else if (inherits(cond, "condition")) { 1551s [00:52:31.568] if (!is.null(pattern)) { 1551s [00:52:31.568] computeRestarts <- base::computeRestarts 1551s [00:52:31.568] grepl <- base::grepl 1551s [00:52:31.568] restarts <- computeRestarts(cond) 1551s [00:52:31.568] for (restart in restarts) { 1551s [00:52:31.568] name <- restart$name 1551s [00:52:31.568] if (is.null(name)) 1551s [00:52:31.568] next 1551s [00:52:31.568] if (!grepl(pattern, name)) 1551s [00:52:31.568] next 1551s [00:52:31.568] invokeRestart(restart) 1551s [00:52:31.568] muffled <- TRUE 1551s [00:52:31.568] break 1551s [00:52:31.568] } 1551s [00:52:31.568] } 1551s [00:52:31.568] } 1551s [00:52:31.568] invisible(muffled) 1551s [00:52:31.568] } 1551s [00:52:31.568] muffleCondition(cond, pattern = "^muffle") 1551s [00:52:31.568] } 1551s [00:52:31.568] } 1551s [00:52:31.568] else { 1551s [00:52:31.568] if (TRUE) { 1551s [00:52:31.568] muffleCondition <- function (cond, pattern = "^muffle") 1551s [00:52:31.568] { 1551s [00:52:31.568] inherits <- base::inherits 1551s [00:52:31.568] invokeRestart <- base::invokeRestart 1551s [00:52:31.568] is.null <- base::is.null 1551s [00:52:31.568] muffled <- FALSE 1551s [00:52:31.568] if (inherits(cond, "message")) { 1551s [00:52:31.568] muffled <- grepl(pattern, "muffleMessage") 1551s [00:52:31.568] if (muffled) 1551s [00:52:31.568] invokeRestart("muffleMessage") 1551s [00:52:31.568] } 1551s [00:52:31.568] else if (inherits(cond, "warning")) { 1551s [00:52:31.568] muffled <- grepl(pattern, "muffleWarning") 1551s [00:52:31.568] if (muffled) 1551s [00:52:31.568] invokeRestart("muffleWarning") 1551s [00:52:31.568] } 1551s [00:52:31.568] else if (inherits(cond, "condition")) { 1551s [00:52:31.568] if (!is.null(pattern)) { 1551s [00:52:31.568] computeRestarts <- base::computeRestarts 1551s [00:52:31.568] grepl <- base::grepl 1551s [00:52:31.568] restarts <- computeRestarts(cond) 1551s [00:52:31.568] for (restart in restarts) { 1551s [00:52:31.568] name <- restart$name 1551s [00:52:31.568] if (is.null(name)) 1551s [00:52:31.568] next 1551s [00:52:31.568] if (!grepl(pattern, name)) 1551s [00:52:31.568] next 1551s [00:52:31.568] invokeRestart(restart) 1551s [00:52:31.568] muffled <- TRUE 1551s [00:52:31.568] break 1551s [00:52:31.568] } 1551s [00:52:31.568] } 1551s [00:52:31.568] } 1551s [00:52:31.568] invisible(muffled) 1551s [00:52:31.568] } 1551s [00:52:31.568] muffleCondition(cond, pattern = "^muffle") 1551s [00:52:31.568] } 1551s [00:52:31.568] } 1551s [00:52:31.568] } 1551s [00:52:31.568] })) 1551s [00:52:31.568] }, error = function(ex) { 1551s [00:52:31.568] base::structure(base::list(value = NULL, visible = NULL, 1551s [00:52:31.568] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1551s [00:52:31.568] ...future.rng), started = ...future.startTime, 1551s [00:52:31.568] finished = Sys.time(), session_uuid = NA_character_, 1551s [00:52:31.568] version = "1.8"), class = "FutureResult") 1551s [00:52:31.568] }, finally = { 1551s [00:52:31.568] if (!identical(...future.workdir, getwd())) 1551s [00:52:31.568] setwd(...future.workdir) 1551s [00:52:31.568] { 1551s [00:52:31.568] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1551s [00:52:31.568] ...future.oldOptions$nwarnings <- NULL 1551s [00:52:31.568] } 1551s [00:52:31.568] base::options(...future.oldOptions) 1551s [00:52:31.568] if (.Platform$OS.type == "windows") { 1551s [00:52:31.568] old_names <- names(...future.oldEnvVars) 1551s [00:52:31.568] envs <- base::Sys.getenv() 1551s [00:52:31.568] names <- names(envs) 1551s [00:52:31.568] common <- intersect(names, old_names) 1551s [00:52:31.568] added <- setdiff(names, old_names) 1551s [00:52:31.568] removed <- setdiff(old_names, names) 1551s [00:52:31.568] changed <- common[...future.oldEnvVars[common] != 1551s [00:52:31.568] envs[common]] 1551s [00:52:31.568] NAMES <- toupper(changed) 1551s [00:52:31.568] args <- list() 1551s [00:52:31.568] for (kk in seq_along(NAMES)) { 1551s [00:52:31.568] name <- changed[[kk]] 1551s [00:52:31.568] NAME <- NAMES[[kk]] 1551s [00:52:31.568] if (name != NAME && is.element(NAME, old_names)) 1551s [00:52:31.568] next 1551s [00:52:31.568] args[[name]] <- ...future.oldEnvVars[[name]] 1551s [00:52:31.568] } 1551s [00:52:31.568] NAMES <- toupper(added) 1551s [00:52:31.568] for (kk in seq_along(NAMES)) { 1551s [00:52:31.568] name <- added[[kk]] 1551s [00:52:31.568] NAME <- NAMES[[kk]] 1551s [00:52:31.568] if (name != NAME && is.element(NAME, old_names)) 1551s [00:52:31.568] next 1551s [00:52:31.568] args[[name]] <- "" 1551s [00:52:31.568] } 1551s [00:52:31.568] NAMES <- toupper(removed) 1551s [00:52:31.568] for (kk in seq_along(NAMES)) { 1551s [00:52:31.568] name <- removed[[kk]] 1551s [00:52:31.568] NAME <- NAMES[[kk]] 1551s [00:52:31.568] if (name != NAME && is.element(NAME, old_names)) 1551s [00:52:31.568] next 1551s [00:52:31.568] args[[name]] <- ...future.oldEnvVars[[name]] 1551s [00:52:31.568] } 1551s [00:52:31.568] if (length(args) > 0) 1551s [00:52:31.568] base::do.call(base::Sys.setenv, args = args) 1551s [00:52:31.568] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1551s [00:52:31.568] } 1551s [00:52:31.568] else { 1551s [00:52:31.568] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1551s [00:52:31.568] } 1551s [00:52:31.568] { 1551s [00:52:31.568] if (base::length(...future.futureOptionsAdded) > 1551s [00:52:31.568] 0L) { 1551s [00:52:31.568] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1551s [00:52:31.568] base::names(opts) <- ...future.futureOptionsAdded 1551s [00:52:31.568] base::options(opts) 1551s [00:52:31.568] } 1551s [00:52:31.568] { 1551s [00:52:31.568] { 1551s [00:52:31.568] NULL 1551s [00:52:31.568] RNGkind("Mersenne-Twister") 1551s [00:52:31.568] base::rm(list = ".Random.seed", envir = base::globalenv(), 1551s [00:52:31.568] inherits = FALSE) 1551s [00:52:31.568] } 1551s [00:52:31.568] options(future.plan = NULL) 1551s [00:52:31.568] if (is.na(NA_character_)) 1551s [00:52:31.568] Sys.unsetenv("R_FUTURE_PLAN") 1551s [00:52:31.568] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1551s [00:52:31.568] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1551s [00:52:31.568] envir = parent.frame()) 1551s [00:52:31.568] { 1551s [00:52:31.568] default_workers <- missing(workers) 1551s [00:52:31.568] if (is.function(workers)) 1551s [00:52:31.568] workers <- workers() 1551s [00:52:31.568] workers <- structure(as.integer(workers), 1551s [00:52:31.568] class = class(workers)) 1551s [00:52:31.568] stop_if_not(is.finite(workers), workers >= 1551s [00:52:31.568] 1L) 1551s [00:52:31.568] if ((workers == 1L && !inherits(workers, 1551s [00:52:31.568] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1551s [00:52:31.568] if (default_workers) 1551s [00:52:31.568] supportsMulticore(warn = TRUE) 1551s [00:52:31.568] return(sequential(..., envir = envir)) 1551s [00:52:31.568] } 1551s [00:52:31.568] oopts <- options(mc.cores = workers) 1551s [00:52:31.568] on.exit(options(oopts)) 1551s [00:52:31.568] future <- MulticoreFuture(..., workers = workers, 1551s [00:52:31.568] envir = envir) 1551s [00:52:31.568] if (!future$lazy) 1551s [00:52:31.568] future <- run(future) 1551s [00:52:31.568] invisible(future) 1551s [00:52:31.568] }), .cleanup = FALSE, .init = FALSE) 1551s [00:52:31.568] } 1551s [00:52:31.568] } 1551s [00:52:31.568] } 1551s [00:52:31.568] }) 1551s [00:52:31.568] if (TRUE) { 1551s [00:52:31.568] base::sink(type = "output", split = FALSE) 1551s [00:52:31.568] if (TRUE) { 1551s [00:52:31.568] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1551s [00:52:31.568] } 1551s [00:52:31.568] else { 1551s [00:52:31.568] ...future.result["stdout"] <- base::list(NULL) 1551s [00:52:31.568] } 1551s [00:52:31.568] base::close(...future.stdout) 1551s [00:52:31.568] ...future.stdout <- NULL 1551s [00:52:31.568] } 1551s [00:52:31.568] ...future.result$conditions <- ...future.conditions 1551s [00:52:31.568] ...future.result$finished <- base::Sys.time() 1551s [00:52:31.568] ...future.result 1551s [00:52:31.568] } 1551s [00:52:31.574] assign_globals() ... 1551s [00:52:31.574] List of 5 1551s [00:52:31.574] $ ...future.FUN :function (mode = "logical", length = 0L) 1551s [00:52:31.574] $ future.call.arguments :List of 1 1551s [00:52:31.574] ..$ length: int 2 1551s [00:52:31.574] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1551s [00:52:31.574] $ ...future.elements_ii :List of 1 1551s [00:52:31.574] ..$ c: chr "character" 1551s [00:52:31.574] $ ...future.seeds_ii : NULL 1551s [00:52:31.574] $ ...future.globals.maxSize: NULL 1551s [00:52:31.574] - attr(*, "where")=List of 5 1551s [00:52:31.574] ..$ ...future.FUN : 1551s [00:52:31.574] ..$ future.call.arguments : 1551s [00:52:31.574] ..$ ...future.elements_ii : 1551s [00:52:31.574] ..$ ...future.seeds_ii : 1551s [00:52:31.574] ..$ ...future.globals.maxSize: 1551s [00:52:31.574] - attr(*, "resolved")= logi FALSE 1551s [00:52:31.574] - attr(*, "total_size")= num 2240 1551s [00:52:31.574] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1551s [00:52:31.574] - attr(*, "already-done")= logi TRUE 1551s [00:52:31.585] - copied ‘...future.FUN’ to environment 1551s [00:52:31.586] - copied ‘future.call.arguments’ to environment 1551s [00:52:31.586] - copied ‘...future.elements_ii’ to environment 1551s [00:52:31.586] - copied ‘...future.seeds_ii’ to environment 1551s [00:52:31.586] - copied ‘...future.globals.maxSize’ to environment 1551s [00:52:31.586] assign_globals() ... done 1551s [00:52:31.587] plan(): Setting new future strategy stack: 1551s [00:52:31.587] List of future strategies: 1551s [00:52:31.587] 1. sequential: 1551s [00:52:31.587] - args: function (..., envir = parent.frame()) 1551s [00:52:31.587] - tweaked: FALSE 1551s [00:52:31.587] - call: NULL 1551s [00:52:31.588] plan(): nbrOfWorkers() = 1 1551s [00:52:31.589] plan(): Setting new future strategy stack: 1551s [00:52:31.589] List of future strategies: 1551s [00:52:31.589] 1. multicore: 1551s [00:52:31.589] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1551s [00:52:31.589] - tweaked: FALSE 1551s [00:52:31.589] - call: plan(strategy) 1551s [00:52:31.594] plan(): nbrOfWorkers() = 1 1551s [00:52:31.594] SequentialFuture started (and completed) 1551s [00:52:31.594] - Launch lazy future ... done 1551s [00:52:31.595] run() for ‘SequentialFuture’ ... done 1551s [00:52:31.595] Created future: 1551s [00:52:31.595] SequentialFuture: 1551s [00:52:31.595] Label: ‘future_lapply-3’ 1551s [00:52:31.595] Expression: 1551s [00:52:31.595] { 1551s [00:52:31.595] do.call(function(...) { 1551s [00:52:31.595] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1551s [00:52:31.595] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1551s [00:52:31.595] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1551s [00:52:31.595] on.exit(options(oopts), add = TRUE) 1551s [00:52:31.595] } 1551s [00:52:31.595] { 1551s [00:52:31.595] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1551s [00:52:31.595] ...future.X_jj <- ...future.elements_ii[[jj]] 1551s [00:52:31.595] ...future.FUN(...future.X_jj, ...) 1551s [00:52:31.595] }) 1551s [00:52:31.595] } 1551s [00:52:31.595] }, args = future.call.arguments) 1551s [00:52:31.595] } 1551s [00:52:31.595] Lazy evaluation: FALSE 1551s [00:52:31.595] Asynchronous evaluation: FALSE 1551s [00:52:31.595] Local evaluation: TRUE 1551s [00:52:31.595] Environment: R_GlobalEnv 1551s [00:52:31.595] Capture standard output: TRUE 1551s [00:52:31.595] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1551s [00:52:31.595] Globals: 5 objects totaling 2.30 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 120 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1551s [00:52:31.595] Packages: 1551s [00:52:31.595] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1551s [00:52:31.595] Resolved: TRUE 1551s [00:52:31.595] Value: 120 bytes of class ‘list’ 1551s [00:52:31.595] Early signaling: FALSE 1551s [00:52:31.595] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1551s [00:52:31.595] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1551s [00:52:31.597] Chunk #3 of 4 ... DONE 1551s [00:52:31.597] Chunk #4 of 4 ... 1551s [00:52:31.598] - Finding globals in 'X' for chunk #4 ... 1551s [00:52:31.598] getGlobalsAndPackages() ... 1551s [00:52:31.598] Searching for globals... 1551s [00:52:31.598] 1551s [00:52:31.598] Searching for globals ... DONE 1551s [00:52:31.599] - globals: [0] 1551s [00:52:31.599] getGlobalsAndPackages() ... DONE 1551s [00:52:31.599] + additional globals found: [n=0] 1551s [00:52:31.599] + additional namespaces needed: [n=0] 1551s [00:52:31.604] - Finding globals in 'X' for chunk #4 ... DONE 1551s [00:52:31.604] - Adjusted option 'future.globals.maxSize': 524288000 -> 4 * 524288000 = 2097152000 (bytes) 1551s [00:52:31.605] - seeds: 1551s [00:52:31.605] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1551s [00:52:31.605] getGlobalsAndPackages() ... 1551s [00:52:31.606] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1551s [00:52:31.606] Resolving globals: FALSE 1551s [00:52:31.606] Tweak future expression to call with '...' arguments ... 1551s [00:52:31.607] { 1551s [00:52:31.607] do.call(function(...) { 1551s [00:52:31.607] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1551s [00:52:31.607] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1551s [00:52:31.607] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1551s [00:52:31.607] on.exit(options(oopts), add = TRUE) 1551s [00:52:31.607] } 1551s [00:52:31.607] { 1551s [00:52:31.607] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1551s [00:52:31.607] ...future.X_jj <- ...future.elements_ii[[jj]] 1551s [00:52:31.607] ...future.FUN(...future.X_jj, ...) 1551s [00:52:31.607] }) 1551s [00:52:31.607] } 1551s [00:52:31.607] }, args = future.call.arguments) 1551s [00:52:31.607] } 1551s [00:52:31.607] Tweak future expression to call with '...' arguments ... DONE 1551s [00:52:31.608] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1551s [00:52:31.608] 1551s [00:52:31.608] getGlobalsAndPackages() ... DONE 1551s [00:52:31.608] run() for ‘Future’ ... 1551s [00:52:31.609] - state: ‘created’ 1551s [00:52:31.609] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1551s [00:52:31.616] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1551s [00:52:31.617] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1551s [00:52:31.618] - Field: ‘label’ 1551s [00:52:31.618] - Field: ‘local’ 1551s [00:52:31.618] - Field: ‘owner’ 1551s [00:52:31.618] - Field: ‘envir’ 1551s [00:52:31.619] - Field: ‘packages’ 1551s [00:52:31.619] - Field: ‘gc’ 1551s [00:52:31.620] - Field: ‘conditions’ 1551s [00:52:31.620] - Field: ‘expr’ 1551s [00:52:31.620] - Field: ‘uuid’ 1551s [00:52:31.620] - Field: ‘seed’ 1551s [00:52:31.621] - Field: ‘version’ 1551s [00:52:31.621] - Field: ‘result’ 1551s [00:52:31.621] - Field: ‘asynchronous’ 1551s [00:52:31.621] - Field: ‘calls’ 1551s [00:52:31.621] - Field: ‘globals’ 1551s [00:52:31.622] - Field: ‘stdout’ 1551s [00:52:31.622] - Field: ‘earlySignal’ 1551s [00:52:31.622] - Field: ‘lazy’ 1551s [00:52:31.622] - Field: ‘state’ 1551s [00:52:31.623] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1551s [00:52:31.623] - Launch lazy future ... 1551s [00:52:31.623] Packages needed by the future expression (n = 0): 1551s [00:52:31.624] Packages needed by future strategies (n = 0): 1551s [00:52:31.624] { 1551s [00:52:31.624] { 1551s [00:52:31.624] { 1551s [00:52:31.624] ...future.startTime <- base::Sys.time() 1551s [00:52:31.624] { 1551s [00:52:31.624] { 1551s [00:52:31.624] { 1551s [00:52:31.624] base::local({ 1551s [00:52:31.624] has_future <- base::requireNamespace("future", 1551s [00:52:31.624] quietly = TRUE) 1551s [00:52:31.624] if (has_future) { 1551s [00:52:31.624] ns <- base::getNamespace("future") 1551s [00:52:31.624] version <- ns[[".package"]][["version"]] 1551s [00:52:31.624] if (is.null(version)) 1551s [00:52:31.624] version <- utils::packageVersion("future") 1551s [00:52:31.624] } 1551s [00:52:31.624] else { 1551s [00:52:31.624] version <- NULL 1551s [00:52:31.624] } 1551s [00:52:31.624] if (!has_future || version < "1.8.0") { 1551s [00:52:31.624] info <- base::c(r_version = base::gsub("R version ", 1551s [00:52:31.624] "", base::R.version$version.string), 1551s [00:52:31.624] platform = base::sprintf("%s (%s-bit)", 1551s [00:52:31.624] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1551s [00:52:31.624] os = base::paste(base::Sys.info()[base::c("sysname", 1551s [00:52:31.624] "release", "version")], collapse = " "), 1551s [00:52:31.624] hostname = base::Sys.info()[["nodename"]]) 1551s [00:52:31.624] info <- base::sprintf("%s: %s", base::names(info), 1551s [00:52:31.624] info) 1551s [00:52:31.624] info <- base::paste(info, collapse = "; ") 1551s [00:52:31.624] if (!has_future) { 1551s [00:52:31.624] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1551s [00:52:31.624] info) 1551s [00:52:31.624] } 1551s [00:52:31.624] else { 1551s [00:52:31.624] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1551s [00:52:31.624] info, version) 1551s [00:52:31.624] } 1551s [00:52:31.624] base::stop(msg) 1551s [00:52:31.624] } 1551s [00:52:31.624] }) 1551s [00:52:31.624] } 1551s [00:52:31.624] options(future.plan = NULL) 1551s [00:52:31.624] Sys.unsetenv("R_FUTURE_PLAN") 1551s [00:52:31.624] future::plan("default", .cleanup = FALSE, .init = FALSE) 1551s [00:52:31.624] } 1551s [00:52:31.624] ...future.workdir <- getwd() 1551s [00:52:31.624] } 1551s [00:52:31.624] ...future.oldOptions <- base::as.list(base::.Options) 1551s [00:52:31.624] ...future.oldEnvVars <- base::Sys.getenv() 1551s [00:52:31.624] } 1551s [00:52:31.624] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1551s [00:52:31.624] future.globals.maxSize = 2097152000, future.globals.method = NULL, 1551s [00:52:31.624] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1551s [00:52:31.624] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1551s [00:52:31.624] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1551s [00:52:31.624] future.stdout.windows.reencode = NULL, width = 80L) 1551s [00:52:31.624] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1551s [00:52:31.624] base::names(...future.oldOptions)) 1551s [00:52:31.624] } 1551s [00:52:31.624] if (FALSE) { 1551s [00:52:31.624] } 1551s [00:52:31.624] else { 1551s [00:52:31.624] if (TRUE) { 1551s [00:52:31.624] ...future.stdout <- base::rawConnection(base::raw(0L), 1551s [00:52:31.624] open = "w") 1551s [00:52:31.624] } 1551s [00:52:31.624] else { 1551s [00:52:31.624] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1551s [00:52:31.624] windows = "NUL", "/dev/null"), open = "w") 1551s [00:52:31.624] } 1551s [00:52:31.624] base::sink(...future.stdout, type = "output", split = FALSE) 1551s [00:52:31.624] base::on.exit(if (!base::is.null(...future.stdout)) { 1551s [00:52:31.624] base::sink(type = "output", split = FALSE) 1551s [00:52:31.624] base::close(...future.stdout) 1551s [00:52:31.624] }, add = TRUE) 1551s [00:52:31.624] } 1551s [00:52:31.624] ...future.frame <- base::sys.nframe() 1551s [00:52:31.624] ...future.conditions <- base::list() 1551s [00:52:31.624] ...future.rng <- base::globalenv()$.Random.seed 1551s [00:52:31.624] if (FALSE) { 1551s [00:52:31.624] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1551s [00:52:31.624] "...future.value", "...future.globalenv.names", ".Random.seed") 1551s [00:52:31.624] } 1551s [00:52:31.624] ...future.result <- base::tryCatch({ 1551s [00:52:31.624] base::withCallingHandlers({ 1551s [00:52:31.624] ...future.value <- base::withVisible(base::local({ 1551s [00:52:31.624] do.call(function(...) { 1551s [00:52:31.624] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1551s [00:52:31.624] if (!identical(...future.globals.maxSize.org, 1551s [00:52:31.624] ...future.globals.maxSize)) { 1551s [00:52:31.624] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1551s [00:52:31.624] on.exit(options(oopts), add = TRUE) 1551s [00:52:31.624] } 1551s [00:52:31.624] { 1551s [00:52:31.624] lapply(seq_along(...future.elements_ii), 1551s [00:52:31.624] FUN = function(jj) { 1551s [00:52:31.624] ...future.X_jj <- ...future.elements_ii[[jj]] 1551s [00:52:31.624] ...future.FUN(...future.X_jj, ...) 1551s [00:52:31.624] }) 1551s [00:52:31.624] } 1551s [00:52:31.624] }, args = future.call.arguments) 1551s [00:52:31.624] })) 1551s [00:52:31.624] future::FutureResult(value = ...future.value$value, 1551s [00:52:31.624] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1551s [00:52:31.624] ...future.rng), globalenv = if (FALSE) 1551s [00:52:31.624] list(added = base::setdiff(base::names(base::.GlobalEnv), 1551s [00:52:31.624] ...future.globalenv.names)) 1551s [00:52:31.624] else NULL, started = ...future.startTime, version = "1.8") 1551s [00:52:31.624] }, condition = base::local({ 1551s [00:52:31.624] c <- base::c 1551s [00:52:31.624] inherits <- base::inherits 1551s [00:52:31.624] invokeRestart <- base::invokeRestart 1551s [00:52:31.624] length <- base::length 1551s [00:52:31.624] list <- base::list 1551s [00:52:31.624] seq.int <- base::seq.int 1551s [00:52:31.624] signalCondition <- base::signalCondition 1551s [00:52:31.624] sys.calls <- base::sys.calls 1551s [00:52:31.624] `[[` <- base::`[[` 1551s [00:52:31.624] `+` <- base::`+` 1551s [00:52:31.624] `<<-` <- base::`<<-` 1551s [00:52:31.624] sysCalls <- function(calls = sys.calls(), from = 1L) { 1551s [00:52:31.624] calls[seq.int(from = from + 12L, to = length(calls) - 1551s [00:52:31.624] 3L)] 1551s [00:52:31.624] } 1551s [00:52:31.624] function(cond) { 1551s [00:52:31.624] is_error <- inherits(cond, "error") 1551s [00:52:31.624] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1551s [00:52:31.624] NULL) 1551s [00:52:31.624] if (is_error) { 1551s [00:52:31.624] sessionInformation <- function() { 1551s [00:52:31.624] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1551s [00:52:31.624] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1551s [00:52:31.624] search = base::search(), system = base::Sys.info()) 1551s [00:52:31.624] } 1551s [00:52:31.624] ...future.conditions[[length(...future.conditions) + 1551s [00:52:31.624] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1551s [00:52:31.624] cond$call), session = sessionInformation(), 1551s [00:52:31.624] timestamp = base::Sys.time(), signaled = 0L) 1551s [00:52:31.624] signalCondition(cond) 1551s [00:52:31.624] } 1551s [00:52:31.624] else if (!ignore && TRUE && inherits(cond, c("condition", 1551s [00:52:31.624] "immediateCondition"))) { 1551s [00:52:31.624] signal <- TRUE && inherits(cond, "immediateCondition") 1551s [00:52:31.624] ...future.conditions[[length(...future.conditions) + 1551s [00:52:31.624] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1551s [00:52:31.624] if (TRUE && !signal) { 1551s [00:52:31.624] muffleCondition <- function (cond, pattern = "^muffle") 1551s [00:52:31.624] { 1551s [00:52:31.624] inherits <- base::inherits 1551s [00:52:31.624] invokeRestart <- base::invokeRestart 1551s [00:52:31.624] is.null <- base::is.null 1551s [00:52:31.624] muffled <- FALSE 1551s [00:52:31.624] if (inherits(cond, "message")) { 1551s [00:52:31.624] muffled <- grepl(pattern, "muffleMessage") 1551s [00:52:31.624] if (muffled) 1551s [00:52:31.624] invokeRestart("muffleMessage") 1551s [00:52:31.624] } 1551s [00:52:31.624] else if (inherits(cond, "warning")) { 1551s [00:52:31.624] muffled <- grepl(pattern, "muffleWarning") 1551s [00:52:31.624] if (muffled) 1551s [00:52:31.624] invokeRestart("muffleWarning") 1551s [00:52:31.624] } 1551s [00:52:31.624] else if (inherits(cond, "condition")) { 1551s [00:52:31.624] if (!is.null(pattern)) { 1551s [00:52:31.624] computeRestarts <- base::computeRestarts 1551s [00:52:31.624] grepl <- base::grepl 1551s [00:52:31.624] restarts <- computeRestarts(cond) 1551s [00:52:31.624] for (restart in restarts) { 1551s [00:52:31.624] name <- restart$name 1551s [00:52:31.624] if (is.null(name)) 1551s [00:52:31.624] next 1551s [00:52:31.624] if (!grepl(pattern, name)) 1551s [00:52:31.624] next 1551s [00:52:31.624] invokeRestart(restart) 1551s [00:52:31.624] muffled <- TRUE 1551s [00:52:31.624] break 1551s [00:52:31.624] } 1551s [00:52:31.624] } 1551s [00:52:31.624] } 1551s [00:52:31.624] invisible(muffled) 1551s [00:52:31.624] } 1551s [00:52:31.624] muffleCondition(cond, pattern = "^muffle") 1551s [00:52:31.624] } 1551s [00:52:31.624] } 1551s [00:52:31.624] else { 1551s [00:52:31.624] if (TRUE) { 1551s [00:52:31.624] muffleCondition <- function (cond, pattern = "^muffle") 1551s [00:52:31.624] { 1551s [00:52:31.624] inherits <- base::inherits 1551s [00:52:31.624] invokeRestart <- base::invokeRestart 1551s [00:52:31.624] is.null <- base::is.null 1551s [00:52:31.624] muffled <- FALSE 1551s [00:52:31.624] if (inherits(cond, "message")) { 1551s [00:52:31.624] muffled <- grepl(pattern, "muffleMessage") 1551s [00:52:31.624] if (muffled) 1551s [00:52:31.624] invokeRestart("muffleMessage") 1551s [00:52:31.624] } 1551s [00:52:31.624] else if (inherits(cond, "warning")) { 1551s [00:52:31.624] muffled <- grepl(pattern, "muffleWarning") 1551s [00:52:31.624] if (muffled) 1551s [00:52:31.624] invokeRestart("muffleWarning") 1551s [00:52:31.624] } 1551s [00:52:31.624] else if (inherits(cond, "condition")) { 1551s [00:52:31.624] if (!is.null(pattern)) { 1551s [00:52:31.624] computeRestarts <- base::computeRestarts 1551s [00:52:31.624] grepl <- base::grepl 1551s [00:52:31.624] restarts <- computeRestarts(cond) 1551s [00:52:31.624] for (restart in restarts) { 1551s [00:52:31.624] name <- restart$name 1551s [00:52:31.624] if (is.null(name)) 1551s [00:52:31.624] next 1551s [00:52:31.624] if (!grepl(pattern, name)) 1551s [00:52:31.624] next 1551s [00:52:31.624] invokeRestart(restart) 1551s [00:52:31.624] muffled <- TRUE 1551s [00:52:31.624] break 1551s [00:52:31.624] } 1551s [00:52:31.624] } 1551s [00:52:31.624] } 1551s [00:52:31.624] invisible(muffled) 1551s [00:52:31.624] } 1551s [00:52:31.624] muffleCondition(cond, pattern = "^muffle") 1551s [00:52:31.624] } 1551s [00:52:31.624] } 1551s [00:52:31.624] } 1551s [00:52:31.624] })) 1551s [00:52:31.624] }, error = function(ex) { 1551s [00:52:31.624] base::structure(base::list(value = NULL, visible = NULL, 1551s [00:52:31.624] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1551s [00:52:31.624] ...future.rng), started = ...future.startTime, 1551s [00:52:31.624] finished = Sys.time(), session_uuid = NA_character_, 1551s [00:52:31.624] version = "1.8"), class = "FutureResult") 1551s [00:52:31.624] }, finally = { 1551s [00:52:31.624] if (!identical(...future.workdir, getwd())) 1551s [00:52:31.624] setwd(...future.workdir) 1551s [00:52:31.624] { 1551s [00:52:31.624] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1551s [00:52:31.624] ...future.oldOptions$nwarnings <- NULL 1551s [00:52:31.624] } 1551s [00:52:31.624] base::options(...future.oldOptions) 1551s [00:52:31.624] if (.Platform$OS.type == "windows") { 1551s [00:52:31.624] old_names <- names(...future.oldEnvVars) 1551s [00:52:31.624] envs <- base::Sys.getenv() 1551s [00:52:31.624] names <- names(envs) 1551s [00:52:31.624] common <- intersect(names, old_names) 1551s [00:52:31.624] added <- setdiff(names, old_names) 1551s [00:52:31.624] removed <- setdiff(old_names, names) 1551s [00:52:31.624] changed <- common[...future.oldEnvVars[common] != 1551s [00:52:31.624] envs[common]] 1551s [00:52:31.624] NAMES <- toupper(changed) 1551s [00:52:31.624] args <- list() 1551s [00:52:31.624] for (kk in seq_along(NAMES)) { 1551s [00:52:31.624] name <- changed[[kk]] 1551s [00:52:31.624] NAME <- NAMES[[kk]] 1551s [00:52:31.624] if (name != NAME && is.element(NAME, old_names)) 1551s [00:52:31.624] next 1551s [00:52:31.624] args[[name]] <- ...future.oldEnvVars[[name]] 1551s [00:52:31.624] } 1551s [00:52:31.624] NAMES <- toupper(added) 1551s [00:52:31.624] for (kk in seq_along(NAMES)) { 1551s [00:52:31.624] name <- added[[kk]] 1551s [00:52:31.624] NAME <- NAMES[[kk]] 1551s [00:52:31.624] if (name != NAME && is.element(NAME, old_names)) 1551s [00:52:31.624] next 1551s [00:52:31.624] args[[name]] <- "" 1551s [00:52:31.624] } 1551s [00:52:31.624] NAMES <- toupper(removed) 1551s [00:52:31.624] for (kk in seq_along(NAMES)) { 1551s [00:52:31.624] name <- removed[[kk]] 1551s [00:52:31.624] NAME <- NAMES[[kk]] 1551s [00:52:31.624] if (name != NAME && is.element(NAME, old_names)) 1551s [00:52:31.624] next 1551s [00:52:31.624] args[[name]] <- ...future.oldEnvVars[[name]] 1551s [00:52:31.624] } 1551s [00:52:31.624] if (length(args) > 0) 1551s [00:52:31.624] base::do.call(base::Sys.setenv, args = args) 1551s [00:52:31.624] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1551s [00:52:31.624] } 1551s [00:52:31.624] else { 1551s [00:52:31.624] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1551s [00:52:31.624] } 1551s [00:52:31.624] { 1551s [00:52:31.624] if (base::length(...future.futureOptionsAdded) > 1551s [00:52:31.624] 0L) { 1551s [00:52:31.624] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1551s [00:52:31.624] base::names(opts) <- ...future.futureOptionsAdded 1551s [00:52:31.624] base::options(opts) 1551s [00:52:31.624] } 1551s [00:52:31.624] { 1551s [00:52:31.624] { 1551s [00:52:31.624] NULL 1551s [00:52:31.624] RNGkind("Mersenne-Twister") 1551s [00:52:31.624] base::rm(list = ".Random.seed", envir = base::globalenv(), 1551s [00:52:31.624] inherits = FALSE) 1551s [00:52:31.624] } 1551s [00:52:31.624] options(future.plan = NULL) 1551s [00:52:31.624] if (is.na(NA_character_)) 1551s [00:52:31.624] Sys.unsetenv("R_FUTURE_PLAN") 1551s [00:52:31.624] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1551s [00:52:31.624] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1551s [00:52:31.624] envir = parent.frame()) 1551s [00:52:31.624] { 1551s [00:52:31.624] default_workers <- missing(workers) 1551s [00:52:31.624] if (is.function(workers)) 1551s [00:52:31.624] workers <- workers() 1551s [00:52:31.624] workers <- structure(as.integer(workers), 1551s [00:52:31.624] class = class(workers)) 1551s [00:52:31.624] stop_if_not(is.finite(workers), workers >= 1551s [00:52:31.624] 1L) 1551s [00:52:31.624] if ((workers == 1L && !inherits(workers, 1551s [00:52:31.624] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1551s [00:52:31.624] if (default_workers) 1551s [00:52:31.624] supportsMulticore(warn = TRUE) 1551s [00:52:31.624] return(sequential(..., envir = envir)) 1551s [00:52:31.624] } 1551s [00:52:31.624] oopts <- options(mc.cores = workers) 1551s [00:52:31.624] on.exit(options(oopts)) 1551s [00:52:31.624] future <- MulticoreFuture(..., workers = workers, 1551s [00:52:31.624] envir = envir) 1551s [00:52:31.624] if (!future$lazy) 1551s [00:52:31.624] future <- run(future) 1551s [00:52:31.624] invisible(future) 1551s [00:52:31.624] }), .cleanup = FALSE, .init = FALSE) 1551s [00:52:31.624] } 1551s [00:52:31.624] } 1551s [00:52:31.624] } 1551s [00:52:31.624] }) 1551s [00:52:31.624] if (TRUE) { 1551s [00:52:31.624] base::sink(type = "output", split = FALSE) 1551s [00:52:31.624] if (TRUE) { 1551s [00:52:31.624] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1551s [00:52:31.624] } 1551s [00:52:31.624] else { 1551s [00:52:31.624] ...future.result["stdout"] <- base::list(NULL) 1551s [00:52:31.624] } 1551s [00:52:31.624] base::close(...future.stdout) 1551s [00:52:31.624] ...future.stdout <- NULL 1551s [00:52:31.624] } 1551s [00:52:31.624] ...future.result$conditions <- ...future.conditions 1551s [00:52:31.624] ...future.result$finished <- base::Sys.time() 1551s [00:52:31.624] ...future.result 1551s [00:52:31.624] } 1551s [00:52:31.629] assign_globals() ... 1551s [00:52:31.629] List of 5 1551s [00:52:31.629] $ ...future.FUN :function (mode = "logical", length = 0L) 1551s [00:52:31.629] $ future.call.arguments :List of 1 1551s [00:52:31.629] ..$ length: int 2 1551s [00:52:31.629] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1551s [00:52:31.629] $ ...future.elements_ii :List of 1 1551s [00:52:31.629] ..$ c: chr "list" 1551s [00:52:31.629] $ ...future.seeds_ii : NULL 1551s [00:52:31.629] $ ...future.globals.maxSize: NULL 1551s [00:52:31.629] - attr(*, "where")=List of 5 1551s [00:52:31.629] ..$ ...future.FUN : 1551s [00:52:31.629] ..$ future.call.arguments : 1551s [00:52:31.629] ..$ ...future.elements_ii : 1551s [00:52:31.629] ..$ ...future.seeds_ii : 1551s [00:52:31.629] ..$ ...future.globals.maxSize: 1551s [00:52:31.629] - attr(*, "resolved")= logi FALSE 1551s [00:52:31.629] - attr(*, "total_size")= num 2240 1551s [00:52:31.629] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1551s [00:52:31.629] - attr(*, "already-done")= logi TRUE 1551s [00:52:31.639] - copied ‘...future.FUN’ to environment 1551s [00:52:31.639] - copied ‘future.call.arguments’ to environment 1551s [00:52:31.640] - copied ‘...future.elements_ii’ to environment 1551s [00:52:31.640] - copied ‘...future.seeds_ii’ to environment 1551s [00:52:31.640] - copied ‘...future.globals.maxSize’ to environment 1551s [00:52:31.640] assign_globals() ... done 1551s [00:52:31.641] plan(): Setting new future strategy stack: 1551s [00:52:31.641] List of future strategies: 1551s [00:52:31.641] 1. sequential: 1551s [00:52:31.641] - args: function (..., envir = parent.frame()) 1551s [00:52:31.641] - tweaked: FALSE 1551s [00:52:31.641] - call: NULL 1551s [00:52:31.641] plan(): nbrOfWorkers() = 1 1551s [00:52:31.642] plan(): Setting new future strategy stack: 1551s [00:52:31.643] List of future strategies: 1551s [00:52:31.643] 1. multicore: 1551s [00:52:31.643] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1551s [00:52:31.643] - tweaked: FALSE 1551s [00:52:31.643] - call: plan(strategy) 1551s [00:52:31.647] plan(): nbrOfWorkers() = 1 1551s [00:52:31.648] SequentialFuture started (and completed) 1551s [00:52:31.648] - Launch lazy future ... done 1551s [00:52:31.648] run() for ‘SequentialFuture’ ... done 1551s [00:52:31.648] Created future: 1551s [00:52:31.648] SequentialFuture: 1551s [00:52:31.648] Label: ‘future_lapply-4’ 1551s [00:52:31.648] Expression: 1551s [00:52:31.648] { 1551s [00:52:31.648] do.call(function(...) { 1551s [00:52:31.648] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1551s [00:52:31.648] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1551s [00:52:31.648] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1551s [00:52:31.648] on.exit(options(oopts), add = TRUE) 1551s [00:52:31.648] } 1551s [00:52:31.648] { 1551s [00:52:31.648] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1551s [00:52:31.648] ...future.X_jj <- ...future.elements_ii[[jj]] 1551s [00:52:31.648] ...future.FUN(...future.X_jj, ...) 1551s [00:52:31.648] }) 1551s [00:52:31.648] } 1551s [00:52:31.648] }, args = future.call.arguments) 1551s [00:52:31.648] } 1551s [00:52:31.648] Lazy evaluation: FALSE 1551s [00:52:31.648] Asynchronous evaluation: FALSE 1551s [00:52:31.648] Local evaluation: TRUE 1551s [00:52:31.648] Environment: R_GlobalEnv 1551s [00:52:31.648] Capture standard output: TRUE 1551s [00:52:31.648] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1551s [00:52:31.648] Globals: 5 objects totaling 2.30 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1551s [00:52:31.648] Packages: 1551s [00:52:31.648] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1551s [00:52:31.648] Resolved: TRUE 1551s [00:52:31.648] Value: 0 bytes of class ‘list’ 1551s [00:52:31.648] Early signaling: FALSE 1551s [00:52:31.648] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1551s [00:52:31.648] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1551s [00:52:31.650] Chunk #4 of 4 ... DONE 1551s [00:52:31.650] Launching 4 futures (chunks) ... DONE 1551s [00:52:31.651] Resolving 4 futures (chunks) ... 1551s [00:52:31.651] resolve() on list ... 1551s [00:52:31.651] recursive: 0 1551s [00:52:31.651] length: 4 1551s [00:52:31.652] 1551s [00:52:31.652] resolved() for ‘SequentialFuture’ ... 1551s [00:52:31.652] - state: ‘finished’ 1551s [00:52:31.652] - run: TRUE 1551s [00:52:31.653] - result: ‘FutureResult’ 1551s [00:52:31.653] resolved() for ‘SequentialFuture’ ... done 1551s [00:52:31.653] Future #1 1551s [00:52:31.653] signalConditionsASAP(SequentialFuture, pos=1) ... 1551s [00:52:31.654] - nx: 4 1551s [00:52:31.654] - relay: TRUE 1551s [00:52:31.654] - stdout: TRUE 1551s [00:52:31.654] - signal: TRUE 1551s [00:52:31.654] - resignal: FALSE 1551s [00:52:31.654] - force: TRUE 1551s [00:52:31.654] - relayed: [n=4] FALSE, FALSE, FALSE, FALSE 1551s [00:52:31.654] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE 1551s [00:52:31.655] - until=1 1551s [00:52:31.655] - relaying element #1 1551s [00:52:31.655] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE 1551s [00:52:31.655] - queued futures: [n=4] TRUE, FALSE, FALSE, FALSE 1551s [00:52:31.655] signalConditionsASAP(SequentialFuture, pos=1) ... done 1551s [00:52:31.656] length: 3 (resolved future 1) 1551s [00:52:31.656] resolved() for ‘SequentialFuture’ ... 1551s [00:52:31.656] - state: ‘finished’ 1551s [00:52:31.656] - run: TRUE 1551s [00:52:31.656] - result: ‘FutureResult’ 1551s [00:52:31.656] resolved() for ‘SequentialFuture’ ... done 1551s [00:52:31.656] Future #2 1551s [00:52:31.660] signalConditionsASAP(SequentialFuture, pos=2) ... 1551s [00:52:31.660] - nx: 4 1551s [00:52:31.660] - relay: TRUE 1551s [00:52:31.660] - stdout: TRUE 1551s [00:52:31.660] - signal: TRUE 1551s [00:52:31.661] - resignal: FALSE 1551s [00:52:31.661] - force: TRUE 1551s [00:52:31.661] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE 1551s [00:52:31.661] - queued futures: [n=4] TRUE, FALSE, FALSE, FALSE 1551s [00:52:31.661] - until=2 1551s [00:52:31.661] - relaying element #2 1551s [00:52:31.662] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE 1551s [00:52:31.662] - queued futures: [n=4] TRUE, TRUE, FALSE, FALSE 1551s [00:52:31.662] signalConditionsASAP(SequentialFuture, pos=2) ... done 1551s [00:52:31.663] length: 2 (resolved future 2) 1551s [00:52:31.663] resolved() for ‘SequentialFuture’ ... 1551s [00:52:31.663] - state: ‘finished’ 1551s [00:52:31.663] - run: TRUE 1551s [00:52:31.663] - result: ‘FutureResult’ 1551s [00:52:31.664] resolved() for ‘SequentialFuture’ ... done 1551s [00:52:31.664] Future #3 1551s [00:52:31.664] signalConditionsASAP(SequentialFuture, pos=3) ... 1551s [00:52:31.664] - nx: 4 1551s [00:52:31.664] - relay: TRUE 1551s [00:52:31.665] - stdout: TRUE 1551s [00:52:31.665] - signal: TRUE 1551s [00:52:31.665] - resignal: FALSE 1551s [00:52:31.665] - force: TRUE 1551s [00:52:31.666] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE 1551s [00:52:31.666] - queued futures: [n=4] TRUE, TRUE, FALSE, FALSE 1551s [00:52:31.666] - until=3 1551s [00:52:31.667] - relaying element #3 1551s [00:52:31.667] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE 1551s [00:52:31.667] - queued futures: [n=4] TRUE, TRUE, TRUE, FALSE 1551s [00:52:31.667] signalConditionsASAP(SequentialFuture, pos=3) ... done 1551s [00:52:31.667] length: 1 (resolved future 3) 1551s [00:52:31.668] resolved() for ‘SequentialFuture’ ... 1551s [00:52:31.668] - state: ‘finished’ 1551s [00:52:31.668] - run: TRUE 1551s [00:52:31.668] - result: ‘FutureResult’ 1551s [00:52:31.668] resolved() for ‘SequentialFuture’ ... done 1551s [00:52:31.668] Future #4 1551s [00:52:31.669] signalConditionsASAP(SequentialFuture, pos=4) ... 1551s [00:52:31.669] - nx: 4 1551s [00:52:31.669] - relay: TRUE 1551s [00:52:31.669] - stdout: TRUE 1551s [00:52:31.669] - signal: TRUE 1551s [00:52:31.669] - resignal: FALSE 1551s [00:52:31.670] - force: TRUE 1551s [00:52:31.670] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE 1551s [00:52:31.670] - queued futures: [n=4] TRUE, TRUE, TRUE, FALSE 1551s [00:52:31.670] - until=4 1551s [00:52:31.670] - relaying element #4 1551s [00:52:31.671] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE 1551s [00:52:31.671] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE 1551s [00:52:31.671] signalConditionsASAP(SequentialFuture, pos=4) ... done 1551s [00:52:31.671] length: 0 (resolved future 4) 1551s [00:52:31.672] Relaying remaining futures 1551s [00:52:31.672] signalConditionsASAP(NULL, pos=0) ... 1551s [00:52:31.672] - nx: 4 1551s [00:52:31.672] - relay: TRUE 1551s [00:52:31.672] - stdout: TRUE 1551s [00:52:31.673] - signal: TRUE 1551s [00:52:31.673] - resignal: FALSE 1551s [00:52:31.673] - force: TRUE 1551s [00:52:31.673] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE 1551s [00:52:31.673] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE 1551s - flush all 1551s [00:52:31.673] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE 1551s [00:52:31.674] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE 1551s [00:52:31.674] signalConditionsASAP(NULL, pos=0) ... done 1551s [00:52:31.674] resolve() on list ... DONE 1551s [00:52:31.675] - Number of value chunks collected: 4 1551s [00:52:31.675] Resolving 4 futures (chunks) ... DONE 1551s [00:52:31.675] Reducing values from 4 chunks ... 1551s [00:52:31.675] - Number of values collected after concatenation: 4 1551s [00:52:31.675] - Number of values expected: 4 1551s [00:52:31.676] Reducing values from 4 chunks ... DONE 1551s [00:52:31.676] future_lapply() ... DONE 1551s List of 1 1551s $ y:List of 4 1551s ..$ a: int [1:2] 0 0 1551s ..$ b: num [1:2] 0 0 1551s ..$ c: chr [1:2] "" "" 1551s ..$ c:List of 2 1551s .. ..$ : NULL 1551s .. ..$ : NULL 1551s [00:52:31.681] future_lapply() ... 1551s [00:52:31.685] Number of chunks: 4 1551s [00:52:31.685] getGlobalsAndPackagesXApply() ... 1551s [00:52:31.686] - future.globals: TRUE 1551s [00:52:31.686] getGlobalsAndPackages() ... 1551s [00:52:31.686] Searching for globals... 1551s [00:52:31.687] - globals found: [2] ‘FUN’, ‘.Internal’ 1551s [00:52:31.687] Searching for globals ... DONE 1551s [00:52:31.687] Resolving globals: FALSE 1551s [00:52:31.688] The total size of the 1 globals is 2.13 KiB (2184 bytes) 1551s [00:52:31.688] The total size of the 1 globals exported for future expression (‘FUN(length = 2L)’) is 2.13 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (2.13 KiB of class ‘function’) 1551s [00:52:31.688] - globals: [1] ‘FUN’ 1551s [00:52:31.688] 1551s [00:52:31.688] getGlobalsAndPackages() ... DONE 1551s [00:52:31.689] - globals found/used: [n=1] ‘FUN’ 1551s [00:52:31.689] - needed namespaces: [n=0] 1551s [00:52:31.689] Finding globals ... DONE 1551s [00:52:31.689] - use_args: TRUE 1551s [00:52:31.689] - Getting '...' globals ... 1551s [00:52:31.690] resolve() on list ... 1551s [00:52:31.690] recursive: 0 1551s [00:52:31.690] length: 1 1551s [00:52:31.690] elements: ‘...’ 1551s [00:52:31.690] length: 0 (resolved future 1) 1551s [00:52:31.691] resolve() on list ... DONE 1551s [00:52:31.691] - '...' content: [n=1] ‘length’ 1551s [00:52:31.691] List of 1 1551s [00:52:31.691] $ ...:List of 1 1551s [00:52:31.691] ..$ length: int 2 1551s [00:52:31.691] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1551s [00:52:31.691] - attr(*, "where")=List of 1 1551s [00:52:31.691] ..$ ...: 1551s [00:52:31.691] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1551s [00:52:31.691] - attr(*, "resolved")= logi TRUE 1551s [00:52:31.691] - attr(*, "total_size")= num NA 1551s [00:52:31.695] - Getting '...' globals ... DONE 1551s [00:52:31.696] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1551s [00:52:31.696] List of 2 1551s [00:52:31.696] $ ...future.FUN:function (mode = "logical", length = 0L) 1551s [00:52:31.696] $ ... :List of 1 1551s [00:52:31.696] ..$ length: int 2 1551s [00:52:31.696] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1551s [00:52:31.696] - attr(*, "where")=List of 2 1551s [00:52:31.696] ..$ ...future.FUN: 1551s [00:52:31.696] ..$ ... : 1551s [00:52:31.696] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1551s [00:52:31.696] - attr(*, "resolved")= logi FALSE 1551s [00:52:31.696] - attr(*, "total_size")= num 2240 1551s [00:52:31.703] Packages to be attached in all futures: [n=0] 1551s [00:52:31.703] getGlobalsAndPackagesXApply() ... DONE 1551s [00:52:31.704] Number of futures (= number of chunks): 4 1551s [00:52:31.704] Launching 4 futures (chunks) ... 1551s [00:52:31.704] Chunk #1 of 4 ... 1551s [00:52:31.704] - Finding globals in 'X' for chunk #1 ... 1551s [00:52:31.704] getGlobalsAndPackages() ... 1551s [00:52:31.704] Searching for globals... 1551s [00:52:31.705] 1551s [00:52:31.705] Searching for globals ... DONE 1551s [00:52:31.706] - globals: [0] 1551s [00:52:31.706] getGlobalsAndPackages() ... DONE 1551s [00:52:31.706] + additional globals found: [n=0] 1551s [00:52:31.706] + additional namespaces needed: [n=0] 1551s [00:52:31.706] - Finding globals in 'X' for chunk #1 ... DONE 1551s [00:52:31.706] - Adjusted option 'future.globals.maxSize': 524288000 -> 4 * 524288000 = 2097152000 (bytes) 1551s [00:52:31.706] - seeds: 1551s [00:52:31.707] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1551s [00:52:31.707] getGlobalsAndPackages() ... 1551s [00:52:31.707] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1551s [00:52:31.707] Resolving globals: FALSE 1551s [00:52:31.707] Tweak future expression to call with '...' arguments ... 1551s [00:52:31.707] { 1551s [00:52:31.707] do.call(function(...) { 1551s [00:52:31.707] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1551s [00:52:31.707] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1551s [00:52:31.707] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1551s [00:52:31.707] on.exit(options(oopts), add = TRUE) 1551s [00:52:31.707] } 1551s [00:52:31.707] { 1551s [00:52:31.707] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1551s [00:52:31.707] ...future.X_jj <- ...future.elements_ii[[jj]] 1551s [00:52:31.707] ...future.FUN(...future.X_jj, ...) 1551s [00:52:31.707] }) 1551s [00:52:31.707] } 1551s [00:52:31.707] }, args = future.call.arguments) 1551s [00:52:31.707] } 1551s [00:52:31.708] Tweak future expression to call with '...' arguments ... DONE 1551s [00:52:31.708] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1551s [00:52:31.709] 1551s [00:52:31.709] getGlobalsAndPackages() ... DONE 1551s [00:52:31.709] run() for ‘Future’ ... 1551s [00:52:31.710] - state: ‘created’ 1551s [00:52:31.710] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1551s [00:52:31.715] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1551s [00:52:31.715] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1551s [00:52:31.716] - Field: ‘label’ 1551s [00:52:31.716] - Field: ‘local’ 1551s [00:52:31.716] - Field: ‘owner’ 1551s [00:52:31.716] - Field: ‘envir’ 1551s [00:52:31.716] - Field: ‘packages’ 1551s [00:52:31.716] - Field: ‘gc’ 1551s [00:52:31.717] - Field: ‘conditions’ 1551s [00:52:31.717] - Field: ‘expr’ 1551s [00:52:31.717] - Field: ‘uuid’ 1551s [00:52:31.717] - Field: ‘seed’ 1551s [00:52:31.718] - Field: ‘version’ 1551s [00:52:31.718] - Field: ‘result’ 1551s [00:52:31.718] - Field: ‘asynchronous’ 1551s [00:52:31.718] - Field: ‘calls’ 1551s [00:52:31.718] - Field: ‘globals’ 1551s [00:52:31.718] - Field: ‘stdout’ 1551s [00:52:31.718] - Field: ‘earlySignal’ 1551s [00:52:31.719] - Field: ‘lazy’ 1551s [00:52:31.719] - Field: ‘state’ 1551s [00:52:31.719] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1551s [00:52:31.719] - Launch lazy future ... 1551s [00:52:31.720] Packages needed by the future expression (n = 0): 1551s [00:52:31.720] Packages needed by future strategies (n = 0): 1551s [00:52:31.721] { 1551s [00:52:31.721] { 1551s [00:52:31.721] { 1551s [00:52:31.721] ...future.startTime <- base::Sys.time() 1551s [00:52:31.721] { 1551s [00:52:31.721] { 1551s [00:52:31.721] { 1551s [00:52:31.721] base::local({ 1551s [00:52:31.721] has_future <- base::requireNamespace("future", 1551s [00:52:31.721] quietly = TRUE) 1551s [00:52:31.721] if (has_future) { 1551s [00:52:31.721] ns <- base::getNamespace("future") 1551s [00:52:31.721] version <- ns[[".package"]][["version"]] 1551s [00:52:31.721] if (is.null(version)) 1551s [00:52:31.721] version <- utils::packageVersion("future") 1551s [00:52:31.721] } 1551s [00:52:31.721] else { 1551s [00:52:31.721] version <- NULL 1551s [00:52:31.721] } 1551s [00:52:31.721] if (!has_future || version < "1.8.0") { 1551s [00:52:31.721] info <- base::c(r_version = base::gsub("R version ", 1551s [00:52:31.721] "", base::R.version$version.string), 1551s [00:52:31.721] platform = base::sprintf("%s (%s-bit)", 1551s [00:52:31.721] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1551s [00:52:31.721] os = base::paste(base::Sys.info()[base::c("sysname", 1551s [00:52:31.721] "release", "version")], collapse = " "), 1551s [00:52:31.721] hostname = base::Sys.info()[["nodename"]]) 1551s [00:52:31.721] info <- base::sprintf("%s: %s", base::names(info), 1551s [00:52:31.721] info) 1551s [00:52:31.721] info <- base::paste(info, collapse = "; ") 1551s [00:52:31.721] if (!has_future) { 1551s [00:52:31.721] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1551s [00:52:31.721] info) 1551s [00:52:31.721] } 1551s [00:52:31.721] else { 1551s [00:52:31.721] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1551s [00:52:31.721] info, version) 1551s [00:52:31.721] } 1551s [00:52:31.721] base::stop(msg) 1551s [00:52:31.721] } 1551s [00:52:31.721] }) 1551s [00:52:31.721] } 1551s [00:52:31.721] options(future.plan = NULL) 1551s [00:52:31.721] Sys.unsetenv("R_FUTURE_PLAN") 1551s [00:52:31.721] future::plan("default", .cleanup = FALSE, .init = FALSE) 1551s [00:52:31.721] } 1551s [00:52:31.721] ...future.workdir <- getwd() 1551s [00:52:31.721] } 1551s [00:52:31.721] ...future.oldOptions <- base::as.list(base::.Options) 1551s [00:52:31.721] ...future.oldEnvVars <- base::Sys.getenv() 1551s [00:52:31.721] } 1551s [00:52:31.721] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1551s [00:52:31.721] future.globals.maxSize = 2097152000, future.globals.method = NULL, 1551s [00:52:31.721] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1551s [00:52:31.721] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1551s [00:52:31.721] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1551s [00:52:31.721] future.stdout.windows.reencode = NULL, width = 80L) 1551s [00:52:31.721] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1551s [00:52:31.721] base::names(...future.oldOptions)) 1551s [00:52:31.721] } 1551s [00:52:31.721] if (FALSE) { 1551s [00:52:31.721] } 1551s [00:52:31.721] else { 1551s [00:52:31.721] if (TRUE) { 1551s [00:52:31.721] ...future.stdout <- base::rawConnection(base::raw(0L), 1551s [00:52:31.721] open = "w") 1551s [00:52:31.721] } 1551s [00:52:31.721] else { 1551s [00:52:31.721] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1551s [00:52:31.721] windows = "NUL", "/dev/null"), open = "w") 1551s [00:52:31.721] } 1551s [00:52:31.721] base::sink(...future.stdout, type = "output", split = FALSE) 1551s [00:52:31.721] base::on.exit(if (!base::is.null(...future.stdout)) { 1551s [00:52:31.721] base::sink(type = "output", split = FALSE) 1551s [00:52:31.721] base::close(...future.stdout) 1551s [00:52:31.721] }, add = TRUE) 1551s [00:52:31.721] } 1551s [00:52:31.721] ...future.frame <- base::sys.nframe() 1551s [00:52:31.721] ...future.conditions <- base::list() 1551s [00:52:31.721] ...future.rng <- base::globalenv()$.Random.seed 1551s [00:52:31.721] if (FALSE) { 1551s [00:52:31.721] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1551s [00:52:31.721] "...future.value", "...future.globalenv.names", ".Random.seed") 1551s [00:52:31.721] } 1551s [00:52:31.721] ...future.result <- base::tryCatch({ 1551s [00:52:31.721] base::withCallingHandlers({ 1551s [00:52:31.721] ...future.value <- base::withVisible(base::local({ 1551s [00:52:31.721] do.call(function(...) { 1551s [00:52:31.721] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1551s [00:52:31.721] if (!identical(...future.globals.maxSize.org, 1551s [00:52:31.721] ...future.globals.maxSize)) { 1551s [00:52:31.721] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1551s [00:52:31.721] on.exit(options(oopts), add = TRUE) 1551s [00:52:31.721] } 1551s [00:52:31.721] { 1551s [00:52:31.721] lapply(seq_along(...future.elements_ii), 1551s [00:52:31.721] FUN = function(jj) { 1551s [00:52:31.721] ...future.X_jj <- ...future.elements_ii[[jj]] 1551s [00:52:31.721] ...future.FUN(...future.X_jj, ...) 1551s [00:52:31.721] }) 1551s [00:52:31.721] } 1551s [00:52:31.721] }, args = future.call.arguments) 1551s [00:52:31.721] })) 1551s [00:52:31.721] future::FutureResult(value = ...future.value$value, 1551s [00:52:31.721] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1551s [00:52:31.721] ...future.rng), globalenv = if (FALSE) 1551s [00:52:31.721] list(added = base::setdiff(base::names(base::.GlobalEnv), 1551s [00:52:31.721] ...future.globalenv.names)) 1551s [00:52:31.721] else NULL, started = ...future.startTime, version = "1.8") 1551s [00:52:31.721] }, condition = base::local({ 1551s [00:52:31.721] c <- base::c 1551s [00:52:31.721] inherits <- base::inherits 1551s [00:52:31.721] invokeRestart <- base::invokeRestart 1551s [00:52:31.721] length <- base::length 1551s [00:52:31.721] list <- base::list 1551s [00:52:31.721] seq.int <- base::seq.int 1551s [00:52:31.721] signalCondition <- base::signalCondition 1551s [00:52:31.721] sys.calls <- base::sys.calls 1551s [00:52:31.721] `[[` <- base::`[[` 1551s [00:52:31.721] `+` <- base::`+` 1551s [00:52:31.721] `<<-` <- base::`<<-` 1551s [00:52:31.721] sysCalls <- function(calls = sys.calls(), from = 1L) { 1551s [00:52:31.721] calls[seq.int(from = from + 12L, to = length(calls) - 1551s [00:52:31.721] 3L)] 1551s [00:52:31.721] } 1551s [00:52:31.721] function(cond) { 1551s [00:52:31.721] is_error <- inherits(cond, "error") 1551s [00:52:31.721] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1551s [00:52:31.721] NULL) 1551s [00:52:31.721] if (is_error) { 1551s [00:52:31.721] sessionInformation <- function() { 1551s [00:52:31.721] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1551s [00:52:31.721] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1551s [00:52:31.721] search = base::search(), system = base::Sys.info()) 1551s [00:52:31.721] } 1551s [00:52:31.721] ...future.conditions[[length(...future.conditions) + 1551s [00:52:31.721] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1551s [00:52:31.721] cond$call), session = sessionInformation(), 1551s [00:52:31.721] timestamp = base::Sys.time(), signaled = 0L) 1551s [00:52:31.721] signalCondition(cond) 1551s [00:52:31.721] } 1551s [00:52:31.721] else if (!ignore && TRUE && inherits(cond, c("condition", 1551s [00:52:31.721] "immediateCondition"))) { 1551s [00:52:31.721] signal <- TRUE && inherits(cond, "immediateCondition") 1551s [00:52:31.721] ...future.conditions[[length(...future.conditions) + 1551s [00:52:31.721] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1551s [00:52:31.721] if (TRUE && !signal) { 1551s [00:52:31.721] muffleCondition <- function (cond, pattern = "^muffle") 1551s [00:52:31.721] { 1551s [00:52:31.721] inherits <- base::inherits 1551s [00:52:31.721] invokeRestart <- base::invokeRestart 1551s [00:52:31.721] is.null <- base::is.null 1551s [00:52:31.721] muffled <- FALSE 1551s [00:52:31.721] if (inherits(cond, "message")) { 1551s [00:52:31.721] muffled <- grepl(pattern, "muffleMessage") 1551s [00:52:31.721] if (muffled) 1551s [00:52:31.721] invokeRestart("muffleMessage") 1551s [00:52:31.721] } 1551s [00:52:31.721] else if (inherits(cond, "warning")) { 1551s [00:52:31.721] muffled <- grepl(pattern, "muffleWarning") 1551s [00:52:31.721] if (muffled) 1551s [00:52:31.721] invokeRestart("muffleWarning") 1551s [00:52:31.721] } 1551s [00:52:31.721] else if (inherits(cond, "condition")) { 1551s [00:52:31.721] if (!is.null(pattern)) { 1551s [00:52:31.721] computeRestarts <- base::computeRestarts 1551s [00:52:31.721] grepl <- base::grepl 1551s [00:52:31.721] restarts <- computeRestarts(cond) 1551s [00:52:31.721] for (restart in restarts) { 1551s [00:52:31.721] name <- restart$name 1551s [00:52:31.721] if (is.null(name)) 1551s [00:52:31.721] next 1551s [00:52:31.721] if (!grepl(pattern, name)) 1551s [00:52:31.721] next 1551s [00:52:31.721] invokeRestart(restart) 1551s [00:52:31.721] muffled <- TRUE 1551s [00:52:31.721] break 1551s [00:52:31.721] } 1551s [00:52:31.721] } 1551s [00:52:31.721] } 1551s [00:52:31.721] invisible(muffled) 1551s [00:52:31.721] } 1551s [00:52:31.721] muffleCondition(cond, pattern = "^muffle") 1551s [00:52:31.721] } 1551s [00:52:31.721] } 1551s [00:52:31.721] else { 1551s [00:52:31.721] if (TRUE) { 1551s [00:52:31.721] muffleCondition <- function (cond, pattern = "^muffle") 1551s [00:52:31.721] { 1551s [00:52:31.721] inherits <- base::inherits 1551s [00:52:31.721] invokeRestart <- base::invokeRestart 1551s [00:52:31.721] is.null <- base::is.null 1551s [00:52:31.721] muffled <- FALSE 1551s [00:52:31.721] if (inherits(cond, "message")) { 1551s [00:52:31.721] muffled <- grepl(pattern, "muffleMessage") 1551s [00:52:31.721] if (muffled) 1551s [00:52:31.721] invokeRestart("muffleMessage") 1551s [00:52:31.721] } 1551s [00:52:31.721] else if (inherits(cond, "warning")) { 1551s [00:52:31.721] muffled <- grepl(pattern, "muffleWarning") 1551s [00:52:31.721] if (muffled) 1551s [00:52:31.721] invokeRestart("muffleWarning") 1551s [00:52:31.721] } 1551s [00:52:31.721] else if (inherits(cond, "condition")) { 1551s [00:52:31.721] if (!is.null(pattern)) { 1551s [00:52:31.721] computeRestarts <- base::computeRestarts 1551s [00:52:31.721] grepl <- base::grepl 1551s [00:52:31.721] restarts <- computeRestarts(cond) 1551s [00:52:31.721] for (restart in restarts) { 1551s [00:52:31.721] name <- restart$name 1551s [00:52:31.721] if (is.null(name)) 1551s [00:52:31.721] next 1551s [00:52:31.721] if (!grepl(pattern, name)) 1551s [00:52:31.721] next 1551s [00:52:31.721] invokeRestart(restart) 1551s [00:52:31.721] muffled <- TRUE 1551s [00:52:31.721] break 1551s [00:52:31.721] } 1551s [00:52:31.721] } 1551s [00:52:31.721] } 1551s [00:52:31.721] invisible(muffled) 1551s [00:52:31.721] } 1551s [00:52:31.721] muffleCondition(cond, pattern = "^muffle") 1551s [00:52:31.721] } 1551s [00:52:31.721] } 1551s [00:52:31.721] } 1551s [00:52:31.721] })) 1551s [00:52:31.721] }, error = function(ex) { 1551s [00:52:31.721] base::structure(base::list(value = NULL, visible = NULL, 1551s [00:52:31.721] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1551s [00:52:31.721] ...future.rng), started = ...future.startTime, 1551s [00:52:31.721] finished = Sys.time(), session_uuid = NA_character_, 1551s [00:52:31.721] version = "1.8"), class = "FutureResult") 1551s [00:52:31.721] }, finally = { 1551s [00:52:31.721] if (!identical(...future.workdir, getwd())) 1551s [00:52:31.721] setwd(...future.workdir) 1551s [00:52:31.721] { 1551s [00:52:31.721] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1551s [00:52:31.721] ...future.oldOptions$nwarnings <- NULL 1551s [00:52:31.721] } 1551s [00:52:31.721] base::options(...future.oldOptions) 1551s [00:52:31.721] if (.Platform$OS.type == "windows") { 1551s [00:52:31.721] old_names <- names(...future.oldEnvVars) 1551s [00:52:31.721] envs <- base::Sys.getenv() 1551s [00:52:31.721] names <- names(envs) 1551s [00:52:31.721] common <- intersect(names, old_names) 1551s [00:52:31.721] added <- setdiff(names, old_names) 1551s [00:52:31.721] removed <- setdiff(old_names, names) 1551s [00:52:31.721] changed <- common[...future.oldEnvVars[common] != 1551s [00:52:31.721] envs[common]] 1551s [00:52:31.721] NAMES <- toupper(changed) 1551s [00:52:31.721] args <- list() 1551s [00:52:31.721] for (kk in seq_along(NAMES)) { 1551s [00:52:31.721] name <- changed[[kk]] 1551s [00:52:31.721] NAME <- NAMES[[kk]] 1551s [00:52:31.721] if (name != NAME && is.element(NAME, old_names)) 1551s [00:52:31.721] next 1551s [00:52:31.721] args[[name]] <- ...future.oldEnvVars[[name]] 1551s [00:52:31.721] } 1551s [00:52:31.721] NAMES <- toupper(added) 1551s [00:52:31.721] for (kk in seq_along(NAMES)) { 1551s [00:52:31.721] name <- added[[kk]] 1551s [00:52:31.721] NAME <- NAMES[[kk]] 1551s [00:52:31.721] if (name != NAME && is.element(NAME, old_names)) 1551s [00:52:31.721] next 1551s [00:52:31.721] args[[name]] <- "" 1551s [00:52:31.721] } 1551s [00:52:31.721] NAMES <- toupper(removed) 1551s [00:52:31.721] for (kk in seq_along(NAMES)) { 1551s [00:52:31.721] name <- removed[[kk]] 1551s [00:52:31.721] NAME <- NAMES[[kk]] 1551s [00:52:31.721] if (name != NAME && is.element(NAME, old_names)) 1551s [00:52:31.721] next 1551s [00:52:31.721] args[[name]] <- ...future.oldEnvVars[[name]] 1551s [00:52:31.721] } 1551s [00:52:31.721] if (length(args) > 0) 1551s [00:52:31.721] base::do.call(base::Sys.setenv, args = args) 1551s [00:52:31.721] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1551s [00:52:31.721] } 1551s [00:52:31.721] else { 1551s [00:52:31.721] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1551s [00:52:31.721] } 1551s [00:52:31.721] { 1551s [00:52:31.721] if (base::length(...future.futureOptionsAdded) > 1551s [00:52:31.721] 0L) { 1551s [00:52:31.721] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1551s [00:52:31.721] base::names(opts) <- ...future.futureOptionsAdded 1551s [00:52:31.721] base::options(opts) 1551s [00:52:31.721] } 1551s [00:52:31.721] { 1551s [00:52:31.721] { 1551s [00:52:31.721] NULL 1551s [00:52:31.721] RNGkind("Mersenne-Twister") 1551s [00:52:31.721] base::rm(list = ".Random.seed", envir = base::globalenv(), 1551s [00:52:31.721] inherits = FALSE) 1551s [00:52:31.721] } 1551s [00:52:31.721] options(future.plan = NULL) 1551s [00:52:31.721] if (is.na(NA_character_)) 1551s [00:52:31.721] Sys.unsetenv("R_FUTURE_PLAN") 1551s [00:52:31.721] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1551s [00:52:31.721] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1551s [00:52:31.721] envir = parent.frame()) 1551s [00:52:31.721] { 1551s [00:52:31.721] default_workers <- missing(workers) 1551s [00:52:31.721] if (is.function(workers)) 1551s [00:52:31.721] workers <- workers() 1551s [00:52:31.721] workers <- structure(as.integer(workers), 1551s [00:52:31.721] class = class(workers)) 1551s [00:52:31.721] stop_if_not(is.finite(workers), workers >= 1551s [00:52:31.721] 1L) 1551s [00:52:31.721] if ((workers == 1L && !inherits(workers, 1551s [00:52:31.721] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1551s [00:52:31.721] if (default_workers) 1551s [00:52:31.721] supportsMulticore(warn = TRUE) 1551s [00:52:31.721] return(sequential(..., envir = envir)) 1551s [00:52:31.721] } 1551s [00:52:31.721] oopts <- options(mc.cores = workers) 1551s [00:52:31.721] on.exit(options(oopts)) 1551s [00:52:31.721] future <- MulticoreFuture(..., workers = workers, 1551s [00:52:31.721] envir = envir) 1551s [00:52:31.721] if (!future$lazy) 1551s [00:52:31.721] future <- run(future) 1551s [00:52:31.721] invisible(future) 1551s [00:52:31.721] }), .cleanup = FALSE, .init = FALSE) 1551s [00:52:31.721] } 1551s [00:52:31.721] } 1551s [00:52:31.721] } 1551s [00:52:31.721] }) 1551s [00:52:31.721] if (TRUE) { 1551s [00:52:31.721] base::sink(type = "output", split = FALSE) 1551s [00:52:31.721] if (TRUE) { 1551s [00:52:31.721] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1551s [00:52:31.721] } 1551s [00:52:31.721] else { 1551s [00:52:31.721] ...future.result["stdout"] <- base::list(NULL) 1551s [00:52:31.721] } 1551s [00:52:31.721] base::close(...future.stdout) 1551s [00:52:31.721] ...future.stdout <- NULL 1551s [00:52:31.721] } 1551s [00:52:31.721] ...future.result$conditions <- ...future.conditions 1551s [00:52:31.721] ...future.result$finished <- base::Sys.time() 1551s [00:52:31.721] ...future.result 1551s [00:52:31.721] } 1551s [00:52:31.725] assign_globals() ... 1551s [00:52:31.725] List of 5 1551s [00:52:31.725] $ ...future.FUN :function (mode = "logical", length = 0L) 1551s [00:52:31.725] $ future.call.arguments :List of 1 1551s [00:52:31.725] ..$ length: int 2 1551s [00:52:31.725] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1551s [00:52:31.725] $ ...future.elements_ii :List of 1 1551s [00:52:31.725] ..$ a: chr "integer" 1551s [00:52:31.725] $ ...future.seeds_ii : NULL 1551s [00:52:31.725] $ ...future.globals.maxSize: NULL 1551s [00:52:31.725] - attr(*, "where")=List of 5 1551s [00:52:31.725] ..$ ...future.FUN : 1551s [00:52:31.725] ..$ future.call.arguments : 1551s [00:52:31.725] ..$ ...future.elements_ii : 1551s [00:52:31.725] ..$ ...future.seeds_ii : 1551s [00:52:31.725] ..$ ...future.globals.maxSize: 1551s [00:52:31.725] - attr(*, "resolved")= logi FALSE 1551s [00:52:31.725] - attr(*, "total_size")= num 2240 1551s [00:52:31.725] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1551s [00:52:31.725] - attr(*, "already-done")= logi TRUE 1551s [00:52:31.735] - copied ‘...future.FUN’ to environment 1551s [00:52:31.735] - copied ‘future.call.arguments’ to environment 1551s [00:52:31.736] - copied ‘...future.elements_ii’ to environment 1551s [00:52:31.736] - copied ‘...future.seeds_ii’ to environment 1551s [00:52:31.736] - copied ‘...future.globals.maxSize’ to environment 1551s [00:52:31.736] assign_globals() ... done 1551s [00:52:31.736] plan(): Setting new future strategy stack: 1551s [00:52:31.737] List of future strategies: 1551s [00:52:31.737] 1. sequential: 1551s [00:52:31.737] - args: function (..., envir = parent.frame()) 1551s [00:52:31.737] - tweaked: FALSE 1551s [00:52:31.737] - call: NULL 1551s [00:52:31.737] plan(): nbrOfWorkers() = 1 1551s [00:52:31.738] plan(): Setting new future strategy stack: 1551s [00:52:31.738] List of future strategies: 1551s [00:52:31.738] 1. multicore: 1551s [00:52:31.738] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1551s [00:52:31.738] - tweaked: FALSE 1551s [00:52:31.738] - call: plan(strategy) 1551s [00:52:31.745] plan(): nbrOfWorkers() = 1 1551s [00:52:31.746] SequentialFuture started (and completed) 1551s [00:52:31.746] - Launch lazy future ... done 1551s [00:52:31.746] run() for ‘SequentialFuture’ ... done 1551s [00:52:31.746] Created future: 1551s [00:52:31.746] SequentialFuture: 1551s [00:52:31.746] Label: ‘future_lapply-1’ 1551s [00:52:31.746] Expression: 1551s [00:52:31.746] { 1551s [00:52:31.746] do.call(function(...) { 1551s [00:52:31.746] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1551s [00:52:31.746] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1551s [00:52:31.746] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1551s [00:52:31.746] on.exit(options(oopts), add = TRUE) 1551s [00:52:31.746] } 1551s [00:52:31.746] { 1551s [00:52:31.746] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1551s [00:52:31.746] ...future.X_jj <- ...future.elements_ii[[jj]] 1551s [00:52:31.746] ...future.FUN(...future.X_jj, ...) 1551s [00:52:31.746] }) 1551s [00:52:31.746] } 1551s [00:52:31.746] }, args = future.call.arguments) 1551s [00:52:31.746] } 1551s [00:52:31.746] Lazy evaluation: FALSE 1551s [00:52:31.746] Asynchronous evaluation: FALSE 1551s [00:52:31.746] Local evaluation: TRUE 1551s [00:52:31.746] Environment: R_GlobalEnv 1551s [00:52:31.746] Capture standard output: TRUE 1551s [00:52:31.746] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1551s [00:52:31.746] Globals: 5 objects totaling 2.30 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1551s [00:52:31.746] Packages: 1551s [00:52:31.746] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1551s [00:52:31.746] Resolved: TRUE 1551s [00:52:31.746] Value: 56 bytes of class ‘list’ 1551s [00:52:31.746] Early signaling: FALSE 1551s [00:52:31.746] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1551s [00:52:31.746] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1551s [00:52:31.748] Chunk #1 of 4 ... DONE 1551s [00:52:31.749] Chunk #2 of 4 ... 1551s [00:52:31.749] - Finding globals in 'X' for chunk #2 ... 1551s [00:52:31.749] getGlobalsAndPackages() ... 1551s [00:52:31.750] Searching for globals... 1551s [00:52:31.750] 1551s [00:52:31.751] Searching for globals ... DONE 1551s [00:52:31.751] - globals: [0] 1551s [00:52:31.751] getGlobalsAndPackages() ... DONE 1551s [00:52:31.751] + additional globals found: [n=0] 1551s [00:52:31.752] + additional namespaces needed: [n=0] 1551s [00:52:31.752] - Finding globals in 'X' for chunk #2 ... DONE 1551s [00:52:31.752] - Adjusted option 'future.globals.maxSize': 524288000 -> 4 * 524288000 = 2097152000 (bytes) 1551s [00:52:31.752] - seeds: 1551s [00:52:31.752] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1551s [00:52:31.753] getGlobalsAndPackages() ... 1551s [00:52:31.753] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1551s [00:52:31.753] Resolving globals: FALSE 1551s [00:52:31.753] Tweak future expression to call with '...' arguments ... 1551s [00:52:31.753] { 1551s [00:52:31.753] do.call(function(...) { 1551s [00:52:31.753] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1551s [00:52:31.753] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1551s [00:52:31.753] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1551s [00:52:31.753] on.exit(options(oopts), add = TRUE) 1551s [00:52:31.753] } 1551s [00:52:31.753] { 1551s [00:52:31.753] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1551s [00:52:31.753] ...future.X_jj <- ...future.elements_ii[[jj]] 1551s [00:52:31.753] ...future.FUN(...future.X_jj, ...) 1551s [00:52:31.753] }) 1551s [00:52:31.753] } 1551s [00:52:31.753] }, args = future.call.arguments) 1551s [00:52:31.753] } 1551s [00:52:31.754] Tweak future expression to call with '...' arguments ... DONE 1551s [00:52:31.755] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1551s [00:52:31.755] 1551s [00:52:31.756] getGlobalsAndPackages() ... DONE 1551s [00:52:31.756] run() for ‘Future’ ... 1551s [00:52:31.756] - state: ‘created’ 1551s [00:52:31.756] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1551s [00:52:31.760] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1551s [00:52:31.761] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1551s [00:52:31.761] - Field: ‘label’ 1551s [00:52:31.761] - Field: ‘local’ 1551s [00:52:31.761] - Field: ‘owner’ 1551s [00:52:31.762] - Field: ‘envir’ 1551s [00:52:31.762] - Field: ‘packages’ 1551s [00:52:31.762] - Field: ‘gc’ 1551s [00:52:31.763] - Field: ‘conditions’ 1551s [00:52:31.763] - Field: ‘expr’ 1551s [00:52:31.764] - Field: ‘uuid’ 1551s [00:52:31.764] - Field: ‘seed’ 1551s [00:52:31.764] - Field: ‘version’ 1551s [00:52:31.764] - Field: ‘result’ 1551s [00:52:31.765] - Field: ‘asynchronous’ 1551s [00:52:31.765] - Field: ‘calls’ 1551s [00:52:31.765] - Field: ‘globals’ 1551s [00:52:31.765] - Field: ‘stdout’ 1551s [00:52:31.765] - Field: ‘earlySignal’ 1551s [00:52:31.766] - Field: ‘lazy’ 1551s [00:52:31.766] - Field: ‘state’ 1551s [00:52:31.766] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1551s [00:52:31.766] - Launch lazy future ... 1551s [00:52:31.767] Packages needed by the future expression (n = 0): 1551s [00:52:31.767] Packages needed by future strategies (n = 0): 1551s [00:52:31.768] { 1551s [00:52:31.768] { 1551s [00:52:31.768] { 1551s [00:52:31.768] ...future.startTime <- base::Sys.time() 1551s [00:52:31.768] { 1551s [00:52:31.768] { 1551s [00:52:31.768] { 1551s [00:52:31.768] base::local({ 1551s [00:52:31.768] has_future <- base::requireNamespace("future", 1551s [00:52:31.768] quietly = TRUE) 1551s [00:52:31.768] if (has_future) { 1551s [00:52:31.768] ns <- base::getNamespace("future") 1551s [00:52:31.768] version <- ns[[".package"]][["version"]] 1551s [00:52:31.768] if (is.null(version)) 1551s [00:52:31.768] version <- utils::packageVersion("future") 1551s [00:52:31.768] } 1551s [00:52:31.768] else { 1551s [00:52:31.768] version <- NULL 1551s [00:52:31.768] } 1551s [00:52:31.768] if (!has_future || version < "1.8.0") { 1551s [00:52:31.768] info <- base::c(r_version = base::gsub("R version ", 1551s [00:52:31.768] "", base::R.version$version.string), 1551s [00:52:31.768] platform = base::sprintf("%s (%s-bit)", 1551s [00:52:31.768] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1551s [00:52:31.768] os = base::paste(base::Sys.info()[base::c("sysname", 1551s [00:52:31.768] "release", "version")], collapse = " "), 1551s [00:52:31.768] hostname = base::Sys.info()[["nodename"]]) 1551s [00:52:31.768] info <- base::sprintf("%s: %s", base::names(info), 1551s [00:52:31.768] info) 1551s [00:52:31.768] info <- base::paste(info, collapse = "; ") 1551s [00:52:31.768] if (!has_future) { 1551s [00:52:31.768] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1551s [00:52:31.768] info) 1551s [00:52:31.768] } 1551s [00:52:31.768] else { 1551s [00:52:31.768] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1551s [00:52:31.768] info, version) 1551s [00:52:31.768] } 1551s [00:52:31.768] base::stop(msg) 1551s [00:52:31.768] } 1551s [00:52:31.768] }) 1551s [00:52:31.768] } 1551s [00:52:31.768] options(future.plan = NULL) 1551s [00:52:31.768] Sys.unsetenv("R_FUTURE_PLAN") 1551s [00:52:31.768] future::plan("default", .cleanup = FALSE, .init = FALSE) 1551s [00:52:31.768] } 1551s [00:52:31.768] ...future.workdir <- getwd() 1551s [00:52:31.768] } 1551s [00:52:31.768] ...future.oldOptions <- base::as.list(base::.Options) 1551s [00:52:31.768] ...future.oldEnvVars <- base::Sys.getenv() 1551s [00:52:31.768] } 1551s [00:52:31.768] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1551s [00:52:31.768] future.globals.maxSize = 2097152000, future.globals.method = NULL, 1551s [00:52:31.768] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1551s [00:52:31.768] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1551s [00:52:31.768] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1551s [00:52:31.768] future.stdout.windows.reencode = NULL, width = 80L) 1551s [00:52:31.768] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1551s [00:52:31.768] base::names(...future.oldOptions)) 1551s [00:52:31.768] } 1551s [00:52:31.768] if (FALSE) { 1551s [00:52:31.768] } 1551s [00:52:31.768] else { 1551s [00:52:31.768] if (TRUE) { 1551s [00:52:31.768] ...future.stdout <- base::rawConnection(base::raw(0L), 1551s [00:52:31.768] open = "w") 1551s [00:52:31.768] } 1551s [00:52:31.768] else { 1551s [00:52:31.768] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1551s [00:52:31.768] windows = "NUL", "/dev/null"), open = "w") 1551s [00:52:31.768] } 1551s [00:52:31.768] base::sink(...future.stdout, type = "output", split = FALSE) 1551s [00:52:31.768] base::on.exit(if (!base::is.null(...future.stdout)) { 1551s [00:52:31.768] base::sink(type = "output", split = FALSE) 1551s [00:52:31.768] base::close(...future.stdout) 1551s [00:52:31.768] }, add = TRUE) 1551s [00:52:31.768] } 1551s [00:52:31.768] ...future.frame <- base::sys.nframe() 1551s [00:52:31.768] ...future.conditions <- base::list() 1551s [00:52:31.768] ...future.rng <- base::globalenv()$.Random.seed 1551s [00:52:31.768] if (FALSE) { 1551s [00:52:31.768] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1551s [00:52:31.768] "...future.value", "...future.globalenv.names", ".Random.seed") 1551s [00:52:31.768] } 1551s [00:52:31.768] ...future.result <- base::tryCatch({ 1551s [00:52:31.768] base::withCallingHandlers({ 1551s [00:52:31.768] ...future.value <- base::withVisible(base::local({ 1551s [00:52:31.768] do.call(function(...) { 1551s [00:52:31.768] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1551s [00:52:31.768] if (!identical(...future.globals.maxSize.org, 1551s [00:52:31.768] ...future.globals.maxSize)) { 1551s [00:52:31.768] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1551s [00:52:31.768] on.exit(options(oopts), add = TRUE) 1551s [00:52:31.768] } 1551s [00:52:31.768] { 1551s [00:52:31.768] lapply(seq_along(...future.elements_ii), 1551s [00:52:31.768] FUN = function(jj) { 1551s [00:52:31.768] ...future.X_jj <- ...future.elements_ii[[jj]] 1551s [00:52:31.768] ...future.FUN(...future.X_jj, ...) 1551s [00:52:31.768] }) 1551s [00:52:31.768] } 1551s [00:52:31.768] }, args = future.call.arguments) 1551s [00:52:31.768] })) 1551s [00:52:31.768] future::FutureResult(value = ...future.value$value, 1551s [00:52:31.768] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1551s [00:52:31.768] ...future.rng), globalenv = if (FALSE) 1551s [00:52:31.768] list(added = base::setdiff(base::names(base::.GlobalEnv), 1551s [00:52:31.768] ...future.globalenv.names)) 1551s [00:52:31.768] else NULL, started = ...future.startTime, version = "1.8") 1551s [00:52:31.768] }, condition = base::local({ 1551s [00:52:31.768] c <- base::c 1551s [00:52:31.768] inherits <- base::inherits 1551s [00:52:31.768] invokeRestart <- base::invokeRestart 1551s [00:52:31.768] length <- base::length 1551s [00:52:31.768] list <- base::list 1551s [00:52:31.768] seq.int <- base::seq.int 1551s [00:52:31.768] signalCondition <- base::signalCondition 1551s [00:52:31.768] sys.calls <- base::sys.calls 1551s [00:52:31.768] `[[` <- base::`[[` 1551s [00:52:31.768] `+` <- base::`+` 1551s [00:52:31.768] `<<-` <- base::`<<-` 1551s [00:52:31.768] sysCalls <- function(calls = sys.calls(), from = 1L) { 1551s [00:52:31.768] calls[seq.int(from = from + 12L, to = length(calls) - 1551s [00:52:31.768] 3L)] 1551s [00:52:31.768] } 1551s [00:52:31.768] function(cond) { 1551s [00:52:31.768] is_error <- inherits(cond, "error") 1551s [00:52:31.768] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1551s [00:52:31.768] NULL) 1551s [00:52:31.768] if (is_error) { 1551s [00:52:31.768] sessionInformation <- function() { 1551s [00:52:31.768] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1551s [00:52:31.768] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1551s [00:52:31.768] search = base::search(), system = base::Sys.info()) 1551s [00:52:31.768] } 1551s [00:52:31.768] ...future.conditions[[length(...future.conditions) + 1551s [00:52:31.768] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1551s [00:52:31.768] cond$call), session = sessionInformation(), 1551s [00:52:31.768] timestamp = base::Sys.time(), signaled = 0L) 1551s [00:52:31.768] signalCondition(cond) 1551s [00:52:31.768] } 1551s [00:52:31.768] else if (!ignore && TRUE && inherits(cond, c("condition", 1551s [00:52:31.768] "immediateCondition"))) { 1551s [00:52:31.768] signal <- TRUE && inherits(cond, "immediateCondition") 1551s [00:52:31.768] ...future.conditions[[length(...future.conditions) + 1551s [00:52:31.768] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1551s [00:52:31.768] if (TRUE && !signal) { 1551s [00:52:31.768] muffleCondition <- function (cond, pattern = "^muffle") 1551s [00:52:31.768] { 1551s [00:52:31.768] inherits <- base::inherits 1551s [00:52:31.768] invokeRestart <- base::invokeRestart 1551s [00:52:31.768] is.null <- base::is.null 1551s [00:52:31.768] muffled <- FALSE 1551s [00:52:31.768] if (inherits(cond, "message")) { 1551s [00:52:31.768] muffled <- grepl(pattern, "muffleMessage") 1551s [00:52:31.768] if (muffled) 1551s [00:52:31.768] invokeRestart("muffleMessage") 1551s [00:52:31.768] } 1551s [00:52:31.768] else if (inherits(cond, "warning")) { 1551s [00:52:31.768] muffled <- grepl(pattern, "muffleWarning") 1551s [00:52:31.768] if (muffled) 1551s [00:52:31.768] invokeRestart("muffleWarning") 1551s [00:52:31.768] } 1551s [00:52:31.768] else if (inherits(cond, "condition")) { 1551s [00:52:31.768] if (!is.null(pattern)) { 1551s [00:52:31.768] computeRestarts <- base::computeRestarts 1551s [00:52:31.768] grepl <- base::grepl 1551s [00:52:31.768] restarts <- computeRestarts(cond) 1551s [00:52:31.768] for (restart in restarts) { 1551s [00:52:31.768] name <- restart$name 1551s [00:52:31.768] if (is.null(name)) 1551s [00:52:31.768] next 1551s [00:52:31.768] if (!grepl(pattern, name)) 1551s [00:52:31.768] next 1551s [00:52:31.768] invokeRestart(restart) 1551s [00:52:31.768] muffled <- TRUE 1551s [00:52:31.768] break 1551s [00:52:31.768] } 1551s [00:52:31.768] } 1551s [00:52:31.768] } 1551s [00:52:31.768] invisible(muffled) 1551s [00:52:31.768] } 1551s [00:52:31.768] muffleCondition(cond, pattern = "^muffle") 1551s [00:52:31.768] } 1551s [00:52:31.768] } 1551s [00:52:31.768] else { 1551s [00:52:31.768] if (TRUE) { 1551s [00:52:31.768] muffleCondition <- function (cond, pattern = "^muffle") 1551s [00:52:31.768] { 1551s [00:52:31.768] inherits <- base::inherits 1551s [00:52:31.768] invokeRestart <- base::invokeRestart 1551s [00:52:31.768] is.null <- base::is.null 1551s [00:52:31.768] muffled <- FALSE 1551s [00:52:31.768] if (inherits(cond, "message")) { 1551s [00:52:31.768] muffled <- grepl(pattern, "muffleMessage") 1551s [00:52:31.768] if (muffled) 1551s [00:52:31.768] invokeRestart("muffleMessage") 1551s [00:52:31.768] } 1551s [00:52:31.768] else if (inherits(cond, "warning")) { 1551s [00:52:31.768] muffled <- grepl(pattern, "muffleWarning") 1551s [00:52:31.768] if (muffled) 1551s [00:52:31.768] invokeRestart("muffleWarning") 1551s [00:52:31.768] } 1551s [00:52:31.768] else if (inherits(cond, "condition")) { 1551s [00:52:31.768] if (!is.null(pattern)) { 1551s [00:52:31.768] computeRestarts <- base::computeRestarts 1551s [00:52:31.768] grepl <- base::grepl 1551s [00:52:31.768] restarts <- computeRestarts(cond) 1551s [00:52:31.768] for (restart in restarts) { 1551s [00:52:31.768] name <- restart$name 1551s [00:52:31.768] if (is.null(name)) 1551s [00:52:31.768] next 1551s [00:52:31.768] if (!grepl(pattern, name)) 1551s [00:52:31.768] next 1551s [00:52:31.768] invokeRestart(restart) 1551s [00:52:31.768] muffled <- TRUE 1551s [00:52:31.768] break 1551s [00:52:31.768] } 1551s [00:52:31.768] } 1551s [00:52:31.768] } 1551s [00:52:31.768] invisible(muffled) 1551s [00:52:31.768] } 1551s [00:52:31.768] muffleCondition(cond, pattern = "^muffle") 1551s [00:52:31.768] } 1551s [00:52:31.768] } 1551s [00:52:31.768] } 1551s [00:52:31.768] })) 1551s [00:52:31.768] }, error = function(ex) { 1551s [00:52:31.768] base::structure(base::list(value = NULL, visible = NULL, 1551s [00:52:31.768] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1551s [00:52:31.768] ...future.rng), started = ...future.startTime, 1551s [00:52:31.768] finished = Sys.time(), session_uuid = NA_character_, 1551s [00:52:31.768] version = "1.8"), class = "FutureResult") 1551s [00:52:31.768] }, finally = { 1551s [00:52:31.768] if (!identical(...future.workdir, getwd())) 1551s [00:52:31.768] setwd(...future.workdir) 1551s [00:52:31.768] { 1551s [00:52:31.768] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1551s [00:52:31.768] ...future.oldOptions$nwarnings <- NULL 1551s [00:52:31.768] } 1551s [00:52:31.768] base::options(...future.oldOptions) 1551s [00:52:31.768] if (.Platform$OS.type == "windows") { 1551s [00:52:31.768] old_names <- names(...future.oldEnvVars) 1551s [00:52:31.768] envs <- base::Sys.getenv() 1551s [00:52:31.768] names <- names(envs) 1551s [00:52:31.768] common <- intersect(names, old_names) 1551s [00:52:31.768] added <- setdiff(names, old_names) 1551s [00:52:31.768] removed <- setdiff(old_names, names) 1551s [00:52:31.768] changed <- common[...future.oldEnvVars[common] != 1551s [00:52:31.768] envs[common]] 1551s [00:52:31.768] NAMES <- toupper(changed) 1551s [00:52:31.768] args <- list() 1551s [00:52:31.768] for (kk in seq_along(NAMES)) { 1551s [00:52:31.768] name <- changed[[kk]] 1551s [00:52:31.768] NAME <- NAMES[[kk]] 1551s [00:52:31.768] if (name != NAME && is.element(NAME, old_names)) 1551s [00:52:31.768] next 1551s [00:52:31.768] args[[name]] <- ...future.oldEnvVars[[name]] 1551s [00:52:31.768] } 1551s [00:52:31.768] NAMES <- toupper(added) 1551s [00:52:31.768] for (kk in seq_along(NAMES)) { 1551s [00:52:31.768] name <- added[[kk]] 1551s [00:52:31.768] NAME <- NAMES[[kk]] 1551s [00:52:31.768] if (name != NAME && is.element(NAME, old_names)) 1551s [00:52:31.768] next 1551s [00:52:31.768] args[[name]] <- "" 1551s [00:52:31.768] } 1551s [00:52:31.768] NAMES <- toupper(removed) 1551s [00:52:31.768] for (kk in seq_along(NAMES)) { 1551s [00:52:31.768] name <- removed[[kk]] 1551s [00:52:31.768] NAME <- NAMES[[kk]] 1551s [00:52:31.768] if (name != NAME && is.element(NAME, old_names)) 1551s [00:52:31.768] next 1551s [00:52:31.768] args[[name]] <- ...future.oldEnvVars[[name]] 1551s [00:52:31.768] } 1551s [00:52:31.768] if (length(args) > 0) 1551s [00:52:31.768] base::do.call(base::Sys.setenv, args = args) 1551s [00:52:31.768] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1551s [00:52:31.768] } 1551s [00:52:31.768] else { 1551s [00:52:31.768] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1551s [00:52:31.768] } 1551s [00:52:31.768] { 1551s [00:52:31.768] if (base::length(...future.futureOptionsAdded) > 1551s [00:52:31.768] 0L) { 1551s [00:52:31.768] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1551s [00:52:31.768] base::names(opts) <- ...future.futureOptionsAdded 1551s [00:52:31.768] base::options(opts) 1551s [00:52:31.768] } 1551s [00:52:31.768] { 1551s [00:52:31.768] { 1551s [00:52:31.768] NULL 1551s [00:52:31.768] RNGkind("Mersenne-Twister") 1551s [00:52:31.768] base::rm(list = ".Random.seed", envir = base::globalenv(), 1551s [00:52:31.768] inherits = FALSE) 1551s [00:52:31.768] } 1551s [00:52:31.768] options(future.plan = NULL) 1551s [00:52:31.768] if (is.na(NA_character_)) 1551s [00:52:31.768] Sys.unsetenv("R_FUTURE_PLAN") 1551s [00:52:31.768] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1551s [00:52:31.768] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1551s [00:52:31.768] envir = parent.frame()) 1551s [00:52:31.768] { 1551s [00:52:31.768] default_workers <- missing(workers) 1551s [00:52:31.768] if (is.function(workers)) 1551s [00:52:31.768] workers <- workers() 1551s [00:52:31.768] workers <- structure(as.integer(workers), 1551s [00:52:31.768] class = class(workers)) 1551s [00:52:31.768] stop_if_not(is.finite(workers), workers >= 1551s [00:52:31.768] 1L) 1551s [00:52:31.768] if ((workers == 1L && !inherits(workers, 1551s [00:52:31.768] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1551s [00:52:31.768] if (default_workers) 1551s [00:52:31.768] supportsMulticore(warn = TRUE) 1551s [00:52:31.768] return(sequential(..., envir = envir)) 1551s [00:52:31.768] } 1551s [00:52:31.768] oopts <- options(mc.cores = workers) 1551s [00:52:31.768] on.exit(options(oopts)) 1551s [00:52:31.768] future <- MulticoreFuture(..., workers = workers, 1551s [00:52:31.768] envir = envir) 1551s [00:52:31.768] if (!future$lazy) 1551s [00:52:31.768] future <- run(future) 1551s [00:52:31.768] invisible(future) 1551s [00:52:31.768] }), .cleanup = FALSE, .init = FALSE) 1551s [00:52:31.768] } 1551s [00:52:31.768] } 1551s [00:52:31.768] } 1551s [00:52:31.768] }) 1551s [00:52:31.768] if (TRUE) { 1551s [00:52:31.768] base::sink(type = "output", split = FALSE) 1551s [00:52:31.768] if (TRUE) { 1551s [00:52:31.768] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1551s [00:52:31.768] } 1551s [00:52:31.768] else { 1551s [00:52:31.768] ...future.result["stdout"] <- base::list(NULL) 1551s [00:52:31.768] } 1551s [00:52:31.768] base::close(...future.stdout) 1551s [00:52:31.768] ...future.stdout <- NULL 1551s [00:52:31.768] } 1551s [00:52:31.768] ...future.result$conditions <- ...future.conditions 1551s [00:52:31.768] ...future.result$finished <- base::Sys.time() 1551s [00:52:31.768] ...future.result 1551s [00:52:31.768] } 1551s [00:52:31.773] assign_globals() ... 1551s [00:52:31.774] List of 5 1551s [00:52:31.774] $ ...future.FUN :function (mode = "logical", length = 0L) 1551s [00:52:31.774] $ future.call.arguments :List of 1 1551s [00:52:31.774] ..$ length: int 2 1551s [00:52:31.774] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1551s [00:52:31.774] $ ...future.elements_ii :List of 1 1551s [00:52:31.774] ..$ b: chr "numeric" 1551s [00:52:31.774] $ ...future.seeds_ii : NULL 1551s [00:52:31.774] $ ...future.globals.maxSize: NULL 1551s [00:52:31.774] - attr(*, "where")=List of 5 1551s [00:52:31.774] ..$ ...future.FUN : 1551s [00:52:31.774] ..$ future.call.arguments : 1551s [00:52:31.774] ..$ ...future.elements_ii : 1551s [00:52:31.774] ..$ ...future.seeds_ii : 1551s [00:52:31.774] ..$ ...future.globals.maxSize: 1551s [00:52:31.774] - attr(*, "resolved")= logi FALSE 1551s [00:52:31.774] - attr(*, "total_size")= num 2240 1551s [00:52:31.774] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1551s [00:52:31.774] - attr(*, "already-done")= logi TRUE 1551s [00:52:31.785] - copied ‘...future.FUN’ to environment 1551s [00:52:31.785] - copied ‘future.call.arguments’ to environment 1551s [00:52:31.786] - copied ‘...future.elements_ii’ to environment 1551s [00:52:31.786] - copied ‘...future.seeds_ii’ to environment 1551s [00:52:31.786] - copied ‘...future.globals.maxSize’ to environment 1551s [00:52:31.786] assign_globals() ... done 1551s [00:52:31.786] plan(): Setting new future strategy stack: 1551s [00:52:31.786] List of future strategies: 1551s [00:52:31.786] 1. sequential: 1551s [00:52:31.786] - args: function (..., envir = parent.frame()) 1551s [00:52:31.786] - tweaked: FALSE 1551s [00:52:31.786] - call: NULL 1551s [00:52:31.787] plan(): nbrOfWorkers() = 1 1551s [00:52:31.789] plan(): Setting new future strategy stack: 1551s [00:52:31.789] List of future strategies: 1551s [00:52:31.789] 1. multicore: 1551s [00:52:31.789] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1551s [00:52:31.789] - tweaked: FALSE 1551s [00:52:31.789] - call: plan(strategy) 1551s [00:52:31.794] plan(): nbrOfWorkers() = 1 1551s [00:52:31.794] SequentialFuture started (and completed) 1551s [00:52:31.795] - Launch lazy future ... done 1551s [00:52:31.795] run() for ‘SequentialFuture’ ... done 1551s [00:52:31.795] Created future: 1551s [00:52:31.796] SequentialFuture: 1551s [00:52:31.796] Label: ‘future_lapply-2’ 1551s [00:52:31.796] Expression: 1551s [00:52:31.796] { 1551s [00:52:31.796] do.call(function(...) { 1551s [00:52:31.796] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1551s [00:52:31.796] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1551s [00:52:31.796] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1551s [00:52:31.796] on.exit(options(oopts), add = TRUE) 1551s [00:52:31.796] } 1551s [00:52:31.796] { 1551s [00:52:31.796] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1551s [00:52:31.796] ...future.X_jj <- ...future.elements_ii[[jj]] 1551s [00:52:31.796] ...future.FUN(...future.X_jj, ...) 1551s [00:52:31.796] }) 1551s [00:52:31.796] } 1551s [00:52:31.796] }, args = future.call.arguments) 1551s [00:52:31.796] } 1551s [00:52:31.796] Lazy evaluation: FALSE 1551s [00:52:31.796] Asynchronous evaluation: FALSE 1551s [00:52:31.796] Local evaluation: TRUE 1551s [00:52:31.796] Environment: R_GlobalEnv 1551s [00:52:31.796] Capture standard output: TRUE 1551s [00:52:31.796] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1551s [00:52:31.796] Globals: 5 objects totaling 2.30 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1551s [00:52:31.796] Packages: 1551s [00:52:31.796] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1551s [00:52:31.796] Resolved: TRUE 1551s [00:52:31.796] Value: 64 bytes of class ‘list’ 1551s [00:52:31.796] Early signaling: FALSE 1551s [00:52:31.796] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1551s [00:52:31.796] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1551s [00:52:31.798] Chunk #2 of 4 ... DONE 1551s [00:52:31.798] Chunk #3 of 4 ... 1551s [00:52:31.798] - Finding globals in 'X' for chunk #3 ... 1551s [00:52:31.798] getGlobalsAndPackages() ... 1551s [00:52:31.802] Searching for globals... 1551s [00:52:31.803] 1551s [00:52:31.803] Searching for globals ... DONE 1551s [00:52:31.804] - globals: [0] 1551s [00:52:31.804] getGlobalsAndPackages() ... DONE 1551s [00:52:31.804] + additional globals found: [n=0] 1551s [00:52:31.805] + additional namespaces needed: [n=0] 1551s [00:52:31.805] - Finding globals in 'X' for chunk #3 ... DONE 1551s [00:52:31.806] - Adjusted option 'future.globals.maxSize': 524288000 -> 4 * 524288000 = 2097152000 (bytes) 1551s [00:52:31.806] - seeds: 1551s [00:52:31.806] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1551s [00:52:31.806] getGlobalsAndPackages() ... 1551s [00:52:31.806] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1551s [00:52:31.807] Resolving globals: FALSE 1551s [00:52:31.807] Tweak future expression to call with '...' arguments ... 1551s [00:52:31.807] { 1551s [00:52:31.807] do.call(function(...) { 1551s [00:52:31.807] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1551s [00:52:31.807] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1551s [00:52:31.807] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1551s [00:52:31.807] on.exit(options(oopts), add = TRUE) 1551s [00:52:31.807] } 1551s [00:52:31.807] { 1551s [00:52:31.807] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1551s [00:52:31.807] ...future.X_jj <- ...future.elements_ii[[jj]] 1551s [00:52:31.807] ...future.FUN(...future.X_jj, ...) 1551s [00:52:31.807] }) 1551s [00:52:31.807] } 1551s [00:52:31.807] }, args = future.call.arguments) 1551s [00:52:31.807] } 1551s [00:52:31.808] Tweak future expression to call with '...' arguments ... DONE 1551s [00:52:31.809] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1551s [00:52:31.810] 1551s [00:52:31.810] getGlobalsAndPackages() ... DONE 1551s [00:52:31.810] run() for ‘Future’ ... 1551s [00:52:31.810] - state: ‘created’ 1551s [00:52:31.811] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1551s [00:52:31.815] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1551s [00:52:31.815] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1551s [00:52:31.816] - Field: ‘label’ 1551s [00:52:31.816] - Field: ‘local’ 1551s [00:52:31.816] - Field: ‘owner’ 1551s [00:52:31.816] - Field: ‘envir’ 1551s [00:52:31.816] - Field: ‘packages’ 1551s [00:52:31.816] - Field: ‘gc’ 1551s [00:52:31.816] - Field: ‘conditions’ 1551s [00:52:31.817] - Field: ‘expr’ 1551s [00:52:31.817] - Field: ‘uuid’ 1551s [00:52:31.817] - Field: ‘seed’ 1551s [00:52:31.817] - Field: ‘version’ 1551s [00:52:31.817] - Field: ‘result’ 1551s [00:52:31.817] - Field: ‘asynchronous’ 1551s [00:52:31.818] - Field: ‘calls’ 1551s [00:52:31.818] - Field: ‘globals’ 1551s [00:52:31.818] - Field: ‘stdout’ 1551s [00:52:31.818] - Field: ‘earlySignal’ 1551s [00:52:31.818] - Field: ‘lazy’ 1551s [00:52:31.818] - Field: ‘state’ 1551s [00:52:31.819] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1551s [00:52:31.819] - Launch lazy future ... 1551s [00:52:31.819] Packages needed by the future expression (n = 0): 1551s [00:52:31.819] Packages needed by future strategies (n = 0): 1551s [00:52:31.821] { 1551s [00:52:31.821] { 1551s [00:52:31.821] { 1551s [00:52:31.821] ...future.startTime <- base::Sys.time() 1551s [00:52:31.821] { 1551s [00:52:31.821] { 1551s [00:52:31.821] { 1551s [00:52:31.821] base::local({ 1551s [00:52:31.821] has_future <- base::requireNamespace("future", 1551s [00:52:31.821] quietly = TRUE) 1551s [00:52:31.821] if (has_future) { 1551s [00:52:31.821] ns <- base::getNamespace("future") 1551s [00:52:31.821] version <- ns[[".package"]][["version"]] 1551s [00:52:31.821] if (is.null(version)) 1551s [00:52:31.821] version <- utils::packageVersion("future") 1551s [00:52:31.821] } 1551s [00:52:31.821] else { 1551s [00:52:31.821] version <- NULL 1551s [00:52:31.821] } 1551s [00:52:31.821] if (!has_future || version < "1.8.0") { 1551s [00:52:31.821] info <- base::c(r_version = base::gsub("R version ", 1551s [00:52:31.821] "", base::R.version$version.string), 1551s [00:52:31.821] platform = base::sprintf("%s (%s-bit)", 1551s [00:52:31.821] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1551s [00:52:31.821] os = base::paste(base::Sys.info()[base::c("sysname", 1551s [00:52:31.821] "release", "version")], collapse = " "), 1551s [00:52:31.821] hostname = base::Sys.info()[["nodename"]]) 1551s [00:52:31.821] info <- base::sprintf("%s: %s", base::names(info), 1551s [00:52:31.821] info) 1551s [00:52:31.821] info <- base::paste(info, collapse = "; ") 1551s [00:52:31.821] if (!has_future) { 1551s [00:52:31.821] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1551s [00:52:31.821] info) 1551s [00:52:31.821] } 1551s [00:52:31.821] else { 1551s [00:52:31.821] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1551s [00:52:31.821] info, version) 1551s [00:52:31.821] } 1551s [00:52:31.821] base::stop(msg) 1551s [00:52:31.821] } 1551s [00:52:31.821] }) 1551s [00:52:31.821] } 1551s [00:52:31.821] options(future.plan = NULL) 1551s [00:52:31.821] Sys.unsetenv("R_FUTURE_PLAN") 1551s [00:52:31.821] future::plan("default", .cleanup = FALSE, .init = FALSE) 1551s [00:52:31.821] } 1551s [00:52:31.821] ...future.workdir <- getwd() 1551s [00:52:31.821] } 1551s [00:52:31.821] ...future.oldOptions <- base::as.list(base::.Options) 1551s [00:52:31.821] ...future.oldEnvVars <- base::Sys.getenv() 1551s [00:52:31.821] } 1551s [00:52:31.821] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1551s [00:52:31.821] future.globals.maxSize = 2097152000, future.globals.method = NULL, 1551s [00:52:31.821] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1551s [00:52:31.821] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1551s [00:52:31.821] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1551s [00:52:31.821] future.stdout.windows.reencode = NULL, width = 80L) 1551s [00:52:31.821] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1551s [00:52:31.821] base::names(...future.oldOptions)) 1551s [00:52:31.821] } 1551s [00:52:31.821] if (FALSE) { 1551s [00:52:31.821] } 1551s [00:52:31.821] else { 1551s [00:52:31.821] if (TRUE) { 1551s [00:52:31.821] ...future.stdout <- base::rawConnection(base::raw(0L), 1551s [00:52:31.821] open = "w") 1551s [00:52:31.821] } 1551s [00:52:31.821] else { 1551s [00:52:31.821] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1551s [00:52:31.821] windows = "NUL", "/dev/null"), open = "w") 1551s [00:52:31.821] } 1551s [00:52:31.821] base::sink(...future.stdout, type = "output", split = FALSE) 1551s [00:52:31.821] base::on.exit(if (!base::is.null(...future.stdout)) { 1551s [00:52:31.821] base::sink(type = "output", split = FALSE) 1551s [00:52:31.821] base::close(...future.stdout) 1551s [00:52:31.821] }, add = TRUE) 1551s [00:52:31.821] } 1551s [00:52:31.821] ...future.frame <- base::sys.nframe() 1551s [00:52:31.821] ...future.conditions <- base::list() 1551s [00:52:31.821] ...future.rng <- base::globalenv()$.Random.seed 1551s [00:52:31.821] if (FALSE) { 1551s [00:52:31.821] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1551s [00:52:31.821] "...future.value", "...future.globalenv.names", ".Random.seed") 1551s [00:52:31.821] } 1551s [00:52:31.821] ...future.result <- base::tryCatch({ 1551s [00:52:31.821] base::withCallingHandlers({ 1551s [00:52:31.821] ...future.value <- base::withVisible(base::local({ 1551s [00:52:31.821] do.call(function(...) { 1551s [00:52:31.821] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1551s [00:52:31.821] if (!identical(...future.globals.maxSize.org, 1551s [00:52:31.821] ...future.globals.maxSize)) { 1551s [00:52:31.821] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1551s [00:52:31.821] on.exit(options(oopts), add = TRUE) 1551s [00:52:31.821] } 1551s [00:52:31.821] { 1551s [00:52:31.821] lapply(seq_along(...future.elements_ii), 1551s [00:52:31.821] FUN = function(jj) { 1551s [00:52:31.821] ...future.X_jj <- ...future.elements_ii[[jj]] 1551s [00:52:31.821] ...future.FUN(...future.X_jj, ...) 1551s [00:52:31.821] }) 1551s [00:52:31.821] } 1551s [00:52:31.821] }, args = future.call.arguments) 1551s [00:52:31.821] })) 1551s [00:52:31.821] future::FutureResult(value = ...future.value$value, 1551s [00:52:31.821] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1551s [00:52:31.821] ...future.rng), globalenv = if (FALSE) 1551s [00:52:31.821] list(added = base::setdiff(base::names(base::.GlobalEnv), 1551s [00:52:31.821] ...future.globalenv.names)) 1551s [00:52:31.821] else NULL, started = ...future.startTime, version = "1.8") 1551s [00:52:31.821] }, condition = base::local({ 1551s [00:52:31.821] c <- base::c 1551s [00:52:31.821] inherits <- base::inherits 1551s [00:52:31.821] invokeRestart <- base::invokeRestart 1551s [00:52:31.821] length <- base::length 1551s [00:52:31.821] list <- base::list 1551s [00:52:31.821] seq.int <- base::seq.int 1551s [00:52:31.821] signalCondition <- base::signalCondition 1551s [00:52:31.821] sys.calls <- base::sys.calls 1551s [00:52:31.821] `[[` <- base::`[[` 1551s [00:52:31.821] `+` <- base::`+` 1551s [00:52:31.821] `<<-` <- base::`<<-` 1551s [00:52:31.821] sysCalls <- function(calls = sys.calls(), from = 1L) { 1551s [00:52:31.821] calls[seq.int(from = from + 12L, to = length(calls) - 1551s [00:52:31.821] 3L)] 1551s [00:52:31.821] } 1551s [00:52:31.821] function(cond) { 1551s [00:52:31.821] is_error <- inherits(cond, "error") 1551s [00:52:31.821] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1551s [00:52:31.821] NULL) 1551s [00:52:31.821] if (is_error) { 1551s [00:52:31.821] sessionInformation <- function() { 1551s [00:52:31.821] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1551s [00:52:31.821] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1551s [00:52:31.821] search = base::search(), system = base::Sys.info()) 1551s [00:52:31.821] } 1551s [00:52:31.821] ...future.conditions[[length(...future.conditions) + 1551s [00:52:31.821] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1551s [00:52:31.821] cond$call), session = sessionInformation(), 1551s [00:52:31.821] timestamp = base::Sys.time(), signaled = 0L) 1551s [00:52:31.821] signalCondition(cond) 1551s [00:52:31.821] } 1551s [00:52:31.821] else if (!ignore && TRUE && inherits(cond, c("condition", 1551s [00:52:31.821] "immediateCondition"))) { 1551s [00:52:31.821] signal <- TRUE && inherits(cond, "immediateCondition") 1551s [00:52:31.821] ...future.conditions[[length(...future.conditions) + 1551s [00:52:31.821] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1551s [00:52:31.821] if (TRUE && !signal) { 1551s [00:52:31.821] muffleCondition <- function (cond, pattern = "^muffle") 1551s [00:52:31.821] { 1551s [00:52:31.821] inherits <- base::inherits 1551s [00:52:31.821] invokeRestart <- base::invokeRestart 1551s [00:52:31.821] is.null <- base::is.null 1551s [00:52:31.821] muffled <- FALSE 1551s [00:52:31.821] if (inherits(cond, "message")) { 1551s [00:52:31.821] muffled <- grepl(pattern, "muffleMessage") 1551s [00:52:31.821] if (muffled) 1551s [00:52:31.821] invokeRestart("muffleMessage") 1551s [00:52:31.821] } 1551s [00:52:31.821] else if (inherits(cond, "warning")) { 1551s [00:52:31.821] muffled <- grepl(pattern, "muffleWarning") 1551s [00:52:31.821] if (muffled) 1551s [00:52:31.821] invokeRestart("muffleWarning") 1551s [00:52:31.821] } 1551s [00:52:31.821] else if (inherits(cond, "condition")) { 1551s [00:52:31.821] if (!is.null(pattern)) { 1551s [00:52:31.821] computeRestarts <- base::computeRestarts 1551s [00:52:31.821] grepl <- base::grepl 1551s [00:52:31.821] restarts <- computeRestarts(cond) 1551s [00:52:31.821] for (restart in restarts) { 1551s [00:52:31.821] name <- restart$name 1551s [00:52:31.821] if (is.null(name)) 1551s [00:52:31.821] next 1551s [00:52:31.821] if (!grepl(pattern, name)) 1551s [00:52:31.821] next 1551s [00:52:31.821] invokeRestart(restart) 1551s [00:52:31.821] muffled <- TRUE 1551s [00:52:31.821] break 1551s [00:52:31.821] } 1551s [00:52:31.821] } 1551s [00:52:31.821] } 1551s [00:52:31.821] invisible(muffled) 1551s [00:52:31.821] } 1551s [00:52:31.821] muffleCondition(cond, pattern = "^muffle") 1551s [00:52:31.821] } 1551s [00:52:31.821] } 1551s [00:52:31.821] else { 1551s [00:52:31.821] if (TRUE) { 1551s [00:52:31.821] muffleCondition <- function (cond, pattern = "^muffle") 1551s [00:52:31.821] { 1551s [00:52:31.821] inherits <- base::inherits 1551s [00:52:31.821] invokeRestart <- base::invokeRestart 1551s [00:52:31.821] is.null <- base::is.null 1551s [00:52:31.821] muffled <- FALSE 1551s [00:52:31.821] if (inherits(cond, "message")) { 1551s [00:52:31.821] muffled <- grepl(pattern, "muffleMessage") 1551s [00:52:31.821] if (muffled) 1551s [00:52:31.821] invokeRestart("muffleMessage") 1551s [00:52:31.821] } 1551s [00:52:31.821] else if (inherits(cond, "warning")) { 1551s [00:52:31.821] muffled <- grepl(pattern, "muffleWarning") 1551s [00:52:31.821] if (muffled) 1551s [00:52:31.821] invokeRestart("muffleWarning") 1551s [00:52:31.821] } 1551s [00:52:31.821] else if (inherits(cond, "condition")) { 1551s [00:52:31.821] if (!is.null(pattern)) { 1551s [00:52:31.821] computeRestarts <- base::computeRestarts 1551s [00:52:31.821] grepl <- base::grepl 1551s [00:52:31.821] restarts <- computeRestarts(cond) 1551s [00:52:31.821] for (restart in restarts) { 1551s [00:52:31.821] name <- restart$name 1551s [00:52:31.821] if (is.null(name)) 1551s [00:52:31.821] next 1551s [00:52:31.821] if (!grepl(pattern, name)) 1551s [00:52:31.821] next 1551s [00:52:31.821] invokeRestart(restart) 1551s [00:52:31.821] muffled <- TRUE 1551s [00:52:31.821] break 1551s [00:52:31.821] } 1551s [00:52:31.821] } 1551s [00:52:31.821] } 1551s [00:52:31.821] invisible(muffled) 1551s [00:52:31.821] } 1551s [00:52:31.821] muffleCondition(cond, pattern = "^muffle") 1551s [00:52:31.821] } 1551s [00:52:31.821] } 1551s [00:52:31.821] } 1551s [00:52:31.821] })) 1551s [00:52:31.821] }, error = function(ex) { 1551s [00:52:31.821] base::structure(base::list(value = NULL, visible = NULL, 1551s [00:52:31.821] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1551s [00:52:31.821] ...future.rng), started = ...future.startTime, 1551s [00:52:31.821] finished = Sys.time(), session_uuid = NA_character_, 1551s [00:52:31.821] version = "1.8"), class = "FutureResult") 1551s [00:52:31.821] }, finally = { 1551s [00:52:31.821] if (!identical(...future.workdir, getwd())) 1551s [00:52:31.821] setwd(...future.workdir) 1551s [00:52:31.821] { 1551s [00:52:31.821] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1551s [00:52:31.821] ...future.oldOptions$nwarnings <- NULL 1551s [00:52:31.821] } 1551s [00:52:31.821] base::options(...future.oldOptions) 1551s [00:52:31.821] if (.Platform$OS.type == "windows") { 1551s [00:52:31.821] old_names <- names(...future.oldEnvVars) 1551s [00:52:31.821] envs <- base::Sys.getenv() 1551s [00:52:31.821] names <- names(envs) 1551s [00:52:31.821] common <- intersect(names, old_names) 1551s [00:52:31.821] added <- setdiff(names, old_names) 1551s [00:52:31.821] removed <- setdiff(old_names, names) 1551s [00:52:31.821] changed <- common[...future.oldEnvVars[common] != 1551s [00:52:31.821] envs[common]] 1551s [00:52:31.821] NAMES <- toupper(changed) 1551s [00:52:31.821] args <- list() 1551s [00:52:31.821] for (kk in seq_along(NAMES)) { 1551s [00:52:31.821] name <- changed[[kk]] 1551s [00:52:31.821] NAME <- NAMES[[kk]] 1551s [00:52:31.821] if (name != NAME && is.element(NAME, old_names)) 1551s [00:52:31.821] next 1551s [00:52:31.821] args[[name]] <- ...future.oldEnvVars[[name]] 1551s [00:52:31.821] } 1551s [00:52:31.821] NAMES <- toupper(added) 1551s [00:52:31.821] for (kk in seq_along(NAMES)) { 1551s [00:52:31.821] name <- added[[kk]] 1551s [00:52:31.821] NAME <- NAMES[[kk]] 1551s [00:52:31.821] if (name != NAME && is.element(NAME, old_names)) 1551s [00:52:31.821] next 1551s [00:52:31.821] args[[name]] <- "" 1551s [00:52:31.821] } 1551s [00:52:31.821] NAMES <- toupper(removed) 1551s [00:52:31.821] for (kk in seq_along(NAMES)) { 1551s [00:52:31.821] name <- removed[[kk]] 1551s [00:52:31.821] NAME <- NAMES[[kk]] 1551s [00:52:31.821] if (name != NAME && is.element(NAME, old_names)) 1551s [00:52:31.821] next 1551s [00:52:31.821] args[[name]] <- ...future.oldEnvVars[[name]] 1551s [00:52:31.821] } 1551s [00:52:31.821] if (length(args) > 0) 1551s [00:52:31.821] base::do.call(base::Sys.setenv, args = args) 1551s [00:52:31.821] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1551s [00:52:31.821] } 1551s [00:52:31.821] else { 1551s [00:52:31.821] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1551s [00:52:31.821] } 1551s [00:52:31.821] { 1551s [00:52:31.821] if (base::length(...future.futureOptionsAdded) > 1551s [00:52:31.821] 0L) { 1551s [00:52:31.821] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1551s [00:52:31.821] base::names(opts) <- ...future.futureOptionsAdded 1551s [00:52:31.821] base::options(opts) 1551s [00:52:31.821] } 1551s [00:52:31.821] { 1551s [00:52:31.821] { 1551s [00:52:31.821] NULL 1551s [00:52:31.821] RNGkind("Mersenne-Twister") 1551s [00:52:31.821] base::rm(list = ".Random.seed", envir = base::globalenv(), 1551s [00:52:31.821] inherits = FALSE) 1551s [00:52:31.821] } 1551s [00:52:31.821] options(future.plan = NULL) 1551s [00:52:31.821] if (is.na(NA_character_)) 1551s [00:52:31.821] Sys.unsetenv("R_FUTURE_PLAN") 1551s [00:52:31.821] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1551s [00:52:31.821] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1551s [00:52:31.821] envir = parent.frame()) 1551s [00:52:31.821] { 1551s [00:52:31.821] default_workers <- missing(workers) 1551s [00:52:31.821] if (is.function(workers)) 1551s [00:52:31.821] workers <- workers() 1551s [00:52:31.821] workers <- structure(as.integer(workers), 1551s [00:52:31.821] class = class(workers)) 1551s [00:52:31.821] stop_if_not(is.finite(workers), workers >= 1551s [00:52:31.821] 1L) 1551s [00:52:31.821] if ((workers == 1L && !inherits(workers, 1551s [00:52:31.821] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1551s [00:52:31.821] if (default_workers) 1551s [00:52:31.821] supportsMulticore(warn = TRUE) 1551s [00:52:31.821] return(sequential(..., envir = envir)) 1551s [00:52:31.821] } 1551s [00:52:31.821] oopts <- options(mc.cores = workers) 1551s [00:52:31.821] on.exit(options(oopts)) 1551s [00:52:31.821] future <- MulticoreFuture(..., workers = workers, 1551s [00:52:31.821] envir = envir) 1551s [00:52:31.821] if (!future$lazy) 1551s [00:52:31.821] future <- run(future) 1551s [00:52:31.821] invisible(future) 1551s [00:52:31.821] }), .cleanup = FALSE, .init = FALSE) 1551s [00:52:31.821] } 1551s [00:52:31.821] } 1551s [00:52:31.821] } 1551s [00:52:31.821] }) 1551s [00:52:31.821] if (TRUE) { 1551s [00:52:31.821] base::sink(type = "output", split = FALSE) 1551s [00:52:31.821] if (TRUE) { 1551s [00:52:31.821] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1551s [00:52:31.821] } 1551s [00:52:31.821] else { 1551s [00:52:31.821] ...future.result["stdout"] <- base::list(NULL) 1551s [00:52:31.821] } 1551s [00:52:31.821] base::close(...future.stdout) 1551s [00:52:31.821] ...future.stdout <- NULL 1551s [00:52:31.821] } 1551s [00:52:31.821] ...future.result$conditions <- ...future.conditions 1551s [00:52:31.821] ...future.result$finished <- base::Sys.time() 1551s [00:52:31.821] ...future.result 1551s [00:52:31.821] } 1551s [00:52:31.828] assign_globals() ... 1551s [00:52:31.828] List of 5 1551s [00:52:31.828] $ ...future.FUN :function (mode = "logical", length = 0L) 1551s [00:52:31.828] $ future.call.arguments :List of 1 1551s [00:52:31.828] ..$ length: int 2 1551s [00:52:31.828] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1551s [00:52:31.828] $ ...future.elements_ii :List of 1 1551s [00:52:31.828] ..$ c: chr "character" 1551s [00:52:31.828] $ ...future.seeds_ii : NULL 1551s [00:52:31.828] $ ...future.globals.maxSize: NULL 1551s [00:52:31.828] - attr(*, "where")=List of 5 1551s [00:52:31.828] ..$ ...future.FUN : 1551s [00:52:31.828] ..$ future.call.arguments : 1551s [00:52:31.828] ..$ ...future.elements_ii : 1551s [00:52:31.828] ..$ ...future.seeds_ii : 1551s [00:52:31.828] ..$ ...future.globals.maxSize: 1551s [00:52:31.828] - attr(*, "resolved")= logi FALSE 1551s [00:52:31.828] - attr(*, "total_size")= num 2240 1551s [00:52:31.828] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1551s [00:52:31.828] - attr(*, "already-done")= logi TRUE 1551s [00:52:31.837] - copied ‘...future.FUN’ to environment 1551s [00:52:31.838] - copied ‘future.call.arguments’ to environment 1551s [00:52:31.838] - copied ‘...future.elements_ii’ to environment 1551s [00:52:31.838] - copied ‘...future.seeds_ii’ to environment 1551s [00:52:31.838] - copied ‘...future.globals.maxSize’ to environment 1551s [00:52:31.839] assign_globals() ... done 1551s [00:52:31.839] plan(): Setting new future strategy stack: 1551s [00:52:31.839] List of future strategies: 1551s [00:52:31.839] 1. sequential: 1551s [00:52:31.839] - args: function (..., envir = parent.frame()) 1551s [00:52:31.839] - tweaked: FALSE 1551s [00:52:31.839] - call: NULL 1551s [00:52:31.840] plan(): nbrOfWorkers() = 1 1551s [00:52:31.841] plan(): Setting new future strategy stack: 1551s [00:52:31.841] List of future strategies: 1551s [00:52:31.841] 1. multicore: 1551s [00:52:31.841] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1551s [00:52:31.841] - tweaked: FALSE 1551s [00:52:31.841] - call: plan(strategy) 1551s [00:52:31.846] plan(): nbrOfWorkers() = 1 1551s [00:52:31.847] SequentialFuture started (and completed) 1551s [00:52:31.847] - Launch lazy future ... done 1551s [00:52:31.847] run() for ‘SequentialFuture’ ... done 1551s [00:52:31.848] Created future: 1551s [00:52:31.849] SequentialFuture: 1551s [00:52:31.849] Label: ‘future_lapply-3’ 1551s [00:52:31.849] Expression: 1551s [00:52:31.849] { 1551s [00:52:31.849] do.call(function(...) { 1551s [00:52:31.849] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1551s [00:52:31.849] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1551s [00:52:31.849] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1551s [00:52:31.849] on.exit(options(oopts), add = TRUE) 1551s [00:52:31.849] } 1551s [00:52:31.849] { 1551s [00:52:31.849] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1551s [00:52:31.849] ...future.X_jj <- ...future.elements_ii[[jj]] 1551s [00:52:31.849] ...future.FUN(...future.X_jj, ...) 1551s [00:52:31.849] }) 1551s [00:52:31.849] } 1551s [00:52:31.849] }, args = future.call.arguments) 1551s [00:52:31.849] } 1551s [00:52:31.849] Lazy evaluation: FALSE 1551s [00:52:31.849] Asynchronous evaluation: FALSE 1551s [00:52:31.849] Local evaluation: TRUE 1551s [00:52:31.849] Environment: R_GlobalEnv 1551s [00:52:31.849] Capture standard output: TRUE 1551s [00:52:31.849] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1551s [00:52:31.849] Globals: 5 objects totaling 2.30 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 120 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1551s [00:52:31.849] Packages: 1551s [00:52:31.849] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1551s [00:52:31.849] Resolved: TRUE 1551s [00:52:31.849] Value: 120 bytes of class ‘list’ 1551s [00:52:31.849] Early signaling: FALSE 1551s [00:52:31.849] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1551s [00:52:31.849] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1551s [00:52:31.853] Chunk #3 of 4 ... DONE 1551s [00:52:31.853] Chunk #4 of 4 ... 1551s [00:52:31.853] - Finding globals in 'X' for chunk #4 ... 1551s [00:52:31.853] getGlobalsAndPackages() ... 1551s [00:52:31.853] Searching for globals... 1551s [00:52:31.856] 1551s [00:52:31.856] Searching for globals ... DONE 1551s [00:52:31.856] - globals: [0] 1551s [00:52:31.856] getGlobalsAndPackages() ... DONE 1551s [00:52:31.857] + additional globals found: [n=0] 1551s [00:52:31.857] + additional namespaces needed: [n=0] 1551s [00:52:31.857] - Finding globals in 'X' for chunk #4 ... DONE 1551s [00:52:31.857] - Adjusted option 'future.globals.maxSize': 524288000 -> 4 * 524288000 = 2097152000 (bytes) 1551s [00:52:31.857] - seeds: 1551s [00:52:31.857] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1551s [00:52:31.858] getGlobalsAndPackages() ... 1551s [00:52:31.858] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1551s [00:52:31.858] Resolving globals: FALSE 1551s [00:52:31.859] Tweak future expression to call with '...' arguments ... 1551s [00:52:31.859] { 1551s [00:52:31.859] do.call(function(...) { 1551s [00:52:31.859] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1551s [00:52:31.859] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1551s [00:52:31.859] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1551s [00:52:31.859] on.exit(options(oopts), add = TRUE) 1551s [00:52:31.859] } 1551s [00:52:31.859] { 1551s [00:52:31.859] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1551s [00:52:31.859] ...future.X_jj <- ...future.elements_ii[[jj]] 1551s [00:52:31.859] ...future.FUN(...future.X_jj, ...) 1551s [00:52:31.859] }) 1551s [00:52:31.859] } 1551s [00:52:31.859] }, args = future.call.arguments) 1551s [00:52:31.859] } 1551s [00:52:31.863] Tweak future expression to call with '...' arguments ... DONE 1551s [00:52:31.864] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1551s [00:52:31.865] 1551s [00:52:31.865] getGlobalsAndPackages() ... DONE 1551s [00:52:31.866] run() for ‘Future’ ... 1551s [00:52:31.866] - state: ‘created’ 1551s [00:52:31.866] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1551s [00:52:31.872] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1551s [00:52:31.872] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1551s [00:52:31.873] - Field: ‘label’ 1551s [00:52:31.873] - Field: ‘local’ 1551s [00:52:31.874] - Field: ‘owner’ 1551s [00:52:31.874] - Field: ‘envir’ 1551s [00:52:31.874] - Field: ‘packages’ 1551s [00:52:31.874] - Field: ‘gc’ 1551s [00:52:31.875] - Field: ‘conditions’ 1551s [00:52:31.875] - Field: ‘expr’ 1551s [00:52:31.875] - Field: ‘uuid’ 1551s [00:52:31.876] - Field: ‘seed’ 1551s [00:52:31.876] - Field: ‘version’ 1551s [00:52:31.876] - Field: ‘result’ 1551s [00:52:31.876] - Field: ‘asynchronous’ 1551s [00:52:31.877] - Field: ‘calls’ 1551s [00:52:31.877] - Field: ‘globals’ 1551s [00:52:31.877] - Field: ‘stdout’ 1551s [00:52:31.877] - Field: ‘earlySignal’ 1551s [00:52:31.878] - Field: ‘lazy’ 1551s [00:52:31.878] - Field: ‘state’ 1551s [00:52:31.878] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1551s [00:52:31.879] - Launch lazy future ... 1551s [00:52:31.879] Packages needed by the future expression (n = 0): 1551s [00:52:31.880] Packages needed by future strategies (n = 0): 1551s [00:52:31.881] { 1551s [00:52:31.881] { 1551s [00:52:31.881] { 1551s [00:52:31.881] ...future.startTime <- base::Sys.time() 1551s [00:52:31.881] { 1551s [00:52:31.881] { 1551s [00:52:31.881] { 1551s [00:52:31.881] base::local({ 1551s [00:52:31.881] has_future <- base::requireNamespace("future", 1551s [00:52:31.881] quietly = TRUE) 1551s [00:52:31.881] if (has_future) { 1551s [00:52:31.881] ns <- base::getNamespace("future") 1551s [00:52:31.881] version <- ns[[".package"]][["version"]] 1551s [00:52:31.881] if (is.null(version)) 1551s [00:52:31.881] version <- utils::packageVersion("future") 1551s [00:52:31.881] } 1551s [00:52:31.881] else { 1551s [00:52:31.881] version <- NULL 1551s [00:52:31.881] } 1551s [00:52:31.881] if (!has_future || version < "1.8.0") { 1551s [00:52:31.881] info <- base::c(r_version = base::gsub("R version ", 1551s [00:52:31.881] "", base::R.version$version.string), 1551s [00:52:31.881] platform = base::sprintf("%s (%s-bit)", 1551s [00:52:31.881] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1551s [00:52:31.881] os = base::paste(base::Sys.info()[base::c("sysname", 1551s [00:52:31.881] "release", "version")], collapse = " "), 1551s [00:52:31.881] hostname = base::Sys.info()[["nodename"]]) 1551s [00:52:31.881] info <- base::sprintf("%s: %s", base::names(info), 1551s [00:52:31.881] info) 1551s [00:52:31.881] info <- base::paste(info, collapse = "; ") 1551s [00:52:31.881] if (!has_future) { 1551s [00:52:31.881] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1551s [00:52:31.881] info) 1551s [00:52:31.881] } 1551s [00:52:31.881] else { 1551s [00:52:31.881] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1551s [00:52:31.881] info, version) 1551s [00:52:31.881] } 1551s [00:52:31.881] base::stop(msg) 1551s [00:52:31.881] } 1551s [00:52:31.881] }) 1551s [00:52:31.881] } 1551s [00:52:31.881] options(future.plan = NULL) 1551s [00:52:31.881] Sys.unsetenv("R_FUTURE_PLAN") 1551s [00:52:31.881] future::plan("default", .cleanup = FALSE, .init = FALSE) 1551s [00:52:31.881] } 1551s [00:52:31.881] ...future.workdir <- getwd() 1551s [00:52:31.881] } 1551s [00:52:31.881] ...future.oldOptions <- base::as.list(base::.Options) 1551s [00:52:31.881] ...future.oldEnvVars <- base::Sys.getenv() 1551s [00:52:31.881] } 1551s [00:52:31.881] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1551s [00:52:31.881] future.globals.maxSize = 2097152000, future.globals.method = NULL, 1551s [00:52:31.881] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1551s [00:52:31.881] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1551s [00:52:31.881] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1551s [00:52:31.881] future.stdout.windows.reencode = NULL, width = 80L) 1551s [00:52:31.881] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1551s [00:52:31.881] base::names(...future.oldOptions)) 1551s [00:52:31.881] } 1551s [00:52:31.881] if (FALSE) { 1551s [00:52:31.881] } 1551s [00:52:31.881] else { 1551s [00:52:31.881] if (TRUE) { 1551s [00:52:31.881] ...future.stdout <- base::rawConnection(base::raw(0L), 1551s [00:52:31.881] open = "w") 1551s [00:52:31.881] } 1551s [00:52:31.881] else { 1551s [00:52:31.881] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1551s [00:52:31.881] windows = "NUL", "/dev/null"), open = "w") 1551s [00:52:31.881] } 1551s [00:52:31.881] base::sink(...future.stdout, type = "output", split = FALSE) 1551s [00:52:31.881] base::on.exit(if (!base::is.null(...future.stdout)) { 1551s [00:52:31.881] base::sink(type = "output", split = FALSE) 1551s [00:52:31.881] base::close(...future.stdout) 1551s [00:52:31.881] }, add = TRUE) 1551s [00:52:31.881] } 1551s [00:52:31.881] ...future.frame <- base::sys.nframe() 1551s [00:52:31.881] ...future.conditions <- base::list() 1551s [00:52:31.881] ...future.rng <- base::globalenv()$.Random.seed 1551s [00:52:31.881] if (FALSE) { 1551s [00:52:31.881] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1551s [00:52:31.881] "...future.value", "...future.globalenv.names", ".Random.seed") 1551s [00:52:31.881] } 1551s [00:52:31.881] ...future.result <- base::tryCatch({ 1551s [00:52:31.881] base::withCallingHandlers({ 1551s [00:52:31.881] ...future.value <- base::withVisible(base::local({ 1551s [00:52:31.881] do.call(function(...) { 1551s [00:52:31.881] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1551s [00:52:31.881] if (!identical(...future.globals.maxSize.org, 1551s [00:52:31.881] ...future.globals.maxSize)) { 1551s [00:52:31.881] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1551s [00:52:31.881] on.exit(options(oopts), add = TRUE) 1551s [00:52:31.881] } 1551s [00:52:31.881] { 1551s [00:52:31.881] lapply(seq_along(...future.elements_ii), 1551s [00:52:31.881] FUN = function(jj) { 1551s [00:52:31.881] ...future.X_jj <- ...future.elements_ii[[jj]] 1551s [00:52:31.881] ...future.FUN(...future.X_jj, ...) 1551s [00:52:31.881] }) 1551s [00:52:31.881] } 1551s [00:52:31.881] }, args = future.call.arguments) 1551s [00:52:31.881] })) 1551s [00:52:31.881] future::FutureResult(value = ...future.value$value, 1551s [00:52:31.881] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1551s [00:52:31.881] ...future.rng), globalenv = if (FALSE) 1551s [00:52:31.881] list(added = base::setdiff(base::names(base::.GlobalEnv), 1551s [00:52:31.881] ...future.globalenv.names)) 1551s [00:52:31.881] else NULL, started = ...future.startTime, version = "1.8") 1551s [00:52:31.881] }, condition = base::local({ 1551s [00:52:31.881] c <- base::c 1551s [00:52:31.881] inherits <- base::inherits 1551s [00:52:31.881] invokeRestart <- base::invokeRestart 1551s [00:52:31.881] length <- base::length 1551s [00:52:31.881] list <- base::list 1551s [00:52:31.881] seq.int <- base::seq.int 1551s [00:52:31.881] signalCondition <- base::signalCondition 1551s [00:52:31.881] sys.calls <- base::sys.calls 1551s [00:52:31.881] `[[` <- base::`[[` 1551s [00:52:31.881] `+` <- base::`+` 1551s [00:52:31.881] `<<-` <- base::`<<-` 1551s [00:52:31.881] sysCalls <- function(calls = sys.calls(), from = 1L) { 1551s [00:52:31.881] calls[seq.int(from = from + 12L, to = length(calls) - 1551s [00:52:31.881] 3L)] 1551s [00:52:31.881] } 1551s [00:52:31.881] function(cond) { 1551s [00:52:31.881] is_error <- inherits(cond, "error") 1551s [00:52:31.881] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1551s [00:52:31.881] NULL) 1551s [00:52:31.881] if (is_error) { 1551s [00:52:31.881] sessionInformation <- function() { 1551s [00:52:31.881] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1551s [00:52:31.881] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1551s [00:52:31.881] search = base::search(), system = base::Sys.info()) 1551s [00:52:31.881] } 1551s [00:52:31.881] ...future.conditions[[length(...future.conditions) + 1551s [00:52:31.881] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1551s [00:52:31.881] cond$call), session = sessionInformation(), 1551s [00:52:31.881] timestamp = base::Sys.time(), signaled = 0L) 1551s [00:52:31.881] signalCondition(cond) 1551s [00:52:31.881] } 1551s [00:52:31.881] else if (!ignore && TRUE && inherits(cond, c("condition", 1551s [00:52:31.881] "immediateCondition"))) { 1551s [00:52:31.881] signal <- TRUE && inherits(cond, "immediateCondition") 1551s [00:52:31.881] ...future.conditions[[length(...future.conditions) + 1551s [00:52:31.881] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1551s [00:52:31.881] if (TRUE && !signal) { 1551s [00:52:31.881] muffleCondition <- function (cond, pattern = "^muffle") 1551s [00:52:31.881] { 1551s [00:52:31.881] inherits <- base::inherits 1551s [00:52:31.881] invokeRestart <- base::invokeRestart 1551s [00:52:31.881] is.null <- base::is.null 1551s [00:52:31.881] muffled <- FALSE 1551s [00:52:31.881] if (inherits(cond, "message")) { 1551s [00:52:31.881] muffled <- grepl(pattern, "muffleMessage") 1551s [00:52:31.881] if (muffled) 1551s [00:52:31.881] invokeRestart("muffleMessage") 1551s [00:52:31.881] } 1551s [00:52:31.881] else if (inherits(cond, "warning")) { 1551s [00:52:31.881] muffled <- grepl(pattern, "muffleWarning") 1551s [00:52:31.881] if (muffled) 1551s [00:52:31.881] invokeRestart("muffleWarning") 1551s [00:52:31.881] } 1551s [00:52:31.881] else if (inherits(cond, "condition")) { 1551s [00:52:31.881] if (!is.null(pattern)) { 1551s [00:52:31.881] computeRestarts <- base::computeRestarts 1551s [00:52:31.881] grepl <- base::grepl 1551s [00:52:31.881] restarts <- computeRestarts(cond) 1551s [00:52:31.881] for (restart in restarts) { 1551s [00:52:31.881] name <- restart$name 1551s [00:52:31.881] if (is.null(name)) 1551s [00:52:31.881] next 1551s [00:52:31.881] if (!grepl(pattern, name)) 1551s [00:52:31.881] next 1551s [00:52:31.881] invokeRestart(restart) 1551s [00:52:31.881] muffled <- TRUE 1551s [00:52:31.881] break 1551s [00:52:31.881] } 1551s [00:52:31.881] } 1551s [00:52:31.881] } 1551s [00:52:31.881] invisible(muffled) 1551s [00:52:31.881] } 1551s [00:52:31.881] muffleCondition(cond, pattern = "^muffle") 1551s [00:52:31.881] } 1551s [00:52:31.881] } 1551s [00:52:31.881] else { 1551s [00:52:31.881] if (TRUE) { 1551s [00:52:31.881] muffleCondition <- function (cond, pattern = "^muffle") 1551s [00:52:31.881] { 1551s [00:52:31.881] inherits <- base::inherits 1551s [00:52:31.881] invokeRestart <- base::invokeRestart 1551s [00:52:31.881] is.null <- base::is.null 1551s [00:52:31.881] muffled <- FALSE 1551s [00:52:31.881] if (inherits(cond, "message")) { 1551s [00:52:31.881] muffled <- grepl(pattern, "muffleMessage") 1551s [00:52:31.881] if (muffled) 1551s [00:52:31.881] invokeRestart("muffleMessage") 1551s [00:52:31.881] } 1551s [00:52:31.881] else if (inherits(cond, "warning")) { 1551s [00:52:31.881] muffled <- grepl(pattern, "muffleWarning") 1551s [00:52:31.881] if (muffled) 1551s [00:52:31.881] invokeRestart("muffleWarning") 1551s [00:52:31.881] } 1551s [00:52:31.881] else if (inherits(cond, "condition")) { 1551s [00:52:31.881] if (!is.null(pattern)) { 1551s [00:52:31.881] computeRestarts <- base::computeRestarts 1551s [00:52:31.881] grepl <- base::grepl 1551s [00:52:31.881] restarts <- computeRestarts(cond) 1551s [00:52:31.881] for (restart in restarts) { 1551s [00:52:31.881] name <- restart$name 1551s [00:52:31.881] if (is.null(name)) 1551s [00:52:31.881] next 1551s [00:52:31.881] if (!grepl(pattern, name)) 1551s [00:52:31.881] next 1551s [00:52:31.881] invokeRestart(restart) 1551s [00:52:31.881] muffled <- TRUE 1551s [00:52:31.881] break 1551s [00:52:31.881] } 1551s [00:52:31.881] } 1551s [00:52:31.881] } 1551s [00:52:31.881] invisible(muffled) 1551s [00:52:31.881] } 1551s [00:52:31.881] muffleCondition(cond, pattern = "^muffle") 1551s [00:52:31.881] } 1551s [00:52:31.881] } 1551s [00:52:31.881] } 1551s [00:52:31.881] })) 1551s [00:52:31.881] }, error = function(ex) { 1551s [00:52:31.881] base::structure(base::list(value = NULL, visible = NULL, 1551s [00:52:31.881] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1551s [00:52:31.881] ...future.rng), started = ...future.startTime, 1551s [00:52:31.881] finished = Sys.time(), session_uuid = NA_character_, 1551s [00:52:31.881] version = "1.8"), class = "FutureResult") 1551s [00:52:31.881] }, finally = { 1551s [00:52:31.881] if (!identical(...future.workdir, getwd())) 1551s [00:52:31.881] setwd(...future.workdir) 1551s [00:52:31.881] { 1551s [00:52:31.881] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1551s [00:52:31.881] ...future.oldOptions$nwarnings <- NULL 1551s [00:52:31.881] } 1551s [00:52:31.881] base::options(...future.oldOptions) 1551s [00:52:31.881] if (.Platform$OS.type == "windows") { 1551s [00:52:31.881] old_names <- names(...future.oldEnvVars) 1551s [00:52:31.881] envs <- base::Sys.getenv() 1551s [00:52:31.881] names <- names(envs) 1551s [00:52:31.881] common <- intersect(names, old_names) 1551s [00:52:31.881] added <- setdiff(names, old_names) 1551s [00:52:31.881] removed <- setdiff(old_names, names) 1551s [00:52:31.881] changed <- common[...future.oldEnvVars[common] != 1551s [00:52:31.881] envs[common]] 1551s [00:52:31.881] NAMES <- toupper(changed) 1551s [00:52:31.881] args <- list() 1551s [00:52:31.881] for (kk in seq_along(NAMES)) { 1551s [00:52:31.881] name <- changed[[kk]] 1551s [00:52:31.881] NAME <- NAMES[[kk]] 1551s [00:52:31.881] if (name != NAME && is.element(NAME, old_names)) 1551s [00:52:31.881] next 1551s [00:52:31.881] args[[name]] <- ...future.oldEnvVars[[name]] 1551s [00:52:31.881] } 1551s [00:52:31.881] NAMES <- toupper(added) 1551s [00:52:31.881] for (kk in seq_along(NAMES)) { 1551s [00:52:31.881] name <- added[[kk]] 1551s [00:52:31.881] NAME <- NAMES[[kk]] 1551s [00:52:31.881] if (name != NAME && is.element(NAME, old_names)) 1551s [00:52:31.881] next 1551s [00:52:31.881] args[[name]] <- "" 1551s [00:52:31.881] } 1551s [00:52:31.881] NAMES <- toupper(removed) 1551s [00:52:31.881] for (kk in seq_along(NAMES)) { 1551s [00:52:31.881] name <- removed[[kk]] 1551s [00:52:31.881] NAME <- NAMES[[kk]] 1551s [00:52:31.881] if (name != NAME && is.element(NAME, old_names)) 1551s [00:52:31.881] next 1551s [00:52:31.881] args[[name]] <- ...future.oldEnvVars[[name]] 1551s [00:52:31.881] } 1551s [00:52:31.881] if (length(args) > 0) 1551s [00:52:31.881] base::do.call(base::Sys.setenv, args = args) 1551s [00:52:31.881] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1551s [00:52:31.881] } 1551s [00:52:31.881] else { 1551s [00:52:31.881] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1551s [00:52:31.881] } 1551s [00:52:31.881] { 1551s [00:52:31.881] if (base::length(...future.futureOptionsAdded) > 1551s [00:52:31.881] 0L) { 1551s [00:52:31.881] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1551s [00:52:31.881] base::names(opts) <- ...future.futureOptionsAdded 1551s [00:52:31.881] base::options(opts) 1551s [00:52:31.881] } 1551s [00:52:31.881] { 1551s [00:52:31.881] { 1551s [00:52:31.881] NULL 1551s [00:52:31.881] RNGkind("Mersenne-Twister") 1551s [00:52:31.881] base::rm(list = ".Random.seed", envir = base::globalenv(), 1551s [00:52:31.881] inherits = FALSE) 1551s [00:52:31.881] } 1551s [00:52:31.881] options(future.plan = NULL) 1551s [00:52:31.881] if (is.na(NA_character_)) 1551s [00:52:31.881] Sys.unsetenv("R_FUTURE_PLAN") 1551s [00:52:31.881] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1551s [00:52:31.881] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1551s [00:52:31.881] envir = parent.frame()) 1551s [00:52:31.881] { 1551s [00:52:31.881] default_workers <- missing(workers) 1551s [00:52:31.881] if (is.function(workers)) 1551s [00:52:31.881] workers <- workers() 1551s [00:52:31.881] workers <- structure(as.integer(workers), 1551s [00:52:31.881] class = class(workers)) 1551s [00:52:31.881] stop_if_not(is.finite(workers), workers >= 1551s [00:52:31.881] 1L) 1551s [00:52:31.881] if ((workers == 1L && !inherits(workers, 1551s [00:52:31.881] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1551s [00:52:31.881] if (default_workers) 1551s [00:52:31.881] supportsMulticore(warn = TRUE) 1551s [00:52:31.881] return(sequential(..., envir = envir)) 1551s [00:52:31.881] } 1551s [00:52:31.881] oopts <- options(mc.cores = workers) 1551s [00:52:31.881] on.exit(options(oopts)) 1551s [00:52:31.881] future <- MulticoreFuture(..., workers = workers, 1551s [00:52:31.881] envir = envir) 1551s [00:52:31.881] if (!future$lazy) 1551s [00:52:31.881] future <- run(future) 1551s [00:52:31.881] invisible(future) 1551s [00:52:31.881] }), .cleanup = FALSE, .init = FALSE) 1551s [00:52:31.881] } 1551s [00:52:31.881] } 1551s [00:52:31.881] } 1551s [00:52:31.881] }) 1551s [00:52:31.881] if (TRUE) { 1551s [00:52:31.881] base::sink(type = "output", split = FALSE) 1551s [00:52:31.881] if (TRUE) { 1551s [00:52:31.881] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1551s [00:52:31.881] } 1551s [00:52:31.881] else { 1551s [00:52:31.881] ...future.result["stdout"] <- base::list(NULL) 1551s [00:52:31.881] } 1551s [00:52:31.881] base::close(...future.stdout) 1551s [00:52:31.881] ...future.stdout <- NULL 1551s [00:52:31.881] } 1551s [00:52:31.881] ...future.result$conditions <- ...future.conditions 1551s [00:52:31.881] ...future.result$finished <- base::Sys.time() 1551s [00:52:31.881] ...future.result 1551s [00:52:31.881] } 1551s [00:52:31.889] assign_globals() ... 1551s [00:52:31.889] List of 5 1551s [00:52:31.889] $ ...future.FUN :function (mode = "logical", length = 0L) 1551s [00:52:31.889] $ future.call.arguments :List of 1 1551s [00:52:31.889] ..$ length: int 2 1551s [00:52:31.889] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1551s [00:52:31.889] $ ...future.elements_ii :List of 1 1551s [00:52:31.889] ..$ c: chr "list" 1551s [00:52:31.889] $ ...future.seeds_ii : NULL 1551s [00:52:31.889] $ ...future.globals.maxSize: NULL 1551s [00:52:31.889] - attr(*, "where")=List of 5 1551s [00:52:31.889] ..$ ...future.FUN : 1551s [00:52:31.889] ..$ future.call.arguments : 1551s [00:52:31.889] ..$ ...future.elements_ii : 1551s [00:52:31.889] ..$ ...future.seeds_ii : 1551s [00:52:31.889] ..$ ...future.globals.maxSize: 1551s [00:52:31.889] - attr(*, "resolved")= logi FALSE 1551s [00:52:31.889] - attr(*, "total_size")= num 2240 1551s [00:52:31.889] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1551s [00:52:31.889] - attr(*, "already-done")= logi TRUE 1551s [00:52:31.898] - copied ‘...future.FUN’ to environment 1551s [00:52:31.898] - copied ‘future.call.arguments’ to environment 1551s [00:52:31.899] - copied ‘...future.elements_ii’ to environment 1551s [00:52:31.899] - copied ‘...future.seeds_ii’ to environment 1551s [00:52:31.899] - copied ‘...future.globals.maxSize’ to environment 1551s [00:52:31.899] assign_globals() ... done 1551s [00:52:31.899] plan(): Setting new future strategy stack: 1551s [00:52:31.899] List of future strategies: 1551s [00:52:31.899] 1. sequential: 1551s [00:52:31.899] - args: function (..., envir = parent.frame()) 1551s [00:52:31.899] - tweaked: FALSE 1551s [00:52:31.899] - call: NULL 1551s [00:52:31.900] plan(): nbrOfWorkers() = 1 1551s [00:52:31.902] plan(): Setting new future strategy stack: 1551s [00:52:31.902] List of future strategies: 1551s [00:52:31.902] 1. multicore: 1551s [00:52:31.902] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1551s [00:52:31.902] - tweaked: FALSE 1551s [00:52:31.902] - call: plan(strategy) 1551s [00:52:31.909] plan(): nbrOfWorkers() = 1 1551s [00:52:31.909] SequentialFuture started (and completed) 1551s [00:52:31.909] - Launch lazy future ... done 1551s [00:52:31.910] run() for ‘SequentialFuture’ ... done 1551s [00:52:31.910] Created future: 1551s [00:52:31.910] SequentialFuture: 1551s [00:52:31.910] Label: ‘future_lapply-4’ 1551s [00:52:31.910] Expression: 1551s [00:52:31.910] { 1551s [00:52:31.910] do.call(function(...) { 1551s [00:52:31.910] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1551s [00:52:31.910] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1551s [00:52:31.910] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1551s [00:52:31.910] on.exit(options(oopts), add = TRUE) 1551s [00:52:31.910] } 1551s [00:52:31.910] { 1551s [00:52:31.910] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1551s [00:52:31.910] ...future.X_jj <- ...future.elements_ii[[jj]] 1551s [00:52:31.910] ...future.FUN(...future.X_jj, ...) 1551s [00:52:31.910] }) 1551s [00:52:31.910] } 1551s [00:52:31.910] }, args = future.call.arguments) 1551s [00:52:31.910] } 1551s [00:52:31.910] Lazy evaluation: FALSE 1551s [00:52:31.910] Asynchronous evaluation: FALSE 1551s [00:52:31.910] Local evaluation: TRUE 1551s [00:52:31.910] Environment: R_GlobalEnv 1551s [00:52:31.910] Capture standard output: TRUE 1551s [00:52:31.910] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1551s [00:52:31.910] Globals: 5 objects totaling 2.30 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1551s [00:52:31.910] Packages: 1551s [00:52:31.910] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1551s [00:52:31.910] Resolved: TRUE 1551s [00:52:31.910] Value: 0 bytes of class ‘list’ 1551s [00:52:31.910] Early signaling: FALSE 1551s [00:52:31.910] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1551s [00:52:31.910] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1551s [00:52:31.913] Chunk #4 of 4 ... DONE 1551s [00:52:31.913] Launching 4 futures (chunks) ... DONE 1551s [00:52:31.913] Resolving 4 futures (chunks) ... 1551s [00:52:31.913] resolve() on list ... 1551s [00:52:31.913] recursive: 0 1551s [00:52:31.913] length: 4 1551s [00:52:31.914] 1551s [00:52:31.914] resolved() for ‘SequentialFuture’ ... 1551s [00:52:31.914] - state: ‘finished’ 1551s [00:52:31.914] - run: TRUE 1551s [00:52:31.914] - result: ‘FutureResult’ 1551s [00:52:31.914] resolved() for ‘SequentialFuture’ ... done 1551s [00:52:31.915] Future #1 1551s [00:52:31.915] signalConditionsASAP(SequentialFuture, pos=1) ... 1551s [00:52:31.915] - nx: 4 1551s [00:52:31.915] - relay: TRUE 1551s [00:52:31.916] - stdout: TRUE 1551s [00:52:31.916] - signal: TRUE 1551s [00:52:31.916] - resignal: FALSE 1551s [00:52:31.916] - force: TRUE 1551s [00:52:31.916] - relayed: [n=4] FALSE, FALSE, FALSE, FALSE 1551s [00:52:31.917] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE 1551s [00:52:31.917] - until=1 1551s [00:52:31.917] - relaying element #1 1551s [00:52:31.917] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE 1551s [00:52:31.917] - queued futures: [n=4] TRUE, FALSE, FALSE, FALSE 1551s [00:52:31.918] signalConditionsASAP(SequentialFuture, pos=1) ... done 1551s [00:52:31.918] length: 3 (resolved future 1) 1551s [00:52:31.918] resolved() for ‘SequentialFuture’ ... 1551s [00:52:31.918] - state: ‘finished’ 1551s [00:52:31.918] - run: TRUE 1551s [00:52:31.918] - result: ‘FutureResult’ 1551s [00:52:31.919] resolved() for ‘SequentialFuture’ ... done 1551s [00:52:31.919] Future #2 1551s [00:52:31.919] signalConditionsASAP(SequentialFuture, pos=2) ... 1551s [00:52:31.919] - nx: 4 1551s [00:52:31.919] - relay: TRUE 1551s [00:52:31.923] - stdout: TRUE 1551s [00:52:31.923] - signal: TRUE 1551s [00:52:31.923] - resignal: FALSE 1551s [00:52:31.923] - force: TRUE 1551s [00:52:31.923] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE 1551s [00:52:31.924] - queued futures: [n=4] TRUE, FALSE, FALSE, FALSE 1551s [00:52:31.924] - until=2 1551s [00:52:31.924] - relaying element #2 1551s [00:52:31.925] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE 1551s [00:52:31.925] - queued futures: [n=4] TRUE, TRUE, FALSE, FALSE 1551s [00:52:31.925] signalConditionsASAP(SequentialFuture, pos=2) ... done 1551s [00:52:31.925] length: 2 (resolved future 2) 1551s [00:52:31.925] resolved() for ‘SequentialFuture’ ... 1551s [00:52:31.926] - state: ‘finished’ 1551s [00:52:31.926] - run: TRUE 1551s [00:52:31.926] - result: ‘FutureResult’ 1551s [00:52:31.926] resolved() for ‘SequentialFuture’ ... done 1551s [00:52:31.926] Future #3 1551s [00:52:31.926] signalConditionsASAP(SequentialFuture, pos=3) ... 1551s [00:52:31.927] - nx: 4 1551s [00:52:31.927] - relay: TRUE 1551s [00:52:31.927] - stdout: TRUE 1551s [00:52:31.927] - signal: TRUE 1551s [00:52:31.927] - resignal: FALSE 1551s [00:52:31.927] - force: TRUE 1551s [00:52:31.927] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE 1551s [00:52:31.928] - queued futures: [n=4] TRUE, TRUE, FALSE, FALSE 1551s [00:52:31.928] - until=3 1551s [00:52:31.928] - relaying element #3 1551s [00:52:31.928] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE 1551s [00:52:31.928] - queued futures: [n=4] TRUE, TRUE, TRUE, FALSE 1551s [00:52:31.928] signalConditionsASAP(SequentialFuture, pos=3) ... done 1551s [00:52:31.929] length: 1 (resolved future 3) 1551s [00:52:31.929] resolved() for ‘SequentialFuture’ ... 1551s [00:52:31.929] - state: ‘finished’ 1551s [00:52:31.929] - run: TRUE 1551s [00:52:31.929] - result: ‘FutureResult’ 1551s [00:52:31.929] resolved() for ‘SequentialFuture’ ... done 1551s [00:52:31.930] Future #4 1551s [00:52:31.930] signalConditionsASAP(SequentialFuture, pos=4) ... 1551s [00:52:31.930] - nx: 4 1551s [00:52:31.930] - relay: TRUE 1551s [00:52:31.931] - stdout: TRUE 1551s [00:52:31.931] - signal: TRUE 1551s [00:52:31.931] - resignal: FALSE 1551s [00:52:31.932] - force: TRUE 1551s [00:52:31.932] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE 1551s [00:52:31.932] - queued futures: [n=4] TRUE, TRUE, TRUE, FALSE 1551s [00:52:31.932] - until=4 1551s [00:52:31.933] - relaying element #4 1551s [00:52:31.933] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE 1551s [00:52:31.933] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE 1551s [00:52:31.933] signalConditionsASAP(SequentialFuture, pos=4) ... done 1551s [00:52:31.933] length: 0 (resolved future 4) 1551s [00:52:31.934] Relaying remaining futures 1551s [00:52:31.934] signalConditionsASAP(NULL, pos=0) ... 1551s [00:52:31.934] - nx: 4 1551s [00:52:31.935] - relay: TRUE 1551s [00:52:31.935] - stdout: TRUE 1551s [00:52:31.935] - signal: TRUE 1551s [00:52:31.935] - resignal: FALSE 1551s [00:52:31.935] - force: TRUE 1551s [00:52:31.936] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE 1551s [00:52:31.936] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE 1551s - flush all 1551s [00:52:31.936] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE 1551s [00:52:31.937] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE 1551s [00:52:31.937] signalConditionsASAP(NULL, pos=0) ... done 1551s [00:52:31.937] resolve() on list ... DONE 1551s [00:52:31.938] - Number of value chunks collected: 4 1551s [00:52:31.938] Resolving 4 futures (chunks) ... DONE 1551s [00:52:31.939] Reducing values from 4 chunks ... 1551s [00:52:31.939] - Number of values collected after concatenation: 4 1551s [00:52:31.940] - Number of values expected: 4 1551s [00:52:31.941] Reducing values from 4 chunks ... DONE 1551s [00:52:31.941] future_lapply() ... DONE 1551s List of 1 1551s $ y:List of 4 1551s ..$ a: int [1:2] 0 0 1551s ..$ b: num [1:2] 0 0 1551s ..$ c: chr [1:2] "" "" 1551s ..$ c:List of 2- future_lapply(x, FUN = base::vector, ...) ... 1551s 1551s .. ..$ : NULL 1551s .. ..$ : NULL 1551s [00:52:31.949] future_lapply() ... 1551s [00:52:31.954] Number of chunks: 4 1551s [00:52:31.954] getGlobalsAndPackagesXApply() ... 1551s [00:52:31.954] - future.globals: TRUE 1551s [00:52:31.954] getGlobalsAndPackages() ... 1551s [00:52:31.954] Searching for globals... 1551s [00:52:31.956] - globals found: [2] ‘FUN’, ‘.Internal’ 1551s [00:52:31.956] Searching for globals ... DONE 1551s [00:52:31.956] Resolving globals: FALSE 1551s [00:52:31.957] The total size of the 1 globals is 2.13 KiB (2184 bytes) 1551s [00:52:31.957] The total size of the 1 globals exported for future expression (‘FUN(length = 2L)’) is 2.13 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (2.13 KiB of class ‘function’) 1551s [00:52:31.957] - globals: [1] ‘FUN’ 1551s [00:52:31.958] 1551s [00:52:31.958] getGlobalsAndPackages() ... DONE 1551s [00:52:31.958] - globals found/used: [n=1] ‘FUN’ 1551s [00:52:31.959] - needed namespaces: [n=0] 1551s [00:52:31.959] Finding globals ... DONE 1551s [00:52:31.959] - use_args: TRUE 1551s [00:52:31.959] - Getting '...' globals ... 1551s [00:52:31.960] resolve() on list ... 1551s [00:52:31.960] recursive: 0 1551s [00:52:31.960] length: 1 1551s [00:52:31.960] elements: ‘...’ 1551s [00:52:31.961] length: 0 (resolved future 1) 1551s [00:52:31.961] resolve() on list ... DONE 1551s [00:52:31.962] - '...' content: [n=1] ‘length’ 1551s [00:52:31.962] List of 1 1551s [00:52:31.962] $ ...:List of 1 1551s [00:52:31.962] ..$ length: int 2 1552s [00:52:31.962] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1552s [00:52:31.962] - attr(*, "where")=List of 1 1552s [00:52:31.962] ..$ ...: 1552s [00:52:31.962] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1552s [00:52:31.962] - attr(*, "resolved")= logi TRUE 1552s [00:52:31.962] - attr(*, "total_size")= num NA 1552s [00:52:31.968] - Getting '...' globals ... DONE 1552s [00:52:31.971] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1552s [00:52:31.972] List of 2 1552s [00:52:31.972] $ ...future.FUN:function (mode = "logical", length = 0L) 1552s [00:52:31.972] $ ... :List of 1 1552s [00:52:31.972] ..$ length: int 2 1552s [00:52:31.972] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1552s [00:52:31.972] - attr(*, "where")=List of 2 1552s [00:52:31.972] ..$ ...future.FUN: 1552s [00:52:31.972] ..$ ... : 1552s [00:52:31.972] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1552s [00:52:31.972] - attr(*, "resolved")= logi FALSE 1552s [00:52:31.972] - attr(*, "total_size")= num 2240 1552s [00:52:31.982] Packages to be attached in all futures: [n=0] 1552s [00:52:31.982] getGlobalsAndPackagesXApply() ... DONE 1552s [00:52:31.982] Number of futures (= number of chunks): 4 1552s [00:52:31.983] Launching 4 futures (chunks) ... 1552s [00:52:31.983] Chunk #1 of 4 ... 1552s [00:52:31.983] - Finding globals in 'X' for chunk #1 ... 1552s [00:52:31.983] getGlobalsAndPackages() ... 1552s [00:52:31.983] Searching for globals... 1552s [00:52:31.984] 1552s [00:52:31.984] Searching for globals ... DONE 1552s [00:52:31.984] - globals: [0] 1552s [00:52:31.984] getGlobalsAndPackages() ... DONE 1552s [00:52:31.984] + additional globals found: [n=0] 1552s [00:52:31.984] + additional namespaces needed: [n=0] 1552s [00:52:31.984] - Finding globals in 'X' for chunk #1 ... DONE 1552s [00:52:31.984] - Adjusted option 'future.globals.maxSize': 524288000 -> 4 * 524288000 = 2097152000 (bytes) 1552s [00:52:31.985] - seeds: 1552s [00:52:31.985] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1552s [00:52:31.985] getGlobalsAndPackages() ... 1552s [00:52:31.985] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1552s [00:52:31.985] Resolving globals: FALSE 1552s [00:52:31.985] Tweak future expression to call with '...' arguments ... 1552s [00:52:31.985] { 1552s [00:52:31.985] do.call(function(...) { 1552s [00:52:31.985] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1552s [00:52:31.985] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1552s [00:52:31.985] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1552s [00:52:31.985] on.exit(options(oopts), add = TRUE) 1552s [00:52:31.985] } 1552s [00:52:31.985] { 1552s [00:52:31.985] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1552s [00:52:31.985] ...future.X_jj <- ...future.elements_ii[[jj]] 1552s [00:52:31.985] ...future.FUN(...future.X_jj, ...) 1552s [00:52:31.985] }) 1552s [00:52:31.985] } 1552s [00:52:31.985] }, args = future.call.arguments) 1552s [00:52:31.985] } 1552s [00:52:31.986] Tweak future expression to call with '...' arguments ... DONE 1552s [00:52:31.986] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1552s [00:52:31.986] 1552s [00:52:31.986] getGlobalsAndPackages() ... DONE 1552s [00:52:31.987] run() for ‘Future’ ... 1552s [00:52:31.987] - state: ‘created’ 1552s [00:52:31.987] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1552s [00:52:31.991] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1552s [00:52:31.991] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1552s [00:52:31.991] - Field: ‘label’ 1552s [00:52:31.991] - Field: ‘local’ 1552s [00:52:31.991] - Field: ‘owner’ 1552s [00:52:31.991] - Field: ‘envir’ 1552s [00:52:31.992] - Field: ‘packages’ 1552s [00:52:31.992] - Field: ‘gc’ 1552s [00:52:31.992] - Field: ‘conditions’ 1552s [00:52:31.992] - Field: ‘expr’ 1552s [00:52:31.992] - Field: ‘uuid’ 1552s [00:52:31.992] - Field: ‘seed’ 1552s [00:52:31.993] - Field: ‘version’ 1552s [00:52:31.993] - Field: ‘result’ 1552s [00:52:31.993] - Field: ‘asynchronous’ 1552s [00:52:31.993] - Field: ‘calls’ 1552s [00:52:31.993] - Field: ‘globals’ 1552s [00:52:31.993] - Field: ‘stdout’ 1552s [00:52:31.994] - Field: ‘earlySignal’ 1552s [00:52:31.994] - Field: ‘lazy’ 1552s [00:52:31.994] - Field: ‘state’ 1552s [00:52:31.994] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1552s [00:52:31.995] - Launch lazy future ... 1552s [00:52:31.995] Packages needed by the future expression (n = 0): 1552s [00:52:31.995] Packages needed by future strategies (n = 0): 1552s [00:52:31.996] { 1552s [00:52:31.996] { 1552s [00:52:31.996] { 1552s [00:52:31.996] ...future.startTime <- base::Sys.time() 1552s [00:52:31.996] { 1552s [00:52:31.996] { 1552s [00:52:31.996] { 1552s [00:52:31.996] base::local({ 1552s [00:52:31.996] has_future <- base::requireNamespace("future", 1552s [00:52:31.996] quietly = TRUE) 1552s [00:52:31.996] if (has_future) { 1552s [00:52:31.996] ns <- base::getNamespace("future") 1552s [00:52:31.996] version <- ns[[".package"]][["version"]] 1552s [00:52:31.996] if (is.null(version)) 1552s [00:52:31.996] version <- utils::packageVersion("future") 1552s [00:52:31.996] } 1552s [00:52:31.996] else { 1552s [00:52:31.996] version <- NULL 1552s [00:52:31.996] } 1552s [00:52:31.996] if (!has_future || version < "1.8.0") { 1552s [00:52:31.996] info <- base::c(r_version = base::gsub("R version ", 1552s [00:52:31.996] "", base::R.version$version.string), 1552s [00:52:31.996] platform = base::sprintf("%s (%s-bit)", 1552s [00:52:31.996] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1552s [00:52:31.996] os = base::paste(base::Sys.info()[base::c("sysname", 1552s [00:52:31.996] "release", "version")], collapse = " "), 1552s [00:52:31.996] hostname = base::Sys.info()[["nodename"]]) 1552s [00:52:31.996] info <- base::sprintf("%s: %s", base::names(info), 1552s [00:52:31.996] info) 1552s [00:52:31.996] info <- base::paste(info, collapse = "; ") 1552s [00:52:31.996] if (!has_future) { 1552s [00:52:31.996] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1552s [00:52:31.996] info) 1552s [00:52:31.996] } 1552s [00:52:31.996] else { 1552s [00:52:31.996] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1552s [00:52:31.996] info, version) 1552s [00:52:31.996] } 1552s [00:52:31.996] base::stop(msg) 1552s [00:52:31.996] } 1552s [00:52:31.996] }) 1552s [00:52:31.996] } 1552s [00:52:31.996] options(future.plan = NULL) 1552s [00:52:31.996] Sys.unsetenv("R_FUTURE_PLAN") 1552s [00:52:31.996] future::plan("default", .cleanup = FALSE, .init = FALSE) 1552s [00:52:31.996] } 1552s [00:52:31.996] ...future.workdir <- getwd() 1552s [00:52:31.996] } 1552s [00:52:31.996] ...future.oldOptions <- base::as.list(base::.Options) 1552s [00:52:31.996] ...future.oldEnvVars <- base::Sys.getenv() 1552s [00:52:31.996] } 1552s [00:52:31.996] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1552s [00:52:31.996] future.globals.maxSize = 2097152000, future.globals.method = NULL, 1552s [00:52:31.996] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1552s [00:52:31.996] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1552s [00:52:31.996] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1552s [00:52:31.996] future.stdout.windows.reencode = NULL, width = 80L) 1552s [00:52:31.996] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1552s [00:52:31.996] base::names(...future.oldOptions)) 1552s [00:52:31.996] } 1552s [00:52:31.996] if (FALSE) { 1552s [00:52:31.996] } 1552s [00:52:31.996] else { 1552s [00:52:31.996] if (TRUE) { 1552s [00:52:31.996] ...future.stdout <- base::rawConnection(base::raw(0L), 1552s [00:52:31.996] open = "w") 1552s [00:52:31.996] } 1552s [00:52:31.996] else { 1552s [00:52:31.996] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1552s [00:52:31.996] windows = "NUL", "/dev/null"), open = "w") 1552s [00:52:31.996] } 1552s [00:52:31.996] base::sink(...future.stdout, type = "output", split = FALSE) 1552s [00:52:31.996] base::on.exit(if (!base::is.null(...future.stdout)) { 1552s [00:52:31.996] base::sink(type = "output", split = FALSE) 1552s [00:52:31.996] base::close(...future.stdout) 1552s [00:52:31.996] }, add = TRUE) 1552s [00:52:31.996] } 1552s [00:52:31.996] ...future.frame <- base::sys.nframe() 1552s [00:52:31.996] ...future.conditions <- base::list() 1552s [00:52:31.996] ...future.rng <- base::globalenv()$.Random.seed 1552s [00:52:31.996] if (FALSE) { 1552s [00:52:31.996] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1552s [00:52:31.996] "...future.value", "...future.globalenv.names", ".Random.seed") 1552s [00:52:31.996] } 1552s [00:52:31.996] ...future.result <- base::tryCatch({ 1552s [00:52:31.996] base::withCallingHandlers({ 1552s [00:52:31.996] ...future.value <- base::withVisible(base::local({ 1552s [00:52:31.996] do.call(function(...) { 1552s [00:52:31.996] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1552s [00:52:31.996] if (!identical(...future.globals.maxSize.org, 1552s [00:52:31.996] ...future.globals.maxSize)) { 1552s [00:52:31.996] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1552s [00:52:31.996] on.exit(options(oopts), add = TRUE) 1552s [00:52:31.996] } 1552s [00:52:31.996] { 1552s [00:52:31.996] lapply(seq_along(...future.elements_ii), 1552s [00:52:31.996] FUN = function(jj) { 1552s [00:52:31.996] ...future.X_jj <- ...future.elements_ii[[jj]] 1552s [00:52:31.996] ...future.FUN(...future.X_jj, ...) 1552s [00:52:31.996] }) 1552s [00:52:31.996] } 1552s [00:52:31.996] }, args = future.call.arguments) 1552s [00:52:31.996] })) 1552s [00:52:31.996] future::FutureResult(value = ...future.value$value, 1552s [00:52:31.996] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1552s [00:52:31.996] ...future.rng), globalenv = if (FALSE) 1552s [00:52:31.996] list(added = base::setdiff(base::names(base::.GlobalEnv), 1552s [00:52:31.996] ...future.globalenv.names)) 1552s [00:52:31.996] else NULL, started = ...future.startTime, version = "1.8") 1552s [00:52:31.996] }, condition = base::local({ 1552s [00:52:31.996] c <- base::c 1552s [00:52:31.996] inherits <- base::inherits 1552s [00:52:31.996] invokeRestart <- base::invokeRestart 1552s [00:52:31.996] length <- base::length 1552s [00:52:31.996] list <- base::list 1552s [00:52:31.996] seq.int <- base::seq.int 1552s [00:52:31.996] signalCondition <- base::signalCondition 1552s [00:52:31.996] sys.calls <- base::sys.calls 1552s [00:52:31.996] `[[` <- base::`[[` 1552s [00:52:31.996] `+` <- base::`+` 1552s [00:52:31.996] `<<-` <- base::`<<-` 1552s [00:52:31.996] sysCalls <- function(calls = sys.calls(), from = 1L) { 1552s [00:52:31.996] calls[seq.int(from = from + 12L, to = length(calls) - 1552s [00:52:31.996] 3L)] 1552s [00:52:31.996] } 1552s [00:52:31.996] function(cond) { 1552s [00:52:31.996] is_error <- inherits(cond, "error") 1552s [00:52:31.996] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1552s [00:52:31.996] NULL) 1552s [00:52:31.996] if (is_error) { 1552s [00:52:31.996] sessionInformation <- function() { 1552s [00:52:31.996] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1552s [00:52:31.996] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1552s [00:52:31.996] search = base::search(), system = base::Sys.info()) 1552s [00:52:31.996] } 1552s [00:52:31.996] ...future.conditions[[length(...future.conditions) + 1552s [00:52:31.996] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1552s [00:52:31.996] cond$call), session = sessionInformation(), 1552s [00:52:31.996] timestamp = base::Sys.time(), signaled = 0L) 1552s [00:52:31.996] signalCondition(cond) 1552s [00:52:31.996] } 1552s [00:52:31.996] else if (!ignore && TRUE && inherits(cond, c("condition", 1552s [00:52:31.996] "immediateCondition"))) { 1552s [00:52:31.996] signal <- TRUE && inherits(cond, "immediateCondition") 1552s [00:52:31.996] ...future.conditions[[length(...future.conditions) + 1552s [00:52:31.996] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1552s [00:52:31.996] if (TRUE && !signal) { 1552s [00:52:31.996] muffleCondition <- function (cond, pattern = "^muffle") 1552s [00:52:31.996] { 1552s [00:52:31.996] inherits <- base::inherits 1552s [00:52:31.996] invokeRestart <- base::invokeRestart 1552s [00:52:31.996] is.null <- base::is.null 1552s [00:52:31.996] muffled <- FALSE 1552s [00:52:31.996] if (inherits(cond, "message")) { 1552s [00:52:31.996] muffled <- grepl(pattern, "muffleMessage") 1552s [00:52:31.996] if (muffled) 1552s [00:52:31.996] invokeRestart("muffleMessage") 1552s [00:52:31.996] } 1552s [00:52:31.996] else if (inherits(cond, "warning")) { 1552s [00:52:31.996] muffled <- grepl(pattern, "muffleWarning") 1552s [00:52:31.996] if (muffled) 1552s [00:52:31.996] invokeRestart("muffleWarning") 1552s [00:52:31.996] } 1552s [00:52:31.996] else if (inherits(cond, "condition")) { 1552s [00:52:31.996] if (!is.null(pattern)) { 1552s [00:52:31.996] computeRestarts <- base::computeRestarts 1552s [00:52:31.996] grepl <- base::grepl 1552s [00:52:31.996] restarts <- computeRestarts(cond) 1552s [00:52:31.996] for (restart in restarts) { 1552s [00:52:31.996] name <- restart$name 1552s [00:52:31.996] if (is.null(name)) 1552s [00:52:31.996] next 1552s [00:52:31.996] if (!grepl(pattern, name)) 1552s [00:52:31.996] next 1552s [00:52:31.996] invokeRestart(restart) 1552s [00:52:31.996] muffled <- TRUE 1552s [00:52:31.996] break 1552s [00:52:31.996] } 1552s [00:52:31.996] } 1552s [00:52:31.996] } 1552s [00:52:31.996] invisible(muffled) 1552s [00:52:31.996] } 1552s [00:52:31.996] muffleCondition(cond, pattern = "^muffle") 1552s [00:52:31.996] } 1552s [00:52:31.996] } 1552s [00:52:31.996] else { 1552s [00:52:31.996] if (TRUE) { 1552s [00:52:31.996] muffleCondition <- function (cond, pattern = "^muffle") 1552s [00:52:31.996] { 1552s [00:52:31.996] inherits <- base::inherits 1552s [00:52:31.996] invokeRestart <- base::invokeRestart 1552s [00:52:31.996] is.null <- base::is.null 1552s [00:52:31.996] muffled <- FALSE 1552s [00:52:31.996] if (inherits(cond, "message")) { 1552s [00:52:31.996] muffled <- grepl(pattern, "muffleMessage") 1552s [00:52:31.996] if (muffled) 1552s [00:52:31.996] invokeRestart("muffleMessage") 1552s [00:52:31.996] } 1552s [00:52:31.996] else if (inherits(cond, "warning")) { 1552s [00:52:31.996] muffled <- grepl(pattern, "muffleWarning") 1552s [00:52:31.996] if (muffled) 1552s [00:52:31.996] invokeRestart("muffleWarning") 1552s [00:52:31.996] } 1552s [00:52:31.996] else if (inherits(cond, "condition")) { 1552s [00:52:31.996] if (!is.null(pattern)) { 1552s [00:52:31.996] computeRestarts <- base::computeRestarts 1552s [00:52:31.996] grepl <- base::grepl 1552s [00:52:31.996] restarts <- computeRestarts(cond) 1552s [00:52:31.996] for (restart in restarts) { 1552s [00:52:31.996] name <- restart$name 1552s [00:52:31.996] if (is.null(name)) 1552s [00:52:31.996] next 1552s [00:52:31.996] if (!grepl(pattern, name)) 1552s [00:52:31.996] next 1552s [00:52:31.996] invokeRestart(restart) 1552s [00:52:31.996] muffled <- TRUE 1552s [00:52:31.996] break 1552s [00:52:31.996] } 1552s [00:52:31.996] } 1552s [00:52:31.996] } 1552s [00:52:31.996] invisible(muffled) 1552s [00:52:31.996] } 1552s [00:52:31.996] muffleCondition(cond, pattern = "^muffle") 1552s [00:52:31.996] } 1552s [00:52:31.996] } 1552s [00:52:31.996] } 1552s [00:52:31.996] })) 1552s [00:52:31.996] }, error = function(ex) { 1552s [00:52:31.996] base::structure(base::list(value = NULL, visible = NULL, 1552s [00:52:31.996] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1552s [00:52:31.996] ...future.rng), started = ...future.startTime, 1552s [00:52:31.996] finished = Sys.time(), session_uuid = NA_character_, 1552s [00:52:31.996] version = "1.8"), class = "FutureResult") 1552s [00:52:31.996] }, finally = { 1552s [00:52:31.996] if (!identical(...future.workdir, getwd())) 1552s [00:52:31.996] setwd(...future.workdir) 1552s [00:52:31.996] { 1552s [00:52:31.996] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1552s [00:52:31.996] ...future.oldOptions$nwarnings <- NULL 1552s [00:52:31.996] } 1552s [00:52:31.996] base::options(...future.oldOptions) 1552s [00:52:31.996] if (.Platform$OS.type == "windows") { 1552s [00:52:31.996] old_names <- names(...future.oldEnvVars) 1552s [00:52:31.996] envs <- base::Sys.getenv() 1552s [00:52:31.996] names <- names(envs) 1552s [00:52:31.996] common <- intersect(names, old_names) 1552s [00:52:31.996] added <- setdiff(names, old_names) 1552s [00:52:31.996] removed <- setdiff(old_names, names) 1552s [00:52:31.996] changed <- common[...future.oldEnvVars[common] != 1552s [00:52:31.996] envs[common]] 1552s [00:52:31.996] NAMES <- toupper(changed) 1552s [00:52:31.996] args <- list() 1552s [00:52:31.996] for (kk in seq_along(NAMES)) { 1552s [00:52:31.996] name <- changed[[kk]] 1552s [00:52:31.996] NAME <- NAMES[[kk]] 1552s [00:52:31.996] if (name != NAME && is.element(NAME, old_names)) 1552s [00:52:31.996] next 1552s [00:52:31.996] args[[name]] <- ...future.oldEnvVars[[name]] 1552s [00:52:31.996] } 1552s [00:52:31.996] NAMES <- toupper(added) 1552s [00:52:31.996] for (kk in seq_along(NAMES)) { 1552s [00:52:31.996] name <- added[[kk]] 1552s [00:52:31.996] NAME <- NAMES[[kk]] 1552s [00:52:31.996] if (name != NAME && is.element(NAME, old_names)) 1552s [00:52:31.996] next 1552s [00:52:31.996] args[[name]] <- "" 1552s [00:52:31.996] } 1552s [00:52:31.996] NAMES <- toupper(removed) 1552s [00:52:31.996] for (kk in seq_along(NAMES)) { 1552s [00:52:31.996] name <- removed[[kk]] 1552s [00:52:31.996] NAME <- NAMES[[kk]] 1552s [00:52:31.996] if (name != NAME && is.element(NAME, old_names)) 1552s [00:52:31.996] next 1552s [00:52:31.996] args[[name]] <- ...future.oldEnvVars[[name]] 1552s [00:52:31.996] } 1552s [00:52:31.996] if (length(args) > 0) 1552s [00:52:31.996] base::do.call(base::Sys.setenv, args = args) 1552s [00:52:31.996] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1552s [00:52:31.996] } 1552s [00:52:31.996] else { 1552s [00:52:31.996] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1552s [00:52:31.996] } 1552s [00:52:31.996] { 1552s [00:52:31.996] if (base::length(...future.futureOptionsAdded) > 1552s [00:52:31.996] 0L) { 1552s [00:52:31.996] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1552s [00:52:31.996] base::names(opts) <- ...future.futureOptionsAdded 1552s [00:52:31.996] base::options(opts) 1552s [00:52:31.996] } 1552s [00:52:31.996] { 1552s [00:52:31.996] { 1552s [00:52:31.996] NULL 1552s [00:52:31.996] RNGkind("Mersenne-Twister") 1552s [00:52:31.996] base::rm(list = ".Random.seed", envir = base::globalenv(), 1552s [00:52:31.996] inherits = FALSE) 1552s [00:52:31.996] } 1552s [00:52:31.996] options(future.plan = NULL) 1552s [00:52:31.996] if (is.na(NA_character_)) 1552s [00:52:31.996] Sys.unsetenv("R_FUTURE_PLAN") 1552s [00:52:31.996] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1552s [00:52:31.996] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1552s [00:52:31.996] envir = parent.frame()) 1552s [00:52:31.996] { 1552s [00:52:31.996] default_workers <- missing(workers) 1552s [00:52:31.996] if (is.function(workers)) 1552s [00:52:31.996] workers <- workers() 1552s [00:52:31.996] workers <- structure(as.integer(workers), 1552s [00:52:31.996] class = class(workers)) 1552s [00:52:31.996] stop_if_not(is.finite(workers), workers >= 1552s [00:52:31.996] 1L) 1552s [00:52:31.996] if ((workers == 1L && !inherits(workers, 1552s [00:52:31.996] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1552s [00:52:31.996] if (default_workers) 1552s [00:52:31.996] supportsMulticore(warn = TRUE) 1552s [00:52:31.996] return(sequential(..., envir = envir)) 1552s [00:52:31.996] } 1552s [00:52:31.996] oopts <- options(mc.cores = workers) 1552s [00:52:31.996] on.exit(options(oopts)) 1552s [00:52:31.996] future <- MulticoreFuture(..., workers = workers, 1552s [00:52:31.996] envir = envir) 1552s [00:52:31.996] if (!future$lazy) 1552s [00:52:31.996] future <- run(future) 1552s [00:52:31.996] invisible(future) 1552s [00:52:31.996] }), .cleanup = FALSE, .init = FALSE) 1552s [00:52:31.996] } 1552s [00:52:31.996] } 1552s [00:52:31.996] } 1552s [00:52:31.996] }) 1552s [00:52:31.996] if (TRUE) { 1552s [00:52:31.996] base::sink(type = "output", split = FALSE) 1552s [00:52:31.996] if (TRUE) { 1552s [00:52:31.996] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1552s [00:52:31.996] } 1552s [00:52:31.996] else { 1552s [00:52:31.996] ...future.result["stdout"] <- base::list(NULL) 1552s [00:52:31.996] } 1552s [00:52:31.996] base::close(...future.stdout) 1552s [00:52:31.996] ...future.stdout <- NULL 1552s [00:52:31.996] } 1552s [00:52:31.996] ...future.result$conditions <- ...future.conditions 1552s [00:52:31.996] ...future.result$finished <- base::Sys.time() 1552s [00:52:31.996] ...future.result 1552s [00:52:31.996] } 1552s [00:52:32.002] assign_globals() ... 1552s [00:52:32.004] List of 5 1552s [00:52:32.004] $ ...future.FUN :function (mode = "logical", length = 0L) 1552s [00:52:32.004] $ future.call.arguments :List of 1 1552s [00:52:32.004] ..$ length: int 2 1552s [00:52:32.004] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1552s [00:52:32.004] $ ...future.elements_ii :List of 1 1552s [00:52:32.004] ..$ a: chr "integer" 1552s [00:52:32.004] $ ...future.seeds_ii : NULL 1552s [00:52:32.004] $ ...future.globals.maxSize: NULL 1552s [00:52:32.004] - attr(*, "where")=List of 5 1552s [00:52:32.004] ..$ ...future.FUN : 1552s [00:52:32.004] ..$ future.call.arguments : 1552s [00:52:32.004] ..$ ...future.elements_ii : 1552s [00:52:32.004] ..$ ...future.seeds_ii : 1552s [00:52:32.004] ..$ ...future.globals.maxSize: 1552s [00:52:32.004] - attr(*, "resolved")= logi FALSE 1552s [00:52:32.004] - attr(*, "total_size")= num 2240 1552s [00:52:32.004] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1552s [00:52:32.004] - attr(*, "already-done")= logi TRUE 1552s [00:52:32.012] - copied ‘...future.FUN’ to environment 1552s [00:52:32.012] - copied ‘future.call.arguments’ to environment 1552s [00:52:32.012] - copied ‘...future.elements_ii’ to environment 1552s [00:52:32.013] - copied ‘...future.seeds_ii’ to environment 1552s [00:52:32.013] - copied ‘...future.globals.maxSize’ to environment 1552s [00:52:32.013] assign_globals() ... done 1552s [00:52:32.013] plan(): Setting new future strategy stack: 1552s [00:52:32.013] List of future strategies: 1552s [00:52:32.013] 1. sequential: 1552s [00:52:32.013] - args: function (..., envir = parent.frame()) 1552s [00:52:32.013] - tweaked: FALSE 1552s [00:52:32.013] - call: NULL 1552s [00:52:32.014] plan(): nbrOfWorkers() = 1 1552s [00:52:32.015] plan(): Setting new future strategy stack: 1552s [00:52:32.015] List of future strategies: 1552s [00:52:32.015] 1. multicore: 1552s [00:52:32.015] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1552s [00:52:32.015] - tweaked: FALSE 1552s [00:52:32.015] - call: plan(strategy) 1552s [00:52:32.025] plan(): nbrOfWorkers() = 1 1552s [00:52:32.026] SequentialFuture started (and completed) 1552s [00:52:32.026] - Launch lazy future ... done 1552s [00:52:32.026] run() for ‘SequentialFuture’ ... done 1552s [00:52:32.026] Created future: 1552s [00:52:32.026] SequentialFuture: 1552s [00:52:32.026] Label: ‘future_lapply-1’ 1552s [00:52:32.026] Expression: 1552s [00:52:32.026] { 1552s [00:52:32.026] do.call(function(...) { 1552s [00:52:32.026] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1552s [00:52:32.026] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1552s [00:52:32.026] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1552s [00:52:32.026] on.exit(options(oopts), add = TRUE) 1552s [00:52:32.026] } 1552s [00:52:32.026] { 1552s [00:52:32.026] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1552s [00:52:32.026] ...future.X_jj <- ...future.elements_ii[[jj]] 1552s [00:52:32.026] ...future.FUN(...future.X_jj, ...) 1552s [00:52:32.026] }) 1552s [00:52:32.026] } 1552s [00:52:32.026] }, args = future.call.arguments) 1552s [00:52:32.026] } 1552s [00:52:32.026] Lazy evaluation: FALSE 1552s [00:52:32.026] Asynchronous evaluation: FALSE 1552s [00:52:32.026] Local evaluation: TRUE 1552s [00:52:32.026] Environment: R_GlobalEnv 1552s [00:52:32.026] Capture standard output: TRUE 1552s [00:52:32.026] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1552s [00:52:32.026] Globals: 5 objects totaling 2.30 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1552s [00:52:32.026] Packages: 1552s [00:52:32.026] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1552s [00:52:32.026] Resolved: TRUE 1552s [00:52:32.026] Value: 56 bytes of class ‘list’ 1552s [00:52:32.026] Early signaling: FALSE 1552s [00:52:32.026] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1552s [00:52:32.026] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1552s [00:52:32.028] Chunk #1 of 4 ... DONE 1552s [00:52:32.028] Chunk #2 of 4 ... 1552s [00:52:32.028] - Finding globals in 'X' for chunk #2 ... 1552s [00:52:32.029] getGlobalsAndPackages() ... 1552s [00:52:32.029] Searching for globals... 1552s [00:52:32.029] 1552s [00:52:32.029] Searching for globals ... DONE 1552s [00:52:32.029] - globals: [0] 1552s [00:52:32.030] getGlobalsAndPackages() ... DONE 1552s [00:52:32.030] + additional globals found: [n=0] 1552s [00:52:32.030] + additional namespaces needed: [n=0] 1552s [00:52:32.030] - Finding globals in 'X' for chunk #2 ... DONE 1552s [00:52:32.030] - Adjusted option 'future.globals.maxSize': 524288000 -> 4 * 524288000 = 2097152000 (bytes) 1552s [00:52:32.030] - seeds: 1552s [00:52:32.031] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1552s [00:52:32.031] getGlobalsAndPackages() ... 1552s [00:52:32.031] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1552s [00:52:32.031] Resolving globals: FALSE 1552s [00:52:32.031] Tweak future expression to call with '...' arguments ... 1552s [00:52:32.031] { 1552s [00:52:32.031] do.call(function(...) { 1552s [00:52:32.031] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1552s [00:52:32.031] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1552s [00:52:32.031] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1552s [00:52:32.031] on.exit(options(oopts), add = TRUE) 1552s [00:52:32.031] } 1552s [00:52:32.031] { 1552s [00:52:32.031] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1552s [00:52:32.031] ...future.X_jj <- ...future.elements_ii[[jj]] 1552s [00:52:32.031] ...future.FUN(...future.X_jj, ...) 1552s [00:52:32.031] }) 1552s [00:52:32.031] } 1552s [00:52:32.031] }, args = future.call.arguments) 1552s [00:52:32.031] } 1552s [00:52:32.032] Tweak future expression to call with '...' arguments ... DONE 1552s [00:52:32.032] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1552s [00:52:32.033] 1552s [00:52:32.033] getGlobalsAndPackages() ... DONE 1552s [00:52:32.033] run() for ‘Future’ ... 1552s [00:52:32.033] - state: ‘created’ 1552s [00:52:32.033] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1552s [00:52:32.038] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1552s [00:52:32.039] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1552s [00:52:32.039] - Field: ‘label’ 1552s [00:52:32.039] - Field: ‘local’ 1552s [00:52:32.040] - Field: ‘owner’ 1552s [00:52:32.040] - Field: ‘envir’ 1552s [00:52:32.040] - Field: ‘packages’ 1552s [00:52:32.040] - Field: ‘gc’ 1552s [00:52:32.041] - Field: ‘conditions’ 1552s [00:52:32.041] - Field: ‘expr’ 1552s [00:52:32.041] - Field: ‘uuid’ 1552s [00:52:32.042] - Field: ‘seed’ 1552s [00:52:32.042] - Field: ‘version’ 1552s [00:52:32.042] - Field: ‘result’ 1552s [00:52:32.042] - Field: ‘asynchronous’ 1552s [00:52:32.043] - Field: ‘calls’ 1552s [00:52:32.043] - Field: ‘globals’ 1552s [00:52:32.043] - Field: ‘stdout’ 1552s [00:52:32.043] - Field: ‘earlySignal’ 1552s [00:52:32.044] - Field: ‘lazy’ 1552s [00:52:32.044] - Field: ‘state’ 1552s [00:52:32.044] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1552s [00:52:32.045] - Launch lazy future ... 1552s [00:52:32.045] Packages needed by the future expression (n = 0): 1552s [00:52:32.045] Packages needed by future strategies (n = 0): 1552s [00:52:32.046] { 1552s [00:52:32.046] { 1552s [00:52:32.046] { 1552s [00:52:32.046] ...future.startTime <- base::Sys.time() 1552s [00:52:32.046] { 1552s [00:52:32.046] { 1552s [00:52:32.046] { 1552s [00:52:32.046] base::local({ 1552s [00:52:32.046] has_future <- base::requireNamespace("future", 1552s [00:52:32.046] quietly = TRUE) 1552s [00:52:32.046] if (has_future) { 1552s [00:52:32.046] ns <- base::getNamespace("future") 1552s [00:52:32.046] version <- ns[[".package"]][["version"]] 1552s [00:52:32.046] if (is.null(version)) 1552s [00:52:32.046] version <- utils::packageVersion("future") 1552s [00:52:32.046] } 1552s [00:52:32.046] else { 1552s [00:52:32.046] version <- NULL 1552s [00:52:32.046] } 1552s [00:52:32.046] if (!has_future || version < "1.8.0") { 1552s [00:52:32.046] info <- base::c(r_version = base::gsub("R version ", 1552s [00:52:32.046] "", base::R.version$version.string), 1552s [00:52:32.046] platform = base::sprintf("%s (%s-bit)", 1552s [00:52:32.046] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1552s [00:52:32.046] os = base::paste(base::Sys.info()[base::c("sysname", 1552s [00:52:32.046] "release", "version")], collapse = " "), 1552s [00:52:32.046] hostname = base::Sys.info()[["nodename"]]) 1552s [00:52:32.046] info <- base::sprintf("%s: %s", base::names(info), 1552s [00:52:32.046] info) 1552s [00:52:32.046] info <- base::paste(info, collapse = "; ") 1552s [00:52:32.046] if (!has_future) { 1552s [00:52:32.046] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1552s [00:52:32.046] info) 1552s [00:52:32.046] } 1552s [00:52:32.046] else { 1552s [00:52:32.046] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1552s [00:52:32.046] info, version) 1552s [00:52:32.046] } 1552s [00:52:32.046] base::stop(msg) 1552s [00:52:32.046] } 1552s [00:52:32.046] }) 1552s [00:52:32.046] } 1552s [00:52:32.046] options(future.plan = NULL) 1552s [00:52:32.046] Sys.unsetenv("R_FUTURE_PLAN") 1552s [00:52:32.046] future::plan("default", .cleanup = FALSE, .init = FALSE) 1552s [00:52:32.046] } 1552s [00:52:32.046] ...future.workdir <- getwd() 1552s [00:52:32.046] } 1552s [00:52:32.046] ...future.oldOptions <- base::as.list(base::.Options) 1552s [00:52:32.046] ...future.oldEnvVars <- base::Sys.getenv() 1552s [00:52:32.046] } 1552s [00:52:32.046] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1552s [00:52:32.046] future.globals.maxSize = 2097152000, future.globals.method = NULL, 1552s [00:52:32.046] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1552s [00:52:32.046] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1552s [00:52:32.046] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1552s [00:52:32.046] future.stdout.windows.reencode = NULL, width = 80L) 1552s [00:52:32.046] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1552s [00:52:32.046] base::names(...future.oldOptions)) 1552s [00:52:32.046] } 1552s [00:52:32.046] if (FALSE) { 1552s [00:52:32.046] } 1552s [00:52:32.046] else { 1552s [00:52:32.046] if (TRUE) { 1552s [00:52:32.046] ...future.stdout <- base::rawConnection(base::raw(0L), 1552s [00:52:32.046] open = "w") 1552s [00:52:32.046] } 1552s [00:52:32.046] else { 1552s [00:52:32.046] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1552s [00:52:32.046] windows = "NUL", "/dev/null"), open = "w") 1552s [00:52:32.046] } 1552s [00:52:32.046] base::sink(...future.stdout, type = "output", split = FALSE) 1552s [00:52:32.046] base::on.exit(if (!base::is.null(...future.stdout)) { 1552s [00:52:32.046] base::sink(type = "output", split = FALSE) 1552s [00:52:32.046] base::close(...future.stdout) 1552s [00:52:32.046] }, add = TRUE) 1552s [00:52:32.046] } 1552s [00:52:32.046] ...future.frame <- base::sys.nframe() 1552s [00:52:32.046] ...future.conditions <- base::list() 1552s [00:52:32.046] ...future.rng <- base::globalenv()$.Random.seed 1552s [00:52:32.046] if (FALSE) { 1552s [00:52:32.046] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1552s [00:52:32.046] "...future.value", "...future.globalenv.names", ".Random.seed") 1552s [00:52:32.046] } 1552s [00:52:32.046] ...future.result <- base::tryCatch({ 1552s [00:52:32.046] base::withCallingHandlers({ 1552s [00:52:32.046] ...future.value <- base::withVisible(base::local({ 1552s [00:52:32.046] do.call(function(...) { 1552s [00:52:32.046] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1552s [00:52:32.046] if (!identical(...future.globals.maxSize.org, 1552s [00:52:32.046] ...future.globals.maxSize)) { 1552s [00:52:32.046] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1552s [00:52:32.046] on.exit(options(oopts), add = TRUE) 1552s [00:52:32.046] } 1552s [00:52:32.046] { 1552s [00:52:32.046] lapply(seq_along(...future.elements_ii), 1552s [00:52:32.046] FUN = function(jj) { 1552s [00:52:32.046] ...future.X_jj <- ...future.elements_ii[[jj]] 1552s [00:52:32.046] ...future.FUN(...future.X_jj, ...) 1552s [00:52:32.046] }) 1552s [00:52:32.046] } 1552s [00:52:32.046] }, args = future.call.arguments) 1552s [00:52:32.046] })) 1552s [00:52:32.046] future::FutureResult(value = ...future.value$value, 1552s [00:52:32.046] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1552s [00:52:32.046] ...future.rng), globalenv = if (FALSE) 1552s [00:52:32.046] list(added = base::setdiff(base::names(base::.GlobalEnv), 1552s [00:52:32.046] ...future.globalenv.names)) 1552s [00:52:32.046] else NULL, started = ...future.startTime, version = "1.8") 1552s [00:52:32.046] }, condition = base::local({ 1552s [00:52:32.046] c <- base::c 1552s [00:52:32.046] inherits <- base::inherits 1552s [00:52:32.046] invokeRestart <- base::invokeRestart 1552s [00:52:32.046] length <- base::length 1552s [00:52:32.046] list <- base::list 1552s [00:52:32.046] seq.int <- base::seq.int 1552s [00:52:32.046] signalCondition <- base::signalCondition 1552s [00:52:32.046] sys.calls <- base::sys.calls 1552s [00:52:32.046] `[[` <- base::`[[` 1552s [00:52:32.046] `+` <- base::`+` 1552s [00:52:32.046] `<<-` <- base::`<<-` 1552s [00:52:32.046] sysCalls <- function(calls = sys.calls(), from = 1L) { 1552s [00:52:32.046] calls[seq.int(from = from + 12L, to = length(calls) - 1552s [00:52:32.046] 3L)] 1552s [00:52:32.046] } 1552s [00:52:32.046] function(cond) { 1552s [00:52:32.046] is_error <- inherits(cond, "error") 1552s [00:52:32.046] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1552s [00:52:32.046] NULL) 1552s [00:52:32.046] if (is_error) { 1552s [00:52:32.046] sessionInformation <- function() { 1552s [00:52:32.046] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1552s [00:52:32.046] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1552s [00:52:32.046] search = base::search(), system = base::Sys.info()) 1552s [00:52:32.046] } 1552s [00:52:32.046] ...future.conditions[[length(...future.conditions) + 1552s [00:52:32.046] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1552s [00:52:32.046] cond$call), session = sessionInformation(), 1552s [00:52:32.046] timestamp = base::Sys.time(), signaled = 0L) 1552s [00:52:32.046] signalCondition(cond) 1552s [00:52:32.046] } 1552s [00:52:32.046] else if (!ignore && TRUE && inherits(cond, c("condition", 1552s [00:52:32.046] "immediateCondition"))) { 1552s [00:52:32.046] signal <- TRUE && inherits(cond, "immediateCondition") 1552s [00:52:32.046] ...future.conditions[[length(...future.conditions) + 1552s [00:52:32.046] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1552s [00:52:32.046] if (TRUE && !signal) { 1552s [00:52:32.046] muffleCondition <- function (cond, pattern = "^muffle") 1552s [00:52:32.046] { 1552s [00:52:32.046] inherits <- base::inherits 1552s [00:52:32.046] invokeRestart <- base::invokeRestart 1552s [00:52:32.046] is.null <- base::is.null 1552s [00:52:32.046] muffled <- FALSE 1552s [00:52:32.046] if (inherits(cond, "message")) { 1552s [00:52:32.046] muffled <- grepl(pattern, "muffleMessage") 1552s [00:52:32.046] if (muffled) 1552s [00:52:32.046] invokeRestart("muffleMessage") 1552s [00:52:32.046] } 1552s [00:52:32.046] else if (inherits(cond, "warning")) { 1552s [00:52:32.046] muffled <- grepl(pattern, "muffleWarning") 1552s [00:52:32.046] if (muffled) 1552s [00:52:32.046] invokeRestart("muffleWarning") 1552s [00:52:32.046] } 1552s [00:52:32.046] else if (inherits(cond, "condition")) { 1552s [00:52:32.046] if (!is.null(pattern)) { 1552s [00:52:32.046] computeRestarts <- base::computeRestarts 1552s [00:52:32.046] grepl <- base::grepl 1552s [00:52:32.046] restarts <- computeRestarts(cond) 1552s [00:52:32.046] for (restart in restarts) { 1552s [00:52:32.046] name <- restart$name 1552s [00:52:32.046] if (is.null(name)) 1552s [00:52:32.046] next 1552s [00:52:32.046] if (!grepl(pattern, name)) 1552s [00:52:32.046] next 1552s [00:52:32.046] invokeRestart(restart) 1552s [00:52:32.046] muffled <- TRUE 1552s [00:52:32.046] break 1552s [00:52:32.046] } 1552s [00:52:32.046] } 1552s [00:52:32.046] } 1552s [00:52:32.046] invisible(muffled) 1552s [00:52:32.046] } 1552s [00:52:32.046] muffleCondition(cond, pattern = "^muffle") 1552s [00:52:32.046] } 1552s [00:52:32.046] } 1552s [00:52:32.046] else { 1552s [00:52:32.046] if (TRUE) { 1552s [00:52:32.046] muffleCondition <- function (cond, pattern = "^muffle") 1552s [00:52:32.046] { 1552s [00:52:32.046] inherits <- base::inherits 1552s [00:52:32.046] invokeRestart <- base::invokeRestart 1552s [00:52:32.046] is.null <- base::is.null 1552s [00:52:32.046] muffled <- FALSE 1552s [00:52:32.046] if (inherits(cond, "message")) { 1552s [00:52:32.046] muffled <- grepl(pattern, "muffleMessage") 1552s [00:52:32.046] if (muffled) 1552s [00:52:32.046] invokeRestart("muffleMessage") 1552s [00:52:32.046] } 1552s [00:52:32.046] else if (inherits(cond, "warning")) { 1552s [00:52:32.046] muffled <- grepl(pattern, "muffleWarning") 1552s [00:52:32.046] if (muffled) 1552s [00:52:32.046] invokeRestart("muffleWarning") 1552s [00:52:32.046] } 1552s [00:52:32.046] else if (inherits(cond, "condition")) { 1552s [00:52:32.046] if (!is.null(pattern)) { 1552s [00:52:32.046] computeRestarts <- base::computeRestarts 1552s [00:52:32.046] grepl <- base::grepl 1552s [00:52:32.046] restarts <- computeRestarts(cond) 1552s [00:52:32.046] for (restart in restarts) { 1552s [00:52:32.046] name <- restart$name 1552s [00:52:32.046] if (is.null(name)) 1552s [00:52:32.046] next 1552s [00:52:32.046] if (!grepl(pattern, name)) 1552s [00:52:32.046] next 1552s [00:52:32.046] invokeRestart(restart) 1552s [00:52:32.046] muffled <- TRUE 1552s [00:52:32.046] break 1552s [00:52:32.046] } 1552s [00:52:32.046] } 1552s [00:52:32.046] } 1552s [00:52:32.046] invisible(muffled) 1552s [00:52:32.046] } 1552s [00:52:32.046] muffleCondition(cond, pattern = "^muffle") 1552s [00:52:32.046] } 1552s [00:52:32.046] } 1552s [00:52:32.046] } 1552s [00:52:32.046] })) 1552s [00:52:32.046] }, error = function(ex) { 1552s [00:52:32.046] base::structure(base::list(value = NULL, visible = NULL, 1552s [00:52:32.046] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1552s [00:52:32.046] ...future.rng), started = ...future.startTime, 1552s [00:52:32.046] finished = Sys.time(), session_uuid = NA_character_, 1552s [00:52:32.046] version = "1.8"), class = "FutureResult") 1552s [00:52:32.046] }, finally = { 1552s [00:52:32.046] if (!identical(...future.workdir, getwd())) 1552s [00:52:32.046] setwd(...future.workdir) 1552s [00:52:32.046] { 1552s [00:52:32.046] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1552s [00:52:32.046] ...future.oldOptions$nwarnings <- NULL 1552s [00:52:32.046] } 1552s [00:52:32.046] base::options(...future.oldOptions) 1552s [00:52:32.046] if (.Platform$OS.type == "windows") { 1552s [00:52:32.046] old_names <- names(...future.oldEnvVars) 1552s [00:52:32.046] envs <- base::Sys.getenv() 1552s [00:52:32.046] names <- names(envs) 1552s [00:52:32.046] common <- intersect(names, old_names) 1552s [00:52:32.046] added <- setdiff(names, old_names) 1552s [00:52:32.046] removed <- setdiff(old_names, names) 1552s [00:52:32.046] changed <- common[...future.oldEnvVars[common] != 1552s [00:52:32.046] envs[common]] 1552s [00:52:32.046] NAMES <- toupper(changed) 1552s [00:52:32.046] args <- list() 1552s [00:52:32.046] for (kk in seq_along(NAMES)) { 1552s [00:52:32.046] name <- changed[[kk]] 1552s [00:52:32.046] NAME <- NAMES[[kk]] 1552s [00:52:32.046] if (name != NAME && is.element(NAME, old_names)) 1552s [00:52:32.046] next 1552s [00:52:32.046] args[[name]] <- ...future.oldEnvVars[[name]] 1552s [00:52:32.046] } 1552s [00:52:32.046] NAMES <- toupper(added) 1552s [00:52:32.046] for (kk in seq_along(NAMES)) { 1552s [00:52:32.046] name <- added[[kk]] 1552s [00:52:32.046] NAME <- NAMES[[kk]] 1552s [00:52:32.046] if (name != NAME && is.element(NAME, old_names)) 1552s [00:52:32.046] next 1552s [00:52:32.046] args[[name]] <- "" 1552s [00:52:32.046] } 1552s [00:52:32.046] NAMES <- toupper(removed) 1552s [00:52:32.046] for (kk in seq_along(NAMES)) { 1552s [00:52:32.046] name <- removed[[kk]] 1552s [00:52:32.046] NAME <- NAMES[[kk]] 1552s [00:52:32.046] if (name != NAME && is.element(NAME, old_names)) 1552s [00:52:32.046] next 1552s [00:52:32.046] args[[name]] <- ...future.oldEnvVars[[name]] 1552s [00:52:32.046] } 1552s [00:52:32.046] if (length(args) > 0) 1552s [00:52:32.046] base::do.call(base::Sys.setenv, args = args) 1552s [00:52:32.046] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1552s [00:52:32.046] } 1552s [00:52:32.046] else { 1552s [00:52:32.046] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1552s [00:52:32.046] } 1552s [00:52:32.046] { 1552s [00:52:32.046] if (base::length(...future.futureOptionsAdded) > 1552s [00:52:32.046] 0L) { 1552s [00:52:32.046] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1552s [00:52:32.046] base::names(opts) <- ...future.futureOptionsAdded 1552s [00:52:32.046] base::options(opts) 1552s [00:52:32.046] } 1552s [00:52:32.046] { 1552s [00:52:32.046] { 1552s [00:52:32.046] NULL 1552s [00:52:32.046] RNGkind("Mersenne-Twister") 1552s [00:52:32.046] base::rm(list = ".Random.seed", envir = base::globalenv(), 1552s [00:52:32.046] inherits = FALSE) 1552s [00:52:32.046] } 1552s [00:52:32.046] options(future.plan = NULL) 1552s [00:52:32.046] if (is.na(NA_character_)) 1552s [00:52:32.046] Sys.unsetenv("R_FUTURE_PLAN") 1552s [00:52:32.046] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1552s [00:52:32.046] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1552s [00:52:32.046] envir = parent.frame()) 1552s [00:52:32.046] { 1552s [00:52:32.046] default_workers <- missing(workers) 1552s [00:52:32.046] if (is.function(workers)) 1552s [00:52:32.046] workers <- workers() 1552s [00:52:32.046] workers <- structure(as.integer(workers), 1552s [00:52:32.046] class = class(workers)) 1552s [00:52:32.046] stop_if_not(is.finite(workers), workers >= 1552s [00:52:32.046] 1L) 1552s [00:52:32.046] if ((workers == 1L && !inherits(workers, 1552s [00:52:32.046] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1552s [00:52:32.046] if (default_workers) 1552s [00:52:32.046] supportsMulticore(warn = TRUE) 1552s [00:52:32.046] return(sequential(..., envir = envir)) 1552s [00:52:32.046] } 1552s [00:52:32.046] oopts <- options(mc.cores = workers) 1552s [00:52:32.046] on.exit(options(oopts)) 1552s [00:52:32.046] future <- MulticoreFuture(..., workers = workers, 1552s [00:52:32.046] envir = envir) 1552s [00:52:32.046] if (!future$lazy) 1552s [00:52:32.046] future <- run(future) 1552s [00:52:32.046] invisible(future) 1552s [00:52:32.046] }), .cleanup = FALSE, .init = FALSE) 1552s [00:52:32.046] } 1552s [00:52:32.046] } 1552s [00:52:32.046] } 1552s [00:52:32.046] }) 1552s [00:52:32.046] if (TRUE) { 1552s [00:52:32.046] base::sink(type = "output", split = FALSE) 1552s [00:52:32.046] if (TRUE) { 1552s [00:52:32.046] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1552s [00:52:32.046] } 1552s [00:52:32.046] else { 1552s [00:52:32.046] ...future.result["stdout"] <- base::list(NULL) 1552s [00:52:32.046] } 1552s [00:52:32.046] base::close(...future.stdout) 1552s [00:52:32.046] ...future.stdout <- NULL 1552s [00:52:32.046] } 1552s [00:52:32.046] ...future.result$conditions <- ...future.conditions 1552s [00:52:32.046] ...future.result$finished <- base::Sys.time() 1552s [00:52:32.046] ...future.result 1552s [00:52:32.046] } 1552s [00:52:32.055] assign_globals() ... 1552s [00:52:32.055] List of 5 1552s [00:52:32.055] $ ...future.FUN :function (mode = "logical", length = 0L) 1552s [00:52:32.055] $ future.call.arguments :List of 1 1552s [00:52:32.055] ..$ length: int 2 1552s [00:52:32.055] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1552s [00:52:32.055] $ ...future.elements_ii :List of 1 1552s [00:52:32.055] ..$ b: chr "numeric" 1552s [00:52:32.055] $ ...future.seeds_ii : NULL 1552s [00:52:32.055] $ ...future.globals.maxSize: NULL 1552s [00:52:32.055] - attr(*, "where")=List of 5 1552s [00:52:32.055] ..$ ...future.FUN : 1552s [00:52:32.055] ..$ future.call.arguments : 1552s [00:52:32.055] ..$ ...future.elements_ii : 1552s [00:52:32.055] ..$ ...future.seeds_ii : 1552s [00:52:32.055] ..$ ...future.globals.maxSize: 1552s [00:52:32.055] - attr(*, "resolved")= logi FALSE 1552s [00:52:32.055] - attr(*, "total_size")= num 2240 1552s [00:52:32.055] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1552s [00:52:32.055] - attr(*, "already-done")= logi TRUE 1552s [00:52:32.075] - copied ‘...future.FUN’ to environment 1552s [00:52:32.075] - copied ‘future.call.arguments’ to environment 1552s [00:52:32.075] - copied ‘...future.elements_ii’ to environment 1552s [00:52:32.075] - copied ‘...future.seeds_ii’ to environment 1552s [00:52:32.075] - copied ‘...future.globals.maxSize’ to environment 1552s [00:52:32.076] assign_globals() ... done 1552s [00:52:32.076] plan(): Setting new future strategy stack: 1552s [00:52:32.077] List of future strategies: 1552s [00:52:32.077] 1. sequential: 1552s [00:52:32.077] - args: function (..., envir = parent.frame()) 1552s [00:52:32.077] - tweaked: FALSE 1552s [00:52:32.077] - call: NULL 1552s [00:52:32.077] plan(): nbrOfWorkers() = 1 1552s [00:52:32.079] plan(): Setting new future strategy stack: 1552s [00:52:32.079] List of future strategies: 1552s [00:52:32.079] 1. multicore: 1552s [00:52:32.079] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1552s [00:52:32.079] - tweaked: FALSE 1552s [00:52:32.079] - call: plan(strategy) 1552s [00:52:32.085] plan(): nbrOfWorkers() = 1 1552s [00:52:32.090] SequentialFuture started (and completed) 1552s [00:52:32.090] - Launch lazy future ... done 1552s [00:52:32.090] run() for ‘SequentialFuture’ ... done 1552s [00:52:32.091] Created future: 1552s [00:52:32.091] SequentialFuture: 1552s [00:52:32.091] Label: ‘future_lapply-2’ 1552s [00:52:32.091] Expression: 1552s [00:52:32.091] { 1552s [00:52:32.091] do.call(function(...) { 1552s [00:52:32.091] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1552s [00:52:32.091] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1552s [00:52:32.091] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1552s [00:52:32.091] on.exit(options(oopts), add = TRUE) 1552s [00:52:32.091] } 1552s [00:52:32.091] { 1552s [00:52:32.091] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1552s [00:52:32.091] ...future.X_jj <- ...future.elements_ii[[jj]] 1552s [00:52:32.091] ...future.FUN(...future.X_jj, ...) 1552s [00:52:32.091] }) 1552s [00:52:32.091] } 1552s [00:52:32.091] }, args = future.call.arguments) 1552s [00:52:32.091] } 1552s [00:52:32.091] Lazy evaluation: FALSE 1552s [00:52:32.091] Asynchronous evaluation: FALSE 1552s [00:52:32.091] Local evaluation: TRUE 1552s [00:52:32.091] Environment: R_GlobalEnv 1552s [00:52:32.091] Capture standard output: TRUE 1552s [00:52:32.091] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1552s [00:52:32.091] Globals: 5 objects totaling 2.30 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1552s [00:52:32.091] Packages: 1552s [00:52:32.091] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1552s [00:52:32.091] Resolved: TRUE 1552s [00:52:32.091] Value: 64 bytes of class ‘list’ 1552s [00:52:32.091] Early signaling: FALSE 1552s [00:52:32.091] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1552s [00:52:32.091] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1552s [00:52:32.095] Chunk #2 of 4 ... DONE 1552s [00:52:32.096] Chunk #3 of 4 ... 1552s [00:52:32.096] - Finding globals in 'X' for chunk #3 ... 1552s [00:52:32.097] getGlobalsAndPackages() ... 1552s [00:52:32.097] Searching for globals... 1552s [00:52:32.098] 1552s [00:52:32.098] Searching for globals ... DONE 1552s [00:52:32.099] - globals: [0] 1552s [00:52:32.099] getGlobalsAndPackages() ... DONE 1552s [00:52:32.100] + additional globals found: [n=0] 1552s [00:52:32.100] + additional namespaces needed: [n=0] 1552s [00:52:32.100] - Finding globals in 'X' for chunk #3 ... DONE 1552s [00:52:32.101] - Adjusted option 'future.globals.maxSize': 524288000 -> 4 * 524288000 = 2097152000 (bytes) 1552s [00:52:32.102] - seeds: 1552s [00:52:32.102] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1552s [00:52:32.102] getGlobalsAndPackages() ... 1552s [00:52:32.103] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1552s [00:52:32.103] Resolving globals: FALSE 1552s [00:52:32.103] Tweak future expression to call with '...' arguments ... 1552s [00:52:32.103] { 1552s [00:52:32.103] do.call(function(...) { 1552s [00:52:32.103] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1552s [00:52:32.103] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1552s [00:52:32.103] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1552s [00:52:32.103] on.exit(options(oopts), add = TRUE) 1552s [00:52:32.103] } 1552s [00:52:32.103] { 1552s [00:52:32.103] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1552s [00:52:32.103] ...future.X_jj <- ...future.elements_ii[[jj]] 1552s [00:52:32.103] ...future.FUN(...future.X_jj, ...) 1552s [00:52:32.103] }) 1552s [00:52:32.103] } 1552s [00:52:32.103] }, args = future.call.arguments) 1552s [00:52:32.103] } 1552s [00:52:32.104] Tweak future expression to call with '...' arguments ... DONE 1552s [00:52:32.105] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1552s [00:52:32.106] 1552s [00:52:32.106] getGlobalsAndPackages() ... DONE 1552s [00:52:32.106] run() for ‘Future’ ... 1552s [00:52:32.106] - state: ‘created’ 1552s [00:52:32.107] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1552s [00:52:32.115] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1552s [00:52:32.116] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1552s [00:52:32.116] - Field: ‘label’ 1552s [00:52:32.117] - Field: ‘local’ 1552s [00:52:32.117] - Field: ‘owner’ 1552s [00:52:32.117] - Field: ‘envir’ 1552s [00:52:32.118] - Field: ‘packages’ 1552s [00:52:32.118] - Field: ‘gc’ 1552s [00:52:32.119] - Field: ‘conditions’ 1552s [00:52:32.119] - Field: ‘expr’ 1552s [00:52:32.119] - Field: ‘uuid’ 1552s [00:52:32.119] - Field: ‘seed’ 1552s [00:52:32.120] - Field: ‘version’ 1552s [00:52:32.121] - Field: ‘result’ 1552s [00:52:32.122] - Field: ‘asynchronous’ 1552s [00:52:32.122] - Field: ‘calls’ 1552s [00:52:32.123] - Field: ‘globals’ 1552s [00:52:32.123] - Field: ‘stdout’ 1552s [00:52:32.123] - Field: ‘earlySignal’ 1552s [00:52:32.124] - Field: ‘lazy’ 1552s [00:52:32.124] - Field: ‘state’ 1552s [00:52:32.124] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1552s [00:52:32.125] - Launch lazy future ... 1552s [00:52:32.125] Packages needed by the future expression (n = 0): 1552s [00:52:32.126] Packages needed by future strategies (n = 0): 1552s [00:52:32.126] { 1552s [00:52:32.126] { 1552s [00:52:32.126] { 1552s [00:52:32.126] ...future.startTime <- base::Sys.time() 1552s [00:52:32.126] { 1552s [00:52:32.126] { 1552s [00:52:32.126] { 1552s [00:52:32.126] base::local({ 1552s [00:52:32.126] has_future <- base::requireNamespace("future", 1552s [00:52:32.126] quietly = TRUE) 1552s [00:52:32.126] if (has_future) { 1552s [00:52:32.126] ns <- base::getNamespace("future") 1552s [00:52:32.126] version <- ns[[".package"]][["version"]] 1552s [00:52:32.126] if (is.null(version)) 1552s [00:52:32.126] version <- utils::packageVersion("future") 1552s [00:52:32.126] } 1552s [00:52:32.126] else { 1552s [00:52:32.126] version <- NULL 1552s [00:52:32.126] } 1552s [00:52:32.126] if (!has_future || version < "1.8.0") { 1552s [00:52:32.126] info <- base::c(r_version = base::gsub("R version ", 1552s [00:52:32.126] "", base::R.version$version.string), 1552s [00:52:32.126] platform = base::sprintf("%s (%s-bit)", 1552s [00:52:32.126] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1552s [00:52:32.126] os = base::paste(base::Sys.info()[base::c("sysname", 1552s [00:52:32.126] "release", "version")], collapse = " "), 1552s [00:52:32.126] hostname = base::Sys.info()[["nodename"]]) 1552s [00:52:32.126] info <- base::sprintf("%s: %s", base::names(info), 1552s [00:52:32.126] info) 1552s [00:52:32.126] info <- base::paste(info, collapse = "; ") 1552s [00:52:32.126] if (!has_future) { 1552s [00:52:32.126] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1552s [00:52:32.126] info) 1552s [00:52:32.126] } 1552s [00:52:32.126] else { 1552s [00:52:32.126] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1552s [00:52:32.126] info, version) 1552s [00:52:32.126] } 1552s [00:52:32.126] base::stop(msg) 1552s [00:52:32.126] } 1552s [00:52:32.126] }) 1552s [00:52:32.126] } 1552s [00:52:32.126] options(future.plan = NULL) 1552s [00:52:32.126] Sys.unsetenv("R_FUTURE_PLAN") 1552s [00:52:32.126] future::plan("default", .cleanup = FALSE, .init = FALSE) 1552s [00:52:32.126] } 1552s [00:52:32.126] ...future.workdir <- getwd() 1552s [00:52:32.126] } 1552s [00:52:32.126] ...future.oldOptions <- base::as.list(base::.Options) 1552s [00:52:32.126] ...future.oldEnvVars <- base::Sys.getenv() 1552s [00:52:32.126] } 1552s [00:52:32.126] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1552s [00:52:32.126] future.globals.maxSize = 2097152000, future.globals.method = NULL, 1552s [00:52:32.126] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1552s [00:52:32.126] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1552s [00:52:32.126] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1552s [00:52:32.126] future.stdout.windows.reencode = NULL, width = 80L) 1552s [00:52:32.126] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1552s [00:52:32.126] base::names(...future.oldOptions)) 1552s [00:52:32.126] } 1552s [00:52:32.126] if (FALSE) { 1552s [00:52:32.126] } 1552s [00:52:32.126] else { 1552s [00:52:32.126] if (TRUE) { 1552s [00:52:32.126] ...future.stdout <- base::rawConnection(base::raw(0L), 1552s [00:52:32.126] open = "w") 1552s [00:52:32.126] } 1552s [00:52:32.126] else { 1552s [00:52:32.126] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1552s [00:52:32.126] windows = "NUL", "/dev/null"), open = "w") 1552s [00:52:32.126] } 1552s [00:52:32.126] base::sink(...future.stdout, type = "output", split = FALSE) 1552s [00:52:32.126] base::on.exit(if (!base::is.null(...future.stdout)) { 1552s [00:52:32.126] base::sink(type = "output", split = FALSE) 1552s [00:52:32.126] base::close(...future.stdout) 1552s [00:52:32.126] }, add = TRUE) 1552s [00:52:32.126] } 1552s [00:52:32.126] ...future.frame <- base::sys.nframe() 1552s [00:52:32.126] ...future.conditions <- base::list() 1552s [00:52:32.126] ...future.rng <- base::globalenv()$.Random.seed 1552s [00:52:32.126] if (FALSE) { 1552s [00:52:32.126] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1552s [00:52:32.126] "...future.value", "...future.globalenv.names", ".Random.seed") 1552s [00:52:32.126] } 1552s [00:52:32.126] ...future.result <- base::tryCatch({ 1552s [00:52:32.126] base::withCallingHandlers({ 1552s [00:52:32.126] ...future.value <- base::withVisible(base::local({ 1552s [00:52:32.126] do.call(function(...) { 1552s [00:52:32.126] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1552s [00:52:32.126] if (!identical(...future.globals.maxSize.org, 1552s [00:52:32.126] ...future.globals.maxSize)) { 1552s [00:52:32.126] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1552s [00:52:32.126] on.exit(options(oopts), add = TRUE) 1552s [00:52:32.126] } 1552s [00:52:32.126] { 1552s [00:52:32.126] lapply(seq_along(...future.elements_ii), 1552s [00:52:32.126] FUN = function(jj) { 1552s [00:52:32.126] ...future.X_jj <- ...future.elements_ii[[jj]] 1552s [00:52:32.126] ...future.FUN(...future.X_jj, ...) 1552s [00:52:32.126] }) 1552s [00:52:32.126] } 1552s [00:52:32.126] }, args = future.call.arguments) 1552s [00:52:32.126] })) 1552s [00:52:32.126] future::FutureResult(value = ...future.value$value, 1552s [00:52:32.126] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1552s [00:52:32.126] ...future.rng), globalenv = if (FALSE) 1552s [00:52:32.126] list(added = base::setdiff(base::names(base::.GlobalEnv), 1552s [00:52:32.126] ...future.globalenv.names)) 1552s [00:52:32.126] else NULL, started = ...future.startTime, version = "1.8") 1552s [00:52:32.126] }, condition = base::local({ 1552s [00:52:32.126] c <- base::c 1552s [00:52:32.126] inherits <- base::inherits 1552s [00:52:32.126] invokeRestart <- base::invokeRestart 1552s [00:52:32.126] length <- base::length 1552s [00:52:32.126] list <- base::list 1552s [00:52:32.126] seq.int <- base::seq.int 1552s [00:52:32.126] signalCondition <- base::signalCondition 1552s [00:52:32.126] sys.calls <- base::sys.calls 1552s [00:52:32.126] `[[` <- base::`[[` 1552s [00:52:32.126] `+` <- base::`+` 1552s [00:52:32.126] `<<-` <- base::`<<-` 1552s [00:52:32.126] sysCalls <- function(calls = sys.calls(), from = 1L) { 1552s [00:52:32.126] calls[seq.int(from = from + 12L, to = length(calls) - 1552s [00:52:32.126] 3L)] 1552s [00:52:32.126] } 1552s [00:52:32.126] function(cond) { 1552s [00:52:32.126] is_error <- inherits(cond, "error") 1552s [00:52:32.126] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1552s [00:52:32.126] NULL) 1552s [00:52:32.126] if (is_error) { 1552s [00:52:32.126] sessionInformation <- function() { 1552s [00:52:32.126] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1552s [00:52:32.126] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1552s [00:52:32.126] search = base::search(), system = base::Sys.info()) 1552s [00:52:32.126] } 1552s [00:52:32.126] ...future.conditions[[length(...future.conditions) + 1552s [00:52:32.126] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1552s [00:52:32.126] cond$call), session = sessionInformation(), 1552s [00:52:32.126] timestamp = base::Sys.time(), signaled = 0L) 1552s [00:52:32.126] signalCondition(cond) 1552s [00:52:32.126] } 1552s [00:52:32.126] else if (!ignore && TRUE && inherits(cond, c("condition", 1552s [00:52:32.126] "immediateCondition"))) { 1552s [00:52:32.126] signal <- TRUE && inherits(cond, "immediateCondition") 1552s [00:52:32.126] ...future.conditions[[length(...future.conditions) + 1552s [00:52:32.126] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1552s [00:52:32.126] if (TRUE && !signal) { 1552s [00:52:32.126] muffleCondition <- function (cond, pattern = "^muffle") 1552s [00:52:32.126] { 1552s [00:52:32.126] inherits <- base::inherits 1552s [00:52:32.126] invokeRestart <- base::invokeRestart 1552s [00:52:32.126] is.null <- base::is.null 1552s [00:52:32.126] muffled <- FALSE 1552s [00:52:32.126] if (inherits(cond, "message")) { 1552s [00:52:32.126] muffled <- grepl(pattern, "muffleMessage") 1552s [00:52:32.126] if (muffled) 1552s [00:52:32.126] invokeRestart("muffleMessage") 1552s [00:52:32.126] } 1552s [00:52:32.126] else if (inherits(cond, "warning")) { 1552s [00:52:32.126] muffled <- grepl(pattern, "muffleWarning") 1552s [00:52:32.126] if (muffled) 1552s [00:52:32.126] invokeRestart("muffleWarning") 1552s [00:52:32.126] } 1552s [00:52:32.126] else if (inherits(cond, "condition")) { 1552s [00:52:32.126] if (!is.null(pattern)) { 1552s [00:52:32.126] computeRestarts <- base::computeRestarts 1552s [00:52:32.126] grepl <- base::grepl 1552s [00:52:32.126] restarts <- computeRestarts(cond) 1552s [00:52:32.126] for (restart in restarts) { 1552s [00:52:32.126] name <- restart$name 1552s [00:52:32.126] if (is.null(name)) 1552s [00:52:32.126] next 1552s [00:52:32.126] if (!grepl(pattern, name)) 1552s [00:52:32.126] next 1552s [00:52:32.126] invokeRestart(restart) 1552s [00:52:32.126] muffled <- TRUE 1552s [00:52:32.126] break 1552s [00:52:32.126] } 1552s [00:52:32.126] } 1552s [00:52:32.126] } 1552s [00:52:32.126] invisible(muffled) 1552s [00:52:32.126] } 1552s [00:52:32.126] muffleCondition(cond, pattern = "^muffle") 1552s [00:52:32.126] } 1552s [00:52:32.126] } 1552s [00:52:32.126] else { 1552s [00:52:32.126] if (TRUE) { 1552s [00:52:32.126] muffleCondition <- function (cond, pattern = "^muffle") 1552s [00:52:32.126] { 1552s [00:52:32.126] inherits <- base::inherits 1552s [00:52:32.126] invokeRestart <- base::invokeRestart 1552s [00:52:32.126] is.null <- base::is.null 1552s [00:52:32.126] muffled <- FALSE 1552s [00:52:32.126] if (inherits(cond, "message")) { 1552s [00:52:32.126] muffled <- grepl(pattern, "muffleMessage") 1552s [00:52:32.126] if (muffled) 1552s [00:52:32.126] invokeRestart("muffleMessage") 1552s [00:52:32.126] } 1552s [00:52:32.126] else if (inherits(cond, "warning")) { 1552s [00:52:32.126] muffled <- grepl(pattern, "muffleWarning") 1552s [00:52:32.126] if (muffled) 1552s [00:52:32.126] invokeRestart("muffleWarning") 1552s [00:52:32.126] } 1552s [00:52:32.126] else if (inherits(cond, "condition")) { 1552s [00:52:32.126] if (!is.null(pattern)) { 1552s [00:52:32.126] computeRestarts <- base::computeRestarts 1552s [00:52:32.126] grepl <- base::grepl 1552s [00:52:32.126] restarts <- computeRestarts(cond) 1552s [00:52:32.126] for (restart in restarts) { 1552s [00:52:32.126] name <- restart$name 1552s [00:52:32.126] if (is.null(name)) 1552s [00:52:32.126] next 1552s [00:52:32.126] if (!grepl(pattern, name)) 1552s [00:52:32.126] next 1552s [00:52:32.126] invokeRestart(restart) 1552s [00:52:32.126] muffled <- TRUE 1552s [00:52:32.126] break 1552s [00:52:32.126] } 1552s [00:52:32.126] } 1552s [00:52:32.126] } 1552s [00:52:32.126] invisible(muffled) 1552s [00:52:32.126] } 1552s [00:52:32.126] muffleCondition(cond, pattern = "^muffle") 1552s [00:52:32.126] } 1552s [00:52:32.126] } 1552s [00:52:32.126] } 1552s [00:52:32.126] })) 1552s [00:52:32.126] }, error = function(ex) { 1552s [00:52:32.126] base::structure(base::list(value = NULL, visible = NULL, 1552s [00:52:32.126] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1552s [00:52:32.126] ...future.rng), started = ...future.startTime, 1552s [00:52:32.126] finished = Sys.time(), session_uuid = NA_character_, 1552s [00:52:32.126] version = "1.8"), class = "FutureResult") 1552s [00:52:32.126] }, finally = { 1552s [00:52:32.126] if (!identical(...future.workdir, getwd())) 1552s [00:52:32.126] setwd(...future.workdir) 1552s [00:52:32.126] { 1552s [00:52:32.126] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1552s [00:52:32.126] ...future.oldOptions$nwarnings <- NULL 1552s [00:52:32.126] } 1552s [00:52:32.126] base::options(...future.oldOptions) 1552s [00:52:32.126] if (.Platform$OS.type == "windows") { 1552s [00:52:32.126] old_names <- names(...future.oldEnvVars) 1552s [00:52:32.126] envs <- base::Sys.getenv() 1552s [00:52:32.126] names <- names(envs) 1552s [00:52:32.126] common <- intersect(names, old_names) 1552s [00:52:32.126] added <- setdiff(names, old_names) 1552s [00:52:32.126] removed <- setdiff(old_names, names) 1552s [00:52:32.126] changed <- common[...future.oldEnvVars[common] != 1552s [00:52:32.126] envs[common]] 1552s [00:52:32.126] NAMES <- toupper(changed) 1552s [00:52:32.126] args <- list() 1552s [00:52:32.126] for (kk in seq_along(NAMES)) { 1552s [00:52:32.126] name <- changed[[kk]] 1552s [00:52:32.126] NAME <- NAMES[[kk]] 1552s [00:52:32.126] if (name != NAME && is.element(NAME, old_names)) 1552s [00:52:32.126] next 1552s [00:52:32.126] args[[name]] <- ...future.oldEnvVars[[name]] 1552s [00:52:32.126] } 1552s [00:52:32.126] NAMES <- toupper(added) 1552s [00:52:32.126] for (kk in seq_along(NAMES)) { 1552s [00:52:32.126] name <- added[[kk]] 1552s [00:52:32.126] NAME <- NAMES[[kk]] 1552s [00:52:32.126] if (name != NAME && is.element(NAME, old_names)) 1552s [00:52:32.126] next 1552s [00:52:32.126] args[[name]] <- "" 1552s [00:52:32.126] } 1552s [00:52:32.126] NAMES <- toupper(removed) 1552s [00:52:32.126] for (kk in seq_along(NAMES)) { 1552s [00:52:32.126] name <- removed[[kk]] 1552s [00:52:32.126] NAME <- NAMES[[kk]] 1552s [00:52:32.126] if (name != NAME && is.element(NAME, old_names)) 1552s [00:52:32.126] next 1552s [00:52:32.126] args[[name]] <- ...future.oldEnvVars[[name]] 1552s [00:52:32.126] } 1552s [00:52:32.126] if (length(args) > 0) 1552s [00:52:32.126] base::do.call(base::Sys.setenv, args = args) 1552s [00:52:32.126] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1552s [00:52:32.126] } 1552s [00:52:32.126] else { 1552s [00:52:32.126] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1552s [00:52:32.126] } 1552s [00:52:32.126] { 1552s [00:52:32.126] if (base::length(...future.futureOptionsAdded) > 1552s [00:52:32.126] 0L) { 1552s [00:52:32.126] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1552s [00:52:32.126] base::names(opts) <- ...future.futureOptionsAdded 1552s [00:52:32.126] base::options(opts) 1552s [00:52:32.126] } 1552s [00:52:32.126] { 1552s [00:52:32.126] { 1552s [00:52:32.126] NULL 1552s [00:52:32.126] RNGkind("Mersenne-Twister") 1552s [00:52:32.126] base::rm(list = ".Random.seed", envir = base::globalenv(), 1552s [00:52:32.126] inherits = FALSE) 1552s [00:52:32.126] } 1552s [00:52:32.126] options(future.plan = NULL) 1552s [00:52:32.126] if (is.na(NA_character_)) 1552s [00:52:32.126] Sys.unsetenv("R_FUTURE_PLAN") 1552s [00:52:32.126] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1552s [00:52:32.126] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1552s [00:52:32.126] envir = parent.frame()) 1552s [00:52:32.126] { 1552s [00:52:32.126] default_workers <- missing(workers) 1552s [00:52:32.126] if (is.function(workers)) 1552s [00:52:32.126] workers <- workers() 1552s [00:52:32.126] workers <- structure(as.integer(workers), 1552s [00:52:32.126] class = class(workers)) 1552s [00:52:32.126] stop_if_not(is.finite(workers), workers >= 1552s [00:52:32.126] 1L) 1552s [00:52:32.126] if ((workers == 1L && !inherits(workers, 1552s [00:52:32.126] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1552s [00:52:32.126] if (default_workers) 1552s [00:52:32.126] supportsMulticore(warn = TRUE) 1552s [00:52:32.126] return(sequential(..., envir = envir)) 1552s [00:52:32.126] } 1552s [00:52:32.126] oopts <- options(mc.cores = workers) 1552s [00:52:32.126] on.exit(options(oopts)) 1552s [00:52:32.126] future <- MulticoreFuture(..., workers = workers, 1552s [00:52:32.126] envir = envir) 1552s [00:52:32.126] if (!future$lazy) 1552s [00:52:32.126] future <- run(future) 1552s [00:52:32.126] invisible(future) 1552s [00:52:32.126] }), .cleanup = FALSE, .init = FALSE) 1552s [00:52:32.126] } 1552s [00:52:32.126] } 1552s [00:52:32.126] } 1552s [00:52:32.126] }) 1552s [00:52:32.126] if (TRUE) { 1552s [00:52:32.126] base::sink(type = "output", split = FALSE) 1552s [00:52:32.126] if (TRUE) { 1552s [00:52:32.126] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1552s [00:52:32.126] } 1552s [00:52:32.126] else { 1552s [00:52:32.126] ...future.result["stdout"] <- base::list(NULL) 1552s [00:52:32.126] } 1552s [00:52:32.126] base::close(...future.stdout) 1552s [00:52:32.126] ...future.stdout <- NULL 1552s [00:52:32.126] } 1552s [00:52:32.126] ...future.result$conditions <- ...future.conditions 1552s [00:52:32.126] ...future.result$finished <- base::Sys.time() 1552s [00:52:32.126] ...future.result 1552s [00:52:32.126] } 1552s [00:52:32.135] assign_globals() ... 1552s [00:52:32.135] List of 5 1552s [00:52:32.135] $ ...future.FUN :function (mode = "logical", length = 0L) 1552s [00:52:32.135] $ future.call.arguments :List of 1 1552s [00:52:32.135] ..$ length: int 2 1552s [00:52:32.135] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1552s [00:52:32.135] $ ...future.elements_ii :List of 1 1552s [00:52:32.135] ..$ c: chr "character" 1552s [00:52:32.135] $ ...future.seeds_ii : NULL 1552s [00:52:32.135] $ ...future.globals.maxSize: NULL 1552s [00:52:32.135] - attr(*, "where")=List of 5 1552s [00:52:32.135] ..$ ...future.FUN : 1552s [00:52:32.135] ..$ future.call.arguments : 1552s [00:52:32.135] ..$ ...future.elements_ii : 1552s [00:52:32.135] ..$ ...future.seeds_ii : 1552s [00:52:32.135] ..$ ...future.globals.maxSize: 1552s [00:52:32.135] - attr(*, "resolved")= logi FALSE 1552s [00:52:32.135] - attr(*, "total_size")= num 2240 1552s [00:52:32.135] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1552s [00:52:32.135] - attr(*, "already-done")= logi TRUE 1552s [00:52:32.146] - copied ‘...future.FUN’ to environment 1552s [00:52:32.147] - copied ‘future.call.arguments’ to environment 1552s [00:52:32.147] - copied ‘...future.elements_ii’ to environment 1552s [00:52:32.147] - copied ‘...future.seeds_ii’ to environment 1552s [00:52:32.147] - copied ‘...future.globals.maxSize’ to environment 1552s [00:52:32.148] assign_globals() ... done 1552s [00:52:32.148] plan(): Setting new future strategy stack: 1552s [00:52:32.148] List of future strategies: 1552s [00:52:32.148] 1. sequential: 1552s [00:52:32.148] - args: function (..., envir = parent.frame()) 1552s [00:52:32.148] - tweaked: FALSE 1552s [00:52:32.148] - call: NULL 1552s [00:52:32.149] plan(): nbrOfWorkers() = 1 1552s [00:52:32.151] plan(): Setting new future strategy stack: 1552s [00:52:32.151] List of future strategies: 1552s [00:52:32.151] 1. multicore: 1552s [00:52:32.151] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1552s [00:52:32.151] - tweaked: FALSE 1552s [00:52:32.151] - call: plan(strategy) 1552s [00:52:32.159] plan(): nbrOfWorkers() = 1 1552s [00:52:32.159] SequentialFuture started (and completed) 1552s [00:52:32.160] - Launch lazy future ... done 1552s [00:52:32.160] run() for ‘SequentialFuture’ ... done 1552s [00:52:32.161] Created future: 1552s [00:52:32.161] SequentialFuture: 1552s [00:52:32.161] Label: ‘future_lapply-3’ 1552s [00:52:32.161] Expression: 1552s [00:52:32.161] { 1552s [00:52:32.161] do.call(function(...) { 1552s [00:52:32.161] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1552s [00:52:32.161] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1552s [00:52:32.161] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1552s [00:52:32.161] on.exit(options(oopts), add = TRUE) 1552s [00:52:32.161] } 1552s [00:52:32.161] { 1552s [00:52:32.161] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1552s [00:52:32.161] ...future.X_jj <- ...future.elements_ii[[jj]] 1552s [00:52:32.161] ...future.FUN(...future.X_jj, ...) 1552s [00:52:32.161] }) 1552s [00:52:32.161] } 1552s [00:52:32.161] }, args = future.call.arguments) 1552s [00:52:32.161] } 1552s [00:52:32.161] Lazy evaluation: FALSE 1552s [00:52:32.161] Asynchronous evaluation: FALSE 1552s [00:52:32.161] Local evaluation: TRUE 1552s [00:52:32.161] Environment: R_GlobalEnv 1552s [00:52:32.161] Capture standard output: TRUE 1552s [00:52:32.161] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1552s [00:52:32.161] Globals: 5 objects totaling 2.30 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 120 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1552s [00:52:32.161] Packages: 1552s [00:52:32.161] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1552s [00:52:32.161] Resolved: TRUE 1552s [00:52:32.161] Value: 120 bytes of class ‘list’ 1552s [00:52:32.161] Early signaling: FALSE 1552s [00:52:32.161] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1552s [00:52:32.161] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1552s [00:52:32.172] Chunk #3 of 4 ... DONE 1552s [00:52:32.173] Chunk #4 of 4 ... 1552s [00:52:32.173] - Finding globals in 'X' for chunk #4 ... 1552s [00:52:32.173] getGlobalsAndPackages() ... 1552s [00:52:32.173] Searching for globals... 1552s [00:52:32.174] 1552s [00:52:32.174] Searching for globals ... DONE 1552s [00:52:32.175] - globals: [0] 1552s [00:52:32.175] getGlobalsAndPackages() ... DONE 1552s [00:52:32.175] + additional globals found: [n=0] 1552s [00:52:32.176] + additional namespaces needed: [n=0] 1552s [00:52:32.176] - Finding globals in 'X' for chunk #4 ... DONE 1552s [00:52:32.176] - Adjusted option 'future.globals.maxSize': 524288000 -> 4 * 524288000 = 2097152000 (bytes) 1552s [00:52:32.176] - seeds: 1552s [00:52:32.176] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1552s [00:52:32.177] getGlobalsAndPackages() ... 1552s [00:52:32.177] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1552s [00:52:32.177] Resolving globals: FALSE 1552s [00:52:32.177] Tweak future expression to call with '...' arguments ... 1552s [00:52:32.178] { 1552s [00:52:32.178] do.call(function(...) { 1552s [00:52:32.178] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1552s [00:52:32.178] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1552s [00:52:32.178] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1552s [00:52:32.178] on.exit(options(oopts), add = TRUE) 1552s [00:52:32.178] } 1552s [00:52:32.178] { 1552s [00:52:32.178] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1552s [00:52:32.178] ...future.X_jj <- ...future.elements_ii[[jj]] 1552s [00:52:32.178] ...future.FUN(...future.X_jj, ...) 1552s [00:52:32.178] }) 1552s [00:52:32.178] } 1552s [00:52:32.178] }, args = future.call.arguments) 1552s [00:52:32.178] } 1552s [00:52:32.178] Tweak future expression to call with '...' arguments ... DONE 1552s [00:52:32.179] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1552s [00:52:32.179] 1552s [00:52:32.179] getGlobalsAndPackages() ... DONE 1552s [00:52:32.180] run() for ‘Future’ ... 1552s [00:52:32.180] - state: ‘created’ 1552s [00:52:32.181] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1552s [00:52:32.186] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1552s [00:52:32.186] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1552s [00:52:32.186] - Field: ‘label’ 1552s [00:52:32.186] - Field: ‘local’ 1552s [00:52:32.186] - Field: ‘owner’ 1552s [00:52:32.187] - Field: ‘envir’ 1552s [00:52:32.187] - Field: ‘packages’ 1552s [00:52:32.187] - Field: ‘gc’ 1552s [00:52:32.187] - Field: ‘conditions’ 1552s [00:52:32.187] - Field: ‘expr’ 1552s [00:52:32.188] - Field: ‘uuid’ 1552s [00:52:32.188] - Field: ‘seed’ 1552s [00:52:32.188] - Field: ‘version’ 1552s [00:52:32.188] - Field: ‘result’ 1552s [00:52:32.188] - Field: ‘asynchronous’ 1552s [00:52:32.188] - Field: ‘calls’ 1552s [00:52:32.189] - Field: ‘globals’ 1552s [00:52:32.189] - Field: ‘stdout’ 1552s [00:52:32.189] - Field: ‘earlySignal’ 1552s [00:52:32.190] - Field: ‘lazy’ 1552s [00:52:32.190] - Field: ‘state’ 1552s [00:52:32.190] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1552s [00:52:32.190] - Launch lazy future ... 1552s [00:52:32.190] Packages needed by the future expression (n = 0): 1552s [00:52:32.191] Packages needed by future strategies (n = 0): 1552s [00:52:32.191] { 1552s [00:52:32.191] { 1552s [00:52:32.191] { 1552s [00:52:32.191] ...future.startTime <- base::Sys.time() 1552s [00:52:32.191] { 1552s [00:52:32.191] { 1552s [00:52:32.191] { 1552s [00:52:32.191] base::local({ 1552s [00:52:32.191] has_future <- base::requireNamespace("future", 1552s [00:52:32.191] quietly = TRUE) 1552s [00:52:32.191] if (has_future) { 1552s [00:52:32.191] ns <- base::getNamespace("future") 1552s [00:52:32.191] version <- ns[[".package"]][["version"]] 1552s [00:52:32.191] if (is.null(version)) 1552s [00:52:32.191] version <- utils::packageVersion("future") 1552s [00:52:32.191] } 1552s [00:52:32.191] else { 1552s [00:52:32.191] version <- NULL 1552s [00:52:32.191] } 1552s [00:52:32.191] if (!has_future || version < "1.8.0") { 1552s [00:52:32.191] info <- base::c(r_version = base::gsub("R version ", 1552s [00:52:32.191] "", base::R.version$version.string), 1552s [00:52:32.191] platform = base::sprintf("%s (%s-bit)", 1552s [00:52:32.191] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1552s [00:52:32.191] os = base::paste(base::Sys.info()[base::c("sysname", 1552s [00:52:32.191] "release", "version")], collapse = " "), 1552s [00:52:32.191] hostname = base::Sys.info()[["nodename"]]) 1552s [00:52:32.191] info <- base::sprintf("%s: %s", base::names(info), 1552s [00:52:32.191] info) 1552s [00:52:32.191] info <- base::paste(info, collapse = "; ") 1552s [00:52:32.191] if (!has_future) { 1552s [00:52:32.191] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1552s [00:52:32.191] info) 1552s [00:52:32.191] } 1552s [00:52:32.191] else { 1552s [00:52:32.191] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1552s [00:52:32.191] info, version) 1552s [00:52:32.191] } 1552s [00:52:32.191] base::stop(msg) 1552s [00:52:32.191] } 1552s [00:52:32.191] }) 1552s [00:52:32.191] } 1552s [00:52:32.191] options(future.plan = NULL) 1552s [00:52:32.191] Sys.unsetenv("R_FUTURE_PLAN") 1552s [00:52:32.191] future::plan("default", .cleanup = FALSE, .init = FALSE) 1552s [00:52:32.191] } 1552s [00:52:32.191] ...future.workdir <- getwd() 1552s [00:52:32.191] } 1552s [00:52:32.191] ...future.oldOptions <- base::as.list(base::.Options) 1552s [00:52:32.191] ...future.oldEnvVars <- base::Sys.getenv() 1552s [00:52:32.191] } 1552s [00:52:32.191] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1552s [00:52:32.191] future.globals.maxSize = 2097152000, future.globals.method = NULL, 1552s [00:52:32.191] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1552s [00:52:32.191] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1552s [00:52:32.191] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1552s [00:52:32.191] future.stdout.windows.reencode = NULL, width = 80L) 1552s [00:52:32.191] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1552s [00:52:32.191] base::names(...future.oldOptions)) 1552s [00:52:32.191] } 1552s [00:52:32.191] if (FALSE) { 1552s [00:52:32.191] } 1552s [00:52:32.191] else { 1552s [00:52:32.191] if (TRUE) { 1552s [00:52:32.191] ...future.stdout <- base::rawConnection(base::raw(0L), 1552s [00:52:32.191] open = "w") 1552s [00:52:32.191] } 1552s [00:52:32.191] else { 1552s [00:52:32.191] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1552s [00:52:32.191] windows = "NUL", "/dev/null"), open = "w") 1552s [00:52:32.191] } 1552s [00:52:32.191] base::sink(...future.stdout, type = "output", split = FALSE) 1552s [00:52:32.191] base::on.exit(if (!base::is.null(...future.stdout)) { 1552s [00:52:32.191] base::sink(type = "output", split = FALSE) 1552s [00:52:32.191] base::close(...future.stdout) 1552s [00:52:32.191] }, add = TRUE) 1552s [00:52:32.191] } 1552s [00:52:32.191] ...future.frame <- base::sys.nframe() 1552s [00:52:32.191] ...future.conditions <- base::list() 1552s [00:52:32.191] ...future.rng <- base::globalenv()$.Random.seed 1552s [00:52:32.191] if (FALSE) { 1552s [00:52:32.191] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1552s [00:52:32.191] "...future.value", "...future.globalenv.names", ".Random.seed") 1552s [00:52:32.191] } 1552s [00:52:32.191] ...future.result <- base::tryCatch({ 1552s [00:52:32.191] base::withCallingHandlers({ 1552s [00:52:32.191] ...future.value <- base::withVisible(base::local({ 1552s [00:52:32.191] do.call(function(...) { 1552s [00:52:32.191] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1552s [00:52:32.191] if (!identical(...future.globals.maxSize.org, 1552s [00:52:32.191] ...future.globals.maxSize)) { 1552s [00:52:32.191] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1552s [00:52:32.191] on.exit(options(oopts), add = TRUE) 1552s [00:52:32.191] } 1552s [00:52:32.191] { 1552s [00:52:32.191] lapply(seq_along(...future.elements_ii), 1552s [00:52:32.191] FUN = function(jj) { 1552s [00:52:32.191] ...future.X_jj <- ...future.elements_ii[[jj]] 1552s [00:52:32.191] ...future.FUN(...future.X_jj, ...) 1552s [00:52:32.191] }) 1552s [00:52:32.191] } 1552s [00:52:32.191] }, args = future.call.arguments) 1552s [00:52:32.191] })) 1552s [00:52:32.191] future::FutureResult(value = ...future.value$value, 1552s [00:52:32.191] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1552s [00:52:32.191] ...future.rng), globalenv = if (FALSE) 1552s [00:52:32.191] list(added = base::setdiff(base::names(base::.GlobalEnv), 1552s [00:52:32.191] ...future.globalenv.names)) 1552s [00:52:32.191] else NULL, started = ...future.startTime, version = "1.8") 1552s [00:52:32.191] }, condition = base::local({ 1552s [00:52:32.191] c <- base::c 1552s [00:52:32.191] inherits <- base::inherits 1552s [00:52:32.191] invokeRestart <- base::invokeRestart 1552s [00:52:32.191] length <- base::length 1552s [00:52:32.191] list <- base::list 1552s [00:52:32.191] seq.int <- base::seq.int 1552s [00:52:32.191] signalCondition <- base::signalCondition 1552s [00:52:32.191] sys.calls <- base::sys.calls 1552s [00:52:32.191] `[[` <- base::`[[` 1552s [00:52:32.191] `+` <- base::`+` 1552s [00:52:32.191] `<<-` <- base::`<<-` 1552s [00:52:32.191] sysCalls <- function(calls = sys.calls(), from = 1L) { 1552s [00:52:32.191] calls[seq.int(from = from + 12L, to = length(calls) - 1552s [00:52:32.191] 3L)] 1552s [00:52:32.191] } 1552s [00:52:32.191] function(cond) { 1552s [00:52:32.191] is_error <- inherits(cond, "error") 1552s [00:52:32.191] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1552s [00:52:32.191] NULL) 1552s [00:52:32.191] if (is_error) { 1552s [00:52:32.191] sessionInformation <- function() { 1552s [00:52:32.191] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1552s [00:52:32.191] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1552s [00:52:32.191] search = base::search(), system = base::Sys.info()) 1552s [00:52:32.191] } 1552s [00:52:32.191] ...future.conditions[[length(...future.conditions) + 1552s [00:52:32.191] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1552s [00:52:32.191] cond$call), session = sessionInformation(), 1552s [00:52:32.191] timestamp = base::Sys.time(), signaled = 0L) 1552s [00:52:32.191] signalCondition(cond) 1552s [00:52:32.191] } 1552s [00:52:32.191] else if (!ignore && TRUE && inherits(cond, c("condition", 1552s [00:52:32.191] "immediateCondition"))) { 1552s [00:52:32.191] signal <- TRUE && inherits(cond, "immediateCondition") 1552s [00:52:32.191] ...future.conditions[[length(...future.conditions) + 1552s [00:52:32.191] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1552s [00:52:32.191] if (TRUE && !signal) { 1552s [00:52:32.191] muffleCondition <- function (cond, pattern = "^muffle") 1552s [00:52:32.191] { 1552s [00:52:32.191] inherits <- base::inherits 1552s [00:52:32.191] invokeRestart <- base::invokeRestart 1552s [00:52:32.191] is.null <- base::is.null 1552s [00:52:32.191] muffled <- FALSE 1552s [00:52:32.191] if (inherits(cond, "message")) { 1552s [00:52:32.191] muffled <- grepl(pattern, "muffleMessage") 1552s [00:52:32.191] if (muffled) 1552s [00:52:32.191] invokeRestart("muffleMessage") 1552s [00:52:32.191] } 1552s [00:52:32.191] else if (inherits(cond, "warning")) { 1552s [00:52:32.191] muffled <- grepl(pattern, "muffleWarning") 1552s [00:52:32.191] if (muffled) 1552s [00:52:32.191] invokeRestart("muffleWarning") 1552s [00:52:32.191] } 1552s [00:52:32.191] else if (inherits(cond, "condition")) { 1552s [00:52:32.191] if (!is.null(pattern)) { 1552s [00:52:32.191] computeRestarts <- base::computeRestarts 1552s [00:52:32.191] grepl <- base::grepl 1552s [00:52:32.191] restarts <- computeRestarts(cond) 1552s [00:52:32.191] for (restart in restarts) { 1552s [00:52:32.191] name <- restart$name 1552s [00:52:32.191] if (is.null(name)) 1552s [00:52:32.191] next 1552s [00:52:32.191] if (!grepl(pattern, name)) 1552s [00:52:32.191] next 1552s [00:52:32.191] invokeRestart(restart) 1552s [00:52:32.191] muffled <- TRUE 1552s [00:52:32.191] break 1552s [00:52:32.191] } 1552s [00:52:32.191] } 1552s [00:52:32.191] } 1552s [00:52:32.191] invisible(muffled) 1552s [00:52:32.191] } 1552s [00:52:32.191] muffleCondition(cond, pattern = "^muffle") 1552s [00:52:32.191] } 1552s [00:52:32.191] } 1552s [00:52:32.191] else { 1552s [00:52:32.191] if (TRUE) { 1552s [00:52:32.191] muffleCondition <- function (cond, pattern = "^muffle") 1552s [00:52:32.191] { 1552s [00:52:32.191] inherits <- base::inherits 1552s [00:52:32.191] invokeRestart <- base::invokeRestart 1552s [00:52:32.191] is.null <- base::is.null 1552s [00:52:32.191] muffled <- FALSE 1552s [00:52:32.191] if (inherits(cond, "message")) { 1552s [00:52:32.191] muffled <- grepl(pattern, "muffleMessage") 1552s [00:52:32.191] if (muffled) 1552s [00:52:32.191] invokeRestart("muffleMessage") 1552s [00:52:32.191] } 1552s [00:52:32.191] else if (inherits(cond, "warning")) { 1552s [00:52:32.191] muffled <- grepl(pattern, "muffleWarning") 1552s [00:52:32.191] if (muffled) 1552s [00:52:32.191] invokeRestart("muffleWarning") 1552s [00:52:32.191] } 1552s [00:52:32.191] else if (inherits(cond, "condition")) { 1552s [00:52:32.191] if (!is.null(pattern)) { 1552s [00:52:32.191] computeRestarts <- base::computeRestarts 1552s [00:52:32.191] grepl <- base::grepl 1552s [00:52:32.191] restarts <- computeRestarts(cond) 1552s [00:52:32.191] for (restart in restarts) { 1552s [00:52:32.191] name <- restart$name 1552s [00:52:32.191] if (is.null(name)) 1552s [00:52:32.191] next 1552s [00:52:32.191] if (!grepl(pattern, name)) 1552s [00:52:32.191] next 1552s [00:52:32.191] invokeRestart(restart) 1552s [00:52:32.191] muffled <- TRUE 1552s [00:52:32.191] break 1552s [00:52:32.191] } 1552s [00:52:32.191] } 1552s [00:52:32.191] } 1552s [00:52:32.191] invisible(muffled) 1552s [00:52:32.191] } 1552s [00:52:32.191] muffleCondition(cond, pattern = "^muffle") 1552s [00:52:32.191] } 1552s [00:52:32.191] } 1552s [00:52:32.191] } 1552s [00:52:32.191] })) 1552s [00:52:32.191] }, error = function(ex) { 1552s [00:52:32.191] base::structure(base::list(value = NULL, visible = NULL, 1552s [00:52:32.191] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1552s [00:52:32.191] ...future.rng), started = ...future.startTime, 1552s [00:52:32.191] finished = Sys.time(), session_uuid = NA_character_, 1552s [00:52:32.191] version = "1.8"), class = "FutureResult") 1552s [00:52:32.191] }, finally = { 1552s [00:52:32.191] if (!identical(...future.workdir, getwd())) 1552s [00:52:32.191] setwd(...future.workdir) 1552s [00:52:32.191] { 1552s [00:52:32.191] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1552s [00:52:32.191] ...future.oldOptions$nwarnings <- NULL 1552s [00:52:32.191] } 1552s [00:52:32.191] base::options(...future.oldOptions) 1552s [00:52:32.191] if (.Platform$OS.type == "windows") { 1552s [00:52:32.191] old_names <- names(...future.oldEnvVars) 1552s [00:52:32.191] envs <- base::Sys.getenv() 1552s [00:52:32.191] names <- names(envs) 1552s [00:52:32.191] common <- intersect(names, old_names) 1552s [00:52:32.191] added <- setdiff(names, old_names) 1552s [00:52:32.191] removed <- setdiff(old_names, names) 1552s [00:52:32.191] changed <- common[...future.oldEnvVars[common] != 1552s [00:52:32.191] envs[common]] 1552s [00:52:32.191] NAMES <- toupper(changed) 1552s [00:52:32.191] args <- list() 1552s [00:52:32.191] for (kk in seq_along(NAMES)) { 1552s [00:52:32.191] name <- changed[[kk]] 1552s [00:52:32.191] NAME <- NAMES[[kk]] 1552s [00:52:32.191] if (name != NAME && is.element(NAME, old_names)) 1552s [00:52:32.191] next 1552s [00:52:32.191] args[[name]] <- ...future.oldEnvVars[[name]] 1552s [00:52:32.191] } 1552s [00:52:32.191] NAMES <- toupper(added) 1552s [00:52:32.191] for (kk in seq_along(NAMES)) { 1552s [00:52:32.191] name <- added[[kk]] 1552s [00:52:32.191] NAME <- NAMES[[kk]] 1552s [00:52:32.191] if (name != NAME && is.element(NAME, old_names)) 1552s [00:52:32.191] next 1552s [00:52:32.191] args[[name]] <- "" 1552s [00:52:32.191] } 1552s [00:52:32.191] NAMES <- toupper(removed) 1552s [00:52:32.191] for (kk in seq_along(NAMES)) { 1552s [00:52:32.191] name <- removed[[kk]] 1552s [00:52:32.191] NAME <- NAMES[[kk]] 1552s [00:52:32.191] if (name != NAME && is.element(NAME, old_names)) 1552s [00:52:32.191] next 1552s [00:52:32.191] args[[name]] <- ...future.oldEnvVars[[name]] 1552s [00:52:32.191] } 1552s [00:52:32.191] if (length(args) > 0) 1552s [00:52:32.191] base::do.call(base::Sys.setenv, args = args) 1552s [00:52:32.191] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1552s [00:52:32.191] } 1552s [00:52:32.191] else { 1552s [00:52:32.191] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1552s [00:52:32.191] } 1552s [00:52:32.191] { 1552s [00:52:32.191] if (base::length(...future.futureOptionsAdded) > 1552s [00:52:32.191] 0L) { 1552s [00:52:32.191] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1552s [00:52:32.191] base::names(opts) <- ...future.futureOptionsAdded 1552s [00:52:32.191] base::options(opts) 1552s [00:52:32.191] } 1552s [00:52:32.191] { 1552s [00:52:32.191] { 1552s [00:52:32.191] NULL 1552s [00:52:32.191] RNGkind("Mersenne-Twister") 1552s [00:52:32.191] base::rm(list = ".Random.seed", envir = base::globalenv(), 1552s [00:52:32.191] inherits = FALSE) 1552s [00:52:32.191] } 1552s [00:52:32.191] options(future.plan = NULL) 1552s [00:52:32.191] if (is.na(NA_character_)) 1552s [00:52:32.191] Sys.unsetenv("R_FUTURE_PLAN") 1552s [00:52:32.191] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1552s [00:52:32.191] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1552s [00:52:32.191] envir = parent.frame()) 1552s [00:52:32.191] { 1552s [00:52:32.191] default_workers <- missing(workers) 1552s [00:52:32.191] if (is.function(workers)) 1552s [00:52:32.191] workers <- workers() 1552s [00:52:32.191] workers <- structure(as.integer(workers), 1552s [00:52:32.191] class = class(workers)) 1552s [00:52:32.191] stop_if_not(is.finite(workers), workers >= 1552s [00:52:32.191] 1L) 1552s [00:52:32.191] if ((workers == 1L && !inherits(workers, 1552s [00:52:32.191] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1552s [00:52:32.191] if (default_workers) 1552s [00:52:32.191] supportsMulticore(warn = TRUE) 1552s [00:52:32.191] return(sequential(..., envir = envir)) 1552s [00:52:32.191] } 1552s [00:52:32.191] oopts <- options(mc.cores = workers) 1552s [00:52:32.191] on.exit(options(oopts)) 1552s [00:52:32.191] future <- MulticoreFuture(..., workers = workers, 1552s [00:52:32.191] envir = envir) 1552s [00:52:32.191] if (!future$lazy) 1552s [00:52:32.191] future <- run(future) 1552s [00:52:32.191] invisible(future) 1552s [00:52:32.191] }), .cleanup = FALSE, .init = FALSE) 1552s [00:52:32.191] } 1552s [00:52:32.191] } 1552s [00:52:32.191] } 1552s [00:52:32.191] }) 1552s [00:52:32.191] if (TRUE) { 1552s [00:52:32.191] base::sink(type = "output", split = FALSE) 1552s [00:52:32.191] if (TRUE) { 1552s [00:52:32.191] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1552s [00:52:32.191] } 1552s [00:52:32.191] else { 1552s [00:52:32.191] ...future.result["stdout"] <- base::list(NULL) 1552s [00:52:32.191] } 1552s [00:52:32.191] base::close(...future.stdout) 1552s [00:52:32.191] ...future.stdout <- NULL 1552s [00:52:32.191] } 1552s [00:52:32.191] ...future.result$conditions <- ...future.conditions 1552s [00:52:32.191] ...future.result$finished <- base::Sys.time() 1552s [00:52:32.191] ...future.result 1552s [00:52:32.191] } 1552s [00:52:32.195] assign_globals() ... 1552s [00:52:32.195] List of 5 1552s [00:52:32.195] $ ...future.FUN :function (mode = "logical", length = 0L) 1552s [00:52:32.195] $ future.call.arguments :List of 1 1552s [00:52:32.195] ..$ length: int 2 1552s [00:52:32.195] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1552s [00:52:32.195] $ ...future.elements_ii :List of 1 1552s [00:52:32.195] ..$ c: chr "list" 1552s [00:52:32.195] $ ...future.seeds_ii : NULL 1552s [00:52:32.195] $ ...future.globals.maxSize: NULL 1552s [00:52:32.195] - attr(*, "where")=List of 5 1552s [00:52:32.195] ..$ ...future.FUN : 1552s [00:52:32.195] ..$ future.call.arguments : 1552s [00:52:32.195] ..$ ...future.elements_ii : 1552s [00:52:32.195] ..$ ...future.seeds_ii : 1552s [00:52:32.195] ..$ ...future.globals.maxSize: 1552s [00:52:32.195] - attr(*, "resolved")= logi FALSE 1552s [00:52:32.195] - attr(*, "total_size")= num 2240 1552s [00:52:32.195] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1552s [00:52:32.195] - attr(*, "already-done")= logi TRUE 1552s [00:52:32.203] - copied ‘...future.FUN’ to environment 1552s [00:52:32.204] - copied ‘future.call.arguments’ to environment 1552s [00:52:32.204] - copied ‘...future.elements_ii’ to environment 1552s [00:52:32.204] - copied ‘...future.seeds_ii’ to environment 1552s [00:52:32.204] - copied ‘...future.globals.maxSize’ to environment 1552s [00:52:32.204] assign_globals() ... done 1552s [00:52:32.205] plan(): Setting new future strategy stack: 1552s [00:52:32.205] List of future strategies: 1552s [00:52:32.205] 1. sequential: 1552s [00:52:32.205] - args: function (..., envir = parent.frame()) 1552s [00:52:32.205] - tweaked: FALSE 1552s [00:52:32.205] - call: NULL 1552s [00:52:32.205] plan(): nbrOfWorkers() = 1 1552s [00:52:32.206] plan(): Setting new future strategy stack: 1552s [00:52:32.207] List of future strategies: 1552s [00:52:32.207] 1. multicore: 1552s [00:52:32.207] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1552s [00:52:32.207] - tweaked: FALSE 1552s [00:52:32.207] - call: plan(strategy) 1552s [00:52:32.212] plan(): nbrOfWorkers() = 1 1552s [00:52:32.212] SequentialFuture started (and completed) 1552s [00:52:32.212] - Launch lazy future ... done 1552s [00:52:32.212] run() for ‘SequentialFuture’ ... done 1552s [00:52:32.212] Created future: 1552s [00:52:32.213] SequentialFuture: 1552s [00:52:32.213] Label: ‘future_lapply-4’ 1552s [00:52:32.213] Expression: 1552s [00:52:32.213] { 1552s [00:52:32.213] do.call(function(...) { 1552s [00:52:32.213] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1552s [00:52:32.213] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1552s [00:52:32.213] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1552s [00:52:32.213] on.exit(options(oopts), add = TRUE) 1552s [00:52:32.213] } 1552s [00:52:32.213] { 1552s [00:52:32.213] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1552s [00:52:32.213] ...future.X_jj <- ...future.elements_ii[[jj]] 1552s [00:52:32.213] ...future.FUN(...future.X_jj, ...) 1552s [00:52:32.213] }) 1552s [00:52:32.213] } 1552s [00:52:32.213] }, args = future.call.arguments) 1552s [00:52:32.213] } 1552s [00:52:32.213] Lazy evaluation: FALSE 1552s [00:52:32.213] Asynchronous evaluation: FALSE 1552s [00:52:32.213] Local evaluation: TRUE 1552s [00:52:32.213] Environment: R_GlobalEnv 1552s [00:52:32.213] Capture standard output: TRUE 1552s [00:52:32.213] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1552s [00:52:32.213] Globals: 5 objects totaling 2.30 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1552s [00:52:32.213] Packages: 1552s [00:52:32.213] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1552s [00:52:32.213] Resolved: TRUE 1552s [00:52:32.213] Value: 0 bytes of class ‘list’ 1552s [00:52:32.213] Early signaling: FALSE 1552s [00:52:32.213] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1552s [00:52:32.213] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1552s [00:52:32.215] Chunk #4 of 4 ... DONE 1552s [00:52:32.215] Launching 4 futures (chunks) ... DONE 1552s [00:52:32.215] Resolving 4 futures (chunks) ... 1552s [00:52:32.216] resolve() on list ... 1552s [00:52:32.216] recursive: 0 1552s [00:52:32.216] length: 4 1552s [00:52:32.216] 1552s [00:52:32.217] resolved() for ‘SequentialFuture’ ... 1552s [00:52:32.217] - state: ‘finished’ 1552s [00:52:32.217] - run: TRUE 1552s [00:52:32.217] - result: ‘FutureResult’ 1552s [00:52:32.217] resolved() for ‘SequentialFuture’ ... done 1552s [00:52:32.218] Future #1 1552s [00:52:32.218] signalConditionsASAP(SequentialFuture, pos=1) ... 1552s [00:52:32.218] - nx: 4 1552s [00:52:32.218] - relay: TRUE 1552s [00:52:32.218] - stdout: TRUE 1552s [00:52:32.219] - signal: TRUE 1552s [00:52:32.219] - resignal: FALSE 1552s [00:52:32.219] - force: TRUE 1552s [00:52:32.219] - relayed: [n=4] FALSE, FALSE, FALSE, FALSE 1552s [00:52:32.219] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE 1552s [00:52:32.220] - until=1 1552s [00:52:32.220] - relaying element #1 1552s [00:52:32.220] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE 1552s [00:52:32.224] - queued futures: [n=4] TRUE, FALSE, FALSE, FALSE 1552s [00:52:32.224] signalConditionsASAP(SequentialFuture, pos=1) ... done 1552s [00:52:32.225] length: 3 (resolved future 1) 1552s [00:52:32.225] resolved() for ‘SequentialFuture’ ... 1552s [00:52:32.225] - state: ‘finished’ 1552s [00:52:32.225] - run: TRUE 1552s [00:52:32.225] - result: ‘FutureResult’ 1552s [00:52:32.226] resolved() for ‘SequentialFuture’ ... done 1552s [00:52:32.226] Future #2 1552s [00:52:32.226] signalConditionsASAP(SequentialFuture, pos=2) ... 1552s [00:52:32.226] - nx: 4 1552s [00:52:32.226] - relay: TRUE 1552s [00:52:32.226] - stdout: TRUE 1552s [00:52:32.227] - signal: TRUE 1552s [00:52:32.227] - resignal: FALSE 1552s [00:52:32.227] - force: TRUE 1552s [00:52:32.228] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE 1552s [00:52:32.228] - queued futures: [n=4] TRUE, FALSE, FALSE, FALSE 1552s [00:52:32.228] - until=2 1552s [00:52:32.228] - relaying element #2 1552s [00:52:32.228] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE 1552s [00:52:32.229] - queued futures: [n=4] TRUE, TRUE, FALSE, FALSE 1552s [00:52:32.229] signalConditionsASAP(SequentialFuture, pos=2) ... done 1552s [00:52:32.229] length: 2 (resolved future 2) 1552s [00:52:32.229] resolved() for ‘SequentialFuture’ ... 1552s [00:52:32.230] - state: ‘finished’ 1552s [00:52:32.230] - run: TRUE 1552s [00:52:32.230] - result: ‘FutureResult’ 1552s [00:52:32.230] resolved() for ‘SequentialFuture’ ... done 1552s [00:52:32.230] Future #3 1552s [00:52:32.230] signalConditionsASAP(SequentialFuture, pos=3) ... 1552s [00:52:32.231] - nx: 4 1552s [00:52:32.231] - relay: TRUE 1552s [00:52:32.231] - stdout: TRUE 1552s [00:52:32.232] - signal: TRUE 1552s [00:52:32.232] - resignal: FALSE 1552s [00:52:32.232] - force: TRUE 1552s [00:52:32.232] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE 1552s [00:52:32.232] - queued futures: [n=4] TRUE, TRUE, FALSE, FALSE 1552s [00:52:32.233] - until=3 1552s [00:52:32.233] - relaying element #3 1552s [00:52:32.233] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE 1552s [00:52:32.234] - queued futures: [n=4] TRUE, TRUE, TRUE, FALSE 1552s [00:52:32.234] signalConditionsASAP(SequentialFuture, pos=3) ... done 1552s [00:52:32.234] length: 1 (resolved future 3) 1552s [00:52:32.234] resolved() for ‘SequentialFuture’ ... 1552s [00:52:32.235] - state: ‘finished’ 1552s [00:52:32.235] - run: TRUE 1552s [00:52:32.235] - result: ‘FutureResult’ 1552s [00:52:32.235] resolved() for ‘SequentialFuture’ ... done 1552s [00:52:32.235] Future #4 1552s [00:52:32.236] signalConditionsASAP(SequentialFuture, pos=4) ... 1552s [00:52:32.236] - nx: 4 1552s [00:52:32.236] - relay: TRUE 1552s [00:52:32.236] - stdout: TRUE 1552s [00:52:32.236] - signal: TRUE 1552s [00:52:32.236] - resignal: FALSE 1552s [00:52:32.237] - force: TRUE 1552s [00:52:32.237] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE 1552s [00:52:32.237] - queued futures: [n=4] TRUE, TRUE, TRUE, FALSE 1552s [00:52:32.237] - until=4 1552s [00:52:32.237] - relaying element #4 1552s [00:52:32.238] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE 1552s [00:52:32.238] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE 1552s [00:52:32.238] signalConditionsASAP(SequentialFuture, pos=4) ... done 1552s [00:52:32.238] length: 0 (resolved future 4) 1552s [00:52:32.238] Relaying remaining futures 1552s [00:52:32.239] signalConditionsASAP(NULL, pos=0) ... 1552s [00:52:32.239] - nx: 4 1552s [00:52:32.239] - relay: TRUE 1552s [00:52:32.239] - stdout: TRUE 1552s [00:52:32.239] - signal: TRUE 1552s [00:52:32.240] - resignal: FALSE 1552s [00:52:32.240] - force: TRUE 1552s [00:52:32.240] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE 1552s [00:52:32.240] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE 1552s - flush all 1552s [00:52:32.241] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE 1552s [00:52:32.241] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE 1552s [00:52:32.241] signalConditionsASAP(NULL, pos=0) ... done 1552s [00:52:32.242] resolve() on list ... DONE 1552s [00:52:32.242] - Number of value chunks collected: 4 1552s [00:52:32.242] Resolving 4 futures (chunks) ... DONE 1552s [00:52:32.242] Reducing values from 4 chunks ... 1552s [00:52:32.242] - Number of values collected after concatenation: 4 1552s [00:52:32.243] - Number of values expected: 4 1552s [00:52:32.243] Reducing values from 4 chunks ... DONE 1552s [00:52:32.243] future_lapply() ... DONE 1552s List of - future_lapply(x, FUN = future:::hpaste, ...) ... 1552s 1 1552s $ y:List of 4 1552s ..$ a: int [1:2] 0 0 1552s ..$ b: num [1:2] 0 0 1552s ..$ c: chr [1:2] "" "" 1552s ..$ c:List of 2 1552s .. ..$ : NULL 1552s .. ..$ : NULL 1552s [00:52:32.247] future_lapply() ... 1552s [00:52:32.261] Number of chunks: 1 1552s [00:52:32.262] getGlobalsAndPackagesXApply() ... 1552s [00:52:32.262] - future.globals: TRUE 1552s [00:52:32.262] getGlobalsAndPackages() ... 1552s [00:52:32.265] Searching for globals... 1552s [00:52:32.278] - globals found: [22] ‘FUN’, ‘if’, ‘missing’, ‘is.finite’, ‘{’, ‘is.null’, ‘<-’, ‘paste’, ‘length’, ‘==’, ‘return’, ‘>’, ‘+’, ‘[’, ‘seq_len’, ‘rev’, ‘c’, ‘&&’, ‘!’, ‘:’, ‘(’, ‘-’ 1552s [00:52:32.279] Searching for globals ... DONE 1552s [00:52:32.279] Resolving globals: FALSE 1552s [00:52:32.280] The total size of the 1 globals is 69.62 KiB (71288 bytes) 1552s [00:52:32.281] The total size of the 1 globals exported for future expression (‘FUN(collapse = "; ", maxHead = 3L)’) is 69.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (69.62 KiB of class ‘function’) 1552s [00:52:32.281] - globals: [1] ‘FUN’ 1552s [00:52:32.281] - packages: [1] ‘future’ 1552s [00:52:32.282] getGlobalsAndPackages() ... DONE 1552s [00:52:32.282] - globals found/used: [n=1] ‘FUN’ 1552s [00:52:32.282] - needed namespaces: [n=1] ‘future’ 1552s [00:52:32.282] Finding globals ... DONE 1552s [00:52:32.283] - use_args: TRUE 1552s [00:52:32.283] - Getting '...' globals ... 1552s [00:52:32.283] resolve() on list ... 1552s [00:52:32.283] recursive: 0 1552s [00:52:32.283] length: 1 1552s [00:52:32.283] elements: ‘...’ 1552s [00:52:32.284] length: 0 (resolved future 1) 1552s [00:52:32.284] resolve() on list ... DONE 1552s [00:52:32.284] - '...' content: [n=2] ‘collapse’, ‘maxHead’ 1552s [00:52:32.284] List of 1 1552s [00:52:32.284] $ ...:List of 2 1552s [00:52:32.284] ..$ collapse: chr "; " 1552s [00:52:32.284] ..$ maxHead : int 3 1552s [00:52:32.284] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1552s [00:52:32.284] - attr(*, "where")=List of 1 1552s [00:52:32.284] ..$ ...: 1552s [00:52:32.284] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1552s [00:52:32.284] - attr(*, "resolved")= logi TRUE 1552s [00:52:32.284] - attr(*, "total_size")= num NA 1552s [00:52:32.289] - Getting '...' globals ... DONE 1552s [00:52:32.289] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1552s [00:52:32.289] List of 2 1552s [00:52:32.289] $ ...future.FUN:function (..., sep = "", collapse = ", ", lastCollapse = NULL, maxHead = if (missing(lastCollapse)) 3 else Inf, 1552s [00:52:32.289] maxTail = if (is.finite(maxHead)) 1 else Inf, abbreviate = "...") 1552s [00:52:32.289] $ ... :List of 2 1552s [00:52:32.289] ..$ collapse: chr "; " 1552s [00:52:32.289] ..$ maxHead : int 3 1552s [00:52:32.289] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1552s [00:52:32.289] - attr(*, "where")=List of 2 1552s [00:52:32.289] ..$ ...future.FUN: 1552s [00:52:32.289] ..$ ... : 1552s [00:52:32.289] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1552s [00:52:32.289] - attr(*, "resolved")= logi FALSE 1552s [00:52:32.289] - attr(*, "total_size")= num 71456 1552s [00:52:32.295] Packages to be attached in all futures: [n=1] ‘future’ 1552s [00:52:32.295] getGlobalsAndPackagesXApply() ... DONE 1552s [00:52:32.295] Number of futures (= number of chunks): 1 1552s [00:52:32.295] Launching 1 futures (chunks) ... 1552s [00:52:32.296] Chunk #1 of 1 ... 1552s [00:52:32.298] - Finding globals in 'X' for chunk #1 ... 1552s [00:52:32.298] getGlobalsAndPackages() ... 1552s [00:52:32.298] Searching for globals... 1552s [00:52:32.299] 1552s [00:52:32.299] Searching for globals ... DONE 1552s [00:52:32.299] - globals: [0] 1552s [00:52:32.299] getGlobalsAndPackages() ... DONE 1552s [00:52:32.300] + additional globals found: [n=0] 1552s [00:52:32.300] + additional namespaces needed: [n=0] 1552s [00:52:32.300] - Finding globals in 'X' for chunk #1 ... DONE 1552s [00:52:32.300] - seeds: 1552s [00:52:32.301] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1552s [00:52:32.301] getGlobalsAndPackages() ... 1552s [00:52:32.301] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1552s [00:52:32.301] Resolving globals: FALSE 1552s [00:52:32.302] Tweak future expression to call with '...' arguments ... 1552s [00:52:32.302] { 1552s [00:52:32.302] do.call(function(...) { 1552s [00:52:32.302] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1552s [00:52:32.302] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1552s [00:52:32.302] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1552s [00:52:32.302] on.exit(options(oopts), add = TRUE) 1552s [00:52:32.302] } 1552s [00:52:32.302] { 1552s [00:52:32.302] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1552s [00:52:32.302] ...future.X_jj <- ...future.elements_ii[[jj]] 1552s [00:52:32.302] ...future.FUN(...future.X_jj, ...) 1552s [00:52:32.302] }) 1552s [00:52:32.302] } 1552s [00:52:32.302] }, args = future.call.arguments) 1552s [00:52:32.302] } 1552s [00:52:32.302] Tweak future expression to call with '...' arguments ... DONE 1552s [00:52:32.303] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1552s [00:52:32.304] - packages: [1] ‘future’ 1552s [00:52:32.304] getGlobalsAndPackages() ... DONE 1552s [00:52:32.305] run() for ‘Future’ ... 1552s [00:52:32.305] - state: ‘created’ 1552s [00:52:32.305] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1552s [00:52:32.309] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1552s [00:52:32.309] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1552s [00:52:32.309] - Field: ‘label’ 1552s [00:52:32.309] - Field: ‘local’ 1552s [00:52:32.310] - Field: ‘owner’ 1552s [00:52:32.310] - Field: ‘envir’ 1552s [00:52:32.310] - Field: ‘packages’ 1552s [00:52:32.310] - Field: ‘gc’ 1552s [00:52:32.310] - Field: ‘conditions’ 1552s [00:52:32.311] - Field: ‘expr’ 1552s [00:52:32.311] - Field: ‘uuid’ 1552s [00:52:32.312] - Field: ‘seed’ 1552s [00:52:32.312] - Field: ‘version’ 1552s [00:52:32.312] - Field: ‘result’ 1552s [00:52:32.312] - Field: ‘asynchronous’ 1552s [00:52:32.312] - Field: ‘calls’ 1552s [00:52:32.313] - Field: ‘globals’ 1552s [00:52:32.313] - Field: ‘stdout’ 1552s [00:52:32.313] - Field: ‘earlySignal’ 1552s [00:52:32.313] - Field: ‘lazy’ 1552s [00:52:32.313] - Field: ‘state’ 1552s [00:52:32.313] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1552s [00:52:32.314] - Launch lazy future ... 1552s [00:52:32.314] Packages needed by the future expression (n = 1): ‘future’ 1552s [00:52:32.314] Packages needed by future strategies (n = 0): 1552s [00:52:32.315] { 1552s [00:52:32.315] { 1552s [00:52:32.315] { 1552s [00:52:32.315] ...future.startTime <- base::Sys.time() 1552s [00:52:32.315] { 1552s [00:52:32.315] { 1552s [00:52:32.315] { 1552s [00:52:32.315] { 1552s [00:52:32.315] base::local({ 1552s [00:52:32.315] has_future <- base::requireNamespace("future", 1552s [00:52:32.315] quietly = TRUE) 1552s [00:52:32.315] if (has_future) { 1552s [00:52:32.315] ns <- base::getNamespace("future") 1552s [00:52:32.315] version <- ns[[".package"]][["version"]] 1552s [00:52:32.315] if (is.null(version)) 1552s [00:52:32.315] version <- utils::packageVersion("future") 1552s [00:52:32.315] } 1552s [00:52:32.315] else { 1552s [00:52:32.315] version <- NULL 1552s [00:52:32.315] } 1552s [00:52:32.315] if (!has_future || version < "1.8.0") { 1552s [00:52:32.315] info <- base::c(r_version = base::gsub("R version ", 1552s [00:52:32.315] "", base::R.version$version.string), 1552s [00:52:32.315] platform = base::sprintf("%s (%s-bit)", 1552s [00:52:32.315] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1552s [00:52:32.315] os = base::paste(base::Sys.info()[base::c("sysname", 1552s [00:52:32.315] "release", "version")], collapse = " "), 1552s [00:52:32.315] hostname = base::Sys.info()[["nodename"]]) 1552s [00:52:32.315] info <- base::sprintf("%s: %s", base::names(info), 1552s [00:52:32.315] info) 1552s [00:52:32.315] info <- base::paste(info, collapse = "; ") 1552s [00:52:32.315] if (!has_future) { 1552s [00:52:32.315] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1552s [00:52:32.315] info) 1552s [00:52:32.315] } 1552s [00:52:32.315] else { 1552s [00:52:32.315] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1552s [00:52:32.315] info, version) 1552s [00:52:32.315] } 1552s [00:52:32.315] base::stop(msg) 1552s [00:52:32.315] } 1552s [00:52:32.315] }) 1552s [00:52:32.315] } 1552s [00:52:32.315] base::local({ 1552s [00:52:32.315] for (pkg in "future") { 1552s [00:52:32.315] base::loadNamespace(pkg) 1552s [00:52:32.315] base::library(pkg, character.only = TRUE) 1552s [00:52:32.315] } 1552s [00:52:32.315] }) 1552s [00:52:32.315] } 1552s [00:52:32.315] options(future.plan = NULL) 1552s [00:52:32.315] Sys.unsetenv("R_FUTURE_PLAN") 1552s [00:52:32.315] future::plan("default", .cleanup = FALSE, .init = FALSE) 1552s [00:52:32.315] } 1552s [00:52:32.315] ...future.workdir <- getwd() 1552s [00:52:32.315] } 1552s [00:52:32.315] ...future.oldOptions <- base::as.list(base::.Options) 1552s [00:52:32.315] ...future.oldEnvVars <- base::Sys.getenv() 1552s [00:52:32.315] } 1552s [00:52:32.315] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1552s [00:52:32.315] future.globals.maxSize = NULL, future.globals.method = NULL, 1552s [00:52:32.315] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1552s [00:52:32.315] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1552s [00:52:32.315] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1552s [00:52:32.315] future.stdout.windows.reencode = NULL, width = 80L) 1552s [00:52:32.315] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1552s [00:52:32.315] base::names(...future.oldOptions)) 1552s [00:52:32.315] } 1552s [00:52:32.315] if (FALSE) { 1552s [00:52:32.315] } 1552s [00:52:32.315] else { 1552s [00:52:32.315] if (TRUE) { 1552s [00:52:32.315] ...future.stdout <- base::rawConnection(base::raw(0L), 1552s [00:52:32.315] open = "w") 1552s [00:52:32.315] } 1552s [00:52:32.315] else { 1552s [00:52:32.315] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1552s [00:52:32.315] windows = "NUL", "/dev/null"), open = "w") 1552s [00:52:32.315] } 1552s [00:52:32.315] base::sink(...future.stdout, type = "output", split = FALSE) 1552s [00:52:32.315] base::on.exit(if (!base::is.null(...future.stdout)) { 1552s [00:52:32.315] base::sink(type = "output", split = FALSE) 1552s [00:52:32.315] base::close(...future.stdout) 1552s [00:52:32.315] }, add = TRUE) 1552s [00:52:32.315] } 1552s [00:52:32.315] ...future.frame <- base::sys.nframe() 1552s [00:52:32.315] ...future.conditions <- base::list() 1552s [00:52:32.315] ...future.rng <- base::globalenv()$.Random.seed 1552s [00:52:32.315] if (FALSE) { 1552s [00:52:32.315] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1552s [00:52:32.315] "...future.value", "...future.globalenv.names", ".Random.seed") 1552s [00:52:32.315] } 1552s [00:52:32.315] ...future.result <- base::tryCatch({ 1552s [00:52:32.315] base::withCallingHandlers({ 1552s [00:52:32.315] ...future.value <- base::withVisible(base::local({ 1552s [00:52:32.315] do.call(function(...) { 1552s [00:52:32.315] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1552s [00:52:32.315] if (!identical(...future.globals.maxSize.org, 1552s [00:52:32.315] ...future.globals.maxSize)) { 1552s [00:52:32.315] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1552s [00:52:32.315] on.exit(options(oopts), add = TRUE) 1552s [00:52:32.315] } 1552s [00:52:32.315] { 1552s [00:52:32.315] lapply(seq_along(...future.elements_ii), 1552s [00:52:32.315] FUN = function(jj) { 1552s [00:52:32.315] ...future.X_jj <- ...future.elements_ii[[jj]] 1552s [00:52:32.315] ...future.FUN(...future.X_jj, ...) 1552s [00:52:32.315] }) 1552s [00:52:32.315] } 1552s [00:52:32.315] }, args = future.call.arguments) 1552s [00:52:32.315] })) 1552s [00:52:32.315] future::FutureResult(value = ...future.value$value, 1552s [00:52:32.315] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1552s [00:52:32.315] ...future.rng), globalenv = if (FALSE) 1552s [00:52:32.315] list(added = base::setdiff(base::names(base::.GlobalEnv), 1552s [00:52:32.315] ...future.globalenv.names)) 1552s [00:52:32.315] else NULL, started = ...future.startTime, version = "1.8") 1552s [00:52:32.315] }, condition = base::local({ 1552s [00:52:32.315] c <- base::c 1552s [00:52:32.315] inherits <- base::inherits 1552s [00:52:32.315] invokeRestart <- base::invokeRestart 1552s [00:52:32.315] length <- base::length 1552s [00:52:32.315] list <- base::list 1552s [00:52:32.315] seq.int <- base::seq.int 1552s [00:52:32.315] signalCondition <- base::signalCondition 1552s [00:52:32.315] sys.calls <- base::sys.calls 1552s [00:52:32.315] `[[` <- base::`[[` 1552s [00:52:32.315] `+` <- base::`+` 1552s [00:52:32.315] `<<-` <- base::`<<-` 1552s [00:52:32.315] sysCalls <- function(calls = sys.calls(), from = 1L) { 1552s [00:52:32.315] calls[seq.int(from = from + 12L, to = length(calls) - 1552s [00:52:32.315] 3L)] 1552s [00:52:32.315] } 1552s [00:52:32.315] function(cond) { 1552s [00:52:32.315] is_error <- inherits(cond, "error") 1552s [00:52:32.315] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1552s [00:52:32.315] NULL) 1552s [00:52:32.315] if (is_error) { 1552s [00:52:32.315] sessionInformation <- function() { 1552s [00:52:32.315] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1552s [00:52:32.315] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1552s [00:52:32.315] search = base::search(), system = base::Sys.info()) 1552s [00:52:32.315] } 1552s [00:52:32.315] ...future.conditions[[length(...future.conditions) + 1552s [00:52:32.315] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1552s [00:52:32.315] cond$call), session = sessionInformation(), 1552s [00:52:32.315] timestamp = base::Sys.time(), signaled = 0L) 1552s [00:52:32.315] signalCondition(cond) 1552s [00:52:32.315] } 1552s [00:52:32.315] else if (!ignore && TRUE && inherits(cond, c("condition", 1552s [00:52:32.315] "immediateCondition"))) { 1552s [00:52:32.315] signal <- TRUE && inherits(cond, "immediateCondition") 1552s [00:52:32.315] ...future.conditions[[length(...future.conditions) + 1552s [00:52:32.315] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1552s [00:52:32.315] if (TRUE && !signal) { 1552s [00:52:32.315] muffleCondition <- function (cond, pattern = "^muffle") 1552s [00:52:32.315] { 1552s [00:52:32.315] inherits <- base::inherits 1552s [00:52:32.315] invokeRestart <- base::invokeRestart 1552s [00:52:32.315] is.null <- base::is.null 1552s [00:52:32.315] muffled <- FALSE 1552s [00:52:32.315] if (inherits(cond, "message")) { 1552s [00:52:32.315] muffled <- grepl(pattern, "muffleMessage") 1552s [00:52:32.315] if (muffled) 1552s [00:52:32.315] invokeRestart("muffleMessage") 1552s [00:52:32.315] } 1552s [00:52:32.315] else if (inherits(cond, "warning")) { 1552s [00:52:32.315] muffled <- grepl(pattern, "muffleWarning") 1552s [00:52:32.315] if (muffled) 1552s [00:52:32.315] invokeRestart("muffleWarning") 1552s [00:52:32.315] } 1552s [00:52:32.315] else if (inherits(cond, "condition")) { 1552s [00:52:32.315] if (!is.null(pattern)) { 1552s [00:52:32.315] computeRestarts <- base::computeRestarts 1552s [00:52:32.315] grepl <- base::grepl 1552s [00:52:32.315] restarts <- computeRestarts(cond) 1552s [00:52:32.315] for (restart in restarts) { 1552s [00:52:32.315] name <- restart$name 1552s [00:52:32.315] if (is.null(name)) 1552s [00:52:32.315] next 1552s [00:52:32.315] if (!grepl(pattern, name)) 1552s [00:52:32.315] next 1552s [00:52:32.315] invokeRestart(restart) 1552s [00:52:32.315] muffled <- TRUE 1552s [00:52:32.315] break 1552s [00:52:32.315] } 1552s [00:52:32.315] } 1552s [00:52:32.315] } 1552s [00:52:32.315] invisible(muffled) 1552s [00:52:32.315] } 1552s [00:52:32.315] muffleCondition(cond, pattern = "^muffle") 1552s [00:52:32.315] } 1552s [00:52:32.315] } 1552s [00:52:32.315] else { 1552s [00:52:32.315] if (TRUE) { 1552s [00:52:32.315] muffleCondition <- function (cond, pattern = "^muffle") 1552s [00:52:32.315] { 1552s [00:52:32.315] inherits <- base::inherits 1552s [00:52:32.315] invokeRestart <- base::invokeRestart 1552s [00:52:32.315] is.null <- base::is.null 1552s [00:52:32.315] muffled <- FALSE 1552s [00:52:32.315] if (inherits(cond, "message")) { 1552s [00:52:32.315] muffled <- grepl(pattern, "muffleMessage") 1552s [00:52:32.315] if (muffled) 1552s [00:52:32.315] invokeRestart("muffleMessage") 1552s [00:52:32.315] } 1552s [00:52:32.315] else if (inherits(cond, "warning")) { 1552s [00:52:32.315] muffled <- grepl(pattern, "muffleWarning") 1552s [00:52:32.315] if (muffled) 1552s [00:52:32.315] invokeRestart("muffleWarning") 1552s [00:52:32.315] } 1552s [00:52:32.315] else if (inherits(cond, "condition")) { 1552s [00:52:32.315] if (!is.null(pattern)) { 1552s [00:52:32.315] computeRestarts <- base::computeRestarts 1552s [00:52:32.315] grepl <- base::grepl 1552s [00:52:32.315] restarts <- computeRestarts(cond) 1552s [00:52:32.315] for (restart in restarts) { 1552s [00:52:32.315] name <- restart$name 1552s [00:52:32.315] if (is.null(name)) 1552s [00:52:32.315] next 1552s [00:52:32.315] if (!grepl(pattern, name)) 1552s [00:52:32.315] next 1552s [00:52:32.315] invokeRestart(restart) 1552s [00:52:32.315] muffled <- TRUE 1552s [00:52:32.315] break 1552s [00:52:32.315] } 1552s [00:52:32.315] } 1552s [00:52:32.315] } 1552s [00:52:32.315] invisible(muffled) 1552s [00:52:32.315] } 1552s [00:52:32.315] muffleCondition(cond, pattern = "^muffle") 1552s [00:52:32.315] } 1552s [00:52:32.315] } 1552s [00:52:32.315] } 1552s [00:52:32.315] })) 1552s [00:52:32.315] }, error = function(ex) { 1552s [00:52:32.315] base::structure(base::list(value = NULL, visible = NULL, 1552s [00:52:32.315] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1552s [00:52:32.315] ...future.rng), started = ...future.startTime, 1552s [00:52:32.315] finished = Sys.time(), session_uuid = NA_character_, 1552s [00:52:32.315] version = "1.8"), class = "FutureResult") 1552s [00:52:32.315] }, finally = { 1552s [00:52:32.315] if (!identical(...future.workdir, getwd())) 1552s [00:52:32.315] setwd(...future.workdir) 1552s [00:52:32.315] { 1552s [00:52:32.315] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1552s [00:52:32.315] ...future.oldOptions$nwarnings <- NULL 1552s [00:52:32.315] } 1552s [00:52:32.315] base::options(...future.oldOptions) 1552s [00:52:32.315] if (.Platform$OS.type == "windows") { 1552s [00:52:32.315] old_names <- names(...future.oldEnvVars) 1552s [00:52:32.315] envs <- base::Sys.getenv() 1552s [00:52:32.315] names <- names(envs) 1552s [00:52:32.315] common <- intersect(names, old_names) 1552s [00:52:32.315] added <- setdiff(names, old_names) 1552s [00:52:32.315] removed <- setdiff(old_names, names) 1552s [00:52:32.315] changed <- common[...future.oldEnvVars[common] != 1552s [00:52:32.315] envs[common]] 1552s [00:52:32.315] NAMES <- toupper(changed) 1552s [00:52:32.315] args <- list() 1552s [00:52:32.315] for (kk in seq_along(NAMES)) { 1552s [00:52:32.315] name <- changed[[kk]] 1552s [00:52:32.315] NAME <- NAMES[[kk]] 1552s [00:52:32.315] if (name != NAME && is.element(NAME, old_names)) 1552s [00:52:32.315] next 1552s [00:52:32.315] args[[name]] <- ...future.oldEnvVars[[name]] 1552s [00:52:32.315] } 1552s [00:52:32.315] NAMES <- toupper(added) 1552s [00:52:32.315] for (kk in seq_along(NAMES)) { 1552s [00:52:32.315] name <- added[[kk]] 1552s [00:52:32.315] NAME <- NAMES[[kk]] 1552s [00:52:32.315] if (name != NAME && is.element(NAME, old_names)) 1552s [00:52:32.315] next 1552s [00:52:32.315] args[[name]] <- "" 1552s [00:52:32.315] } 1552s [00:52:32.315] NAMES <- toupper(removed) 1552s [00:52:32.315] for (kk in seq_along(NAMES)) { 1552s [00:52:32.315] name <- removed[[kk]] 1552s [00:52:32.315] NAME <- NAMES[[kk]] 1552s [00:52:32.315] if (name != NAME && is.element(NAME, old_names)) 1552s [00:52:32.315] next 1552s [00:52:32.315] args[[name]] <- ...future.oldEnvVars[[name]] 1552s [00:52:32.315] } 1552s [00:52:32.315] if (length(args) > 0) 1552s [00:52:32.315] base::do.call(base::Sys.setenv, args = args) 1552s [00:52:32.315] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1552s [00:52:32.315] } 1552s [00:52:32.315] else { 1552s [00:52:32.315] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1552s [00:52:32.315] } 1552s [00:52:32.315] { 1552s [00:52:32.315] if (base::length(...future.futureOptionsAdded) > 1552s [00:52:32.315] 0L) { 1552s [00:52:32.315] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1552s [00:52:32.315] base::names(opts) <- ...future.futureOptionsAdded 1552s [00:52:32.315] base::options(opts) 1552s [00:52:32.315] } 1552s [00:52:32.315] { 1552s [00:52:32.315] { 1552s [00:52:32.315] NULL 1552s [00:52:32.315] RNGkind("Mersenne-Twister") 1552s [00:52:32.315] base::rm(list = ".Random.seed", envir = base::globalenv(), 1552s [00:52:32.315] inherits = FALSE) 1552s [00:52:32.315] } 1552s [00:52:32.315] options(future.plan = NULL) 1552s [00:52:32.315] if (is.na(NA_character_)) 1552s [00:52:32.315] Sys.unsetenv("R_FUTURE_PLAN") 1552s [00:52:32.315] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1552s [00:52:32.315] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1552s [00:52:32.315] envir = parent.frame()) 1552s [00:52:32.315] { 1552s [00:52:32.315] default_workers <- missing(workers) 1552s [00:52:32.315] if (is.function(workers)) 1552s [00:52:32.315] workers <- workers() 1552s [00:52:32.315] workers <- structure(as.integer(workers), 1552s [00:52:32.315] class = class(workers)) 1552s [00:52:32.315] stop_if_not(is.finite(workers), workers >= 1552s [00:52:32.315] 1L) 1552s [00:52:32.315] if ((workers == 1L && !inherits(workers, 1552s [00:52:32.315] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1552s [00:52:32.315] if (default_workers) 1552s [00:52:32.315] supportsMulticore(warn = TRUE) 1552s [00:52:32.315] return(sequential(..., envir = envir)) 1552s [00:52:32.315] } 1552s [00:52:32.315] oopts <- options(mc.cores = workers) 1552s [00:52:32.315] on.exit(options(oopts)) 1552s [00:52:32.315] future <- MulticoreFuture(..., workers = workers, 1552s [00:52:32.315] envir = envir) 1552s [00:52:32.315] if (!future$lazy) 1552s [00:52:32.315] future <- run(future) 1552s [00:52:32.315] invisible(future) 1552s [00:52:32.315] }), .cleanup = FALSE, .init = FALSE) 1552s [00:52:32.315] } 1552s [00:52:32.315] } 1552s [00:52:32.315] } 1552s [00:52:32.315] }) 1552s [00:52:32.315] if (TRUE) { 1552s [00:52:32.315] base::sink(type = "output", split = FALSE) 1552s [00:52:32.315] if (TRUE) { 1552s [00:52:32.315] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1552s [00:52:32.315] } 1552s [00:52:32.315] else { 1552s [00:52:32.315] ...future.result["stdout"] <- base::list(NULL) 1552s [00:52:32.315] } 1552s [00:52:32.315] base::close(...future.stdout) 1552s [00:52:32.315] ...future.stdout <- NULL 1552s [00:52:32.315] } 1552s [00:52:32.315] ...future.result$conditions <- ...future.conditions 1552s [00:52:32.315] ...future.result$finished <- base::Sys.time() 1552s [00:52:32.315] ...future.result 1552s [00:52:32.315] } 1552s [00:52:32.321] assign_globals() ... 1552s [00:52:32.321] List of 5 1552s [00:52:32.321] $ ...future.FUN :function (..., sep = "", collapse = ", ", lastCollapse = NULL, maxHead = if (missing(lastCollapse)) 3 else Inf, 1552s [00:52:32.321] maxTail = if (is.finite(maxHead)) 1 else Inf, abbreviate = "...") 1552s [00:52:32.321] $ future.call.arguments :List of 2 1552s [00:52:32.321] ..$ collapse: chr "; " 1552s [00:52:32.321] ..$ maxHead : int 3 1552s [00:52:32.321] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1552s [00:52:32.321] $ ...future.elements_ii :List of 1 1552s [00:52:32.321] ..$ a: Named chr [1:101] "hello" "1" "2" "3" ... 1552s [00:52:32.321] .. ..- attr(*, "names")= chr [1:101] "" "b1" "b2" "b3" ... 1552s [00:52:32.321] $ ...future.seeds_ii : NULL 1552s [00:52:32.321] $ ...future.globals.maxSize: NULL 1552s [00:52:32.321] - attr(*, "where")=List of 5 1552s [00:52:32.321] ..$ ...future.FUN : 1552s [00:52:32.321] ..$ future.call.arguments : 1552s [00:52:32.321] ..$ ...future.elements_ii : 1552s [00:52:32.321] ..$ ...future.seeds_ii : 1552s [00:52:32.321] ..$ ...future.globals.maxSize: 1552s [00:52:32.321] - attr(*, "resolved")= logi FALSE 1552s [00:52:32.321] - attr(*, "total_size")= num 71456 1552s [00:52:32.321] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1552s [00:52:32.321] - attr(*, "already-done")= logi TRUE 1552s [00:52:32.329] - copied ‘...future.FUN’ to environment 1552s [00:52:32.329] - copied ‘future.call.arguments’ to environment 1552s [00:52:32.329] - copied ‘...future.elements_ii’ to environment 1552s [00:52:32.330] - copied ‘...future.seeds_ii’ to environment 1552s [00:52:32.330] - copied ‘...future.globals.maxSize’ to environment 1552s [00:52:32.330] assign_globals() ... done 1552s [00:52:32.331] plan(): Setting new future strategy stack: 1552s [00:52:32.331] List of future strategies: 1552s [00:52:32.331] 1. sequential: 1552s [00:52:32.331] - args: function (..., envir = parent.frame()) 1552s [00:52:32.331] - tweaked: FALSE 1552s [00:52:32.331] - call: NULL 1552s [00:52:32.333] plan(): nbrOfWorkers() = 1 1552s [00:52:32.334] plan(): Setting new future strategy stack: 1552s [00:52:32.334] List of future strategies: 1552s [00:52:32.334] 1. multicore: 1552s [00:52:32.334] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1552s [00:52:32.334] - tweaked: FALSE 1552s [00:52:32.334] - call: plan(strategy) 1552s [00:52:32.340] plan(): nbrOfWorkers() = 1 1552s [00:52:32.340] SequentialFuture started (and completed) 1552s [00:52:32.340] - Launch lazy future ... done 1552s [00:52:32.341] run() for ‘SequentialFuture’ ... done 1552s [00:52:32.341] Created future: 1552s [00:52:32.341] SequentialFuture: 1552s [00:52:32.341] Label: ‘future_lapply-1’ 1552s [00:52:32.341] Expression: 1552s [00:52:32.341] { 1552s [00:52:32.341] do.call(function(...) { 1552s [00:52:32.341] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1552s [00:52:32.341] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1552s [00:52:32.341] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1552s [00:52:32.341] on.exit(options(oopts), add = TRUE) 1552s [00:52:32.341] } 1552s [00:52:32.341] { 1552s [00:52:32.341] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1552s [00:52:32.341] ...future.X_jj <- ...future.elements_ii[[jj]] 1552s [00:52:32.341] ...future.FUN(...future.X_jj, ...) 1552s [00:52:32.341] }) 1552s [00:52:32.341] } 1552s [00:52:32.341] }, args = future.call.arguments) 1552s [00:52:32.341] } 1552s [00:52:32.341] Lazy evaluation: FALSE 1552s [00:52:32.341] Asynchronous evaluation: FALSE 1552s [00:52:32.341] Local evaluation: TRUE 1552s [00:52:32.341] Environment: R_GlobalEnv 1552s [00:52:32.341] Capture standard output: TRUE 1552s [00:52:32.341] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1552s [00:52:32.341] Globals: 5 objects totaling 82.61 KiB (function ‘...future.FUN’ of 69.62 KiB, DotDotDotList ‘future.call.arguments’ of 168 bytes, list ‘...future.elements_ii’ of 12.83 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1552s [00:52:32.341] Packages: 1 packages (‘future’) 1552s [00:52:32.341] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1552s [00:52:32.341] Resolved: TRUE 1552s [00:52:32.341] Value: 136 bytes of class ‘list’ 1552s [00:52:32.341] Early signaling: FALSE 1552s [00:52:32.341] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1552s [00:52:32.341] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1552s [00:52:32.344] Chunk #1 of 1 ... DONE 1552s [00:52:32.344] Launching 1 futures (chunks) ... DONE 1552s [00:52:32.344] Resolving 1 futures (chunks) ... 1552s [00:52:32.345] resolve() on list ... 1552s [00:52:32.345] recursive: 0 1552s [00:52:32.345] length: 1 1552s [00:52:32.345] 1552s [00:52:32.345] resolved() for ‘SequentialFuture’ ... 1552s [00:52:32.346] - state: ‘finished’ 1552s [00:52:32.346] - run: TRUE 1552s [00:52:32.346] - result: ‘FutureResult’ 1552s [00:52:32.346] resolved() for ‘SequentialFuture’ ... done 1552s [00:52:32.346] Future #1 1552s [00:52:32.347] signalConditionsASAP(SequentialFuture, pos=1) ... 1552s [00:52:32.347] - nx: 1 1552s [00:52:32.348] - relay: TRUE 1552s [00:52:32.349] - stdout: TRUE 1552s [00:52:32.349] - signal: TRUE 1552s [00:52:32.352] - resignal: FALSE 1552s [00:52:32.353] - force: TRUE 1552s [00:52:32.353] - relayed: [n=1] FALSE 1552s [00:52:32.353] - queued futures: [n=1] FALSE 1552s [00:52:32.353] - until=1 1552s [00:52:32.354] - relaying element #1 1552s [00:52:32.354] - relayed: [n=1] TRUE 1552s [00:52:32.354] - queued futures: [n=1] TRUE 1552s [00:52:32.355] signalConditionsASAP(SequentialFuture, pos=1) ... done 1552s [00:52:32.355] length: 0 (resolved future 1) 1552s [00:52:32.355] Relaying remaining futures 1552s [00:52:32.355] signalConditionsASAP(NULL, pos=0) ... 1552s [00:52:32.355] - nx: 1 1552s [00:52:32.356] - relay: TRUE 1552s [00:52:32.356] - stdout: TRUE 1552s [00:52:32.356] - signal: TRUE 1552s [00:52:32.357] - resignal: FALSE 1552s [00:52:32.357] - force: TRUE 1552s [00:52:32.357] - relayed: [n=1] TRUE 1552s [00:52:32.357] - queued futures: [n=1] TRUE 1552s - flush all 1552s [00:52:32.357] - relayed: [n=1] TRUE 1552s [00:52:32.358] - queued futures: [n=1] TRUE 1552s [00:52:32.358] signalConditionsASAP(NULL, pos=0) ... done 1552s [00:52:32.358] resolve() on list ... DONE 1552s [00:52:32.359] - Number of value chunks collected: 1 1552s [00:52:32.359] Resolving 1 futures (chunks) ... DONE 1552s List of 1 1552s $ y:List of 1 1552s ..$ a: chr "hello; 1; 2; ...; 100" 1552s [00:52:32.359] Reducing values from 1 chunks ... 1552s [00:52:32.359] - Number of values collected after concatenation: 1 1552s [00:52:32.359] - Number of values expected: 1 1552s [00:52:32.360] Reducing values from 1 chunks ... DONE 1552s [00:52:32.360] future_lapply() ... DONE 1552s - future_lapply(x, FUN = listenv::listenv, ...) ... 1552s [00:52:32.363] future_lapply() ... 1552s [00:52:32.368] Number of chunks: 2 1552s [00:52:32.368] getGlobalsAndPackagesXApply() ... 1552s [00:52:32.368] - future.globals: TRUE 1552s [00:52:32.368] getGlobalsAndPackages() ... 1552s [00:52:32.368] Searching for globals... 1552s [00:52:32.370] - globals found: [4] ‘FUN’, ‘{’, ‘get’, ‘parent.env’ 1552s [00:52:32.370] Searching for globals ... DONE 1552s [00:52:32.370] Resolving globals: FALSE 1552s [00:52:32.371] The total size of the 1 globals is 4.85 KiB (4968 bytes) 1552s [00:52:32.371] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.85 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.85 KiB of class ‘function’) 1552s [00:52:32.372] - globals: [1] ‘FUN’ 1552s [00:52:32.372] - packages: [1] ‘listenv’ 1552s [00:52:32.372] getGlobalsAndPackages() ... DONE 1552s [00:52:32.372] - globals found/used: [n=1] ‘FUN’ 1552s [00:52:32.372] - needed namespaces: [n=1] ‘listenv’ 1552s [00:52:32.373] Finding globals ... DONE 1552s [00:52:32.373] - use_args: TRUE 1552s [00:52:32.373] - Getting '...' globals ... 1552s [00:52:32.373] resolve() on list ... 1552s [00:52:32.374] recursive: 0 1552s [00:52:32.374] length: 1 1552s [00:52:32.374] elements: ‘...’ 1552s [00:52:32.375] length: 0 (resolved future 1) 1552s [00:52:32.375] resolve() on list ... DONE 1552s [00:52:32.375] - '...' content: [n=0] 1552s [00:52:32.375] List of 1 1552s [00:52:32.375] $ ...: list() 1552s [00:52:32.375] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1552s [00:52:32.375] - attr(*, "where")=List of 1 1552s [00:52:32.375] ..$ ...: 1552s [00:52:32.375] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1552s [00:52:32.375] - attr(*, "resolved")= logi TRUE 1552s [00:52:32.375] - attr(*, "total_size")= num NA 1552s [00:52:32.379] - Getting '...' globals ... DONE 1552s [00:52:32.380] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1552s [00:52:32.380] List of 2 1552s [00:52:32.380] $ ...future.FUN:function (x, ...) 1552s [00:52:32.380] $ ... : list() 1552s [00:52:32.380] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1552s [00:52:32.380] - attr(*, "where")=List of 2 1552s [00:52:32.380] ..$ ...future.FUN: 1552s [00:52:32.380] ..$ ... : 1552s [00:52:32.380] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1552s [00:52:32.380] - attr(*, "resolved")= logi FALSE 1552s [00:52:32.380] - attr(*, "total_size")= num 4968 1552s [00:52:32.384] Packages to be attached in all futures: [n=1] ‘listenv’ 1552s [00:52:32.384] getGlobalsAndPackagesXApply() ... DONE 1552s [00:52:32.385] Number of futures (= number of chunks): 2 1552s [00:52:32.385] Launching 2 futures (chunks) ... 1552s [00:52:32.385] Chunk #1 of 2 ... 1552s [00:52:32.385] - Finding globals in 'X' for chunk #1 ... 1552s [00:52:32.385] getGlobalsAndPackages() ... 1552s [00:52:32.385] Searching for globals... 1552s [00:52:32.386] 1552s [00:52:32.386] Searching for globals ... DONE 1552s [00:52:32.386] - globals: [0] 1552s [00:52:32.386] getGlobalsAndPackages() ... DONE 1552s [00:52:32.387] + additional globals found: [n=0] 1552s [00:52:32.387] + additional namespaces needed: [n=0] 1552s [00:52:32.387] - Finding globals in 'X' for chunk #1 ... DONE 1552s [00:52:32.387] - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes) 1552s [00:52:32.387] - seeds: 1552s [00:52:32.388] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1552s [00:52:32.388] getGlobalsAndPackages() ... 1552s [00:52:32.388] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1552s [00:52:32.388] Resolving globals: FALSE 1552s [00:52:32.389] Tweak future expression to call with '...' arguments ... 1552s [00:52:32.389] { 1552s [00:52:32.389] do.call(function(...) { 1552s [00:52:32.389] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1552s [00:52:32.389] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1552s [00:52:32.389] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1552s [00:52:32.389] on.exit(options(oopts), add = TRUE) 1552s [00:52:32.389] } 1552s [00:52:32.389] { 1552s [00:52:32.389] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1552s [00:52:32.389] ...future.X_jj <- ...future.elements_ii[[jj]] 1552s [00:52:32.389] ...future.FUN(...future.X_jj, ...) 1552s [00:52:32.389] }) 1552s [00:52:32.389] } 1552s [00:52:32.389] }, args = future.call.arguments) 1552s [00:52:32.389] } 1552s [00:52:32.389] Tweak future expression to call with '...' arguments ... DONE 1552s [00:52:32.390] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1552s [00:52:32.390] - packages: [1] ‘listenv’ 1552s [00:52:32.391] getGlobalsAndPackages() ... DONE 1552s [00:52:32.391] run() for ‘Future’ ... 1552s [00:52:32.391] - state: ‘created’ 1552s [00:52:32.391] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1552s [00:52:32.401] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1552s [00:52:32.401] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1552s [00:52:32.402] - Field: ‘label’ 1552s [00:52:32.402] - Field: ‘local’ 1552s [00:52:32.402] - Field: ‘owner’ 1552s [00:52:32.403] - Field: ‘envir’ 1552s [00:52:32.403] - Field: ‘packages’ 1552s [00:52:32.403] - Field: ‘gc’ 1552s [00:52:32.403] - Field: ‘conditions’ 1552s [00:52:32.404] - Field: ‘expr’ 1552s [00:52:32.404] - Field: ‘uuid’ 1552s [00:52:32.404] - Field: ‘seed’ 1552s [00:52:32.404] - Field: ‘version’ 1552s [00:52:32.404] - Field: ‘result’ 1552s [00:52:32.404] - Field: ‘asynchronous’ 1552s [00:52:32.405] - Field: ‘calls’ 1552s [00:52:32.406] - Field: ‘globals’ 1552s [00:52:32.406] - Field: ‘stdout’ 1552s [00:52:32.406] - Field: ‘earlySignal’ 1552s [00:52:32.406] - Field: ‘lazy’ 1552s [00:52:32.407] - Field: ‘state’ 1552s [00:52:32.407] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1552s [00:52:32.407] - Launch lazy future ... 1552s [00:52:32.407] Packages needed by the future expression (n = 1): ‘listenv’ 1552s [00:52:32.407] Packages needed by future strategies (n = 0): 1552s [00:52:32.408] { 1552s [00:52:32.408] { 1552s [00:52:32.408] { 1552s [00:52:32.408] ...future.startTime <- base::Sys.time() 1552s [00:52:32.408] { 1552s [00:52:32.408] { 1552s [00:52:32.408] { 1552s [00:52:32.408] { 1552s [00:52:32.408] base::local({ 1552s [00:52:32.408] has_future <- base::requireNamespace("future", 1552s [00:52:32.408] quietly = TRUE) 1552s [00:52:32.408] if (has_future) { 1552s [00:52:32.408] ns <- base::getNamespace("future") 1552s [00:52:32.408] version <- ns[[".package"]][["version"]] 1552s [00:52:32.408] if (is.null(version)) 1552s [00:52:32.408] version <- utils::packageVersion("future") 1552s [00:52:32.408] } 1552s [00:52:32.408] else { 1552s [00:52:32.408] version <- NULL 1552s [00:52:32.408] } 1552s [00:52:32.408] if (!has_future || version < "1.8.0") { 1552s [00:52:32.408] info <- base::c(r_version = base::gsub("R version ", 1552s [00:52:32.408] "", base::R.version$version.string), 1552s [00:52:32.408] platform = base::sprintf("%s (%s-bit)", 1552s [00:52:32.408] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1552s [00:52:32.408] os = base::paste(base::Sys.info()[base::c("sysname", 1552s [00:52:32.408] "release", "version")], collapse = " "), 1552s [00:52:32.408] hostname = base::Sys.info()[["nodename"]]) 1552s [00:52:32.408] info <- base::sprintf("%s: %s", base::names(info), 1552s [00:52:32.408] info) 1552s [00:52:32.408] info <- base::paste(info, collapse = "; ") 1552s [00:52:32.408] if (!has_future) { 1552s [00:52:32.408] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1552s [00:52:32.408] info) 1552s [00:52:32.408] } 1552s [00:52:32.408] else { 1552s [00:52:32.408] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1552s [00:52:32.408] info, version) 1552s [00:52:32.408] } 1552s [00:52:32.408] base::stop(msg) 1552s [00:52:32.408] } 1552s [00:52:32.408] }) 1552s [00:52:32.408] } 1552s [00:52:32.408] base::local({ 1552s [00:52:32.408] for (pkg in "listenv") { 1552s [00:52:32.408] base::loadNamespace(pkg) 1552s [00:52:32.408] base::library(pkg, character.only = TRUE) 1552s [00:52:32.408] } 1552s [00:52:32.408] }) 1552s [00:52:32.408] } 1552s [00:52:32.408] options(future.plan = NULL) 1552s [00:52:32.408] Sys.unsetenv("R_FUTURE_PLAN") 1552s [00:52:32.408] future::plan("default", .cleanup = FALSE, .init = FALSE) 1552s [00:52:32.408] } 1552s [00:52:32.408] ...future.workdir <- getwd() 1552s [00:52:32.408] } 1552s [00:52:32.408] ...future.oldOptions <- base::as.list(base::.Options) 1552s [00:52:32.408] ...future.oldEnvVars <- base::Sys.getenv() 1552s [00:52:32.408] } 1552s [00:52:32.408] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1552s [00:52:32.408] future.globals.maxSize = 1048576000, future.globals.method = NULL, 1552s [00:52:32.408] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1552s [00:52:32.408] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1552s [00:52:32.408] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1552s [00:52:32.408] future.stdout.windows.reencode = NULL, width = 80L) 1552s [00:52:32.408] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1552s [00:52:32.408] base::names(...future.oldOptions)) 1552s [00:52:32.408] } 1552s [00:52:32.408] if (FALSE) { 1552s [00:52:32.408] } 1552s [00:52:32.408] else { 1552s [00:52:32.408] if (TRUE) { 1552s [00:52:32.408] ...future.stdout <- base::rawConnection(base::raw(0L), 1552s [00:52:32.408] open = "w") 1552s [00:52:32.408] } 1552s [00:52:32.408] else { 1552s [00:52:32.408] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1552s [00:52:32.408] windows = "NUL", "/dev/null"), open = "w") 1552s [00:52:32.408] } 1552s [00:52:32.408] base::sink(...future.stdout, type = "output", split = FALSE) 1552s [00:52:32.408] base::on.exit(if (!base::is.null(...future.stdout)) { 1552s [00:52:32.408] base::sink(type = "output", split = FALSE) 1552s [00:52:32.408] base::close(...future.stdout) 1552s [00:52:32.408] }, add = TRUE) 1552s [00:52:32.408] } 1552s [00:52:32.408] ...future.frame <- base::sys.nframe() 1552s [00:52:32.408] ...future.conditions <- base::list() 1552s [00:52:32.408] ...future.rng <- base::globalenv()$.Random.seed 1552s [00:52:32.408] if (FALSE) { 1552s [00:52:32.408] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1552s [00:52:32.408] "...future.value", "...future.globalenv.names", ".Random.seed") 1552s [00:52:32.408] } 1552s [00:52:32.408] ...future.result <- base::tryCatch({ 1552s [00:52:32.408] base::withCallingHandlers({ 1552s [00:52:32.408] ...future.value <- base::withVisible(base::local({ 1552s [00:52:32.408] do.call(function(...) { 1552s [00:52:32.408] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1552s [00:52:32.408] if (!identical(...future.globals.maxSize.org, 1552s [00:52:32.408] ...future.globals.maxSize)) { 1552s [00:52:32.408] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1552s [00:52:32.408] on.exit(options(oopts), add = TRUE) 1552s [00:52:32.408] } 1552s [00:52:32.408] { 1552s [00:52:32.408] lapply(seq_along(...future.elements_ii), 1552s [00:52:32.408] FUN = function(jj) { 1552s [00:52:32.408] ...future.X_jj <- ...future.elements_ii[[jj]] 1552s [00:52:32.408] ...future.FUN(...future.X_jj, ...) 1552s [00:52:32.408] }) 1552s [00:52:32.408] } 1552s [00:52:32.408] }, args = future.call.arguments) 1552s [00:52:32.408] })) 1552s [00:52:32.408] future::FutureResult(value = ...future.value$value, 1552s [00:52:32.408] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1552s [00:52:32.408] ...future.rng), globalenv = if (FALSE) 1552s [00:52:32.408] list(added = base::setdiff(base::names(base::.GlobalEnv), 1552s [00:52:32.408] ...future.globalenv.names)) 1552s [00:52:32.408] else NULL, started = ...future.startTime, version = "1.8") 1552s [00:52:32.408] }, condition = base::local({ 1552s [00:52:32.408] c <- base::c 1552s [00:52:32.408] inherits <- base::inherits 1552s [00:52:32.408] invokeRestart <- base::invokeRestart 1552s [00:52:32.408] length <- base::length 1552s [00:52:32.408] list <- base::list 1552s [00:52:32.408] seq.int <- base::seq.int 1552s [00:52:32.408] signalCondition <- base::signalCondition 1552s [00:52:32.408] sys.calls <- base::sys.calls 1552s [00:52:32.408] `[[` <- base::`[[` 1552s [00:52:32.408] `+` <- base::`+` 1552s [00:52:32.408] `<<-` <- base::`<<-` 1552s [00:52:32.408] sysCalls <- function(calls = sys.calls(), from = 1L) { 1552s [00:52:32.408] calls[seq.int(from = from + 12L, to = length(calls) - 1552s [00:52:32.408] 3L)] 1552s [00:52:32.408] } 1552s [00:52:32.408] function(cond) { 1552s [00:52:32.408] is_error <- inherits(cond, "error") 1552s [00:52:32.408] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1552s [00:52:32.408] NULL) 1552s [00:52:32.408] if (is_error) { 1552s [00:52:32.408] sessionInformation <- function() { 1552s [00:52:32.408] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1552s [00:52:32.408] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1552s [00:52:32.408] search = base::search(), system = base::Sys.info()) 1552s [00:52:32.408] } 1552s [00:52:32.408] ...future.conditions[[length(...future.conditions) + 1552s [00:52:32.408] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1552s [00:52:32.408] cond$call), session = sessionInformation(), 1552s [00:52:32.408] timestamp = base::Sys.time(), signaled = 0L) 1552s [00:52:32.408] signalCondition(cond) 1552s [00:52:32.408] } 1552s [00:52:32.408] else if (!ignore && TRUE && inherits(cond, c("condition", 1552s [00:52:32.408] "immediateCondition"))) { 1552s [00:52:32.408] signal <- TRUE && inherits(cond, "immediateCondition") 1552s [00:52:32.408] ...future.conditions[[length(...future.conditions) + 1552s [00:52:32.408] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1552s [00:52:32.408] if (TRUE && !signal) { 1552s [00:52:32.408] muffleCondition <- function (cond, pattern = "^muffle") 1552s [00:52:32.408] { 1552s [00:52:32.408] inherits <- base::inherits 1552s [00:52:32.408] invokeRestart <- base::invokeRestart 1552s [00:52:32.408] is.null <- base::is.null 1552s [00:52:32.408] muffled <- FALSE 1552s [00:52:32.408] if (inherits(cond, "message")) { 1552s [00:52:32.408] muffled <- grepl(pattern, "muffleMessage") 1552s [00:52:32.408] if (muffled) 1552s [00:52:32.408] invokeRestart("muffleMessage") 1552s [00:52:32.408] } 1552s [00:52:32.408] else if (inherits(cond, "warning")) { 1552s [00:52:32.408] muffled <- grepl(pattern, "muffleWarning") 1552s [00:52:32.408] if (muffled) 1552s [00:52:32.408] invokeRestart("muffleWarning") 1552s [00:52:32.408] } 1552s [00:52:32.408] else if (inherits(cond, "condition")) { 1552s [00:52:32.408] if (!is.null(pattern)) { 1552s [00:52:32.408] computeRestarts <- base::computeRestarts 1552s [00:52:32.408] grepl <- base::grepl 1552s [00:52:32.408] restarts <- computeRestarts(cond) 1552s [00:52:32.408] for (restart in restarts) { 1552s [00:52:32.408] name <- restart$name 1552s [00:52:32.408] if (is.null(name)) 1552s [00:52:32.408] next 1552s [00:52:32.408] if (!grepl(pattern, name)) 1552s [00:52:32.408] next 1552s [00:52:32.408] invokeRestart(restart) 1552s [00:52:32.408] muffled <- TRUE 1552s [00:52:32.408] break 1552s [00:52:32.408] } 1552s [00:52:32.408] } 1552s [00:52:32.408] } 1552s [00:52:32.408] invisible(muffled) 1552s [00:52:32.408] } 1552s [00:52:32.408] muffleCondition(cond, pattern = "^muffle") 1552s [00:52:32.408] } 1552s [00:52:32.408] } 1552s [00:52:32.408] else { 1552s [00:52:32.408] if (TRUE) { 1552s [00:52:32.408] muffleCondition <- function (cond, pattern = "^muffle") 1552s [00:52:32.408] { 1552s [00:52:32.408] inherits <- base::inherits 1552s [00:52:32.408] invokeRestart <- base::invokeRestart 1552s [00:52:32.408] is.null <- base::is.null 1552s [00:52:32.408] muffled <- FALSE 1552s [00:52:32.408] if (inherits(cond, "message")) { 1552s [00:52:32.408] muffled <- grepl(pattern, "muffleMessage") 1552s [00:52:32.408] if (muffled) 1552s [00:52:32.408] invokeRestart("muffleMessage") 1552s [00:52:32.408] } 1552s [00:52:32.408] else if (inherits(cond, "warning")) { 1552s [00:52:32.408] muffled <- grepl(pattern, "muffleWarning") 1552s [00:52:32.408] if (muffled) 1552s [00:52:32.408] invokeRestart("muffleWarning") 1552s [00:52:32.408] } 1552s [00:52:32.408] else if (inherits(cond, "condition")) { 1552s [00:52:32.408] if (!is.null(pattern)) { 1552s [00:52:32.408] computeRestarts <- base::computeRestarts 1552s [00:52:32.408] grepl <- base::grepl 1552s [00:52:32.408] restarts <- computeRestarts(cond) 1552s [00:52:32.408] for (restart in restarts) { 1552s [00:52:32.408] name <- restart$name 1552s [00:52:32.408] if (is.null(name)) 1552s [00:52:32.408] next 1552s [00:52:32.408] if (!grepl(pattern, name)) 1552s [00:52:32.408] next 1552s [00:52:32.408] invokeRestart(restart) 1552s [00:52:32.408] muffled <- TRUE 1552s [00:52:32.408] break 1552s [00:52:32.408] } 1552s [00:52:32.408] } 1552s [00:52:32.408] } 1552s [00:52:32.408] invisible(muffled) 1552s [00:52:32.408] } 1552s [00:52:32.408] muffleCondition(cond, pattern = "^muffle") 1552s [00:52:32.408] } 1552s [00:52:32.408] } 1552s [00:52:32.408] } 1552s [00:52:32.408] })) 1552s [00:52:32.408] }, error = function(ex) { 1552s [00:52:32.408] base::structure(base::list(value = NULL, visible = NULL, 1552s [00:52:32.408] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1552s [00:52:32.408] ...future.rng), started = ...future.startTime, 1552s [00:52:32.408] finished = Sys.time(), session_uuid = NA_character_, 1552s [00:52:32.408] version = "1.8"), class = "FutureResult") 1552s [00:52:32.408] }, finally = { 1552s [00:52:32.408] if (!identical(...future.workdir, getwd())) 1552s [00:52:32.408] setwd(...future.workdir) 1552s [00:52:32.408] { 1552s [00:52:32.408] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1552s [00:52:32.408] ...future.oldOptions$nwarnings <- NULL 1552s [00:52:32.408] } 1552s [00:52:32.408] base::options(...future.oldOptions) 1552s [00:52:32.408] if (.Platform$OS.type == "windows") { 1552s [00:52:32.408] old_names <- names(...future.oldEnvVars) 1552s [00:52:32.408] envs <- base::Sys.getenv() 1552s [00:52:32.408] names <- names(envs) 1552s [00:52:32.408] common <- intersect(names, old_names) 1552s [00:52:32.408] added <- setdiff(names, old_names) 1552s [00:52:32.408] removed <- setdiff(old_names, names) 1552s [00:52:32.408] changed <- common[...future.oldEnvVars[common] != 1552s [00:52:32.408] envs[common]] 1552s [00:52:32.408] NAMES <- toupper(changed) 1552s [00:52:32.408] args <- list() 1552s [00:52:32.408] for (kk in seq_along(NAMES)) { 1552s [00:52:32.408] name <- changed[[kk]] 1552s [00:52:32.408] NAME <- NAMES[[kk]] 1552s [00:52:32.408] if (name != NAME && is.element(NAME, old_names)) 1552s [00:52:32.408] next 1552s [00:52:32.408] args[[name]] <- ...future.oldEnvVars[[name]] 1552s [00:52:32.408] } 1552s [00:52:32.408] NAMES <- toupper(added) 1552s [00:52:32.408] for (kk in seq_along(NAMES)) { 1552s [00:52:32.408] name <- added[[kk]] 1552s [00:52:32.408] NAME <- NAMES[[kk]] 1552s [00:52:32.408] if (name != NAME && is.element(NAME, old_names)) 1552s [00:52:32.408] next 1552s [00:52:32.408] args[[name]] <- "" 1552s [00:52:32.408] } 1552s [00:52:32.408] NAMES <- toupper(removed) 1552s [00:52:32.408] for (kk in seq_along(NAMES)) { 1552s [00:52:32.408] name <- removed[[kk]] 1552s [00:52:32.408] NAME <- NAMES[[kk]] 1552s [00:52:32.408] if (name != NAME && is.element(NAME, old_names)) 1552s [00:52:32.408] next 1552s [00:52:32.408] args[[name]] <- ...future.oldEnvVars[[name]] 1552s [00:52:32.408] } 1552s [00:52:32.408] if (length(args) > 0) 1552s [00:52:32.408] base::do.call(base::Sys.setenv, args = args) 1552s [00:52:32.408] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1552s [00:52:32.408] } 1552s [00:52:32.408] else { 1552s [00:52:32.408] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1552s [00:52:32.408] } 1552s [00:52:32.408] { 1552s [00:52:32.408] if (base::length(...future.futureOptionsAdded) > 1552s [00:52:32.408] 0L) { 1552s [00:52:32.408] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1552s [00:52:32.408] base::names(opts) <- ...future.futureOptionsAdded 1552s [00:52:32.408] base::options(opts) 1552s [00:52:32.408] } 1552s [00:52:32.408] { 1552s [00:52:32.408] { 1552s [00:52:32.408] NULL 1552s [00:52:32.408] RNGkind("Mersenne-Twister") 1552s [00:52:32.408] base::rm(list = ".Random.seed", envir = base::globalenv(), 1552s [00:52:32.408] inherits = FALSE) 1552s [00:52:32.408] } 1552s [00:52:32.408] options(future.plan = NULL) 1552s [00:52:32.408] if (is.na(NA_character_)) 1552s [00:52:32.408] Sys.unsetenv("R_FUTURE_PLAN") 1552s [00:52:32.408] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1552s [00:52:32.408] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1552s [00:52:32.408] envir = parent.frame()) 1552s [00:52:32.408] { 1552s [00:52:32.408] default_workers <- missing(workers) 1552s [00:52:32.408] if (is.function(workers)) 1552s [00:52:32.408] workers <- workers() 1552s [00:52:32.408] workers <- structure(as.integer(workers), 1552s [00:52:32.408] class = class(workers)) 1552s [00:52:32.408] stop_if_not(is.finite(workers), workers >= 1552s [00:52:32.408] 1L) 1552s [00:52:32.408] if ((workers == 1L && !inherits(workers, 1552s [00:52:32.408] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1552s [00:52:32.408] if (default_workers) 1552s [00:52:32.408] supportsMulticore(warn = TRUE) 1552s [00:52:32.408] return(sequential(..., envir = envir)) 1552s [00:52:32.408] } 1552s [00:52:32.408] oopts <- options(mc.cores = workers) 1552s [00:52:32.408] on.exit(options(oopts)) 1552s [00:52:32.408] future <- MulticoreFuture(..., workers = workers, 1552s [00:52:32.408] envir = envir) 1552s [00:52:32.408] if (!future$lazy) 1552s [00:52:32.408] future <- run(future) 1552s [00:52:32.408] invisible(future) 1552s [00:52:32.408] }), .cleanup = FALSE, .init = FALSE) 1552s [00:52:32.408] } 1552s [00:52:32.408] } 1552s [00:52:32.408] } 1552s [00:52:32.408] }) 1552s [00:52:32.408] if (TRUE) { 1552s [00:52:32.408] base::sink(type = "output", split = FALSE) 1552s [00:52:32.408] if (TRUE) { 1552s [00:52:32.408] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1552s [00:52:32.408] } 1552s [00:52:32.408] else { 1552s [00:52:32.408] ...future.result["stdout"] <- base::list(NULL) 1552s [00:52:32.408] } 1552s [00:52:32.408] base::close(...future.stdout) 1552s [00:52:32.408] ...future.stdout <- NULL 1552s [00:52:32.408] } 1552s [00:52:32.408] ...future.result$conditions <- ...future.conditions 1552s [00:52:32.408] ...future.result$finished <- base::Sys.time() 1552s [00:52:32.408] ...future.result 1552s [00:52:32.408] } 1552s [00:52:32.414] assign_globals() ... 1552s [00:52:32.414] List of 5 1552s [00:52:32.414] $ ...future.FUN :function (x, ...) 1552s [00:52:32.414] $ future.call.arguments : list() 1552s [00:52:32.414] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1552s [00:52:32.414] $ ...future.elements_ii :List of 1 1552s [00:52:32.414] ..$ a:Classes 'listenv', 'environment' 1552s [00:52:32.414] $ ...future.seeds_ii : NULL 1552s [00:52:32.414] $ ...future.globals.maxSize: NULL 1552s [00:52:32.414] - attr(*, "where")=List of 5 1552s [00:52:32.414] ..$ ...future.FUN : 1552s [00:52:32.414] ..$ future.call.arguments : 1552s [00:52:32.414] ..$ ...future.elements_ii : 1552s [00:52:32.414] ..$ ...future.seeds_ii : 1552s [00:52:32.414] ..$ ...future.globals.maxSize: 1552s [00:52:32.414] - attr(*, "resolved")= logi FALSE 1552s [00:52:32.414] - attr(*, "total_size")= num 4968 1552s [00:52:32.414] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1552s [00:52:32.414] - attr(*, "already-done")= logi TRUE 1552s [00:52:32.422] - copied ‘...future.FUN’ to environment 1552s [00:52:32.423] - copied ‘future.call.arguments’ to environment 1552s [00:52:32.423] - copied ‘...future.elements_ii’ to environment 1552s [00:52:32.423] - copied ‘...future.seeds_ii’ to environment 1552s [00:52:32.424] - copied ‘...future.globals.maxSize’ to environment 1552s [00:52:32.424] assign_globals() ... done 1552s [00:52:32.425] plan(): Setting new future strategy stack: 1552s [00:52:32.425] List of future strategies: 1552s [00:52:32.425] 1. sequential: 1552s [00:52:32.425] - args: function (..., envir = parent.frame()) 1552s [00:52:32.425] - tweaked: FALSE 1552s [00:52:32.425] - call: NULL 1552s [00:52:32.426] plan(): nbrOfWorkers() = 1 1552s [00:52:32.427] plan(): Setting new future strategy stack: 1552s [00:52:32.427] List of future strategies: 1552s [00:52:32.427] 1. multicore: 1552s [00:52:32.427] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1552s [00:52:32.427] - tweaked: FALSE 1552s [00:52:32.427] - call: plan(strategy) 1552s [00:52:32.431] plan(): nbrOfWorkers() = 1 1552s [00:52:32.432] SequentialFuture started (and completed) 1552s [00:52:32.433] - Launch lazy future ... done 1552s [00:52:32.433] run() for ‘SequentialFuture’ ... done 1552s [00:52:32.433] Created future: 1552s [00:52:32.433] SequentialFuture: 1552s [00:52:32.433] Label: ‘future_lapply-1’ 1552s [00:52:32.433] Expression: 1552s [00:52:32.433] { 1552s [00:52:32.433] do.call(function(...) { 1552s [00:52:32.433] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1552s [00:52:32.433] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1552s [00:52:32.433] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1552s [00:52:32.433] on.exit(options(oopts), add = TRUE) 1552s [00:52:32.433] } 1552s [00:52:32.433] { 1552s [00:52:32.433] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1552s [00:52:32.433] ...future.X_jj <- ...future.elements_ii[[jj]] 1552s [00:52:32.433] ...future.FUN(...future.X_jj, ...) 1552s [00:52:32.433] }) 1552s [00:52:32.433] } 1552s [00:52:32.433] }, args = future.call.arguments) 1552s [00:52:32.433] } 1552s [00:52:32.433] Lazy evaluation: FALSE 1552s [00:52:32.433] Asynchronous evaluation: FALSE 1552s [00:52:32.433] Local evaluation: TRUE 1552s [00:52:32.433] Environment: R_GlobalEnv 1552s [00:52:32.433] Capture standard output: TRUE 1552s [00:52:32.433] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1552s [00:52:32.433] Globals: 5 objects totaling 4.96 KiB (function ‘...future.FUN’ of 4.85 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1552s [00:52:32.433] Packages: 1 packages (‘listenv’) 1552s [00:52:32.433] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1552s [00:52:32.433] Resolved: TRUE 1552s [00:52:32.433] Value: 336 bytes of class ‘list’ 1552s [00:52:32.433] Early signaling: FALSE 1552s [00:52:32.433] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1552s [00:52:32.433] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1552s [00:52:32.435] Chunk #1 of 2 ... DONE 1552s [00:52:32.435] Chunk #2 of 2 ... 1552s [00:52:32.436] - Finding globals in 'X' for chunk #2 ... 1552s [00:52:32.436] getGlobalsAndPackages() ... 1552s [00:52:32.436] Searching for globals... 1552s [00:52:32.436] 1552s [00:52:32.437] Searching for globals ... DONE 1552s [00:52:32.437] - globals: [0] 1552s [00:52:32.437] getGlobalsAndPackages() ... DONE 1552s [00:52:32.437] + additional globals found: [n=0] 1552s [00:52:32.437] + additional namespaces needed: [n=0] 1552s [00:52:32.437] - Finding globals in 'X' for chunk #2 ... DONE 1552s [00:52:32.437] - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes) 1552s [00:52:32.437] - seeds: 1552s [00:52:32.437] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1552s [00:52:32.438] getGlobalsAndPackages() ... 1552s [00:52:32.438] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1552s [00:52:32.438] Resolving globals: FALSE 1552s [00:52:32.438] Tweak future expression to call with '...' arguments ... 1552s [00:52:32.438] { 1552s [00:52:32.438] do.call(function(...) { 1552s [00:52:32.438] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1552s [00:52:32.438] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1552s [00:52:32.438] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1552s [00:52:32.438] on.exit(options(oopts), add = TRUE) 1552s [00:52:32.438] } 1552s [00:52:32.438] { 1552s [00:52:32.438] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1552s [00:52:32.438] ...future.X_jj <- ...future.elements_ii[[jj]] 1552s [00:52:32.438] ...future.FUN(...future.X_jj, ...) 1552s [00:52:32.438] }) 1552s [00:52:32.438] } 1552s [00:52:32.438] }, args = future.call.arguments) 1552s [00:52:32.438] } 1552s [00:52:32.438] Tweak future expression to call with '...' arguments ... DONE 1552s [00:52:32.439] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1552s [00:52:32.439] - packages: [1] ‘listenv’ 1552s [00:52:32.439] getGlobalsAndPackages() ... DONE 1552s [00:52:32.440] run() for ‘Future’ ... 1552s [00:52:32.440] - state: ‘created’ 1552s [00:52:32.440] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1552s [00:52:32.444] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1552s [00:52:32.444] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1552s [00:52:32.444] - Field: ‘label’ 1552s [00:52:32.445] - Field: ‘local’ 1552s [00:52:32.445] - Field: ‘owner’ 1552s [00:52:32.445] - Field: ‘envir’ 1552s [00:52:32.445] - Field: ‘packages’ 1552s [00:52:32.445] - Field: ‘gc’ 1552s [00:52:32.446] - Field: ‘conditions’ 1552s [00:52:32.446] - Field: ‘expr’ 1552s [00:52:32.446] - Field: ‘uuid’ 1552s [00:52:32.446] - Field: ‘seed’ 1552s [00:52:32.448] - Field: ‘version’ 1552s [00:52:32.448] - Field: ‘result’ 1552s [00:52:32.449] - Field: ‘asynchronous’ 1552s [00:52:32.449] - Field: ‘calls’ 1552s [00:52:32.449] - Field: ‘globals’ 1552s [00:52:32.449] - Field: ‘stdout’ 1552s [00:52:32.450] - Field: ‘earlySignal’ 1552s [00:52:32.450] - Field: ‘lazy’ 1552s [00:52:32.450] - Field: ‘state’ 1552s [00:52:32.450] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1552s [00:52:32.451] - Launch lazy future ... 1552s [00:52:32.451] Packages needed by the future expression (n = 1): ‘listenv’ 1552s [00:52:32.452] Packages needed by future strategies (n = 0): 1552s [00:52:32.453] { 1552s [00:52:32.453] { 1552s [00:52:32.453] { 1552s [00:52:32.453] ...future.startTime <- base::Sys.time() 1552s [00:52:32.453] { 1552s [00:52:32.453] { 1552s [00:52:32.453] { 1552s [00:52:32.453] { 1552s [00:52:32.453] base::local({ 1552s [00:52:32.453] has_future <- base::requireNamespace("future", 1552s [00:52:32.453] quietly = TRUE) 1552s [00:52:32.453] if (has_future) { 1552s [00:52:32.453] ns <- base::getNamespace("future") 1552s [00:52:32.453] version <- ns[[".package"]][["version"]] 1552s [00:52:32.453] if (is.null(version)) 1552s [00:52:32.453] version <- utils::packageVersion("future") 1552s [00:52:32.453] } 1552s [00:52:32.453] else { 1552s [00:52:32.453] version <- NULL 1552s [00:52:32.453] } 1552s [00:52:32.453] if (!has_future || version < "1.8.0") { 1552s [00:52:32.453] info <- base::c(r_version = base::gsub("R version ", 1552s [00:52:32.453] "", base::R.version$version.string), 1552s [00:52:32.453] platform = base::sprintf("%s (%s-bit)", 1552s [00:52:32.453] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1552s [00:52:32.453] os = base::paste(base::Sys.info()[base::c("sysname", 1552s [00:52:32.453] "release", "version")], collapse = " "), 1552s [00:52:32.453] hostname = base::Sys.info()[["nodename"]]) 1552s [00:52:32.453] info <- base::sprintf("%s: %s", base::names(info), 1552s [00:52:32.453] info) 1552s [00:52:32.453] info <- base::paste(info, collapse = "; ") 1552s [00:52:32.453] if (!has_future) { 1552s [00:52:32.453] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1552s [00:52:32.453] info) 1552s [00:52:32.453] } 1552s [00:52:32.453] else { 1552s [00:52:32.453] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1552s [00:52:32.453] info, version) 1552s [00:52:32.453] } 1552s [00:52:32.453] base::stop(msg) 1552s [00:52:32.453] } 1552s [00:52:32.453] }) 1552s [00:52:32.453] } 1552s [00:52:32.453] base::local({ 1552s [00:52:32.453] for (pkg in "listenv") { 1552s [00:52:32.453] base::loadNamespace(pkg) 1552s [00:52:32.453] base::library(pkg, character.only = TRUE) 1552s [00:52:32.453] } 1552s [00:52:32.453] }) 1552s [00:52:32.453] } 1552s [00:52:32.453] options(future.plan = NULL) 1552s [00:52:32.453] Sys.unsetenv("R_FUTURE_PLAN") 1552s [00:52:32.453] future::plan("default", .cleanup = FALSE, .init = FALSE) 1552s [00:52:32.453] } 1552s [00:52:32.453] ...future.workdir <- getwd() 1552s [00:52:32.453] } 1552s [00:52:32.453] ...future.oldOptions <- base::as.list(base::.Options) 1552s [00:52:32.453] ...future.oldEnvVars <- base::Sys.getenv() 1552s [00:52:32.453] } 1552s [00:52:32.453] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1552s [00:52:32.453] future.globals.maxSize = 1048576000, future.globals.method = NULL, 1552s [00:52:32.453] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1552s [00:52:32.453] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1552s [00:52:32.453] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1552s [00:52:32.453] future.stdout.windows.reencode = NULL, width = 80L) 1552s [00:52:32.453] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1552s [00:52:32.453] base::names(...future.oldOptions)) 1552s [00:52:32.453] } 1552s [00:52:32.453] if (FALSE) { 1552s [00:52:32.453] } 1552s [00:52:32.453] else { 1552s [00:52:32.453] if (TRUE) { 1552s [00:52:32.453] ...future.stdout <- base::rawConnection(base::raw(0L), 1552s [00:52:32.453] open = "w") 1552s [00:52:32.453] } 1552s [00:52:32.453] else { 1552s [00:52:32.453] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1552s [00:52:32.453] windows = "NUL", "/dev/null"), open = "w") 1552s [00:52:32.453] } 1552s [00:52:32.453] base::sink(...future.stdout, type = "output", split = FALSE) 1552s [00:52:32.453] base::on.exit(if (!base::is.null(...future.stdout)) { 1552s [00:52:32.453] base::sink(type = "output", split = FALSE) 1552s [00:52:32.453] base::close(...future.stdout) 1552s [00:52:32.453] }, add = TRUE) 1552s [00:52:32.453] } 1552s [00:52:32.453] ...future.frame <- base::sys.nframe() 1552s [00:52:32.453] ...future.conditions <- base::list() 1552s [00:52:32.453] ...future.rng <- base::globalenv()$.Random.seed 1552s [00:52:32.453] if (FALSE) { 1552s [00:52:32.453] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1552s [00:52:32.453] "...future.value", "...future.globalenv.names", ".Random.seed") 1552s [00:52:32.453] } 1552s [00:52:32.453] ...future.result <- base::tryCatch({ 1552s [00:52:32.453] base::withCallingHandlers({ 1552s [00:52:32.453] ...future.value <- base::withVisible(base::local({ 1552s [00:52:32.453] do.call(function(...) { 1552s [00:52:32.453] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1552s [00:52:32.453] if (!identical(...future.globals.maxSize.org, 1552s [00:52:32.453] ...future.globals.maxSize)) { 1552s [00:52:32.453] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1552s [00:52:32.453] on.exit(options(oopts), add = TRUE) 1552s [00:52:32.453] } 1552s [00:52:32.453] { 1552s [00:52:32.453] lapply(seq_along(...future.elements_ii), 1552s [00:52:32.453] FUN = function(jj) { 1552s [00:52:32.453] ...future.X_jj <- ...future.elements_ii[[jj]] 1552s [00:52:32.453] ...future.FUN(...future.X_jj, ...) 1552s [00:52:32.453] }) 1552s [00:52:32.453] } 1552s [00:52:32.453] }, args = future.call.arguments) 1552s [00:52:32.453] })) 1552s [00:52:32.453] future::FutureResult(value = ...future.value$value, 1552s [00:52:32.453] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1552s [00:52:32.453] ...future.rng), globalenv = if (FALSE) 1552s [00:52:32.453] list(added = base::setdiff(base::names(base::.GlobalEnv), 1552s [00:52:32.453] ...future.globalenv.names)) 1552s [00:52:32.453] else NULL, started = ...future.startTime, version = "1.8") 1552s [00:52:32.453] }, condition = base::local({ 1552s [00:52:32.453] c <- base::c 1552s [00:52:32.453] inherits <- base::inherits 1552s [00:52:32.453] invokeRestart <- base::invokeRestart 1552s [00:52:32.453] length <- base::length 1552s [00:52:32.453] list <- base::list 1552s [00:52:32.453] seq.int <- base::seq.int 1552s [00:52:32.453] signalCondition <- base::signalCondition 1552s [00:52:32.453] sys.calls <- base::sys.calls 1552s [00:52:32.453] `[[` <- base::`[[` 1552s [00:52:32.453] `+` <- base::`+` 1552s [00:52:32.453] `<<-` <- base::`<<-` 1552s [00:52:32.453] sysCalls <- function(calls = sys.calls(), from = 1L) { 1552s [00:52:32.453] calls[seq.int(from = from + 12L, to = length(calls) - 1552s [00:52:32.453] 3L)] 1552s [00:52:32.453] } 1552s [00:52:32.453] function(cond) { 1552s [00:52:32.453] is_error <- inherits(cond, "error") 1552s [00:52:32.453] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1552s [00:52:32.453] NULL) 1552s [00:52:32.453] if (is_error) { 1552s [00:52:32.453] sessionInformation <- function() { 1552s [00:52:32.453] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1552s [00:52:32.453] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1552s [00:52:32.453] search = base::search(), system = base::Sys.info()) 1552s [00:52:32.453] } 1552s [00:52:32.453] ...future.conditions[[length(...future.conditions) + 1552s [00:52:32.453] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1552s [00:52:32.453] cond$call), session = sessionInformation(), 1552s [00:52:32.453] timestamp = base::Sys.time(), signaled = 0L) 1552s [00:52:32.453] signalCondition(cond) 1552s [00:52:32.453] } 1552s [00:52:32.453] else if (!ignore && TRUE && inherits(cond, c("condition", 1552s [00:52:32.453] "immediateCondition"))) { 1552s [00:52:32.453] signal <- TRUE && inherits(cond, "immediateCondition") 1552s [00:52:32.453] ...future.conditions[[length(...future.conditions) + 1552s [00:52:32.453] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1552s [00:52:32.453] if (TRUE && !signal) { 1552s [00:52:32.453] muffleCondition <- function (cond, pattern = "^muffle") 1552s [00:52:32.453] { 1552s [00:52:32.453] inherits <- base::inherits 1552s [00:52:32.453] invokeRestart <- base::invokeRestart 1552s [00:52:32.453] is.null <- base::is.null 1552s [00:52:32.453] muffled <- FALSE 1552s [00:52:32.453] if (inherits(cond, "message")) { 1552s [00:52:32.453] muffled <- grepl(pattern, "muffleMessage") 1552s [00:52:32.453] if (muffled) 1552s [00:52:32.453] invokeRestart("muffleMessage") 1552s [00:52:32.453] } 1552s [00:52:32.453] else if (inherits(cond, "warning")) { 1552s [00:52:32.453] muffled <- grepl(pattern, "muffleWarning") 1552s [00:52:32.453] if (muffled) 1552s [00:52:32.453] invokeRestart("muffleWarning") 1552s [00:52:32.453] } 1552s [00:52:32.453] else if (inherits(cond, "condition")) { 1552s [00:52:32.453] if (!is.null(pattern)) { 1552s [00:52:32.453] computeRestarts <- base::computeRestarts 1552s [00:52:32.453] grepl <- base::grepl 1552s [00:52:32.453] restarts <- computeRestarts(cond) 1552s [00:52:32.453] for (restart in restarts) { 1552s [00:52:32.453] name <- restart$name 1552s [00:52:32.453] if (is.null(name)) 1552s [00:52:32.453] next 1552s [00:52:32.453] if (!grepl(pattern, name)) 1552s [00:52:32.453] next 1552s [00:52:32.453] invokeRestart(restart) 1552s [00:52:32.453] muffled <- TRUE 1552s [00:52:32.453] break 1552s [00:52:32.453] } 1552s [00:52:32.453] } 1552s [00:52:32.453] } 1552s [00:52:32.453] invisible(muffled) 1552s [00:52:32.453] } 1552s [00:52:32.453] muffleCondition(cond, pattern = "^muffle") 1552s [00:52:32.453] } 1552s [00:52:32.453] } 1552s [00:52:32.453] else { 1552s [00:52:32.453] if (TRUE) { 1552s [00:52:32.453] muffleCondition <- function (cond, pattern = "^muffle") 1552s [00:52:32.453] { 1552s [00:52:32.453] inherits <- base::inherits 1552s [00:52:32.453] invokeRestart <- base::invokeRestart 1552s [00:52:32.453] is.null <- base::is.null 1552s [00:52:32.453] muffled <- FALSE 1552s [00:52:32.453] if (inherits(cond, "message")) { 1552s [00:52:32.453] muffled <- grepl(pattern, "muffleMessage") 1552s [00:52:32.453] if (muffled) 1552s [00:52:32.453] invokeRestart("muffleMessage") 1552s [00:52:32.453] } 1552s [00:52:32.453] else if (inherits(cond, "warning")) { 1552s [00:52:32.453] muffled <- grepl(pattern, "muffleWarning") 1552s [00:52:32.453] if (muffled) 1552s [00:52:32.453] invokeRestart("muffleWarning") 1552s [00:52:32.453] } 1552s [00:52:32.453] else if (inherits(cond, "condition")) { 1552s [00:52:32.453] if (!is.null(pattern)) { 1552s [00:52:32.453] computeRestarts <- base::computeRestarts 1552s [00:52:32.453] grepl <- base::grepl 1552s [00:52:32.453] restarts <- computeRestarts(cond) 1552s [00:52:32.453] for (restart in restarts) { 1552s [00:52:32.453] name <- restart$name 1552s [00:52:32.453] if (is.null(name)) 1552s [00:52:32.453] next 1552s [00:52:32.453] if (!grepl(pattern, name)) 1552s [00:52:32.453] next 1552s [00:52:32.453] invokeRestart(restart) 1552s [00:52:32.453] muffled <- TRUE 1552s [00:52:32.453] break 1552s [00:52:32.453] } 1552s [00:52:32.453] } 1552s [00:52:32.453] } 1552s [00:52:32.453] invisible(muffled) 1552s [00:52:32.453] } 1552s [00:52:32.453] muffleCondition(cond, pattern = "^muffle") 1552s [00:52:32.453] } 1552s [00:52:32.453] } 1552s [00:52:32.453] } 1552s [00:52:32.453] })) 1552s [00:52:32.453] }, error = function(ex) { 1552s [00:52:32.453] base::structure(base::list(value = NULL, visible = NULL, 1552s [00:52:32.453] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1552s [00:52:32.453] ...future.rng), started = ...future.startTime, 1552s [00:52:32.453] finished = Sys.time(), session_uuid = NA_character_, 1552s [00:52:32.453] version = "1.8"), class = "FutureResult") 1552s [00:52:32.453] }, finally = { 1552s [00:52:32.453] if (!identical(...future.workdir, getwd())) 1552s [00:52:32.453] setwd(...future.workdir) 1552s [00:52:32.453] { 1552s [00:52:32.453] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1552s [00:52:32.453] ...future.oldOptions$nwarnings <- NULL 1552s [00:52:32.453] } 1552s [00:52:32.453] base::options(...future.oldOptions) 1552s [00:52:32.453] if (.Platform$OS.type == "windows") { 1552s [00:52:32.453] old_names <- names(...future.oldEnvVars) 1552s [00:52:32.453] envs <- base::Sys.getenv() 1552s [00:52:32.453] names <- names(envs) 1552s [00:52:32.453] common <- intersect(names, old_names) 1552s [00:52:32.453] added <- setdiff(names, old_names) 1552s [00:52:32.453] removed <- setdiff(old_names, names) 1552s [00:52:32.453] changed <- common[...future.oldEnvVars[common] != 1552s [00:52:32.453] envs[common]] 1552s [00:52:32.453] NAMES <- toupper(changed) 1552s [00:52:32.453] args <- list() 1552s [00:52:32.453] for (kk in seq_along(NAMES)) { 1552s [00:52:32.453] name <- changed[[kk]] 1552s [00:52:32.453] NAME <- NAMES[[kk]] 1552s [00:52:32.453] if (name != NAME && is.element(NAME, old_names)) 1552s [00:52:32.453] next 1552s [00:52:32.453] args[[name]] <- ...future.oldEnvVars[[name]] 1552s [00:52:32.453] } 1552s [00:52:32.453] NAMES <- toupper(added) 1552s [00:52:32.453] for (kk in seq_along(NAMES)) { 1552s [00:52:32.453] name <- added[[kk]] 1552s [00:52:32.453] NAME <- NAMES[[kk]] 1552s [00:52:32.453] if (name != NAME && is.element(NAME, old_names)) 1552s [00:52:32.453] next 1552s [00:52:32.453] args[[name]] <- "" 1552s [00:52:32.453] } 1552s [00:52:32.453] NAMES <- toupper(removed) 1552s [00:52:32.453] for (kk in seq_along(NAMES)) { 1552s [00:52:32.453] name <- removed[[kk]] 1552s [00:52:32.453] NAME <- NAMES[[kk]] 1552s [00:52:32.453] if (name != NAME && is.element(NAME, old_names)) 1552s [00:52:32.453] next 1552s [00:52:32.453] args[[name]] <- ...future.oldEnvVars[[name]] 1552s [00:52:32.453] } 1552s [00:52:32.453] if (length(args) > 0) 1552s [00:52:32.453] base::do.call(base::Sys.setenv, args = args) 1552s [00:52:32.453] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1552s [00:52:32.453] } 1552s [00:52:32.453] else { 1552s [00:52:32.453] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1552s [00:52:32.453] } 1552s [00:52:32.453] { 1552s [00:52:32.453] if (base::length(...future.futureOptionsAdded) > 1552s [00:52:32.453] 0L) { 1552s [00:52:32.453] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1552s [00:52:32.453] base::names(opts) <- ...future.futureOptionsAdded 1552s [00:52:32.453] base::options(opts) 1552s [00:52:32.453] } 1552s [00:52:32.453] { 1552s [00:52:32.453] { 1552s [00:52:32.453] NULL 1552s [00:52:32.453] RNGkind("Mersenne-Twister") 1552s [00:52:32.453] base::rm(list = ".Random.seed", envir = base::globalenv(), 1552s [00:52:32.453] inherits = FALSE) 1552s [00:52:32.453] } 1552s [00:52:32.453] options(future.plan = NULL) 1552s [00:52:32.453] if (is.na(NA_character_)) 1552s [00:52:32.453] Sys.unsetenv("R_FUTURE_PLAN") 1552s [00:52:32.453] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1552s [00:52:32.453] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1552s [00:52:32.453] envir = parent.frame()) 1552s [00:52:32.453] { 1552s [00:52:32.453] default_workers <- missing(workers) 1552s [00:52:32.453] if (is.function(workers)) 1552s [00:52:32.453] workers <- workers() 1552s [00:52:32.453] workers <- structure(as.integer(workers), 1552s [00:52:32.453] class = class(workers)) 1552s [00:52:32.453] stop_if_not(is.finite(workers), workers >= 1552s [00:52:32.453] 1L) 1552s [00:52:32.453] if ((workers == 1L && !inherits(workers, 1552s [00:52:32.453] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1552s [00:52:32.453] if (default_workers) 1552s [00:52:32.453] supportsMulticore(warn = TRUE) 1552s [00:52:32.453] return(sequential(..., envir = envir)) 1552s [00:52:32.453] } 1552s [00:52:32.453] oopts <- options(mc.cores = workers) 1552s [00:52:32.453] on.exit(options(oopts)) 1552s [00:52:32.453] future <- MulticoreFuture(..., workers = workers, 1552s [00:52:32.453] envir = envir) 1552s [00:52:32.453] if (!future$lazy) 1552s [00:52:32.453] future <- run(future) 1552s [00:52:32.453] invisible(future) 1552s [00:52:32.453] }), .cleanup = FALSE, .init = FALSE) 1552s [00:52:32.453] } 1552s [00:52:32.453] } 1552s [00:52:32.453] } 1552s [00:52:32.453] }) 1552s [00:52:32.453] if (TRUE) { 1552s [00:52:32.453] base::sink(type = "output", split = FALSE) 1552s [00:52:32.453] if (TRUE) { 1552s [00:52:32.453] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1552s [00:52:32.453] } 1552s [00:52:32.453] else { 1552s [00:52:32.453] ...future.result["stdout"] <- base::list(NULL) 1552s [00:52:32.453] } 1552s [00:52:32.453] base::close(...future.stdout) 1552s [00:52:32.453] ...future.stdout <- NULL 1552s [00:52:32.453] } 1552s [00:52:32.453] ...future.result$conditions <- ...future.conditions 1552s [00:52:32.453] ...future.result$finished <- base::Sys.time() 1552s [00:52:32.453] ...future.result 1552s [00:52:32.453] } 1552s [00:52:32.457] assign_globals() ... 1552s [00:52:32.458] List of 5 1552s [00:52:32.458] $ ...future.FUN :function (x, ...) 1552s [00:52:32.458] $ future.call.arguments : list() 1552s [00:52:32.458] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1552s [00:52:32.458] $ ...future.elements_ii :List of 1 1552s [00:52:32.458] ..$ b:Classes 'listenv', 'environment' 1552s [00:52:32.458] $ ...future.seeds_ii : NULL 1552s [00:52:32.458] $ ...future.globals.maxSize: NULL 1552s [00:52:32.458] - attr(*, "where")=List of 5 1552s [00:52:32.458] ..$ ...future.FUN : 1552s [00:52:32.458] ..$ future.call.arguments : 1552s [00:52:32.458] ..$ ...future.elements_ii : 1552s [00:52:32.458] ..$ ...future.seeds_ii : 1552s [00:52:32.458] ..$ ...future.globals.maxSize: 1552s [00:52:32.458] - attr(*, "resolved")= logi FALSE 1552s [00:52:32.458] - attr(*, "total_size")= num 4968 1552s [00:52:32.458] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1552s [00:52:32.458] - attr(*, "already-done")= logi TRUE 1552s [00:52:32.466] - copied ‘...future.FUN’ to environment 1552s [00:52:32.466] - copied ‘future.call.arguments’ to environment 1552s [00:52:32.467] - copied ‘...future.elements_ii’ to environment 1552s [00:52:32.467] - copied ‘...future.seeds_ii’ to environment 1552s [00:52:32.467] - copied ‘...future.globals.maxSize’ to environment 1552s [00:52:32.467] assign_globals() ... done 1552s [00:52:32.468] plan(): Setting new future strategy stack: 1552s [00:52:32.468] List of future strategies: 1552s [00:52:32.468] 1. sequential: 1552s [00:52:32.468] - args: function (..., envir = parent.frame()) 1552s [00:52:32.468] - tweaked: FALSE 1552s [00:52:32.468] - call: NULL 1552s [00:52:32.468] plan(): nbrOfWorkers() = 1 1552s [00:52:32.469] plan(): Setting new future strategy stack: 1552s [00:52:32.469] List of future strategies: 1552s [00:52:32.469] 1. multicore: 1552s [00:52:32.469] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1552s [00:52:32.469] - tweaked: FALSE 1552s [00:52:32.469] - call: plan(strategy) 1552s [00:52:32.473] plan(): nbrOfWorkers() = 1 1552s [00:52:32.473] SequentialFuture started (and completed) 1552s [00:52:32.473] - Launch lazy future ... done 1552s [00:52:32.473] run() for ‘SequentialFuture’ ... done 1552s [00:52:32.474] Created future: 1552s [00:52:32.474] SequentialFuture: 1552s [00:52:32.474] Label: ‘future_lapply-2’ 1552s [00:52:32.474] Expression: 1552s [00:52:32.474] { 1552s [00:52:32.474] do.call(function(...) { 1552s [00:52:32.474] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1552s [00:52:32.474] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1552s [00:52:32.474] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1552s [00:52:32.474] on.exit(options(oopts), add = TRUE) 1552s [00:52:32.474] } 1552s [00:52:32.474] { 1552s [00:52:32.474] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1552s [00:52:32.474] ...future.X_jj <- ...future.elements_ii[[jj]] 1552s [00:52:32.474] ...future.FUN(...future.X_jj, ...) 1552s [00:52:32.474] }) 1552s [00:52:32.474] } 1552s [00:52:32.474] }, args = future.call.arguments) 1552s [00:52:32.474] } 1552s [00:52:32.474] Lazy evaluation: FALSE 1552s [00:52:32.474] Asynchronous evaluation: FALSE 1552s [00:52:32.474] Local evaluation: TRUE 1552s [00:52:32.474] Environment: R_GlobalEnv 1552s [00:52:32.474] Capture standard output: TRUE 1552s [00:52:32.474] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1552s [00:52:32.474] Globals: 5 objects totaling 17.79 KiB (function ‘...future.FUN’ of 4.85 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 12.94 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1552s [00:52:32.474] Packages: 1 packages (‘listenv’) 1552s [00:52:32.474] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1552s [00:52:32.474] Resolved: TRUE 1552s [00:52:32.474] Value: 464 bytes of class ‘list’ 1552s [00:52:32.474] Early signaling: FALSE 1552s [00:52:32.474] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1552s [00:52:32.474] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1552s [00:52:32.476] Chunk #2 of 2 ... DONE 1552s [00:52:32.476] Launching 2 futures (chunks) ... DONE 1552s [00:52:32.476] Resolving 2 futures (chunks) ... 1552s [00:52:32.476] resolve() on list ... 1552s [00:52:32.476] recursive: 0 1552s [00:52:32.477] length: 2 1552s [00:52:32.477] 1552s [00:52:32.477] resolved() for ‘SequentialFuture’ ... 1552s [00:52:32.477] - state: ‘finished’ 1552s [00:52:32.477] - run: TRUE 1552s [00:52:32.477] - result: ‘FutureResult’ 1552s [00:52:32.477] resolved() for ‘SequentialFuture’ ... done 1552s [00:52:32.478] Future #1 1552s [00:52:32.478] signalConditionsASAP(SequentialFuture, pos=1) ... 1552s [00:52:32.478] - nx: 2 1552s [00:52:32.478] - relay: TRUE 1552s [00:52:32.478] - stdout: TRUE 1552s [00:52:32.478] - signal: TRUE 1552s [00:52:32.479] - resignal: FALSE 1552s [00:52:32.479] - force: TRUE 1552s [00:52:32.479] - relayed: [n=2] FALSE, FALSE 1552s [00:52:32.479] - queued futures: [n=2] FALSE, FALSE 1552s [00:52:32.479] - until=1 1552s [00:52:32.480] - relaying element #1 1552s [00:52:32.480] - relayed: [n=2] TRUE, FALSE 1552s [00:52:32.480] - queued futures: [n=2] TRUE, FALSE 1552s [00:52:32.480] signalConditionsASAP(SequentialFuture, pos=1) ... done 1552s [00:52:32.481] length: 1 (resolved future 1) 1552s [00:52:32.481] resolved() for ‘SequentialFuture’ ... 1552s [00:52:32.481] - state: ‘finished’ 1552s [00:52:32.481] - run: TRUE 1552s [00:52:32.482] - result: ‘FutureResult’ 1552s [00:52:32.482] resolved() for ‘SequentialFuture’ ... done 1552s [00:52:32.482] Future #2 1552s [00:52:32.482] signalConditionsASAP(SequentialFuture, pos=2) ... 1552s [00:52:32.482] - nx: 2 1552s [00:52:32.482] - relay: TRUE 1552s [00:52:32.483] - stdout: TRUE 1552s [00:52:32.483] - signal: TRUE 1552s [00:52:32.483] - resignal: FALSE 1552s [00:52:32.483] - force: TRUE 1552s [00:52:32.483] - relayed: [n=2] TRUE, FALSE 1552s [00:52:32.483] - queued futures: [n=2] TRUE, FALSE 1552s [00:52:32.484] - until=2 1552s [00:52:32.484] - relaying element #2 1552s [00:52:32.484] - relayed: [n=2] TRUE, TRUE 1552s [00:52:32.484] - queued futures: [n=2] TRUE, TRUE 1552s [00:52:32.485] signalConditionsASAP(SequentialFuture, pos=2) ... done 1552s [00:52:32.485] length: 0 (resolved future 2) 1552s [00:52:32.485] Relaying remaining futures 1552s [00:52:32.485] signalConditionsASAP(NULL, pos=0) ... 1552s [00:52:32.485] - nx: 2 1552s [00:52:32.485] - relay: TRUE 1552s [00:52:32.485] - stdout: TRUE 1552s [00:52:32.485] - signal: TRUE 1552s [00:52:32.485] - resignal: FALSE 1552s [00:52:32.485] - force: TRUE 1552s [00:52:32.486] - relayed: [n=2] TRUE, TRUE 1552s [00:52:32.486] - queued futures: [n=2] TRUE, TRUE 1552s - flush all 1552s [00:52:32.486] - relayed: [n=2] TRUE, TRUE 1552s [00:52:32.486] - queued futures: [n=2] TRUE, TRUE 1552s [00:52:32.486] signalConditionsASAP(NULL, pos=0) ... done 1552s [00:52:32.486] resolve() on list ... DONE 1552s [00:52:32.486] - Number of value chunks collected: 2 1552s [00:52:32.487] Resolving 2 futures (chunks) ... DONE 1552s [00:52:32.487] Reducing values from 2 chunks ... 1552s [00:52:32.487] - Number of values collected after concatenation: 2 1552s [00:52:32.487] - Number of values expected: 2 1552s [00:52:32.487] Reducing values from 2 chunks ... DONE 1552s [00:52:32.487] future_lapply() ... DONE 1552s List of 1 1552s $ y:List of 2 1552s ..$ a: Named chr "A" 1552s .. ..- attr(*, "names")= chr "A" 1552s ..$ b: Named chr [1:2] "A" "B" 1552s .. ..- attr(*, "names")=- future_lapply(x, FUN = vector, ...) ... 1552s chr [1:2] "A" "B" 1552s [00:52:32.493] future_lapply() ... 1552s [00:52:32.497] Number of chunks: 1 1552s [00:52:32.497] getGlobalsAndPackagesXApply() ... 1552s [00:52:32.497] - future.globals: TRUE 1552s [00:52:32.497] getGlobalsAndPackages() ... 1552s [00:52:32.498] Searching for globals... 1552s [00:52:32.500] - globals found: [2] ‘FUN’, ‘.Internal’ 1552s [00:52:32.500] Searching for globals ... DONE 1552s [00:52:32.500] Resolving globals: FALSE 1552s [00:52:32.501] The total size of the 1 globals is 2.13 KiB (2184 bytes) 1552s [00:52:32.502] The total size of the 1 globals exported for future expression (‘FUN(length = 2L)’) is 2.13 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (2.13 KiB of class ‘function’) 1552s [00:52:32.502] - globals: [1] ‘FUN’ 1552s [00:52:32.502] 1552s [00:52:32.502] getGlobalsAndPackages() ... DONE 1552s [00:52:32.502] - globals found/used: [n=1] ‘FUN’ 1552s [00:52:32.502] - needed namespaces: [n=0] 1552s [00:52:32.503] Finding globals ... DONE 1552s [00:52:32.503] - use_args: TRUE 1552s [00:52:32.503] - Getting '...' globals ... 1552s [00:52:32.503] resolve() on list ... 1552s [00:52:32.504] recursive: 0 1552s [00:52:32.504] length: 1 1552s [00:52:32.504] elements: ‘...’ 1552s [00:52:32.504] length: 0 (resolved future 1) 1552s [00:52:32.504] resolve() on list ... DONE 1552s [00:52:32.505] - '...' content: [n=1] ‘length’ 1552s [00:52:32.505] List of 1 1552s [00:52:32.505] $ ...:List of 1 1552s [00:52:32.505] ..$ length: int 2 1552s [00:52:32.505] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1552s [00:52:32.505] - attr(*, "where")=List of 1 1552s [00:52:32.505] ..$ ...: 1552s [00:52:32.505] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1552s [00:52:32.505] - attr(*, "resolved")= logi TRUE 1552s [00:52:32.505] - attr(*, "total_size")= num NA 1552s [00:52:32.509] - Getting '...' globals ... DONE 1552s [00:52:32.509] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1552s [00:52:32.509] List of 2 1552s [00:52:32.509] $ ...future.FUN:function (mode = "logical", length = 0L) 1552s [00:52:32.509] $ ... :List of 1 1552s [00:52:32.509] ..$ length: int 2 1552s [00:52:32.509] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1552s [00:52:32.509] - attr(*, "where")=List of 2 1552s [00:52:32.509] ..$ ...future.FUN: 1552s [00:52:32.509] ..$ ... : 1552s [00:52:32.509] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1552s [00:52:32.509] - attr(*, "resolved")= logi FALSE 1552s [00:52:32.509] - attr(*, "total_size")= num 2240 1552s [00:52:32.514] Packages to be attached in all futures: [n=0] 1552s [00:52:32.515] getGlobalsAndPackagesXApply() ... DONE 1552s [00:52:32.515] Number of futures (= number of chunks): 1 1552s [00:52:32.516] Launching 1 futures (chunks) ... 1552s [00:52:32.516] Chunk #1 of 1 ... 1552s [00:52:32.516] - Finding globals in 'X' for chunk #1 ... 1552s [00:52:32.516] getGlobalsAndPackages() ... 1552s [00:52:32.516] Searching for globals... 1552s [00:52:32.517] 1552s [00:52:32.517] Searching for globals ... DONE 1552s [00:52:32.517] - globals: [0] 1552s [00:52:32.517] getGlobalsAndPackages() ... DONE 1552s [00:52:32.517] + additional globals found: [n=0] 1552s [00:52:32.517] + additional namespaces needed: [n=0] 1552s [00:52:32.517] - Finding globals in 'X' for chunk #1 ... DONE 1552s [00:52:32.518] - seeds: 1552s [00:52:32.518] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1552s [00:52:32.518] getGlobalsAndPackages() ... 1552s [00:52:32.518] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1552s [00:52:32.518] Resolving globals: FALSE 1552s [00:52:32.518] Tweak future expression to call with '...' arguments ... 1552s [00:52:32.518] { 1552s [00:52:32.518] do.call(function(...) { 1552s [00:52:32.518] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1552s [00:52:32.518] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1552s [00:52:32.518] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1552s [00:52:32.518] on.exit(options(oopts), add = TRUE) 1552s [00:52:32.518] } 1552s [00:52:32.518] { 1552s [00:52:32.518] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1552s [00:52:32.518] ...future.X_jj <- ...future.elements_ii[[jj]] 1552s [00:52:32.518] ...future.FUN(...future.X_jj, ...) 1552s [00:52:32.518] }) 1552s [00:52:32.518] } 1552s [00:52:32.518] }, args = future.call.arguments) 1552s [00:52:32.518] } 1552s [00:52:32.519] Tweak future expression to call with '...' arguments ... DONE 1552s [00:52:32.519] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1552s [00:52:32.519] 1552s [00:52:32.519] getGlobalsAndPackages() ... DONE 1552s [00:52:32.520] run() for ‘Future’ ... 1552s [00:52:32.520] - state: ‘created’ 1552s [00:52:32.520] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1552s [00:52:32.524] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1552s [00:52:32.524] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1552s [00:52:32.524] - Field: ‘label’ 1552s [00:52:32.525] - Field: ‘local’ 1552s [00:52:32.525] - Field: ‘owner’ 1552s [00:52:32.525] - Field: ‘envir’ 1552s [00:52:32.525] - Field: ‘packages’ 1552s [00:52:32.526] - Field: ‘gc’ 1552s [00:52:32.526] - Field: ‘conditions’ 1552s [00:52:32.526] - Field: ‘expr’ 1552s [00:52:32.526] - Field: ‘uuid’ 1552s [00:52:32.526] - Field: ‘seed’ 1552s [00:52:32.526] - Field: ‘version’ 1552s [00:52:32.527] - Field: ‘result’ 1552s [00:52:32.529] - Field: ‘asynchronous’ 1552s [00:52:32.529] - Field: ‘calls’ 1552s [00:52:32.529] - Field: ‘globals’ 1552s [00:52:32.530] - Field: ‘stdout’ 1552s [00:52:32.530] - Field: ‘earlySignal’ 1552s [00:52:32.530] - Field: ‘lazy’ 1552s [00:52:32.530] - Field: ‘state’ 1552s [00:52:32.530] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1552s [00:52:32.531] - Launch lazy future ... 1552s [00:52:32.531] Packages needed by the future expression (n = 0): 1552s [00:52:32.531] Packages needed by future strategies (n = 0): 1552s [00:52:32.532] { 1552s [00:52:32.532] { 1552s [00:52:32.532] { 1552s [00:52:32.532] ...future.startTime <- base::Sys.time() 1552s [00:52:32.532] { 1552s [00:52:32.532] { 1552s [00:52:32.532] { 1552s [00:52:32.532] base::local({ 1552s [00:52:32.532] has_future <- base::requireNamespace("future", 1552s [00:52:32.532] quietly = TRUE) 1552s [00:52:32.532] if (has_future) { 1552s [00:52:32.532] ns <- base::getNamespace("future") 1552s [00:52:32.532] version <- ns[[".package"]][["version"]] 1552s [00:52:32.532] if (is.null(version)) 1552s [00:52:32.532] version <- utils::packageVersion("future") 1552s [00:52:32.532] } 1552s [00:52:32.532] else { 1552s [00:52:32.532] version <- NULL 1552s [00:52:32.532] } 1552s [00:52:32.532] if (!has_future || version < "1.8.0") { 1552s [00:52:32.532] info <- base::c(r_version = base::gsub("R version ", 1552s [00:52:32.532] "", base::R.version$version.string), 1552s [00:52:32.532] platform = base::sprintf("%s (%s-bit)", 1552s [00:52:32.532] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1552s [00:52:32.532] os = base::paste(base::Sys.info()[base::c("sysname", 1552s [00:52:32.532] "release", "version")], collapse = " "), 1552s [00:52:32.532] hostname = base::Sys.info()[["nodename"]]) 1552s [00:52:32.532] info <- base::sprintf("%s: %s", base::names(info), 1552s [00:52:32.532] info) 1552s [00:52:32.532] info <- base::paste(info, collapse = "; ") 1552s [00:52:32.532] if (!has_future) { 1552s [00:52:32.532] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1552s [00:52:32.532] info) 1552s [00:52:32.532] } 1552s [00:52:32.532] else { 1552s [00:52:32.532] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1552s [00:52:32.532] info, version) 1552s [00:52:32.532] } 1552s [00:52:32.532] base::stop(msg) 1552s [00:52:32.532] } 1552s [00:52:32.532] }) 1552s [00:52:32.532] } 1552s [00:52:32.532] options(future.plan = NULL) 1552s [00:52:32.532] Sys.unsetenv("R_FUTURE_PLAN") 1552s [00:52:32.532] future::plan("default", .cleanup = FALSE, .init = FALSE) 1552s [00:52:32.532] } 1552s [00:52:32.532] ...future.workdir <- getwd() 1552s [00:52:32.532] } 1552s [00:52:32.532] ...future.oldOptions <- base::as.list(base::.Options) 1552s [00:52:32.532] ...future.oldEnvVars <- base::Sys.getenv() 1552s [00:52:32.532] } 1552s [00:52:32.532] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1552s [00:52:32.532] future.globals.maxSize = NULL, future.globals.method = NULL, 1552s [00:52:32.532] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1552s [00:52:32.532] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1552s [00:52:32.532] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1552s [00:52:32.532] future.stdout.windows.reencode = NULL, width = 80L) 1552s [00:52:32.532] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1552s [00:52:32.532] base::names(...future.oldOptions)) 1552s [00:52:32.532] } 1552s [00:52:32.532] if (FALSE) { 1552s [00:52:32.532] } 1552s [00:52:32.532] else { 1552s [00:52:32.532] if (TRUE) { 1552s [00:52:32.532] ...future.stdout <- base::rawConnection(base::raw(0L), 1552s [00:52:32.532] open = "w") 1552s [00:52:32.532] } 1552s [00:52:32.532] else { 1552s [00:52:32.532] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1552s [00:52:32.532] windows = "NUL", "/dev/null"), open = "w") 1552s [00:52:32.532] } 1552s [00:52:32.532] base::sink(...future.stdout, type = "output", split = FALSE) 1552s [00:52:32.532] base::on.exit(if (!base::is.null(...future.stdout)) { 1552s [00:52:32.532] base::sink(type = "output", split = FALSE) 1552s [00:52:32.532] base::close(...future.stdout) 1552s [00:52:32.532] }, add = TRUE) 1552s [00:52:32.532] } 1552s [00:52:32.532] ...future.frame <- base::sys.nframe() 1552s [00:52:32.532] ...future.conditions <- base::list() 1552s [00:52:32.532] ...future.rng <- base::globalenv()$.Random.seed 1552s [00:52:32.532] if (FALSE) { 1552s [00:52:32.532] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1552s [00:52:32.532] "...future.value", "...future.globalenv.names", ".Random.seed") 1552s [00:52:32.532] } 1552s [00:52:32.532] ...future.result <- base::tryCatch({ 1552s [00:52:32.532] base::withCallingHandlers({ 1552s [00:52:32.532] ...future.value <- base::withVisible(base::local({ 1552s [00:52:32.532] do.call(function(...) { 1552s [00:52:32.532] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1552s [00:52:32.532] if (!identical(...future.globals.maxSize.org, 1552s [00:52:32.532] ...future.globals.maxSize)) { 1552s [00:52:32.532] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1552s [00:52:32.532] on.exit(options(oopts), add = TRUE) 1552s [00:52:32.532] } 1552s [00:52:32.532] { 1552s [00:52:32.532] lapply(seq_along(...future.elements_ii), 1552s [00:52:32.532] FUN = function(jj) { 1552s [00:52:32.532] ...future.X_jj <- ...future.elements_ii[[jj]] 1552s [00:52:32.532] ...future.FUN(...future.X_jj, ...) 1552s [00:52:32.532] }) 1552s [00:52:32.532] } 1552s [00:52:32.532] }, args = future.call.arguments) 1552s [00:52:32.532] })) 1552s [00:52:32.532] future::FutureResult(value = ...future.value$value, 1552s [00:52:32.532] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1552s [00:52:32.532] ...future.rng), globalenv = if (FALSE) 1552s [00:52:32.532] list(added = base::setdiff(base::names(base::.GlobalEnv), 1552s [00:52:32.532] ...future.globalenv.names)) 1552s [00:52:32.532] else NULL, started = ...future.startTime, version = "1.8") 1552s [00:52:32.532] }, condition = base::local({ 1552s [00:52:32.532] c <- base::c 1552s [00:52:32.532] inherits <- base::inherits 1552s [00:52:32.532] invokeRestart <- base::invokeRestart 1552s [00:52:32.532] length <- base::length 1552s [00:52:32.532] list <- base::list 1552s [00:52:32.532] seq.int <- base::seq.int 1552s [00:52:32.532] signalCondition <- base::signalCondition 1552s [00:52:32.532] sys.calls <- base::sys.calls 1552s [00:52:32.532] `[[` <- base::`[[` 1552s [00:52:32.532] `+` <- base::`+` 1552s [00:52:32.532] `<<-` <- base::`<<-` 1552s [00:52:32.532] sysCalls <- function(calls = sys.calls(), from = 1L) { 1552s [00:52:32.532] calls[seq.int(from = from + 12L, to = length(calls) - 1552s [00:52:32.532] 3L)] 1552s [00:52:32.532] } 1552s [00:52:32.532] function(cond) { 1552s [00:52:32.532] is_error <- inherits(cond, "error") 1552s [00:52:32.532] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1552s [00:52:32.532] NULL) 1552s [00:52:32.532] if (is_error) { 1552s [00:52:32.532] sessionInformation <- function() { 1552s [00:52:32.532] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1552s [00:52:32.532] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1552s [00:52:32.532] search = base::search(), system = base::Sys.info()) 1552s [00:52:32.532] } 1552s [00:52:32.532] ...future.conditions[[length(...future.conditions) + 1552s [00:52:32.532] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1552s [00:52:32.532] cond$call), session = sessionInformation(), 1552s [00:52:32.532] timestamp = base::Sys.time(), signaled = 0L) 1552s [00:52:32.532] signalCondition(cond) 1552s [00:52:32.532] } 1552s [00:52:32.532] else if (!ignore && TRUE && inherits(cond, c("condition", 1552s [00:52:32.532] "immediateCondition"))) { 1552s [00:52:32.532] signal <- TRUE && inherits(cond, "immediateCondition") 1552s [00:52:32.532] ...future.conditions[[length(...future.conditions) + 1552s [00:52:32.532] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1552s [00:52:32.532] if (TRUE && !signal) { 1552s [00:52:32.532] muffleCondition <- function (cond, pattern = "^muffle") 1552s [00:52:32.532] { 1552s [00:52:32.532] inherits <- base::inherits 1552s [00:52:32.532] invokeRestart <- base::invokeRestart 1552s [00:52:32.532] is.null <- base::is.null 1552s [00:52:32.532] muffled <- FALSE 1552s [00:52:32.532] if (inherits(cond, "message")) { 1552s [00:52:32.532] muffled <- grepl(pattern, "muffleMessage") 1552s [00:52:32.532] if (muffled) 1552s [00:52:32.532] invokeRestart("muffleMessage") 1552s [00:52:32.532] } 1552s [00:52:32.532] else if (inherits(cond, "warning")) { 1552s [00:52:32.532] muffled <- grepl(pattern, "muffleWarning") 1552s [00:52:32.532] if (muffled) 1552s [00:52:32.532] invokeRestart("muffleWarning") 1552s [00:52:32.532] } 1552s [00:52:32.532] else if (inherits(cond, "condition")) { 1552s [00:52:32.532] if (!is.null(pattern)) { 1552s [00:52:32.532] computeRestarts <- base::computeRestarts 1552s [00:52:32.532] grepl <- base::grepl 1552s [00:52:32.532] restarts <- computeRestarts(cond) 1552s [00:52:32.532] for (restart in restarts) { 1552s [00:52:32.532] name <- restart$name 1552s [00:52:32.532] if (is.null(name)) 1552s [00:52:32.532] next 1552s [00:52:32.532] if (!grepl(pattern, name)) 1552s [00:52:32.532] next 1552s [00:52:32.532] invokeRestart(restart) 1552s [00:52:32.532] muffled <- TRUE 1552s [00:52:32.532] break 1552s [00:52:32.532] } 1552s [00:52:32.532] } 1552s [00:52:32.532] } 1552s [00:52:32.532] invisible(muffled) 1552s [00:52:32.532] } 1552s [00:52:32.532] muffleCondition(cond, pattern = "^muffle") 1552s [00:52:32.532] } 1552s [00:52:32.532] } 1552s [00:52:32.532] else { 1552s [00:52:32.532] if (TRUE) { 1552s [00:52:32.532] muffleCondition <- function (cond, pattern = "^muffle") 1552s [00:52:32.532] { 1552s [00:52:32.532] inherits <- base::inherits 1552s [00:52:32.532] invokeRestart <- base::invokeRestart 1552s [00:52:32.532] is.null <- base::is.null 1552s [00:52:32.532] muffled <- FALSE 1552s [00:52:32.532] if (inherits(cond, "message")) { 1552s [00:52:32.532] muffled <- grepl(pattern, "muffleMessage") 1552s [00:52:32.532] if (muffled) 1552s [00:52:32.532] invokeRestart("muffleMessage") 1552s [00:52:32.532] } 1552s [00:52:32.532] else if (inherits(cond, "warning")) { 1552s [00:52:32.532] muffled <- grepl(pattern, "muffleWarning") 1552s [00:52:32.532] if (muffled) 1552s [00:52:32.532] invokeRestart("muffleWarning") 1552s [00:52:32.532] } 1552s [00:52:32.532] else if (inherits(cond, "condition")) { 1552s [00:52:32.532] if (!is.null(pattern)) { 1552s [00:52:32.532] computeRestarts <- base::computeRestarts 1552s [00:52:32.532] grepl <- base::grepl 1552s [00:52:32.532] restarts <- computeRestarts(cond) 1552s [00:52:32.532] for (restart in restarts) { 1552s [00:52:32.532] name <- restart$name 1552s [00:52:32.532] if (is.null(name)) 1552s [00:52:32.532] next 1552s [00:52:32.532] if (!grepl(pattern, name)) 1552s [00:52:32.532] next 1552s [00:52:32.532] invokeRestart(restart) 1552s [00:52:32.532] muffled <- TRUE 1552s [00:52:32.532] break 1552s [00:52:32.532] } 1552s [00:52:32.532] } 1552s [00:52:32.532] } 1552s [00:52:32.532] invisible(muffled) 1552s [00:52:32.532] } 1552s [00:52:32.532] muffleCondition(cond, pattern = "^muffle") 1552s [00:52:32.532] } 1552s [00:52:32.532] } 1552s [00:52:32.532] } 1552s [00:52:32.532] })) 1552s [00:52:32.532] }, error = function(ex) { 1552s [00:52:32.532] base::structure(base::list(value = NULL, visible = NULL, 1552s [00:52:32.532] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1552s [00:52:32.532] ...future.rng), started = ...future.startTime, 1552s [00:52:32.532] finished = Sys.time(), session_uuid = NA_character_, 1552s [00:52:32.532] version = "1.8"), class = "FutureResult") 1552s [00:52:32.532] }, finally = { 1552s [00:52:32.532] if (!identical(...future.workdir, getwd())) 1552s [00:52:32.532] setwd(...future.workdir) 1552s [00:52:32.532] { 1552s [00:52:32.532] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1552s [00:52:32.532] ...future.oldOptions$nwarnings <- NULL 1552s [00:52:32.532] } 1552s [00:52:32.532] base::options(...future.oldOptions) 1552s [00:52:32.532] if (.Platform$OS.type == "windows") { 1552s [00:52:32.532] old_names <- names(...future.oldEnvVars) 1552s [00:52:32.532] envs <- base::Sys.getenv() 1552s [00:52:32.532] names <- names(envs) 1552s [00:52:32.532] common <- intersect(names, old_names) 1552s [00:52:32.532] added <- setdiff(names, old_names) 1552s [00:52:32.532] removed <- setdiff(old_names, names) 1552s [00:52:32.532] changed <- common[...future.oldEnvVars[common] != 1552s [00:52:32.532] envs[common]] 1552s [00:52:32.532] NAMES <- toupper(changed) 1552s [00:52:32.532] args <- list() 1552s [00:52:32.532] for (kk in seq_along(NAMES)) { 1552s [00:52:32.532] name <- changed[[kk]] 1552s [00:52:32.532] NAME <- NAMES[[kk]] 1552s [00:52:32.532] if (name != NAME && is.element(NAME, old_names)) 1552s [00:52:32.532] next 1552s [00:52:32.532] args[[name]] <- ...future.oldEnvVars[[name]] 1552s [00:52:32.532] } 1552s [00:52:32.532] NAMES <- toupper(added) 1552s [00:52:32.532] for (kk in seq_along(NAMES)) { 1552s [00:52:32.532] name <- added[[kk]] 1552s [00:52:32.532] NAME <- NAMES[[kk]] 1552s [00:52:32.532] if (name != NAME && is.element(NAME, old_names)) 1552s [00:52:32.532] next 1552s [00:52:32.532] args[[name]] <- "" 1552s [00:52:32.532] } 1552s [00:52:32.532] NAMES <- toupper(removed) 1552s [00:52:32.532] for (kk in seq_along(NAMES)) { 1552s [00:52:32.532] name <- removed[[kk]] 1552s [00:52:32.532] NAME <- NAMES[[kk]] 1552s [00:52:32.532] if (name != NAME && is.element(NAME, old_names)) 1552s [00:52:32.532] next 1552s [00:52:32.532] args[[name]] <- ...future.oldEnvVars[[name]] 1552s [00:52:32.532] } 1552s [00:52:32.532] if (length(args) > 0) 1552s [00:52:32.532] base::do.call(base::Sys.setenv, args = args) 1552s [00:52:32.532] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1552s [00:52:32.532] } 1552s [00:52:32.532] else { 1552s [00:52:32.532] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1552s [00:52:32.532] } 1552s [00:52:32.532] { 1552s [00:52:32.532] if (base::length(...future.futureOptionsAdded) > 1552s [00:52:32.532] 0L) { 1552s [00:52:32.532] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1552s [00:52:32.532] base::names(opts) <- ...future.futureOptionsAdded 1552s [00:52:32.532] base::options(opts) 1552s [00:52:32.532] } 1552s [00:52:32.532] { 1552s [00:52:32.532] { 1552s [00:52:32.532] NULL 1552s [00:52:32.532] RNGkind("Mersenne-Twister") 1552s [00:52:32.532] base::rm(list = ".Random.seed", envir = base::globalenv(), 1552s [00:52:32.532] inherits = FALSE) 1552s [00:52:32.532] } 1552s [00:52:32.532] options(future.plan = NULL) 1552s [00:52:32.532] if (is.na(NA_character_)) 1552s [00:52:32.532] Sys.unsetenv("R_FUTURE_PLAN") 1552s [00:52:32.532] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1552s [00:52:32.532] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1552s [00:52:32.532] envir = parent.frame()) 1552s [00:52:32.532] { 1552s [00:52:32.532] default_workers <- missing(workers) 1552s [00:52:32.532] if (is.function(workers)) 1552s [00:52:32.532] workers <- workers() 1552s [00:52:32.532] workers <- structure(as.integer(workers), 1552s [00:52:32.532] class = class(workers)) 1552s [00:52:32.532] stop_if_not(is.finite(workers), workers >= 1552s [00:52:32.532] 1L) 1552s [00:52:32.532] if ((workers == 1L && !inherits(workers, 1552s [00:52:32.532] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1552s [00:52:32.532] if (default_workers) 1552s [00:52:32.532] supportsMulticore(warn = TRUE) 1552s [00:52:32.532] return(sequential(..., envir = envir)) 1552s [00:52:32.532] } 1552s [00:52:32.532] oopts <- options(mc.cores = workers) 1552s [00:52:32.532] on.exit(options(oopts)) 1552s [00:52:32.532] future <- MulticoreFuture(..., workers = workers, 1552s [00:52:32.532] envir = envir) 1552s [00:52:32.532] if (!future$lazy) 1552s [00:52:32.532] future <- run(future) 1552s [00:52:32.532] invisible(future) 1552s [00:52:32.532] }), .cleanup = FALSE, .init = FALSE) 1552s [00:52:32.532] } 1552s [00:52:32.532] } 1552s [00:52:32.532] } 1552s [00:52:32.532] }) 1552s [00:52:32.532] if (TRUE) { 1552s [00:52:32.532] base::sink(type = "output", split = FALSE) 1552s [00:52:32.532] if (TRUE) { 1552s [00:52:32.532] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1552s [00:52:32.532] } 1552s [00:52:32.532] else { 1552s [00:52:32.532] ...future.result["stdout"] <- base::list(NULL) 1552s [00:52:32.532] } 1552s [00:52:32.532] base::close(...future.stdout) 1552s [00:52:32.532] ...future.stdout <- NULL 1552s [00:52:32.532] } 1552s [00:52:32.532] ...future.result$conditions <- ...future.conditions 1552s [00:52:32.532] ...future.result$finished <- base::Sys.time() 1552s [00:52:32.532] ...future.result 1552s [00:52:32.532] } 1552s [00:52:32.535] assign_globals() ... 1552s [00:52:32.535] List of 5 1552s [00:52:32.535] $ ...future.FUN :function (mode = "logical", length = 0L) 1552s [00:52:32.535] $ future.call.arguments :List of 1 1552s [00:52:32.535] ..$ length: int 2 1552s [00:52:32.535] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1552s [00:52:32.535] $ ...future.elements_ii :List of 4 1552s [00:52:32.535] ..$ a: chr "integer" 1552s [00:52:32.535] ..$ b: chr "numeric" 1552s [00:52:32.535] ..$ c: chr "character" 1552s [00:52:32.535] ..$ c: chr "list" 1552s [00:52:32.535] $ ...future.seeds_ii : NULL 1552s [00:52:32.535] $ ...future.globals.maxSize: NULL 1552s [00:52:32.535] - attr(*, "where")=List of 5 1552s [00:52:32.535] ..$ ...future.FUN : 1552s [00:52:32.535] ..$ future.call.arguments : 1552s [00:52:32.535] ..$ ...future.elements_ii : 1552s [00:52:32.535] ..$ ...future.seeds_ii : 1552s [00:52:32.535] ..$ ...future.globals.maxSize: 1552s [00:52:32.535] - attr(*, "resolved")= logi FALSE 1552s [00:52:32.535] - attr(*, "total_size")= num 2240 1552s [00:52:32.535] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1552s [00:52:32.535] - attr(*, "already-done")= logi TRUE 1552s [00:52:32.543] - copied ‘...future.FUN’ to environment 1552s [00:52:32.543] - copied ‘future.call.arguments’ to environment 1552s [00:52:32.543] - copied ‘...future.elements_ii’ to environment 1552s [00:52:32.543] - copied ‘...future.seeds_ii’ to environment 1552s [00:52:32.543] - copied ‘...future.globals.maxSize’ to environment 1552s [00:52:32.543] assign_globals() ... done 1552s [00:52:32.544] plan(): Setting new future strategy stack: 1552s [00:52:32.544] List of future strategies: 1552s [00:52:32.544] 1. sequential: 1552s [00:52:32.544] - args: function (..., envir = parent.frame()) 1552s [00:52:32.544] - tweaked: FALSE 1552s [00:52:32.544] - call: NULL 1552s [00:52:32.544] plan(): nbrOfWorkers() = 1 1552s [00:52:32.545] plan(): Setting new future strategy stack: 1552s [00:52:32.545] List of future strategies: 1552s [00:52:32.545] 1. multicore: 1552s [00:52:32.545] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1552s [00:52:32.545] - tweaked: FALSE 1552s [00:52:32.545] - call: plan(strategy) 1552s [00:52:32.549] plan(): nbrOfWorkers() = 1 1552s [00:52:32.549] SequentialFuture started (and completed) 1552s [00:52:32.549] - Launch lazy future ... done 1552s [00:52:32.549] run() for ‘SequentialFuture’ ... done 1552s [00:52:32.549] Created future: 1552s [00:52:32.550] SequentialFuture: 1552s [00:52:32.550] Label: ‘future_lapply-1’ 1552s [00:52:32.550] Expression: 1552s [00:52:32.550] { 1552s [00:52:32.550] do.call(function(...) { 1552s [00:52:32.550] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1552s [00:52:32.550] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1552s [00:52:32.550] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1552s [00:52:32.550] on.exit(options(oopts), add = TRUE) 1552s [00:52:32.550] } 1552s [00:52:32.550] { 1552s [00:52:32.550] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1552s [00:52:32.550] ...future.X_jj <- ...future.elements_ii[[jj]] 1552s [00:52:32.550] ...future.FUN(...future.X_jj, ...) 1552s [00:52:32.550] }) 1552s [00:52:32.550] } 1552s [00:52:32.550] }, args = future.call.arguments) 1552s [00:52:32.550] } 1552s [00:52:32.550] Lazy evaluation: FALSE 1552s [00:52:32.550] Asynchronous evaluation: FALSE 1552s [00:52:32.550] Local evaluation: TRUE 1552s [00:52:32.550] Environment: R_GlobalEnv 1552s [00:52:32.550] Capture standard output: TRUE 1552s [00:52:32.550] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1552s [00:52:32.550] Globals: 5 objects totaling 2.63 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 456 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1552s [00:52:32.550] Packages: 1552s [00:52:32.550] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1552s [00:52:32.550] Resolved: TRUE 1552s [00:52:32.550] Value: 240 bytes of class ‘list’ 1552s [00:52:32.550] Early signaling: FALSE 1552s [00:52:32.550] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1552s [00:52:32.550] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1552s [00:52:32.552] Chunk #1 of 1 ... DONE 1552s [00:52:32.552] Launching 1 futures (chunks) ... DONE 1552s [00:52:32.552] Resolving 1 futures (chunks) ... 1552s [00:52:32.552] resolve() on list ... 1552s [00:52:32.552] recursive: 0 1552s [00:52:32.553] length: 1 1552s [00:52:32.553] 1552s [00:52:32.553] resolved() for ‘SequentialFuture’ ... 1552s [00:52:32.553] - state: ‘finished’ 1552s [00:52:32.553] - run: TRUE 1552s [00:52:32.553] - result: ‘FutureResult’ 1552s [00:52:32.554] resolved() for ‘SequentialFuture’ ... done 1552s [00:52:32.554] Future #1 1552s [00:52:32.554] signalConditionsASAP(SequentialFuture, pos=1) ... 1552s [00:52:32.554] - nx: 1 1552s [00:52:32.554] - relay: TRUE 1552s [00:52:32.554] - stdout: TRUE 1552s [00:52:32.555] - signal: TRUE 1552s [00:52:32.555] - resignal: FALSE 1552s [00:52:32.555] - force: TRUE 1552s [00:52:32.555] - relayed: [n=1] FALSE 1552s [00:52:32.555] - queued futures: [n=1] FALSE 1552s [00:52:32.555] - until=1 1552s [00:52:32.555] - relaying element #1 1552s [00:52:32.556] - relayed: [n=1] TRUE 1552s [00:52:32.556] - queued futures: [n=1] TRUE 1552s [00:52:32.556] signalConditionsASAP(SequentialFuture, pos=1) ... done 1552s [00:52:32.556] length: 0 (resolved future 1) 1552s [00:52:32.556] Relaying remaining futures 1552s [00:52:32.556] signalConditionsASAP(NULL, pos=0) ... 1552s [00:52:32.557] - nx: 1 1552s [00:52:32.557] - relay: TRUE 1552s [00:52:32.557] - stdout: TRUE 1552s [00:52:32.557] - signal: TRUE 1552s [00:52:32.557] - resignal: FALSE 1552s [00:52:32.557] - force: TRUE 1552s [00:52:32.557] - relayed: [n=1] TRUE 1552s [00:52:32.557] - queued futures: [n=1] TRUE 1552s - flush all 1552s [00:52:32.558] - relayed: [n=1] TRUE 1552s [00:52:32.558] - queued futures: [n=1] TRUE 1552s [00:52:32.558] signalConditionsASAP(NULL, pos=0) ... done 1552s [00:52:32.558] resolve() on list ... DONE 1552s [00:52:32.558] - Number of value chunks collected: 1 1552s [00:52:32.559] Resolving 1 futures (chunks) ... DONE 1552s [00:52:32.559] Reducing values from 1 chunks ... 1552s [00:52:32.559] - Number of values collected after concatenation: 4 1552s [00:52:32.559] - Number of values expected: 4 1552s [00:52:32.559] Reducing values from 1 chunks ... DONE 1552s [00:52:32.559] future_lapply() ... DONE 1552s List of 1 1552s $ y:List of 4 1552s ..$ a: int [1:2] 0 0 1552s ..$ b: num [1:2] 0 0 1552s ..$ c: chr [1:2] "" "" 1552s ..$ c:List of 2 1552s .. ..$ : NULL 1552s .. ..$ : NULL 1552s [00:52:32.566] future_lapply() ... 1552s [00:52:32.571] Number of chunks: 1 1552s [00:52:32.571] getGlobalsAndPackagesXApply() ... 1552s [00:52:32.571] - future.globals: TRUE 1552s [00:52:32.571] getGlobalsAndPackages() ... 1552s [00:52:32.572] Searching for globals... 1552s [00:52:32.574] - globals found: [2] ‘FUN’, ‘.Internal’ 1552s [00:52:32.574] Searching for globals ... DONE 1552s [00:52:32.574] Resolving globals: FALSE 1552s [00:52:32.575] The total size of the 1 globals is 2.13 KiB (2184 bytes) 1552s [00:52:32.575] The total size of the 1 globals exported for future expression (‘FUN(length = 2L)’) is 2.13 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (2.13 KiB of class ‘function’) 1552s [00:52:32.575] - globals: [1] ‘FUN’ 1552s [00:52:32.575] 1552s [00:52:32.576] getGlobalsAndPackages() ... DONE 1552s [00:52:32.576] - globals found/used: [n=1] ‘FUN’ 1552s [00:52:32.576] - needed namespaces: [n=0] 1552s [00:52:32.576] Finding globals ... DONE 1552s [00:52:32.576] - use_args: TRUE 1552s [00:52:32.576] - Getting '...' globals ... 1552s [00:52:32.577] resolve() on list ... 1552s [00:52:32.577] recursive: 0 1552s [00:52:32.577] length: 1 1552s [00:52:32.577] elements: ‘...’ 1552s [00:52:32.577] length: 0 (resolved future 1) 1552s [00:52:32.578] resolve() on list ... DONE 1552s [00:52:32.578] - '...' content: [n=1] ‘length’ 1552s [00:52:32.578] List of 1 1552s [00:52:32.578] $ ...:List of 1 1552s [00:52:32.578] ..$ length: int 2 1552s [00:52:32.578] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1552s [00:52:32.578] - attr(*, "where")=List of 1 1552s [00:52:32.578] ..$ ...: 1552s [00:52:32.578] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1552s [00:52:32.578] - attr(*, "resolved")= logi TRUE 1552s [00:52:32.578] - attr(*, "total_size")= num NA 1552s [00:52:32.582] - Getting '...' globals ... DONE 1552s [00:52:32.582] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1552s [00:52:32.582] List of 2 1552s [00:52:32.582] $ ...future.FUN:function (mode = "logical", length = 0L) 1552s [00:52:32.582] $ ... :List of 1 1552s [00:52:32.582] ..$ length: int 2 1552s [00:52:32.582] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1552s [00:52:32.582] - attr(*, "where")=List of 2 1552s [00:52:32.582] ..$ ...future.FUN: 1552s [00:52:32.582] ..$ ... : 1552s [00:52:32.582] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1552s [00:52:32.582] - attr(*, "resolved")= logi FALSE 1552s [00:52:32.582] - attr(*, "total_size")= num 2240 1552s [00:52:32.587] Packages to be attached in all futures: [n=0] 1552s [00:52:32.587] getGlobalsAndPackagesXApply() ... DONE 1552s [00:52:32.587] Number of futures (= number of chunks): 1 1552s [00:52:32.587] Launching 1 futures (chunks) ... 1552s [00:52:32.587] Chunk #1 of 1 ... 1552s [00:52:32.587] - Finding globals in 'X' for chunk #1 ... 1552s [00:52:32.588] getGlobalsAndPackages() ... 1552s [00:52:32.588] Searching for globals... 1552s [00:52:32.588] 1552s [00:52:32.588] Searching for globals ... DONE 1552s [00:52:32.588] - globals: [0] 1552s [00:52:32.588] getGlobalsAndPackages() ... DONE 1552s [00:52:32.589] + additional globals found: [n=0] 1552s [00:52:32.589] + additional namespaces needed: [n=0] 1552s [00:52:32.589] - Finding globals in 'X' for chunk #1 ... DONE 1552s [00:52:32.589] - seeds: 1552s [00:52:32.589] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1552s [00:52:32.589] getGlobalsAndPackages() ... 1552s [00:52:32.589] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1552s [00:52:32.590] Resolving globals: FALSE 1552s [00:52:32.590] Tweak future expression to call with '...' arguments ... 1552s [00:52:32.590] { 1552s [00:52:32.590] do.call(function(...) { 1552s [00:52:32.590] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1552s [00:52:32.590] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1552s [00:52:32.590] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1552s [00:52:32.590] on.exit(options(oopts), add = TRUE) 1552s [00:52:32.590] } 1552s [00:52:32.590] { 1552s [00:52:32.590] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1552s [00:52:32.590] ...future.X_jj <- ...future.elements_ii[[jj]] 1552s [00:52:32.590] ...future.FUN(...future.X_jj, ...) 1552s [00:52:32.590] }) 1552s [00:52:32.590] } 1552s [00:52:32.590] }, args = future.call.arguments) 1552s [00:52:32.590] } 1552s [00:52:32.591] Tweak future expression to call with '...' arguments ... DONE 1552s [00:52:32.592] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1552s [00:52:32.592] 1552s [00:52:32.592] getGlobalsAndPackages() ... DONE 1552s [00:52:32.593] run() for ‘Future’ ... 1552s [00:52:32.593] - state: ‘created’ 1552s [00:52:32.593] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1552s [00:52:32.597] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1552s [00:52:32.597] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1552s [00:52:32.597] - Field: ‘label’ 1552s [00:52:32.597] - Field: ‘local’ 1552s [00:52:32.598] - Field: ‘owner’ 1552s [00:52:32.598] - Field: ‘envir’ 1552s [00:52:32.598] - Field: ‘packages’ 1552s [00:52:32.598] - Field: ‘gc’ 1552s [00:52:32.598] - Field: ‘conditions’ 1552s [00:52:32.599] - Field: ‘expr’ 1552s [00:52:32.599] - Field: ‘uuid’ 1552s [00:52:32.599] - Field: ‘seed’ 1552s [00:52:32.600] - Field: ‘version’ 1552s [00:52:32.600] - Field: ‘result’ 1552s [00:52:32.600] - Field: ‘asynchronous’ 1552s [00:52:32.601] - Field: ‘calls’ 1552s [00:52:32.602] - Field: ‘globals’ 1552s [00:52:32.602] - Field: ‘stdout’ 1552s [00:52:32.606] - Field: ‘earlySignal’ 1552s [00:52:32.606] - Field: ‘lazy’ 1552s [00:52:32.606] - Field: ‘state’ 1552s [00:52:32.607] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1552s [00:52:32.607] - Launch lazy future ... 1552s [00:52:32.607] Packages needed by the future expression (n = 0): 1552s [00:52:32.607] Packages needed by future strategies (n = 0): 1552s [00:52:32.608] { 1552s [00:52:32.608] { 1552s [00:52:32.608] { 1552s [00:52:32.608] ...future.startTime <- base::Sys.time() 1552s [00:52:32.608] { 1552s [00:52:32.608] { 1552s [00:52:32.608] { 1552s [00:52:32.608] base::local({ 1552s [00:52:32.608] has_future <- base::requireNamespace("future", 1552s [00:52:32.608] quietly = TRUE) 1552s [00:52:32.608] if (has_future) { 1552s [00:52:32.608] ns <- base::getNamespace("future") 1552s [00:52:32.608] version <- ns[[".package"]][["version"]] 1552s [00:52:32.608] if (is.null(version)) 1552s [00:52:32.608] version <- utils::packageVersion("future") 1552s [00:52:32.608] } 1552s [00:52:32.608] else { 1552s [00:52:32.608] version <- NULL 1552s [00:52:32.608] } 1552s [00:52:32.608] if (!has_future || version < "1.8.0") { 1552s [00:52:32.608] info <- base::c(r_version = base::gsub("R version ", 1552s [00:52:32.608] "", base::R.version$version.string), 1552s [00:52:32.608] platform = base::sprintf("%s (%s-bit)", 1552s [00:52:32.608] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1552s [00:52:32.608] os = base::paste(base::Sys.info()[base::c("sysname", 1552s [00:52:32.608] "release", "version")], collapse = " "), 1552s [00:52:32.608] hostname = base::Sys.info()[["nodename"]]) 1552s [00:52:32.608] info <- base::sprintf("%s: %s", base::names(info), 1552s [00:52:32.608] info) 1552s [00:52:32.608] info <- base::paste(info, collapse = "; ") 1552s [00:52:32.608] if (!has_future) { 1552s [00:52:32.608] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1552s [00:52:32.608] info) 1552s [00:52:32.608] } 1552s [00:52:32.608] else { 1552s [00:52:32.608] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1552s [00:52:32.608] info, version) 1552s [00:52:32.608] } 1552s [00:52:32.608] base::stop(msg) 1552s [00:52:32.608] } 1552s [00:52:32.608] }) 1552s [00:52:32.608] } 1552s [00:52:32.608] options(future.plan = NULL) 1552s [00:52:32.608] Sys.unsetenv("R_FUTURE_PLAN") 1552s [00:52:32.608] future::plan("default", .cleanup = FALSE, .init = FALSE) 1552s [00:52:32.608] } 1552s [00:52:32.608] ...future.workdir <- getwd() 1552s [00:52:32.608] } 1552s [00:52:32.608] ...future.oldOptions <- base::as.list(base::.Options) 1552s [00:52:32.608] ...future.oldEnvVars <- base::Sys.getenv() 1552s [00:52:32.608] } 1552s [00:52:32.608] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1552s [00:52:32.608] future.globals.maxSize = NULL, future.globals.method = NULL, 1552s [00:52:32.608] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1552s [00:52:32.608] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1552s [00:52:32.608] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1552s [00:52:32.608] future.stdout.windows.reencode = NULL, width = 80L) 1552s [00:52:32.608] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1552s [00:52:32.608] base::names(...future.oldOptions)) 1552s [00:52:32.608] } 1552s [00:52:32.608] if (FALSE) { 1552s [00:52:32.608] } 1552s [00:52:32.608] else { 1552s [00:52:32.608] if (TRUE) { 1552s [00:52:32.608] ...future.stdout <- base::rawConnection(base::raw(0L), 1552s [00:52:32.608] open = "w") 1552s [00:52:32.608] } 1552s [00:52:32.608] else { 1552s [00:52:32.608] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1552s [00:52:32.608] windows = "NUL", "/dev/null"), open = "w") 1552s [00:52:32.608] } 1552s [00:52:32.608] base::sink(...future.stdout, type = "output", split = FALSE) 1552s [00:52:32.608] base::on.exit(if (!base::is.null(...future.stdout)) { 1552s [00:52:32.608] base::sink(type = "output", split = FALSE) 1552s [00:52:32.608] base::close(...future.stdout) 1552s [00:52:32.608] }, add = TRUE) 1552s [00:52:32.608] } 1552s [00:52:32.608] ...future.frame <- base::sys.nframe() 1552s [00:52:32.608] ...future.conditions <- base::list() 1552s [00:52:32.608] ...future.rng <- base::globalenv()$.Random.seed 1552s [00:52:32.608] if (FALSE) { 1552s [00:52:32.608] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1552s [00:52:32.608] "...future.value", "...future.globalenv.names", ".Random.seed") 1552s [00:52:32.608] } 1552s [00:52:32.608] ...future.result <- base::tryCatch({ 1552s [00:52:32.608] base::withCallingHandlers({ 1552s [00:52:32.608] ...future.value <- base::withVisible(base::local({ 1552s [00:52:32.608] do.call(function(...) { 1552s [00:52:32.608] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1552s [00:52:32.608] if (!identical(...future.globals.maxSize.org, 1552s [00:52:32.608] ...future.globals.maxSize)) { 1552s [00:52:32.608] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1552s [00:52:32.608] on.exit(options(oopts), add = TRUE) 1552s [00:52:32.608] } 1552s [00:52:32.608] { 1552s [00:52:32.608] lapply(seq_along(...future.elements_ii), 1552s [00:52:32.608] FUN = function(jj) { 1552s [00:52:32.608] ...future.X_jj <- ...future.elements_ii[[jj]] 1552s [00:52:32.608] ...future.FUN(...future.X_jj, ...) 1552s [00:52:32.608] }) 1552s [00:52:32.608] } 1552s [00:52:32.608] }, args = future.call.arguments) 1552s [00:52:32.608] })) 1552s [00:52:32.608] future::FutureResult(value = ...future.value$value, 1552s [00:52:32.608] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1552s [00:52:32.608] ...future.rng), globalenv = if (FALSE) 1552s [00:52:32.608] list(added = base::setdiff(base::names(base::.GlobalEnv), 1552s [00:52:32.608] ...future.globalenv.names)) 1552s [00:52:32.608] else NULL, started = ...future.startTime, version = "1.8") 1552s [00:52:32.608] }, condition = base::local({ 1552s [00:52:32.608] c <- base::c 1552s [00:52:32.608] inherits <- base::inherits 1552s [00:52:32.608] invokeRestart <- base::invokeRestart 1552s [00:52:32.608] length <- base::length 1552s [00:52:32.608] list <- base::list 1552s [00:52:32.608] seq.int <- base::seq.int 1552s [00:52:32.608] signalCondition <- base::signalCondition 1552s [00:52:32.608] sys.calls <- base::sys.calls 1552s [00:52:32.608] `[[` <- base::`[[` 1552s [00:52:32.608] `+` <- base::`+` 1552s [00:52:32.608] `<<-` <- base::`<<-` 1552s [00:52:32.608] sysCalls <- function(calls = sys.calls(), from = 1L) { 1552s [00:52:32.608] calls[seq.int(from = from + 12L, to = length(calls) - 1552s [00:52:32.608] 3L)] 1552s [00:52:32.608] } 1552s [00:52:32.608] function(cond) { 1552s [00:52:32.608] is_error <- inherits(cond, "error") 1552s [00:52:32.608] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1552s [00:52:32.608] NULL) 1552s [00:52:32.608] if (is_error) { 1552s [00:52:32.608] sessionInformation <- function() { 1552s [00:52:32.608] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1552s [00:52:32.608] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1552s [00:52:32.608] search = base::search(), system = base::Sys.info()) 1552s [00:52:32.608] } 1552s [00:52:32.608] ...future.conditions[[length(...future.conditions) + 1552s [00:52:32.608] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1552s [00:52:32.608] cond$call), session = sessionInformation(), 1552s [00:52:32.608] timestamp = base::Sys.time(), signaled = 0L) 1552s [00:52:32.608] signalCondition(cond) 1552s [00:52:32.608] } 1552s [00:52:32.608] else if (!ignore && TRUE && inherits(cond, c("condition", 1552s [00:52:32.608] "immediateCondition"))) { 1552s [00:52:32.608] signal <- TRUE && inherits(cond, "immediateCondition") 1552s [00:52:32.608] ...future.conditions[[length(...future.conditions) + 1552s [00:52:32.608] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1552s [00:52:32.608] if (TRUE && !signal) { 1552s [00:52:32.608] muffleCondition <- function (cond, pattern = "^muffle") 1552s [00:52:32.608] { 1552s [00:52:32.608] inherits <- base::inherits 1552s [00:52:32.608] invokeRestart <- base::invokeRestart 1552s [00:52:32.608] is.null <- base::is.null 1552s [00:52:32.608] muffled <- FALSE 1552s [00:52:32.608] if (inherits(cond, "message")) { 1552s [00:52:32.608] muffled <- grepl(pattern, "muffleMessage") 1552s [00:52:32.608] if (muffled) 1552s [00:52:32.608] invokeRestart("muffleMessage") 1552s [00:52:32.608] } 1552s [00:52:32.608] else if (inherits(cond, "warning")) { 1552s [00:52:32.608] muffled <- grepl(pattern, "muffleWarning") 1552s [00:52:32.608] if (muffled) 1552s [00:52:32.608] invokeRestart("muffleWarning") 1552s [00:52:32.608] } 1552s [00:52:32.608] else if (inherits(cond, "condition")) { 1552s [00:52:32.608] if (!is.null(pattern)) { 1552s [00:52:32.608] computeRestarts <- base::computeRestarts 1552s [00:52:32.608] grepl <- base::grepl 1552s [00:52:32.608] restarts <- computeRestarts(cond) 1552s [00:52:32.608] for (restart in restarts) { 1552s [00:52:32.608] name <- restart$name 1552s [00:52:32.608] if (is.null(name)) 1552s [00:52:32.608] next 1552s [00:52:32.608] if (!grepl(pattern, name)) 1552s [00:52:32.608] next 1552s [00:52:32.608] invokeRestart(restart) 1552s [00:52:32.608] muffled <- TRUE 1552s [00:52:32.608] break 1552s [00:52:32.608] } 1552s [00:52:32.608] } 1552s [00:52:32.608] } 1552s [00:52:32.608] invisible(muffled) 1552s [00:52:32.608] } 1552s [00:52:32.608] muffleCondition(cond, pattern = "^muffle") 1552s [00:52:32.608] } 1552s [00:52:32.608] } 1552s [00:52:32.608] else { 1552s [00:52:32.608] if (TRUE) { 1552s [00:52:32.608] muffleCondition <- function (cond, pattern = "^muffle") 1552s [00:52:32.608] { 1552s [00:52:32.608] inherits <- base::inherits 1552s [00:52:32.608] invokeRestart <- base::invokeRestart 1552s [00:52:32.608] is.null <- base::is.null 1552s [00:52:32.608] muffled <- FALSE 1552s [00:52:32.608] if (inherits(cond, "message")) { 1552s [00:52:32.608] muffled <- grepl(pattern, "muffleMessage") 1552s [00:52:32.608] if (muffled) 1552s [00:52:32.608] invokeRestart("muffleMessage") 1552s [00:52:32.608] } 1552s [00:52:32.608] else if (inherits(cond, "warning")) { 1552s [00:52:32.608] muffled <- grepl(pattern, "muffleWarning") 1552s [00:52:32.608] if (muffled) 1552s [00:52:32.608] invokeRestart("muffleWarning") 1552s [00:52:32.608] } 1552s [00:52:32.608] else if (inherits(cond, "condition")) { 1552s [00:52:32.608] if (!is.null(pattern)) { 1552s [00:52:32.608] computeRestarts <- base::computeRestarts 1552s [00:52:32.608] grepl <- base::grepl 1552s [00:52:32.608] restarts <- computeRestarts(cond) 1552s [00:52:32.608] for (restart in restarts) { 1552s [00:52:32.608] name <- restart$name 1552s [00:52:32.608] if (is.null(name)) 1552s [00:52:32.608] next 1552s [00:52:32.608] if (!grepl(pattern, name)) 1552s [00:52:32.608] next 1552s [00:52:32.608] invokeRestart(restart) 1552s [00:52:32.608] muffled <- TRUE 1552s [00:52:32.608] break 1552s [00:52:32.608] } 1552s [00:52:32.608] } 1552s [00:52:32.608] } 1552s [00:52:32.608] invisible(muffled) 1552s [00:52:32.608] } 1552s [00:52:32.608] muffleCondition(cond, pattern = "^muffle") 1552s [00:52:32.608] } 1552s [00:52:32.608] } 1552s [00:52:32.608] } 1552s [00:52:32.608] })) 1552s [00:52:32.608] }, error = function(ex) { 1552s [00:52:32.608] base::structure(base::list(value = NULL, visible = NULL, 1552s [00:52:32.608] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1552s [00:52:32.608] ...future.rng), started = ...future.startTime, 1552s [00:52:32.608] finished = Sys.time(), session_uuid = NA_character_, 1552s [00:52:32.608] version = "1.8"), class = "FutureResult") 1552s [00:52:32.608] }, finally = { 1552s [00:52:32.608] if (!identical(...future.workdir, getwd())) 1552s [00:52:32.608] setwd(...future.workdir) 1552s [00:52:32.608] { 1552s [00:52:32.608] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1552s [00:52:32.608] ...future.oldOptions$nwarnings <- NULL 1552s [00:52:32.608] } 1552s [00:52:32.608] base::options(...future.oldOptions) 1552s [00:52:32.608] if (.Platform$OS.type == "windows") { 1552s [00:52:32.608] old_names <- names(...future.oldEnvVars) 1552s [00:52:32.608] envs <- base::Sys.getenv() 1552s [00:52:32.608] names <- names(envs) 1552s [00:52:32.608] common <- intersect(names, old_names) 1552s [00:52:32.608] added <- setdiff(names, old_names) 1552s [00:52:32.608] removed <- setdiff(old_names, names) 1552s [00:52:32.608] changed <- common[...future.oldEnvVars[common] != 1552s [00:52:32.608] envs[common]] 1552s [00:52:32.608] NAMES <- toupper(changed) 1552s [00:52:32.608] args <- list() 1552s [00:52:32.608] for (kk in seq_along(NAMES)) { 1552s [00:52:32.608] name <- changed[[kk]] 1552s [00:52:32.608] NAME <- NAMES[[kk]] 1552s [00:52:32.608] if (name != NAME && is.element(NAME, old_names)) 1552s [00:52:32.608] next 1552s [00:52:32.608] args[[name]] <- ...future.oldEnvVars[[name]] 1552s [00:52:32.608] } 1552s [00:52:32.608] NAMES <- toupper(added) 1552s [00:52:32.608] for (kk in seq_along(NAMES)) { 1552s [00:52:32.608] name <- added[[kk]] 1552s [00:52:32.608] NAME <- NAMES[[kk]] 1552s [00:52:32.608] if (name != NAME && is.element(NAME, old_names)) 1552s [00:52:32.608] next 1552s [00:52:32.608] args[[name]] <- "" 1552s [00:52:32.608] } 1552s [00:52:32.608] NAMES <- toupper(removed) 1552s [00:52:32.608] for (kk in seq_along(NAMES)) { 1552s [00:52:32.608] name <- removed[[kk]] 1552s [00:52:32.608] NAME <- NAMES[[kk]] 1552s [00:52:32.608] if (name != NAME && is.element(NAME, old_names)) 1552s [00:52:32.608] next 1552s [00:52:32.608] args[[name]] <- ...future.oldEnvVars[[name]] 1552s [00:52:32.608] } 1552s [00:52:32.608] if (length(args) > 0) 1552s [00:52:32.608] base::do.call(base::Sys.setenv, args = args) 1552s [00:52:32.608] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1552s [00:52:32.608] } 1552s [00:52:32.608] else { 1552s [00:52:32.608] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1552s [00:52:32.608] } 1552s [00:52:32.608] { 1552s [00:52:32.608] if (base::length(...future.futureOptionsAdded) > 1552s [00:52:32.608] 0L) { 1552s [00:52:32.608] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1552s [00:52:32.608] base::names(opts) <- ...future.futureOptionsAdded 1552s [00:52:32.608] base::options(opts) 1552s [00:52:32.608] } 1552s [00:52:32.608] { 1552s [00:52:32.608] { 1552s [00:52:32.608] NULL 1552s [00:52:32.608] RNGkind("Mersenne-Twister") 1552s [00:52:32.608] base::rm(list = ".Random.seed", envir = base::globalenv(), 1552s [00:52:32.608] inherits = FALSE) 1552s [00:52:32.608] } 1552s [00:52:32.608] options(future.plan = NULL) 1552s [00:52:32.608] if (is.na(NA_character_)) 1552s [00:52:32.608] Sys.unsetenv("R_FUTURE_PLAN") 1552s [00:52:32.608] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1552s [00:52:32.608] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1552s [00:52:32.608] envir = parent.frame()) 1552s [00:52:32.608] { 1552s [00:52:32.608] default_workers <- missing(workers) 1552s [00:52:32.608] if (is.function(workers)) 1552s [00:52:32.608] workers <- workers() 1552s [00:52:32.608] workers <- structure(as.integer(workers), 1552s [00:52:32.608] class = class(workers)) 1552s [00:52:32.608] stop_if_not(is.finite(workers), workers >= 1552s [00:52:32.608] 1L) 1552s [00:52:32.608] if ((workers == 1L && !inherits(workers, 1552s [00:52:32.608] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1552s [00:52:32.608] if (default_workers) 1552s [00:52:32.608] supportsMulticore(warn = TRUE) 1552s [00:52:32.608] return(sequential(..., envir = envir)) 1552s [00:52:32.608] } 1552s [00:52:32.608] oopts <- options(mc.cores = workers) 1552s [00:52:32.608] on.exit(options(oopts)) 1552s [00:52:32.608] future <- MulticoreFuture(..., workers = workers, 1552s [00:52:32.608] envir = envir) 1552s [00:52:32.608] if (!future$lazy) 1552s [00:52:32.608] future <- run(future) 1552s [00:52:32.608] invisible(future) 1552s [00:52:32.608] }), .cleanup = FALSE, .init = FALSE) 1552s [00:52:32.608] } 1552s [00:52:32.608] } 1552s [00:52:32.608] } 1552s [00:52:32.608] }) 1552s [00:52:32.608] if (TRUE) { 1552s [00:52:32.608] base::sink(type = "output", split = FALSE) 1552s [00:52:32.608] if (TRUE) { 1552s [00:52:32.608] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1552s [00:52:32.608] } 1552s [00:52:32.608] else { 1552s [00:52:32.608] ...future.result["stdout"] <- base::list(NULL) 1552s [00:52:32.608] } 1552s [00:52:32.608] base::close(...future.stdout) 1552s [00:52:32.608] ...future.stdout <- NULL 1552s [00:52:32.608] } 1552s [00:52:32.608] ...future.result$conditions <- ...future.conditions 1552s [00:52:32.608] ...future.result$finished <- base::Sys.time() 1552s [00:52:32.608] ...future.result 1552s [00:52:32.608] } 1552s [00:52:32.614] assign_globals() ... 1552s [00:52:32.614] List of 5 1552s [00:52:32.614] $ ...future.FUN :function (mode = "logical", length = 0L) 1552s [00:52:32.614] $ future.call.arguments :List of 1 1552s [00:52:32.614] ..$ length: int 2 1552s [00:52:32.614] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1552s [00:52:32.614] $ ...future.elements_ii :List of 4 1552s [00:52:32.614] ..$ a: chr "integer" 1552s [00:52:32.614] ..$ b: chr "numeric" 1552s [00:52:32.614] ..$ c: chr "character" 1552s [00:52:32.614] ..$ c: chr "list" 1552s [00:52:32.614] $ ...future.seeds_ii : NULL 1552s [00:52:32.614] $ ...future.globals.maxSize: NULL 1552s [00:52:32.614] - attr(*, "where")=List of 5 1552s [00:52:32.614] ..$ ...future.FUN : 1552s [00:52:32.614] ..$ future.call.arguments : 1552s [00:52:32.614] ..$ ...future.elements_ii : 1552s [00:52:32.614] ..$ ...future.seeds_ii : 1552s [00:52:32.614] ..$ ...future.globals.maxSize: 1552s [00:52:32.614] - attr(*, "resolved")= logi FALSE 1552s [00:52:32.614] - attr(*, "total_size")= num 2240 1552s [00:52:32.614] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1552s [00:52:32.614] - attr(*, "already-done")= logi TRUE 1552s [00:52:32.624] - copied ‘...future.FUN’ to environment 1552s [00:52:32.625] - copied ‘future.call.arguments’ to environment 1552s [00:52:32.625] - copied ‘...future.elements_ii’ to environment 1552s [00:52:32.625] - copied ‘...future.seeds_ii’ to environment 1552s [00:52:32.625] - copied ‘...future.globals.maxSize’ to environment 1552s [00:52:32.625] assign_globals() ... done 1552s [00:52:32.626] plan(): Setting new future strategy stack: 1552s [00:52:32.626] List of future strategies: 1552s [00:52:32.626] 1. sequential: 1552s [00:52:32.626] - args: function (..., envir = parent.frame()) 1552s [00:52:32.626] - tweaked: FALSE 1552s [00:52:32.626] - call: NULL 1552s [00:52:32.626] plan(): nbrOfWorkers() = 1 1552s [00:52:32.627] plan(): Setting new future strategy stack: 1552s [00:52:32.627] List of future strategies: 1552s [00:52:32.627] 1. multicore: 1552s [00:52:32.627] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1552s [00:52:32.627] - tweaked: FALSE 1552s [00:52:32.627] - call: plan(strategy) 1552s [00:52:32.632] plan(): nbrOfWorkers() = 1 1552s [00:52:32.632] SequentialFuture started (and completed) 1552s [00:52:32.632] - Launch lazy future ... done 1552s [00:52:32.632] run() for ‘SequentialFuture’ ... done 1552s [00:52:32.633] Created future: 1552s [00:52:32.633] SequentialFuture: 1552s [00:52:32.633] Label: ‘future_lapply-1’ 1552s [00:52:32.633] Expression: 1552s [00:52:32.633] { 1552s [00:52:32.633] do.call(function(...) { 1552s [00:52:32.633] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1552s [00:52:32.633] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1552s [00:52:32.633] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1552s [00:52:32.633] on.exit(options(oopts), add = TRUE) 1552s [00:52:32.633] } 1552s [00:52:32.633] { 1552s [00:52:32.633] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1552s [00:52:32.633] ...future.X_jj <- ...future.elements_ii[[jj]] 1552s [00:52:32.633] ...future.FUN(...future.X_jj, ...) 1552s [00:52:32.633] }) 1552s [00:52:32.633] } 1552s [00:52:32.633] }, args = future.call.arguments) 1552s [00:52:32.633] } 1552s [00:52:32.633] Lazy evaluation: FALSE 1552s [00:52:32.633] Asynchronous evaluation: FALSE 1552s [00:52:32.633] Local evaluation: TRUE 1552s [00:52:32.633] Environment: R_GlobalEnv 1552s [00:52:32.633] Capture standard output: TRUE 1552s [00:52:32.633] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1552s [00:52:32.633] Globals: 5 objects totaling 2.63 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 456 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1552s [00:52:32.633] Packages: 1552s [00:52:32.633] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1552s [00:52:32.633] Resolved: TRUE 1552s [00:52:32.633] Value: 240 bytes of class ‘list’ 1552s [00:52:32.633] Early signaling: FALSE 1552s [00:52:32.633] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1552s [00:52:32.633] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1552s [00:52:32.635] Chunk #1 of 1 ... DONE 1552s [00:52:32.635] Launching 1 futures (chunks) ... DONE 1552s [00:52:32.635] Resolving 1 futures (chunks) ... 1552s [00:52:32.635] resolve() on list ... 1552s [00:52:32.636] recursive: 0 1552s [00:52:32.636] length: 1 1552s [00:52:32.636] 1552s [00:52:32.636] resolved() for ‘SequentialFuture’ ... 1552s [00:52:32.637] - state: ‘finished’ 1552s [00:52:32.637] - run: TRUE 1552s [00:52:32.637] - result: ‘FutureResult’ 1552s [00:52:32.637] resolved() for ‘SequentialFuture’ ... done 1552s [00:52:32.637] Future #1 1552s [00:52:32.637] signalConditionsASAP(SequentialFuture, pos=1) ... 1552s [00:52:32.637] - nx: 1 1552s [00:52:32.637] - relay: TRUE 1552s [00:52:32.638] - stdout: TRUE 1552s [00:52:32.638] - signal: TRUE 1552s [00:52:32.638] - resignal: FALSE 1552s [00:52:32.638] - force: TRUE 1552s [00:52:32.638] - relayed: [n=1] FALSE 1552s [00:52:32.638] - queued futures: [n=1] FALSE 1552s [00:52:32.638] - until=1 1552s [00:52:32.638] - relaying element #1 1552s [00:52:32.639] - relayed: [n=1] TRUE 1552s [00:52:32.639] - queued futures: [n=1] TRUE 1552s [00:52:32.639] signalConditionsASAP(SequentialFuture, pos=1) ... done 1552s [00:52:32.639] length: 0 (resolved future 1) 1552s [00:52:32.639] Relaying remaining futures 1552s [00:52:32.639] signalConditionsASAP(NULL, pos=0) ... 1552s [00:52:32.639] - nx: 1 1552s [00:52:32.639] - relay: TRUE 1552s [00:52:32.639] - stdout: TRUE 1552s [00:52:32.640] - signal: TRUE 1552s [00:52:32.640] - resignal: FALSE 1552s [00:52:32.641] - force: TRUE 1552s [00:52:32.642] - relayed: [n=1] TRUE 1552s [00:52:32.642] - queued futures: [n=1] TRUE 1552s - flush all 1552s [00:52:32.642] - relayed: [n=1] TRUE 1552s [00:52:32.643] - queued futures: [n=1] TRUE 1552s [00:52:32.643] signalConditionsASAP(NULL, pos=0) ... done 1552s [00:52:32.643] resolve() on list ... DONE 1552s [00:52:32.643] - Number of value chunks collected: 1 1552s [00:52:32.644] Resolving 1 futures (chunks) ... DONE 1552s [00:52:32.644] Reducing values from 1 chunks ... 1552s [00:52:32.644] - Number of values collected after concatenation: 4 1552s [00:52:32.644] - Number of values expected: 4 1552s [00:52:32.644] Reducing values from 1 chunks ... DONE 1552s [00:52:32.644] future_lapply() ... DONE 1552s List of 1 1552s $ y:List of 4 1552s ..$ a: int [1:2] 0 0 1552s ..$ b: num [1:2] 0 0 1552s ..$ c: chr [1:2] "" "" 1552s ..$ c:List of 2 1552s .. ..$ : NULL 1552s .. ..$ : NULL 1552s - future_lapply(x, FUN = base::vector, ...) ... 1552s [00:52:32.653] future_lapply() ... 1552s [00:52:32.657] Number of chunks: 1 1552s [00:52:32.659] getGlobalsAndPackagesXApply() ... 1552s [00:52:32.659] - future.globals: TRUE 1552s [00:52:32.659] getGlobalsAndPackages() ... 1552s [00:52:32.660] Searching for globals... 1552s [00:52:32.662] - globals found: [2] ‘FUN’, ‘.Internal’ 1552s [00:52:32.662] Searching for globals ... DONE 1552s [00:52:32.662] Resolving globals: FALSE 1552s [00:52:32.663] The total size of the 1 globals is 2.13 KiB (2184 bytes) 1552s [00:52:32.664] The total size of the 1 globals exported for future expression (‘FUN(length = 2L)’) is 2.13 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (2.13 KiB of class ‘function’) 1552s [00:52:32.664] - globals: [1] ‘FUN’ 1552s [00:52:32.664] 1552s [00:52:32.664] getGlobalsAndPackages() ... DONE 1552s [00:52:32.664] - globals found/used: [n=1] ‘FUN’ 1552s [00:52:32.665] - needed namespaces: [n=0] 1552s [00:52:32.665] Finding globals ... DONE 1552s [00:52:32.665] - use_args: TRUE 1552s [00:52:32.665] - Getting '...' globals ... 1552s [00:52:32.665] resolve() on list ... 1552s [00:52:32.666] recursive: 0 1552s [00:52:32.666] length: 1 1552s [00:52:32.666] elements: ‘...’ 1552s [00:52:32.666] length: 0 (resolved future 1) 1552s [00:52:32.666] resolve() on list ... DONE 1552s [00:52:32.666] - '...' content: [n=1] ‘length’ 1552s [00:52:32.666] List of 1 1552s [00:52:32.666] $ ...:List of 1 1552s [00:52:32.666] ..$ length: int 2 1552s [00:52:32.666] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1552s [00:52:32.666] - attr(*, "where")=List of 1 1552s [00:52:32.666] ..$ ...: 1552s [00:52:32.666] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1552s [00:52:32.666] - attr(*, "resolved")= logi TRUE 1552s [00:52:32.666] - attr(*, "total_size")= num NA 1552s [00:52:32.672] - Getting '...' globals ... DONE 1552s [00:52:32.673] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1552s [00:52:32.673] List of 2 1552s [00:52:32.673] $ ...future.FUN:function (mode = "logical", length = 0L) 1552s [00:52:32.673] $ ... :List of 1 1552s [00:52:32.673] ..$ length: int 2 1552s [00:52:32.673] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1552s [00:52:32.673] - attr(*, "where")=List of 2 1552s [00:52:32.673] ..$ ...future.FUN: 1552s [00:52:32.673] ..$ ... : 1552s [00:52:32.673] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1552s [00:52:32.673] - attr(*, "resolved")= logi FALSE 1552s [00:52:32.673] - attr(*, "total_size")= num 2240 1552s [00:52:32.680] Packages to be attached in all futures: [n=0] 1552s [00:52:32.680] getGlobalsAndPackagesXApply() ... DONE 1552s [00:52:32.680] Number of futures (= number of chunks): 1 1552s [00:52:32.681] Launching 1 futures (chunks) ... 1552s [00:52:32.681] Chunk #1 of 1 ... 1552s [00:52:32.681] - Finding globals in 'X' for chunk #1 ... 1552s [00:52:32.681] getGlobalsAndPackages() ... 1552s [00:52:32.681] Searching for globals... 1552s [00:52:32.682] 1552s [00:52:32.682] Searching for globals ... DONE 1552s [00:52:32.682] - globals: [0] 1552s [00:52:32.682] getGlobalsAndPackages() ... DONE 1552s [00:52:32.683] + additional globals found: [n=0] 1552s [00:52:32.683] + additional namespaces needed: [n=0] 1552s [00:52:32.683] - Finding globals in 'X' for chunk #1 ... DONE 1552s [00:52:32.684] - seeds: 1552s [00:52:32.684] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1552s [00:52:32.684] getGlobalsAndPackages() ... 1552s [00:52:32.684] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1552s [00:52:32.685] Resolving globals: FALSE 1552s [00:52:32.685] Tweak future expression to call with '...' arguments ... 1552s [00:52:32.685] { 1552s [00:52:32.685] do.call(function(...) { 1552s [00:52:32.685] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1552s [00:52:32.685] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1552s [00:52:32.685] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1552s [00:52:32.685] on.exit(options(oopts), add = TRUE) 1552s [00:52:32.685] } 1552s [00:52:32.685] { 1552s [00:52:32.685] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1552s [00:52:32.685] ...future.X_jj <- ...future.elements_ii[[jj]] 1552s [00:52:32.685] ...future.FUN(...future.X_jj, ...) 1552s [00:52:32.685] }) 1552s [00:52:32.685] } 1552s [00:52:32.685] }, args = future.call.arguments) 1552s [00:52:32.685] } 1552s [00:52:32.686] Tweak future expression to call with '...' arguments ... DONE 1552s [00:52:32.686] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1552s [00:52:32.687] 1552s [00:52:32.687] getGlobalsAndPackages() ... DONE 1552s [00:52:32.687] run() for ‘Future’ ... 1552s [00:52:32.687] - state: ‘created’ 1552s [00:52:32.688] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1552s [00:52:32.693] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1552s [00:52:32.695] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1552s [00:52:32.695] - Field: ‘label’ 1552s [00:52:32.696] - Field: ‘local’ 1552s [00:52:32.696] - Field: ‘owner’ 1552s [00:52:32.696] - Field: ‘envir’ 1552s [00:52:32.696] - Field: ‘packages’ 1552s [00:52:32.697] - Field: ‘gc’ 1552s [00:52:32.697] - Field: ‘conditions’ 1552s [00:52:32.697] - Field: ‘expr’ 1552s [00:52:32.697] - Field: ‘uuid’ 1552s [00:52:32.697] - Field: ‘seed’ 1552s [00:52:32.698] - Field: ‘version’ 1552s [00:52:32.698] - Field: ‘result’ 1552s [00:52:32.698] - Field: ‘asynchronous’ 1552s [00:52:32.698] - Field: ‘calls’ 1552s [00:52:32.702] - Field: ‘globals’ 1552s [00:52:32.703] - Field: ‘stdout’ 1552s [00:52:32.703] - Field: ‘earlySignal’ 1552s [00:52:32.704] - Field: ‘lazy’ 1552s [00:52:32.704] - Field: ‘state’ 1552s [00:52:32.704] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1552s [00:52:32.704] - Launch lazy future ... 1552s [00:52:32.705] Packages needed by the future expression (n = 0): 1552s [00:52:32.705] Packages needed by future strategies (n = 0): 1552s [00:52:32.706] { 1552s [00:52:32.706] { 1552s [00:52:32.706] { 1552s [00:52:32.706] ...future.startTime <- base::Sys.time() 1552s [00:52:32.706] { 1552s [00:52:32.706] { 1552s [00:52:32.706] { 1552s [00:52:32.706] base::local({ 1552s [00:52:32.706] has_future <- base::requireNamespace("future", 1552s [00:52:32.706] quietly = TRUE) 1552s [00:52:32.706] if (has_future) { 1552s [00:52:32.706] ns <- base::getNamespace("future") 1552s [00:52:32.706] version <- ns[[".package"]][["version"]] 1552s [00:52:32.706] if (is.null(version)) 1552s [00:52:32.706] version <- utils::packageVersion("future") 1552s [00:52:32.706] } 1552s [00:52:32.706] else { 1552s [00:52:32.706] version <- NULL 1552s [00:52:32.706] } 1552s [00:52:32.706] if (!has_future || version < "1.8.0") { 1552s [00:52:32.706] info <- base::c(r_version = base::gsub("R version ", 1552s [00:52:32.706] "", base::R.version$version.string), 1552s [00:52:32.706] platform = base::sprintf("%s (%s-bit)", 1552s [00:52:32.706] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1552s [00:52:32.706] os = base::paste(base::Sys.info()[base::c("sysname", 1552s [00:52:32.706] "release", "version")], collapse = " "), 1552s [00:52:32.706] hostname = base::Sys.info()[["nodename"]]) 1552s [00:52:32.706] info <- base::sprintf("%s: %s", base::names(info), 1552s [00:52:32.706] info) 1552s [00:52:32.706] info <- base::paste(info, collapse = "; ") 1552s [00:52:32.706] if (!has_future) { 1552s [00:52:32.706] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1552s [00:52:32.706] info) 1552s [00:52:32.706] } 1552s [00:52:32.706] else { 1552s [00:52:32.706] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1552s [00:52:32.706] info, version) 1552s [00:52:32.706] } 1552s [00:52:32.706] base::stop(msg) 1552s [00:52:32.706] } 1552s [00:52:32.706] }) 1552s [00:52:32.706] } 1552s [00:52:32.706] options(future.plan = NULL) 1552s [00:52:32.706] Sys.unsetenv("R_FUTURE_PLAN") 1552s [00:52:32.706] future::plan("default", .cleanup = FALSE, .init = FALSE) 1552s [00:52:32.706] } 1552s [00:52:32.706] ...future.workdir <- getwd() 1552s [00:52:32.706] } 1552s [00:52:32.706] ...future.oldOptions <- base::as.list(base::.Options) 1552s [00:52:32.706] ...future.oldEnvVars <- base::Sys.getenv() 1552s [00:52:32.706] } 1552s [00:52:32.706] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1552s [00:52:32.706] future.globals.maxSize = NULL, future.globals.method = NULL, 1552s [00:52:32.706] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1552s [00:52:32.706] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1552s [00:52:32.706] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1552s [00:52:32.706] future.stdout.windows.reencode = NULL, width = 80L) 1552s [00:52:32.706] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1552s [00:52:32.706] base::names(...future.oldOptions)) 1552s [00:52:32.706] } 1552s [00:52:32.706] if (FALSE) { 1552s [00:52:32.706] } 1552s [00:52:32.706] else { 1552s [00:52:32.706] if (TRUE) { 1552s [00:52:32.706] ...future.stdout <- base::rawConnection(base::raw(0L), 1552s [00:52:32.706] open = "w") 1552s [00:52:32.706] } 1552s [00:52:32.706] else { 1552s [00:52:32.706] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1552s [00:52:32.706] windows = "NUL", "/dev/null"), open = "w") 1552s [00:52:32.706] } 1552s [00:52:32.706] base::sink(...future.stdout, type = "output", split = FALSE) 1552s [00:52:32.706] base::on.exit(if (!base::is.null(...future.stdout)) { 1552s [00:52:32.706] base::sink(type = "output", split = FALSE) 1552s [00:52:32.706] base::close(...future.stdout) 1552s [00:52:32.706] }, add = TRUE) 1552s [00:52:32.706] } 1552s [00:52:32.706] ...future.frame <- base::sys.nframe() 1552s [00:52:32.706] ...future.conditions <- base::list() 1552s [00:52:32.706] ...future.rng <- base::globalenv()$.Random.seed 1552s [00:52:32.706] if (FALSE) { 1552s [00:52:32.706] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1552s [00:52:32.706] "...future.value", "...future.globalenv.names", ".Random.seed") 1552s [00:52:32.706] } 1552s [00:52:32.706] ...future.result <- base::tryCatch({ 1552s [00:52:32.706] base::withCallingHandlers({ 1552s [00:52:32.706] ...future.value <- base::withVisible(base::local({ 1552s [00:52:32.706] do.call(function(...) { 1552s [00:52:32.706] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1552s [00:52:32.706] if (!identical(...future.globals.maxSize.org, 1552s [00:52:32.706] ...future.globals.maxSize)) { 1552s [00:52:32.706] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1552s [00:52:32.706] on.exit(options(oopts), add = TRUE) 1552s [00:52:32.706] } 1552s [00:52:32.706] { 1552s [00:52:32.706] lapply(seq_along(...future.elements_ii), 1552s [00:52:32.706] FUN = function(jj) { 1552s [00:52:32.706] ...future.X_jj <- ...future.elements_ii[[jj]] 1552s [00:52:32.706] ...future.FUN(...future.X_jj, ...) 1552s [00:52:32.706] }) 1552s [00:52:32.706] } 1552s [00:52:32.706] }, args = future.call.arguments) 1552s [00:52:32.706] })) 1552s [00:52:32.706] future::FutureResult(value = ...future.value$value, 1552s [00:52:32.706] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1552s [00:52:32.706] ...future.rng), globalenv = if (FALSE) 1552s [00:52:32.706] list(added = base::setdiff(base::names(base::.GlobalEnv), 1552s [00:52:32.706] ...future.globalenv.names)) 1552s [00:52:32.706] else NULL, started = ...future.startTime, version = "1.8") 1552s [00:52:32.706] }, condition = base::local({ 1552s [00:52:32.706] c <- base::c 1552s [00:52:32.706] inherits <- base::inherits 1552s [00:52:32.706] invokeRestart <- base::invokeRestart 1552s [00:52:32.706] length <- base::length 1552s [00:52:32.706] list <- base::list 1552s [00:52:32.706] seq.int <- base::seq.int 1552s [00:52:32.706] signalCondition <- base::signalCondition 1552s [00:52:32.706] sys.calls <- base::sys.calls 1552s [00:52:32.706] `[[` <- base::`[[` 1552s [00:52:32.706] `+` <- base::`+` 1552s [00:52:32.706] `<<-` <- base::`<<-` 1552s [00:52:32.706] sysCalls <- function(calls = sys.calls(), from = 1L) { 1552s [00:52:32.706] calls[seq.int(from = from + 12L, to = length(calls) - 1552s [00:52:32.706] 3L)] 1552s [00:52:32.706] } 1552s [00:52:32.706] function(cond) { 1552s [00:52:32.706] is_error <- inherits(cond, "error") 1552s [00:52:32.706] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1552s [00:52:32.706] NULL) 1552s [00:52:32.706] if (is_error) { 1552s [00:52:32.706] sessionInformation <- function() { 1552s [00:52:32.706] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1552s [00:52:32.706] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1552s [00:52:32.706] search = base::search(), system = base::Sys.info()) 1552s [00:52:32.706] } 1552s [00:52:32.706] ...future.conditions[[length(...future.conditions) + 1552s [00:52:32.706] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1552s [00:52:32.706] cond$call), session = sessionInformation(), 1552s [00:52:32.706] timestamp = base::Sys.time(), signaled = 0L) 1552s [00:52:32.706] signalCondition(cond) 1552s [00:52:32.706] } 1552s [00:52:32.706] else if (!ignore && TRUE && inherits(cond, c("condition", 1552s [00:52:32.706] "immediateCondition"))) { 1552s [00:52:32.706] signal <- TRUE && inherits(cond, "immediateCondition") 1552s [00:52:32.706] ...future.conditions[[length(...future.conditions) + 1552s [00:52:32.706] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1552s [00:52:32.706] if (TRUE && !signal) { 1552s [00:52:32.706] muffleCondition <- function (cond, pattern = "^muffle") 1552s [00:52:32.706] { 1552s [00:52:32.706] inherits <- base::inherits 1552s [00:52:32.706] invokeRestart <- base::invokeRestart 1552s [00:52:32.706] is.null <- base::is.null 1552s [00:52:32.706] muffled <- FALSE 1552s [00:52:32.706] if (inherits(cond, "message")) { 1552s [00:52:32.706] muffled <- grepl(pattern, "muffleMessage") 1552s [00:52:32.706] if (muffled) 1552s [00:52:32.706] invokeRestart("muffleMessage") 1552s [00:52:32.706] } 1552s [00:52:32.706] else if (inherits(cond, "warning")) { 1552s [00:52:32.706] muffled <- grepl(pattern, "muffleWarning") 1552s [00:52:32.706] if (muffled) 1552s [00:52:32.706] invokeRestart("muffleWarning") 1552s [00:52:32.706] } 1552s [00:52:32.706] else if (inherits(cond, "condition")) { 1552s [00:52:32.706] if (!is.null(pattern)) { 1552s [00:52:32.706] computeRestarts <- base::computeRestarts 1552s [00:52:32.706] grepl <- base::grepl 1552s [00:52:32.706] restarts <- computeRestarts(cond) 1552s [00:52:32.706] for (restart in restarts) { 1552s [00:52:32.706] name <- restart$name 1552s [00:52:32.706] if (is.null(name)) 1552s [00:52:32.706] next 1552s [00:52:32.706] if (!grepl(pattern, name)) 1552s [00:52:32.706] next 1552s [00:52:32.706] invokeRestart(restart) 1552s [00:52:32.706] muffled <- TRUE 1552s [00:52:32.706] break 1552s [00:52:32.706] } 1552s [00:52:32.706] } 1552s [00:52:32.706] } 1552s [00:52:32.706] invisible(muffled) 1552s [00:52:32.706] } 1552s [00:52:32.706] muffleCondition(cond, pattern = "^muffle") 1552s [00:52:32.706] } 1552s [00:52:32.706] } 1552s [00:52:32.706] else { 1552s [00:52:32.706] if (TRUE) { 1552s [00:52:32.706] muffleCondition <- function (cond, pattern = "^muffle") 1552s [00:52:32.706] { 1552s [00:52:32.706] inherits <- base::inherits 1552s [00:52:32.706] invokeRestart <- base::invokeRestart 1552s [00:52:32.706] is.null <- base::is.null 1552s [00:52:32.706] muffled <- FALSE 1552s [00:52:32.706] if (inherits(cond, "message")) { 1552s [00:52:32.706] muffled <- grepl(pattern, "muffleMessage") 1552s [00:52:32.706] if (muffled) 1552s [00:52:32.706] invokeRestart("muffleMessage") 1552s [00:52:32.706] } 1552s [00:52:32.706] else if (inherits(cond, "warning")) { 1552s [00:52:32.706] muffled <- grepl(pattern, "muffleWarning") 1552s [00:52:32.706] if (muffled) 1552s [00:52:32.706] invokeRestart("muffleWarning") 1552s [00:52:32.706] } 1552s [00:52:32.706] else if (inherits(cond, "condition")) { 1552s [00:52:32.706] if (!is.null(pattern)) { 1552s [00:52:32.706] computeRestarts <- base::computeRestarts 1552s [00:52:32.706] grepl <- base::grepl 1552s [00:52:32.706] restarts <- computeRestarts(cond) 1552s [00:52:32.706] for (restart in restarts) { 1552s [00:52:32.706] name <- restart$name 1552s [00:52:32.706] if (is.null(name)) 1552s [00:52:32.706] next 1552s [00:52:32.706] if (!grepl(pattern, name)) 1552s [00:52:32.706] next 1552s [00:52:32.706] invokeRestart(restart) 1552s [00:52:32.706] muffled <- TRUE 1552s [00:52:32.706] break 1552s [00:52:32.706] } 1552s [00:52:32.706] } 1552s [00:52:32.706] } 1552s [00:52:32.706] invisible(muffled) 1552s [00:52:32.706] } 1552s [00:52:32.706] muffleCondition(cond, pattern = "^muffle") 1552s [00:52:32.706] } 1552s [00:52:32.706] } 1552s [00:52:32.706] } 1552s [00:52:32.706] })) 1552s [00:52:32.706] }, error = function(ex) { 1552s [00:52:32.706] base::structure(base::list(value = NULL, visible = NULL, 1552s [00:52:32.706] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1552s [00:52:32.706] ...future.rng), started = ...future.startTime, 1552s [00:52:32.706] finished = Sys.time(), session_uuid = NA_character_, 1552s [00:52:32.706] version = "1.8"), class = "FutureResult") 1552s [00:52:32.706] }, finally = { 1552s [00:52:32.706] if (!identical(...future.workdir, getwd())) 1552s [00:52:32.706] setwd(...future.workdir) 1552s [00:52:32.706] { 1552s [00:52:32.706] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1552s [00:52:32.706] ...future.oldOptions$nwarnings <- NULL 1552s [00:52:32.706] } 1552s [00:52:32.706] base::options(...future.oldOptions) 1552s [00:52:32.706] if (.Platform$OS.type == "windows") { 1552s [00:52:32.706] old_names <- names(...future.oldEnvVars) 1552s [00:52:32.706] envs <- base::Sys.getenv() 1552s [00:52:32.706] names <- names(envs) 1552s [00:52:32.706] common <- intersect(names, old_names) 1552s [00:52:32.706] added <- setdiff(names, old_names) 1552s [00:52:32.706] removed <- setdiff(old_names, names) 1552s [00:52:32.706] changed <- common[...future.oldEnvVars[common] != 1552s [00:52:32.706] envs[common]] 1552s [00:52:32.706] NAMES <- toupper(changed) 1552s [00:52:32.706] args <- list() 1552s [00:52:32.706] for (kk in seq_along(NAMES)) { 1552s [00:52:32.706] name <- changed[[kk]] 1552s [00:52:32.706] NAME <- NAMES[[kk]] 1552s [00:52:32.706] if (name != NAME && is.element(NAME, old_names)) 1552s [00:52:32.706] next 1552s [00:52:32.706] args[[name]] <- ...future.oldEnvVars[[name]] 1552s [00:52:32.706] } 1552s [00:52:32.706] NAMES <- toupper(added) 1552s [00:52:32.706] for (kk in seq_along(NAMES)) { 1552s [00:52:32.706] name <- added[[kk]] 1552s [00:52:32.706] NAME <- NAMES[[kk]] 1552s [00:52:32.706] if (name != NAME && is.element(NAME, old_names)) 1552s [00:52:32.706] next 1552s [00:52:32.706] args[[name]] <- "" 1552s [00:52:32.706] } 1552s [00:52:32.706] NAMES <- toupper(removed) 1552s [00:52:32.706] for (kk in seq_along(NAMES)) { 1552s [00:52:32.706] name <- removed[[kk]] 1552s [00:52:32.706] NAME <- NAMES[[kk]] 1552s [00:52:32.706] if (name != NAME && is.element(NAME, old_names)) 1552s [00:52:32.706] next 1552s [00:52:32.706] args[[name]] <- ...future.oldEnvVars[[name]] 1552s [00:52:32.706] } 1552s [00:52:32.706] if (length(args) > 0) 1552s [00:52:32.706] base::do.call(base::Sys.setenv, args = args) 1552s [00:52:32.706] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1552s [00:52:32.706] } 1552s [00:52:32.706] else { 1552s [00:52:32.706] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1552s [00:52:32.706] } 1552s [00:52:32.706] { 1552s [00:52:32.706] if (base::length(...future.futureOptionsAdded) > 1552s [00:52:32.706] 0L) { 1552s [00:52:32.706] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1552s [00:52:32.706] base::names(opts) <- ...future.futureOptionsAdded 1552s [00:52:32.706] base::options(opts) 1552s [00:52:32.706] } 1552s [00:52:32.706] { 1552s [00:52:32.706] { 1552s [00:52:32.706] NULL 1552s [00:52:32.706] RNGkind("Mersenne-Twister") 1552s [00:52:32.706] base::rm(list = ".Random.seed", envir = base::globalenv(), 1552s [00:52:32.706] inherits = FALSE) 1552s [00:52:32.706] } 1552s [00:52:32.706] options(future.plan = NULL) 1552s [00:52:32.706] if (is.na(NA_character_)) 1552s [00:52:32.706] Sys.unsetenv("R_FUTURE_PLAN") 1552s [00:52:32.706] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1552s [00:52:32.706] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1552s [00:52:32.706] envir = parent.frame()) 1552s [00:52:32.706] { 1552s [00:52:32.706] default_workers <- missing(workers) 1552s [00:52:32.706] if (is.function(workers)) 1552s [00:52:32.706] workers <- workers() 1552s [00:52:32.706] workers <- structure(as.integer(workers), 1552s [00:52:32.706] class = class(workers)) 1552s [00:52:32.706] stop_if_not(is.finite(workers), workers >= 1552s [00:52:32.706] 1L) 1552s [00:52:32.706] if ((workers == 1L && !inherits(workers, 1552s [00:52:32.706] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1552s [00:52:32.706] if (default_workers) 1552s [00:52:32.706] supportsMulticore(warn = TRUE) 1552s [00:52:32.706] return(sequential(..., envir = envir)) 1552s [00:52:32.706] } 1552s [00:52:32.706] oopts <- options(mc.cores = workers) 1552s [00:52:32.706] on.exit(options(oopts)) 1552s [00:52:32.706] future <- MulticoreFuture(..., workers = workers, 1552s [00:52:32.706] envir = envir) 1552s [00:52:32.706] if (!future$lazy) 1552s [00:52:32.706] future <- run(future) 1552s [00:52:32.706] invisible(future) 1552s [00:52:32.706] }), .cleanup = FALSE, .init = FALSE) 1552s [00:52:32.706] } 1552s [00:52:32.706] } 1552s [00:52:32.706] } 1552s [00:52:32.706] }) 1552s [00:52:32.706] if (TRUE) { 1552s [00:52:32.706] base::sink(type = "output", split = FALSE) 1552s [00:52:32.706] if (TRUE) { 1552s [00:52:32.706] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1552s [00:52:32.706] } 1552s [00:52:32.706] else { 1552s [00:52:32.706] ...future.result["stdout"] <- base::list(NULL) 1552s [00:52:32.706] } 1552s [00:52:32.706] base::close(...future.stdout) 1552s [00:52:32.706] ...future.stdout <- NULL 1552s [00:52:32.706] } 1552s [00:52:32.706] ...future.result$conditions <- ...future.conditions 1552s [00:52:32.706] ...future.result$finished <- base::Sys.time() 1552s [00:52:32.706] ...future.result 1552s [00:52:32.706] } 1552s [00:52:32.711] assign_globals() ... 1552s [00:52:32.711] List of 5 1552s [00:52:32.711] $ ...future.FUN :function (mode = "logical", length = 0L) 1552s [00:52:32.711] $ future.call.arguments :List of 1 1552s [00:52:32.711] ..$ length: int 2 1552s [00:52:32.711] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1552s [00:52:32.711] $ ...future.elements_ii :List of 4 1552s [00:52:32.711] ..$ a: chr "integer" 1552s [00:52:32.711] ..$ b: chr "numeric" 1552s [00:52:32.711] ..$ c: chr "character" 1552s [00:52:32.711] ..$ c: chr "list" 1552s [00:52:32.711] $ ...future.seeds_ii : NULL 1552s [00:52:32.711] $ ...future.globals.maxSize: NULL 1552s [00:52:32.711] - attr(*, "where")=List of 5 1552s [00:52:32.711] ..$ ...future.FUN : 1552s [00:52:32.711] ..$ future.call.arguments : 1552s [00:52:32.711] ..$ ...future.elements_ii : 1552s [00:52:32.711] ..$ ...future.seeds_ii : 1552s [00:52:32.711] ..$ ...future.globals.maxSize: 1552s [00:52:32.711] - attr(*, "resolved")= logi FALSE 1552s [00:52:32.711] - attr(*, "total_size")= num 2240 1552s [00:52:32.711] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1552s [00:52:32.711] - attr(*, "already-done")= logi TRUE 1552s [00:52:32.725] - copied ‘...future.FUN’ to environment 1552s [00:52:32.725] - copied ‘future.call.arguments’ to environment 1552s [00:52:32.726] - copied ‘...future.elements_ii’ to environment 1552s [00:52:32.726] - copied ‘...future.seeds_ii’ to environment 1552s [00:52:32.726] - copied ‘...future.globals.maxSize’ to environment 1552s [00:52:32.726] assign_globals() ... done 1552s [00:52:32.727] plan(): Setting new future strategy stack: 1552s [00:52:32.727] List of future strategies: 1552s [00:52:32.727] 1. sequential: 1552s [00:52:32.727] - args: function (..., envir = parent.frame()) 1552s [00:52:32.727] - tweaked: FALSE 1552s [00:52:32.727] - call: NULL 1552s [00:52:32.727] plan(): nbrOfWorkers() = 1 1552s [00:52:32.728] plan(): Setting new future strategy stack: 1552s [00:52:32.729] List of future strategies: 1552s [00:52:32.729] 1. multicore: 1552s [00:52:32.729] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1552s [00:52:32.729] - tweaked: FALSE 1552s [00:52:32.729] - call: plan(strategy) 1552s [00:52:32.732] plan(): nbrOfWorkers() = 1 1552s [00:52:32.733] SequentialFuture started (and completed) 1552s [00:52:32.733] - Launch lazy future ... done 1552s [00:52:32.733] run() for ‘SequentialFuture’ ... done 1552s [00:52:32.733] Created future: 1552s [00:52:32.734] SequentialFuture: 1552s [00:52:32.734] Label: ‘future_lapply-1’ 1552s [00:52:32.734] Expression: 1552s [00:52:32.734] { 1552s [00:52:32.734] do.call(function(...) { 1552s [00:52:32.734] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1552s [00:52:32.734] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1552s [00:52:32.734] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1552s [00:52:32.734] on.exit(options(oopts), add = TRUE) 1552s [00:52:32.734] } 1552s [00:52:32.734] { 1552s [00:52:32.734] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1552s [00:52:32.734] ...future.X_jj <- ...future.elements_ii[[jj]] 1552s [00:52:32.734] ...future.FUN(...future.X_jj, ...) 1552s [00:52:32.734] }) 1552s [00:52:32.734] } 1552s [00:52:32.734] }, args = future.call.arguments) 1552s [00:52:32.734] } 1552s [00:52:32.734] Lazy evaluation: FALSE 1552s [00:52:32.734] Asynchronous evaluation: FALSE 1552s [00:52:32.734] Local evaluation: TRUE 1552s [00:52:32.734] Environment: R_GlobalEnv 1552s [00:52:32.734] Capture standard output: TRUE 1552s [00:52:32.734] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1552s [00:52:32.734] Globals: 5 objects totaling 2.63 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 456 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1552s [00:52:32.734] Packages: 1552s [00:52:32.734] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1552s [00:52:32.734] Resolved: TRUE 1552s [00:52:32.734] Value: 240 bytes of class ‘list’ 1552s [00:52:32.734] Early signaling: FALSE 1552s [00:52:32.734] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1552s [00:52:32.734] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1552s [00:52:32.736] Chunk #1 of 1 ... DONE 1552s [00:52:32.736] Launching 1 futures (chunks) ... DONE 1552s [00:52:32.736] Resolving 1 futures (chunks) ... 1552s [00:52:32.736] resolve() on list ... 1552s [00:52:32.736] recursive: 0 1552s [00:52:32.737] length: 1 1552s [00:52:32.737] 1552s [00:52:32.737] resolved() for ‘SequentialFuture’ ... 1552s [00:52:32.737] - state: ‘finished’ 1552s [00:52:32.737] - run: TRUE 1552s [00:52:32.738] - result: ‘FutureResult’ 1552s [00:52:32.738] resolved() for ‘SequentialFuture’ ... done 1552s [00:52:32.738] Future #1 1552s [00:52:32.738] signalConditionsASAP(SequentialFuture, pos=1) ... 1552s [00:52:32.738] - nx: 1 1552s [00:52:32.738] - relay: TRUE 1552s [00:52:32.739] - stdout: TRUE 1552s [00:52:32.739] - signal: TRUE 1552s [00:52:32.739] - resignal: FALSE 1552s [00:52:32.739] - force: TRUE 1552s [00:52:32.739] - relayed: [n=1] FALSE 1552s [00:52:32.739] - queued futures: [n=1] FALSE 1552s [00:52:32.740] - until=1 1552s [00:52:32.740] - relaying element #1 1552s [00:52:32.740] - relayed: [n=1] TRUE 1552s [00:52:32.741] - queued futures: [n=1] TRUE 1552s [00:52:32.741] signalConditionsASAP(SequentialFuture, pos=1) ... done 1552s [00:52:32.741] length: 0 (resolved future 1) 1552s [00:52:32.741] Relaying remaining futures 1552s [00:52:32.742] signalConditionsASAP(NULL, pos=0) ... 1552s [00:52:32.742] - nx: 1 1552s [00:52:32.742] - relay: TRUE 1552s [00:52:32.742] - stdout: TRUE 1552s [00:52:32.742] - signal: TRUE 1552s [00:52:32.742] - resignal: FALSE 1552s [00:52:32.743] - force: TRUE 1552s [00:52:32.743] - relayed: [n=1] TRUE 1552s [00:52:32.743] - queued futures: [n=1] TRUE 1552s - flush all 1552s [00:52:32.743] - relayed: [n=1] TRUE 1552s [00:52:32.743] - queued futures: [n=1] TRUE 1552s [00:52:32.744] signalConditionsASAP(NULL, pos=0) ... done 1552s [00:52:32.744] resolve() on list ... DONE 1552s [00:52:32.744] - Number of value chunks collected: 1 1552s [00:52:32.744] Resolving 1 futures (chunks) ... DONE 1552s [00:52:32.744] Reducing values from 1 chunks ... 1552s [00:52:32.745] - Number of values collected after concatenation: 4 1552s [00:52:32.745] - Number of values expected: 4 1552s [00:52:32.745] Reducing values from 1 chunks ... DONE 1552s [00:52:32.745] future_lapply() ... DONE 1552s List of 1 1552s $ y:List of 4 1552s ..$ a: int [1:2] 0 0 1552s ..$ b: num [1:2] 0 0 1552s ..$ c: chr [1:2] "" "" 1552s ..$ c:List of 2 1552s .. ..$ : NULL 1552s .. ..$ : NULL 1552s - future_lapply(x, FUN = future:::hpaste, ...) ... 1552s [00:52:32.753] future_lapply() ... 1552s [00:52:32.769] Number of chunks: 1 1552s [00:52:32.770] getGlobalsAndPackagesXApply() ... 1552s [00:52:32.770] - future.globals: TRUE 1552s [00:52:32.770] getGlobalsAndPackages() ... 1552s [00:52:32.770] Searching for globals... 1552s [00:52:32.783] - globals found: [22] ‘FUN’, ‘if’, ‘missing’, ‘is.finite’, ‘{’, ‘is.null’, ‘<-’, ‘paste’, ‘length’, ‘==’, ‘return’, ‘>’, ‘+’, ‘[’, ‘seq_len’, ‘rev’, ‘c’, ‘&&’, ‘!’, ‘:’, ‘(’, ‘-’ 1552s [00:52:32.783] Searching for globals ... DONE 1552s [00:52:32.786] Resolving globals: FALSE 1552s [00:52:32.788] The total size of the 1 globals is 69.62 KiB (71288 bytes) 1552s [00:52:32.788] The total size of the 1 globals exported for future expression (‘FUN(collapse = "; ", maxHead = 3L)’) is 69.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (69.62 KiB of class ‘function’) 1552s [00:52:32.788] - globals: [1] ‘FUN’ 1552s [00:52:32.789] - packages: [1] ‘future’ 1552s [00:52:32.789] getGlobalsAndPackages() ... DONE 1552s [00:52:32.789] - globals found/used: [n=1] ‘FUN’ 1552s [00:52:32.789] - needed namespaces: [n=1] ‘future’ 1552s [00:52:32.789] Finding globals ... DONE 1552s [00:52:32.789] - use_args: TRUE 1552s [00:52:32.789] - Getting '...' globals ... 1552s [00:52:32.790] resolve() on list ... 1552s [00:52:32.790] recursive: 0 1552s [00:52:32.790] length: 1 1552s [00:52:32.790] elements: ‘...’ 1552s [00:52:32.791] length: 0 (resolved future 1) 1552s [00:52:32.791] resolve() on list ... DONE 1552s [00:52:32.791] - '...' content: [n=2] ‘collapse’, ‘maxHead’ 1552s [00:52:32.792] List of 1 1552s [00:52:32.792] $ ...:List of 2 1552s [00:52:32.792] ..$ collapse: chr "; " 1552s [00:52:32.792] ..$ maxHead : int 3 1552s [00:52:32.792] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1552s [00:52:32.792] - attr(*, "where")=List of 1 1552s [00:52:32.792] ..$ ...: 1552s [00:52:32.792] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1552s [00:52:32.792] - attr(*, "resolved")= logi TRUE 1552s [00:52:32.792] - attr(*, "total_size")= num NA 1552s [00:52:32.797] - Getting '...' globals ... DONE 1552s [00:52:32.797] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1552s [00:52:32.798] List of 2 1552s [00:52:32.798] $ ...future.FUN:function (..., sep = "", collapse = ", ", lastCollapse = NULL, maxHead = if (missing(lastCollapse)) 3 else Inf, 1552s [00:52:32.798] maxTail = if (is.finite(maxHead)) 1 else Inf, abbreviate = "...") 1552s [00:52:32.798] $ ... :List of 2 1552s [00:52:32.798] ..$ collapse: chr "; " 1552s [00:52:32.798] ..$ maxHead : int 3 1552s [00:52:32.798] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1552s [00:52:32.798] - attr(*, "where")=List of 2 1552s [00:52:32.798] ..$ ...future.FUN: 1552s [00:52:32.798] ..$ ... : 1552s [00:52:32.798] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1552s [00:52:32.798] - attr(*, "resolved")= logi FALSE 1552s [00:52:32.798] - attr(*, "total_size")= num 71456 1552s [00:52:32.803] Packages to be attached in all futures: [n=1] ‘future’ 1552s [00:52:32.803] getGlobalsAndPackagesXApply() ... DONE 1552s [00:52:32.803] Number of futures (= number of chunks): 1 1552s [00:52:32.804] Launching 1 futures (chunks) ... 1552s [00:52:32.804] Chunk #1 of 1 ... 1552s [00:52:32.804] - Finding globals in 'X' for chunk #1 ... 1552s [00:52:32.804] getGlobalsAndPackages() ... 1552s [00:52:32.805] Searching for globals... 1552s [00:52:32.805] 1552s [00:52:32.805] Searching for globals ... DONE 1552s [00:52:32.805] - globals: [0] 1552s [00:52:32.805] getGlobalsAndPackages() ... DONE 1552s [00:52:32.806] + additional globals found: [n=0] 1552s [00:52:32.806] + additional namespaces needed: [n=0] 1552s [00:52:32.806] - Finding globals in 'X' for chunk #1 ... DONE 1552s [00:52:32.806] - seeds: 1552s [00:52:32.806] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1552s [00:52:32.806] getGlobalsAndPackages() ... 1552s [00:52:32.806] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1552s [00:52:32.807] Resolving globals: FALSE 1552s [00:52:32.807] Tweak future expression to call with '...' arguments ... 1552s [00:52:32.807] { 1552s [00:52:32.807] do.call(function(...) { 1552s [00:52:32.807] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1552s [00:52:32.807] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1552s [00:52:32.807] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1552s [00:52:32.807] on.exit(options(oopts), add = TRUE) 1552s [00:52:32.807] } 1552s [00:52:32.807] { 1552s [00:52:32.807] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1552s [00:52:32.807] ...future.X_jj <- ...future.elements_ii[[jj]] 1552s [00:52:32.807] ...future.FUN(...future.X_jj, ...) 1552s [00:52:32.807] }) 1552s [00:52:32.807] } 1552s [00:52:32.807] }, args = future.call.arguments) 1552s [00:52:32.807] } 1552s [00:52:32.807] Tweak future expression to call with '...' arguments ... DONE 1552s [00:52:32.808] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1552s [00:52:32.808] - packages: [1] ‘future’ 1552s [00:52:32.808] getGlobalsAndPackages() ... DONE 1552s [00:52:32.808] run() for ‘Future’ ... 1552s [00:52:32.808] - state: ‘created’ 1552s [00:52:32.809] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1552s [00:52:32.813] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1552s [00:52:32.813] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1552s [00:52:32.813] - Field: ‘label’ 1552s [00:52:32.814] - Field: ‘local’ 1552s [00:52:32.816] - Field: ‘owner’ 1552s [00:52:32.816] - Field: ‘envir’ 1552s [00:52:32.816] - Field: ‘packages’ 1552s [00:52:32.816] - Field: ‘gc’ 1552s [00:52:32.817] - Field: ‘conditions’ 1552s [00:52:32.817] - Field: ‘expr’ 1552s [00:52:32.817] - Field: ‘uuid’ 1552s [00:52:32.818] - Field: ‘seed’ 1552s [00:52:32.818] - Field: ‘version’ 1552s [00:52:32.819] - Field: ‘result’ 1552s [00:52:32.819] - Field: ‘asynchronous’ 1552s [00:52:32.819] - Field: ‘calls’ 1552s [00:52:32.820] - Field: ‘globals’ 1552s [00:52:32.820] - Field: ‘stdout’ 1552s [00:52:32.820] - Field: ‘earlySignal’ 1552s [00:52:32.820] - Field: ‘lazy’ 1552s [00:52:32.821] - Field: ‘state’ 1552s [00:52:32.821] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1552s [00:52:32.821] - Launch lazy future ... 1552s [00:52:32.822] Packages needed by the future expression (n = 1): ‘future’ 1552s [00:52:32.822] Packages needed by future strategies (n = 0): 1552s [00:52:32.823] { 1552s [00:52:32.823] { 1552s [00:52:32.823] { 1552s [00:52:32.823] ...future.startTime <- base::Sys.time() 1552s [00:52:32.823] { 1552s [00:52:32.823] { 1552s [00:52:32.823] { 1552s [00:52:32.823] { 1552s [00:52:32.823] base::local({ 1552s [00:52:32.823] has_future <- base::requireNamespace("future", 1552s [00:52:32.823] quietly = TRUE) 1552s [00:52:32.823] if (has_future) { 1552s [00:52:32.823] ns <- base::getNamespace("future") 1552s [00:52:32.823] version <- ns[[".package"]][["version"]] 1552s [00:52:32.823] if (is.null(version)) 1552s [00:52:32.823] version <- utils::packageVersion("future") 1552s [00:52:32.823] } 1552s [00:52:32.823] else { 1552s [00:52:32.823] version <- NULL 1552s [00:52:32.823] } 1552s [00:52:32.823] if (!has_future || version < "1.8.0") { 1552s [00:52:32.823] info <- base::c(r_version = base::gsub("R version ", 1552s [00:52:32.823] "", base::R.version$version.string), 1552s [00:52:32.823] platform = base::sprintf("%s (%s-bit)", 1552s [00:52:32.823] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1552s [00:52:32.823] os = base::paste(base::Sys.info()[base::c("sysname", 1552s [00:52:32.823] "release", "version")], collapse = " "), 1552s [00:52:32.823] hostname = base::Sys.info()[["nodename"]]) 1552s [00:52:32.823] info <- base::sprintf("%s: %s", base::names(info), 1552s [00:52:32.823] info) 1552s [00:52:32.823] info <- base::paste(info, collapse = "; ") 1552s [00:52:32.823] if (!has_future) { 1552s [00:52:32.823] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1552s [00:52:32.823] info) 1552s [00:52:32.823] } 1552s [00:52:32.823] else { 1552s [00:52:32.823] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1552s [00:52:32.823] info, version) 1552s [00:52:32.823] } 1552s [00:52:32.823] base::stop(msg) 1552s [00:52:32.823] } 1552s [00:52:32.823] }) 1552s [00:52:32.823] } 1552s [00:52:32.823] base::local({ 1552s [00:52:32.823] for (pkg in "future") { 1552s [00:52:32.823] base::loadNamespace(pkg) 1552s [00:52:32.823] base::library(pkg, character.only = TRUE) 1552s [00:52:32.823] } 1552s [00:52:32.823] }) 1552s [00:52:32.823] } 1552s [00:52:32.823] options(future.plan = NULL) 1552s [00:52:32.823] Sys.unsetenv("R_FUTURE_PLAN") 1552s [00:52:32.823] future::plan("default", .cleanup = FALSE, .init = FALSE) 1552s [00:52:32.823] } 1552s [00:52:32.823] ...future.workdir <- getwd() 1552s [00:52:32.823] } 1552s [00:52:32.823] ...future.oldOptions <- base::as.list(base::.Options) 1552s [00:52:32.823] ...future.oldEnvVars <- base::Sys.getenv() 1552s [00:52:32.823] } 1552s [00:52:32.823] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1552s [00:52:32.823] future.globals.maxSize = NULL, future.globals.method = NULL, 1552s [00:52:32.823] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1552s [00:52:32.823] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1552s [00:52:32.823] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1552s [00:52:32.823] future.stdout.windows.reencode = NULL, width = 80L) 1552s [00:52:32.823] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1552s [00:52:32.823] base::names(...future.oldOptions)) 1552s [00:52:32.823] } 1552s [00:52:32.823] if (FALSE) { 1552s [00:52:32.823] } 1552s [00:52:32.823] else { 1552s [00:52:32.823] if (TRUE) { 1552s [00:52:32.823] ...future.stdout <- base::rawConnection(base::raw(0L), 1552s [00:52:32.823] open = "w") 1552s [00:52:32.823] } 1552s [00:52:32.823] else { 1552s [00:52:32.823] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1552s [00:52:32.823] windows = "NUL", "/dev/null"), open = "w") 1552s [00:52:32.823] } 1552s [00:52:32.823] base::sink(...future.stdout, type = "output", split = FALSE) 1552s [00:52:32.823] base::on.exit(if (!base::is.null(...future.stdout)) { 1552s [00:52:32.823] base::sink(type = "output", split = FALSE) 1552s [00:52:32.823] base::close(...future.stdout) 1552s [00:52:32.823] }, add = TRUE) 1552s [00:52:32.823] } 1552s [00:52:32.823] ...future.frame <- base::sys.nframe() 1552s [00:52:32.823] ...future.conditions <- base::list() 1552s [00:52:32.823] ...future.rng <- base::globalenv()$.Random.seed 1552s [00:52:32.823] if (FALSE) { 1552s [00:52:32.823] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1552s [00:52:32.823] "...future.value", "...future.globalenv.names", ".Random.seed") 1552s [00:52:32.823] } 1552s [00:52:32.823] ...future.result <- base::tryCatch({ 1552s [00:52:32.823] base::withCallingHandlers({ 1552s [00:52:32.823] ...future.value <- base::withVisible(base::local({ 1552s [00:52:32.823] do.call(function(...) { 1552s [00:52:32.823] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1552s [00:52:32.823] if (!identical(...future.globals.maxSize.org, 1552s [00:52:32.823] ...future.globals.maxSize)) { 1552s [00:52:32.823] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1552s [00:52:32.823] on.exit(options(oopts), add = TRUE) 1552s [00:52:32.823] } 1552s [00:52:32.823] { 1552s [00:52:32.823] lapply(seq_along(...future.elements_ii), 1552s [00:52:32.823] FUN = function(jj) { 1552s [00:52:32.823] ...future.X_jj <- ...future.elements_ii[[jj]] 1552s [00:52:32.823] ...future.FUN(...future.X_jj, ...) 1552s [00:52:32.823] }) 1552s [00:52:32.823] } 1552s [00:52:32.823] }, args = future.call.arguments) 1552s [00:52:32.823] })) 1552s [00:52:32.823] future::FutureResult(value = ...future.value$value, 1552s [00:52:32.823] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1552s [00:52:32.823] ...future.rng), globalenv = if (FALSE) 1552s [00:52:32.823] list(added = base::setdiff(base::names(base::.GlobalEnv), 1552s [00:52:32.823] ...future.globalenv.names)) 1552s [00:52:32.823] else NULL, started = ...future.startTime, version = "1.8") 1552s [00:52:32.823] }, condition = base::local({ 1552s [00:52:32.823] c <- base::c 1552s [00:52:32.823] inherits <- base::inherits 1552s [00:52:32.823] invokeRestart <- base::invokeRestart 1552s [00:52:32.823] length <- base::length 1552s [00:52:32.823] list <- base::list 1552s [00:52:32.823] seq.int <- base::seq.int 1552s [00:52:32.823] signalCondition <- base::signalCondition 1552s [00:52:32.823] sys.calls <- base::sys.calls 1552s [00:52:32.823] `[[` <- base::`[[` 1552s [00:52:32.823] `+` <- base::`+` 1552s [00:52:32.823] `<<-` <- base::`<<-` 1552s [00:52:32.823] sysCalls <- function(calls = sys.calls(), from = 1L) { 1552s [00:52:32.823] calls[seq.int(from = from + 12L, to = length(calls) - 1552s [00:52:32.823] 3L)] 1552s [00:52:32.823] } 1552s [00:52:32.823] function(cond) { 1552s [00:52:32.823] is_error <- inherits(cond, "error") 1552s [00:52:32.823] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1552s [00:52:32.823] NULL) 1552s [00:52:32.823] if (is_error) { 1552s [00:52:32.823] sessionInformation <- function() { 1552s [00:52:32.823] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1552s [00:52:32.823] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1552s [00:52:32.823] search = base::search(), system = base::Sys.info()) 1552s [00:52:32.823] } 1552s [00:52:32.823] ...future.conditions[[length(...future.conditions) + 1552s [00:52:32.823] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1552s [00:52:32.823] cond$call), session = sessionInformation(), 1552s [00:52:32.823] timestamp = base::Sys.time(), signaled = 0L) 1552s [00:52:32.823] signalCondition(cond) 1552s [00:52:32.823] } 1552s [00:52:32.823] else if (!ignore && TRUE && inherits(cond, c("condition", 1552s [00:52:32.823] "immediateCondition"))) { 1552s [00:52:32.823] signal <- TRUE && inherits(cond, "immediateCondition") 1552s [00:52:32.823] ...future.conditions[[length(...future.conditions) + 1552s [00:52:32.823] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1552s [00:52:32.823] if (TRUE && !signal) { 1552s [00:52:32.823] muffleCondition <- function (cond, pattern = "^muffle") 1552s [00:52:32.823] { 1552s [00:52:32.823] inherits <- base::inherits 1552s [00:52:32.823] invokeRestart <- base::invokeRestart 1552s [00:52:32.823] is.null <- base::is.null 1552s [00:52:32.823] muffled <- FALSE 1552s [00:52:32.823] if (inherits(cond, "message")) { 1552s [00:52:32.823] muffled <- grepl(pattern, "muffleMessage") 1552s [00:52:32.823] if (muffled) 1552s [00:52:32.823] invokeRestart("muffleMessage") 1552s [00:52:32.823] } 1552s [00:52:32.823] else if (inherits(cond, "warning")) { 1552s [00:52:32.823] muffled <- grepl(pattern, "muffleWarning") 1552s [00:52:32.823] if (muffled) 1552s [00:52:32.823] invokeRestart("muffleWarning") 1552s [00:52:32.823] } 1552s [00:52:32.823] else if (inherits(cond, "condition")) { 1552s [00:52:32.823] if (!is.null(pattern)) { 1552s [00:52:32.823] computeRestarts <- base::computeRestarts 1552s [00:52:32.823] grepl <- base::grepl 1552s [00:52:32.823] restarts <- computeRestarts(cond) 1552s [00:52:32.823] for (restart in restarts) { 1552s [00:52:32.823] name <- restart$name 1552s [00:52:32.823] if (is.null(name)) 1552s [00:52:32.823] next 1552s [00:52:32.823] if (!grepl(pattern, name)) 1552s [00:52:32.823] next 1552s [00:52:32.823] invokeRestart(restart) 1552s [00:52:32.823] muffled <- TRUE 1552s [00:52:32.823] break 1552s [00:52:32.823] } 1552s [00:52:32.823] } 1552s [00:52:32.823] } 1552s [00:52:32.823] invisible(muffled) 1552s [00:52:32.823] } 1552s [00:52:32.823] muffleCondition(cond, pattern = "^muffle") 1552s [00:52:32.823] } 1552s [00:52:32.823] } 1552s [00:52:32.823] else { 1552s [00:52:32.823] if (TRUE) { 1552s [00:52:32.823] muffleCondition <- function (cond, pattern = "^muffle") 1552s [00:52:32.823] { 1552s [00:52:32.823] inherits <- base::inherits 1552s [00:52:32.823] invokeRestart <- base::invokeRestart 1552s [00:52:32.823] is.null <- base::is.null 1552s [00:52:32.823] muffled <- FALSE 1552s [00:52:32.823] if (inherits(cond, "message")) { 1552s [00:52:32.823] muffled <- grepl(pattern, "muffleMessage") 1552s [00:52:32.823] if (muffled) 1552s [00:52:32.823] invokeRestart("muffleMessage") 1552s [00:52:32.823] } 1552s [00:52:32.823] else if (inherits(cond, "warning")) { 1552s [00:52:32.823] muffled <- grepl(pattern, "muffleWarning") 1552s [00:52:32.823] if (muffled) 1552s [00:52:32.823] invokeRestart("muffleWarning") 1552s [00:52:32.823] } 1552s [00:52:32.823] else if (inherits(cond, "condition")) { 1552s [00:52:32.823] if (!is.null(pattern)) { 1552s [00:52:32.823] computeRestarts <- base::computeRestarts 1552s [00:52:32.823] grepl <- base::grepl 1552s [00:52:32.823] restarts <- computeRestarts(cond) 1552s [00:52:32.823] for (restart in restarts) { 1552s [00:52:32.823] name <- restart$name 1552s [00:52:32.823] if (is.null(name)) 1552s [00:52:32.823] next 1552s [00:52:32.823] if (!grepl(pattern, name)) 1552s [00:52:32.823] next 1552s [00:52:32.823] invokeRestart(restart) 1552s [00:52:32.823] muffled <- TRUE 1552s [00:52:32.823] break 1552s [00:52:32.823] } 1552s [00:52:32.823] } 1552s [00:52:32.823] } 1552s [00:52:32.823] invisible(muffled) 1552s [00:52:32.823] } 1552s [00:52:32.823] muffleCondition(cond, pattern = "^muffle") 1552s [00:52:32.823] } 1552s [00:52:32.823] } 1552s [00:52:32.823] } 1552s [00:52:32.823] })) 1552s [00:52:32.823] }, error = function(ex) { 1552s [00:52:32.823] base::structure(base::list(value = NULL, visible = NULL, 1552s [00:52:32.823] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1552s [00:52:32.823] ...future.rng), started = ...future.startTime, 1552s [00:52:32.823] finished = Sys.time(), session_uuid = NA_character_, 1552s [00:52:32.823] version = "1.8"), class = "FutureResult") 1552s [00:52:32.823] }, finally = { 1552s [00:52:32.823] if (!identical(...future.workdir, getwd())) 1552s [00:52:32.823] setwd(...future.workdir) 1552s [00:52:32.823] { 1552s [00:52:32.823] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1552s [00:52:32.823] ...future.oldOptions$nwarnings <- NULL 1552s [00:52:32.823] } 1552s [00:52:32.823] base::options(...future.oldOptions) 1552s [00:52:32.823] if (.Platform$OS.type == "windows") { 1552s [00:52:32.823] old_names <- names(...future.oldEnvVars) 1552s [00:52:32.823] envs <- base::Sys.getenv() 1552s [00:52:32.823] names <- names(envs) 1552s [00:52:32.823] common <- intersect(names, old_names) 1552s [00:52:32.823] added <- setdiff(names, old_names) 1552s [00:52:32.823] removed <- setdiff(old_names, names) 1552s [00:52:32.823] changed <- common[...future.oldEnvVars[common] != 1552s [00:52:32.823] envs[common]] 1552s [00:52:32.823] NAMES <- toupper(changed) 1552s [00:52:32.823] args <- list() 1552s [00:52:32.823] for (kk in seq_along(NAMES)) { 1552s [00:52:32.823] name <- changed[[kk]] 1552s [00:52:32.823] NAME <- NAMES[[kk]] 1552s [00:52:32.823] if (name != NAME && is.element(NAME, old_names)) 1552s [00:52:32.823] next 1552s [00:52:32.823] args[[name]] <- ...future.oldEnvVars[[name]] 1552s [00:52:32.823] } 1552s [00:52:32.823] NAMES <- toupper(added) 1552s [00:52:32.823] for (kk in seq_along(NAMES)) { 1552s [00:52:32.823] name <- added[[kk]] 1552s [00:52:32.823] NAME <- NAMES[[kk]] 1552s [00:52:32.823] if (name != NAME && is.element(NAME, old_names)) 1552s [00:52:32.823] next 1552s [00:52:32.823] args[[name]] <- "" 1552s [00:52:32.823] } 1552s [00:52:32.823] NAMES <- toupper(removed) 1552s [00:52:32.823] for (kk in seq_along(NAMES)) { 1552s [00:52:32.823] name <- removed[[kk]] 1552s [00:52:32.823] NAME <- NAMES[[kk]] 1552s [00:52:32.823] if (name != NAME && is.element(NAME, old_names)) 1552s [00:52:32.823] next 1552s [00:52:32.823] args[[name]] <- ...future.oldEnvVars[[name]] 1552s [00:52:32.823] } 1552s [00:52:32.823] if (length(args) > 0) 1552s [00:52:32.823] base::do.call(base::Sys.setenv, args = args) 1552s [00:52:32.823] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1552s [00:52:32.823] } 1552s [00:52:32.823] else { 1552s [00:52:32.823] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1552s [00:52:32.823] } 1552s [00:52:32.823] { 1552s [00:52:32.823] if (base::length(...future.futureOptionsAdded) > 1552s [00:52:32.823] 0L) { 1552s [00:52:32.823] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1552s [00:52:32.823] base::names(opts) <- ...future.futureOptionsAdded 1552s [00:52:32.823] base::options(opts) 1552s [00:52:32.823] } 1552s [00:52:32.823] { 1552s [00:52:32.823] { 1552s [00:52:32.823] NULL 1552s [00:52:32.823] RNGkind("Mersenne-Twister") 1552s [00:52:32.823] base::rm(list = ".Random.seed", envir = base::globalenv(), 1552s [00:52:32.823] inherits = FALSE) 1552s [00:52:32.823] } 1552s [00:52:32.823] options(future.plan = NULL) 1552s [00:52:32.823] if (is.na(NA_character_)) 1552s [00:52:32.823] Sys.unsetenv("R_FUTURE_PLAN") 1552s [00:52:32.823] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1552s [00:52:32.823] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1552s [00:52:32.823] envir = parent.frame()) 1552s [00:52:32.823] { 1552s [00:52:32.823] default_workers <- missing(workers) 1552s [00:52:32.823] if (is.function(workers)) 1552s [00:52:32.823] workers <- workers() 1552s [00:52:32.823] workers <- structure(as.integer(workers), 1552s [00:52:32.823] class = class(workers)) 1552s [00:52:32.823] stop_if_not(is.finite(workers), workers >= 1552s [00:52:32.823] 1L) 1552s [00:52:32.823] if ((workers == 1L && !inherits(workers, 1552s [00:52:32.823] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1552s [00:52:32.823] if (default_workers) 1552s [00:52:32.823] supportsMulticore(warn = TRUE) 1552s [00:52:32.823] return(sequential(..., envir = envir)) 1552s [00:52:32.823] } 1552s [00:52:32.823] oopts <- options(mc.cores = workers) 1552s [00:52:32.823] on.exit(options(oopts)) 1552s [00:52:32.823] future <- MulticoreFuture(..., workers = workers, 1552s [00:52:32.823] envir = envir) 1552s [00:52:32.823] if (!future$lazy) 1552s [00:52:32.823] future <- run(future) 1552s [00:52:32.823] invisible(future) 1552s [00:52:32.823] }), .cleanup = FALSE, .init = FALSE) 1552s [00:52:32.823] } 1552s [00:52:32.823] } 1552s [00:52:32.823] } 1552s [00:52:32.823] }) 1552s [00:52:32.823] if (TRUE) { 1552s [00:52:32.823] base::sink(type = "output", split = FALSE) 1552s [00:52:32.823] if (TRUE) { 1552s [00:52:32.823] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1552s [00:52:32.823] } 1552s [00:52:32.823] else { 1552s [00:52:32.823] ...future.result["stdout"] <- base::list(NULL) 1552s [00:52:32.823] } 1552s [00:52:32.823] base::close(...future.stdout) 1552s [00:52:32.823] ...future.stdout <- NULL 1552s [00:52:32.823] } 1552s [00:52:32.823] ...future.result$conditions <- ...future.conditions 1552s [00:52:32.823] ...future.result$finished <- base::Sys.time() 1552s [00:52:32.823] ...future.result 1552s [00:52:32.823] } 1552s [00:52:32.828] assign_globals() ... 1552s [00:52:32.829] List of 5 1552s [00:52:32.829] $ ...future.FUN :function (..., sep = "", collapse = ", ", lastCollapse = NULL, maxHead = if (missing(lastCollapse)) 3 else Inf, 1552s [00:52:32.829] maxTail = if (is.finite(maxHead)) 1 else Inf, abbreviate = "...") 1552s [00:52:32.829] $ future.call.arguments :List of 2 1552s [00:52:32.829] ..$ collapse: chr "; " 1552s [00:52:32.829] ..$ maxHead : int 3 1552s [00:52:32.829] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1552s [00:52:32.829] $ ...future.elements_ii :List of 1 1552s [00:52:32.829] ..$ a: Named chr [1:101] "hello" "1" "2" "3" ... 1552s [00:52:32.829] .. ..- attr(*, "names")= chr [1:101] "" "b1" "b2" "b3" ... 1552s [00:52:32.829] $ ...future.seeds_ii : NULL 1552s [00:52:32.829] $ ...future.globals.maxSize: NULL 1552s [00:52:32.829] - attr(*, "where")=List of 5 1552s [00:52:32.829] ..$ ...future.FUN : 1552s [00:52:32.829] ..$ future.call.arguments : 1552s [00:52:32.829] ..$ ...future.elements_ii : 1552s [00:52:32.829] ..$ ...future.seeds_ii : 1552s [00:52:32.829] ..$ ...future.globals.maxSize: 1552s [00:52:32.829] - attr(*, "resolved")= logi FALSE 1552s [00:52:32.829] - attr(*, "total_size")= num 71456 1552s [00:52:32.829] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1552s [00:52:32.829] - attr(*, "already-done")= logi TRUE 1552s [00:52:32.845] - copied ‘...future.FUN’ to environment 1552s [00:52:32.846] - copied ‘future.call.arguments’ to environment 1552s [00:52:32.846] - copied ‘...future.elements_ii’ to environment 1552s [00:52:32.846] - copied ‘...future.seeds_ii’ to environment 1552s [00:52:32.846] - copied ‘...future.globals.maxSize’ to environment 1552s [00:52:32.846] assign_globals() ... done 1552s [00:52:32.847] plan(): Setting new future strategy stack: 1552s [00:52:32.847] List of future strategies: 1552s [00:52:32.847] 1. sequential: 1552s [00:52:32.847] - args: function (..., envir = parent.frame()) 1552s [00:52:32.847] - tweaked: FALSE 1552s [00:52:32.847] - call: NULL 1552s [00:52:32.848] plan(): nbrOfWorkers() = 1 1552s [00:52:32.850] plan(): Setting new future strategy stack: 1552s [00:52:32.851] List of future strategies: 1552s [00:52:32.851] 1. multicore: 1552s [00:52:32.851] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1552s [00:52:32.851] - tweaked: FALSE 1552s [00:52:32.851] - call: plan(strategy) 1552s [00:52:32.857] plan(): nbrOfWorkers() = 1 1552s [00:52:32.857] SequentialFuture started (and completed) 1552s [00:52:32.858] - Launch lazy future ... done 1552s [00:52:32.858] run() for ‘SequentialFuture’ ... done 1552s [00:52:32.858] Created future: 1552s [00:52:32.858] SequentialFuture: 1552s [00:52:32.858] Label: ‘future_lapply-1’ 1552s [00:52:32.858] Expression: 1552s [00:52:32.858] { 1552s [00:52:32.858] do.call(function(...) { 1552s [00:52:32.858] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1552s [00:52:32.858] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1552s [00:52:32.858] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1552s [00:52:32.858] on.exit(options(oopts), add = TRUE) 1552s [00:52:32.858] } 1552s [00:52:32.858] { 1552s [00:52:32.858] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1552s [00:52:32.858] ...future.X_jj <- ...future.elements_ii[[jj]] 1552s [00:52:32.858] ...future.FUN(...future.X_jj, ...) 1552s [00:52:32.858] }) 1552s [00:52:32.858] } 1552s [00:52:32.858] }, args = future.call.arguments) 1552s [00:52:32.858] } 1552s [00:52:32.858] Lazy evaluation: FALSE 1552s [00:52:32.858] Asynchronous evaluation: FALSE 1552s [00:52:32.858] Local evaluation: TRUE 1552s [00:52:32.858] Environment: R_GlobalEnv 1552s [00:52:32.858] Capture standard output: TRUE 1552s [00:52:32.858] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1552s [00:52:32.858] Globals: 5 objects totaling 82.61 KiB (function ‘...future.FUN’ of 69.62 KiB, DotDotDotList ‘future.call.arguments’ of 168 bytes, list ‘...future.elements_ii’ of 12.83 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1552s [00:52:32.858] Packages: 1 packages (‘future’) 1552s [00:52:32.858] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1552s [00:52:32.858] Resolved: TRUE 1552s [00:52:32.858] Value: 136 bytes of class ‘list’ 1552s [00:52:32.858] Early signaling: FALSE 1552s [00:52:32.858] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1552s [00:52:32.858] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1552s [00:52:32.861] Chunk #1 of 1 ... DONE 1552s [00:52:32.861] Launching 1 futures (chunks) ... DONE 1552s [00:52:32.861] Resolving 1 futures (chunks) ... 1552s [00:52:32.862] resolve() on list ... 1552s [00:52:32.862] recursive: 0 1552s [00:52:32.862] length: 1 1552s [00:52:32.862] 1552s [00:52:32.862] resolved() for ‘SequentialFuture’ ... 1552s [00:52:32.862] - state: ‘finished’ 1552s [00:52:32.863] - run: TRUE 1552s [00:52:32.863] - result: ‘FutureResult’ 1552s [00:52:32.863] resolved() for ‘SequentialFuture’ ... done 1552s [00:52:32.863] Future #1 1552s [00:52:32.864] signalConditionsASAP(SequentialFuture, pos=1) ... 1552s [00:52:32.864] - nx: 1 1552s [00:52:32.864] - relay: TRUE 1552s [00:52:32.864] - stdout: TRUE 1552s [00:52:32.865] - signal: TRUE 1552s [00:52:32.865] - resignal: FALSE 1552s [00:52:32.865] - force: TRUE 1552s [00:52:32.865] - relayed: [n=1] FALSE 1552s [00:52:32.865] - queued futures: [n=1] FALSE 1552s [00:52:32.865] - until=1 1552s [00:52:32.865] - relaying element #1 1552s [00:52:32.866] - relayed: [n=1] TRUE 1552s [00:52:32.866] - queued futures: [n=1] TRUE 1552s [00:52:32.867] signalConditionsASAP(SequentialFuture, pos=1) ... done 1552s [00:52:32.867] length: 0 (resolved future 1) 1552s [00:52:32.867] Relaying remaining futures 1552s [00:52:32.867] signalConditionsASAP(NULL, pos=0) ... 1552s [00:52:32.867] - nx: 1 1552s [00:52:32.868] - relay: TRUE 1552s [00:52:32.869] - stdout: TRUE 1552s [00:52:32.869] - signal: TRUE 1552s [00:52:32.869] - resignal: FALSE 1552s [00:52:32.869] - force: TRUE 1552s [00:52:32.869] - relayed: [n=1] TRUE 1552s [00:52:32.869] - queued futures: [n=1] TRUE 1552s - flush all 1552s [00:52:32.870] - relayed: [n=1] TRUE 1552s [00:52:32.871] - queued futures: [n=1] TRUE 1552s [00:52:32.871] signalConditionsASAP(NULL, pos=0) ... done 1552s [00:52:32.871] resolve() on list ... DONE 1552s [00:52:32.872] - Number of value chunks collected: 1 1552s [00:52:32.872] Resolving 1 futures (chunks) ... DONE 1552s [00:52:32.872] Reducing values from 1 chunks ... 1552s [00:52:32.873] - Number of values collected after concatenation: 1 1552s [00:52:32.873] - Number of values expected: 1 1552s [00:52:32.873] Reducing values from 1 chunks ... DONE 1552s [00:52:32.874] future_lapply() ... DONE 1552s List of 1 1552s $ y:List of 1 1552s ..$ a: chr "hello; 1; 2; ...; 100" 1552s - future_lapply(x, FUN = listenv::listenv, ...) ... 1552s [00:52:32.877] future_lapply() ... 1552s [00:52:32.882] Number of chunks: 1 1552s [00:52:32.882] getGlobalsAndPackagesXApply() ... 1552s [00:52:32.882] - future.globals: TRUE 1552s [00:52:32.882] getGlobalsAndPackages() ... 1552s [00:52:32.883] Searching for globals... 1552s [00:52:32.888] - globals found: [4] ‘FUN’, ‘{’, ‘get’, ‘parent.env’ 1552s [00:52:32.888] Searching for globals ... DONE 1552s [00:52:32.889] Resolving globals: FALSE 1552s [00:52:32.890] The total size of the 1 globals is 4.85 KiB (4968 bytes) 1552s [00:52:32.890] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.85 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.85 KiB of class ‘function’) 1552s [00:52:32.891] - globals: [1] ‘FUN’ 1552s [00:52:32.891] - packages: [1] ‘listenv’ 1552s [00:52:32.891] getGlobalsAndPackages() ... DONE 1552s [00:52:32.891] - globals found/used: [n=1] ‘FUN’ 1552s [00:52:32.892] - needed namespaces: [n=1] ‘listenv’ 1552s [00:52:32.892] Finding globals ... DONE 1552s [00:52:32.892] - use_args: TRUE 1552s [00:52:32.892] - Getting '...' globals ... 1552s [00:52:32.893] resolve() on list ... 1552s [00:52:32.893] recursive: 0 1552s [00:52:32.893] length: 1 1552s [00:52:32.893] elements: ‘...’ 1552s [00:52:32.893] length: 0 (resolved future 1) 1552s [00:52:32.894] resolve() on list ... DONE 1552s [00:52:32.894] - '...' content: [n=0] 1552s [00:52:32.894] List of 1 1552s [00:52:32.894] $ ...: list() 1552s [00:52:32.894] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1552s [00:52:32.894] - attr(*, "where")=List of 1 1552s [00:52:32.894] ..$ ...: 1552s [00:52:32.894] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1552s [00:52:32.894] - attr(*, "resolved")= logi TRUE 1552s [00:52:32.894] - attr(*, "total_size")= num NA 1552s [00:52:32.898] - Getting '...' globals ... DONE 1552s [00:52:32.899] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1552s [00:52:32.899] List of 2 1552s [00:52:32.899] $ ...future.FUN:function (x, ...) 1552s [00:52:32.899] $ ... : list() 1552s [00:52:32.899] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1552s [00:52:32.899] - attr(*, "where")=List of 2 1552s [00:52:32.899] ..$ ...future.FUN: 1552s [00:52:32.899] ..$ ... : 1552s [00:52:32.899] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1552s [00:52:32.899] - attr(*, "resolved")= logi FALSE 1552s [00:52:32.899] - attr(*, "total_size")= num 4968 1552s [00:52:32.904] Packages to be attached in all futures: [n=1] ‘listenv’ 1552s [00:52:32.904] getGlobalsAndPackagesXApply() ... DONE 1552s [00:52:32.905] Number of futures (= number of chunks): 1 1552s [00:52:32.905] Launching 1 futures (chunks) ... 1552s [00:52:32.905] Chunk #1 of 1 ... 1552s [00:52:32.906] - Finding globals in 'X' for chunk #1 ... 1552s [00:52:32.907] getGlobalsAndPackages() ... 1552s [00:52:32.907] Searching for globals... 1552s [00:52:32.908] 1552s [00:52:32.908] Searching for globals ... DONE 1552s [00:52:32.908] - globals: [0] 1552s [00:52:32.908] getGlobalsAndPackages() ... DONE 1552s [00:52:32.909] + additional globals found: [n=0] 1552s [00:52:32.909] + additional namespaces needed: [n=0] 1552s [00:52:32.910] - Finding globals in 'X' for chunk #1 ... DONE 1552s [00:52:32.910] - seeds: 1552s [00:52:32.910] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1552s [00:52:32.910] getGlobalsAndPackages() ... 1552s [00:52:32.910] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1552s [00:52:32.911] Resolving globals: FALSE 1552s [00:52:32.911] Tweak future expression to call with '...' arguments ... 1552s [00:52:32.911] { 1552s [00:52:32.911] do.call(function(...) { 1552s [00:52:32.911] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1552s [00:52:32.911] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1552s [00:52:32.911] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1552s [00:52:32.911] on.exit(options(oopts), add = TRUE) 1552s [00:52:32.911] } 1552s [00:52:32.911] { 1552s [00:52:32.911] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1552s [00:52:32.911] ...future.X_jj <- ...future.elements_ii[[jj]] 1552s [00:52:32.911] ...future.FUN(...future.X_jj, ...) 1552s [00:52:32.911] }) 1552s [00:52:32.911] } 1552s [00:52:32.911] }, args = future.call.arguments) 1552s [00:52:32.911] } 1552s [00:52:32.912] Tweak future expression to call with '...' arguments ... DONE 1552s [00:52:32.912] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1552s [00:52:32.913] - packages: [1] ‘listenv’ 1552s [00:52:32.913] getGlobalsAndPackages() ... DONE 1552s [00:52:32.913] run() for ‘Future’ ... 1552s [00:52:32.914] - state: ‘created’ 1552s [00:52:32.914] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1552s [00:52:32.918] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1552s [00:52:32.919] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1552s [00:52:32.919] - Field: ‘label’ 1552s [00:52:32.919] - Field: ‘local’ 1552s [00:52:32.919] - Field: ‘owner’ 1552s [00:52:32.919] - Field: ‘envir’ 1552s [00:52:32.920] - Field: ‘packages’ 1552s [00:52:32.920] - Field: ‘gc’ 1552s [00:52:32.920] - Field: ‘conditions’ 1552s [00:52:32.920] - Field: ‘expr’ 1552s [00:52:32.920] - Field: ‘uuid’ 1552s [00:52:32.920] - Field: ‘seed’ 1552s [00:52:32.921] - Field: ‘version’ 1552s [00:52:32.921] - Field: ‘result’ 1552s [00:52:32.921] - Field: ‘asynchronous’ 1552s [00:52:32.921] - Field: ‘calls’ 1552s [00:52:32.921] - Field: ‘globals’ 1552s [00:52:32.922] - Field: ‘stdout’ 1552s [00:52:32.922] - Field: ‘earlySignal’ 1552s [00:52:32.923] - Field: ‘lazy’ 1552s [00:52:32.923] - Field: ‘state’ 1552s [00:52:32.923] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1552s [00:52:32.923] - Launch lazy future ... 1552s [00:52:32.923] Packages needed by the future expression (n = 1): ‘listenv’ 1552s [00:52:32.924] Packages needed by future strategies (n = 0): 1552s [00:52:32.924] { 1552s [00:52:32.924] { 1552s [00:52:32.924] { 1552s [00:52:32.924] ...future.startTime <- base::Sys.time() 1552s [00:52:32.924] { 1552s [00:52:32.924] { 1552s [00:52:32.924] { 1552s [00:52:32.924] { 1552s [00:52:32.924] base::local({ 1552s [00:52:32.924] has_future <- base::requireNamespace("future", 1552s [00:52:32.924] quietly = TRUE) 1552s [00:52:32.924] if (has_future) { 1552s [00:52:32.924] ns <- base::getNamespace("future") 1552s [00:52:32.924] version <- ns[[".package"]][["version"]] 1552s [00:52:32.924] if (is.null(version)) 1552s [00:52:32.924] version <- utils::packageVersion("future") 1552s [00:52:32.924] } 1552s [00:52:32.924] else { 1552s [00:52:32.924] version <- NULL 1552s [00:52:32.924] } 1552s [00:52:32.924] if (!has_future || version < "1.8.0") { 1552s [00:52:32.924] info <- base::c(r_version = base::gsub("R version ", 1552s [00:52:32.924] "", base::R.version$version.string), 1552s [00:52:32.924] platform = base::sprintf("%s (%s-bit)", 1552s [00:52:32.924] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1552s [00:52:32.924] os = base::paste(base::Sys.info()[base::c("sysname", 1552s [00:52:32.924] "release", "version")], collapse = " "), 1552s [00:52:32.924] hostname = base::Sys.info()[["nodename"]]) 1552s [00:52:32.924] info <- base::sprintf("%s: %s", base::names(info), 1552s [00:52:32.924] info) 1552s [00:52:32.924] info <- base::paste(info, collapse = "; ") 1552s [00:52:32.924] if (!has_future) { 1552s [00:52:32.924] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1552s [00:52:32.924] info) 1552s [00:52:32.924] } 1552s [00:52:32.924] else { 1552s [00:52:32.924] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1552s [00:52:32.924] info, version) 1552s [00:52:32.924] } 1552s [00:52:32.924] base::stop(msg) 1552s [00:52:32.924] } 1552s [00:52:32.924] }) 1552s [00:52:32.924] } 1552s [00:52:32.924] base::local({ 1552s [00:52:32.924] for (pkg in "listenv") { 1552s [00:52:32.924] base::loadNamespace(pkg) 1552s [00:52:32.924] base::library(pkg, character.only = TRUE) 1552s [00:52:32.924] } 1552s [00:52:32.924] }) 1552s [00:52:32.924] } 1552s [00:52:32.924] options(future.plan = NULL) 1552s [00:52:32.924] Sys.unsetenv("R_FUTURE_PLAN") 1552s [00:52:32.924] future::plan("default", .cleanup = FALSE, .init = FALSE) 1552s [00:52:32.924] } 1552s [00:52:32.924] ...future.workdir <- getwd() 1552s [00:52:32.924] } 1552s [00:52:32.924] ...future.oldOptions <- base::as.list(base::.Options) 1552s [00:52:32.924] ...future.oldEnvVars <- base::Sys.getenv() 1552s [00:52:32.924] } 1552s [00:52:32.924] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1552s [00:52:32.924] future.globals.maxSize = NULL, future.globals.method = NULL, 1552s [00:52:32.924] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1552s [00:52:32.924] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1552s [00:52:32.924] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1552s [00:52:32.924] future.stdout.windows.reencode = NULL, width = 80L) 1552s [00:52:32.924] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1552s [00:52:32.924] base::names(...future.oldOptions)) 1552s [00:52:32.924] } 1552s [00:52:32.924] if (FALSE) { 1552s [00:52:32.924] } 1552s [00:52:32.924] else { 1552s [00:52:32.924] if (TRUE) { 1552s [00:52:32.924] ...future.stdout <- base::rawConnection(base::raw(0L), 1552s [00:52:32.924] open = "w") 1552s [00:52:32.924] } 1552s [00:52:32.924] else { 1552s [00:52:32.924] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1552s [00:52:32.924] windows = "NUL", "/dev/null"), open = "w") 1552s [00:52:32.924] } 1552s [00:52:32.924] base::sink(...future.stdout, type = "output", split = FALSE) 1552s [00:52:32.924] base::on.exit(if (!base::is.null(...future.stdout)) { 1552s [00:52:32.924] base::sink(type = "output", split = FALSE) 1552s [00:52:32.924] base::close(...future.stdout) 1552s [00:52:32.924] }, add = TRUE) 1552s [00:52:32.924] } 1552s [00:52:32.924] ...future.frame <- base::sys.nframe() 1552s [00:52:32.924] ...future.conditions <- base::list() 1552s [00:52:32.924] ...future.rng <- base::globalenv()$.Random.seed 1552s [00:52:32.924] if (FALSE) { 1552s [00:52:32.924] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1552s [00:52:32.924] "...future.value", "...future.globalenv.names", ".Random.seed") 1552s [00:52:32.924] } 1552s [00:52:32.924] ...future.result <- base::tryCatch({ 1552s [00:52:32.924] base::withCallingHandlers({ 1552s [00:52:32.924] ...future.value <- base::withVisible(base::local({ 1552s [00:52:32.924] do.call(function(...) { 1552s [00:52:32.924] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1552s [00:52:32.924] if (!identical(...future.globals.maxSize.org, 1552s [00:52:32.924] ...future.globals.maxSize)) { 1552s [00:52:32.924] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1552s [00:52:32.924] on.exit(options(oopts), add = TRUE) 1552s [00:52:32.924] } 1552s [00:52:32.924] { 1552s [00:52:32.924] lapply(seq_along(...future.elements_ii), 1552s [00:52:32.924] FUN = function(jj) { 1552s [00:52:32.924] ...future.X_jj <- ...future.elements_ii[[jj]] 1552s [00:52:32.924] ...future.FUN(...future.X_jj, ...) 1552s [00:52:32.924] }) 1552s [00:52:32.924] } 1552s [00:52:32.924] }, args = future.call.arguments) 1552s [00:52:32.924] })) 1552s [00:52:32.924] future::FutureResult(value = ...future.value$value, 1552s [00:52:32.924] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1552s [00:52:32.924] ...future.rng), globalenv = if (FALSE) 1552s [00:52:32.924] list(added = base::setdiff(base::names(base::.GlobalEnv), 1552s [00:52:32.924] ...future.globalenv.names)) 1552s [00:52:32.924] else NULL, started = ...future.startTime, version = "1.8") 1552s [00:52:32.924] }, condition = base::local({ 1552s [00:52:32.924] c <- base::c 1552s [00:52:32.924] inherits <- base::inherits 1552s [00:52:32.924] invokeRestart <- base::invokeRestart 1552s [00:52:32.924] length <- base::length 1552s [00:52:32.924] list <- base::list 1552s [00:52:32.924] seq.int <- base::seq.int 1552s [00:52:32.924] signalCondition <- base::signalCondition 1552s [00:52:32.924] sys.calls <- base::sys.calls 1552s [00:52:32.924] `[[` <- base::`[[` 1552s [00:52:32.924] `+` <- base::`+` 1552s [00:52:32.924] `<<-` <- base::`<<-` 1552s [00:52:32.924] sysCalls <- function(calls = sys.calls(), from = 1L) { 1552s [00:52:32.924] calls[seq.int(from = from + 12L, to = length(calls) - 1552s [00:52:32.924] 3L)] 1552s [00:52:32.924] } 1552s [00:52:32.924] function(cond) { 1552s [00:52:32.924] is_error <- inherits(cond, "error") 1552s [00:52:32.924] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1552s [00:52:32.924] NULL) 1552s [00:52:32.924] if (is_error) { 1552s [00:52:32.924] sessionInformation <- function() { 1552s [00:52:32.924] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1552s [00:52:32.924] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1552s [00:52:32.924] search = base::search(), system = base::Sys.info()) 1552s [00:52:32.924] } 1552s [00:52:32.924] ...future.conditions[[length(...future.conditions) + 1552s [00:52:32.924] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1552s [00:52:32.924] cond$call), session = sessionInformation(), 1552s [00:52:32.924] timestamp = base::Sys.time(), signaled = 0L) 1552s [00:52:32.924] signalCondition(cond) 1552s [00:52:32.924] } 1552s [00:52:32.924] else if (!ignore && TRUE && inherits(cond, c("condition", 1552s [00:52:32.924] "immediateCondition"))) { 1552s [00:52:32.924] signal <- TRUE && inherits(cond, "immediateCondition") 1552s [00:52:32.924] ...future.conditions[[length(...future.conditions) + 1552s [00:52:32.924] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1552s [00:52:32.924] if (TRUE && !signal) { 1552s [00:52:32.924] muffleCondition <- function (cond, pattern = "^muffle") 1552s [00:52:32.924] { 1552s [00:52:32.924] inherits <- base::inherits 1552s [00:52:32.924] invokeRestart <- base::invokeRestart 1552s [00:52:32.924] is.null <- base::is.null 1552s [00:52:32.924] muffled <- FALSE 1552s [00:52:32.924] if (inherits(cond, "message")) { 1552s [00:52:32.924] muffled <- grepl(pattern, "muffleMessage") 1552s [00:52:32.924] if (muffled) 1552s [00:52:32.924] invokeRestart("muffleMessage") 1552s [00:52:32.924] } 1552s [00:52:32.924] else if (inherits(cond, "warning")) { 1552s [00:52:32.924] muffled <- grepl(pattern, "muffleWarning") 1552s [00:52:32.924] if (muffled) 1552s [00:52:32.924] invokeRestart("muffleWarning") 1552s [00:52:32.924] } 1552s [00:52:32.924] else if (inherits(cond, "condition")) { 1552s [00:52:32.924] if (!is.null(pattern)) { 1552s [00:52:32.924] computeRestarts <- base::computeRestarts 1552s [00:52:32.924] grepl <- base::grepl 1552s [00:52:32.924] restarts <- computeRestarts(cond) 1552s [00:52:32.924] for (restart in restarts) { 1552s [00:52:32.924] name <- restart$name 1552s [00:52:32.924] if (is.null(name)) 1552s [00:52:32.924] next 1552s [00:52:32.924] if (!grepl(pattern, name)) 1552s [00:52:32.924] next 1552s [00:52:32.924] invokeRestart(restart) 1552s [00:52:32.924] muffled <- TRUE 1552s [00:52:32.924] break 1552s [00:52:32.924] } 1552s [00:52:32.924] } 1552s [00:52:32.924] } 1552s [00:52:32.924] invisible(muffled) 1552s [00:52:32.924] } 1552s [00:52:32.924] muffleCondition(cond, pattern = "^muffle") 1552s [00:52:32.924] } 1552s [00:52:32.924] } 1552s [00:52:32.924] else { 1552s [00:52:32.924] if (TRUE) { 1552s [00:52:32.924] muffleCondition <- function (cond, pattern = "^muffle") 1552s [00:52:32.924] { 1552s [00:52:32.924] inherits <- base::inherits 1552s [00:52:32.924] invokeRestart <- base::invokeRestart 1552s [00:52:32.924] is.null <- base::is.null 1552s [00:52:32.924] muffled <- FALSE 1552s [00:52:32.924] if (inherits(cond, "message")) { 1552s [00:52:32.924] muffled <- grepl(pattern, "muffleMessage") 1552s [00:52:32.924] if (muffled) 1552s [00:52:32.924] invokeRestart("muffleMessage") 1552s [00:52:32.924] } 1552s [00:52:32.924] else if (inherits(cond, "warning")) { 1552s [00:52:32.924] muffled <- grepl(pattern, "muffleWarning") 1552s [00:52:32.924] if (muffled) 1552s [00:52:32.924] invokeRestart("muffleWarning") 1552s [00:52:32.924] } 1552s [00:52:32.924] else if (inherits(cond, "condition")) { 1552s [00:52:32.924] if (!is.null(pattern)) { 1552s [00:52:32.924] computeRestarts <- base::computeRestarts 1552s [00:52:32.924] grepl <- base::grepl 1552s [00:52:32.924] restarts <- computeRestarts(cond) 1552s [00:52:32.924] for (restart in restarts) { 1552s [00:52:32.924] name <- restart$name 1552s [00:52:32.924] if (is.null(name)) 1552s [00:52:32.924] next 1552s [00:52:32.924] if (!grepl(pattern, name)) 1552s [00:52:32.924] next 1552s [00:52:32.924] invokeRestart(restart) 1552s [00:52:32.924] muffled <- TRUE 1552s [00:52:32.924] break 1552s [00:52:32.924] } 1552s [00:52:32.924] } 1552s [00:52:32.924] } 1552s [00:52:32.924] invisible(muffled) 1552s [00:52:32.924] } 1552s [00:52:32.924] muffleCondition(cond, pattern = "^muffle") 1552s [00:52:32.924] } 1552s [00:52:32.924] } 1552s [00:52:32.924] } 1552s [00:52:32.924] })) 1552s [00:52:32.924] }, error = function(ex) { 1552s [00:52:32.924] base::structure(base::list(value = NULL, visible = NULL, 1552s [00:52:32.924] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1552s [00:52:32.924] ...future.rng), started = ...future.startTime, 1552s [00:52:32.924] finished = Sys.time(), session_uuid = NA_character_, 1552s [00:52:32.924] version = "1.8"), class = "FutureResult") 1552s [00:52:32.924] }, finally = { 1552s [00:52:32.924] if (!identical(...future.workdir, getwd())) 1552s [00:52:32.924] setwd(...future.workdir) 1552s [00:52:32.924] { 1552s [00:52:32.924] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1552s [00:52:32.924] ...future.oldOptions$nwarnings <- NULL 1552s [00:52:32.924] } 1552s [00:52:32.924] base::options(...future.oldOptions) 1552s [00:52:32.924] if (.Platform$OS.type == "windows") { 1552s [00:52:32.924] old_names <- names(...future.oldEnvVars) 1552s [00:52:32.924] envs <- base::Sys.getenv() 1552s [00:52:32.924] names <- names(envs) 1552s [00:52:32.924] common <- intersect(names, old_names) 1552s [00:52:32.924] added <- setdiff(names, old_names) 1552s [00:52:32.924] removed <- setdiff(old_names, names) 1552s [00:52:32.924] changed <- common[...future.oldEnvVars[common] != 1552s [00:52:32.924] envs[common]] 1552s [00:52:32.924] NAMES <- toupper(changed) 1552s [00:52:32.924] args <- list() 1552s [00:52:32.924] for (kk in seq_along(NAMES)) { 1552s [00:52:32.924] name <- changed[[kk]] 1552s [00:52:32.924] NAME <- NAMES[[kk]] 1552s [00:52:32.924] if (name != NAME && is.element(NAME, old_names)) 1552s [00:52:32.924] next 1552s [00:52:32.924] args[[name]] <- ...future.oldEnvVars[[name]] 1552s [00:52:32.924] } 1552s [00:52:32.924] NAMES <- toupper(added) 1552s [00:52:32.924] for (kk in seq_along(NAMES)) { 1552s [00:52:32.924] name <- added[[kk]] 1552s [00:52:32.924] NAME <- NAMES[[kk]] 1552s [00:52:32.924] if (name != NAME && is.element(NAME, old_names)) 1552s [00:52:32.924] next 1552s [00:52:32.924] args[[name]] <- "" 1552s [00:52:32.924] } 1552s [00:52:32.924] NAMES <- toupper(removed) 1552s [00:52:32.924] for (kk in seq_along(NAMES)) { 1552s [00:52:32.924] name <- removed[[kk]] 1552s [00:52:32.924] NAME <- NAMES[[kk]] 1552s [00:52:32.924] if (name != NAME && is.element(NAME, old_names)) 1552s [00:52:32.924] next 1552s [00:52:32.924] args[[name]] <- ...future.oldEnvVars[[name]] 1552s [00:52:32.924] } 1552s [00:52:32.924] if (length(args) > 0) 1552s [00:52:32.924] base::do.call(base::Sys.setenv, args = args) 1552s [00:52:32.924] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1552s [00:52:32.924] } 1552s [00:52:32.924] else { 1552s [00:52:32.924] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1552s [00:52:32.924] } 1552s [00:52:32.924] { 1552s [00:52:32.924] if (base::length(...future.futureOptionsAdded) > 1552s [00:52:32.924] 0L) { 1552s [00:52:32.924] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1552s [00:52:32.924] base::names(opts) <- ...future.futureOptionsAdded 1552s [00:52:32.924] base::options(opts) 1552s [00:52:32.924] } 1552s [00:52:32.924] { 1552s [00:52:32.924] { 1552s [00:52:32.924] NULL 1552s [00:52:32.924] RNGkind("Mersenne-Twister") 1552s [00:52:32.924] base::rm(list = ".Random.seed", envir = base::globalenv(), 1552s [00:52:32.924] inherits = FALSE) 1552s [00:52:32.924] } 1552s [00:52:32.924] options(future.plan = NULL) 1552s [00:52:32.924] if (is.na(NA_character_)) 1552s [00:52:32.924] Sys.unsetenv("R_FUTURE_PLAN") 1552s [00:52:32.924] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1552s [00:52:32.924] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1552s [00:52:32.924] envir = parent.frame()) 1552s [00:52:32.924] { 1552s [00:52:32.924] default_workers <- missing(workers) 1552s [00:52:32.924] if (is.function(workers)) 1552s [00:52:32.924] workers <- workers() 1552s [00:52:32.924] workers <- structure(as.integer(workers), 1552s [00:52:32.924] class = class(workers)) 1552s [00:52:32.924] stop_if_not(is.finite(workers), workers >= 1552s [00:52:32.924] 1L) 1552s [00:52:32.924] if ((workers == 1L && !inherits(workers, 1552s [00:52:32.924] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1552s [00:52:32.924] if (default_workers) 1552s [00:52:32.924] supportsMulticore(warn = TRUE) 1552s [00:52:32.924] return(sequential(..., envir = envir)) 1552s [00:52:32.924] } 1552s [00:52:32.924] oopts <- options(mc.cores = workers) 1552s [00:52:32.924] on.exit(options(oopts)) 1552s [00:52:32.924] future <- MulticoreFuture(..., workers = workers, 1552s [00:52:32.924] envir = envir) 1552s [00:52:32.924] if (!future$lazy) 1552s [00:52:32.924] future <- run(future) 1552s [00:52:32.924] invisible(future) 1552s [00:52:32.924] }), .cleanup = FALSE, .init = FALSE) 1552s [00:52:32.924] } 1552s [00:52:32.924] } 1552s [00:52:32.924] } 1552s [00:52:32.924] }) 1552s [00:52:32.924] if (TRUE) { 1552s [00:52:32.924] base::sink(type = "output", split = FALSE) 1552s [00:52:32.924] if (TRUE) { 1552s [00:52:32.924] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1552s [00:52:32.924] } 1552s [00:52:32.924] else { 1552s [00:52:32.924] ...future.result["stdout"] <- base::list(NULL) 1552s [00:52:32.924] } 1552s [00:52:32.924] base::close(...future.stdout) 1552s [00:52:32.924] ...future.stdout <- NULL 1552s [00:52:32.924] } 1552s [00:52:32.924] ...future.result$conditions <- ...future.conditions 1552s [00:52:32.924] ...future.result$finished <- base::Sys.time() 1552s [00:52:32.924] ...future.result 1552s [00:52:32.924] } 1552s [00:52:32.932] assign_globals() ... 1552s [00:52:32.933] List of 5 1552s [00:52:32.933] $ ...future.FUN :function (x, ...) 1552s [00:52:32.933] $ future.call.arguments : list() 1552s [00:52:32.933] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1552s [00:52:32.933] $ ...future.elements_ii :List of 2 1552s [00:52:32.933] ..$ a:Classes 'listenv', 'environment' 1552s [00:52:32.933] ..$ b:Classes 'listenv', 'environment' 1552s [00:52:32.933] $ ...future.seeds_ii : NULL 1552s [00:52:32.933] $ ...future.globals.maxSize: NULL 1552s [00:52:32.933] - attr(*, "where")=List of 5 1552s [00:52:32.933] ..$ ...future.FUN : 1552s [00:52:32.933] ..$ future.call.arguments : 1552s [00:52:32.933] ..$ ...future.elements_ii : 1552s [00:52:32.933] ..$ ...future.seeds_ii : 1552s [00:52:32.933] ..$ ...future.globals.maxSize: 1552s [00:52:32.933] - attr(*, "resolved")= logi FALSE 1552s [00:52:32.933] - attr(*, "total_size")= num 4968 1552s [00:52:32.933] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1552s [00:52:32.933] - attr(*, "already-done")= logi TRUE 1552s [00:52:32.944] - copied ‘...future.FUN’ to environment 1552s [00:52:32.944] - copied ‘future.call.arguments’ to environment 1552s [00:52:32.944] - copied ‘...future.elements_ii’ to environment 1552s [00:52:32.945] - copied ‘...future.seeds_ii’ to environment 1552s [00:52:32.945] - copied ‘...future.globals.maxSize’ to environment 1552s [00:52:32.945] assign_globals() ... done 1552s [00:52:32.945] plan(): Setting new future strategy stack: 1552s [00:52:32.946] List of future strategies: 1552s [00:52:32.946] 1. sequential: 1552s [00:52:32.946] - args: function (..., envir = parent.frame()) 1552s [00:52:32.946] - tweaked: FALSE 1552s [00:52:32.946] - call: NULL 1552s [00:52:32.946] plan(): nbrOfWorkers() = 1 1552s [00:52:32.947] plan(): Setting new future strategy stack: 1552s [00:52:32.947] List of future strategies: 1552s [00:52:32.947] 1. multicore: 1552s [00:52:32.947] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1552s [00:52:32.947] - tweaked: FALSE 1552s [00:52:32.947] - call: plan(strategy) 1552s [00:52:32.952] plan(): nbrOfWorkers() = 1 1552s [00:52:32.952] SequentialFuture started (and completed) 1552s [00:52:32.952] - Launch lazy future ... done 1552s [00:52:32.952] run() for ‘SequentialFuture’ ... done 1552s [00:52:32.953] Created future: 1552s [00:52:32.953] SequentialFuture: 1552s [00:52:32.953] Label: ‘future_lapply-1’ 1552s [00:52:32.953] Expression: 1552s [00:52:32.953] { 1552s [00:52:32.953] do.call(function(...) { 1552s [00:52:32.953] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1552s [00:52:32.953] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1552s [00:52:32.953] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1552s [00:52:32.953] on.exit(options(oopts), add = TRUE) 1552s [00:52:32.953] } 1552s [00:52:32.953] { 1552s [00:52:32.953] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1552s [00:52:32.953] ...future.X_jj <- ...future.elements_ii[[jj]] 1552s [00:52:32.953] ...future.FUN(...future.X_jj, ...) 1552s [00:52:32.953] }) 1552s [00:52:32.953] } 1552s [00:52:32.953] }, args = future.call.arguments) 1552s [00:52:32.953] } 1552s [00:52:32.953] Lazy evaluation: FALSE 1552s [00:52:32.953] Asynchronous evaluation: FALSE 1552s [00:52:32.953] Local evaluation: TRUE 1552s [00:52:32.953] Environment: R_GlobalEnv 1552s [00:52:32.953] Capture standard output: TRUE 1552s [00:52:32.953] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1552s [00:52:32.953] Globals: 5 objects totaling 17.90 KiB (function ‘...future.FUN’ of 4.85 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 13.05 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1552s [00:52:32.953] Packages: 1 packages (‘listenv’) 1552s [00:52:32.953] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1552s [00:52:32.953] Resolved: TRUE 1552s [00:52:32.953] Value: 800 bytes of class ‘list’ 1552s [00:52:32.953] Early signaling: FALSE 1552s [00:52:32.953] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1552s [00:52:32.953] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1552s [00:52:32.955] Chunk #1 of 1 ... DONE 1552s [00:52:32.955] Launching 1 futures (chunks) ... DONE 1552s [00:52:32.956] Resolving 1 futures (chunks) ... 1552s [00:52:32.956] resolve() on list ... 1552s [00:52:32.956] recursive: 0 1552s [00:52:32.956] length: 1 1552s [00:52:32.956] 1552s [00:52:32.956] resolved() for ‘SequentialFuture’ ... 1552s [00:52:32.956] - state: ‘finished’ 1552s [00:52:32.957] - run: TRUE 1552s [00:52:32.957] - result: ‘FutureResult’ 1552s [00:52:32.957] resolved() for ‘SequentialFuture’ ... done 1552s [00:52:32.957] Future #1 1552s [00:52:32.957] signalConditionsASAP(SequentialFuture, pos=1) ... 1552s [00:52:32.957] - nx: 1 1552s [00:52:32.958] - relay: TRUE 1552s [00:52:32.958] - stdout: TRUE 1552s [00:52:32.958] - signal: TRUE 1552s [00:52:32.958] - resignal: FALSE 1552s [00:52:32.958] - force: TRUE 1552s [00:52:32.958] - relayed: [n=1] FALSE 1552s [00:52:32.958] - queued futures: [n=1] FALSE 1552s [00:52:32.959] - until=1 1552s [00:52:32.959] - relaying element #1 1552s [00:52:32.960] - relayed: [n=1] TRUE 1552s [00:52:32.960] - queued futures: [n=1] TRUE 1552s [00:52:32.960] signalConditionsASAP(SequentialFuture, pos=1) ... done 1552s [00:52:32.960] length: 0 (resolved future 1) 1552s [00:52:32.960] Relaying remaining futures 1552s [00:52:32.961] signalConditionsASAP(NULL, pos=0) ... 1552s [00:52:32.961] - nx: 1 1552s [00:52:32.961] - relay: TRUE 1552s [00:52:32.961] - stdout: TRUE 1552s [00:52:32.961] - signal: TRUE 1552s [00:52:32.961] - resignal: FALSE 1552s [00:52:32.961] - force: TRUE 1552s [00:52:32.961] - relayed: [n=1] TRUE 1552s [00:52:32.962] - queued futures: [n=1] TRUE 1552s - flush all 1552s [00:52:32.962] - relayed: [n=1] TRUE 1552s [00:52:32.962] - queued futures: [n=1] TRUE 1552s [00:52:32.962] signalConditionsASAP(NULL, pos=0) ... done 1552s [00:52:32.962] resolve() on list ... DONE 1552s [00:52:32.963] - Number of value chunks collected: 1 1552s [00:52:32.963] Resolving 1 futures (chunks) ... DONE 1552s [00:52:32.963] Reducing values from 1 chunks ... 1552s [00:52:32.963] - Number of values collected after concatenation: 2 1552s [00:52:32.963] - Number of values expected: 2 1552s [00:52:32.963] Reducing values from 1 chunks ... DONE 1552s [00:52:32.964] future_lapply() ... DONE 1552s List of 1 1552s $ y:List of 2 1552s ..$ a: Named chr "A" 1552s .. ..- attr(*, "names")= chr "A" 1552s ..$ b: Named chr [1:2] "A" "B" 1552s .. ..- attr(*, "names")= chr [1:2] "A" "B" 1552s - future_lapply(x, FUN = vector, ...) ... 1552s [00:52:32.967] future_lapply() ... 1553s [00:52:32.972] Number of chunks: 1 1553s [00:52:32.972] Index remapping (attribute 'ordering'): [n = 4] 4, 2, 3, 1 1553s [00:52:32.972] getGlobalsAndPackagesXApply() ... 1553s [00:52:32.973] - future.globals: TRUE 1553s [00:52:32.973] getGlobalsAndPackages() ... 1553s [00:52:32.973] Searching for globals... 1553s [00:52:32.978] - globals found: [2] ‘FUN’, ‘.Internal’ 1553s [00:52:32.979] Searching for globals ... DONE 1553s [00:52:32.979] Resolving globals: FALSE 1553s [00:52:32.979] The total size of the 1 globals is 2.13 KiB (2184 bytes) 1553s [00:52:32.980] The total size of the 1 globals exported for future expression (‘FUN(length = 2L)’) is 2.13 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (2.13 KiB of class ‘function’) 1553s [00:52:32.981] - globals: [1] ‘FUN’ 1553s [00:52:32.981] 1553s [00:52:32.981] getGlobalsAndPackages() ... DONE 1553s [00:52:32.981] - globals found/used: [n=1] ‘FUN’ 1553s [00:52:32.981] - needed namespaces: [n=0] 1553s [00:52:32.981] Finding globals ... DONE 1553s [00:52:32.982] - use_args: TRUE 1553s [00:52:32.982] - Getting '...' globals ... 1553s [00:52:32.982] resolve() on list ... 1553s [00:52:32.983] recursive: 0 1553s [00:52:32.983] length: 1 1553s [00:52:32.983] elements: ‘...’ 1553s [00:52:32.984] length: 0 (resolved future 1) 1553s [00:52:32.984] resolve() on list ... DONE 1553s [00:52:32.984] - '...' content: [n=1] ‘length’ 1553s [00:52:32.984] List of 1 1553s [00:52:32.984] $ ...:List of 1 1553s [00:52:32.984] ..$ length: int 2 1553s [00:52:32.984] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1553s [00:52:32.984] - attr(*, "where")=List of 1 1553s [00:52:32.984] ..$ ...: 1553s [00:52:32.984] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1553s [00:52:32.984] - attr(*, "resolved")= logi TRUE 1553s [00:52:32.984] - attr(*, "total_size")= num NA 1553s [00:52:32.989] - Getting '...' globals ... DONE 1553s [00:52:32.990] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1553s [00:52:32.990] List of 2 1553s [00:52:32.990] $ ...future.FUN:function (mode = "logical", length = 0L) 1553s [00:52:32.990] $ ... :List of 1 1553s [00:52:32.990] ..$ length: int 2 1553s [00:52:32.990] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1553s [00:52:32.990] - attr(*, "where")=List of 2 1553s [00:52:32.990] ..$ ...future.FUN: 1553s [00:52:32.990] ..$ ... : 1553s [00:52:32.990] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1553s [00:52:32.990] - attr(*, "resolved")= logi FALSE 1553s [00:52:32.990] - attr(*, "total_size")= num 2240 1553s [00:52:32.996] Packages to be attached in all futures: [n=0] 1553s [00:52:32.996] getGlobalsAndPackagesXApply() ... DONE 1553s [00:52:32.996] Number of futures (= number of chunks): 1 1553s [00:52:32.997] Launching 1 futures (chunks) ... 1553s [00:52:32.997] Chunk #1 of 1 ... 1553s [00:52:32.997] - Finding globals in 'X' for chunk #1 ... 1553s [00:52:32.997] getGlobalsAndPackages() ... 1553s [00:52:32.997] Searching for globals... 1553s [00:52:32.998] 1553s [00:52:32.998] Searching for globals ... DONE 1553s [00:52:32.998] - globals: [0] 1553s [00:52:32.998] getGlobalsAndPackages() ... DONE 1553s [00:52:32.998] + additional globals found: [n=0] 1553s [00:52:32.999] + additional namespaces needed: [n=0] 1553s [00:52:32.999] - Finding globals in 'X' for chunk #1 ... DONE 1553s [00:52:32.999] - seeds: 1553s [00:52:33.000] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1553s [00:52:33.000] getGlobalsAndPackages() ... 1553s [00:52:33.000] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1553s [00:52:33.001] Resolving globals: FALSE 1553s [00:52:33.001] Tweak future expression to call with '...' arguments ... 1553s [00:52:33.001] { 1553s [00:52:33.001] do.call(function(...) { 1553s [00:52:33.001] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1553s [00:52:33.001] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1553s [00:52:33.001] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1553s [00:52:33.001] on.exit(options(oopts), add = TRUE) 1553s [00:52:33.001] } 1553s [00:52:33.001] { 1553s [00:52:33.001] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1553s [00:52:33.001] ...future.X_jj <- ...future.elements_ii[[jj]] 1553s [00:52:33.001] ...future.FUN(...future.X_jj, ...) 1553s [00:52:33.001] }) 1553s [00:52:33.001] } 1553s [00:52:33.001] }, args = future.call.arguments) 1553s [00:52:33.001] } 1553s [00:52:33.002] Tweak future expression to call with '...' arguments ... DONE 1553s [00:52:33.002] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1553s [00:52:33.002] 1553s [00:52:33.003] getGlobalsAndPackages() ... DONE 1553s [00:52:33.003] run() for ‘Future’ ... 1553s [00:52:33.003] - state: ‘created’ 1553s [00:52:33.004] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1553s [00:52:33.008] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1553s [00:52:33.009] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1553s [00:52:33.009] - Field: ‘label’ 1553s [00:52:33.009] - Field: ‘local’ 1553s [00:52:33.009] - Field: ‘owner’ 1553s [00:52:33.009] - Field: ‘envir’ 1553s [00:52:33.010] - Field: ‘packages’ 1553s [00:52:33.010] - Field: ‘gc’ 1553s [00:52:33.010] - Field: ‘conditions’ 1553s [00:52:33.010] - Field: ‘expr’ 1553s [00:52:33.010] - Field: ‘uuid’ 1553s [00:52:33.011] - Field: ‘seed’ 1553s [00:52:33.011] - Field: ‘version’ 1553s [00:52:33.011] - Field: ‘result’ 1553s [00:52:33.011] - Field: ‘asynchronous’ 1553s [00:52:33.011] - Field: ‘calls’ 1553s [00:52:33.012] - Field: ‘globals’ 1553s [00:52:33.012] - Field: ‘stdout’ 1553s [00:52:33.012] - Field: ‘earlySignal’ 1553s [00:52:33.012] - Field: ‘lazy’ 1553s [00:52:33.012] - Field: ‘state’ 1553s [00:52:33.012] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1553s [00:52:33.013] - Launch lazy future ... 1553s [00:52:33.013] Packages needed by the future expression (n = 0): 1553s [00:52:33.013] Packages needed by future strategies (n = 0): 1553s [00:52:33.014] { 1553s [00:52:33.014] { 1553s [00:52:33.014] { 1553s [00:52:33.014] ...future.startTime <- base::Sys.time() 1553s [00:52:33.014] { 1553s [00:52:33.014] { 1553s [00:52:33.014] { 1553s [00:52:33.014] base::local({ 1553s [00:52:33.014] has_future <- base::requireNamespace("future", 1553s [00:52:33.014] quietly = TRUE) 1553s [00:52:33.014] if (has_future) { 1553s [00:52:33.014] ns <- base::getNamespace("future") 1553s [00:52:33.014] version <- ns[[".package"]][["version"]] 1553s [00:52:33.014] if (is.null(version)) 1553s [00:52:33.014] version <- utils::packageVersion("future") 1553s [00:52:33.014] } 1553s [00:52:33.014] else { 1553s [00:52:33.014] version <- NULL 1553s [00:52:33.014] } 1553s [00:52:33.014] if (!has_future || version < "1.8.0") { 1553s [00:52:33.014] info <- base::c(r_version = base::gsub("R version ", 1553s [00:52:33.014] "", base::R.version$version.string), 1553s [00:52:33.014] platform = base::sprintf("%s (%s-bit)", 1553s [00:52:33.014] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1553s [00:52:33.014] os = base::paste(base::Sys.info()[base::c("sysname", 1553s [00:52:33.014] "release", "version")], collapse = " "), 1553s [00:52:33.014] hostname = base::Sys.info()[["nodename"]]) 1553s [00:52:33.014] info <- base::sprintf("%s: %s", base::names(info), 1553s [00:52:33.014] info) 1553s [00:52:33.014] info <- base::paste(info, collapse = "; ") 1553s [00:52:33.014] if (!has_future) { 1553s [00:52:33.014] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1553s [00:52:33.014] info) 1553s [00:52:33.014] } 1553s [00:52:33.014] else { 1553s [00:52:33.014] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1553s [00:52:33.014] info, version) 1553s [00:52:33.014] } 1553s [00:52:33.014] base::stop(msg) 1553s [00:52:33.014] } 1553s [00:52:33.014] }) 1553s [00:52:33.014] } 1553s [00:52:33.014] options(future.plan = NULL) 1553s [00:52:33.014] Sys.unsetenv("R_FUTURE_PLAN") 1553s [00:52:33.014] future::plan("default", .cleanup = FALSE, .init = FALSE) 1553s [00:52:33.014] } 1553s [00:52:33.014] ...future.workdir <- getwd() 1553s [00:52:33.014] } 1553s [00:52:33.014] ...future.oldOptions <- base::as.list(base::.Options) 1553s [00:52:33.014] ...future.oldEnvVars <- base::Sys.getenv() 1553s [00:52:33.014] } 1553s [00:52:33.014] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1553s [00:52:33.014] future.globals.maxSize = NULL, future.globals.method = NULL, 1553s [00:52:33.014] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1553s [00:52:33.014] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1553s [00:52:33.014] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1553s [00:52:33.014] future.stdout.windows.reencode = NULL, width = 80L) 1553s [00:52:33.014] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1553s [00:52:33.014] base::names(...future.oldOptions)) 1553s [00:52:33.014] } 1553s [00:52:33.014] if (FALSE) { 1553s [00:52:33.014] } 1553s [00:52:33.014] else { 1553s [00:52:33.014] if (TRUE) { 1553s [00:52:33.014] ...future.stdout <- base::rawConnection(base::raw(0L), 1553s [00:52:33.014] open = "w") 1553s [00:52:33.014] } 1553s [00:52:33.014] else { 1553s [00:52:33.014] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1553s [00:52:33.014] windows = "NUL", "/dev/null"), open = "w") 1553s [00:52:33.014] } 1553s [00:52:33.014] base::sink(...future.stdout, type = "output", split = FALSE) 1553s [00:52:33.014] base::on.exit(if (!base::is.null(...future.stdout)) { 1553s [00:52:33.014] base::sink(type = "output", split = FALSE) 1553s [00:52:33.014] base::close(...future.stdout) 1553s [00:52:33.014] }, add = TRUE) 1553s [00:52:33.014] } 1553s [00:52:33.014] ...future.frame <- base::sys.nframe() 1553s [00:52:33.014] ...future.conditions <- base::list() 1553s [00:52:33.014] ...future.rng <- base::globalenv()$.Random.seed 1553s [00:52:33.014] if (FALSE) { 1553s [00:52:33.014] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1553s [00:52:33.014] "...future.value", "...future.globalenv.names", ".Random.seed") 1553s [00:52:33.014] } 1553s [00:52:33.014] ...future.result <- base::tryCatch({ 1553s [00:52:33.014] base::withCallingHandlers({ 1553s [00:52:33.014] ...future.value <- base::withVisible(base::local({ 1553s [00:52:33.014] do.call(function(...) { 1553s [00:52:33.014] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1553s [00:52:33.014] if (!identical(...future.globals.maxSize.org, 1553s [00:52:33.014] ...future.globals.maxSize)) { 1553s [00:52:33.014] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1553s [00:52:33.014] on.exit(options(oopts), add = TRUE) 1553s [00:52:33.014] } 1553s [00:52:33.014] { 1553s [00:52:33.014] lapply(seq_along(...future.elements_ii), 1553s [00:52:33.014] FUN = function(jj) { 1553s [00:52:33.014] ...future.X_jj <- ...future.elements_ii[[jj]] 1553s [00:52:33.014] ...future.FUN(...future.X_jj, ...) 1553s [00:52:33.014] }) 1553s [00:52:33.014] } 1553s [00:52:33.014] }, args = future.call.arguments) 1553s [00:52:33.014] })) 1553s [00:52:33.014] future::FutureResult(value = ...future.value$value, 1553s [00:52:33.014] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1553s [00:52:33.014] ...future.rng), globalenv = if (FALSE) 1553s [00:52:33.014] list(added = base::setdiff(base::names(base::.GlobalEnv), 1553s [00:52:33.014] ...future.globalenv.names)) 1553s [00:52:33.014] else NULL, started = ...future.startTime, version = "1.8") 1553s [00:52:33.014] }, condition = base::local({ 1553s [00:52:33.014] c <- base::c 1553s [00:52:33.014] inherits <- base::inherits 1553s [00:52:33.014] invokeRestart <- base::invokeRestart 1553s [00:52:33.014] length <- base::length 1553s [00:52:33.014] list <- base::list 1553s [00:52:33.014] seq.int <- base::seq.int 1553s [00:52:33.014] signalCondition <- base::signalCondition 1553s [00:52:33.014] sys.calls <- base::sys.calls 1553s [00:52:33.014] `[[` <- base::`[[` 1553s [00:52:33.014] `+` <- base::`+` 1553s [00:52:33.014] `<<-` <- base::`<<-` 1553s [00:52:33.014] sysCalls <- function(calls = sys.calls(), from = 1L) { 1553s [00:52:33.014] calls[seq.int(from = from + 12L, to = length(calls) - 1553s [00:52:33.014] 3L)] 1553s [00:52:33.014] } 1553s [00:52:33.014] function(cond) { 1553s [00:52:33.014] is_error <- inherits(cond, "error") 1553s [00:52:33.014] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1553s [00:52:33.014] NULL) 1553s [00:52:33.014] if (is_error) { 1553s [00:52:33.014] sessionInformation <- function() { 1553s [00:52:33.014] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1553s [00:52:33.014] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1553s [00:52:33.014] search = base::search(), system = base::Sys.info()) 1553s [00:52:33.014] } 1553s [00:52:33.014] ...future.conditions[[length(...future.conditions) + 1553s [00:52:33.014] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1553s [00:52:33.014] cond$call), session = sessionInformation(), 1553s [00:52:33.014] timestamp = base::Sys.time(), signaled = 0L) 1553s [00:52:33.014] signalCondition(cond) 1553s [00:52:33.014] } 1553s [00:52:33.014] else if (!ignore && TRUE && inherits(cond, c("condition", 1553s [00:52:33.014] "immediateCondition"))) { 1553s [00:52:33.014] signal <- TRUE && inherits(cond, "immediateCondition") 1553s [00:52:33.014] ...future.conditions[[length(...future.conditions) + 1553s [00:52:33.014] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1553s [00:52:33.014] if (TRUE && !signal) { 1553s [00:52:33.014] muffleCondition <- function (cond, pattern = "^muffle") 1553s [00:52:33.014] { 1553s [00:52:33.014] inherits <- base::inherits 1553s [00:52:33.014] invokeRestart <- base::invokeRestart 1553s [00:52:33.014] is.null <- base::is.null 1553s [00:52:33.014] muffled <- FALSE 1553s [00:52:33.014] if (inherits(cond, "message")) { 1553s [00:52:33.014] muffled <- grepl(pattern, "muffleMessage") 1553s [00:52:33.014] if (muffled) 1553s [00:52:33.014] invokeRestart("muffleMessage") 1553s [00:52:33.014] } 1553s [00:52:33.014] else if (inherits(cond, "warning")) { 1553s [00:52:33.014] muffled <- grepl(pattern, "muffleWarning") 1553s [00:52:33.014] if (muffled) 1553s [00:52:33.014] invokeRestart("muffleWarning") 1553s [00:52:33.014] } 1553s [00:52:33.014] else if (inherits(cond, "condition")) { 1553s [00:52:33.014] if (!is.null(pattern)) { 1553s [00:52:33.014] computeRestarts <- base::computeRestarts 1553s [00:52:33.014] grepl <- base::grepl 1553s [00:52:33.014] restarts <- computeRestarts(cond) 1553s [00:52:33.014] for (restart in restarts) { 1553s [00:52:33.014] name <- restart$name 1553s [00:52:33.014] if (is.null(name)) 1553s [00:52:33.014] next 1553s [00:52:33.014] if (!grepl(pattern, name)) 1553s [00:52:33.014] next 1553s [00:52:33.014] invokeRestart(restart) 1553s [00:52:33.014] muffled <- TRUE 1553s [00:52:33.014] break 1553s [00:52:33.014] } 1553s [00:52:33.014] } 1553s [00:52:33.014] } 1553s [00:52:33.014] invisible(muffled) 1553s [00:52:33.014] } 1553s [00:52:33.014] muffleCondition(cond, pattern = "^muffle") 1553s [00:52:33.014] } 1553s [00:52:33.014] } 1553s [00:52:33.014] else { 1553s [00:52:33.014] if (TRUE) { 1553s [00:52:33.014] muffleCondition <- function (cond, pattern = "^muffle") 1553s [00:52:33.014] { 1553s [00:52:33.014] inherits <- base::inherits 1553s [00:52:33.014] invokeRestart <- base::invokeRestart 1553s [00:52:33.014] is.null <- base::is.null 1553s [00:52:33.014] muffled <- FALSE 1553s [00:52:33.014] if (inherits(cond, "message")) { 1553s [00:52:33.014] muffled <- grepl(pattern, "muffleMessage") 1553s [00:52:33.014] if (muffled) 1553s [00:52:33.014] invokeRestart("muffleMessage") 1553s [00:52:33.014] } 1553s [00:52:33.014] else if (inherits(cond, "warning")) { 1553s [00:52:33.014] muffled <- grepl(pattern, "muffleWarning") 1553s [00:52:33.014] if (muffled) 1553s [00:52:33.014] invokeRestart("muffleWarning") 1553s [00:52:33.014] } 1553s [00:52:33.014] else if (inherits(cond, "condition")) { 1553s [00:52:33.014] if (!is.null(pattern)) { 1553s [00:52:33.014] computeRestarts <- base::computeRestarts 1553s [00:52:33.014] grepl <- base::grepl 1553s [00:52:33.014] restarts <- computeRestarts(cond) 1553s [00:52:33.014] for (restart in restarts) { 1553s [00:52:33.014] name <- restart$name 1553s [00:52:33.014] if (is.null(name)) 1553s [00:52:33.014] next 1553s [00:52:33.014] if (!grepl(pattern, name)) 1553s [00:52:33.014] next 1553s [00:52:33.014] invokeRestart(restart) 1553s [00:52:33.014] muffled <- TRUE 1553s [00:52:33.014] break 1553s [00:52:33.014] } 1553s [00:52:33.014] } 1553s [00:52:33.014] } 1553s [00:52:33.014] invisible(muffled) 1553s [00:52:33.014] } 1553s [00:52:33.014] muffleCondition(cond, pattern = "^muffle") 1553s [00:52:33.014] } 1553s [00:52:33.014] } 1553s [00:52:33.014] } 1553s [00:52:33.014] })) 1553s [00:52:33.014] }, error = function(ex) { 1553s [00:52:33.014] base::structure(base::list(value = NULL, visible = NULL, 1553s [00:52:33.014] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1553s [00:52:33.014] ...future.rng), started = ...future.startTime, 1553s [00:52:33.014] finished = Sys.time(), session_uuid = NA_character_, 1553s [00:52:33.014] version = "1.8"), class = "FutureResult") 1553s [00:52:33.014] }, finally = { 1553s [00:52:33.014] if (!identical(...future.workdir, getwd())) 1553s [00:52:33.014] setwd(...future.workdir) 1553s [00:52:33.014] { 1553s [00:52:33.014] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1553s [00:52:33.014] ...future.oldOptions$nwarnings <- NULL 1553s [00:52:33.014] } 1553s [00:52:33.014] base::options(...future.oldOptions) 1553s [00:52:33.014] if (.Platform$OS.type == "windows") { 1553s [00:52:33.014] old_names <- names(...future.oldEnvVars) 1553s [00:52:33.014] envs <- base::Sys.getenv() 1553s [00:52:33.014] names <- names(envs) 1553s [00:52:33.014] common <- intersect(names, old_names) 1553s [00:52:33.014] added <- setdiff(names, old_names) 1553s [00:52:33.014] removed <- setdiff(old_names, names) 1553s [00:52:33.014] changed <- common[...future.oldEnvVars[common] != 1553s [00:52:33.014] envs[common]] 1553s [00:52:33.014] NAMES <- toupper(changed) 1553s [00:52:33.014] args <- list() 1553s [00:52:33.014] for (kk in seq_along(NAMES)) { 1553s [00:52:33.014] name <- changed[[kk]] 1553s [00:52:33.014] NAME <- NAMES[[kk]] 1553s [00:52:33.014] if (name != NAME && is.element(NAME, old_names)) 1553s [00:52:33.014] next 1553s [00:52:33.014] args[[name]] <- ...future.oldEnvVars[[name]] 1553s [00:52:33.014] } 1553s [00:52:33.014] NAMES <- toupper(added) 1553s [00:52:33.014] for (kk in seq_along(NAMES)) { 1553s [00:52:33.014] name <- added[[kk]] 1553s [00:52:33.014] NAME <- NAMES[[kk]] 1553s [00:52:33.014] if (name != NAME && is.element(NAME, old_names)) 1553s [00:52:33.014] next 1553s [00:52:33.014] args[[name]] <- "" 1553s [00:52:33.014] } 1553s [00:52:33.014] NAMES <- toupper(removed) 1553s [00:52:33.014] for (kk in seq_along(NAMES)) { 1553s [00:52:33.014] name <- removed[[kk]] 1553s [00:52:33.014] NAME <- NAMES[[kk]] 1553s [00:52:33.014] if (name != NAME && is.element(NAME, old_names)) 1553s [00:52:33.014] next 1553s [00:52:33.014] args[[name]] <- ...future.oldEnvVars[[name]] 1553s [00:52:33.014] } 1553s [00:52:33.014] if (length(args) > 0) 1553s [00:52:33.014] base::do.call(base::Sys.setenv, args = args) 1553s [00:52:33.014] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1553s [00:52:33.014] } 1553s [00:52:33.014] else { 1553s [00:52:33.014] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1553s [00:52:33.014] } 1553s [00:52:33.014] { 1553s [00:52:33.014] if (base::length(...future.futureOptionsAdded) > 1553s [00:52:33.014] 0L) { 1553s [00:52:33.014] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1553s [00:52:33.014] base::names(opts) <- ...future.futureOptionsAdded 1553s [00:52:33.014] base::options(opts) 1553s [00:52:33.014] } 1553s [00:52:33.014] { 1553s [00:52:33.014] { 1553s [00:52:33.014] NULL 1553s [00:52:33.014] RNGkind("Mersenne-Twister") 1553s [00:52:33.014] base::rm(list = ".Random.seed", envir = base::globalenv(), 1553s [00:52:33.014] inherits = FALSE) 1553s [00:52:33.014] } 1553s [00:52:33.014] options(future.plan = NULL) 1553s [00:52:33.014] if (is.na(NA_character_)) 1553s [00:52:33.014] Sys.unsetenv("R_FUTURE_PLAN") 1553s [00:52:33.014] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1553s [00:52:33.014] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1553s [00:52:33.014] envir = parent.frame()) 1553s [00:52:33.014] { 1553s [00:52:33.014] default_workers <- missing(workers) 1553s [00:52:33.014] if (is.function(workers)) 1553s [00:52:33.014] workers <- workers() 1553s [00:52:33.014] workers <- structure(as.integer(workers), 1553s [00:52:33.014] class = class(workers)) 1553s [00:52:33.014] stop_if_not(is.finite(workers), workers >= 1553s [00:52:33.014] 1L) 1553s [00:52:33.014] if ((workers == 1L && !inherits(workers, 1553s [00:52:33.014] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1553s [00:52:33.014] if (default_workers) 1553s [00:52:33.014] supportsMulticore(warn = TRUE) 1553s [00:52:33.014] return(sequential(..., envir = envir)) 1553s [00:52:33.014] } 1553s [00:52:33.014] oopts <- options(mc.cores = workers) 1553s [00:52:33.014] on.exit(options(oopts)) 1553s [00:52:33.014] future <- MulticoreFuture(..., workers = workers, 1553s [00:52:33.014] envir = envir) 1553s [00:52:33.014] if (!future$lazy) 1553s [00:52:33.014] future <- run(future) 1553s [00:52:33.014] invisible(future) 1553s [00:52:33.014] }), .cleanup = FALSE, .init = FALSE) 1553s [00:52:33.014] } 1553s [00:52:33.014] } 1553s [00:52:33.014] } 1553s [00:52:33.014] }) 1553s [00:52:33.014] if (TRUE) { 1553s [00:52:33.014] base::sink(type = "output", split = FALSE) 1553s [00:52:33.014] if (TRUE) { 1553s [00:52:33.014] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1553s [00:52:33.014] } 1553s [00:52:33.014] else { 1553s [00:52:33.014] ...future.result["stdout"] <- base::list(NULL) 1553s [00:52:33.014] } 1553s [00:52:33.014] base::close(...future.stdout) 1553s [00:52:33.014] ...future.stdout <- NULL 1553s [00:52:33.014] } 1553s [00:52:33.014] ...future.result$conditions <- ...future.conditions 1553s [00:52:33.014] ...future.result$finished <- base::Sys.time() 1553s [00:52:33.014] ...future.result 1553s [00:52:33.014] } 1553s [00:52:33.025] assign_globals() ... 1553s [00:52:33.026] List of 5 1553s [00:52:33.026] $ ...future.FUN :function (mode = "logical", length = 0L) 1553s [00:52:33.026] $ future.call.arguments :List of 1 1553s [00:52:33.026] ..$ length: int 2 1553s [00:52:33.026] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1553s [00:52:33.026] $ ...future.elements_ii :List of 4 1553s [00:52:33.026] ..$ c: chr "list" 1553s [00:52:33.026] ..$ b: chr "numeric" 1553s [00:52:33.026] ..$ c: chr "character" 1553s [00:52:33.026] ..$ a: chr "integer" 1553s [00:52:33.026] $ ...future.seeds_ii : NULL 1553s [00:52:33.026] $ ...future.globals.maxSize: NULL 1553s [00:52:33.026] - attr(*, "where")=List of 5 1553s [00:52:33.026] ..$ ...future.FUN : 1553s [00:52:33.026] ..$ future.call.arguments : 1553s [00:52:33.026] ..$ ...future.elements_ii : 1553s [00:52:33.026] ..$ ...future.seeds_ii : 1553s [00:52:33.026] ..$ ...future.globals.maxSize: 1553s [00:52:33.026] - attr(*, "resolved")= logi FALSE 1553s [00:52:33.026] - attr(*, "total_size")= num 2240 1553s [00:52:33.026] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1553s [00:52:33.026] - attr(*, "already-done")= logi TRUE 1553s [00:52:33.035] - copied ‘...future.FUN’ to environment 1553s [00:52:33.035] - copied ‘future.call.arguments’ to environment 1553s [00:52:33.036] - copied ‘...future.elements_ii’ to environment 1553s [00:52:33.036] - copied ‘...future.seeds_ii’ to environment 1553s [00:52:33.036] - copied ‘...future.globals.maxSize’ to environment 1553s [00:52:33.036] assign_globals() ... done 1553s [00:52:33.037] plan(): Setting new future strategy stack: 1553s [00:52:33.037] List of future strategies: 1553s [00:52:33.037] 1. sequential: 1553s [00:52:33.037] - args: function (..., envir = parent.frame()) 1553s [00:52:33.037] - tweaked: FALSE 1553s [00:52:33.037] - call: NULL 1553s [00:52:33.037] plan(): nbrOfWorkers() = 1 1553s [00:52:33.038] plan(): Setting new future strategy stack: 1553s [00:52:33.038] List of future strategies: 1553s [00:52:33.038] 1. multicore: 1553s [00:52:33.038] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1553s [00:52:33.038] - tweaked: FALSE 1553s [00:52:33.038] - call: plan(strategy) 1553s [00:52:33.042] plan(): nbrOfWorkers() = 1 1553s [00:52:33.043] SequentialFuture started (and completed) 1553s [00:52:33.043] - Launch lazy future ... done 1553s [00:52:33.043] run() for ‘SequentialFuture’ ... done 1553s [00:52:33.043] Created future: 1553s [00:52:33.044] SequentialFuture: 1553s [00:52:33.044] Label: ‘future_lapply-1’ 1553s [00:52:33.044] Expression: 1553s [00:52:33.044] { 1553s [00:52:33.044] do.call(function(...) { 1553s [00:52:33.044] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1553s [00:52:33.044] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1553s [00:52:33.044] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1553s [00:52:33.044] on.exit(options(oopts), add = TRUE) 1553s [00:52:33.044] } 1553s [00:52:33.044] { 1553s [00:52:33.044] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1553s [00:52:33.044] ...future.X_jj <- ...future.elements_ii[[jj]] 1553s [00:52:33.044] ...future.FUN(...future.X_jj, ...) 1553s [00:52:33.044] }) 1553s [00:52:33.044] } 1553s [00:52:33.044] }, args = future.call.arguments) 1553s [00:52:33.044] } 1553s [00:52:33.044] Lazy evaluation: FALSE 1553s [00:52:33.044] Asynchronous evaluation: FALSE 1553s [00:52:33.044] Local evaluation: TRUE 1553s [00:52:33.044] Environment: R_GlobalEnv 1553s [00:52:33.044] Capture standard output: TRUE 1553s [00:52:33.044] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1553s [00:52:33.044] Globals: 5 objects totaling 2.63 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 456 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1553s [00:52:33.044] Packages: 1553s [00:52:33.044] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1553s [00:52:33.044] Resolved: TRUE 1553s [00:52:33.044] Value: 240 bytes of class ‘list’ 1553s [00:52:33.044] Early signaling: FALSE 1553s [00:52:33.044] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1553s [00:52:33.044] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1553s [00:52:33.045] Chunk #1 of 1 ... DONE 1553s [00:52:33.045] Launching 1 futures (chunks) ... DONE 1553s [00:52:33.045] Resolving 1 futures (chunks) ... 1553s [00:52:33.045] resolve() on list ... 1553s [00:52:33.046] recursive: 0 1553s [00:52:33.046] length: 1 1553s [00:52:33.046] 1553s [00:52:33.046] resolved() for ‘SequentialFuture’ ... 1553s [00:52:33.046] - state: ‘finished’ 1553s [00:52:33.046] - run: TRUE 1553s [00:52:33.046] - result: ‘FutureResult’ 1553s [00:52:33.047] resolved() for ‘SequentialFuture’ ... done 1553s [00:52:33.047] Future #1 1553s [00:52:33.047] signalConditionsASAP(SequentialFuture, pos=1) ... 1553s [00:52:33.047] - nx: 1 1553s [00:52:33.047] - relay: TRUE 1553s [00:52:33.047] - stdout: TRUE 1553s [00:52:33.047] - signal: TRUE 1553s [00:52:33.047] - resignal: FALSE 1553s [00:52:33.048] - force: TRUE 1553s [00:52:33.048] - relayed: [n=1] FALSE 1553s [00:52:33.048] - queued futures: [n=1] FALSE 1553s [00:52:33.048] - until=1 1553s [00:52:33.048] - relaying element #1 1553s [00:52:33.049] - relayed: [n=1] TRUE 1553s [00:52:33.049] - queued futures: [n=1] TRUE 1553s [00:52:33.049] signalConditionsASAP(SequentialFuture, pos=1) ... done 1553s [00:52:33.049] length: 0 (resolved future 1) 1553s [00:52:33.049] Relaying remaining futures 1553s [00:52:33.049] signalConditionsASAP(NULL, pos=0) ... 1553s [00:52:33.049] - nx: 1 1553s [00:52:33.049] - relay: TRUE 1553s [00:52:33.050] - stdout: TRUE 1553s [00:52:33.050] - signal: TRUE 1553s [00:52:33.050] - resignal: FALSE 1553s [00:52:33.050] - force: TRUE 1553s [00:52:33.050] - relayed: [n=1] TRUE 1553s [00:52:33.051] - queued futures: [n=1] TRUE 1553s - flush all 1553s [00:52:33.051] - relayed: [n=1] TRUE 1553s [00:52:33.051] - queued futures: [n=1] TRUE 1553s [00:52:33.051] signalConditionsASAP(NULL, pos=0) ... done 1553s [00:52:33.051] resolve() on list ... DONE 1553s [00:52:33.052] - Number of value chunks collected: 1 1553s [00:52:33.052] Resolving 1 futures (chunks) ... DONE 1553s [00:52:33.052] Reducing values from 1 chunks ... 1553s [00:52:33.052] - Number of values collected after concatenation: 4 1553s [00:52:33.052] - Number of values expected: 4 1553s [00:52:33.053] Reverse index remapping (attribute 'ordering'): [n = 4] 4, 2, 3, 1 1553s [00:52:33.053] Reducing values from 1 chunks ... DONE 1553s [00:52:33.053] future_lapply() ... DONE 1553s List of 1 1553s $ y:List of 4 1553s ..$ a: int [1:2] 0 0 1553s ..$ b: num [1:2] 0 0 1553s ..$ c: chr [1:2] "" "" 1553s ..$ c:List of 2 1553s .. ..$ : NULL 1553s .. ..$ : NULL 1553s [00:52:33.061] future_lapply() ... 1553s [00:52:33.067] Number of chunks: 1 1553s [00:52:33.067] Index remapping (attribute 'ordering'): [n = 4] 4, 1, 2, 3 1553s [00:52:33.067] getGlobalsAndPackagesXApply() ... 1553s [00:52:33.067] - future.globals: TRUE 1553s [00:52:33.068] getGlobalsAndPackages() ... 1553s [00:52:33.068] Searching for globals... 1553s [00:52:33.072] - globals found: [2] ‘FUN’, ‘.Internal’ 1553s [00:52:33.073] Searching for globals ... DONE 1553s [00:52:33.073] Resolving globals: FALSE 1553s [00:52:33.074] The total size of the 1 globals is 2.13 KiB (2184 bytes) 1553s [00:52:33.075] The total size of the 1 globals exported for future expression (‘FUN(length = 2L)’) is 2.13 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (2.13 KiB of class ‘function’) 1553s [00:52:33.075] - globals: [1] ‘FUN’ 1553s [00:52:33.076] 1553s [00:52:33.076] getGlobalsAndPackages() ... DONE 1553s [00:52:33.076] - globals found/used: [n=1] ‘FUN’ 1553s [00:52:33.076] - needed namespaces: [n=0] 1553s [00:52:33.076] Finding globals ... DONE 1553s [00:52:33.077] - use_args: TRUE 1553s [00:52:33.077] - Getting '...' globals ... 1553s [00:52:33.077] resolve() on list ... 1553s [00:52:33.078] recursive: 0 1553s [00:52:33.078] length: 1 1553s [00:52:33.078] elements: ‘...’ 1553s [00:52:33.078] length: 0 (resolved future 1) 1553s [00:52:33.079] resolve() on list ... DONE 1553s [00:52:33.079] - '...' content: [n=1] ‘length’ 1553s [00:52:33.079] List of 1 1553s [00:52:33.079] $ ...:List of 1 1553s [00:52:33.079] ..$ length: int 2 1553s [00:52:33.079] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1553s [00:52:33.079] - attr(*, "where")=List of 1 1553s [00:52:33.079] ..$ ...: 1553s [00:52:33.079] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1553s [00:52:33.079] - attr(*, "resolved")= logi TRUE 1553s [00:52:33.079] - attr(*, "total_size")= num NA 1553s [00:52:33.086] - Getting '...' globals ... DONE 1553s [00:52:33.086] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1553s [00:52:33.087] List of 2 1553s [00:52:33.087] $ ...future.FUN:function (mode = "logical", length = 0L) 1553s [00:52:33.087] $ ... :List of 1 1553s [00:52:33.087] ..$ length: int 2 1553s [00:52:33.087] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1553s [00:52:33.087] - attr(*, "where")=List of 2 1553s [00:52:33.087] ..$ ...future.FUN: 1553s [00:52:33.087] ..$ ... : 1553s [00:52:33.087] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1553s [00:52:33.087] - attr(*, "resolved")= logi FALSE 1553s [00:52:33.087] - attr(*, "total_size")= num 2240 1553s [00:52:33.096] Packages to be attached in all futures: [n=0] 1553s [00:52:33.097] getGlobalsAndPackagesXApply() ... DONE 1553s [00:52:33.097] Number of futures (= number of chunks): 1 1553s [00:52:33.097] Launching 1 futures (chunks) ... 1553s [00:52:33.098] Chunk #1 of 1 ... 1553s [00:52:33.098] - Finding globals in 'X' for chunk #1 ... 1553s [00:52:33.098] getGlobalsAndPackages() ... 1553s [00:52:33.099] Searching for globals... 1553s [00:52:33.100] 1553s [00:52:33.100] Searching for globals ... DONE 1553s [00:52:33.101] - globals: [0] 1553s [00:52:33.101] getGlobalsAndPackages() ... DONE 1553s [00:52:33.101] + additional globals found: [n=0] 1553s [00:52:33.102] + additional namespaces needed: [n=0] 1553s [00:52:33.102] - Finding globals in 'X' for chunk #1 ... DONE 1553s [00:52:33.102] - seeds: 1553s [00:52:33.103] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1553s [00:52:33.104] getGlobalsAndPackages() ... 1553s [00:52:33.104] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1553s [00:52:33.105] Resolving globals: FALSE 1553s [00:52:33.105] Tweak future expression to call with '...' arguments ... 1553s [00:52:33.105] { 1553s [00:52:33.105] do.call(function(...) { 1553s [00:52:33.105] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1553s [00:52:33.105] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1553s [00:52:33.105] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1553s [00:52:33.105] on.exit(options(oopts), add = TRUE) 1553s [00:52:33.105] } 1553s [00:52:33.105] { 1553s [00:52:33.105] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1553s [00:52:33.105] ...future.X_jj <- ...future.elements_ii[[jj]] 1553s [00:52:33.105] ...future.FUN(...future.X_jj, ...) 1553s [00:52:33.105] }) 1553s [00:52:33.105] } 1553s [00:52:33.105] }, args = future.call.arguments) 1553s [00:52:33.105] } 1553s [00:52:33.105] Tweak future expression to call with '...' arguments ... DONE 1553s [00:52:33.106] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1553s [00:52:33.106] 1553s [00:52:33.106] getGlobalsAndPackages() ... DONE 1553s [00:52:33.107] run() for ‘Future’ ... 1553s [00:52:33.107] - state: ‘created’ 1553s [00:52:33.107] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1553s [00:52:33.113] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1553s [00:52:33.114] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1553s [00:52:33.114] - Field: ‘label’ 1553s [00:52:33.114] - Field: ‘local’ 1553s [00:52:33.119] - Field: ‘owner’ 1553s [00:52:33.119] - Field: ‘envir’ 1553s [00:52:33.119] - Field: ‘packages’ 1553s [00:52:33.119] - Field: ‘gc’ 1553s [00:52:33.119] - Field: ‘conditions’ 1553s [00:52:33.120] - Field: ‘expr’ 1553s [00:52:33.120] - Field: ‘uuid’ 1553s [00:52:33.120] - Field: ‘seed’ 1553s [00:52:33.121] - Field: ‘version’ 1553s [00:52:33.121] - Field: ‘result’ 1553s [00:52:33.121] - Field: ‘asynchronous’ 1553s [00:52:33.121] - Field: ‘calls’ 1553s [00:52:33.122] - Field: ‘globals’ 1553s [00:52:33.122] - Field: ‘stdout’ 1553s [00:52:33.123] - Field: ‘earlySignal’ 1553s [00:52:33.123] - Field: ‘lazy’ 1553s [00:52:33.123] - Field: ‘state’ 1553s [00:52:33.123] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1553s [00:52:33.124] - Launch lazy future ... 1553s [00:52:33.124] Packages needed by the future expression (n = 0): 1553s [00:52:33.125] Packages needed by future strategies (n = 0): 1553s [00:52:33.126] { 1553s [00:52:33.126] { 1553s [00:52:33.126] { 1553s [00:52:33.126] ...future.startTime <- base::Sys.time() 1553s [00:52:33.126] { 1553s [00:52:33.126] { 1553s [00:52:33.126] { 1553s [00:52:33.126] base::local({ 1553s [00:52:33.126] has_future <- base::requireNamespace("future", 1553s [00:52:33.126] quietly = TRUE) 1553s [00:52:33.126] if (has_future) { 1553s [00:52:33.126] ns <- base::getNamespace("future") 1553s [00:52:33.126] version <- ns[[".package"]][["version"]] 1553s [00:52:33.126] if (is.null(version)) 1553s [00:52:33.126] version <- utils::packageVersion("future") 1553s [00:52:33.126] } 1553s [00:52:33.126] else { 1553s [00:52:33.126] version <- NULL 1553s [00:52:33.126] } 1553s [00:52:33.126] if (!has_future || version < "1.8.0") { 1553s [00:52:33.126] info <- base::c(r_version = base::gsub("R version ", 1553s [00:52:33.126] "", base::R.version$version.string), 1553s [00:52:33.126] platform = base::sprintf("%s (%s-bit)", 1553s [00:52:33.126] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1553s [00:52:33.126] os = base::paste(base::Sys.info()[base::c("sysname", 1553s [00:52:33.126] "release", "version")], collapse = " "), 1553s [00:52:33.126] hostname = base::Sys.info()[["nodename"]]) 1553s [00:52:33.126] info <- base::sprintf("%s: %s", base::names(info), 1553s [00:52:33.126] info) 1553s [00:52:33.126] info <- base::paste(info, collapse = "; ") 1553s [00:52:33.126] if (!has_future) { 1553s [00:52:33.126] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1553s [00:52:33.126] info) 1553s [00:52:33.126] } 1553s [00:52:33.126] else { 1553s [00:52:33.126] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1553s [00:52:33.126] info, version) 1553s [00:52:33.126] } 1553s [00:52:33.126] base::stop(msg) 1553s [00:52:33.126] } 1553s [00:52:33.126] }) 1553s [00:52:33.126] } 1553s [00:52:33.126] options(future.plan = NULL) 1553s [00:52:33.126] Sys.unsetenv("R_FUTURE_PLAN") 1553s [00:52:33.126] future::plan("default", .cleanup = FALSE, .init = FALSE) 1553s [00:52:33.126] } 1553s [00:52:33.126] ...future.workdir <- getwd() 1553s [00:52:33.126] } 1553s [00:52:33.126] ...future.oldOptions <- base::as.list(base::.Options) 1553s [00:52:33.126] ...future.oldEnvVars <- base::Sys.getenv() 1553s [00:52:33.126] } 1553s [00:52:33.126] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1553s [00:52:33.126] future.globals.maxSize = NULL, future.globals.method = NULL, 1553s [00:52:33.126] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1553s [00:52:33.126] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1553s [00:52:33.126] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1553s [00:52:33.126] future.stdout.windows.reencode = NULL, width = 80L) 1553s [00:52:33.126] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1553s [00:52:33.126] base::names(...future.oldOptions)) 1553s [00:52:33.126] } 1553s [00:52:33.126] if (FALSE) { 1553s [00:52:33.126] } 1553s [00:52:33.126] else { 1553s [00:52:33.126] if (TRUE) { 1553s [00:52:33.126] ...future.stdout <- base::rawConnection(base::raw(0L), 1553s [00:52:33.126] open = "w") 1553s [00:52:33.126] } 1553s [00:52:33.126] else { 1553s [00:52:33.126] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1553s [00:52:33.126] windows = "NUL", "/dev/null"), open = "w") 1553s [00:52:33.126] } 1553s [00:52:33.126] base::sink(...future.stdout, type = "output", split = FALSE) 1553s [00:52:33.126] base::on.exit(if (!base::is.null(...future.stdout)) { 1553s [00:52:33.126] base::sink(type = "output", split = FALSE) 1553s [00:52:33.126] base::close(...future.stdout) 1553s [00:52:33.126] }, add = TRUE) 1553s [00:52:33.126] } 1553s [00:52:33.126] ...future.frame <- base::sys.nframe() 1553s [00:52:33.126] ...future.conditions <- base::list() 1553s [00:52:33.126] ...future.rng <- base::globalenv()$.Random.seed 1553s [00:52:33.126] if (FALSE) { 1553s [00:52:33.126] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1553s [00:52:33.126] "...future.value", "...future.globalenv.names", ".Random.seed") 1553s [00:52:33.126] } 1553s [00:52:33.126] ...future.result <- base::tryCatch({ 1553s [00:52:33.126] base::withCallingHandlers({ 1553s [00:52:33.126] ...future.value <- base::withVisible(base::local({ 1553s [00:52:33.126] do.call(function(...) { 1553s [00:52:33.126] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1553s [00:52:33.126] if (!identical(...future.globals.maxSize.org, 1553s [00:52:33.126] ...future.globals.maxSize)) { 1553s [00:52:33.126] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1553s [00:52:33.126] on.exit(options(oopts), add = TRUE) 1553s [00:52:33.126] } 1553s [00:52:33.126] { 1553s [00:52:33.126] lapply(seq_along(...future.elements_ii), 1553s [00:52:33.126] FUN = function(jj) { 1553s [00:52:33.126] ...future.X_jj <- ...future.elements_ii[[jj]] 1553s [00:52:33.126] ...future.FUN(...future.X_jj, ...) 1553s [00:52:33.126] }) 1553s [00:52:33.126] } 1553s [00:52:33.126] }, args = future.call.arguments) 1553s [00:52:33.126] })) 1553s [00:52:33.126] future::FutureResult(value = ...future.value$value, 1553s [00:52:33.126] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1553s [00:52:33.126] ...future.rng), globalenv = if (FALSE) 1553s [00:52:33.126] list(added = base::setdiff(base::names(base::.GlobalEnv), 1553s [00:52:33.126] ...future.globalenv.names)) 1553s [00:52:33.126] else NULL, started = ...future.startTime, version = "1.8") 1553s [00:52:33.126] }, condition = base::local({ 1553s [00:52:33.126] c <- base::c 1553s [00:52:33.126] inherits <- base::inherits 1553s [00:52:33.126] invokeRestart <- base::invokeRestart 1553s [00:52:33.126] length <- base::length 1553s [00:52:33.126] list <- base::list 1553s [00:52:33.126] seq.int <- base::seq.int 1553s [00:52:33.126] signalCondition <- base::signalCondition 1553s [00:52:33.126] sys.calls <- base::sys.calls 1553s [00:52:33.126] `[[` <- base::`[[` 1553s [00:52:33.126] `+` <- base::`+` 1553s [00:52:33.126] `<<-` <- base::`<<-` 1553s [00:52:33.126] sysCalls <- function(calls = sys.calls(), from = 1L) { 1553s [00:52:33.126] calls[seq.int(from = from + 12L, to = length(calls) - 1553s [00:52:33.126] 3L)] 1553s [00:52:33.126] } 1553s [00:52:33.126] function(cond) { 1553s [00:52:33.126] is_error <- inherits(cond, "error") 1553s [00:52:33.126] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1553s [00:52:33.126] NULL) 1553s [00:52:33.126] if (is_error) { 1553s [00:52:33.126] sessionInformation <- function() { 1553s [00:52:33.126] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1553s [00:52:33.126] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1553s [00:52:33.126] search = base::search(), system = base::Sys.info()) 1553s [00:52:33.126] } 1553s [00:52:33.126] ...future.conditions[[length(...future.conditions) + 1553s [00:52:33.126] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1553s [00:52:33.126] cond$call), session = sessionInformation(), 1553s [00:52:33.126] timestamp = base::Sys.time(), signaled = 0L) 1553s [00:52:33.126] signalCondition(cond) 1553s [00:52:33.126] } 1553s [00:52:33.126] else if (!ignore && TRUE && inherits(cond, c("condition", 1553s [00:52:33.126] "immediateCondition"))) { 1553s [00:52:33.126] signal <- TRUE && inherits(cond, "immediateCondition") 1553s [00:52:33.126] ...future.conditions[[length(...future.conditions) + 1553s [00:52:33.126] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1553s [00:52:33.126] if (TRUE && !signal) { 1553s [00:52:33.126] muffleCondition <- function (cond, pattern = "^muffle") 1553s [00:52:33.126] { 1553s [00:52:33.126] inherits <- base::inherits 1553s [00:52:33.126] invokeRestart <- base::invokeRestart 1553s [00:52:33.126] is.null <- base::is.null 1553s [00:52:33.126] muffled <- FALSE 1553s [00:52:33.126] if (inherits(cond, "message")) { 1553s [00:52:33.126] muffled <- grepl(pattern, "muffleMessage") 1553s [00:52:33.126] if (muffled) 1553s [00:52:33.126] invokeRestart("muffleMessage") 1553s [00:52:33.126] } 1553s [00:52:33.126] else if (inherits(cond, "warning")) { 1553s [00:52:33.126] muffled <- grepl(pattern, "muffleWarning") 1553s [00:52:33.126] if (muffled) 1553s [00:52:33.126] invokeRestart("muffleWarning") 1553s [00:52:33.126] } 1553s [00:52:33.126] else if (inherits(cond, "condition")) { 1553s [00:52:33.126] if (!is.null(pattern)) { 1553s [00:52:33.126] computeRestarts <- base::computeRestarts 1553s [00:52:33.126] grepl <- base::grepl 1553s [00:52:33.126] restarts <- computeRestarts(cond) 1553s [00:52:33.126] for (restart in restarts) { 1553s [00:52:33.126] name <- restart$name 1553s [00:52:33.126] if (is.null(name)) 1553s [00:52:33.126] next 1553s [00:52:33.126] if (!grepl(pattern, name)) 1553s [00:52:33.126] next 1553s [00:52:33.126] invokeRestart(restart) 1553s [00:52:33.126] muffled <- TRUE 1553s [00:52:33.126] break 1553s [00:52:33.126] } 1553s [00:52:33.126] } 1553s [00:52:33.126] } 1553s [00:52:33.126] invisible(muffled) 1553s [00:52:33.126] } 1553s [00:52:33.126] muffleCondition(cond, pattern = "^muffle") 1553s [00:52:33.126] } 1553s [00:52:33.126] } 1553s [00:52:33.126] else { 1553s [00:52:33.126] if (TRUE) { 1553s [00:52:33.126] muffleCondition <- function (cond, pattern = "^muffle") 1553s [00:52:33.126] { 1553s [00:52:33.126] inherits <- base::inherits 1553s [00:52:33.126] invokeRestart <- base::invokeRestart 1553s [00:52:33.126] is.null <- base::is.null 1553s [00:52:33.126] muffled <- FALSE 1553s [00:52:33.126] if (inherits(cond, "message")) { 1553s [00:52:33.126] muffled <- grepl(pattern, "muffleMessage") 1553s [00:52:33.126] if (muffled) 1553s [00:52:33.126] invokeRestart("muffleMessage") 1553s [00:52:33.126] } 1553s [00:52:33.126] else if (inherits(cond, "warning")) { 1553s [00:52:33.126] muffled <- grepl(pattern, "muffleWarning") 1553s [00:52:33.126] if (muffled) 1553s [00:52:33.126] invokeRestart("muffleWarning") 1553s [00:52:33.126] } 1553s [00:52:33.126] else if (inherits(cond, "condition")) { 1553s [00:52:33.126] if (!is.null(pattern)) { 1553s [00:52:33.126] computeRestarts <- base::computeRestarts 1553s [00:52:33.126] grepl <- base::grepl 1553s [00:52:33.126] restarts <- computeRestarts(cond) 1553s [00:52:33.126] for (restart in restarts) { 1553s [00:52:33.126] name <- restart$name 1553s [00:52:33.126] if (is.null(name)) 1553s [00:52:33.126] next 1553s [00:52:33.126] if (!grepl(pattern, name)) 1553s [00:52:33.126] next 1553s [00:52:33.126] invokeRestart(restart) 1553s [00:52:33.126] muffled <- TRUE 1553s [00:52:33.126] break 1553s [00:52:33.126] } 1553s [00:52:33.126] } 1553s [00:52:33.126] } 1553s [00:52:33.126] invisible(muffled) 1553s [00:52:33.126] } 1553s [00:52:33.126] muffleCondition(cond, pattern = "^muffle") 1553s [00:52:33.126] } 1553s [00:52:33.126] } 1553s [00:52:33.126] } 1553s [00:52:33.126] })) 1553s [00:52:33.126] }, error = function(ex) { 1553s [00:52:33.126] base::structure(base::list(value = NULL, visible = NULL, 1553s [00:52:33.126] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1553s [00:52:33.126] ...future.rng), started = ...future.startTime, 1553s [00:52:33.126] finished = Sys.time(), session_uuid = NA_character_, 1553s [00:52:33.126] version = "1.8"), class = "FutureResult") 1553s [00:52:33.126] }, finally = { 1553s [00:52:33.126] if (!identical(...future.workdir, getwd())) 1553s [00:52:33.126] setwd(...future.workdir) 1553s [00:52:33.126] { 1553s [00:52:33.126] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1553s [00:52:33.126] ...future.oldOptions$nwarnings <- NULL 1553s [00:52:33.126] } 1553s [00:52:33.126] base::options(...future.oldOptions) 1553s [00:52:33.126] if (.Platform$OS.type == "windows") { 1553s [00:52:33.126] old_names <- names(...future.oldEnvVars) 1553s [00:52:33.126] envs <- base::Sys.getenv() 1553s [00:52:33.126] names <- names(envs) 1553s [00:52:33.126] common <- intersect(names, old_names) 1553s [00:52:33.126] added <- setdiff(names, old_names) 1553s [00:52:33.126] removed <- setdiff(old_names, names) 1553s [00:52:33.126] changed <- common[...future.oldEnvVars[common] != 1553s [00:52:33.126] envs[common]] 1553s [00:52:33.126] NAMES <- toupper(changed) 1553s [00:52:33.126] args <- list() 1553s [00:52:33.126] for (kk in seq_along(NAMES)) { 1553s [00:52:33.126] name <- changed[[kk]] 1553s [00:52:33.126] NAME <- NAMES[[kk]] 1553s [00:52:33.126] if (name != NAME && is.element(NAME, old_names)) 1553s [00:52:33.126] next 1553s [00:52:33.126] args[[name]] <- ...future.oldEnvVars[[name]] 1553s [00:52:33.126] } 1553s [00:52:33.126] NAMES <- toupper(added) 1553s [00:52:33.126] for (kk in seq_along(NAMES)) { 1553s [00:52:33.126] name <- added[[kk]] 1553s [00:52:33.126] NAME <- NAMES[[kk]] 1553s [00:52:33.126] if (name != NAME && is.element(NAME, old_names)) 1553s [00:52:33.126] next 1553s [00:52:33.126] args[[name]] <- "" 1553s [00:52:33.126] } 1553s [00:52:33.126] NAMES <- toupper(removed) 1553s [00:52:33.126] for (kk in seq_along(NAMES)) { 1553s [00:52:33.126] name <- removed[[kk]] 1553s [00:52:33.126] NAME <- NAMES[[kk]] 1553s [00:52:33.126] if (name != NAME && is.element(NAME, old_names)) 1553s [00:52:33.126] next 1553s [00:52:33.126] args[[name]] <- ...future.oldEnvVars[[name]] 1553s [00:52:33.126] } 1553s [00:52:33.126] if (length(args) > 0) 1553s [00:52:33.126] base::do.call(base::Sys.setenv, args = args) 1553s [00:52:33.126] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1553s [00:52:33.126] } 1553s [00:52:33.126] else { 1553s [00:52:33.126] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1553s [00:52:33.126] } 1553s [00:52:33.126] { 1553s [00:52:33.126] if (base::length(...future.futureOptionsAdded) > 1553s [00:52:33.126] 0L) { 1553s [00:52:33.126] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1553s [00:52:33.126] base::names(opts) <- ...future.futureOptionsAdded 1553s [00:52:33.126] base::options(opts) 1553s [00:52:33.126] } 1553s [00:52:33.126] { 1553s [00:52:33.126] { 1553s [00:52:33.126] NULL 1553s [00:52:33.126] RNGkind("Mersenne-Twister") 1553s [00:52:33.126] base::rm(list = ".Random.seed", envir = base::globalenv(), 1553s [00:52:33.126] inherits = FALSE) 1553s [00:52:33.126] } 1553s [00:52:33.126] options(future.plan = NULL) 1553s [00:52:33.126] if (is.na(NA_character_)) 1553s [00:52:33.126] Sys.unsetenv("R_FUTURE_PLAN") 1553s [00:52:33.126] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1553s [00:52:33.126] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1553s [00:52:33.126] envir = parent.frame()) 1553s [00:52:33.126] { 1553s [00:52:33.126] default_workers <- missing(workers) 1553s [00:52:33.126] if (is.function(workers)) 1553s [00:52:33.126] workers <- workers() 1553s [00:52:33.126] workers <- structure(as.integer(workers), 1553s [00:52:33.126] class = class(workers)) 1553s [00:52:33.126] stop_if_not(is.finite(workers), workers >= 1553s [00:52:33.126] 1L) 1553s [00:52:33.126] if ((workers == 1L && !inherits(workers, 1553s [00:52:33.126] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1553s [00:52:33.126] if (default_workers) 1553s [00:52:33.126] supportsMulticore(warn = TRUE) 1553s [00:52:33.126] return(sequential(..., envir = envir)) 1553s [00:52:33.126] } 1553s [00:52:33.126] oopts <- options(mc.cores = workers) 1553s [00:52:33.126] on.exit(options(oopts)) 1553s [00:52:33.126] future <- MulticoreFuture(..., workers = workers, 1553s [00:52:33.126] envir = envir) 1553s [00:52:33.126] if (!future$lazy) 1553s [00:52:33.126] future <- run(future) 1553s [00:52:33.126] invisible(future) 1553s [00:52:33.126] }), .cleanup = FALSE, .init = FALSE) 1553s [00:52:33.126] } 1553s [00:52:33.126] } 1553s [00:52:33.126] } 1553s [00:52:33.126] }) 1553s [00:52:33.126] if (TRUE) { 1553s [00:52:33.126] base::sink(type = "output", split = FALSE) 1553s [00:52:33.126] if (TRUE) { 1553s [00:52:33.126] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1553s [00:52:33.126] } 1553s [00:52:33.126] else { 1553s [00:52:33.126] ...future.result["stdout"] <- base::list(NULL) 1553s [00:52:33.126] } 1553s [00:52:33.126] base::close(...future.stdout) 1553s [00:52:33.126] ...future.stdout <- NULL 1553s [00:52:33.126] } 1553s [00:52:33.126] ...future.result$conditions <- ...future.conditions 1553s [00:52:33.126] ...future.result$finished <- base::Sys.time() 1553s [00:52:33.126] ...future.result 1553s [00:52:33.126] } 1553s [00:52:33.130] assign_globals() ... 1553s [00:52:33.130] List of 5 1553s [00:52:33.130] $ ...future.FUN :function (mode = "logical", length = 0L) 1553s [00:52:33.130] $ future.call.arguments :List of 1 1553s [00:52:33.130] ..$ length: int 2 1553s [00:52:33.130] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1553s [00:52:33.130] $ ...future.elements_ii :List of 4 1553s [00:52:33.130] ..$ c: chr "list" 1553s [00:52:33.130] ..$ a: chr "integer" 1553s [00:52:33.130] ..$ b: chr "numeric" 1553s [00:52:33.130] ..$ c: chr "character" 1553s [00:52:33.130] $ ...future.seeds_ii : NULL 1553s [00:52:33.130] $ ...future.globals.maxSize: NULL 1553s [00:52:33.130] - attr(*, "where")=List of 5 1553s [00:52:33.130] ..$ ...future.FUN : 1553s [00:52:33.130] ..$ future.call.arguments : 1553s [00:52:33.130] ..$ ...future.elements_ii : 1553s [00:52:33.130] ..$ ...future.seeds_ii : 1553s [00:52:33.130] ..$ ...future.globals.maxSize: 1553s [00:52:33.130] - attr(*, "resolved")= logi FALSE 1553s [00:52:33.130] - attr(*, "total_size")= num 2240 1553s [00:52:33.130] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1553s [00:52:33.130] - attr(*, "already-done")= logi TRUE 1553s [00:52:33.152] - copied ‘...future.FUN’ to environment 1553s [00:52:33.152] - copied ‘future.call.arguments’ to environment 1553s [00:52:33.152] - copied ‘...future.elements_ii’ to environment 1553s [00:52:33.153] - copied ‘...future.seeds_ii’ to environment 1553s [00:52:33.153] - copied ‘...future.globals.maxSize’ to environment 1553s [00:52:33.153] assign_globals() ... done 1553s [00:52:33.153] plan(): Setting new future strategy stack: 1553s [00:52:33.154] List of future strategies: 1553s [00:52:33.154] 1. sequential: 1553s [00:52:33.154] - args: function (..., envir = parent.frame()) 1553s [00:52:33.154] - tweaked: FALSE 1553s [00:52:33.154] - call: NULL 1553s [00:52:33.155] plan(): nbrOfWorkers() = 1 1553s [00:52:33.157] plan(): Setting new future strategy stack: 1553s [00:52:33.157] List of future strategies: 1553s [00:52:33.157] 1. multicore: 1553s [00:52:33.157] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1553s [00:52:33.157] - tweaked: FALSE 1553s [00:52:33.157] - call: plan(strategy) 1553s [00:52:33.163] plan(): nbrOfWorkers() = 1 1553s [00:52:33.163] SequentialFuture started (and completed) 1553s [00:52:33.163] - Launch lazy future ... done 1553s [00:52:33.163] run() for ‘SequentialFuture’ ... done 1553s [00:52:33.164] Created future: 1553s [00:52:33.164] SequentialFuture: 1553s [00:52:33.164] Label: ‘future_lapply-1’ 1553s [00:52:33.164] Expression: 1553s [00:52:33.164] { 1553s [00:52:33.164] do.call(function(...) { 1553s [00:52:33.164] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1553s [00:52:33.164] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1553s [00:52:33.164] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1553s [00:52:33.164] on.exit(options(oopts), add = TRUE) 1553s [00:52:33.164] } 1553s [00:52:33.164] { 1553s [00:52:33.164] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1553s [00:52:33.164] ...future.X_jj <- ...future.elements_ii[[jj]] 1553s [00:52:33.164] ...future.FUN(...future.X_jj, ...) 1553s [00:52:33.164] }) 1553s [00:52:33.164] } 1553s [00:52:33.164] }, args = future.call.arguments) 1553s [00:52:33.164] } 1553s [00:52:33.164] Lazy evaluation: FALSE 1553s [00:52:33.164] Asynchronous evaluation: FALSE 1553s [00:52:33.164] Local evaluation: TRUE 1553s [00:52:33.164] Environment: R_GlobalEnv 1553s [00:52:33.164] Capture standard output: TRUE 1553s [00:52:33.164] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1553s [00:52:33.164] Globals: 5 objects totaling 2.63 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 456 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1553s [00:52:33.164] Packages: 1553s [00:52:33.164] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1553s [00:52:33.164] Resolved: TRUE 1553s [00:52:33.164] Value: 240 bytes of class ‘list’ 1553s [00:52:33.164] Early signaling: FALSE 1553s [00:52:33.164] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1553s [00:52:33.164] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1553s [00:52:33.167] Chunk #1 of 1 ... DONE 1553s [00:52:33.168] Launching 1 futures (chunks) ... DONE 1553s [00:52:33.168] Resolving 1 futures (chunks) ... 1553s [00:52:33.168] resolve() on list ... 1553s [00:52:33.169] recursive: 0 1553s [00:52:33.169] length: 1 1553s [00:52:33.169] 1553s [00:52:33.169] resolved() for ‘SequentialFuture’ ... 1553s [00:52:33.169] - state: ‘finished’ 1553s [00:52:33.170] - run: TRUE 1553s [00:52:33.170] - result: ‘FutureResult’ 1553s [00:52:33.170] resolved() for ‘SequentialFuture’ ... done 1553s [00:52:33.171] Future #1 1553s [00:52:33.171] signalConditionsASAP(SequentialFuture, pos=1) ... 1553s [00:52:33.171] - nx: 1 1553s [00:52:33.172] - relay: TRUE 1553s [00:52:33.172] - stdout: TRUE 1553s [00:52:33.172] - signal: TRUE 1553s [00:52:33.172] - resignal: FALSE 1553s [00:52:33.172] - force: TRUE 1553s [00:52:33.173] - relayed: [n=1] FALSE 1553s [00:52:33.173] - queued futures: [n=1] FALSE 1553s [00:52:33.173] - until=1 1553s [00:52:33.174] - relaying element #1 1553s [00:52:33.174] - relayed: [n=1] TRUE 1553s [00:52:33.174] - queued futures: [n=1] TRUE 1553s List of 1 1553s $ y:List of 4 1553s ..$ a:[00:52:33.175] signalConditionsASAP(SequentialFuture, pos=1) ... done 1553s [00:52:33.175] length: 0 (resolved future 1) 1553s [00:52:33.175] Relaying remaining futures 1553s [00:52:33.175] signalConditionsASAP(NULL, pos=0) ... 1553s [00:52:33.175] - nx: 1 1553s [00:52:33.175] - relay: TRUE 1553s [00:52:33.175] - stdout: TRUE 1553s [00:52:33.176] - signal: TRUE 1553s [00:52:33.176] - resignal: FALSE 1553s [00:52:33.176] - force: TRUE 1553s [00:52:33.176] - relayed: [n=1] TRUE 1553s [00:52:33.176] - queued futures: [n=1] TRUE 1553s - flush all 1553s [00:52:33.177] - relayed: [n=1] TRUE 1553s [00:52:33.177] - queued futures: [n=1] TRUE 1553s [00:52:33.177] signalConditionsASAP(NULL, pos=0) ... done 1553s [00:52:33.177] resolve() on list ... DONE 1553s [00:52:33.178] - Number of value chunks collected: 1 1553s [00:52:33.178] Resolving 1 futures (chunks) ... DONE 1553s [00:52:33.178] Reducing values from 1 chunks ... 1553s [00:52:33.178] - Number of values collected after concatenation: 4 1553s [00:52:33.178] - Number of values expected: 4 1553s [00:52:33.178] Reverse index remapping (attribute 'ordering'): [n = 4] 2, 3, 4, 1 1553s [00:52:33.178] Reducing values from 1 chunks ... DONE 1553s [00:52:33.179] future_lapply() ... DONE 1553s int [1:2] 0 0 1553s ..$ b: num [1:2] 0 0 1553s ..$ c: chr [1:2] "" "" 1553s ..$ c:List of 2 1553s .. ..$ : NULL 1553s .. ..$ : NULL 1553s - future_lapply(x, FUN = base::vector, ...) ... 1553s [00:52:33.186] future_lapply() ... 1553s [00:52:33.191] Number of chunks: 1 1553s [00:52:33.191] Index remapping (attribute 'ordering'): [n = 4] 1, 2, 4, 3 1553s [00:52:33.191] getGlobalsAndPackagesXApply() ... 1553s [00:52:33.192] - future.globals: TRUE 1553s [00:52:33.192] getGlobalsAndPackages() ... 1553s [00:52:33.192] Searching for globals... 1553s [00:52:33.194] - globals found: [2] ‘FUN’, ‘.Internal’ 1553s [00:52:33.194] Searching for globals ... DONE 1553s [00:52:33.194] Resolving globals: FALSE 1553s [00:52:33.195] The total size of the 1 globals is 2.13 KiB (2184 bytes) 1553s [00:52:33.195] The total size of the 1 globals exported for future expression (‘FUN(length = 2L)’) is 2.13 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (2.13 KiB of class ‘function’) 1553s [00:52:33.195] - globals: [1] ‘FUN’ 1553s [00:52:33.196] 1553s [00:52:33.196] getGlobalsAndPackages() ... DONE 1553s [00:52:33.196] - globals found/used: [n=1] ‘FUN’ 1553s [00:52:33.196] - needed namespaces: [n=0] 1553s [00:52:33.196] Finding globals ... DONE 1553s [00:52:33.196] - use_args: TRUE 1553s [00:52:33.196] - Getting '...' globals ... 1553s [00:52:33.197] resolve() on list ... 1553s [00:52:33.197] recursive: 0 1553s [00:52:33.197] length: 1 1553s [00:52:33.197] elements: ‘...’ 1553s [00:52:33.197] length: 0 (resolved future 1) 1553s [00:52:33.198] resolve() on list ... DONE 1553s [00:52:33.198] - '...' content: [n=1] ‘length’ 1553s [00:52:33.198] List of 1 1553s [00:52:33.198] $ ...:List of 1 1553s [00:52:33.198] ..$ length: int 2 1553s [00:52:33.198] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1553s [00:52:33.198] - attr(*, "where")=List of 1 1553s [00:52:33.198] ..$ ...: 1553s [00:52:33.198] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1553s [00:52:33.198] - attr(*, "resolved")= logi TRUE 1553s [00:52:33.198] - attr(*, "total_size")= num NA 1553s [00:52:33.202] - Getting '...' globals ... DONE 1553s [00:52:33.203] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1553s [00:52:33.203] List of 2 1553s [00:52:33.203] $ ...future.FUN:function (mode = "logical", length = 0L) 1553s [00:52:33.203] $ ... :List of 1 1553s [00:52:33.203] ..$ length: int 2 1553s [00:52:33.203] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1553s [00:52:33.203] - attr(*, "where")=List of 2 1553s [00:52:33.203] ..$ ...future.FUN: 1553s [00:52:33.203] ..$ ... : 1553s [00:52:33.203] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1553s [00:52:33.203] - attr(*, "resolved")= logi FALSE 1553s [00:52:33.203] - attr(*, "total_size")= num 2240 1553s [00:52:33.207] Packages to be attached in all futures: [n=0] 1553s [00:52:33.207] getGlobalsAndPackagesXApply() ... DONE 1553s [00:52:33.207] Number of futures (= number of chunks): 1 1553s [00:52:33.207] Launching 1 futures (chunks) ... 1553s [00:52:33.207] Chunk #1 of 1 ... 1553s [00:52:33.208] - Finding globals in 'X' for chunk #1 ... 1553s [00:52:33.208] getGlobalsAndPackages() ... 1553s [00:52:33.208] Searching for globals... 1553s [00:52:33.208] 1553s [00:52:33.208] Searching for globals ... DONE 1553s [00:52:33.208] - globals: [0] 1553s [00:52:33.208] getGlobalsAndPackages() ... DONE 1553s [00:52:33.209] + additional globals found: [n=0] 1553s [00:52:33.209] + additional namespaces needed: [n=0] 1553s [00:52:33.209] - Finding globals in 'X' for chunk #1 ... DONE 1553s [00:52:33.209] - seeds: 1553s [00:52:33.209] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1553s [00:52:33.209] getGlobalsAndPackages() ... 1553s [00:52:33.209] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1553s [00:52:33.209] Resolving globals: FALSE 1553s [00:52:33.210] Tweak future expression to call with '...' arguments ... 1553s [00:52:33.210] { 1553s [00:52:33.210] do.call(function(...) { 1553s [00:52:33.210] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1553s [00:52:33.210] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1553s [00:52:33.210] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1553s [00:52:33.210] on.exit(options(oopts), add = TRUE) 1553s [00:52:33.210] } 1553s [00:52:33.210] { 1553s [00:52:33.210] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1553s [00:52:33.210] ...future.X_jj <- ...future.elements_ii[[jj]] 1553s [00:52:33.210] ...future.FUN(...future.X_jj, ...) 1553s [00:52:33.210] }) 1553s [00:52:33.210] } 1553s [00:52:33.210] }, args = future.call.arguments) 1553s [00:52:33.210] } 1553s [00:52:33.211] Tweak future expression to call with '...' arguments ... DONE 1553s [00:52:33.211] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1553s [00:52:33.211] 1553s [00:52:33.212] getGlobalsAndPackages() ... DONE 1553s [00:52:33.212] run() for ‘Future’ ... 1553s [00:52:33.212] - state: ‘created’ 1553s [00:52:33.212] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1553s [00:52:33.216] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1553s [00:52:33.216] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1553s [00:52:33.216] - Field: ‘label’ 1553s [00:52:33.216] - Field: ‘local’ 1553s [00:52:33.217] - Field: ‘owner’ 1553s [00:52:33.218] - Field: ‘envir’ 1553s [00:52:33.219] - Field: ‘packages’ 1553s [00:52:33.219] - Field: ‘gc’ 1553s [00:52:33.219] - Field: ‘conditions’ 1553s [00:52:33.219] - Field: ‘expr’ 1553s [00:52:33.219] - Field: ‘uuid’ 1553s [00:52:33.220] - Field: ‘seed’ 1553s [00:52:33.220] - Field: ‘version’ 1553s [00:52:33.220] - Field: ‘result’ 1553s [00:52:33.220] - Field: ‘asynchronous’ 1553s [00:52:33.221] - Field: ‘calls’ 1553s [00:52:33.221] - Field: ‘globals’ 1553s [00:52:33.221] - Field: ‘stdout’ 1553s [00:52:33.221] - Field: ‘earlySignal’ 1553s [00:52:33.221] - Field: ‘lazy’ 1553s [00:52:33.221] - Field: ‘state’ 1553s [00:52:33.222] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1553s [00:52:33.222] - Launch lazy future ... 1553s [00:52:33.222] Packages needed by the future expression (n = 0): 1553s [00:52:33.222] Packages needed by future strategies (n = 0): 1553s [00:52:33.223] { 1553s [00:52:33.223] { 1553s [00:52:33.223] { 1553s [00:52:33.223] ...future.startTime <- base::Sys.time() 1553s [00:52:33.223] { 1553s [00:52:33.223] { 1553s [00:52:33.223] { 1553s [00:52:33.223] base::local({ 1553s [00:52:33.223] has_future <- base::requireNamespace("future", 1553s [00:52:33.223] quietly = TRUE) 1553s [00:52:33.223] if (has_future) { 1553s [00:52:33.223] ns <- base::getNamespace("future") 1553s [00:52:33.223] version <- ns[[".package"]][["version"]] 1553s [00:52:33.223] if (is.null(version)) 1553s [00:52:33.223] version <- utils::packageVersion("future") 1553s [00:52:33.223] } 1553s [00:52:33.223] else { 1553s [00:52:33.223] version <- NULL 1553s [00:52:33.223] } 1553s [00:52:33.223] if (!has_future || version < "1.8.0") { 1553s [00:52:33.223] info <- base::c(r_version = base::gsub("R version ", 1553s [00:52:33.223] "", base::R.version$version.string), 1553s [00:52:33.223] platform = base::sprintf("%s (%s-bit)", 1553s [00:52:33.223] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1553s [00:52:33.223] os = base::paste(base::Sys.info()[base::c("sysname", 1553s [00:52:33.223] "release", "version")], collapse = " "), 1553s [00:52:33.223] hostname = base::Sys.info()[["nodename"]]) 1553s [00:52:33.223] info <- base::sprintf("%s: %s", base::names(info), 1553s [00:52:33.223] info) 1553s [00:52:33.223] info <- base::paste(info, collapse = "; ") 1553s [00:52:33.223] if (!has_future) { 1553s [00:52:33.223] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1553s [00:52:33.223] info) 1553s [00:52:33.223] } 1553s [00:52:33.223] else { 1553s [00:52:33.223] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1553s [00:52:33.223] info, version) 1553s [00:52:33.223] } 1553s [00:52:33.223] base::stop(msg) 1553s [00:52:33.223] } 1553s [00:52:33.223] }) 1553s [00:52:33.223] } 1553s [00:52:33.223] options(future.plan = NULL) 1553s [00:52:33.223] Sys.unsetenv("R_FUTURE_PLAN") 1553s [00:52:33.223] future::plan("default", .cleanup = FALSE, .init = FALSE) 1553s [00:52:33.223] } 1553s [00:52:33.223] ...future.workdir <- getwd() 1553s [00:52:33.223] } 1553s [00:52:33.223] ...future.oldOptions <- base::as.list(base::.Options) 1553s [00:52:33.223] ...future.oldEnvVars <- base::Sys.getenv() 1553s [00:52:33.223] } 1553s [00:52:33.223] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1553s [00:52:33.223] future.globals.maxSize = NULL, future.globals.method = NULL, 1553s [00:52:33.223] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1553s [00:52:33.223] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1553s [00:52:33.223] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1553s [00:52:33.223] future.stdout.windows.reencode = NULL, width = 80L) 1553s [00:52:33.223] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1553s [00:52:33.223] base::names(...future.oldOptions)) 1553s [00:52:33.223] } 1553s [00:52:33.223] if (FALSE) { 1553s [00:52:33.223] } 1553s [00:52:33.223] else { 1553s [00:52:33.223] if (TRUE) { 1553s [00:52:33.223] ...future.stdout <- base::rawConnection(base::raw(0L), 1553s [00:52:33.223] open = "w") 1553s [00:52:33.223] } 1553s [00:52:33.223] else { 1553s [00:52:33.223] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1553s [00:52:33.223] windows = "NUL", "/dev/null"), open = "w") 1553s [00:52:33.223] } 1553s [00:52:33.223] base::sink(...future.stdout, type = "output", split = FALSE) 1553s [00:52:33.223] base::on.exit(if (!base::is.null(...future.stdout)) { 1553s [00:52:33.223] base::sink(type = "output", split = FALSE) 1553s [00:52:33.223] base::close(...future.stdout) 1553s [00:52:33.223] }, add = TRUE) 1553s [00:52:33.223] } 1553s [00:52:33.223] ...future.frame <- base::sys.nframe() 1553s [00:52:33.223] ...future.conditions <- base::list() 1553s [00:52:33.223] ...future.rng <- base::globalenv()$.Random.seed 1553s [00:52:33.223] if (FALSE) { 1553s [00:52:33.223] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1553s [00:52:33.223] "...future.value", "...future.globalenv.names", ".Random.seed") 1553s [00:52:33.223] } 1553s [00:52:33.223] ...future.result <- base::tryCatch({ 1553s [00:52:33.223] base::withCallingHandlers({ 1553s [00:52:33.223] ...future.value <- base::withVisible(base::local({ 1553s [00:52:33.223] do.call(function(...) { 1553s [00:52:33.223] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1553s [00:52:33.223] if (!identical(...future.globals.maxSize.org, 1553s [00:52:33.223] ...future.globals.maxSize)) { 1553s [00:52:33.223] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1553s [00:52:33.223] on.exit(options(oopts), add = TRUE) 1553s [00:52:33.223] } 1553s [00:52:33.223] { 1553s [00:52:33.223] lapply(seq_along(...future.elements_ii), 1553s [00:52:33.223] FUN = function(jj) { 1553s [00:52:33.223] ...future.X_jj <- ...future.elements_ii[[jj]] 1553s [00:52:33.223] ...future.FUN(...future.X_jj, ...) 1553s [00:52:33.223] }) 1553s [00:52:33.223] } 1553s [00:52:33.223] }, args = future.call.arguments) 1553s [00:52:33.223] })) 1553s [00:52:33.223] future::FutureResult(value = ...future.value$value, 1553s [00:52:33.223] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1553s [00:52:33.223] ...future.rng), globalenv = if (FALSE) 1553s [00:52:33.223] list(added = base::setdiff(base::names(base::.GlobalEnv), 1553s [00:52:33.223] ...future.globalenv.names)) 1553s [00:52:33.223] else NULL, started = ...future.startTime, version = "1.8") 1553s [00:52:33.223] }, condition = base::local({ 1553s [00:52:33.223] c <- base::c 1553s [00:52:33.223] inherits <- base::inherits 1553s [00:52:33.223] invokeRestart <- base::invokeRestart 1553s [00:52:33.223] length <- base::length 1553s [00:52:33.223] list <- base::list 1553s [00:52:33.223] seq.int <- base::seq.int 1553s [00:52:33.223] signalCondition <- base::signalCondition 1553s [00:52:33.223] sys.calls <- base::sys.calls 1553s [00:52:33.223] `[[` <- base::`[[` 1553s [00:52:33.223] `+` <- base::`+` 1553s [00:52:33.223] `<<-` <- base::`<<-` 1553s [00:52:33.223] sysCalls <- function(calls = sys.calls(), from = 1L) { 1553s [00:52:33.223] calls[seq.int(from = from + 12L, to = length(calls) - 1553s [00:52:33.223] 3L)] 1553s [00:52:33.223] } 1553s [00:52:33.223] function(cond) { 1553s [00:52:33.223] is_error <- inherits(cond, "error") 1553s [00:52:33.223] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1553s [00:52:33.223] NULL) 1553s [00:52:33.223] if (is_error) { 1553s [00:52:33.223] sessionInformation <- function() { 1553s [00:52:33.223] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1553s [00:52:33.223] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1553s [00:52:33.223] search = base::search(), system = base::Sys.info()) 1553s [00:52:33.223] } 1553s [00:52:33.223] ...future.conditions[[length(...future.conditions) + 1553s [00:52:33.223] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1553s [00:52:33.223] cond$call), session = sessionInformation(), 1553s [00:52:33.223] timestamp = base::Sys.time(), signaled = 0L) 1553s [00:52:33.223] signalCondition(cond) 1553s [00:52:33.223] } 1553s [00:52:33.223] else if (!ignore && TRUE && inherits(cond, c("condition", 1553s [00:52:33.223] "immediateCondition"))) { 1553s [00:52:33.223] signal <- TRUE && inherits(cond, "immediateCondition") 1553s [00:52:33.223] ...future.conditions[[length(...future.conditions) + 1553s [00:52:33.223] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1553s [00:52:33.223] if (TRUE && !signal) { 1553s [00:52:33.223] muffleCondition <- function (cond, pattern = "^muffle") 1553s [00:52:33.223] { 1553s [00:52:33.223] inherits <- base::inherits 1553s [00:52:33.223] invokeRestart <- base::invokeRestart 1553s [00:52:33.223] is.null <- base::is.null 1553s [00:52:33.223] muffled <- FALSE 1553s [00:52:33.223] if (inherits(cond, "message")) { 1553s [00:52:33.223] muffled <- grepl(pattern, "muffleMessage") 1553s [00:52:33.223] if (muffled) 1553s [00:52:33.223] invokeRestart("muffleMessage") 1553s [00:52:33.223] } 1553s [00:52:33.223] else if (inherits(cond, "warning")) { 1553s [00:52:33.223] muffled <- grepl(pattern, "muffleWarning") 1553s [00:52:33.223] if (muffled) 1553s [00:52:33.223] invokeRestart("muffleWarning") 1553s [00:52:33.223] } 1553s [00:52:33.223] else if (inherits(cond, "condition")) { 1553s [00:52:33.223] if (!is.null(pattern)) { 1553s [00:52:33.223] computeRestarts <- base::computeRestarts 1553s [00:52:33.223] grepl <- base::grepl 1553s [00:52:33.223] restarts <- computeRestarts(cond) 1553s [00:52:33.223] for (restart in restarts) { 1553s [00:52:33.223] name <- restart$name 1553s [00:52:33.223] if (is.null(name)) 1553s [00:52:33.223] next 1553s [00:52:33.223] if (!grepl(pattern, name)) 1553s [00:52:33.223] next 1553s [00:52:33.223] invokeRestart(restart) 1553s [00:52:33.223] muffled <- TRUE 1553s [00:52:33.223] break 1553s [00:52:33.223] } 1553s [00:52:33.223] } 1553s [00:52:33.223] } 1553s [00:52:33.223] invisible(muffled) 1553s [00:52:33.223] } 1553s [00:52:33.223] muffleCondition(cond, pattern = "^muffle") 1553s [00:52:33.223] } 1553s [00:52:33.223] } 1553s [00:52:33.223] else { 1553s [00:52:33.223] if (TRUE) { 1553s [00:52:33.223] muffleCondition <- function (cond, pattern = "^muffle") 1553s [00:52:33.223] { 1553s [00:52:33.223] inherits <- base::inherits 1553s [00:52:33.223] invokeRestart <- base::invokeRestart 1553s [00:52:33.223] is.null <- base::is.null 1553s [00:52:33.223] muffled <- FALSE 1553s [00:52:33.223] if (inherits(cond, "message")) { 1553s [00:52:33.223] muffled <- grepl(pattern, "muffleMessage") 1553s [00:52:33.223] if (muffled) 1553s [00:52:33.223] invokeRestart("muffleMessage") 1553s [00:52:33.223] } 1553s [00:52:33.223] else if (inherits(cond, "warning")) { 1553s [00:52:33.223] muffled <- grepl(pattern, "muffleWarning") 1553s [00:52:33.223] if (muffled) 1553s [00:52:33.223] invokeRestart("muffleWarning") 1553s [00:52:33.223] } 1553s [00:52:33.223] else if (inherits(cond, "condition")) { 1553s [00:52:33.223] if (!is.null(pattern)) { 1553s [00:52:33.223] computeRestarts <- base::computeRestarts 1553s [00:52:33.223] grepl <- base::grepl 1553s [00:52:33.223] restarts <- computeRestarts(cond) 1553s [00:52:33.223] for (restart in restarts) { 1553s [00:52:33.223] name <- restart$name 1553s [00:52:33.223] if (is.null(name)) 1553s [00:52:33.223] next 1553s [00:52:33.223] if (!grepl(pattern, name)) 1553s [00:52:33.223] next 1553s [00:52:33.223] invokeRestart(restart) 1553s [00:52:33.223] muffled <- TRUE 1553s [00:52:33.223] break 1553s [00:52:33.223] } 1553s [00:52:33.223] } 1553s [00:52:33.223] } 1553s [00:52:33.223] invisible(muffled) 1553s [00:52:33.223] } 1553s [00:52:33.223] muffleCondition(cond, pattern = "^muffle") 1553s [00:52:33.223] } 1553s [00:52:33.223] } 1553s [00:52:33.223] } 1553s [00:52:33.223] })) 1553s [00:52:33.223] }, error = function(ex) { 1553s [00:52:33.223] base::structure(base::list(value = NULL, visible = NULL, 1553s [00:52:33.223] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1553s [00:52:33.223] ...future.rng), started = ...future.startTime, 1553s [00:52:33.223] finished = Sys.time(), session_uuid = NA_character_, 1553s [00:52:33.223] version = "1.8"), class = "FutureResult") 1553s [00:52:33.223] }, finally = { 1553s [00:52:33.223] if (!identical(...future.workdir, getwd())) 1553s [00:52:33.223] setwd(...future.workdir) 1553s [00:52:33.223] { 1553s [00:52:33.223] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1553s [00:52:33.223] ...future.oldOptions$nwarnings <- NULL 1553s [00:52:33.223] } 1553s [00:52:33.223] base::options(...future.oldOptions) 1553s [00:52:33.223] if (.Platform$OS.type == "windows") { 1553s [00:52:33.223] old_names <- names(...future.oldEnvVars) 1553s [00:52:33.223] envs <- base::Sys.getenv() 1553s [00:52:33.223] names <- names(envs) 1553s [00:52:33.223] common <- intersect(names, old_names) 1553s [00:52:33.223] added <- setdiff(names, old_names) 1553s [00:52:33.223] removed <- setdiff(old_names, names) 1553s [00:52:33.223] changed <- common[...future.oldEnvVars[common] != 1553s [00:52:33.223] envs[common]] 1553s [00:52:33.223] NAMES <- toupper(changed) 1553s [00:52:33.223] args <- list() 1553s [00:52:33.223] for (kk in seq_along(NAMES)) { 1553s [00:52:33.223] name <- changed[[kk]] 1553s [00:52:33.223] NAME <- NAMES[[kk]] 1553s [00:52:33.223] if (name != NAME && is.element(NAME, old_names)) 1553s [00:52:33.223] next 1553s [00:52:33.223] args[[name]] <- ...future.oldEnvVars[[name]] 1553s [00:52:33.223] } 1553s [00:52:33.223] NAMES <- toupper(added) 1553s [00:52:33.223] for (kk in seq_along(NAMES)) { 1553s [00:52:33.223] name <- added[[kk]] 1553s [00:52:33.223] NAME <- NAMES[[kk]] 1553s [00:52:33.223] if (name != NAME && is.element(NAME, old_names)) 1553s [00:52:33.223] next 1553s [00:52:33.223] args[[name]] <- "" 1553s [00:52:33.223] } 1553s [00:52:33.223] NAMES <- toupper(removed) 1553s [00:52:33.223] for (kk in seq_along(NAMES)) { 1553s [00:52:33.223] name <- removed[[kk]] 1553s [00:52:33.223] NAME <- NAMES[[kk]] 1553s [00:52:33.223] if (name != NAME && is.element(NAME, old_names)) 1553s [00:52:33.223] next 1553s [00:52:33.223] args[[name]] <- ...future.oldEnvVars[[name]] 1553s [00:52:33.223] } 1553s [00:52:33.223] if (length(args) > 0) 1553s [00:52:33.223] base::do.call(base::Sys.setenv, args = args) 1553s [00:52:33.223] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1553s [00:52:33.223] } 1553s [00:52:33.223] else { 1553s [00:52:33.223] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1553s [00:52:33.223] } 1553s [00:52:33.223] { 1553s [00:52:33.223] if (base::length(...future.futureOptionsAdded) > 1553s [00:52:33.223] 0L) { 1553s [00:52:33.223] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1553s [00:52:33.223] base::names(opts) <- ...future.futureOptionsAdded 1553s [00:52:33.223] base::options(opts) 1553s [00:52:33.223] } 1553s [00:52:33.223] { 1553s [00:52:33.223] { 1553s [00:52:33.223] NULL 1553s [00:52:33.223] RNGkind("Mersenne-Twister") 1553s [00:52:33.223] base::rm(list = ".Random.seed", envir = base::globalenv(), 1553s [00:52:33.223] inherits = FALSE) 1553s [00:52:33.223] } 1553s [00:52:33.223] options(future.plan = NULL) 1553s [00:52:33.223] if (is.na(NA_character_)) 1553s [00:52:33.223] Sys.unsetenv("R_FUTURE_PLAN") 1553s [00:52:33.223] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1553s [00:52:33.223] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1553s [00:52:33.223] envir = parent.frame()) 1553s [00:52:33.223] { 1553s [00:52:33.223] default_workers <- missing(workers) 1553s [00:52:33.223] if (is.function(workers)) 1553s [00:52:33.223] workers <- workers() 1553s [00:52:33.223] workers <- structure(as.integer(workers), 1553s [00:52:33.223] class = class(workers)) 1553s [00:52:33.223] stop_if_not(is.finite(workers), workers >= 1553s [00:52:33.223] 1L) 1553s [00:52:33.223] if ((workers == 1L && !inherits(workers, 1553s [00:52:33.223] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1553s [00:52:33.223] if (default_workers) 1553s [00:52:33.223] supportsMulticore(warn = TRUE) 1553s [00:52:33.223] return(sequential(..., envir = envir)) 1553s [00:52:33.223] } 1553s [00:52:33.223] oopts <- options(mc.cores = workers) 1553s [00:52:33.223] on.exit(options(oopts)) 1553s [00:52:33.223] future <- MulticoreFuture(..., workers = workers, 1553s [00:52:33.223] envir = envir) 1553s [00:52:33.223] if (!future$lazy) 1553s [00:52:33.223] future <- run(future) 1553s [00:52:33.223] invisible(future) 1553s [00:52:33.223] }), .cleanup = FALSE, .init = FALSE) 1553s [00:52:33.223] } 1553s [00:52:33.223] } 1553s [00:52:33.223] } 1553s [00:52:33.223] }) 1553s [00:52:33.223] if (TRUE) { 1553s [00:52:33.223] base::sink(type = "output", split = FALSE) 1553s [00:52:33.223] if (TRUE) { 1553s [00:52:33.223] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1553s [00:52:33.223] } 1553s [00:52:33.223] else { 1553s [00:52:33.223] ...future.result["stdout"] <- base::list(NULL) 1553s [00:52:33.223] } 1553s [00:52:33.223] base::close(...future.stdout) 1553s [00:52:33.223] ...future.stdout <- NULL 1553s [00:52:33.223] } 1553s [00:52:33.223] ...future.result$conditions <- ...future.conditions 1553s [00:52:33.223] ...future.result$finished <- base::Sys.time() 1553s [00:52:33.223] ...future.result 1553s [00:52:33.223] } 1553s [00:52:33.230] assign_globals() ... 1553s [00:52:33.230] List of 5 1553s [00:52:33.230] $ ...future.FUN :function (mode = "logical", length = 0L) 1553s [00:52:33.230] $ future.call.arguments :List of 1 1553s [00:52:33.230] ..$ length: int 2 1553s [00:52:33.230] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1553s [00:52:33.230] $ ...future.elements_ii :List of 4 1553s [00:52:33.230] ..$ a: chr "integer" 1553s [00:52:33.230] ..$ b: chr "numeric" 1553s [00:52:33.230] ..$ c: chr "list" 1553s [00:52:33.230] ..$ c: chr "character" 1553s [00:52:33.230] $ ...future.seeds_ii : NULL 1553s [00:52:33.230] $ ...future.globals.maxSize: NULL 1553s [00:52:33.230] - attr(*, "where")=List of 5 1553s [00:52:33.230] ..$ ...future.FUN : 1553s [00:52:33.230] ..$ future.call.arguments : 1553s [00:52:33.230] ..$ ...future.elements_ii : 1553s [00:52:33.230] ..$ ...future.seeds_ii : 1553s [00:52:33.230] ..$ ...future.globals.maxSize: 1553s [00:52:33.230] - attr(*, "resolved")= logi FALSE 1553s [00:52:33.230] - attr(*, "total_size")= num 2240 1553s [00:52:33.230] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1553s [00:52:33.230] - attr(*, "already-done")= logi TRUE 1553s [00:52:33.239] - copied ‘...future.FUN’ to environment 1553s [00:52:33.240] - copied ‘future.call.arguments’ to environment 1553s [00:52:33.240] - copied ‘...future.elements_ii’ to environment 1553s [00:52:33.240] - copied ‘...future.seeds_ii’ to environment 1553s [00:52:33.240] - copied ‘...future.globals.maxSize’ to environment 1553s [00:52:33.240] assign_globals() ... done 1553s [00:52:33.241] plan(): Setting new future strategy stack: 1553s [00:52:33.241] List of future strategies: 1553s [00:52:33.241] 1. sequential: 1553s [00:52:33.241] - args: function (..., envir = parent.frame()) 1553s [00:52:33.241] - tweaked: FALSE 1553s [00:52:33.241] - call: NULL 1553s [00:52:33.241] plan(): nbrOfWorkers() = 1 1553s [00:52:33.242] plan(): Setting new future strategy stack: 1553s [00:52:33.243] List of future strategies: 1553s [00:52:33.243] 1. multicore: 1553s [00:52:33.243] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1553s [00:52:33.243] - tweaked: FALSE 1553s [00:52:33.243] - call: plan(strategy) 1553s [00:52:33.246] plan(): nbrOfWorkers() = 1 1553s [00:52:33.247] SequentialFuture started (and completed) 1553s [00:52:33.247] - Launch lazy future ... done 1553s [00:52:33.247] run() for ‘SequentialFuture’ ... done 1553s [00:52:33.247] Created future: 1553s [00:52:33.247] SequentialFuture: 1553s [00:52:33.247] Label: ‘future_lapply-1’ 1553s [00:52:33.247] Expression: 1553s [00:52:33.247] { 1553s [00:52:33.247] do.call(function(...) { 1553s [00:52:33.247] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1553s [00:52:33.247] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1553s [00:52:33.247] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1553s [00:52:33.247] on.exit(options(oopts), add = TRUE) 1553s [00:52:33.247] } 1553s [00:52:33.247] { 1553s [00:52:33.247] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1553s [00:52:33.247] ...future.X_jj <- ...future.elements_ii[[jj]] 1553s [00:52:33.247] ...future.FUN(...future.X_jj, ...) 1553s [00:52:33.247] }) 1553s [00:52:33.247] } 1553s [00:52:33.247] }, args = future.call.arguments) 1553s [00:52:33.247] } 1553s [00:52:33.247] Lazy evaluation: FALSE 1553s [00:52:33.247] Asynchronous evaluation: FALSE 1553s [00:52:33.247] Local evaluation: TRUE 1553s [00:52:33.247] Environment: R_GlobalEnv 1553s [00:52:33.247] Capture standard output: TRUE 1553s [00:52:33.247] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1553s [00:52:33.247] Globals: 5 objects totaling 2.63 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 456 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1553s [00:52:33.247] Packages: 1553s [00:52:33.247] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1553s [00:52:33.247] Resolved: TRUE 1553s [00:52:33.247] Value: 240 bytes of class ‘list’ 1553s [00:52:33.247] Early signaling: FALSE 1553s [00:52:33.247] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1553s [00:52:33.247] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1553s [00:52:33.249] Chunk #1 of 1 ... DONE 1553s [00:52:33.249] Launching 1 futures (chunks) ... DONE 1553s [00:52:33.249] Resolving 1 futures (chunks) ... 1553s [00:52:33.250] resolve() on list ... 1553s [00:52:33.250] recursive: 0 1553s [00:52:33.250] length: 1 1553s [00:52:33.250] 1553s [00:52:33.250] resolved() for ‘SequentialFuture’ ... 1553s [00:52:33.250] - state: ‘finished’ 1553s [00:52:33.251] - run: TRUE 1553s [00:52:33.251] - result: ‘FutureResult’ 1553s [00:52:33.251] resolved() for ‘SequentialFuture’ ... done 1553s [00:52:33.251] Future #1 1553s [00:52:33.251] signalConditionsASAP(SequentialFuture, pos=1) ... 1553s [00:52:33.251] - nx: 1 1553s [00:52:33.251] - relay: TRUE 1553s [00:52:33.252] - stdout: TRUE 1553s [00:52:33.252] - signal: TRUE 1553s [00:52:33.252] - resignal: FALSE 1553s [00:52:33.252] - force: TRUE 1553s [00:52:33.252] - relayed: [n=1] FALSE 1553s [00:52:33.252] - queued futures: [n=1] FALSE 1553s [00:52:33.252] - until=1 1553s [00:52:33.253] - relaying element #1 1553s [00:52:33.253] - relayed: [n=1] TRUE 1553s [00:52:33.253] - queued futures: [n=1] TRUE 1553s [00:52:33.253] signalConditionsASAP(SequentialFuture, pos=1) ... done 1553s [00:52:33.253] length: 0 (resolved future 1) 1553s [00:52:33.253] Relaying remaining futures 1553s [00:52:33.254] signalConditionsASAP(NULL, pos=0) ... 1553s [00:52:33.254] - nx: 1 1553s [00:52:33.254] - relay: TRUE 1553s [00:52:33.254] - stdout: TRUE 1553s [00:52:33.254] - signal: TRUE 1553s [00:52:33.254] - resignal: FALSE 1553s [00:52:33.254] - force: TRUE 1553s [00:52:33.255] - relayed: [n=1] TRUE 1553s [00:52:33.255] - queued futures: [n=1] TRUE 1553s - flush all 1553s [00:52:33.255] - relayed: [n=1] TRUE 1553s [00:52:33.255] - queued futures: [n=1] TRUE 1553s [00:52:33.255] signalConditionsASAP(NULL, pos=0) ... done 1553s [00:52:33.255] resolve() on list ... DONE 1553s [00:52:33.256] - Number of value chunks collected: 1 1553s [00:52:33.256] Resolving 1 futures (chunks) ... DONE 1553s [00:52:33.256] Reducing values from 1 chunks ... 1553s [00:52:33.256] - Number of values collected after concatenation: 4 1553s [00:52:33.256] - Number of values expected: 4 1553s [00:52:33.256] Reverse index remapping (attribute 'ordering'): [n = 4] 1, 2, 4, 3 1553s [00:52:33.257] Reducing values from 1 chunks ... DONE 1553s [00:52:33.257] future_lapply() ... DONE 1553s List of 1 1553s $ y:List of 4 1553s ..$ a: int [1:2] 0 0 1553s ..$ b: num [1:2] 0 0 1553s ..$ c: chr [1:2] "" "" 1553s ..$ c:List of 2 1553s .. ..$ : NULL 1553s .. ..$ : NULL 1553s - future_lapply(x, FUN = future:::hpaste, ...) ... 1553s [00:52:33.264] future_lapply() ... 1553s [00:52:33.278] Number of chunks: 1 1553s [00:52:33.278] getGlobalsAndPackagesXApply() ... 1553s [00:52:33.279] - future.globals: TRUE 1553s [00:52:33.279] getGlobalsAndPackages() ... 1553s [00:52:33.279] Searching for globals... 1553s [00:52:33.296] - globals found: [22] ‘FUN’, ‘if’, ‘missing’, ‘is.finite’, ‘{’, ‘is.null’, ‘<-’, ‘paste’, ‘length’, ‘==’, ‘return’, ‘>’, ‘+’, ‘[’, ‘seq_len’, ‘rev’, ‘c’, ‘&&’, ‘!’, ‘:’, ‘(’, ‘-’ 1553s [00:52:33.296] Searching for globals ... DONE 1553s [00:52:33.296] Resolving globals: FALSE 1553s [00:52:33.298] The total size of the 1 globals is 69.62 KiB (71288 bytes) 1553s [00:52:33.299] The total size of the 1 globals exported for future expression (‘FUN(collapse = "; ", maxHead = 3L)’) is 69.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (69.62 KiB of class ‘function’) 1553s [00:52:33.299] - globals: [1] ‘FUN’ 1553s [00:52:33.299] - packages: [1] ‘future’ 1553s [00:52:33.299] getGlobalsAndPackages() ... DONE 1553s [00:52:33.300] - globals found/used: [n=1] ‘FUN’ 1553s [00:52:33.300] - needed namespaces: [n=1] ‘future’ 1553s [00:52:33.300] Finding globals ... DONE 1553s [00:52:33.301] - use_args: TRUE 1553s [00:52:33.301] - Getting '...' globals ... 1553s [00:52:33.302] resolve() on list ... 1553s [00:52:33.302] recursive: 0 1553s [00:52:33.302] length: 1 1553s [00:52:33.302] elements: ‘...’ 1553s [00:52:33.303] length: 0 (resolved future 1) 1553s [00:52:33.303] resolve() on list ... DONE 1553s [00:52:33.303] - '...' content: [n=2] ‘collapse’, ‘maxHead’ 1553s [00:52:33.303] List of 1 1553s [00:52:33.303] $ ...:List of 2 1553s [00:52:33.303] ..$ collapse: chr "; " 1553s [00:52:33.303] ..$ maxHead : int 3 1553s [00:52:33.303] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1553s [00:52:33.303] - attr(*, "where")=List of 1 1553s [00:52:33.303] ..$ ...: 1553s [00:52:33.303] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1553s [00:52:33.303] - attr(*, "resolved")= logi TRUE 1553s [00:52:33.303] - attr(*, "total_size")= num NA 1553s [00:52:33.309] - Getting '...' globals ... DONE 1553s [00:52:33.309] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1553s [00:52:33.310] List of 2 1553s [00:52:33.310] $ ...future.FUN:function (..., sep = "", collapse = ", ", lastCollapse = NULL, maxHead = if (missing(lastCollapse)) 3 else Inf, 1553s [00:52:33.310] maxTail = if (is.finite(maxHead)) 1 else Inf, abbreviate = "...") 1553s [00:52:33.310] $ ... :List of 2 1553s [00:52:33.310] ..$ collapse: chr "; " 1553s [00:52:33.310] ..$ maxHead : int 3 1553s [00:52:33.310] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1553s [00:52:33.310] - attr(*, "where")=List of 2 1553s [00:52:33.310] ..$ ...future.FUN: 1553s [00:52:33.310] ..$ ... : 1553s [00:52:33.310] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1553s [00:52:33.310] - attr(*, "resolved")= logi FALSE 1553s [00:52:33.310] - attr(*, "total_size")= num 71456 1553s [00:52:33.315] Packages to be attached in all futures: [n=1] ‘future’ 1553s [00:52:33.315] getGlobalsAndPackagesXApply() ... DONE 1553s [00:52:33.315] Number of futures (= number of chunks): 1 1553s [00:52:33.315] Launching 1 futures (chunks) ... 1553s [00:52:33.316] Chunk #1 of 1 ... 1553s [00:52:33.316] - Finding globals in 'X' for chunk #1 ... 1553s [00:52:33.316] getGlobalsAndPackages() ... 1553s [00:52:33.316] Searching for globals... 1553s [00:52:33.316] 1553s [00:52:33.316] Searching for globals ... DONE 1553s [00:52:33.317] - globals: [0] 1553s [00:52:33.317] getGlobalsAndPackages() ... DONE 1553s [00:52:33.317] + additional globals found: [n=0] 1553s [00:52:33.317] + additional namespaces needed: [n=0] 1553s [00:52:33.317] - Finding globals in 'X' for chunk #1 ... DONE 1553s [00:52:33.317] - seeds: 1553s [00:52:33.317] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1553s [00:52:33.318] getGlobalsAndPackages() ... 1553s [00:52:33.318] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1553s [00:52:33.318] Resolving globals: FALSE 1553s [00:52:33.318] Tweak future expression to call with '...' arguments ... 1553s [00:52:33.318] { 1553s [00:52:33.318] do.call(function(...) { 1553s [00:52:33.318] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1553s [00:52:33.318] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1553s [00:52:33.318] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1553s [00:52:33.318] on.exit(options(oopts), add = TRUE) 1553s [00:52:33.318] } 1553s [00:52:33.318] { 1553s [00:52:33.318] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1553s [00:52:33.318] ...future.X_jj <- ...future.elements_ii[[jj]] 1553s [00:52:33.318] ...future.FUN(...future.X_jj, ...) 1553s [00:52:33.318] }) 1553s [00:52:33.318] } 1553s [00:52:33.318] }, args = future.call.arguments) 1553s [00:52:33.318] } 1553s [00:52:33.319] Tweak future expression to call with '...' arguments ... DONE 1553s [00:52:33.319] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1553s [00:52:33.319] - packages: [1] ‘future’ 1553s [00:52:33.319] getGlobalsAndPackages() ... DONE 1553s [00:52:33.320] run() for ‘Future’ ... 1553s [00:52:33.320] - state: ‘created’ 1553s [00:52:33.321] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1553s [00:52:33.324] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1553s [00:52:33.325] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1553s [00:52:33.325] - Field: ‘label’ 1553s [00:52:33.325] - Field: ‘local’ 1553s [00:52:33.325] - Field: ‘owner’ 1553s [00:52:33.325] - Field: ‘envir’ 1553s [00:52:33.326] - Field: ‘packages’ 1553s [00:52:33.326] - Field: ‘gc’ 1553s [00:52:33.326] - Field: ‘conditions’ 1553s [00:52:33.326] - Field: ‘expr’ 1553s [00:52:33.326] - Field: ‘uuid’ 1553s [00:52:33.326] - Field: ‘seed’ 1553s [00:52:33.327] - Field: ‘version’ 1553s [00:52:33.327] - Field: ‘result’ 1553s [00:52:33.327] - Field: ‘asynchronous’ 1553s [00:52:33.327] - Field: ‘calls’ 1553s [00:52:33.327] - Field: ‘globals’ 1553s [00:52:33.328] - Field: ‘stdout’ 1553s [00:52:33.328] - Field: ‘earlySignal’ 1553s [00:52:33.328] - Field: ‘lazy’ 1553s [00:52:33.328] - Field: ‘state’ 1553s [00:52:33.328] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1553s [00:52:33.329] - Launch lazy future ... 1553s [00:52:33.329] Packages needed by the future expression (n = 1): ‘future’ 1553s [00:52:33.329] Packages needed by future strategies (n = 0): 1553s [00:52:33.330] { 1553s [00:52:33.330] { 1553s [00:52:33.330] { 1553s [00:52:33.330] ...future.startTime <- base::Sys.time() 1553s [00:52:33.330] { 1553s [00:52:33.330] { 1553s [00:52:33.330] { 1553s [00:52:33.330] { 1553s [00:52:33.330] base::local({ 1553s [00:52:33.330] has_future <- base::requireNamespace("future", 1553s [00:52:33.330] quietly = TRUE) 1553s [00:52:33.330] if (has_future) { 1553s [00:52:33.330] ns <- base::getNamespace("future") 1553s [00:52:33.330] version <- ns[[".package"]][["version"]] 1553s [00:52:33.330] if (is.null(version)) 1553s [00:52:33.330] version <- utils::packageVersion("future") 1553s [00:52:33.330] } 1553s [00:52:33.330] else { 1553s [00:52:33.330] version <- NULL 1553s [00:52:33.330] } 1553s [00:52:33.330] if (!has_future || version < "1.8.0") { 1553s [00:52:33.330] info <- base::c(r_version = base::gsub("R version ", 1553s [00:52:33.330] "", base::R.version$version.string), 1553s [00:52:33.330] platform = base::sprintf("%s (%s-bit)", 1553s [00:52:33.330] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1553s [00:52:33.330] os = base::paste(base::Sys.info()[base::c("sysname", 1553s [00:52:33.330] "release", "version")], collapse = " "), 1553s [00:52:33.330] hostname = base::Sys.info()[["nodename"]]) 1553s [00:52:33.330] info <- base::sprintf("%s: %s", base::names(info), 1553s [00:52:33.330] info) 1553s [00:52:33.330] info <- base::paste(info, collapse = "; ") 1553s [00:52:33.330] if (!has_future) { 1553s [00:52:33.330] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1553s [00:52:33.330] info) 1553s [00:52:33.330] } 1553s [00:52:33.330] else { 1553s [00:52:33.330] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1553s [00:52:33.330] info, version) 1553s [00:52:33.330] } 1553s [00:52:33.330] base::stop(msg) 1553s [00:52:33.330] } 1553s [00:52:33.330] }) 1553s [00:52:33.330] } 1553s [00:52:33.330] base::local({ 1553s [00:52:33.330] for (pkg in "future") { 1553s [00:52:33.330] base::loadNamespace(pkg) 1553s [00:52:33.330] base::library(pkg, character.only = TRUE) 1553s [00:52:33.330] } 1553s [00:52:33.330] }) 1553s [00:52:33.330] } 1553s [00:52:33.330] options(future.plan = NULL) 1553s [00:52:33.330] Sys.unsetenv("R_FUTURE_PLAN") 1553s [00:52:33.330] future::plan("default", .cleanup = FALSE, .init = FALSE) 1553s [00:52:33.330] } 1553s [00:52:33.330] ...future.workdir <- getwd() 1553s [00:52:33.330] } 1553s [00:52:33.330] ...future.oldOptions <- base::as.list(base::.Options) 1553s [00:52:33.330] ...future.oldEnvVars <- base::Sys.getenv() 1553s [00:52:33.330] } 1553s [00:52:33.330] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1553s [00:52:33.330] future.globals.maxSize = NULL, future.globals.method = NULL, 1553s [00:52:33.330] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1553s [00:52:33.330] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1553s [00:52:33.330] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1553s [00:52:33.330] future.stdout.windows.reencode = NULL, width = 80L) 1553s [00:52:33.330] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1553s [00:52:33.330] base::names(...future.oldOptions)) 1553s [00:52:33.330] } 1553s [00:52:33.330] if (FALSE) { 1553s [00:52:33.330] } 1553s [00:52:33.330] else { 1553s [00:52:33.330] if (TRUE) { 1553s [00:52:33.330] ...future.stdout <- base::rawConnection(base::raw(0L), 1553s [00:52:33.330] open = "w") 1553s [00:52:33.330] } 1553s [00:52:33.330] else { 1553s [00:52:33.330] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1553s [00:52:33.330] windows = "NUL", "/dev/null"), open = "w") 1553s [00:52:33.330] } 1553s [00:52:33.330] base::sink(...future.stdout, type = "output", split = FALSE) 1553s [00:52:33.330] base::on.exit(if (!base::is.null(...future.stdout)) { 1553s [00:52:33.330] base::sink(type = "output", split = FALSE) 1553s [00:52:33.330] base::close(...future.stdout) 1553s [00:52:33.330] }, add = TRUE) 1553s [00:52:33.330] } 1553s [00:52:33.330] ...future.frame <- base::sys.nframe() 1553s [00:52:33.330] ...future.conditions <- base::list() 1553s [00:52:33.330] ...future.rng <- base::globalenv()$.Random.seed 1553s [00:52:33.330] if (FALSE) { 1553s [00:52:33.330] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1553s [00:52:33.330] "...future.value", "...future.globalenv.names", ".Random.seed") 1553s [00:52:33.330] } 1553s [00:52:33.330] ...future.result <- base::tryCatch({ 1553s [00:52:33.330] base::withCallingHandlers({ 1553s [00:52:33.330] ...future.value <- base::withVisible(base::local({ 1553s [00:52:33.330] do.call(function(...) { 1553s [00:52:33.330] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1553s [00:52:33.330] if (!identical(...future.globals.maxSize.org, 1553s [00:52:33.330] ...future.globals.maxSize)) { 1553s [00:52:33.330] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1553s [00:52:33.330] on.exit(options(oopts), add = TRUE) 1553s [00:52:33.330] } 1553s [00:52:33.330] { 1553s [00:52:33.330] lapply(seq_along(...future.elements_ii), 1553s [00:52:33.330] FUN = function(jj) { 1553s [00:52:33.330] ...future.X_jj <- ...future.elements_ii[[jj]] 1553s [00:52:33.330] ...future.FUN(...future.X_jj, ...) 1553s [00:52:33.330] }) 1553s [00:52:33.330] } 1553s [00:52:33.330] }, args = future.call.arguments) 1553s [00:52:33.330] })) 1553s [00:52:33.330] future::FutureResult(value = ...future.value$value, 1553s [00:52:33.330] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1553s [00:52:33.330] ...future.rng), globalenv = if (FALSE) 1553s [00:52:33.330] list(added = base::setdiff(base::names(base::.GlobalEnv), 1553s [00:52:33.330] ...future.globalenv.names)) 1553s [00:52:33.330] else NULL, started = ...future.startTime, version = "1.8") 1553s [00:52:33.330] }, condition = base::local({ 1553s [00:52:33.330] c <- base::c 1553s [00:52:33.330] inherits <- base::inherits 1553s [00:52:33.330] invokeRestart <- base::invokeRestart 1553s [00:52:33.330] length <- base::length 1553s [00:52:33.330] list <- base::list 1553s [00:52:33.330] seq.int <- base::seq.int 1553s [00:52:33.330] signalCondition <- base::signalCondition 1553s [00:52:33.330] sys.calls <- base::sys.calls 1553s [00:52:33.330] `[[` <- base::`[[` 1553s [00:52:33.330] `+` <- base::`+` 1553s [00:52:33.330] `<<-` <- base::`<<-` 1553s [00:52:33.330] sysCalls <- function(calls = sys.calls(), from = 1L) { 1553s [00:52:33.330] calls[seq.int(from = from + 12L, to = length(calls) - 1553s [00:52:33.330] 3L)] 1553s [00:52:33.330] } 1553s [00:52:33.330] function(cond) { 1553s [00:52:33.330] is_error <- inherits(cond, "error") 1553s [00:52:33.330] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1553s [00:52:33.330] NULL) 1553s [00:52:33.330] if (is_error) { 1553s [00:52:33.330] sessionInformation <- function() { 1553s [00:52:33.330] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1553s [00:52:33.330] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1553s [00:52:33.330] search = base::search(), system = base::Sys.info()) 1553s [00:52:33.330] } 1553s [00:52:33.330] ...future.conditions[[length(...future.conditions) + 1553s [00:52:33.330] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1553s [00:52:33.330] cond$call), session = sessionInformation(), 1553s [00:52:33.330] timestamp = base::Sys.time(), signaled = 0L) 1553s [00:52:33.330] signalCondition(cond) 1553s [00:52:33.330] } 1553s [00:52:33.330] else if (!ignore && TRUE && inherits(cond, c("condition", 1553s [00:52:33.330] "immediateCondition"))) { 1553s [00:52:33.330] signal <- TRUE && inherits(cond, "immediateCondition") 1553s [00:52:33.330] ...future.conditions[[length(...future.conditions) + 1553s [00:52:33.330] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1553s [00:52:33.330] if (TRUE && !signal) { 1553s [00:52:33.330] muffleCondition <- function (cond, pattern = "^muffle") 1553s [00:52:33.330] { 1553s [00:52:33.330] inherits <- base::inherits 1553s [00:52:33.330] invokeRestart <- base::invokeRestart 1553s [00:52:33.330] is.null <- base::is.null 1553s [00:52:33.330] muffled <- FALSE 1553s [00:52:33.330] if (inherits(cond, "message")) { 1553s [00:52:33.330] muffled <- grepl(pattern, "muffleMessage") 1553s [00:52:33.330] if (muffled) 1553s [00:52:33.330] invokeRestart("muffleMessage") 1553s [00:52:33.330] } 1553s [00:52:33.330] else if (inherits(cond, "warning")) { 1553s [00:52:33.330] muffled <- grepl(pattern, "muffleWarning") 1553s [00:52:33.330] if (muffled) 1553s [00:52:33.330] invokeRestart("muffleWarning") 1553s [00:52:33.330] } 1553s [00:52:33.330] else if (inherits(cond, "condition")) { 1553s [00:52:33.330] if (!is.null(pattern)) { 1553s [00:52:33.330] computeRestarts <- base::computeRestarts 1553s [00:52:33.330] grepl <- base::grepl 1553s [00:52:33.330] restarts <- computeRestarts(cond) 1553s [00:52:33.330] for (restart in restarts) { 1553s [00:52:33.330] name <- restart$name 1553s [00:52:33.330] if (is.null(name)) 1553s [00:52:33.330] next 1553s [00:52:33.330] if (!grepl(pattern, name)) 1553s [00:52:33.330] next 1553s [00:52:33.330] invokeRestart(restart) 1553s [00:52:33.330] muffled <- TRUE 1553s [00:52:33.330] break 1553s [00:52:33.330] } 1553s [00:52:33.330] } 1553s [00:52:33.330] } 1553s [00:52:33.330] invisible(muffled) 1553s [00:52:33.330] } 1553s [00:52:33.330] muffleCondition(cond, pattern = "^muffle") 1553s [00:52:33.330] } 1553s [00:52:33.330] } 1553s [00:52:33.330] else { 1553s [00:52:33.330] if (TRUE) { 1553s [00:52:33.330] muffleCondition <- function (cond, pattern = "^muffle") 1553s [00:52:33.330] { 1553s [00:52:33.330] inherits <- base::inherits 1553s [00:52:33.330] invokeRestart <- base::invokeRestart 1553s [00:52:33.330] is.null <- base::is.null 1553s [00:52:33.330] muffled <- FALSE 1553s [00:52:33.330] if (inherits(cond, "message")) { 1553s [00:52:33.330] muffled <- grepl(pattern, "muffleMessage") 1553s [00:52:33.330] if (muffled) 1553s [00:52:33.330] invokeRestart("muffleMessage") 1553s [00:52:33.330] } 1553s [00:52:33.330] else if (inherits(cond, "warning")) { 1553s [00:52:33.330] muffled <- grepl(pattern, "muffleWarning") 1553s [00:52:33.330] if (muffled) 1553s [00:52:33.330] invokeRestart("muffleWarning") 1553s [00:52:33.330] } 1553s [00:52:33.330] else if (inherits(cond, "condition")) { 1553s [00:52:33.330] if (!is.null(pattern)) { 1553s [00:52:33.330] computeRestarts <- base::computeRestarts 1553s [00:52:33.330] grepl <- base::grepl 1553s [00:52:33.330] restarts <- computeRestarts(cond) 1553s [00:52:33.330] for (restart in restarts) { 1553s [00:52:33.330] name <- restart$name 1553s [00:52:33.330] if (is.null(name)) 1553s [00:52:33.330] next 1553s [00:52:33.330] if (!grepl(pattern, name)) 1553s [00:52:33.330] next 1553s [00:52:33.330] invokeRestart(restart) 1553s [00:52:33.330] muffled <- TRUE 1553s [00:52:33.330] break 1553s [00:52:33.330] } 1553s [00:52:33.330] } 1553s [00:52:33.330] } 1553s [00:52:33.330] invisible(muffled) 1553s [00:52:33.330] } 1553s [00:52:33.330] muffleCondition(cond, pattern = "^muffle") 1553s [00:52:33.330] } 1553s [00:52:33.330] } 1553s [00:52:33.330] } 1553s [00:52:33.330] })) 1553s [00:52:33.330] }, error = function(ex) { 1553s [00:52:33.330] base::structure(base::list(value = NULL, visible = NULL, 1553s [00:52:33.330] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1553s [00:52:33.330] ...future.rng), started = ...future.startTime, 1553s [00:52:33.330] finished = Sys.time(), session_uuid = NA_character_, 1553s [00:52:33.330] version = "1.8"), class = "FutureResult") 1553s [00:52:33.330] }, finally = { 1553s [00:52:33.330] if (!identical(...future.workdir, getwd())) 1553s [00:52:33.330] setwd(...future.workdir) 1553s [00:52:33.330] { 1553s [00:52:33.330] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1553s [00:52:33.330] ...future.oldOptions$nwarnings <- NULL 1553s [00:52:33.330] } 1553s [00:52:33.330] base::options(...future.oldOptions) 1553s [00:52:33.330] if (.Platform$OS.type == "windows") { 1553s [00:52:33.330] old_names <- names(...future.oldEnvVars) 1553s [00:52:33.330] envs <- base::Sys.getenv() 1553s [00:52:33.330] names <- names(envs) 1553s [00:52:33.330] common <- intersect(names, old_names) 1553s [00:52:33.330] added <- setdiff(names, old_names) 1553s [00:52:33.330] removed <- setdiff(old_names, names) 1553s [00:52:33.330] changed <- common[...future.oldEnvVars[common] != 1553s [00:52:33.330] envs[common]] 1553s [00:52:33.330] NAMES <- toupper(changed) 1553s [00:52:33.330] args <- list() 1553s [00:52:33.330] for (kk in seq_along(NAMES)) { 1553s [00:52:33.330] name <- changed[[kk]] 1553s [00:52:33.330] NAME <- NAMES[[kk]] 1553s [00:52:33.330] if (name != NAME && is.element(NAME, old_names)) 1553s [00:52:33.330] next 1553s [00:52:33.330] args[[name]] <- ...future.oldEnvVars[[name]] 1553s [00:52:33.330] } 1553s [00:52:33.330] NAMES <- toupper(added) 1553s [00:52:33.330] for (kk in seq_along(NAMES)) { 1553s [00:52:33.330] name <- added[[kk]] 1553s [00:52:33.330] NAME <- NAMES[[kk]] 1553s [00:52:33.330] if (name != NAME && is.element(NAME, old_names)) 1553s [00:52:33.330] next 1553s [00:52:33.330] args[[name]] <- "" 1553s [00:52:33.330] } 1553s [00:52:33.330] NAMES <- toupper(removed) 1553s [00:52:33.330] for (kk in seq_along(NAMES)) { 1553s [00:52:33.330] name <- removed[[kk]] 1553s [00:52:33.330] NAME <- NAMES[[kk]] 1553s [00:52:33.330] if (name != NAME && is.element(NAME, old_names)) 1553s [00:52:33.330] next 1553s [00:52:33.330] args[[name]] <- ...future.oldEnvVars[[name]] 1553s [00:52:33.330] } 1553s [00:52:33.330] if (length(args) > 0) 1553s [00:52:33.330] base::do.call(base::Sys.setenv, args = args) 1553s [00:52:33.330] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1553s [00:52:33.330] } 1553s [00:52:33.330] else { 1553s [00:52:33.330] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1553s [00:52:33.330] } 1553s [00:52:33.330] { 1553s [00:52:33.330] if (base::length(...future.futureOptionsAdded) > 1553s [00:52:33.330] 0L) { 1553s [00:52:33.330] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1553s [00:52:33.330] base::names(opts) <- ...future.futureOptionsAdded 1553s [00:52:33.330] base::options(opts) 1553s [00:52:33.330] } 1553s [00:52:33.330] { 1553s [00:52:33.330] { 1553s [00:52:33.330] NULL 1553s [00:52:33.330] RNGkind("Mersenne-Twister") 1553s [00:52:33.330] base::rm(list = ".Random.seed", envir = base::globalenv(), 1553s [00:52:33.330] inherits = FALSE) 1553s [00:52:33.330] } 1553s [00:52:33.330] options(future.plan = NULL) 1553s [00:52:33.330] if (is.na(NA_character_)) 1553s [00:52:33.330] Sys.unsetenv("R_FUTURE_PLAN") 1553s [00:52:33.330] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1553s [00:52:33.330] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1553s [00:52:33.330] envir = parent.frame()) 1553s [00:52:33.330] { 1553s [00:52:33.330] default_workers <- missing(workers) 1553s [00:52:33.330] if (is.function(workers)) 1553s [00:52:33.330] workers <- workers() 1553s [00:52:33.330] workers <- structure(as.integer(workers), 1553s [00:52:33.330] class = class(workers)) 1553s [00:52:33.330] stop_if_not(is.finite(workers), workers >= 1553s [00:52:33.330] 1L) 1553s [00:52:33.330] if ((workers == 1L && !inherits(workers, 1553s [00:52:33.330] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1553s [00:52:33.330] if (default_workers) 1553s [00:52:33.330] supportsMulticore(warn = TRUE) 1553s [00:52:33.330] return(sequential(..., envir = envir)) 1553s [00:52:33.330] } 1553s [00:52:33.330] oopts <- options(mc.cores = workers) 1553s [00:52:33.330] on.exit(options(oopts)) 1553s [00:52:33.330] future <- MulticoreFuture(..., workers = workers, 1553s [00:52:33.330] envir = envir) 1553s [00:52:33.330] if (!future$lazy) 1553s [00:52:33.330] future <- run(future) 1553s [00:52:33.330] invisible(future) 1553s [00:52:33.330] }), .cleanup = FALSE, .init = FALSE) 1553s [00:52:33.330] } 1553s [00:52:33.330] } 1553s [00:52:33.330] } 1553s [00:52:33.330] }) 1553s [00:52:33.330] if (TRUE) { 1553s [00:52:33.330] base::sink(type = "output", split = FALSE) 1553s [00:52:33.330] if (TRUE) { 1553s [00:52:33.330] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1553s [00:52:33.330] } 1553s [00:52:33.330] else { 1553s [00:52:33.330] ...future.result["stdout"] <- base::list(NULL) 1553s [00:52:33.330] } 1553s [00:52:33.330] base::close(...future.stdout) 1553s [00:52:33.330] ...future.stdout <- NULL 1553s [00:52:33.330] } 1553s [00:52:33.330] ...future.result$conditions <- ...future.conditions 1553s [00:52:33.330] ...future.result$finished <- base::Sys.time() 1553s [00:52:33.330] ...future.result 1553s [00:52:33.330] } 1553s [00:52:33.339] assign_globals() ... 1553s [00:52:33.339] List of 5 1553s [00:52:33.339] $ ...future.FUN :function (..., sep = "", collapse = ", ", lastCollapse = NULL, maxHead = if (missing(lastCollapse)) 3 else Inf, 1553s [00:52:33.339] maxTail = if (is.finite(maxHead)) 1 else Inf, abbreviate = "...") 1553s [00:52:33.339] $ future.call.arguments :List of 2 1553s [00:52:33.339] ..$ collapse: chr "; " 1553s [00:52:33.339] ..$ maxHead : int 3 1553s [00:52:33.339] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1553s [00:52:33.339] $ ...future.elements_ii :List of 1 1553s [00:52:33.339] ..$ a: Named chr [1:101] "hello" "1" "2" "3" ... 1553s [00:52:33.339] .. ..- attr(*, "names")= chr [1:101] "" "b1" "b2" "b3" ... 1553s [00:52:33.339] $ ...future.seeds_ii : NULL 1553s [00:52:33.339] $ ...future.globals.maxSize: NULL 1553s [00:52:33.339] - attr(*, "where")=List of 5 1553s [00:52:33.339] ..$ ...future.FUN : 1553s [00:52:33.339] ..$ future.call.arguments : 1553s [00:52:33.339] ..$ ...future.elements_ii : 1553s [00:52:33.339] ..$ ...future.seeds_ii : 1553s [00:52:33.339] ..$ ...future.globals.maxSize: 1553s [00:52:33.339] - attr(*, "resolved")= logi FALSE 1553s [00:52:33.339] - attr(*, "total_size")= num 71456 1553s [00:52:33.339] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1553s [00:52:33.339] - attr(*, "already-done")= logi TRUE 1553s [00:52:33.348] - copied ‘...future.FUN’ to environment 1553s [00:52:33.348] - copied ‘future.call.arguments’ to environment 1553s [00:52:33.348] - copied ‘...future.elements_ii’ to environment 1553s [00:52:33.348] - copied ‘...future.seeds_ii’ to environment 1553s [00:52:33.349] - copied ‘...future.globals.maxSize’ to environment 1553s [00:52:33.349] assign_globals() ... done 1553s [00:52:33.349] plan(): Setting new future strategy stack: 1553s [00:52:33.350] List of future strategies: 1553s [00:52:33.350] 1. sequential: 1553s [00:52:33.350] - args: function (..., envir = parent.frame()) 1553s [00:52:33.350] - tweaked: FALSE 1553s [00:52:33.350] - call: NULL 1553s [00:52:33.350] plan(): nbrOfWorkers() = 1 1553s [00:52:33.351] plan(): Setting new future strategy stack: 1553s [00:52:33.351] List of future strategies: 1553s [00:52:33.351] 1. multicore: 1553s [00:52:33.351] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1553s [00:52:33.351] - tweaked: FALSE 1553s [00:52:33.351] - call: plan(strategy) 1553s [00:52:33.354] plan(): nbrOfWorkers() = 1 1553s [00:52:33.355] SequentialFuture started (and completed) 1553s [00:52:33.355] - Launch lazy future ... done 1553s [00:52:33.355] run() for ‘SequentialFuture’ ... done 1553s [00:52:33.355] Created future: 1553s [00:52:33.355] SequentialFuture: 1553s [00:52:33.355] Label: ‘future_lapply-1’ 1553s [00:52:33.355] Expression: 1553s [00:52:33.355] { 1553s [00:52:33.355] do.call(function(...) { 1553s [00:52:33.355] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1553s [00:52:33.355] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1553s [00:52:33.355] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1553s [00:52:33.355] on.exit(options(oopts), add = TRUE) 1553s [00:52:33.355] } 1553s [00:52:33.355] { 1553s [00:52:33.355] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1553s [00:52:33.355] ...future.X_jj <- ...future.elements_ii[[jj]] 1553s [00:52:33.355] ...future.FUN(...future.X_jj, ...) 1553s [00:52:33.355] }) 1553s [00:52:33.355] } 1553s [00:52:33.355] }, args = future.call.arguments) 1553s [00:52:33.355] } 1553s [00:52:33.355] Lazy evaluation: FALSE 1553s [00:52:33.355] Asynchronous evaluation: FALSE 1553s [00:52:33.355] Local evaluation: TRUE 1553s [00:52:33.355] Environment: R_GlobalEnv 1553s [00:52:33.355] Capture standard output: TRUE 1553s [00:52:33.355] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1553s [00:52:33.355] Globals: 5 objects totaling 82.61 KiB (function ‘...future.FUN’ of 69.62 KiB, DotDotDotList ‘future.call.arguments’ of 168 bytes, list ‘...future.elements_ii’ of 12.83 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1553s [00:52:33.355] Packages: 1 packages (‘future’) 1553s [00:52:33.355] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1553s [00:52:33.355] Resolved: TRUE 1553s [00:52:33.355] Value: 136 bytes of class ‘list’ 1553s [00:52:33.355] Early signaling: FALSE 1553s [00:52:33.355] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1553s [00:52:33.355] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1553s [00:52:33.357] Chunk #1 of 1 ... DONE 1553s [00:52:33.357] Launching 1 futures (chunks) ... DONE 1553s [00:52:33.357] Resolving 1 futures (chunks) ... 1553s [00:52:33.357] resolve() on list ... 1553s [00:52:33.357] recursive: 0 1553s [00:52:33.358] length: 1 1553s [00:52:33.358] 1553s [00:52:33.358] resolved() for ‘SequentialFuture’ ... 1553s [00:52:33.359] - state: ‘finished’ 1553s [00:52:33.359] - run: TRUE 1553s [00:52:33.359] - result: ‘FutureResult’ 1553s [00:52:33.359] resolved() for ‘SequentialFuture’ ... done 1553s [00:52:33.359] Future #1 1553s [00:52:33.360] signalConditionsASAP(SequentialFuture, pos=1) ... 1553s [00:52:33.360] - nx: 1 1553s [00:52:33.360] - relay: TRUE 1553s [00:52:33.360] - stdout: TRUE 1553s [00:52:33.360] - signal: TRUE 1553s [00:52:33.360] - resignal: FALSE 1553s [00:52:33.361] - force: TRUE 1553s [00:52:33.361] - relayed: [n=1] FALSE 1553s List of [00:52:33.361] - queued futures: [n=1] FALSE 1553s [00:52:33.361] - until=1 1553s [00:52:33.361] - relaying element #1 1553s [00:52:33.362] - relayed: [n=1] TRUE 1553s [00:52:33.362] - queued futures: [n=1] TRUE 1553s [00:52:33.362] signalConditionsASAP(SequentialFuture, pos=1) ... done 1553s [00:52:33.363] length: 0 (resolved future 1) 1553s [00:52:33.363] Relaying remaining futures 1553s [00:52:33.363] signalConditionsASAP(NULL, pos=0) ... 1553s [00:52:33.363] - nx: 1 1553s [00:52:33.363] - relay: TRUE 1553s [00:52:33.363] - stdout: TRUE 1553s [00:52:33.363] - signal: TRUE 1553s [00:52:33.363] - resignal: FALSE 1553s [00:52:33.363] - force: TRUE 1553s [00:52:33.363] - relayed: [n=1] TRUE 1553s [00:52:33.364] - queued futures: [n=1] TRUE 1553s - flush all 1553s [00:52:33.364] - relayed: [n=1] TRUE 1553s [00:52:33.364] - queued futures: [n=1] TRUE 1553s [00:52:33.364] signalConditionsASAP(NULL, pos=0) ... done 1553s [00:52:33.364] resolve() on list ... DONE 1553s [00:52:33.364] - Number of value chunks collected: 1 1553s [00:52:33.364] Resolving 1 futures (chunks) ... DONE 1553s [00:52:33.365] Reducing values from 1 chunks ... 1553s [00:52:33.365] - Number of values collected after concatenation: 1 1553s [00:52:33.365] - Number of values expected: 1 1553s [00:52:33.365] Reducing values from 1 chunks ... DONE 1553s [00:52:33.365] future_lapply() ... DONE 1553s 1 1553s $ y:List of 1 1553s ..$ a: chr "hello; 1; 2; ...; 100" 1553s - future_lapply(x, FUN = listenv::listenv, ...) ... 1553s [00:52:33.367] future_lapply() ... 1553s [00:52:33.371] Number of chunks: 1 1553s [00:52:33.371] Index remapping (attribute 'ordering'): [n = 2] 1, 2 1553s [00:52:33.372] getGlobalsAndPackagesXApply() ... 1553s [00:52:33.372] - future.globals: TRUE 1553s [00:52:33.372] getGlobalsAndPackages() ... 1553s [00:52:33.372] Searching for globals... 1553s [00:52:33.377] - globals found: [4] ‘FUN’, ‘{’, ‘get’, ‘parent.env’ 1553s [00:52:33.378] Searching for globals ... DONE 1553s [00:52:33.378] Resolving globals: FALSE 1553s [00:52:33.378] The total size of the 1 globals is 4.85 KiB (4968 bytes) 1553s [00:52:33.379] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.85 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.85 KiB of class ‘function’) 1553s [00:52:33.379] - globals: [1] ‘FUN’ 1553s [00:52:33.379] - packages: [1] ‘listenv’ 1553s [00:52:33.380] getGlobalsAndPackages() ... DONE 1553s [00:52:33.380] - globals found/used: [n=1] ‘FUN’ 1553s [00:52:33.380] - needed namespaces: [n=1] ‘listenv’ 1553s [00:52:33.380] Finding globals ... DONE 1553s [00:52:33.380] - use_args: TRUE 1553s [00:52:33.380] - Getting '...' globals ... 1553s [00:52:33.381] resolve() on list ... 1553s [00:52:33.381] recursive: 0 1553s [00:52:33.382] length: 1 1553s [00:52:33.382] elements: ‘...’ 1553s [00:52:33.382] length: 0 (resolved future 1) 1553s [00:52:33.382] resolve() on list ... DONE 1553s [00:52:33.382] - '...' content: [n=0] 1553s [00:52:33.383] List of 1 1553s [00:52:33.383] $ ...: list() 1553s [00:52:33.383] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1553s [00:52:33.383] - attr(*, "where")=List of 1 1553s [00:52:33.383] ..$ ...: 1553s [00:52:33.383] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1553s [00:52:33.383] - attr(*, "resolved")= logi TRUE 1553s [00:52:33.383] - attr(*, "total_size")= num NA 1553s [00:52:33.386] - Getting '...' globals ... DONE 1553s [00:52:33.386] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1553s [00:52:33.387] List of 2 1553s [00:52:33.387] $ ...future.FUN:function (x, ...) 1553s [00:52:33.387] $ ... : list() 1553s [00:52:33.387] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1553s [00:52:33.387] - attr(*, "where")=List of 2 1553s [00:52:33.387] ..$ ...future.FUN: 1553s [00:52:33.387] ..$ ... : 1553s [00:52:33.387] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1553s [00:52:33.387] - attr(*, "resolved")= logi FALSE 1553s [00:52:33.387] - attr(*, "total_size")= num 4968 1553s [00:52:33.391] Packages to be attached in all futures: [n=1] ‘listenv’ 1553s [00:52:33.391] getGlobalsAndPackagesXApply() ... DONE 1553s [00:52:33.392] Number of futures (= number of chunks): 1 1553s [00:52:33.392] Launching 1 futures (chunks) ... 1553s [00:52:33.392] Chunk #1 of 1 ... 1553s [00:52:33.392] - Finding globals in 'X' for chunk #1 ... 1553s [00:52:33.393] getGlobalsAndPackages() ... 1553s [00:52:33.393] Searching for globals... 1553s [00:52:33.394] 1553s [00:52:33.394] Searching for globals ... DONE 1553s [00:52:33.394] - globals: [0] 1553s [00:52:33.394] getGlobalsAndPackages() ... DONE 1553s [00:52:33.394] + additional globals found: [n=0] 1553s [00:52:33.394] + additional namespaces needed: [n=0] 1553s [00:52:33.394] - Finding globals in 'X' for chunk #1 ... DONE 1553s [00:52:33.395] - seeds: 1553s [00:52:33.395] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1553s [00:52:33.395] getGlobalsAndPackages() ... 1553s [00:52:33.395] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1553s [00:52:33.395] Resolving globals: FALSE 1553s [00:52:33.396] Tweak future expression to call with '...' arguments ... 1553s [00:52:33.396] { 1553s [00:52:33.396] do.call(function(...) { 1553s [00:52:33.396] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1553s [00:52:33.396] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1553s [00:52:33.396] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1553s [00:52:33.396] on.exit(options(oopts), add = TRUE) 1553s [00:52:33.396] } 1553s [00:52:33.396] { 1553s [00:52:33.396] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1553s [00:52:33.396] ...future.X_jj <- ...future.elements_ii[[jj]] 1553s [00:52:33.396] ...future.FUN(...future.X_jj, ...) 1553s [00:52:33.396] }) 1553s [00:52:33.396] } 1553s [00:52:33.396] }, args = future.call.arguments) 1553s [00:52:33.396] } 1553s [00:52:33.396] Tweak future expression to call with '...' arguments ... DONE 1553s [00:52:33.397] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1553s [00:52:33.397] - packages: [1] ‘listenv’ 1553s [00:52:33.397] getGlobalsAndPackages() ... DONE 1553s [00:52:33.398] run() for ‘Future’ ... 1553s [00:52:33.398] - state: ‘created’ 1553s [00:52:33.398] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1553s [00:52:33.403] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1553s [00:52:33.404] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1553s [00:52:33.404] - Field: ‘label’ 1553s [00:52:33.404] - Field: ‘local’ 1553s [00:52:33.405] - Field: ‘owner’ 1553s [00:52:33.405] - Field: ‘envir’ 1553s [00:52:33.405] - Field: ‘packages’ 1553s [00:52:33.406] - Field: ‘gc’ 1553s [00:52:33.406] - Field: ‘conditions’ 1553s [00:52:33.406] - Field: ‘expr’ 1553s [00:52:33.406] - Field: ‘uuid’ 1553s [00:52:33.406] - Field: ‘seed’ 1553s [00:52:33.407] - Field: ‘version’ 1553s [00:52:33.407] - Field: ‘result’ 1553s [00:52:33.407] - Field: ‘asynchronous’ 1553s [00:52:33.407] - Field: ‘calls’ 1553s [00:52:33.407] - Field: ‘globals’ 1553s [00:52:33.407] - Field: ‘stdout’ 1553s [00:52:33.407] - Field: ‘earlySignal’ 1553s [00:52:33.408] - Field: ‘lazy’ 1553s [00:52:33.408] - Field: ‘state’ 1553s [00:52:33.408] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1553s [00:52:33.408] - Launch lazy future ... 1553s [00:52:33.409] Packages needed by the future expression (n = 1): ‘listenv’ 1553s [00:52:33.409] Packages needed by future strategies (n = 0): 1553s [00:52:33.410] { 1553s [00:52:33.410] { 1553s [00:52:33.410] { 1553s [00:52:33.410] ...future.startTime <- base::Sys.time() 1553s [00:52:33.410] { 1553s [00:52:33.410] { 1553s [00:52:33.410] { 1553s [00:52:33.410] { 1553s [00:52:33.410] base::local({ 1553s [00:52:33.410] has_future <- base::requireNamespace("future", 1553s [00:52:33.410] quietly = TRUE) 1553s [00:52:33.410] if (has_future) { 1553s [00:52:33.410] ns <- base::getNamespace("future") 1553s [00:52:33.410] version <- ns[[".package"]][["version"]] 1553s [00:52:33.410] if (is.null(version)) 1553s [00:52:33.410] version <- utils::packageVersion("future") 1553s [00:52:33.410] } 1553s [00:52:33.410] else { 1553s [00:52:33.410] version <- NULL 1553s [00:52:33.410] } 1553s [00:52:33.410] if (!has_future || version < "1.8.0") { 1553s [00:52:33.410] info <- base::c(r_version = base::gsub("R version ", 1553s [00:52:33.410] "", base::R.version$version.string), 1553s [00:52:33.410] platform = base::sprintf("%s (%s-bit)", 1553s [00:52:33.410] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1553s [00:52:33.410] os = base::paste(base::Sys.info()[base::c("sysname", 1553s [00:52:33.410] "release", "version")], collapse = " "), 1553s [00:52:33.410] hostname = base::Sys.info()[["nodename"]]) 1553s [00:52:33.410] info <- base::sprintf("%s: %s", base::names(info), 1553s [00:52:33.410] info) 1553s [00:52:33.410] info <- base::paste(info, collapse = "; ") 1553s [00:52:33.410] if (!has_future) { 1553s [00:52:33.410] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1553s [00:52:33.410] info) 1553s [00:52:33.410] } 1553s [00:52:33.410] else { 1553s [00:52:33.410] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1553s [00:52:33.410] info, version) 1553s [00:52:33.410] } 1553s [00:52:33.410] base::stop(msg) 1553s [00:52:33.410] } 1553s [00:52:33.410] }) 1553s [00:52:33.410] } 1553s [00:52:33.410] base::local({ 1553s [00:52:33.410] for (pkg in "listenv") { 1553s [00:52:33.410] base::loadNamespace(pkg) 1553s [00:52:33.410] base::library(pkg, character.only = TRUE) 1553s [00:52:33.410] } 1553s [00:52:33.410] }) 1553s [00:52:33.410] } 1553s [00:52:33.410] options(future.plan = NULL) 1553s [00:52:33.410] Sys.unsetenv("R_FUTURE_PLAN") 1553s [00:52:33.410] future::plan("default", .cleanup = FALSE, .init = FALSE) 1553s [00:52:33.410] } 1553s [00:52:33.410] ...future.workdir <- getwd() 1553s [00:52:33.410] } 1553s [00:52:33.410] ...future.oldOptions <- base::as.list(base::.Options) 1553s [00:52:33.410] ...future.oldEnvVars <- base::Sys.getenv() 1553s [00:52:33.410] } 1553s [00:52:33.410] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1553s [00:52:33.410] future.globals.maxSize = NULL, future.globals.method = NULL, 1553s [00:52:33.410] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1553s [00:52:33.410] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1553s [00:52:33.410] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1553s [00:52:33.410] future.stdout.windows.reencode = NULL, width = 80L) 1553s [00:52:33.410] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1553s [00:52:33.410] base::names(...future.oldOptions)) 1553s [00:52:33.410] } 1553s [00:52:33.410] if (FALSE) { 1553s [00:52:33.410] } 1553s [00:52:33.410] else { 1553s [00:52:33.410] if (TRUE) { 1553s [00:52:33.410] ...future.stdout <- base::rawConnection(base::raw(0L), 1553s [00:52:33.410] open = "w") 1553s [00:52:33.410] } 1553s [00:52:33.410] else { 1553s [00:52:33.410] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1553s [00:52:33.410] windows = "NUL", "/dev/null"), open = "w") 1553s [00:52:33.410] } 1553s [00:52:33.410] base::sink(...future.stdout, type = "output", split = FALSE) 1553s [00:52:33.410] base::on.exit(if (!base::is.null(...future.stdout)) { 1553s [00:52:33.410] base::sink(type = "output", split = FALSE) 1553s [00:52:33.410] base::close(...future.stdout) 1553s [00:52:33.410] }, add = TRUE) 1553s [00:52:33.410] } 1553s [00:52:33.410] ...future.frame <- base::sys.nframe() 1553s [00:52:33.410] ...future.conditions <- base::list() 1553s [00:52:33.410] ...future.rng <- base::globalenv()$.Random.seed 1553s [00:52:33.410] if (FALSE) { 1553s [00:52:33.410] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1553s [00:52:33.410] "...future.value", "...future.globalenv.names", ".Random.seed") 1553s [00:52:33.410] } 1553s [00:52:33.410] ...future.result <- base::tryCatch({ 1553s [00:52:33.410] base::withCallingHandlers({ 1553s [00:52:33.410] ...future.value <- base::withVisible(base::local({ 1553s [00:52:33.410] do.call(function(...) { 1553s [00:52:33.410] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1553s [00:52:33.410] if (!identical(...future.globals.maxSize.org, 1553s [00:52:33.410] ...future.globals.maxSize)) { 1553s [00:52:33.410] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1553s [00:52:33.410] on.exit(options(oopts), add = TRUE) 1553s [00:52:33.410] } 1553s [00:52:33.410] { 1553s [00:52:33.410] lapply(seq_along(...future.elements_ii), 1553s [00:52:33.410] FUN = function(jj) { 1553s [00:52:33.410] ...future.X_jj <- ...future.elements_ii[[jj]] 1553s [00:52:33.410] ...future.FUN(...future.X_jj, ...) 1553s [00:52:33.410] }) 1553s [00:52:33.410] } 1553s [00:52:33.410] }, args = future.call.arguments) 1553s [00:52:33.410] })) 1553s [00:52:33.410] future::FutureResult(value = ...future.value$value, 1553s [00:52:33.410] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1553s [00:52:33.410] ...future.rng), globalenv = if (FALSE) 1553s [00:52:33.410] list(added = base::setdiff(base::names(base::.GlobalEnv), 1553s [00:52:33.410] ...future.globalenv.names)) 1553s [00:52:33.410] else NULL, started = ...future.startTime, version = "1.8") 1553s [00:52:33.410] }, condition = base::local({ 1553s [00:52:33.410] c <- base::c 1553s [00:52:33.410] inherits <- base::inherits 1553s [00:52:33.410] invokeRestart <- base::invokeRestart 1553s [00:52:33.410] length <- base::length 1553s [00:52:33.410] list <- base::list 1553s [00:52:33.410] seq.int <- base::seq.int 1553s [00:52:33.410] signalCondition <- base::signalCondition 1553s [00:52:33.410] sys.calls <- base::sys.calls 1553s [00:52:33.410] `[[` <- base::`[[` 1553s [00:52:33.410] `+` <- base::`+` 1553s [00:52:33.410] `<<-` <- base::`<<-` 1553s [00:52:33.410] sysCalls <- function(calls = sys.calls(), from = 1L) { 1553s [00:52:33.410] calls[seq.int(from = from + 12L, to = length(calls) - 1553s [00:52:33.410] 3L)] 1553s [00:52:33.410] } 1553s [00:52:33.410] function(cond) { 1553s [00:52:33.410] is_error <- inherits(cond, "error") 1553s [00:52:33.410] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1553s [00:52:33.410] NULL) 1553s [00:52:33.410] if (is_error) { 1553s [00:52:33.410] sessionInformation <- function() { 1553s [00:52:33.410] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1553s [00:52:33.410] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1553s [00:52:33.410] search = base::search(), system = base::Sys.info()) 1553s [00:52:33.410] } 1553s [00:52:33.410] ...future.conditions[[length(...future.conditions) + 1553s [00:52:33.410] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1553s [00:52:33.410] cond$call), session = sessionInformation(), 1553s [00:52:33.410] timestamp = base::Sys.time(), signaled = 0L) 1553s [00:52:33.410] signalCondition(cond) 1553s [00:52:33.410] } 1553s [00:52:33.410] else if (!ignore && TRUE && inherits(cond, c("condition", 1553s [00:52:33.410] "immediateCondition"))) { 1553s [00:52:33.410] signal <- TRUE && inherits(cond, "immediateCondition") 1553s [00:52:33.410] ...future.conditions[[length(...future.conditions) + 1553s [00:52:33.410] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1553s [00:52:33.410] if (TRUE && !signal) { 1553s [00:52:33.410] muffleCondition <- function (cond, pattern = "^muffle") 1553s [00:52:33.410] { 1553s [00:52:33.410] inherits <- base::inherits 1553s [00:52:33.410] invokeRestart <- base::invokeRestart 1553s [00:52:33.410] is.null <- base::is.null 1553s [00:52:33.410] muffled <- FALSE 1553s [00:52:33.410] if (inherits(cond, "message")) { 1553s [00:52:33.410] muffled <- grepl(pattern, "muffleMessage") 1553s [00:52:33.410] if (muffled) 1553s [00:52:33.410] invokeRestart("muffleMessage") 1553s [00:52:33.410] } 1553s [00:52:33.410] else if (inherits(cond, "warning")) { 1553s [00:52:33.410] muffled <- grepl(pattern, "muffleWarning") 1553s [00:52:33.410] if (muffled) 1553s [00:52:33.410] invokeRestart("muffleWarning") 1553s [00:52:33.410] } 1553s [00:52:33.410] else if (inherits(cond, "condition")) { 1553s [00:52:33.410] if (!is.null(pattern)) { 1553s [00:52:33.410] computeRestarts <- base::computeRestarts 1553s [00:52:33.410] grepl <- base::grepl 1553s [00:52:33.410] restarts <- computeRestarts(cond) 1553s [00:52:33.410] for (restart in restarts) { 1553s [00:52:33.410] name <- restart$name 1553s [00:52:33.410] if (is.null(name)) 1553s [00:52:33.410] next 1553s [00:52:33.410] if (!grepl(pattern, name)) 1553s [00:52:33.410] next 1553s [00:52:33.410] invokeRestart(restart) 1553s [00:52:33.410] muffled <- TRUE 1553s [00:52:33.410] break 1553s [00:52:33.410] } 1553s [00:52:33.410] } 1553s [00:52:33.410] } 1553s [00:52:33.410] invisible(muffled) 1553s [00:52:33.410] } 1553s [00:52:33.410] muffleCondition(cond, pattern = "^muffle") 1553s [00:52:33.410] } 1553s [00:52:33.410] } 1553s [00:52:33.410] else { 1553s [00:52:33.410] if (TRUE) { 1553s [00:52:33.410] muffleCondition <- function (cond, pattern = "^muffle") 1553s [00:52:33.410] { 1553s [00:52:33.410] inherits <- base::inherits 1553s [00:52:33.410] invokeRestart <- base::invokeRestart 1553s [00:52:33.410] is.null <- base::is.null 1553s [00:52:33.410] muffled <- FALSE 1553s [00:52:33.410] if (inherits(cond, "message")) { 1553s [00:52:33.410] muffled <- grepl(pattern, "muffleMessage") 1553s [00:52:33.410] if (muffled) 1553s [00:52:33.410] invokeRestart("muffleMessage") 1553s [00:52:33.410] } 1553s [00:52:33.410] else if (inherits(cond, "warning")) { 1553s [00:52:33.410] muffled <- grepl(pattern, "muffleWarning") 1553s [00:52:33.410] if (muffled) 1553s [00:52:33.410] invokeRestart("muffleWarning") 1553s [00:52:33.410] } 1553s [00:52:33.410] else if (inherits(cond, "condition")) { 1553s [00:52:33.410] if (!is.null(pattern)) { 1553s [00:52:33.410] computeRestarts <- base::computeRestarts 1553s [00:52:33.410] grepl <- base::grepl 1553s [00:52:33.410] restarts <- computeRestarts(cond) 1553s [00:52:33.410] for (restart in restarts) { 1553s [00:52:33.410] name <- restart$name 1553s [00:52:33.410] if (is.null(name)) 1553s [00:52:33.410] next 1553s [00:52:33.410] if (!grepl(pattern, name)) 1553s [00:52:33.410] next 1553s [00:52:33.410] invokeRestart(restart) 1553s [00:52:33.410] muffled <- TRUE 1553s [00:52:33.410] break 1553s [00:52:33.410] } 1553s [00:52:33.410] } 1553s [00:52:33.410] } 1553s [00:52:33.410] invisible(muffled) 1553s [00:52:33.410] } 1553s [00:52:33.410] muffleCondition(cond, pattern = "^muffle") 1553s [00:52:33.410] } 1553s [00:52:33.410] } 1553s [00:52:33.410] } 1553s [00:52:33.410] })) 1553s [00:52:33.410] }, error = function(ex) { 1553s [00:52:33.410] base::structure(base::list(value = NULL, visible = NULL, 1553s [00:52:33.410] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1553s [00:52:33.410] ...future.rng), started = ...future.startTime, 1553s [00:52:33.410] finished = Sys.time(), session_uuid = NA_character_, 1553s [00:52:33.410] version = "1.8"), class = "FutureResult") 1553s [00:52:33.410] }, finally = { 1553s [00:52:33.410] if (!identical(...future.workdir, getwd())) 1553s [00:52:33.410] setwd(...future.workdir) 1553s [00:52:33.410] { 1553s [00:52:33.410] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1553s [00:52:33.410] ...future.oldOptions$nwarnings <- NULL 1553s [00:52:33.410] } 1553s [00:52:33.410] base::options(...future.oldOptions) 1553s [00:52:33.410] if (.Platform$OS.type == "windows") { 1553s [00:52:33.410] old_names <- names(...future.oldEnvVars) 1553s [00:52:33.410] envs <- base::Sys.getenv() 1553s [00:52:33.410] names <- names(envs) 1553s [00:52:33.410] common <- intersect(names, old_names) 1553s [00:52:33.410] added <- setdiff(names, old_names) 1553s [00:52:33.410] removed <- setdiff(old_names, names) 1553s [00:52:33.410] changed <- common[...future.oldEnvVars[common] != 1553s [00:52:33.410] envs[common]] 1553s [00:52:33.410] NAMES <- toupper(changed) 1553s [00:52:33.410] args <- list() 1553s [00:52:33.410] for (kk in seq_along(NAMES)) { 1553s [00:52:33.410] name <- changed[[kk]] 1553s [00:52:33.410] NAME <- NAMES[[kk]] 1553s [00:52:33.410] if (name != NAME && is.element(NAME, old_names)) 1553s [00:52:33.410] next 1553s [00:52:33.410] args[[name]] <- ...future.oldEnvVars[[name]] 1553s [00:52:33.410] } 1553s [00:52:33.410] NAMES <- toupper(added) 1553s [00:52:33.410] for (kk in seq_along(NAMES)) { 1553s [00:52:33.410] name <- added[[kk]] 1553s [00:52:33.410] NAME <- NAMES[[kk]] 1553s [00:52:33.410] if (name != NAME && is.element(NAME, old_names)) 1553s [00:52:33.410] next 1553s [00:52:33.410] args[[name]] <- "" 1553s [00:52:33.410] } 1553s [00:52:33.410] NAMES <- toupper(removed) 1553s [00:52:33.410] for (kk in seq_along(NAMES)) { 1553s [00:52:33.410] name <- removed[[kk]] 1553s [00:52:33.410] NAME <- NAMES[[kk]] 1553s [00:52:33.410] if (name != NAME && is.element(NAME, old_names)) 1553s [00:52:33.410] next 1553s [00:52:33.410] args[[name]] <- ...future.oldEnvVars[[name]] 1553s [00:52:33.410] } 1553s [00:52:33.410] if (length(args) > 0) 1553s [00:52:33.410] base::do.call(base::Sys.setenv, args = args) 1553s [00:52:33.410] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1553s [00:52:33.410] } 1553s [00:52:33.410] else { 1553s [00:52:33.410] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1553s [00:52:33.410] } 1553s [00:52:33.410] { 1553s [00:52:33.410] if (base::length(...future.futureOptionsAdded) > 1553s [00:52:33.410] 0L) { 1553s [00:52:33.410] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1553s [00:52:33.410] base::names(opts) <- ...future.futureOptionsAdded 1553s [00:52:33.410] base::options(opts) 1553s [00:52:33.410] } 1553s [00:52:33.410] { 1553s [00:52:33.410] { 1553s [00:52:33.410] NULL 1553s [00:52:33.410] RNGkind("Mersenne-Twister") 1553s [00:52:33.410] base::rm(list = ".Random.seed", envir = base::globalenv(), 1553s [00:52:33.410] inherits = FALSE) 1553s [00:52:33.410] } 1553s [00:52:33.410] options(future.plan = NULL) 1553s [00:52:33.410] if (is.na(NA_character_)) 1553s [00:52:33.410] Sys.unsetenv("R_FUTURE_PLAN") 1553s [00:52:33.410] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1553s [00:52:33.410] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1553s [00:52:33.410] envir = parent.frame()) 1553s [00:52:33.410] { 1553s [00:52:33.410] default_workers <- missing(workers) 1553s [00:52:33.410] if (is.function(workers)) 1553s [00:52:33.410] workers <- workers() 1553s [00:52:33.410] workers <- structure(as.integer(workers), 1553s [00:52:33.410] class = class(workers)) 1553s [00:52:33.410] stop_if_not(is.finite(workers), workers >= 1553s [00:52:33.410] 1L) 1553s [00:52:33.410] if ((workers == 1L && !inherits(workers, 1553s [00:52:33.410] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1553s [00:52:33.410] if (default_workers) 1553s [00:52:33.410] supportsMulticore(warn = TRUE) 1553s [00:52:33.410] return(sequential(..., envir = envir)) 1553s [00:52:33.410] } 1553s [00:52:33.410] oopts <- options(mc.cores = workers) 1553s [00:52:33.410] on.exit(options(oopts)) 1553s [00:52:33.410] future <- MulticoreFuture(..., workers = workers, 1553s [00:52:33.410] envir = envir) 1553s [00:52:33.410] if (!future$lazy) 1553s [00:52:33.410] future <- run(future) 1553s [00:52:33.410] invisible(future) 1553s [00:52:33.410] }), .cleanup = FALSE, .init = FALSE) 1553s [00:52:33.410] } 1553s [00:52:33.410] } 1553s [00:52:33.410] } 1553s [00:52:33.410] }) 1553s [00:52:33.410] if (TRUE) { 1553s [00:52:33.410] base::sink(type = "output", split = FALSE) 1553s [00:52:33.410] if (TRUE) { 1553s [00:52:33.410] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1553s [00:52:33.410] } 1553s [00:52:33.410] else { 1553s [00:52:33.410] ...future.result["stdout"] <- base::list(NULL) 1553s [00:52:33.410] } 1553s [00:52:33.410] base::close(...future.stdout) 1553s [00:52:33.410] ...future.stdout <- NULL 1553s [00:52:33.410] } 1553s [00:52:33.410] ...future.result$conditions <- ...future.conditions 1553s [00:52:33.410] ...future.result$finished <- base::Sys.time() 1553s [00:52:33.410] ...future.result 1553s [00:52:33.410] } 1553s [00:52:33.416] assign_globals() ... 1553s [00:52:33.416] List of 5 1553s [00:52:33.416] $ ...future.FUN :function (x, ...) 1553s [00:52:33.416] $ future.call.arguments : list() 1553s [00:52:33.416] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1553s [00:52:33.416] $ ...future.elements_ii :List of 2 1553s [00:52:33.416] ..$ a:Classes 'listenv', 'environment' 1553s [00:52:33.416] ..$ b:Classes 'listenv', 'environment' 1553s [00:52:33.416] $ ...future.seeds_ii : NULL 1553s [00:52:33.416] $ ...future.globals.maxSize: NULL 1553s [00:52:33.416] - attr(*, "where")=List of 5 1553s [00:52:33.416] ..$ ...future.FUN : 1553s [00:52:33.416] ..$ future.call.arguments : 1553s [00:52:33.416] ..$ ...future.elements_ii : 1553s [00:52:33.416] ..$ ...future.seeds_ii : 1553s [00:52:33.416] ..$ ...future.globals.maxSize: 1553s [00:52:33.416] - attr(*, "resolved")= logi FALSE 1553s [00:52:33.416] - attr(*, "total_size")= num 4968 1553s [00:52:33.416] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1553s [00:52:33.416] - attr(*, "already-done")= logi TRUE 1553s [00:52:33.430] - copied ‘...future.FUN’ to environment 1553s [00:52:33.430] - copied ‘future.call.arguments’ to environment 1553s [00:52:33.430] - copied ‘...future.elements_ii’ to environment 1553s [00:52:33.430] - copied ‘...future.seeds_ii’ to environment 1553s [00:52:33.431] - copied ‘...future.globals.maxSize’ to environment 1553s [00:52:33.431] assign_globals() ... done 1553s [00:52:33.432] plan(): Setting new future strategy stack: 1553s [00:52:33.432] List of future strategies: 1553s [00:52:33.432] 1. sequential: 1553s [00:52:33.432] - args: function (..., envir = parent.frame()) 1553s [00:52:33.432] - tweaked: FALSE 1553s [00:52:33.432] - call: NULL 1553s [00:52:33.433] plan(): nbrOfWorkers() = 1 1553s [00:52:33.434] plan(): Setting new future strategy stack: 1553s [00:52:33.434] List of future strategies: 1553s [00:52:33.434] 1. multicore: 1553s [00:52:33.434] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1553s [00:52:33.434] - tweaked: FALSE 1553s [00:52:33.434] - call: plan(strategy) 1553s [00:52:33.438] plan(): nbrOfWorkers() = 1 1553s [00:52:33.438] SequentialFuture started (and completed) 1553s [00:52:33.438] - Launch lazy future ... done 1553s [00:52:33.438] run() for ‘SequentialFuture’ ... done 1553s [00:52:33.438] Created future: 1553s [00:52:33.438] SequentialFuture: 1553s [00:52:33.438] Label: ‘future_lapply-1’ 1553s [00:52:33.438] Expression: 1553s [00:52:33.438] { 1553s [00:52:33.438] do.call(function(...) { 1553s [00:52:33.438] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1553s [00:52:33.438] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1553s [00:52:33.438] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1553s [00:52:33.438] on.exit(options(oopts), add = TRUE) 1553s [00:52:33.438] } 1553s [00:52:33.438] { 1553s [00:52:33.438] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1553s [00:52:33.438] ...future.X_jj <- ...future.elements_ii[[jj]] 1553s [00:52:33.438] ...future.FUN(...future.X_jj, ...) 1553s [00:52:33.438] }) 1553s [00:52:33.438] } 1553s [00:52:33.438] }, args = future.call.arguments) 1553s [00:52:33.438] } 1553s [00:52:33.438] Lazy evaluation: FALSE 1553s [00:52:33.438] Asynchronous evaluation: FALSE 1553s [00:52:33.438] Local evaluation: TRUE 1553s [00:52:33.438] Environment: R_GlobalEnv 1553s [00:52:33.438] Capture standard output: TRUE 1553s [00:52:33.438] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1553s [00:52:33.438] Globals: 5 objects totaling 17.90 KiB (function ‘...future.FUN’ of 4.85 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 13.05 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1553s [00:52:33.438] Packages: 1 packages (‘listenv’) 1553s [00:52:33.438] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1553s [00:52:33.438] Resolved: TRUE 1553s [00:52:33.438] Value: 800 bytes of class ‘list’ 1553s [00:52:33.438] Early signaling: FALSE 1553s [00:52:33.438] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1553s [00:52:33.438] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1553s [00:52:33.440] Chunk #1 of 1 ... DONE 1553s [00:52:33.440] Launching 1 futures (chunks) ... DONE 1553s [00:52:33.441] Resolving 1 futures (chunks) ... 1553s [00:52:33.441] resolve() on list ... 1553s [00:52:33.441] recursive: 0 1553s [00:52:33.441] length: 1 1553s [00:52:33.441] 1553s [00:52:33.442] resolved() for ‘SequentialFuture’ ... 1553s [00:52:33.442] - state: ‘finished’ 1553s [00:52:33.442] - run: TRUE 1553s [00:52:33.442] - result: ‘FutureResult’ 1553s [00:52:33.442] resolved() for ‘SequentialFuture’ ... done 1553s [00:52:33.442] Future #1 1553s [00:52:33.443] signalConditionsASAP(SequentialFuture, pos=1) ... 1553s [00:52:33.443] - nx: 1 1553s [00:52:33.443] - relay: TRUE 1553s [00:52:33.443] - stdout: TRUE 1553s [00:52:33.443] - signal: TRUE 1553s [00:52:33.443] - resignal: FALSE 1553s [00:52:33.443] - force: TRUE 1553s [00:52:33.444] - relayed: [n=1] FALSE 1553s [00:52:33.444] - queued futures: [n=1] FALSE 1553s [00:52:33.444] - until=1 1553s [00:52:33.444] - relaying element #1 1553s [00:52:33.444] - relayed: [n=1] TRUE 1553s [00:52:33.445] - queued futures: [n=1] TRUE 1553s [00:52:33.445] signalConditionsASAP(SequentialFuture, pos=1) ... done 1553s [00:52:33.445] length: 0 (resolved future 1) 1553s [00:52:33.445] Relaying remaining futures 1553s [00:52:33.445] signalConditionsASAP(NULL, pos=0) ... 1553s [00:52:33.446] - nx: 1 1553s [00:52:33.446] - relay: TRUE 1553s [00:52:33.446] - stdout: TRUE 1553s [00:52:33.446] - signal: TRUE 1553s [00:52:33.446] - resignal: FALSE 1553s [00:52:33.447] - force: TRUE 1553s [00:52:33.447] - relayed: [n=1] TRUE 1553s [00:52:33.447] - queued futures: [n=1] TRUE 1553s - flush all 1553s [00:52:33.448] - relayed: [n=1] TRUE 1553s [00:52:33.448] - queued futures: [n=1] TRUE 1553s [00:52:33.448] signalConditionsASAP(NULL, pos=0) ... done 1553s [00:52:33.449] resolve() on list ... DONE 1553s [00:52:33.449] - Number of value chunks collected: 1 1553s [00:52:33.449] Resolving 1 futures (chunks) ... DONE 1553s [00:52:33.449] Reducing values from 1 chunks ... 1553s [00:52:33.450] - Number of values collected after concatenation: 2 1553s [00:52:33.450] - Number of values expected: 2 1553s [00:52:33.450] Reverse index remapping (attribute 'ordering'): [n = 2] 1, 2 1553s [00:52:33.450] Reducing values from 1 chunks ... DONE 1553s [00:52:33.450] future_lapply() ... DONE 1553s List of 1 1553s $ y:List of 2 1553s ..$ a: Named chr "A" 1553s .. ..- attr(*, "names")= chr "A" 1553s ..$ b: Named chr [1:2] "A" "B" 1553s .. ..- attr(*, "names")= chr [1:2] "A" "B" 1553s - future_lapply(x, FUN = vector, ...) ... 1553s [00:52:33.455] future_lapply() ... 1553s [00:52:33.459] Number of chunks: 1 1553s [00:52:33.460] Index remapping (attribute 'ordering'): [n = 4] 4, 3, 2, 1 1553s [00:52:33.460] getGlobalsAndPackagesXApply() ... 1553s [00:52:33.460] - future.globals: TRUE 1553s [00:52:33.460] getGlobalsAndPackages() ... 1553s [00:52:33.460] Searching for globals... 1553s [00:52:33.465] - globals found: [2] ‘FUN’, ‘.Internal’ 1553s [00:52:33.465] Searching for globals ... DONE 1553s [00:52:33.465] Resolving globals: FALSE 1553s [00:52:33.466] The total size of the 1 globals is 2.13 KiB (2184 bytes) 1553s [00:52:33.466] The total size of the 1 globals exported for future expression (‘FUN(length = 2L)’) is 2.13 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (2.13 KiB of class ‘function’) 1553s [00:52:33.467] - globals: [1] ‘FUN’ 1553s [00:52:33.467] 1553s [00:52:33.467] getGlobalsAndPackages() ... DONE 1553s [00:52:33.468] - globals found/used: [n=1] ‘FUN’ 1553s [00:52:33.468] - needed namespaces: [n=0] 1553s [00:52:33.468] Finding globals ... DONE 1553s [00:52:33.469] - use_args: TRUE 1553s [00:52:33.469] - Getting '...' globals ... 1553s [00:52:33.469] resolve() on list ... 1553s [00:52:33.469] recursive: 0 1553s [00:52:33.469] length: 1 1553s [00:52:33.469] elements: ‘...’ 1553s [00:52:33.470] length: 0 (resolved future 1) 1553s [00:52:33.470] resolve() on list ... DONE 1553s [00:52:33.470] - '...' content: [n=1] ‘length’ 1553s [00:52:33.471] List of 1 1553s [00:52:33.471] $ ...:List of 1 1553s [00:52:33.471] ..$ length: int 2 1553s [00:52:33.471] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1553s [00:52:33.471] - attr(*, "where")=List of 1 1553s [00:52:33.471] ..$ ...: 1553s [00:52:33.471] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1553s [00:52:33.471] - attr(*, "resolved")= logi TRUE 1553s [00:52:33.471] - attr(*, "total_size")= num NA 1553s [00:52:33.477] - Getting '...' globals ... DONE 1553s [00:52:33.477] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1553s [00:52:33.477] List of 2 1553s [00:52:33.477] $ ...future.FUN:function (mode = "logical", length = 0L) 1553s [00:52:33.477] $ ... :List of 1 1553s [00:52:33.477] ..$ length: int 2 1553s [00:52:33.477] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1553s [00:52:33.477] - attr(*, "where")=List of 2 1553s [00:52:33.477] ..$ ...future.FUN: 1553s [00:52:33.477] ..$ ... : 1553s [00:52:33.477] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1553s [00:52:33.477] - attr(*, "resolved")= logi FALSE 1553s [00:52:33.477] - attr(*, "total_size")= num 2240 1553s [00:52:33.484] Packages to be attached in all futures: [n=0] 1553s [00:52:33.484] getGlobalsAndPackagesXApply() ... DONE 1553s [00:52:33.484] Number of futures (= number of chunks): 1 1553s [00:52:33.485] Launching 1 futures (chunks) ... 1553s [00:52:33.485] Chunk #1 of 1 ... 1553s [00:52:33.486] - Finding globals in 'X' for chunk #1 ... 1553s [00:52:33.486] getGlobalsAndPackages() ... 1553s [00:52:33.486] Searching for globals... 1553s [00:52:33.486] 1553s [00:52:33.486] Searching for globals ... DONE 1553s [00:52:33.487] - globals: [0] 1553s [00:52:33.487] getGlobalsAndPackages() ... DONE 1553s [00:52:33.487] + additional globals found: [n=0] 1553s [00:52:33.487] + additional namespaces needed: [n=0] 1553s [00:52:33.488] - Finding globals in 'X' for chunk #1 ... DONE 1553s [00:52:33.488] - seeds: 1553s [00:52:33.488] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1553s [00:52:33.489] getGlobalsAndPackages() ... 1553s [00:52:33.489] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1553s [00:52:33.489] Resolving globals: FALSE 1553s [00:52:33.489] Tweak future expression to call with '...' arguments ... 1553s [00:52:33.490] { 1553s [00:52:33.490] do.call(function(...) { 1553s [00:52:33.490] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1553s [00:52:33.490] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1553s [00:52:33.490] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1553s [00:52:33.490] on.exit(options(oopts), add = TRUE) 1553s [00:52:33.490] } 1553s [00:52:33.490] { 1553s [00:52:33.490] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1553s [00:52:33.490] ...future.X_jj <- ...future.elements_ii[[jj]] 1553s [00:52:33.490] ...future.FUN(...future.X_jj, ...) 1553s [00:52:33.490] }) 1553s [00:52:33.490] } 1553s [00:52:33.490] }, args = future.call.arguments) 1553s [00:52:33.490] } 1553s [00:52:33.491] Tweak future expression to call with '...' arguments ... DONE 1553s [00:52:33.491] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1553s [00:52:33.492] 1553s [00:52:33.492] getGlobalsAndPackages() ... DONE 1553s [00:52:33.492] run() for ‘Future’ ... 1553s [00:52:33.492] - state: ‘created’ 1553s [00:52:33.492] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1553s [00:52:33.499] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1553s [00:52:33.500] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1553s [00:52:33.500] - Field: ‘label’ 1553s [00:52:33.500] - Field: ‘local’ 1553s [00:52:33.500] - Field: ‘owner’ 1553s [00:52:33.501] - Field: ‘envir’ 1553s [00:52:33.501] - Field: ‘packages’ 1553s [00:52:33.501] - Field: ‘gc’ 1553s [00:52:33.502] - Field: ‘conditions’ 1553s [00:52:33.502] - Field: ‘expr’ 1553s [00:52:33.502] - Field: ‘uuid’ 1553s [00:52:33.503] - Field: ‘seed’ 1553s [00:52:33.503] - Field: ‘version’ 1553s [00:52:33.503] - Field: ‘result’ 1553s [00:52:33.504] - Field: ‘asynchronous’ 1553s [00:52:33.504] - Field: ‘calls’ 1553s [00:52:33.504] - Field: ‘globals’ 1553s [00:52:33.504] - Field: ‘stdout’ 1553s [00:52:33.504] - Field: ‘earlySignal’ 1553s [00:52:33.505] - Field: ‘lazy’ 1553s [00:52:33.505] - Field: ‘state’ 1553s [00:52:33.505] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1553s [00:52:33.505] - Launch lazy future ... 1553s [00:52:33.506] Packages needed by the future expression (n = 0): 1553s [00:52:33.506] Packages needed by future strategies (n = 0): 1553s [00:52:33.508] { 1553s [00:52:33.508] { 1553s [00:52:33.508] { 1553s [00:52:33.508] ...future.startTime <- base::Sys.time() 1553s [00:52:33.508] { 1553s [00:52:33.508] { 1553s [00:52:33.508] { 1553s [00:52:33.508] base::local({ 1553s [00:52:33.508] has_future <- base::requireNamespace("future", 1553s [00:52:33.508] quietly = TRUE) 1553s [00:52:33.508] if (has_future) { 1553s [00:52:33.508] ns <- base::getNamespace("future") 1553s [00:52:33.508] version <- ns[[".package"]][["version"]] 1553s [00:52:33.508] if (is.null(version)) 1553s [00:52:33.508] version <- utils::packageVersion("future") 1553s [00:52:33.508] } 1553s [00:52:33.508] else { 1553s [00:52:33.508] version <- NULL 1553s [00:52:33.508] } 1553s [00:52:33.508] if (!has_future || version < "1.8.0") { 1553s [00:52:33.508] info <- base::c(r_version = base::gsub("R version ", 1553s [00:52:33.508] "", base::R.version$version.string), 1553s [00:52:33.508] platform = base::sprintf("%s (%s-bit)", 1553s [00:52:33.508] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1553s [00:52:33.508] os = base::paste(base::Sys.info()[base::c("sysname", 1553s [00:52:33.508] "release", "version")], collapse = " "), 1553s [00:52:33.508] hostname = base::Sys.info()[["nodename"]]) 1553s [00:52:33.508] info <- base::sprintf("%s: %s", base::names(info), 1553s [00:52:33.508] info) 1553s [00:52:33.508] info <- base::paste(info, collapse = "; ") 1553s [00:52:33.508] if (!has_future) { 1553s [00:52:33.508] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1553s [00:52:33.508] info) 1553s [00:52:33.508] } 1553s [00:52:33.508] else { 1553s [00:52:33.508] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1553s [00:52:33.508] info, version) 1553s [00:52:33.508] } 1553s [00:52:33.508] base::stop(msg) 1553s [00:52:33.508] } 1553s [00:52:33.508] }) 1553s [00:52:33.508] } 1553s [00:52:33.508] options(future.plan = NULL) 1553s [00:52:33.508] Sys.unsetenv("R_FUTURE_PLAN") 1553s [00:52:33.508] future::plan("default", .cleanup = FALSE, .init = FALSE) 1553s [00:52:33.508] } 1553s [00:52:33.508] ...future.workdir <- getwd() 1553s [00:52:33.508] } 1553s [00:52:33.508] ...future.oldOptions <- base::as.list(base::.Options) 1553s [00:52:33.508] ...future.oldEnvVars <- base::Sys.getenv() 1553s [00:52:33.508] } 1553s [00:52:33.508] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1553s [00:52:33.508] future.globals.maxSize = NULL, future.globals.method = NULL, 1553s [00:52:33.508] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1553s [00:52:33.508] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1553s [00:52:33.508] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1553s [00:52:33.508] future.stdout.windows.reencode = NULL, width = 80L) 1553s [00:52:33.508] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1553s [00:52:33.508] base::names(...future.oldOptions)) 1553s [00:52:33.508] } 1553s [00:52:33.508] if (FALSE) { 1553s [00:52:33.508] } 1553s [00:52:33.508] else { 1553s [00:52:33.508] if (TRUE) { 1553s [00:52:33.508] ...future.stdout <- base::rawConnection(base::raw(0L), 1553s [00:52:33.508] open = "w") 1553s [00:52:33.508] } 1553s [00:52:33.508] else { 1553s [00:52:33.508] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1553s [00:52:33.508] windows = "NUL", "/dev/null"), open = "w") 1553s [00:52:33.508] } 1553s [00:52:33.508] base::sink(...future.stdout, type = "output", split = FALSE) 1553s [00:52:33.508] base::on.exit(if (!base::is.null(...future.stdout)) { 1553s [00:52:33.508] base::sink(type = "output", split = FALSE) 1553s [00:52:33.508] base::close(...future.stdout) 1553s [00:52:33.508] }, add = TRUE) 1553s [00:52:33.508] } 1553s [00:52:33.508] ...future.frame <- base::sys.nframe() 1553s [00:52:33.508] ...future.conditions <- base::list() 1553s [00:52:33.508] ...future.rng <- base::globalenv()$.Random.seed 1553s [00:52:33.508] if (FALSE) { 1553s [00:52:33.508] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1553s [00:52:33.508] "...future.value", "...future.globalenv.names", ".Random.seed") 1553s [00:52:33.508] } 1553s [00:52:33.508] ...future.result <- base::tryCatch({ 1553s [00:52:33.508] base::withCallingHandlers({ 1553s [00:52:33.508] ...future.value <- base::withVisible(base::local({ 1553s [00:52:33.508] do.call(function(...) { 1553s [00:52:33.508] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1553s [00:52:33.508] if (!identical(...future.globals.maxSize.org, 1553s [00:52:33.508] ...future.globals.maxSize)) { 1553s [00:52:33.508] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1553s [00:52:33.508] on.exit(options(oopts), add = TRUE) 1553s [00:52:33.508] } 1553s [00:52:33.508] { 1553s [00:52:33.508] lapply(seq_along(...future.elements_ii), 1553s [00:52:33.508] FUN = function(jj) { 1553s [00:52:33.508] ...future.X_jj <- ...future.elements_ii[[jj]] 1553s [00:52:33.508] ...future.FUN(...future.X_jj, ...) 1553s [00:52:33.508] }) 1553s [00:52:33.508] } 1553s [00:52:33.508] }, args = future.call.arguments) 1553s [00:52:33.508] })) 1553s [00:52:33.508] future::FutureResult(value = ...future.value$value, 1553s [00:52:33.508] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1553s [00:52:33.508] ...future.rng), globalenv = if (FALSE) 1553s [00:52:33.508] list(added = base::setdiff(base::names(base::.GlobalEnv), 1553s [00:52:33.508] ...future.globalenv.names)) 1553s [00:52:33.508] else NULL, started = ...future.startTime, version = "1.8") 1553s [00:52:33.508] }, condition = base::local({ 1553s [00:52:33.508] c <- base::c 1553s [00:52:33.508] inherits <- base::inherits 1553s [00:52:33.508] invokeRestart <- base::invokeRestart 1553s [00:52:33.508] length <- base::length 1553s [00:52:33.508] list <- base::list 1553s [00:52:33.508] seq.int <- base::seq.int 1553s [00:52:33.508] signalCondition <- base::signalCondition 1553s [00:52:33.508] sys.calls <- base::sys.calls 1553s [00:52:33.508] `[[` <- base::`[[` 1553s [00:52:33.508] `+` <- base::`+` 1553s [00:52:33.508] `<<-` <- base::`<<-` 1553s [00:52:33.508] sysCalls <- function(calls = sys.calls(), from = 1L) { 1553s [00:52:33.508] calls[seq.int(from = from + 12L, to = length(calls) - 1553s [00:52:33.508] 3L)] 1553s [00:52:33.508] } 1553s [00:52:33.508] function(cond) { 1553s [00:52:33.508] is_error <- inherits(cond, "error") 1553s [00:52:33.508] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1553s [00:52:33.508] NULL) 1553s [00:52:33.508] if (is_error) { 1553s [00:52:33.508] sessionInformation <- function() { 1553s [00:52:33.508] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1553s [00:52:33.508] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1553s [00:52:33.508] search = base::search(), system = base::Sys.info()) 1553s [00:52:33.508] } 1553s [00:52:33.508] ...future.conditions[[length(...future.conditions) + 1553s [00:52:33.508] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1553s [00:52:33.508] cond$call), session = sessionInformation(), 1553s [00:52:33.508] timestamp = base::Sys.time(), signaled = 0L) 1553s [00:52:33.508] signalCondition(cond) 1553s [00:52:33.508] } 1553s [00:52:33.508] else if (!ignore && TRUE && inherits(cond, c("condition", 1553s [00:52:33.508] "immediateCondition"))) { 1553s [00:52:33.508] signal <- TRUE && inherits(cond, "immediateCondition") 1553s [00:52:33.508] ...future.conditions[[length(...future.conditions) + 1553s [00:52:33.508] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1553s [00:52:33.508] if (TRUE && !signal) { 1553s [00:52:33.508] muffleCondition <- function (cond, pattern = "^muffle") 1553s [00:52:33.508] { 1553s [00:52:33.508] inherits <- base::inherits 1553s [00:52:33.508] invokeRestart <- base::invokeRestart 1553s [00:52:33.508] is.null <- base::is.null 1553s [00:52:33.508] muffled <- FALSE 1553s [00:52:33.508] if (inherits(cond, "message")) { 1553s [00:52:33.508] muffled <- grepl(pattern, "muffleMessage") 1553s [00:52:33.508] if (muffled) 1553s [00:52:33.508] invokeRestart("muffleMessage") 1553s [00:52:33.508] } 1553s [00:52:33.508] else if (inherits(cond, "warning")) { 1553s [00:52:33.508] muffled <- grepl(pattern, "muffleWarning") 1553s [00:52:33.508] if (muffled) 1553s [00:52:33.508] invokeRestart("muffleWarning") 1553s [00:52:33.508] } 1553s [00:52:33.508] else if (inherits(cond, "condition")) { 1553s [00:52:33.508] if (!is.null(pattern)) { 1553s [00:52:33.508] computeRestarts <- base::computeRestarts 1553s [00:52:33.508] grepl <- base::grepl 1553s [00:52:33.508] restarts <- computeRestarts(cond) 1553s [00:52:33.508] for (restart in restarts) { 1553s [00:52:33.508] name <- restart$name 1553s [00:52:33.508] if (is.null(name)) 1553s [00:52:33.508] next 1553s [00:52:33.508] if (!grepl(pattern, name)) 1553s [00:52:33.508] next 1553s [00:52:33.508] invokeRestart(restart) 1553s [00:52:33.508] muffled <- TRUE 1553s [00:52:33.508] break 1553s [00:52:33.508] } 1553s [00:52:33.508] } 1553s [00:52:33.508] } 1553s [00:52:33.508] invisible(muffled) 1553s [00:52:33.508] } 1553s [00:52:33.508] muffleCondition(cond, pattern = "^muffle") 1553s [00:52:33.508] } 1553s [00:52:33.508] } 1553s [00:52:33.508] else { 1553s [00:52:33.508] if (TRUE) { 1553s [00:52:33.508] muffleCondition <- function (cond, pattern = "^muffle") 1553s [00:52:33.508] { 1553s [00:52:33.508] inherits <- base::inherits 1553s [00:52:33.508] invokeRestart <- base::invokeRestart 1553s [00:52:33.508] is.null <- base::is.null 1553s [00:52:33.508] muffled <- FALSE 1553s [00:52:33.508] if (inherits(cond, "message")) { 1553s [00:52:33.508] muffled <- grepl(pattern, "muffleMessage") 1553s [00:52:33.508] if (muffled) 1553s [00:52:33.508] invokeRestart("muffleMessage") 1553s [00:52:33.508] } 1553s [00:52:33.508] else if (inherits(cond, "warning")) { 1553s [00:52:33.508] muffled <- grepl(pattern, "muffleWarning") 1553s [00:52:33.508] if (muffled) 1553s [00:52:33.508] invokeRestart("muffleWarning") 1553s [00:52:33.508] } 1553s [00:52:33.508] else if (inherits(cond, "condition")) { 1553s [00:52:33.508] if (!is.null(pattern)) { 1553s [00:52:33.508] computeRestarts <- base::computeRestarts 1553s [00:52:33.508] grepl <- base::grepl 1553s [00:52:33.508] restarts <- computeRestarts(cond) 1553s [00:52:33.508] for (restart in restarts) { 1553s [00:52:33.508] name <- restart$name 1553s [00:52:33.508] if (is.null(name)) 1553s [00:52:33.508] next 1553s [00:52:33.508] if (!grepl(pattern, name)) 1553s [00:52:33.508] next 1553s [00:52:33.508] invokeRestart(restart) 1553s [00:52:33.508] muffled <- TRUE 1553s [00:52:33.508] break 1553s [00:52:33.508] } 1553s [00:52:33.508] } 1553s [00:52:33.508] } 1553s [00:52:33.508] invisible(muffled) 1553s [00:52:33.508] } 1553s [00:52:33.508] muffleCondition(cond, pattern = "^muffle") 1553s [00:52:33.508] } 1553s [00:52:33.508] } 1553s [00:52:33.508] } 1553s [00:52:33.508] })) 1553s [00:52:33.508] }, error = function(ex) { 1553s [00:52:33.508] base::structure(base::list(value = NULL, visible = NULL, 1553s [00:52:33.508] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1553s [00:52:33.508] ...future.rng), started = ...future.startTime, 1553s [00:52:33.508] finished = Sys.time(), session_uuid = NA_character_, 1553s [00:52:33.508] version = "1.8"), class = "FutureResult") 1553s [00:52:33.508] }, finally = { 1553s [00:52:33.508] if (!identical(...future.workdir, getwd())) 1553s [00:52:33.508] setwd(...future.workdir) 1553s [00:52:33.508] { 1553s [00:52:33.508] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1553s [00:52:33.508] ...future.oldOptions$nwarnings <- NULL 1553s [00:52:33.508] } 1553s [00:52:33.508] base::options(...future.oldOptions) 1553s [00:52:33.508] if (.Platform$OS.type == "windows") { 1553s [00:52:33.508] old_names <- names(...future.oldEnvVars) 1553s [00:52:33.508] envs <- base::Sys.getenv() 1553s [00:52:33.508] names <- names(envs) 1553s [00:52:33.508] common <- intersect(names, old_names) 1553s [00:52:33.508] added <- setdiff(names, old_names) 1553s [00:52:33.508] removed <- setdiff(old_names, names) 1553s [00:52:33.508] changed <- common[...future.oldEnvVars[common] != 1553s [00:52:33.508] envs[common]] 1553s [00:52:33.508] NAMES <- toupper(changed) 1553s [00:52:33.508] args <- list() 1553s [00:52:33.508] for (kk in seq_along(NAMES)) { 1553s [00:52:33.508] name <- changed[[kk]] 1553s [00:52:33.508] NAME <- NAMES[[kk]] 1553s [00:52:33.508] if (name != NAME && is.element(NAME, old_names)) 1553s [00:52:33.508] next 1553s [00:52:33.508] args[[name]] <- ...future.oldEnvVars[[name]] 1553s [00:52:33.508] } 1553s [00:52:33.508] NAMES <- toupper(added) 1553s [00:52:33.508] for (kk in seq_along(NAMES)) { 1553s [00:52:33.508] name <- added[[kk]] 1553s [00:52:33.508] NAME <- NAMES[[kk]] 1553s [00:52:33.508] if (name != NAME && is.element(NAME, old_names)) 1553s [00:52:33.508] next 1553s [00:52:33.508] args[[name]] <- "" 1553s [00:52:33.508] } 1553s [00:52:33.508] NAMES <- toupper(removed) 1553s [00:52:33.508] for (kk in seq_along(NAMES)) { 1553s [00:52:33.508] name <- removed[[kk]] 1553s [00:52:33.508] NAME <- NAMES[[kk]] 1553s [00:52:33.508] if (name != NAME && is.element(NAME, old_names)) 1553s [00:52:33.508] next 1553s [00:52:33.508] args[[name]] <- ...future.oldEnvVars[[name]] 1553s [00:52:33.508] } 1553s [00:52:33.508] if (length(args) > 0) 1553s [00:52:33.508] base::do.call(base::Sys.setenv, args = args) 1553s [00:52:33.508] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1553s [00:52:33.508] } 1553s [00:52:33.508] else { 1553s [00:52:33.508] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1553s [00:52:33.508] } 1553s [00:52:33.508] { 1553s [00:52:33.508] if (base::length(...future.futureOptionsAdded) > 1553s [00:52:33.508] 0L) { 1553s [00:52:33.508] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1553s [00:52:33.508] base::names(opts) <- ...future.futureOptionsAdded 1553s [00:52:33.508] base::options(opts) 1553s [00:52:33.508] } 1553s [00:52:33.508] { 1553s [00:52:33.508] { 1553s [00:52:33.508] NULL 1553s [00:52:33.508] RNGkind("Mersenne-Twister") 1553s [00:52:33.508] base::rm(list = ".Random.seed", envir = base::globalenv(), 1553s [00:52:33.508] inherits = FALSE) 1553s [00:52:33.508] } 1553s [00:52:33.508] options(future.plan = NULL) 1553s [00:52:33.508] if (is.na(NA_character_)) 1553s [00:52:33.508] Sys.unsetenv("R_FUTURE_PLAN") 1553s [00:52:33.508] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1553s [00:52:33.508] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1553s [00:52:33.508] envir = parent.frame()) 1553s [00:52:33.508] { 1553s [00:52:33.508] default_workers <- missing(workers) 1553s [00:52:33.508] if (is.function(workers)) 1553s [00:52:33.508] workers <- workers() 1553s [00:52:33.508] workers <- structure(as.integer(workers), 1553s [00:52:33.508] class = class(workers)) 1553s [00:52:33.508] stop_if_not(is.finite(workers), workers >= 1553s [00:52:33.508] 1L) 1553s [00:52:33.508] if ((workers == 1L && !inherits(workers, 1553s [00:52:33.508] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1553s [00:52:33.508] if (default_workers) 1553s [00:52:33.508] supportsMulticore(warn = TRUE) 1553s [00:52:33.508] return(sequential(..., envir = envir)) 1553s [00:52:33.508] } 1553s [00:52:33.508] oopts <- options(mc.cores = workers) 1553s [00:52:33.508] on.exit(options(oopts)) 1553s [00:52:33.508] future <- MulticoreFuture(..., workers = workers, 1553s [00:52:33.508] envir = envir) 1553s [00:52:33.508] if (!future$lazy) 1553s [00:52:33.508] future <- run(future) 1553s [00:52:33.508] invisible(future) 1553s [00:52:33.508] }), .cleanup = FALSE, .init = FALSE) 1553s [00:52:33.508] } 1553s [00:52:33.508] } 1553s [00:52:33.508] } 1553s [00:52:33.508] }) 1553s [00:52:33.508] if (TRUE) { 1553s [00:52:33.508] base::sink(type = "output", split = FALSE) 1553s [00:52:33.508] if (TRUE) { 1553s [00:52:33.508] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1553s [00:52:33.508] } 1553s [00:52:33.508] else { 1553s [00:52:33.508] ...future.result["stdout"] <- base::list(NULL) 1553s [00:52:33.508] } 1553s [00:52:33.508] base::close(...future.stdout) 1553s [00:52:33.508] ...future.stdout <- NULL 1553s [00:52:33.508] } 1553s [00:52:33.508] ...future.result$conditions <- ...future.conditions 1553s [00:52:33.508] ...future.result$finished <- base::Sys.time() 1553s [00:52:33.508] ...future.result 1553s [00:52:33.508] } 1553s [00:52:33.519] assign_globals() ... 1553s [00:52:33.519] List of 5 1553s [00:52:33.519] $ ...future.FUN :function (mode = "logical", length = 0L) 1553s [00:52:33.519] $ future.call.arguments :List of 1 1553s [00:52:33.519] ..$ length: int 2 1553s [00:52:33.519] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1553s [00:52:33.519] $ ...future.elements_ii :List of 4 1553s [00:52:33.519] ..$ c: chr "list" 1553s [00:52:33.519] ..$ c: chr "character" 1553s [00:52:33.519] ..$ b: chr "numeric" 1553s [00:52:33.519] ..$ a: chr "integer" 1553s [00:52:33.519] $ ...future.seeds_ii : NULL 1553s [00:52:33.519] $ ...future.globals.maxSize: NULL 1553s [00:52:33.519] - attr(*, "where")=List of 5 1553s [00:52:33.519] ..$ ...future.FUN : 1553s [00:52:33.519] ..$ future.call.arguments : 1553s [00:52:33.519] ..$ ...future.elements_ii : 1553s [00:52:33.519] ..$ ...future.seeds_ii : 1553s [00:52:33.519] ..$ ...future.globals.maxSize: 1553s [00:52:33.519] - attr(*, "resolved")= logi FALSE 1553s [00:52:33.519] - attr(*, "total_size")= num 2240 1553s [00:52:33.519] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1553s [00:52:33.519] - attr(*, "already-done")= logi TRUE 1553s [00:52:33.539] - copied ‘...future.FUN’ to environment 1553s [00:52:33.539] - copied ‘future.call.arguments’ to environment 1553s [00:52:33.540] - copied ‘...future.elements_ii’ to environment 1553s [00:52:33.540] - copied ‘...future.seeds_ii’ to environment 1553s [00:52:33.540] - copied ‘...future.globals.maxSize’ to environment 1553s [00:52:33.541] assign_globals() ... done 1553s [00:52:33.542] plan(): Setting new future strategy stack: 1553s [00:52:33.542] List of future strategies: 1553s [00:52:33.542] 1. sequential: 1553s [00:52:33.542] - args: function (..., envir = parent.frame()) 1553s [00:52:33.542] - tweaked: FALSE 1553s [00:52:33.542] - call: NULL 1553s [00:52:33.542] plan(): nbrOfWorkers() = 1 1553s [00:52:33.545] plan(): Setting new future strategy stack: 1553s [00:52:33.545] List of future strategies: 1553s [00:52:33.545] 1. multicore: 1553s [00:52:33.545] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1553s [00:52:33.545] - tweaked: FALSE 1553s [00:52:33.545] - call: plan(strategy) 1553s [00:52:33.551] plan(): nbrOfWorkers() = 1 1553s [00:52:33.552] SequentialFuture started (and completed) 1553s [00:52:33.552] - Launch lazy future ... done 1553s [00:52:33.553] run() for ‘SequentialFuture’ ... done 1553s [00:52:33.553] Created future: 1553s [00:52:33.553] SequentialFuture: 1553s [00:52:33.553] Label: ‘future_lapply-1’ 1553s [00:52:33.553] Expression: 1553s [00:52:33.553] { 1553s [00:52:33.553] do.call(function(...) { 1553s [00:52:33.553] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1553s [00:52:33.553] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1553s [00:52:33.553] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1553s [00:52:33.553] on.exit(options(oopts), add = TRUE) 1553s [00:52:33.553] } 1553s [00:52:33.553] { 1553s [00:52:33.553] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1553s [00:52:33.553] ...future.X_jj <- ...future.elements_ii[[jj]] 1553s [00:52:33.553] ...future.FUN(...future.X_jj, ...) 1553s [00:52:33.553] }) 1553s [00:52:33.553] } 1553s [00:52:33.553] }, args = future.call.arguments) 1553s [00:52:33.553] } 1553s [00:52:33.553] Lazy evaluation: FALSE 1553s [00:52:33.553] Asynchronous evaluation: FALSE 1553s [00:52:33.553] Local evaluation: TRUE 1553s [00:52:33.553] Environment: R_GlobalEnv 1553s [00:52:33.553] Capture standard output: TRUE 1553s [00:52:33.553] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1553s [00:52:33.553] Globals: 5 objects totaling 2.63 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 456 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1553s [00:52:33.553] Packages: 1553s [00:52:33.553] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1553s [00:52:33.553] Resolved: TRUE 1553s [00:52:33.553] Value: 240 bytes of class ‘list’ 1553s [00:52:33.553] Early signaling: FALSE 1553s [00:52:33.553] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1553s [00:52:33.553] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1553s [00:52:33.556] Chunk #1 of 1 ... DONE 1553s [00:52:33.556] Launching 1 futures (chunks) ... DONE 1553s [00:52:33.556] Resolving 1 futures (chunks) ... 1553s [00:52:33.556] resolve() on list ... 1553s [00:52:33.556] recursive: 0 1553s [00:52:33.556] length: 1 1553s [00:52:33.557] 1553s [00:52:33.557] resolved() for ‘SequentialFuture’ ... 1553s [00:52:33.557] - state: ‘finished’ 1553s [00:52:33.557] - run: TRUE 1553s [00:52:33.557] - result: ‘FutureResult’ 1553s [00:52:33.558] resolved() for ‘SequentialFuture’ ... done 1553s [00:52:33.558] Future #1 1553s [00:52:33.558] signalConditionsASAP(SequentialFuture, pos=1) ... 1553s [00:52:33.558] - nx: 1 1553s [00:52:33.558] - relay: TRUE 1553s [00:52:33.559] - stdout: TRUE 1553s [00:52:33.559] - signal: TRUE 1553s [00:52:33.559] - resignal: FALSE 1553s [00:52:33.559] - force: TRUE 1553s [00:52:33.560] - relayed: [n=1] FALSE 1553s [00:52:33.560] - queued futures: [n=1] FALSE 1553s [00:52:33.561] - until=1 1553s [00:52:33.562] - relaying element #1 1553s [00:52:33.563] - relayed: [n=1] TRUE 1553s [00:52:33.563] - queued futures: [n=1] TRUE 1553s [00:52:33.563] signalConditionsASAP(SequentialFuture, pos=1) ... done 1553s [00:52:33.564] length: 0 (resolved future 1) 1553s [00:52:33.564] Relaying remaining futures 1553s [00:52:33.565] signalConditionsASAP(NULL, pos=0) ... 1553s [00:52:33.565] - nx: 1 1553s [00:52:33.565] - relay: TRUE 1553s [00:52:33.566] - stdout: TRUE 1553s [00:52:33.566] - signal: TRUE 1553s [00:52:33.567] - resignal: FALSE 1553s [00:52:33.567] - force: TRUE 1553s [00:52:33.567] - relayed: [n=1] TRUE 1553s [00:52:33.568] - queued futures: [n=1] TRUE 1553s - flush all 1553s [00:52:33.568] - relayed: [n=1] TRUE 1553s [00:52:33.568] - queued futures: [n=1] TRUE 1553s [00:52:33.569] signalConditionsASAP(NULL, pos=0) ... done 1553s [00:52:33.569] resolve() on list ... DONE 1553s [00:52:33.570] - Number of value chunks collected: 1 1553s [00:52:33.570] Resolving 1 futures (chunks) ... DONE 1553s [00:52:33.571] Reducing values from 1 chunks ... 1553s [00:52:33.571] - Number of values collected after concatenation: 4 1553s [00:52:33.571] - Number of values expected: 4 1553s [00:52:33.572] Reverse index remapping (attribute 'ordering'): [n = 4] 4, 3, 2, 1 1553s [00:52:33.572] Reducing values from 1 chunks ... DONE 1553s [00:52:33.572] future_lapply() ... DONE 1553s List of 1 1553s $ y:List of 4 1553s ..$ a: int [1:2] 0 0 1553s ..$ b: num [1:2] 0 0 1553s ..$ c: chr [1:2] "" "" 1553s ..$ c:List of 2 1553s .. ..$ : NULL 1553s .. ..$ : NULL 1553s [00:52:33.578] future_lapply() ... 1553s [00:52:33.586] Number of chunks: 1 1553s [00:52:33.586] Index remapping (attribute 'ordering'): [n = 4] 4, 3, 2, 1 1553s [00:52:33.587] getGlobalsAndPackagesXApply() ... 1553s [00:52:33.587] - future.globals: TRUE 1553s [00:52:33.587] getGlobalsAndPackages() ... 1553s [00:52:33.587] Searching for globals... 1553s [00:52:33.589] - globals found: [2] ‘FUN’, ‘.Internal’ 1553s [00:52:33.589] Searching for globals ... DONE 1553s [00:52:33.589] Resolving globals: FALSE 1553s [00:52:33.590] The total size of the 1 globals is 2.13 KiB (2184 bytes) 1553s [00:52:33.591] The total size of the 1 globals exported for future expression (‘FUN(length = 2L)’) is 2.13 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (2.13 KiB of class ‘function’) 1553s [00:52:33.591] - globals: [1] ‘FUN’ 1553s [00:52:33.591] 1553s [00:52:33.591] getGlobalsAndPackages() ... DONE 1553s [00:52:33.592] - globals found/used: [n=1] ‘FUN’ 1553s [00:52:33.592] - needed namespaces: [n=0] 1553s [00:52:33.592] Finding globals ... DONE 1553s [00:52:33.592] - use_args: TRUE 1553s [00:52:33.592] - Getting '...' globals ... 1553s [00:52:33.593] resolve() on list ... 1553s [00:52:33.593] recursive: 0 1553s [00:52:33.593] length: 1 1553s [00:52:33.593] elements: ‘...’ 1553s [00:52:33.593] length: 0 (resolved future 1) 1553s [00:52:33.593] resolve() on list ... DONE 1553s [00:52:33.593] - '...' content: [n=1] ‘length’ 1553s [00:52:33.594] List of 1 1553s [00:52:33.594] $ ...:List of 1 1553s [00:52:33.594] ..$ length: int 2 1553s [00:52:33.594] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1553s [00:52:33.594] - attr(*, "where")=List of 1 1553s [00:52:33.594] ..$ ...: 1553s [00:52:33.594] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1553s [00:52:33.594] - attr(*, "resolved")= logi TRUE 1553s [00:52:33.594] - attr(*, "total_size")= num NA 1553s [00:52:33.598] - Getting '...' globals ... DONE 1553s [00:52:33.598] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1553s [00:52:33.598] List of 2 1553s [00:52:33.598] $ ...future.FUN:function (mode = "logical", length = 0L) 1553s [00:52:33.598] $ ... :List of 1 1553s [00:52:33.598] ..$ length: int 2 1553s [00:52:33.598] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1553s [00:52:33.598] - attr(*, "where")=List of 2 1553s [00:52:33.598] ..$ ...future.FUN: 1553s [00:52:33.598] ..$ ... : 1553s [00:52:33.598] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1553s [00:52:33.598] - attr(*, "resolved")= logi FALSE 1553s [00:52:33.598] - attr(*, "total_size")= num 2240 1553s [00:52:33.602] Packages to be attached in all futures: [n=0] 1553s [00:52:33.603] getGlobalsAndPackagesXApply() ... DONE 1553s [00:52:33.603] Number of futures (= number of chunks): 1 1553s [00:52:33.604] Launching 1 futures (chunks) ... 1553s [00:52:33.604] Chunk #1 of 1 ... 1553s [00:52:33.604] - Finding globals in 'X' for chunk #1 ... 1553s [00:52:33.604] getGlobalsAndPackages() ... 1553s [00:52:33.604] Searching for globals... 1553s [00:52:33.605] 1553s [00:52:33.605] Searching for globals ... DONE 1553s [00:52:33.605] - globals: [0] 1553s [00:52:33.605] getGlobalsAndPackages() ... DONE 1553s [00:52:33.605] + additional globals found: [n=0] 1553s [00:52:33.606] + additional namespaces needed: [n=0] 1553s [00:52:33.606] - Finding globals in 'X' for chunk #1 ... DONE 1553s [00:52:33.606] - seeds: 1553s [00:52:33.606] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1553s [00:52:33.606] getGlobalsAndPackages() ... 1553s [00:52:33.607] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1553s [00:52:33.607] Resolving globals: FALSE 1553s [00:52:33.607] Tweak future expression to call with '...' arguments ... 1553s [00:52:33.607] { 1553s [00:52:33.607] do.call(function(...) { 1553s [00:52:33.607] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1553s [00:52:33.607] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1553s [00:52:33.607] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1553s [00:52:33.607] on.exit(options(oopts), add = TRUE) 1553s [00:52:33.607] } 1553s [00:52:33.607] { 1553s [00:52:33.607] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1553s [00:52:33.607] ...future.X_jj <- ...future.elements_ii[[jj]] 1553s [00:52:33.607] ...future.FUN(...future.X_jj, ...) 1553s [00:52:33.607] }) 1553s [00:52:33.607] } 1553s [00:52:33.607] }, args = future.call.arguments) 1553s [00:52:33.607] } 1553s [00:52:33.608] Tweak future expression to call with '...' arguments ... DONE 1553s [00:52:33.608] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1553s [00:52:33.608] 1553s [00:52:33.608] getGlobalsAndPackages() ... DONE 1553s [00:52:33.609] run() for ‘Future’ ... 1553s [00:52:33.609] - state: ‘created’ 1553s [00:52:33.610] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1553s [00:52:33.613] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1553s [00:52:33.614] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1553s [00:52:33.614] - Field: ‘label’ 1553s [00:52:33.614] - Field: ‘local’ 1553s [00:52:33.614] - Field: ‘owner’ 1553s [00:52:33.614] - Field: ‘envir’ 1553s [00:52:33.615] - Field: ‘packages’ 1553s [00:52:33.615] - Field: ‘gc’ 1553s [00:52:33.615] - Field: ‘conditions’ 1553s [00:52:33.615] - Field: ‘expr’ 1553s [00:52:33.615] - Field: ‘uuid’ 1553s [00:52:33.616] - Field: ‘seed’ 1553s [00:52:33.616] - Field: ‘version’ 1553s [00:52:33.616] - Field: ‘result’ 1553s [00:52:33.618] - Field: ‘asynchronous’ 1553s [00:52:33.619] - Field: ‘calls’ 1553s [00:52:33.619] - Field: ‘globals’ 1553s [00:52:33.619] - Field: ‘stdout’ 1553s [00:52:33.619] - Field: ‘earlySignal’ 1553s [00:52:33.619] - Field: ‘lazy’ 1553s [00:52:33.619] - Field: ‘state’ 1553s [00:52:33.620] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1553s [00:52:33.620] - Launch lazy future ... 1553s [00:52:33.621] Packages needed by the future expression (n = 0): 1553s [00:52:33.621] Packages needed by future strategies (n = 0): 1553s [00:52:33.622] { 1553s [00:52:33.622] { 1553s [00:52:33.622] { 1553s [00:52:33.622] ...future.startTime <- base::Sys.time() 1553s [00:52:33.622] { 1553s [00:52:33.622] { 1553s [00:52:33.622] { 1553s [00:52:33.622] base::local({ 1553s [00:52:33.622] has_future <- base::requireNamespace("future", 1553s [00:52:33.622] quietly = TRUE) 1553s [00:52:33.622] if (has_future) { 1553s [00:52:33.622] ns <- base::getNamespace("future") 1553s [00:52:33.622] version <- ns[[".package"]][["version"]] 1553s [00:52:33.622] if (is.null(version)) 1553s [00:52:33.622] version <- utils::packageVersion("future") 1553s [00:52:33.622] } 1553s [00:52:33.622] else { 1553s [00:52:33.622] version <- NULL 1553s [00:52:33.622] } 1553s [00:52:33.622] if (!has_future || version < "1.8.0") { 1553s [00:52:33.622] info <- base::c(r_version = base::gsub("R version ", 1553s [00:52:33.622] "", base::R.version$version.string), 1553s [00:52:33.622] platform = base::sprintf("%s (%s-bit)", 1553s [00:52:33.622] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1553s [00:52:33.622] os = base::paste(base::Sys.info()[base::c("sysname", 1553s [00:52:33.622] "release", "version")], collapse = " "), 1553s [00:52:33.622] hostname = base::Sys.info()[["nodename"]]) 1553s [00:52:33.622] info <- base::sprintf("%s: %s", base::names(info), 1553s [00:52:33.622] info) 1553s [00:52:33.622] info <- base::paste(info, collapse = "; ") 1553s [00:52:33.622] if (!has_future) { 1553s [00:52:33.622] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1553s [00:52:33.622] info) 1553s [00:52:33.622] } 1553s [00:52:33.622] else { 1553s [00:52:33.622] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1553s [00:52:33.622] info, version) 1553s [00:52:33.622] } 1553s [00:52:33.622] base::stop(msg) 1553s [00:52:33.622] } 1553s [00:52:33.622] }) 1553s [00:52:33.622] } 1553s [00:52:33.622] options(future.plan = NULL) 1553s [00:52:33.622] Sys.unsetenv("R_FUTURE_PLAN") 1553s [00:52:33.622] future::plan("default", .cleanup = FALSE, .init = FALSE) 1553s [00:52:33.622] } 1553s [00:52:33.622] ...future.workdir <- getwd() 1553s [00:52:33.622] } 1553s [00:52:33.622] ...future.oldOptions <- base::as.list(base::.Options) 1553s [00:52:33.622] ...future.oldEnvVars <- base::Sys.getenv() 1553s [00:52:33.622] } 1553s [00:52:33.622] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1553s [00:52:33.622] future.globals.maxSize = NULL, future.globals.method = NULL, 1553s [00:52:33.622] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1553s [00:52:33.622] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1553s [00:52:33.622] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1553s [00:52:33.622] future.stdout.windows.reencode = NULL, width = 80L) 1553s [00:52:33.622] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1553s [00:52:33.622] base::names(...future.oldOptions)) 1553s [00:52:33.622] } 1553s [00:52:33.622] if (FALSE) { 1553s [00:52:33.622] } 1553s [00:52:33.622] else { 1553s [00:52:33.622] if (TRUE) { 1553s [00:52:33.622] ...future.stdout <- base::rawConnection(base::raw(0L), 1553s [00:52:33.622] open = "w") 1553s [00:52:33.622] } 1553s [00:52:33.622] else { 1553s [00:52:33.622] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1553s [00:52:33.622] windows = "NUL", "/dev/null"), open = "w") 1553s [00:52:33.622] } 1553s [00:52:33.622] base::sink(...future.stdout, type = "output", split = FALSE) 1553s [00:52:33.622] base::on.exit(if (!base::is.null(...future.stdout)) { 1553s [00:52:33.622] base::sink(type = "output", split = FALSE) 1553s [00:52:33.622] base::close(...future.stdout) 1553s [00:52:33.622] }, add = TRUE) 1553s [00:52:33.622] } 1553s [00:52:33.622] ...future.frame <- base::sys.nframe() 1553s [00:52:33.622] ...future.conditions <- base::list() 1553s [00:52:33.622] ...future.rng <- base::globalenv()$.Random.seed 1553s [00:52:33.622] if (FALSE) { 1553s [00:52:33.622] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1553s [00:52:33.622] "...future.value", "...future.globalenv.names", ".Random.seed") 1553s [00:52:33.622] } 1553s [00:52:33.622] ...future.result <- base::tryCatch({ 1553s [00:52:33.622] base::withCallingHandlers({ 1553s [00:52:33.622] ...future.value <- base::withVisible(base::local({ 1553s [00:52:33.622] do.call(function(...) { 1553s [00:52:33.622] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1553s [00:52:33.622] if (!identical(...future.globals.maxSize.org, 1553s [00:52:33.622] ...future.globals.maxSize)) { 1553s [00:52:33.622] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1553s [00:52:33.622] on.exit(options(oopts), add = TRUE) 1553s [00:52:33.622] } 1553s [00:52:33.622] { 1553s [00:52:33.622] lapply(seq_along(...future.elements_ii), 1553s [00:52:33.622] FUN = function(jj) { 1553s [00:52:33.622] ...future.X_jj <- ...future.elements_ii[[jj]] 1553s [00:52:33.622] ...future.FUN(...future.X_jj, ...) 1553s [00:52:33.622] }) 1553s [00:52:33.622] } 1553s [00:52:33.622] }, args = future.call.arguments) 1553s [00:52:33.622] })) 1553s [00:52:33.622] future::FutureResult(value = ...future.value$value, 1553s [00:52:33.622] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1553s [00:52:33.622] ...future.rng), globalenv = if (FALSE) 1553s [00:52:33.622] list(added = base::setdiff(base::names(base::.GlobalEnv), 1553s [00:52:33.622] ...future.globalenv.names)) 1553s [00:52:33.622] else NULL, started = ...future.startTime, version = "1.8") 1553s [00:52:33.622] }, condition = base::local({ 1553s [00:52:33.622] c <- base::c 1553s [00:52:33.622] inherits <- base::inherits 1553s [00:52:33.622] invokeRestart <- base::invokeRestart 1553s [00:52:33.622] length <- base::length 1553s [00:52:33.622] list <- base::list 1553s [00:52:33.622] seq.int <- base::seq.int 1553s [00:52:33.622] signalCondition <- base::signalCondition 1553s [00:52:33.622] sys.calls <- base::sys.calls 1553s [00:52:33.622] `[[` <- base::`[[` 1553s [00:52:33.622] `+` <- base::`+` 1553s [00:52:33.622] `<<-` <- base::`<<-` 1553s [00:52:33.622] sysCalls <- function(calls = sys.calls(), from = 1L) { 1553s [00:52:33.622] calls[seq.int(from = from + 12L, to = length(calls) - 1553s [00:52:33.622] 3L)] 1553s [00:52:33.622] } 1553s [00:52:33.622] function(cond) { 1553s [00:52:33.622] is_error <- inherits(cond, "error") 1553s [00:52:33.622] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1553s [00:52:33.622] NULL) 1553s [00:52:33.622] if (is_error) { 1553s [00:52:33.622] sessionInformation <- function() { 1553s [00:52:33.622] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1553s [00:52:33.622] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1553s [00:52:33.622] search = base::search(), system = base::Sys.info()) 1553s [00:52:33.622] } 1553s [00:52:33.622] ...future.conditions[[length(...future.conditions) + 1553s [00:52:33.622] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1553s [00:52:33.622] cond$call), session = sessionInformation(), 1553s [00:52:33.622] timestamp = base::Sys.time(), signaled = 0L) 1553s [00:52:33.622] signalCondition(cond) 1553s [00:52:33.622] } 1553s [00:52:33.622] else if (!ignore && TRUE && inherits(cond, c("condition", 1553s [00:52:33.622] "immediateCondition"))) { 1553s [00:52:33.622] signal <- TRUE && inherits(cond, "immediateCondition") 1553s [00:52:33.622] ...future.conditions[[length(...future.conditions) + 1553s [00:52:33.622] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1553s [00:52:33.622] if (TRUE && !signal) { 1553s [00:52:33.622] muffleCondition <- function (cond, pattern = "^muffle") 1553s [00:52:33.622] { 1553s [00:52:33.622] inherits <- base::inherits 1553s [00:52:33.622] invokeRestart <- base::invokeRestart 1553s [00:52:33.622] is.null <- base::is.null 1553s [00:52:33.622] muffled <- FALSE 1553s [00:52:33.622] if (inherits(cond, "message")) { 1553s [00:52:33.622] muffled <- grepl(pattern, "muffleMessage") 1553s [00:52:33.622] if (muffled) 1553s [00:52:33.622] invokeRestart("muffleMessage") 1553s [00:52:33.622] } 1553s [00:52:33.622] else if (inherits(cond, "warning")) { 1553s [00:52:33.622] muffled <- grepl(pattern, "muffleWarning") 1553s [00:52:33.622] if (muffled) 1553s [00:52:33.622] invokeRestart("muffleWarning") 1553s [00:52:33.622] } 1553s [00:52:33.622] else if (inherits(cond, "condition")) { 1553s [00:52:33.622] if (!is.null(pattern)) { 1553s [00:52:33.622] computeRestarts <- base::computeRestarts 1553s [00:52:33.622] grepl <- base::grepl 1553s [00:52:33.622] restarts <- computeRestarts(cond) 1553s [00:52:33.622] for (restart in restarts) { 1553s [00:52:33.622] name <- restart$name 1553s [00:52:33.622] if (is.null(name)) 1553s [00:52:33.622] next 1553s [00:52:33.622] if (!grepl(pattern, name)) 1553s [00:52:33.622] next 1553s [00:52:33.622] invokeRestart(restart) 1553s [00:52:33.622] muffled <- TRUE 1553s [00:52:33.622] break 1553s [00:52:33.622] } 1553s [00:52:33.622] } 1553s [00:52:33.622] } 1553s [00:52:33.622] invisible(muffled) 1553s [00:52:33.622] } 1553s [00:52:33.622] muffleCondition(cond, pattern = "^muffle") 1553s [00:52:33.622] } 1553s [00:52:33.622] } 1553s [00:52:33.622] else { 1553s [00:52:33.622] if (TRUE) { 1553s [00:52:33.622] muffleCondition <- function (cond, pattern = "^muffle") 1553s [00:52:33.622] { 1553s [00:52:33.622] inherits <- base::inherits 1553s [00:52:33.622] invokeRestart <- base::invokeRestart 1553s [00:52:33.622] is.null <- base::is.null 1553s [00:52:33.622] muffled <- FALSE 1553s [00:52:33.622] if (inherits(cond, "message")) { 1553s [00:52:33.622] muffled <- grepl(pattern, "muffleMessage") 1553s [00:52:33.622] if (muffled) 1553s [00:52:33.622] invokeRestart("muffleMessage") 1553s [00:52:33.622] } 1553s [00:52:33.622] else if (inherits(cond, "warning")) { 1553s [00:52:33.622] muffled <- grepl(pattern, "muffleWarning") 1553s [00:52:33.622] if (muffled) 1553s [00:52:33.622] invokeRestart("muffleWarning") 1553s [00:52:33.622] } 1553s [00:52:33.622] else if (inherits(cond, "condition")) { 1553s [00:52:33.622] if (!is.null(pattern)) { 1553s [00:52:33.622] computeRestarts <- base::computeRestarts 1553s [00:52:33.622] grepl <- base::grepl 1553s [00:52:33.622] restarts <- computeRestarts(cond) 1553s [00:52:33.622] for (restart in restarts) { 1553s [00:52:33.622] name <- restart$name 1553s [00:52:33.622] if (is.null(name)) 1553s [00:52:33.622] next 1553s [00:52:33.622] if (!grepl(pattern, name)) 1553s [00:52:33.622] next 1553s [00:52:33.622] invokeRestart(restart) 1553s [00:52:33.622] muffled <- TRUE 1553s [00:52:33.622] break 1553s [00:52:33.622] } 1553s [00:52:33.622] } 1553s [00:52:33.622] } 1553s [00:52:33.622] invisible(muffled) 1553s [00:52:33.622] } 1553s [00:52:33.622] muffleCondition(cond, pattern = "^muffle") 1553s [00:52:33.622] } 1553s [00:52:33.622] } 1553s [00:52:33.622] } 1553s [00:52:33.622] })) 1553s [00:52:33.622] }, error = function(ex) { 1553s [00:52:33.622] base::structure(base::list(value = NULL, visible = NULL, 1553s [00:52:33.622] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1553s [00:52:33.622] ...future.rng), started = ...future.startTime, 1553s [00:52:33.622] finished = Sys.time(), session_uuid = NA_character_, 1553s [00:52:33.622] version = "1.8"), class = "FutureResult") 1553s [00:52:33.622] }, finally = { 1553s [00:52:33.622] if (!identical(...future.workdir, getwd())) 1553s [00:52:33.622] setwd(...future.workdir) 1553s [00:52:33.622] { 1553s [00:52:33.622] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1553s [00:52:33.622] ...future.oldOptions$nwarnings <- NULL 1553s [00:52:33.622] } 1553s [00:52:33.622] base::options(...future.oldOptions) 1553s [00:52:33.622] if (.Platform$OS.type == "windows") { 1553s [00:52:33.622] old_names <- names(...future.oldEnvVars) 1553s [00:52:33.622] envs <- base::Sys.getenv() 1553s [00:52:33.622] names <- names(envs) 1553s [00:52:33.622] common <- intersect(names, old_names) 1553s [00:52:33.622] added <- setdiff(names, old_names) 1553s [00:52:33.622] removed <- setdiff(old_names, names) 1553s [00:52:33.622] changed <- common[...future.oldEnvVars[common] != 1553s [00:52:33.622] envs[common]] 1553s [00:52:33.622] NAMES <- toupper(changed) 1553s [00:52:33.622] args <- list() 1553s [00:52:33.622] for (kk in seq_along(NAMES)) { 1553s [00:52:33.622] name <- changed[[kk]] 1553s [00:52:33.622] NAME <- NAMES[[kk]] 1553s [00:52:33.622] if (name != NAME && is.element(NAME, old_names)) 1553s [00:52:33.622] next 1553s [00:52:33.622] args[[name]] <- ...future.oldEnvVars[[name]] 1553s [00:52:33.622] } 1553s [00:52:33.622] NAMES <- toupper(added) 1553s [00:52:33.622] for (kk in seq_along(NAMES)) { 1553s [00:52:33.622] name <- added[[kk]] 1553s [00:52:33.622] NAME <- NAMES[[kk]] 1553s [00:52:33.622] if (name != NAME && is.element(NAME, old_names)) 1553s [00:52:33.622] next 1553s [00:52:33.622] args[[name]] <- "" 1553s [00:52:33.622] } 1553s [00:52:33.622] NAMES <- toupper(removed) 1553s [00:52:33.622] for (kk in seq_along(NAMES)) { 1553s [00:52:33.622] name <- removed[[kk]] 1553s [00:52:33.622] NAME <- NAMES[[kk]] 1553s [00:52:33.622] if (name != NAME && is.element(NAME, old_names)) 1553s [00:52:33.622] next 1553s [00:52:33.622] args[[name]] <- ...future.oldEnvVars[[name]] 1553s [00:52:33.622] } 1553s [00:52:33.622] if (length(args) > 0) 1553s [00:52:33.622] base::do.call(base::Sys.setenv, args = args) 1553s [00:52:33.622] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1553s [00:52:33.622] } 1553s [00:52:33.622] else { 1553s [00:52:33.622] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1553s [00:52:33.622] } 1553s [00:52:33.622] { 1553s [00:52:33.622] if (base::length(...future.futureOptionsAdded) > 1553s [00:52:33.622] 0L) { 1553s [00:52:33.622] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1553s [00:52:33.622] base::names(opts) <- ...future.futureOptionsAdded 1553s [00:52:33.622] base::options(opts) 1553s [00:52:33.622] } 1553s [00:52:33.622] { 1553s [00:52:33.622] { 1553s [00:52:33.622] NULL 1553s [00:52:33.622] RNGkind("Mersenne-Twister") 1553s [00:52:33.622] base::rm(list = ".Random.seed", envir = base::globalenv(), 1553s [00:52:33.622] inherits = FALSE) 1553s [00:52:33.622] } 1553s [00:52:33.622] options(future.plan = NULL) 1553s [00:52:33.622] if (is.na(NA_character_)) 1553s [00:52:33.622] Sys.unsetenv("R_FUTURE_PLAN") 1553s [00:52:33.622] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1553s [00:52:33.622] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1553s [00:52:33.622] envir = parent.frame()) 1553s [00:52:33.622] { 1553s [00:52:33.622] default_workers <- missing(workers) 1553s [00:52:33.622] if (is.function(workers)) 1553s [00:52:33.622] workers <- workers() 1553s [00:52:33.622] workers <- structure(as.integer(workers), 1553s [00:52:33.622] class = class(workers)) 1553s [00:52:33.622] stop_if_not(is.finite(workers), workers >= 1553s [00:52:33.622] 1L) 1553s [00:52:33.622] if ((workers == 1L && !inherits(workers, 1553s [00:52:33.622] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1553s [00:52:33.622] if (default_workers) 1553s [00:52:33.622] supportsMulticore(warn = TRUE) 1553s [00:52:33.622] return(sequential(..., envir = envir)) 1553s [00:52:33.622] } 1553s [00:52:33.622] oopts <- options(mc.cores = workers) 1553s [00:52:33.622] on.exit(options(oopts)) 1553s [00:52:33.622] future <- MulticoreFuture(..., workers = workers, 1553s [00:52:33.622] envir = envir) 1553s [00:52:33.622] if (!future$lazy) 1553s [00:52:33.622] future <- run(future) 1553s [00:52:33.622] invisible(future) 1553s [00:52:33.622] }), .cleanup = FALSE, .init = FALSE) 1553s [00:52:33.622] } 1553s [00:52:33.622] } 1553s [00:52:33.622] } 1553s [00:52:33.622] }) 1553s [00:52:33.622] if (TRUE) { 1553s [00:52:33.622] base::sink(type = "output", split = FALSE) 1553s [00:52:33.622] if (TRUE) { 1553s [00:52:33.622] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1553s [00:52:33.622] } 1553s [00:52:33.622] else { 1553s [00:52:33.622] ...future.result["stdout"] <- base::list(NULL) 1553s [00:52:33.622] } 1553s [00:52:33.622] base::close(...future.stdout) 1553s [00:52:33.622] ...future.stdout <- NULL 1553s [00:52:33.622] } 1553s [00:52:33.622] ...future.result$conditions <- ...future.conditions 1553s [00:52:33.622] ...future.result$finished <- base::Sys.time() 1553s [00:52:33.622] ...future.result 1553s [00:52:33.622] } 1553s [00:52:33.630] assign_globals() ... 1553s [00:52:33.630] List of 5 1553s [00:52:33.630] $ ...future.FUN :function (mode = "logical", length = 0L) 1553s [00:52:33.630] $ future.call.arguments :List of 1 1553s [00:52:33.630] ..$ length: int 2 1553s [00:52:33.630] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1553s [00:52:33.630] $ ...future.elements_ii :List of 4 1553s [00:52:33.630] ..$ c: chr "list" 1553s [00:52:33.630] ..$ c: chr "character" 1553s [00:52:33.630] ..$ b: chr "numeric" 1553s [00:52:33.630] ..$ a: chr "integer" 1553s [00:52:33.630] $ ...future.seeds_ii : NULL 1553s [00:52:33.630] $ ...future.globals.maxSize: NULL 1553s [00:52:33.630] - attr(*, "where")=List of 5 1553s [00:52:33.630] ..$ ...future.FUN : 1553s [00:52:33.630] ..$ future.call.arguments : 1553s [00:52:33.630] ..$ ...future.elements_ii : 1553s [00:52:33.630] ..$ ...future.seeds_ii : 1553s [00:52:33.630] ..$ ...future.globals.maxSize: 1553s [00:52:33.630] - attr(*, "resolved")= logi FALSE 1553s [00:52:33.630] - attr(*, "total_size")= num 2240 1553s [00:52:33.630] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1553s [00:52:33.630] - attr(*, "already-done")= logi TRUE 1553s [00:52:33.642] - copied ‘...future.FUN’ to environment 1553s [00:52:33.642] - copied ‘future.call.arguments’ to environment 1553s [00:52:33.642] - copied ‘...future.elements_ii’ to environment 1553s [00:52:33.642] - copied ‘...future.seeds_ii’ to environment 1553s [00:52:33.642] - copied ‘...future.globals.maxSize’ to environment 1553s [00:52:33.642] assign_globals() ... done 1553s [00:52:33.643] plan(): Setting new future strategy stack: 1553s [00:52:33.643] List of future strategies: 1553s [00:52:33.643] 1. sequential: 1553s [00:52:33.643] - args: function (..., envir = parent.frame()) 1553s [00:52:33.643] - tweaked: FALSE 1553s [00:52:33.643] - call: NULL 1553s [00:52:33.644] plan(): nbrOfWorkers() = 1 1553s [00:52:33.644] plan(): Setting new future strategy stack: 1553s [00:52:33.645] List of future strategies: 1553s [00:52:33.645] 1. multicore: 1553s [00:52:33.645] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1553s [00:52:33.645] - tweaked: FALSE 1553s [00:52:33.645] - call: plan(strategy) 1553s [00:52:33.648] plan(): nbrOfWorkers() = 1 1553s [00:52:33.648] SequentialFuture started (and completed) 1553s [00:52:33.648] - Launch lazy future ... done 1553s [00:52:33.648] run() for ‘SequentialFuture’ ... done 1553s [00:52:33.649] Created future: 1553s [00:52:33.649] SequentialFuture: 1553s [00:52:33.649] Label: ‘future_lapply-1’ 1553s [00:52:33.649] Expression: 1553s [00:52:33.649] { 1553s [00:52:33.649] do.call(function(...) { 1553s [00:52:33.649] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1553s [00:52:33.649] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1553s [00:52:33.649] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1553s [00:52:33.649] on.exit(options(oopts), add = TRUE) 1553s [00:52:33.649] } 1553s [00:52:33.649] { 1553s [00:52:33.649] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1553s [00:52:33.649] ...future.X_jj <- ...future.elements_ii[[jj]] 1553s [00:52:33.649] ...future.FUN(...future.X_jj, ...) 1553s [00:52:33.649] }) 1553s [00:52:33.649] } 1553s [00:52:33.649] }, args = future.call.arguments) 1553s [00:52:33.649] } 1553s [00:52:33.649] Lazy evaluation: FALSE 1553s [00:52:33.649] Asynchronous evaluation: FALSE 1553s [00:52:33.649] Local evaluation: TRUE 1553s [00:52:33.649] Environment: R_GlobalEnv 1553s [00:52:33.649] Capture standard output: TRUE 1553s [00:52:33.649] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1553s [00:52:33.649] Globals: 5 objects totaling 2.63 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 456 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1553s [00:52:33.649] Packages: 1553s [00:52:33.649] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1553s [00:52:33.649] Resolved: TRUE 1553s [00:52:33.649] Value: 240 bytes of class ‘list’ 1553s [00:52:33.649] Early signaling: FALSE 1553s [00:52:33.649] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1553s [00:52:33.649] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1553s [00:52:33.651] Chunk #1 of 1 ... DONE 1553s [00:52:33.651] Launching 1 futures (chunks) ... DONE 1553s [00:52:33.651] Resolving 1 futures (chunks) ... 1553s [00:52:33.651] resolve() on list ... 1553s [00:52:33.651] recursive: 0 1553s [00:52:33.652] length: 1 1553s [00:52:33.652] 1553s [00:52:33.652] resolved() for ‘SequentialFuture’ ... 1553s [00:52:33.652] - state: ‘finished’ 1553s [00:52:33.653] - run: TRUE 1553s [00:52:33.653] - result: ‘FutureResult’ 1553s [00:52:33.653] resolved() for ‘SequentialFuture’ ... done 1553s [00:52:33.654] Future #1 1553s [00:52:33.654] signalConditionsASAP(SequentialFuture, pos=1) ... 1553s [00:52:33.655] - nx: 1 1553s [00:52:33.655] - relay: TRUE 1553s [00:52:33.655] - stdout: TRUE 1553s [00:52:33.656] - signal: TRUE 1553s [00:52:33.656] - resignal: FALSE 1553s [00:52:33.656] - force: TRUE 1553s [00:52:33.656] - relayed: [n=1] FALSE 1553s [00:52:33.656] - queued futures: [n=1] FALSE 1553s [00:52:33.656] - until=1 1553s [00:52:33.657] - relaying element #1 1553s [00:52:33.657] - relayed: [n=1] TRUE 1553s [00:52:33.657] - queued futures: [n=1] TRUE 1553s [00:52:33.657] signalConditionsASAP(SequentialFuture, pos=1) ... done 1553s [00:52:33.657] length: 0 (resolved future 1) 1553s [00:52:33.657] Relaying remaining futures 1553s [00:52:33.658] signalConditionsASAP(NULL, pos=0) ... 1553s [00:52:33.658] - nx: 1 1553s [00:52:33.658] - relay: TRUE 1553s [00:52:33.658] - stdout: TRUE 1553s [00:52:33.658] - signal: TRUE 1553s [00:52:33.658] - resignal: FALSE 1553s [00:52:33.658] - force: TRUE 1553s [00:52:33.658] - relayed: [n=1] TRUE 1553s [00:52:33.659] - queued futures: [n=1] TRUE 1553s - flush all 1553s [00:52:33.659] - relayed: [n=1] TRUE 1553s [00:52:33.659] - queued futures: [n=1] TRUE 1553s [00:52:33.659] signalConditionsASAP(NULL, pos=0) ... done 1553s [00:52:33.659] resolve() on list ... DONE 1553s [00:52:33.660] - Number of value chunks collected: 1 1553s [00:52:33.660] Resolving 1 futures (chunks) ... DONE 1553s [00:52:33.660] Reducing values from 1 chunks ... 1553s [00:52:33.660] - Number of values collected after concatenation: 4 1553s List[00:52:33.660] - Number of values expected: 4 1553s [00:52:33.661] Reverse index remapping (attribute 'ordering'): [n = 4] 4, 3, 2, 1 1553s [00:52:33.661] Reducing values from 1 chunks ... DONE 1553s [00:52:33.661] future_lapply() ... DONE 1553s of 1 1553s $ y:List of 4 1553s ..$ a: int [1:2] 0 0 1553s ..$ b: num [1:2] 0 0 1553s ..$ c: chr [1:2] "" "" 1553s ..$ c:List of 2 1553s .. ..$ : NULL 1553s .. ..$ : NULL 1553s - future_lapply(x, FUN = base::vector, ...) ... 1553s [00:52:33.675] future_lapply() ... 1553s [00:52:33.679] Number of chunks: 1 1553s [00:52:33.680] Index remapping (attribute 'ordering'): [n = 4] 4, 3, 2, 1 1553s [00:52:33.680] getGlobalsAndPackagesXApply() ... 1553s [00:52:33.680] - future.globals: TRUE 1553s [00:52:33.681] getGlobalsAndPackages() ... 1553s [00:52:33.681] Searching for globals... 1553s [00:52:33.683] - globals found: [2] ‘FUN’, ‘.Internal’ 1553s [00:52:33.683] Searching for globals ... DONE 1553s [00:52:33.683] Resolving globals: FALSE 1553s [00:52:33.684] The total size of the 1 globals is 2.13 KiB (2184 bytes) 1553s [00:52:33.684] The total size of the 1 globals exported for future expression (‘FUN(length = 2L)’) is 2.13 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (2.13 KiB of class ‘function’) 1553s [00:52:33.685] - globals: [1] ‘FUN’ 1553s [00:52:33.685] 1553s [00:52:33.685] getGlobalsAndPackages() ... DONE 1553s [00:52:33.685] - globals found/used: [n=1] ‘FUN’ 1553s [00:52:33.685] - needed namespaces: [n=0] 1553s [00:52:33.685] Finding globals ... DONE 1553s [00:52:33.685] - use_args: TRUE 1553s [00:52:33.686] - Getting '...' globals ... 1553s [00:52:33.686] resolve() on list ... 1553s [00:52:33.686] recursive: 0 1553s [00:52:33.686] length: 1 1553s [00:52:33.686] elements: ‘...’ 1553s [00:52:33.687] length: 0 (resolved future 1) 1553s [00:52:33.687] resolve() on list ... DONE 1553s [00:52:33.687] - '...' content: [n=1] ‘length’ 1553s [00:52:33.687] List of 1 1553s [00:52:33.687] $ ...:List of 1 1553s [00:52:33.687] ..$ length: int 2 1553s [00:52:33.687] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1553s [00:52:33.687] - attr(*, "where")=List of 1 1553s [00:52:33.687] ..$ ...: 1553s [00:52:33.687] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1553s [00:52:33.687] - attr(*, "resolved")= logi TRUE 1553s [00:52:33.687] - attr(*, "total_size")= num NA 1553s [00:52:33.691] - Getting '...' globals ... DONE 1553s [00:52:33.692] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1553s [00:52:33.692] List of 2 1553s [00:52:33.692] $ ...future.FUN:function (mode = "logical", length = 0L) 1553s [00:52:33.692] $ ... :List of 1 1553s [00:52:33.692] ..$ length: int 2 1553s [00:52:33.692] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1553s [00:52:33.692] - attr(*, "where")=List of 2 1553s [00:52:33.692] ..$ ...future.FUN: 1553s [00:52:33.692] ..$ ... : 1553s [00:52:33.692] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1553s [00:52:33.692] - attr(*, "resolved")= logi FALSE 1553s [00:52:33.692] - attr(*, "total_size")= num 2240 1553s [00:52:33.696] Packages to be attached in all futures: [n=0] 1553s [00:52:33.696] getGlobalsAndPackagesXApply() ... DONE 1553s [00:52:33.697] Number of futures (= number of chunks): 1 1553s [00:52:33.697] Launching 1 futures (chunks) ... 1553s [00:52:33.697] Chunk #1 of 1 ... 1553s [00:52:33.697] - Finding globals in 'X' for chunk #1 ... 1553s [00:52:33.697] getGlobalsAndPackages() ... 1553s [00:52:33.698] Searching for globals... 1553s [00:52:33.698] 1553s [00:52:33.698] Searching for globals ... DONE 1553s [00:52:33.698] - globals: [0] 1553s [00:52:33.699] getGlobalsAndPackages() ... DONE 1553s [00:52:33.699] + additional globals found: [n=0] 1553s [00:52:33.699] + additional namespaces needed: [n=0] 1553s [00:52:33.699] - Finding globals in 'X' for chunk #1 ... DONE 1553s [00:52:33.699] - seeds: 1553s [00:52:33.699] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1553s [00:52:33.699] getGlobalsAndPackages() ... 1553s [00:52:33.700] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1553s [00:52:33.700] Resolving globals: FALSE 1553s [00:52:33.700] Tweak future expression to call with '...' arguments ... 1553s [00:52:33.700] { 1553s [00:52:33.700] do.call(function(...) { 1553s [00:52:33.700] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1553s [00:52:33.700] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1553s [00:52:33.700] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1553s [00:52:33.700] on.exit(options(oopts), add = TRUE) 1553s [00:52:33.700] } 1553s [00:52:33.700] { 1553s [00:52:33.700] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1553s [00:52:33.700] ...future.X_jj <- ...future.elements_ii[[jj]] 1553s [00:52:33.700] ...future.FUN(...future.X_jj, ...) 1553s [00:52:33.700] }) 1553s [00:52:33.700] } 1553s [00:52:33.700] }, args = future.call.arguments) 1553s [00:52:33.700] } 1553s [00:52:33.701] Tweak future expression to call with '...' arguments ... DONE 1553s [00:52:33.701] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1553s [00:52:33.702] 1553s [00:52:33.702] getGlobalsAndPackages() ... DONE 1553s [00:52:33.702] run() for ‘Future’ ... 1553s [00:52:33.702] - state: ‘created’ 1553s [00:52:33.702] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1553s [00:52:33.708] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1553s [00:52:33.709] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1553s [00:52:33.709] - Field: ‘label’ 1553s [00:52:33.709] - Field: ‘local’ 1553s [00:52:33.709] - Field: ‘owner’ 1553s [00:52:33.709] - Field: ‘envir’ 1553s [00:52:33.709] - Field: ‘packages’ 1553s [00:52:33.710] - Field: ‘gc’ 1553s [00:52:33.710] - Field: ‘conditions’ 1553s [00:52:33.710] - Field: ‘expr’ 1553s [00:52:33.710] - Field: ‘uuid’ 1553s [00:52:33.710] - Field: ‘seed’ 1553s [00:52:33.710] - Field: ‘version’ 1553s [00:52:33.710] - Field: ‘result’ 1553s [00:52:33.711] - Field: ‘asynchronous’ 1553s [00:52:33.711] - Field: ‘calls’ 1553s [00:52:33.711] - Field: ‘globals’ 1553s [00:52:33.711] - Field: ‘stdout’ 1553s [00:52:33.711] - Field: ‘earlySignal’ 1553s [00:52:33.711] - Field: ‘lazy’ 1553s [00:52:33.711] - Field: ‘state’ 1553s [00:52:33.712] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1553s [00:52:33.712] - Launch lazy future ... 1553s [00:52:33.712] Packages needed by the future expression (n = 0): 1553s [00:52:33.712] Packages needed by future strategies (n = 0): 1553s [00:52:33.713] { 1553s [00:52:33.713] { 1553s [00:52:33.713] { 1553s [00:52:33.713] ...future.startTime <- base::Sys.time() 1553s [00:52:33.713] { 1553s [00:52:33.713] { 1553s [00:52:33.713] { 1553s [00:52:33.713] base::local({ 1553s [00:52:33.713] has_future <- base::requireNamespace("future", 1553s [00:52:33.713] quietly = TRUE) 1553s [00:52:33.713] if (has_future) { 1553s [00:52:33.713] ns <- base::getNamespace("future") 1553s [00:52:33.713] version <- ns[[".package"]][["version"]] 1553s [00:52:33.713] if (is.null(version)) 1553s [00:52:33.713] version <- utils::packageVersion("future") 1553s [00:52:33.713] } 1553s [00:52:33.713] else { 1553s [00:52:33.713] version <- NULL 1553s [00:52:33.713] } 1553s [00:52:33.713] if (!has_future || version < "1.8.0") { 1553s [00:52:33.713] info <- base::c(r_version = base::gsub("R version ", 1553s [00:52:33.713] "", base::R.version$version.string), 1553s [00:52:33.713] platform = base::sprintf("%s (%s-bit)", 1553s [00:52:33.713] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1553s [00:52:33.713] os = base::paste(base::Sys.info()[base::c("sysname", 1553s [00:52:33.713] "release", "version")], collapse = " "), 1553s [00:52:33.713] hostname = base::Sys.info()[["nodename"]]) 1553s [00:52:33.713] info <- base::sprintf("%s: %s", base::names(info), 1553s [00:52:33.713] info) 1553s [00:52:33.713] info <- base::paste(info, collapse = "; ") 1553s [00:52:33.713] if (!has_future) { 1553s [00:52:33.713] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1553s [00:52:33.713] info) 1553s [00:52:33.713] } 1553s [00:52:33.713] else { 1553s [00:52:33.713] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1553s [00:52:33.713] info, version) 1553s [00:52:33.713] } 1553s [00:52:33.713] base::stop(msg) 1553s [00:52:33.713] } 1553s [00:52:33.713] }) 1553s [00:52:33.713] } 1553s [00:52:33.713] options(future.plan = NULL) 1553s [00:52:33.713] Sys.unsetenv("R_FUTURE_PLAN") 1553s [00:52:33.713] future::plan("default", .cleanup = FALSE, .init = FALSE) 1553s [00:52:33.713] } 1553s [00:52:33.713] ...future.workdir <- getwd() 1553s [00:52:33.713] } 1553s [00:52:33.713] ...future.oldOptions <- base::as.list(base::.Options) 1553s [00:52:33.713] ...future.oldEnvVars <- base::Sys.getenv() 1553s [00:52:33.713] } 1553s [00:52:33.713] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1553s [00:52:33.713] future.globals.maxSize = NULL, future.globals.method = NULL, 1553s [00:52:33.713] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1553s [00:52:33.713] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1553s [00:52:33.713] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1553s [00:52:33.713] future.stdout.windows.reencode = NULL, width = 80L) 1553s [00:52:33.713] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1553s [00:52:33.713] base::names(...future.oldOptions)) 1553s [00:52:33.713] } 1553s [00:52:33.713] if (FALSE) { 1553s [00:52:33.713] } 1553s [00:52:33.713] else { 1553s [00:52:33.713] if (TRUE) { 1553s [00:52:33.713] ...future.stdout <- base::rawConnection(base::raw(0L), 1553s [00:52:33.713] open = "w") 1553s [00:52:33.713] } 1553s [00:52:33.713] else { 1553s [00:52:33.713] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1553s [00:52:33.713] windows = "NUL", "/dev/null"), open = "w") 1553s [00:52:33.713] } 1553s [00:52:33.713] base::sink(...future.stdout, type = "output", split = FALSE) 1553s [00:52:33.713] base::on.exit(if (!base::is.null(...future.stdout)) { 1553s [00:52:33.713] base::sink(type = "output", split = FALSE) 1553s [00:52:33.713] base::close(...future.stdout) 1553s [00:52:33.713] }, add = TRUE) 1553s [00:52:33.713] } 1553s [00:52:33.713] ...future.frame <- base::sys.nframe() 1553s [00:52:33.713] ...future.conditions <- base::list() 1553s [00:52:33.713] ...future.rng <- base::globalenv()$.Random.seed 1553s [00:52:33.713] if (FALSE) { 1553s [00:52:33.713] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1553s [00:52:33.713] "...future.value", "...future.globalenv.names", ".Random.seed") 1553s [00:52:33.713] } 1553s [00:52:33.713] ...future.result <- base::tryCatch({ 1553s [00:52:33.713] base::withCallingHandlers({ 1553s [00:52:33.713] ...future.value <- base::withVisible(base::local({ 1553s [00:52:33.713] do.call(function(...) { 1553s [00:52:33.713] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1553s [00:52:33.713] if (!identical(...future.globals.maxSize.org, 1553s [00:52:33.713] ...future.globals.maxSize)) { 1553s [00:52:33.713] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1553s [00:52:33.713] on.exit(options(oopts), add = TRUE) 1553s [00:52:33.713] } 1553s [00:52:33.713] { 1553s [00:52:33.713] lapply(seq_along(...future.elements_ii), 1553s [00:52:33.713] FUN = function(jj) { 1553s [00:52:33.713] ...future.X_jj <- ...future.elements_ii[[jj]] 1553s [00:52:33.713] ...future.FUN(...future.X_jj, ...) 1553s [00:52:33.713] }) 1553s [00:52:33.713] } 1553s [00:52:33.713] }, args = future.call.arguments) 1553s [00:52:33.713] })) 1553s [00:52:33.713] future::FutureResult(value = ...future.value$value, 1553s [00:52:33.713] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1553s [00:52:33.713] ...future.rng), globalenv = if (FALSE) 1553s [00:52:33.713] list(added = base::setdiff(base::names(base::.GlobalEnv), 1553s [00:52:33.713] ...future.globalenv.names)) 1553s [00:52:33.713] else NULL, started = ...future.startTime, version = "1.8") 1553s [00:52:33.713] }, condition = base::local({ 1553s [00:52:33.713] c <- base::c 1553s [00:52:33.713] inherits <- base::inherits 1553s [00:52:33.713] invokeRestart <- base::invokeRestart 1553s [00:52:33.713] length <- base::length 1553s [00:52:33.713] list <- base::list 1553s [00:52:33.713] seq.int <- base::seq.int 1553s [00:52:33.713] signalCondition <- base::signalCondition 1553s [00:52:33.713] sys.calls <- base::sys.calls 1553s [00:52:33.713] `[[` <- base::`[[` 1553s [00:52:33.713] `+` <- base::`+` 1553s [00:52:33.713] `<<-` <- base::`<<-` 1553s [00:52:33.713] sysCalls <- function(calls = sys.calls(), from = 1L) { 1553s [00:52:33.713] calls[seq.int(from = from + 12L, to = length(calls) - 1553s [00:52:33.713] 3L)] 1553s [00:52:33.713] } 1553s [00:52:33.713] function(cond) { 1553s [00:52:33.713] is_error <- inherits(cond, "error") 1553s [00:52:33.713] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1553s [00:52:33.713] NULL) 1553s [00:52:33.713] if (is_error) { 1553s [00:52:33.713] sessionInformation <- function() { 1553s [00:52:33.713] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1553s [00:52:33.713] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1553s [00:52:33.713] search = base::search(), system = base::Sys.info()) 1553s [00:52:33.713] } 1553s [00:52:33.713] ...future.conditions[[length(...future.conditions) + 1553s [00:52:33.713] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1553s [00:52:33.713] cond$call), session = sessionInformation(), 1553s [00:52:33.713] timestamp = base::Sys.time(), signaled = 0L) 1553s [00:52:33.713] signalCondition(cond) 1553s [00:52:33.713] } 1553s [00:52:33.713] else if (!ignore && TRUE && inherits(cond, c("condition", 1553s [00:52:33.713] "immediateCondition"))) { 1553s [00:52:33.713] signal <- TRUE && inherits(cond, "immediateCondition") 1553s [00:52:33.713] ...future.conditions[[length(...future.conditions) + 1553s [00:52:33.713] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1553s [00:52:33.713] if (TRUE && !signal) { 1553s [00:52:33.713] muffleCondition <- function (cond, pattern = "^muffle") 1553s [00:52:33.713] { 1553s [00:52:33.713] inherits <- base::inherits 1553s [00:52:33.713] invokeRestart <- base::invokeRestart 1553s [00:52:33.713] is.null <- base::is.null 1553s [00:52:33.713] muffled <- FALSE 1553s [00:52:33.713] if (inherits(cond, "message")) { 1553s [00:52:33.713] muffled <- grepl(pattern, "muffleMessage") 1553s [00:52:33.713] if (muffled) 1553s [00:52:33.713] invokeRestart("muffleMessage") 1553s [00:52:33.713] } 1553s [00:52:33.713] else if (inherits(cond, "warning")) { 1553s [00:52:33.713] muffled <- grepl(pattern, "muffleWarning") 1553s [00:52:33.713] if (muffled) 1553s [00:52:33.713] invokeRestart("muffleWarning") 1553s [00:52:33.713] } 1553s [00:52:33.713] else if (inherits(cond, "condition")) { 1553s [00:52:33.713] if (!is.null(pattern)) { 1553s [00:52:33.713] computeRestarts <- base::computeRestarts 1553s [00:52:33.713] grepl <- base::grepl 1553s [00:52:33.713] restarts <- computeRestarts(cond) 1553s [00:52:33.713] for (restart in restarts) { 1553s [00:52:33.713] name <- restart$name 1553s [00:52:33.713] if (is.null(name)) 1553s [00:52:33.713] next 1553s [00:52:33.713] if (!grepl(pattern, name)) 1553s [00:52:33.713] next 1553s [00:52:33.713] invokeRestart(restart) 1553s [00:52:33.713] muffled <- TRUE 1553s [00:52:33.713] break 1553s [00:52:33.713] } 1553s [00:52:33.713] } 1553s [00:52:33.713] } 1553s [00:52:33.713] invisible(muffled) 1553s [00:52:33.713] } 1553s [00:52:33.713] muffleCondition(cond, pattern = "^muffle") 1553s [00:52:33.713] } 1553s [00:52:33.713] } 1553s [00:52:33.713] else { 1553s [00:52:33.713] if (TRUE) { 1553s [00:52:33.713] muffleCondition <- function (cond, pattern = "^muffle") 1553s [00:52:33.713] { 1553s [00:52:33.713] inherits <- base::inherits 1553s [00:52:33.713] invokeRestart <- base::invokeRestart 1553s [00:52:33.713] is.null <- base::is.null 1553s [00:52:33.713] muffled <- FALSE 1553s [00:52:33.713] if (inherits(cond, "message")) { 1553s [00:52:33.713] muffled <- grepl(pattern, "muffleMessage") 1553s [00:52:33.713] if (muffled) 1553s [00:52:33.713] invokeRestart("muffleMessage") 1553s [00:52:33.713] } 1553s [00:52:33.713] else if (inherits(cond, "warning")) { 1553s [00:52:33.713] muffled <- grepl(pattern, "muffleWarning") 1553s [00:52:33.713] if (muffled) 1553s [00:52:33.713] invokeRestart("muffleWarning") 1553s [00:52:33.713] } 1553s [00:52:33.713] else if (inherits(cond, "condition")) { 1553s [00:52:33.713] if (!is.null(pattern)) { 1553s [00:52:33.713] computeRestarts <- base::computeRestarts 1553s [00:52:33.713] grepl <- base::grepl 1553s [00:52:33.713] restarts <- computeRestarts(cond) 1553s [00:52:33.713] for (restart in restarts) { 1553s [00:52:33.713] name <- restart$name 1553s [00:52:33.713] if (is.null(name)) 1553s [00:52:33.713] next 1553s [00:52:33.713] if (!grepl(pattern, name)) 1553s [00:52:33.713] next 1553s [00:52:33.713] invokeRestart(restart) 1553s [00:52:33.713] muffled <- TRUE 1553s [00:52:33.713] break 1553s [00:52:33.713] } 1553s [00:52:33.713] } 1553s [00:52:33.713] } 1553s [00:52:33.713] invisible(muffled) 1553s [00:52:33.713] } 1553s [00:52:33.713] muffleCondition(cond, pattern = "^muffle") 1553s [00:52:33.713] } 1553s [00:52:33.713] } 1553s [00:52:33.713] } 1553s [00:52:33.713] })) 1553s [00:52:33.713] }, error = function(ex) { 1553s [00:52:33.713] base::structure(base::list(value = NULL, visible = NULL, 1553s [00:52:33.713] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1553s [00:52:33.713] ...future.rng), started = ...future.startTime, 1553s [00:52:33.713] finished = Sys.time(), session_uuid = NA_character_, 1553s [00:52:33.713] version = "1.8"), class = "FutureResult") 1553s [00:52:33.713] }, finally = { 1553s [00:52:33.713] if (!identical(...future.workdir, getwd())) 1553s [00:52:33.713] setwd(...future.workdir) 1553s [00:52:33.713] { 1553s [00:52:33.713] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1553s [00:52:33.713] ...future.oldOptions$nwarnings <- NULL 1553s [00:52:33.713] } 1553s [00:52:33.713] base::options(...future.oldOptions) 1553s [00:52:33.713] if (.Platform$OS.type == "windows") { 1553s [00:52:33.713] old_names <- names(...future.oldEnvVars) 1553s [00:52:33.713] envs <- base::Sys.getenv() 1553s [00:52:33.713] names <- names(envs) 1553s [00:52:33.713] common <- intersect(names, old_names) 1553s [00:52:33.713] added <- setdiff(names, old_names) 1553s [00:52:33.713] removed <- setdiff(old_names, names) 1553s [00:52:33.713] changed <- common[...future.oldEnvVars[common] != 1553s [00:52:33.713] envs[common]] 1553s [00:52:33.713] NAMES <- toupper(changed) 1553s [00:52:33.713] args <- list() 1553s [00:52:33.713] for (kk in seq_along(NAMES)) { 1553s [00:52:33.713] name <- changed[[kk]] 1553s [00:52:33.713] NAME <- NAMES[[kk]] 1553s [00:52:33.713] if (name != NAME && is.element(NAME, old_names)) 1553s [00:52:33.713] next 1553s [00:52:33.713] args[[name]] <- ...future.oldEnvVars[[name]] 1553s [00:52:33.713] } 1553s [00:52:33.713] NAMES <- toupper(added) 1553s [00:52:33.713] for (kk in seq_along(NAMES)) { 1553s [00:52:33.713] name <- added[[kk]] 1553s [00:52:33.713] NAME <- NAMES[[kk]] 1553s [00:52:33.713] if (name != NAME && is.element(NAME, old_names)) 1553s [00:52:33.713] next 1553s [00:52:33.713] args[[name]] <- "" 1553s [00:52:33.713] } 1553s [00:52:33.713] NAMES <- toupper(removed) 1553s [00:52:33.713] for (kk in seq_along(NAMES)) { 1553s [00:52:33.713] name <- removed[[kk]] 1553s [00:52:33.713] NAME <- NAMES[[kk]] 1553s [00:52:33.713] if (name != NAME && is.element(NAME, old_names)) 1553s [00:52:33.713] next 1553s [00:52:33.713] args[[name]] <- ...future.oldEnvVars[[name]] 1553s [00:52:33.713] } 1553s [00:52:33.713] if (length(args) > 0) 1553s [00:52:33.713] base::do.call(base::Sys.setenv, args = args) 1553s [00:52:33.713] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1553s [00:52:33.713] } 1553s [00:52:33.713] else { 1553s [00:52:33.713] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1553s [00:52:33.713] } 1553s [00:52:33.713] { 1553s [00:52:33.713] if (base::length(...future.futureOptionsAdded) > 1553s [00:52:33.713] 0L) { 1553s [00:52:33.713] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1553s [00:52:33.713] base::names(opts) <- ...future.futureOptionsAdded 1553s [00:52:33.713] base::options(opts) 1553s [00:52:33.713] } 1553s [00:52:33.713] { 1553s [00:52:33.713] { 1553s [00:52:33.713] NULL 1553s [00:52:33.713] RNGkind("Mersenne-Twister") 1553s [00:52:33.713] base::rm(list = ".Random.seed", envir = base::globalenv(), 1553s [00:52:33.713] inherits = FALSE) 1553s [00:52:33.713] } 1553s [00:52:33.713] options(future.plan = NULL) 1553s [00:52:33.713] if (is.na(NA_character_)) 1553s [00:52:33.713] Sys.unsetenv("R_FUTURE_PLAN") 1553s [00:52:33.713] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1553s [00:52:33.713] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1553s [00:52:33.713] envir = parent.frame()) 1553s [00:52:33.713] { 1553s [00:52:33.713] default_workers <- missing(workers) 1553s [00:52:33.713] if (is.function(workers)) 1553s [00:52:33.713] workers <- workers() 1553s [00:52:33.713] workers <- structure(as.integer(workers), 1553s [00:52:33.713] class = class(workers)) 1553s [00:52:33.713] stop_if_not(is.finite(workers), workers >= 1553s [00:52:33.713] 1L) 1553s [00:52:33.713] if ((workers == 1L && !inherits(workers, 1553s [00:52:33.713] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1553s [00:52:33.713] if (default_workers) 1553s [00:52:33.713] supportsMulticore(warn = TRUE) 1553s [00:52:33.713] return(sequential(..., envir = envir)) 1553s [00:52:33.713] } 1553s [00:52:33.713] oopts <- options(mc.cores = workers) 1553s [00:52:33.713] on.exit(options(oopts)) 1553s [00:52:33.713] future <- MulticoreFuture(..., workers = workers, 1553s [00:52:33.713] envir = envir) 1553s [00:52:33.713] if (!future$lazy) 1553s [00:52:33.713] future <- run(future) 1553s [00:52:33.713] invisible(future) 1553s [00:52:33.713] }), .cleanup = FALSE, .init = FALSE) 1553s [00:52:33.713] } 1553s [00:52:33.713] } 1553s [00:52:33.713] } 1553s [00:52:33.713] }) 1553s [00:52:33.713] if (TRUE) { 1553s [00:52:33.713] base::sink(type = "output", split = FALSE) 1553s [00:52:33.713] if (TRUE) { 1553s [00:52:33.713] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1553s [00:52:33.713] } 1553s [00:52:33.713] else { 1553s [00:52:33.713] ...future.result["stdout"] <- base::list(NULL) 1553s [00:52:33.713] } 1553s [00:52:33.713] base::close(...future.stdout) 1553s [00:52:33.713] ...future.stdout <- NULL 1553s [00:52:33.713] } 1553s [00:52:33.713] ...future.result$conditions <- ...future.conditions 1553s [00:52:33.713] ...future.result$finished <- base::Sys.time() 1553s [00:52:33.713] ...future.result 1553s [00:52:33.713] } 1553s [00:52:33.716] assign_globals() ... 1553s [00:52:33.716] List of 5 1553s [00:52:33.716] $ ...future.FUN :function (mode = "logical", length = 0L) 1553s [00:52:33.716] $ future.call.arguments :List of 1 1553s [00:52:33.716] ..$ length: int 2 1553s [00:52:33.716] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1553s [00:52:33.716] $ ...future.elements_ii :List of 4 1553s [00:52:33.716] ..$ c: chr "list" 1553s [00:52:33.716] ..$ c: chr "character" 1553s [00:52:33.716] ..$ b: chr "numeric" 1553s [00:52:33.716] ..$ a: chr "integer" 1553s [00:52:33.716] $ ...future.seeds_ii : NULL 1553s [00:52:33.716] $ ...future.globals.maxSize: NULL 1553s [00:52:33.716] - attr(*, "where")=List of 5 1553s [00:52:33.716] ..$ ...future.FUN : 1553s [00:52:33.716] ..$ future.call.arguments : 1553s [00:52:33.716] ..$ ...future.elements_ii : 1553s [00:52:33.716] ..$ ...future.seeds_ii : 1553s [00:52:33.716] ..$ ...future.globals.maxSize: 1553s [00:52:33.716] - attr(*, "resolved")= logi FALSE 1553s [00:52:33.716] - attr(*, "total_size")= num 2240 1553s [00:52:33.716] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1553s [00:52:33.716] - attr(*, "already-done")= logi TRUE 1553s [00:52:33.727] - copied ‘...future.FUN’ to environment 1553s [00:52:33.728] - copied ‘future.call.arguments’ to environment 1553s [00:52:33.728] - copied ‘...future.elements_ii’ to environment 1553s [00:52:33.728] - copied ‘...future.seeds_ii’ to environment 1553s [00:52:33.728] - copied ‘...future.globals.maxSize’ to environment 1553s [00:52:33.729] assign_globals() ... done 1553s [00:52:33.730] plan(): Setting new future strategy stack: 1553s [00:52:33.730] List of future strategies: 1553s [00:52:33.730] 1. sequential: 1553s [00:52:33.730] - args: function (..., envir = parent.frame()) 1553s [00:52:33.730] - tweaked: FALSE 1553s [00:52:33.730] - call: NULL 1553s [00:52:33.731] plan(): nbrOfWorkers() = 1 1553s [00:52:33.732] plan(): Setting new future strategy stack: 1553s [00:52:33.732] List of future strategies: 1553s [00:52:33.732] 1. multicore: 1553s [00:52:33.732] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1553s [00:52:33.732] - tweaked: FALSE 1553s [00:52:33.732] - call: plan(strategy) 1553s [00:52:33.736] plan(): nbrOfWorkers() = 1 1553s [00:52:33.736] SequentialFuture started (and completed) 1553s [00:52:33.736] - Launch lazy future ... done 1553s [00:52:33.736] run() for ‘SequentialFuture’ ... done 1553s [00:52:33.737] Created future: 1553s [00:52:33.737] SequentialFuture: 1553s [00:52:33.737] Label: ‘future_lapply-1’ 1553s [00:52:33.737] Expression: 1553s [00:52:33.737] { 1553s [00:52:33.737] do.call(function(...) { 1553s [00:52:33.737] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1553s [00:52:33.737] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1553s [00:52:33.737] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1553s [00:52:33.737] on.exit(options(oopts), add = TRUE) 1553s [00:52:33.737] } 1553s [00:52:33.737] { 1553s [00:52:33.737] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1553s [00:52:33.737] ...future.X_jj <- ...future.elements_ii[[jj]] 1553s [00:52:33.737] ...future.FUN(...future.X_jj, ...) 1553s [00:52:33.737] }) 1553s [00:52:33.737] } 1553s [00:52:33.737] }, args = future.call.arguments) 1553s [00:52:33.737] } 1553s [00:52:33.737] Lazy evaluation: FALSE 1553s [00:52:33.737] Asynchronous evaluation: FALSE 1553s [00:52:33.737] Local evaluation: TRUE 1553s [00:52:33.737] Environment: R_GlobalEnv 1553s [00:52:33.737] Capture standard output: TRUE 1553s [00:52:33.737] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1553s [00:52:33.737] Globals: 5 objects totaling 2.63 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 456 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1553s [00:52:33.737] Packages: 1553s [00:52:33.737] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1553s [00:52:33.737] Resolved: TRUE 1553s [00:52:33.737] Value: 240 bytes of class ‘list’ 1553s [00:52:33.737] Early signaling: FALSE 1553s [00:52:33.737] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1553s [00:52:33.737] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1553s [00:52:33.738] Chunk #1 of 1 ... DONE 1553s [00:52:33.739] Launching 1 futures (chunks) ... DONE 1553s [00:52:33.739] Resolving 1 futures (chunks) ... 1553s [00:52:33.739] resolve() on list ... 1553s [00:52:33.739] recursive: 0 1553s [00:52:33.739] length: 1 1553s [00:52:33.739] 1553s [00:52:33.739] resolved() for ‘SequentialFuture’ ... 1553s [00:52:33.740] - state: ‘finished’ 1553s [00:52:33.740] - run: TRUE 1553s [00:52:33.740] - result: ‘FutureResult’ 1553s [00:52:33.740] resolved() for ‘SequentialFuture’ ... done 1553s [00:52:33.740] Future #1 1553s [00:52:33.741] signalConditionsASAP(SequentialFuture, pos=1) ... 1553s [00:52:33.741] - nx: 1 1553s [00:52:33.741] - relay: TRUE 1553s [00:52:33.741] - stdout: TRUE 1553s [00:52:33.741] - signal: TRUE 1553s [00:52:33.741] - resignal: FALSE 1553s [00:52:33.741] - force: TRUE 1553s [00:52:33.741] - relayed: [n=1] FALSE 1553s [00:52:33.742] - queued futures: [n=1] FALSE 1553s [00:52:33.742] - until=1 1553s [00:52:33.742] - relaying element #1 1553s [00:52:33.742] - relayed: [n=1] TRUE 1553s [00:52:33.742] - queued futures: [n=1] TRUE 1553s [00:52:33.745] signalConditionsASAP(SequentialFuture, pos=1) ... done 1553s [00:52:33.745] length: 0 (resolved future 1) 1553s [00:52:33.745] Relaying remaining futures 1553s [00:52:33.745] signalConditionsASAP(NULL, pos=0) ... 1553s [00:52:33.746] - nx: 1 1553s [00:52:33.746] - relay: TRUE 1553s [00:52:33.746] - stdout: TRUE 1553s [00:52:33.746] - signal: TRUE 1553s [00:52:33.746] - resignal: FALSE 1553s [00:52:33.746] - force: TRUE 1553s [00:52:33.747] - relayed: [n=1] TRUE 1553s [00:52:33.747] - queued futures: [n=1] TRUE 1553s - flush all 1553s [00:52:33.747] - relayed: [n=1] TRUE 1553s [00:52:33.747] - queued futures: [n=1] TRUE 1553s [00:52:33.748] signalConditionsASAP(NULL, pos=0) ... done 1553s [00:52:33.748] resolve() on list ... DONE 1553s [00:52:33.748] - Number of value chunks collected: 1 1553s [00:52:33.748] Resolving 1 futures (chunks) ... DONE 1553s [00:52:33.749] Reducing values from 1 chunks ... 1553s [00:52:33.749] - Number of values collected after concatenation: 4 1553s [00:52:33.749] - Number of values expected: 4 1553s [00:52:33.749] Reverse index remapping (attribute 'ordering'): [n = 4] 4, 3, 2, 1 1553s [00:52:33.750] Reducing values from 1 chunks ... DONE 1553s [00:52:33.750] future_lapply() ... DONE 1553s List of 1 1553s $ y:List of 4 1553s ..$ a: int [1:2] 0 0 1553s ..$ b: num [1:2] 0 0 1553s ..$ c: chr [1:2] "" "" 1553s ..$ c:List of 2 1553s .. ..$ : NULL 1553s .. ..$ : NULL 1553s - future_lapply(x, FUN = future:::hpaste, ...) ... 1553s [00:52:33.755] future_lapply() ... 1553s [00:52:33.769] Number of chunks: 1 1553s [00:52:33.770] getGlobalsAndPackagesXApply() ... 1553s [00:52:33.770] - future.globals: TRUE 1553s [00:52:33.770] getGlobalsAndPackages() ... 1553s [00:52:33.770] Searching for globals... 1553s [00:52:33.785] - globals found: [22] ‘FUN’, ‘if’, ‘missing’, ‘is.finite’, ‘{’, ‘is.null’, ‘<-’, ‘paste’, ‘length’, ‘==’, ‘return’, ‘>’, ‘+’, ‘[’, ‘seq_len’, ‘rev’, ‘c’, ‘&&’, ‘!’, ‘:’, ‘(’, ‘-’ 1553s [00:52:33.785] Searching for globals ... DONE 1553s [00:52:33.786] Resolving globals: FALSE 1553s [00:52:33.787] The total size of the 1 globals is 69.62 KiB (71288 bytes) 1553s [00:52:33.788] The total size of the 1 globals exported for future expression (‘FUN(collapse = "; ", maxHead = 3L)’) is 69.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (69.62 KiB of class ‘function’) 1553s [00:52:33.789] - globals: [1] ‘FUN’ 1553s [00:52:33.789] - packages: [1] ‘future’ 1553s [00:52:33.789] getGlobalsAndPackages() ... DONE 1553s [00:52:33.789] - globals found/used: [n=1] ‘FUN’ 1553s [00:52:33.790] - needed namespaces: [n=1] ‘future’ 1553s [00:52:33.790] Finding globals ... DONE 1553s [00:52:33.790] - use_args: TRUE 1553s [00:52:33.790] - Getting '...' globals ... 1553s [00:52:33.791] resolve() on list ... 1553s [00:52:33.791] recursive: 0 1553s [00:52:33.791] length: 1 1553s [00:52:33.791] elements: ‘...’ 1553s [00:52:33.791] length: 0 (resolved future 1) 1553s [00:52:33.792] resolve() on list ... DONE 1553s [00:52:33.792] - '...' content: [n=2] ‘collapse’, ‘maxHead’ 1553s [00:52:33.792] List of 1 1553s [00:52:33.792] $ ...:List of 2 1553s [00:52:33.792] ..$ collapse: chr "; " 1553s [00:52:33.792] ..$ maxHead : int 3 1553s [00:52:33.792] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1553s [00:52:33.792] - attr(*, "where")=List of 1 1553s [00:52:33.792] ..$ ...: 1553s [00:52:33.792] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1553s [00:52:33.792] - attr(*, "resolved")= logi TRUE 1553s [00:52:33.792] - attr(*, "total_size")= num NA 1553s [00:52:33.797] - Getting '...' globals ... DONE 1553s [00:52:33.797] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1553s [00:52:33.798] List of 2 1553s [00:52:33.798] $ ...future.FUN:function (..., sep = "", collapse = ", ", lastCollapse = NULL, maxHead = if (missing(lastCollapse)) 3 else Inf, 1553s [00:52:33.798] maxTail = if (is.finite(maxHead)) 1 else Inf, abbreviate = "...") 1553s [00:52:33.798] $ ... :List of 2 1553s [00:52:33.798] ..$ collapse: chr "; " 1553s [00:52:33.798] ..$ maxHead : int 3 1553s [00:52:33.798] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1553s [00:52:33.798] - attr(*, "where")=List of 2 1553s [00:52:33.798] ..$ ...future.FUN: 1553s [00:52:33.798] ..$ ... : 1553s [00:52:33.798] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1553s [00:52:33.798] - attr(*, "resolved")= logi FALSE 1553s [00:52:33.798] - attr(*, "total_size")= num 71456 1553s [00:52:33.804] Packages to be attached in all futures: [n=1] ‘future’ 1553s [00:52:33.804] getGlobalsAndPackagesXApply() ... DONE 1553s [00:52:33.804] Number of futures (= number of chunks): 1 1553s [00:52:33.805] Launching 1 futures (chunks) ... 1553s [00:52:33.805] Chunk #1 of 1 ... 1553s [00:52:33.805] - Finding globals in 'X' for chunk #1 ... 1553s [00:52:33.805] getGlobalsAndPackages() ... 1553s [00:52:33.806] Searching for globals... 1553s [00:52:33.806] 1553s [00:52:33.806] Searching for globals ... DONE 1553s [00:52:33.806] - globals: [0] 1553s [00:52:33.806] getGlobalsAndPackages() ... DONE 1553s [00:52:33.807] + additional globals found: [n=0] 1553s [00:52:33.807] + additional namespaces needed: [n=0] 1553s [00:52:33.807] - Finding globals in 'X' for chunk #1 ... DONE 1553s [00:52:33.807] - seeds: 1553s [00:52:33.807] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1553s [00:52:33.807] getGlobalsAndPackages() ... 1553s [00:52:33.807] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1553s [00:52:33.807] Resolving globals: FALSE 1553s [00:52:33.808] Tweak future expression to call with '...' arguments ... 1553s [00:52:33.808] { 1553s [00:52:33.808] do.call(function(...) { 1553s [00:52:33.808] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1553s [00:52:33.808] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1553s [00:52:33.808] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1553s [00:52:33.808] on.exit(options(oopts), add = TRUE) 1553s [00:52:33.808] } 1553s [00:52:33.808] { 1553s [00:52:33.808] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1553s [00:52:33.808] ...future.X_jj <- ...future.elements_ii[[jj]] 1553s [00:52:33.808] ...future.FUN(...future.X_jj, ...) 1553s [00:52:33.808] }) 1553s [00:52:33.808] } 1553s [00:52:33.808] }, args = future.call.arguments) 1553s [00:52:33.808] } 1553s [00:52:33.808] Tweak future expression to call with '...' arguments ... DONE 1553s [00:52:33.812] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1553s [00:52:33.813] - packages: [1] ‘future’ 1553s [00:52:33.813] getGlobalsAndPackages() ... DONE 1553s [00:52:33.814] run() for ‘Future’ ... 1553s [00:52:33.814] - state: ‘created’ 1553s [00:52:33.814] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1553s [00:52:33.819] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1553s [00:52:33.820] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1553s [00:52:33.820] - Field: ‘label’ 1553s [00:52:33.820] - Field: ‘local’ 1553s [00:52:33.820] - Field: ‘owner’ 1553s [00:52:33.821] - Field: ‘envir’ 1553s [00:52:33.821] - Field: ‘packages’ 1553s [00:52:33.821] - Field: ‘gc’ 1553s [00:52:33.821] - Field: ‘conditions’ 1553s [00:52:33.821] - Field: ‘expr’ 1553s [00:52:33.822] - Field: ‘uuid’ 1553s [00:52:33.822] - Field: ‘seed’ 1553s [00:52:33.822] - Field: ‘version’ 1553s [00:52:33.822] - Field: ‘result’ 1553s [00:52:33.822] - Field: ‘asynchronous’ 1553s [00:52:33.822] - Field: ‘calls’ 1553s [00:52:33.823] - Field: ‘globals’ 1553s [00:52:33.823] - Field: ‘stdout’ 1553s [00:52:33.823] - Field: ‘earlySignal’ 1553s [00:52:33.823] - Field: ‘lazy’ 1553s [00:52:33.823] - Field: ‘state’ 1553s [00:52:33.824] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1553s [00:52:33.824] - Launch lazy future ... 1553s [00:52:33.824] Packages needed by the future expression (n = 1): ‘future’ 1553s [00:52:33.825] Packages needed by future strategies (n = 0): 1553s [00:52:33.826] { 1553s [00:52:33.826] { 1553s [00:52:33.826] { 1553s [00:52:33.826] ...future.startTime <- base::Sys.time() 1553s [00:52:33.826] { 1553s [00:52:33.826] { 1553s [00:52:33.826] { 1553s [00:52:33.826] { 1553s [00:52:33.826] base::local({ 1553s [00:52:33.826] has_future <- base::requireNamespace("future", 1553s [00:52:33.826] quietly = TRUE) 1553s [00:52:33.826] if (has_future) { 1553s [00:52:33.826] ns <- base::getNamespace("future") 1553s [00:52:33.826] version <- ns[[".package"]][["version"]] 1553s [00:52:33.826] if (is.null(version)) 1553s [00:52:33.826] version <- utils::packageVersion("future") 1553s [00:52:33.826] } 1553s [00:52:33.826] else { 1553s [00:52:33.826] version <- NULL 1553s [00:52:33.826] } 1553s [00:52:33.826] if (!has_future || version < "1.8.0") { 1553s [00:52:33.826] info <- base::c(r_version = base::gsub("R version ", 1553s [00:52:33.826] "", base::R.version$version.string), 1553s [00:52:33.826] platform = base::sprintf("%s (%s-bit)", 1553s [00:52:33.826] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1553s [00:52:33.826] os = base::paste(base::Sys.info()[base::c("sysname", 1553s [00:52:33.826] "release", "version")], collapse = " "), 1553s [00:52:33.826] hostname = base::Sys.info()[["nodename"]]) 1553s [00:52:33.826] info <- base::sprintf("%s: %s", base::names(info), 1553s [00:52:33.826] info) 1553s [00:52:33.826] info <- base::paste(info, collapse = "; ") 1553s [00:52:33.826] if (!has_future) { 1553s [00:52:33.826] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1553s [00:52:33.826] info) 1553s [00:52:33.826] } 1553s [00:52:33.826] else { 1553s [00:52:33.826] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1553s [00:52:33.826] info, version) 1553s [00:52:33.826] } 1553s [00:52:33.826] base::stop(msg) 1553s [00:52:33.826] } 1553s [00:52:33.826] }) 1553s [00:52:33.826] } 1553s [00:52:33.826] base::local({ 1553s [00:52:33.826] for (pkg in "future") { 1553s [00:52:33.826] base::loadNamespace(pkg) 1553s [00:52:33.826] base::library(pkg, character.only = TRUE) 1553s [00:52:33.826] } 1553s [00:52:33.826] }) 1553s [00:52:33.826] } 1553s [00:52:33.826] options(future.plan = NULL) 1553s [00:52:33.826] Sys.unsetenv("R_FUTURE_PLAN") 1553s [00:52:33.826] future::plan("default", .cleanup = FALSE, .init = FALSE) 1553s [00:52:33.826] } 1553s [00:52:33.826] ...future.workdir <- getwd() 1553s [00:52:33.826] } 1553s [00:52:33.826] ...future.oldOptions <- base::as.list(base::.Options) 1553s [00:52:33.826] ...future.oldEnvVars <- base::Sys.getenv() 1553s [00:52:33.826] } 1553s [00:52:33.826] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1553s [00:52:33.826] future.globals.maxSize = NULL, future.globals.method = NULL, 1553s [00:52:33.826] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1553s [00:52:33.826] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1553s [00:52:33.826] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1553s [00:52:33.826] future.stdout.windows.reencode = NULL, width = 80L) 1553s [00:52:33.826] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1553s [00:52:33.826] base::names(...future.oldOptions)) 1553s [00:52:33.826] } 1553s [00:52:33.826] if (FALSE) { 1553s [00:52:33.826] } 1553s [00:52:33.826] else { 1553s [00:52:33.826] if (TRUE) { 1553s [00:52:33.826] ...future.stdout <- base::rawConnection(base::raw(0L), 1553s [00:52:33.826] open = "w") 1553s [00:52:33.826] } 1553s [00:52:33.826] else { 1553s [00:52:33.826] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1553s [00:52:33.826] windows = "NUL", "/dev/null"), open = "w") 1553s [00:52:33.826] } 1553s [00:52:33.826] base::sink(...future.stdout, type = "output", split = FALSE) 1553s [00:52:33.826] base::on.exit(if (!base::is.null(...future.stdout)) { 1553s [00:52:33.826] base::sink(type = "output", split = FALSE) 1553s [00:52:33.826] base::close(...future.stdout) 1553s [00:52:33.826] }, add = TRUE) 1553s [00:52:33.826] } 1553s [00:52:33.826] ...future.frame <- base::sys.nframe() 1553s [00:52:33.826] ...future.conditions <- base::list() 1553s [00:52:33.826] ...future.rng <- base::globalenv()$.Random.seed 1553s [00:52:33.826] if (FALSE) { 1553s [00:52:33.826] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1553s [00:52:33.826] "...future.value", "...future.globalenv.names", ".Random.seed") 1553s [00:52:33.826] } 1553s [00:52:33.826] ...future.result <- base::tryCatch({ 1553s [00:52:33.826] base::withCallingHandlers({ 1553s [00:52:33.826] ...future.value <- base::withVisible(base::local({ 1553s [00:52:33.826] do.call(function(...) { 1553s [00:52:33.826] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1553s [00:52:33.826] if (!identical(...future.globals.maxSize.org, 1553s [00:52:33.826] ...future.globals.maxSize)) { 1553s [00:52:33.826] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1553s [00:52:33.826] on.exit(options(oopts), add = TRUE) 1553s [00:52:33.826] } 1553s [00:52:33.826] { 1553s [00:52:33.826] lapply(seq_along(...future.elements_ii), 1553s [00:52:33.826] FUN = function(jj) { 1553s [00:52:33.826] ...future.X_jj <- ...future.elements_ii[[jj]] 1553s [00:52:33.826] ...future.FUN(...future.X_jj, ...) 1553s [00:52:33.826] }) 1553s [00:52:33.826] } 1553s [00:52:33.826] }, args = future.call.arguments) 1553s [00:52:33.826] })) 1553s [00:52:33.826] future::FutureResult(value = ...future.value$value, 1553s [00:52:33.826] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1553s [00:52:33.826] ...future.rng), globalenv = if (FALSE) 1553s [00:52:33.826] list(added = base::setdiff(base::names(base::.GlobalEnv), 1553s [00:52:33.826] ...future.globalenv.names)) 1553s [00:52:33.826] else NULL, started = ...future.startTime, version = "1.8") 1553s [00:52:33.826] }, condition = base::local({ 1553s [00:52:33.826] c <- base::c 1553s [00:52:33.826] inherits <- base::inherits 1553s [00:52:33.826] invokeRestart <- base::invokeRestart 1553s [00:52:33.826] length <- base::length 1553s [00:52:33.826] list <- base::list 1553s [00:52:33.826] seq.int <- base::seq.int 1553s [00:52:33.826] signalCondition <- base::signalCondition 1553s [00:52:33.826] sys.calls <- base::sys.calls 1553s [00:52:33.826] `[[` <- base::`[[` 1553s [00:52:33.826] `+` <- base::`+` 1553s [00:52:33.826] `<<-` <- base::`<<-` 1553s [00:52:33.826] sysCalls <- function(calls = sys.calls(), from = 1L) { 1553s [00:52:33.826] calls[seq.int(from = from + 12L, to = length(calls) - 1553s [00:52:33.826] 3L)] 1553s [00:52:33.826] } 1553s [00:52:33.826] function(cond) { 1553s [00:52:33.826] is_error <- inherits(cond, "error") 1553s [00:52:33.826] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1553s [00:52:33.826] NULL) 1553s [00:52:33.826] if (is_error) { 1553s [00:52:33.826] sessionInformation <- function() { 1553s [00:52:33.826] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1553s [00:52:33.826] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1553s [00:52:33.826] search = base::search(), system = base::Sys.info()) 1553s [00:52:33.826] } 1553s [00:52:33.826] ...future.conditions[[length(...future.conditions) + 1553s [00:52:33.826] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1553s [00:52:33.826] cond$call), session = sessionInformation(), 1553s [00:52:33.826] timestamp = base::Sys.time(), signaled = 0L) 1553s [00:52:33.826] signalCondition(cond) 1553s [00:52:33.826] } 1553s [00:52:33.826] else if (!ignore && TRUE && inherits(cond, c("condition", 1553s [00:52:33.826] "immediateCondition"))) { 1553s [00:52:33.826] signal <- TRUE && inherits(cond, "immediateCondition") 1553s [00:52:33.826] ...future.conditions[[length(...future.conditions) + 1553s [00:52:33.826] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1553s [00:52:33.826] if (TRUE && !signal) { 1553s [00:52:33.826] muffleCondition <- function (cond, pattern = "^muffle") 1553s [00:52:33.826] { 1553s [00:52:33.826] inherits <- base::inherits 1553s [00:52:33.826] invokeRestart <- base::invokeRestart 1553s [00:52:33.826] is.null <- base::is.null 1553s [00:52:33.826] muffled <- FALSE 1553s [00:52:33.826] if (inherits(cond, "message")) { 1553s [00:52:33.826] muffled <- grepl(pattern, "muffleMessage") 1553s [00:52:33.826] if (muffled) 1553s [00:52:33.826] invokeRestart("muffleMessage") 1553s [00:52:33.826] } 1553s [00:52:33.826] else if (inherits(cond, "warning")) { 1553s [00:52:33.826] muffled <- grepl(pattern, "muffleWarning") 1553s [00:52:33.826] if (muffled) 1553s [00:52:33.826] invokeRestart("muffleWarning") 1553s [00:52:33.826] } 1553s [00:52:33.826] else if (inherits(cond, "condition")) { 1553s [00:52:33.826] if (!is.null(pattern)) { 1553s [00:52:33.826] computeRestarts <- base::computeRestarts 1553s [00:52:33.826] grepl <- base::grepl 1553s [00:52:33.826] restarts <- computeRestarts(cond) 1553s [00:52:33.826] for (restart in restarts) { 1553s [00:52:33.826] name <- restart$name 1553s [00:52:33.826] if (is.null(name)) 1553s [00:52:33.826] next 1553s [00:52:33.826] if (!grepl(pattern, name)) 1553s [00:52:33.826] next 1553s [00:52:33.826] invokeRestart(restart) 1553s [00:52:33.826] muffled <- TRUE 1553s [00:52:33.826] break 1553s [00:52:33.826] } 1553s [00:52:33.826] } 1553s [00:52:33.826] } 1553s [00:52:33.826] invisible(muffled) 1553s [00:52:33.826] } 1553s [00:52:33.826] muffleCondition(cond, pattern = "^muffle") 1553s [00:52:33.826] } 1553s [00:52:33.826] } 1553s [00:52:33.826] else { 1553s [00:52:33.826] if (TRUE) { 1553s [00:52:33.826] muffleCondition <- function (cond, pattern = "^muffle") 1553s [00:52:33.826] { 1553s [00:52:33.826] inherits <- base::inherits 1553s [00:52:33.826] invokeRestart <- base::invokeRestart 1553s [00:52:33.826] is.null <- base::is.null 1553s [00:52:33.826] muffled <- FALSE 1553s [00:52:33.826] if (inherits(cond, "message")) { 1553s [00:52:33.826] muffled <- grepl(pattern, "muffleMessage") 1553s [00:52:33.826] if (muffled) 1553s [00:52:33.826] invokeRestart("muffleMessage") 1553s [00:52:33.826] } 1553s [00:52:33.826] else if (inherits(cond, "warning")) { 1553s [00:52:33.826] muffled <- grepl(pattern, "muffleWarning") 1553s [00:52:33.826] if (muffled) 1553s [00:52:33.826] invokeRestart("muffleWarning") 1553s [00:52:33.826] } 1553s [00:52:33.826] else if (inherits(cond, "condition")) { 1553s [00:52:33.826] if (!is.null(pattern)) { 1553s [00:52:33.826] computeRestarts <- base::computeRestarts 1553s [00:52:33.826] grepl <- base::grepl 1553s [00:52:33.826] restarts <- computeRestarts(cond) 1553s [00:52:33.826] for (restart in restarts) { 1553s [00:52:33.826] name <- restart$name 1553s [00:52:33.826] if (is.null(name)) 1553s [00:52:33.826] next 1553s [00:52:33.826] if (!grepl(pattern, name)) 1553s [00:52:33.826] next 1553s [00:52:33.826] invokeRestart(restart) 1553s [00:52:33.826] muffled <- TRUE 1553s [00:52:33.826] break 1553s [00:52:33.826] } 1553s [00:52:33.826] } 1553s [00:52:33.826] } 1553s [00:52:33.826] invisible(muffled) 1553s [00:52:33.826] } 1553s [00:52:33.826] muffleCondition(cond, pattern = "^muffle") 1553s [00:52:33.826] } 1553s [00:52:33.826] } 1553s [00:52:33.826] } 1553s [00:52:33.826] })) 1553s [00:52:33.826] }, error = function(ex) { 1553s [00:52:33.826] base::structure(base::list(value = NULL, visible = NULL, 1553s [00:52:33.826] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1553s [00:52:33.826] ...future.rng), started = ...future.startTime, 1553s [00:52:33.826] finished = Sys.time(), session_uuid = NA_character_, 1553s [00:52:33.826] version = "1.8"), class = "FutureResult") 1553s [00:52:33.826] }, finally = { 1553s [00:52:33.826] if (!identical(...future.workdir, getwd())) 1553s [00:52:33.826] setwd(...future.workdir) 1553s [00:52:33.826] { 1553s [00:52:33.826] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1553s [00:52:33.826] ...future.oldOptions$nwarnings <- NULL 1553s [00:52:33.826] } 1553s [00:52:33.826] base::options(...future.oldOptions) 1553s [00:52:33.826] if (.Platform$OS.type == "windows") { 1553s [00:52:33.826] old_names <- names(...future.oldEnvVars) 1553s [00:52:33.826] envs <- base::Sys.getenv() 1553s [00:52:33.826] names <- names(envs) 1553s [00:52:33.826] common <- intersect(names, old_names) 1553s [00:52:33.826] added <- setdiff(names, old_names) 1553s [00:52:33.826] removed <- setdiff(old_names, names) 1553s [00:52:33.826] changed <- common[...future.oldEnvVars[common] != 1553s [00:52:33.826] envs[common]] 1553s [00:52:33.826] NAMES <- toupper(changed) 1553s [00:52:33.826] args <- list() 1553s [00:52:33.826] for (kk in seq_along(NAMES)) { 1553s [00:52:33.826] name <- changed[[kk]] 1553s [00:52:33.826] NAME <- NAMES[[kk]] 1553s [00:52:33.826] if (name != NAME && is.element(NAME, old_names)) 1553s [00:52:33.826] next 1553s [00:52:33.826] args[[name]] <- ...future.oldEnvVars[[name]] 1553s [00:52:33.826] } 1553s [00:52:33.826] NAMES <- toupper(added) 1553s [00:52:33.826] for (kk in seq_along(NAMES)) { 1553s [00:52:33.826] name <- added[[kk]] 1553s [00:52:33.826] NAME <- NAMES[[kk]] 1553s [00:52:33.826] if (name != NAME && is.element(NAME, old_names)) 1553s [00:52:33.826] next 1553s [00:52:33.826] args[[name]] <- "" 1553s [00:52:33.826] } 1553s [00:52:33.826] NAMES <- toupper(removed) 1553s [00:52:33.826] for (kk in seq_along(NAMES)) { 1553s [00:52:33.826] name <- removed[[kk]] 1553s [00:52:33.826] NAME <- NAMES[[kk]] 1553s [00:52:33.826] if (name != NAME && is.element(NAME, old_names)) 1553s [00:52:33.826] next 1553s [00:52:33.826] args[[name]] <- ...future.oldEnvVars[[name]] 1553s [00:52:33.826] } 1553s [00:52:33.826] if (length(args) > 0) 1553s [00:52:33.826] base::do.call(base::Sys.setenv, args = args) 1553s [00:52:33.826] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1553s [00:52:33.826] } 1553s [00:52:33.826] else { 1553s [00:52:33.826] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1553s [00:52:33.826] } 1553s [00:52:33.826] { 1553s [00:52:33.826] if (base::length(...future.futureOptionsAdded) > 1553s [00:52:33.826] 0L) { 1553s [00:52:33.826] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1553s [00:52:33.826] base::names(opts) <- ...future.futureOptionsAdded 1553s [00:52:33.826] base::options(opts) 1553s [00:52:33.826] } 1553s [00:52:33.826] { 1553s [00:52:33.826] { 1553s [00:52:33.826] NULL 1553s [00:52:33.826] RNGkind("Mersenne-Twister") 1553s [00:52:33.826] base::rm(list = ".Random.seed", envir = base::globalenv(), 1553s [00:52:33.826] inherits = FALSE) 1553s [00:52:33.826] } 1553s [00:52:33.826] options(future.plan = NULL) 1553s [00:52:33.826] if (is.na(NA_character_)) 1553s [00:52:33.826] Sys.unsetenv("R_FUTURE_PLAN") 1553s [00:52:33.826] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1553s [00:52:33.826] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1553s [00:52:33.826] envir = parent.frame()) 1553s [00:52:33.826] { 1553s [00:52:33.826] default_workers <- missing(workers) 1553s [00:52:33.826] if (is.function(workers)) 1553s [00:52:33.826] workers <- workers() 1553s [00:52:33.826] workers <- structure(as.integer(workers), 1553s [00:52:33.826] class = class(workers)) 1553s [00:52:33.826] stop_if_not(is.finite(workers), workers >= 1553s [00:52:33.826] 1L) 1553s [00:52:33.826] if ((workers == 1L && !inherits(workers, 1553s [00:52:33.826] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1553s [00:52:33.826] if (default_workers) 1553s [00:52:33.826] supportsMulticore(warn = TRUE) 1553s [00:52:33.826] return(sequential(..., envir = envir)) 1553s [00:52:33.826] } 1553s [00:52:33.826] oopts <- options(mc.cores = workers) 1553s [00:52:33.826] on.exit(options(oopts)) 1553s [00:52:33.826] future <- MulticoreFuture(..., workers = workers, 1553s [00:52:33.826] envir = envir) 1553s [00:52:33.826] if (!future$lazy) 1553s [00:52:33.826] future <- run(future) 1553s [00:52:33.826] invisible(future) 1553s [00:52:33.826] }), .cleanup = FALSE, .init = FALSE) 1553s [00:52:33.826] } 1553s [00:52:33.826] } 1553s [00:52:33.826] } 1553s [00:52:33.826] }) 1553s [00:52:33.826] if (TRUE) { 1553s [00:52:33.826] base::sink(type = "output", split = FALSE) 1553s [00:52:33.826] if (TRUE) { 1553s [00:52:33.826] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1553s [00:52:33.826] } 1553s [00:52:33.826] else { 1553s [00:52:33.826] ...future.result["stdout"] <- base::list(NULL) 1553s [00:52:33.826] } 1553s [00:52:33.826] base::close(...future.stdout) 1553s [00:52:33.826] ...future.stdout <- NULL 1553s [00:52:33.826] } 1553s [00:52:33.826] ...future.result$conditions <- ...future.conditions 1553s [00:52:33.826] ...future.result$finished <- base::Sys.time() 1553s [00:52:33.826] ...future.result 1553s [00:52:33.826] } 1553s [00:52:33.831] assign_globals() ... 1553s [00:52:33.831] List of 5 1553s [00:52:33.831] $ ...future.FUN :function (..., sep = "", collapse = ", ", lastCollapse = NULL, maxHead = if (missing(lastCollapse)) 3 else Inf, 1553s [00:52:33.831] maxTail = if (is.finite(maxHead)) 1 else Inf, abbreviate = "...") 1553s [00:52:33.831] $ future.call.arguments :List of 2 1553s [00:52:33.831] ..$ collapse: chr "; " 1553s [00:52:33.831] ..$ maxHead : int 3 1553s [00:52:33.831] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1553s [00:52:33.831] $ ...future.elements_ii :List of 1 1553s [00:52:33.831] ..$ a: Named chr [1:101] "hello" "1" "2" "3" ... 1553s [00:52:33.831] .. ..- attr(*, "names")= chr [1:101] "" "b1" "b2" "b3" ... 1553s [00:52:33.831] $ ...future.seeds_ii : NULL 1553s [00:52:33.831] $ ...future.globals.maxSize: NULL 1553s [00:52:33.831] - attr(*, "where")=List of 5 1553s [00:52:33.831] ..$ ...future.FUN : 1553s [00:52:33.831] ..$ future.call.arguments : 1553s [00:52:33.831] ..$ ...future.elements_ii : 1553s [00:52:33.831] ..$ ...future.seeds_ii : 1553s [00:52:33.831] ..$ ...future.globals.maxSize: 1553s [00:52:33.831] - attr(*, "resolved")= logi FALSE 1553s [00:52:33.831] - attr(*, "total_size")= num 71456 1553s [00:52:33.831] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1553s [00:52:33.831] - attr(*, "already-done")= logi TRUE 1553s [00:52:33.839] - copied ‘...future.FUN’ to environment 1553s [00:52:33.839] - copied ‘future.call.arguments’ to environment 1553s [00:52:33.839] - copied ‘...future.elements_ii’ to environment 1553s [00:52:33.840] - copied ‘...future.seeds_ii’ to environment 1553s [00:52:33.840] - copied ‘...future.globals.maxSize’ to environment 1553s [00:52:33.840] assign_globals() ... done 1553s [00:52:33.841] plan(): Setting new future strategy stack: 1553s [00:52:33.841] List of future strategies: 1553s [00:52:33.841] 1. sequential: 1553s [00:52:33.841] - args: function (..., envir = parent.frame()) 1553s [00:52:33.841] - tweaked: FALSE 1553s [00:52:33.841] - call: NULL 1553s [00:52:33.842] plan(): nbrOfWorkers() = 1 1553s [00:52:33.842] plan(): Setting new future strategy stack: 1553s [00:52:33.843] List of future strategies: 1553s [00:52:33.843] 1. multicore: 1553s [00:52:33.843] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1553s [00:52:33.843] - tweaked: FALSE 1553s [00:52:33.843] - call: plan(strategy) 1553s [00:52:33.846] plan(): nbrOfWorkers() = 1 1553s [00:52:33.847] SequentialFuture started (and completed) 1553s [00:52:33.847] - Launch lazy future ... done 1553s [00:52:33.847] run() for ‘SequentialFuture’ ... done 1553s [00:52:33.847] Created future: 1553s [00:52:33.847] SequentialFuture: 1553s [00:52:33.847] Label: ‘future_lapply-1’ 1553s [00:52:33.847] Expression: 1553s [00:52:33.847] { 1553s [00:52:33.847] do.call(function(...) { 1553s [00:52:33.847] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1553s [00:52:33.847] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1553s [00:52:33.847] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1553s [00:52:33.847] on.exit(options(oopts), add = TRUE) 1553s [00:52:33.847] } 1553s [00:52:33.847] { 1553s [00:52:33.847] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1553s [00:52:33.847] ...future.X_jj <- ...future.elements_ii[[jj]] 1553s [00:52:33.847] ...future.FUN(...future.X_jj, ...) 1553s [00:52:33.847] }) 1553s [00:52:33.847] } 1553s [00:52:33.847] }, args = future.call.arguments) 1553s [00:52:33.847] } 1553s [00:52:33.847] Lazy evaluation: FALSE 1553s [00:52:33.847] Asynchronous evaluation: FALSE 1553s [00:52:33.847] Local evaluation: TRUE 1553s [00:52:33.847] Environment: R_GlobalEnv 1553s [00:52:33.847] Capture standard output: TRUE 1553s [00:52:33.847] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1553s [00:52:33.847] Globals: 5 objects totaling 82.61 KiB (function ‘...future.FUN’ of 69.62 KiB, DotDotDotList ‘future.call.arguments’ of 168 bytes, list ‘...future.elements_ii’ of 12.83 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1553s [00:52:33.847] Packages: 1 packages (‘future’) 1553s [00:52:33.847] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1553s [00:52:33.847] Resolved: TRUE 1553s [00:52:33.847] Value: 136 bytes of class ‘list’ 1553s [00:52:33.847] Early signaling: FALSE 1553s [00:52:33.847] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1553s [00:52:33.847] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1553s [00:52:33.849] Chunk #1 of 1 ... DONE 1553s [00:52:33.849] Launching 1 futures (chunks) ... DONE 1553s [00:52:33.849] Resolving 1 futures (chunks) ... 1553s [00:52:33.850] resolve() on list ... 1553s [00:52:33.850] recursive: 0 1553s [00:52:33.850] length: 1 1553s [00:52:33.850] 1553s [00:52:33.850] resolved() for ‘SequentialFuture’ ... 1553s [00:52:33.851] - state: ‘finished’ 1553s [00:52:33.851] - run: TRUE 1553s [00:52:33.851] - result: ‘FutureResult’ 1553s [00:52:33.851] resolved() for ‘SequentialFuture’ ... done 1553s [00:52:33.852] Future #1 1553s [00:52:33.852] signalConditionsASAP(SequentialFuture, pos=1) ... 1553s [00:52:33.852] - nx: 1 1553s [00:52:33.855] - relay: TRUE 1553s [00:52:33.855] - stdout: TRUE 1553s [00:52:33.856] - signal: TRUE 1553s [00:52:33.856] - resignal: FALSE 1553s [00:52:33.856] - force: TRUE 1553s [00:52:33.856] - relayed: [n=1] FALSE 1553s [00:52:33.856] - queued futures: [n=1] FALSE 1553s [00:52:33.856] - until=1 1553s [00:52:33.857] - relaying element #1 1553s [00:52:33.857] - relayed: [n=1] TRUE 1553s [00:52:33.857] - queued futures: [n=1] TRUE 1553s [00:52:33.857] signalConditionsASAP(SequentialFuture, pos=1) ... done 1553s [00:52:33.857] length: 0 (resolved future 1) 1553s [00:52:33.858] Relaying remaining futures 1553s [00:52:33.858] signalConditionsASAP(NULL, pos=0) ... 1553s [00:52:33.858] - nx: 1 1553s [00:52:33.858] - relay: TRUE 1553s [00:52:33.858] - stdout: TRUE 1553s [00:52:33.858] - signal: TRUE 1553s [00:52:33.859] - resignal: FALSE 1553s [00:52:33.859] - force: TRUE 1553s [00:52:33.859] - relayed: [n=1] TRUE 1553s [00:52:33.859] - queued futures: [n=1] TRUE 1553s - flush all 1553s [00:52:33.859] - relayed: [n=1] TRUE 1553s [00:52:33.859] - queued futures: [n=1] TRUE 1553s [00:52:33.860] signalConditionsASAP(NULL, pos=0) ... done 1553s [00:52:33.860] resolve() on list ... DONE 1553s [00:52:33.860] - Number of value chunks collected: 1 1553s [00:52:33.861] Resolving 1 futures (chunks) ... DONE 1553s [00:52:33.861] Reducing values from 1 chunks ... 1553s [00:52:33.861] - Number of values collected after concatenation: 1 1553s [00:52:33.861] - Number of values expected: 1 1553s [00:52:33.862] Reducing values from 1 chunks ... DONE 1553s [00:52:33.862] future_lapply() ... DONE 1553s List of 1 1553s $ y:List of 1 1553s ..$ a: chr "hello; 1; 2; ...; 100" 1553s - future_lapply(x, FUN = listenv::listenv, ...) ... 1553s [00:52:33.864] future_lapply() ... 1553s [00:52:33.868] Number of chunks: 1 1553s [00:52:33.869] Index remapping (attribute 'ordering'): [n = 2] 2, 1 1553s [00:52:33.869] getGlobalsAndPackagesXApply() ... 1553s [00:52:33.869] - future.globals: TRUE 1553s [00:52:33.869] getGlobalsAndPackages() ... 1553s [00:52:33.869] Searching for globals... 1553s [00:52:33.871] - globals found: [4] ‘FUN’, ‘{’, ‘get’, ‘parent.env’ 1553s [00:52:33.871] Searching for globals ... DONE 1553s [00:52:33.871] Resolving globals: FALSE 1553s [00:52:33.872] The total size of the 1 globals is 4.85 KiB (4968 bytes) 1553s [00:52:33.873] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.85 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.85 KiB of class ‘function’) 1553s [00:52:33.873] - globals: [1] ‘FUN’ 1553s [00:52:33.873] - packages: [1] ‘listenv’ 1553s [00:52:33.874] getGlobalsAndPackages() ... DONE 1553s [00:52:33.874] - globals found/used: [n=1] ‘FUN’ 1553s [00:52:33.874] - needed namespaces: [n=1] ‘listenv’ 1553s [00:52:33.874] Finding globals ... DONE 1553s [00:52:33.875] - use_args: TRUE 1553s [00:52:33.875] - Getting '...' globals ... 1553s [00:52:33.875] resolve() on list ... 1553s [00:52:33.875] recursive: 0 1553s [00:52:33.876] length: 1 1553s [00:52:33.876] elements: ‘...’ 1553s [00:52:33.876] length: 0 (resolved future 1) 1553s [00:52:33.876] resolve() on list ... DONE 1553s [00:52:33.876] - '...' content: [n=0] 1553s [00:52:33.876] List of 1 1553s [00:52:33.876] $ ...: list() 1553s [00:52:33.876] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1553s [00:52:33.876] - attr(*, "where")=List of 1 1553s [00:52:33.876] ..$ ...: 1553s [00:52:33.876] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1553s [00:52:33.876] - attr(*, "resolved")= logi TRUE 1553s [00:52:33.876] - attr(*, "total_size")= num NA 1553s [00:52:33.880] - Getting '...' globals ... DONE 1553s [00:52:33.880] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1553s [00:52:33.880] List of 2 1553s [00:52:33.880] $ ...future.FUN:function (x, ...) 1553s [00:52:33.880] $ ... : list() 1553s [00:52:33.880] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1553s [00:52:33.880] - attr(*, "where")=List of 2 1553s [00:52:33.880] ..$ ...future.FUN: 1553s [00:52:33.880] ..$ ... : 1553s [00:52:33.880] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1553s [00:52:33.880] - attr(*, "resolved")= logi FALSE 1553s [00:52:33.880] - attr(*, "total_size")= num 4968 1553s [00:52:33.884] Packages to be attached in all futures: [n=1] ‘listenv’ 1553s [00:52:33.884] getGlobalsAndPackagesXApply() ... DONE 1553s [00:52:33.885] Number of futures (= number of chunks): 1 1553s [00:52:33.885] Launching 1 futures (chunks) ... 1553s [00:52:33.885] Chunk #1 of 1 ... 1553s [00:52:33.885] - Finding globals in 'X' for chunk #1 ... 1553s [00:52:33.885] getGlobalsAndPackages() ... 1553s [00:52:33.885] Searching for globals... 1553s [00:52:33.886] 1553s [00:52:33.890] Searching for globals ... DONE 1553s [00:52:33.891] - globals: [0] 1553s [00:52:33.891] getGlobalsAndPackages() ... DONE 1553s [00:52:33.891] + additional globals found: [n=0] 1553s [00:52:33.891] + additional namespaces needed: [n=0] 1553s [00:52:33.891] - Finding globals in 'X' for chunk #1 ... DONE 1553s [00:52:33.892] - seeds: 1553s [00:52:33.892] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1553s [00:52:33.892] getGlobalsAndPackages() ... 1553s [00:52:33.892] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1553s [00:52:33.893] Resolving globals: FALSE 1553s [00:52:33.893] Tweak future expression to call with '...' arguments ... 1553s [00:52:33.893] { 1553s [00:52:33.893] do.call(function(...) { 1553s [00:52:33.893] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1553s [00:52:33.893] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1553s [00:52:33.893] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1553s [00:52:33.893] on.exit(options(oopts), add = TRUE) 1553s [00:52:33.893] } 1553s [00:52:33.893] { 1553s [00:52:33.893] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1553s [00:52:33.893] ...future.X_jj <- ...future.elements_ii[[jj]] 1553s [00:52:33.893] ...future.FUN(...future.X_jj, ...) 1553s [00:52:33.893] }) 1553s [00:52:33.893] } 1553s [00:52:33.893] }, args = future.call.arguments) 1553s [00:52:33.893] } 1553s [00:52:33.894] Tweak future expression to call with '...' arguments ... DONE 1553s [00:52:33.894] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1553s [00:52:33.895] - packages: [1] ‘listenv’ 1553s [00:52:33.895] getGlobalsAndPackages() ... DONE 1553s [00:52:33.896] run() for ‘Future’ ... 1553s [00:52:33.896] - state: ‘created’ 1553s [00:52:33.896] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1553s [00:52:33.900] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1553s [00:52:33.901] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1553s [00:52:33.901] - Field: ‘label’ 1553s [00:52:33.901] - Field: ‘local’ 1553s [00:52:33.901] - Field: ‘owner’ 1553s [00:52:33.902] - Field: ‘envir’ 1553s [00:52:33.902] - Field: ‘packages’ 1553s [00:52:33.902] - Field: ‘gc’ 1553s [00:52:33.902] - Field: ‘conditions’ 1553s [00:52:33.903] - Field: ‘expr’ 1553s [00:52:33.903] - Field: ‘uuid’ 1553s [00:52:33.903] - Field: ‘seed’ 1553s [00:52:33.903] - Field: ‘version’ 1553s [00:52:33.903] - Field: ‘result’ 1553s [00:52:33.904] - Field: ‘asynchronous’ 1553s [00:52:33.904] - Field: ‘calls’ 1553s [00:52:33.904] - Field: ‘globals’ 1553s [00:52:33.904] - Field: ‘stdout’ 1553s [00:52:33.904] - Field: ‘earlySignal’ 1553s [00:52:33.904] - Field: ‘lazy’ 1553s [00:52:33.905] - Field: ‘state’ 1553s [00:52:33.905] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1553s [00:52:33.905] - Launch lazy future ... 1553s [00:52:33.905] Packages needed by the future expression (n = 1): ‘listenv’ 1553s [00:52:33.905] Packages needed by future strategies (n = 0): 1553s [00:52:33.906] { 1553s [00:52:33.906] { 1553s [00:52:33.906] { 1553s [00:52:33.906] ...future.startTime <- base::Sys.time() 1553s [00:52:33.906] { 1553s [00:52:33.906] { 1553s [00:52:33.906] { 1553s [00:52:33.906] { 1553s [00:52:33.906] base::local({ 1553s [00:52:33.906] has_future <- base::requireNamespace("future", 1553s [00:52:33.906] quietly = TRUE) 1553s [00:52:33.906] if (has_future) { 1553s [00:52:33.906] ns <- base::getNamespace("future") 1553s [00:52:33.906] version <- ns[[".package"]][["version"]] 1553s [00:52:33.906] if (is.null(version)) 1553s [00:52:33.906] version <- utils::packageVersion("future") 1553s [00:52:33.906] } 1553s [00:52:33.906] else { 1553s [00:52:33.906] version <- NULL 1553s [00:52:33.906] } 1553s [00:52:33.906] if (!has_future || version < "1.8.0") { 1553s [00:52:33.906] info <- base::c(r_version = base::gsub("R version ", 1553s [00:52:33.906] "", base::R.version$version.string), 1553s [00:52:33.906] platform = base::sprintf("%s (%s-bit)", 1553s [00:52:33.906] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1553s [00:52:33.906] os = base::paste(base::Sys.info()[base::c("sysname", 1553s [00:52:33.906] "release", "version")], collapse = " "), 1553s [00:52:33.906] hostname = base::Sys.info()[["nodename"]]) 1553s [00:52:33.906] info <- base::sprintf("%s: %s", base::names(info), 1553s [00:52:33.906] info) 1553s [00:52:33.906] info <- base::paste(info, collapse = "; ") 1553s [00:52:33.906] if (!has_future) { 1553s [00:52:33.906] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1553s [00:52:33.906] info) 1553s [00:52:33.906] } 1553s [00:52:33.906] else { 1553s [00:52:33.906] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1553s [00:52:33.906] info, version) 1553s [00:52:33.906] } 1553s [00:52:33.906] base::stop(msg) 1553s [00:52:33.906] } 1553s [00:52:33.906] }) 1553s [00:52:33.906] } 1553s [00:52:33.906] base::local({ 1553s [00:52:33.906] for (pkg in "listenv") { 1553s [00:52:33.906] base::loadNamespace(pkg) 1553s [00:52:33.906] base::library(pkg, character.only = TRUE) 1553s [00:52:33.906] } 1553s [00:52:33.906] }) 1553s [00:52:33.906] } 1553s [00:52:33.906] options(future.plan = NULL) 1553s [00:52:33.906] Sys.unsetenv("R_FUTURE_PLAN") 1553s [00:52:33.906] future::plan("default", .cleanup = FALSE, .init = FALSE) 1553s [00:52:33.906] } 1553s [00:52:33.906] ...future.workdir <- getwd() 1553s [00:52:33.906] } 1553s [00:52:33.906] ...future.oldOptions <- base::as.list(base::.Options) 1553s [00:52:33.906] ...future.oldEnvVars <- base::Sys.getenv() 1553s [00:52:33.906] } 1553s [00:52:33.906] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1553s [00:52:33.906] future.globals.maxSize = NULL, future.globals.method = NULL, 1553s [00:52:33.906] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1553s [00:52:33.906] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1553s [00:52:33.906] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1553s [00:52:33.906] future.stdout.windows.reencode = NULL, width = 80L) 1553s [00:52:33.906] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1553s [00:52:33.906] base::names(...future.oldOptions)) 1553s [00:52:33.906] } 1553s [00:52:33.906] if (FALSE) { 1553s [00:52:33.906] } 1553s [00:52:33.906] else { 1553s [00:52:33.906] if (TRUE) { 1553s [00:52:33.906] ...future.stdout <- base::rawConnection(base::raw(0L), 1553s [00:52:33.906] open = "w") 1553s [00:52:33.906] } 1553s [00:52:33.906] else { 1553s [00:52:33.906] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1553s [00:52:33.906] windows = "NUL", "/dev/null"), open = "w") 1553s [00:52:33.906] } 1553s [00:52:33.906] base::sink(...future.stdout, type = "output", split = FALSE) 1553s [00:52:33.906] base::on.exit(if (!base::is.null(...future.stdout)) { 1553s [00:52:33.906] base::sink(type = "output", split = FALSE) 1553s [00:52:33.906] base::close(...future.stdout) 1553s [00:52:33.906] }, add = TRUE) 1553s [00:52:33.906] } 1553s [00:52:33.906] ...future.frame <- base::sys.nframe() 1553s [00:52:33.906] ...future.conditions <- base::list() 1553s [00:52:33.906] ...future.rng <- base::globalenv()$.Random.seed 1553s [00:52:33.906] if (FALSE) { 1553s [00:52:33.906] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1553s [00:52:33.906] "...future.value", "...future.globalenv.names", ".Random.seed") 1553s [00:52:33.906] } 1553s [00:52:33.906] ...future.result <- base::tryCatch({ 1553s [00:52:33.906] base::withCallingHandlers({ 1553s [00:52:33.906] ...future.value <- base::withVisible(base::local({ 1553s [00:52:33.906] do.call(function(...) { 1553s [00:52:33.906] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1553s [00:52:33.906] if (!identical(...future.globals.maxSize.org, 1553s [00:52:33.906] ...future.globals.maxSize)) { 1553s [00:52:33.906] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1553s [00:52:33.906] on.exit(options(oopts), add = TRUE) 1553s [00:52:33.906] } 1553s [00:52:33.906] { 1553s [00:52:33.906] lapply(seq_along(...future.elements_ii), 1553s [00:52:33.906] FUN = function(jj) { 1553s [00:52:33.906] ...future.X_jj <- ...future.elements_ii[[jj]] 1553s [00:52:33.906] ...future.FUN(...future.X_jj, ...) 1553s [00:52:33.906] }) 1553s [00:52:33.906] } 1553s [00:52:33.906] }, args = future.call.arguments) 1553s [00:52:33.906] })) 1553s [00:52:33.906] future::FutureResult(value = ...future.value$value, 1553s [00:52:33.906] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1553s [00:52:33.906] ...future.rng), globalenv = if (FALSE) 1553s [00:52:33.906] list(added = base::setdiff(base::names(base::.GlobalEnv), 1553s [00:52:33.906] ...future.globalenv.names)) 1553s [00:52:33.906] else NULL, started = ...future.startTime, version = "1.8") 1553s [00:52:33.906] }, condition = base::local({ 1553s [00:52:33.906] c <- base::c 1553s [00:52:33.906] inherits <- base::inherits 1553s [00:52:33.906] invokeRestart <- base::invokeRestart 1553s [00:52:33.906] length <- base::length 1553s [00:52:33.906] list <- base::list 1553s [00:52:33.906] seq.int <- base::seq.int 1553s [00:52:33.906] signalCondition <- base::signalCondition 1553s [00:52:33.906] sys.calls <- base::sys.calls 1553s [00:52:33.906] `[[` <- base::`[[` 1553s [00:52:33.906] `+` <- base::`+` 1553s [00:52:33.906] `<<-` <- base::`<<-` 1553s [00:52:33.906] sysCalls <- function(calls = sys.calls(), from = 1L) { 1553s [00:52:33.906] calls[seq.int(from = from + 12L, to = length(calls) - 1553s [00:52:33.906] 3L)] 1553s [00:52:33.906] } 1553s [00:52:33.906] function(cond) { 1553s [00:52:33.906] is_error <- inherits(cond, "error") 1553s [00:52:33.906] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1553s [00:52:33.906] NULL) 1553s [00:52:33.906] if (is_error) { 1553s [00:52:33.906] sessionInformation <- function() { 1553s [00:52:33.906] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1553s [00:52:33.906] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1553s [00:52:33.906] search = base::search(), system = base::Sys.info()) 1553s [00:52:33.906] } 1553s [00:52:33.906] ...future.conditions[[length(...future.conditions) + 1553s [00:52:33.906] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1553s [00:52:33.906] cond$call), session = sessionInformation(), 1553s [00:52:33.906] timestamp = base::Sys.time(), signaled = 0L) 1553s [00:52:33.906] signalCondition(cond) 1553s [00:52:33.906] } 1553s [00:52:33.906] else if (!ignore && TRUE && inherits(cond, c("condition", 1553s [00:52:33.906] "immediateCondition"))) { 1553s [00:52:33.906] signal <- TRUE && inherits(cond, "immediateCondition") 1553s [00:52:33.906] ...future.conditions[[length(...future.conditions) + 1553s [00:52:33.906] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1553s [00:52:33.906] if (TRUE && !signal) { 1553s [00:52:33.906] muffleCondition <- function (cond, pattern = "^muffle") 1553s [00:52:33.906] { 1553s [00:52:33.906] inherits <- base::inherits 1553s [00:52:33.906] invokeRestart <- base::invokeRestart 1553s [00:52:33.906] is.null <- base::is.null 1553s [00:52:33.906] muffled <- FALSE 1553s [00:52:33.906] if (inherits(cond, "message")) { 1553s [00:52:33.906] muffled <- grepl(pattern, "muffleMessage") 1553s [00:52:33.906] if (muffled) 1553s [00:52:33.906] invokeRestart("muffleMessage") 1553s [00:52:33.906] } 1553s [00:52:33.906] else if (inherits(cond, "warning")) { 1553s [00:52:33.906] muffled <- grepl(pattern, "muffleWarning") 1553s [00:52:33.906] if (muffled) 1553s [00:52:33.906] invokeRestart("muffleWarning") 1553s [00:52:33.906] } 1553s [00:52:33.906] else if (inherits(cond, "condition")) { 1553s [00:52:33.906] if (!is.null(pattern)) { 1553s [00:52:33.906] computeRestarts <- base::computeRestarts 1553s [00:52:33.906] grepl <- base::grepl 1553s [00:52:33.906] restarts <- computeRestarts(cond) 1553s [00:52:33.906] for (restart in restarts) { 1553s [00:52:33.906] name <- restart$name 1553s [00:52:33.906] if (is.null(name)) 1553s [00:52:33.906] next 1553s [00:52:33.906] if (!grepl(pattern, name)) 1553s [00:52:33.906] next 1553s [00:52:33.906] invokeRestart(restart) 1553s [00:52:33.906] muffled <- TRUE 1553s [00:52:33.906] break 1553s [00:52:33.906] } 1553s [00:52:33.906] } 1553s [00:52:33.906] } 1553s [00:52:33.906] invisible(muffled) 1553s [00:52:33.906] } 1553s [00:52:33.906] muffleCondition(cond, pattern = "^muffle") 1553s [00:52:33.906] } 1553s [00:52:33.906] } 1553s [00:52:33.906] else { 1553s [00:52:33.906] if (TRUE) { 1553s [00:52:33.906] muffleCondition <- function (cond, pattern = "^muffle") 1553s [00:52:33.906] { 1553s [00:52:33.906] inherits <- base::inherits 1553s [00:52:33.906] invokeRestart <- base::invokeRestart 1553s [00:52:33.906] is.null <- base::is.null 1553s [00:52:33.906] muffled <- FALSE 1553s [00:52:33.906] if (inherits(cond, "message")) { 1553s [00:52:33.906] muffled <- grepl(pattern, "muffleMessage") 1553s [00:52:33.906] if (muffled) 1553s [00:52:33.906] invokeRestart("muffleMessage") 1553s [00:52:33.906] } 1553s [00:52:33.906] else if (inherits(cond, "warning")) { 1553s [00:52:33.906] muffled <- grepl(pattern, "muffleWarning") 1553s [00:52:33.906] if (muffled) 1553s [00:52:33.906] invokeRestart("muffleWarning") 1553s [00:52:33.906] } 1553s [00:52:33.906] else if (inherits(cond, "condition")) { 1553s [00:52:33.906] if (!is.null(pattern)) { 1553s [00:52:33.906] computeRestarts <- base::computeRestarts 1553s [00:52:33.906] grepl <- base::grepl 1553s [00:52:33.906] restarts <- computeRestarts(cond) 1553s [00:52:33.906] for (restart in restarts) { 1553s [00:52:33.906] name <- restart$name 1553s [00:52:33.906] if (is.null(name)) 1553s [00:52:33.906] next 1553s [00:52:33.906] if (!grepl(pattern, name)) 1553s [00:52:33.906] next 1553s [00:52:33.906] invokeRestart(restart) 1553s [00:52:33.906] muffled <- TRUE 1553s [00:52:33.906] break 1553s [00:52:33.906] } 1553s [00:52:33.906] } 1553s [00:52:33.906] } 1553s [00:52:33.906] invisible(muffled) 1553s [00:52:33.906] } 1553s [00:52:33.906] muffleCondition(cond, pattern = "^muffle") 1553s [00:52:33.906] } 1553s [00:52:33.906] } 1553s [00:52:33.906] } 1553s [00:52:33.906] })) 1553s [00:52:33.906] }, error = function(ex) { 1553s [00:52:33.906] base::structure(base::list(value = NULL, visible = NULL, 1553s [00:52:33.906] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1553s [00:52:33.906] ...future.rng), started = ...future.startTime, 1553s [00:52:33.906] finished = Sys.time(), session_uuid = NA_character_, 1553s [00:52:33.906] version = "1.8"), class = "FutureResult") 1553s [00:52:33.906] }, finally = { 1553s [00:52:33.906] if (!identical(...future.workdir, getwd())) 1553s [00:52:33.906] setwd(...future.workdir) 1553s [00:52:33.906] { 1553s [00:52:33.906] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1553s [00:52:33.906] ...future.oldOptions$nwarnings <- NULL 1553s [00:52:33.906] } 1553s [00:52:33.906] base::options(...future.oldOptions) 1553s [00:52:33.906] if (.Platform$OS.type == "windows") { 1553s [00:52:33.906] old_names <- names(...future.oldEnvVars) 1553s [00:52:33.906] envs <- base::Sys.getenv() 1553s [00:52:33.906] names <- names(envs) 1553s [00:52:33.906] common <- intersect(names, old_names) 1553s [00:52:33.906] added <- setdiff(names, old_names) 1553s [00:52:33.906] removed <- setdiff(old_names, names) 1553s [00:52:33.906] changed <- common[...future.oldEnvVars[common] != 1553s [00:52:33.906] envs[common]] 1553s [00:52:33.906] NAMES <- toupper(changed) 1553s [00:52:33.906] args <- list() 1553s [00:52:33.906] for (kk in seq_along(NAMES)) { 1553s [00:52:33.906] name <- changed[[kk]] 1553s [00:52:33.906] NAME <- NAMES[[kk]] 1553s [00:52:33.906] if (name != NAME && is.element(NAME, old_names)) 1553s [00:52:33.906] next 1553s [00:52:33.906] args[[name]] <- ...future.oldEnvVars[[name]] 1553s [00:52:33.906] } 1553s [00:52:33.906] NAMES <- toupper(added) 1553s [00:52:33.906] for (kk in seq_along(NAMES)) { 1553s [00:52:33.906] name <- added[[kk]] 1553s [00:52:33.906] NAME <- NAMES[[kk]] 1553s [00:52:33.906] if (name != NAME && is.element(NAME, old_names)) 1553s [00:52:33.906] next 1553s [00:52:33.906] args[[name]] <- "" 1553s [00:52:33.906] } 1553s [00:52:33.906] NAMES <- toupper(removed) 1553s [00:52:33.906] for (kk in seq_along(NAMES)) { 1553s [00:52:33.906] name <- removed[[kk]] 1553s [00:52:33.906] NAME <- NAMES[[kk]] 1553s [00:52:33.906] if (name != NAME && is.element(NAME, old_names)) 1553s [00:52:33.906] next 1553s [00:52:33.906] args[[name]] <- ...future.oldEnvVars[[name]] 1553s [00:52:33.906] } 1553s [00:52:33.906] if (length(args) > 0) 1553s [00:52:33.906] base::do.call(base::Sys.setenv, args = args) 1553s [00:52:33.906] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1553s [00:52:33.906] } 1553s [00:52:33.906] else { 1553s [00:52:33.906] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1553s [00:52:33.906] } 1553s [00:52:33.906] { 1553s [00:52:33.906] if (base::length(...future.futureOptionsAdded) > 1553s [00:52:33.906] 0L) { 1553s [00:52:33.906] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1553s [00:52:33.906] base::names(opts) <- ...future.futureOptionsAdded 1553s [00:52:33.906] base::options(opts) 1553s [00:52:33.906] } 1553s [00:52:33.906] { 1553s [00:52:33.906] { 1553s [00:52:33.906] NULL 1553s [00:52:33.906] RNGkind("Mersenne-Twister") 1553s [00:52:33.906] base::rm(list = ".Random.seed", envir = base::globalenv(), 1553s [00:52:33.906] inherits = FALSE) 1553s [00:52:33.906] } 1553s [00:52:33.906] options(future.plan = NULL) 1553s [00:52:33.906] if (is.na(NA_character_)) 1553s [00:52:33.906] Sys.unsetenv("R_FUTURE_PLAN") 1553s [00:52:33.906] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1553s [00:52:33.906] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1553s [00:52:33.906] envir = parent.frame()) 1553s [00:52:33.906] { 1553s [00:52:33.906] default_workers <- missing(workers) 1553s [00:52:33.906] if (is.function(workers)) 1553s [00:52:33.906] workers <- workers() 1553s [00:52:33.906] workers <- structure(as.integer(workers), 1553s [00:52:33.906] class = class(workers)) 1553s [00:52:33.906] stop_if_not(is.finite(workers), workers >= 1553s [00:52:33.906] 1L) 1553s [00:52:33.906] if ((workers == 1L && !inherits(workers, 1553s [00:52:33.906] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1553s [00:52:33.906] if (default_workers) 1553s [00:52:33.906] supportsMulticore(warn = TRUE) 1553s [00:52:33.906] return(sequential(..., envir = envir)) 1553s [00:52:33.906] } 1553s [00:52:33.906] oopts <- options(mc.cores = workers) 1553s [00:52:33.906] on.exit(options(oopts)) 1553s [00:52:33.906] future <- MulticoreFuture(..., workers = workers, 1553s [00:52:33.906] envir = envir) 1553s [00:52:33.906] if (!future$lazy) 1553s [00:52:33.906] future <- run(future) 1553s [00:52:33.906] invisible(future) 1553s [00:52:33.906] }), .cleanup = FALSE, .init = FALSE) 1553s [00:52:33.906] } 1553s [00:52:33.906] } 1553s [00:52:33.906] } 1553s [00:52:33.906] }) 1553s [00:52:33.906] if (TRUE) { 1553s [00:52:33.906] base::sink(type = "output", split = FALSE) 1553s [00:52:33.906] if (TRUE) { 1553s [00:52:33.906] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1553s [00:52:33.906] } 1553s [00:52:33.906] else { 1553s [00:52:33.906] ...future.result["stdout"] <- base::list(NULL) 1553s [00:52:33.906] } 1553s [00:52:33.906] base::close(...future.stdout) 1553s [00:52:33.906] ...future.stdout <- NULL 1553s [00:52:33.906] } 1553s [00:52:33.906] ...future.result$conditions <- ...future.conditions 1553s [00:52:33.906] ...future.result$finished <- base::Sys.time() 1553s [00:52:33.906] ...future.result 1553s [00:52:33.906] } 1553s [00:52:33.910] assign_globals() ... 1553s [00:52:33.910] List of 5 1553s [00:52:33.910] $ ...future.FUN :function (x, ...) 1553s [00:52:33.910] $ future.call.arguments : list() 1553s [00:52:33.910] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1553s [00:52:33.910] $ ...future.elements_ii :List of 2 1553s [00:52:33.910] ..$ b:Classes 'listenv', 'environment' 1553s [00:52:33.910] ..$ a:Classes 'listenv', 'environment' 1553s [00:52:33.910] $ ...future.seeds_ii : NULL 1553s [00:52:33.910] $ ...future.globals.maxSize: NULL 1553s [00:52:33.910] - attr(*, "where")=List of 5 1553s [00:52:33.910] ..$ ...future.FUN : 1553s [00:52:33.910] ..$ future.call.arguments : 1553s [00:52:33.910] ..$ ...future.elements_ii : 1553s [00:52:33.910] ..$ ...future.seeds_ii : 1553s [00:52:33.910] ..$ ...future.globals.maxSize: 1553s [00:52:33.910] - attr(*, "resolved")= logi FALSE 1553s [00:52:33.910] - attr(*, "total_size")= num 4968 1553s [00:52:33.910] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1553s [00:52:33.910] - attr(*, "already-done")= logi TRUE 1553s [00:52:33.917] - copied ‘...future.FUN’ to environment 1553s [00:52:33.917] - copied ‘future.call.arguments’ to environment 1553s [00:52:33.917] - copied ‘...future.elements_ii’ to environment 1553s [00:52:33.918] - copied ‘...future.seeds_ii’ to environment 1553s [00:52:33.918] - copied ‘...future.globals.maxSize’ to environment 1553s [00:52:33.918] assign_globals() ... done 1553s [00:52:33.918] plan(): Setting new future strategy stack: 1553s [00:52:33.919] List of future strategies: 1553s [00:52:33.919] 1. sequential: 1553s [00:52:33.919] - args: function (..., envir = parent.frame()) 1553s [00:52:33.919] - tweaked: FALSE 1553s [00:52:33.919] - call: NULL 1553s [00:52:33.920] plan(): nbrOfWorkers() = 1 1553s [00:52:33.921] plan(): Setting new future strategy stack: 1553s [00:52:33.921] List of future strategies: 1553s [00:52:33.921] 1. multicore: 1553s [00:52:33.921] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1553s [00:52:33.921] - tweaked: FALSE 1553s [00:52:33.921] - call: plan(strategy) 1553s [00:52:33.925] plan(): nbrOfWorkers() = 1 1553s [00:52:33.925] SequentialFuture started (and completed) 1553s [00:52:33.926] - Launch lazy future ... done 1553s [00:52:33.926] run() for ‘SequentialFuture’ ... done 1553s [00:52:33.926] Created future: 1553s [00:52:33.926] SequentialFuture: 1553s [00:52:33.926] Label: ‘future_lapply-1’ 1553s [00:52:33.926] Expression: 1553s [00:52:33.926] { 1553s [00:52:33.926] do.call(function(...) { 1553s [00:52:33.926] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1553s [00:52:33.926] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1553s [00:52:33.926] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1553s [00:52:33.926] on.exit(options(oopts), add = TRUE) 1553s [00:52:33.926] } 1553s [00:52:33.926] { 1553s [00:52:33.926] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1553s [00:52:33.926] ...future.X_jj <- ...future.elements_ii[[jj]] 1553s [00:52:33.926] ...future.FUN(...future.X_jj, ...) 1553s [00:52:33.926] }) 1553s [00:52:33.926] } 1553s [00:52:33.926] }, args = future.call.arguments) 1553s [00:52:33.926] } 1553s [00:52:33.926] Lazy evaluation: FALSE 1553s [00:52:33.926] Asynchronous evaluation: FALSE 1553s [00:52:33.926] Local evaluation: TRUE 1553s [00:52:33.926] Environment: R_GlobalEnv 1553s [00:52:33.926] Capture standard output: TRUE 1553s [00:52:33.926] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1553s [00:52:33.926] Globals: 5 objects totaling 17.90 KiB (function ‘...future.FUN’ of 4.85 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 13.05 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1553s [00:52:33.926] Packages: 1 packages (‘listenv’) 1553s [00:52:33.926] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1553s [00:52:33.926] Resolved: TRUE 1553s [00:52:33.926] Value: 800 bytes of class ‘list’ 1553s [00:52:33.926] Early signaling: FALSE 1553s [00:52:33.926] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1553s [00:52:33.926] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1553s [00:52:33.928] Chunk #1 of 1 ... DONE 1553s [00:52:33.928] Launching 1 futures (chunks) ... DONE 1553s [00:52:33.928] Resolving 1 futures (chunks) ... 1553s [00:52:33.929] resolve() on list ... 1553s [00:52:33.932] recursive: 0 1553s [00:52:33.932] length: 1 1553s [00:52:33.932] 1553s [00:52:33.932] resolved() for ‘SequentialFuture’ ... 1553s [00:52:33.933] - state: ‘finished’ 1553s [00:52:33.933] - run: TRUE 1553s [00:52:33.933] - result: ‘FutureResult’ 1553s [00:52:33.933] resolved() for ‘SequentialFuture’ ... done 1553s [00:52:33.933] Future #1 1553s [00:52:33.934] signalConditionsASAP(SequentialFuture, pos=1) ... 1553s [00:52:33.934] - nx: 1 1553s [00:52:33.934] - relay: TRUE 1553s [00:52:33.934] - stdout: TRUE 1553s [00:52:33.934] - signal: TRUE 1553s [00:52:33.935] - resignal: FALSE 1553s [00:52:33.935] - force: TRUE 1553s [00:52:33.935] - relayed: [n=1] FALSE 1553s [00:52:33.935] - queued futures: [n=1] FALSE 1553s [00:52:33.935] - until=1 1553s [00:52:33.935] - relaying element #1 1553s [00:52:33.936] - relayed: [n=1] TRUE 1553s [00:52:33.936] - queued futures: [n=1] TRUE 1553s [00:52:33.936] signalConditionsASAP(SequentialFuture, pos=1) ... done 1553s [00:52:33.936] length: 0 (resolved future 1) 1553s [00:52:33.937] Relaying remaining futures 1553s [00:52:33.937] signalConditionsASAP(NULL, pos=0) ... 1553s [00:52:33.937] - nx: 1 1553s [00:52:33.937] - relay: TRUE 1553s [00:52:33.937] - stdout: TRUE 1553s [00:52:33.937] - signal: TRUE 1553s [00:52:33.937] - resignal: FALSE 1553s [00:52:33.938] - force: TRUE 1553s [00:52:33.938] - relayed: [n=1] TRUE 1553s [00:52:33.938] - queued futures: [n=1] TRUE 1553s - flush all 1553s [00:52:33.938] - relayed: [n=1] TRUE 1553s [00:52:33.939] - queued futures: [n=1] TRUE 1553s [00:52:33.939] signalConditionsASAP(NULL, pos=0) ... done 1553s [00:52:33.939] resolve() on list ... DONE 1553s [00:52:33.940] - Number of value chunks collected: 1 1553s [00:52:33.940] Resolving 1 futures (chunks) ... DONE 1553s [00:52:33.940] Reducing values from 1 chunks ... 1553s [00:52:33.940] - Number of values collected after concatenation: 2 1553s [00:52:33.940] - Number of values expected: 2 1553s [00:52:33.941] Reverse index remapping (attribute 'ordering'): [n = 2] 2, 1 1553s [00:52:33.941] Reducing values from 1 chunks ... DONE 1553s [00:52:33.941] future_lapply() ... DONE 1553s List of 1 1553s $ y:List of 2 1553s ..$ a: Named chr "A" 1553s .. ..- attr(*, "names")= chr "A" 1553s ..$ b: Named chr [1:2] "A" "B" 1553s .. ..- attr(*, "names")= chr [1:2] "A" "B" 1553s - future_lapply(x, FUN, ...) for large length(x) ... 1553s [00:52:33.945] future_lapply() ... 1553s [00:52:33.949] Number of chunks: 1 1553s [00:52:33.950] getGlobalsAndPackagesXApply() ... 1553s [00:52:33.950] - future.globals: TRUE 1553s [00:52:33.950] getGlobalsAndPackages() ... 1553s [00:52:33.950] Searching for globals... 1553s [00:52:33.952] - globals found: [4] ‘FUN’, ‘sqrt’, ‘+’, ‘a’ 1553s [00:52:33.953] Searching for globals ... DONE 1553s [00:52:33.953] Resolving globals: FALSE 1553s [00:52:33.953] The total size of the 2 globals is 1.93 KiB (1976 bytes) 1553s [00:52:33.954] The total size of the 2 globals exported for future expression (‘FUN()’) is 1.93 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are two globals: ‘FUN’ (1.88 KiB of class ‘function’) and ‘a’ (56 bytes of class ‘numeric’) 1553s [00:52:33.954] - globals: [2] ‘FUN’, ‘a’ 1553s [00:52:33.954] 1553s [00:52:33.954] getGlobalsAndPackages() ... DONE 1553s [00:52:33.954] - globals found/used: [n=2] ‘FUN’, ‘a’ 1553s [00:52:33.955] - needed namespaces: [n=0] 1553s [00:52:33.955] Finding globals ... DONE 1553s [00:52:33.955] - use_args: TRUE 1553s [00:52:33.955] - Getting '...' globals ... 1553s [00:52:33.955] resolve() on list ... 1553s [00:52:33.955] recursive: 0 1553s [00:52:33.955] length: 1 1553s [00:52:33.956] elements: ‘...’ 1553s [00:52:33.956] length: 0 (resolved future 1) 1553s [00:52:33.956] resolve() on list ... DONE 1553s [00:52:33.956] - '...' content: [n=0] 1553s [00:52:33.956] List of 1 1553s [00:52:33.956] $ ...: list() 1553s [00:52:33.956] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1553s [00:52:33.956] - attr(*, "where")=List of 1 1553s [00:52:33.956] ..$ ...: 1553s [00:52:33.956] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1553s [00:52:33.956] - attr(*, "resolved")= logi TRUE 1553s [00:52:33.956] - attr(*, "total_size")= num NA 1553s [00:52:33.960] - Getting '...' globals ... DONE 1553s [00:52:33.961] Globals to be used in all futures (chunks): [n=3] ‘...future.FUN’, ‘a’, ‘...’ 1554s [00:52:33.961] List of 3 1554s [00:52:33.961] $ ...future.FUN:function (z) 1554s [00:52:33.961] $ a : num 3.14 1554s [00:52:33.961] $ ... : list() 1554s [00:52:33.961] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1554s [00:52:33.961] - attr(*, "where")=List of 3 1554s [00:52:33.961] ..$ ...future.FUN: 1554s [00:52:33.961] ..$ a : 1554s [00:52:33.961] ..$ ... : 1554s [00:52:33.961] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1554s [00:52:33.961] - attr(*, "resolved")= logi FALSE 1554s [00:52:33.961] - attr(*, "total_size")= num 1976 1554s [00:52:33.969] Packages to be attached in all futures: [n=0] 1554s [00:52:33.969] getGlobalsAndPackagesXApply() ... DONE 1554s [00:52:33.969] Number of futures (= number of chunks): 1 1554s [00:52:33.970] Launching 1 futures (chunks) ... 1554s [00:52:33.970] Chunk #1 of 1 ... 1554s [00:52:33.973] - Finding globals in 'X' for chunk #1 ... 1554s [00:52:33.973] getGlobalsAndPackages() ... 1554s [00:52:33.973] Searching for globals... 1554s [00:52:33.983] 1554s [00:52:33.983] Searching for globals ... DONE 1554s [00:52:33.983] - globals: [0] 1554s [00:52:33.983] getGlobalsAndPackages() ... DONE 1554s [00:52:33.984] + additional globals found: [n=0] 1554s [00:52:33.984] + additional namespaces needed: [n=0] 1554s [00:52:33.984] - Finding globals in 'X' for chunk #1 ... DONE 1554s [00:52:33.984] - seeds: 1554s [00:52:33.984] - All globals exported: [n=6] ‘...future.FUN’, ‘a’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1554s [00:52:33.984] getGlobalsAndPackages() ... 1554s [00:52:33.985] - globals passed as-is: [6] ‘...future.FUN’, ‘a’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1554s [00:52:33.985] Resolving globals: FALSE 1554s [00:52:33.985] Tweak future expression to call with '...' arguments ... 1554s [00:52:33.985] { 1554s [00:52:33.985] do.call(function(...) { 1554s [00:52:33.985] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1554s [00:52:33.985] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1554s [00:52:33.985] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1554s [00:52:33.985] on.exit(options(oopts), add = TRUE) 1554s [00:52:33.985] } 1554s [00:52:33.985] { 1554s [00:52:33.985] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1554s [00:52:33.985] ...future.X_jj <- ...future.elements_ii[[jj]] 1554s [00:52:33.985] ...future.FUN(...future.X_jj, ...) 1554s [00:52:33.985] }) 1554s [00:52:33.985] } 1554s [00:52:33.985] }, args = future.call.arguments) 1554s [00:52:33.985] } 1554s [00:52:33.986] Tweak future expression to call with '...' arguments ... DONE 1554s [00:52:33.987] - globals: [6] ‘...future.FUN’, ‘a’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1554s [00:52:33.987] 1554s [00:52:33.987] getGlobalsAndPackages() ... DONE 1554s [00:52:34.035] run() for ‘Future’ ... 1554s [00:52:34.035] - state: ‘created’ 1554s [00:52:34.035] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1554s [00:52:34.040] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1554s [00:52:34.040] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1554s [00:52:34.040] - Field: ‘label’ 1554s [00:52:34.040] - Field: ‘local’ 1554s [00:52:34.040] - Field: ‘owner’ 1554s [00:52:34.040] - Field: ‘envir’ 1554s [00:52:34.041] - Field: ‘packages’ 1554s [00:52:34.041] - Field: ‘gc’ 1554s [00:52:34.041] - Field: ‘conditions’ 1554s [00:52:34.042] - Field: ‘expr’ 1554s [00:52:34.042] - Field: ‘uuid’ 1554s [00:52:34.042] - Field: ‘seed’ 1554s [00:52:34.042] - Field: ‘version’ 1554s [00:52:34.042] - Field: ‘result’ 1554s [00:52:34.043] - Field: ‘asynchronous’ 1554s [00:52:34.043] - Field: ‘calls’ 1554s [00:52:34.043] - Field: ‘globals’ 1554s [00:52:34.043] - Field: ‘stdout’ 1554s [00:52:34.043] - Field: ‘earlySignal’ 1554s [00:52:34.043] - Field: ‘lazy’ 1554s [00:52:34.043] - Field: ‘state’ 1554s [00:52:34.044] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1554s [00:52:34.044] - Launch lazy future ... 1554s [00:52:34.044] Packages needed by the future expression (n = 0): 1554s [00:52:34.044] Packages needed by future strategies (n = 0): 1554s [00:52:34.045] { 1554s [00:52:34.045] { 1554s [00:52:34.045] { 1554s [00:52:34.045] ...future.startTime <- base::Sys.time() 1554s [00:52:34.045] { 1554s [00:52:34.045] { 1554s [00:52:34.045] { 1554s [00:52:34.045] base::local({ 1554s [00:52:34.045] has_future <- base::requireNamespace("future", 1554s [00:52:34.045] quietly = TRUE) 1554s [00:52:34.045] if (has_future) { 1554s [00:52:34.045] ns <- base::getNamespace("future") 1554s [00:52:34.045] version <- ns[[".package"]][["version"]] 1554s [00:52:34.045] if (is.null(version)) 1554s [00:52:34.045] version <- utils::packageVersion("future") 1554s [00:52:34.045] } 1554s [00:52:34.045] else { 1554s [00:52:34.045] version <- NULL 1554s [00:52:34.045] } 1554s [00:52:34.045] if (!has_future || version < "1.8.0") { 1554s [00:52:34.045] info <- base::c(r_version = base::gsub("R version ", 1554s [00:52:34.045] "", base::R.version$version.string), 1554s [00:52:34.045] platform = base::sprintf("%s (%s-bit)", 1554s [00:52:34.045] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1554s [00:52:34.045] os = base::paste(base::Sys.info()[base::c("sysname", 1554s [00:52:34.045] "release", "version")], collapse = " "), 1554s [00:52:34.045] hostname = base::Sys.info()[["nodename"]]) 1554s [00:52:34.045] info <- base::sprintf("%s: %s", base::names(info), 1554s [00:52:34.045] info) 1554s [00:52:34.045] info <- base::paste(info, collapse = "; ") 1554s [00:52:34.045] if (!has_future) { 1554s [00:52:34.045] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1554s [00:52:34.045] info) 1554s [00:52:34.045] } 1554s [00:52:34.045] else { 1554s [00:52:34.045] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1554s [00:52:34.045] info, version) 1554s [00:52:34.045] } 1554s [00:52:34.045] base::stop(msg) 1554s [00:52:34.045] } 1554s [00:52:34.045] }) 1554s [00:52:34.045] } 1554s [00:52:34.045] options(future.plan = NULL) 1554s [00:52:34.045] Sys.unsetenv("R_FUTURE_PLAN") 1554s [00:52:34.045] future::plan("default", .cleanup = FALSE, .init = FALSE) 1554s [00:52:34.045] } 1554s [00:52:34.045] ...future.workdir <- getwd() 1554s [00:52:34.045] } 1554s [00:52:34.045] ...future.oldOptions <- base::as.list(base::.Options) 1554s [00:52:34.045] ...future.oldEnvVars <- base::Sys.getenv() 1554s [00:52:34.045] } 1554s [00:52:34.045] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1554s [00:52:34.045] future.globals.maxSize = NULL, future.globals.method = NULL, 1554s [00:52:34.045] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1554s [00:52:34.045] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1554s [00:52:34.045] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1554s [00:52:34.045] future.stdout.windows.reencode = NULL, width = 80L) 1554s [00:52:34.045] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1554s [00:52:34.045] base::names(...future.oldOptions)) 1554s [00:52:34.045] } 1554s [00:52:34.045] if (FALSE) { 1554s [00:52:34.045] } 1554s [00:52:34.045] else { 1554s [00:52:34.045] if (TRUE) { 1554s [00:52:34.045] ...future.stdout <- base::rawConnection(base::raw(0L), 1554s [00:52:34.045] open = "w") 1554s [00:52:34.045] } 1554s [00:52:34.045] else { 1554s [00:52:34.045] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1554s [00:52:34.045] windows = "NUL", "/dev/null"), open = "w") 1554s [00:52:34.045] } 1554s [00:52:34.045] base::sink(...future.stdout, type = "output", split = FALSE) 1554s [00:52:34.045] base::on.exit(if (!base::is.null(...future.stdout)) { 1554s [00:52:34.045] base::sink(type = "output", split = FALSE) 1554s [00:52:34.045] base::close(...future.stdout) 1554s [00:52:34.045] }, add = TRUE) 1554s [00:52:34.045] } 1554s [00:52:34.045] ...future.frame <- base::sys.nframe() 1554s [00:52:34.045] ...future.conditions <- base::list() 1554s [00:52:34.045] ...future.rng <- base::globalenv()$.Random.seed 1554s [00:52:34.045] if (FALSE) { 1554s [00:52:34.045] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1554s [00:52:34.045] "...future.value", "...future.globalenv.names", ".Random.seed") 1554s [00:52:34.045] } 1554s [00:52:34.045] ...future.result <- base::tryCatch({ 1554s [00:52:34.045] base::withCallingHandlers({ 1554s [00:52:34.045] ...future.value <- base::withVisible(base::local({ 1554s [00:52:34.045] do.call(function(...) { 1554s [00:52:34.045] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1554s [00:52:34.045] if (!identical(...future.globals.maxSize.org, 1554s [00:52:34.045] ...future.globals.maxSize)) { 1554s [00:52:34.045] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1554s [00:52:34.045] on.exit(options(oopts), add = TRUE) 1554s [00:52:34.045] } 1554s [00:52:34.045] { 1554s [00:52:34.045] lapply(seq_along(...future.elements_ii), 1554s [00:52:34.045] FUN = function(jj) { 1554s [00:52:34.045] ...future.X_jj <- ...future.elements_ii[[jj]] 1554s [00:52:34.045] ...future.FUN(...future.X_jj, ...) 1554s [00:52:34.045] }) 1554s [00:52:34.045] } 1554s [00:52:34.045] }, args = future.call.arguments) 1554s [00:52:34.045] })) 1554s [00:52:34.045] future::FutureResult(value = ...future.value$value, 1554s [00:52:34.045] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1554s [00:52:34.045] ...future.rng), globalenv = if (FALSE) 1554s [00:52:34.045] list(added = base::setdiff(base::names(base::.GlobalEnv), 1554s [00:52:34.045] ...future.globalenv.names)) 1554s [00:52:34.045] else NULL, started = ...future.startTime, version = "1.8") 1554s [00:52:34.045] }, condition = base::local({ 1554s [00:52:34.045] c <- base::c 1554s [00:52:34.045] inherits <- base::inherits 1554s [00:52:34.045] invokeRestart <- base::invokeRestart 1554s [00:52:34.045] length <- base::length 1554s [00:52:34.045] list <- base::list 1554s [00:52:34.045] seq.int <- base::seq.int 1554s [00:52:34.045] signalCondition <- base::signalCondition 1554s [00:52:34.045] sys.calls <- base::sys.calls 1554s [00:52:34.045] `[[` <- base::`[[` 1554s [00:52:34.045] `+` <- base::`+` 1554s [00:52:34.045] `<<-` <- base::`<<-` 1554s [00:52:34.045] sysCalls <- function(calls = sys.calls(), from = 1L) { 1554s [00:52:34.045] calls[seq.int(from = from + 12L, to = length(calls) - 1554s [00:52:34.045] 3L)] 1554s [00:52:34.045] } 1554s [00:52:34.045] function(cond) { 1554s [00:52:34.045] is_error <- inherits(cond, "error") 1554s [00:52:34.045] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1554s [00:52:34.045] NULL) 1554s [00:52:34.045] if (is_error) { 1554s [00:52:34.045] sessionInformation <- function() { 1554s [00:52:34.045] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1554s [00:52:34.045] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1554s [00:52:34.045] search = base::search(), system = base::Sys.info()) 1554s [00:52:34.045] } 1554s [00:52:34.045] ...future.conditions[[length(...future.conditions) + 1554s [00:52:34.045] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1554s [00:52:34.045] cond$call), session = sessionInformation(), 1554s [00:52:34.045] timestamp = base::Sys.time(), signaled = 0L) 1554s [00:52:34.045] signalCondition(cond) 1554s [00:52:34.045] } 1554s [00:52:34.045] else if (!ignore && TRUE && inherits(cond, c("condition", 1554s [00:52:34.045] "immediateCondition"))) { 1554s [00:52:34.045] signal <- TRUE && inherits(cond, "immediateCondition") 1554s [00:52:34.045] ...future.conditions[[length(...future.conditions) + 1554s [00:52:34.045] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1554s [00:52:34.045] if (TRUE && !signal) { 1554s [00:52:34.045] muffleCondition <- function (cond, pattern = "^muffle") 1554s [00:52:34.045] { 1554s [00:52:34.045] inherits <- base::inherits 1554s [00:52:34.045] invokeRestart <- base::invokeRestart 1554s [00:52:34.045] is.null <- base::is.null 1554s [00:52:34.045] muffled <- FALSE 1554s [00:52:34.045] if (inherits(cond, "message")) { 1554s [00:52:34.045] muffled <- grepl(pattern, "muffleMessage") 1554s [00:52:34.045] if (muffled) 1554s [00:52:34.045] invokeRestart("muffleMessage") 1554s [00:52:34.045] } 1554s [00:52:34.045] else if (inherits(cond, "warning")) { 1554s [00:52:34.045] muffled <- grepl(pattern, "muffleWarning") 1554s [00:52:34.045] if (muffled) 1554s [00:52:34.045] invokeRestart("muffleWarning") 1554s [00:52:34.045] } 1554s [00:52:34.045] else if (inherits(cond, "condition")) { 1554s [00:52:34.045] if (!is.null(pattern)) { 1554s [00:52:34.045] computeRestarts <- base::computeRestarts 1554s [00:52:34.045] grepl <- base::grepl 1554s [00:52:34.045] restarts <- computeRestarts(cond) 1554s [00:52:34.045] for (restart in restarts) { 1554s [00:52:34.045] name <- restart$name 1554s [00:52:34.045] if (is.null(name)) 1554s [00:52:34.045] next 1554s [00:52:34.045] if (!grepl(pattern, name)) 1554s [00:52:34.045] next 1554s [00:52:34.045] invokeRestart(restart) 1554s [00:52:34.045] muffled <- TRUE 1554s [00:52:34.045] break 1554s [00:52:34.045] } 1554s [00:52:34.045] } 1554s [00:52:34.045] } 1554s [00:52:34.045] invisible(muffled) 1554s [00:52:34.045] } 1554s [00:52:34.045] muffleCondition(cond, pattern = "^muffle") 1554s [00:52:34.045] } 1554s [00:52:34.045] } 1554s [00:52:34.045] else { 1554s [00:52:34.045] if (TRUE) { 1554s [00:52:34.045] muffleCondition <- function (cond, pattern = "^muffle") 1554s [00:52:34.045] { 1554s [00:52:34.045] inherits <- base::inherits 1554s [00:52:34.045] invokeRestart <- base::invokeRestart 1554s [00:52:34.045] is.null <- base::is.null 1554s [00:52:34.045] muffled <- FALSE 1554s [00:52:34.045] if (inherits(cond, "message")) { 1554s [00:52:34.045] muffled <- grepl(pattern, "muffleMessage") 1554s [00:52:34.045] if (muffled) 1554s [00:52:34.045] invokeRestart("muffleMessage") 1554s [00:52:34.045] } 1554s [00:52:34.045] else if (inherits(cond, "warning")) { 1554s [00:52:34.045] muffled <- grepl(pattern, "muffleWarning") 1554s [00:52:34.045] if (muffled) 1554s [00:52:34.045] invokeRestart("muffleWarning") 1554s [00:52:34.045] } 1554s [00:52:34.045] else if (inherits(cond, "condition")) { 1554s [00:52:34.045] if (!is.null(pattern)) { 1554s [00:52:34.045] computeRestarts <- base::computeRestarts 1554s [00:52:34.045] grepl <- base::grepl 1554s [00:52:34.045] restarts <- computeRestarts(cond) 1554s [00:52:34.045] for (restart in restarts) { 1554s [00:52:34.045] name <- restart$name 1554s [00:52:34.045] if (is.null(name)) 1554s [00:52:34.045] next 1554s [00:52:34.045] if (!grepl(pattern, name)) 1554s [00:52:34.045] next 1554s [00:52:34.045] invokeRestart(restart) 1554s [00:52:34.045] muffled <- TRUE 1554s [00:52:34.045] break 1554s [00:52:34.045] } 1554s [00:52:34.045] } 1554s [00:52:34.045] } 1554s [00:52:34.045] invisible(muffled) 1554s [00:52:34.045] } 1554s [00:52:34.045] muffleCondition(cond, pattern = "^muffle") 1554s [00:52:34.045] } 1554s [00:52:34.045] } 1554s [00:52:34.045] } 1554s [00:52:34.045] })) 1554s [00:52:34.045] }, error = function(ex) { 1554s [00:52:34.045] base::structure(base::list(value = NULL, visible = NULL, 1554s [00:52:34.045] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1554s [00:52:34.045] ...future.rng), started = ...future.startTime, 1554s [00:52:34.045] finished = Sys.time(), session_uuid = NA_character_, 1554s [00:52:34.045] version = "1.8"), class = "FutureResult") 1554s [00:52:34.045] }, finally = { 1554s [00:52:34.045] if (!identical(...future.workdir, getwd())) 1554s [00:52:34.045] setwd(...future.workdir) 1554s [00:52:34.045] { 1554s [00:52:34.045] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1554s [00:52:34.045] ...future.oldOptions$nwarnings <- NULL 1554s [00:52:34.045] } 1554s [00:52:34.045] base::options(...future.oldOptions) 1554s [00:52:34.045] if (.Platform$OS.type == "windows") { 1554s [00:52:34.045] old_names <- names(...future.oldEnvVars) 1554s [00:52:34.045] envs <- base::Sys.getenv() 1554s [00:52:34.045] names <- names(envs) 1554s [00:52:34.045] common <- intersect(names, old_names) 1554s [00:52:34.045] added <- setdiff(names, old_names) 1554s [00:52:34.045] removed <- setdiff(old_names, names) 1554s [00:52:34.045] changed <- common[...future.oldEnvVars[common] != 1554s [00:52:34.045] envs[common]] 1554s [00:52:34.045] NAMES <- toupper(changed) 1554s [00:52:34.045] args <- list() 1554s [00:52:34.045] for (kk in seq_along(NAMES)) { 1554s [00:52:34.045] name <- changed[[kk]] 1554s [00:52:34.045] NAME <- NAMES[[kk]] 1554s [00:52:34.045] if (name != NAME && is.element(NAME, old_names)) 1554s [00:52:34.045] next 1554s [00:52:34.045] args[[name]] <- ...future.oldEnvVars[[name]] 1554s [00:52:34.045] } 1554s [00:52:34.045] NAMES <- toupper(added) 1554s [00:52:34.045] for (kk in seq_along(NAMES)) { 1554s [00:52:34.045] name <- added[[kk]] 1554s [00:52:34.045] NAME <- NAMES[[kk]] 1554s [00:52:34.045] if (name != NAME && is.element(NAME, old_names)) 1554s [00:52:34.045] next 1554s [00:52:34.045] args[[name]] <- "" 1554s [00:52:34.045] } 1554s [00:52:34.045] NAMES <- toupper(removed) 1554s [00:52:34.045] for (kk in seq_along(NAMES)) { 1554s [00:52:34.045] name <- removed[[kk]] 1554s [00:52:34.045] NAME <- NAMES[[kk]] 1554s [00:52:34.045] if (name != NAME && is.element(NAME, old_names)) 1554s [00:52:34.045] next 1554s [00:52:34.045] args[[name]] <- ...future.oldEnvVars[[name]] 1554s [00:52:34.045] } 1554s [00:52:34.045] if (length(args) > 0) 1554s [00:52:34.045] base::do.call(base::Sys.setenv, args = args) 1554s [00:52:34.045] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1554s [00:52:34.045] } 1554s [00:52:34.045] else { 1554s [00:52:34.045] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1554s [00:52:34.045] } 1554s [00:52:34.045] { 1554s [00:52:34.045] if (base::length(...future.futureOptionsAdded) > 1554s [00:52:34.045] 0L) { 1554s [00:52:34.045] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1554s [00:52:34.045] base::names(opts) <- ...future.futureOptionsAdded 1554s [00:52:34.045] base::options(opts) 1554s [00:52:34.045] } 1554s [00:52:34.045] { 1554s [00:52:34.045] { 1554s [00:52:34.045] NULL 1554s [00:52:34.045] RNGkind("Mersenne-Twister") 1554s [00:52:34.045] base::rm(list = ".Random.seed", envir = base::globalenv(), 1554s [00:52:34.045] inherits = FALSE) 1554s [00:52:34.045] } 1554s [00:52:34.045] options(future.plan = NULL) 1554s [00:52:34.045] if (is.na(NA_character_)) 1554s [00:52:34.045] Sys.unsetenv("R_FUTURE_PLAN") 1554s [00:52:34.045] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1554s [00:52:34.045] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1554s [00:52:34.045] envir = parent.frame()) 1554s [00:52:34.045] { 1554s [00:52:34.045] default_workers <- missing(workers) 1554s [00:52:34.045] if (is.function(workers)) 1554s [00:52:34.045] workers <- workers() 1554s [00:52:34.045] workers <- structure(as.integer(workers), 1554s [00:52:34.045] class = class(workers)) 1554s [00:52:34.045] stop_if_not(is.finite(workers), workers >= 1554s [00:52:34.045] 1L) 1554s [00:52:34.045] if ((workers == 1L && !inherits(workers, 1554s [00:52:34.045] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1554s [00:52:34.045] if (default_workers) 1554s [00:52:34.045] supportsMulticore(warn = TRUE) 1554s [00:52:34.045] return(sequential(..., envir = envir)) 1554s [00:52:34.045] } 1554s [00:52:34.045] oopts <- options(mc.cores = workers) 1554s [00:52:34.045] on.exit(options(oopts)) 1554s [00:52:34.045] future <- MulticoreFuture(..., workers = workers, 1554s [00:52:34.045] envir = envir) 1554s [00:52:34.045] if (!future$lazy) 1554s [00:52:34.045] future <- run(future) 1554s [00:52:34.045] invisible(future) 1554s [00:52:34.045] }), .cleanup = FALSE, .init = FALSE) 1554s [00:52:34.045] } 1554s [00:52:34.045] } 1554s [00:52:34.045] } 1554s [00:52:34.045] }) 1554s [00:52:34.045] if (TRUE) { 1554s [00:52:34.045] base::sink(type = "output", split = FALSE) 1554s [00:52:34.045] if (TRUE) { 1554s [00:52:34.045] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1554s [00:52:34.045] } 1554s [00:52:34.045] else { 1554s [00:52:34.045] ...future.result["stdout"] <- base::list(NULL) 1554s [00:52:34.045] } 1554s [00:52:34.045] base::close(...future.stdout) 1554s [00:52:34.045] ...future.stdout <- NULL 1554s [00:52:34.045] } 1554s [00:52:34.045] ...future.result$conditions <- ...future.conditions 1554s [00:52:34.045] ...future.result$finished <- base::Sys.time() 1554s [00:52:34.045] ...future.result 1554s [00:52:34.045] } 1554s [00:52:34.049] assign_globals() ... 1554s [00:52:34.049] List of 6 1554s [00:52:34.049] $ ...future.FUN :function (z) 1554s [00:52:34.049] $ a : num 3.14 1554s [00:52:34.049] $ future.call.arguments : list() 1554s [00:52:34.049] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1554s [00:52:34.049] $ ...future.elements_ii :List of 10000 1554s [00:52:34.049] ..$ : int 1 1554s [00:52:34.049] ..$ : int 2 1554s [00:52:34.049] ..$ : int 3 1554s [00:52:34.049] ..$ : int 4 1554s [00:52:34.049] ..$ : int 5 1554s [00:52:34.049] ..$ : int 6 1554s [00:52:34.049] ..$ : int 7 1554s [00:52:34.049] ..$ : int 8 1554s [00:52:34.049] ..$ : int 9 1554s [00:52:34.049] ..$ : int 10 1554s [00:52:34.049] ..$ : int 11 1554s [00:52:34.049] ..$ : int 12 1554s [00:52:34.049] ..$ : int 13 1554s [00:52:34.049] ..$ : int 14 1554s [00:52:34.049] ..$ : int 15 1554s [00:52:34.049] ..$ : int 16 1554s [00:52:34.049] ..$ : int 17 1554s [00:52:34.049] ..$ : int 18 1554s [00:52:34.049] ..$ : int 19 1554s [00:52:34.049] ..$ : int 20 1554s [00:52:34.049] ..$ : int 21 1554s [00:52:34.049] ..$ : int 22 1554s [00:52:34.049] ..$ : int 23 1554s [00:52:34.049] ..$ : int 24 1554s [00:52:34.049] ..$ : int 25 1554s [00:52:34.049] ..$ : int 26 1554s [00:52:34.049] ..$ : int 27 1554s [00:52:34.049] ..$ : int 28 1554s [00:52:34.049] ..$ : int 29 1554s [00:52:34.049] ..$ : int 30 1554s [00:52:34.049] ..$ : int 31 1554s [00:52:34.049] ..$ : int 32 1554s [00:52:34.049] ..$ : int 33 1554s [00:52:34.049] ..$ : int 34 1554s [00:52:34.049] ..$ : int 35 1554s [00:52:34.049] ..$ : int 36 1554s [00:52:34.049] ..$ : int 37 1554s [00:52:34.049] ..$ : int 38 1554s [00:52:34.049] ..$ : int 39 1554s [00:52:34.049] ..$ : int 40 1554s [00:52:34.049] ..$ : int 41 1554s [00:52:34.049] ..$ : int 42 1554s [00:52:34.049] ..$ : int 43 1554s [00:52:34.049] ..$ : int 44 1554s [00:52:34.049] ..$ : int 45 1554s [00:52:34.049] ..$ : int 46 1554s [00:52:34.049] ..$ : int 47 1554s [00:52:34.049] ..$ : int 48 1554s [00:52:34.049] ..$ : int 49 1554s [00:52:34.049] ..$ : int 50 1554s [00:52:34.049] ..$ : int 51 1554s [00:52:34.049] ..$ : int 52 1554s [00:52:34.049] ..$ : int 53 1554s [00:52:34.049] ..$ : int 54 1554s [00:52:34.049] ..$ : int 55 1554s [00:52:34.049] ..$ : int 56 1554s [00:52:34.049] ..$ : int 57 1554s [00:52:34.049] ..$ : int 58 1554s [00:52:34.049] ..$ : int 59 1554s [00:52:34.049] ..$ : int 60 1554s [00:52:34.049] ..$ : int 61 1554s [00:52:34.049] ..$ : int 62 1554s [00:52:34.049] ..$ : int 63 1554s [00:52:34.049] ..$ : int 64 1554s [00:52:34.049] ..$ : int 65 1554s [00:52:34.049] ..$ : int 66 1554s [00:52:34.049] ..$ : int 67 1554s [00:52:34.049] ..$ : int 68 1554s [00:52:34.049] ..$ : int 69 1554s [00:52:34.049] ..$ : int 70 1554s [00:52:34.049] ..$ : int 71 1554s [00:52:34.049] ..$ : int 72 1554s [00:52:34.049] ..$ : int 73 1554s [00:52:34.049] ..$ : int 74 1554s [00:52:34.049] ..$ : int 75 1554s [00:52:34.049] ..$ : int 76 1554s [00:52:34.049] ..$ : int 77 1554s [00:52:34.049] ..$ : int 78 1554s [00:52:34.049] ..$ : int 79 1554s [00:52:34.049] ..$ : int 80 1554s [00:52:34.049] ..$ : int 81 1554s [00:52:34.049] ..$ : int 82 1554s [00:52:34.049] ..$ : int 83 1554s [00:52:34.049] ..$ : int 84 1554s [00:52:34.049] ..$ : int 85 1554s [00:52:34.049] ..$ : int 86 1554s [00:52:34.049] ..$ : int 87 1554s [00:52:34.049] ..$ : int 88 1554s [00:52:34.049] ..$ : int 89 1554s [00:52:34.049] ..$ : int 90 1554s [00:52:34.049] ..$ : int 91 1554s [00:52:34.049] ..$ : int 92 1554s [00:52:34.049] ..$ : int 93 1554s [00:52:34.049] ..$ : int 94 1554s [00:52:34.049] ..$ : int 95 1554s [00:52:34.049] ..$ : int 96 1554s [00:52:34.049] ..$ : int 97 1554s [00:52:34.049] ..$ : int 98 1554s [00:52:34.049] ..$ : int 99 1554s [00:52:34.049] .. [list output truncated] 1554s [00:52:34.049] $ ...future.seeds_ii : NULL 1554s [00:52:34.049] $ ...future.globals.maxSize: NULL 1554s [00:52:34.049] - attr(*, "where")=List of 6 1554s [00:52:34.049] ..$ ...future.FUN : 1554s [00:52:34.049] ..$ a : 1554s [00:52:34.049] ..$ future.call.arguments : 1554s [00:52:34.049] ..$ ...future.elements_ii : 1554s [00:52:34.049] ..$ ...future.seeds_ii : 1554s [00:52:34.049] ..$ ...future.globals.maxSize: 1554s [00:52:34.049] - attr(*, "resolved")= logi FALSE 1554s [00:52:34.049] - attr(*, "total_size")= num 1976 1554s [00:52:34.049] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1554s [00:52:34.049] - attr(*, "already-done")= logi TRUE 1554s [00:52:34.137] - reassign environment for ‘...future.FUN’ 1554s [00:52:34.138] - copied ‘...future.FUN’ to environment 1554s [00:52:34.138] - copied ‘a’ to environment 1554s [00:52:34.138] - copied ‘future.call.arguments’ to environment 1554s [00:52:34.138] - copied ‘...future.elements_ii’ to environment 1554s [00:52:34.138] - copied ‘...future.seeds_ii’ to environment 1554s [00:52:34.139] - copied ‘...future.globals.maxSize’ to environment 1554s [00:52:34.139] assign_globals() ... done 1554s [00:52:34.140] plan(): Setting new future strategy stack: 1554s [00:52:34.140] List of future strategies: 1554s [00:52:34.140] 1. sequential: 1554s [00:52:34.140] - args: function (..., envir = parent.frame()) 1554s [00:52:34.140] - tweaked: FALSE 1554s [00:52:34.140] - call: NULL 1554s [00:52:34.141] plan(): nbrOfWorkers() = 1 1554s [00:52:34.174] plan(): Setting new future strategy stack: 1554s [00:52:34.174] List of future strategies: 1554s [00:52:34.174] 1. multicore: 1554s [00:52:34.174] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1554s [00:52:34.174] - tweaked: FALSE 1554s [00:52:34.174] - call: plan(strategy) 1554s [00:52:34.182] plan(): nbrOfWorkers() = 1 1554s [00:52:34.183] SequentialFuture started (and completed) 1554s [00:52:34.183] - Launch lazy future ... done 1554s [00:52:34.184] run() for ‘SequentialFuture’ ... done 1554s [00:52:34.184] Created future: 1554s [00:52:34.184] SequentialFuture: 1554s [00:52:34.184] Label: ‘future_lapply-1’ 1554s [00:52:34.184] Expression: 1554s [00:52:34.184] { 1554s [00:52:34.184] do.call(function(...) { 1554s [00:52:34.184] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1554s [00:52:34.184] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1554s [00:52:34.184] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1554s [00:52:34.184] on.exit(options(oopts), add = TRUE) 1554s [00:52:34.184] } 1554s [00:52:34.184] { 1554s [00:52:34.184] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1554s [00:52:34.184] ...future.X_jj <- ...future.elements_ii[[jj]] 1554s [00:52:34.184] ...future.FUN(...future.X_jj, ...) 1554s [00:52:34.184] }) 1554s [00:52:34.184] } 1554s [00:52:34.184] }, args = future.call.arguments) 1554s [00:52:34.184] } 1554s [00:52:34.184] Lazy evaluation: FALSE 1554s [00:52:34.184] Asynchronous evaluation: FALSE 1554s [00:52:34.184] Local evaluation: TRUE 1554s [00:52:34.184] Environment: R_GlobalEnv 1554s [00:52:34.184] Capture standard output: TRUE 1554s [00:52:34.184] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1554s [00:52:34.184] Globals: 6 objects totaling 548.80 KiB (function ‘...future.FUN’ of 1.88 KiB, numeric ‘a’ of 56 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 546.88 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, ...) 1554s [00:52:34.184] Packages: 1554s [00:52:34.184] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1554s [00:52:34.184] Resolved: TRUE 1554s [00:52:34.184] Value: 546.88 KiB of class ‘list’ 1554s [00:52:34.184] Early signaling: FALSE 1554s [00:52:34.184] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1554s [00:52:34.184] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1554s [00:52:34.331] Chunk #1 of 1 ... DONE 1554s [00:52:34.331] Launching 1 futures (chunks) ... DONE 1554s [00:52:34.332] Resolving 1 futures (chunks) ... 1554s [00:52:34.332] resolve() on list ... 1554s [00:52:34.332] recursive: 0 1554s [00:52:34.332] length: 1 1554s [00:52:34.333] 1554s [00:52:34.333] resolved() for ‘SequentialFuture’ ... 1554s [00:52:34.333] - state: ‘finished’ 1554s [00:52:34.333] - run: TRUE 1554s [00:52:34.333] - result: ‘FutureResult’ 1554s [00:52:34.333] resolved() for ‘SequentialFuture’ ... done 1554s [00:52:34.333] Future #1 1554s [00:52:34.334] signalConditionsASAP(SequentialFuture, pos=1) ... 1554s [00:52:34.334] - nx: 1 1554s [00:52:34.334] - relay: TRUE 1554s [00:52:34.334] - stdout: TRUE 1554s [00:52:34.334] - signal: TRUE 1554s [00:52:34.334] - resignal: FALSE 1554s [00:52:34.334] - force: TRUE 1554s [00:52:34.335] - relayed: [n=1] FALSE 1554s [00:52:34.335] - queued futures: [n=1] FALSE 1554s [00:52:34.335] - until=1 1554s [00:52:34.335] - relaying element #1 1554s [00:52:34.335] - relayed: [n=1] TRUE 1554s [00:52:34.335] - queued futures: [n=1] TRUE 1554s [00:52:34.336] signalConditionsASAP(SequentialFuture, pos=1) ... done 1554s [00:52:34.336] length: 0 (resolved future 1) 1554s [00:52:34.336] Relaying remaining futures 1554s [00:52:34.336] signalConditionsASAP(NULL, pos=0) ... 1554s [00:52:34.336] - nx: 1 1554s [00:52:34.336] - relay: TRUE 1554s [00:52:34.336] - stdout: TRUE 1554s [00:52:34.336] - signal: TRUE 1554s [00:52:34.336] - resignal: FALSE 1554s [00:52:34.336] - force: TRUE 1554s [00:52:34.337] - relayed: [n=1] TRUE 1554s [00:52:34.337] - queued futures: [n=1] TRUE 1554s - flush all 1554s [00:52:34.337] - relayed: [n=1] TRUE 1554s [00:52:34.337] - queued futures: [n=1] TRUE 1554s [00:52:34.337] signalConditionsASAP(NULL, pos=0) ... done 1554s [00:52:34.337] resolve() on list ... DONE 1554s [00:52:34.338] - Number of value chunks collected: 1 1554s [00:52:34.338] Resolving 1 futures (chunks) ... DONE 1554s [00:52:34.338] Reducing values from 1 chunks ... 1554s [00:52:34.338] - Number of values collected after concatenation: 10000 1554s [00:52:34.338] - Number of values expected: 10000 1554s [00:52:34.338] Reducing values from 1 chunks ... DONE 1554s [00:52:34.338] future_lapply() ... DONE 1554s - future_lapply(x, FUN = table, ...) ... 1554s [00:52:34.340] future_lapply() ... 1554s [00:52:34.397] Number of chunks: 1 1554s [00:52:34.397] getGlobalsAndPackagesXApply() ... 1554s [00:52:34.397] - future.globals: TRUE 1554s [00:52:34.397] getGlobalsAndPackages() ... 1554s [00:52:34.398] Searching for globals... 1554s [00:52:34.462] - globals found: [59] ‘FUN’, ‘if’, ‘==’, ‘c’, ‘list.names’, ‘{’, ‘<-’, ‘[’, ‘as.list’, ‘substitute’, ‘-’, ‘&&’, ‘length’, ‘is.list’, ‘!’, ‘is.null’, ‘names’, ‘return’, ‘seq_along’, ‘vapply’, ‘switch’, ‘+’, ‘is.symbol’, ‘as.character’, ‘deparse’, ‘[<-’, ‘missing’, ‘match’, ‘match.arg’, ‘!=’, ‘warning’, ‘list’, ‘[[’, ‘paste’, ‘stop’, ‘integer’, ‘for’, ‘is.factor’, ‘anyNA’, ‘options’, ‘on.exit’, ‘factor’, ‘(’, ‘||’, ‘levels’, ‘as.integer’, ‘which’, ‘is.na’, ‘is.na<-’, ‘>’, ‘prod’, ‘$’, ‘.Machine’, ‘*’, ‘names<-’, ‘array’, ‘tabulate’, ‘class’, ‘class<-’ 1554s [00:52:34.463] Searching for globals ... DONE 1554s [00:52:34.463] Resolving globals: FALSE 1554s [00:52:34.466] The total size of the 1 globals is 345.92 KiB (354224 bytes) 1554s [00:52:34.467] The total size of the 1 globals exported for future expression (‘FUN()’) is 345.92 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (345.92 KiB of class ‘function’) 1554s [00:52:34.467] - globals: [1] ‘FUN’ 1554s [00:52:34.467] 1554s [00:52:34.468] getGlobalsAndPackages() ... DONE 1554s [00:52:34.468] - globals found/used: [n=1] ‘FUN’ 1554s [00:52:34.469] - needed namespaces: [n=0] 1554s [00:52:34.469] Finding globals ... DONE 1554s [00:52:34.469] - use_args: TRUE 1554s [00:52:34.469] - Getting '...' globals ... 1554s [00:52:34.470] resolve() on list ... 1554s [00:52:34.470] recursive: 0 1554s [00:52:34.470] length: 1 1554s [00:52:34.471] elements: ‘...’ 1554s [00:52:34.471] length: 0 (resolved future 1) 1554s [00:52:34.471] resolve() on list ... DONE 1554s [00:52:34.471] - '...' content: [n=0] 1554s [00:52:34.472] List of 1 1554s [00:52:34.472] $ ...: list() 1554s [00:52:34.472] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1554s [00:52:34.472] - attr(*, "where")=List of 1 1554s [00:52:34.472] ..$ ...: 1554s [00:52:34.472] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1554s [00:52:34.472] - attr(*, "resolved")= logi TRUE 1554s [00:52:34.472] - attr(*, "total_size")= num NA 1554s [00:52:34.476] - Getting '...' globals ... DONE 1554s [00:52:34.476] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1554s [00:52:34.476] List of 2 1554s [00:52:34.476] $ ...future.FUN:function (..., exclude = if (useNA == "no") c(NA, NaN), useNA = c("no", 1554s [00:52:34.476] "ifany", "always"), dnn = list.names(...), deparse.level = 1) 1554s [00:52:34.476] $ ... : list() 1554s [00:52:34.476] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1554s [00:52:34.476] - attr(*, "where")=List of 2 1554s [00:52:34.476] ..$ ...future.FUN: 1554s [00:52:34.476] ..$ ... : 1554s [00:52:34.476] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1554s [00:52:34.476] - attr(*, "resolved")= logi FALSE 1554s [00:52:34.476] - attr(*, "total_size")= num 354224 1554s [00:52:34.482] Packages to be attached in all futures: [n=0] 1554s [00:52:34.483] getGlobalsAndPackagesXApply() ... DONE 1554s [00:52:34.483] Number of futures (= number of chunks): 1 1554s [00:52:34.484] Launching 1 futures (chunks) ... 1554s [00:52:34.484] Chunk #1 of 1 ... 1554s [00:52:34.484] - Finding globals in 'X' for chunk #1 ... 1554s [00:52:34.484] getGlobalsAndPackages() ... 1554s [00:52:34.484] Searching for globals... 1554s [00:52:34.485] 1554s [00:52:34.485] Searching for globals ... DONE 1554s [00:52:34.485] - globals: [0] 1554s [00:52:34.485] getGlobalsAndPackages() ... DONE 1554s [00:52:34.485] + additional globals found: [n=0] 1554s [00:52:34.485] + additional namespaces needed: [n=0] 1554s [00:52:34.486] - Finding globals in 'X' for chunk #1 ... DONE 1554s [00:52:34.486] - seeds: 1554s [00:52:34.486] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1554s [00:52:34.486] getGlobalsAndPackages() ... 1554s [00:52:34.486] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1554s [00:52:34.486] Resolving globals: FALSE 1554s [00:52:34.487] Tweak future expression to call with '...' arguments ... 1554s [00:52:34.487] { 1554s [00:52:34.487] do.call(function(...) { 1554s [00:52:34.487] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1554s [00:52:34.487] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1554s [00:52:34.487] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1554s [00:52:34.487] on.exit(options(oopts), add = TRUE) 1554s [00:52:34.487] } 1554s [00:52:34.487] { 1554s [00:52:34.487] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1554s [00:52:34.487] ...future.X_jj <- ...future.elements_ii[[jj]] 1554s [00:52:34.487] ...future.FUN(...future.X_jj, ...) 1554s [00:52:34.487] }) 1554s [00:52:34.487] } 1554s [00:52:34.487] }, args = future.call.arguments) 1554s [00:52:34.487] } 1554s [00:52:34.487] Tweak future expression to call with '...' arguments ... DONE 1554s [00:52:34.488] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1554s [00:52:34.488] 1554s [00:52:34.488] getGlobalsAndPackages() ... DONE 1554s [00:52:34.489] run() for ‘Future’ ... 1554s [00:52:34.489] - state: ‘created’ 1554s [00:52:34.489] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1554s [00:52:34.494] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1554s [00:52:34.495] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1554s [00:52:34.495] - Field: ‘label’ 1554s [00:52:34.496] - Field: ‘local’ 1554s [00:52:34.496] - Field: ‘owner’ 1554s [00:52:34.496] - Field: ‘envir’ 1554s [00:52:34.497] - Field: ‘packages’ 1554s [00:52:34.497] - Field: ‘gc’ 1554s [00:52:34.497] - Field: ‘conditions’ 1554s [00:52:34.498] - Field: ‘expr’ 1554s [00:52:34.498] - Field: ‘uuid’ 1554s [00:52:34.499] - Field: ‘seed’ 1554s [00:52:34.499] - Field: ‘version’ 1554s [00:52:34.499] - Field: ‘result’ 1554s [00:52:34.499] - Field: ‘asynchronous’ 1554s [00:52:34.500] - Field: ‘calls’ 1554s [00:52:34.500] - Field: ‘globals’ 1554s [00:52:34.500] - Field: ‘stdout’ 1554s [00:52:34.501] - Field: ‘earlySignal’ 1554s [00:52:34.501] - Field: ‘lazy’ 1554s [00:52:34.501] - Field: ‘state’ 1554s [00:52:34.501] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1554s [00:52:34.501] - Launch lazy future ... 1554s [00:52:34.502] Packages needed by the future expression (n = 0): 1554s [00:52:34.502] Packages needed by future strategies (n = 0): 1554s [00:52:34.503] { 1554s [00:52:34.503] { 1554s [00:52:34.503] { 1554s [00:52:34.503] ...future.startTime <- base::Sys.time() 1554s [00:52:34.503] { 1554s [00:52:34.503] { 1554s [00:52:34.503] { 1554s [00:52:34.503] base::local({ 1554s [00:52:34.503] has_future <- base::requireNamespace("future", 1554s [00:52:34.503] quietly = TRUE) 1554s [00:52:34.503] if (has_future) { 1554s [00:52:34.503] ns <- base::getNamespace("future") 1554s [00:52:34.503] version <- ns[[".package"]][["version"]] 1554s [00:52:34.503] if (is.null(version)) 1554s [00:52:34.503] version <- utils::packageVersion("future") 1554s [00:52:34.503] } 1554s [00:52:34.503] else { 1554s [00:52:34.503] version <- NULL 1554s [00:52:34.503] } 1554s [00:52:34.503] if (!has_future || version < "1.8.0") { 1554s [00:52:34.503] info <- base::c(r_version = base::gsub("R version ", 1554s [00:52:34.503] "", base::R.version$version.string), 1554s [00:52:34.503] platform = base::sprintf("%s (%s-bit)", 1554s [00:52:34.503] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1554s [00:52:34.503] os = base::paste(base::Sys.info()[base::c("sysname", 1554s [00:52:34.503] "release", "version")], collapse = " "), 1554s [00:52:34.503] hostname = base::Sys.info()[["nodename"]]) 1554s [00:52:34.503] info <- base::sprintf("%s: %s", base::names(info), 1554s [00:52:34.503] info) 1554s [00:52:34.503] info <- base::paste(info, collapse = "; ") 1554s [00:52:34.503] if (!has_future) { 1554s [00:52:34.503] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1554s [00:52:34.503] info) 1554s [00:52:34.503] } 1554s [00:52:34.503] else { 1554s [00:52:34.503] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1554s [00:52:34.503] info, version) 1554s [00:52:34.503] } 1554s [00:52:34.503] base::stop(msg) 1554s [00:52:34.503] } 1554s [00:52:34.503] }) 1554s [00:52:34.503] } 1554s [00:52:34.503] options(future.plan = NULL) 1554s [00:52:34.503] Sys.unsetenv("R_FUTURE_PLAN") 1554s [00:52:34.503] future::plan("default", .cleanup = FALSE, .init = FALSE) 1554s [00:52:34.503] } 1554s [00:52:34.503] ...future.workdir <- getwd() 1554s [00:52:34.503] } 1554s [00:52:34.503] ...future.oldOptions <- base::as.list(base::.Options) 1554s [00:52:34.503] ...future.oldEnvVars <- base::Sys.getenv() 1554s [00:52:34.503] } 1554s [00:52:34.503] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1554s [00:52:34.503] future.globals.maxSize = NULL, future.globals.method = NULL, 1554s [00:52:34.503] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1554s [00:52:34.503] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1554s [00:52:34.503] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1554s [00:52:34.503] future.stdout.windows.reencode = NULL, width = 80L) 1554s [00:52:34.503] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1554s [00:52:34.503] base::names(...future.oldOptions)) 1554s [00:52:34.503] } 1554s [00:52:34.503] if (FALSE) { 1554s [00:52:34.503] } 1554s [00:52:34.503] else { 1554s [00:52:34.503] if (TRUE) { 1554s [00:52:34.503] ...future.stdout <- base::rawConnection(base::raw(0L), 1554s [00:52:34.503] open = "w") 1554s [00:52:34.503] } 1554s [00:52:34.503] else { 1554s [00:52:34.503] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1554s [00:52:34.503] windows = "NUL", "/dev/null"), open = "w") 1554s [00:52:34.503] } 1554s [00:52:34.503] base::sink(...future.stdout, type = "output", split = FALSE) 1554s [00:52:34.503] base::on.exit(if (!base::is.null(...future.stdout)) { 1554s [00:52:34.503] base::sink(type = "output", split = FALSE) 1554s [00:52:34.503] base::close(...future.stdout) 1554s [00:52:34.503] }, add = TRUE) 1554s [00:52:34.503] } 1554s [00:52:34.503] ...future.frame <- base::sys.nframe() 1554s [00:52:34.503] ...future.conditions <- base::list() 1554s [00:52:34.503] ...future.rng <- base::globalenv()$.Random.seed 1554s [00:52:34.503] if (FALSE) { 1554s [00:52:34.503] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1554s [00:52:34.503] "...future.value", "...future.globalenv.names", ".Random.seed") 1554s [00:52:34.503] } 1554s [00:52:34.503] ...future.result <- base::tryCatch({ 1554s [00:52:34.503] base::withCallingHandlers({ 1554s [00:52:34.503] ...future.value <- base::withVisible(base::local({ 1554s [00:52:34.503] do.call(function(...) { 1554s [00:52:34.503] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1554s [00:52:34.503] if (!identical(...future.globals.maxSize.org, 1554s [00:52:34.503] ...future.globals.maxSize)) { 1554s [00:52:34.503] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1554s [00:52:34.503] on.exit(options(oopts), add = TRUE) 1554s [00:52:34.503] } 1554s [00:52:34.503] { 1554s [00:52:34.503] lapply(seq_along(...future.elements_ii), 1554s [00:52:34.503] FUN = function(jj) { 1554s [00:52:34.503] ...future.X_jj <- ...future.elements_ii[[jj]] 1554s [00:52:34.503] ...future.FUN(...future.X_jj, ...) 1554s [00:52:34.503] }) 1554s [00:52:34.503] } 1554s [00:52:34.503] }, args = future.call.arguments) 1554s [00:52:34.503] })) 1554s [00:52:34.503] future::FutureResult(value = ...future.value$value, 1554s [00:52:34.503] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1554s [00:52:34.503] ...future.rng), globalenv = if (FALSE) 1554s [00:52:34.503] list(added = base::setdiff(base::names(base::.GlobalEnv), 1554s [00:52:34.503] ...future.globalenv.names)) 1554s [00:52:34.503] else NULL, started = ...future.startTime, version = "1.8") 1554s [00:52:34.503] }, condition = base::local({ 1554s [00:52:34.503] c <- base::c 1554s [00:52:34.503] inherits <- base::inherits 1554s [00:52:34.503] invokeRestart <- base::invokeRestart 1554s [00:52:34.503] length <- base::length 1554s [00:52:34.503] list <- base::list 1554s [00:52:34.503] seq.int <- base::seq.int 1554s [00:52:34.503] signalCondition <- base::signalCondition 1554s [00:52:34.503] sys.calls <- base::sys.calls 1554s [00:52:34.503] `[[` <- base::`[[` 1554s [00:52:34.503] `+` <- base::`+` 1554s [00:52:34.503] `<<-` <- base::`<<-` 1554s [00:52:34.503] sysCalls <- function(calls = sys.calls(), from = 1L) { 1554s [00:52:34.503] calls[seq.int(from = from + 12L, to = length(calls) - 1554s [00:52:34.503] 3L)] 1554s [00:52:34.503] } 1554s [00:52:34.503] function(cond) { 1554s [00:52:34.503] is_error <- inherits(cond, "error") 1554s [00:52:34.503] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1554s [00:52:34.503] NULL) 1554s [00:52:34.503] if (is_error) { 1554s [00:52:34.503] sessionInformation <- function() { 1554s [00:52:34.503] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1554s [00:52:34.503] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1554s [00:52:34.503] search = base::search(), system = base::Sys.info()) 1554s [00:52:34.503] } 1554s [00:52:34.503] ...future.conditions[[length(...future.conditions) + 1554s [00:52:34.503] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1554s [00:52:34.503] cond$call), session = sessionInformation(), 1554s [00:52:34.503] timestamp = base::Sys.time(), signaled = 0L) 1554s [00:52:34.503] signalCondition(cond) 1554s [00:52:34.503] } 1554s [00:52:34.503] else if (!ignore && TRUE && inherits(cond, c("condition", 1554s [00:52:34.503] "immediateCondition"))) { 1554s [00:52:34.503] signal <- TRUE && inherits(cond, "immediateCondition") 1554s [00:52:34.503] ...future.conditions[[length(...future.conditions) + 1554s [00:52:34.503] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1554s [00:52:34.503] if (TRUE && !signal) { 1554s [00:52:34.503] muffleCondition <- function (cond, pattern = "^muffle") 1554s [00:52:34.503] { 1554s [00:52:34.503] inherits <- base::inherits 1554s [00:52:34.503] invokeRestart <- base::invokeRestart 1554s [00:52:34.503] is.null <- base::is.null 1554s [00:52:34.503] muffled <- FALSE 1554s [00:52:34.503] if (inherits(cond, "message")) { 1554s [00:52:34.503] muffled <- grepl(pattern, "muffleMessage") 1554s [00:52:34.503] if (muffled) 1554s [00:52:34.503] invokeRestart("muffleMessage") 1554s [00:52:34.503] } 1554s [00:52:34.503] else if (inherits(cond, "warning")) { 1554s [00:52:34.503] muffled <- grepl(pattern, "muffleWarning") 1554s [00:52:34.503] if (muffled) 1554s [00:52:34.503] invokeRestart("muffleWarning") 1554s [00:52:34.503] } 1554s [00:52:34.503] else if (inherits(cond, "condition")) { 1554s [00:52:34.503] if (!is.null(pattern)) { 1554s [00:52:34.503] computeRestarts <- base::computeRestarts 1554s [00:52:34.503] grepl <- base::grepl 1554s [00:52:34.503] restarts <- computeRestarts(cond) 1554s [00:52:34.503] for (restart in restarts) { 1554s [00:52:34.503] name <- restart$name 1554s [00:52:34.503] if (is.null(name)) 1554s [00:52:34.503] next 1554s [00:52:34.503] if (!grepl(pattern, name)) 1554s [00:52:34.503] next 1554s [00:52:34.503] invokeRestart(restart) 1554s [00:52:34.503] muffled <- TRUE 1554s [00:52:34.503] break 1554s [00:52:34.503] } 1554s [00:52:34.503] } 1554s [00:52:34.503] } 1554s [00:52:34.503] invisible(muffled) 1554s [00:52:34.503] } 1554s [00:52:34.503] muffleCondition(cond, pattern = "^muffle") 1554s [00:52:34.503] } 1554s [00:52:34.503] } 1554s [00:52:34.503] else { 1554s [00:52:34.503] if (TRUE) { 1554s [00:52:34.503] muffleCondition <- function (cond, pattern = "^muffle") 1554s [00:52:34.503] { 1554s [00:52:34.503] inherits <- base::inherits 1554s [00:52:34.503] invokeRestart <- base::invokeRestart 1554s [00:52:34.503] is.null <- base::is.null 1554s [00:52:34.503] muffled <- FALSE 1554s [00:52:34.503] if (inherits(cond, "message")) { 1554s [00:52:34.503] muffled <- grepl(pattern, "muffleMessage") 1554s [00:52:34.503] if (muffled) 1554s [00:52:34.503] invokeRestart("muffleMessage") 1554s [00:52:34.503] } 1554s [00:52:34.503] else if (inherits(cond, "warning")) { 1554s [00:52:34.503] muffled <- grepl(pattern, "muffleWarning") 1554s [00:52:34.503] if (muffled) 1554s [00:52:34.503] invokeRestart("muffleWarning") 1554s [00:52:34.503] } 1554s [00:52:34.503] else if (inherits(cond, "condition")) { 1554s [00:52:34.503] if (!is.null(pattern)) { 1554s [00:52:34.503] computeRestarts <- base::computeRestarts 1554s [00:52:34.503] grepl <- base::grepl 1554s [00:52:34.503] restarts <- computeRestarts(cond) 1554s [00:52:34.503] for (restart in restarts) { 1554s [00:52:34.503] name <- restart$name 1554s [00:52:34.503] if (is.null(name)) 1554s [00:52:34.503] next 1554s [00:52:34.503] if (!grepl(pattern, name)) 1554s [00:52:34.503] next 1554s [00:52:34.503] invokeRestart(restart) 1554s [00:52:34.503] muffled <- TRUE 1554s [00:52:34.503] break 1554s [00:52:34.503] } 1554s [00:52:34.503] } 1554s [00:52:34.503] } 1554s [00:52:34.503] invisible(muffled) 1554s [00:52:34.503] } 1554s [00:52:34.503] muffleCondition(cond, pattern = "^muffle") 1554s [00:52:34.503] } 1554s [00:52:34.503] } 1554s [00:52:34.503] } 1554s [00:52:34.503] })) 1554s [00:52:34.503] }, error = function(ex) { 1554s [00:52:34.503] base::structure(base::list(value = NULL, visible = NULL, 1554s [00:52:34.503] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1554s [00:52:34.503] ...future.rng), started = ...future.startTime, 1554s [00:52:34.503] finished = Sys.time(), session_uuid = NA_character_, 1554s [00:52:34.503] version = "1.8"), class = "FutureResult") 1554s [00:52:34.503] }, finally = { 1554s [00:52:34.503] if (!identical(...future.workdir, getwd())) 1554s [00:52:34.503] setwd(...future.workdir) 1554s [00:52:34.503] { 1554s [00:52:34.503] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1554s [00:52:34.503] ...future.oldOptions$nwarnings <- NULL 1554s [00:52:34.503] } 1554s [00:52:34.503] base::options(...future.oldOptions) 1554s [00:52:34.503] if (.Platform$OS.type == "windows") { 1554s [00:52:34.503] old_names <- names(...future.oldEnvVars) 1554s [00:52:34.503] envs <- base::Sys.getenv() 1554s [00:52:34.503] names <- names(envs) 1554s [00:52:34.503] common <- intersect(names, old_names) 1554s [00:52:34.503] added <- setdiff(names, old_names) 1554s [00:52:34.503] removed <- setdiff(old_names, names) 1554s [00:52:34.503] changed <- common[...future.oldEnvVars[common] != 1554s [00:52:34.503] envs[common]] 1554s [00:52:34.503] NAMES <- toupper(changed) 1554s [00:52:34.503] args <- list() 1554s [00:52:34.503] for (kk in seq_along(NAMES)) { 1554s [00:52:34.503] name <- changed[[kk]] 1554s [00:52:34.503] NAME <- NAMES[[kk]] 1554s [00:52:34.503] if (name != NAME && is.element(NAME, old_names)) 1554s [00:52:34.503] next 1554s [00:52:34.503] args[[name]] <- ...future.oldEnvVars[[name]] 1554s [00:52:34.503] } 1554s [00:52:34.503] NAMES <- toupper(added) 1554s [00:52:34.503] for (kk in seq_along(NAMES)) { 1554s [00:52:34.503] name <- added[[kk]] 1554s [00:52:34.503] NAME <- NAMES[[kk]] 1554s [00:52:34.503] if (name != NAME && is.element(NAME, old_names)) 1554s [00:52:34.503] next 1554s [00:52:34.503] args[[name]] <- "" 1554s [00:52:34.503] } 1554s [00:52:34.503] NAMES <- toupper(removed) 1554s [00:52:34.503] for (kk in seq_along(NAMES)) { 1554s [00:52:34.503] name <- removed[[kk]] 1554s [00:52:34.503] NAME <- NAMES[[kk]] 1554s [00:52:34.503] if (name != NAME && is.element(NAME, old_names)) 1554s [00:52:34.503] next 1554s [00:52:34.503] args[[name]] <- ...future.oldEnvVars[[name]] 1554s [00:52:34.503] } 1554s [00:52:34.503] if (length(args) > 0) 1554s [00:52:34.503] base::do.call(base::Sys.setenv, args = args) 1554s [00:52:34.503] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1554s [00:52:34.503] } 1554s [00:52:34.503] else { 1554s [00:52:34.503] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1554s [00:52:34.503] } 1554s [00:52:34.503] { 1554s [00:52:34.503] if (base::length(...future.futureOptionsAdded) > 1554s [00:52:34.503] 0L) { 1554s [00:52:34.503] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1554s [00:52:34.503] base::names(opts) <- ...future.futureOptionsAdded 1554s [00:52:34.503] base::options(opts) 1554s [00:52:34.503] } 1554s [00:52:34.503] { 1554s [00:52:34.503] { 1554s [00:52:34.503] NULL 1554s [00:52:34.503] RNGkind("Mersenne-Twister") 1554s [00:52:34.503] base::rm(list = ".Random.seed", envir = base::globalenv(), 1554s [00:52:34.503] inherits = FALSE) 1554s [00:52:34.503] } 1554s [00:52:34.503] options(future.plan = NULL) 1554s [00:52:34.503] if (is.na(NA_character_)) 1554s [00:52:34.503] Sys.unsetenv("R_FUTURE_PLAN") 1554s [00:52:34.503] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1554s [00:52:34.503] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1554s [00:52:34.503] envir = parent.frame()) 1554s [00:52:34.503] { 1554s [00:52:34.503] default_workers <- missing(workers) 1554s [00:52:34.503] if (is.function(workers)) 1554s [00:52:34.503] workers <- workers() 1554s [00:52:34.503] workers <- structure(as.integer(workers), 1554s [00:52:34.503] class = class(workers)) 1554s [00:52:34.503] stop_if_not(is.finite(workers), workers >= 1554s [00:52:34.503] 1L) 1554s [00:52:34.503] if ((workers == 1L && !inherits(workers, 1554s [00:52:34.503] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1554s [00:52:34.503] if (default_workers) 1554s [00:52:34.503] supportsMulticore(warn = TRUE) 1554s [00:52:34.503] return(sequential(..., envir = envir)) 1554s [00:52:34.503] } 1554s [00:52:34.503] oopts <- options(mc.cores = workers) 1554s [00:52:34.503] on.exit(options(oopts)) 1554s [00:52:34.503] future <- MulticoreFuture(..., workers = workers, 1554s [00:52:34.503] envir = envir) 1554s [00:52:34.503] if (!future$lazy) 1554s [00:52:34.503] future <- run(future) 1554s [00:52:34.503] invisible(future) 1554s [00:52:34.503] }), .cleanup = FALSE, .init = FALSE) 1554s [00:52:34.503] } 1554s [00:52:34.503] } 1554s [00:52:34.503] } 1554s [00:52:34.503] }) 1554s [00:52:34.503] if (TRUE) { 1554s [00:52:34.503] base::sink(type = "output", split = FALSE) 1554s [00:52:34.503] if (TRUE) { 1554s [00:52:34.503] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1554s [00:52:34.503] } 1554s [00:52:34.503] else { 1554s [00:52:34.503] ...future.result["stdout"] <- base::list(NULL) 1554s [00:52:34.503] } 1554s [00:52:34.503] base::close(...future.stdout) 1554s [00:52:34.503] ...future.stdout <- NULL 1554s [00:52:34.503] } 1554s [00:52:34.503] ...future.result$conditions <- ...future.conditions 1554s [00:52:34.503] ...future.result$finished <- base::Sys.time() 1554s [00:52:34.503] ...future.result 1554s [00:52:34.503] } 1554s [00:52:34.507] assign_globals() ... 1554s [00:52:34.507] List of 5 1554s [00:52:34.507] $ ...future.FUN :function (..., exclude = if (useNA == "no") c(NA, NaN), useNA = c("no", 1554s [00:52:34.507] "ifany", "always"), dnn = list.names(...), deparse.level = 1) 1554s [00:52:34.507] $ future.call.arguments : list() 1554s [00:52:34.507] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1554s [00:52:34.507] $ ...future.elements_ii :List of 2 1554s [00:52:34.507] ..$ a: int [1:4] 1 2 3 4 1554s [00:52:34.507] ..$ b: int [1:4] 5 6 7 8 1554s [00:52:34.507] $ ...future.seeds_ii : NULL 1554s [00:52:34.507] $ ...future.globals.maxSize: NULL 1554s [00:52:34.507] - attr(*, "where")=List of 5 1554s [00:52:34.507] ..$ ...future.FUN : 1554s [00:52:34.507] ..$ future.call.arguments : 1554s [00:52:34.507] ..$ ...future.elements_ii : 1554s [00:52:34.507] ..$ ...future.seeds_ii : 1554s [00:52:34.507] ..$ ...future.globals.maxSize: 1554s [00:52:34.507] - attr(*, "resolved")= logi FALSE 1554s [00:52:34.507] - attr(*, "total_size")= num 354224 1554s [00:52:34.507] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1554s [00:52:34.507] - attr(*, "already-done")= logi TRUE 1554s [00:52:34.515] - copied ‘...future.FUN’ to environment 1554s [00:52:34.516] - copied ‘future.call.arguments’ to environment 1554s [00:52:34.516] - copied ‘...future.elements_ii’ to environment 1554s [00:52:34.516] - copied ‘...future.seeds_ii’ to environment 1554s [00:52:34.516] - copied ‘...future.globals.maxSize’ to environment 1554s [00:52:34.516] assign_globals() ... done 1554s [00:52:34.517] plan(): Setting new future strategy stack: 1554s [00:52:34.521] List of future strategies: 1554s [00:52:34.521] 1. sequential: 1554s [00:52:34.521] - args: function (..., envir = parent.frame()) 1554s [00:52:34.521] - tweaked: FALSE 1554s [00:52:34.521] - call: NULL 1554s [00:52:34.522] plan(): nbrOfWorkers() = 1 1554s [00:52:34.524] plan(): Setting new future strategy stack: 1554s [00:52:34.524] List of future strategies: 1554s [00:52:34.524] 1. multicore: 1554s [00:52:34.524] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1554s [00:52:34.524] - tweaked: FALSE 1554s [00:52:34.524] - call: plan(strategy) 1554s [00:52:34.530] plan(): nbrOfWorkers() = 1 1554s [00:52:34.530] SequentialFuture started (and completed) 1554s [00:52:34.531] - Launch lazy future ... done 1554s [00:52:34.531] run() for ‘SequentialFuture’ ... done 1554s [00:52:34.531] Created future: 1554s [00:52:34.531] SequentialFuture: 1554s [00:52:34.531] Label: ‘future_lapply-1’ 1554s [00:52:34.531] Expression: 1554s [00:52:34.531] { 1554s [00:52:34.531] do.call(function(...) { 1554s [00:52:34.531] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1554s [00:52:34.531] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1554s [00:52:34.531] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1554s [00:52:34.531] on.exit(options(oopts), add = TRUE) 1554s [00:52:34.531] } 1554s [00:52:34.531] { 1554s [00:52:34.531] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1554s [00:52:34.531] ...future.X_jj <- ...future.elements_ii[[jj]] 1554s [00:52:34.531] ...future.FUN(...future.X_jj, ...) 1554s [00:52:34.531] }) 1554s [00:52:34.531] } 1554s [00:52:34.531] }, args = future.call.arguments) 1554s [00:52:34.531] } 1554s [00:52:34.531] Lazy evaluation: FALSE 1554s [00:52:34.531] Asynchronous evaluation: FALSE 1554s [00:52:34.531] Local evaluation: TRUE 1554s [00:52:34.531] Environment: R_GlobalEnv 1554s [00:52:34.531] Capture standard output: TRUE 1554s [00:52:34.531] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1554s [00:52:34.531] Globals: 5 objects totaling 346.05 KiB (function ‘...future.FUN’ of 345.92 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 128 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1554s [00:52:34.531] Packages: 1554s [00:52:34.531] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1554s [00:52:34.531] Resolved: TRUE 1554s [00:52:34.531] Value: 2.27 KiB of class ‘list’ 1554s [00:52:34.531] Early signaling: FALSE 1554s [00:52:34.531] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1554s [00:52:34.531] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1554s [00:52:34.534] Chunk #1 of 1 ... DONE 1554s [00:52:34.535] Launching 1 futures (chunks) ... DONE 1554s [00:52:34.535] Resolving 1 futures (chunks) ... 1554s [00:52:34.535] resolve() on list ... 1554s [00:52:34.535] recursive: 0 1554s [00:52:34.535] length: 1 1554s [00:52:34.536] 1554s [00:52:34.536] resolved() for ‘SequentialFuture’ ... 1554s [00:52:34.536] - state: ‘finished’ 1554s [00:52:34.536] - run: TRUE 1554s [00:52:34.536] - result: ‘FutureResult’ 1554s [00:52:34.537] resolved() for ‘SequentialFuture’ ... done 1554s [00:52:34.537] Future #1 1554s [00:52:34.537] signalConditionsASAP(SequentialFuture, pos=1) ... 1554s [00:52:34.537] - nx: 1 1554s [00:52:34.537] - relay: TRUE 1554s [00:52:34.538] - stdout: TRUE 1554s [00:52:34.538] - signal: TRUE 1554s [00:52:34.538] - resignal: FALSE 1554s [00:52:34.538] - force: TRUE 1554s [00:52:34.538] - relayed: [n=1] FALSE 1554s [00:52:34.538] - queued futures: [n=1] FALSE 1554s [00:52:34.538] - until=1 1554s [00:52:34.538] - relaying element #1 1554s [00:52:34.539] - relayed: [n=1] TRUE 1554s [00:52:34.539] - queued futures: [n=1] TRUE 1554s [00:52:34.539] signalConditionsASAP(SequentialFuture, pos=1) ... done 1554s [00:52:34.539] length: 0 (resolved future 1) 1554s [00:52:34.539] Relaying remaining futures 1554s [00:52:34.539] signalConditionsASAP(NULL, pos=0) ... 1554s [00:52:34.539] - nx: 1 1554s [00:52:34.539] - relay: TRUE 1554s [00:52:34.540] - stdout: TRUE 1554s [00:52:34.540] - signal: TRUE 1554s [00:52:34.540] - resignal: FALSE 1554s [00:52:34.540] - force: TRUE 1554s [00:52:34.540] - relayed: [n=1] TRUE 1554s [00:52:34.541] - queued futures: [n=1] TRUE 1554s - flush all 1554s [00:52:34.541] - relayed: [n=1] TRUE 1554s [00:52:34.541] - queued futures: [n=1] TRUE 1554s [00:52:34.542] signalConditionsASAP(NULL, pos=0) ... done 1554s [00:52:34.542] resolve() on list ... DONE 1554s [00:52:34.542] - Number of value chunks collected: 1 1554s [00:52:34.542] Resolving 1 futures (chunks) ... DONE 1554s [00:52:34.543] Reducing values from 1 chunks ... 1554s [00:52:34.543] - Number of values collected after concatenation: 2 1554s [00:52:34.543] - Number of values expected: 2 1554s [00:52:34.543] Reducing values from 1 chunks ... DONE 1554s [00:52:34.544] future_lapply() ... DONE 1554s - future_lapply(x, ...) where length(x) != length(as.list(x)) ... 1554s [00:52:34.544] future_lapply() ... 1554s [00:52:34.548] Number of chunks: 1 1554s [00:52:34.548] getGlobalsAndPackagesXApply() ... 1554s [00:52:34.549] - future.globals: TRUE 1554s [00:52:34.549] getGlobalsAndPackages() ... 1554s [00:52:34.549] Searching for globals... 1554s [00:52:34.550] - globals found: [1] ‘FUN’ 1554s [00:52:34.551] Searching for globals ... DONE 1554s [00:52:34.551] Resolving globals: FALSE 1554s [00:52:34.551] The total size of the 1 globals is 56 bytes (56 bytes) 1554s [00:52:34.552] The total size of the 1 globals exported for future expression (‘FUN()’) is 56 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (56 bytes of class ‘function’) 1554s [00:52:34.552] - globals: [1] ‘FUN’ 1554s [00:52:34.552] 1554s [00:52:34.552] getGlobalsAndPackages() ... DONE 1554s [00:52:34.553] - globals found/used: [n=1] ‘FUN’ 1554s [00:52:34.553] - needed namespaces: [n=0] 1554s [00:52:34.553] Finding globals ... DONE 1554s [00:52:34.553] - use_args: TRUE 1554s [00:52:34.553] - Getting '...' globals ... 1554s [00:52:34.554] resolve() on list ... 1554s [00:52:34.554] recursive: 0 1554s [00:52:34.554] length: 1 1554s [00:52:34.554] elements: ‘...’ 1554s [00:52:34.554] length: 0 (resolved future 1) 1554s [00:52:34.555] resolve() on list ... DONE 1554s [00:52:34.555] - '...' content: [n=0] 1554s [00:52:34.555] List of 1 1554s [00:52:34.555] $ ...: list() 1554s [00:52:34.555] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1554s [00:52:34.555] - attr(*, "where")=List of 1 1554s [00:52:34.555] ..$ ...: 1554s [00:52:34.555] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1554s [00:52:34.555] - attr(*, "resolved")= logi TRUE 1554s [00:52:34.555] - attr(*, "total_size")= num NA 1554s [00:52:34.559] - Getting '...' globals ... DONE 1554s [00:52:34.559] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1554s [00:52:34.559] List of 2 1554s [00:52:34.559] $ ...future.FUN:function (x) 1554s [00:52:34.559] $ ... : list() 1554s [00:52:34.559] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1554s [00:52:34.559] - attr(*, "where")=List of 2 1554s [00:52:34.559] ..$ ...future.FUN: 1554s [00:52:34.559] ..$ ... : 1554s [00:52:34.559] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1554s [00:52:34.559] - attr(*, "resolved")= logi FALSE 1554s [00:52:34.559] - attr(*, "total_size")= num 56 1554s [00:52:34.564] Packages to be attached in all futures: [n=0] 1554s [00:52:34.564] getGlobalsAndPackagesXApply() ... DONE 1554s [00:52:34.565] Number of futures (= number of chunks): 1 1554s [00:52:34.565] Launching 1 futures (chunks) ... 1554s [00:52:34.565] Chunk #1 of 1 ... 1554s [00:52:34.565] - Finding globals in 'X' for chunk #1 ... 1554s [00:52:34.565] getGlobalsAndPackages() ... 1554s [00:52:34.565] Searching for globals... 1554s [00:52:34.566] 1554s [00:52:34.566] Searching for globals ... DONE 1554s [00:52:34.566] - globals: [0] 1554s [00:52:34.566] getGlobalsAndPackages() ... DONE 1554s [00:52:34.567] + additional globals found: [n=0] 1554s [00:52:34.567] + additional namespaces needed: [n=0] 1554s [00:52:34.567] - Finding globals in 'X' for chunk #1 ... DONE 1554s [00:52:34.567] - seeds: 1554s [00:52:34.567] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1554s [00:52:34.568] getGlobalsAndPackages() ... 1554s [00:52:34.568] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1554s [00:52:34.568] Resolving globals: FALSE 1554s [00:52:34.568] Tweak future expression to call with '...' arguments ... 1554s [00:52:34.568] { 1554s [00:52:34.568] do.call(function(...) { 1554s [00:52:34.568] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1554s [00:52:34.568] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1554s [00:52:34.568] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1554s [00:52:34.568] on.exit(options(oopts), add = TRUE) 1554s [00:52:34.568] } 1554s [00:52:34.568] { 1554s [00:52:34.568] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1554s [00:52:34.568] ...future.X_jj <- ...future.elements_ii[[jj]] 1554s [00:52:34.568] ...future.FUN(...future.X_jj, ...) 1554s [00:52:34.568] }) 1554s [00:52:34.568] } 1554s [00:52:34.568] }, args = future.call.arguments) 1554s [00:52:34.568] } 1554s [00:52:34.569] Tweak future expression to call with '...' arguments ... DONE 1554s [00:52:34.570] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1554s [00:52:34.570] 1554s [00:52:34.570] getGlobalsAndPackages() ... DONE 1554s [00:52:34.570] run() for ‘Future’ ... 1554s [00:52:34.571] - state: ‘created’ 1554s [00:52:34.571] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1554s [00:52:34.575] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1554s [00:52:34.575] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1554s [00:52:34.575] - Field: ‘label’ 1554s [00:52:34.575] - Field: ‘local’ 1554s [00:52:34.575] - Field: ‘owner’ 1554s [00:52:34.576] - Field: ‘envir’ 1554s [00:52:34.576] - Field: ‘packages’ 1554s [00:52:34.576] - Field: ‘gc’ 1554s [00:52:34.576] - Field: ‘conditions’ 1554s [00:52:34.576] - Field: ‘expr’ 1554s [00:52:34.576] - Field: ‘uuid’ 1554s [00:52:34.576] - Field: ‘seed’ 1554s [00:52:34.577] - Field: ‘version’ 1554s [00:52:34.577] - Field: ‘result’ 1554s [00:52:34.577] - Field: ‘asynchronous’ 1554s [00:52:34.577] - Field: ‘calls’ 1554s [00:52:34.577] - Field: ‘globals’ 1554s [00:52:34.577] - Field: ‘stdout’ 1554s [00:52:34.578] - Field: ‘earlySignal’ 1554s [00:52:34.578] - Field: ‘lazy’ 1554s [00:52:34.578] - Field: ‘state’ 1554s [00:52:34.578] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1554s [00:52:34.579] - Launch lazy future ... 1554s [00:52:34.579] Packages needed by the future expression (n = 0): 1554s [00:52:34.579] Packages needed by future strategies (n = 0): 1554s [00:52:34.580] { 1554s [00:52:34.580] { 1554s [00:52:34.580] { 1554s [00:52:34.580] ...future.startTime <- base::Sys.time() 1554s [00:52:34.580] { 1554s [00:52:34.580] { 1554s [00:52:34.580] { 1554s [00:52:34.580] base::local({ 1554s [00:52:34.580] has_future <- base::requireNamespace("future", 1554s [00:52:34.580] quietly = TRUE) 1554s [00:52:34.580] if (has_future) { 1554s [00:52:34.580] ns <- base::getNamespace("future") 1554s [00:52:34.580] version <- ns[[".package"]][["version"]] 1554s [00:52:34.580] if (is.null(version)) 1554s [00:52:34.580] version <- utils::packageVersion("future") 1554s [00:52:34.580] } 1554s [00:52:34.580] else { 1554s [00:52:34.580] version <- NULL 1554s [00:52:34.580] } 1554s [00:52:34.580] if (!has_future || version < "1.8.0") { 1554s [00:52:34.580] info <- base::c(r_version = base::gsub("R version ", 1554s [00:52:34.580] "", base::R.version$version.string), 1554s [00:52:34.580] platform = base::sprintf("%s (%s-bit)", 1554s [00:52:34.580] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1554s [00:52:34.580] os = base::paste(base::Sys.info()[base::c("sysname", 1554s [00:52:34.580] "release", "version")], collapse = " "), 1554s [00:52:34.580] hostname = base::Sys.info()[["nodename"]]) 1554s [00:52:34.580] info <- base::sprintf("%s: %s", base::names(info), 1554s [00:52:34.580] info) 1554s [00:52:34.580] info <- base::paste(info, collapse = "; ") 1554s [00:52:34.580] if (!has_future) { 1554s [00:52:34.580] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1554s [00:52:34.580] info) 1554s [00:52:34.580] } 1554s [00:52:34.580] else { 1554s [00:52:34.580] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1554s [00:52:34.580] info, version) 1554s [00:52:34.580] } 1554s [00:52:34.580] base::stop(msg) 1554s [00:52:34.580] } 1554s [00:52:34.580] }) 1554s [00:52:34.580] } 1554s [00:52:34.580] options(future.plan = NULL) 1554s [00:52:34.580] Sys.unsetenv("R_FUTURE_PLAN") 1554s [00:52:34.580] future::plan("default", .cleanup = FALSE, .init = FALSE) 1554s [00:52:34.580] } 1554s [00:52:34.580] ...future.workdir <- getwd() 1554s [00:52:34.580] } 1554s [00:52:34.580] ...future.oldOptions <- base::as.list(base::.Options) 1554s [00:52:34.580] ...future.oldEnvVars <- base::Sys.getenv() 1554s [00:52:34.580] } 1554s [00:52:34.580] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1554s [00:52:34.580] future.globals.maxSize = NULL, future.globals.method = NULL, 1554s [00:52:34.580] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1554s [00:52:34.580] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1554s [00:52:34.580] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1554s [00:52:34.580] future.stdout.windows.reencode = NULL, width = 80L) 1554s [00:52:34.580] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1554s [00:52:34.580] base::names(...future.oldOptions)) 1554s [00:52:34.580] } 1554s [00:52:34.580] if (FALSE) { 1554s [00:52:34.580] } 1554s [00:52:34.580] else { 1554s [00:52:34.580] if (TRUE) { 1554s [00:52:34.580] ...future.stdout <- base::rawConnection(base::raw(0L), 1554s [00:52:34.580] open = "w") 1554s [00:52:34.580] } 1554s [00:52:34.580] else { 1554s [00:52:34.580] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1554s [00:52:34.580] windows = "NUL", "/dev/null"), open = "w") 1554s [00:52:34.580] } 1554s [00:52:34.580] base::sink(...future.stdout, type = "output", split = FALSE) 1554s [00:52:34.580] base::on.exit(if (!base::is.null(...future.stdout)) { 1554s [00:52:34.580] base::sink(type = "output", split = FALSE) 1554s [00:52:34.580] base::close(...future.stdout) 1554s [00:52:34.580] }, add = TRUE) 1554s [00:52:34.580] } 1554s [00:52:34.580] ...future.frame <- base::sys.nframe() 1554s [00:52:34.580] ...future.conditions <- base::list() 1554s [00:52:34.580] ...future.rng <- base::globalenv()$.Random.seed 1554s [00:52:34.580] if (FALSE) { 1554s [00:52:34.580] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1554s [00:52:34.580] "...future.value", "...future.globalenv.names", ".Random.seed") 1554s [00:52:34.580] } 1554s [00:52:34.580] ...future.result <- base::tryCatch({ 1554s [00:52:34.580] base::withCallingHandlers({ 1554s [00:52:34.580] ...future.value <- base::withVisible(base::local({ 1554s [00:52:34.580] do.call(function(...) { 1554s [00:52:34.580] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1554s [00:52:34.580] if (!identical(...future.globals.maxSize.org, 1554s [00:52:34.580] ...future.globals.maxSize)) { 1554s [00:52:34.580] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1554s [00:52:34.580] on.exit(options(oopts), add = TRUE) 1554s [00:52:34.580] } 1554s [00:52:34.580] { 1554s [00:52:34.580] lapply(seq_along(...future.elements_ii), 1554s [00:52:34.580] FUN = function(jj) { 1554s [00:52:34.580] ...future.X_jj <- ...future.elements_ii[[jj]] 1554s [00:52:34.580] ...future.FUN(...future.X_jj, ...) 1554s [00:52:34.580] }) 1554s [00:52:34.580] } 1554s [00:52:34.580] }, args = future.call.arguments) 1554s [00:52:34.580] })) 1554s [00:52:34.580] future::FutureResult(value = ...future.value$value, 1554s [00:52:34.580] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1554s [00:52:34.580] ...future.rng), globalenv = if (FALSE) 1554s [00:52:34.580] list(added = base::setdiff(base::names(base::.GlobalEnv), 1554s [00:52:34.580] ...future.globalenv.names)) 1554s [00:52:34.580] else NULL, started = ...future.startTime, version = "1.8") 1554s [00:52:34.580] }, condition = base::local({ 1554s [00:52:34.580] c <- base::c 1554s [00:52:34.580] inherits <- base::inherits 1554s [00:52:34.580] invokeRestart <- base::invokeRestart 1554s [00:52:34.580] length <- base::length 1554s [00:52:34.580] list <- base::list 1554s [00:52:34.580] seq.int <- base::seq.int 1554s [00:52:34.580] signalCondition <- base::signalCondition 1554s [00:52:34.580] sys.calls <- base::sys.calls 1554s [00:52:34.580] `[[` <- base::`[[` 1554s [00:52:34.580] `+` <- base::`+` 1554s [00:52:34.580] `<<-` <- base::`<<-` 1554s [00:52:34.580] sysCalls <- function(calls = sys.calls(), from = 1L) { 1554s [00:52:34.580] calls[seq.int(from = from + 12L, to = length(calls) - 1554s [00:52:34.580] 3L)] 1554s [00:52:34.580] } 1554s [00:52:34.580] function(cond) { 1554s [00:52:34.580] is_error <- inherits(cond, "error") 1554s [00:52:34.580] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1554s [00:52:34.580] NULL) 1554s [00:52:34.580] if (is_error) { 1554s [00:52:34.580] sessionInformation <- function() { 1554s [00:52:34.580] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1554s [00:52:34.580] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1554s [00:52:34.580] search = base::search(), system = base::Sys.info()) 1554s [00:52:34.580] } 1554s [00:52:34.580] ...future.conditions[[length(...future.conditions) + 1554s [00:52:34.580] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1554s [00:52:34.580] cond$call), session = sessionInformation(), 1554s [00:52:34.580] timestamp = base::Sys.time(), signaled = 0L) 1554s [00:52:34.580] signalCondition(cond) 1554s [00:52:34.580] } 1554s [00:52:34.580] else if (!ignore && TRUE && inherits(cond, c("condition", 1554s [00:52:34.580] "immediateCondition"))) { 1554s [00:52:34.580] signal <- TRUE && inherits(cond, "immediateCondition") 1554s [00:52:34.580] ...future.conditions[[length(...future.conditions) + 1554s [00:52:34.580] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1554s [00:52:34.580] if (TRUE && !signal) { 1554s [00:52:34.580] muffleCondition <- function (cond, pattern = "^muffle") 1554s [00:52:34.580] { 1554s [00:52:34.580] inherits <- base::inherits 1554s [00:52:34.580] invokeRestart <- base::invokeRestart 1554s [00:52:34.580] is.null <- base::is.null 1554s [00:52:34.580] muffled <- FALSE 1554s [00:52:34.580] if (inherits(cond, "message")) { 1554s [00:52:34.580] muffled <- grepl(pattern, "muffleMessage") 1554s [00:52:34.580] if (muffled) 1554s [00:52:34.580] invokeRestart("muffleMessage") 1554s [00:52:34.580] } 1554s [00:52:34.580] else if (inherits(cond, "warning")) { 1554s [00:52:34.580] muffled <- grepl(pattern, "muffleWarning") 1554s [00:52:34.580] if (muffled) 1554s [00:52:34.580] invokeRestart("muffleWarning") 1554s [00:52:34.580] } 1554s [00:52:34.580] else if (inherits(cond, "condition")) { 1554s [00:52:34.580] if (!is.null(pattern)) { 1554s [00:52:34.580] computeRestarts <- base::computeRestarts 1554s [00:52:34.580] grepl <- base::grepl 1554s [00:52:34.580] restarts <- computeRestarts(cond) 1554s [00:52:34.580] for (restart in restarts) { 1554s [00:52:34.580] name <- restart$name 1554s [00:52:34.580] if (is.null(name)) 1554s [00:52:34.580] next 1554s [00:52:34.580] if (!grepl(pattern, name)) 1554s [00:52:34.580] next 1554s [00:52:34.580] invokeRestart(restart) 1554s [00:52:34.580] muffled <- TRUE 1554s [00:52:34.580] break 1554s [00:52:34.580] } 1554s [00:52:34.580] } 1554s [00:52:34.580] } 1554s [00:52:34.580] invisible(muffled) 1554s [00:52:34.580] } 1554s [00:52:34.580] muffleCondition(cond, pattern = "^muffle") 1554s [00:52:34.580] } 1554s [00:52:34.580] } 1554s [00:52:34.580] else { 1554s [00:52:34.580] if (TRUE) { 1554s [00:52:34.580] muffleCondition <- function (cond, pattern = "^muffle") 1554s [00:52:34.580] { 1554s [00:52:34.580] inherits <- base::inherits 1554s [00:52:34.580] invokeRestart <- base::invokeRestart 1554s [00:52:34.580] is.null <- base::is.null 1554s [00:52:34.580] muffled <- FALSE 1554s [00:52:34.580] if (inherits(cond, "message")) { 1554s [00:52:34.580] muffled <- grepl(pattern, "muffleMessage") 1554s [00:52:34.580] if (muffled) 1554s [00:52:34.580] invokeRestart("muffleMessage") 1554s [00:52:34.580] } 1554s [00:52:34.580] else if (inherits(cond, "warning")) { 1554s [00:52:34.580] muffled <- grepl(pattern, "muffleWarning") 1554s [00:52:34.580] if (muffled) 1554s [00:52:34.580] invokeRestart("muffleWarning") 1554s [00:52:34.580] } 1554s [00:52:34.580] else if (inherits(cond, "condition")) { 1554s [00:52:34.580] if (!is.null(pattern)) { 1554s [00:52:34.580] computeRestarts <- base::computeRestarts 1554s [00:52:34.580] grepl <- base::grepl 1554s [00:52:34.580] restarts <- computeRestarts(cond) 1554s [00:52:34.580] for (restart in restarts) { 1554s [00:52:34.580] name <- restart$name 1554s [00:52:34.580] if (is.null(name)) 1554s [00:52:34.580] next 1554s [00:52:34.580] if (!grepl(pattern, name)) 1554s [00:52:34.580] next 1554s [00:52:34.580] invokeRestart(restart) 1554s [00:52:34.580] muffled <- TRUE 1554s [00:52:34.580] break 1554s [00:52:34.580] } 1554s [00:52:34.580] } 1554s [00:52:34.580] } 1554s [00:52:34.580] invisible(muffled) 1554s [00:52:34.580] } 1554s [00:52:34.580] muffleCondition(cond, pattern = "^muffle") 1554s [00:52:34.580] } 1554s [00:52:34.580] } 1554s [00:52:34.580] } 1554s [00:52:34.580] })) 1554s [00:52:34.580] }, error = function(ex) { 1554s [00:52:34.580] base::structure(base::list(value = NULL, visible = NULL, 1554s [00:52:34.580] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1554s [00:52:34.580] ...future.rng), started = ...future.startTime, 1554s [00:52:34.580] finished = Sys.time(), session_uuid = NA_character_, 1554s [00:52:34.580] version = "1.8"), class = "FutureResult") 1554s [00:52:34.580] }, finally = { 1554s [00:52:34.580] if (!identical(...future.workdir, getwd())) 1554s [00:52:34.580] setwd(...future.workdir) 1554s [00:52:34.580] { 1554s [00:52:34.580] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1554s [00:52:34.580] ...future.oldOptions$nwarnings <- NULL 1554s [00:52:34.580] } 1554s [00:52:34.580] base::options(...future.oldOptions) 1554s [00:52:34.580] if (.Platform$OS.type == "windows") { 1554s [00:52:34.580] old_names <- names(...future.oldEnvVars) 1554s [00:52:34.580] envs <- base::Sys.getenv() 1554s [00:52:34.580] names <- names(envs) 1554s [00:52:34.580] common <- intersect(names, old_names) 1554s [00:52:34.580] added <- setdiff(names, old_names) 1554s [00:52:34.580] removed <- setdiff(old_names, names) 1554s [00:52:34.580] changed <- common[...future.oldEnvVars[common] != 1554s [00:52:34.580] envs[common]] 1554s [00:52:34.580] NAMES <- toupper(changed) 1554s [00:52:34.580] args <- list() 1554s [00:52:34.580] for (kk in seq_along(NAMES)) { 1554s [00:52:34.580] name <- changed[[kk]] 1554s [00:52:34.580] NAME <- NAMES[[kk]] 1554s [00:52:34.580] if (name != NAME && is.element(NAME, old_names)) 1554s [00:52:34.580] next 1554s [00:52:34.580] args[[name]] <- ...future.oldEnvVars[[name]] 1554s [00:52:34.580] } 1554s [00:52:34.580] NAMES <- toupper(added) 1554s [00:52:34.580] for (kk in seq_along(NAMES)) { 1554s [00:52:34.580] name <- added[[kk]] 1554s [00:52:34.580] NAME <- NAMES[[kk]] 1554s [00:52:34.580] if (name != NAME && is.element(NAME, old_names)) 1554s [00:52:34.580] next 1554s [00:52:34.580] args[[name]] <- "" 1554s [00:52:34.580] } 1554s [00:52:34.580] NAMES <- toupper(removed) 1554s [00:52:34.580] for (kk in seq_along(NAMES)) { 1554s [00:52:34.580] name <- removed[[kk]] 1554s [00:52:34.580] NAME <- NAMES[[kk]] 1554s [00:52:34.580] if (name != NAME && is.element(NAME, old_names)) 1554s [00:52:34.580] next 1554s [00:52:34.580] args[[name]] <- ...future.oldEnvVars[[name]] 1554s [00:52:34.580] } 1554s [00:52:34.580] if (length(args) > 0) 1554s [00:52:34.580] base::do.call(base::Sys.setenv, args = args) 1554s [00:52:34.580] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1554s [00:52:34.580] } 1554s [00:52:34.580] else { 1554s [00:52:34.580] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1554s [00:52:34.580] } 1554s [00:52:34.580] { 1554s [00:52:34.580] if (base::length(...future.futureOptionsAdded) > 1554s [00:52:34.580] 0L) { 1554s [00:52:34.580] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1554s [00:52:34.580] base::names(opts) <- ...future.futureOptionsAdded 1554s [00:52:34.580] base::options(opts) 1554s [00:52:34.580] } 1554s [00:52:34.580] { 1554s [00:52:34.580] { 1554s [00:52:34.580] NULL 1554s [00:52:34.580] RNGkind("Mersenne-Twister") 1554s [00:52:34.580] base::rm(list = ".Random.seed", envir = base::globalenv(), 1554s [00:52:34.580] inherits = FALSE) 1554s [00:52:34.580] } 1554s [00:52:34.580] options(future.plan = NULL) 1554s [00:52:34.580] if (is.na(NA_character_)) 1554s [00:52:34.580] Sys.unsetenv("R_FUTURE_PLAN") 1554s [00:52:34.580] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1554s [00:52:34.580] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1554s [00:52:34.580] envir = parent.frame()) 1554s [00:52:34.580] { 1554s [00:52:34.580] default_workers <- missing(workers) 1554s [00:52:34.580] if (is.function(workers)) 1554s [00:52:34.580] workers <- workers() 1554s [00:52:34.580] workers <- structure(as.integer(workers), 1554s [00:52:34.580] class = class(workers)) 1554s [00:52:34.580] stop_if_not(is.finite(workers), workers >= 1554s [00:52:34.580] 1L) 1554s [00:52:34.580] if ((workers == 1L && !inherits(workers, 1554s [00:52:34.580] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1554s [00:52:34.580] if (default_workers) 1554s [00:52:34.580] supportsMulticore(warn = TRUE) 1554s [00:52:34.580] return(sequential(..., envir = envir)) 1554s [00:52:34.580] } 1554s [00:52:34.580] oopts <- options(mc.cores = workers) 1554s [00:52:34.580] on.exit(options(oopts)) 1554s [00:52:34.580] future <- MulticoreFuture(..., workers = workers, 1554s [00:52:34.580] envir = envir) 1554s [00:52:34.580] if (!future$lazy) 1554s [00:52:34.580] future <- run(future) 1554s [00:52:34.580] invisible(future) 1554s [00:52:34.580] }), .cleanup = FALSE, .init = FALSE) 1554s [00:52:34.580] } 1554s [00:52:34.580] } 1554s [00:52:34.580] } 1554s [00:52:34.580] }) 1554s [00:52:34.580] if (TRUE) { 1554s [00:52:34.580] base::sink(type = "output", split = FALSE) 1554s [00:52:34.580] if (TRUE) { 1554s [00:52:34.580] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1554s [00:52:34.580] } 1554s [00:52:34.580] else { 1554s [00:52:34.580] ...future.result["stdout"] <- base::list(NULL) 1554s [00:52:34.580] } 1554s [00:52:34.580] base::close(...future.stdout) 1554s [00:52:34.580] ...future.stdout <- NULL 1554s [00:52:34.580] } 1554s [00:52:34.580] ...future.result$conditions <- ...future.conditions 1554s [00:52:34.580] ...future.result$finished <- base::Sys.time() 1554s [00:52:34.580] ...future.result 1554s [00:52:34.580] } 1554s [00:52:34.584] assign_globals() ... 1554s [00:52:34.584] List of 5 1554s [00:52:34.584] $ ...future.FUN :function (x) 1554s [00:52:34.584] $ future.call.arguments : list() 1554s [00:52:34.584] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1554s [00:52:34.584] $ ...future.elements_ii :List of 3 1554s [00:52:34.584] ..$ a: num 1 1554s [00:52:34.584] ..$ b: num 2 1554s [00:52:34.584] ..$ c: num 3 1554s [00:52:34.584] $ ...future.seeds_ii : NULL 1554s [00:52:34.584] $ ...future.globals.maxSize: NULL 1554s [00:52:34.584] - attr(*, "where")=List of 5 1554s [00:52:34.584] ..$ ...future.FUN : 1554s [00:52:34.584] ..$ future.call.arguments : 1554s [00:52:34.584] ..$ ...future.elements_ii : 1554s [00:52:34.584] ..$ ...future.seeds_ii : 1554s [00:52:34.584] ..$ ...future.globals.maxSize: 1554s [00:52:34.584] - attr(*, "resolved")= logi FALSE 1554s [00:52:34.584] - attr(*, "total_size")= num 56 1554s [00:52:34.584] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1554s [00:52:34.584] - attr(*, "already-done")= logi TRUE 1554s [00:52:34.594] - copied ‘...future.FUN’ to environment 1554s [00:52:34.594] - copied ‘future.call.arguments’ to environment 1554s [00:52:34.594] - copied ‘...future.elements_ii’ to environment 1554s [00:52:34.594] - copied ‘...future.seeds_ii’ to environment 1554s [00:52:34.594] - copied ‘...future.globals.maxSize’ to environment 1554s [00:52:34.595] assign_globals() ... done 1554s [00:52:34.595] plan(): Setting new future strategy stack: 1554s [00:52:34.595] List of future strategies: 1554s [00:52:34.595] 1. sequential: 1554s [00:52:34.595] - args: function (..., envir = parent.frame()) 1554s [00:52:34.595] - tweaked: FALSE 1554s [00:52:34.595] - call: NULL 1554s [00:52:34.596] plan(): nbrOfWorkers() = 1 1554s [00:52:34.596] plan(): Setting new future strategy stack: 1554s [00:52:34.596] List of future strategies: 1554s [00:52:34.596] 1. multicore: 1554s [00:52:34.596] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1554s [00:52:34.596] - tweaked: FALSE 1554s [00:52:34.596] - call: plan(strategy) 1554s [00:52:34.601] plan(): nbrOfWorkers() = 1 1554s [00:52:34.602] SequentialFuture started (and completed) 1554s [00:52:34.602] - Launch lazy future ... done 1554s [00:52:34.603] run() for ‘SequentialFuture’ ... done 1554s [00:52:34.603] Created future: 1554s [00:52:34.603] SequentialFuture: 1554s [00:52:34.603] Label: ‘future_lapply-1’ 1554s [00:52:34.603] Expression: 1554s [00:52:34.603] { 1554s [00:52:34.603] do.call(function(...) { 1554s [00:52:34.603] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1554s [00:52:34.603] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1554s [00:52:34.603] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1554s [00:52:34.603] on.exit(options(oopts), add = TRUE) 1554s [00:52:34.603] } 1554s [00:52:34.603] { 1554s [00:52:34.603] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1554s [00:52:34.603] ...future.X_jj <- ...future.elements_ii[[jj]] 1554s [00:52:34.603] ...future.FUN(...future.X_jj, ...) 1554s [00:52:34.603] }) 1554s [00:52:34.603] } 1554s [00:52:34.603] }, args = future.call.arguments) 1554s [00:52:34.603] } 1554s [00:52:34.603] Lazy evaluation: FALSE 1554s [00:52:34.603] Asynchronous evaluation: FALSE 1554s [00:52:34.603] Local evaluation: TRUE 1554s [00:52:34.603] Environment: R_GlobalEnv 1554s [00:52:34.603] Capture standard output: TRUE 1554s [00:52:34.603] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1554s [00:52:34.603] Globals: 5 objects totaling 224 bytes (function ‘...future.FUN’ of 56 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1554s [00:52:34.603] Packages: 1554s [00:52:34.603] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1554s [00:52:34.603] Resolved: TRUE 1554s [00:52:34.603] Value: 168 bytes of class ‘list’ 1554s [00:52:34.603] Early signaling: FALSE 1554s [00:52:34.603] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1554s [00:52:34.603] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1554s [00:52:34.605] Chunk #1 of 1 ... DONE 1554s [00:52:34.606] Launching 1 futures (chunks) ... DONE 1554s [00:52:34.606] Resolving 1 futures (chunks) ... 1554s [00:52:34.606] resolve() on list ... 1554s [00:52:34.606] recursive: 0 1554s [00:52:34.606] length: 1 1554s [00:52:34.606] 1554s [00:52:34.607] resolved() for ‘SequentialFuture’ ... 1554s [00:52:34.607] - state: ‘finished’ 1554s [00:52:34.607] - run: TRUE 1554s [00:52:34.607] - result: ‘FutureResult’ 1554s [00:52:34.607] resolved() for ‘SequentialFuture’ ... done 1554s [00:52:34.607] Future #1 1554s [00:52:34.608] signalConditionsASAP(SequentialFuture, pos=1) ... 1554s [00:52:34.608] - nx: 1 1554s [00:52:34.608] - relay: TRUE 1554s [00:52:34.608] - stdout: TRUE 1554s [00:52:34.608] - signal: TRUE 1554s [00:52:34.608] - resignal: FALSE 1554s [00:52:34.608] - force: TRUE 1554s [00:52:34.609] - relayed: [n=1] FALSE 1554s [00:52:34.609] - queued futures: [n=1] FALSE 1554s [00:52:34.609] - until=1 1554s [00:52:34.609] - relaying element #1 1554s [00:52:34.609] - relayed: [n=1] TRUE 1554s [00:52:34.609] - queued futures: [n=1] TRUE 1554s [00:52:34.610] signalConditionsASAP(SequentialFuture, pos=1) ... done 1554s [00:52:34.610] length: 0 (resolved future 1) 1554s [00:52:34.610] Relaying remaining futures 1554s [00:52:34.610] signalConditionsASAP(NULL, pos=0) ... 1554s [00:52:34.611] - nx: 1 1554s [00:52:34.611] - relay: TRUE 1554s [00:52:34.611] - stdout: TRUE 1554s [00:52:34.611] - signal: TRUE 1554s [00:52:34.611] - resignal: FALSE 1554s [00:52:34.612] - force: TRUE 1554s [00:52:34.612] - relayed: [n=1] TRUE 1554s [00:52:34.612] - queued futures: [n=1] TRUE 1554s - flush all 1554s [00:52:34.613] - relayed: [n=1] TRUE 1554s [00:52:34.613] - queued futures: [n=1] TRUE 1554s [00:52:34.613] signalConditionsASAP(NULL, pos=0) ... done 1554s [00:52:34.613] resolve() on list ... DONE 1554s [00:52:34.614] - Number of value chunks collected: 1 1554s [00:52:34.614] Resolving 1 futures (chunks) ... DONE 1554s [00:52:34.614] Reducing values from 1 chunks ... 1554s [00:52:34.614] - Number of values collected after concatenation: 3 1554s [00:52:34.615] - Number of values expected: 3 1554s [00:52:34.615] Reducing values from 1 chunks ... DONE 1554s [00:52:34.615] future_lapply() ... DONE 1554s - future_lapply(x, ...) where x[[i]] subsets via S3 method ... 1554s [00:52:34.615] future_lapply() ... 1554s [00:52:34.621] Number of chunks: 1 1554s [00:52:34.621] getGlobalsAndPackagesXApply() ... 1554s [00:52:34.621] - future.globals: TRUE 1554s [00:52:34.621] getGlobalsAndPackages() ... 1554s [00:52:34.621] Searching for globals... 1554s [00:52:34.623] - globals found: [1] ‘FUN’ 1554s [00:52:34.623] Searching for globals ... DONE 1554s [00:52:34.623] Resolving globals: FALSE 1554s [00:52:34.623] The total size of the 1 globals is 848 bytes (848 bytes) 1554s [00:52:34.624] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1554s [00:52:34.624] - globals: [1] ‘FUN’ 1554s [00:52:34.625] 1554s [00:52:34.625] getGlobalsAndPackages() ... DONE 1554s [00:52:34.625] - globals found/used: [n=1] ‘FUN’ 1554s [00:52:34.625] - needed namespaces: [n=0] 1554s [00:52:34.625] Finding globals ... DONE 1554s [00:52:34.626] - use_args: TRUE 1554s [00:52:34.626] - Getting '...' globals ... 1554s [00:52:34.626] resolve() on list ... 1554s [00:52:34.627] recursive: 0 1554s [00:52:34.627] length: 1 1554s [00:52:34.627] elements: ‘...’ 1554s [00:52:34.627] length: 0 (resolved future 1) 1554s [00:52:34.627] resolve() on list ... DONE 1554s [00:52:34.627] - '...' content: [n=0] 1554s [00:52:34.628] List of 1 1554s [00:52:34.628] $ ...: list() 1554s [00:52:34.628] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1554s [00:52:34.628] - attr(*, "where")=List of 1 1554s [00:52:34.628] ..$ ...: 1554s [00:52:34.628] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1554s [00:52:34.628] - attr(*, "resolved")= logi TRUE 1554s [00:52:34.628] - attr(*, "total_size")= num NA 1554s [00:52:34.632] - Getting '...' globals ... DONE 1554s [00:52:34.632] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1554s [00:52:34.633] List of 2 1554s [00:52:34.633] $ ...future.FUN:function (x) 1554s [00:52:34.633] $ ... : list() 1554s [00:52:34.633] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1554s [00:52:34.633] - attr(*, "where")=List of 2 1554s [00:52:34.633] ..$ ...future.FUN: 1554s [00:52:34.633] ..$ ... : 1554s [00:52:34.633] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1554s [00:52:34.633] - attr(*, "resolved")= logi FALSE 1554s [00:52:34.633] - attr(*, "total_size")= num 848 1554s [00:52:34.636] Packages to be attached in all futures: [n=0] 1554s [00:52:34.636] getGlobalsAndPackagesXApply() ... DONE 1554s [00:52:34.637] Number of futures (= number of chunks): 1 1554s [00:52:34.637] Launching 1 futures (chunks) ... 1554s [00:52:34.637] Chunk #1 of 1 ... 1554s [00:52:34.637] - Finding globals in 'X' for chunk #1 ... 1554s [00:52:34.637] getGlobalsAndPackages() ... 1554s [00:52:34.637] Searching for globals... 1554s [00:52:34.638] 1554s [00:52:34.638] Searching for globals ... DONE 1554s [00:52:34.638] - globals: [0] 1554s [00:52:34.638] getGlobalsAndPackages() ... DONE 1554s [00:52:34.638] + additional globals found: [n=0] 1554s [00:52:34.639] + additional namespaces needed: [n=0] 1554s [00:52:34.639] - Finding globals in 'X' for chunk #1 ... DONE 1554s [00:52:34.639] - seeds: 1554s [00:52:34.639] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1554s [00:52:34.639] getGlobalsAndPackages() ... 1554s [00:52:34.639] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1554s [00:52:34.640] Resolving globals: FALSE 1554s [00:52:34.640] Tweak future expression to call with '...' arguments ... 1554s [00:52:34.640] { 1554s [00:52:34.640] do.call(function(...) { 1554s [00:52:34.640] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1554s [00:52:34.640] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1554s [00:52:34.640] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1554s [00:52:34.640] on.exit(options(oopts), add = TRUE) 1554s [00:52:34.640] } 1554s [00:52:34.640] { 1554s [00:52:34.640] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1554s [00:52:34.640] ...future.X_jj <- ...future.elements_ii[[jj]] 1554s [00:52:34.640] ...future.FUN(...future.X_jj, ...) 1554s [00:52:34.640] }) 1554s [00:52:34.640] } 1554s [00:52:34.640] }, args = future.call.arguments) 1554s [00:52:34.640] } 1554s [00:52:34.641] Tweak future expression to call with '...' arguments ... DONE 1554s [00:52:34.641] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1554s [00:52:34.641] 1554s [00:52:34.642] getGlobalsAndPackages() ... DONE 1554s [00:52:34.642] run() for ‘Future’ ... 1554s [00:52:34.642] - state: ‘created’ 1554s [00:52:34.642] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1554s [00:52:34.647] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1554s [00:52:34.647] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1554s [00:52:34.647] - Field: ‘label’ 1554s [00:52:34.647] - Field: ‘local’ 1554s [00:52:34.647] - Field: ‘owner’ 1554s [00:52:34.648] - Field: ‘envir’ 1554s [00:52:34.648] - Field: ‘packages’ 1554s [00:52:34.648] - Field: ‘gc’ 1554s [00:52:34.648] - Field: ‘conditions’ 1554s [00:52:34.648] - Field: ‘expr’ 1554s [00:52:34.649] - Field: ‘uuid’ 1554s [00:52:34.649] - Field: ‘seed’ 1554s [00:52:34.649] - Field: ‘version’ 1554s [00:52:34.650] - Field: ‘result’ 1554s [00:52:34.650] - Field: ‘asynchronous’ 1554s [00:52:34.650] - Field: ‘calls’ 1554s [00:52:34.650] - Field: ‘globals’ 1554s [00:52:34.650] - Field: ‘stdout’ 1554s [00:52:34.651] - Field: ‘earlySignal’ 1554s [00:52:34.651] - Field: ‘lazy’ 1554s [00:52:34.651] - Field: ‘state’ 1554s [00:52:34.652] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1554s [00:52:34.652] - Launch lazy future ... 1554s [00:52:34.652] Packages needed by the future expression (n = 0): 1554s [00:52:34.653] Packages needed by future strategies (n = 0): 1554s [00:52:34.653] { 1554s [00:52:34.653] { 1554s [00:52:34.653] { 1554s [00:52:34.653] ...future.startTime <- base::Sys.time() 1554s [00:52:34.653] { 1554s [00:52:34.653] { 1554s [00:52:34.653] { 1554s [00:52:34.653] base::local({ 1554s [00:52:34.653] has_future <- base::requireNamespace("future", 1554s [00:52:34.653] quietly = TRUE) 1554s [00:52:34.653] if (has_future) { 1554s [00:52:34.653] ns <- base::getNamespace("future") 1554s [00:52:34.653] version <- ns[[".package"]][["version"]] 1554s [00:52:34.653] if (is.null(version)) 1554s [00:52:34.653] version <- utils::packageVersion("future") 1554s [00:52:34.653] } 1554s [00:52:34.653] else { 1554s [00:52:34.653] version <- NULL 1554s [00:52:34.653] } 1554s [00:52:34.653] if (!has_future || version < "1.8.0") { 1554s [00:52:34.653] info <- base::c(r_version = base::gsub("R version ", 1554s [00:52:34.653] "", base::R.version$version.string), 1554s [00:52:34.653] platform = base::sprintf("%s (%s-bit)", 1554s [00:52:34.653] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1554s [00:52:34.653] os = base::paste(base::Sys.info()[base::c("sysname", 1554s [00:52:34.653] "release", "version")], collapse = " "), 1554s [00:52:34.653] hostname = base::Sys.info()[["nodename"]]) 1554s [00:52:34.653] info <- base::sprintf("%s: %s", base::names(info), 1554s [00:52:34.653] info) 1554s [00:52:34.653] info <- base::paste(info, collapse = "; ") 1554s [00:52:34.653] if (!has_future) { 1554s [00:52:34.653] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1554s [00:52:34.653] info) 1554s [00:52:34.653] } 1554s [00:52:34.653] else { 1554s [00:52:34.653] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1554s [00:52:34.653] info, version) 1554s [00:52:34.653] } 1554s [00:52:34.653] base::stop(msg) 1554s [00:52:34.653] } 1554s [00:52:34.653] }) 1554s [00:52:34.653] } 1554s [00:52:34.653] options(future.plan = NULL) 1554s [00:52:34.653] Sys.unsetenv("R_FUTURE_PLAN") 1554s [00:52:34.653] future::plan("default", .cleanup = FALSE, .init = FALSE) 1554s [00:52:34.653] } 1554s [00:52:34.653] ...future.workdir <- getwd() 1554s [00:52:34.653] } 1554s [00:52:34.653] ...future.oldOptions <- base::as.list(base::.Options) 1554s [00:52:34.653] ...future.oldEnvVars <- base::Sys.getenv() 1554s [00:52:34.653] } 1554s [00:52:34.653] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1554s [00:52:34.653] future.globals.maxSize = NULL, future.globals.method = NULL, 1554s [00:52:34.653] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1554s [00:52:34.653] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1554s [00:52:34.653] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1554s [00:52:34.653] future.stdout.windows.reencode = NULL, width = 80L) 1554s [00:52:34.653] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1554s [00:52:34.653] base::names(...future.oldOptions)) 1554s [00:52:34.653] } 1554s [00:52:34.653] if (FALSE) { 1554s [00:52:34.653] } 1554s [00:52:34.653] else { 1554s [00:52:34.653] if (TRUE) { 1554s [00:52:34.653] ...future.stdout <- base::rawConnection(base::raw(0L), 1554s [00:52:34.653] open = "w") 1554s [00:52:34.653] } 1554s [00:52:34.653] else { 1554s [00:52:34.653] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1554s [00:52:34.653] windows = "NUL", "/dev/null"), open = "w") 1554s [00:52:34.653] } 1554s [00:52:34.653] base::sink(...future.stdout, type = "output", split = FALSE) 1554s [00:52:34.653] base::on.exit(if (!base::is.null(...future.stdout)) { 1554s [00:52:34.653] base::sink(type = "output", split = FALSE) 1554s [00:52:34.653] base::close(...future.stdout) 1554s [00:52:34.653] }, add = TRUE) 1554s [00:52:34.653] } 1554s [00:52:34.653] ...future.frame <- base::sys.nframe() 1554s [00:52:34.653] ...future.conditions <- base::list() 1554s [00:52:34.653] ...future.rng <- base::globalenv()$.Random.seed 1554s [00:52:34.653] if (FALSE) { 1554s [00:52:34.653] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1554s [00:52:34.653] "...future.value", "...future.globalenv.names", ".Random.seed") 1554s [00:52:34.653] } 1554s [00:52:34.653] ...future.result <- base::tryCatch({ 1554s [00:52:34.653] base::withCallingHandlers({ 1554s [00:52:34.653] ...future.value <- base::withVisible(base::local({ 1554s [00:52:34.653] do.call(function(...) { 1554s [00:52:34.653] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1554s [00:52:34.653] if (!identical(...future.globals.maxSize.org, 1554s [00:52:34.653] ...future.globals.maxSize)) { 1554s [00:52:34.653] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1554s [00:52:34.653] on.exit(options(oopts), add = TRUE) 1554s [00:52:34.653] } 1554s [00:52:34.653] { 1554s [00:52:34.653] lapply(seq_along(...future.elements_ii), 1554s [00:52:34.653] FUN = function(jj) { 1554s [00:52:34.653] ...future.X_jj <- ...future.elements_ii[[jj]] 1554s [00:52:34.653] ...future.FUN(...future.X_jj, ...) 1554s [00:52:34.653] }) 1554s [00:52:34.653] } 1554s [00:52:34.653] }, args = future.call.arguments) 1554s [00:52:34.653] })) 1554s [00:52:34.653] future::FutureResult(value = ...future.value$value, 1554s [00:52:34.653] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1554s [00:52:34.653] ...future.rng), globalenv = if (FALSE) 1554s [00:52:34.653] list(added = base::setdiff(base::names(base::.GlobalEnv), 1554s [00:52:34.653] ...future.globalenv.names)) 1554s [00:52:34.653] else NULL, started = ...future.startTime, version = "1.8") 1554s [00:52:34.653] }, condition = base::local({ 1554s [00:52:34.653] c <- base::c 1554s [00:52:34.653] inherits <- base::inherits 1554s [00:52:34.653] invokeRestart <- base::invokeRestart 1554s [00:52:34.653] length <- base::length 1554s [00:52:34.653] list <- base::list 1554s [00:52:34.653] seq.int <- base::seq.int 1554s [00:52:34.653] signalCondition <- base::signalCondition 1554s [00:52:34.653] sys.calls <- base::sys.calls 1554s [00:52:34.653] `[[` <- base::`[[` 1554s [00:52:34.653] `+` <- base::`+` 1554s [00:52:34.653] `<<-` <- base::`<<-` 1554s [00:52:34.653] sysCalls <- function(calls = sys.calls(), from = 1L) { 1554s [00:52:34.653] calls[seq.int(from = from + 12L, to = length(calls) - 1554s [00:52:34.653] 3L)] 1554s [00:52:34.653] } 1554s [00:52:34.653] function(cond) { 1554s [00:52:34.653] is_error <- inherits(cond, "error") 1554s [00:52:34.653] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1554s [00:52:34.653] NULL) 1554s [00:52:34.653] if (is_error) { 1554s [00:52:34.653] sessionInformation <- function() { 1554s [00:52:34.653] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1554s [00:52:34.653] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1554s [00:52:34.653] search = base::search(), system = base::Sys.info()) 1554s [00:52:34.653] } 1554s [00:52:34.653] ...future.conditions[[length(...future.conditions) + 1554s [00:52:34.653] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1554s [00:52:34.653] cond$call), session = sessionInformation(), 1554s [00:52:34.653] timestamp = base::Sys.time(), signaled = 0L) 1554s [00:52:34.653] signalCondition(cond) 1554s [00:52:34.653] } 1554s [00:52:34.653] else if (!ignore && TRUE && inherits(cond, c("condition", 1554s [00:52:34.653] "immediateCondition"))) { 1554s [00:52:34.653] signal <- TRUE && inherits(cond, "immediateCondition") 1554s [00:52:34.653] ...future.conditions[[length(...future.conditions) + 1554s [00:52:34.653] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1554s [00:52:34.653] if (TRUE && !signal) { 1554s [00:52:34.653] muffleCondition <- function (cond, pattern = "^muffle") 1554s [00:52:34.653] { 1554s [00:52:34.653] inherits <- base::inherits 1554s [00:52:34.653] invokeRestart <- base::invokeRestart 1554s [00:52:34.653] is.null <- base::is.null 1554s [00:52:34.653] muffled <- FALSE 1554s [00:52:34.653] if (inherits(cond, "message")) { 1554s [00:52:34.653] muffled <- grepl(pattern, "muffleMessage") 1554s [00:52:34.653] if (muffled) 1554s [00:52:34.653] invokeRestart("muffleMessage") 1554s [00:52:34.653] } 1554s [00:52:34.653] else if (inherits(cond, "warning")) { 1554s [00:52:34.653] muffled <- grepl(pattern, "muffleWarning") 1554s [00:52:34.653] if (muffled) 1554s [00:52:34.653] invokeRestart("muffleWarning") 1554s [00:52:34.653] } 1554s [00:52:34.653] else if (inherits(cond, "condition")) { 1554s [00:52:34.653] if (!is.null(pattern)) { 1554s [00:52:34.653] computeRestarts <- base::computeRestarts 1554s [00:52:34.653] grepl <- base::grepl 1554s [00:52:34.653] restarts <- computeRestarts(cond) 1554s [00:52:34.653] for (restart in restarts) { 1554s [00:52:34.653] name <- restart$name 1554s [00:52:34.653] if (is.null(name)) 1554s [00:52:34.653] next 1554s [00:52:34.653] if (!grepl(pattern, name)) 1554s [00:52:34.653] next 1554s [00:52:34.653] invokeRestart(restart) 1554s [00:52:34.653] muffled <- TRUE 1554s [00:52:34.653] break 1554s [00:52:34.653] } 1554s [00:52:34.653] } 1554s [00:52:34.653] } 1554s [00:52:34.653] invisible(muffled) 1554s [00:52:34.653] } 1554s [00:52:34.653] muffleCondition(cond, pattern = "^muffle") 1554s [00:52:34.653] } 1554s [00:52:34.653] } 1554s [00:52:34.653] else { 1554s [00:52:34.653] if (TRUE) { 1554s [00:52:34.653] muffleCondition <- function (cond, pattern = "^muffle") 1554s [00:52:34.653] { 1554s [00:52:34.653] inherits <- base::inherits 1554s [00:52:34.653] invokeRestart <- base::invokeRestart 1554s [00:52:34.653] is.null <- base::is.null 1554s [00:52:34.653] muffled <- FALSE 1554s [00:52:34.653] if (inherits(cond, "message")) { 1554s [00:52:34.653] muffled <- grepl(pattern, "muffleMessage") 1554s [00:52:34.653] if (muffled) 1554s [00:52:34.653] invokeRestart("muffleMessage") 1554s [00:52:34.653] } 1554s [00:52:34.653] else if (inherits(cond, "warning")) { 1554s [00:52:34.653] muffled <- grepl(pattern, "muffleWarning") 1554s [00:52:34.653] if (muffled) 1554s [00:52:34.653] invokeRestart("muffleWarning") 1554s [00:52:34.653] } 1554s [00:52:34.653] else if (inherits(cond, "condition")) { 1554s [00:52:34.653] if (!is.null(pattern)) { 1554s [00:52:34.653] computeRestarts <- base::computeRestarts 1554s [00:52:34.653] grepl <- base::grepl 1554s [00:52:34.653] restarts <- computeRestarts(cond) 1554s [00:52:34.653] for (restart in restarts) { 1554s [00:52:34.653] name <- restart$name 1554s [00:52:34.653] if (is.null(name)) 1554s [00:52:34.653] next 1554s [00:52:34.653] if (!grepl(pattern, name)) 1554s [00:52:34.653] next 1554s [00:52:34.653] invokeRestart(restart) 1554s [00:52:34.653] muffled <- TRUE 1554s [00:52:34.653] break 1554s [00:52:34.653] } 1554s [00:52:34.653] } 1554s [00:52:34.653] } 1554s [00:52:34.653] invisible(muffled) 1554s [00:52:34.653] } 1554s [00:52:34.653] muffleCondition(cond, pattern = "^muffle") 1554s [00:52:34.653] } 1554s [00:52:34.653] } 1554s [00:52:34.653] } 1554s [00:52:34.653] })) 1554s [00:52:34.653] }, error = function(ex) { 1554s [00:52:34.653] base::structure(base::list(value = NULL, visible = NULL, 1554s [00:52:34.653] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1554s [00:52:34.653] ...future.rng), started = ...future.startTime, 1554s [00:52:34.653] finished = Sys.time(), session_uuid = NA_character_, 1554s [00:52:34.653] version = "1.8"), class = "FutureResult") 1554s [00:52:34.653] }, finally = { 1554s [00:52:34.653] if (!identical(...future.workdir, getwd())) 1554s [00:52:34.653] setwd(...future.workdir) 1554s [00:52:34.653] { 1554s [00:52:34.653] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1554s [00:52:34.653] ...future.oldOptions$nwarnings <- NULL 1554s [00:52:34.653] } 1554s [00:52:34.653] base::options(...future.oldOptions) 1554s [00:52:34.653] if (.Platform$OS.type == "windows") { 1554s [00:52:34.653] old_names <- names(...future.oldEnvVars) 1554s [00:52:34.653] envs <- base::Sys.getenv() 1554s [00:52:34.653] names <- names(envs) 1554s [00:52:34.653] common <- intersect(names, old_names) 1554s [00:52:34.653] added <- setdiff(names, old_names) 1554s [00:52:34.653] removed <- setdiff(old_names, names) 1554s [00:52:34.653] changed <- common[...future.oldEnvVars[common] != 1554s [00:52:34.653] envs[common]] 1554s [00:52:34.653] NAMES <- toupper(changed) 1554s [00:52:34.653] args <- list() 1554s [00:52:34.653] for (kk in seq_along(NAMES)) { 1554s [00:52:34.653] name <- changed[[kk]] 1554s [00:52:34.653] NAME <- NAMES[[kk]] 1554s [00:52:34.653] if (name != NAME && is.element(NAME, old_names)) 1554s [00:52:34.653] next 1554s [00:52:34.653] args[[name]] <- ...future.oldEnvVars[[name]] 1554s [00:52:34.653] } 1554s [00:52:34.653] NAMES <- toupper(added) 1554s [00:52:34.653] for (kk in seq_along(NAMES)) { 1554s [00:52:34.653] name <- added[[kk]] 1554s [00:52:34.653] NAME <- NAMES[[kk]] 1554s [00:52:34.653] if (name != NAME && is.element(NAME, old_names)) 1554s [00:52:34.653] next 1554s [00:52:34.653] args[[name]] <- "" 1554s [00:52:34.653] } 1554s [00:52:34.653] NAMES <- toupper(removed) 1554s [00:52:34.653] for (kk in seq_along(NAMES)) { 1554s [00:52:34.653] name <- removed[[kk]] 1554s [00:52:34.653] NAME <- NAMES[[kk]] 1554s [00:52:34.653] if (name != NAME && is.element(NAME, old_names)) 1554s [00:52:34.653] next 1554s [00:52:34.653] args[[name]] <- ...future.oldEnvVars[[name]] 1554s [00:52:34.653] } 1554s [00:52:34.653] if (length(args) > 0) 1554s [00:52:34.653] base::do.call(base::Sys.setenv, args = args) 1554s [00:52:34.653] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1554s [00:52:34.653] } 1554s [00:52:34.653] else { 1554s [00:52:34.653] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1554s [00:52:34.653] } 1554s [00:52:34.653] { 1554s [00:52:34.653] if (base::length(...future.futureOptionsAdded) > 1554s [00:52:34.653] 0L) { 1554s [00:52:34.653] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1554s [00:52:34.653] base::names(opts) <- ...future.futureOptionsAdded 1554s [00:52:34.653] base::options(opts) 1554s [00:52:34.653] } 1554s [00:52:34.653] { 1554s [00:52:34.653] { 1554s [00:52:34.653] NULL 1554s [00:52:34.653] RNGkind("Mersenne-Twister") 1554s [00:52:34.653] base::rm(list = ".Random.seed", envir = base::globalenv(), 1554s [00:52:34.653] inherits = FALSE) 1554s [00:52:34.653] } 1554s [00:52:34.653] options(future.plan = NULL) 1554s [00:52:34.653] if (is.na(NA_character_)) 1554s [00:52:34.653] Sys.unsetenv("R_FUTURE_PLAN") 1554s [00:52:34.653] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1554s [00:52:34.653] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1554s [00:52:34.653] envir = parent.frame()) 1554s [00:52:34.653] { 1554s [00:52:34.653] default_workers <- missing(workers) 1554s [00:52:34.653] if (is.function(workers)) 1554s [00:52:34.653] workers <- workers() 1554s [00:52:34.653] workers <- structure(as.integer(workers), 1554s [00:52:34.653] class = class(workers)) 1554s [00:52:34.653] stop_if_not(is.finite(workers), workers >= 1554s [00:52:34.653] 1L) 1554s [00:52:34.653] if ((workers == 1L && !inherits(workers, 1554s [00:52:34.653] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1554s [00:52:34.653] if (default_workers) 1554s [00:52:34.653] supportsMulticore(warn = TRUE) 1554s [00:52:34.653] return(sequential(..., envir = envir)) 1554s [00:52:34.653] } 1554s [00:52:34.653] oopts <- options(mc.cores = workers) 1554s [00:52:34.653] on.exit(options(oopts)) 1554s [00:52:34.653] future <- MulticoreFuture(..., workers = workers, 1554s [00:52:34.653] envir = envir) 1554s [00:52:34.653] if (!future$lazy) 1554s [00:52:34.653] future <- run(future) 1554s [00:52:34.653] invisible(future) 1554s [00:52:34.653] }), .cleanup = FALSE, .init = FALSE) 1554s [00:52:34.653] } 1554s [00:52:34.653] } 1554s [00:52:34.653] } 1554s [00:52:34.653] }) 1554s [00:52:34.653] if (TRUE) { 1554s [00:52:34.653] base::sink(type = "output", split = FALSE) 1554s [00:52:34.653] if (TRUE) { 1554s [00:52:34.653] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1554s [00:52:34.653] } 1554s [00:52:34.653] else { 1554s [00:52:34.653] ...future.result["stdout"] <- base::list(NULL) 1554s [00:52:34.653] } 1554s [00:52:34.653] base::close(...future.stdout) 1554s [00:52:34.653] ...future.stdout <- NULL 1554s [00:52:34.653] } 1554s [00:52:34.653] ...future.result$conditions <- ...future.conditions 1554s [00:52:34.653] ...future.result$finished <- base::Sys.time() 1554s [00:52:34.653] ...future.result 1554s [00:52:34.653] } 1554s [00:52:34.657] assign_globals() ... 1554s [00:52:34.657] List of 5 1554s [00:52:34.657] $ ...future.FUN :function (x) 1554s [00:52:34.657] $ future.call.arguments : list() 1554s [00:52:34.657] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1554s [00:52:34.657] $ ...future.elements_ii :List of 2 1554s [00:52:34.657] ..$ a: num 0 1554s [00:52:34.657] ..$ b: num 0 1554s [00:52:34.657] $ ...future.seeds_ii : NULL 1554s [00:52:34.657] $ ...future.globals.maxSize: NULL 1554s [00:52:34.657] - attr(*, "where")=List of 5 1554s [00:52:34.657] ..$ ...future.FUN : 1554s [00:52:34.657] ..$ future.call.arguments : 1554s [00:52:34.657] ..$ ...future.elements_ii : 1554s [00:52:34.657] ..$ ...future.seeds_ii : 1554s [00:52:34.657] ..$ ...future.globals.maxSize: 1554s [00:52:34.657] - attr(*, "resolved")= logi FALSE 1554s [00:52:34.657] - attr(*, "total_size")= num 848 1554s [00:52:34.657] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1554s [00:52:34.657] - attr(*, "already-done")= logi TRUE 1554s [00:52:34.665] - copied ‘...future.FUN’ to environment 1554s [00:52:34.665] - copied ‘future.call.arguments’ to environment 1554s [00:52:34.666] - copied ‘...future.elements_ii’ to environment 1554s [00:52:34.666] - copied ‘...future.seeds_ii’ to environment 1554s [00:52:34.666] - copied ‘...future.globals.maxSize’ to environment 1554s [00:52:34.666] assign_globals() ... done 1554s [00:52:34.666] plan(): Setting new future strategy stack: 1554s [00:52:34.667] List of future strategies: 1554s [00:52:34.667] 1. sequential: 1554s [00:52:34.667] - args: function (..., envir = parent.frame()) 1554s [00:52:34.667] - tweaked: FALSE 1554s [00:52:34.667] - call: NULL 1554s [00:52:34.667] plan(): nbrOfWorkers() = 1 1554s [00:52:34.668] plan(): Setting new future strategy stack: 1554s [00:52:34.668] List of future strategies: 1554s [00:52:34.668] 1. multicore: 1554s [00:52:34.668] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1554s [00:52:34.668] - tweaked: FALSE 1554s [00:52:34.668] - call: plan(strategy) 1554s [00:52:34.672] plan(): nbrOfWorkers() = 1 1554s [00:52:34.672] SequentialFuture started (and completed) 1554s [00:52:34.672] - Launch lazy future ... done 1554s [00:52:34.673] run() for ‘SequentialFuture’ ... done 1554s [00:52:34.673] Created future: 1554s [00:52:34.673] SequentialFuture: 1554s [00:52:34.673] Label: ‘future_lapply-1’ 1554s [00:52:34.673] Expression: 1554s [00:52:34.673] { 1554s [00:52:34.673] do.call(function(...) { 1554s [00:52:34.673] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1554s [00:52:34.673] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1554s [00:52:34.673] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1554s [00:52:34.673] on.exit(options(oopts), add = TRUE) 1554s [00:52:34.673] } 1554s [00:52:34.673] { 1554s [00:52:34.673] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1554s [00:52:34.673] ...future.X_jj <- ...future.elements_ii[[jj]] 1554s [00:52:34.673] ...future.FUN(...future.X_jj, ...) 1554s [00:52:34.673] }) 1554s [00:52:34.673] } 1554s [00:52:34.673] }, args = future.call.arguments) 1554s [00:52:34.673] } 1554s [00:52:34.673] Lazy evaluation: FALSE 1554s [00:52:34.673] Asynchronous evaluation: FALSE 1554s [00:52:34.673] Local evaluation: TRUE 1554s [00:52:34.673] Environment: R_GlobalEnv 1554s [00:52:34.673] Capture standard output: TRUE 1554s [00:52:34.673] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1554s [00:52:34.673] Globals: 5 objects totaling 960 bytes (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1554s [00:52:34.673] Packages: 1554s [00:52:34.673] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1554s [00:52:34.673] Resolved: TRUE 1554s [00:52:34.673] Value: 112 bytes of class ‘list’ 1554s [00:52:34.673] Early signaling: FALSE 1554s [00:52:34.673] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1554s [00:52:34.673] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1554s [00:52:34.678] Chunk #1 of 1 ... DONE 1554s [00:52:34.678] Launching 1 futures (chunks) ... DONE 1554s [00:52:34.678] Resolving 1 futures (chunks) ... 1554s [00:52:34.678] resolve() on list ... 1554s [00:52:34.678] recursive: 0 1554s [00:52:34.678] length: 1 1554s [00:52:34.678] 1554s [00:52:34.679] resolved() for ‘SequentialFuture’ ... 1554s [00:52:34.679] - state: ‘finished’ 1554s [00:52:34.679] - run: TRUE 1554s [00:52:34.679] - result: ‘FutureResult’ 1554s [00:52:34.679] resolved() for ‘SequentialFuture’ ... done 1554s [00:52:34.679] Future #1 1554s [00:52:34.680] signalConditionsASAP(SequentialFuture, pos=1) ... 1554s [00:52:34.680] - nx: 1 1554s [00:52:34.680] - relay: TRUE 1554s [00:52:34.681] - stdout: TRUE 1554s [00:52:34.681] - signal: TRUE 1554s [00:52:34.681] - resignal: FALSE 1554s [00:52:34.681] - force: TRUE 1554s [00:52:34.682] - relayed: [n=1] FALSE 1554s [00:52:34.682] - queued futures: [n=1] FALSE 1554s [00:52:34.682] - until=1 1554s [00:52:34.682] - relaying element #1 1554s [00:52:34.682] - relayed: [n=1] TRUE 1554s [00:52:34.683] - queued futures: [n=1] TRUE 1554s [00:52:34.683] signalConditionsASAP(SequentialFuture, pos=1) ... done 1554s [00:52:34.683] length: 0 (resolved future 1) 1554s [00:52:34.683] Relaying remaining futures 1554s [00:52:34.683] signalConditionsASAP(NULL, pos=0) ... 1554s [00:52:34.683] - nx: 1 1554s [00:52:34.684] - relay: TRUE 1554s [00:52:34.684] - stdout: TRUE 1554s [00:52:34.684] - signal: TRUE 1554s [00:52:34.684] - resignal: FALSE 1554s [00:52:34.684] - force: TRUE 1554s [00:52:34.684] - relayed: [n=1] TRUE 1554s [00:52:34.685] - queued futures: [n=1] TRUE 1554s - flush all 1554s [00:52:34.685] - relayed: [n=1] TRUE 1554s [00:52:34.685] - queued futures: [n=1] TRUE 1554s [00:52:34.685] signalConditionsASAP(NULL, pos=0) ... done 1554s [00:52:34.685] resolve() on list ... DONE 1554s [00:52:34.685] - Number of value chunks collected: 1 1554s [00:52:34.685] Resolving 1 futures (chunks) ... DONE 1554s [00:52:34.686] Reducing values from 1 chunks ... 1554s [00:52:34.686] - Number of values collected after concatenation: 2 1554s [00:52:34.686] - Number of values expected: 2 1554s [00:52:34.686] Reducing values from 1 chunks ... DONE 1554s [00:52:34.686] future_lapply() ... DONE 1554s - plan('multisession') ... 1554s [00:52:34.687] plan(): Setting new future strategy stack: 1554s [00:52:34.687] List of future strategies: 1554s [00:52:34.687] 1. multisession: 1554s [00:52:34.687] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1554s [00:52:34.687] - tweaked: FALSE 1554s [00:52:34.687] - call: plan(strategy) 1554s [00:52:34.688] plan(): plan_init() of ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ ... 1554s [00:52:34.688] multisession: 1554s [00:52:34.688] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1554s [00:52:34.688] - tweaked: FALSE 1554s [00:52:34.688] - call: plan(strategy) 1554s [00:52:34.692] getGlobalsAndPackages() ... 1554s [00:52:34.692] Not searching for globals 1554s [00:52:34.693] - globals: [0] 1554s [00:52:34.693] getGlobalsAndPackages() ... DONE 1554s [00:52:34.693] Packages needed by the future expression (n = 0): 1554s [00:52:34.693] Packages needed by future strategies (n = 0): 1554s [00:52:34.694] { 1554s [00:52:34.694] { 1554s [00:52:34.694] { 1554s [00:52:34.694] ...future.startTime <- base::Sys.time() 1554s [00:52:34.694] { 1554s [00:52:34.694] { 1554s [00:52:34.694] { 1554s [00:52:34.694] base::local({ 1554s [00:52:34.694] has_future <- base::requireNamespace("future", 1554s [00:52:34.694] quietly = TRUE) 1554s [00:52:34.694] if (has_future) { 1554s [00:52:34.694] ns <- base::getNamespace("future") 1554s [00:52:34.694] version <- ns[[".package"]][["version"]] 1554s [00:52:34.694] if (is.null(version)) 1554s [00:52:34.694] version <- utils::packageVersion("future") 1554s [00:52:34.694] } 1554s [00:52:34.694] else { 1554s [00:52:34.694] version <- NULL 1554s [00:52:34.694] } 1554s [00:52:34.694] if (!has_future || version < "1.8.0") { 1554s [00:52:34.694] info <- base::c(r_version = base::gsub("R version ", 1554s [00:52:34.694] "", base::R.version$version.string), 1554s [00:52:34.694] platform = base::sprintf("%s (%s-bit)", 1554s [00:52:34.694] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1554s [00:52:34.694] os = base::paste(base::Sys.info()[base::c("sysname", 1554s [00:52:34.694] "release", "version")], collapse = " "), 1554s [00:52:34.694] hostname = base::Sys.info()[["nodename"]]) 1554s [00:52:34.694] info <- base::sprintf("%s: %s", base::names(info), 1554s [00:52:34.694] info) 1554s [00:52:34.694] info <- base::paste(info, collapse = "; ") 1554s [00:52:34.694] if (!has_future) { 1554s [00:52:34.694] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1554s [00:52:34.694] info) 1554s [00:52:34.694] } 1554s [00:52:34.694] else { 1554s [00:52:34.694] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1554s [00:52:34.694] info, version) 1554s [00:52:34.694] } 1554s [00:52:34.694] base::stop(msg) 1554s [00:52:34.694] } 1554s [00:52:34.694] }) 1554s [00:52:34.694] } 1554s [00:52:34.694] options(future.plan = NULL) 1554s [00:52:34.694] Sys.unsetenv("R_FUTURE_PLAN") 1554s [00:52:34.694] future::plan("default", .cleanup = FALSE, .init = FALSE) 1554s [00:52:34.694] } 1554s [00:52:34.694] ...future.workdir <- getwd() 1554s [00:52:34.694] } 1554s [00:52:34.694] ...future.oldOptions <- base::as.list(base::.Options) 1554s [00:52:34.694] ...future.oldEnvVars <- base::Sys.getenv() 1554s [00:52:34.694] } 1554s [00:52:34.694] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1554s [00:52:34.694] future.globals.maxSize = NULL, future.globals.method = NULL, 1554s [00:52:34.694] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1554s [00:52:34.694] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1554s [00:52:34.694] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1554s [00:52:34.694] future.stdout.windows.reencode = NULL, width = 80L) 1554s [00:52:34.694] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1554s [00:52:34.694] base::names(...future.oldOptions)) 1554s [00:52:34.694] } 1554s [00:52:34.694] if (FALSE) { 1554s [00:52:34.694] } 1554s [00:52:34.694] else { 1554s [00:52:34.694] if (TRUE) { 1554s [00:52:34.694] ...future.stdout <- base::rawConnection(base::raw(0L), 1554s [00:52:34.694] open = "w") 1554s [00:52:34.694] } 1554s [00:52:34.694] else { 1554s [00:52:34.694] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1554s [00:52:34.694] windows = "NUL", "/dev/null"), open = "w") 1554s [00:52:34.694] } 1554s [00:52:34.694] base::sink(...future.stdout, type = "output", split = FALSE) 1554s [00:52:34.694] base::on.exit(if (!base::is.null(...future.stdout)) { 1554s [00:52:34.694] base::sink(type = "output", split = FALSE) 1554s [00:52:34.694] base::close(...future.stdout) 1554s [00:52:34.694] }, add = TRUE) 1554s [00:52:34.694] } 1554s [00:52:34.694] ...future.frame <- base::sys.nframe() 1554s [00:52:34.694] ...future.conditions <- base::list() 1554s [00:52:34.694] ...future.rng <- base::globalenv()$.Random.seed 1554s [00:52:34.694] if (FALSE) { 1554s [00:52:34.694] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1554s [00:52:34.694] "...future.value", "...future.globalenv.names", ".Random.seed") 1554s [00:52:34.694] } 1554s [00:52:34.694] ...future.result <- base::tryCatch({ 1554s [00:52:34.694] base::withCallingHandlers({ 1554s [00:52:34.694] ...future.value <- base::withVisible(base::local(NA)) 1554s [00:52:34.694] future::FutureResult(value = ...future.value$value, 1554s [00:52:34.694] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1554s [00:52:34.694] ...future.rng), globalenv = if (FALSE) 1554s [00:52:34.694] list(added = base::setdiff(base::names(base::.GlobalEnv), 1554s [00:52:34.694] ...future.globalenv.names)) 1554s [00:52:34.694] else NULL, started = ...future.startTime, version = "1.8") 1554s [00:52:34.694] }, condition = base::local({ 1554s [00:52:34.694] c <- base::c 1554s [00:52:34.694] inherits <- base::inherits 1554s [00:52:34.694] invokeRestart <- base::invokeRestart 1554s [00:52:34.694] length <- base::length 1554s [00:52:34.694] list <- base::list 1554s [00:52:34.694] seq.int <- base::seq.int 1554s [00:52:34.694] signalCondition <- base::signalCondition 1554s [00:52:34.694] sys.calls <- base::sys.calls 1554s [00:52:34.694] `[[` <- base::`[[` 1554s [00:52:34.694] `+` <- base::`+` 1554s [00:52:34.694] `<<-` <- base::`<<-` 1554s [00:52:34.694] sysCalls <- function(calls = sys.calls(), from = 1L) { 1554s [00:52:34.694] calls[seq.int(from = from + 12L, to = length(calls) - 1554s [00:52:34.694] 3L)] 1554s [00:52:34.694] } 1554s [00:52:34.694] function(cond) { 1554s [00:52:34.694] is_error <- inherits(cond, "error") 1554s [00:52:34.694] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1554s [00:52:34.694] NULL) 1554s [00:52:34.694] if (is_error) { 1554s [00:52:34.694] sessionInformation <- function() { 1554s [00:52:34.694] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1554s [00:52:34.694] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1554s [00:52:34.694] search = base::search(), system = base::Sys.info()) 1554s [00:52:34.694] } 1554s [00:52:34.694] ...future.conditions[[length(...future.conditions) + 1554s [00:52:34.694] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1554s [00:52:34.694] cond$call), session = sessionInformation(), 1554s [00:52:34.694] timestamp = base::Sys.time(), signaled = 0L) 1554s [00:52:34.694] signalCondition(cond) 1554s [00:52:34.694] } 1554s [00:52:34.694] else if (!ignore && TRUE && inherits(cond, c("condition", 1554s [00:52:34.694] "immediateCondition"))) { 1554s [00:52:34.694] signal <- TRUE && inherits(cond, "immediateCondition") 1554s [00:52:34.694] ...future.conditions[[length(...future.conditions) + 1554s [00:52:34.694] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1554s [00:52:34.694] if (TRUE && !signal) { 1554s [00:52:34.694] muffleCondition <- function (cond, pattern = "^muffle") 1554s [00:52:34.694] { 1554s [00:52:34.694] inherits <- base::inherits 1554s [00:52:34.694] invokeRestart <- base::invokeRestart 1554s [00:52:34.694] is.null <- base::is.null 1554s [00:52:34.694] muffled <- FALSE 1554s [00:52:34.694] if (inherits(cond, "message")) { 1554s [00:52:34.694] muffled <- grepl(pattern, "muffleMessage") 1554s [00:52:34.694] if (muffled) 1554s [00:52:34.694] invokeRestart("muffleMessage") 1554s [00:52:34.694] } 1554s [00:52:34.694] else if (inherits(cond, "warning")) { 1554s [00:52:34.694] muffled <- grepl(pattern, "muffleWarning") 1554s [00:52:34.694] if (muffled) 1554s [00:52:34.694] invokeRestart("muffleWarning") 1554s [00:52:34.694] } 1554s [00:52:34.694] else if (inherits(cond, "condition")) { 1554s [00:52:34.694] if (!is.null(pattern)) { 1554s [00:52:34.694] computeRestarts <- base::computeRestarts 1554s [00:52:34.694] grepl <- base::grepl 1554s [00:52:34.694] restarts <- computeRestarts(cond) 1554s [00:52:34.694] for (restart in restarts) { 1554s [00:52:34.694] name <- restart$name 1554s [00:52:34.694] if (is.null(name)) 1554s [00:52:34.694] next 1554s [00:52:34.694] if (!grepl(pattern, name)) 1554s [00:52:34.694] next 1554s [00:52:34.694] invokeRestart(restart) 1554s [00:52:34.694] muffled <- TRUE 1554s [00:52:34.694] break 1554s [00:52:34.694] } 1554s [00:52:34.694] } 1554s [00:52:34.694] } 1554s [00:52:34.694] invisible(muffled) 1554s [00:52:34.694] } 1554s [00:52:34.694] muffleCondition(cond, pattern = "^muffle") 1554s [00:52:34.694] } 1554s [00:52:34.694] } 1554s [00:52:34.694] else { 1554s [00:52:34.694] if (TRUE) { 1554s [00:52:34.694] muffleCondition <- function (cond, pattern = "^muffle") 1554s [00:52:34.694] { 1554s [00:52:34.694] inherits <- base::inherits 1554s [00:52:34.694] invokeRestart <- base::invokeRestart 1554s [00:52:34.694] is.null <- base::is.null 1554s [00:52:34.694] muffled <- FALSE 1554s [00:52:34.694] if (inherits(cond, "message")) { 1554s [00:52:34.694] muffled <- grepl(pattern, "muffleMessage") 1554s [00:52:34.694] if (muffled) 1554s [00:52:34.694] invokeRestart("muffleMessage") 1554s [00:52:34.694] } 1554s [00:52:34.694] else if (inherits(cond, "warning")) { 1554s [00:52:34.694] muffled <- grepl(pattern, "muffleWarning") 1554s [00:52:34.694] if (muffled) 1554s [00:52:34.694] invokeRestart("muffleWarning") 1554s [00:52:34.694] } 1554s [00:52:34.694] else if (inherits(cond, "condition")) { 1554s [00:52:34.694] if (!is.null(pattern)) { 1554s [00:52:34.694] computeRestarts <- base::computeRestarts 1554s [00:52:34.694] grepl <- base::grepl 1554s [00:52:34.694] restarts <- computeRestarts(cond) 1554s [00:52:34.694] for (restart in restarts) { 1554s [00:52:34.694] name <- restart$name 1554s [00:52:34.694] if (is.null(name)) 1554s [00:52:34.694] next 1554s [00:52:34.694] if (!grepl(pattern, name)) 1554s [00:52:34.694] next 1554s [00:52:34.694] invokeRestart(restart) 1554s [00:52:34.694] muffled <- TRUE 1554s [00:52:34.694] break 1554s [00:52:34.694] } 1554s [00:52:34.694] } 1554s [00:52:34.694] } 1554s [00:52:34.694] invisible(muffled) 1554s [00:52:34.694] } 1554s [00:52:34.694] muffleCondition(cond, pattern = "^muffle") 1554s [00:52:34.694] } 1554s [00:52:34.694] } 1554s [00:52:34.694] } 1554s [00:52:34.694] })) 1554s [00:52:34.694] }, error = function(ex) { 1554s [00:52:34.694] base::structure(base::list(value = NULL, visible = NULL, 1554s [00:52:34.694] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1554s [00:52:34.694] ...future.rng), started = ...future.startTime, 1554s [00:52:34.694] finished = Sys.time(), session_uuid = NA_character_, 1554s [00:52:34.694] version = "1.8"), class = "FutureResult") 1554s [00:52:34.694] }, finally = { 1554s [00:52:34.694] if (!identical(...future.workdir, getwd())) 1554s [00:52:34.694] setwd(...future.workdir) 1554s [00:52:34.694] { 1554s [00:52:34.694] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1554s [00:52:34.694] ...future.oldOptions$nwarnings <- NULL 1554s [00:52:34.694] } 1554s [00:52:34.694] base::options(...future.oldOptions) 1554s [00:52:34.694] if (.Platform$OS.type == "windows") { 1554s [00:52:34.694] old_names <- names(...future.oldEnvVars) 1554s [00:52:34.694] envs <- base::Sys.getenv() 1554s [00:52:34.694] names <- names(envs) 1554s [00:52:34.694] common <- intersect(names, old_names) 1554s [00:52:34.694] added <- setdiff(names, old_names) 1554s [00:52:34.694] removed <- setdiff(old_names, names) 1554s [00:52:34.694] changed <- common[...future.oldEnvVars[common] != 1554s [00:52:34.694] envs[common]] 1554s [00:52:34.694] NAMES <- toupper(changed) 1554s [00:52:34.694] args <- list() 1554s [00:52:34.694] for (kk in seq_along(NAMES)) { 1554s [00:52:34.694] name <- changed[[kk]] 1554s [00:52:34.694] NAME <- NAMES[[kk]] 1554s [00:52:34.694] if (name != NAME && is.element(NAME, old_names)) 1554s [00:52:34.694] next 1554s [00:52:34.694] args[[name]] <- ...future.oldEnvVars[[name]] 1554s [00:52:34.694] } 1554s [00:52:34.694] NAMES <- toupper(added) 1554s [00:52:34.694] for (kk in seq_along(NAMES)) { 1554s [00:52:34.694] name <- added[[kk]] 1554s [00:52:34.694] NAME <- NAMES[[kk]] 1554s [00:52:34.694] if (name != NAME && is.element(NAME, old_names)) 1554s [00:52:34.694] next 1554s [00:52:34.694] args[[name]] <- "" 1554s [00:52:34.694] } 1554s [00:52:34.694] NAMES <- toupper(removed) 1554s [00:52:34.694] for (kk in seq_along(NAMES)) { 1554s [00:52:34.694] name <- removed[[kk]] 1554s [00:52:34.694] NAME <- NAMES[[kk]] 1554s [00:52:34.694] if (name != NAME && is.element(NAME, old_names)) 1554s [00:52:34.694] next 1554s [00:52:34.694] args[[name]] <- ...future.oldEnvVars[[name]] 1554s [00:52:34.694] } 1554s [00:52:34.694] if (length(args) > 0) 1554s [00:52:34.694] base::do.call(base::Sys.setenv, args = args) 1554s [00:52:34.694] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1554s [00:52:34.694] } 1554s [00:52:34.694] else { 1554s [00:52:34.694] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1554s [00:52:34.694] } 1554s [00:52:34.694] { 1554s [00:52:34.694] if (base::length(...future.futureOptionsAdded) > 1554s [00:52:34.694] 0L) { 1554s [00:52:34.694] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1554s [00:52:34.694] base::names(opts) <- ...future.futureOptionsAdded 1554s [00:52:34.694] base::options(opts) 1554s [00:52:34.694] } 1554s [00:52:34.694] { 1554s [00:52:34.694] { 1554s [00:52:34.694] NULL 1554s [00:52:34.694] RNGkind("Mersenne-Twister") 1554s [00:52:34.694] base::rm(list = ".Random.seed", envir = base::globalenv(), 1554s [00:52:34.694] inherits = FALSE) 1554s [00:52:34.694] } 1554s [00:52:34.694] options(future.plan = NULL) 1554s [00:52:34.694] if (is.na(NA_character_)) 1554s [00:52:34.694] Sys.unsetenv("R_FUTURE_PLAN") 1554s [00:52:34.694] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1554s [00:52:34.694] future::plan(list(function (..., workers = availableCores(), 1554s [00:52:34.694] lazy = FALSE, rscript_libs = .libPaths(), 1554s [00:52:34.694] envir = parent.frame()) 1554s [00:52:34.694] { 1554s [00:52:34.694] if (is.function(workers)) 1554s [00:52:34.694] workers <- workers() 1554s [00:52:34.694] workers <- structure(as.integer(workers), 1554s [00:52:34.694] class = class(workers)) 1554s [00:52:34.694] stop_if_not(length(workers) == 1, is.finite(workers), 1554s [00:52:34.694] workers >= 1) 1554s [00:52:34.694] if (workers == 1L && !inherits(workers, "AsIs")) { 1554s [00:52:34.694] return(sequential(..., lazy = TRUE, envir = envir)) 1554s [00:52:34.694] } 1554s [00:52:34.694] future <- MultisessionFuture(..., workers = workers, 1554s [00:52:34.694] lazy = lazy, rscript_libs = rscript_libs, 1554s [00:52:34.694] envir = envir) 1554s [00:52:34.694] if (!future$lazy) 1554s [00:52:34.694] future <- run(future) 1554s [00:52:34.694] invisible(future) 1554s [00:52:34.694] }), .cleanup = FALSE, .init = FALSE) 1554s [00:52:34.694] } 1554s [00:52:34.694] } 1554s [00:52:34.694] } 1554s [00:52:34.694] }) 1554s [00:52:34.694] if (TRUE) { 1554s [00:52:34.694] base::sink(type = "output", split = FALSE) 1554s [00:52:34.694] if (TRUE) { 1554s [00:52:34.694] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1554s [00:52:34.694] } 1554s [00:52:34.694] else { 1554s [00:52:34.694] ...future.result["stdout"] <- base::list(NULL) 1554s [00:52:34.694] } 1554s [00:52:34.694] base::close(...future.stdout) 1554s [00:52:34.694] ...future.stdout <- NULL 1554s [00:52:34.694] } 1554s [00:52:34.694] ...future.result$conditions <- ...future.conditions 1554s [00:52:34.694] ...future.result$finished <- base::Sys.time() 1554s [00:52:34.694] ...future.result 1554s [00:52:34.694] } 1554s [00:52:34.703] plan(): Setting new future strategy stack: 1554s [00:52:34.703] List of future strategies: 1554s [00:52:34.703] 1. sequential: 1554s [00:52:34.703] - args: function (..., envir = parent.frame()) 1554s [00:52:34.703] - tweaked: FALSE 1554s [00:52:34.703] - call: NULL 1554s [00:52:34.704] plan(): nbrOfWorkers() = 1 1554s [00:52:34.705] plan(): Setting new future strategy stack: 1554s [00:52:34.705] List of future strategies: 1554s [00:52:34.705] 1. multisession: 1554s [00:52:34.705] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1554s [00:52:34.705] - tweaked: FALSE 1554s [00:52:34.705] - call: plan(strategy) 1554s [00:52:34.710] plan(): nbrOfWorkers() = 1 1554s [00:52:34.711] SequentialFuture started (and completed) 1554s [00:52:34.712] plan(): plan_init() of ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ ... DONE 1554s [00:52:34.717] plan(): nbrOfWorkers() = 1 1554s - future_lapply(x, FUN = vector, ...) ... 1554s [00:52:34.717] future_lapply() ... 1554s [00:52:34.723] Number of chunks: 4 1554s [00:52:34.723] getGlobalsAndPackagesXApply() ... 1554s [00:52:34.723] - future.globals: TRUE 1554s [00:52:34.723] getGlobalsAndPackages() ... 1554s [00:52:34.724] Searching for globals... 1554s [00:52:34.726] - globals found: [2] ‘FUN’, ‘.Internal’ 1554s [00:52:34.726] Searching for globals ... DONE 1554s [00:52:34.726] Resolving globals: FALSE 1554s [00:52:34.727] The total size of the 1 globals is 2.13 KiB (2184 bytes) 1554s [00:52:34.727] The total size of the 1 globals exported for future expression (‘FUN(length = 2L)’) is 2.13 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (2.13 KiB of class ‘function’) 1554s [00:52:34.728] - globals: [1] ‘FUN’ 1554s [00:52:34.728] 1554s [00:52:34.728] getGlobalsAndPackages() ... DONE 1554s [00:52:34.728] - globals found/used: [n=1] ‘FUN’ 1554s [00:52:34.729] - needed namespaces: [n=0] 1554s [00:52:34.729] Finding globals ... DONE 1554s [00:52:34.729] - use_args: TRUE 1554s [00:52:34.729] - Getting '...' globals ... 1554s [00:52:34.730] resolve() on list ... 1554s [00:52:34.730] recursive: 0 1554s [00:52:34.730] length: 1 1554s [00:52:34.730] elements: ‘...’ 1554s [00:52:34.730] length: 0 (resolved future 1) 1554s [00:52:34.730] resolve() on list ... DONE 1554s [00:52:34.731] - '...' content: [n=1] ‘length’ 1554s [00:52:34.731] List of 1 1554s [00:52:34.731] $ ...:List of 1 1554s [00:52:34.731] ..$ length: int 2 1554s [00:52:34.731] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1554s [00:52:34.731] - attr(*, "where")=List of 1 1554s [00:52:34.731] ..$ ...: 1554s [00:52:34.731] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1554s [00:52:34.731] - attr(*, "resolved")= logi TRUE 1554s [00:52:34.731] - attr(*, "total_size")= num NA 1554s [00:52:34.737] - Getting '...' globals ... DONE 1554s [00:52:34.737] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1554s [00:52:34.738] List of 2 1554s [00:52:34.738] $ ...future.FUN:function (mode = "logical", length = 0L) 1554s [00:52:34.738] $ ... :List of 1 1554s [00:52:34.738] ..$ length: int 2 1554s [00:52:34.738] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1554s [00:52:34.738] - attr(*, "where")=List of 2 1554s [00:52:34.738] ..$ ...future.FUN: 1554s [00:52:34.738] ..$ ... : 1554s [00:52:34.738] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1554s [00:52:34.738] - attr(*, "resolved")= logi FALSE 1554s [00:52:34.738] - attr(*, "total_size")= num 2240 1554s [00:52:34.743] Packages to be attached in all futures: [n=0] 1554s [00:52:34.743] getGlobalsAndPackagesXApply() ... DONE 1554s [00:52:34.743] Number of futures (= number of chunks): 4 1554s [00:52:34.743] Launching 4 futures (chunks) ... 1554s [00:52:34.744] Chunk #1 of 4 ... 1554s [00:52:34.744] - Finding globals in 'X' for chunk #1 ... 1554s [00:52:34.744] getGlobalsAndPackages() ... 1554s [00:52:34.744] Searching for globals... 1554s [00:52:34.744] 1554s [00:52:34.744] Searching for globals ... DONE 1554s [00:52:34.745] - globals: [0] 1554s [00:52:34.745] getGlobalsAndPackages() ... DONE 1554s [00:52:34.745] + additional globals found: [n=0] 1554s [00:52:34.745] + additional namespaces needed: [n=0] 1554s [00:52:34.745] - Finding globals in 'X' for chunk #1 ... DONE 1554s [00:52:34.745] - Adjusted option 'future.globals.maxSize': 524288000 -> 4 * 524288000 = 2097152000 (bytes) 1554s [00:52:34.745] - seeds: 1554s [00:52:34.745] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1554s [00:52:34.746] getGlobalsAndPackages() ... 1554s [00:52:34.746] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1554s [00:52:34.746] Resolving globals: FALSE 1554s [00:52:34.746] Tweak future expression to call with '...' arguments ... 1554s [00:52:34.746] { 1554s [00:52:34.746] do.call(function(...) { 1554s [00:52:34.746] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1554s [00:52:34.746] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1554s [00:52:34.746] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1554s [00:52:34.746] on.exit(options(oopts), add = TRUE) 1554s [00:52:34.746] } 1554s [00:52:34.746] { 1554s [00:52:34.746] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1554s [00:52:34.746] ...future.X_jj <- ...future.elements_ii[[jj]] 1554s [00:52:34.746] ...future.FUN(...future.X_jj, ...) 1554s [00:52:34.746] }) 1554s [00:52:34.746] } 1554s [00:52:34.746] }, args = future.call.arguments) 1554s [00:52:34.746] } 1554s [00:52:34.747] Tweak future expression to call with '...' arguments ... DONE 1554s [00:52:34.747] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1554s [00:52:34.747] 1554s [00:52:34.748] getGlobalsAndPackages() ... DONE 1554s [00:52:34.748] run() for ‘Future’ ... 1554s [00:52:34.748] - state: ‘created’ 1554s [00:52:34.748] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1554s [00:52:34.753] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1554s [00:52:34.753] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1554s [00:52:34.753] - Field: ‘label’ 1554s [00:52:34.753] - Field: ‘local’ 1554s [00:52:34.754] - Field: ‘owner’ 1554s [00:52:34.754] - Field: ‘envir’ 1554s [00:52:34.754] - Field: ‘packages’ 1554s [00:52:34.754] - Field: ‘gc’ 1554s [00:52:34.754] - Field: ‘conditions’ 1554s [00:52:34.754] - Field: ‘expr’ 1554s [00:52:34.755] - Field: ‘uuid’ 1554s [00:52:34.755] - Field: ‘seed’ 1554s [00:52:34.755] - Field: ‘version’ 1554s [00:52:34.755] - Field: ‘result’ 1554s [00:52:34.755] - Field: ‘asynchronous’ 1554s [00:52:34.755] - Field: ‘calls’ 1554s [00:52:34.756] - Field: ‘globals’ 1554s [00:52:34.756] - Field: ‘stdout’ 1554s [00:52:34.756] - Field: ‘earlySignal’ 1554s [00:52:34.756] - Field: ‘lazy’ 1554s [00:52:34.756] - Field: ‘state’ 1554s [00:52:34.756] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1554s [00:52:34.756] - Launch lazy future ... 1554s [00:52:34.757] Packages needed by the future expression (n = 0): 1554s [00:52:34.757] Packages needed by future strategies (n = 0): 1554s [00:52:34.757] { 1554s [00:52:34.757] { 1554s [00:52:34.757] { 1554s [00:52:34.757] ...future.startTime <- base::Sys.time() 1554s [00:52:34.757] { 1554s [00:52:34.757] { 1554s [00:52:34.757] { 1554s [00:52:34.757] base::local({ 1554s [00:52:34.757] has_future <- base::requireNamespace("future", 1554s [00:52:34.757] quietly = TRUE) 1554s [00:52:34.757] if (has_future) { 1554s [00:52:34.757] ns <- base::getNamespace("future") 1554s [00:52:34.757] version <- ns[[".package"]][["version"]] 1554s [00:52:34.757] if (is.null(version)) 1554s [00:52:34.757] version <- utils::packageVersion("future") 1554s [00:52:34.757] } 1554s [00:52:34.757] else { 1554s [00:52:34.757] version <- NULL 1554s [00:52:34.757] } 1554s [00:52:34.757] if (!has_future || version < "1.8.0") { 1554s [00:52:34.757] info <- base::c(r_version = base::gsub("R version ", 1554s [00:52:34.757] "", base::R.version$version.string), 1554s [00:52:34.757] platform = base::sprintf("%s (%s-bit)", 1554s [00:52:34.757] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1554s [00:52:34.757] os = base::paste(base::Sys.info()[base::c("sysname", 1554s [00:52:34.757] "release", "version")], collapse = " "), 1554s [00:52:34.757] hostname = base::Sys.info()[["nodename"]]) 1554s [00:52:34.757] info <- base::sprintf("%s: %s", base::names(info), 1554s [00:52:34.757] info) 1554s [00:52:34.757] info <- base::paste(info, collapse = "; ") 1554s [00:52:34.757] if (!has_future) { 1554s [00:52:34.757] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1554s [00:52:34.757] info) 1554s [00:52:34.757] } 1554s [00:52:34.757] else { 1554s [00:52:34.757] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1554s [00:52:34.757] info, version) 1554s [00:52:34.757] } 1554s [00:52:34.757] base::stop(msg) 1554s [00:52:34.757] } 1554s [00:52:34.757] }) 1554s [00:52:34.757] } 1554s [00:52:34.757] options(future.plan = NULL) 1554s [00:52:34.757] Sys.unsetenv("R_FUTURE_PLAN") 1554s [00:52:34.757] future::plan("default", .cleanup = FALSE, .init = FALSE) 1554s [00:52:34.757] } 1554s [00:52:34.757] ...future.workdir <- getwd() 1554s [00:52:34.757] } 1554s [00:52:34.757] ...future.oldOptions <- base::as.list(base::.Options) 1554s [00:52:34.757] ...future.oldEnvVars <- base::Sys.getenv() 1554s [00:52:34.757] } 1554s [00:52:34.757] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1554s [00:52:34.757] future.globals.maxSize = 2097152000, future.globals.method = NULL, 1554s [00:52:34.757] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1554s [00:52:34.757] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1554s [00:52:34.757] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1554s [00:52:34.757] future.stdout.windows.reencode = NULL, width = 80L) 1554s [00:52:34.757] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1554s [00:52:34.757] base::names(...future.oldOptions)) 1554s [00:52:34.757] } 1554s [00:52:34.757] if (FALSE) { 1554s [00:52:34.757] } 1554s [00:52:34.757] else { 1554s [00:52:34.757] if (TRUE) { 1554s [00:52:34.757] ...future.stdout <- base::rawConnection(base::raw(0L), 1554s [00:52:34.757] open = "w") 1554s [00:52:34.757] } 1554s [00:52:34.757] else { 1554s [00:52:34.757] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1554s [00:52:34.757] windows = "NUL", "/dev/null"), open = "w") 1554s [00:52:34.757] } 1554s [00:52:34.757] base::sink(...future.stdout, type = "output", split = FALSE) 1554s [00:52:34.757] base::on.exit(if (!base::is.null(...future.stdout)) { 1554s [00:52:34.757] base::sink(type = "output", split = FALSE) 1554s [00:52:34.757] base::close(...future.stdout) 1554s [00:52:34.757] }, add = TRUE) 1554s [00:52:34.757] } 1554s [00:52:34.757] ...future.frame <- base::sys.nframe() 1554s [00:52:34.757] ...future.conditions <- base::list() 1554s [00:52:34.757] ...future.rng <- base::globalenv()$.Random.seed 1554s [00:52:34.757] if (FALSE) { 1554s [00:52:34.757] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1554s [00:52:34.757] "...future.value", "...future.globalenv.names", ".Random.seed") 1554s [00:52:34.757] } 1554s [00:52:34.757] ...future.result <- base::tryCatch({ 1554s [00:52:34.757] base::withCallingHandlers({ 1554s [00:52:34.757] ...future.value <- base::withVisible(base::local({ 1554s [00:52:34.757] do.call(function(...) { 1554s [00:52:34.757] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1554s [00:52:34.757] if (!identical(...future.globals.maxSize.org, 1554s [00:52:34.757] ...future.globals.maxSize)) { 1554s [00:52:34.757] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1554s [00:52:34.757] on.exit(options(oopts), add = TRUE) 1554s [00:52:34.757] } 1554s [00:52:34.757] { 1554s [00:52:34.757] lapply(seq_along(...future.elements_ii), 1554s [00:52:34.757] FUN = function(jj) { 1554s [00:52:34.757] ...future.X_jj <- ...future.elements_ii[[jj]] 1554s [00:52:34.757] ...future.FUN(...future.X_jj, ...) 1554s [00:52:34.757] }) 1554s [00:52:34.757] } 1554s [00:52:34.757] }, args = future.call.arguments) 1554s [00:52:34.757] })) 1554s [00:52:34.757] future::FutureResult(value = ...future.value$value, 1554s [00:52:34.757] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1554s [00:52:34.757] ...future.rng), globalenv = if (FALSE) 1554s [00:52:34.757] list(added = base::setdiff(base::names(base::.GlobalEnv), 1554s [00:52:34.757] ...future.globalenv.names)) 1554s [00:52:34.757] else NULL, started = ...future.startTime, version = "1.8") 1554s [00:52:34.757] }, condition = base::local({ 1554s [00:52:34.757] c <- base::c 1554s [00:52:34.757] inherits <- base::inherits 1554s [00:52:34.757] invokeRestart <- base::invokeRestart 1554s [00:52:34.757] length <- base::length 1554s [00:52:34.757] list <- base::list 1554s [00:52:34.757] seq.int <- base::seq.int 1554s [00:52:34.757] signalCondition <- base::signalCondition 1554s [00:52:34.757] sys.calls <- base::sys.calls 1554s [00:52:34.757] `[[` <- base::`[[` 1554s [00:52:34.757] `+` <- base::`+` 1554s [00:52:34.757] `<<-` <- base::`<<-` 1554s [00:52:34.757] sysCalls <- function(calls = sys.calls(), from = 1L) { 1554s [00:52:34.757] calls[seq.int(from = from + 12L, to = length(calls) - 1554s [00:52:34.757] 3L)] 1554s [00:52:34.757] } 1554s [00:52:34.757] function(cond) { 1554s [00:52:34.757] is_error <- inherits(cond, "error") 1554s [00:52:34.757] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1554s [00:52:34.757] NULL) 1554s [00:52:34.757] if (is_error) { 1554s [00:52:34.757] sessionInformation <- function() { 1554s [00:52:34.757] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1554s [00:52:34.757] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1554s [00:52:34.757] search = base::search(), system = base::Sys.info()) 1554s [00:52:34.757] } 1554s [00:52:34.757] ...future.conditions[[length(...future.conditions) + 1554s [00:52:34.757] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1554s [00:52:34.757] cond$call), session = sessionInformation(), 1554s [00:52:34.757] timestamp = base::Sys.time(), signaled = 0L) 1554s [00:52:34.757] signalCondition(cond) 1554s [00:52:34.757] } 1554s [00:52:34.757] else if (!ignore && TRUE && inherits(cond, c("condition", 1554s [00:52:34.757] "immediateCondition"))) { 1554s [00:52:34.757] signal <- TRUE && inherits(cond, "immediateCondition") 1554s [00:52:34.757] ...future.conditions[[length(...future.conditions) + 1554s [00:52:34.757] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1554s [00:52:34.757] if (TRUE && !signal) { 1554s [00:52:34.757] muffleCondition <- function (cond, pattern = "^muffle") 1554s [00:52:34.757] { 1554s [00:52:34.757] inherits <- base::inherits 1554s [00:52:34.757] invokeRestart <- base::invokeRestart 1554s [00:52:34.757] is.null <- base::is.null 1554s [00:52:34.757] muffled <- FALSE 1554s [00:52:34.757] if (inherits(cond, "message")) { 1554s [00:52:34.757] muffled <- grepl(pattern, "muffleMessage") 1554s [00:52:34.757] if (muffled) 1554s [00:52:34.757] invokeRestart("muffleMessage") 1554s [00:52:34.757] } 1554s [00:52:34.757] else if (inherits(cond, "warning")) { 1554s [00:52:34.757] muffled <- grepl(pattern, "muffleWarning") 1554s [00:52:34.757] if (muffled) 1554s [00:52:34.757] invokeRestart("muffleWarning") 1554s [00:52:34.757] } 1554s [00:52:34.757] else if (inherits(cond, "condition")) { 1554s [00:52:34.757] if (!is.null(pattern)) { 1554s [00:52:34.757] computeRestarts <- base::computeRestarts 1554s [00:52:34.757] grepl <- base::grepl 1554s [00:52:34.757] restarts <- computeRestarts(cond) 1554s [00:52:34.757] for (restart in restarts) { 1554s [00:52:34.757] name <- restart$name 1554s [00:52:34.757] if (is.null(name)) 1554s [00:52:34.757] next 1554s [00:52:34.757] if (!grepl(pattern, name)) 1554s [00:52:34.757] next 1554s [00:52:34.757] invokeRestart(restart) 1554s [00:52:34.757] muffled <- TRUE 1554s [00:52:34.757] break 1554s [00:52:34.757] } 1554s [00:52:34.757] } 1554s [00:52:34.757] } 1554s [00:52:34.757] invisible(muffled) 1554s [00:52:34.757] } 1554s [00:52:34.757] muffleCondition(cond, pattern = "^muffle") 1554s [00:52:34.757] } 1554s [00:52:34.757] } 1554s [00:52:34.757] else { 1554s [00:52:34.757] if (TRUE) { 1554s [00:52:34.757] muffleCondition <- function (cond, pattern = "^muffle") 1554s [00:52:34.757] { 1554s [00:52:34.757] inherits <- base::inherits 1554s [00:52:34.757] invokeRestart <- base::invokeRestart 1554s [00:52:34.757] is.null <- base::is.null 1554s [00:52:34.757] muffled <- FALSE 1554s [00:52:34.757] if (inherits(cond, "message")) { 1554s [00:52:34.757] muffled <- grepl(pattern, "muffleMessage") 1554s [00:52:34.757] if (muffled) 1554s [00:52:34.757] invokeRestart("muffleMessage") 1554s [00:52:34.757] } 1554s [00:52:34.757] else if (inherits(cond, "warning")) { 1554s [00:52:34.757] muffled <- grepl(pattern, "muffleWarning") 1554s [00:52:34.757] if (muffled) 1554s [00:52:34.757] invokeRestart("muffleWarning") 1554s [00:52:34.757] } 1554s [00:52:34.757] else if (inherits(cond, "condition")) { 1554s [00:52:34.757] if (!is.null(pattern)) { 1554s [00:52:34.757] computeRestarts <- base::computeRestarts 1554s [00:52:34.757] grepl <- base::grepl 1554s [00:52:34.757] restarts <- computeRestarts(cond) 1554s [00:52:34.757] for (restart in restarts) { 1554s [00:52:34.757] name <- restart$name 1554s [00:52:34.757] if (is.null(name)) 1554s [00:52:34.757] next 1554s [00:52:34.757] if (!grepl(pattern, name)) 1554s [00:52:34.757] next 1554s [00:52:34.757] invokeRestart(restart) 1554s [00:52:34.757] muffled <- TRUE 1554s [00:52:34.757] break 1554s [00:52:34.757] } 1554s [00:52:34.757] } 1554s [00:52:34.757] } 1554s [00:52:34.757] invisible(muffled) 1554s [00:52:34.757] } 1554s [00:52:34.757] muffleCondition(cond, pattern = "^muffle") 1554s [00:52:34.757] } 1554s [00:52:34.757] } 1554s [00:52:34.757] } 1554s [00:52:34.757] })) 1554s [00:52:34.757] }, error = function(ex) { 1554s [00:52:34.757] base::structure(base::list(value = NULL, visible = NULL, 1554s [00:52:34.757] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1554s [00:52:34.757] ...future.rng), started = ...future.startTime, 1554s [00:52:34.757] finished = Sys.time(), session_uuid = NA_character_, 1554s [00:52:34.757] version = "1.8"), class = "FutureResult") 1554s [00:52:34.757] }, finally = { 1554s [00:52:34.757] if (!identical(...future.workdir, getwd())) 1554s [00:52:34.757] setwd(...future.workdir) 1554s [00:52:34.757] { 1554s [00:52:34.757] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1554s [00:52:34.757] ...future.oldOptions$nwarnings <- NULL 1554s [00:52:34.757] } 1554s [00:52:34.757] base::options(...future.oldOptions) 1554s [00:52:34.757] if (.Platform$OS.type == "windows") { 1554s [00:52:34.757] old_names <- names(...future.oldEnvVars) 1554s [00:52:34.757] envs <- base::Sys.getenv() 1554s [00:52:34.757] names <- names(envs) 1554s [00:52:34.757] common <- intersect(names, old_names) 1554s [00:52:34.757] added <- setdiff(names, old_names) 1554s [00:52:34.757] removed <- setdiff(old_names, names) 1554s [00:52:34.757] changed <- common[...future.oldEnvVars[common] != 1554s [00:52:34.757] envs[common]] 1554s [00:52:34.757] NAMES <- toupper(changed) 1554s [00:52:34.757] args <- list() 1554s [00:52:34.757] for (kk in seq_along(NAMES)) { 1554s [00:52:34.757] name <- changed[[kk]] 1554s [00:52:34.757] NAME <- NAMES[[kk]] 1554s [00:52:34.757] if (name != NAME && is.element(NAME, old_names)) 1554s [00:52:34.757] next 1554s [00:52:34.757] args[[name]] <- ...future.oldEnvVars[[name]] 1554s [00:52:34.757] } 1554s [00:52:34.757] NAMES <- toupper(added) 1554s [00:52:34.757] for (kk in seq_along(NAMES)) { 1554s [00:52:34.757] name <- added[[kk]] 1554s [00:52:34.757] NAME <- NAMES[[kk]] 1554s [00:52:34.757] if (name != NAME && is.element(NAME, old_names)) 1554s [00:52:34.757] next 1554s [00:52:34.757] args[[name]] <- "" 1554s [00:52:34.757] } 1554s [00:52:34.757] NAMES <- toupper(removed) 1554s [00:52:34.757] for (kk in seq_along(NAMES)) { 1554s [00:52:34.757] name <- removed[[kk]] 1554s [00:52:34.757] NAME <- NAMES[[kk]] 1554s [00:52:34.757] if (name != NAME && is.element(NAME, old_names)) 1554s [00:52:34.757] next 1554s [00:52:34.757] args[[name]] <- ...future.oldEnvVars[[name]] 1554s [00:52:34.757] } 1554s [00:52:34.757] if (length(args) > 0) 1554s [00:52:34.757] base::do.call(base::Sys.setenv, args = args) 1554s [00:52:34.757] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1554s [00:52:34.757] } 1554s [00:52:34.757] else { 1554s [00:52:34.757] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1554s [00:52:34.757] } 1554s [00:52:34.757] { 1554s [00:52:34.757] if (base::length(...future.futureOptionsAdded) > 1554s [00:52:34.757] 0L) { 1554s [00:52:34.757] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1554s [00:52:34.757] base::names(opts) <- ...future.futureOptionsAdded 1554s [00:52:34.757] base::options(opts) 1554s [00:52:34.757] } 1554s [00:52:34.757] { 1554s [00:52:34.757] { 1554s [00:52:34.757] NULL 1554s [00:52:34.757] RNGkind("Mersenne-Twister") 1554s [00:52:34.757] base::rm(list = ".Random.seed", envir = base::globalenv(), 1554s [00:52:34.757] inherits = FALSE) 1554s [00:52:34.757] } 1554s [00:52:34.757] options(future.plan = NULL) 1554s [00:52:34.757] if (is.na(NA_character_)) 1554s [00:52:34.757] Sys.unsetenv("R_FUTURE_PLAN") 1554s [00:52:34.757] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1554s [00:52:34.757] future::plan(list(function (..., workers = availableCores(), 1554s [00:52:34.757] lazy = FALSE, rscript_libs = .libPaths(), 1554s [00:52:34.757] envir = parent.frame()) 1554s [00:52:34.757] { 1554s [00:52:34.757] if (is.function(workers)) 1554s [00:52:34.757] workers <- workers() 1554s [00:52:34.757] workers <- structure(as.integer(workers), 1554s [00:52:34.757] class = class(workers)) 1554s [00:52:34.757] stop_if_not(length(workers) == 1, is.finite(workers), 1554s [00:52:34.757] workers >= 1) 1554s [00:52:34.757] if (workers == 1L && !inherits(workers, "AsIs")) { 1554s [00:52:34.757] return(sequential(..., lazy = TRUE, envir = envir)) 1554s [00:52:34.757] } 1554s [00:52:34.757] future <- MultisessionFuture(..., workers = workers, 1554s [00:52:34.757] lazy = lazy, rscript_libs = rscript_libs, 1554s [00:52:34.757] envir = envir) 1554s [00:52:34.757] if (!future$lazy) 1554s [00:52:34.757] future <- run(future) 1554s [00:52:34.757] invisible(future) 1554s [00:52:34.757] }), .cleanup = FALSE, .init = FALSE) 1554s [00:52:34.757] } 1554s [00:52:34.757] } 1554s [00:52:34.757] } 1554s [00:52:34.757] }) 1554s [00:52:34.757] if (TRUE) { 1554s [00:52:34.757] base::sink(type = "output", split = FALSE) 1554s [00:52:34.757] if (TRUE) { 1554s [00:52:34.757] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1554s [00:52:34.757] } 1554s [00:52:34.757] else { 1554s [00:52:34.757] ...future.result["stdout"] <- base::list(NULL) 1554s [00:52:34.757] } 1554s [00:52:34.757] base::close(...future.stdout) 1554s [00:52:34.757] ...future.stdout <- NULL 1554s [00:52:34.757] } 1554s [00:52:34.757] ...future.result$conditions <- ...future.conditions 1554s [00:52:34.757] ...future.result$finished <- base::Sys.time() 1554s [00:52:34.757] ...future.result 1554s [00:52:34.757] } 1554s [00:52:34.766] assign_globals() ... 1554s [00:52:34.766] List of 5 1554s [00:52:34.766] $ ...future.FUN :function (mode = "logical", length = 0L) 1554s [00:52:34.766] $ future.call.arguments :List of 1 1554s [00:52:34.766] ..$ length: int 2 1554s [00:52:34.766] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1554s [00:52:34.766] $ ...future.elements_ii :List of 1 1554s [00:52:34.766] ..$ a: chr "integer" 1554s [00:52:34.766] $ ...future.seeds_ii : NULL 1554s [00:52:34.766] $ ...future.globals.maxSize: NULL 1554s [00:52:34.766] - attr(*, "where")=List of 5 1554s [00:52:34.766] ..$ ...future.FUN : 1554s [00:52:34.766] ..$ future.call.arguments : 1554s [00:52:34.766] ..$ ...future.elements_ii : 1554s [00:52:34.766] ..$ ...future.seeds_ii : 1554s [00:52:34.766] ..$ ...future.globals.maxSize: 1554s [00:52:34.766] - attr(*, "resolved")= logi FALSE 1554s [00:52:34.766] - attr(*, "total_size")= num 2240 1554s [00:52:34.766] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1554s [00:52:34.766] - attr(*, "already-done")= logi TRUE 1554s [00:52:34.774] - copied ‘...future.FUN’ to environment 1554s [00:52:34.774] - copied ‘future.call.arguments’ to environment 1554s [00:52:34.775] - copied ‘...future.elements_ii’ to environment 1554s [00:52:34.775] - copied ‘...future.seeds_ii’ to environment 1554s [00:52:34.775] - copied ‘...future.globals.maxSize’ to environment 1554s [00:52:34.776] assign_globals() ... done 1554s [00:52:34.776] plan(): Setting new future strategy stack: 1554s [00:52:34.776] List of future strategies: 1554s [00:52:34.776] 1. sequential: 1554s [00:52:34.776] - args: function (..., envir = parent.frame()) 1554s [00:52:34.776] - tweaked: FALSE 1554s [00:52:34.776] - call: NULL 1554s [00:52:34.777] plan(): nbrOfWorkers() = 1 1554s [00:52:34.778] plan(): Setting new future strategy stack: 1554s [00:52:34.778] List of future strategies: 1554s [00:52:34.778] 1. multisession: 1554s [00:52:34.778] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1554s [00:52:34.778] - tweaked: FALSE 1554s [00:52:34.778] - call: plan(strategy) 1554s [00:52:34.782] plan(): nbrOfWorkers() = 1 1554s [00:52:34.783] SequentialFuture started (and completed) 1554s [00:52:34.783] - Launch lazy future ... done 1554s [00:52:34.783] run() for ‘SequentialFuture’ ... done 1554s [00:52:34.783] Created future: 1554s [00:52:34.783] SequentialFuture: 1554s [00:52:34.783] Label: ‘future_lapply-1’ 1554s [00:52:34.783] Expression: 1554s [00:52:34.783] { 1554s [00:52:34.783] do.call(function(...) { 1554s [00:52:34.783] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1554s [00:52:34.783] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1554s [00:52:34.783] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1554s [00:52:34.783] on.exit(options(oopts), add = TRUE) 1554s [00:52:34.783] } 1554s [00:52:34.783] { 1554s [00:52:34.783] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1554s [00:52:34.783] ...future.X_jj <- ...future.elements_ii[[jj]] 1554s [00:52:34.783] ...future.FUN(...future.X_jj, ...) 1554s [00:52:34.783] }) 1554s [00:52:34.783] } 1554s [00:52:34.783] }, args = future.call.arguments) 1554s [00:52:34.783] } 1554s [00:52:34.783] Lazy evaluation: FALSE 1554s [00:52:34.783] Asynchronous evaluation: FALSE 1554s [00:52:34.783] Local evaluation: TRUE 1554s [00:52:34.783] Environment: R_GlobalEnv 1554s [00:52:34.783] Capture standard output: TRUE 1554s [00:52:34.783] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1554s [00:52:34.783] Globals: 5 objects totaling 2.30 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1554s [00:52:34.783] Packages: 1554s [00:52:34.783] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1554s [00:52:34.783] Resolved: TRUE 1554s [00:52:34.783] Value: 56 bytes of class ‘list’ 1554s [00:52:34.783] Early signaling: FALSE 1554s [00:52:34.783] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1554s [00:52:34.783] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1554s [00:52:34.785] Chunk #1 of 4 ... DONE 1554s [00:52:34.786] Chunk #2 of 4 ... 1554s [00:52:34.786] - Finding globals in 'X' for chunk #2 ... 1554s [00:52:34.786] getGlobalsAndPackages() ... 1554s [00:52:34.786] Searching for globals... 1554s [00:52:34.786] 1554s [00:52:34.787] Searching for globals ... DONE 1554s [00:52:34.787] - globals: [0] 1554s [00:52:34.787] getGlobalsAndPackages() ... DONE 1554s [00:52:34.787] + additional globals found: [n=0] 1554s [00:52:34.788] + additional namespaces needed: [n=0] 1554s [00:52:34.788] - Finding globals in 'X' for chunk #2 ... DONE 1554s [00:52:34.788] - Adjusted option 'future.globals.maxSize': 524288000 -> 4 * 524288000 = 2097152000 (bytes) 1554s [00:52:34.788] - seeds: 1554s [00:52:34.788] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1554s [00:52:34.789] getGlobalsAndPackages() ... 1554s [00:52:34.789] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1554s [00:52:34.789] Resolving globals: FALSE 1554s [00:52:34.790] Tweak future expression to call with '...' arguments ... 1554s [00:52:34.790] { 1554s [00:52:34.790] do.call(function(...) { 1554s [00:52:34.790] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1554s [00:52:34.790] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1554s [00:52:34.790] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1554s [00:52:34.790] on.exit(options(oopts), add = TRUE) 1554s [00:52:34.790] } 1554s [00:52:34.790] { 1554s [00:52:34.790] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1554s [00:52:34.790] ...future.X_jj <- ...future.elements_ii[[jj]] 1554s [00:52:34.790] ...future.FUN(...future.X_jj, ...) 1554s [00:52:34.790] }) 1554s [00:52:34.790] } 1554s [00:52:34.790] }, args = future.call.arguments) 1554s [00:52:34.790] } 1554s [00:52:34.790] Tweak future expression to call with '...' arguments ... DONE 1554s [00:52:34.791] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1554s [00:52:34.791] 1554s [00:52:34.791] getGlobalsAndPackages() ... DONE 1554s [00:52:34.792] run() for ‘Future’ ... 1554s [00:52:34.792] - state: ‘created’ 1554s [00:52:34.792] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1554s [00:52:34.798] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1554s [00:52:34.798] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1554s [00:52:34.798] - Field: ‘label’ 1554s [00:52:34.799] - Field: ‘local’ 1554s [00:52:34.799] - Field: ‘owner’ 1554s [00:52:34.799] - Field: ‘envir’ 1554s [00:52:34.799] - Field: ‘packages’ 1554s [00:52:34.800] - Field: ‘gc’ 1554s [00:52:34.800] - Field: ‘conditions’ 1554s [00:52:34.800] - Field: ‘expr’ 1554s [00:52:34.800] - Field: ‘uuid’ 1554s [00:52:34.800] - Field: ‘seed’ 1554s [00:52:34.801] - Field: ‘version’ 1554s [00:52:34.801] - Field: ‘result’ 1554s [00:52:34.801] - Field: ‘asynchronous’ 1554s [00:52:34.802] - Field: ‘calls’ 1554s [00:52:34.802] - Field: ‘globals’ 1554s [00:52:34.803] - Field: ‘stdout’ 1554s [00:52:34.803] - Field: ‘earlySignal’ 1554s [00:52:34.803] - Field: ‘lazy’ 1554s [00:52:34.804] - Field: ‘state’ 1554s [00:52:34.804] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1554s [00:52:34.804] - Launch lazy future ... 1554s [00:52:34.805] Packages needed by the future expression (n = 0): 1554s [00:52:34.805] Packages needed by future strategies (n = 0): 1554s [00:52:34.806] { 1554s [00:52:34.806] { 1554s [00:52:34.806] { 1554s [00:52:34.806] ...future.startTime <- base::Sys.time() 1554s [00:52:34.806] { 1554s [00:52:34.806] { 1554s [00:52:34.806] { 1554s [00:52:34.806] base::local({ 1554s [00:52:34.806] has_future <- base::requireNamespace("future", 1554s [00:52:34.806] quietly = TRUE) 1554s [00:52:34.806] if (has_future) { 1554s [00:52:34.806] ns <- base::getNamespace("future") 1554s [00:52:34.806] version <- ns[[".package"]][["version"]] 1554s [00:52:34.806] if (is.null(version)) 1554s [00:52:34.806] version <- utils::packageVersion("future") 1554s [00:52:34.806] } 1554s [00:52:34.806] else { 1554s [00:52:34.806] version <- NULL 1554s [00:52:34.806] } 1554s [00:52:34.806] if (!has_future || version < "1.8.0") { 1554s [00:52:34.806] info <- base::c(r_version = base::gsub("R version ", 1554s [00:52:34.806] "", base::R.version$version.string), 1554s [00:52:34.806] platform = base::sprintf("%s (%s-bit)", 1554s [00:52:34.806] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1554s [00:52:34.806] os = base::paste(base::Sys.info()[base::c("sysname", 1554s [00:52:34.806] "release", "version")], collapse = " "), 1554s [00:52:34.806] hostname = base::Sys.info()[["nodename"]]) 1554s [00:52:34.806] info <- base::sprintf("%s: %s", base::names(info), 1554s [00:52:34.806] info) 1554s [00:52:34.806] info <- base::paste(info, collapse = "; ") 1554s [00:52:34.806] if (!has_future) { 1554s [00:52:34.806] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1554s [00:52:34.806] info) 1554s [00:52:34.806] } 1554s [00:52:34.806] else { 1554s [00:52:34.806] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1554s [00:52:34.806] info, version) 1554s [00:52:34.806] } 1554s [00:52:34.806] base::stop(msg) 1554s [00:52:34.806] } 1554s [00:52:34.806] }) 1554s [00:52:34.806] } 1554s [00:52:34.806] options(future.plan = NULL) 1554s [00:52:34.806] Sys.unsetenv("R_FUTURE_PLAN") 1554s [00:52:34.806] future::plan("default", .cleanup = FALSE, .init = FALSE) 1554s [00:52:34.806] } 1554s [00:52:34.806] ...future.workdir <- getwd() 1554s [00:52:34.806] } 1554s [00:52:34.806] ...future.oldOptions <- base::as.list(base::.Options) 1554s [00:52:34.806] ...future.oldEnvVars <- base::Sys.getenv() 1554s [00:52:34.806] } 1554s [00:52:34.806] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1554s [00:52:34.806] future.globals.maxSize = 2097152000, future.globals.method = NULL, 1554s [00:52:34.806] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1554s [00:52:34.806] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1554s [00:52:34.806] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1554s [00:52:34.806] future.stdout.windows.reencode = NULL, width = 80L) 1554s [00:52:34.806] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1554s [00:52:34.806] base::names(...future.oldOptions)) 1554s [00:52:34.806] } 1554s [00:52:34.806] if (FALSE) { 1554s [00:52:34.806] } 1554s [00:52:34.806] else { 1554s [00:52:34.806] if (TRUE) { 1554s [00:52:34.806] ...future.stdout <- base::rawConnection(base::raw(0L), 1554s [00:52:34.806] open = "w") 1554s [00:52:34.806] } 1554s [00:52:34.806] else { 1554s [00:52:34.806] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1554s [00:52:34.806] windows = "NUL", "/dev/null"), open = "w") 1554s [00:52:34.806] } 1554s [00:52:34.806] base::sink(...future.stdout, type = "output", split = FALSE) 1554s [00:52:34.806] base::on.exit(if (!base::is.null(...future.stdout)) { 1554s [00:52:34.806] base::sink(type = "output", split = FALSE) 1554s [00:52:34.806] base::close(...future.stdout) 1554s [00:52:34.806] }, add = TRUE) 1554s [00:52:34.806] } 1554s [00:52:34.806] ...future.frame <- base::sys.nframe() 1554s [00:52:34.806] ...future.conditions <- base::list() 1554s [00:52:34.806] ...future.rng <- base::globalenv()$.Random.seed 1554s [00:52:34.806] if (FALSE) { 1554s [00:52:34.806] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1554s [00:52:34.806] "...future.value", "...future.globalenv.names", ".Random.seed") 1554s [00:52:34.806] } 1554s [00:52:34.806] ...future.result <- base::tryCatch({ 1554s [00:52:34.806] base::withCallingHandlers({ 1554s [00:52:34.806] ...future.value <- base::withVisible(base::local({ 1554s [00:52:34.806] do.call(function(...) { 1554s [00:52:34.806] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1554s [00:52:34.806] if (!identical(...future.globals.maxSize.org, 1554s [00:52:34.806] ...future.globals.maxSize)) { 1554s [00:52:34.806] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1554s [00:52:34.806] on.exit(options(oopts), add = TRUE) 1554s [00:52:34.806] } 1554s [00:52:34.806] { 1554s [00:52:34.806] lapply(seq_along(...future.elements_ii), 1554s [00:52:34.806] FUN = function(jj) { 1554s [00:52:34.806] ...future.X_jj <- ...future.elements_ii[[jj]] 1554s [00:52:34.806] ...future.FUN(...future.X_jj, ...) 1554s [00:52:34.806] }) 1554s [00:52:34.806] } 1554s [00:52:34.806] }, args = future.call.arguments) 1554s [00:52:34.806] })) 1554s [00:52:34.806] future::FutureResult(value = ...future.value$value, 1554s [00:52:34.806] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1554s [00:52:34.806] ...future.rng), globalenv = if (FALSE) 1554s [00:52:34.806] list(added = base::setdiff(base::names(base::.GlobalEnv), 1554s [00:52:34.806] ...future.globalenv.names)) 1554s [00:52:34.806] else NULL, started = ...future.startTime, version = "1.8") 1554s [00:52:34.806] }, condition = base::local({ 1554s [00:52:34.806] c <- base::c 1554s [00:52:34.806] inherits <- base::inherits 1554s [00:52:34.806] invokeRestart <- base::invokeRestart 1554s [00:52:34.806] length <- base::length 1554s [00:52:34.806] list <- base::list 1554s [00:52:34.806] seq.int <- base::seq.int 1554s [00:52:34.806] signalCondition <- base::signalCondition 1554s [00:52:34.806] sys.calls <- base::sys.calls 1554s [00:52:34.806] `[[` <- base::`[[` 1554s [00:52:34.806] `+` <- base::`+` 1554s [00:52:34.806] `<<-` <- base::`<<-` 1554s [00:52:34.806] sysCalls <- function(calls = sys.calls(), from = 1L) { 1554s [00:52:34.806] calls[seq.int(from = from + 12L, to = length(calls) - 1554s [00:52:34.806] 3L)] 1554s [00:52:34.806] } 1554s [00:52:34.806] function(cond) { 1554s [00:52:34.806] is_error <- inherits(cond, "error") 1554s [00:52:34.806] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1554s [00:52:34.806] NULL) 1554s [00:52:34.806] if (is_error) { 1554s [00:52:34.806] sessionInformation <- function() { 1554s [00:52:34.806] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1554s [00:52:34.806] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1554s [00:52:34.806] search = base::search(), system = base::Sys.info()) 1554s [00:52:34.806] } 1554s [00:52:34.806] ...future.conditions[[length(...future.conditions) + 1554s [00:52:34.806] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1554s [00:52:34.806] cond$call), session = sessionInformation(), 1554s [00:52:34.806] timestamp = base::Sys.time(), signaled = 0L) 1554s [00:52:34.806] signalCondition(cond) 1554s [00:52:34.806] } 1554s [00:52:34.806] else if (!ignore && TRUE && inherits(cond, c("condition", 1554s [00:52:34.806] "immediateCondition"))) { 1554s [00:52:34.806] signal <- TRUE && inherits(cond, "immediateCondition") 1554s [00:52:34.806] ...future.conditions[[length(...future.conditions) + 1554s [00:52:34.806] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1554s [00:52:34.806] if (TRUE && !signal) { 1554s [00:52:34.806] muffleCondition <- function (cond, pattern = "^muffle") 1554s [00:52:34.806] { 1554s [00:52:34.806] inherits <- base::inherits 1554s [00:52:34.806] invokeRestart <- base::invokeRestart 1554s [00:52:34.806] is.null <- base::is.null 1554s [00:52:34.806] muffled <- FALSE 1554s [00:52:34.806] if (inherits(cond, "message")) { 1554s [00:52:34.806] muffled <- grepl(pattern, "muffleMessage") 1554s [00:52:34.806] if (muffled) 1554s [00:52:34.806] invokeRestart("muffleMessage") 1554s [00:52:34.806] } 1554s [00:52:34.806] else if (inherits(cond, "warning")) { 1554s [00:52:34.806] muffled <- grepl(pattern, "muffleWarning") 1554s [00:52:34.806] if (muffled) 1554s [00:52:34.806] invokeRestart("muffleWarning") 1554s [00:52:34.806] } 1554s [00:52:34.806] else if (inherits(cond, "condition")) { 1554s [00:52:34.806] if (!is.null(pattern)) { 1554s [00:52:34.806] computeRestarts <- base::computeRestarts 1554s [00:52:34.806] grepl <- base::grepl 1554s [00:52:34.806] restarts <- computeRestarts(cond) 1554s [00:52:34.806] for (restart in restarts) { 1554s [00:52:34.806] name <- restart$name 1554s [00:52:34.806] if (is.null(name)) 1554s [00:52:34.806] next 1554s [00:52:34.806] if (!grepl(pattern, name)) 1554s [00:52:34.806] next 1554s [00:52:34.806] invokeRestart(restart) 1554s [00:52:34.806] muffled <- TRUE 1554s [00:52:34.806] break 1554s [00:52:34.806] } 1554s [00:52:34.806] } 1554s [00:52:34.806] } 1554s [00:52:34.806] invisible(muffled) 1554s [00:52:34.806] } 1554s [00:52:34.806] muffleCondition(cond, pattern = "^muffle") 1554s [00:52:34.806] } 1554s [00:52:34.806] } 1554s [00:52:34.806] else { 1554s [00:52:34.806] if (TRUE) { 1554s [00:52:34.806] muffleCondition <- function (cond, pattern = "^muffle") 1554s [00:52:34.806] { 1554s [00:52:34.806] inherits <- base::inherits 1554s [00:52:34.806] invokeRestart <- base::invokeRestart 1554s [00:52:34.806] is.null <- base::is.null 1554s [00:52:34.806] muffled <- FALSE 1554s [00:52:34.806] if (inherits(cond, "message")) { 1554s [00:52:34.806] muffled <- grepl(pattern, "muffleMessage") 1554s [00:52:34.806] if (muffled) 1554s [00:52:34.806] invokeRestart("muffleMessage") 1554s [00:52:34.806] } 1554s [00:52:34.806] else if (inherits(cond, "warning")) { 1554s [00:52:34.806] muffled <- grepl(pattern, "muffleWarning") 1554s [00:52:34.806] if (muffled) 1554s [00:52:34.806] invokeRestart("muffleWarning") 1554s [00:52:34.806] } 1554s [00:52:34.806] else if (inherits(cond, "condition")) { 1554s [00:52:34.806] if (!is.null(pattern)) { 1554s [00:52:34.806] computeRestarts <- base::computeRestarts 1554s [00:52:34.806] grepl <- base::grepl 1554s [00:52:34.806] restarts <- computeRestarts(cond) 1554s [00:52:34.806] for (restart in restarts) { 1554s [00:52:34.806] name <- restart$name 1554s [00:52:34.806] if (is.null(name)) 1554s [00:52:34.806] next 1554s [00:52:34.806] if (!grepl(pattern, name)) 1554s [00:52:34.806] next 1554s [00:52:34.806] invokeRestart(restart) 1554s [00:52:34.806] muffled <- TRUE 1554s [00:52:34.806] break 1554s [00:52:34.806] } 1554s [00:52:34.806] } 1554s [00:52:34.806] } 1554s [00:52:34.806] invisible(muffled) 1554s [00:52:34.806] } 1554s [00:52:34.806] muffleCondition(cond, pattern = "^muffle") 1554s [00:52:34.806] } 1554s [00:52:34.806] } 1554s [00:52:34.806] } 1554s [00:52:34.806] })) 1554s [00:52:34.806] }, error = function(ex) { 1554s [00:52:34.806] base::structure(base::list(value = NULL, visible = NULL, 1554s [00:52:34.806] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1554s [00:52:34.806] ...future.rng), started = ...future.startTime, 1554s [00:52:34.806] finished = Sys.time(), session_uuid = NA_character_, 1554s [00:52:34.806] version = "1.8"), class = "FutureResult") 1554s [00:52:34.806] }, finally = { 1554s [00:52:34.806] if (!identical(...future.workdir, getwd())) 1554s [00:52:34.806] setwd(...future.workdir) 1554s [00:52:34.806] { 1554s [00:52:34.806] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1554s [00:52:34.806] ...future.oldOptions$nwarnings <- NULL 1554s [00:52:34.806] } 1554s [00:52:34.806] base::options(...future.oldOptions) 1554s [00:52:34.806] if (.Platform$OS.type == "windows") { 1554s [00:52:34.806] old_names <- names(...future.oldEnvVars) 1554s [00:52:34.806] envs <- base::Sys.getenv() 1554s [00:52:34.806] names <- names(envs) 1554s [00:52:34.806] common <- intersect(names, old_names) 1554s [00:52:34.806] added <- setdiff(names, old_names) 1554s [00:52:34.806] removed <- setdiff(old_names, names) 1554s [00:52:34.806] changed <- common[...future.oldEnvVars[common] != 1554s [00:52:34.806] envs[common]] 1554s [00:52:34.806] NAMES <- toupper(changed) 1554s [00:52:34.806] args <- list() 1554s [00:52:34.806] for (kk in seq_along(NAMES)) { 1554s [00:52:34.806] name <- changed[[kk]] 1554s [00:52:34.806] NAME <- NAMES[[kk]] 1554s [00:52:34.806] if (name != NAME && is.element(NAME, old_names)) 1554s [00:52:34.806] next 1554s [00:52:34.806] args[[name]] <- ...future.oldEnvVars[[name]] 1554s [00:52:34.806] } 1554s [00:52:34.806] NAMES <- toupper(added) 1554s [00:52:34.806] for (kk in seq_along(NAMES)) { 1554s [00:52:34.806] name <- added[[kk]] 1554s [00:52:34.806] NAME <- NAMES[[kk]] 1554s [00:52:34.806] if (name != NAME && is.element(NAME, old_names)) 1554s [00:52:34.806] next 1554s [00:52:34.806] args[[name]] <- "" 1554s [00:52:34.806] } 1554s [00:52:34.806] NAMES <- toupper(removed) 1554s [00:52:34.806] for (kk in seq_along(NAMES)) { 1554s [00:52:34.806] name <- removed[[kk]] 1554s [00:52:34.806] NAME <- NAMES[[kk]] 1554s [00:52:34.806] if (name != NAME && is.element(NAME, old_names)) 1554s [00:52:34.806] next 1554s [00:52:34.806] args[[name]] <- ...future.oldEnvVars[[name]] 1554s [00:52:34.806] } 1554s [00:52:34.806] if (length(args) > 0) 1554s [00:52:34.806] base::do.call(base::Sys.setenv, args = args) 1554s [00:52:34.806] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1554s [00:52:34.806] } 1554s [00:52:34.806] else { 1554s [00:52:34.806] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1554s [00:52:34.806] } 1554s [00:52:34.806] { 1554s [00:52:34.806] if (base::length(...future.futureOptionsAdded) > 1554s [00:52:34.806] 0L) { 1554s [00:52:34.806] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1554s [00:52:34.806] base::names(opts) <- ...future.futureOptionsAdded 1554s [00:52:34.806] base::options(opts) 1554s [00:52:34.806] } 1554s [00:52:34.806] { 1554s [00:52:34.806] { 1554s [00:52:34.806] NULL 1554s [00:52:34.806] RNGkind("Mersenne-Twister") 1554s [00:52:34.806] base::rm(list = ".Random.seed", envir = base::globalenv(), 1554s [00:52:34.806] inherits = FALSE) 1554s [00:52:34.806] } 1554s [00:52:34.806] options(future.plan = NULL) 1554s [00:52:34.806] if (is.na(NA_character_)) 1554s [00:52:34.806] Sys.unsetenv("R_FUTURE_PLAN") 1554s [00:52:34.806] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1554s [00:52:34.806] future::plan(list(function (..., workers = availableCores(), 1554s [00:52:34.806] lazy = FALSE, rscript_libs = .libPaths(), 1554s [00:52:34.806] envir = parent.frame()) 1554s [00:52:34.806] { 1554s [00:52:34.806] if (is.function(workers)) 1554s [00:52:34.806] workers <- workers() 1554s [00:52:34.806] workers <- structure(as.integer(workers), 1554s [00:52:34.806] class = class(workers)) 1554s [00:52:34.806] stop_if_not(length(workers) == 1, is.finite(workers), 1554s [00:52:34.806] workers >= 1) 1554s [00:52:34.806] if (workers == 1L && !inherits(workers, "AsIs")) { 1554s [00:52:34.806] return(sequential(..., lazy = TRUE, envir = envir)) 1554s [00:52:34.806] } 1554s [00:52:34.806] future <- MultisessionFuture(..., workers = workers, 1554s [00:52:34.806] lazy = lazy, rscript_libs = rscript_libs, 1554s [00:52:34.806] envir = envir) 1554s [00:52:34.806] if (!future$lazy) 1554s [00:52:34.806] future <- run(future) 1554s [00:52:34.806] invisible(future) 1554s [00:52:34.806] }), .cleanup = FALSE, .init = FALSE) 1554s [00:52:34.806] } 1554s [00:52:34.806] } 1554s [00:52:34.806] } 1554s [00:52:34.806] }) 1554s [00:52:34.806] if (TRUE) { 1554s [00:52:34.806] base::sink(type = "output", split = FALSE) 1554s [00:52:34.806] if (TRUE) { 1554s [00:52:34.806] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1554s [00:52:34.806] } 1554s [00:52:34.806] else { 1554s [00:52:34.806] ...future.result["stdout"] <- base::list(NULL) 1554s [00:52:34.806] } 1554s [00:52:34.806] base::close(...future.stdout) 1554s [00:52:34.806] ...future.stdout <- NULL 1554s [00:52:34.806] } 1554s [00:52:34.806] ...future.result$conditions <- ...future.conditions 1554s [00:52:34.806] ...future.result$finished <- base::Sys.time() 1554s [00:52:34.806] ...future.result 1554s [00:52:34.806] } 1554s [00:52:34.811] assign_globals() ... 1554s [00:52:34.811] List of 5 1554s [00:52:34.811] $ ...future.FUN :function (mode = "logical", length = 0L) 1554s [00:52:34.811] $ future.call.arguments :List of 1 1554s [00:52:34.811] ..$ length: int 2 1554s [00:52:34.811] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1554s [00:52:34.811] $ ...future.elements_ii :List of 1 1554s [00:52:34.811] ..$ b: chr "numeric" 1554s [00:52:34.811] $ ...future.seeds_ii : NULL 1554s [00:52:34.811] $ ...future.globals.maxSize: NULL 1554s [00:52:34.811] - attr(*, "where")=List of 5 1554s [00:52:34.811] ..$ ...future.FUN : 1554s [00:52:34.811] ..$ future.call.arguments : 1554s [00:52:34.811] ..$ ...future.elements_ii : 1554s [00:52:34.811] ..$ ...future.seeds_ii : 1554s [00:52:34.811] ..$ ...future.globals.maxSize: 1554s [00:52:34.811] - attr(*, "resolved")= logi FALSE 1554s [00:52:34.811] - attr(*, "total_size")= num 2240 1554s [00:52:34.811] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1554s [00:52:34.811] - attr(*, "already-done")= logi TRUE 1554s [00:52:34.820] - copied ‘...future.FUN’ to environment 1554s [00:52:34.820] - copied ‘future.call.arguments’ to environment 1554s [00:52:34.820] - copied ‘...future.elements_ii’ to environment 1554s [00:52:34.821] - copied ‘...future.seeds_ii’ to environment 1554s [00:52:34.821] - copied ‘...future.globals.maxSize’ to environment 1554s [00:52:34.821] assign_globals() ... done 1554s [00:52:34.822] plan(): Setting new future strategy stack: 1554s [00:52:34.822] List of future strategies: 1554s [00:52:34.822] 1. sequential: 1554s [00:52:34.822] - args: function (..., envir = parent.frame()) 1554s [00:52:34.822] - tweaked: FALSE 1554s [00:52:34.822] - call: NULL 1554s [00:52:34.823] plan(): nbrOfWorkers() = 1 1554s [00:52:34.824] plan(): Setting new future strategy stack: 1554s [00:52:34.824] List of future strategies: 1554s [00:52:34.824] 1. multisession: 1554s [00:52:34.824] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1554s [00:52:34.824] - tweaked: FALSE 1554s [00:52:34.824] - call: plan(strategy) 1554s [00:52:34.828] plan(): nbrOfWorkers() = 1 1554s [00:52:34.828] SequentialFuture started (and completed) 1554s [00:52:34.829] - Launch lazy future ... done 1554s [00:52:34.829] run() for ‘SequentialFuture’ ... done 1554s [00:52:34.829] Created future: 1554s [00:52:34.829] SequentialFuture: 1554s [00:52:34.829] Label: ‘future_lapply-2’ 1554s [00:52:34.829] Expression: 1554s [00:52:34.829] { 1554s [00:52:34.829] do.call(function(...) { 1554s [00:52:34.829] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1554s [00:52:34.829] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1554s [00:52:34.829] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1554s [00:52:34.829] on.exit(options(oopts), add = TRUE) 1554s [00:52:34.829] } 1554s [00:52:34.829] { 1554s [00:52:34.829] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1554s [00:52:34.829] ...future.X_jj <- ...future.elements_ii[[jj]] 1554s [00:52:34.829] ...future.FUN(...future.X_jj, ...) 1554s [00:52:34.829] }) 1554s [00:52:34.829] } 1554s [00:52:34.829] }, args = future.call.arguments) 1554s [00:52:34.829] } 1554s [00:52:34.829] Lazy evaluation: FALSE 1554s [00:52:34.829] Asynchronous evaluation: FALSE 1554s [00:52:34.829] Local evaluation: TRUE 1554s [00:52:34.829] Environment: R_GlobalEnv 1554s [00:52:34.829] Capture standard output: TRUE 1554s [00:52:34.829] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1554s [00:52:34.829] Globals: 5 objects totaling 2.30 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1554s [00:52:34.829] Packages: 1554s [00:52:34.829] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1554s [00:52:34.829] Resolved: TRUE 1554s [00:52:34.829] Value: 64 bytes of class ‘list’ 1554s [00:52:34.829] Early signaling: FALSE 1554s [00:52:34.829] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1554s [00:52:34.829] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1554s [00:52:34.831] Chunk #2 of 4 ... DONE 1554s [00:52:34.832] Chunk #3 of 4 ... 1554s [00:52:34.832] - Finding globals in 'X' for chunk #3 ... 1554s [00:52:34.832] getGlobalsAndPackages() ... 1554s [00:52:34.832] Searching for globals... 1554s [00:52:34.833] 1554s [00:52:34.833] Searching for globals ... DONE 1554s [00:52:34.833] - globals: [0] 1554s [00:52:34.833] getGlobalsAndPackages() ... DONE 1554s [00:52:34.834] + additional globals found: [n=0] 1554s [00:52:34.834] + additional namespaces needed: [n=0] 1554s [00:52:34.834] - Finding globals in 'X' for chunk #3 ... DONE 1554s [00:52:34.834] - Adjusted option 'future.globals.maxSize': 524288000 -> 4 * 524288000 = 2097152000 (bytes) 1554s [00:52:34.835] - seeds: 1554s [00:52:34.835] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1554s [00:52:34.835] getGlobalsAndPackages() ... 1554s [00:52:34.835] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1554s [00:52:34.836] Resolving globals: FALSE 1554s [00:52:34.836] Tweak future expression to call with '...' arguments ... 1554s [00:52:34.836] { 1554s [00:52:34.836] do.call(function(...) { 1554s [00:52:34.836] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1554s [00:52:34.836] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1554s [00:52:34.836] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1554s [00:52:34.836] on.exit(options(oopts), add = TRUE) 1554s [00:52:34.836] } 1554s [00:52:34.836] { 1554s [00:52:34.836] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1554s [00:52:34.836] ...future.X_jj <- ...future.elements_ii[[jj]] 1554s [00:52:34.836] ...future.FUN(...future.X_jj, ...) 1554s [00:52:34.836] }) 1554s [00:52:34.836] } 1554s [00:52:34.836] }, args = future.call.arguments) 1554s [00:52:34.836] } 1554s [00:52:34.837] Tweak future expression to call with '...' arguments ... DONE 1554s [00:52:34.837] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1554s [00:52:34.838] 1554s [00:52:34.838] getGlobalsAndPackages() ... DONE 1554s [00:52:34.838] run() for ‘Future’ ... 1554s [00:52:34.839] - state: ‘created’ 1554s [00:52:34.839] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1554s [00:52:34.844] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1554s [00:52:34.844] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1554s [00:52:34.845] - Field: ‘label’ 1554s [00:52:34.845] - Field: ‘local’ 1554s [00:52:34.845] - Field: ‘owner’ 1554s [00:52:34.845] - Field: ‘envir’ 1554s [00:52:34.845] - Field: ‘packages’ 1554s [00:52:34.846] - Field: ‘gc’ 1554s [00:52:34.846] - Field: ‘conditions’ 1554s [00:52:34.846] - Field: ‘expr’ 1554s [00:52:34.847] - Field: ‘uuid’ 1554s [00:52:34.847] - Field: ‘seed’ 1554s [00:52:34.847] - Field: ‘version’ 1554s [00:52:34.847] - Field: ‘result’ 1554s [00:52:34.847] - Field: ‘asynchronous’ 1554s [00:52:34.847] - Field: ‘calls’ 1554s [00:52:34.848] - Field: ‘globals’ 1554s [00:52:34.848] - Field: ‘stdout’ 1554s [00:52:34.848] - Field: ‘earlySignal’ 1554s [00:52:34.848] - Field: ‘lazy’ 1554s [00:52:34.849] - Field: ‘state’ 1554s [00:52:34.849] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1554s [00:52:34.849] - Launch lazy future ... 1554s [00:52:34.849] Packages needed by the future expression (n = 0): 1554s [00:52:34.850] Packages needed by future strategies (n = 0): 1554s [00:52:34.851] { 1554s [00:52:34.851] { 1554s [00:52:34.851] { 1554s [00:52:34.851] ...future.startTime <- base::Sys.time() 1554s [00:52:34.851] { 1554s [00:52:34.851] { 1554s [00:52:34.851] { 1554s [00:52:34.851] base::local({ 1554s [00:52:34.851] has_future <- base::requireNamespace("future", 1554s [00:52:34.851] quietly = TRUE) 1554s [00:52:34.851] if (has_future) { 1554s [00:52:34.851] ns <- base::getNamespace("future") 1554s [00:52:34.851] version <- ns[[".package"]][["version"]] 1554s [00:52:34.851] if (is.null(version)) 1554s [00:52:34.851] version <- utils::packageVersion("future") 1554s [00:52:34.851] } 1554s [00:52:34.851] else { 1554s [00:52:34.851] version <- NULL 1554s [00:52:34.851] } 1554s [00:52:34.851] if (!has_future || version < "1.8.0") { 1554s [00:52:34.851] info <- base::c(r_version = base::gsub("R version ", 1554s [00:52:34.851] "", base::R.version$version.string), 1554s [00:52:34.851] platform = base::sprintf("%s (%s-bit)", 1554s [00:52:34.851] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1554s [00:52:34.851] os = base::paste(base::Sys.info()[base::c("sysname", 1554s [00:52:34.851] "release", "version")], collapse = " "), 1554s [00:52:34.851] hostname = base::Sys.info()[["nodename"]]) 1554s [00:52:34.851] info <- base::sprintf("%s: %s", base::names(info), 1554s [00:52:34.851] info) 1554s [00:52:34.851] info <- base::paste(info, collapse = "; ") 1554s [00:52:34.851] if (!has_future) { 1554s [00:52:34.851] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1554s [00:52:34.851] info) 1554s [00:52:34.851] } 1554s [00:52:34.851] else { 1554s [00:52:34.851] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1554s [00:52:34.851] info, version) 1554s [00:52:34.851] } 1554s [00:52:34.851] base::stop(msg) 1554s [00:52:34.851] } 1554s [00:52:34.851] }) 1554s [00:52:34.851] } 1554s [00:52:34.851] options(future.plan = NULL) 1554s [00:52:34.851] Sys.unsetenv("R_FUTURE_PLAN") 1554s [00:52:34.851] future::plan("default", .cleanup = FALSE, .init = FALSE) 1554s [00:52:34.851] } 1554s [00:52:34.851] ...future.workdir <- getwd() 1554s [00:52:34.851] } 1554s [00:52:34.851] ...future.oldOptions <- base::as.list(base::.Options) 1554s [00:52:34.851] ...future.oldEnvVars <- base::Sys.getenv() 1554s [00:52:34.851] } 1554s [00:52:34.851] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1554s [00:52:34.851] future.globals.maxSize = 2097152000, future.globals.method = NULL, 1554s [00:52:34.851] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1554s [00:52:34.851] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1554s [00:52:34.851] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1554s [00:52:34.851] future.stdout.windows.reencode = NULL, width = 80L) 1554s [00:52:34.851] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1554s [00:52:34.851] base::names(...future.oldOptions)) 1554s [00:52:34.851] } 1554s [00:52:34.851] if (FALSE) { 1554s [00:52:34.851] } 1554s [00:52:34.851] else { 1554s [00:52:34.851] if (TRUE) { 1554s [00:52:34.851] ...future.stdout <- base::rawConnection(base::raw(0L), 1554s [00:52:34.851] open = "w") 1554s [00:52:34.851] } 1554s [00:52:34.851] else { 1554s [00:52:34.851] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1554s [00:52:34.851] windows = "NUL", "/dev/null"), open = "w") 1554s [00:52:34.851] } 1554s [00:52:34.851] base::sink(...future.stdout, type = "output", split = FALSE) 1554s [00:52:34.851] base::on.exit(if (!base::is.null(...future.stdout)) { 1554s [00:52:34.851] base::sink(type = "output", split = FALSE) 1554s [00:52:34.851] base::close(...future.stdout) 1554s [00:52:34.851] }, add = TRUE) 1554s [00:52:34.851] } 1554s [00:52:34.851] ...future.frame <- base::sys.nframe() 1554s [00:52:34.851] ...future.conditions <- base::list() 1554s [00:52:34.851] ...future.rng <- base::globalenv()$.Random.seed 1554s [00:52:34.851] if (FALSE) { 1554s [00:52:34.851] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1554s [00:52:34.851] "...future.value", "...future.globalenv.names", ".Random.seed") 1554s [00:52:34.851] } 1554s [00:52:34.851] ...future.result <- base::tryCatch({ 1554s [00:52:34.851] base::withCallingHandlers({ 1554s [00:52:34.851] ...future.value <- base::withVisible(base::local({ 1554s [00:52:34.851] do.call(function(...) { 1554s [00:52:34.851] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1554s [00:52:34.851] if (!identical(...future.globals.maxSize.org, 1554s [00:52:34.851] ...future.globals.maxSize)) { 1554s [00:52:34.851] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1554s [00:52:34.851] on.exit(options(oopts), add = TRUE) 1554s [00:52:34.851] } 1554s [00:52:34.851] { 1554s [00:52:34.851] lapply(seq_along(...future.elements_ii), 1554s [00:52:34.851] FUN = function(jj) { 1554s [00:52:34.851] ...future.X_jj <- ...future.elements_ii[[jj]] 1554s [00:52:34.851] ...future.FUN(...future.X_jj, ...) 1554s [00:52:34.851] }) 1554s [00:52:34.851] } 1554s [00:52:34.851] }, args = future.call.arguments) 1554s [00:52:34.851] })) 1554s [00:52:34.851] future::FutureResult(value = ...future.value$value, 1554s [00:52:34.851] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1554s [00:52:34.851] ...future.rng), globalenv = if (FALSE) 1554s [00:52:34.851] list(added = base::setdiff(base::names(base::.GlobalEnv), 1554s [00:52:34.851] ...future.globalenv.names)) 1554s [00:52:34.851] else NULL, started = ...future.startTime, version = "1.8") 1554s [00:52:34.851] }, condition = base::local({ 1554s [00:52:34.851] c <- base::c 1554s [00:52:34.851] inherits <- base::inherits 1554s [00:52:34.851] invokeRestart <- base::invokeRestart 1554s [00:52:34.851] length <- base::length 1554s [00:52:34.851] list <- base::list 1554s [00:52:34.851] seq.int <- base::seq.int 1554s [00:52:34.851] signalCondition <- base::signalCondition 1554s [00:52:34.851] sys.calls <- base::sys.calls 1554s [00:52:34.851] `[[` <- base::`[[` 1554s [00:52:34.851] `+` <- base::`+` 1554s [00:52:34.851] `<<-` <- base::`<<-` 1554s [00:52:34.851] sysCalls <- function(calls = sys.calls(), from = 1L) { 1554s [00:52:34.851] calls[seq.int(from = from + 12L, to = length(calls) - 1554s [00:52:34.851] 3L)] 1554s [00:52:34.851] } 1554s [00:52:34.851] function(cond) { 1554s [00:52:34.851] is_error <- inherits(cond, "error") 1554s [00:52:34.851] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1554s [00:52:34.851] NULL) 1554s [00:52:34.851] if (is_error) { 1554s [00:52:34.851] sessionInformation <- function() { 1554s [00:52:34.851] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1554s [00:52:34.851] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1554s [00:52:34.851] search = base::search(), system = base::Sys.info()) 1554s [00:52:34.851] } 1554s [00:52:34.851] ...future.conditions[[length(...future.conditions) + 1554s [00:52:34.851] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1554s [00:52:34.851] cond$call), session = sessionInformation(), 1554s [00:52:34.851] timestamp = base::Sys.time(), signaled = 0L) 1554s [00:52:34.851] signalCondition(cond) 1554s [00:52:34.851] } 1554s [00:52:34.851] else if (!ignore && TRUE && inherits(cond, c("condition", 1554s [00:52:34.851] "immediateCondition"))) { 1554s [00:52:34.851] signal <- TRUE && inherits(cond, "immediateCondition") 1554s [00:52:34.851] ...future.conditions[[length(...future.conditions) + 1554s [00:52:34.851] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1554s [00:52:34.851] if (TRUE && !signal) { 1554s [00:52:34.851] muffleCondition <- function (cond, pattern = "^muffle") 1554s [00:52:34.851] { 1554s [00:52:34.851] inherits <- base::inherits 1554s [00:52:34.851] invokeRestart <- base::invokeRestart 1554s [00:52:34.851] is.null <- base::is.null 1554s [00:52:34.851] muffled <- FALSE 1554s [00:52:34.851] if (inherits(cond, "message")) { 1554s [00:52:34.851] muffled <- grepl(pattern, "muffleMessage") 1554s [00:52:34.851] if (muffled) 1554s [00:52:34.851] invokeRestart("muffleMessage") 1554s [00:52:34.851] } 1554s [00:52:34.851] else if (inherits(cond, "warning")) { 1554s [00:52:34.851] muffled <- grepl(pattern, "muffleWarning") 1554s [00:52:34.851] if (muffled) 1554s [00:52:34.851] invokeRestart("muffleWarning") 1554s [00:52:34.851] } 1554s [00:52:34.851] else if (inherits(cond, "condition")) { 1554s [00:52:34.851] if (!is.null(pattern)) { 1554s [00:52:34.851] computeRestarts <- base::computeRestarts 1554s [00:52:34.851] grepl <- base::grepl 1554s [00:52:34.851] restarts <- computeRestarts(cond) 1554s [00:52:34.851] for (restart in restarts) { 1554s [00:52:34.851] name <- restart$name 1554s [00:52:34.851] if (is.null(name)) 1554s [00:52:34.851] next 1554s [00:52:34.851] if (!grepl(pattern, name)) 1554s [00:52:34.851] next 1554s [00:52:34.851] invokeRestart(restart) 1554s [00:52:34.851] muffled <- TRUE 1554s [00:52:34.851] break 1554s [00:52:34.851] } 1554s [00:52:34.851] } 1554s [00:52:34.851] } 1554s [00:52:34.851] invisible(muffled) 1554s [00:52:34.851] } 1554s [00:52:34.851] muffleCondition(cond, pattern = "^muffle") 1554s [00:52:34.851] } 1554s [00:52:34.851] } 1554s [00:52:34.851] else { 1554s [00:52:34.851] if (TRUE) { 1554s [00:52:34.851] muffleCondition <- function (cond, pattern = "^muffle") 1554s [00:52:34.851] { 1554s [00:52:34.851] inherits <- base::inherits 1554s [00:52:34.851] invokeRestart <- base::invokeRestart 1554s [00:52:34.851] is.null <- base::is.null 1554s [00:52:34.851] muffled <- FALSE 1554s [00:52:34.851] if (inherits(cond, "message")) { 1554s [00:52:34.851] muffled <- grepl(pattern, "muffleMessage") 1554s [00:52:34.851] if (muffled) 1554s [00:52:34.851] invokeRestart("muffleMessage") 1554s [00:52:34.851] } 1554s [00:52:34.851] else if (inherits(cond, "warning")) { 1554s [00:52:34.851] muffled <- grepl(pattern, "muffleWarning") 1554s [00:52:34.851] if (muffled) 1554s [00:52:34.851] invokeRestart("muffleWarning") 1554s [00:52:34.851] } 1554s [00:52:34.851] else if (inherits(cond, "condition")) { 1554s [00:52:34.851] if (!is.null(pattern)) { 1554s [00:52:34.851] computeRestarts <- base::computeRestarts 1554s [00:52:34.851] grepl <- base::grepl 1554s [00:52:34.851] restarts <- computeRestarts(cond) 1554s [00:52:34.851] for (restart in restarts) { 1554s [00:52:34.851] name <- restart$name 1554s [00:52:34.851] if (is.null(name)) 1554s [00:52:34.851] next 1554s [00:52:34.851] if (!grepl(pattern, name)) 1554s [00:52:34.851] next 1554s [00:52:34.851] invokeRestart(restart) 1554s [00:52:34.851] muffled <- TRUE 1554s [00:52:34.851] break 1554s [00:52:34.851] } 1554s [00:52:34.851] } 1554s [00:52:34.851] } 1554s [00:52:34.851] invisible(muffled) 1554s [00:52:34.851] } 1554s [00:52:34.851] muffleCondition(cond, pattern = "^muffle") 1554s [00:52:34.851] } 1554s [00:52:34.851] } 1554s [00:52:34.851] } 1554s [00:52:34.851] })) 1554s [00:52:34.851] }, error = function(ex) { 1554s [00:52:34.851] base::structure(base::list(value = NULL, visible = NULL, 1554s [00:52:34.851] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1554s [00:52:34.851] ...future.rng), started = ...future.startTime, 1554s [00:52:34.851] finished = Sys.time(), session_uuid = NA_character_, 1554s [00:52:34.851] version = "1.8"), class = "FutureResult") 1554s [00:52:34.851] }, finally = { 1554s [00:52:34.851] if (!identical(...future.workdir, getwd())) 1554s [00:52:34.851] setwd(...future.workdir) 1554s [00:52:34.851] { 1554s [00:52:34.851] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1554s [00:52:34.851] ...future.oldOptions$nwarnings <- NULL 1554s [00:52:34.851] } 1554s [00:52:34.851] base::options(...future.oldOptions) 1554s [00:52:34.851] if (.Platform$OS.type == "windows") { 1554s [00:52:34.851] old_names <- names(...future.oldEnvVars) 1554s [00:52:34.851] envs <- base::Sys.getenv() 1554s [00:52:34.851] names <- names(envs) 1554s [00:52:34.851] common <- intersect(names, old_names) 1554s [00:52:34.851] added <- setdiff(names, old_names) 1554s [00:52:34.851] removed <- setdiff(old_names, names) 1554s [00:52:34.851] changed <- common[...future.oldEnvVars[common] != 1554s [00:52:34.851] envs[common]] 1554s [00:52:34.851] NAMES <- toupper(changed) 1554s [00:52:34.851] args <- list() 1554s [00:52:34.851] for (kk in seq_along(NAMES)) { 1554s [00:52:34.851] name <- changed[[kk]] 1554s [00:52:34.851] NAME <- NAMES[[kk]] 1554s [00:52:34.851] if (name != NAME && is.element(NAME, old_names)) 1554s [00:52:34.851] next 1554s [00:52:34.851] args[[name]] <- ...future.oldEnvVars[[name]] 1554s [00:52:34.851] } 1554s [00:52:34.851] NAMES <- toupper(added) 1554s [00:52:34.851] for (kk in seq_along(NAMES)) { 1554s [00:52:34.851] name <- added[[kk]] 1554s [00:52:34.851] NAME <- NAMES[[kk]] 1554s [00:52:34.851] if (name != NAME && is.element(NAME, old_names)) 1554s [00:52:34.851] next 1554s [00:52:34.851] args[[name]] <- "" 1554s [00:52:34.851] } 1554s [00:52:34.851] NAMES <- toupper(removed) 1554s [00:52:34.851] for (kk in seq_along(NAMES)) { 1554s [00:52:34.851] name <- removed[[kk]] 1554s [00:52:34.851] NAME <- NAMES[[kk]] 1554s [00:52:34.851] if (name != NAME && is.element(NAME, old_names)) 1554s [00:52:34.851] next 1554s [00:52:34.851] args[[name]] <- ...future.oldEnvVars[[name]] 1554s [00:52:34.851] } 1554s [00:52:34.851] if (length(args) > 0) 1554s [00:52:34.851] base::do.call(base::Sys.setenv, args = args) 1554s [00:52:34.851] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1554s [00:52:34.851] } 1554s [00:52:34.851] else { 1554s [00:52:34.851] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1554s [00:52:34.851] } 1554s [00:52:34.851] { 1554s [00:52:34.851] if (base::length(...future.futureOptionsAdded) > 1554s [00:52:34.851] 0L) { 1554s [00:52:34.851] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1554s [00:52:34.851] base::names(opts) <- ...future.futureOptionsAdded 1554s [00:52:34.851] base::options(opts) 1554s [00:52:34.851] } 1554s [00:52:34.851] { 1554s [00:52:34.851] { 1554s [00:52:34.851] NULL 1554s [00:52:34.851] RNGkind("Mersenne-Twister") 1554s [00:52:34.851] base::rm(list = ".Random.seed", envir = base::globalenv(), 1554s [00:52:34.851] inherits = FALSE) 1554s [00:52:34.851] } 1554s [00:52:34.851] options(future.plan = NULL) 1554s [00:52:34.851] if (is.na(NA_character_)) 1554s [00:52:34.851] Sys.unsetenv("R_FUTURE_PLAN") 1554s [00:52:34.851] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1554s [00:52:34.851] future::plan(list(function (..., workers = availableCores(), 1554s [00:52:34.851] lazy = FALSE, rscript_libs = .libPaths(), 1554s [00:52:34.851] envir = parent.frame()) 1554s [00:52:34.851] { 1554s [00:52:34.851] if (is.function(workers)) 1554s [00:52:34.851] workers <- workers() 1554s [00:52:34.851] workers <- structure(as.integer(workers), 1554s [00:52:34.851] class = class(workers)) 1554s [00:52:34.851] stop_if_not(length(workers) == 1, is.finite(workers), 1554s [00:52:34.851] workers >= 1) 1554s [00:52:34.851] if (workers == 1L && !inherits(workers, "AsIs")) { 1554s [00:52:34.851] return(sequential(..., lazy = TRUE, envir = envir)) 1554s [00:52:34.851] } 1554s [00:52:34.851] future <- MultisessionFuture(..., workers = workers, 1554s [00:52:34.851] lazy = lazy, rscript_libs = rscript_libs, 1554s [00:52:34.851] envir = envir) 1554s [00:52:34.851] if (!future$lazy) 1554s [00:52:34.851] future <- run(future) 1554s [00:52:34.851] invisible(future) 1554s [00:52:34.851] }), .cleanup = FALSE, .init = FALSE) 1554s [00:52:34.851] } 1554s [00:52:34.851] } 1554s [00:52:34.851] } 1554s [00:52:34.851] }) 1554s [00:52:34.851] if (TRUE) { 1554s [00:52:34.851] base::sink(type = "output", split = FALSE) 1554s [00:52:34.851] if (TRUE) { 1554s [00:52:34.851] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1554s [00:52:34.851] } 1554s [00:52:34.851] else { 1554s [00:52:34.851] ...future.result["stdout"] <- base::list(NULL) 1554s [00:52:34.851] } 1554s [00:52:34.851] base::close(...future.stdout) 1554s [00:52:34.851] ...future.stdout <- NULL 1554s [00:52:34.851] } 1554s [00:52:34.851] ...future.result$conditions <- ...future.conditions 1554s [00:52:34.851] ...future.result$finished <- base::Sys.time() 1554s [00:52:34.851] ...future.result 1554s [00:52:34.851] } 1554s [00:52:34.859] assign_globals() ... 1554s [00:52:34.859] List of 5 1554s [00:52:34.859] $ ...future.FUN :function (mode = "logical", length = 0L) 1554s [00:52:34.859] $ future.call.arguments :List of 1 1554s [00:52:34.859] ..$ length: int 2 1554s [00:52:34.859] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1554s [00:52:34.859] $ ...future.elements_ii :List of 1 1554s [00:52:34.859] ..$ c: chr "character" 1554s [00:52:34.859] $ ...future.seeds_ii : NULL 1554s [00:52:34.859] $ ...future.globals.maxSize: NULL 1554s [00:52:34.859] - attr(*, "where")=List of 5 1554s [00:52:34.859] ..$ ...future.FUN : 1554s [00:52:34.859] ..$ future.call.arguments : 1554s [00:52:34.859] ..$ ...future.elements_ii : 1554s [00:52:34.859] ..$ ...future.seeds_ii : 1554s [00:52:34.859] ..$ ...future.globals.maxSize: 1554s [00:52:34.859] - attr(*, "resolved")= logi FALSE 1554s [00:52:34.859] - attr(*, "total_size")= num 2240 1554s [00:52:34.859] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1554s [00:52:34.859] - attr(*, "already-done")= logi TRUE 1554s [00:52:34.873] - copied ‘...future.FUN’ to environment 1554s [00:52:34.873] - copied ‘future.call.arguments’ to environment 1554s [00:52:34.873] - copied ‘...future.elements_ii’ to environment 1554s [00:52:34.874] - copied ‘...future.seeds_ii’ to environment 1554s [00:52:34.874] - copied ‘...future.globals.maxSize’ to environment 1554s [00:52:34.874] assign_globals() ... done 1554s [00:52:34.875] plan(): Setting new future strategy stack: 1554s [00:52:34.875] List of future strategies: 1554s [00:52:34.875] 1. sequential: 1554s [00:52:34.875] - args: function (..., envir = parent.frame()) 1554s [00:52:34.875] - tweaked: FALSE 1554s [00:52:34.875] - call: NULL 1554s [00:52:34.876] plan(): nbrOfWorkers() = 1 1554s [00:52:34.877] plan(): Setting new future strategy stack: 1554s [00:52:34.877] List of future strategies: 1554s [00:52:34.877] 1. multisession: 1554s [00:52:34.877] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1554s [00:52:34.877] - tweaked: FALSE 1554s [00:52:34.877] - call: plan(strategy) 1554s [00:52:34.882] plan(): nbrOfWorkers() = 1 1554s [00:52:34.883] SequentialFuture started (and completed) 1554s [00:52:34.883] - Launch lazy future ... done 1554s [00:52:34.883] run() for ‘SequentialFuture’ ... done 1554s [00:52:34.883] Created future: 1554s [00:52:34.883] SequentialFuture: 1554s [00:52:34.883] Label: ‘future_lapply-3’ 1554s [00:52:34.883] Expression: 1554s [00:52:34.883] { 1554s [00:52:34.883] do.call(function(...) { 1554s [00:52:34.883] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1554s [00:52:34.883] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1554s [00:52:34.883] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1554s [00:52:34.883] on.exit(options(oopts), add = TRUE) 1554s [00:52:34.883] } 1554s [00:52:34.883] { 1554s [00:52:34.883] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1554s [00:52:34.883] ...future.X_jj <- ...future.elements_ii[[jj]] 1554s [00:52:34.883] ...future.FUN(...future.X_jj, ...) 1554s [00:52:34.883] }) 1554s [00:52:34.883] } 1554s [00:52:34.883] }, args = future.call.arguments) 1554s [00:52:34.883] } 1554s [00:52:34.883] Lazy evaluation: FALSE 1554s [00:52:34.883] Asynchronous evaluation: FALSE 1554s [00:52:34.883] Local evaluation: TRUE 1554s [00:52:34.883] Environment: R_GlobalEnv 1554s [00:52:34.883] Capture standard output: TRUE 1554s [00:52:34.883] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1554s [00:52:34.883] Globals: 5 objects totaling 2.30 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 120 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1554s [00:52:34.883] Packages: 1554s [00:52:34.883] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1554s [00:52:34.883] Resolved: TRUE 1554s [00:52:34.883] Value: 120 bytes of class ‘list’ 1554s [00:52:34.883] Early signaling: FALSE 1554s [00:52:34.883] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1554s [00:52:34.883] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1554s [00:52:34.885] Chunk #3 of 4 ... DONE 1554s [00:52:34.885] Chunk #4 of 4 ... 1554s [00:52:34.885] - Finding globals in 'X' for chunk #4 ... 1554s [00:52:34.885] getGlobalsAndPackages() ... 1554s [00:52:34.885] Searching for globals... 1554s [00:52:34.886] 1554s [00:52:34.886] Searching for globals ... DONE 1554s [00:52:34.886] - globals: [0] 1554s [00:52:34.886] getGlobalsAndPackages() ... DONE 1554s [00:52:34.886] + additional globals found: [n=0] 1554s [00:52:34.886] + additional namespaces needed: [n=0] 1554s [00:52:34.886] - Finding globals in 'X' for chunk #4 ... DONE 1554s [00:52:34.887] - Adjusted option 'future.globals.maxSize': 524288000 -> 4 * 524288000 = 2097152000 (bytes) 1554s [00:52:34.887] - seeds: 1554s [00:52:34.887] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1554s [00:52:34.887] getGlobalsAndPackages() ... 1554s [00:52:34.887] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1554s [00:52:34.887] Resolving globals: FALSE 1554s [00:52:34.888] Tweak future expression to call with '...' arguments ... 1554s [00:52:34.888] { 1554s [00:52:34.888] do.call(function(...) { 1554s [00:52:34.888] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1554s [00:52:34.888] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1554s [00:52:34.888] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1554s [00:52:34.888] on.exit(options(oopts), add = TRUE) 1554s [00:52:34.888] } 1554s [00:52:34.888] { 1554s [00:52:34.888] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1554s [00:52:34.888] ...future.X_jj <- ...future.elements_ii[[jj]] 1554s [00:52:34.888] ...future.FUN(...future.X_jj, ...) 1554s [00:52:34.888] }) 1554s [00:52:34.888] } 1554s [00:52:34.888] }, args = future.call.arguments) 1554s [00:52:34.888] } 1554s [00:52:34.888] Tweak future expression to call with '...' arguments ... DONE 1554s [00:52:34.888] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1554s [00:52:34.889] 1554s [00:52:34.889] getGlobalsAndPackages() ... DONE 1554s [00:52:34.889] run() for ‘Future’ ... 1554s [00:52:34.889] - state: ‘created’ 1554s [00:52:34.890] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1554s [00:52:34.894] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1554s [00:52:34.894] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1554s [00:52:34.895] - Field: ‘label’ 1554s [00:52:34.895] - Field: ‘local’ 1554s [00:52:34.896] - Field: ‘owner’ 1554s [00:52:34.896] - Field: ‘envir’ 1555s [00:52:34.896] - Field: ‘packages’ 1555s [00:52:34.896] - Field: ‘gc’ 1555s [00:52:34.896] - Field: ‘conditions’ 1555s [00:52:34.897] - Field: ‘expr’ 1555s [00:52:34.897] - Field: ‘uuid’ 1555s [00:52:34.897] - Field: ‘seed’ 1555s [00:52:34.897] - Field: ‘version’ 1555s [00:52:34.898] - Field: ‘result’ 1555s [00:52:34.898] - Field: ‘asynchronous’ 1555s [00:52:34.898] - Field: ‘calls’ 1555s [00:52:34.898] - Field: ‘globals’ 1555s [00:52:34.898] - Field: ‘stdout’ 1555s [00:52:34.899] - Field: ‘earlySignal’ 1555s [00:52:34.899] - Field: ‘lazy’ 1555s List of 1 1555s $ y:List of 4 1555s ..$ a: int [1:2] 0 0 1555s ..$ b: num [1:2] 0 0 1555s ..$ c: chr [1:2] "" "" 1555s ..$ c:List of 2 1555s .. ..$ : NULL 1555s .. ..$ : NULL 1555s List of 1 1555s $ y:List of 4 1555s ..$ a: int [1:2] 0 0 1555s ..$ b: num [1:2] 0 0 1555s ..$ c: chr [1:2] "" "" 1555s ..$ c:List of 2 1555s .. ..$ : NULL 1555s .. ..$ : NULL 1555s [00:52:34.899] - Field: ‘state’ 1555s [00:52:34.899] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1555s [00:52:34.900] - Launch lazy future ... 1555s [00:52:34.900] Packages needed by the future expression (n = 0): 1555s [00:52:34.900] Packages needed by future strategies (n = 0): 1555s [00:52:34.901] { 1555s [00:52:34.901] { 1555s [00:52:34.901] { 1555s [00:52:34.901] ...future.startTime <- base::Sys.time() 1555s [00:52:34.901] { 1555s [00:52:34.901] { 1555s [00:52:34.901] { 1555s [00:52:34.901] base::local({ 1555s [00:52:34.901] has_future <- base::requireNamespace("future", 1555s [00:52:34.901] quietly = TRUE) 1555s [00:52:34.901] if (has_future) { 1555s [00:52:34.901] ns <- base::getNamespace("future") 1555s [00:52:34.901] version <- ns[[".package"]][["version"]] 1555s [00:52:34.901] if (is.null(version)) 1555s [00:52:34.901] version <- utils::packageVersion("future") 1555s [00:52:34.901] } 1555s [00:52:34.901] else { 1555s [00:52:34.901] version <- NULL 1555s [00:52:34.901] } 1555s [00:52:34.901] if (!has_future || version < "1.8.0") { 1555s [00:52:34.901] info <- base::c(r_version = base::gsub("R version ", 1555s [00:52:34.901] "", base::R.version$version.string), 1555s [00:52:34.901] platform = base::sprintf("%s (%s-bit)", 1555s [00:52:34.901] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1555s [00:52:34.901] os = base::paste(base::Sys.info()[base::c("sysname", 1555s [00:52:34.901] "release", "version")], collapse = " "), 1555s [00:52:34.901] hostname = base::Sys.info()[["nodename"]]) 1555s [00:52:34.901] info <- base::sprintf("%s: %s", base::names(info), 1555s [00:52:34.901] info) 1555s [00:52:34.901] info <- base::paste(info, collapse = "; ") 1555s [00:52:34.901] if (!has_future) { 1555s [00:52:34.901] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1555s [00:52:34.901] info) 1555s [00:52:34.901] } 1555s [00:52:34.901] else { 1555s [00:52:34.901] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1555s [00:52:34.901] info, version) 1555s [00:52:34.901] } 1555s [00:52:34.901] base::stop(msg) 1555s [00:52:34.901] } 1555s [00:52:34.901] }) 1555s [00:52:34.901] } 1555s [00:52:34.901] options(future.plan = NULL) 1555s [00:52:34.901] Sys.unsetenv("R_FUTURE_PLAN") 1555s [00:52:34.901] future::plan("default", .cleanup = FALSE, .init = FALSE) 1555s [00:52:34.901] } 1555s [00:52:34.901] ...future.workdir <- getwd() 1555s [00:52:34.901] } 1555s [00:52:34.901] ...future.oldOptions <- base::as.list(base::.Options) 1555s [00:52:34.901] ...future.oldEnvVars <- base::Sys.getenv() 1555s [00:52:34.901] } 1555s [00:52:34.901] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1555s [00:52:34.901] future.globals.maxSize = 2097152000, future.globals.method = NULL, 1555s [00:52:34.901] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1555s [00:52:34.901] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1555s [00:52:34.901] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1555s [00:52:34.901] future.stdout.windows.reencode = NULL, width = 80L) 1555s [00:52:34.901] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1555s [00:52:34.901] base::names(...future.oldOptions)) 1555s [00:52:34.901] } 1555s [00:52:34.901] if (FALSE) { 1555s [00:52:34.901] } 1555s [00:52:34.901] else { 1555s [00:52:34.901] if (TRUE) { 1555s [00:52:34.901] ...future.stdout <- base::rawConnection(base::raw(0L), 1555s [00:52:34.901] open = "w") 1555s [00:52:34.901] } 1555s [00:52:34.901] else { 1555s [00:52:34.901] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1555s [00:52:34.901] windows = "NUL", "/dev/null"), open = "w") 1555s [00:52:34.901] } 1555s [00:52:34.901] base::sink(...future.stdout, type = "output", split = FALSE) 1555s [00:52:34.901] base::on.exit(if (!base::is.null(...future.stdout)) { 1555s [00:52:34.901] base::sink(type = "output", split = FALSE) 1555s [00:52:34.901] base::close(...future.stdout) 1555s [00:52:34.901] }, add = TRUE) 1555s [00:52:34.901] } 1555s [00:52:34.901] ...future.frame <- base::sys.nframe() 1555s [00:52:34.901] ...future.conditions <- base::list() 1555s [00:52:34.901] ...future.rng <- base::globalenv()$.Random.seed 1555s [00:52:34.901] if (FALSE) { 1555s [00:52:34.901] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1555s [00:52:34.901] "...future.value", "...future.globalenv.names", ".Random.seed") 1555s [00:52:34.901] } 1555s [00:52:34.901] ...future.result <- base::tryCatch({ 1555s [00:52:34.901] base::withCallingHandlers({ 1555s [00:52:34.901] ...future.value <- base::withVisible(base::local({ 1555s [00:52:34.901] do.call(function(...) { 1555s [00:52:34.901] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1555s [00:52:34.901] if (!identical(...future.globals.maxSize.org, 1555s [00:52:34.901] ...future.globals.maxSize)) { 1555s [00:52:34.901] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1555s [00:52:34.901] on.exit(options(oopts), add = TRUE) 1555s [00:52:34.901] } 1555s [00:52:34.901] { 1555s [00:52:34.901] lapply(seq_along(...future.elements_ii), 1555s [00:52:34.901] FUN = function(jj) { 1555s [00:52:34.901] ...future.X_jj <- ...future.elements_ii[[jj]] 1555s [00:52:34.901] ...future.FUN(...future.X_jj, ...) 1555s [00:52:34.901] }) 1555s [00:52:34.901] } 1555s [00:52:34.901] }, args = future.call.arguments) 1555s [00:52:34.901] })) 1555s [00:52:34.901] future::FutureResult(value = ...future.value$value, 1555s [00:52:34.901] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1555s [00:52:34.901] ...future.rng), globalenv = if (FALSE) 1555s [00:52:34.901] list(added = base::setdiff(base::names(base::.GlobalEnv), 1555s [00:52:34.901] ...future.globalenv.names)) 1555s [00:52:34.901] else NULL, started = ...future.startTime, version = "1.8") 1555s [00:52:34.901] }, condition = base::local({ 1555s [00:52:34.901] c <- base::c 1555s [00:52:34.901] inherits <- base::inherits 1555s [00:52:34.901] invokeRestart <- base::invokeRestart 1555s [00:52:34.901] length <- base::length 1555s [00:52:34.901] list <- base::list 1555s [00:52:34.901] seq.int <- base::seq.int 1555s [00:52:34.901] signalCondition <- base::signalCondition 1555s [00:52:34.901] sys.calls <- base::sys.calls 1555s [00:52:34.901] `[[` <- base::`[[` 1555s [00:52:34.901] `+` <- base::`+` 1555s [00:52:34.901] `<<-` <- base::`<<-` 1555s [00:52:34.901] sysCalls <- function(calls = sys.calls(), from = 1L) { 1555s [00:52:34.901] calls[seq.int(from = from + 12L, to = length(calls) - 1555s [00:52:34.901] 3L)] 1555s [00:52:34.901] } 1555s [00:52:34.901] function(cond) { 1555s [00:52:34.901] is_error <- inherits(cond, "error") 1555s [00:52:34.901] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1555s [00:52:34.901] NULL) 1555s [00:52:34.901] if (is_error) { 1555s [00:52:34.901] sessionInformation <- function() { 1555s [00:52:34.901] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1555s [00:52:34.901] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1555s [00:52:34.901] search = base::search(), system = base::Sys.info()) 1555s [00:52:34.901] } 1555s [00:52:34.901] ...future.conditions[[length(...future.conditions) + 1555s [00:52:34.901] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1555s [00:52:34.901] cond$call), session = sessionInformation(), 1555s [00:52:34.901] timestamp = base::Sys.time(), signaled = 0L) 1555s [00:52:34.901] signalCondition(cond) 1555s [00:52:34.901] } 1555s [00:52:34.901] else if (!ignore && TRUE && inherits(cond, c("condition", 1555s [00:52:34.901] "immediateCondition"))) { 1555s [00:52:34.901] signal <- TRUE && inherits(cond, "immediateCondition") 1555s [00:52:34.901] ...future.conditions[[length(...future.conditions) + 1555s [00:52:34.901] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1555s [00:52:34.901] if (TRUE && !signal) { 1555s [00:52:34.901] muffleCondition <- function (cond, pattern = "^muffle") 1555s [00:52:34.901] { 1555s [00:52:34.901] inherits <- base::inherits 1555s [00:52:34.901] invokeRestart <- base::invokeRestart 1555s [00:52:34.901] is.null <- base::is.null 1555s [00:52:34.901] muffled <- FALSE 1555s [00:52:34.901] if (inherits(cond, "message")) { 1555s [00:52:34.901] muffled <- grepl(pattern, "muffleMessage") 1555s [00:52:34.901] if (muffled) 1555s [00:52:34.901] invokeRestart("muffleMessage") 1555s [00:52:34.901] } 1555s [00:52:34.901] else if (inherits(cond, "warning")) { 1555s [00:52:34.901] muffled <- grepl(pattern, "muffleWarning") 1555s [00:52:34.901] if (muffled) 1555s [00:52:34.901] invokeRestart("muffleWarning") 1555s [00:52:34.901] } 1555s [00:52:34.901] else if (inherits(cond, "condition")) { 1555s [00:52:34.901] if (!is.null(pattern)) { 1555s [00:52:34.901] computeRestarts <- base::computeRestarts 1555s [00:52:34.901] grepl <- base::grepl 1555s [00:52:34.901] restarts <- computeRestarts(cond) 1555s [00:52:34.901] for (restart in restarts) { 1555s [00:52:34.901] name <- restart$name 1555s [00:52:34.901] if (is.null(name)) 1555s [00:52:34.901] next 1555s [00:52:34.901] if (!grepl(pattern, name)) 1555s [00:52:34.901] next 1555s [00:52:34.901] invokeRestart(restart) 1555s [00:52:34.901] muffled <- TRUE 1555s [00:52:34.901] break 1555s [00:52:34.901] } 1555s [00:52:34.901] } 1555s [00:52:34.901] } 1555s [00:52:34.901] invisible(muffled) 1555s [00:52:34.901] } 1555s [00:52:34.901] muffleCondition(cond, pattern = "^muffle") 1555s [00:52:34.901] } 1555s [00:52:34.901] } 1555s [00:52:34.901] else { 1555s [00:52:34.901] if (TRUE) { 1555s [00:52:34.901] muffleCondition <- function (cond, pattern = "^muffle") 1555s [00:52:34.901] { 1555s [00:52:34.901] inherits <- base::inherits 1555s [00:52:34.901] invokeRestart <- base::invokeRestart 1555s [00:52:34.901] is.null <- base::is.null 1555s [00:52:34.901] muffled <- FALSE 1555s [00:52:34.901] if (inherits(cond, "message")) { 1555s [00:52:34.901] muffled <- grepl(pattern, "muffleMessage") 1555s [00:52:34.901] if (muffled) 1555s [00:52:34.901] invokeRestart("muffleMessage") 1555s [00:52:34.901] } 1555s [00:52:34.901] else if (inherits(cond, "warning")) { 1555s [00:52:34.901] muffled <- grepl(pattern, "muffleWarning") 1555s [00:52:34.901] if (muffled) 1555s [00:52:34.901] invokeRestart("muffleWarning") 1555s [00:52:34.901] } 1555s [00:52:34.901] else if (inherits(cond, "condition")) { 1555s [00:52:34.901] if (!is.null(pattern)) { 1555s [00:52:34.901] computeRestarts <- base::computeRestarts 1555s [00:52:34.901] grepl <- base::grepl 1555s [00:52:34.901] restarts <- computeRestarts(cond) 1555s [00:52:34.901] for (restart in restarts) { 1555s [00:52:34.901] name <- restart$name 1555s [00:52:34.901] if (is.null(name)) 1555s [00:52:34.901] next 1555s [00:52:34.901] if (!grepl(pattern, name)) 1555s [00:52:34.901] next 1555s [00:52:34.901] invokeRestart(restart) 1555s [00:52:34.901] muffled <- TRUE 1555s [00:52:34.901] break 1555s [00:52:34.901] } 1555s [00:52:34.901] } 1555s [00:52:34.901] } 1555s [00:52:34.901] invisible(muffled) 1555s [00:52:34.901] } 1555s [00:52:34.901] muffleCondition(cond, pattern = "^muffle") 1555s [00:52:34.901] } 1555s [00:52:34.901] } 1555s [00:52:34.901] } 1555s [00:52:34.901] })) 1555s [00:52:34.901] }, error = function(ex) { 1555s [00:52:34.901] base::structure(base::list(value = NULL, visible = NULL, 1555s [00:52:34.901] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1555s [00:52:34.901] ...future.rng), started = ...future.startTime, 1555s [00:52:34.901] finished = Sys.time(), session_uuid = NA_character_, 1555s [00:52:34.901] version = "1.8"), class = "FutureResult") 1555s [00:52:34.901] }, finally = { 1555s [00:52:34.901] if (!identical(...future.workdir, getwd())) 1555s [00:52:34.901] setwd(...future.workdir) 1555s [00:52:34.901] { 1555s [00:52:34.901] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1555s [00:52:34.901] ...future.oldOptions$nwarnings <- NULL 1555s [00:52:34.901] } 1555s [00:52:34.901] base::options(...future.oldOptions) 1555s [00:52:34.901] if (.Platform$OS.type == "windows") { 1555s [00:52:34.901] old_names <- names(...future.oldEnvVars) 1555s [00:52:34.901] envs <- base::Sys.getenv() 1555s [00:52:34.901] names <- names(envs) 1555s [00:52:34.901] common <- intersect(names, old_names) 1555s [00:52:34.901] added <- setdiff(names, old_names) 1555s [00:52:34.901] removed <- setdiff(old_names, names) 1555s [00:52:34.901] changed <- common[...future.oldEnvVars[common] != 1555s [00:52:34.901] envs[common]] 1555s [00:52:34.901] NAMES <- toupper(changed) 1555s [00:52:34.901] args <- list() 1555s [00:52:34.901] for (kk in seq_along(NAMES)) { 1555s [00:52:34.901] name <- changed[[kk]] 1555s [00:52:34.901] NAME <- NAMES[[kk]] 1555s [00:52:34.901] if (name != NAME && is.element(NAME, old_names)) 1555s [00:52:34.901] next 1555s [00:52:34.901] args[[name]] <- ...future.oldEnvVars[[name]] 1555s [00:52:34.901] } 1555s [00:52:34.901] NAMES <- toupper(added) 1555s [00:52:34.901] for (kk in seq_along(NAMES)) { 1555s [00:52:34.901] name <- added[[kk]] 1555s [00:52:34.901] NAME <- NAMES[[kk]] 1555s [00:52:34.901] if (name != NAME && is.element(NAME, old_names)) 1555s [00:52:34.901] next 1555s [00:52:34.901] args[[name]] <- "" 1555s [00:52:34.901] } 1555s [00:52:34.901] NAMES <- toupper(removed) 1555s [00:52:34.901] for (kk in seq_along(NAMES)) { 1555s [00:52:34.901] name <- removed[[kk]] 1555s [00:52:34.901] NAME <- NAMES[[kk]] 1555s [00:52:34.901] if (name != NAME && is.element(NAME, old_names)) 1555s [00:52:34.901] next 1555s [00:52:34.901] args[[name]] <- ...future.oldEnvVars[[name]] 1555s [00:52:34.901] } 1555s [00:52:34.901] if (length(args) > 0) 1555s [00:52:34.901] base::do.call(base::Sys.setenv, args = args) 1555s [00:52:34.901] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1555s [00:52:34.901] } 1555s [00:52:34.901] else { 1555s [00:52:34.901] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1555s [00:52:34.901] } 1555s [00:52:34.901] { 1555s [00:52:34.901] if (base::length(...future.futureOptionsAdded) > 1555s [00:52:34.901] 0L) { 1555s [00:52:34.901] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1555s [00:52:34.901] base::names(opts) <- ...future.futureOptionsAdded 1555s [00:52:34.901] base::options(opts) 1555s [00:52:34.901] } 1555s [00:52:34.901] { 1555s [00:52:34.901] { 1555s [00:52:34.901] NULL 1555s [00:52:34.901] RNGkind("Mersenne-Twister") 1555s [00:52:34.901] base::rm(list = ".Random.seed", envir = base::globalenv(), 1555s [00:52:34.901] inherits = FALSE) 1555s [00:52:34.901] } 1555s [00:52:34.901] options(future.plan = NULL) 1555s [00:52:34.901] if (is.na(NA_character_)) 1555s [00:52:34.901] Sys.unsetenv("R_FUTURE_PLAN") 1555s [00:52:34.901] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1555s [00:52:34.901] future::plan(list(function (..., workers = availableCores(), 1555s [00:52:34.901] lazy = FALSE, rscript_libs = .libPaths(), 1555s [00:52:34.901] envir = parent.frame()) 1555s [00:52:34.901] { 1555s [00:52:34.901] if (is.function(workers)) 1555s [00:52:34.901] workers <- workers() 1555s [00:52:34.901] workers <- structure(as.integer(workers), 1555s [00:52:34.901] class = class(workers)) 1555s [00:52:34.901] stop_if_not(length(workers) == 1, is.finite(workers), 1555s [00:52:34.901] workers >= 1) 1555s [00:52:34.901] if (workers == 1L && !inherits(workers, "AsIs")) { 1555s [00:52:34.901] return(sequential(..., lazy = TRUE, envir = envir)) 1555s [00:52:34.901] } 1555s [00:52:34.901] future <- MultisessionFuture(..., workers = workers, 1555s [00:52:34.901] lazy = lazy, rscript_libs = rscript_libs, 1555s [00:52:34.901] envir = envir) 1555s [00:52:34.901] if (!future$lazy) 1555s [00:52:34.901] future <- run(future) 1555s [00:52:34.901] invisible(future) 1555s [00:52:34.901] }), .cleanup = FALSE, .init = FALSE) 1555s [00:52:34.901] } 1555s [00:52:34.901] } 1555s [00:52:34.901] } 1555s [00:52:34.901] }) 1555s [00:52:34.901] if (TRUE) { 1555s [00:52:34.901] base::sink(type = "output", split = FALSE) 1555s [00:52:34.901] if (TRUE) { 1555s [00:52:34.901] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1555s [00:52:34.901] } 1555s [00:52:34.901] else { 1555s [00:52:34.901] ...future.result["stdout"] <- base::list(NULL) 1555s [00:52:34.901] } 1555s [00:52:34.901] base::close(...future.stdout) 1555s [00:52:34.901] ...future.stdout <- NULL 1555s [00:52:34.901] } 1555s [00:52:34.901] ...future.result$conditions <- ...future.conditions 1555s [00:52:34.901] ...future.result$finished <- base::Sys.time() 1555s [00:52:34.901] ...future.result 1555s [00:52:34.901] } 1555s [00:52:34.907] assign_globals() ... 1555s [00:52:34.908] List of 5 1555s [00:52:34.908] $ ...future.FUN :function (mode = "logical", length = 0L) 1555s [00:52:34.908] $ future.call.arguments :List of 1 1555s [00:52:34.908] ..$ length: int 2 1555s [00:52:34.908] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1555s [00:52:34.908] $ ...future.elements_ii :List of 1 1555s [00:52:34.908] ..$ c: chr "list" 1555s [00:52:34.908] $ ...future.seeds_ii : NULL 1555s [00:52:34.908] $ ...future.globals.maxSize: NULL 1555s [00:52:34.908] - attr(*, "where")=List of 5 1555s [00:52:34.908] ..$ ...future.FUN : 1555s [00:52:34.908] ..$ future.call.arguments : 1555s [00:52:34.908] ..$ ...future.elements_ii : 1555s [00:52:34.908] ..$ ...future.seeds_ii : 1555s [00:52:34.908] ..$ ...future.globals.maxSize: 1555s [00:52:34.908] - attr(*, "resolved")= logi FALSE 1555s [00:52:34.908] - attr(*, "total_size")= num 2240 1555s [00:52:34.908] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1555s [00:52:34.908] - attr(*, "already-done")= logi TRUE 1555s [00:52:34.917] - copied ‘...future.FUN’ to environment 1555s [00:52:34.917] - copied ‘future.call.arguments’ to environment 1555s [00:52:34.917] - copied ‘...future.elements_ii’ to environment 1555s [00:52:34.917] - copied ‘...future.seeds_ii’ to environment 1555s [00:52:34.917] - copied ‘...future.globals.maxSize’ to environment 1555s [00:52:34.918] assign_globals() ... done 1555s [00:52:34.918] plan(): Setting new future strategy stack: 1555s [00:52:34.918] List of future strategies: 1555s [00:52:34.918] 1. sequential: 1555s [00:52:34.918] - args: function (..., envir = parent.frame()) 1555s [00:52:34.918] - tweaked: FALSE 1555s [00:52:34.918] - call: NULL 1555s [00:52:34.919] plan(): nbrOfWorkers() = 1 1555s [00:52:34.920] plan(): Setting new future strategy stack: 1555s [00:52:34.921] List of future strategies: 1555s [00:52:34.921] 1. multisession: 1555s [00:52:34.921] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1555s [00:52:34.921] - tweaked: FALSE 1555s [00:52:34.921] - call: plan(strategy) 1555s [00:52:34.925] plan(): nbrOfWorkers() = 1 1555s [00:52:34.926] SequentialFuture started (and completed) 1555s [00:52:34.926] - Launch lazy future ... done 1555s [00:52:34.926] run() for ‘SequentialFuture’ ... done 1555s [00:52:34.926] Created future: 1555s [00:52:34.927] SequentialFuture: 1555s [00:52:34.927] Label: ‘future_lapply-4’ 1555s [00:52:34.927] Expression: 1555s [00:52:34.927] { 1555s [00:52:34.927] do.call(function(...) { 1555s [00:52:34.927] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1555s [00:52:34.927] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1555s [00:52:34.927] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1555s [00:52:34.927] on.exit(options(oopts), add = TRUE) 1555s [00:52:34.927] } 1555s [00:52:34.927] { 1555s [00:52:34.927] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1555s [00:52:34.927] ...future.X_jj <- ...future.elements_ii[[jj]] 1555s [00:52:34.927] ...future.FUN(...future.X_jj, ...) 1555s [00:52:34.927] }) 1555s [00:52:34.927] } 1555s [00:52:34.927] }, args = future.call.arguments) 1555s [00:52:34.927] } 1555s [00:52:34.927] Lazy evaluation: FALSE 1555s [00:52:34.927] Asynchronous evaluation: FALSE 1555s [00:52:34.927] Local evaluation: TRUE 1555s [00:52:34.927] Environment: R_GlobalEnv 1555s [00:52:34.927] Capture standard output: TRUE 1555s [00:52:34.927] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1555s [00:52:34.927] Globals: 5 objects totaling 2.30 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1555s [00:52:34.927] Packages: 1555s [00:52:34.927] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1555s [00:52:34.927] Resolved: TRUE 1555s [00:52:34.927] Value: 0 bytes of class ‘list’ 1555s [00:52:34.927] Early signaling: FALSE 1555s [00:52:34.927] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1555s [00:52:34.927] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1555s [00:52:34.929] Chunk #4 of 4 ... DONE 1555s [00:52:34.929] Launching 4 futures (chunks) ... DONE 1555s [00:52:34.929] Resolving 4 futures (chunks) ... 1555s [00:52:34.929] resolve() on list ... 1555s [00:52:34.930] recursive: 0 1555s [00:52:34.930] length: 4 1555s [00:52:34.930] 1555s [00:52:34.930] resolved() for ‘SequentialFuture’ ... 1555s [00:52:34.931] - state: ‘finished’ 1555s [00:52:34.931] - run: TRUE 1555s [00:52:34.931] - result: ‘FutureResult’ 1555s [00:52:34.931] resolved() for ‘SequentialFuture’ ... done 1555s [00:52:34.931] Future #1 1555s [00:52:34.931] signalConditionsASAP(SequentialFuture, pos=1) ... 1555s [00:52:34.932] - nx: 4 1555s [00:52:34.932] - relay: TRUE 1555s [00:52:34.932] - stdout: TRUE 1555s [00:52:34.932] - signal: TRUE 1555s [00:52:34.932] - resignal: FALSE 1555s [00:52:34.932] - force: TRUE 1555s [00:52:34.933] - relayed: [n=4] FALSE, FALSE, FALSE, FALSE 1555s [00:52:34.933] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE 1555s [00:52:34.933] - until=1 1555s [00:52:34.933] - relaying element #1 1555s [00:52:34.934] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE 1555s [00:52:34.934] - queued futures: [n=4] TRUE, FALSE, FALSE, FALSE 1555s [00:52:34.934] signalConditionsASAP(SequentialFuture, pos=1) ... done 1555s [00:52:34.934] length: 3 (resolved future 1) 1555s [00:52:34.934] resolved() for ‘SequentialFuture’ ... 1555s [00:52:34.935] - state: ‘finished’ 1555s [00:52:34.935] - run: TRUE 1555s [00:52:34.935] - result: ‘FutureResult’ 1555s [00:52:34.935] resolved() for ‘SequentialFuture’ ... done 1555s [00:52:34.935] Future #2 1555s [00:52:34.936] signalConditionsASAP(SequentialFuture, pos=2) ... 1555s [00:52:34.936] - nx: 4 1555s [00:52:34.936] - relay: TRUE 1555s [00:52:34.936] - stdout: TRUE 1555s [00:52:34.936] - signal: TRUE 1555s [00:52:34.936] - resignal: FALSE 1555s [00:52:34.937] - force: TRUE 1555s [00:52:34.937] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE 1555s [00:52:34.937] - queued futures: [n=4] TRUE, FALSE, FALSE, FALSE 1555s [00:52:34.937] - until=2 1555s [00:52:34.937] - relaying element #2 1555s [00:52:34.938] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE 1555s [00:52:34.938] - queued futures: [n=4] TRUE, TRUE, FALSE, FALSE 1555s [00:52:34.938] signalConditionsASAP(SequentialFuture, pos=2) ... done 1555s [00:52:34.938] length: 2 (resolved future 2) 1555s [00:52:34.938] resolved() for ‘SequentialFuture’ ... 1555s [00:52:34.938] - state: ‘finished’ 1555s [00:52:34.939] - run: TRUE 1555s [00:52:34.939] - result: ‘FutureResult’ 1555s [00:52:34.939] resolved() for ‘SequentialFuture’ ... done 1555s [00:52:34.939] Future #3 1555s [00:52:34.939] signalConditionsASAP(SequentialFuture, pos=3) ... 1555s [00:52:34.939] - nx: 4 1555s [00:52:34.939] - relay: TRUE 1555s [00:52:34.940] - stdout: TRUE 1555s [00:52:34.940] - signal: TRUE 1555s [00:52:34.940] - resignal: FALSE 1555s [00:52:34.940] - force: TRUE 1555s [00:52:34.940] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE 1555s [00:52:34.940] - queued futures: [n=4] TRUE, TRUE, FALSE, FALSE 1555s [00:52:34.940] - until=3 1555s [00:52:34.941] - relaying element #3 1555s [00:52:34.941] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE 1555s [00:52:34.941] - queued futures: [n=4] TRUE, TRUE, TRUE, FALSE 1555s [00:52:34.942] signalConditionsASAP(SequentialFuture, pos=3) ... done 1555s [00:52:34.942] length: 1 (resolved future 3) 1555s [00:52:34.942] resolved() for ‘SequentialFuture’ ... 1555s [00:52:34.942] - state: ‘finished’ 1555s [00:52:34.942] - run: TRUE 1555s [00:52:34.943] - result: ‘FutureResult’ 1555s [00:52:34.943] resolved() for ‘SequentialFuture’ ... done 1555s [00:52:34.943] Future #4 1555s [00:52:34.943] signalConditionsASAP(SequentialFuture, pos=4) ... 1555s [00:52:34.944] - nx: 4 1555s [00:52:34.944] - relay: TRUE 1555s [00:52:34.944] - stdout: TRUE 1555s [00:52:34.944] - signal: TRUE 1555s [00:52:34.944] - resignal: FALSE 1555s [00:52:34.944] - force: TRUE 1555s [00:52:34.944] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE 1555s [00:52:34.945] - queued futures: [n=4] TRUE, TRUE, TRUE, FALSE 1555s [00:52:34.945] - until=4 1555s [00:52:34.945] - relaying element #4 1555s [00:52:34.945] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE 1555s [00:52:34.945] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE 1555s [00:52:34.946] signalConditionsASAP(SequentialFuture, pos=4) ... done 1555s [00:52:34.946] length: 0 (resolved future 4) 1555s [00:52:34.946] Relaying remaining futures 1555s [00:52:34.946] signalConditionsASAP(NULL, pos=0) ... 1555s [00:52:34.946] - nx: 4 1555s [00:52:34.946] - relay: TRUE 1555s [00:52:34.946] - stdout: TRUE 1555s [00:52:34.947] - signal: TRUE 1555s [00:52:34.947] - resignal: FALSE 1555s [00:52:34.947] - force: TRUE 1555s [00:52:34.947] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE 1555s [00:52:34.947] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE 1555s - flush all 1555s [00:52:34.948] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE 1555s [00:52:34.948] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE 1555s [00:52:34.948] signalConditionsASAP(NULL, pos=0) ... done 1555s [00:52:34.948] resolve() on list ... DONE 1555s [00:52:34.949] - Number of value chunks collected: 4 1555s [00:52:34.949] Resolving 4 futures (chunks) ... DONE 1555s [00:52:34.949] Reducing values from 4 chunks ... 1555s [00:52:34.950] - Number of values collected after concatenation: 4 1555s [00:52:34.950] - Number of values expected: 4 1555s [00:52:34.950] Reducing values from 4 chunks ... DONE 1555s [00:52:34.950] future_lapply() ... DONE 1555s [00:52:34.953] future_lapply() ... 1555s [00:52:34.958] Number of chunks: 4 1555s [00:52:34.958] getGlobalsAndPackagesXApply() ... 1555s [00:52:34.958] - future.globals: TRUE 1555s [00:52:34.958] getGlobalsAndPackages() ... 1555s [00:52:34.959] Searching for globals... 1555s [00:52:34.960] - globals found: [2] ‘FUN’, ‘.Internal’ 1555s [00:52:34.961] Searching for globals ... DONE 1555s [00:52:34.961] Resolving globals: FALSE 1555s [00:52:34.961] The total size of the 1 globals is 2.13 KiB (2184 bytes) 1555s [00:52:34.962] The total size of the 1 globals exported for future expression (‘FUN(length = 2L)’) is 2.13 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (2.13 KiB of class ‘function’) 1555s [00:52:34.962] - globals: [1] ‘FUN’ 1555s [00:52:34.962] 1555s [00:52:34.962] getGlobalsAndPackages() ... DONE 1555s [00:52:34.962] - globals found/used: [n=1] ‘FUN’ 1555s [00:52:34.963] - needed namespaces: [n=0] 1555s [00:52:34.963] Finding globals ... DONE 1555s [00:52:34.963] - use_args: TRUE 1555s [00:52:34.963] - Getting '...' globals ... 1555s [00:52:34.964] resolve() on list ... 1555s [00:52:34.964] recursive: 0 1555s [00:52:34.964] length: 1 1555s [00:52:34.964] elements: ‘...’ 1555s [00:52:34.964] length: 0 (resolved future 1) 1555s [00:52:34.965] resolve() on list ... DONE 1555s [00:52:34.965] - '...' content: [n=1] ‘length’ 1555s [00:52:34.965] List of 1 1555s [00:52:34.965] $ ...:List of 1 1555s [00:52:34.965] ..$ length: int 2 1555s [00:52:34.965] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1555s [00:52:34.965] - attr(*, "where")=List of 1 1555s [00:52:34.965] ..$ ...: 1555s [00:52:34.965] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1555s [00:52:34.965] - attr(*, "resolved")= logi TRUE 1555s [00:52:34.965] - attr(*, "total_size")= num NA 1555s [00:52:34.969] - Getting '...' globals ... DONE 1555s [00:52:34.969] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1555s [00:52:34.969] List of 2 1555s [00:52:34.969] $ ...future.FUN:function (mode = "logical", length = 0L) 1555s [00:52:34.969] $ ... :List of 1 1555s [00:52:34.969] ..$ length: int 2 1555s [00:52:34.969] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1555s [00:52:34.969] - attr(*, "where")=List of 2 1555s [00:52:34.969] ..$ ...future.FUN: 1555s [00:52:34.969] ..$ ... : 1555s [00:52:34.969] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1555s [00:52:34.969] - attr(*, "resolved")= logi FALSE 1555s [00:52:34.969] - attr(*, "total_size")= num 2240 1555s [00:52:34.973] Packages to be attached in all futures: [n=0] 1555s [00:52:34.973] getGlobalsAndPackagesXApply() ... DONE 1555s [00:52:34.974] Number of futures (= number of chunks): 4 1555s [00:52:34.974] Launching 4 futures (chunks) ... 1555s [00:52:34.974] Chunk #1 of 4 ... 1555s [00:52:34.974] - Finding globals in 'X' for chunk #1 ... 1555s [00:52:34.974] getGlobalsAndPackages() ... 1555s [00:52:34.974] Searching for globals... 1555s [00:52:34.975] 1555s [00:52:34.975] Searching for globals ... DONE 1555s [00:52:34.975] - globals: [0] 1555s [00:52:34.975] getGlobalsAndPackages() ... DONE 1555s [00:52:34.975] + additional globals found: [n=0] 1555s [00:52:34.976] + additional namespaces needed: [n=0] 1555s [00:52:34.976] - Finding globals in 'X' for chunk #1 ... DONE 1555s [00:52:34.976] - Adjusted option 'future.globals.maxSize': 524288000 -> 4 * 524288000 = 2097152000 (bytes) 1555s [00:52:34.976] - seeds: 1555s [00:52:34.976] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1555s [00:52:34.976] getGlobalsAndPackages() ... 1555s [00:52:34.976] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1555s [00:52:34.976] Resolving globals: FALSE 1555s [00:52:34.977] Tweak future expression to call with '...' arguments ... 1555s [00:52:34.977] { 1555s [00:52:34.977] do.call(function(...) { 1555s [00:52:34.977] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1555s [00:52:34.977] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1555s [00:52:34.977] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1555s [00:52:34.977] on.exit(options(oopts), add = TRUE) 1555s [00:52:34.977] } 1555s [00:52:34.977] { 1555s [00:52:34.977] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1555s [00:52:34.977] ...future.X_jj <- ...future.elements_ii[[jj]] 1555s [00:52:34.977] ...future.FUN(...future.X_jj, ...) 1555s [00:52:34.977] }) 1555s [00:52:34.977] } 1555s [00:52:34.977] }, args = future.call.arguments) 1555s [00:52:34.977] } 1555s [00:52:34.977] Tweak future expression to call with '...' arguments ... DONE 1555s [00:52:34.977] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1555s [00:52:34.978] 1555s [00:52:34.978] getGlobalsAndPackages() ... DONE 1555s [00:52:34.978] run() for ‘Future’ ... 1555s [00:52:34.978] - state: ‘created’ 1555s [00:52:34.979] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1555s [00:52:34.982] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1555s [00:52:34.982] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1555s [00:52:34.982] - Field: ‘label’ 1555s [00:52:34.982] - Field: ‘local’ 1555s [00:52:34.983] - Field: ‘owner’ 1555s [00:52:34.983] - Field: ‘envir’ 1555s [00:52:34.983] - Field: ‘packages’ 1555s [00:52:34.983] - Field: ‘gc’ 1555s [00:52:34.983] - Field: ‘conditions’ 1555s [00:52:34.983] - Field: ‘expr’ 1555s [00:52:34.984] - Field: ‘uuid’ 1555s [00:52:34.984] - Field: ‘seed’ 1555s [00:52:34.984] - Field: ‘version’ 1555s [00:52:34.984] - Field: ‘result’ 1555s [00:52:34.984] - Field: ‘asynchronous’ 1555s [00:52:34.984] - Field: ‘calls’ 1555s [00:52:34.984] - Field: ‘globals’ 1555s [00:52:34.985] - Field: ‘stdout’ 1555s [00:52:34.985] - Field: ‘earlySignal’ 1555s [00:52:34.985] - Field: ‘lazy’ 1555s [00:52:34.985] - Field: ‘state’ 1555s [00:52:34.985] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1555s [00:52:34.985] - Launch lazy future ... 1555s [00:52:34.986] Packages needed by the future expression (n = 0): 1555s [00:52:34.986] Packages needed by future strategies (n = 0): 1555s [00:52:34.986] { 1555s [00:52:34.986] { 1555s [00:52:34.986] { 1555s [00:52:34.986] ...future.startTime <- base::Sys.time() 1555s [00:52:34.986] { 1555s [00:52:34.986] { 1555s [00:52:34.986] { 1555s [00:52:34.986] base::local({ 1555s [00:52:34.986] has_future <- base::requireNamespace("future", 1555s [00:52:34.986] quietly = TRUE) 1555s [00:52:34.986] if (has_future) { 1555s [00:52:34.986] ns <- base::getNamespace("future") 1555s [00:52:34.986] version <- ns[[".package"]][["version"]] 1555s [00:52:34.986] if (is.null(version)) 1555s [00:52:34.986] version <- utils::packageVersion("future") 1555s [00:52:34.986] } 1555s [00:52:34.986] else { 1555s [00:52:34.986] version <- NULL 1555s [00:52:34.986] } 1555s [00:52:34.986] if (!has_future || version < "1.8.0") { 1555s [00:52:34.986] info <- base::c(r_version = base::gsub("R version ", 1555s [00:52:34.986] "", base::R.version$version.string), 1555s [00:52:34.986] platform = base::sprintf("%s (%s-bit)", 1555s [00:52:34.986] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1555s [00:52:34.986] os = base::paste(base::Sys.info()[base::c("sysname", 1555s [00:52:34.986] "release", "version")], collapse = " "), 1555s [00:52:34.986] hostname = base::Sys.info()[["nodename"]]) 1555s [00:52:34.986] info <- base::sprintf("%s: %s", base::names(info), 1555s [00:52:34.986] info) 1555s [00:52:34.986] info <- base::paste(info, collapse = "; ") 1555s [00:52:34.986] if (!has_future) { 1555s [00:52:34.986] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1555s [00:52:34.986] info) 1555s [00:52:34.986] } 1555s [00:52:34.986] else { 1555s [00:52:34.986] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1555s [00:52:34.986] info, version) 1555s [00:52:34.986] } 1555s [00:52:34.986] base::stop(msg) 1555s [00:52:34.986] } 1555s [00:52:34.986] }) 1555s [00:52:34.986] } 1555s [00:52:34.986] options(future.plan = NULL) 1555s [00:52:34.986] Sys.unsetenv("R_FUTURE_PLAN") 1555s [00:52:34.986] future::plan("default", .cleanup = FALSE, .init = FALSE) 1555s [00:52:34.986] } 1555s [00:52:34.986] ...future.workdir <- getwd() 1555s [00:52:34.986] } 1555s [00:52:34.986] ...future.oldOptions <- base::as.list(base::.Options) 1555s [00:52:34.986] ...future.oldEnvVars <- base::Sys.getenv() 1555s [00:52:34.986] } 1555s [00:52:34.986] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1555s [00:52:34.986] future.globals.maxSize = 2097152000, future.globals.method = NULL, 1555s [00:52:34.986] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1555s [00:52:34.986] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1555s [00:52:34.986] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1555s [00:52:34.986] future.stdout.windows.reencode = NULL, width = 80L) 1555s [00:52:34.986] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1555s [00:52:34.986] base::names(...future.oldOptions)) 1555s [00:52:34.986] } 1555s [00:52:34.986] if (FALSE) { 1555s [00:52:34.986] } 1555s [00:52:34.986] else { 1555s [00:52:34.986] if (TRUE) { 1555s [00:52:34.986] ...future.stdout <- base::rawConnection(base::raw(0L), 1555s [00:52:34.986] open = "w") 1555s [00:52:34.986] } 1555s [00:52:34.986] else { 1555s [00:52:34.986] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1555s [00:52:34.986] windows = "NUL", "/dev/null"), open = "w") 1555s [00:52:34.986] } 1555s [00:52:34.986] base::sink(...future.stdout, type = "output", split = FALSE) 1555s [00:52:34.986] base::on.exit(if (!base::is.null(...future.stdout)) { 1555s [00:52:34.986] base::sink(type = "output", split = FALSE) 1555s [00:52:34.986] base::close(...future.stdout) 1555s [00:52:34.986] }, add = TRUE) 1555s [00:52:34.986] } 1555s [00:52:34.986] ...future.frame <- base::sys.nframe() 1555s [00:52:34.986] ...future.conditions <- base::list() 1555s [00:52:34.986] ...future.rng <- base::globalenv()$.Random.seed 1555s [00:52:34.986] if (FALSE) { 1555s [00:52:34.986] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1555s [00:52:34.986] "...future.value", "...future.globalenv.names", ".Random.seed") 1555s [00:52:34.986] } 1555s [00:52:34.986] ...future.result <- base::tryCatch({ 1555s [00:52:34.986] base::withCallingHandlers({ 1555s [00:52:34.986] ...future.value <- base::withVisible(base::local({ 1555s [00:52:34.986] do.call(function(...) { 1555s [00:52:34.986] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1555s [00:52:34.986] if (!identical(...future.globals.maxSize.org, 1555s [00:52:34.986] ...future.globals.maxSize)) { 1555s [00:52:34.986] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1555s [00:52:34.986] on.exit(options(oopts), add = TRUE) 1555s [00:52:34.986] } 1555s [00:52:34.986] { 1555s [00:52:34.986] lapply(seq_along(...future.elements_ii), 1555s [00:52:34.986] FUN = function(jj) { 1555s [00:52:34.986] ...future.X_jj <- ...future.elements_ii[[jj]] 1555s [00:52:34.986] ...future.FUN(...future.X_jj, ...) 1555s [00:52:34.986] }) 1555s [00:52:34.986] } 1555s [00:52:34.986] }, args = future.call.arguments) 1555s [00:52:34.986] })) 1555s [00:52:34.986] future::FutureResult(value = ...future.value$value, 1555s [00:52:34.986] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1555s [00:52:34.986] ...future.rng), globalenv = if (FALSE) 1555s [00:52:34.986] list(added = base::setdiff(base::names(base::.GlobalEnv), 1555s [00:52:34.986] ...future.globalenv.names)) 1555s [00:52:34.986] else NULL, started = ...future.startTime, version = "1.8") 1555s [00:52:34.986] }, condition = base::local({ 1555s [00:52:34.986] c <- base::c 1555s [00:52:34.986] inherits <- base::inherits 1555s [00:52:34.986] invokeRestart <- base::invokeRestart 1555s [00:52:34.986] length <- base::length 1555s [00:52:34.986] list <- base::list 1555s [00:52:34.986] seq.int <- base::seq.int 1555s [00:52:34.986] signalCondition <- base::signalCondition 1555s [00:52:34.986] sys.calls <- base::sys.calls 1555s [00:52:34.986] `[[` <- base::`[[` 1555s [00:52:34.986] `+` <- base::`+` 1555s [00:52:34.986] `<<-` <- base::`<<-` 1555s [00:52:34.986] sysCalls <- function(calls = sys.calls(), from = 1L) { 1555s [00:52:34.986] calls[seq.int(from = from + 12L, to = length(calls) - 1555s [00:52:34.986] 3L)] 1555s [00:52:34.986] } 1555s [00:52:34.986] function(cond) { 1555s [00:52:34.986] is_error <- inherits(cond, "error") 1555s [00:52:34.986] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1555s [00:52:34.986] NULL) 1555s [00:52:34.986] if (is_error) { 1555s [00:52:34.986] sessionInformation <- function() { 1555s [00:52:34.986] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1555s [00:52:34.986] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1555s [00:52:34.986] search = base::search(), system = base::Sys.info()) 1555s [00:52:34.986] } 1555s [00:52:34.986] ...future.conditions[[length(...future.conditions) + 1555s [00:52:34.986] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1555s [00:52:34.986] cond$call), session = sessionInformation(), 1555s [00:52:34.986] timestamp = base::Sys.time(), signaled = 0L) 1555s [00:52:34.986] signalCondition(cond) 1555s [00:52:34.986] } 1555s [00:52:34.986] else if (!ignore && TRUE && inherits(cond, c("condition", 1555s [00:52:34.986] "immediateCondition"))) { 1555s [00:52:34.986] signal <- TRUE && inherits(cond, "immediateCondition") 1555s [00:52:34.986] ...future.conditions[[length(...future.conditions) + 1555s [00:52:34.986] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1555s [00:52:34.986] if (TRUE && !signal) { 1555s [00:52:34.986] muffleCondition <- function (cond, pattern = "^muffle") 1555s [00:52:34.986] { 1555s [00:52:34.986] inherits <- base::inherits 1555s [00:52:34.986] invokeRestart <- base::invokeRestart 1555s [00:52:34.986] is.null <- base::is.null 1555s [00:52:34.986] muffled <- FALSE 1555s [00:52:34.986] if (inherits(cond, "message")) { 1555s [00:52:34.986] muffled <- grepl(pattern, "muffleMessage") 1555s [00:52:34.986] if (muffled) 1555s [00:52:34.986] invokeRestart("muffleMessage") 1555s [00:52:34.986] } 1555s [00:52:34.986] else if (inherits(cond, "warning")) { 1555s [00:52:34.986] muffled <- grepl(pattern, "muffleWarning") 1555s [00:52:34.986] if (muffled) 1555s [00:52:34.986] invokeRestart("muffleWarning") 1555s [00:52:34.986] } 1555s [00:52:34.986] else if (inherits(cond, "condition")) { 1555s [00:52:34.986] if (!is.null(pattern)) { 1555s [00:52:34.986] computeRestarts <- base::computeRestarts 1555s [00:52:34.986] grepl <- base::grepl 1555s [00:52:34.986] restarts <- computeRestarts(cond) 1555s [00:52:34.986] for (restart in restarts) { 1555s [00:52:34.986] name <- restart$name 1555s [00:52:34.986] if (is.null(name)) 1555s [00:52:34.986] next 1555s [00:52:34.986] if (!grepl(pattern, name)) 1555s [00:52:34.986] next 1555s [00:52:34.986] invokeRestart(restart) 1555s [00:52:34.986] muffled <- TRUE 1555s [00:52:34.986] break 1555s [00:52:34.986] } 1555s [00:52:34.986] } 1555s [00:52:34.986] } 1555s [00:52:34.986] invisible(muffled) 1555s [00:52:34.986] } 1555s [00:52:34.986] muffleCondition(cond, pattern = "^muffle") 1555s [00:52:34.986] } 1555s [00:52:34.986] } 1555s [00:52:34.986] else { 1555s [00:52:34.986] if (TRUE) { 1555s [00:52:34.986] muffleCondition <- function (cond, pattern = "^muffle") 1555s [00:52:34.986] { 1555s [00:52:34.986] inherits <- base::inherits 1555s [00:52:34.986] invokeRestart <- base::invokeRestart 1555s [00:52:34.986] is.null <- base::is.null 1555s [00:52:34.986] muffled <- FALSE 1555s [00:52:34.986] if (inherits(cond, "message")) { 1555s [00:52:34.986] muffled <- grepl(pattern, "muffleMessage") 1555s [00:52:34.986] if (muffled) 1555s [00:52:34.986] invokeRestart("muffleMessage") 1555s [00:52:34.986] } 1555s [00:52:34.986] else if (inherits(cond, "warning")) { 1555s [00:52:34.986] muffled <- grepl(pattern, "muffleWarning") 1555s [00:52:34.986] if (muffled) 1555s [00:52:34.986] invokeRestart("muffleWarning") 1555s [00:52:34.986] } 1555s [00:52:34.986] else if (inherits(cond, "condition")) { 1555s [00:52:34.986] if (!is.null(pattern)) { 1555s [00:52:34.986] computeRestarts <- base::computeRestarts 1555s [00:52:34.986] grepl <- base::grepl 1555s [00:52:34.986] restarts <- computeRestarts(cond) 1555s [00:52:34.986] for (restart in restarts) { 1555s [00:52:34.986] name <- restart$name 1555s [00:52:34.986] if (is.null(name)) 1555s [00:52:34.986] next 1555s [00:52:34.986] if (!grepl(pattern, name)) 1555s [00:52:34.986] next 1555s [00:52:34.986] invokeRestart(restart) 1555s [00:52:34.986] muffled <- TRUE 1555s [00:52:34.986] break 1555s [00:52:34.986] } 1555s [00:52:34.986] } 1555s [00:52:34.986] } 1555s [00:52:34.986] invisible(muffled) 1555s [00:52:34.986] } 1555s [00:52:34.986] muffleCondition(cond, pattern = "^muffle") 1555s [00:52:34.986] } 1555s [00:52:34.986] } 1555s [00:52:34.986] } 1555s [00:52:34.986] })) 1555s [00:52:34.986] }, error = function(ex) { 1555s [00:52:34.986] base::structure(base::list(value = NULL, visible = NULL, 1555s [00:52:34.986] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1555s [00:52:34.986] ...future.rng), started = ...future.startTime, 1555s [00:52:34.986] finished = Sys.time(), session_uuid = NA_character_, 1555s [00:52:34.986] version = "1.8"), class = "FutureResult") 1555s [00:52:34.986] }, finally = { 1555s [00:52:34.986] if (!identical(...future.workdir, getwd())) 1555s [00:52:34.986] setwd(...future.workdir) 1555s [00:52:34.986] { 1555s [00:52:34.986] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1555s [00:52:34.986] ...future.oldOptions$nwarnings <- NULL 1555s [00:52:34.986] } 1555s [00:52:34.986] base::options(...future.oldOptions) 1555s [00:52:34.986] if (.Platform$OS.type == "windows") { 1555s [00:52:34.986] old_names <- names(...future.oldEnvVars) 1555s [00:52:34.986] envs <- base::Sys.getenv() 1555s [00:52:34.986] names <- names(envs) 1555s [00:52:34.986] common <- intersect(names, old_names) 1555s [00:52:34.986] added <- setdiff(names, old_names) 1555s [00:52:34.986] removed <- setdiff(old_names, names) 1555s [00:52:34.986] changed <- common[...future.oldEnvVars[common] != 1555s [00:52:34.986] envs[common]] 1555s [00:52:34.986] NAMES <- toupper(changed) 1555s [00:52:34.986] args <- list() 1555s [00:52:34.986] for (kk in seq_along(NAMES)) { 1555s [00:52:34.986] name <- changed[[kk]] 1555s [00:52:34.986] NAME <- NAMES[[kk]] 1555s [00:52:34.986] if (name != NAME && is.element(NAME, old_names)) 1555s [00:52:34.986] next 1555s [00:52:34.986] args[[name]] <- ...future.oldEnvVars[[name]] 1555s [00:52:34.986] } 1555s [00:52:34.986] NAMES <- toupper(added) 1555s [00:52:34.986] for (kk in seq_along(NAMES)) { 1555s [00:52:34.986] name <- added[[kk]] 1555s [00:52:34.986] NAME <- NAMES[[kk]] 1555s [00:52:34.986] if (name != NAME && is.element(NAME, old_names)) 1555s [00:52:34.986] next 1555s [00:52:34.986] args[[name]] <- "" 1555s [00:52:34.986] } 1555s [00:52:34.986] NAMES <- toupper(removed) 1555s [00:52:34.986] for (kk in seq_along(NAMES)) { 1555s [00:52:34.986] name <- removed[[kk]] 1555s [00:52:34.986] NAME <- NAMES[[kk]] 1555s [00:52:34.986] if (name != NAME && is.element(NAME, old_names)) 1555s [00:52:34.986] next 1555s [00:52:34.986] args[[name]] <- ...future.oldEnvVars[[name]] 1555s [00:52:34.986] } 1555s [00:52:34.986] if (length(args) > 0) 1555s [00:52:34.986] base::do.call(base::Sys.setenv, args = args) 1555s [00:52:34.986] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1555s [00:52:34.986] } 1555s [00:52:34.986] else { 1555s [00:52:34.986] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1555s [00:52:34.986] } 1555s [00:52:34.986] { 1555s [00:52:34.986] if (base::length(...future.futureOptionsAdded) > 1555s [00:52:34.986] 0L) { 1555s [00:52:34.986] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1555s [00:52:34.986] base::names(opts) <- ...future.futureOptionsAdded 1555s [00:52:34.986] base::options(opts) 1555s [00:52:34.986] } 1555s [00:52:34.986] { 1555s [00:52:34.986] { 1555s [00:52:34.986] NULL 1555s [00:52:34.986] RNGkind("Mersenne-Twister") 1555s [00:52:34.986] base::rm(list = ".Random.seed", envir = base::globalenv(), 1555s [00:52:34.986] inherits = FALSE) 1555s [00:52:34.986] } 1555s [00:52:34.986] options(future.plan = NULL) 1555s [00:52:34.986] if (is.na(NA_character_)) 1555s [00:52:34.986] Sys.unsetenv("R_FUTURE_PLAN") 1555s [00:52:34.986] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1555s [00:52:34.986] future::plan(list(function (..., workers = availableCores(), 1555s [00:52:34.986] lazy = FALSE, rscript_libs = .libPaths(), 1555s [00:52:34.986] envir = parent.frame()) 1555s [00:52:34.986] { 1555s [00:52:34.986] if (is.function(workers)) 1555s [00:52:34.986] workers <- workers() 1555s [00:52:34.986] workers <- structure(as.integer(workers), 1555s [00:52:34.986] class = class(workers)) 1555s [00:52:34.986] stop_if_not(length(workers) == 1, is.finite(workers), 1555s [00:52:34.986] workers >= 1) 1555s [00:52:34.986] if (workers == 1L && !inherits(workers, "AsIs")) { 1555s [00:52:34.986] return(sequential(..., lazy = TRUE, envir = envir)) 1555s [00:52:34.986] } 1555s [00:52:34.986] future <- MultisessionFuture(..., workers = workers, 1555s [00:52:34.986] lazy = lazy, rscript_libs = rscript_libs, 1555s [00:52:34.986] envir = envir) 1555s [00:52:34.986] if (!future$lazy) 1555s [00:52:34.986] future <- run(future) 1555s [00:52:34.986] invisible(future) 1555s [00:52:34.986] }), .cleanup = FALSE, .init = FALSE) 1555s [00:52:34.986] } 1555s [00:52:34.986] } 1555s [00:52:34.986] } 1555s [00:52:34.986] }) 1555s [00:52:34.986] if (TRUE) { 1555s [00:52:34.986] base::sink(type = "output", split = FALSE) 1555s [00:52:34.986] if (TRUE) { 1555s [00:52:34.986] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1555s [00:52:34.986] } 1555s [00:52:34.986] else { 1555s [00:52:34.986] ...future.result["stdout"] <- base::list(NULL) 1555s [00:52:34.986] } 1555s [00:52:34.986] base::close(...future.stdout) 1555s [00:52:34.986] ...future.stdout <- NULL 1555s [00:52:34.986] } 1555s [00:52:34.986] ...future.result$conditions <- ...future.conditions 1555s [00:52:34.986] ...future.result$finished <- base::Sys.time() 1555s [00:52:34.986] ...future.result 1555s [00:52:34.986] } 1555s [00:52:34.994] assign_globals() ... 1555s [00:52:34.994] List of 5 1555s [00:52:34.994] $ ...future.FUN :function (mode = "logical", length = 0L) 1555s [00:52:34.994] $ future.call.arguments :List of 1 1555s [00:52:34.994] ..$ length: int 2 1555s [00:52:34.994] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1555s [00:52:34.994] $ ...future.elements_ii :List of 1 1555s [00:52:34.994] ..$ a: chr "integer" 1555s [00:52:34.994] $ ...future.seeds_ii : NULL 1555s [00:52:34.994] $ ...future.globals.maxSize: NULL 1555s [00:52:34.994] - attr(*, "where")=List of 5 1555s [00:52:34.994] ..$ ...future.FUN : 1555s [00:52:34.994] ..$ future.call.arguments : 1555s [00:52:34.994] ..$ ...future.elements_ii : 1555s [00:52:34.994] ..$ ...future.seeds_ii : 1555s [00:52:34.994] ..$ ...future.globals.maxSize: 1555s [00:52:34.994] - attr(*, "resolved")= logi FALSE 1555s [00:52:34.994] - attr(*, "total_size")= num 2240 1555s [00:52:34.994] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1555s [00:52:34.994] - attr(*, "already-done")= logi TRUE 1555s [00:52:35.003] - copied ‘...future.FUN’ to environment 1555s [00:52:35.003] - copied ‘future.call.arguments’ to environment 1555s [00:52:35.003] - copied ‘...future.elements_ii’ to environment 1555s [00:52:35.004] - copied ‘...future.seeds_ii’ to environment 1555s [00:52:35.004] - copied ‘...future.globals.maxSize’ to environment 1555s [00:52:35.004] assign_globals() ... done 1555s [00:52:35.005] plan(): Setting new future strategy stack: 1555s [00:52:35.005] List of future strategies: 1555s [00:52:35.005] 1. sequential: 1555s [00:52:35.005] - args: function (..., envir = parent.frame()) 1555s [00:52:35.005] - tweaked: FALSE 1555s [00:52:35.005] - call: NULL 1555s [00:52:35.006] plan(): nbrOfWorkers() = 1 1555s [00:52:35.006] plan(): Setting new future strategy stack: 1555s [00:52:35.007] List of future strategies: 1555s [00:52:35.007] 1. multisession: 1555s [00:52:35.007] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1555s [00:52:35.007] - tweaked: FALSE 1555s [00:52:35.007] - call: plan(strategy) 1555s [00:52:35.011] plan(): nbrOfWorkers() = 1 1555s [00:52:35.011] SequentialFuture started (and completed) 1555s [00:52:35.011] - Launch lazy future ... done 1555s [00:52:35.012] run() for ‘SequentialFuture’ ... done 1555s [00:52:35.012] Created future: 1555s [00:52:35.012] SequentialFuture: 1555s [00:52:35.012] Label: ‘future_lapply-1’ 1555s [00:52:35.012] Expression: 1555s [00:52:35.012] { 1555s [00:52:35.012] do.call(function(...) { 1555s [00:52:35.012] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1555s [00:52:35.012] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1555s [00:52:35.012] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1555s [00:52:35.012] on.exit(options(oopts), add = TRUE) 1555s [00:52:35.012] } 1555s [00:52:35.012] { 1555s [00:52:35.012] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1555s [00:52:35.012] ...future.X_jj <- ...future.elements_ii[[jj]] 1555s [00:52:35.012] ...future.FUN(...future.X_jj, ...) 1555s [00:52:35.012] }) 1555s [00:52:35.012] } 1555s [00:52:35.012] }, args = future.call.arguments) 1555s [00:52:35.012] } 1555s [00:52:35.012] Lazy evaluation: FALSE 1555s [00:52:35.012] Asynchronous evaluation: FALSE 1555s [00:52:35.012] Local evaluation: TRUE 1555s [00:52:35.012] Environment: R_GlobalEnv 1555s [00:52:35.012] Capture standard output: TRUE 1555s [00:52:35.012] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1555s [00:52:35.012] Globals: 5 objects totaling 2.30 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1555s [00:52:35.012] Packages: 1555s [00:52:35.012] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1555s [00:52:35.012] Resolved: TRUE 1555s [00:52:35.012] Value: 56 bytes of class ‘list’ 1555s [00:52:35.012] Early signaling: FALSE 1555s [00:52:35.012] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1555s [00:52:35.012] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1555s [00:52:35.014] Chunk #1 of 4 ... DONE 1555s [00:52:35.014] Chunk #2 of 4 ... 1555s [00:52:35.014] - Finding globals in 'X' for chunk #2 ... 1555s [00:52:35.014] getGlobalsAndPackages() ... 1555s [00:52:35.014] Searching for globals... 1555s [00:52:35.015] 1555s [00:52:35.015] Searching for globals ... DONE 1555s [00:52:35.015] - globals: [0] 1555s [00:52:35.015] getGlobalsAndPackages() ... DONE 1555s [00:52:35.015] + additional globals found: [n=0] 1555s [00:52:35.015] + additional namespaces needed: [n=0] 1555s [00:52:35.016] - Finding globals in 'X' for chunk #2 ... DONE 1555s [00:52:35.016] - Adjusted option 'future.globals.maxSize': 524288000 -> 4 * 524288000 = 2097152000 (bytes) 1555s [00:52:35.016] - seeds: 1555s [00:52:35.016] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1555s [00:52:35.017] getGlobalsAndPackages() ... 1555s [00:52:35.017] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1555s [00:52:35.017] Resolving globals: FALSE 1555s [00:52:35.018] Tweak future expression to call with '...' arguments ... 1555s [00:52:35.018] { 1555s [00:52:35.018] do.call(function(...) { 1555s [00:52:35.018] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1555s [00:52:35.018] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1555s [00:52:35.018] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1555s [00:52:35.018] on.exit(options(oopts), add = TRUE) 1555s [00:52:35.018] } 1555s [00:52:35.018] { 1555s [00:52:35.018] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1555s [00:52:35.018] ...future.X_jj <- ...future.elements_ii[[jj]] 1555s [00:52:35.018] ...future.FUN(...future.X_jj, ...) 1555s [00:52:35.018] }) 1555s [00:52:35.018] } 1555s [00:52:35.018] }, args = future.call.arguments) 1555s [00:52:35.018] } 1555s [00:52:35.019] Tweak future expression to call with '...' arguments ... DONE 1555s [00:52:35.024] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1555s [00:52:35.024] 1555s [00:52:35.025] getGlobalsAndPackages() ... DONE 1555s [00:52:35.025] run() for ‘Future’ ... 1555s [00:52:35.025] - state: ‘created’ 1555s [00:52:35.025] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1555s [00:52:35.030] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1555s [00:52:35.030] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1555s [00:52:35.030] - Field: ‘label’ 1555s [00:52:35.030] - Field: ‘local’ 1555s [00:52:35.031] - Field: ‘owner’ 1555s [00:52:35.031] - Field: ‘envir’ 1555s [00:52:35.031] - Field: ‘packages’ 1555s [00:52:35.032] - Field: ‘gc’ 1555s [00:52:35.032] - Field: ‘conditions’ 1555s [00:52:35.032] - Field: ‘expr’ 1555s [00:52:35.032] - Field: ‘uuid’ 1555s [00:52:35.032] - Field: ‘seed’ 1555s [00:52:35.032] - Field: ‘version’ 1555s [00:52:35.033] - Field: ‘result’ 1555s [00:52:35.033] - Field: ‘asynchronous’ 1555s [00:52:35.033] - Field: ‘calls’ 1555s [00:52:35.033] - Field: ‘globals’ 1555s [00:52:35.033] - Field: ‘stdout’ 1555s [00:52:35.033] - Field: ‘earlySignal’ 1555s [00:52:35.033] - Field: ‘lazy’ 1555s [00:52:35.034] - Field: ‘state’ 1555s [00:52:35.034] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1555s [00:52:35.034] - Launch lazy future ... 1555s [00:52:35.034] Packages needed by the future expression (n = 0): 1555s [00:52:35.034] Packages needed by future strategies (n = 0): 1555s [00:52:35.035] { 1555s [00:52:35.035] { 1555s [00:52:35.035] { 1555s [00:52:35.035] ...future.startTime <- base::Sys.time() 1555s [00:52:35.035] { 1555s [00:52:35.035] { 1555s [00:52:35.035] { 1555s [00:52:35.035] base::local({ 1555s [00:52:35.035] has_future <- base::requireNamespace("future", 1555s [00:52:35.035] quietly = TRUE) 1555s [00:52:35.035] if (has_future) { 1555s [00:52:35.035] ns <- base::getNamespace("future") 1555s [00:52:35.035] version <- ns[[".package"]][["version"]] 1555s [00:52:35.035] if (is.null(version)) 1555s [00:52:35.035] version <- utils::packageVersion("future") 1555s [00:52:35.035] } 1555s [00:52:35.035] else { 1555s [00:52:35.035] version <- NULL 1555s [00:52:35.035] } 1555s [00:52:35.035] if (!has_future || version < "1.8.0") { 1555s [00:52:35.035] info <- base::c(r_version = base::gsub("R version ", 1555s [00:52:35.035] "", base::R.version$version.string), 1555s [00:52:35.035] platform = base::sprintf("%s (%s-bit)", 1555s [00:52:35.035] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1555s [00:52:35.035] os = base::paste(base::Sys.info()[base::c("sysname", 1555s [00:52:35.035] "release", "version")], collapse = " "), 1555s [00:52:35.035] hostname = base::Sys.info()[["nodename"]]) 1555s [00:52:35.035] info <- base::sprintf("%s: %s", base::names(info), 1555s [00:52:35.035] info) 1555s [00:52:35.035] info <- base::paste(info, collapse = "; ") 1555s [00:52:35.035] if (!has_future) { 1555s [00:52:35.035] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1555s [00:52:35.035] info) 1555s [00:52:35.035] } 1555s [00:52:35.035] else { 1555s [00:52:35.035] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1555s [00:52:35.035] info, version) 1555s [00:52:35.035] } 1555s [00:52:35.035] base::stop(msg) 1555s [00:52:35.035] } 1555s [00:52:35.035] }) 1555s [00:52:35.035] } 1555s [00:52:35.035] options(future.plan = NULL) 1555s [00:52:35.035] Sys.unsetenv("R_FUTURE_PLAN") 1555s [00:52:35.035] future::plan("default", .cleanup = FALSE, .init = FALSE) 1555s [00:52:35.035] } 1555s [00:52:35.035] ...future.workdir <- getwd() 1555s [00:52:35.035] } 1555s [00:52:35.035] ...future.oldOptions <- base::as.list(base::.Options) 1555s [00:52:35.035] ...future.oldEnvVars <- base::Sys.getenv() 1555s [00:52:35.035] } 1555s [00:52:35.035] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1555s [00:52:35.035] future.globals.maxSize = 2097152000, future.globals.method = NULL, 1555s [00:52:35.035] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1555s [00:52:35.035] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1555s [00:52:35.035] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1555s [00:52:35.035] future.stdout.windows.reencode = NULL, width = 80L) 1555s [00:52:35.035] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1555s [00:52:35.035] base::names(...future.oldOptions)) 1555s [00:52:35.035] } 1555s [00:52:35.035] if (FALSE) { 1555s [00:52:35.035] } 1555s [00:52:35.035] else { 1555s [00:52:35.035] if (TRUE) { 1555s [00:52:35.035] ...future.stdout <- base::rawConnection(base::raw(0L), 1555s [00:52:35.035] open = "w") 1555s [00:52:35.035] } 1555s [00:52:35.035] else { 1555s [00:52:35.035] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1555s [00:52:35.035] windows = "NUL", "/dev/null"), open = "w") 1555s [00:52:35.035] } 1555s [00:52:35.035] base::sink(...future.stdout, type = "output", split = FALSE) 1555s [00:52:35.035] base::on.exit(if (!base::is.null(...future.stdout)) { 1555s [00:52:35.035] base::sink(type = "output", split = FALSE) 1555s [00:52:35.035] base::close(...future.stdout) 1555s [00:52:35.035] }, add = TRUE) 1555s [00:52:35.035] } 1555s [00:52:35.035] ...future.frame <- base::sys.nframe() 1555s [00:52:35.035] ...future.conditions <- base::list() 1555s [00:52:35.035] ...future.rng <- base::globalenv()$.Random.seed 1555s [00:52:35.035] if (FALSE) { 1555s [00:52:35.035] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1555s [00:52:35.035] "...future.value", "...future.globalenv.names", ".Random.seed") 1555s [00:52:35.035] } 1555s [00:52:35.035] ...future.result <- base::tryCatch({ 1555s [00:52:35.035] base::withCallingHandlers({ 1555s [00:52:35.035] ...future.value <- base::withVisible(base::local({ 1555s [00:52:35.035] do.call(function(...) { 1555s [00:52:35.035] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1555s [00:52:35.035] if (!identical(...future.globals.maxSize.org, 1555s [00:52:35.035] ...future.globals.maxSize)) { 1555s [00:52:35.035] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1555s [00:52:35.035] on.exit(options(oopts), add = TRUE) 1555s [00:52:35.035] } 1555s [00:52:35.035] { 1555s [00:52:35.035] lapply(seq_along(...future.elements_ii), 1555s [00:52:35.035] FUN = function(jj) { 1555s [00:52:35.035] ...future.X_jj <- ...future.elements_ii[[jj]] 1555s [00:52:35.035] ...future.FUN(...future.X_jj, ...) 1555s [00:52:35.035] }) 1555s [00:52:35.035] } 1555s [00:52:35.035] }, args = future.call.arguments) 1555s [00:52:35.035] })) 1555s [00:52:35.035] future::FutureResult(value = ...future.value$value, 1555s [00:52:35.035] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1555s [00:52:35.035] ...future.rng), globalenv = if (FALSE) 1555s [00:52:35.035] list(added = base::setdiff(base::names(base::.GlobalEnv), 1555s [00:52:35.035] ...future.globalenv.names)) 1555s [00:52:35.035] else NULL, started = ...future.startTime, version = "1.8") 1555s [00:52:35.035] }, condition = base::local({ 1555s [00:52:35.035] c <- base::c 1555s [00:52:35.035] inherits <- base::inherits 1555s [00:52:35.035] invokeRestart <- base::invokeRestart 1555s [00:52:35.035] length <- base::length 1555s [00:52:35.035] list <- base::list 1555s [00:52:35.035] seq.int <- base::seq.int 1555s [00:52:35.035] signalCondition <- base::signalCondition 1555s [00:52:35.035] sys.calls <- base::sys.calls 1555s [00:52:35.035] `[[` <- base::`[[` 1555s [00:52:35.035] `+` <- base::`+` 1555s [00:52:35.035] `<<-` <- base::`<<-` 1555s [00:52:35.035] sysCalls <- function(calls = sys.calls(), from = 1L) { 1555s [00:52:35.035] calls[seq.int(from = from + 12L, to = length(calls) - 1555s [00:52:35.035] 3L)] 1555s [00:52:35.035] } 1555s [00:52:35.035] function(cond) { 1555s [00:52:35.035] is_error <- inherits(cond, "error") 1555s [00:52:35.035] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1555s [00:52:35.035] NULL) 1555s [00:52:35.035] if (is_error) { 1555s [00:52:35.035] sessionInformation <- function() { 1555s [00:52:35.035] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1555s [00:52:35.035] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1555s [00:52:35.035] search = base::search(), system = base::Sys.info()) 1555s [00:52:35.035] } 1555s [00:52:35.035] ...future.conditions[[length(...future.conditions) + 1555s [00:52:35.035] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1555s [00:52:35.035] cond$call), session = sessionInformation(), 1555s [00:52:35.035] timestamp = base::Sys.time(), signaled = 0L) 1555s [00:52:35.035] signalCondition(cond) 1555s [00:52:35.035] } 1555s [00:52:35.035] else if (!ignore && TRUE && inherits(cond, c("condition", 1555s [00:52:35.035] "immediateCondition"))) { 1555s [00:52:35.035] signal <- TRUE && inherits(cond, "immediateCondition") 1555s [00:52:35.035] ...future.conditions[[length(...future.conditions) + 1555s [00:52:35.035] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1555s [00:52:35.035] if (TRUE && !signal) { 1555s [00:52:35.035] muffleCondition <- function (cond, pattern = "^muffle") 1555s [00:52:35.035] { 1555s [00:52:35.035] inherits <- base::inherits 1555s [00:52:35.035] invokeRestart <- base::invokeRestart 1555s [00:52:35.035] is.null <- base::is.null 1555s [00:52:35.035] muffled <- FALSE 1555s [00:52:35.035] if (inherits(cond, "message")) { 1555s [00:52:35.035] muffled <- grepl(pattern, "muffleMessage") 1555s [00:52:35.035] if (muffled) 1555s [00:52:35.035] invokeRestart("muffleMessage") 1555s [00:52:35.035] } 1555s [00:52:35.035] else if (inherits(cond, "warning")) { 1555s [00:52:35.035] muffled <- grepl(pattern, "muffleWarning") 1555s [00:52:35.035] if (muffled) 1555s [00:52:35.035] invokeRestart("muffleWarning") 1555s [00:52:35.035] } 1555s [00:52:35.035] else if (inherits(cond, "condition")) { 1555s [00:52:35.035] if (!is.null(pattern)) { 1555s [00:52:35.035] computeRestarts <- base::computeRestarts 1555s [00:52:35.035] grepl <- base::grepl 1555s [00:52:35.035] restarts <- computeRestarts(cond) 1555s [00:52:35.035] for (restart in restarts) { 1555s [00:52:35.035] name <- restart$name 1555s [00:52:35.035] if (is.null(name)) 1555s [00:52:35.035] next 1555s [00:52:35.035] if (!grepl(pattern, name)) 1555s [00:52:35.035] next 1555s [00:52:35.035] invokeRestart(restart) 1555s [00:52:35.035] muffled <- TRUE 1555s [00:52:35.035] break 1555s [00:52:35.035] } 1555s [00:52:35.035] } 1555s [00:52:35.035] } 1555s [00:52:35.035] invisible(muffled) 1555s [00:52:35.035] } 1555s [00:52:35.035] muffleCondition(cond, pattern = "^muffle") 1555s [00:52:35.035] } 1555s [00:52:35.035] } 1555s [00:52:35.035] else { 1555s [00:52:35.035] if (TRUE) { 1555s [00:52:35.035] muffleCondition <- function (cond, pattern = "^muffle") 1555s [00:52:35.035] { 1555s [00:52:35.035] inherits <- base::inherits 1555s [00:52:35.035] invokeRestart <- base::invokeRestart 1555s [00:52:35.035] is.null <- base::is.null 1555s [00:52:35.035] muffled <- FALSE 1555s [00:52:35.035] if (inherits(cond, "message")) { 1555s [00:52:35.035] muffled <- grepl(pattern, "muffleMessage") 1555s [00:52:35.035] if (muffled) 1555s [00:52:35.035] invokeRestart("muffleMessage") 1555s [00:52:35.035] } 1555s [00:52:35.035] else if (inherits(cond, "warning")) { 1555s [00:52:35.035] muffled <- grepl(pattern, "muffleWarning") 1555s [00:52:35.035] if (muffled) 1555s [00:52:35.035] invokeRestart("muffleWarning") 1555s [00:52:35.035] } 1555s [00:52:35.035] else if (inherits(cond, "condition")) { 1555s [00:52:35.035] if (!is.null(pattern)) { 1555s [00:52:35.035] computeRestarts <- base::computeRestarts 1555s [00:52:35.035] grepl <- base::grepl 1555s [00:52:35.035] restarts <- computeRestarts(cond) 1555s [00:52:35.035] for (restart in restarts) { 1555s [00:52:35.035] name <- restart$name 1555s [00:52:35.035] if (is.null(name)) 1555s [00:52:35.035] next 1555s [00:52:35.035] if (!grepl(pattern, name)) 1555s [00:52:35.035] next 1555s [00:52:35.035] invokeRestart(restart) 1555s [00:52:35.035] muffled <- TRUE 1555s [00:52:35.035] break 1555s [00:52:35.035] } 1555s [00:52:35.035] } 1555s [00:52:35.035] } 1555s [00:52:35.035] invisible(muffled) 1555s [00:52:35.035] } 1555s [00:52:35.035] muffleCondition(cond, pattern = "^muffle") 1555s [00:52:35.035] } 1555s [00:52:35.035] } 1555s [00:52:35.035] } 1555s [00:52:35.035] })) 1555s [00:52:35.035] }, error = function(ex) { 1555s [00:52:35.035] base::structure(base::list(value = NULL, visible = NULL, 1555s [00:52:35.035] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1555s [00:52:35.035] ...future.rng), started = ...future.startTime, 1555s [00:52:35.035] finished = Sys.time(), session_uuid = NA_character_, 1555s [00:52:35.035] version = "1.8"), class = "FutureResult") 1555s [00:52:35.035] }, finally = { 1555s [00:52:35.035] if (!identical(...future.workdir, getwd())) 1555s [00:52:35.035] setwd(...future.workdir) 1555s [00:52:35.035] { 1555s [00:52:35.035] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1555s [00:52:35.035] ...future.oldOptions$nwarnings <- NULL 1555s [00:52:35.035] } 1555s [00:52:35.035] base::options(...future.oldOptions) 1555s [00:52:35.035] if (.Platform$OS.type == "windows") { 1555s [00:52:35.035] old_names <- names(...future.oldEnvVars) 1555s [00:52:35.035] envs <- base::Sys.getenv() 1555s [00:52:35.035] names <- names(envs) 1555s [00:52:35.035] common <- intersect(names, old_names) 1555s [00:52:35.035] added <- setdiff(names, old_names) 1555s [00:52:35.035] removed <- setdiff(old_names, names) 1555s [00:52:35.035] changed <- common[...future.oldEnvVars[common] != 1555s [00:52:35.035] envs[common]] 1555s [00:52:35.035] NAMES <- toupper(changed) 1555s [00:52:35.035] args <- list() 1555s [00:52:35.035] for (kk in seq_along(NAMES)) { 1555s [00:52:35.035] name <- changed[[kk]] 1555s [00:52:35.035] NAME <- NAMES[[kk]] 1555s [00:52:35.035] if (name != NAME && is.element(NAME, old_names)) 1555s [00:52:35.035] next 1555s [00:52:35.035] args[[name]] <- ...future.oldEnvVars[[name]] 1555s [00:52:35.035] } 1555s [00:52:35.035] NAMES <- toupper(added) 1555s [00:52:35.035] for (kk in seq_along(NAMES)) { 1555s [00:52:35.035] name <- added[[kk]] 1555s [00:52:35.035] NAME <- NAMES[[kk]] 1555s [00:52:35.035] if (name != NAME && is.element(NAME, old_names)) 1555s [00:52:35.035] next 1555s [00:52:35.035] args[[name]] <- "" 1555s [00:52:35.035] } 1555s [00:52:35.035] NAMES <- toupper(removed) 1555s [00:52:35.035] for (kk in seq_along(NAMES)) { 1555s [00:52:35.035] name <- removed[[kk]] 1555s [00:52:35.035] NAME <- NAMES[[kk]] 1555s [00:52:35.035] if (name != NAME && is.element(NAME, old_names)) 1555s [00:52:35.035] next 1555s [00:52:35.035] args[[name]] <- ...future.oldEnvVars[[name]] 1555s [00:52:35.035] } 1555s [00:52:35.035] if (length(args) > 0) 1555s [00:52:35.035] base::do.call(base::Sys.setenv, args = args) 1555s [00:52:35.035] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1555s [00:52:35.035] } 1555s [00:52:35.035] else { 1555s [00:52:35.035] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1555s [00:52:35.035] } 1555s [00:52:35.035] { 1555s [00:52:35.035] if (base::length(...future.futureOptionsAdded) > 1555s [00:52:35.035] 0L) { 1555s [00:52:35.035] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1555s [00:52:35.035] base::names(opts) <- ...future.futureOptionsAdded 1555s [00:52:35.035] base::options(opts) 1555s [00:52:35.035] } 1555s [00:52:35.035] { 1555s [00:52:35.035] { 1555s [00:52:35.035] NULL 1555s [00:52:35.035] RNGkind("Mersenne-Twister") 1555s [00:52:35.035] base::rm(list = ".Random.seed", envir = base::globalenv(), 1555s [00:52:35.035] inherits = FALSE) 1555s [00:52:35.035] } 1555s [00:52:35.035] options(future.plan = NULL) 1555s [00:52:35.035] if (is.na(NA_character_)) 1555s [00:52:35.035] Sys.unsetenv("R_FUTURE_PLAN") 1555s [00:52:35.035] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1555s [00:52:35.035] future::plan(list(function (..., workers = availableCores(), 1555s [00:52:35.035] lazy = FALSE, rscript_libs = .libPaths(), 1555s [00:52:35.035] envir = parent.frame()) 1555s [00:52:35.035] { 1555s [00:52:35.035] if (is.function(workers)) 1555s [00:52:35.035] workers <- workers() 1555s [00:52:35.035] workers <- structure(as.integer(workers), 1555s [00:52:35.035] class = class(workers)) 1555s [00:52:35.035] stop_if_not(length(workers) == 1, is.finite(workers), 1555s [00:52:35.035] workers >= 1) 1555s [00:52:35.035] if (workers == 1L && !inherits(workers, "AsIs")) { 1555s [00:52:35.035] return(sequential(..., lazy = TRUE, envir = envir)) 1555s [00:52:35.035] } 1555s [00:52:35.035] future <- MultisessionFuture(..., workers = workers, 1555s [00:52:35.035] lazy = lazy, rscript_libs = rscript_libs, 1555s [00:52:35.035] envir = envir) 1555s [00:52:35.035] if (!future$lazy) 1555s [00:52:35.035] future <- run(future) 1555s [00:52:35.035] invisible(future) 1555s [00:52:35.035] }), .cleanup = FALSE, .init = FALSE) 1555s [00:52:35.035] } 1555s [00:52:35.035] } 1555s [00:52:35.035] } 1555s [00:52:35.035] }) 1555s [00:52:35.035] if (TRUE) { 1555s [00:52:35.035] base::sink(type = "output", split = FALSE) 1555s [00:52:35.035] if (TRUE) { 1555s [00:52:35.035] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1555s [00:52:35.035] } 1555s [00:52:35.035] else { 1555s [00:52:35.035] ...future.result["stdout"] <- base::list(NULL) 1555s [00:52:35.035] } 1555s [00:52:35.035] base::close(...future.stdout) 1555s [00:52:35.035] ...future.stdout <- NULL 1555s [00:52:35.035] } 1555s [00:52:35.035] ...future.result$conditions <- ...future.conditions 1555s [00:52:35.035] ...future.result$finished <- base::Sys.time() 1555s [00:52:35.035] ...future.result 1555s [00:52:35.035] } 1555s [00:52:35.038] assign_globals() ... 1555s [00:52:35.038] List of 5 1555s [00:52:35.038] $ ...future.FUN :function (mode = "logical", length = 0L) 1555s [00:52:35.038] $ future.call.arguments :List of 1 1555s [00:52:35.038] ..$ length: int 2 1555s [00:52:35.038] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1555s [00:52:35.038] $ ...future.elements_ii :List of 1 1555s [00:52:35.038] ..$ b: chr "numeric" 1555s [00:52:35.038] $ ...future.seeds_ii : NULL 1555s [00:52:35.038] $ ...future.globals.maxSize: NULL 1555s [00:52:35.038] - attr(*, "where")=List of 5 1555s [00:52:35.038] ..$ ...future.FUN : 1555s [00:52:35.038] ..$ future.call.arguments : 1555s [00:52:35.038] ..$ ...future.elements_ii : 1555s [00:52:35.038] ..$ ...future.seeds_ii : 1555s [00:52:35.038] ..$ ...future.globals.maxSize: 1555s [00:52:35.038] - attr(*, "resolved")= logi FALSE 1555s [00:52:35.038] - attr(*, "total_size")= num 2240 1555s [00:52:35.038] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1555s [00:52:35.038] - attr(*, "already-done")= logi TRUE 1555s [00:52:35.045] - copied ‘...future.FUN’ to environment 1555s [00:52:35.045] - copied ‘future.call.arguments’ to environment 1555s [00:52:35.045] - copied ‘...future.elements_ii’ to environment 1555s [00:52:35.045] - copied ‘...future.seeds_ii’ to environment 1555s [00:52:35.045] - copied ‘...future.globals.maxSize’ to environment 1555s [00:52:35.045] assign_globals() ... done 1555s [00:52:35.046] plan(): Setting new future strategy stack: 1555s [00:52:35.046] List of future strategies: 1555s [00:52:35.046] 1. sequential: 1555s [00:52:35.046] - args: function (..., envir = parent.frame()) 1555s [00:52:35.046] - tweaked: FALSE 1555s [00:52:35.046] - call: NULL 1555s [00:52:35.046] plan(): nbrOfWorkers() = 1 1555s [00:52:35.047] plan(): Setting new future strategy stack: 1555s [00:52:35.048] List of future strategies: 1555s [00:52:35.048] 1. multisession: 1555s [00:52:35.048] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1555s [00:52:35.048] - tweaked: FALSE 1555s [00:52:35.048] - call: plan(strategy) 1555s [00:52:35.052] plan(): nbrOfWorkers() = 1 1555s [00:52:35.052] SequentialFuture started (and completed) 1555s [00:52:35.052] - Launch lazy future ... done 1555s [00:52:35.053] run() for ‘SequentialFuture’ ... done 1555s [00:52:35.053] Created future: 1555s [00:52:35.053] SequentialFuture: 1555s [00:52:35.053] Label: ‘future_lapply-2’ 1555s [00:52:35.053] Expression: 1555s [00:52:35.053] { 1555s [00:52:35.053] do.call(function(...) { 1555s [00:52:35.053] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1555s [00:52:35.053] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1555s [00:52:35.053] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1555s [00:52:35.053] on.exit(options(oopts), add = TRUE) 1555s [00:52:35.053] } 1555s [00:52:35.053] { 1555s [00:52:35.053] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1555s [00:52:35.053] ...future.X_jj <- ...future.elements_ii[[jj]] 1555s [00:52:35.053] ...future.FUN(...future.X_jj, ...) 1555s [00:52:35.053] }) 1555s [00:52:35.053] } 1555s [00:52:35.053] }, args = future.call.arguments) 1555s [00:52:35.053] } 1555s [00:52:35.053] Lazy evaluation: FALSE 1555s [00:52:35.053] Asynchronous evaluation: FALSE 1555s [00:52:35.053] Local evaluation: TRUE 1555s [00:52:35.053] Environment: R_GlobalEnv 1555s [00:52:35.053] Capture standard output: TRUE 1555s [00:52:35.053] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1555s [00:52:35.053] Globals: 5 objects totaling 2.30 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1555s [00:52:35.053] Packages: 1555s [00:52:35.053] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1555s [00:52:35.053] Resolved: TRUE 1555s [00:52:35.053] Value: 64 bytes of class ‘list’ 1555s [00:52:35.053] Early signaling: FALSE 1555s [00:52:35.053] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1555s [00:52:35.053] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1555s [00:52:35.055] Chunk #2 of 4 ... DONE 1555s [00:52:35.055] Chunk #3 of 4 ... 1555s [00:52:35.055] - Finding globals in 'X' for chunk #3 ... 1555s [00:52:35.056] getGlobalsAndPackages() ... 1555s [00:52:35.056] Searching for globals... 1555s [00:52:35.056] 1555s [00:52:35.057] Searching for globals ... DONE 1555s [00:52:35.057] - globals: [0] 1555s [00:52:35.057] getGlobalsAndPackages() ... DONE 1555s [00:52:35.057] + additional globals found: [n=0] 1555s [00:52:35.057] + additional namespaces needed: [n=0] 1555s [00:52:35.057] - Finding globals in 'X' for chunk #3 ... DONE 1555s [00:52:35.058] - Adjusted option 'future.globals.maxSize': 524288000 -> 4 * 524288000 = 2097152000 (bytes) 1555s [00:52:35.058] - seeds: 1555s [00:52:35.058] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1555s [00:52:35.058] getGlobalsAndPackages() ... 1555s [00:52:35.058] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1555s [00:52:35.058] Resolving globals: FALSE 1555s [00:52:35.059] Tweak future expression to call with '...' arguments ... 1555s [00:52:35.059] { 1555s [00:52:35.059] do.call(function(...) { 1555s [00:52:35.059] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1555s [00:52:35.059] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1555s [00:52:35.059] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1555s [00:52:35.059] on.exit(options(oopts), add = TRUE) 1555s [00:52:35.059] } 1555s [00:52:35.059] { 1555s [00:52:35.059] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1555s [00:52:35.059] ...future.X_jj <- ...future.elements_ii[[jj]] 1555s [00:52:35.059] ...future.FUN(...future.X_jj, ...) 1555s [00:52:35.059] }) 1555s [00:52:35.059] } 1555s [00:52:35.059] }, args = future.call.arguments) 1555s [00:52:35.059] } 1555s [00:52:35.059] Tweak future expression to call with '...' arguments ... DONE 1555s [00:52:35.060] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1555s [00:52:35.060] 1555s [00:52:35.060] getGlobalsAndPackages() ... DONE 1555s [00:52:35.061] run() for ‘Future’ ... 1555s [00:52:35.061] - state: ‘created’ 1555s [00:52:35.061] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1555s [00:52:35.065] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1555s [00:52:35.065] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1555s [00:52:35.065] - Field: ‘label’ 1555s [00:52:35.065] - Field: ‘local’ 1555s [00:52:35.065] - Field: ‘owner’ 1555s [00:52:35.066] - Field: ‘envir’ 1555s [00:52:35.066] - Field: ‘packages’ 1555s [00:52:35.066] - Field: ‘gc’ 1555s [00:52:35.066] - Field: ‘conditions’ 1555s [00:52:35.066] - Field: ‘expr’ 1555s [00:52:35.066] - Field: ‘uuid’ 1555s [00:52:35.067] - Field: ‘seed’ 1555s [00:52:35.067] - Field: ‘version’ 1555s [00:52:35.067] - Field: ‘result’ 1555s [00:52:35.067] - Field: ‘asynchronous’ 1555s [00:52:35.067] - Field: ‘calls’ 1555s [00:52:35.068] - Field: ‘globals’ 1555s [00:52:35.068] - Field: ‘stdout’ 1555s [00:52:35.068] - Field: ‘earlySignal’ 1555s [00:52:35.068] - Field: ‘lazy’ 1555s [00:52:35.068] - Field: ‘state’ 1555s [00:52:35.068] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1555s [00:52:35.069] - Launch lazy future ... 1555s [00:52:35.070] Packages needed by the future expression (n = 0): 1555s [00:52:35.070] Packages needed by future strategies (n = 0): 1555s [00:52:35.071] { 1555s [00:52:35.071] { 1555s [00:52:35.071] { 1555s [00:52:35.071] ...future.startTime <- base::Sys.time() 1555s [00:52:35.071] { 1555s [00:52:35.071] { 1555s [00:52:35.071] { 1555s [00:52:35.071] base::local({ 1555s [00:52:35.071] has_future <- base::requireNamespace("future", 1555s [00:52:35.071] quietly = TRUE) 1555s [00:52:35.071] if (has_future) { 1555s [00:52:35.071] ns <- base::getNamespace("future") 1555s [00:52:35.071] version <- ns[[".package"]][["version"]] 1555s [00:52:35.071] if (is.null(version)) 1555s [00:52:35.071] version <- utils::packageVersion("future") 1555s [00:52:35.071] } 1555s [00:52:35.071] else { 1555s [00:52:35.071] version <- NULL 1555s [00:52:35.071] } 1555s [00:52:35.071] if (!has_future || version < "1.8.0") { 1555s [00:52:35.071] info <- base::c(r_version = base::gsub("R version ", 1555s [00:52:35.071] "", base::R.version$version.string), 1555s [00:52:35.071] platform = base::sprintf("%s (%s-bit)", 1555s [00:52:35.071] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1555s [00:52:35.071] os = base::paste(base::Sys.info()[base::c("sysname", 1555s [00:52:35.071] "release", "version")], collapse = " "), 1555s [00:52:35.071] hostname = base::Sys.info()[["nodename"]]) 1555s [00:52:35.071] info <- base::sprintf("%s: %s", base::names(info), 1555s [00:52:35.071] info) 1555s [00:52:35.071] info <- base::paste(info, collapse = "; ") 1555s [00:52:35.071] if (!has_future) { 1555s [00:52:35.071] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1555s [00:52:35.071] info) 1555s [00:52:35.071] } 1555s [00:52:35.071] else { 1555s [00:52:35.071] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1555s [00:52:35.071] info, version) 1555s [00:52:35.071] } 1555s [00:52:35.071] base::stop(msg) 1555s [00:52:35.071] } 1555s [00:52:35.071] }) 1555s [00:52:35.071] } 1555s [00:52:35.071] options(future.plan = NULL) 1555s [00:52:35.071] Sys.unsetenv("R_FUTURE_PLAN") 1555s [00:52:35.071] future::plan("default", .cleanup = FALSE, .init = FALSE) 1555s [00:52:35.071] } 1555s [00:52:35.071] ...future.workdir <- getwd() 1555s [00:52:35.071] } 1555s [00:52:35.071] ...future.oldOptions <- base::as.list(base::.Options) 1555s [00:52:35.071] ...future.oldEnvVars <- base::Sys.getenv() 1555s [00:52:35.071] } 1555s [00:52:35.071] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1555s [00:52:35.071] future.globals.maxSize = 2097152000, future.globals.method = NULL, 1555s [00:52:35.071] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1555s [00:52:35.071] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1555s [00:52:35.071] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1555s [00:52:35.071] future.stdout.windows.reencode = NULL, width = 80L) 1555s [00:52:35.071] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1555s [00:52:35.071] base::names(...future.oldOptions)) 1555s [00:52:35.071] } 1555s [00:52:35.071] if (FALSE) { 1555s [00:52:35.071] } 1555s [00:52:35.071] else { 1555s [00:52:35.071] if (TRUE) { 1555s [00:52:35.071] ...future.stdout <- base::rawConnection(base::raw(0L), 1555s [00:52:35.071] open = "w") 1555s [00:52:35.071] } 1555s [00:52:35.071] else { 1555s [00:52:35.071] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1555s [00:52:35.071] windows = "NUL", "/dev/null"), open = "w") 1555s [00:52:35.071] } 1555s [00:52:35.071] base::sink(...future.stdout, type = "output", split = FALSE) 1555s [00:52:35.071] base::on.exit(if (!base::is.null(...future.stdout)) { 1555s [00:52:35.071] List of 1 1555s $ y:List of 4 1555s ..$ a: int [1:2] 0 0 1555s ..$ b: num [1:2] 0 0 1555s ..$ c: chr [1:2] "" "" 1555s ..$ c:List of 2 1555s .. ..$ : NULL 1555s .. ..$ : NULL 1555s base::sink(type = "output", split = FALSE) 1555s [00:52:35.071] base::close(...future.stdout) 1555s [00:52:35.071] }, add = TRUE) 1555s [00:52:35.071] } 1555s [00:52:35.071] ...future.frame <- base::sys.nframe() 1555s [00:52:35.071] ...future.conditions <- base::list() 1555s [00:52:35.071] ...future.rng <- base::globalenv()$.Random.seed 1555s [00:52:35.071] if (FALSE) { 1555s [00:52:35.071] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1555s [00:52:35.071] "...future.value", "...future.globalenv.names", ".Random.seed") 1555s [00:52:35.071] } 1555s [00:52:35.071] ...future.result <- base::tryCatch({ 1555s [00:52:35.071] base::withCallingHandlers({ 1555s [00:52:35.071] ...future.value <- base::withVisible(base::local({ 1555s [00:52:35.071] do.call(function(...) { 1555s [00:52:35.071] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1555s [00:52:35.071] if (!identical(...future.globals.maxSize.org, 1555s [00:52:35.071] ...future.globals.maxSize)) { 1555s [00:52:35.071] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1555s [00:52:35.071] on.exit(options(oopts), add = TRUE) 1555s [00:52:35.071] } 1555s [00:52:35.071] { 1555s [00:52:35.071] lapply(seq_along(...future.elements_ii), 1555s [00:52:35.071] FUN = function(jj) { 1555s [00:52:35.071] ...future.X_jj <- ...future.elements_ii[[jj]] 1555s [00:52:35.071] ...future.FUN(...future.X_jj, ...) 1555s [00:52:35.071] }) 1555s [00:52:35.071] } 1555s [00:52:35.071] }, args = future.call.arguments) 1555s [00:52:35.071] })) 1555s [00:52:35.071] future::FutureResult(value = ...future.value$value, 1555s [00:52:35.071] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1555s [00:52:35.071] ...future.rng), globalenv = if (FALSE) 1555s [00:52:35.071] list(added = base::setdiff(base::names(base::.GlobalEnv), 1555s [00:52:35.071] ...future.globalenv.names)) 1555s [00:52:35.071] else NULL, started = ...future.startTime, version = "1.8") 1555s [00:52:35.071] }, condition = base::local({ 1555s [00:52:35.071] c <- base::c 1555s [00:52:35.071] inherits <- base::inherits 1555s [00:52:35.071] invokeRestart <- base::invokeRestart 1555s [00:52:35.071] length <- base::length 1555s [00:52:35.071] list <- base::list 1555s [00:52:35.071] seq.int <- base::seq.int 1555s [00:52:35.071] signalCondition <- base::signalCondition 1555s [00:52:35.071] sys.calls <- base::sys.calls 1555s [00:52:35.071] `[[` <- base::`[[` 1555s [00:52:35.071] `+` <- base::`+` 1555s [00:52:35.071] `<<-` <- base::`<<-` 1555s [00:52:35.071] sysCalls <- function(calls = sys.calls(), from = 1L) { 1555s [00:52:35.071] calls[seq.int(from = from + 12L, to = length(calls) - 1555s [00:52:35.071] 3L)] 1555s [00:52:35.071] } 1555s [00:52:35.071] function(cond) { 1555s [00:52:35.071] is_error <- inherits(cond, "error") 1555s [00:52:35.071] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1555s [00:52:35.071] NULL) 1555s [00:52:35.071] if (is_error) { 1555s [00:52:35.071] sessionInformation <- function() { 1555s [00:52:35.071] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1555s [00:52:35.071] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1555s [00:52:35.071] search = base::search(), system = base::Sys.info()) 1555s [00:52:35.071] } 1555s [00:52:35.071] ...future.conditions[[length(...future.conditions) + 1555s [00:52:35.071] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1555s [00:52:35.071] cond$call), session = sessionInformation(), 1555s [00:52:35.071] timestamp = base::Sys.time(), signaled = 0L) 1555s [00:52:35.071] signalCondition(cond) 1555s [00:52:35.071] } 1555s [00:52:35.071] else if (!ignore && TRUE && inherits(cond, c("condition", 1555s [00:52:35.071] "immediateCondition"))) { 1555s [00:52:35.071] signal <- TRUE && inherits(cond, "immediateCondition") 1555s [00:52:35.071] ...future.conditions[[length(...future.conditions) + 1555s [00:52:35.071] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1555s [00:52:35.071] if (TRUE && !signal) { 1555s [00:52:35.071] muffleCondition <- function (cond, pattern = "^muffle") 1555s [00:52:35.071] { 1555s [00:52:35.071] inherits <- base::inherits 1555s [00:52:35.071] invokeRestart <- base::invokeRestart 1555s [00:52:35.071] is.null <- base::is.null 1555s [00:52:35.071] muffled <- FALSE 1555s [00:52:35.071] if (inherits(cond, "message")) { 1555s [00:52:35.071] muffled <- grepl(pattern, "muffleMessage") 1555s [00:52:35.071] if (muffled) 1555s [00:52:35.071] invokeRestart("muffleMessage") 1555s [00:52:35.071] } 1555s [00:52:35.071] else if (inherits(cond, "warning")) { 1555s [00:52:35.071] muffled <- grepl(pattern, "muffleWarning") 1555s [00:52:35.071] if (muffled) 1555s [00:52:35.071] invokeRestart("muffleWarning") 1555s [00:52:35.071] } 1555s [00:52:35.071] else if (inherits(cond, "condition")) { 1555s [00:52:35.071] if (!is.null(pattern)) { 1555s [00:52:35.071] computeRestarts <- base::computeRestarts 1555s [00:52:35.071] grepl <- base::grepl 1555s [00:52:35.071] restarts <- computeRestarts(cond) 1555s [00:52:35.071] for (restart in restarts) { 1555s [00:52:35.071] name <- restart$name 1555s [00:52:35.071] if (is.null(name)) 1555s [00:52:35.071] next 1555s [00:52:35.071] if (!grepl(pattern, name)) 1555s [00:52:35.071] next 1555s [00:52:35.071] invokeRestart(restart) 1555s [00:52:35.071] muffled <- TRUE 1555s [00:52:35.071] break 1555s [00:52:35.071] } 1555s [00:52:35.071] } 1555s [00:52:35.071] } 1555s [00:52:35.071] invisible(muffled) 1555s [00:52:35.071] } 1555s [00:52:35.071] muffleCondition(cond, pattern = "^muffle") 1555s [00:52:35.071] } 1555s [00:52:35.071] } 1555s [00:52:35.071] else { 1555s [00:52:35.071] if (TRUE) { 1555s [00:52:35.071] muffleCondition <- function (cond, pattern = "^muffle") 1555s [00:52:35.071] { 1555s [00:52:35.071] inherits <- base::inherits 1555s [00:52:35.071] invokeRestart <- base::invokeRestart 1555s [00:52:35.071] is.null <- base::is.null 1555s [00:52:35.071] muffled <- FALSE 1555s [00:52:35.071] if (inherits(cond, "message")) { 1555s [00:52:35.071] muffled <- grepl(pattern, "muffleMessage") 1555s [00:52:35.071] if (muffled) 1555s [00:52:35.071] invokeRestart("muffleMessage") 1555s [00:52:35.071] } 1555s [00:52:35.071] else if (inherits(cond, "warning")) { 1555s [00:52:35.071] muffled <- grepl(pattern, "muffleWarning") 1555s [00:52:35.071] if (muffled) 1555s [00:52:35.071] invokeRestart("muffleWarning") 1555s [00:52:35.071] } 1555s [00:52:35.071] else if (inherits(cond, "condition")) { 1555s [00:52:35.071] if (!is.null(pattern)) { 1555s [00:52:35.071] computeRestarts <- base::computeRestarts 1555s [00:52:35.071] grepl <- base::grepl 1555s [00:52:35.071] restarts <- computeRestarts(cond) 1555s [00:52:35.071] for (restart in restarts) { 1555s [00:52:35.071] name <- restart$name 1555s [00:52:35.071] if (is.null(name)) 1555s [00:52:35.071] next 1555s [00:52:35.071] if (!grepl(pattern, name)) 1555s [00:52:35.071] next 1555s [00:52:35.071] invokeRestart(restart) 1555s [00:52:35.071] muffled <- TRUE 1555s [00:52:35.071] break 1555s [00:52:35.071] } 1555s [00:52:35.071] } 1555s [00:52:35.071] } 1555s [00:52:35.071] invisible(muffled) 1555s [00:52:35.071] } 1555s [00:52:35.071] muffleCondition(cond, pattern = "^muffle") 1555s [00:52:35.071] } 1555s [00:52:35.071] } 1555s [00:52:35.071] } 1555s [00:52:35.071] })) 1555s [00:52:35.071] }, error = function(ex) { 1555s [00:52:35.071] base::structure(base::list(value = NULL, visible = NULL, 1555s [00:52:35.071] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1555s [00:52:35.071] ...future.rng), started = ...future.startTime, 1555s [00:52:35.071] finished = Sys.time(), session_uuid = NA_character_, 1555s [00:52:35.071] version = "1.8"), class = "FutureResult") 1555s [00:52:35.071] }, finally = { 1555s [00:52:35.071] if (!identical(...future.workdir, getwd())) 1555s [00:52:35.071] setwd(...future.workdir) 1555s [00:52:35.071] { 1555s [00:52:35.071] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1555s [00:52:35.071] ...future.oldOptions$nwarnings <- NULL 1555s [00:52:35.071] } 1555s [00:52:35.071] base::options(...future.oldOptions) 1555s [00:52:35.071] if (.Platform$OS.type == "windows") { 1555s [00:52:35.071] old_names <- names(...future.oldEnvVars) 1555s [00:52:35.071] envs <- base::Sys.getenv() 1555s [00:52:35.071] names <- names(envs) 1555s [00:52:35.071] common <- intersect(names, old_names) 1555s [00:52:35.071] added <- setdiff(names, old_names) 1555s [00:52:35.071] removed <- setdiff(old_names, names) 1555s [00:52:35.071] changed <- common[...future.oldEnvVars[common] != 1555s [00:52:35.071] envs[common]] 1555s [00:52:35.071] NAMES <- toupper(changed) 1555s [00:52:35.071] args <- list() 1555s [00:52:35.071] for (kk in seq_along(NAMES)) { 1555s [00:52:35.071] name <- changed[[kk]] 1555s [00:52:35.071] NAME <- NAMES[[kk]] 1555s [00:52:35.071] if (name != NAME && is.element(NAME, old_names)) 1555s [00:52:35.071] next 1555s [00:52:35.071] args[[name]] <- ...future.oldEnvVars[[name]] 1555s [00:52:35.071] } 1555s [00:52:35.071] NAMES <- toupper(added) 1555s [00:52:35.071] for (kk in seq_along(NAMES)) { 1555s [00:52:35.071] name <- added[[kk]] 1555s [00:52:35.071] NAME <- NAMES[[kk]] 1555s [00:52:35.071] if (name != NAME && is.element(NAME, old_names)) 1555s [00:52:35.071] next 1555s [00:52:35.071] args[[name]] <- "" 1555s [00:52:35.071] } 1555s [00:52:35.071] NAMES <- toupper(removed) 1555s [00:52:35.071] for (kk in seq_along(NAMES)) { 1555s [00:52:35.071] name <- removed[[kk]] 1555s [00:52:35.071] NAME <- NAMES[[kk]] 1555s [00:52:35.071] if (name != NAME && is.element(NAME, old_names)) 1555s [00:52:35.071] next 1555s [00:52:35.071] args[[name]] <- ...future.oldEnvVars[[name]] 1555s [00:52:35.071] } 1555s [00:52:35.071] if (length(args) > 0) 1555s [00:52:35.071] base::do.call(base::Sys.setenv, args = args) 1555s [00:52:35.071] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1555s [00:52:35.071] } 1555s [00:52:35.071] else { 1555s [00:52:35.071] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1555s [00:52:35.071] } 1555s [00:52:35.071] { 1555s [00:52:35.071] if (base::length(...future.futureOptionsAdded) > 1555s [00:52:35.071] 0L) { 1555s [00:52:35.071] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1555s [00:52:35.071] base::names(opts) <- ...future.futureOptionsAdded 1555s [00:52:35.071] base::options(opts) 1555s [00:52:35.071] } 1555s [00:52:35.071] { 1555s [00:52:35.071] { 1555s [00:52:35.071] NULL 1555s [00:52:35.071] RNGkind("Mersenne-Twister") 1555s [00:52:35.071] base::rm(list = ".Random.seed", envir = base::globalenv(), 1555s [00:52:35.071] inherits = FALSE) 1555s [00:52:35.071] } 1555s [00:52:35.071] options(future.plan = NULL) 1555s [00:52:35.071] if (is.na(NA_character_)) 1555s [00:52:35.071] Sys.unsetenv("R_FUTURE_PLAN") 1555s [00:52:35.071] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1555s [00:52:35.071] future::plan(list(function (..., workers = availableCores(), 1555s [00:52:35.071] lazy = FALSE, rscript_libs = .libPaths(), 1555s [00:52:35.071] envir = parent.frame()) 1555s [00:52:35.071] { 1555s [00:52:35.071] if (is.function(workers)) 1555s [00:52:35.071] workers <- workers() 1555s [00:52:35.071] workers <- structure(as.integer(workers), 1555s [00:52:35.071] class = class(workers)) 1555s [00:52:35.071] stop_if_not(length(workers) == 1, is.finite(workers), 1555s [00:52:35.071] workers >= 1) 1555s [00:52:35.071] if (workers == 1L && !inherits(workers, "AsIs")) { 1555s [00:52:35.071] return(sequential(..., lazy = TRUE, envir = envir)) 1555s [00:52:35.071] } 1555s [00:52:35.071] future <- MultisessionFuture(..., workers = workers, 1555s [00:52:35.071] lazy = lazy, rscript_libs = rscript_libs, 1555s [00:52:35.071] envir = envir) 1555s [00:52:35.071] if (!future$lazy) 1555s [00:52:35.071] future <- run(future) 1555s [00:52:35.071] invisible(future) 1555s [00:52:35.071] }), .cleanup = FALSE, .init = FALSE) 1555s [00:52:35.071] } 1555s [00:52:35.071] } 1555s [00:52:35.071] } 1555s [00:52:35.071] }) 1555s [00:52:35.071] if (TRUE) { 1555s [00:52:35.071] base::sink(type = "output", split = FALSE) 1555s [00:52:35.071] if (TRUE) { 1555s [00:52:35.071] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1555s [00:52:35.071] } 1555s [00:52:35.071] else { 1555s [00:52:35.071] ...future.result["stdout"] <- base::list(NULL) 1555s [00:52:35.071] } 1555s [00:52:35.071] base::close(...future.stdout) 1555s [00:52:35.071] ...future.stdout <- NULL 1555s [00:52:35.071] } 1555s [00:52:35.071] ...future.result$conditions <- ...future.conditions 1555s [00:52:35.071] ...future.result$finished <- base::Sys.time() 1555s [00:52:35.071] ...future.result 1555s [00:52:35.071] } 1555s [00:52:35.078] assign_globals() ... 1555s [00:52:35.078] List of 5 1555s [00:52:35.078] $ ...future.FUN :function (mode = "logical", length = 0L) 1555s [00:52:35.078] $ future.call.arguments :List of 1 1555s [00:52:35.078] ..$ length: int 2 1555s [00:52:35.078] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1555s [00:52:35.078] $ ...future.elements_ii :List of 1 1555s [00:52:35.078] ..$ c: chr "character" 1555s [00:52:35.078] $ ...future.seeds_ii : NULL 1555s [00:52:35.078] $ ...future.globals.maxSize: NULL 1555s [00:52:35.078] - attr(*, "where")=List of 5 1555s [00:52:35.078] ..$ ...future.FUN : 1555s [00:52:35.078] ..$ future.call.arguments : 1555s [00:52:35.078] ..$ ...future.elements_ii : 1555s [00:52:35.078] ..$ ...future.seeds_ii : 1555s [00:52:35.078] ..$ ...future.globals.maxSize: 1555s [00:52:35.078] - attr(*, "resolved")= logi FALSE 1555s [00:52:35.078] - attr(*, "total_size")= num 2240 1555s [00:52:35.078] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1555s [00:52:35.078] - attr(*, "already-done")= logi TRUE 1555s [00:52:35.101] - copied ‘...future.FUN’ to environment 1555s [00:52:35.102] - copied ‘future.call.arguments’ to environment 1555s [00:52:35.102] - copied ‘...future.elements_ii’ to environment 1555s [00:52:35.103] - copied ‘...future.seeds_ii’ to environment 1555s [00:52:35.103] - copied ‘...future.globals.maxSize’ to environment 1555s [00:52:35.104] assign_globals() ... done 1555s [00:52:35.105] plan(): Setting new future strategy stack: 1555s [00:52:35.105] List of future strategies: 1555s [00:52:35.105] 1. sequential: 1555s [00:52:35.105] - args: function (..., envir = parent.frame()) 1555s [00:52:35.105] - tweaked: FALSE 1555s [00:52:35.105] - call: NULL 1555s [00:52:35.106] plan(): nbrOfWorkers() = 1 1555s [00:52:35.108] plan(): Setting new future strategy stack: 1555s [00:52:35.108] List of future strategies: 1555s [00:52:35.108] 1. multisession: 1555s [00:52:35.108] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1555s [00:52:35.108] - tweaked: FALSE 1555s [00:52:35.108] - call: plan(strategy) 1555s [00:52:35.114] plan(): nbrOfWorkers() = 1 1555s [00:52:35.115] SequentialFuture started (and completed) 1555s [00:52:35.115] - Launch lazy future ... done 1555s [00:52:35.115] run() for ‘SequentialFuture’ ... done 1555s [00:52:35.116] Created future: 1555s [00:52:35.116] SequentialFuture: 1555s [00:52:35.116] Label: ‘future_lapply-3’ 1555s [00:52:35.116] Expression: 1555s [00:52:35.116] { 1555s [00:52:35.116] do.call(function(...) { 1555s [00:52:35.116] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1555s [00:52:35.116] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1555s [00:52:35.116] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1555s [00:52:35.116] on.exit(options(oopts), add = TRUE) 1555s [00:52:35.116] } 1555s [00:52:35.116] { 1555s [00:52:35.116] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1555s [00:52:35.116] ...future.X_jj <- ...future.elements_ii[[jj]] 1555s [00:52:35.116] ...future.FUN(...future.X_jj, ...) 1555s [00:52:35.116] }) 1555s [00:52:35.116] } 1555s [00:52:35.116] }, args = future.call.arguments) 1555s [00:52:35.116] } 1555s [00:52:35.116] Lazy evaluation: FALSE 1555s [00:52:35.116] Asynchronous evaluation: FALSE 1555s [00:52:35.116] Local evaluation: TRUE 1555s [00:52:35.116] Environment: R_GlobalEnv 1555s [00:52:35.116] Capture standard output: TRUE 1555s [00:52:35.116] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1555s [00:52:35.116] Globals: 5 objects totaling 2.30 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 120 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1555s [00:52:35.116] Packages: 1555s [00:52:35.116] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1555s [00:52:35.116] Resolved: TRUE 1555s [00:52:35.116] Value: 120 bytes of class ‘list’ 1555s [00:52:35.116] Early signaling: FALSE 1555s [00:52:35.116] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1555s [00:52:35.116] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1555s [00:52:35.119] Chunk #3 of 4 ... DONE 1555s [00:52:35.120] Chunk #4 of 4 ... 1555s [00:52:35.120] - Finding globals in 'X' for chunk #4 ... 1555s [00:52:35.121] getGlobalsAndPackages() ... 1555s [00:52:35.121] Searching for globals... 1555s [00:52:35.121] 1555s [00:52:35.122] Searching for globals ... DONE 1555s [00:52:35.122] - globals: [0] 1555s [00:52:35.122] getGlobalsAndPackages() ... DONE 1555s [00:52:35.122] + additional globals found: [n=0] 1555s [00:52:35.122] + additional namespaces needed: [n=0] 1555s [00:52:35.123] - Finding globals in 'X' for chunk #4 ... DONE 1555s [00:52:35.123] - Adjusted option 'future.globals.maxSize': 524288000 -> 4 * 524288000 = 2097152000 (bytes) 1555s [00:52:35.123] - seeds: 1555s [00:52:35.123] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1555s [00:52:35.123] getGlobalsAndPackages() ... 1555s [00:52:35.123] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1555s [00:52:35.124] Resolving globals: FALSE 1555s [00:52:35.124] Tweak future expression to call with '...' arguments ... 1555s [00:52:35.125] { 1555s [00:52:35.125] do.call(function(...) { 1555s [00:52:35.125] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1555s [00:52:35.125] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1555s [00:52:35.125] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1555s [00:52:35.125] on.exit(options(oopts), add = TRUE) 1555s [00:52:35.125] } 1555s [00:52:35.125] { 1555s [00:52:35.125] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1555s [00:52:35.125] ...future.X_jj <- ...future.elements_ii[[jj]] 1555s [00:52:35.125] ...future.FUN(...future.X_jj, ...) 1555s [00:52:35.125] }) 1555s [00:52:35.125] } 1555s [00:52:35.125] }, args = future.call.arguments) 1555s [00:52:35.125] } 1555s [00:52:35.125] Tweak future expression to call with '...' arguments ... DONE 1555s [00:52:35.126] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1555s [00:52:35.127] 1555s [00:52:35.127] getGlobalsAndPackages() ... DONE 1555s [00:52:35.128] run() for ‘Future’ ... 1555s [00:52:35.128] - state: ‘created’ 1555s [00:52:35.128] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1555s [00:52:35.135] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1555s [00:52:35.136] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1555s [00:52:35.136] - Field: ‘label’ 1555s [00:52:35.136] - Field: ‘local’ 1555s [00:52:35.136] - Field: ‘owner’ 1555s [00:52:35.136] - Field: ‘envir’ 1555s [00:52:35.136] - Field: ‘packages’ 1555s [00:52:35.137] - Field: ‘gc’ 1555s [00:52:35.137] - Field: ‘conditions’ 1555s [00:52:35.137] - Field: ‘expr’ 1555s [00:52:35.137] - Field: ‘uuid’ 1555s [00:52:35.137] - Field: ‘seed’ 1555s [00:52:35.137] - Field: ‘version’ 1555s [00:52:35.138] - Field: ‘result’ 1555s [00:52:35.138] - Field: ‘asynchronous’ 1555s [00:52:35.138] - Field: ‘calls’ 1555s [00:52:35.138] - Field: ‘globals’ 1555s [00:52:35.138] - Field: ‘stdout’ 1555s [00:52:35.139] - Field: ‘earlySignal’ 1555s [00:52:35.139] - Field: ‘lazy’ 1555s [00:52:35.139] - Field: ‘state’ 1555s [00:52:35.140] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1555s [00:52:35.140] - Launch lazy future ... 1555s [00:52:35.141] Packages needed by the future expression (n = 0): 1555s [00:52:35.141] Packages needed by future strategies (n = 0): 1555s [00:52:35.142] { 1555s [00:52:35.142] { 1555s [00:52:35.142] { 1555s [00:52:35.142] ...future.startTime <- base::Sys.time() 1555s [00:52:35.142] { 1555s [00:52:35.142] { 1555s [00:52:35.142] { 1555s [00:52:35.142] base::local({ 1555s [00:52:35.142] has_future <- base::requireNamespace("future", 1555s [00:52:35.142] quietly = TRUE) 1555s [00:52:35.142] if (has_future) { 1555s [00:52:35.142] ns <- base::getNamespace("future") 1555s [00:52:35.142] version <- ns[[".package"]][["version"]] 1555s [00:52:35.142] if (is.null(version)) 1555s [00:52:35.142] version <- utils::packageVersion("future") 1555s [00:52:35.142] } 1555s [00:52:35.142] else { 1555s [00:52:35.142] version <- NULL 1555s [00:52:35.142] } 1555s [00:52:35.142] if (!has_future || version < "1.8.0") { 1555s [00:52:35.142] info <- base::c(r_version = base::gsub("R version ", 1555s [00:52:35.142] "", base::R.version$version.string), 1555s [00:52:35.142] platform = base::sprintf("%s (%s-bit)", 1555s [00:52:35.142] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1555s [00:52:35.142] os = base::paste(base::Sys.info()[base::c("sysname", 1555s [00:52:35.142] "release", "version")], collapse = " "), 1555s [00:52:35.142] hostname = base::Sys.info()[["nodename"]]) 1555s [00:52:35.142] info <- base::sprintf("%s: %s", base::names(info), 1555s [00:52:35.142] info) 1555s [00:52:35.142] info <- base::paste(info, collapse = "; ") 1555s [00:52:35.142] if (!has_future) { 1555s [00:52:35.142] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1555s [00:52:35.142] info) 1555s [00:52:35.142] } 1555s [00:52:35.142] else { 1555s [00:52:35.142] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1555s [00:52:35.142] info, version) 1555s [00:52:35.142] } 1555s [00:52:35.142] base::stop(msg) 1555s [00:52:35.142] } 1555s [00:52:35.142] }) 1555s [00:52:35.142] } 1555s [00:52:35.142] options(future.plan = NULL) 1555s [00:52:35.142] Sys.unsetenv("R_FUTURE_PLAN") 1555s [00:52:35.142] future::plan("default", .cleanup = FALSE, .init = FALSE) 1555s [00:52:35.142] } 1555s [00:52:35.142] ...future.workdir <- getwd() 1555s [00:52:35.142] } 1555s [00:52:35.142] ...future.oldOptions <- base::as.list(base::.Options) 1555s [00:52:35.142] ...future.oldEnvVars <- base::Sys.getenv() 1555s [00:52:35.142] } 1555s [00:52:35.142] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1555s [00:52:35.142] future.globals.maxSize = 2097152000, future.globals.method = NULL, 1555s [00:52:35.142] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1555s [00:52:35.142] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1555s [00:52:35.142] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1555s [00:52:35.142] future.stdout.windows.reencode = NULL, width = 80L) 1555s [00:52:35.142] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1555s [00:52:35.142] base::names(...future.oldOptions)) 1555s [00:52:35.142] } 1555s [00:52:35.142] if (FALSE) { 1555s [00:52:35.142] } 1555s [00:52:35.142] else { 1555s [00:52:35.142] if (TRUE) { 1555s [00:52:35.142] ...future.stdout <- base::rawConnection(base::raw(0L), 1555s [00:52:35.142] open = "w") 1555s [00:52:35.142] } 1555s [00:52:35.142] else { 1555s [00:52:35.142] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1555s [00:52:35.142] windows = "NUL", "/dev/null"), open = "w") 1555s [00:52:35.142] } 1555s [00:52:35.142] base::sink(...future.stdout, type = "output", split = FALSE) 1555s [00:52:35.142] base::on.exit(if (!base::is.null(...future.stdout)) { 1555s [00:52:35.142] base::sink(type = "output", split = FALSE) 1555s [00:52:35.142] base::close(...future.stdout) 1555s [00:52:35.142] }, add = TRUE) 1555s [00:52:35.142] } 1555s [00:52:35.142] ...future.frame <- base::sys.nframe() 1555s [00:52:35.142] ...future.conditions <- base::list() 1555s [00:52:35.142] ...future.rng <- base::globalenv()$.Random.seed 1555s [00:52:35.142] if (FALSE) { 1555s [00:52:35.142] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1555s [00:52:35.142] "...future.value", "...future.globalenv.names", ".Random.seed") 1555s [00:52:35.142] } 1555s [00:52:35.142] ...future.result <- base::tryCatch({ 1555s [00:52:35.142] base::withCallingHandlers({ 1555s [00:52:35.142] ...future.value <- base::withVisible(base::local({ 1555s [00:52:35.142] do.call(function(...) { 1555s [00:52:35.142] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1555s [00:52:35.142] if (!identical(...future.globals.maxSize.org, 1555s [00:52:35.142] ...future.globals.maxSize)) { 1555s [00:52:35.142] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1555s [00:52:35.142] on.exit(options(oopts), add = TRUE) 1555s [00:52:35.142] } 1555s [00:52:35.142] { 1555s [00:52:35.142] lapply(seq_along(...future.elements_ii), 1555s [00:52:35.142] FUN = function(jj) { 1555s [00:52:35.142] ...future.X_jj <- ...future.elements_ii[[jj]] 1555s [00:52:35.142] ...future.FUN(...future.X_jj, ...) 1555s [00:52:35.142] }) 1555s [00:52:35.142] } 1555s [00:52:35.142] }, args = future.call.arguments) 1555s [00:52:35.142] })) 1555s [00:52:35.142] future::FutureResult(value = ...future.value$value, 1555s [00:52:35.142] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1555s [00:52:35.142] ...future.rng), globalenv = if (FALSE) 1555s [00:52:35.142] list(added = base::setdiff(base::names(base::.GlobalEnv), 1555s [00:52:35.142] ...future.globalenv.names)) 1555s [00:52:35.142] else NULL, started = ...future.startTime, version = "1.8") 1555s [00:52:35.142] }, condition = base::local({ 1555s [00:52:35.142] c <- base::c 1555s [00:52:35.142] inherits <- base::inherits 1555s [00:52:35.142] invokeRestart <- base::invokeRestart 1555s [00:52:35.142] length <- base::length 1555s [00:52:35.142] list <- base::list 1555s [00:52:35.142] seq.int <- base::seq.int 1555s [00:52:35.142] signalCondition <- base::signalCondition 1555s [00:52:35.142] sys.calls <- base::sys.calls 1555s [00:52:35.142] `[[` <- base::`[[` 1555s [00:52:35.142] `+` <- base::`+` 1555s [00:52:35.142] `<<-` <- base::`<<-` 1555s [00:52:35.142] sysCalls <- function(calls = sys.calls(), from = 1L) { 1555s [00:52:35.142] calls[seq.int(from = from + 12L, to = length(calls) - 1555s [00:52:35.142] 3L)] 1555s [00:52:35.142] } 1555s [00:52:35.142] function(cond) { 1555s [00:52:35.142] is_error <- inherits(cond, "error") 1555s [00:52:35.142] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1555s [00:52:35.142] NULL) 1555s [00:52:35.142] if (is_error) { 1555s [00:52:35.142] sessionInformation <- function() { 1555s [00:52:35.142] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1555s [00:52:35.142] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1555s [00:52:35.142] search = base::search(), system = base::Sys.info()) 1555s [00:52:35.142] } 1555s [00:52:35.142] ...future.conditions[[length(...future.conditions) + 1555s [00:52:35.142] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1555s [00:52:35.142] cond$call), session = sessionInformation(), 1555s [00:52:35.142] timestamp = base::Sys.time(), signaled = 0L) 1555s [00:52:35.142] signalCondition(cond) 1555s [00:52:35.142] } 1555s [00:52:35.142] else if (!ignore && TRUE && inherits(cond, c("condition", 1555s [00:52:35.142] "immediateCondition"))) { 1555s [00:52:35.142] signal <- TRUE && inherits(cond, "immediateCondition") 1555s [00:52:35.142] ...future.conditions[[length(...future.conditions) + 1555s [00:52:35.142] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1555s [00:52:35.142] if (TRUE && !signal) { 1555s [00:52:35.142] muffleCondition <- function (cond, pattern = "^muffle") 1555s [00:52:35.142] { 1555s [00:52:35.142] inherits <- base::inherits 1555s [00:52:35.142] invokeRestart <- base::invokeRestart 1555s [00:52:35.142] is.null <- base::is.null 1555s [00:52:35.142] muffled <- FALSE 1555s [00:52:35.142] if (inherits(cond, "message")) { 1555s [00:52:35.142] muffled <- grepl(pattern, "muffleMessage") 1555s [00:52:35.142] if (muffled) 1555s [00:52:35.142] invokeRestart("muffleMessage") 1555s [00:52:35.142] } 1555s [00:52:35.142] else if (inherits(cond, "warning")) { 1555s [00:52:35.142] muffled <- grepl(pattern, "muffleWarning") 1555s [00:52:35.142] if (muffled) 1555s [00:52:35.142] invokeRestart("muffleWarning") 1555s [00:52:35.142] } 1555s [00:52:35.142] else if (inherits(cond, "condition")) { 1555s [00:52:35.142] if (!is.null(pattern)) { 1555s [00:52:35.142] computeRestarts <- base::computeRestarts 1555s [00:52:35.142] grepl <- base::grepl 1555s [00:52:35.142] restarts <- computeRestarts(cond) 1555s [00:52:35.142] for (restart in restarts) { 1555s [00:52:35.142] name <- restart$name 1555s [00:52:35.142] if (is.null(name)) 1555s [00:52:35.142] next 1555s [00:52:35.142] if (!grepl(pattern, name)) 1555s [00:52:35.142] next 1555s [00:52:35.142] invokeRestart(restart) 1555s [00:52:35.142] muffled <- TRUE 1555s [00:52:35.142] break 1555s [00:52:35.142] } 1555s [00:52:35.142] } 1555s [00:52:35.142] } 1555s [00:52:35.142] invisible(muffled) 1555s [00:52:35.142] } 1555s [00:52:35.142] muffleCondition(cond, pattern = "^muffle") 1555s [00:52:35.142] } 1555s [00:52:35.142] } 1555s [00:52:35.142] else { 1555s [00:52:35.142] if (TRUE) { 1555s [00:52:35.142] muffleCondition <- function (cond, pattern = "^muffle") 1555s [00:52:35.142] { 1555s [00:52:35.142] inherits <- base::inherits 1555s [00:52:35.142] invokeRestart <- base::invokeRestart 1555s [00:52:35.142] is.null <- base::is.null 1555s [00:52:35.142] muffled <- FALSE 1555s [00:52:35.142] if (inherits(cond, "message")) { 1555s [00:52:35.142] muffled <- grepl(pattern, "muffleMessage") 1555s [00:52:35.142] if (muffled) 1555s [00:52:35.142] invokeRestart("muffleMessage") 1555s [00:52:35.142] } 1555s [00:52:35.142] else if (inherits(cond, "warning")) { 1555s [00:52:35.142] muffled <- grepl(pattern, "muffleWarning") 1555s [00:52:35.142] if (muffled) 1555s [00:52:35.142] invokeRestart("muffleWarning") 1555s [00:52:35.142] } 1555s [00:52:35.142] else if (inherits(cond, "condition")) { 1555s [00:52:35.142] if (!is.null(pattern)) { 1555s [00:52:35.142] computeRestarts <- base::computeRestarts 1555s [00:52:35.142] grepl <- base::grepl 1555s [00:52:35.142] restarts <- computeRestarts(cond) 1555s [00:52:35.142] for (restart in restarts) { 1555s [00:52:35.142] name <- restart$name 1555s [00:52:35.142] if (is.null(name)) 1555s [00:52:35.142] next 1555s [00:52:35.142] if (!grepl(pattern, name)) 1555s [00:52:35.142] next 1555s [00:52:35.142] invokeRestart(restart) 1555s [00:52:35.142] muffled <- TRUE 1555s [00:52:35.142] break 1555s [00:52:35.142] } 1555s [00:52:35.142] } 1555s [00:52:35.142] } 1555s [00:52:35.142] invisible(muffled) 1555s [00:52:35.142] } 1555s [00:52:35.142] muffleCondition(cond, pattern = "^muffle") 1555s [00:52:35.142] } 1555s [00:52:35.142] } 1555s [00:52:35.142] } 1555s [00:52:35.142] })) 1555s [00:52:35.142] }, error = function(ex) { 1555s [00:52:35.142] base::structure(base::list(value = NULL, visible = NULL, 1555s [00:52:35.142] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1555s [00:52:35.142] ...future.rng), started = ...future.startTime, 1555s [00:52:35.142] finished = Sys.time(), session_uuid = NA_character_, 1555s [00:52:35.142] version = "1.8"), class = "FutureResult") 1555s [00:52:35.142] }, finally = { 1555s [00:52:35.142] if (!identical(...future.workdir, getwd())) 1555s [00:52:35.142] setwd(...future.workdir) 1555s [00:52:35.142] { 1555s [00:52:35.142] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1555s [00:52:35.142] ...future.oldOptions$nwarnings <- NULL 1555s [00:52:35.142] } 1555s [00:52:35.142] base::options(...future.oldOptions) 1555s [00:52:35.142] if (.Platform$OS.type == "windows") { 1555s [00:52:35.142] old_names <- names(...future.oldEnvVars) 1555s [00:52:35.142] envs <- base::Sys.getenv() 1555s [00:52:35.142] names <- names(envs) 1555s [00:52:35.142] common <- intersect(names, old_names) 1555s [00:52:35.142] added <- setdiff(names, old_names) 1555s [00:52:35.142] removed <- setdiff(old_names, names) 1555s [00:52:35.142] changed <- common[...future.oldEnvVars[common] != 1555s [00:52:35.142] envs[common]] 1555s [00:52:35.142] NAMES <- toupper(changed) 1555s [00:52:35.142] args <- list() 1555s [00:52:35.142] for (kk in seq_along(NAMES)) { 1555s [00:52:35.142] name <- changed[[kk]] 1555s [00:52:35.142] NAME <- NAMES[[kk]] 1555s [00:52:35.142] if (name != NAME && is.element(NAME, old_names)) 1555s [00:52:35.142] next 1555s [00:52:35.142] args[[name]] <- ...future.oldEnvVars[[name]] 1555s [00:52:35.142] } 1555s [00:52:35.142] NAMES <- toupper(added) 1555s [00:52:35.142] for (kk in seq_along(NAMES)) { 1555s [00:52:35.142] name <- added[[kk]] 1555s [00:52:35.142] NAME <- NAMES[[kk]] 1555s [00:52:35.142] if (name != NAME && is.element(NAME, old_names)) 1555s [00:52:35.142] next 1555s [00:52:35.142] args[[name]] <- "" 1555s [00:52:35.142] } 1555s [00:52:35.142] NAMES <- toupper(removed) 1555s [00:52:35.142] for (kk in seq_along(NAMES)) { 1555s [00:52:35.142] name <- removed[[kk]] 1555s [00:52:35.142] NAME <- NAMES[[kk]] 1555s [00:52:35.142] if (name != NAME && is.element(NAME, old_names)) 1555s [00:52:35.142] next 1555s [00:52:35.142] args[[name]] <- ...future.oldEnvVars[[name]] 1555s [00:52:35.142] } 1555s [00:52:35.142] if (length(args) > 0) 1555s [00:52:35.142] base::do.call(base::Sys.setenv, args = args) 1555s [00:52:35.142] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1555s [00:52:35.142] } 1555s [00:52:35.142] else { 1555s [00:52:35.142] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1555s [00:52:35.142] } 1555s [00:52:35.142] { 1555s [00:52:35.142] if (base::length(...future.futureOptionsAdded) > 1555s [00:52:35.142] 0L) { 1555s [00:52:35.142] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1555s [00:52:35.142] base::names(opts) <- ...future.futureOptionsAdded 1555s [00:52:35.142] base::options(opts) 1555s [00:52:35.142] } 1555s [00:52:35.142] { 1555s [00:52:35.142] { 1555s [00:52:35.142] NULL 1555s [00:52:35.142] RNGkind("Mersenne-Twister") 1555s [00:52:35.142] base::rm(list = ".Random.seed", envir = base::globalenv(), 1555s [00:52:35.142] inherits = FALSE) 1555s [00:52:35.142] } 1555s [00:52:35.142] options(future.plan = NULL) 1555s [00:52:35.142] if (is.na(NA_character_)) 1555s [00:52:35.142] Sys.unsetenv("R_FUTURE_PLAN") 1555s [00:52:35.142] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1555s [00:52:35.142] future::plan(list(function (..., workers = availableCores(), 1555s [00:52:35.142] lazy = FALSE, rscript_libs = .libPaths(), 1555s [00:52:35.142] envir = parent.frame()) 1555s [00:52:35.142] { 1555s [00:52:35.142] if (is.function(workers)) 1555s [00:52:35.142] workers <- workers() 1555s [00:52:35.142] workers <- structure(as.integer(workers), 1555s [00:52:35.142] class = class(workers)) 1555s [00:52:35.142] stop_if_not(length(workers) == 1, is.finite(workers), 1555s [00:52:35.142] workers >= 1) 1555s [00:52:35.142] if (workers == 1L && !inherits(workers, "AsIs")) { 1555s [00:52:35.142] return(sequential(..., lazy = TRUE, envir = envir)) 1555s [00:52:35.142] } 1555s [00:52:35.142] future <- MultisessionFuture(..., workers = workers, 1555s [00:52:35.142] lazy = lazy, rscript_libs = rscript_libs, 1555s [00:52:35.142] envir = envir) 1555s [00:52:35.142] if (!future$lazy) 1555s [00:52:35.142] future <- run(future) 1555s [00:52:35.142] invisible(future) 1555s [00:52:35.142] }), .cleanup = FALSE, .init = FALSE) 1555s [00:52:35.142] } 1555s [00:52:35.142] } 1555s [00:52:35.142] } 1555s [00:52:35.142] }) 1555s [00:52:35.142] if (TRUE) { 1555s [00:52:35.142] base::sink(type = "output", split = FALSE) 1555s [00:52:35.142] if (TRUE) { 1555s [00:52:35.142] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1555s [00:52:35.142] } 1555s [00:52:35.142] else { 1555s [00:52:35.142] ...future.result["stdout"] <- base::list(NULL) 1555s [00:52:35.142] } 1555s [00:52:35.142] base::close(...future.stdout) 1555s [00:52:35.142] ...future.stdout <- NULL 1555s [00:52:35.142] } 1555s [00:52:35.142] ...future.result$conditions <- ...future.conditions 1555s [00:52:35.142] ...future.result$finished <- base::Sys.time() 1555s [00:52:35.142] ...future.result 1555s [00:52:35.142] } 1555s [00:52:35.151] assign_globals() ... 1555s [00:52:35.152] List of 5 1555s [00:52:35.152] $ ...future.FUN :function (mode = "logical", length = 0L) 1555s [00:52:35.152] $ future.call.arguments :List of 1 1555s [00:52:35.152] ..$ length: int 2 1555s [00:52:35.152] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1555s [00:52:35.152] $ ...future.elements_ii :List of 1 1555s [00:52:35.152] ..$ c: chr "list" 1555s [00:52:35.152] $ ...future.seeds_ii : NULL 1555s [00:52:35.152] $ ...future.globals.maxSize: NULL 1555s [00:52:35.152] - attr(*, "where")=List of 5 1555s [00:52:35.152] ..$ ...future.FUN : 1555s [00:52:35.152] ..$ future.call.arguments : 1555s [00:52:35.152] ..$ ...future.elements_ii : 1555s [00:52:35.152] ..$ ...future.seeds_ii : 1555s [00:52:35.152] ..$ ...future.globals.maxSize: 1555s [00:52:35.152] - attr(*, "resolved")= logi FALSE 1555s [00:52:35.152] - attr(*, "total_size")= num 2240 1555s [00:52:35.152] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1555s [00:52:35.152] - attr(*, "already-done")= logi TRUE 1555s [00:52:35.166] - copied ‘...future.FUN’ to environment 1555s [00:52:35.167] - copied ‘future.call.arguments’ to environment 1555s [00:52:35.167] - copied ‘...future.elements_ii’ to environment 1555s [00:52:35.167] - copied ‘...future.seeds_ii’ to environment 1555s [00:52:35.168] - copied ‘...future.globals.maxSize’ to environment 1555s [00:52:35.169] assign_globals() ... done 1555s [00:52:35.169] plan(): Setting new future strategy stack: 1555s [00:52:35.169] List of future strategies: 1555s [00:52:35.169] 1. sequential: 1555s [00:52:35.169] - args: function (..., envir = parent.frame()) 1555s [00:52:35.169] - tweaked: FALSE 1555s [00:52:35.169] - call: NULL 1555s [00:52:35.170] plan(): nbrOfWorkers() = 1 1555s [00:52:35.172] plan(): Setting new future strategy stack: 1555s [00:52:35.173] List of future strategies: 1555s [00:52:35.173] 1. multisession: 1555s [00:52:35.173] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1555s [00:52:35.173] - tweaked: FALSE 1555s [00:52:35.173] - call: plan(strategy) 1555s [00:52:35.179] plan(): nbrOfWorkers() = 1 1555s [00:52:35.180] SequentialFuture started (and completed) 1555s [00:52:35.180] - Launch lazy future ... done 1555s [00:52:35.180] run() for ‘SequentialFuture’ ... done 1555s [00:52:35.181] Created future: 1555s [00:52:35.181] SequentialFuture: 1555s [00:52:35.181] Label: ‘future_lapply-4’ 1555s [00:52:35.181] Expression: 1555s [00:52:35.181] { 1555s [00:52:35.181] do.call(function(...) { 1555s [00:52:35.181] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1555s [00:52:35.181] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1555s [00:52:35.181] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1555s [00:52:35.181] on.exit(options(oopts), add = TRUE) 1555s [00:52:35.181] } 1555s [00:52:35.181] { 1555s [00:52:35.181] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1555s [00:52:35.181] ...future.X_jj <- ...future.elements_ii[[jj]] 1555s [00:52:35.181] ...future.FUN(...future.X_jj, ...) 1555s [00:52:35.181] }) 1555s [00:52:35.181] } 1555s [00:52:35.181] }, args = future.call.arguments) 1555s [00:52:35.181] } 1555s [00:52:35.181] Lazy evaluation: FALSE 1555s [00:52:35.181] Asynchronous evaluation: FALSE 1555s [00:52:35.181] Local evaluation: TRUE 1555s [00:52:35.181] Environment: R_GlobalEnv 1555s [00:52:35.181] Capture standard output: TRUE 1555s [00:52:35.181] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1555s [00:52:35.181] Globals: 5 objects totaling 2.30 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1555s [00:52:35.181] Packages: 1555s [00:52:35.181] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1555s [00:52:35.181] Resolved: TRUE 1555s [00:52:35.181] Value: 0 bytes of class ‘list’ 1555s [00:52:35.181] Early signaling: FALSE 1555s [00:52:35.181] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1555s [00:52:35.181] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1555s [00:52:35.183] Chunk #4 of 4 ... DONE 1555s [00:52:35.184] Launching 4 futures (chunks) ... DONE 1555s [00:52:35.184] Resolving 4 futures (chunks) ... 1555s [00:52:35.184] resolve() on list ... 1555s [00:52:35.184] recursive: 0 1555s [00:52:35.184] length: 4 1555s [00:52:35.184] 1555s [00:52:35.185] resolved() for ‘SequentialFuture’ ... 1555s [00:52:35.185] - state: ‘finished’ 1555s [00:52:35.185] - run: TRUE 1555s [00:52:35.185] - result: ‘FutureResult’ 1555s [00:52:35.185] resolved() for ‘SequentialFuture’ ... done 1555s [00:52:35.186] Future #1 1555s [00:52:35.186] signalConditionsASAP(SequentialFuture, pos=1) ... 1555s [00:52:35.186] - nx: 4 1555s [00:52:35.186] - relay: TRUE 1555s [00:52:35.186] - stdout: TRUE 1555s [00:52:35.186] - signal: TRUE 1555s [00:52:35.187] - resignal: FALSE 1555s [00:52:35.187] - force: TRUE 1555s [00:52:35.187] - relayed: [n=4] FALSE, FALSE, FALSE, FALSE 1555s [00:52:35.187] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE 1555s [00:52:35.187] - until=1 1555s [00:52:35.187] - relaying element #1 1555s [00:52:35.188] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE 1555s [00:52:35.188] - queued futures: [n=4] TRUE, FALSE, FALSE, FALSE 1555s [00:52:35.188] signalConditionsASAP(SequentialFuture, pos=1) ... done 1555s [00:52:35.188] length: 3 (resolved future 1) 1555s [00:52:35.188] resolved() for ‘SequentialFuture’ ... 1555s [00:52:35.188] - state: ‘finished’ 1555s [00:52:35.188] - run: TRUE 1555s [00:52:35.188] - result: ‘FutureResult’ 1555s [00:52:35.189] resolved() for ‘SequentialFuture’ ... done 1555s [00:52:35.189] Future #2 1555s [00:52:35.189] signalConditionsASAP(SequentialFuture, pos=2) ... 1555s [00:52:35.189] - nx: 4 1555s [00:52:35.189] - relay: TRUE 1555s [00:52:35.189] - stdout: TRUE 1555s [00:52:35.189] - signal: TRUE 1555s [00:52:35.189] - resignal: FALSE 1555s [00:52:35.190] - force: TRUE 1555s [00:52:35.190] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE 1555s [00:52:35.190] - queued futures: [n=4] TRUE, FALSE, FALSE, FALSE 1555s [00:52:35.190] - until=2 1555s [00:52:35.190] - relaying element #2 1555s [00:52:35.191] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE 1555s [00:52:35.191] - queued futures: [n=4] TRUE, TRUE, FALSE, FALSE 1555s [00:52:35.191] signalConditionsASAP(SequentialFuture, pos=2) ... done 1555s [00:52:35.191] length: 2 (resolved future 2) 1555s [00:52:35.191] resolved() for ‘SequentialFuture’ ... 1555s [00:52:35.192] - state: ‘finished’ 1555s [00:52:35.192] - run: TRUE 1555s [00:52:35.192] - result: ‘FutureResult’ 1555s [00:52:35.192] resolved() for ‘SequentialFuture’ ... done 1555s [00:52:35.193] Future #3 1555s [00:52:35.193] signalConditionsASAP(SequentialFuture, pos=3) ... 1555s [00:52:35.193] - nx: 4 1555s [00:52:35.193] - relay: TRUE 1555s [00:52:35.193] - stdout: TRUE 1555s [00:52:35.194] - signal: TRUE 1555s [00:52:35.194] - resignal: FALSE 1555s [00:52:35.194] - force: TRUE 1555s [00:52:35.194] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE 1555s [00:52:35.194] - queued futures: [n=4] TRUE, TRUE, FALSE, FALSE 1555s [00:52:35.194] - until=3 1555s [00:52:35.195] - relaying element #3 1555s [00:52:35.195] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE 1555s [00:52:35.195] - queued futures: [n=4] TRUE, TRUE, TRUE, FALSE 1555s [00:52:35.195] signalConditionsASAP(SequentialFuture, pos=3) ... done 1555s [00:52:35.196] length: 1 (resolved future 3) 1555s [00:52:35.196] resolved() for ‘SequentialFuture’ ... 1555s [00:52:35.196] - state: ‘finished’ 1555s [00:52:35.196] - run: TRUE 1555s [00:52:35.196] - result: ‘FutureResult’ 1555s [00:52:35.197] resolved() for ‘SequentialFuture’ ... done 1555s [00:52:35.197] Future #4 1555s [00:52:35.197] signalConditionsASAP(SequentialFuture, pos=4) ... 1555s [00:52:35.197] - nx: 4 1555s [00:52:35.197] - relay: TRUE 1555s [00:52:35.197] - stdout: TRUE 1555s [00:52:35.198] - signal: TRUE 1555s [00:52:35.198] - resignal: FALSE 1555s [00:52:35.198] - force: TRUE 1555s [00:52:35.198] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE 1555s [00:52:35.198] - queued futures: [n=4] TRUE, TRUE, TRUE, FALSE 1555s [00:52:35.198] - until=4 1555s [00:52:35.199] - relaying element #4 1555s [00:52:35.199] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE 1555s [00:52:35.199] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE 1555s [00:52:35.200] signalConditionsASAP(SequentialFuture, pos=4) ... done 1555s [00:52:35.200] length: 0 (resolved future 4) 1555s [00:52:35.200] Relaying remaining futures 1555s [00:52:35.200] signalConditionsASAP(NULL, pos=0) ... 1555s [00:52:35.200] - nx: 4 1555s [00:52:35.201] - relay: TRUE 1555s [00:52:35.201] - stdout: TRUE 1555s [00:52:35.201] - signal: TRUE 1555s [00:52:35.201] - resignal: FALSE 1555s [00:52:35.201] - force: TRUE 1555s [00:52:35.201] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE 1555s [00:52:35.202] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE 1555s - flush all 1555s [00:52:35.202] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE 1555s [00:52:35.202] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE 1555s [00:52:35.203] signalConditionsASAP(NULL, pos=0) ... done 1555s [00:52:35.203] resolve() on list ... DONE 1555s [00:52:35.203] - Number of value chunks collected: 4 1555s [00:52:35.203] Resolving 4 futures (chunks) ... DONE 1555s [00:52:35.204] Reducing values from 4 chunks ... 1555s [00:52:35.204] - Number of values collected after concatenation: 4 1555s [00:52:35.204] - Number of values expected: 4 1555s [00:52:35.204] Reducing values from 4 chunks ... DONE 1555s [00:52:35.204] future_lapply() ... DONE 1555s - future_lapply(x, FUN = base::vector, ...) ... 1555s [00:52:35.209] future_lapply() ... 1555s [00:52:35.214] Number of chunks: 4 1555s [00:52:35.215] getGlobalsAndPackagesXApply() ... 1555s [00:52:35.215] - future.globals: TRUE 1555s [00:52:35.215] getGlobalsAndPackages() ... 1555s [00:52:35.215] Searching for globals... 1555s [00:52:35.217] - globals found: [2] ‘FUN’, ‘.Internal’ 1555s [00:52:35.217] Searching for globals ... DONE 1555s [00:52:35.217] Resolving globals: FALSE 1555s [00:52:35.218] The total size of the 1 globals is 2.13 KiB (2184 bytes) 1555s [00:52:35.219] The total size of the 1 globals exported for future expression (‘FUN(length = 2L)’) is 2.13 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (2.13 KiB of class ‘function’) 1555s [00:52:35.219] - globals: [1] ‘FUN’ 1555s [00:52:35.220] 1555s [00:52:35.220] getGlobalsAndPackages() ... DONE 1555s [00:52:35.220] - globals found/used: [n=1] ‘FUN’ 1555s [00:52:35.220] - needed namespaces: [n=0] 1555s [00:52:35.220] Finding globals ... DONE 1555s [00:52:35.221] - use_args: TRUE 1555s [00:52:35.221] - Getting '...' globals ... 1555s [00:52:35.221] resolve() on list ... 1555s [00:52:35.222] recursive: 0 1555s [00:52:35.222] length: 1 1555s [00:52:35.222] elements: ‘...’ 1555s [00:52:35.222] length: 0 (resolved future 1) 1555s [00:52:35.222] resolve() on list ... DONE 1555s [00:52:35.222] - '...' content: [n=1] ‘length’ 1555s [00:52:35.223] List of 1 1555s [00:52:35.223] $ ...:List of 1 1555s [00:52:35.223] ..$ length: int 2 1555s [00:52:35.223] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1555s [00:52:35.223] - attr(*, "where")=List of 1 1555s [00:52:35.223] ..$ ...: 1555s [00:52:35.223] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1555s [00:52:35.223] - attr(*, "resolved")= logi TRUE 1555s [00:52:35.223] - attr(*, "total_size")= num NA 1555s [00:52:35.230] - Getting '...' globals ... DONE 1555s [00:52:35.231] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1555s [00:52:35.231] List of 2 1555s [00:52:35.231] $ ...future.FUN:function (mode = "logical", length = 0L) 1555s [00:52:35.231] $ ... :List of 1 1555s [00:52:35.231] ..$ length: int 2 1555s [00:52:35.231] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1555s [00:52:35.231] - attr(*, "where")=List of 2 1555s [00:52:35.231] ..$ ...future.FUN: 1555s [00:52:35.231] ..$ ... : 1555s [00:52:35.231] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1555s [00:52:35.231] - attr(*, "resolved")= logi FALSE 1555s [00:52:35.231] - attr(*, "total_size")= num 2240 1555s [00:52:35.235] Packages to be attached in all futures: [n=0] 1555s [00:52:35.235] getGlobalsAndPackagesXApply() ... DONE 1555s [00:52:35.235] Number of futures (= number of chunks): 4 1555s [00:52:35.236] Launching 4 futures (chunks) ... 1555s [00:52:35.236] Chunk #1 of 4 ... 1555s [00:52:35.236] - Finding globals in 'X' for chunk #1 ... 1555s [00:52:35.236] getGlobalsAndPackages() ... 1555s [00:52:35.236] Searching for globals... 1555s [00:52:35.237] 1555s [00:52:35.237] Searching for globals ... DONE 1555s [00:52:35.237] - globals: [0] 1555s [00:52:35.237] getGlobalsAndPackages() ... DONE 1555s [00:52:35.237] + additional globals found: [n=0] 1555s [00:52:35.238] + additional namespaces needed: [n=0] 1555s [00:52:35.238] - Finding globals in 'X' for chunk #1 ... DONE 1555s [00:52:35.238] - Adjusted option 'future.globals.maxSize': 524288000 -> 4 * 524288000 = 2097152000 (bytes) 1555s [00:52:35.238] - seeds: 1555s [00:52:35.238] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1555s [00:52:35.239] getGlobalsAndPackages() ... 1555s [00:52:35.239] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1555s [00:52:35.239] Resolving globals: FALSE 1555s [00:52:35.239] Tweak future expression to call with '...' arguments ... 1555s [00:52:35.239] { 1555s [00:52:35.239] do.call(function(...) { 1555s [00:52:35.239] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1555s [00:52:35.239] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1555s [00:52:35.239] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1555s [00:52:35.239] on.exit(options(oopts), add = TRUE) 1555s [00:52:35.239] } 1555s [00:52:35.239] { 1555s [00:52:35.239] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1555s [00:52:35.239] ...future.X_jj <- ...future.elements_ii[[jj]] 1555s [00:52:35.239] ...future.FUN(...future.X_jj, ...) 1555s [00:52:35.239] }) 1555s [00:52:35.239] } 1555s [00:52:35.239] }, args = future.call.arguments) 1555s [00:52:35.239] } 1555s [00:52:35.240] Tweak future expression to call with '...' arguments ... DONE 1555s [00:52:35.241] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1555s [00:52:35.241] 1555s [00:52:35.242] getGlobalsAndPackages() ... DONE 1555s [00:52:35.242] run() for ‘Future’ ... 1555s [00:52:35.242] - state: ‘created’ 1555s [00:52:35.242] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1555s [00:52:35.247] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1555s [00:52:35.247] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1555s [00:52:35.248] - Field: ‘label’ 1555s [00:52:35.248] - Field: ‘local’ 1555s [00:52:35.248] - Field: ‘owner’ 1555s [00:52:35.248] - Field: ‘envir’ 1555s [00:52:35.248] - Field: ‘packages’ 1555s [00:52:35.249] - Field: ‘gc’ 1555s [00:52:35.249] - Field: ‘conditions’ 1555s [00:52:35.249] - Field: ‘expr’ 1555s [00:52:35.249] - Field: ‘uuid’ 1555s [00:52:35.250] - Field: ‘seed’ 1555s [00:52:35.250] - Field: ‘version’ 1555s [00:52:35.250] - Field: ‘result’ 1555s [00:52:35.250] - Field: ‘asynchronous’ 1555s [00:52:35.250] - Field: ‘calls’ 1555s [00:52:35.251] - Field: ‘globals’ 1555s [00:52:35.251] - Field: ‘stdout’ 1555s [00:52:35.251] - Field: ‘earlySignal’ 1555s [00:52:35.251] - Field: ‘lazy’ 1555s [00:52:35.251] - Field: ‘state’ 1555s [00:52:35.252] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1555s [00:52:35.252] - Launch lazy future ... 1555s [00:52:35.252] Packages needed by the future expression (n = 0): 1555s [00:52:35.252] Packages needed by future strategies (n = 0): 1555s [00:52:35.253] { 1555s [00:52:35.253] { 1555s [00:52:35.253] { 1555s [00:52:35.253] ...future.startTime <- base::Sys.time() 1555s [00:52:35.253] { 1555s [00:52:35.253] { 1555s [00:52:35.253] { 1555s [00:52:35.253] base::local({ 1555s [00:52:35.253] has_future <- base::requireNamespace("future", 1555s [00:52:35.253] quietly = TRUE) 1555s [00:52:35.253] if (has_future) { 1555s [00:52:35.253] ns <- base::getNamespace("future") 1555s [00:52:35.253] version <- ns[[".package"]][["version"]] 1555s [00:52:35.253] if (is.null(version)) 1555s [00:52:35.253] version <- utils::packageVersion("future") 1555s [00:52:35.253] } 1555s [00:52:35.253] else { 1555s [00:52:35.253] version <- NULL 1555s [00:52:35.253] } 1555s [00:52:35.253] if (!has_future || version < "1.8.0") { 1555s [00:52:35.253] info <- base::c(r_version = base::gsub("R version ", 1555s [00:52:35.253] "", base::R.version$version.string), 1555s [00:52:35.253] platform = base::sprintf("%s (%s-bit)", 1555s [00:52:35.253] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1555s [00:52:35.253] os = base::paste(base::Sys.info()[base::c("sysname", 1555s [00:52:35.253] "release", "version")], collapse = " "), 1555s [00:52:35.253] hostname = base::Sys.info()[["nodename"]]) 1555s [00:52:35.253] info <- base::sprintf("%s: %s", base::names(info), 1555s [00:52:35.253] info) 1555s [00:52:35.253] info <- base::paste(info, collapse = "; ") 1555s [00:52:35.253] if (!has_future) { 1555s [00:52:35.253] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1555s [00:52:35.253] info) 1555s [00:52:35.253] } 1555s [00:52:35.253] else { 1555s [00:52:35.253] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1555s [00:52:35.253] info, version) 1555s [00:52:35.253] } 1555s [00:52:35.253] base::stop(msg) 1555s [00:52:35.253] } 1555s [00:52:35.253] }) 1555s [00:52:35.253] } 1555s [00:52:35.253] options(future.plan = NULL) 1555s [00:52:35.253] Sys.unsetenv("R_FUTURE_PLAN") 1555s [00:52:35.253] future::plan("default", .cleanup = FALSE, .init = FALSE) 1555s [00:52:35.253] } 1555s [00:52:35.253] ...future.workdir <- getwd() 1555s [00:52:35.253] } 1555s [00:52:35.253] ...future.oldOptions <- base::as.list(base::.Options) 1555s [00:52:35.253] ...future.oldEnvVars <- base::Sys.getenv() 1555s [00:52:35.253] } 1555s [00:52:35.253] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1555s [00:52:35.253] future.globals.maxSize = 2097152000, future.globals.method = NULL, 1555s [00:52:35.253] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1555s [00:52:35.253] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1555s [00:52:35.253] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1555s [00:52:35.253] future.stdout.windows.reencode = NULL, width = 80L) 1555s [00:52:35.253] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1555s [00:52:35.253] base::names(...future.oldOptions)) 1555s [00:52:35.253] } 1555s [00:52:35.253] if (FALSE) { 1555s [00:52:35.253] } 1555s [00:52:35.253] else { 1555s [00:52:35.253] if (TRUE) { 1555s [00:52:35.253] ...future.stdout <- base::rawConnection(base::raw(0L), 1555s [00:52:35.253] open = "w") 1555s [00:52:35.253] } 1555s [00:52:35.253] else { 1555s [00:52:35.253] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1555s [00:52:35.253] windows = "NUL", "/dev/null"), open = "w") 1555s [00:52:35.253] } 1555s [00:52:35.253] base::sink(...future.stdout, type = "output", split = FALSE) 1555s [00:52:35.253] base::on.exit(if (!base::is.null(...future.stdout)) { 1555s [00:52:35.253] base::sink(type = "output", split = FALSE) 1555s [00:52:35.253] base::close(...future.stdout) 1555s [00:52:35.253] }, add = TRUE) 1555s [00:52:35.253] } 1555s [00:52:35.253] ...future.frame <- base::sys.nframe() 1555s [00:52:35.253] ...future.conditions <- base::list() 1555s [00:52:35.253] ...future.rng <- base::globalenv()$.Random.seed 1555s [00:52:35.253] if (FALSE) { 1555s [00:52:35.253] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1555s [00:52:35.253] "...future.value", "...future.globalenv.names", ".Random.seed") 1555s [00:52:35.253] } 1555s [00:52:35.253] ...future.result <- base::tryCatch({ 1555s [00:52:35.253] base::withCallingHandlers({ 1555s [00:52:35.253] ...future.value <- base::withVisible(base::local({ 1555s [00:52:35.253] do.call(function(...) { 1555s [00:52:35.253] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1555s [00:52:35.253] if (!identical(...future.globals.maxSize.org, 1555s [00:52:35.253] ...future.globals.maxSize)) { 1555s [00:52:35.253] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1555s [00:52:35.253] on.exit(options(oopts), add = TRUE) 1555s [00:52:35.253] } 1555s [00:52:35.253] { 1555s [00:52:35.253] lapply(seq_along(...future.elements_ii), 1555s [00:52:35.253] FUN = function(jj) { 1555s [00:52:35.253] ...future.X_jj <- ...future.elements_ii[[jj]] 1555s [00:52:35.253] ...future.FUN(...future.X_jj, ...) 1555s [00:52:35.253] }) 1555s [00:52:35.253] } 1555s [00:52:35.253] }, args = future.call.arguments) 1555s [00:52:35.253] })) 1555s [00:52:35.253] future::FutureResult(value = ...future.value$value, 1555s [00:52:35.253] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1555s [00:52:35.253] ...future.rng), globalenv = if (FALSE) 1555s [00:52:35.253] list(added = base::setdiff(base::names(base::.GlobalEnv), 1555s [00:52:35.253] ...future.globalenv.names)) 1555s [00:52:35.253] else NULL, started = ...future.startTime, version = "1.8") 1555s [00:52:35.253] }, condition = base::local({ 1555s [00:52:35.253] c <- base::c 1555s [00:52:35.253] inherits <- base::inherits 1555s [00:52:35.253] invokeRestart <- base::invokeRestart 1555s [00:52:35.253] length <- base::length 1555s [00:52:35.253] list <- base::list 1555s [00:52:35.253] seq.int <- base::seq.int 1555s [00:52:35.253] signalCondition <- base::signalCondition 1555s [00:52:35.253] sys.calls <- base::sys.calls 1555s [00:52:35.253] `[[` <- base::`[[` 1555s [00:52:35.253] `+` <- base::`+` 1555s [00:52:35.253] `<<-` <- base::`<<-` 1555s [00:52:35.253] sysCalls <- function(calls = sys.calls(), from = 1L) { 1555s [00:52:35.253] calls[seq.int(from = from + 12L, to = length(calls) - 1555s [00:52:35.253] 3L)] 1555s [00:52:35.253] } 1555s [00:52:35.253] function(cond) { 1555s [00:52:35.253] is_error <- inherits(cond, "error") 1555s [00:52:35.253] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1555s [00:52:35.253] NULL) 1555s [00:52:35.253] if (is_error) { 1555s [00:52:35.253] sessionInformation <- function() { 1555s [00:52:35.253] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1555s [00:52:35.253] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1555s [00:52:35.253] search = base::search(), system = base::Sys.info()) 1555s [00:52:35.253] } 1555s [00:52:35.253] ...future.conditions[[length(...future.conditions) + 1555s [00:52:35.253] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1555s [00:52:35.253] cond$call), session = sessionInformation(), 1555s [00:52:35.253] timestamp = base::Sys.time(), signaled = 0L) 1555s [00:52:35.253] signalCondition(cond) 1555s [00:52:35.253] } 1555s [00:52:35.253] else if (!ignore && TRUE && inherits(cond, c("condition", 1555s [00:52:35.253] "immediateCondition"))) { 1555s [00:52:35.253] signal <- TRUE && inherits(cond, "immediateCondition") 1555s [00:52:35.253] ...future.conditions[[length(...future.conditions) + 1555s [00:52:35.253] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1555s [00:52:35.253] if (TRUE && !signal) { 1555s [00:52:35.253] muffleCondition <- function (cond, pattern = "^muffle") 1555s [00:52:35.253] { 1555s [00:52:35.253] inherits <- base::inherits 1555s [00:52:35.253] invokeRestart <- base::invokeRestart 1555s [00:52:35.253] is.null <- base::is.null 1555s [00:52:35.253] muffled <- FALSE 1555s [00:52:35.253] if (inherits(cond, "message")) { 1555s [00:52:35.253] muffled <- grepl(pattern, "muffleMessage") 1555s [00:52:35.253] if (muffled) 1555s [00:52:35.253] invokeRestart("muffleMessage") 1555s [00:52:35.253] } 1555s [00:52:35.253] else if (inherits(cond, "warning")) { 1555s [00:52:35.253] muffled <- grepl(pattern, "muffleWarning") 1555s [00:52:35.253] if (muffled) 1555s [00:52:35.253] invokeRestart("muffleWarning") 1555s [00:52:35.253] } 1555s [00:52:35.253] else if (inherits(cond, "condition")) { 1555s [00:52:35.253] if (!is.null(pattern)) { 1555s [00:52:35.253] computeRestarts <- base::computeRestarts 1555s [00:52:35.253] grepl <- base::grepl 1555s [00:52:35.253] restarts <- computeRestarts(cond) 1555s [00:52:35.253] for (restart in restarts) { 1555s [00:52:35.253] name <- restart$name 1555s [00:52:35.253] if (is.null(name)) 1555s [00:52:35.253] next 1555s [00:52:35.253] if (!grepl(pattern, name)) 1555s [00:52:35.253] next 1555s [00:52:35.253] invokeRestart(restart) 1555s [00:52:35.253] muffled <- TRUE 1555s [00:52:35.253] break 1555s [00:52:35.253] } 1555s [00:52:35.253] } 1555s [00:52:35.253] } 1555s [00:52:35.253] invisible(muffled) 1555s [00:52:35.253] } 1555s [00:52:35.253] muffleCondition(cond, pattern = "^muffle") 1555s [00:52:35.253] } 1555s [00:52:35.253] } 1555s [00:52:35.253] else { 1555s [00:52:35.253] if (TRUE) { 1555s [00:52:35.253] muffleCondition <- function (cond, pattern = "^muffle") 1555s [00:52:35.253] { 1555s [00:52:35.253] inherits <- base::inherits 1555s [00:52:35.253] invokeRestart <- base::invokeRestart 1555s [00:52:35.253] is.null <- base::is.null 1555s [00:52:35.253] muffled <- FALSE 1555s [00:52:35.253] if (inherits(cond, "message")) { 1555s [00:52:35.253] muffled <- grepl(pattern, "muffleMessage") 1555s [00:52:35.253] if (muffled) 1555s [00:52:35.253] invokeRestart("muffleMessage") 1555s [00:52:35.253] } 1555s [00:52:35.253] else if (inherits(cond, "warning")) { 1555s [00:52:35.253] muffled <- grepl(pattern, "muffleWarning") 1555s [00:52:35.253] if (muffled) 1555s [00:52:35.253] invokeRestart("muffleWarning") 1555s [00:52:35.253] } 1555s [00:52:35.253] else if (inherits(cond, "condition")) { 1555s [00:52:35.253] if (!is.null(pattern)) { 1555s [00:52:35.253] computeRestarts <- base::computeRestarts 1555s [00:52:35.253] grepl <- base::grepl 1555s [00:52:35.253] restarts <- computeRestarts(cond) 1555s [00:52:35.253] for (restart in restarts) { 1555s [00:52:35.253] name <- restart$name 1555s [00:52:35.253] if (is.null(name)) 1555s [00:52:35.253] next 1555s [00:52:35.253] if (!grepl(pattern, name)) 1555s [00:52:35.253] next 1555s [00:52:35.253] invokeRestart(restart) 1555s [00:52:35.253] muffled <- TRUE 1555s [00:52:35.253] break 1555s [00:52:35.253] } 1555s [00:52:35.253] } 1555s [00:52:35.253] } 1555s [00:52:35.253] invisible(muffled) 1555s [00:52:35.253] } 1555s [00:52:35.253] muffleCondition(cond, pattern = "^muffle") 1555s [00:52:35.253] } 1555s [00:52:35.253] } 1555s [00:52:35.253] } 1555s [00:52:35.253] })) 1555s [00:52:35.253] }, error = function(ex) { 1555s [00:52:35.253] base::structure(base::list(value = NULL, visible = NULL, 1555s [00:52:35.253] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1555s [00:52:35.253] ...future.rng), started = ...future.startTime, 1555s [00:52:35.253] finished = Sys.time(), session_uuid = NA_character_, 1555s [00:52:35.253] version = "1.8"), class = "FutureResult") 1555s [00:52:35.253] }, finally = { 1555s [00:52:35.253] if (!identical(...future.workdir, getwd())) 1555s [00:52:35.253] setwd(...future.workdir) 1555s [00:52:35.253] { 1555s [00:52:35.253] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1555s [00:52:35.253] ...future.oldOptions$nwarnings <- NULL 1555s [00:52:35.253] } 1555s [00:52:35.253] base::options(...future.oldOptions) 1555s [00:52:35.253] if (.Platform$OS.type == "windows") { 1555s [00:52:35.253] old_names <- names(...future.oldEnvVars) 1555s [00:52:35.253] envs <- base::Sys.getenv() 1555s [00:52:35.253] names <- names(envs) 1555s [00:52:35.253] common <- intersect(names, old_names) 1555s [00:52:35.253] added <- setdiff(names, old_names) 1555s [00:52:35.253] removed <- setdiff(old_names, names) 1555s [00:52:35.253] changed <- common[...future.oldEnvVars[common] != 1555s [00:52:35.253] envs[common]] 1555s [00:52:35.253] NAMES <- toupper(changed) 1555s [00:52:35.253] args <- list() 1555s [00:52:35.253] for (kk in seq_along(NAMES)) { 1555s [00:52:35.253] name <- changed[[kk]] 1555s [00:52:35.253] NAME <- NAMES[[kk]] 1555s [00:52:35.253] if (name != NAME && is.element(NAME, old_names)) 1555s [00:52:35.253] next 1555s [00:52:35.253] args[[name]] <- ...future.oldEnvVars[[name]] 1555s [00:52:35.253] } 1555s [00:52:35.253] NAMES <- toupper(added) 1555s [00:52:35.253] for (kk in seq_along(NAMES)) { 1555s [00:52:35.253] name <- added[[kk]] 1555s [00:52:35.253] NAME <- NAMES[[kk]] 1555s [00:52:35.253] if (name != NAME && is.element(NAME, old_names)) 1555s [00:52:35.253] next 1555s [00:52:35.253] args[[name]] <- "" 1555s [00:52:35.253] } 1555s [00:52:35.253] NAMES <- toupper(removed) 1555s [00:52:35.253] for (kk in seq_along(NAMES)) { 1555s [00:52:35.253] name <- removed[[kk]] 1555s [00:52:35.253] NAME <- NAMES[[kk]] 1555s [00:52:35.253] if (name != NAME && is.element(NAME, old_names)) 1555s [00:52:35.253] next 1555s [00:52:35.253] args[[name]] <- ...future.oldEnvVars[[name]] 1555s [00:52:35.253] } 1555s [00:52:35.253] if (length(args) > 0) 1555s [00:52:35.253] base::do.call(base::Sys.setenv, args = args) 1555s [00:52:35.253] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1555s [00:52:35.253] } 1555s [00:52:35.253] else { 1555s [00:52:35.253] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1555s [00:52:35.253] } 1555s [00:52:35.253] { 1555s [00:52:35.253] if (base::length(...future.futureOptionsAdded) > 1555s [00:52:35.253] 0L) { 1555s [00:52:35.253] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1555s [00:52:35.253] base::names(opts) <- ...future.futureOptionsAdded 1555s [00:52:35.253] base::options(opts) 1555s [00:52:35.253] } 1555s [00:52:35.253] { 1555s [00:52:35.253] { 1555s [00:52:35.253] NULL 1555s [00:52:35.253] RNGkind("Mersenne-Twister") 1555s [00:52:35.253] base::rm(list = ".Random.seed", envir = base::globalenv(), 1555s [00:52:35.253] inherits = FALSE) 1555s [00:52:35.253] } 1555s [00:52:35.253] options(future.plan = NULL) 1555s [00:52:35.253] if (is.na(NA_character_)) 1555s [00:52:35.253] Sys.unsetenv("R_FUTURE_PLAN") 1555s [00:52:35.253] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1555s [00:52:35.253] future::plan(list(function (..., workers = availableCores(), 1555s [00:52:35.253] lazy = FALSE, rscript_libs = .libPaths(), 1555s [00:52:35.253] envir = parent.frame()) 1555s [00:52:35.253] { 1555s [00:52:35.253] if (is.function(workers)) 1555s [00:52:35.253] workers <- workers() 1555s [00:52:35.253] workers <- structure(as.integer(workers), 1555s [00:52:35.253] class = class(workers)) 1555s [00:52:35.253] stop_if_not(length(workers) == 1, is.finite(workers), 1555s [00:52:35.253] workers >= 1) 1555s [00:52:35.253] if (workers == 1L && !inherits(workers, "AsIs")) { 1555s [00:52:35.253] return(sequential(..., lazy = TRUE, envir = envir)) 1555s [00:52:35.253] } 1555s [00:52:35.253] future <- MultisessionFuture(..., workers = workers, 1555s [00:52:35.253] lazy = lazy, rscript_libs = rscript_libs, 1555s [00:52:35.253] envir = envir) 1555s [00:52:35.253] if (!future$lazy) 1555s [00:52:35.253] future <- run(future) 1555s [00:52:35.253] invisible(future) 1555s [00:52:35.253] }), .cleanup = FALSE, .init = FALSE) 1555s [00:52:35.253] } 1555s [00:52:35.253] } 1555s [00:52:35.253] } 1555s [00:52:35.253] }) 1555s [00:52:35.253] if (TRUE) { 1555s [00:52:35.253] base::sink(type = "output", split = FALSE) 1555s [00:52:35.253] if (TRUE) { 1555s [00:52:35.253] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1555s [00:52:35.253] } 1555s [00:52:35.253] else { 1555s [00:52:35.253] ...future.result["stdout"] <- base::list(NULL) 1555s [00:52:35.253] } 1555s [00:52:35.253] base::close(...future.stdout) 1555s [00:52:35.253] ...future.stdout <- NULL 1555s [00:52:35.253] } 1555s [00:52:35.253] ...future.result$conditions <- ...future.conditions 1555s [00:52:35.253] ...future.result$finished <- base::Sys.time() 1555s [00:52:35.253] ...future.result 1555s [00:52:35.253] } 1555s [00:52:35.262] assign_globals() ... 1555s [00:52:35.263] List of 5 1555s [00:52:35.263] $ ...future.FUN :function (mode = "logical", length = 0L) 1555s [00:52:35.263] $ future.call.arguments :List of 1 1555s [00:52:35.263] ..$ length: int 2 1555s [00:52:35.263] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1555s [00:52:35.263] $ ...future.elements_ii :List of 1 1555s [00:52:35.263] ..$ a: chr "integer" 1555s [00:52:35.263] $ ...future.seeds_ii : NULL 1555s [00:52:35.263] $ ...future.globals.maxSize: NULL 1555s [00:52:35.263] - attr(*, "where")=List of 5 1555s [00:52:35.263] ..$ ...future.FUN : 1555s [00:52:35.263] ..$ future.call.arguments : 1555s [00:52:35.263] ..$ ...future.elements_ii : 1555s [00:52:35.263] ..$ ...future.seeds_ii : 1555s [00:52:35.263] ..$ ...future.globals.maxSize: 1555s [00:52:35.263] - attr(*, "resolved")= logi FALSE 1555s [00:52:35.263] - attr(*, "total_size")= num 2240 1555s [00:52:35.263] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1555s [00:52:35.263] - attr(*, "already-done")= logi TRUE 1555s [00:52:35.271] - copied ‘...future.FUN’ to environment 1555s [00:52:35.271] - copied ‘future.call.arguments’ to environment 1555s [00:52:35.272] - copied ‘...future.elements_ii’ to environment 1555s [00:52:35.272] - copied ‘...future.seeds_ii’ to environment 1555s [00:52:35.272] - copied ‘...future.globals.maxSize’ to environment 1555s [00:52:35.272] assign_globals() ... done 1555s [00:52:35.273] plan(): Setting new future strategy stack: 1555s [00:52:35.273] List of future strategies: 1555s [00:52:35.273] 1. sequential: 1555s [00:52:35.273] - args: function (..., envir = parent.frame()) 1555s [00:52:35.273] - tweaked: FALSE 1555s [00:52:35.273] - call: NULL 1555s [00:52:35.273] plan(): nbrOfWorkers() = 1 1555s [00:52:35.274] plan(): Setting new future strategy stack: 1555s [00:52:35.275] List of future strategies: 1555s [00:52:35.275] 1. multisession: 1555s [00:52:35.275] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1555s [00:52:35.275] - tweaked: FALSE 1555s [00:52:35.275] - call: plan(strategy) 1555s [00:52:35.279] plan(): nbrOfWorkers() = 1 1555s [00:52:35.279] SequentialFuture started (and completed) 1555s [00:52:35.280] - Launch lazy future ... done 1555s [00:52:35.280] run() for ‘SequentialFuture’ ... done 1555s [00:52:35.280] Created future: 1555s [00:52:35.280] SequentialFuture: 1555s [00:52:35.280] Label: ‘future_lapply-1’ 1555s [00:52:35.280] Expression: 1555s [00:52:35.280] { 1555s [00:52:35.280] do.call(function(...) { 1555s [00:52:35.280] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1555s [00:52:35.280] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1555s [00:52:35.280] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1555s [00:52:35.280] on.exit(options(oopts), add = TRUE) 1555s [00:52:35.280] } 1555s [00:52:35.280] { 1555s [00:52:35.280] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1555s [00:52:35.280] ...future.X_jj <- ...future.elements_ii[[jj]] 1555s [00:52:35.280] ...future.FUN(...future.X_jj, ...) 1555s [00:52:35.280] }) 1555s [00:52:35.280] } 1555s [00:52:35.280] }, args = future.call.arguments) 1555s [00:52:35.280] } 1555s [00:52:35.280] Lazy evaluation: FALSE 1555s [00:52:35.280] Asynchronous evaluation: FALSE 1555s [00:52:35.280] Local evaluation: TRUE 1555s [00:52:35.280] Environment: R_GlobalEnv 1555s [00:52:35.280] Capture standard output: TRUE 1555s [00:52:35.280] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1555s [00:52:35.280] Globals: 5 objects totaling 2.30 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1555s [00:52:35.280] Packages: 1555s [00:52:35.280] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1555s [00:52:35.280] Resolved: TRUE 1555s [00:52:35.280] Value: 56 bytes of class ‘list’ 1555s [00:52:35.280] Early signaling: FALSE 1555s [00:52:35.280] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1555s [00:52:35.280] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1555s [00:52:35.282] Chunk #1 of 4 ... DONE 1555s [00:52:35.283] Chunk #2 of 4 ... 1555s [00:52:35.283] - Finding globals in 'X' for chunk #2 ... 1555s [00:52:35.283] getGlobalsAndPackages() ... 1555s [00:52:35.283] Searching for globals... 1555s [00:52:35.284] 1555s [00:52:35.284] Searching for globals ... DONE 1555s [00:52:35.284] - globals: [0] 1555s [00:52:35.284] getGlobalsAndPackages() ... DONE 1555s [00:52:35.284] + additional globals found: [n=0] 1555s [00:52:35.285] + additional namespaces needed: [n=0] 1555s [00:52:35.285] - Finding globals in 'X' for chunk #2 ... DONE 1555s [00:52:35.285] - Adjusted option 'future.globals.maxSize': 524288000 -> 4 * 524288000 = 2097152000 (bytes) 1555s [00:52:35.285] - seeds: 1555s [00:52:35.285] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1555s [00:52:35.286] getGlobalsAndPackages() ... 1555s [00:52:35.286] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1555s [00:52:35.286] Resolving globals: FALSE 1555s [00:52:35.286] Tweak future expression to call with '...' arguments ... 1555s [00:52:35.286] { 1555s [00:52:35.286] do.call(function(...) { 1555s [00:52:35.286] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1555s [00:52:35.286] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1555s [00:52:35.286] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1555s [00:52:35.286] on.exit(options(oopts), add = TRUE) 1555s [00:52:35.286] } 1555s [00:52:35.286] { 1555s [00:52:35.286] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1555s [00:52:35.286] ...future.X_jj <- ...future.elements_ii[[jj]] 1555s [00:52:35.286] ...future.FUN(...future.X_jj, ...) 1555s [00:52:35.286] }) 1555s [00:52:35.286] } 1555s [00:52:35.286] }, args = future.call.arguments) 1555s [00:52:35.286] } 1555s [00:52:35.287] Tweak future expression to call with '...' arguments ... DONE 1555s [00:52:35.288] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1555s [00:52:35.288] 1555s [00:52:35.288] getGlobalsAndPackages() ... DONE 1555s [00:52:35.288] run() for ‘Future’ ... 1555s [00:52:35.289] - state: ‘created’ 1555s [00:52:35.289] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1555s [00:52:35.293] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1555s [00:52:35.293] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1555s [00:52:35.293] - Field: ‘label’ 1555s [00:52:35.294] - Field: ‘local’ 1555s [00:52:35.294] - Field: ‘owner’ 1555s [00:52:35.294] - Field: ‘envir’ 1555s [00:52:35.294] - Field: ‘packages’ 1555s [00:52:35.294] - Field: ‘gc’ 1555s [00:52:35.294] - Field: ‘conditions’ 1555s [00:52:35.295] - Field: ‘expr’ 1555s [00:52:35.295] - Field: ‘uuid’ 1555s [00:52:35.295] - Field: ‘seed’ 1555s [00:52:35.295] - Field: ‘version’ 1555s [00:52:35.296] - Field: ‘result’ 1555s [00:52:35.296] - Field: ‘asynchronous’ 1555s [00:52:35.296] - Field: ‘calls’ 1555s [00:52:35.296] - Field: ‘globals’ 1555s [00:52:35.296] - Field: ‘stdout’ 1555s [00:52:35.297] - Field: ‘earlySignal’ 1555s [00:52:35.297] - Field: ‘lazy’ 1555s [00:52:35.297] - Field: ‘state’ 1555s [00:52:35.297] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1555s [00:52:35.297] - Launch lazy future ... 1555s [00:52:35.297] Packages needed by the future expression (n = 0): 1555s [00:52:35.298] Packages needed by future strategies (n = 0): 1555s [00:52:35.298] { 1555s [00:52:35.298] { 1555s [00:52:35.298] { 1555s [00:52:35.298] ...future.startTime <- base::Sys.time() 1555s [00:52:35.298] { 1555s [00:52:35.298] { 1555s [00:52:35.298] { 1555s [00:52:35.298] base::local({ 1555s [00:52:35.298] has_future <- base::requireNamespace("future", 1555s [00:52:35.298] quietly = TRUE) 1555s [00:52:35.298] if (has_future) { 1555s [00:52:35.298] ns <- base::getNamespace("future") 1555s [00:52:35.298] version <- ns[[".package"]][["version"]] 1555s [00:52:35.298] if (is.null(version)) 1555s [00:52:35.298] version <- utils::packageVersion("future") 1555s [00:52:35.298] } 1555s [00:52:35.298] else { 1555s [00:52:35.298] version <- NULL 1555s [00:52:35.298] } 1555s [00:52:35.298] if (!has_future || version < "1.8.0") { 1555s [00:52:35.298] info <- base::c(r_version = base::gsub("R version ", 1555s [00:52:35.298] "", base::R.version$version.string), 1555s [00:52:35.298] platform = base::sprintf("%s (%s-bit)", 1555s [00:52:35.298] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1555s [00:52:35.298] os = base::paste(base::Sys.info()[base::c("sysname", 1555s [00:52:35.298] "release", "version")], collapse = " "), 1555s [00:52:35.298] hostname = base::Sys.info()[["nodename"]]) 1555s [00:52:35.298] info <- base::sprintf("%s: %s", base::names(info), 1555s [00:52:35.298] info) 1555s [00:52:35.298] info <- base::paste(info, collapse = "; ") 1555s [00:52:35.298] if (!has_future) { 1555s [00:52:35.298] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1555s [00:52:35.298] info) 1555s [00:52:35.298] } 1555s [00:52:35.298] else { 1555s [00:52:35.298] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1555s [00:52:35.298] info, version) 1555s [00:52:35.298] } 1555s [00:52:35.298] base::stop(msg) 1555s [00:52:35.298] } 1555s [00:52:35.298] }) 1555s [00:52:35.298] } 1555s [00:52:35.298] options(future.plan = NULL) 1555s [00:52:35.298] Sys.unsetenv("R_FUTURE_PLAN") 1555s [00:52:35.298] future::plan("default", .cleanup = FALSE, .init = FALSE) 1555s [00:52:35.298] } 1555s [00:52:35.298] ...future.workdir <- getwd() 1555s [00:52:35.298] } 1555s [00:52:35.298] ...future.oldOptions <- base::as.list(base::.Options) 1555s [00:52:35.298] ...future.oldEnvVars <- base::Sys.getenv() 1555s [00:52:35.298] } 1555s [00:52:35.298] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1555s [00:52:35.298] future.globals.maxSize = 2097152000, future.globals.method = NULL, 1555s [00:52:35.298] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1555s [00:52:35.298] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1555s [00:52:35.298] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1555s [00:52:35.298] future.stdout.windows.reencode = NULL, width = 80L) 1555s [00:52:35.298] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1555s [00:52:35.298] base::names(...future.oldOptions)) 1555s [00:52:35.298] } 1555s [00:52:35.298] if (FALSE) { 1555s [00:52:35.298] } 1555s [00:52:35.298] else { 1555s [00:52:35.298] if (TRUE) { 1555s [00:52:35.298] ...future.stdout <- base::rawConnection(base::raw(0L), 1555s [00:52:35.298] open = "w") 1555s [00:52:35.298] } 1555s [00:52:35.298] else { 1555s [00:52:35.298] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1555s [00:52:35.298] windows = "NUL", "/dev/null"), open = "w") 1555s [00:52:35.298] } 1555s [00:52:35.298] base::sink(...future.stdout, type = "output", split = FALSE) 1555s [00:52:35.298] base::on.exit(if (!base::is.null(...future.stdout)) { 1555s [00:52:35.298] base::sink(type = "output", split = FALSE) 1555s [00:52:35.298] base::close(...future.stdout) 1555s [00:52:35.298] }, add = TRUE) 1555s [00:52:35.298] } 1555s [00:52:35.298] ...future.frame <- base::sys.nframe() 1555s [00:52:35.298] ...future.conditions <- base::list() 1555s [00:52:35.298] ...future.rng <- base::globalenv()$.Random.seed 1555s [00:52:35.298] if (FALSE) { 1555s [00:52:35.298] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1555s [00:52:35.298] "...future.value", "...future.globalenv.names", ".Random.seed") 1555s [00:52:35.298] } 1555s [00:52:35.298] ...future.result <- base::tryCatch({ 1555s [00:52:35.298] base::withCallingHandlers({ 1555s [00:52:35.298] ...future.value <- base::withVisible(base::local({ 1555s [00:52:35.298] do.call(function(...) { 1555s [00:52:35.298] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1555s [00:52:35.298] if (!identical(...future.globals.maxSize.org, 1555s [00:52:35.298] ...future.globals.maxSize)) { 1555s [00:52:35.298] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1555s [00:52:35.298] on.exit(options(oopts), add = TRUE) 1555s [00:52:35.298] } 1555s [00:52:35.298] { 1555s [00:52:35.298] lapply(seq_along(...future.elements_ii), 1555s [00:52:35.298] FUN = function(jj) { 1555s [00:52:35.298] ...future.X_jj <- ...future.elements_ii[[jj]] 1555s [00:52:35.298] ...future.FUN(...future.X_jj, ...) 1555s [00:52:35.298] }) 1555s [00:52:35.298] } 1555s [00:52:35.298] }, args = future.call.arguments) 1555s [00:52:35.298] })) 1555s [00:52:35.298] future::FutureResult(value = ...future.value$value, 1555s [00:52:35.298] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1555s [00:52:35.298] ...future.rng), globalenv = if (FALSE) 1555s [00:52:35.298] list(added = base::setdiff(base::names(base::.GlobalEnv), 1555s [00:52:35.298] ...future.globalenv.names)) 1555s [00:52:35.298] else NULL, started = ...future.startTime, version = "1.8") 1555s [00:52:35.298] }, condition = base::local({ 1555s [00:52:35.298] c <- base::c 1555s [00:52:35.298] inherits <- base::inherits 1555s [00:52:35.298] invokeRestart <- base::invokeRestart 1555s [00:52:35.298] length <- base::length 1555s [00:52:35.298] list <- base::list 1555s [00:52:35.298] seq.int <- base::seq.int 1555s [00:52:35.298] signalCondition <- base::signalCondition 1555s [00:52:35.298] sys.calls <- base::sys.calls 1555s [00:52:35.298] `[[` <- base::`[[` 1555s [00:52:35.298] `+` <- base::`+` 1555s [00:52:35.298] `<<-` <- base::`<<-` 1555s [00:52:35.298] sysCalls <- function(calls = sys.calls(), from = 1L) { 1555s [00:52:35.298] calls[seq.int(from = from + 12L, to = length(calls) - 1555s [00:52:35.298] 3L)] 1555s [00:52:35.298] } 1555s [00:52:35.298] function(cond) { 1555s [00:52:35.298] is_error <- inherits(cond, "error") 1555s [00:52:35.298] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1555s [00:52:35.298] NULL) 1555s [00:52:35.298] if (is_error) { 1555s [00:52:35.298] sessionInformation <- function() { 1555s [00:52:35.298] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1555s [00:52:35.298] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1555s [00:52:35.298] search = base::search(), system = base::Sys.info()) 1555s [00:52:35.298] } 1555s [00:52:35.298] ...future.conditions[[length(...future.conditions) + 1555s [00:52:35.298] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1555s [00:52:35.298] cond$call), session = sessionInformation(), 1555s [00:52:35.298] timestamp = base::Sys.time(), signaled = 0L) 1555s [00:52:35.298] signalCondition(cond) 1555s [00:52:35.298] } 1555s [00:52:35.298] else if (!ignore && TRUE && inherits(cond, c("condition", 1555s [00:52:35.298] "immediateCondition"))) { 1555s [00:52:35.298] signal <- TRUE && inherits(cond, "immediateCondition") 1555s [00:52:35.298] ...future.conditions[[length(...future.conditions) + 1555s [00:52:35.298] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1555s [00:52:35.298] if (TRUE && !signal) { 1555s [00:52:35.298] muffleCondition <- function (cond, pattern = "^muffle") 1555s [00:52:35.298] { 1555s [00:52:35.298] inherits <- base::inherits 1555s [00:52:35.298] invokeRestart <- base::invokeRestart 1555s [00:52:35.298] is.null <- base::is.null 1555s [00:52:35.298] muffled <- FALSE 1555s [00:52:35.298] if (inherits(cond, "message")) { 1555s [00:52:35.298] muffled <- grepl(pattern, "muffleMessage") 1555s [00:52:35.298] if (muffled) 1555s [00:52:35.298] invokeRestart("muffleMessage") 1555s [00:52:35.298] } 1555s [00:52:35.298] else if (inherits(cond, "warning")) { 1555s [00:52:35.298] muffled <- grepl(pattern, "muffleWarning") 1555s [00:52:35.298] if (muffled) 1555s [00:52:35.298] invokeRestart("muffleWarning") 1555s [00:52:35.298] } 1555s [00:52:35.298] else if (inherits(cond, "condition")) { 1555s [00:52:35.298] if (!is.null(pattern)) { 1555s [00:52:35.298] computeRestarts <- base::computeRestarts 1555s [00:52:35.298] grepl <- base::grepl 1555s [00:52:35.298] restarts <- computeRestarts(cond) 1555s [00:52:35.298] for (restart in restarts) { 1555s [00:52:35.298] name <- restart$name 1555s [00:52:35.298] if (is.null(name)) 1555s [00:52:35.298] next 1555s [00:52:35.298] if (!grepl(pattern, name)) 1555s [00:52:35.298] next 1555s [00:52:35.298] invokeRestart(restart) 1555s [00:52:35.298] muffled <- TRUE 1555s [00:52:35.298] break 1555s [00:52:35.298] } 1555s [00:52:35.298] } 1555s [00:52:35.298] } 1555s [00:52:35.298] invisible(muffled) 1555s [00:52:35.298] } 1555s [00:52:35.298] muffleCondition(cond, pattern = "^muffle") 1555s [00:52:35.298] } 1555s [00:52:35.298] } 1555s [00:52:35.298] else { 1555s [00:52:35.298] if (TRUE) { 1555s [00:52:35.298] muffleCondition <- function (cond, pattern = "^muffle") 1555s [00:52:35.298] { 1555s [00:52:35.298] inherits <- base::inherits 1555s [00:52:35.298] invokeRestart <- base::invokeRestart 1555s [00:52:35.298] is.null <- base::is.null 1555s [00:52:35.298] muffled <- FALSE 1555s [00:52:35.298] if (inherits(cond, "message")) { 1555s [00:52:35.298] muffled <- grepl(pattern, "muffleMessage") 1555s [00:52:35.298] if (muffled) 1555s [00:52:35.298] invokeRestart("muffleMessage") 1555s [00:52:35.298] } 1555s [00:52:35.298] else if (inherits(cond, "warning")) { 1555s [00:52:35.298] muffled <- grepl(pattern, "muffleWarning") 1555s [00:52:35.298] if (muffled) 1555s [00:52:35.298] invokeRestart("muffleWarning") 1555s [00:52:35.298] } 1555s [00:52:35.298] else if (inherits(cond, "condition")) { 1555s [00:52:35.298] if (!is.null(pattern)) { 1555s [00:52:35.298] computeRestarts <- base::computeRestarts 1555s [00:52:35.298] grepl <- base::grepl 1555s [00:52:35.298] restarts <- computeRestarts(cond) 1555s [00:52:35.298] for (restart in restarts) { 1555s [00:52:35.298] name <- restart$name 1555s [00:52:35.298] if (is.null(name)) 1555s [00:52:35.298] next 1555s [00:52:35.298] if (!grepl(pattern, name)) 1555s [00:52:35.298] next 1555s [00:52:35.298] invokeRestart(restart) 1555s [00:52:35.298] muffled <- TRUE 1555s [00:52:35.298] break 1555s [00:52:35.298] } 1555s [00:52:35.298] } 1555s [00:52:35.298] } 1555s [00:52:35.298] invisible(muffled) 1555s [00:52:35.298] } 1555s [00:52:35.298] muffleCondition(cond, pattern = "^muffle") 1555s [00:52:35.298] } 1555s [00:52:35.298] } 1555s [00:52:35.298] } 1555s [00:52:35.298] })) 1555s [00:52:35.298] }, error = function(ex) { 1555s [00:52:35.298] base::structure(base::list(value = NULL, visible = NULL, 1555s [00:52:35.298] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1555s [00:52:35.298] ...future.rng), started = ...future.startTime, 1555s [00:52:35.298] finished = Sys.time(), session_uuid = NA_character_, 1555s [00:52:35.298] version = "1.8"), class = "FutureResult") 1555s [00:52:35.298] }, finally = { 1555s [00:52:35.298] if (!identical(...future.workdir, getwd())) 1555s [00:52:35.298] setwd(...future.workdir) 1555s [00:52:35.298] { 1555s [00:52:35.298] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1555s [00:52:35.298] ...future.oldOptions$nwarnings <- NULL 1555s [00:52:35.298] } 1555s [00:52:35.298] base::options(...future.oldOptions) 1555s [00:52:35.298] if (.Platform$OS.type == "windows") { 1555s [00:52:35.298] old_names <- names(...future.oldEnvVars) 1555s [00:52:35.298] envs <- base::Sys.getenv() 1555s [00:52:35.298] names <- names(envs) 1555s [00:52:35.298] common <- intersect(names, old_names) 1555s [00:52:35.298] added <- setdiff(names, old_names) 1555s [00:52:35.298] removed <- setdiff(old_names, names) 1555s [00:52:35.298] changed <- common[...future.oldEnvVars[common] != 1555s [00:52:35.298] envs[common]] 1555s [00:52:35.298] NAMES <- toupper(changed) 1555s [00:52:35.298] args <- list() 1555s [00:52:35.298] for (kk in seq_along(NAMES)) { 1555s [00:52:35.298] name <- changed[[kk]] 1555s [00:52:35.298] NAME <- NAMES[[kk]] 1555s [00:52:35.298] if (name != NAME && is.element(NAME, old_names)) 1555s [00:52:35.298] next 1555s [00:52:35.298] args[[name]] <- ...future.oldEnvVars[[name]] 1555s [00:52:35.298] } 1555s [00:52:35.298] NAMES <- toupper(added) 1555s [00:52:35.298] for (kk in seq_along(NAMES)) { 1555s [00:52:35.298] name <- added[[kk]] 1555s [00:52:35.298] NAME <- NAMES[[kk]] 1555s [00:52:35.298] if (name != NAME && is.element(NAME, old_names)) 1555s [00:52:35.298] next 1555s [00:52:35.298] args[[name]] <- "" 1555s [00:52:35.298] } 1555s [00:52:35.298] NAMES <- toupper(removed) 1555s [00:52:35.298] for (kk in seq_along(NAMES)) { 1555s [00:52:35.298] name <- removed[[kk]] 1555s [00:52:35.298] NAME <- NAMES[[kk]] 1555s [00:52:35.298] if (name != NAME && is.element(NAME, old_names)) 1555s [00:52:35.298] next 1555s [00:52:35.298] args[[name]] <- ...future.oldEnvVars[[name]] 1555s [00:52:35.298] } 1555s [00:52:35.298] if (length(args) > 0) 1555s [00:52:35.298] base::do.call(base::Sys.setenv, args = args) 1555s [00:52:35.298] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1555s [00:52:35.298] } 1555s [00:52:35.298] else { 1555s [00:52:35.298] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1555s [00:52:35.298] } 1555s [00:52:35.298] { 1555s [00:52:35.298] if (base::length(...future.futureOptionsAdded) > 1555s [00:52:35.298] 0L) { 1555s [00:52:35.298] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1555s [00:52:35.298] base::names(opts) <- ...future.futureOptionsAdded 1555s [00:52:35.298] base::options(opts) 1555s [00:52:35.298] } 1555s [00:52:35.298] { 1555s [00:52:35.298] { 1555s [00:52:35.298] NULL 1555s [00:52:35.298] RNGkind("Mersenne-Twister") 1555s [00:52:35.298] base::rm(list = ".Random.seed", envir = base::globalenv(), 1555s [00:52:35.298] inherits = FALSE) 1555s [00:52:35.298] } 1555s [00:52:35.298] options(future.plan = NULL) 1555s [00:52:35.298] if (is.na(NA_character_)) 1555s [00:52:35.298] Sys.unsetenv("R_FUTURE_PLAN") 1555s [00:52:35.298] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1555s [00:52:35.298] future::plan(list(function (..., workers = availableCores(), 1555s [00:52:35.298] lazy = FALSE, rscript_libs = .libPaths(), 1555s [00:52:35.298] envir = parent.frame()) 1555s [00:52:35.298] { 1555s [00:52:35.298] if (is.function(workers)) 1555s [00:52:35.298] workers <- workers() 1555s [00:52:35.298] workers <- structure(as.integer(workers), 1555s [00:52:35.298] class = class(workers)) 1555s [00:52:35.298] stop_if_not(length(workers) == 1, is.finite(workers), 1555s [00:52:35.298] workers >= 1) 1555s [00:52:35.298] if (workers == 1L && !inherits(workers, "AsIs")) { 1555s [00:52:35.298] return(sequential(..., lazy = TRUE, envir = envir)) 1555s [00:52:35.298] } 1555s [00:52:35.298] future <- MultisessionFuture(..., workers = workers, 1555s [00:52:35.298] lazy = lazy, rscript_libs = rscript_libs, 1555s [00:52:35.298] envir = envir) 1555s [00:52:35.298] if (!future$lazy) 1555s [00:52:35.298] future <- run(future) 1555s [00:52:35.298] invisible(future) 1555s [00:52:35.298] }), .cleanup = FALSE, .init = FALSE) 1555s [00:52:35.298] } 1555s [00:52:35.298] } 1555s [00:52:35.298] } 1555s [00:52:35.298] }) 1555s [00:52:35.298] if (TRUE) { 1555s [00:52:35.298] base::sink(type = "output", split = FALSE) 1555s [00:52:35.298] if (TRUE) { 1555s [00:52:35.298] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1555s [00:52:35.298] } 1555s [00:52:35.298] else { 1555s [00:52:35.298] ...future.result["stdout"] <- base::list(NULL) 1555s [00:52:35.298] } 1555s [00:52:35.298] base::close(...future.stdout) 1555s [00:52:35.298] ...future.stdout <- NULL 1555s [00:52:35.298] } 1555s [00:52:35.298] ...future.result$conditions <- ...future.conditions 1555s [00:52:35.298] ...future.result$finished <- base::Sys.time() 1555s [00:52:35.298] ...future.result 1555s [00:52:35.298] } 1555s [00:52:35.305] assign_globals() ... 1555s [00:52:35.305] List of 5 1555s [00:52:35.305] $ ...future.FUN :function (mode = "logical", length = 0L) 1555s [00:52:35.305] $ future.call.arguments :List of 1 1555s [00:52:35.305] ..$ length: int 2 1555s [00:52:35.305] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1555s [00:52:35.305] $ ...future.elements_ii :List of 1 1555s [00:52:35.305] ..$ b: chr "numeric" 1555s [00:52:35.305] $ ...future.seeds_ii : NULL 1555s [00:52:35.305] $ ...future.globals.maxSize: NULL 1555s [00:52:35.305] - attr(*, "where")=List of 5 1555s [00:52:35.305] ..$ ...future.FUN : 1555s [00:52:35.305] ..$ future.call.arguments : 1555s [00:52:35.305] ..$ ...future.elements_ii : 1555s [00:52:35.305] ..$ ...future.seeds_ii : 1555s [00:52:35.305] ..$ ...future.globals.maxSize: 1555s [00:52:35.305] - attr(*, "resolved")= logi FALSE 1555s [00:52:35.305] - attr(*, "total_size")= num 2240 1555s [00:52:35.305] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1555s [00:52:35.305] - attr(*, "already-done")= logi TRUE 1555s [00:52:35.313] - copied ‘...future.FUN’ to environment 1555s [00:52:35.313] - copied ‘future.call.arguments’ to environment 1555s [00:52:35.314] - copied ‘...future.elements_ii’ to environment 1555s [00:52:35.314] - copied ‘...future.seeds_ii’ to environment 1555s [00:52:35.314] - copied ‘...future.globals.maxSize’ to environment 1555s [00:52:35.314] assign_globals() ... done 1555s [00:52:35.314] plan(): Setting new future strategy stack: 1555s [00:52:35.315] List of future strategies: 1555s [00:52:35.315] 1. sequential: 1555s [00:52:35.315] - args: function (..., envir = parent.frame()) 1555s [00:52:35.315] - tweaked: FALSE 1555s [00:52:35.315] - call: NULL 1555s [00:52:35.315] plan(): nbrOfWorkers() = 1 1555s [00:52:35.316] plan(): Setting new future strategy stack: 1555s [00:52:35.316] List of future strategies: 1555s [00:52:35.316] 1. multisession: 1555s [00:52:35.316] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1555s [00:52:35.316] - tweaked: FALSE 1555s [00:52:35.316] - call: plan(strategy) 1555s [00:52:35.320] plan(): nbrOfWorkers() = 1 1555s [00:52:35.321] SequentialFuture started (and completed) 1555s [00:52:35.321] - Launch lazy future ... done 1555s [00:52:35.321] run() for ‘SequentialFuture’ ... done 1555s [00:52:35.321] Created future: 1555s [00:52:35.322] SequentialFuture: 1555s [00:52:35.322] Label: ‘future_lapply-2’ 1555s [00:52:35.322] Expression: 1555s [00:52:35.322] { 1555s [00:52:35.322] do.call(function(...) { 1555s [00:52:35.322] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1555s [00:52:35.322] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1555s [00:52:35.322] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1555s [00:52:35.322] on.exit(options(oopts), add = TRUE) 1555s [00:52:35.322] } 1555s [00:52:35.322] { 1555s [00:52:35.322] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1555s [00:52:35.322] ...future.X_jj <- ...future.elements_ii[[jj]] 1555s [00:52:35.322] ...future.FUN(...future.X_jj, ...) 1555s [00:52:35.322] }) 1555s [00:52:35.322] } 1555s [00:52:35.322] }, args = future.call.arguments) 1555s [00:52:35.322] } 1555s [00:52:35.322] Lazy evaluation: FALSE 1555s [00:52:35.322] Asynchronous evaluation: FALSE 1555s [00:52:35.322] Local evaluation: TRUE 1555s [00:52:35.322] Environment: R_GlobalEnv 1555s [00:52:35.322] Capture standard output: TRUE 1555s [00:52:35.322] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1555s [00:52:35.322] Globals: 5 objects totaling 2.30 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1555s [00:52:35.322] Packages: 1555s [00:52:35.322] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1555s [00:52:35.322] Resolved: TRUE 1555s [00:52:35.322] Value: 64 bytes of class ‘list’ 1555s [00:52:35.322] Early signaling: FALSE 1555s [00:52:35.322] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1555s [00:52:35.322] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1555s [00:52:35.324] Chunk #2 of 4 ... DONE 1555s [00:52:35.324] Chunk #3 of 4 ... 1555s [00:52:35.324] - Finding globals in 'X' for chunk #3 ... 1555s [00:52:35.324] getGlobalsAndPackages() ... 1555s [00:52:35.325] Searching for globals... 1555s [00:52:35.325] 1555s [00:52:35.326] Searching for globals ... DONE 1555s [00:52:35.326] - globals: [0] 1555s [00:52:35.326] getGlobalsAndPackages() ... DONE 1555s [00:52:35.326] + additional globals found: [n=0] 1555s [00:52:35.326] + additional namespaces needed: [n=0] 1555s [00:52:35.326] - Finding globals in 'X' for chunk #3 ... DONE 1555s [00:52:35.327] - Adjusted option 'future.globals.maxSize': 524288000 -> 4 * 524288000 = 2097152000 (bytes) 1555s [00:52:35.327] - seeds: 1555s [00:52:35.327] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1555s [00:52:35.327] getGlobalsAndPackages() ... 1555s [00:52:35.327] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1555s [00:52:35.328] Resolving globals: FALSE 1555s [00:52:35.328] Tweak future expression to call with '...' arguments ... 1555s [00:52:35.328] { 1555s [00:52:35.328] do.call(function(...) { 1555s [00:52:35.328] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1555s [00:52:35.328] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1555s [00:52:35.328] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1555s [00:52:35.328] on.exit(options(oopts), add = TRUE) 1555s [00:52:35.328] } 1555s [00:52:35.328] { 1555s [00:52:35.328] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1555s [00:52:35.328] ...future.X_jj <- ...future.elements_ii[[jj]] 1555s [00:52:35.328] ...future.FUN(...future.X_jj, ...) 1555s [00:52:35.328] }) 1555s [00:52:35.328] } 1555s [00:52:35.328] }, args = future.call.arguments) 1555s [00:52:35.328] } 1555s [00:52:35.329] Tweak future expression to call with '...' arguments ... DONE 1555s [00:52:35.329] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1555s [00:52:35.330] 1555s [00:52:35.330] getGlobalsAndPackages() ... DONE 1555s [00:52:35.330] run() for ‘Future’ ... 1555s [00:52:35.331] - state: ‘created’ 1555s [00:52:35.331] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1555s [00:52:35.335] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1555s [00:52:35.336] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1555s [00:52:35.336] - Field: ‘label’ 1555s [00:52:35.336] - Field: ‘local’ 1555s [00:52:35.336] - Field: ‘owner’ 1555s [00:52:35.336] - Field: ‘envir’ 1555s [00:52:35.336] - Field: ‘packages’ 1555s [00:52:35.337] - Field: ‘gc’ 1555s [00:52:35.337] - Field: ‘conditions’ 1555s [00:52:35.337] - Field: ‘expr’ 1555s [00:52:35.337] - Field: ‘uuid’ 1555s [00:52:35.338] - Field: ‘seed’ 1555s [00:52:35.338] - Field: ‘version’ 1555s [00:52:35.338] - Field: ‘result’ 1555s [00:52:35.338] - Field: ‘asynchronous’ 1555s [00:52:35.338] - Field: ‘calls’ 1555s [00:52:35.338] - Field: ‘globals’ 1555s [00:52:35.339] - Field: ‘stdout’ 1555s [00:52:35.339] - Field: ‘earlySignal’ 1555s [00:52:35.339] - Field: ‘lazy’ 1555s [00:52:35.339] - Field: ‘state’ 1555s [00:52:35.340] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1555s [00:52:35.340] - Launch lazy future ... 1555s [00:52:35.340] Packages needed by the future expression (n = 0): 1555s [00:52:35.340] Packages needed by future strategies (n = 0): 1555s [00:52:35.341] { 1555s [00:52:35.341] { 1555s [00:52:35.341] { 1555s [00:52:35.341] ...future.startTime <- base::Sys.time() 1555s [00:52:35.341] { 1555s [00:52:35.341] { 1555s [00:52:35.341] { 1555s [00:52:35.341] base::local({ 1555s [00:52:35.341] has_future <- base::requireNamespace("future", 1555s [00:52:35.341] quietly = TRUE) 1555s [00:52:35.341] if (has_future) { 1555s [00:52:35.341] ns <- base::getNamespace("future") 1555s [00:52:35.341] version <- ns[[".package"]][["version"]] 1555s [00:52:35.341] if (is.null(version)) 1555s [00:52:35.341] version <- utils::packageVersion("future") 1555s [00:52:35.341] } 1555s [00:52:35.341] else { 1555s [00:52:35.341] version <- NULL 1555s [00:52:35.341] } 1555s [00:52:35.341] if (!has_future || version < "1.8.0") { 1555s [00:52:35.341] info <- base::c(r_version = base::gsub("R version ", 1555s [00:52:35.341] "", base::R.version$version.string), 1555s [00:52:35.341] platform = base::sprintf("%s (%s-bit)", 1555s [00:52:35.341] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1555s [00:52:35.341] os = base::paste(base::Sys.info()[base::c("sysname", 1555s [00:52:35.341] "release", "version")], collapse = " "), 1555s [00:52:35.341] hostname = base::Sys.info()[["nodename"]]) 1555s [00:52:35.341] info <- base::sprintf("%s: %s", base::names(info), 1555s [00:52:35.341] info) 1555s [00:52:35.341] info <- base::paste(info, collapse = "; ") 1555s [00:52:35.341] if (!has_future) { 1555s [00:52:35.341] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1555s [00:52:35.341] info) 1555s [00:52:35.341] } 1555s [00:52:35.341] else { 1555s [00:52:35.341] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1555s [00:52:35.341] info, version) 1555s [00:52:35.341] } 1555s [00:52:35.341] base::stop(msg) 1555s [00:52:35.341] } 1555s [00:52:35.341] }) 1555s [00:52:35.341] } 1555s [00:52:35.341] options(future.plan = NULL) 1555s [00:52:35.341] Sys.unsetenv("R_FUTURE_PLAN") 1555s [00:52:35.341] future::plan("default", .cleanup = FALSE, .init = FALSE) 1555s [00:52:35.341] } 1555s [00:52:35.341] ...future.workdir <- getwd() 1555s [00:52:35.341] } 1555s [00:52:35.341] ...future.oldOptions <- base::as.list(base::.Options) 1555s [00:52:35.341] ...future.oldEnvVars <- base::Sys.getenv() 1555s [00:52:35.341] } 1555s [00:52:35.341] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1555s [00:52:35.341] future.globals.maxSize = 2097152000, future.globals.method = NULL, 1555s [00:52:35.341] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1555s [00:52:35.341] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1555s [00:52:35.341] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1555s [00:52:35.341] future.stdout.windows.reencode = NULL, width = 80L) 1555s [00:52:35.341] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1555s [00:52:35.341] base::names(...future.oldOptions)) 1555s [00:52:35.341] } 1555s [00:52:35.341] if (FALSE) { 1555s [00:52:35.341] } 1555s [00:52:35.341] else { 1555s [00:52:35.341] if (TRUE) { 1555s [00:52:35.341] ...future.stdout <- base::rawConnection(base::raw(0L), 1555s [00:52:35.341] open = "w") 1555s [00:52:35.341] } 1555s [00:52:35.341] else { 1555s [00:52:35.341] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1555s [00:52:35.341] windows = "NUL", "/dev/null"), open = "w") 1555s [00:52:35.341] } 1555s [00:52:35.341] base::sink(...future.stdout, type = "output", split = FALSE) 1555s [00:52:35.341] base::on.exit(if (!base::is.null(...future.stdout)) { 1555s [00:52:35.341] base::sink(type = "output", split = FALSE) 1555s [00:52:35.341] base::close(...future.stdout) 1555s [00:52:35.341] }, add = TRUE) 1555s [00:52:35.341] } 1555s [00:52:35.341] ...future.frame <- base::sys.nframe() 1555s [00:52:35.341] ...future.conditions <- base::list() 1555s [00:52:35.341] ...future.rng <- base::globalenv()$.Random.seed 1555s [00:52:35.341] if (FALSE) { 1555s [00:52:35.341] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1555s [00:52:35.341] "...future.value", "...future.globalenv.names", ".Random.seed") 1555s [00:52:35.341] } 1555s [00:52:35.341] ...future.result <- base::tryCatch({ 1555s [00:52:35.341] base::withCallingHandlers({ 1555s [00:52:35.341] ...future.value <- base::withVisible(base::local({ 1555s [00:52:35.341] do.call(function(...) { 1555s [00:52:35.341] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1555s [00:52:35.341] if (!identical(...future.globals.maxSize.org, 1555s [00:52:35.341] ...future.globals.maxSize)) { 1555s [00:52:35.341] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1555s [00:52:35.341] on.exit(options(oopts), add = TRUE) 1555s [00:52:35.341] } 1555s [00:52:35.341] { 1555s [00:52:35.341] lapply(seq_along(...future.elements_ii), 1555s [00:52:35.341] FUN = function(jj) { 1555s [00:52:35.341] ...future.X_jj <- ...future.elements_ii[[jj]] 1555s [00:52:35.341] ...future.FUN(...future.X_jj, ...) 1555s [00:52:35.341] }) 1555s [00:52:35.341] } 1555s [00:52:35.341] }, args = future.call.arguments) 1555s [00:52:35.341] })) 1555s [00:52:35.341] future::FutureResult(value = ...future.value$value, 1555s [00:52:35.341] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1555s [00:52:35.341] ...future.rng), globalenv = if (FALSE) 1555s [00:52:35.341] list(added = base::setdiff(base::names(base::.GlobalEnv), 1555s [00:52:35.341] ...future.globalenv.names)) 1555s [00:52:35.341] else NULL, started = ...future.startTime, version = "1.8") 1555s [00:52:35.341] }, condition = base::local({ 1555s [00:52:35.341] c <- base::c 1555s [00:52:35.341] inherits <- base::inherits 1555s [00:52:35.341] invokeRestart <- base::invokeRestart 1555s [00:52:35.341] length <- base::length 1555s [00:52:35.341] list <- base::list 1555s [00:52:35.341] seq.int <- base::seq.int 1555s [00:52:35.341] signalCondition <- base::signalCondition 1555s [00:52:35.341] sys.calls <- base::sys.calls 1555s [00:52:35.341] `[[` <- base::`[[` 1555s [00:52:35.341] `+` <- base::`+` 1555s [00:52:35.341] `<<-` <- base::`<<-` 1555s [00:52:35.341] sysCalls <- function(calls = sys.calls(), from = 1L) { 1555s [00:52:35.341] calls[seq.int(from = from + 12L, to = length(calls) - 1555s [00:52:35.341] 3L)] 1555s [00:52:35.341] } 1555s [00:52:35.341] function(cond) { 1555s [00:52:35.341] is_error <- inherits(cond, "error") 1555s [00:52:35.341] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1555s [00:52:35.341] NULL) 1555s [00:52:35.341] if (is_error) { 1555s [00:52:35.341] sessionInformation <- function() { 1555s [00:52:35.341] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1555s [00:52:35.341] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1555s [00:52:35.341] search = base::search(), system = base::Sys.info()) 1555s [00:52:35.341] } 1555s [00:52:35.341] ...future.conditions[[length(...future.conditions) + 1555s [00:52:35.341] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1555s [00:52:35.341] cond$call), session = sessionInformation(), 1555s [00:52:35.341] timestamp = base::Sys.time(), signaled = 0L) 1555s [00:52:35.341] signalCondition(cond) 1555s [00:52:35.341] } 1555s [00:52:35.341] else if (!ignore && TRUE && inherits(cond, c("condition", 1555s [00:52:35.341] "immediateCondition"))) { 1555s [00:52:35.341] signal <- TRUE && inherits(cond, "immediateCondition") 1555s [00:52:35.341] ...future.conditions[[length(...future.conditions) + 1555s [00:52:35.341] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1555s [00:52:35.341] if (TRUE && !signal) { 1555s [00:52:35.341] muffleCondition <- function (cond, pattern = "^muffle") 1555s [00:52:35.341] { 1555s [00:52:35.341] inherits <- base::inherits 1555s [00:52:35.341] invokeRestart <- base::invokeRestart 1555s [00:52:35.341] is.null <- base::is.null 1555s [00:52:35.341] muffled <- FALSE 1555s [00:52:35.341] if (inherits(cond, "message")) { 1555s [00:52:35.341] muffled <- grepl(pattern, "muffleMessage") 1555s [00:52:35.341] if (muffled) 1555s [00:52:35.341] invokeRestart("muffleMessage") 1555s [00:52:35.341] } 1555s [00:52:35.341] else if (inherits(cond, "warning")) { 1555s [00:52:35.341] muffled <- grepl(pattern, "muffleWarning") 1555s [00:52:35.341] if (muffled) 1555s [00:52:35.341] invokeRestart("muffleWarning") 1555s [00:52:35.341] } 1555s [00:52:35.341] else if (inherits(cond, "condition")) { 1555s [00:52:35.341] if (!is.null(pattern)) { 1555s [00:52:35.341] computeRestarts <- base::computeRestarts 1555s [00:52:35.341] grepl <- base::grepl 1555s [00:52:35.341] restarts <- computeRestarts(cond) 1555s [00:52:35.341] for (restart in restarts) { 1555s [00:52:35.341] name <- restart$name 1555s [00:52:35.341] if (is.null(name)) 1555s [00:52:35.341] next 1555s [00:52:35.341] if (!grepl(pattern, name)) 1555s [00:52:35.341] next 1555s [00:52:35.341] invokeRestart(restart) 1555s [00:52:35.341] muffled <- TRUE 1555s [00:52:35.341] break 1555s [00:52:35.341] } 1555s [00:52:35.341] } 1555s [00:52:35.341] } 1555s [00:52:35.341] invisible(muffled) 1555s [00:52:35.341] } 1555s [00:52:35.341] muffleCondition(cond, pattern = "^muffle") 1555s [00:52:35.341] } 1555s [00:52:35.341] } 1555s [00:52:35.341] else { 1555s [00:52:35.341] if (TRUE) { 1555s [00:52:35.341] muffleCondition <- function (cond, pattern = "^muffle") 1555s [00:52:35.341] { 1555s [00:52:35.341] inherits <- base::inherits 1555s [00:52:35.341] invokeRestart <- base::invokeRestart 1555s [00:52:35.341] is.null <- base::is.null 1555s [00:52:35.341] muffled <- FALSE 1555s [00:52:35.341] if (inherits(cond, "message")) { 1555s [00:52:35.341] muffled <- grepl(pattern, "muffleMessage") 1555s [00:52:35.341] if (muffled) 1555s [00:52:35.341] invokeRestart("muffleMessage") 1555s [00:52:35.341] } 1555s [00:52:35.341] else if (inherits(cond, "warning")) { 1555s [00:52:35.341] muffled <- grepl(pattern, "muffleWarning") 1555s [00:52:35.341] if (muffled) 1555s [00:52:35.341] invokeRestart("muffleWarning") 1555s [00:52:35.341] } 1555s [00:52:35.341] else if (inherits(cond, "condition")) { 1555s [00:52:35.341] if (!is.null(pattern)) { 1555s [00:52:35.341] computeRestarts <- base::computeRestarts 1555s [00:52:35.341] grepl <- base::grepl 1555s [00:52:35.341] restarts <- computeRestarts(cond) 1555s [00:52:35.341] for (restart in restarts) { 1555s [00:52:35.341] name <- restart$name 1555s [00:52:35.341] if (is.null(name)) 1555s [00:52:35.341] next 1555s [00:52:35.341] if (!grepl(pattern, name)) 1555s [00:52:35.341] next 1555s [00:52:35.341] invokeRestart(restart) 1555s [00:52:35.341] muffled <- TRUE 1555s [00:52:35.341] break 1555s [00:52:35.341] } 1555s [00:52:35.341] } 1555s [00:52:35.341] } 1555s [00:52:35.341] invisible(muffled) 1555s [00:52:35.341] } 1555s [00:52:35.341] muffleCondition(cond, pattern = "^muffle") 1555s [00:52:35.341] } 1555s [00:52:35.341] } 1555s [00:52:35.341] } 1555s [00:52:35.341] })) 1555s [00:52:35.341] }, error = function(ex) { 1555s [00:52:35.341] base::structure(base::list(value = NULL, visible = NULL, 1555s [00:52:35.341] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1555s [00:52:35.341] ...future.rng), started = ...future.startTime, 1555s [00:52:35.341] finished = Sys.time(), session_uuid = NA_character_, 1555s [00:52:35.341] version = "1.8"), class = "FutureResult") 1555s [00:52:35.341] }, finally = { 1555s [00:52:35.341] if (!identical(...future.workdir, getwd())) 1555s [00:52:35.341] setwd(...future.workdir) 1555s [00:52:35.341] { 1555s [00:52:35.341] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1555s [00:52:35.341] ...future.oldOptions$nwarnings <- NULL 1555s [00:52:35.341] } 1555s [00:52:35.341] base::options(...future.oldOptions) 1555s [00:52:35.341] if (.Platform$OS.type == "windows") { 1555s [00:52:35.341] old_names <- names(...future.oldEnvVars) 1555s [00:52:35.341] envs <- base::Sys.getenv() 1555s [00:52:35.341] names <- names(envs) 1555s [00:52:35.341] common <- intersect(names, old_names) 1555s [00:52:35.341] added <- setdiff(names, old_names) 1555s [00:52:35.341] removed <- setdiff(old_names, names) 1555s [00:52:35.341] changed <- common[...future.oldEnvVars[common] != 1555s [00:52:35.341] envs[common]] 1555s [00:52:35.341] NAMES <- toupper(changed) 1555s [00:52:35.341] args <- list() 1555s [00:52:35.341] for (kk in seq_along(NAMES)) { 1555s [00:52:35.341] name <- changed[[kk]] 1555s [00:52:35.341] NAME <- NAMES[[kk]] 1555s [00:52:35.341] if (name != NAME && is.element(NAME, old_names)) 1555s [00:52:35.341] next 1555s [00:52:35.341] args[[name]] <- ...future.oldEnvVars[[name]] 1555s [00:52:35.341] } 1555s [00:52:35.341] NAMES <- toupper(added) 1555s [00:52:35.341] for (kk in seq_along(NAMES)) { 1555s [00:52:35.341] name <- added[[kk]] 1555s [00:52:35.341] NAME <- NAMES[[kk]] 1555s [00:52:35.341] if (name != NAME && is.element(NAME, old_names)) 1555s [00:52:35.341] next 1555s [00:52:35.341] args[[name]] <- "" 1555s [00:52:35.341] } 1555s [00:52:35.341] NAMES <- toupper(removed) 1555s [00:52:35.341] for (kk in seq_along(NAMES)) { 1555s [00:52:35.341] name <- removed[[kk]] 1555s [00:52:35.341] NAME <- NAMES[[kk]] 1555s [00:52:35.341] if (name != NAME && is.element(NAME, old_names)) 1555s [00:52:35.341] next 1555s [00:52:35.341] args[[name]] <- ...future.oldEnvVars[[name]] 1555s [00:52:35.341] } 1555s [00:52:35.341] if (length(args) > 0) 1555s [00:52:35.341] base::do.call(base::Sys.setenv, args = args) 1555s [00:52:35.341] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1555s [00:52:35.341] } 1555s [00:52:35.341] else { 1555s [00:52:35.341] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1555s [00:52:35.341] } 1555s [00:52:35.341] { 1555s [00:52:35.341] if (base::length(...future.futureOptionsAdded) > 1555s [00:52:35.341] 0L) { 1555s [00:52:35.341] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1555s [00:52:35.341] base::names(opts) <- ...future.futureOptionsAdded 1555s [00:52:35.341] base::options(opts) 1555s [00:52:35.341] } 1555s [00:52:35.341] { 1555s [00:52:35.341] { 1555s [00:52:35.341] NULL 1555s [00:52:35.341] RNGkind("Mersenne-Twister") 1555s [00:52:35.341] base::rm(list = ".Random.seed", envir = base::globalenv(), 1555s [00:52:35.341] inherits = FALSE) 1555s [00:52:35.341] } 1555s [00:52:35.341] options(future.plan = NULL) 1555s [00:52:35.341] if (is.na(NA_character_)) 1555s [00:52:35.341] Sys.unsetenv("R_FUTURE_PLAN") 1555s [00:52:35.341] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1555s [00:52:35.341] future::plan(list(function (..., workers = availableCores(), 1555s [00:52:35.341] lazy = FALSE, rscript_libs = .libPaths(), 1555s [00:52:35.341] envir = parent.frame()) 1555s [00:52:35.341] { 1555s [00:52:35.341] if (is.function(workers)) 1555s [00:52:35.341] workers <- workers() 1555s [00:52:35.341] workers <- structure(as.integer(workers), 1555s [00:52:35.341] class = class(workers)) 1555s [00:52:35.341] stop_if_not(length(workers) == 1, is.finite(workers), 1555s [00:52:35.341] workers >= 1) 1555s [00:52:35.341] if (workers == 1L && !inherits(workers, "AsIs")) { 1555s [00:52:35.341] return(sequential(..., lazy = TRUE, envir = envir)) 1555s [00:52:35.341] } 1555s [00:52:35.341] future <- MultisessionFuture(..., workers = workers, 1555s [00:52:35.341] lazy = lazy, rscript_libs = rscript_libs, 1555s [00:52:35.341] envir = envir) 1555s [00:52:35.341] if (!future$lazy) 1555s [00:52:35.341] future <- run(future) 1555s [00:52:35.341] invisible(future) 1555s [00:52:35.341] }), .cleanup = FALSE, .init = FALSE) 1555s [00:52:35.341] } 1555s [00:52:35.341] } 1555s [00:52:35.341] } 1555s [00:52:35.341] }) 1555s [00:52:35.341] if (TRUE) { 1555s [00:52:35.341] base::sink(type = "output", split = FALSE) 1555s [00:52:35.341] if (TRUE) { 1555s [00:52:35.341] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1555s [00:52:35.341] } 1555s [00:52:35.341] else { 1555s [00:52:35.341] ...future.result["stdout"] <- base::list(NULL) 1555s [00:52:35.341] } 1555s [00:52:35.341] base::close(...future.stdout) 1555s [00:52:35.341] ...future.stdout <- NULL 1555s [00:52:35.341] } 1555s [00:52:35.341] ...future.result$conditions <- ...future.conditions 1555s [00:52:35.341] ...future.result$finished <- base::Sys.time() 1555s [00:52:35.341] ...future.result 1555s [00:52:35.341] } 1555s [00:52:35.346] assign_globals() ... 1555s [00:52:35.346] List of 5 1555s [00:52:35.346] $ ...future.FUN :function (mode = "logical", length = 0L) 1555s [00:52:35.346] $ future.call.arguments :List of 1 1555s [00:52:35.346] ..$ length: int 2 1555s [00:52:35.346] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1555s [00:52:35.346] $ ...future.elements_ii :List of 1 1555s [00:52:35.346] ..$ c: chr "character" 1555s [00:52:35.346] $ ...future.seeds_ii : NULL 1555s [00:52:35.346] $ ...future.globals.maxSize: NULL 1555s [00:52:35.346] - attr(*, "where")=List of 5 1555s [00:52:35.346] ..$ ...future.FUN : 1555s [00:52:35.346] ..$ future.call.arguments : 1555s [00:52:35.346] ..$ ...future.elements_ii : 1555s [00:52:35.346] ..$ ...future.seeds_ii : 1555s [00:52:35.346] ..$ ...future.globals.maxSize: 1555s [00:52:35.346] - attr(*, "resolved")= logi FALSE 1555s [00:52:35.346] - attr(*, "total_size")= num 2240 1555s [00:52:35.346] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1555s [00:52:35.346] - attr(*, "already-done")= logi TRUE 1555s [00:52:35.355] - copied ‘...future.FUN’ to environment 1555s [00:52:35.356] - copied ‘future.call.arguments’ to environment 1555s [00:52:35.356] - copied ‘...future.elements_ii’ to environment 1555s [00:52:35.356] - copied ‘...future.seeds_ii’ to environment 1555s [00:52:35.356] - copied ‘...future.globals.maxSize’ to environment 1555s [00:52:35.356] assign_globals() ... done 1555s [00:52:35.357] plan(): Setting new future strategy stack: 1555s [00:52:35.357] List of future strategies: 1555s [00:52:35.357] 1. sequential: 1555s [00:52:35.357] - args: function (..., envir = parent.frame()) 1555s [00:52:35.357] - tweaked: FALSE 1555s [00:52:35.357] - call: NULL 1555s [00:52:35.358] plan(): nbrOfWorkers() = 1 1555s [00:52:35.359] plan(): Setting new future strategy stack: 1555s [00:52:35.359] List of future strategies: 1555s [00:52:35.359] 1. multisession: 1555s [00:52:35.359] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1555s [00:52:35.359] - tweaked: FALSE 1555s [00:52:35.359] - call: plan(strategy) 1555s [00:52:35.364] plan(): nbrOfWorkers() = 1 1555s [00:52:35.364] SequentialFuture started (and completed) 1555s [00:52:35.364] - Launch lazy future ... done 1555s [00:52:35.364] run() for ‘SequentialFuture’ ... done 1555s [00:52:35.365] Created future: 1555s [00:52:35.365] SequentialFuture: 1555s [00:52:35.365] Label: ‘future_lapply-3’ 1555s [00:52:35.365] Expression: 1555s [00:52:35.365] { 1555s [00:52:35.365] do.call(function(...) { 1555s [00:52:35.365] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1555s [00:52:35.365] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1555s [00:52:35.365] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1555s [00:52:35.365] on.exit(options(oopts), add = TRUE) 1555s [00:52:35.365] } 1555s [00:52:35.365] { 1555s [00:52:35.365] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1555s [00:52:35.365] ...future.X_jj <- ...future.elements_ii[[jj]] 1555s [00:52:35.365] ...future.FUN(...future.X_jj, ...) 1555s [00:52:35.365] }) 1555s [00:52:35.365] } 1555s [00:52:35.365] }, args = future.call.arguments) 1555s [00:52:35.365] } 1555s [00:52:35.365] Lazy evaluation: FALSE 1555s [00:52:35.365] Asynchronous evaluation: FALSE 1555s [00:52:35.365] Local evaluation: TRUE 1555s [00:52:35.365] Environment: R_GlobalEnv 1555s [00:52:35.365] Capture standard output: TRUE 1555s [00:52:35.365] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1555s [00:52:35.365] Globals: 5 objects totaling 2.30 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 120 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1555s [00:52:35.365] Packages: 1555s [00:52:35.365] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1555s [00:52:35.365] Resolved: TRUE 1555s [00:52:35.365] Value: 120 bytes of class ‘list’ 1555s [00:52:35.365] Early signaling: FALSE 1555s [00:52:35.365] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1555s [00:52:35.365] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1555s [00:52:35.367] Chunk #3 of 4 ... DONE 1555s [00:52:35.368] Chunk #4 of 4 ... 1555s [00:52:35.368] - Finding globals in 'X' for chunk #4 ... 1555s [00:52:35.368] getGlobalsAndPackages() ... 1555s [00:52:35.368] Searching for globals... 1555s [00:52:35.369] 1555s [00:52:35.369] Searching for globals ... DONE 1555s [00:52:35.369] - globals: [0] 1555s [00:52:35.369] getGlobalsAndPackages() ... DONE 1555s [00:52:35.369] + additional globals found: [n=0] 1555s [00:52:35.369] + additional namespaces needed: [n=0] 1555s [00:52:35.370] - Finding globals in 'X' for chunk #4 ... DONE 1555s [00:52:35.370] - Adjusted option 'future.globals.maxSize': 524288000 -> 4 * 524288000 = 2097152000 (bytes) 1555s [00:52:35.370] - seeds: 1555s [00:52:35.370] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1555s [00:52:35.371] getGlobalsAndPackages() ... 1555s [00:52:35.371] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1555s [00:52:35.371] Resolving globals: FALSE 1555s [00:52:35.372] Tweak future expression to call with '...' arguments ... 1555s [00:52:35.372] { 1555s [00:52:35.372] do.call(function(...) { 1555s [00:52:35.372] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1555s [00:52:35.372] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1555s [00:52:35.372] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1555s [00:52:35.372] on.exit(options(oopts), add = TRUE) 1555s [00:52:35.372] } 1555s [00:52:35.372] { 1555s [00:52:35.372] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1555s [00:52:35.372] ...future.X_jj <- ...future.elements_ii[[jj]] 1555s [00:52:35.372] ...future.FUN(...future.X_jj, ...) 1555s [00:52:35.372] }) 1555s [00:52:35.372] } 1555s [00:52:35.372] }, args = future.call.arguments) 1555s [00:52:35.372] } 1555s [00:52:35.373] Tweak future expression to call with '...' arguments ... DONE 1555s [00:52:35.374] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1555s [00:52:35.374] 1555s [00:52:35.374] getGlobalsAndPackages() ... DONE 1555s [00:52:35.374] run() for ‘Future’ ... 1555s [00:52:35.375] - state: ‘created’ 1555s [00:52:35.375] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1555s [00:52:35.379] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1555s [00:52:35.379] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1555s [00:52:35.379] - Field: ‘label’ 1555s [00:52:35.380] - Field: ‘local’ 1555s [00:52:35.380] - Field: ‘owner’ 1555s [00:52:35.380] - Field: ‘envir’ 1555s [00:52:35.380] - Field: ‘packages’ 1555s [00:52:35.381] - Field: ‘gc’ 1555s [00:52:35.381] - Field: ‘conditions’ 1555s [00:52:35.381] - Field: ‘expr’ 1555s [00:52:35.381] - Field: ‘uuid’ 1555s [00:52:35.382] - Field: ‘seed’ 1555s [00:52:35.382] - Field: ‘version’ 1555s [00:52:35.382] - Field: ‘result’ 1555s [00:52:35.383] - Field: ‘asynchronous’ 1555s [00:52:35.383] - Field: ‘calls’ 1555s [00:52:35.383] - Field: ‘globals’ 1555s [00:52:35.383] - Field: ‘stdout’ 1555s [00:52:35.384] - Field: ‘earlySignal’ 1555s [00:52:35.384] - Field: ‘lazy’ 1555s [00:52:35.384] - Field: ‘state’ 1555s [00:52:35.384] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1555s [00:52:35.385] - Launch lazy future ... 1555s [00:52:35.385] Packages needed by the future expression (n = 0): 1555s [00:52:35.385] Packages needed by future strategies (n = 0): 1555s [00:52:35.386] { 1555s [00:52:35.386] { 1555s [00:52:35.386] { 1555s [00:52:35.386] ...future.startTime <- base::Sys.time() 1555s [00:52:35.386] { 1555s [00:52:35.386] { 1555s [00:52:35.386] { 1555s [00:52:35.386] base::local({ 1555s [00:52:35.386] has_future <- base::requireNamespace("future", 1555s [00:52:35.386] quietly = TRUE) 1555s [00:52:35.386] if (has_future) { 1555s [00:52:35.386] ns <- base::getNamespace("future") 1555s [00:52:35.386] version <- ns[[".package"]][["version"]] 1555s [00:52:35.386] if (is.null(version)) 1555s [00:52:35.386] version <- utils::packageVersion("future") 1555s [00:52:35.386] } 1555s [00:52:35.386] else { 1555s [00:52:35.386] version <- NULL 1555s [00:52:35.386] } 1555s [00:52:35.386] if (!has_future || version < "1.8.0") { 1555s [00:52:35.386] info <- base::c(r_version = base::gsub("R version ", 1555s [00:52:35.386] "", base::R.version$version.string), 1555s [00:52:35.386] platform = base::sprintf("%s (%s-bit)", 1555s [00:52:35.386] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1555s [00:52:35.386] os = base::paste(base::Sys.info()[base::c("sysname", 1555s [00:52:35.386] "release", "version")], collapse = " "), 1555s [00:52:35.386] hostname = base::Sys.info()[["nodename"]]) 1555s [00:52:35.386] info <- base::sprintf("%s: %s", base::names(info), 1555s [00:52:35.386] info) 1555s [00:52:35.386] info <- base::paste(info, collapse = "; ") 1555s [00:52:35.386] if (!has_future) { 1555s [00:52:35.386] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1555s [00:52:35.386] info) 1555s [00:52:35.386] } 1555s [00:52:35.386] else { 1555s [00:52:35.386] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1555s [00:52:35.386] info, version) 1555s [00:52:35.386] } 1555s [00:52:35.386] base::stop(msg) 1555s [00:52:35.386] } 1555s [00:52:35.386] }) 1555s [00:52:35.386] } 1555s [00:52:35.386] options(future.plan = NULL) 1555s [00:52:35.386] Sys.unsetenv("R_FUTURE_PLAN") 1555s [00:52:35.386] future::plan("default", .cleanup = FALSE, .init = FALSE) 1555s [00:52:35.386] } 1555s [00:52:35.386] ...future.workdir <- getwd() 1555s [00:52:35.386] } 1555s [00:52:35.386] ...future.oldOptions <- base::as.list(base::.Options) 1555s [00:52:35.386] ...future.oldEnvVars <- base::Sys.getenv() 1555s [00:52:35.386] } 1555s [00:52:35.386] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1555s [00:52:35.386] future.globals.maxSize = 2097152000, future.globals.method = NULL, 1555s [00:52:35.386] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1555s [00:52:35.386] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1555s [00:52:35.386] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1555s [00:52:35.386] future.stdout.windows.reencode = NULL, width = 80L) 1555s [00:52:35.386] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1555s [00:52:35.386] base::names(...future.oldOptions)) 1555s [00:52:35.386] } 1555s [00:52:35.386] if (FALSE) { 1555s [00:52:35.386] } 1555s [00:52:35.386] else { 1555s [00:52:35.386] if (TRUE) { 1555s [00:52:35.386] ...future.stdout <- base::rawConnection(base::raw(0L), 1555s [00:52:35.386] open = "w") 1555s [00:52:35.386] } 1555s [00:52:35.386] else { 1555s [00:52:35.386] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1555s [00:52:35.386] windows = "NUL", "/dev/null"), open = "w") 1555s [00:52:35.386] } 1555s [00:52:35.386] base::sink(...future.stdout, type = "output", split = FALSE) 1555s [00:52:35.386] base::on.exit(if (!base::is.null(...future.stdout)) { 1555s [00:52:35.386] base::sink(type = "output", split = FALSE) 1555s [00:52:35.386] base::close(...future.stdout) 1555s [00:52:35.386] }, add = TRUE) 1555s [00:52:35.386] } 1555s [00:52:35.386] ...future.frame <- base::sys.nframe() 1555s [00:52:35.386] ...future.conditions <- base::list() 1555s [00:52:35.386] ...future.rng <- base::globalenv()$.Random.seed 1555s [00:52:35.386] if (FALSE) { 1555s [00:52:35.386] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1555s [00:52:35.386] "...future.value", "...future.globalenv.names", ".Random.seed") 1555s [00:52:35.386] } 1555s [00:52:35.386] ...future.result <- base::tryCatch({ 1555s [00:52:35.386] base::withCallingHandlers({ 1555s [00:52:35.386] ...future.value <- base::withVisible(base::local({ 1555s [00:52:35.386] do.call(function(...) { 1555s [00:52:35.386] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1555s [00:52:35.386] if (!identical(...future.globals.maxSize.org, 1555s [00:52:35.386] ...future.globals.maxSize)) { 1555s [00:52:35.386] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1555s [00:52:35.386] on.exit(options(oopts), add = TRUE) 1555s [00:52:35.386] } 1555s [00:52:35.386] { 1555s [00:52:35.386] lapply(seq_along(...future.elements_ii), 1555s [00:52:35.386] FUN = function(jj) { 1555s [00:52:35.386] ...future.X_jj <- ...future.elements_ii[[jj]] 1555s [00:52:35.386] ...future.FUN(...future.X_jj, ...) 1555s [00:52:35.386] }) 1555s [00:52:35.386] } 1555s [00:52:35.386] }, args = future.call.arguments) 1555s [00:52:35.386] })) 1555s [00:52:35.386] future::FutureResult(value = ...future.value$value, 1555s [00:52:35.386] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1555s [00:52:35.386] ...future.rng), globalenv = if (FALSE) 1555s [00:52:35.386] list(added = base::setdiff(base::names(base::.GlobalEnv), 1555s [00:52:35.386] ...future.globalenv.names)) 1555s [00:52:35.386] else NULL, started = ...future.startTime, version = "1.8") 1555s [00:52:35.386] }, condition = base::local({ 1555s [00:52:35.386] c <- base::c 1555s [00:52:35.386] inherits <- base::inherits 1555s [00:52:35.386] invokeRestart <- base::invokeRestart 1555s [00:52:35.386] length <- base::length 1555s [00:52:35.386] list <- base::list 1555s [00:52:35.386] seq.int <- base::seq.int 1555s [00:52:35.386] signalCondition <- base::signalCondition 1555s [00:52:35.386] sys.calls <- base::sys.calls 1555s [00:52:35.386] `[[` <- base::`[[` 1555s [00:52:35.386] `+` <- base::`+` 1555s [00:52:35.386] `<<-` <- base::`<<-` 1555s [00:52:35.386] sysCalls <- function(calls = sys.calls(), from = 1L) { 1555s [00:52:35.386] calls[seq.int(from = from + 12L, to = length(calls) - 1555s [00:52:35.386] 3L)] 1555s [00:52:35.386] } 1555s [00:52:35.386] function(cond) { 1555s [00:52:35.386] is_error <- inherits(cond, "error") 1555s [00:52:35.386] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1555s [00:52:35.386] NULL) 1555s [00:52:35.386] if (is_error) { 1555s [00:52:35.386] sessionInformation <- function() { 1555s [00:52:35.386] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1555s [00:52:35.386] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1555s [00:52:35.386] search = base::search(), system = base::Sys.info()) 1555s [00:52:35.386] } 1555s [00:52:35.386] ...future.conditions[[length(...future.conditions) + 1555s [00:52:35.386] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1555s [00:52:35.386] cond$call), session = sessionInformation(), 1555s [00:52:35.386] timestamp = base::Sys.time(), signaled = 0L) 1555s [00:52:35.386] signalCondition(cond) 1555s [00:52:35.386] } 1555s [00:52:35.386] else if (!ignore && TRUE && inherits(cond, c("condition", 1555s [00:52:35.386] "immediateCondition"))) { 1555s [00:52:35.386] signal <- TRUE && inherits(cond, "immediateCondition") 1555s [00:52:35.386] ...future.conditions[[length(...future.conditions) + 1555s [00:52:35.386] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1555s [00:52:35.386] if (TRUE && !signal) { 1555s [00:52:35.386] muffleCondition <- function (cond, pattern = "^muffle") 1555s [00:52:35.386] { 1555s [00:52:35.386] inherits <- base::inherits 1555s [00:52:35.386] invokeRestart <- base::invokeRestart 1555s [00:52:35.386] is.null <- base::is.null 1555s [00:52:35.386] muffled <- FALSE 1555s [00:52:35.386] if (inherits(cond, "message")) { 1555s [00:52:35.386] muffled <- grepl(pattern, "muffleMessage") 1555s [00:52:35.386] if (muffled) 1555s [00:52:35.386] invokeRestart("muffleMessage") 1555s [00:52:35.386] } 1555s [00:52:35.386] else if (inherits(cond, "warning")) { 1555s [00:52:35.386] muffled <- grepl(pattern, "muffleWarning") 1555s [00:52:35.386] if (muffled) 1555s [00:52:35.386] invokeRestart("muffleWarning") 1555s [00:52:35.386] } 1555s [00:52:35.386] else if (inherits(cond, "condition")) { 1555s [00:52:35.386] if (!is.null(pattern)) { 1555s [00:52:35.386] computeRestarts <- base::computeRestarts 1555s [00:52:35.386] grepl <- base::grepl 1555s [00:52:35.386] restarts <- computeRestarts(cond) 1555s [00:52:35.386] for (restart in restarts) { 1555s [00:52:35.386] name <- restart$name 1555s [00:52:35.386] if (is.null(name)) 1555s [00:52:35.386] next 1555s [00:52:35.386] if (!grepl(pattern, name)) 1555s [00:52:35.386] next 1555s [00:52:35.386] invokeRestart(restart) 1555s [00:52:35.386] muffled <- TRUE 1555s [00:52:35.386] break 1555s [00:52:35.386] } 1555s [00:52:35.386] } 1555s [00:52:35.386] } 1555s [00:52:35.386] invisible(muffled) 1555s [00:52:35.386] } 1555s [00:52:35.386] muffleCondition(cond, pattern = "^muffle") 1555s [00:52:35.386] } 1555s [00:52:35.386] } 1555s [00:52:35.386] else { 1555s [00:52:35.386] if (TRUE) { 1555s [00:52:35.386] muffleCondition <- function (cond, pattern = "^muffle") 1555s [00:52:35.386] { 1555s [00:52:35.386] inherits <- base::inherits 1555s [00:52:35.386] invokeRestart <- base::invokeRestart 1555s [00:52:35.386] is.null <- base::is.null 1555s [00:52:35.386] muffled <- FALSE 1555s [00:52:35.386] if (inherits(cond, "message")) { 1555s [00:52:35.386] muffled <- grepl(pattern, "muffleMessage") 1555s [00:52:35.386] if (muffled) 1555s [00:52:35.386] invokeRestart("muffleMessage") 1555s [00:52:35.386] } 1555s [00:52:35.386] else if (inherits(cond, "warning")) { 1555s [00:52:35.386] muffled <- grepl(pattern, "muffleWarning") 1555s [00:52:35.386] if (muffled) 1555s [00:52:35.386] invokeRestart("muffleWarning") 1555s [00:52:35.386] } 1555s [00:52:35.386] else if (inherits(cond, "condition")) { 1555s [00:52:35.386] if (!is.null(pattern)) { 1555s [00:52:35.386] computeRestarts <- base::computeRestarts 1555s [00:52:35.386] grepl <- base::grepl 1555s [00:52:35.386] restarts <- computeRestarts(cond) 1555s [00:52:35.386] for (restart in restarts) { 1555s [00:52:35.386] name <- restart$name 1555s [00:52:35.386] if (is.null(name)) 1555s [00:52:35.386] next 1555s [00:52:35.386] if (!grepl(pattern, name)) 1555s [00:52:35.386] next 1555s [00:52:35.386] invokeRestart(restart) 1555s [00:52:35.386] muffled <- TRUE 1555s [00:52:35.386] break 1555s [00:52:35.386] } 1555s [00:52:35.386] } 1555s [00:52:35.386] } 1555s [00:52:35.386] invisible(muffled) 1555s [00:52:35.386] } 1555s [00:52:35.386] muffleCondition(cond, pattern = "^muffle") 1555s [00:52:35.386] } 1555s [00:52:35.386] } 1555s [00:52:35.386] } 1555s [00:52:35.386] })) 1555s [00:52:35.386] }, error = function(ex) { 1555s [00:52:35.386] base::structure(base::list(value = NULL, visible = NULL, 1555s [00:52:35.386] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1555s [00:52:35.386] ...future.rng), started = ...future.startTime, 1555s [00:52:35.386] finished = Sys.time(), session_uuid = NA_character_, 1555s [00:52:35.386] version = "1.8"), class = "FutureResult") 1555s [00:52:35.386] }, finally = { 1555s [00:52:35.386] if (!identical(...future.workdir, getwd())) 1555s [00:52:35.386] setwd(...future.workdir) 1555s [00:52:35.386] { 1555s [00:52:35.386] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1555s [00:52:35.386] ...future.oldOptions$nwarnings <- NULL 1555s [00:52:35.386] } 1555s [00:52:35.386] base::options(...future.oldOptions) 1555s [00:52:35.386] if (.Platform$OS.type == "windows") { 1555s [00:52:35.386] old_names <- names(...future.oldEnvVars) 1555s [00:52:35.386] envs <- base::Sys.getenv() 1555s [00:52:35.386] names <- names(envs) 1555s [00:52:35.386] common <- intersect(names, old_names) 1555s [00:52:35.386] added <- setdiff(names, old_names) 1555s [00:52:35.386] removed <- setdiff(old_names, names) 1555s [00:52:35.386] changed <- common[...future.oldEnvVars[common] != 1555s [00:52:35.386] envs[common]] 1555s [00:52:35.386] NAMES <- toupper(changed) 1555s [00:52:35.386] args <- list() 1555s [00:52:35.386] for (kk in seq_along(NAMES)) { 1555s [00:52:35.386] name <- changed[[kk]] 1555s [00:52:35.386] NAME <- NAMES[[kk]] 1555s [00:52:35.386] if (name != NAME && is.element(NAME, old_names)) 1555s [00:52:35.386] next 1555s [00:52:35.386] args[[name]] <- ...future.oldEnvVars[[name]] 1555s [00:52:35.386] } 1555s [00:52:35.386] NAMES <- toupper(added) 1555s [00:52:35.386] for (kk in seq_along(NAMES)) { 1555s [00:52:35.386] name <- added[[kk]] 1555s [00:52:35.386] NAME <- NAMES[[kk]] 1555s [00:52:35.386] if (name != NAME && is.element(NAME, old_names)) 1555s [00:52:35.386] next 1555s [00:52:35.386] args[[name]] <- "" 1555s [00:52:35.386] } 1555s [00:52:35.386] NAMES <- toupper(removed) 1555s [00:52:35.386] for (kk in seq_along(NAMES)) { 1555s [00:52:35.386] name <- removed[[kk]] 1555s [00:52:35.386] NAME <- NAMES[[kk]] 1555s [00:52:35.386] if (name != NAME && is.element(NAME, old_names)) 1555s [00:52:35.386] next 1555s [00:52:35.386] args[[name]] <- ...future.oldEnvVars[[name]] 1555s [00:52:35.386] } 1555s [00:52:35.386] if (length(args) > 0) 1555s [00:52:35.386] base::do.call(base::Sys.setenv, args = args) 1555s [00:52:35.386] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1555s [00:52:35.386] } 1555s [00:52:35.386] else { 1555s [00:52:35.386] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1555s [00:52:35.386] } 1555s [00:52:35.386] { 1555s [00:52:35.386] if (base::length(...future.futureOptionsAdded) > 1555s [00:52:35.386] 0L) { 1555s [00:52:35.386] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1555s [00:52:35.386] base::names(opts) <- ...future.futureOptionsAdded 1555s [00:52:35.386] base::options(opts) 1555s [00:52:35.386] } 1555s [00:52:35.386] { 1555s [00:52:35.386] { 1555s [00:52:35.386] NULL 1555s [00:52:35.386] RNGkind("Mersenne-Twister") 1555s [00:52:35.386] base::rm(list = ".Random.seed", envir = base::globalenv(), 1555s [00:52:35.386] inherits = FALSE) 1555s [00:52:35.386] } 1555s [00:52:35.386] options(future.plan = NULL) 1555s [00:52:35.386] if (is.na(NA_character_)) 1555s [00:52:35.386] Sys.unsetenv("R_FUTURE_PLAN") 1555s [00:52:35.386] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1555s [00:52:35.386] future::plan(list(function (..., workers = availableCores(), 1555s [00:52:35.386] lazy = FALSE, rscript_libs = .libPaths(), 1555s [00:52:35.386] envir = parent.frame()) 1555s [00:52:35.386] { 1555s [00:52:35.386] if (is.function(workers)) 1555s [00:52:35.386] workers <- workers() 1555s [00:52:35.386] workers <- structure(as.integer(workers), 1555s [00:52:35.386] class = class(workers)) 1555s [00:52:35.386] stop_if_not(length(workers) == 1, is.finite(workers), 1555s [00:52:35.386] workers >= 1) 1555s [00:52:35.386] if (workers == 1L && !inherits(workers, "AsIs")) { 1555s [00:52:35.386] return(sequential(..., lazy = TRUE, envir = envir)) 1555s [00:52:35.386] } 1555s [00:52:35.386] future <- MultisessionFuture(..., workers = workers, 1555s [00:52:35.386] lazy = lazy, rscript_libs = rscript_libs, 1555s [00:52:35.386] envir = envir) 1555s [00:52:35.386] if (!future$lazy) 1555s [00:52:35.386] future <- run(future) 1555s [00:52:35.386] invisible(future) 1555s [00:52:35.386] }), .cleanup = FALSE, .init = FALSE) 1555s [00:52:35.386] } 1555s [00:52:35.386] } 1555s [00:52:35.386] } 1555s [00:52:35.386] }) 1555s [00:52:35.386] if (TRUE) { 1555s [00:52:35.386] base::sink(type = "output", split = FALSE) 1555s [00:52:35.386] if (TRUE) { 1555s [00:52:35.386] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1555s [00:52:35.386] } 1555s [00:52:35.386] else { 1555s [00:52:35.386] ...future.result["stdout"] <- base::list(NULL) 1555s [00:52:35.386] } 1555s [00:52:35.386] base::close(...future.stdout) 1555s [00:52:35.386] ...future.stdout <- NULL 1555s [00:52:35.386] } 1555s [00:52:35.386] ...future.result$conditions <- ...future.conditions 1555s [00:52:35.386] ...future.result$finished <- base::Sys.time() 1555s [00:52:35.386] ...future.result 1555s [00:52:35.386] } 1555s [00:52:35.389] assign_globals() ... 1555s [00:52:35.389] List of 5 1555s [00:52:35.389] $ ...future.FUN :function (mode = "logical", length = 0L) 1555s [00:52:35.389] $ future.call.arguments :List of 1 1555s [00:52:35.389] ..$ length: int 2 1555s [00:52:35.389] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1555s [00:52:35.389] $ ...future.elements_ii :List of 1 1555s [00:52:35.389] ..$ c: chr "list" 1555s [00:52:35.389] $ ...future.seeds_ii : NULL 1555s [00:52:35.389] $ ...future.globals.maxSize: NULL 1555s [00:52:35.389] - attr(*, "where")=List of 5 1555s [00:52:35.389] ..$ ...future.FUN : 1555s [00:52:35.389] ..$ future.call.arguments : 1555s [00:52:35.389] ..$ ...future.elements_ii : 1555s [00:52:35.389] ..$ ...future.seeds_ii : 1555s [00:52:35.389] ..$ ...future.globals.maxSize: 1555s [00:52:35.389] - attr(*, "resolved")= logi FALSE 1555s [00:52:35.389] - attr(*, "total_size")= num 2240 1555s [00:52:35.389] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1555s [00:52:35.389] - attr(*, "already-done")= logi TRUE 1555s [00:52:35.416] - copied ‘...future.FUN’ to environment 1555s [00:52:35.416] - copied ‘future.call.arguments’ to environment 1555s [00:52:35.416] - copied ‘...future.elements_ii’ to environment 1555s [00:52:35.417] - copied ‘...future.seeds_ii’ to environment 1555s [00:52:35.417] - copied ‘...future.globals.maxSize’ to environment 1555s [00:52:35.417] assign_globals() ... done 1555s [00:52:35.418] plan(): Setting new future strategy stack: 1555s [00:52:35.418] List of future strategies: 1555s [00:52:35.418] 1. sequential: 1555s [00:52:35.418] - args: function (..., envir = parent.frame()) 1555s [00:52:35.418] - tweaked: FALSE 1555s [00:52:35.418] - call: NULL 1555s [00:52:35.419] plan(): nbrOfWorkers() = 1 1555s [00:52:35.420] plan(): Setting new future strategy stack: 1555s [00:52:35.420] List of future strategies: 1555s [00:52:35.420] 1. multisession: 1555s [00:52:35.420] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1555s [00:52:35.420] - tweaked: FALSE 1555s [00:52:35.420] - call: plan(strategy) 1555s [00:52:35.427] plan(): nbrOfWorkers() = 1 1555s [00:52:35.428] SequentialFuture started (and completed) 1555s [00:52:35.428] - Launch lazy future ... done 1555s [00:52:35.428] run() for ‘SequentialFuture’ ... done 1555s [00:52:35.429] Created future: 1555s [00:52:35.429] SequentialFuture: 1555s [00:52:35.429] Label: ‘future_lapply-4’ 1555s [00:52:35.429] Expression: 1555s [00:52:35.429] { 1555s [00:52:35.429] do.call(function(...) { 1555s [00:52:35.429] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1555s [00:52:35.429] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1555s [00:52:35.429] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1555s [00:52:35.429] on.exit(options(oopts), add = TRUE) 1555s [00:52:35.429] } 1555s [00:52:35.429] { 1555s [00:52:35.429] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1555s [00:52:35.429] ...future.X_jj <- ...future.elements_ii[[jj]] 1555s [00:52:35.429] ...future.FUN(...future.X_jj, ...) 1555s [00:52:35.429] }) 1555s [00:52:35.429] } 1555s [00:52:35.429] }, args = future.call.arguments) 1555s [00:52:35.429] } 1555s [00:52:35.429] Lazy evaluation: FALSE 1555s [00:52:35.429] Asynchronous evaluation: FALSE 1555s [00:52:35.429] Local evaluation: TRUE 1555s [00:52:35.429] Environment: R_GlobalEnv 1555s [00:52:35.429] Capture standard output: TRUE 1555s [00:52:35.429] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1555s [00:52:35.429] Globals: 5 objects totaling 2.30 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1555s [00:52:35.429] Packages: 1555s [00:52:35.429] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1555s [00:52:35.429] Resolved: TRUE 1555s [00:52:35.429] Value: 0 bytes of class ‘list’ 1555s [00:52:35.429] Early signaling: FALSE 1555s [00:52:35.429] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1555s [00:52:35.429] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1555s [00:52:35.431] Chunk #4 of 4 ... DONE 1555s [00:52:35.431] Launching 4 futures (chunks) ... DONE 1555s [00:52:35.431] Resolving 4 futures (chunks) ... 1555s [00:52:35.431] resolve() on list ... 1555s [00:52:35.431] recursive: 0 1555s [00:52:35.432] length: 4 1555s [00:52:35.432] 1555s [00:52:35.432] resolved() for ‘SequentialFuture’ ... 1555s [00:52:35.432] - state: ‘finished’ 1555s [00:52:35.432] - run: TRUE 1555s [00:52:35.433] - result: ‘FutureResult’ 1555s [00:52:35.433] resolved() for ‘SequentialFuture’ ... done 1555s [00:52:35.433] Future #1 1555s [00:52:35.433] signalConditionsASAP(SequentialFuture, pos=1) ... 1555s [00:52:35.433] - nx: 4 1555s [00:52:35.434] - relay: TRUE 1555s [00:52:35.434] - stdout: TRUE 1555s [00:52:35.434] - signal: TRUE 1555s [00:52:35.434] - resignal: FALSE 1555s [00:52:35.434] - force: TRUE 1555s [00:52:35.434] - relayed: [n=4] FALSE, FALSE, FALSE, FALSE 1555s [00:52:35.434] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE 1555s [00:52:35.434] - until=1 1555s [00:52:35.434] - relaying element #1 1555s [00:52:35.435] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE 1555s [00:52:35.435] - queued futures: [n=4] TRUE, FALSE, FALSE, FALSE 1555s [00:52:35.435] signalConditionsASAP(SequentialFuture, pos=1) ... done 1555s [00:52:35.435] length: 3 (resolved future 1) 1555s [00:52:35.435] resolved() for ‘SequentialFuture’ ... 1555s [00:52:35.436] - state: ‘finished’ 1555s [00:52:35.436] - run: TRUE 1555s [00:52:35.436] - result: ‘FutureResult’ 1555s [00:52:35.436] resolved() for ‘SequentialFuture’ ... done 1555s [00:52:35.436] Future #2 1555s [00:52:35.437] signalConditionsASAP(SequentialFuture, pos=2) ... 1555s [00:52:35.437] - nx: 4 1555s [00:52:35.437] - relay: TRUE 1555s [00:52:35.437] - stdout: TRUE 1555s [00:52:35.437] - signal: TRUE 1555s [00:52:35.438] - resignal: FALSE 1555s [00:52:35.438] - force: TRUE 1555s [00:52:35.438] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE 1555s [00:52:35.438] - queued futures: [n=4] TRUE, FALSE, FALSE, FALSE 1555s [00:52:35.438] - until=2 1555s [00:52:35.438] - relaying element #2 1555s [00:52:35.439] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE 1555s [00:52:35.439] - queued futures: [n=4] TRUE, TRUE, FALSE, FALSE 1555s [00:52:35.439] signalConditionsASAP(SequentialFuture, pos=2) ... done 1555s [00:52:35.439] length: 2 (resolved future 2) 1555s [00:52:35.439] resolved() for ‘SequentialFuture’ ... 1555s [00:52:35.440] - state: ‘finished’ 1555s [00:52:35.440] - run: TRUE 1555s [00:52:35.440] - result: ‘FutureResult’ 1555s [00:52:35.440] resolved() for ‘SequentialFuture’ ... done 1555s [00:52:35.440] Future #3 1555s [00:52:35.441] signalConditionsASAP(SequentialFuture, pos=3) ... 1555s [00:52:35.441] - nx: 4 1555s [00:52:35.441] - relay: TRUE 1555s [00:52:35.441] - stdout: TRUE 1555s [00:52:35.441] - signal: TRUE 1555s [00:52:35.442] - resignal: FALSE 1555s [00:52:35.442] - force: TRUE 1555s [00:52:35.442] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE 1555s [00:52:35.443] - queued futures: [n=4] TRUE, TRUE, FALSE, FALSE 1555s [00:52:35.443] - until=3 1555s [00:52:35.444] - relaying element #3 1555s [00:52:35.444] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE 1555s [00:52:35.444] - queued futures: [n=4] TRUE, TRUE, TRUE, FALSE 1555s [00:52:35.445] signalConditionsASAP(SequentialFuture, pos=3) ... done 1555s [00:52:35.445] length: 1 (resolved future 3) 1555s [00:52:35.445] resolved() for ‘SequentialFuture’ ... 1555s [00:52:35.445] - state: ‘finished’ 1555s [00:52:35.445] - run: TRUE 1555s [00:52:35.446] - result: ‘FutureResult’ 1555s [00:52:35.446] resolved() for ‘SequentialFuture’ ... done 1555s [00:52:35.446] Future #4 1555s [00:52:35.447] signalConditionsASAP(SequentialFuture, pos=4) ... 1555s [00:52:35.447] - nx: 4 1555s [00:52:35.448] - relay: TRUE 1555s [00:52:35.448] - stdout: TRUE 1555s [00:52:35.448] - signal: TRUE 1555s [00:52:35.448] - resignal: FALSE 1555s [00:52:35.449] - force: TRUE 1555s [00:52:35.449] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE 1555s [00:52:35.449] - queued futures: [n=4] TRUE, TRUE, TRUE, FALSE 1555s [00:52:35.449] - until=4 1555s [00:52:35.449] - relaying element #4 1555s [00:52:35.450] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE 1555s [00:52:35.451] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE 1555s [00:52:35.452] signalConditionsASAP(SequentialFuture, pos=4) ... done 1555s [00:52:35.452] length: 0 (resolved future 4) 1555s [00:52:35.452] Relaying remaining futures 1555s [00:52:35.453] signalConditionsASAP(NULL, pos=0) ... 1555s [00:52:35.453] - nx: 4 1555s [00:52:35.453] - relay: TRUE 1555s [00:52:35.453] - stdout: TRUE 1555s [00:52:35.453] - signal: TRUE 1555s [00:52:35.453] - resignal: FALSE 1555s [00:52:35.453] - force: TRUE 1555s [00:52:35.454] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE 1555s [00:52:35.454] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE 1555s - flush all 1555s [00:52:35.454] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE 1555s [00:52:35.456] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE 1555s [00:52:35.456] signalConditionsASAP(NULL, pos=0) ... done 1555s [00:52:35.456] resolve() on list ... DONE 1555s [00:52:35.457] - Number of value chunks collected: 4 1555s [00:52:35.457] Resolving 4 futures (chunks) ... DONE 1555s [00:52:35.458] Reducing values from 4 chunks ... 1555s [00:52:35.458] - Number of values collected after concatenation: 4 1555s [00:52:35.458] - Number of values expected: 4 1555s [00:52:35.458] Reducing values from 4 chunks ... DONE 1555s [00:52:35.459] future_lapply() ... DONE 1555s - future_lapply(x, FUN = future:::hpaste, ...) ... 1555s [00:52:35.465] future_lapply() ... 1555s [00:52:35.483] Number of chunks: 1 1555s [00:52:35.483] getGlobalsAndPackagesXApply() ... 1555s [00:52:35.483] - future.globals: TRUE 1555s [00:52:35.483] getGlobalsAndPackages() ... 1555s [00:52:35.484] Searching for globals... 1555s [00:52:35.496] - globals found: [22] ‘FUN’, ‘if’, ‘missing’, ‘is.finite’, ‘{’, ‘is.null’, ‘<-’, ‘paste’, ‘length’, ‘==’, ‘return’, ‘>’, ‘+’, ‘[’, ‘seq_len’, ‘rev’, ‘c’, ‘&&’, ‘!’, ‘:’, ‘(’, ‘-’ 1555s [00:52:35.496] Searching for globals ... DONE 1555s [00:52:35.496] Resolving globals: FALSE 1555s [00:52:35.497] The total size of the 1 globals is 69.62 KiB (71288 bytes) 1555s [00:52:35.498] The total size of the 1 globals exported for future expression (‘FUN(collapse = "; ", maxHead = 3L)’) is 69.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (69.62 KiB of class ‘function’) 1555s [00:52:35.498] - globals: [1] ‘FUN’ 1555s [00:52:35.498] - packages: [1] ‘future’ 1555s [00:52:35.498] getGlobalsAndPackages() ... DONE 1555s [00:52:35.499] - globals found/used: [n=1] ‘FUN’ 1555s [00:52:35.499] - needed namespaces: [n=1] ‘future’ 1555s [00:52:35.499] Finding globals ... DONE 1555s [00:52:35.499] - use_args: TRUE 1555s [00:52:35.499] - Getting '...' globals ... 1555s [00:52:35.500] resolve() on list ... 1555s [00:52:35.500] recursive: 0 1555s [00:52:35.500] length: 1 1555s [00:52:35.500] elements: ‘...’ 1555s [00:52:35.500] length: 0 (resolved future 1) 1555s [00:52:35.500] resolve() on list ... DONE 1555s [00:52:35.501] - '...' content: [n=2] ‘collapse’, ‘maxHead’ 1555s [00:52:35.501] List of 1 1555s [00:52:35.501] $ ...:List of 2 1555s [00:52:35.501] ..$ collapse: chr "; " 1555s [00:52:35.501] ..$ maxHead : int 3 1555s [00:52:35.501] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1555s [00:52:35.501] - attr(*, "where")=List of 1 1555s [00:52:35.501] ..$ ...: 1555s [00:52:35.501] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1555s [00:52:35.501] - attr(*, "resolved")= logi TRUE 1555s [00:52:35.501] - attr(*, "total_size")= num NA 1555s [00:52:35.507] - Getting '...' globals ... DONE 1555s [00:52:35.507] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1555s [00:52:35.508] List of 2 1555s [00:52:35.508] $ ...future.FUN:function (..., sep = "", collapse = ", ", lastCollapse = NULL, maxHead = if (missing(lastCollapse)) 3 else Inf, 1555s [00:52:35.508] maxTail = if (is.finite(maxHead)) 1 else Inf, abbreviate = "...") 1555s [00:52:35.508] $ ... :List of 2 1555s [00:52:35.508] ..$ collapse: chr "; " 1555s [00:52:35.508] ..$ maxHead : int 3 1555s [00:52:35.508] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1555s [00:52:35.508] - attr(*, "where")=List of 2 1555s [00:52:35.508] ..$ ...future.FUN: 1555s [00:52:35.508] ..$ ... : 1555s [00:52:35.508] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1555s [00:52:35.508] - attr(*, "resolved")= logi FALSE 1555s [00:52:35.508] - attr(*, "total_size")= num 71456 1555s [00:52:35.514] Packages to be attached in all futures: [n=1] ‘future’ 1555s [00:52:35.514] getGlobalsAndPackagesXApply() ... DONE 1555s [00:52:35.515] Number of futures (= number of chunks): 1 1555s [00:52:35.515] Launching 1 futures (chunks) ... 1555s [00:52:35.516] Chunk #1 of 1 ... 1555s [00:52:35.516] - Finding globals in 'X' for chunk #1 ... 1555s [00:52:35.516] getGlobalsAndPackages() ... 1555s [00:52:35.516] Searching for globals... 1555s [00:52:35.517] 1555s [00:52:35.517] Searching for globals ... DONE 1555s [00:52:35.517] - globals: [0] 1555s [00:52:35.517] getGlobalsAndPackages() ... DONE 1555s [00:52:35.518] + additional globals found: [n=0] 1555s [00:52:35.518] + additional namespaces needed: [n=0] 1555s [00:52:35.518] - Finding globals in 'X' for chunk #1 ... DONE 1555s [00:52:35.519] - seeds: 1555s [00:52:35.519] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1555s [00:52:35.519] getGlobalsAndPackages() ... 1555s [00:52:35.520] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1555s [00:52:35.520] Resolving globals: FALSE 1555s [00:52:35.520] Tweak future expression to call with '...' arguments ... 1555s [00:52:35.521] { 1555s [00:52:35.521] do.call(function(...) { 1555s [00:52:35.521] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1555s [00:52:35.521] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1555s [00:52:35.521] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1555s [00:52:35.521] on.exit(options(oopts), add = TRUE) 1555s [00:52:35.521] } 1555s [00:52:35.521] { 1555s [00:52:35.521] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1555s [00:52:35.521] ...future.X_jj <- ...future.elements_ii[[jj]] 1555s [00:52:35.521] ...future.FUN(...future.X_jj, ...) 1555s [00:52:35.521] }) 1555s [00:52:35.521] } 1555s [00:52:35.521] }, args = future.call.arguments) 1555s [00:52:35.521] } 1555s [00:52:35.521] Tweak future expression to call with '...' arguments ... DONE 1555s [00:52:35.522] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1555s [00:52:35.523] - packages: [1] ‘future’ 1555s [00:52:35.523] getGlobalsAndPackages() ... DONE 1555s [00:52:35.524] run() for ‘Future’ ... 1555s [00:52:35.524] - state: ‘created’ 1555s [00:52:35.524] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1555s [00:52:35.529] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1555s [00:52:35.529] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1555s [00:52:35.529] - Field: ‘label’ 1555s [00:52:35.529] - Field: ‘local’ 1555s [00:52:35.529] - Field: ‘owner’ 1555s [00:52:35.530] - Field: ‘envir’ 1555s [00:52:35.530] - Field: ‘packages’ 1555s [00:52:35.531] - Field: ‘gc’ 1555s [00:52:35.531] - Field: ‘conditions’ 1555s [00:52:35.531] - Field: ‘expr’ 1555s [00:52:35.531] - Field: ‘uuid’ 1555s [00:52:35.531] - Field: ‘seed’ 1555s [00:52:35.532] - Field: ‘version’ 1555s [00:52:35.532] - Field: ‘result’ 1555s [00:52:35.532] - Field: ‘asynchronous’ 1555s [00:52:35.532] - Field: ‘calls’ 1555s [00:52:35.532] - Field: ‘globals’ 1555s [00:52:35.533] - Field: ‘stdout’ 1555s [00:52:35.533] - Field: ‘earlySignal’ 1555s [00:52:35.533] - Field: ‘lazy’ 1555s [00:52:35.533] - Field: ‘state’ 1555s [00:52:35.534] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1555s [00:52:35.534] - Launch lazy future ... 1555s [00:52:35.534] Packages needed by the future expression (n = 1): ‘future’ 1555s [00:52:35.535] Packages needed by future strategies (n = 0): 1555s [00:52:35.537] { 1555s [00:52:35.537] { 1555s [00:52:35.537] { 1555s [00:52:35.537] ...future.startTime <- base::Sys.time() 1555s [00:52:35.537] { 1555s [00:52:35.537] { 1555s [00:52:35.537] { 1555s [00:52:35.537] { 1555s [00:52:35.537] base::local({ 1555s [00:52:35.537] has_future <- base::requireNamespace("future", 1555s [00:52:35.537] quietly = TRUE) 1555s [00:52:35.537] if (has_future) { 1555s [00:52:35.537] ns <- base::getNamespace("future") 1555s [00:52:35.537] version <- ns[[".package"]][["version"]] 1555s [00:52:35.537] if (is.null(version)) 1555s [00:52:35.537] version <- utils::packageVersion("future") 1555s [00:52:35.537] } 1555s [00:52:35.537] else { 1555s [00:52:35.537] version <- NULL 1555s [00:52:35.537] } 1555s [00:52:35.537] if (!has_future || version < "1.8.0") { 1555s [00:52:35.537] info <- base::c(r_version = base::gsub("R version ", 1555s [00:52:35.537] "", base::R.version$version.string), 1555s [00:52:35.537] platform = base::sprintf("%s (%s-bit)", 1555s [00:52:35.537] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1555s [00:52:35.537] os = base::paste(base::Sys.info()[base::c("sysname", 1555s [00:52:35.537] "release", "version")], collapse = " "), 1555s [00:52:35.537] hostname = base::Sys.info()[["nodename"]]) 1555s [00:52:35.537] info <- base::sprintf("%s: %s", base::names(info), 1555s [00:52:35.537] info) 1555s [00:52:35.537] info <- base::paste(info, collapse = "; ") 1555s [00:52:35.537] if (!has_future) { 1555s [00:52:35.537] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1555s [00:52:35.537] info) 1555s [00:52:35.537] } 1555s [00:52:35.537] else { 1555s [00:52:35.537] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1555s [00:52:35.537] info, version) 1555s [00:52:35.537] } 1555s [00:52:35.537] base::stop(msg) 1555s [00:52:35.537] } 1555s [00:52:35.537] }) 1555s [00:52:35.537] } 1555s [00:52:35.537] base::local({ 1555s [00:52:35.537] for (pkg in "future") { 1555s [00:52:35.537] base::loadNamespace(pkg) 1555s [00:52:35.537] base::library(pkg, character.only = TRUE) 1555s [00:52:35.537] } 1555s [00:52:35.537] }) 1555s [00:52:35.537] } 1555s [00:52:35.537] options(future.plan = NULL) 1555s [00:52:35.537] Sys.unsetenv("R_FUTURE_PLAN") 1555s [00:52:35.537] future::plan("default", .cleanup = FALSE, .init = FALSE) 1555s [00:52:35.537] } 1555s [00:52:35.537] ...future.workdir <- getwd() 1555s [00:52:35.537] } 1555s [00:52:35.537] ...future.oldOptions <- base::as.list(base::.Options) 1555s [00:52:35.537] ...future.oldEnvVars <- base::Sys.getenv() 1555s [00:52:35.537] } 1555s [00:52:35.537] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1555s [00:52:35.537] future.globals.maxSize = NULL, future.globals.method = NULL, 1555s [00:52:35.537] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1555s [00:52:35.537] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1555s [00:52:35.537] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1555s [00:52:35.537] future.stdout.windows.reencode = NULL, width = 80L) 1555s [00:52:35.537] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1555s [00:52:35.537] base::names(...future.oldOptions)) 1555s [00:52:35.537] } 1555s [00:52:35.537] if (FALSE) { 1555s [00:52:35.537] } 1555s [00:52:35.537] else { 1555s [00:52:35.537] if (TRUE) { 1555s [00:52:35.537] ...future.stdout <- base::rawConnection(base::raw(0L), 1555s [00:52:35.537] open = "w") 1555s [00:52:35.537] } 1555s [00:52:35.537] else { 1555s [00:52:35.537] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1555s [00:52:35.537] windows = "NUL", "/dev/null"), open = "w") 1555s [00:52:35.537] } 1555s [00:52:35.537] base::sink(...future.stdout, type = "output", split = FALSE) 1555s [00:52:35.537] base::on.exit(if (!base::is.null(...future.stdout)) { 1555s [00:52:35.537] base::sink(type = "output", split = FALSE) 1555s [00:52:35.537] base::close(...future.stdout) 1555s [00:52:35.537] }, add = TRUE) 1555s [00:52:35.537] } 1555s [00:52:35.537] ...future.frame <- base::sys.nframe() 1555s [00:52:35.537] ...future.conditions <- base::list() 1555s [00:52:35.537] ...future.rng <- base::globalenv()$.Random.seed 1555s [00:52:35.537] if (FALSE) { 1555s [00:52:35.537] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1555s [00:52:35.537] "...future.value", "...future.globalenv.names", ".Random.seed") 1555s [00:52:35.537] } 1555s [00:52:35.537] ...future.result <- base::tryCatch({ 1555s [00:52:35.537] base::withCallingHandlers({ 1555s [00:52:35.537] ...future.value <- base::withVisible(base::local({ 1555s [00:52:35.537] do.call(function(...) { 1555s [00:52:35.537] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1555s [00:52:35.537] if (!identical(...future.globals.maxSize.org, 1555s [00:52:35.537] ...future.globals.maxSize)) { 1555s [00:52:35.537] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1555s [00:52:35.537] on.exit(options(oopts), add = TRUE) 1555s [00:52:35.537] } 1555s [00:52:35.537] { 1555s [00:52:35.537] lapply(seq_along(...future.elements_ii), 1555s [00:52:35.537] FUN = function(jj) { 1555s [00:52:35.537] ...future.X_jj <- ...future.elements_ii[[jj]] 1555s [00:52:35.537] ...future.FUN(...future.X_jj, ...) 1555s [00:52:35.537] }) 1555s [00:52:35.537] } 1555s [00:52:35.537] }, args = future.call.arguments) 1555s [00:52:35.537] })) 1555s [00:52:35.537] future::FutureResult(value = ...future.value$value, 1555s [00:52:35.537] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1555s [00:52:35.537] ...future.rng), globalenv = if (FALSE) 1555s [00:52:35.537] list(added = base::setdiff(base::names(base::.GlobalEnv), 1555s [00:52:35.537] ...future.globalenv.names)) 1555s [00:52:35.537] else NULL, started = ...future.startTime, version = "1.8") 1555s [00:52:35.537] }, condition = base::local({ 1555s [00:52:35.537] c <- base::c 1555s [00:52:35.537] inherits <- base::inherits 1555s [00:52:35.537] invokeRestart <- base::invokeRestart 1555s [00:52:35.537] length <- base::length 1555s [00:52:35.537] list <- base::list 1555s [00:52:35.537] seq.int <- base::seq.int 1555s [00:52:35.537] signalCondition <- base::signalCondition 1555s [00:52:35.537] sys.calls <- base::sys.calls 1555s [00:52:35.537] `[[` <- base::`[[` 1555s [00:52:35.537] `+` <- base::`+` 1555s [00:52:35.537] `<<-` <- base::`<<-` 1555s [00:52:35.537] sysCalls <- function(calls = sys.calls(), from = 1L) { 1555s [00:52:35.537] calls[seq.int(from = from + 12L, to = length(calls) - 1555s [00:52:35.537] 3L)] 1555s [00:52:35.537] } 1555s [00:52:35.537] function(cond) { 1555s [00:52:35.537] is_error <- inherits(cond, "error") 1555s [00:52:35.537] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1555s [00:52:35.537] NULL) 1555s [00:52:35.537] if (is_error) { 1555s [00:52:35.537] sessionInformation <- function() { 1555s [00:52:35.537] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1555s [00:52:35.537] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1555s [00:52:35.537] search = base::search(), system = base::Sys.info()) 1555s [00:52:35.537] } 1555s [00:52:35.537] ...future.conditions[[length(...future.conditions) + 1555s [00:52:35.537] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1555s [00:52:35.537] cond$call), session = sessionInformation(), 1555s [00:52:35.537] timestamp = base::Sys.time(), signaled = 0L) 1555s [00:52:35.537] signalCondition(cond) 1555s [00:52:35.537] } 1555s [00:52:35.537] else if (!ignore && TRUE && inherits(cond, c("condition", 1555s [00:52:35.537] "immediateCondition"))) { 1555s [00:52:35.537] signal <- TRUE && inherits(cond, "immediateCondition") 1555s [00:52:35.537] ...future.conditions[[length(...future.conditions) + 1555s [00:52:35.537] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1555s [00:52:35.537] if (TRUE && !signal) { 1555s [00:52:35.537] muffleCondition <- function (cond, pattern = "^muffle") 1555s [00:52:35.537] { 1555s [00:52:35.537] inherits <- base::inherits 1555s [00:52:35.537] invokeRestart <- base::invokeRestart 1555s [00:52:35.537] is.null <- base::is.null 1555s [00:52:35.537] muffled <- FALSE 1555s [00:52:35.537] if (inherits(cond, "message")) { 1555s [00:52:35.537] muffled <- grepl(pattern, "muffleMessage") 1555s [00:52:35.537] if (muffled) 1555s [00:52:35.537] invokeRestart("muffleMessage") 1555s [00:52:35.537] } 1555s [00:52:35.537] else if (inherits(cond, "warning")) { 1555s [00:52:35.537] muffled <- grepl(pattern, "muffleWarning") 1555s [00:52:35.537] if (muffled) 1555s [00:52:35.537] invokeRestart("muffleWarning") 1555s [00:52:35.537] } 1555s [00:52:35.537] else if (inherits(cond, "condition")) { 1555s [00:52:35.537] if (!is.null(pattern)) { 1555s [00:52:35.537] computeRestarts <- base::computeRestarts 1555s [00:52:35.537] grepl <- base::grepl 1555s [00:52:35.537] restarts <- computeRestarts(cond) 1555s [00:52:35.537] for (restart in restarts) { 1555s [00:52:35.537] name <- restart$name 1555s [00:52:35.537] if (is.null(name)) 1555s [00:52:35.537] next 1555s [00:52:35.537] if (!grepl(pattern, name)) 1555s [00:52:35.537] next 1555s [00:52:35.537] invokeRestart(restart) 1555s [00:52:35.537] muffled <- TRUE 1555s [00:52:35.537] break 1555s [00:52:35.537] } 1555s [00:52:35.537] } 1555s [00:52:35.537] } 1555s [00:52:35.537] invisible(muffled) 1555s [00:52:35.537] } 1555s [00:52:35.537] muffleCondition(cond, pattern = "^muffle") 1555s [00:52:35.537] } 1555s [00:52:35.537] } 1555s [00:52:35.537] else { 1555s [00:52:35.537] if (TRUE) { 1555s [00:52:35.537] muffleCondition <- function (cond, pattern = "^muffle") 1555s [00:52:35.537] { 1555s [00:52:35.537] inherits <- base::inherits 1555s [00:52:35.537] invokeRestart <- base::invokeRestart 1555s [00:52:35.537] is.null <- base::is.null 1555s [00:52:35.537] muffled <- FALSE 1555s [00:52:35.537] if (inherits(cond, "message")) { 1555s [00:52:35.537] muffled <- grepl(pattern, "muffleMessage") 1555s [00:52:35.537] if (muffled) 1555s [00:52:35.537] invokeRestart("muffleMessage") 1555s [00:52:35.537] } 1555s [00:52:35.537] else if (inherits(cond, "warning")) { 1555s [00:52:35.537] muffled <- grepl(pattern, "muffleWarning") 1555s [00:52:35.537] if (muffled) 1555s [00:52:35.537] invokeRestart("muffleWarning") 1555s [00:52:35.537] } 1555s [00:52:35.537] else if (inherits(cond, "condition")) { 1555s [00:52:35.537] if (!is.null(pattern)) { 1555s [00:52:35.537] computeRestarts <- base::computeRestarts 1555s [00:52:35.537] grepl <- base::grepl 1555s [00:52:35.537] restarts <- computeRestarts(cond) 1555s [00:52:35.537] for (restart in restarts) { 1555s [00:52:35.537] name <- restart$name 1555s [00:52:35.537] if (is.null(name)) 1555s [00:52:35.537] next 1555s [00:52:35.537] if (!grepl(pattern, name)) 1555s [00:52:35.537] next 1555s [00:52:35.537] invokeRestart(restart) 1555s [00:52:35.537] muffled <- TRUE 1555s [00:52:35.537] break 1555s [00:52:35.537] } 1555s [00:52:35.537] } 1555s [00:52:35.537] } 1555s [00:52:35.537] invisible(muffled) 1555s [00:52:35.537] } 1555s [00:52:35.537] muffleCondition(cond, pattern = "^muffle") 1555s [00:52:35.537] } 1555s [00:52:35.537] } 1555s [00:52:35.537] } 1555s [00:52:35.537] })) 1555s [00:52:35.537] }, error = function(ex) { 1555s [00:52:35.537] base::structure(base::list(value = NULL, visible = NULL, 1555s [00:52:35.537] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1555s [00:52:35.537] ...future.rng), started = ...future.startTime, 1555s [00:52:35.537] finished = Sys.time(), session_uuid = NA_character_, 1555s [00:52:35.537] version = "1.8"), class = "FutureResult") 1555s [00:52:35.537] }, finally = { 1555s [00:52:35.537] if (!identical(...future.workdir, getwd())) 1555s [00:52:35.537] setwd(...future.workdir) 1555s [00:52:35.537] { 1555s [00:52:35.537] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1555s [00:52:35.537] ...future.oldOptions$nwarnings <- NULL 1555s [00:52:35.537] } 1555s [00:52:35.537] base::options(...future.oldOptions) 1555s [00:52:35.537] if (.Platform$OS.type == "windows") { 1555s [00:52:35.537] old_names <- names(...future.oldEnvVars) 1555s [00:52:35.537] envs <- base::Sys.getenv() 1555s [00:52:35.537] names <- names(envs) 1555s [00:52:35.537] common <- intersect(names, old_names) 1555s [00:52:35.537] added <- setdiff(names, old_names) 1555s [00:52:35.537] removed <- setdiff(old_names, names) 1555s [00:52:35.537] changed <- common[...future.oldEnvVars[common] != 1555s [00:52:35.537] envs[common]] 1555s [00:52:35.537] NAMES <- toupper(changed) 1555s [00:52:35.537] args <- list() 1555s [00:52:35.537] for (kk in seq_along(NAMES)) { 1555s [00:52:35.537] name <- changed[[kk]] 1555s [00:52:35.537] NAME <- NAMES[[kk]] 1555s [00:52:35.537] if (name != NAME && is.element(NAME, old_names)) 1555s [00:52:35.537] next 1555s [00:52:35.537] args[[name]] <- ...future.oldEnvVars[[name]] 1555s [00:52:35.537] } 1555s [00:52:35.537] NAMES <- toupper(added) 1555s [00:52:35.537] for (kk in seq_along(NAMES)) { 1555s [00:52:35.537] name <- added[[kk]] 1555s [00:52:35.537] NAME <- NAMES[[kk]] 1555s [00:52:35.537] if (name != NAME && is.element(NAME, old_names)) 1555s [00:52:35.537] next 1555s [00:52:35.537] args[[name]] <- "" 1555s [00:52:35.537] } 1555s [00:52:35.537] NAMES <- toupper(removed) 1555s [00:52:35.537] for (kk in seq_along(NAMES)) { 1555s [00:52:35.537] name <- removed[[kk]] 1555s [00:52:35.537] NAME <- NAMES[[kk]] 1555s [00:52:35.537] if (name != NAME && is.element(NAME, old_names)) 1555s [00:52:35.537] next 1555s [00:52:35.537] args[[name]] <- ...future.oldEnvVars[[name]] 1555s [00:52:35.537] } 1555s [00:52:35.537] if (length(args) > 0) 1555s [00:52:35.537] base::do.call(base::Sys.setenv, args = args) 1555s [00:52:35.537] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1555s [00:52:35.537] } 1555s [00:52:35.537] else { 1555s [00:52:35.537] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1555s [00:52:35.537] } 1555s [00:52:35.537] { 1555s [00:52:35.537] if (base::length(...future.futureOptionsAdded) > 1555s [00:52:35.537] 0L) { 1555s [00:52:35.537] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1555s [00:52:35.537] base::names(opts) <- ...future.futureOptionsAdded 1555s [00:52:35.537] base::options(opts) 1555s [00:52:35.537] } 1555s [00:52:35.537] { 1555s [00:52:35.537] { 1555s [00:52:35.537] NULL 1555s [00:52:35.537] RNGkind("Mersenne-Twister") 1555s [00:52:35.537] base::rm(list = ".Random.seed", envir = base::globalenv(), 1555s [00:52:35.537] inherits = FALSE) 1555s [00:52:35.537] } 1555s [00:52:35.537] options(future.plan = NULL) 1555s [00:52:35.537] if (is.na(NA_character_)) 1555s [00:52:35.537] Sys.unsetenv("R_FUTURE_PLAN") 1555s [00:52:35.537] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1555s [00:52:35.537] future::plan(list(function (..., workers = availableCores(), 1555s [00:52:35.537] lazy = FALSE, rscript_libs = .libPaths(), 1555s [00:52:35.537] envir = parent.frame()) 1555s [00:52:35.537] { 1555s [00:52:35.537] if (is.function(workers)) 1555s [00:52:35.537] workers <- workers() 1555s [00:52:35.537] workers <- structure(as.integer(workers), 1555s [00:52:35.537] class = class(workers)) 1555s [00:52:35.537] stop_if_not(length(workers) == 1, is.finite(workers), 1555s [00:52:35.537] workers >= 1) 1555s [00:52:35.537] if (workers == 1L && !inherits(workers, "AsIs")) { 1555s [00:52:35.537] return(sequential(..., lazy = TRUE, envir = envir)) 1555s [00:52:35.537] } 1555s [00:52:35.537] future <- MultisessionFuture(..., workers = workers, 1555s [00:52:35.537] lazy = lazy, rscript_libs = rscript_libs, 1555s [00:52:35.537] envir = envir) 1555s [00:52:35.537] if (!future$lazy) 1555s [00:52:35.537] future <- run(future) 1555s [00:52:35.537] invisible(future) 1555s [00:52:35.537] }), .cleanup = FALSE, .init = FALSE) 1555s [00:52:35.537] } 1555s [00:52:35.537] } 1555s [00:52:35.537] } 1555s [00:52:35.537] }) 1555s [00:52:35.537] if (TRUE) { 1555s [00:52:35.537] base::sink(type = "output", split = FALSE) 1555s [00:52:35.537] if (TRUE) { 1555s [00:52:35.537] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1555s [00:52:35.537] } 1555s [00:52:35.537] else { 1555s [00:52:35.537] ...future.result["stdout"] <- base::list(NULL) 1555s [00:52:35.537] } 1555s [00:52:35.537] base::close(...future.stdout) 1555s [00:52:35.537] ...future.stdout <- NULL 1555s [00:52:35.537] } 1555s [00:52:35.537] ...future.result$conditions <- ...future.conditions 1555s [00:52:35.537] ...future.result$finished <- base::Sys.time() 1555s [00:52:35.537] ...future.result 1555s [00:52:35.537] } 1555s [00:52:35.543] assign_globals() ... 1555s [00:52:35.543] List of 5 1555s [00:52:35.543] $ ...future.FUN :function (..., sep = "", collapse = ", ", lastCollapse = NULL, maxHead = if (missing(lastCollapse)) 3 else Inf, 1555s [00:52:35.543] maxTail = if (is.finite(maxHead)) 1 else Inf, abbreviate = "...") 1555s [00:52:35.543] $ future.call.arguments :List of 2 1555s [00:52:35.543] ..$ collapse: chr "; " 1555s [00:52:35.543] ..$ maxHead : int 3 1555s [00:52:35.543] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1555s [00:52:35.543] $ ...future.elements_ii :List of 1 1555s [00:52:35.543] ..$ a: Named chr [1:101] "hello" "1" "2" "3" ... 1555s [00:52:35.543] .. ..- attr(*, "names")= chr [1:101] "" "b1" "b2" "b3" ... 1555s [00:52:35.543] $ ...future.seeds_ii : NULL 1555s [00:52:35.543] $ ...future.globals.maxSize: NULL 1555s [00:52:35.543] - attr(*, "where")=List of 5 1555s [00:52:35.543] ..$ ...future.FUN : 1555s [00:52:35.543] ..$ future.call.arguments : 1555s [00:52:35.543] ..$ ...future.elements_ii : 1555s [00:52:35.543] ..$ ...future.seeds_ii : 1555s [00:52:35.543] ..$ ...future.globals.maxSize: 1555s [00:52:35.543] - attr(*, "resolved")= logi FALSE 1555s [00:52:35.543] - attr(*, "total_size")= num 71456 1555s [00:52:35.543] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1555s [00:52:35.543] - attr(*, "already-done")= logi TRUE 1555s [00:52:35.557] - copied ‘...future.FUN’ to environment 1555s [00:52:35.557] - copied ‘future.call.arguments’ to environment 1555s [00:52:35.558] - copied ‘...future.elements_ii’ to environment 1555s [00:52:35.558] - copied ‘...future.seeds_ii’ to environment 1555s [00:52:35.558] - copied ‘...future.globals.maxSize’ to environment 1555s [00:52:35.558] assign_globals() ... done 1555s [00:52:35.559] plan(): Setting new future strategy stack: 1555s [00:52:35.559] List of future strategies: 1555s [00:52:35.559] 1. sequential: 1555s [00:52:35.559] - args: function (..., envir = parent.frame()) 1555s [00:52:35.559] - tweaked: FALSE 1555s [00:52:35.559] - call: NULL 1555s [00:52:35.561] plan(): nbrOfWorkers() = 1 1555s [00:52:35.563] plan(): Setting new future strategy stack: 1555s [00:52:35.563] List of future strategies: 1555s [00:52:35.563] 1. multisession: 1555s [00:52:35.563] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1555s [00:52:35.563] - tweaked: FALSE 1555s [00:52:35.563] - call: plan(strategy) 1555s [00:52:35.568] plan(): nbrOfWorkers() = 1 1555s [00:52:35.569] SequentialFuture started (and completed) 1555s [00:52:35.569] - Launch lazy future ... done 1555s [00:52:35.570] run() for ‘SequentialFuture’ ... done 1555s [00:52:35.570] Created future: 1555s [00:52:35.570] SequentialFuture: 1555s [00:52:35.570] Label: ‘future_lapply-1’ 1555s [00:52:35.570] Expression: 1555s [00:52:35.570] { 1555s [00:52:35.570] do.call(function(...) { 1555s [00:52:35.570] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1555s [00:52:35.570] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1555s [00:52:35.570] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1555s [00:52:35.570] on.exit(options(oopts), add = TRUE) 1555s [00:52:35.570] } 1555s [00:52:35.570] { 1555s [00:52:35.570] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1555s [00:52:35.570] ...future.X_jj <- ...future.elements_ii[[jj]] 1555s [00:52:35.570] ...future.FUN(...future.X_jj, ...) 1555s [00:52:35.570] }) 1555s [00:52:35.570] } 1555s [00:52:35.570] }, args = future.call.arguments) 1555s [00:52:35.570] } 1555s [00:52:35.570] Lazy evaluation: FALSE 1555s [00:52:35.570] Asynchronous evaluation: FALSE 1555s [00:52:35.570] Local evaluation: TRUE 1555s [00:52:35.570] Environment: R_GlobalEnv 1555s [00:52:35.570] Capture standard output: TRUE 1555s [00:52:35.570] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1555s [00:52:35.570] Globals: 5 objects totaling 82.61 KiB (function ‘...future.FUN’ of 69.62 KiB, DotDotDotList ‘future.call.arguments’ of 168 bytes, list ‘...future.elements_ii’ of 12.83 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1555s [00:52:35.570] Packages: 1 packages (‘future’) 1555s [00:52:35.570] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1555s [00:52:35.570] Resolved: TRUE 1555s [00:52:35.570] Value: 136 bytes of class ‘list’ 1555s [00:52:35.570] Early signaling: FALSE 1555s [00:52:35.570] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1555s [00:52:35.570] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1555s [00:52:35.573] Chunk #1 of 1 ... DONE 1555s [00:52:35.574] Launching 1 futures (chunks) ... DONE 1555s [00:52:35.574] Resolving 1 futures (chunks) ... 1555s [00:52:35.575] resolve() on list ... 1555s [00:52:35.575] recursive: 0 1555s [00:52:35.576] length: 1 1555s [00:52:35.576] 1555s [00:52:35.576] resolved() for ‘SequentialFuture’ ... 1555s [00:52:35.577] - state: ‘finished’ 1555s [00:52:35.577] - run: TRUE 1555s [00:52:35.578] - result: ‘FutureResult’ 1555s [00:52:35.578] resolved() for ‘SequentialFuture’ ... done 1555s [00:52:35.579] Future #1 1555s [00:52:35.579] signalConditionsASAP(SequentialFuture, pos=1) ... 1555s [00:52:35.580] - nx: 1 1555s [00:52:35.580] - relay: TRUE 1555s [00:52:35.580] - stdout: TRUE 1555s [00:52:35.584] - signal: TRUE 1555s [00:52:35.585] - resignal: FALSE 1555s [00:52:35.585] - force: TRUE 1555s [00:52:35.585] - relayed: [n=1] FALSE 1555s [00:52:35.585] - queued futures: [n=1] FALSE 1555s [00:52:35.585] - until=1 1555s [00:52:35.586] - relaying element #1 1555s [00:52:35.586] - relayed: [n=1] TRUE 1555s [00:52:35.586] - queued futures: [n=1] TRUE 1555s [00:52:35.586] signalConditionsASAP(SequentialFuture, pos=1) ... done 1555s [00:52:35.586] length: 0 (resolved future 1) 1555s [00:52:35.586] Relaying remaining futures 1555s [00:52:35.587] signalConditionsASAP(NULL, pos=0) ... 1555s [00:52:35.587] - nx: 1 1555s [00:52:35.587] - relay: TRUE 1555s [00:52:35.587] - stdout: TRUE 1555s [00:52:35.587] - signal: TRUE 1555s [00:52:35.588] - resignal: FALSE 1555s [00:52:35.588] - force: TRUE 1555s [00:52:35.588] - relayed: [n=1] TRUE 1555s [00:52:35.588] - queued futures: [n=1] TRUE 1555s - flush all 1555s [00:52:35.588] - relayed: [n=1] TRUE 1555s [00:52:35.588] - queued futures: [n=1] TRUE 1555s [00:52:35.589] signalConditionsASAP(NULL, pos=0) ... done 1555s [00:52:35.589] resolve() on list ... DONE 1555s [00:52:35.589] - Number of value chunks collected: 1 1555s [00:52:35.589] Resolving 1 futures (chunks) ... DONE 1555s [00:52:35.589] Reducing values from 1 chunks ... 1555s [00:52:35.589] - Number of values collected after concatenation: 1 1555s [00:52:35.589] - Number of values expected: 1 1555s [00:52:35.590] Reducing values from 1 chunks ... DONE 1555s [00:52:35.590] future_lapply() ... DONE 1555s List of 1 1555s $ y:List of 1 1555s ..- future_lapply(x, FUN = listenv::listenv, ...) ... 1555s $ a: chr "hello; 1; 2; ...; 100" 1555s [00:52:35.593] future_lapply() ... 1555s [00:52:35.598] Number of chunks: 2 1555s [00:52:35.599] getGlobalsAndPackagesXApply() ... 1555s [00:52:35.599] - future.globals: TRUE 1555s [00:52:35.600] getGlobalsAndPackages() ... 1555s [00:52:35.600] Searching for globals... 1555s [00:52:35.602] - globals found: [4] ‘FUN’, ‘{’, ‘get’, ‘parent.env’ 1555s [00:52:35.603] Searching for globals ... DONE 1555s [00:52:35.604] Resolving globals: FALSE 1555s [00:52:35.604] The total size of the 1 globals is 4.85 KiB (4968 bytes) 1555s [00:52:35.605] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.85 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.85 KiB of class ‘function’) 1555s [00:52:35.605] - globals: [1] ‘FUN’ 1555s [00:52:35.605] - packages: [1] ‘listenv’ 1555s [00:52:35.606] getGlobalsAndPackages() ... DONE 1555s [00:52:35.606] - globals found/used: [n=1] ‘FUN’ 1555s [00:52:35.607] - needed namespaces: [n=1] ‘listenv’ 1555s [00:52:35.607] Finding globals ... DONE 1555s [00:52:35.607] - use_args: TRUE 1555s [00:52:35.607] - Getting '...' globals ... 1555s [00:52:35.608] resolve() on list ... 1555s [00:52:35.608] recursive: 0 1555s [00:52:35.608] length: 1 1555s [00:52:35.608] elements: ‘...’ 1555s [00:52:35.609] length: 0 (resolved future 1) 1555s [00:52:35.609] resolve() on list ... DONE 1555s [00:52:35.609] - '...' content: [n=0] 1555s [00:52:35.609] List of 1 1555s [00:52:35.609] $ ...: list() 1555s [00:52:35.609] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1555s [00:52:35.609] - attr(*, "where")=List of 1 1555s [00:52:35.609] ..$ ...: 1555s [00:52:35.609] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1555s [00:52:35.609] - attr(*, "resolved")= logi TRUE 1555s [00:52:35.609] - attr(*, "total_size")= num NA 1555s [00:52:35.614] - Getting '...' globals ... DONE 1555s [00:52:35.615] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1555s [00:52:35.615] List of 2 1555s [00:52:35.615] $ ...future.FUN:function (x, ...) 1555s [00:52:35.615] $ ... : list() 1555s [00:52:35.615] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1555s [00:52:35.615] - attr(*, "where")=List of 2 1555s [00:52:35.615] ..$ ...future.FUN: 1555s [00:52:35.615] ..$ ... : 1555s [00:52:35.615] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1555s [00:52:35.615] - attr(*, "resolved")= logi FALSE 1555s [00:52:35.615] - attr(*, "total_size")= num 4968 1555s [00:52:35.620] Packages to be attached in all futures: [n=1] ‘listenv’ 1555s [00:52:35.620] getGlobalsAndPackagesXApply() ... DONE 1555s [00:52:35.621] Number of futures (= number of chunks): 2 1555s [00:52:35.621] Launching 2 futures (chunks) ... 1555s [00:52:35.622] Chunk #1 of 2 ... 1555s [00:52:35.622] - Finding globals in 'X' for chunk #1 ... 1555s [00:52:35.622] getGlobalsAndPackages() ... 1555s [00:52:35.622] Searching for globals... 1555s [00:52:35.623] 1555s [00:52:35.623] Searching for globals ... DONE 1555s [00:52:35.624] - globals: [0] 1555s [00:52:35.624] getGlobalsAndPackages() ... DONE 1555s [00:52:35.624] + additional globals found: [n=0] 1555s [00:52:35.624] + additional namespaces needed: [n=0] 1555s [00:52:35.625] - Finding globals in 'X' for chunk #1 ... DONE 1555s [00:52:35.625] - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes) 1555s [00:52:35.625] - seeds: 1555s [00:52:35.625] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1555s [00:52:35.626] getGlobalsAndPackages() ... 1555s [00:52:35.626] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1555s [00:52:35.626] Resolving globals: FALSE 1555s [00:52:35.626] Tweak future expression to call with '...' arguments ... 1555s [00:52:35.627] { 1555s [00:52:35.627] do.call(function(...) { 1555s [00:52:35.627] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1555s [00:52:35.627] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1555s [00:52:35.627] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1555s [00:52:35.627] on.exit(options(oopts), add = TRUE) 1555s [00:52:35.627] } 1555s [00:52:35.627] { 1555s [00:52:35.627] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1555s [00:52:35.627] ...future.X_jj <- ...future.elements_ii[[jj]] 1555s [00:52:35.627] ...future.FUN(...future.X_jj, ...) 1555s [00:52:35.627] }) 1555s [00:52:35.627] } 1555s [00:52:35.627] }, args = future.call.arguments) 1555s [00:52:35.627] } 1555s [00:52:35.627] Tweak future expression to call with '...' arguments ... DONE 1555s [00:52:35.628] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1555s [00:52:35.628] - packages: [1] ‘listenv’ 1555s [00:52:35.628] getGlobalsAndPackages() ... DONE 1555s [00:52:35.629] run() for ‘Future’ ... 1555s [00:52:35.629] - state: ‘created’ 1555s [00:52:35.630] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1555s [00:52:35.638] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1555s [00:52:35.639] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1555s [00:52:35.639] - Field: ‘label’ 1555s [00:52:35.639] - Field: ‘local’ 1555s [00:52:35.639] - Field: ‘owner’ 1555s [00:52:35.640] - Field: ‘envir’ 1555s [00:52:35.640] - Field: ‘packages’ 1555s [00:52:35.640] - Field: ‘gc’ 1555s [00:52:35.640] - Field: ‘conditions’ 1555s [00:52:35.640] - Field: ‘expr’ 1555s [00:52:35.640] - Field: ‘uuid’ 1555s [00:52:35.641] - Field: ‘seed’ 1555s [00:52:35.641] - Field: ‘version’ 1555s [00:52:35.641] - Field: ‘result’ 1555s [00:52:35.641] - Field: ‘asynchronous’ 1555s [00:52:35.641] - Field: ‘calls’ 1555s [00:52:35.642] - Field: ‘globals’ 1555s [00:52:35.642] - Field: ‘stdout’ 1555s [00:52:35.642] - Field: ‘earlySignal’ 1555s [00:52:35.642] - Field: ‘lazy’ 1555s [00:52:35.643] - Field: ‘state’ 1555s [00:52:35.643] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1555s [00:52:35.643] - Launch lazy future ... 1555s [00:52:35.643] Packages needed by the future expression (n = 1): ‘listenv’ 1555s [00:52:35.643] Packages needed by future strategies (n = 0): 1555s [00:52:35.644] { 1555s [00:52:35.644] { 1555s [00:52:35.644] { 1555s [00:52:35.644] ...future.startTime <- base::Sys.time() 1555s [00:52:35.644] { 1555s [00:52:35.644] { 1555s [00:52:35.644] { 1555s [00:52:35.644] { 1555s [00:52:35.644] base::local({ 1555s [00:52:35.644] has_future <- base::requireNamespace("future", 1555s [00:52:35.644] quietly = TRUE) 1555s [00:52:35.644] if (has_future) { 1555s [00:52:35.644] ns <- base::getNamespace("future") 1555s [00:52:35.644] version <- ns[[".package"]][["version"]] 1555s [00:52:35.644] if (is.null(version)) 1555s [00:52:35.644] version <- utils::packageVersion("future") 1555s [00:52:35.644] } 1555s [00:52:35.644] else { 1555s [00:52:35.644] version <- NULL 1555s [00:52:35.644] } 1555s [00:52:35.644] if (!has_future || version < "1.8.0") { 1555s [00:52:35.644] info <- base::c(r_version = base::gsub("R version ", 1555s [00:52:35.644] "", base::R.version$version.string), 1555s [00:52:35.644] platform = base::sprintf("%s (%s-bit)", 1555s [00:52:35.644] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1555s [00:52:35.644] os = base::paste(base::Sys.info()[base::c("sysname", 1555s [00:52:35.644] "release", "version")], collapse = " "), 1555s [00:52:35.644] hostname = base::Sys.info()[["nodename"]]) 1555s [00:52:35.644] info <- base::sprintf("%s: %s", base::names(info), 1555s [00:52:35.644] info) 1555s [00:52:35.644] info <- base::paste(info, collapse = "; ") 1555s [00:52:35.644] if (!has_future) { 1555s [00:52:35.644] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1555s [00:52:35.644] info) 1555s [00:52:35.644] } 1555s [00:52:35.644] else { 1555s [00:52:35.644] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1555s [00:52:35.644] info, version) 1555s [00:52:35.644] } 1555s [00:52:35.644] base::stop(msg) 1555s [00:52:35.644] } 1555s [00:52:35.644] }) 1555s [00:52:35.644] } 1555s [00:52:35.644] base::local({ 1555s [00:52:35.644] for (pkg in "listenv") { 1555s [00:52:35.644] base::loadNamespace(pkg) 1555s [00:52:35.644] base::library(pkg, character.only = TRUE) 1555s [00:52:35.644] } 1555s [00:52:35.644] }) 1555s [00:52:35.644] } 1555s [00:52:35.644] options(future.plan = NULL) 1555s [00:52:35.644] Sys.unsetenv("R_FUTURE_PLAN") 1555s [00:52:35.644] future::plan("default", .cleanup = FALSE, .init = FALSE) 1555s [00:52:35.644] } 1555s [00:52:35.644] ...future.workdir <- getwd() 1555s [00:52:35.644] } 1555s [00:52:35.644] ...future.oldOptions <- base::as.list(base::.Options) 1555s [00:52:35.644] ...future.oldEnvVars <- base::Sys.getenv() 1555s [00:52:35.644] } 1555s [00:52:35.644] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1555s [00:52:35.644] future.globals.maxSize = 1048576000, future.globals.method = NULL, 1555s [00:52:35.644] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1555s [00:52:35.644] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1555s [00:52:35.644] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1555s [00:52:35.644] future.stdout.windows.reencode = NULL, width = 80L) 1555s [00:52:35.644] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1555s [00:52:35.644] base::names(...future.oldOptions)) 1555s [00:52:35.644] } 1555s [00:52:35.644] if (FALSE) { 1555s [00:52:35.644] } 1555s [00:52:35.644] else { 1555s [00:52:35.644] if (TRUE) { 1555s [00:52:35.644] ...future.stdout <- base::rawConnection(base::raw(0L), 1555s [00:52:35.644] open = "w") 1555s [00:52:35.644] } 1555s [00:52:35.644] else { 1555s [00:52:35.644] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1555s [00:52:35.644] windows = "NUL", "/dev/null"), open = "w") 1555s [00:52:35.644] } 1555s [00:52:35.644] base::sink(...future.stdout, type = "output", split = FALSE) 1555s [00:52:35.644] base::on.exit(if (!base::is.null(...future.stdout)) { 1555s [00:52:35.644] base::sink(type = "output", split = FALSE) 1555s [00:52:35.644] base::close(...future.stdout) 1555s [00:52:35.644] }, add = TRUE) 1555s [00:52:35.644] } 1555s [00:52:35.644] ...future.frame <- base::sys.nframe() 1555s [00:52:35.644] ...future.conditions <- base::list() 1555s [00:52:35.644] ...future.rng <- base::globalenv()$.Random.seed 1555s [00:52:35.644] if (FALSE) { 1555s [00:52:35.644] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1555s [00:52:35.644] "...future.value", "...future.globalenv.names", ".Random.seed") 1555s [00:52:35.644] } 1555s [00:52:35.644] ...future.result <- base::tryCatch({ 1555s [00:52:35.644] base::withCallingHandlers({ 1555s [00:52:35.644] ...future.value <- base::withVisible(base::local({ 1555s [00:52:35.644] do.call(function(...) { 1555s [00:52:35.644] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1555s [00:52:35.644] if (!identical(...future.globals.maxSize.org, 1555s [00:52:35.644] ...future.globals.maxSize)) { 1555s [00:52:35.644] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1555s [00:52:35.644] on.exit(options(oopts), add = TRUE) 1555s [00:52:35.644] } 1555s [00:52:35.644] { 1555s [00:52:35.644] lapply(seq_along(...future.elements_ii), 1555s [00:52:35.644] FUN = function(jj) { 1555s [00:52:35.644] ...future.X_jj <- ...future.elements_ii[[jj]] 1555s [00:52:35.644] ...future.FUN(...future.X_jj, ...) 1555s [00:52:35.644] }) 1555s [00:52:35.644] } 1555s [00:52:35.644] }, args = future.call.arguments) 1555s [00:52:35.644] })) 1555s [00:52:35.644] future::FutureResult(value = ...future.value$value, 1555s [00:52:35.644] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1555s [00:52:35.644] ...future.rng), globalenv = if (FALSE) 1555s [00:52:35.644] list(added = base::setdiff(base::names(base::.GlobalEnv), 1555s [00:52:35.644] ...future.globalenv.names)) 1555s [00:52:35.644] else NULL, started = ...future.startTime, version = "1.8") 1555s [00:52:35.644] }, condition = base::local({ 1555s [00:52:35.644] c <- base::c 1555s [00:52:35.644] inherits <- base::inherits 1555s [00:52:35.644] invokeRestart <- base::invokeRestart 1555s [00:52:35.644] length <- base::length 1555s [00:52:35.644] list <- base::list 1555s [00:52:35.644] seq.int <- base::seq.int 1555s [00:52:35.644] signalCondition <- base::signalCondition 1555s [00:52:35.644] sys.calls <- base::sys.calls 1555s [00:52:35.644] `[[` <- base::`[[` 1555s [00:52:35.644] `+` <- base::`+` 1555s [00:52:35.644] `<<-` <- base::`<<-` 1555s [00:52:35.644] sysCalls <- function(calls = sys.calls(), from = 1L) { 1555s [00:52:35.644] calls[seq.int(from = from + 12L, to = length(calls) - 1555s [00:52:35.644] 3L)] 1555s [00:52:35.644] } 1555s [00:52:35.644] function(cond) { 1555s [00:52:35.644] is_error <- inherits(cond, "error") 1555s [00:52:35.644] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1555s [00:52:35.644] NULL) 1555s [00:52:35.644] if (is_error) { 1555s [00:52:35.644] sessionInformation <- function() { 1555s [00:52:35.644] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1555s [00:52:35.644] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1555s [00:52:35.644] search = base::search(), system = base::Sys.info()) 1555s [00:52:35.644] } 1555s [00:52:35.644] ...future.conditions[[length(...future.conditions) + 1555s [00:52:35.644] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1555s [00:52:35.644] cond$call), session = sessionInformation(), 1555s [00:52:35.644] timestamp = base::Sys.time(), signaled = 0L) 1555s [00:52:35.644] signalCondition(cond) 1555s [00:52:35.644] } 1555s [00:52:35.644] else if (!ignore && TRUE && inherits(cond, c("condition", 1555s [00:52:35.644] "immediateCondition"))) { 1555s [00:52:35.644] signal <- TRUE && inherits(cond, "immediateCondition") 1555s [00:52:35.644] ...future.conditions[[length(...future.conditions) + 1555s [00:52:35.644] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1555s [00:52:35.644] if (TRUE && !signal) { 1555s [00:52:35.644] muffleCondition <- function (cond, pattern = "^muffle") 1555s [00:52:35.644] { 1555s [00:52:35.644] inherits <- base::inherits 1555s [00:52:35.644] invokeRestart <- base::invokeRestart 1555s [00:52:35.644] is.null <- base::is.null 1555s [00:52:35.644] muffled <- FALSE 1555s [00:52:35.644] if (inherits(cond, "message")) { 1555s [00:52:35.644] muffled <- grepl(pattern, "muffleMessage") 1555s [00:52:35.644] if (muffled) 1555s [00:52:35.644] invokeRestart("muffleMessage") 1555s [00:52:35.644] } 1555s [00:52:35.644] else if (inherits(cond, "warning")) { 1555s [00:52:35.644] muffled <- grepl(pattern, "muffleWarning") 1555s [00:52:35.644] if (muffled) 1555s [00:52:35.644] invokeRestart("muffleWarning") 1555s [00:52:35.644] } 1555s [00:52:35.644] else if (inherits(cond, "condition")) { 1555s [00:52:35.644] if (!is.null(pattern)) { 1555s [00:52:35.644] computeRestarts <- base::computeRestarts 1555s [00:52:35.644] grepl <- base::grepl 1555s [00:52:35.644] restarts <- computeRestarts(cond) 1555s [00:52:35.644] for (restart in restarts) { 1555s [00:52:35.644] name <- restart$name 1555s [00:52:35.644] if (is.null(name)) 1555s [00:52:35.644] next 1555s [00:52:35.644] if (!grepl(pattern, name)) 1555s [00:52:35.644] next 1555s [00:52:35.644] invokeRestart(restart) 1555s [00:52:35.644] muffled <- TRUE 1555s [00:52:35.644] break 1555s [00:52:35.644] } 1555s [00:52:35.644] } 1555s [00:52:35.644] } 1555s [00:52:35.644] invisible(muffled) 1555s [00:52:35.644] } 1555s [00:52:35.644] muffleCondition(cond, pattern = "^muffle") 1555s [00:52:35.644] } 1555s [00:52:35.644] } 1555s [00:52:35.644] else { 1555s [00:52:35.644] if (TRUE) { 1555s [00:52:35.644] muffleCondition <- function (cond, pattern = "^muffle") 1555s [00:52:35.644] { 1555s [00:52:35.644] inherits <- base::inherits 1555s [00:52:35.644] invokeRestart <- base::invokeRestart 1555s [00:52:35.644] is.null <- base::is.null 1555s [00:52:35.644] muffled <- FALSE 1555s [00:52:35.644] if (inherits(cond, "message")) { 1555s [00:52:35.644] muffled <- grepl(pattern, "muffleMessage") 1555s [00:52:35.644] if (muffled) 1555s [00:52:35.644] invokeRestart("muffleMessage") 1555s [00:52:35.644] } 1555s [00:52:35.644] else if (inherits(cond, "warning")) { 1555s [00:52:35.644] muffled <- grepl(pattern, "muffleWarning") 1555s [00:52:35.644] if (muffled) 1555s [00:52:35.644] invokeRestart("muffleWarning") 1555s [00:52:35.644] } 1555s [00:52:35.644] else if (inherits(cond, "condition")) { 1555s [00:52:35.644] if (!is.null(pattern)) { 1555s [00:52:35.644] computeRestarts <- base::computeRestarts 1555s [00:52:35.644] grepl <- base::grepl 1555s [00:52:35.644] restarts <- computeRestarts(cond) 1555s [00:52:35.644] for (restart in restarts) { 1555s [00:52:35.644] name <- restart$name 1555s [00:52:35.644] if (is.null(name)) 1555s [00:52:35.644] next 1555s [00:52:35.644] if (!grepl(pattern, name)) 1555s [00:52:35.644] next 1555s [00:52:35.644] invokeRestart(restart) 1555s [00:52:35.644] muffled <- TRUE 1555s [00:52:35.644] break 1555s [00:52:35.644] } 1555s [00:52:35.644] } 1555s [00:52:35.644] } 1555s [00:52:35.644] invisible(muffled) 1555s [00:52:35.644] } 1555s [00:52:35.644] muffleCondition(cond, pattern = "^muffle") 1555s [00:52:35.644] } 1555s [00:52:35.644] } 1555s [00:52:35.644] } 1555s [00:52:35.644] })) 1555s [00:52:35.644] }, error = function(ex) { 1555s [00:52:35.644] base::structure(base::list(value = NULL, visible = NULL, 1555s [00:52:35.644] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1555s [00:52:35.644] ...future.rng), started = ...future.startTime, 1555s [00:52:35.644] finished = Sys.time(), session_uuid = NA_character_, 1555s [00:52:35.644] version = "1.8"), class = "FutureResult") 1555s [00:52:35.644] }, finally = { 1555s [00:52:35.644] if (!identical(...future.workdir, getwd())) 1555s [00:52:35.644] setwd(...future.workdir) 1555s [00:52:35.644] { 1555s [00:52:35.644] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1555s [00:52:35.644] ...future.oldOptions$nwarnings <- NULL 1555s [00:52:35.644] } 1555s [00:52:35.644] base::options(...future.oldOptions) 1555s [00:52:35.644] if (.Platform$OS.type == "windows") { 1555s [00:52:35.644] old_names <- names(...future.oldEnvVars) 1555s [00:52:35.644] envs <- base::Sys.getenv() 1555s [00:52:35.644] names <- names(envs) 1555s [00:52:35.644] common <- intersect(names, old_names) 1555s [00:52:35.644] added <- setdiff(names, old_names) 1555s [00:52:35.644] removed <- setdiff(old_names, names) 1555s [00:52:35.644] changed <- common[...future.oldEnvVars[common] != 1555s [00:52:35.644] envs[common]] 1555s [00:52:35.644] NAMES <- toupper(changed) 1555s [00:52:35.644] args <- list() 1555s [00:52:35.644] for (kk in seq_along(NAMES)) { 1555s [00:52:35.644] name <- changed[[kk]] 1555s [00:52:35.644] NAME <- NAMES[[kk]] 1555s [00:52:35.644] if (name != NAME && is.element(NAME, old_names)) 1555s [00:52:35.644] next 1555s [00:52:35.644] args[[name]] <- ...future.oldEnvVars[[name]] 1555s [00:52:35.644] } 1555s [00:52:35.644] NAMES <- toupper(added) 1555s [00:52:35.644] for (kk in seq_along(NAMES)) { 1555s [00:52:35.644] name <- added[[kk]] 1555s [00:52:35.644] NAME <- NAMES[[kk]] 1555s [00:52:35.644] if (name != NAME && is.element(NAME, old_names)) 1555s [00:52:35.644] next 1555s [00:52:35.644] args[[name]] <- "" 1555s [00:52:35.644] } 1555s [00:52:35.644] NAMES <- toupper(removed) 1555s [00:52:35.644] for (kk in seq_along(NAMES)) { 1555s [00:52:35.644] name <- removed[[kk]] 1555s [00:52:35.644] NAME <- NAMES[[kk]] 1555s [00:52:35.644] if (name != NAME && is.element(NAME, old_names)) 1555s [00:52:35.644] next 1555s [00:52:35.644] args[[name]] <- ...future.oldEnvVars[[name]] 1555s [00:52:35.644] } 1555s [00:52:35.644] if (length(args) > 0) 1555s [00:52:35.644] base::do.call(base::Sys.setenv, args = args) 1555s [00:52:35.644] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1555s [00:52:35.644] } 1555s [00:52:35.644] else { 1555s [00:52:35.644] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1555s [00:52:35.644] } 1555s [00:52:35.644] { 1555s [00:52:35.644] if (base::length(...future.futureOptionsAdded) > 1555s [00:52:35.644] 0L) { 1555s [00:52:35.644] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1555s [00:52:35.644] base::names(opts) <- ...future.futureOptionsAdded 1555s [00:52:35.644] base::options(opts) 1555s [00:52:35.644] } 1555s [00:52:35.644] { 1555s [00:52:35.644] { 1555s [00:52:35.644] NULL 1555s [00:52:35.644] RNGkind("Mersenne-Twister") 1555s [00:52:35.644] base::rm(list = ".Random.seed", envir = base::globalenv(), 1555s [00:52:35.644] inherits = FALSE) 1555s [00:52:35.644] } 1555s [00:52:35.644] options(future.plan = NULL) 1555s [00:52:35.644] if (is.na(NA_character_)) 1555s [00:52:35.644] Sys.unsetenv("R_FUTURE_PLAN") 1555s [00:52:35.644] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1555s [00:52:35.644] future::plan(list(function (..., workers = availableCores(), 1555s [00:52:35.644] lazy = FALSE, rscript_libs = .libPaths(), 1555s [00:52:35.644] envir = parent.frame()) 1555s [00:52:35.644] { 1555s [00:52:35.644] if (is.function(workers)) 1555s [00:52:35.644] workers <- workers() 1555s [00:52:35.644] workers <- structure(as.integer(workers), 1555s [00:52:35.644] class = class(workers)) 1555s [00:52:35.644] stop_if_not(length(workers) == 1, is.finite(workers), 1555s [00:52:35.644] workers >= 1) 1555s [00:52:35.644] if (workers == 1L && !inherits(workers, "AsIs")) { 1555s [00:52:35.644] return(sequential(..., lazy = TRUE, envir = envir)) 1555s [00:52:35.644] } 1555s [00:52:35.644] future <- MultisessionFuture(..., workers = workers, 1555s [00:52:35.644] lazy = lazy, rscript_libs = rscript_libs, 1555s [00:52:35.644] envir = envir) 1555s [00:52:35.644] if (!future$lazy) 1555s [00:52:35.644] future <- run(future) 1555s [00:52:35.644] invisible(future) 1555s [00:52:35.644] }), .cleanup = FALSE, .init = FALSE) 1555s [00:52:35.644] } 1555s [00:52:35.644] } 1555s [00:52:35.644] } 1555s [00:52:35.644] }) 1555s [00:52:35.644] if (TRUE) { 1555s [00:52:35.644] base::sink(type = "output", split = FALSE) 1555s [00:52:35.644] if (TRUE) { 1555s [00:52:35.644] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1555s [00:52:35.644] } 1555s [00:52:35.644] else { 1555s [00:52:35.644] ...future.result["stdout"] <- base::list(NULL) 1555s [00:52:35.644] } 1555s [00:52:35.644] base::close(...future.stdout) 1555s [00:52:35.644] ...future.stdout <- NULL 1555s [00:52:35.644] } 1555s [00:52:35.644] ...future.result$conditions <- ...future.conditions 1555s [00:52:35.644] ...future.result$finished <- base::Sys.time() 1555s [00:52:35.644] ...future.result 1555s [00:52:35.644] } 1555s [00:52:35.649] assign_globals() ... 1555s [00:52:35.649] List of 5 1555s [00:52:35.649] $ ...future.FUN :function (x, ...) 1555s [00:52:35.649] $ future.call.arguments : list() 1555s [00:52:35.649] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1555s [00:52:35.649] $ ...future.elements_ii :List of 1 1555s [00:52:35.649] ..$ a:Classes 'listenv', 'environment' 1555s [00:52:35.649] $ ...future.seeds_ii : NULL 1555s [00:52:35.649] $ ...future.globals.maxSize: NULL 1555s [00:52:35.649] - attr(*, "where")=List of 5 1555s [00:52:35.649] ..$ ...future.FUN : 1555s [00:52:35.649] ..$ future.call.arguments : 1555s [00:52:35.649] ..$ ...future.elements_ii : 1555s [00:52:35.649] ..$ ...future.seeds_ii : 1555s [00:52:35.649] ..$ ...future.globals.maxSize: 1555s [00:52:35.649] - attr(*, "resolved")= logi FALSE 1555s [00:52:35.649] - attr(*, "total_size")= num 4968 1555s [00:52:35.649] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1555s [00:52:35.649] - attr(*, "already-done")= logi TRUE 1555s [00:52:35.659] - copied ‘...future.FUN’ to environment 1555s [00:52:35.659] - copied ‘future.call.arguments’ to environment 1555s [00:52:35.660] - copied ‘...future.elements_ii’ to environment 1555s [00:52:35.660] - copied ‘...future.seeds_ii’ to environment 1555s [00:52:35.661] - copied ‘...future.globals.maxSize’ to environment 1555s [00:52:35.661] assign_globals() ... done 1555s [00:52:35.662] plan(): Setting new future strategy stack: 1555s [00:52:35.662] List of future strategies: 1555s [00:52:35.662] 1. sequential: 1555s [00:52:35.662] - args: function (..., envir = parent.frame()) 1555s [00:52:35.662] - tweaked: FALSE 1555s [00:52:35.662] - call: NULL 1555s [00:52:35.663] plan(): nbrOfWorkers() = 1 1555s [00:52:35.664] plan(): Setting new future strategy stack: 1555s [00:52:35.664] List of future strategies: 1555s [00:52:35.664] 1. multisession: 1555s [00:52:35.664] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1555s [00:52:35.664] - tweaked: FALSE 1555s [00:52:35.664] - call: plan(strategy) 1555s [00:52:35.669] plan(): nbrOfWorkers() = 1 1555s [00:52:35.669] SequentialFuture started (and completed) 1555s [00:52:35.670] - Launch lazy future ... done 1555s [00:52:35.670] run() for ‘SequentialFuture’ ... done 1555s [00:52:35.670] Created future: 1555s [00:52:35.671] SequentialFuture: 1555s [00:52:35.671] Label: ‘future_lapply-1’ 1555s [00:52:35.671] Expression: 1555s [00:52:35.671] { 1555s [00:52:35.671] do.call(function(...) { 1555s [00:52:35.671] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1555s [00:52:35.671] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1555s [00:52:35.671] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1555s [00:52:35.671] on.exit(options(oopts), add = TRUE) 1555s [00:52:35.671] } 1555s [00:52:35.671] { 1555s [00:52:35.671] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1555s [00:52:35.671] ...future.X_jj <- ...future.elements_ii[[jj]] 1555s [00:52:35.671] ...future.FUN(...future.X_jj, ...) 1555s [00:52:35.671] }) 1555s [00:52:35.671] } 1555s [00:52:35.671] }, args = future.call.arguments) 1555s [00:52:35.671] } 1555s [00:52:35.671] Lazy evaluation: FALSE 1555s [00:52:35.671] Asynchronous evaluation: FALSE 1555s [00:52:35.671] Local evaluation: TRUE 1555s [00:52:35.671] Environment: R_GlobalEnv 1555s [00:52:35.671] Capture standard output: TRUE 1555s [00:52:35.671] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1555s [00:52:35.671] Globals: 5 objects totaling 4.96 KiB (function ‘...future.FUN’ of 4.85 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1555s [00:52:35.671] Packages: 1 packages (‘listenv’) 1555s [00:52:35.671] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1555s [00:52:35.671] Resolved: TRUE 1555s [00:52:35.671] Value: 336 bytes of class ‘list’ 1555s [00:52:35.671] Early signaling: FALSE 1555s [00:52:35.671] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1555s [00:52:35.671] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1555s [00:52:35.673] Chunk #1 of 2 ... DONE 1555s [00:52:35.673] Chunk #2 of 2 ... 1555s [00:52:35.673] - Finding globals in 'X' for chunk #2 ... 1555s [00:52:35.673] getGlobalsAndPackages() ... 1555s [00:52:35.674] Searching for globals... 1555s [00:52:35.674] 1555s [00:52:35.675] Searching for globals ... DONE 1555s [00:52:35.675] - globals: [0] 1555s [00:52:35.675] getGlobalsAndPackages() ... DONE 1555s [00:52:35.675] + additional globals found: [n=0] 1555s [00:52:35.675] + additional namespaces needed: [n=0] 1555s [00:52:35.676] - Finding globals in 'X' for chunk #2 ... DONE 1555s [00:52:35.676] - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes) 1555s [00:52:35.676] - seeds: 1555s [00:52:35.676] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1555s [00:52:35.676] getGlobalsAndPackages() ... 1555s [00:52:35.676] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1555s [00:52:35.677] Resolving globals: FALSE 1555s [00:52:35.677] Tweak future expression to call with '...' arguments ... 1555s [00:52:35.677] { 1555s [00:52:35.677] do.call(function(...) { 1555s [00:52:35.677] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1555s [00:52:35.677] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1555s [00:52:35.677] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1555s [00:52:35.677] on.exit(options(oopts), add = TRUE) 1555s [00:52:35.677] } 1555s [00:52:35.677] { 1555s [00:52:35.677] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1555s [00:52:35.677] ...future.X_jj <- ...future.elements_ii[[jj]] 1555s [00:52:35.677] ...future.FUN(...future.X_jj, ...) 1555s [00:52:35.677] }) 1555s [00:52:35.677] } 1555s [00:52:35.677] }, args = future.call.arguments) 1555s [00:52:35.677] } 1555s [00:52:35.677] Tweak future expression to call with '...' arguments ... DONE 1555s [00:52:35.678] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1555s [00:52:35.678] - packages: [1] ‘listenv’ 1555s [00:52:35.678] getGlobalsAndPackages() ... DONE 1555s [00:52:35.679] run() for ‘Future’ ... 1555s [00:52:35.679] - state: ‘created’ 1555s [00:52:35.679] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1555s [00:52:35.683] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1555s [00:52:35.683] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1555s [00:52:35.683] - Field: ‘label’ 1555s [00:52:35.684] - Field: ‘local’ 1555s [00:52:35.684] - Field: ‘owner’ 1555s [00:52:35.684] - Field: ‘envir’ 1555s [00:52:35.684] - Field: ‘packages’ 1555s [00:52:35.685] - Field: ‘gc’ 1555s [00:52:35.685] - Field: ‘conditions’ 1555s [00:52:35.685] - Field: ‘expr’ 1555s [00:52:35.685] - Field: ‘uuid’ 1555s [00:52:35.685] - Field: ‘seed’ 1555s [00:52:35.686] - Field: ‘version’ 1555s [00:52:35.686] - Field: ‘result’ 1555s [00:52:35.686] - Field: ‘asynchronous’ 1555s [00:52:35.687] - Field: ‘calls’ 1555s [00:52:35.687] - Field: ‘globals’ 1555s [00:52:35.687] - Field: ‘stdout’ 1555s [00:52:35.687] - Field: ‘earlySignal’ 1555s [00:52:35.688] - Field: ‘lazy’ 1555s [00:52:35.688] - Field: ‘state’ 1555s [00:52:35.688] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1555s [00:52:35.688] - Launch lazy future ... 1555s [00:52:35.689] Packages needed by the future expression (n = 1): ‘listenv’ 1555s [00:52:35.689] Packages needed by future strategies (n = 0): 1555s [00:52:35.690] { 1555s [00:52:35.690] { 1555s [00:52:35.690] { 1555s [00:52:35.690] ...future.startTime <- base::Sys.time() 1555s [00:52:35.690] { 1555s [00:52:35.690] { 1555s [00:52:35.690] { 1555s [00:52:35.690] { 1555s [00:52:35.690] base::local({ 1555s [00:52:35.690] has_future <- base::requireNamespace("future", 1555s [00:52:35.690] quietly = TRUE) 1555s [00:52:35.690] if (has_future) { 1555s [00:52:35.690] ns <- base::getNamespace("future") 1555s [00:52:35.690] version <- ns[[".package"]][["version"]] 1555s [00:52:35.690] if (is.null(version)) 1555s [00:52:35.690] version <- utils::packageVersion("future") 1555s [00:52:35.690] } 1555s [00:52:35.690] else { 1555s [00:52:35.690] version <- NULL 1555s [00:52:35.690] } 1555s [00:52:35.690] if (!has_future || version < "1.8.0") { 1555s [00:52:35.690] info <- base::c(r_version = base::gsub("R version ", 1555s [00:52:35.690] "", base::R.version$version.string), 1555s [00:52:35.690] platform = base::sprintf("%s (%s-bit)", 1555s [00:52:35.690] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1555s [00:52:35.690] os = base::paste(base::Sys.info()[base::c("sysname", 1555s [00:52:35.690] "release", "version")], collapse = " "), 1555s [00:52:35.690] hostname = base::Sys.info()[["nodename"]]) 1555s [00:52:35.690] info <- base::sprintf("%s: %s", base::names(info), 1555s [00:52:35.690] info) 1555s [00:52:35.690] info <- base::paste(info, collapse = "; ") 1555s [00:52:35.690] if (!has_future) { 1555s [00:52:35.690] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1555s [00:52:35.690] info) 1555s [00:52:35.690] } 1555s [00:52:35.690] else { 1555s [00:52:35.690] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1555s [00:52:35.690] info, version) 1555s [00:52:35.690] } 1555s [00:52:35.690] base::stop(msg) 1555s [00:52:35.690] } 1555s [00:52:35.690] }) 1555s [00:52:35.690] } 1555s [00:52:35.690] base::local({ 1555s [00:52:35.690] for (pkg in "listenv") { 1555s [00:52:35.690] base::loadNamespace(pkg) 1555s [00:52:35.690] base::library(pkg, character.only = TRUE) 1555s [00:52:35.690] } 1555s [00:52:35.690] }) 1555s [00:52:35.690] } 1555s [00:52:35.690] options(future.plan = NULL) 1555s [00:52:35.690] Sys.unsetenv("R_FUTURE_PLAN") 1555s [00:52:35.690] future::plan("default", .cleanup = FALSE, .init = FALSE) 1555s [00:52:35.690] } 1555s [00:52:35.690] ...future.workdir <- getwd() 1555s [00:52:35.690] } 1555s [00:52:35.690] ...future.oldOptions <- base::as.list(base::.Options) 1555s [00:52:35.690] ...future.oldEnvVars <- base::Sys.getenv() 1555s [00:52:35.690] } 1555s [00:52:35.690] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1555s [00:52:35.690] future.globals.maxSize = 1048576000, future.globals.method = NULL, 1555s [00:52:35.690] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1555s [00:52:35.690] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1555s [00:52:35.690] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1555s [00:52:35.690] future.stdout.windows.reencode = NULL, width = 80L) 1555s [00:52:35.690] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1555s [00:52:35.690] base::names(...future.oldOptions)) 1555s [00:52:35.690] } 1555s [00:52:35.690] if (FALSE) { 1555s [00:52:35.690] } 1555s [00:52:35.690] else { 1555s [00:52:35.690] if (TRUE) { 1555s [00:52:35.690] ...future.stdout <- base::rawConnection(base::raw(0L), 1555s [00:52:35.690] open = "w") 1555s [00:52:35.690] } 1555s [00:52:35.690] else { 1555s [00:52:35.690] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1555s [00:52:35.690] windows = "NUL", "/dev/null"), open = "w") 1555s [00:52:35.690] } 1555s [00:52:35.690] base::sink(...future.stdout, type = "output", split = FALSE) 1555s [00:52:35.690] base::on.exit(if (!base::is.null(...future.stdout)) { 1555s [00:52:35.690] base::sink(type = "output", split = FALSE) 1555s [00:52:35.690] base::close(...future.stdout) 1555s [00:52:35.690] }, add = TRUE) 1555s [00:52:35.690] } 1555s [00:52:35.690] ...future.frame <- base::sys.nframe() 1555s [00:52:35.690] ...future.conditions <- base::list() 1555s [00:52:35.690] ...future.rng <- base::globalenv()$.Random.seed 1555s [00:52:35.690] if (FALSE) { 1555s [00:52:35.690] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1555s [00:52:35.690] "...future.value", "...future.globalenv.names", ".Random.seed") 1555s [00:52:35.690] } 1555s [00:52:35.690] ...future.result <- base::tryCatch({ 1555s [00:52:35.690] base::withCallingHandlers({ 1555s [00:52:35.690] ...future.value <- base::withVisible(base::local({ 1555s [00:52:35.690] do.call(function(...) { 1555s [00:52:35.690] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1555s [00:52:35.690] if (!identical(...future.globals.maxSize.org, 1555s [00:52:35.690] ...future.globals.maxSize)) { 1555s [00:52:35.690] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1555s [00:52:35.690] on.exit(options(oopts), add = TRUE) 1555s [00:52:35.690] } 1555s [00:52:35.690] { 1555s [00:52:35.690] lapply(seq_along(...future.elements_ii), 1555s [00:52:35.690] FUN = function(jj) { 1555s [00:52:35.690] ...future.X_jj <- ...future.elements_ii[[jj]] 1555s [00:52:35.690] ...future.FUN(...future.X_jj, ...) 1555s [00:52:35.690] }) 1555s [00:52:35.690] } 1555s [00:52:35.690] }, args = future.call.arguments) 1555s [00:52:35.690] })) 1555s [00:52:35.690] future::FutureResult(value = ...future.value$value, 1555s [00:52:35.690] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1555s [00:52:35.690] ...future.rng), globalenv = if (FALSE) 1555s [00:52:35.690] list(added = base::setdiff(base::names(base::.GlobalEnv), 1555s [00:52:35.690] ...future.globalenv.names)) 1555s [00:52:35.690] else NULL, started = ...future.startTime, version = "1.8") 1555s [00:52:35.690] }, condition = base::local({ 1555s [00:52:35.690] c <- base::c 1555s [00:52:35.690] inherits <- base::inherits 1555s [00:52:35.690] invokeRestart <- base::invokeRestart 1555s [00:52:35.690] length <- base::length 1555s [00:52:35.690] list <- base::list 1555s [00:52:35.690] seq.int <- base::seq.int 1555s [00:52:35.690] signalCondition <- base::signalCondition 1555s [00:52:35.690] sys.calls <- base::sys.calls 1555s [00:52:35.690] `[[` <- base::`[[` 1555s [00:52:35.690] `+` <- base::`+` 1555s [00:52:35.690] `<<-` <- base::`<<-` 1555s [00:52:35.690] sysCalls <- function(calls = sys.calls(), from = 1L) { 1555s [00:52:35.690] calls[seq.int(from = from + 12L, to = length(calls) - 1555s [00:52:35.690] 3L)] 1555s [00:52:35.690] } 1555s [00:52:35.690] function(cond) { 1555s [00:52:35.690] is_error <- inherits(cond, "error") 1555s [00:52:35.690] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1555s [00:52:35.690] NULL) 1555s [00:52:35.690] if (is_error) { 1555s [00:52:35.690] sessionInformation <- function() { 1555s [00:52:35.690] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1555s [00:52:35.690] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1555s [00:52:35.690] search = base::search(), system = base::Sys.info()) 1555s [00:52:35.690] } 1555s [00:52:35.690] ...future.conditions[[length(...future.conditions) + 1555s [00:52:35.690] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1555s [00:52:35.690] cond$call), session = sessionInformation(), 1555s [00:52:35.690] timestamp = base::Sys.time(), signaled = 0L) 1555s [00:52:35.690] signalCondition(cond) 1555s [00:52:35.690] } 1555s [00:52:35.690] else if (!ignore && TRUE && inherits(cond, c("condition", 1555s [00:52:35.690] "immediateCondition"))) { 1555s [00:52:35.690] signal <- TRUE && inherits(cond, "immediateCondition") 1555s [00:52:35.690] ...future.conditions[[length(...future.conditions) + 1555s [00:52:35.690] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1555s [00:52:35.690] if (TRUE && !signal) { 1555s [00:52:35.690] muffleCondition <- function (cond, pattern = "^muffle") 1555s [00:52:35.690] { 1555s [00:52:35.690] inherits <- base::inherits 1555s [00:52:35.690] invokeRestart <- base::invokeRestart 1555s [00:52:35.690] is.null <- base::is.null 1555s [00:52:35.690] muffled <- FALSE 1555s [00:52:35.690] if (inherits(cond, "message")) { 1555s [00:52:35.690] muffled <- grepl(pattern, "muffleMessage") 1555s [00:52:35.690] if (muffled) 1555s [00:52:35.690] invokeRestart("muffleMessage") 1555s [00:52:35.690] } 1555s [00:52:35.690] else if (inherits(cond, "warning")) { 1555s [00:52:35.690] muffled <- grepl(pattern, "muffleWarning") 1555s [00:52:35.690] if (muffled) 1555s [00:52:35.690] invokeRestart("muffleWarning") 1555s [00:52:35.690] } 1555s [00:52:35.690] else if (inherits(cond, "condition")) { 1555s [00:52:35.690] if (!is.null(pattern)) { 1555s [00:52:35.690] computeRestarts <- base::computeRestarts 1555s [00:52:35.690] grepl <- base::grepl 1555s [00:52:35.690] restarts <- computeRestarts(cond) 1555s [00:52:35.690] for (restart in restarts) { 1555s [00:52:35.690] name <- restart$name 1555s [00:52:35.690] if (is.null(name)) 1555s [00:52:35.690] next 1555s [00:52:35.690] if (!grepl(pattern, name)) 1555s [00:52:35.690] next 1555s [00:52:35.690] invokeRestart(restart) 1555s [00:52:35.690] muffled <- TRUE 1555s [00:52:35.690] break 1555s [00:52:35.690] } 1555s [00:52:35.690] } 1555s [00:52:35.690] } 1555s [00:52:35.690] invisible(muffled) 1555s [00:52:35.690] } 1555s [00:52:35.690] muffleCondition(cond, pattern = "^muffle") 1555s [00:52:35.690] } 1555s [00:52:35.690] } 1555s [00:52:35.690] else { 1555s [00:52:35.690] if (TRUE) { 1555s [00:52:35.690] muffleCondition <- function (cond, pattern = "^muffle") 1555s [00:52:35.690] { 1555s [00:52:35.690] inherits <- base::inherits 1555s [00:52:35.690] invokeRestart <- base::invokeRestart 1555s [00:52:35.690] is.null <- base::is.null 1555s [00:52:35.690] muffled <- FALSE 1555s [00:52:35.690] if (inherits(cond, "message")) { 1555s [00:52:35.690] muffled <- grepl(pattern, "muffleMessage") 1555s [00:52:35.690] if (muffled) 1555s [00:52:35.690] invokeRestart("muffleMessage") 1555s [00:52:35.690] } 1555s [00:52:35.690] else if (inherits(cond, "warning")) { 1555s [00:52:35.690] muffled <- grepl(pattern, "muffleWarning") 1555s [00:52:35.690] if (muffled) 1555s [00:52:35.690] invokeRestart("muffleWarning") 1555s [00:52:35.690] } 1555s [00:52:35.690] else if (inherits(cond, "condition")) { 1555s [00:52:35.690] if (!is.null(pattern)) { 1555s [00:52:35.690] computeRestarts <- base::computeRestarts 1555s [00:52:35.690] grepl <- base::grepl 1555s [00:52:35.690] restarts <- computeRestarts(cond) 1555s [00:52:35.690] for (restart in restarts) { 1555s [00:52:35.690] name <- restart$name 1555s [00:52:35.690] if (is.null(name)) 1555s [00:52:35.690] next 1555s [00:52:35.690] if (!grepl(pattern, name)) 1555s [00:52:35.690] next 1555s [00:52:35.690] invokeRestart(restart) 1555s [00:52:35.690] muffled <- TRUE 1555s [00:52:35.690] break 1555s [00:52:35.690] } 1555s [00:52:35.690] } 1555s [00:52:35.690] } 1555s [00:52:35.690] invisible(muffled) 1555s [00:52:35.690] } 1555s [00:52:35.690] muffleCondition(cond, pattern = "^muffle") 1555s [00:52:35.690] } 1555s [00:52:35.690] } 1555s [00:52:35.690] } 1555s [00:52:35.690] })) 1555s [00:52:35.690] }, error = function(ex) { 1555s [00:52:35.690] base::structure(base::list(value = NULL, visible = NULL, 1555s [00:52:35.690] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1555s [00:52:35.690] ...future.rng), started = ...future.startTime, 1555s [00:52:35.690] finished = Sys.time(), session_uuid = NA_character_, 1555s [00:52:35.690] version = "1.8"), class = "FutureResult") 1555s [00:52:35.690] }, finally = { 1555s [00:52:35.690] if (!identical(...future.workdir, getwd())) 1555s [00:52:35.690] setwd(...future.workdir) 1555s [00:52:35.690] { 1555s [00:52:35.690] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1555s [00:52:35.690] ...future.oldOptions$nwarnings <- NULL 1555s [00:52:35.690] } 1555s [00:52:35.690] base::options(...future.oldOptions) 1555s [00:52:35.690] if (.Platform$OS.type == "windows") { 1555s [00:52:35.690] old_names <- names(...future.oldEnvVars) 1555s [00:52:35.690] envs <- base::Sys.getenv() 1555s [00:52:35.690] names <- names(envs) 1555s [00:52:35.690] common <- intersect(names, old_names) 1555s [00:52:35.690] added <- setdiff(names, old_names) 1555s [00:52:35.690] removed <- setdiff(old_names, names) 1555s [00:52:35.690] changed <- common[...future.oldEnvVars[common] != 1555s [00:52:35.690] envs[common]] 1555s [00:52:35.690] NAMES <- toupper(changed) 1555s [00:52:35.690] args <- list() 1555s [00:52:35.690] for (kk in seq_along(NAMES)) { 1555s [00:52:35.690] name <- changed[[kk]] 1555s [00:52:35.690] NAME <- NAMES[[kk]] 1555s [00:52:35.690] if (name != NAME && is.element(NAME, old_names)) 1555s [00:52:35.690] next 1555s [00:52:35.690] args[[name]] <- ...future.oldEnvVars[[name]] 1555s [00:52:35.690] } 1555s [00:52:35.690] NAMES <- toupper(added) 1555s [00:52:35.690] for (kk in seq_along(NAMES)) { 1555s [00:52:35.690] name <- added[[kk]] 1555s [00:52:35.690] NAME <- NAMES[[kk]] 1555s [00:52:35.690] if (name != NAME && is.element(NAME, old_names)) 1555s [00:52:35.690] next 1555s [00:52:35.690] args[[name]] <- "" 1555s [00:52:35.690] } 1555s [00:52:35.690] NAMES <- toupper(removed) 1555s [00:52:35.690] for (kk in seq_along(NAMES)) { 1555s [00:52:35.690] name <- removed[[kk]] 1555s [00:52:35.690] NAME <- NAMES[[kk]] 1555s [00:52:35.690] if (name != NAME && is.element(NAME, old_names)) 1555s [00:52:35.690] next 1555s [00:52:35.690] args[[name]] <- ...future.oldEnvVars[[name]] 1555s [00:52:35.690] } 1555s [00:52:35.690] if (length(args) > 0) 1555s [00:52:35.690] base::do.call(base::Sys.setenv, args = args) 1555s [00:52:35.690] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1555s [00:52:35.690] } 1555s [00:52:35.690] else { 1555s [00:52:35.690] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1555s [00:52:35.690] } 1555s [00:52:35.690] { 1555s [00:52:35.690] if (base::length(...future.futureOptionsAdded) > 1555s [00:52:35.690] 0L) { 1555s [00:52:35.690] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1555s [00:52:35.690] base::names(opts) <- ...future.futureOptionsAdded 1555s [00:52:35.690] base::options(opts) 1555s [00:52:35.690] } 1555s [00:52:35.690] { 1555s [00:52:35.690] { 1555s [00:52:35.690] NULL 1555s [00:52:35.690] RNGkind("Mersenne-Twister") 1555s [00:52:35.690] base::rm(list = ".Random.seed", envir = base::globalenv(), 1555s [00:52:35.690] inherits = FALSE) 1555s [00:52:35.690] } 1555s [00:52:35.690] options(future.plan = NULL) 1555s [00:52:35.690] if (is.na(NA_character_)) 1555s [00:52:35.690] Sys.unsetenv("R_FUTURE_PLAN") 1555s [00:52:35.690] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1555s [00:52:35.690] future::plan(list(function (..., workers = availableCores(), 1555s [00:52:35.690] lazy = FALSE, rscript_libs = .libPaths(), 1555s [00:52:35.690] envir = parent.frame()) 1555s [00:52:35.690] { 1555s [00:52:35.690] if (is.function(workers)) 1555s [00:52:35.690] workers <- workers() 1555s [00:52:35.690] workers <- structure(as.integer(workers), 1555s [00:52:35.690] class = class(workers)) 1555s [00:52:35.690] stop_if_not(length(workers) == 1, is.finite(workers), 1555s [00:52:35.690] workers >= 1) 1555s [00:52:35.690] if (workers == 1L && !inherits(workers, "AsIs")) { 1555s [00:52:35.690] return(sequential(..., lazy = TRUE, envir = envir)) 1555s [00:52:35.690] } 1555s [00:52:35.690] future <- MultisessionFuture(..., workers = workers, 1555s [00:52:35.690] lazy = lazy, rscript_libs = rscript_libs, 1555s [00:52:35.690] envir = envir) 1555s [00:52:35.690] if (!future$lazy) 1555s [00:52:35.690] future <- run(future) 1555s [00:52:35.690] invisible(future) 1555s [00:52:35.690] }), .cleanup = FALSE, .init = FALSE) 1555s [00:52:35.690] } 1555s [00:52:35.690] } 1555s [00:52:35.690] } 1555s [00:52:35.690] }) 1555s [00:52:35.690] if (TRUE) { 1555s [00:52:35.690] base::sink(type = "output", split = FALSE) 1555s [00:52:35.690] if (TRUE) { 1555s [00:52:35.690] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1555s [00:52:35.690] } 1555s [00:52:35.690] else { 1555s [00:52:35.690] ...future.result["stdout"] <- base::list(NULL) 1555s [00:52:35.690] } 1555s [00:52:35.690] base::close(...future.stdout) 1555s [00:52:35.690] ...future.stdout <- NULL 1555s [00:52:35.690] } 1555s [00:52:35.690] ...future.result$conditions <- ...future.conditions 1555s [00:52:35.690] ...future.result$finished <- base::Sys.time() 1555s [00:52:35.690] ...future.result 1555s [00:52:35.690] } 1555s [00:52:35.697] assign_globals() ... 1555s [00:52:35.698] List of 5 1555s [00:52:35.698] $ ...future.FUN :function (x, ...) 1555s [00:52:35.698] $ future.call.arguments : list() 1555s [00:52:35.698] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1555s [00:52:35.698] $ ...future.elements_ii :List of 1 1555s [00:52:35.698] ..$ b:Classes 'listenv', 'environment' 1555s [00:52:35.698] $ ...future.seeds_ii : NULL 1555s [00:52:35.698] $ ...future.globals.maxSize: NULL 1555s [00:52:35.698] - attr(*, "where")=List of 5 1555s [00:52:35.698] ..$ ...future.FUN : 1555s [00:52:35.698] ..$ future.call.arguments : 1555s [00:52:35.698] ..$ ...future.elements_ii : 1555s [00:52:35.698] ..$ ...future.seeds_ii : 1555s [00:52:35.698] ..$ ...future.globals.maxSize: 1555s [00:52:35.698] - attr(*, "resolved")= logi FALSE 1555s [00:52:35.698] - attr(*, "total_size")= num 4968 1555s [00:52:35.698] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1555s [00:52:35.698] - attr(*, "already-done")= logi TRUE 1555s [00:52:35.708] - copied ‘...future.FUN’ to environment 1555s [00:52:35.708] - copied ‘future.call.arguments’ to environment 1555s [00:52:35.708] - copied ‘...future.elements_ii’ to environment 1555s [00:52:35.708] - copied ‘...future.seeds_ii’ to environment 1555s [00:52:35.708] - copied ‘...future.globals.maxSize’ to environment 1555s [00:52:35.708] assign_globals() ... done 1555s [00:52:35.709] plan(): Setting new future strategy stack: 1555s [00:52:35.709] List of future strategies: 1555s [00:52:35.709] 1. sequential: 1555s [00:52:35.709] - args: function (..., envir = parent.frame()) 1555s [00:52:35.709] - tweaked: FALSE 1555s [00:52:35.709] - call: NULL 1555s [00:52:35.709] plan(): nbrOfWorkers() = 1 1555s [00:52:35.710] plan(): Setting new future strategy stack: 1555s [00:52:35.710] List of future strategies: 1555s [00:52:35.710] 1. multisession: 1555s [00:52:35.710] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1555s [00:52:35.710] - tweaked: FALSE 1555s [00:52:35.710] - call: plan(strategy) 1555s [00:52:35.718] plan(): nbrOfWorkers() = 1 1555s [00:52:35.719] SequentialFuture started (and completed) 1555s [00:52:35.719] - Launch lazy future ... done 1555s [00:52:35.719] run() for ‘SequentialFuture’ ... done 1555s [00:52:35.720] Created future: 1555s [00:52:35.720] SequentialFuture: 1555s [00:52:35.720] Label: ‘future_lapply-2’ 1555s [00:52:35.720] Expression: 1555s [00:52:35.720] { 1555s [00:52:35.720] do.call(function(...) { 1555s [00:52:35.720] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1555s [00:52:35.720] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1555s [00:52:35.720] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1555s [00:52:35.720] on.exit(options(oopts), add = TRUE) 1555s [00:52:35.720] } 1555s [00:52:35.720] { 1555s [00:52:35.720] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1555s [00:52:35.720] ...future.X_jj <- ...future.elements_ii[[jj]] 1555s [00:52:35.720] ...future.FUN(...future.X_jj, ...) 1555s [00:52:35.720] }) 1555s [00:52:35.720] } 1555s [00:52:35.720] }, args = future.call.arguments) 1555s [00:52:35.720] } 1555s [00:52:35.720] Lazy evaluation: FALSE 1555s [00:52:35.720] Asynchronous evaluation: FALSE 1555s [00:52:35.720] Local evaluation: TRUE 1555s [00:52:35.720] Environment: R_GlobalEnv 1555s [00:52:35.720] Capture standard output: TRUE 1555s [00:52:35.720] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1555s [00:52:35.720] Globals: 5 objects totaling 17.79 KiB (function ‘...future.FUN’ of 4.85 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 12.94 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1555s [00:52:35.720] Packages: 1 packages (‘listenv’) 1555s [00:52:35.720] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1555s [00:52:35.720] Resolved: TRUE 1555s [00:52:35.720] Value: 464 bytes of class ‘list’ 1555s [00:52:35.720] Early signaling: FALSE 1555s [00:52:35.720] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1555s [00:52:35.720] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1555s [00:52:35.724] Chunk #2 of 2 ... DONE 1555s [00:52:35.725] Launching 2 futures (chunks) ... DONE 1555s [00:52:35.725] Resolving 2 futures (chunks) ... 1555s [00:52:35.726] resolve() on list ... 1555s [00:52:35.727] recursive: 0 1555s [00:52:35.728] length: 2 1555s [00:52:35.728] 1555s [00:52:35.729] resolved() for ‘SequentialFuture’ ... 1555s [00:52:35.730] - state: ‘finished’ 1555s [00:52:35.730] - run: TRUE 1555s [00:52:35.731] - result: ‘FutureResult’ 1555s [00:52:35.731] resolved() for ‘SequentialFuture’ ... done 1555s [00:52:35.732] Future #1 1555s [00:52:35.732] signalConditionsASAP(SequentialFuture, pos=1) ... 1555s [00:52:35.732] - nx: 2 1555s [00:52:35.732] - relay: TRUE 1555s [00:52:35.733] - stdout: TRUE 1555s [00:52:35.733] - signal: TRUE 1555s [00:52:35.733] - resignal: FALSE 1555s [00:52:35.733] - force: TRUE 1555s [00:52:35.733] - relayed: [n=2] FALSE, FALSE 1555s [00:52:35.734] - queued futures: [n=2] FALSE, FALSE 1555s [00:52:35.734] - until=1 1555s [00:52:35.735] - relaying element #1 1555s [00:52:35.736] - relayed: [n=2] TRUE, FALSE 1555s [00:52:35.736] - queued futures: [n=2] TRUE, FALSE 1555s [00:52:35.736] signalConditionsASAP(SequentialFuture, pos=1) ... done 1555s [00:52:35.736] length: 1 (resolved future 1) 1555s [00:52:35.737] resolved() for ‘SequentialFuture’ ... 1555s [00:52:35.737] - state: ‘finished’ 1555s [00:52:35.737] - run: TRUE 1555s [00:52:35.737] - result: ‘FutureResult’ 1555s [00:52:35.738] resolved() for ‘SequentialFuture’ ... done 1555s [00:52:35.738] Future #2 1555s [00:52:35.738] signalConditionsASAP(SequentialFuture, pos=2) ... 1555s [00:52:35.738] - nx: 2 1555s [00:52:35.738] - relay: TRUE 1555s [00:52:35.738] - stdout: TRUE 1555s [00:52:35.738] - signal: TRUE 1555s [00:52:35.739] - resignal: FALSE 1555s [00:52:35.739] - force: TRUE 1555s [00:52:35.739] - relayed: [n=2] TRUE, FALSE 1555s [00:52:35.739] - queued futures: [n=2] TRUE, FALSE 1555s [00:52:35.739] - until=2 1555s [00:52:35.739] - relaying element #2 1555s [00:52:35.739] - relayed: [n=2] TRUE, TRUE 1555s [00:52:35.740] - queued futures: [n=2] TRUE, TRUE 1555s [00:52:35.740] signalConditionsASAP(SequentialFuture, pos=2) ... done 1555s [00:52:35.740] length: 0 (resolved future 2) 1555s [00:52:35.741] Relaying remaining futures 1555s [00:52:35.741] signalConditionsASAP(NULL, pos=0) ... 1555s [00:52:35.741] - nx: 2 1555s [00:52:35.741] - relay: TRUE 1555s [00:52:35.742] - stdout: TRUE 1555s [00:52:35.742] - signal: TRUE 1555s [00:52:35.742] - resignal: FALSE 1555s [00:52:35.742] - force: TRUE 1555s [00:52:35.743] - relayed: [n=2] TRUE, TRUE 1555s [00:52:35.743] - queued futures: [n=2] TRUE, TRUE 1555s - flush all 1555s [00:52:35.744] - relayed: [n=2] TRUE, TRUE 1555s [00:52:35.744] - queued futures: [n=2] TRUE, TRUE 1555s [00:52:35.744] signalConditionsASAP(NULL, pos=0) ... done 1555s [00:52:35.745] resolve() on list ... DONE 1555s [00:52:35.745] - Number of value chunks collected: 2 1555s [00:52:35.745] Resolving 2 futures (chunks) ... DONE 1555s [00:52:35.746] Reducing values from 2 chunks ... 1555s [00:52:35.746] - Number of values collected after concatenation: 2 1555s [00:52:35.746] - Number of values expected: 2 1555s [00:52:35.746] Reducing values from 2 chunks ... DONE 1555s [00:52:35.746] future_lapply() ... DONE 1555s List of 1 1555s $ y:List of 2 1555s ..$ a: Named chr "A" 1555s .. ..- attr(*, "names")= chr "A" 1555s ..$ b: Named chr [1:2] "A" "B" 1555s .. ..- attr(*, "names")= chr [1:2] "A" "B" 1555s - future_lapply(x, FUN = vector, ...) ... 1555s [00:52:35.750] future_lapply() ... 1555s [00:52:35.755] Number of chunks: 1 1555s [00:52:35.755] getGlobalsAndPackagesXApply() ... 1555s [00:52:35.755] - future.globals: TRUE 1555s [00:52:35.756] getGlobalsAndPackages() ... 1555s [00:52:35.756] Searching for globals... 1555s [00:52:35.758] - globals found: [2] ‘FUN’, ‘.Internal’ 1555s [00:52:35.759] Searching for globals ... DONE 1555s [00:52:35.759] Resolving globals: FALSE 1555s [00:52:35.761] The total size of the 1 globals is 2.13 KiB (2184 bytes) 1555s [00:52:35.762] The total size of the 1 globals exported for future expression (‘FUN(length = 2L)’) is 2.13 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (2.13 KiB of class ‘function’) 1555s [00:52:35.762] - globals: [1] ‘FUN’ 1555s [00:52:35.763] 1555s [00:52:35.763] getGlobalsAndPackages() ... DONE 1555s [00:52:35.763] - globals found/used: [n=1] ‘FUN’ 1555s [00:52:35.764] - needed namespaces: [n=0] 1555s [00:52:35.764] Finding globals ... DONE 1555s [00:52:35.764] - use_args: TRUE 1555s [00:52:35.764] - Getting '...' globals ... 1555s [00:52:35.765] resolve() on list ... 1555s [00:52:35.765] recursive: 0 1555s [00:52:35.766] length: 1 1555s [00:52:35.766] elements: ‘...’ 1555s [00:52:35.767] length: 0 (resolved future 1) 1555s [00:52:35.767] resolve() on list ... DONE 1555s [00:52:35.767] - '...' content: [n=1] ‘length’ 1555s [00:52:35.768] List of 1 1555s [00:52:35.768] $ ...:List of 1 1555s [00:52:35.768] ..$ length: int 2 1555s [00:52:35.768] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1555s [00:52:35.768] - attr(*, "where")=List of 1 1555s [00:52:35.768] ..$ ...: 1555s [00:52:35.768] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1555s [00:52:35.768] - attr(*, "resolved")= logi TRUE 1555s [00:52:35.768] - attr(*, "total_size")= num NA 1555s [00:52:35.773] - Getting '...' globals ... DONE 1555s [00:52:35.778] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1555s [00:52:35.779] List of 2 1555s [00:52:35.779] $ ...future.FUN:function (mode = "logical", length = 0L) 1555s [00:52:35.779] $ ... :List of 1 1555s [00:52:35.779] ..$ length: int 2 1555s [00:52:35.779] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1555s [00:52:35.779] - attr(*, "where")=List of 2 1555s [00:52:35.779] ..$ ...future.FUN: 1555s [00:52:35.779] ..$ ... : 1555s [00:52:35.779] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1555s [00:52:35.779] - attr(*, "resolved")= logi FALSE 1555s [00:52:35.779] - attr(*, "total_size")= num 2240 1555s [00:52:35.785] Packages to be attached in all futures: [n=0] 1555s [00:52:35.786] getGlobalsAndPackagesXApply() ... DONE 1555s [00:52:35.786] Number of futures (= number of chunks): 1 1555s [00:52:35.786] Launching 1 futures (chunks) ... 1555s [00:52:35.786] Chunk #1 of 1 ... 1555s [00:52:35.787] - Finding globals in 'X' for chunk #1 ... 1555s [00:52:35.787] getGlobalsAndPackages() ... 1555s [00:52:35.788] Searching for globals... 1555s [00:52:35.789] 1555s [00:52:35.789] Searching for globals ... DONE 1555s [00:52:35.789] - globals: [0] 1555s [00:52:35.789] getGlobalsAndPackages() ... DONE 1555s [00:52:35.789] + additional globals found: [n=0] 1555s [00:52:35.789] + additional namespaces needed: [n=0] 1555s [00:52:35.790] - Finding globals in 'X' for chunk #1 ... DONE 1555s [00:52:35.790] - seeds: 1555s [00:52:35.790] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1555s [00:52:35.790] getGlobalsAndPackages() ... 1555s [00:52:35.790] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1555s [00:52:35.791] Resolving globals: FALSE 1555s [00:52:35.791] Tweak future expression to call with '...' arguments ... 1555s [00:52:35.791] { 1555s [00:52:35.791] do.call(function(...) { 1555s [00:52:35.791] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1555s [00:52:35.791] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1555s [00:52:35.791] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1555s [00:52:35.791] on.exit(options(oopts), add = TRUE) 1555s [00:52:35.791] } 1555s [00:52:35.791] { 1555s [00:52:35.791] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1555s [00:52:35.791] ...future.X_jj <- ...future.elements_ii[[jj]] 1555s [00:52:35.791] ...future.FUN(...future.X_jj, ...) 1555s [00:52:35.791] }) 1555s [00:52:35.791] } 1555s [00:52:35.791] }, args = future.call.arguments) 1555s [00:52:35.791] } 1555s [00:52:35.792] Tweak future expression to call with '...' arguments ... DONE 1555s [00:52:35.793] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1555s [00:52:35.793] 1555s [00:52:35.793] getGlobalsAndPackages() ... DONE 1555s [00:52:35.794] run() for ‘Future’ ... 1555s [00:52:35.794] - state: ‘created’ 1555s [00:52:35.795] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1555s [00:52:35.799] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1555s [00:52:35.799] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1555s [00:52:35.800] - Field: ‘label’ 1555s [00:52:35.800] - Field: ‘local’ 1555s [00:52:35.800] - Field: ‘owner’ 1555s [00:52:35.800] - Field: ‘envir’ 1555s [00:52:35.800] - Field: ‘packages’ 1555s [00:52:35.801] - Field: ‘gc’ 1555s [00:52:35.801] - Field: ‘conditions’ 1555s [00:52:35.801] - Field: ‘expr’ 1555s [00:52:35.801] - Field: ‘uuid’ 1555s [00:52:35.802] - Field: ‘seed’ 1555s [00:52:35.802] - Field: ‘version’ 1555s [00:52:35.802] - Field: ‘result’ 1555s [00:52:35.802] - Field: ‘asynchronous’ 1555s [00:52:35.803] - Field: ‘calls’ 1555s [00:52:35.803] - Field: ‘globals’ 1555s [00:52:35.803] - Field: ‘stdout’ 1555s [00:52:35.803] - Field: ‘earlySignal’ 1555s [00:52:35.803] - Field: ‘lazy’ 1555s [00:52:35.803] - Field: ‘state’ 1555s [00:52:35.803] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1555s [00:52:35.804] - Launch lazy future ... 1555s [00:52:35.804] Packages needed by the future expression (n = 0): 1555s [00:52:35.804] Packages needed by future strategies (n = 0): 1555s [00:52:35.805] { 1555s [00:52:35.805] { 1555s [00:52:35.805] { 1555s [00:52:35.805] ...future.startTime <- base::Sys.time() 1555s [00:52:35.805] { 1555s [00:52:35.805] { 1555s [00:52:35.805] { 1555s [00:52:35.805] base::local({ 1555s [00:52:35.805] has_future <- base::requireNamespace("future", 1555s [00:52:35.805] quietly = TRUE) 1555s [00:52:35.805] if (has_future) { 1555s [00:52:35.805] ns <- base::getNamespace("future") 1555s [00:52:35.805] version <- ns[[".package"]][["version"]] 1555s [00:52:35.805] if (is.null(version)) 1555s [00:52:35.805] version <- utils::packageVersion("future") 1555s [00:52:35.805] } 1555s [00:52:35.805] else { 1555s [00:52:35.805] version <- NULL 1555s [00:52:35.805] } 1555s [00:52:35.805] if (!has_future || version < "1.8.0") { 1555s [00:52:35.805] info <- base::c(r_version = base::gsub("R version ", 1555s [00:52:35.805] "", base::R.version$version.string), 1555s [00:52:35.805] platform = base::sprintf("%s (%s-bit)", 1555s [00:52:35.805] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1555s [00:52:35.805] os = base::paste(base::Sys.info()[base::c("sysname", 1555s [00:52:35.805] "release", "version")], collapse = " "), 1555s [00:52:35.805] hostname = base::Sys.info()[["nodename"]]) 1555s [00:52:35.805] info <- base::sprintf("%s: %s", base::names(info), 1555s [00:52:35.805] info) 1555s [00:52:35.805] info <- base::paste(info, collapse = "; ") 1555s [00:52:35.805] if (!has_future) { 1555s [00:52:35.805] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1555s [00:52:35.805] info) 1555s [00:52:35.805] } 1555s [00:52:35.805] else { 1555s [00:52:35.805] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1555s [00:52:35.805] info, version) 1555s [00:52:35.805] } 1555s [00:52:35.805] base::stop(msg) 1555s [00:52:35.805] } 1555s [00:52:35.805] }) 1555s [00:52:35.805] } 1555s [00:52:35.805] options(future.plan = NULL) 1555s [00:52:35.805] Sys.unsetenv("R_FUTURE_PLAN") 1555s [00:52:35.805] future::plan("default", .cleanup = FALSE, .init = FALSE) 1555s [00:52:35.805] } 1555s [00:52:35.805] ...future.workdir <- getwd() 1555s [00:52:35.805] } 1555s [00:52:35.805] ...future.oldOptions <- base::as.list(base::.Options) 1555s [00:52:35.805] ...future.oldEnvVars <- base::Sys.getenv() 1555s [00:52:35.805] } 1555s [00:52:35.805] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1555s [00:52:35.805] future.globals.maxSize = NULL, future.globals.method = NULL, 1555s [00:52:35.805] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1555s [00:52:35.805] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1555s [00:52:35.805] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1555s [00:52:35.805] future.stdout.windows.reencode = NULL, width = 80L) 1555s [00:52:35.805] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1555s [00:52:35.805] base::names(...future.oldOptions)) 1555s [00:52:35.805] } 1555s [00:52:35.805] if (FALSE) { 1555s [00:52:35.805] } 1555s [00:52:35.805] else { 1555s [00:52:35.805] if (TRUE) { 1555s [00:52:35.805] ...future.stdout <- base::rawConnection(base::raw(0L), 1555s [00:52:35.805] open = "w") 1555s [00:52:35.805] } 1555s [00:52:35.805] else { 1555s [00:52:35.805] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1555s [00:52:35.805] windows = "NUL", "/dev/null"), open = "w") 1555s [00:52:35.805] } 1555s [00:52:35.805] base::sink(...future.stdout, type = "output", split = FALSE) 1555s [00:52:35.805] base::on.exit(if (!base::is.null(...future.stdout)) { 1555s [00:52:35.805] base::sink(type = "output", split = FALSE) 1555s [00:52:35.805] base::close(...future.stdout) 1555s [00:52:35.805] }, add = TRUE) 1555s [00:52:35.805] } 1555s [00:52:35.805] ...future.frame <- base::sys.nframe() 1555s [00:52:35.805] ...future.conditions <- base::list() 1555s [00:52:35.805] ...future.rng <- base::globalenv()$.Random.seed 1555s [00:52:35.805] if (FALSE) { 1555s [00:52:35.805] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1555s [00:52:35.805] "...future.value", "...future.globalenv.names", ".Random.seed") 1555s [00:52:35.805] } 1555s [00:52:35.805] ...future.result <- base::tryCatch({ 1555s [00:52:35.805] base::withCallingHandlers({ 1555s [00:52:35.805] ...future.value <- base::withVisible(base::local({ 1555s [00:52:35.805] do.call(function(...) { 1555s [00:52:35.805] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1555s [00:52:35.805] if (!identical(...future.globals.maxSize.org, 1555s [00:52:35.805] ...future.globals.maxSize)) { 1555s [00:52:35.805] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1555s [00:52:35.805] on.exit(options(oopts), add = TRUE) 1555s [00:52:35.805] } 1555s [00:52:35.805] { 1555s [00:52:35.805] lapply(seq_along(...future.elements_ii), 1555s [00:52:35.805] FUN = function(jj) { 1555s [00:52:35.805] ...future.X_jj <- ...future.elements_ii[[jj]] 1555s [00:52:35.805] ...future.FUN(...future.X_jj, ...) 1555s [00:52:35.805] }) 1555s [00:52:35.805] } 1555s [00:52:35.805] }, args = future.call.arguments) 1555s [00:52:35.805] })) 1555s [00:52:35.805] future::FutureResult(value = ...future.value$value, 1555s [00:52:35.805] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1555s [00:52:35.805] ...future.rng), globalenv = if (FALSE) 1555s [00:52:35.805] list(added = base::setdiff(base::names(base::.GlobalEnv), 1555s [00:52:35.805] ...future.globalenv.names)) 1555s [00:52:35.805] else NULL, started = ...future.startTime, version = "1.8") 1555s [00:52:35.805] }, condition = base::local({ 1555s [00:52:35.805] c <- base::c 1555s [00:52:35.805] inherits <- base::inherits 1555s [00:52:35.805] invokeRestart <- base::invokeRestart 1555s [00:52:35.805] length <- base::length 1555s [00:52:35.805] list <- base::list 1555s [00:52:35.805] seq.int <- base::seq.int 1555s [00:52:35.805] signalCondition <- base::signalCondition 1555s [00:52:35.805] sys.calls <- base::sys.calls 1555s [00:52:35.805] `[[` <- base::`[[` 1555s [00:52:35.805] `+` <- base::`+` 1555s [00:52:35.805] `<<-` <- base::`<<-` 1555s [00:52:35.805] sysCalls <- function(calls = sys.calls(), from = 1L) { 1555s [00:52:35.805] calls[seq.int(from = from + 12L, to = length(calls) - 1555s [00:52:35.805] 3L)] 1555s [00:52:35.805] } 1555s [00:52:35.805] function(cond) { 1555s [00:52:35.805] is_error <- inherits(cond, "error") 1555s [00:52:35.805] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1555s [00:52:35.805] NULL) 1555s [00:52:35.805] if (is_error) { 1555s [00:52:35.805] sessionInformation <- function() { 1555s [00:52:35.805] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1555s [00:52:35.805] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1555s [00:52:35.805] search = base::search(), system = base::Sys.info()) 1555s [00:52:35.805] } 1555s [00:52:35.805] ...future.conditions[[length(...future.conditions) + 1555s [00:52:35.805] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1555s [00:52:35.805] cond$call), session = sessionInformation(), 1555s [00:52:35.805] timestamp = base::Sys.time(), signaled = 0L) 1555s [00:52:35.805] signalCondition(cond) 1555s [00:52:35.805] } 1555s [00:52:35.805] else if (!ignore && TRUE && inherits(cond, c("condition", 1555s [00:52:35.805] "immediateCondition"))) { 1555s [00:52:35.805] signal <- TRUE && inherits(cond, "immediateCondition") 1555s [00:52:35.805] ...future.conditions[[length(...future.conditions) + 1555s [00:52:35.805] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1555s [00:52:35.805] if (TRUE && !signal) { 1555s [00:52:35.805] muffleCondition <- function (cond, pattern = "^muffle") 1555s [00:52:35.805] { 1555s [00:52:35.805] inherits <- base::inherits 1555s [00:52:35.805] invokeRestart <- base::invokeRestart 1555s [00:52:35.805] is.null <- base::is.null 1555s [00:52:35.805] muffled <- FALSE 1555s [00:52:35.805] if (inherits(cond, "message")) { 1555s [00:52:35.805] muffled <- grepl(pattern, "muffleMessage") 1555s [00:52:35.805] if (muffled) 1555s [00:52:35.805] invokeRestart("muffleMessage") 1555s [00:52:35.805] } 1555s [00:52:35.805] else if (inherits(cond, "warning")) { 1555s [00:52:35.805] muffled <- grepl(pattern, "muffleWarning") 1555s [00:52:35.805] if (muffled) 1555s [00:52:35.805] invokeRestart("muffleWarning") 1555s [00:52:35.805] } 1555s [00:52:35.805] else if (inherits(cond, "condition")) { 1555s [00:52:35.805] if (!is.null(pattern)) { 1555s [00:52:35.805] computeRestarts <- base::computeRestarts 1555s [00:52:35.805] grepl <- base::grepl 1555s [00:52:35.805] restarts <- computeRestarts(cond) 1555s [00:52:35.805] for (restart in restarts) { 1555s [00:52:35.805] name <- restart$name 1555s [00:52:35.805] if (is.null(name)) 1555s [00:52:35.805] next 1555s [00:52:35.805] if (!grepl(pattern, name)) 1555s [00:52:35.805] next 1555s [00:52:35.805] invokeRestart(restart) 1555s [00:52:35.805] muffled <- TRUE 1555s [00:52:35.805] break 1555s [00:52:35.805] } 1555s [00:52:35.805] } 1555s [00:52:35.805] } 1555s [00:52:35.805] invisible(muffled) 1555s [00:52:35.805] } 1555s [00:52:35.805] muffleCondition(cond, pattern = "^muffle") 1555s [00:52:35.805] } 1555s [00:52:35.805] } 1555s [00:52:35.805] else { 1555s [00:52:35.805] if (TRUE) { 1555s [00:52:35.805] muffleCondition <- function (cond, pattern = "^muffle") 1555s [00:52:35.805] { 1555s [00:52:35.805] inherits <- base::inherits 1555s [00:52:35.805] invokeRestart <- base::invokeRestart 1555s [00:52:35.805] is.null <- base::is.null 1555s [00:52:35.805] muffled <- FALSE 1555s [00:52:35.805] if (inherits(cond, "message")) { 1555s [00:52:35.805] muffled <- grepl(pattern, "muffleMessage") 1555s [00:52:35.805] if (muffled) 1555s [00:52:35.805] invokeRestart("muffleMessage") 1555s [00:52:35.805] } 1555s [00:52:35.805] else if (inherits(cond, "warning")) { 1555s [00:52:35.805] muffled <- grepl(pattern, "muffleWarning") 1555s [00:52:35.805] if (muffled) 1555s [00:52:35.805] invokeRestart("muffleWarning") 1555s [00:52:35.805] } 1555s [00:52:35.805] else if (inherits(cond, "condition")) { 1555s [00:52:35.805] if (!is.null(pattern)) { 1555s [00:52:35.805] computeRestarts <- base::computeRestarts 1555s [00:52:35.805] grepl <- base::grepl 1555s [00:52:35.805] restarts <- computeRestarts(cond) 1555s [00:52:35.805] for (restart in restarts) { 1555s [00:52:35.805] name <- restart$name 1555s [00:52:35.805] if (is.null(name)) 1555s [00:52:35.805] next 1555s [00:52:35.805] if (!grepl(pattern, name)) 1555s [00:52:35.805] next 1555s [00:52:35.805] invokeRestart(restart) 1555s [00:52:35.805] muffled <- TRUE 1555s [00:52:35.805] break 1555s [00:52:35.805] } 1555s [00:52:35.805] } 1555s [00:52:35.805] } 1555s [00:52:35.805] invisible(muffled) 1555s [00:52:35.805] } 1555s [00:52:35.805] muffleCondition(cond, pattern = "^muffle") 1555s [00:52:35.805] } 1555s [00:52:35.805] } 1555s [00:52:35.805] } 1555s [00:52:35.805] })) 1555s [00:52:35.805] }, error = function(ex) { 1555s [00:52:35.805] base::structure(base::list(value = NULL, visible = NULL, 1555s [00:52:35.805] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1555s [00:52:35.805] ...future.rng), started = ...future.startTime, 1555s [00:52:35.805] finished = Sys.time(), session_uuid = NA_character_, 1555s [00:52:35.805] version = "1.8"), class = "FutureResult") 1555s [00:52:35.805] }, finally = { 1555s [00:52:35.805] if (!identical(...future.workdir, getwd())) 1555s [00:52:35.805] setwd(...future.workdir) 1555s [00:52:35.805] { 1555s [00:52:35.805] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1555s [00:52:35.805] ...future.oldOptions$nwarnings <- NULL 1555s [00:52:35.805] } 1555s [00:52:35.805] base::options(...future.oldOptions) 1555s [00:52:35.805] if (.Platform$OS.type == "windows") { 1555s [00:52:35.805] old_names <- names(...future.oldEnvVars) 1555s [00:52:35.805] envs <- base::Sys.getenv() 1555s [00:52:35.805] names <- names(envs) 1555s [00:52:35.805] common <- intersect(names, old_names) 1555s [00:52:35.805] added <- setdiff(names, old_names) 1555s [00:52:35.805] removed <- setdiff(old_names, names) 1555s [00:52:35.805] changed <- common[...future.oldEnvVars[common] != 1555s [00:52:35.805] envs[common]] 1555s [00:52:35.805] NAMES <- toupper(changed) 1555s [00:52:35.805] args <- list() 1555s [00:52:35.805] for (kk in seq_along(NAMES)) { 1555s [00:52:35.805] name <- changed[[kk]] 1555s [00:52:35.805] NAME <- NAMES[[kk]] 1555s [00:52:35.805] if (name != NAME && is.element(NAME, old_names)) 1555s [00:52:35.805] next 1555s [00:52:35.805] args[[name]] <- ...future.oldEnvVars[[name]] 1555s [00:52:35.805] } 1555s [00:52:35.805] NAMES <- toupper(added) 1555s [00:52:35.805] for (kk in seq_along(NAMES)) { 1555s [00:52:35.805] name <- added[[kk]] 1555s [00:52:35.805] NAME <- NAMES[[kk]] 1555s [00:52:35.805] if (name != NAME && is.element(NAME, old_names)) 1555s [00:52:35.805] next 1555s [00:52:35.805] args[[name]] <- "" 1555s [00:52:35.805] } 1555s [00:52:35.805] NAMES <- toupper(removed) 1555s [00:52:35.805] for (kk in seq_along(NAMES)) { 1555s [00:52:35.805] name <- removed[[kk]] 1555s [00:52:35.805] NAME <- NAMES[[kk]] 1555s [00:52:35.805] if (name != NAME && is.element(NAME, old_names)) 1555s [00:52:35.805] next 1555s [00:52:35.805] args[[name]] <- ...future.oldEnvVars[[name]] 1555s [00:52:35.805] } 1555s [00:52:35.805] if (length(args) > 0) 1555s [00:52:35.805] base::do.call(base::Sys.setenv, args = args) 1555s [00:52:35.805] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1555s [00:52:35.805] } 1555s [00:52:35.805] else { 1555s [00:52:35.805] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1555s [00:52:35.805] } 1555s [00:52:35.805] { 1555s [00:52:35.805] if (base::length(...future.futureOptionsAdded) > 1555s [00:52:35.805] 0L) { 1555s [00:52:35.805] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1555s [00:52:35.805] base::names(opts) <- ...future.futureOptionsAdded 1555s [00:52:35.805] base::options(opts) 1555s [00:52:35.805] } 1555s [00:52:35.805] { 1555s [00:52:35.805] { 1555s [00:52:35.805] NULL 1555s [00:52:35.805] RNGkind("Mersenne-Twister") 1555s [00:52:35.805] base::rm(list = ".Random.seed", envir = base::globalenv(), 1555s [00:52:35.805] inherits = FALSE) 1555s [00:52:35.805] } 1555s [00:52:35.805] options(future.plan = NULL) 1555s [00:52:35.805] if (is.na(NA_character_)) 1555s [00:52:35.805] Sys.unsetenv("R_FUTURE_PLAN") 1555s [00:52:35.805] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1555s [00:52:35.805] future::plan(list(function (..., workers = availableCores(), 1555s [00:52:35.805] lazy = FALSE, rscript_libs = .libPaths(), 1555s [00:52:35.805] envir = parent.frame()) 1555s [00:52:35.805] { 1555s [00:52:35.805] if (is.function(workers)) 1555s [00:52:35.805] workers <- workers() 1555s [00:52:35.805] workers <- structure(as.integer(workers), 1555s [00:52:35.805] class = class(workers)) 1555s [00:52:35.805] stop_if_not(length(workers) == 1, is.finite(workers), 1555s [00:52:35.805] workers >= 1) 1555s [00:52:35.805] if (workers == 1L && !inherits(workers, "AsIs")) { 1555s [00:52:35.805] return(sequential(..., lazy = TRUE, envir = envir)) 1555s [00:52:35.805] } 1555s [00:52:35.805] future <- MultisessionFuture(..., workers = workers, 1555s [00:52:35.805] lazy = lazy, rscript_libs = rscript_libs, 1555s [00:52:35.805] envir = envir) 1555s [00:52:35.805] if (!future$lazy) 1555s [00:52:35.805] future <- run(future) 1555s [00:52:35.805] invisible(future) 1555s [00:52:35.805] }), .cleanup = FALSE, .init = FALSE) 1555s [00:52:35.805] } 1555s [00:52:35.805] } 1555s [00:52:35.805] } 1555s [00:52:35.805] }) 1555s [00:52:35.805] if (TRUE) { 1555s [00:52:35.805] base::sink(type = "output", split = FALSE) 1555s [00:52:35.805] if (TRUE) { 1555s [00:52:35.805] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1555s [00:52:35.805] } 1555s [00:52:35.805] else { 1555s [00:52:35.805] ...future.result["stdout"] <- base::list(NULL) 1555s [00:52:35.805] } 1555s [00:52:35.805] base::close(...future.stdout) 1555s [00:52:35.805] ...future.stdout <- NULL 1555s [00:52:35.805] } 1555s [00:52:35.805] ...future.result$conditions <- ...future.conditions 1555s [00:52:35.805] ...future.result$finished <- base::Sys.time() 1555s [00:52:35.805] ...future.result 1555s [00:52:35.805] } 1555s [00:52:35.808] assign_globals() ... 1555s [00:52:35.808] List of 5 1555s [00:52:35.808] $ ...future.FUN :function (mode = "logical", length = 0L) 1555s [00:52:35.808] $ future.call.arguments :List of 1 1555s [00:52:35.808] ..$ length: int 2 1555s [00:52:35.808] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1555s [00:52:35.808] $ ...future.elements_ii :List of 4 1555s [00:52:35.808] ..$ a: chr "integer" 1555s [00:52:35.808] ..$ b: chr "numeric" 1555s [00:52:35.808] ..$ c: chr "character" 1555s [00:52:35.808] ..$ c: chr "list" 1555s [00:52:35.808] $ ...future.seeds_ii : NULL 1555s [00:52:35.808] $ ...future.globals.maxSize: NULL 1555s [00:52:35.808] - attr(*, "where")=List of 5 1555s [00:52:35.808] ..$ ...future.FUN : 1555s [00:52:35.808] ..$ future.call.arguments : 1555s [00:52:35.808] ..$ ...future.elements_ii : 1555s [00:52:35.808] ..$ ...future.seeds_ii : 1555s [00:52:35.808] ..$ ...future.globals.maxSize: 1555s [00:52:35.808] - attr(*, "resolved")= logi FALSE 1555s [00:52:35.808] - attr(*, "total_size")= num 2240 1555s [00:52:35.808] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1555s [00:52:35.808] - attr(*, "already-done")= logi TRUE 1555s [00:52:35.831] - copied ‘...future.FUN’ to environment 1555s [00:52:35.831] - copied ‘future.call.arguments’ to environment 1555s [00:52:35.831] - copied ‘...future.elements_ii’ to environment 1555s [00:52:35.832] - copied ‘...future.seeds_ii’ to environment 1555s [00:52:35.832] - copied ‘...future.globals.maxSize’ to environment 1555s [00:52:35.832] assign_globals() ... done 1555s [00:52:35.833] plan(): Setting new future strategy stack: 1555s [00:52:35.833] List of future strategies: 1555s [00:52:35.833] 1. sequential: 1555s [00:52:35.833] - args: function (..., envir = parent.frame()) 1555s [00:52:35.833] - tweaked: FALSE 1555s [00:52:35.833] - call: NULL 1555s [00:52:35.833] plan(): nbrOfWorkers() = 1 1555s [00:52:35.835] plan(): Setting new future strategy stack: 1555s [00:52:35.835] List of future strategies: 1555s [00:52:35.835] 1. multisession: 1555s [00:52:35.835] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1555s [00:52:35.835] - tweaked: FALSE 1555s [00:52:35.835] - call: plan(strategy) 1555s [00:52:35.839] plan(): nbrOfWorkers() = 1 1555s [00:52:35.839] SequentialFuture started (and completed) 1555s [00:52:35.840] - Launch lazy future ... done 1555s [00:52:35.840] run() for ‘SequentialFuture’ ... done 1555s [00:52:35.841] Created future: 1555s [00:52:35.841] SequentialFuture: 1555s [00:52:35.841] Label: ‘future_lapply-1’ 1555s [00:52:35.841] Expression: 1555s [00:52:35.841] { 1555s [00:52:35.841] do.call(function(...) { 1555s [00:52:35.841] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1555s [00:52:35.841] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1555s [00:52:35.841] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1555s [00:52:35.841] on.exit(options(oopts), add = TRUE) 1555s [00:52:35.841] } 1555s [00:52:35.841] { 1555s [00:52:35.841] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1555s [00:52:35.841] ...future.X_jj <- ...future.elements_ii[[jj]] 1555s [00:52:35.841] ...future.FUN(...future.X_jj, ...) 1555s [00:52:35.841] }) 1555s [00:52:35.841] } 1555s [00:52:35.841] }, args = future.call.arguments) 1555s [00:52:35.841] } 1555s [00:52:35.841] Lazy evaluation: FALSE 1555s [00:52:35.841] Asynchronous evaluation: FALSE 1555s [00:52:35.841] Local evaluation: TRUE 1555s [00:52:35.841] Environment: R_GlobalEnv 1555s [00:52:35.841] Capture standard output: TRUE 1555s [00:52:35.841] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1555s [00:52:35.841] Globals: 5 objects totaling 2.63 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 456 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1555s [00:52:35.841] Packages: 1555s [00:52:35.841] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1555s [00:52:35.841] Resolved: TRUE 1555s [00:52:35.841] Value: 240 bytes of class ‘list’ 1555s [00:52:35.841] Early signaling: FALSE 1555s [00:52:35.841] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1555s [00:52:35.841] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1555s [00:52:35.844] Chunk #1 of 1 ... DONE 1555s [00:52:35.844] Launching 1 futures (chunks) ... DONE 1555s [00:52:35.845] Resolving 1 futures (chunks) ... 1555s [00:52:35.845] resolve() on list ... 1555s [00:52:35.845] recursive: 0 1555s [00:52:35.845] length: 1 1555s [00:52:35.845] 1555s [00:52:35.845] resolved() for ‘SequentialFuture’ ... 1555s [00:52:35.846] - state: ‘finished’ 1555s [00:52:35.846] - run: TRUE 1555s [00:52:35.846] - result: ‘FutureResult’ 1555s [00:52:35.846] resolved() for ‘SequentialFuture’ ... done 1555s [00:52:35.846] Future #1 1555s [00:52:35.846] signalConditionsASAP(SequentialFuture, pos=1) ... 1555s [00:52:35.847] - nx: 1 1555s [00:52:35.847] - relay: TRUE 1555s [00:52:35.847] - stdout: TRUE 1555s [00:52:35.847] - signal: TRUE 1555s [00:52:35.847] - resignal: FALSE 1555s [00:52:35.847] - force: TRUE 1555s [00:52:35.848] - relayed: [n=1] FALSE 1555s [00:52:35.848] - queued futures: [n=1] FALSE 1555s [00:52:35.848] - until=1 1555s [00:52:35.848] - relaying element #1 1555s [00:52:35.848] - relayed: [n=1] TRUE 1555s [00:52:35.848] - queued futures: [n=1] TRUE 1555s [00:52:35.849] signalConditionsASAP(SequentialFuture, pos=1) ... done 1555s [00:52:35.849] length: 0 (resolved future 1) 1555s [00:52:35.849] Relaying remaining futures 1555s [00:52:35.849] signalConditionsASAP(NULL, pos=0) ... 1555s [00:52:35.849] - nx: 1 1555s [00:52:35.849] - relay: TRUE 1555s [00:52:35.849] - stdout: TRUE 1555s [00:52:35.850] - signal: TRUE 1555s [00:52:35.850] - resignal: FALSE 1555s [00:52:35.850] - force: TRUE 1555s [00:52:35.850] - relayed: [n=1] TRUE 1555s [00:52:35.850] - queued futures: [n=1] TRUE 1555s - flush all 1555s [00:52:35.851] - relayed: [n=1] TRUE 1555s [00:52:35.851] - queued futures: [n=1] TRUE 1555s [00:52:35.851] signalConditionsASAP(NULL, pos=0) ... done 1555s [00:52:35.851] resolve() on list ... DONE 1555s [00:52:35.852] - Number of value chunks collected: 1 1555s [00:52:35.852] Resolving 1 futures (chunks) ... DONE 1555s [00:52:35.852] Reducing values from 1 chunks ... 1555s [00:52:35.853] - Number of values collected after concatenation: 4 1555s [00:52:35.853] - Number of values expected: 4 1555s [00:52:35.853] Reducing values from 1 chunks ... DONE 1555s [00:52:35.853] future_lapply() ... DONE 1555s List of 1 1555s $ y:List of 4 1555s ..$ a: int [1:2] 0 0 1555s ..$ b: num [1:2] 0 0 1555s ..$ c: chr [1:2] "" "" 1555s ..$ c:List of 2 1555s .. ..$ : NULL 1555s .. ..$ : NULL 1555s [00:52:35.859] future_lapply() ... 1555s [00:52:35.866] Number of chunks: 1 1555s [00:52:35.866] getGlobalsAndPackagesXApply() ... 1555s [00:52:35.866] - future.globals: TRUE 1555s [00:52:35.866] getGlobalsAndPackages() ... 1555s [00:52:35.866] Searching for globals... 1555s [00:52:35.868] - globals found: [2] ‘FUN’, ‘.Internal’ 1555s [00:52:35.868] Searching for globals ... DONE 1555s [00:52:35.869] Resolving globals: FALSE 1555s [00:52:35.869] The total size of the 1 globals is 2.13 KiB (2184 bytes) 1555s [00:52:35.870] The total size of the 1 globals exported for future expression (‘FUN(length = 2L)’) is 2.13 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (2.13 KiB of class ‘function’) 1555s [00:52:35.870] - globals: [1] ‘FUN’ 1555s [00:52:35.870] 1555s [00:52:35.871] getGlobalsAndPackages() ... DONE 1555s [00:52:35.871] - globals found/used: [n=1] ‘FUN’ 1555s [00:52:35.871] - needed namespaces: [n=0] 1555s [00:52:35.871] Finding globals ... DONE 1555s [00:52:35.872] - use_args: TRUE 1555s [00:52:35.872] - Getting '...' globals ... 1555s [00:52:35.873] resolve() on list ... 1555s [00:52:35.873] recursive: 0 1555s [00:52:35.873] length: 1 1555s [00:52:35.873] elements: ‘...’ 1555s [00:52:35.874] length: 0 (resolved future 1) 1555s [00:52:35.874] resolve() on list ... DONE 1555s [00:52:35.874] - '...' content: [n=1] ‘length’ 1555s [00:52:35.875] List of 1 1555s [00:52:35.875] $ ...:List of 1 1555s [00:52:35.875] ..$ length: int 2 1555s [00:52:35.875] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1555s [00:52:35.875] - attr(*, "where")=List of 1 1555s [00:52:35.875] ..$ ...: 1555s [00:52:35.875] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1555s [00:52:35.875] - attr(*, "resolved")= logi TRUE 1555s [00:52:35.875] - attr(*, "total_size")= num NA 1555s [00:52:35.880] - Getting '...' globals ... DONE 1555s [00:52:35.881] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1555s [00:52:35.881] List of 2 1555s [00:52:35.881] $ ...future.FUN:function (mode = "logical", length = 0L) 1555s [00:52:35.881] $ ... :List of 1 1555s [00:52:35.881] ..$ length: int 2 1555s [00:52:35.881] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1555s [00:52:35.881] - attr(*, "where")=List of 2 1555s [00:52:35.881] ..$ ...future.FUN: 1555s [00:52:35.881] ..$ ... : 1555s [00:52:35.881] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1555s [00:52:35.881] - attr(*, "resolved")= logi FALSE 1555s [00:52:35.881] - attr(*, "total_size")= num 2240 1555s [00:52:35.886] Packages to be attached in all futures: [n=0] 1555s [00:52:35.886] getGlobalsAndPackagesXApply() ... DONE 1555s [00:52:35.887] Number of futures (= number of chunks): 1 1555s [00:52:35.887] Launching 1 futures (chunks) ... 1555s [00:52:35.887] Chunk #1 of 1 ... 1555s [00:52:35.887] - Finding globals in 'X' for chunk #1 ... 1555s [00:52:35.887] getGlobalsAndPackages() ... 1555s [00:52:35.888] Searching for globals... 1555s [00:52:35.888] 1555s [00:52:35.888] Searching for globals ... DONE 1555s [00:52:35.888] - globals: [0] 1555s [00:52:35.888] getGlobalsAndPackages() ... DONE 1555s [00:52:35.889] + additional globals found: [n=0] 1555s [00:52:35.889] + additional namespaces needed: [n=0] 1555s [00:52:35.889] - Finding globals in 'X' for chunk #1 ... DONE 1555s [00:52:35.889] - seeds: 1555s [00:52:35.889] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1555s [00:52:35.889] getGlobalsAndPackages() ... 1555s [00:52:35.889] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1555s [00:52:35.890] Resolving globals: FALSE 1555s [00:52:35.890] Tweak future expression to call with '...' arguments ... 1555s [00:52:35.890] { 1555s [00:52:35.890] do.call(function(...) { 1555s [00:52:35.890] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1555s [00:52:35.890] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1555s [00:52:35.890] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1555s [00:52:35.890] on.exit(options(oopts), add = TRUE) 1555s [00:52:35.890] } 1555s [00:52:35.890] { 1555s [00:52:35.890] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1555s [00:52:35.890] ...future.X_jj <- ...future.elements_ii[[jj]] 1555s [00:52:35.890] ...future.FUN(...future.X_jj, ...) 1555s [00:52:35.890] }) 1555s [00:52:35.890] } 1555s [00:52:35.890] }, args = future.call.arguments) 1555s [00:52:35.890] } 1555s [00:52:35.890] Tweak future expression to call with '...' arguments ... DONE 1555s [00:52:35.891] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1555s [00:52:35.891] 1555s [00:52:35.891] getGlobalsAndPackages() ... DONE 1555s [00:52:35.892] run() for ‘Future’ ... 1555s [00:52:35.892] - state: ‘created’ 1555s [00:52:35.892] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1555s [00:52:35.896] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1555s [00:52:35.896] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1555s [00:52:35.896] - Field: ‘label’ 1555s [00:52:35.896] - Field: ‘local’ 1555s [00:52:35.896] - Field: ‘owner’ 1555s [00:52:35.897] - Field: ‘envir’ 1555s [00:52:35.897] - Field: ‘packages’ 1555s [00:52:35.897] - Field: ‘gc’ 1555s [00:52:35.898] - Field: ‘conditions’ 1555s [00:52:35.898] - Field: ‘expr’ 1555s [00:52:35.898] - Field: ‘uuid’ 1555s [00:52:35.898] - Field: ‘seed’ 1555s [00:52:35.898] - Field: ‘version’ 1555s [00:52:35.899] - Field: ‘result’ 1555s [00:52:35.899] - Field: ‘asynchronous’ 1555s [00:52:35.899] - Field: ‘calls’ 1555s [00:52:35.899] - Field: ‘globals’ 1555s [00:52:35.900] - Field: ‘stdout’ 1555s [00:52:35.900] - Field: ‘earlySignal’ 1555s [00:52:35.900] - Field: ‘lazy’ 1555s [00:52:35.900] - Field: ‘state’ 1555s [00:52:35.900] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1555s [00:52:35.901] - Launch lazy future ... 1555s [00:52:35.901] Packages needed by the future expression (n = 0): 1555s [00:52:35.901] Packages needed by future strategies (n = 0): 1555s [00:52:35.902] { 1555s [00:52:35.902] { 1555s [00:52:35.902] { 1555s [00:52:35.902] ...future.startTime <- base::Sys.time() 1555s [00:52:35.902] { 1555s [00:52:35.902] { 1555s [00:52:35.902] { 1555s [00:52:35.902] base::local({ 1555s [00:52:35.902] has_future <- base::requireNamespace("future", 1555s [00:52:35.902] quietly = TRUE) 1555s [00:52:35.902] if (has_future) { 1555s [00:52:35.902] ns <- base::getNamespace("future") 1555s [00:52:35.902] version <- ns[[".package"]][["version"]] 1555s [00:52:35.902] if (is.null(version)) 1555s [00:52:35.902] version <- utils::packageVersion("future") 1555s [00:52:35.902] } 1555s [00:52:35.902] else { 1555s [00:52:35.902] version <- NULL 1555s [00:52:35.902] } 1555s [00:52:35.902] if (!has_future || version < "1.8.0") { 1555s [00:52:35.902] info <- base::c(r_version = base::gsub("R version ", 1555s [00:52:35.902] "", base::R.version$version.string), 1555s [00:52:35.902] platform = base::sprintf("%s (%s-bit)", 1555s [00:52:35.902] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1555s [00:52:35.902] os = base::paste(base::Sys.info()[base::c("sysname", 1555s [00:52:35.902] "release", "version")], collapse = " "), 1555s [00:52:35.902] hostname = base::Sys.info()[["nodename"]]) 1555s [00:52:35.902] info <- base::sprintf("%s: %s", base::names(info), 1555s [00:52:35.902] info) 1555s [00:52:35.902] info <- base::paste(info, collapse = "; ") 1555s [00:52:35.902] if (!has_future) { 1555s [00:52:35.902] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1555s [00:52:35.902] info) 1555s [00:52:35.902] } 1555s [00:52:35.902] else { 1555s [00:52:35.902] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1555s [00:52:35.902] info, version) 1555s [00:52:35.902] } 1555s [00:52:35.902] base::stop(msg) 1555s [00:52:35.902] } 1555s [00:52:35.902] }) 1555s [00:52:35.902] } 1555s [00:52:35.902] options(future.plan = NULL) 1555s [00:52:35.902] Sys.unsetenv("R_FUTURE_PLAN") 1555s [00:52:35.902] future::plan("default", .cleanup = FALSE, .init = FALSE) 1555s [00:52:35.902] } 1555s [00:52:35.902] ...future.workdir <- getwd() 1555s [00:52:35.902] } 1555s [00:52:35.902] ...future.oldOptions <- base::as.list(base::.Options) 1555s [00:52:35.902] ...future.oldEnvVars <- base::Sys.getenv() 1555s [00:52:35.902] } 1555s [00:52:35.902] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1555s [00:52:35.902] future.globals.maxSize = NULL, future.globals.method = NULL, 1555s [00:52:35.902] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1555s [00:52:35.902] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1555s [00:52:35.902] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1555s [00:52:35.902] future.stdout.windows.reencode = NULL, width = 80L) 1555s [00:52:35.902] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1555s [00:52:35.902] base::names(...future.oldOptions)) 1555s [00:52:35.902] } 1555s [00:52:35.902] if (FALSE) { 1555s [00:52:35.902] } 1555s [00:52:35.902] else { 1555s [00:52:35.902] if (TRUE) { 1555s [00:52:35.902] ...future.stdout <- base::rawConnection(base::raw(0L), 1555s [00:52:35.902] open = "w") 1555s [00:52:35.902] } 1555s [00:52:35.902] else { 1555s [00:52:35.902] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1555s [00:52:35.902] windows = "NUL", "/dev/null"), open = "w") 1555s [00:52:35.902] } 1555s [00:52:35.902] base::sink(...future.stdout, type = "output", split = FALSE) 1555s [00:52:35.902] base::on.exit(if (!base::is.null(...future.stdout)) { 1555s [00:52:35.902] base::sink(type = "output", split = FALSE) 1555s [00:52:35.902] base::close(...future.stdout) 1555s [00:52:35.902] }, add = TRUE) 1555s [00:52:35.902] } 1555s [00:52:35.902] ...future.frame <- base::sys.nframe() 1555s [00:52:35.902] ...future.conditions <- base::list() 1555s [00:52:35.902] ...future.rng <- base::globalenv()$.Random.seed 1555s [00:52:35.902] if (FALSE) { 1555s [00:52:35.902] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1555s [00:52:35.902] "...future.value", "...future.globalenv.names", ".Random.seed") 1555s [00:52:35.902] } 1555s [00:52:35.902] ...future.result <- base::tryCatch({ 1555s [00:52:35.902] base::withCallingHandlers({ 1555s [00:52:35.902] ...future.value <- base::withVisible(base::local({ 1555s [00:52:35.902] do.call(function(...) { 1555s [00:52:35.902] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1555s [00:52:35.902] if (!identical(...future.globals.maxSize.org, 1555s [00:52:35.902] ...future.globals.maxSize)) { 1555s [00:52:35.902] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1555s [00:52:35.902] on.exit(options(oopts), add = TRUE) 1555s [00:52:35.902] } 1555s [00:52:35.902] { 1555s [00:52:35.902] lapply(seq_along(...future.elements_ii), 1555s [00:52:35.902] FUN = function(jj) { 1555s [00:52:35.902] ...future.X_jj <- ...future.elements_ii[[jj]] 1555s [00:52:35.902] ...future.FUN(...future.X_jj, ...) 1555s [00:52:35.902] }) 1555s [00:52:35.902] } 1555s [00:52:35.902] }, args = future.call.arguments) 1555s [00:52:35.902] })) 1555s [00:52:35.902] future::FutureResult(value = ...future.value$value, 1555s [00:52:35.902] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1555s [00:52:35.902] ...future.rng), globalenv = if (FALSE) 1555s [00:52:35.902] list(added = base::setdiff(base::names(base::.GlobalEnv), 1555s [00:52:35.902] ...future.globalenv.names)) 1555s [00:52:35.902] else NULL, started = ...future.startTime, version = "1.8") 1555s [00:52:35.902] }, condition = base::local({ 1555s [00:52:35.902] c <- base::c 1555s [00:52:35.902] inherits <- base::inherits 1555s [00:52:35.902] invokeRestart <- base::invokeRestart 1555s [00:52:35.902] length <- base::length 1555s [00:52:35.902] list <- base::list 1555s [00:52:35.902] seq.int <- base::seq.int 1555s [00:52:35.902] signalCondition <- base::signalCondition 1555s [00:52:35.902] sys.calls <- base::sys.calls 1555s [00:52:35.902] `[[` <- base::`[[` 1555s [00:52:35.902] `+` <- base::`+` 1555s [00:52:35.902] `<<-` <- base::`<<-` 1555s [00:52:35.902] sysCalls <- function(calls = sys.calls(), from = 1L) { 1555s [00:52:35.902] calls[seq.int(from = from + 12L, to = length(calls) - 1555s [00:52:35.902] 3L)] 1555s [00:52:35.902] } 1555s [00:52:35.902] function(cond) { 1555s [00:52:35.902] is_error <- inherits(cond, "error") 1555s [00:52:35.902] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1555s [00:52:35.902] NULL) 1555s [00:52:35.902] if (is_error) { 1555s [00:52:35.902] sessionInformation <- function() { 1555s [00:52:35.902] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1555s [00:52:35.902] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1555s [00:52:35.902] search = base::search(), system = base::Sys.info()) 1555s [00:52:35.902] } 1555s [00:52:35.902] ...future.conditions[[length(...future.conditions) + 1555s [00:52:35.902] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1555s [00:52:35.902] cond$call), session = sessionInformation(), 1555s [00:52:35.902] timestamp = base::Sys.time(), signaled = 0L) 1555s [00:52:35.902] signalCondition(cond) 1555s [00:52:35.902] } 1555s [00:52:35.902] else if (!ignore && TRUE && inherits(cond, c("condition", 1555s [00:52:35.902] "immediateCondition"))) { 1555s [00:52:35.902] signal <- TRUE && inherits(cond, "immediateCondition") 1555s [00:52:35.902] ...future.conditions[[length(...future.conditions) + 1555s [00:52:35.902] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1555s [00:52:35.902] if (TRUE && !signal) { 1555s [00:52:35.902] muffleCondition <- function (cond, pattern = "^muffle") 1555s [00:52:35.902] { 1555s [00:52:35.902] inherits <- base::inherits 1555s [00:52:35.902] invokeRestart <- base::invokeRestart 1555s [00:52:35.902] is.null <- base::is.null 1555s [00:52:35.902] muffled <- FALSE 1555s [00:52:35.902] if (inherits(cond, "message")) { 1555s [00:52:35.902] muffled <- grepl(pattern, "muffleMessage") 1555s [00:52:35.902] if (muffled) 1555s [00:52:35.902] invokeRestart("muffleMessage") 1555s [00:52:35.902] } 1555s [00:52:35.902] else if (inherits(cond, "warning")) { 1555s [00:52:35.902] muffled <- grepl(pattern, "muffleWarning") 1555s [00:52:35.902] if (muffled) 1555s [00:52:35.902] invokeRestart("muffleWarning") 1555s [00:52:35.902] } 1555s [00:52:35.902] else if (inherits(cond, "condition")) { 1555s [00:52:35.902] if (!is.null(pattern)) { 1555s [00:52:35.902] computeRestarts <- base::computeRestarts 1555s [00:52:35.902] grepl <- base::grepl 1555s [00:52:35.902] restarts <- computeRestarts(cond) 1555s [00:52:35.902] for (restart in restarts) { 1555s [00:52:35.902] name <- restart$name 1555s [00:52:35.902] if (is.null(name)) 1555s [00:52:35.902] next 1555s [00:52:35.902] if (!grepl(pattern, name)) 1555s [00:52:35.902] next 1555s [00:52:35.902] invokeRestart(restart) 1555s [00:52:35.902] muffled <- TRUE 1555s [00:52:35.902] break 1555s [00:52:35.902] } 1555s [00:52:35.902] } 1555s [00:52:35.902] } 1555s [00:52:35.902] invisible(muffled) 1555s [00:52:35.902] } 1555s [00:52:35.902] muffleCondition(cond, pattern = "^muffle") 1555s [00:52:35.902] } 1555s [00:52:35.902] } 1555s [00:52:35.902] else { 1555s [00:52:35.902] if (TRUE) { 1555s [00:52:35.902] muffleCondition <- function (cond, pattern = "^muffle") 1555s [00:52:35.902] { 1555s [00:52:35.902] inherits <- base::inherits 1555s [00:52:35.902] invokeRestart <- base::invokeRestart 1555s [00:52:35.902] is.null <- base::is.null 1555s [00:52:35.902] muffled <- FALSE 1555s [00:52:35.902] if (inherits(cond, "message")) { 1555s [00:52:35.902] muffled <- grepl(pattern, "muffleMessage") 1555s [00:52:35.902] if (muffled) 1555s [00:52:35.902] invokeRestart("muffleMessage") 1555s [00:52:35.902] } 1555s [00:52:35.902] else if (inherits(cond, "warning")) { 1555s [00:52:35.902] muffled <- grepl(pattern, "muffleWarning") 1555s [00:52:35.902] if (muffled) 1555s [00:52:35.902] invokeRestart("muffleWarning") 1555s [00:52:35.902] } 1555s [00:52:35.902] else if (inherits(cond, "condition")) { 1555s [00:52:35.902] if (!is.null(pattern)) { 1555s [00:52:35.902] computeRestarts <- base::computeRestarts 1555s [00:52:35.902] grepl <- base::grepl 1555s [00:52:35.902] restarts <- computeRestarts(cond) 1555s [00:52:35.902] for (restart in restarts) { 1555s [00:52:35.902] name <- restart$name 1555s [00:52:35.902] if (is.null(name)) 1555s [00:52:35.902] next 1555s [00:52:35.902] if (!grepl(pattern, name)) 1555s [00:52:35.902] next 1555s [00:52:35.902] invokeRestart(restart) 1555s [00:52:35.902] muffled <- TRUE 1555s [00:52:35.902] break 1555s [00:52:35.902] } 1555s [00:52:35.902] } 1555s [00:52:35.902] } 1555s [00:52:35.902] invisible(muffled) 1555s [00:52:35.902] } 1555s [00:52:35.902] muffleCondition(cond, pattern = "^muffle") 1555s [00:52:35.902] } 1555s [00:52:35.902] } 1555s [00:52:35.902] } 1555s [00:52:35.902] })) 1555s [00:52:35.902] }, error = function(ex) { 1555s [00:52:35.902] base::structure(base::list(value = NULL, visible = NULL, 1555s [00:52:35.902] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1555s [00:52:35.902] ...future.rng), started = ...future.startTime, 1555s [00:52:35.902] finished = Sys.time(), session_uuid = NA_character_, 1555s [00:52:35.902] version = "1.8"), class = "FutureResult") 1555s [00:52:35.902] }, finally = { 1555s [00:52:35.902] if (!identical(...future.workdir, getwd())) 1555s [00:52:35.902] setwd(...future.workdir) 1555s [00:52:35.902] { 1555s [00:52:35.902] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1555s [00:52:35.902] ...future.oldOptions$nwarnings <- NULL 1555s [00:52:35.902] } 1555s [00:52:35.902] base::options(...future.oldOptions) 1555s [00:52:35.902] if (.Platform$OS.type == "windows") { 1555s [00:52:35.902] old_names <- names(...future.oldEnvVars) 1555s [00:52:35.902] envs <- base::Sys.getenv() 1555s [00:52:35.902] names <- names(envs) 1555s [00:52:35.902] common <- intersect(names, old_names) 1555s [00:52:35.902] added <- setdiff(names, old_names) 1555s [00:52:35.902] removed <- setdiff(old_names, names) 1555s [00:52:35.902] changed <- common[...future.oldEnvVars[common] != 1555s [00:52:35.902] envs[common]] 1555s [00:52:35.902] NAMES <- toupper(changed) 1555s [00:52:35.902] args <- list() 1555s [00:52:35.902] for (kk in seq_along(NAMES)) { 1555s [00:52:35.902] name <- changed[[kk]] 1555s [00:52:35.902] NAME <- NAMES[[kk]] 1555s [00:52:35.902] if (name != NAME && is.element(NAME, old_names)) 1555s [00:52:35.902] next 1555s [00:52:35.902] args[[name]] <- ...future.oldEnvVars[[name]] 1555s [00:52:35.902] } 1555s [00:52:35.902] NAMES <- toupper(added) 1555s [00:52:35.902] for (kk in seq_along(NAMES)) { 1555s [00:52:35.902] name <- added[[kk]] 1555s [00:52:35.902] NAME <- NAMES[[kk]] 1555s [00:52:35.902] if (name != NAME && is.element(NAME, old_names)) 1555s [00:52:35.902] next 1555s [00:52:35.902] args[[name]] <- "" 1555s [00:52:35.902] } 1555s [00:52:35.902] NAMES <- toupper(removed) 1555s [00:52:35.902] for (kk in seq_along(NAMES)) { 1555s [00:52:35.902] name <- removed[[kk]] 1555s [00:52:35.902] NAME <- NAMES[[kk]] 1555s [00:52:35.902] if (name != NAME && is.element(NAME, old_names)) 1555s [00:52:35.902] next 1555s [00:52:35.902] args[[name]] <- ...future.oldEnvVars[[name]] 1555s [00:52:35.902] } 1555s [00:52:35.902] if (length(args) > 0) 1555s [00:52:35.902] base::do.call(base::Sys.setenv, args = args) 1555s [00:52:35.902] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1555s [00:52:35.902] } 1555s [00:52:35.902] else { 1555s [00:52:35.902] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1555s [00:52:35.902] } 1555s [00:52:35.902] { 1555s [00:52:35.902] if (base::length(...future.futureOptionsAdded) > 1555s [00:52:35.902] 0L) { 1555s [00:52:35.902] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1555s [00:52:35.902] base::names(opts) <- ...future.futureOptionsAdded 1555s [00:52:35.902] base::options(opts) 1555s [00:52:35.902] } 1555s [00:52:35.902] { 1555s [00:52:35.902] { 1555s [00:52:35.902] NULL 1555s [00:52:35.902] RNGkind("Mersenne-Twister") 1555s [00:52:35.902] base::rm(list = ".Random.seed", envir = base::globalenv(), 1555s [00:52:35.902] inherits = FALSE) 1555s [00:52:35.902] } 1555s [00:52:35.902] options(future.plan = NULL) 1555s [00:52:35.902] if (is.na(NA_character_)) 1555s [00:52:35.902] Sys.unsetenv("R_FUTURE_PLAN") 1555s [00:52:35.902] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1555s [00:52:35.902] future::plan(list(function (..., workers = availableCores(), 1555s [00:52:35.902] lazy = FALSE, rscript_libs = .libPaths(), 1555s [00:52:35.902] envir = parent.frame()) 1555s [00:52:35.902] { 1555s [00:52:35.902] if (is.function(workers)) 1555s [00:52:35.902] workers <- workers() 1555s [00:52:35.902] workers <- structure(as.integer(workers), 1555s [00:52:35.902] class = class(workers)) 1555s [00:52:35.902] stop_if_not(length(workers) == 1, is.finite(workers), 1555s [00:52:35.902] workers >= 1) 1555s [00:52:35.902] if (workers == 1L && !inherits(workers, "AsIs")) { 1555s [00:52:35.902] return(sequential(..., lazy = TRUE, envir = envir)) 1555s [00:52:35.902] } 1555s [00:52:35.902] future <- MultisessionFuture(..., workers = workers, 1555s [00:52:35.902] lazy = lazy, rscript_libs = rscript_libs, 1555s [00:52:35.902] envir = envir) 1555s [00:52:35.902] if (!future$lazy) 1555s [00:52:35.902] future <- run(future) 1555s [00:52:35.902] invisible(future) 1555s [00:52:35.902] }), .cleanup = FALSE, .init = FALSE) 1555s [00:52:35.902] } 1555s [00:52:35.902] } 1555s [00:52:35.902] } 1555s [00:52:35.902] }) 1555s [00:52:35.902] if (TRUE) { 1555s [00:52:35.902] base::sink(type = "output", split = FALSE) 1555s [00:52:35.902] if (TRUE) { 1555s [00:52:35.902] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1555s [00:52:35.902] } 1555s [00:52:35.902] else { 1555s [00:52:35.902] ...future.result["stdout"] <- base::list(NULL) 1555s [00:52:35.902] } 1555s [00:52:35.902] base::close(...future.stdout) 1555s [00:52:35.902] ...future.stdout <- NULL 1555s [00:52:35.902] } 1555s [00:52:35.902] ...future.result$conditions <- ...future.conditions 1555s [00:52:35.902] ...future.result$finished <- base::Sys.time() 1555s [00:52:35.902] ...future.result 1555s [00:52:35.902] } 1555s [00:52:35.905] assign_globals() ... 1555s [00:52:35.905] List of 5 1555s [00:52:35.905] $ ...future.FUN :function (mode = "logical", length = 0L) 1555s [00:52:35.905] $ future.call.arguments :List of 1 1555s [00:52:35.905] ..$ length: int 2 1555s [00:52:35.905] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1555s [00:52:35.905] $ ...future.elements_ii :List of 4 1555s [00:52:35.905] ..$ a: chr "integer" 1555s [00:52:35.905] ..$ b: chr "numeric" 1555s [00:52:35.905] ..$ c: chr "character" 1555s [00:52:35.905] ..$ c: chr "list" 1555s [00:52:35.905] $ ...future.seeds_ii : NULL 1555s [00:52:35.905] $ ...future.globals.maxSize: NULL 1555s [00:52:35.905] - attr(*, "where")=List of 5 1555s [00:52:35.905] ..$ ...future.FUN : 1555s [00:52:35.905] ..$ future.call.arguments : 1555s [00:52:35.905] ..$ ...future.elements_ii : 1555s [00:52:35.905] ..$ ...future.seeds_ii : 1555s [00:52:35.905] ..$ ...future.globals.maxSize: 1555s [00:52:35.905] - attr(*, "resolved")= logi FALSE 1555s [00:52:35.905] - attr(*, "total_size")= num 2240 1555s [00:52:35.905] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1555s [00:52:35.905] - attr(*, "already-done")= logi TRUE 1555s [00:52:35.915] - copied ‘...future.FUN’ to environment 1555s [00:52:35.915] - copied ‘future.call.arguments’ to environment 1555s [00:52:35.916] - copied ‘...future.elements_ii’ to environment 1555s [00:52:35.916] - copied ‘...future.seeds_ii’ to environment 1555s [00:52:35.916] - copied ‘...future.globals.maxSize’ to environment 1555s [00:52:35.916] assign_globals() ... done 1555s [00:52:35.916] plan(): Setting new future strategy stack: 1555s [00:52:35.917] List of future strategies: 1555s [00:52:35.917] 1. sequential: 1555s [00:52:35.917] - args: function (..., envir = parent.frame()) 1555s [00:52:35.917] - tweaked: FALSE 1555s [00:52:35.917] - call: NULL 1555s [00:52:35.917] plan(): nbrOfWorkers() = 1 1555s [00:52:35.918] plan(): Setting new future strategy stack: 1555s [00:52:35.919] List of future strategies: 1555s [00:52:35.919] 1. multisession: 1555s [00:52:35.919] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1555s [00:52:35.919] - tweaked: FALSE 1555s [00:52:35.919] - call: plan(strategy) 1555s [00:52:35.923] plan(): nbrOfWorkers() = 1 1555s [00:52:35.924] SequentialFuture started (and completed) 1555s [00:52:35.924] - Launch lazy future ... done 1555s [00:52:35.924] run() for ‘SequentialFuture’ ... done 1555s [00:52:35.925] Created future: 1555s [00:52:35.925] SequentialFuture: 1555s [00:52:35.925] Label: ‘future_lapply-1’ 1555s [00:52:35.925] Expression: 1555s [00:52:35.925] { 1555s [00:52:35.925] do.call(function(...) { 1555s [00:52:35.925] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1555s [00:52:35.925] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1555s [00:52:35.925] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1555s [00:52:35.925] on.exit(options(oopts), add = TRUE) 1555s [00:52:35.925] } 1555s [00:52:35.925] { 1555s [00:52:35.925] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1555s [00:52:35.925] ...future.X_jj <- ...future.elements_ii[[jj]] 1555s [00:52:35.925] ...future.FUN(...future.X_jj, ...) 1555s [00:52:35.925] }) 1555s [00:52:35.925] } 1555s [00:52:35.925] }, args = future.call.arguments) 1555s [00:52:35.925] } 1555s [00:52:35.925] Lazy evaluation: FALSE 1555s [00:52:35.925] Asynchronous evaluation: FALSE 1555s [00:52:35.925] Local evaluation: TRUE 1555s [00:52:35.925] Environment: R_GlobalEnv 1555s [00:52:35.925] Capture standard output: TRUE 1555s [00:52:35.925] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1555s [00:52:35.925] Globals: 5 objects totaling 2.63 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 456 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1555s [00:52:35.925] Packages: 1555s [00:52:35.925] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1555s [00:52:35.925] Resolved: TRUE 1555s [00:52:35.925] Value: 240 bytes of class ‘list’ 1555s [00:52:35.925] Early signaling: FALSE 1555s [00:52:35.925] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1555s [00:52:35.925] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1555s [00:52:35.927] Chunk #1 of 1 ... DONE 1555s [00:52:35.927] Launching 1 futures (chunks) ... DONE 1555s [00:52:35.927] Resolving 1 futures (chunks) ... 1555s [00:52:35.927] resolve() on list ... 1555s [00:52:35.928] recursive: 0 1555s [00:52:35.928] length: 1 1555s [00:52:35.928] 1555s [00:52:35.928] resolved() for ‘SequentialFuture’ ... 1555s [00:52:35.928] - state: ‘finished’ 1555s [00:52:35.928] - run: TRUE 1555s [00:52:35.928] - result: ‘FutureResult’ 1555s [00:52:35.929] resolved() for ‘SequentialFuture’ ... done 1555s [00:52:35.929] Future #1 1555s [00:52:35.929] signalConditionsASAP(SequentialFuture, pos=1) ... 1555s [00:52:35.929] - nx: 1 1555s [00:52:35.929] - relay: TRUE 1555s [00:52:35.929] - stdout: TRUE 1555s [00:52:35.930] - signal: TRUE 1555s [00:52:35.930] - resignal: FALSE 1555s [00:52:35.930] - force: TRUE 1555s [00:52:35.930] - relayed: [n=1] FALSE 1555s [00:52:35.930] - queued futures: [n=1] FALSE 1555s [00:52:35.930] - until=1 1555s [00:52:35.930] - relaying element #1 1555s [00:52:35.931] - relayed: [n=1] TRUE 1555s [00:52:35.931] - queued futures: [n=1] TRUE 1555s [00:52:35.932] signalConditionsASAP(SequentialFuture, pos=1) ... done 1555s [00:52:35.932] length: 0 (resolved future 1) 1555s [00:52:35.932] Relaying remaining futures 1555s [00:52:35.932] signalConditionsASAP(NULL, pos=0) ... 1555s [00:52:35.933] - nx: 1 1555s [00:52:35.933] - relay: TRUE 1555s [00:52:35.933] - stdout: TRUE 1555s [00:52:35.933] - signal: TRUE 1555s [00:52:35.933] - resignal: FALSE 1555s [00:52:35.934] - force: TRUE 1555s [00:52:35.934] - relayed: [n=1] TRUE 1555s [00:52:35.934] - queued futures: [n=1] TRUE 1555s - flush all 1555s [00:52:35.934] - relayed: [n=1] TRUE 1555s [00:52:35.934] - queued futures: [n=1] TRUE 1555s [00:52:35.935] signalConditionsASAP(NULL, pos=0) ... done 1555s [00:52:35.935] resolve() on list ... DONE 1555s [00:52:35.935] - Number of value chunks collected: 1 1555s [00:52:35.935] Resolving 1 futures (chunks) ... DONE 1555s [00:52:35.935] Reducing values from 1 chunks ... 1555s [00:52:35.935] - Number of values collected after concatenation: 4 1555s [00:52:35.936] - Number of values expected: 4 1555s [00:52:35.936] Reducing values from 1 chunks ... DONE 1555s [00:52:35.936] future_lapply() ... DONE 1555s List of 1 1555s $ y:List of 4 1555s ..$ a: int [1:2] 0 0 1555s ..$ b: num [1:2] 0 0 1555s ..$ c: chr [1:2] "" "" 1555s ..$ c:List of 2 1555s .. ..$ : NULL 1555s - future_lapply(x, FUN = base::vector, ...) ... 1555s [00:52:35.941] future_lapply() ... 1555s .. ..$ : NULL 1555s [00:52:35.949] Number of chunks: 1 1555s [00:52:35.950] getGlobalsAndPackagesXApply() ... 1555s [00:52:35.950] - future.globals: TRUE 1555s [00:52:35.950] getGlobalsAndPackages() ... 1555s [00:52:35.951] Searching for globals... 1555s [00:52:35.953] - globals found: [2] ‘FUN’, ‘.Internal’ 1555s [00:52:35.953] Searching for globals ... DONE 1555s [00:52:35.953] Resolving globals: FALSE 1555s [00:52:35.954] The total size of the 1 globals is 2.13 KiB (2184 bytes) 1555s [00:52:35.954] The total size of the 1 globals exported for future expression (‘FUN(length = 2L)’) is 2.13 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (2.13 KiB of class ‘function’) 1555s [00:52:35.955] - globals: [1] ‘FUN’ 1555s [00:52:35.955] 1555s [00:52:35.955] getGlobalsAndPackages() ... DONE 1555s [00:52:35.955] - globals found/used: [n=1] ‘FUN’ 1555s [00:52:35.955] - needed namespaces: [n=0] 1555s [00:52:35.955] Finding globals ... DONE 1555s [00:52:35.955] - use_args: TRUE 1555s [00:52:35.956] - Getting '...' globals ... 1555s [00:52:35.956] resolve() on list ... 1555s [00:52:35.956] recursive: 0 1555s [00:52:35.956] length: 1 1555s [00:52:35.956] elements: ‘...’ 1555s [00:52:35.957] length: 0 (resolved future 1) 1555s [00:52:35.957] resolve() on list ... DONE 1555s [00:52:35.957] - '...' content: [n=1] ‘length’ 1555s [00:52:35.957] List of 1 1555s [00:52:35.957] $ ...:List of 1 1555s [00:52:35.957] ..$ length: int 2 1555s [00:52:35.957] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1555s [00:52:35.957] - attr(*, "where")=List of 1 1555s [00:52:35.957] ..$ ...: 1555s [00:52:35.957] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1555s [00:52:35.957] - attr(*, "resolved")= logi TRUE 1555s [00:52:35.957] - attr(*, "total_size")= num NA 1555s [00:52:35.961] - Getting '...' globals ... DONE 1555s [00:52:35.961] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1555s [00:52:35.961] List of 2 1555s [00:52:35.961] $ ...future.FUN:function (mode = "logical", length = 0L) 1555s [00:52:35.961] $ ... :List of 1 1555s [00:52:35.961] ..$ length: int 2 1555s [00:52:35.961] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1555s [00:52:35.961] - attr(*, "where")=List of 2 1555s [00:52:35.961] ..$ ...future.FUN: 1555s [00:52:35.961] ..$ ... : 1555s [00:52:35.961] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1555s [00:52:35.961] - attr(*, "resolved")= logi FALSE 1555s [00:52:35.961] - attr(*, "total_size")= num 2240 1555s [00:52:35.966] Packages to be attached in all futures: [n=0] 1555s [00:52:35.966] getGlobalsAndPackagesXApply() ... DONE 1555s [00:52:35.967] Number of futures (= number of chunks): 1 1555s [00:52:35.967] Launching 1 futures (chunks) ... 1556s [00:52:35.967] Chunk #1 of 1 ... 1556s [00:52:35.968] - Finding globals in 'X' for chunk #1 ... 1556s [00:52:35.968] getGlobalsAndPackages() ... 1556s [00:52:35.968] Searching for globals... 1556s [00:52:35.969] 1556s [00:52:35.969] Searching for globals ... DONE 1556s [00:52:35.969] - globals: [0] 1556s [00:52:35.970] getGlobalsAndPackages() ... DONE 1556s [00:52:35.970] + additional globals found: [n=0] 1556s [00:52:35.970] + additional namespaces needed: [n=0] 1556s [00:52:35.970] - Finding globals in 'X' for chunk #1 ... DONE 1556s [00:52:35.970] - seeds: 1556s [00:52:35.971] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1556s [00:52:35.971] getGlobalsAndPackages() ... 1556s [00:52:35.971] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1556s [00:52:35.971] Resolving globals: FALSE 1556s [00:52:35.972] Tweak future expression to call with '...' arguments ... 1556s [00:52:35.972] { 1556s [00:52:35.972] do.call(function(...) { 1556s [00:52:35.972] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1556s [00:52:35.972] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1556s [00:52:35.972] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1556s [00:52:35.972] on.exit(options(oopts), add = TRUE) 1556s [00:52:35.972] } 1556s [00:52:35.972] { 1556s [00:52:35.972] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1556s [00:52:35.972] ...future.X_jj <- ...future.elements_ii[[jj]] 1556s [00:52:35.972] ...future.FUN(...future.X_jj, ...) 1556s [00:52:35.972] }) 1556s [00:52:35.972] } 1556s [00:52:35.972] }, args = future.call.arguments) 1556s [00:52:35.972] } 1556s [00:52:35.973] Tweak future expression to call with '...' arguments ... DONE 1556s [00:52:35.974] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1556s [00:52:35.974] 1556s [00:52:35.975] getGlobalsAndPackages() ... DONE 1556s [00:52:35.975] run() for ‘Future’ ... 1556s [00:52:35.975] - state: ‘created’ 1556s [00:52:35.975] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1556s [00:52:35.984] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1556s [00:52:35.984] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1556s [00:52:35.984] - Field: ‘label’ 1556s [00:52:35.985] - Field: ‘local’ 1556s [00:52:35.985] - Field: ‘owner’ 1556s [00:52:35.986] - Field: ‘envir’ 1556s [00:52:35.986] - Field: ‘packages’ 1556s [00:52:35.986] - Field: ‘gc’ 1556s [00:52:35.987] - Field: ‘conditions’ 1556s [00:52:35.987] - Field: ‘expr’ 1556s [00:52:35.987] - Field: ‘uuid’ 1556s [00:52:35.988] - Field: ‘seed’ 1556s [00:52:35.988] - Field: ‘version’ 1556s [00:52:35.988] - Field: ‘result’ 1556s [00:52:35.988] - Field: ‘asynchronous’ 1556s [00:52:35.989] - Field: ‘calls’ 1556s [00:52:35.989] - Field: ‘globals’ 1556s [00:52:35.989] - Field: ‘stdout’ 1556s [00:52:35.989] - Field: ‘earlySignal’ 1556s [00:52:35.990] - Field: ‘lazy’ 1556s [00:52:35.990] - Field: ‘state’ 1556s [00:52:35.990] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1556s [00:52:35.990] - Launch lazy future ... 1556s [00:52:35.991] Packages needed by the future expression (n = 0): 1556s [00:52:35.991] Packages needed by future strategies (n = 0): 1556s [00:52:35.992] { 1556s [00:52:35.992] { 1556s [00:52:35.992] { 1556s [00:52:35.992] ...future.startTime <- base::Sys.time() 1556s [00:52:35.992] { 1556s [00:52:35.992] { 1556s [00:52:35.992] { 1556s [00:52:35.992] base::local({ 1556s [00:52:35.992] has_future <- base::requireNamespace("future", 1556s [00:52:35.992] quietly = TRUE) 1556s [00:52:35.992] if (has_future) { 1556s [00:52:35.992] ns <- base::getNamespace("future") 1556s [00:52:35.992] version <- ns[[".package"]][["version"]] 1556s [00:52:35.992] if (is.null(version)) 1556s [00:52:35.992] version <- utils::packageVersion("future") 1556s [00:52:35.992] } 1556s [00:52:35.992] else { 1556s [00:52:35.992] version <- NULL 1556s [00:52:35.992] } 1556s [00:52:35.992] if (!has_future || version < "1.8.0") { 1556s [00:52:35.992] info <- base::c(r_version = base::gsub("R version ", 1556s [00:52:35.992] "", base::R.version$version.string), 1556s [00:52:35.992] platform = base::sprintf("%s (%s-bit)", 1556s [00:52:35.992] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1556s [00:52:35.992] os = base::paste(base::Sys.info()[base::c("sysname", 1556s [00:52:35.992] "release", "version")], collapse = " "), 1556s [00:52:35.992] hostname = base::Sys.info()[["nodename"]]) 1556s [00:52:35.992] info <- base::sprintf("%s: %s", base::names(info), 1556s [00:52:35.992] info) 1556s [00:52:35.992] info <- base::paste(info, collapse = "; ") 1556s [00:52:35.992] if (!has_future) { 1556s [00:52:35.992] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1556s [00:52:35.992] info) 1556s [00:52:35.992] } 1556s [00:52:35.992] else { 1556s [00:52:35.992] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1556s [00:52:35.992] info, version) 1556s [00:52:35.992] } 1556s [00:52:35.992] base::stop(msg) 1556s [00:52:35.992] } 1556s [00:52:35.992] }) 1556s [00:52:35.992] } 1556s [00:52:35.992] options(future.plan = NULL) 1556s [00:52:35.992] Sys.unsetenv("R_FUTURE_PLAN") 1556s [00:52:35.992] future::plan("default", .cleanup = FALSE, .init = FALSE) 1556s [00:52:35.992] } 1556s [00:52:35.992] ...future.workdir <- getwd() 1556s [00:52:35.992] } 1556s [00:52:35.992] ...future.oldOptions <- base::as.list(base::.Options) 1556s [00:52:35.992] ...future.oldEnvVars <- base::Sys.getenv() 1556s [00:52:35.992] } 1556s [00:52:35.992] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1556s [00:52:35.992] future.globals.maxSize = NULL, future.globals.method = NULL, 1556s [00:52:35.992] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1556s [00:52:35.992] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1556s [00:52:35.992] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1556s [00:52:35.992] future.stdout.windows.reencode = NULL, width = 80L) 1556s [00:52:35.992] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1556s [00:52:35.992] base::names(...future.oldOptions)) 1556s [00:52:35.992] } 1556s [00:52:35.992] if (FALSE) { 1556s [00:52:35.992] } 1556s [00:52:35.992] else { 1556s [00:52:35.992] if (TRUE) { 1556s [00:52:35.992] ...future.stdout <- base::rawConnection(base::raw(0L), 1556s [00:52:35.992] open = "w") 1556s [00:52:35.992] } 1556s [00:52:35.992] else { 1556s [00:52:35.992] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1556s [00:52:35.992] windows = "NUL", "/dev/null"), open = "w") 1556s [00:52:35.992] } 1556s [00:52:35.992] base::sink(...future.stdout, type = "output", split = FALSE) 1556s [00:52:35.992] base::on.exit(if (!base::is.null(...future.stdout)) { 1556s [00:52:35.992] base::sink(type = "output", split = FALSE) 1556s [00:52:35.992] base::close(...future.stdout) 1556s [00:52:35.992] }, add = TRUE) 1556s [00:52:35.992] } 1556s [00:52:35.992] ...future.frame <- base::sys.nframe() 1556s [00:52:35.992] ...future.conditions <- base::list() 1556s [00:52:35.992] ...future.rng <- base::globalenv()$.Random.seed 1556s [00:52:35.992] if (FALSE) { 1556s [00:52:35.992] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1556s [00:52:35.992] "...future.value", "...future.globalenv.names", ".Random.seed") 1556s [00:52:35.992] } 1556s [00:52:35.992] ...future.result <- base::tryCatch({ 1556s [00:52:35.992] base::withCallingHandlers({ 1556s [00:52:35.992] ...future.value <- base::withVisible(base::local({ 1556s [00:52:35.992] do.call(function(...) { 1556s [00:52:35.992] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1556s [00:52:35.992] if (!identical(...future.globals.maxSize.org, 1556s [00:52:35.992] ...future.globals.maxSize)) { 1556s [00:52:35.992] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1556s [00:52:35.992] on.exit(options(oopts), add = TRUE) 1556s [00:52:35.992] } 1556s [00:52:35.992] { 1556s [00:52:35.992] lapply(seq_along(...future.elements_ii), 1556s [00:52:35.992] FUN = function(jj) { 1556s [00:52:35.992] ...future.X_jj <- ...future.elements_ii[[jj]] 1556s [00:52:35.992] ...future.FUN(...future.X_jj, ...) 1556s [00:52:35.992] }) 1556s [00:52:35.992] } 1556s [00:52:35.992] }, args = future.call.arguments) 1556s [00:52:35.992] })) 1556s [00:52:35.992] future::FutureResult(value = ...future.value$value, 1556s [00:52:35.992] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1556s [00:52:35.992] ...future.rng), globalenv = if (FALSE) 1556s [00:52:35.992] list(added = base::setdiff(base::names(base::.GlobalEnv), 1556s [00:52:35.992] ...future.globalenv.names)) 1556s [00:52:35.992] else NULL, started = ...future.startTime, version = "1.8") 1556s [00:52:35.992] }, condition = base::local({ 1556s [00:52:35.992] c <- base::c 1556s [00:52:35.992] inherits <- base::inherits 1556s [00:52:35.992] invokeRestart <- base::invokeRestart 1556s [00:52:35.992] length <- base::length 1556s [00:52:35.992] list <- base::list 1556s [00:52:35.992] seq.int <- base::seq.int 1556s [00:52:35.992] signalCondition <- base::signalCondition 1556s [00:52:35.992] sys.calls <- base::sys.calls 1556s [00:52:35.992] `[[` <- base::`[[` 1556s [00:52:35.992] `+` <- base::`+` 1556s [00:52:35.992] `<<-` <- base::`<<-` 1556s [00:52:35.992] sysCalls <- function(calls = sys.calls(), from = 1L) { 1556s [00:52:35.992] calls[seq.int(from = from + 12L, to = length(calls) - 1556s [00:52:35.992] 3L)] 1556s [00:52:35.992] } 1556s [00:52:35.992] function(cond) { 1556s [00:52:35.992] is_error <- inherits(cond, "error") 1556s [00:52:35.992] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1556s [00:52:35.992] NULL) 1556s [00:52:35.992] if (is_error) { 1556s [00:52:35.992] sessionInformation <- function() { 1556s [00:52:35.992] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1556s [00:52:35.992] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1556s [00:52:35.992] search = base::search(), system = base::Sys.info()) 1556s [00:52:35.992] } 1556s [00:52:35.992] ...future.conditions[[length(...future.conditions) + 1556s [00:52:35.992] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1556s [00:52:35.992] cond$call), session = sessionInformation(), 1556s [00:52:35.992] timestamp = base::Sys.time(), signaled = 0L) 1556s [00:52:35.992] signalCondition(cond) 1556s [00:52:35.992] } 1556s [00:52:35.992] else if (!ignore && TRUE && inherits(cond, c("condition", 1556s [00:52:35.992] "immediateCondition"))) { 1556s [00:52:35.992] signal <- TRUE && inherits(cond, "immediateCondition") 1556s [00:52:35.992] ...future.conditions[[length(...future.conditions) + 1556s [00:52:35.992] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1556s [00:52:35.992] if (TRUE && !signal) { 1556s [00:52:35.992] muffleCondition <- function (cond, pattern = "^muffle") 1556s [00:52:35.992] { 1556s [00:52:35.992] inherits <- base::inherits 1556s [00:52:35.992] invokeRestart <- base::invokeRestart 1556s [00:52:35.992] is.null <- base::is.null 1556s [00:52:35.992] muffled <- FALSE 1556s [00:52:35.992] if (inherits(cond, "message")) { 1556s [00:52:35.992] muffled <- grepl(pattern, "muffleMessage") 1556s [00:52:35.992] if (muffled) 1556s [00:52:35.992] invokeRestart("muffleMessage") 1556s [00:52:35.992] } 1556s [00:52:35.992] else if (inherits(cond, "warning")) { 1556s [00:52:35.992] muffled <- grepl(pattern, "muffleWarning") 1556s [00:52:35.992] if (muffled) 1556s [00:52:35.992] invokeRestart("muffleWarning") 1556s [00:52:35.992] } 1556s [00:52:35.992] else if (inherits(cond, "condition")) { 1556s [00:52:35.992] if (!is.null(pattern)) { 1556s [00:52:35.992] computeRestarts <- base::computeRestarts 1556s [00:52:35.992] grepl <- base::grepl 1556s [00:52:35.992] restarts <- computeRestarts(cond) 1556s [00:52:35.992] for (restart in restarts) { 1556s [00:52:35.992] name <- restart$name 1556s [00:52:35.992] if (is.null(name)) 1556s [00:52:35.992] next 1556s [00:52:35.992] if (!grepl(pattern, name)) 1556s [00:52:35.992] next 1556s [00:52:35.992] invokeRestart(restart) 1556s [00:52:35.992] muffled <- TRUE 1556s [00:52:35.992] break 1556s [00:52:35.992] } 1556s [00:52:35.992] } 1556s [00:52:35.992] } 1556s [00:52:35.992] invisible(muffled) 1556s [00:52:35.992] } 1556s [00:52:35.992] muffleCondition(cond, pattern = "^muffle") 1556s [00:52:35.992] } 1556s [00:52:35.992] } 1556s [00:52:35.992] else { 1556s [00:52:35.992] if (TRUE) { 1556s [00:52:35.992] muffleCondition <- function (cond, pattern = "^muffle") 1556s [00:52:35.992] { 1556s [00:52:35.992] inherits <- base::inherits 1556s [00:52:35.992] invokeRestart <- base::invokeRestart 1556s [00:52:35.992] is.null <- base::is.null 1556s [00:52:35.992] muffled <- FALSE 1556s [00:52:35.992] if (inherits(cond, "message")) { 1556s [00:52:35.992] muffled <- grepl(pattern, "muffleMessage") 1556s [00:52:35.992] if (muffled) 1556s [00:52:35.992] invokeRestart("muffleMessage") 1556s [00:52:35.992] } 1556s [00:52:35.992] else if (inherits(cond, "warning")) { 1556s [00:52:35.992] muffled <- grepl(pattern, "muffleWarning") 1556s [00:52:35.992] if (muffled) 1556s [00:52:35.992] invokeRestart("muffleWarning") 1556s [00:52:35.992] } 1556s [00:52:35.992] else if (inherits(cond, "condition")) { 1556s [00:52:35.992] if (!is.null(pattern)) { 1556s [00:52:35.992] computeRestarts <- base::computeRestarts 1556s [00:52:35.992] grepl <- base::grepl 1556s [00:52:35.992] restarts <- computeRestarts(cond) 1556s [00:52:35.992] for (restart in restarts) { 1556s [00:52:35.992] name <- restart$name 1556s [00:52:35.992] if (is.null(name)) 1556s [00:52:35.992] next 1556s [00:52:35.992] if (!grepl(pattern, name)) 1556s [00:52:35.992] next 1556s [00:52:35.992] invokeRestart(restart) 1556s [00:52:35.992] muffled <- TRUE 1556s [00:52:35.992] break 1556s [00:52:35.992] } 1556s [00:52:35.992] } 1556s [00:52:35.992] } 1556s [00:52:35.992] invisible(muffled) 1556s [00:52:35.992] } 1556s [00:52:35.992] muffleCondition(cond, pattern = "^muffle") 1556s [00:52:35.992] } 1556s [00:52:35.992] } 1556s [00:52:35.992] } 1556s [00:52:35.992] })) 1556s [00:52:35.992] }, error = function(ex) { 1556s [00:52:35.992] base::structure(base::list(value = NULL, visible = NULL, 1556s [00:52:35.992] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1556s [00:52:35.992] ...future.rng), started = ...future.startTime, 1556s [00:52:35.992] finished = Sys.time(), session_uuid = NA_character_, 1556s [00:52:35.992] version = "1.8"), class = "FutureResult") 1556s [00:52:35.992] }, finally = { 1556s [00:52:35.992] if (!identical(...future.workdir, getwd())) 1556s [00:52:35.992] setwd(...future.workdir) 1556s [00:52:35.992] { 1556s [00:52:35.992] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1556s [00:52:35.992] ...future.oldOptions$nwarnings <- NULL 1556s [00:52:35.992] } 1556s [00:52:35.992] base::options(...future.oldOptions) 1556s [00:52:35.992] if (.Platform$OS.type == "windows") { 1556s [00:52:35.992] old_names <- names(...future.oldEnvVars) 1556s [00:52:35.992] envs <- base::Sys.getenv() 1556s [00:52:35.992] names <- names(envs) 1556s [00:52:35.992] common <- intersect(names, old_names) 1556s [00:52:35.992] added <- setdiff(names, old_names) 1556s [00:52:35.992] removed <- setdiff(old_names, names) 1556s [00:52:35.992] changed <- common[...future.oldEnvVars[common] != 1556s [00:52:35.992] envs[common]] 1556s [00:52:35.992] NAMES <- toupper(changed) 1556s [00:52:35.992] args <- list() 1556s [00:52:35.992] for (kk in seq_along(NAMES)) { 1556s [00:52:35.992] name <- changed[[kk]] 1556s [00:52:35.992] NAME <- NAMES[[kk]] 1556s [00:52:35.992] if (name != NAME && is.element(NAME, old_names)) 1556s [00:52:35.992] next 1556s [00:52:35.992] args[[name]] <- ...future.oldEnvVars[[name]] 1556s [00:52:35.992] } 1556s [00:52:35.992] NAMES <- toupper(added) 1556s [00:52:35.992] for (kk in seq_along(NAMES)) { 1556s [00:52:35.992] name <- added[[kk]] 1556s [00:52:35.992] NAME <- NAMES[[kk]] 1556s [00:52:35.992] if (name != NAME && is.element(NAME, old_names)) 1556s [00:52:35.992] next 1556s [00:52:35.992] args[[name]] <- "" 1556s [00:52:35.992] } 1556s [00:52:35.992] NAMES <- toupper(removed) 1556s [00:52:35.992] for (kk in seq_along(NAMES)) { 1556s [00:52:35.992] name <- removed[[kk]] 1556s [00:52:35.992] NAME <- NAMES[[kk]] 1556s [00:52:35.992] if (name != NAME && is.element(NAME, old_names)) 1556s [00:52:35.992] next 1556s [00:52:35.992] args[[name]] <- ...future.oldEnvVars[[name]] 1556s [00:52:35.992] } 1556s [00:52:35.992] if (length(args) > 0) 1556s [00:52:35.992] base::do.call(base::Sys.setenv, args = args) 1556s [00:52:35.992] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1556s [00:52:35.992] } 1556s [00:52:35.992] else { 1556s [00:52:35.992] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1556s [00:52:35.992] } 1556s [00:52:35.992] { 1556s [00:52:35.992] if (base::length(...future.futureOptionsAdded) > 1556s [00:52:35.992] 0L) { 1556s [00:52:35.992] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1556s [00:52:35.992] base::names(opts) <- ...future.futureOptionsAdded 1556s [00:52:35.992] base::options(opts) 1556s [00:52:35.992] } 1556s [00:52:35.992] { 1556s [00:52:35.992] { 1556s [00:52:35.992] NULL 1556s [00:52:35.992] RNGkind("Mersenne-Twister") 1556s [00:52:35.992] base::rm(list = ".Random.seed", envir = base::globalenv(), 1556s [00:52:35.992] inherits = FALSE) 1556s [00:52:35.992] } 1556s [00:52:35.992] options(future.plan = NULL) 1556s [00:52:35.992] if (is.na(NA_character_)) 1556s [00:52:35.992] Sys.unsetenv("R_FUTURE_PLAN") 1556s [00:52:35.992] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1556s [00:52:35.992] future::plan(list(function (..., workers = availableCores(), 1556s [00:52:35.992] lazy = FALSE, rscript_libs = .libPaths(), 1556s [00:52:35.992] envir = parent.frame()) 1556s [00:52:35.992] { 1556s [00:52:35.992] if (is.function(workers)) 1556s [00:52:35.992] workers <- workers() 1556s [00:52:35.992] workers <- structure(as.integer(workers), 1556s [00:52:35.992] class = class(workers)) 1556s [00:52:35.992] stop_if_not(length(workers) == 1, is.finite(workers), 1556s [00:52:35.992] workers >= 1) 1556s [00:52:35.992] if (workers == 1L && !inherits(workers, "AsIs")) { 1556s [00:52:35.992] return(sequential(..., lazy = TRUE, envir = envir)) 1556s [00:52:35.992] } 1556s [00:52:35.992] future <- MultisessionFuture(..., workers = workers, 1556s [00:52:35.992] lazy = lazy, rscript_libs = rscript_libs, 1556s [00:52:35.992] envir = envir) 1556s [00:52:35.992] if (!future$lazy) 1556s [00:52:35.992] future <- run(future) 1556s [00:52:35.992] invisible(future) 1556s [00:52:35.992] }), .cleanup = FALSE, .init = FALSE) 1556s [00:52:35.992] } 1556s [00:52:35.992] } 1556s [00:52:35.992] } 1556s [00:52:35.992] }) 1556s [00:52:35.992] if (TRUE) { 1556s [00:52:35.992] base::sink(type = "output", split = FALSE) 1556s [00:52:35.992] if (TRUE) { 1556s [00:52:35.992] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1556s [00:52:35.992] } 1556s [00:52:35.992] else { 1556s [00:52:35.992] ...future.result["stdout"] <- base::list(NULL) 1556s [00:52:35.992] } 1556s [00:52:35.992] base::close(...future.stdout) 1556s [00:52:35.992] ...future.stdout <- NULL 1556s [00:52:35.992] } 1556s [00:52:35.992] ...future.result$conditions <- ...future.conditions 1556s [00:52:35.992] ...future.result$finished <- base::Sys.time() 1556s [00:52:35.992] ...future.result 1556s [00:52:35.992] } 1556s [00:52:35.997] assign_globals() ... 1556s [00:52:35.997] List of 5 1556s [00:52:35.997] $ ...future.FUN :function (mode = "logical", length = 0L) 1556s [00:52:35.997] $ future.call.arguments :List of 1 1556s [00:52:35.997] ..$ length: int 2 1556s [00:52:35.997] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1556s [00:52:35.997] $ ...future.elements_ii :List of 4 1556s [00:52:35.997] ..$ a: chr "integer" 1556s [00:52:35.997] ..$ b: chr "numeric" 1556s [00:52:35.997] ..$ c: chr "character" 1556s [00:52:35.997] ..$ c: chr "list" 1556s [00:52:35.997] $ ...future.seeds_ii : NULL 1556s [00:52:35.997] $ ...future.globals.maxSize: NULL 1556s [00:52:35.997] - attr(*, "where")=List of 5 1556s [00:52:35.997] ..$ ...future.FUN : 1556s [00:52:35.997] ..$ future.call.arguments : 1556s [00:52:35.997] ..$ ...future.elements_ii : 1556s [00:52:35.997] ..$ ...future.seeds_ii : 1556s [00:52:35.997] ..$ ...future.globals.maxSize: 1556s [00:52:35.997] - attr(*, "resolved")= logi FALSE 1556s [00:52:35.997] - attr(*, "total_size")= num 2240 1556s [00:52:35.997] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1556s [00:52:35.997] - attr(*, "already-done")= logi TRUE 1556s [00:52:36.012] - copied ‘...future.FUN’ to environment 1556s [00:52:36.012] - copied ‘future.call.arguments’ to environment 1556s [00:52:36.012] - copied ‘...future.elements_ii’ to environment 1556s [00:52:36.012] - copied ‘...future.seeds_ii’ to environment 1556s [00:52:36.013] - copied ‘...future.globals.maxSize’ to environment 1556s [00:52:36.013] assign_globals() ... done 1556s [00:52:36.013] plan(): Setting new future strategy stack: 1556s [00:52:36.013] List of future strategies: 1556s [00:52:36.013] 1. sequential: 1556s [00:52:36.013] - args: function (..., envir = parent.frame()) 1556s [00:52:36.013] - tweaked: FALSE 1556s [00:52:36.013] - call: NULL 1556s [00:52:36.014] plan(): nbrOfWorkers() = 1 1556s [00:52:36.015] plan(): Setting new future strategy stack: 1556s [00:52:36.015] List of future strategies: 1556s [00:52:36.015] 1. multisession: 1556s [00:52:36.015] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1556s [00:52:36.015] - tweaked: FALSE 1556s [00:52:36.015] - call: plan(strategy) 1556s [00:52:36.022] plan(): nbrOfWorkers() = 1 1556s [00:52:36.023] SequentialFuture started (and completed) 1556s [00:52:36.023] - Launch lazy future ... done 1556s [00:52:36.023] run() for ‘SequentialFuture’ ... done 1556s [00:52:36.024] Created future: 1556s [00:52:36.024] SequentialFuture: 1556s [00:52:36.024] Label: ‘future_lapply-1’ 1556s [00:52:36.024] Expression: 1556s [00:52:36.024] { 1556s [00:52:36.024] do.call(function(...) { 1556s [00:52:36.024] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1556s [00:52:36.024] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1556s [00:52:36.024] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1556s [00:52:36.024] on.exit(options(oopts), add = TRUE) 1556s [00:52:36.024] } 1556s [00:52:36.024] { 1556s [00:52:36.024] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1556s [00:52:36.024] ...future.X_jj <- ...future.elements_ii[[jj]] 1556s [00:52:36.024] ...future.FUN(...future.X_jj, ...) 1556s [00:52:36.024] }) 1556s [00:52:36.024] } 1556s [00:52:36.024] }, args = future.call.arguments) 1556s [00:52:36.024] } 1556s [00:52:36.024] Lazy evaluation: FALSE 1556s [00:52:36.024] Asynchronous evaluation: FALSE 1556s [00:52:36.024] Local evaluation: TRUE 1556s [00:52:36.024] Environment: R_GlobalEnv 1556s [00:52:36.024] Capture standard output: TRUE 1556s [00:52:36.024] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1556s [00:52:36.024] Globals: 5 objects totaling 2.63 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 456 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1556s [00:52:36.024] Packages: 1556s [00:52:36.024] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1556s [00:52:36.024] Resolved: TRUE 1556s [00:52:36.024] Value: 240 bytes of class ‘list’ 1556s [00:52:36.024] Early signaling: FALSE 1556s [00:52:36.024] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1556s [00:52:36.024] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1556s [00:52:36.026] Chunk #1 of 1 ... DONE 1556s [00:52:36.026] Launching 1 futures (chunks) ... DONE 1556s [00:52:36.027] Resolving 1 futures (chunks) ... 1556s [00:52:36.027] resolve() on list ... 1556s [00:52:36.027] recursive: 0 1556s [00:52:36.028] length: 1 1556s [00:52:36.028] 1556s [00:52:36.028] resolved() for ‘SequentialFuture’ ... 1556s [00:52:36.028] - state: ‘finished’ 1556s [00:52:36.028] - run: TRUE 1556s [00:52:36.028] - result: ‘FutureResult’ 1556s [00:52:36.029] resolved() for ‘SequentialFuture’ ... done 1556s [00:52:36.029] Future #1 1556s [00:52:36.029] signalConditionsASAP(SequentialFuture, pos=1) ... 1556s [00:52:36.029] - nx: 1 1556s [00:52:36.030] - relay: TRUE 1556s [00:52:36.030] - stdout: TRUE 1556s [00:52:36.030] - signal: TRUE 1556s [00:52:36.030] - resignal: FALSE 1556s [00:52:36.030] - force: TRUE 1556s [00:52:36.030] - relayed: [n=1] FALSE 1556s [00:52:36.030] - queued futures: [n=1] FALSE 1556s [00:52:36.031] - until=1 1556s [00:52:36.031] - relaying element #1 1556s [00:52:36.031] - relayed: [n=1] TRUE 1556s [00:52:36.031] - queued futures: [n=1] TRUE 1556s [00:52:36.032] signalConditionsASAP(SequentialFuture, pos=1) ... done 1556s [00:52:36.032] length: 0 (resolved future 1) 1556s [00:52:36.032] Relaying remaining futures 1556s [00:52:36.032] signalConditionsASAP(NULL, pos=0) ... 1556s [00:52:36.032] - nx: 1 1556s [00:52:36.032] - relay: TRUE 1556s [00:52:36.032] - stdout: TRUE 1556s [00:52:36.032] - signal: TRUE 1556s [00:52:36.032] - resignal: FALSE 1556s [00:52:36.033] - force: TRUE 1556s [00:52:36.033] - relayed: [n=1] TRUE 1556s [00:52:36.033] - queued futures: [n=1] TRUE 1556s - flush all 1556s [00:52:36.033] - relayed: [n=1] TRUE 1556s [00:52:36.033] - queued futures: [n=1] TRUE 1556s [00:52:36.033] signalConditionsASAP(NULL, pos=0) ... done 1556s [00:52:36.033] resolve() on list ... DONE 1556s [00:52:36.034] - Number of value chunks collected: 1 1556s [00:52:36.034] Resolving 1 futures (chunks) ... DONE 1556s [00:52:36.034] Reducing values from 1 chunks ... 1556s [00:52:36.034] - Number of values collected after concatenation: 4 1556s [00:52:36.034] - Number of values expected: 4 1556s [00:52:36.034] Reducing values from 1 chunks ... DONE 1556s [00:52:36.034] future_lapply() ... DONE 1556s List of 1 1556s $ y:List of 4 1556s ..$ a: int [1:2] 0 0 1556s ..$ b: num [1:2] 0 0 1556s ..$ c: chr [1:2] "" "" 1556s ..$ c:List of 2 1556s .. ..$ : NULL 1556s .. ..$ : NULL 1556s - future_lapply(x, FUN = future:::hpaste, ...) ... 1556s [00:52:36.039] future_lapply() ... 1556s [00:52:36.052] Number of chunks: 1 1556s [00:52:36.052] getGlobalsAndPackagesXApply() ... 1556s [00:52:36.052] - future.globals: TRUE 1556s [00:52:36.052] getGlobalsAndPackages() ... 1556s [00:52:36.053] Searching for globals... 1556s [00:52:36.064] - globals found: [22] ‘FUN’, ‘if’, ‘missing’, ‘is.finite’, ‘{’, ‘is.null’, ‘<-’, ‘paste’, ‘length’, ‘==’, ‘return’, ‘>’, ‘+’, ‘[’, ‘seq_len’, ‘rev’, ‘c’, ‘&&’, ‘!’, ‘:’, ‘(’, ‘-’ 1556s [00:52:36.064] Searching for globals ... DONE 1556s [00:52:36.065] Resolving globals: FALSE 1556s [00:52:36.066] The total size of the 1 globals is 69.62 KiB (71288 bytes) 1556s [00:52:36.066] The total size of the 1 globals exported for future expression (‘FUN(collapse = "; ", maxHead = 3L)’) is 69.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (69.62 KiB of class ‘function’) 1556s [00:52:36.067] - globals: [1] ‘FUN’ 1556s [00:52:36.067] - packages: [1] ‘future’ 1556s [00:52:36.067] getGlobalsAndPackages() ... DONE 1556s [00:52:36.067] - globals found/used: [n=1] ‘FUN’ 1556s [00:52:36.067] - needed namespaces: [n=1] ‘future’ 1556s [00:52:36.067] Finding globals ... DONE 1556s [00:52:36.067] - use_args: TRUE 1556s [00:52:36.068] - Getting '...' globals ... 1556s [00:52:36.068] resolve() on list ... 1556s [00:52:36.068] recursive: 0 1556s [00:52:36.069] length: 1 1556s [00:52:36.069] elements: ‘...’ 1556s [00:52:36.069] length: 0 (resolved future 1) 1556s [00:52:36.069] resolve() on list ... DONE 1556s [00:52:36.070] - '...' content: [n=2] ‘collapse’, ‘maxHead’ 1556s [00:52:36.070] List of 1 1556s [00:52:36.070] $ ...:List of 2 1556s [00:52:36.070] ..$ collapse: chr "; " 1556s [00:52:36.070] ..$ maxHead : int 3 1556s [00:52:36.070] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1556s [00:52:36.070] - attr(*, "where")=List of 1 1556s [00:52:36.070] ..$ ...: 1556s [00:52:36.070] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1556s [00:52:36.070] - attr(*, "resolved")= logi TRUE 1556s [00:52:36.070] - attr(*, "total_size")= num NA 1556s [00:52:36.076] - Getting '...' globals ... DONE 1556s [00:52:36.076] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1556s [00:52:36.076] List of 2 1556s [00:52:36.076] $ ...future.FUN:function (..., sep = "", collapse = ", ", lastCollapse = NULL, maxHead = if (missing(lastCollapse)) 3 else Inf, 1556s [00:52:36.076] maxTail = if (is.finite(maxHead)) 1 else Inf, abbreviate = "...") 1556s [00:52:36.076] $ ... :List of 2 1556s [00:52:36.076] ..$ collapse: chr "; " 1556s [00:52:36.076] ..$ maxHead : int 3 1556s [00:52:36.076] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1556s [00:52:36.076] - attr(*, "where")=List of 2 1556s [00:52:36.076] ..$ ...future.FUN: 1556s [00:52:36.076] ..$ ... : 1556s [00:52:36.076] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1556s [00:52:36.076] - attr(*, "resolved")= logi FALSE 1556s [00:52:36.076] - attr(*, "total_size")= num 71456 1556s [00:52:36.082] Packages to be attached in all futures: [n=1] ‘future’ 1556s [00:52:36.083] getGlobalsAndPackagesXApply() ... DONE 1556s [00:52:36.083] Number of futures (= number of chunks): 1 1556s [00:52:36.083] Launching 1 futures (chunks) ... 1556s [00:52:36.084] Chunk #1 of 1 ... 1556s [00:52:36.084] - Finding globals in 'X' for chunk #1 ... 1556s [00:52:36.084] getGlobalsAndPackages() ... 1556s [00:52:36.084] Searching for globals... 1556s [00:52:36.084] 1556s [00:52:36.085] Searching for globals ... DONE 1556s [00:52:36.085] - globals: [0] 1556s [00:52:36.085] getGlobalsAndPackages() ... DONE 1556s [00:52:36.085] + additional globals found: [n=0] 1556s [00:52:36.085] + additional namespaces needed: [n=0] 1556s [00:52:36.085] - Finding globals in 'X' for chunk #1 ... DONE 1556s [00:52:36.085] - seeds: 1556s [00:52:36.085] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1556s [00:52:36.086] getGlobalsAndPackages() ... 1556s [00:52:36.086] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1556s [00:52:36.086] Resolving globals: FALSE 1556s [00:52:36.086] Tweak future expression to call with '...' arguments ... 1556s [00:52:36.086] { 1556s [00:52:36.086] do.call(function(...) { 1556s [00:52:36.086] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1556s [00:52:36.086] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1556s [00:52:36.086] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1556s [00:52:36.086] on.exit(options(oopts), add = TRUE) 1556s [00:52:36.086] } 1556s [00:52:36.086] { 1556s [00:52:36.086] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1556s [00:52:36.086] ...future.X_jj <- ...future.elements_ii[[jj]] 1556s [00:52:36.086] ...future.FUN(...future.X_jj, ...) 1556s [00:52:36.086] }) 1556s [00:52:36.086] } 1556s [00:52:36.086] }, args = future.call.arguments) 1556s [00:52:36.086] } 1556s [00:52:36.087] Tweak future expression to call with '...' arguments ... DONE 1556s [00:52:36.087] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1556s [00:52:36.087] - packages: [1] ‘future’ 1556s [00:52:36.088] getGlobalsAndPackages() ... DONE 1556s [00:52:36.088] run() for ‘Future’ ... 1556s [00:52:36.088] - state: ‘created’ 1556s [00:52:36.089] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1556s [00:52:36.099] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1556s [00:52:36.100] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1556s [00:52:36.100] - Field: ‘label’ 1556s [00:52:36.100] - Field: ‘local’ 1556s [00:52:36.100] - Field: ‘owner’ 1556s [00:52:36.100] - Field: ‘envir’ 1556s [00:52:36.101] - Field: ‘packages’ 1556s [00:52:36.101] - Field: ‘gc’ 1556s [00:52:36.102] - Field: ‘conditions’ 1556s [00:52:36.102] - Field: ‘expr’ 1556s [00:52:36.102] - Field: ‘uuid’ 1556s [00:52:36.103] - Field: ‘seed’ 1556s [00:52:36.103] - Field: ‘version’ 1556s [00:52:36.104] - Field: ‘result’ 1556s [00:52:36.104] - Field: ‘asynchronous’ 1556s [00:52:36.104] - Field: ‘calls’ 1556s [00:52:36.105] - Field: ‘globals’ 1556s [00:52:36.105] - Field: ‘stdout’ 1556s [00:52:36.105] - Field: ‘earlySignal’ 1556s [00:52:36.105] - Field: ‘lazy’ 1556s [00:52:36.105] - Field: ‘state’ 1556s [00:52:36.106] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1556s [00:52:36.106] - Launch lazy future ... 1556s [00:52:36.107] Packages needed by the future expression (n = 1): ‘future’ 1556s [00:52:36.108] Packages needed by future strategies (n = 0): 1556s [00:52:36.109] { 1556s [00:52:36.109] { 1556s [00:52:36.109] { 1556s [00:52:36.109] ...future.startTime <- base::Sys.time() 1556s [00:52:36.109] { 1556s [00:52:36.109] { 1556s [00:52:36.109] { 1556s [00:52:36.109] { 1556s [00:52:36.109] base::local({ 1556s [00:52:36.109] has_future <- base::requireNamespace("future", 1556s [00:52:36.109] quietly = TRUE) 1556s [00:52:36.109] if (has_future) { 1556s [00:52:36.109] ns <- base::getNamespace("future") 1556s [00:52:36.109] version <- ns[[".package"]][["version"]] 1556s [00:52:36.109] if (is.null(version)) 1556s [00:52:36.109] version <- utils::packageVersion("future") 1556s [00:52:36.109] } 1556s [00:52:36.109] else { 1556s [00:52:36.109] version <- NULL 1556s [00:52:36.109] } 1556s [00:52:36.109] if (!has_future || version < "1.8.0") { 1556s [00:52:36.109] info <- base::c(r_version = base::gsub("R version ", 1556s [00:52:36.109] "", base::R.version$version.string), 1556s [00:52:36.109] platform = base::sprintf("%s (%s-bit)", 1556s [00:52:36.109] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1556s [00:52:36.109] os = base::paste(base::Sys.info()[base::c("sysname", 1556s [00:52:36.109] "release", "version")], collapse = " "), 1556s [00:52:36.109] hostname = base::Sys.info()[["nodename"]]) 1556s [00:52:36.109] info <- base::sprintf("%s: %s", base::names(info), 1556s [00:52:36.109] info) 1556s [00:52:36.109] info <- base::paste(info, collapse = "; ") 1556s [00:52:36.109] if (!has_future) { 1556s [00:52:36.109] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1556s [00:52:36.109] info) 1556s [00:52:36.109] } 1556s [00:52:36.109] else { 1556s [00:52:36.109] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1556s [00:52:36.109] info, version) 1556s [00:52:36.109] } 1556s [00:52:36.109] base::stop(msg) 1556s [00:52:36.109] } 1556s [00:52:36.109] }) 1556s [00:52:36.109] } 1556s [00:52:36.109] base::local({ 1556s [00:52:36.109] for (pkg in "future") { 1556s [00:52:36.109] base::loadNamespace(pkg) 1556s [00:52:36.109] base::library(pkg, character.only = TRUE) 1556s [00:52:36.109] } 1556s [00:52:36.109] }) 1556s [00:52:36.109] } 1556s [00:52:36.109] options(future.plan = NULL) 1556s [00:52:36.109] Sys.unsetenv("R_FUTURE_PLAN") 1556s [00:52:36.109] future::plan("default", .cleanup = FALSE, .init = FALSE) 1556s [00:52:36.109] } 1556s [00:52:36.109] ...future.workdir <- getwd() 1556s [00:52:36.109] } 1556s [00:52:36.109] ...future.oldOptions <- base::as.list(base::.Options) 1556s [00:52:36.109] ...future.oldEnvVars <- base::Sys.getenv() 1556s [00:52:36.109] } 1556s [00:52:36.109] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1556s [00:52:36.109] future.globals.maxSize = NULL, future.globals.method = NULL, 1556s [00:52:36.109] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1556s [00:52:36.109] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1556s [00:52:36.109] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1556s [00:52:36.109] future.stdout.windows.reencode = NULL, width = 80L) 1556s [00:52:36.109] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1556s [00:52:36.109] base::names(...future.oldOptions)) 1556s [00:52:36.109] } 1556s [00:52:36.109] if (FALSE) { 1556s [00:52:36.109] } 1556s [00:52:36.109] else { 1556s [00:52:36.109] if (TRUE) { 1556s [00:52:36.109] ...future.stdout <- base::rawConnection(base::raw(0L), 1556s [00:52:36.109] open = "w") 1556s [00:52:36.109] } 1556s [00:52:36.109] else { 1556s [00:52:36.109] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1556s [00:52:36.109] windows = "NUL", "/dev/null"), open = "w") 1556s [00:52:36.109] } 1556s [00:52:36.109] base::sink(...future.stdout, type = "output", split = FALSE) 1556s [00:52:36.109] base::on.exit(if (!base::is.null(...future.stdout)) { 1556s [00:52:36.109] base::sink(type = "output", split = FALSE) 1556s [00:52:36.109] base::close(...future.stdout) 1556s [00:52:36.109] }, add = TRUE) 1556s [00:52:36.109] } 1556s [00:52:36.109] ...future.frame <- base::sys.nframe() 1556s [00:52:36.109] ...future.conditions <- base::list() 1556s [00:52:36.109] ...future.rng <- base::globalenv()$.Random.seed 1556s [00:52:36.109] if (FALSE) { 1556s [00:52:36.109] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1556s [00:52:36.109] "...future.value", "...future.globalenv.names", ".Random.seed") 1556s [00:52:36.109] } 1556s [00:52:36.109] ...future.result <- base::tryCatch({ 1556s [00:52:36.109] base::withCallingHandlers({ 1556s [00:52:36.109] ...future.value <- base::withVisible(base::local({ 1556s [00:52:36.109] do.call(function(...) { 1556s [00:52:36.109] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1556s [00:52:36.109] if (!identical(...future.globals.maxSize.org, 1556s [00:52:36.109] ...future.globals.maxSize)) { 1556s [00:52:36.109] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1556s [00:52:36.109] on.exit(options(oopts), add = TRUE) 1556s [00:52:36.109] } 1556s [00:52:36.109] { 1556s [00:52:36.109] lapply(seq_along(...future.elements_ii), 1556s [00:52:36.109] FUN = function(jj) { 1556s [00:52:36.109] ...future.X_jj <- ...future.elements_ii[[jj]] 1556s [00:52:36.109] ...future.FUN(...future.X_jj, ...) 1556s [00:52:36.109] }) 1556s [00:52:36.109] } 1556s [00:52:36.109] }, args = future.call.arguments) 1556s [00:52:36.109] })) 1556s [00:52:36.109] future::FutureResult(value = ...future.value$value, 1556s [00:52:36.109] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1556s [00:52:36.109] ...future.rng), globalenv = if (FALSE) 1556s [00:52:36.109] list(added = base::setdiff(base::names(base::.GlobalEnv), 1556s [00:52:36.109] ...future.globalenv.names)) 1556s [00:52:36.109] else NULL, started = ...future.startTime, version = "1.8") 1556s [00:52:36.109] }, condition = base::local({ 1556s [00:52:36.109] c <- base::c 1556s [00:52:36.109] inherits <- base::inherits 1556s [00:52:36.109] invokeRestart <- base::invokeRestart 1556s [00:52:36.109] length <- base::length 1556s [00:52:36.109] list <- base::list 1556s [00:52:36.109] seq.int <- base::seq.int 1556s [00:52:36.109] signalCondition <- base::signalCondition 1556s [00:52:36.109] sys.calls <- base::sys.calls 1556s [00:52:36.109] `[[` <- base::`[[` 1556s [00:52:36.109] `+` <- base::`+` 1556s [00:52:36.109] `<<-` <- base::`<<-` 1556s [00:52:36.109] sysCalls <- function(calls = sys.calls(), from = 1L) { 1556s [00:52:36.109] calls[seq.int(from = from + 12L, to = length(calls) - 1556s [00:52:36.109] 3L)] 1556s [00:52:36.109] } 1556s [00:52:36.109] function(cond) { 1556s [00:52:36.109] is_error <- inherits(cond, "error") 1556s [00:52:36.109] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1556s [00:52:36.109] NULL) 1556s [00:52:36.109] if (is_error) { 1556s [00:52:36.109] sessionInformation <- function() { 1556s [00:52:36.109] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1556s [00:52:36.109] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1556s [00:52:36.109] search = base::search(), system = base::Sys.info()) 1556s [00:52:36.109] } 1556s [00:52:36.109] ...future.conditions[[length(...future.conditions) + 1556s [00:52:36.109] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1556s [00:52:36.109] cond$call), session = sessionInformation(), 1556s [00:52:36.109] timestamp = base::Sys.time(), signaled = 0L) 1556s [00:52:36.109] signalCondition(cond) 1556s [00:52:36.109] } 1556s [00:52:36.109] else if (!ignore && TRUE && inherits(cond, c("condition", 1556s [00:52:36.109] "immediateCondition"))) { 1556s [00:52:36.109] signal <- TRUE && inherits(cond, "immediateCondition") 1556s [00:52:36.109] ...future.conditions[[length(...future.conditions) + 1556s [00:52:36.109] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1556s [00:52:36.109] if (TRUE && !signal) { 1556s [00:52:36.109] muffleCondition <- function (cond, pattern = "^muffle") 1556s [00:52:36.109] { 1556s [00:52:36.109] inherits <- base::inherits 1556s [00:52:36.109] invokeRestart <- base::invokeRestart 1556s [00:52:36.109] is.null <- base::is.null 1556s [00:52:36.109] muffled <- FALSE 1556s [00:52:36.109] if (inherits(cond, "message")) { 1556s [00:52:36.109] muffled <- grepl(pattern, "muffleMessage") 1556s [00:52:36.109] if (muffled) 1556s [00:52:36.109] invokeRestart("muffleMessage") 1556s [00:52:36.109] } 1556s [00:52:36.109] else if (inherits(cond, "warning")) { 1556s [00:52:36.109] muffled <- grepl(pattern, "muffleWarning") 1556s [00:52:36.109] if (muffled) 1556s [00:52:36.109] invokeRestart("muffleWarning") 1556s [00:52:36.109] } 1556s [00:52:36.109] else if (inherits(cond, "condition")) { 1556s [00:52:36.109] if (!is.null(pattern)) { 1556s [00:52:36.109] computeRestarts <- base::computeRestarts 1556s [00:52:36.109] grepl <- base::grepl 1556s [00:52:36.109] restarts <- computeRestarts(cond) 1556s [00:52:36.109] for (restart in restarts) { 1556s [00:52:36.109] name <- restart$name 1556s [00:52:36.109] if (is.null(name)) 1556s [00:52:36.109] next 1556s [00:52:36.109] if (!grepl(pattern, name)) 1556s [00:52:36.109] next 1556s [00:52:36.109] invokeRestart(restart) 1556s [00:52:36.109] muffled <- TRUE 1556s [00:52:36.109] break 1556s [00:52:36.109] } 1556s [00:52:36.109] } 1556s [00:52:36.109] } 1556s [00:52:36.109] invisible(muffled) 1556s [00:52:36.109] } 1556s [00:52:36.109] muffleCondition(cond, pattern = "^muffle") 1556s [00:52:36.109] } 1556s [00:52:36.109] } 1556s [00:52:36.109] else { 1556s [00:52:36.109] if (TRUE) { 1556s [00:52:36.109] muffleCondition <- function (cond, pattern = "^muffle") 1556s [00:52:36.109] { 1556s [00:52:36.109] inherits <- base::inherits 1556s [00:52:36.109] invokeRestart <- base::invokeRestart 1556s [00:52:36.109] is.null <- base::is.null 1556s [00:52:36.109] muffled <- FALSE 1556s [00:52:36.109] if (inherits(cond, "message")) { 1556s [00:52:36.109] muffled <- grepl(pattern, "muffleMessage") 1556s [00:52:36.109] if (muffled) 1556s [00:52:36.109] invokeRestart("muffleMessage") 1556s [00:52:36.109] } 1556s [00:52:36.109] else if (inherits(cond, "warning")) { 1556s [00:52:36.109] muffled <- grepl(pattern, "muffleWarning") 1556s [00:52:36.109] if (muffled) 1556s [00:52:36.109] invokeRestart("muffleWarning") 1556s [00:52:36.109] } 1556s [00:52:36.109] else if (inherits(cond, "condition")) { 1556s [00:52:36.109] if (!is.null(pattern)) { 1556s [00:52:36.109] computeRestarts <- base::computeRestarts 1556s [00:52:36.109] grepl <- base::grepl 1556s [00:52:36.109] restarts <- computeRestarts(cond) 1556s [00:52:36.109] for (restart in restarts) { 1556s [00:52:36.109] name <- restart$name 1556s [00:52:36.109] if (is.null(name)) 1556s [00:52:36.109] next 1556s [00:52:36.109] if (!grepl(pattern, name)) 1556s [00:52:36.109] next 1556s [00:52:36.109] invokeRestart(restart) 1556s [00:52:36.109] muffled <- TRUE 1556s [00:52:36.109] break 1556s [00:52:36.109] } 1556s [00:52:36.109] } 1556s [00:52:36.109] } 1556s [00:52:36.109] invisible(muffled) 1556s [00:52:36.109] } 1556s [00:52:36.109] muffleCondition(cond, pattern = "^muffle") 1556s [00:52:36.109] } 1556s [00:52:36.109] } 1556s [00:52:36.109] } 1556s [00:52:36.109] })) 1556s [00:52:36.109] }, error = function(ex) { 1556s [00:52:36.109] base::structure(base::list(value = NULL, visible = NULL, 1556s [00:52:36.109] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1556s [00:52:36.109] ...future.rng), started = ...future.startTime, 1556s [00:52:36.109] finished = Sys.time(), session_uuid = NA_character_, 1556s [00:52:36.109] version = "1.8"), class = "FutureResult") 1556s [00:52:36.109] }, finally = { 1556s [00:52:36.109] if (!identical(...future.workdir, getwd())) 1556s [00:52:36.109] setwd(...future.workdir) 1556s [00:52:36.109] { 1556s [00:52:36.109] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1556s [00:52:36.109] ...future.oldOptions$nwarnings <- NULL 1556s [00:52:36.109] } 1556s [00:52:36.109] base::options(...future.oldOptions) 1556s [00:52:36.109] if (.Platform$OS.type == "windows") { 1556s [00:52:36.109] old_names <- names(...future.oldEnvVars) 1556s [00:52:36.109] envs <- base::Sys.getenv() 1556s [00:52:36.109] names <- names(envs) 1556s [00:52:36.109] common <- intersect(names, old_names) 1556s [00:52:36.109] added <- setdiff(names, old_names) 1556s [00:52:36.109] removed <- setdiff(old_names, names) 1556s [00:52:36.109] changed <- common[...future.oldEnvVars[common] != 1556s [00:52:36.109] envs[common]] 1556s [00:52:36.109] NAMES <- toupper(changed) 1556s [00:52:36.109] args <- list() 1556s [00:52:36.109] for (kk in seq_along(NAMES)) { 1556s [00:52:36.109] name <- changed[[kk]] 1556s [00:52:36.109] NAME <- NAMES[[kk]] 1556s [00:52:36.109] if (name != NAME && is.element(NAME, old_names)) 1556s [00:52:36.109] next 1556s [00:52:36.109] args[[name]] <- ...future.oldEnvVars[[name]] 1556s [00:52:36.109] } 1556s [00:52:36.109] NAMES <- toupper(added) 1556s [00:52:36.109] for (kk in seq_along(NAMES)) { 1556s [00:52:36.109] name <- added[[kk]] 1556s [00:52:36.109] NAME <- NAMES[[kk]] 1556s [00:52:36.109] if (name != NAME && is.element(NAME, old_names)) 1556s [00:52:36.109] next 1556s [00:52:36.109] args[[name]] <- "" 1556s [00:52:36.109] } 1556s [00:52:36.109] NAMES <- toupper(removed) 1556s [00:52:36.109] for (kk in seq_along(NAMES)) { 1556s [00:52:36.109] name <- removed[[kk]] 1556s [00:52:36.109] NAME <- NAMES[[kk]] 1556s [00:52:36.109] if (name != NAME && is.element(NAME, old_names)) 1556s [00:52:36.109] next 1556s [00:52:36.109] args[[name]] <- ...future.oldEnvVars[[name]] 1556s [00:52:36.109] } 1556s [00:52:36.109] if (length(args) > 0) 1556s [00:52:36.109] base::do.call(base::Sys.setenv, args = args) 1556s [00:52:36.109] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1556s [00:52:36.109] } 1556s [00:52:36.109] else { 1556s [00:52:36.109] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1556s [00:52:36.109] } 1556s [00:52:36.109] { 1556s [00:52:36.109] if (base::length(...future.futureOptionsAdded) > 1556s [00:52:36.109] 0L) { 1556s [00:52:36.109] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1556s [00:52:36.109] base::names(opts) <- ...future.futureOptionsAdded 1556s [00:52:36.109] base::options(opts) 1556s [00:52:36.109] } 1556s [00:52:36.109] { 1556s [00:52:36.109] { 1556s [00:52:36.109] NULL 1556s [00:52:36.109] RNGkind("Mersenne-Twister") 1556s [00:52:36.109] base::rm(list = ".Random.seed", envir = base::globalenv(), 1556s [00:52:36.109] inherits = FALSE) 1556s [00:52:36.109] } 1556s [00:52:36.109] options(future.plan = NULL) 1556s [00:52:36.109] if (is.na(NA_character_)) 1556s [00:52:36.109] Sys.unsetenv("R_FUTURE_PLAN") 1556s [00:52:36.109] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1556s [00:52:36.109] future::plan(list(function (..., workers = availableCores(), 1556s [00:52:36.109] lazy = FALSE, rscript_libs = .libPaths(), 1556s [00:52:36.109] envir = parent.frame()) 1556s [00:52:36.109] { 1556s [00:52:36.109] if (is.function(workers)) 1556s [00:52:36.109] workers <- workers() 1556s [00:52:36.109] workers <- structure(as.integer(workers), 1556s [00:52:36.109] class = class(workers)) 1556s [00:52:36.109] stop_if_not(length(workers) == 1, is.finite(workers), 1556s [00:52:36.109] workers >= 1) 1556s [00:52:36.109] if (workers == 1L && !inherits(workers, "AsIs")) { 1556s [00:52:36.109] return(sequential(..., lazy = TRUE, envir = envir)) 1556s [00:52:36.109] } 1556s [00:52:36.109] future <- MultisessionFuture(..., workers = workers, 1556s [00:52:36.109] lazy = lazy, rscript_libs = rscript_libs, 1556s [00:52:36.109] envir = envir) 1556s [00:52:36.109] if (!future$lazy) 1556s [00:52:36.109] future <- run(future) 1556s [00:52:36.109] invisible(future) 1556s [00:52:36.109] }), .cleanup = FALSE, .init = FALSE) 1556s [00:52:36.109] } 1556s [00:52:36.109] } 1556s [00:52:36.109] } 1556s [00:52:36.109] }) 1556s [00:52:36.109] if (TRUE) { 1556s [00:52:36.109] base::sink(type = "output", split = FALSE) 1556s [00:52:36.109] if (TRUE) { 1556s [00:52:36.109] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1556s [00:52:36.109] } 1556s [00:52:36.109] else { 1556s [00:52:36.109] ...future.result["stdout"] <- base::list(NULL) 1556s [00:52:36.109] } 1556s [00:52:36.109] base::close(...future.stdout) 1556s [00:52:36.109] ...future.stdout <- NULL 1556s [00:52:36.109] } 1556s [00:52:36.109] ...future.result$conditions <- ...future.conditions 1556s [00:52:36.109] ...future.result$finished <- base::Sys.time() 1556s [00:52:36.109] ...future.result 1556s [00:52:36.109] } 1556s [00:52:36.118] assign_globals() ... 1556s [00:52:36.118] List of 5 1556s [00:52:36.118] $ ...future.FUN :function (..., sep = "", collapse = ", ", lastCollapse = NULL, maxHead = if (missing(lastCollapse)) 3 else Inf, 1556s [00:52:36.118] maxTail = if (is.finite(maxHead)) 1 else Inf, abbreviate = "...") 1556s [00:52:36.118] $ future.call.arguments :List of 2 1556s [00:52:36.118] ..$ collapse: chr "; " 1556s [00:52:36.118] ..$ maxHead : int 3 1556s [00:52:36.118] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1556s [00:52:36.118] $ ...future.elements_ii :List of 1 1556s [00:52:36.118] ..$ a: Named chr [1:101] "hello" "1" "2" "3" ... 1556s [00:52:36.118] .. ..- attr(*, "names")= chr [1:101] "" "b1" "b2" "b3" ... 1556s [00:52:36.118] $ ...future.seeds_ii : NULL 1556s [00:52:36.118] $ ...future.globals.maxSize: NULL 1556s [00:52:36.118] - attr(*, "where")=List of 5 1556s [00:52:36.118] ..$ ...future.FUN : 1556s [00:52:36.118] ..$ future.call.arguments : 1556s [00:52:36.118] ..$ ...future.elements_ii : 1556s [00:52:36.118] ..$ ...future.seeds_ii : 1556s [00:52:36.118] ..$ ...future.globals.maxSize: 1556s [00:52:36.118] - attr(*, "resolved")= logi FALSE 1556s [00:52:36.118] - attr(*, "total_size")= num 71456 1556s [00:52:36.118] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1556s [00:52:36.118] - attr(*, "already-done")= logi TRUE 1556s [00:52:36.135] - copied ‘...future.FUN’ to environment 1556s [00:52:36.136] - copied ‘future.call.arguments’ to environment 1556s [00:52:36.136] - copied ‘...future.elements_ii’ to environment 1556s [00:52:36.136] - copied ‘...future.seeds_ii’ to environment 1556s [00:52:36.137] - copied ‘...future.globals.maxSize’ to environment 1556s [00:52:36.137] assign_globals() ... done 1556s [00:52:36.138] plan(): Setting new future strategy stack: 1556s [00:52:36.138] List of future strategies: 1556s [00:52:36.138] 1. sequential: 1556s [00:52:36.138] - args: function (..., envir = parent.frame()) 1556s [00:52:36.138] - tweaked: FALSE 1556s [00:52:36.138] - call: NULL 1556s [00:52:36.138] plan(): nbrOfWorkers() = 1 1556s [00:52:36.139] plan(): Setting new future strategy stack: 1556s [00:52:36.140] List of future strategies: 1556s [00:52:36.140] 1. multisession: 1556s [00:52:36.140] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1556s [00:52:36.140] - tweaked: FALSE 1556s [00:52:36.140] - call: plan(strategy) 1556s [00:52:36.146] plan(): nbrOfWorkers() = 1 1556s [00:52:36.147] SequentialFuture started (and completed) 1556s [00:52:36.147] - Launch lazy future ... done 1556s [00:52:36.147] run() for ‘SequentialFuture’ ... done 1556s [00:52:36.148] Created future: 1556s [00:52:36.148] SequentialFuture: 1556s [00:52:36.148] Label: ‘future_lapply-1’ 1556s [00:52:36.148] Expression: 1556s [00:52:36.148] { 1556s [00:52:36.148] do.call(function(...) { 1556s [00:52:36.148] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1556s [00:52:36.148] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1556s [00:52:36.148] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1556s [00:52:36.148] on.exit(options(oopts), add = TRUE) 1556s [00:52:36.148] } 1556s [00:52:36.148] { 1556s [00:52:36.148] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1556s [00:52:36.148] ...future.X_jj <- ...future.elements_ii[[jj]] 1556s [00:52:36.148] ...future.FUN(...future.X_jj, ...) 1556s [00:52:36.148] }) 1556s [00:52:36.148] } 1556s [00:52:36.148] }, args = future.call.arguments) 1556s [00:52:36.148] } 1556s [00:52:36.148] Lazy evaluation: FALSE 1556s [00:52:36.148] Asynchronous evaluation: FALSE 1556s [00:52:36.148] Local evaluation: TRUE 1556s [00:52:36.148] Environment: R_GlobalEnv 1556s [00:52:36.148] Capture standard output: TRUE 1556s [00:52:36.148] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1556s [00:52:36.148] Globals: 5 objects totaling 82.61 KiB (function ‘...future.FUN’ of 69.62 KiB, DotDotDotList ‘future.call.arguments’ of 168 bytes, list ‘...future.elements_ii’ of 12.83 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1556s [00:52:36.148] Packages: 1 packages (‘future’) 1556s [00:52:36.148] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1556s [00:52:36.148] Resolved: TRUE 1556s [00:52:36.148] Value: 136 bytes of class ‘list’ 1556s [00:52:36.148] Early signaling: FALSE 1556s [00:52:36.148] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1556s [00:52:36.148] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1556s [00:52:36.151] Chunk #1 of 1 ... DONE 1556s [00:52:36.151] Launching 1 futures (chunks) ... DONE 1556s [00:52:36.151] Resolving 1 futures (chunks) ... 1556s [00:52:36.152] resolve() on list ... 1556s [00:52:36.152] recursive: 0 1556s [00:52:36.152] length: 1 1556s [00:52:36.153] 1556s [00:52:36.153] resolved() for ‘SequentialFuture’ ... 1556s [00:52:36.153] - state: ‘finished’ 1556s [00:52:36.153] - run: TRUE 1556s [00:52:36.154] - result: ‘FutureResult’ 1556s [00:52:36.154] resolved() for ‘SequentialFuture’ ... done 1556s [00:52:36.155] Future #1 1556s [00:52:36.155] signalConditionsASAP(SequentialFuture, pos=1) ... 1556s [00:52:36.155] - nx: 1 1556s [00:52:36.155] - relay: TRUE 1556s [00:52:36.155] - stdout: TRUE 1556s [00:52:36.155] - signal: TRUE 1556s [00:52:36.156] - resignal: FALSE 1556s [00:52:36.156] - force: TRUE 1556s [00:52:36.156] - relayed: [n=1] FALSE 1556s [00:52:36.157] - queued futures: [n=1] FALSE 1556s [00:52:36.157] - until=1 1556s [00:52:36.157] - relaying element #1 1556s [00:52:36.158] - relayed: [n=1] TRUE 1556s [00:52:36.158] - queued futures: [n=1] TRUE 1556s [00:52:36.158] signalConditionsASAP(SequentialFuture, pos=1) ... done 1556s [00:52:36.159] length: 0 (resolved future 1) 1556s [00:52:36.159] Relaying remaining futures 1556s [00:52:36.159] signalConditionsASAP(NULL, pos=0) ... 1556s [00:52:36.159] - nx: 1 1556s [00:52:36.159] - relay: TRUE 1556s [00:52:36.159] - stdout: TRUE 1556s [00:52:36.159] - signal: TRUE 1556s [00:52:36.160] - resignal: FALSE 1556s [00:52:36.160] - force: TRUE 1556s [00:52:36.160] - relayed: [n=1] TRUE 1556s [00:52:36.161] - queued futures: [n=1] TRUE 1556s - flush all 1556s [00:52:36.161] - relayed: [n=1] TRUE 1556s [00:52:36.161] - queued futures: [n=1] TRUE 1556s [00:52:36.161] signalConditionsASAP(NULL, pos=0) ... done 1556s [00:52:36.162] resolve() on list ... DONE 1556s [00:52:36.162] - Number of value chunks collected: 1 1556s [00:52:36.162] Resolving 1 futures (chunks) ... DONE 1556s [00:52:36.162] Reducing values from 1 chunks ... 1556s [00:52:36.163] - Number of values collected after concatenation: 1 1556s [00:52:36.163] - Number of values expected: 1 1556s [00:52:36.163] Reducing values from 1 chunks ... DONE 1556s [00:52:36.163] future_lapply() ... DONE 1556s List of 1 1556s $ y:List of 1 1556s ..$ a: chr "hello; 1; 2; ...; 100" 1556s - future_lapply(x, FUN = listenv::listenv, ...) ... 1556s [00:52:36.165] future_lapply() ... 1556s [00:52:36.171] Number of chunks: 1 1556s [00:52:36.172] getGlobalsAndPackagesXApply() ... 1556s [00:52:36.172] - future.globals: TRUE 1556s [00:52:36.173] getGlobalsAndPackages() ... 1556s [00:52:36.173] Searching for globals... 1556s [00:52:36.176] - globals found: [4] ‘FUN’, ‘{’, ‘get’, ‘parent.env’ 1556s [00:52:36.177] Searching for globals ... DONE 1556s [00:52:36.177] Resolving globals: FALSE 1556s [00:52:36.178] The total size of the 1 globals is 4.85 KiB (4968 bytes) 1556s [00:52:36.179] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.85 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.85 KiB of class ‘function’) 1556s [00:52:36.180] - globals: [1] ‘FUN’ 1556s [00:52:36.180] - packages: [1] ‘listenv’ 1556s [00:52:36.181] getGlobalsAndPackages() ... DONE 1556s [00:52:36.181] - globals found/used: [n=1] ‘FUN’ 1556s [00:52:36.181] - needed namespaces: [n=1] ‘listenv’ 1556s [00:52:36.181] Finding globals ... DONE 1556s [00:52:36.182] - use_args: TRUE 1556s [00:52:36.182] - Getting '...' globals ... 1556s [00:52:36.183] resolve() on list ... 1556s [00:52:36.183] recursive: 0 1556s [00:52:36.183] length: 1 1556s [00:52:36.183] elements: ‘...’ 1556s [00:52:36.183] length: 0 (resolved future 1) 1556s [00:52:36.184] resolve() on list ... DONE 1556s [00:52:36.184] - '...' content: [n=0] 1556s [00:52:36.184] List of 1 1556s [00:52:36.184] $ ...: list() 1556s [00:52:36.184] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1556s [00:52:36.184] - attr(*, "where")=List of 1 1556s [00:52:36.184] ..$ ...: 1556s [00:52:36.184] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1556s [00:52:36.184] - attr(*, "resolved")= logi TRUE 1556s [00:52:36.184] - attr(*, "total_size")= num NA 1556s [00:52:36.187] - Getting '...' globals ... DONE 1556s [00:52:36.188] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1556s [00:52:36.188] List of 2 1556s [00:52:36.188] $ ...future.FUN:function (x, ...) 1556s [00:52:36.188] $ ... : list() 1556s [00:52:36.188] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1556s [00:52:36.188] - attr(*, "where")=List of 2 1556s [00:52:36.188] ..$ ...future.FUN: 1556s [00:52:36.188] ..$ ... : 1556s [00:52:36.188] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1556s [00:52:36.188] - attr(*, "resolved")= logi FALSE 1556s [00:52:36.188] - attr(*, "total_size")= num 4968 1556s [00:52:36.192] Packages to be attached in all futures: [n=1] ‘listenv’ 1556s [00:52:36.192] getGlobalsAndPackagesXApply() ... DONE 1556s [00:52:36.193] Number of futures (= number of chunks): 1 1556s [00:52:36.193] Launching 1 futures (chunks) ... 1556s [00:52:36.193] Chunk #1 of 1 ... 1556s [00:52:36.193] - Finding globals in 'X' for chunk #1 ... 1556s [00:52:36.193] getGlobalsAndPackages() ... 1556s [00:52:36.193] Searching for globals... 1556s [00:52:36.194] 1556s [00:52:36.194] Searching for globals ... DONE 1556s [00:52:36.195] - globals: [0] 1556s [00:52:36.195] getGlobalsAndPackages() ... DONE 1556s [00:52:36.195] + additional globals found: [n=0] 1556s [00:52:36.195] + additional namespaces needed: [n=0] 1556s [00:52:36.195] - Finding globals in 'X' for chunk #1 ... DONE 1556s [00:52:36.195] - seeds: 1556s [00:52:36.195] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1556s [00:52:36.195] getGlobalsAndPackages() ... 1556s [00:52:36.195] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1556s [00:52:36.196] Resolving globals: FALSE 1556s [00:52:36.196] Tweak future expression to call with '...' arguments ... 1556s [00:52:36.196] { 1556s [00:52:36.196] do.call(function(...) { 1556s [00:52:36.196] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1556s [00:52:36.196] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1556s [00:52:36.196] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1556s [00:52:36.196] on.exit(options(oopts), add = TRUE) 1556s [00:52:36.196] } 1556s [00:52:36.196] { 1556s [00:52:36.196] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1556s [00:52:36.196] ...future.X_jj <- ...future.elements_ii[[jj]] 1556s [00:52:36.196] ...future.FUN(...future.X_jj, ...) 1556s [00:52:36.196] }) 1556s [00:52:36.196] } 1556s [00:52:36.196] }, args = future.call.arguments) 1556s [00:52:36.196] } 1556s [00:52:36.196] Tweak future expression to call with '...' arguments ... DONE 1556s [00:52:36.197] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1556s [00:52:36.197] - packages: [1] ‘listenv’ 1556s [00:52:36.197] getGlobalsAndPackages() ... DONE 1556s [00:52:36.198] run() for ‘Future’ ... 1556s [00:52:36.198] - state: ‘created’ 1556s [00:52:36.198] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1556s [00:52:36.202] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1556s [00:52:36.202] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1556s [00:52:36.202] - Field: ‘label’ 1556s [00:52:36.202] - Field: ‘local’ 1556s [00:52:36.203] - Field: ‘owner’ 1556s [00:52:36.203] - Field: ‘envir’ 1556s [00:52:36.203] - Field: ‘packages’ 1556s [00:52:36.203] - Field: ‘gc’ 1556s [00:52:36.203] - Field: ‘conditions’ 1556s [00:52:36.203] - Field: ‘expr’ 1556s [00:52:36.204] - Field: ‘uuid’ 1556s [00:52:36.204] - Field: ‘seed’ 1556s [00:52:36.204] - Field: ‘version’ 1556s [00:52:36.204] - Field: ‘result’ 1556s [00:52:36.205] - Field: ‘asynchronous’ 1556s [00:52:36.205] - Field: ‘calls’ 1556s [00:52:36.205] - Field: ‘globals’ 1556s [00:52:36.205] - Field: ‘stdout’ 1556s [00:52:36.205] - Field: ‘earlySignal’ 1556s [00:52:36.205] - Field: ‘lazy’ 1556s [00:52:36.206] - Field: ‘state’ 1556s [00:52:36.206] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1556s [00:52:36.206] - Launch lazy future ... 1556s [00:52:36.206] Packages needed by the future expression (n = 1): ‘listenv’ 1556s [00:52:36.206] Packages needed by future strategies (n = 0): 1556s [00:52:36.207] { 1556s [00:52:36.207] { 1556s [00:52:36.207] { 1556s [00:52:36.207] ...future.startTime <- base::Sys.time() 1556s [00:52:36.207] { 1556s [00:52:36.207] { 1556s [00:52:36.207] { 1556s [00:52:36.207] { 1556s [00:52:36.207] base::local({ 1556s [00:52:36.207] has_future <- base::requireNamespace("future", 1556s [00:52:36.207] quietly = TRUE) 1556s [00:52:36.207] if (has_future) { 1556s [00:52:36.207] ns <- base::getNamespace("future") 1556s [00:52:36.207] version <- ns[[".package"]][["version"]] 1556s [00:52:36.207] if (is.null(version)) 1556s [00:52:36.207] version <- utils::packageVersion("future") 1556s [00:52:36.207] } 1556s [00:52:36.207] else { 1556s [00:52:36.207] version <- NULL 1556s [00:52:36.207] } 1556s [00:52:36.207] if (!has_future || version < "1.8.0") { 1556s [00:52:36.207] info <- base::c(r_version = base::gsub("R version ", 1556s [00:52:36.207] "", base::R.version$version.string), 1556s [00:52:36.207] platform = base::sprintf("%s (%s-bit)", 1556s [00:52:36.207] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1556s [00:52:36.207] os = base::paste(base::Sys.info()[base::c("sysname", 1556s [00:52:36.207] "release", "version")], collapse = " "), 1556s [00:52:36.207] hostname = base::Sys.info()[["nodename"]]) 1556s [00:52:36.207] info <- base::sprintf("%s: %s", base::names(info), 1556s [00:52:36.207] info) 1556s [00:52:36.207] info <- base::paste(info, collapse = "; ") 1556s [00:52:36.207] if (!has_future) { 1556s [00:52:36.207] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1556s [00:52:36.207] info) 1556s [00:52:36.207] } 1556s [00:52:36.207] else { 1556s [00:52:36.207] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1556s [00:52:36.207] info, version) 1556s [00:52:36.207] } 1556s [00:52:36.207] base::stop(msg) 1556s [00:52:36.207] } 1556s [00:52:36.207] }) 1556s [00:52:36.207] } 1556s [00:52:36.207] base::local({ 1556s [00:52:36.207] for (pkg in "listenv") { 1556s [00:52:36.207] base::loadNamespace(pkg) 1556s [00:52:36.207] base::library(pkg, character.only = TRUE) 1556s [00:52:36.207] } 1556s [00:52:36.207] }) 1556s [00:52:36.207] } 1556s [00:52:36.207] options(future.plan = NULL) 1556s [00:52:36.207] Sys.unsetenv("R_FUTURE_PLAN") 1556s [00:52:36.207] future::plan("default", .cleanup = FALSE, .init = FALSE) 1556s [00:52:36.207] } 1556s [00:52:36.207] ...future.workdir <- getwd() 1556s [00:52:36.207] } 1556s [00:52:36.207] ...future.oldOptions <- base::as.list(base::.Options) 1556s [00:52:36.207] ...future.oldEnvVars <- base::Sys.getenv() 1556s [00:52:36.207] } 1556s [00:52:36.207] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1556s [00:52:36.207] future.globals.maxSize = NULL, future.globals.method = NULL, 1556s [00:52:36.207] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1556s [00:52:36.207] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1556s [00:52:36.207] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1556s [00:52:36.207] future.stdout.windows.reencode = NULL, width = 80L) 1556s [00:52:36.207] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1556s [00:52:36.207] base::names(...future.oldOptions)) 1556s [00:52:36.207] } 1556s [00:52:36.207] if (FALSE) { 1556s [00:52:36.207] } 1556s [00:52:36.207] else { 1556s [00:52:36.207] if (TRUE) { 1556s [00:52:36.207] ...future.stdout <- base::rawConnection(base::raw(0L), 1556s [00:52:36.207] open = "w") 1556s [00:52:36.207] } 1556s [00:52:36.207] else { 1556s [00:52:36.207] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1556s [00:52:36.207] windows = "NUL", "/dev/null"), open = "w") 1556s [00:52:36.207] } 1556s [00:52:36.207] base::sink(...future.stdout, type = "output", split = FALSE) 1556s [00:52:36.207] base::on.exit(if (!base::is.null(...future.stdout)) { 1556s [00:52:36.207] base::sink(type = "output", split = FALSE) 1556s [00:52:36.207] base::close(...future.stdout) 1556s [00:52:36.207] }, add = TRUE) 1556s [00:52:36.207] } 1556s [00:52:36.207] ...future.frame <- base::sys.nframe() 1556s [00:52:36.207] ...future.conditions <- base::list() 1556s [00:52:36.207] ...future.rng <- base::globalenv()$.Random.seed 1556s [00:52:36.207] if (FALSE) { 1556s [00:52:36.207] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1556s [00:52:36.207] "...future.value", "...future.globalenv.names", ".Random.seed") 1556s [00:52:36.207] } 1556s [00:52:36.207] ...future.result <- base::tryCatch({ 1556s [00:52:36.207] base::withCallingHandlers({ 1556s [00:52:36.207] ...future.value <- base::withVisible(base::local({ 1556s [00:52:36.207] do.call(function(...) { 1556s [00:52:36.207] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1556s [00:52:36.207] if (!identical(...future.globals.maxSize.org, 1556s [00:52:36.207] ...future.globals.maxSize)) { 1556s [00:52:36.207] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1556s [00:52:36.207] on.exit(options(oopts), add = TRUE) 1556s [00:52:36.207] } 1556s [00:52:36.207] { 1556s [00:52:36.207] lapply(seq_along(...future.elements_ii), 1556s [00:52:36.207] FUN = function(jj) { 1556s [00:52:36.207] ...future.X_jj <- ...future.elements_ii[[jj]] 1556s [00:52:36.207] ...future.FUN(...future.X_jj, ...) 1556s [00:52:36.207] }) 1556s [00:52:36.207] } 1556s [00:52:36.207] }, args = future.call.arguments) 1556s [00:52:36.207] })) 1556s [00:52:36.207] future::FutureResult(value = ...future.value$value, 1556s [00:52:36.207] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1556s [00:52:36.207] ...future.rng), globalenv = if (FALSE) 1556s [00:52:36.207] list(added = base::setdiff(base::names(base::.GlobalEnv), 1556s [00:52:36.207] ...future.globalenv.names)) 1556s [00:52:36.207] else NULL, started = ...future.startTime, version = "1.8") 1556s [00:52:36.207] }, condition = base::local({ 1556s [00:52:36.207] c <- base::c 1556s [00:52:36.207] inherits <- base::inherits 1556s [00:52:36.207] invokeRestart <- base::invokeRestart 1556s [00:52:36.207] length <- base::length 1556s [00:52:36.207] list <- base::list 1556s [00:52:36.207] seq.int <- base::seq.int 1556s [00:52:36.207] signalCondition <- base::signalCondition 1556s [00:52:36.207] sys.calls <- base::sys.calls 1556s [00:52:36.207] `[[` <- base::`[[` 1556s [00:52:36.207] `+` <- base::`+` 1556s [00:52:36.207] `<<-` <- base::`<<-` 1556s [00:52:36.207] sysCalls <- function(calls = sys.calls(), from = 1L) { 1556s [00:52:36.207] calls[seq.int(from = from + 12L, to = length(calls) - 1556s [00:52:36.207] 3L)] 1556s [00:52:36.207] } 1556s [00:52:36.207] function(cond) { 1556s [00:52:36.207] is_error <- inherits(cond, "error") 1556s [00:52:36.207] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1556s [00:52:36.207] NULL) 1556s [00:52:36.207] if (is_error) { 1556s [00:52:36.207] sessionInformation <- function() { 1556s [00:52:36.207] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1556s [00:52:36.207] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1556s [00:52:36.207] search = base::search(), system = base::Sys.info()) 1556s [00:52:36.207] } 1556s [00:52:36.207] ...future.conditions[[length(...future.conditions) + 1556s [00:52:36.207] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1556s [00:52:36.207] cond$call), session = sessionInformation(), 1556s [00:52:36.207] timestamp = base::Sys.time(), signaled = 0L) 1556s [00:52:36.207] signalCondition(cond) 1556s [00:52:36.207] } 1556s [00:52:36.207] else if (!ignore && TRUE && inherits(cond, c("condition", 1556s [00:52:36.207] "immediateCondition"))) { 1556s [00:52:36.207] signal <- TRUE && inherits(cond, "immediateCondition") 1556s [00:52:36.207] ...future.conditions[[length(...future.conditions) + 1556s [00:52:36.207] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1556s [00:52:36.207] if (TRUE && !signal) { 1556s [00:52:36.207] muffleCondition <- function (cond, pattern = "^muffle") 1556s [00:52:36.207] { 1556s [00:52:36.207] inherits <- base::inherits 1556s [00:52:36.207] invokeRestart <- base::invokeRestart 1556s [00:52:36.207] is.null <- base::is.null 1556s [00:52:36.207] muffled <- FALSE 1556s [00:52:36.207] if (inherits(cond, "message")) { 1556s [00:52:36.207] muffled <- grepl(pattern, "muffleMessage") 1556s [00:52:36.207] if (muffled) 1556s [00:52:36.207] invokeRestart("muffleMessage") 1556s [00:52:36.207] } 1556s [00:52:36.207] else if (inherits(cond, "warning")) { 1556s [00:52:36.207] muffled <- grepl(pattern, "muffleWarning") 1556s [00:52:36.207] if (muffled) 1556s [00:52:36.207] invokeRestart("muffleWarning") 1556s [00:52:36.207] } 1556s [00:52:36.207] else if (inherits(cond, "condition")) { 1556s [00:52:36.207] if (!is.null(pattern)) { 1556s [00:52:36.207] computeRestarts <- base::computeRestarts 1556s [00:52:36.207] grepl <- base::grepl 1556s [00:52:36.207] restarts <- computeRestarts(cond) 1556s [00:52:36.207] for (restart in restarts) { 1556s [00:52:36.207] name <- restart$name 1556s [00:52:36.207] if (is.null(name)) 1556s [00:52:36.207] next 1556s [00:52:36.207] if (!grepl(pattern, name)) 1556s [00:52:36.207] next 1556s [00:52:36.207] invokeRestart(restart) 1556s [00:52:36.207] muffled <- TRUE 1556s [00:52:36.207] break 1556s [00:52:36.207] } 1556s [00:52:36.207] } 1556s [00:52:36.207] } 1556s [00:52:36.207] invisible(muffled) 1556s [00:52:36.207] } 1556s [00:52:36.207] muffleCondition(cond, pattern = "^muffle") 1556s [00:52:36.207] } 1556s [00:52:36.207] } 1556s [00:52:36.207] else { 1556s [00:52:36.207] if (TRUE) { 1556s [00:52:36.207] muffleCondition <- function (cond, pattern = "^muffle") 1556s [00:52:36.207] { 1556s [00:52:36.207] inherits <- base::inherits 1556s [00:52:36.207] invokeRestart <- base::invokeRestart 1556s [00:52:36.207] is.null <- base::is.null 1556s [00:52:36.207] muffled <- FALSE 1556s [00:52:36.207] if (inherits(cond, "message")) { 1556s [00:52:36.207] muffled <- grepl(pattern, "muffleMessage") 1556s [00:52:36.207] if (muffled) 1556s [00:52:36.207] invokeRestart("muffleMessage") 1556s [00:52:36.207] } 1556s [00:52:36.207] else if (inherits(cond, "warning")) { 1556s [00:52:36.207] muffled <- grepl(pattern, "muffleWarning") 1556s [00:52:36.207] if (muffled) 1556s [00:52:36.207] invokeRestart("muffleWarning") 1556s [00:52:36.207] } 1556s [00:52:36.207] else if (inherits(cond, "condition")) { 1556s [00:52:36.207] if (!is.null(pattern)) { 1556s [00:52:36.207] computeRestarts <- base::computeRestarts 1556s [00:52:36.207] grepl <- base::grepl 1556s [00:52:36.207] restarts <- computeRestarts(cond) 1556s [00:52:36.207] for (restart in restarts) { 1556s [00:52:36.207] name <- restart$name 1556s [00:52:36.207] if (is.null(name)) 1556s [00:52:36.207] next 1556s [00:52:36.207] if (!grepl(pattern, name)) 1556s [00:52:36.207] next 1556s [00:52:36.207] invokeRestart(restart) 1556s [00:52:36.207] muffled <- TRUE 1556s [00:52:36.207] break 1556s [00:52:36.207] } 1556s [00:52:36.207] } 1556s [00:52:36.207] } 1556s [00:52:36.207] invisible(muffled) 1556s [00:52:36.207] } 1556s [00:52:36.207] muffleCondition(cond, pattern = "^muffle") 1556s [00:52:36.207] } 1556s [00:52:36.207] } 1556s [00:52:36.207] } 1556s [00:52:36.207] })) 1556s [00:52:36.207] }, error = function(ex) { 1556s [00:52:36.207] base::structure(base::list(value = NULL, visible = NULL, 1556s [00:52:36.207] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1556s [00:52:36.207] ...future.rng), started = ...future.startTime, 1556s [00:52:36.207] finished = Sys.time(), session_uuid = NA_character_, 1556s [00:52:36.207] version = "1.8"), class = "FutureResult") 1556s [00:52:36.207] }, finally = { 1556s [00:52:36.207] if (!identical(...future.workdir, getwd())) 1556s [00:52:36.207] setwd(...future.workdir) 1556s [00:52:36.207] { 1556s [00:52:36.207] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1556s [00:52:36.207] ...future.oldOptions$nwarnings <- NULL 1556s [00:52:36.207] } 1556s [00:52:36.207] base::options(...future.oldOptions) 1556s [00:52:36.207] if (.Platform$OS.type == "windows") { 1556s [00:52:36.207] old_names <- names(...future.oldEnvVars) 1556s [00:52:36.207] envs <- base::Sys.getenv() 1556s [00:52:36.207] names <- names(envs) 1556s [00:52:36.207] common <- intersect(names, old_names) 1556s [00:52:36.207] added <- setdiff(names, old_names) 1556s [00:52:36.207] removed <- setdiff(old_names, names) 1556s [00:52:36.207] changed <- common[...future.oldEnvVars[common] != 1556s [00:52:36.207] envs[common]] 1556s [00:52:36.207] NAMES <- toupper(changed) 1556s [00:52:36.207] args <- list() 1556s [00:52:36.207] for (kk in seq_along(NAMES)) { 1556s [00:52:36.207] name <- changed[[kk]] 1556s [00:52:36.207] NAME <- NAMES[[kk]] 1556s [00:52:36.207] if (name != NAME && is.element(NAME, old_names)) 1556s [00:52:36.207] next 1556s [00:52:36.207] args[[name]] <- ...future.oldEnvVars[[name]] 1556s [00:52:36.207] } 1556s [00:52:36.207] NAMES <- toupper(added) 1556s [00:52:36.207] for (kk in seq_along(NAMES)) { 1556s [00:52:36.207] name <- added[[kk]] 1556s [00:52:36.207] NAME <- NAMES[[kk]] 1556s [00:52:36.207] if (name != NAME && is.element(NAME, old_names)) 1556s [00:52:36.207] next 1556s [00:52:36.207] args[[name]] <- "" 1556s [00:52:36.207] } 1556s [00:52:36.207] NAMES <- toupper(removed) 1556s [00:52:36.207] for (kk in seq_along(NAMES)) { 1556s [00:52:36.207] name <- removed[[kk]] 1556s [00:52:36.207] NAME <- NAMES[[kk]] 1556s [00:52:36.207] if (name != NAME && is.element(NAME, old_names)) 1556s [00:52:36.207] next 1556s [00:52:36.207] args[[name]] <- ...future.oldEnvVars[[name]] 1556s [00:52:36.207] } 1556s [00:52:36.207] if (length(args) > 0) 1556s [00:52:36.207] base::do.call(base::Sys.setenv, args = args) 1556s [00:52:36.207] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1556s [00:52:36.207] } 1556s [00:52:36.207] else { 1556s [00:52:36.207] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1556s [00:52:36.207] } 1556s [00:52:36.207] { 1556s [00:52:36.207] if (base::length(...future.futureOptionsAdded) > 1556s [00:52:36.207] 0L) { 1556s [00:52:36.207] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1556s [00:52:36.207] base::names(opts) <- ...future.futureOptionsAdded 1556s [00:52:36.207] base::options(opts) 1556s [00:52:36.207] } 1556s [00:52:36.207] { 1556s [00:52:36.207] { 1556s [00:52:36.207] NULL 1556s [00:52:36.207] RNGkind("Mersenne-Twister") 1556s [00:52:36.207] base::rm(list = ".Random.seed", envir = base::globalenv(), 1556s [00:52:36.207] inherits = FALSE) 1556s [00:52:36.207] } 1556s [00:52:36.207] options(future.plan = NULL) 1556s [00:52:36.207] if (is.na(NA_character_)) 1556s [00:52:36.207] Sys.unsetenv("R_FUTURE_PLAN") 1556s [00:52:36.207] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1556s [00:52:36.207] future::plan(list(function (..., workers = availableCores(), 1556s [00:52:36.207] lazy = FALSE, rscript_libs = .libPaths(), 1556s [00:52:36.207] envir = parent.frame()) 1556s [00:52:36.207] { 1556s [00:52:36.207] if (is.function(workers)) 1556s [00:52:36.207] workers <- workers() 1556s [00:52:36.207] workers <- structure(as.integer(workers), 1556s [00:52:36.207] class = class(workers)) 1556s [00:52:36.207] stop_if_not(length(workers) == 1, is.finite(workers), 1556s [00:52:36.207] workers >= 1) 1556s [00:52:36.207] if (workers == 1L && !inherits(workers, "AsIs")) { 1556s [00:52:36.207] return(sequential(..., lazy = TRUE, envir = envir)) 1556s [00:52:36.207] } 1556s [00:52:36.207] future <- MultisessionFuture(..., workers = workers, 1556s [00:52:36.207] lazy = lazy, rscript_libs = rscript_libs, 1556s [00:52:36.207] envir = envir) 1556s [00:52:36.207] if (!future$lazy) 1556s [00:52:36.207] future <- run(future) 1556s [00:52:36.207] invisible(future) 1556s [00:52:36.207] }), .cleanup = FALSE, .init = FALSE) 1556s [00:52:36.207] } 1556s [00:52:36.207] } 1556s [00:52:36.207] } 1556s [00:52:36.207] }) 1556s [00:52:36.207] if (TRUE) { 1556s [00:52:36.207] base::sink(type = "output", split = FALSE) 1556s [00:52:36.207] if (TRUE) { 1556s [00:52:36.207] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1556s [00:52:36.207] } 1556s [00:52:36.207] else { 1556s [00:52:36.207] ...future.result["stdout"] <- base::list(NULL) 1556s [00:52:36.207] } 1556s [00:52:36.207] base::close(...future.stdout) 1556s [00:52:36.207] ...future.stdout <- NULL 1556s [00:52:36.207] } 1556s [00:52:36.207] ...future.result$conditions <- ...future.conditions 1556s [00:52:36.207] ...future.result$finished <- base::Sys.time() 1556s [00:52:36.207] ...future.result 1556s [00:52:36.207] } 1556s [00:52:36.215] assign_globals() ... 1556s [00:52:36.215] List of 5 1556s [00:52:36.215] $ ...future.FUN :function (x, ...) 1556s [00:52:36.215] $ future.call.arguments : list() 1556s [00:52:36.215] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1556s [00:52:36.215] $ ...future.elements_ii :List of 2 1556s [00:52:36.215] ..$ a:Classes 'listenv', 'environment' 1556s [00:52:36.215] ..$ b:Classes 'listenv', 'environment' 1556s [00:52:36.215] $ ...future.seeds_ii : NULL 1556s [00:52:36.215] $ ...future.globals.maxSize: NULL 1556s [00:52:36.215] - attr(*, "where")=List of 5 1556s [00:52:36.215] ..$ ...future.FUN : 1556s [00:52:36.215] ..$ future.call.arguments : 1556s [00:52:36.215] ..$ ...future.elements_ii : 1556s [00:52:36.215] ..$ ...future.seeds_ii : 1556s [00:52:36.215] ..$ ...future.globals.maxSize: 1556s [00:52:36.215] - attr(*, "resolved")= logi FALSE 1556s [00:52:36.215] - attr(*, "total_size")= num 4968 1556s [00:52:36.215] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1556s [00:52:36.215] - attr(*, "already-done")= logi TRUE 1556s [00:52:36.223] - copied ‘...future.FUN’ to environment 1556s [00:52:36.223] - copied ‘future.call.arguments’ to environment 1556s [00:52:36.223] - copied ‘...future.elements_ii’ to environment 1556s [00:52:36.223] - copied ‘...future.seeds_ii’ to environment 1556s [00:52:36.223] - copied ‘...future.globals.maxSize’ to environment 1556s [00:52:36.224] assign_globals() ... done 1556s [00:52:36.224] plan(): Setting new future strategy stack: 1556s [00:52:36.224] List of future strategies: 1556s [00:52:36.224] 1. sequential: 1556s [00:52:36.224] - args: function (..., envir = parent.frame()) 1556s [00:52:36.224] - tweaked: FALSE 1556s [00:52:36.224] - call: NULL 1556s [00:52:36.225] plan(): nbrOfWorkers() = 1 1556s [00:52:36.226] plan(): Setting new future strategy stack: 1556s [00:52:36.226] List of future strategies: 1556s [00:52:36.226] 1. multisession: 1556s [00:52:36.226] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1556s [00:52:36.226] - tweaked: FALSE 1556s [00:52:36.226] - call: plan(strategy) 1556s [00:52:36.229] plan(): nbrOfWorkers() = 1 1556s [00:52:36.230] SequentialFuture started (and completed) 1556s [00:52:36.230] - Launch lazy future ... done 1556s [00:52:36.230] run() for ‘SequentialFuture’ ... done 1556s [00:52:36.230] Created future: 1556s [00:52:36.230] SequentialFuture: 1556s [00:52:36.230] Label: ‘future_lapply-1’ 1556s [00:52:36.230] Expression: 1556s [00:52:36.230] { 1556s [00:52:36.230] do.call(function(...) { 1556s [00:52:36.230] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1556s [00:52:36.230] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1556s [00:52:36.230] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1556s [00:52:36.230] on.exit(options(oopts), add = TRUE) 1556s [00:52:36.230] } 1556s [00:52:36.230] { 1556s [00:52:36.230] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1556s [00:52:36.230] ...future.X_jj <- ...future.elements_ii[[jj]] 1556s [00:52:36.230] ...future.FUN(...future.X_jj, ...) 1556s [00:52:36.230] }) 1556s [00:52:36.230] } 1556s [00:52:36.230] }, args = future.call.arguments) 1556s [00:52:36.230] } 1556s [00:52:36.230] Lazy evaluation: FALSE 1556s [00:52:36.230] Asynchronous evaluation: FALSE 1556s [00:52:36.230] Local evaluation: TRUE 1556s [00:52:36.230] Environment: R_GlobalEnv 1556s [00:52:36.230] Capture standard output: TRUE 1556s [00:52:36.230] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1556s [00:52:36.230] Globals: 5 objects totaling 17.90 KiB (function ‘...future.FUN’ of 4.85 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 13.05 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1556s [00:52:36.230] Packages: 1 packages (‘listenv’) 1556s [00:52:36.230] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1556s [00:52:36.230] Resolved: TRUE 1556s [00:52:36.230] Value: 800 bytes of class ‘list’ 1556s [00:52:36.230] Early signaling: FALSE 1556s [00:52:36.230] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1556s [00:52:36.230] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1556s [00:52:36.233] Chunk #1 of 1 ... DONE 1556s [00:52:36.233] Launching 1 futures (chunks) ... DONE 1556s [00:52:36.234] Resolving 1 futures (chunks) ... 1556s [00:52:36.234] resolve() on list ... 1556s [00:52:36.234] recursive: 0 1556s [00:52:36.234] length: 1 1556s [00:52:36.234] 1556s [00:52:36.234] resolved() for ‘SequentialFuture’ ... 1556s [00:52:36.234] - state: ‘finished’ 1556s [00:52:36.235] - run: TRUE 1556s [00:52:36.235] - result: ‘FutureResult’ 1556s [00:52:36.235] resolved() for ‘SequentialFuture’ ... done 1556s [00:52:36.235] Future #1 1556s [00:52:36.235] signalConditionsASAP(SequentialFuture, pos=1) ... 1556s [00:52:36.236] - nx: 1 1556s [00:52:36.236] - relay: TRUE 1556s [00:52:36.236] - stdout: TRUE 1556s [00:52:36.236] - signal: TRUE 1556s [00:52:36.236] - resignal: FALSE 1556s [00:52:36.236] - force: TRUE 1556s [00:52:36.236] - relayed: [n=1] FALSE 1556s [00:52:36.236] - queued futures: [n=1] FALSE 1556s [00:52:36.237] - until=1 1556s [00:52:36.237] - relaying element #1 1556s [00:52:36.237] - relayed: [n=1] TRUE 1556s [00:52:36.237] - queued futures: [n=1] TRUE 1556s [00:52:36.237] signalConditionsASAP(SequentialFuture, pos=1) ... done 1556s [00:52:36.237] length: 0 (resolved future 1) 1556s [00:52:36.237] Relaying remaining futures 1556s [00:52:36.238] signalConditionsASAP(NULL, pos=0) ... 1556s [00:52:36.238] - nx: 1 1556s [00:52:36.238] - relay: TRUE 1556s [00:52:36.238] - stdout: TRUE 1556s [00:52:36.238] - signal: TRUE 1556s [00:52:36.238] - resignal: FALSE 1556s [00:52:36.238] - force: TRUE 1556s [00:52:36.238] - relayed: [n=1] TRUE 1556s [00:52:36.238] - queued futures: [n=1] TRUE 1556s - flush all 1556s [00:52:36.239] - relayed: [n=1] TRUE 1556s [00:52:36.239] - queued futures: [n=1] TRUE 1556s [00:52:36.239] signalConditionsASAP(NULL, pos=0) ... done 1556s [00:52:36.239] resolve() on list ... DONE 1556s [00:52:36.239] - Number of value chunks collected: 1 1556s [00:52:36.239] Resolving 1 futures (chunks) ... DONE 1556s [00:52:36.240] Reducing values from 1 chunks ... 1556s [00:52:36.240] - Number of values collected after concatenation: 2 1556s [00:52:36.240] - Number of values expected: 2 1556s [00:52:36.240] Reducing values from 1 chunks ... DONE 1556s List of 1 1556s $ y:[00:52:36.240] future_lapply() ... DONE 1556s List of 2 1556s ..$ a: Named chr "A" 1556s .. ..- attr(*, "names")= chr "A" 1556s ..$ b: Named chr [1:2] "A" "B" 1556s .. ..- attr(*, "names")= chr [1:2] "A" "B" 1556s - future_lapply(x, FUN = vector, ...) ... 1556s [00:52:36.243] future_lapply() ... 1556s [00:52:36.248] Number of chunks: 1 1556s [00:52:36.248] Index remapping (attribute 'ordering'): [n = 4] 1, 2, 3, 4 1556s [00:52:36.249] getGlobalsAndPackagesXApply() ... 1556s [00:52:36.249] - future.globals: TRUE 1556s [00:52:36.250] getGlobalsAndPackages() ... 1556s [00:52:36.250] Searching for globals... 1556s [00:52:36.252] - globals found: [2] ‘FUN’, ‘.Internal’ 1556s [00:52:36.253] Searching for globals ... DONE 1556s [00:52:36.253] Resolving globals: FALSE 1556s [00:52:36.253] The total size of the 1 globals is 2.13 KiB (2184 bytes) 1556s [00:52:36.254] The total size of the 1 globals exported for future expression (‘FUN(length = 2L)’) is 2.13 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (2.13 KiB of class ‘function’) 1556s [00:52:36.254] - globals: [1] ‘FUN’ 1556s [00:52:36.254] 1556s [00:52:36.254] getGlobalsAndPackages() ... DONE 1556s [00:52:36.255] - globals found/used: [n=1] ‘FUN’ 1556s [00:52:36.255] - needed namespaces: [n=0] 1556s [00:52:36.256] Finding globals ... DONE 1556s [00:52:36.256] - use_args: TRUE 1556s [00:52:36.257] - Getting '...' globals ... 1556s [00:52:36.257] resolve() on list ... 1556s [00:52:36.257] recursive: 0 1556s [00:52:36.257] length: 1 1556s [00:52:36.258] elements: ‘...’ 1556s [00:52:36.258] length: 0 (resolved future 1) 1556s [00:52:36.258] resolve() on list ... DONE 1556s [00:52:36.258] - '...' content: [n=1] ‘length’ 1556s [00:52:36.258] List of 1 1556s [00:52:36.258] $ ...:List of 1 1556s [00:52:36.258] ..$ length: int 2 1556s [00:52:36.258] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1556s [00:52:36.258] - attr(*, "where")=List of 1 1556s [00:52:36.258] ..$ ...: 1556s [00:52:36.258] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1556s [00:52:36.258] - attr(*, "resolved")= logi TRUE 1556s [00:52:36.258] - attr(*, "total_size")= num NA 1556s [00:52:36.264] - Getting '...' globals ... DONE 1556s [00:52:36.264] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1556s [00:52:36.265] List of 2 1556s [00:52:36.265] $ ...future.FUN:function (mode = "logical", length = 0L) 1556s [00:52:36.265] $ ... :List of 1 1556s [00:52:36.265] ..$ length: int 2 1556s [00:52:36.265] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1556s [00:52:36.265] - attr(*, "where")=List of 2 1556s [00:52:36.265] ..$ ...future.FUN: 1556s [00:52:36.265] ..$ ... : 1556s [00:52:36.265] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1556s [00:52:36.265] - attr(*, "resolved")= logi FALSE 1556s [00:52:36.265] - attr(*, "total_size")= num 2240 1556s [00:52:36.274] Packages to be attached in all futures: [n=0] 1556s [00:52:36.274] getGlobalsAndPackagesXApply() ... DONE 1556s [00:52:36.275] Number of futures (= number of chunks): 1 1556s [00:52:36.275] Launching 1 futures (chunks) ... 1556s [00:52:36.275] Chunk #1 of 1 ... 1556s [00:52:36.276] - Finding globals in 'X' for chunk #1 ... 1556s [00:52:36.276] getGlobalsAndPackages() ... 1556s [00:52:36.276] Searching for globals... 1556s [00:52:36.276] 1556s [00:52:36.276] Searching for globals ... DONE 1556s [00:52:36.276] - globals: [0] 1556s [00:52:36.277] getGlobalsAndPackages() ... DONE 1556s [00:52:36.277] + additional globals found: [n=0] 1556s [00:52:36.277] + additional namespaces needed: [n=0] 1556s [00:52:36.277] - Finding globals in 'X' for chunk #1 ... DONE 1556s [00:52:36.277] - seeds: 1556s [00:52:36.277] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1556s [00:52:36.278] getGlobalsAndPackages() ... 1556s [00:52:36.278] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1556s [00:52:36.278] Resolving globals: FALSE 1556s [00:52:36.278] Tweak future expression to call with '...' arguments ... 1556s [00:52:36.278] { 1556s [00:52:36.278] do.call(function(...) { 1556s [00:52:36.278] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1556s [00:52:36.278] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1556s [00:52:36.278] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1556s [00:52:36.278] on.exit(options(oopts), add = TRUE) 1556s [00:52:36.278] } 1556s [00:52:36.278] { 1556s [00:52:36.278] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1556s [00:52:36.278] ...future.X_jj <- ...future.elements_ii[[jj]] 1556s [00:52:36.278] ...future.FUN(...future.X_jj, ...) 1556s [00:52:36.278] }) 1556s [00:52:36.278] } 1556s [00:52:36.278] }, args = future.call.arguments) 1556s [00:52:36.278] } 1556s [00:52:36.279] Tweak future expression to call with '...' arguments ... DONE 1556s [00:52:36.279] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1556s [00:52:36.280] 1556s [00:52:36.280] getGlobalsAndPackages() ... DONE 1556s [00:52:36.280] run() for ‘Future’ ... 1556s [00:52:36.280] - state: ‘created’ 1556s [00:52:36.281] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1556s [00:52:36.285] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1556s [00:52:36.286] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1556s [00:52:36.286] - Field: ‘label’ 1556s [00:52:36.286] - Field: ‘local’ 1556s [00:52:36.286] - Field: ‘owner’ 1556s [00:52:36.286] - Field: ‘envir’ 1556s [00:52:36.286] - Field: ‘packages’ 1556s [00:52:36.287] - Field: ‘gc’ 1556s [00:52:36.287] - Field: ‘conditions’ 1556s [00:52:36.287] - Field: ‘expr’ 1556s [00:52:36.287] - Field: ‘uuid’ 1556s [00:52:36.287] - Field: ‘seed’ 1556s [00:52:36.287] - Field: ‘version’ 1556s [00:52:36.288] - Field: ‘result’ 1556s [00:52:36.288] - Field: ‘asynchronous’ 1556s [00:52:36.288] - Field: ‘calls’ 1556s [00:52:36.288] - Field: ‘globals’ 1556s [00:52:36.288] - Field: ‘stdout’ 1556s [00:52:36.288] - Field: ‘earlySignal’ 1556s [00:52:36.288] - Field: ‘lazy’ 1556s [00:52:36.289] - Field: ‘state’ 1556s [00:52:36.289] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1556s [00:52:36.289] - Launch lazy future ... 1556s [00:52:36.289] Packages needed by the future expression (n = 0): 1556s [00:52:36.289] Packages needed by future strategies (n = 0): 1556s [00:52:36.290] { 1556s [00:52:36.290] { 1556s [00:52:36.290] { 1556s [00:52:36.290] ...future.startTime <- base::Sys.time() 1556s [00:52:36.290] { 1556s [00:52:36.290] { 1556s [00:52:36.290] { 1556s [00:52:36.290] base::local({ 1556s [00:52:36.290] has_future <- base::requireNamespace("future", 1556s [00:52:36.290] quietly = TRUE) 1556s [00:52:36.290] if (has_future) { 1556s [00:52:36.290] ns <- base::getNamespace("future") 1556s [00:52:36.290] version <- ns[[".package"]][["version"]] 1556s [00:52:36.290] if (is.null(version)) 1556s [00:52:36.290] version <- utils::packageVersion("future") 1556s [00:52:36.290] } 1556s [00:52:36.290] else { 1556s [00:52:36.290] version <- NULL 1556s [00:52:36.290] } 1556s [00:52:36.290] if (!has_future || version < "1.8.0") { 1556s [00:52:36.290] info <- base::c(r_version = base::gsub("R version ", 1556s [00:52:36.290] "", base::R.version$version.string), 1556s [00:52:36.290] platform = base::sprintf("%s (%s-bit)", 1556s [00:52:36.290] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1556s [00:52:36.290] os = base::paste(base::Sys.info()[base::c("sysname", 1556s [00:52:36.290] "release", "version")], collapse = " "), 1556s [00:52:36.290] hostname = base::Sys.info()[["nodename"]]) 1556s [00:52:36.290] info <- base::sprintf("%s: %s", base::names(info), 1556s [00:52:36.290] info) 1556s [00:52:36.290] info <- base::paste(info, collapse = "; ") 1556s [00:52:36.290] if (!has_future) { 1556s [00:52:36.290] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1556s [00:52:36.290] info) 1556s [00:52:36.290] } 1556s [00:52:36.290] else { 1556s [00:52:36.290] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1556s [00:52:36.290] info, version) 1556s [00:52:36.290] } 1556s [00:52:36.290] base::stop(msg) 1556s [00:52:36.290] } 1556s [00:52:36.290] }) 1556s [00:52:36.290] } 1556s [00:52:36.290] options(future.plan = NULL) 1556s [00:52:36.290] Sys.unsetenv("R_FUTURE_PLAN") 1556s [00:52:36.290] future::plan("default", .cleanup = FALSE, .init = FALSE) 1556s [00:52:36.290] } 1556s [00:52:36.290] ...future.workdir <- getwd() 1556s [00:52:36.290] } 1556s [00:52:36.290] ...future.oldOptions <- base::as.list(base::.Options) 1556s [00:52:36.290] ...future.oldEnvVars <- base::Sys.getenv() 1556s [00:52:36.290] } 1556s [00:52:36.290] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1556s [00:52:36.290] future.globals.maxSize = NULL, future.globals.method = NULL, 1556s [00:52:36.290] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1556s [00:52:36.290] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1556s [00:52:36.290] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1556s [00:52:36.290] future.stdout.windows.reencode = NULL, width = 80L) 1556s [00:52:36.290] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1556s [00:52:36.290] base::names(...future.oldOptions)) 1556s [00:52:36.290] } 1556s [00:52:36.290] if (FALSE) { 1556s [00:52:36.290] } 1556s [00:52:36.290] else { 1556s [00:52:36.290] if (TRUE) { 1556s [00:52:36.290] ...future.stdout <- base::rawConnection(base::raw(0L), 1556s [00:52:36.290] open = "w") 1556s [00:52:36.290] } 1556s [00:52:36.290] else { 1556s [00:52:36.290] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1556s [00:52:36.290] windows = "NUL", "/dev/null"), open = "w") 1556s [00:52:36.290] } 1556s [00:52:36.290] base::sink(...future.stdout, type = "output", split = FALSE) 1556s [00:52:36.290] base::on.exit(if (!base::is.null(...future.stdout)) { 1556s [00:52:36.290] base::sink(type = "output", split = FALSE) 1556s [00:52:36.290] base::close(...future.stdout) 1556s [00:52:36.290] }, add = TRUE) 1556s [00:52:36.290] } 1556s [00:52:36.290] ...future.frame <- base::sys.nframe() 1556s [00:52:36.290] ...future.conditions <- base::list() 1556s [00:52:36.290] ...future.rng <- base::globalenv()$.Random.seed 1556s [00:52:36.290] if (FALSE) { 1556s [00:52:36.290] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1556s [00:52:36.290] "...future.value", "...future.globalenv.names", ".Random.seed") 1556s [00:52:36.290] } 1556s [00:52:36.290] ...future.result <- base::tryCatch({ 1556s [00:52:36.290] base::withCallingHandlers({ 1556s [00:52:36.290] ...future.value <- base::withVisible(base::local({ 1556s [00:52:36.290] do.call(function(...) { 1556s [00:52:36.290] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1556s [00:52:36.290] if (!identical(...future.globals.maxSize.org, 1556s [00:52:36.290] ...future.globals.maxSize)) { 1556s [00:52:36.290] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1556s [00:52:36.290] on.exit(options(oopts), add = TRUE) 1556s [00:52:36.290] } 1556s [00:52:36.290] { 1556s [00:52:36.290] lapply(seq_along(...future.elements_ii), 1556s [00:52:36.290] FUN = function(jj) { 1556s [00:52:36.290] ...future.X_jj <- ...future.elements_ii[[jj]] 1556s [00:52:36.290] ...future.FUN(...future.X_jj, ...) 1556s [00:52:36.290] }) 1556s [00:52:36.290] } 1556s [00:52:36.290] }, args = future.call.arguments) 1556s [00:52:36.290] })) 1556s [00:52:36.290] future::FutureResult(value = ...future.value$value, 1556s [00:52:36.290] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1556s [00:52:36.290] ...future.rng), globalenv = if (FALSE) 1556s [00:52:36.290] list(added = base::setdiff(base::names(base::.GlobalEnv), 1556s [00:52:36.290] ...future.globalenv.names)) 1556s [00:52:36.290] else NULL, started = ...future.startTime, version = "1.8") 1556s [00:52:36.290] }, condition = base::local({ 1556s [00:52:36.290] c <- base::c 1556s [00:52:36.290] inherits <- base::inherits 1556s [00:52:36.290] invokeRestart <- base::invokeRestart 1556s [00:52:36.290] length <- base::length 1556s [00:52:36.290] list <- base::list 1556s [00:52:36.290] seq.int <- base::seq.int 1556s [00:52:36.290] signalCondition <- base::signalCondition 1556s [00:52:36.290] sys.calls <- base::sys.calls 1556s [00:52:36.290] `[[` <- base::`[[` 1556s [00:52:36.290] `+` <- base::`+` 1556s [00:52:36.290] `<<-` <- base::`<<-` 1556s [00:52:36.290] sysCalls <- function(calls = sys.calls(), from = 1L) { 1556s [00:52:36.290] calls[seq.int(from = from + 12L, to = length(calls) - 1556s [00:52:36.290] 3L)] 1556s [00:52:36.290] } 1556s [00:52:36.290] function(cond) { 1556s [00:52:36.290] is_error <- inherits(cond, "error") 1556s [00:52:36.290] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1556s [00:52:36.290] NULL) 1556s [00:52:36.290] if (is_error) { 1556s [00:52:36.290] sessionInformation <- function() { 1556s [00:52:36.290] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1556s [00:52:36.290] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1556s [00:52:36.290] search = base::search(), system = base::Sys.info()) 1556s [00:52:36.290] } 1556s [00:52:36.290] ...future.conditions[[length(...future.conditions) + 1556s [00:52:36.290] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1556s [00:52:36.290] cond$call), session = sessionInformation(), 1556s [00:52:36.290] timestamp = base::Sys.time(), signaled = 0L) 1556s [00:52:36.290] signalCondition(cond) 1556s [00:52:36.290] } 1556s [00:52:36.290] else if (!ignore && TRUE && inherits(cond, c("condition", 1556s [00:52:36.290] "immediateCondition"))) { 1556s [00:52:36.290] signal <- TRUE && inherits(cond, "immediateCondition") 1556s [00:52:36.290] ...future.conditions[[length(...future.conditions) + 1556s [00:52:36.290] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1556s [00:52:36.290] if (TRUE && !signal) { 1556s [00:52:36.290] muffleCondition <- function (cond, pattern = "^muffle") 1556s [00:52:36.290] { 1556s [00:52:36.290] inherits <- base::inherits 1556s [00:52:36.290] invokeRestart <- base::invokeRestart 1556s [00:52:36.290] is.null <- base::is.null 1556s [00:52:36.290] muffled <- FALSE 1556s [00:52:36.290] if (inherits(cond, "message")) { 1556s [00:52:36.290] muffled <- grepl(pattern, "muffleMessage") 1556s [00:52:36.290] if (muffled) 1556s [00:52:36.290] invokeRestart("muffleMessage") 1556s [00:52:36.290] } 1556s [00:52:36.290] else if (inherits(cond, "warning")) { 1556s [00:52:36.290] muffled <- grepl(pattern, "muffleWarning") 1556s [00:52:36.290] if (muffled) 1556s [00:52:36.290] invokeRestart("muffleWarning") 1556s [00:52:36.290] } 1556s [00:52:36.290] else if (inherits(cond, "condition")) { 1556s [00:52:36.290] if (!is.null(pattern)) { 1556s [00:52:36.290] computeRestarts <- base::computeRestarts 1556s [00:52:36.290] grepl <- base::grepl 1556s [00:52:36.290] restarts <- computeRestarts(cond) 1556s [00:52:36.290] for (restart in restarts) { 1556s [00:52:36.290] name <- restart$name 1556s [00:52:36.290] if (is.null(name)) 1556s [00:52:36.290] next 1556s [00:52:36.290] if (!grepl(pattern, name)) 1556s [00:52:36.290] next 1556s [00:52:36.290] invokeRestart(restart) 1556s [00:52:36.290] muffled <- TRUE 1556s [00:52:36.290] break 1556s [00:52:36.290] } 1556s [00:52:36.290] } 1556s [00:52:36.290] } 1556s [00:52:36.290] invisible(muffled) 1556s [00:52:36.290] } 1556s [00:52:36.290] muffleCondition(cond, pattern = "^muffle") 1556s [00:52:36.290] } 1556s [00:52:36.290] } 1556s [00:52:36.290] else { 1556s [00:52:36.290] if (TRUE) { 1556s [00:52:36.290] muffleCondition <- function (cond, pattern = "^muffle") 1556s [00:52:36.290] { 1556s [00:52:36.290] inherits <- base::inherits 1556s [00:52:36.290] invokeRestart <- base::invokeRestart 1556s [00:52:36.290] is.null <- base::is.null 1556s [00:52:36.290] muffled <- FALSE 1556s [00:52:36.290] if (inherits(cond, "message")) { 1556s [00:52:36.290] muffled <- grepl(pattern, "muffleMessage") 1556s [00:52:36.290] if (muffled) 1556s [00:52:36.290] invokeRestart("muffleMessage") 1556s [00:52:36.290] } 1556s [00:52:36.290] else if (inherits(cond, "warning")) { 1556s [00:52:36.290] muffled <- grepl(pattern, "muffleWarning") 1556s [00:52:36.290] if (muffled) 1556s [00:52:36.290] invokeRestart("muffleWarning") 1556s [00:52:36.290] } 1556s [00:52:36.290] else if (inherits(cond, "condition")) { 1556s [00:52:36.290] if (!is.null(pattern)) { 1556s [00:52:36.290] computeRestarts <- base::computeRestarts 1556s [00:52:36.290] grepl <- base::grepl 1556s [00:52:36.290] restarts <- computeRestarts(cond) 1556s [00:52:36.290] for (restart in restarts) { 1556s [00:52:36.290] name <- restart$name 1556s [00:52:36.290] if (is.null(name)) 1556s [00:52:36.290] next 1556s [00:52:36.290] if (!grepl(pattern, name)) 1556s [00:52:36.290] next 1556s [00:52:36.290] invokeRestart(restart) 1556s [00:52:36.290] muffled <- TRUE 1556s [00:52:36.290] break 1556s [00:52:36.290] } 1556s [00:52:36.290] } 1556s [00:52:36.290] } 1556s [00:52:36.290] invisible(muffled) 1556s [00:52:36.290] } 1556s [00:52:36.290] muffleCondition(cond, pattern = "^muffle") 1556s [00:52:36.290] } 1556s [00:52:36.290] } 1556s [00:52:36.290] } 1556s [00:52:36.290] })) 1556s [00:52:36.290] }, error = function(ex) { 1556s [00:52:36.290] base::structure(base::list(value = NULL, visible = NULL, 1556s [00:52:36.290] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1556s [00:52:36.290] ...future.rng), started = ...future.startTime, 1556s [00:52:36.290] finished = Sys.time(), session_uuid = NA_character_, 1556s [00:52:36.290] version = "1.8"), class = "FutureResult") 1556s [00:52:36.290] }, finally = { 1556s [00:52:36.290] if (!identical(...future.workdir, getwd())) 1556s [00:52:36.290] setwd(...future.workdir) 1556s [00:52:36.290] { 1556s [00:52:36.290] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1556s [00:52:36.290] ...future.oldOptions$nwarnings <- NULL 1556s [00:52:36.290] } 1556s [00:52:36.290] base::options(...future.oldOptions) 1556s [00:52:36.290] if (.Platform$OS.type == "windows") { 1556s [00:52:36.290] old_names <- names(...future.oldEnvVars) 1556s [00:52:36.290] envs <- base::Sys.getenv() 1556s [00:52:36.290] names <- names(envs) 1556s [00:52:36.290] common <- intersect(names, old_names) 1556s [00:52:36.290] added <- setdiff(names, old_names) 1556s [00:52:36.290] removed <- setdiff(old_names, names) 1556s [00:52:36.290] changed <- common[...future.oldEnvVars[common] != 1556s [00:52:36.290] envs[common]] 1556s [00:52:36.290] NAMES <- toupper(changed) 1556s [00:52:36.290] args <- list() 1556s [00:52:36.290] for (kk in seq_along(NAMES)) { 1556s [00:52:36.290] name <- changed[[kk]] 1556s [00:52:36.290] NAME <- NAMES[[kk]] 1556s [00:52:36.290] if (name != NAME && is.element(NAME, old_names)) 1556s [00:52:36.290] next 1556s [00:52:36.290] args[[name]] <- ...future.oldEnvVars[[name]] 1556s [00:52:36.290] } 1556s [00:52:36.290] NAMES <- toupper(added) 1556s [00:52:36.290] for (kk in seq_along(NAMES)) { 1556s [00:52:36.290] name <- added[[kk]] 1556s [00:52:36.290] NAME <- NAMES[[kk]] 1556s [00:52:36.290] if (name != NAME && is.element(NAME, old_names)) 1556s [00:52:36.290] next 1556s [00:52:36.290] args[[name]] <- "" 1556s [00:52:36.290] } 1556s [00:52:36.290] NAMES <- toupper(removed) 1556s [00:52:36.290] for (kk in seq_along(NAMES)) { 1556s [00:52:36.290] name <- removed[[kk]] 1556s [00:52:36.290] NAME <- NAMES[[kk]] 1556s [00:52:36.290] if (name != NAME && is.element(NAME, old_names)) 1556s [00:52:36.290] next 1556s [00:52:36.290] args[[name]] <- ...future.oldEnvVars[[name]] 1556s [00:52:36.290] } 1556s [00:52:36.290] if (length(args) > 0) 1556s [00:52:36.290] base::do.call(base::Sys.setenv, args = args) 1556s [00:52:36.290] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1556s [00:52:36.290] } 1556s [00:52:36.290] else { 1556s [00:52:36.290] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1556s [00:52:36.290] } 1556s [00:52:36.290] { 1556s [00:52:36.290] if (base::length(...future.futureOptionsAdded) > 1556s [00:52:36.290] 0L) { 1556s [00:52:36.290] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1556s [00:52:36.290] base::names(opts) <- ...future.futureOptionsAdded 1556s [00:52:36.290] base::options(opts) 1556s [00:52:36.290] } 1556s [00:52:36.290] { 1556s [00:52:36.290] { 1556s [00:52:36.290] NULL 1556s [00:52:36.290] RNGkind("Mersenne-Twister") 1556s [00:52:36.290] base::rm(list = ".Random.seed", envir = base::globalenv(), 1556s [00:52:36.290] inherits = FALSE) 1556s [00:52:36.290] } 1556s [00:52:36.290] options(future.plan = NULL) 1556s [00:52:36.290] if (is.na(NA_character_)) 1556s [00:52:36.290] Sys.unsetenv("R_FUTURE_PLAN") 1556s [00:52:36.290] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1556s [00:52:36.290] future::plan(list(function (..., workers = availableCores(), 1556s [00:52:36.290] lazy = FALSE, rscript_libs = .libPaths(), 1556s [00:52:36.290] envir = parent.frame()) 1556s [00:52:36.290] { 1556s [00:52:36.290] if (is.function(workers)) 1556s [00:52:36.290] workers <- workers() 1556s [00:52:36.290] workers <- structure(as.integer(workers), 1556s [00:52:36.290] class = class(workers)) 1556s [00:52:36.290] stop_if_not(length(workers) == 1, is.finite(workers), 1556s [00:52:36.290] workers >= 1) 1556s [00:52:36.290] if (workers == 1L && !inherits(workers, "AsIs")) { 1556s [00:52:36.290] return(sequential(..., lazy = TRUE, envir = envir)) 1556s [00:52:36.290] } 1556s [00:52:36.290] future <- MultisessionFuture(..., workers = workers, 1556s [00:52:36.290] lazy = lazy, rscript_libs = rscript_libs, 1556s [00:52:36.290] envir = envir) 1556s [00:52:36.290] if (!future$lazy) 1556s [00:52:36.290] future <- run(future) 1556s [00:52:36.290] invisible(future) 1556s [00:52:36.290] }), .cleanup = FALSE, .init = FALSE) 1556s [00:52:36.290] } 1556s [00:52:36.290] } 1556s [00:52:36.290] } 1556s [00:52:36.290] }) 1556s [00:52:36.290] if (TRUE) { 1556s [00:52:36.290] base::sink(type = "output", split = FALSE) 1556s [00:52:36.290] if (TRUE) { 1556s [00:52:36.290] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1556s [00:52:36.290] } 1556s [00:52:36.290] else { 1556s [00:52:36.290] ...future.result["stdout"] <- base::list(NULL) 1556s [00:52:36.290] } 1556s [00:52:36.290] base::close(...future.stdout) 1556s [00:52:36.290] ...future.stdout <- NULL 1556s [00:52:36.290] } 1556s [00:52:36.290] ...future.result$conditions <- ...future.conditions 1556s [00:52:36.290] ...future.result$finished <- base::Sys.time() 1556s [00:52:36.290] ...future.result 1556s [00:52:36.290] } 1556s [00:52:36.296] assign_globals() ... 1556s [00:52:36.296] List of 5 1556s [00:52:36.296] $ ...future.FUN :function (mode = "logical", length = 0L) 1556s [00:52:36.296] $ future.call.arguments :List of 1 1556s [00:52:36.296] ..$ length: int 2 1556s [00:52:36.296] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1556s [00:52:36.296] $ ...future.elements_ii :List of 4 1556s [00:52:36.296] ..$ a: chr "integer" 1556s [00:52:36.296] ..$ b: chr "numeric" 1556s [00:52:36.296] ..$ c: chr "character" 1556s [00:52:36.296] ..$ c: chr "list" 1556s [00:52:36.296] $ ...future.seeds_ii : NULL 1556s [00:52:36.296] $ ...future.globals.maxSize: NULL 1556s [00:52:36.296] - attr(*, "where")=List of 5 1556s [00:52:36.296] ..$ ...future.FUN : 1556s [00:52:36.296] ..$ future.call.arguments : 1556s [00:52:36.296] ..$ ...future.elements_ii : 1556s [00:52:36.296] ..$ ...future.seeds_ii : 1556s [00:52:36.296] ..$ ...future.globals.maxSize: 1556s [00:52:36.296] - attr(*, "resolved")= logi FALSE 1556s [00:52:36.296] - attr(*, "total_size")= num 2240 1556s [00:52:36.296] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1556s [00:52:36.296] - attr(*, "already-done")= logi TRUE 1556s [00:52:36.306] - copied ‘...future.FUN’ to environment 1556s [00:52:36.306] - copied ‘future.call.arguments’ to environment 1556s [00:52:36.306] - copied ‘...future.elements_ii’ to environment 1556s [00:52:36.306] - copied ‘...future.seeds_ii’ to environment 1556s [00:52:36.307] - copied ‘...future.globals.maxSize’ to environment 1556s [00:52:36.307] assign_globals() ... done 1556s [00:52:36.307] plan(): Setting new future strategy stack: 1556s [00:52:36.307] List of future strategies: 1556s [00:52:36.307] 1. sequential: 1556s [00:52:36.307] - args: function (..., envir = parent.frame()) 1556s [00:52:36.307] - tweaked: FALSE 1556s [00:52:36.307] - call: NULL 1556s [00:52:36.308] plan(): nbrOfWorkers() = 1 1556s [00:52:36.309] plan(): Setting new future strategy stack: 1556s [00:52:36.309] List of future strategies: 1556s [00:52:36.309] 1. multisession: 1556s [00:52:36.309] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1556s [00:52:36.309] - tweaked: FALSE 1556s [00:52:36.309] - call: plan(strategy) 1556s [00:52:36.313] plan(): nbrOfWorkers() = 1 1556s [00:52:36.314] SequentialFuture started (and completed) 1556s [00:52:36.314] - Launch lazy future ... done 1556s [00:52:36.314] run() for ‘SequentialFuture’ ... done 1556s [00:52:36.314] Created future: 1556s [00:52:36.314] SequentialFuture: 1556s [00:52:36.314] Label: ‘future_lapply-1’ 1556s [00:52:36.314] Expression: 1556s [00:52:36.314] { 1556s [00:52:36.314] do.call(function(...) { 1556s [00:52:36.314] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1556s [00:52:36.314] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1556s [00:52:36.314] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1556s [00:52:36.314] on.exit(options(oopts), add = TRUE) 1556s [00:52:36.314] } 1556s [00:52:36.314] { 1556s [00:52:36.314] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1556s [00:52:36.314] ...future.X_jj <- ...future.elements_ii[[jj]] 1556s [00:52:36.314] ...future.FUN(...future.X_jj, ...) 1556s [00:52:36.314] }) 1556s [00:52:36.314] } 1556s [00:52:36.314] }, args = future.call.arguments) 1556s [00:52:36.314] } 1556s [00:52:36.314] Lazy evaluation: FALSE 1556s [00:52:36.314] Asynchronous evaluation: FALSE 1556s [00:52:36.314] Local evaluation: TRUE 1556s [00:52:36.314] Environment: R_GlobalEnv 1556s [00:52:36.314] Capture standard output: TRUE 1556s [00:52:36.314] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1556s [00:52:36.314] Globals: 5 objects totaling 2.63 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 456 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1556s [00:52:36.314] Packages: 1556s [00:52:36.314] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1556s [00:52:36.314] Resolved: TRUE 1556s [00:52:36.314] Value: 240 bytes of class ‘list’ 1556s [00:52:36.314] Early signaling: FALSE 1556s [00:52:36.314] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1556s [00:52:36.314] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1556s [00:52:36.317] Chunk #1 of 1 ... DONE 1556s [00:52:36.317] Launching 1 futures (chunks) ... DONE 1556s [00:52:36.317] Resolving 1 futures (chunks) ... 1556s [00:52:36.317] resolve() on list ... 1556s [00:52:36.317] recursive: 0 1556s [00:52:36.318] length: 1 1556s [00:52:36.318] 1556s [00:52:36.318] resolved() for ‘SequentialFuture’ ... 1556s [00:52:36.318] - state: ‘finished’ 1556s [00:52:36.318] - run: TRUE 1556s [00:52:36.319] - result: ‘FutureResult’ 1556s [00:52:36.319] resolved() for ‘SequentialFuture’ ... done 1556s [00:52:36.319] Future #1 1556s [00:52:36.319] signalConditionsASAP(SequentialFuture, pos=1) ... 1556s [00:52:36.319] - nx: 1 1556s [00:52:36.319] - relay: TRUE 1556s [00:52:36.320] - stdout: TRUE 1556s [00:52:36.320] - signal: TRUE 1556s [00:52:36.320] - resignal: FALSE 1556s [00:52:36.320] - force: TRUE 1556s [00:52:36.320] - relayed: [n=1] FALSE 1556s [00:52:36.320] - queued futures: [n=1] FALSE 1556s [00:52:36.321] - until=1 1556s [00:52:36.321] - relaying element #1 1556s [00:52:36.321] - relayed: [n=1] TRUE 1556s [00:52:36.322] - queued futures: [n=1] TRUE 1556s [00:52:36.322] signalConditionsASAP(SequentialFuture, pos=1) ... done 1556s [00:52:36.322] length: 0 (resolved future 1) 1556s [00:52:36.322] Relaying remaining futures 1556s [00:52:36.322] signalConditionsASAP(NULL, pos=0) ... 1556s [00:52:36.322] - nx: 1 1556s [00:52:36.322] - relay: TRUE 1556s [00:52:36.322] - stdout: TRUE 1556s [00:52:36.322] - signal: TRUE 1556s [00:52:36.323] - resignal: FALSE 1556s [00:52:36.323] - force: TRUE 1556s [00:52:36.323] - relayed: [n=1] TRUE 1556s [00:52:36.323] - queued futures: [n=1] TRUE 1556s - flush all 1556s [00:52:36.323] - relayed: [n=1] TRUE 1556s [00:52:36.323] - queued futures: [n=1] TRUE 1556s [00:52:36.323] signalConditionsASAP(NULL, pos=0) ... done 1556s [00:52:36.323] resolve() on list ... DONE 1556s [00:52:36.324] - Number of value chunks collected: 1 1556s [00:52:36.324] Resolving 1 futures (chunks) ... DONE 1556s [00:52:36.324] Reducing values from 1 chunks ... 1556s [00:52:36.324] - Number of values collected after concatenation: 4 1556s [00:52:36.324] - Number of values expected: 4 1556s [00:52:36.324] Reverse index remapping (attribute 'ordering'): [n = 4] 1, 2, 3, 4 1556s [00:52:36.324] Reducing values from 1 chunks ... DONE 1556s [00:52:36.325] future_lapply() ... DONE 1556s List of 1 1556s $ y:List of 4 1556s ..$ a: int [1:2] 0 0 1556s ..$ b: num [1:2] 0 0 1556s ..$ c: chr [1:2] "" "" 1556s ..$ c:List of 2 1556s .. ..$ : NULL 1556s .. ..$ : NULL 1556s [00:52:36.329] future_lapply() ... 1556s [00:52:36.333] Number of chunks: 1 1556s [00:52:36.333] Index remapping (attribute 'ordering'): [n = 4] 1, 4, 3, 2 1556s [00:52:36.333] getGlobalsAndPackagesXApply() ... 1556s [00:52:36.333] - future.globals: TRUE 1556s [00:52:36.333] getGlobalsAndPackages() ... 1556s [00:52:36.334] Searching for globals... 1556s [00:52:36.335] - globals found: [2] ‘FUN’, ‘.Internal’ 1556s [00:52:36.335] Searching for globals ... DONE 1556s [00:52:36.336] Resolving globals: FALSE 1556s [00:52:36.336] The total size of the 1 globals is 2.13 KiB (2184 bytes) 1556s [00:52:36.337] The total size of the 1 globals exported for future expression (‘FUN(length = 2L)’) is 2.13 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (2.13 KiB of class ‘function’) 1556s [00:52:36.337] - globals: [1] ‘FUN’ 1556s [00:52:36.337] 1556s [00:52:36.337] getGlobalsAndPackages() ... DONE 1556s [00:52:36.337] - globals found/used: [n=1] ‘FUN’ 1556s [00:52:36.337] - needed namespaces: [n=0] 1556s [00:52:36.338] Finding globals ... DONE 1556s [00:52:36.338] - use_args: TRUE 1556s [00:52:36.338] - Getting '...' globals ... 1556s [00:52:36.338] resolve() on list ... 1556s [00:52:36.338] recursive: 0 1556s [00:52:36.339] length: 1 1556s [00:52:36.339] elements: ‘...’ 1556s [00:52:36.339] length: 0 (resolved future 1) 1556s [00:52:36.339] resolve() on list ... DONE 1556s [00:52:36.339] - '...' content: [n=1] ‘length’ 1556s [00:52:36.339] List of 1 1556s [00:52:36.339] $ ...:List of 1 1556s [00:52:36.339] ..$ length: int 2 1556s [00:52:36.339] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1556s [00:52:36.339] - attr(*, "where")=List of 1 1556s [00:52:36.339] ..$ ...: 1556s [00:52:36.339] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1556s [00:52:36.339] - attr(*, "resolved")= logi TRUE 1556s [00:52:36.339] - attr(*, "total_size")= num NA 1556s [00:52:36.344] - Getting '...' globals ... DONE 1556s [00:52:36.344] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1556s [00:52:36.345] List of 2 1556s [00:52:36.345] $ ...future.FUN:function (mode = "logical", length = 0L) 1556s [00:52:36.345] $ ... :List of 1 1556s [00:52:36.345] ..$ length: int 2 1556s [00:52:36.345] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1556s [00:52:36.345] - attr(*, "where")=List of 2 1556s [00:52:36.345] ..$ ...future.FUN: 1556s [00:52:36.345] ..$ ... : 1556s [00:52:36.345] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1556s [00:52:36.345] - attr(*, "resolved")= logi FALSE 1556s [00:52:36.345] - attr(*, "total_size")= num 2240 1556s [00:52:36.349] Packages to be attached in all futures: [n=0] 1556s [00:52:36.349] getGlobalsAndPackagesXApply() ... DONE 1556s [00:52:36.349] Number of futures (= number of chunks): 1 1556s [00:52:36.349] Launching 1 futures (chunks) ... 1556s [00:52:36.349] Chunk #1 of 1 ... 1556s [00:52:36.350] - Finding globals in 'X' for chunk #1 ... 1556s [00:52:36.350] getGlobalsAndPackages() ... 1556s [00:52:36.350] Searching for globals... 1556s [00:52:36.350] 1556s [00:52:36.350] Searching for globals ... DONE 1556s [00:52:36.351] - globals: [0] 1556s [00:52:36.351] getGlobalsAndPackages() ... DONE 1556s [00:52:36.351] + additional globals found: [n=0] 1556s [00:52:36.351] + additional namespaces needed: [n=0] 1556s [00:52:36.351] - Finding globals in 'X' for chunk #1 ... DONE 1556s [00:52:36.351] - seeds: 1556s [00:52:36.351] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1556s [00:52:36.352] getGlobalsAndPackages() ... 1556s [00:52:36.352] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1556s [00:52:36.352] Resolving globals: FALSE 1556s [00:52:36.352] Tweak future expression to call with '...' arguments ... 1556s [00:52:36.352] { 1556s [00:52:36.352] do.call(function(...) { 1556s [00:52:36.352] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1556s [00:52:36.352] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1556s [00:52:36.352] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1556s [00:52:36.352] on.exit(options(oopts), add = TRUE) 1556s [00:52:36.352] } 1556s [00:52:36.352] { 1556s [00:52:36.352] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1556s [00:52:36.352] ...future.X_jj <- ...future.elements_ii[[jj]] 1556s [00:52:36.352] ...future.FUN(...future.X_jj, ...) 1556s [00:52:36.352] }) 1556s [00:52:36.352] } 1556s [00:52:36.352] }, args = future.call.arguments) 1556s [00:52:36.352] } 1556s [00:52:36.353] Tweak future expression to call with '...' arguments ... DONE 1556s [00:52:36.353] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1556s [00:52:36.353] 1556s [00:52:36.353] getGlobalsAndPackages() ... DONE 1556s [00:52:36.354] run() for ‘Future’ ... 1556s [00:52:36.354] - state: ‘created’ 1556s [00:52:36.354] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1556s [00:52:36.358] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1556s [00:52:36.358] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1556s [00:52:36.358] - Field: ‘label’ 1556s [00:52:36.358] - Field: ‘local’ 1556s [00:52:36.358] - Field: ‘owner’ 1556s [00:52:36.359] - Field: ‘envir’ 1556s [00:52:36.359] - Field: ‘packages’ 1556s [00:52:36.359] - Field: ‘gc’ 1556s [00:52:36.359] - Field: ‘conditions’ 1556s [00:52:36.359] - Field: ‘expr’ 1556s [00:52:36.359] - Field: ‘uuid’ 1556s [00:52:36.359] - Field: ‘seed’ 1556s [00:52:36.360] - Field: ‘version’ 1556s [00:52:36.360] - Field: ‘result’ 1556s [00:52:36.360] - Field: ‘asynchronous’ 1556s [00:52:36.360] - Field: ‘calls’ 1556s [00:52:36.360] - Field: ‘globals’ 1556s [00:52:36.360] - Field: ‘stdout’ 1556s [00:52:36.360] - Field: ‘earlySignal’ 1556s [00:52:36.361] - Field: ‘lazy’ 1556s [00:52:36.361] - Field: ‘state’ 1556s [00:52:36.361] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1556s [00:52:36.361] - Launch lazy future ... 1556s [00:52:36.362] Packages needed by the future expression (n = 0): 1556s [00:52:36.362] Packages needed by future strategies (n = 0): 1556s [00:52:36.362] { 1556s [00:52:36.362] { 1556s [00:52:36.362] { 1556s [00:52:36.362] ...future.startTime <- base::Sys.time() 1556s [00:52:36.362] { 1556s [00:52:36.362] { 1556s [00:52:36.362] { 1556s [00:52:36.362] base::local({ 1556s [00:52:36.362] has_future <- base::requireNamespace("future", 1556s [00:52:36.362] quietly = TRUE) 1556s [00:52:36.362] if (has_future) { 1556s [00:52:36.362] ns <- base::getNamespace("future") 1556s [00:52:36.362] version <- ns[[".package"]][["version"]] 1556s [00:52:36.362] if (is.null(version)) 1556s [00:52:36.362] version <- utils::packageVersion("future") 1556s [00:52:36.362] } 1556s [00:52:36.362] else { 1556s [00:52:36.362] version <- NULL 1556s [00:52:36.362] } 1556s [00:52:36.362] if (!has_future || version < "1.8.0") { 1556s [00:52:36.362] info <- base::c(r_version = base::gsub("R version ", 1556s [00:52:36.362] "", base::R.version$version.string), 1556s [00:52:36.362] platform = base::sprintf("%s (%s-bit)", 1556s [00:52:36.362] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1556s [00:52:36.362] os = base::paste(base::Sys.info()[base::c("sysname", 1556s [00:52:36.362] "release", "version")], collapse = " "), 1556s [00:52:36.362] hostname = base::Sys.info()[["nodename"]]) 1556s [00:52:36.362] info <- base::sprintf("%s: %s", base::names(info), 1556s [00:52:36.362] info) 1556s [00:52:36.362] info <- base::paste(info, collapse = "; ") 1556s [00:52:36.362] if (!has_future) { 1556s [00:52:36.362] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1556s [00:52:36.362] info) 1556s [00:52:36.362] } 1556s [00:52:36.362] else { 1556s [00:52:36.362] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1556s [00:52:36.362] info, version) 1556s [00:52:36.362] } 1556s [00:52:36.362] base::stop(msg) 1556s [00:52:36.362] } 1556s [00:52:36.362] }) 1556s [00:52:36.362] } 1556s [00:52:36.362] options(future.plan = NULL) 1556s [00:52:36.362] Sys.unsetenv("R_FUTURE_PLAN") 1556s [00:52:36.362] future::plan("default", .cleanup = FALSE, .init = FALSE) 1556s [00:52:36.362] } 1556s [00:52:36.362] ...future.workdir <- getwd() 1556s [00:52:36.362] } 1556s [00:52:36.362] ...future.oldOptions <- base::as.list(base::.Options) 1556s [00:52:36.362] ...future.oldEnvVars <- base::Sys.getenv() 1556s [00:52:36.362] } 1556s [00:52:36.362] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1556s [00:52:36.362] future.globals.maxSize = NULL, future.globals.method = NULL, 1556s [00:52:36.362] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1556s [00:52:36.362] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1556s [00:52:36.362] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1556s [00:52:36.362] future.stdout.windows.reencode = NULL, width = 80L) 1556s [00:52:36.362] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1556s [00:52:36.362] base::names(...future.oldOptions)) 1556s [00:52:36.362] } 1556s [00:52:36.362] if (FALSE) { 1556s [00:52:36.362] } 1556s [00:52:36.362] else { 1556s [00:52:36.362] if (TRUE) { 1556s [00:52:36.362] ...future.stdout <- base::rawConnection(base::raw(0L), 1556s [00:52:36.362] open = "w") 1556s [00:52:36.362] } 1556s [00:52:36.362] else { 1556s [00:52:36.362] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1556s [00:52:36.362] windows = "NUL", "/dev/null"), open = "w") 1556s [00:52:36.362] } 1556s [00:52:36.362] base::sink(...future.stdout, type = "output", split = FALSE) 1556s [00:52:36.362] base::on.exit(if (!base::is.null(...future.stdout)) { 1556s [00:52:36.362] base::sink(type = "output", split = FALSE) 1556s [00:52:36.362] base::close(...future.stdout) 1556s [00:52:36.362] }, add = TRUE) 1556s [00:52:36.362] } 1556s [00:52:36.362] ...future.frame <- base::sys.nframe() 1556s [00:52:36.362] ...future.conditions <- base::list() 1556s [00:52:36.362] ...future.rng <- base::globalenv()$.Random.seed 1556s [00:52:36.362] if (FALSE) { 1556s [00:52:36.362] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1556s [00:52:36.362] "...future.value", "...future.globalenv.names", ".Random.seed") 1556s [00:52:36.362] } 1556s [00:52:36.362] ...future.result <- base::tryCatch({ 1556s [00:52:36.362] base::withCallingHandlers({ 1556s [00:52:36.362] ...future.value <- base::withVisible(base::local({ 1556s [00:52:36.362] do.call(function(...) { 1556s [00:52:36.362] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1556s [00:52:36.362] if (!identical(...future.globals.maxSize.org, 1556s [00:52:36.362] ...future.globals.maxSize)) { 1556s [00:52:36.362] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1556s [00:52:36.362] on.exit(options(oopts), add = TRUE) 1556s [00:52:36.362] } 1556s [00:52:36.362] { 1556s [00:52:36.362] lapply(seq_along(...future.elements_ii), 1556s [00:52:36.362] FUN = function(jj) { 1556s [00:52:36.362] ...future.X_jj <- ...future.elements_ii[[jj]] 1556s [00:52:36.362] ...future.FUN(...future.X_jj, ...) 1556s [00:52:36.362] }) 1556s [00:52:36.362] } 1556s [00:52:36.362] }, args = future.call.arguments) 1556s [00:52:36.362] })) 1556s [00:52:36.362] future::FutureResult(value = ...future.value$value, 1556s [00:52:36.362] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1556s [00:52:36.362] ...future.rng), globalenv = if (FALSE) 1556s [00:52:36.362] list(added = base::setdiff(base::names(base::.GlobalEnv), 1556s [00:52:36.362] ...future.globalenv.names)) 1556s [00:52:36.362] else NULL, started = ...future.startTime, version = "1.8") 1556s [00:52:36.362] }, condition = base::local({ 1556s [00:52:36.362] c <- base::c 1556s [00:52:36.362] inherits <- base::inherits 1556s [00:52:36.362] invokeRestart <- base::invokeRestart 1556s [00:52:36.362] length <- base::length 1556s [00:52:36.362] list <- base::list 1556s [00:52:36.362] seq.int <- base::seq.int 1556s [00:52:36.362] signalCondition <- base::signalCondition 1556s [00:52:36.362] sys.calls <- base::sys.calls 1556s [00:52:36.362] `[[` <- base::`[[` 1556s [00:52:36.362] `+` <- base::`+` 1556s [00:52:36.362] `<<-` <- base::`<<-` 1556s [00:52:36.362] sysCalls <- function(calls = sys.calls(), from = 1L) { 1556s [00:52:36.362] calls[seq.int(from = from + 12L, to = length(calls) - 1556s [00:52:36.362] 3L)] 1556s [00:52:36.362] } 1556s [00:52:36.362] function(cond) { 1556s [00:52:36.362] is_error <- inherits(cond, "error") 1556s [00:52:36.362] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1556s [00:52:36.362] NULL) 1556s [00:52:36.362] if (is_error) { 1556s [00:52:36.362] sessionInformation <- function() { 1556s [00:52:36.362] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1556s [00:52:36.362] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1556s [00:52:36.362] search = base::search(), system = base::Sys.info()) 1556s [00:52:36.362] } 1556s [00:52:36.362] ...future.conditions[[length(...future.conditions) + 1556s [00:52:36.362] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1556s [00:52:36.362] cond$call), session = sessionInformation(), 1556s [00:52:36.362] timestamp = base::Sys.time(), signaled = 0L) 1556s [00:52:36.362] signalCondition(cond) 1556s [00:52:36.362] } 1556s [00:52:36.362] else if (!ignore && TRUE && inherits(cond, c("condition", 1556s [00:52:36.362] "immediateCondition"))) { 1556s [00:52:36.362] signal <- TRUE && inherits(cond, "immediateCondition") 1556s [00:52:36.362] ...future.conditions[[length(...future.conditions) + 1556s [00:52:36.362] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1556s [00:52:36.362] if (TRUE && !signal) { 1556s [00:52:36.362] muffleCondition <- function (cond, pattern = "^muffle") 1556s [00:52:36.362] { 1556s [00:52:36.362] inherits <- base::inherits 1556s [00:52:36.362] invokeRestart <- base::invokeRestart 1556s [00:52:36.362] is.null <- base::is.null 1556s [00:52:36.362] muffled <- FALSE 1556s [00:52:36.362] if (inherits(cond, "message")) { 1556s [00:52:36.362] muffled <- grepl(pattern, "muffleMessage") 1556s [00:52:36.362] if (muffled) 1556s [00:52:36.362] invokeRestart("muffleMessage") 1556s [00:52:36.362] } 1556s [00:52:36.362] else if (inherits(cond, "warning")) { 1556s [00:52:36.362] muffled <- grepl(pattern, "muffleWarning") 1556s [00:52:36.362] if (muffled) 1556s [00:52:36.362] invokeRestart("muffleWarning") 1556s [00:52:36.362] } 1556s [00:52:36.362] else if (inherits(cond, "condition")) { 1556s [00:52:36.362] if (!is.null(pattern)) { 1556s [00:52:36.362] computeRestarts <- base::computeRestarts 1556s [00:52:36.362] grepl <- base::grepl 1556s [00:52:36.362] restarts <- computeRestarts(cond) 1556s [00:52:36.362] for (restart in restarts) { 1556s [00:52:36.362] name <- restart$name 1556s [00:52:36.362] if (is.null(name)) 1556s [00:52:36.362] next 1556s [00:52:36.362] if (!grepl(pattern, name)) 1556s [00:52:36.362] next 1556s [00:52:36.362] invokeRestart(restart) 1556s [00:52:36.362] muffled <- TRUE 1556s [00:52:36.362] break 1556s [00:52:36.362] } 1556s [00:52:36.362] } 1556s [00:52:36.362] } 1556s [00:52:36.362] invisible(muffled) 1556s [00:52:36.362] } 1556s [00:52:36.362] muffleCondition(cond, pattern = "^muffle") 1556s [00:52:36.362] } 1556s [00:52:36.362] } 1556s [00:52:36.362] else { 1556s [00:52:36.362] if (TRUE) { 1556s [00:52:36.362] muffleCondition <- function (cond, pattern = "^muffle") 1556s [00:52:36.362] { 1556s [00:52:36.362] inherits <- base::inherits 1556s [00:52:36.362] invokeRestart <- base::invokeRestart 1556s [00:52:36.362] is.null <- base::is.null 1556s [00:52:36.362] muffled <- FALSE 1556s [00:52:36.362] if (inherits(cond, "message")) { 1556s [00:52:36.362] muffled <- grepl(pattern, "muffleMessage") 1556s [00:52:36.362] if (muffled) 1556s [00:52:36.362] invokeRestart("muffleMessage") 1556s [00:52:36.362] } 1556s [00:52:36.362] else if (inherits(cond, "warning")) { 1556s [00:52:36.362] muffled <- grepl(pattern, "muffleWarning") 1556s [00:52:36.362] if (muffled) 1556s [00:52:36.362] invokeRestart("muffleWarning") 1556s [00:52:36.362] } 1556s [00:52:36.362] else if (inherits(cond, "condition")) { 1556s [00:52:36.362] if (!is.null(pattern)) { 1556s [00:52:36.362] computeRestarts <- base::computeRestarts 1556s [00:52:36.362] grepl <- base::grepl 1556s [00:52:36.362] restarts <- computeRestarts(cond) 1556s [00:52:36.362] for (restart in restarts) { 1556s [00:52:36.362] name <- restart$name 1556s [00:52:36.362] if (is.null(name)) 1556s [00:52:36.362] next 1556s [00:52:36.362] if (!grepl(pattern, name)) 1556s [00:52:36.362] next 1556s [00:52:36.362] invokeRestart(restart) 1556s [00:52:36.362] muffled <- TRUE 1556s [00:52:36.362] break 1556s [00:52:36.362] } 1556s [00:52:36.362] } 1556s [00:52:36.362] } 1556s [00:52:36.362] invisible(muffled) 1556s [00:52:36.362] } 1556s [00:52:36.362] muffleCondition(cond, pattern = "^muffle") 1556s [00:52:36.362] } 1556s [00:52:36.362] } 1556s [00:52:36.362] } 1556s [00:52:36.362] })) 1556s [00:52:36.362] }, error = function(ex) { 1556s [00:52:36.362] base::structure(base::list(value = NULL, visible = NULL, 1556s [00:52:36.362] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1556s [00:52:36.362] ...future.rng), started = ...future.startTime, 1556s [00:52:36.362] finished = Sys.time(), session_uuid = NA_character_, 1556s [00:52:36.362] version = "1.8"), class = "FutureResult") 1556s [00:52:36.362] }, finally = { 1556s [00:52:36.362] if (!identical(...future.workdir, getwd())) 1556s [00:52:36.362] setwd(...future.workdir) 1556s [00:52:36.362] { 1556s [00:52:36.362] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1556s [00:52:36.362] ...future.oldOptions$nwarnings <- NULL 1556s [00:52:36.362] } 1556s [00:52:36.362] base::options(...future.oldOptions) 1556s [00:52:36.362] if (.Platform$OS.type == "windows") { 1556s [00:52:36.362] old_names <- names(...future.oldEnvVars) 1556s [00:52:36.362] envs <- base::Sys.getenv() 1556s [00:52:36.362] names <- names(envs) 1556s [00:52:36.362] common <- intersect(names, old_names) 1556s [00:52:36.362] added <- setdiff(names, old_names) 1556s [00:52:36.362] removed <- setdiff(old_names, names) 1556s [00:52:36.362] changed <- common[...future.oldEnvVars[common] != 1556s [00:52:36.362] envs[common]] 1556s [00:52:36.362] NAMES <- toupper(changed) 1556s [00:52:36.362] args <- list() 1556s [00:52:36.362] for (kk in seq_along(NAMES)) { 1556s [00:52:36.362] name <- changed[[kk]] 1556s [00:52:36.362] NAME <- NAMES[[kk]] 1556s [00:52:36.362] if (name != NAME && is.element(NAME, old_names)) 1556s [00:52:36.362] next 1556s [00:52:36.362] args[[name]] <- ...future.oldEnvVars[[name]] 1556s [00:52:36.362] } 1556s [00:52:36.362] NAMES <- toupper(added) 1556s [00:52:36.362] for (kk in seq_along(NAMES)) { 1556s [00:52:36.362] name <- added[[kk]] 1556s [00:52:36.362] NAME <- NAMES[[kk]] 1556s [00:52:36.362] if (name != NAME && is.element(NAME, old_names)) 1556s [00:52:36.362] next 1556s [00:52:36.362] args[[name]] <- "" 1556s [00:52:36.362] } 1556s [00:52:36.362] NAMES <- toupper(removed) 1556s [00:52:36.362] for (kk in seq_along(NAMES)) { 1556s [00:52:36.362] name <- removed[[kk]] 1556s [00:52:36.362] NAME <- NAMES[[kk]] 1556s [00:52:36.362] if (name != NAME && is.element(NAME, old_names)) 1556s [00:52:36.362] next 1556s [00:52:36.362] args[[name]] <- ...future.oldEnvVars[[name]] 1556s [00:52:36.362] } 1556s [00:52:36.362] if (length(args) > 0) 1556s [00:52:36.362] base::do.call(base::Sys.setenv, args = args) 1556s [00:52:36.362] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1556s [00:52:36.362] } 1556s [00:52:36.362] else { 1556s [00:52:36.362] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1556s [00:52:36.362] } 1556s [00:52:36.362] { 1556s [00:52:36.362] if (base::length(...future.futureOptionsAdded) > 1556s [00:52:36.362] 0L) { 1556s [00:52:36.362] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1556s [00:52:36.362] base::names(opts) <- ...future.futureOptionsAdded 1556s [00:52:36.362] base::options(opts) 1556s [00:52:36.362] } 1556s [00:52:36.362] { 1556s [00:52:36.362] { 1556s [00:52:36.362] NULL 1556s [00:52:36.362] RNGkind("Mersenne-Twister") 1556s [00:52:36.362] base::rm(list = ".Random.seed", envir = base::globalenv(), 1556s [00:52:36.362] inherits = FALSE) 1556s [00:52:36.362] } 1556s [00:52:36.362] options(future.plan = NULL) 1556s [00:52:36.362] if (is.na(NA_character_)) 1556s [00:52:36.362] Sys.unsetenv("R_FUTURE_PLAN") 1556s [00:52:36.362] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1556s [00:52:36.362] future::plan(list(function (..., workers = availableCores(), 1556s [00:52:36.362] lazy = FALSE, rscript_libs = .libPaths(), 1556s [00:52:36.362] envir = parent.frame()) 1556s [00:52:36.362] { 1556s [00:52:36.362] if (is.function(workers)) 1556s [00:52:36.362] workers <- workers() 1556s [00:52:36.362] workers <- structure(as.integer(workers), 1556s [00:52:36.362] class = class(workers)) 1556s [00:52:36.362] stop_if_not(length(workers) == 1, is.finite(workers), 1556s [00:52:36.362] workers >= 1) 1556s [00:52:36.362] if (workers == 1L && !inherits(workers, "AsIs")) { 1556s [00:52:36.362] return(sequential(..., lazy = TRUE, envir = envir)) 1556s [00:52:36.362] } 1556s [00:52:36.362] future <- MultisessionFuture(..., workers = workers, 1556s [00:52:36.362] lazy = lazy, rscript_libs = rscript_libs, 1556s [00:52:36.362] envir = envir) 1556s [00:52:36.362] if (!future$lazy) 1556s [00:52:36.362] future <- run(future) 1556s [00:52:36.362] invisible(future) 1556s [00:52:36.362] }), .cleanup = FALSE, .init = FALSE) 1556s [00:52:36.362] } 1556s [00:52:36.362] } 1556s [00:52:36.362] } 1556s [00:52:36.362] }) 1556s [00:52:36.362] if (TRUE) { 1556s [00:52:36.362] base::sink(type = "output", split = FALSE) 1556s [00:52:36.362] if (TRUE) { 1556s [00:52:36.362] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1556s [00:52:36.362] } 1556s [00:52:36.362] else { 1556s [00:52:36.362] ...future.result["stdout"] <- base::list(NULL) 1556s [00:52:36.362] } 1556s [00:52:36.362] base::close(...future.stdout) 1556s [00:52:36.362] ...future.stdout <- NULL 1556s [00:52:36.362] } 1556s [00:52:36.362] ...future.result$conditions <- ...future.conditions 1556s [00:52:36.362] ...future.result$finished <- base::Sys.time() 1556s [00:52:36.362] ...future.result 1556s [00:52:36.362] } 1556s [00:52:36.369] assign_globals() ... 1556s [00:52:36.369] List of 5 1556s [00:52:36.369] $ ...future.FUN :function (mode = "logical", length = 0L) 1556s [00:52:36.369] $ future.call.arguments :List of 1 1556s [00:52:36.369] ..$ length: int 2 1556s [00:52:36.369] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1556s [00:52:36.369] $ ...future.elements_ii :List of 4 1556s [00:52:36.369] ..$ a: chr "integer" 1556s [00:52:36.369] ..$ c: chr "list" 1556s [00:52:36.369] ..$ c: chr "character" 1556s [00:52:36.369] ..$ b: chr "numeric" 1556s [00:52:36.369] $ ...future.seeds_ii : NULL 1556s [00:52:36.369] $ ...future.globals.maxSize: NULL 1556s [00:52:36.369] - attr(*, "where")=List of 5 1556s [00:52:36.369] ..$ ...future.FUN : 1556s [00:52:36.369] ..$ future.call.arguments : 1556s [00:52:36.369] ..$ ...future.elements_ii : 1556s [00:52:36.369] ..$ ...future.seeds_ii : 1556s [00:52:36.369] ..$ ...future.globals.maxSize: 1556s [00:52:36.369] - attr(*, "resolved")= logi FALSE 1556s [00:52:36.369] - attr(*, "total_size")= num 2240 1556s [00:52:36.369] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1556s [00:52:36.369] - attr(*, "already-done")= logi TRUE 1556s [00:52:36.376] - copied ‘...future.FUN’ to environment 1556s [00:52:36.376] - copied ‘future.call.arguments’ to environment 1556s [00:52:36.377] - copied ‘...future.elements_ii’ to environment 1556s [00:52:36.377] - copied ‘...future.seeds_ii’ to environment 1556s [00:52:36.377] - copied ‘...future.globals.maxSize’ to environment 1556s [00:52:36.377] assign_globals() ... done 1556s [00:52:36.377] plan(): Setting new future strategy stack: 1556s [00:52:36.377] List of future strategies: 1556s [00:52:36.377] 1. sequential: 1556s [00:52:36.377] - args: function (..., envir = parent.frame()) 1556s [00:52:36.377] - tweaked: FALSE 1556s [00:52:36.377] - call: NULL 1556s [00:52:36.378] plan(): nbrOfWorkers() = 1 1556s [00:52:36.379] plan(): Setting new future strategy stack: 1556s [00:52:36.379] List of future strategies: 1556s [00:52:36.379] 1. multisession: 1556s [00:52:36.379] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1556s [00:52:36.379] - tweaked: FALSE 1556s [00:52:36.379] - call: plan(strategy) 1556s [00:52:36.382] plan(): nbrOfWorkers() = 1 1556s [00:52:36.382] SequentialFuture started (and completed) 1556s [00:52:36.383] - Launch lazy future ... done 1556s [00:52:36.383] run() for ‘SequentialFuture’ ... done 1556s [00:52:36.383] Created future: 1556s [00:52:36.383] SequentialFuture: 1556s [00:52:36.383] Label: ‘future_lapply-1’ 1556s [00:52:36.383] Expression: 1556s [00:52:36.383] { 1556s [00:52:36.383] do.call(function(...) { 1556s [00:52:36.383] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1556s [00:52:36.383] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1556s [00:52:36.383] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1556s [00:52:36.383] on.exit(options(oopts), add = TRUE) 1556s [00:52:36.383] } 1556s [00:52:36.383] { 1556s [00:52:36.383] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1556s [00:52:36.383] ...future.X_jj <- ...future.elements_ii[[jj]] 1556s [00:52:36.383] ...future.FUN(...future.X_jj, ...) 1556s [00:52:36.383] }) 1556s [00:52:36.383] } 1556s [00:52:36.383] }, args = future.call.arguments) 1556s [00:52:36.383] } 1556s [00:52:36.383] Lazy evaluation: FALSE 1556s [00:52:36.383] Asynchronous evaluation: FALSE 1556s [00:52:36.383] Local evaluation: TRUE 1556s [00:52:36.383] Environment: R_GlobalEnv 1556s [00:52:36.383] Capture standard output: TRUE 1556s [00:52:36.383] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1556s [00:52:36.383] Globals: 5 objects totaling 2.63 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 456 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1556s [00:52:36.383] Packages: 1556s [00:52:36.383] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1556s [00:52:36.383] Resolved: TRUE 1556s [00:52:36.383] Value: 240 bytes of class ‘list’ 1556s [00:52:36.383] Early signaling: FALSE 1556s [00:52:36.383] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1556s [00:52:36.383] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1556s [00:52:36.385] Chunk #1 of 1 ... DONE 1556s [00:52:36.385] Launching 1 futures (chunks) ... DONE 1556s [00:52:36.385] Resolving 1 futures (chunks) ... 1556s [00:52:36.386] resolve() on list ... 1556s [00:52:36.386] recursive: 0 1556s [00:52:36.386] length: 1 1556s [00:52:36.386] 1556s [00:52:36.386] resolved() for ‘SequentialFuture’ ... 1556s [00:52:36.386] - state: ‘finished’ 1556s [00:52:36.386] - run: TRUE 1556s [00:52:36.387] - result: ‘FutureResult’ 1556s [00:52:36.387] resolved() for ‘SequentialFuture’ ... done 1556s [00:52:36.387] Future #1 1556s [00:52:36.388] signalConditionsASAP(SequentialFuture, pos=1) ... 1556s [00:52:36.388] - nx: 1 1556s [00:52:36.388] - relay: TRUE 1556s [00:52:36.388] - stdout: TRUE 1556s [00:52:36.388] - signal: TRUE 1556s [00:52:36.388] - resignal: FALSE 1556s [00:52:36.389] - force: TRUE 1556s [00:52:36.389] - relayed: [n=1] FALSE 1556s [00:52:36.389] - queued futures: [n=1] FALSE 1556s [00:52:36.389] - until=1 1556s [00:52:36.389] - relaying element #1 1556s [00:52:36.390] - relayed: [n=1] TRUE 1556s [00:52:36.390] - queued futures: [n=1] TRUE 1556s [00:52:36.390] signalConditionsASAP(SequentialFuture, pos=1) ... done 1556s [00:52:36.390] length: 0 (resolved future 1) 1556s [00:52:36.390] Relaying remaining futures 1556s [00:52:36.391] signalConditionsASAP(NULL, pos=0) ... 1556s [00:52:36.391] - nx: 1 1556s [00:52:36.391] - relay: TRUE 1556s [00:52:36.391] - stdout: TRUE 1556s [00:52:36.391] - signal: TRUE 1556s [00:52:36.391] - resignal: FALSE 1556s [00:52:36.391] - force: TRUE 1556s [00:52:36.391] - relayed: [n=1] TRUE 1556s [00:52:36.392] - queued futures: [n=1] TRUE 1556s - flush all 1556s [00:52:36.392] - relayed: [n=1] TRUE 1556s [00:52:36.392] - queued futures: [n=1] TRUE 1556s [00:52:36.392] signalConditionsASAP(NULL, pos=0) ... done 1556s [00:52:36.392] resolve() on list ... DONE 1556s [00:52:36.392] - Number of value chunks collected: 1 1556s List of 1 1556s $ y:List of 4 1556s ..[00:52:36.393] Resolving 1 futures (chunks) ... DONE 1556s [00:52:36.393] Reducing values from 1 chunks ... 1556s [00:52:36.393] - Number of values collected after concatenation: 4 1556s [00:52:36.393] - Number of values expected: 4 1556s [00:52:36.393] Reverse index remapping (attribute 'ordering'): [n = 4] 1, 4, 3, 2 1556s [00:52:36.393] Reducing values from 1 chunks ... DONE 1556s [00:52:36.393] future_lapply() ... DONE 1556s $ a:- future_lapply(x, FUN = base::vector, ...) ... 1556s [00:52:36.397] future_lapply() ... 1556s int [1:2] 0 0 1556s ..$ b: num [1:2] 0 0 1556s ..$ c: chr [1:2] "" "" 1556s ..$ c:List of 2 1556s .. ..$ : NULL 1556s .. ..$ : NULL 1556s [00:52:36.402] Number of chunks: 1 1556s [00:52:36.402] Index remapping (attribute 'ordering'): [n = 4] 2, 4, 1, 3 1556s [00:52:36.402] getGlobalsAndPackagesXApply() ... 1556s [00:52:36.402] - future.globals: TRUE 1556s [00:52:36.403] getGlobalsAndPackages() ... 1556s [00:52:36.403] Searching for globals... 1556s [00:52:36.407] - globals found: [2] ‘FUN’, ‘.Internal’ 1556s [00:52:36.407] Searching for globals ... DONE 1556s [00:52:36.408] Resolving globals: FALSE 1556s [00:52:36.408] The total size of the 1 globals is 2.13 KiB (2184 bytes) 1556s [00:52:36.408] The total size of the 1 globals exported for future expression (‘FUN(length = 2L)’) is 2.13 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (2.13 KiB of class ‘function’) 1556s [00:52:36.408] - globals: [1] ‘FUN’ 1556s [00:52:36.409] 1556s [00:52:36.409] getGlobalsAndPackages() ... DONE 1556s [00:52:36.409] - globals found/used: [n=1] ‘FUN’ 1556s [00:52:36.409] - needed namespaces: [n=0] 1556s [00:52:36.409] Finding globals ... DONE 1556s [00:52:36.410] - use_args: TRUE 1556s [00:52:36.410] - Getting '...' globals ... 1556s [00:52:36.410] resolve() on list ... 1556s [00:52:36.410] recursive: 0 1556s [00:52:36.411] length: 1 1556s [00:52:36.411] elements: ‘...’ 1556s [00:52:36.411] length: 0 (resolved future 1) 1556s [00:52:36.411] resolve() on list ... DONE 1556s [00:52:36.411] - '...' content: [n=1] ‘length’ 1556s [00:52:36.412] List of 1 1556s [00:52:36.412] $ ...:List of 1 1556s [00:52:36.412] ..$ length: int 2 1556s [00:52:36.412] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1556s [00:52:36.412] - attr(*, "where")=List of 1 1556s [00:52:36.412] ..$ ...: 1556s [00:52:36.412] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1556s [00:52:36.412] - attr(*, "resolved")= logi TRUE 1556s [00:52:36.412] - attr(*, "total_size")= num NA 1556s [00:52:36.416] - Getting '...' globals ... DONE 1556s [00:52:36.416] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1556s [00:52:36.416] List of 2 1556s [00:52:36.416] $ ...future.FUN:function (mode = "logical", length = 0L) 1556s [00:52:36.416] $ ... :List of 1 1556s [00:52:36.416] ..$ length: int 2 1556s [00:52:36.416] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1556s [00:52:36.416] - attr(*, "where")=List of 2 1556s [00:52:36.416] ..$ ...future.FUN: 1556s [00:52:36.416] ..$ ... : 1556s [00:52:36.416] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1556s [00:52:36.416] - attr(*, "resolved")= logi FALSE 1556s [00:52:36.416] - attr(*, "total_size")= num 2240 1556s [00:52:36.421] Packages to be attached in all futures: [n=0] 1556s [00:52:36.422] getGlobalsAndPackagesXApply() ... DONE 1556s [00:52:36.422] Number of futures (= number of chunks): 1 1556s [00:52:36.422] Launching 1 futures (chunks) ... 1556s [00:52:36.422] Chunk #1 of 1 ... 1556s [00:52:36.423] - Finding globals in 'X' for chunk #1 ... 1556s [00:52:36.423] getGlobalsAndPackages() ... 1556s [00:52:36.423] Searching for globals... 1556s [00:52:36.424] 1556s [00:52:36.424] Searching for globals ... DONE 1556s [00:52:36.425] - globals: [0] 1556s [00:52:36.425] getGlobalsAndPackages() ... DONE 1556s [00:52:36.425] + additional globals found: [n=0] 1556s [00:52:36.425] + additional namespaces needed: [n=0] 1556s [00:52:36.425] - Finding globals in 'X' for chunk #1 ... DONE 1556s [00:52:36.425] - seeds: 1556s [00:52:36.426] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1556s [00:52:36.426] getGlobalsAndPackages() ... 1556s [00:52:36.426] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1556s [00:52:36.426] Resolving globals: FALSE 1556s [00:52:36.427] Tweak future expression to call with '...' arguments ... 1556s [00:52:36.427] { 1556s [00:52:36.427] do.call(function(...) { 1556s [00:52:36.427] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1556s [00:52:36.427] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1556s [00:52:36.427] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1556s [00:52:36.427] on.exit(options(oopts), add = TRUE) 1556s [00:52:36.427] } 1556s [00:52:36.427] { 1556s [00:52:36.427] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1556s [00:52:36.427] ...future.X_jj <- ...future.elements_ii[[jj]] 1556s [00:52:36.427] ...future.FUN(...future.X_jj, ...) 1556s [00:52:36.427] }) 1556s [00:52:36.427] } 1556s [00:52:36.427] }, args = future.call.arguments) 1556s [00:52:36.427] } 1556s [00:52:36.428] Tweak future expression to call with '...' arguments ... DONE 1556s [00:52:36.428] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1556s [00:52:36.428] 1556s [00:52:36.429] getGlobalsAndPackages() ... DONE 1556s [00:52:36.429] run() for ‘Future’ ... 1556s [00:52:36.429] - state: ‘created’ 1556s [00:52:36.430] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1556s [00:52:36.434] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1556s [00:52:36.434] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1556s [00:52:36.434] - Field: ‘label’ 1556s [00:52:36.434] - Field: ‘local’ 1556s [00:52:36.435] - Field: ‘owner’ 1556s [00:52:36.435] - Field: ‘envir’ 1556s [00:52:36.435] - Field: ‘packages’ 1556s [00:52:36.435] - Field: ‘gc’ 1556s [00:52:36.435] - Field: ‘conditions’ 1556s [00:52:36.435] - Field: ‘expr’ 1556s [00:52:36.436] - Field: ‘uuid’ 1556s [00:52:36.436] - Field: ‘seed’ 1556s [00:52:36.436] - Field: ‘version’ 1556s [00:52:36.436] - Field: ‘result’ 1556s [00:52:36.436] - Field: ‘asynchronous’ 1556s [00:52:36.436] - Field: ‘calls’ 1556s [00:52:36.437] - Field: ‘globals’ 1556s [00:52:36.437] - Field: ‘stdout’ 1556s [00:52:36.437] - Field: ‘earlySignal’ 1556s [00:52:36.437] - Field: ‘lazy’ 1556s [00:52:36.437] - Field: ‘state’ 1556s [00:52:36.437] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1556s [00:52:36.438] - Launch lazy future ... 1556s [00:52:36.438] Packages needed by the future expression (n = 0): 1556s [00:52:36.438] Packages needed by future strategies (n = 0): 1556s [00:52:36.439] { 1556s [00:52:36.439] { 1556s [00:52:36.439] { 1556s [00:52:36.439] ...future.startTime <- base::Sys.time() 1556s [00:52:36.439] { 1556s [00:52:36.439] { 1556s [00:52:36.439] { 1556s [00:52:36.439] base::local({ 1556s [00:52:36.439] has_future <- base::requireNamespace("future", 1556s [00:52:36.439] quietly = TRUE) 1556s [00:52:36.439] if (has_future) { 1556s [00:52:36.439] ns <- base::getNamespace("future") 1556s [00:52:36.439] version <- ns[[".package"]][["version"]] 1556s [00:52:36.439] if (is.null(version)) 1556s [00:52:36.439] version <- utils::packageVersion("future") 1556s [00:52:36.439] } 1556s [00:52:36.439] else { 1556s [00:52:36.439] version <- NULL 1556s [00:52:36.439] } 1556s [00:52:36.439] if (!has_future || version < "1.8.0") { 1556s [00:52:36.439] info <- base::c(r_version = base::gsub("R version ", 1556s [00:52:36.439] "", base::R.version$version.string), 1556s [00:52:36.439] platform = base::sprintf("%s (%s-bit)", 1556s [00:52:36.439] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1556s [00:52:36.439] os = base::paste(base::Sys.info()[base::c("sysname", 1556s [00:52:36.439] "release", "version")], collapse = " "), 1556s [00:52:36.439] hostname = base::Sys.info()[["nodename"]]) 1556s [00:52:36.439] info <- base::sprintf("%s: %s", base::names(info), 1556s [00:52:36.439] info) 1556s [00:52:36.439] info <- base::paste(info, collapse = "; ") 1556s [00:52:36.439] if (!has_future) { 1556s [00:52:36.439] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1556s [00:52:36.439] info) 1556s [00:52:36.439] } 1556s [00:52:36.439] else { 1556s [00:52:36.439] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1556s [00:52:36.439] info, version) 1556s [00:52:36.439] } 1556s [00:52:36.439] base::stop(msg) 1556s [00:52:36.439] } 1556s [00:52:36.439] }) 1556s [00:52:36.439] } 1556s [00:52:36.439] options(future.plan = NULL) 1556s [00:52:36.439] Sys.unsetenv("R_FUTURE_PLAN") 1556s [00:52:36.439] future::plan("default", .cleanup = FALSE, .init = FALSE) 1556s [00:52:36.439] } 1556s [00:52:36.439] ...future.workdir <- getwd() 1556s [00:52:36.439] } 1556s [00:52:36.439] ...future.oldOptions <- base::as.list(base::.Options) 1556s [00:52:36.439] ...future.oldEnvVars <- base::Sys.getenv() 1556s [00:52:36.439] } 1556s [00:52:36.439] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1556s [00:52:36.439] future.globals.maxSize = NULL, future.globals.method = NULL, 1556s [00:52:36.439] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1556s [00:52:36.439] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1556s [00:52:36.439] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1556s [00:52:36.439] future.stdout.windows.reencode = NULL, width = 80L) 1556s [00:52:36.439] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1556s [00:52:36.439] base::names(...future.oldOptions)) 1556s [00:52:36.439] } 1556s [00:52:36.439] if (FALSE) { 1556s [00:52:36.439] } 1556s [00:52:36.439] else { 1556s [00:52:36.439] if (TRUE) { 1556s [00:52:36.439] ...future.stdout <- base::rawConnection(base::raw(0L), 1556s [00:52:36.439] open = "w") 1556s [00:52:36.439] } 1556s [00:52:36.439] else { 1556s [00:52:36.439] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1556s [00:52:36.439] windows = "NUL", "/dev/null"), open = "w") 1556s [00:52:36.439] } 1556s [00:52:36.439] base::sink(...future.stdout, type = "output", split = FALSE) 1556s [00:52:36.439] base::on.exit(if (!base::is.null(...future.stdout)) { 1556s [00:52:36.439] base::sink(type = "output", split = FALSE) 1556s [00:52:36.439] base::close(...future.stdout) 1556s [00:52:36.439] }, add = TRUE) 1556s [00:52:36.439] } 1556s [00:52:36.439] ...future.frame <- base::sys.nframe() 1556s [00:52:36.439] ...future.conditions <- base::list() 1556s [00:52:36.439] ...future.rng <- base::globalenv()$.Random.seed 1556s [00:52:36.439] if (FALSE) { 1556s [00:52:36.439] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1556s [00:52:36.439] "...future.value", "...future.globalenv.names", ".Random.seed") 1556s [00:52:36.439] } 1556s [00:52:36.439] ...future.result <- base::tryCatch({ 1556s [00:52:36.439] base::withCallingHandlers({ 1556s [00:52:36.439] ...future.value <- base::withVisible(base::local({ 1556s [00:52:36.439] do.call(function(...) { 1556s [00:52:36.439] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1556s [00:52:36.439] if (!identical(...future.globals.maxSize.org, 1556s [00:52:36.439] ...future.globals.maxSize)) { 1556s [00:52:36.439] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1556s [00:52:36.439] on.exit(options(oopts), add = TRUE) 1556s [00:52:36.439] } 1556s [00:52:36.439] { 1556s [00:52:36.439] lapply(seq_along(...future.elements_ii), 1556s [00:52:36.439] FUN = function(jj) { 1556s [00:52:36.439] ...future.X_jj <- ...future.elements_ii[[jj]] 1556s [00:52:36.439] ...future.FUN(...future.X_jj, ...) 1556s [00:52:36.439] }) 1556s [00:52:36.439] } 1556s [00:52:36.439] }, args = future.call.arguments) 1556s [00:52:36.439] })) 1556s [00:52:36.439] future::FutureResult(value = ...future.value$value, 1556s [00:52:36.439] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1556s [00:52:36.439] ...future.rng), globalenv = if (FALSE) 1556s [00:52:36.439] list(added = base::setdiff(base::names(base::.GlobalEnv), 1556s [00:52:36.439] ...future.globalenv.names)) 1556s [00:52:36.439] else NULL, started = ...future.startTime, version = "1.8") 1556s [00:52:36.439] }, condition = base::local({ 1556s [00:52:36.439] c <- base::c 1556s [00:52:36.439] inherits <- base::inherits 1556s [00:52:36.439] invokeRestart <- base::invokeRestart 1556s [00:52:36.439] length <- base::length 1556s [00:52:36.439] list <- base::list 1556s [00:52:36.439] seq.int <- base::seq.int 1556s [00:52:36.439] signalCondition <- base::signalCondition 1556s [00:52:36.439] sys.calls <- base::sys.calls 1556s [00:52:36.439] `[[` <- base::`[[` 1556s [00:52:36.439] `+` <- base::`+` 1556s [00:52:36.439] `<<-` <- base::`<<-` 1556s [00:52:36.439] sysCalls <- function(calls = sys.calls(), from = 1L) { 1556s [00:52:36.439] calls[seq.int(from = from + 12L, to = length(calls) - 1556s [00:52:36.439] 3L)] 1556s [00:52:36.439] } 1556s [00:52:36.439] function(cond) { 1556s [00:52:36.439] is_error <- inherits(cond, "error") 1556s [00:52:36.439] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1556s [00:52:36.439] NULL) 1556s [00:52:36.439] if (is_error) { 1556s [00:52:36.439] sessionInformation <- function() { 1556s [00:52:36.439] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1556s [00:52:36.439] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1556s [00:52:36.439] search = base::search(), system = base::Sys.info()) 1556s [00:52:36.439] } 1556s [00:52:36.439] ...future.conditions[[length(...future.conditions) + 1556s [00:52:36.439] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1556s [00:52:36.439] cond$call), session = sessionInformation(), 1556s [00:52:36.439] timestamp = base::Sys.time(), signaled = 0L) 1556s [00:52:36.439] signalCondition(cond) 1556s [00:52:36.439] } 1556s [00:52:36.439] else if (!ignore && TRUE && inherits(cond, c("condition", 1556s [00:52:36.439] "immediateCondition"))) { 1556s [00:52:36.439] signal <- TRUE && inherits(cond, "immediateCondition") 1556s [00:52:36.439] ...future.conditions[[length(...future.conditions) + 1556s [00:52:36.439] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1556s [00:52:36.439] if (TRUE && !signal) { 1556s [00:52:36.439] muffleCondition <- function (cond, pattern = "^muffle") 1556s [00:52:36.439] { 1556s [00:52:36.439] inherits <- base::inherits 1556s [00:52:36.439] invokeRestart <- base::invokeRestart 1556s [00:52:36.439] is.null <- base::is.null 1556s [00:52:36.439] muffled <- FALSE 1556s [00:52:36.439] if (inherits(cond, "message")) { 1556s [00:52:36.439] muffled <- grepl(pattern, "muffleMessage") 1556s [00:52:36.439] if (muffled) 1556s [00:52:36.439] invokeRestart("muffleMessage") 1556s [00:52:36.439] } 1556s [00:52:36.439] else if (inherits(cond, "warning")) { 1556s [00:52:36.439] muffled <- grepl(pattern, "muffleWarning") 1556s [00:52:36.439] if (muffled) 1556s [00:52:36.439] invokeRestart("muffleWarning") 1556s [00:52:36.439] } 1556s [00:52:36.439] else if (inherits(cond, "condition")) { 1556s [00:52:36.439] if (!is.null(pattern)) { 1556s [00:52:36.439] computeRestarts <- base::computeRestarts 1556s [00:52:36.439] grepl <- base::grepl 1556s [00:52:36.439] restarts <- computeRestarts(cond) 1556s [00:52:36.439] for (restart in restarts) { 1556s [00:52:36.439] name <- restart$name 1556s [00:52:36.439] if (is.null(name)) 1556s [00:52:36.439] next 1556s [00:52:36.439] if (!grepl(pattern, name)) 1556s [00:52:36.439] next 1556s [00:52:36.439] invokeRestart(restart) 1556s [00:52:36.439] muffled <- TRUE 1556s [00:52:36.439] break 1556s [00:52:36.439] } 1556s [00:52:36.439] } 1556s [00:52:36.439] } 1556s [00:52:36.439] invisible(muffled) 1556s [00:52:36.439] } 1556s [00:52:36.439] muffleCondition(cond, pattern = "^muffle") 1556s [00:52:36.439] } 1556s [00:52:36.439] } 1556s [00:52:36.439] else { 1556s [00:52:36.439] if (TRUE) { 1556s [00:52:36.439] muffleCondition <- function (cond, pattern = "^muffle") 1556s [00:52:36.439] { 1556s [00:52:36.439] inherits <- base::inherits 1556s [00:52:36.439] invokeRestart <- base::invokeRestart 1556s [00:52:36.439] is.null <- base::is.null 1556s [00:52:36.439] muffled <- FALSE 1556s [00:52:36.439] if (inherits(cond, "message")) { 1556s [00:52:36.439] muffled <- grepl(pattern, "muffleMessage") 1556s [00:52:36.439] if (muffled) 1556s [00:52:36.439] invokeRestart("muffleMessage") 1556s [00:52:36.439] } 1556s [00:52:36.439] else if (inherits(cond, "warning")) { 1556s [00:52:36.439] muffled <- grepl(pattern, "muffleWarning") 1556s [00:52:36.439] if (muffled) 1556s [00:52:36.439] invokeRestart("muffleWarning") 1556s [00:52:36.439] } 1556s [00:52:36.439] else if (inherits(cond, "condition")) { 1556s [00:52:36.439] if (!is.null(pattern)) { 1556s [00:52:36.439] computeRestarts <- base::computeRestarts 1556s [00:52:36.439] grepl <- base::grepl 1556s [00:52:36.439] restarts <- computeRestarts(cond) 1556s [00:52:36.439] for (restart in restarts) { 1556s [00:52:36.439] name <- restart$name 1556s [00:52:36.439] if (is.null(name)) 1556s [00:52:36.439] next 1556s [00:52:36.439] if (!grepl(pattern, name)) 1556s [00:52:36.439] next 1556s [00:52:36.439] invokeRestart(restart) 1556s [00:52:36.439] muffled <- TRUE 1556s [00:52:36.439] break 1556s [00:52:36.439] } 1556s [00:52:36.439] } 1556s [00:52:36.439] } 1556s [00:52:36.439] invisible(muffled) 1556s [00:52:36.439] } 1556s [00:52:36.439] muffleCondition(cond, pattern = "^muffle") 1556s [00:52:36.439] } 1556s [00:52:36.439] } 1556s [00:52:36.439] } 1556s [00:52:36.439] })) 1556s [00:52:36.439] }, error = function(ex) { 1556s [00:52:36.439] base::structure(base::list(value = NULL, visible = NULL, 1556s [00:52:36.439] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1556s [00:52:36.439] ...future.rng), started = ...future.startTime, 1556s [00:52:36.439] finished = Sys.time(), session_uuid = NA_character_, 1556s [00:52:36.439] version = "1.8"), class = "FutureResult") 1556s [00:52:36.439] }, finally = { 1556s [00:52:36.439] if (!identical(...future.workdir, getwd())) 1556s [00:52:36.439] setwd(...future.workdir) 1556s [00:52:36.439] { 1556s [00:52:36.439] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1556s [00:52:36.439] ...future.oldOptions$nwarnings <- NULL 1556s [00:52:36.439] } 1556s [00:52:36.439] base::options(...future.oldOptions) 1556s [00:52:36.439] if (.Platform$OS.type == "windows") { 1556s [00:52:36.439] old_names <- names(...future.oldEnvVars) 1556s [00:52:36.439] envs <- base::Sys.getenv() 1556s [00:52:36.439] names <- names(envs) 1556s [00:52:36.439] common <- intersect(names, old_names) 1556s [00:52:36.439] added <- setdiff(names, old_names) 1556s [00:52:36.439] removed <- setdiff(old_names, names) 1556s [00:52:36.439] changed <- common[...future.oldEnvVars[common] != 1556s [00:52:36.439] envs[common]] 1556s [00:52:36.439] NAMES <- toupper(changed) 1556s [00:52:36.439] args <- list() 1556s [00:52:36.439] for (kk in seq_along(NAMES)) { 1556s [00:52:36.439] name <- changed[[kk]] 1556s [00:52:36.439] NAME <- NAMES[[kk]] 1556s [00:52:36.439] if (name != NAME && is.element(NAME, old_names)) 1556s [00:52:36.439] next 1556s [00:52:36.439] args[[name]] <- ...future.oldEnvVars[[name]] 1556s [00:52:36.439] } 1556s [00:52:36.439] NAMES <- toupper(added) 1556s [00:52:36.439] for (kk in seq_along(NAMES)) { 1556s [00:52:36.439] name <- added[[kk]] 1556s [00:52:36.439] NAME <- NAMES[[kk]] 1556s [00:52:36.439] if (name != NAME && is.element(NAME, old_names)) 1556s [00:52:36.439] next 1556s [00:52:36.439] args[[name]] <- "" 1556s [00:52:36.439] } 1556s [00:52:36.439] NAMES <- toupper(removed) 1556s [00:52:36.439] for (kk in seq_along(NAMES)) { 1556s [00:52:36.439] name <- removed[[kk]] 1556s [00:52:36.439] NAME <- NAMES[[kk]] 1556s [00:52:36.439] if (name != NAME && is.element(NAME, old_names)) 1556s [00:52:36.439] next 1556s [00:52:36.439] args[[name]] <- ...future.oldEnvVars[[name]] 1556s [00:52:36.439] } 1556s [00:52:36.439] if (length(args) > 0) 1556s [00:52:36.439] base::do.call(base::Sys.setenv, args = args) 1556s [00:52:36.439] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1556s [00:52:36.439] } 1556s [00:52:36.439] else { 1556s [00:52:36.439] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1556s [00:52:36.439] } 1556s [00:52:36.439] { 1556s [00:52:36.439] if (base::length(...future.futureOptionsAdded) > 1556s [00:52:36.439] 0L) { 1556s [00:52:36.439] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1556s [00:52:36.439] base::names(opts) <- ...future.futureOptionsAdded 1556s [00:52:36.439] base::options(opts) 1556s [00:52:36.439] } 1556s [00:52:36.439] { 1556s [00:52:36.439] { 1556s [00:52:36.439] NULL 1556s [00:52:36.439] RNGkind("Mersenne-Twister") 1556s [00:52:36.439] base::rm(list = ".Random.seed", envir = base::globalenv(), 1556s [00:52:36.439] inherits = FALSE) 1556s [00:52:36.439] } 1556s [00:52:36.439] options(future.plan = NULL) 1556s [00:52:36.439] if (is.na(NA_character_)) 1556s [00:52:36.439] Sys.unsetenv("R_FUTURE_PLAN") 1556s [00:52:36.439] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1556s [00:52:36.439] future::plan(list(function (..., workers = availableCores(), 1556s [00:52:36.439] lazy = FALSE, rscript_libs = .libPaths(), 1556s [00:52:36.439] envir = parent.frame()) 1556s [00:52:36.439] { 1556s [00:52:36.439] if (is.function(workers)) 1556s [00:52:36.439] workers <- workers() 1556s [00:52:36.439] workers <- structure(as.integer(workers), 1556s [00:52:36.439] class = class(workers)) 1556s [00:52:36.439] stop_if_not(length(workers) == 1, is.finite(workers), 1556s [00:52:36.439] workers >= 1) 1556s [00:52:36.439] if (workers == 1L && !inherits(workers, "AsIs")) { 1556s [00:52:36.439] return(sequential(..., lazy = TRUE, envir = envir)) 1556s [00:52:36.439] } 1556s [00:52:36.439] future <- MultisessionFuture(..., workers = workers, 1556s [00:52:36.439] lazy = lazy, rscript_libs = rscript_libs, 1556s [00:52:36.439] envir = envir) 1556s [00:52:36.439] if (!future$lazy) 1556s [00:52:36.439] future <- run(future) 1556s [00:52:36.439] invisible(future) 1556s [00:52:36.439] }), .cleanup = FALSE, .init = FALSE) 1556s [00:52:36.439] } 1556s [00:52:36.439] } 1556s [00:52:36.439] } 1556s [00:52:36.439] }) 1556s [00:52:36.439] if (TRUE) { 1556s [00:52:36.439] base::sink(type = "output", split = FALSE) 1556s [00:52:36.439] if (TRUE) { 1556s [00:52:36.439] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1556s [00:52:36.439] } 1556s [00:52:36.439] else { 1556s [00:52:36.439] ...future.result["stdout"] <- base::list(NULL) 1556s [00:52:36.439] } 1556s [00:52:36.439] base::close(...future.stdout) 1556s [00:52:36.439] ...future.stdout <- NULL 1556s [00:52:36.439] } 1556s [00:52:36.439] ...future.result$conditions <- ...future.conditions 1556s [00:52:36.439] ...future.result$finished <- base::Sys.time() 1556s [00:52:36.439] ...future.result 1556s [00:52:36.439] } 1556s [00:52:36.443] assign_globals() ... 1556s [00:52:36.443] List of 5 1556s [00:52:36.443] $ ...future.FUN :function (mode = "logical", length = 0L) 1556s [00:52:36.443] $ future.call.arguments :List of 1 1556s [00:52:36.443] ..$ length: int 2 1556s [00:52:36.443] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1556s [00:52:36.443] $ ...future.elements_ii :List of 4 1556s [00:52:36.443] ..$ b: chr "numeric" 1556s [00:52:36.443] ..$ c: chr "list" 1556s [00:52:36.443] ..$ a: chr "integer" 1556s [00:52:36.443] ..$ c: chr "character" 1556s [00:52:36.443] $ ...future.seeds_ii : NULL 1556s [00:52:36.443] $ ...future.globals.maxSize: NULL 1556s [00:52:36.443] - attr(*, "where")=List of 5 1556s [00:52:36.443] ..$ ...future.FUN : 1556s [00:52:36.443] ..$ future.call.arguments : 1556s [00:52:36.443] ..$ ...future.elements_ii : 1556s [00:52:36.443] ..$ ...future.seeds_ii : 1556s [00:52:36.443] ..$ ...future.globals.maxSize: 1556s [00:52:36.443] - attr(*, "resolved")= logi FALSE 1556s [00:52:36.443] - attr(*, "total_size")= num 2240 1556s [00:52:36.443] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1556s [00:52:36.443] - attr(*, "already-done")= logi TRUE 1556s [00:52:36.453] - copied ‘...future.FUN’ to environment 1556s [00:52:36.454] - copied ‘future.call.arguments’ to environment 1556s [00:52:36.454] - copied ‘...future.elements_ii’ to environment 1556s [00:52:36.454] - copied ‘...future.seeds_ii’ to environment 1556s [00:52:36.454] - copied ‘...future.globals.maxSize’ to environment 1556s [00:52:36.454] assign_globals() ... done 1556s [00:52:36.455] plan(): Setting new future strategy stack: 1556s [00:52:36.455] List of future strategies: 1556s [00:52:36.455] 1. sequential: 1556s [00:52:36.455] - args: function (..., envir = parent.frame()) 1556s [00:52:36.455] - tweaked: FALSE 1556s [00:52:36.455] - call: NULL 1556s [00:52:36.455] plan(): nbrOfWorkers() = 1 1556s [00:52:36.456] plan(): Setting new future strategy stack: 1556s [00:52:36.457] List of future strategies: 1556s [00:52:36.457] 1. multisession: 1556s [00:52:36.457] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1556s [00:52:36.457] - tweaked: FALSE 1556s [00:52:36.457] - call: plan(strategy) 1556s [00:52:36.460] plan(): nbrOfWorkers() = 1 1556s [00:52:36.461] SequentialFuture started (and completed) 1556s [00:52:36.461] - Launch lazy future ... done 1556s [00:52:36.461] run() for ‘SequentialFuture’ ... done 1556s [00:52:36.461] Created future: 1556s [00:52:36.462] SequentialFuture: 1556s [00:52:36.462] Label: ‘future_lapply-1’ 1556s [00:52:36.462] Expression: 1556s [00:52:36.462] { 1556s [00:52:36.462] do.call(function(...) { 1556s [00:52:36.462] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1556s [00:52:36.462] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1556s [00:52:36.462] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1556s [00:52:36.462] on.exit(options(oopts), add = TRUE) 1556s [00:52:36.462] } 1556s [00:52:36.462] { 1556s [00:52:36.462] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1556s [00:52:36.462] ...future.X_jj <- ...future.elements_ii[[jj]] 1556s [00:52:36.462] ...future.FUN(...future.X_jj, ...) 1556s [00:52:36.462] }) 1556s [00:52:36.462] } 1556s [00:52:36.462] }, args = future.call.arguments) 1556s [00:52:36.462] } 1556s [00:52:36.462] Lazy evaluation: FALSE 1556s [00:52:36.462] Asynchronous evaluation: FALSE 1556s [00:52:36.462] Local evaluation: TRUE 1556s [00:52:36.462] Environment: R_GlobalEnv 1556s [00:52:36.462] Capture standard output: TRUE 1556s [00:52:36.462] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1556s [00:52:36.462] Globals: 5 objects totaling 2.63 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 456 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1556s [00:52:36.462] Packages: 1556s [00:52:36.462] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1556s [00:52:36.462] Resolved: TRUE 1556s [00:52:36.462] Value: 240 bytes of class ‘list’ 1556s [00:52:36.462] Early signaling: FALSE 1556s [00:52:36.462] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1556s [00:52:36.462] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1556s [00:52:36.464] Chunk #1 of 1 ... DONE 1556s [00:52:36.464] Launching 1 futures (chunks) ... DONE 1556s [00:52:36.464] Resolving 1 futures (chunks) ... 1556s [00:52:36.464] resolve() on list ... 1556s [00:52:36.465] recursive: 0 1556s [00:52:36.465] length: 1 1556s [00:52:36.465] 1556s [00:52:36.465] resolved() for ‘SequentialFuture’ ... 1556s [00:52:36.465] - state: ‘finished’ 1556s [00:52:36.465] - run: TRUE 1556s [00:52:36.466] - result: ‘FutureResult’ 1556s [00:52:36.466] resolved() for ‘SequentialFuture’ ... done 1556s [00:52:36.466] Future #1 1556s [00:52:36.466] signalConditionsASAP(SequentialFuture, pos=1) ... 1556s [00:52:36.466] - nx: 1 1556s [00:52:36.466] - relay: TRUE 1556s [00:52:36.467] - stdout: TRUE 1556s [00:52:36.467] - signal: TRUE 1556s [00:52:36.467] - resignal: FALSE 1556s [00:52:36.467] - force: TRUE 1556s [00:52:36.467] - relayed: [n=1] FALSE 1556s [00:52:36.467] - queued futures: [n=1] FALSE 1556s [00:52:36.467] - until=1 1556s [00:52:36.468] - relaying element #1 1556s [00:52:36.468] - relayed: [n=1] TRUE 1556s [00:52:36.468] - queued futures: [n=1] TRUE 1556s [00:52:36.469] signalConditionsASAP(SequentialFuture, pos=1) ... done 1556s [00:52:36.469] length: 0 (resolved future 1) 1556s [00:52:36.469] Relaying remaining futures 1556s [00:52:36.469] signalConditionsASAP(NULL, pos=0) ... 1556s [00:52:36.469] - nx: 1 1556s [00:52:36.469] - relay: TRUE 1556s [00:52:36.470] - stdout: TRUE 1556s [00:52:36.470] - signal: TRUE 1556s [00:52:36.471] - resignal: FALSE 1556s [00:52:36.471] - force: TRUE 1556s [00:52:36.471] - relayed: [n=1] TRUE 1556s [00:52:36.472] - queued futures: [n=1] TRUE 1556s - flush all 1556s [00:52:36.472] - relayed: [n=1] TRUE 1556s [00:52:36.473] - queued futures: [n=1] TRUE 1556s [00:52:36.473] signalConditionsASAP(NULL, pos=0) ... done 1556s [00:52:36.474] resolve() on list ... DONE 1556s [00:52:36.474] - Number of value chunks collected: 1 1556s [00:52:36.474] Resolving 1 futures (chunks) ... DONE 1556s [00:52:36.475] Reducing values from 1 chunks ... 1556s [00:52:36.475] - Number of values collected after concatenation: 4 1556s [00:52:36.475] - Number of values expected: 4 1556s [00:52:36.476] Reverse index remapping (attribute 'ordering'): [n = 4] 3, 1, 4, 2 1556s [00:52:36.476] Reducing values from 1 chunks ... DONE 1556s [00:52:36.476] future_lapply() ... DONE 1556s List of 1 1556s $ y:List of 4 1556s ..$ a: int [1:2] 0 0 1556s ..$ b: num [1:2] 0 0 1556s ..$ c: chr [1:2] "" "" 1556s ..$ c:List of 2 1556s .. ..$ : NULL 1556s .. ..$ : NULL 1556s - future_lapply(x, FUN = future:::hpaste, ...) ... 1556s [00:52:36.483] future_lapply() ... 1556s [00:52:36.498] Number of chunks: 1 1556s [00:52:36.499] getGlobalsAndPackagesXApply() ... 1556s [00:52:36.499] - future.globals: TRUE 1556s [00:52:36.499] getGlobalsAndPackages() ... 1556s [00:52:36.499] Searching for globals... 1556s [00:52:36.516] - globals found: [22] ‘FUN’, ‘if’, ‘missing’, ‘is.finite’, ‘{’, ‘is.null’, ‘<-’, ‘paste’, ‘length’, ‘==’, ‘return’, ‘>’, ‘+’, ‘[’, ‘seq_len’, ‘rev’, ‘c’, ‘&&’, ‘!’, ‘:’, ‘(’, ‘-’ 1556s [00:52:36.517] Searching for globals ... DONE 1556s [00:52:36.518] Resolving globals: FALSE 1556s [00:52:36.520] The total size of the 1 globals is 69.62 KiB (71288 bytes) 1556s [00:52:36.521] The total size of the 1 globals exported for future expression (‘FUN(collapse = "; ", maxHead = 3L)’) is 69.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (69.62 KiB of class ‘function’) 1556s [00:52:36.522] - globals: [1] ‘FUN’ 1556s [00:52:36.522] - packages: [1] ‘future’ 1556s [00:52:36.523] getGlobalsAndPackages() ... DONE 1556s [00:52:36.523] - globals found/used: [n=1] ‘FUN’ 1556s [00:52:36.524] - needed namespaces: [n=1] ‘future’ 1556s [00:52:36.524] Finding globals ... DONE 1556s [00:52:36.524] - use_args: TRUE 1556s [00:52:36.524] - Getting '...' globals ... 1556s [00:52:36.525] resolve() on list ... 1556s [00:52:36.525] recursive: 0 1556s [00:52:36.525] length: 1 1556s [00:52:36.526] elements: ‘...’ 1556s [00:52:36.526] length: 0 (resolved future 1) 1556s [00:52:36.526] resolve() on list ... DONE 1556s [00:52:36.526] - '...' content: [n=2] ‘collapse’, ‘maxHead’ 1556s [00:52:36.526] List of 1 1556s [00:52:36.526] $ ...:List of 2 1556s [00:52:36.526] ..$ collapse: chr "; " 1556s [00:52:36.526] ..$ maxHead : int 3 1556s [00:52:36.526] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1556s [00:52:36.526] - attr(*, "where")=List of 1 1556s [00:52:36.526] ..$ ...: 1556s [00:52:36.526] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1556s [00:52:36.526] - attr(*, "resolved")= logi TRUE 1556s [00:52:36.526] - attr(*, "total_size")= num NA 1556s [00:52:36.533] - Getting '...' globals ... DONE 1556s [00:52:36.533] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1556s [00:52:36.533] List of 2 1556s [00:52:36.533] $ ...future.FUN:function (..., sep = "", collapse = ", ", lastCollapse = NULL, maxHead = if (missing(lastCollapse)) 3 else Inf, 1556s [00:52:36.533] maxTail = if (is.finite(maxHead)) 1 else Inf, abbreviate = "...") 1556s [00:52:36.533] $ ... :List of 2 1556s [00:52:36.533] ..$ collapse: chr "; " 1556s [00:52:36.533] ..$ maxHead : int 3 1556s [00:52:36.533] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1556s [00:52:36.533] - attr(*, "where")=List of 2 1556s [00:52:36.533] ..$ ...future.FUN: 1556s [00:52:36.533] ..$ ... : 1556s [00:52:36.533] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1556s [00:52:36.533] - attr(*, "resolved")= logi FALSE 1556s [00:52:36.533] - attr(*, "total_size")= num 71456 1556s [00:52:36.538] Packages to be attached in all futures: [n=1] ‘future’ 1556s [00:52:36.539] getGlobalsAndPackagesXApply() ... DONE 1556s [00:52:36.539] Number of futures (= number of chunks): 1 1556s [00:52:36.539] Launching 1 futures (chunks) ... 1556s [00:52:36.539] Chunk #1 of 1 ... 1556s [00:52:36.540] - Finding globals in 'X' for chunk #1 ... 1556s [00:52:36.540] getGlobalsAndPackages() ... 1556s [00:52:36.540] Searching for globals... 1556s [00:52:36.540] 1556s [00:52:36.540] Searching for globals ... DONE 1556s [00:52:36.541] - globals: [0] 1556s [00:52:36.541] getGlobalsAndPackages() ... DONE 1556s [00:52:36.541] + additional globals found: [n=0] 1556s [00:52:36.542] + additional namespaces needed: [n=0] 1556s [00:52:36.542] - Finding globals in 'X' for chunk #1 ... DONE 1556s [00:52:36.542] - seeds: 1556s [00:52:36.542] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1556s [00:52:36.543] getGlobalsAndPackages() ... 1556s [00:52:36.543] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1556s [00:52:36.543] Resolving globals: FALSE 1556s [00:52:36.543] Tweak future expression to call with '...' arguments ... 1556s [00:52:36.543] { 1556s [00:52:36.543] do.call(function(...) { 1556s [00:52:36.543] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1556s [00:52:36.543] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1556s [00:52:36.543] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1556s [00:52:36.543] on.exit(options(oopts), add = TRUE) 1556s [00:52:36.543] } 1556s [00:52:36.543] { 1556s [00:52:36.543] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1556s [00:52:36.543] ...future.X_jj <- ...future.elements_ii[[jj]] 1556s [00:52:36.543] ...future.FUN(...future.X_jj, ...) 1556s [00:52:36.543] }) 1556s [00:52:36.543] } 1556s [00:52:36.543] }, args = future.call.arguments) 1556s [00:52:36.543] } 1556s [00:52:36.544] Tweak future expression to call with '...' arguments ... DONE 1556s [00:52:36.544] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1556s [00:52:36.545] - packages: [1] ‘future’ 1556s [00:52:36.545] getGlobalsAndPackages() ... DONE 1556s [00:52:36.545] run() for ‘Future’ ... 1556s [00:52:36.545] - state: ‘created’ 1556s [00:52:36.546] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1556s [00:52:36.553] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1556s [00:52:36.554] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1556s [00:52:36.554] - Field: ‘label’ 1556s [00:52:36.554] - Field: ‘local’ 1556s [00:52:36.554] - Field: ‘owner’ 1556s [00:52:36.554] - Field: ‘envir’ 1556s [00:52:36.554] - Field: ‘packages’ 1556s [00:52:36.555] - Field: ‘gc’ 1556s [00:52:36.555] - Field: ‘conditions’ 1556s [00:52:36.555] - Field: ‘expr’ 1556s [00:52:36.555] - Field: ‘uuid’ 1556s [00:52:36.555] - Field: ‘seed’ 1556s [00:52:36.555] - Field: ‘version’ 1556s [00:52:36.555] - Field: ‘result’ 1556s [00:52:36.556] - Field: ‘asynchronous’ 1556s [00:52:36.556] - Field: ‘calls’ 1556s [00:52:36.556] - Field: ‘globals’ 1556s [00:52:36.556] - Field: ‘stdout’ 1556s [00:52:36.556] - Field: ‘earlySignal’ 1556s [00:52:36.556] - Field: ‘lazy’ 1556s [00:52:36.557] - Field: ‘state’ 1556s [00:52:36.557] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1556s [00:52:36.557] - Launch lazy future ... 1556s [00:52:36.557] Packages needed by the future expression (n = 1): ‘future’ 1556s [00:52:36.557] Packages needed by future strategies (n = 0): 1556s [00:52:36.558] { 1556s [00:52:36.558] { 1556s [00:52:36.558] { 1556s [00:52:36.558] ...future.startTime <- base::Sys.time() 1556s [00:52:36.558] { 1556s [00:52:36.558] { 1556s [00:52:36.558] { 1556s [00:52:36.558] { 1556s [00:52:36.558] base::local({ 1556s [00:52:36.558] has_future <- base::requireNamespace("future", 1556s [00:52:36.558] quietly = TRUE) 1556s [00:52:36.558] if (has_future) { 1556s [00:52:36.558] ns <- base::getNamespace("future") 1556s [00:52:36.558] version <- ns[[".package"]][["version"]] 1556s [00:52:36.558] if (is.null(version)) 1556s [00:52:36.558] version <- utils::packageVersion("future") 1556s [00:52:36.558] } 1556s [00:52:36.558] else { 1556s [00:52:36.558] version <- NULL 1556s [00:52:36.558] } 1556s [00:52:36.558] if (!has_future || version < "1.8.0") { 1556s [00:52:36.558] info <- base::c(r_version = base::gsub("R version ", 1556s [00:52:36.558] "", base::R.version$version.string), 1556s [00:52:36.558] platform = base::sprintf("%s (%s-bit)", 1556s [00:52:36.558] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1556s [00:52:36.558] os = base::paste(base::Sys.info()[base::c("sysname", 1556s [00:52:36.558] "release", "version")], collapse = " "), 1556s [00:52:36.558] hostname = base::Sys.info()[["nodename"]]) 1556s [00:52:36.558] info <- base::sprintf("%s: %s", base::names(info), 1556s [00:52:36.558] info) 1556s [00:52:36.558] info <- base::paste(info, collapse = "; ") 1556s [00:52:36.558] if (!has_future) { 1556s [00:52:36.558] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1556s [00:52:36.558] info) 1556s [00:52:36.558] } 1556s [00:52:36.558] else { 1556s [00:52:36.558] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1556s [00:52:36.558] info, version) 1556s [00:52:36.558] } 1556s [00:52:36.558] base::stop(msg) 1556s [00:52:36.558] } 1556s [00:52:36.558] }) 1556s [00:52:36.558] } 1556s [00:52:36.558] base::local({ 1556s [00:52:36.558] for (pkg in "future") { 1556s [00:52:36.558] base::loadNamespace(pkg) 1556s [00:52:36.558] base::library(pkg, character.only = TRUE) 1556s [00:52:36.558] } 1556s [00:52:36.558] }) 1556s [00:52:36.558] } 1556s [00:52:36.558] options(future.plan = NULL) 1556s [00:52:36.558] Sys.unsetenv("R_FUTURE_PLAN") 1556s [00:52:36.558] future::plan("default", .cleanup = FALSE, .init = FALSE) 1556s [00:52:36.558] } 1556s [00:52:36.558] ...future.workdir <- getwd() 1556s [00:52:36.558] } 1556s [00:52:36.558] ...future.oldOptions <- base::as.list(base::.Options) 1556s [00:52:36.558] ...future.oldEnvVars <- base::Sys.getenv() 1556s [00:52:36.558] } 1556s [00:52:36.558] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1556s [00:52:36.558] future.globals.maxSize = NULL, future.globals.method = NULL, 1556s [00:52:36.558] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1556s [00:52:36.558] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1556s [00:52:36.558] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1556s [00:52:36.558] future.stdout.windows.reencode = NULL, width = 80L) 1556s [00:52:36.558] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1556s [00:52:36.558] base::names(...future.oldOptions)) 1556s [00:52:36.558] } 1556s [00:52:36.558] if (FALSE) { 1556s [00:52:36.558] } 1556s [00:52:36.558] else { 1556s [00:52:36.558] if (TRUE) { 1556s [00:52:36.558] ...future.stdout <- base::rawConnection(base::raw(0L), 1556s [00:52:36.558] open = "w") 1556s [00:52:36.558] } 1556s [00:52:36.558] else { 1556s [00:52:36.558] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1556s [00:52:36.558] windows = "NUL", "/dev/null"), open = "w") 1556s [00:52:36.558] } 1556s [00:52:36.558] base::sink(...future.stdout, type = "output", split = FALSE) 1556s [00:52:36.558] base::on.exit(if (!base::is.null(...future.stdout)) { 1556s [00:52:36.558] base::sink(type = "output", split = FALSE) 1556s [00:52:36.558] base::close(...future.stdout) 1556s [00:52:36.558] }, add = TRUE) 1556s [00:52:36.558] } 1556s [00:52:36.558] ...future.frame <- base::sys.nframe() 1556s [00:52:36.558] ...future.conditions <- base::list() 1556s [00:52:36.558] ...future.rng <- base::globalenv()$.Random.seed 1556s [00:52:36.558] if (FALSE) { 1556s [00:52:36.558] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1556s [00:52:36.558] "...future.value", "...future.globalenv.names", ".Random.seed") 1556s [00:52:36.558] } 1556s [00:52:36.558] ...future.result <- base::tryCatch({ 1556s [00:52:36.558] base::withCallingHandlers({ 1556s [00:52:36.558] ...future.value <- base::withVisible(base::local({ 1556s [00:52:36.558] do.call(function(...) { 1556s [00:52:36.558] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1556s [00:52:36.558] if (!identical(...future.globals.maxSize.org, 1556s [00:52:36.558] ...future.globals.maxSize)) { 1556s [00:52:36.558] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1556s [00:52:36.558] on.exit(options(oopts), add = TRUE) 1556s [00:52:36.558] } 1556s [00:52:36.558] { 1556s [00:52:36.558] lapply(seq_along(...future.elements_ii), 1556s [00:52:36.558] FUN = function(jj) { 1556s [00:52:36.558] ...future.X_jj <- ...future.elements_ii[[jj]] 1556s [00:52:36.558] ...future.FUN(...future.X_jj, ...) 1556s [00:52:36.558] }) 1556s [00:52:36.558] } 1556s [00:52:36.558] }, args = future.call.arguments) 1556s [00:52:36.558] })) 1556s [00:52:36.558] future::FutureResult(value = ...future.value$value, 1556s [00:52:36.558] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1556s [00:52:36.558] ...future.rng), globalenv = if (FALSE) 1556s [00:52:36.558] list(added = base::setdiff(base::names(base::.GlobalEnv), 1556s [00:52:36.558] ...future.globalenv.names)) 1556s [00:52:36.558] else NULL, started = ...future.startTime, version = "1.8") 1556s [00:52:36.558] }, condition = base::local({ 1556s [00:52:36.558] c <- base::c 1556s [00:52:36.558] inherits <- base::inherits 1556s [00:52:36.558] invokeRestart <- base::invokeRestart 1556s [00:52:36.558] length <- base::length 1556s [00:52:36.558] list <- base::list 1556s [00:52:36.558] seq.int <- base::seq.int 1556s [00:52:36.558] signalCondition <- base::signalCondition 1556s [00:52:36.558] sys.calls <- base::sys.calls 1556s [00:52:36.558] `[[` <- base::`[[` 1556s [00:52:36.558] `+` <- base::`+` 1556s [00:52:36.558] `<<-` <- base::`<<-` 1556s [00:52:36.558] sysCalls <- function(calls = sys.calls(), from = 1L) { 1556s [00:52:36.558] calls[seq.int(from = from + 12L, to = length(calls) - 1556s [00:52:36.558] 3L)] 1556s [00:52:36.558] } 1556s [00:52:36.558] function(cond) { 1556s [00:52:36.558] is_error <- inherits(cond, "error") 1556s [00:52:36.558] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1556s [00:52:36.558] NULL) 1556s [00:52:36.558] if (is_error) { 1556s [00:52:36.558] sessionInformation <- function() { 1556s [00:52:36.558] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1556s [00:52:36.558] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1556s [00:52:36.558] search = base::search(), system = base::Sys.info()) 1556s [00:52:36.558] } 1556s [00:52:36.558] ...future.conditions[[length(...future.conditions) + 1556s [00:52:36.558] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1556s [00:52:36.558] cond$call), session = sessionInformation(), 1556s [00:52:36.558] timestamp = base::Sys.time(), signaled = 0L) 1556s [00:52:36.558] signalCondition(cond) 1556s [00:52:36.558] } 1556s [00:52:36.558] else if (!ignore && TRUE && inherits(cond, c("condition", 1556s [00:52:36.558] "immediateCondition"))) { 1556s [00:52:36.558] signal <- TRUE && inherits(cond, "immediateCondition") 1556s [00:52:36.558] ...future.conditions[[length(...future.conditions) + 1556s [00:52:36.558] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1556s [00:52:36.558] if (TRUE && !signal) { 1556s [00:52:36.558] muffleCondition <- function (cond, pattern = "^muffle") 1556s [00:52:36.558] { 1556s [00:52:36.558] inherits <- base::inherits 1556s [00:52:36.558] invokeRestart <- base::invokeRestart 1556s [00:52:36.558] is.null <- base::is.null 1556s [00:52:36.558] muffled <- FALSE 1556s [00:52:36.558] if (inherits(cond, "message")) { 1556s [00:52:36.558] muffled <- grepl(pattern, "muffleMessage") 1556s [00:52:36.558] if (muffled) 1556s [00:52:36.558] invokeRestart("muffleMessage") 1556s [00:52:36.558] } 1556s [00:52:36.558] else if (inherits(cond, "warning")) { 1556s [00:52:36.558] muffled <- grepl(pattern, "muffleWarning") 1556s [00:52:36.558] if (muffled) 1556s [00:52:36.558] invokeRestart("muffleWarning") 1556s [00:52:36.558] } 1556s [00:52:36.558] else if (inherits(cond, "condition")) { 1556s [00:52:36.558] if (!is.null(pattern)) { 1556s [00:52:36.558] computeRestarts <- base::computeRestarts 1556s [00:52:36.558] grepl <- base::grepl 1556s [00:52:36.558] restarts <- computeRestarts(cond) 1556s [00:52:36.558] for (restart in restarts) { 1556s [00:52:36.558] name <- restart$name 1556s [00:52:36.558] if (is.null(name)) 1556s [00:52:36.558] next 1556s [00:52:36.558] if (!grepl(pattern, name)) 1556s [00:52:36.558] next 1556s [00:52:36.558] invokeRestart(restart) 1556s [00:52:36.558] muffled <- TRUE 1556s [00:52:36.558] break 1556s [00:52:36.558] } 1556s [00:52:36.558] } 1556s [00:52:36.558] } 1556s [00:52:36.558] invisible(muffled) 1556s [00:52:36.558] } 1556s [00:52:36.558] muffleCondition(cond, pattern = "^muffle") 1556s [00:52:36.558] } 1556s [00:52:36.558] } 1556s [00:52:36.558] else { 1556s [00:52:36.558] if (TRUE) { 1556s [00:52:36.558] muffleCondition <- function (cond, pattern = "^muffle") 1556s [00:52:36.558] { 1556s [00:52:36.558] inherits <- base::inherits 1556s [00:52:36.558] invokeRestart <- base::invokeRestart 1556s [00:52:36.558] is.null <- base::is.null 1556s [00:52:36.558] muffled <- FALSE 1556s [00:52:36.558] if (inherits(cond, "message")) { 1556s [00:52:36.558] muffled <- grepl(pattern, "muffleMessage") 1556s [00:52:36.558] if (muffled) 1556s [00:52:36.558] invokeRestart("muffleMessage") 1556s [00:52:36.558] } 1556s [00:52:36.558] else if (inherits(cond, "warning")) { 1556s [00:52:36.558] muffled <- grepl(pattern, "muffleWarning") 1556s [00:52:36.558] if (muffled) 1556s [00:52:36.558] invokeRestart("muffleWarning") 1556s [00:52:36.558] } 1556s [00:52:36.558] else if (inherits(cond, "condition")) { 1556s [00:52:36.558] if (!is.null(pattern)) { 1556s [00:52:36.558] computeRestarts <- base::computeRestarts 1556s [00:52:36.558] grepl <- base::grepl 1556s [00:52:36.558] restarts <- computeRestarts(cond) 1556s [00:52:36.558] for (restart in restarts) { 1556s [00:52:36.558] name <- restart$name 1556s [00:52:36.558] if (is.null(name)) 1556s [00:52:36.558] next 1556s [00:52:36.558] if (!grepl(pattern, name)) 1556s [00:52:36.558] next 1556s [00:52:36.558] invokeRestart(restart) 1556s [00:52:36.558] muffled <- TRUE 1556s [00:52:36.558] break 1556s [00:52:36.558] } 1556s [00:52:36.558] } 1556s [00:52:36.558] } 1556s [00:52:36.558] invisible(muffled) 1556s [00:52:36.558] } 1556s [00:52:36.558] muffleCondition(cond, pattern = "^muffle") 1556s [00:52:36.558] } 1556s [00:52:36.558] } 1556s [00:52:36.558] } 1556s [00:52:36.558] })) 1556s [00:52:36.558] }, error = function(ex) { 1556s [00:52:36.558] base::structure(base::list(value = NULL, visible = NULL, 1556s [00:52:36.558] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1556s [00:52:36.558] ...future.rng), started = ...future.startTime, 1556s [00:52:36.558] finished = Sys.time(), session_uuid = NA_character_, 1556s [00:52:36.558] version = "1.8"), class = "FutureResult") 1556s [00:52:36.558] }, finally = { 1556s [00:52:36.558] if (!identical(...future.workdir, getwd())) 1556s [00:52:36.558] setwd(...future.workdir) 1556s [00:52:36.558] { 1556s [00:52:36.558] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1556s [00:52:36.558] ...future.oldOptions$nwarnings <- NULL 1556s [00:52:36.558] } 1556s [00:52:36.558] base::options(...future.oldOptions) 1556s [00:52:36.558] if (.Platform$OS.type == "windows") { 1556s [00:52:36.558] old_names <- names(...future.oldEnvVars) 1556s [00:52:36.558] envs <- base::Sys.getenv() 1556s [00:52:36.558] names <- names(envs) 1556s [00:52:36.558] common <- intersect(names, old_names) 1556s [00:52:36.558] added <- setdiff(names, old_names) 1556s [00:52:36.558] removed <- setdiff(old_names, names) 1556s [00:52:36.558] changed <- common[...future.oldEnvVars[common] != 1556s [00:52:36.558] envs[common]] 1556s [00:52:36.558] NAMES <- toupper(changed) 1556s [00:52:36.558] args <- list() 1556s [00:52:36.558] for (kk in seq_along(NAMES)) { 1556s [00:52:36.558] name <- changed[[kk]] 1556s [00:52:36.558] NAME <- NAMES[[kk]] 1556s [00:52:36.558] if (name != NAME && is.element(NAME, old_names)) 1556s [00:52:36.558] next 1556s [00:52:36.558] args[[name]] <- ...future.oldEnvVars[[name]] 1556s [00:52:36.558] } 1556s [00:52:36.558] NAMES <- toupper(added) 1556s [00:52:36.558] for (kk in seq_along(NAMES)) { 1556s [00:52:36.558] name <- added[[kk]] 1556s [00:52:36.558] NAME <- NAMES[[kk]] 1556s [00:52:36.558] if (name != NAME && is.element(NAME, old_names)) 1556s [00:52:36.558] next 1556s [00:52:36.558] args[[name]] <- "" 1556s [00:52:36.558] } 1556s [00:52:36.558] NAMES <- toupper(removed) 1556s [00:52:36.558] for (kk in seq_along(NAMES)) { 1556s [00:52:36.558] name <- removed[[kk]] 1556s [00:52:36.558] NAME <- NAMES[[kk]] 1556s [00:52:36.558] if (name != NAME && is.element(NAME, old_names)) 1556s [00:52:36.558] next 1556s [00:52:36.558] args[[name]] <- ...future.oldEnvVars[[name]] 1556s [00:52:36.558] } 1556s [00:52:36.558] if (length(args) > 0) 1556s [00:52:36.558] base::do.call(base::Sys.setenv, args = args) 1556s [00:52:36.558] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1556s [00:52:36.558] } 1556s [00:52:36.558] else { 1556s [00:52:36.558] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1556s [00:52:36.558] } 1556s [00:52:36.558] { 1556s [00:52:36.558] if (base::length(...future.futureOptionsAdded) > 1556s [00:52:36.558] 0L) { 1556s [00:52:36.558] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1556s [00:52:36.558] base::names(opts) <- ...future.futureOptionsAdded 1556s [00:52:36.558] base::options(opts) 1556s [00:52:36.558] } 1556s [00:52:36.558] { 1556s [00:52:36.558] { 1556s [00:52:36.558] NULL 1556s [00:52:36.558] RNGkind("Mersenne-Twister") 1556s [00:52:36.558] base::rm(list = ".Random.seed", envir = base::globalenv(), 1556s [00:52:36.558] inherits = FALSE) 1556s [00:52:36.558] } 1556s [00:52:36.558] options(future.plan = NULL) 1556s [00:52:36.558] if (is.na(NA_character_)) 1556s [00:52:36.558] Sys.unsetenv("R_FUTURE_PLAN") 1556s [00:52:36.558] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1556s [00:52:36.558] future::plan(list(function (..., workers = availableCores(), 1556s [00:52:36.558] lazy = FALSE, rscript_libs = .libPaths(), 1556s [00:52:36.558] envir = parent.frame()) 1556s [00:52:36.558] { 1556s [00:52:36.558] if (is.function(workers)) 1556s [00:52:36.558] workers <- workers() 1556s [00:52:36.558] workers <- structure(as.integer(workers), 1556s [00:52:36.558] class = class(workers)) 1556s [00:52:36.558] stop_if_not(length(workers) == 1, is.finite(workers), 1556s [00:52:36.558] workers >= 1) 1556s [00:52:36.558] if (workers == 1L && !inherits(workers, "AsIs")) { 1556s [00:52:36.558] return(sequential(..., lazy = TRUE, envir = envir)) 1556s [00:52:36.558] } 1556s [00:52:36.558] future <- MultisessionFuture(..., workers = workers, 1556s [00:52:36.558] lazy = lazy, rscript_libs = rscript_libs, 1556s [00:52:36.558] envir = envir) 1556s [00:52:36.558] if (!future$lazy) 1556s [00:52:36.558] future <- run(future) 1556s [00:52:36.558] invisible(future) 1556s [00:52:36.558] }), .cleanup = FALSE, .init = FALSE) 1556s [00:52:36.558] } 1556s [00:52:36.558] } 1556s [00:52:36.558] } 1556s [00:52:36.558] }) 1556s [00:52:36.558] if (TRUE) { 1556s [00:52:36.558] base::sink(type = "output", split = FALSE) 1556s [00:52:36.558] if (TRUE) { 1556s [00:52:36.558] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1556s [00:52:36.558] } 1556s [00:52:36.558] else { 1556s [00:52:36.558] ...future.result["stdout"] <- base::list(NULL) 1556s [00:52:36.558] } 1556s [00:52:36.558] base::close(...future.stdout) 1556s [00:52:36.558] ...future.stdout <- NULL 1556s [00:52:36.558] } 1556s [00:52:36.558] ...future.result$conditions <- ...future.conditions 1556s [00:52:36.558] ...future.result$finished <- base::Sys.time() 1556s [00:52:36.558] ...future.result 1556s [00:52:36.558] } 1556s [00:52:36.566] assign_globals() ... 1556s [00:52:36.566] List of 5 1556s [00:52:36.566] $ ...future.FUN :function (..., sep = "", collapse = ", ", lastCollapse = NULL, maxHead = if (missing(lastCollapse)) 3 else Inf, 1556s [00:52:36.566] maxTail = if (is.finite(maxHead)) 1 else Inf, abbreviate = "...") 1556s [00:52:36.566] $ future.call.arguments :List of 2 1556s [00:52:36.566] ..$ collapse: chr "; " 1556s [00:52:36.566] ..$ maxHead : int 3 1556s [00:52:36.566] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1556s [00:52:36.566] $ ...future.elements_ii :List of 1 1556s [00:52:36.566] ..$ a: Named chr [1:101] "hello" "1" "2" "3" ... 1556s [00:52:36.566] .. ..- attr(*, "names")= chr [1:101] "" "b1" "b2" "b3" ... 1556s [00:52:36.566] $ ...future.seeds_ii : NULL 1556s [00:52:36.566] $ ...future.globals.maxSize: NULL 1556s [00:52:36.566] - attr(*, "where")=List of 5 1556s [00:52:36.566] ..$ ...future.FUN : 1556s [00:52:36.566] ..$ future.call.arguments : 1556s [00:52:36.566] ..$ ...future.elements_ii : 1556s [00:52:36.566] ..$ ...future.seeds_ii : 1556s [00:52:36.566] ..$ ...future.globals.maxSize: 1556s [00:52:36.566] - attr(*, "resolved")= logi FALSE 1556s [00:52:36.566] - attr(*, "total_size")= num 71456 1556s [00:52:36.566] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1556s [00:52:36.566] - attr(*, "already-done")= logi TRUE 1556s [00:52:36.575] - copied ‘...future.FUN’ to environment 1556s [00:52:36.575] - copied ‘future.call.arguments’ to environment 1556s [00:52:36.575] - copied ‘...future.elements_ii’ to environment 1556s [00:52:36.575] - copied ‘...future.seeds_ii’ to environment 1556s [00:52:36.575] - copied ‘...future.globals.maxSize’ to environment 1556s [00:52:36.575] assign_globals() ... done 1556s [00:52:36.576] plan(): Setting new future strategy stack: 1556s [00:52:36.576] List of future strategies: 1556s [00:52:36.576] 1. sequential: 1556s [00:52:36.576] - args: function (..., envir = parent.frame()) 1556s [00:52:36.576] - tweaked: FALSE 1556s [00:52:36.576] - call: NULL 1556s [00:52:36.577] plan(): nbrOfWorkers() = 1 1556s [00:52:36.577] plan(): Setting new future strategy stack: 1556s [00:52:36.578] List of future strategies: 1556s [00:52:36.578] 1. multisession: 1556s [00:52:36.578] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1556s [00:52:36.578] - tweaked: FALSE 1556s [00:52:36.578] - call: plan(strategy) 1556s [00:52:36.581] plan(): nbrOfWorkers() = 1 1556s [00:52:36.581] SequentialFuture started (and completed) 1556s [00:52:36.582] - Launch lazy future ... done 1556s [00:52:36.582] run() for ‘SequentialFuture’ ... done 1556s [00:52:36.582] Created future: 1556s [00:52:36.582] SequentialFuture: 1556s [00:52:36.582] Label: ‘future_lapply-1’ 1556s [00:52:36.582] Expression: 1556s [00:52:36.582] { 1556s [00:52:36.582] do.call(function(...) { 1556s [00:52:36.582] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1556s [00:52:36.582] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1556s [00:52:36.582] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1556s [00:52:36.582] on.exit(options(oopts), add = TRUE) 1556s [00:52:36.582] } 1556s [00:52:36.582] { 1556s [00:52:36.582] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1556s [00:52:36.582] ...future.X_jj <- ...future.elements_ii[[jj]] 1556s [00:52:36.582] ...future.FUN(...future.X_jj, ...) 1556s [00:52:36.582] }) 1556s [00:52:36.582] } 1556s [00:52:36.582] }, args = future.call.arguments) 1556s [00:52:36.582] } 1556s [00:52:36.582] Lazy evaluation: FALSE 1556s [00:52:36.582] Asynchronous evaluation: FALSE 1556s [00:52:36.582] Local evaluation: TRUE 1556s [00:52:36.582] Environment: R_GlobalEnv 1556s [00:52:36.582] Capture standard output: TRUE 1556s [00:52:36.582] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1556s [00:52:36.582] Globals: 5 objects totaling 82.61 KiB (function ‘...future.FUN’ of 69.62 KiB, DotDotDotList ‘future.call.arguments’ of 168 bytes, list ‘...future.elements_ii’ of 12.83 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1556s [00:52:36.582] Packages: 1 packages (‘future’) 1556s [00:52:36.582] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1556s [00:52:36.582] Resolved: TRUE 1556s [00:52:36.582] Value: 136 bytes of class ‘list’ 1556s [00:52:36.582] Early signaling: FALSE 1556s [00:52:36.582] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1556s [00:52:36.582] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1556s [00:52:36.585] Chunk #1 of 1 ... DONE 1556s [00:52:36.585] Launching 1 futures (chunks) ... DONE 1556s [00:52:36.585] Resolving 1 futures (chunks) ... 1556s [00:52:36.585] resolve() on list ... 1556s [00:52:36.585] recursive: 0 1556s [00:52:36.586] length: 1 1556s [00:52:36.586] 1556s [00:52:36.586] resolved() for ‘SequentialFuture’ ... 1556s [00:52:36.586] - state: ‘finished’ 1556s [00:52:36.587] - run: TRUE 1556s [00:52:36.587] - result: ‘FutureResult’ 1556s [00:52:36.587] resolved() for ‘SequentialFuture’ ... done 1556s [00:52:36.587] Future #1 1556s [00:52:36.587] signalConditionsASAP(SequentialFuture, pos=1) ... 1556s [00:52:36.588] - nx: 1 1556s [00:52:36.588] - relay: TRUE 1556s [00:52:36.588] - stdout: TRUE 1556s [00:52:36.589] - signal: TRUE 1556s [00:52:36.589] - resignal: FALSE 1556s [00:52:36.589] - force: TRUE 1556s [00:52:36.589] - relayed: [n=1] FALSE 1556s [00:52:36.589] - queued futures: [n=1] FALSE 1556s [00:52:36.590] - until=1 1556s [00:52:36.590] - relaying element #1 1556s [00:52:36.590] - relayed: [n=1] TRUE 1556s [00:52:36.590] - queued futures: [n=1] TRUE 1556s [00:52:36.591] signalConditionsASAP(SequentialFuture, pos=1) ... done 1556s [00:52:36.591] length: 0 (resolved future 1) 1556s [00:52:36.591] Relaying remaining futures 1556s [00:52:36.591] signalConditionsASAP(NULL, pos=0) ... 1556s [00:52:36.592] - nx: 1 1556s [00:52:36.592] - relay: TRUE 1556s [00:52:36.592] - stdout: TRUE 1556s [00:52:36.592] - signal: TRUE 1556s [00:52:36.592] - resignal: FALSE 1556s List of 1 1556s $ y:List of 1 1556s ..$ a: chr "hello; 1; 2; ...; 100" 1556s [00:52:36.592] - force: TRUE 1556s [00:52:36.592] - relayed: [n=1] TRUE 1556s [00:52:36.593] - queued futures: [n=1] TRUE 1556s - flush all 1556s [00:52:36.593] - relayed: [n=1] TRUE 1556s [00:52:36.593] - queued futures: [n=1] TRUE 1556s [00:52:36.593] signalConditionsASAP(NULL, pos=0) ... done 1556s [00:52:36.593] resolve() on list ... DONE 1556s [00:52:36.594] - Number of value chunks collected: 1 1556s [00:52:36.594] Resolving 1 futures (chunks) ... DONE 1556s [00:52:36.594] Reducing values from 1 chunks ... 1556s [00:52:36.594] - Number of values collected after concatenation: 1 1556s [00:52:36.595] - Number of values expected: 1 1556s [00:52:36.595] Reducing values from 1 chunks ... DONE 1556s [00:52:36.595] future_lapply() ... DONE 1556s - future_lapply(x, FUN = listenv::listenv, ...) ... 1556s [00:52:36.597] future_lapply() ... 1556s [00:52:36.602] Number of chunks: 1 1556s [00:52:36.603] Index remapping (attribute 'ordering'): [n = 2] 1, 2 1556s [00:52:36.603] getGlobalsAndPackagesXApply() ... 1556s [00:52:36.603] - future.globals: TRUE 1556s [00:52:36.603] getGlobalsAndPackages() ... 1556s [00:52:36.604] Searching for globals... 1556s [00:52:36.606] - globals found: [4] ‘FUN’, ‘{’, ‘get’, ‘parent.env’ 1556s [00:52:36.606] Searching for globals ... DONE 1556s [00:52:36.606] Resolving globals: FALSE 1556s [00:52:36.607] The total size of the 1 globals is 4.85 KiB (4968 bytes) 1556s [00:52:36.607] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.85 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.85 KiB of class ‘function’) 1556s [00:52:36.608] - globals: [1] ‘FUN’ 1556s [00:52:36.608] - packages: [1] ‘listenv’ 1556s [00:52:36.608] getGlobalsAndPackages() ... DONE 1556s [00:52:36.608] - globals found/used: [n=1] ‘FUN’ 1556s [00:52:36.608] - needed namespaces: [n=1] ‘listenv’ 1556s [00:52:36.609] Finding globals ... DONE 1556s [00:52:36.609] - use_args: TRUE 1556s [00:52:36.609] - Getting '...' globals ... 1556s [00:52:36.610] resolve() on list ... 1556s [00:52:36.610] recursive: 0 1556s [00:52:36.610] length: 1 1556s [00:52:36.610] elements: ‘...’ 1556s [00:52:36.611] length: 0 (resolved future 1) 1556s [00:52:36.611] resolve() on list ... DONE 1556s [00:52:36.611] - '...' content: [n=0] 1556s [00:52:36.611] List of 1 1556s [00:52:36.611] $ ...: list() 1556s [00:52:36.611] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1556s [00:52:36.611] - attr(*, "where")=List of 1 1556s [00:52:36.611] ..$ ...: 1556s [00:52:36.611] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1556s [00:52:36.611] - attr(*, "resolved")= logi TRUE 1556s [00:52:36.611] - attr(*, "total_size")= num NA 1556s [00:52:36.618] - Getting '...' globals ... DONE 1556s [00:52:36.618] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1556s [00:52:36.618] List of 2 1556s [00:52:36.618] $ ...future.FUN:function (x, ...) 1556s [00:52:36.618] $ ... : list() 1556s [00:52:36.618] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1556s [00:52:36.618] - attr(*, "where")=List of 2 1556s [00:52:36.618] ..$ ...future.FUN: 1556s [00:52:36.618] ..$ ... : 1556s [00:52:36.618] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1556s [00:52:36.618] - attr(*, "resolved")= logi FALSE 1556s [00:52:36.618] - attr(*, "total_size")= num 4968 1556s [00:52:36.625] Packages to be attached in all futures: [n=1] ‘listenv’ 1556s [00:52:36.625] getGlobalsAndPackagesXApply() ... DONE 1556s [00:52:36.625] Number of futures (= number of chunks): 1 1556s [00:52:36.626] Launching 1 futures (chunks) ... 1556s [00:52:36.626] Chunk #1 of 1 ... 1556s [00:52:36.626] - Finding globals in 'X' for chunk #1 ... 1556s [00:52:36.626] getGlobalsAndPackages() ... 1556s [00:52:36.626] Searching for globals... 1556s [00:52:36.627] 1556s [00:52:36.627] Searching for globals ... DONE 1556s [00:52:36.627] - globals: [0] 1556s [00:52:36.627] getGlobalsAndPackages() ... DONE 1556s [00:52:36.628] + additional globals found: [n=0] 1556s [00:52:36.628] + additional namespaces needed: [n=0] 1556s [00:52:36.628] - Finding globals in 'X' for chunk #1 ... DONE 1556s [00:52:36.628] - seeds: 1556s [00:52:36.628] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1556s [00:52:36.628] getGlobalsAndPackages() ... 1556s [00:52:36.629] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1556s [00:52:36.629] Resolving globals: FALSE 1556s [00:52:36.629] Tweak future expression to call with '...' arguments ... 1556s [00:52:36.629] { 1556s [00:52:36.629] do.call(function(...) { 1556s [00:52:36.629] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1556s [00:52:36.629] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1556s [00:52:36.629] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1556s [00:52:36.629] on.exit(options(oopts), add = TRUE) 1556s [00:52:36.629] } 1556s [00:52:36.629] { 1556s [00:52:36.629] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1556s [00:52:36.629] ...future.X_jj <- ...future.elements_ii[[jj]] 1556s [00:52:36.629] ...future.FUN(...future.X_jj, ...) 1556s [00:52:36.629] }) 1556s [00:52:36.629] } 1556s [00:52:36.629] }, args = future.call.arguments) 1556s [00:52:36.629] } 1556s [00:52:36.630] Tweak future expression to call with '...' arguments ... DONE 1556s [00:52:36.631] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1556s [00:52:36.632] - packages: [1] ‘listenv’ 1556s [00:52:36.632] getGlobalsAndPackages() ... DONE 1556s [00:52:36.633] run() for ‘Future’ ... 1556s [00:52:36.633] - state: ‘created’ 1556s [00:52:36.633] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1556s [00:52:36.638] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1556s [00:52:36.638] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1556s [00:52:36.639] - Field: ‘label’ 1556s [00:52:36.639] - Field: ‘local’ 1556s [00:52:36.639] - Field: ‘owner’ 1556s [00:52:36.640] - Field: ‘envir’ 1556s [00:52:36.640] - Field: ‘packages’ 1556s [00:52:36.640] - Field: ‘gc’ 1556s [00:52:36.640] - Field: ‘conditions’ 1556s [00:52:36.640] - Field: ‘expr’ 1556s [00:52:36.640] - Field: ‘uuid’ 1556s [00:52:36.641] - Field: ‘seed’ 1556s [00:52:36.641] - Field: ‘version’ 1556s [00:52:36.642] - Field: ‘result’ 1556s [00:52:36.642] - Field: ‘asynchronous’ 1556s [00:52:36.642] - Field: ‘calls’ 1556s [00:52:36.643] - Field: ‘globals’ 1556s [00:52:36.643] - Field: ‘stdout’ 1556s [00:52:36.643] - Field: ‘earlySignal’ 1556s [00:52:36.643] - Field: ‘lazy’ 1556s [00:52:36.643] - Field: ‘state’ 1556s [00:52:36.644] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1556s [00:52:36.644] - Launch lazy future ... 1556s [00:52:36.645] Packages needed by the future expression (n = 1): ‘listenv’ 1556s [00:52:36.645] Packages needed by future strategies (n = 0): 1556s [00:52:36.646] { 1556s [00:52:36.646] { 1556s [00:52:36.646] { 1556s [00:52:36.646] ...future.startTime <- base::Sys.time() 1556s [00:52:36.646] { 1556s [00:52:36.646] { 1556s [00:52:36.646] { 1556s [00:52:36.646] { 1556s [00:52:36.646] base::local({ 1556s [00:52:36.646] has_future <- base::requireNamespace("future", 1556s [00:52:36.646] quietly = TRUE) 1556s [00:52:36.646] if (has_future) { 1556s [00:52:36.646] ns <- base::getNamespace("future") 1556s [00:52:36.646] version <- ns[[".package"]][["version"]] 1556s [00:52:36.646] if (is.null(version)) 1556s [00:52:36.646] version <- utils::packageVersion("future") 1556s [00:52:36.646] } 1556s [00:52:36.646] else { 1556s [00:52:36.646] version <- NULL 1556s [00:52:36.646] } 1556s [00:52:36.646] if (!has_future || version < "1.8.0") { 1556s [00:52:36.646] info <- base::c(r_version = base::gsub("R version ", 1556s [00:52:36.646] "", base::R.version$version.string), 1556s [00:52:36.646] platform = base::sprintf("%s (%s-bit)", 1556s [00:52:36.646] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1556s [00:52:36.646] os = base::paste(base::Sys.info()[base::c("sysname", 1556s [00:52:36.646] "release", "version")], collapse = " "), 1556s [00:52:36.646] hostname = base::Sys.info()[["nodename"]]) 1556s [00:52:36.646] info <- base::sprintf("%s: %s", base::names(info), 1556s [00:52:36.646] info) 1556s [00:52:36.646] info <- base::paste(info, collapse = "; ") 1556s [00:52:36.646] if (!has_future) { 1556s [00:52:36.646] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1556s [00:52:36.646] info) 1556s [00:52:36.646] } 1556s [00:52:36.646] else { 1556s [00:52:36.646] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1556s [00:52:36.646] info, version) 1556s [00:52:36.646] } 1556s [00:52:36.646] base::stop(msg) 1556s [00:52:36.646] } 1556s [00:52:36.646] }) 1556s [00:52:36.646] } 1556s [00:52:36.646] base::local({ 1556s [00:52:36.646] for (pkg in "listenv") { 1556s [00:52:36.646] base::loadNamespace(pkg) 1556s [00:52:36.646] base::library(pkg, character.only = TRUE) 1556s [00:52:36.646] } 1556s [00:52:36.646] }) 1556s [00:52:36.646] } 1556s [00:52:36.646] options(future.plan = NULL) 1556s [00:52:36.646] Sys.unsetenv("R_FUTURE_PLAN") 1556s [00:52:36.646] future::plan("default", .cleanup = FALSE, .init = FALSE) 1556s [00:52:36.646] } 1556s [00:52:36.646] ...future.workdir <- getwd() 1556s [00:52:36.646] } 1556s [00:52:36.646] ...future.oldOptions <- base::as.list(base::.Options) 1556s [00:52:36.646] ...future.oldEnvVars <- base::Sys.getenv() 1556s [00:52:36.646] } 1556s [00:52:36.646] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1556s [00:52:36.646] future.globals.maxSize = NULL, future.globals.method = NULL, 1556s [00:52:36.646] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1556s [00:52:36.646] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1556s [00:52:36.646] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1556s [00:52:36.646] future.stdout.windows.reencode = NULL, width = 80L) 1556s [00:52:36.646] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1556s [00:52:36.646] base::names(...future.oldOptions)) 1556s [00:52:36.646] } 1556s [00:52:36.646] if (FALSE) { 1556s [00:52:36.646] } 1556s [00:52:36.646] else { 1556s [00:52:36.646] if (TRUE) { 1556s [00:52:36.646] ...future.stdout <- base::rawConnection(base::raw(0L), 1556s [00:52:36.646] open = "w") 1556s [00:52:36.646] } 1556s [00:52:36.646] else { 1556s [00:52:36.646] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1556s [00:52:36.646] windows = "NUL", "/dev/null"), open = "w") 1556s [00:52:36.646] } 1556s [00:52:36.646] base::sink(...future.stdout, type = "output", split = FALSE) 1556s [00:52:36.646] base::on.exit(if (!base::is.null(...future.stdout)) { 1556s [00:52:36.646] base::sink(type = "output", split = FALSE) 1556s [00:52:36.646] base::close(...future.stdout) 1556s [00:52:36.646] }, add = TRUE) 1556s [00:52:36.646] } 1556s [00:52:36.646] ...future.frame <- base::sys.nframe() 1556s [00:52:36.646] ...future.conditions <- base::list() 1556s [00:52:36.646] ...future.rng <- base::globalenv()$.Random.seed 1556s [00:52:36.646] if (FALSE) { 1556s [00:52:36.646] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1556s [00:52:36.646] "...future.value", "...future.globalenv.names", ".Random.seed") 1556s [00:52:36.646] } 1556s [00:52:36.646] ...future.result <- base::tryCatch({ 1556s [00:52:36.646] base::withCallingHandlers({ 1556s [00:52:36.646] ...future.value <- base::withVisible(base::local({ 1556s [00:52:36.646] do.call(function(...) { 1556s [00:52:36.646] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1556s [00:52:36.646] if (!identical(...future.globals.maxSize.org, 1556s [00:52:36.646] ...future.globals.maxSize)) { 1556s [00:52:36.646] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1556s [00:52:36.646] on.exit(options(oopts), add = TRUE) 1556s [00:52:36.646] } 1556s [00:52:36.646] { 1556s [00:52:36.646] lapply(seq_along(...future.elements_ii), 1556s [00:52:36.646] FUN = function(jj) { 1556s [00:52:36.646] ...future.X_jj <- ...future.elements_ii[[jj]] 1556s [00:52:36.646] ...future.FUN(...future.X_jj, ...) 1556s [00:52:36.646] }) 1556s [00:52:36.646] } 1556s [00:52:36.646] }, args = future.call.arguments) 1556s [00:52:36.646] })) 1556s [00:52:36.646] future::FutureResult(value = ...future.value$value, 1556s [00:52:36.646] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1556s [00:52:36.646] ...future.rng), globalenv = if (FALSE) 1556s [00:52:36.646] list(added = base::setdiff(base::names(base::.GlobalEnv), 1556s [00:52:36.646] ...future.globalenv.names)) 1556s [00:52:36.646] else NULL, started = ...future.startTime, version = "1.8") 1556s [00:52:36.646] }, condition = base::local({ 1556s [00:52:36.646] c <- base::c 1556s [00:52:36.646] inherits <- base::inherits 1556s [00:52:36.646] invokeRestart <- base::invokeRestart 1556s [00:52:36.646] length <- base::length 1556s [00:52:36.646] list <- base::list 1556s [00:52:36.646] seq.int <- base::seq.int 1556s [00:52:36.646] signalCondition <- base::signalCondition 1556s [00:52:36.646] sys.calls <- base::sys.calls 1556s [00:52:36.646] `[[` <- base::`[[` 1556s [00:52:36.646] `+` <- base::`+` 1556s [00:52:36.646] `<<-` <- base::`<<-` 1556s [00:52:36.646] sysCalls <- function(calls = sys.calls(), from = 1L) { 1556s [00:52:36.646] calls[seq.int(from = from + 12L, to = length(calls) - 1556s [00:52:36.646] 3L)] 1556s [00:52:36.646] } 1556s [00:52:36.646] function(cond) { 1556s [00:52:36.646] is_error <- inherits(cond, "error") 1556s [00:52:36.646] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1556s [00:52:36.646] NULL) 1556s [00:52:36.646] if (is_error) { 1556s [00:52:36.646] sessionInformation <- function() { 1556s [00:52:36.646] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1556s [00:52:36.646] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1556s [00:52:36.646] search = base::search(), system = base::Sys.info()) 1556s [00:52:36.646] } 1556s [00:52:36.646] ...future.conditions[[length(...future.conditions) + 1556s [00:52:36.646] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1556s [00:52:36.646] cond$call), session = sessionInformation(), 1556s [00:52:36.646] timestamp = base::Sys.time(), signaled = 0L) 1556s [00:52:36.646] signalCondition(cond) 1556s [00:52:36.646] } 1556s [00:52:36.646] else if (!ignore && TRUE && inherits(cond, c("condition", 1556s [00:52:36.646] "immediateCondition"))) { 1556s [00:52:36.646] signal <- TRUE && inherits(cond, "immediateCondition") 1556s [00:52:36.646] ...future.conditions[[length(...future.conditions) + 1556s [00:52:36.646] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1556s [00:52:36.646] if (TRUE && !signal) { 1556s [00:52:36.646] muffleCondition <- function (cond, pattern = "^muffle") 1556s [00:52:36.646] { 1556s [00:52:36.646] inherits <- base::inherits 1556s [00:52:36.646] invokeRestart <- base::invokeRestart 1556s [00:52:36.646] is.null <- base::is.null 1556s [00:52:36.646] muffled <- FALSE 1556s [00:52:36.646] if (inherits(cond, "message")) { 1556s [00:52:36.646] muffled <- grepl(pattern, "muffleMessage") 1556s [00:52:36.646] if (muffled) 1556s [00:52:36.646] invokeRestart("muffleMessage") 1556s [00:52:36.646] } 1556s [00:52:36.646] else if (inherits(cond, "warning")) { 1556s [00:52:36.646] muffled <- grepl(pattern, "muffleWarning") 1556s [00:52:36.646] if (muffled) 1556s [00:52:36.646] invokeRestart("muffleWarning") 1556s [00:52:36.646] } 1556s [00:52:36.646] else if (inherits(cond, "condition")) { 1556s [00:52:36.646] if (!is.null(pattern)) { 1556s [00:52:36.646] computeRestarts <- base::computeRestarts 1556s [00:52:36.646] grepl <- base::grepl 1556s [00:52:36.646] restarts <- computeRestarts(cond) 1556s [00:52:36.646] for (restart in restarts) { 1556s [00:52:36.646] name <- restart$name 1556s [00:52:36.646] if (is.null(name)) 1556s [00:52:36.646] next 1556s [00:52:36.646] if (!grepl(pattern, name)) 1556s [00:52:36.646] next 1556s [00:52:36.646] invokeRestart(restart) 1556s [00:52:36.646] muffled <- TRUE 1556s [00:52:36.646] break 1556s [00:52:36.646] } 1556s [00:52:36.646] } 1556s [00:52:36.646] } 1556s [00:52:36.646] invisible(muffled) 1556s [00:52:36.646] } 1556s [00:52:36.646] muffleCondition(cond, pattern = "^muffle") 1556s [00:52:36.646] } 1556s [00:52:36.646] } 1556s [00:52:36.646] else { 1556s [00:52:36.646] if (TRUE) { 1556s [00:52:36.646] muffleCondition <- function (cond, pattern = "^muffle") 1556s [00:52:36.646] { 1556s [00:52:36.646] inherits <- base::inherits 1556s [00:52:36.646] invokeRestart <- base::invokeRestart 1556s [00:52:36.646] is.null <- base::is.null 1556s [00:52:36.646] muffled <- FALSE 1556s [00:52:36.646] if (inherits(cond, "message")) { 1556s [00:52:36.646] muffled <- grepl(pattern, "muffleMessage") 1556s [00:52:36.646] if (muffled) 1556s [00:52:36.646] invokeRestart("muffleMessage") 1556s [00:52:36.646] } 1556s [00:52:36.646] else if (inherits(cond, "warning")) { 1556s [00:52:36.646] muffled <- grepl(pattern, "muffleWarning") 1556s [00:52:36.646] if (muffled) 1556s [00:52:36.646] invokeRestart("muffleWarning") 1556s [00:52:36.646] } 1556s [00:52:36.646] else if (inherits(cond, "condition")) { 1556s [00:52:36.646] if (!is.null(pattern)) { 1556s [00:52:36.646] computeRestarts <- base::computeRestarts 1556s [00:52:36.646] grepl <- base::grepl 1556s [00:52:36.646] restarts <- computeRestarts(cond) 1556s [00:52:36.646] for (restart in restarts) { 1556s [00:52:36.646] name <- restart$name 1556s [00:52:36.646] if (is.null(name)) 1556s [00:52:36.646] next 1556s [00:52:36.646] if (!grepl(pattern, name)) 1556s [00:52:36.646] next 1556s [00:52:36.646] invokeRestart(restart) 1556s [00:52:36.646] muffled <- TRUE 1556s [00:52:36.646] break 1556s [00:52:36.646] } 1556s [00:52:36.646] } 1556s [00:52:36.646] } 1556s [00:52:36.646] invisible(muffled) 1556s [00:52:36.646] } 1556s [00:52:36.646] muffleCondition(cond, pattern = "^muffle") 1556s [00:52:36.646] } 1556s [00:52:36.646] } 1556s [00:52:36.646] } 1556s [00:52:36.646] })) 1556s [00:52:36.646] }, error = function(ex) { 1556s [00:52:36.646] base::structure(base::list(value = NULL, visible = NULL, 1556s [00:52:36.646] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1556s [00:52:36.646] ...future.rng), started = ...future.startTime, 1556s [00:52:36.646] finished = Sys.time(), session_uuid = NA_character_, 1556s [00:52:36.646] version = "1.8"), class = "FutureResult") 1556s [00:52:36.646] }, finally = { 1556s [00:52:36.646] if (!identical(...future.workdir, getwd())) 1556s [00:52:36.646] setwd(...future.workdir) 1556s [00:52:36.646] { 1556s [00:52:36.646] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1556s [00:52:36.646] ...future.oldOptions$nwarnings <- NULL 1556s [00:52:36.646] } 1556s [00:52:36.646] base::options(...future.oldOptions) 1556s [00:52:36.646] if (.Platform$OS.type == "windows") { 1556s [00:52:36.646] old_names <- names(...future.oldEnvVars) 1556s [00:52:36.646] envs <- base::Sys.getenv() 1556s [00:52:36.646] names <- names(envs) 1556s [00:52:36.646] common <- intersect(names, old_names) 1556s [00:52:36.646] added <- setdiff(names, old_names) 1556s [00:52:36.646] removed <- setdiff(old_names, names) 1556s [00:52:36.646] changed <- common[...future.oldEnvVars[common] != 1556s [00:52:36.646] envs[common]] 1556s [00:52:36.646] NAMES <- toupper(changed) 1556s [00:52:36.646] args <- list() 1556s [00:52:36.646] for (kk in seq_along(NAMES)) { 1556s [00:52:36.646] name <- changed[[kk]] 1556s [00:52:36.646] NAME <- NAMES[[kk]] 1556s [00:52:36.646] if (name != NAME && is.element(NAME, old_names)) 1556s [00:52:36.646] next 1556s [00:52:36.646] args[[name]] <- ...future.oldEnvVars[[name]] 1556s [00:52:36.646] } 1556s [00:52:36.646] NAMES <- toupper(added) 1556s [00:52:36.646] for (kk in seq_along(NAMES)) { 1556s [00:52:36.646] name <- added[[kk]] 1556s [00:52:36.646] NAME <- NAMES[[kk]] 1556s [00:52:36.646] if (name != NAME && is.element(NAME, old_names)) 1556s [00:52:36.646] next 1556s [00:52:36.646] args[[name]] <- "" 1556s [00:52:36.646] } 1556s [00:52:36.646] NAMES <- toupper(removed) 1556s [00:52:36.646] for (kk in seq_along(NAMES)) { 1556s [00:52:36.646] name <- removed[[kk]] 1556s [00:52:36.646] NAME <- NAMES[[kk]] 1556s [00:52:36.646] if (name != NAME && is.element(NAME, old_names)) 1556s [00:52:36.646] next 1556s [00:52:36.646] args[[name]] <- ...future.oldEnvVars[[name]] 1556s [00:52:36.646] } 1556s [00:52:36.646] if (length(args) > 0) 1556s [00:52:36.646] base::do.call(base::Sys.setenv, args = args) 1556s [00:52:36.646] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1556s [00:52:36.646] } 1556s [00:52:36.646] else { 1556s [00:52:36.646] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1556s [00:52:36.646] } 1556s [00:52:36.646] { 1556s [00:52:36.646] if (base::length(...future.futureOptionsAdded) > 1556s [00:52:36.646] 0L) { 1556s [00:52:36.646] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1556s [00:52:36.646] base::names(opts) <- ...future.futureOptionsAdded 1556s [00:52:36.646] base::options(opts) 1556s [00:52:36.646] } 1556s [00:52:36.646] { 1556s [00:52:36.646] { 1556s [00:52:36.646] NULL 1556s [00:52:36.646] RNGkind("Mersenne-Twister") 1556s [00:52:36.646] base::rm(list = ".Random.seed", envir = base::globalenv(), 1556s [00:52:36.646] inherits = FALSE) 1556s [00:52:36.646] } 1556s [00:52:36.646] options(future.plan = NULL) 1556s [00:52:36.646] if (is.na(NA_character_)) 1556s [00:52:36.646] Sys.unsetenv("R_FUTURE_PLAN") 1556s [00:52:36.646] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1556s [00:52:36.646] future::plan(list(function (..., workers = availableCores(), 1556s [00:52:36.646] lazy = FALSE, rscript_libs = .libPaths(), 1556s [00:52:36.646] envir = parent.frame()) 1556s [00:52:36.646] { 1556s [00:52:36.646] if (is.function(workers)) 1556s [00:52:36.646] workers <- workers() 1556s [00:52:36.646] workers <- structure(as.integer(workers), 1556s [00:52:36.646] class = class(workers)) 1556s [00:52:36.646] stop_if_not(length(workers) == 1, is.finite(workers), 1556s [00:52:36.646] workers >= 1) 1556s [00:52:36.646] if (workers == 1L && !inherits(workers, "AsIs")) { 1556s [00:52:36.646] return(sequential(..., lazy = TRUE, envir = envir)) 1556s [00:52:36.646] } 1556s [00:52:36.646] future <- MultisessionFuture(..., workers = workers, 1556s [00:52:36.646] lazy = lazy, rscript_libs = rscript_libs, 1556s [00:52:36.646] envir = envir) 1556s [00:52:36.646] if (!future$lazy) 1556s [00:52:36.646] future <- run(future) 1556s [00:52:36.646] invisible(future) 1556s [00:52:36.646] }), .cleanup = FALSE, .init = FALSE) 1556s [00:52:36.646] } 1556s [00:52:36.646] } 1556s [00:52:36.646] } 1556s [00:52:36.646] }) 1556s [00:52:36.646] if (TRUE) { 1556s [00:52:36.646] base::sink(type = "output", split = FALSE) 1556s [00:52:36.646] if (TRUE) { 1556s [00:52:36.646] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1556s [00:52:36.646] } 1556s [00:52:36.646] else { 1556s [00:52:36.646] ...future.result["stdout"] <- base::list(NULL) 1556s [00:52:36.646] } 1556s [00:52:36.646] base::close(...future.stdout) 1556s [00:52:36.646] ...future.stdout <- NULL 1556s [00:52:36.646] } 1556s [00:52:36.646] ...future.result$conditions <- ...future.conditions 1556s [00:52:36.646] ...future.result$finished <- base::Sys.time() 1556s [00:52:36.646] ...future.result 1556s [00:52:36.646] } 1556s [00:52:36.651] assign_globals() ... 1556s [00:52:36.652] List of 5 1556s [00:52:36.652] $ ...future.FUN :function (x, ...) 1556s [00:52:36.652] $ future.call.arguments : list() 1556s [00:52:36.652] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1556s [00:52:36.652] $ ...future.elements_ii :List of 2 1556s [00:52:36.652] ..$ a:Classes 'listenv', 'environment' 1556s [00:52:36.652] ..$ b:Classes 'listenv', 'environment' 1556s [00:52:36.652] $ ...future.seeds_ii : NULL 1556s [00:52:36.652] $ ...future.globals.maxSize: NULL 1556s [00:52:36.652] - attr(*, "where")=List of 5 1556s [00:52:36.652] ..$ ...future.FUN : 1556s [00:52:36.652] ..$ future.call.arguments : 1556s [00:52:36.652] ..$ ...future.elements_ii : 1556s [00:52:36.652] ..$ ...future.seeds_ii : 1556s [00:52:36.652] ..$ ...future.globals.maxSize: 1556s [00:52:36.652] - attr(*, "resolved")= logi FALSE 1556s [00:52:36.652] - attr(*, "total_size")= num 4968 1556s [00:52:36.652] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1556s [00:52:36.652] - attr(*, "already-done")= logi TRUE 1556s [00:52:36.664] - copied ‘...future.FUN’ to environment 1556s [00:52:36.665] - copied ‘future.call.arguments’ to environment 1556s [00:52:36.667] - copied ‘...future.elements_ii’ to environment 1556s [00:52:36.667] - copied ‘...future.seeds_ii’ to environment 1556s [00:52:36.667] - copied ‘...future.globals.maxSize’ to environment 1556s [00:52:36.667] assign_globals() ... done 1556s [00:52:36.668] plan(): Setting new future strategy stack: 1556s [00:52:36.668] List of future strategies: 1556s [00:52:36.668] 1. sequential: 1556s [00:52:36.668] - args: function (..., envir = parent.frame()) 1556s [00:52:36.668] - tweaked: FALSE 1556s [00:52:36.668] - call: NULL 1556s [00:52:36.669] plan(): nbrOfWorkers() = 1 1556s [00:52:36.670] plan(): Setting new future strategy stack: 1556s [00:52:36.670] List of future strategies: 1556s [00:52:36.670] 1. multisession: 1556s [00:52:36.670] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1556s [00:52:36.670] - tweaked: FALSE 1556s [00:52:36.670] - call: plan(strategy) 1556s [00:52:36.674] plan(): nbrOfWorkers() = 1 1556s [00:52:36.674] SequentialFuture started (and completed) 1556s [00:52:36.674] - Launch lazy future ... done 1556s [00:52:36.674] run() for ‘SequentialFuture’ ... done 1556s [00:52:36.675] Created future: 1556s [00:52:36.675] SequentialFuture: 1556s [00:52:36.675] Label: ‘future_lapply-1’ 1556s [00:52:36.675] Expression: 1556s [00:52:36.675] { 1556s [00:52:36.675] do.call(function(...) { 1556s [00:52:36.675] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1556s [00:52:36.675] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1556s [00:52:36.675] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1556s [00:52:36.675] on.exit(options(oopts), add = TRUE) 1556s [00:52:36.675] } 1556s [00:52:36.675] { 1556s [00:52:36.675] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1556s [00:52:36.675] ...future.X_jj <- ...future.elements_ii[[jj]] 1556s [00:52:36.675] ...future.FUN(...future.X_jj, ...) 1556s [00:52:36.675] }) 1556s [00:52:36.675] } 1556s [00:52:36.675] }, args = future.call.arguments) 1556s [00:52:36.675] } 1556s [00:52:36.675] Lazy evaluation: FALSE 1556s [00:52:36.675] Asynchronous evaluation: FALSE 1556s [00:52:36.675] Local evaluation: TRUE 1556s [00:52:36.675] Environment: R_GlobalEnv 1556s [00:52:36.675] Capture standard output: TRUE 1556s [00:52:36.675] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1556s [00:52:36.675] Globals: 5 objects totaling 17.90 KiB (function ‘...future.FUN’ of 4.85 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 13.05 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1556s [00:52:36.675] Packages: 1 packages (‘listenv’) 1556s [00:52:36.675] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1556s [00:52:36.675] Resolved: TRUE 1556s [00:52:36.675] Value: 800 bytes of class ‘list’ 1556s [00:52:36.675] Early signaling: FALSE 1556s [00:52:36.675] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1556s [00:52:36.675] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1556s [00:52:36.677] Chunk #1 of 1 ... DONE 1556s [00:52:36.677] Launching 1 futures (chunks) ... DONE 1556s [00:52:36.677] Resolving 1 futures (chunks) ... 1556s [00:52:36.677] resolve() on list ... 1556s [00:52:36.678] recursive: 0 1556s [00:52:36.678] length: 1 1556s [00:52:36.678] 1556s [00:52:36.678] resolved() for ‘SequentialFuture’ ... 1556s [00:52:36.678] - state: ‘finished’ 1556s [00:52:36.678] - run: TRUE 1556s [00:52:36.679] - result: ‘FutureResult’ 1556s [00:52:36.679] resolved() for ‘SequentialFuture’ ... done 1556s [00:52:36.680] Future #1 1556s [00:52:36.680] signalConditionsASAP(SequentialFuture, pos=1) ... 1556s [00:52:36.680] - nx: 1 1556s [00:52:36.680] - relay: TRUE 1556s [00:52:36.681] - stdout: TRUE 1556s [00:52:36.681] - signal: TRUE 1556s [00:52:36.681] - resignal: FALSE 1556s [00:52:36.681] - force: TRUE 1556s [00:52:36.681] - relayed: [n=1] FALSE 1556s [00:52:36.681] - queued futures: [n=1] FALSE 1556s [00:52:36.682] - until=1 1556s [00:52:36.682] - relaying element #1 1556s [00:52:36.682] - relayed: [n=1] TRUE 1556s [00:52:36.682] - queued futures: [n=1] TRUE 1556s [00:52:36.682] signalConditionsASAP(SequentialFuture, pos=1) ... done 1556s [00:52:36.683] length: 0 (resolved future 1) 1556s [00:52:36.683] Relaying remaining futures 1556s [00:52:36.683] signalConditionsASAP(NULL, pos=0) ... 1556s [00:52:36.683] - nx: 1 1556s [00:52:36.683] - relay: TRUE 1556s [00:52:36.683] - stdout: TRUE 1556s [00:52:36.683] - signal: TRUE 1556s [00:52:36.684] - resignal: FALSE 1556s [00:52:36.684] - force: TRUE 1556s [00:52:36.684] - relayed: [n=1] TRUE 1556s [00:52:36.684] - queued futures: [n=1] TRUE 1556s - flush all 1556s [00:52:36.684] - relayed: [n=1] TRUE 1556s [00:52:36.684] - queued futures: [n=1] TRUE 1556s [00:52:36.685] signalConditionsASAP(NULL, pos=0) ... done 1556s [00:52:36.685] resolve() on list ... DONE 1556s [00:52:36.685] - Number of value chunks collected: 1 1556s [00:52:36.685] Resolving 1 futures (chunks) ... DONE 1556s [00:52:36.685] Reducing values from 1 chunks ... 1556s [00:52:36.685] - Number of values collected after concatenation: 2 1556s [00:52:36.686] - Number of values expected: 2 1556s [00:52:36.686] Reverse index remapping (attribute 'ordering'): [n = 2] 1, 2 1556s [00:52:36.686] Reducing values from 1 chunks ... DONE 1556s List of 1 1556s $ y:List of 2 1556s ..$ a: Named chr "A" 1556s .. ..- attr(*, "names")= chr "A" 1556s ..$ b: Named chr [1:2] "A" "B" 1556s .. ..- attr(*, "names")= chr [1:2] "A" "B" 1556s [00:52:36.686] future_lapply() ... DONE 1556s - future_lapply(x, FUN = vector, ...) ... 1556s [00:52:36.690] future_lapply() ... 1556s [00:52:36.694] Number of chunks: 1 1556s [00:52:36.695] Index remapping (attribute 'ordering'): [n = 4] 4, 3, 2, 1 1556s [00:52:36.695] getGlobalsAndPackagesXApply() ... 1556s [00:52:36.697] - future.globals: TRUE 1556s [00:52:36.698] getGlobalsAndPackages() ... 1556s [00:52:36.698] Searching for globals... 1556s [00:52:36.700] - globals found: [2] ‘FUN’, ‘.Internal’ 1556s [00:52:36.700] Searching for globals ... DONE 1556s [00:52:36.700] Resolving globals: FALSE 1556s [00:52:36.701] The total size of the 1 globals is 2.13 KiB (2184 bytes) 1556s [00:52:36.701] The total size of the 1 globals exported for future expression (‘FUN(length = 2L)’) is 2.13 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (2.13 KiB of class ‘function’) 1556s [00:52:36.701] - globals: [1] ‘FUN’ 1556s [00:52:36.702] 1556s [00:52:36.702] getGlobalsAndPackages() ... DONE 1556s [00:52:36.702] - globals found/used: [n=1] ‘FUN’ 1556s [00:52:36.702] - needed namespaces: [n=0] 1556s [00:52:36.702] Finding globals ... DONE 1556s [00:52:36.702] - use_args: TRUE 1556s [00:52:36.702] - Getting '...' globals ... 1556s [00:52:36.703] resolve() on list ... 1556s [00:52:36.703] recursive: 0 1556s [00:52:36.703] length: 1 1556s [00:52:36.703] elements: ‘...’ 1556s [00:52:36.703] length: 0 (resolved future 1) 1556s [00:52:36.703] resolve() on list ... DONE 1556s [00:52:36.704] - '...' content: [n=1] ‘length’ 1556s [00:52:36.704] List of 1 1556s [00:52:36.704] $ ...:List of 1 1556s [00:52:36.704] ..$ length: int 2 1556s [00:52:36.704] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1556s [00:52:36.704] - attr(*, "where")=List of 1 1556s [00:52:36.704] ..$ ...: 1556s [00:52:36.704] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1556s [00:52:36.704] - attr(*, "resolved")= logi TRUE 1556s [00:52:36.704] - attr(*, "total_size")= num NA 1556s [00:52:36.708] - Getting '...' globals ... DONE 1556s [00:52:36.708] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1556s [00:52:36.708] List of 2 1556s [00:52:36.708] $ ...future.FUN:function (mode = "logical", length = 0L) 1556s [00:52:36.708] $ ... :List of 1 1556s [00:52:36.708] ..$ length: int 2 1556s [00:52:36.708] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1556s [00:52:36.708] - attr(*, "where")=List of 2 1556s [00:52:36.708] ..$ ...future.FUN: 1556s [00:52:36.708] ..$ ... : 1556s [00:52:36.708] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1556s [00:52:36.708] - attr(*, "resolved")= logi FALSE 1556s [00:52:36.708] - attr(*, "total_size")= num 2240 1556s [00:52:36.724] Packages to be attached in all futures: [n=0] 1556s [00:52:36.724] getGlobalsAndPackagesXApply() ... DONE 1556s [00:52:36.724] Number of futures (= number of chunks): 1 1556s [00:52:36.725] Launching 1 futures (chunks) ... 1556s [00:52:36.725] Chunk #1 of 1 ... 1556s [00:52:36.725] - Finding globals in 'X' for chunk #1 ... 1556s [00:52:36.725] getGlobalsAndPackages() ... 1556s [00:52:36.725] Searching for globals... 1556s [00:52:36.726] 1556s [00:52:36.726] Searching for globals ... DONE 1556s [00:52:36.726] - globals: [0] 1556s [00:52:36.726] getGlobalsAndPackages() ... DONE 1556s [00:52:36.726] + additional globals found: [n=0] 1556s [00:52:36.727] + additional namespaces needed: [n=0] 1556s [00:52:36.727] - Finding globals in 'X' for chunk #1 ... DONE 1556s [00:52:36.727] - seeds: 1556s [00:52:36.727] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1556s [00:52:36.727] getGlobalsAndPackages() ... 1556s [00:52:36.727] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1556s [00:52:36.728] Resolving globals: FALSE 1556s [00:52:36.728] Tweak future expression to call with '...' arguments ... 1556s [00:52:36.728] { 1556s [00:52:36.728] do.call(function(...) { 1556s [00:52:36.728] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1556s [00:52:36.728] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1556s [00:52:36.728] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1556s [00:52:36.728] on.exit(options(oopts), add = TRUE) 1556s [00:52:36.728] } 1556s [00:52:36.728] { 1556s [00:52:36.728] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1556s [00:52:36.728] ...future.X_jj <- ...future.elements_ii[[jj]] 1556s [00:52:36.728] ...future.FUN(...future.X_jj, ...) 1556s [00:52:36.728] }) 1556s [00:52:36.728] } 1556s [00:52:36.728] }, args = future.call.arguments) 1556s [00:52:36.728] } 1556s [00:52:36.728] Tweak future expression to call with '...' arguments ... DONE 1556s [00:52:36.729] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1556s [00:52:36.729] 1556s [00:52:36.729] getGlobalsAndPackages() ... DONE 1556s [00:52:36.730] run() for ‘Future’ ... 1556s [00:52:36.730] - state: ‘created’ 1556s [00:52:36.730] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1556s [00:52:36.735] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1556s [00:52:36.735] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1556s [00:52:36.735] - Field: ‘label’ 1556s [00:52:36.735] - Field: ‘local’ 1556s [00:52:36.736] - Field: ‘owner’ 1556s [00:52:36.736] - Field: ‘envir’ 1556s [00:52:36.736] - Field: ‘packages’ 1556s [00:52:36.736] - Field: ‘gc’ 1556s [00:52:36.736] - Field: ‘conditions’ 1556s [00:52:36.736] - Field: ‘expr’ 1556s [00:52:36.736] - Field: ‘uuid’ 1556s [00:52:36.737] - Field: ‘seed’ 1556s [00:52:36.737] - Field: ‘version’ 1556s [00:52:36.737] - Field: ‘result’ 1556s [00:52:36.737] - Field: ‘asynchronous’ 1556s [00:52:36.737] - Field: ‘calls’ 1556s [00:52:36.737] - Field: ‘globals’ 1556s [00:52:36.738] - Field: ‘stdout’ 1556s [00:52:36.738] - Field: ‘earlySignal’ 1556s [00:52:36.738] - Field: ‘lazy’ 1556s [00:52:36.738] - Field: ‘state’ 1556s [00:52:36.738] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1556s [00:52:36.738] - Launch lazy future ... 1556s [00:52:36.739] Packages needed by the future expression (n = 0): 1556s [00:52:36.739] Packages needed by future strategies (n = 0): 1556s [00:52:36.740] { 1556s [00:52:36.740] { 1556s [00:52:36.740] { 1556s [00:52:36.740] ...future.startTime <- base::Sys.time() 1556s [00:52:36.740] { 1556s [00:52:36.740] { 1556s [00:52:36.740] { 1556s [00:52:36.740] base::local({ 1556s [00:52:36.740] has_future <- base::requireNamespace("future", 1556s [00:52:36.740] quietly = TRUE) 1556s [00:52:36.740] if (has_future) { 1556s [00:52:36.740] ns <- base::getNamespace("future") 1556s [00:52:36.740] version <- ns[[".package"]][["version"]] 1556s [00:52:36.740] if (is.null(version)) 1556s [00:52:36.740] version <- utils::packageVersion("future") 1556s [00:52:36.740] } 1556s [00:52:36.740] else { 1556s [00:52:36.740] version <- NULL 1556s [00:52:36.740] } 1556s [00:52:36.740] if (!has_future || version < "1.8.0") { 1556s [00:52:36.740] info <- base::c(r_version = base::gsub("R version ", 1556s [00:52:36.740] "", base::R.version$version.string), 1556s [00:52:36.740] platform = base::sprintf("%s (%s-bit)", 1556s [00:52:36.740] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1556s [00:52:36.740] os = base::paste(base::Sys.info()[base::c("sysname", 1556s [00:52:36.740] "release", "version")], collapse = " "), 1556s [00:52:36.740] hostname = base::Sys.info()[["nodename"]]) 1556s [00:52:36.740] info <- base::sprintf("%s: %s", base::names(info), 1556s [00:52:36.740] info) 1556s [00:52:36.740] info <- base::paste(info, collapse = "; ") 1556s [00:52:36.740] if (!has_future) { 1556s [00:52:36.740] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1556s [00:52:36.740] info) 1556s [00:52:36.740] } 1556s [00:52:36.740] else { 1556s [00:52:36.740] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1556s [00:52:36.740] info, version) 1556s [00:52:36.740] } 1556s [00:52:36.740] base::stop(msg) 1556s [00:52:36.740] } 1556s [00:52:36.740] }) 1556s [00:52:36.740] } 1556s [00:52:36.740] options(future.plan = NULL) 1556s [00:52:36.740] Sys.unsetenv("R_FUTURE_PLAN") 1556s [00:52:36.740] future::plan("default", .cleanup = FALSE, .init = FALSE) 1556s [00:52:36.740] } 1556s [00:52:36.740] ...future.workdir <- getwd() 1556s [00:52:36.740] } 1556s [00:52:36.740] ...future.oldOptions <- base::as.list(base::.Options) 1556s [00:52:36.740] ...future.oldEnvVars <- base::Sys.getenv() 1556s [00:52:36.740] } 1556s [00:52:36.740] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1556s [00:52:36.740] future.globals.maxSize = NULL, future.globals.method = NULL, 1556s [00:52:36.740] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1556s [00:52:36.740] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1556s [00:52:36.740] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1556s [00:52:36.740] future.stdout.windows.reencode = NULL, width = 80L) 1556s [00:52:36.740] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1556s [00:52:36.740] base::names(...future.oldOptions)) 1556s [00:52:36.740] } 1556s [00:52:36.740] if (FALSE) { 1556s [00:52:36.740] } 1556s [00:52:36.740] else { 1556s [00:52:36.740] if (TRUE) { 1556s [00:52:36.740] ...future.stdout <- base::rawConnection(base::raw(0L), 1556s [00:52:36.740] open = "w") 1556s [00:52:36.740] } 1556s [00:52:36.740] else { 1556s [00:52:36.740] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1556s [00:52:36.740] windows = "NUL", "/dev/null"), open = "w") 1556s [00:52:36.740] } 1556s [00:52:36.740] base::sink(...future.stdout, type = "output", split = FALSE) 1556s [00:52:36.740] base::on.exit(if (!base::is.null(...future.stdout)) { 1556s [00:52:36.740] base::sink(type = "output", split = FALSE) 1556s [00:52:36.740] base::close(...future.stdout) 1556s [00:52:36.740] }, add = TRUE) 1556s [00:52:36.740] } 1556s [00:52:36.740] ...future.frame <- base::sys.nframe() 1556s [00:52:36.740] ...future.conditions <- base::list() 1556s [00:52:36.740] ...future.rng <- base::globalenv()$.Random.seed 1556s [00:52:36.740] if (FALSE) { 1556s [00:52:36.740] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1556s [00:52:36.740] "...future.value", "...future.globalenv.names", ".Random.seed") 1556s [00:52:36.740] } 1556s [00:52:36.740] ...future.result <- base::tryCatch({ 1556s [00:52:36.740] base::withCallingHandlers({ 1556s [00:52:36.740] ...future.value <- base::withVisible(base::local({ 1556s [00:52:36.740] do.call(function(...) { 1556s [00:52:36.740] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1556s [00:52:36.740] if (!identical(...future.globals.maxSize.org, 1556s [00:52:36.740] ...future.globals.maxSize)) { 1556s [00:52:36.740] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1556s [00:52:36.740] on.exit(options(oopts), add = TRUE) 1556s [00:52:36.740] } 1556s [00:52:36.740] { 1556s [00:52:36.740] lapply(seq_along(...future.elements_ii), 1556s [00:52:36.740] FUN = function(jj) { 1556s [00:52:36.740] ...future.X_jj <- ...future.elements_ii[[jj]] 1556s [00:52:36.740] ...future.FUN(...future.X_jj, ...) 1556s [00:52:36.740] }) 1556s [00:52:36.740] } 1556s [00:52:36.740] }, args = future.call.arguments) 1556s [00:52:36.740] })) 1556s [00:52:36.740] future::FutureResult(value = ...future.value$value, 1556s [00:52:36.740] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1556s [00:52:36.740] ...future.rng), globalenv = if (FALSE) 1556s [00:52:36.740] list(added = base::setdiff(base::names(base::.GlobalEnv), 1556s [00:52:36.740] ...future.globalenv.names)) 1556s [00:52:36.740] else NULL, started = ...future.startTime, version = "1.8") 1556s [00:52:36.740] }, condition = base::local({ 1556s [00:52:36.740] c <- base::c 1556s [00:52:36.740] inherits <- base::inherits 1556s [00:52:36.740] invokeRestart <- base::invokeRestart 1556s [00:52:36.740] length <- base::length 1556s [00:52:36.740] list <- base::list 1556s [00:52:36.740] seq.int <- base::seq.int 1556s [00:52:36.740] signalCondition <- base::signalCondition 1556s [00:52:36.740] sys.calls <- base::sys.calls 1556s [00:52:36.740] `[[` <- base::`[[` 1556s [00:52:36.740] `+` <- base::`+` 1556s [00:52:36.740] `<<-` <- base::`<<-` 1556s [00:52:36.740] sysCalls <- function(calls = sys.calls(), from = 1L) { 1556s [00:52:36.740] calls[seq.int(from = from + 12L, to = length(calls) - 1556s [00:52:36.740] 3L)] 1556s [00:52:36.740] } 1556s [00:52:36.740] function(cond) { 1556s [00:52:36.740] is_error <- inherits(cond, "error") 1556s [00:52:36.740] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1556s [00:52:36.740] NULL) 1556s [00:52:36.740] if (is_error) { 1556s [00:52:36.740] sessionInformation <- function() { 1556s [00:52:36.740] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1556s [00:52:36.740] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1556s [00:52:36.740] search = base::search(), system = base::Sys.info()) 1556s [00:52:36.740] } 1556s [00:52:36.740] ...future.conditions[[length(...future.conditions) + 1556s [00:52:36.740] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1556s [00:52:36.740] cond$call), session = sessionInformation(), 1556s [00:52:36.740] timestamp = base::Sys.time(), signaled = 0L) 1556s [00:52:36.740] signalCondition(cond) 1556s [00:52:36.740] } 1556s [00:52:36.740] else if (!ignore && TRUE && inherits(cond, c("condition", 1556s [00:52:36.740] "immediateCondition"))) { 1556s [00:52:36.740] signal <- TRUE && inherits(cond, "immediateCondition") 1556s [00:52:36.740] ...future.conditions[[length(...future.conditions) + 1556s [00:52:36.740] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1556s [00:52:36.740] if (TRUE && !signal) { 1556s [00:52:36.740] muffleCondition <- function (cond, pattern = "^muffle") 1556s [00:52:36.740] { 1556s [00:52:36.740] inherits <- base::inherits 1556s [00:52:36.740] invokeRestart <- base::invokeRestart 1556s [00:52:36.740] is.null <- base::is.null 1556s [00:52:36.740] muffled <- FALSE 1556s [00:52:36.740] if (inherits(cond, "message")) { 1556s [00:52:36.740] muffled <- grepl(pattern, "muffleMessage") 1556s [00:52:36.740] if (muffled) 1556s [00:52:36.740] invokeRestart("muffleMessage") 1556s [00:52:36.740] } 1556s [00:52:36.740] else if (inherits(cond, "warning")) { 1556s [00:52:36.740] muffled <- grepl(pattern, "muffleWarning") 1556s [00:52:36.740] if (muffled) 1556s [00:52:36.740] invokeRestart("muffleWarning") 1556s [00:52:36.740] } 1556s [00:52:36.740] else if (inherits(cond, "condition")) { 1556s [00:52:36.740] if (!is.null(pattern)) { 1556s [00:52:36.740] computeRestarts <- base::computeRestarts 1556s [00:52:36.740] grepl <- base::grepl 1556s [00:52:36.740] restarts <- computeRestarts(cond) 1556s [00:52:36.740] for (restart in restarts) { 1556s [00:52:36.740] name <- restart$name 1556s [00:52:36.740] if (is.null(name)) 1556s [00:52:36.740] next 1556s [00:52:36.740] if (!grepl(pattern, name)) 1556s [00:52:36.740] next 1556s [00:52:36.740] invokeRestart(restart) 1556s [00:52:36.740] muffled <- TRUE 1556s [00:52:36.740] break 1556s [00:52:36.740] } 1556s [00:52:36.740] } 1556s [00:52:36.740] } 1556s [00:52:36.740] invisible(muffled) 1556s [00:52:36.740] } 1556s [00:52:36.740] muffleCondition(cond, pattern = "^muffle") 1556s [00:52:36.740] } 1556s [00:52:36.740] } 1556s [00:52:36.740] else { 1556s [00:52:36.740] if (TRUE) { 1556s [00:52:36.740] muffleCondition <- function (cond, pattern = "^muffle") 1556s [00:52:36.740] { 1556s [00:52:36.740] inherits <- base::inherits 1556s [00:52:36.740] invokeRestart <- base::invokeRestart 1556s [00:52:36.740] is.null <- base::is.null 1556s [00:52:36.740] muffled <- FALSE 1556s [00:52:36.740] if (inherits(cond, "message")) { 1556s [00:52:36.740] muffled <- grepl(pattern, "muffleMessage") 1556s [00:52:36.740] if (muffled) 1556s [00:52:36.740] invokeRestart("muffleMessage") 1556s [00:52:36.740] } 1556s [00:52:36.740] else if (inherits(cond, "warning")) { 1556s [00:52:36.740] muffled <- grepl(pattern, "muffleWarning") 1556s [00:52:36.740] if (muffled) 1556s [00:52:36.740] invokeRestart("muffleWarning") 1556s [00:52:36.740] } 1556s [00:52:36.740] else if (inherits(cond, "condition")) { 1556s [00:52:36.740] if (!is.null(pattern)) { 1556s [00:52:36.740] computeRestarts <- base::computeRestarts 1556s [00:52:36.740] grepl <- base::grepl 1556s [00:52:36.740] restarts <- computeRestarts(cond) 1556s [00:52:36.740] for (restart in restarts) { 1556s [00:52:36.740] name <- restart$name 1556s [00:52:36.740] if (is.null(name)) 1556s [00:52:36.740] next 1556s [00:52:36.740] if (!grepl(pattern, name)) 1556s [00:52:36.740] next 1556s [00:52:36.740] invokeRestart(restart) 1556s [00:52:36.740] muffled <- TRUE 1556s [00:52:36.740] break 1556s [00:52:36.740] } 1556s [00:52:36.740] } 1556s [00:52:36.740] } 1556s [00:52:36.740] invisible(muffled) 1556s [00:52:36.740] } 1556s [00:52:36.740] muffleCondition(cond, pattern = "^muffle") 1556s [00:52:36.740] } 1556s [00:52:36.740] } 1556s [00:52:36.740] } 1556s [00:52:36.740] })) 1556s [00:52:36.740] }, error = function(ex) { 1556s [00:52:36.740] base::structure(base::list(value = NULL, visible = NULL, 1556s [00:52:36.740] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1556s [00:52:36.740] ...future.rng), started = ...future.startTime, 1556s [00:52:36.740] finished = Sys.time(), session_uuid = NA_character_, 1556s [00:52:36.740] version = "1.8"), class = "FutureResult") 1556s [00:52:36.740] }, finally = { 1556s [00:52:36.740] if (!identical(...future.workdir, getwd())) 1556s [00:52:36.740] setwd(...future.workdir) 1556s [00:52:36.740] { 1556s [00:52:36.740] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1556s [00:52:36.740] ...future.oldOptions$nwarnings <- NULL 1556s [00:52:36.740] } 1556s [00:52:36.740] base::options(...future.oldOptions) 1556s [00:52:36.740] if (.Platform$OS.type == "windows") { 1556s [00:52:36.740] old_names <- names(...future.oldEnvVars) 1556s [00:52:36.740] envs <- base::Sys.getenv() 1556s [00:52:36.740] names <- names(envs) 1556s [00:52:36.740] common <- intersect(names, old_names) 1556s [00:52:36.740] added <- setdiff(names, old_names) 1556s [00:52:36.740] removed <- setdiff(old_names, names) 1556s [00:52:36.740] changed <- common[...future.oldEnvVars[common] != 1556s [00:52:36.740] envs[common]] 1556s [00:52:36.740] NAMES <- toupper(changed) 1556s [00:52:36.740] args <- list() 1556s [00:52:36.740] for (kk in seq_along(NAMES)) { 1556s [00:52:36.740] name <- changed[[kk]] 1556s [00:52:36.740] NAME <- NAMES[[kk]] 1556s [00:52:36.740] if (name != NAME && is.element(NAME, old_names)) 1556s [00:52:36.740] next 1556s [00:52:36.740] args[[name]] <- ...future.oldEnvVars[[name]] 1556s [00:52:36.740] } 1556s [00:52:36.740] NAMES <- toupper(added) 1556s [00:52:36.740] for (kk in seq_along(NAMES)) { 1556s [00:52:36.740] name <- added[[kk]] 1556s [00:52:36.740] NAME <- NAMES[[kk]] 1556s [00:52:36.740] if (name != NAME && is.element(NAME, old_names)) 1556s [00:52:36.740] next 1556s [00:52:36.740] args[[name]] <- "" 1556s [00:52:36.740] } 1556s [00:52:36.740] NAMES <- toupper(removed) 1556s [00:52:36.740] for (kk in seq_along(NAMES)) { 1556s [00:52:36.740] name <- removed[[kk]] 1556s [00:52:36.740] NAME <- NAMES[[kk]] 1556s [00:52:36.740] if (name != NAME && is.element(NAME, old_names)) 1556s [00:52:36.740] next 1556s [00:52:36.740] args[[name]] <- ...future.oldEnvVars[[name]] 1556s [00:52:36.740] } 1556s [00:52:36.740] if (length(args) > 0) 1556s [00:52:36.740] base::do.call(base::Sys.setenv, args = args) 1556s [00:52:36.740] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1556s [00:52:36.740] } 1556s [00:52:36.740] else { 1556s [00:52:36.740] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1556s [00:52:36.740] } 1556s [00:52:36.740] { 1556s [00:52:36.740] if (base::length(...future.futureOptionsAdded) > 1556s [00:52:36.740] 0L) { 1556s [00:52:36.740] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1556s [00:52:36.740] base::names(opts) <- ...future.futureOptionsAdded 1556s [00:52:36.740] base::options(opts) 1556s [00:52:36.740] } 1556s [00:52:36.740] { 1556s [00:52:36.740] { 1556s [00:52:36.740] NULL 1556s [00:52:36.740] RNGkind("Mersenne-Twister") 1556s [00:52:36.740] base::rm(list = ".Random.seed", envir = base::globalenv(), 1556s [00:52:36.740] inherits = FALSE) 1556s [00:52:36.740] } 1556s [00:52:36.740] options(future.plan = NULL) 1556s [00:52:36.740] if (is.na(NA_character_)) 1556s [00:52:36.740] Sys.unsetenv("R_FUTURE_PLAN") 1556s [00:52:36.740] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1556s [00:52:36.740] future::plan(list(function (..., workers = availableCores(), 1556s [00:52:36.740] lazy = FALSE, rscript_libs = .libPaths(), 1556s [00:52:36.740] envir = parent.frame()) 1556s [00:52:36.740] { 1556s [00:52:36.740] if (is.function(workers)) 1556s [00:52:36.740] workers <- workers() 1556s [00:52:36.740] workers <- structure(as.integer(workers), 1556s [00:52:36.740] class = class(workers)) 1556s [00:52:36.740] stop_if_not(length(workers) == 1, is.finite(workers), 1556s [00:52:36.740] workers >= 1) 1556s [00:52:36.740] if (workers == 1L && !inherits(workers, "AsIs")) { 1556s [00:52:36.740] return(sequential(..., lazy = TRUE, envir = envir)) 1556s [00:52:36.740] } 1556s [00:52:36.740] future <- MultisessionFuture(..., workers = workers, 1556s [00:52:36.740] lazy = lazy, rscript_libs = rscript_libs, 1556s [00:52:36.740] envir = envir) 1556s [00:52:36.740] if (!future$lazy) 1556s [00:52:36.740] future <- run(future) 1556s [00:52:36.740] invisible(future) 1556s [00:52:36.740] }), .cleanup = FALSE, .init = FALSE) 1556s [00:52:36.740] } 1556s [00:52:36.740] } 1556s [00:52:36.740] } 1556s [00:52:36.740] }) 1556s [00:52:36.740] if (TRUE) { 1556s [00:52:36.740] base::sink(type = "output", split = FALSE) 1556s [00:52:36.740] if (TRUE) { 1556s [00:52:36.740] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1556s [00:52:36.740] } 1556s [00:52:36.740] else { 1556s [00:52:36.740] ...future.result["stdout"] <- base::list(NULL) 1556s [00:52:36.740] } 1556s [00:52:36.740] base::close(...future.stdout) 1556s [00:52:36.740] ...future.stdout <- NULL 1556s [00:52:36.740] } 1556s [00:52:36.740] ...future.result$conditions <- ...future.conditions 1556s [00:52:36.740] ...future.result$finished <- base::Sys.time() 1556s [00:52:36.740] ...future.result 1556s [00:52:36.740] } 1556s [00:52:36.744] assign_globals() ... 1556s [00:52:36.745] List of 5 1556s [00:52:36.745] $ ...future.FUN :function (mode = "logical", length = 0L) 1556s [00:52:36.745] $ future.call.arguments :List of 1 1556s [00:52:36.745] ..$ length: int 2 1556s [00:52:36.745] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1556s [00:52:36.745] $ ...future.elements_ii :List of 4 1556s [00:52:36.745] ..$ c: chr "list" 1556s [00:52:36.745] ..$ c: chr "character" 1556s [00:52:36.745] ..$ b: chr "numeric" 1556s [00:52:36.745] ..$ a: chr "integer" 1556s [00:52:36.745] $ ...future.seeds_ii : NULL 1556s [00:52:36.745] $ ...future.globals.maxSize: NULL 1556s [00:52:36.745] - attr(*, "where")=List of 5 1556s [00:52:36.745] ..$ ...future.FUN : 1556s [00:52:36.745] ..$ future.call.arguments : 1556s [00:52:36.745] ..$ ...future.elements_ii : 1556s [00:52:36.745] ..$ ...future.seeds_ii : 1556s [00:52:36.745] ..$ ...future.globals.maxSize: 1556s [00:52:36.745] - attr(*, "resolved")= logi FALSE 1556s [00:52:36.745] - attr(*, "total_size")= num 2240 1556s [00:52:36.745] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1556s [00:52:36.745] - attr(*, "already-done")= logi TRUE 1556s [00:52:36.754] - copied ‘...future.FUN’ to environment 1556s [00:52:36.754] - copied ‘future.call.arguments’ to environment 1556s [00:52:36.754] - copied ‘...future.elements_ii’ to environment 1556s [00:52:36.754] - copied ‘...future.seeds_ii’ to environment 1556s [00:52:36.755] - copied ‘...future.globals.maxSize’ to environment 1556s [00:52:36.755] assign_globals() ... done 1556s [00:52:36.755] plan(): Setting new future strategy stack: 1556s [00:52:36.755] List of future strategies: 1556s [00:52:36.755] 1. sequential: 1556s [00:52:36.755] - args: function (..., envir = parent.frame()) 1556s [00:52:36.755] - tweaked: FALSE 1556s [00:52:36.755] - call: NULL 1556s [00:52:36.757] plan(): nbrOfWorkers() = 1 1556s [00:52:36.758] plan(): Setting new future strategy stack: 1556s [00:52:36.759] List of future strategies: 1556s [00:52:36.759] 1. multisession: 1556s [00:52:36.759] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1556s [00:52:36.759] - tweaked: FALSE 1556s [00:52:36.759] - call: plan(strategy) 1556s [00:52:36.762] plan(): nbrOfWorkers() = 1 1556s [00:52:36.762] SequentialFuture started (and completed) 1556s [00:52:36.763] - Launch lazy future ... done 1556s [00:52:36.763] run() for ‘SequentialFuture’ ... done 1556s [00:52:36.763] Created future: 1556s [00:52:36.763] SequentialFuture: 1556s [00:52:36.763] Label: ‘future_lapply-1’ 1556s [00:52:36.763] Expression: 1556s [00:52:36.763] { 1556s [00:52:36.763] do.call(function(...) { 1556s [00:52:36.763] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1556s [00:52:36.763] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1556s [00:52:36.763] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1556s [00:52:36.763] on.exit(options(oopts), add = TRUE) 1556s [00:52:36.763] } 1556s [00:52:36.763] { 1556s [00:52:36.763] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1556s [00:52:36.763] ...future.X_jj <- ...future.elements_ii[[jj]] 1556s [00:52:36.763] ...future.FUN(...future.X_jj, ...) 1556s [00:52:36.763] }) 1556s [00:52:36.763] } 1556s [00:52:36.763] }, args = future.call.arguments) 1556s [00:52:36.763] } 1556s [00:52:36.763] Lazy evaluation: FALSE 1556s [00:52:36.763] Asynchronous evaluation: FALSE 1556s [00:52:36.763] Local evaluation: TRUE 1556s [00:52:36.763] Environment: R_GlobalEnv 1556s [00:52:36.763] Capture standard output: TRUE 1556s [00:52:36.763] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1556s [00:52:36.763] Globals: 5 objects totaling 2.63 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 456 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1556s [00:52:36.763] Packages: 1556s [00:52:36.763] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1556s [00:52:36.763] Resolved: TRUE 1556s [00:52:36.763] Value: 240 bytes of class ‘list’ 1556s [00:52:36.763] Early signaling: FALSE 1556s [00:52:36.763] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1556s [00:52:36.763] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1556s [00:52:36.765] Chunk #1 of 1 ... DONE 1556s [00:52:36.765] Launching 1 futures (chunks) ... DONE 1556s [00:52:36.765] Resolving 1 futures (chunks) ... 1556s [00:52:36.765] resolve() on list ... 1556s [00:52:36.766] recursive: 0 1556s [00:52:36.766] length: 1 1556s [00:52:36.766] 1556s [00:52:36.766] resolved() for ‘SequentialFuture’ ... 1556s [00:52:36.766] - state: ‘finished’ 1556s [00:52:36.766] - run: TRUE 1556s [00:52:36.767] - result: ‘FutureResult’ 1556s [00:52:36.767] resolved() for ‘SequentialFuture’ ... done 1556s [00:52:36.767] Future #1 1556s [00:52:36.767] signalConditionsASAP(SequentialFuture, pos=1) ... 1556s [00:52:36.767] - nx: 1 1556s [00:52:36.767] - relay: TRUE 1556s [00:52:36.768] - stdout: TRUE 1556s [00:52:36.768] - signal: TRUE 1556s [00:52:36.768] - resignal: FALSE 1556s [00:52:36.768] - force: TRUE 1556s [00:52:36.768] - relayed: [n=1] FALSE 1556s [00:52:36.768] - queued futures: [n=1] FALSE 1556s [00:52:36.768] - until=1 1556s [00:52:36.769] - relaying element #1 1556s [00:52:36.769] - relayed: [n=1] TRUE 1556s [00:52:36.769] - queued futures: [n=1] TRUE 1556s [00:52:36.769] signalConditionsASAP(SequentialFuture, pos=1) ... done 1556s [00:52:36.769] length: 0 (resolved future 1) 1556s [00:52:36.770] Relaying remaining futures 1556s [00:52:36.770] signalConditionsASAP(NULL, pos=0) ... 1556s [00:52:36.771] - nx: 1 1556s [00:52:36.771] - relay: TRUE 1556s [00:52:36.771] - stdout: TRUE 1556s [00:52:36.771] - signal: TRUE 1556s [00:52:36.771] - resignal: FALSE 1556s [00:52:36.772] - force: TRUE 1556s [00:52:36.772] - relayed: [n=1] TRUE 1556s [00:52:36.772] - queued futures: [n=1] TRUE 1556s - flush all 1556s [00:52:36.773] - relayed: [n=1] TRUE 1556s [00:52:36.774] - queued futures: [n=1] TRUE 1556s [00:52:36.774] signalConditionsASAP(NULL, pos=0) ... done 1556s [00:52:36.774] resolve() on list ... DONE 1556s [00:52:36.776] - Number of value chunks collected: 1 1556s [00:52:36.776] Resolving 1 futures (chunks) ... DONE 1556s [00:52:36.777] Reducing values from 1 chunks ... 1556s [00:52:36.777] - Number of values collected after concatenation: 4 1556s [00:52:36.777] - Number of values expected: 4 1556s [00:52:36.777] Reverse index remapping (attribute 'ordering'): [n = 4] 4, 3, 2, 1 1556s [00:52:36.778] Reducing values from 1 chunks ... DONE 1556s [00:52:36.779] future_lapply() ... DONE 1556s List of 1 1556s $ y:List of 4 1556s ..$ a: int [1:2] 0 0 1556s ..$ b: num [1:2] 0 0 1556s ..$ c: chr [1:2] "" "" 1556s ..$ c:List of 2 1556s .. ..$ : NULL 1556s .. ..$ : NULL 1556s [00:52:36.784] future_lapply() ... 1556s [00:52:36.788] Number of chunks: 1 1556s [00:52:36.788] Index remapping (attribute 'ordering'): [n = 4] 4, 3, 2, 1 1556s [00:52:36.789] getGlobalsAndPackagesXApply() ... 1556s [00:52:36.789] - future.globals: TRUE 1556s [00:52:36.789] getGlobalsAndPackages() ... 1556s [00:52:36.789] Searching for globals... 1556s [00:52:36.791] - globals found: [2] ‘FUN’, ‘.Internal’ 1556s [00:52:36.791] Searching for globals ... DONE 1556s [00:52:36.791] Resolving globals: FALSE 1556s [00:52:36.791] The total size of the 1 globals is 2.13 KiB (2184 bytes) 1556s [00:52:36.792] The total size of the 1 globals exported for future expression (‘FUN(length = 2L)’) is 2.13 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (2.13 KiB of class ‘function’) 1556s [00:52:36.792] - globals: [1] ‘FUN’ 1556s [00:52:36.792] 1556s [00:52:36.792] getGlobalsAndPackages() ... DONE 1556s [00:52:36.793] - globals found/used: [n=1] ‘FUN’ 1556s [00:52:36.793] - needed namespaces: [n=0] 1556s [00:52:36.793] Finding globals ... DONE 1556s [00:52:36.793] - use_args: TRUE 1556s [00:52:36.793] - Getting '...' globals ... 1556s [00:52:36.794] resolve() on list ... 1556s [00:52:36.795] recursive: 0 1556s [00:52:36.795] length: 1 1556s [00:52:36.795] elements: ‘...’ 1556s [00:52:36.796] length: 0 (resolved future 1) 1556s [00:52:36.796] resolve() on list ... DONE 1556s [00:52:36.796] - '...' content: [n=1] ‘length’ 1556s [00:52:36.796] List of 1 1556s [00:52:36.796] $ ...:List of 1 1556s [00:52:36.796] ..$ length: int 2 1556s [00:52:36.796] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1556s [00:52:36.796] - attr(*, "where")=List of 1 1556s [00:52:36.796] ..$ ...: 1556s [00:52:36.796] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1556s [00:52:36.796] - attr(*, "resolved")= logi TRUE 1556s [00:52:36.796] - attr(*, "total_size")= num NA 1556s [00:52:36.803] - Getting '...' globals ... DONE 1556s [00:52:36.803] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1556s [00:52:36.803] List of 2 1556s [00:52:36.803] $ ...future.FUN:function (mode = "logical", length = 0L) 1556s [00:52:36.803] $ ... :List of 1 1556s [00:52:36.803] ..$ length: int 2 1556s [00:52:36.803] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1556s [00:52:36.803] - attr(*, "where")=List of 2 1556s [00:52:36.803] ..$ ...future.FUN: 1556s [00:52:36.803] ..$ ... : 1556s [00:52:36.803] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1556s [00:52:36.803] - attr(*, "resolved")= logi FALSE 1556s [00:52:36.803] - attr(*, "total_size")= num 2240 1556s [00:52:36.810] Packages to be attached in all futures: [n=0] 1556s [00:52:36.810] getGlobalsAndPackagesXApply() ... DONE 1556s [00:52:36.811] Number of futures (= number of chunks): 1 1556s [00:52:36.811] Launching 1 futures (chunks) ... 1556s [00:52:36.811] Chunk #1 of 1 ... 1556s [00:52:36.811] - Finding globals in 'X' for chunk #1 ... 1556s [00:52:36.811] getGlobalsAndPackages() ... 1556s [00:52:36.811] Searching for globals... 1556s [00:52:36.812] 1556s [00:52:36.812] Searching for globals ... DONE 1556s [00:52:36.812] - globals: [0] 1556s [00:52:36.812] getGlobalsAndPackages() ... DONE 1556s [00:52:36.813] + additional globals found: [n=0] 1556s [00:52:36.813] + additional namespaces needed: [n=0] 1556s [00:52:36.813] - Finding globals in 'X' for chunk #1 ... DONE 1556s [00:52:36.813] - seeds: 1556s [00:52:36.814] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1556s [00:52:36.814] getGlobalsAndPackages() ... 1556s [00:52:36.815] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1556s [00:52:36.815] Resolving globals: FALSE 1556s [00:52:36.815] Tweak future expression to call with '...' arguments ... 1556s [00:52:36.815] { 1556s [00:52:36.815] do.call(function(...) { 1556s [00:52:36.815] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1556s [00:52:36.815] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1556s [00:52:36.815] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1556s [00:52:36.815] on.exit(options(oopts), add = TRUE) 1556s [00:52:36.815] } 1556s [00:52:36.815] { 1556s [00:52:36.815] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1556s [00:52:36.815] ...future.X_jj <- ...future.elements_ii[[jj]] 1556s [00:52:36.815] ...future.FUN(...future.X_jj, ...) 1556s [00:52:36.815] }) 1556s [00:52:36.815] } 1556s [00:52:36.815] }, args = future.call.arguments) 1556s [00:52:36.815] } 1556s [00:52:36.816] Tweak future expression to call with '...' arguments ... DONE 1556s [00:52:36.816] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1556s [00:52:36.817] 1556s [00:52:36.817] getGlobalsAndPackages() ... DONE 1556s [00:52:36.817] run() for ‘Future’ ... 1556s [00:52:36.818] - state: ‘created’ 1556s [00:52:36.818] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1556s [00:52:36.824] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1556s [00:52:36.825] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1556s [00:52:36.825] - Field: ‘label’ 1556s [00:52:36.825] - Field: ‘local’ 1556s [00:52:36.826] - Field: ‘owner’ 1556s [00:52:36.826] - Field: ‘envir’ 1556s [00:52:36.826] - Field: ‘packages’ 1556s [00:52:36.827] - Field: ‘gc’ 1556s [00:52:36.827] - Field: ‘conditions’ 1556s [00:52:36.827] - Field: ‘expr’ 1556s [00:52:36.827] - Field: ‘uuid’ 1556s [00:52:36.828] - Field: ‘seed’ 1556s [00:52:36.828] - Field: ‘version’ 1556s [00:52:36.828] - Field: ‘result’ 1556s [00:52:36.828] - Field: ‘asynchronous’ 1556s [00:52:36.828] - Field: ‘calls’ 1556s [00:52:36.829] - Field: ‘globals’ 1556s [00:52:36.829] - Field: ‘stdout’ 1556s [00:52:36.829] - Field: ‘earlySignal’ 1556s [00:52:36.829] - Field: ‘lazy’ 1556s [00:52:36.829] - Field: ‘state’ 1556s [00:52:36.829] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1556s [00:52:36.830] - Launch lazy future ... 1556s [00:52:36.830] Packages needed by the future expression (n = 0): 1556s [00:52:36.830] Packages needed by future strategies (n = 0): 1556s [00:52:36.831] { 1556s [00:52:36.831] { 1556s [00:52:36.831] { 1556s [00:52:36.831] ...future.startTime <- base::Sys.time() 1556s [00:52:36.831] { 1556s [00:52:36.831] { 1556s [00:52:36.831] { 1556s [00:52:36.831] base::local({ 1556s [00:52:36.831] has_future <- base::requireNamespace("future", 1556s [00:52:36.831] quietly = TRUE) 1556s [00:52:36.831] if (has_future) { 1556s [00:52:36.831] ns <- base::getNamespace("future") 1556s [00:52:36.831] version <- ns[[".package"]][["version"]] 1556s [00:52:36.831] if (is.null(version)) 1556s [00:52:36.831] version <- utils::packageVersion("future") 1556s [00:52:36.831] } 1556s [00:52:36.831] else { 1556s [00:52:36.831] version <- NULL 1556s [00:52:36.831] } 1556s [00:52:36.831] if (!has_future || version < "1.8.0") { 1556s [00:52:36.831] info <- base::c(r_version = base::gsub("R version ", 1556s [00:52:36.831] "", base::R.version$version.string), 1556s [00:52:36.831] platform = base::sprintf("%s (%s-bit)", 1556s [00:52:36.831] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1556s [00:52:36.831] os = base::paste(base::Sys.info()[base::c("sysname", 1556s [00:52:36.831] "release", "version")], collapse = " "), 1556s [00:52:36.831] hostname = base::Sys.info()[["nodename"]]) 1556s [00:52:36.831] info <- base::sprintf("%s: %s", base::names(info), 1556s [00:52:36.831] info) 1556s [00:52:36.831] info <- base::paste(info, collapse = "; ") 1556s [00:52:36.831] if (!has_future) { 1556s [00:52:36.831] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1556s [00:52:36.831] info) 1556s [00:52:36.831] } 1556s [00:52:36.831] else { 1556s [00:52:36.831] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1556s [00:52:36.831] info, version) 1556s [00:52:36.831] } 1556s [00:52:36.831] base::stop(msg) 1556s [00:52:36.831] } 1556s [00:52:36.831] }) 1556s [00:52:36.831] } 1556s [00:52:36.831] options(future.plan = NULL) 1556s [00:52:36.831] Sys.unsetenv("R_FUTURE_PLAN") 1556s [00:52:36.831] future::plan("default", .cleanup = FALSE, .init = FALSE) 1556s [00:52:36.831] } 1556s [00:52:36.831] ...future.workdir <- getwd() 1556s [00:52:36.831] } 1556s [00:52:36.831] ...future.oldOptions <- base::as.list(base::.Options) 1556s [00:52:36.831] ...future.oldEnvVars <- base::Sys.getenv() 1556s [00:52:36.831] } 1556s [00:52:36.831] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1556s [00:52:36.831] future.globals.maxSize = NULL, future.globals.method = NULL, 1556s [00:52:36.831] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1556s [00:52:36.831] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1556s [00:52:36.831] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1556s [00:52:36.831] future.stdout.windows.reencode = NULL, width = 80L) 1556s [00:52:36.831] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1556s [00:52:36.831] base::names(...future.oldOptions)) 1556s [00:52:36.831] } 1556s [00:52:36.831] if (FALSE) { 1556s [00:52:36.831] } 1556s [00:52:36.831] else { 1556s [00:52:36.831] if (TRUE) { 1556s [00:52:36.831] ...future.stdout <- base::rawConnection(base::raw(0L), 1556s [00:52:36.831] open = "w") 1556s [00:52:36.831] } 1556s [00:52:36.831] else { 1556s [00:52:36.831] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1556s [00:52:36.831] windows = "NUL", "/dev/null"), open = "w") 1556s [00:52:36.831] } 1556s [00:52:36.831] base::sink(...future.stdout, type = "output", split = FALSE) 1556s [00:52:36.831] base::on.exit(if (!base::is.null(...future.stdout)) { 1556s [00:52:36.831] base::sink(type = "output", split = FALSE) 1556s [00:52:36.831] base::close(...future.stdout) 1556s [00:52:36.831] }, add = TRUE) 1556s [00:52:36.831] } 1556s [00:52:36.831] ...future.frame <- base::sys.nframe() 1556s [00:52:36.831] ...future.conditions <- base::list() 1556s [00:52:36.831] ...future.rng <- base::globalenv()$.Random.seed 1556s [00:52:36.831] if (FALSE) { 1556s [00:52:36.831] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1556s [00:52:36.831] "...future.value", "...future.globalenv.names", ".Random.seed") 1556s [00:52:36.831] } 1556s [00:52:36.831] ...future.result <- base::tryCatch({ 1556s [00:52:36.831] base::withCallingHandlers({ 1556s [00:52:36.831] ...future.value <- base::withVisible(base::local({ 1556s [00:52:36.831] do.call(function(...) { 1556s [00:52:36.831] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1556s [00:52:36.831] if (!identical(...future.globals.maxSize.org, 1556s [00:52:36.831] ...future.globals.maxSize)) { 1556s [00:52:36.831] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1556s [00:52:36.831] on.exit(options(oopts), add = TRUE) 1556s [00:52:36.831] } 1556s [00:52:36.831] { 1556s [00:52:36.831] lapply(seq_along(...future.elements_ii), 1556s [00:52:36.831] FUN = function(jj) { 1556s [00:52:36.831] ...future.X_jj <- ...future.elements_ii[[jj]] 1556s [00:52:36.831] ...future.FUN(...future.X_jj, ...) 1556s [00:52:36.831] }) 1556s [00:52:36.831] } 1556s [00:52:36.831] }, args = future.call.arguments) 1556s [00:52:36.831] })) 1556s [00:52:36.831] future::FutureResult(value = ...future.value$value, 1556s [00:52:36.831] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1556s [00:52:36.831] ...future.rng), globalenv = if (FALSE) 1556s [00:52:36.831] list(added = base::setdiff(base::names(base::.GlobalEnv), 1556s [00:52:36.831] ...future.globalenv.names)) 1556s [00:52:36.831] else NULL, started = ...future.startTime, version = "1.8") 1556s [00:52:36.831] }, condition = base::local({ 1556s [00:52:36.831] c <- base::c 1556s [00:52:36.831] inherits <- base::inherits 1556s [00:52:36.831] invokeRestart <- base::invokeRestart 1556s [00:52:36.831] length <- base::length 1556s [00:52:36.831] list <- base::list 1556s [00:52:36.831] seq.int <- base::seq.int 1556s [00:52:36.831] signalCondition <- base::signalCondition 1556s [00:52:36.831] sys.calls <- base::sys.calls 1556s [00:52:36.831] `[[` <- base::`[[` 1556s [00:52:36.831] `+` <- base::`+` 1556s [00:52:36.831] `<<-` <- base::`<<-` 1556s [00:52:36.831] sysCalls <- function(calls = sys.calls(), from = 1L) { 1556s [00:52:36.831] calls[seq.int(from = from + 12L, to = length(calls) - 1556s [00:52:36.831] 3L)] 1556s [00:52:36.831] } 1556s [00:52:36.831] function(cond) { 1556s [00:52:36.831] is_error <- inherits(cond, "error") 1556s [00:52:36.831] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1556s [00:52:36.831] NULL) 1556s [00:52:36.831] if (is_error) { 1556s [00:52:36.831] sessionInformation <- function() { 1556s [00:52:36.831] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1556s [00:52:36.831] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1556s [00:52:36.831] search = base::search(), system = base::Sys.info()) 1556s [00:52:36.831] } 1556s [00:52:36.831] ...future.conditions[[length(...future.conditions) + 1556s [00:52:36.831] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1556s [00:52:36.831] cond$call), session = sessionInformation(), 1556s [00:52:36.831] timestamp = base::Sys.time(), signaled = 0L) 1556s [00:52:36.831] signalCondition(cond) 1556s [00:52:36.831] } 1556s [00:52:36.831] else if (!ignore && TRUE && inherits(cond, c("condition", 1556s [00:52:36.831] "immediateCondition"))) { 1556s [00:52:36.831] signal <- TRUE && inherits(cond, "immediateCondition") 1556s [00:52:36.831] ...future.conditions[[length(...future.conditions) + 1556s [00:52:36.831] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1556s [00:52:36.831] if (TRUE && !signal) { 1556s [00:52:36.831] muffleCondition <- function (cond, pattern = "^muffle") 1556s [00:52:36.831] { 1556s [00:52:36.831] inherits <- base::inherits 1556s [00:52:36.831] invokeRestart <- base::invokeRestart 1556s [00:52:36.831] is.null <- base::is.null 1556s [00:52:36.831] muffled <- FALSE 1556s [00:52:36.831] if (inherits(cond, "message")) { 1556s [00:52:36.831] muffled <- grepl(pattern, "muffleMessage") 1556s [00:52:36.831] if (muffled) 1556s [00:52:36.831] invokeRestart("muffleMessage") 1556s [00:52:36.831] } 1556s [00:52:36.831] else if (inherits(cond, "warning")) { 1556s [00:52:36.831] muffled <- grepl(pattern, "muffleWarning") 1556s [00:52:36.831] if (muffled) 1556s [00:52:36.831] invokeRestart("muffleWarning") 1556s [00:52:36.831] } 1556s [00:52:36.831] else if (inherits(cond, "condition")) { 1556s [00:52:36.831] if (!is.null(pattern)) { 1556s [00:52:36.831] computeRestarts <- base::computeRestarts 1556s [00:52:36.831] grepl <- base::grepl 1556s [00:52:36.831] restarts <- computeRestarts(cond) 1556s [00:52:36.831] for (restart in restarts) { 1556s [00:52:36.831] name <- restart$name 1556s [00:52:36.831] if (is.null(name)) 1556s [00:52:36.831] next 1556s [00:52:36.831] if (!grepl(pattern, name)) 1556s [00:52:36.831] next 1556s [00:52:36.831] invokeRestart(restart) 1556s [00:52:36.831] muffled <- TRUE 1556s [00:52:36.831] break 1556s [00:52:36.831] } 1556s [00:52:36.831] } 1556s [00:52:36.831] } 1556s [00:52:36.831] invisible(muffled) 1556s [00:52:36.831] } 1556s [00:52:36.831] muffleCondition(cond, pattern = "^muffle") 1556s [00:52:36.831] } 1556s [00:52:36.831] } 1556s [00:52:36.831] else { 1556s [00:52:36.831] if (TRUE) { 1556s [00:52:36.831] muffleCondition <- function (cond, pattern = "^muffle") 1556s [00:52:36.831] { 1556s [00:52:36.831] inherits <- base::inherits 1556s [00:52:36.831] invokeRestart <- base::invokeRestart 1556s [00:52:36.831] is.null <- base::is.null 1556s [00:52:36.831] muffled <- FALSE 1556s [00:52:36.831] if (inherits(cond, "message")) { 1556s [00:52:36.831] muffled <- grepl(pattern, "muffleMessage") 1556s [00:52:36.831] if (muffled) 1556s [00:52:36.831] invokeRestart("muffleMessage") 1556s [00:52:36.831] } 1556s [00:52:36.831] else if (inherits(cond, "warning")) { 1556s [00:52:36.831] muffled <- grepl(pattern, "muffleWarning") 1556s [00:52:36.831] if (muffled) 1556s [00:52:36.831] invokeRestart("muffleWarning") 1556s [00:52:36.831] } 1556s [00:52:36.831] else if (inherits(cond, "condition")) { 1556s [00:52:36.831] if (!is.null(pattern)) { 1556s [00:52:36.831] computeRestarts <- base::computeRestarts 1556s [00:52:36.831] grepl <- base::grepl 1556s [00:52:36.831] restarts <- computeRestarts(cond) 1556s [00:52:36.831] for (restart in restarts) { 1556s [00:52:36.831] name <- restart$name 1556s [00:52:36.831] if (is.null(name)) 1556s [00:52:36.831] next 1556s [00:52:36.831] if (!grepl(pattern, name)) 1556s [00:52:36.831] next 1556s [00:52:36.831] invokeRestart(restart) 1556s [00:52:36.831] muffled <- TRUE 1556s [00:52:36.831] break 1556s [00:52:36.831] } 1556s [00:52:36.831] } 1556s [00:52:36.831] } 1556s [00:52:36.831] invisible(muffled) 1556s [00:52:36.831] } 1556s [00:52:36.831] muffleCondition(cond, pattern = "^muffle") 1556s [00:52:36.831] } 1556s [00:52:36.831] } 1556s [00:52:36.831] } 1556s [00:52:36.831] })) 1556s [00:52:36.831] }, error = function(ex) { 1556s [00:52:36.831] base::structure(base::list(value = NULL, visible = NULL, 1556s [00:52:36.831] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1556s [00:52:36.831] ...future.rng), started = ...future.startTime, 1556s [00:52:36.831] finished = Sys.time(), session_uuid = NA_character_, 1556s [00:52:36.831] version = "1.8"), class = "FutureResult") 1556s [00:52:36.831] }, finally = { 1556s [00:52:36.831] if (!identical(...future.workdir, getwd())) 1556s [00:52:36.831] setwd(...future.workdir) 1556s [00:52:36.831] { 1556s [00:52:36.831] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1556s [00:52:36.831] ...future.oldOptions$nwarnings <- NULL 1556s [00:52:36.831] } 1556s [00:52:36.831] base::options(...future.oldOptions) 1556s [00:52:36.831] if (.Platform$OS.type == "windows") { 1556s [00:52:36.831] old_names <- names(...future.oldEnvVars) 1556s [00:52:36.831] envs <- base::Sys.getenv() 1556s [00:52:36.831] names <- names(envs) 1556s [00:52:36.831] common <- intersect(names, old_names) 1556s [00:52:36.831] added <- setdiff(names, old_names) 1556s [00:52:36.831] removed <- setdiff(old_names, names) 1556s [00:52:36.831] changed <- common[...future.oldEnvVars[common] != 1556s [00:52:36.831] envs[common]] 1556s [00:52:36.831] NAMES <- toupper(changed) 1556s [00:52:36.831] args <- list() 1556s [00:52:36.831] for (kk in seq_along(NAMES)) { 1556s [00:52:36.831] name <- changed[[kk]] 1556s [00:52:36.831] NAME <- NAMES[[kk]] 1556s [00:52:36.831] if (name != NAME && is.element(NAME, old_names)) 1556s [00:52:36.831] next 1556s [00:52:36.831] args[[name]] <- ...future.oldEnvVars[[name]] 1556s [00:52:36.831] } 1556s [00:52:36.831] NAMES <- toupper(added) 1556s [00:52:36.831] for (kk in seq_along(NAMES)) { 1556s [00:52:36.831] name <- added[[kk]] 1556s [00:52:36.831] NAME <- NAMES[[kk]] 1556s [00:52:36.831] if (name != NAME && is.element(NAME, old_names)) 1556s [00:52:36.831] next 1556s [00:52:36.831] args[[name]] <- "" 1556s [00:52:36.831] } 1556s [00:52:36.831] NAMES <- toupper(removed) 1556s [00:52:36.831] for (kk in seq_along(NAMES)) { 1556s [00:52:36.831] name <- removed[[kk]] 1556s [00:52:36.831] NAME <- NAMES[[kk]] 1556s [00:52:36.831] if (name != NAME && is.element(NAME, old_names)) 1556s [00:52:36.831] next 1556s [00:52:36.831] args[[name]] <- ...future.oldEnvVars[[name]] 1556s [00:52:36.831] } 1556s [00:52:36.831] if (length(args) > 0) 1556s [00:52:36.831] base::do.call(base::Sys.setenv, args = args) 1556s [00:52:36.831] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1556s [00:52:36.831] } 1556s [00:52:36.831] else { 1556s [00:52:36.831] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1556s [00:52:36.831] } 1556s [00:52:36.831] { 1556s [00:52:36.831] if (base::length(...future.futureOptionsAdded) > 1556s [00:52:36.831] 0L) { 1556s [00:52:36.831] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1556s [00:52:36.831] base::names(opts) <- ...future.futureOptionsAdded 1556s [00:52:36.831] base::options(opts) 1556s [00:52:36.831] } 1556s [00:52:36.831] { 1556s [00:52:36.831] { 1556s [00:52:36.831] NULL 1556s [00:52:36.831] RNGkind("Mersenne-Twister") 1556s [00:52:36.831] base::rm(list = ".Random.seed", envir = base::globalenv(), 1556s [00:52:36.831] inherits = FALSE) 1556s [00:52:36.831] } 1556s [00:52:36.831] options(future.plan = NULL) 1556s [00:52:36.831] if (is.na(NA_character_)) 1556s [00:52:36.831] Sys.unsetenv("R_FUTURE_PLAN") 1556s [00:52:36.831] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1556s [00:52:36.831] future::plan(list(function (..., workers = availableCores(), 1556s [00:52:36.831] lazy = FALSE, rscript_libs = .libPaths(), 1556s [00:52:36.831] envir = parent.frame()) 1556s [00:52:36.831] { 1556s [00:52:36.831] if (is.function(workers)) 1556s [00:52:36.831] workers <- workers() 1556s [00:52:36.831] workers <- structure(as.integer(workers), 1556s [00:52:36.831] class = class(workers)) 1556s [00:52:36.831] stop_if_not(length(workers) == 1, is.finite(workers), 1556s [00:52:36.831] workers >= 1) 1556s [00:52:36.831] if (workers == 1L && !inherits(workers, "AsIs")) { 1556s [00:52:36.831] return(sequential(..., lazy = TRUE, envir = envir)) 1556s [00:52:36.831] } 1556s [00:52:36.831] future <- MultisessionFuture(..., workers = workers, 1556s [00:52:36.831] lazy = lazy, rscript_libs = rscript_libs, 1556s [00:52:36.831] envir = envir) 1556s [00:52:36.831] if (!future$lazy) 1556s [00:52:36.831] future <- run(future) 1556s [00:52:36.831] invisible(future) 1556s [00:52:36.831] }), .cleanup = FALSE, .init = FALSE) 1556s [00:52:36.831] } 1556s [00:52:36.831] } 1556s [00:52:36.831] } 1556s [00:52:36.831] }) 1556s [00:52:36.831] if (TRUE) { 1556s [00:52:36.831] base::sink(type = "output", split = FALSE) 1556s [00:52:36.831] if (TRUE) { 1556s [00:52:36.831] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1556s [00:52:36.831] } 1556s [00:52:36.831] else { 1556s [00:52:36.831] ...future.result["stdout"] <- base::list(NULL) 1556s [00:52:36.831] } 1556s [00:52:36.831] base::close(...future.stdout) 1556s [00:52:36.831] ...future.stdout <- NULL 1556s [00:52:36.831] } 1556s [00:52:36.831] ...future.result$conditions <- ...future.conditions 1556s [00:52:36.831] ...future.result$finished <- base::Sys.time() 1556s [00:52:36.831] ...future.result 1556s [00:52:36.831] } 1556s [00:52:36.835] assign_globals() ... 1556s [00:52:36.835] List of 5 1556s [00:52:36.835] $ ...future.FUN :function (mode = "logical", length = 0L) 1556s [00:52:36.835] $ future.call.arguments :List of 1 1556s [00:52:36.835] ..$ length: int 2 1556s [00:52:36.835] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1556s [00:52:36.835] $ ...future.elements_ii :List of 4 1556s [00:52:36.835] ..$ c: chr "list" 1556s [00:52:36.835] ..$ c: chr "character" 1556s [00:52:36.835] ..$ b: chr "numeric" 1556s [00:52:36.835] ..$ a: chr "integer" 1556s [00:52:36.835] $ ...future.seeds_ii : NULL 1556s [00:52:36.835] $ ...future.globals.maxSize: NULL 1556s [00:52:36.835] - attr(*, "where")=List of 5 1556s [00:52:36.835] ..$ ...future.FUN : 1556s [00:52:36.835] ..$ future.call.arguments : 1556s [00:52:36.835] ..$ ...future.elements_ii : 1556s [00:52:36.835] ..$ ...future.seeds_ii : 1556s [00:52:36.835] ..$ ...future.globals.maxSize: 1556s [00:52:36.835] - attr(*, "resolved")= logi FALSE 1556s [00:52:36.835] - attr(*, "total_size")= num 2240 1556s [00:52:36.835] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1556s [00:52:36.835] - attr(*, "already-done")= logi TRUE 1556s [00:52:36.851] - copied ‘...future.FUN’ to environment 1556s [00:52:36.851] - copied ‘future.call.arguments’ to environment 1556s [00:52:36.851] - copied ‘...future.elements_ii’ to environment 1556s [00:52:36.852] - copied ‘...future.seeds_ii’ to environment 1556s [00:52:36.852] - copied ‘...future.globals.maxSize’ to environment 1556s [00:52:36.852] assign_globals() ... done 1556s [00:52:36.853] plan(): Setting new future strategy stack: 1556s [00:52:36.853] List of future strategies: 1556s [00:52:36.853] 1. sequential: 1556s [00:52:36.853] - args: function (..., envir = parent.frame()) 1556s [00:52:36.853] - tweaked: FALSE 1556s [00:52:36.853] - call: NULL 1556s [00:52:36.854] plan(): nbrOfWorkers() = 1 1556s [00:52:36.856] plan(): Setting new future strategy stack: 1556s [00:52:36.856] List of future strategies: 1556s [00:52:36.856] 1. multisession: 1556s [00:52:36.856] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1556s [00:52:36.856] - tweaked: FALSE 1556s [00:52:36.856] - call: plan(strategy) 1556s [00:52:36.862] plan(): nbrOfWorkers() = 1 1556s [00:52:36.862] SequentialFuture started (and completed) 1556s [00:52:36.863] - Launch lazy future ... done 1556s [00:52:36.863] run() for ‘SequentialFuture’ ... done 1556s [00:52:36.863] Created future: 1556s [00:52:36.863] SequentialFuture: 1556s [00:52:36.863] Label: ‘future_lapply-1’ 1556s [00:52:36.863] Expression: 1556s [00:52:36.863] { 1556s [00:52:36.863] do.call(function(...) { 1556s [00:52:36.863] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1556s [00:52:36.863] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1556s [00:52:36.863] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1556s [00:52:36.863] on.exit(options(oopts), add = TRUE) 1556s [00:52:36.863] } 1556s [00:52:36.863] { 1556s [00:52:36.863] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1556s [00:52:36.863] ...future.X_jj <- ...future.elements_ii[[jj]] 1556s [00:52:36.863] ...future.FUN(...future.X_jj, ...) 1556s [00:52:36.863] }) 1556s [00:52:36.863] } 1556s [00:52:36.863] }, args = future.call.arguments) 1556s [00:52:36.863] } 1556s [00:52:36.863] Lazy evaluation: FALSE 1556s [00:52:36.863] Asynchronous evaluation: FALSE 1556s [00:52:36.863] Local evaluation: TRUE 1556s [00:52:36.863] Environment: R_GlobalEnv 1556s [00:52:36.863] Capture standard output: TRUE 1556s [00:52:36.863] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1556s [00:52:36.863] Globals: 5 objects totaling 2.63 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 456 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1556s [00:52:36.863] Packages: 1556s [00:52:36.863] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1556s [00:52:36.863] Resolved: TRUE 1556s [00:52:36.863] Value: 240 bytes of class ‘list’ 1556s [00:52:36.863] Early signaling: FALSE 1556s [00:52:36.863] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1556s [00:52:36.863] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1556s [00:52:36.865] Chunk #1 of 1 ... DONE 1556s [00:52:36.865] Launching 1 futures (chunks) ... DONE 1556s [00:52:36.865] Resolving 1 futures (chunks) ... 1556s [00:52:36.865] resolve() on list ... 1556s [00:52:36.866] recursive: 0 1556s [00:52:36.866] length: 1 1556s [00:52:36.866] 1556s [00:52:36.866] resolved() for ‘SequentialFuture’ ... 1556s [00:52:36.866] - state: ‘finished’ 1556s [00:52:36.866] - run: TRUE 1556s [00:52:36.867] - result: ‘FutureResult’ 1556s [00:52:36.867] resolved() for ‘SequentialFuture’ ... done 1556s [00:52:36.867] Future #1 1556s [00:52:36.867] signalConditionsASAP(SequentialFuture, pos=1) ... 1556s [00:52:36.867] - nx: 1 1556s [00:52:36.868] - relay: TRUE 1556s [00:52:36.868] - stdout: TRUE 1556s [00:52:36.868] - signal: TRUE 1556s [00:52:36.868] - resignal: FALSE 1556s [00:52:36.868] - force: TRUE 1556s [00:52:36.868] - relayed: [n=1] FALSE 1556s [00:52:36.869] - queued futures: [n=1] FALSE 1556s [00:52:36.869] - until=1 1556s [00:52:36.869] - relaying element #1 1556s [00:52:36.869] - relayed: [n=1] TRUE 1556s [00:52:36.869] - queued futures: [n=1] TRUE 1556s [00:52:36.869] signalConditionsASAP(SequentialFuture, pos=1) ... done 1556s [00:52:36.870] length: 0 (resolved future 1) 1556s [00:52:36.870] Relaying remaining futures 1556s [00:52:36.870] signalConditionsASAP(NULL, pos=0) ... 1556s [00:52:36.870] - nx: 1 1556s [00:52:36.871] - relay: TRUE 1556s [00:52:36.871] - stdout: TRUE 1556s [00:52:36.871] - signal: TRUE 1556s [00:52:36.871] - resignal: FALSE 1556s [00:52:36.871] - force: TRUE 1556s [00:52:36.871] - relayed: [n=1] TRUE 1556s [00:52:36.871] - queued futures: [n=1] TRUE 1556s - flush all 1556s [00:52:36.872] - relayed: [n=1] TRUE 1556s [00:52:36.872] - queued futures: [n=1] TRUE 1556s [00:52:36.873] signalConditionsASAP(NULL, pos=0) ... done 1556s [00:52:36.873] resolve() on list ... DONE 1556s [00:52:36.873] - Number of value chunks collected: 1 1556s [00:52:36.873] Resolving 1 futures (chunks) ... DONE 1556s [00:52:36.873] Reducing values from 1 chunks ... 1556s [00:52:36.874] - Number of values collected after concatenation: 4 1556s [00:52:36.874] - Number of values expected: 4 1556s [00:52:36.874] Reverse index remapping (attribute 'ordering'): [n = 4] 4, 3, 2, 1 1556s List of 1 1556s $ y:List[00:52:36.874] Reducing values from 1 chunks ... DONE 1556s [00:52:36.874] future_lapply() ... DONE 1556s of 4 1556s ..$ a: int [1:2] 0 0 1556s ..$ b: num [1:2] 0 0 1556s ..$ c: chr [1:2] "" "" 1556s ..$ c:List of 2 1556s .. ..$ : NULL 1556s .. ..$ : NULL 1556s - future_lapply(x, FUN = base::vector, ...) ... 1556s [00:52:36.879] future_lapply() ... 1556s [00:52:36.889] Number of chunks: 1 1556s [00:52:36.889] Index remapping (attribute 'ordering'): [n = 4] 4, 3, 2, 1 1556s [00:52:36.890] getGlobalsAndPackagesXApply() ... 1556s [00:52:36.890] - future.globals: TRUE 1556s [00:52:36.890] getGlobalsAndPackages() ... 1556s [00:52:36.891] Searching for globals... 1556s [00:52:36.894] - globals found: [2] ‘FUN’, ‘.Internal’ 1556s [00:52:36.894] Searching for globals ... DONE 1556s [00:52:36.894] Resolving globals: FALSE 1556s [00:52:36.894] The total size of the 1 globals is 2.13 KiB (2184 bytes) 1556s [00:52:36.895] The total size of the 1 globals exported for future expression (‘FUN(length = 2L)’) is 2.13 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (2.13 KiB of class ‘function’) 1556s [00:52:36.895] - globals: [1] ‘FUN’ 1556s [00:52:36.896] 1556s [00:52:36.896] getGlobalsAndPackages() ... DONE 1556s [00:52:36.896] - globals found/used: [n=1] ‘FUN’ 1556s [00:52:36.897] - needed namespaces: [n=0] 1556s [00:52:36.897] Finding globals ... DONE 1556s [00:52:36.897] - use_args: TRUE 1556s [00:52:36.897] - Getting '...' globals ... 1556s [00:52:36.898] resolve() on list ... 1556s [00:52:36.899] recursive: 0 1556s [00:52:36.899] length: 1 1556s [00:52:36.899] elements: ‘...’ 1556s [00:52:36.899] length: 0 (resolved future 1) 1556s [00:52:36.900] resolve() on list ... DONE 1556s [00:52:36.900] - '...' content: [n=1] ‘length’ 1556s [00:52:36.900] List of 1 1556s [00:52:36.900] $ ...:List of 1 1556s [00:52:36.900] ..$ length: int 2 1556s [00:52:36.900] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1556s [00:52:36.900] - attr(*, "where")=List of 1 1556s [00:52:36.900] ..$ ...: 1556s [00:52:36.900] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1556s [00:52:36.900] - attr(*, "resolved")= logi TRUE 1556s [00:52:36.900] - attr(*, "total_size")= num NA 1556s [00:52:36.906] - Getting '...' globals ... DONE 1556s [00:52:36.906] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1556s [00:52:36.906] List of 2 1556s [00:52:36.906] $ ...future.FUN:function (mode = "logical", length = 0L) 1556s [00:52:36.906] $ ... :List of 1 1556s [00:52:36.906] ..$ length: int 2 1556s [00:52:36.906] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1556s [00:52:36.906] - attr(*, "where")=List of 2 1556s [00:52:36.906] ..$ ...future.FUN: 1556s [00:52:36.906] ..$ ... : 1556s [00:52:36.906] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1556s [00:52:36.906] - attr(*, "resolved")= logi FALSE 1556s [00:52:36.906] - attr(*, "total_size")= num 2240 1556s [00:52:36.913] Packages to be attached in all futures: [n=0] 1556s [00:52:36.913] getGlobalsAndPackagesXApply() ... DONE 1556s [00:52:36.913] Number of futures (= number of chunks): 1 1556s [00:52:36.913] Launching 1 futures (chunks) ... 1556s [00:52:36.913] Chunk #1 of 1 ... 1556s [00:52:36.914] - Finding globals in 'X' for chunk #1 ... 1556s [00:52:36.914] getGlobalsAndPackages() ... 1556s [00:52:36.914] Searching for globals... 1556s [00:52:36.914] 1556s [00:52:36.914] Searching for globals ... DONE 1556s [00:52:36.915] - globals: [0] 1556s [00:52:36.915] getGlobalsAndPackages() ... DONE 1556s [00:52:36.915] + additional globals found: [n=0] 1556s [00:52:36.915] + additional namespaces needed: [n=0] 1556s [00:52:36.916] - Finding globals in 'X' for chunk #1 ... DONE 1556s [00:52:36.916] - seeds: 1556s [00:52:36.916] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1556s [00:52:36.916] getGlobalsAndPackages() ... 1556s [00:52:36.917] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1556s [00:52:36.917] Resolving globals: FALSE 1556s [00:52:36.917] Tweak future expression to call with '...' arguments ... 1556s [00:52:36.917] { 1556s [00:52:36.917] do.call(function(...) { 1556s [00:52:36.917] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1556s [00:52:36.917] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1556s [00:52:36.917] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1556s [00:52:36.917] on.exit(options(oopts), add = TRUE) 1556s [00:52:36.917] } 1556s [00:52:36.917] { 1556s [00:52:36.917] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1556s [00:52:36.917] ...future.X_jj <- ...future.elements_ii[[jj]] 1556s [00:52:36.917] ...future.FUN(...future.X_jj, ...) 1556s [00:52:36.917] }) 1556s [00:52:36.917] } 1556s [00:52:36.917] }, args = future.call.arguments) 1556s [00:52:36.917] } 1556s [00:52:36.918] Tweak future expression to call with '...' arguments ... DONE 1556s [00:52:36.919] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1556s [00:52:36.919] 1556s [00:52:36.919] getGlobalsAndPackages() ... DONE 1556s [00:52:36.920] run() for ‘Future’ ... 1556s [00:52:36.920] - state: ‘created’ 1556s [00:52:36.920] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1556s [00:52:36.925] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1556s [00:52:36.925] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1556s [00:52:36.925] - Field: ‘label’ 1556s [00:52:36.926] - Field: ‘local’ 1556s [00:52:36.926] - Field: ‘owner’ 1556s [00:52:36.926] - Field: ‘envir’ 1556s [00:52:36.926] - Field: ‘packages’ 1556s [00:52:36.926] - Field: ‘gc’ 1556s [00:52:36.926] - Field: ‘conditions’ 1556s [00:52:36.926] - Field: ‘expr’ 1556s [00:52:36.927] - Field: ‘uuid’ 1556s [00:52:36.927] - Field: ‘seed’ 1556s [00:52:36.927] - Field: ‘version’ 1556s [00:52:36.927] - Field: ‘result’ 1556s [00:52:36.927] - Field: ‘asynchronous’ 1556s [00:52:36.927] - Field: ‘calls’ 1556s [00:52:36.927] - Field: ‘globals’ 1556s [00:52:36.928] - Field: ‘stdout’ 1556s [00:52:36.928] - Field: ‘earlySignal’ 1556s [00:52:36.928] - Field: ‘lazy’ 1556s [00:52:36.928] - Field: ‘state’ 1556s [00:52:36.928] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1556s [00:52:36.928] - Launch lazy future ... 1556s [00:52:36.929] Packages needed by the future expression (n = 0): 1556s [00:52:36.929] Packages needed by future strategies (n = 0): 1556s [00:52:36.930] { 1556s [00:52:36.930] { 1556s [00:52:36.930] { 1556s [00:52:36.930] ...future.startTime <- base::Sys.time() 1556s [00:52:36.930] { 1556s [00:52:36.930] { 1556s [00:52:36.930] { 1556s [00:52:36.930] base::local({ 1556s [00:52:36.930] has_future <- base::requireNamespace("future", 1556s [00:52:36.930] quietly = TRUE) 1556s [00:52:36.930] if (has_future) { 1556s [00:52:36.930] ns <- base::getNamespace("future") 1556s [00:52:36.930] version <- ns[[".package"]][["version"]] 1556s [00:52:36.930] if (is.null(version)) 1556s [00:52:36.930] version <- utils::packageVersion("future") 1556s [00:52:36.930] } 1556s [00:52:36.930] else { 1556s [00:52:36.930] version <- NULL 1556s [00:52:36.930] } 1556s [00:52:36.930] if (!has_future || version < "1.8.0") { 1556s [00:52:36.930] info <- base::c(r_version = base::gsub("R version ", 1556s [00:52:36.930] "", base::R.version$version.string), 1556s [00:52:36.930] platform = base::sprintf("%s (%s-bit)", 1556s [00:52:36.930] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1556s [00:52:36.930] os = base::paste(base::Sys.info()[base::c("sysname", 1556s [00:52:36.930] "release", "version")], collapse = " "), 1556s [00:52:36.930] hostname = base::Sys.info()[["nodename"]]) 1556s [00:52:36.930] info <- base::sprintf("%s: %s", base::names(info), 1556s [00:52:36.930] info) 1556s [00:52:36.930] info <- base::paste(info, collapse = "; ") 1556s [00:52:36.930] if (!has_future) { 1556s [00:52:36.930] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1556s [00:52:36.930] info) 1556s [00:52:36.930] } 1556s [00:52:36.930] else { 1556s [00:52:36.930] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1556s [00:52:36.930] info, version) 1556s [00:52:36.930] } 1556s [00:52:36.930] base::stop(msg) 1556s [00:52:36.930] } 1556s [00:52:36.930] }) 1556s [00:52:36.930] } 1556s [00:52:36.930] options(future.plan = NULL) 1556s [00:52:36.930] Sys.unsetenv("R_FUTURE_PLAN") 1556s [00:52:36.930] future::plan("default", .cleanup = FALSE, .init = FALSE) 1556s [00:52:36.930] } 1556s [00:52:36.930] ...future.workdir <- getwd() 1556s [00:52:36.930] } 1556s [00:52:36.930] ...future.oldOptions <- base::as.list(base::.Options) 1556s [00:52:36.930] ...future.oldEnvVars <- base::Sys.getenv() 1556s [00:52:36.930] } 1556s [00:52:36.930] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1556s [00:52:36.930] future.globals.maxSize = NULL, future.globals.method = NULL, 1556s [00:52:36.930] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1556s [00:52:36.930] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1556s [00:52:36.930] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1556s [00:52:36.930] future.stdout.windows.reencode = NULL, width = 80L) 1556s [00:52:36.930] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1556s [00:52:36.930] base::names(...future.oldOptions)) 1556s [00:52:36.930] } 1556s [00:52:36.930] if (FALSE) { 1556s [00:52:36.930] } 1556s [00:52:36.930] else { 1556s [00:52:36.930] if (TRUE) { 1556s [00:52:36.930] ...future.stdout <- base::rawConnection(base::raw(0L), 1556s [00:52:36.930] open = "w") 1556s [00:52:36.930] } 1556s [00:52:36.930] else { 1556s [00:52:36.930] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1556s [00:52:36.930] windows = "NUL", "/dev/null"), open = "w") 1556s [00:52:36.930] } 1556s [00:52:36.930] base::sink(...future.stdout, type = "output", split = FALSE) 1556s [00:52:36.930] base::on.exit(if (!base::is.null(...future.stdout)) { 1556s [00:52:36.930] base::sink(type = "output", split = FALSE) 1556s [00:52:36.930] base::close(...future.stdout) 1556s [00:52:36.930] }, add = TRUE) 1556s [00:52:36.930] } 1556s [00:52:36.930] ...future.frame <- base::sys.nframe() 1556s [00:52:36.930] ...future.conditions <- base::list() 1556s [00:52:36.930] ...future.rng <- base::globalenv()$.Random.seed 1556s [00:52:36.930] if (FALSE) { 1556s [00:52:36.930] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1556s [00:52:36.930] "...future.value", "...future.globalenv.names", ".Random.seed") 1556s [00:52:36.930] } 1556s [00:52:36.930] ...future.result <- base::tryCatch({ 1556s [00:52:36.930] base::withCallingHandlers({ 1556s [00:52:36.930] ...future.value <- base::withVisible(base::local({ 1556s [00:52:36.930] do.call(function(...) { 1556s [00:52:36.930] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1556s [00:52:36.930] if (!identical(...future.globals.maxSize.org, 1556s [00:52:36.930] ...future.globals.maxSize)) { 1556s [00:52:36.930] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1556s [00:52:36.930] on.exit(options(oopts), add = TRUE) 1556s [00:52:36.930] } 1556s [00:52:36.930] { 1556s [00:52:36.930] lapply(seq_along(...future.elements_ii), 1556s [00:52:36.930] FUN = function(jj) { 1556s [00:52:36.930] ...future.X_jj <- ...future.elements_ii[[jj]] 1556s [00:52:36.930] ...future.FUN(...future.X_jj, ...) 1556s [00:52:36.930] }) 1556s [00:52:36.930] } 1556s [00:52:36.930] }, args = future.call.arguments) 1556s [00:52:36.930] })) 1556s [00:52:36.930] future::FutureResult(value = ...future.value$value, 1556s [00:52:36.930] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1556s [00:52:36.930] ...future.rng), globalenv = if (FALSE) 1556s [00:52:36.930] list(added = base::setdiff(base::names(base::.GlobalEnv), 1556s [00:52:36.930] ...future.globalenv.names)) 1556s [00:52:36.930] else NULL, started = ...future.startTime, version = "1.8") 1556s [00:52:36.930] }, condition = base::local({ 1556s [00:52:36.930] c <- base::c 1556s [00:52:36.930] inherits <- base::inherits 1556s [00:52:36.930] invokeRestart <- base::invokeRestart 1556s [00:52:36.930] length <- base::length 1556s [00:52:36.930] list <- base::list 1556s [00:52:36.930] seq.int <- base::seq.int 1556s [00:52:36.930] signalCondition <- base::signalCondition 1556s [00:52:36.930] sys.calls <- base::sys.calls 1556s [00:52:36.930] `[[` <- base::`[[` 1556s [00:52:36.930] `+` <- base::`+` 1556s [00:52:36.930] `<<-` <- base::`<<-` 1556s [00:52:36.930] sysCalls <- function(calls = sys.calls(), from = 1L) { 1556s [00:52:36.930] calls[seq.int(from = from + 12L, to = length(calls) - 1556s [00:52:36.930] 3L)] 1556s [00:52:36.930] } 1556s [00:52:36.930] function(cond) { 1556s [00:52:36.930] is_error <- inherits(cond, "error") 1556s [00:52:36.930] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1556s [00:52:36.930] NULL) 1556s [00:52:36.930] if (is_error) { 1556s [00:52:36.930] sessionInformation <- function() { 1556s [00:52:36.930] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1556s [00:52:36.930] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1556s [00:52:36.930] search = base::search(), system = base::Sys.info()) 1556s [00:52:36.930] } 1556s [00:52:36.930] ...future.conditions[[length(...future.conditions) + 1556s [00:52:36.930] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1556s [00:52:36.930] cond$call), session = sessionInformation(), 1556s [00:52:36.930] timestamp = base::Sys.time(), signaled = 0L) 1556s [00:52:36.930] signalCondition(cond) 1556s [00:52:36.930] } 1556s [00:52:36.930] else if (!ignore && TRUE && inherits(cond, c("condition", 1556s [00:52:36.930] "immediateCondition"))) { 1556s [00:52:36.930] signal <- TRUE && inherits(cond, "immediateCondition") 1556s [00:52:36.930] ...future.conditions[[length(...future.conditions) + 1556s [00:52:36.930] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1556s [00:52:36.930] if (TRUE && !signal) { 1556s [00:52:36.930] muffleCondition <- function (cond, pattern = "^muffle") 1556s [00:52:36.930] { 1556s [00:52:36.930] inherits <- base::inherits 1556s [00:52:36.930] invokeRestart <- base::invokeRestart 1556s [00:52:36.930] is.null <- base::is.null 1556s [00:52:36.930] muffled <- FALSE 1556s [00:52:36.930] if (inherits(cond, "message")) { 1556s [00:52:36.930] muffled <- grepl(pattern, "muffleMessage") 1556s [00:52:36.930] if (muffled) 1556s [00:52:36.930] invokeRestart("muffleMessage") 1556s [00:52:36.930] } 1556s [00:52:36.930] else if (inherits(cond, "warning")) { 1556s [00:52:36.930] muffled <- grepl(pattern, "muffleWarning") 1556s [00:52:36.930] if (muffled) 1556s [00:52:36.930] invokeRestart("muffleWarning") 1556s [00:52:36.930] } 1556s [00:52:36.930] else if (inherits(cond, "condition")) { 1556s [00:52:36.930] if (!is.null(pattern)) { 1556s [00:52:36.930] computeRestarts <- base::computeRestarts 1556s [00:52:36.930] grepl <- base::grepl 1556s [00:52:36.930] restarts <- computeRestarts(cond) 1556s [00:52:36.930] for (restart in restarts) { 1556s [00:52:36.930] name <- restart$name 1556s [00:52:36.930] if (is.null(name)) 1556s [00:52:36.930] next 1556s [00:52:36.930] if (!grepl(pattern, name)) 1556s [00:52:36.930] next 1556s [00:52:36.930] invokeRestart(restart) 1556s [00:52:36.930] muffled <- TRUE 1556s [00:52:36.930] break 1556s [00:52:36.930] } 1556s [00:52:36.930] } 1556s [00:52:36.930] } 1556s [00:52:36.930] invisible(muffled) 1556s [00:52:36.930] } 1556s [00:52:36.930] muffleCondition(cond, pattern = "^muffle") 1556s [00:52:36.930] } 1556s [00:52:36.930] } 1556s [00:52:36.930] else { 1556s [00:52:36.930] if (TRUE) { 1556s [00:52:36.930] muffleCondition <- function (cond, pattern = "^muffle") 1556s [00:52:36.930] { 1556s [00:52:36.930] inherits <- base::inherits 1556s [00:52:36.930] invokeRestart <- base::invokeRestart 1556s [00:52:36.930] is.null <- base::is.null 1556s [00:52:36.930] muffled <- FALSE 1556s [00:52:36.930] if (inherits(cond, "message")) { 1556s [00:52:36.930] muffled <- grepl(pattern, "muffleMessage") 1556s [00:52:36.930] if (muffled) 1556s [00:52:36.930] invokeRestart("muffleMessage") 1556s [00:52:36.930] } 1556s [00:52:36.930] else if (inherits(cond, "warning")) { 1556s [00:52:36.930] muffled <- grepl(pattern, "muffleWarning") 1556s [00:52:36.930] if (muffled) 1556s [00:52:36.930] invokeRestart("muffleWarning") 1556s [00:52:36.930] } 1556s [00:52:36.930] else if (inherits(cond, "condition")) { 1556s [00:52:36.930] if (!is.null(pattern)) { 1556s [00:52:36.930] computeRestarts <- base::computeRestarts 1556s [00:52:36.930] grepl <- base::grepl 1556s [00:52:36.930] restarts <- computeRestarts(cond) 1556s [00:52:36.930] for (restart in restarts) { 1556s [00:52:36.930] name <- restart$name 1556s [00:52:36.930] if (is.null(name)) 1556s [00:52:36.930] next 1556s [00:52:36.930] if (!grepl(pattern, name)) 1556s [00:52:36.930] next 1556s [00:52:36.930] invokeRestart(restart) 1556s [00:52:36.930] muffled <- TRUE 1556s [00:52:36.930] break 1556s [00:52:36.930] } 1556s [00:52:36.930] } 1556s [00:52:36.930] } 1556s [00:52:36.930] invisible(muffled) 1556s [00:52:36.930] } 1556s [00:52:36.930] muffleCondition(cond, pattern = "^muffle") 1556s [00:52:36.930] } 1556s [00:52:36.930] } 1556s [00:52:36.930] } 1556s [00:52:36.930] })) 1556s [00:52:36.930] }, error = function(ex) { 1556s [00:52:36.930] base::structure(base::list(value = NULL, visible = NULL, 1556s [00:52:36.930] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1556s [00:52:36.930] ...future.rng), started = ...future.startTime, 1556s [00:52:36.930] finished = Sys.time(), session_uuid = NA_character_, 1556s [00:52:36.930] version = "1.8"), class = "FutureResult") 1556s [00:52:36.930] }, finally = { 1556s [00:52:36.930] if (!identical(...future.workdir, getwd())) 1556s [00:52:36.930] setwd(...future.workdir) 1556s [00:52:36.930] { 1556s [00:52:36.930] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1556s [00:52:36.930] ...future.oldOptions$nwarnings <- NULL 1556s [00:52:36.930] } 1556s [00:52:36.930] base::options(...future.oldOptions) 1556s [00:52:36.930] if (.Platform$OS.type == "windows") { 1556s [00:52:36.930] old_names <- names(...future.oldEnvVars) 1556s [00:52:36.930] envs <- base::Sys.getenv() 1556s [00:52:36.930] names <- names(envs) 1556s [00:52:36.930] common <- intersect(names, old_names) 1556s [00:52:36.930] added <- setdiff(names, old_names) 1556s [00:52:36.930] removed <- setdiff(old_names, names) 1556s [00:52:36.930] changed <- common[...future.oldEnvVars[common] != 1556s [00:52:36.930] envs[common]] 1556s [00:52:36.930] NAMES <- toupper(changed) 1556s [00:52:36.930] args <- list() 1556s [00:52:36.930] for (kk in seq_along(NAMES)) { 1556s [00:52:36.930] name <- changed[[kk]] 1556s [00:52:36.930] NAME <- NAMES[[kk]] 1556s [00:52:36.930] if (name != NAME && is.element(NAME, old_names)) 1556s [00:52:36.930] next 1556s [00:52:36.930] args[[name]] <- ...future.oldEnvVars[[name]] 1556s [00:52:36.930] } 1556s [00:52:36.930] NAMES <- toupper(added) 1556s [00:52:36.930] for (kk in seq_along(NAMES)) { 1556s [00:52:36.930] name <- added[[kk]] 1556s [00:52:36.930] NAME <- NAMES[[kk]] 1556s [00:52:36.930] if (name != NAME && is.element(NAME, old_names)) 1556s [00:52:36.930] next 1556s [00:52:36.930] args[[name]] <- "" 1556s [00:52:36.930] } 1556s [00:52:36.930] NAMES <- toupper(removed) 1556s [00:52:36.930] for (kk in seq_along(NAMES)) { 1556s [00:52:36.930] name <- removed[[kk]] 1556s [00:52:36.930] NAME <- NAMES[[kk]] 1556s [00:52:36.930] if (name != NAME && is.element(NAME, old_names)) 1556s [00:52:36.930] next 1556s [00:52:36.930] args[[name]] <- ...future.oldEnvVars[[name]] 1556s [00:52:36.930] } 1556s [00:52:36.930] if (length(args) > 0) 1556s [00:52:36.930] base::do.call(base::Sys.setenv, args = args) 1556s [00:52:36.930] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1556s [00:52:36.930] } 1556s [00:52:36.930] else { 1556s [00:52:36.930] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1556s [00:52:36.930] } 1556s [00:52:36.930] { 1556s [00:52:36.930] if (base::length(...future.futureOptionsAdded) > 1556s [00:52:36.930] 0L) { 1556s [00:52:36.930] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1556s [00:52:36.930] base::names(opts) <- ...future.futureOptionsAdded 1556s [00:52:36.930] base::options(opts) 1556s [00:52:36.930] } 1556s [00:52:36.930] { 1556s [00:52:36.930] { 1556s [00:52:36.930] NULL 1556s [00:52:36.930] RNGkind("Mersenne-Twister") 1556s [00:52:36.930] base::rm(list = ".Random.seed", envir = base::globalenv(), 1556s [00:52:36.930] inherits = FALSE) 1556s [00:52:36.930] } 1556s [00:52:36.930] options(future.plan = NULL) 1556s [00:52:36.930] if (is.na(NA_character_)) 1556s [00:52:36.930] Sys.unsetenv("R_FUTURE_PLAN") 1556s [00:52:36.930] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1556s [00:52:36.930] future::plan(list(function (..., workers = availableCores(), 1556s [00:52:36.930] lazy = FALSE, rscript_libs = .libPaths(), 1556s [00:52:36.930] envir = parent.frame()) 1556s [00:52:36.930] { 1556s [00:52:36.930] if (is.function(workers)) 1556s [00:52:36.930] workers <- workers() 1556s [00:52:36.930] workers <- structure(as.integer(workers), 1556s [00:52:36.930] class = class(workers)) 1556s [00:52:36.930] stop_if_not(length(workers) == 1, is.finite(workers), 1556s [00:52:36.930] workers >= 1) 1556s [00:52:36.930] if (workers == 1L && !inherits(workers, "AsIs")) { 1556s [00:52:36.930] return(sequential(..., lazy = TRUE, envir = envir)) 1556s [00:52:36.930] } 1556s [00:52:36.930] future <- MultisessionFuture(..., workers = workers, 1556s [00:52:36.930] lazy = lazy, rscript_libs = rscript_libs, 1556s [00:52:36.930] envir = envir) 1556s [00:52:36.930] if (!future$lazy) 1556s [00:52:36.930] future <- run(future) 1556s [00:52:36.930] invisible(future) 1556s [00:52:36.930] }), .cleanup = FALSE, .init = FALSE) 1556s [00:52:36.930] } 1556s [00:52:36.930] } 1556s [00:52:36.930] } 1556s [00:52:36.930] }) 1556s [00:52:36.930] if (TRUE) { 1556s [00:52:36.930] base::sink(type = "output", split = FALSE) 1556s [00:52:36.930] if (TRUE) { 1556s [00:52:36.930] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1556s [00:52:36.930] } 1556s [00:52:36.930] else { 1556s [00:52:36.930] ...future.result["stdout"] <- base::list(NULL) 1556s [00:52:36.930] } 1556s [00:52:36.930] base::close(...future.stdout) 1556s [00:52:36.930] ...future.stdout <- NULL 1556s [00:52:36.930] } 1556s [00:52:36.930] ...future.result$conditions <- ...future.conditions 1556s [00:52:36.930] ...future.result$finished <- base::Sys.time() 1556s [00:52:36.930] ...future.result 1556s [00:52:36.930] } 1556s [00:52:36.939] assign_globals() ... 1556s [00:52:36.939] List of 5 1556s [00:52:36.939] $ ...future.FUN :function (mode = "logical", length = 0L) 1556s [00:52:36.939] $ future.call.arguments :List of 1 1556s [00:52:36.939] ..$ length: int 2 1556s [00:52:36.939] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1556s [00:52:36.939] $ ...future.elements_ii :List of 4 1556s [00:52:36.939] ..$ c: chr "list" 1556s [00:52:36.939] ..$ c: chr "character" 1556s [00:52:36.939] ..$ b: chr "numeric" 1556s [00:52:36.939] ..$ a: chr "integer" 1556s [00:52:36.939] $ ...future.seeds_ii : NULL 1556s [00:52:36.939] $ ...future.globals.maxSize: NULL 1556s [00:52:36.939] - attr(*, "where")=List of 5 1556s [00:52:36.939] ..$ ...future.FUN : 1556s [00:52:36.939] ..$ future.call.arguments : 1556s [00:52:36.939] ..$ ...future.elements_ii : 1556s [00:52:36.939] ..$ ...future.seeds_ii : 1556s [00:52:36.939] ..$ ...future.globals.maxSize: 1556s [00:52:36.939] - attr(*, "resolved")= logi FALSE 1556s [00:52:36.939] - attr(*, "total_size")= num 2240 1556s [00:52:36.939] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1556s [00:52:36.939] - attr(*, "already-done")= logi TRUE 1556s [00:52:36.948] - copied ‘...future.FUN’ to environment 1556s [00:52:36.949] - copied ‘future.call.arguments’ to environment 1556s [00:52:36.949] - copied ‘...future.elements_ii’ to environment 1556s [00:52:36.949] - copied ‘...future.seeds_ii’ to environment 1556s [00:52:36.949] - copied ‘...future.globals.maxSize’ to environment 1556s [00:52:36.949] assign_globals() ... done 1556s [00:52:36.950] plan(): Setting new future strategy stack: 1556s [00:52:36.950] List of future strategies: 1556s [00:52:36.950] 1. sequential: 1556s [00:52:36.950] - args: function (..., envir = parent.frame()) 1556s [00:52:36.950] - tweaked: FALSE 1556s [00:52:36.950] - call: NULL 1556s [00:52:36.950] plan(): nbrOfWorkers() = 1 1556s [00:52:36.951] plan(): Setting new future strategy stack: 1556s [00:52:36.952] List of future strategies: 1556s [00:52:36.952] 1. multisession: 1556s [00:52:36.952] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1556s [00:52:36.952] - tweaked: FALSE 1556s [00:52:36.952] - call: plan(strategy) 1556s [00:52:36.957] plan(): nbrOfWorkers() = 1 1556s [00:52:36.957] SequentialFuture started (and completed) 1556s [00:52:36.957] - Launch lazy future ... done 1556s [00:52:36.957] run() for ‘SequentialFuture’ ... done 1556s [00:52:36.958] Created future: 1556s [00:52:36.958] SequentialFuture: 1556s [00:52:36.958] Label: ‘future_lapply-1’ 1556s [00:52:36.958] Expression: 1556s [00:52:36.958] { 1556s [00:52:36.958] do.call(function(...) { 1556s [00:52:36.958] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1556s [00:52:36.958] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1556s [00:52:36.958] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1556s [00:52:36.958] on.exit(options(oopts), add = TRUE) 1556s [00:52:36.958] } 1556s [00:52:36.958] { 1556s [00:52:36.958] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1556s [00:52:36.958] ...future.X_jj <- ...future.elements_ii[[jj]] 1556s [00:52:36.958] ...future.FUN(...future.X_jj, ...) 1556s [00:52:36.958] }) 1556s [00:52:36.958] } 1556s [00:52:36.958] }, args = future.call.arguments) 1556s [00:52:36.958] } 1556s [00:52:36.958] Lazy evaluation: FALSE 1556s [00:52:36.958] Asynchronous evaluation: FALSE 1556s [00:52:36.958] Local evaluation: TRUE 1556s [00:52:36.958] Environment: R_GlobalEnv 1556s [00:52:36.958] Capture standard output: TRUE 1556s [00:52:36.958] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1556s [00:52:36.958] Globals: 5 objects totaling 2.63 KiB (function ‘...future.FUN’ of 2.13 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 456 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1556s [00:52:36.958] Packages: 1556s [00:52:36.958] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1556s [00:52:36.958] Resolved: TRUE 1556s [00:52:36.958] Value: 240 bytes of class ‘list’ 1556s [00:52:36.958] Early signaling: FALSE 1556s [00:52:36.958] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1556s [00:52:36.958] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1556s [00:52:36.961] Chunk #1 of 1 ... DONE 1556s [00:52:36.961] Launching 1 futures (chunks) ... DONE 1556s [00:52:36.962] Resolving 1 futures (chunks) ... 1556s [00:52:36.962] resolve() on list ... 1556s [00:52:36.962] recursive: 0 1556s [00:52:36.962] length: 1 1556s [00:52:36.962] 1556s [00:52:36.963] resolved() for ‘SequentialFuture’ ... 1556s [00:52:36.963] - state: ‘finished’ 1556s [00:52:36.963] - run: TRUE 1556s [00:52:36.963] - result: ‘FutureResult’ 1556s [00:52:36.964] resolved() for ‘SequentialFuture’ ... done 1556s [00:52:36.964] Future #1 1556s [00:52:36.965] signalConditionsASAP(SequentialFuture, pos=1) ... 1556s [00:52:36.965] - nx: 1 1556s [00:52:36.965] - relay: TRUE 1556s [00:52:36.966] - stdout: TRUE 1556s [00:52:36.966] - signal: TRUE 1556s [00:52:36.966] - resignal: FALSE 1556s [00:52:36.966] - force: TRUE 1556s [00:52:36.966] - relayed: [n=1] FALSE 1556s [00:52:36.967] - queued futures: [n=1] FALSE 1556s [00:52:36.967] - until=1 1556s [00:52:36.967] - relaying element #1 1556s [00:52:36.967] - relayed: [n=1] TRUE 1556s [00:52:36.968] - queued futures: [n=1] TRUE 1556s [00:52:36.968] signalConditionsASAP(SequentialFuture, pos=1) ... done 1557s [00:52:36.968] length: 0 (resolved future 1) 1557s [00:52:36.968] Relaying remaining futures 1557s [00:52:36.968] signalConditionsASAP(NULL, pos=0) ... 1557s [00:52:36.969] - nx: 1 1557s [00:52:36.969] - relay: TRUE 1557s [00:52:36.969] - stdout: TRUE 1557s [00:52:36.969] - signal: TRUE 1557s [00:52:36.969] - resignal: FALSE 1557s [00:52:36.969] - force: TRUE 1557s [00:52:36.969] - relayed: [n=1] TRUE 1557s [00:52:36.969] - queued futures: [n=1] TRUE 1557s - flush all 1557s [00:52:36.970] - relayed: [n=1] TRUE 1557s [00:52:36.970] - queued futures: [n=1] TRUE 1557s [00:52:36.971] signalConditionsASAP(NULL, pos=0) ... done 1557s [00:52:36.972] resolve() on list ... DONE 1557s [00:52:36.972] - Number of value chunks collected: 1 1557s [00:52:36.973] Resolving 1 futures (chunks) ... DONE 1557s [00:52:36.973] Reducing values from 1 chunks ... 1557s [00:52:36.973] - Number of values collected after concatenation: 4 1557s [00:52:36.974] - Number of values expected: 4 1557s [00:52:36.974] Reverse index remapping (attribute 'ordering'): [n = 4] 4, 3, 2, 1 1557s [00:52:36.974] Reducing values from 1 chunks ... DONE 1557s List[00:52:36.974] future_lapply() ... DONE 1557s - future_lapply(x, FUN = future:::hpaste, ...) ... 1557s [00:52:36.978] future_lapply() ... 1557s of 1 1557s $ y:List of 4 1557s ..$ a: int [1:2] 0 0 1557s ..$ b: num [1:2] 0 0 1557s ..$ c: chr [1:2] "" "" 1557s ..$ c:List of 2 1557s .. ..$ : NULL 1557s .. ..$ : NULL 1557s [00:52:36.996] Number of chunks: 1 1557s [00:52:36.997] getGlobalsAndPackagesXApply() ... 1557s [00:52:36.998] - future.globals: TRUE 1557s [00:52:36.998] getGlobalsAndPackages() ... 1557s [00:52:36.998] Searching for globals... 1557s [00:52:37.014] - globals found: [22] ‘FUN’, ‘if’, ‘missing’, ‘is.finite’, ‘{’, ‘is.null’, ‘<-’, ‘paste’, ‘length’, ‘==’, ‘return’, ‘>’, ‘+’, ‘[’, ‘seq_len’, ‘rev’, ‘c’, ‘&&’, ‘!’, ‘:’, ‘(’, ‘-’ 1557s [00:52:37.015] Searching for globals ... DONE 1557s [00:52:37.015] Resolving globals: FALSE 1557s [00:52:37.016] The total size of the 1 globals is 69.62 KiB (71288 bytes) 1557s [00:52:37.017] The total size of the 1 globals exported for future expression (‘FUN(collapse = "; ", maxHead = 3L)’) is 69.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (69.62 KiB of class ‘function’) 1557s [00:52:37.017] - globals: [1] ‘FUN’ 1557s [00:52:37.017] - packages: [1] ‘future’ 1557s [00:52:37.018] getGlobalsAndPackages() ... DONE 1557s [00:52:37.018] - globals found/used: [n=1] ‘FUN’ 1557s [00:52:37.018] - needed namespaces: [n=1] ‘future’ 1557s [00:52:37.018] Finding globals ... DONE 1557s [00:52:37.018] - use_args: TRUE 1557s [00:52:37.018] - Getting '...' globals ... 1557s [00:52:37.019] resolve() on list ... 1557s [00:52:37.020] recursive: 0 1557s [00:52:37.020] length: 1 1557s [00:52:37.020] elements: ‘...’ 1557s [00:52:37.020] length: 0 (resolved future 1) 1557s [00:52:37.021] resolve() on list ... DONE 1557s [00:52:37.021] - '...' content: [n=2] ‘collapse’, ‘maxHead’ 1557s [00:52:37.021] List of 1 1557s [00:52:37.021] $ ...:List of 2 1557s [00:52:37.021] ..$ collapse: chr "; " 1557s [00:52:37.021] ..$ maxHead : int 3 1557s [00:52:37.021] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1557s [00:52:37.021] - attr(*, "where")=List of 1 1557s [00:52:37.021] ..$ ...: 1557s [00:52:37.021] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1557s [00:52:37.021] - attr(*, "resolved")= logi TRUE 1557s [00:52:37.021] - attr(*, "total_size")= num NA 1557s [00:52:37.027] - Getting '...' globals ... DONE 1557s [00:52:37.027] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1557s [00:52:37.027] List of 2 1557s [00:52:37.027] $ ...future.FUN:function (..., sep = "", collapse = ", ", lastCollapse = NULL, maxHead = if (missing(lastCollapse)) 3 else Inf, 1557s [00:52:37.027] maxTail = if (is.finite(maxHead)) 1 else Inf, abbreviate = "...") 1557s [00:52:37.027] $ ... :List of 2 1557s [00:52:37.027] ..$ collapse: chr "; " 1557s [00:52:37.027] ..$ maxHead : int 3 1557s [00:52:37.027] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1557s [00:52:37.027] - attr(*, "where")=List of 2 1557s [00:52:37.027] ..$ ...future.FUN: 1557s [00:52:37.027] ..$ ... : 1557s [00:52:37.027] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1557s [00:52:37.027] - attr(*, "resolved")= logi FALSE 1557s [00:52:37.027] - attr(*, "total_size")= num 71456 1557s [00:52:37.035] Packages to be attached in all futures: [n=1] ‘future’ 1557s [00:52:37.035] getGlobalsAndPackagesXApply() ... DONE 1557s [00:52:37.035] Number of futures (= number of chunks): 1 1557s [00:52:37.036] Launching 1 futures (chunks) ... 1557s [00:52:37.036] Chunk #1 of 1 ... 1557s [00:52:37.036] - Finding globals in 'X' for chunk #1 ... 1557s [00:52:37.036] getGlobalsAndPackages() ... 1557s [00:52:37.037] Searching for globals... 1557s [00:52:37.037] 1557s [00:52:37.037] Searching for globals ... DONE 1557s [00:52:37.038] - globals: [0] 1557s [00:52:37.038] getGlobalsAndPackages() ... DONE 1557s [00:52:37.042] + additional globals found: [n=0] 1557s [00:52:37.042] + additional namespaces needed: [n=0] 1557s [00:52:37.042] - Finding globals in 'X' for chunk #1 ... DONE 1557s [00:52:37.043] - seeds: 1557s [00:52:37.043] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1557s [00:52:37.043] getGlobalsAndPackages() ... 1557s [00:52:37.043] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1557s [00:52:37.043] Resolving globals: FALSE 1557s [00:52:37.044] Tweak future expression to call with '...' arguments ... 1557s [00:52:37.044] { 1557s [00:52:37.044] do.call(function(...) { 1557s [00:52:37.044] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1557s [00:52:37.044] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1557s [00:52:37.044] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1557s [00:52:37.044] on.exit(options(oopts), add = TRUE) 1557s [00:52:37.044] } 1557s [00:52:37.044] { 1557s [00:52:37.044] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1557s [00:52:37.044] ...future.X_jj <- ...future.elements_ii[[jj]] 1557s [00:52:37.044] ...future.FUN(...future.X_jj, ...) 1557s [00:52:37.044] }) 1557s [00:52:37.044] } 1557s [00:52:37.044] }, args = future.call.arguments) 1557s [00:52:37.044] } 1557s [00:52:37.044] Tweak future expression to call with '...' arguments ... DONE 1557s [00:52:37.045] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1557s [00:52:37.045] - packages: [1] ‘future’ 1557s [00:52:37.045] getGlobalsAndPackages() ... DONE 1557s [00:52:37.046] run() for ‘Future’ ... 1557s [00:52:37.046] - state: ‘created’ 1557s [00:52:37.046] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1557s [00:52:37.049] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1557s [00:52:37.050] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1557s [00:52:37.050] - Field: ‘label’ 1557s [00:52:37.050] - Field: ‘local’ 1557s [00:52:37.051] - Field: ‘owner’ 1557s [00:52:37.051] - Field: ‘envir’ 1557s [00:52:37.051] - Field: ‘packages’ 1557s [00:52:37.051] - Field: ‘gc’ 1557s [00:52:37.051] - Field: ‘conditions’ 1557s [00:52:37.051] - Field: ‘expr’ 1557s [00:52:37.052] - Field: ‘uuid’ 1557s [00:52:37.052] - Field: ‘seed’ 1557s [00:52:37.052] - Field: ‘version’ 1557s [00:52:37.052] - Field: ‘result’ 1557s [00:52:37.052] - Field: ‘asynchronous’ 1557s [00:52:37.053] - Field: ‘calls’ 1557s [00:52:37.053] - Field: ‘globals’ 1557s [00:52:37.053] - Field: ‘stdout’ 1557s [00:52:37.053] - Field: ‘earlySignal’ 1557s [00:52:37.053] - Field: ‘lazy’ 1557s [00:52:37.053] - Field: ‘state’ 1557s [00:52:37.053] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1557s [00:52:37.054] - Launch lazy future ... 1557s [00:52:37.054] Packages needed by the future expression (n = 1): ‘future’ 1557s [00:52:37.054] Packages needed by future strategies (n = 0): 1557s [00:52:37.055] { 1557s [00:52:37.055] { 1557s [00:52:37.055] { 1557s [00:52:37.055] ...future.startTime <- base::Sys.time() 1557s [00:52:37.055] { 1557s [00:52:37.055] { 1557s [00:52:37.055] { 1557s [00:52:37.055] { 1557s [00:52:37.055] base::local({ 1557s [00:52:37.055] has_future <- base::requireNamespace("future", 1557s [00:52:37.055] quietly = TRUE) 1557s [00:52:37.055] if (has_future) { 1557s [00:52:37.055] ns <- base::getNamespace("future") 1557s [00:52:37.055] version <- ns[[".package"]][["version"]] 1557s [00:52:37.055] if (is.null(version)) 1557s [00:52:37.055] version <- utils::packageVersion("future") 1557s [00:52:37.055] } 1557s [00:52:37.055] else { 1557s [00:52:37.055] version <- NULL 1557s [00:52:37.055] } 1557s [00:52:37.055] if (!has_future || version < "1.8.0") { 1557s [00:52:37.055] info <- base::c(r_version = base::gsub("R version ", 1557s [00:52:37.055] "", base::R.version$version.string), 1557s [00:52:37.055] platform = base::sprintf("%s (%s-bit)", 1557s [00:52:37.055] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1557s [00:52:37.055] os = base::paste(base::Sys.info()[base::c("sysname", 1557s [00:52:37.055] "release", "version")], collapse = " "), 1557s [00:52:37.055] hostname = base::Sys.info()[["nodename"]]) 1557s [00:52:37.055] info <- base::sprintf("%s: %s", base::names(info), 1557s [00:52:37.055] info) 1557s [00:52:37.055] info <- base::paste(info, collapse = "; ") 1557s [00:52:37.055] if (!has_future) { 1557s [00:52:37.055] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1557s [00:52:37.055] info) 1557s [00:52:37.055] } 1557s [00:52:37.055] else { 1557s [00:52:37.055] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1557s [00:52:37.055] info, version) 1557s [00:52:37.055] } 1557s [00:52:37.055] base::stop(msg) 1557s [00:52:37.055] } 1557s [00:52:37.055] }) 1557s [00:52:37.055] } 1557s [00:52:37.055] base::local({ 1557s [00:52:37.055] for (pkg in "future") { 1557s [00:52:37.055] base::loadNamespace(pkg) 1557s [00:52:37.055] base::library(pkg, character.only = TRUE) 1557s [00:52:37.055] } 1557s [00:52:37.055] }) 1557s [00:52:37.055] } 1557s [00:52:37.055] options(future.plan = NULL) 1557s [00:52:37.055] Sys.unsetenv("R_FUTURE_PLAN") 1557s [00:52:37.055] future::plan("default", .cleanup = FALSE, .init = FALSE) 1557s [00:52:37.055] } 1557s [00:52:37.055] ...future.workdir <- getwd() 1557s [00:52:37.055] } 1557s [00:52:37.055] ...future.oldOptions <- base::as.list(base::.Options) 1557s [00:52:37.055] ...future.oldEnvVars <- base::Sys.getenv() 1557s [00:52:37.055] } 1557s [00:52:37.055] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1557s [00:52:37.055] future.globals.maxSize = NULL, future.globals.method = NULL, 1557s [00:52:37.055] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1557s [00:52:37.055] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1557s [00:52:37.055] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1557s [00:52:37.055] future.stdout.windows.reencode = NULL, width = 80L) 1557s [00:52:37.055] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1557s [00:52:37.055] base::names(...future.oldOptions)) 1557s [00:52:37.055] } 1557s [00:52:37.055] if (FALSE) { 1557s [00:52:37.055] } 1557s [00:52:37.055] else { 1557s [00:52:37.055] if (TRUE) { 1557s [00:52:37.055] ...future.stdout <- base::rawConnection(base::raw(0L), 1557s [00:52:37.055] open = "w") 1557s [00:52:37.055] } 1557s [00:52:37.055] else { 1557s [00:52:37.055] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1557s [00:52:37.055] windows = "NUL", "/dev/null"), open = "w") 1557s [00:52:37.055] } 1557s [00:52:37.055] base::sink(...future.stdout, type = "output", split = FALSE) 1557s [00:52:37.055] base::on.exit(if (!base::is.null(...future.stdout)) { 1557s [00:52:37.055] base::sink(type = "output", split = FALSE) 1557s [00:52:37.055] base::close(...future.stdout) 1557s [00:52:37.055] }, add = TRUE) 1557s [00:52:37.055] } 1557s [00:52:37.055] ...future.frame <- base::sys.nframe() 1557s [00:52:37.055] ...future.conditions <- base::list() 1557s [00:52:37.055] ...future.rng <- base::globalenv()$.Random.seed 1557s [00:52:37.055] if (FALSE) { 1557s [00:52:37.055] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1557s [00:52:37.055] "...future.value", "...future.globalenv.names", ".Random.seed") 1557s [00:52:37.055] } 1557s [00:52:37.055] ...future.result <- base::tryCatch({ 1557s [00:52:37.055] base::withCallingHandlers({ 1557s [00:52:37.055] ...future.value <- base::withVisible(base::local({ 1557s [00:52:37.055] do.call(function(...) { 1557s [00:52:37.055] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1557s [00:52:37.055] if (!identical(...future.globals.maxSize.org, 1557s [00:52:37.055] ...future.globals.maxSize)) { 1557s [00:52:37.055] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1557s [00:52:37.055] on.exit(options(oopts), add = TRUE) 1557s [00:52:37.055] } 1557s [00:52:37.055] { 1557s [00:52:37.055] lapply(seq_along(...future.elements_ii), 1557s [00:52:37.055] FUN = function(jj) { 1557s [00:52:37.055] ...future.X_jj <- ...future.elements_ii[[jj]] 1557s [00:52:37.055] ...future.FUN(...future.X_jj, ...) 1557s [00:52:37.055] }) 1557s [00:52:37.055] } 1557s [00:52:37.055] }, args = future.call.arguments) 1557s [00:52:37.055] })) 1557s [00:52:37.055] future::FutureResult(value = ...future.value$value, 1557s [00:52:37.055] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1557s [00:52:37.055] ...future.rng), globalenv = if (FALSE) 1557s [00:52:37.055] list(added = base::setdiff(base::names(base::.GlobalEnv), 1557s [00:52:37.055] ...future.globalenv.names)) 1557s [00:52:37.055] else NULL, started = ...future.startTime, version = "1.8") 1557s [00:52:37.055] }, condition = base::local({ 1557s [00:52:37.055] c <- base::c 1557s [00:52:37.055] inherits <- base::inherits 1557s [00:52:37.055] invokeRestart <- base::invokeRestart 1557s [00:52:37.055] length <- base::length 1557s [00:52:37.055] list <- base::list 1557s [00:52:37.055] seq.int <- base::seq.int 1557s [00:52:37.055] signalCondition <- base::signalCondition 1557s [00:52:37.055] sys.calls <- base::sys.calls 1557s [00:52:37.055] `[[` <- base::`[[` 1557s [00:52:37.055] `+` <- base::`+` 1557s [00:52:37.055] `<<-` <- base::`<<-` 1557s [00:52:37.055] sysCalls <- function(calls = sys.calls(), from = 1L) { 1557s [00:52:37.055] calls[seq.int(from = from + 12L, to = length(calls) - 1557s [00:52:37.055] 3L)] 1557s [00:52:37.055] } 1557s [00:52:37.055] function(cond) { 1557s [00:52:37.055] is_error <- inherits(cond, "error") 1557s [00:52:37.055] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1557s [00:52:37.055] NULL) 1557s [00:52:37.055] if (is_error) { 1557s [00:52:37.055] sessionInformation <- function() { 1557s [00:52:37.055] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1557s [00:52:37.055] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1557s [00:52:37.055] search = base::search(), system = base::Sys.info()) 1557s [00:52:37.055] } 1557s [00:52:37.055] ...future.conditions[[length(...future.conditions) + 1557s [00:52:37.055] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1557s [00:52:37.055] cond$call), session = sessionInformation(), 1557s [00:52:37.055] timestamp = base::Sys.time(), signaled = 0L) 1557s [00:52:37.055] signalCondition(cond) 1557s [00:52:37.055] } 1557s [00:52:37.055] else if (!ignore && TRUE && inherits(cond, c("condition", 1557s [00:52:37.055] "immediateCondition"))) { 1557s [00:52:37.055] signal <- TRUE && inherits(cond, "immediateCondition") 1557s [00:52:37.055] ...future.conditions[[length(...future.conditions) + 1557s [00:52:37.055] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1557s [00:52:37.055] if (TRUE && !signal) { 1557s [00:52:37.055] muffleCondition <- function (cond, pattern = "^muffle") 1557s [00:52:37.055] { 1557s [00:52:37.055] inherits <- base::inherits 1557s [00:52:37.055] invokeRestart <- base::invokeRestart 1557s [00:52:37.055] is.null <- base::is.null 1557s [00:52:37.055] muffled <- FALSE 1557s [00:52:37.055] if (inherits(cond, "message")) { 1557s [00:52:37.055] muffled <- grepl(pattern, "muffleMessage") 1557s [00:52:37.055] if (muffled) 1557s [00:52:37.055] invokeRestart("muffleMessage") 1557s [00:52:37.055] } 1557s [00:52:37.055] else if (inherits(cond, "warning")) { 1557s [00:52:37.055] muffled <- grepl(pattern, "muffleWarning") 1557s [00:52:37.055] if (muffled) 1557s [00:52:37.055] invokeRestart("muffleWarning") 1557s [00:52:37.055] } 1557s [00:52:37.055] else if (inherits(cond, "condition")) { 1557s [00:52:37.055] if (!is.null(pattern)) { 1557s [00:52:37.055] computeRestarts <- base::computeRestarts 1557s [00:52:37.055] grepl <- base::grepl 1557s [00:52:37.055] restarts <- computeRestarts(cond) 1557s [00:52:37.055] for (restart in restarts) { 1557s [00:52:37.055] name <- restart$name 1557s [00:52:37.055] if (is.null(name)) 1557s [00:52:37.055] next 1557s [00:52:37.055] if (!grepl(pattern, name)) 1557s [00:52:37.055] next 1557s [00:52:37.055] invokeRestart(restart) 1557s [00:52:37.055] muffled <- TRUE 1557s [00:52:37.055] break 1557s [00:52:37.055] } 1557s [00:52:37.055] } 1557s [00:52:37.055] } 1557s [00:52:37.055] invisible(muffled) 1557s [00:52:37.055] } 1557s [00:52:37.055] muffleCondition(cond, pattern = "^muffle") 1557s [00:52:37.055] } 1557s [00:52:37.055] } 1557s [00:52:37.055] else { 1557s [00:52:37.055] if (TRUE) { 1557s [00:52:37.055] muffleCondition <- function (cond, pattern = "^muffle") 1557s [00:52:37.055] { 1557s [00:52:37.055] inherits <- base::inherits 1557s [00:52:37.055] invokeRestart <- base::invokeRestart 1557s [00:52:37.055] is.null <- base::is.null 1557s [00:52:37.055] muffled <- FALSE 1557s [00:52:37.055] if (inherits(cond, "message")) { 1557s [00:52:37.055] muffled <- grepl(pattern, "muffleMessage") 1557s [00:52:37.055] if (muffled) 1557s [00:52:37.055] invokeRestart("muffleMessage") 1557s [00:52:37.055] } 1557s [00:52:37.055] else if (inherits(cond, "warning")) { 1557s [00:52:37.055] muffled <- grepl(pattern, "muffleWarning") 1557s [00:52:37.055] if (muffled) 1557s [00:52:37.055] invokeRestart("muffleWarning") 1557s [00:52:37.055] } 1557s [00:52:37.055] else if (inherits(cond, "condition")) { 1557s [00:52:37.055] if (!is.null(pattern)) { 1557s [00:52:37.055] computeRestarts <- base::computeRestarts 1557s [00:52:37.055] grepl <- base::grepl 1557s [00:52:37.055] restarts <- computeRestarts(cond) 1557s [00:52:37.055] for (restart in restarts) { 1557s [00:52:37.055] name <- restart$name 1557s [00:52:37.055] if (is.null(name)) 1557s [00:52:37.055] next 1557s [00:52:37.055] if (!grepl(pattern, name)) 1557s [00:52:37.055] next 1557s [00:52:37.055] invokeRestart(restart) 1557s [00:52:37.055] muffled <- TRUE 1557s [00:52:37.055] break 1557s [00:52:37.055] } 1557s [00:52:37.055] } 1557s [00:52:37.055] } 1557s [00:52:37.055] invisible(muffled) 1557s [00:52:37.055] } 1557s [00:52:37.055] muffleCondition(cond, pattern = "^muffle") 1557s [00:52:37.055] } 1557s [00:52:37.055] } 1557s [00:52:37.055] } 1557s [00:52:37.055] })) 1557s [00:52:37.055] }, error = function(ex) { 1557s [00:52:37.055] base::structure(base::list(value = NULL, visible = NULL, 1557s [00:52:37.055] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1557s [00:52:37.055] ...future.rng), started = ...future.startTime, 1557s [00:52:37.055] finished = Sys.time(), session_uuid = NA_character_, 1557s [00:52:37.055] version = "1.8"), class = "FutureResult") 1557s [00:52:37.055] }, finally = { 1557s [00:52:37.055] if (!identical(...future.workdir, getwd())) 1557s [00:52:37.055] setwd(...future.workdir) 1557s [00:52:37.055] { 1557s [00:52:37.055] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1557s [00:52:37.055] ...future.oldOptions$nwarnings <- NULL 1557s [00:52:37.055] } 1557s [00:52:37.055] base::options(...future.oldOptions) 1557s [00:52:37.055] if (.Platform$OS.type == "windows") { 1557s [00:52:37.055] old_names <- names(...future.oldEnvVars) 1557s [00:52:37.055] envs <- base::Sys.getenv() 1557s [00:52:37.055] names <- names(envs) 1557s [00:52:37.055] common <- intersect(names, old_names) 1557s [00:52:37.055] added <- setdiff(names, old_names) 1557s [00:52:37.055] removed <- setdiff(old_names, names) 1557s [00:52:37.055] changed <- common[...future.oldEnvVars[common] != 1557s [00:52:37.055] envs[common]] 1557s [00:52:37.055] NAMES <- toupper(changed) 1557s [00:52:37.055] args <- list() 1557s [00:52:37.055] for (kk in seq_along(NAMES)) { 1557s [00:52:37.055] name <- changed[[kk]] 1557s [00:52:37.055] NAME <- NAMES[[kk]] 1557s [00:52:37.055] if (name != NAME && is.element(NAME, old_names)) 1557s [00:52:37.055] next 1557s [00:52:37.055] args[[name]] <- ...future.oldEnvVars[[name]] 1557s [00:52:37.055] } 1557s [00:52:37.055] NAMES <- toupper(added) 1557s [00:52:37.055] for (kk in seq_along(NAMES)) { 1557s [00:52:37.055] name <- added[[kk]] 1557s [00:52:37.055] NAME <- NAMES[[kk]] 1557s [00:52:37.055] if (name != NAME && is.element(NAME, old_names)) 1557s [00:52:37.055] next 1557s [00:52:37.055] args[[name]] <- "" 1557s [00:52:37.055] } 1557s [00:52:37.055] NAMES <- toupper(removed) 1557s [00:52:37.055] for (kk in seq_along(NAMES)) { 1557s [00:52:37.055] name <- removed[[kk]] 1557s [00:52:37.055] NAME <- NAMES[[kk]] 1557s [00:52:37.055] if (name != NAME && is.element(NAME, old_names)) 1557s [00:52:37.055] next 1557s [00:52:37.055] args[[name]] <- ...future.oldEnvVars[[name]] 1557s [00:52:37.055] } 1557s [00:52:37.055] if (length(args) > 0) 1557s [00:52:37.055] base::do.call(base::Sys.setenv, args = args) 1557s [00:52:37.055] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1557s [00:52:37.055] } 1557s [00:52:37.055] else { 1557s [00:52:37.055] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1557s [00:52:37.055] } 1557s [00:52:37.055] { 1557s [00:52:37.055] if (base::length(...future.futureOptionsAdded) > 1557s [00:52:37.055] 0L) { 1557s [00:52:37.055] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1557s [00:52:37.055] base::names(opts) <- ...future.futureOptionsAdded 1557s [00:52:37.055] base::options(opts) 1557s [00:52:37.055] } 1557s [00:52:37.055] { 1557s [00:52:37.055] { 1557s [00:52:37.055] NULL 1557s [00:52:37.055] RNGkind("Mersenne-Twister") 1557s [00:52:37.055] base::rm(list = ".Random.seed", envir = base::globalenv(), 1557s [00:52:37.055] inherits = FALSE) 1557s [00:52:37.055] } 1557s [00:52:37.055] options(future.plan = NULL) 1557s [00:52:37.055] if (is.na(NA_character_)) 1557s [00:52:37.055] Sys.unsetenv("R_FUTURE_PLAN") 1557s [00:52:37.055] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1557s [00:52:37.055] future::plan(list(function (..., workers = availableCores(), 1557s [00:52:37.055] lazy = FALSE, rscript_libs = .libPaths(), 1557s [00:52:37.055] envir = parent.frame()) 1557s [00:52:37.055] { 1557s [00:52:37.055] if (is.function(workers)) 1557s [00:52:37.055] workers <- workers() 1557s [00:52:37.055] workers <- structure(as.integer(workers), 1557s [00:52:37.055] class = class(workers)) 1557s [00:52:37.055] stop_if_not(length(workers) == 1, is.finite(workers), 1557s [00:52:37.055] workers >= 1) 1557s [00:52:37.055] if (workers == 1L && !inherits(workers, "AsIs")) { 1557s [00:52:37.055] return(sequential(..., lazy = TRUE, envir = envir)) 1557s [00:52:37.055] } 1557s [00:52:37.055] future <- MultisessionFuture(..., workers = workers, 1557s [00:52:37.055] lazy = lazy, rscript_libs = rscript_libs, 1557s [00:52:37.055] envir = envir) 1557s [00:52:37.055] if (!future$lazy) 1557s [00:52:37.055] future <- run(future) 1557s [00:52:37.055] invisible(future) 1557s [00:52:37.055] }), .cleanup = FALSE, .init = FALSE) 1557s [00:52:37.055] } 1557s [00:52:37.055] } 1557s [00:52:37.055] } 1557s [00:52:37.055] }) 1557s [00:52:37.055] if (TRUE) { 1557s [00:52:37.055] base::sink(type = "output", split = FALSE) 1557s [00:52:37.055] if (TRUE) { 1557s [00:52:37.055] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1557s [00:52:37.055] } 1557s [00:52:37.055] else { 1557s [00:52:37.055] ...future.result["stdout"] <- base::list(NULL) 1557s [00:52:37.055] } 1557s [00:52:37.055] base::close(...future.stdout) 1557s [00:52:37.055] ...future.stdout <- NULL 1557s [00:52:37.055] } 1557s [00:52:37.055] ...future.result$conditions <- ...future.conditions 1557s [00:52:37.055] ...future.result$finished <- base::Sys.time() 1557s [00:52:37.055] ...future.result 1557s [00:52:37.055] } 1557s [00:52:37.063] assign_globals() ... 1557s [00:52:37.063] List of 5 1557s [00:52:37.063] $ ...future.FUN :function (..., sep = "", collapse = ", ", lastCollapse = NULL, maxHead = if (missing(lastCollapse)) 3 else Inf, 1557s [00:52:37.063] maxTail = if (is.finite(maxHead)) 1 else Inf, abbreviate = "...") 1557s [00:52:37.063] $ future.call.arguments :List of 2 1557s [00:52:37.063] ..$ collapse: chr "; " 1557s [00:52:37.063] ..$ maxHead : int 3 1557s [00:52:37.063] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1557s [00:52:37.063] $ ...future.elements_ii :List of 1 1557s [00:52:37.063] ..$ a: Named chr [1:101] "hello" "1" "2" "3" ... 1557s [00:52:37.063] .. ..- attr(*, "names")= chr [1:101] "" "b1" "b2" "b3" ... 1557s [00:52:37.063] $ ...future.seeds_ii : NULL 1557s [00:52:37.063] $ ...future.globals.maxSize: NULL 1557s [00:52:37.063] - attr(*, "where")=List of 5 1557s [00:52:37.063] ..$ ...future.FUN : 1557s [00:52:37.063] ..$ future.call.arguments : 1557s [00:52:37.063] ..$ ...future.elements_ii : 1557s [00:52:37.063] ..$ ...future.seeds_ii : 1557s [00:52:37.063] ..$ ...future.globals.maxSize: 1557s [00:52:37.063] - attr(*, "resolved")= logi FALSE 1557s [00:52:37.063] - attr(*, "total_size")= num 71456 1557s [00:52:37.063] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1557s [00:52:37.063] - attr(*, "already-done")= logi TRUE 1557s [00:52:37.074] - copied ‘...future.FUN’ to environment 1557s [00:52:37.074] - copied ‘future.call.arguments’ to environment 1557s [00:52:37.074] - copied ‘...future.elements_ii’ to environment 1557s [00:52:37.074] - copied ‘...future.seeds_ii’ to environment 1557s [00:52:37.074] - copied ‘...future.globals.maxSize’ to environment 1557s [00:52:37.074] assign_globals() ... done 1557s [00:52:37.076] plan(): Setting new future strategy stack: 1557s [00:52:37.076] List of future strategies: 1557s [00:52:37.076] 1. sequential: 1557s [00:52:37.076] - args: function (..., envir = parent.frame()) 1557s [00:52:37.076] - tweaked: FALSE 1557s [00:52:37.076] - call: NULL 1557s [00:52:37.077] plan(): nbrOfWorkers() = 1 1557s [00:52:37.078] plan(): Setting new future strategy stack: 1557s [00:52:37.079] List of future strategies: 1557s [00:52:37.079] 1. multisession: 1557s [00:52:37.079] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1557s [00:52:37.079] - tweaked: FALSE 1557s [00:52:37.079] - call: plan(strategy) 1557s [00:52:37.085] plan(): nbrOfWorkers() = 1 1557s [00:52:37.086] SequentialFuture started (and completed) 1557s [00:52:37.086] - Launch lazy future ... done 1557s [00:52:37.086] run() for ‘SequentialFuture’ ... done 1557s [00:52:37.087] Created future: 1557s [00:52:37.087] SequentialFuture: 1557s [00:52:37.087] Label: ‘future_lapply-1’ 1557s [00:52:37.087] Expression: 1557s [00:52:37.087] { 1557s [00:52:37.087] do.call(function(...) { 1557s [00:52:37.087] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1557s [00:52:37.087] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1557s [00:52:37.087] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1557s [00:52:37.087] on.exit(options(oopts), add = TRUE) 1557s [00:52:37.087] } 1557s [00:52:37.087] { 1557s [00:52:37.087] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1557s [00:52:37.087] ...future.X_jj <- ...future.elements_ii[[jj]] 1557s [00:52:37.087] ...future.FUN(...future.X_jj, ...) 1557s [00:52:37.087] }) 1557s [00:52:37.087] } 1557s [00:52:37.087] }, args = future.call.arguments) 1557s [00:52:37.087] } 1557s [00:52:37.087] Lazy evaluation: FALSE 1557s [00:52:37.087] Asynchronous evaluation: FALSE 1557s [00:52:37.087] Local evaluation: TRUE 1557s [00:52:37.087] Environment: R_GlobalEnv 1557s [00:52:37.087] Capture standard output: TRUE 1557s [00:52:37.087] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1557s [00:52:37.087] Globals: 5 objects totaling 82.61 KiB (function ‘...future.FUN’ of 69.62 KiB, DotDotDotList ‘future.call.arguments’ of 168 bytes, list ‘...future.elements_ii’ of 12.83 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1557s [00:52:37.087] Packages: 1 packages (‘future’) 1557s [00:52:37.087] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1557s [00:52:37.087] Resolved: TRUE 1557s [00:52:37.087] Value: 136 bytes of class ‘list’ 1557s [00:52:37.087] Early signaling: FALSE 1557s [00:52:37.087] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1557s [00:52:37.087] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1557s [00:52:37.089] Chunk #1 of 1 ... DONE 1557s [00:52:37.090] Launching 1 futures (chunks) ... DONE 1557s [00:52:37.090] Resolving 1 futures (chunks) ... 1557s [00:52:37.090] resolve() on list ... 1557s [00:52:37.090] recursive: 0 1557s [00:52:37.090] length: 1 1557s [00:52:37.090] 1557s [00:52:37.090] resolved() for ‘SequentialFuture’ ... 1557s [00:52:37.091] - state: ‘finished’ 1557s [00:52:37.091] - run: TRUE 1557s [00:52:37.091] - result: ‘FutureResult’ 1557s [00:52:37.092] resolved() for ‘SequentialFuture’ ... done 1557s [00:52:37.092] Future #1 1557s [00:52:37.092] signalConditionsASAP(SequentialFuture, pos=1) ... 1557s [00:52:37.092] - nx: 1 1557s [00:52:37.093] - relay: TRUE 1557s [00:52:37.093] - stdout: TRUE 1557s [00:52:37.093] - signal: TRUE 1557s [00:52:37.093] - resignal: FALSE 1557s [00:52:37.094] - force: TRUE 1557s [00:52:37.094] - relayed: [n=1] FALSE 1557s [00:52:37.094] - queued futures: [n=1] FALSE 1557s [00:52:37.095] - until=1 1557s [00:52:37.095] - relaying element #1 1557s [00:52:37.095] - relayed: [n=1] TRUE 1557s [00:52:37.096] - queued futures: [n=1] TRUE 1557s [00:52:37.096] signalConditionsASAP(SequentialFuture, pos=1) ... done 1557s [00:52:37.096] length: 0 (resolved future 1) 1557s [00:52:37.097] Relaying remaining futures 1557s [00:52:37.097] signalConditionsASAP(NULL, pos=0) ... 1557s [00:52:37.097] - nx: 1 1557s [00:52:37.098] - relay: TRUE 1557s [00:52:37.098] - stdout: TRUE 1557s [00:52:37.098] - signal: TRUE 1557s [00:52:37.098] - resignal: FALSE 1557s [00:52:37.099] - force: TRUE 1557s [00:52:37.099] - relayed: [n=1] TRUE 1557s [00:52:37.099] - queued futures: [n=1] TRUE 1557s - flush all 1557s [00:52:37.100] - relayed: [n=1] TRUE 1557s [00:52:37.100] - queued futures: [n=1] TRUE 1557s [00:52:37.100] signalConditionsASAP(NULL, pos=0) ... done 1557s [00:52:37.101] resolve() on list ... DONE 1557s [00:52:37.101] - Number of value chunks collected: 1 1557s [00:52:37.101] Resolving 1 futures (chunks) ... DONE 1557s [00:52:37.101] Reducing values from 1 chunks ... 1557s [00:52:37.101] - Number of values collected after concatenation: 1 1557s [00:52:37.102] - Number of values expected: 1 1557s [00:52:37.102] Reducing values from 1 chunks ... DONE 1557s [00:52:37.102] future_lapply() ... DONE 1557s List of 1 1557s $ y:List of 1 1557s ..$ a: chr - future_lapply(x, FUN = listenv::listenv, ...) ... 1557s "hello; 1; 2; ...; 100" 1557s [00:52:37.105] future_lapply() ... 1557s [00:52:37.115] Number of chunks: 1 1557s [00:52:37.116] Index remapping (attribute 'ordering'): [n = 2] 2, 1 1557s [00:52:37.116] getGlobalsAndPackagesXApply() ... 1557s [00:52:37.117] - future.globals: TRUE 1557s [00:52:37.118] getGlobalsAndPackages() ... 1557s [00:52:37.119] Searching for globals... 1557s [00:52:37.122] - globals found: [4] ‘FUN’, ‘{’, ‘get’, ‘parent.env’ 1557s [00:52:37.122] Searching for globals ... DONE 1557s [00:52:37.122] Resolving globals: FALSE 1557s [00:52:37.123] The total size of the 1 globals is 4.85 KiB (4968 bytes) 1557s [00:52:37.123] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.85 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.85 KiB of class ‘function’) 1557s [00:52:37.123] - globals: [1] ‘FUN’ 1557s [00:52:37.123] - packages: [1] ‘listenv’ 1557s [00:52:37.124] getGlobalsAndPackages() ... DONE 1557s [00:52:37.124] - globals found/used: [n=1] ‘FUN’ 1557s [00:52:37.124] - needed namespaces: [n=1] ‘listenv’ 1557s [00:52:37.124] Finding globals ... DONE 1557s [00:52:37.124] - use_args: TRUE 1557s [00:52:37.124] - Getting '...' globals ... 1557s [00:52:37.125] resolve() on list ... 1557s [00:52:37.125] recursive: 0 1557s [00:52:37.125] length: 1 1557s [00:52:37.125] elements: ‘...’ 1557s [00:52:37.125] length: 0 (resolved future 1) 1557s [00:52:37.126] resolve() on list ... DONE 1557s [00:52:37.126] - '...' content: [n=0] 1557s [00:52:37.126] List of 1 1557s [00:52:37.126] $ ...: list() 1557s [00:52:37.126] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1557s [00:52:37.126] - attr(*, "where")=List of 1 1557s [00:52:37.126] ..$ ...: 1557s [00:52:37.126] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1557s [00:52:37.126] - attr(*, "resolved")= logi TRUE 1557s [00:52:37.126] - attr(*, "total_size")= num NA 1557s [00:52:37.129] - Getting '...' globals ... DONE 1557s [00:52:37.129] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1557s [00:52:37.130] List of 2 1557s [00:52:37.130] $ ...future.FUN:function (x, ...) 1557s [00:52:37.130] $ ... : list() 1557s [00:52:37.130] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1557s [00:52:37.130] - attr(*, "where")=List of 2 1557s [00:52:37.130] ..$ ...future.FUN: 1557s [00:52:37.130] ..$ ... : 1557s [00:52:37.130] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1557s [00:52:37.130] - attr(*, "resolved")= logi FALSE 1557s [00:52:37.130] - attr(*, "total_size")= num 4968 1557s [00:52:37.140] Packages to be attached in all futures: [n=1] ‘listenv’ 1557s [00:52:37.140] getGlobalsAndPackagesXApply() ... DONE 1557s [00:52:37.141] Number of futures (= number of chunks): 1 1557s [00:52:37.141] Launching 1 futures (chunks) ... 1557s [00:52:37.142] Chunk #1 of 1 ... 1557s [00:52:37.142] - Finding globals in 'X' for chunk #1 ... 1557s [00:52:37.142] getGlobalsAndPackages() ... 1557s [00:52:37.143] Searching for globals... 1557s [00:52:37.145] 1557s [00:52:37.145] Searching for globals ... DONE 1557s [00:52:37.145] - globals: [0] 1557s [00:52:37.146] getGlobalsAndPackages() ... DONE 1557s [00:52:37.146] + additional globals found: [n=0] 1557s [00:52:37.146] + additional namespaces needed: [n=0] 1557s [00:52:37.148] - Finding globals in 'X' for chunk #1 ... DONE 1557s [00:52:37.148] - seeds: 1557s [00:52:37.148] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1557s [00:52:37.148] getGlobalsAndPackages() ... 1557s [00:52:37.148] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1557s [00:52:37.150] Resolving globals: FALSE 1557s [00:52:37.151] Tweak future expression to call with '...' arguments ... 1557s [00:52:37.151] { 1557s [00:52:37.151] do.call(function(...) { 1557s [00:52:37.151] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1557s [00:52:37.151] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1557s [00:52:37.151] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1557s [00:52:37.151] on.exit(options(oopts), add = TRUE) 1557s [00:52:37.151] } 1557s [00:52:37.151] { 1557s [00:52:37.151] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1557s [00:52:37.151] ...future.X_jj <- ...future.elements_ii[[jj]] 1557s [00:52:37.151] ...future.FUN(...future.X_jj, ...) 1557s [00:52:37.151] }) 1557s [00:52:37.151] } 1557s [00:52:37.151] }, args = future.call.arguments) 1557s [00:52:37.151] } 1557s [00:52:37.153] Tweak future expression to call with '...' arguments ... DONE 1557s [00:52:37.154] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1557s [00:52:37.155] - packages: [1] ‘listenv’ 1557s [00:52:37.155] getGlobalsAndPackages() ... DONE 1557s [00:52:37.156] run() for ‘Future’ ... 1557s [00:52:37.156] - state: ‘created’ 1557s [00:52:37.157] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1557s [00:52:37.164] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1557s [00:52:37.164] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1557s [00:52:37.164] - Field: ‘label’ 1557s [00:52:37.164] - Field: ‘local’ 1557s [00:52:37.164] - Field: ‘owner’ 1557s [00:52:37.165] - Field: ‘envir’ 1557s [00:52:37.165] - Field: ‘packages’ 1557s [00:52:37.166] - Field: ‘gc’ 1557s [00:52:37.166] - Field: ‘conditions’ 1557s [00:52:37.166] - Field: ‘expr’ 1557s [00:52:37.166] - Field: ‘uuid’ 1557s [00:52:37.167] - Field: ‘seed’ 1557s [00:52:37.167] - Field: ‘version’ 1557s [00:52:37.168] - Field: ‘result’ 1557s [00:52:37.168] - Field: ‘asynchronous’ 1557s [00:52:37.168] - Field: ‘calls’ 1557s [00:52:37.168] - Field: ‘globals’ 1557s [00:52:37.168] - Field: ‘stdout’ 1557s [00:52:37.169] - Field: ‘earlySignal’ 1557s [00:52:37.169] - Field: ‘lazy’ 1557s [00:52:37.170] - Field: ‘state’ 1557s [00:52:37.170] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1557s [00:52:37.171] - Launch lazy future ... 1557s [00:52:37.171] Packages needed by the future expression (n = 1): ‘listenv’ 1557s [00:52:37.172] Packages needed by future strategies (n = 0): 1557s [00:52:37.173] { 1557s [00:52:37.173] { 1557s [00:52:37.173] { 1557s [00:52:37.173] ...future.startTime <- base::Sys.time() 1557s [00:52:37.173] { 1557s [00:52:37.173] { 1557s [00:52:37.173] { 1557s [00:52:37.173] { 1557s [00:52:37.173] base::local({ 1557s [00:52:37.173] has_future <- base::requireNamespace("future", 1557s [00:52:37.173] quietly = TRUE) 1557s [00:52:37.173] if (has_future) { 1557s [00:52:37.173] ns <- base::getNamespace("future") 1557s [00:52:37.173] version <- ns[[".package"]][["version"]] 1557s [00:52:37.173] if (is.null(version)) 1557s [00:52:37.173] version <- utils::packageVersion("future") 1557s [00:52:37.173] } 1557s [00:52:37.173] else { 1557s [00:52:37.173] version <- NULL 1557s [00:52:37.173] } 1557s [00:52:37.173] if (!has_future || version < "1.8.0") { 1557s [00:52:37.173] info <- base::c(r_version = base::gsub("R version ", 1557s [00:52:37.173] "", base::R.version$version.string), 1557s [00:52:37.173] platform = base::sprintf("%s (%s-bit)", 1557s [00:52:37.173] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1557s [00:52:37.173] os = base::paste(base::Sys.info()[base::c("sysname", 1557s [00:52:37.173] "release", "version")], collapse = " "), 1557s [00:52:37.173] hostname = base::Sys.info()[["nodename"]]) 1557s [00:52:37.173] info <- base::sprintf("%s: %s", base::names(info), 1557s [00:52:37.173] info) 1557s [00:52:37.173] info <- base::paste(info, collapse = "; ") 1557s [00:52:37.173] if (!has_future) { 1557s [00:52:37.173] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1557s [00:52:37.173] info) 1557s [00:52:37.173] } 1557s [00:52:37.173] else { 1557s [00:52:37.173] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1557s [00:52:37.173] info, version) 1557s [00:52:37.173] } 1557s [00:52:37.173] base::stop(msg) 1557s [00:52:37.173] } 1557s [00:52:37.173] }) 1557s [00:52:37.173] } 1557s [00:52:37.173] base::local({ 1557s [00:52:37.173] for (pkg in "listenv") { 1557s [00:52:37.173] base::loadNamespace(pkg) 1557s [00:52:37.173] base::library(pkg, character.only = TRUE) 1557s [00:52:37.173] } 1557s [00:52:37.173] }) 1557s [00:52:37.173] } 1557s [00:52:37.173] options(future.plan = NULL) 1557s [00:52:37.173] Sys.unsetenv("R_FUTURE_PLAN") 1557s [00:52:37.173] future::plan("default", .cleanup = FALSE, .init = FALSE) 1557s [00:52:37.173] } 1557s [00:52:37.173] ...future.workdir <- getwd() 1557s [00:52:37.173] } 1557s [00:52:37.173] ...future.oldOptions <- base::as.list(base::.Options) 1557s [00:52:37.173] ...future.oldEnvVars <- base::Sys.getenv() 1557s [00:52:37.173] } 1557s [00:52:37.173] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1557s [00:52:37.173] future.globals.maxSize = NULL, future.globals.method = NULL, 1557s [00:52:37.173] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1557s [00:52:37.173] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1557s [00:52:37.173] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1557s [00:52:37.173] future.stdout.windows.reencode = NULL, width = 80L) 1557s [00:52:37.173] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1557s [00:52:37.173] base::names(...future.oldOptions)) 1557s [00:52:37.173] } 1557s [00:52:37.173] if (FALSE) { 1557s [00:52:37.173] } 1557s [00:52:37.173] else { 1557s [00:52:37.173] if (TRUE) { 1557s [00:52:37.173] ...future.stdout <- base::rawConnection(base::raw(0L), 1557s [00:52:37.173] open = "w") 1557s [00:52:37.173] } 1557s [00:52:37.173] else { 1557s [00:52:37.173] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1557s [00:52:37.173] windows = "NUL", "/dev/null"), open = "w") 1557s [00:52:37.173] } 1557s [00:52:37.173] base::sink(...future.stdout, type = "output", split = FALSE) 1557s [00:52:37.173] base::on.exit(if (!base::is.null(...future.stdout)) { 1557s [00:52:37.173] base::sink(type = "output", split = FALSE) 1557s [00:52:37.173] base::close(...future.stdout) 1557s [00:52:37.173] }, add = TRUE) 1557s [00:52:37.173] } 1557s [00:52:37.173] ...future.frame <- base::sys.nframe() 1557s [00:52:37.173] ...future.conditions <- base::list() 1557s [00:52:37.173] ...future.rng <- base::globalenv()$.Random.seed 1557s [00:52:37.173] if (FALSE) { 1557s [00:52:37.173] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1557s [00:52:37.173] "...future.value", "...future.globalenv.names", ".Random.seed") 1557s [00:52:37.173] } 1557s [00:52:37.173] ...future.result <- base::tryCatch({ 1557s [00:52:37.173] base::withCallingHandlers({ 1557s [00:52:37.173] ...future.value <- base::withVisible(base::local({ 1557s [00:52:37.173] do.call(function(...) { 1557s [00:52:37.173] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1557s [00:52:37.173] if (!identical(...future.globals.maxSize.org, 1557s [00:52:37.173] ...future.globals.maxSize)) { 1557s [00:52:37.173] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1557s [00:52:37.173] on.exit(options(oopts), add = TRUE) 1557s [00:52:37.173] } 1557s [00:52:37.173] { 1557s [00:52:37.173] lapply(seq_along(...future.elements_ii), 1557s [00:52:37.173] FUN = function(jj) { 1557s [00:52:37.173] ...future.X_jj <- ...future.elements_ii[[jj]] 1557s [00:52:37.173] ...future.FUN(...future.X_jj, ...) 1557s [00:52:37.173] }) 1557s [00:52:37.173] } 1557s [00:52:37.173] }, args = future.call.arguments) 1557s [00:52:37.173] })) 1557s [00:52:37.173] future::FutureResult(value = ...future.value$value, 1557s [00:52:37.173] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1557s [00:52:37.173] ...future.rng), globalenv = if (FALSE) 1557s [00:52:37.173] list(added = base::setdiff(base::names(base::.GlobalEnv), 1557s [00:52:37.173] ...future.globalenv.names)) 1557s [00:52:37.173] else NULL, started = ...future.startTime, version = "1.8") 1557s [00:52:37.173] }, condition = base::local({ 1557s [00:52:37.173] c <- base::c 1557s [00:52:37.173] inherits <- base::inherits 1557s [00:52:37.173] invokeRestart <- base::invokeRestart 1557s [00:52:37.173] length <- base::length 1557s [00:52:37.173] list <- base::list 1557s [00:52:37.173] seq.int <- base::seq.int 1557s [00:52:37.173] signalCondition <- base::signalCondition 1557s [00:52:37.173] sys.calls <- base::sys.calls 1557s [00:52:37.173] `[[` <- base::`[[` 1557s [00:52:37.173] `+` <- base::`+` 1557s [00:52:37.173] `<<-` <- base::`<<-` 1557s [00:52:37.173] sysCalls <- function(calls = sys.calls(), from = 1L) { 1557s [00:52:37.173] calls[seq.int(from = from + 12L, to = length(calls) - 1557s [00:52:37.173] 3L)] 1557s [00:52:37.173] } 1557s [00:52:37.173] function(cond) { 1557s [00:52:37.173] is_error <- inherits(cond, "error") 1557s [00:52:37.173] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1557s [00:52:37.173] NULL) 1557s [00:52:37.173] if (is_error) { 1557s [00:52:37.173] sessionInformation <- function() { 1557s [00:52:37.173] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1557s [00:52:37.173] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1557s [00:52:37.173] search = base::search(), system = base::Sys.info()) 1557s [00:52:37.173] } 1557s [00:52:37.173] ...future.conditions[[length(...future.conditions) + 1557s [00:52:37.173] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1557s [00:52:37.173] cond$call), session = sessionInformation(), 1557s [00:52:37.173] timestamp = base::Sys.time(), signaled = 0L) 1557s [00:52:37.173] signalCondition(cond) 1557s [00:52:37.173] } 1557s [00:52:37.173] else if (!ignore && TRUE && inherits(cond, c("condition", 1557s [00:52:37.173] "immediateCondition"))) { 1557s [00:52:37.173] signal <- TRUE && inherits(cond, "immediateCondition") 1557s [00:52:37.173] ...future.conditions[[length(...future.conditions) + 1557s [00:52:37.173] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1557s [00:52:37.173] if (TRUE && !signal) { 1557s [00:52:37.173] muffleCondition <- function (cond, pattern = "^muffle") 1557s [00:52:37.173] { 1557s [00:52:37.173] inherits <- base::inherits 1557s [00:52:37.173] invokeRestart <- base::invokeRestart 1557s [00:52:37.173] is.null <- base::is.null 1557s [00:52:37.173] muffled <- FALSE 1557s [00:52:37.173] if (inherits(cond, "message")) { 1557s [00:52:37.173] muffled <- grepl(pattern, "muffleMessage") 1557s [00:52:37.173] if (muffled) 1557s [00:52:37.173] invokeRestart("muffleMessage") 1557s [00:52:37.173] } 1557s [00:52:37.173] else if (inherits(cond, "warning")) { 1557s [00:52:37.173] muffled <- grepl(pattern, "muffleWarning") 1557s [00:52:37.173] if (muffled) 1557s [00:52:37.173] invokeRestart("muffleWarning") 1557s [00:52:37.173] } 1557s [00:52:37.173] else if (inherits(cond, "condition")) { 1557s [00:52:37.173] if (!is.null(pattern)) { 1557s [00:52:37.173] computeRestarts <- base::computeRestarts 1557s [00:52:37.173] grepl <- base::grepl 1557s [00:52:37.173] restarts <- computeRestarts(cond) 1557s [00:52:37.173] for (restart in restarts) { 1557s [00:52:37.173] name <- restart$name 1557s [00:52:37.173] if (is.null(name)) 1557s [00:52:37.173] next 1557s [00:52:37.173] if (!grepl(pattern, name)) 1557s [00:52:37.173] next 1557s [00:52:37.173] invokeRestart(restart) 1557s [00:52:37.173] muffled <- TRUE 1557s [00:52:37.173] break 1557s [00:52:37.173] } 1557s [00:52:37.173] } 1557s [00:52:37.173] } 1557s [00:52:37.173] invisible(muffled) 1557s [00:52:37.173] } 1557s [00:52:37.173] muffleCondition(cond, pattern = "^muffle") 1557s [00:52:37.173] } 1557s [00:52:37.173] } 1557s [00:52:37.173] else { 1557s [00:52:37.173] if (TRUE) { 1557s [00:52:37.173] muffleCondition <- function (cond, pattern = "^muffle") 1557s [00:52:37.173] { 1557s [00:52:37.173] inherits <- base::inherits 1557s [00:52:37.173] invokeRestart <- base::invokeRestart 1557s [00:52:37.173] is.null <- base::is.null 1557s [00:52:37.173] muffled <- FALSE 1557s [00:52:37.173] if (inherits(cond, "message")) { 1557s [00:52:37.173] muffled <- grepl(pattern, "muffleMessage") 1557s [00:52:37.173] if (muffled) 1557s [00:52:37.173] invokeRestart("muffleMessage") 1557s [00:52:37.173] } 1557s [00:52:37.173] else if (inherits(cond, "warning")) { 1557s [00:52:37.173] muffled <- grepl(pattern, "muffleWarning") 1557s [00:52:37.173] if (muffled) 1557s [00:52:37.173] invokeRestart("muffleWarning") 1557s [00:52:37.173] } 1557s [00:52:37.173] else if (inherits(cond, "condition")) { 1557s [00:52:37.173] if (!is.null(pattern)) { 1557s [00:52:37.173] computeRestarts <- base::computeRestarts 1557s [00:52:37.173] grepl <- base::grepl 1557s [00:52:37.173] restarts <- computeRestarts(cond) 1557s [00:52:37.173] for (restart in restarts) { 1557s [00:52:37.173] name <- restart$name 1557s [00:52:37.173] if (is.null(name)) 1557s [00:52:37.173] next 1557s [00:52:37.173] if (!grepl(pattern, name)) 1557s [00:52:37.173] next 1557s [00:52:37.173] invokeRestart(restart) 1557s [00:52:37.173] muffled <- TRUE 1557s [00:52:37.173] break 1557s [00:52:37.173] } 1557s [00:52:37.173] } 1557s [00:52:37.173] } 1557s [00:52:37.173] invisible(muffled) 1557s [00:52:37.173] } 1557s [00:52:37.173] muffleCondition(cond, pattern = "^muffle") 1557s [00:52:37.173] } 1557s [00:52:37.173] } 1557s [00:52:37.173] } 1557s [00:52:37.173] })) 1557s [00:52:37.173] }, error = function(ex) { 1557s [00:52:37.173] base::structure(base::list(value = NULL, visible = NULL, 1557s [00:52:37.173] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1557s [00:52:37.173] ...future.rng), started = ...future.startTime, 1557s [00:52:37.173] finished = Sys.time(), session_uuid = NA_character_, 1557s [00:52:37.173] version = "1.8"), class = "FutureResult") 1557s [00:52:37.173] }, finally = { 1557s [00:52:37.173] if (!identical(...future.workdir, getwd())) 1557s [00:52:37.173] setwd(...future.workdir) 1557s [00:52:37.173] { 1557s [00:52:37.173] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1557s [00:52:37.173] ...future.oldOptions$nwarnings <- NULL 1557s [00:52:37.173] } 1557s [00:52:37.173] base::options(...future.oldOptions) 1557s [00:52:37.173] if (.Platform$OS.type == "windows") { 1557s [00:52:37.173] old_names <- names(...future.oldEnvVars) 1557s [00:52:37.173] envs <- base::Sys.getenv() 1557s [00:52:37.173] names <- names(envs) 1557s [00:52:37.173] common <- intersect(names, old_names) 1557s [00:52:37.173] added <- setdiff(names, old_names) 1557s [00:52:37.173] removed <- setdiff(old_names, names) 1557s [00:52:37.173] changed <- common[...future.oldEnvVars[common] != 1557s [00:52:37.173] envs[common]] 1557s [00:52:37.173] NAMES <- toupper(changed) 1557s [00:52:37.173] args <- list() 1557s [00:52:37.173] for (kk in seq_along(NAMES)) { 1557s [00:52:37.173] name <- changed[[kk]] 1557s [00:52:37.173] NAME <- NAMES[[kk]] 1557s [00:52:37.173] if (name != NAME && is.element(NAME, old_names)) 1557s [00:52:37.173] next 1557s [00:52:37.173] args[[name]] <- ...future.oldEnvVars[[name]] 1557s [00:52:37.173] } 1557s [00:52:37.173] NAMES <- toupper(added) 1557s [00:52:37.173] for (kk in seq_along(NAMES)) { 1557s [00:52:37.173] name <- added[[kk]] 1557s [00:52:37.173] NAME <- NAMES[[kk]] 1557s [00:52:37.173] if (name != NAME && is.element(NAME, old_names)) 1557s [00:52:37.173] next 1557s [00:52:37.173] args[[name]] <- "" 1557s [00:52:37.173] } 1557s [00:52:37.173] NAMES <- toupper(removed) 1557s [00:52:37.173] for (kk in seq_along(NAMES)) { 1557s [00:52:37.173] name <- removed[[kk]] 1557s [00:52:37.173] NAME <- NAMES[[kk]] 1557s [00:52:37.173] if (name != NAME && is.element(NAME, old_names)) 1557s [00:52:37.173] next 1557s [00:52:37.173] args[[name]] <- ...future.oldEnvVars[[name]] 1557s [00:52:37.173] } 1557s [00:52:37.173] if (length(args) > 0) 1557s [00:52:37.173] base::do.call(base::Sys.setenv, args = args) 1557s [00:52:37.173] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1557s [00:52:37.173] } 1557s [00:52:37.173] else { 1557s [00:52:37.173] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1557s [00:52:37.173] } 1557s [00:52:37.173] { 1557s [00:52:37.173] if (base::length(...future.futureOptionsAdded) > 1557s [00:52:37.173] 0L) { 1557s [00:52:37.173] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1557s [00:52:37.173] base::names(opts) <- ...future.futureOptionsAdded 1557s [00:52:37.173] base::options(opts) 1557s [00:52:37.173] } 1557s [00:52:37.173] { 1557s [00:52:37.173] { 1557s [00:52:37.173] NULL 1557s [00:52:37.173] RNGkind("Mersenne-Twister") 1557s [00:52:37.173] base::rm(list = ".Random.seed", envir = base::globalenv(), 1557s [00:52:37.173] inherits = FALSE) 1557s [00:52:37.173] } 1557s [00:52:37.173] options(future.plan = NULL) 1557s [00:52:37.173] if (is.na(NA_character_)) 1557s [00:52:37.173] Sys.unsetenv("R_FUTURE_PLAN") 1557s [00:52:37.173] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1557s [00:52:37.173] future::plan(list(function (..., workers = availableCores(), 1557s [00:52:37.173] lazy = FALSE, rscript_libs = .libPaths(), 1557s [00:52:37.173] envir = parent.frame()) 1557s [00:52:37.173] { 1557s [00:52:37.173] if (is.function(workers)) 1557s [00:52:37.173] workers <- workers() 1557s [00:52:37.173] workers <- structure(as.integer(workers), 1557s [00:52:37.173] class = class(workers)) 1557s [00:52:37.173] stop_if_not(length(workers) == 1, is.finite(workers), 1557s [00:52:37.173] workers >= 1) 1557s [00:52:37.173] if (workers == 1L && !inherits(workers, "AsIs")) { 1557s [00:52:37.173] return(sequential(..., lazy = TRUE, envir = envir)) 1557s [00:52:37.173] } 1557s [00:52:37.173] future <- MultisessionFuture(..., workers = workers, 1557s [00:52:37.173] lazy = lazy, rscript_libs = rscript_libs, 1557s [00:52:37.173] envir = envir) 1557s [00:52:37.173] if (!future$lazy) 1557s [00:52:37.173] future <- run(future) 1557s [00:52:37.173] invisible(future) 1557s [00:52:37.173] }), .cleanup = FALSE, .init = FALSE) 1557s [00:52:37.173] } 1557s [00:52:37.173] } 1557s [00:52:37.173] } 1557s [00:52:37.173] }) 1557s [00:52:37.173] if (TRUE) { 1557s [00:52:37.173] base::sink(type = "output", split = FALSE) 1557s [00:52:37.173] if (TRUE) { 1557s [00:52:37.173] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1557s [00:52:37.173] } 1557s [00:52:37.173] else { 1557s [00:52:37.173] ...future.result["stdout"] <- base::list(NULL) 1557s [00:52:37.173] } 1557s [00:52:37.173] base::close(...future.stdout) 1557s [00:52:37.173] ...future.stdout <- NULL 1557s [00:52:37.173] } 1557s [00:52:37.173] ...future.result$conditions <- ...future.conditions 1557s [00:52:37.173] ...future.result$finished <- base::Sys.time() 1557s [00:52:37.173] ...future.result 1557s [00:52:37.173] } 1557s [00:52:37.177] assign_globals() ... 1557s [00:52:37.178] List of 5 1557s [00:52:37.178] $ ...future.FUN :function (x, ...) 1557s [00:52:37.178] $ future.call.arguments : list() 1557s [00:52:37.178] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1557s [00:52:37.178] $ ...future.elements_ii :List of 2 1557s [00:52:37.178] ..$ b:Classes 'listenv', 'environment' 1557s [00:52:37.178] ..$ a:Classes 'listenv', 'environment' 1557s [00:52:37.178] $ ...future.seeds_ii : NULL 1557s [00:52:37.178] $ ...future.globals.maxSize: NULL 1557s [00:52:37.178] - attr(*, "where")=List of 5 1557s [00:52:37.178] ..$ ...future.FUN : 1557s [00:52:37.178] ..$ future.call.arguments : 1557s [00:52:37.178] ..$ ...future.elements_ii : 1557s [00:52:37.178] ..$ ...future.seeds_ii : 1557s [00:52:37.178] ..$ ...future.globals.maxSize: 1557s [00:52:37.178] - attr(*, "resolved")= logi FALSE 1557s [00:52:37.178] - attr(*, "total_size")= num 4968 1557s [00:52:37.178] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1557s [00:52:37.178] - attr(*, "already-done")= logi TRUE 1557s [00:52:37.190] - copied ‘...future.FUN’ to environment 1557s [00:52:37.190] - copied ‘future.call.arguments’ to environment 1557s [00:52:37.190] - copied ‘...future.elements_ii’ to environment 1557s [00:52:37.191] - copied ‘...future.seeds_ii’ to environment 1557s [00:52:37.191] - copied ‘...future.globals.maxSize’ to environment 1557s [00:52:37.191] assign_globals() ... done 1557s [00:52:37.191] plan(): Setting new future strategy stack: 1557s [00:52:37.192] List of future strategies: 1557s [00:52:37.192] 1. sequential: 1557s [00:52:37.192] - args: function (..., envir = parent.frame()) 1557s [00:52:37.192] - tweaked: FALSE 1557s [00:52:37.192] - call: NULL 1557s [00:52:37.193] plan(): nbrOfWorkers() = 1 1557s [00:52:37.195] plan(): Setting new future strategy stack: 1557s [00:52:37.195] List of future strategies: 1557s [00:52:37.195] 1. multisession: 1557s [00:52:37.195] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1557s [00:52:37.195] - tweaked: FALSE 1557s [00:52:37.195] - call: plan(strategy) 1557s [00:52:37.199] plan(): nbrOfWorkers() = 1 1557s [00:52:37.199] SequentialFuture started (and completed) 1557s [00:52:37.199] - Launch lazy future ... done 1557s [00:52:37.199] run() for ‘SequentialFuture’ ... done 1557s [00:52:37.200] Created future: 1557s [00:52:37.200] SequentialFuture: 1557s [00:52:37.200] Label: ‘future_lapply-1’ 1557s [00:52:37.200] Expression: 1557s [00:52:37.200] { 1557s [00:52:37.200] do.call(function(...) { 1557s [00:52:37.200] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1557s [00:52:37.200] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1557s [00:52:37.200] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1557s [00:52:37.200] on.exit(options(oopts), add = TRUE) 1557s [00:52:37.200] } 1557s [00:52:37.200] { 1557s [00:52:37.200] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1557s [00:52:37.200] ...future.X_jj <- ...future.elements_ii[[jj]] 1557s [00:52:37.200] ...future.FUN(...future.X_jj, ...) 1557s [00:52:37.200] }) 1557s [00:52:37.200] } 1557s [00:52:37.200] }, args = future.call.arguments) 1557s [00:52:37.200] } 1557s [00:52:37.200] Lazy evaluation: FALSE 1557s [00:52:37.200] Asynchronous evaluation: FALSE 1557s [00:52:37.200] Local evaluation: TRUE 1557s [00:52:37.200] Environment: R_GlobalEnv 1557s [00:52:37.200] Capture standard output: TRUE 1557s [00:52:37.200] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1557s [00:52:37.200] Globals: 5 objects totaling 17.90 KiB (function ‘...future.FUN’ of 4.85 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 13.05 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1557s [00:52:37.200] Packages: 1 packages (‘listenv’) 1557s [00:52:37.200] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1557s [00:52:37.200] Resolved: TRUE 1557s [00:52:37.200] Value: 800 bytes of class ‘list’ 1557s [00:52:37.200] Early signaling: FALSE 1557s [00:52:37.200] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1557s [00:52:37.200] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1557s [00:52:37.202] Chunk #1 of 1 ... DONE 1557s [00:52:37.202] Launching 1 futures (chunks) ... DONE 1557s [00:52:37.203] Resolving 1 futures (chunks) ... 1557s [00:52:37.204] resolve() on list ... 1557s [00:52:37.204] recursive: 0 1557s [00:52:37.204] length: 1 1557s [00:52:37.204] 1557s [00:52:37.205] resolved() for ‘SequentialFuture’ ... 1557s [00:52:37.205] - state: ‘finished’ 1557s [00:52:37.205] - run: TRUE 1557s [00:52:37.206] - result: ‘FutureResult’ 1557s [00:52:37.206] resolved() for ‘SequentialFuture’ ... done 1557s [00:52:37.206] Future #1 1557s [00:52:37.207] signalConditionsASAP(SequentialFuture, pos=1) ... 1557s [00:52:37.207] - nx: 1 1557s [00:52:37.207] - relay: TRUE 1557s [00:52:37.207] - stdout: TRUE 1557s [00:52:37.207] - signal: TRUE 1557s [00:52:37.207] - resignal: FALSE 1557s [00:52:37.207] - force: TRUE 1557s [00:52:37.208] - relayed: [n=1] FALSE 1557s [00:52:37.208] - queued futures: [n=1] FALSE 1557s [00:52:37.208] - until=1 1557s [00:52:37.208] - relaying element #1 1557s [00:52:37.208] - relayed: [n=1] TRUE 1557s [00:52:37.209] - queued futures: [n=1] TRUE 1557s [00:52:37.209] signalConditionsASAP(SequentialFuture, pos=1) ... done 1557s [00:52:37.209] length: 0 (resolved future 1) 1557s [00:52:37.209] Relaying remaining futures 1557s [00:52:37.209] signalConditionsASAP(NULL, pos=0) ... 1557s [00:52:37.209] - nx: 1 1557s [00:52:37.210] - relay: TRUE 1557s [00:52:37.210] - stdout: TRUE 1557s [00:52:37.210] - signal: TRUE 1557s [00:52:37.210] - resignal: FALSE 1557s [00:52:37.211] - force: TRUE 1557s [00:52:37.211] - relayed: [n=1] TRUE 1557s [00:52:37.211] - queued futures: [n=1] TRUE 1557s - flush all 1557s [00:52:37.211] - relayed: [n=1] TRUE 1557s [00:52:37.211] - queued futures: [n=1] TRUE 1557s [00:52:37.212] signalConditionsASAP(NULL, pos=0) ... done 1557s [00:52:37.212] resolve() on list ... DONE 1557s List of 1 1557s $ y[00:52:37.212] - Number of value chunks collected: 1 1557s [00:52:37.212] Resolving 1 futures (chunks) ... DONE 1557s [00:52:37.212] Reducing values from 1 chunks ... 1557s [00:52:37.213] - Number of values collected after concatenation: 2 1557s [00:52:37.213] - Number of values expected: 2 1557s [00:52:37.213] Reverse index remapping (attribute 'ordering'): [n = 2] 2, 1 1557s [00:52:37.213] Reducing values from 1 chunks ... DONE 1557s [00:52:37.213] future_lapply() ... DONE 1557s :List of 2 1557s ..$ a: Named chr "A" 1557s .. ..- attr(*, "names")= chr "A" 1557s ..$ b: Named chr [1:2] "A" "B" 1557s .. ..- attr(*, "names")= chr [1:2] "A" "B" 1557s - future_lapply(x, FUN, ...) for large length(x) ... 1557s [00:52:37.216] future_lapply() ... 1557s [00:52:37.221] Number of chunks: 1 1557s [00:52:37.222] getGlobalsAndPackagesXApply() ... 1557s [00:52:37.222] - future.globals: TRUE 1557s [00:52:37.222] getGlobalsAndPackages() ... 1557s [00:52:37.222] Searching for globals... 1557s [00:52:37.224] - globals found: [4] ‘FUN’, ‘sqrt’, ‘+’, ‘a’ 1557s [00:52:37.224] Searching for globals ... DONE 1557s [00:52:37.224] Resolving globals: FALSE 1557s [00:52:37.225] The total size of the 2 globals is 1.93 KiB (1976 bytes) 1557s [00:52:37.225] The total size of the 2 globals exported for future expression (‘FUN()’) is 1.93 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are two globals: ‘FUN’ (1.88 KiB of class ‘function’) and ‘a’ (56 bytes of class ‘numeric’) 1557s [00:52:37.225] - globals: [2] ‘FUN’, ‘a’ 1557s [00:52:37.225] 1557s [00:52:37.226] getGlobalsAndPackages() ... DONE 1557s [00:52:37.226] - globals found/used: [n=2] ‘FUN’, ‘a’ 1557s [00:52:37.226] - needed namespaces: [n=0] 1557s [00:52:37.226] Finding globals ... DONE 1557s [00:52:37.226] - use_args: TRUE 1557s [00:52:37.226] - Getting '...' globals ... 1557s [00:52:37.227] resolve() on list ... 1557s [00:52:37.227] recursive: 0 1557s [00:52:37.227] length: 1 1557s [00:52:37.227] elements: ‘...’ 1557s [00:52:37.227] length: 0 (resolved future 1) 1557s [00:52:37.228] resolve() on list ... DONE 1557s [00:52:37.228] - '...' content: [n=0] 1557s [00:52:37.228] List of 1 1557s [00:52:37.228] $ ...: list() 1557s [00:52:37.228] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1557s [00:52:37.228] - attr(*, "where")=List of 1 1557s [00:52:37.228] ..$ ...: 1557s [00:52:37.228] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1557s [00:52:37.228] - attr(*, "resolved")= logi TRUE 1557s [00:52:37.228] - attr(*, "total_size")= num NA 1557s [00:52:37.239] - Getting '...' globals ... DONE 1557s [00:52:37.240] Globals to be used in all futures (chunks): [n=3] ‘...future.FUN’, ‘a’, ‘...’ 1557s [00:52:37.240] List of 3 1557s [00:52:37.240] $ ...future.FUN:function (z) 1557s [00:52:37.240] $ a : num 3.14 1557s [00:52:37.240] $ ... : list() 1557s [00:52:37.240] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1557s [00:52:37.240] - attr(*, "where")=List of 3 1557s [00:52:37.240] ..$ ...future.FUN: 1557s [00:52:37.240] ..$ a : 1557s [00:52:37.240] ..$ ... : 1557s [00:52:37.240] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1557s [00:52:37.240] - attr(*, "resolved")= logi FALSE 1557s [00:52:37.240] - attr(*, "total_size")= num 1976 1557s [00:52:37.244] Packages to be attached in all futures: [n=0] 1557s [00:52:37.245] getGlobalsAndPackagesXApply() ... DONE 1557s [00:52:37.245] Number of futures (= number of chunks): 1 1557s [00:52:37.245] Launching 1 futures (chunks) ... 1557s [00:52:37.245] Chunk #1 of 1 ... 1557s [00:52:37.248] - Finding globals in 'X' for chunk #1 ... 1557s [00:52:37.248] getGlobalsAndPackages() ... 1557s [00:52:37.248] Searching for globals... 1557s [00:52:37.257] 1557s [00:52:37.257] Searching for globals ... DONE 1557s [00:52:37.258] - globals: [0] 1557s [00:52:37.258] getGlobalsAndPackages() ... DONE 1557s [00:52:37.258] + additional globals found: [n=0] 1557s [00:52:37.258] + additional namespaces needed: [n=0] 1557s [00:52:37.258] - Finding globals in 'X' for chunk #1 ... DONE 1557s [00:52:37.258] - seeds: 1557s [00:52:37.259] - All globals exported: [n=6] ‘...future.FUN’, ‘a’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1557s [00:52:37.259] getGlobalsAndPackages() ... 1557s [00:52:37.259] - globals passed as-is: [6] ‘...future.FUN’, ‘a’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1557s [00:52:37.259] Resolving globals: FALSE 1557s [00:52:37.259] Tweak future expression to call with '...' arguments ... 1557s [00:52:37.260] { 1557s [00:52:37.260] do.call(function(...) { 1557s [00:52:37.260] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1557s [00:52:37.260] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1557s [00:52:37.260] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1557s [00:52:37.260] on.exit(options(oopts), add = TRUE) 1557s [00:52:37.260] } 1557s [00:52:37.260] { 1557s [00:52:37.260] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1557s [00:52:37.260] ...future.X_jj <- ...future.elements_ii[[jj]] 1557s [00:52:37.260] ...future.FUN(...future.X_jj, ...) 1557s [00:52:37.260] }) 1557s [00:52:37.260] } 1557s [00:52:37.260] }, args = future.call.arguments) 1557s [00:52:37.260] } 1557s [00:52:37.260] Tweak future expression to call with '...' arguments ... DONE 1557s [00:52:37.261] - globals: [6] ‘...future.FUN’, ‘a’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1557s [00:52:37.261] 1557s [00:52:37.261] getGlobalsAndPackages() ... DONE 1557s [00:52:37.262] run() for ‘Future’ ... 1557s [00:52:37.262] - state: ‘created’ 1557s [00:52:37.262] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1557s [00:52:37.266] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1557s [00:52:37.266] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1557s [00:52:37.266] - Field: ‘label’ 1557s [00:52:37.267] - Field: ‘local’ 1557s [00:52:37.267] - Field: ‘owner’ 1557s [00:52:37.267] - Field: ‘envir’ 1557s [00:52:37.267] - Field: ‘packages’ 1557s [00:52:37.267] - Field: ‘gc’ 1557s [00:52:37.268] - Field: ‘conditions’ 1557s [00:52:37.268] - Field: ‘expr’ 1557s [00:52:37.268] - Field: ‘uuid’ 1557s [00:52:37.268] - Field: ‘seed’ 1557s [00:52:37.268] - Field: ‘version’ 1557s [00:52:37.268] - Field: ‘result’ 1557s [00:52:37.269] - Field: ‘asynchronous’ 1557s [00:52:37.269] - Field: ‘calls’ 1557s [00:52:37.269] - Field: ‘globals’ 1557s [00:52:37.269] - Field: ‘stdout’ 1557s [00:52:37.270] - Field: ‘earlySignal’ 1557s [00:52:37.270] - Field: ‘lazy’ 1557s [00:52:37.270] - Field: ‘state’ 1557s [00:52:37.270] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1557s [00:52:37.270] - Launch lazy future ... 1557s [00:52:37.270] Packages needed by the future expression (n = 0): 1557s [00:52:37.271] Packages needed by future strategies (n = 0): 1557s [00:52:37.271] { 1557s [00:52:37.271] { 1557s [00:52:37.271] { 1557s [00:52:37.271] ...future.startTime <- base::Sys.time() 1557s [00:52:37.271] { 1557s [00:52:37.271] { 1557s [00:52:37.271] { 1557s [00:52:37.271] base::local({ 1557s [00:52:37.271] has_future <- base::requireNamespace("future", 1557s [00:52:37.271] quietly = TRUE) 1557s [00:52:37.271] if (has_future) { 1557s [00:52:37.271] ns <- base::getNamespace("future") 1557s [00:52:37.271] version <- ns[[".package"]][["version"]] 1557s [00:52:37.271] if (is.null(version)) 1557s [00:52:37.271] version <- utils::packageVersion("future") 1557s [00:52:37.271] } 1557s [00:52:37.271] else { 1557s [00:52:37.271] version <- NULL 1557s [00:52:37.271] } 1557s [00:52:37.271] if (!has_future || version < "1.8.0") { 1557s [00:52:37.271] info <- base::c(r_version = base::gsub("R version ", 1557s [00:52:37.271] "", base::R.version$version.string), 1557s [00:52:37.271] platform = base::sprintf("%s (%s-bit)", 1557s [00:52:37.271] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1557s [00:52:37.271] os = base::paste(base::Sys.info()[base::c("sysname", 1557s [00:52:37.271] "release", "version")], collapse = " "), 1557s [00:52:37.271] hostname = base::Sys.info()[["nodename"]]) 1557s [00:52:37.271] info <- base::sprintf("%s: %s", base::names(info), 1557s [00:52:37.271] info) 1557s [00:52:37.271] info <- base::paste(info, collapse = "; ") 1557s [00:52:37.271] if (!has_future) { 1557s [00:52:37.271] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1557s [00:52:37.271] info) 1557s [00:52:37.271] } 1557s [00:52:37.271] else { 1557s [00:52:37.271] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1557s [00:52:37.271] info, version) 1557s [00:52:37.271] } 1557s [00:52:37.271] base::stop(msg) 1557s [00:52:37.271] } 1557s [00:52:37.271] }) 1557s [00:52:37.271] } 1557s [00:52:37.271] options(future.plan = NULL) 1557s [00:52:37.271] Sys.unsetenv("R_FUTURE_PLAN") 1557s [00:52:37.271] future::plan("default", .cleanup = FALSE, .init = FALSE) 1557s [00:52:37.271] } 1557s [00:52:37.271] ...future.workdir <- getwd() 1557s [00:52:37.271] } 1557s [00:52:37.271] ...future.oldOptions <- base::as.list(base::.Options) 1557s [00:52:37.271] ...future.oldEnvVars <- base::Sys.getenv() 1557s [00:52:37.271] } 1557s [00:52:37.271] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1557s [00:52:37.271] future.globals.maxSize = NULL, future.globals.method = NULL, 1557s [00:52:37.271] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1557s [00:52:37.271] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1557s [00:52:37.271] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1557s [00:52:37.271] future.stdout.windows.reencode = NULL, width = 80L) 1557s [00:52:37.271] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1557s [00:52:37.271] base::names(...future.oldOptions)) 1557s [00:52:37.271] } 1557s [00:52:37.271] if (FALSE) { 1557s [00:52:37.271] } 1557s [00:52:37.271] else { 1557s [00:52:37.271] if (TRUE) { 1557s [00:52:37.271] ...future.stdout <- base::rawConnection(base::raw(0L), 1557s [00:52:37.271] open = "w") 1557s [00:52:37.271] } 1557s [00:52:37.271] else { 1557s [00:52:37.271] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1557s [00:52:37.271] windows = "NUL", "/dev/null"), open = "w") 1557s [00:52:37.271] } 1557s [00:52:37.271] base::sink(...future.stdout, type = "output", split = FALSE) 1557s [00:52:37.271] base::on.exit(if (!base::is.null(...future.stdout)) { 1557s [00:52:37.271] base::sink(type = "output", split = FALSE) 1557s [00:52:37.271] base::close(...future.stdout) 1557s [00:52:37.271] }, add = TRUE) 1557s [00:52:37.271] } 1557s [00:52:37.271] ...future.frame <- base::sys.nframe() 1557s [00:52:37.271] ...future.conditions <- base::list() 1557s [00:52:37.271] ...future.rng <- base::globalenv()$.Random.seed 1557s [00:52:37.271] if (FALSE) { 1557s [00:52:37.271] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1557s [00:52:37.271] "...future.value", "...future.globalenv.names", ".Random.seed") 1557s [00:52:37.271] } 1557s [00:52:37.271] ...future.result <- base::tryCatch({ 1557s [00:52:37.271] base::withCallingHandlers({ 1557s [00:52:37.271] ...future.value <- base::withVisible(base::local({ 1557s [00:52:37.271] do.call(function(...) { 1557s [00:52:37.271] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1557s [00:52:37.271] if (!identical(...future.globals.maxSize.org, 1557s [00:52:37.271] ...future.globals.maxSize)) { 1557s [00:52:37.271] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1557s [00:52:37.271] on.exit(options(oopts), add = TRUE) 1557s [00:52:37.271] } 1557s [00:52:37.271] { 1557s [00:52:37.271] lapply(seq_along(...future.elements_ii), 1557s [00:52:37.271] FUN = function(jj) { 1557s [00:52:37.271] ...future.X_jj <- ...future.elements_ii[[jj]] 1557s [00:52:37.271] ...future.FUN(...future.X_jj, ...) 1557s [00:52:37.271] }) 1557s [00:52:37.271] } 1557s [00:52:37.271] }, args = future.call.arguments) 1557s [00:52:37.271] })) 1557s [00:52:37.271] future::FutureResult(value = ...future.value$value, 1557s [00:52:37.271] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1557s [00:52:37.271] ...future.rng), globalenv = if (FALSE) 1557s [00:52:37.271] list(added = base::setdiff(base::names(base::.GlobalEnv), 1557s [00:52:37.271] ...future.globalenv.names)) 1557s [00:52:37.271] else NULL, started = ...future.startTime, version = "1.8") 1557s [00:52:37.271] }, condition = base::local({ 1557s [00:52:37.271] c <- base::c 1557s [00:52:37.271] inherits <- base::inherits 1557s [00:52:37.271] invokeRestart <- base::invokeRestart 1557s [00:52:37.271] length <- base::length 1557s [00:52:37.271] list <- base::list 1557s [00:52:37.271] seq.int <- base::seq.int 1557s [00:52:37.271] signalCondition <- base::signalCondition 1557s [00:52:37.271] sys.calls <- base::sys.calls 1557s [00:52:37.271] `[[` <- base::`[[` 1557s [00:52:37.271] `+` <- base::`+` 1557s [00:52:37.271] `<<-` <- base::`<<-` 1557s [00:52:37.271] sysCalls <- function(calls = sys.calls(), from = 1L) { 1557s [00:52:37.271] calls[seq.int(from = from + 12L, to = length(calls) - 1557s [00:52:37.271] 3L)] 1557s [00:52:37.271] } 1557s [00:52:37.271] function(cond) { 1557s [00:52:37.271] is_error <- inherits(cond, "error") 1557s [00:52:37.271] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1557s [00:52:37.271] NULL) 1557s [00:52:37.271] if (is_error) { 1557s [00:52:37.271] sessionInformation <- function() { 1557s [00:52:37.271] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1557s [00:52:37.271] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1557s [00:52:37.271] search = base::search(), system = base::Sys.info()) 1557s [00:52:37.271] } 1557s [00:52:37.271] ...future.conditions[[length(...future.conditions) + 1557s [00:52:37.271] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1557s [00:52:37.271] cond$call), session = sessionInformation(), 1557s [00:52:37.271] timestamp = base::Sys.time(), signaled = 0L) 1557s [00:52:37.271] signalCondition(cond) 1557s [00:52:37.271] } 1557s [00:52:37.271] else if (!ignore && TRUE && inherits(cond, c("condition", 1557s [00:52:37.271] "immediateCondition"))) { 1557s [00:52:37.271] signal <- TRUE && inherits(cond, "immediateCondition") 1557s [00:52:37.271] ...future.conditions[[length(...future.conditions) + 1557s [00:52:37.271] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1557s [00:52:37.271] if (TRUE && !signal) { 1557s [00:52:37.271] muffleCondition <- function (cond, pattern = "^muffle") 1557s [00:52:37.271] { 1557s [00:52:37.271] inherits <- base::inherits 1557s [00:52:37.271] invokeRestart <- base::invokeRestart 1557s [00:52:37.271] is.null <- base::is.null 1557s [00:52:37.271] muffled <- FALSE 1557s [00:52:37.271] if (inherits(cond, "message")) { 1557s [00:52:37.271] muffled <- grepl(pattern, "muffleMessage") 1557s [00:52:37.271] if (muffled) 1557s [00:52:37.271] invokeRestart("muffleMessage") 1557s [00:52:37.271] } 1557s [00:52:37.271] else if (inherits(cond, "warning")) { 1557s [00:52:37.271] muffled <- grepl(pattern, "muffleWarning") 1557s [00:52:37.271] if (muffled) 1557s [00:52:37.271] invokeRestart("muffleWarning") 1557s [00:52:37.271] } 1557s [00:52:37.271] else if (inherits(cond, "condition")) { 1557s [00:52:37.271] if (!is.null(pattern)) { 1557s [00:52:37.271] computeRestarts <- base::computeRestarts 1557s [00:52:37.271] grepl <- base::grepl 1557s [00:52:37.271] restarts <- computeRestarts(cond) 1557s [00:52:37.271] for (restart in restarts) { 1557s [00:52:37.271] name <- restart$name 1557s [00:52:37.271] if (is.null(name)) 1557s [00:52:37.271] next 1557s [00:52:37.271] if (!grepl(pattern, name)) 1557s [00:52:37.271] next 1557s [00:52:37.271] invokeRestart(restart) 1557s [00:52:37.271] muffled <- TRUE 1557s [00:52:37.271] break 1557s [00:52:37.271] } 1557s [00:52:37.271] } 1557s [00:52:37.271] } 1557s [00:52:37.271] invisible(muffled) 1557s [00:52:37.271] } 1557s [00:52:37.271] muffleCondition(cond, pattern = "^muffle") 1557s [00:52:37.271] } 1557s [00:52:37.271] } 1557s [00:52:37.271] else { 1557s [00:52:37.271] if (TRUE) { 1557s [00:52:37.271] muffleCondition <- function (cond, pattern = "^muffle") 1557s [00:52:37.271] { 1557s [00:52:37.271] inherits <- base::inherits 1557s [00:52:37.271] invokeRestart <- base::invokeRestart 1557s [00:52:37.271] is.null <- base::is.null 1557s [00:52:37.271] muffled <- FALSE 1557s [00:52:37.271] if (inherits(cond, "message")) { 1557s [00:52:37.271] muffled <- grepl(pattern, "muffleMessage") 1557s [00:52:37.271] if (muffled) 1557s [00:52:37.271] invokeRestart("muffleMessage") 1557s [00:52:37.271] } 1557s [00:52:37.271] else if (inherits(cond, "warning")) { 1557s [00:52:37.271] muffled <- grepl(pattern, "muffleWarning") 1557s [00:52:37.271] if (muffled) 1557s [00:52:37.271] invokeRestart("muffleWarning") 1557s [00:52:37.271] } 1557s [00:52:37.271] else if (inherits(cond, "condition")) { 1557s [00:52:37.271] if (!is.null(pattern)) { 1557s [00:52:37.271] computeRestarts <- base::computeRestarts 1557s [00:52:37.271] grepl <- base::grepl 1557s [00:52:37.271] restarts <- computeRestarts(cond) 1557s [00:52:37.271] for (restart in restarts) { 1557s [00:52:37.271] name <- restart$name 1557s [00:52:37.271] if (is.null(name)) 1557s [00:52:37.271] next 1557s [00:52:37.271] if (!grepl(pattern, name)) 1557s [00:52:37.271] next 1557s [00:52:37.271] invokeRestart(restart) 1557s [00:52:37.271] muffled <- TRUE 1557s [00:52:37.271] break 1557s [00:52:37.271] } 1557s [00:52:37.271] } 1557s [00:52:37.271] } 1557s [00:52:37.271] invisible(muffled) 1557s [00:52:37.271] } 1557s [00:52:37.271] muffleCondition(cond, pattern = "^muffle") 1557s [00:52:37.271] } 1557s [00:52:37.271] } 1557s [00:52:37.271] } 1557s [00:52:37.271] })) 1557s [00:52:37.271] }, error = function(ex) { 1557s [00:52:37.271] base::structure(base::list(value = NULL, visible = NULL, 1557s [00:52:37.271] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1557s [00:52:37.271] ...future.rng), started = ...future.startTime, 1557s [00:52:37.271] finished = Sys.time(), session_uuid = NA_character_, 1557s [00:52:37.271] version = "1.8"), class = "FutureResult") 1557s [00:52:37.271] }, finally = { 1557s [00:52:37.271] if (!identical(...future.workdir, getwd())) 1557s [00:52:37.271] setwd(...future.workdir) 1557s [00:52:37.271] { 1557s [00:52:37.271] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1557s [00:52:37.271] ...future.oldOptions$nwarnings <- NULL 1557s [00:52:37.271] } 1557s [00:52:37.271] base::options(...future.oldOptions) 1557s [00:52:37.271] if (.Platform$OS.type == "windows") { 1557s [00:52:37.271] old_names <- names(...future.oldEnvVars) 1557s [00:52:37.271] envs <- base::Sys.getenv() 1557s [00:52:37.271] names <- names(envs) 1557s [00:52:37.271] common <- intersect(names, old_names) 1557s [00:52:37.271] added <- setdiff(names, old_names) 1557s [00:52:37.271] removed <- setdiff(old_names, names) 1557s [00:52:37.271] changed <- common[...future.oldEnvVars[common] != 1557s [00:52:37.271] envs[common]] 1557s [00:52:37.271] NAMES <- toupper(changed) 1557s [00:52:37.271] args <- list() 1557s [00:52:37.271] for (kk in seq_along(NAMES)) { 1557s [00:52:37.271] name <- changed[[kk]] 1557s [00:52:37.271] NAME <- NAMES[[kk]] 1557s [00:52:37.271] if (name != NAME && is.element(NAME, old_names)) 1557s [00:52:37.271] next 1557s [00:52:37.271] args[[name]] <- ...future.oldEnvVars[[name]] 1557s [00:52:37.271] } 1557s [00:52:37.271] NAMES <- toupper(added) 1557s [00:52:37.271] for (kk in seq_along(NAMES)) { 1557s [00:52:37.271] name <- added[[kk]] 1557s [00:52:37.271] NAME <- NAMES[[kk]] 1557s [00:52:37.271] if (name != NAME && is.element(NAME, old_names)) 1557s [00:52:37.271] next 1557s [00:52:37.271] args[[name]] <- "" 1557s [00:52:37.271] } 1557s [00:52:37.271] NAMES <- toupper(removed) 1557s [00:52:37.271] for (kk in seq_along(NAMES)) { 1557s [00:52:37.271] name <- removed[[kk]] 1557s [00:52:37.271] NAME <- NAMES[[kk]] 1557s [00:52:37.271] if (name != NAME && is.element(NAME, old_names)) 1557s [00:52:37.271] next 1557s [00:52:37.271] args[[name]] <- ...future.oldEnvVars[[name]] 1557s [00:52:37.271] } 1557s [00:52:37.271] if (length(args) > 0) 1557s [00:52:37.271] base::do.call(base::Sys.setenv, args = args) 1557s [00:52:37.271] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1557s [00:52:37.271] } 1557s [00:52:37.271] else { 1557s [00:52:37.271] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1557s [00:52:37.271] } 1557s [00:52:37.271] { 1557s [00:52:37.271] if (base::length(...future.futureOptionsAdded) > 1557s [00:52:37.271] 0L) { 1557s [00:52:37.271] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1557s [00:52:37.271] base::names(opts) <- ...future.futureOptionsAdded 1557s [00:52:37.271] base::options(opts) 1557s [00:52:37.271] } 1557s [00:52:37.271] { 1557s [00:52:37.271] { 1557s [00:52:37.271] NULL 1557s [00:52:37.271] RNGkind("Mersenne-Twister") 1557s [00:52:37.271] base::rm(list = ".Random.seed", envir = base::globalenv(), 1557s [00:52:37.271] inherits = FALSE) 1557s [00:52:37.271] } 1557s [00:52:37.271] options(future.plan = NULL) 1557s [00:52:37.271] if (is.na(NA_character_)) 1557s [00:52:37.271] Sys.unsetenv("R_FUTURE_PLAN") 1557s [00:52:37.271] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1557s [00:52:37.271] future::plan(list(function (..., workers = availableCores(), 1557s [00:52:37.271] lazy = FALSE, rscript_libs = .libPaths(), 1557s [00:52:37.271] envir = parent.frame()) 1557s [00:52:37.271] { 1557s [00:52:37.271] if (is.function(workers)) 1557s [00:52:37.271] workers <- workers() 1557s [00:52:37.271] workers <- structure(as.integer(workers), 1557s [00:52:37.271] class = class(workers)) 1557s [00:52:37.271] stop_if_not(length(workers) == 1, is.finite(workers), 1557s [00:52:37.271] workers >= 1) 1557s [00:52:37.271] if (workers == 1L && !inherits(workers, "AsIs")) { 1557s [00:52:37.271] return(sequential(..., lazy = TRUE, envir = envir)) 1557s [00:52:37.271] } 1557s [00:52:37.271] future <- MultisessionFuture(..., workers = workers, 1557s [00:52:37.271] lazy = lazy, rscript_libs = rscript_libs, 1557s [00:52:37.271] envir = envir) 1557s [00:52:37.271] if (!future$lazy) 1557s [00:52:37.271] future <- run(future) 1557s [00:52:37.271] invisible(future) 1557s [00:52:37.271] }), .cleanup = FALSE, .init = FALSE) 1557s [00:52:37.271] } 1557s [00:52:37.271] } 1557s [00:52:37.271] } 1557s [00:52:37.271] }) 1557s [00:52:37.271] if (TRUE) { 1557s [00:52:37.271] base::sink(type = "output", split = FALSE) 1557s [00:52:37.271] if (TRUE) { 1557s [00:52:37.271] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1557s [00:52:37.271] } 1557s [00:52:37.271] else { 1557s [00:52:37.271] ...future.result["stdout"] <- base::list(NULL) 1557s [00:52:37.271] } 1557s [00:52:37.271] base::close(...future.stdout) 1557s [00:52:37.271] ...future.stdout <- NULL 1557s [00:52:37.271] } 1557s [00:52:37.271] ...future.result$conditions <- ...future.conditions 1557s [00:52:37.271] ...future.result$finished <- base::Sys.time() 1557s [00:52:37.271] ...future.result 1557s [00:52:37.271] } 1557s [00:52:37.275] assign_globals() ... 1557s [00:52:37.275] List of 6 1557s [00:52:37.275] $ ...future.FUN :function (z) 1557s [00:52:37.275] $ a : num 3.14 1557s [00:52:37.275] $ future.call.arguments : list() 1557s [00:52:37.275] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1557s [00:52:37.275] $ ...future.elements_ii :List of 10000 1557s [00:52:37.275] ..$ : int 1 1557s [00:52:37.275] ..$ : int 2 1557s [00:52:37.275] ..$ : int 3 1557s [00:52:37.275] ..$ : int 4 1557s [00:52:37.275] ..$ : int 5 1557s [00:52:37.275] ..$ : int 6 1557s [00:52:37.275] ..$ : int 7 1557s [00:52:37.275] ..$ : int 8 1557s [00:52:37.275] ..$ : int 9 1557s [00:52:37.275] ..$ : int 10 1557s [00:52:37.275] ..$ : int 11 1557s [00:52:37.275] ..$ : int 12 1557s [00:52:37.275] ..$ : int 13 1557s [00:52:37.275] ..$ : int 14 1557s [00:52:37.275] ..$ : int 15 1557s [00:52:37.275] ..$ : int 16 1557s [00:52:37.275] ..$ : int 17 1557s [00:52:37.275] ..$ : int 18 1557s [00:52:37.275] ..$ : int 19 1557s [00:52:37.275] ..$ : int 20 1557s [00:52:37.275] ..$ : int 21 1557s [00:52:37.275] ..$ : int 22 1557s [00:52:37.275] ..$ : int 23 1557s [00:52:37.275] ..$ : int 24 1557s [00:52:37.275] ..$ : int 25 1557s [00:52:37.275] ..$ : int 26 1557s [00:52:37.275] ..$ : int 27 1557s [00:52:37.275] ..$ : int 28 1557s [00:52:37.275] ..$ : int 29 1557s [00:52:37.275] ..$ : int 30 1557s [00:52:37.275] ..$ : int 31 1557s [00:52:37.275] ..$ : int 32 1557s [00:52:37.275] ..$ : int 33 1557s [00:52:37.275] ..$ : int 34 1557s [00:52:37.275] ..$ : int 35 1557s [00:52:37.275] ..$ : int 36 1557s [00:52:37.275] ..$ : int 37 1557s [00:52:37.275] ..$ : int 38 1557s [00:52:37.275] ..$ : int 39 1557s [00:52:37.275] ..$ : int 40 1557s [00:52:37.275] ..$ : int 41 1557s [00:52:37.275] ..$ : int 42 1557s [00:52:37.275] ..$ : int 43 1557s [00:52:37.275] ..$ : int 44 1557s [00:52:37.275] ..$ : int 45 1557s [00:52:37.275] ..$ : int 46 1557s [00:52:37.275] ..$ : int 47 1557s [00:52:37.275] ..$ : int 48 1557s [00:52:37.275] ..$ : int 49 1557s [00:52:37.275] ..$ : int 50 1557s [00:52:37.275] ..$ : int 51 1557s [00:52:37.275] ..$ : int 52 1557s [00:52:37.275] ..$ : int 53 1557s [00:52:37.275] ..$ : int 54 1557s [00:52:37.275] ..$ : int 55 1557s [00:52:37.275] ..$ : int 56 1557s [00:52:37.275] ..$ : int 57 1557s [00:52:37.275] ..$ : int 58 1557s [00:52:37.275] ..$ : int 59 1557s [00:52:37.275] ..$ : int 60 1557s [00:52:37.275] ..$ : int 61 1557s [00:52:37.275] ..$ : int 62 1557s [00:52:37.275] ..$ : int 63 1557s [00:52:37.275] ..$ : int 64 1557s [00:52:37.275] ..$ : int 65 1557s [00:52:37.275] ..$ : int 66 1557s [00:52:37.275] ..$ : int 67 1557s [00:52:37.275] ..$ : int 68 1557s [00:52:37.275] ..$ : int 69 1557s [00:52:37.275] ..$ : int 70 1557s [00:52:37.275] ..$ : int 71 1557s [00:52:37.275] ..$ : int 72 1557s [00:52:37.275] ..$ : int 73 1557s [00:52:37.275] ..$ : int 74 1557s [00:52:37.275] ..$ : int 75 1557s [00:52:37.275] ..$ : int 76 1557s [00:52:37.275] ..$ : int 77 1557s [00:52:37.275] ..$ : int 78 1557s [00:52:37.275] ..$ : int 79 1557s [00:52:37.275] ..$ : int 80 1557s [00:52:37.275] ..$ : int 81 1557s [00:52:37.275] ..$ : int 82 1557s [00:52:37.275] ..$ : int 83 1557s [00:52:37.275] ..$ : int 84 1557s [00:52:37.275] ..$ : int 85 1557s [00:52:37.275] ..$ : int 86 1557s [00:52:37.275] ..$ : int 87 1557s [00:52:37.275] ..$ : int 88 1557s [00:52:37.275] ..$ : int 89 1557s [00:52:37.275] ..$ : int 90 1557s [00:52:37.275] ..$ : int 91 1557s [00:52:37.275] ..$ : int 92 1557s [00:52:37.275] ..$ : int 93 1557s [00:52:37.275] ..$ : int 94 1557s [00:52:37.275] ..$ : int 95 1557s [00:52:37.275] ..$ : int 96 1557s [00:52:37.275] ..$ : int 97 1557s [00:52:37.275] ..$ : int 98 1557s [00:52:37.275] ..$ : int 99 1557s [00:52:37.275] .. [list output truncated] 1557s [00:52:37.275] $ ...future.seeds_ii : NULL 1557s [00:52:37.275] $ ...future.globals.maxSize: NULL 1557s [00:52:37.275] - attr(*, "where")=List of 6 1557s [00:52:37.275] ..$ ...future.FUN : 1557s [00:52:37.275] ..$ a : 1557s [00:52:37.275] ..$ future.call.arguments : 1557s [00:52:37.275] ..$ ...future.elements_ii : 1557s [00:52:37.275] ..$ ...future.seeds_ii : 1557s [00:52:37.275] ..$ ...future.globals.maxSize: 1557s [00:52:37.275] - attr(*, "resolved")= logi FALSE 1557s [00:52:37.275] - attr(*, "total_size")= num 1976 1557s [00:52:37.275] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1557s [00:52:37.275] - attr(*, "already-done")= logi TRUE 1557s [00:52:37.331] - reassign environment for ‘...future.FUN’ 1557s [00:52:37.332] - copied ‘...future.FUN’ to environment 1557s [00:52:37.332] - copied ‘a’ to environment 1557s [00:52:37.332] - copied ‘future.call.arguments’ to environment 1557s [00:52:37.332] - copied ‘...future.elements_ii’ to environment 1557s [00:52:37.332] - copied ‘...future.seeds_ii’ to environment 1557s [00:52:37.333] - copied ‘...future.globals.maxSize’ to environment 1557s [00:52:37.333] assign_globals() ... done 1557s [00:52:37.333] plan(): Setting new future strategy stack: 1557s [00:52:37.333] List of future strategies: 1557s [00:52:37.333] 1. sequential: 1557s [00:52:37.333] - args: function (..., envir = parent.frame()) 1557s [00:52:37.333] - tweaked: FALSE 1557s [00:52:37.333] - call: NULL 1557s [00:52:37.334] plan(): nbrOfWorkers() = 1 1557s [00:52:37.354] plan(): Setting new future strategy stack: 1557s [00:52:37.354] List of future strategies: 1557s [00:52:37.354] 1. multisession: 1557s [00:52:37.354] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1557s [00:52:37.354] - tweaked: FALSE 1557s [00:52:37.354] - call: plan(strategy) 1557s [00:52:37.358] plan(): nbrOfWorkers() = 1 1557s [00:52:37.358] SequentialFuture started (and completed) 1557s [00:52:37.358] - Launch lazy future ... done 1557s [00:52:37.358] run() for ‘SequentialFuture’ ... done 1557s [00:52:37.359] Created future: 1557s [00:52:37.359] SequentialFuture: 1557s [00:52:37.359] Label: ‘future_lapply-1’ 1557s [00:52:37.359] Expression: 1557s [00:52:37.359] { 1557s [00:52:37.359] do.call(function(...) { 1557s [00:52:37.359] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1557s [00:52:37.359] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1557s [00:52:37.359] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1557s [00:52:37.359] on.exit(options(oopts), add = TRUE) 1557s [00:52:37.359] } 1557s [00:52:37.359] { 1557s [00:52:37.359] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1557s [00:52:37.359] ...future.X_jj <- ...future.elements_ii[[jj]] 1557s [00:52:37.359] ...future.FUN(...future.X_jj, ...) 1557s [00:52:37.359] }) 1557s [00:52:37.359] } 1557s [00:52:37.359] }, args = future.call.arguments) 1557s [00:52:37.359] } 1557s [00:52:37.359] Lazy evaluation: FALSE 1557s [00:52:37.359] Asynchronous evaluation: FALSE 1557s [00:52:37.359] Local evaluation: TRUE 1557s [00:52:37.359] Environment: R_GlobalEnv 1557s [00:52:37.359] Capture standard output: TRUE 1557s [00:52:37.359] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1557s [00:52:37.359] Globals: 6 objects totaling 548.80 KiB (function ‘...future.FUN’ of 1.88 KiB, numeric ‘a’ of 56 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 546.88 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, ...) 1557s [00:52:37.359] Packages: 1557s [00:52:37.359] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1557s [00:52:37.359] Resolved: TRUE 1557s [00:52:37.359] Value: 546.88 KiB of class ‘list’ 1557s [00:52:37.359] Early signaling: FALSE 1557s [00:52:37.359] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1557s [00:52:37.359] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1557s [00:52:37.482] Chunk #1 of 1 ... DONE 1557s [00:52:37.482] Launching 1 futures (chunks) ... DONE 1557s [00:52:37.482] Resolving 1 futures (chunks) ... 1557s [00:52:37.483] resolve() on list ... 1557s [00:52:37.483] recursive: 0 1557s [00:52:37.483] length: 1 1557s [00:52:37.483] 1557s [00:52:37.484] resolved() for ‘SequentialFuture’ ... 1557s [00:52:37.484] - state: ‘finished’ 1557s [00:52:37.487] - run: TRUE 1557s [00:52:37.487] - result: ‘FutureResult’ 1557s [00:52:37.487] resolved() for ‘SequentialFuture’ ... done 1557s [00:52:37.488] Future #1 1557s [00:52:37.488] signalConditionsASAP(SequentialFuture, pos=1) ... 1557s [00:52:37.488] - nx: 1 1557s [00:52:37.488] - relay: TRUE 1557s [00:52:37.488] - stdout: TRUE 1557s [00:52:37.489] - signal: TRUE 1557s [00:52:37.489] - resignal: FALSE 1557s [00:52:37.489] - force: TRUE 1557s [00:52:37.489] - relayed: [n=1] FALSE 1557s [00:52:37.489] - queued futures: [n=1] FALSE 1557s [00:52:37.490] - until=1 1557s [00:52:37.490] - relaying element #1 1557s [00:52:37.490] - relayed: [n=1] TRUE 1557s [00:52:37.491] - queued futures: [n=1] TRUE 1557s [00:52:37.491] signalConditionsASAP(SequentialFuture, pos=1) ... done 1557s [00:52:37.491] length: 0 (resolved future 1) 1557s [00:52:37.491] Relaying remaining futures 1557s [00:52:37.491] signalConditionsASAP(NULL, pos=0) ... 1557s [00:52:37.491] - nx: 1 1557s [00:52:37.491] - relay: TRUE 1557s [00:52:37.492] - stdout: TRUE 1557s [00:52:37.492] - signal: TRUE 1557s [00:52:37.492] - resignal: FALSE 1557s [00:52:37.492] - force: TRUE 1557s [00:52:37.492] - relayed: [n=1] TRUE 1557s [00:52:37.492] - queued futures: [n=1] TRUE 1557s - flush all 1557s [00:52:37.493] - relayed: [n=1] TRUE 1557s [00:52:37.493] - queued futures: [n=1] TRUE 1557s [00:52:37.493] signalConditionsASAP(NULL, pos=0) ... done 1557s [00:52:37.493] resolve() on list ... DONE 1557s [00:52:37.494] - Number of value chunks collected: 1 1557s [00:52:37.494] Resolving 1 futures (chunks) ... DONE 1557s [00:52:37.494] Reducing values from 1 chunks ... 1557s [00:52:37.495] - Number of values collected after concatenation: 10000 1557s [00:52:37.496] - Number of values expected: 10000 1557s [00:52:37.496] Reducing values from 1 chunks ... DONE 1557s [00:52:37.497] future_lapply() ... DONE 1557s - future_lapply(x, FUN = table, ...) ... 1557s [00:52:37.499] future_lapply() ... 1557s [00:52:37.554] Number of chunks: 1 1557s [00:52:37.554] getGlobalsAndPackagesXApply() ... 1557s [00:52:37.554] - future.globals: TRUE 1557s [00:52:37.554] getGlobalsAndPackages() ... 1557s [00:52:37.554] Searching for globals... 1557s [00:52:37.612] - globals found: [59] ‘FUN’, ‘if’, ‘==’, ‘c’, ‘list.names’, ‘{’, ‘<-’, ‘[’, ‘as.list’, ‘substitute’, ‘-’, ‘&&’, ‘length’, ‘is.list’, ‘!’, ‘is.null’, ‘names’, ‘return’, ‘seq_along’, ‘vapply’, ‘switch’, ‘+’, ‘is.symbol’, ‘as.character’, ‘deparse’, ‘[<-’, ‘missing’, ‘match’, ‘match.arg’, ‘!=’, ‘warning’, ‘list’, ‘[[’, ‘paste’, ‘stop’, ‘integer’, ‘for’, ‘is.factor’, ‘anyNA’, ‘options’, ‘on.exit’, ‘factor’, ‘(’, ‘||’, ‘levels’, ‘as.integer’, ‘which’, ‘is.na’, ‘is.na<-’, ‘>’, ‘prod’, ‘$’, ‘.Machine’, ‘*’, ‘names<-’, ‘array’, ‘tabulate’, ‘class’, ‘class<-’ 1557s [00:52:37.613] Searching for globals ... DONE 1557s [00:52:37.613] Resolving globals: FALSE 1557s [00:52:37.616] The total size of the 1 globals is 345.92 KiB (354224 bytes) 1557s [00:52:37.617] The total size of the 1 globals exported for future expression (‘FUN()’) is 345.92 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (345.92 KiB of class ‘function’) 1557s [00:52:37.617] - globals: [1] ‘FUN’ 1557s [00:52:37.617] 1557s [00:52:37.617] getGlobalsAndPackages() ... DONE 1557s [00:52:37.618] - globals found/used: [n=1] ‘FUN’ 1557s [00:52:37.618] - needed namespaces: [n=0] 1557s [00:52:37.618] Finding globals ... DONE 1557s [00:52:37.618] - use_args: TRUE 1557s [00:52:37.618] - Getting '...' globals ... 1557s [00:52:37.619] resolve() on list ... 1557s [00:52:37.619] recursive: 0 1557s [00:52:37.619] length: 1 1557s [00:52:37.619] elements: ‘...’ 1557s [00:52:37.619] length: 0 (resolved future 1) 1557s [00:52:37.619] resolve() on list ... DONE 1557s [00:52:37.619] - '...' content: [n=0] 1557s [00:52:37.620] List of 1 1557s [00:52:37.620] $ ...: list() 1557s [00:52:37.620] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1557s [00:52:37.620] - attr(*, "where")=List of 1 1557s [00:52:37.620] ..$ ...: 1557s [00:52:37.620] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1557s [00:52:37.620] - attr(*, "resolved")= logi TRUE 1557s [00:52:37.620] - attr(*, "total_size")= num NA 1557s [00:52:37.624] - Getting '...' globals ... DONE 1557s [00:52:37.624] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1557s [00:52:37.626] List of 2 1557s [00:52:37.626] $ ...future.FUN:function (..., exclude = if (useNA == "no") c(NA, NaN), useNA = c("no", 1557s [00:52:37.626] "ifany", "always"), dnn = list.names(...), deparse.level = 1) 1557s [00:52:37.626] $ ... : list() 1557s [00:52:37.626] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1557s [00:52:37.626] - attr(*, "where")=List of 2 1557s [00:52:37.626] ..$ ...future.FUN: 1557s [00:52:37.626] ..$ ... : 1557s [00:52:37.626] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1557s [00:52:37.626] - attr(*, "resolved")= logi FALSE 1557s [00:52:37.626] - attr(*, "total_size")= num 354224 1557s [00:52:37.630] Packages to be attached in all futures: [n=0] 1557s [00:52:37.630] getGlobalsAndPackagesXApply() ... DONE 1557s [00:52:37.630] Number of futures (= number of chunks): 1 1557s [00:52:37.630] Launching 1 futures (chunks) ... 1557s [00:52:37.631] Chunk #1 of 1 ... 1557s [00:52:37.631] - Finding globals in 'X' for chunk #1 ... 1557s [00:52:37.631] getGlobalsAndPackages() ... 1557s [00:52:37.631] Searching for globals... 1557s [00:52:37.631] 1557s [00:52:37.632] Searching for globals ... DONE 1557s [00:52:37.632] - globals: [0] 1557s [00:52:37.632] getGlobalsAndPackages() ... DONE 1557s [00:52:37.632] + additional globals found: [n=0] 1557s [00:52:37.632] + additional namespaces needed: [n=0] 1557s [00:52:37.632] - Finding globals in 'X' for chunk #1 ... DONE 1557s [00:52:37.632] - seeds: 1557s [00:52:37.632] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1557s [00:52:37.633] getGlobalsAndPackages() ... 1557s [00:52:37.633] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1557s [00:52:37.633] Resolving globals: FALSE 1557s [00:52:37.633] Tweak future expression to call with '...' arguments ... 1557s [00:52:37.633] { 1557s [00:52:37.633] do.call(function(...) { 1557s [00:52:37.633] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1557s [00:52:37.633] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1557s [00:52:37.633] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1557s [00:52:37.633] on.exit(options(oopts), add = TRUE) 1557s [00:52:37.633] } 1557s [00:52:37.633] { 1557s [00:52:37.633] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1557s [00:52:37.633] ...future.X_jj <- ...future.elements_ii[[jj]] 1557s [00:52:37.633] ...future.FUN(...future.X_jj, ...) 1557s [00:52:37.633] }) 1557s [00:52:37.633] } 1557s [00:52:37.633] }, args = future.call.arguments) 1557s [00:52:37.633] } 1557s [00:52:37.634] Tweak future expression to call with '...' arguments ... DONE 1557s [00:52:37.634] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1557s [00:52:37.635] 1557s [00:52:37.635] getGlobalsAndPackages() ... DONE 1557s [00:52:37.635] run() for ‘Future’ ... 1557s [00:52:37.635] - state: ‘created’ 1557s [00:52:37.636] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1557s [00:52:37.640] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1557s [00:52:37.640] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1557s [00:52:37.641] - Field: ‘label’ 1557s [00:52:37.641] - Field: ‘local’ 1557s [00:52:37.641] - Field: ‘owner’ 1557s [00:52:37.642] - Field: ‘envir’ 1557s [00:52:37.642] - Field: ‘packages’ 1557s [00:52:37.642] - Field: ‘gc’ 1557s [00:52:37.642] - Field: ‘conditions’ 1557s [00:52:37.642] - Field: ‘expr’ 1557s [00:52:37.642] - Field: ‘uuid’ 1557s [00:52:37.643] - Field: ‘seed’ 1557s [00:52:37.643] - Field: ‘version’ 1557s [00:52:37.643] - Field: ‘result’ 1557s [00:52:37.643] - Field: ‘asynchronous’ 1557s [00:52:37.643] - Field: ‘calls’ 1557s [00:52:37.643] - Field: ‘globals’ 1557s [00:52:37.643] - Field: ‘stdout’ 1557s [00:52:37.644] - Field: ‘earlySignal’ 1557s [00:52:37.644] - Field: ‘lazy’ 1557s [00:52:37.644] - Field: ‘state’ 1557s [00:52:37.644] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1557s [00:52:37.644] - Launch lazy future ... 1557s [00:52:37.644] Packages needed by the future expression (n = 0): 1557s [00:52:37.645] Packages needed by future strategies (n = 0): 1557s [00:52:37.645] { 1557s [00:52:37.645] { 1557s [00:52:37.645] { 1557s [00:52:37.645] ...future.startTime <- base::Sys.time() 1557s [00:52:37.645] { 1557s [00:52:37.645] { 1557s [00:52:37.645] { 1557s [00:52:37.645] base::local({ 1557s [00:52:37.645] has_future <- base::requireNamespace("future", 1557s [00:52:37.645] quietly = TRUE) 1557s [00:52:37.645] if (has_future) { 1557s [00:52:37.645] ns <- base::getNamespace("future") 1557s [00:52:37.645] version <- ns[[".package"]][["version"]] 1557s [00:52:37.645] if (is.null(version)) 1557s [00:52:37.645] version <- utils::packageVersion("future") 1557s [00:52:37.645] } 1557s [00:52:37.645] else { 1557s [00:52:37.645] version <- NULL 1557s [00:52:37.645] } 1557s [00:52:37.645] if (!has_future || version < "1.8.0") { 1557s [00:52:37.645] info <- base::c(r_version = base::gsub("R version ", 1557s [00:52:37.645] "", base::R.version$version.string), 1557s [00:52:37.645] platform = base::sprintf("%s (%s-bit)", 1557s [00:52:37.645] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1557s [00:52:37.645] os = base::paste(base::Sys.info()[base::c("sysname", 1557s [00:52:37.645] "release", "version")], collapse = " "), 1557s [00:52:37.645] hostname = base::Sys.info()[["nodename"]]) 1557s [00:52:37.645] info <- base::sprintf("%s: %s", base::names(info), 1557s [00:52:37.645] info) 1557s [00:52:37.645] info <- base::paste(info, collapse = "; ") 1557s [00:52:37.645] if (!has_future) { 1557s [00:52:37.645] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1557s [00:52:37.645] info) 1557s [00:52:37.645] } 1557s [00:52:37.645] else { 1557s [00:52:37.645] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1557s [00:52:37.645] info, version) 1557s [00:52:37.645] } 1557s [00:52:37.645] base::stop(msg) 1557s [00:52:37.645] } 1557s [00:52:37.645] }) 1557s [00:52:37.645] } 1557s [00:52:37.645] options(future.plan = NULL) 1557s [00:52:37.645] Sys.unsetenv("R_FUTURE_PLAN") 1557s [00:52:37.645] future::plan("default", .cleanup = FALSE, .init = FALSE) 1557s [00:52:37.645] } 1557s [00:52:37.645] ...future.workdir <- getwd() 1557s [00:52:37.645] } 1557s [00:52:37.645] ...future.oldOptions <- base::as.list(base::.Options) 1557s [00:52:37.645] ...future.oldEnvVars <- base::Sys.getenv() 1557s [00:52:37.645] } 1557s [00:52:37.645] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1557s [00:52:37.645] future.globals.maxSize = NULL, future.globals.method = NULL, 1557s [00:52:37.645] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1557s [00:52:37.645] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1557s [00:52:37.645] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1557s [00:52:37.645] future.stdout.windows.reencode = NULL, width = 80L) 1557s [00:52:37.645] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1557s [00:52:37.645] base::names(...future.oldOptions)) 1557s [00:52:37.645] } 1557s [00:52:37.645] if (FALSE) { 1557s [00:52:37.645] } 1557s [00:52:37.645] else { 1557s [00:52:37.645] if (TRUE) { 1557s [00:52:37.645] ...future.stdout <- base::rawConnection(base::raw(0L), 1557s [00:52:37.645] open = "w") 1557s [00:52:37.645] } 1557s [00:52:37.645] else { 1557s [00:52:37.645] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1557s [00:52:37.645] windows = "NUL", "/dev/null"), open = "w") 1557s [00:52:37.645] } 1557s [00:52:37.645] base::sink(...future.stdout, type = "output", split = FALSE) 1557s [00:52:37.645] base::on.exit(if (!base::is.null(...future.stdout)) { 1557s [00:52:37.645] base::sink(type = "output", split = FALSE) 1557s [00:52:37.645] base::close(...future.stdout) 1557s [00:52:37.645] }, add = TRUE) 1557s [00:52:37.645] } 1557s [00:52:37.645] ...future.frame <- base::sys.nframe() 1557s [00:52:37.645] ...future.conditions <- base::list() 1557s [00:52:37.645] ...future.rng <- base::globalenv()$.Random.seed 1557s [00:52:37.645] if (FALSE) { 1557s [00:52:37.645] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1557s [00:52:37.645] "...future.value", "...future.globalenv.names", ".Random.seed") 1557s [00:52:37.645] } 1557s [00:52:37.645] ...future.result <- base::tryCatch({ 1557s [00:52:37.645] base::withCallingHandlers({ 1557s [00:52:37.645] ...future.value <- base::withVisible(base::local({ 1557s [00:52:37.645] do.call(function(...) { 1557s [00:52:37.645] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1557s [00:52:37.645] if (!identical(...future.globals.maxSize.org, 1557s [00:52:37.645] ...future.globals.maxSize)) { 1557s [00:52:37.645] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1557s [00:52:37.645] on.exit(options(oopts), add = TRUE) 1557s [00:52:37.645] } 1557s [00:52:37.645] { 1557s [00:52:37.645] lapply(seq_along(...future.elements_ii), 1557s [00:52:37.645] FUN = function(jj) { 1557s [00:52:37.645] ...future.X_jj <- ...future.elements_ii[[jj]] 1557s [00:52:37.645] ...future.FUN(...future.X_jj, ...) 1557s [00:52:37.645] }) 1557s [00:52:37.645] } 1557s [00:52:37.645] }, args = future.call.arguments) 1557s [00:52:37.645] })) 1557s [00:52:37.645] future::FutureResult(value = ...future.value$value, 1557s [00:52:37.645] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1557s [00:52:37.645] ...future.rng), globalenv = if (FALSE) 1557s [00:52:37.645] list(added = base::setdiff(base::names(base::.GlobalEnv), 1557s [00:52:37.645] ...future.globalenv.names)) 1557s [00:52:37.645] else NULL, started = ...future.startTime, version = "1.8") 1557s [00:52:37.645] }, condition = base::local({ 1557s [00:52:37.645] c <- base::c 1557s [00:52:37.645] inherits <- base::inherits 1557s [00:52:37.645] invokeRestart <- base::invokeRestart 1557s [00:52:37.645] length <- base::length 1557s [00:52:37.645] list <- base::list 1557s [00:52:37.645] seq.int <- base::seq.int 1557s [00:52:37.645] signalCondition <- base::signalCondition 1557s [00:52:37.645] sys.calls <- base::sys.calls 1557s [00:52:37.645] `[[` <- base::`[[` 1557s [00:52:37.645] `+` <- base::`+` 1557s [00:52:37.645] `<<-` <- base::`<<-` 1557s [00:52:37.645] sysCalls <- function(calls = sys.calls(), from = 1L) { 1557s [00:52:37.645] calls[seq.int(from = from + 12L, to = length(calls) - 1557s [00:52:37.645] 3L)] 1557s [00:52:37.645] } 1557s [00:52:37.645] function(cond) { 1557s [00:52:37.645] is_error <- inherits(cond, "error") 1557s [00:52:37.645] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1557s [00:52:37.645] NULL) 1557s [00:52:37.645] if (is_error) { 1557s [00:52:37.645] sessionInformation <- function() { 1557s [00:52:37.645] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1557s [00:52:37.645] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1557s [00:52:37.645] search = base::search(), system = base::Sys.info()) 1557s [00:52:37.645] } 1557s [00:52:37.645] ...future.conditions[[length(...future.conditions) + 1557s [00:52:37.645] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1557s [00:52:37.645] cond$call), session = sessionInformation(), 1557s [00:52:37.645] timestamp = base::Sys.time(), signaled = 0L) 1557s [00:52:37.645] signalCondition(cond) 1557s [00:52:37.645] } 1557s [00:52:37.645] else if (!ignore && TRUE && inherits(cond, c("condition", 1557s [00:52:37.645] "immediateCondition"))) { 1557s [00:52:37.645] signal <- TRUE && inherits(cond, "immediateCondition") 1557s [00:52:37.645] ...future.conditions[[length(...future.conditions) + 1557s [00:52:37.645] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1557s [00:52:37.645] if (TRUE && !signal) { 1557s [00:52:37.645] muffleCondition <- function (cond, pattern = "^muffle") 1557s [00:52:37.645] { 1557s [00:52:37.645] inherits <- base::inherits 1557s [00:52:37.645] invokeRestart <- base::invokeRestart 1557s [00:52:37.645] is.null <- base::is.null 1557s [00:52:37.645] muffled <- FALSE 1557s [00:52:37.645] if (inherits(cond, "message")) { 1557s [00:52:37.645] muffled <- grepl(pattern, "muffleMessage") 1557s [00:52:37.645] if (muffled) 1557s [00:52:37.645] invokeRestart("muffleMessage") 1557s [00:52:37.645] } 1557s [00:52:37.645] else if (inherits(cond, "warning")) { 1557s [00:52:37.645] muffled <- grepl(pattern, "muffleWarning") 1557s [00:52:37.645] if (muffled) 1557s [00:52:37.645] invokeRestart("muffleWarning") 1557s [00:52:37.645] } 1557s [00:52:37.645] else if (inherits(cond, "condition")) { 1557s [00:52:37.645] if (!is.null(pattern)) { 1557s [00:52:37.645] computeRestarts <- base::computeRestarts 1557s [00:52:37.645] grepl <- base::grepl 1557s [00:52:37.645] restarts <- computeRestarts(cond) 1557s [00:52:37.645] for (restart in restarts) { 1557s [00:52:37.645] name <- restart$name 1557s [00:52:37.645] if (is.null(name)) 1557s [00:52:37.645] next 1557s [00:52:37.645] if (!grepl(pattern, name)) 1557s [00:52:37.645] next 1557s [00:52:37.645] invokeRestart(restart) 1557s [00:52:37.645] muffled <- TRUE 1557s [00:52:37.645] break 1557s [00:52:37.645] } 1557s [00:52:37.645] } 1557s [00:52:37.645] } 1557s [00:52:37.645] invisible(muffled) 1557s [00:52:37.645] } 1557s [00:52:37.645] muffleCondition(cond, pattern = "^muffle") 1557s [00:52:37.645] } 1557s [00:52:37.645] } 1557s [00:52:37.645] else { 1557s [00:52:37.645] if (TRUE) { 1557s [00:52:37.645] muffleCondition <- function (cond, pattern = "^muffle") 1557s [00:52:37.645] { 1557s [00:52:37.645] inherits <- base::inherits 1557s [00:52:37.645] invokeRestart <- base::invokeRestart 1557s [00:52:37.645] is.null <- base::is.null 1557s [00:52:37.645] muffled <- FALSE 1557s [00:52:37.645] if (inherits(cond, "message")) { 1557s [00:52:37.645] muffled <- grepl(pattern, "muffleMessage") 1557s [00:52:37.645] if (muffled) 1557s [00:52:37.645] invokeRestart("muffleMessage") 1557s [00:52:37.645] } 1557s [00:52:37.645] else if (inherits(cond, "warning")) { 1557s [00:52:37.645] muffled <- grepl(pattern, "muffleWarning") 1557s [00:52:37.645] if (muffled) 1557s [00:52:37.645] invokeRestart("muffleWarning") 1557s [00:52:37.645] } 1557s [00:52:37.645] else if (inherits(cond, "condition")) { 1557s [00:52:37.645] if (!is.null(pattern)) { 1557s [00:52:37.645] computeRestarts <- base::computeRestarts 1557s [00:52:37.645] grepl <- base::grepl 1557s [00:52:37.645] restarts <- computeRestarts(cond) 1557s [00:52:37.645] for (restart in restarts) { 1557s [00:52:37.645] name <- restart$name 1557s [00:52:37.645] if (is.null(name)) 1557s [00:52:37.645] next 1557s [00:52:37.645] if (!grepl(pattern, name)) 1557s [00:52:37.645] next 1557s [00:52:37.645] invokeRestart(restart) 1557s [00:52:37.645] muffled <- TRUE 1557s [00:52:37.645] break 1557s [00:52:37.645] } 1557s [00:52:37.645] } 1557s [00:52:37.645] } 1557s [00:52:37.645] invisible(muffled) 1557s [00:52:37.645] } 1557s [00:52:37.645] muffleCondition(cond, pattern = "^muffle") 1557s [00:52:37.645] } 1557s [00:52:37.645] } 1557s [00:52:37.645] } 1557s [00:52:37.645] })) 1557s [00:52:37.645] }, error = function(ex) { 1557s [00:52:37.645] base::structure(base::list(value = NULL, visible = NULL, 1557s [00:52:37.645] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1557s [00:52:37.645] ...future.rng), started = ...future.startTime, 1557s [00:52:37.645] finished = Sys.time(), session_uuid = NA_character_, 1557s [00:52:37.645] version = "1.8"), class = "FutureResult") 1557s [00:52:37.645] }, finally = { 1557s [00:52:37.645] if (!identical(...future.workdir, getwd())) 1557s [00:52:37.645] setwd(...future.workdir) 1557s [00:52:37.645] { 1557s [00:52:37.645] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1557s [00:52:37.645] ...future.oldOptions$nwarnings <- NULL 1557s [00:52:37.645] } 1557s [00:52:37.645] base::options(...future.oldOptions) 1557s [00:52:37.645] if (.Platform$OS.type == "windows") { 1557s [00:52:37.645] old_names <- names(...future.oldEnvVars) 1557s [00:52:37.645] envs <- base::Sys.getenv() 1557s [00:52:37.645] names <- names(envs) 1557s [00:52:37.645] common <- intersect(names, old_names) 1557s [00:52:37.645] added <- setdiff(names, old_names) 1557s [00:52:37.645] removed <- setdiff(old_names, names) 1557s [00:52:37.645] changed <- common[...future.oldEnvVars[common] != 1557s [00:52:37.645] envs[common]] 1557s [00:52:37.645] NAMES <- toupper(changed) 1557s [00:52:37.645] args <- list() 1557s [00:52:37.645] for (kk in seq_along(NAMES)) { 1557s [00:52:37.645] name <- changed[[kk]] 1557s [00:52:37.645] NAME <- NAMES[[kk]] 1557s [00:52:37.645] if (name != NAME && is.element(NAME, old_names)) 1557s [00:52:37.645] next 1557s [00:52:37.645] args[[name]] <- ...future.oldEnvVars[[name]] 1557s [00:52:37.645] } 1557s [00:52:37.645] NAMES <- toupper(added) 1557s [00:52:37.645] for (kk in seq_along(NAMES)) { 1557s [00:52:37.645] name <- added[[kk]] 1557s [00:52:37.645] NAME <- NAMES[[kk]] 1557s [00:52:37.645] if (name != NAME && is.element(NAME, old_names)) 1557s [00:52:37.645] next 1557s [00:52:37.645] args[[name]] <- "" 1557s [00:52:37.645] } 1557s [00:52:37.645] NAMES <- toupper(removed) 1557s [00:52:37.645] for (kk in seq_along(NAMES)) { 1557s [00:52:37.645] name <- removed[[kk]] 1557s [00:52:37.645] NAME <- NAMES[[kk]] 1557s [00:52:37.645] if (name != NAME && is.element(NAME, old_names)) 1557s [00:52:37.645] next 1557s [00:52:37.645] args[[name]] <- ...future.oldEnvVars[[name]] 1557s [00:52:37.645] } 1557s [00:52:37.645] if (length(args) > 0) 1557s [00:52:37.645] base::do.call(base::Sys.setenv, args = args) 1557s [00:52:37.645] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1557s [00:52:37.645] } 1557s [00:52:37.645] else { 1557s [00:52:37.645] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1557s [00:52:37.645] } 1557s [00:52:37.645] { 1557s [00:52:37.645] if (base::length(...future.futureOptionsAdded) > 1557s [00:52:37.645] 0L) { 1557s [00:52:37.645] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1557s [00:52:37.645] base::names(opts) <- ...future.futureOptionsAdded 1557s [00:52:37.645] base::options(opts) 1557s [00:52:37.645] } 1557s [00:52:37.645] { 1557s [00:52:37.645] { 1557s [00:52:37.645] NULL 1557s [00:52:37.645] RNGkind("Mersenne-Twister") 1557s [00:52:37.645] base::rm(list = ".Random.seed", envir = base::globalenv(), 1557s [00:52:37.645] inherits = FALSE) 1557s [00:52:37.645] } 1557s [00:52:37.645] options(future.plan = NULL) 1557s [00:52:37.645] if (is.na(NA_character_)) 1557s [00:52:37.645] Sys.unsetenv("R_FUTURE_PLAN") 1557s [00:52:37.645] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1557s [00:52:37.645] future::plan(list(function (..., workers = availableCores(), 1557s [00:52:37.645] lazy = FALSE, rscript_libs = .libPaths(), 1557s [00:52:37.645] envir = parent.frame()) 1557s [00:52:37.645] { 1557s [00:52:37.645] if (is.function(workers)) 1557s [00:52:37.645] workers <- workers() 1557s [00:52:37.645] workers <- structure(as.integer(workers), 1557s [00:52:37.645] class = class(workers)) 1557s [00:52:37.645] stop_if_not(length(workers) == 1, is.finite(workers), 1557s [00:52:37.645] workers >= 1) 1557s [00:52:37.645] if (workers == 1L && !inherits(workers, "AsIs")) { 1557s [00:52:37.645] return(sequential(..., lazy = TRUE, envir = envir)) 1557s [00:52:37.645] } 1557s [00:52:37.645] future <- MultisessionFuture(..., workers = workers, 1557s [00:52:37.645] lazy = lazy, rscript_libs = rscript_libs, 1557s [00:52:37.645] envir = envir) 1557s [00:52:37.645] if (!future$lazy) 1557s [00:52:37.645] future <- run(future) 1557s [00:52:37.645] invisible(future) 1557s [00:52:37.645] }), .cleanup = FALSE, .init = FALSE) 1557s [00:52:37.645] } 1557s [00:52:37.645] } 1557s [00:52:37.645] } 1557s [00:52:37.645] }) 1557s [00:52:37.645] if (TRUE) { 1557s [00:52:37.645] base::sink(type = "output", split = FALSE) 1557s [00:52:37.645] if (TRUE) { 1557s [00:52:37.645] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1557s [00:52:37.645] } 1557s [00:52:37.645] else { 1557s [00:52:37.645] ...future.result["stdout"] <- base::list(NULL) 1557s [00:52:37.645] } 1557s [00:52:37.645] base::close(...future.stdout) 1557s [00:52:37.645] ...future.stdout <- NULL 1557s [00:52:37.645] } 1557s [00:52:37.645] ...future.result$conditions <- ...future.conditions 1557s [00:52:37.645] ...future.result$finished <- base::Sys.time() 1557s [00:52:37.645] ...future.result 1557s [00:52:37.645] } 1557s [00:52:37.652] assign_globals() ... 1557s [00:52:37.652] List of 5 1557s [00:52:37.652] $ ...future.FUN :function (..., exclude = if (useNA == "no") c(NA, NaN), useNA = c("no", 1557s [00:52:37.652] "ifany", "always"), dnn = list.names(...), deparse.level = 1) 1557s [00:52:37.652] $ future.call.arguments : list() 1557s [00:52:37.652] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1557s [00:52:37.652] $ ...future.elements_ii :List of 2 1557s [00:52:37.652] ..$ a: int [1:4] 1 2 3 4 1557s [00:52:37.652] ..$ b: int [1:4] 5 6 7 8 1557s [00:52:37.652] $ ...future.seeds_ii : NULL 1557s [00:52:37.652] $ ...future.globals.maxSize: NULL 1557s [00:52:37.652] - attr(*, "where")=List of 5 1557s [00:52:37.652] ..$ ...future.FUN : 1557s [00:52:37.652] ..$ future.call.arguments : 1557s [00:52:37.652] ..$ ...future.elements_ii : 1557s [00:52:37.652] ..$ ...future.seeds_ii : 1557s [00:52:37.652] ..$ ...future.globals.maxSize: 1557s [00:52:37.652] - attr(*, "resolved")= logi FALSE 1557s [00:52:37.652] - attr(*, "total_size")= num 354224 1557s [00:52:37.652] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1557s [00:52:37.652] - attr(*, "already-done")= logi TRUE 1557s [00:52:37.658] - copied ‘...future.FUN’ to environment 1557s [00:52:37.658] - copied ‘future.call.arguments’ to environment 1557s [00:52:37.659] - copied ‘...future.elements_ii’ to environment 1557s [00:52:37.659] - copied ‘...future.seeds_ii’ to environment 1557s [00:52:37.659] - copied ‘...future.globals.maxSize’ to environment 1557s [00:52:37.659] assign_globals() ... done 1557s [00:52:37.659] plan(): Setting new future strategy stack: 1557s [00:52:37.659] List of future strategies: 1557s [00:52:37.659] 1. sequential: 1557s [00:52:37.659] - args: function (..., envir = parent.frame()) 1557s [00:52:37.659] - tweaked: FALSE 1557s [00:52:37.659] - call: NULL 1557s [00:52:37.660] plan(): nbrOfWorkers() = 1 1557s [00:52:37.661] plan(): Setting new future strategy stack: 1557s [00:52:37.661] List of future strategies: 1557s [00:52:37.661] 1. multisession: 1557s [00:52:37.661] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1557s [00:52:37.661] - tweaked: FALSE 1557s [00:52:37.661] - call: plan(strategy) 1557s [00:52:37.665] plan(): nbrOfWorkers() = 1 1557s [00:52:37.665] SequentialFuture started (and completed) 1557s [00:52:37.665] - Launch lazy future ... done 1557s [00:52:37.666] run() for ‘SequentialFuture’ ... done 1557s [00:52:37.666] Created future: 1557s [00:52:37.666] SequentialFuture: 1557s [00:52:37.666] Label: ‘future_lapply-1’ 1557s [00:52:37.666] Expression: 1557s [00:52:37.666] { 1557s [00:52:37.666] do.call(function(...) { 1557s [00:52:37.666] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1557s [00:52:37.666] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1557s [00:52:37.666] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1557s [00:52:37.666] on.exit(options(oopts), add = TRUE) 1557s [00:52:37.666] } 1557s [00:52:37.666] { 1557s [00:52:37.666] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1557s [00:52:37.666] ...future.X_jj <- ...future.elements_ii[[jj]] 1557s [00:52:37.666] ...future.FUN(...future.X_jj, ...) 1557s [00:52:37.666] }) 1557s [00:52:37.666] } 1557s [00:52:37.666] }, args = future.call.arguments) 1557s [00:52:37.666] } 1557s [00:52:37.666] Lazy evaluation: FALSE 1557s [00:52:37.666] Asynchronous evaluation: FALSE 1557s [00:52:37.666] Local evaluation: TRUE 1557s [00:52:37.666] Environment: R_GlobalEnv 1557s [00:52:37.666] Capture standard output: TRUE 1557s [00:52:37.666] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1557s [00:52:37.666] Globals: 5 objects totaling 346.05 KiB (function ‘...future.FUN’ of 345.92 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 128 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1557s [00:52:37.666] Packages: 1557s [00:52:37.666] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1557s [00:52:37.666] Resolved: TRUE 1557s [00:52:37.666] Value: 2.27 KiB of class ‘list’ 1557s [00:52:37.666] Early signaling: FALSE 1557s [00:52:37.666] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1557s [00:52:37.666] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1557s [00:52:37.668] Chunk #1 of 1 ... DONE 1557s [00:52:37.668] Launching 1 futures (chunks) ... DONE 1557s [00:52:37.668] Resolving 1 futures (chunks) ... 1557s [00:52:37.668] resolve() on list ... 1557s [00:52:37.668] recursive: 0 1557s [00:52:37.668] length: 1 1557s [00:52:37.669] 1557s [00:52:37.669] resolved() for ‘SequentialFuture’ ... 1557s [00:52:37.669] - state: ‘finished’ 1557s [00:52:37.669] - run: TRUE 1557s [00:52:37.669] - result: ‘FutureResult’ 1557s [00:52:37.669] resolved() for ‘SequentialFuture’ ... done 1557s [00:52:37.669] Future #1 1557s [00:52:37.670] signalConditionsASAP(SequentialFuture, pos=1) ... 1557s [00:52:37.670] - nx: 1 1557s [00:52:37.670] - relay: TRUE 1557s [00:52:37.670] - stdout: TRUE 1557s [00:52:37.670] - signal: TRUE 1557s [00:52:37.670] - resignal: FALSE 1557s [00:52:37.670] - force: TRUE 1557s [00:52:37.671] - relayed: [n=1] FALSE 1557s [00:52:37.671] - queued futures: [n=1] FALSE 1557s [00:52:37.671] - until=1 1557s [00:52:37.671] - relaying element #1 1557s [00:52:37.672] - relayed: [n=1] TRUE 1557s [00:52:37.672] - queued futures: [n=1] TRUE 1557s [00:52:37.672] signalConditionsASAP(SequentialFuture, pos=1) ... done 1557s [00:52:37.672] length: 0 (resolved future 1) 1557s [00:52:37.672] Relaying remaining futures 1557s [00:52:37.673] signalConditionsASAP(NULL, pos=0) ... 1557s [00:52:37.673] - nx: 1 1557s [00:52:37.673] - relay: TRUE 1557s [00:52:37.673] - stdout: TRUE 1557s [00:52:37.673] - signal: TRUE 1557s [00:52:37.673] - resignal: FALSE 1557s [00:52:37.674] - force: TRUE 1557s [00:52:37.674] - relayed: [n=1] TRUE 1557s [00:52:37.674] - queued futures: [n=1] TRUE 1557s - flush all 1557s [00:52:37.675] - relayed: [n=1] TRUE 1557s [00:52:37.675] - queued futures: [n=1] TRUE 1557s [00:52:37.675] signalConditionsASAP(NULL, pos=0) ... done 1557s [00:52:37.675] resolve() on list ... DONE 1557s [00:52:37.675] - Number of value chunks collected: 1 1557s [00:52:37.676] Resolving 1 futures (chunks) ... DONE 1557s [00:52:37.676] Reducing values from 1 chunks ... 1557s [00:52:37.676] - Number of values collected after concatenation: 2 1557s [00:52:37.676] - Number of values expected: 2 1557s [00:52:37.676] Reducing values from 1 chunks ... DONE 1557s [00:52:37.676] future_lapply() ... DONE 1557s - future_lapply(x, ...) where length(x) != length(as.list(x)) ... 1557s [00:52:37.676] future_lapply() ... 1557s [00:52:37.680] Number of chunks: 1 1557s [00:52:37.680] getGlobalsAndPackagesXApply() ... 1557s [00:52:37.681] - future.globals: TRUE 1557s [00:52:37.681] getGlobalsAndPackages() ... 1557s [00:52:37.681] Searching for globals... 1557s [00:52:37.682] - globals found: [1] ‘FUN’ 1557s [00:52:37.682] Searching for globals ... DONE 1557s [00:52:37.682] Resolving globals: FALSE 1557s [00:52:37.682] The total size of the 1 globals is 56 bytes (56 bytes) 1557s [00:52:37.683] The total size of the 1 globals exported for future expression (‘FUN()’) is 56 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (56 bytes of class ‘function’) 1557s [00:52:37.683] - globals: [1] ‘FUN’ 1557s [00:52:37.683] 1557s [00:52:37.683] getGlobalsAndPackages() ... DONE 1557s [00:52:37.684] - globals found/used: [n=1] ‘FUN’ 1557s [00:52:37.684] - needed namespaces: [n=0] 1557s [00:52:37.684] Finding globals ... DONE 1557s [00:52:37.684] - use_args: TRUE 1557s [00:52:37.684] - Getting '...' globals ... 1557s [00:52:37.685] resolve() on list ... 1557s [00:52:37.685] recursive: 0 1557s [00:52:37.685] length: 1 1557s [00:52:37.685] elements: ‘...’ 1557s [00:52:37.685] length: 0 (resolved future 1) 1557s [00:52:37.686] resolve() on list ... DONE 1557s [00:52:37.686] - '...' content: [n=0] 1557s [00:52:37.686] List of 1 1557s [00:52:37.686] $ ...: list() 1557s [00:52:37.686] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1557s [00:52:37.686] - attr(*, "where")=List of 1 1557s [00:52:37.686] ..$ ...: 1557s [00:52:37.686] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1557s [00:52:37.686] - attr(*, "resolved")= logi TRUE 1557s [00:52:37.686] - attr(*, "total_size")= num NA 1557s [00:52:37.689] - Getting '...' globals ... DONE 1557s [00:52:37.690] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1557s [00:52:37.690] List of 2 1557s [00:52:37.690] $ ...future.FUN:function (x) 1557s [00:52:37.690] $ ... : list() 1557s [00:52:37.690] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1557s [00:52:37.690] - attr(*, "where")=List of 2 1557s [00:52:37.690] ..$ ...future.FUN: 1557s [00:52:37.690] ..$ ... : 1557s [00:52:37.690] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1557s [00:52:37.690] - attr(*, "resolved")= logi FALSE 1557s [00:52:37.690] - attr(*, "total_size")= num 56 1557s [00:52:37.694] Packages to be attached in all futures: [n=0] 1557s [00:52:37.694] getGlobalsAndPackagesXApply() ... DONE 1557s [00:52:37.695] Number of futures (= number of chunks): 1 1557s [00:52:37.695] Launching 1 futures (chunks) ... 1557s [00:52:37.695] Chunk #1 of 1 ... 1557s [00:52:37.695] - Finding globals in 'X' for chunk #1 ... 1557s [00:52:37.695] getGlobalsAndPackages() ... 1557s [00:52:37.695] Searching for globals... 1557s [00:52:37.696] 1557s [00:52:37.696] Searching for globals ... DONE 1557s [00:52:37.696] - globals: [0] 1557s [00:52:37.696] getGlobalsAndPackages() ... DONE 1557s [00:52:37.696] + additional globals found: [n=0] 1557s [00:52:37.699] + additional namespaces needed: [n=0] 1557s [00:52:37.700] - Finding globals in 'X' for chunk #1 ... DONE 1557s [00:52:37.700] - seeds: 1557s [00:52:37.700] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1557s [00:52:37.701] getGlobalsAndPackages() ... 1557s [00:52:37.701] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1557s [00:52:37.701] Resolving globals: FALSE 1557s [00:52:37.701] Tweak future expression to call with '...' arguments ... 1557s [00:52:37.702] { 1557s [00:52:37.702] do.call(function(...) { 1557s [00:52:37.702] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1557s [00:52:37.702] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1557s [00:52:37.702] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1557s [00:52:37.702] on.exit(options(oopts), add = TRUE) 1557s [00:52:37.702] } 1557s [00:52:37.702] { 1557s [00:52:37.702] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1557s [00:52:37.702] ...future.X_jj <- ...future.elements_ii[[jj]] 1557s [00:52:37.702] ...future.FUN(...future.X_jj, ...) 1557s [00:52:37.702] }) 1557s [00:52:37.702] } 1557s [00:52:37.702] }, args = future.call.arguments) 1557s [00:52:37.702] } 1557s [00:52:37.702] Tweak future expression to call with '...' arguments ... DONE 1557s [00:52:37.703] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1557s [00:52:37.703] 1557s [00:52:37.703] getGlobalsAndPackages() ... DONE 1557s [00:52:37.704] run() for ‘Future’ ... 1557s [00:52:37.704] - state: ‘created’ 1557s [00:52:37.704] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1557s [00:52:37.708] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1557s [00:52:37.708] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1557s [00:52:37.709] - Field: ‘label’ 1557s [00:52:37.709] - Field: ‘local’ 1557s [00:52:37.709] - Field: ‘owner’ 1557s [00:52:37.709] - Field: ‘envir’ 1557s [00:52:37.709] - Field: ‘packages’ 1557s [00:52:37.709] - Field: ‘gc’ 1557s [00:52:37.710] - Field: ‘conditions’ 1557s [00:52:37.710] - Field: ‘expr’ 1557s [00:52:37.710] - Field: ‘uuid’ 1557s [00:52:37.710] - Field: ‘seed’ 1557s [00:52:37.710] - Field: ‘version’ 1557s [00:52:37.710] - Field: ‘result’ 1557s [00:52:37.711] - Field: ‘asynchronous’ 1557s [00:52:37.711] - Field: ‘calls’ 1557s [00:52:37.712] - Field: ‘globals’ 1557s [00:52:37.712] - Field: ‘stdout’ 1557s [00:52:37.712] - Field: ‘earlySignal’ 1557s [00:52:37.712] - Field: ‘lazy’ 1557s [00:52:37.712] - Field: ‘state’ 1557s [00:52:37.712] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1557s [00:52:37.712] - Launch lazy future ... 1557s [00:52:37.713] Packages needed by the future expression (n = 0): 1557s [00:52:37.713] Packages needed by future strategies (n = 0): 1557s [00:52:37.714] { 1557s [00:52:37.714] { 1557s [00:52:37.714] { 1557s [00:52:37.714] ...future.startTime <- base::Sys.time() 1557s [00:52:37.714] { 1557s [00:52:37.714] { 1557s [00:52:37.714] { 1557s [00:52:37.714] base::local({ 1557s [00:52:37.714] has_future <- base::requireNamespace("future", 1557s [00:52:37.714] quietly = TRUE) 1557s [00:52:37.714] if (has_future) { 1557s [00:52:37.714] ns <- base::getNamespace("future") 1557s [00:52:37.714] version <- ns[[".package"]][["version"]] 1557s [00:52:37.714] if (is.null(version)) 1557s [00:52:37.714] version <- utils::packageVersion("future") 1557s [00:52:37.714] } 1557s [00:52:37.714] else { 1557s [00:52:37.714] version <- NULL 1557s [00:52:37.714] } 1557s [00:52:37.714] if (!has_future || version < "1.8.0") { 1557s [00:52:37.714] info <- base::c(r_version = base::gsub("R version ", 1557s [00:52:37.714] "", base::R.version$version.string), 1557s [00:52:37.714] platform = base::sprintf("%s (%s-bit)", 1557s [00:52:37.714] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1557s [00:52:37.714] os = base::paste(base::Sys.info()[base::c("sysname", 1557s [00:52:37.714] "release", "version")], collapse = " "), 1557s [00:52:37.714] hostname = base::Sys.info()[["nodename"]]) 1557s [00:52:37.714] info <- base::sprintf("%s: %s", base::names(info), 1557s [00:52:37.714] info) 1557s [00:52:37.714] info <- base::paste(info, collapse = "; ") 1557s [00:52:37.714] if (!has_future) { 1557s [00:52:37.714] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1557s [00:52:37.714] info) 1557s [00:52:37.714] } 1557s [00:52:37.714] else { 1557s [00:52:37.714] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1557s [00:52:37.714] info, version) 1557s [00:52:37.714] } 1557s [00:52:37.714] base::stop(msg) 1557s [00:52:37.714] } 1557s [00:52:37.714] }) 1557s [00:52:37.714] } 1557s [00:52:37.714] options(future.plan = NULL) 1557s [00:52:37.714] Sys.unsetenv("R_FUTURE_PLAN") 1557s [00:52:37.714] future::plan("default", .cleanup = FALSE, .init = FALSE) 1557s [00:52:37.714] } 1557s [00:52:37.714] ...future.workdir <- getwd() 1557s [00:52:37.714] } 1557s [00:52:37.714] ...future.oldOptions <- base::as.list(base::.Options) 1557s [00:52:37.714] ...future.oldEnvVars <- base::Sys.getenv() 1557s [00:52:37.714] } 1557s [00:52:37.714] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1557s [00:52:37.714] future.globals.maxSize = NULL, future.globals.method = NULL, 1557s [00:52:37.714] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1557s [00:52:37.714] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1557s [00:52:37.714] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1557s [00:52:37.714] future.stdout.windows.reencode = NULL, width = 80L) 1557s [00:52:37.714] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1557s [00:52:37.714] base::names(...future.oldOptions)) 1557s [00:52:37.714] } 1557s [00:52:37.714] if (FALSE) { 1557s [00:52:37.714] } 1557s [00:52:37.714] else { 1557s [00:52:37.714] if (TRUE) { 1557s [00:52:37.714] ...future.stdout <- base::rawConnection(base::raw(0L), 1557s [00:52:37.714] open = "w") 1557s [00:52:37.714] } 1557s [00:52:37.714] else { 1557s [00:52:37.714] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1557s [00:52:37.714] windows = "NUL", "/dev/null"), open = "w") 1557s [00:52:37.714] } 1557s [00:52:37.714] base::sink(...future.stdout, type = "output", split = FALSE) 1557s [00:52:37.714] base::on.exit(if (!base::is.null(...future.stdout)) { 1557s [00:52:37.714] base::sink(type = "output", split = FALSE) 1557s [00:52:37.714] base::close(...future.stdout) 1557s [00:52:37.714] }, add = TRUE) 1557s [00:52:37.714] } 1557s [00:52:37.714] ...future.frame <- base::sys.nframe() 1557s [00:52:37.714] ...future.conditions <- base::list() 1557s [00:52:37.714] ...future.rng <- base::globalenv()$.Random.seed 1557s [00:52:37.714] if (FALSE) { 1557s [00:52:37.714] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1557s [00:52:37.714] "...future.value", "...future.globalenv.names", ".Random.seed") 1557s [00:52:37.714] } 1557s [00:52:37.714] ...future.result <- base::tryCatch({ 1557s [00:52:37.714] base::withCallingHandlers({ 1557s [00:52:37.714] ...future.value <- base::withVisible(base::local({ 1557s [00:52:37.714] do.call(function(...) { 1557s [00:52:37.714] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1557s [00:52:37.714] if (!identical(...future.globals.maxSize.org, 1557s [00:52:37.714] ...future.globals.maxSize)) { 1557s [00:52:37.714] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1557s [00:52:37.714] on.exit(options(oopts), add = TRUE) 1557s [00:52:37.714] } 1557s [00:52:37.714] { 1557s [00:52:37.714] lapply(seq_along(...future.elements_ii), 1557s [00:52:37.714] FUN = function(jj) { 1557s [00:52:37.714] ...future.X_jj <- ...future.elements_ii[[jj]] 1557s [00:52:37.714] ...future.FUN(...future.X_jj, ...) 1557s [00:52:37.714] }) 1557s [00:52:37.714] } 1557s [00:52:37.714] }, args = future.call.arguments) 1557s [00:52:37.714] })) 1557s [00:52:37.714] future::FutureResult(value = ...future.value$value, 1557s [00:52:37.714] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1557s [00:52:37.714] ...future.rng), globalenv = if (FALSE) 1557s [00:52:37.714] list(added = base::setdiff(base::names(base::.GlobalEnv), 1557s [00:52:37.714] ...future.globalenv.names)) 1557s [00:52:37.714] else NULL, started = ...future.startTime, version = "1.8") 1557s [00:52:37.714] }, condition = base::local({ 1557s [00:52:37.714] c <- base::c 1557s [00:52:37.714] inherits <- base::inherits 1557s [00:52:37.714] invokeRestart <- base::invokeRestart 1557s [00:52:37.714] length <- base::length 1557s [00:52:37.714] list <- base::list 1557s [00:52:37.714] seq.int <- base::seq.int 1557s [00:52:37.714] signalCondition <- base::signalCondition 1557s [00:52:37.714] sys.calls <- base::sys.calls 1557s [00:52:37.714] `[[` <- base::`[[` 1557s [00:52:37.714] `+` <- base::`+` 1557s [00:52:37.714] `<<-` <- base::`<<-` 1557s [00:52:37.714] sysCalls <- function(calls = sys.calls(), from = 1L) { 1557s [00:52:37.714] calls[seq.int(from = from + 12L, to = length(calls) - 1557s [00:52:37.714] 3L)] 1557s [00:52:37.714] } 1557s [00:52:37.714] function(cond) { 1557s [00:52:37.714] is_error <- inherits(cond, "error") 1557s [00:52:37.714] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1557s [00:52:37.714] NULL) 1557s [00:52:37.714] if (is_error) { 1557s [00:52:37.714] sessionInformation <- function() { 1557s [00:52:37.714] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1557s [00:52:37.714] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1557s [00:52:37.714] search = base::search(), system = base::Sys.info()) 1557s [00:52:37.714] } 1557s [00:52:37.714] ...future.conditions[[length(...future.conditions) + 1557s [00:52:37.714] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1557s [00:52:37.714] cond$call), session = sessionInformation(), 1557s [00:52:37.714] timestamp = base::Sys.time(), signaled = 0L) 1557s [00:52:37.714] signalCondition(cond) 1557s [00:52:37.714] } 1557s [00:52:37.714] else if (!ignore && TRUE && inherits(cond, c("condition", 1557s [00:52:37.714] "immediateCondition"))) { 1557s [00:52:37.714] signal <- TRUE && inherits(cond, "immediateCondition") 1557s [00:52:37.714] ...future.conditions[[length(...future.conditions) + 1557s [00:52:37.714] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1557s [00:52:37.714] if (TRUE && !signal) { 1557s [00:52:37.714] muffleCondition <- function (cond, pattern = "^muffle") 1557s [00:52:37.714] { 1557s [00:52:37.714] inherits <- base::inherits 1557s [00:52:37.714] invokeRestart <- base::invokeRestart 1557s [00:52:37.714] is.null <- base::is.null 1557s [00:52:37.714] muffled <- FALSE 1557s [00:52:37.714] if (inherits(cond, "message")) { 1557s [00:52:37.714] muffled <- grepl(pattern, "muffleMessage") 1557s [00:52:37.714] if (muffled) 1557s [00:52:37.714] invokeRestart("muffleMessage") 1557s [00:52:37.714] } 1557s [00:52:37.714] else if (inherits(cond, "warning")) { 1557s [00:52:37.714] muffled <- grepl(pattern, "muffleWarning") 1557s [00:52:37.714] if (muffled) 1557s [00:52:37.714] invokeRestart("muffleWarning") 1557s [00:52:37.714] } 1557s [00:52:37.714] else if (inherits(cond, "condition")) { 1557s [00:52:37.714] if (!is.null(pattern)) { 1557s [00:52:37.714] computeRestarts <- base::computeRestarts 1557s [00:52:37.714] grepl <- base::grepl 1557s [00:52:37.714] restarts <- computeRestarts(cond) 1557s [00:52:37.714] for (restart in restarts) { 1557s [00:52:37.714] name <- restart$name 1557s [00:52:37.714] if (is.null(name)) 1557s [00:52:37.714] next 1557s [00:52:37.714] if (!grepl(pattern, name)) 1557s [00:52:37.714] next 1557s [00:52:37.714] invokeRestart(restart) 1557s [00:52:37.714] muffled <- TRUE 1557s [00:52:37.714] break 1557s [00:52:37.714] } 1557s [00:52:37.714] } 1557s [00:52:37.714] } 1557s [00:52:37.714] invisible(muffled) 1557s [00:52:37.714] } 1557s [00:52:37.714] muffleCondition(cond, pattern = "^muffle") 1557s [00:52:37.714] } 1557s [00:52:37.714] } 1557s [00:52:37.714] else { 1557s [00:52:37.714] if (TRUE) { 1557s [00:52:37.714] muffleCondition <- function (cond, pattern = "^muffle") 1557s [00:52:37.714] { 1557s [00:52:37.714] inherits <- base::inherits 1557s [00:52:37.714] invokeRestart <- base::invokeRestart 1557s [00:52:37.714] is.null <- base::is.null 1557s [00:52:37.714] muffled <- FALSE 1557s [00:52:37.714] if (inherits(cond, "message")) { 1557s [00:52:37.714] muffled <- grepl(pattern, "muffleMessage") 1557s [00:52:37.714] if (muffled) 1557s [00:52:37.714] invokeRestart("muffleMessage") 1557s [00:52:37.714] } 1557s [00:52:37.714] else if (inherits(cond, "warning")) { 1557s [00:52:37.714] muffled <- grepl(pattern, "muffleWarning") 1557s [00:52:37.714] if (muffled) 1557s [00:52:37.714] invokeRestart("muffleWarning") 1557s [00:52:37.714] } 1557s [00:52:37.714] else if (inherits(cond, "condition")) { 1557s [00:52:37.714] if (!is.null(pattern)) { 1557s [00:52:37.714] computeRestarts <- base::computeRestarts 1557s [00:52:37.714] grepl <- base::grepl 1557s [00:52:37.714] restarts <- computeRestarts(cond) 1557s [00:52:37.714] for (restart in restarts) { 1557s [00:52:37.714] name <- restart$name 1557s [00:52:37.714] if (is.null(name)) 1557s [00:52:37.714] next 1557s [00:52:37.714] if (!grepl(pattern, name)) 1557s [00:52:37.714] next 1557s [00:52:37.714] invokeRestart(restart) 1557s [00:52:37.714] muffled <- TRUE 1557s [00:52:37.714] break 1557s [00:52:37.714] } 1557s [00:52:37.714] } 1557s [00:52:37.714] } 1557s [00:52:37.714] invisible(muffled) 1557s [00:52:37.714] } 1557s [00:52:37.714] muffleCondition(cond, pattern = "^muffle") 1557s [00:52:37.714] } 1557s [00:52:37.714] } 1557s [00:52:37.714] } 1557s [00:52:37.714] })) 1557s [00:52:37.714] }, error = function(ex) { 1557s [00:52:37.714] base::structure(base::list(value = NULL, visible = NULL, 1557s [00:52:37.714] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1557s [00:52:37.714] ...future.rng), started = ...future.startTime, 1557s [00:52:37.714] finished = Sys.time(), session_uuid = NA_character_, 1557s [00:52:37.714] version = "1.8"), class = "FutureResult") 1557s [00:52:37.714] }, finally = { 1557s [00:52:37.714] if (!identical(...future.workdir, getwd())) 1557s [00:52:37.714] setwd(...future.workdir) 1557s [00:52:37.714] { 1557s [00:52:37.714] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1557s [00:52:37.714] ...future.oldOptions$nwarnings <- NULL 1557s [00:52:37.714] } 1557s [00:52:37.714] base::options(...future.oldOptions) 1557s [00:52:37.714] if (.Platform$OS.type == "windows") { 1557s [00:52:37.714] old_names <- names(...future.oldEnvVars) 1557s [00:52:37.714] envs <- base::Sys.getenv() 1557s [00:52:37.714] names <- names(envs) 1557s [00:52:37.714] common <- intersect(names, old_names) 1557s [00:52:37.714] added <- setdiff(names, old_names) 1557s [00:52:37.714] removed <- setdiff(old_names, names) 1557s [00:52:37.714] changed <- common[...future.oldEnvVars[common] != 1557s [00:52:37.714] envs[common]] 1557s [00:52:37.714] NAMES <- toupper(changed) 1557s [00:52:37.714] args <- list() 1557s [00:52:37.714] for (kk in seq_along(NAMES)) { 1557s [00:52:37.714] name <- changed[[kk]] 1557s [00:52:37.714] NAME <- NAMES[[kk]] 1557s [00:52:37.714] if (name != NAME && is.element(NAME, old_names)) 1557s [00:52:37.714] next 1557s [00:52:37.714] args[[name]] <- ...future.oldEnvVars[[name]] 1557s [00:52:37.714] } 1557s [00:52:37.714] NAMES <- toupper(added) 1557s [00:52:37.714] for (kk in seq_along(NAMES)) { 1557s [00:52:37.714] name <- added[[kk]] 1557s [00:52:37.714] NAME <- NAMES[[kk]] 1557s [00:52:37.714] if (name != NAME && is.element(NAME, old_names)) 1557s [00:52:37.714] next 1557s [00:52:37.714] args[[name]] <- "" 1557s [00:52:37.714] } 1557s [00:52:37.714] NAMES <- toupper(removed) 1557s [00:52:37.714] for (kk in seq_along(NAMES)) { 1557s [00:52:37.714] name <- removed[[kk]] 1557s [00:52:37.714] NAME <- NAMES[[kk]] 1557s [00:52:37.714] if (name != NAME && is.element(NAME, old_names)) 1557s [00:52:37.714] next 1557s [00:52:37.714] args[[name]] <- ...future.oldEnvVars[[name]] 1557s [00:52:37.714] } 1557s [00:52:37.714] if (length(args) > 0) 1557s [00:52:37.714] base::do.call(base::Sys.setenv, args = args) 1557s [00:52:37.714] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1557s [00:52:37.714] } 1557s [00:52:37.714] else { 1557s [00:52:37.714] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1557s [00:52:37.714] } 1557s [00:52:37.714] { 1557s [00:52:37.714] if (base::length(...future.futureOptionsAdded) > 1557s [00:52:37.714] 0L) { 1557s [00:52:37.714] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1557s [00:52:37.714] base::names(opts) <- ...future.futureOptionsAdded 1557s [00:52:37.714] base::options(opts) 1557s [00:52:37.714] } 1557s [00:52:37.714] { 1557s [00:52:37.714] { 1557s [00:52:37.714] NULL 1557s [00:52:37.714] RNGkind("Mersenne-Twister") 1557s [00:52:37.714] base::rm(list = ".Random.seed", envir = base::globalenv(), 1557s [00:52:37.714] inherits = FALSE) 1557s [00:52:37.714] } 1557s [00:52:37.714] options(future.plan = NULL) 1557s [00:52:37.714] if (is.na(NA_character_)) 1557s [00:52:37.714] Sys.unsetenv("R_FUTURE_PLAN") 1557s [00:52:37.714] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1557s [00:52:37.714] future::plan(list(function (..., workers = availableCores(), 1557s [00:52:37.714] lazy = FALSE, rscript_libs = .libPaths(), 1557s [00:52:37.714] envir = parent.frame()) 1557s [00:52:37.714] { 1557s [00:52:37.714] if (is.function(workers)) 1557s [00:52:37.714] workers <- workers() 1557s [00:52:37.714] workers <- structure(as.integer(workers), 1557s [00:52:37.714] class = class(workers)) 1557s [00:52:37.714] stop_if_not(length(workers) == 1, is.finite(workers), 1557s [00:52:37.714] workers >= 1) 1557s [00:52:37.714] if (workers == 1L && !inherits(workers, "AsIs")) { 1557s [00:52:37.714] return(sequential(..., lazy = TRUE, envir = envir)) 1557s [00:52:37.714] } 1557s [00:52:37.714] future <- MultisessionFuture(..., workers = workers, 1557s [00:52:37.714] lazy = lazy, rscript_libs = rscript_libs, 1557s [00:52:37.714] envir = envir) 1557s [00:52:37.714] if (!future$lazy) 1557s [00:52:37.714] future <- run(future) 1557s [00:52:37.714] invisible(future) 1557s [00:52:37.714] }), .cleanup = FALSE, .init = FALSE) 1557s [00:52:37.714] } 1557s [00:52:37.714] } 1557s [00:52:37.714] } 1557s [00:52:37.714] }) 1557s [00:52:37.714] if (TRUE) { 1557s [00:52:37.714] base::sink(type = "output", split = FALSE) 1557s [00:52:37.714] if (TRUE) { 1557s [00:52:37.714] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1557s [00:52:37.714] } 1557s [00:52:37.714] else { 1557s [00:52:37.714] ...future.result["stdout"] <- base::list(NULL) 1557s [00:52:37.714] } 1557s [00:52:37.714] base::close(...future.stdout) 1557s [00:52:37.714] ...future.stdout <- NULL 1557s [00:52:37.714] } 1557s [00:52:37.714] ...future.result$conditions <- ...future.conditions 1557s [00:52:37.714] ...future.result$finished <- base::Sys.time() 1557s [00:52:37.714] ...future.result 1557s [00:52:37.714] } 1557s [00:52:37.719] assign_globals() ... 1557s [00:52:37.719] List of 5 1557s [00:52:37.719] $ ...future.FUN :function (x) 1557s [00:52:37.719] $ future.call.arguments : list() 1557s [00:52:37.719] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1557s [00:52:37.719] $ ...future.elements_ii :List of 3 1557s [00:52:37.719] ..$ a: num 1 1557s [00:52:37.719] ..$ b: num 2 1557s [00:52:37.719] ..$ c: num 3 1557s [00:52:37.719] $ ...future.seeds_ii : NULL 1557s [00:52:37.719] $ ...future.globals.maxSize: NULL 1557s [00:52:37.719] - attr(*, "where")=List of 5 1557s [00:52:37.719] ..$ ...future.FUN : 1557s [00:52:37.719] ..$ future.call.arguments : 1557s [00:52:37.719] ..$ ...future.elements_ii : 1557s [00:52:37.719] ..$ ...future.seeds_ii : 1557s [00:52:37.719] ..$ ...future.globals.maxSize: 1557s [00:52:37.719] - attr(*, "resolved")= logi FALSE 1557s [00:52:37.719] - attr(*, "total_size")= num 56 1557s [00:52:37.719] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1557s [00:52:37.719] - attr(*, "already-done")= logi TRUE 1557s [00:52:37.727] - copied ‘...future.FUN’ to environment 1557s [00:52:37.727] - copied ‘future.call.arguments’ to environment 1557s [00:52:37.728] - copied ‘...future.elements_ii’ to environment 1557s [00:52:37.728] - copied ‘...future.seeds_ii’ to environment 1557s [00:52:37.728] - copied ‘...future.globals.maxSize’ to environment 1557s [00:52:37.728] assign_globals() ... done 1557s [00:52:37.728] plan(): Setting new future strategy stack: 1557s [00:52:37.728] List of future strategies: 1557s [00:52:37.728] 1. sequential: 1557s [00:52:37.728] - args: function (..., envir = parent.frame()) 1557s [00:52:37.728] - tweaked: FALSE 1557s [00:52:37.728] - call: NULL 1557s [00:52:37.729] plan(): nbrOfWorkers() = 1 1557s [00:52:37.730] plan(): Setting new future strategy stack: 1557s [00:52:37.730] List of future strategies: 1557s [00:52:37.730] 1. multisession: 1557s [00:52:37.730] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1557s [00:52:37.730] - tweaked: FALSE 1557s [00:52:37.730] - call: plan(strategy) 1557s [00:52:37.733] plan(): nbrOfWorkers() = 1 1557s [00:52:37.734] SequentialFuture started (and completed) 1557s [00:52:37.734] - Launch lazy future ... done 1557s [00:52:37.734] run() for ‘SequentialFuture’ ... done 1557s [00:52:37.734] Created future: 1557s [00:52:37.734] SequentialFuture: 1557s [00:52:37.734] Label: ‘future_lapply-1’ 1557s [00:52:37.734] Expression: 1557s [00:52:37.734] { 1557s [00:52:37.734] do.call(function(...) { 1557s [00:52:37.734] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1557s [00:52:37.734] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1557s [00:52:37.734] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1557s [00:52:37.734] on.exit(options(oopts), add = TRUE) 1557s [00:52:37.734] } 1557s [00:52:37.734] { 1557s [00:52:37.734] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1557s [00:52:37.734] ...future.X_jj <- ...future.elements_ii[[jj]] 1557s [00:52:37.734] ...future.FUN(...future.X_jj, ...) 1557s [00:52:37.734] }) 1557s [00:52:37.734] } 1557s [00:52:37.734] }, args = future.call.arguments) 1557s [00:52:37.734] } 1557s [00:52:37.734] Lazy evaluation: FALSE 1557s [00:52:37.734] Asynchronous evaluation: FALSE 1557s [00:52:37.734] Local evaluation: TRUE 1557s [00:52:37.734] Environment: R_GlobalEnv 1557s [00:52:37.734] Capture standard output: TRUE 1557s [00:52:37.734] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1557s [00:52:37.734] Globals: 5 objects totaling 224 bytes (function ‘...future.FUN’ of 56 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1557s [00:52:37.734] Packages: 1557s [00:52:37.734] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1557s [00:52:37.734] Resolved: TRUE 1557s [00:52:37.734] Value: 168 bytes of class ‘list’ 1557s [00:52:37.734] Early signaling: FALSE 1557s [00:52:37.734] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1557s [00:52:37.734] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1557s [00:52:37.737] Chunk #1 of 1 ... DONE 1557s [00:52:37.737] Launching 1 futures (chunks) ... DONE 1557s [00:52:37.737] Resolving 1 futures (chunks) ... 1557s [00:52:37.737] resolve() on list ... 1557s [00:52:37.737] recursive: 0 1557s [00:52:37.737] length: 1 1557s [00:52:37.737] 1557s [00:52:37.738] resolved() for ‘SequentialFuture’ ... 1557s [00:52:37.738] - state: ‘finished’ 1557s [00:52:37.738] - run: TRUE 1557s [00:52:37.738] - result: ‘FutureResult’ 1557s [00:52:37.738] resolved() for ‘SequentialFuture’ ... done 1557s [00:52:37.738] Future #1 1557s [00:52:37.739] signalConditionsASAP(SequentialFuture, pos=1) ... 1557s [00:52:37.739] - nx: 1 1557s [00:52:37.739] - relay: TRUE 1557s [00:52:37.739] - stdout: TRUE 1557s [00:52:37.739] - signal: TRUE 1557s [00:52:37.739] - resignal: FALSE 1557s [00:52:37.739] - force: TRUE 1557s [00:52:37.740] - relayed: [n=1] FALSE 1557s [00:52:37.740] - queued futures: [n=1] FALSE 1557s [00:52:37.740] - until=1 1557s [00:52:37.740] - relaying element #1 1557s [00:52:37.740] - relayed: [n=1] TRUE 1557s [00:52:37.740] - queued futures: [n=1] TRUE 1557s [00:52:37.741] signalConditionsASAP(SequentialFuture, pos=1) ... done 1557s [00:52:37.741] length: 0 (resolved future 1) 1557s [00:52:37.741] Relaying remaining futures 1557s [00:52:37.741] signalConditionsASAP(NULL, pos=0) ... 1557s [00:52:37.741] - nx: 1 1557s [00:52:37.742] - relay: TRUE 1557s [00:52:37.742] - stdout: TRUE 1557s [00:52:37.742] - signal: TRUE 1557s [00:52:37.742] - resignal: FALSE 1557s [00:52:37.742] - force: TRUE 1557s [00:52:37.742] - relayed: [n=1] TRUE 1557s [00:52:37.742] - queued futures: [n=1] TRUE 1557s - flush all 1557s [00:52:37.743] - relayed: [n=1] TRUE 1557s [00:52:37.743] - queued futures: [n=1] TRUE 1557s [00:52:37.743] signalConditionsASAP(NULL, pos=0) ... done 1557s [00:52:37.743] resolve() on list ... DONE 1557s [00:52:37.743] - Number of value chunks collected: 1 1557s [00:52:37.744] Resolving 1 futures (chunks) ... DONE 1557s [00:52:37.744] Reducing values from 1 chunks ... 1557s [00:52:37.744] - Number of values collected after concatenation: 3 1557s [00:52:37.744] - Number of values expected: 3 1557s [00:52:37.744] Reducing values from 1 chunks ... DONE 1557s [00:52:37.744] future_lapply() ... DONE 1557s - future_lapply(x, ...) where x[[i]] subsets via S3 method ... 1557s [00:52:37.745] future_lapply() ... 1557s [00:52:37.748] Number of chunks: 1 1557s [00:52:37.749] getGlobalsAndPackagesXApply() ... 1557s [00:52:37.749] - future.globals: TRUE 1557s [00:52:37.749] getGlobalsAndPackages() ... 1557s [00:52:37.749] Searching for globals... 1557s [00:52:37.750] - globals found: [1] ‘FUN’ 1557s [00:52:37.750] Searching for globals ... DONE 1557s [00:52:37.751] Resolving globals: FALSE 1557s [00:52:37.751] The total size of the 1 globals is 848 bytes (848 bytes) 1557s [00:52:37.751] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1557s [00:52:37.752] - globals: [1] ‘FUN’ 1557s [00:52:37.752] 1557s [00:52:37.752] getGlobalsAndPackages() ... DONE 1557s [00:52:37.752] - globals found/used: [n=1] ‘FUN’ 1557s [00:52:37.753] - needed namespaces: [n=0] 1557s [00:52:37.753] Finding globals ... DONE 1557s [00:52:37.753] - use_args: TRUE 1557s [00:52:37.753] - Getting '...' globals ... 1557s [00:52:37.754] resolve() on list ... 1557s [00:52:37.754] recursive: 0 1557s [00:52:37.754] length: 1 1557s [00:52:37.754] elements: ‘...’ 1557s [00:52:37.754] length: 0 (resolved future 1) 1557s [00:52:37.754] resolve() on list ... DONE 1557s [00:52:37.754] - '...' content: [n=0] 1557s [00:52:37.755] List of 1 1557s [00:52:37.755] $ ...: list() 1557s [00:52:37.755] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1557s [00:52:37.755] - attr(*, "where")=List of 1 1557s [00:52:37.755] ..$ ...: 1557s [00:52:37.755] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1557s [00:52:37.755] - attr(*, "resolved")= logi TRUE 1557s [00:52:37.755] - attr(*, "total_size")= num NA 1557s [00:52:37.758] - Getting '...' globals ... DONE 1557s [00:52:37.758] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1557s [00:52:37.758] List of 2 1557s [00:52:37.758] $ ...future.FUN:function (x) 1557s [00:52:37.758] $ ... : list() 1557s [00:52:37.758] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1557s [00:52:37.758] - attr(*, "where")=List of 2 1557s [00:52:37.758] ..$ ...future.FUN: 1557s [00:52:37.758] ..$ ... : 1557s [00:52:37.758] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1557s [00:52:37.758] - attr(*, "resolved")= logi FALSE 1557s [00:52:37.758] - attr(*, "total_size")= num 848 1557s [00:52:37.763] Packages to be attached in all futures: [n=0] 1557s [00:52:37.763] getGlobalsAndPackagesXApply() ... DONE 1557s [00:52:37.763] Number of futures (= number of chunks): 1 1557s [00:52:37.763] Launching 1 futures (chunks) ... 1557s [00:52:37.763] Chunk #1 of 1 ... 1557s [00:52:37.764] - Finding globals in 'X' for chunk #1 ... 1557s [00:52:37.764] getGlobalsAndPackages() ... 1557s [00:52:37.764] Searching for globals... 1557s [00:52:37.764] 1557s [00:52:37.764] Searching for globals ... DONE 1557s [00:52:37.765] - globals: [0] 1557s [00:52:37.765] getGlobalsAndPackages() ... DONE 1557s [00:52:37.765] + additional globals found: [n=0] 1557s [00:52:37.765] + additional namespaces needed: [n=0] 1557s [00:52:37.765] - Finding globals in 'X' for chunk #1 ... DONE 1557s [00:52:37.765] - seeds: 1557s [00:52:37.765] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1557s [00:52:37.766] getGlobalsAndPackages() ... 1557s [00:52:37.766] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1557s [00:52:37.766] Resolving globals: FALSE 1557s [00:52:37.766] Tweak future expression to call with '...' arguments ... 1557s [00:52:37.766] { 1557s [00:52:37.766] do.call(function(...) { 1557s [00:52:37.766] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1557s [00:52:37.766] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1557s [00:52:37.766] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1557s [00:52:37.766] on.exit(options(oopts), add = TRUE) 1557s [00:52:37.766] } 1557s [00:52:37.766] { 1557s [00:52:37.766] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1557s [00:52:37.766] ...future.X_jj <- ...future.elements_ii[[jj]] 1557s [00:52:37.766] ...future.FUN(...future.X_jj, ...) 1557s [00:52:37.766] }) 1557s [00:52:37.766] } 1557s [00:52:37.766] }, args = future.call.arguments) 1557s [00:52:37.766] } 1557s [00:52:37.767] Tweak future expression to call with '...' arguments ... DONE 1557s [00:52:37.767] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1557s [00:52:37.768] 1557s [00:52:37.768] getGlobalsAndPackages() ... DONE 1557s [00:52:37.768] run() for ‘Future’ ... 1557s [00:52:37.768] - state: ‘created’ 1557s [00:52:37.768] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1557s [00:52:37.772] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1557s [00:52:37.772] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1557s [00:52:37.772] - Field: ‘label’ 1557s [00:52:37.773] - Field: ‘local’ 1557s [00:52:37.773] - Field: ‘owner’ 1557s [00:52:37.773] - Field: ‘envir’ 1557s [00:52:37.773] - Field: ‘packages’ 1557s [00:52:37.773] - Field: ‘gc’ 1557s [00:52:37.773] - Field: ‘conditions’ 1557s [00:52:37.774] - Field: ‘expr’ 1557s [00:52:37.774] - Field: ‘uuid’ 1557s [00:52:37.774] - Field: ‘seed’ 1557s [00:52:37.774] - Field: ‘version’ 1557s [00:52:37.774] - Field: ‘result’ 1557s [00:52:37.774] - Field: ‘asynchronous’ 1557s [00:52:37.775] - Field: ‘calls’ 1557s [00:52:37.775] - Field: ‘globals’ 1557s [00:52:37.775] - Field: ‘stdout’ 1557s [00:52:37.775] - Field: ‘earlySignal’ 1557s [00:52:37.775] - Field: ‘lazy’ 1557s [00:52:37.775] - Field: ‘state’ 1557s [00:52:37.775] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1557s [00:52:37.776] - Launch lazy future ... 1557s [00:52:37.776] Packages needed by the future expression (n = 0): 1557s [00:52:37.776] Packages needed by future strategies (n = 0): 1557s [00:52:37.777] { 1557s [00:52:37.777] { 1557s [00:52:37.777] { 1557s [00:52:37.777] ...future.startTime <- base::Sys.time() 1557s [00:52:37.777] { 1557s [00:52:37.777] { 1557s [00:52:37.777] { 1557s [00:52:37.777] base::local({ 1557s [00:52:37.777] has_future <- base::requireNamespace("future", 1557s [00:52:37.777] quietly = TRUE) 1557s [00:52:37.777] if (has_future) { 1557s [00:52:37.777] ns <- base::getNamespace("future") 1557s [00:52:37.777] version <- ns[[".package"]][["version"]] 1557s [00:52:37.777] if (is.null(version)) 1557s [00:52:37.777] version <- utils::packageVersion("future") 1557s [00:52:37.777] } 1557s [00:52:37.777] else { 1557s [00:52:37.777] version <- NULL 1557s [00:52:37.777] } 1557s [00:52:37.777] if (!has_future || version < "1.8.0") { 1557s [00:52:37.777] info <- base::c(r_version = base::gsub("R version ", 1557s [00:52:37.777] "", base::R.version$version.string), 1557s [00:52:37.777] platform = base::sprintf("%s (%s-bit)", 1557s [00:52:37.777] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1557s [00:52:37.777] os = base::paste(base::Sys.info()[base::c("sysname", 1557s [00:52:37.777] "release", "version")], collapse = " "), 1557s [00:52:37.777] hostname = base::Sys.info()[["nodename"]]) 1557s [00:52:37.777] info <- base::sprintf("%s: %s", base::names(info), 1557s [00:52:37.777] info) 1557s [00:52:37.777] info <- base::paste(info, collapse = "; ") 1557s [00:52:37.777] if (!has_future) { 1557s [00:52:37.777] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1557s [00:52:37.777] info) 1557s [00:52:37.777] } 1557s [00:52:37.777] else { 1557s [00:52:37.777] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1557s [00:52:37.777] info, version) 1557s [00:52:37.777] } 1557s [00:52:37.777] base::stop(msg) 1557s [00:52:37.777] } 1557s [00:52:37.777] }) 1557s [00:52:37.777] } 1557s [00:52:37.777] options(future.plan = NULL) 1557s [00:52:37.777] Sys.unsetenv("R_FUTURE_PLAN") 1557s [00:52:37.777] future::plan("default", .cleanup = FALSE, .init = FALSE) 1557s [00:52:37.777] } 1557s [00:52:37.777] ...future.workdir <- getwd() 1557s [00:52:37.777] } 1557s [00:52:37.777] ...future.oldOptions <- base::as.list(base::.Options) 1557s [00:52:37.777] ...future.oldEnvVars <- base::Sys.getenv() 1557s [00:52:37.777] } 1557s [00:52:37.777] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1557s [00:52:37.777] future.globals.maxSize = NULL, future.globals.method = NULL, 1557s [00:52:37.777] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1557s [00:52:37.777] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1557s [00:52:37.777] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1557s [00:52:37.777] future.stdout.windows.reencode = NULL, width = 80L) 1557s [00:52:37.777] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1557s [00:52:37.777] base::names(...future.oldOptions)) 1557s [00:52:37.777] } 1557s [00:52:37.777] if (FALSE) { 1557s [00:52:37.777] } 1557s [00:52:37.777] else { 1557s [00:52:37.777] if (TRUE) { 1557s [00:52:37.777] ...future.stdout <- base::rawConnection(base::raw(0L), 1557s [00:52:37.777] open = "w") 1557s [00:52:37.777] } 1557s [00:52:37.777] else { 1557s [00:52:37.777] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1557s [00:52:37.777] windows = "NUL", "/dev/null"), open = "w") 1557s [00:52:37.777] } 1557s [00:52:37.777] base::sink(...future.stdout, type = "output", split = FALSE) 1557s [00:52:37.777] base::on.exit(if (!base::is.null(...future.stdout)) { 1557s [00:52:37.777] base::sink(type = "output", split = FALSE) 1557s [00:52:37.777] base::close(...future.stdout) 1557s [00:52:37.777] }, add = TRUE) 1557s [00:52:37.777] } 1557s [00:52:37.777] ...future.frame <- base::sys.nframe() 1557s [00:52:37.777] ...future.conditions <- base::list() 1557s [00:52:37.777] ...future.rng <- base::globalenv()$.Random.seed 1557s [00:52:37.777] if (FALSE) { 1557s [00:52:37.777] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1557s [00:52:37.777] "...future.value", "...future.globalenv.names", ".Random.seed") 1557s [00:52:37.777] } 1557s [00:52:37.777] ...future.result <- base::tryCatch({ 1557s [00:52:37.777] base::withCallingHandlers({ 1557s [00:52:37.777] ...future.value <- base::withVisible(base::local({ 1557s [00:52:37.777] do.call(function(...) { 1557s [00:52:37.777] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1557s [00:52:37.777] if (!identical(...future.globals.maxSize.org, 1557s [00:52:37.777] ...future.globals.maxSize)) { 1557s [00:52:37.777] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1557s [00:52:37.777] on.exit(options(oopts), add = TRUE) 1557s [00:52:37.777] } 1557s [00:52:37.777] { 1557s [00:52:37.777] lapply(seq_along(...future.elements_ii), 1557s [00:52:37.777] FUN = function(jj) { 1557s [00:52:37.777] ...future.X_jj <- ...future.elements_ii[[jj]] 1557s [00:52:37.777] ...future.FUN(...future.X_jj, ...) 1557s [00:52:37.777] }) 1557s [00:52:37.777] } 1557s [00:52:37.777] }, args = future.call.arguments) 1557s [00:52:37.777] })) 1557s [00:52:37.777] future::FutureResult(value = ...future.value$value, 1557s [00:52:37.777] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1557s [00:52:37.777] ...future.rng), globalenv = if (FALSE) 1557s [00:52:37.777] list(added = base::setdiff(base::names(base::.GlobalEnv), 1557s [00:52:37.777] ...future.globalenv.names)) 1557s [00:52:37.777] else NULL, started = ...future.startTime, version = "1.8") 1557s [00:52:37.777] }, condition = base::local({ 1557s [00:52:37.777] c <- base::c 1557s [00:52:37.777] inherits <- base::inherits 1557s [00:52:37.777] invokeRestart <- base::invokeRestart 1557s [00:52:37.777] length <- base::length 1557s [00:52:37.777] list <- base::list 1557s [00:52:37.777] seq.int <- base::seq.int 1557s [00:52:37.777] signalCondition <- base::signalCondition 1557s [00:52:37.777] sys.calls <- base::sys.calls 1557s [00:52:37.777] `[[` <- base::`[[` 1557s [00:52:37.777] `+` <- base::`+` 1557s [00:52:37.777] `<<-` <- base::`<<-` 1557s [00:52:37.777] sysCalls <- function(calls = sys.calls(), from = 1L) { 1557s [00:52:37.777] calls[seq.int(from = from + 12L, to = length(calls) - 1557s [00:52:37.777] 3L)] 1557s [00:52:37.777] } 1557s [00:52:37.777] function(cond) { 1557s [00:52:37.777] is_error <- inherits(cond, "error") 1557s [00:52:37.777] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1557s [00:52:37.777] NULL) 1557s [00:52:37.777] if (is_error) { 1557s [00:52:37.777] sessionInformation <- function() { 1557s [00:52:37.777] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1557s [00:52:37.777] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1557s [00:52:37.777] search = base::search(), system = base::Sys.info()) 1557s [00:52:37.777] } 1557s [00:52:37.777] ...future.conditions[[length(...future.conditions) + 1557s [00:52:37.777] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1557s [00:52:37.777] cond$call), session = sessionInformation(), 1557s [00:52:37.777] timestamp = base::Sys.time(), signaled = 0L) 1557s [00:52:37.777] signalCondition(cond) 1557s [00:52:37.777] } 1557s [00:52:37.777] else if (!ignore && TRUE && inherits(cond, c("condition", 1557s [00:52:37.777] "immediateCondition"))) { 1557s [00:52:37.777] signal <- TRUE && inherits(cond, "immediateCondition") 1557s [00:52:37.777] ...future.conditions[[length(...future.conditions) + 1557s [00:52:37.777] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1557s [00:52:37.777] if (TRUE && !signal) { 1557s [00:52:37.777] muffleCondition <- function (cond, pattern = "^muffle") 1557s [00:52:37.777] { 1557s [00:52:37.777] inherits <- base::inherits 1557s [00:52:37.777] invokeRestart <- base::invokeRestart 1557s [00:52:37.777] is.null <- base::is.null 1557s [00:52:37.777] muffled <- FALSE 1557s [00:52:37.777] if (inherits(cond, "message")) { 1557s [00:52:37.777] muffled <- grepl(pattern, "muffleMessage") 1557s [00:52:37.777] if (muffled) 1557s [00:52:37.777] invokeRestart("muffleMessage") 1557s [00:52:37.777] } 1557s [00:52:37.777] else if (inherits(cond, "warning")) { 1557s [00:52:37.777] muffled <- grepl(pattern, "muffleWarning") 1557s [00:52:37.777] if (muffled) 1557s [00:52:37.777] invokeRestart("muffleWarning") 1557s [00:52:37.777] } 1557s [00:52:37.777] else if (inherits(cond, "condition")) { 1557s [00:52:37.777] if (!is.null(pattern)) { 1557s [00:52:37.777] computeRestarts <- base::computeRestarts 1557s [00:52:37.777] grepl <- base::grepl 1557s [00:52:37.777] restarts <- computeRestarts(cond) 1557s [00:52:37.777] for (restart in restarts) { 1557s [00:52:37.777] name <- restart$name 1557s [00:52:37.777] if (is.null(name)) 1557s [00:52:37.777] next 1557s [00:52:37.777] if (!grepl(pattern, name)) 1557s [00:52:37.777] next 1557s [00:52:37.777] invokeRestart(restart) 1557s [00:52:37.777] muffled <- TRUE 1557s [00:52:37.777] break 1557s [00:52:37.777] } 1557s [00:52:37.777] } 1557s [00:52:37.777] } 1557s [00:52:37.777] invisible(muffled) 1557s [00:52:37.777] } 1557s [00:52:37.777] muffleCondition(cond, pattern = "^muffle") 1557s [00:52:37.777] } 1557s [00:52:37.777] } 1557s [00:52:37.777] else { 1557s [00:52:37.777] if (TRUE) { 1557s [00:52:37.777] muffleCondition <- function (cond, pattern = "^muffle") 1557s [00:52:37.777] { 1557s [00:52:37.777] inherits <- base::inherits 1557s [00:52:37.777] invokeRestart <- base::invokeRestart 1557s [00:52:37.777] is.null <- base::is.null 1557s [00:52:37.777] muffled <- FALSE 1557s [00:52:37.777] if (inherits(cond, "message")) { 1557s [00:52:37.777] muffled <- grepl(pattern, "muffleMessage") 1557s [00:52:37.777] if (muffled) 1557s [00:52:37.777] invokeRestart("muffleMessage") 1557s [00:52:37.777] } 1557s [00:52:37.777] else if (inherits(cond, "warning")) { 1557s [00:52:37.777] muffled <- grepl(pattern, "muffleWarning") 1557s [00:52:37.777] if (muffled) 1557s [00:52:37.777] invokeRestart("muffleWarning") 1557s [00:52:37.777] } 1557s [00:52:37.777] else if (inherits(cond, "condition")) { 1557s [00:52:37.777] if (!is.null(pattern)) { 1557s [00:52:37.777] computeRestarts <- base::computeRestarts 1557s [00:52:37.777] grepl <- base::grepl 1557s [00:52:37.777] restarts <- computeRestarts(cond) 1557s [00:52:37.777] for (restart in restarts) { 1557s [00:52:37.777] name <- restart$name 1557s [00:52:37.777] if (is.null(name)) 1557s [00:52:37.777] next 1557s [00:52:37.777] if (!grepl(pattern, name)) 1557s [00:52:37.777] next 1557s [00:52:37.777] invokeRestart(restart) 1557s [00:52:37.777] muffled <- TRUE 1557s [00:52:37.777] break 1557s [00:52:37.777] } 1557s [00:52:37.777] } 1557s [00:52:37.777] } 1557s [00:52:37.777] invisible(muffled) 1557s [00:52:37.777] } 1557s [00:52:37.777] muffleCondition(cond, pattern = "^muffle") 1557s [00:52:37.777] } 1557s [00:52:37.777] } 1557s [00:52:37.777] } 1557s [00:52:37.777] })) 1557s [00:52:37.777] }, error = function(ex) { 1557s [00:52:37.777] base::structure(base::list(value = NULL, visible = NULL, 1557s [00:52:37.777] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1557s [00:52:37.777] ...future.rng), started = ...future.startTime, 1557s [00:52:37.777] finished = Sys.time(), session_uuid = NA_character_, 1557s [00:52:37.777] version = "1.8"), class = "FutureResult") 1557s [00:52:37.777] }, finally = { 1557s [00:52:37.777] if (!identical(...future.workdir, getwd())) 1557s [00:52:37.777] setwd(...future.workdir) 1557s [00:52:37.777] { 1557s [00:52:37.777] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1557s [00:52:37.777] ...future.oldOptions$nwarnings <- NULL 1557s [00:52:37.777] } 1557s [00:52:37.777] base::options(...future.oldOptions) 1557s [00:52:37.777] if (.Platform$OS.type == "windows") { 1557s [00:52:37.777] old_names <- names(...future.oldEnvVars) 1557s [00:52:37.777] envs <- base::Sys.getenv() 1557s [00:52:37.777] names <- names(envs) 1557s [00:52:37.777] common <- intersect(names, old_names) 1557s [00:52:37.777] added <- setdiff(names, old_names) 1557s [00:52:37.777] removed <- setdiff(old_names, names) 1557s [00:52:37.777] changed <- common[...future.oldEnvVars[common] != 1557s [00:52:37.777] envs[common]] 1557s [00:52:37.777] NAMES <- toupper(changed) 1557s [00:52:37.777] args <- list() 1557s [00:52:37.777] for (kk in seq_along(NAMES)) { 1557s [00:52:37.777] name <- changed[[kk]] 1557s [00:52:37.777] NAME <- NAMES[[kk]] 1557s [00:52:37.777] if (name != NAME && is.element(NAME, old_names)) 1557s [00:52:37.777] next 1557s [00:52:37.777] args[[name]] <- ...future.oldEnvVars[[name]] 1557s [00:52:37.777] } 1557s [00:52:37.777] NAMES <- toupper(added) 1557s [00:52:37.777] for (kk in seq_along(NAMES)) { 1557s [00:52:37.777] name <- added[[kk]] 1557s [00:52:37.777] NAME <- NAMES[[kk]] 1557s [00:52:37.777] if (name != NAME && is.element(NAME, old_names)) 1557s [00:52:37.777] next 1557s [00:52:37.777] args[[name]] <- "" 1557s [00:52:37.777] } 1557s [00:52:37.777] NAMES <- toupper(removed) 1557s [00:52:37.777] for (kk in seq_along(NAMES)) { 1557s [00:52:37.777] name <- removed[[kk]] 1557s [00:52:37.777] NAME <- NAMES[[kk]] 1557s [00:52:37.777] if (name != NAME && is.element(NAME, old_names)) 1557s [00:52:37.777] next 1557s [00:52:37.777] args[[name]] <- ...future.oldEnvVars[[name]] 1557s [00:52:37.777] } 1557s [00:52:37.777] if (length(args) > 0) 1557s [00:52:37.777] base::do.call(base::Sys.setenv, args = args) 1557s [00:52:37.777] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1557s [00:52:37.777] } 1557s [00:52:37.777] else { 1557s [00:52:37.777] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1557s [00:52:37.777] } 1557s [00:52:37.777] { 1557s [00:52:37.777] if (base::length(...future.futureOptionsAdded) > 1557s [00:52:37.777] 0L) { 1557s [00:52:37.777] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1557s [00:52:37.777] base::names(opts) <- ...future.futureOptionsAdded 1557s [00:52:37.777] base::options(opts) 1557s [00:52:37.777] } 1557s [00:52:37.777] { 1557s [00:52:37.777] { 1557s [00:52:37.777] NULL 1557s [00:52:37.777] RNGkind("Mersenne-Twister") 1557s [00:52:37.777] base::rm(list = ".Random.seed", envir = base::globalenv(), 1557s [00:52:37.777] inherits = FALSE) 1557s [00:52:37.777] } 1557s [00:52:37.777] options(future.plan = NULL) 1557s [00:52:37.777] if (is.na(NA_character_)) 1557s [00:52:37.777] Sys.unsetenv("R_FUTURE_PLAN") 1557s [00:52:37.777] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1557s [00:52:37.777] future::plan(list(function (..., workers = availableCores(), 1557s [00:52:37.777] lazy = FALSE, rscript_libs = .libPaths(), 1557s [00:52:37.777] envir = parent.frame()) 1557s [00:52:37.777] { 1557s [00:52:37.777] if (is.function(workers)) 1557s [00:52:37.777] workers <- workers() 1557s [00:52:37.777] workers <- structure(as.integer(workers), 1557s [00:52:37.777] class = class(workers)) 1557s [00:52:37.777] stop_if_not(length(workers) == 1, is.finite(workers), 1557s [00:52:37.777] workers >= 1) 1557s [00:52:37.777] if (workers == 1L && !inherits(workers, "AsIs")) { 1557s [00:52:37.777] return(sequential(..., lazy = TRUE, envir = envir)) 1557s [00:52:37.777] } 1557s [00:52:37.777] future <- MultisessionFuture(..., workers = workers, 1557s [00:52:37.777] lazy = lazy, rscript_libs = rscript_libs, 1557s [00:52:37.777] envir = envir) 1557s [00:52:37.777] if (!future$lazy) 1557s [00:52:37.777] future <- run(future) 1557s [00:52:37.777] invisible(future) 1557s [00:52:37.777] }), .cleanup = FALSE, .init = FALSE) 1557s [00:52:37.777] } 1557s [00:52:37.777] } 1557s [00:52:37.777] } 1557s [00:52:37.777] }) 1557s [00:52:37.777] if (TRUE) { 1557s [00:52:37.777] base::sink(type = "output", split = FALSE) 1557s [00:52:37.777] if (TRUE) { 1557s [00:52:37.777] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1557s [00:52:37.777] } 1557s [00:52:37.777] else { 1557s [00:52:37.777] ...future.result["stdout"] <- base::list(NULL) 1557s [00:52:37.777] } 1557s [00:52:37.777] base::close(...future.stdout) 1557s [00:52:37.777] ...future.stdout <- NULL 1557s [00:52:37.777] } 1557s [00:52:37.777] ...future.result$conditions <- ...future.conditions 1557s [00:52:37.777] ...future.result$finished <- base::Sys.time() 1557s [00:52:37.777] ...future.result 1557s [00:52:37.777] } 1557s [00:52:37.784] assign_globals() ... 1557s [00:52:37.784] List of 5 1557s [00:52:37.784] $ ...future.FUN :function (x) 1557s [00:52:37.784] $ future.call.arguments : list() 1557s [00:52:37.784] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1557s [00:52:37.784] $ ...future.elements_ii :List of 2 1557s [00:52:37.784] ..$ a: num 0 1557s [00:52:37.784] ..$ b: num 0 1557s [00:52:37.784] $ ...future.seeds_ii : NULL 1557s [00:52:37.784] $ ...future.globals.maxSize: NULL 1557s [00:52:37.784] - attr(*, "where")=List of 5 1557s [00:52:37.784] ..$ ...future.FUN : 1557s [00:52:37.784] ..$ future.call.arguments : 1557s [00:52:37.784] ..$ ...future.elements_ii : 1557s [00:52:37.784] ..$ ...future.seeds_ii : 1557s [00:52:37.784] ..$ ...future.globals.maxSize: 1557s [00:52:37.784] - attr(*, "resolved")= logi FALSE 1557s [00:52:37.784] - attr(*, "total_size")= num 848 1557s [00:52:37.784] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1557s [00:52:37.784] - attr(*, "already-done")= logi TRUE 1557s [00:52:37.792] - copied ‘...future.FUN’ to environment 1557s [00:52:37.792] - copied ‘future.call.arguments’ to environment 1557s [00:52:37.792] - copied ‘...future.elements_ii’ to environment 1557s [00:52:37.792] - copied ‘...future.seeds_ii’ to environment 1557s [00:52:37.792] - copied ‘...future.globals.maxSize’ to environment 1557s [00:52:37.793] assign_globals() ... done 1557s [00:52:37.793] plan(): Setting new future strategy stack: 1557s [00:52:37.793] List of future strategies: 1557s [00:52:37.793] 1. sequential: 1557s [00:52:37.793] - args: function (..., envir = parent.frame()) 1557s [00:52:37.793] - tweaked: FALSE 1557s [00:52:37.793] - call: NULL 1557s [00:52:37.793] plan(): nbrOfWorkers() = 1 1557s [00:52:37.794] plan(): Setting new future strategy stack: 1557s [00:52:37.794] List of future strategies: 1557s [00:52:37.794] 1. multisession: 1557s [00:52:37.794] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1557s [00:52:37.794] - tweaked: FALSE 1557s [00:52:37.794] - call: plan(strategy) 1557s [00:52:37.798] plan(): nbrOfWorkers() = 1 1557s [00:52:37.798] SequentialFuture started (and completed) 1557s [00:52:37.798] - Launch lazy future ... done 1557s [00:52:37.798] run() for ‘SequentialFuture’ ... done 1557s [00:52:37.798] Created future: 1557s [00:52:37.798] SequentialFuture: 1557s [00:52:37.798] Label: ‘future_lapply-1’ 1557s [00:52:37.798] Expression: 1557s [00:52:37.798] { 1557s [00:52:37.798] do.call(function(...) { 1557s [00:52:37.798] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1557s [00:52:37.798] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1557s [00:52:37.798] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1557s [00:52:37.798] on.exit(options(oopts), add = TRUE) 1557s [00:52:37.798] } 1557s [00:52:37.798] { 1557s [00:52:37.798] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1557s [00:52:37.798] ...future.X_jj <- ...future.elements_ii[[jj]] 1557s [00:52:37.798] ...future.FUN(...future.X_jj, ...) 1557s [00:52:37.798] }) 1557s [00:52:37.798] } 1557s [00:52:37.798] }, args = future.call.arguments) 1557s [00:52:37.798] } 1557s [00:52:37.798] Lazy evaluation: FALSE 1557s [00:52:37.798] Asynchronous evaluation: FALSE 1557s [00:52:37.798] Local evaluation: TRUE 1557s [00:52:37.798] Environment: R_GlobalEnv 1557s [00:52:37.798] Capture standard output: TRUE 1557s [00:52:37.798] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1557s [00:52:37.798] Globals: 5 objects totaling 960 bytes (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1557s [00:52:37.798] Packages: 1557s [00:52:37.798] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1557s [00:52:37.798] Resolved: TRUE 1557s [00:52:37.798] Value: 112 bytes of class ‘list’ 1557s [00:52:37.798] Early signaling: FALSE 1557s [00:52:37.798] Owner process: f2994b67-71ce-48df-069a-0602a5b04d87 1557s [00:52:37.798] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1557s [00:52:37.800] Chunk #1 of 1 ... DONE 1557s [00:52:37.800] Launching 1 futures (chunks) ... DONE 1557s [00:52:37.800] Resolving 1 futures (chunks) ... 1557s [00:52:37.801] resolve() on list ... 1557s [00:52:37.801] recursive: 0 1557s [00:52:37.801] length: 1 1557s [00:52:37.801] 1557s [00:52:37.801] resolved() for ‘SequentialFuture’ ... 1557s [00:52:37.802] - state: ‘finished’ 1557s [00:52:37.802] - run: TRUE 1557s [00:52:37.802] - result: ‘FutureResult’ 1557s [00:52:37.802] resolved() for ‘SequentialFuture’ ... done 1557s [00:52:37.802] Future #1 1557s [00:52:37.802] signalConditionsASAP(SequentialFuture, pos=1) ... 1557s [00:52:37.803] - nx: 1 1557s [00:52:37.803] - relay: TRUE 1557s [00:52:37.803] - stdout: TRUE 1557s [00:52:37.803] - signal: TRUE 1557s [00:52:37.803] - resignal: FALSE 1557s [00:52:37.803] - force: TRUE 1557s [00:52:37.803] - relayed: [n=1] FALSE 1557s [00:52:37.804] - queued futures: [n=1] FALSE 1557s [00:52:37.804] - until=1 1557s [00:52:37.804] - relaying element #1 1557s [00:52:37.804] - relayed: [n=1] TRUE 1557s [00:52:37.804] - queued futures: [n=1] TRUE 1557s [00:52:37.805] signalConditionsASAP(SequentialFuture, pos=1) ... done 1557s [00:52:37.805] length: 0 (resolved future 1) 1557s [00:52:37.805] Relaying remaining futures 1557s [00:52:37.805] signalConditionsASAP(NULL, pos=0) ... 1557s [00:52:37.806] - nx: 1 1557s [00:52:37.806] - relay: TRUE 1557s [00:52:37.806] - stdout: TRUE 1557s [00:52:37.806] - signal: TRUE 1557s [00:52:37.806] - resignal: FALSE 1557s [00:52:37.806] - force: TRUE 1557s [00:52:37.806] - relayed: [n=1] TRUE 1557s [00:52:37.806] - queued futures: [n=1] TRUE 1557s - flush all 1557s [00:52:37.807] - relayed: [n=1] TRUE 1557s [00:52:37.807] - queued futures: [n=1] TRUE 1557s [00:52:37.807] signalConditionsASAP(NULL, pos=0) ... done 1557s [00:52:37.807] resolve() on list ... DONE 1557s [00:52:37.807] - Number of value chunks collected: 1 1557s [00:52:37.807] Resolving 1 futures (chunks) ... DONE 1557s [00:52:37.807] Reducing values from 1 chunks ... 1557s [00:52:37.807] - Number of values collected after concatenation: 2 1557s [00:52:37.808] - Number of values expected: 2 1557s [00:52:37.808] Reducing values from 1 chunks ... DONE 1557s [00:52:37.808] future_lapply() ... DONE 1557s Testing with 1 cores ... DONE 1557s *** future_lapply() - special cases ... 1557s > 1557s > 1557s > message("*** future_lapply() - special cases ...") 1557s > 1557s > X <- list() 1557s > names(X) <- character(0L) 1557s > y <- future_lapply(X, FUN = identity) 1557s > stopifnot(length(y) == 0L, !is.null(names(y)), identical(y, X)) 1557s > 1557s > X <- character(0L) 1557s > y0 <- lapply(X, FUN = identity) 1557s > y <- future_lapply(X, FUN = identity) 1557s > stopifnot(identical(y, y0)) 1557s > 1557s > X <- character(0L) 1557s > names(X) <- character(0L) 1557s > y0 <- lapply(X, FUN = identity) 1557s > y <- future_lapply(X, FUN = identity) 1557s > stopifnot(identical(y, y0)) 1557s *** future_lapply() - special cases ... DONE 1557s > 1557s > message("*** future_lapply() - special cases ... DONE") 1557s > 1557s > 1557s *** future_lapply() - exceptions ... 1557s > message("*** future_lapply() - exceptions ...") 1557s > 1557s > res <- tryCatch({ 1557s + future_lapply(1:3, FUN = identity, future.chunk.size = structure(1L, ordering = "invalid")) 1557s + }, error = identity) 1557s [00:52:37.810] future_lapply() ... 1557s > stopifnot(inherits(res, "error")) 1557s > 1557s > message("*** future_lapply() - exceptions ... DONE") 1557s > 1557s > *** future_lapply() - exceptions ... DONE 1557s *** future_lapply() ... DONE 1557s message("*** future_lapply() ... DONE") 1557s > 1557s > source("incl/end.R") 1557s [00:52:37.817] plan(): Setting new future strategy stack: 1557s [00:52:37.817] List of future strategies: 1557s [00:52:37.817] 1. FutureStrategy: 1557s [00:52:37.817] - args: function (..., envir = parent.frame()) 1557s [00:52:37.817] - tweaked: FALSE 1557s [00:52:37.817] - call: future::plan(oplan) 1557s [00:52:37.818] plan(): nbrOfWorkers() = 1 1557s > 1557s BEGIN TEST future_mapply,globals.R 1557s 1557s R version 4.3.3 (2024-02-29) -- "Angel Food Cake" 1557s Copyright (C) 2024 The R Foundation for Statistical Computing 1557s Platform: s390x-ibm-linux-gnu (64-bit) 1557s 1557s R is free software and comes with ABSOLUTELY NO WARRANTY. 1557s You are welcome to redistribute it under certain conditions. 1557s Type 'license()' or 'licence()' for distribution details. 1557s 1557s R is a collaborative project with many contributors. 1557s Type 'contributors()' for more information and 1557s 'citation()' on how to cite R or R packages in publications. 1557s 1557s Type 'demo()' for some demos, 'help()' for on-line help, or 1557s 'help.start()' for an HTML browser interface to help. 1557s Type 'q()' to quit R. 1557s 1558s > source("incl/start.R") 1558s Loading required package: future 1558s [00:52:38.213] plan(): Setting new future strategy stack: 1558s [00:52:38.214] List of future strategies: 1558s [00:52:38.214] 1. sequential: 1558s [00:52:38.214] - args: function (..., envir = parent.frame()) 1558s [00:52:38.214] - tweaked: FALSE 1558s [00:52:38.214] - call: future::plan("sequential") 1558s [00:52:38.236] plan(): nbrOfWorkers() = 1 1558s > library("tools") ## toTitleCase() 1558s > 1558s > message("*** future_mapply() - globals ...") 1558s > 1558s > #plan(cluster, workers = "localhost") 1558s > plan(sequential) 1558s *** future_mapply() - globals ... 1558s [00:52:38.254] plan(): Setting new future strategy stack: 1558s [00:52:38.254] List of future strategies: 1558s [00:52:38.254] 1. sequential: 1558s [00:52:38.254] - args: function (..., envir = parent.frame()) 1558s [00:52:38.254] - tweaked: FALSE 1558s [00:52:38.254] - call: plan(sequential) 1558s > 1558s [00:52:38.272] plan(): nbrOfWorkers() = 1 1558s > options(future.debug = FALSE) 1558s > a <- 1 1558s > b <- 2 1558s > 1558s > globals_set <- list( 1558s + A = FALSE, 1558s + B = TRUE, 1558s + C = c("a", "b"), 1558s + D = list(a = 1, b = 2) 1558s + ) 1558s > 1558s > x <- list(1) 1558s > 1558s > for (name in names(globals_set)) { 1558s + globals <- globals_set[[name]] 1558s + message("Globals set ", sQuote(name)) 1558s + str(globals) 1558s + 1558s + y_truth <- tryCatch({ 1558s + mapply(function(x) { 1558s + median(c(x, a, b)) 1558s + }, x) 1558s + }, error = identity) 1558s + 1558s + y1 <- tryCatch({ 1558s + future_mapply(function(x) { 1558s + median(c(x, a, b)) 1558s + }, x) 1558s + }, error = identity) 1558s + print(y1) 1558s + stopifnot(identical(y1, y_truth)) 1558s + 1558s + y2 <- tryCatch({ 1558s + future_mapply(function(x) { 1558s + median(c(x, a, b)) 1558s + }, x, future.globals = globals, future.packages = "utils") 1558s + }, error = identity) 1558s + print(y2) 1558s + stopifnot(identical(y2, y_truth)) 1558s + } 1558s Globals set ‘A’ 1558s logi FALSE 1558s [1] 1 1558s [1] 1 1558s logi TRUE 1558s Globals set ‘B’ 1558s [1] 1 1558s Globals set ‘C’ 1558s [1] 1 1558s chr [1:2] "a" "b" 1558s [1]Globals set ‘D’ 1558s 1 1558s [1] 1 1558s List of 2 1558s $ a: num 1 1558s $ b: num 2 1558s [1] 1 1558s [1] 1 1558s > 1558s > message("*** future_mapply() - globals ... DONE") 1558s > 1558s > 1558s > 1558s *** future_mapply() - globals ... DONE 1558s > ## Test adopted from http://stackoverflow.com/questions/42561088/nested-do-call-within-a-foreach-dopar-environment-cant-find-function-passed-w 1558s > 1558s > *** future_mapply() - tricky globals ... 1558s message("*** future_mapply() - tricky globals ...") 1558s > 1558s > my_add <- function(a, b) a + b 1558s > 1558s > call_my_add <- function(a, b) { 1558s + do.call(my_add, args = list(a = a, b = b)) 1558s + } 1558s > 1558s > call_my_add_caller <- function(a, b, FUN = call_my_add) { 1558s + do.call(FUN, args = list(a = a, b = b)) 1558s + } 1558s > 1558s > main <- function(x = 1:2, caller = call_my_add_caller, 1558s + args = list(FUN = call_my_add)) { 1558s + results <- future_mapply(function(i) { 1558s + do.call(caller, args = c(list(a = i, b = i + 1L), args)) 1558s + }, x) 1558s + results 1558s + } 1558s > 1558s > x <- list(list(1:2)) 1558s > z_length <- mapply(do.call, args = x, MoreArgs = list(what = length)) 1558s > fun <- function(...) sum(...) 1558s > z_fun <- mapply(do.call, args = x, MoreArgs = list(what = fun)) 1558s > 1558s > y0 <- NULL 1558s > for (strategy in supportedStrategies()) { 1558s + plan(strategy) 1558s + 1558s + y <- main(1:3) 1558s + if (is.null(y0)) y0 <- y 1558s + stopifnot(identical(y, y0)) 1558s + 1558s + message("- future_mapply(do.call, x, ...) ...") 1558s + z <- future_mapply(do.call, args = x, MoreArgs = list(what = length)) 1558s + stopifnot(identical(z, z_length)) 1558s + z <- future_mapply(do.call, args = x, MoreArgs = list(what = fun)) 1558s + stopifnot(identical(z, z_fun)) 1558s + 1558s + message("- future_mapply(FUN, x, ...) - passing arguments via '...' ...") 1558s + ## typeof() == "list" 1558s + obj <- data.frame(a = 1:2) 1558s + stopifnot(typeof(obj) == "list") 1558s + y <- future_mapply(function(a, b) typeof(b), 1L, MoreArgs = list(b = obj)) 1558s + stopifnot(identical(y[[1]], typeof(obj))) 1558s + 1558s + ## typeof() == "environment" 1558s + obj <- new.env() 1558s + stopifnot(typeof(obj) == "environment") 1558s + y <- future_mapply(function(a, b) typeof(b), 1L, MoreArgs = list(b = obj)) 1558s + stopifnot(identical(y[[1]], typeof(obj))) 1558s + 1558s + ## typeof() == "S4" 1558s + if (requireNamespace("methods")) { 1558s + obj <- methods::getClass("MethodDefinition") 1558s + stopifnot(typeof(obj) == "S4") 1558s + y <- future_mapply(function(a, b) typeof(b), 1L, MoreArgs = list(b = obj)) 1558s + stopifnot(identical(y[[1]], typeof(obj))) 1558s + } 1558s + 1558s + message("- future_mapply(FUN, X, ...) - 'X' containing globals ...") 1558s + ## From https://github.com/HenrikBengtsson/future.apply/issues/12 1558s + a <- 42 1558s + b <- 21 1558s + X <- list( 1558s + function(b) 2 * a, 1558s + function() b / 2, 1558s + function() a + b, 1558s + function() nchar(toTitleCase("hello world")) 1558s + ) 1558s + z0 <- mapply(function(s, f) f() + s, s = seq_along(X), X) 1558s + str(z0) 1558s + z1 <- future_mapply(function(s, f) f() + s, s = seq_along(X), X) 1558s + str(z1) 1558s + stopifnot(identical(z1, z0)) 1558s + } 1558s - future_mapply(do.call, x, ...) ... 1558s - future_mapply(FUN, x, ...) - passing arguments via '...' ... 1558s - future_mapply(FUN, X, ...) - 'X' containing globals ... 1558s num [1:4] 85 12.5 66 15 1558s num [1:4] 85 12.5 66 15 1558s - future_mapply(do.call, x, ...) ... 1558s - future_mapply(FUN, x, ...) - passing arguments via '...' ... 1558s - future_mapply(FUN, X, ...) - 'X' containing globals ... 1558s num [1:4] 85 12.5 66 15 1558s num [1:4] 85 12.5 66 15 1558s - future_mapply(do.call, x, ...) ... 1558s - future_mapply(FUN, x, ...) - passing arguments via '...' ... 1558s - future_mapply(FUN, X, ...) - 'X' containing globals ... 1558s num [1:4] 85 12.5 66 15 1558s num [1:4] 85 12.5 66 15 1558s > 1558s > message("*** future_mapply() - tricky globals ... DONE") 1558s > 1558s > 1558s *** future_mapply() - tricky globals ... DONE 1558s > message("*** future_mapply() - missing arguments ...") 1558s *** future_mapply() - missing arguments ... 1558s > 1558s > ## Here 'abc' becomes missing, i.e. missing(abc) is TRUE 1558s > foo <- function(x, abc) mapply(function(y) y, x) 1558s > y0 <- foo(1:2) 1558s > foo <- function(x, abc) future_mapply(function(y) y, x) 1558s > y <- foo(1:2) 1558s > stopifnot(identical(y, y0)) 1558s > 1558s > message("*** future_mapply() - missing arguments ... DONE") 1558s *** future_mapply() - missing arguments ... DONE 1558s > 1558s > 1558s > message("*** future_mapply() - false positives ...") 1558s > 1558s > ## Here 'abc' becomes a promise, which fails to resolve 1558s > ## iff 'xyz' does not exist. (Issue #161) 1558s > suppressWarnings(rm(list = "xyz")) 1558s > foo <- function(x, abc) mapply(function(y) y, x) 1558s > y0 <- foo(1:2, abc = (xyz >= 3.14)) 1558s > foo <- function(x, abc) future_mapply(function(y) y, x) 1558s > y <- foo(1:2, abc = (xyz >= 3.14)) 1558s *** future_mapply() - false positives ... 1558s > stopifnot(identical(y, y0)) 1558s > 1558s > message("*** future_mapply() - false positives ... DONE") 1558s *** future_mapply() - false positives ... DONE 1558s > 1558s > 1558s > message("*** future_mapply() - too large ...") 1558s *** future_mapply() - too large ... 1558s > 1558s > X <- replicate(10L, 1:100, simplify = FALSE) 1558s > FUN <- function(x) { 1558s + getOption("future.globals.maxSize") 1558s + } 1558s > 1558s > y0 <- mapply(FUN = FUN, X) 1558s > 1558s > sizes <- unclass(c(FUN = object.size(FUN), X = object.size(X))) 1558s > cat(sprintf("Baseline size of globals: %.2f KiB\n", sizes[["FUN"]] / 1024)) 1558s Baseline size of globals: 1.80 KiB 1558s > 1558s > message("- true positive ...") 1558s > oMaxSize <- getOption("future.globals.maxSize") 1558s > options(future.globals.maxSize = 1L) 1558s - true positive ... 1558s > res <- tryCatch({ 1558s + y <- future_mapply(FUN = FUN, X) 1558s + }, error = identity) 1558s > stopifnot(inherits(res, "error")) 1558s > res <- NULL 1558s > options(future.globals.maxSize = oMaxSize) 1558s > 1558s > maxSize <- getOption("future.globals.maxSize") 1558s > y <- future_mapply(FUN = FUN, X) 1558s > str(y) 1558s List of 10 1558s $ : NULL 1558s $ : NULL 1558s $ : NULL 1558s $ : NULL 1558s $ : NULL 1558s $ : NULL 1558s $ : NULL 1558s $ : NULL 1558s $ : NULL 1558s $ : NULL 1558s > stopifnot(all(sapply(y, FUN = identical, oMaxSize))) 1558s > 1558s > message("- approximately invariant to chunk size ...") 1558s > - approximately invariant to chunk size ... 1558s maxSize <- sizes[["FUN"]] + sizes[["X"]] / length(X) 1558s > maxSize <- 3.0 * maxSize ## Add a bit of leeway 1558s > options(future.globals.maxSize = maxSize) 1558s > 1558s > for (chunk.size in c(1L, 2L, 5L, structure(10L, ordering = "random"))) { 1558s + y <- future_mapply(FUN = FUN, X, future.chunk.size = chunk.size) 1558s + str(y) 1558s + stopifnot(all(unlist(y) == maxSize)) 1558s + cat(sprintf("maxSize = %g bytes\nfuture.globals.maxSize = %g bytes\n", 1558s + maxSize, getOption("future.globals.maxSize"))) 1558s + stopifnot(getOption("future.globals.maxSize") == maxSize) 1558s + } 1559s num [1:10] 6917 6917 6917 6917 6917 ... 1559s maxSize = 6916.8 bytes 1559s future.globals.maxSize = 6916.8 bytes 1559s num [1:10] 6917 6917 6917 6917 6917 ... 1559s maxSize = 6916.8 bytes 1559s future.globals.maxSize = 6916.8 bytes 1559s num [1:10] 6917 6917 6917 6917 6917 ... 1559s maxSize = 6916.8 bytes 1559s future.globals.maxSize = 6916.8 bytes 1559s num [1:10] 6917 6917 6917 6917 6917 ... 1559s maxSize = 6916.8 bytes 1559s future.globals.maxSize = 6916.8 bytes 1559s > y <- NULL 1559s > options(future.globals.maxSize = oMaxSize) 1559s > 1559s > message("*** future_mapply() - too large ... DONE") 1559s > 1559s *** future_mapply() - too large ... DONE 1559s > 1559s > message("*** future_mapply() - globals exceptions ...") 1559s > 1559s > res <- tryCatch({ 1559s + y <- future_mapply(function(x) x, 1, future.globals = 42) 1559s *** future_mapply() - globals exceptions ... 1559s + }, error = identity) 1559s > stopifnot(inherits(res, "error")) 1559s > 1559s > res <- tryCatch({ 1559s + y <- future_mapply(function(x) x, 1, future.globals = list(1)) 1559s + }, error = identity) 1559s > stopifnot(inherits(res, "error")) 1559s > 1559s > res <- tryCatch({ 1559s + y <- future_mapply(function(x) x, 1, future.globals = "...future.FUN") 1559s + }, error = identity) 1559s > stopifnot(inherits(res, "error")) 1559s > 1559s > ...future.elements_ii <- 42L 1559s > X <- list(function() 2 * ...future.elements_ii) 1559s > res <- tryCatch({ 1559s + y <- future_mapply(FUN = function(f) f(), X) 1559s + }, error = identity) 1559s > stopifnot(inherits(res, "error")) 1559s > 1559s > message("*** future_mapply() - globals exceptions ... DONE") 1559s *** future_mapply() - globals exceptions ... DONE 1559s > 1559s > source("incl/end.R") 1559s > 1559s BEGIN TEST future_mapply.R 1559s 1559s R version 4.3.3 (2024-02-29) -- "Angel Food Cake" 1559s Copyright (C) 2024 The R Foundation for Statistical Computing 1559s Platform: s390x-ibm-linux-gnu (64-bit) 1559s 1559s R is free software and comes with ABSOLUTELY NO WARRANTY. 1559s You are welcome to redistribute it under certain conditions. 1559s Type 'license()' or 'licence()' for distribution details. 1559s 1559s R is a collaborative project with many contributors. 1559s Type 'contributors()' for more information and 1559s 'citation()' on how to cite R or R packages in publications. 1559s 1559s Type 'demo()' for some demos, 'help()' for on-line help, or 1559s 'help.start()' for an HTML browser interface to help. 1559s Type 'q()' to quit R. 1559s 1559s > source("incl/start.R") 1559s Loading required package: future 1559s [00:52:39.586] plan(): Setting new future strategy stack: 1559s [00:52:39.586] List of future strategies: 1559s [00:52:39.586] 1. sequential: 1559s [00:52:39.586] - args: function (..., envir = parent.frame()) 1559s [00:52:39.586] - tweaked: FALSE 1559s [00:52:39.586] - call: future::plan("sequential") 1559s [00:52:39.607] plan(): nbrOfWorkers() = 1 1559s > 1559s > message("*** future_mapply() ...") 1559s *** future_mapply() ... 1559s > 1559s > message("- Parallel RNG truth (for later)...") 1559s > plan(sequential) 1559s - Parallel RNG truth (for later)... 1559s [00:52:39.617] plan(): Setting new future strategy stack: 1559s [00:52:39.617] List of future strategies: 1559s [00:52:39.617] 1. sequential: 1559s [00:52:39.617] - args: function (..., envir = parent.frame()) 1559s [00:52:39.617] - tweaked: FALSE 1559s [00:52:39.617] - call: plan(sequential) 1559s [00:52:39.631] plan(): nbrOfWorkers() = 1 1559s > y_rng_0 <- future_mapply(stats::runif, n = 1:4, max = 2:5, 1559s + MoreArgs = list(min = 1), future.seed = 0xBEEF) 1559s [00:52:39.632] future_mapply() ... 1559s [00:52:39.633] Generating random seeds ... 1559s [00:52:39.634] Generating random seed streams for 4 elements ... 1559s [00:52:39.635] Generating random seed streams for 4 elements ... DONE 1559s [00:52:39.636] Generating random seeds ... DONE 1559s [00:52:39.636] Will set RNG state on exit: 10407, -1319993016, 1571290074, -859112415, -853775137, 1440155893, -732328588 1559s [00:52:39.636] Number of chunks: 1 1559s [00:52:39.637] getGlobalsAndPackagesXApply() ... 1559s [00:52:39.637] - future.globals: TRUE 1559s [00:52:39.638] getGlobalsAndPackages() ... 1559s [00:52:39.638] Searching for globals... 1559s [00:52:39.648] - globals found: [3] ‘FUN’, ‘.Call’, ‘C_runif’ 1559s [00:52:39.648] Searching for globals ... DONE 1559s [00:52:39.648] Resolving globals: FALSE 1559s [00:52:39.650] The total size of the 1 globals is 2.04 KiB (2088 bytes) 1559s [00:52:39.651] The total size of the 1 globals exported for future expression (‘FUN(min = 1)’) is 2.04 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (2.04 KiB of class ‘function’) 1559s [00:52:39.652] - globals: [1] ‘FUN’ 1559s [00:52:39.653] - packages: [1] ‘stats’ 1559s [00:52:39.653] getGlobalsAndPackages() ... DONE 1559s [00:52:39.653] - globals found/used: [n=1] ‘FUN’ 1559s [00:52:39.653] - needed namespaces: [n=1] ‘stats’ 1559s [00:52:39.653] Finding globals ... DONE 1559s [00:52:39.654] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1559s [00:52:39.654] List of 2 1559s [00:52:39.654] $ ...future.FUN:function (n, min = 0, max = 1) 1559s [00:52:39.654] $ MoreArgs :List of 1 1559s [00:52:39.654] ..$ min: num 1 1559s [00:52:39.654] - attr(*, "where")=List of 2 1559s [00:52:39.654] ..$ ...future.FUN: 1559s [00:52:39.654] ..$ MoreArgs : 1559s [00:52:39.654] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1559s [00:52:39.654] - attr(*, "resolved")= logi FALSE 1559s [00:52:39.654] - attr(*, "total_size")= num NA 1559s [00:52:39.666] Packages to be attached in all futures: [n=1] ‘stats’ 1559s [00:52:39.666] getGlobalsAndPackagesXApply() ... DONE 1559s [00:52:39.666] Number of futures (= number of chunks): 1 1559s [00:52:39.667] Launching 1 futures (chunks) ... 1559s [00:52:39.667] Chunk #1 of 1 ... 1559s [00:52:39.667] - Finding globals in '...' for chunk #1 ... 1559s [00:52:39.668] getGlobalsAndPackages() ... 1559s [00:52:39.668] Searching for globals... 1559s [00:52:39.668] 1559s [00:52:39.668] Searching for globals ... DONE 1559s [00:52:39.669] - globals: [0] 1559s [00:52:39.669] getGlobalsAndPackages() ... DONE 1559s [00:52:39.669] + additional globals found: [n=0] 1559s [00:52:39.669] + additional namespaces needed: [n=0] 1559s [00:52:39.669] - Finding globals in '...' for chunk #1 ... DONE 1559s [00:52:39.669] - seeds: [4] 1559s [00:52:39.670] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1559s [00:52:39.670] getGlobalsAndPackages() ... 1559s [00:52:39.670] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1559s [00:52:39.671] Resolving globals: FALSE 1559s [00:52:39.671] The total size of the 5 globals is 2.84 KiB (2912 bytes) 1559s [00:52:39.672] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 2.84 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (2.04 KiB of class ‘function’), ‘...future.elements_ii’ (448 bytes of class ‘list’) and ‘...future.seeds_ii’ (320 bytes of class ‘list’) 1559s [00:52:39.673] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1559s [00:52:39.673] - packages: [1] ‘stats’ 1559s [00:52:39.673] getGlobalsAndPackages() ... DONE 1559s [00:52:39.675] run() for ‘Future’ ... 1559s [00:52:39.675] - state: ‘created’ 1559s [00:52:39.675] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1559s [00:52:39.676] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1559s [00:52:39.676] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1559s [00:52:39.676] - Field: ‘label’ 1559s [00:52:39.676] - Field: ‘local’ 1559s [00:52:39.676] - Field: ‘owner’ 1559s [00:52:39.677] - Field: ‘envir’ 1559s [00:52:39.677] - Field: ‘packages’ 1559s [00:52:39.677] - Field: ‘gc’ 1559s [00:52:39.677] - Field: ‘conditions’ 1559s [00:52:39.677] - Field: ‘expr’ 1559s [00:52:39.677] - Field: ‘uuid’ 1559s [00:52:39.677] - Field: ‘seed’ 1559s [00:52:39.678] - Field: ‘version’ 1559s [00:52:39.678] - Field: ‘result’ 1559s [00:52:39.678] - Field: ‘asynchronous’ 1559s [00:52:39.678] - Field: ‘calls’ 1559s [00:52:39.678] - Field: ‘globals’ 1559s [00:52:39.678] - Field: ‘stdout’ 1559s [00:52:39.678] - Field: ‘earlySignal’ 1559s [00:52:39.678] - Field: ‘lazy’ 1559s [00:52:39.678] - Field: ‘state’ 1559s [00:52:39.679] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1559s [00:52:39.679] - Launch lazy future ... 1559s [00:52:39.680] Packages needed by the future expression (n = 1): ‘stats’ 1559s [00:52:39.680] Packages needed by future strategies (n = 0): 1559s [00:52:39.682] { 1559s [00:52:39.682] { 1559s [00:52:39.682] { 1559s [00:52:39.682] ...future.startTime <- base::Sys.time() 1559s [00:52:39.682] { 1559s [00:52:39.682] { 1559s [00:52:39.682] { 1559s [00:52:39.682] { 1559s [00:52:39.682] base::local({ 1559s [00:52:39.682] has_future <- base::requireNamespace("future", 1559s [00:52:39.682] quietly = TRUE) 1559s [00:52:39.682] if (has_future) { 1559s [00:52:39.682] ns <- base::getNamespace("future") 1559s [00:52:39.682] version <- ns[[".package"]][["version"]] 1559s [00:52:39.682] if (is.null(version)) 1559s [00:52:39.682] version <- utils::packageVersion("future") 1559s [00:52:39.682] } 1559s [00:52:39.682] else { 1559s [00:52:39.682] version <- NULL 1559s [00:52:39.682] } 1559s [00:52:39.682] if (!has_future || version < "1.8.0") { 1559s [00:52:39.682] info <- base::c(r_version = base::gsub("R version ", 1559s [00:52:39.682] "", base::R.version$version.string), 1559s [00:52:39.682] platform = base::sprintf("%s (%s-bit)", 1559s [00:52:39.682] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1559s [00:52:39.682] os = base::paste(base::Sys.info()[base::c("sysname", 1559s [00:52:39.682] "release", "version")], collapse = " "), 1559s [00:52:39.682] hostname = base::Sys.info()[["nodename"]]) 1559s [00:52:39.682] info <- base::sprintf("%s: %s", base::names(info), 1559s [00:52:39.682] info) 1559s [00:52:39.682] info <- base::paste(info, collapse = "; ") 1559s [00:52:39.682] if (!has_future) { 1559s [00:52:39.682] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1559s [00:52:39.682] info) 1559s [00:52:39.682] } 1559s [00:52:39.682] else { 1559s [00:52:39.682] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1559s [00:52:39.682] info, version) 1559s [00:52:39.682] } 1559s [00:52:39.682] base::stop(msg) 1559s [00:52:39.682] } 1559s [00:52:39.682] }) 1559s [00:52:39.682] } 1559s [00:52:39.682] base::local({ 1559s [00:52:39.682] for (pkg in "stats") { 1559s [00:52:39.682] base::loadNamespace(pkg) 1559s [00:52:39.682] base::library(pkg, character.only = TRUE) 1559s [00:52:39.682] } 1559s [00:52:39.682] }) 1559s [00:52:39.682] } 1559s [00:52:39.682] options(future.plan = NULL) 1559s [00:52:39.682] Sys.unsetenv("R_FUTURE_PLAN") 1559s [00:52:39.682] future::plan("default", .cleanup = FALSE, .init = FALSE) 1559s [00:52:39.682] } 1559s [00:52:39.682] ...future.workdir <- getwd() 1559s [00:52:39.682] } 1559s [00:52:39.682] ...future.oldOptions <- base::as.list(base::.Options) 1559s [00:52:39.682] ...future.oldEnvVars <- base::Sys.getenv() 1559s [00:52:39.682] } 1559s [00:52:39.682] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1559s [00:52:39.682] future.globals.maxSize = NULL, future.globals.method = NULL, 1559s [00:52:39.682] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1559s [00:52:39.682] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1559s [00:52:39.682] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1559s [00:52:39.682] future.stdout.windows.reencode = NULL, width = 80L) 1559s [00:52:39.682] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1559s [00:52:39.682] base::names(...future.oldOptions)) 1559s [00:52:39.682] } 1559s [00:52:39.682] if (FALSE) { 1559s [00:52:39.682] } 1559s [00:52:39.682] else { 1559s [00:52:39.682] if (TRUE) { 1559s [00:52:39.682] ...future.stdout <- base::rawConnection(base::raw(0L), 1559s [00:52:39.682] open = "w") 1559s [00:52:39.682] } 1559s [00:52:39.682] else { 1559s [00:52:39.682] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1559s [00:52:39.682] windows = "NUL", "/dev/null"), open = "w") 1559s [00:52:39.682] } 1559s [00:52:39.682] base::sink(...future.stdout, type = "output", split = FALSE) 1559s [00:52:39.682] base::on.exit(if (!base::is.null(...future.stdout)) { 1559s [00:52:39.682] base::sink(type = "output", split = FALSE) 1559s [00:52:39.682] base::close(...future.stdout) 1559s [00:52:39.682] }, add = TRUE) 1559s [00:52:39.682] } 1559s [00:52:39.682] ...future.frame <- base::sys.nframe() 1559s [00:52:39.682] ...future.conditions <- base::list() 1559s [00:52:39.682] ...future.rng <- base::globalenv()$.Random.seed 1559s [00:52:39.682] if (FALSE) { 1559s [00:52:39.682] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1559s [00:52:39.682] "...future.value", "...future.globalenv.names", ".Random.seed") 1559s [00:52:39.682] } 1559s [00:52:39.682] ...future.result <- base::tryCatch({ 1559s [00:52:39.682] base::withCallingHandlers({ 1559s [00:52:39.682] ...future.value <- base::withVisible(base::local({ 1559s [00:52:39.682] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1559s [00:52:39.682] if (!identical(...future.globals.maxSize.org, 1559s [00:52:39.682] ...future.globals.maxSize)) { 1559s [00:52:39.682] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1559s [00:52:39.682] on.exit(options(oopts), add = TRUE) 1559s [00:52:39.682] } 1559s [00:52:39.682] { 1559s [00:52:39.682] ...future.FUN2 <- function(..., ...future.seeds_ii_jj) { 1559s [00:52:39.682] assign(".Random.seed", ...future.seeds_ii_jj, 1559s [00:52:39.682] envir = globalenv(), inherits = FALSE) 1559s [00:52:39.682] ...future.FUN(...) 1559s [00:52:39.682] } 1559s [00:52:39.682] args <- c(list(FUN = ...future.FUN2), ...future.elements_ii, 1559s [00:52:39.682] list(...future.seeds_ii_jj = ...future.seeds_ii), 1559s [00:52:39.682] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1559s [00:52:39.682] USE.NAMES = FALSE) 1559s [00:52:39.682] do.call(mapply, args = args) 1559s [00:52:39.682] } 1559s [00:52:39.682] })) 1559s [00:52:39.682] future::FutureResult(value = ...future.value$value, 1559s [00:52:39.682] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1559s [00:52:39.682] ...future.rng), globalenv = if (FALSE) 1559s [00:52:39.682] list(added = base::setdiff(base::names(base::.GlobalEnv), 1559s [00:52:39.682] ...future.globalenv.names)) 1559s [00:52:39.682] else NULL, started = ...future.startTime, version = "1.8") 1559s [00:52:39.682] }, condition = base::local({ 1559s [00:52:39.682] c <- base::c 1559s [00:52:39.682] inherits <- base::inherits 1559s [00:52:39.682] invokeRestart <- base::invokeRestart 1559s [00:52:39.682] length <- base::length 1559s [00:52:39.682] list <- base::list 1559s [00:52:39.682] seq.int <- base::seq.int 1559s [00:52:39.682] signalCondition <- base::signalCondition 1559s [00:52:39.682] sys.calls <- base::sys.calls 1559s [00:52:39.682] `[[` <- base::`[[` 1559s [00:52:39.682] `+` <- base::`+` 1559s [00:52:39.682] `<<-` <- base::`<<-` 1559s [00:52:39.682] sysCalls <- function(calls = sys.calls(), from = 1L) { 1559s [00:52:39.682] calls[seq.int(from = from + 12L, to = length(calls) - 1559s [00:52:39.682] 3L)] 1559s [00:52:39.682] } 1559s [00:52:39.682] function(cond) { 1559s [00:52:39.682] is_error <- inherits(cond, "error") 1559s [00:52:39.682] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1559s [00:52:39.682] NULL) 1559s [00:52:39.682] if (is_error) { 1559s [00:52:39.682] sessionInformation <- function() { 1559s [00:52:39.682] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1559s [00:52:39.682] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1559s [00:52:39.682] search = base::search(), system = base::Sys.info()) 1559s [00:52:39.682] } 1559s [00:52:39.682] ...future.conditions[[length(...future.conditions) + 1559s [00:52:39.682] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1559s [00:52:39.682] cond$call), session = sessionInformation(), 1559s [00:52:39.682] timestamp = base::Sys.time(), signaled = 0L) 1559s [00:52:39.682] signalCondition(cond) 1559s [00:52:39.682] } 1559s [00:52:39.682] else if (!ignore && TRUE && inherits(cond, c("condition", 1559s [00:52:39.682] "immediateCondition"))) { 1559s [00:52:39.682] signal <- TRUE && inherits(cond, "immediateCondition") 1559s [00:52:39.682] ...future.conditions[[length(...future.conditions) + 1559s [00:52:39.682] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1559s [00:52:39.682] if (TRUE && !signal) { 1559s [00:52:39.682] muffleCondition <- function (cond, pattern = "^muffle") 1559s [00:52:39.682] { 1559s [00:52:39.682] inherits <- base::inherits 1559s [00:52:39.682] invokeRestart <- base::invokeRestart 1559s [00:52:39.682] is.null <- base::is.null 1559s [00:52:39.682] muffled <- FALSE 1559s [00:52:39.682] if (inherits(cond, "message")) { 1559s [00:52:39.682] muffled <- grepl(pattern, "muffleMessage") 1559s [00:52:39.682] if (muffled) 1559s [00:52:39.682] invokeRestart("muffleMessage") 1559s [00:52:39.682] } 1559s [00:52:39.682] else if (inherits(cond, "warning")) { 1559s [00:52:39.682] muffled <- grepl(pattern, "muffleWarning") 1559s [00:52:39.682] if (muffled) 1559s [00:52:39.682] invokeRestart("muffleWarning") 1559s [00:52:39.682] } 1559s [00:52:39.682] else if (inherits(cond, "condition")) { 1559s [00:52:39.682] if (!is.null(pattern)) { 1559s [00:52:39.682] computeRestarts <- base::computeRestarts 1559s [00:52:39.682] grepl <- base::grepl 1559s [00:52:39.682] restarts <- computeRestarts(cond) 1559s [00:52:39.682] for (restart in restarts) { 1559s [00:52:39.682] name <- restart$name 1559s [00:52:39.682] if (is.null(name)) 1559s [00:52:39.682] next 1559s [00:52:39.682] if (!grepl(pattern, name)) 1559s [00:52:39.682] next 1559s [00:52:39.682] invokeRestart(restart) 1559s [00:52:39.682] muffled <- TRUE 1559s [00:52:39.682] break 1559s [00:52:39.682] } 1559s [00:52:39.682] } 1559s [00:52:39.682] } 1559s [00:52:39.682] invisible(muffled) 1559s [00:52:39.682] } 1559s [00:52:39.682] muffleCondition(cond, pattern = "^muffle") 1559s [00:52:39.682] } 1559s [00:52:39.682] } 1559s [00:52:39.682] else { 1559s [00:52:39.682] if (TRUE) { 1559s [00:52:39.682] muffleCondition <- function (cond, pattern = "^muffle") 1559s [00:52:39.682] { 1559s [00:52:39.682] inherits <- base::inherits 1559s [00:52:39.682] invokeRestart <- base::invokeRestart 1559s [00:52:39.682] is.null <- base::is.null 1559s [00:52:39.682] muffled <- FALSE 1559s [00:52:39.682] if (inherits(cond, "message")) { 1559s [00:52:39.682] muffled <- grepl(pattern, "muffleMessage") 1559s [00:52:39.682] if (muffled) 1559s [00:52:39.682] invokeRestart("muffleMessage") 1559s [00:52:39.682] } 1559s [00:52:39.682] else if (inherits(cond, "warning")) { 1559s [00:52:39.682] muffled <- grepl(pattern, "muffleWarning") 1559s [00:52:39.682] if (muffled) 1559s [00:52:39.682] invokeRestart("muffleWarning") 1559s [00:52:39.682] } 1559s [00:52:39.682] else if (inherits(cond, "condition")) { 1559s [00:52:39.682] if (!is.null(pattern)) { 1559s [00:52:39.682] computeRestarts <- base::computeRestarts 1559s [00:52:39.682] grepl <- base::grepl 1559s [00:52:39.682] restarts <- computeRestarts(cond) 1559s [00:52:39.682] for (restart in restarts) { 1559s [00:52:39.682] name <- restart$name 1559s [00:52:39.682] if (is.null(name)) 1559s [00:52:39.682] next 1559s [00:52:39.682] if (!grepl(pattern, name)) 1559s [00:52:39.682] next 1559s [00:52:39.682] invokeRestart(restart) 1559s [00:52:39.682] muffled <- TRUE 1559s [00:52:39.682] break 1559s [00:52:39.682] } 1559s [00:52:39.682] } 1559s [00:52:39.682] } 1559s [00:52:39.682] invisible(muffled) 1559s [00:52:39.682] } 1559s [00:52:39.682] muffleCondition(cond, pattern = "^muffle") 1559s [00:52:39.682] } 1559s [00:52:39.682] } 1559s [00:52:39.682] } 1559s [00:52:39.682] })) 1559s [00:52:39.682] }, error = function(ex) { 1559s [00:52:39.682] base::structure(base::list(value = NULL, visible = NULL, 1559s [00:52:39.682] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1559s [00:52:39.682] ...future.rng), started = ...future.startTime, 1559s [00:52:39.682] finished = Sys.time(), session_uuid = NA_character_, 1559s [00:52:39.682] version = "1.8"), class = "FutureResult") 1559s [00:52:39.682] }, finally = { 1559s [00:52:39.682] if (!identical(...future.workdir, getwd())) 1559s [00:52:39.682] setwd(...future.workdir) 1559s [00:52:39.682] { 1559s [00:52:39.682] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1559s [00:52:39.682] ...future.oldOptions$nwarnings <- NULL 1559s [00:52:39.682] } 1559s [00:52:39.682] base::options(...future.oldOptions) 1559s [00:52:39.682] if (.Platform$OS.type == "windows") { 1559s [00:52:39.682] old_names <- names(...future.oldEnvVars) 1559s [00:52:39.682] envs <- base::Sys.getenv() 1559s [00:52:39.682] names <- names(envs) 1559s [00:52:39.682] common <- intersect(names, old_names) 1559s [00:52:39.682] added <- setdiff(names, old_names) 1559s [00:52:39.682] removed <- setdiff(old_names, names) 1559s [00:52:39.682] changed <- common[...future.oldEnvVars[common] != 1559s [00:52:39.682] envs[common]] 1559s [00:52:39.682] NAMES <- toupper(changed) 1559s [00:52:39.682] args <- list() 1559s [00:52:39.682] for (kk in seq_along(NAMES)) { 1559s [00:52:39.682] name <- changed[[kk]] 1559s [00:52:39.682] NAME <- NAMES[[kk]] 1559s [00:52:39.682] if (name != NAME && is.element(NAME, old_names)) 1559s [00:52:39.682] next 1559s [00:52:39.682] args[[name]] <- ...future.oldEnvVars[[name]] 1559s [00:52:39.682] } 1559s [00:52:39.682] NAMES <- toupper(added) 1559s [00:52:39.682] for (kk in seq_along(NAMES)) { 1559s [00:52:39.682] name <- added[[kk]] 1559s [00:52:39.682] NAME <- NAMES[[kk]] 1559s [00:52:39.682] if (name != NAME && is.element(NAME, old_names)) 1559s [00:52:39.682] next 1559s [00:52:39.682] args[[name]] <- "" 1559s [00:52:39.682] } 1559s [00:52:39.682] NAMES <- toupper(removed) 1559s [00:52:39.682] for (kk in seq_along(NAMES)) { 1559s [00:52:39.682] name <- removed[[kk]] 1559s [00:52:39.682] NAME <- NAMES[[kk]] 1559s [00:52:39.682] if (name != NAME && is.element(NAME, old_names)) 1559s [00:52:39.682] next 1559s [00:52:39.682] args[[name]] <- ...future.oldEnvVars[[name]] 1559s [00:52:39.682] } 1559s [00:52:39.682] if (length(args) > 0) 1559s [00:52:39.682] base::do.call(base::Sys.setenv, args = args) 1559s [00:52:39.682] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1559s [00:52:39.682] } 1559s [00:52:39.682] else { 1559s [00:52:39.682] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1559s [00:52:39.682] } 1559s [00:52:39.682] { 1559s [00:52:39.682] if (base::length(...future.futureOptionsAdded) > 1559s [00:52:39.682] 0L) { 1559s [00:52:39.682] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1559s [00:52:39.682] base::names(opts) <- ...future.futureOptionsAdded 1559s [00:52:39.682] base::options(opts) 1559s [00:52:39.682] } 1559s [00:52:39.682] { 1559s [00:52:39.682] { 1559s [00:52:39.682] base::assign(".Random.seed", c(10407L, -1319993016L, 1559s [00:52:39.682] 1571290074L, -859112415L, -853775137L, 1440155893L, 1559s [00:52:39.682] -732328588L), envir = base::globalenv(), 1559s [00:52:39.682] inherits = FALSE) 1559s [00:52:39.682] NULL 1559s [00:52:39.682] } 1559s [00:52:39.682] options(future.plan = NULL) 1559s [00:52:39.682] if (is.na(NA_character_)) 1559s [00:52:39.682] Sys.unsetenv("R_FUTURE_PLAN") 1559s [00:52:39.682] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1559s [00:52:39.682] future::plan(list(function (..., envir = parent.frame()) 1559s [00:52:39.682] { 1559s [00:52:39.682] future <- SequentialFuture(..., envir = envir) 1559s [00:52:39.682] if (!future$lazy) 1559s [00:52:39.682] future <- run(future) 1559s [00:52:39.682] invisible(future) 1559s [00:52:39.682] }), .cleanup = FALSE, .init = FALSE) 1559s [00:52:39.682] } 1559s [00:52:39.682] } 1559s [00:52:39.682] } 1559s [00:52:39.682] }) 1559s [00:52:39.682] if (TRUE) { 1559s [00:52:39.682] base::sink(type = "output", split = FALSE) 1559s [00:52:39.682] if (TRUE) { 1559s [00:52:39.682] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1559s [00:52:39.682] } 1559s [00:52:39.682] else { 1559s [00:52:39.682] ...future.result["stdout"] <- base::list(NULL) 1559s [00:52:39.682] } 1559s [00:52:39.682] base::close(...future.stdout) 1559s [00:52:39.682] ...future.stdout <- NULL 1559s [00:52:39.682] } 1559s [00:52:39.682] ...future.result$conditions <- ...future.conditions 1559s [00:52:39.682] ...future.result$finished <- base::Sys.time() 1559s [00:52:39.682] ...future.result 1559s [00:52:39.682] } 1559s [00:52:39.686] assign_globals() ... 1559s [00:52:39.686] List of 5 1559s [00:52:39.686] $ ...future.FUN :function (n, min = 0, max = 1) 1559s [00:52:39.686] $ MoreArgs :List of 1 1559s [00:52:39.686] ..$ min: num 1 1559s [00:52:39.686] $ ...future.elements_ii :List of 2 1559s [00:52:39.686] ..$ n :List of 4 1559s [00:52:39.686] .. ..$ : int 1 1559s [00:52:39.686] .. ..$ : int 2 1559s [00:52:39.686] .. ..$ : int 3 1559s [00:52:39.686] .. ..$ : int 4 1559s [00:52:39.686] ..$ max:List of 4 1559s [00:52:39.686] .. ..$ : int 2 1559s [00:52:39.686] .. ..$ : int 3 1559s [00:52:39.686] .. ..$ : int 4 1559s [00:52:39.686] .. ..$ : int 5 1559s [00:52:39.686] $ ...future.seeds_ii :List of 4 1559s [00:52:39.686] ..$ : int [1:7] 10407 1242173061 -1150840343 -834448425 701050094 -1369558043 -650964284 1559s [00:52:39.686] ..$ : int [1:7] 10407 859061261 1088872332 -1371790091 -942478768 -889560561 1393381402 1559s [00:52:39.686] ..$ : int [1:7] 10407 -1977952646 362645338 -1927542548 -742448269 -2030870718 1472975712 1559s [00:52:39.686] ..$ : int [1:7] 10407 -781199300 -1470244364 -1435938985 -1154922760 795337516 2089908040 1559s [00:52:39.686] $ ...future.globals.maxSize: NULL 1559s [00:52:39.686] - attr(*, "where")=List of 5 1559s [00:52:39.686] ..$ ...future.FUN : 1559s [00:52:39.686] ..$ MoreArgs : 1559s [00:52:39.686] ..$ ...future.elements_ii : 1559s [00:52:39.686] ..$ ...future.seeds_ii : 1559s [00:52:39.686] ..$ ...future.globals.maxSize: 1559s [00:52:39.686] - attr(*, "resolved")= logi FALSE 1559s [00:52:39.686] - attr(*, "total_size")= num 2912 1559s [00:52:39.686] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1559s [00:52:39.686] - attr(*, "already-done")= logi TRUE 1559s [00:52:39.700] - copied ‘...future.FUN’ to environment 1559s [00:52:39.700] - copied ‘MoreArgs’ to environment 1559s [00:52:39.700] - copied ‘...future.elements_ii’ to environment 1559s [00:52:39.700] - copied ‘...future.seeds_ii’ to environment 1559s [00:52:39.700] - copied ‘...future.globals.maxSize’ to environment 1559s [00:52:39.700] assign_globals() ... done 1559s [00:52:39.701] plan(): Setting new future strategy stack: 1559s [00:52:39.701] List of future strategies: 1559s [00:52:39.701] 1. sequential: 1559s [00:52:39.701] - args: function (..., envir = parent.frame()) 1559s [00:52:39.701] - tweaked: FALSE 1559s [00:52:39.701] - call: NULL 1559s [00:52:39.702] plan(): nbrOfWorkers() = 1 1559s [00:52:39.704] plan(): Setting new future strategy stack: 1559s [00:52:39.704] List of future strategies: 1559s [00:52:39.704] 1. sequential: 1559s [00:52:39.704] - args: function (..., envir = parent.frame()) 1559s [00:52:39.704] - tweaked: FALSE 1559s [00:52:39.704] - call: plan(sequential) 1559s [00:52:39.705] plan(): nbrOfWorkers() = 1 1559s [00:52:39.705] SequentialFuture started (and completed) 1559s [00:52:39.706] - Launch lazy future ... done 1559s [00:52:39.706] run() for ‘SequentialFuture’ ... done 1559s [00:52:39.706] Created future: 1559s [00:52:39.706] SequentialFuture: 1559s [00:52:39.706] Label: ‘future_mapply-1’ 1559s [00:52:39.706] Expression: 1559s [00:52:39.706] { 1559s [00:52:39.706] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1559s [00:52:39.706] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1559s [00:52:39.706] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1559s [00:52:39.706] on.exit(options(oopts), add = TRUE) 1559s [00:52:39.706] } 1559s [00:52:39.706] { 1559s [00:52:39.706] ...future.FUN2 <- function(..., ...future.seeds_ii_jj) { 1559s [00:52:39.706] assign(".Random.seed", ...future.seeds_ii_jj, envir = globalenv(), 1559s [00:52:39.706] inherits = FALSE) 1559s [00:52:39.706] ...future.FUN(...) 1559s [00:52:39.706] } 1559s [00:52:39.706] args <- c(list(FUN = ...future.FUN2), ...future.elements_ii, 1559s [00:52:39.706] list(...future.seeds_ii_jj = ...future.seeds_ii), 1559s [00:52:39.706] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1559s [00:52:39.706] do.call(mapply, args = args) 1559s [00:52:39.706] } 1559s [00:52:39.706] } 1559s [00:52:39.706] Lazy evaluation: FALSE 1559s [00:52:39.706] Asynchronous evaluation: FALSE 1559s [00:52:39.706] Local evaluation: TRUE 1559s [00:52:39.706] Environment: R_GlobalEnv 1559s [00:52:39.706] Capture standard output: TRUE 1559s [00:52:39.706] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1559s [00:52:39.706] Globals: 5 objects totaling 2.84 KiB (function ‘...future.FUN’ of 2.04 KiB, list ‘MoreArgs’ of 56 bytes, list ‘...future.elements_ii’ of 448 bytes, list ‘...future.seeds_ii’ of 320 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1559s [00:52:39.706] Packages: 1 packages (‘stats’) 1559s [00:52:39.706] L'Ecuyer-CMRG RNG seed: (seed = NULL) 1559s [00:52:39.706] Resolved: TRUE 1559s [00:52:39.706] Value: 280 bytes of class ‘list’ 1559s [00:52:39.706] Early signaling: FALSE 1559s [00:52:39.706] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1559s [00:52:39.706] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1559s [00:52:39.709] Chunk #1 of 1 ... DONE 1559s [00:52:39.709] Launching 1 futures (chunks) ... DONE 1559s [00:52:39.709] Resolving 1 futures (chunks) ... 1559s [00:52:39.710] resolve() on list ... 1559s [00:52:39.710] recursive: 0 1559s [00:52:39.711] length: 1 1559s [00:52:39.711] 1559s [00:52:39.711] resolved() for ‘SequentialFuture’ ... 1559s [00:52:39.712] - state: ‘finished’ 1559s [00:52:39.712] - run: TRUE 1559s [00:52:39.713] - result: ‘FutureResult’ 1559s [00:52:39.713] resolved() for ‘SequentialFuture’ ... done 1559s [00:52:39.713] Future #1 1559s [00:52:39.714] signalConditionsASAP(SequentialFuture, pos=1) ... 1559s [00:52:39.714] - nx: 1 1559s [00:52:39.715] - relay: TRUE 1559s [00:52:39.715] - stdout: TRUE 1559s [00:52:39.715] - signal: TRUE 1559s [00:52:39.715] - resignal: FALSE 1559s [00:52:39.716] - force: TRUE 1559s [00:52:39.716] - relayed: [n=1] FALSE 1559s [00:52:39.716] - queued futures: [n=1] FALSE 1559s [00:52:39.716] - until=1 1559s [00:52:39.717] - relaying element #1 1559s [00:52:39.721] - relayed: [n=1] TRUE 1559s [00:52:39.721] - queued futures: [n=1] TRUE 1559s [00:52:39.721] signalConditionsASAP(SequentialFuture, pos=1) ... done 1559s [00:52:39.722] length: 0 (resolved future 1) 1559s [00:52:39.722] Relaying remaining futures 1559s [00:52:39.722] signalConditionsASAP(NULL, pos=0) ... 1559s [00:52:39.723] - nx: 1 1559s [00:52:39.723] - relay: TRUE 1559s [00:52:39.723] - stdout: TRUE 1559s [00:52:39.723] - signal: TRUE 1559s [00:52:39.724] - resignal: FALSE 1559s [00:52:39.725] - force: TRUE 1559s [00:52:39.725] - relayed: [n=1] TRUE 1559s [00:52:39.725] - queued futures: [n=1] TRUE 1559s - flush all 1559s [00:52:39.726] - relayed: [n=1] TRUE 1559s [00:52:39.726] - queued futures: [n=1] TRUE 1559s [00:52:39.726] signalConditionsASAP(NULL, pos=0) ... done 1559s [00:52:39.727] resolve() on list ... DONE 1559s [00:52:39.727] - Number of value chunks collected: 1 1559s [00:52:39.727] Resolving 1 futures (chunks) ... DONE 1559s [00:52:39.728] Reducing values from 1 chunks ... 1559s [00:52:39.728] - Number of values collected after concatenation: 4 1559s [00:52:39.728] - Number of values expected: 4 1559s [00:52:39.729] Reducing values from 1 chunks ... DONE 1559s [00:52:39.729] future_mapply() ... DONE 1559s > print(y_rng_0) 1559s [[1]] 1559s [1] 1.752502 1559s 1559s [[2]] 1559s [1] 2.765950 2.044156 1559s 1559s [[3]] 1559s [1] 1.419503 3.529684 1.023802 1559s 1559s [[4]] 1559s [1] 4.494280 3.546145 1.402837 4.295444 1559s 1559s > 1559s > for (strategy in supportedStrategies()) { 1559s + message(sprintf("*** strategy = %s ...", sQuote(strategy))) 1559s + plan(strategy) 1559s + 1559s + message("- From example(mapply) ...") 1559s + y0 <- mapply(rep, 1:4, 4:1) 1559s + y1 <- future_mapply(rep, 1:4, 4:1) 1559s + stopifnot(identical(y1, y0)) 1559s + y2 <- future_mapply("rep", 1:4, 4:1) 1559s + stopifnot(identical(y2, y0)) 1559s + 1559s + y0 <- mapply(rep, times = 1:4, x = 4:1) 1559s + y1 <- future_mapply(rep, times = 1:4, x = 4:1) 1559s + stopifnot(identical(y1, y0)) 1559s + 1559s + y0 <- mapply(rep, times = 1:4, MoreArgs = list(x = 42)) 1559s + y1 <- future_mapply(rep, times = 1:4, MoreArgs = list(x = 42)) 1559s + stopifnot(identical(y1, y0)) 1559s + 1559s + y0 <- mapply(function(x, y) seq_len(x) + y, 1559s + c(a = 1, b = 2, c = 3), # names from first 1559s + c(A = 10, B = 0, C = -10)) 1559s + y1 <- future_mapply(function(x, y) seq_len(x) + y, 1559s + c(a = 1, b = 2, c = 3), # names from first 1559s + c(A = 10, B = 0, C = -10)) 1559s + stopifnot(identical(y1, y0)) 1559s + 1559s + message("- future_.mapply()") 1559s + dots <- list(c(a = 1, b = 2, c = 3), # names from first 1559s + c(A = 10, B = 0, C = -10)) 1559s + y2 <- .mapply(function(x, y) seq_len(x) + y, dots = dots, MoreArgs = list()) 1559s + names(y0) <- NULL ## .mapply() don't set names 1559s + stopifnot(all.equal(y2, y0)) 1559s + y3 <- future_.mapply(function(x, y) seq_len(x) + y, dots = dots, MoreArgs = list()) 1559s + stopifnot(all.equal(y3, y2)) 1559s + 1559s + word <- function(C, k) paste(rep.int(C, k), collapse = "") 1559s + for (chunk.size in list(1L, structure(2L, ordering = "random"), structure(3L, ordering = 5:1))) { 1559s + y0 <- mapply(word, LETTERS[1:5], 5:1, SIMPLIFY = FALSE) 1559s + y1 <- future_mapply(word, LETTERS[1:5], 5:1, SIMPLIFY = FALSE, future.chunk.size = chunk.size) 1559s + stopifnot(identical(y1, y0)) 1559s + 1559s + dots <- list(LETTERS[1:5], 5:1) 1559s + MoreArgs <- list() 1559s + y2 <- .mapply(word, dots = dots, MoreArgs = list()) 1559s + names(y0) <- NULL ## .mapply() don't set names 1559s + stopifnot(all.equal(y2, y0)) 1559s + y3 <- future_.mapply(word, dots = dots, MoreArgs = list()) 1559s + stopifnot(all.equal(y3, y2)) 1559s + } 1559s + 1559s + message("- Subsetting (Issue #17) ...") 1559s + X <- as.Date("2018-06-01") 1559s + y0 <- mapply(FUN = identity, X, SIMPLIFY = FALSE) 1559s + y1 <- future_mapply(FUN = identity, X, SIMPLIFY = FALSE) 1559s + stopifnot(identical(y1, y0)) 1559s + 1559s + dots <- list(X) 1559s + y2 <- .mapply(FUN = identity, dots = dots, MoreArgs = MoreArgs) 1559s + stopifnot(identical(y2, y0)) 1559s + y3 <- future_.mapply(FUN = identity, dots = dots, MoreArgs = MoreArgs) 1559s + stopifnot(identical(y3, y2)) 1559s + 1559s + message("- Non-recycling of MoreArgs (Issue #51) ...") 1559s + y0 <- base::mapply( 1559s + function(x, y) y, 1559s + x = 1:2, MoreArgs = list(y = 3:4) 1559s + ) 1559s + y1 <- future.apply::future_mapply( 1559s + function(x, y) y, 1559s + x = 1:2, MoreArgs = list(y = 3:4), 1559s + future.seed = FALSE 1559s + ) 1559s + stopifnot(identical(y1, y0)) 1559s + y2 <- future.apply::future_mapply( 1559s + function(x, y) y, 1559s + x = 1:2, MoreArgs = list(y = 3:4), 1559s + future.seed = TRUE 1559s + ) 1559s + stopifnot(identical(y2, y0)) 1559s + 1559s + dots <- list(x = 1:2) 1559s + MoreArgs <- list(y = 3:4) 1559s + y3 <- .mapply(function(x, y) y, dots = dots, MoreArgs = MoreArgs) 1559s + y4 <- future_.mapply(function(x, y) y, dots = dots, MoreArgs = MoreArgs) 1559s + stopifnot(identical(y4, y3)) 1559s + 1559s + message("- Recycle arguments to same length ...") 1559s + y0 <- mapply(rep, 1:4, 2:1) 1559s + y1 <- future_mapply(rep, 1:4, 2:1) 1559s + stopifnot(identical(y1, y0)) 1559s + 1559s + 1559s + message("- Parallel RNG ...") 1559s + y_rng_1 <- future_mapply(stats::runif, n = 1:4, max = 2:5, 1559s + MoreArgs = list(min = 1), future.seed = 0xBEEF) 1559s + print(y_rng_1) 1559s + stopifnot(all.equal(y_rng_1, y_rng_0)) 1559s + 1559s + message("- future_Map() ...") 1559s + xs <- replicate(5, stats::runif(10), simplify = FALSE) 1559s + ws <- replicate(5, stats::rpois(10, 5) + 1, simplify = FALSE) 1559s + y0 <- Map(weighted.mean, xs, ws) 1559s + y1 <- future_Map(stats::weighted.mean, xs, ws) 1559s + stopifnot(all.equal(y1, y0)) 1559s + 1559s + message("- future_mapply() - 'max-or-0-if' recycling rule ...") 1559s + ## R (>= 4.2.0): mapply() & Map() follow usual "max-or-0-if" recycling rule 1559s + ## and keeps returning a named list in the "empty" case. 1559s + 1559s + truth <- list() 1559s + if (getRversion() >= "4.2.0") { 1559s + y0 <- mapply(`+`, 1:3, NULL) 1559s + stopifnot(identical(y0, truth)) 1559s + } 1559s + y <- future_mapply(`+`, 1:3, NULL) 1559s + stopifnot(identical(y, truth)) 1559s + 1559s + truth <- setNames(list(), character()) 1559s + if (getRversion() >= "4.2.0") { 1559s + y0 <- mapply(paste, character(), NULL) 1559s + stopifnot(identical(y0, truth)) 1559s + } 1559s + y <- future_mapply(paste, character(), NULL) 1559s + stopifnot(identical(y, truth)) 1559s + 1559s + if (getRversion() >= "4.2.0") { 1559s + y0 <- mapply(paste, character(), letters) 1559s + stopifnot(identical(y0, truth)) 1559s + } 1559s + y <- future_mapply(paste, character(), letters) 1559s + stopifnot(identical(y, truth)) 1559s + 1559s + if (getRversion() >= "4.2.0") { 1559s + y0 <- mapply(paste, "A", character()) 1559s + stopifnot(identical(y0, truth)) 1559s + } 1559s + y <- future_mapply(paste, "A", character()) 1559s + stopifnot(identical(y, truth)) 1559s + 1559s + if (getRversion() >= "4.2.0") { 1559s + y0 <- mapply(paste, character(), letters) 1559s + stopifnot(identical(y0, truth)) 1559s + } 1559s + y <- future_mapply(paste, character(), letters) 1559s + stopifnot(identical(y, truth)) 1559s + 1559s + if (getRversion() >= "4.2.0") { 1559s + y0 <- mapply(paste, character(), NULL) 1559s + stopifnot(identical(y0, truth)) 1559s + } 1559s + y <- future_mapply(paste, character(), NULL) 1559s + stopifnot(identical(y, truth)) 1559s + 1559s + if (getRversion() >= "4.2.0") { 1559s + y0 <- mapply(paste, character(), letters) 1559s + stopifnot(identical(y0, truth)) 1559s + } 1559s + y <- future_mapply(paste, character(), letters) 1559s + stopifnot(identical(y, truth)) 1559s + 1559s + if (getRversion() >= "4.2.0") { 1559s + y0 <- mapply(paste, "A", character()) 1559s + stopifnot(identical(y0, truth)) 1559s + } 1559s + y <- future_mapply(paste, "A", character()) 1559s + stopifnot(identical(y, truth)) 1559s + 1559s + if (getRversion() >= "4.2.0") { 1559s + y0 <- mapply(paste, character(), letters) 1559s + stopifnot(identical(y0, truth)) 1559s + } 1559s + y <- future_mapply(paste, character(), letters) 1559s + stopifnot(identical(y, truth)) 1559s + 1559s + ## Gives an error in R-devel (2021-11-26 r81252) 1559s + if (getRversion() >= "4.2.0" && FALSE) { 1559s + y0 <- mapply(paste, c(a = "A"), character()) 1559s + stopifnot(identical(y0, truth)) 1559s + } 1559s + y <- future_mapply(paste, c(a = "A"), character()) 1559s + stopifnot(identical(y, truth)) 1559s + 1559s + ## R (>= 4.2.0): Map() now recycles similar to basic Ops: 1559s + truth <- as.list(1 + 1:3) 1559s + if (getRversion() >= "4.2.0") { 1559s + y0 <- Map(`+`, 1, 1:3) 1559s + stopifnot(identical(y0, truth)) 1559s + } 1559s + y <- future_Map(`+`, 1, 1:3) 1559s + stopifnot(identical(y, truth)) 1559s + 1559s + truth <- as.list(numeric() + 1:3) 1559s + if (getRversion() >= "4.2.0") { 1559s + y0 <- Map(`+`, numeric(), 1:3) 1559s + stopifnot(identical(y0, truth)) 1559s + } 1559s + y <- future_Map(`+`, numeric(), 1:3) 1559s + stopifnot(identical(y, truth)) 1559s + 1559s + message("- future_mapply(x, ...) where x[[i]] subsets via S3 method ...") 1559s + x <- structure(list(a = 1, b = 2), class = "Foo") 1559s + `[[.Foo` <- function(x, ...) 0 1559s + y0 <- mapply(x, FUN = identity) 1559s + stopifnot(identical(y0, c(a = 0, b = 0))) 1559s + y1 <- future_mapply(x, FUN = identity) 1559s + if (getOption("future.apply.chunkWith", "[[") == "[") { 1559s + stopifnot(identical(y1, unlist(x))) 1559s + } else { 1559s + stopifnot(identical(y1, y0)) 1559s + } 1559s + 1559s + plan(sequential) 1559s + message(sprintf("*** strategy = %s ... done", sQuote(strategy))) 1559s + } ## for (strategy in ...) 1560s *** strategy = ‘sequential’ ... 1560s [00:52:40.059] plan(): Setting new future strategy stack: 1560s [00:52:40.060] List of future strategies: 1560s [00:52:40.060] 1. sequential: 1560s [00:52:40.060] - args: function (..., envir = parent.frame()) 1560s [00:52:40.060] - tweaked: FALSE 1560s [00:52:40.060] - call: plan(strategy) 1560s [00:52:40.061] plan(): nbrOfWorkers() = 1 1560s - From example(mapply) ... 1560s [00:52:40.062] future_mapply() ... 1560s [00:52:40.062] Number of chunks: 1 1560s [00:52:40.062] getGlobalsAndPackagesXApply() ... 1560s [00:52:40.062] - future.globals: TRUE 1560s [00:52:40.063] getGlobalsAndPackages() ... 1560s [00:52:40.063] Searching for globals... 1560s [00:52:40.064] - globals found: [1] ‘FUN’ 1560s [00:52:40.064] Searching for globals ... DONE 1560s [00:52:40.064] Resolving globals: FALSE 1560s [00:52:40.065] The total size of the 1 globals is 56 bytes (56 bytes) 1560s [00:52:40.066] The total size of the 1 globals exported for future expression (‘FUN()’) is 56 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (56 bytes of class ‘function’) 1560s [00:52:40.066] - globals: [1] ‘FUN’ 1560s [00:52:40.066] 1560s [00:52:40.066] getGlobalsAndPackages() ... DONE 1560s [00:52:40.066] - globals found/used: [n=1] ‘FUN’ 1560s [00:52:40.066] - needed namespaces: [n=0] 1560s [00:52:40.067] Finding globals ... DONE 1560s [00:52:40.067] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1560s [00:52:40.067] List of 2 1560s [00:52:40.067] $ ...future.FUN:function (x, ...) 1560s [00:52:40.067] $ MoreArgs : NULL 1560s [00:52:40.067] - attr(*, "where")=List of 2 1560s [00:52:40.067] ..$ ...future.FUN: 1560s [00:52:40.067] ..$ MoreArgs : 1560s [00:52:40.067] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1560s [00:52:40.067] - attr(*, "resolved")= logi FALSE 1560s [00:52:40.067] - attr(*, "total_size")= num NA 1560s [00:52:40.074] Packages to be attached in all futures: [n=0] 1560s [00:52:40.074] getGlobalsAndPackagesXApply() ... DONE 1560s [00:52:40.075] Number of futures (= number of chunks): 1 1560s [00:52:40.075] Launching 1 futures (chunks) ... 1560s [00:52:40.075] Chunk #1 of 1 ... 1560s [00:52:40.076] - Finding globals in '...' for chunk #1 ... 1560s [00:52:40.076] getGlobalsAndPackages() ... 1560s [00:52:40.076] Searching for globals... 1560s [00:52:40.077] 1560s [00:52:40.077] Searching for globals ... DONE 1560s [00:52:40.077] - globals: [0] 1560s [00:52:40.077] getGlobalsAndPackages() ... DONE 1560s [00:52:40.078] + additional globals found: [n=0] 1560s [00:52:40.078] + additional namespaces needed: [n=0] 1560s [00:52:40.078] - Finding globals in '...' for chunk #1 ... DONE 1560s [00:52:40.078] - seeds: 1560s [00:52:40.078] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.078] getGlobalsAndPackages() ... 1560s [00:52:40.078] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.078] Resolving globals: FALSE 1560s [00:52:40.080] The total size of the 5 globals is 504 bytes (504 bytes) 1560s [00:52:40.081] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 504 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.elements_ii’ (448 bytes of class ‘list’), ‘...future.FUN’ (56 bytes of class ‘function’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1560s [00:52:40.081] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.081] 1560s [00:52:40.081] getGlobalsAndPackages() ... DONE 1560s [00:52:40.082] run() for ‘Future’ ... 1560s [00:52:40.082] - state: ‘created’ 1560s [00:52:40.082] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1560s [00:52:40.083] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1560s [00:52:40.083] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1560s [00:52:40.084] - Field: ‘label’ 1560s [00:52:40.084] - Field: ‘local’ 1560s [00:52:40.084] - Field: ‘owner’ 1560s [00:52:40.085] - Field: ‘envir’ 1560s [00:52:40.085] - Field: ‘packages’ 1560s [00:52:40.085] - Field: ‘gc’ 1560s [00:52:40.086] - Field: ‘conditions’ 1560s [00:52:40.086] - Field: ‘expr’ 1560s [00:52:40.087] - Field: ‘uuid’ 1560s [00:52:40.087] - Field: ‘seed’ 1560s [00:52:40.087] - Field: ‘version’ 1560s [00:52:40.088] - Field: ‘result’ 1560s [00:52:40.088] - Field: ‘asynchronous’ 1560s [00:52:40.088] - Field: ‘calls’ 1560s [00:52:40.089] - Field: ‘globals’ 1560s [00:52:40.089] - Field: ‘stdout’ 1560s [00:52:40.090] - Field: ‘earlySignal’ 1560s [00:52:40.090] - Field: ‘lazy’ 1560s [00:52:40.090] - Field: ‘state’ 1560s [00:52:40.090] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1560s [00:52:40.091] - Launch lazy future ... 1560s [00:52:40.091] Packages needed by the future expression (n = 0): 1560s [00:52:40.091] Packages needed by future strategies (n = 0): 1560s [00:52:40.092] { 1560s [00:52:40.092] { 1560s [00:52:40.092] { 1560s [00:52:40.092] ...future.startTime <- base::Sys.time() 1560s [00:52:40.092] { 1560s [00:52:40.092] { 1560s [00:52:40.092] { 1560s [00:52:40.092] base::local({ 1560s [00:52:40.092] has_future <- base::requireNamespace("future", 1560s [00:52:40.092] quietly = TRUE) 1560s [00:52:40.092] if (has_future) { 1560s [00:52:40.092] ns <- base::getNamespace("future") 1560s [00:52:40.092] version <- ns[[".package"]][["version"]] 1560s [00:52:40.092] if (is.null(version)) 1560s [00:52:40.092] version <- utils::packageVersion("future") 1560s [00:52:40.092] } 1560s [00:52:40.092] else { 1560s [00:52:40.092] version <- NULL 1560s [00:52:40.092] } 1560s [00:52:40.092] if (!has_future || version < "1.8.0") { 1560s [00:52:40.092] info <- base::c(r_version = base::gsub("R version ", 1560s [00:52:40.092] "", base::R.version$version.string), 1560s [00:52:40.092] platform = base::sprintf("%s (%s-bit)", 1560s [00:52:40.092] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1560s [00:52:40.092] os = base::paste(base::Sys.info()[base::c("sysname", 1560s [00:52:40.092] "release", "version")], collapse = " "), 1560s [00:52:40.092] hostname = base::Sys.info()[["nodename"]]) 1560s [00:52:40.092] info <- base::sprintf("%s: %s", base::names(info), 1560s [00:52:40.092] info) 1560s [00:52:40.092] info <- base::paste(info, collapse = "; ") 1560s [00:52:40.092] if (!has_future) { 1560s [00:52:40.092] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1560s [00:52:40.092] info) 1560s [00:52:40.092] } 1560s [00:52:40.092] else { 1560s [00:52:40.092] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1560s [00:52:40.092] info, version) 1560s [00:52:40.092] } 1560s [00:52:40.092] base::stop(msg) 1560s [00:52:40.092] } 1560s [00:52:40.092] }) 1560s [00:52:40.092] } 1560s [00:52:40.092] options(future.plan = NULL) 1560s [00:52:40.092] Sys.unsetenv("R_FUTURE_PLAN") 1560s [00:52:40.092] future::plan("default", .cleanup = FALSE, .init = FALSE) 1560s [00:52:40.092] } 1560s [00:52:40.092] ...future.workdir <- getwd() 1560s [00:52:40.092] } 1560s [00:52:40.092] ...future.oldOptions <- base::as.list(base::.Options) 1560s [00:52:40.092] ...future.oldEnvVars <- base::Sys.getenv() 1560s [00:52:40.092] } 1560s [00:52:40.092] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1560s [00:52:40.092] future.globals.maxSize = NULL, future.globals.method = NULL, 1560s [00:52:40.092] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1560s [00:52:40.092] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1560s [00:52:40.092] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1560s [00:52:40.092] future.stdout.windows.reencode = NULL, width = 80L) 1560s [00:52:40.092] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1560s [00:52:40.092] base::names(...future.oldOptions)) 1560s [00:52:40.092] } 1560s [00:52:40.092] if (FALSE) { 1560s [00:52:40.092] } 1560s [00:52:40.092] else { 1560s [00:52:40.092] if (TRUE) { 1560s [00:52:40.092] ...future.stdout <- base::rawConnection(base::raw(0L), 1560s [00:52:40.092] open = "w") 1560s [00:52:40.092] } 1560s [00:52:40.092] else { 1560s [00:52:40.092] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1560s [00:52:40.092] windows = "NUL", "/dev/null"), open = "w") 1560s [00:52:40.092] } 1560s [00:52:40.092] base::sink(...future.stdout, type = "output", split = FALSE) 1560s [00:52:40.092] base::on.exit(if (!base::is.null(...future.stdout)) { 1560s [00:52:40.092] base::sink(type = "output", split = FALSE) 1560s [00:52:40.092] base::close(...future.stdout) 1560s [00:52:40.092] }, add = TRUE) 1560s [00:52:40.092] } 1560s [00:52:40.092] ...future.frame <- base::sys.nframe() 1560s [00:52:40.092] ...future.conditions <- base::list() 1560s [00:52:40.092] ...future.rng <- base::globalenv()$.Random.seed 1560s [00:52:40.092] if (FALSE) { 1560s [00:52:40.092] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1560s [00:52:40.092] "...future.value", "...future.globalenv.names", ".Random.seed") 1560s [00:52:40.092] } 1560s [00:52:40.092] ...future.result <- base::tryCatch({ 1560s [00:52:40.092] base::withCallingHandlers({ 1560s [00:52:40.092] ...future.value <- base::withVisible(base::local({ 1560s [00:52:40.092] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1560s [00:52:40.092] if (!identical(...future.globals.maxSize.org, 1560s [00:52:40.092] ...future.globals.maxSize)) { 1560s [00:52:40.092] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1560s [00:52:40.092] on.exit(options(oopts), add = TRUE) 1560s [00:52:40.092] } 1560s [00:52:40.092] { 1560s [00:52:40.092] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1560s [00:52:40.092] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1560s [00:52:40.092] USE.NAMES = FALSE) 1560s [00:52:40.092] do.call(mapply, args = args) 1560s [00:52:40.092] } 1560s [00:52:40.092] })) 1560s [00:52:40.092] future::FutureResult(value = ...future.value$value, 1560s [00:52:40.092] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1560s [00:52:40.092] ...future.rng), globalenv = if (FALSE) 1560s [00:52:40.092] list(added = base::setdiff(base::names(base::.GlobalEnv), 1560s [00:52:40.092] ...future.globalenv.names)) 1560s [00:52:40.092] else NULL, started = ...future.startTime, version = "1.8") 1560s [00:52:40.092] }, condition = base::local({ 1560s [00:52:40.092] c <- base::c 1560s [00:52:40.092] inherits <- base::inherits 1560s [00:52:40.092] invokeRestart <- base::invokeRestart 1560s [00:52:40.092] length <- base::length 1560s [00:52:40.092] list <- base::list 1560s [00:52:40.092] seq.int <- base::seq.int 1560s [00:52:40.092] signalCondition <- base::signalCondition 1560s [00:52:40.092] sys.calls <- base::sys.calls 1560s [00:52:40.092] `[[` <- base::`[[` 1560s [00:52:40.092] `+` <- base::`+` 1560s [00:52:40.092] `<<-` <- base::`<<-` 1560s [00:52:40.092] sysCalls <- function(calls = sys.calls(), from = 1L) { 1560s [00:52:40.092] calls[seq.int(from = from + 12L, to = length(calls) - 1560s [00:52:40.092] 3L)] 1560s [00:52:40.092] } 1560s [00:52:40.092] function(cond) { 1560s [00:52:40.092] is_error <- inherits(cond, "error") 1560s [00:52:40.092] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1560s [00:52:40.092] NULL) 1560s [00:52:40.092] if (is_error) { 1560s [00:52:40.092] sessionInformation <- function() { 1560s [00:52:40.092] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1560s [00:52:40.092] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1560s [00:52:40.092] search = base::search(), system = base::Sys.info()) 1560s [00:52:40.092] } 1560s [00:52:40.092] ...future.conditions[[length(...future.conditions) + 1560s [00:52:40.092] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1560s [00:52:40.092] cond$call), session = sessionInformation(), 1560s [00:52:40.092] timestamp = base::Sys.time(), signaled = 0L) 1560s [00:52:40.092] signalCondition(cond) 1560s [00:52:40.092] } 1560s [00:52:40.092] else if (!ignore && TRUE && inherits(cond, c("condition", 1560s [00:52:40.092] "immediateCondition"))) { 1560s [00:52:40.092] signal <- TRUE && inherits(cond, "immediateCondition") 1560s [00:52:40.092] ...future.conditions[[length(...future.conditions) + 1560s [00:52:40.092] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1560s [00:52:40.092] if (TRUE && !signal) { 1560s [00:52:40.092] muffleCondition <- function (cond, pattern = "^muffle") 1560s [00:52:40.092] { 1560s [00:52:40.092] inherits <- base::inherits 1560s [00:52:40.092] invokeRestart <- base::invokeRestart 1560s [00:52:40.092] is.null <- base::is.null 1560s [00:52:40.092] muffled <- FALSE 1560s [00:52:40.092] if (inherits(cond, "message")) { 1560s [00:52:40.092] muffled <- grepl(pattern, "muffleMessage") 1560s [00:52:40.092] if (muffled) 1560s [00:52:40.092] invokeRestart("muffleMessage") 1560s [00:52:40.092] } 1560s [00:52:40.092] else if (inherits(cond, "warning")) { 1560s [00:52:40.092] muffled <- grepl(pattern, "muffleWarning") 1560s [00:52:40.092] if (muffled) 1560s [00:52:40.092] invokeRestart("muffleWarning") 1560s [00:52:40.092] } 1560s [00:52:40.092] else if (inherits(cond, "condition")) { 1560s [00:52:40.092] if (!is.null(pattern)) { 1560s [00:52:40.092] computeRestarts <- base::computeRestarts 1560s [00:52:40.092] grepl <- base::grepl 1560s [00:52:40.092] restarts <- computeRestarts(cond) 1560s [00:52:40.092] for (restart in restarts) { 1560s [00:52:40.092] name <- restart$name 1560s [00:52:40.092] if (is.null(name)) 1560s [00:52:40.092] next 1560s [00:52:40.092] if (!grepl(pattern, name)) 1560s [00:52:40.092] next 1560s [00:52:40.092] invokeRestart(restart) 1560s [00:52:40.092] muffled <- TRUE 1560s [00:52:40.092] break 1560s [00:52:40.092] } 1560s [00:52:40.092] } 1560s [00:52:40.092] } 1560s [00:52:40.092] invisible(muffled) 1560s [00:52:40.092] } 1560s [00:52:40.092] muffleCondition(cond, pattern = "^muffle") 1560s [00:52:40.092] } 1560s [00:52:40.092] } 1560s [00:52:40.092] else { 1560s [00:52:40.092] if (TRUE) { 1560s [00:52:40.092] muffleCondition <- function (cond, pattern = "^muffle") 1560s [00:52:40.092] { 1560s [00:52:40.092] inherits <- base::inherits 1560s [00:52:40.092] invokeRestart <- base::invokeRestart 1560s [00:52:40.092] is.null <- base::is.null 1560s [00:52:40.092] muffled <- FALSE 1560s [00:52:40.092] if (inherits(cond, "message")) { 1560s [00:52:40.092] muffled <- grepl(pattern, "muffleMessage") 1560s [00:52:40.092] if (muffled) 1560s [00:52:40.092] invokeRestart("muffleMessage") 1560s [00:52:40.092] } 1560s [00:52:40.092] else if (inherits(cond, "warning")) { 1560s [00:52:40.092] muffled <- grepl(pattern, "muffleWarning") 1560s [00:52:40.092] if (muffled) 1560s [00:52:40.092] invokeRestart("muffleWarning") 1560s [00:52:40.092] } 1560s [00:52:40.092] else if (inherits(cond, "condition")) { 1560s [00:52:40.092] if (!is.null(pattern)) { 1560s [00:52:40.092] computeRestarts <- base::computeRestarts 1560s [00:52:40.092] grepl <- base::grepl 1560s [00:52:40.092] restarts <- computeRestarts(cond) 1560s [00:52:40.092] for (restart in restarts) { 1560s [00:52:40.092] name <- restart$name 1560s [00:52:40.092] if (is.null(name)) 1560s [00:52:40.092] next 1560s [00:52:40.092] if (!grepl(pattern, name)) 1560s [00:52:40.092] next 1560s [00:52:40.092] invokeRestart(restart) 1560s [00:52:40.092] muffled <- TRUE 1560s [00:52:40.092] break 1560s [00:52:40.092] } 1560s [00:52:40.092] } 1560s [00:52:40.092] } 1560s [00:52:40.092] invisible(muffled) 1560s [00:52:40.092] } 1560s [00:52:40.092] muffleCondition(cond, pattern = "^muffle") 1560s [00:52:40.092] } 1560s [00:52:40.092] } 1560s [00:52:40.092] } 1560s [00:52:40.092] })) 1560s [00:52:40.092] }, error = function(ex) { 1560s [00:52:40.092] base::structure(base::list(value = NULL, visible = NULL, 1560s [00:52:40.092] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1560s [00:52:40.092] ...future.rng), started = ...future.startTime, 1560s [00:52:40.092] finished = Sys.time(), session_uuid = NA_character_, 1560s [00:52:40.092] version = "1.8"), class = "FutureResult") 1560s [00:52:40.092] }, finally = { 1560s [00:52:40.092] if (!identical(...future.workdir, getwd())) 1560s [00:52:40.092] setwd(...future.workdir) 1560s [00:52:40.092] { 1560s [00:52:40.092] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1560s [00:52:40.092] ...future.oldOptions$nwarnings <- NULL 1560s [00:52:40.092] } 1560s [00:52:40.092] base::options(...future.oldOptions) 1560s [00:52:40.092] if (.Platform$OS.type == "windows") { 1560s [00:52:40.092] old_names <- names(...future.oldEnvVars) 1560s [00:52:40.092] envs <- base::Sys.getenv() 1560s [00:52:40.092] names <- names(envs) 1560s [00:52:40.092] common <- intersect(names, old_names) 1560s [00:52:40.092] added <- setdiff(names, old_names) 1560s [00:52:40.092] removed <- setdiff(old_names, names) 1560s [00:52:40.092] changed <- common[...future.oldEnvVars[common] != 1560s [00:52:40.092] envs[common]] 1560s [00:52:40.092] NAMES <- toupper(changed) 1560s [00:52:40.092] args <- list() 1560s [00:52:40.092] for (kk in seq_along(NAMES)) { 1560s [00:52:40.092] name <- changed[[kk]] 1560s [00:52:40.092] NAME <- NAMES[[kk]] 1560s [00:52:40.092] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.092] next 1560s [00:52:40.092] args[[name]] <- ...future.oldEnvVars[[name]] 1560s [00:52:40.092] } 1560s [00:52:40.092] NAMES <- toupper(added) 1560s [00:52:40.092] for (kk in seq_along(NAMES)) { 1560s [00:52:40.092] name <- added[[kk]] 1560s [00:52:40.092] NAME <- NAMES[[kk]] 1560s [00:52:40.092] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.092] next 1560s [00:52:40.092] args[[name]] <- "" 1560s [00:52:40.092] } 1560s [00:52:40.092] NAMES <- toupper(removed) 1560s [00:52:40.092] for (kk in seq_along(NAMES)) { 1560s [00:52:40.092] name <- removed[[kk]] 1560s [00:52:40.092] NAME <- NAMES[[kk]] 1560s [00:52:40.092] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.092] next 1560s [00:52:40.092] args[[name]] <- ...future.oldEnvVars[[name]] 1560s [00:52:40.092] } 1560s [00:52:40.092] if (length(args) > 0) 1560s [00:52:40.092] base::do.call(base::Sys.setenv, args = args) 1560s [00:52:40.092] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1560s [00:52:40.092] } 1560s [00:52:40.092] else { 1560s [00:52:40.092] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1560s [00:52:40.092] } 1560s [00:52:40.092] { 1560s [00:52:40.092] if (base::length(...future.futureOptionsAdded) > 1560s [00:52:40.092] 0L) { 1560s [00:52:40.092] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1560s [00:52:40.092] base::names(opts) <- ...future.futureOptionsAdded 1560s [00:52:40.092] base::options(opts) 1560s [00:52:40.092] } 1560s [00:52:40.092] { 1560s [00:52:40.092] { 1560s [00:52:40.092] base::assign(".Random.seed", c(10407L, -1319993016L, 1560s [00:52:40.092] 1571290074L, -859112415L, -853775137L, 1440155893L, 1560s [00:52:40.092] -732328588L), envir = base::globalenv(), 1560s [00:52:40.092] inherits = FALSE) 1560s [00:52:40.092] NULL 1560s [00:52:40.092] } 1560s [00:52:40.092] options(future.plan = NULL) 1560s [00:52:40.092] if (is.na(NA_character_)) 1560s [00:52:40.092] Sys.unsetenv("R_FUTURE_PLAN") 1560s [00:52:40.092] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1560s [00:52:40.092] future::plan(list(function (..., envir = parent.frame()) 1560s [00:52:40.092] { 1560s [00:52:40.092] future <- SequentialFuture(..., envir = envir) 1560s [00:52:40.092] if (!future$lazy) 1560s [00:52:40.092] future <- run(future) 1560s [00:52:40.092] invisible(future) 1560s [00:52:40.092] }), .cleanup = FALSE, .init = FALSE) 1560s [00:52:40.092] } 1560s [00:52:40.092] } 1560s [00:52:40.092] } 1560s [00:52:40.092] }) 1560s [00:52:40.092] if (TRUE) { 1560s [00:52:40.092] base::sink(type = "output", split = FALSE) 1560s [00:52:40.092] if (TRUE) { 1560s [00:52:40.092] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1560s [00:52:40.092] } 1560s [00:52:40.092] else { 1560s [00:52:40.092] ...future.result["stdout"] <- base::list(NULL) 1560s [00:52:40.092] } 1560s [00:52:40.092] base::close(...future.stdout) 1560s [00:52:40.092] ...future.stdout <- NULL 1560s [00:52:40.092] } 1560s [00:52:40.092] ...future.result$conditions <- ...future.conditions 1560s [00:52:40.092] ...future.result$finished <- base::Sys.time() 1560s [00:52:40.092] ...future.result 1560s [00:52:40.092] } 1560s [00:52:40.096] assign_globals() ... 1560s [00:52:40.097] List of 5 1560s [00:52:40.097] $ ...future.FUN :function (x, ...) 1560s [00:52:40.097] $ MoreArgs : NULL 1560s [00:52:40.097] $ ...future.elements_ii :List of 2 1560s [00:52:40.097] ..$ :List of 4 1560s [00:52:40.097] .. ..$ : int 1 1560s [00:52:40.097] .. ..$ : int 2 1560s [00:52:40.097] .. ..$ : int 3 1560s [00:52:40.097] .. ..$ : int 4 1560s [00:52:40.097] ..$ :List of 4 1560s [00:52:40.097] .. ..$ : int 4 1560s [00:52:40.097] .. ..$ : int 3 1560s [00:52:40.097] .. ..$ : int 2 1560s [00:52:40.097] .. ..$ : int 1 1560s [00:52:40.097] $ ...future.seeds_ii : NULL 1560s [00:52:40.097] $ ...future.globals.maxSize: NULL 1560s [00:52:40.097] - attr(*, "where")=List of 5 1560s [00:52:40.097] ..$ ...future.FUN : 1560s [00:52:40.097] ..$ MoreArgs : 1560s [00:52:40.097] ..$ ...future.elements_ii : 1560s [00:52:40.097] ..$ ...future.seeds_ii : 1560s [00:52:40.097] ..$ ...future.globals.maxSize: 1560s [00:52:40.097] - attr(*, "resolved")= logi FALSE 1560s [00:52:40.097] - attr(*, "total_size")= num 504 1560s [00:52:40.097] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1560s [00:52:40.097] - attr(*, "already-done")= logi TRUE 1560s [00:52:40.114] - copied ‘...future.FUN’ to environment 1560s [00:52:40.118] - copied ‘MoreArgs’ to environment 1560s [00:52:40.119] - copied ‘...future.elements_ii’ to environment 1560s [00:52:40.119] - copied ‘...future.seeds_ii’ to environment 1560s [00:52:40.120] - copied ‘...future.globals.maxSize’ to environment 1560s [00:52:40.120] assign_globals() ... done 1560s [00:52:40.121] plan(): Setting new future strategy stack: 1560s [00:52:40.122] List of future strategies: 1560s [00:52:40.122] 1. sequential: 1560s [00:52:40.122] - args: function (..., envir = parent.frame()) 1560s [00:52:40.122] - tweaked: FALSE 1560s [00:52:40.122] - call: NULL 1560s [00:52:40.122] plan(): nbrOfWorkers() = 1 1560s [00:52:40.124] plan(): Setting new future strategy stack: 1560s [00:52:40.124] List of future strategies: 1560s [00:52:40.124] 1. sequential: 1560s [00:52:40.124] - args: function (..., envir = parent.frame()) 1560s [00:52:40.124] - tweaked: FALSE 1560s [00:52:40.124] - call: plan(strategy) 1560s [00:52:40.126] plan(): nbrOfWorkers() = 1 1560s [00:52:40.126] SequentialFuture started (and completed) 1560s [00:52:40.127] - Launch lazy future ... done 1560s [00:52:40.129] run() for ‘SequentialFuture’ ... done 1560s [00:52:40.129] Created future: 1560s [00:52:40.130] SequentialFuture: 1560s [00:52:40.130] Label: ‘future_mapply-1’ 1560s [00:52:40.130] Expression: 1560s [00:52:40.130] { 1560s [00:52:40.130] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1560s [00:52:40.130] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1560s [00:52:40.130] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1560s [00:52:40.130] on.exit(options(oopts), add = TRUE) 1560s [00:52:40.130] } 1560s [00:52:40.130] { 1560s [00:52:40.130] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1560s [00:52:40.130] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1560s [00:52:40.130] do.call(mapply, args = args) 1560s [00:52:40.130] } 1560s [00:52:40.130] } 1560s [00:52:40.130] Lazy evaluation: FALSE 1560s [00:52:40.130] Asynchronous evaluation: FALSE 1560s [00:52:40.130] Local evaluation: TRUE 1560s [00:52:40.130] Environment: R_GlobalEnv 1560s [00:52:40.130] Capture standard output: TRUE 1560s [00:52:40.130] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1560s [00:52:40.130] Globals: 5 objects totaling 504 bytes (function ‘...future.FUN’ of 56 bytes, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 448 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1560s [00:52:40.130] Packages: 1560s [00:52:40.130] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1560s [00:52:40.130] Resolved: TRUE 1560s [00:52:40.130] Value: 240 bytes of class ‘list’ 1560s [00:52:40.130] Early signaling: FALSE 1560s [00:52:40.130] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1560s [00:52:40.130] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1560s [00:52:40.132] Chunk #1 of 1 ... DONE 1560s [00:52:40.132] Launching 1 futures (chunks) ... DONE 1560s [00:52:40.132] Resolving 1 futures (chunks) ... 1560s [00:52:40.132] resolve() on list ... 1560s [00:52:40.132] recursive: 0 1560s [00:52:40.133] length: 1 1560s [00:52:40.133] 1560s [00:52:40.133] resolved() for ‘SequentialFuture’ ... 1560s [00:52:40.134] - state: ‘finished’ 1560s [00:52:40.134] - run: TRUE 1560s [00:52:40.134] - result: ‘FutureResult’ 1560s [00:52:40.134] resolved() for ‘SequentialFuture’ ... done 1560s [00:52:40.135] Future #1 1560s [00:52:40.135] signalConditionsASAP(SequentialFuture, pos=1) ... 1560s [00:52:40.135] - nx: 1 1560s [00:52:40.136] - relay: TRUE 1560s [00:52:40.136] - stdout: TRUE 1560s [00:52:40.136] - signal: TRUE 1560s [00:52:40.136] - resignal: FALSE 1560s [00:52:40.136] - force: TRUE 1560s [00:52:40.136] - relayed: [n=1] FALSE 1560s [00:52:40.136] - queued futures: [n=1] FALSE 1560s [00:52:40.137] - until=1 1560s [00:52:40.137] - relaying element #1 1560s [00:52:40.137] - relayed: [n=1] TRUE 1560s [00:52:40.137] - queued futures: [n=1] TRUE 1560s [00:52:40.137] signalConditionsASAP(SequentialFuture, pos=1) ... done 1560s [00:52:40.138] length: 0 (resolved future 1) 1560s [00:52:40.138] Relaying remaining futures 1560s [00:52:40.138] signalConditionsASAP(NULL, pos=0) ... 1560s [00:52:40.138] - nx: 1 1560s [00:52:40.139] - relay: TRUE 1560s [00:52:40.139] - stdout: TRUE 1560s [00:52:40.139] - signal: TRUE 1560s [00:52:40.139] - resignal: FALSE 1560s [00:52:40.140] - force: TRUE 1560s [00:52:40.140] - relayed: [n=1] TRUE 1560s [00:52:40.140] - queued futures: [n=1] TRUE 1560s - flush all 1560s [00:52:40.141] - relayed: [n=1] TRUE 1560s [00:52:40.141] - queued futures: [n=1] TRUE 1560s [00:52:40.141] signalConditionsASAP(NULL, pos=0) ... done 1560s [00:52:40.141] resolve() on list ... DONE 1560s [00:52:40.141] - Number of value chunks collected: 1 1560s [00:52:40.142] Resolving 1 futures (chunks) ... DONE 1560s [00:52:40.142] Reducing values from 1 chunks ... 1560s [00:52:40.142] - Number of values collected after concatenation: 4 1560s [00:52:40.142] - Number of values expected: 4 1560s [00:52:40.142] Reducing values from 1 chunks ... DONE 1560s [00:52:40.142] future_mapply() ... DONE 1560s [00:52:40.143] future_mapply() ... 1560s [00:52:40.143] Number of chunks: 1 1560s [00:52:40.143] getGlobalsAndPackagesXApply() ... 1560s [00:52:40.143] - future.globals: TRUE 1560s [00:52:40.143] getGlobalsAndPackages() ... 1560s [00:52:40.144] Searching for globals... 1560s [00:52:40.145] - globals found: [1] ‘FUN’ 1560s [00:52:40.145] Searching for globals ... DONE 1560s [00:52:40.145] Resolving globals: FALSE 1560s [00:52:40.145] The total size of the 1 globals is 56 bytes (56 bytes) 1560s [00:52:40.147] The total size of the 1 globals exported for future expression (‘FUN()’) is 56 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (56 bytes of class ‘function’) 1560s [00:52:40.147] - globals: [1] ‘FUN’ 1560s [00:52:40.148] 1560s [00:52:40.148] getGlobalsAndPackages() ... DONE 1560s [00:52:40.149] - globals found/used: [n=1] ‘FUN’ 1560s [00:52:40.149] - needed namespaces: [n=0] 1560s [00:52:40.149] Finding globals ... DONE 1560s [00:52:40.150] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1560s [00:52:40.150] List of 2 1560s [00:52:40.150] $ ...future.FUN:function (x, ...) 1560s [00:52:40.150] $ MoreArgs : NULL 1560s [00:52:40.150] - attr(*, "where")=List of 2 1560s [00:52:40.150] ..$ ...future.FUN: 1560s [00:52:40.150] ..$ MoreArgs : 1560s [00:52:40.150] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1560s [00:52:40.150] - attr(*, "resolved")= logi FALSE 1560s [00:52:40.150] - attr(*, "total_size")= num NA 1560s [00:52:40.159] Packages to be attached in all futures: [n=0] 1560s [00:52:40.159] getGlobalsAndPackagesXApply() ... DONE 1560s [00:52:40.160] Number of futures (= number of chunks): 1 1560s [00:52:40.160] Launching 1 futures (chunks) ... 1560s [00:52:40.160] Chunk #1 of 1 ... 1560s [00:52:40.161] - Finding globals in '...' for chunk #1 ... 1560s [00:52:40.161] getGlobalsAndPackages() ... 1560s [00:52:40.161] Searching for globals... 1560s [00:52:40.162] 1560s [00:52:40.162] Searching for globals ... DONE 1560s [00:52:40.162] - globals: [0] 1560s [00:52:40.162] getGlobalsAndPackages() ... DONE 1560s [00:52:40.162] + additional globals found: [n=0] 1560s [00:52:40.163] + additional namespaces needed: [n=0] 1560s [00:52:40.163] - Finding globals in '...' for chunk #1 ... DONE 1560s [00:52:40.163] - seeds: 1560s [00:52:40.163] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.164] getGlobalsAndPackages() ... 1560s [00:52:40.164] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.164] Resolving globals: FALSE 1560s [00:52:40.165] The total size of the 5 globals is 504 bytes (504 bytes) 1560s [00:52:40.165] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 504 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.elements_ii’ (448 bytes of class ‘list’), ‘...future.FUN’ (56 bytes of class ‘function’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1560s [00:52:40.165] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.166] 1560s [00:52:40.166] getGlobalsAndPackages() ... DONE 1560s [00:52:40.166] run() for ‘Future’ ... 1560s [00:52:40.166] - state: ‘created’ 1560s [00:52:40.167] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1560s [00:52:40.168] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1560s [00:52:40.168] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1560s [00:52:40.168] - Field: ‘label’ 1560s [00:52:40.169] - Field: ‘local’ 1560s [00:52:40.169] - Field: ‘owner’ 1560s [00:52:40.169] - Field: ‘envir’ 1560s [00:52:40.169] - Field: ‘packages’ 1560s [00:52:40.170] - Field: ‘gc’ 1560s [00:52:40.170] - Field: ‘conditions’ 1560s [00:52:40.171] - Field: ‘expr’ 1560s [00:52:40.171] - Field: ‘uuid’ 1560s [00:52:40.171] - Field: ‘seed’ 1560s [00:52:40.171] - Field: ‘version’ 1560s [00:52:40.171] - Field: ‘result’ 1560s [00:52:40.172] - Field: ‘asynchronous’ 1560s [00:52:40.172] - Field: ‘calls’ 1560s [00:52:40.173] - Field: ‘globals’ 1560s [00:52:40.173] - Field: ‘stdout’ 1560s [00:52:40.173] - Field: ‘earlySignal’ 1560s [00:52:40.174] - Field: ‘lazy’ 1560s [00:52:40.174] - Field: ‘state’ 1560s [00:52:40.174] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1560s [00:52:40.174] - Launch lazy future ... 1560s [00:52:40.175] Packages needed by the future expression (n = 0): 1560s [00:52:40.175] Packages needed by future strategies (n = 0): 1560s [00:52:40.175] { 1560s [00:52:40.175] { 1560s [00:52:40.175] { 1560s [00:52:40.175] ...future.startTime <- base::Sys.time() 1560s [00:52:40.175] { 1560s [00:52:40.175] { 1560s [00:52:40.175] { 1560s [00:52:40.175] base::local({ 1560s [00:52:40.175] has_future <- base::requireNamespace("future", 1560s [00:52:40.175] quietly = TRUE) 1560s [00:52:40.175] if (has_future) { 1560s [00:52:40.175] ns <- base::getNamespace("future") 1560s [00:52:40.175] version <- ns[[".package"]][["version"]] 1560s [00:52:40.175] if (is.null(version)) 1560s [00:52:40.175] version <- utils::packageVersion("future") 1560s [00:52:40.175] } 1560s [00:52:40.175] else { 1560s [00:52:40.175] version <- NULL 1560s [00:52:40.175] } 1560s [00:52:40.175] if (!has_future || version < "1.8.0") { 1560s [00:52:40.175] info <- base::c(r_version = base::gsub("R version ", 1560s [00:52:40.175] "", base::R.version$version.string), 1560s [00:52:40.175] platform = base::sprintf("%s (%s-bit)", 1560s [00:52:40.175] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1560s [00:52:40.175] os = base::paste(base::Sys.info()[base::c("sysname", 1560s [00:52:40.175] "release", "version")], collapse = " "), 1560s [00:52:40.175] hostname = base::Sys.info()[["nodename"]]) 1560s [00:52:40.175] info <- base::sprintf("%s: %s", base::names(info), 1560s [00:52:40.175] info) 1560s [00:52:40.175] info <- base::paste(info, collapse = "; ") 1560s [00:52:40.175] if (!has_future) { 1560s [00:52:40.175] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1560s [00:52:40.175] info) 1560s [00:52:40.175] } 1560s [00:52:40.175] else { 1560s [00:52:40.175] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1560s [00:52:40.175] info, version) 1560s [00:52:40.175] } 1560s [00:52:40.175] base::stop(msg) 1560s [00:52:40.175] } 1560s [00:52:40.175] }) 1560s [00:52:40.175] } 1560s [00:52:40.175] options(future.plan = NULL) 1560s [00:52:40.175] Sys.unsetenv("R_FUTURE_PLAN") 1560s [00:52:40.175] future::plan("default", .cleanup = FALSE, .init = FALSE) 1560s [00:52:40.175] } 1560s [00:52:40.175] ...future.workdir <- getwd() 1560s [00:52:40.175] } 1560s [00:52:40.175] ...future.oldOptions <- base::as.list(base::.Options) 1560s [00:52:40.175] ...future.oldEnvVars <- base::Sys.getenv() 1560s [00:52:40.175] } 1560s [00:52:40.175] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1560s [00:52:40.175] future.globals.maxSize = NULL, future.globals.method = NULL, 1560s [00:52:40.175] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1560s [00:52:40.175] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1560s [00:52:40.175] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1560s [00:52:40.175] future.stdout.windows.reencode = NULL, width = 80L) 1560s [00:52:40.175] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1560s [00:52:40.175] base::names(...future.oldOptions)) 1560s [00:52:40.175] } 1560s [00:52:40.175] if (FALSE) { 1560s [00:52:40.175] } 1560s [00:52:40.175] else { 1560s [00:52:40.175] if (TRUE) { 1560s [00:52:40.175] ...future.stdout <- base::rawConnection(base::raw(0L), 1560s [00:52:40.175] open = "w") 1560s [00:52:40.175] } 1560s [00:52:40.175] else { 1560s [00:52:40.175] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1560s [00:52:40.175] windows = "NUL", "/dev/null"), open = "w") 1560s [00:52:40.175] } 1560s [00:52:40.175] base::sink(...future.stdout, type = "output", split = FALSE) 1560s [00:52:40.175] base::on.exit(if (!base::is.null(...future.stdout)) { 1560s [00:52:40.175] base::sink(type = "output", split = FALSE) 1560s [00:52:40.175] base::close(...future.stdout) 1560s [00:52:40.175] }, add = TRUE) 1560s [00:52:40.175] } 1560s [00:52:40.175] ...future.frame <- base::sys.nframe() 1560s [00:52:40.175] ...future.conditions <- base::list() 1560s [00:52:40.175] ...future.rng <- base::globalenv()$.Random.seed 1560s [00:52:40.175] if (FALSE) { 1560s [00:52:40.175] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1560s [00:52:40.175] "...future.value", "...future.globalenv.names", ".Random.seed") 1560s [00:52:40.175] } 1560s [00:52:40.175] ...future.result <- base::tryCatch({ 1560s [00:52:40.175] base::withCallingHandlers({ 1560s [00:52:40.175] ...future.value <- base::withVisible(base::local({ 1560s [00:52:40.175] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1560s [00:52:40.175] if (!identical(...future.globals.maxSize.org, 1560s [00:52:40.175] ...future.globals.maxSize)) { 1560s [00:52:40.175] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1560s [00:52:40.175] on.exit(options(oopts), add = TRUE) 1560s [00:52:40.175] } 1560s [00:52:40.175] { 1560s [00:52:40.175] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1560s [00:52:40.175] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1560s [00:52:40.175] USE.NAMES = FALSE) 1560s [00:52:40.175] do.call(mapply, args = args) 1560s [00:52:40.175] } 1560s [00:52:40.175] })) 1560s [00:52:40.175] future::FutureResult(value = ...future.value$value, 1560s [00:52:40.175] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1560s [00:52:40.175] ...future.rng), globalenv = if (FALSE) 1560s [00:52:40.175] list(added = base::setdiff(base::names(base::.GlobalEnv), 1560s [00:52:40.175] ...future.globalenv.names)) 1560s [00:52:40.175] else NULL, started = ...future.startTime, version = "1.8") 1560s [00:52:40.175] }, condition = base::local({ 1560s [00:52:40.175] c <- base::c 1560s [00:52:40.175] inherits <- base::inherits 1560s [00:52:40.175] invokeRestart <- base::invokeRestart 1560s [00:52:40.175] length <- base::length 1560s [00:52:40.175] list <- base::list 1560s [00:52:40.175] seq.int <- base::seq.int 1560s [00:52:40.175] signalCondition <- base::signalCondition 1560s [00:52:40.175] sys.calls <- base::sys.calls 1560s [00:52:40.175] `[[` <- base::`[[` 1560s [00:52:40.175] `+` <- base::`+` 1560s [00:52:40.175] `<<-` <- base::`<<-` 1560s [00:52:40.175] sysCalls <- function(calls = sys.calls(), from = 1L) { 1560s [00:52:40.175] calls[seq.int(from = from + 12L, to = length(calls) - 1560s [00:52:40.175] 3L)] 1560s [00:52:40.175] } 1560s [00:52:40.175] function(cond) { 1560s [00:52:40.175] is_error <- inherits(cond, "error") 1560s [00:52:40.175] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1560s [00:52:40.175] NULL) 1560s [00:52:40.175] if (is_error) { 1560s [00:52:40.175] sessionInformation <- function() { 1560s [00:52:40.175] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1560s [00:52:40.175] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1560s [00:52:40.175] search = base::search(), system = base::Sys.info()) 1560s [00:52:40.175] } 1560s [00:52:40.175] ...future.conditions[[length(...future.conditions) + 1560s [00:52:40.175] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1560s [00:52:40.175] cond$call), session = sessionInformation(), 1560s [00:52:40.175] timestamp = base::Sys.time(), signaled = 0L) 1560s [00:52:40.175] signalCondition(cond) 1560s [00:52:40.175] } 1560s [00:52:40.175] else if (!ignore && TRUE && inherits(cond, c("condition", 1560s [00:52:40.175] "immediateCondition"))) { 1560s [00:52:40.175] signal <- TRUE && inherits(cond, "immediateCondition") 1560s [00:52:40.175] ...future.conditions[[length(...future.conditions) + 1560s [00:52:40.175] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1560s [00:52:40.175] if (TRUE && !signal) { 1560s [00:52:40.175] muffleCondition <- function (cond, pattern = "^muffle") 1560s [00:52:40.175] { 1560s [00:52:40.175] inherits <- base::inherits 1560s [00:52:40.175] invokeRestart <- base::invokeRestart 1560s [00:52:40.175] is.null <- base::is.null 1560s [00:52:40.175] muffled <- FALSE 1560s [00:52:40.175] if (inherits(cond, "message")) { 1560s [00:52:40.175] muffled <- grepl(pattern, "muffleMessage") 1560s [00:52:40.175] if (muffled) 1560s [00:52:40.175] invokeRestart("muffleMessage") 1560s [00:52:40.175] } 1560s [00:52:40.175] else if (inherits(cond, "warning")) { 1560s [00:52:40.175] muffled <- grepl(pattern, "muffleWarning") 1560s [00:52:40.175] if (muffled) 1560s [00:52:40.175] invokeRestart("muffleWarning") 1560s [00:52:40.175] } 1560s [00:52:40.175] else if (inherits(cond, "condition")) { 1560s [00:52:40.175] if (!is.null(pattern)) { 1560s [00:52:40.175] computeRestarts <- base::computeRestarts 1560s [00:52:40.175] grepl <- base::grepl 1560s [00:52:40.175] restarts <- computeRestarts(cond) 1560s [00:52:40.175] for (restart in restarts) { 1560s [00:52:40.175] name <- restart$name 1560s [00:52:40.175] if (is.null(name)) 1560s [00:52:40.175] next 1560s [00:52:40.175] if (!grepl(pattern, name)) 1560s [00:52:40.175] next 1560s [00:52:40.175] invokeRestart(restart) 1560s [00:52:40.175] muffled <- TRUE 1560s [00:52:40.175] break 1560s [00:52:40.175] } 1560s [00:52:40.175] } 1560s [00:52:40.175] } 1560s [00:52:40.175] invisible(muffled) 1560s [00:52:40.175] } 1560s [00:52:40.175] muffleCondition(cond, pattern = "^muffle") 1560s [00:52:40.175] } 1560s [00:52:40.175] } 1560s [00:52:40.175] else { 1560s [00:52:40.175] if (TRUE) { 1560s [00:52:40.175] muffleCondition <- function (cond, pattern = "^muffle") 1560s [00:52:40.175] { 1560s [00:52:40.175] inherits <- base::inherits 1560s [00:52:40.175] invokeRestart <- base::invokeRestart 1560s [00:52:40.175] is.null <- base::is.null 1560s [00:52:40.175] muffled <- FALSE 1560s [00:52:40.175] if (inherits(cond, "message")) { 1560s [00:52:40.175] muffled <- grepl(pattern, "muffleMessage") 1560s [00:52:40.175] if (muffled) 1560s [00:52:40.175] invokeRestart("muffleMessage") 1560s [00:52:40.175] } 1560s [00:52:40.175] else if (inherits(cond, "warning")) { 1560s [00:52:40.175] muffled <- grepl(pattern, "muffleWarning") 1560s [00:52:40.175] if (muffled) 1560s [00:52:40.175] invokeRestart("muffleWarning") 1560s [00:52:40.175] } 1560s [00:52:40.175] else if (inherits(cond, "condition")) { 1560s [00:52:40.175] if (!is.null(pattern)) { 1560s [00:52:40.175] computeRestarts <- base::computeRestarts 1560s [00:52:40.175] grepl <- base::grepl 1560s [00:52:40.175] restarts <- computeRestarts(cond) 1560s [00:52:40.175] for (restart in restarts) { 1560s [00:52:40.175] name <- restart$name 1560s [00:52:40.175] if (is.null(name)) 1560s [00:52:40.175] next 1560s [00:52:40.175] if (!grepl(pattern, name)) 1560s [00:52:40.175] next 1560s [00:52:40.175] invokeRestart(restart) 1560s [00:52:40.175] muffled <- TRUE 1560s [00:52:40.175] break 1560s [00:52:40.175] } 1560s [00:52:40.175] } 1560s [00:52:40.175] } 1560s [00:52:40.175] invisible(muffled) 1560s [00:52:40.175] } 1560s [00:52:40.175] muffleCondition(cond, pattern = "^muffle") 1560s [00:52:40.175] } 1560s [00:52:40.175] } 1560s [00:52:40.175] } 1560s [00:52:40.175] })) 1560s [00:52:40.175] }, error = function(ex) { 1560s [00:52:40.175] base::structure(base::list(value = NULL, visible = NULL, 1560s [00:52:40.175] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1560s [00:52:40.175] ...future.rng), started = ...future.startTime, 1560s [00:52:40.175] finished = Sys.time(), session_uuid = NA_character_, 1560s [00:52:40.175] version = "1.8"), class = "FutureResult") 1560s [00:52:40.175] }, finally = { 1560s [00:52:40.175] if (!identical(...future.workdir, getwd())) 1560s [00:52:40.175] setwd(...future.workdir) 1560s [00:52:40.175] { 1560s [00:52:40.175] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1560s [00:52:40.175] ...future.oldOptions$nwarnings <- NULL 1560s [00:52:40.175] } 1560s [00:52:40.175] base::options(...future.oldOptions) 1560s [00:52:40.175] if (.Platform$OS.type == "windows") { 1560s [00:52:40.175] old_names <- names(...future.oldEnvVars) 1560s [00:52:40.175] envs <- base::Sys.getenv() 1560s [00:52:40.175] names <- names(envs) 1560s [00:52:40.175] common <- intersect(names, old_names) 1560s [00:52:40.175] added <- setdiff(names, old_names) 1560s [00:52:40.175] removed <- setdiff(old_names, names) 1560s [00:52:40.175] changed <- common[...future.oldEnvVars[common] != 1560s [00:52:40.175] envs[common]] 1560s [00:52:40.175] NAMES <- toupper(changed) 1560s [00:52:40.175] args <- list() 1560s [00:52:40.175] for (kk in seq_along(NAMES)) { 1560s [00:52:40.175] name <- changed[[kk]] 1560s [00:52:40.175] NAME <- NAMES[[kk]] 1560s [00:52:40.175] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.175] next 1560s [00:52:40.175] args[[name]] <- ...future.oldEnvVars[[name]] 1560s [00:52:40.175] } 1560s [00:52:40.175] NAMES <- toupper(added) 1560s [00:52:40.175] for (kk in seq_along(NAMES)) { 1560s [00:52:40.175] name <- added[[kk]] 1560s [00:52:40.175] NAME <- NAMES[[kk]] 1560s [00:52:40.175] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.175] next 1560s [00:52:40.175] args[[name]] <- "" 1560s [00:52:40.175] } 1560s [00:52:40.175] NAMES <- toupper(removed) 1560s [00:52:40.175] for (kk in seq_along(NAMES)) { 1560s [00:52:40.175] name <- removed[[kk]] 1560s [00:52:40.175] NAME <- NAMES[[kk]] 1560s [00:52:40.175] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.175] next 1560s [00:52:40.175] args[[name]] <- ...future.oldEnvVars[[name]] 1560s [00:52:40.175] } 1560s [00:52:40.175] if (length(args) > 0) 1560s [00:52:40.175] base::do.call(base::Sys.setenv, args = args) 1560s [00:52:40.175] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1560s [00:52:40.175] } 1560s [00:52:40.175] else { 1560s [00:52:40.175] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1560s [00:52:40.175] } 1560s [00:52:40.175] { 1560s [00:52:40.175] if (base::length(...future.futureOptionsAdded) > 1560s [00:52:40.175] 0L) { 1560s [00:52:40.175] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1560s [00:52:40.175] base::names(opts) <- ...future.futureOptionsAdded 1560s [00:52:40.175] base::options(opts) 1560s [00:52:40.175] } 1560s [00:52:40.175] { 1560s [00:52:40.175] { 1560s [00:52:40.175] base::assign(".Random.seed", c(10407L, -1319993016L, 1560s [00:52:40.175] 1571290074L, -859112415L, -853775137L, 1440155893L, 1560s [00:52:40.175] -732328588L), envir = base::globalenv(), 1560s [00:52:40.175] inherits = FALSE) 1560s [00:52:40.175] NULL 1560s [00:52:40.175] } 1560s [00:52:40.175] options(future.plan = NULL) 1560s [00:52:40.175] if (is.na(NA_character_)) 1560s [00:52:40.175] Sys.unsetenv("R_FUTURE_PLAN") 1560s [00:52:40.175] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1560s [00:52:40.175] future::plan(list(function (..., envir = parent.frame()) 1560s [00:52:40.175] { 1560s [00:52:40.175] future <- SequentialFuture(..., envir = envir) 1560s [00:52:40.175] if (!future$lazy) 1560s [00:52:40.175] future <- run(future) 1560s [00:52:40.175] invisible(future) 1560s [00:52:40.175] }), .cleanup = FALSE, .init = FALSE) 1560s [00:52:40.175] } 1560s [00:52:40.175] } 1560s [00:52:40.175] } 1560s [00:52:40.175] }) 1560s [00:52:40.175] if (TRUE) { 1560s [00:52:40.175] base::sink(type = "output", split = FALSE) 1560s [00:52:40.175] if (TRUE) { 1560s [00:52:40.175] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1560s [00:52:40.175] } 1560s [00:52:40.175] else { 1560s [00:52:40.175] ...future.result["stdout"] <- base::list(NULL) 1560s [00:52:40.175] } 1560s [00:52:40.175] base::close(...future.stdout) 1560s [00:52:40.175] ...future.stdout <- NULL 1560s [00:52:40.175] } 1560s [00:52:40.175] ...future.result$conditions <- ...future.conditions 1560s [00:52:40.175] ...future.result$finished <- base::Sys.time() 1560s [00:52:40.175] ...future.result 1560s [00:52:40.175] } 1560s [00:52:40.185] assign_globals() ... 1560s [00:52:40.185] List of 5 1560s [00:52:40.185] $ ...future.FUN :function (x, ...) 1560s [00:52:40.185] $ MoreArgs : NULL 1560s [00:52:40.185] $ ...future.elements_ii :List of 2 1560s [00:52:40.185] ..$ :List of 4 1560s [00:52:40.185] .. ..$ : int 1 1560s [00:52:40.185] .. ..$ : int 2 1560s [00:52:40.185] .. ..$ : int 3 1560s [00:52:40.185] .. ..$ : int 4 1560s [00:52:40.185] ..$ :List of 4 1560s [00:52:40.185] .. ..$ : int 4 1560s [00:52:40.185] .. ..$ : int 3 1560s [00:52:40.185] .. ..$ : int 2 1560s [00:52:40.185] .. ..$ : int 1 1560s [00:52:40.185] $ ...future.seeds_ii : NULL 1560s [00:52:40.185] $ ...future.globals.maxSize: NULL 1560s [00:52:40.185] - attr(*, "where")=List of 5 1560s [00:52:40.185] ..$ ...future.FUN : 1560s [00:52:40.185] ..$ MoreArgs : 1560s [00:52:40.185] ..$ ...future.elements_ii : 1560s [00:52:40.185] ..$ ...future.seeds_ii : 1560s [00:52:40.185] ..$ ...future.globals.maxSize: 1560s [00:52:40.185] - attr(*, "resolved")= logi FALSE 1560s [00:52:40.185] - attr(*, "total_size")= num 504 1560s [00:52:40.185] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1560s [00:52:40.185] - attr(*, "already-done")= logi TRUE 1560s [00:52:40.198] - copied ‘...future.FUN’ to environment 1560s [00:52:40.198] - copied ‘MoreArgs’ to environment 1560s [00:52:40.199] - copied ‘...future.elements_ii’ to environment 1560s [00:52:40.199] - copied ‘...future.seeds_ii’ to environment 1560s [00:52:40.199] - copied ‘...future.globals.maxSize’ to environment 1560s [00:52:40.200] assign_globals() ... done 1560s [00:52:40.200] plan(): Setting new future strategy stack: 1560s [00:52:40.200] List of future strategies: 1560s [00:52:40.200] 1. sequential: 1560s [00:52:40.200] - args: function (..., envir = parent.frame()) 1560s [00:52:40.200] - tweaked: FALSE 1560s [00:52:40.200] - call: NULL 1560s [00:52:40.201] plan(): nbrOfWorkers() = 1 1560s [00:52:40.202] plan(): Setting new future strategy stack: 1560s [00:52:40.202] List of future strategies: 1560s [00:52:40.202] 1. sequential: 1560s [00:52:40.202] - args: function (..., envir = parent.frame()) 1560s [00:52:40.202] - tweaked: FALSE 1560s [00:52:40.202] - call: plan(strategy) 1560s [00:52:40.203] plan(): nbrOfWorkers() = 1 1560s [00:52:40.203] SequentialFuture started (and completed) 1560s [00:52:40.203] - Launch lazy future ... done 1560s [00:52:40.203] run() for ‘SequentialFuture’ ... done 1560s [00:52:40.204] Created future: 1560s [00:52:40.204] SequentialFuture: 1560s [00:52:40.204] Label: ‘future_mapply-1’ 1560s [00:52:40.204] Expression: 1560s [00:52:40.204] { 1560s [00:52:40.204] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1560s [00:52:40.204] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1560s [00:52:40.204] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1560s [00:52:40.204] on.exit(options(oopts), add = TRUE) 1560s [00:52:40.204] } 1560s [00:52:40.204] { 1560s [00:52:40.204] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1560s [00:52:40.204] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1560s [00:52:40.204] do.call(mapply, args = args) 1560s [00:52:40.204] } 1560s [00:52:40.204] } 1560s [00:52:40.204] Lazy evaluation: FALSE 1560s [00:52:40.204] Asynchronous evaluation: FALSE 1560s [00:52:40.204] Local evaluation: TRUE 1560s [00:52:40.204] Environment: R_GlobalEnv 1560s [00:52:40.204] Capture standard output: TRUE 1560s [00:52:40.204] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1560s [00:52:40.204] Globals: 5 objects totaling 504 bytes (function ‘...future.FUN’ of 56 bytes, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 448 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1560s [00:52:40.204] Packages: 1560s [00:52:40.204] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1560s [00:52:40.204] Resolved: TRUE 1560s [00:52:40.204] Value: 240 bytes of class ‘list’ 1560s [00:52:40.204] Early signaling: FALSE 1560s [00:52:40.204] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1560s [00:52:40.204] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1560s [00:52:40.206] Chunk #1 of 1 ... DONE 1560s [00:52:40.206] Launching 1 futures (chunks) ... DONE 1560s [00:52:40.206] Resolving 1 futures (chunks) ... 1560s [00:52:40.206] resolve() on list ... 1560s [00:52:40.206] recursive: 0 1560s [00:52:40.207] length: 1 1560s [00:52:40.207] 1560s [00:52:40.207] resolved() for ‘SequentialFuture’ ... 1560s [00:52:40.207] - state: ‘finished’ 1560s [00:52:40.207] - run: TRUE 1560s [00:52:40.207] - result: ‘FutureResult’ 1560s [00:52:40.207] resolved() for ‘SequentialFuture’ ... done 1560s [00:52:40.208] Future #1 1560s [00:52:40.208] signalConditionsASAP(SequentialFuture, pos=1) ... 1560s [00:52:40.208] - nx: 1 1560s [00:52:40.208] - relay: TRUE 1560s [00:52:40.208] - stdout: TRUE 1560s [00:52:40.208] - signal: TRUE 1560s [00:52:40.209] - resignal: FALSE 1560s [00:52:40.209] - force: TRUE 1560s [00:52:40.209] - relayed: [n=1] FALSE 1560s [00:52:40.209] - queued futures: [n=1] FALSE 1560s [00:52:40.209] - until=1 1560s [00:52:40.209] - relaying element #1 1560s [00:52:40.210] - relayed: [n=1] TRUE 1560s [00:52:40.210] - queued futures: [n=1] TRUE 1560s [00:52:40.210] signalConditionsASAP(SequentialFuture, pos=1) ... done 1560s [00:52:40.210] length: 0 (resolved future 1) 1560s [00:52:40.211] Relaying remaining futures 1560s [00:52:40.211] signalConditionsASAP(NULL, pos=0) ... 1560s [00:52:40.211] - nx: 1 1560s [00:52:40.211] - relay: TRUE 1560s [00:52:40.211] - stdout: TRUE 1560s [00:52:40.212] - signal: TRUE 1560s [00:52:40.212] - resignal: FALSE 1560s [00:52:40.212] - force: TRUE 1560s [00:52:40.212] - relayed: [n=1] TRUE 1560s [00:52:40.212] - queued futures: [n=1] TRUE 1560s - flush all 1560s [00:52:40.212] - relayed: [n=1] TRUE 1560s [00:52:40.212] - queued futures: [n=1] TRUE 1560s [00:52:40.213] signalConditionsASAP(NULL, pos=0) ... done 1560s [00:52:40.213] resolve() on list ... DONE 1560s [00:52:40.213] - Number of value chunks collected: 1 1560s [00:52:40.213] Resolving 1 futures (chunks) ... DONE 1560s [00:52:40.213] Reducing values from 1 chunks ... 1560s [00:52:40.214] - Number of values collected after concatenation: 4 1560s [00:52:40.214] - Number of values expected: 4 1560s [00:52:40.214] Reducing values from 1 chunks ... DONE 1560s [00:52:40.214] future_mapply() ... DONE 1560s [00:52:40.215] future_mapply() ... 1560s [00:52:40.215] Number of chunks: 1 1560s [00:52:40.215] getGlobalsAndPackagesXApply() ... 1560s [00:52:40.215] - future.globals: TRUE 1560s [00:52:40.215] getGlobalsAndPackages() ... 1560s [00:52:40.215] Searching for globals... 1560s [00:52:40.216] - globals found: [1] ‘FUN’ 1560s [00:52:40.216] Searching for globals ... DONE 1560s [00:52:40.216] Resolving globals: FALSE 1560s [00:52:40.217] The total size of the 1 globals is 56 bytes (56 bytes) 1560s [00:52:40.217] The total size of the 1 globals exported for future expression (‘FUN()’) is 56 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (56 bytes of class ‘function’) 1560s [00:52:40.217] - globals: [1] ‘FUN’ 1560s [00:52:40.217] 1560s [00:52:40.218] getGlobalsAndPackages() ... DONE 1560s [00:52:40.218] - globals found/used: [n=1] ‘FUN’ 1560s [00:52:40.218] - needed namespaces: [n=0] 1560s [00:52:40.218] Finding globals ... DONE 1560s [00:52:40.218] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1560s [00:52:40.219] List of 2 1560s [00:52:40.219] $ ...future.FUN:function (x, ...) 1560s [00:52:40.219] $ MoreArgs : NULL 1560s [00:52:40.219] - attr(*, "where")=List of 2 1560s [00:52:40.219] ..$ ...future.FUN: 1560s [00:52:40.219] ..$ MoreArgs : 1560s [00:52:40.219] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1560s [00:52:40.219] - attr(*, "resolved")= logi FALSE 1560s [00:52:40.219] - attr(*, "total_size")= num NA 1560s [00:52:40.223] Packages to be attached in all futures: [n=0] 1560s [00:52:40.223] getGlobalsAndPackagesXApply() ... DONE 1560s [00:52:40.223] Number of futures (= number of chunks): 1 1560s [00:52:40.224] Launching 1 futures (chunks) ... 1560s [00:52:40.224] Chunk #1 of 1 ... 1560s [00:52:40.224] - Finding globals in '...' for chunk #1 ... 1560s [00:52:40.224] getGlobalsAndPackages() ... 1560s [00:52:40.224] Searching for globals... 1560s [00:52:40.225] 1560s [00:52:40.225] Searching for globals ... DONE 1560s [00:52:40.225] - globals: [0] 1560s [00:52:40.225] getGlobalsAndPackages() ... DONE 1560s [00:52:40.226] + additional globals found: [n=0] 1560s [00:52:40.226] + additional namespaces needed: [n=0] 1560s [00:52:40.226] - Finding globals in '...' for chunk #1 ... DONE 1560s [00:52:40.226] - seeds: 1560s [00:52:40.226] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.226] getGlobalsAndPackages() ... 1560s [00:52:40.227] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.227] Resolving globals: FALSE 1560s [00:52:40.228] The total size of the 5 globals is 504 bytes (504 bytes) 1560s [00:52:40.228] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 504 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.elements_ii’ (448 bytes of class ‘list’), ‘...future.FUN’ (56 bytes of class ‘function’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1560s [00:52:40.229] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.229] 1560s [00:52:40.229] getGlobalsAndPackages() ... DONE 1560s [00:52:40.229] run() for ‘Future’ ... 1560s [00:52:40.233] - state: ‘created’ 1560s [00:52:40.233] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1560s [00:52:40.233] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1560s [00:52:40.233] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1560s [00:52:40.234] - Field: ‘label’ 1560s [00:52:40.234] - Field: ‘local’ 1560s [00:52:40.234] - Field: ‘owner’ 1560s [00:52:40.234] - Field: ‘envir’ 1560s [00:52:40.234] - Field: ‘packages’ 1560s [00:52:40.234] - Field: ‘gc’ 1560s [00:52:40.235] - Field: ‘conditions’ 1560s [00:52:40.235] - Field: ‘expr’ 1560s [00:52:40.235] - Field: ‘uuid’ 1560s [00:52:40.235] - Field: ‘seed’ 1560s [00:52:40.235] - Field: ‘version’ 1560s [00:52:40.235] - Field: ‘result’ 1560s [00:52:40.236] - Field: ‘asynchronous’ 1560s [00:52:40.236] - Field: ‘calls’ 1560s [00:52:40.236] - Field: ‘globals’ 1560s [00:52:40.236] - Field: ‘stdout’ 1560s [00:52:40.236] - Field: ‘earlySignal’ 1560s [00:52:40.237] - Field: ‘lazy’ 1560s [00:52:40.237] - Field: ‘state’ 1560s [00:52:40.237] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1560s [00:52:40.237] - Launch lazy future ... 1560s [00:52:40.237] Packages needed by the future expression (n = 0): 1560s [00:52:40.237] Packages needed by future strategies (n = 0): 1560s [00:52:40.238] { 1560s [00:52:40.238] { 1560s [00:52:40.238] { 1560s [00:52:40.238] ...future.startTime <- base::Sys.time() 1560s [00:52:40.238] { 1560s [00:52:40.238] { 1560s [00:52:40.238] { 1560s [00:52:40.238] base::local({ 1560s [00:52:40.238] has_future <- base::requireNamespace("future", 1560s [00:52:40.238] quietly = TRUE) 1560s [00:52:40.238] if (has_future) { 1560s [00:52:40.238] ns <- base::getNamespace("future") 1560s [00:52:40.238] version <- ns[[".package"]][["version"]] 1560s [00:52:40.238] if (is.null(version)) 1560s [00:52:40.238] version <- utils::packageVersion("future") 1560s [00:52:40.238] } 1560s [00:52:40.238] else { 1560s [00:52:40.238] version <- NULL 1560s [00:52:40.238] } 1560s [00:52:40.238] if (!has_future || version < "1.8.0") { 1560s [00:52:40.238] info <- base::c(r_version = base::gsub("R version ", 1560s [00:52:40.238] "", base::R.version$version.string), 1560s [00:52:40.238] platform = base::sprintf("%s (%s-bit)", 1560s [00:52:40.238] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1560s [00:52:40.238] os = base::paste(base::Sys.info()[base::c("sysname", 1560s [00:52:40.238] "release", "version")], collapse = " "), 1560s [00:52:40.238] hostname = base::Sys.info()[["nodename"]]) 1560s [00:52:40.238] info <- base::sprintf("%s: %s", base::names(info), 1560s [00:52:40.238] info) 1560s [00:52:40.238] info <- base::paste(info, collapse = "; ") 1560s [00:52:40.238] if (!has_future) { 1560s [00:52:40.238] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1560s [00:52:40.238] info) 1560s [00:52:40.238] } 1560s [00:52:40.238] else { 1560s [00:52:40.238] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1560s [00:52:40.238] info, version) 1560s [00:52:40.238] } 1560s [00:52:40.238] base::stop(msg) 1560s [00:52:40.238] } 1560s [00:52:40.238] }) 1560s [00:52:40.238] } 1560s [00:52:40.238] options(future.plan = NULL) 1560s [00:52:40.238] Sys.unsetenv("R_FUTURE_PLAN") 1560s [00:52:40.238] future::plan("default", .cleanup = FALSE, .init = FALSE) 1560s [00:52:40.238] } 1560s [00:52:40.238] ...future.workdir <- getwd() 1560s [00:52:40.238] } 1560s [00:52:40.238] ...future.oldOptions <- base::as.list(base::.Options) 1560s [00:52:40.238] ...future.oldEnvVars <- base::Sys.getenv() 1560s [00:52:40.238] } 1560s [00:52:40.238] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1560s [00:52:40.238] future.globals.maxSize = NULL, future.globals.method = NULL, 1560s [00:52:40.238] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1560s [00:52:40.238] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1560s [00:52:40.238] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1560s [00:52:40.238] future.stdout.windows.reencode = NULL, width = 80L) 1560s [00:52:40.238] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1560s [00:52:40.238] base::names(...future.oldOptions)) 1560s [00:52:40.238] } 1560s [00:52:40.238] if (FALSE) { 1560s [00:52:40.238] } 1560s [00:52:40.238] else { 1560s [00:52:40.238] if (TRUE) { 1560s [00:52:40.238] ...future.stdout <- base::rawConnection(base::raw(0L), 1560s [00:52:40.238] open = "w") 1560s [00:52:40.238] } 1560s [00:52:40.238] else { 1560s [00:52:40.238] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1560s [00:52:40.238] windows = "NUL", "/dev/null"), open = "w") 1560s [00:52:40.238] } 1560s [00:52:40.238] base::sink(...future.stdout, type = "output", split = FALSE) 1560s [00:52:40.238] base::on.exit(if (!base::is.null(...future.stdout)) { 1560s [00:52:40.238] base::sink(type = "output", split = FALSE) 1560s [00:52:40.238] base::close(...future.stdout) 1560s [00:52:40.238] }, add = TRUE) 1560s [00:52:40.238] } 1560s [00:52:40.238] ...future.frame <- base::sys.nframe() 1560s [00:52:40.238] ...future.conditions <- base::list() 1560s [00:52:40.238] ...future.rng <- base::globalenv()$.Random.seed 1560s [00:52:40.238] if (FALSE) { 1560s [00:52:40.238] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1560s [00:52:40.238] "...future.value", "...future.globalenv.names", ".Random.seed") 1560s [00:52:40.238] } 1560s [00:52:40.238] ...future.result <- base::tryCatch({ 1560s [00:52:40.238] base::withCallingHandlers({ 1560s [00:52:40.238] ...future.value <- base::withVisible(base::local({ 1560s [00:52:40.238] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1560s [00:52:40.238] if (!identical(...future.globals.maxSize.org, 1560s [00:52:40.238] ...future.globals.maxSize)) { 1560s [00:52:40.238] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1560s [00:52:40.238] on.exit(options(oopts), add = TRUE) 1560s [00:52:40.238] } 1560s [00:52:40.238] { 1560s [00:52:40.238] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1560s [00:52:40.238] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1560s [00:52:40.238] USE.NAMES = FALSE) 1560s [00:52:40.238] do.call(mapply, args = args) 1560s [00:52:40.238] } 1560s [00:52:40.238] })) 1560s [00:52:40.238] future::FutureResult(value = ...future.value$value, 1560s [00:52:40.238] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1560s [00:52:40.238] ...future.rng), globalenv = if (FALSE) 1560s [00:52:40.238] list(added = base::setdiff(base::names(base::.GlobalEnv), 1560s [00:52:40.238] ...future.globalenv.names)) 1560s [00:52:40.238] else NULL, started = ...future.startTime, version = "1.8") 1560s [00:52:40.238] }, condition = base::local({ 1560s [00:52:40.238] c <- base::c 1560s [00:52:40.238] inherits <- base::inherits 1560s [00:52:40.238] invokeRestart <- base::invokeRestart 1560s [00:52:40.238] length <- base::length 1560s [00:52:40.238] list <- base::list 1560s [00:52:40.238] seq.int <- base::seq.int 1560s [00:52:40.238] signalCondition <- base::signalCondition 1560s [00:52:40.238] sys.calls <- base::sys.calls 1560s [00:52:40.238] `[[` <- base::`[[` 1560s [00:52:40.238] `+` <- base::`+` 1560s [00:52:40.238] `<<-` <- base::`<<-` 1560s [00:52:40.238] sysCalls <- function(calls = sys.calls(), from = 1L) { 1560s [00:52:40.238] calls[seq.int(from = from + 12L, to = length(calls) - 1560s [00:52:40.238] 3L)] 1560s [00:52:40.238] } 1560s [00:52:40.238] function(cond) { 1560s [00:52:40.238] is_error <- inherits(cond, "error") 1560s [00:52:40.238] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1560s [00:52:40.238] NULL) 1560s [00:52:40.238] if (is_error) { 1560s [00:52:40.238] sessionInformation <- function() { 1560s [00:52:40.238] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1560s [00:52:40.238] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1560s [00:52:40.238] search = base::search(), system = base::Sys.info()) 1560s [00:52:40.238] } 1560s [00:52:40.238] ...future.conditions[[length(...future.conditions) + 1560s [00:52:40.238] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1560s [00:52:40.238] cond$call), session = sessionInformation(), 1560s [00:52:40.238] timestamp = base::Sys.time(), signaled = 0L) 1560s [00:52:40.238] signalCondition(cond) 1560s [00:52:40.238] } 1560s [00:52:40.238] else if (!ignore && TRUE && inherits(cond, c("condition", 1560s [00:52:40.238] "immediateCondition"))) { 1560s [00:52:40.238] signal <- TRUE && inherits(cond, "immediateCondition") 1560s [00:52:40.238] ...future.conditions[[length(...future.conditions) + 1560s [00:52:40.238] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1560s [00:52:40.238] if (TRUE && !signal) { 1560s [00:52:40.238] muffleCondition <- function (cond, pattern = "^muffle") 1560s [00:52:40.238] { 1560s [00:52:40.238] inherits <- base::inherits 1560s [00:52:40.238] invokeRestart <- base::invokeRestart 1560s [00:52:40.238] is.null <- base::is.null 1560s [00:52:40.238] muffled <- FALSE 1560s [00:52:40.238] if (inherits(cond, "message")) { 1560s [00:52:40.238] muffled <- grepl(pattern, "muffleMessage") 1560s [00:52:40.238] if (muffled) 1560s [00:52:40.238] invokeRestart("muffleMessage") 1560s [00:52:40.238] } 1560s [00:52:40.238] else if (inherits(cond, "warning")) { 1560s [00:52:40.238] muffled <- grepl(pattern, "muffleWarning") 1560s [00:52:40.238] if (muffled) 1560s [00:52:40.238] invokeRestart("muffleWarning") 1560s [00:52:40.238] } 1560s [00:52:40.238] else if (inherits(cond, "condition")) { 1560s [00:52:40.238] if (!is.null(pattern)) { 1560s [00:52:40.238] computeRestarts <- base::computeRestarts 1560s [00:52:40.238] grepl <- base::grepl 1560s [00:52:40.238] restarts <- computeRestarts(cond) 1560s [00:52:40.238] for (restart in restarts) { 1560s [00:52:40.238] name <- restart$name 1560s [00:52:40.238] if (is.null(name)) 1560s [00:52:40.238] next 1560s [00:52:40.238] if (!grepl(pattern, name)) 1560s [00:52:40.238] next 1560s [00:52:40.238] invokeRestart(restart) 1560s [00:52:40.238] muffled <- TRUE 1560s [00:52:40.238] break 1560s [00:52:40.238] } 1560s [00:52:40.238] } 1560s [00:52:40.238] } 1560s [00:52:40.238] invisible(muffled) 1560s [00:52:40.238] } 1560s [00:52:40.238] muffleCondition(cond, pattern = "^muffle") 1560s [00:52:40.238] } 1560s [00:52:40.238] } 1560s [00:52:40.238] else { 1560s [00:52:40.238] if (TRUE) { 1560s [00:52:40.238] muffleCondition <- function (cond, pattern = "^muffle") 1560s [00:52:40.238] { 1560s [00:52:40.238] inherits <- base::inherits 1560s [00:52:40.238] invokeRestart <- base::invokeRestart 1560s [00:52:40.238] is.null <- base::is.null 1560s [00:52:40.238] muffled <- FALSE 1560s [00:52:40.238] if (inherits(cond, "message")) { 1560s [00:52:40.238] muffled <- grepl(pattern, "muffleMessage") 1560s [00:52:40.238] if (muffled) 1560s [00:52:40.238] invokeRestart("muffleMessage") 1560s [00:52:40.238] } 1560s [00:52:40.238] else if (inherits(cond, "warning")) { 1560s [00:52:40.238] muffled <- grepl(pattern, "muffleWarning") 1560s [00:52:40.238] if (muffled) 1560s [00:52:40.238] invokeRestart("muffleWarning") 1560s [00:52:40.238] } 1560s [00:52:40.238] else if (inherits(cond, "condition")) { 1560s [00:52:40.238] if (!is.null(pattern)) { 1560s [00:52:40.238] computeRestarts <- base::computeRestarts 1560s [00:52:40.238] grepl <- base::grepl 1560s [00:52:40.238] restarts <- computeRestarts(cond) 1560s [00:52:40.238] for (restart in restarts) { 1560s [00:52:40.238] name <- restart$name 1560s [00:52:40.238] if (is.null(name)) 1560s [00:52:40.238] next 1560s [00:52:40.238] if (!grepl(pattern, name)) 1560s [00:52:40.238] next 1560s [00:52:40.238] invokeRestart(restart) 1560s [00:52:40.238] muffled <- TRUE 1560s [00:52:40.238] break 1560s [00:52:40.238] } 1560s [00:52:40.238] } 1560s [00:52:40.238] } 1560s [00:52:40.238] invisible(muffled) 1560s [00:52:40.238] } 1560s [00:52:40.238] muffleCondition(cond, pattern = "^muffle") 1560s [00:52:40.238] } 1560s [00:52:40.238] } 1560s [00:52:40.238] } 1560s [00:52:40.238] })) 1560s [00:52:40.238] }, error = function(ex) { 1560s [00:52:40.238] base::structure(base::list(value = NULL, visible = NULL, 1560s [00:52:40.238] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1560s [00:52:40.238] ...future.rng), started = ...future.startTime, 1560s [00:52:40.238] finished = Sys.time(), session_uuid = NA_character_, 1560s [00:52:40.238] version = "1.8"), class = "FutureResult") 1560s [00:52:40.238] }, finally = { 1560s [00:52:40.238] if (!identical(...future.workdir, getwd())) 1560s [00:52:40.238] setwd(...future.workdir) 1560s [00:52:40.238] { 1560s [00:52:40.238] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1560s [00:52:40.238] ...future.oldOptions$nwarnings <- NULL 1560s [00:52:40.238] } 1560s [00:52:40.238] base::options(...future.oldOptions) 1560s [00:52:40.238] if (.Platform$OS.type == "windows") { 1560s [00:52:40.238] old_names <- names(...future.oldEnvVars) 1560s [00:52:40.238] envs <- base::Sys.getenv() 1560s [00:52:40.238] names <- names(envs) 1560s [00:52:40.238] common <- intersect(names, old_names) 1560s [00:52:40.238] added <- setdiff(names, old_names) 1560s [00:52:40.238] removed <- setdiff(old_names, names) 1560s [00:52:40.238] changed <- common[...future.oldEnvVars[common] != 1560s [00:52:40.238] envs[common]] 1560s [00:52:40.238] NAMES <- toupper(changed) 1560s [00:52:40.238] args <- list() 1560s [00:52:40.238] for (kk in seq_along(NAMES)) { 1560s [00:52:40.238] name <- changed[[kk]] 1560s [00:52:40.238] NAME <- NAMES[[kk]] 1560s [00:52:40.238] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.238] next 1560s [00:52:40.238] args[[name]] <- ...future.oldEnvVars[[name]] 1560s [00:52:40.238] } 1560s [00:52:40.238] NAMES <- toupper(added) 1560s [00:52:40.238] for (kk in seq_along(NAMES)) { 1560s [00:52:40.238] name <- added[[kk]] 1560s [00:52:40.238] NAME <- NAMES[[kk]] 1560s [00:52:40.238] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.238] next 1560s [00:52:40.238] args[[name]] <- "" 1560s [00:52:40.238] } 1560s [00:52:40.238] NAMES <- toupper(removed) 1560s [00:52:40.238] for (kk in seq_along(NAMES)) { 1560s [00:52:40.238] name <- removed[[kk]] 1560s [00:52:40.238] NAME <- NAMES[[kk]] 1560s [00:52:40.238] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.238] next 1560s [00:52:40.238] args[[name]] <- ...future.oldEnvVars[[name]] 1560s [00:52:40.238] } 1560s [00:52:40.238] if (length(args) > 0) 1560s [00:52:40.238] base::do.call(base::Sys.setenv, args = args) 1560s [00:52:40.238] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1560s [00:52:40.238] } 1560s [00:52:40.238] else { 1560s [00:52:40.238] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1560s [00:52:40.238] } 1560s [00:52:40.238] { 1560s [00:52:40.238] if (base::length(...future.futureOptionsAdded) > 1560s [00:52:40.238] 0L) { 1560s [00:52:40.238] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1560s [00:52:40.238] base::names(opts) <- ...future.futureOptionsAdded 1560s [00:52:40.238] base::options(opts) 1560s [00:52:40.238] } 1560s [00:52:40.238] { 1560s [00:52:40.238] { 1560s [00:52:40.238] base::assign(".Random.seed", c(10407L, -1319993016L, 1560s [00:52:40.238] 1571290074L, -859112415L, -853775137L, 1440155893L, 1560s [00:52:40.238] -732328588L), envir = base::globalenv(), 1560s [00:52:40.238] inherits = FALSE) 1560s [00:52:40.238] NULL 1560s [00:52:40.238] } 1560s [00:52:40.238] options(future.plan = NULL) 1560s [00:52:40.238] if (is.na(NA_character_)) 1560s [00:52:40.238] Sys.unsetenv("R_FUTURE_PLAN") 1560s [00:52:40.238] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1560s [00:52:40.238] future::plan(list(function (..., envir = parent.frame()) 1560s [00:52:40.238] { 1560s [00:52:40.238] future <- SequentialFuture(..., envir = envir) 1560s [00:52:40.238] if (!future$lazy) 1560s [00:52:40.238] future <- run(future) 1560s [00:52:40.238] invisible(future) 1560s [00:52:40.238] }), .cleanup = FALSE, .init = FALSE) 1560s [00:52:40.238] } 1560s [00:52:40.238] } 1560s [00:52:40.238] } 1560s [00:52:40.238] }) 1560s [00:52:40.238] if (TRUE) { 1560s [00:52:40.238] base::sink(type = "output", split = FALSE) 1560s [00:52:40.238] if (TRUE) { 1560s [00:52:40.238] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1560s [00:52:40.238] } 1560s [00:52:40.238] else { 1560s [00:52:40.238] ...future.result["stdout"] <- base::list(NULL) 1560s [00:52:40.238] } 1560s [00:52:40.238] base::close(...future.stdout) 1560s [00:52:40.238] ...future.stdout <- NULL 1560s [00:52:40.238] } 1560s [00:52:40.238] ...future.result$conditions <- ...future.conditions 1560s [00:52:40.238] ...future.result$finished <- base::Sys.time() 1560s [00:52:40.238] ...future.result 1560s [00:52:40.238] } 1560s [00:52:40.241] assign_globals() ... 1560s [00:52:40.241] List of 5 1560s [00:52:40.241] $ ...future.FUN :function (x, ...) 1560s [00:52:40.241] $ MoreArgs : NULL 1560s [00:52:40.241] $ ...future.elements_ii :List of 2 1560s [00:52:40.241] ..$ times:List of 4 1560s [00:52:40.241] .. ..$ : int 1 1560s [00:52:40.241] .. ..$ : int 2 1560s [00:52:40.241] .. ..$ : int 3 1560s [00:52:40.241] .. ..$ : int 4 1560s [00:52:40.241] ..$ x :List of 4 1560s [00:52:40.241] .. ..$ : int 4 1560s [00:52:40.241] .. ..$ : int 3 1560s [00:52:40.241] .. ..$ : int 2 1560s [00:52:40.241] .. ..$ : int 1 1560s [00:52:40.241] $ ...future.seeds_ii : NULL 1560s [00:52:40.241] $ ...future.globals.maxSize: NULL 1560s [00:52:40.241] - attr(*, "where")=List of 5 1560s [00:52:40.241] ..$ ...future.FUN : 1560s [00:52:40.241] ..$ MoreArgs : 1560s [00:52:40.241] ..$ ...future.elements_ii : 1560s [00:52:40.241] ..$ ...future.seeds_ii : 1560s [00:52:40.241] ..$ ...future.globals.maxSize: 1560s [00:52:40.241] - attr(*, "resolved")= logi FALSE 1560s [00:52:40.241] - attr(*, "total_size")= num 504 1560s [00:52:40.241] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1560s [00:52:40.241] - attr(*, "already-done")= logi TRUE 1560s [00:52:40.255] - copied ‘...future.FUN’ to environment 1560s [00:52:40.255] - copied ‘MoreArgs’ to environment 1560s [00:52:40.256] - copied ‘...future.elements_ii’ to environment 1560s [00:52:40.256] - copied ‘...future.seeds_ii’ to environment 1560s [00:52:40.256] - copied ‘...future.globals.maxSize’ to environment 1560s [00:52:40.256] assign_globals() ... done 1560s [00:52:40.256] plan(): Setting new future strategy stack: 1560s [00:52:40.257] List of future strategies: 1560s [00:52:40.257] 1. sequential: 1560s [00:52:40.257] - args: function (..., envir = parent.frame()) 1560s [00:52:40.257] - tweaked: FALSE 1560s [00:52:40.257] - call: NULL 1560s [00:52:40.257] plan(): nbrOfWorkers() = 1 1560s [00:52:40.258] plan(): Setting new future strategy stack: 1560s [00:52:40.258] List of future strategies: 1560s [00:52:40.258] 1. sequential: 1560s [00:52:40.258] - args: function (..., envir = parent.frame()) 1560s [00:52:40.258] - tweaked: FALSE 1560s [00:52:40.258] - call: plan(strategy) 1560s [00:52:40.259] plan(): nbrOfWorkers() = 1 1560s [00:52:40.259] SequentialFuture started (and completed) 1560s [00:52:40.259] - Launch lazy future ... done 1560s [00:52:40.259] run() for ‘SequentialFuture’ ... done 1560s [00:52:40.259] Created future: 1560s [00:52:40.259] SequentialFuture: 1560s [00:52:40.259] Label: ‘future_mapply-1’ 1560s [00:52:40.259] Expression: 1560s [00:52:40.259] { 1560s [00:52:40.259] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1560s [00:52:40.259] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1560s [00:52:40.259] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1560s [00:52:40.259] on.exit(options(oopts), add = TRUE) 1560s [00:52:40.259] } 1560s [00:52:40.259] { 1560s [00:52:40.259] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1560s [00:52:40.259] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1560s [00:52:40.259] do.call(mapply, args = args) 1560s [00:52:40.259] } 1560s [00:52:40.259] } 1560s [00:52:40.259] Lazy evaluation: FALSE 1560s [00:52:40.259] Asynchronous evaluation: FALSE 1560s [00:52:40.259] Local evaluation: TRUE 1560s [00:52:40.259] Environment: R_GlobalEnv 1560s [00:52:40.259] Capture standard output: TRUE 1560s [00:52:40.259] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1560s [00:52:40.259] Globals: 5 objects totaling 504 bytes (function ‘...future.FUN’ of 56 bytes, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 448 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1560s [00:52:40.259] Packages: 1560s [00:52:40.259] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1560s [00:52:40.259] Resolved: TRUE 1560s [00:52:40.259] Value: 240 bytes of class ‘list’ 1560s [00:52:40.259] Early signaling: FALSE 1560s [00:52:40.259] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1560s [00:52:40.259] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1560s [00:52:40.262] Chunk #1 of 1 ... DONE 1560s [00:52:40.262] Launching 1 futures (chunks) ... DONE 1560s [00:52:40.262] Resolving 1 futures (chunks) ... 1560s [00:52:40.262] resolve() on list ... 1560s [00:52:40.263] recursive: 0 1560s [00:52:40.263] length: 1 1560s [00:52:40.263] 1560s [00:52:40.263] resolved() for ‘SequentialFuture’ ... 1560s [00:52:40.264] - state: ‘finished’ 1560s [00:52:40.264] - run: TRUE 1560s [00:52:40.264] - result: ‘FutureResult’ 1560s [00:52:40.265] resolved() for ‘SequentialFuture’ ... done 1560s [00:52:40.265] Future #1 1560s [00:52:40.266] signalConditionsASAP(SequentialFuture, pos=1) ... 1560s [00:52:40.266] - nx: 1 1560s [00:52:40.266] - relay: TRUE 1560s [00:52:40.266] - stdout: TRUE 1560s [00:52:40.266] - signal: TRUE 1560s [00:52:40.266] - resignal: FALSE 1560s [00:52:40.266] - force: TRUE 1560s [00:52:40.267] - relayed: [n=1] FALSE 1560s [00:52:40.267] - queued futures: [n=1] FALSE 1560s [00:52:40.267] - until=1 1560s [00:52:40.267] - relaying element #1 1560s [00:52:40.268] - relayed: [n=1] TRUE 1560s [00:52:40.268] - queued futures: [n=1] TRUE 1560s [00:52:40.268] signalConditionsASAP(SequentialFuture, pos=1) ... done 1560s [00:52:40.268] length: 0 (resolved future 1) 1560s [00:52:40.269] Relaying remaining futures 1560s [00:52:40.269] signalConditionsASAP(NULL, pos=0) ... 1560s [00:52:40.269] - nx: 1 1560s [00:52:40.269] - relay: TRUE 1560s [00:52:40.270] - stdout: TRUE 1560s [00:52:40.270] - signal: TRUE 1560s [00:52:40.270] - resignal: FALSE 1560s [00:52:40.270] - force: TRUE 1560s [00:52:40.270] - relayed: [n=1] TRUE 1560s [00:52:40.270] - queued futures: [n=1] TRUE 1560s - flush all 1560s [00:52:40.271] - relayed: [n=1] TRUE 1560s [00:52:40.271] - queued futures: [n=1] TRUE 1560s [00:52:40.271] signalConditionsASAP(NULL, pos=0) ... done 1560s [00:52:40.271] resolve() on list ... DONE 1560s [00:52:40.272] - Number of value chunks collected: 1 1560s [00:52:40.272] Resolving 1 futures (chunks) ... DONE 1560s [00:52:40.272] Reducing values from 1 chunks ... 1560s [00:52:40.272] - Number of values collected after concatenation: 4 1560s [00:52:40.273] - Number of values expected: 4 1560s [00:52:40.273] Reducing values from 1 chunks ... DONE 1560s [00:52:40.273] future_mapply() ... DONE 1560s [00:52:40.273] future_mapply() ... 1560s [00:52:40.274] Number of chunks: 1 1560s [00:52:40.274] getGlobalsAndPackagesXApply() ... 1560s [00:52:40.274] - future.globals: TRUE 1560s [00:52:40.274] getGlobalsAndPackages() ... 1560s [00:52:40.274] Searching for globals... 1560s [00:52:40.275] - globals found: [1] ‘FUN’ 1560s [00:52:40.275] Searching for globals ... DONE 1560s [00:52:40.275] Resolving globals: FALSE 1560s [00:52:40.276] The total size of the 1 globals is 56 bytes (56 bytes) 1560s [00:52:40.276] The total size of the 1 globals exported for future expression (‘FUN(x = 42)’) is 56 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (56 bytes of class ‘function’) 1560s [00:52:40.276] - globals: [1] ‘FUN’ 1560s [00:52:40.276] 1560s [00:52:40.276] getGlobalsAndPackages() ... DONE 1560s [00:52:40.277] - globals found/used: [n=1] ‘FUN’ 1560s [00:52:40.277] - needed namespaces: [n=0] 1560s [00:52:40.277] Finding globals ... DONE 1560s [00:52:40.277] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1560s [00:52:40.277] List of 2 1560s [00:52:40.277] $ ...future.FUN:function (x, ...) 1560s [00:52:40.277] $ MoreArgs :List of 1 1560s [00:52:40.277] ..$ x: num 42 1560s [00:52:40.277] - attr(*, "where")=List of 2 1560s [00:52:40.277] ..$ ...future.FUN: 1560s [00:52:40.277] ..$ MoreArgs : 1560s [00:52:40.277] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1560s [00:52:40.277] - attr(*, "resolved")= logi FALSE 1560s [00:52:40.277] - attr(*, "total_size")= num NA 1560s [00:52:40.284] Packages to be attached in all futures: [n=0] 1560s [00:52:40.285] getGlobalsAndPackagesXApply() ... DONE 1560s [00:52:40.285] Number of futures (= number of chunks): 1 1560s [00:52:40.285] Launching 1 futures (chunks) ... 1560s [00:52:40.285] Chunk #1 of 1 ... 1560s [00:52:40.285] - Finding globals in '...' for chunk #1 ... 1560s [00:52:40.286] getGlobalsAndPackages() ... 1560s [00:52:40.286] Searching for globals... 1560s [00:52:40.286] 1560s [00:52:40.286] Searching for globals ... DONE 1560s [00:52:40.286] - globals: [0] 1560s [00:52:40.286] getGlobalsAndPackages() ... DONE 1560s [00:52:40.286] + additional globals found: [n=0] 1560s [00:52:40.287] + additional namespaces needed: [n=0] 1560s [00:52:40.287] - Finding globals in '...' for chunk #1 ... DONE 1560s [00:52:40.287] - seeds: 1560s [00:52:40.287] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.287] getGlobalsAndPackages() ... 1560s [00:52:40.287] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.288] Resolving globals: FALSE 1560s [00:52:40.288] The total size of the 5 globals is 336 bytes (336 bytes) 1560s [00:52:40.289] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 336 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.elements_ii’ (224 bytes of class ‘list’), ‘...future.FUN’ (56 bytes of class ‘function’) and ‘MoreArgs’ (56 bytes of class ‘list’) 1560s [00:52:40.289] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.289] 1560s [00:52:40.289] getGlobalsAndPackages() ... DONE 1560s [00:52:40.290] run() for ‘Future’ ... 1560s [00:52:40.290] - state: ‘created’ 1560s [00:52:40.290] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1560s [00:52:40.291] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1560s [00:52:40.291] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1560s [00:52:40.291] - Field: ‘label’ 1560s [00:52:40.291] - Field: ‘local’ 1560s [00:52:40.291] - Field: ‘owner’ 1560s [00:52:40.292] - Field: ‘envir’ 1560s [00:52:40.292] - Field: ‘packages’ 1560s [00:52:40.292] - Field: ‘gc’ 1560s [00:52:40.292] - Field: ‘conditions’ 1560s [00:52:40.292] - Field: ‘expr’ 1560s [00:52:40.292] - Field: ‘uuid’ 1560s [00:52:40.293] - Field: ‘seed’ 1560s [00:52:40.293] - Field: ‘version’ 1560s [00:52:40.293] - Field: ‘result’ 1560s [00:52:40.293] - Field: ‘asynchronous’ 1560s [00:52:40.293] - Field: ‘calls’ 1560s [00:52:40.293] - Field: ‘globals’ 1560s [00:52:40.294] - Field: ‘stdout’ 1560s [00:52:40.294] - Field: ‘earlySignal’ 1560s [00:52:40.294] - Field: ‘lazy’ 1560s [00:52:40.294] - Field: ‘state’ 1560s [00:52:40.294] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1560s [00:52:40.294] - Launch lazy future ... 1560s [00:52:40.295] Packages needed by the future expression (n = 0): 1560s [00:52:40.295] Packages needed by future strategies (n = 0): 1560s [00:52:40.295] { 1560s [00:52:40.295] { 1560s [00:52:40.295] { 1560s [00:52:40.295] ...future.startTime <- base::Sys.time() 1560s [00:52:40.295] { 1560s [00:52:40.295] { 1560s [00:52:40.295] { 1560s [00:52:40.295] base::local({ 1560s [00:52:40.295] has_future <- base::requireNamespace("future", 1560s [00:52:40.295] quietly = TRUE) 1560s [00:52:40.295] if (has_future) { 1560s [00:52:40.295] ns <- base::getNamespace("future") 1560s [00:52:40.295] version <- ns[[".package"]][["version"]] 1560s [00:52:40.295] if (is.null(version)) 1560s [00:52:40.295] version <- utils::packageVersion("future") 1560s [00:52:40.295] } 1560s [00:52:40.295] else { 1560s [00:52:40.295] version <- NULL 1560s [00:52:40.295] } 1560s [00:52:40.295] if (!has_future || version < "1.8.0") { 1560s [00:52:40.295] info <- base::c(r_version = base::gsub("R version ", 1560s [00:52:40.295] "", base::R.version$version.string), 1560s [00:52:40.295] platform = base::sprintf("%s (%s-bit)", 1560s [00:52:40.295] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1560s [00:52:40.295] os = base::paste(base::Sys.info()[base::c("sysname", 1560s [00:52:40.295] "release", "version")], collapse = " "), 1560s [00:52:40.295] hostname = base::Sys.info()[["nodename"]]) 1560s [00:52:40.295] info <- base::sprintf("%s: %s", base::names(info), 1560s [00:52:40.295] info) 1560s [00:52:40.295] info <- base::paste(info, collapse = "; ") 1560s [00:52:40.295] if (!has_future) { 1560s [00:52:40.295] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1560s [00:52:40.295] info) 1560s [00:52:40.295] } 1560s [00:52:40.295] else { 1560s [00:52:40.295] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1560s [00:52:40.295] info, version) 1560s [00:52:40.295] } 1560s [00:52:40.295] base::stop(msg) 1560s [00:52:40.295] } 1560s [00:52:40.295] }) 1560s [00:52:40.295] } 1560s [00:52:40.295] options(future.plan = NULL) 1560s [00:52:40.295] Sys.unsetenv("R_FUTURE_PLAN") 1560s [00:52:40.295] future::plan("default", .cleanup = FALSE, .init = FALSE) 1560s [00:52:40.295] } 1560s [00:52:40.295] ...future.workdir <- getwd() 1560s [00:52:40.295] } 1560s [00:52:40.295] ...future.oldOptions <- base::as.list(base::.Options) 1560s [00:52:40.295] ...future.oldEnvVars <- base::Sys.getenv() 1560s [00:52:40.295] } 1560s [00:52:40.295] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1560s [00:52:40.295] future.globals.maxSize = NULL, future.globals.method = NULL, 1560s [00:52:40.295] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1560s [00:52:40.295] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1560s [00:52:40.295] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1560s [00:52:40.295] future.stdout.windows.reencode = NULL, width = 80L) 1560s [00:52:40.295] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1560s [00:52:40.295] base::names(...future.oldOptions)) 1560s [00:52:40.295] } 1560s [00:52:40.295] if (FALSE) { 1560s [00:52:40.295] } 1560s [00:52:40.295] else { 1560s [00:52:40.295] if (TRUE) { 1560s [00:52:40.295] ...future.stdout <- base::rawConnection(base::raw(0L), 1560s [00:52:40.295] open = "w") 1560s [00:52:40.295] } 1560s [00:52:40.295] else { 1560s [00:52:40.295] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1560s [00:52:40.295] windows = "NUL", "/dev/null"), open = "w") 1560s [00:52:40.295] } 1560s [00:52:40.295] base::sink(...future.stdout, type = "output", split = FALSE) 1560s [00:52:40.295] base::on.exit(if (!base::is.null(...future.stdout)) { 1560s [00:52:40.295] base::sink(type = "output", split = FALSE) 1560s [00:52:40.295] base::close(...future.stdout) 1560s [00:52:40.295] }, add = TRUE) 1560s [00:52:40.295] } 1560s [00:52:40.295] ...future.frame <- base::sys.nframe() 1560s [00:52:40.295] ...future.conditions <- base::list() 1560s [00:52:40.295] ...future.rng <- base::globalenv()$.Random.seed 1560s [00:52:40.295] if (FALSE) { 1560s [00:52:40.295] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1560s [00:52:40.295] "...future.value", "...future.globalenv.names", ".Random.seed") 1560s [00:52:40.295] } 1560s [00:52:40.295] ...future.result <- base::tryCatch({ 1560s [00:52:40.295] base::withCallingHandlers({ 1560s [00:52:40.295] ...future.value <- base::withVisible(base::local({ 1560s [00:52:40.295] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1560s [00:52:40.295] if (!identical(...future.globals.maxSize.org, 1560s [00:52:40.295] ...future.globals.maxSize)) { 1560s [00:52:40.295] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1560s [00:52:40.295] on.exit(options(oopts), add = TRUE) 1560s [00:52:40.295] } 1560s [00:52:40.295] { 1560s [00:52:40.295] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1560s [00:52:40.295] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1560s [00:52:40.295] USE.NAMES = FALSE) 1560s [00:52:40.295] do.call(mapply, args = args) 1560s [00:52:40.295] } 1560s [00:52:40.295] })) 1560s [00:52:40.295] future::FutureResult(value = ...future.value$value, 1560s [00:52:40.295] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1560s [00:52:40.295] ...future.rng), globalenv = if (FALSE) 1560s [00:52:40.295] list(added = base::setdiff(base::names(base::.GlobalEnv), 1560s [00:52:40.295] ...future.globalenv.names)) 1560s [00:52:40.295] else NULL, started = ...future.startTime, version = "1.8") 1560s [00:52:40.295] }, condition = base::local({ 1560s [00:52:40.295] c <- base::c 1560s [00:52:40.295] inherits <- base::inherits 1560s [00:52:40.295] invokeRestart <- base::invokeRestart 1560s [00:52:40.295] length <- base::length 1560s [00:52:40.295] list <- base::list 1560s [00:52:40.295] seq.int <- base::seq.int 1560s [00:52:40.295] signalCondition <- base::signalCondition 1560s [00:52:40.295] sys.calls <- base::sys.calls 1560s [00:52:40.295] `[[` <- base::`[[` 1560s [00:52:40.295] `+` <- base::`+` 1560s [00:52:40.295] `<<-` <- base::`<<-` 1560s [00:52:40.295] sysCalls <- function(calls = sys.calls(), from = 1L) { 1560s [00:52:40.295] calls[seq.int(from = from + 12L, to = length(calls) - 1560s [00:52:40.295] 3L)] 1560s [00:52:40.295] } 1560s [00:52:40.295] function(cond) { 1560s [00:52:40.295] is_error <- inherits(cond, "error") 1560s [00:52:40.295] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1560s [00:52:40.295] NULL) 1560s [00:52:40.295] if (is_error) { 1560s [00:52:40.295] sessionInformation <- function() { 1560s [00:52:40.295] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1560s [00:52:40.295] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1560s [00:52:40.295] search = base::search(), system = base::Sys.info()) 1560s [00:52:40.295] } 1560s [00:52:40.295] ...future.conditions[[length(...future.conditions) + 1560s [00:52:40.295] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1560s [00:52:40.295] cond$call), session = sessionInformation(), 1560s [00:52:40.295] timestamp = base::Sys.time(), signaled = 0L) 1560s [00:52:40.295] signalCondition(cond) 1560s [00:52:40.295] } 1560s [00:52:40.295] else if (!ignore && TRUE && inherits(cond, c("condition", 1560s [00:52:40.295] "immediateCondition"))) { 1560s [00:52:40.295] signal <- TRUE && inherits(cond, "immediateCondition") 1560s [00:52:40.295] ...future.conditions[[length(...future.conditions) + 1560s [00:52:40.295] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1560s [00:52:40.295] if (TRUE && !signal) { 1560s [00:52:40.295] muffleCondition <- function (cond, pattern = "^muffle") 1560s [00:52:40.295] { 1560s [00:52:40.295] inherits <- base::inherits 1560s [00:52:40.295] invokeRestart <- base::invokeRestart 1560s [00:52:40.295] is.null <- base::is.null 1560s [00:52:40.295] muffled <- FALSE 1560s [00:52:40.295] if (inherits(cond, "message")) { 1560s [00:52:40.295] muffled <- grepl(pattern, "muffleMessage") 1560s [00:52:40.295] if (muffled) 1560s [00:52:40.295] invokeRestart("muffleMessage") 1560s [00:52:40.295] } 1560s [00:52:40.295] else if (inherits(cond, "warning")) { 1560s [00:52:40.295] muffled <- grepl(pattern, "muffleWarning") 1560s [00:52:40.295] if (muffled) 1560s [00:52:40.295] invokeRestart("muffleWarning") 1560s [00:52:40.295] } 1560s [00:52:40.295] else if (inherits(cond, "condition")) { 1560s [00:52:40.295] if (!is.null(pattern)) { 1560s [00:52:40.295] computeRestarts <- base::computeRestarts 1560s [00:52:40.295] grepl <- base::grepl 1560s [00:52:40.295] restarts <- computeRestarts(cond) 1560s [00:52:40.295] for (restart in restarts) { 1560s [00:52:40.295] name <- restart$name 1560s [00:52:40.295] if (is.null(name)) 1560s [00:52:40.295] next 1560s [00:52:40.295] if (!grepl(pattern, name)) 1560s [00:52:40.295] next 1560s [00:52:40.295] invokeRestart(restart) 1560s [00:52:40.295] muffled <- TRUE 1560s [00:52:40.295] break 1560s [00:52:40.295] } 1560s [00:52:40.295] } 1560s [00:52:40.295] } 1560s [00:52:40.295] invisible(muffled) 1560s [00:52:40.295] } 1560s [00:52:40.295] muffleCondition(cond, pattern = "^muffle") 1560s [00:52:40.295] } 1560s [00:52:40.295] } 1560s [00:52:40.295] else { 1560s [00:52:40.295] if (TRUE) { 1560s [00:52:40.295] muffleCondition <- function (cond, pattern = "^muffle") 1560s [00:52:40.295] { 1560s [00:52:40.295] inherits <- base::inherits 1560s [00:52:40.295] invokeRestart <- base::invokeRestart 1560s [00:52:40.295] is.null <- base::is.null 1560s [00:52:40.295] muffled <- FALSE 1560s [00:52:40.295] if (inherits(cond, "message")) { 1560s [00:52:40.295] muffled <- grepl(pattern, "muffleMessage") 1560s [00:52:40.295] if (muffled) 1560s [00:52:40.295] invokeRestart("muffleMessage") 1560s [00:52:40.295] } 1560s [00:52:40.295] else if (inherits(cond, "warning")) { 1560s [00:52:40.295] muffled <- grepl(pattern, "muffleWarning") 1560s [00:52:40.295] if (muffled) 1560s [00:52:40.295] invokeRestart("muffleWarning") 1560s [00:52:40.295] } 1560s [00:52:40.295] else if (inherits(cond, "condition")) { 1560s [00:52:40.295] if (!is.null(pattern)) { 1560s [00:52:40.295] computeRestarts <- base::computeRestarts 1560s [00:52:40.295] grepl <- base::grepl 1560s [00:52:40.295] restarts <- computeRestarts(cond) 1560s [00:52:40.295] for (restart in restarts) { 1560s [00:52:40.295] name <- restart$name 1560s [00:52:40.295] if (is.null(name)) 1560s [00:52:40.295] next 1560s [00:52:40.295] if (!grepl(pattern, name)) 1560s [00:52:40.295] next 1560s [00:52:40.295] invokeRestart(restart) 1560s [00:52:40.295] muffled <- TRUE 1560s [00:52:40.295] break 1560s [00:52:40.295] } 1560s [00:52:40.295] } 1560s [00:52:40.295] } 1560s [00:52:40.295] invisible(muffled) 1560s [00:52:40.295] } 1560s [00:52:40.295] muffleCondition(cond, pattern = "^muffle") 1560s [00:52:40.295] } 1560s [00:52:40.295] } 1560s [00:52:40.295] } 1560s [00:52:40.295] })) 1560s [00:52:40.295] }, error = function(ex) { 1560s [00:52:40.295] base::structure(base::list(value = NULL, visible = NULL, 1560s [00:52:40.295] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1560s [00:52:40.295] ...future.rng), started = ...future.startTime, 1560s [00:52:40.295] finished = Sys.time(), session_uuid = NA_character_, 1560s [00:52:40.295] version = "1.8"), class = "FutureResult") 1560s [00:52:40.295] }, finally = { 1560s [00:52:40.295] if (!identical(...future.workdir, getwd())) 1560s [00:52:40.295] setwd(...future.workdir) 1560s [00:52:40.295] { 1560s [00:52:40.295] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1560s [00:52:40.295] ...future.oldOptions$nwarnings <- NULL 1560s [00:52:40.295] } 1560s [00:52:40.295] base::options(...future.oldOptions) 1560s [00:52:40.295] if (.Platform$OS.type == "windows") { 1560s [00:52:40.295] old_names <- names(...future.oldEnvVars) 1560s [00:52:40.295] envs <- base::Sys.getenv() 1560s [00:52:40.295] names <- names(envs) 1560s [00:52:40.295] common <- intersect(names, old_names) 1560s [00:52:40.295] added <- setdiff(names, old_names) 1560s [00:52:40.295] removed <- setdiff(old_names, names) 1560s [00:52:40.295] changed <- common[...future.oldEnvVars[common] != 1560s [00:52:40.295] envs[common]] 1560s [00:52:40.295] NAMES <- toupper(changed) 1560s [00:52:40.295] args <- list() 1560s [00:52:40.295] for (kk in seq_along(NAMES)) { 1560s [00:52:40.295] name <- changed[[kk]] 1560s [00:52:40.295] NAME <- NAMES[[kk]] 1560s [00:52:40.295] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.295] next 1560s [00:52:40.295] args[[name]] <- ...future.oldEnvVars[[name]] 1560s [00:52:40.295] } 1560s [00:52:40.295] NAMES <- toupper(added) 1560s [00:52:40.295] for (kk in seq_along(NAMES)) { 1560s [00:52:40.295] name <- added[[kk]] 1560s [00:52:40.295] NAME <- NAMES[[kk]] 1560s [00:52:40.295] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.295] next 1560s [00:52:40.295] args[[name]] <- "" 1560s [00:52:40.295] } 1560s [00:52:40.295] NAMES <- toupper(removed) 1560s [00:52:40.295] for (kk in seq_along(NAMES)) { 1560s [00:52:40.295] name <- removed[[kk]] 1560s [00:52:40.295] NAME <- NAMES[[kk]] 1560s [00:52:40.295] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.295] next 1560s [00:52:40.295] args[[name]] <- ...future.oldEnvVars[[name]] 1560s [00:52:40.295] } 1560s [00:52:40.295] if (length(args) > 0) 1560s [00:52:40.295] base::do.call(base::Sys.setenv, args = args) 1560s [00:52:40.295] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1560s [00:52:40.295] } 1560s [00:52:40.295] else { 1560s [00:52:40.295] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1560s [00:52:40.295] } 1560s [00:52:40.295] { 1560s [00:52:40.295] if (base::length(...future.futureOptionsAdded) > 1560s [00:52:40.295] 0L) { 1560s [00:52:40.295] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1560s [00:52:40.295] base::names(opts) <- ...future.futureOptionsAdded 1560s [00:52:40.295] base::options(opts) 1560s [00:52:40.295] } 1560s [00:52:40.295] { 1560s [00:52:40.295] { 1560s [00:52:40.295] base::assign(".Random.seed", c(10407L, -1319993016L, 1560s [00:52:40.295] 1571290074L, -859112415L, -853775137L, 1440155893L, 1560s [00:52:40.295] -732328588L), envir = base::globalenv(), 1560s [00:52:40.295] inherits = FALSE) 1560s [00:52:40.295] NULL 1560s [00:52:40.295] } 1560s [00:52:40.295] options(future.plan = NULL) 1560s [00:52:40.295] if (is.na(NA_character_)) 1560s [00:52:40.295] Sys.unsetenv("R_FUTURE_PLAN") 1560s [00:52:40.295] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1560s [00:52:40.295] future::plan(list(function (..., envir = parent.frame()) 1560s [00:52:40.295] { 1560s [00:52:40.295] future <- SequentialFuture(..., envir = envir) 1560s [00:52:40.295] if (!future$lazy) 1560s [00:52:40.295] future <- run(future) 1560s [00:52:40.295] invisible(future) 1560s [00:52:40.295] }), .cleanup = FALSE, .init = FALSE) 1560s [00:52:40.295] } 1560s [00:52:40.295] } 1560s [00:52:40.295] } 1560s [00:52:40.295] }) 1560s [00:52:40.295] if (TRUE) { 1560s [00:52:40.295] base::sink(type = "output", split = FALSE) 1560s [00:52:40.295] if (TRUE) { 1560s [00:52:40.295] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1560s [00:52:40.295] } 1560s [00:52:40.295] else { 1560s [00:52:40.295] ...future.result["stdout"] <- base::list(NULL) 1560s [00:52:40.295] } 1560s [00:52:40.295] base::close(...future.stdout) 1560s [00:52:40.295] ...future.stdout <- NULL 1560s [00:52:40.295] } 1560s [00:52:40.295] ...future.result$conditions <- ...future.conditions 1560s [00:52:40.295] ...future.result$finished <- base::Sys.time() 1560s [00:52:40.295] ...future.result 1560s [00:52:40.295] } 1560s [00:52:40.299] assign_globals() ... 1560s [00:52:40.300] List of 5 1560s [00:52:40.300] $ ...future.FUN :function (x, ...) 1560s [00:52:40.300] $ MoreArgs :List of 1 1560s [00:52:40.300] ..$ x: num 42 1560s [00:52:40.300] $ ...future.elements_ii :List of 1 1560s [00:52:40.300] ..$ times:List of 4 1560s [00:52:40.300] .. ..$ : int 1 1560s [00:52:40.300] .. ..$ : int 2 1560s [00:52:40.300] .. ..$ : int 3 1560s [00:52:40.300] .. ..$ : int 4 1560s [00:52:40.300] $ ...future.seeds_ii : NULL 1560s [00:52:40.300] $ ...future.globals.maxSize: NULL 1560s [00:52:40.300] - attr(*, "where")=List of 5 1560s [00:52:40.300] ..$ ...future.FUN : 1560s [00:52:40.300] ..$ MoreArgs : 1560s [00:52:40.300] ..$ ...future.elements_ii : 1560s [00:52:40.300] ..$ ...future.seeds_ii : 1560s [00:52:40.300] ..$ ...future.globals.maxSize: 1560s [00:52:40.300] - attr(*, "resolved")= logi FALSE 1560s [00:52:40.300] - attr(*, "total_size")= num 336 1560s [00:52:40.300] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1560s [00:52:40.300] - attr(*, "already-done")= logi TRUE 1560s [00:52:40.307] - copied ‘...future.FUN’ to environment 1560s [00:52:40.307] - copied ‘MoreArgs’ to environment 1560s [00:52:40.308] - copied ‘...future.elements_ii’ to environment 1560s [00:52:40.308] - copied ‘...future.seeds_ii’ to environment 1560s [00:52:40.308] - copied ‘...future.globals.maxSize’ to environment 1560s [00:52:40.308] assign_globals() ... done 1560s [00:52:40.308] plan(): Setting new future strategy stack: 1560s [00:52:40.309] List of future strategies: 1560s [00:52:40.309] 1. sequential: 1560s [00:52:40.309] - args: function (..., envir = parent.frame()) 1560s [00:52:40.309] - tweaked: FALSE 1560s [00:52:40.309] - call: NULL 1560s [00:52:40.309] plan(): nbrOfWorkers() = 1 1560s [00:52:40.310] plan(): Setting new future strategy stack: 1560s [00:52:40.310] List of future strategies: 1560s [00:52:40.310] 1. sequential: 1560s [00:52:40.310] - args: function (..., envir = parent.frame()) 1560s [00:52:40.310] - tweaked: FALSE 1560s [00:52:40.310] - call: plan(strategy) 1560s [00:52:40.311] plan(): nbrOfWorkers() = 1 1560s [00:52:40.311] SequentialFuture started (and completed) 1560s [00:52:40.312] - Launch lazy future ... done 1560s [00:52:40.312] run() for ‘SequentialFuture’ ... done 1560s [00:52:40.312] Created future: 1560s [00:52:40.312] SequentialFuture: 1560s [00:52:40.312] Label: ‘future_mapply-1’ 1560s [00:52:40.312] Expression: 1560s [00:52:40.312] { 1560s [00:52:40.312] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1560s [00:52:40.312] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1560s [00:52:40.312] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1560s [00:52:40.312] on.exit(options(oopts), add = TRUE) 1560s [00:52:40.312] } 1560s [00:52:40.312] { 1560s [00:52:40.312] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1560s [00:52:40.312] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1560s [00:52:40.312] do.call(mapply, args = args) 1560s [00:52:40.312] } 1560s [00:52:40.312] } 1560s [00:52:40.312] Lazy evaluation: FALSE 1560s [00:52:40.312] Asynchronous evaluation: FALSE 1560s [00:52:40.312] Local evaluation: TRUE 1560s [00:52:40.312] Environment: R_GlobalEnv 1560s [00:52:40.312] Capture standard output: TRUE 1560s [00:52:40.312] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1560s [00:52:40.312] Globals: 5 objects totaling 336 bytes (function ‘...future.FUN’ of 56 bytes, list ‘MoreArgs’ of 56 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1560s [00:52:40.312] Packages: 1560s [00:52:40.312] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1560s [00:52:40.312] Resolved: TRUE 1560s [00:52:40.312] Value: 280 bytes of class ‘list’ 1560s [00:52:40.312] Early signaling: FALSE 1560s [00:52:40.312] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1560s [00:52:40.312] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1560s [00:52:40.314] Chunk #1 of 1 ... DONE 1560s [00:52:40.314] Launching 1 futures (chunks) ... DONE 1560s [00:52:40.314] Resolving 1 futures (chunks) ... 1560s [00:52:40.314] resolve() on list ... 1560s [00:52:40.315] recursive: 0 1560s [00:52:40.315] length: 1 1560s [00:52:40.315] 1560s [00:52:40.315] resolved() for ‘SequentialFuture’ ... 1560s [00:52:40.315] - state: ‘finished’ 1560s [00:52:40.315] - run: TRUE 1560s [00:52:40.315] - result: ‘FutureResult’ 1560s [00:52:40.316] resolved() for ‘SequentialFuture’ ... done 1560s [00:52:40.316] Future #1 1560s [00:52:40.316] signalConditionsASAP(SequentialFuture, pos=1) ... 1560s [00:52:40.316] - nx: 1 1560s [00:52:40.316] - relay: TRUE 1560s [00:52:40.316] - stdout: TRUE 1560s [00:52:40.317] - signal: TRUE 1560s [00:52:40.317] - resignal: FALSE 1560s [00:52:40.317] - force: TRUE 1560s [00:52:40.317] - relayed: [n=1] FALSE 1560s [00:52:40.317] - queued futures: [n=1] FALSE 1560s [00:52:40.317] - until=1 1560s [00:52:40.317] - relaying element #1 1560s [00:52:40.320] - relayed: [n=1] TRUE 1560s [00:52:40.320] - queued futures: [n=1] TRUE 1560s [00:52:40.320] signalConditionsASAP(SequentialFuture, pos=1) ... done 1560s [00:52:40.320] length: 0 (resolved future 1) 1560s [00:52:40.320] Relaying remaining futures 1560s [00:52:40.320] signalConditionsASAP(NULL, pos=0) ... 1560s [00:52:40.320] - nx: 1 1560s [00:52:40.321] - relay: TRUE 1560s [00:52:40.321] - stdout: TRUE 1560s [00:52:40.321] - signal: TRUE 1560s [00:52:40.321] - resignal: FALSE 1560s [00:52:40.321] - force: TRUE 1560s [00:52:40.321] - relayed: [n=1] TRUE 1560s [00:52:40.321] - queued futures: [n=1] TRUE 1560s - flush all 1560s [00:52:40.322] - relayed: [n=1] TRUE 1560s [00:52:40.322] - queued futures: [n=1] TRUE 1560s [00:52:40.322] signalConditionsASAP(NULL, pos=0) ... done 1560s [00:52:40.322] resolve() on list ... DONE 1560s [00:52:40.322] - Number of value chunks collected: 1 1560s [00:52:40.322] Resolving 1 futures (chunks) ... DONE 1560s [00:52:40.322] Reducing values from 1 chunks ... 1560s [00:52:40.323] - Number of values collected after concatenation: 4 1560s [00:52:40.323] - Number of values expected: 4 1560s [00:52:40.323] Reducing values from 1 chunks ... DONE 1560s [00:52:40.323] future_mapply() ... DONE 1560s [00:52:40.323] future_mapply() ... 1560s [00:52:40.323] Number of chunks: 1 1560s [00:52:40.323] getGlobalsAndPackagesXApply() ... 1560s [00:52:40.324] - future.globals: TRUE 1560s [00:52:40.324] getGlobalsAndPackages() ... 1560s [00:52:40.324] Searching for globals... 1560s [00:52:40.325] - globals found: [3] ‘FUN’, ‘+’, ‘seq_len’ 1560s [00:52:40.326] Searching for globals ... DONE 1560s [00:52:40.326] Resolving globals: FALSE 1560s [00:52:40.326] The total size of the 1 globals is 1.93 KiB (1976 bytes) 1560s [00:52:40.327] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.93 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.93 KiB of class ‘function’) 1560s [00:52:40.327] - globals: [1] ‘FUN’ 1560s [00:52:40.327] 1560s [00:52:40.327] getGlobalsAndPackages() ... DONE 1560s [00:52:40.327] - globals found/used: [n=1] ‘FUN’ 1560s [00:52:40.327] - needed namespaces: [n=0] 1560s [00:52:40.327] Finding globals ... DONE 1560s [00:52:40.327] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1560s [00:52:40.328] List of 2 1560s [00:52:40.328] $ ...future.FUN:function (x, y) 1560s [00:52:40.328] $ MoreArgs : NULL 1560s [00:52:40.328] - attr(*, "where")=List of 2 1560s [00:52:40.328] ..$ ...future.FUN: 1560s [00:52:40.328] ..$ MoreArgs : 1560s [00:52:40.328] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1560s [00:52:40.328] - attr(*, "resolved")= logi FALSE 1560s [00:52:40.328] - attr(*, "total_size")= num NA 1560s [00:52:40.330] Packages to be attached in all futures: [n=0] 1560s [00:52:40.331] getGlobalsAndPackagesXApply() ... DONE 1560s [00:52:40.331] Number of futures (= number of chunks): 1 1560s [00:52:40.331] Launching 1 futures (chunks) ... 1560s [00:52:40.331] Chunk #1 of 1 ... 1560s [00:52:40.332] - Finding globals in '...' for chunk #1 ... 1560s [00:52:40.332] getGlobalsAndPackages() ... 1560s [00:52:40.332] Searching for globals... 1560s [00:52:40.332] 1560s [00:52:40.333] Searching for globals ... DONE 1560s [00:52:40.333] - globals: [0] 1560s [00:52:40.333] getGlobalsAndPackages() ... DONE 1560s [00:52:40.333] + additional globals found: [n=0] 1560s [00:52:40.334] + additional namespaces needed: [n=0] 1560s [00:52:40.334] - Finding globals in '...' for chunk #1 ... DONE 1560s [00:52:40.334] - seeds: 1560s [00:52:40.334] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.334] getGlobalsAndPackages() ... 1560s [00:52:40.334] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.335] Resolving globals: FALSE 1560s [00:52:40.336] The total size of the 5 globals is 2.26 KiB (2312 bytes) 1560s [00:52:40.336] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 2.26 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (1.93 KiB of class ‘function’), ‘...future.elements_ii’ (336 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1560s [00:52:40.337] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.337] 1560s [00:52:40.337] getGlobalsAndPackages() ... DONE 1560s [00:52:40.337] run() for ‘Future’ ... 1560s [00:52:40.337] - state: ‘created’ 1560s [00:52:40.338] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1560s [00:52:40.338] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1560s [00:52:40.338] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1560s [00:52:40.338] - Field: ‘label’ 1560s [00:52:40.339] - Field: ‘local’ 1560s [00:52:40.339] - Field: ‘owner’ 1560s [00:52:40.339] - Field: ‘envir’ 1560s [00:52:40.339] - Field: ‘packages’ 1560s [00:52:40.339] - Field: ‘gc’ 1560s [00:52:40.339] - Field: ‘conditions’ 1560s [00:52:40.339] - Field: ‘expr’ 1560s [00:52:40.340] - Field: ‘uuid’ 1560s [00:52:40.340] - Field: ‘seed’ 1560s [00:52:40.340] - Field: ‘version’ 1560s [00:52:40.340] - Field: ‘result’ 1560s [00:52:40.340] - Field: ‘asynchronous’ 1560s [00:52:40.340] - Field: ‘calls’ 1560s [00:52:40.340] - Field: ‘globals’ 1560s [00:52:40.341] - Field: ‘stdout’ 1560s [00:52:40.341] - Field: ‘earlySignal’ 1560s [00:52:40.341] - Field: ‘lazy’ 1560s [00:52:40.341] - Field: ‘state’ 1560s [00:52:40.342] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1560s [00:52:40.342] - Launch lazy future ... 1560s [00:52:40.342] Packages needed by the future expression (n = 0): 1560s [00:52:40.343] Packages needed by future strategies (n = 0): 1560s [00:52:40.343] { 1560s [00:52:40.343] { 1560s [00:52:40.343] { 1560s [00:52:40.343] ...future.startTime <- base::Sys.time() 1560s [00:52:40.343] { 1560s [00:52:40.343] { 1560s [00:52:40.343] { 1560s [00:52:40.343] base::local({ 1560s [00:52:40.343] has_future <- base::requireNamespace("future", 1560s [00:52:40.343] quietly = TRUE) 1560s [00:52:40.343] if (has_future) { 1560s [00:52:40.343] ns <- base::getNamespace("future") 1560s [00:52:40.343] version <- ns[[".package"]][["version"]] 1560s [00:52:40.343] if (is.null(version)) 1560s [00:52:40.343] version <- utils::packageVersion("future") 1560s [00:52:40.343] } 1560s [00:52:40.343] else { 1560s [00:52:40.343] version <- NULL 1560s [00:52:40.343] } 1560s [00:52:40.343] if (!has_future || version < "1.8.0") { 1560s [00:52:40.343] info <- base::c(r_version = base::gsub("R version ", 1560s [00:52:40.343] "", base::R.version$version.string), 1560s [00:52:40.343] platform = base::sprintf("%s (%s-bit)", 1560s [00:52:40.343] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1560s [00:52:40.343] os = base::paste(base::Sys.info()[base::c("sysname", 1560s [00:52:40.343] "release", "version")], collapse = " "), 1560s [00:52:40.343] hostname = base::Sys.info()[["nodename"]]) 1560s [00:52:40.343] info <- base::sprintf("%s: %s", base::names(info), 1560s [00:52:40.343] info) 1560s [00:52:40.343] info <- base::paste(info, collapse = "; ") 1560s [00:52:40.343] if (!has_future) { 1560s [00:52:40.343] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1560s [00:52:40.343] info) 1560s [00:52:40.343] } 1560s [00:52:40.343] else { 1560s [00:52:40.343] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1560s [00:52:40.343] info, version) 1560s [00:52:40.343] } 1560s [00:52:40.343] base::stop(msg) 1560s [00:52:40.343] } 1560s [00:52:40.343] }) 1560s [00:52:40.343] } 1560s [00:52:40.343] options(future.plan = NULL) 1560s [00:52:40.343] Sys.unsetenv("R_FUTURE_PLAN") 1560s [00:52:40.343] future::plan("default", .cleanup = FALSE, .init = FALSE) 1560s [00:52:40.343] } 1560s [00:52:40.343] ...future.workdir <- getwd() 1560s [00:52:40.343] } 1560s [00:52:40.343] ...future.oldOptions <- base::as.list(base::.Options) 1560s [00:52:40.343] ...future.oldEnvVars <- base::Sys.getenv() 1560s [00:52:40.343] } 1560s [00:52:40.343] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1560s [00:52:40.343] future.globals.maxSize = NULL, future.globals.method = NULL, 1560s [00:52:40.343] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1560s [00:52:40.343] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1560s [00:52:40.343] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1560s [00:52:40.343] future.stdout.windows.reencode = NULL, width = 80L) 1560s [00:52:40.343] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1560s [00:52:40.343] base::names(...future.oldOptions)) 1560s [00:52:40.343] } 1560s [00:52:40.343] if (FALSE) { 1560s [00:52:40.343] } 1560s [00:52:40.343] else { 1560s [00:52:40.343] if (TRUE) { 1560s [00:52:40.343] ...future.stdout <- base::rawConnection(base::raw(0L), 1560s [00:52:40.343] open = "w") 1560s [00:52:40.343] } 1560s [00:52:40.343] else { 1560s [00:52:40.343] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1560s [00:52:40.343] windows = "NUL", "/dev/null"), open = "w") 1560s [00:52:40.343] } 1560s [00:52:40.343] base::sink(...future.stdout, type = "output", split = FALSE) 1560s [00:52:40.343] base::on.exit(if (!base::is.null(...future.stdout)) { 1560s [00:52:40.343] base::sink(type = "output", split = FALSE) 1560s [00:52:40.343] base::close(...future.stdout) 1560s [00:52:40.343] }, add = TRUE) 1560s [00:52:40.343] } 1560s [00:52:40.343] ...future.frame <- base::sys.nframe() 1560s [00:52:40.343] ...future.conditions <- base::list() 1560s [00:52:40.343] ...future.rng <- base::globalenv()$.Random.seed 1560s [00:52:40.343] if (FALSE) { 1560s [00:52:40.343] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1560s [00:52:40.343] "...future.value", "...future.globalenv.names", ".Random.seed") 1560s [00:52:40.343] } 1560s [00:52:40.343] ...future.result <- base::tryCatch({ 1560s [00:52:40.343] base::withCallingHandlers({ 1560s [00:52:40.343] ...future.value <- base::withVisible(base::local({ 1560s [00:52:40.343] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1560s [00:52:40.343] if (!identical(...future.globals.maxSize.org, 1560s [00:52:40.343] ...future.globals.maxSize)) { 1560s [00:52:40.343] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1560s [00:52:40.343] on.exit(options(oopts), add = TRUE) 1560s [00:52:40.343] } 1560s [00:52:40.343] { 1560s [00:52:40.343] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1560s [00:52:40.343] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1560s [00:52:40.343] USE.NAMES = FALSE) 1560s [00:52:40.343] do.call(mapply, args = args) 1560s [00:52:40.343] } 1560s [00:52:40.343] })) 1560s [00:52:40.343] future::FutureResult(value = ...future.value$value, 1560s [00:52:40.343] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1560s [00:52:40.343] ...future.rng), globalenv = if (FALSE) 1560s [00:52:40.343] list(added = base::setdiff(base::names(base::.GlobalEnv), 1560s [00:52:40.343] ...future.globalenv.names)) 1560s [00:52:40.343] else NULL, started = ...future.startTime, version = "1.8") 1560s [00:52:40.343] }, condition = base::local({ 1560s [00:52:40.343] c <- base::c 1560s [00:52:40.343] inherits <- base::inherits 1560s [00:52:40.343] invokeRestart <- base::invokeRestart 1560s [00:52:40.343] length <- base::length 1560s [00:52:40.343] list <- base::list 1560s [00:52:40.343] seq.int <- base::seq.int 1560s [00:52:40.343] signalCondition <- base::signalCondition 1560s [00:52:40.343] sys.calls <- base::sys.calls 1560s [00:52:40.343] `[[` <- base::`[[` 1560s [00:52:40.343] `+` <- base::`+` 1560s [00:52:40.343] `<<-` <- base::`<<-` 1560s [00:52:40.343] sysCalls <- function(calls = sys.calls(), from = 1L) { 1560s [00:52:40.343] calls[seq.int(from = from + 12L, to = length(calls) - 1560s [00:52:40.343] 3L)] 1560s [00:52:40.343] } 1560s [00:52:40.343] function(cond) { 1560s [00:52:40.343] is_error <- inherits(cond, "error") 1560s [00:52:40.343] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1560s [00:52:40.343] NULL) 1560s [00:52:40.343] if (is_error) { 1560s [00:52:40.343] sessionInformation <- function() { 1560s [00:52:40.343] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1560s [00:52:40.343] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1560s [00:52:40.343] search = base::search(), system = base::Sys.info()) 1560s [00:52:40.343] } 1560s [00:52:40.343] ...future.conditions[[length(...future.conditions) + 1560s [00:52:40.343] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1560s [00:52:40.343] cond$call), session = sessionInformation(), 1560s [00:52:40.343] timestamp = base::Sys.time(), signaled = 0L) 1560s [00:52:40.343] signalCondition(cond) 1560s [00:52:40.343] } 1560s [00:52:40.343] else if (!ignore && TRUE && inherits(cond, c("condition", 1560s [00:52:40.343] "immediateCondition"))) { 1560s [00:52:40.343] signal <- TRUE && inherits(cond, "immediateCondition") 1560s [00:52:40.343] ...future.conditions[[length(...future.conditions) + 1560s [00:52:40.343] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1560s [00:52:40.343] if (TRUE && !signal) { 1560s [00:52:40.343] muffleCondition <- function (cond, pattern = "^muffle") 1560s [00:52:40.343] { 1560s [00:52:40.343] inherits <- base::inherits 1560s [00:52:40.343] invokeRestart <- base::invokeRestart 1560s [00:52:40.343] is.null <- base::is.null 1560s [00:52:40.343] muffled <- FALSE 1560s [00:52:40.343] if (inherits(cond, "message")) { 1560s [00:52:40.343] muffled <- grepl(pattern, "muffleMessage") 1560s [00:52:40.343] if (muffled) 1560s [00:52:40.343] invokeRestart("muffleMessage") 1560s [00:52:40.343] } 1560s [00:52:40.343] else if (inherits(cond, "warning")) { 1560s [00:52:40.343] muffled <- grepl(pattern, "muffleWarning") 1560s [00:52:40.343] if (muffled) 1560s [00:52:40.343] invokeRestart("muffleWarning") 1560s [00:52:40.343] } 1560s [00:52:40.343] else if (inherits(cond, "condition")) { 1560s [00:52:40.343] if (!is.null(pattern)) { 1560s [00:52:40.343] computeRestarts <- base::computeRestarts 1560s [00:52:40.343] grepl <- base::grepl 1560s [00:52:40.343] restarts <- computeRestarts(cond) 1560s [00:52:40.343] for (restart in restarts) { 1560s [00:52:40.343] name <- restart$name 1560s [00:52:40.343] if (is.null(name)) 1560s [00:52:40.343] next 1560s [00:52:40.343] if (!grepl(pattern, name)) 1560s [00:52:40.343] next 1560s [00:52:40.343] invokeRestart(restart) 1560s [00:52:40.343] muffled <- TRUE 1560s [00:52:40.343] break 1560s [00:52:40.343] } 1560s [00:52:40.343] } 1560s [00:52:40.343] } 1560s [00:52:40.343] invisible(muffled) 1560s [00:52:40.343] } 1560s [00:52:40.343] muffleCondition(cond, pattern = "^muffle") 1560s [00:52:40.343] } 1560s [00:52:40.343] } 1560s [00:52:40.343] else { 1560s [00:52:40.343] if (TRUE) { 1560s [00:52:40.343] muffleCondition <- function (cond, pattern = "^muffle") 1560s [00:52:40.343] { 1560s [00:52:40.343] inherits <- base::inherits 1560s [00:52:40.343] invokeRestart <- base::invokeRestart 1560s [00:52:40.343] is.null <- base::is.null 1560s [00:52:40.343] muffled <- FALSE 1560s [00:52:40.343] if (inherits(cond, "message")) { 1560s [00:52:40.343] muffled <- grepl(pattern, "muffleMessage") 1560s [00:52:40.343] if (muffled) 1560s [00:52:40.343] invokeRestart("muffleMessage") 1560s [00:52:40.343] } 1560s [00:52:40.343] else if (inherits(cond, "warning")) { 1560s [00:52:40.343] muffled <- grepl(pattern, "muffleWarning") 1560s [00:52:40.343] if (muffled) 1560s [00:52:40.343] invokeRestart("muffleWarning") 1560s [00:52:40.343] } 1560s [00:52:40.343] else if (inherits(cond, "condition")) { 1560s [00:52:40.343] if (!is.null(pattern)) { 1560s [00:52:40.343] computeRestarts <- base::computeRestarts 1560s [00:52:40.343] grepl <- base::grepl 1560s [00:52:40.343] restarts <- computeRestarts(cond) 1560s [00:52:40.343] for (restart in restarts) { 1560s [00:52:40.343] name <- restart$name 1560s [00:52:40.343] if (is.null(name)) 1560s [00:52:40.343] next 1560s [00:52:40.343] if (!grepl(pattern, name)) 1560s [00:52:40.343] next 1560s [00:52:40.343] invokeRestart(restart) 1560s [00:52:40.343] muffled <- TRUE 1560s [00:52:40.343] break 1560s [00:52:40.343] } 1560s [00:52:40.343] } 1560s [00:52:40.343] } 1560s [00:52:40.343] invisible(muffled) 1560s [00:52:40.343] } 1560s [00:52:40.343] muffleCondition(cond, pattern = "^muffle") 1560s [00:52:40.343] } 1560s [00:52:40.343] } 1560s [00:52:40.343] } 1560s [00:52:40.343] })) 1560s [00:52:40.343] }, error = function(ex) { 1560s [00:52:40.343] base::structure(base::list(value = NULL, visible = NULL, 1560s [00:52:40.343] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1560s [00:52:40.343] ...future.rng), started = ...future.startTime, 1560s [00:52:40.343] finished = Sys.time(), session_uuid = NA_character_, 1560s [00:52:40.343] version = "1.8"), class = "FutureResult") 1560s [00:52:40.343] }, finally = { 1560s [00:52:40.343] if (!identical(...future.workdir, getwd())) 1560s [00:52:40.343] setwd(...future.workdir) 1560s [00:52:40.343] { 1560s [00:52:40.343] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1560s [00:52:40.343] ...future.oldOptions$nwarnings <- NULL 1560s [00:52:40.343] } 1560s [00:52:40.343] base::options(...future.oldOptions) 1560s [00:52:40.343] if (.Platform$OS.type == "windows") { 1560s [00:52:40.343] old_names <- names(...future.oldEnvVars) 1560s [00:52:40.343] envs <- base::Sys.getenv() 1560s [00:52:40.343] names <- names(envs) 1560s [00:52:40.343] common <- intersect(names, old_names) 1560s [00:52:40.343] added <- setdiff(names, old_names) 1560s [00:52:40.343] removed <- setdiff(old_names, names) 1560s [00:52:40.343] changed <- common[...future.oldEnvVars[common] != 1560s [00:52:40.343] envs[common]] 1560s [00:52:40.343] NAMES <- toupper(changed) 1560s [00:52:40.343] args <- list() 1560s [00:52:40.343] for (kk in seq_along(NAMES)) { 1560s [00:52:40.343] name <- changed[[kk]] 1560s [00:52:40.343] NAME <- NAMES[[kk]] 1560s [00:52:40.343] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.343] next 1560s [00:52:40.343] args[[name]] <- ...future.oldEnvVars[[name]] 1560s [00:52:40.343] } 1560s [00:52:40.343] NAMES <- toupper(added) 1560s [00:52:40.343] for (kk in seq_along(NAMES)) { 1560s [00:52:40.343] name <- added[[kk]] 1560s [00:52:40.343] NAME <- NAMES[[kk]] 1560s [00:52:40.343] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.343] next 1560s [00:52:40.343] args[[name]] <- "" 1560s [00:52:40.343] } 1560s [00:52:40.343] NAMES <- toupper(removed) 1560s [00:52:40.343] for (kk in seq_along(NAMES)) { 1560s [00:52:40.343] name <- removed[[kk]] 1560s [00:52:40.343] NAME <- NAMES[[kk]] 1560s [00:52:40.343] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.343] next 1560s [00:52:40.343] args[[name]] <- ...future.oldEnvVars[[name]] 1560s [00:52:40.343] } 1560s [00:52:40.343] if (length(args) > 0) 1560s [00:52:40.343] base::do.call(base::Sys.setenv, args = args) 1560s [00:52:40.343] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1560s [00:52:40.343] } 1560s [00:52:40.343] else { 1560s [00:52:40.343] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1560s [00:52:40.343] } 1560s [00:52:40.343] { 1560s [00:52:40.343] if (base::length(...future.futureOptionsAdded) > 1560s [00:52:40.343] 0L) { 1560s [00:52:40.343] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1560s [00:52:40.343] base::names(opts) <- ...future.futureOptionsAdded 1560s [00:52:40.343] base::options(opts) 1560s [00:52:40.343] } 1560s [00:52:40.343] { 1560s [00:52:40.343] { 1560s [00:52:40.343] base::assign(".Random.seed", c(10407L, -1319993016L, 1560s [00:52:40.343] 1571290074L, -859112415L, -853775137L, 1440155893L, 1560s [00:52:40.343] -732328588L), envir = base::globalenv(), 1560s [00:52:40.343] inherits = FALSE) 1560s [00:52:40.343] NULL 1560s [00:52:40.343] } 1560s [00:52:40.343] options(future.plan = NULL) 1560s [00:52:40.343] if (is.na(NA_character_)) 1560s [00:52:40.343] Sys.unsetenv("R_FUTURE_PLAN") 1560s [00:52:40.343] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1560s [00:52:40.343] future::plan(list(function (..., envir = parent.frame()) 1560s [00:52:40.343] { 1560s [00:52:40.343] future <- SequentialFuture(..., envir = envir) 1560s [00:52:40.343] if (!future$lazy) 1560s [00:52:40.343] future <- run(future) 1560s [00:52:40.343] invisible(future) 1560s [00:52:40.343] }), .cleanup = FALSE, .init = FALSE) 1560s [00:52:40.343] } 1560s [00:52:40.343] } 1560s [00:52:40.343] } 1560s [00:52:40.343] }) 1560s [00:52:40.343] if (TRUE) { 1560s [00:52:40.343] base::sink(type = "output", split = FALSE) 1560s [00:52:40.343] if (TRUE) { 1560s [00:52:40.343] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1560s [00:52:40.343] } 1560s [00:52:40.343] else { 1560s [00:52:40.343] ...future.result["stdout"] <- base::list(NULL) 1560s [00:52:40.343] } 1560s [00:52:40.343] base::close(...future.stdout) 1560s [00:52:40.343] ...future.stdout <- NULL 1560s [00:52:40.343] } 1560s [00:52:40.343] ...future.result$conditions <- ...future.conditions 1560s [00:52:40.343] ...future.result$finished <- base::Sys.time() 1560s [00:52:40.343] ...future.result 1560s [00:52:40.343] } 1560s [00:52:40.353] assign_globals() ... 1560s [00:52:40.353] List of 5 1560s [00:52:40.353] $ ...future.FUN :function (x, y) 1560s [00:52:40.353] $ MoreArgs : NULL 1560s [00:52:40.353] $ ...future.elements_ii :List of 2 1560s [00:52:40.353] ..$ :List of 3 1560s [00:52:40.353] .. ..$ a: num 1 1560s [00:52:40.353] .. ..$ b: num 2 1560s [00:52:40.353] .. ..$ c: num 3 1560s [00:52:40.353] ..$ :List of 3 1560s [00:52:40.353] .. ..$ A: num 10 1560s [00:52:40.353] .. ..$ B: num 0 1560s [00:52:40.353] .. ..$ C: num -10 1560s [00:52:40.353] $ ...future.seeds_ii : NULL 1560s [00:52:40.353] $ ...future.globals.maxSize: NULL 1560s [00:52:40.353] - attr(*, "where")=List of 5 1560s [00:52:40.353] ..$ ...future.FUN : 1560s [00:52:40.353] ..$ MoreArgs : 1560s [00:52:40.353] ..$ ...future.elements_ii : 1560s [00:52:40.353] ..$ ...future.seeds_ii : 1560s [00:52:40.353] ..$ ...future.globals.maxSize: 1560s [00:52:40.353] - attr(*, "resolved")= logi FALSE 1560s [00:52:40.353] - attr(*, "total_size")= num 2312 1560s [00:52:40.353] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1560s [00:52:40.353] - attr(*, "already-done")= logi TRUE 1560s [00:52:40.368] - reassign environment for ‘...future.FUN’ 1560s [00:52:40.369] - copied ‘...future.FUN’ to environment 1560s [00:52:40.369] - copied ‘MoreArgs’ to environment 1560s [00:52:40.369] - copied ‘...future.elements_ii’ to environment 1560s [00:52:40.369] - copied ‘...future.seeds_ii’ to environment 1560s [00:52:40.369] - copied ‘...future.globals.maxSize’ to environment 1560s [00:52:40.369] assign_globals() ... done 1560s [00:52:40.370] plan(): Setting new future strategy stack: 1560s [00:52:40.370] List of future strategies: 1560s [00:52:40.370] 1. sequential: 1560s [00:52:40.370] - args: function (..., envir = parent.frame()) 1560s [00:52:40.370] - tweaked: FALSE 1560s [00:52:40.370] - call: NULL 1560s [00:52:40.370] plan(): nbrOfWorkers() = 1 1560s [00:52:40.371] plan(): Setting new future strategy stack: 1560s [00:52:40.371] List of future strategies: 1560s [00:52:40.371] 1. sequential: 1560s [00:52:40.371] - args: function (..., envir = parent.frame()) 1560s [00:52:40.371] - tweaked: FALSE 1560s [00:52:40.371] - call: plan(strategy) 1560s [00:52:40.372] plan(): nbrOfWorkers() = 1 1560s [00:52:40.372] SequentialFuture started (and completed) 1560s [00:52:40.373] - Launch lazy future ... done 1560s [00:52:40.374] run() for ‘SequentialFuture’ ... done 1560s [00:52:40.374] Created future: 1560s [00:52:40.374] SequentialFuture: 1560s [00:52:40.374] Label: ‘future_mapply-1’ 1560s [00:52:40.374] Expression: 1560s [00:52:40.374] { 1560s [00:52:40.374] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1560s [00:52:40.374] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1560s [00:52:40.374] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1560s [00:52:40.374] on.exit(options(oopts), add = TRUE) 1560s [00:52:40.374] } 1560s [00:52:40.374] { 1560s [00:52:40.374] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1560s [00:52:40.374] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1560s [00:52:40.374] do.call(mapply, args = args) 1560s [00:52:40.374] } 1560s [00:52:40.374] } 1560s [00:52:40.374] Lazy evaluation: FALSE 1560s [00:52:40.374] Asynchronous evaluation: FALSE 1560s [00:52:40.374] Local evaluation: TRUE 1560s [00:52:40.374] Environment: R_GlobalEnv 1560s [00:52:40.374] Capture standard output: TRUE 1560s [00:52:40.374] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1560s [00:52:40.374] Globals: 5 objects totaling 2.26 KiB (function ‘...future.FUN’ of 1.93 KiB, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1560s [00:52:40.374] Packages: 1560s [00:52:40.374] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1560s [00:52:40.374] Resolved: TRUE 1560s [00:52:40.374] Value: 200 bytes of class ‘list’ 1560s [00:52:40.374] Early signaling: FALSE 1560s [00:52:40.374] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1560s [00:52:40.374] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1560s [00:52:40.377] Chunk #1 of 1 ... DONE 1560s [00:52:40.377] Launching 1 futures (chunks) ... DONE 1560s [00:52:40.377] Resolving 1 futures (chunks) ... 1560s [00:52:40.377] resolve() on list ... 1560s [00:52:40.378] recursive: 0 1560s [00:52:40.378] length: 1 1560s [00:52:40.378] 1560s [00:52:40.378] resolved() for ‘SequentialFuture’ ... 1560s [00:52:40.379] - state: ‘finished’ 1560s [00:52:40.379] - run: TRUE 1560s [00:52:40.379] - result: ‘FutureResult’ 1560s [00:52:40.380] resolved() for ‘SequentialFuture’ ... done 1560s [00:52:40.380] Future #1 1560s [00:52:40.381] signalConditionsASAP(SequentialFuture, pos=1) ... 1560s [00:52:40.381] - nx: 1 1560s [00:52:40.381] - relay: TRUE 1560s [00:52:40.381] - stdout: TRUE 1560s [00:52:40.381] - signal: TRUE 1560s [00:52:40.382] - resignal: FALSE 1560s [00:52:40.382] - force: TRUE 1560s [00:52:40.382] - relayed: [n=1] FALSE 1560s [00:52:40.382] - queued futures: [n=1] FALSE 1560s [00:52:40.382] - until=1 1560s [00:52:40.382] - relaying element #1 1560s [00:52:40.382] - relayed: [n=1] TRUE 1560s [00:52:40.383] - queued futures: [n=1] TRUE 1560s [00:52:40.383] signalConditionsASAP(SequentialFuture, pos=1) ... done 1560s [00:52:40.383] length: 0 (resolved future 1) 1560s [00:52:40.383] Relaying remaining futures 1560s [00:52:40.383] signalConditionsASAP(NULL, pos=0) ... 1560s [00:52:40.384] - nx: 1 1560s [00:52:40.384] - relay: TRUE 1560s [00:52:40.384] - stdout: TRUE 1560s [00:52:40.384] - signal: TRUE 1560s [00:52:40.384] - resignal: FALSE 1560s [00:52:40.384] - force: TRUE 1560s [00:52:40.384] - relayed: [n=1] TRUE 1560s [00:52:40.385] - queued futures: [n=1] TRUE 1560s - flush all 1560s [00:52:40.385] - relayed: [n=1] TRUE 1560s [00:52:40.385] - queued futures: [n=1] TRUE 1560s [00:52:40.385] signalConditionsASAP(NULL, pos=0) ... done 1560s [00:52:40.385] resolve() on list ... DONE 1560s [00:52:40.385] - Number of value chunks collected: 1 1560s [00:52:40.386] Resolving 1 futures (chunks) ... DONE 1560s [00:52:40.386] Reducing values from 1 chunks ... 1560s [00:52:40.386] - Number of values collected after concatenation: 3 1560s [00:52:40.386] - Number of values expected: 3 1560s [00:52:40.386] Reducing values from 1 chunks ... DONE 1560s [00:52:40.386] future_mapply() ... DONE 1560s - future_.mapply() 1560s [00:52:40.387] future_mapply() ... 1560s [00:52:40.388] Number of chunks: 1 1560s [00:52:40.388] getGlobalsAndPackagesXApply() ... 1560s [00:52:40.388] - future.globals: TRUE 1560s [00:52:40.388] getGlobalsAndPackages() ... 1560s [00:52:40.388] Searching for globals... 1560s [00:52:40.390] - globals found: [3] ‘FUN’, ‘+’, ‘seq_len’ 1560s [00:52:40.390] Searching for globals ... DONE 1560s [00:52:40.390] Resolving globals: FALSE 1560s [00:52:40.391] The total size of the 1 globals is 1.93 KiB (1976 bytes) 1560s [00:52:40.391] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.93 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.93 KiB of class ‘function’) 1560s [00:52:40.391] - globals: [1] ‘FUN’ 1560s [00:52:40.391] 1560s [00:52:40.392] getGlobalsAndPackages() ... DONE 1560s [00:52:40.392] - globals found/used: [n=1] ‘FUN’ 1560s [00:52:40.392] - needed namespaces: [n=0] 1560s [00:52:40.392] Finding globals ... DONE 1560s [00:52:40.392] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1560s [00:52:40.392] List of 2 1560s [00:52:40.392] $ ...future.FUN:function (x, y) 1560s [00:52:40.392] $ MoreArgs : list() 1560s [00:52:40.392] - attr(*, "where")=List of 2 1560s [00:52:40.392] ..$ ...future.FUN: 1560s [00:52:40.392] ..$ MoreArgs : 1560s [00:52:40.392] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1560s [00:52:40.392] - attr(*, "resolved")= logi FALSE 1560s [00:52:40.392] - attr(*, "total_size")= num NA 1560s [00:52:40.396] Packages to be attached in all futures: [n=0] 1560s [00:52:40.396] getGlobalsAndPackagesXApply() ... DONE 1560s [00:52:40.396] Number of futures (= number of chunks): 1 1560s [00:52:40.396] Launching 1 futures (chunks) ... 1560s [00:52:40.396] Chunk #1 of 1 ... 1560s [00:52:40.396] - Finding globals in '...' for chunk #1 ... 1560s [00:52:40.397] getGlobalsAndPackages() ... 1560s [00:52:40.397] Searching for globals... 1560s [00:52:40.397] 1560s [00:52:40.397] Searching for globals ... DONE 1560s [00:52:40.397] - globals: [0] 1560s [00:52:40.398] getGlobalsAndPackages() ... DONE 1560s [00:52:40.398] + additional globals found: [n=0] 1560s [00:52:40.398] + additional namespaces needed: [n=0] 1560s [00:52:40.398] - Finding globals in '...' for chunk #1 ... DONE 1560s [00:52:40.398] - seeds: 1560s [00:52:40.398] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.398] getGlobalsAndPackages() ... 1560s [00:52:40.398] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.399] Resolving globals: FALSE 1560s [00:52:40.399] The total size of the 5 globals is 2.26 KiB (2312 bytes) 1560s [00:52:40.400] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 2.26 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (1.93 KiB of class ‘function’), ‘...future.elements_ii’ (336 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘list’) 1560s [00:52:40.400] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.400] 1560s [00:52:40.400] getGlobalsAndPackages() ... DONE 1560s [00:52:40.401] run() for ‘Future’ ... 1560s [00:52:40.401] - state: ‘created’ 1560s [00:52:40.401] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1560s [00:52:40.402] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1560s [00:52:40.402] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1560s [00:52:40.402] - Field: ‘label’ 1560s [00:52:40.402] - Field: ‘local’ 1560s [00:52:40.402] - Field: ‘owner’ 1560s [00:52:40.403] - Field: ‘envir’ 1560s [00:52:40.403] - Field: ‘packages’ 1560s [00:52:40.403] - Field: ‘gc’ 1560s [00:52:40.403] - Field: ‘conditions’ 1560s [00:52:40.403] - Field: ‘expr’ 1560s [00:52:40.404] - Field: ‘uuid’ 1560s [00:52:40.404] - Field: ‘seed’ 1560s [00:52:40.404] - Field: ‘version’ 1560s [00:52:40.404] - Field: ‘result’ 1560s [00:52:40.404] - Field: ‘asynchronous’ 1560s [00:52:40.405] - Field: ‘calls’ 1560s [00:52:40.405] - Field: ‘globals’ 1560s [00:52:40.405] - Field: ‘stdout’ 1560s [00:52:40.405] - Field: ‘earlySignal’ 1560s [00:52:40.405] - Field: ‘lazy’ 1560s [00:52:40.405] - Field: ‘state’ 1560s [00:52:40.406] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1560s [00:52:40.406] - Launch lazy future ... 1560s [00:52:40.409] Packages needed by the future expression (n = 0): 1560s [00:52:40.409] Packages needed by future strategies (n = 0): 1560s [00:52:40.410] { 1560s [00:52:40.410] { 1560s [00:52:40.410] { 1560s [00:52:40.410] ...future.startTime <- base::Sys.time() 1560s [00:52:40.410] { 1560s [00:52:40.410] { 1560s [00:52:40.410] { 1560s [00:52:40.410] base::local({ 1560s [00:52:40.410] has_future <- base::requireNamespace("future", 1560s [00:52:40.410] quietly = TRUE) 1560s [00:52:40.410] if (has_future) { 1560s [00:52:40.410] ns <- base::getNamespace("future") 1560s [00:52:40.410] version <- ns[[".package"]][["version"]] 1560s [00:52:40.410] if (is.null(version)) 1560s [00:52:40.410] version <- utils::packageVersion("future") 1560s [00:52:40.410] } 1560s [00:52:40.410] else { 1560s [00:52:40.410] version <- NULL 1560s [00:52:40.410] } 1560s [00:52:40.410] if (!has_future || version < "1.8.0") { 1560s [00:52:40.410] info <- base::c(r_version = base::gsub("R version ", 1560s [00:52:40.410] "", base::R.version$version.string), 1560s [00:52:40.410] platform = base::sprintf("%s (%s-bit)", 1560s [00:52:40.410] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1560s [00:52:40.410] os = base::paste(base::Sys.info()[base::c("sysname", 1560s [00:52:40.410] "release", "version")], collapse = " "), 1560s [00:52:40.410] hostname = base::Sys.info()[["nodename"]]) 1560s [00:52:40.410] info <- base::sprintf("%s: %s", base::names(info), 1560s [00:52:40.410] info) 1560s [00:52:40.410] info <- base::paste(info, collapse = "; ") 1560s [00:52:40.410] if (!has_future) { 1560s [00:52:40.410] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1560s [00:52:40.410] info) 1560s [00:52:40.410] } 1560s [00:52:40.410] else { 1560s [00:52:40.410] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1560s [00:52:40.410] info, version) 1560s [00:52:40.410] } 1560s [00:52:40.410] base::stop(msg) 1560s [00:52:40.410] } 1560s [00:52:40.410] }) 1560s [00:52:40.410] } 1560s [00:52:40.410] options(future.plan = NULL) 1560s [00:52:40.410] Sys.unsetenv("R_FUTURE_PLAN") 1560s [00:52:40.410] future::plan("default", .cleanup = FALSE, .init = FALSE) 1560s [00:52:40.410] } 1560s [00:52:40.410] ...future.workdir <- getwd() 1560s [00:52:40.410] } 1560s [00:52:40.410] ...future.oldOptions <- base::as.list(base::.Options) 1560s [00:52:40.410] ...future.oldEnvVars <- base::Sys.getenv() 1560s [00:52:40.410] } 1560s [00:52:40.410] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1560s [00:52:40.410] future.globals.maxSize = NULL, future.globals.method = NULL, 1560s [00:52:40.410] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1560s [00:52:40.410] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1560s [00:52:40.410] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1560s [00:52:40.410] future.stdout.windows.reencode = NULL, width = 80L) 1560s [00:52:40.410] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1560s [00:52:40.410] base::names(...future.oldOptions)) 1560s [00:52:40.410] } 1560s [00:52:40.410] if (FALSE) { 1560s [00:52:40.410] } 1560s [00:52:40.410] else { 1560s [00:52:40.410] if (TRUE) { 1560s [00:52:40.410] ...future.stdout <- base::rawConnection(base::raw(0L), 1560s [00:52:40.410] open = "w") 1560s [00:52:40.410] } 1560s [00:52:40.410] else { 1560s [00:52:40.410] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1560s [00:52:40.410] windows = "NUL", "/dev/null"), open = "w") 1560s [00:52:40.410] } 1560s [00:52:40.410] base::sink(...future.stdout, type = "output", split = FALSE) 1560s [00:52:40.410] base::on.exit(if (!base::is.null(...future.stdout)) { 1560s [00:52:40.410] base::sink(type = "output", split = FALSE) 1560s [00:52:40.410] base::close(...future.stdout) 1560s [00:52:40.410] }, add = TRUE) 1560s [00:52:40.410] } 1560s [00:52:40.410] ...future.frame <- base::sys.nframe() 1560s [00:52:40.410] ...future.conditions <- base::list() 1560s [00:52:40.410] ...future.rng <- base::globalenv()$.Random.seed 1560s [00:52:40.410] if (FALSE) { 1560s [00:52:40.410] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1560s [00:52:40.410] "...future.value", "...future.globalenv.names", ".Random.seed") 1560s [00:52:40.410] } 1560s [00:52:40.410] ...future.result <- base::tryCatch({ 1560s [00:52:40.410] base::withCallingHandlers({ 1560s [00:52:40.410] ...future.value <- base::withVisible(base::local({ 1560s [00:52:40.410] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1560s [00:52:40.410] if (!identical(...future.globals.maxSize.org, 1560s [00:52:40.410] ...future.globals.maxSize)) { 1560s [00:52:40.410] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1560s [00:52:40.410] on.exit(options(oopts), add = TRUE) 1560s [00:52:40.410] } 1560s [00:52:40.410] { 1560s [00:52:40.410] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1560s [00:52:40.410] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1560s [00:52:40.410] USE.NAMES = FALSE) 1560s [00:52:40.410] do.call(mapply, args = args) 1560s [00:52:40.410] } 1560s [00:52:40.410] })) 1560s [00:52:40.410] future::FutureResult(value = ...future.value$value, 1560s [00:52:40.410] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1560s [00:52:40.410] ...future.rng), globalenv = if (FALSE) 1560s [00:52:40.410] list(added = base::setdiff(base::names(base::.GlobalEnv), 1560s [00:52:40.410] ...future.globalenv.names)) 1560s [00:52:40.410] else NULL, started = ...future.startTime, version = "1.8") 1560s [00:52:40.410] }, condition = base::local({ 1560s [00:52:40.410] c <- base::c 1560s [00:52:40.410] inherits <- base::inherits 1560s [00:52:40.410] invokeRestart <- base::invokeRestart 1560s [00:52:40.410] length <- base::length 1560s [00:52:40.410] list <- base::list 1560s [00:52:40.410] seq.int <- base::seq.int 1560s [00:52:40.410] signalCondition <- base::signalCondition 1560s [00:52:40.410] sys.calls <- base::sys.calls 1560s [00:52:40.410] `[[` <- base::`[[` 1560s [00:52:40.410] `+` <- base::`+` 1560s [00:52:40.410] `<<-` <- base::`<<-` 1560s [00:52:40.410] sysCalls <- function(calls = sys.calls(), from = 1L) { 1560s [00:52:40.410] calls[seq.int(from = from + 12L, to = length(calls) - 1560s [00:52:40.410] 3L)] 1560s [00:52:40.410] } 1560s [00:52:40.410] function(cond) { 1560s [00:52:40.410] is_error <- inherits(cond, "error") 1560s [00:52:40.410] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1560s [00:52:40.410] NULL) 1560s [00:52:40.410] if (is_error) { 1560s [00:52:40.410] sessionInformation <- function() { 1560s [00:52:40.410] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1560s [00:52:40.410] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1560s [00:52:40.410] search = base::search(), system = base::Sys.info()) 1560s [00:52:40.410] } 1560s [00:52:40.410] ...future.conditions[[length(...future.conditions) + 1560s [00:52:40.410] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1560s [00:52:40.410] cond$call), session = sessionInformation(), 1560s [00:52:40.410] timestamp = base::Sys.time(), signaled = 0L) 1560s [00:52:40.410] signalCondition(cond) 1560s [00:52:40.410] } 1560s [00:52:40.410] else if (!ignore && TRUE && inherits(cond, c("condition", 1560s [00:52:40.410] "immediateCondition"))) { 1560s [00:52:40.410] signal <- TRUE && inherits(cond, "immediateCondition") 1560s [00:52:40.410] ...future.conditions[[length(...future.conditions) + 1560s [00:52:40.410] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1560s [00:52:40.410] if (TRUE && !signal) { 1560s [00:52:40.410] muffleCondition <- function (cond, pattern = "^muffle") 1560s [00:52:40.410] { 1560s [00:52:40.410] inherits <- base::inherits 1560s [00:52:40.410] invokeRestart <- base::invokeRestart 1560s [00:52:40.410] is.null <- base::is.null 1560s [00:52:40.410] muffled <- FALSE 1560s [00:52:40.410] if (inherits(cond, "message")) { 1560s [00:52:40.410] muffled <- grepl(pattern, "muffleMessage") 1560s [00:52:40.410] if (muffled) 1560s [00:52:40.410] invokeRestart("muffleMessage") 1560s [00:52:40.410] } 1560s [00:52:40.410] else if (inherits(cond, "warning")) { 1560s [00:52:40.410] muffled <- grepl(pattern, "muffleWarning") 1560s [00:52:40.410] if (muffled) 1560s [00:52:40.410] invokeRestart("muffleWarning") 1560s [00:52:40.410] } 1560s [00:52:40.410] else if (inherits(cond, "condition")) { 1560s [00:52:40.410] if (!is.null(pattern)) { 1560s [00:52:40.410] computeRestarts <- base::computeRestarts 1560s [00:52:40.410] grepl <- base::grepl 1560s [00:52:40.410] restarts <- computeRestarts(cond) 1560s [00:52:40.410] for (restart in restarts) { 1560s [00:52:40.410] name <- restart$name 1560s [00:52:40.410] if (is.null(name)) 1560s [00:52:40.410] next 1560s [00:52:40.410] if (!grepl(pattern, name)) 1560s [00:52:40.410] next 1560s [00:52:40.410] invokeRestart(restart) 1560s [00:52:40.410] muffled <- TRUE 1560s [00:52:40.410] break 1560s [00:52:40.410] } 1560s [00:52:40.410] } 1560s [00:52:40.410] } 1560s [00:52:40.410] invisible(muffled) 1560s [00:52:40.410] } 1560s [00:52:40.410] muffleCondition(cond, pattern = "^muffle") 1560s [00:52:40.410] } 1560s [00:52:40.410] } 1560s [00:52:40.410] else { 1560s [00:52:40.410] if (TRUE) { 1560s [00:52:40.410] muffleCondition <- function (cond, pattern = "^muffle") 1560s [00:52:40.410] { 1560s [00:52:40.410] inherits <- base::inherits 1560s [00:52:40.410] invokeRestart <- base::invokeRestart 1560s [00:52:40.410] is.null <- base::is.null 1560s [00:52:40.410] muffled <- FALSE 1560s [00:52:40.410] if (inherits(cond, "message")) { 1560s [00:52:40.410] muffled <- grepl(pattern, "muffleMessage") 1560s [00:52:40.410] if (muffled) 1560s [00:52:40.410] invokeRestart("muffleMessage") 1560s [00:52:40.410] } 1560s [00:52:40.410] else if (inherits(cond, "warning")) { 1560s [00:52:40.410] muffled <- grepl(pattern, "muffleWarning") 1560s [00:52:40.410] if (muffled) 1560s [00:52:40.410] invokeRestart("muffleWarning") 1560s [00:52:40.410] } 1560s [00:52:40.410] else if (inherits(cond, "condition")) { 1560s [00:52:40.410] if (!is.null(pattern)) { 1560s [00:52:40.410] computeRestarts <- base::computeRestarts 1560s [00:52:40.410] grepl <- base::grepl 1560s [00:52:40.410] restarts <- computeRestarts(cond) 1560s [00:52:40.410] for (restart in restarts) { 1560s [00:52:40.410] name <- restart$name 1560s [00:52:40.410] if (is.null(name)) 1560s [00:52:40.410] next 1560s [00:52:40.410] if (!grepl(pattern, name)) 1560s [00:52:40.410] next 1560s [00:52:40.410] invokeRestart(restart) 1560s [00:52:40.410] muffled <- TRUE 1560s [00:52:40.410] break 1560s [00:52:40.410] } 1560s [00:52:40.410] } 1560s [00:52:40.410] } 1560s [00:52:40.410] invisible(muffled) 1560s [00:52:40.410] } 1560s [00:52:40.410] muffleCondition(cond, pattern = "^muffle") 1560s [00:52:40.410] } 1560s [00:52:40.410] } 1560s [00:52:40.410] } 1560s [00:52:40.410] })) 1560s [00:52:40.410] }, error = function(ex) { 1560s [00:52:40.410] base::structure(base::list(value = NULL, visible = NULL, 1560s [00:52:40.410] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1560s [00:52:40.410] ...future.rng), started = ...future.startTime, 1560s [00:52:40.410] finished = Sys.time(), session_uuid = NA_character_, 1560s [00:52:40.410] version = "1.8"), class = "FutureResult") 1560s [00:52:40.410] }, finally = { 1560s [00:52:40.410] if (!identical(...future.workdir, getwd())) 1560s [00:52:40.410] setwd(...future.workdir) 1560s [00:52:40.410] { 1560s [00:52:40.410] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1560s [00:52:40.410] ...future.oldOptions$nwarnings <- NULL 1560s [00:52:40.410] } 1560s [00:52:40.410] base::options(...future.oldOptions) 1560s [00:52:40.410] if (.Platform$OS.type == "windows") { 1560s [00:52:40.410] old_names <- names(...future.oldEnvVars) 1560s [00:52:40.410] envs <- base::Sys.getenv() 1560s [00:52:40.410] names <- names(envs) 1560s [00:52:40.410] common <- intersect(names, old_names) 1560s [00:52:40.410] added <- setdiff(names, old_names) 1560s [00:52:40.410] removed <- setdiff(old_names, names) 1560s [00:52:40.410] changed <- common[...future.oldEnvVars[common] != 1560s [00:52:40.410] envs[common]] 1560s [00:52:40.410] NAMES <- toupper(changed) 1560s [00:52:40.410] args <- list() 1560s [00:52:40.410] for (kk in seq_along(NAMES)) { 1560s [00:52:40.410] name <- changed[[kk]] 1560s [00:52:40.410] NAME <- NAMES[[kk]] 1560s [00:52:40.410] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.410] next 1560s [00:52:40.410] args[[name]] <- ...future.oldEnvVars[[name]] 1560s [00:52:40.410] } 1560s [00:52:40.410] NAMES <- toupper(added) 1560s [00:52:40.410] for (kk in seq_along(NAMES)) { 1560s [00:52:40.410] name <- added[[kk]] 1560s [00:52:40.410] NAME <- NAMES[[kk]] 1560s [00:52:40.410] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.410] next 1560s [00:52:40.410] args[[name]] <- "" 1560s [00:52:40.410] } 1560s [00:52:40.410] NAMES <- toupper(removed) 1560s [00:52:40.410] for (kk in seq_along(NAMES)) { 1560s [00:52:40.410] name <- removed[[kk]] 1560s [00:52:40.410] NAME <- NAMES[[kk]] 1560s [00:52:40.410] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.410] next 1560s [00:52:40.410] args[[name]] <- ...future.oldEnvVars[[name]] 1560s [00:52:40.410] } 1560s [00:52:40.410] if (length(args) > 0) 1560s [00:52:40.410] base::do.call(base::Sys.setenv, args = args) 1560s [00:52:40.410] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1560s [00:52:40.410] } 1560s [00:52:40.410] else { 1560s [00:52:40.410] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1560s [00:52:40.410] } 1560s [00:52:40.410] { 1560s [00:52:40.410] if (base::length(...future.futureOptionsAdded) > 1560s [00:52:40.410] 0L) { 1560s [00:52:40.410] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1560s [00:52:40.410] base::names(opts) <- ...future.futureOptionsAdded 1560s [00:52:40.410] base::options(opts) 1560s [00:52:40.410] } 1560s [00:52:40.410] { 1560s [00:52:40.410] { 1560s [00:52:40.410] base::assign(".Random.seed", c(10407L, -1319993016L, 1560s [00:52:40.410] 1571290074L, -859112415L, -853775137L, 1440155893L, 1560s [00:52:40.410] -732328588L), envir = base::globalenv(), 1560s [00:52:40.410] inherits = FALSE) 1560s [00:52:40.410] NULL 1560s [00:52:40.410] } 1560s [00:52:40.410] options(future.plan = NULL) 1560s [00:52:40.410] if (is.na(NA_character_)) 1560s [00:52:40.410] Sys.unsetenv("R_FUTURE_PLAN") 1560s [00:52:40.410] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1560s [00:52:40.410] future::plan(list(function (..., envir = parent.frame()) 1560s [00:52:40.410] { 1560s [00:52:40.410] future <- SequentialFuture(..., envir = envir) 1560s [00:52:40.410] if (!future$lazy) 1560s [00:52:40.410] future <- run(future) 1560s [00:52:40.410] invisible(future) 1560s [00:52:40.410] }), .cleanup = FALSE, .init = FALSE) 1560s [00:52:40.410] } 1560s [00:52:40.410] } 1560s [00:52:40.410] } 1560s [00:52:40.410] }) 1560s [00:52:40.410] if (TRUE) { 1560s [00:52:40.410] base::sink(type = "output", split = FALSE) 1560s [00:52:40.410] if (TRUE) { 1560s [00:52:40.410] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1560s [00:52:40.410] } 1560s [00:52:40.410] else { 1560s [00:52:40.410] ...future.result["stdout"] <- base::list(NULL) 1560s [00:52:40.410] } 1560s [00:52:40.410] base::close(...future.stdout) 1560s [00:52:40.410] ...future.stdout <- NULL 1560s [00:52:40.410] } 1560s [00:52:40.410] ...future.result$conditions <- ...future.conditions 1560s [00:52:40.410] ...future.result$finished <- base::Sys.time() 1560s [00:52:40.410] ...future.result 1560s [00:52:40.410] } 1560s [00:52:40.417] assign_globals() ... 1560s [00:52:40.417] List of 5 1560s [00:52:40.417] $ ...future.FUN :function (x, y) 1560s [00:52:40.417] $ MoreArgs : list() 1560s [00:52:40.417] $ ...future.elements_ii :List of 2 1560s [00:52:40.417] ..$ :List of 3 1560s [00:52:40.417] .. ..$ a: num 1 1560s [00:52:40.417] .. ..$ b: num 2 1560s [00:52:40.417] .. ..$ c: num 3 1560s [00:52:40.417] ..$ :List of 3 1560s [00:52:40.417] .. ..$ A: num 10 1560s [00:52:40.417] .. ..$ B: num 0 1560s [00:52:40.417] .. ..$ C: num -10 1560s [00:52:40.417] $ ...future.seeds_ii : NULL 1560s [00:52:40.417] $ ...future.globals.maxSize: NULL 1560s [00:52:40.417] - attr(*, "where")=List of 5 1560s [00:52:40.417] ..$ ...future.FUN : 1560s [00:52:40.417] ..$ MoreArgs : 1560s [00:52:40.417] ..$ ...future.elements_ii : 1560s [00:52:40.417] ..$ ...future.seeds_ii : 1560s [00:52:40.417] ..$ ...future.globals.maxSize: 1560s [00:52:40.417] - attr(*, "resolved")= logi FALSE 1560s [00:52:40.417] - attr(*, "total_size")= num 2312 1560s [00:52:40.417] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1560s [00:52:40.417] - attr(*, "already-done")= logi TRUE 1560s [00:52:40.426] - reassign environment for ‘...future.FUN’ 1560s [00:52:40.426] - copied ‘...future.FUN’ to environment 1560s [00:52:40.426] - copied ‘MoreArgs’ to environment 1560s [00:52:40.426] - copied ‘...future.elements_ii’ to environment 1560s [00:52:40.427] - copied ‘...future.seeds_ii’ to environment 1560s [00:52:40.427] - copied ‘...future.globals.maxSize’ to environment 1560s [00:52:40.427] assign_globals() ... done 1560s [00:52:40.427] plan(): Setting new future strategy stack: 1560s [00:52:40.427] List of future strategies: 1560s [00:52:40.427] 1. sequential: 1560s [00:52:40.427] - args: function (..., envir = parent.frame()) 1560s [00:52:40.427] - tweaked: FALSE 1560s [00:52:40.427] - call: NULL 1560s [00:52:40.428] plan(): nbrOfWorkers() = 1 1560s [00:52:40.429] plan(): Setting new future strategy stack: 1560s [00:52:40.429] List of future strategies: 1560s [00:52:40.429] 1. sequential: 1560s [00:52:40.429] - args: function (..., envir = parent.frame()) 1560s [00:52:40.429] - tweaked: FALSE 1560s [00:52:40.429] - call: plan(strategy) 1560s [00:52:40.430] plan(): nbrOfWorkers() = 1 1560s [00:52:40.430] SequentialFuture started (and completed) 1560s [00:52:40.430] - Launch lazy future ... done 1560s [00:52:40.430] run() for ‘SequentialFuture’ ... done 1560s [00:52:40.431] Created future: 1560s [00:52:40.431] SequentialFuture: 1560s [00:52:40.431] Label: ‘future_.mapply-1’ 1560s [00:52:40.431] Expression: 1560s [00:52:40.431] { 1560s [00:52:40.431] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1560s [00:52:40.431] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1560s [00:52:40.431] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1560s [00:52:40.431] on.exit(options(oopts), add = TRUE) 1560s [00:52:40.431] } 1560s [00:52:40.431] { 1560s [00:52:40.431] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1560s [00:52:40.431] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1560s [00:52:40.431] do.call(mapply, args = args) 1560s [00:52:40.431] } 1560s [00:52:40.431] } 1560s [00:52:40.431] Lazy evaluation: FALSE 1560s [00:52:40.431] Asynchronous evaluation: FALSE 1560s [00:52:40.431] Local evaluation: TRUE 1560s [00:52:40.431] Environment: R_GlobalEnv 1560s [00:52:40.431] Capture standard output: TRUE 1560s [00:52:40.431] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1560s [00:52:40.431] Globals: 5 objects totaling 2.26 KiB (function ‘...future.FUN’ of 1.93 KiB, list ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1560s [00:52:40.431] Packages: 1560s [00:52:40.431] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1560s [00:52:40.431] Resolved: TRUE 1560s [00:52:40.431] Value: 200 bytes of class ‘list’ 1560s [00:52:40.431] Early signaling: FALSE 1560s [00:52:40.431] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1560s [00:52:40.431] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1560s [00:52:40.433] Chunk #1 of 1 ... DONE 1560s [00:52:40.433] Launching 1 futures (chunks) ... DONE 1560s [00:52:40.433] Resolving 1 futures (chunks) ... 1560s [00:52:40.433] resolve() on list ... 1560s [00:52:40.433] recursive: 0 1560s [00:52:40.434] length: 1 1560s [00:52:40.434] 1560s [00:52:40.434] resolved() for ‘SequentialFuture’ ... 1560s [00:52:40.434] - state: ‘finished’ 1560s [00:52:40.434] - run: TRUE 1560s [00:52:40.434] - result: ‘FutureResult’ 1560s [00:52:40.435] resolved() for ‘SequentialFuture’ ... done 1560s [00:52:40.435] Future #1 1560s [00:52:40.435] signalConditionsASAP(SequentialFuture, pos=1) ... 1560s [00:52:40.435] - nx: 1 1560s [00:52:40.435] - relay: TRUE 1560s [00:52:40.435] - stdout: TRUE 1560s [00:52:40.436] - signal: TRUE 1560s [00:52:40.436] - resignal: FALSE 1560s [00:52:40.436] - force: TRUE 1560s [00:52:40.436] - relayed: [n=1] FALSE 1560s [00:52:40.436] - queued futures: [n=1] FALSE 1560s [00:52:40.436] - until=1 1560s [00:52:40.436] - relaying element #1 1560s [00:52:40.437] - relayed: [n=1] TRUE 1560s [00:52:40.437] - queued futures: [n=1] TRUE 1560s [00:52:40.437] signalConditionsASAP(SequentialFuture, pos=1) ... done 1560s [00:52:40.437] length: 0 (resolved future 1) 1560s [00:52:40.438] Relaying remaining futures 1560s [00:52:40.438] signalConditionsASAP(NULL, pos=0) ... 1560s [00:52:40.438] - nx: 1 1560s [00:52:40.438] - relay: TRUE 1560s [00:52:40.438] - stdout: TRUE 1560s [00:52:40.438] - signal: TRUE 1560s [00:52:40.439] - resignal: FALSE 1560s [00:52:40.439] - force: TRUE 1560s [00:52:40.439] - relayed: [n=1] TRUE 1560s [00:52:40.439] - queued futures: [n=1] TRUE 1560s - flush all 1560s [00:52:40.439] - relayed: [n=1] TRUE 1560s [00:52:40.440] - queued futures: [n=1] TRUE 1560s [00:52:40.440] signalConditionsASAP(NULL, pos=0) ... done 1560s [00:52:40.440] resolve() on list ... DONE 1560s [00:52:40.440] - Number of value chunks collected: 1 1560s [00:52:40.440] Resolving 1 futures (chunks) ... DONE 1560s [00:52:40.440] Reducing values from 1 chunks ... 1560s [00:52:40.441] - Number of values collected after concatenation: 3 1560s [00:52:40.441] - Number of values expected: 3 1560s [00:52:40.441] Reducing values from 1 chunks ... DONE 1560s [00:52:40.441] future_mapply() ... DONE 1560s [00:52:40.441] future_mapply() ... 1560s [00:52:40.445] Number of chunks: 5 1560s [00:52:40.445] getGlobalsAndPackagesXApply() ... 1560s [00:52:40.445] - future.globals: TRUE 1560s [00:52:40.445] getGlobalsAndPackages() ... 1560s [00:52:40.445] Searching for globals... 1560s [00:52:40.447] - globals found: [3] ‘FUN’, ‘paste’, ‘rep.int’ 1560s [00:52:40.447] Searching for globals ... DONE 1560s [00:52:40.447] Resolving globals: FALSE 1560s [00:52:40.448] The total size of the 1 globals is 3.24 KiB (3320 bytes) 1560s [00:52:40.448] The total size of the 1 globals exported for future expression (‘FUN()’) is 3.24 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (3.24 KiB of class ‘function’) 1560s [00:52:40.448] - globals: [1] ‘FUN’ 1560s [00:52:40.448] 1560s [00:52:40.449] getGlobalsAndPackages() ... DONE 1560s [00:52:40.449] - globals found/used: [n=1] ‘FUN’ 1560s [00:52:40.449] - needed namespaces: [n=0] 1560s [00:52:40.449] Finding globals ... DONE 1560s [00:52:40.449] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1560s [00:52:40.450] List of 2 1560s [00:52:40.450] $ ...future.FUN:function (C, k) 1560s [00:52:40.450] $ MoreArgs : NULL 1560s [00:52:40.450] - attr(*, "where")=List of 2 1560s [00:52:40.450] ..$ ...future.FUN: 1560s [00:52:40.450] ..$ MoreArgs : 1560s [00:52:40.450] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1560s [00:52:40.450] - attr(*, "resolved")= logi FALSE 1560s [00:52:40.450] - attr(*, "total_size")= num NA 1560s [00:52:40.455] Packages to be attached in all futures: [n=0] 1560s [00:52:40.455] getGlobalsAndPackagesXApply() ... DONE 1560s [00:52:40.456] Number of futures (= number of chunks): 5 1560s [00:52:40.456] Launching 5 futures (chunks) ... 1560s [00:52:40.456] Chunk #1 of 5 ... 1560s [00:52:40.456] - Finding globals in '...' for chunk #1 ... 1560s [00:52:40.456] getGlobalsAndPackages() ... 1560s [00:52:40.456] Searching for globals... 1560s [00:52:40.457] 1560s [00:52:40.457] Searching for globals ... DONE 1560s [00:52:40.457] - globals: [0] 1560s [00:52:40.457] getGlobalsAndPackages() ... DONE 1560s [00:52:40.457] + additional globals found: [n=0] 1560s [00:52:40.457] + additional namespaces needed: [n=0] 1560s [00:52:40.457] - Finding globals in '...' for chunk #1 ... DONE 1560s [00:52:40.458] - Adjusted option 'future.globals.maxSize': 524288000 -> 5 * 524288000 = 2621440000 (bytes) 1560s [00:52:40.458] - seeds: 1560s [00:52:40.458] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.458] getGlobalsAndPackages() ... 1560s [00:52:40.458] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.458] Resolving globals: FALSE 1560s [00:52:40.459] The total size of the 5 globals is 3.41 KiB (3488 bytes) 1560s [00:52:40.459] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 3.41 KiB.. This exceeds the maximum allowed size of 2.44 GiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (3.24 KiB of class ‘function’), ‘...future.elements_ii’ (168 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1560s [00:52:40.460] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.460] 1560s [00:52:40.460] getGlobalsAndPackages() ... DONE 1560s [00:52:40.460] run() for ‘Future’ ... 1560s [00:52:40.461] - state: ‘created’ 1560s [00:52:40.461] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1560s [00:52:40.461] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1560s [00:52:40.461] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1560s [00:52:40.461] - Field: ‘label’ 1560s [00:52:40.462] - Field: ‘local’ 1560s [00:52:40.462] - Field: ‘owner’ 1560s [00:52:40.462] - Field: ‘envir’ 1560s [00:52:40.462] - Field: ‘packages’ 1560s [00:52:40.462] - Field: ‘gc’ 1560s [00:52:40.462] - Field: ‘conditions’ 1560s [00:52:40.462] - Field: ‘expr’ 1560s [00:52:40.463] - Field: ‘uuid’ 1560s [00:52:40.463] - Field: ‘seed’ 1560s [00:52:40.463] - Field: ‘version’ 1560s [00:52:40.463] - Field: ‘result’ 1560s [00:52:40.463] - Field: ‘asynchronous’ 1560s [00:52:40.463] - Field: ‘calls’ 1560s [00:52:40.463] - Field: ‘globals’ 1560s [00:52:40.464] - Field: ‘stdout’ 1560s [00:52:40.464] - Field: ‘earlySignal’ 1560s [00:52:40.464] - Field: ‘lazy’ 1560s [00:52:40.464] - Field: ‘state’ 1560s [00:52:40.464] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1560s [00:52:40.464] - Launch lazy future ... 1560s [00:52:40.465] Packages needed by the future expression (n = 0): 1560s [00:52:40.465] Packages needed by future strategies (n = 0): 1560s [00:52:40.465] { 1560s [00:52:40.465] { 1560s [00:52:40.465] { 1560s [00:52:40.465] ...future.startTime <- base::Sys.time() 1560s [00:52:40.465] { 1560s [00:52:40.465] { 1560s [00:52:40.465] { 1560s [00:52:40.465] base::local({ 1560s [00:52:40.465] has_future <- base::requireNamespace("future", 1560s [00:52:40.465] quietly = TRUE) 1560s [00:52:40.465] if (has_future) { 1560s [00:52:40.465] ns <- base::getNamespace("future") 1560s [00:52:40.465] version <- ns[[".package"]][["version"]] 1560s [00:52:40.465] if (is.null(version)) 1560s [00:52:40.465] version <- utils::packageVersion("future") 1560s [00:52:40.465] } 1560s [00:52:40.465] else { 1560s [00:52:40.465] version <- NULL 1560s [00:52:40.465] } 1560s [00:52:40.465] if (!has_future || version < "1.8.0") { 1560s [00:52:40.465] info <- base::c(r_version = base::gsub("R version ", 1560s [00:52:40.465] "", base::R.version$version.string), 1560s [00:52:40.465] platform = base::sprintf("%s (%s-bit)", 1560s [00:52:40.465] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1560s [00:52:40.465] os = base::paste(base::Sys.info()[base::c("sysname", 1560s [00:52:40.465] "release", "version")], collapse = " "), 1560s [00:52:40.465] hostname = base::Sys.info()[["nodename"]]) 1560s [00:52:40.465] info <- base::sprintf("%s: %s", base::names(info), 1560s [00:52:40.465] info) 1560s [00:52:40.465] info <- base::paste(info, collapse = "; ") 1560s [00:52:40.465] if (!has_future) { 1560s [00:52:40.465] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1560s [00:52:40.465] info) 1560s [00:52:40.465] } 1560s [00:52:40.465] else { 1560s [00:52:40.465] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1560s [00:52:40.465] info, version) 1560s [00:52:40.465] } 1560s [00:52:40.465] base::stop(msg) 1560s [00:52:40.465] } 1560s [00:52:40.465] }) 1560s [00:52:40.465] } 1560s [00:52:40.465] options(future.plan = NULL) 1560s [00:52:40.465] Sys.unsetenv("R_FUTURE_PLAN") 1560s [00:52:40.465] future::plan("default", .cleanup = FALSE, .init = FALSE) 1560s [00:52:40.465] } 1560s [00:52:40.465] ...future.workdir <- getwd() 1560s [00:52:40.465] } 1560s [00:52:40.465] ...future.oldOptions <- base::as.list(base::.Options) 1560s [00:52:40.465] ...future.oldEnvVars <- base::Sys.getenv() 1560s [00:52:40.465] } 1560s [00:52:40.465] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1560s [00:52:40.465] future.globals.maxSize = 2621440000, future.globals.method = NULL, 1560s [00:52:40.465] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1560s [00:52:40.465] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1560s [00:52:40.465] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1560s [00:52:40.465] future.stdout.windows.reencode = NULL, width = 80L) 1560s [00:52:40.465] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1560s [00:52:40.465] base::names(...future.oldOptions)) 1560s [00:52:40.465] } 1560s [00:52:40.465] if (FALSE) { 1560s [00:52:40.465] } 1560s [00:52:40.465] else { 1560s [00:52:40.465] if (TRUE) { 1560s [00:52:40.465] ...future.stdout <- base::rawConnection(base::raw(0L), 1560s [00:52:40.465] open = "w") 1560s [00:52:40.465] } 1560s [00:52:40.465] else { 1560s [00:52:40.465] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1560s [00:52:40.465] windows = "NUL", "/dev/null"), open = "w") 1560s [00:52:40.465] } 1560s [00:52:40.465] base::sink(...future.stdout, type = "output", split = FALSE) 1560s [00:52:40.465] base::on.exit(if (!base::is.null(...future.stdout)) { 1560s [00:52:40.465] base::sink(type = "output", split = FALSE) 1560s [00:52:40.465] base::close(...future.stdout) 1560s [00:52:40.465] }, add = TRUE) 1560s [00:52:40.465] } 1560s [00:52:40.465] ...future.frame <- base::sys.nframe() 1560s [00:52:40.465] ...future.conditions <- base::list() 1560s [00:52:40.465] ...future.rng <- base::globalenv()$.Random.seed 1560s [00:52:40.465] if (FALSE) { 1560s [00:52:40.465] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1560s [00:52:40.465] "...future.value", "...future.globalenv.names", ".Random.seed") 1560s [00:52:40.465] } 1560s [00:52:40.465] ...future.result <- base::tryCatch({ 1560s [00:52:40.465] base::withCallingHandlers({ 1560s [00:52:40.465] ...future.value <- base::withVisible(base::local({ 1560s [00:52:40.465] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1560s [00:52:40.465] if (!identical(...future.globals.maxSize.org, 1560s [00:52:40.465] ...future.globals.maxSize)) { 1560s [00:52:40.465] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1560s [00:52:40.465] on.exit(options(oopts), add = TRUE) 1560s [00:52:40.465] } 1560s [00:52:40.465] { 1560s [00:52:40.465] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1560s [00:52:40.465] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1560s [00:52:40.465] USE.NAMES = FALSE) 1560s [00:52:40.465] do.call(mapply, args = args) 1560s [00:52:40.465] } 1560s [00:52:40.465] })) 1560s [00:52:40.465] future::FutureResult(value = ...future.value$value, 1560s [00:52:40.465] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1560s [00:52:40.465] ...future.rng), globalenv = if (FALSE) 1560s [00:52:40.465] list(added = base::setdiff(base::names(base::.GlobalEnv), 1560s [00:52:40.465] ...future.globalenv.names)) 1560s [00:52:40.465] else NULL, started = ...future.startTime, version = "1.8") 1560s [00:52:40.465] }, condition = base::local({ 1560s [00:52:40.465] c <- base::c 1560s [00:52:40.465] inherits <- base::inherits 1560s [00:52:40.465] invokeRestart <- base::invokeRestart 1560s [00:52:40.465] length <- base::length 1560s [00:52:40.465] list <- base::list 1560s [00:52:40.465] seq.int <- base::seq.int 1560s [00:52:40.465] signalCondition <- base::signalCondition 1560s [00:52:40.465] sys.calls <- base::sys.calls 1560s [00:52:40.465] `[[` <- base::`[[` 1560s [00:52:40.465] `+` <- base::`+` 1560s [00:52:40.465] `<<-` <- base::`<<-` 1560s [00:52:40.465] sysCalls <- function(calls = sys.calls(), from = 1L) { 1560s [00:52:40.465] calls[seq.int(from = from + 12L, to = length(calls) - 1560s [00:52:40.465] 3L)] 1560s [00:52:40.465] } 1560s [00:52:40.465] function(cond) { 1560s [00:52:40.465] is_error <- inherits(cond, "error") 1560s [00:52:40.465] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1560s [00:52:40.465] NULL) 1560s [00:52:40.465] if (is_error) { 1560s [00:52:40.465] sessionInformation <- function() { 1560s [00:52:40.465] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1560s [00:52:40.465] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1560s [00:52:40.465] search = base::search(), system = base::Sys.info()) 1560s [00:52:40.465] } 1560s [00:52:40.465] ...future.conditions[[length(...future.conditions) + 1560s [00:52:40.465] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1560s [00:52:40.465] cond$call), session = sessionInformation(), 1560s [00:52:40.465] timestamp = base::Sys.time(), signaled = 0L) 1560s [00:52:40.465] signalCondition(cond) 1560s [00:52:40.465] } 1560s [00:52:40.465] else if (!ignore && TRUE && inherits(cond, c("condition", 1560s [00:52:40.465] "immediateCondition"))) { 1560s [00:52:40.465] signal <- TRUE && inherits(cond, "immediateCondition") 1560s [00:52:40.465] ...future.conditions[[length(...future.conditions) + 1560s [00:52:40.465] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1560s [00:52:40.465] if (TRUE && !signal) { 1560s [00:52:40.465] muffleCondition <- function (cond, pattern = "^muffle") 1560s [00:52:40.465] { 1560s [00:52:40.465] inherits <- base::inherits 1560s [00:52:40.465] invokeRestart <- base::invokeRestart 1560s [00:52:40.465] is.null <- base::is.null 1560s [00:52:40.465] muffled <- FALSE 1560s [00:52:40.465] if (inherits(cond, "message")) { 1560s [00:52:40.465] muffled <- grepl(pattern, "muffleMessage") 1560s [00:52:40.465] if (muffled) 1560s [00:52:40.465] invokeRestart("muffleMessage") 1560s [00:52:40.465] } 1560s [00:52:40.465] else if (inherits(cond, "warning")) { 1560s [00:52:40.465] muffled <- grepl(pattern, "muffleWarning") 1560s [00:52:40.465] if (muffled) 1560s [00:52:40.465] invokeRestart("muffleWarning") 1560s [00:52:40.465] } 1560s [00:52:40.465] else if (inherits(cond, "condition")) { 1560s [00:52:40.465] if (!is.null(pattern)) { 1560s [00:52:40.465] computeRestarts <- base::computeRestarts 1560s [00:52:40.465] grepl <- base::grepl 1560s [00:52:40.465] restarts <- computeRestarts(cond) 1560s [00:52:40.465] for (restart in restarts) { 1560s [00:52:40.465] name <- restart$name 1560s [00:52:40.465] if (is.null(name)) 1560s [00:52:40.465] next 1560s [00:52:40.465] if (!grepl(pattern, name)) 1560s [00:52:40.465] next 1560s [00:52:40.465] invokeRestart(restart) 1560s [00:52:40.465] muffled <- TRUE 1560s [00:52:40.465] break 1560s [00:52:40.465] } 1560s [00:52:40.465] } 1560s [00:52:40.465] } 1560s [00:52:40.465] invisible(muffled) 1560s [00:52:40.465] } 1560s [00:52:40.465] muffleCondition(cond, pattern = "^muffle") 1560s [00:52:40.465] } 1560s [00:52:40.465] } 1560s [00:52:40.465] else { 1560s [00:52:40.465] if (TRUE) { 1560s [00:52:40.465] muffleCondition <- function (cond, pattern = "^muffle") 1560s [00:52:40.465] { 1560s [00:52:40.465] inherits <- base::inherits 1560s [00:52:40.465] invokeRestart <- base::invokeRestart 1560s [00:52:40.465] is.null <- base::is.null 1560s [00:52:40.465] muffled <- FALSE 1560s [00:52:40.465] if (inherits(cond, "message")) { 1560s [00:52:40.465] muffled <- grepl(pattern, "muffleMessage") 1560s [00:52:40.465] if (muffled) 1560s [00:52:40.465] invokeRestart("muffleMessage") 1560s [00:52:40.465] } 1560s [00:52:40.465] else if (inherits(cond, "warning")) { 1560s [00:52:40.465] muffled <- grepl(pattern, "muffleWarning") 1560s [00:52:40.465] if (muffled) 1560s [00:52:40.465] invokeRestart("muffleWarning") 1560s [00:52:40.465] } 1560s [00:52:40.465] else if (inherits(cond, "condition")) { 1560s [00:52:40.465] if (!is.null(pattern)) { 1560s [00:52:40.465] computeRestarts <- base::computeRestarts 1560s [00:52:40.465] grepl <- base::grepl 1560s [00:52:40.465] restarts <- computeRestarts(cond) 1560s [00:52:40.465] for (restart in restarts) { 1560s [00:52:40.465] name <- restart$name 1560s [00:52:40.465] if (is.null(name)) 1560s [00:52:40.465] next 1560s [00:52:40.465] if (!grepl(pattern, name)) 1560s [00:52:40.465] next 1560s [00:52:40.465] invokeRestart(restart) 1560s [00:52:40.465] muffled <- TRUE 1560s [00:52:40.465] break 1560s [00:52:40.465] } 1560s [00:52:40.465] } 1560s [00:52:40.465] } 1560s [00:52:40.465] invisible(muffled) 1560s [00:52:40.465] } 1560s [00:52:40.465] muffleCondition(cond, pattern = "^muffle") 1560s [00:52:40.465] } 1560s [00:52:40.465] } 1560s [00:52:40.465] } 1560s [00:52:40.465] })) 1560s [00:52:40.465] }, error = function(ex) { 1560s [00:52:40.465] base::structure(base::list(value = NULL, visible = NULL, 1560s [00:52:40.465] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1560s [00:52:40.465] ...future.rng), started = ...future.startTime, 1560s [00:52:40.465] finished = Sys.time(), session_uuid = NA_character_, 1560s [00:52:40.465] version = "1.8"), class = "FutureResult") 1560s [00:52:40.465] }, finally = { 1560s [00:52:40.465] if (!identical(...future.workdir, getwd())) 1560s [00:52:40.465] setwd(...future.workdir) 1560s [00:52:40.465] { 1560s [00:52:40.465] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1560s [00:52:40.465] ...future.oldOptions$nwarnings <- NULL 1560s [00:52:40.465] } 1560s [00:52:40.465] base::options(...future.oldOptions) 1560s [00:52:40.465] if (.Platform$OS.type == "windows") { 1560s [00:52:40.465] old_names <- names(...future.oldEnvVars) 1560s [00:52:40.465] envs <- base::Sys.getenv() 1560s [00:52:40.465] names <- names(envs) 1560s [00:52:40.465] common <- intersect(names, old_names) 1560s [00:52:40.465] added <- setdiff(names, old_names) 1560s [00:52:40.465] removed <- setdiff(old_names, names) 1560s [00:52:40.465] changed <- common[...future.oldEnvVars[common] != 1560s [00:52:40.465] envs[common]] 1560s [00:52:40.465] NAMES <- toupper(changed) 1560s [00:52:40.465] args <- list() 1560s [00:52:40.465] for (kk in seq_along(NAMES)) { 1560s [00:52:40.465] name <- changed[[kk]] 1560s [00:52:40.465] NAME <- NAMES[[kk]] 1560s [00:52:40.465] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.465] next 1560s [00:52:40.465] args[[name]] <- ...future.oldEnvVars[[name]] 1560s [00:52:40.465] } 1560s [00:52:40.465] NAMES <- toupper(added) 1560s [00:52:40.465] for (kk in seq_along(NAMES)) { 1560s [00:52:40.465] name <- added[[kk]] 1560s [00:52:40.465] NAME <- NAMES[[kk]] 1560s [00:52:40.465] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.465] next 1560s [00:52:40.465] args[[name]] <- "" 1560s [00:52:40.465] } 1560s [00:52:40.465] NAMES <- toupper(removed) 1560s [00:52:40.465] for (kk in seq_along(NAMES)) { 1560s [00:52:40.465] name <- removed[[kk]] 1560s [00:52:40.465] NAME <- NAMES[[kk]] 1560s [00:52:40.465] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.465] next 1560s [00:52:40.465] args[[name]] <- ...future.oldEnvVars[[name]] 1560s [00:52:40.465] } 1560s [00:52:40.465] if (length(args) > 0) 1560s [00:52:40.465] base::do.call(base::Sys.setenv, args = args) 1560s [00:52:40.465] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1560s [00:52:40.465] } 1560s [00:52:40.465] else { 1560s [00:52:40.465] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1560s [00:52:40.465] } 1560s [00:52:40.465] { 1560s [00:52:40.465] if (base::length(...future.futureOptionsAdded) > 1560s [00:52:40.465] 0L) { 1560s [00:52:40.465] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1560s [00:52:40.465] base::names(opts) <- ...future.futureOptionsAdded 1560s [00:52:40.465] base::options(opts) 1560s [00:52:40.465] } 1560s [00:52:40.465] { 1560s [00:52:40.465] { 1560s [00:52:40.465] base::assign(".Random.seed", c(10407L, -1319993016L, 1560s [00:52:40.465] 1571290074L, -859112415L, -853775137L, 1440155893L, 1560s [00:52:40.465] -732328588L), envir = base::globalenv(), 1560s [00:52:40.465] inherits = FALSE) 1560s [00:52:40.465] NULL 1560s [00:52:40.465] } 1560s [00:52:40.465] options(future.plan = NULL) 1560s [00:52:40.465] if (is.na(NA_character_)) 1560s [00:52:40.465] Sys.unsetenv("R_FUTURE_PLAN") 1560s [00:52:40.465] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1560s [00:52:40.465] future::plan(list(function (..., envir = parent.frame()) 1560s [00:52:40.465] { 1560s [00:52:40.465] future <- SequentialFuture(..., envir = envir) 1560s [00:52:40.465] if (!future$lazy) 1560s [00:52:40.465] future <- run(future) 1560s [00:52:40.465] invisible(future) 1560s [00:52:40.465] }), .cleanup = FALSE, .init = FALSE) 1560s [00:52:40.465] } 1560s [00:52:40.465] } 1560s [00:52:40.465] } 1560s [00:52:40.465] }) 1560s [00:52:40.465] if (TRUE) { 1560s [00:52:40.465] base::sink(type = "output", split = FALSE) 1560s [00:52:40.465] if (TRUE) { 1560s [00:52:40.465] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1560s [00:52:40.465] } 1560s [00:52:40.465] else { 1560s [00:52:40.465] ...future.result["stdout"] <- base::list(NULL) 1560s [00:52:40.465] } 1560s [00:52:40.465] base::close(...future.stdout) 1560s [00:52:40.465] ...future.stdout <- NULL 1560s [00:52:40.465] } 1560s [00:52:40.465] ...future.result$conditions <- ...future.conditions 1560s [00:52:40.465] ...future.result$finished <- base::Sys.time() 1560s [00:52:40.465] ...future.result 1560s [00:52:40.465] } 1560s [00:52:40.469] assign_globals() ... 1560s [00:52:40.470] List of 5 1560s [00:52:40.470] $ ...future.FUN :function (C, k) 1560s [00:52:40.470] $ MoreArgs : NULL 1560s [00:52:40.470] $ ...future.elements_ii :List of 2 1560s [00:52:40.470] ..$ :List of 1 1560s [00:52:40.470] .. ..$ : chr "A" 1560s [00:52:40.470] ..$ :List of 1 1560s [00:52:40.470] .. ..$ : int 5 1560s [00:52:40.470] $ ...future.seeds_ii : NULL 1560s [00:52:40.470] $ ...future.globals.maxSize: NULL 1560s [00:52:40.470] - attr(*, "where")=List of 5 1560s [00:52:40.470] ..$ ...future.FUN : 1560s [00:52:40.470] ..$ MoreArgs : 1560s [00:52:40.470] ..$ ...future.elements_ii : 1560s [00:52:40.470] ..$ ...future.seeds_ii : 1560s [00:52:40.470] ..$ ...future.globals.maxSize: 1560s [00:52:40.470] - attr(*, "resolved")= logi FALSE 1560s [00:52:40.470] - attr(*, "total_size")= num 3488 1560s [00:52:40.470] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1560s [00:52:40.470] - attr(*, "already-done")= logi TRUE 1560s [00:52:40.476] - reassign environment for ‘...future.FUN’ 1560s [00:52:40.476] - copied ‘...future.FUN’ to environment 1560s [00:52:40.476] - copied ‘MoreArgs’ to environment 1560s [00:52:40.476] - copied ‘...future.elements_ii’ to environment 1560s [00:52:40.476] - copied ‘...future.seeds_ii’ to environment 1560s [00:52:40.476] - copied ‘...future.globals.maxSize’ to environment 1560s [00:52:40.477] assign_globals() ... done 1560s [00:52:40.477] plan(): Setting new future strategy stack: 1560s [00:52:40.477] List of future strategies: 1560s [00:52:40.477] 1. sequential: 1560s [00:52:40.477] - args: function (..., envir = parent.frame()) 1560s [00:52:40.477] - tweaked: FALSE 1560s [00:52:40.477] - call: NULL 1560s [00:52:40.477] plan(): nbrOfWorkers() = 1 1560s [00:52:40.478] plan(): Setting new future strategy stack: 1560s [00:52:40.478] List of future strategies: 1560s [00:52:40.478] 1. sequential: 1560s [00:52:40.478] - args: function (..., envir = parent.frame()) 1560s [00:52:40.478] - tweaked: FALSE 1560s [00:52:40.478] - call: plan(strategy) 1560s [00:52:40.479] plan(): nbrOfWorkers() = 1 1560s [00:52:40.479] SequentialFuture started (and completed) 1560s [00:52:40.479] - Launch lazy future ... done 1560s [00:52:40.479] run() for ‘SequentialFuture’ ... done 1560s [00:52:40.479] Created future: 1560s [00:52:40.479] SequentialFuture: 1560s [00:52:40.479] Label: ‘future_mapply-1’ 1560s [00:52:40.479] Expression: 1560s [00:52:40.479] { 1560s [00:52:40.479] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1560s [00:52:40.479] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1560s [00:52:40.479] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1560s [00:52:40.479] on.exit(options(oopts), add = TRUE) 1560s [00:52:40.479] } 1560s [00:52:40.479] { 1560s [00:52:40.479] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1560s [00:52:40.479] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1560s [00:52:40.479] do.call(mapply, args = args) 1560s [00:52:40.479] } 1560s [00:52:40.479] } 1560s [00:52:40.479] Lazy evaluation: FALSE 1560s [00:52:40.479] Asynchronous evaluation: FALSE 1560s [00:52:40.479] Local evaluation: TRUE 1560s [00:52:40.479] Environment: R_GlobalEnv 1560s [00:52:40.479] Capture standard output: TRUE 1560s [00:52:40.479] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1560s [00:52:40.479] Globals: 5 objects totaling 3.41 KiB (function ‘...future.FUN’ of 3.24 KiB, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1560s [00:52:40.479] Packages: 1560s [00:52:40.479] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1560s [00:52:40.479] Resolved: TRUE 1560s [00:52:40.479] Value: 112 bytes of class ‘list’ 1560s [00:52:40.479] Early signaling: FALSE 1560s [00:52:40.479] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1560s [00:52:40.479] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1560s [00:52:40.481] Chunk #1 of 5 ... DONE 1560s [00:52:40.481] Chunk #2 of 5 ... 1560s [00:52:40.481] - Finding globals in '...' for chunk #2 ... 1560s [00:52:40.481] getGlobalsAndPackages() ... 1560s [00:52:40.481] Searching for globals... 1560s [00:52:40.482] 1560s [00:52:40.482] Searching for globals ... DONE 1560s [00:52:40.482] - globals: [0] 1560s [00:52:40.482] getGlobalsAndPackages() ... DONE 1560s [00:52:40.482] + additional globals found: [n=0] 1560s [00:52:40.483] + additional namespaces needed: [n=0] 1560s [00:52:40.483] - Finding globals in '...' for chunk #2 ... DONE 1560s [00:52:40.483] - Adjusted option 'future.globals.maxSize': 524288000 -> 5 * 524288000 = 2621440000 (bytes) 1560s [00:52:40.483] - seeds: 1560s [00:52:40.483] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.483] getGlobalsAndPackages() ... 1560s [00:52:40.483] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.484] Resolving globals: FALSE 1560s [00:52:40.485] The total size of the 5 globals is 3.41 KiB (3488 bytes) 1560s [00:52:40.487] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 3.41 KiB.. This exceeds the maximum allowed size of 2.44 GiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (3.24 KiB of class ‘function’), ‘...future.elements_ii’ (168 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1560s [00:52:40.487] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.487] 1560s [00:52:40.487] getGlobalsAndPackages() ... DONE 1560s [00:52:40.488] run() for ‘Future’ ... 1560s [00:52:40.488] - state: ‘created’ 1560s [00:52:40.488] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1560s [00:52:40.488] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1560s [00:52:40.488] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1560s [00:52:40.489] - Field: ‘label’ 1560s [00:52:40.489] - Field: ‘local’ 1560s [00:52:40.489] - Field: ‘owner’ 1560s [00:52:40.489] - Field: ‘envir’ 1560s [00:52:40.489] - Field: ‘packages’ 1560s [00:52:40.490] - Field: ‘gc’ 1560s [00:52:40.490] - Field: ‘conditions’ 1560s [00:52:40.490] - Field: ‘expr’ 1560s [00:52:40.490] - Field: ‘uuid’ 1560s [00:52:40.490] - Field: ‘seed’ 1560s [00:52:40.491] - Field: ‘version’ 1560s [00:52:40.491] - Field: ‘result’ 1560s [00:52:40.491] - Field: ‘asynchronous’ 1560s [00:52:40.491] - Field: ‘calls’ 1560s [00:52:40.491] - Field: ‘globals’ 1560s [00:52:40.491] - Field: ‘stdout’ 1560s [00:52:40.491] - Field: ‘earlySignal’ 1560s [00:52:40.492] - Field: ‘lazy’ 1560s [00:52:40.492] - Field: ‘state’ 1560s [00:52:40.492] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1560s [00:52:40.492] - Launch lazy future ... 1560s [00:52:40.492] Packages needed by the future expression (n = 0): 1560s [00:52:40.492] Packages needed by future strategies (n = 0): 1560s [00:52:40.493] { 1560s [00:52:40.493] { 1560s [00:52:40.493] { 1560s [00:52:40.493] ...future.startTime <- base::Sys.time() 1560s [00:52:40.493] { 1560s [00:52:40.493] { 1560s [00:52:40.493] { 1560s [00:52:40.493] base::local({ 1560s [00:52:40.493] has_future <- base::requireNamespace("future", 1560s [00:52:40.493] quietly = TRUE) 1560s [00:52:40.493] if (has_future) { 1560s [00:52:40.493] ns <- base::getNamespace("future") 1560s [00:52:40.493] version <- ns[[".package"]][["version"]] 1560s [00:52:40.493] if (is.null(version)) 1560s [00:52:40.493] version <- utils::packageVersion("future") 1560s [00:52:40.493] } 1560s [00:52:40.493] else { 1560s [00:52:40.493] version <- NULL 1560s [00:52:40.493] } 1560s [00:52:40.493] if (!has_future || version < "1.8.0") { 1560s [00:52:40.493] info <- base::c(r_version = base::gsub("R version ", 1560s [00:52:40.493] "", base::R.version$version.string), 1560s [00:52:40.493] platform = base::sprintf("%s (%s-bit)", 1560s [00:52:40.493] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1560s [00:52:40.493] os = base::paste(base::Sys.info()[base::c("sysname", 1560s [00:52:40.493] "release", "version")], collapse = " "), 1560s [00:52:40.493] hostname = base::Sys.info()[["nodename"]]) 1560s [00:52:40.493] info <- base::sprintf("%s: %s", base::names(info), 1560s [00:52:40.493] info) 1560s [00:52:40.493] info <- base::paste(info, collapse = "; ") 1560s [00:52:40.493] if (!has_future) { 1560s [00:52:40.493] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1560s [00:52:40.493] info) 1560s [00:52:40.493] } 1560s [00:52:40.493] else { 1560s [00:52:40.493] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1560s [00:52:40.493] info, version) 1560s [00:52:40.493] } 1560s [00:52:40.493] base::stop(msg) 1560s [00:52:40.493] } 1560s [00:52:40.493] }) 1560s [00:52:40.493] } 1560s [00:52:40.493] options(future.plan = NULL) 1560s [00:52:40.493] Sys.unsetenv("R_FUTURE_PLAN") 1560s [00:52:40.493] future::plan("default", .cleanup = FALSE, .init = FALSE) 1560s [00:52:40.493] } 1560s [00:52:40.493] ...future.workdir <- getwd() 1560s [00:52:40.493] } 1560s [00:52:40.493] ...future.oldOptions <- base::as.list(base::.Options) 1560s [00:52:40.493] ...future.oldEnvVars <- base::Sys.getenv() 1560s [00:52:40.493] } 1560s [00:52:40.493] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1560s [00:52:40.493] future.globals.maxSize = 2621440000, future.globals.method = NULL, 1560s [00:52:40.493] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1560s [00:52:40.493] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1560s [00:52:40.493] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1560s [00:52:40.493] future.stdout.windows.reencode = NULL, width = 80L) 1560s [00:52:40.493] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1560s [00:52:40.493] base::names(...future.oldOptions)) 1560s [00:52:40.493] } 1560s [00:52:40.493] if (FALSE) { 1560s [00:52:40.493] } 1560s [00:52:40.493] else { 1560s [00:52:40.493] if (TRUE) { 1560s [00:52:40.493] ...future.stdout <- base::rawConnection(base::raw(0L), 1560s [00:52:40.493] open = "w") 1560s [00:52:40.493] } 1560s [00:52:40.493] else { 1560s [00:52:40.493] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1560s [00:52:40.493] windows = "NUL", "/dev/null"), open = "w") 1560s [00:52:40.493] } 1560s [00:52:40.493] base::sink(...future.stdout, type = "output", split = FALSE) 1560s [00:52:40.493] base::on.exit(if (!base::is.null(...future.stdout)) { 1560s [00:52:40.493] base::sink(type = "output", split = FALSE) 1560s [00:52:40.493] base::close(...future.stdout) 1560s [00:52:40.493] }, add = TRUE) 1560s [00:52:40.493] } 1560s [00:52:40.493] ...future.frame <- base::sys.nframe() 1560s [00:52:40.493] ...future.conditions <- base::list() 1560s [00:52:40.493] ...future.rng <- base::globalenv()$.Random.seed 1560s [00:52:40.493] if (FALSE) { 1560s [00:52:40.493] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1560s [00:52:40.493] "...future.value", "...future.globalenv.names", ".Random.seed") 1560s [00:52:40.493] } 1560s [00:52:40.493] ...future.result <- base::tryCatch({ 1560s [00:52:40.493] base::withCallingHandlers({ 1560s [00:52:40.493] ...future.value <- base::withVisible(base::local({ 1560s [00:52:40.493] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1560s [00:52:40.493] if (!identical(...future.globals.maxSize.org, 1560s [00:52:40.493] ...future.globals.maxSize)) { 1560s [00:52:40.493] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1560s [00:52:40.493] on.exit(options(oopts), add = TRUE) 1560s [00:52:40.493] } 1560s [00:52:40.493] { 1560s [00:52:40.493] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1560s [00:52:40.493] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1560s [00:52:40.493] USE.NAMES = FALSE) 1560s [00:52:40.493] do.call(mapply, args = args) 1560s [00:52:40.493] } 1560s [00:52:40.493] })) 1560s [00:52:40.493] future::FutureResult(value = ...future.value$value, 1560s [00:52:40.493] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1560s [00:52:40.493] ...future.rng), globalenv = if (FALSE) 1560s [00:52:40.493] list(added = base::setdiff(base::names(base::.GlobalEnv), 1560s [00:52:40.493] ...future.globalenv.names)) 1560s [00:52:40.493] else NULL, started = ...future.startTime, version = "1.8") 1560s [00:52:40.493] }, condition = base::local({ 1560s [00:52:40.493] c <- base::c 1560s [00:52:40.493] inherits <- base::inherits 1560s [00:52:40.493] invokeRestart <- base::invokeRestart 1560s [00:52:40.493] length <- base::length 1560s [00:52:40.493] list <- base::list 1560s [00:52:40.493] seq.int <- base::seq.int 1560s [00:52:40.493] signalCondition <- base::signalCondition 1560s [00:52:40.493] sys.calls <- base::sys.calls 1560s [00:52:40.493] `[[` <- base::`[[` 1560s [00:52:40.493] `+` <- base::`+` 1560s [00:52:40.493] `<<-` <- base::`<<-` 1560s [00:52:40.493] sysCalls <- function(calls = sys.calls(), from = 1L) { 1560s [00:52:40.493] calls[seq.int(from = from + 12L, to = length(calls) - 1560s [00:52:40.493] 3L)] 1560s [00:52:40.493] } 1560s [00:52:40.493] function(cond) { 1560s [00:52:40.493] is_error <- inherits(cond, "error") 1560s [00:52:40.493] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1560s [00:52:40.493] NULL) 1560s [00:52:40.493] if (is_error) { 1560s [00:52:40.493] sessionInformation <- function() { 1560s [00:52:40.493] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1560s [00:52:40.493] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1560s [00:52:40.493] search = base::search(), system = base::Sys.info()) 1560s [00:52:40.493] } 1560s [00:52:40.493] ...future.conditions[[length(...future.conditions) + 1560s [00:52:40.493] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1560s [00:52:40.493] cond$call), session = sessionInformation(), 1560s [00:52:40.493] timestamp = base::Sys.time(), signaled = 0L) 1560s [00:52:40.493] signalCondition(cond) 1560s [00:52:40.493] } 1560s [00:52:40.493] else if (!ignore && TRUE && inherits(cond, c("condition", 1560s [00:52:40.493] "immediateCondition"))) { 1560s [00:52:40.493] signal <- TRUE && inherits(cond, "immediateCondition") 1560s [00:52:40.493] ...future.conditions[[length(...future.conditions) + 1560s [00:52:40.493] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1560s [00:52:40.493] if (TRUE && !signal) { 1560s [00:52:40.493] muffleCondition <- function (cond, pattern = "^muffle") 1560s [00:52:40.493] { 1560s [00:52:40.493] inherits <- base::inherits 1560s [00:52:40.493] invokeRestart <- base::invokeRestart 1560s [00:52:40.493] is.null <- base::is.null 1560s [00:52:40.493] muffled <- FALSE 1560s [00:52:40.493] if (inherits(cond, "message")) { 1560s [00:52:40.493] muffled <- grepl(pattern, "muffleMessage") 1560s [00:52:40.493] if (muffled) 1560s [00:52:40.493] invokeRestart("muffleMessage") 1560s [00:52:40.493] } 1560s [00:52:40.493] else if (inherits(cond, "warning")) { 1560s [00:52:40.493] muffled <- grepl(pattern, "muffleWarning") 1560s [00:52:40.493] if (muffled) 1560s [00:52:40.493] invokeRestart("muffleWarning") 1560s [00:52:40.493] } 1560s [00:52:40.493] else if (inherits(cond, "condition")) { 1560s [00:52:40.493] if (!is.null(pattern)) { 1560s [00:52:40.493] computeRestarts <- base::computeRestarts 1560s [00:52:40.493] grepl <- base::grepl 1560s [00:52:40.493] restarts <- computeRestarts(cond) 1560s [00:52:40.493] for (restart in restarts) { 1560s [00:52:40.493] name <- restart$name 1560s [00:52:40.493] if (is.null(name)) 1560s [00:52:40.493] next 1560s [00:52:40.493] if (!grepl(pattern, name)) 1560s [00:52:40.493] next 1560s [00:52:40.493] invokeRestart(restart) 1560s [00:52:40.493] muffled <- TRUE 1560s [00:52:40.493] break 1560s [00:52:40.493] } 1560s [00:52:40.493] } 1560s [00:52:40.493] } 1560s [00:52:40.493] invisible(muffled) 1560s [00:52:40.493] } 1560s [00:52:40.493] muffleCondition(cond, pattern = "^muffle") 1560s [00:52:40.493] } 1560s [00:52:40.493] } 1560s [00:52:40.493] else { 1560s [00:52:40.493] if (TRUE) { 1560s [00:52:40.493] muffleCondition <- function (cond, pattern = "^muffle") 1560s [00:52:40.493] { 1560s [00:52:40.493] inherits <- base::inherits 1560s [00:52:40.493] invokeRestart <- base::invokeRestart 1560s [00:52:40.493] is.null <- base::is.null 1560s [00:52:40.493] muffled <- FALSE 1560s [00:52:40.493] if (inherits(cond, "message")) { 1560s [00:52:40.493] muffled <- grepl(pattern, "muffleMessage") 1560s [00:52:40.493] if (muffled) 1560s [00:52:40.493] invokeRestart("muffleMessage") 1560s [00:52:40.493] } 1560s [00:52:40.493] else if (inherits(cond, "warning")) { 1560s [00:52:40.493] muffled <- grepl(pattern, "muffleWarning") 1560s [00:52:40.493] if (muffled) 1560s [00:52:40.493] invokeRestart("muffleWarning") 1560s [00:52:40.493] } 1560s [00:52:40.493] else if (inherits(cond, "condition")) { 1560s [00:52:40.493] if (!is.null(pattern)) { 1560s [00:52:40.493] computeRestarts <- base::computeRestarts 1560s [00:52:40.493] grepl <- base::grepl 1560s [00:52:40.493] restarts <- computeRestarts(cond) 1560s [00:52:40.493] for (restart in restarts) { 1560s [00:52:40.493] name <- restart$name 1560s [00:52:40.493] if (is.null(name)) 1560s [00:52:40.493] next 1560s [00:52:40.493] if (!grepl(pattern, name)) 1560s [00:52:40.493] next 1560s [00:52:40.493] invokeRestart(restart) 1560s [00:52:40.493] muffled <- TRUE 1560s [00:52:40.493] break 1560s [00:52:40.493] } 1560s [00:52:40.493] } 1560s [00:52:40.493] } 1560s [00:52:40.493] invisible(muffled) 1560s [00:52:40.493] } 1560s [00:52:40.493] muffleCondition(cond, pattern = "^muffle") 1560s [00:52:40.493] } 1560s [00:52:40.493] } 1560s [00:52:40.493] } 1560s [00:52:40.493] })) 1560s [00:52:40.493] }, error = function(ex) { 1560s [00:52:40.493] base::structure(base::list(value = NULL, visible = NULL, 1560s [00:52:40.493] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1560s [00:52:40.493] ...future.rng), started = ...future.startTime, 1560s [00:52:40.493] finished = Sys.time(), session_uuid = NA_character_, 1560s [00:52:40.493] version = "1.8"), class = "FutureResult") 1560s [00:52:40.493] }, finally = { 1560s [00:52:40.493] if (!identical(...future.workdir, getwd())) 1560s [00:52:40.493] setwd(...future.workdir) 1560s [00:52:40.493] { 1560s [00:52:40.493] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1560s [00:52:40.493] ...future.oldOptions$nwarnings <- NULL 1560s [00:52:40.493] } 1560s [00:52:40.493] base::options(...future.oldOptions) 1560s [00:52:40.493] if (.Platform$OS.type == "windows") { 1560s [00:52:40.493] old_names <- names(...future.oldEnvVars) 1560s [00:52:40.493] envs <- base::Sys.getenv() 1560s [00:52:40.493] names <- names(envs) 1560s [00:52:40.493] common <- intersect(names, old_names) 1560s [00:52:40.493] added <- setdiff(names, old_names) 1560s [00:52:40.493] removed <- setdiff(old_names, names) 1560s [00:52:40.493] changed <- common[...future.oldEnvVars[common] != 1560s [00:52:40.493] envs[common]] 1560s [00:52:40.493] NAMES <- toupper(changed) 1560s [00:52:40.493] args <- list() 1560s [00:52:40.493] for (kk in seq_along(NAMES)) { 1560s [00:52:40.493] name <- changed[[kk]] 1560s [00:52:40.493] NAME <- NAMES[[kk]] 1560s [00:52:40.493] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.493] next 1560s [00:52:40.493] args[[name]] <- ...future.oldEnvVars[[name]] 1560s [00:52:40.493] } 1560s [00:52:40.493] NAMES <- toupper(added) 1560s [00:52:40.493] for (kk in seq_along(NAMES)) { 1560s [00:52:40.493] name <- added[[kk]] 1560s [00:52:40.493] NAME <- NAMES[[kk]] 1560s [00:52:40.493] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.493] next 1560s [00:52:40.493] args[[name]] <- "" 1560s [00:52:40.493] } 1560s [00:52:40.493] NAMES <- toupper(removed) 1560s [00:52:40.493] for (kk in seq_along(NAMES)) { 1560s [00:52:40.493] name <- removed[[kk]] 1560s [00:52:40.493] NAME <- NAMES[[kk]] 1560s [00:52:40.493] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.493] next 1560s [00:52:40.493] args[[name]] <- ...future.oldEnvVars[[name]] 1560s [00:52:40.493] } 1560s [00:52:40.493] if (length(args) > 0) 1560s [00:52:40.493] base::do.call(base::Sys.setenv, args = args) 1560s [00:52:40.493] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1560s [00:52:40.493] } 1560s [00:52:40.493] else { 1560s [00:52:40.493] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1560s [00:52:40.493] } 1560s [00:52:40.493] { 1560s [00:52:40.493] if (base::length(...future.futureOptionsAdded) > 1560s [00:52:40.493] 0L) { 1560s [00:52:40.493] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1560s [00:52:40.493] base::names(opts) <- ...future.futureOptionsAdded 1560s [00:52:40.493] base::options(opts) 1560s [00:52:40.493] } 1560s [00:52:40.493] { 1560s [00:52:40.493] { 1560s [00:52:40.493] base::assign(".Random.seed", c(10407L, -1319993016L, 1560s [00:52:40.493] 1571290074L, -859112415L, -853775137L, 1440155893L, 1560s [00:52:40.493] -732328588L), envir = base::globalenv(), 1560s [00:52:40.493] inherits = FALSE) 1560s [00:52:40.493] NULL 1560s [00:52:40.493] } 1560s [00:52:40.493] options(future.plan = NULL) 1560s [00:52:40.493] if (is.na(NA_character_)) 1560s [00:52:40.493] Sys.unsetenv("R_FUTURE_PLAN") 1560s [00:52:40.493] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1560s [00:52:40.493] future::plan(list(function (..., envir = parent.frame()) 1560s [00:52:40.493] { 1560s [00:52:40.493] future <- SequentialFuture(..., envir = envir) 1560s [00:52:40.493] if (!future$lazy) 1560s [00:52:40.493] future <- run(future) 1560s [00:52:40.493] invisible(future) 1560s [00:52:40.493] }), .cleanup = FALSE, .init = FALSE) 1560s [00:52:40.493] } 1560s [00:52:40.493] } 1560s [00:52:40.493] } 1560s [00:52:40.493] }) 1560s [00:52:40.493] if (TRUE) { 1560s [00:52:40.493] base::sink(type = "output", split = FALSE) 1560s [00:52:40.493] if (TRUE) { 1560s [00:52:40.493] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1560s [00:52:40.493] } 1560s [00:52:40.493] else { 1560s [00:52:40.493] ...future.result["stdout"] <- base::list(NULL) 1560s [00:52:40.493] } 1560s [00:52:40.493] base::close(...future.stdout) 1560s [00:52:40.493] ...future.stdout <- NULL 1560s [00:52:40.493] } 1560s [00:52:40.493] ...future.result$conditions <- ...future.conditions 1560s [00:52:40.493] ...future.result$finished <- base::Sys.time() 1560s [00:52:40.493] ...future.result 1560s [00:52:40.493] } 1560s [00:52:40.496] assign_globals() ... 1560s [00:52:40.496] List of 5 1560s [00:52:40.496] $ ...future.FUN :function (C, k) 1560s [00:52:40.496] $ MoreArgs : NULL 1560s [00:52:40.496] $ ...future.elements_ii :List of 2 1560s [00:52:40.496] ..$ :List of 1 1560s [00:52:40.496] .. ..$ : chr "B" 1560s [00:52:40.496] ..$ :List of 1 1560s [00:52:40.496] .. ..$ : int 4 1560s [00:52:40.496] $ ...future.seeds_ii : NULL 1560s [00:52:40.496] $ ...future.globals.maxSize: NULL 1560s [00:52:40.496] - attr(*, "where")=List of 5 1560s [00:52:40.496] ..$ ...future.FUN : 1560s [00:52:40.496] ..$ MoreArgs : 1560s [00:52:40.496] ..$ ...future.elements_ii : 1560s [00:52:40.496] ..$ ...future.seeds_ii : 1560s [00:52:40.496] ..$ ...future.globals.maxSize: 1560s [00:52:40.496] - attr(*, "resolved")= logi FALSE 1560s [00:52:40.496] - attr(*, "total_size")= num 3488 1560s [00:52:40.496] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1560s [00:52:40.496] - attr(*, "already-done")= logi TRUE 1560s [00:52:40.503] - reassign environment for ‘...future.FUN’ 1560s [00:52:40.503] - copied ‘...future.FUN’ to environment 1560s [00:52:40.503] - copied ‘MoreArgs’ to environment 1560s [00:52:40.503] - copied ‘...future.elements_ii’ to environment 1560s [00:52:40.503] - copied ‘...future.seeds_ii’ to environment 1560s [00:52:40.503] - copied ‘...future.globals.maxSize’ to environment 1560s [00:52:40.503] assign_globals() ... done 1560s [00:52:40.504] plan(): Setting new future strategy stack: 1560s [00:52:40.504] List of future strategies: 1560s [00:52:40.504] 1. sequential: 1560s [00:52:40.504] - args: function (..., envir = parent.frame()) 1560s [00:52:40.504] - tweaked: FALSE 1560s [00:52:40.504] - call: NULL 1560s [00:52:40.504] plan(): nbrOfWorkers() = 1 1560s [00:52:40.505] plan(): Setting new future strategy stack: 1560s [00:52:40.505] List of future strategies: 1560s [00:52:40.505] 1. sequential: 1560s [00:52:40.505] - args: function (..., envir = parent.frame()) 1560s [00:52:40.505] - tweaked: FALSE 1560s [00:52:40.505] - call: plan(strategy) 1560s [00:52:40.506] plan(): nbrOfWorkers() = 1 1560s [00:52:40.506] SequentialFuture started (and completed) 1560s [00:52:40.506] - Launch lazy future ... done 1560s [00:52:40.506] run() for ‘SequentialFuture’ ... done 1560s [00:52:40.506] Created future: 1560s [00:52:40.507] SequentialFuture: 1560s [00:52:40.507] Label: ‘future_mapply-2’ 1560s [00:52:40.507] Expression: 1560s [00:52:40.507] { 1560s [00:52:40.507] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1560s [00:52:40.507] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1560s [00:52:40.507] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1560s [00:52:40.507] on.exit(options(oopts), add = TRUE) 1560s [00:52:40.507] } 1560s [00:52:40.507] { 1560s [00:52:40.507] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1560s [00:52:40.507] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1560s [00:52:40.507] do.call(mapply, args = args) 1560s [00:52:40.507] } 1560s [00:52:40.507] } 1560s [00:52:40.507] Lazy evaluation: FALSE 1560s [00:52:40.507] Asynchronous evaluation: FALSE 1560s [00:52:40.507] Local evaluation: TRUE 1560s [00:52:40.507] Environment: R_GlobalEnv 1560s [00:52:40.507] Capture standard output: TRUE 1560s [00:52:40.507] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1560s [00:52:40.507] Globals: 5 objects totaling 3.41 KiB (function ‘...future.FUN’ of 3.24 KiB, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1560s [00:52:40.507] Packages: 1560s [00:52:40.507] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1560s [00:52:40.507] Resolved: TRUE 1560s [00:52:40.507] Value: 112 bytes of class ‘list’ 1560s [00:52:40.507] Early signaling: FALSE 1560s [00:52:40.507] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1560s [00:52:40.507] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1560s [00:52:40.508] Chunk #2 of 5 ... DONE 1560s [00:52:40.508] Chunk #3 of 5 ... 1560s [00:52:40.508] - Finding globals in '...' for chunk #3 ... 1560s [00:52:40.508] getGlobalsAndPackages() ... 1560s [00:52:40.508] Searching for globals... 1560s [00:52:40.509] 1560s [00:52:40.509] Searching for globals ... DONE 1560s [00:52:40.509] - globals: [0] 1560s [00:52:40.509] getGlobalsAndPackages() ... DONE 1560s [00:52:40.509] + additional globals found: [n=0] 1560s [00:52:40.510] + additional namespaces needed: [n=0] 1560s [00:52:40.510] - Finding globals in '...' for chunk #3 ... DONE 1560s [00:52:40.510] - Adjusted option 'future.globals.maxSize': 524288000 -> 5 * 524288000 = 2621440000 (bytes) 1560s [00:52:40.510] - seeds: 1560s [00:52:40.510] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.510] getGlobalsAndPackages() ... 1560s [00:52:40.510] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.511] Resolving globals: FALSE 1560s [00:52:40.511] The total size of the 5 globals is 3.41 KiB (3488 bytes) 1560s [00:52:40.512] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 3.41 KiB.. This exceeds the maximum allowed size of 2.44 GiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (3.24 KiB of class ‘function’), ‘...future.elements_ii’ (168 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1560s [00:52:40.512] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.512] 1560s [00:52:40.512] getGlobalsAndPackages() ... DONE 1560s [00:52:40.513] run() for ‘Future’ ... 1560s [00:52:40.513] - state: ‘created’ 1560s [00:52:40.513] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1560s [00:52:40.513] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1560s [00:52:40.513] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1560s [00:52:40.514] - Field: ‘label’ 1560s [00:52:40.514] - Field: ‘local’ 1560s [00:52:40.514] - Field: ‘owner’ 1560s [00:52:40.514] - Field: ‘envir’ 1560s [00:52:40.514] - Field: ‘packages’ 1560s [00:52:40.514] - Field: ‘gc’ 1560s [00:52:40.515] - Field: ‘conditions’ 1560s [00:52:40.515] - Field: ‘expr’ 1560s [00:52:40.515] - Field: ‘uuid’ 1560s [00:52:40.515] - Field: ‘seed’ 1560s [00:52:40.515] - Field: ‘version’ 1560s [00:52:40.515] - Field: ‘result’ 1560s [00:52:40.515] - Field: ‘asynchronous’ 1560s [00:52:40.515] - Field: ‘calls’ 1560s [00:52:40.516] - Field: ‘globals’ 1560s [00:52:40.516] - Field: ‘stdout’ 1560s [00:52:40.516] - Field: ‘earlySignal’ 1560s [00:52:40.516] - Field: ‘lazy’ 1560s [00:52:40.516] - Field: ‘state’ 1560s [00:52:40.517] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1560s [00:52:40.517] - Launch lazy future ... 1560s [00:52:40.517] Packages needed by the future expression (n = 0): 1560s [00:52:40.517] Packages needed by future strategies (n = 0): 1560s [00:52:40.518] { 1560s [00:52:40.518] { 1560s [00:52:40.518] { 1560s [00:52:40.518] ...future.startTime <- base::Sys.time() 1560s [00:52:40.518] { 1560s [00:52:40.518] { 1560s [00:52:40.518] { 1560s [00:52:40.518] base::local({ 1560s [00:52:40.518] has_future <- base::requireNamespace("future", 1560s [00:52:40.518] quietly = TRUE) 1560s [00:52:40.518] if (has_future) { 1560s [00:52:40.518] ns <- base::getNamespace("future") 1560s [00:52:40.518] version <- ns[[".package"]][["version"]] 1560s [00:52:40.518] if (is.null(version)) 1560s [00:52:40.518] version <- utils::packageVersion("future") 1560s [00:52:40.518] } 1560s [00:52:40.518] else { 1560s [00:52:40.518] version <- NULL 1560s [00:52:40.518] } 1560s [00:52:40.518] if (!has_future || version < "1.8.0") { 1560s [00:52:40.518] info <- base::c(r_version = base::gsub("R version ", 1560s [00:52:40.518] "", base::R.version$version.string), 1560s [00:52:40.518] platform = base::sprintf("%s (%s-bit)", 1560s [00:52:40.518] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1560s [00:52:40.518] os = base::paste(base::Sys.info()[base::c("sysname", 1560s [00:52:40.518] "release", "version")], collapse = " "), 1560s [00:52:40.518] hostname = base::Sys.info()[["nodename"]]) 1560s [00:52:40.518] info <- base::sprintf("%s: %s", base::names(info), 1560s [00:52:40.518] info) 1560s [00:52:40.518] info <- base::paste(info, collapse = "; ") 1560s [00:52:40.518] if (!has_future) { 1560s [00:52:40.518] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1560s [00:52:40.518] info) 1560s [00:52:40.518] } 1560s [00:52:40.518] else { 1560s [00:52:40.518] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1560s [00:52:40.518] info, version) 1560s [00:52:40.518] } 1560s [00:52:40.518] base::stop(msg) 1560s [00:52:40.518] } 1560s [00:52:40.518] }) 1560s [00:52:40.518] } 1560s [00:52:40.518] options(future.plan = NULL) 1560s [00:52:40.518] Sys.unsetenv("R_FUTURE_PLAN") 1560s [00:52:40.518] future::plan("default", .cleanup = FALSE, .init = FALSE) 1560s [00:52:40.518] } 1560s [00:52:40.518] ...future.workdir <- getwd() 1560s [00:52:40.518] } 1560s [00:52:40.518] ...future.oldOptions <- base::as.list(base::.Options) 1560s [00:52:40.518] ...future.oldEnvVars <- base::Sys.getenv() 1560s [00:52:40.518] } 1560s [00:52:40.518] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1560s [00:52:40.518] future.globals.maxSize = 2621440000, future.globals.method = NULL, 1560s [00:52:40.518] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1560s [00:52:40.518] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1560s [00:52:40.518] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1560s [00:52:40.518] future.stdout.windows.reencode = NULL, width = 80L) 1560s [00:52:40.518] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1560s [00:52:40.518] base::names(...future.oldOptions)) 1560s [00:52:40.518] } 1560s [00:52:40.518] if (FALSE) { 1560s [00:52:40.518] } 1560s [00:52:40.518] else { 1560s [00:52:40.518] if (TRUE) { 1560s [00:52:40.518] ...future.stdout <- base::rawConnection(base::raw(0L), 1560s [00:52:40.518] open = "w") 1560s [00:52:40.518] } 1560s [00:52:40.518] else { 1560s [00:52:40.518] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1560s [00:52:40.518] windows = "NUL", "/dev/null"), open = "w") 1560s [00:52:40.518] } 1560s [00:52:40.518] base::sink(...future.stdout, type = "output", split = FALSE) 1560s [00:52:40.518] base::on.exit(if (!base::is.null(...future.stdout)) { 1560s [00:52:40.518] base::sink(type = "output", split = FALSE) 1560s [00:52:40.518] base::close(...future.stdout) 1560s [00:52:40.518] }, add = TRUE) 1560s [00:52:40.518] } 1560s [00:52:40.518] ...future.frame <- base::sys.nframe() 1560s [00:52:40.518] ...future.conditions <- base::list() 1560s [00:52:40.518] ...future.rng <- base::globalenv()$.Random.seed 1560s [00:52:40.518] if (FALSE) { 1560s [00:52:40.518] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1560s [00:52:40.518] "...future.value", "...future.globalenv.names", ".Random.seed") 1560s [00:52:40.518] } 1560s [00:52:40.518] ...future.result <- base::tryCatch({ 1560s [00:52:40.518] base::withCallingHandlers({ 1560s [00:52:40.518] ...future.value <- base::withVisible(base::local({ 1560s [00:52:40.518] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1560s [00:52:40.518] if (!identical(...future.globals.maxSize.org, 1560s [00:52:40.518] ...future.globals.maxSize)) { 1560s [00:52:40.518] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1560s [00:52:40.518] on.exit(options(oopts), add = TRUE) 1560s [00:52:40.518] } 1560s [00:52:40.518] { 1560s [00:52:40.518] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1560s [00:52:40.518] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1560s [00:52:40.518] USE.NAMES = FALSE) 1560s [00:52:40.518] do.call(mapply, args = args) 1560s [00:52:40.518] } 1560s [00:52:40.518] })) 1560s [00:52:40.518] future::FutureResult(value = ...future.value$value, 1560s [00:52:40.518] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1560s [00:52:40.518] ...future.rng), globalenv = if (FALSE) 1560s [00:52:40.518] list(added = base::setdiff(base::names(base::.GlobalEnv), 1560s [00:52:40.518] ...future.globalenv.names)) 1560s [00:52:40.518] else NULL, started = ...future.startTime, version = "1.8") 1560s [00:52:40.518] }, condition = base::local({ 1560s [00:52:40.518] c <- base::c 1560s [00:52:40.518] inherits <- base::inherits 1560s [00:52:40.518] invokeRestart <- base::invokeRestart 1560s [00:52:40.518] length <- base::length 1560s [00:52:40.518] list <- base::list 1560s [00:52:40.518] seq.int <- base::seq.int 1560s [00:52:40.518] signalCondition <- base::signalCondition 1560s [00:52:40.518] sys.calls <- base::sys.calls 1560s [00:52:40.518] `[[` <- base::`[[` 1560s [00:52:40.518] `+` <- base::`+` 1560s [00:52:40.518] `<<-` <- base::`<<-` 1560s [00:52:40.518] sysCalls <- function(calls = sys.calls(), from = 1L) { 1560s [00:52:40.518] calls[seq.int(from = from + 12L, to = length(calls) - 1560s [00:52:40.518] 3L)] 1560s [00:52:40.518] } 1560s [00:52:40.518] function(cond) { 1560s [00:52:40.518] is_error <- inherits(cond, "error") 1560s [00:52:40.518] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1560s [00:52:40.518] NULL) 1560s [00:52:40.518] if (is_error) { 1560s [00:52:40.518] sessionInformation <- function() { 1560s [00:52:40.518] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1560s [00:52:40.518] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1560s [00:52:40.518] search = base::search(), system = base::Sys.info()) 1560s [00:52:40.518] } 1560s [00:52:40.518] ...future.conditions[[length(...future.conditions) + 1560s [00:52:40.518] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1560s [00:52:40.518] cond$call), session = sessionInformation(), 1560s [00:52:40.518] timestamp = base::Sys.time(), signaled = 0L) 1560s [00:52:40.518] signalCondition(cond) 1560s [00:52:40.518] } 1560s [00:52:40.518] else if (!ignore && TRUE && inherits(cond, c("condition", 1560s [00:52:40.518] "immediateCondition"))) { 1560s [00:52:40.518] signal <- TRUE && inherits(cond, "immediateCondition") 1560s [00:52:40.518] ...future.conditions[[length(...future.conditions) + 1560s [00:52:40.518] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1560s [00:52:40.518] if (TRUE && !signal) { 1560s [00:52:40.518] muffleCondition <- function (cond, pattern = "^muffle") 1560s [00:52:40.518] { 1560s [00:52:40.518] inherits <- base::inherits 1560s [00:52:40.518] invokeRestart <- base::invokeRestart 1560s [00:52:40.518] is.null <- base::is.null 1560s [00:52:40.518] muffled <- FALSE 1560s [00:52:40.518] if (inherits(cond, "message")) { 1560s [00:52:40.518] muffled <- grepl(pattern, "muffleMessage") 1560s [00:52:40.518] if (muffled) 1560s [00:52:40.518] invokeRestart("muffleMessage") 1560s [00:52:40.518] } 1560s [00:52:40.518] else if (inherits(cond, "warning")) { 1560s [00:52:40.518] muffled <- grepl(pattern, "muffleWarning") 1560s [00:52:40.518] if (muffled) 1560s [00:52:40.518] invokeRestart("muffleWarning") 1560s [00:52:40.518] } 1560s [00:52:40.518] else if (inherits(cond, "condition")) { 1560s [00:52:40.518] if (!is.null(pattern)) { 1560s [00:52:40.518] computeRestarts <- base::computeRestarts 1560s [00:52:40.518] grepl <- base::grepl 1560s [00:52:40.518] restarts <- computeRestarts(cond) 1560s [00:52:40.518] for (restart in restarts) { 1560s [00:52:40.518] name <- restart$name 1560s [00:52:40.518] if (is.null(name)) 1560s [00:52:40.518] next 1560s [00:52:40.518] if (!grepl(pattern, name)) 1560s [00:52:40.518] next 1560s [00:52:40.518] invokeRestart(restart) 1560s [00:52:40.518] muffled <- TRUE 1560s [00:52:40.518] break 1560s [00:52:40.518] } 1560s [00:52:40.518] } 1560s [00:52:40.518] } 1560s [00:52:40.518] invisible(muffled) 1560s [00:52:40.518] } 1560s [00:52:40.518] muffleCondition(cond, pattern = "^muffle") 1560s [00:52:40.518] } 1560s [00:52:40.518] } 1560s [00:52:40.518] else { 1560s [00:52:40.518] if (TRUE) { 1560s [00:52:40.518] muffleCondition <- function (cond, pattern = "^muffle") 1560s [00:52:40.518] { 1560s [00:52:40.518] inherits <- base::inherits 1560s [00:52:40.518] invokeRestart <- base::invokeRestart 1560s [00:52:40.518] is.null <- base::is.null 1560s [00:52:40.518] muffled <- FALSE 1560s [00:52:40.518] if (inherits(cond, "message")) { 1560s [00:52:40.518] muffled <- grepl(pattern, "muffleMessage") 1560s [00:52:40.518] if (muffled) 1560s [00:52:40.518] invokeRestart("muffleMessage") 1560s [00:52:40.518] } 1560s [00:52:40.518] else if (inherits(cond, "warning")) { 1560s [00:52:40.518] muffled <- grepl(pattern, "muffleWarning") 1560s [00:52:40.518] if (muffled) 1560s [00:52:40.518] invokeRestart("muffleWarning") 1560s [00:52:40.518] } 1560s [00:52:40.518] else if (inherits(cond, "condition")) { 1560s [00:52:40.518] if (!is.null(pattern)) { 1560s [00:52:40.518] computeRestarts <- base::computeRestarts 1560s [00:52:40.518] grepl <- base::grepl 1560s [00:52:40.518] restarts <- computeRestarts(cond) 1560s [00:52:40.518] for (restart in restarts) { 1560s [00:52:40.518] name <- restart$name 1560s [00:52:40.518] if (is.null(name)) 1560s [00:52:40.518] next 1560s [00:52:40.518] if (!grepl(pattern, name)) 1560s [00:52:40.518] next 1560s [00:52:40.518] invokeRestart(restart) 1560s [00:52:40.518] muffled <- TRUE 1560s [00:52:40.518] break 1560s [00:52:40.518] } 1560s [00:52:40.518] } 1560s [00:52:40.518] } 1560s [00:52:40.518] invisible(muffled) 1560s [00:52:40.518] } 1560s [00:52:40.518] muffleCondition(cond, pattern = "^muffle") 1560s [00:52:40.518] } 1560s [00:52:40.518] } 1560s [00:52:40.518] } 1560s [00:52:40.518] })) 1560s [00:52:40.518] }, error = function(ex) { 1560s [00:52:40.518] base::structure(base::list(value = NULL, visible = NULL, 1560s [00:52:40.518] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1560s [00:52:40.518] ...future.rng), started = ...future.startTime, 1560s [00:52:40.518] finished = Sys.time(), session_uuid = NA_character_, 1560s [00:52:40.518] version = "1.8"), class = "FutureResult") 1560s [00:52:40.518] }, finally = { 1560s [00:52:40.518] if (!identical(...future.workdir, getwd())) 1560s [00:52:40.518] setwd(...future.workdir) 1560s [00:52:40.518] { 1560s [00:52:40.518] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1560s [00:52:40.518] ...future.oldOptions$nwarnings <- NULL 1560s [00:52:40.518] } 1560s [00:52:40.518] base::options(...future.oldOptions) 1560s [00:52:40.518] if (.Platform$OS.type == "windows") { 1560s [00:52:40.518] old_names <- names(...future.oldEnvVars) 1560s [00:52:40.518] envs <- base::Sys.getenv() 1560s [00:52:40.518] names <- names(envs) 1560s [00:52:40.518] common <- intersect(names, old_names) 1560s [00:52:40.518] added <- setdiff(names, old_names) 1560s [00:52:40.518] removed <- setdiff(old_names, names) 1560s [00:52:40.518] changed <- common[...future.oldEnvVars[common] != 1560s [00:52:40.518] envs[common]] 1560s [00:52:40.518] NAMES <- toupper(changed) 1560s [00:52:40.518] args <- list() 1560s [00:52:40.518] for (kk in seq_along(NAMES)) { 1560s [00:52:40.518] name <- changed[[kk]] 1560s [00:52:40.518] NAME <- NAMES[[kk]] 1560s [00:52:40.518] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.518] next 1560s [00:52:40.518] args[[name]] <- ...future.oldEnvVars[[name]] 1560s [00:52:40.518] } 1560s [00:52:40.518] NAMES <- toupper(added) 1560s [00:52:40.518] for (kk in seq_along(NAMES)) { 1560s [00:52:40.518] name <- added[[kk]] 1560s [00:52:40.518] NAME <- NAMES[[kk]] 1560s [00:52:40.518] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.518] next 1560s [00:52:40.518] args[[name]] <- "" 1560s [00:52:40.518] } 1560s [00:52:40.518] NAMES <- toupper(removed) 1560s [00:52:40.518] for (kk in seq_along(NAMES)) { 1560s [00:52:40.518] name <- removed[[kk]] 1560s [00:52:40.518] NAME <- NAMES[[kk]] 1560s [00:52:40.518] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.518] next 1560s [00:52:40.518] args[[name]] <- ...future.oldEnvVars[[name]] 1560s [00:52:40.518] } 1560s [00:52:40.518] if (length(args) > 0) 1560s [00:52:40.518] base::do.call(base::Sys.setenv, args = args) 1560s [00:52:40.518] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1560s [00:52:40.518] } 1560s [00:52:40.518] else { 1560s [00:52:40.518] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1560s [00:52:40.518] } 1560s [00:52:40.518] { 1560s [00:52:40.518] if (base::length(...future.futureOptionsAdded) > 1560s [00:52:40.518] 0L) { 1560s [00:52:40.518] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1560s [00:52:40.518] base::names(opts) <- ...future.futureOptionsAdded 1560s [00:52:40.518] base::options(opts) 1560s [00:52:40.518] } 1560s [00:52:40.518] { 1560s [00:52:40.518] { 1560s [00:52:40.518] base::assign(".Random.seed", c(10407L, -1319993016L, 1560s [00:52:40.518] 1571290074L, -859112415L, -853775137L, 1440155893L, 1560s [00:52:40.518] -732328588L), envir = base::globalenv(), 1560s [00:52:40.518] inherits = FALSE) 1560s [00:52:40.518] NULL 1560s [00:52:40.518] } 1560s [00:52:40.518] options(future.plan = NULL) 1560s [00:52:40.518] if (is.na(NA_character_)) 1560s [00:52:40.518] Sys.unsetenv("R_FUTURE_PLAN") 1560s [00:52:40.518] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1560s [00:52:40.518] future::plan(list(function (..., envir = parent.frame()) 1560s [00:52:40.518] { 1560s [00:52:40.518] future <- SequentialFuture(..., envir = envir) 1560s [00:52:40.518] if (!future$lazy) 1560s [00:52:40.518] future <- run(future) 1560s [00:52:40.518] invisible(future) 1560s [00:52:40.518] }), .cleanup = FALSE, .init = FALSE) 1560s [00:52:40.518] } 1560s [00:52:40.518] } 1560s [00:52:40.518] } 1560s [00:52:40.518] }) 1560s [00:52:40.518] if (TRUE) { 1560s [00:52:40.518] base::sink(type = "output", split = FALSE) 1560s [00:52:40.518] if (TRUE) { 1560s [00:52:40.518] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1560s [00:52:40.518] } 1560s [00:52:40.518] else { 1560s [00:52:40.518] ...future.result["stdout"] <- base::list(NULL) 1560s [00:52:40.518] } 1560s [00:52:40.518] base::close(...future.stdout) 1560s [00:52:40.518] ...future.stdout <- NULL 1560s [00:52:40.518] } 1560s [00:52:40.518] ...future.result$conditions <- ...future.conditions 1560s [00:52:40.518] ...future.result$finished <- base::Sys.time() 1560s [00:52:40.518] ...future.result 1560s [00:52:40.518] } 1560s [00:52:40.525] assign_globals() ... 1560s [00:52:40.525] List of 5 1560s [00:52:40.525] $ ...future.FUN :function (C, k) 1560s [00:52:40.525] $ MoreArgs : NULL 1560s [00:52:40.525] $ ...future.elements_ii :List of 2 1560s [00:52:40.525] ..$ :List of 1 1560s [00:52:40.525] .. ..$ : chr "C" 1560s [00:52:40.525] ..$ :List of 1 1560s [00:52:40.525] .. ..$ : int 3 1560s [00:52:40.525] $ ...future.seeds_ii : NULL 1560s [00:52:40.525] $ ...future.globals.maxSize: NULL 1560s [00:52:40.525] - attr(*, "where")=List of 5 1560s [00:52:40.525] ..$ ...future.FUN : 1560s [00:52:40.525] ..$ MoreArgs : 1560s [00:52:40.525] ..$ ...future.elements_ii : 1560s [00:52:40.525] ..$ ...future.seeds_ii : 1560s [00:52:40.525] ..$ ...future.globals.maxSize: 1560s [00:52:40.525] - attr(*, "resolved")= logi FALSE 1560s [00:52:40.525] - attr(*, "total_size")= num 3488 1560s [00:52:40.525] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1560s [00:52:40.525] - attr(*, "already-done")= logi TRUE 1560s [00:52:40.566] - reassign environment for ‘...future.FUN’ 1560s [00:52:40.567] - copied ‘...future.FUN’ to environment 1560s [00:52:40.567] - copied ‘MoreArgs’ to environment 1560s [00:52:40.567] - copied ‘...future.elements_ii’ to environment 1560s [00:52:40.567] - copied ‘...future.seeds_ii’ to environment 1560s [00:52:40.567] - copied ‘...future.globals.maxSize’ to environment 1560s [00:52:40.568] assign_globals() ... done 1560s [00:52:40.568] plan(): Setting new future strategy stack: 1560s [00:52:40.568] List of future strategies: 1560s [00:52:40.568] 1. sequential: 1560s [00:52:40.568] - args: function (..., envir = parent.frame()) 1560s [00:52:40.568] - tweaked: FALSE 1560s [00:52:40.568] - call: NULL 1560s [00:52:40.569] plan(): nbrOfWorkers() = 1 1560s [00:52:40.570] plan(): Setting new future strategy stack: 1560s [00:52:40.570] List of future strategies: 1560s [00:52:40.570] 1. sequential: 1560s [00:52:40.570] - args: function (..., envir = parent.frame()) 1560s [00:52:40.570] - tweaked: FALSE 1560s [00:52:40.570] - call: plan(strategy) 1560s [00:52:40.570] plan(): nbrOfWorkers() = 1 1560s [00:52:40.571] SequentialFuture started (and completed) 1560s [00:52:40.571] - Launch lazy future ... done 1560s [00:52:40.571] run() for ‘SequentialFuture’ ... done 1560s [00:52:40.571] Created future: 1560s [00:52:40.571] SequentialFuture: 1560s [00:52:40.571] Label: ‘future_mapply-3’ 1560s [00:52:40.571] Expression: 1560s [00:52:40.571] { 1560s [00:52:40.571] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1560s [00:52:40.571] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1560s [00:52:40.571] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1560s [00:52:40.571] on.exit(options(oopts), add = TRUE) 1560s [00:52:40.571] } 1560s [00:52:40.571] { 1560s [00:52:40.571] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1560s [00:52:40.571] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1560s [00:52:40.571] do.call(mapply, args = args) 1560s [00:52:40.571] } 1560s [00:52:40.571] } 1560s [00:52:40.571] Lazy evaluation: FALSE 1560s [00:52:40.571] Asynchronous evaluation: FALSE 1560s [00:52:40.571] Local evaluation: TRUE 1560s [00:52:40.571] Environment: R_GlobalEnv 1560s [00:52:40.571] Capture standard output: TRUE 1560s [00:52:40.571] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1560s [00:52:40.571] Globals: 5 objects totaling 3.41 KiB (function ‘...future.FUN’ of 3.24 KiB, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1560s [00:52:40.571] Packages: 1560s [00:52:40.571] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1560s [00:52:40.571] Resolved: TRUE 1560s [00:52:40.571] Value: 112 bytes of class ‘list’ 1560s [00:52:40.571] Early signaling: FALSE 1560s [00:52:40.571] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1560s [00:52:40.571] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1560s [00:52:40.573] Chunk #3 of 5 ... DONE 1560s [00:52:40.573] Chunk #4 of 5 ... 1560s [00:52:40.573] - Finding globals in '...' for chunk #4 ... 1560s [00:52:40.573] getGlobalsAndPackages() ... 1560s [00:52:40.573] Searching for globals... 1560s [00:52:40.574] 1560s [00:52:40.574] Searching for globals ... DONE 1560s [00:52:40.574] - globals: [0] 1560s [00:52:40.574] getGlobalsAndPackages() ... DONE 1560s [00:52:40.574] + additional globals found: [n=0] 1560s [00:52:40.574] + additional namespaces needed: [n=0] 1560s [00:52:40.575] - Finding globals in '...' for chunk #4 ... DONE 1560s [00:52:40.575] - Adjusted option 'future.globals.maxSize': 524288000 -> 5 * 524288000 = 2621440000 (bytes) 1560s [00:52:40.575] - seeds: 1560s [00:52:40.575] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.575] getGlobalsAndPackages() ... 1560s [00:52:40.575] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.576] Resolving globals: FALSE 1560s [00:52:40.576] The total size of the 5 globals is 3.41 KiB (3488 bytes) 1560s [00:52:40.577] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 3.41 KiB.. This exceeds the maximum allowed size of 2.44 GiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (3.24 KiB of class ‘function’), ‘...future.elements_ii’ (168 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1560s [00:52:40.577] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.578] 1560s [00:52:40.578] getGlobalsAndPackages() ... DONE 1560s [00:52:40.578] run() for ‘Future’ ... 1560s [00:52:40.578] - state: ‘created’ 1560s [00:52:40.578] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1560s [00:52:40.579] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1560s [00:52:40.579] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1560s [00:52:40.579] - Field: ‘label’ 1560s [00:52:40.579] - Field: ‘local’ 1560s [00:52:40.579] - Field: ‘owner’ 1560s [00:52:40.579] - Field: ‘envir’ 1560s [00:52:40.580] - Field: ‘packages’ 1560s [00:52:40.580] - Field: ‘gc’ 1560s [00:52:40.580] - Field: ‘conditions’ 1560s [00:52:40.580] - Field: ‘expr’ 1560s [00:52:40.580] - Field: ‘uuid’ 1560s [00:52:40.580] - Field: ‘seed’ 1560s [00:52:40.580] - Field: ‘version’ 1560s [00:52:40.581] - Field: ‘result’ 1560s [00:52:40.581] - Field: ‘asynchronous’ 1560s [00:52:40.581] - Field: ‘calls’ 1560s [00:52:40.581] - Field: ‘globals’ 1560s [00:52:40.581] - Field: ‘stdout’ 1560s [00:52:40.581] - Field: ‘earlySignal’ 1560s [00:52:40.582] - Field: ‘lazy’ 1560s [00:52:40.582] - Field: ‘state’ 1560s [00:52:40.582] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1560s [00:52:40.582] - Launch lazy future ... 1560s [00:52:40.583] Packages needed by the future expression (n = 0): 1560s [00:52:40.583] Packages needed by future strategies (n = 0): 1560s [00:52:40.584] { 1560s [00:52:40.584] { 1560s [00:52:40.584] { 1560s [00:52:40.584] ...future.startTime <- base::Sys.time() 1560s [00:52:40.584] { 1560s [00:52:40.584] { 1560s [00:52:40.584] { 1560s [00:52:40.584] base::local({ 1560s [00:52:40.584] has_future <- base::requireNamespace("future", 1560s [00:52:40.584] quietly = TRUE) 1560s [00:52:40.584] if (has_future) { 1560s [00:52:40.584] ns <- base::getNamespace("future") 1560s [00:52:40.584] version <- ns[[".package"]][["version"]] 1560s [00:52:40.584] if (is.null(version)) 1560s [00:52:40.584] version <- utils::packageVersion("future") 1560s [00:52:40.584] } 1560s [00:52:40.584] else { 1560s [00:52:40.584] version <- NULL 1560s [00:52:40.584] } 1560s [00:52:40.584] if (!has_future || version < "1.8.0") { 1560s [00:52:40.584] info <- base::c(r_version = base::gsub("R version ", 1560s [00:52:40.584] "", base::R.version$version.string), 1560s [00:52:40.584] platform = base::sprintf("%s (%s-bit)", 1560s [00:52:40.584] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1560s [00:52:40.584] os = base::paste(base::Sys.info()[base::c("sysname", 1560s [00:52:40.584] "release", "version")], collapse = " "), 1560s [00:52:40.584] hostname = base::Sys.info()[["nodename"]]) 1560s [00:52:40.584] info <- base::sprintf("%s: %s", base::names(info), 1560s [00:52:40.584] info) 1560s [00:52:40.584] info <- base::paste(info, collapse = "; ") 1560s [00:52:40.584] if (!has_future) { 1560s [00:52:40.584] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1560s [00:52:40.584] info) 1560s [00:52:40.584] } 1560s [00:52:40.584] else { 1560s [00:52:40.584] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1560s [00:52:40.584] info, version) 1560s [00:52:40.584] } 1560s [00:52:40.584] base::stop(msg) 1560s [00:52:40.584] } 1560s [00:52:40.584] }) 1560s [00:52:40.584] } 1560s [00:52:40.584] options(future.plan = NULL) 1560s [00:52:40.584] Sys.unsetenv("R_FUTURE_PLAN") 1560s [00:52:40.584] future::plan("default", .cleanup = FALSE, .init = FALSE) 1560s [00:52:40.584] } 1560s [00:52:40.584] ...future.workdir <- getwd() 1560s [00:52:40.584] } 1560s [00:52:40.584] ...future.oldOptions <- base::as.list(base::.Options) 1560s [00:52:40.584] ...future.oldEnvVars <- base::Sys.getenv() 1560s [00:52:40.584] } 1560s [00:52:40.584] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1560s [00:52:40.584] future.globals.maxSize = 2621440000, future.globals.method = NULL, 1560s [00:52:40.584] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1560s [00:52:40.584] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1560s [00:52:40.584] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1560s [00:52:40.584] future.stdout.windows.reencode = NULL, width = 80L) 1560s [00:52:40.584] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1560s [00:52:40.584] base::names(...future.oldOptions)) 1560s [00:52:40.584] } 1560s [00:52:40.584] if (FALSE) { 1560s [00:52:40.584] } 1560s [00:52:40.584] else { 1560s [00:52:40.584] if (TRUE) { 1560s [00:52:40.584] ...future.stdout <- base::rawConnection(base::raw(0L), 1560s [00:52:40.584] open = "w") 1560s [00:52:40.584] } 1560s [00:52:40.584] else { 1560s [00:52:40.584] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1560s [00:52:40.584] windows = "NUL", "/dev/null"), open = "w") 1560s [00:52:40.584] } 1560s [00:52:40.584] base::sink(...future.stdout, type = "output", split = FALSE) 1560s [00:52:40.584] base::on.exit(if (!base::is.null(...future.stdout)) { 1560s [00:52:40.584] base::sink(type = "output", split = FALSE) 1560s [00:52:40.584] base::close(...future.stdout) 1560s [00:52:40.584] }, add = TRUE) 1560s [00:52:40.584] } 1560s [00:52:40.584] ...future.frame <- base::sys.nframe() 1560s [00:52:40.584] ...future.conditions <- base::list() 1560s [00:52:40.584] ...future.rng <- base::globalenv()$.Random.seed 1560s [00:52:40.584] if (FALSE) { 1560s [00:52:40.584] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1560s [00:52:40.584] "...future.value", "...future.globalenv.names", ".Random.seed") 1560s [00:52:40.584] } 1560s [00:52:40.584] ...future.result <- base::tryCatch({ 1560s [00:52:40.584] base::withCallingHandlers({ 1560s [00:52:40.584] ...future.value <- base::withVisible(base::local({ 1560s [00:52:40.584] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1560s [00:52:40.584] if (!identical(...future.globals.maxSize.org, 1560s [00:52:40.584] ...future.globals.maxSize)) { 1560s [00:52:40.584] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1560s [00:52:40.584] on.exit(options(oopts), add = TRUE) 1560s [00:52:40.584] } 1560s [00:52:40.584] { 1560s [00:52:40.584] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1560s [00:52:40.584] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1560s [00:52:40.584] USE.NAMES = FALSE) 1560s [00:52:40.584] do.call(mapply, args = args) 1560s [00:52:40.584] } 1560s [00:52:40.584] })) 1560s [00:52:40.584] future::FutureResult(value = ...future.value$value, 1560s [00:52:40.584] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1560s [00:52:40.584] ...future.rng), globalenv = if (FALSE) 1560s [00:52:40.584] list(added = base::setdiff(base::names(base::.GlobalEnv), 1560s [00:52:40.584] ...future.globalenv.names)) 1560s [00:52:40.584] else NULL, started = ...future.startTime, version = "1.8") 1560s [00:52:40.584] }, condition = base::local({ 1560s [00:52:40.584] c <- base::c 1560s [00:52:40.584] inherits <- base::inherits 1560s [00:52:40.584] invokeRestart <- base::invokeRestart 1560s [00:52:40.584] length <- base::length 1560s [00:52:40.584] list <- base::list 1560s [00:52:40.584] seq.int <- base::seq.int 1560s [00:52:40.584] signalCondition <- base::signalCondition 1560s [00:52:40.584] sys.calls <- base::sys.calls 1560s [00:52:40.584] `[[` <- base::`[[` 1560s [00:52:40.584] `+` <- base::`+` 1560s [00:52:40.584] `<<-` <- base::`<<-` 1560s [00:52:40.584] sysCalls <- function(calls = sys.calls(), from = 1L) { 1560s [00:52:40.584] calls[seq.int(from = from + 12L, to = length(calls) - 1560s [00:52:40.584] 3L)] 1560s [00:52:40.584] } 1560s [00:52:40.584] function(cond) { 1560s [00:52:40.584] is_error <- inherits(cond, "error") 1560s [00:52:40.584] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1560s [00:52:40.584] NULL) 1560s [00:52:40.584] if (is_error) { 1560s [00:52:40.584] sessionInformation <- function() { 1560s [00:52:40.584] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1560s [00:52:40.584] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1560s [00:52:40.584] search = base::search(), system = base::Sys.info()) 1560s [00:52:40.584] } 1560s [00:52:40.584] ...future.conditions[[length(...future.conditions) + 1560s [00:52:40.584] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1560s [00:52:40.584] cond$call), session = sessionInformation(), 1560s [00:52:40.584] timestamp = base::Sys.time(), signaled = 0L) 1560s [00:52:40.584] signalCondition(cond) 1560s [00:52:40.584] } 1560s [00:52:40.584] else if (!ignore && TRUE && inherits(cond, c("condition", 1560s [00:52:40.584] "immediateCondition"))) { 1560s [00:52:40.584] signal <- TRUE && inherits(cond, "immediateCondition") 1560s [00:52:40.584] ...future.conditions[[length(...future.conditions) + 1560s [00:52:40.584] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1560s [00:52:40.584] if (TRUE && !signal) { 1560s [00:52:40.584] muffleCondition <- function (cond, pattern = "^muffle") 1560s [00:52:40.584] { 1560s [00:52:40.584] inherits <- base::inherits 1560s [00:52:40.584] invokeRestart <- base::invokeRestart 1560s [00:52:40.584] is.null <- base::is.null 1560s [00:52:40.584] muffled <- FALSE 1560s [00:52:40.584] if (inherits(cond, "message")) { 1560s [00:52:40.584] muffled <- grepl(pattern, "muffleMessage") 1560s [00:52:40.584] if (muffled) 1560s [00:52:40.584] invokeRestart("muffleMessage") 1560s [00:52:40.584] } 1560s [00:52:40.584] else if (inherits(cond, "warning")) { 1560s [00:52:40.584] muffled <- grepl(pattern, "muffleWarning") 1560s [00:52:40.584] if (muffled) 1560s [00:52:40.584] invokeRestart("muffleWarning") 1560s [00:52:40.584] } 1560s [00:52:40.584] else if (inherits(cond, "condition")) { 1560s [00:52:40.584] if (!is.null(pattern)) { 1560s [00:52:40.584] computeRestarts <- base::computeRestarts 1560s [00:52:40.584] grepl <- base::grepl 1560s [00:52:40.584] restarts <- computeRestarts(cond) 1560s [00:52:40.584] for (restart in restarts) { 1560s [00:52:40.584] name <- restart$name 1560s [00:52:40.584] if (is.null(name)) 1560s [00:52:40.584] next 1560s [00:52:40.584] if (!grepl(pattern, name)) 1560s [00:52:40.584] next 1560s [00:52:40.584] invokeRestart(restart) 1560s [00:52:40.584] muffled <- TRUE 1560s [00:52:40.584] break 1560s [00:52:40.584] } 1560s [00:52:40.584] } 1560s [00:52:40.584] } 1560s [00:52:40.584] invisible(muffled) 1560s [00:52:40.584] } 1560s [00:52:40.584] muffleCondition(cond, pattern = "^muffle") 1560s [00:52:40.584] } 1560s [00:52:40.584] } 1560s [00:52:40.584] else { 1560s [00:52:40.584] if (TRUE) { 1560s [00:52:40.584] muffleCondition <- function (cond, pattern = "^muffle") 1560s [00:52:40.584] { 1560s [00:52:40.584] inherits <- base::inherits 1560s [00:52:40.584] invokeRestart <- base::invokeRestart 1560s [00:52:40.584] is.null <- base::is.null 1560s [00:52:40.584] muffled <- FALSE 1560s [00:52:40.584] if (inherits(cond, "message")) { 1560s [00:52:40.584] muffled <- grepl(pattern, "muffleMessage") 1560s [00:52:40.584] if (muffled) 1560s [00:52:40.584] invokeRestart("muffleMessage") 1560s [00:52:40.584] } 1560s [00:52:40.584] else if (inherits(cond, "warning")) { 1560s [00:52:40.584] muffled <- grepl(pattern, "muffleWarning") 1560s [00:52:40.584] if (muffled) 1560s [00:52:40.584] invokeRestart("muffleWarning") 1560s [00:52:40.584] } 1560s [00:52:40.584] else if (inherits(cond, "condition")) { 1560s [00:52:40.584] if (!is.null(pattern)) { 1560s [00:52:40.584] computeRestarts <- base::computeRestarts 1560s [00:52:40.584] grepl <- base::grepl 1560s [00:52:40.584] restarts <- computeRestarts(cond) 1560s [00:52:40.584] for (restart in restarts) { 1560s [00:52:40.584] name <- restart$name 1560s [00:52:40.584] if (is.null(name)) 1560s [00:52:40.584] next 1560s [00:52:40.584] if (!grepl(pattern, name)) 1560s [00:52:40.584] next 1560s [00:52:40.584] invokeRestart(restart) 1560s [00:52:40.584] muffled <- TRUE 1560s [00:52:40.584] break 1560s [00:52:40.584] } 1560s [00:52:40.584] } 1560s [00:52:40.584] } 1560s [00:52:40.584] invisible(muffled) 1560s [00:52:40.584] } 1560s [00:52:40.584] muffleCondition(cond, pattern = "^muffle") 1560s [00:52:40.584] } 1560s [00:52:40.584] } 1560s [00:52:40.584] } 1560s [00:52:40.584] })) 1560s [00:52:40.584] }, error = function(ex) { 1560s [00:52:40.584] base::structure(base::list(value = NULL, visible = NULL, 1560s [00:52:40.584] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1560s [00:52:40.584] ...future.rng), started = ...future.startTime, 1560s [00:52:40.584] finished = Sys.time(), session_uuid = NA_character_, 1560s [00:52:40.584] version = "1.8"), class = "FutureResult") 1560s [00:52:40.584] }, finally = { 1560s [00:52:40.584] if (!identical(...future.workdir, getwd())) 1560s [00:52:40.584] setwd(...future.workdir) 1560s [00:52:40.584] { 1560s [00:52:40.584] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1560s [00:52:40.584] ...future.oldOptions$nwarnings <- NULL 1560s [00:52:40.584] } 1560s [00:52:40.584] base::options(...future.oldOptions) 1560s [00:52:40.584] if (.Platform$OS.type == "windows") { 1560s [00:52:40.584] old_names <- names(...future.oldEnvVars) 1560s [00:52:40.584] envs <- base::Sys.getenv() 1560s [00:52:40.584] names <- names(envs) 1560s [00:52:40.584] common <- intersect(names, old_names) 1560s [00:52:40.584] added <- setdiff(names, old_names) 1560s [00:52:40.584] removed <- setdiff(old_names, names) 1560s [00:52:40.584] changed <- common[...future.oldEnvVars[common] != 1560s [00:52:40.584] envs[common]] 1560s [00:52:40.584] NAMES <- toupper(changed) 1560s [00:52:40.584] args <- list() 1560s [00:52:40.584] for (kk in seq_along(NAMES)) { 1560s [00:52:40.584] name <- changed[[kk]] 1560s [00:52:40.584] NAME <- NAMES[[kk]] 1560s [00:52:40.584] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.584] next 1560s [00:52:40.584] args[[name]] <- ...future.oldEnvVars[[name]] 1560s [00:52:40.584] } 1560s [00:52:40.584] NAMES <- toupper(added) 1560s [00:52:40.584] for (kk in seq_along(NAMES)) { 1560s [00:52:40.584] name <- added[[kk]] 1560s [00:52:40.584] NAME <- NAMES[[kk]] 1560s [00:52:40.584] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.584] next 1560s [00:52:40.584] args[[name]] <- "" 1560s [00:52:40.584] } 1560s [00:52:40.584] NAMES <- toupper(removed) 1560s [00:52:40.584] for (kk in seq_along(NAMES)) { 1560s [00:52:40.584] name <- removed[[kk]] 1560s [00:52:40.584] NAME <- NAMES[[kk]] 1560s [00:52:40.584] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.584] next 1560s [00:52:40.584] args[[name]] <- ...future.oldEnvVars[[name]] 1560s [00:52:40.584] } 1560s [00:52:40.584] if (length(args) > 0) 1560s [00:52:40.584] base::do.call(base::Sys.setenv, args = args) 1560s [00:52:40.584] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1560s [00:52:40.584] } 1560s [00:52:40.584] else { 1560s [00:52:40.584] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1560s [00:52:40.584] } 1560s [00:52:40.584] { 1560s [00:52:40.584] if (base::length(...future.futureOptionsAdded) > 1560s [00:52:40.584] 0L) { 1560s [00:52:40.584] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1560s [00:52:40.584] base::names(opts) <- ...future.futureOptionsAdded 1560s [00:52:40.584] base::options(opts) 1560s [00:52:40.584] } 1560s [00:52:40.584] { 1560s [00:52:40.584] { 1560s [00:52:40.584] base::assign(".Random.seed", c(10407L, -1319993016L, 1560s [00:52:40.584] 1571290074L, -859112415L, -853775137L, 1440155893L, 1560s [00:52:40.584] -732328588L), envir = base::globalenv(), 1560s [00:52:40.584] inherits = FALSE) 1560s [00:52:40.584] NULL 1560s [00:52:40.584] } 1560s [00:52:40.584] options(future.plan = NULL) 1560s [00:52:40.584] if (is.na(NA_character_)) 1560s [00:52:40.584] Sys.unsetenv("R_FUTURE_PLAN") 1560s [00:52:40.584] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1560s [00:52:40.584] future::plan(list(function (..., envir = parent.frame()) 1560s [00:52:40.584] { 1560s [00:52:40.584] future <- SequentialFuture(..., envir = envir) 1560s [00:52:40.584] if (!future$lazy) 1560s [00:52:40.584] future <- run(future) 1560s [00:52:40.584] invisible(future) 1560s [00:52:40.584] }), .cleanup = FALSE, .init = FALSE) 1560s [00:52:40.584] } 1560s [00:52:40.584] } 1560s [00:52:40.584] } 1560s [00:52:40.584] }) 1560s [00:52:40.584] if (TRUE) { 1560s [00:52:40.584] base::sink(type = "output", split = FALSE) 1560s [00:52:40.584] if (TRUE) { 1560s [00:52:40.584] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1560s [00:52:40.584] } 1560s [00:52:40.584] else { 1560s [00:52:40.584] ...future.result["stdout"] <- base::list(NULL) 1560s [00:52:40.584] } 1560s [00:52:40.584] base::close(...future.stdout) 1560s [00:52:40.584] ...future.stdout <- NULL 1560s [00:52:40.584] } 1560s [00:52:40.584] ...future.result$conditions <- ...future.conditions 1560s [00:52:40.584] ...future.result$finished <- base::Sys.time() 1560s [00:52:40.584] ...future.result 1560s [00:52:40.584] } 1560s [00:52:40.589] assign_globals() ... 1560s [00:52:40.589] List of 5 1560s [00:52:40.589] $ ...future.FUN :function (C, k) 1560s [00:52:40.589] $ MoreArgs : NULL 1560s [00:52:40.589] $ ...future.elements_ii :List of 2 1560s [00:52:40.589] ..$ :List of 1 1560s [00:52:40.589] .. ..$ : chr "D" 1560s [00:52:40.589] ..$ :List of 1 1560s [00:52:40.589] .. ..$ : int 2 1560s [00:52:40.589] $ ...future.seeds_ii : NULL 1560s [00:52:40.589] $ ...future.globals.maxSize: NULL 1560s [00:52:40.589] - attr(*, "where")=List of 5 1560s [00:52:40.589] ..$ ...future.FUN : 1560s [00:52:40.589] ..$ MoreArgs : 1560s [00:52:40.589] ..$ ...future.elements_ii : 1560s [00:52:40.589] ..$ ...future.seeds_ii : 1560s [00:52:40.589] ..$ ...future.globals.maxSize: 1560s [00:52:40.589] - attr(*, "resolved")= logi FALSE 1560s [00:52:40.589] - attr(*, "total_size")= num 3488 1560s [00:52:40.589] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1560s [00:52:40.589] - attr(*, "already-done")= logi TRUE 1560s [00:52:40.596] - reassign environment for ‘...future.FUN’ 1560s [00:52:40.596] - copied ‘...future.FUN’ to environment 1560s [00:52:40.596] - copied ‘MoreArgs’ to environment 1560s [00:52:40.597] - copied ‘...future.elements_ii’ to environment 1560s [00:52:40.597] - copied ‘...future.seeds_ii’ to environment 1560s [00:52:40.597] - copied ‘...future.globals.maxSize’ to environment 1560s [00:52:40.597] assign_globals() ... done 1560s [00:52:40.597] plan(): Setting new future strategy stack: 1560s [00:52:40.597] List of future strategies: 1560s [00:52:40.597] 1. sequential: 1560s [00:52:40.597] - args: function (..., envir = parent.frame()) 1560s [00:52:40.597] - tweaked: FALSE 1560s [00:52:40.597] - call: NULL 1560s [00:52:40.598] plan(): nbrOfWorkers() = 1 1560s [00:52:40.599] plan(): Setting new future strategy stack: 1560s [00:52:40.600] List of future strategies: 1560s [00:52:40.600] 1. sequential: 1560s [00:52:40.600] - args: function (..., envir = parent.frame()) 1560s [00:52:40.600] - tweaked: FALSE 1560s [00:52:40.600] - call: plan(strategy) 1560s [00:52:40.601] plan(): nbrOfWorkers() = 1 1560s [00:52:40.601] SequentialFuture started (and completed) 1560s [00:52:40.601] - Launch lazy future ... done 1560s [00:52:40.602] run() for ‘SequentialFuture’ ... done 1560s [00:52:40.602] Created future: 1560s [00:52:40.602] SequentialFuture: 1560s [00:52:40.602] Label: ‘future_mapply-4’ 1560s [00:52:40.602] Expression: 1560s [00:52:40.602] { 1560s [00:52:40.602] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1560s [00:52:40.602] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1560s [00:52:40.602] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1560s [00:52:40.602] on.exit(options(oopts), add = TRUE) 1560s [00:52:40.602] } 1560s [00:52:40.602] { 1560s [00:52:40.602] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1560s [00:52:40.602] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1560s [00:52:40.602] do.call(mapply, args = args) 1560s [00:52:40.602] } 1560s [00:52:40.602] } 1560s [00:52:40.602] Lazy evaluation: FALSE 1560s [00:52:40.602] Asynchronous evaluation: FALSE 1560s [00:52:40.602] Local evaluation: TRUE 1560s [00:52:40.602] Environment: R_GlobalEnv 1560s [00:52:40.602] Capture standard output: TRUE 1560s [00:52:40.602] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1560s [00:52:40.602] Globals: 5 objects totaling 3.41 KiB (function ‘...future.FUN’ of 3.24 KiB, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1560s [00:52:40.602] Packages: 1560s [00:52:40.602] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1560s [00:52:40.602] Resolved: TRUE 1560s [00:52:40.602] Value: 112 bytes of class ‘list’ 1560s [00:52:40.602] Early signaling: FALSE 1560s [00:52:40.602] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1560s [00:52:40.602] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1560s [00:52:40.604] Chunk #4 of 5 ... DONE 1560s [00:52:40.604] Chunk #5 of 5 ... 1560s [00:52:40.605] - Finding globals in '...' for chunk #5 ... 1560s [00:52:40.605] getGlobalsAndPackages() ... 1560s [00:52:40.605] Searching for globals... 1560s [00:52:40.605] 1560s [00:52:40.605] Searching for globals ... DONE 1560s [00:52:40.606] - globals: [0] 1560s [00:52:40.606] getGlobalsAndPackages() ... DONE 1560s [00:52:40.606] + additional globals found: [n=0] 1560s [00:52:40.606] + additional namespaces needed: [n=0] 1560s [00:52:40.606] - Finding globals in '...' for chunk #5 ... DONE 1560s [00:52:40.606] - Adjusted option 'future.globals.maxSize': 524288000 -> 5 * 524288000 = 2621440000 (bytes) 1560s [00:52:40.606] - seeds: 1560s [00:52:40.606] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.607] getGlobalsAndPackages() ... 1560s [00:52:40.607] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.607] Resolving globals: FALSE 1560s [00:52:40.607] The total size of the 5 globals is 3.41 KiB (3488 bytes) 1560s [00:52:40.608] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 3.41 KiB.. This exceeds the maximum allowed size of 2.44 GiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (3.24 KiB of class ‘function’), ‘...future.elements_ii’ (168 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1560s [00:52:40.608] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.608] 1560s [00:52:40.608] getGlobalsAndPackages() ... DONE 1560s [00:52:40.609] run() for ‘Future’ ... 1560s [00:52:40.609] - state: ‘created’ 1560s [00:52:40.609] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1560s [00:52:40.609] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1560s [00:52:40.609] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1560s [00:52:40.609] - Field: ‘label’ 1560s [00:52:40.610] - Field: ‘local’ 1560s [00:52:40.610] - Field: ‘owner’ 1560s [00:52:40.610] - Field: ‘envir’ 1560s [00:52:40.610] - Field: ‘packages’ 1560s [00:52:40.610] - Field: ‘gc’ 1560s [00:52:40.610] - Field: ‘conditions’ 1560s [00:52:40.611] - Field: ‘expr’ 1560s [00:52:40.611] - Field: ‘uuid’ 1560s [00:52:40.611] - Field: ‘seed’ 1560s [00:52:40.611] - Field: ‘version’ 1560s [00:52:40.612] - Field: ‘result’ 1560s [00:52:40.612] - Field: ‘asynchronous’ 1560s [00:52:40.612] - Field: ‘calls’ 1560s [00:52:40.612] - Field: ‘globals’ 1560s [00:52:40.612] - Field: ‘stdout’ 1560s [00:52:40.613] - Field: ‘earlySignal’ 1560s [00:52:40.613] - Field: ‘lazy’ 1560s [00:52:40.613] - Field: ‘state’ 1560s [00:52:40.613] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1560s [00:52:40.614] - Launch lazy future ... 1560s [00:52:40.614] Packages needed by the future expression (n = 0): 1560s [00:52:40.614] Packages needed by future strategies (n = 0): 1560s [00:52:40.614] { 1560s [00:52:40.614] { 1560s [00:52:40.614] { 1560s [00:52:40.614] ...future.startTime <- base::Sys.time() 1560s [00:52:40.614] { 1560s [00:52:40.614] { 1560s [00:52:40.614] { 1560s [00:52:40.614] base::local({ 1560s [00:52:40.614] has_future <- base::requireNamespace("future", 1560s [00:52:40.614] quietly = TRUE) 1560s [00:52:40.614] if (has_future) { 1560s [00:52:40.614] ns <- base::getNamespace("future") 1560s [00:52:40.614] version <- ns[[".package"]][["version"]] 1560s [00:52:40.614] if (is.null(version)) 1560s [00:52:40.614] version <- utils::packageVersion("future") 1560s [00:52:40.614] } 1560s [00:52:40.614] else { 1560s [00:52:40.614] version <- NULL 1560s [00:52:40.614] } 1560s [00:52:40.614] if (!has_future || version < "1.8.0") { 1560s [00:52:40.614] info <- base::c(r_version = base::gsub("R version ", 1560s [00:52:40.614] "", base::R.version$version.string), 1560s [00:52:40.614] platform = base::sprintf("%s (%s-bit)", 1560s [00:52:40.614] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1560s [00:52:40.614] os = base::paste(base::Sys.info()[base::c("sysname", 1560s [00:52:40.614] "release", "version")], collapse = " "), 1560s [00:52:40.614] hostname = base::Sys.info()[["nodename"]]) 1560s [00:52:40.614] info <- base::sprintf("%s: %s", base::names(info), 1560s [00:52:40.614] info) 1560s [00:52:40.614] info <- base::paste(info, collapse = "; ") 1560s [00:52:40.614] if (!has_future) { 1560s [00:52:40.614] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1560s [00:52:40.614] info) 1560s [00:52:40.614] } 1560s [00:52:40.614] else { 1560s [00:52:40.614] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1560s [00:52:40.614] info, version) 1560s [00:52:40.614] } 1560s [00:52:40.614] base::stop(msg) 1560s [00:52:40.614] } 1560s [00:52:40.614] }) 1560s [00:52:40.614] } 1560s [00:52:40.614] options(future.plan = NULL) 1560s [00:52:40.614] Sys.unsetenv("R_FUTURE_PLAN") 1560s [00:52:40.614] future::plan("default", .cleanup = FALSE, .init = FALSE) 1560s [00:52:40.614] } 1560s [00:52:40.614] ...future.workdir <- getwd() 1560s [00:52:40.614] } 1560s [00:52:40.614] ...future.oldOptions <- base::as.list(base::.Options) 1560s [00:52:40.614] ...future.oldEnvVars <- base::Sys.getenv() 1560s [00:52:40.614] } 1560s [00:52:40.614] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1560s [00:52:40.614] future.globals.maxSize = 2621440000, future.globals.method = NULL, 1560s [00:52:40.614] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1560s [00:52:40.614] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1560s [00:52:40.614] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1560s [00:52:40.614] future.stdout.windows.reencode = NULL, width = 80L) 1560s [00:52:40.614] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1560s [00:52:40.614] base::names(...future.oldOptions)) 1560s [00:52:40.614] } 1560s [00:52:40.614] if (FALSE) { 1560s [00:52:40.614] } 1560s [00:52:40.614] else { 1560s [00:52:40.614] if (TRUE) { 1560s [00:52:40.614] ...future.stdout <- base::rawConnection(base::raw(0L), 1560s [00:52:40.614] open = "w") 1560s [00:52:40.614] } 1560s [00:52:40.614] else { 1560s [00:52:40.614] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1560s [00:52:40.614] windows = "NUL", "/dev/null"), open = "w") 1560s [00:52:40.614] } 1560s [00:52:40.614] base::sink(...future.stdout, type = "output", split = FALSE) 1560s [00:52:40.614] base::on.exit(if (!base::is.null(...future.stdout)) { 1560s [00:52:40.614] base::sink(type = "output", split = FALSE) 1560s [00:52:40.614] base::close(...future.stdout) 1560s [00:52:40.614] }, add = TRUE) 1560s [00:52:40.614] } 1560s [00:52:40.614] ...future.frame <- base::sys.nframe() 1560s [00:52:40.614] ...future.conditions <- base::list() 1560s [00:52:40.614] ...future.rng <- base::globalenv()$.Random.seed 1560s [00:52:40.614] if (FALSE) { 1560s [00:52:40.614] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1560s [00:52:40.614] "...future.value", "...future.globalenv.names", ".Random.seed") 1560s [00:52:40.614] } 1560s [00:52:40.614] ...future.result <- base::tryCatch({ 1560s [00:52:40.614] base::withCallingHandlers({ 1560s [00:52:40.614] ...future.value <- base::withVisible(base::local({ 1560s [00:52:40.614] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1560s [00:52:40.614] if (!identical(...future.globals.maxSize.org, 1560s [00:52:40.614] ...future.globals.maxSize)) { 1560s [00:52:40.614] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1560s [00:52:40.614] on.exit(options(oopts), add = TRUE) 1560s [00:52:40.614] } 1560s [00:52:40.614] { 1560s [00:52:40.614] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1560s [00:52:40.614] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1560s [00:52:40.614] USE.NAMES = FALSE) 1560s [00:52:40.614] do.call(mapply, args = args) 1560s [00:52:40.614] } 1560s [00:52:40.614] })) 1560s [00:52:40.614] future::FutureResult(value = ...future.value$value, 1560s [00:52:40.614] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1560s [00:52:40.614] ...future.rng), globalenv = if (FALSE) 1560s [00:52:40.614] list(added = base::setdiff(base::names(base::.GlobalEnv), 1560s [00:52:40.614] ...future.globalenv.names)) 1560s [00:52:40.614] else NULL, started = ...future.startTime, version = "1.8") 1560s [00:52:40.614] }, condition = base::local({ 1560s [00:52:40.614] c <- base::c 1560s [00:52:40.614] inherits <- base::inherits 1560s [00:52:40.614] invokeRestart <- base::invokeRestart 1560s [00:52:40.614] length <- base::length 1560s [00:52:40.614] list <- base::list 1560s [00:52:40.614] seq.int <- base::seq.int 1560s [00:52:40.614] signalCondition <- base::signalCondition 1560s [00:52:40.614] sys.calls <- base::sys.calls 1560s [00:52:40.614] `[[` <- base::`[[` 1560s [00:52:40.614] `+` <- base::`+` 1560s [00:52:40.614] `<<-` <- base::`<<-` 1560s [00:52:40.614] sysCalls <- function(calls = sys.calls(), from = 1L) { 1560s [00:52:40.614] calls[seq.int(from = from + 12L, to = length(calls) - 1560s [00:52:40.614] 3L)] 1560s [00:52:40.614] } 1560s [00:52:40.614] function(cond) { 1560s [00:52:40.614] is_error <- inherits(cond, "error") 1560s [00:52:40.614] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1560s [00:52:40.614] NULL) 1560s [00:52:40.614] if (is_error) { 1560s [00:52:40.614] sessionInformation <- function() { 1560s [00:52:40.614] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1560s [00:52:40.614] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1560s [00:52:40.614] search = base::search(), system = base::Sys.info()) 1560s [00:52:40.614] } 1560s [00:52:40.614] ...future.conditions[[length(...future.conditions) + 1560s [00:52:40.614] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1560s [00:52:40.614] cond$call), session = sessionInformation(), 1560s [00:52:40.614] timestamp = base::Sys.time(), signaled = 0L) 1560s [00:52:40.614] signalCondition(cond) 1560s [00:52:40.614] } 1560s [00:52:40.614] else if (!ignore && TRUE && inherits(cond, c("condition", 1560s [00:52:40.614] "immediateCondition"))) { 1560s [00:52:40.614] signal <- TRUE && inherits(cond, "immediateCondition") 1560s [00:52:40.614] ...future.conditions[[length(...future.conditions) + 1560s [00:52:40.614] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1560s [00:52:40.614] if (TRUE && !signal) { 1560s [00:52:40.614] muffleCondition <- function (cond, pattern = "^muffle") 1560s [00:52:40.614] { 1560s [00:52:40.614] inherits <- base::inherits 1560s [00:52:40.614] invokeRestart <- base::invokeRestart 1560s [00:52:40.614] is.null <- base::is.null 1560s [00:52:40.614] muffled <- FALSE 1560s [00:52:40.614] if (inherits(cond, "message")) { 1560s [00:52:40.614] muffled <- grepl(pattern, "muffleMessage") 1560s [00:52:40.614] if (muffled) 1560s [00:52:40.614] invokeRestart("muffleMessage") 1560s [00:52:40.614] } 1560s [00:52:40.614] else if (inherits(cond, "warning")) { 1560s [00:52:40.614] muffled <- grepl(pattern, "muffleWarning") 1560s [00:52:40.614] if (muffled) 1560s [00:52:40.614] invokeRestart("muffleWarning") 1560s [00:52:40.614] } 1560s [00:52:40.614] else if (inherits(cond, "condition")) { 1560s [00:52:40.614] if (!is.null(pattern)) { 1560s [00:52:40.614] computeRestarts <- base::computeRestarts 1560s [00:52:40.614] grepl <- base::grepl 1560s [00:52:40.614] restarts <- computeRestarts(cond) 1560s [00:52:40.614] for (restart in restarts) { 1560s [00:52:40.614] name <- restart$name 1560s [00:52:40.614] if (is.null(name)) 1560s [00:52:40.614] next 1560s [00:52:40.614] if (!grepl(pattern, name)) 1560s [00:52:40.614] next 1560s [00:52:40.614] invokeRestart(restart) 1560s [00:52:40.614] muffled <- TRUE 1560s [00:52:40.614] break 1560s [00:52:40.614] } 1560s [00:52:40.614] } 1560s [00:52:40.614] } 1560s [00:52:40.614] invisible(muffled) 1560s [00:52:40.614] } 1560s [00:52:40.614] muffleCondition(cond, pattern = "^muffle") 1560s [00:52:40.614] } 1560s [00:52:40.614] } 1560s [00:52:40.614] else { 1560s [00:52:40.614] if (TRUE) { 1560s [00:52:40.614] muffleCondition <- function (cond, pattern = "^muffle") 1560s [00:52:40.614] { 1560s [00:52:40.614] inherits <- base::inherits 1560s [00:52:40.614] invokeRestart <- base::invokeRestart 1560s [00:52:40.614] is.null <- base::is.null 1560s [00:52:40.614] muffled <- FALSE 1560s [00:52:40.614] if (inherits(cond, "message")) { 1560s [00:52:40.614] muffled <- grepl(pattern, "muffleMessage") 1560s [00:52:40.614] if (muffled) 1560s [00:52:40.614] invokeRestart("muffleMessage") 1560s [00:52:40.614] } 1560s [00:52:40.614] else if (inherits(cond, "warning")) { 1560s [00:52:40.614] muffled <- grepl(pattern, "muffleWarning") 1560s [00:52:40.614] if (muffled) 1560s [00:52:40.614] invokeRestart("muffleWarning") 1560s [00:52:40.614] } 1560s [00:52:40.614] else if (inherits(cond, "condition")) { 1560s [00:52:40.614] if (!is.null(pattern)) { 1560s [00:52:40.614] computeRestarts <- base::computeRestarts 1560s [00:52:40.614] grepl <- base::grepl 1560s [00:52:40.614] restarts <- computeRestarts(cond) 1560s [00:52:40.614] for (restart in restarts) { 1560s [00:52:40.614] name <- restart$name 1560s [00:52:40.614] if (is.null(name)) 1560s [00:52:40.614] next 1560s [00:52:40.614] if (!grepl(pattern, name)) 1560s [00:52:40.614] next 1560s [00:52:40.614] invokeRestart(restart) 1560s [00:52:40.614] muffled <- TRUE 1560s [00:52:40.614] break 1560s [00:52:40.614] } 1560s [00:52:40.614] } 1560s [00:52:40.614] } 1560s [00:52:40.614] invisible(muffled) 1560s [00:52:40.614] } 1560s [00:52:40.614] muffleCondition(cond, pattern = "^muffle") 1560s [00:52:40.614] } 1560s [00:52:40.614] } 1560s [00:52:40.614] } 1560s [00:52:40.614] })) 1560s [00:52:40.614] }, error = function(ex) { 1560s [00:52:40.614] base::structure(base::list(value = NULL, visible = NULL, 1560s [00:52:40.614] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1560s [00:52:40.614] ...future.rng), started = ...future.startTime, 1560s [00:52:40.614] finished = Sys.time(), session_uuid = NA_character_, 1560s [00:52:40.614] version = "1.8"), class = "FutureResult") 1560s [00:52:40.614] }, finally = { 1560s [00:52:40.614] if (!identical(...future.workdir, getwd())) 1560s [00:52:40.614] setwd(...future.workdir) 1560s [00:52:40.614] { 1560s [00:52:40.614] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1560s [00:52:40.614] ...future.oldOptions$nwarnings <- NULL 1560s [00:52:40.614] } 1560s [00:52:40.614] base::options(...future.oldOptions) 1560s [00:52:40.614] if (.Platform$OS.type == "windows") { 1560s [00:52:40.614] old_names <- names(...future.oldEnvVars) 1560s [00:52:40.614] envs <- base::Sys.getenv() 1560s [00:52:40.614] names <- names(envs) 1560s [00:52:40.614] common <- intersect(names, old_names) 1560s [00:52:40.614] added <- setdiff(names, old_names) 1560s [00:52:40.614] removed <- setdiff(old_names, names) 1560s [00:52:40.614] changed <- common[...future.oldEnvVars[common] != 1560s [00:52:40.614] envs[common]] 1560s [00:52:40.614] NAMES <- toupper(changed) 1560s [00:52:40.614] args <- list() 1560s [00:52:40.614] for (kk in seq_along(NAMES)) { 1560s [00:52:40.614] name <- changed[[kk]] 1560s [00:52:40.614] NAME <- NAMES[[kk]] 1560s [00:52:40.614] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.614] next 1560s [00:52:40.614] args[[name]] <- ...future.oldEnvVars[[name]] 1560s [00:52:40.614] } 1560s [00:52:40.614] NAMES <- toupper(added) 1560s [00:52:40.614] for (kk in seq_along(NAMES)) { 1560s [00:52:40.614] name <- added[[kk]] 1560s [00:52:40.614] NAME <- NAMES[[kk]] 1560s [00:52:40.614] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.614] next 1560s [00:52:40.614] args[[name]] <- "" 1560s [00:52:40.614] } 1560s [00:52:40.614] NAMES <- toupper(removed) 1560s [00:52:40.614] for (kk in seq_along(NAMES)) { 1560s [00:52:40.614] name <- removed[[kk]] 1560s [00:52:40.614] NAME <- NAMES[[kk]] 1560s [00:52:40.614] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.614] next 1560s [00:52:40.614] args[[name]] <- ...future.oldEnvVars[[name]] 1560s [00:52:40.614] } 1560s [00:52:40.614] if (length(args) > 0) 1560s [00:52:40.614] base::do.call(base::Sys.setenv, args = args) 1560s [00:52:40.614] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1560s [00:52:40.614] } 1560s [00:52:40.614] else { 1560s [00:52:40.614] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1560s [00:52:40.614] } 1560s [00:52:40.614] { 1560s [00:52:40.614] if (base::length(...future.futureOptionsAdded) > 1560s [00:52:40.614] 0L) { 1560s [00:52:40.614] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1560s [00:52:40.614] base::names(opts) <- ...future.futureOptionsAdded 1560s [00:52:40.614] base::options(opts) 1560s [00:52:40.614] } 1560s [00:52:40.614] { 1560s [00:52:40.614] { 1560s [00:52:40.614] base::assign(".Random.seed", c(10407L, -1319993016L, 1560s [00:52:40.614] 1571290074L, -859112415L, -853775137L, 1440155893L, 1560s [00:52:40.614] -732328588L), envir = base::globalenv(), 1560s [00:52:40.614] inherits = FALSE) 1560s [00:52:40.614] NULL 1560s [00:52:40.614] } 1560s [00:52:40.614] options(future.plan = NULL) 1560s [00:52:40.614] if (is.na(NA_character_)) 1560s [00:52:40.614] Sys.unsetenv("R_FUTURE_PLAN") 1560s [00:52:40.614] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1560s [00:52:40.614] future::plan(list(function (..., envir = parent.frame()) 1560s [00:52:40.614] { 1560s [00:52:40.614] future <- SequentialFuture(..., envir = envir) 1560s [00:52:40.614] if (!future$lazy) 1560s [00:52:40.614] future <- run(future) 1560s [00:52:40.614] invisible(future) 1560s [00:52:40.614] }), .cleanup = FALSE, .init = FALSE) 1560s [00:52:40.614] } 1560s [00:52:40.614] } 1560s [00:52:40.614] } 1560s [00:52:40.614] }) 1560s [00:52:40.614] if (TRUE) { 1560s [00:52:40.614] base::sink(type = "output", split = FALSE) 1560s [00:52:40.614] if (TRUE) { 1560s [00:52:40.614] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1560s [00:52:40.614] } 1560s [00:52:40.614] else { 1560s [00:52:40.614] ...future.result["stdout"] <- base::list(NULL) 1560s [00:52:40.614] } 1560s [00:52:40.614] base::close(...future.stdout) 1560s [00:52:40.614] ...future.stdout <- NULL 1560s [00:52:40.614] } 1560s [00:52:40.614] ...future.result$conditions <- ...future.conditions 1560s [00:52:40.614] ...future.result$finished <- base::Sys.time() 1560s [00:52:40.614] ...future.result 1560s [00:52:40.614] } 1560s [00:52:40.621] assign_globals() ... 1560s [00:52:40.621] List of 5 1560s [00:52:40.621] $ ...future.FUN :function (C, k) 1560s [00:52:40.621] $ MoreArgs : NULL 1560s [00:52:40.621] $ ...future.elements_ii :List of 2 1560s [00:52:40.621] ..$ :List of 1 1560s [00:52:40.621] .. ..$ : chr "E" 1560s [00:52:40.621] ..$ :List of 1 1560s [00:52:40.621] .. ..$ : int 1 1560s [00:52:40.621] $ ...future.seeds_ii : NULL 1560s [00:52:40.621] $ ...future.globals.maxSize: NULL 1560s [00:52:40.621] - attr(*, "where")=List of 5 1560s [00:52:40.621] ..$ ...future.FUN : 1560s [00:52:40.621] ..$ MoreArgs : 1560s [00:52:40.621] ..$ ...future.elements_ii : 1560s [00:52:40.621] ..$ ...future.seeds_ii : 1560s [00:52:40.621] ..$ ...future.globals.maxSize: 1560s [00:52:40.621] - attr(*, "resolved")= logi FALSE 1560s [00:52:40.621] - attr(*, "total_size")= num 3488 1560s [00:52:40.621] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1560s [00:52:40.621] - attr(*, "already-done")= logi TRUE 1560s [00:52:40.629] - reassign environment for ‘...future.FUN’ 1560s [00:52:40.629] - copied ‘...future.FUN’ to environment 1560s [00:52:40.629] - copied ‘MoreArgs’ to environment 1560s [00:52:40.629] - copied ‘...future.elements_ii’ to environment 1560s [00:52:40.629] - copied ‘...future.seeds_ii’ to environment 1560s [00:52:40.629] - copied ‘...future.globals.maxSize’ to environment 1560s [00:52:40.629] assign_globals() ... done 1560s [00:52:40.630] plan(): Setting new future strategy stack: 1560s [00:52:40.630] List of future strategies: 1560s [00:52:40.630] 1. sequential: 1560s [00:52:40.630] - args: function (..., envir = parent.frame()) 1560s [00:52:40.630] - tweaked: FALSE 1560s [00:52:40.630] - call: NULL 1560s [00:52:40.630] plan(): nbrOfWorkers() = 1 1560s [00:52:40.631] plan(): Setting new future strategy stack: 1560s [00:52:40.631] List of future strategies: 1560s [00:52:40.631] 1. sequential: 1560s [00:52:40.631] - args: function (..., envir = parent.frame()) 1560s [00:52:40.631] - tweaked: FALSE 1560s [00:52:40.631] - call: plan(strategy) 1560s [00:52:40.632] plan(): nbrOfWorkers() = 1 1560s [00:52:40.632] SequentialFuture started (and completed) 1560s [00:52:40.632] - Launch lazy future ... done 1560s [00:52:40.632] run() for ‘SequentialFuture’ ... done 1560s [00:52:40.632] Created future: 1560s [00:52:40.633] SequentialFuture: 1560s [00:52:40.633] Label: ‘future_mapply-5’ 1560s [00:52:40.633] Expression: 1560s [00:52:40.633] { 1560s [00:52:40.633] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1560s [00:52:40.633] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1560s [00:52:40.633] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1560s [00:52:40.633] on.exit(options(oopts), add = TRUE) 1560s [00:52:40.633] } 1560s [00:52:40.633] { 1560s [00:52:40.633] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1560s [00:52:40.633] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1560s [00:52:40.633] do.call(mapply, args = args) 1560s [00:52:40.633] } 1560s [00:52:40.633] } 1560s [00:52:40.633] Lazy evaluation: FALSE 1560s [00:52:40.633] Asynchronous evaluation: FALSE 1560s [00:52:40.633] Local evaluation: TRUE 1560s [00:52:40.633] Environment: R_GlobalEnv 1560s [00:52:40.633] Capture standard output: TRUE 1560s [00:52:40.633] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1560s [00:52:40.633] Globals: 5 objects totaling 3.41 KiB (function ‘...future.FUN’ of 3.24 KiB, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1560s [00:52:40.633] Packages: 1560s [00:52:40.633] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1560s [00:52:40.633] Resolved: TRUE 1560s [00:52:40.633] Value: 112 bytes of class ‘list’ 1560s [00:52:40.633] Early signaling: FALSE 1560s [00:52:40.633] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1560s [00:52:40.633] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1560s [00:52:40.634] Chunk #5 of 5 ... DONE 1560s [00:52:40.634] Launching 5 futures (chunks) ... DONE 1560s [00:52:40.634] Resolving 5 futures (chunks) ... 1560s [00:52:40.634] resolve() on list ... 1560s [00:52:40.635] recursive: 0 1560s [00:52:40.635] length: 5 1560s [00:52:40.635] 1560s [00:52:40.635] resolved() for ‘SequentialFuture’ ... 1560s [00:52:40.635] - state: ‘finished’ 1560s [00:52:40.635] - run: TRUE 1560s [00:52:40.635] - result: ‘FutureResult’ 1560s [00:52:40.636] resolved() for ‘SequentialFuture’ ... done 1560s [00:52:40.636] Future #1 1560s [00:52:40.636] signalConditionsASAP(SequentialFuture, pos=1) ... 1560s [00:52:40.636] - nx: 5 1560s [00:52:40.636] - relay: TRUE 1560s [00:52:40.636] - stdout: TRUE 1560s [00:52:40.636] - signal: TRUE 1560s [00:52:40.637] - resignal: FALSE 1560s [00:52:40.637] - force: TRUE 1560s [00:52:40.637] - relayed: [n=5] FALSE, FALSE, FALSE, FALSE, FALSE 1560s [00:52:40.638] - queued futures: [n=5] FALSE, FALSE, FALSE, FALSE, FALSE 1560s [00:52:40.638] - until=1 1560s [00:52:40.638] - relaying element #1 1560s [00:52:40.638] - relayed: [n=5] TRUE, FALSE, FALSE, FALSE, FALSE 1560s [00:52:40.638] - queued futures: [n=5] TRUE, FALSE, FALSE, FALSE, FALSE 1560s [00:52:40.638] signalConditionsASAP(SequentialFuture, pos=1) ... done 1560s [00:52:40.639] length: 4 (resolved future 1) 1560s [00:52:40.639] resolved() for ‘SequentialFuture’ ... 1560s [00:52:40.639] - state: ‘finished’ 1560s [00:52:40.639] - run: TRUE 1560s [00:52:40.639] - result: ‘FutureResult’ 1560s [00:52:40.639] resolved() for ‘SequentialFuture’ ... done 1560s [00:52:40.640] Future #2 1560s [00:52:40.640] signalConditionsASAP(SequentialFuture, pos=2) ... 1560s [00:52:40.640] - nx: 5 1560s [00:52:40.640] - relay: TRUE 1560s [00:52:40.640] - stdout: TRUE 1560s [00:52:40.640] - signal: TRUE 1560s [00:52:40.640] - resignal: FALSE 1560s [00:52:40.641] - force: TRUE 1560s [00:52:40.641] - relayed: [n=5] TRUE, FALSE, FALSE, FALSE, FALSE 1560s [00:52:40.641] - queued futures: [n=5] TRUE, FALSE, FALSE, FALSE, FALSE 1560s [00:52:40.641] - until=2 1560s [00:52:40.641] - relaying element #2 1560s [00:52:40.641] - relayed: [n=5] TRUE, TRUE, FALSE, FALSE, FALSE 1560s [00:52:40.642] - queued futures: [n=5] TRUE, TRUE, FALSE, FALSE, FALSE 1560s [00:52:40.642] signalConditionsASAP(SequentialFuture, pos=2) ... done 1560s [00:52:40.642] length: 3 (resolved future 2) 1560s [00:52:40.642] resolved() for ‘SequentialFuture’ ... 1560s [00:52:40.642] - state: ‘finished’ 1560s [00:52:40.642] - run: TRUE 1560s [00:52:40.642] - result: ‘FutureResult’ 1560s [00:52:40.643] resolved() for ‘SequentialFuture’ ... done 1560s [00:52:40.644] Future #3 1560s [00:52:40.644] signalConditionsASAP(SequentialFuture, pos=3) ... 1560s [00:52:40.645] - nx: 5 1560s [00:52:40.645] - relay: TRUE 1560s [00:52:40.645] - stdout: TRUE 1560s [00:52:40.645] - signal: TRUE 1560s [00:52:40.645] - resignal: FALSE 1560s [00:52:40.645] - force: TRUE 1560s [00:52:40.645] - relayed: [n=5] TRUE, TRUE, FALSE, FALSE, FALSE 1560s [00:52:40.646] - queued futures: [n=5] TRUE, TRUE, FALSE, FALSE, FALSE 1560s [00:52:40.646] - until=3 1560s [00:52:40.646] - relaying element #3 1560s [00:52:40.646] - relayed: [n=5] TRUE, TRUE, TRUE, FALSE, FALSE 1560s [00:52:40.646] - queued futures: [n=5] TRUE, TRUE, TRUE, FALSE, FALSE 1560s [00:52:40.646] signalConditionsASAP(SequentialFuture, pos=3) ... done 1560s [00:52:40.647] length: 2 (resolved future 3) 1560s [00:52:40.647] resolved() for ‘SequentialFuture’ ... 1560s [00:52:40.647] - state: ‘finished’ 1560s [00:52:40.647] - run: TRUE 1560s [00:52:40.647] - result: ‘FutureResult’ 1560s [00:52:40.647] resolved() for ‘SequentialFuture’ ... done 1560s [00:52:40.648] Future #4 1560s [00:52:40.648] signalConditionsASAP(SequentialFuture, pos=4) ... 1560s [00:52:40.648] - nx: 5 1560s [00:52:40.648] - relay: TRUE 1560s [00:52:40.649] - stdout: TRUE 1560s [00:52:40.649] - signal: TRUE 1560s [00:52:40.649] - resignal: FALSE 1560s [00:52:40.649] - force: TRUE 1560s [00:52:40.649] - relayed: [n=5] TRUE, TRUE, TRUE, FALSE, FALSE 1560s [00:52:40.649] - queued futures: [n=5] TRUE, TRUE, TRUE, FALSE, FALSE 1560s [00:52:40.649] - until=4 1560s [00:52:40.650] - relaying element #4 1560s [00:52:40.650] - relayed: [n=5] TRUE, TRUE, TRUE, TRUE, FALSE 1560s [00:52:40.650] - queued futures: [n=5] TRUE, TRUE, TRUE, TRUE, FALSE 1560s [00:52:40.650] signalConditionsASAP(SequentialFuture, pos=4) ... done 1560s [00:52:40.650] length: 1 (resolved future 4) 1560s [00:52:40.651] resolved() for ‘SequentialFuture’ ... 1560s [00:52:40.651] - state: ‘finished’ 1560s [00:52:40.651] - run: TRUE 1560s [00:52:40.651] - result: ‘FutureResult’ 1560s [00:52:40.652] resolved() for ‘SequentialFuture’ ... done 1560s [00:52:40.652] Future #5 1560s [00:52:40.652] signalConditionsASAP(SequentialFuture, pos=5) ... 1560s [00:52:40.652] - nx: 5 1560s [00:52:40.652] - relay: TRUE 1560s [00:52:40.653] - stdout: TRUE 1560s [00:52:40.653] - signal: TRUE 1560s [00:52:40.653] - resignal: FALSE 1560s [00:52:40.653] - force: TRUE 1560s [00:52:40.654] - relayed: [n=5] TRUE, TRUE, TRUE, TRUE, FALSE 1560s [00:52:40.654] - queued futures: [n=5] TRUE, TRUE, TRUE, TRUE, FALSE 1560s [00:52:40.654] - until=5 1560s [00:52:40.654] - relaying element #5 1560s [00:52:40.654] - relayed: [n=5] TRUE, TRUE, TRUE, TRUE, TRUE 1560s [00:52:40.654] - queued futures: [n=5] TRUE, TRUE, TRUE, TRUE, TRUE 1560s [00:52:40.655] signalConditionsASAP(SequentialFuture, pos=5) ... done 1560s [00:52:40.655] length: 0 (resolved future 5) 1560s [00:52:40.655] Relaying remaining futures 1560s [00:52:40.655] signalConditionsASAP(NULL, pos=0) ... 1560s [00:52:40.655] - nx: 5 1560s [00:52:40.655] - relay: TRUE 1560s [00:52:40.655] - stdout: TRUE 1560s [00:52:40.656] - signal: TRUE 1560s [00:52:40.656] - resignal: FALSE 1560s [00:52:40.656] - force: TRUE 1560s [00:52:40.656] - relayed: [n=5] TRUE, TRUE, TRUE, TRUE, TRUE 1560s [00:52:40.656] - queued futures: [n=5] TRUE, TRUE, TRUE, TRUE, TRUE 1560s - flush all 1560s [00:52:40.656] - relayed: [n=5] TRUE, TRUE, TRUE, TRUE, TRUE 1560s [00:52:40.656] - queued futures: [n=5] TRUE, TRUE, TRUE, TRUE, TRUE 1560s [00:52:40.657] signalConditionsASAP(NULL, pos=0) ... done 1560s [00:52:40.657] resolve() on list ... DONE 1560s [00:52:40.657] - Number of value chunks collected: 5 1560s [00:52:40.657] Resolving 5 futures (chunks) ... DONE 1560s [00:52:40.657] Reducing values from 5 chunks ... 1560s [00:52:40.658] - Number of values collected after concatenation: 5 1560s [00:52:40.658] - Number of values expected: 5 1560s [00:52:40.658] Reducing values from 5 chunks ... DONE 1560s [00:52:40.658] future_mapply() ... DONE 1560s [00:52:40.659] future_mapply() ... 1560s [00:52:40.659] Number of chunks: 1 1560s [00:52:40.659] getGlobalsAndPackagesXApply() ... 1560s [00:52:40.659] - future.globals: TRUE 1560s [00:52:40.659] getGlobalsAndPackages() ... 1560s [00:52:40.659] Searching for globals... 1560s [00:52:40.661] - globals found: [3] ‘FUN’, ‘paste’, ‘rep.int’ 1560s [00:52:40.661] Searching for globals ... DONE 1560s [00:52:40.662] Resolving globals: FALSE 1560s [00:52:40.662] The total size of the 1 globals is 3.24 KiB (3320 bytes) 1560s [00:52:40.662] The total size of the 1 globals exported for future expression (‘FUN()’) is 3.24 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (3.24 KiB of class ‘function’) 1560s [00:52:40.663] - globals: [1] ‘FUN’ 1560s [00:52:40.663] 1560s [00:52:40.663] getGlobalsAndPackages() ... DONE 1560s [00:52:40.663] - globals found/used: [n=1] ‘FUN’ 1560s [00:52:40.663] - needed namespaces: [n=0] 1560s [00:52:40.663] Finding globals ... DONE 1560s [00:52:40.664] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1560s [00:52:40.664] List of 2 1560s [00:52:40.664] $ ...future.FUN:function (C, k) 1560s [00:52:40.664] $ MoreArgs : list() 1560s [00:52:40.664] - attr(*, "where")=List of 2 1560s [00:52:40.664] ..$ ...future.FUN: 1560s [00:52:40.664] ..$ MoreArgs : 1560s [00:52:40.664] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1560s [00:52:40.664] - attr(*, "resolved")= logi FALSE 1560s [00:52:40.664] - attr(*, "total_size")= num NA 1560s [00:52:40.668] Packages to be attached in all futures: [n=0] 1560s [00:52:40.668] getGlobalsAndPackagesXApply() ... DONE 1560s [00:52:40.668] Number of futures (= number of chunks): 1 1560s [00:52:40.668] Launching 1 futures (chunks) ... 1560s [00:52:40.669] Chunk #1 of 1 ... 1560s [00:52:40.669] - Finding globals in '...' for chunk #1 ... 1560s [00:52:40.669] getGlobalsAndPackages() ... 1560s [00:52:40.669] Searching for globals... 1560s [00:52:40.669] 1560s [00:52:40.670] Searching for globals ... DONE 1560s [00:52:40.670] - globals: [0] 1560s [00:52:40.670] getGlobalsAndPackages() ... DONE 1560s [00:52:40.670] + additional globals found: [n=0] 1560s [00:52:40.670] + additional namespaces needed: [n=0] 1560s [00:52:40.670] - Finding globals in '...' for chunk #1 ... DONE 1560s [00:52:40.670] - seeds: 1560s [00:52:40.671] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.671] getGlobalsAndPackages() ... 1560s [00:52:40.671] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.671] Resolving globals: FALSE 1560s [00:52:40.672] The total size of the 5 globals is 4.06 KiB (4160 bytes) 1560s [00:52:40.672] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 4.06 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (3.24 KiB of class ‘function’), ‘...future.elements_ii’ (840 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘list’) 1560s [00:52:40.673] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.673] 1560s [00:52:40.673] getGlobalsAndPackages() ... DONE 1560s [00:52:40.673] run() for ‘Future’ ... 1560s [00:52:40.673] - state: ‘created’ 1560s [00:52:40.674] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1560s [00:52:40.674] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1560s [00:52:40.674] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1560s [00:52:40.674] - Field: ‘label’ 1560s [00:52:40.674] - Field: ‘local’ 1560s [00:52:40.675] - Field: ‘owner’ 1560s [00:52:40.675] - Field: ‘envir’ 1560s [00:52:40.675] - Field: ‘packages’ 1560s [00:52:40.675] - Field: ‘gc’ 1560s [00:52:40.675] - Field: ‘conditions’ 1560s [00:52:40.675] - Field: ‘expr’ 1560s [00:52:40.676] - Field: ‘uuid’ 1560s [00:52:40.676] - Field: ‘seed’ 1560s [00:52:40.676] - Field: ‘version’ 1560s [00:52:40.676] - Field: ‘result’ 1560s [00:52:40.676] - Field: ‘asynchronous’ 1560s [00:52:40.676] - Field: ‘calls’ 1560s [00:52:40.676] - Field: ‘globals’ 1560s [00:52:40.677] - Field: ‘stdout’ 1560s [00:52:40.677] - Field: ‘earlySignal’ 1560s [00:52:40.677] - Field: ‘lazy’ 1560s [00:52:40.677] - Field: ‘state’ 1560s [00:52:40.677] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1560s [00:52:40.677] - Launch lazy future ... 1560s [00:52:40.678] Packages needed by the future expression (n = 0): 1560s [00:52:40.678] Packages needed by future strategies (n = 0): 1560s [00:52:40.678] { 1560s [00:52:40.678] { 1560s [00:52:40.678] { 1560s [00:52:40.678] ...future.startTime <- base::Sys.time() 1560s [00:52:40.678] { 1560s [00:52:40.678] { 1560s [00:52:40.678] { 1560s [00:52:40.678] base::local({ 1560s [00:52:40.678] has_future <- base::requireNamespace("future", 1560s [00:52:40.678] quietly = TRUE) 1560s [00:52:40.678] if (has_future) { 1560s [00:52:40.678] ns <- base::getNamespace("future") 1560s [00:52:40.678] version <- ns[[".package"]][["version"]] 1560s [00:52:40.678] if (is.null(version)) 1560s [00:52:40.678] version <- utils::packageVersion("future") 1560s [00:52:40.678] } 1560s [00:52:40.678] else { 1560s [00:52:40.678] version <- NULL 1560s [00:52:40.678] } 1560s [00:52:40.678] if (!has_future || version < "1.8.0") { 1560s [00:52:40.678] info <- base::c(r_version = base::gsub("R version ", 1560s [00:52:40.678] "", base::R.version$version.string), 1560s [00:52:40.678] platform = base::sprintf("%s (%s-bit)", 1560s [00:52:40.678] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1560s [00:52:40.678] os = base::paste(base::Sys.info()[base::c("sysname", 1560s [00:52:40.678] "release", "version")], collapse = " "), 1560s [00:52:40.678] hostname = base::Sys.info()[["nodename"]]) 1560s [00:52:40.678] info <- base::sprintf("%s: %s", base::names(info), 1560s [00:52:40.678] info) 1560s [00:52:40.678] info <- base::paste(info, collapse = "; ") 1560s [00:52:40.678] if (!has_future) { 1560s [00:52:40.678] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1560s [00:52:40.678] info) 1560s [00:52:40.678] } 1560s [00:52:40.678] else { 1560s [00:52:40.678] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1560s [00:52:40.678] info, version) 1560s [00:52:40.678] } 1560s [00:52:40.678] base::stop(msg) 1560s [00:52:40.678] } 1560s [00:52:40.678] }) 1560s [00:52:40.678] } 1560s [00:52:40.678] options(future.plan = NULL) 1560s [00:52:40.678] Sys.unsetenv("R_FUTURE_PLAN") 1560s [00:52:40.678] future::plan("default", .cleanup = FALSE, .init = FALSE) 1560s [00:52:40.678] } 1560s [00:52:40.678] ...future.workdir <- getwd() 1560s [00:52:40.678] } 1560s [00:52:40.678] ...future.oldOptions <- base::as.list(base::.Options) 1560s [00:52:40.678] ...future.oldEnvVars <- base::Sys.getenv() 1560s [00:52:40.678] } 1560s [00:52:40.678] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1560s [00:52:40.678] future.globals.maxSize = NULL, future.globals.method = NULL, 1560s [00:52:40.678] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1560s [00:52:40.678] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1560s [00:52:40.678] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1560s [00:52:40.678] future.stdout.windows.reencode = NULL, width = 80L) 1560s [00:52:40.678] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1560s [00:52:40.678] base::names(...future.oldOptions)) 1560s [00:52:40.678] } 1560s [00:52:40.678] if (FALSE) { 1560s [00:52:40.678] } 1560s [00:52:40.678] else { 1560s [00:52:40.678] if (TRUE) { 1560s [00:52:40.678] ...future.stdout <- base::rawConnection(base::raw(0L), 1560s [00:52:40.678] open = "w") 1560s [00:52:40.678] } 1560s [00:52:40.678] else { 1560s [00:52:40.678] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1560s [00:52:40.678] windows = "NUL", "/dev/null"), open = "w") 1560s [00:52:40.678] } 1560s [00:52:40.678] base::sink(...future.stdout, type = "output", split = FALSE) 1560s [00:52:40.678] base::on.exit(if (!base::is.null(...future.stdout)) { 1560s [00:52:40.678] base::sink(type = "output", split = FALSE) 1560s [00:52:40.678] base::close(...future.stdout) 1560s [00:52:40.678] }, add = TRUE) 1560s [00:52:40.678] } 1560s [00:52:40.678] ...future.frame <- base::sys.nframe() 1560s [00:52:40.678] ...future.conditions <- base::list() 1560s [00:52:40.678] ...future.rng <- base::globalenv()$.Random.seed 1560s [00:52:40.678] if (FALSE) { 1560s [00:52:40.678] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1560s [00:52:40.678] "...future.value", "...future.globalenv.names", ".Random.seed") 1560s [00:52:40.678] } 1560s [00:52:40.678] ...future.result <- base::tryCatch({ 1560s [00:52:40.678] base::withCallingHandlers({ 1560s [00:52:40.678] ...future.value <- base::withVisible(base::local({ 1560s [00:52:40.678] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1560s [00:52:40.678] if (!identical(...future.globals.maxSize.org, 1560s [00:52:40.678] ...future.globals.maxSize)) { 1560s [00:52:40.678] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1560s [00:52:40.678] on.exit(options(oopts), add = TRUE) 1560s [00:52:40.678] } 1560s [00:52:40.678] { 1560s [00:52:40.678] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1560s [00:52:40.678] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1560s [00:52:40.678] USE.NAMES = FALSE) 1560s [00:52:40.678] do.call(mapply, args = args) 1560s [00:52:40.678] } 1560s [00:52:40.678] })) 1560s [00:52:40.678] future::FutureResult(value = ...future.value$value, 1560s [00:52:40.678] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1560s [00:52:40.678] ...future.rng), globalenv = if (FALSE) 1560s [00:52:40.678] list(added = base::setdiff(base::names(base::.GlobalEnv), 1560s [00:52:40.678] ...future.globalenv.names)) 1560s [00:52:40.678] else NULL, started = ...future.startTime, version = "1.8") 1560s [00:52:40.678] }, condition = base::local({ 1560s [00:52:40.678] c <- base::c 1560s [00:52:40.678] inherits <- base::inherits 1560s [00:52:40.678] invokeRestart <- base::invokeRestart 1560s [00:52:40.678] length <- base::length 1560s [00:52:40.678] list <- base::list 1560s [00:52:40.678] seq.int <- base::seq.int 1560s [00:52:40.678] signalCondition <- base::signalCondition 1560s [00:52:40.678] sys.calls <- base::sys.calls 1560s [00:52:40.678] `[[` <- base::`[[` 1560s [00:52:40.678] `+` <- base::`+` 1560s [00:52:40.678] `<<-` <- base::`<<-` 1560s [00:52:40.678] sysCalls <- function(calls = sys.calls(), from = 1L) { 1560s [00:52:40.678] calls[seq.int(from = from + 12L, to = length(calls) - 1560s [00:52:40.678] 3L)] 1560s [00:52:40.678] } 1560s [00:52:40.678] function(cond) { 1560s [00:52:40.678] is_error <- inherits(cond, "error") 1560s [00:52:40.678] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1560s [00:52:40.678] NULL) 1560s [00:52:40.678] if (is_error) { 1560s [00:52:40.678] sessionInformation <- function() { 1560s [00:52:40.678] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1560s [00:52:40.678] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1560s [00:52:40.678] search = base::search(), system = base::Sys.info()) 1560s [00:52:40.678] } 1560s [00:52:40.678] ...future.conditions[[length(...future.conditions) + 1560s [00:52:40.678] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1560s [00:52:40.678] cond$call), session = sessionInformation(), 1560s [00:52:40.678] timestamp = base::Sys.time(), signaled = 0L) 1560s [00:52:40.678] signalCondition(cond) 1560s [00:52:40.678] } 1560s [00:52:40.678] else if (!ignore && TRUE && inherits(cond, c("condition", 1560s [00:52:40.678] "immediateCondition"))) { 1560s [00:52:40.678] signal <- TRUE && inherits(cond, "immediateCondition") 1560s [00:52:40.678] ...future.conditions[[length(...future.conditions) + 1560s [00:52:40.678] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1560s [00:52:40.678] if (TRUE && !signal) { 1560s [00:52:40.678] muffleCondition <- function (cond, pattern = "^muffle") 1560s [00:52:40.678] { 1560s [00:52:40.678] inherits <- base::inherits 1560s [00:52:40.678] invokeRestart <- base::invokeRestart 1560s [00:52:40.678] is.null <- base::is.null 1560s [00:52:40.678] muffled <- FALSE 1560s [00:52:40.678] if (inherits(cond, "message")) { 1560s [00:52:40.678] muffled <- grepl(pattern, "muffleMessage") 1560s [00:52:40.678] if (muffled) 1560s [00:52:40.678] invokeRestart("muffleMessage") 1560s [00:52:40.678] } 1560s [00:52:40.678] else if (inherits(cond, "warning")) { 1560s [00:52:40.678] muffled <- grepl(pattern, "muffleWarning") 1560s [00:52:40.678] if (muffled) 1560s [00:52:40.678] invokeRestart("muffleWarning") 1560s [00:52:40.678] } 1560s [00:52:40.678] else if (inherits(cond, "condition")) { 1560s [00:52:40.678] if (!is.null(pattern)) { 1560s [00:52:40.678] computeRestarts <- base::computeRestarts 1560s [00:52:40.678] grepl <- base::grepl 1560s [00:52:40.678] restarts <- computeRestarts(cond) 1560s [00:52:40.678] for (restart in restarts) { 1560s [00:52:40.678] name <- restart$name 1560s [00:52:40.678] if (is.null(name)) 1560s [00:52:40.678] next 1560s [00:52:40.678] if (!grepl(pattern, name)) 1560s [00:52:40.678] next 1560s [00:52:40.678] invokeRestart(restart) 1560s [00:52:40.678] muffled <- TRUE 1560s [00:52:40.678] break 1560s [00:52:40.678] } 1560s [00:52:40.678] } 1560s [00:52:40.678] } 1560s [00:52:40.678] invisible(muffled) 1560s [00:52:40.678] } 1560s [00:52:40.678] muffleCondition(cond, pattern = "^muffle") 1560s [00:52:40.678] } 1560s [00:52:40.678] } 1560s [00:52:40.678] else { 1560s [00:52:40.678] if (TRUE) { 1560s [00:52:40.678] muffleCondition <- function (cond, pattern = "^muffle") 1560s [00:52:40.678] { 1560s [00:52:40.678] inherits <- base::inherits 1560s [00:52:40.678] invokeRestart <- base::invokeRestart 1560s [00:52:40.678] is.null <- base::is.null 1560s [00:52:40.678] muffled <- FALSE 1560s [00:52:40.678] if (inherits(cond, "message")) { 1560s [00:52:40.678] muffled <- grepl(pattern, "muffleMessage") 1560s [00:52:40.678] if (muffled) 1560s [00:52:40.678] invokeRestart("muffleMessage") 1560s [00:52:40.678] } 1560s [00:52:40.678] else if (inherits(cond, "warning")) { 1560s [00:52:40.678] muffled <- grepl(pattern, "muffleWarning") 1560s [00:52:40.678] if (muffled) 1560s [00:52:40.678] invokeRestart("muffleWarning") 1560s [00:52:40.678] } 1560s [00:52:40.678] else if (inherits(cond, "condition")) { 1560s [00:52:40.678] if (!is.null(pattern)) { 1560s [00:52:40.678] computeRestarts <- base::computeRestarts 1560s [00:52:40.678] grepl <- base::grepl 1560s [00:52:40.678] restarts <- computeRestarts(cond) 1560s [00:52:40.678] for (restart in restarts) { 1560s [00:52:40.678] name <- restart$name 1560s [00:52:40.678] if (is.null(name)) 1560s [00:52:40.678] next 1560s [00:52:40.678] if (!grepl(pattern, name)) 1560s [00:52:40.678] next 1560s [00:52:40.678] invokeRestart(restart) 1560s [00:52:40.678] muffled <- TRUE 1560s [00:52:40.678] break 1560s [00:52:40.678] } 1560s [00:52:40.678] } 1560s [00:52:40.678] } 1560s [00:52:40.678] invisible(muffled) 1560s [00:52:40.678] } 1560s [00:52:40.678] muffleCondition(cond, pattern = "^muffle") 1560s [00:52:40.678] } 1560s [00:52:40.678] } 1560s [00:52:40.678] } 1560s [00:52:40.678] })) 1560s [00:52:40.678] }, error = function(ex) { 1560s [00:52:40.678] base::structure(base::list(value = NULL, visible = NULL, 1560s [00:52:40.678] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1560s [00:52:40.678] ...future.rng), started = ...future.startTime, 1560s [00:52:40.678] finished = Sys.time(), session_uuid = NA_character_, 1560s [00:52:40.678] version = "1.8"), class = "FutureResult") 1560s [00:52:40.678] }, finally = { 1560s [00:52:40.678] if (!identical(...future.workdir, getwd())) 1560s [00:52:40.678] setwd(...future.workdir) 1560s [00:52:40.678] { 1560s [00:52:40.678] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1560s [00:52:40.678] ...future.oldOptions$nwarnings <- NULL 1560s [00:52:40.678] } 1560s [00:52:40.678] base::options(...future.oldOptions) 1560s [00:52:40.678] if (.Platform$OS.type == "windows") { 1560s [00:52:40.678] old_names <- names(...future.oldEnvVars) 1560s [00:52:40.678] envs <- base::Sys.getenv() 1560s [00:52:40.678] names <- names(envs) 1560s [00:52:40.678] common <- intersect(names, old_names) 1560s [00:52:40.678] added <- setdiff(names, old_names) 1560s [00:52:40.678] removed <- setdiff(old_names, names) 1560s [00:52:40.678] changed <- common[...future.oldEnvVars[common] != 1560s [00:52:40.678] envs[common]] 1560s [00:52:40.678] NAMES <- toupper(changed) 1560s [00:52:40.678] args <- list() 1560s [00:52:40.678] for (kk in seq_along(NAMES)) { 1560s [00:52:40.678] name <- changed[[kk]] 1560s [00:52:40.678] NAME <- NAMES[[kk]] 1560s [00:52:40.678] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.678] next 1560s [00:52:40.678] args[[name]] <- ...future.oldEnvVars[[name]] 1560s [00:52:40.678] } 1560s [00:52:40.678] NAMES <- toupper(added) 1560s [00:52:40.678] for (kk in seq_along(NAMES)) { 1560s [00:52:40.678] name <- added[[kk]] 1560s [00:52:40.678] NAME <- NAMES[[kk]] 1560s [00:52:40.678] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.678] next 1560s [00:52:40.678] args[[name]] <- "" 1560s [00:52:40.678] } 1560s [00:52:40.678] NAMES <- toupper(removed) 1560s [00:52:40.678] for (kk in seq_along(NAMES)) { 1560s [00:52:40.678] name <- removed[[kk]] 1560s [00:52:40.678] NAME <- NAMES[[kk]] 1560s [00:52:40.678] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.678] next 1560s [00:52:40.678] args[[name]] <- ...future.oldEnvVars[[name]] 1560s [00:52:40.678] } 1560s [00:52:40.678] if (length(args) > 0) 1560s [00:52:40.678] base::do.call(base::Sys.setenv, args = args) 1560s [00:52:40.678] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1560s [00:52:40.678] } 1560s [00:52:40.678] else { 1560s [00:52:40.678] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1560s [00:52:40.678] } 1560s [00:52:40.678] { 1560s [00:52:40.678] if (base::length(...future.futureOptionsAdded) > 1560s [00:52:40.678] 0L) { 1560s [00:52:40.678] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1560s [00:52:40.678] base::names(opts) <- ...future.futureOptionsAdded 1560s [00:52:40.678] base::options(opts) 1560s [00:52:40.678] } 1560s [00:52:40.678] { 1560s [00:52:40.678] { 1560s [00:52:40.678] base::assign(".Random.seed", c(10407L, -1319993016L, 1560s [00:52:40.678] 1571290074L, -859112415L, -853775137L, 1440155893L, 1560s [00:52:40.678] -732328588L), envir = base::globalenv(), 1560s [00:52:40.678] inherits = FALSE) 1560s [00:52:40.678] NULL 1560s [00:52:40.678] } 1560s [00:52:40.678] options(future.plan = NULL) 1560s [00:52:40.678] if (is.na(NA_character_)) 1560s [00:52:40.678] Sys.unsetenv("R_FUTURE_PLAN") 1560s [00:52:40.678] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1560s [00:52:40.678] future::plan(list(function (..., envir = parent.frame()) 1560s [00:52:40.678] { 1560s [00:52:40.678] future <- SequentialFuture(..., envir = envir) 1560s [00:52:40.678] if (!future$lazy) 1560s [00:52:40.678] future <- run(future) 1560s [00:52:40.678] invisible(future) 1560s [00:52:40.678] }), .cleanup = FALSE, .init = FALSE) 1560s [00:52:40.678] } 1560s [00:52:40.678] } 1560s [00:52:40.678] } 1560s [00:52:40.678] }) 1560s [00:52:40.678] if (TRUE) { 1560s [00:52:40.678] base::sink(type = "output", split = FALSE) 1560s [00:52:40.678] if (TRUE) { 1560s [00:52:40.678] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1560s [00:52:40.678] } 1560s [00:52:40.678] else { 1560s [00:52:40.678] ...future.result["stdout"] <- base::list(NULL) 1560s [00:52:40.678] } 1560s [00:52:40.678] base::close(...future.stdout) 1560s [00:52:40.678] ...future.stdout <- NULL 1560s [00:52:40.678] } 1560s [00:52:40.678] ...future.result$conditions <- ...future.conditions 1560s [00:52:40.678] ...future.result$finished <- base::Sys.time() 1560s [00:52:40.678] ...future.result 1560s [00:52:40.678] } 1560s [00:52:40.684] assign_globals() ... 1560s [00:52:40.684] List of 5 1560s [00:52:40.684] $ ...future.FUN :function (C, k) 1560s [00:52:40.684] $ MoreArgs : list() 1560s [00:52:40.684] $ ...future.elements_ii :List of 2 1560s [00:52:40.684] ..$ :List of 5 1560s [00:52:40.684] .. ..$ : chr "A" 1560s [00:52:40.684] .. ..$ : chr "B" 1560s [00:52:40.684] .. ..$ : chr "C" 1560s [00:52:40.684] .. ..$ : chr "D" 1560s [00:52:40.684] .. ..$ : chr "E" 1560s [00:52:40.684] ..$ :List of 5 1560s [00:52:40.684] .. ..$ : int 5 1560s [00:52:40.684] .. ..$ : int 4 1560s [00:52:40.684] .. ..$ : int 3 1560s [00:52:40.684] .. ..$ : int 2 1560s [00:52:40.684] .. ..$ : int 1 1560s [00:52:40.684] $ ...future.seeds_ii : NULL 1560s [00:52:40.684] $ ...future.globals.maxSize: NULL 1560s [00:52:40.684] - attr(*, "where")=List of 5 1560s [00:52:40.684] ..$ ...future.FUN : 1560s [00:52:40.684] ..$ MoreArgs : 1560s [00:52:40.684] ..$ ...future.elements_ii : 1560s [00:52:40.684] ..$ ...future.seeds_ii : 1560s [00:52:40.684] ..$ ...future.globals.maxSize: 1560s [00:52:40.684] - attr(*, "resolved")= logi FALSE 1560s [00:52:40.684] - attr(*, "total_size")= num 4160 1560s [00:52:40.684] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1560s [00:52:40.684] - attr(*, "already-done")= logi TRUE 1560s [00:52:40.696] - reassign environment for ‘...future.FUN’ 1560s [00:52:40.696] - copied ‘...future.FUN’ to environment 1560s [00:52:40.696] - copied ‘MoreArgs’ to environment 1560s [00:52:40.696] - copied ‘...future.elements_ii’ to environment 1560s [00:52:40.696] - copied ‘...future.seeds_ii’ to environment 1560s [00:52:40.696] - copied ‘...future.globals.maxSize’ to environment 1560s [00:52:40.697] assign_globals() ... done 1560s [00:52:40.697] plan(): Setting new future strategy stack: 1560s [00:52:40.697] List of future strategies: 1560s [00:52:40.697] 1. sequential: 1560s [00:52:40.697] - args: function (..., envir = parent.frame()) 1560s [00:52:40.697] - tweaked: FALSE 1560s [00:52:40.697] - call: NULL 1560s [00:52:40.697] plan(): nbrOfWorkers() = 1 1560s [00:52:40.698] plan(): Setting new future strategy stack: 1560s [00:52:40.698] List of future strategies: 1560s [00:52:40.698] 1. sequential: 1560s [00:52:40.698] - args: function (..., envir = parent.frame()) 1560s [00:52:40.698] - tweaked: FALSE 1560s [00:52:40.698] - call: plan(strategy) 1560s [00:52:40.699] plan(): nbrOfWorkers() = 1 1560s [00:52:40.699] SequentialFuture started (and completed) 1560s [00:52:40.699] - Launch lazy future ... done 1560s [00:52:40.699] run() for ‘SequentialFuture’ ... done 1560s [00:52:40.700] Created future: 1560s [00:52:40.700] SequentialFuture: 1560s [00:52:40.700] Label: ‘future_.mapply-1’ 1560s [00:52:40.700] Expression: 1560s [00:52:40.700] { 1560s [00:52:40.700] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1560s [00:52:40.700] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1560s [00:52:40.700] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1560s [00:52:40.700] on.exit(options(oopts), add = TRUE) 1560s [00:52:40.700] } 1560s [00:52:40.700] { 1560s [00:52:40.700] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1560s [00:52:40.700] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1560s [00:52:40.700] do.call(mapply, args = args) 1560s [00:52:40.700] } 1560s [00:52:40.700] } 1560s [00:52:40.700] Lazy evaluation: FALSE 1560s [00:52:40.700] Asynchronous evaluation: FALSE 1560s [00:52:40.700] Local evaluation: TRUE 1560s [00:52:40.700] Environment: R_GlobalEnv 1560s [00:52:40.700] Capture standard output: TRUE 1560s [00:52:40.700] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1560s [00:52:40.700] Globals: 5 objects totaling 4.06 KiB (function ‘...future.FUN’ of 3.24 KiB, list ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 840 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1560s [00:52:40.700] Packages: 1560s [00:52:40.700] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1560s [00:52:40.700] Resolved: TRUE 1560s [00:52:40.700] Value: 560 bytes of class ‘list’ 1560s [00:52:40.700] Early signaling: FALSE 1560s [00:52:40.700] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1560s [00:52:40.700] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1560s [00:52:40.701] Chunk #1 of 1 ... DONE 1560s [00:52:40.701] Launching 1 futures (chunks) ... DONE 1560s [00:52:40.702] Resolving 1 futures (chunks) ... 1560s [00:52:40.702] resolve() on list ... 1560s [00:52:40.702] recursive: 0 1560s [00:52:40.702] length: 1 1560s [00:52:40.702] 1560s [00:52:40.703] resolved() for ‘SequentialFuture’ ... 1560s [00:52:40.703] - state: ‘finished’ 1560s [00:52:40.703] - run: TRUE 1560s [00:52:40.703] - result: ‘FutureResult’ 1560s [00:52:40.703] resolved() for ‘SequentialFuture’ ... done 1560s [00:52:40.703] Future #1 1560s [00:52:40.704] signalConditionsASAP(SequentialFuture, pos=1) ... 1560s [00:52:40.704] - nx: 1 1560s [00:52:40.704] - relay: TRUE 1560s [00:52:40.704] - stdout: TRUE 1560s [00:52:40.704] - signal: TRUE 1560s [00:52:40.704] - resignal: FALSE 1560s [00:52:40.704] - force: TRUE 1560s [00:52:40.705] - relayed: [n=1] FALSE 1560s [00:52:40.705] - queued futures: [n=1] FALSE 1560s [00:52:40.705] - until=1 1560s [00:52:40.705] - relaying element #1 1560s [00:52:40.705] - relayed: [n=1] TRUE 1560s [00:52:40.706] - queued futures: [n=1] TRUE 1560s [00:52:40.706] signalConditionsASAP(SequentialFuture, pos=1) ... done 1560s [00:52:40.706] length: 0 (resolved future 1) 1560s [00:52:40.706] Relaying remaining futures 1560s [00:52:40.706] signalConditionsASAP(NULL, pos=0) ... 1560s [00:52:40.706] - nx: 1 1560s [00:52:40.706] - relay: TRUE 1560s [00:52:40.707] - stdout: TRUE 1560s [00:52:40.707] - signal: TRUE 1560s [00:52:40.707] - resignal: FALSE 1560s [00:52:40.707] - force: TRUE 1560s [00:52:40.707] - relayed: [n=1] TRUE 1560s [00:52:40.707] - queued futures: [n=1] TRUE 1560s - flush all 1560s [00:52:40.707] - relayed: [n=1] TRUE 1560s [00:52:40.708] - queued futures: [n=1] TRUE 1560s [00:52:40.708] signalConditionsASAP(NULL, pos=0) ... done 1560s [00:52:40.708] resolve() on list ... DONE 1560s [00:52:40.708] - Number of value chunks collected: 1 1560s [00:52:40.708] Resolving 1 futures (chunks) ... DONE 1560s [00:52:40.708] Reducing values from 1 chunks ... 1560s [00:52:40.708] - Number of values collected after concatenation: 5 1560s [00:52:40.709] - Number of values expected: 5 1560s [00:52:40.709] Reducing values from 1 chunks ... DONE 1560s [00:52:40.709] future_mapply() ... DONE 1560s [00:52:40.709] future_mapply() ... 1560s [00:52:40.710] Number of chunks: 3 1560s [00:52:40.710] Index remapping (attribute 'ordering'): [n = 5] 4, 1, 2, 3, 5 1560s [00:52:40.710] getGlobalsAndPackagesXApply() ... 1560s [00:52:40.711] - future.globals: TRUE 1560s [00:52:40.711] getGlobalsAndPackages() ... 1560s [00:52:40.711] Searching for globals... 1560s [00:52:40.713] - globals found: [3] ‘FUN’, ‘paste’, ‘rep.int’ 1560s [00:52:40.713] Searching for globals ... DONE 1560s [00:52:40.713] Resolving globals: FALSE 1560s [00:52:40.714] The total size of the 1 globals is 3.24 KiB (3320 bytes) 1560s [00:52:40.714] The total size of the 1 globals exported for future expression (‘FUN()’) is 3.24 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (3.24 KiB of class ‘function’) 1560s [00:52:40.715] - globals: [1] ‘FUN’ 1560s [00:52:40.715] 1560s [00:52:40.715] getGlobalsAndPackages() ... DONE 1560s [00:52:40.715] - globals found/used: [n=1] ‘FUN’ 1560s [00:52:40.715] - needed namespaces: [n=0] 1560s [00:52:40.715] Finding globals ... DONE 1560s [00:52:40.715] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1560s [00:52:40.716] List of 2 1560s [00:52:40.716] $ ...future.FUN:function (C, k) 1560s [00:52:40.716] $ MoreArgs : NULL 1560s [00:52:40.716] - attr(*, "where")=List of 2 1560s [00:52:40.716] ..$ ...future.FUN: 1560s [00:52:40.716] ..$ MoreArgs : 1560s [00:52:40.716] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1560s [00:52:40.716] - attr(*, "resolved")= logi FALSE 1560s [00:52:40.716] - attr(*, "total_size")= num NA 1560s [00:52:40.719] Packages to be attached in all futures: [n=0] 1560s [00:52:40.719] getGlobalsAndPackagesXApply() ... DONE 1560s [00:52:40.719] Number of futures (= number of chunks): 3 1560s [00:52:40.719] Launching 3 futures (chunks) ... 1560s [00:52:40.721] Chunk #1 of 3 ... 1560s [00:52:40.721] - Finding globals in '...' for chunk #1 ... 1560s [00:52:40.721] getGlobalsAndPackages() ... 1560s [00:52:40.722] Searching for globals... 1560s [00:52:40.722] 1560s [00:52:40.723] Searching for globals ... DONE 1560s [00:52:40.723] - globals: [0] 1560s [00:52:40.723] getGlobalsAndPackages() ... DONE 1560s [00:52:40.723] + additional globals found: [n=0] 1560s [00:52:40.723] + additional namespaces needed: [n=0] 1560s [00:52:40.724] - Finding globals in '...' for chunk #1 ... DONE 1560s [00:52:40.724] - Adjusted option 'future.globals.maxSize': 524288000 -> 3 * 524288000 = 1572864000 (bytes) 1560s [00:52:40.724] - seeds: 1560s [00:52:40.724] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.725] getGlobalsAndPackages() ... 1560s [00:52:40.725] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.725] Resolving globals: FALSE 1560s [00:52:40.726] The total size of the 5 globals is 3.57 KiB (3656 bytes) 1560s [00:52:40.726] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 3.57 KiB.. This exceeds the maximum allowed size of 1.46 GiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (3.24 KiB of class ‘function’), ‘...future.elements_ii’ (336 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1560s [00:52:40.727] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.727] 1560s [00:52:40.727] getGlobalsAndPackages() ... DONE 1560s [00:52:40.728] run() for ‘Future’ ... 1560s [00:52:40.728] - state: ‘created’ 1560s [00:52:40.728] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1560s [00:52:40.728] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1560s [00:52:40.728] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1560s [00:52:40.729] - Field: ‘label’ 1560s [00:52:40.729] - Field: ‘local’ 1560s [00:52:40.729] - Field: ‘owner’ 1560s [00:52:40.729] - Field: ‘envir’ 1560s [00:52:40.729] - Field: ‘packages’ 1560s [00:52:40.729] - Field: ‘gc’ 1560s [00:52:40.729] - Field: ‘conditions’ 1560s [00:52:40.730] - Field: ‘expr’ 1560s [00:52:40.730] - Field: ‘uuid’ 1560s [00:52:40.730] - Field: ‘seed’ 1560s [00:52:40.730] - Field: ‘version’ 1560s [00:52:40.730] - Field: ‘result’ 1560s [00:52:40.730] - Field: ‘asynchronous’ 1560s [00:52:40.731] - Field: ‘calls’ 1560s [00:52:40.731] - Field: ‘globals’ 1560s [00:52:40.731] - Field: ‘stdout’ 1560s [00:52:40.731] - Field: ‘earlySignal’ 1560s [00:52:40.731] - Field: ‘lazy’ 1560s [00:52:40.732] - Field: ‘state’ 1560s [00:52:40.732] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1560s [00:52:40.732] - Launch lazy future ... 1560s [00:52:40.732] Packages needed by the future expression (n = 0): 1560s [00:52:40.732] Packages needed by future strategies (n = 0): 1560s [00:52:40.733] { 1560s [00:52:40.733] { 1560s [00:52:40.733] { 1560s [00:52:40.733] ...future.startTime <- base::Sys.time() 1560s [00:52:40.733] { 1560s [00:52:40.733] { 1560s [00:52:40.733] { 1560s [00:52:40.733] base::local({ 1560s [00:52:40.733] has_future <- base::requireNamespace("future", 1560s [00:52:40.733] quietly = TRUE) 1560s [00:52:40.733] if (has_future) { 1560s [00:52:40.733] ns <- base::getNamespace("future") 1560s [00:52:40.733] version <- ns[[".package"]][["version"]] 1560s [00:52:40.733] if (is.null(version)) 1560s [00:52:40.733] version <- utils::packageVersion("future") 1560s [00:52:40.733] } 1560s [00:52:40.733] else { 1560s [00:52:40.733] version <- NULL 1560s [00:52:40.733] } 1560s [00:52:40.733] if (!has_future || version < "1.8.0") { 1560s [00:52:40.733] info <- base::c(r_version = base::gsub("R version ", 1560s [00:52:40.733] "", base::R.version$version.string), 1560s [00:52:40.733] platform = base::sprintf("%s (%s-bit)", 1560s [00:52:40.733] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1560s [00:52:40.733] os = base::paste(base::Sys.info()[base::c("sysname", 1560s [00:52:40.733] "release", "version")], collapse = " "), 1560s [00:52:40.733] hostname = base::Sys.info()[["nodename"]]) 1560s [00:52:40.733] info <- base::sprintf("%s: %s", base::names(info), 1560s [00:52:40.733] info) 1560s [00:52:40.733] info <- base::paste(info, collapse = "; ") 1560s [00:52:40.733] if (!has_future) { 1560s [00:52:40.733] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1560s [00:52:40.733] info) 1560s [00:52:40.733] } 1560s [00:52:40.733] else { 1560s [00:52:40.733] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1560s [00:52:40.733] info, version) 1560s [00:52:40.733] } 1560s [00:52:40.733] base::stop(msg) 1560s [00:52:40.733] } 1560s [00:52:40.733] }) 1560s [00:52:40.733] } 1560s [00:52:40.733] options(future.plan = NULL) 1560s [00:52:40.733] Sys.unsetenv("R_FUTURE_PLAN") 1560s [00:52:40.733] future::plan("default", .cleanup = FALSE, .init = FALSE) 1560s [00:52:40.733] } 1560s [00:52:40.733] ...future.workdir <- getwd() 1560s [00:52:40.733] } 1560s [00:52:40.733] ...future.oldOptions <- base::as.list(base::.Options) 1560s [00:52:40.733] ...future.oldEnvVars <- base::Sys.getenv() 1560s [00:52:40.733] } 1560s [00:52:40.733] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1560s [00:52:40.733] future.globals.maxSize = 1572864000, future.globals.method = NULL, 1560s [00:52:40.733] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1560s [00:52:40.733] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1560s [00:52:40.733] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1560s [00:52:40.733] future.stdout.windows.reencode = NULL, width = 80L) 1560s [00:52:40.733] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1560s [00:52:40.733] base::names(...future.oldOptions)) 1560s [00:52:40.733] } 1560s [00:52:40.733] if (FALSE) { 1560s [00:52:40.733] } 1560s [00:52:40.733] else { 1560s [00:52:40.733] if (TRUE) { 1560s [00:52:40.733] ...future.stdout <- base::rawConnection(base::raw(0L), 1560s [00:52:40.733] open = "w") 1560s [00:52:40.733] } 1560s [00:52:40.733] else { 1560s [00:52:40.733] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1560s [00:52:40.733] windows = "NUL", "/dev/null"), open = "w") 1560s [00:52:40.733] } 1560s [00:52:40.733] base::sink(...future.stdout, type = "output", split = FALSE) 1560s [00:52:40.733] base::on.exit(if (!base::is.null(...future.stdout)) { 1560s [00:52:40.733] base::sink(type = "output", split = FALSE) 1560s [00:52:40.733] base::close(...future.stdout) 1560s [00:52:40.733] }, add = TRUE) 1560s [00:52:40.733] } 1560s [00:52:40.733] ...future.frame <- base::sys.nframe() 1560s [00:52:40.733] ...future.conditions <- base::list() 1560s [00:52:40.733] ...future.rng <- base::globalenv()$.Random.seed 1560s [00:52:40.733] if (FALSE) { 1560s [00:52:40.733] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1560s [00:52:40.733] "...future.value", "...future.globalenv.names", ".Random.seed") 1560s [00:52:40.733] } 1560s [00:52:40.733] ...future.result <- base::tryCatch({ 1560s [00:52:40.733] base::withCallingHandlers({ 1560s [00:52:40.733] ...future.value <- base::withVisible(base::local({ 1560s [00:52:40.733] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1560s [00:52:40.733] if (!identical(...future.globals.maxSize.org, 1560s [00:52:40.733] ...future.globals.maxSize)) { 1560s [00:52:40.733] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1560s [00:52:40.733] on.exit(options(oopts), add = TRUE) 1560s [00:52:40.733] } 1560s [00:52:40.733] { 1560s [00:52:40.733] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1560s [00:52:40.733] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1560s [00:52:40.733] USE.NAMES = FALSE) 1560s [00:52:40.733] do.call(mapply, args = args) 1560s [00:52:40.733] } 1560s [00:52:40.733] })) 1560s [00:52:40.733] future::FutureResult(value = ...future.value$value, 1560s [00:52:40.733] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1560s [00:52:40.733] ...future.rng), globalenv = if (FALSE) 1560s [00:52:40.733] list(added = base::setdiff(base::names(base::.GlobalEnv), 1560s [00:52:40.733] ...future.globalenv.names)) 1560s [00:52:40.733] else NULL, started = ...future.startTime, version = "1.8") 1560s [00:52:40.733] }, condition = base::local({ 1560s [00:52:40.733] c <- base::c 1560s [00:52:40.733] inherits <- base::inherits 1560s [00:52:40.733] invokeRestart <- base::invokeRestart 1560s [00:52:40.733] length <- base::length 1560s [00:52:40.733] list <- base::list 1560s [00:52:40.733] seq.int <- base::seq.int 1560s [00:52:40.733] signalCondition <- base::signalCondition 1560s [00:52:40.733] sys.calls <- base::sys.calls 1560s [00:52:40.733] `[[` <- base::`[[` 1560s [00:52:40.733] `+` <- base::`+` 1560s [00:52:40.733] `<<-` <- base::`<<-` 1560s [00:52:40.733] sysCalls <- function(calls = sys.calls(), from = 1L) { 1560s [00:52:40.733] calls[seq.int(from = from + 12L, to = length(calls) - 1560s [00:52:40.733] 3L)] 1560s [00:52:40.733] } 1560s [00:52:40.733] function(cond) { 1560s [00:52:40.733] is_error <- inherits(cond, "error") 1560s [00:52:40.733] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1560s [00:52:40.733] NULL) 1560s [00:52:40.733] if (is_error) { 1560s [00:52:40.733] sessionInformation <- function() { 1560s [00:52:40.733] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1560s [00:52:40.733] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1560s [00:52:40.733] search = base::search(), system = base::Sys.info()) 1560s [00:52:40.733] } 1560s [00:52:40.733] ...future.conditions[[length(...future.conditions) + 1560s [00:52:40.733] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1560s [00:52:40.733] cond$call), session = sessionInformation(), 1560s [00:52:40.733] timestamp = base::Sys.time(), signaled = 0L) 1560s [00:52:40.733] signalCondition(cond) 1560s [00:52:40.733] } 1560s [00:52:40.733] else if (!ignore && TRUE && inherits(cond, c("condition", 1560s [00:52:40.733] "immediateCondition"))) { 1560s [00:52:40.733] signal <- TRUE && inherits(cond, "immediateCondition") 1560s [00:52:40.733] ...future.conditions[[length(...future.conditions) + 1560s [00:52:40.733] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1560s [00:52:40.733] if (TRUE && !signal) { 1560s [00:52:40.733] muffleCondition <- function (cond, pattern = "^muffle") 1560s [00:52:40.733] { 1560s [00:52:40.733] inherits <- base::inherits 1560s [00:52:40.733] invokeRestart <- base::invokeRestart 1560s [00:52:40.733] is.null <- base::is.null 1560s [00:52:40.733] muffled <- FALSE 1560s [00:52:40.733] if (inherits(cond, "message")) { 1560s [00:52:40.733] muffled <- grepl(pattern, "muffleMessage") 1560s [00:52:40.733] if (muffled) 1560s [00:52:40.733] invokeRestart("muffleMessage") 1560s [00:52:40.733] } 1560s [00:52:40.733] else if (inherits(cond, "warning")) { 1560s [00:52:40.733] muffled <- grepl(pattern, "muffleWarning") 1560s [00:52:40.733] if (muffled) 1560s [00:52:40.733] invokeRestart("muffleWarning") 1560s [00:52:40.733] } 1560s [00:52:40.733] else if (inherits(cond, "condition")) { 1560s [00:52:40.733] if (!is.null(pattern)) { 1560s [00:52:40.733] computeRestarts <- base::computeRestarts 1560s [00:52:40.733] grepl <- base::grepl 1560s [00:52:40.733] restarts <- computeRestarts(cond) 1560s [00:52:40.733] for (restart in restarts) { 1560s [00:52:40.733] name <- restart$name 1560s [00:52:40.733] if (is.null(name)) 1560s [00:52:40.733] next 1560s [00:52:40.733] if (!grepl(pattern, name)) 1560s [00:52:40.733] next 1560s [00:52:40.733] invokeRestart(restart) 1560s [00:52:40.733] muffled <- TRUE 1560s [00:52:40.733] break 1560s [00:52:40.733] } 1560s [00:52:40.733] } 1560s [00:52:40.733] } 1560s [00:52:40.733] invisible(muffled) 1560s [00:52:40.733] } 1560s [00:52:40.733] muffleCondition(cond, pattern = "^muffle") 1560s [00:52:40.733] } 1560s [00:52:40.733] } 1560s [00:52:40.733] else { 1560s [00:52:40.733] if (TRUE) { 1560s [00:52:40.733] muffleCondition <- function (cond, pattern = "^muffle") 1560s [00:52:40.733] { 1560s [00:52:40.733] inherits <- base::inherits 1560s [00:52:40.733] invokeRestart <- base::invokeRestart 1560s [00:52:40.733] is.null <- base::is.null 1560s [00:52:40.733] muffled <- FALSE 1560s [00:52:40.733] if (inherits(cond, "message")) { 1560s [00:52:40.733] muffled <- grepl(pattern, "muffleMessage") 1560s [00:52:40.733] if (muffled) 1560s [00:52:40.733] invokeRestart("muffleMessage") 1560s [00:52:40.733] } 1560s [00:52:40.733] else if (inherits(cond, "warning")) { 1560s [00:52:40.733] muffled <- grepl(pattern, "muffleWarning") 1560s [00:52:40.733] if (muffled) 1560s [00:52:40.733] invokeRestart("muffleWarning") 1560s [00:52:40.733] } 1560s [00:52:40.733] else if (inherits(cond, "condition")) { 1560s [00:52:40.733] if (!is.null(pattern)) { 1560s [00:52:40.733] computeRestarts <- base::computeRestarts 1560s [00:52:40.733] grepl <- base::grepl 1560s [00:52:40.733] restarts <- computeRestarts(cond) 1560s [00:52:40.733] for (restart in restarts) { 1560s [00:52:40.733] name <- restart$name 1560s [00:52:40.733] if (is.null(name)) 1560s [00:52:40.733] next 1560s [00:52:40.733] if (!grepl(pattern, name)) 1560s [00:52:40.733] next 1560s [00:52:40.733] invokeRestart(restart) 1560s [00:52:40.733] muffled <- TRUE 1560s [00:52:40.733] break 1560s [00:52:40.733] } 1560s [00:52:40.733] } 1560s [00:52:40.733] } 1560s [00:52:40.733] invisible(muffled) 1560s [00:52:40.733] } 1560s [00:52:40.733] muffleCondition(cond, pattern = "^muffle") 1560s [00:52:40.733] } 1560s [00:52:40.733] } 1560s [00:52:40.733] } 1560s [00:52:40.733] })) 1560s [00:52:40.733] }, error = function(ex) { 1560s [00:52:40.733] base::structure(base::list(value = NULL, visible = NULL, 1560s [00:52:40.733] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1560s [00:52:40.733] ...future.rng), started = ...future.startTime, 1560s [00:52:40.733] finished = Sys.time(), session_uuid = NA_character_, 1560s [00:52:40.733] version = "1.8"), class = "FutureResult") 1560s [00:52:40.733] }, finally = { 1560s [00:52:40.733] if (!identical(...future.workdir, getwd())) 1560s [00:52:40.733] setwd(...future.workdir) 1560s [00:52:40.733] { 1560s [00:52:40.733] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1560s [00:52:40.733] ...future.oldOptions$nwarnings <- NULL 1560s [00:52:40.733] } 1560s [00:52:40.733] base::options(...future.oldOptions) 1560s [00:52:40.733] if (.Platform$OS.type == "windows") { 1560s [00:52:40.733] old_names <- names(...future.oldEnvVars) 1560s [00:52:40.733] envs <- base::Sys.getenv() 1560s [00:52:40.733] names <- names(envs) 1560s [00:52:40.733] common <- intersect(names, old_names) 1560s [00:52:40.733] added <- setdiff(names, old_names) 1560s [00:52:40.733] removed <- setdiff(old_names, names) 1560s [00:52:40.733] changed <- common[...future.oldEnvVars[common] != 1560s [00:52:40.733] envs[common]] 1560s [00:52:40.733] NAMES <- toupper(changed) 1560s [00:52:40.733] args <- list() 1560s [00:52:40.733] for (kk in seq_along(NAMES)) { 1560s [00:52:40.733] name <- changed[[kk]] 1560s [00:52:40.733] NAME <- NAMES[[kk]] 1560s [00:52:40.733] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.733] next 1560s [00:52:40.733] args[[name]] <- ...future.oldEnvVars[[name]] 1560s [00:52:40.733] } 1560s [00:52:40.733] NAMES <- toupper(added) 1560s [00:52:40.733] for (kk in seq_along(NAMES)) { 1560s [00:52:40.733] name <- added[[kk]] 1560s [00:52:40.733] NAME <- NAMES[[kk]] 1560s [00:52:40.733] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.733] next 1560s [00:52:40.733] args[[name]] <- "" 1560s [00:52:40.733] } 1560s [00:52:40.733] NAMES <- toupper(removed) 1560s [00:52:40.733] for (kk in seq_along(NAMES)) { 1560s [00:52:40.733] name <- removed[[kk]] 1560s [00:52:40.733] NAME <- NAMES[[kk]] 1560s [00:52:40.733] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.733] next 1560s [00:52:40.733] args[[name]] <- ...future.oldEnvVars[[name]] 1560s [00:52:40.733] } 1560s [00:52:40.733] if (length(args) > 0) 1560s [00:52:40.733] base::do.call(base::Sys.setenv, args = args) 1560s [00:52:40.733] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1560s [00:52:40.733] } 1560s [00:52:40.733] else { 1560s [00:52:40.733] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1560s [00:52:40.733] } 1560s [00:52:40.733] { 1560s [00:52:40.733] if (base::length(...future.futureOptionsAdded) > 1560s [00:52:40.733] 0L) { 1560s [00:52:40.733] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1560s [00:52:40.733] base::names(opts) <- ...future.futureOptionsAdded 1560s [00:52:40.733] base::options(opts) 1560s [00:52:40.733] } 1560s [00:52:40.733] { 1560s [00:52:40.733] { 1560s [00:52:40.733] base::assign(".Random.seed", c(10407L, -1319993016L, 1560s [00:52:40.733] 1571290074L, -859112415L, -853775137L, 1440155893L, 1560s [00:52:40.733] -732328588L), envir = base::globalenv(), 1560s [00:52:40.733] inherits = FALSE) 1560s [00:52:40.733] NULL 1560s [00:52:40.733] } 1560s [00:52:40.733] options(future.plan = NULL) 1560s [00:52:40.733] if (is.na(NA_character_)) 1560s [00:52:40.733] Sys.unsetenv("R_FUTURE_PLAN") 1560s [00:52:40.733] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1560s [00:52:40.733] future::plan(list(function (..., envir = parent.frame()) 1560s [00:52:40.733] { 1560s [00:52:40.733] future <- SequentialFuture(..., envir = envir) 1560s [00:52:40.733] if (!future$lazy) 1560s [00:52:40.733] future <- run(future) 1560s [00:52:40.733] invisible(future) 1560s [00:52:40.733] }), .cleanup = FALSE, .init = FALSE) 1560s [00:52:40.733] } 1560s [00:52:40.733] } 1560s [00:52:40.733] } 1560s [00:52:40.733] }) 1560s [00:52:40.733] if (TRUE) { 1560s [00:52:40.733] base::sink(type = "output", split = FALSE) 1560s [00:52:40.733] if (TRUE) { 1560s [00:52:40.733] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1560s [00:52:40.733] } 1560s [00:52:40.733] else { 1560s [00:52:40.733] ...future.result["stdout"] <- base::list(NULL) 1560s [00:52:40.733] } 1560s [00:52:40.733] base::close(...future.stdout) 1560s [00:52:40.733] ...future.stdout <- NULL 1560s [00:52:40.733] } 1560s [00:52:40.733] ...future.result$conditions <- ...future.conditions 1560s [00:52:40.733] ...future.result$finished <- base::Sys.time() 1560s [00:52:40.733] ...future.result 1560s [00:52:40.733] } 1560s [00:52:40.736] assign_globals() ... 1560s [00:52:40.736] List of 5 1560s [00:52:40.736] $ ...future.FUN :function (C, k) 1560s [00:52:40.736] $ MoreArgs : NULL 1560s [00:52:40.736] $ ...future.elements_ii :List of 2 1560s [00:52:40.736] ..$ :List of 2 1560s [00:52:40.736] .. ..$ : chr "D" 1560s [00:52:40.736] .. ..$ : chr "A" 1560s [00:52:40.736] ..$ :List of 2 1560s [00:52:40.736] .. ..$ : int 2 1560s [00:52:40.736] .. ..$ : int 5 1560s [00:52:40.736] $ ...future.seeds_ii : NULL 1560s [00:52:40.736] $ ...future.globals.maxSize: NULL 1560s [00:52:40.736] - attr(*, "where")=List of 5 1560s [00:52:40.736] ..$ ...future.FUN : 1560s [00:52:40.736] ..$ MoreArgs : 1560s [00:52:40.736] ..$ ...future.elements_ii : 1560s [00:52:40.736] ..$ ...future.seeds_ii : 1560s [00:52:40.736] ..$ ...future.globals.maxSize: 1560s [00:52:40.736] - attr(*, "resolved")= logi FALSE 1560s [00:52:40.736] - attr(*, "total_size")= num 3656 1560s [00:52:40.736] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1560s [00:52:40.736] - attr(*, "already-done")= logi TRUE 1560s [00:52:40.743] - reassign environment for ‘...future.FUN’ 1560s [00:52:40.743] - copied ‘...future.FUN’ to environment 1560s [00:52:40.743] - copied ‘MoreArgs’ to environment 1560s [00:52:40.743] - copied ‘...future.elements_ii’ to environment 1560s [00:52:40.743] - copied ‘...future.seeds_ii’ to environment 1560s [00:52:40.744] - copied ‘...future.globals.maxSize’ to environment 1560s [00:52:40.744] assign_globals() ... done 1560s [00:52:40.744] plan(): Setting new future strategy stack: 1560s [00:52:40.744] List of future strategies: 1560s [00:52:40.744] 1. sequential: 1560s [00:52:40.744] - args: function (..., envir = parent.frame()) 1560s [00:52:40.744] - tweaked: FALSE 1560s [00:52:40.744] - call: NULL 1560s [00:52:40.744] plan(): nbrOfWorkers() = 1 1560s [00:52:40.745] plan(): Setting new future strategy stack: 1560s [00:52:40.745] List of future strategies: 1560s [00:52:40.745] 1. sequential: 1560s [00:52:40.745] - args: function (..., envir = parent.frame()) 1560s [00:52:40.745] - tweaked: FALSE 1560s [00:52:40.745] - call: plan(strategy) 1560s [00:52:40.746] plan(): nbrOfWorkers() = 1 1560s [00:52:40.746] SequentialFuture started (and completed) 1560s [00:52:40.746] - Launch lazy future ... done 1560s [00:52:40.746] run() for ‘SequentialFuture’ ... done 1560s [00:52:40.746] Created future: 1560s [00:52:40.746] SequentialFuture: 1560s [00:52:40.746] Label: ‘future_mapply-1’ 1560s [00:52:40.746] Expression: 1560s [00:52:40.746] { 1560s [00:52:40.746] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1560s [00:52:40.746] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1560s [00:52:40.746] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1560s [00:52:40.746] on.exit(options(oopts), add = TRUE) 1560s [00:52:40.746] } 1560s [00:52:40.746] { 1560s [00:52:40.746] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1560s [00:52:40.746] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1560s [00:52:40.746] do.call(mapply, args = args) 1560s [00:52:40.746] } 1560s [00:52:40.746] } 1560s [00:52:40.746] Lazy evaluation: FALSE 1560s [00:52:40.746] Asynchronous evaluation: FALSE 1560s [00:52:40.746] Local evaluation: TRUE 1560s [00:52:40.746] Environment: R_GlobalEnv 1560s [00:52:40.746] Capture standard output: TRUE 1560s [00:52:40.746] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1560s [00:52:40.746] Globals: 5 objects totaling 3.57 KiB (function ‘...future.FUN’ of 3.24 KiB, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1560s [00:52:40.746] Packages: 1560s [00:52:40.746] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1560s [00:52:40.746] Resolved: TRUE 1560s [00:52:40.746] Value: 224 bytes of class ‘list’ 1560s [00:52:40.746] Early signaling: FALSE 1560s [00:52:40.746] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1560s [00:52:40.746] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1560s [00:52:40.748] Chunk #1 of 3 ... DONE 1560s [00:52:40.748] Chunk #2 of 3 ... 1560s [00:52:40.748] - Finding globals in '...' for chunk #2 ... 1560s [00:52:40.748] getGlobalsAndPackages() ... 1560s [00:52:40.748] Searching for globals... 1560s [00:52:40.748] 1560s [00:52:40.748] Searching for globals ... DONE 1560s [00:52:40.749] - globals: [0] 1560s [00:52:40.749] getGlobalsAndPackages() ... DONE 1560s [00:52:40.749] + additional globals found: [n=0] 1560s [00:52:40.749] + additional namespaces needed: [n=0] 1560s [00:52:40.749] - Finding globals in '...' for chunk #2 ... DONE 1560s [00:52:40.749] - Adjusted option 'future.globals.maxSize': 524288000 -> 3 * 524288000 = 1572864000 (bytes) 1560s [00:52:40.749] - seeds: 1560s [00:52:40.749] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.749] getGlobalsAndPackages() ... 1560s [00:52:40.750] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.750] Resolving globals: FALSE 1560s [00:52:40.750] The total size of the 5 globals is 3.41 KiB (3488 bytes) 1560s [00:52:40.751] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 3.41 KiB.. This exceeds the maximum allowed size of 1.46 GiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (3.24 KiB of class ‘function’), ‘...future.elements_ii’ (168 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1560s [00:52:40.752] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.752] 1560s [00:52:40.752] getGlobalsAndPackages() ... DONE 1560s [00:52:40.753] run() for ‘Future’ ... 1560s [00:52:40.753] - state: ‘created’ 1560s [00:52:40.753] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1560s [00:52:40.754] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1560s [00:52:40.754] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1560s [00:52:40.754] - Field: ‘label’ 1560s [00:52:40.754] - Field: ‘local’ 1560s [00:52:40.755] - Field: ‘owner’ 1560s [00:52:40.755] - Field: ‘envir’ 1560s [00:52:40.755] - Field: ‘packages’ 1560s [00:52:40.755] - Field: ‘gc’ 1560s [00:52:40.755] - Field: ‘conditions’ 1560s [00:52:40.755] - Field: ‘expr’ 1560s [00:52:40.755] - Field: ‘uuid’ 1560s [00:52:40.756] - Field: ‘seed’ 1560s [00:52:40.756] - Field: ‘version’ 1560s [00:52:40.756] - Field: ‘result’ 1560s [00:52:40.756] - Field: ‘asynchronous’ 1560s [00:52:40.756] - Field: ‘calls’ 1560s [00:52:40.756] - Field: ‘globals’ 1560s [00:52:40.756] - Field: ‘stdout’ 1560s [00:52:40.757] - Field: ‘earlySignal’ 1560s [00:52:40.757] - Field: ‘lazy’ 1560s [00:52:40.757] - Field: ‘state’ 1560s [00:52:40.757] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1560s [00:52:40.757] - Launch lazy future ... 1560s [00:52:40.759] Packages needed by the future expression (n = 0): 1560s [00:52:40.759] Packages needed by future strategies (n = 0): 1560s [00:52:40.760] { 1560s [00:52:40.760] { 1560s [00:52:40.760] { 1560s [00:52:40.760] ...future.startTime <- base::Sys.time() 1560s [00:52:40.760] { 1560s [00:52:40.760] { 1560s [00:52:40.760] { 1560s [00:52:40.760] base::local({ 1560s [00:52:40.760] has_future <- base::requireNamespace("future", 1560s [00:52:40.760] quietly = TRUE) 1560s [00:52:40.760] if (has_future) { 1560s [00:52:40.760] ns <- base::getNamespace("future") 1560s [00:52:40.760] version <- ns[[".package"]][["version"]] 1560s [00:52:40.760] if (is.null(version)) 1560s [00:52:40.760] version <- utils::packageVersion("future") 1560s [00:52:40.760] } 1560s [00:52:40.760] else { 1560s [00:52:40.760] version <- NULL 1560s [00:52:40.760] } 1560s [00:52:40.760] if (!has_future || version < "1.8.0") { 1560s [00:52:40.760] info <- base::c(r_version = base::gsub("R version ", 1560s [00:52:40.760] "", base::R.version$version.string), 1560s [00:52:40.760] platform = base::sprintf("%s (%s-bit)", 1560s [00:52:40.760] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1560s [00:52:40.760] os = base::paste(base::Sys.info()[base::c("sysname", 1560s [00:52:40.760] "release", "version")], collapse = " "), 1560s [00:52:40.760] hostname = base::Sys.info()[["nodename"]]) 1560s [00:52:40.760] info <- base::sprintf("%s: %s", base::names(info), 1560s [00:52:40.760] info) 1560s [00:52:40.760] info <- base::paste(info, collapse = "; ") 1560s [00:52:40.760] if (!has_future) { 1560s [00:52:40.760] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1560s [00:52:40.760] info) 1560s [00:52:40.760] } 1560s [00:52:40.760] else { 1560s [00:52:40.760] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1560s [00:52:40.760] info, version) 1560s [00:52:40.760] } 1560s [00:52:40.760] base::stop(msg) 1560s [00:52:40.760] } 1560s [00:52:40.760] }) 1560s [00:52:40.760] } 1560s [00:52:40.760] options(future.plan = NULL) 1560s [00:52:40.760] Sys.unsetenv("R_FUTURE_PLAN") 1560s [00:52:40.760] future::plan("default", .cleanup = FALSE, .init = FALSE) 1560s [00:52:40.760] } 1560s [00:52:40.760] ...future.workdir <- getwd() 1560s [00:52:40.760] } 1560s [00:52:40.760] ...future.oldOptions <- base::as.list(base::.Options) 1560s [00:52:40.760] ...future.oldEnvVars <- base::Sys.getenv() 1560s [00:52:40.760] } 1560s [00:52:40.760] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1560s [00:52:40.760] future.globals.maxSize = 1572864000, future.globals.method = NULL, 1560s [00:52:40.760] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1560s [00:52:40.760] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1560s [00:52:40.760] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1560s [00:52:40.760] future.stdout.windows.reencode = NULL, width = 80L) 1560s [00:52:40.760] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1560s [00:52:40.760] base::names(...future.oldOptions)) 1560s [00:52:40.760] } 1560s [00:52:40.760] if (FALSE) { 1560s [00:52:40.760] } 1560s [00:52:40.760] else { 1560s [00:52:40.760] if (TRUE) { 1560s [00:52:40.760] ...future.stdout <- base::rawConnection(base::raw(0L), 1560s [00:52:40.760] open = "w") 1560s [00:52:40.760] } 1560s [00:52:40.760] else { 1560s [00:52:40.760] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1560s [00:52:40.760] windows = "NUL", "/dev/null"), open = "w") 1560s [00:52:40.760] } 1560s [00:52:40.760] base::sink(...future.stdout, type = "output", split = FALSE) 1560s [00:52:40.760] base::on.exit(if (!base::is.null(...future.stdout)) { 1560s [00:52:40.760] base::sink(type = "output", split = FALSE) 1560s [00:52:40.760] base::close(...future.stdout) 1560s [00:52:40.760] }, add = TRUE) 1560s [00:52:40.760] } 1560s [00:52:40.760] ...future.frame <- base::sys.nframe() 1560s [00:52:40.760] ...future.conditions <- base::list() 1560s [00:52:40.760] ...future.rng <- base::globalenv()$.Random.seed 1560s [00:52:40.760] if (FALSE) { 1560s [00:52:40.760] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1560s [00:52:40.760] "...future.value", "...future.globalenv.names", ".Random.seed") 1560s [00:52:40.760] } 1560s [00:52:40.760] ...future.result <- base::tryCatch({ 1560s [00:52:40.760] base::withCallingHandlers({ 1560s [00:52:40.760] ...future.value <- base::withVisible(base::local({ 1560s [00:52:40.760] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1560s [00:52:40.760] if (!identical(...future.globals.maxSize.org, 1560s [00:52:40.760] ...future.globals.maxSize)) { 1560s [00:52:40.760] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1560s [00:52:40.760] on.exit(options(oopts), add = TRUE) 1560s [00:52:40.760] } 1560s [00:52:40.760] { 1560s [00:52:40.760] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1560s [00:52:40.760] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1560s [00:52:40.760] USE.NAMES = FALSE) 1560s [00:52:40.760] do.call(mapply, args = args) 1560s [00:52:40.760] } 1560s [00:52:40.760] })) 1560s [00:52:40.760] future::FutureResult(value = ...future.value$value, 1560s [00:52:40.760] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1560s [00:52:40.760] ...future.rng), globalenv = if (FALSE) 1560s [00:52:40.760] list(added = base::setdiff(base::names(base::.GlobalEnv), 1560s [00:52:40.760] ...future.globalenv.names)) 1560s [00:52:40.760] else NULL, started = ...future.startTime, version = "1.8") 1560s [00:52:40.760] }, condition = base::local({ 1560s [00:52:40.760] c <- base::c 1560s [00:52:40.760] inherits <- base::inherits 1560s [00:52:40.760] invokeRestart <- base::invokeRestart 1560s [00:52:40.760] length <- base::length 1560s [00:52:40.760] list <- base::list 1560s [00:52:40.760] seq.int <- base::seq.int 1560s [00:52:40.760] signalCondition <- base::signalCondition 1560s [00:52:40.760] sys.calls <- base::sys.calls 1560s [00:52:40.760] `[[` <- base::`[[` 1560s [00:52:40.760] `+` <- base::`+` 1560s [00:52:40.760] `<<-` <- base::`<<-` 1560s [00:52:40.760] sysCalls <- function(calls = sys.calls(), from = 1L) { 1560s [00:52:40.760] calls[seq.int(from = from + 12L, to = length(calls) - 1560s [00:52:40.760] 3L)] 1560s [00:52:40.760] } 1560s [00:52:40.760] function(cond) { 1560s [00:52:40.760] is_error <- inherits(cond, "error") 1560s [00:52:40.760] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1560s [00:52:40.760] NULL) 1560s [00:52:40.760] if (is_error) { 1560s [00:52:40.760] sessionInformation <- function() { 1560s [00:52:40.760] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1560s [00:52:40.760] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1560s [00:52:40.760] search = base::search(), system = base::Sys.info()) 1560s [00:52:40.760] } 1560s [00:52:40.760] ...future.conditions[[length(...future.conditions) + 1560s [00:52:40.760] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1560s [00:52:40.760] cond$call), session = sessionInformation(), 1560s [00:52:40.760] timestamp = base::Sys.time(), signaled = 0L) 1560s [00:52:40.760] signalCondition(cond) 1560s [00:52:40.760] } 1560s [00:52:40.760] else if (!ignore && TRUE && inherits(cond, c("condition", 1560s [00:52:40.760] "immediateCondition"))) { 1560s [00:52:40.760] signal <- TRUE && inherits(cond, "immediateCondition") 1560s [00:52:40.760] ...future.conditions[[length(...future.conditions) + 1560s [00:52:40.760] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1560s [00:52:40.760] if (TRUE && !signal) { 1560s [00:52:40.760] muffleCondition <- function (cond, pattern = "^muffle") 1560s [00:52:40.760] { 1560s [00:52:40.760] inherits <- base::inherits 1560s [00:52:40.760] invokeRestart <- base::invokeRestart 1560s [00:52:40.760] is.null <- base::is.null 1560s [00:52:40.760] muffled <- FALSE 1560s [00:52:40.760] if (inherits(cond, "message")) { 1560s [00:52:40.760] muffled <- grepl(pattern, "muffleMessage") 1560s [00:52:40.760] if (muffled) 1560s [00:52:40.760] invokeRestart("muffleMessage") 1560s [00:52:40.760] } 1560s [00:52:40.760] else if (inherits(cond, "warning")) { 1560s [00:52:40.760] muffled <- grepl(pattern, "muffleWarning") 1560s [00:52:40.760] if (muffled) 1560s [00:52:40.760] invokeRestart("muffleWarning") 1560s [00:52:40.760] } 1560s [00:52:40.760] else if (inherits(cond, "condition")) { 1560s [00:52:40.760] if (!is.null(pattern)) { 1560s [00:52:40.760] computeRestarts <- base::computeRestarts 1560s [00:52:40.760] grepl <- base::grepl 1560s [00:52:40.760] restarts <- computeRestarts(cond) 1560s [00:52:40.760] for (restart in restarts) { 1560s [00:52:40.760] name <- restart$name 1560s [00:52:40.760] if (is.null(name)) 1560s [00:52:40.760] next 1560s [00:52:40.760] if (!grepl(pattern, name)) 1560s [00:52:40.760] next 1560s [00:52:40.760] invokeRestart(restart) 1560s [00:52:40.760] muffled <- TRUE 1560s [00:52:40.760] break 1560s [00:52:40.760] } 1560s [00:52:40.760] } 1560s [00:52:40.760] } 1560s [00:52:40.760] invisible(muffled) 1560s [00:52:40.760] } 1560s [00:52:40.760] muffleCondition(cond, pattern = "^muffle") 1560s [00:52:40.760] } 1560s [00:52:40.760] } 1560s [00:52:40.760] else { 1560s [00:52:40.760] if (TRUE) { 1560s [00:52:40.760] muffleCondition <- function (cond, pattern = "^muffle") 1560s [00:52:40.760] { 1560s [00:52:40.760] inherits <- base::inherits 1560s [00:52:40.760] invokeRestart <- base::invokeRestart 1560s [00:52:40.760] is.null <- base::is.null 1560s [00:52:40.760] muffled <- FALSE 1560s [00:52:40.760] if (inherits(cond, "message")) { 1560s [00:52:40.760] muffled <- grepl(pattern, "muffleMessage") 1560s [00:52:40.760] if (muffled) 1560s [00:52:40.760] invokeRestart("muffleMessage") 1560s [00:52:40.760] } 1560s [00:52:40.760] else if (inherits(cond, "warning")) { 1560s [00:52:40.760] muffled <- grepl(pattern, "muffleWarning") 1560s [00:52:40.760] if (muffled) 1560s [00:52:40.760] invokeRestart("muffleWarning") 1560s [00:52:40.760] } 1560s [00:52:40.760] else if (inherits(cond, "condition")) { 1560s [00:52:40.760] if (!is.null(pattern)) { 1560s [00:52:40.760] computeRestarts <- base::computeRestarts 1560s [00:52:40.760] grepl <- base::grepl 1560s [00:52:40.760] restarts <- computeRestarts(cond) 1560s [00:52:40.760] for (restart in restarts) { 1560s [00:52:40.760] name <- restart$name 1560s [00:52:40.760] if (is.null(name)) 1560s [00:52:40.760] next 1560s [00:52:40.760] if (!grepl(pattern, name)) 1560s [00:52:40.760] next 1560s [00:52:40.760] invokeRestart(restart) 1560s [00:52:40.760] muffled <- TRUE 1560s [00:52:40.760] break 1560s [00:52:40.760] } 1560s [00:52:40.760] } 1560s [00:52:40.760] } 1560s [00:52:40.760] invisible(muffled) 1560s [00:52:40.760] } 1560s [00:52:40.760] muffleCondition(cond, pattern = "^muffle") 1560s [00:52:40.760] } 1560s [00:52:40.760] } 1560s [00:52:40.760] } 1560s [00:52:40.760] })) 1560s [00:52:40.760] }, error = function(ex) { 1560s [00:52:40.760] base::structure(base::list(value = NULL, visible = NULL, 1560s [00:52:40.760] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1560s [00:52:40.760] ...future.rng), started = ...future.startTime, 1560s [00:52:40.760] finished = Sys.time(), session_uuid = NA_character_, 1560s [00:52:40.760] version = "1.8"), class = "FutureResult") 1560s [00:52:40.760] }, finally = { 1560s [00:52:40.760] if (!identical(...future.workdir, getwd())) 1560s [00:52:40.760] setwd(...future.workdir) 1560s [00:52:40.760] { 1560s [00:52:40.760] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1560s [00:52:40.760] ...future.oldOptions$nwarnings <- NULL 1560s [00:52:40.760] } 1560s [00:52:40.760] base::options(...future.oldOptions) 1560s [00:52:40.760] if (.Platform$OS.type == "windows") { 1560s [00:52:40.760] old_names <- names(...future.oldEnvVars) 1560s [00:52:40.760] envs <- base::Sys.getenv() 1560s [00:52:40.760] names <- names(envs) 1560s [00:52:40.760] common <- intersect(names, old_names) 1560s [00:52:40.760] added <- setdiff(names, old_names) 1560s [00:52:40.760] removed <- setdiff(old_names, names) 1560s [00:52:40.760] changed <- common[...future.oldEnvVars[common] != 1560s [00:52:40.760] envs[common]] 1560s [00:52:40.760] NAMES <- toupper(changed) 1560s [00:52:40.760] args <- list() 1560s [00:52:40.760] for (kk in seq_along(NAMES)) { 1560s [00:52:40.760] name <- changed[[kk]] 1560s [00:52:40.760] NAME <- NAMES[[kk]] 1560s [00:52:40.760] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.760] next 1560s [00:52:40.760] args[[name]] <- ...future.oldEnvVars[[name]] 1560s [00:52:40.760] } 1560s [00:52:40.760] NAMES <- toupper(added) 1560s [00:52:40.760] for (kk in seq_along(NAMES)) { 1560s [00:52:40.760] name <- added[[kk]] 1560s [00:52:40.760] NAME <- NAMES[[kk]] 1560s [00:52:40.760] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.760] next 1560s [00:52:40.760] args[[name]] <- "" 1560s [00:52:40.760] } 1560s [00:52:40.760] NAMES <- toupper(removed) 1560s [00:52:40.760] for (kk in seq_along(NAMES)) { 1560s [00:52:40.760] name <- removed[[kk]] 1560s [00:52:40.760] NAME <- NAMES[[kk]] 1560s [00:52:40.760] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.760] next 1560s [00:52:40.760] args[[name]] <- ...future.oldEnvVars[[name]] 1560s [00:52:40.760] } 1560s [00:52:40.760] if (length(args) > 0) 1560s [00:52:40.760] base::do.call(base::Sys.setenv, args = args) 1560s [00:52:40.760] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1560s [00:52:40.760] } 1560s [00:52:40.760] else { 1560s [00:52:40.760] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1560s [00:52:40.760] } 1560s [00:52:40.760] { 1560s [00:52:40.760] if (base::length(...future.futureOptionsAdded) > 1560s [00:52:40.760] 0L) { 1560s [00:52:40.760] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1560s [00:52:40.760] base::names(opts) <- ...future.futureOptionsAdded 1560s [00:52:40.760] base::options(opts) 1560s [00:52:40.760] } 1560s [00:52:40.760] { 1560s [00:52:40.760] { 1560s [00:52:40.760] base::assign(".Random.seed", c(10407L, -1319993016L, 1560s [00:52:40.760] 1571290074L, -859112415L, -853775137L, 1440155893L, 1560s [00:52:40.760] -732328588L), envir = base::globalenv(), 1560s [00:52:40.760] inherits = FALSE) 1560s [00:52:40.760] NULL 1560s [00:52:40.760] } 1560s [00:52:40.760] options(future.plan = NULL) 1560s [00:52:40.760] if (is.na(NA_character_)) 1560s [00:52:40.760] Sys.unsetenv("R_FUTURE_PLAN") 1560s [00:52:40.760] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1560s [00:52:40.760] future::plan(list(function (..., envir = parent.frame()) 1560s [00:52:40.760] { 1560s [00:52:40.760] future <- SequentialFuture(..., envir = envir) 1560s [00:52:40.760] if (!future$lazy) 1560s [00:52:40.760] future <- run(future) 1560s [00:52:40.760] invisible(future) 1560s [00:52:40.760] }), .cleanup = FALSE, .init = FALSE) 1560s [00:52:40.760] } 1560s [00:52:40.760] } 1560s [00:52:40.760] } 1560s [00:52:40.760] }) 1560s [00:52:40.760] if (TRUE) { 1560s [00:52:40.760] base::sink(type = "output", split = FALSE) 1560s [00:52:40.760] if (TRUE) { 1560s [00:52:40.760] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1560s [00:52:40.760] } 1560s [00:52:40.760] else { 1560s [00:52:40.760] ...future.result["stdout"] <- base::list(NULL) 1560s [00:52:40.760] } 1560s [00:52:40.760] base::close(...future.stdout) 1560s [00:52:40.760] ...future.stdout <- NULL 1560s [00:52:40.760] } 1560s [00:52:40.760] ...future.result$conditions <- ...future.conditions 1560s [00:52:40.760] ...future.result$finished <- base::Sys.time() 1560s [00:52:40.760] ...future.result 1560s [00:52:40.760] } 1560s [00:52:40.767] assign_globals() ... 1560s [00:52:40.767] List of 5 1560s [00:52:40.767] $ ...future.FUN :function (C, k) 1560s [00:52:40.767] $ MoreArgs : NULL 1560s [00:52:40.767] $ ...future.elements_ii :List of 2 1560s [00:52:40.767] ..$ :List of 1 1560s [00:52:40.767] .. ..$ : chr "B" 1560s [00:52:40.767] ..$ :List of 1 1560s [00:52:40.767] .. ..$ : int 4 1560s [00:52:40.767] $ ...future.seeds_ii : NULL 1560s [00:52:40.767] $ ...future.globals.maxSize: NULL 1560s [00:52:40.767] - attr(*, "where")=List of 5 1560s [00:52:40.767] ..$ ...future.FUN : 1560s [00:52:40.767] ..$ MoreArgs : 1560s [00:52:40.767] ..$ ...future.elements_ii : 1560s [00:52:40.767] ..$ ...future.seeds_ii : 1560s [00:52:40.767] ..$ ...future.globals.maxSize: 1560s [00:52:40.767] - attr(*, "resolved")= logi FALSE 1560s [00:52:40.767] - attr(*, "total_size")= num 3488 1560s [00:52:40.767] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1560s [00:52:40.767] - attr(*, "already-done")= logi TRUE 1560s [00:52:40.775] - reassign environment for ‘...future.FUN’ 1560s [00:52:40.775] - copied ‘...future.FUN’ to environment 1560s [00:52:40.775] - copied ‘MoreArgs’ to environment 1560s [00:52:40.775] - copied ‘...future.elements_ii’ to environment 1560s [00:52:40.776] - copied ‘...future.seeds_ii’ to environment 1560s [00:52:40.776] - copied ‘...future.globals.maxSize’ to environment 1560s [00:52:40.776] assign_globals() ... done 1560s [00:52:40.776] plan(): Setting new future strategy stack: 1560s [00:52:40.776] List of future strategies: 1560s [00:52:40.776] 1. sequential: 1560s [00:52:40.776] - args: function (..., envir = parent.frame()) 1560s [00:52:40.776] - tweaked: FALSE 1560s [00:52:40.776] - call: NULL 1560s [00:52:40.777] plan(): nbrOfWorkers() = 1 1560s [00:52:40.778] plan(): Setting new future strategy stack: 1560s [00:52:40.778] List of future strategies: 1560s [00:52:40.778] 1. sequential: 1560s [00:52:40.778] - args: function (..., envir = parent.frame()) 1560s [00:52:40.778] - tweaked: FALSE 1560s [00:52:40.778] - call: plan(strategy) 1560s [00:52:40.778] plan(): nbrOfWorkers() = 1 1560s [00:52:40.779] SequentialFuture started (and completed) 1560s [00:52:40.779] - Launch lazy future ... done 1560s [00:52:40.779] run() for ‘SequentialFuture’ ... done 1560s [00:52:40.779] Created future: 1560s [00:52:40.779] SequentialFuture: 1560s [00:52:40.779] Label: ‘future_mapply-2’ 1560s [00:52:40.779] Expression: 1560s [00:52:40.779] { 1560s [00:52:40.779] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1560s [00:52:40.779] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1560s [00:52:40.779] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1560s [00:52:40.779] on.exit(options(oopts), add = TRUE) 1560s [00:52:40.779] } 1560s [00:52:40.779] { 1560s [00:52:40.779] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1560s [00:52:40.779] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1560s [00:52:40.779] do.call(mapply, args = args) 1560s [00:52:40.779] } 1560s [00:52:40.779] } 1560s [00:52:40.779] Lazy evaluation: FALSE 1560s [00:52:40.779] Asynchronous evaluation: FALSE 1560s [00:52:40.779] Local evaluation: TRUE 1560s [00:52:40.779] Environment: R_GlobalEnv 1560s [00:52:40.779] Capture standard output: TRUE 1560s [00:52:40.779] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1560s [00:52:40.779] Globals: 5 objects totaling 3.41 KiB (function ‘...future.FUN’ of 3.24 KiB, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1560s [00:52:40.779] Packages: 1560s [00:52:40.779] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1560s [00:52:40.779] Resolved: TRUE 1560s [00:52:40.779] Value: 112 bytes of class ‘list’ 1560s [00:52:40.779] Early signaling: FALSE 1560s [00:52:40.779] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1560s [00:52:40.779] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1560s [00:52:40.781] Chunk #2 of 3 ... DONE 1560s [00:52:40.781] Chunk #3 of 3 ... 1560s [00:52:40.781] - Finding globals in '...' for chunk #3 ... 1560s [00:52:40.781] getGlobalsAndPackages() ... 1560s [00:52:40.781] Searching for globals... 1560s [00:52:40.782] 1560s [00:52:40.782] Searching for globals ... DONE 1560s [00:52:40.782] - globals: [0] 1560s [00:52:40.782] getGlobalsAndPackages() ... DONE 1560s [00:52:40.782] + additional globals found: [n=0] 1560s [00:52:40.783] + additional namespaces needed: [n=0] 1560s [00:52:40.783] - Finding globals in '...' for chunk #3 ... DONE 1560s [00:52:40.783] - Adjusted option 'future.globals.maxSize': 524288000 -> 3 * 524288000 = 1572864000 (bytes) 1560s [00:52:40.783] - seeds: 1560s [00:52:40.783] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.783] getGlobalsAndPackages() ... 1560s [00:52:40.783] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.784] Resolving globals: FALSE 1560s [00:52:40.784] The total size of the 5 globals is 3.57 KiB (3656 bytes) 1560s [00:52:40.785] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 3.57 KiB.. This exceeds the maximum allowed size of 1.46 GiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (3.24 KiB of class ‘function’), ‘...future.elements_ii’ (336 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1560s [00:52:40.785] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.785] 1560s [00:52:40.786] getGlobalsAndPackages() ... DONE 1560s [00:52:40.786] run() for ‘Future’ ... 1560s [00:52:40.786] - state: ‘created’ 1560s [00:52:40.786] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1560s [00:52:40.787] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1560s [00:52:40.787] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1560s [00:52:40.787] - Field: ‘label’ 1560s [00:52:40.787] - Field: ‘local’ 1560s [00:52:40.787] - Field: ‘owner’ 1560s [00:52:40.787] - Field: ‘envir’ 1560s [00:52:40.788] - Field: ‘packages’ 1560s [00:52:40.788] - Field: ‘gc’ 1560s [00:52:40.788] - Field: ‘conditions’ 1560s [00:52:40.788] - Field: ‘expr’ 1560s [00:52:40.788] - Field: ‘uuid’ 1560s [00:52:40.788] - Field: ‘seed’ 1560s [00:52:40.788] - Field: ‘version’ 1560s [00:52:40.788] - Field: ‘result’ 1560s [00:52:40.788] - Field: ‘asynchronous’ 1560s [00:52:40.789] - Field: ‘calls’ 1560s [00:52:40.789] - Field: ‘globals’ 1560s [00:52:40.789] - Field: ‘stdout’ 1560s [00:52:40.789] - Field: ‘earlySignal’ 1560s [00:52:40.789] - Field: ‘lazy’ 1560s [00:52:40.789] - Field: ‘state’ 1560s [00:52:40.789] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1560s [00:52:40.789] - Launch lazy future ... 1560s [00:52:40.790] Packages needed by the future expression (n = 0): 1560s [00:52:40.790] Packages needed by future strategies (n = 0): 1560s [00:52:40.791] { 1560s [00:52:40.791] { 1560s [00:52:40.791] { 1560s [00:52:40.791] ...future.startTime <- base::Sys.time() 1560s [00:52:40.791] { 1560s [00:52:40.791] { 1560s [00:52:40.791] { 1560s [00:52:40.791] base::local({ 1560s [00:52:40.791] has_future <- base::requireNamespace("future", 1560s [00:52:40.791] quietly = TRUE) 1560s [00:52:40.791] if (has_future) { 1560s [00:52:40.791] ns <- base::getNamespace("future") 1560s [00:52:40.791] version <- ns[[".package"]][["version"]] 1560s [00:52:40.791] if (is.null(version)) 1560s [00:52:40.791] version <- utils::packageVersion("future") 1560s [00:52:40.791] } 1560s [00:52:40.791] else { 1560s [00:52:40.791] version <- NULL 1560s [00:52:40.791] } 1560s [00:52:40.791] if (!has_future || version < "1.8.0") { 1560s [00:52:40.791] info <- base::c(r_version = base::gsub("R version ", 1560s [00:52:40.791] "", base::R.version$version.string), 1560s [00:52:40.791] platform = base::sprintf("%s (%s-bit)", 1560s [00:52:40.791] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1560s [00:52:40.791] os = base::paste(base::Sys.info()[base::c("sysname", 1560s [00:52:40.791] "release", "version")], collapse = " "), 1560s [00:52:40.791] hostname = base::Sys.info()[["nodename"]]) 1560s [00:52:40.791] info <- base::sprintf("%s: %s", base::names(info), 1560s [00:52:40.791] info) 1560s [00:52:40.791] info <- base::paste(info, collapse = "; ") 1560s [00:52:40.791] if (!has_future) { 1560s [00:52:40.791] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1560s [00:52:40.791] info) 1560s [00:52:40.791] } 1560s [00:52:40.791] else { 1560s [00:52:40.791] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1560s [00:52:40.791] info, version) 1560s [00:52:40.791] } 1560s [00:52:40.791] base::stop(msg) 1560s [00:52:40.791] } 1560s [00:52:40.791] }) 1560s [00:52:40.791] } 1560s [00:52:40.791] options(future.plan = NULL) 1560s [00:52:40.791] Sys.unsetenv("R_FUTURE_PLAN") 1560s [00:52:40.791] future::plan("default", .cleanup = FALSE, .init = FALSE) 1560s [00:52:40.791] } 1560s [00:52:40.791] ...future.workdir <- getwd() 1560s [00:52:40.791] } 1560s [00:52:40.791] ...future.oldOptions <- base::as.list(base::.Options) 1560s [00:52:40.791] ...future.oldEnvVars <- base::Sys.getenv() 1560s [00:52:40.791] } 1560s [00:52:40.791] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1560s [00:52:40.791] future.globals.maxSize = 1572864000, future.globals.method = NULL, 1560s [00:52:40.791] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1560s [00:52:40.791] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1560s [00:52:40.791] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1560s [00:52:40.791] future.stdout.windows.reencode = NULL, width = 80L) 1560s [00:52:40.791] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1560s [00:52:40.791] base::names(...future.oldOptions)) 1560s [00:52:40.791] } 1560s [00:52:40.791] if (FALSE) { 1560s [00:52:40.791] } 1560s [00:52:40.791] else { 1560s [00:52:40.791] if (TRUE) { 1560s [00:52:40.791] ...future.stdout <- base::rawConnection(base::raw(0L), 1560s [00:52:40.791] open = "w") 1560s [00:52:40.791] } 1560s [00:52:40.791] else { 1560s [00:52:40.791] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1560s [00:52:40.791] windows = "NUL", "/dev/null"), open = "w") 1560s [00:52:40.791] } 1560s [00:52:40.791] base::sink(...future.stdout, type = "output", split = FALSE) 1560s [00:52:40.791] base::on.exit(if (!base::is.null(...future.stdout)) { 1560s [00:52:40.791] base::sink(type = "output", split = FALSE) 1560s [00:52:40.791] base::close(...future.stdout) 1560s [00:52:40.791] }, add = TRUE) 1560s [00:52:40.791] } 1560s [00:52:40.791] ...future.frame <- base::sys.nframe() 1560s [00:52:40.791] ...future.conditions <- base::list() 1560s [00:52:40.791] ...future.rng <- base::globalenv()$.Random.seed 1560s [00:52:40.791] if (FALSE) { 1560s [00:52:40.791] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1560s [00:52:40.791] "...future.value", "...future.globalenv.names", ".Random.seed") 1560s [00:52:40.791] } 1560s [00:52:40.791] ...future.result <- base::tryCatch({ 1560s [00:52:40.791] base::withCallingHandlers({ 1560s [00:52:40.791] ...future.value <- base::withVisible(base::local({ 1560s [00:52:40.791] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1560s [00:52:40.791] if (!identical(...future.globals.maxSize.org, 1560s [00:52:40.791] ...future.globals.maxSize)) { 1560s [00:52:40.791] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1560s [00:52:40.791] on.exit(options(oopts), add = TRUE) 1560s [00:52:40.791] } 1560s [00:52:40.791] { 1560s [00:52:40.791] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1560s [00:52:40.791] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1560s [00:52:40.791] USE.NAMES = FALSE) 1560s [00:52:40.791] do.call(mapply, args = args) 1560s [00:52:40.791] } 1560s [00:52:40.791] })) 1560s [00:52:40.791] future::FutureResult(value = ...future.value$value, 1560s [00:52:40.791] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1560s [00:52:40.791] ...future.rng), globalenv = if (FALSE) 1560s [00:52:40.791] list(added = base::setdiff(base::names(base::.GlobalEnv), 1560s [00:52:40.791] ...future.globalenv.names)) 1560s [00:52:40.791] else NULL, started = ...future.startTime, version = "1.8") 1560s [00:52:40.791] }, condition = base::local({ 1560s [00:52:40.791] c <- base::c 1560s [00:52:40.791] inherits <- base::inherits 1560s [00:52:40.791] invokeRestart <- base::invokeRestart 1560s [00:52:40.791] length <- base::length 1560s [00:52:40.791] list <- base::list 1560s [00:52:40.791] seq.int <- base::seq.int 1560s [00:52:40.791] signalCondition <- base::signalCondition 1560s [00:52:40.791] sys.calls <- base::sys.calls 1560s [00:52:40.791] `[[` <- base::`[[` 1560s [00:52:40.791] `+` <- base::`+` 1560s [00:52:40.791] `<<-` <- base::`<<-` 1560s [00:52:40.791] sysCalls <- function(calls = sys.calls(), from = 1L) { 1560s [00:52:40.791] calls[seq.int(from = from + 12L, to = length(calls) - 1560s [00:52:40.791] 3L)] 1560s [00:52:40.791] } 1560s [00:52:40.791] function(cond) { 1560s [00:52:40.791] is_error <- inherits(cond, "error") 1560s [00:52:40.791] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1560s [00:52:40.791] NULL) 1560s [00:52:40.791] if (is_error) { 1560s [00:52:40.791] sessionInformation <- function() { 1560s [00:52:40.791] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1560s [00:52:40.791] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1560s [00:52:40.791] search = base::search(), system = base::Sys.info()) 1560s [00:52:40.791] } 1560s [00:52:40.791] ...future.conditions[[length(...future.conditions) + 1560s [00:52:40.791] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1560s [00:52:40.791] cond$call), session = sessionInformation(), 1560s [00:52:40.791] timestamp = base::Sys.time(), signaled = 0L) 1560s [00:52:40.791] signalCondition(cond) 1560s [00:52:40.791] } 1560s [00:52:40.791] else if (!ignore && TRUE && inherits(cond, c("condition", 1560s [00:52:40.791] "immediateCondition"))) { 1560s [00:52:40.791] signal <- TRUE && inherits(cond, "immediateCondition") 1560s [00:52:40.791] ...future.conditions[[length(...future.conditions) + 1560s [00:52:40.791] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1560s [00:52:40.791] if (TRUE && !signal) { 1560s [00:52:40.791] muffleCondition <- function (cond, pattern = "^muffle") 1560s [00:52:40.791] { 1560s [00:52:40.791] inherits <- base::inherits 1560s [00:52:40.791] invokeRestart <- base::invokeRestart 1560s [00:52:40.791] is.null <- base::is.null 1560s [00:52:40.791] muffled <- FALSE 1560s [00:52:40.791] if (inherits(cond, "message")) { 1560s [00:52:40.791] muffled <- grepl(pattern, "muffleMessage") 1560s [00:52:40.791] if (muffled) 1560s [00:52:40.791] invokeRestart("muffleMessage") 1560s [00:52:40.791] } 1560s [00:52:40.791] else if (inherits(cond, "warning")) { 1560s [00:52:40.791] muffled <- grepl(pattern, "muffleWarning") 1560s [00:52:40.791] if (muffled) 1560s [00:52:40.791] invokeRestart("muffleWarning") 1560s [00:52:40.791] } 1560s [00:52:40.791] else if (inherits(cond, "condition")) { 1560s [00:52:40.791] if (!is.null(pattern)) { 1560s [00:52:40.791] computeRestarts <- base::computeRestarts 1560s [00:52:40.791] grepl <- base::grepl 1560s [00:52:40.791] restarts <- computeRestarts(cond) 1560s [00:52:40.791] for (restart in restarts) { 1560s [00:52:40.791] name <- restart$name 1560s [00:52:40.791] if (is.null(name)) 1560s [00:52:40.791] next 1560s [00:52:40.791] if (!grepl(pattern, name)) 1560s [00:52:40.791] next 1560s [00:52:40.791] invokeRestart(restart) 1560s [00:52:40.791] muffled <- TRUE 1560s [00:52:40.791] break 1560s [00:52:40.791] } 1560s [00:52:40.791] } 1560s [00:52:40.791] } 1560s [00:52:40.791] invisible(muffled) 1560s [00:52:40.791] } 1560s [00:52:40.791] muffleCondition(cond, pattern = "^muffle") 1560s [00:52:40.791] } 1560s [00:52:40.791] } 1560s [00:52:40.791] else { 1560s [00:52:40.791] if (TRUE) { 1560s [00:52:40.791] muffleCondition <- function (cond, pattern = "^muffle") 1560s [00:52:40.791] { 1560s [00:52:40.791] inherits <- base::inherits 1560s [00:52:40.791] invokeRestart <- base::invokeRestart 1560s [00:52:40.791] is.null <- base::is.null 1560s [00:52:40.791] muffled <- FALSE 1560s [00:52:40.791] if (inherits(cond, "message")) { 1560s [00:52:40.791] muffled <- grepl(pattern, "muffleMessage") 1560s [00:52:40.791] if (muffled) 1560s [00:52:40.791] invokeRestart("muffleMessage") 1560s [00:52:40.791] } 1560s [00:52:40.791] else if (inherits(cond, "warning")) { 1560s [00:52:40.791] muffled <- grepl(pattern, "muffleWarning") 1560s [00:52:40.791] if (muffled) 1560s [00:52:40.791] invokeRestart("muffleWarning") 1560s [00:52:40.791] } 1560s [00:52:40.791] else if (inherits(cond, "condition")) { 1560s [00:52:40.791] if (!is.null(pattern)) { 1560s [00:52:40.791] computeRestarts <- base::computeRestarts 1560s [00:52:40.791] grepl <- base::grepl 1560s [00:52:40.791] restarts <- computeRestarts(cond) 1560s [00:52:40.791] for (restart in restarts) { 1560s [00:52:40.791] name <- restart$name 1560s [00:52:40.791] if (is.null(name)) 1560s [00:52:40.791] next 1560s [00:52:40.791] if (!grepl(pattern, name)) 1560s [00:52:40.791] next 1560s [00:52:40.791] invokeRestart(restart) 1560s [00:52:40.791] muffled <- TRUE 1560s [00:52:40.791] break 1560s [00:52:40.791] } 1560s [00:52:40.791] } 1560s [00:52:40.791] } 1560s [00:52:40.791] invisible(muffled) 1560s [00:52:40.791] } 1560s [00:52:40.791] muffleCondition(cond, pattern = "^muffle") 1560s [00:52:40.791] } 1560s [00:52:40.791] } 1560s [00:52:40.791] } 1560s [00:52:40.791] })) 1560s [00:52:40.791] }, error = function(ex) { 1560s [00:52:40.791] base::structure(base::list(value = NULL, visible = NULL, 1560s [00:52:40.791] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1560s [00:52:40.791] ...future.rng), started = ...future.startTime, 1560s [00:52:40.791] finished = Sys.time(), session_uuid = NA_character_, 1560s [00:52:40.791] version = "1.8"), class = "FutureResult") 1560s [00:52:40.791] }, finally = { 1560s [00:52:40.791] if (!identical(...future.workdir, getwd())) 1560s [00:52:40.791] setwd(...future.workdir) 1560s [00:52:40.791] { 1560s [00:52:40.791] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1560s [00:52:40.791] ...future.oldOptions$nwarnings <- NULL 1560s [00:52:40.791] } 1560s [00:52:40.791] base::options(...future.oldOptions) 1560s [00:52:40.791] if (.Platform$OS.type == "windows") { 1560s [00:52:40.791] old_names <- names(...future.oldEnvVars) 1560s [00:52:40.791] envs <- base::Sys.getenv() 1560s [00:52:40.791] names <- names(envs) 1560s [00:52:40.791] common <- intersect(names, old_names) 1560s [00:52:40.791] added <- setdiff(names, old_names) 1560s [00:52:40.791] removed <- setdiff(old_names, names) 1560s [00:52:40.791] changed <- common[...future.oldEnvVars[common] != 1560s [00:52:40.791] envs[common]] 1560s [00:52:40.791] NAMES <- toupper(changed) 1560s [00:52:40.791] args <- list() 1560s [00:52:40.791] for (kk in seq_along(NAMES)) { 1560s [00:52:40.791] name <- changed[[kk]] 1560s [00:52:40.791] NAME <- NAMES[[kk]] 1560s [00:52:40.791] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.791] next 1560s [00:52:40.791] args[[name]] <- ...future.oldEnvVars[[name]] 1560s [00:52:40.791] } 1560s [00:52:40.791] NAMES <- toupper(added) 1560s [00:52:40.791] for (kk in seq_along(NAMES)) { 1560s [00:52:40.791] name <- added[[kk]] 1560s [00:52:40.791] NAME <- NAMES[[kk]] 1560s [00:52:40.791] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.791] next 1560s [00:52:40.791] args[[name]] <- "" 1560s [00:52:40.791] } 1560s [00:52:40.791] NAMES <- toupper(removed) 1560s [00:52:40.791] for (kk in seq_along(NAMES)) { 1560s [00:52:40.791] name <- removed[[kk]] 1560s [00:52:40.791] NAME <- NAMES[[kk]] 1560s [00:52:40.791] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.791] next 1560s [00:52:40.791] args[[name]] <- ...future.oldEnvVars[[name]] 1560s [00:52:40.791] } 1560s [00:52:40.791] if (length(args) > 0) 1560s [00:52:40.791] base::do.call(base::Sys.setenv, args = args) 1560s [00:52:40.791] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1560s [00:52:40.791] } 1560s [00:52:40.791] else { 1560s [00:52:40.791] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1560s [00:52:40.791] } 1560s [00:52:40.791] { 1560s [00:52:40.791] if (base::length(...future.futureOptionsAdded) > 1560s [00:52:40.791] 0L) { 1560s [00:52:40.791] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1560s [00:52:40.791] base::names(opts) <- ...future.futureOptionsAdded 1560s [00:52:40.791] base::options(opts) 1560s [00:52:40.791] } 1560s [00:52:40.791] { 1560s [00:52:40.791] { 1560s [00:52:40.791] base::assign(".Random.seed", c(10407L, -1319993016L, 1560s [00:52:40.791] 1571290074L, -859112415L, -853775137L, 1440155893L, 1560s [00:52:40.791] -732328588L), envir = base::globalenv(), 1560s [00:52:40.791] inherits = FALSE) 1560s [00:52:40.791] NULL 1560s [00:52:40.791] } 1560s [00:52:40.791] options(future.plan = NULL) 1560s [00:52:40.791] if (is.na(NA_character_)) 1560s [00:52:40.791] Sys.unsetenv("R_FUTURE_PLAN") 1560s [00:52:40.791] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1560s [00:52:40.791] future::plan(list(function (..., envir = parent.frame()) 1560s [00:52:40.791] { 1560s [00:52:40.791] future <- SequentialFuture(..., envir = envir) 1560s [00:52:40.791] if (!future$lazy) 1560s [00:52:40.791] future <- run(future) 1560s [00:52:40.791] invisible(future) 1560s [00:52:40.791] }), .cleanup = FALSE, .init = FALSE) 1560s [00:52:40.791] } 1560s [00:52:40.791] } 1560s [00:52:40.791] } 1560s [00:52:40.791] }) 1560s [00:52:40.791] if (TRUE) { 1560s [00:52:40.791] base::sink(type = "output", split = FALSE) 1560s [00:52:40.791] if (TRUE) { 1560s [00:52:40.791] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1560s [00:52:40.791] } 1560s [00:52:40.791] else { 1560s [00:52:40.791] ...future.result["stdout"] <- base::list(NULL) 1560s [00:52:40.791] } 1560s [00:52:40.791] base::close(...future.stdout) 1560s [00:52:40.791] ...future.stdout <- NULL 1560s [00:52:40.791] } 1560s [00:52:40.791] ...future.result$conditions <- ...future.conditions 1560s [00:52:40.791] ...future.result$finished <- base::Sys.time() 1560s [00:52:40.791] ...future.result 1560s [00:52:40.791] } 1560s [00:52:40.796] assign_globals() ... 1560s [00:52:40.797] List of 5 1560s [00:52:40.797] $ ...future.FUN :function (C, k) 1560s [00:52:40.797] $ MoreArgs : NULL 1560s [00:52:40.797] $ ...future.elements_ii :List of 2 1560s [00:52:40.797] ..$ :List of 2 1560s [00:52:40.797] .. ..$ : chr "C" 1560s [00:52:40.797] .. ..$ : chr "E" 1560s [00:52:40.797] ..$ :List of 2 1560s [00:52:40.797] .. ..$ : int 3 1560s [00:52:40.797] .. ..$ : int 1 1560s [00:52:40.797] $ ...future.seeds_ii : NULL 1560s [00:52:40.797] $ ...future.globals.maxSize: NULL 1560s [00:52:40.797] - attr(*, "where")=List of 5 1560s [00:52:40.797] ..$ ...future.FUN : 1560s [00:52:40.797] ..$ MoreArgs : 1560s [00:52:40.797] ..$ ...future.elements_ii : 1560s [00:52:40.797] ..$ ...future.seeds_ii : 1560s [00:52:40.797] ..$ ...future.globals.maxSize: 1560s [00:52:40.797] - attr(*, "resolved")= logi FALSE 1560s [00:52:40.797] - attr(*, "total_size")= num 3656 1560s [00:52:40.797] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1560s [00:52:40.797] - attr(*, "already-done")= logi TRUE 1560s [00:52:40.807] - reassign environment for ‘...future.FUN’ 1560s [00:52:40.807] - copied ‘...future.FUN’ to environment 1560s [00:52:40.807] - copied ‘MoreArgs’ to environment 1560s [00:52:40.807] - copied ‘...future.elements_ii’ to environment 1560s [00:52:40.807] - copied ‘...future.seeds_ii’ to environment 1560s [00:52:40.807] - copied ‘...future.globals.maxSize’ to environment 1560s [00:52:40.808] assign_globals() ... done 1560s [00:52:40.808] plan(): Setting new future strategy stack: 1560s [00:52:40.808] List of future strategies: 1560s [00:52:40.808] 1. sequential: 1560s [00:52:40.808] - args: function (..., envir = parent.frame()) 1560s [00:52:40.808] - tweaked: FALSE 1560s [00:52:40.808] - call: NULL 1560s [00:52:40.809] plan(): nbrOfWorkers() = 1 1560s [00:52:40.809] plan(): Setting new future strategy stack: 1560s [00:52:40.809] List of future strategies: 1560s [00:52:40.809] 1. sequential: 1560s [00:52:40.809] - args: function (..., envir = parent.frame()) 1560s [00:52:40.809] - tweaked: FALSE 1560s [00:52:40.809] - call: plan(strategy) 1560s [00:52:40.810] plan(): nbrOfWorkers() = 1 1560s [00:52:40.810] SequentialFuture started (and completed) 1560s [00:52:40.810] - Launch lazy future ... done 1560s [00:52:40.810] run() for ‘SequentialFuture’ ... done 1560s [00:52:40.811] Created future: 1560s [00:52:40.811] SequentialFuture: 1560s [00:52:40.811] Label: ‘future_mapply-3’ 1560s [00:52:40.811] Expression: 1560s [00:52:40.811] { 1560s [00:52:40.811] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1560s [00:52:40.811] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1560s [00:52:40.811] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1560s [00:52:40.811] on.exit(options(oopts), add = TRUE) 1560s [00:52:40.811] } 1560s [00:52:40.811] { 1560s [00:52:40.811] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1560s [00:52:40.811] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1560s [00:52:40.811] do.call(mapply, args = args) 1560s [00:52:40.811] } 1560s [00:52:40.811] } 1560s [00:52:40.811] Lazy evaluation: FALSE 1560s [00:52:40.811] Asynchronous evaluation: FALSE 1560s [00:52:40.811] Local evaluation: TRUE 1560s [00:52:40.811] Environment: R_GlobalEnv 1560s [00:52:40.811] Capture standard output: TRUE 1560s [00:52:40.811] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1560s [00:52:40.811] Globals: 5 objects totaling 3.57 KiB (function ‘...future.FUN’ of 3.24 KiB, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1560s [00:52:40.811] Packages: 1560s [00:52:40.811] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1560s [00:52:40.811] Resolved: TRUE 1560s [00:52:40.811] Value: 224 bytes of class ‘list’ 1560s [00:52:40.811] Early signaling: FALSE 1560s [00:52:40.811] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1560s [00:52:40.811] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1560s [00:52:40.812] Chunk #3 of 3 ... DONE 1560s [00:52:40.813] Launching 3 futures (chunks) ... DONE 1560s [00:52:40.813] Resolving 3 futures (chunks) ... 1560s [00:52:40.813] resolve() on list ... 1560s [00:52:40.813] recursive: 0 1560s [00:52:40.813] length: 3 1560s [00:52:40.813] 1560s [00:52:40.813] resolved() for ‘SequentialFuture’ ... 1560s [00:52:40.814] - state: ‘finished’ 1560s [00:52:40.814] - run: TRUE 1560s [00:52:40.814] - result: ‘FutureResult’ 1560s [00:52:40.814] resolved() for ‘SequentialFuture’ ... done 1560s [00:52:40.814] Future #1 1560s [00:52:40.814] signalConditionsASAP(SequentialFuture, pos=1) ... 1560s [00:52:40.815] - nx: 3 1560s [00:52:40.815] - relay: TRUE 1560s [00:52:40.815] - stdout: TRUE 1560s [00:52:40.815] - signal: TRUE 1560s [00:52:40.815] - resignal: FALSE 1560s [00:52:40.815] - force: TRUE 1560s [00:52:40.815] - relayed: [n=3] FALSE, FALSE, FALSE 1560s [00:52:40.816] - queued futures: [n=3] FALSE, FALSE, FALSE 1560s [00:52:40.816] - until=1 1560s [00:52:40.816] - relaying element #1 1560s [00:52:40.816] - relayed: [n=3] TRUE, FALSE, FALSE 1560s [00:52:40.816] - queued futures: [n=3] TRUE, FALSE, FALSE 1560s [00:52:40.816] signalConditionsASAP(SequentialFuture, pos=1) ... done 1560s [00:52:40.817] length: 2 (resolved future 1) 1560s [00:52:40.817] resolved() for ‘SequentialFuture’ ... 1560s [00:52:40.817] - state: ‘finished’ 1560s [00:52:40.817] - run: TRUE 1560s [00:52:40.817] - result: ‘FutureResult’ 1560s [00:52:40.817] resolved() for ‘SequentialFuture’ ... done 1560s [00:52:40.817] Future #2 1560s [00:52:40.818] signalConditionsASAP(SequentialFuture, pos=2) ... 1560s [00:52:40.818] - nx: 3 1560s [00:52:40.818] - relay: TRUE 1560s [00:52:40.818] - stdout: TRUE 1560s [00:52:40.818] - signal: TRUE 1560s [00:52:40.818] - resignal: FALSE 1560s [00:52:40.818] - force: TRUE 1560s [00:52:40.819] - relayed: [n=3] TRUE, FALSE, FALSE 1560s [00:52:40.819] - queued futures: [n=3] TRUE, FALSE, FALSE 1560s [00:52:40.819] - until=2 1560s [00:52:40.819] - relaying element #2 1560s [00:52:40.819] - relayed: [n=3] TRUE, TRUE, FALSE 1560s [00:52:40.819] - queued futures: [n=3] TRUE, TRUE, FALSE 1560s [00:52:40.819] signalConditionsASAP(SequentialFuture, pos=2) ... done 1560s [00:52:40.820] length: 1 (resolved future 2) 1560s [00:52:40.820] resolved() for ‘SequentialFuture’ ... 1560s [00:52:40.820] - state: ‘finished’ 1560s [00:52:40.820] - run: TRUE 1560s [00:52:40.820] - result: ‘FutureResult’ 1560s [00:52:40.820] resolved() for ‘SequentialFuture’ ... done 1560s [00:52:40.820] Future #3 1560s [00:52:40.821] signalConditionsASAP(SequentialFuture, pos=3) ... 1560s [00:52:40.821] - nx: 3 1560s [00:52:40.821] - relay: TRUE 1560s [00:52:40.821] - stdout: TRUE 1560s [00:52:40.821] - signal: TRUE 1560s [00:52:40.821] - resignal: FALSE 1560s [00:52:40.821] - force: TRUE 1560s [00:52:40.822] - relayed: [n=3] TRUE, TRUE, FALSE 1560s [00:52:40.822] - queued futures: [n=3] TRUE, TRUE, FALSE 1560s [00:52:40.822] - until=3 1560s [00:52:40.822] - relaying element #3 1560s [00:52:40.822] - relayed: [n=3] TRUE, TRUE, TRUE 1560s [00:52:40.822] - queued futures: [n=3] TRUE, TRUE, TRUE 1560s [00:52:40.822] signalConditionsASAP(SequentialFuture, pos=3) ... done 1560s [00:52:40.822] length: 0 (resolved future 3) 1560s [00:52:40.823] Relaying remaining futures 1560s [00:52:40.823] signalConditionsASAP(NULL, pos=0) ... 1560s [00:52:40.823] - nx: 3 1560s [00:52:40.823] - relay: TRUE 1560s [00:52:40.823] - stdout: TRUE 1560s [00:52:40.823] - signal: TRUE 1560s [00:52:40.823] - resignal: FALSE 1560s [00:52:40.823] - force: TRUE 1560s [00:52:40.823] - relayed: [n=3] TRUE, TRUE, TRUE 1560s [00:52:40.823] - queued futures: [n=3] TRUE, TRUE, TRUE 1560s - flush all 1560s [00:52:40.824] - relayed: [n=3] TRUE, TRUE, TRUE 1560s [00:52:40.824] - queued futures: [n=3] TRUE, TRUE, TRUE 1560s [00:52:40.824] signalConditionsASAP(NULL, pos=0) ... done 1560s [00:52:40.824] resolve() on list ... DONE 1560s [00:52:40.824] - Number of value chunks collected: 3 1560s [00:52:40.824] Resolving 3 futures (chunks) ... DONE 1560s [00:52:40.825] Reducing values from 3 chunks ... 1560s [00:52:40.825] - Number of values collected after concatenation: 5 1560s [00:52:40.825] - Number of values expected: 5 1560s [00:52:40.825] Reverse index remapping (attribute 'ordering'): [n = 5] 2, 3, 4, 1, 5 1560s [00:52:40.825] Reducing values from 3 chunks ... DONE 1560s [00:52:40.825] future_mapply() ... DONE 1560s [00:52:40.826] future_mapply() ... 1560s [00:52:40.826] Number of chunks: 1 1560s [00:52:40.826] getGlobalsAndPackagesXApply() ... 1560s [00:52:40.826] - future.globals: TRUE 1560s [00:52:40.826] getGlobalsAndPackages() ... 1560s [00:52:40.826] Searching for globals... 1560s [00:52:40.828] - globals found: [3] ‘FUN’, ‘paste’, ‘rep.int’ 1560s [00:52:40.828] Searching for globals ... DONE 1560s [00:52:40.828] Resolving globals: FALSE 1560s [00:52:40.828] The total size of the 1 globals is 3.24 KiB (3320 bytes) 1560s [00:52:40.829] The total size of the 1 globals exported for future expression (‘FUN()’) is 3.24 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (3.24 KiB of class ‘function’) 1560s [00:52:40.829] - globals: [1] ‘FUN’ 1560s [00:52:40.829] 1560s [00:52:40.829] getGlobalsAndPackages() ... DONE 1560s [00:52:40.829] - globals found/used: [n=1] ‘FUN’ 1560s [00:52:40.829] - needed namespaces: [n=0] 1560s [00:52:40.830] Finding globals ... DONE 1560s [00:52:40.830] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1560s [00:52:40.830] List of 2 1560s [00:52:40.830] $ ...future.FUN:function (C, k) 1560s [00:52:40.830] $ MoreArgs : list() 1560s [00:52:40.830] - attr(*, "where")=List of 2 1560s [00:52:40.830] ..$ ...future.FUN: 1560s [00:52:40.830] ..$ MoreArgs : 1560s [00:52:40.830] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1560s [00:52:40.830] - attr(*, "resolved")= logi FALSE 1560s [00:52:40.830] - attr(*, "total_size")= num NA 1560s [00:52:40.833] Packages to be attached in all futures: [n=0] 1560s [00:52:40.833] getGlobalsAndPackagesXApply() ... DONE 1560s [00:52:40.833] Number of futures (= number of chunks): 1 1560s [00:52:40.834] Launching 1 futures (chunks) ... 1560s [00:52:40.834] Chunk #1 of 1 ... 1560s [00:52:40.834] - Finding globals in '...' for chunk #1 ... 1560s [00:52:40.834] getGlobalsAndPackages() ... 1560s [00:52:40.834] Searching for globals... 1560s [00:52:40.835] 1560s [00:52:40.835] Searching for globals ... DONE 1560s [00:52:40.835] - globals: [0] 1560s [00:52:40.835] getGlobalsAndPackages() ... DONE 1560s [00:52:40.835] + additional globals found: [n=0] 1560s [00:52:40.835] + additional namespaces needed: [n=0] 1560s [00:52:40.836] - Finding globals in '...' for chunk #1 ... DONE 1560s [00:52:40.836] - seeds: 1560s [00:52:40.836] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.836] getGlobalsAndPackages() ... 1560s [00:52:40.836] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.838] Resolving globals: FALSE 1560s [00:52:40.839] The total size of the 5 globals is 4.06 KiB (4160 bytes) 1560s [00:52:40.839] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 4.06 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (3.24 KiB of class ‘function’), ‘...future.elements_ii’ (840 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘list’) 1560s [00:52:40.839] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.840] 1560s [00:52:40.840] getGlobalsAndPackages() ... DONE 1560s [00:52:40.840] run() for ‘Future’ ... 1560s [00:52:40.840] - state: ‘created’ 1560s [00:52:40.841] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1560s [00:52:40.841] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1560s [00:52:40.841] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1560s [00:52:40.842] - Field: ‘label’ 1560s [00:52:40.842] - Field: ‘local’ 1560s [00:52:40.842] - Field: ‘owner’ 1560s [00:52:40.842] - Field: ‘envir’ 1560s [00:52:40.842] - Field: ‘packages’ 1560s [00:52:40.843] - Field: ‘gc’ 1560s [00:52:40.843] - Field: ‘conditions’ 1560s [00:52:40.843] - Field: ‘expr’ 1560s [00:52:40.843] - Field: ‘uuid’ 1560s [00:52:40.843] - Field: ‘seed’ 1560s [00:52:40.843] - Field: ‘version’ 1560s [00:52:40.844] - Field: ‘result’ 1560s [00:52:40.844] - Field: ‘asynchronous’ 1560s [00:52:40.844] - Field: ‘calls’ 1560s [00:52:40.844] - Field: ‘globals’ 1560s [00:52:40.844] - Field: ‘stdout’ 1560s [00:52:40.845] - Field: ‘earlySignal’ 1560s [00:52:40.845] - Field: ‘lazy’ 1560s [00:52:40.845] - Field: ‘state’ 1560s [00:52:40.846] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1560s [00:52:40.846] - Launch lazy future ... 1560s [00:52:40.846] Packages needed by the future expression (n = 0): 1560s [00:52:40.846] Packages needed by future strategies (n = 0): 1560s [00:52:40.847] { 1560s [00:52:40.847] { 1560s [00:52:40.847] { 1560s [00:52:40.847] ...future.startTime <- base::Sys.time() 1560s [00:52:40.847] { 1560s [00:52:40.847] { 1560s [00:52:40.847] { 1560s [00:52:40.847] base::local({ 1560s [00:52:40.847] has_future <- base::requireNamespace("future", 1560s [00:52:40.847] quietly = TRUE) 1560s [00:52:40.847] if (has_future) { 1560s [00:52:40.847] ns <- base::getNamespace("future") 1560s [00:52:40.847] version <- ns[[".package"]][["version"]] 1560s [00:52:40.847] if (is.null(version)) 1560s [00:52:40.847] version <- utils::packageVersion("future") 1560s [00:52:40.847] } 1560s [00:52:40.847] else { 1560s [00:52:40.847] version <- NULL 1560s [00:52:40.847] } 1560s [00:52:40.847] if (!has_future || version < "1.8.0") { 1560s [00:52:40.847] info <- base::c(r_version = base::gsub("R version ", 1560s [00:52:40.847] "", base::R.version$version.string), 1560s [00:52:40.847] platform = base::sprintf("%s (%s-bit)", 1560s [00:52:40.847] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1560s [00:52:40.847] os = base::paste(base::Sys.info()[base::c("sysname", 1560s [00:52:40.847] "release", "version")], collapse = " "), 1560s [00:52:40.847] hostname = base::Sys.info()[["nodename"]]) 1560s [00:52:40.847] info <- base::sprintf("%s: %s", base::names(info), 1560s [00:52:40.847] info) 1560s [00:52:40.847] info <- base::paste(info, collapse = "; ") 1560s [00:52:40.847] if (!has_future) { 1560s [00:52:40.847] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1560s [00:52:40.847] info) 1560s [00:52:40.847] } 1560s [00:52:40.847] else { 1560s [00:52:40.847] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1560s [00:52:40.847] info, version) 1560s [00:52:40.847] } 1560s [00:52:40.847] base::stop(msg) 1560s [00:52:40.847] } 1560s [00:52:40.847] }) 1560s [00:52:40.847] } 1560s [00:52:40.847] options(future.plan = NULL) 1560s [00:52:40.847] Sys.unsetenv("R_FUTURE_PLAN") 1560s [00:52:40.847] future::plan("default", .cleanup = FALSE, .init = FALSE) 1560s [00:52:40.847] } 1560s [00:52:40.847] ...future.workdir <- getwd() 1560s [00:52:40.847] } 1560s [00:52:40.847] ...future.oldOptions <- base::as.list(base::.Options) 1560s [00:52:40.847] ...future.oldEnvVars <- base::Sys.getenv() 1560s [00:52:40.847] } 1560s [00:52:40.847] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1560s [00:52:40.847] future.globals.maxSize = NULL, future.globals.method = NULL, 1560s [00:52:40.847] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1560s [00:52:40.847] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1560s [00:52:40.847] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1560s [00:52:40.847] future.stdout.windows.reencode = NULL, width = 80L) 1560s [00:52:40.847] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1560s [00:52:40.847] base::names(...future.oldOptions)) 1560s [00:52:40.847] } 1560s [00:52:40.847] if (FALSE) { 1560s [00:52:40.847] } 1560s [00:52:40.847] else { 1560s [00:52:40.847] if (TRUE) { 1560s [00:52:40.847] ...future.stdout <- base::rawConnection(base::raw(0L), 1560s [00:52:40.847] open = "w") 1560s [00:52:40.847] } 1560s [00:52:40.847] else { 1560s [00:52:40.847] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1560s [00:52:40.847] windows = "NUL", "/dev/null"), open = "w") 1560s [00:52:40.847] } 1560s [00:52:40.847] base::sink(...future.stdout, type = "output", split = FALSE) 1560s [00:52:40.847] base::on.exit(if (!base::is.null(...future.stdout)) { 1560s [00:52:40.847] base::sink(type = "output", split = FALSE) 1560s [00:52:40.847] base::close(...future.stdout) 1560s [00:52:40.847] }, add = TRUE) 1560s [00:52:40.847] } 1560s [00:52:40.847] ...future.frame <- base::sys.nframe() 1560s [00:52:40.847] ...future.conditions <- base::list() 1560s [00:52:40.847] ...future.rng <- base::globalenv()$.Random.seed 1560s [00:52:40.847] if (FALSE) { 1560s [00:52:40.847] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1560s [00:52:40.847] "...future.value", "...future.globalenv.names", ".Random.seed") 1560s [00:52:40.847] } 1560s [00:52:40.847] ...future.result <- base::tryCatch({ 1560s [00:52:40.847] base::withCallingHandlers({ 1560s [00:52:40.847] ...future.value <- base::withVisible(base::local({ 1560s [00:52:40.847] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1560s [00:52:40.847] if (!identical(...future.globals.maxSize.org, 1560s [00:52:40.847] ...future.globals.maxSize)) { 1560s [00:52:40.847] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1560s [00:52:40.847] on.exit(options(oopts), add = TRUE) 1560s [00:52:40.847] } 1560s [00:52:40.847] { 1560s [00:52:40.847] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1560s [00:52:40.847] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1560s [00:52:40.847] USE.NAMES = FALSE) 1560s [00:52:40.847] do.call(mapply, args = args) 1560s [00:52:40.847] } 1560s [00:52:40.847] })) 1560s [00:52:40.847] future::FutureResult(value = ...future.value$value, 1560s [00:52:40.847] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1560s [00:52:40.847] ...future.rng), globalenv = if (FALSE) 1560s [00:52:40.847] list(added = base::setdiff(base::names(base::.GlobalEnv), 1560s [00:52:40.847] ...future.globalenv.names)) 1560s [00:52:40.847] else NULL, started = ...future.startTime, version = "1.8") 1560s [00:52:40.847] }, condition = base::local({ 1560s [00:52:40.847] c <- base::c 1560s [00:52:40.847] inherits <- base::inherits 1560s [00:52:40.847] invokeRestart <- base::invokeRestart 1560s [00:52:40.847] length <- base::length 1560s [00:52:40.847] list <- base::list 1560s [00:52:40.847] seq.int <- base::seq.int 1560s [00:52:40.847] signalCondition <- base::signalCondition 1560s [00:52:40.847] sys.calls <- base::sys.calls 1560s [00:52:40.847] `[[` <- base::`[[` 1560s [00:52:40.847] `+` <- base::`+` 1560s [00:52:40.847] `<<-` <- base::`<<-` 1560s [00:52:40.847] sysCalls <- function(calls = sys.calls(), from = 1L) { 1560s [00:52:40.847] calls[seq.int(from = from + 12L, to = length(calls) - 1560s [00:52:40.847] 3L)] 1560s [00:52:40.847] } 1560s [00:52:40.847] function(cond) { 1560s [00:52:40.847] is_error <- inherits(cond, "error") 1560s [00:52:40.847] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1560s [00:52:40.847] NULL) 1560s [00:52:40.847] if (is_error) { 1560s [00:52:40.847] sessionInformation <- function() { 1560s [00:52:40.847] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1560s [00:52:40.847] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1560s [00:52:40.847] search = base::search(), system = base::Sys.info()) 1560s [00:52:40.847] } 1560s [00:52:40.847] ...future.conditions[[length(...future.conditions) + 1560s [00:52:40.847] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1560s [00:52:40.847] cond$call), session = sessionInformation(), 1560s [00:52:40.847] timestamp = base::Sys.time(), signaled = 0L) 1560s [00:52:40.847] signalCondition(cond) 1560s [00:52:40.847] } 1560s [00:52:40.847] else if (!ignore && TRUE && inherits(cond, c("condition", 1560s [00:52:40.847] "immediateCondition"))) { 1560s [00:52:40.847] signal <- TRUE && inherits(cond, "immediateCondition") 1560s [00:52:40.847] ...future.conditions[[length(...future.conditions) + 1560s [00:52:40.847] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1560s [00:52:40.847] if (TRUE && !signal) { 1560s [00:52:40.847] muffleCondition <- function (cond, pattern = "^muffle") 1560s [00:52:40.847] { 1560s [00:52:40.847] inherits <- base::inherits 1560s [00:52:40.847] invokeRestart <- base::invokeRestart 1560s [00:52:40.847] is.null <- base::is.null 1560s [00:52:40.847] muffled <- FALSE 1560s [00:52:40.847] if (inherits(cond, "message")) { 1560s [00:52:40.847] muffled <- grepl(pattern, "muffleMessage") 1560s [00:52:40.847] if (muffled) 1560s [00:52:40.847] invokeRestart("muffleMessage") 1560s [00:52:40.847] } 1560s [00:52:40.847] else if (inherits(cond, "warning")) { 1560s [00:52:40.847] muffled <- grepl(pattern, "muffleWarning") 1560s [00:52:40.847] if (muffled) 1560s [00:52:40.847] invokeRestart("muffleWarning") 1560s [00:52:40.847] } 1560s [00:52:40.847] else if (inherits(cond, "condition")) { 1560s [00:52:40.847] if (!is.null(pattern)) { 1560s [00:52:40.847] computeRestarts <- base::computeRestarts 1560s [00:52:40.847] grepl <- base::grepl 1560s [00:52:40.847] restarts <- computeRestarts(cond) 1560s [00:52:40.847] for (restart in restarts) { 1560s [00:52:40.847] name <- restart$name 1560s [00:52:40.847] if (is.null(name)) 1560s [00:52:40.847] next 1560s [00:52:40.847] if (!grepl(pattern, name)) 1560s [00:52:40.847] next 1560s [00:52:40.847] invokeRestart(restart) 1560s [00:52:40.847] muffled <- TRUE 1560s [00:52:40.847] break 1560s [00:52:40.847] } 1560s [00:52:40.847] } 1560s [00:52:40.847] } 1560s [00:52:40.847] invisible(muffled) 1560s [00:52:40.847] } 1560s [00:52:40.847] muffleCondition(cond, pattern = "^muffle") 1560s [00:52:40.847] } 1560s [00:52:40.847] } 1560s [00:52:40.847] else { 1560s [00:52:40.847] if (TRUE) { 1560s [00:52:40.847] muffleCondition <- function (cond, pattern = "^muffle") 1560s [00:52:40.847] { 1560s [00:52:40.847] inherits <- base::inherits 1560s [00:52:40.847] invokeRestart <- base::invokeRestart 1560s [00:52:40.847] is.null <- base::is.null 1560s [00:52:40.847] muffled <- FALSE 1560s [00:52:40.847] if (inherits(cond, "message")) { 1560s [00:52:40.847] muffled <- grepl(pattern, "muffleMessage") 1560s [00:52:40.847] if (muffled) 1560s [00:52:40.847] invokeRestart("muffleMessage") 1560s [00:52:40.847] } 1560s [00:52:40.847] else if (inherits(cond, "warning")) { 1560s [00:52:40.847] muffled <- grepl(pattern, "muffleWarning") 1560s [00:52:40.847] if (muffled) 1560s [00:52:40.847] invokeRestart("muffleWarning") 1560s [00:52:40.847] } 1560s [00:52:40.847] else if (inherits(cond, "condition")) { 1560s [00:52:40.847] if (!is.null(pattern)) { 1560s [00:52:40.847] computeRestarts <- base::computeRestarts 1560s [00:52:40.847] grepl <- base::grepl 1560s [00:52:40.847] restarts <- computeRestarts(cond) 1560s [00:52:40.847] for (restart in restarts) { 1560s [00:52:40.847] name <- restart$name 1560s [00:52:40.847] if (is.null(name)) 1560s [00:52:40.847] next 1560s [00:52:40.847] if (!grepl(pattern, name)) 1560s [00:52:40.847] next 1560s [00:52:40.847] invokeRestart(restart) 1560s [00:52:40.847] muffled <- TRUE 1560s [00:52:40.847] break 1560s [00:52:40.847] } 1560s [00:52:40.847] } 1560s [00:52:40.847] } 1560s [00:52:40.847] invisible(muffled) 1560s [00:52:40.847] } 1560s [00:52:40.847] muffleCondition(cond, pattern = "^muffle") 1560s [00:52:40.847] } 1560s [00:52:40.847] } 1560s [00:52:40.847] } 1560s [00:52:40.847] })) 1560s [00:52:40.847] }, error = function(ex) { 1560s [00:52:40.847] base::structure(base::list(value = NULL, visible = NULL, 1560s [00:52:40.847] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1560s [00:52:40.847] ...future.rng), started = ...future.startTime, 1560s [00:52:40.847] finished = Sys.time(), session_uuid = NA_character_, 1560s [00:52:40.847] version = "1.8"), class = "FutureResult") 1560s [00:52:40.847] }, finally = { 1560s [00:52:40.847] if (!identical(...future.workdir, getwd())) 1560s [00:52:40.847] setwd(...future.workdir) 1560s [00:52:40.847] { 1560s [00:52:40.847] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1560s [00:52:40.847] ...future.oldOptions$nwarnings <- NULL 1560s [00:52:40.847] } 1560s [00:52:40.847] base::options(...future.oldOptions) 1560s [00:52:40.847] if (.Platform$OS.type == "windows") { 1560s [00:52:40.847] old_names <- names(...future.oldEnvVars) 1560s [00:52:40.847] envs <- base::Sys.getenv() 1560s [00:52:40.847] names <- names(envs) 1560s [00:52:40.847] common <- intersect(names, old_names) 1560s [00:52:40.847] added <- setdiff(names, old_names) 1560s [00:52:40.847] removed <- setdiff(old_names, names) 1560s [00:52:40.847] changed <- common[...future.oldEnvVars[common] != 1560s [00:52:40.847] envs[common]] 1560s [00:52:40.847] NAMES <- toupper(changed) 1560s [00:52:40.847] args <- list() 1560s [00:52:40.847] for (kk in seq_along(NAMES)) { 1560s [00:52:40.847] name <- changed[[kk]] 1560s [00:52:40.847] NAME <- NAMES[[kk]] 1560s [00:52:40.847] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.847] next 1560s [00:52:40.847] args[[name]] <- ...future.oldEnvVars[[name]] 1560s [00:52:40.847] } 1560s [00:52:40.847] NAMES <- toupper(added) 1560s [00:52:40.847] for (kk in seq_along(NAMES)) { 1560s [00:52:40.847] name <- added[[kk]] 1560s [00:52:40.847] NAME <- NAMES[[kk]] 1560s [00:52:40.847] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.847] next 1560s [00:52:40.847] args[[name]] <- "" 1560s [00:52:40.847] } 1560s [00:52:40.847] NAMES <- toupper(removed) 1560s [00:52:40.847] for (kk in seq_along(NAMES)) { 1560s [00:52:40.847] name <- removed[[kk]] 1560s [00:52:40.847] NAME <- NAMES[[kk]] 1560s [00:52:40.847] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.847] next 1560s [00:52:40.847] args[[name]] <- ...future.oldEnvVars[[name]] 1560s [00:52:40.847] } 1560s [00:52:40.847] if (length(args) > 0) 1560s [00:52:40.847] base::do.call(base::Sys.setenv, args = args) 1560s [00:52:40.847] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1560s [00:52:40.847] } 1560s [00:52:40.847] else { 1560s [00:52:40.847] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1560s [00:52:40.847] } 1560s [00:52:40.847] { 1560s [00:52:40.847] if (base::length(...future.futureOptionsAdded) > 1560s [00:52:40.847] 0L) { 1560s [00:52:40.847] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1560s [00:52:40.847] base::names(opts) <- ...future.futureOptionsAdded 1560s [00:52:40.847] base::options(opts) 1560s [00:52:40.847] } 1560s [00:52:40.847] { 1560s [00:52:40.847] { 1560s [00:52:40.847] base::assign(".Random.seed", c(10407L, -1319993016L, 1560s [00:52:40.847] 1571290074L, -859112415L, -853775137L, 1440155893L, 1560s [00:52:40.847] -732328588L), envir = base::globalenv(), 1560s [00:52:40.847] inherits = FALSE) 1560s [00:52:40.847] NULL 1560s [00:52:40.847] } 1560s [00:52:40.847] options(future.plan = NULL) 1560s [00:52:40.847] if (is.na(NA_character_)) 1560s [00:52:40.847] Sys.unsetenv("R_FUTURE_PLAN") 1560s [00:52:40.847] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1560s [00:52:40.847] future::plan(list(function (..., envir = parent.frame()) 1560s [00:52:40.847] { 1560s [00:52:40.847] future <- SequentialFuture(..., envir = envir) 1560s [00:52:40.847] if (!future$lazy) 1560s [00:52:40.847] future <- run(future) 1560s [00:52:40.847] invisible(future) 1560s [00:52:40.847] }), .cleanup = FALSE, .init = FALSE) 1560s [00:52:40.847] } 1560s [00:52:40.847] } 1560s [00:52:40.847] } 1560s [00:52:40.847] }) 1560s [00:52:40.847] if (TRUE) { 1560s [00:52:40.847] base::sink(type = "output", split = FALSE) 1560s [00:52:40.847] if (TRUE) { 1560s [00:52:40.847] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1560s [00:52:40.847] } 1560s [00:52:40.847] else { 1560s [00:52:40.847] ...future.result["stdout"] <- base::list(NULL) 1560s [00:52:40.847] } 1560s [00:52:40.847] base::close(...future.stdout) 1560s [00:52:40.847] ...future.stdout <- NULL 1560s [00:52:40.847] } 1560s [00:52:40.847] ...future.result$conditions <- ...future.conditions 1560s [00:52:40.847] ...future.result$finished <- base::Sys.time() 1560s [00:52:40.847] ...future.result 1560s [00:52:40.847] } 1560s [00:52:40.854] assign_globals() ... 1560s [00:52:40.854] List of 5 1560s [00:52:40.854] $ ...future.FUN :function (C, k) 1560s [00:52:40.854] $ MoreArgs : list() 1560s [00:52:40.854] $ ...future.elements_ii :List of 2 1560s [00:52:40.854] ..$ :List of 5 1560s [00:52:40.854] .. ..$ : chr "A" 1560s [00:52:40.854] .. ..$ : chr "B" 1560s [00:52:40.854] .. ..$ : chr "C" 1560s [00:52:40.854] .. ..$ : chr "D" 1560s [00:52:40.854] .. ..$ : chr "E" 1560s [00:52:40.854] ..$ :List of 5 1560s [00:52:40.854] .. ..$ : int 5 1560s [00:52:40.854] .. ..$ : int 4 1560s [00:52:40.854] .. ..$ : int 3 1560s [00:52:40.854] .. ..$ : int 2 1560s [00:52:40.854] .. ..$ : int 1 1560s [00:52:40.854] $ ...future.seeds_ii : NULL 1560s [00:52:40.854] $ ...future.globals.maxSize: NULL 1560s [00:52:40.854] - attr(*, "where")=List of 5 1560s [00:52:40.854] ..$ ...future.FUN : 1560s [00:52:40.854] ..$ MoreArgs : 1560s [00:52:40.854] ..$ ...future.elements_ii : 1560s [00:52:40.854] ..$ ...future.seeds_ii : 1560s [00:52:40.854] ..$ ...future.globals.maxSize: 1560s [00:52:40.854] - attr(*, "resolved")= logi FALSE 1560s [00:52:40.854] - attr(*, "total_size")= num 4160 1560s [00:52:40.854] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1560s [00:52:40.854] - attr(*, "already-done")= logi TRUE 1560s [00:52:40.863] - reassign environment for ‘...future.FUN’ 1560s [00:52:40.864] - copied ‘...future.FUN’ to environment 1560s [00:52:40.864] - copied ‘MoreArgs’ to environment 1560s [00:52:40.864] - copied ‘...future.elements_ii’ to environment 1560s [00:52:40.864] - copied ‘...future.seeds_ii’ to environment 1560s [00:52:40.864] - copied ‘...future.globals.maxSize’ to environment 1560s [00:52:40.864] assign_globals() ... done 1560s [00:52:40.865] plan(): Setting new future strategy stack: 1560s [00:52:40.865] List of future strategies: 1560s [00:52:40.865] 1. sequential: 1560s [00:52:40.865] - args: function (..., envir = parent.frame()) 1560s [00:52:40.865] - tweaked: FALSE 1560s [00:52:40.865] - call: NULL 1560s [00:52:40.865] plan(): nbrOfWorkers() = 1 1560s [00:52:40.866] plan(): Setting new future strategy stack: 1560s [00:52:40.866] List of future strategies: 1560s [00:52:40.866] 1. sequential: 1560s [00:52:40.866] - args: function (..., envir = parent.frame()) 1560s [00:52:40.866] - tweaked: FALSE 1560s [00:52:40.866] - call: plan(strategy) 1560s [00:52:40.867] plan(): nbrOfWorkers() = 1 1560s [00:52:40.867] SequentialFuture started (and completed) 1560s [00:52:40.867] - Launch lazy future ... done 1560s [00:52:40.867] run() for ‘SequentialFuture’ ... done 1560s [00:52:40.867] Created future: 1560s [00:52:40.868] SequentialFuture: 1560s [00:52:40.868] Label: ‘future_.mapply-1’ 1560s [00:52:40.868] Expression: 1560s [00:52:40.868] { 1560s [00:52:40.868] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1560s [00:52:40.868] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1560s [00:52:40.868] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1560s [00:52:40.868] on.exit(options(oopts), add = TRUE) 1560s [00:52:40.868] } 1560s [00:52:40.868] { 1560s [00:52:40.868] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1560s [00:52:40.868] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1560s [00:52:40.868] do.call(mapply, args = args) 1560s [00:52:40.868] } 1560s [00:52:40.868] } 1560s [00:52:40.868] Lazy evaluation: FALSE 1560s [00:52:40.868] Asynchronous evaluation: FALSE 1560s [00:52:40.868] Local evaluation: TRUE 1560s [00:52:40.868] Environment: R_GlobalEnv 1560s [00:52:40.868] Capture standard output: TRUE 1560s [00:52:40.868] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1560s [00:52:40.868] Globals: 5 objects totaling 4.06 KiB (function ‘...future.FUN’ of 3.24 KiB, list ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 840 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1560s [00:52:40.868] Packages: 1560s [00:52:40.868] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1560s [00:52:40.868] Resolved: TRUE 1560s [00:52:40.868] Value: 560 bytes of class ‘list’ 1560s [00:52:40.868] Early signaling: FALSE 1560s [00:52:40.868] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1560s [00:52:40.868] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1560s [00:52:40.869] Chunk #1 of 1 ... DONE 1560s [00:52:40.869] Launching 1 futures (chunks) ... DONE 1560s [00:52:40.869] Resolving 1 futures (chunks) ... 1560s [00:52:40.869] resolve() on list ... 1560s [00:52:40.870] recursive: 0 1560s [00:52:40.870] length: 1 1560s [00:52:40.870] 1560s [00:52:40.870] resolved() for ‘SequentialFuture’ ... 1560s [00:52:40.870] - state: ‘finished’ 1560s [00:52:40.870] - run: TRUE 1560s [00:52:40.871] - result: ‘FutureResult’ 1560s [00:52:40.871] resolved() for ‘SequentialFuture’ ... done 1560s [00:52:40.871] Future #1 1560s [00:52:40.871] signalConditionsASAP(SequentialFuture, pos=1) ... 1560s [00:52:40.871] - nx: 1 1560s [00:52:40.871] - relay: TRUE 1560s [00:52:40.871] - stdout: TRUE 1560s [00:52:40.872] - signal: TRUE 1560s [00:52:40.872] - resignal: FALSE 1560s [00:52:40.872] - force: TRUE 1560s [00:52:40.872] - relayed: [n=1] FALSE 1560s [00:52:40.872] - queued futures: [n=1] FALSE 1560s [00:52:40.872] - until=1 1560s [00:52:40.872] - relaying element #1 1560s [00:52:40.873] - relayed: [n=1] TRUE 1560s [00:52:40.873] - queued futures: [n=1] TRUE 1560s [00:52:40.873] signalConditionsASAP(SequentialFuture, pos=1) ... done 1560s [00:52:40.873] length: 0 (resolved future 1) 1560s [00:52:40.873] Relaying remaining futures 1560s [00:52:40.873] signalConditionsASAP(NULL, pos=0) ... 1560s [00:52:40.874] - nx: 1 1560s [00:52:40.874] - relay: TRUE 1560s [00:52:40.874] - stdout: TRUE 1560s [00:52:40.874] - signal: TRUE 1560s [00:52:40.874] - resignal: FALSE 1560s [00:52:40.874] - force: TRUE 1560s [00:52:40.874] - relayed: [n=1] TRUE 1560s [00:52:40.875] - queued futures: [n=1] TRUE 1560s - flush all 1560s [00:52:40.875] - relayed: [n=1] TRUE 1560s [00:52:40.875] - queued futures: [n=1] TRUE 1560s [00:52:40.875] signalConditionsASAP(NULL, pos=0) ... done 1560s [00:52:40.875] resolve() on list ... DONE 1560s [00:52:40.875] - Number of value chunks collected: 1 1560s [00:52:40.876] Resolving 1 futures (chunks) ... DONE 1560s [00:52:40.876] Reducing values from 1 chunks ... 1560s [00:52:40.876] - Number of values collected after concatenation: 5 1560s [00:52:40.876] - Number of values expected: 5 1560s [00:52:40.876] Reducing values from 1 chunks ... DONE 1560s [00:52:40.876] future_mapply() ... DONE 1560s [00:52:40.877] future_mapply() ... 1560s [00:52:40.878] Number of chunks: 2 1560s [00:52:40.878] Index remapping (attribute 'ordering'): [n = 5] 5, 4, 3, 2, 1 1560s [00:52:40.879] getGlobalsAndPackagesXApply() ... 1560s [00:52:40.879] - future.globals: TRUE 1560s [00:52:40.879] getGlobalsAndPackages() ... 1560s [00:52:40.879] Searching for globals... 1560s [00:52:40.881] - globals found: [3] ‘FUN’, ‘paste’, ‘rep.int’ 1560s [00:52:40.881] Searching for globals ... DONE 1560s [00:52:40.881] Resolving globals: FALSE 1560s [00:52:40.881] The total size of the 1 globals is 3.24 KiB (3320 bytes) 1560s [00:52:40.882] The total size of the 1 globals exported for future expression (‘FUN()’) is 3.24 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (3.24 KiB of class ‘function’) 1560s [00:52:40.882] - globals: [1] ‘FUN’ 1560s [00:52:40.882] 1560s [00:52:40.882] getGlobalsAndPackages() ... DONE 1560s [00:52:40.882] - globals found/used: [n=1] ‘FUN’ 1560s [00:52:40.883] - needed namespaces: [n=0] 1560s [00:52:40.883] Finding globals ... DONE 1560s [00:52:40.883] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1560s [00:52:40.883] List of 2 1560s [00:52:40.883] $ ...future.FUN:function (C, k) 1560s [00:52:40.883] $ MoreArgs : NULL 1560s [00:52:40.883] - attr(*, "where")=List of 2 1560s [00:52:40.883] ..$ ...future.FUN: 1560s [00:52:40.883] ..$ MoreArgs : 1560s [00:52:40.883] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1560s [00:52:40.883] - attr(*, "resolved")= logi FALSE 1560s [00:52:40.883] - attr(*, "total_size")= num NA 1560s [00:52:40.887] Packages to be attached in all futures: [n=0] 1560s [00:52:40.887] getGlobalsAndPackagesXApply() ... DONE 1560s [00:52:40.887] Number of futures (= number of chunks): 2 1560s [00:52:40.887] Launching 2 futures (chunks) ... 1560s [00:52:40.887] Chunk #1 of 2 ... 1560s [00:52:40.888] - Finding globals in '...' for chunk #1 ... 1560s [00:52:40.888] getGlobalsAndPackages() ... 1560s [00:52:40.888] Searching for globals... 1560s [00:52:40.889] 1560s [00:52:40.889] Searching for globals ... DONE 1560s [00:52:40.889] - globals: [0] 1560s [00:52:40.889] getGlobalsAndPackages() ... DONE 1560s [00:52:40.890] + additional globals found: [n=0] 1560s [00:52:40.890] + additional namespaces needed: [n=0] 1560s [00:52:40.890] - Finding globals in '...' for chunk #1 ... DONE 1560s [00:52:40.890] - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes) 1560s [00:52:40.890] - seeds: 1560s [00:52:40.890] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.891] getGlobalsAndPackages() ... 1560s [00:52:40.891] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.891] Resolving globals: FALSE 1560s [00:52:40.891] The total size of the 5 globals is 3.57 KiB (3656 bytes) 1560s [00:52:40.892] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 3.57 KiB.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (3.24 KiB of class ‘function’), ‘...future.elements_ii’ (336 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1560s [00:52:40.892] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.893] 1560s [00:52:40.893] getGlobalsAndPackages() ... DONE 1560s [00:52:40.893] run() for ‘Future’ ... 1560s [00:52:40.893] - state: ‘created’ 1560s [00:52:40.893] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1560s [00:52:40.894] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1560s [00:52:40.894] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1560s [00:52:40.894] - Field: ‘label’ 1560s [00:52:40.894] - Field: ‘local’ 1560s [00:52:40.895] - Field: ‘owner’ 1560s [00:52:40.895] - Field: ‘envir’ 1560s [00:52:40.895] - Field: ‘packages’ 1560s [00:52:40.895] - Field: ‘gc’ 1560s [00:52:40.895] - Field: ‘conditions’ 1560s [00:52:40.895] - Field: ‘expr’ 1560s [00:52:40.896] - Field: ‘uuid’ 1560s [00:52:40.896] - Field: ‘seed’ 1560s [00:52:40.896] - Field: ‘version’ 1560s [00:52:40.896] - Field: ‘result’ 1560s [00:52:40.896] - Field: ‘asynchronous’ 1560s [00:52:40.896] - Field: ‘calls’ 1560s [00:52:40.896] - Field: ‘globals’ 1560s [00:52:40.897] - Field: ‘stdout’ 1560s [00:52:40.897] - Field: ‘earlySignal’ 1560s [00:52:40.897] - Field: ‘lazy’ 1560s [00:52:40.897] - Field: ‘state’ 1560s [00:52:40.897] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1560s [00:52:40.897] - Launch lazy future ... 1560s [00:52:40.897] Packages needed by the future expression (n = 0): 1560s [00:52:40.898] Packages needed by future strategies (n = 0): 1560s [00:52:40.898] { 1560s [00:52:40.898] { 1560s [00:52:40.898] { 1560s [00:52:40.898] ...future.startTime <- base::Sys.time() 1560s [00:52:40.898] { 1560s [00:52:40.898] { 1560s [00:52:40.898] { 1560s [00:52:40.898] base::local({ 1560s [00:52:40.898] has_future <- base::requireNamespace("future", 1560s [00:52:40.898] quietly = TRUE) 1560s [00:52:40.898] if (has_future) { 1560s [00:52:40.898] ns <- base::getNamespace("future") 1560s [00:52:40.898] version <- ns[[".package"]][["version"]] 1560s [00:52:40.898] if (is.null(version)) 1560s [00:52:40.898] version <- utils::packageVersion("future") 1560s [00:52:40.898] } 1560s [00:52:40.898] else { 1560s [00:52:40.898] version <- NULL 1560s [00:52:40.898] } 1560s [00:52:40.898] if (!has_future || version < "1.8.0") { 1560s [00:52:40.898] info <- base::c(r_version = base::gsub("R version ", 1560s [00:52:40.898] "", base::R.version$version.string), 1560s [00:52:40.898] platform = base::sprintf("%s (%s-bit)", 1560s [00:52:40.898] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1560s [00:52:40.898] os = base::paste(base::Sys.info()[base::c("sysname", 1560s [00:52:40.898] "release", "version")], collapse = " "), 1560s [00:52:40.898] hostname = base::Sys.info()[["nodename"]]) 1560s [00:52:40.898] info <- base::sprintf("%s: %s", base::names(info), 1560s [00:52:40.898] info) 1560s [00:52:40.898] info <- base::paste(info, collapse = "; ") 1560s [00:52:40.898] if (!has_future) { 1560s [00:52:40.898] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1560s [00:52:40.898] info) 1560s [00:52:40.898] } 1560s [00:52:40.898] else { 1560s [00:52:40.898] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1560s [00:52:40.898] info, version) 1560s [00:52:40.898] } 1560s [00:52:40.898] base::stop(msg) 1560s [00:52:40.898] } 1560s [00:52:40.898] }) 1560s [00:52:40.898] } 1560s [00:52:40.898] options(future.plan = NULL) 1560s [00:52:40.898] Sys.unsetenv("R_FUTURE_PLAN") 1560s [00:52:40.898] future::plan("default", .cleanup = FALSE, .init = FALSE) 1560s [00:52:40.898] } 1560s [00:52:40.898] ...future.workdir <- getwd() 1560s [00:52:40.898] } 1560s [00:52:40.898] ...future.oldOptions <- base::as.list(base::.Options) 1560s [00:52:40.898] ...future.oldEnvVars <- base::Sys.getenv() 1560s [00:52:40.898] } 1560s [00:52:40.898] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1560s [00:52:40.898] future.globals.maxSize = 1048576000, future.globals.method = NULL, 1560s [00:52:40.898] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1560s [00:52:40.898] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1560s [00:52:40.898] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1560s [00:52:40.898] future.stdout.windows.reencode = NULL, width = 80L) 1560s [00:52:40.898] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1560s [00:52:40.898] base::names(...future.oldOptions)) 1560s [00:52:40.898] } 1560s [00:52:40.898] if (FALSE) { 1560s [00:52:40.898] } 1560s [00:52:40.898] else { 1560s [00:52:40.898] if (TRUE) { 1560s [00:52:40.898] ...future.stdout <- base::rawConnection(base::raw(0L), 1560s [00:52:40.898] open = "w") 1560s [00:52:40.898] } 1560s [00:52:40.898] else { 1560s [00:52:40.898] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1560s [00:52:40.898] windows = "NUL", "/dev/null"), open = "w") 1560s [00:52:40.898] } 1560s [00:52:40.898] base::sink(...future.stdout, type = "output", split = FALSE) 1560s [00:52:40.898] base::on.exit(if (!base::is.null(...future.stdout)) { 1560s [00:52:40.898] base::sink(type = "output", split = FALSE) 1560s [00:52:40.898] base::close(...future.stdout) 1560s [00:52:40.898] }, add = TRUE) 1560s [00:52:40.898] } 1560s [00:52:40.898] ...future.frame <- base::sys.nframe() 1560s [00:52:40.898] ...future.conditions <- base::list() 1560s [00:52:40.898] ...future.rng <- base::globalenv()$.Random.seed 1560s [00:52:40.898] if (FALSE) { 1560s [00:52:40.898] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1560s [00:52:40.898] "...future.value", "...future.globalenv.names", ".Random.seed") 1560s [00:52:40.898] } 1560s [00:52:40.898] ...future.result <- base::tryCatch({ 1560s [00:52:40.898] base::withCallingHandlers({ 1560s [00:52:40.898] ...future.value <- base::withVisible(base::local({ 1560s [00:52:40.898] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1560s [00:52:40.898] if (!identical(...future.globals.maxSize.org, 1560s [00:52:40.898] ...future.globals.maxSize)) { 1560s [00:52:40.898] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1560s [00:52:40.898] on.exit(options(oopts), add = TRUE) 1560s [00:52:40.898] } 1560s [00:52:40.898] { 1560s [00:52:40.898] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1560s [00:52:40.898] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1560s [00:52:40.898] USE.NAMES = FALSE) 1560s [00:52:40.898] do.call(mapply, args = args) 1560s [00:52:40.898] } 1560s [00:52:40.898] })) 1560s [00:52:40.898] future::FutureResult(value = ...future.value$value, 1560s [00:52:40.898] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1560s [00:52:40.898] ...future.rng), globalenv = if (FALSE) 1560s [00:52:40.898] list(added = base::setdiff(base::names(base::.GlobalEnv), 1560s [00:52:40.898] ...future.globalenv.names)) 1560s [00:52:40.898] else NULL, started = ...future.startTime, version = "1.8") 1560s [00:52:40.898] }, condition = base::local({ 1560s [00:52:40.898] c <- base::c 1560s [00:52:40.898] inherits <- base::inherits 1560s [00:52:40.898] invokeRestart <- base::invokeRestart 1560s [00:52:40.898] length <- base::length 1560s [00:52:40.898] list <- base::list 1560s [00:52:40.898] seq.int <- base::seq.int 1560s [00:52:40.898] signalCondition <- base::signalCondition 1560s [00:52:40.898] sys.calls <- base::sys.calls 1560s [00:52:40.898] `[[` <- base::`[[` 1560s [00:52:40.898] `+` <- base::`+` 1560s [00:52:40.898] `<<-` <- base::`<<-` 1560s [00:52:40.898] sysCalls <- function(calls = sys.calls(), from = 1L) { 1560s [00:52:40.898] calls[seq.int(from = from + 12L, to = length(calls) - 1560s [00:52:40.898] 3L)] 1560s [00:52:40.898] } 1560s [00:52:40.898] function(cond) { 1560s [00:52:40.898] is_error <- inherits(cond, "error") 1560s [00:52:40.898] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1560s [00:52:40.898] NULL) 1560s [00:52:40.898] if (is_error) { 1560s [00:52:40.898] sessionInformation <- function() { 1560s [00:52:40.898] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1560s [00:52:40.898] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1560s [00:52:40.898] search = base::search(), system = base::Sys.info()) 1560s [00:52:40.898] } 1560s [00:52:40.898] ...future.conditions[[length(...future.conditions) + 1560s [00:52:40.898] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1560s [00:52:40.898] cond$call), session = sessionInformation(), 1560s [00:52:40.898] timestamp = base::Sys.time(), signaled = 0L) 1560s [00:52:40.898] signalCondition(cond) 1560s [00:52:40.898] } 1560s [00:52:40.898] else if (!ignore && TRUE && inherits(cond, c("condition", 1560s [00:52:40.898] "immediateCondition"))) { 1560s [00:52:40.898] signal <- TRUE && inherits(cond, "immediateCondition") 1560s [00:52:40.898] ...future.conditions[[length(...future.conditions) + 1560s [00:52:40.898] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1560s [00:52:40.898] if (TRUE && !signal) { 1560s [00:52:40.898] muffleCondition <- function (cond, pattern = "^muffle") 1560s [00:52:40.898] { 1560s [00:52:40.898] inherits <- base::inherits 1560s [00:52:40.898] invokeRestart <- base::invokeRestart 1560s [00:52:40.898] is.null <- base::is.null 1560s [00:52:40.898] muffled <- FALSE 1560s [00:52:40.898] if (inherits(cond, "message")) { 1560s [00:52:40.898] muffled <- grepl(pattern, "muffleMessage") 1560s [00:52:40.898] if (muffled) 1560s [00:52:40.898] invokeRestart("muffleMessage") 1560s [00:52:40.898] } 1560s [00:52:40.898] else if (inherits(cond, "warning")) { 1560s [00:52:40.898] muffled <- grepl(pattern, "muffleWarning") 1560s [00:52:40.898] if (muffled) 1560s [00:52:40.898] invokeRestart("muffleWarning") 1560s [00:52:40.898] } 1560s [00:52:40.898] else if (inherits(cond, "condition")) { 1560s [00:52:40.898] if (!is.null(pattern)) { 1560s [00:52:40.898] computeRestarts <- base::computeRestarts 1560s [00:52:40.898] grepl <- base::grepl 1560s [00:52:40.898] restarts <- computeRestarts(cond) 1560s [00:52:40.898] for (restart in restarts) { 1560s [00:52:40.898] name <- restart$name 1560s [00:52:40.898] if (is.null(name)) 1560s [00:52:40.898] next 1560s [00:52:40.898] if (!grepl(pattern, name)) 1560s [00:52:40.898] next 1560s [00:52:40.898] invokeRestart(restart) 1560s [00:52:40.898] muffled <- TRUE 1560s [00:52:40.898] break 1560s [00:52:40.898] } 1560s [00:52:40.898] } 1560s [00:52:40.898] } 1560s [00:52:40.898] invisible(muffled) 1560s [00:52:40.898] } 1560s [00:52:40.898] muffleCondition(cond, pattern = "^muffle") 1560s [00:52:40.898] } 1560s [00:52:40.898] } 1560s [00:52:40.898] else { 1560s [00:52:40.898] if (TRUE) { 1560s [00:52:40.898] muffleCondition <- function (cond, pattern = "^muffle") 1560s [00:52:40.898] { 1560s [00:52:40.898] inherits <- base::inherits 1560s [00:52:40.898] invokeRestart <- base::invokeRestart 1560s [00:52:40.898] is.null <- base::is.null 1560s [00:52:40.898] muffled <- FALSE 1560s [00:52:40.898] if (inherits(cond, "message")) { 1560s [00:52:40.898] muffled <- grepl(pattern, "muffleMessage") 1560s [00:52:40.898] if (muffled) 1560s [00:52:40.898] invokeRestart("muffleMessage") 1560s [00:52:40.898] } 1560s [00:52:40.898] else if (inherits(cond, "warning")) { 1560s [00:52:40.898] muffled <- grepl(pattern, "muffleWarning") 1560s [00:52:40.898] if (muffled) 1560s [00:52:40.898] invokeRestart("muffleWarning") 1560s [00:52:40.898] } 1560s [00:52:40.898] else if (inherits(cond, "condition")) { 1560s [00:52:40.898] if (!is.null(pattern)) { 1560s [00:52:40.898] computeRestarts <- base::computeRestarts 1560s [00:52:40.898] grepl <- base::grepl 1560s [00:52:40.898] restarts <- computeRestarts(cond) 1560s [00:52:40.898] for (restart in restarts) { 1560s [00:52:40.898] name <- restart$name 1560s [00:52:40.898] if (is.null(name)) 1560s [00:52:40.898] next 1560s [00:52:40.898] if (!grepl(pattern, name)) 1560s [00:52:40.898] next 1560s [00:52:40.898] invokeRestart(restart) 1560s [00:52:40.898] muffled <- TRUE 1560s [00:52:40.898] break 1560s [00:52:40.898] } 1560s [00:52:40.898] } 1560s [00:52:40.898] } 1560s [00:52:40.898] invisible(muffled) 1560s [00:52:40.898] } 1560s [00:52:40.898] muffleCondition(cond, pattern = "^muffle") 1560s [00:52:40.898] } 1560s [00:52:40.898] } 1560s [00:52:40.898] } 1560s [00:52:40.898] })) 1560s [00:52:40.898] }, error = function(ex) { 1560s [00:52:40.898] base::structure(base::list(value = NULL, visible = NULL, 1560s [00:52:40.898] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1560s [00:52:40.898] ...future.rng), started = ...future.startTime, 1560s [00:52:40.898] finished = Sys.time(), session_uuid = NA_character_, 1560s [00:52:40.898] version = "1.8"), class = "FutureResult") 1560s [00:52:40.898] }, finally = { 1560s [00:52:40.898] if (!identical(...future.workdir, getwd())) 1560s [00:52:40.898] setwd(...future.workdir) 1560s [00:52:40.898] { 1560s [00:52:40.898] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1560s [00:52:40.898] ...future.oldOptions$nwarnings <- NULL 1560s [00:52:40.898] } 1560s [00:52:40.898] base::options(...future.oldOptions) 1560s [00:52:40.898] if (.Platform$OS.type == "windows") { 1560s [00:52:40.898] old_names <- names(...future.oldEnvVars) 1560s [00:52:40.898] envs <- base::Sys.getenv() 1560s [00:52:40.898] names <- names(envs) 1560s [00:52:40.898] common <- intersect(names, old_names) 1560s [00:52:40.898] added <- setdiff(names, old_names) 1560s [00:52:40.898] removed <- setdiff(old_names, names) 1560s [00:52:40.898] changed <- common[...future.oldEnvVars[common] != 1560s [00:52:40.898] envs[common]] 1560s [00:52:40.898] NAMES <- toupper(changed) 1560s [00:52:40.898] args <- list() 1560s [00:52:40.898] for (kk in seq_along(NAMES)) { 1560s [00:52:40.898] name <- changed[[kk]] 1560s [00:52:40.898] NAME <- NAMES[[kk]] 1560s [00:52:40.898] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.898] next 1560s [00:52:40.898] args[[name]] <- ...future.oldEnvVars[[name]] 1560s [00:52:40.898] } 1560s [00:52:40.898] NAMES <- toupper(added) 1560s [00:52:40.898] for (kk in seq_along(NAMES)) { 1560s [00:52:40.898] name <- added[[kk]] 1560s [00:52:40.898] NAME <- NAMES[[kk]] 1560s [00:52:40.898] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.898] next 1560s [00:52:40.898] args[[name]] <- "" 1560s [00:52:40.898] } 1560s [00:52:40.898] NAMES <- toupper(removed) 1560s [00:52:40.898] for (kk in seq_along(NAMES)) { 1560s [00:52:40.898] name <- removed[[kk]] 1560s [00:52:40.898] NAME <- NAMES[[kk]] 1560s [00:52:40.898] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.898] next 1560s [00:52:40.898] args[[name]] <- ...future.oldEnvVars[[name]] 1560s [00:52:40.898] } 1560s [00:52:40.898] if (length(args) > 0) 1560s [00:52:40.898] base::do.call(base::Sys.setenv, args = args) 1560s [00:52:40.898] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1560s [00:52:40.898] } 1560s [00:52:40.898] else { 1560s [00:52:40.898] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1560s [00:52:40.898] } 1560s [00:52:40.898] { 1560s [00:52:40.898] if (base::length(...future.futureOptionsAdded) > 1560s [00:52:40.898] 0L) { 1560s [00:52:40.898] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1560s [00:52:40.898] base::names(opts) <- ...future.futureOptionsAdded 1560s [00:52:40.898] base::options(opts) 1560s [00:52:40.898] } 1560s [00:52:40.898] { 1560s [00:52:40.898] { 1560s [00:52:40.898] base::assign(".Random.seed", c(10407L, -1319993016L, 1560s [00:52:40.898] 1571290074L, -859112415L, -853775137L, 1440155893L, 1560s [00:52:40.898] -732328588L), envir = base::globalenv(), 1560s [00:52:40.898] inherits = FALSE) 1560s [00:52:40.898] NULL 1560s [00:52:40.898] } 1560s [00:52:40.898] options(future.plan = NULL) 1560s [00:52:40.898] if (is.na(NA_character_)) 1560s [00:52:40.898] Sys.unsetenv("R_FUTURE_PLAN") 1560s [00:52:40.898] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1560s [00:52:40.898] future::plan(list(function (..., envir = parent.frame()) 1560s [00:52:40.898] { 1560s [00:52:40.898] future <- SequentialFuture(..., envir = envir) 1560s [00:52:40.898] if (!future$lazy) 1560s [00:52:40.898] future <- run(future) 1560s [00:52:40.898] invisible(future) 1560s [00:52:40.898] }), .cleanup = FALSE, .init = FALSE) 1560s [00:52:40.898] } 1560s [00:52:40.898] } 1560s [00:52:40.898] } 1560s [00:52:40.898] }) 1560s [00:52:40.898] if (TRUE) { 1560s [00:52:40.898] base::sink(type = "output", split = FALSE) 1560s [00:52:40.898] if (TRUE) { 1560s [00:52:40.898] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1560s [00:52:40.898] } 1560s [00:52:40.898] else { 1560s [00:52:40.898] ...future.result["stdout"] <- base::list(NULL) 1560s [00:52:40.898] } 1560s [00:52:40.898] base::close(...future.stdout) 1560s [00:52:40.898] ...future.stdout <- NULL 1560s [00:52:40.898] } 1560s [00:52:40.898] ...future.result$conditions <- ...future.conditions 1560s [00:52:40.898] ...future.result$finished <- base::Sys.time() 1560s [00:52:40.898] ...future.result 1560s [00:52:40.898] } 1560s [00:52:40.903] assign_globals() ... 1560s [00:52:40.904] List of 5 1560s [00:52:40.904] $ ...future.FUN :function (C, k) 1560s [00:52:40.904] $ MoreArgs : NULL 1560s [00:52:40.904] $ ...future.elements_ii :List of 2 1560s [00:52:40.904] ..$ :List of 2 1560s [00:52:40.904] .. ..$ : chr "E" 1560s [00:52:40.904] .. ..$ : chr "D" 1560s [00:52:40.904] ..$ :List of 2 1560s [00:52:40.904] .. ..$ : int 1 1560s [00:52:40.904] .. ..$ : int 2 1560s [00:52:40.904] $ ...future.seeds_ii : NULL 1560s [00:52:40.904] $ ...future.globals.maxSize: NULL 1560s [00:52:40.904] - attr(*, "where")=List of 5 1560s [00:52:40.904] ..$ ...future.FUN : 1560s [00:52:40.904] ..$ MoreArgs : 1560s [00:52:40.904] ..$ ...future.elements_ii : 1560s [00:52:40.904] ..$ ...future.seeds_ii : 1560s [00:52:40.904] ..$ ...future.globals.maxSize: 1560s [00:52:40.904] - attr(*, "resolved")= logi FALSE 1560s [00:52:40.904] - attr(*, "total_size")= num 3656 1560s [00:52:40.904] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1560s [00:52:40.904] - attr(*, "already-done")= logi TRUE 1560s [00:52:40.910] - reassign environment for ‘...future.FUN’ 1560s [00:52:40.910] - copied ‘...future.FUN’ to environment 1560s [00:52:40.911] - copied ‘MoreArgs’ to environment 1560s [00:52:40.911] - copied ‘...future.elements_ii’ to environment 1560s [00:52:40.911] - copied ‘...future.seeds_ii’ to environment 1560s [00:52:40.911] - copied ‘...future.globals.maxSize’ to environment 1560s [00:52:40.911] assign_globals() ... done 1560s [00:52:40.912] plan(): Setting new future strategy stack: 1560s [00:52:40.912] List of future strategies: 1560s [00:52:40.912] 1. sequential: 1560s [00:52:40.912] - args: function (..., envir = parent.frame()) 1560s [00:52:40.912] - tweaked: FALSE 1560s [00:52:40.912] - call: NULL 1560s [00:52:40.912] plan(): nbrOfWorkers() = 1 1560s [00:52:40.913] plan(): Setting new future strategy stack: 1560s [00:52:40.913] List of future strategies: 1560s [00:52:40.913] 1. sequential: 1560s [00:52:40.913] - args: function (..., envir = parent.frame()) 1560s [00:52:40.913] - tweaked: FALSE 1560s [00:52:40.913] - call: plan(strategy) 1560s [00:52:40.913] plan(): nbrOfWorkers() = 1 1560s [00:52:40.915] SequentialFuture started (and completed) 1560s [00:52:40.915] - Launch lazy future ... done 1560s [00:52:40.915] run() for ‘SequentialFuture’ ... done 1560s [00:52:40.916] Created future: 1560s [00:52:40.916] SequentialFuture: 1560s [00:52:40.916] Label: ‘future_mapply-1’ 1560s [00:52:40.916] Expression: 1560s [00:52:40.916] { 1560s [00:52:40.916] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1560s [00:52:40.916] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1560s [00:52:40.916] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1560s [00:52:40.916] on.exit(options(oopts), add = TRUE) 1560s [00:52:40.916] } 1560s [00:52:40.916] { 1560s [00:52:40.916] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1560s [00:52:40.916] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1560s [00:52:40.916] do.call(mapply, args = args) 1560s [00:52:40.916] } 1560s [00:52:40.916] } 1560s [00:52:40.916] Lazy evaluation: FALSE 1560s [00:52:40.916] Asynchronous evaluation: FALSE 1560s [00:52:40.916] Local evaluation: TRUE 1560s [00:52:40.916] Environment: R_GlobalEnv 1560s [00:52:40.916] Capture standard output: TRUE 1560s [00:52:40.916] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1560s [00:52:40.916] Globals: 5 objects totaling 3.57 KiB (function ‘...future.FUN’ of 3.24 KiB, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1560s [00:52:40.916] Packages: 1560s [00:52:40.916] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1560s [00:52:40.916] Resolved: TRUE 1560s [00:52:40.916] Value: 224 bytes of class ‘list’ 1560s [00:52:40.916] Early signaling: FALSE 1560s [00:52:40.916] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1560s [00:52:40.916] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1560s [00:52:40.918] Chunk #1 of 2 ... DONE 1560s [00:52:40.918] Chunk #2 of 2 ... 1560s [00:52:40.918] - Finding globals in '...' for chunk #2 ... 1560s [00:52:40.918] getGlobalsAndPackages() ... 1560s [00:52:40.918] Searching for globals... 1560s [00:52:40.919] 1560s [00:52:40.919] Searching for globals ... DONE 1560s [00:52:40.919] - globals: [0] 1560s [00:52:40.919] getGlobalsAndPackages() ... DONE 1560s [00:52:40.919] + additional globals found: [n=0] 1560s [00:52:40.919] + additional namespaces needed: [n=0] 1560s [00:52:40.920] - Finding globals in '...' for chunk #2 ... DONE 1560s [00:52:40.920] - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes) 1560s [00:52:40.920] - seeds: 1560s [00:52:40.920] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.920] getGlobalsAndPackages() ... 1560s [00:52:40.920] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.921] Resolving globals: FALSE 1560s [00:52:40.921] The total size of the 5 globals is 3.73 KiB (3824 bytes) 1560s [00:52:40.922] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 3.73 KiB.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (3.24 KiB of class ‘function’), ‘...future.elements_ii’ (504 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1560s [00:52:40.922] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1560s [00:52:40.922] 1560s [00:52:40.922] getGlobalsAndPackages() ... DONE 1560s [00:52:40.923] run() for ‘Future’ ... 1560s [00:52:40.923] - state: ‘created’ 1560s [00:52:40.923] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1560s [00:52:40.924] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1560s [00:52:40.924] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1560s [00:52:40.924] - Field: ‘label’ 1560s [00:52:40.924] - Field: ‘local’ 1560s [00:52:40.924] - Field: ‘owner’ 1560s [00:52:40.924] - Field: ‘envir’ 1560s [00:52:40.925] - Field: ‘packages’ 1560s [00:52:40.925] - Field: ‘gc’ 1560s [00:52:40.925] - Field: ‘conditions’ 1560s [00:52:40.925] - Field: ‘expr’ 1560s [00:52:40.925] - Field: ‘uuid’ 1560s [00:52:40.925] - Field: ‘seed’ 1560s [00:52:40.926] - Field: ‘version’ 1560s [00:52:40.926] - Field: ‘result’ 1560s [00:52:40.926] - Field: ‘asynchronous’ 1560s [00:52:40.926] - Field: ‘calls’ 1560s [00:52:40.926] - Field: ‘globals’ 1560s [00:52:40.926] - Field: ‘stdout’ 1560s [00:52:40.926] - Field: ‘earlySignal’ 1560s [00:52:40.927] - Field: ‘lazy’ 1560s [00:52:40.927] - Field: ‘state’ 1560s [00:52:40.927] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1560s [00:52:40.927] - Launch lazy future ... 1560s [00:52:40.927] Packages needed by the future expression (n = 0): 1560s [00:52:40.928] Packages needed by future strategies (n = 0): 1560s [00:52:40.928] { 1560s [00:52:40.928] { 1560s [00:52:40.928] { 1560s [00:52:40.928] ...future.startTime <- base::Sys.time() 1560s [00:52:40.928] { 1560s [00:52:40.928] { 1560s [00:52:40.928] { 1560s [00:52:40.928] base::local({ 1560s [00:52:40.928] has_future <- base::requireNamespace("future", 1560s [00:52:40.928] quietly = TRUE) 1560s [00:52:40.928] if (has_future) { 1560s [00:52:40.928] ns <- base::getNamespace("future") 1560s [00:52:40.928] version <- ns[[".package"]][["version"]] 1560s [00:52:40.928] if (is.null(version)) 1560s [00:52:40.928] version <- utils::packageVersion("future") 1560s [00:52:40.928] } 1560s [00:52:40.928] else { 1560s [00:52:40.928] version <- NULL 1560s [00:52:40.928] } 1560s [00:52:40.928] if (!has_future || version < "1.8.0") { 1560s [00:52:40.928] info <- base::c(r_version = base::gsub("R version ", 1560s [00:52:40.928] "", base::R.version$version.string), 1560s [00:52:40.928] platform = base::sprintf("%s (%s-bit)", 1560s [00:52:40.928] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1560s [00:52:40.928] os = base::paste(base::Sys.info()[base::c("sysname", 1560s [00:52:40.928] "release", "version")], collapse = " "), 1560s [00:52:40.928] hostname = base::Sys.info()[["nodename"]]) 1560s [00:52:40.928] info <- base::sprintf("%s: %s", base::names(info), 1560s [00:52:40.928] info) 1560s [00:52:40.928] info <- base::paste(info, collapse = "; ") 1560s [00:52:40.928] if (!has_future) { 1560s [00:52:40.928] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1560s [00:52:40.928] info) 1560s [00:52:40.928] } 1560s [00:52:40.928] else { 1560s [00:52:40.928] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1560s [00:52:40.928] info, version) 1560s [00:52:40.928] } 1560s [00:52:40.928] base::stop(msg) 1560s [00:52:40.928] } 1560s [00:52:40.928] }) 1560s [00:52:40.928] } 1560s [00:52:40.928] options(future.plan = NULL) 1560s [00:52:40.928] Sys.unsetenv("R_FUTURE_PLAN") 1560s [00:52:40.928] future::plan("default", .cleanup = FALSE, .init = FALSE) 1560s [00:52:40.928] } 1560s [00:52:40.928] ...future.workdir <- getwd() 1560s [00:52:40.928] } 1560s [00:52:40.928] ...future.oldOptions <- base::as.list(base::.Options) 1560s [00:52:40.928] ...future.oldEnvVars <- base::Sys.getenv() 1560s [00:52:40.928] } 1560s [00:52:40.928] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1560s [00:52:40.928] future.globals.maxSize = 1048576000, future.globals.method = NULL, 1560s [00:52:40.928] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1560s [00:52:40.928] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1560s [00:52:40.928] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1560s [00:52:40.928] future.stdout.windows.reencode = NULL, width = 80L) 1560s [00:52:40.928] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1560s [00:52:40.928] base::names(...future.oldOptions)) 1560s [00:52:40.928] } 1560s [00:52:40.928] if (FALSE) { 1560s [00:52:40.928] } 1560s [00:52:40.928] else { 1560s [00:52:40.928] if (TRUE) { 1560s [00:52:40.928] ...future.stdout <- base::rawConnection(base::raw(0L), 1560s [00:52:40.928] open = "w") 1560s [00:52:40.928] } 1560s [00:52:40.928] else { 1560s [00:52:40.928] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1560s [00:52:40.928] windows = "NUL", "/dev/null"), open = "w") 1560s [00:52:40.928] } 1560s [00:52:40.928] base::sink(...future.stdout, type = "output", split = FALSE) 1560s [00:52:40.928] base::on.exit(if (!base::is.null(...future.stdout)) { 1560s [00:52:40.928] base::sink(type = "output", split = FALSE) 1560s [00:52:40.928] base::close(...future.stdout) 1560s [00:52:40.928] }, add = TRUE) 1560s [00:52:40.928] } 1560s [00:52:40.928] ...future.frame <- base::sys.nframe() 1560s [00:52:40.928] ...future.conditions <- base::list() 1560s [00:52:40.928] ...future.rng <- base::globalenv()$.Random.seed 1560s [00:52:40.928] if (FALSE) { 1560s [00:52:40.928] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1560s [00:52:40.928] "...future.value", "...future.globalenv.names", ".Random.seed") 1560s [00:52:40.928] } 1560s [00:52:40.928] ...future.result <- base::tryCatch({ 1560s [00:52:40.928] base::withCallingHandlers({ 1560s [00:52:40.928] ...future.value <- base::withVisible(base::local({ 1560s [00:52:40.928] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1560s [00:52:40.928] if (!identical(...future.globals.maxSize.org, 1560s [00:52:40.928] ...future.globals.maxSize)) { 1560s [00:52:40.928] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1560s [00:52:40.928] on.exit(options(oopts), add = TRUE) 1560s [00:52:40.928] } 1560s [00:52:40.928] { 1560s [00:52:40.928] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1560s [00:52:40.928] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1560s [00:52:40.928] USE.NAMES = FALSE) 1560s [00:52:40.928] do.call(mapply, args = args) 1560s [00:52:40.928] } 1560s [00:52:40.928] })) 1560s [00:52:40.928] future::FutureResult(value = ...future.value$value, 1560s [00:52:40.928] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1560s [00:52:40.928] ...future.rng), globalenv = if (FALSE) 1560s [00:52:40.928] list(added = base::setdiff(base::names(base::.GlobalEnv), 1560s [00:52:40.928] ...future.globalenv.names)) 1560s [00:52:40.928] else NULL, started = ...future.startTime, version = "1.8") 1560s [00:52:40.928] }, condition = base::local({ 1560s [00:52:40.928] c <- base::c 1560s [00:52:40.928] inherits <- base::inherits 1560s [00:52:40.928] invokeRestart <- base::invokeRestart 1560s [00:52:40.928] length <- base::length 1560s [00:52:40.928] list <- base::list 1560s [00:52:40.928] seq.int <- base::seq.int 1560s [00:52:40.928] signalCondition <- base::signalCondition 1560s [00:52:40.928] sys.calls <- base::sys.calls 1560s [00:52:40.928] `[[` <- base::`[[` 1560s [00:52:40.928] `+` <- base::`+` 1560s [00:52:40.928] `<<-` <- base::`<<-` 1560s [00:52:40.928] sysCalls <- function(calls = sys.calls(), from = 1L) { 1560s [00:52:40.928] calls[seq.int(from = from + 12L, to = length(calls) - 1560s [00:52:40.928] 3L)] 1560s [00:52:40.928] } 1560s [00:52:40.928] function(cond) { 1560s [00:52:40.928] is_error <- inherits(cond, "error") 1560s [00:52:40.928] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1560s [00:52:40.928] NULL) 1560s [00:52:40.928] if (is_error) { 1560s [00:52:40.928] sessionInformation <- function() { 1560s [00:52:40.928] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1560s [00:52:40.928] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1560s [00:52:40.928] search = base::search(), system = base::Sys.info()) 1560s [00:52:40.928] } 1560s [00:52:40.928] ...future.conditions[[length(...future.conditions) + 1560s [00:52:40.928] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1560s [00:52:40.928] cond$call), session = sessionInformation(), 1560s [00:52:40.928] timestamp = base::Sys.time(), signaled = 0L) 1560s [00:52:40.928] signalCondition(cond) 1560s [00:52:40.928] } 1560s [00:52:40.928] else if (!ignore && TRUE && inherits(cond, c("condition", 1560s [00:52:40.928] "immediateCondition"))) { 1560s [00:52:40.928] signal <- TRUE && inherits(cond, "immediateCondition") 1560s [00:52:40.928] ...future.conditions[[length(...future.conditions) + 1560s [00:52:40.928] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1560s [00:52:40.928] if (TRUE && !signal) { 1560s [00:52:40.928] muffleCondition <- function (cond, pattern = "^muffle") 1560s [00:52:40.928] { 1560s [00:52:40.928] inherits <- base::inherits 1560s [00:52:40.928] invokeRestart <- base::invokeRestart 1560s [00:52:40.928] is.null <- base::is.null 1560s [00:52:40.928] muffled <- FALSE 1560s [00:52:40.928] if (inherits(cond, "message")) { 1560s [00:52:40.928] muffled <- grepl(pattern, "muffleMessage") 1560s [00:52:40.928] if (muffled) 1560s [00:52:40.928] invokeRestart("muffleMessage") 1560s [00:52:40.928] } 1560s [00:52:40.928] else if (inherits(cond, "warning")) { 1560s [00:52:40.928] muffled <- grepl(pattern, "muffleWarning") 1560s [00:52:40.928] if (muffled) 1560s [00:52:40.928] invokeRestart("muffleWarning") 1560s [00:52:40.928] } 1560s [00:52:40.928] else if (inherits(cond, "condition")) { 1560s [00:52:40.928] if (!is.null(pattern)) { 1560s [00:52:40.928] computeRestarts <- base::computeRestarts 1560s [00:52:40.928] grepl <- base::grepl 1560s [00:52:40.928] restarts <- computeRestarts(cond) 1560s [00:52:40.928] for (restart in restarts) { 1560s [00:52:40.928] name <- restart$name 1560s [00:52:40.928] if (is.null(name)) 1560s [00:52:40.928] next 1560s [00:52:40.928] if (!grepl(pattern, name)) 1560s [00:52:40.928] next 1560s [00:52:40.928] invokeRestart(restart) 1560s [00:52:40.928] muffled <- TRUE 1560s [00:52:40.928] break 1560s [00:52:40.928] } 1560s [00:52:40.928] } 1560s [00:52:40.928] } 1560s [00:52:40.928] invisible(muffled) 1560s [00:52:40.928] } 1560s [00:52:40.928] muffleCondition(cond, pattern = "^muffle") 1560s [00:52:40.928] } 1560s [00:52:40.928] } 1560s [00:52:40.928] else { 1560s [00:52:40.928] if (TRUE) { 1560s [00:52:40.928] muffleCondition <- function (cond, pattern = "^muffle") 1560s [00:52:40.928] { 1560s [00:52:40.928] inherits <- base::inherits 1560s [00:52:40.928] invokeRestart <- base::invokeRestart 1560s [00:52:40.928] is.null <- base::is.null 1560s [00:52:40.928] muffled <- FALSE 1560s [00:52:40.928] if (inherits(cond, "message")) { 1560s [00:52:40.928] muffled <- grepl(pattern, "muffleMessage") 1560s [00:52:40.928] if (muffled) 1560s [00:52:40.928] invokeRestart("muffleMessage") 1560s [00:52:40.928] } 1560s [00:52:40.928] else if (inherits(cond, "warning")) { 1560s [00:52:40.928] muffled <- grepl(pattern, "muffleWarning") 1560s [00:52:40.928] if (muffled) 1560s [00:52:40.928] invokeRestart("muffleWarning") 1560s [00:52:40.928] } 1560s [00:52:40.928] else if (inherits(cond, "condition")) { 1560s [00:52:40.928] if (!is.null(pattern)) { 1560s [00:52:40.928] computeRestarts <- base::computeRestarts 1560s [00:52:40.928] grepl <- base::grepl 1560s [00:52:40.928] restarts <- computeRestarts(cond) 1560s [00:52:40.928] for (restart in restarts) { 1560s [00:52:40.928] name <- restart$name 1560s [00:52:40.928] if (is.null(name)) 1560s [00:52:40.928] next 1560s [00:52:40.928] if (!grepl(pattern, name)) 1560s [00:52:40.928] next 1560s [00:52:40.928] invokeRestart(restart) 1560s [00:52:40.928] muffled <- TRUE 1560s [00:52:40.928] break 1560s [00:52:40.928] } 1560s [00:52:40.928] } 1560s [00:52:40.928] } 1560s [00:52:40.928] invisible(muffled) 1560s [00:52:40.928] } 1560s [00:52:40.928] muffleCondition(cond, pattern = "^muffle") 1560s [00:52:40.928] } 1560s [00:52:40.928] } 1560s [00:52:40.928] } 1560s [00:52:40.928] })) 1560s [00:52:40.928] }, error = function(ex) { 1560s [00:52:40.928] base::structure(base::list(value = NULL, visible = NULL, 1560s [00:52:40.928] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1560s [00:52:40.928] ...future.rng), started = ...future.startTime, 1560s [00:52:40.928] finished = Sys.time(), session_uuid = NA_character_, 1560s [00:52:40.928] version = "1.8"), class = "FutureResult") 1560s [00:52:40.928] }, finally = { 1560s [00:52:40.928] if (!identical(...future.workdir, getwd())) 1560s [00:52:40.928] setwd(...future.workdir) 1560s [00:52:40.928] { 1560s [00:52:40.928] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1560s [00:52:40.928] ...future.oldOptions$nwarnings <- NULL 1560s [00:52:40.928] } 1560s [00:52:40.928] base::options(...future.oldOptions) 1560s [00:52:40.928] if (.Platform$OS.type == "windows") { 1560s [00:52:40.928] old_names <- names(...future.oldEnvVars) 1560s [00:52:40.928] envs <- base::Sys.getenv() 1560s [00:52:40.928] names <- names(envs) 1560s [00:52:40.928] common <- intersect(names, old_names) 1560s [00:52:40.928] added <- setdiff(names, old_names) 1560s [00:52:40.928] removed <- setdiff(old_names, names) 1560s [00:52:40.928] changed <- common[...future.oldEnvVars[common] != 1560s [00:52:40.928] envs[common]] 1560s [00:52:40.928] NAMES <- toupper(changed) 1560s [00:52:40.928] args <- list() 1560s [00:52:40.928] for (kk in seq_along(NAMES)) { 1560s [00:52:40.928] name <- changed[[kk]] 1560s [00:52:40.928] NAME <- NAMES[[kk]] 1560s [00:52:40.928] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.928] next 1560s [00:52:40.928] args[[name]] <- ...future.oldEnvVars[[name]] 1560s [00:52:40.928] } 1560s [00:52:40.928] NAMES <- toupper(added) 1560s [00:52:40.928] for (kk in seq_along(NAMES)) { 1560s [00:52:40.928] name <- added[[kk]] 1560s [00:52:40.928] NAME <- NAMES[[kk]] 1560s [00:52:40.928] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.928] next 1560s [00:52:40.928] args[[name]] <- "" 1560s [00:52:40.928] } 1560s [00:52:40.928] NAMES <- toupper(removed) 1560s [00:52:40.928] for (kk in seq_along(NAMES)) { 1560s [00:52:40.928] name <- removed[[kk]] 1560s [00:52:40.928] NAME <- NAMES[[kk]] 1560s [00:52:40.928] if (name != NAME && is.element(NAME, old_names)) 1560s [00:52:40.928] next 1560s [00:52:40.928] args[[name]] <- ...future.oldEnvVars[[name]] 1560s [00:52:40.928] } 1560s [00:52:40.928] if (length(args) > 0) 1560s [00:52:40.928] base::do.call(base::Sys.setenv, args = args) 1560s [00:52:40.928] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1560s [00:52:40.928] } 1560s [00:52:40.928] else { 1560s [00:52:40.928] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1560s [00:52:40.928] } 1560s [00:52:40.928] { 1560s [00:52:40.928] if (base::length(...future.futureOptionsAdded) > 1560s [00:52:40.928] 0L) { 1560s [00:52:40.928] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1560s [00:52:40.928] base::names(opts) <- ...future.futureOptionsAdded 1560s [00:52:40.928] base::options(opts) 1560s [00:52:40.928] } 1560s [00:52:40.928] { 1560s [00:52:40.928] { 1560s [00:52:40.928] base::assign(".Random.seed", c(10407L, -1319993016L, 1560s [00:52:40.928] 1571290074L, -859112415L, -853775137L, 1440155893L, 1560s [00:52:40.928] -732328588L), envir = base::globalenv(), 1560s [00:52:40.928] inherits = FALSE) 1560s [00:52:40.928] NULL 1560s [00:52:40.928] } 1560s [00:52:40.928] options(future.plan = NULL) 1560s [00:52:40.928] if (is.na(NA_character_)) 1560s [00:52:40.928] Sys.unsetenv("R_FUTURE_PLAN") 1560s [00:52:40.928] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1560s [00:52:40.928] future::plan(list(function (..., envir = parent.frame()) 1560s [00:52:40.928] { 1560s [00:52:40.928] future <- SequentialFuture(..., envir = envir) 1560s [00:52:40.928] if (!future$lazy) 1560s [00:52:40.928] future <- run(future) 1560s [00:52:40.928] invisible(future) 1560s [00:52:40.928] }), .cleanup = FALSE, .init = FALSE) 1560s [00:52:40.928] } 1560s [00:52:40.928] } 1560s [00:52:40.928] } 1560s [00:52:40.928] }) 1560s [00:52:40.928] if (TRUE) { 1560s [00:52:40.928] base::sink(type = "output", split = FALSE) 1560s [00:52:40.928] if (TRUE) { 1560s [00:52:40.928] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1560s [00:52:40.928] } 1560s [00:52:40.928] else { 1560s [00:52:40.928] ...future.result["stdout"] <- base::list(NULL) 1560s [00:52:40.928] } 1560s [00:52:40.928] base::close(...future.stdout) 1560s [00:52:40.928] ...future.stdout <- NULL 1560s [00:52:40.928] } 1560s [00:52:40.928] ...future.result$conditions <- ...future.conditions 1560s [00:52:40.928] ...future.result$finished <- base::Sys.time() 1560s [00:52:40.928] ...future.result 1560s [00:52:40.928] } 1560s [00:52:40.934] assign_globals() ... 1560s [00:52:40.934] List of 5 1560s [00:52:40.934] $ ...future.FUN :function (C, k) 1560s [00:52:40.934] $ MoreArgs : NULL 1560s [00:52:40.934] $ ...future.elements_ii :List of 2 1560s [00:52:40.934] ..$ :List of 3 1560s [00:52:40.934] .. ..$ : chr "C" 1560s [00:52:40.934] .. ..$ : chr "B" 1560s [00:52:40.934] .. ..$ : chr "A" 1560s [00:52:40.934] ..$ :List of 3 1560s [00:52:40.934] .. ..$ : int 3 1560s [00:52:40.934] .. ..$ : int 4 1560s [00:52:40.934] .. ..$ : int 5 1560s [00:52:40.934] $ ...future.seeds_ii : NULL 1560s [00:52:40.934] $ ...future.globals.maxSize: NULL 1560s [00:52:40.934] - attr(*, "where")=List of 5 1560s [00:52:40.934] ..$ ...future.FUN : 1560s [00:52:40.934] ..$ MoreArgs : 1560s [00:52:40.934] ..$ ...future.elements_ii : 1560s [00:52:40.934] ..$ ...future.seeds_ii : 1560s [00:52:40.934] ..$ ...future.globals.maxSize: 1560s [00:52:40.934] - attr(*, "resolved")= logi FALSE 1560s [00:52:40.934] - attr(*, "total_size")= num 3824 1560s [00:52:40.934] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1560s [00:52:40.934] - attr(*, "already-done")= logi TRUE 1560s [00:52:40.943] - reassign environment for ‘...future.FUN’ 1560s [00:52:40.943] - copied ‘...future.FUN’ to environment 1560s [00:52:40.943] - copied ‘MoreArgs’ to environment 1560s [00:52:40.944] - copied ‘...future.elements_ii’ to environment 1560s [00:52:40.944] - copied ‘...future.seeds_ii’ to environment 1560s [00:52:40.944] - copied ‘...future.globals.maxSize’ to environment 1560s [00:52:40.944] assign_globals() ... done 1560s [00:52:40.944] plan(): Setting new future strategy stack: 1560s [00:52:40.945] List of future strategies: 1560s [00:52:40.945] 1. sequential: 1560s [00:52:40.945] - args: function (..., envir = parent.frame()) 1560s [00:52:40.945] - tweaked: FALSE 1560s [00:52:40.945] - call: NULL 1560s [00:52:40.945] plan(): nbrOfWorkers() = 1 1560s [00:52:40.946] plan(): Setting new future strategy stack: 1560s [00:52:40.946] List of future strategies: 1560s [00:52:40.946] 1. sequential: 1560s [00:52:40.946] - args: function (..., envir = parent.frame()) 1560s [00:52:40.946] - tweaked: FALSE 1560s [00:52:40.946] - call: plan(strategy) 1560s [00:52:40.946] plan(): nbrOfWorkers() = 1 1560s [00:52:40.946] SequentialFuture started (and completed) 1560s [00:52:40.947] - Launch lazy future ... done 1560s [00:52:40.947] run() for ‘SequentialFuture’ ... done 1560s [00:52:40.947] Created future: 1560s [00:52:40.947] SequentialFuture: 1560s [00:52:40.947] Label: ‘future_mapply-2’ 1560s [00:52:40.947] Expression: 1560s [00:52:40.947] { 1560s [00:52:40.947] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1560s [00:52:40.947] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1560s [00:52:40.947] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1560s [00:52:40.947] on.exit(options(oopts), add = TRUE) 1560s [00:52:40.947] } 1560s [00:52:40.947] { 1560s [00:52:40.947] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1560s [00:52:40.947] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1560s [00:52:40.947] do.call(mapply, args = args) 1560s [00:52:40.947] } 1560s [00:52:40.947] } 1560s [00:52:40.947] Lazy evaluation: FALSE 1560s [00:52:40.947] Asynchronous evaluation: FALSE 1560s [00:52:40.947] Local evaluation: TRUE 1560s [00:52:40.947] Environment: R_GlobalEnv 1560s [00:52:40.947] Capture standard output: TRUE 1560s [00:52:40.947] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1560s [00:52:40.947] Globals: 5 objects totaling 3.73 KiB (function ‘...future.FUN’ of 3.24 KiB, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 504 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1560s [00:52:40.947] Packages: 1560s [00:52:40.947] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1560s [00:52:40.947] Resolved: TRUE 1560s [00:52:40.947] Value: 336 bytes of class ‘list’ 1560s [00:52:40.947] Early signaling: FALSE 1560s [00:52:40.947] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1560s [00:52:40.947] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1560s [00:52:40.948] Chunk #2 of 2 ... DONE 1560s [00:52:40.948] Launching 2 futures (chunks) ... DONE 1560s [00:52:40.948] Resolving 2 futures (chunks) ... 1560s [00:52:40.948] resolve() on list ... 1560s [00:52:40.948] recursive: 0 1560s [00:52:40.949] length: 2 1560s [00:52:40.949] 1560s [00:52:40.949] resolved() for ‘SequentialFuture’ ... 1560s [00:52:40.949] - state: ‘finished’ 1560s [00:52:40.949] - run: TRUE 1560s [00:52:40.949] - result: ‘FutureResult’ 1560s [00:52:40.949] resolved() for ‘SequentialFuture’ ... done 1560s [00:52:40.949] Future #1 1560s [00:52:40.950] signalConditionsASAP(SequentialFuture, pos=1) ... 1560s [00:52:40.950] - nx: 2 1560s [00:52:40.950] - relay: TRUE 1560s [00:52:40.950] - stdout: TRUE 1560s [00:52:40.950] - signal: TRUE 1560s [00:52:40.950] - resignal: FALSE 1560s [00:52:40.950] - force: TRUE 1560s [00:52:40.951] - relayed: [n=2] FALSE, FALSE 1560s [00:52:40.951] - queued futures: [n=2] FALSE, FALSE 1560s [00:52:40.951] - until=1 1560s [00:52:40.951] - relaying element #1 1560s [00:52:40.951] - relayed: [n=2] TRUE, FALSE 1560s [00:52:40.951] - queued futures: [n=2] TRUE, FALSE 1560s [00:52:40.952] signalConditionsASAP(SequentialFuture, pos=1) ... done 1560s [00:52:40.952] length: 1 (resolved future 1) 1560s [00:52:40.952] resolved() for ‘SequentialFuture’ ... 1560s [00:52:40.952] - state: ‘finished’ 1560s [00:52:40.952] - run: TRUE 1560s [00:52:40.952] - result: ‘FutureResult’ 1560s [00:52:40.953] resolved() for ‘SequentialFuture’ ... done 1560s [00:52:40.954] Future #2 1560s [00:52:40.955] signalConditionsASAP(SequentialFuture, pos=2) ... 1560s [00:52:40.955] - nx: 2 1560s [00:52:40.955] - relay: TRUE 1560s [00:52:40.955] - stdout: TRUE 1560s [00:52:40.955] - signal: TRUE 1560s [00:52:40.955] - resignal: FALSE 1560s [00:52:40.956] - force: TRUE 1560s [00:52:40.956] - relayed: [n=2] TRUE, FALSE 1560s [00:52:40.956] - queued futures: [n=2] TRUE, FALSE 1560s [00:52:40.956] - until=2 1560s [00:52:40.956] - relaying element #2 1560s [00:52:40.957] - relayed: [n=2] TRUE, TRUE 1560s [00:52:40.957] - queued futures: [n=2] TRUE, TRUE 1560s [00:52:40.957] signalConditionsASAP(SequentialFuture, pos=2) ... done 1560s [00:52:40.957] length: 0 (resolved future 2) 1560s [00:52:40.958] Relaying remaining futures 1560s [00:52:40.958] signalConditionsASAP(NULL, pos=0) ... 1560s [00:52:40.958] - nx: 2 1560s [00:52:40.958] - relay: TRUE 1560s [00:52:40.958] - stdout: TRUE 1560s [00:52:40.958] - signal: TRUE 1560s [00:52:40.958] - resignal: FALSE 1560s [00:52:40.958] - force: TRUE 1560s [00:52:40.959] - relayed: [n=2] TRUE, TRUE 1560s [00:52:40.959] - queued futures: [n=2] TRUE, TRUE 1560s - flush all 1560s [00:52:40.959] - relayed: [n=2] TRUE, TRUE 1560s [00:52:40.959] - queued futures: [n=2] TRUE, TRUE 1560s [00:52:40.959] signalConditionsASAP(NULL, pos=0) ... done 1560s [00:52:40.959] resolve() on list ... DONE 1560s [00:52:40.959] - Number of value chunks collected: 2 1560s [00:52:40.960] Resolving 2 futures (chunks) ... DONE 1560s [00:52:40.960] Reducing values from 2 chunks ... 1560s [00:52:40.960] - Number of values collected after concatenation: 5 1560s [00:52:40.960] - Number of values expected: 5 1560s [00:52:40.960] Reverse index remapping (attribute 'ordering'): [n = 5] 5, 4, 3, 2, 1 1560s [00:52:40.960] Reducing values from 2 chunks ... DONE 1560s [00:52:40.960] future_mapply() ... DONE 1560s [00:52:40.961] future_mapply() ... 1560s [00:52:40.961] Number of chunks: 1 1560s [00:52:40.961] getGlobalsAndPackagesXApply() ... 1560s [00:52:40.961] - future.globals: TRUE 1560s [00:52:40.962] getGlobalsAndPackages() ... 1560s [00:52:40.962] Searching for globals... 1560s [00:52:40.963] - globals found: [3] ‘FUN’, ‘paste’, ‘rep.int’ 1560s [00:52:40.963] Searching for globals ... DONE 1560s [00:52:40.964] Resolving globals: FALSE 1560s [00:52:40.964] The total size of the 1 globals is 3.24 KiB (3320 bytes) 1560s [00:52:40.964] The total size of the 1 globals exported for future expression (‘FUN()’) is 3.24 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (3.24 KiB of class ‘function’) 1560s [00:52:40.965] - globals: [1] ‘FUN’ 1560s [00:52:40.965] 1560s [00:52:40.965] getGlobalsAndPackages() ... DONE 1560s [00:52:40.965] - globals found/used: [n=1] ‘FUN’ 1560s [00:52:40.965] - needed namespaces: [n=0] 1560s [00:52:40.965] Finding globals ... DONE 1560s [00:52:40.966] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1561s [00:52:40.966] List of 2 1561s [00:52:40.966] $ ...future.FUN:function (C, k) 1561s [00:52:40.966] $ MoreArgs : list() 1561s [00:52:40.966] - attr(*, "where")=List of 2 1561s [00:52:40.966] ..$ ...future.FUN: 1561s [00:52:40.966] ..$ MoreArgs : 1561s [00:52:40.966] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1561s [00:52:40.966] - attr(*, "resolved")= logi FALSE 1561s [00:52:40.966] - attr(*, "total_size")= num NA 1561s [00:52:40.970] Packages to be attached in all futures: [n=0] 1561s [00:52:40.970] getGlobalsAndPackagesXApply() ... DONE 1561s [00:52:40.970] Number of futures (= number of chunks): 1 1561s [00:52:40.970] Launching 1 futures (chunks) ... 1561s [00:52:40.970] Chunk #1 of 1 ... 1561s [00:52:40.970] - Finding globals in '...' for chunk #1 ... 1561s [00:52:40.971] getGlobalsAndPackages() ... 1561s [00:52:40.971] Searching for globals... 1561s [00:52:40.971] 1561s [00:52:40.971] Searching for globals ... DONE 1561s [00:52:40.972] - globals: [0] 1561s [00:52:40.972] getGlobalsAndPackages() ... DONE 1561s [00:52:40.972] + additional globals found: [n=0] 1561s [00:52:40.972] + additional namespaces needed: [n=0] 1561s [00:52:40.972] - Finding globals in '...' for chunk #1 ... DONE 1561s [00:52:40.972] - seeds: 1561s [00:52:40.972] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:40.973] getGlobalsAndPackages() ... 1561s [00:52:40.973] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:40.973] Resolving globals: FALSE 1561s [00:52:40.974] The total size of the 5 globals is 4.06 KiB (4160 bytes) 1561s [00:52:40.974] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 4.06 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (3.24 KiB of class ‘function’), ‘...future.elements_ii’ (840 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘list’) 1561s [00:52:40.974] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:40.975] 1561s [00:52:40.975] getGlobalsAndPackages() ... DONE 1561s [00:52:40.975] run() for ‘Future’ ... 1561s [00:52:40.976] - state: ‘created’ 1561s [00:52:40.976] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1561s [00:52:40.976] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1561s [00:52:40.976] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1561s [00:52:40.977] - Field: ‘label’ 1561s [00:52:40.977] - Field: ‘local’ 1561s [00:52:40.977] - Field: ‘owner’ 1561s [00:52:40.977] - Field: ‘envir’ 1561s [00:52:40.977] - Field: ‘packages’ 1561s [00:52:40.977] - Field: ‘gc’ 1561s [00:52:40.977] - Field: ‘conditions’ 1561s [00:52:40.978] - Field: ‘expr’ 1561s [00:52:40.978] - Field: ‘uuid’ 1561s [00:52:40.978] - Field: ‘seed’ 1561s [00:52:40.978] - Field: ‘version’ 1561s [00:52:40.978] - Field: ‘result’ 1561s [00:52:40.978] - Field: ‘asynchronous’ 1561s [00:52:40.978] - Field: ‘calls’ 1561s [00:52:40.979] - Field: ‘globals’ 1561s [00:52:40.979] - Field: ‘stdout’ 1561s [00:52:40.979] - Field: ‘earlySignal’ 1561s [00:52:40.979] - Field: ‘lazy’ 1561s [00:52:40.979] - Field: ‘state’ 1561s [00:52:40.979] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1561s [00:52:40.979] - Launch lazy future ... 1561s [00:52:40.980] Packages needed by the future expression (n = 0): 1561s [00:52:40.980] Packages needed by future strategies (n = 0): 1561s [00:52:40.981] { 1561s [00:52:40.981] { 1561s [00:52:40.981] { 1561s [00:52:40.981] ...future.startTime <- base::Sys.time() 1561s [00:52:40.981] { 1561s [00:52:40.981] { 1561s [00:52:40.981] { 1561s [00:52:40.981] base::local({ 1561s [00:52:40.981] has_future <- base::requireNamespace("future", 1561s [00:52:40.981] quietly = TRUE) 1561s [00:52:40.981] if (has_future) { 1561s [00:52:40.981] ns <- base::getNamespace("future") 1561s [00:52:40.981] version <- ns[[".package"]][["version"]] 1561s [00:52:40.981] if (is.null(version)) 1561s [00:52:40.981] version <- utils::packageVersion("future") 1561s [00:52:40.981] } 1561s [00:52:40.981] else { 1561s [00:52:40.981] version <- NULL 1561s [00:52:40.981] } 1561s [00:52:40.981] if (!has_future || version < "1.8.0") { 1561s [00:52:40.981] info <- base::c(r_version = base::gsub("R version ", 1561s [00:52:40.981] "", base::R.version$version.string), 1561s [00:52:40.981] platform = base::sprintf("%s (%s-bit)", 1561s [00:52:40.981] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1561s [00:52:40.981] os = base::paste(base::Sys.info()[base::c("sysname", 1561s [00:52:40.981] "release", "version")], collapse = " "), 1561s [00:52:40.981] hostname = base::Sys.info()[["nodename"]]) 1561s [00:52:40.981] info <- base::sprintf("%s: %s", base::names(info), 1561s [00:52:40.981] info) 1561s [00:52:40.981] info <- base::paste(info, collapse = "; ") 1561s [00:52:40.981] if (!has_future) { 1561s [00:52:40.981] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1561s [00:52:40.981] info) 1561s [00:52:40.981] } 1561s [00:52:40.981] else { 1561s [00:52:40.981] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1561s [00:52:40.981] info, version) 1561s [00:52:40.981] } 1561s [00:52:40.981] base::stop(msg) 1561s [00:52:40.981] } 1561s [00:52:40.981] }) 1561s [00:52:40.981] } 1561s [00:52:40.981] options(future.plan = NULL) 1561s [00:52:40.981] Sys.unsetenv("R_FUTURE_PLAN") 1561s [00:52:40.981] future::plan("default", .cleanup = FALSE, .init = FALSE) 1561s [00:52:40.981] } 1561s [00:52:40.981] ...future.workdir <- getwd() 1561s [00:52:40.981] } 1561s [00:52:40.981] ...future.oldOptions <- base::as.list(base::.Options) 1561s [00:52:40.981] ...future.oldEnvVars <- base::Sys.getenv() 1561s [00:52:40.981] } 1561s [00:52:40.981] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1561s [00:52:40.981] future.globals.maxSize = NULL, future.globals.method = NULL, 1561s [00:52:40.981] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1561s [00:52:40.981] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1561s [00:52:40.981] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1561s [00:52:40.981] future.stdout.windows.reencode = NULL, width = 80L) 1561s [00:52:40.981] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1561s [00:52:40.981] base::names(...future.oldOptions)) 1561s [00:52:40.981] } 1561s [00:52:40.981] if (FALSE) { 1561s [00:52:40.981] } 1561s [00:52:40.981] else { 1561s [00:52:40.981] if (TRUE) { 1561s [00:52:40.981] ...future.stdout <- base::rawConnection(base::raw(0L), 1561s [00:52:40.981] open = "w") 1561s [00:52:40.981] } 1561s [00:52:40.981] else { 1561s [00:52:40.981] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1561s [00:52:40.981] windows = "NUL", "/dev/null"), open = "w") 1561s [00:52:40.981] } 1561s [00:52:40.981] base::sink(...future.stdout, type = "output", split = FALSE) 1561s [00:52:40.981] base::on.exit(if (!base::is.null(...future.stdout)) { 1561s [00:52:40.981] base::sink(type = "output", split = FALSE) 1561s [00:52:40.981] base::close(...future.stdout) 1561s [00:52:40.981] }, add = TRUE) 1561s [00:52:40.981] } 1561s [00:52:40.981] ...future.frame <- base::sys.nframe() 1561s [00:52:40.981] ...future.conditions <- base::list() 1561s [00:52:40.981] ...future.rng <- base::globalenv()$.Random.seed 1561s [00:52:40.981] if (FALSE) { 1561s [00:52:40.981] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1561s [00:52:40.981] "...future.value", "...future.globalenv.names", ".Random.seed") 1561s [00:52:40.981] } 1561s [00:52:40.981] ...future.result <- base::tryCatch({ 1561s [00:52:40.981] base::withCallingHandlers({ 1561s [00:52:40.981] ...future.value <- base::withVisible(base::local({ 1561s [00:52:40.981] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1561s [00:52:40.981] if (!identical(...future.globals.maxSize.org, 1561s [00:52:40.981] ...future.globals.maxSize)) { 1561s [00:52:40.981] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1561s [00:52:40.981] on.exit(options(oopts), add = TRUE) 1561s [00:52:40.981] } 1561s [00:52:40.981] { 1561s [00:52:40.981] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1561s [00:52:40.981] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1561s [00:52:40.981] USE.NAMES = FALSE) 1561s [00:52:40.981] do.call(mapply, args = args) 1561s [00:52:40.981] } 1561s [00:52:40.981] })) 1561s [00:52:40.981] future::FutureResult(value = ...future.value$value, 1561s [00:52:40.981] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1561s [00:52:40.981] ...future.rng), globalenv = if (FALSE) 1561s [00:52:40.981] list(added = base::setdiff(base::names(base::.GlobalEnv), 1561s [00:52:40.981] ...future.globalenv.names)) 1561s [00:52:40.981] else NULL, started = ...future.startTime, version = "1.8") 1561s [00:52:40.981] }, condition = base::local({ 1561s [00:52:40.981] c <- base::c 1561s [00:52:40.981] inherits <- base::inherits 1561s [00:52:40.981] invokeRestart <- base::invokeRestart 1561s [00:52:40.981] length <- base::length 1561s [00:52:40.981] list <- base::list 1561s [00:52:40.981] seq.int <- base::seq.int 1561s [00:52:40.981] signalCondition <- base::signalCondition 1561s [00:52:40.981] sys.calls <- base::sys.calls 1561s [00:52:40.981] `[[` <- base::`[[` 1561s [00:52:40.981] `+` <- base::`+` 1561s [00:52:40.981] `<<-` <- base::`<<-` 1561s [00:52:40.981] sysCalls <- function(calls = sys.calls(), from = 1L) { 1561s [00:52:40.981] calls[seq.int(from = from + 12L, to = length(calls) - 1561s [00:52:40.981] 3L)] 1561s [00:52:40.981] } 1561s [00:52:40.981] function(cond) { 1561s [00:52:40.981] is_error <- inherits(cond, "error") 1561s [00:52:40.981] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1561s [00:52:40.981] NULL) 1561s [00:52:40.981] if (is_error) { 1561s [00:52:40.981] sessionInformation <- function() { 1561s [00:52:40.981] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1561s [00:52:40.981] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1561s [00:52:40.981] search = base::search(), system = base::Sys.info()) 1561s [00:52:40.981] } 1561s [00:52:40.981] ...future.conditions[[length(...future.conditions) + 1561s [00:52:40.981] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1561s [00:52:40.981] cond$call), session = sessionInformation(), 1561s [00:52:40.981] timestamp = base::Sys.time(), signaled = 0L) 1561s [00:52:40.981] signalCondition(cond) 1561s [00:52:40.981] } 1561s [00:52:40.981] else if (!ignore && TRUE && inherits(cond, c("condition", 1561s [00:52:40.981] "immediateCondition"))) { 1561s [00:52:40.981] signal <- TRUE && inherits(cond, "immediateCondition") 1561s [00:52:40.981] ...future.conditions[[length(...future.conditions) + 1561s [00:52:40.981] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1561s [00:52:40.981] if (TRUE && !signal) { 1561s [00:52:40.981] muffleCondition <- function (cond, pattern = "^muffle") 1561s [00:52:40.981] { 1561s [00:52:40.981] inherits <- base::inherits 1561s [00:52:40.981] invokeRestart <- base::invokeRestart 1561s [00:52:40.981] is.null <- base::is.null 1561s [00:52:40.981] muffled <- FALSE 1561s [00:52:40.981] if (inherits(cond, "message")) { 1561s [00:52:40.981] muffled <- grepl(pattern, "muffleMessage") 1561s [00:52:40.981] if (muffled) 1561s [00:52:40.981] invokeRestart("muffleMessage") 1561s [00:52:40.981] } 1561s [00:52:40.981] else if (inherits(cond, "warning")) { 1561s [00:52:40.981] muffled <- grepl(pattern, "muffleWarning") 1561s [00:52:40.981] if (muffled) 1561s [00:52:40.981] invokeRestart("muffleWarning") 1561s [00:52:40.981] } 1561s [00:52:40.981] else if (inherits(cond, "condition")) { 1561s [00:52:40.981] if (!is.null(pattern)) { 1561s [00:52:40.981] computeRestarts <- base::computeRestarts 1561s [00:52:40.981] grepl <- base::grepl 1561s [00:52:40.981] restarts <- computeRestarts(cond) 1561s [00:52:40.981] for (restart in restarts) { 1561s [00:52:40.981] name <- restart$name 1561s [00:52:40.981] if (is.null(name)) 1561s [00:52:40.981] next 1561s [00:52:40.981] if (!grepl(pattern, name)) 1561s [00:52:40.981] next 1561s [00:52:40.981] invokeRestart(restart) 1561s [00:52:40.981] muffled <- TRUE 1561s [00:52:40.981] break 1561s [00:52:40.981] } 1561s [00:52:40.981] } 1561s [00:52:40.981] } 1561s [00:52:40.981] invisible(muffled) 1561s [00:52:40.981] } 1561s [00:52:40.981] muffleCondition(cond, pattern = "^muffle") 1561s [00:52:40.981] } 1561s [00:52:40.981] } 1561s [00:52:40.981] else { 1561s [00:52:40.981] if (TRUE) { 1561s [00:52:40.981] muffleCondition <- function (cond, pattern = "^muffle") 1561s [00:52:40.981] { 1561s [00:52:40.981] inherits <- base::inherits 1561s [00:52:40.981] invokeRestart <- base::invokeRestart 1561s [00:52:40.981] is.null <- base::is.null 1561s [00:52:40.981] muffled <- FALSE 1561s [00:52:40.981] if (inherits(cond, "message")) { 1561s [00:52:40.981] muffled <- grepl(pattern, "muffleMessage") 1561s [00:52:40.981] if (muffled) 1561s [00:52:40.981] invokeRestart("muffleMessage") 1561s [00:52:40.981] } 1561s [00:52:40.981] else if (inherits(cond, "warning")) { 1561s [00:52:40.981] muffled <- grepl(pattern, "muffleWarning") 1561s [00:52:40.981] if (muffled) 1561s [00:52:40.981] invokeRestart("muffleWarning") 1561s [00:52:40.981] } 1561s [00:52:40.981] else if (inherits(cond, "condition")) { 1561s [00:52:40.981] if (!is.null(pattern)) { 1561s [00:52:40.981] computeRestarts <- base::computeRestarts 1561s [00:52:40.981] grepl <- base::grepl 1561s [00:52:40.981] restarts <- computeRestarts(cond) 1561s [00:52:40.981] for (restart in restarts) { 1561s [00:52:40.981] name <- restart$name 1561s [00:52:40.981] if (is.null(name)) 1561s [00:52:40.981] next 1561s [00:52:40.981] if (!grepl(pattern, name)) 1561s [00:52:40.981] next 1561s [00:52:40.981] invokeRestart(restart) 1561s [00:52:40.981] muffled <- TRUE 1561s [00:52:40.981] break 1561s [00:52:40.981] } 1561s [00:52:40.981] } 1561s [00:52:40.981] } 1561s [00:52:40.981] invisible(muffled) 1561s [00:52:40.981] } 1561s [00:52:40.981] muffleCondition(cond, pattern = "^muffle") 1561s [00:52:40.981] } 1561s [00:52:40.981] } 1561s [00:52:40.981] } 1561s [00:52:40.981] })) 1561s [00:52:40.981] }, error = function(ex) { 1561s [00:52:40.981] base::structure(base::list(value = NULL, visible = NULL, 1561s [00:52:40.981] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1561s [00:52:40.981] ...future.rng), started = ...future.startTime, 1561s [00:52:40.981] finished = Sys.time(), session_uuid = NA_character_, 1561s [00:52:40.981] version = "1.8"), class = "FutureResult") 1561s [00:52:40.981] }, finally = { 1561s [00:52:40.981] if (!identical(...future.workdir, getwd())) 1561s [00:52:40.981] setwd(...future.workdir) 1561s [00:52:40.981] { 1561s [00:52:40.981] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1561s [00:52:40.981] ...future.oldOptions$nwarnings <- NULL 1561s [00:52:40.981] } 1561s [00:52:40.981] base::options(...future.oldOptions) 1561s [00:52:40.981] if (.Platform$OS.type == "windows") { 1561s [00:52:40.981] old_names <- names(...future.oldEnvVars) 1561s [00:52:40.981] envs <- base::Sys.getenv() 1561s [00:52:40.981] names <- names(envs) 1561s [00:52:40.981] common <- intersect(names, old_names) 1561s [00:52:40.981] added <- setdiff(names, old_names) 1561s [00:52:40.981] removed <- setdiff(old_names, names) 1561s [00:52:40.981] changed <- common[...future.oldEnvVars[common] != 1561s [00:52:40.981] envs[common]] 1561s [00:52:40.981] NAMES <- toupper(changed) 1561s [00:52:40.981] args <- list() 1561s [00:52:40.981] for (kk in seq_along(NAMES)) { 1561s [00:52:40.981] name <- changed[[kk]] 1561s [00:52:40.981] NAME <- NAMES[[kk]] 1561s [00:52:40.981] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:40.981] next 1561s [00:52:40.981] args[[name]] <- ...future.oldEnvVars[[name]] 1561s [00:52:40.981] } 1561s [00:52:40.981] NAMES <- toupper(added) 1561s [00:52:40.981] for (kk in seq_along(NAMES)) { 1561s [00:52:40.981] name <- added[[kk]] 1561s [00:52:40.981] NAME <- NAMES[[kk]] 1561s [00:52:40.981] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:40.981] next 1561s [00:52:40.981] args[[name]] <- "" 1561s [00:52:40.981] } 1561s [00:52:40.981] NAMES <- toupper(removed) 1561s [00:52:40.981] for (kk in seq_along(NAMES)) { 1561s [00:52:40.981] name <- removed[[kk]] 1561s [00:52:40.981] NAME <- NAMES[[kk]] 1561s [00:52:40.981] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:40.981] next 1561s [00:52:40.981] args[[name]] <- ...future.oldEnvVars[[name]] 1561s [00:52:40.981] } 1561s [00:52:40.981] if (length(args) > 0) 1561s [00:52:40.981] base::do.call(base::Sys.setenv, args = args) 1561s [00:52:40.981] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1561s [00:52:40.981] } 1561s [00:52:40.981] else { 1561s [00:52:40.981] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1561s [00:52:40.981] } 1561s [00:52:40.981] { 1561s [00:52:40.981] if (base::length(...future.futureOptionsAdded) > 1561s [00:52:40.981] 0L) { 1561s [00:52:40.981] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1561s [00:52:40.981] base::names(opts) <- ...future.futureOptionsAdded 1561s [00:52:40.981] base::options(opts) 1561s [00:52:40.981] } 1561s [00:52:40.981] { 1561s [00:52:40.981] { 1561s [00:52:40.981] base::assign(".Random.seed", c(10407L, -1319993016L, 1561s [00:52:40.981] 1571290074L, -859112415L, -853775137L, 1440155893L, 1561s [00:52:40.981] -732328588L), envir = base::globalenv(), 1561s [00:52:40.981] inherits = FALSE) 1561s [00:52:40.981] NULL 1561s [00:52:40.981] } 1561s [00:52:40.981] options(future.plan = NULL) 1561s [00:52:40.981] if (is.na(NA_character_)) 1561s [00:52:40.981] Sys.unsetenv("R_FUTURE_PLAN") 1561s [00:52:40.981] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1561s [00:52:40.981] future::plan(list(function (..., envir = parent.frame()) 1561s [00:52:40.981] { 1561s [00:52:40.981] future <- SequentialFuture(..., envir = envir) 1561s [00:52:40.981] if (!future$lazy) 1561s [00:52:40.981] future <- run(future) 1561s [00:52:40.981] invisible(future) 1561s [00:52:40.981] }), .cleanup = FALSE, .init = FALSE) 1561s [00:52:40.981] } 1561s [00:52:40.981] } 1561s [00:52:40.981] } 1561s [00:52:40.981] }) 1561s [00:52:40.981] if (TRUE) { 1561s [00:52:40.981] base::sink(type = "output", split = FALSE) 1561s [00:52:40.981] if (TRUE) { 1561s [00:52:40.981] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1561s [00:52:40.981] } 1561s [00:52:40.981] else { 1561s [00:52:40.981] ...future.result["stdout"] <- base::list(NULL) 1561s [00:52:40.981] } 1561s [00:52:40.981] base::close(...future.stdout) 1561s [00:52:40.981] ...future.stdout <- NULL 1561s [00:52:40.981] } 1561s [00:52:40.981] ...future.result$conditions <- ...future.conditions 1561s [00:52:40.981] ...future.result$finished <- base::Sys.time() 1561s [00:52:40.981] ...future.result 1561s [00:52:40.981] } 1561s [00:52:40.988] assign_globals() ... 1561s [00:52:40.988] List of 5 1561s [00:52:40.988] $ ...future.FUN :function (C, k) 1561s [00:52:40.988] $ MoreArgs : list() 1561s [00:52:40.988] $ ...future.elements_ii :List of 2 1561s [00:52:40.988] ..$ :List of 5 1561s [00:52:40.988] .. ..$ : chr "A" 1561s [00:52:40.988] .. ..$ : chr "B" 1561s [00:52:40.988] .. ..$ : chr "C" 1561s [00:52:40.988] .. ..$ : chr "D" 1561s [00:52:40.988] .. ..$ : chr "E" 1561s [00:52:40.988] ..$ :List of 5 1561s [00:52:40.988] .. ..$ : int 5 1561s [00:52:40.988] .. ..$ : int 4 1561s [00:52:40.988] .. ..$ : int 3 1561s [00:52:40.988] .. ..$ : int 2 1561s [00:52:40.988] .. ..$ : int 1 1561s [00:52:40.988] $ ...future.seeds_ii : NULL 1561s [00:52:40.988] $ ...future.globals.maxSize: NULL 1561s [00:52:40.988] - attr(*, "where")=List of 5 1561s [00:52:40.988] ..$ ...future.FUN : 1561s [00:52:40.988] ..$ MoreArgs : 1561s [00:52:40.988] ..$ ...future.elements_ii : 1561s [00:52:40.988] ..$ ...future.seeds_ii : 1561s [00:52:40.988] ..$ ...future.globals.maxSize: 1561s [00:52:40.988] - attr(*, "resolved")= logi FALSE 1561s [00:52:40.988] - attr(*, "total_size")= num 4160 1561s [00:52:40.988] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1561s [00:52:40.988] - attr(*, "already-done")= logi TRUE 1561s [00:52:41.001] - reassign environment for ‘...future.FUN’ 1561s [00:52:41.001] - copied ‘...future.FUN’ to environment 1561s [00:52:41.001] - copied ‘MoreArgs’ to environment 1561s [00:52:41.001] - copied ‘...future.elements_ii’ to environment 1561s [00:52:41.002] - copied ‘...future.seeds_ii’ to environment 1561s [00:52:41.002] - copied ‘...future.globals.maxSize’ to environment 1561s [00:52:41.002] assign_globals() ... done 1561s [00:52:41.003] plan(): Setting new future strategy stack: 1561s [00:52:41.003] List of future strategies: 1561s [00:52:41.003] 1. sequential: 1561s [00:52:41.003] - args: function (..., envir = parent.frame()) 1561s [00:52:41.003] - tweaked: FALSE 1561s [00:52:41.003] - call: NULL 1561s [00:52:41.003] plan(): nbrOfWorkers() = 1 1561s [00:52:41.005] plan(): Setting new future strategy stack: 1561s [00:52:41.005] List of future strategies: 1561s [00:52:41.005] 1. sequential: 1561s [00:52:41.005] - args: function (..., envir = parent.frame()) 1561s [00:52:41.005] - tweaked: FALSE 1561s [00:52:41.005] - call: plan(strategy) 1561s [00:52:41.006] plan(): nbrOfWorkers() = 1 1561s [00:52:41.006] SequentialFuture started (and completed) 1561s [00:52:41.006] - Launch lazy future ... done 1561s [00:52:41.006] run() for ‘SequentialFuture’ ... done 1561s [00:52:41.007] Created future: 1561s [00:52:41.007] SequentialFuture: 1561s [00:52:41.007] Label: ‘future_.mapply-1’ 1561s [00:52:41.007] Expression: 1561s [00:52:41.007] { 1561s [00:52:41.007] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1561s [00:52:41.007] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1561s [00:52:41.007] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1561s [00:52:41.007] on.exit(options(oopts), add = TRUE) 1561s [00:52:41.007] } 1561s [00:52:41.007] { 1561s [00:52:41.007] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1561s [00:52:41.007] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1561s [00:52:41.007] do.call(mapply, args = args) 1561s [00:52:41.007] } 1561s [00:52:41.007] } 1561s [00:52:41.007] Lazy evaluation: FALSE 1561s [00:52:41.007] Asynchronous evaluation: FALSE 1561s [00:52:41.007] Local evaluation: TRUE 1561s [00:52:41.007] Environment: R_GlobalEnv 1561s [00:52:41.007] Capture standard output: TRUE 1561s [00:52:41.007] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1561s [00:52:41.007] Globals: 5 objects totaling 4.06 KiB (function ‘...future.FUN’ of 3.24 KiB, list ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 840 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1561s [00:52:41.007] Packages: 1561s [00:52:41.007] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1561s [00:52:41.007] Resolved: TRUE 1561s [00:52:41.007] Value: 560 bytes of class ‘list’ 1561s [00:52:41.007] Early signaling: FALSE 1561s [00:52:41.007] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1561s [00:52:41.007] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1561s [00:52:41.008] Chunk #1 of 1 ... DONE 1561s [00:52:41.008] Launching 1 futures (chunks) ... DONE 1561s [00:52:41.008] Resolving 1 futures (chunks) ... 1561s [00:52:41.009] resolve() on list ... 1561s [00:52:41.009] recursive: 0 1561s [00:52:41.009] length: 1 1561s [00:52:41.009] 1561s [00:52:41.009] resolved() for ‘SequentialFuture’ ... 1561s [00:52:41.009] - state: ‘finished’ 1561s [00:52:41.009] - run: TRUE 1561s [00:52:41.009] - result: ‘FutureResult’ 1561s [00:52:41.009] resolved() for ‘SequentialFuture’ ... done 1561s [00:52:41.010] Future #1 1561s [00:52:41.010] signalConditionsASAP(SequentialFuture, pos=1) ... 1561s [00:52:41.010] - nx: 1 1561s [00:52:41.010] - relay: TRUE 1561s [00:52:41.010] - stdout: TRUE 1561s [00:52:41.010] - signal: TRUE 1561s [00:52:41.010] - resignal: FALSE 1561s [00:52:41.011] - force: TRUE 1561s [00:52:41.011] - relayed: [n=1] FALSE 1561s [00:52:41.011] - queued futures: [n=1] FALSE 1561s [00:52:41.011] - until=1 1561s [00:52:41.011] - relaying element #1 1561s [00:52:41.011] - relayed: [n=1] TRUE 1561s [00:52:41.012] - queued futures: [n=1] TRUE 1561s [00:52:41.012] signalConditionsASAP(SequentialFuture, pos=1) ... done 1561s [00:52:41.012] length: 0 (resolved future 1) 1561s [00:52:41.012] Relaying remaining futures 1561s [00:52:41.012] signalConditionsASAP(NULL, pos=0) ... 1561s [00:52:41.012] - nx: 1 1561s [00:52:41.012] - relay: TRUE 1561s [00:52:41.013] - stdout: TRUE 1561s [00:52:41.013] - signal: TRUE 1561s [00:52:41.013] - resignal: FALSE 1561s [00:52:41.013] - force: TRUE 1561s [00:52:41.013] - relayed: [n=1] TRUE 1561s [00:52:41.013] - queued futures: [n=1] TRUE 1561s - flush all 1561s [00:52:41.014] - relayed: [n=1] TRUE 1561s [00:52:41.014] - queued futures: [n=1] TRUE 1561s [00:52:41.014] signalConditionsASAP(NULL, pos=0) ... done 1561s [00:52:41.014] resolve() on list ... DONE 1561s [00:52:41.014] - Number of value chunks collected: 1 1561s [00:52:41.015] Resolving 1 futures (chunks) ... DONE 1561s [00:52:41.015] Reducing values from 1 chunks ... 1561s [00:52:41.015] - Number of values collected after concatenation: 5 1561s [00:52:41.015] - Number of values expected: 5 1561s [00:52:41.015] Reducing values from 1 chunks ... DONE 1561s [00:52:41.015] future_mapply() ... DONE 1561s - Subsetting (Issue #17) ... 1561s [00:52:41.016] future_mapply() ... 1561s [00:52:41.016] Number of chunks: 1 1561s [00:52:41.017] getGlobalsAndPackagesXApply() ... 1561s [00:52:41.017] - future.globals: TRUE 1561s [00:52:41.017] getGlobalsAndPackages() ... 1561s [00:52:41.017] Searching for globals... 1561s [00:52:41.018] - globals found: [1] ‘FUN’ 1561s [00:52:41.018] Searching for globals ... DONE 1561s [00:52:41.019] Resolving globals: FALSE 1561s [00:52:41.019] The total size of the 1 globals is 848 bytes (848 bytes) 1561s [00:52:41.019] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1561s [00:52:41.019] - globals: [1] ‘FUN’ 1561s [00:52:41.019] 1561s [00:52:41.020] getGlobalsAndPackages() ... DONE 1561s [00:52:41.020] - globals found/used: [n=1] ‘FUN’ 1561s [00:52:41.020] - needed namespaces: [n=0] 1561s [00:52:41.020] Finding globals ... DONE 1561s [00:52:41.021] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1561s [00:52:41.021] List of 2 1561s [00:52:41.021] $ ...future.FUN:function (x) 1561s [00:52:41.021] $ MoreArgs : NULL 1561s [00:52:41.021] - attr(*, "where")=List of 2 1561s [00:52:41.021] ..$ ...future.FUN: 1561s [00:52:41.021] ..$ MoreArgs : 1561s [00:52:41.021] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1561s [00:52:41.021] - attr(*, "resolved")= logi FALSE 1561s [00:52:41.021] - attr(*, "total_size")= num NA 1561s [00:52:41.025] Packages to be attached in all futures: [n=0] 1561s [00:52:41.025] getGlobalsAndPackagesXApply() ... DONE 1561s [00:52:41.025] Number of futures (= number of chunks): 1 1561s [00:52:41.026] Launching 1 futures (chunks) ... 1561s [00:52:41.026] Chunk #1 of 1 ... 1561s [00:52:41.026] - Finding globals in '...' for chunk #1 ... 1561s [00:52:41.026] getGlobalsAndPackages() ... 1561s [00:52:41.026] Searching for globals... 1561s [00:52:41.027] 1561s [00:52:41.027] Searching for globals ... DONE 1561s [00:52:41.027] - globals: [0] 1561s [00:52:41.027] getGlobalsAndPackages() ... DONE 1561s [00:52:41.027] + additional globals found: [n=0] 1561s [00:52:41.027] + additional namespaces needed: [n=0] 1561s [00:52:41.027] - Finding globals in '...' for chunk #1 ... DONE 1561s [00:52:41.027] - seeds: 1561s [00:52:41.027] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:41.028] getGlobalsAndPackages() ... 1561s [00:52:41.028] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:41.028] Resolving globals: FALSE 1561s [00:52:41.029] The total size of the 5 globals is 1.10 KiB (1128 bytes) 1561s [00:52:41.032] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 1.10 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (848 bytes of class ‘function’), ‘...future.elements_ii’ (280 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1561s [00:52:41.032] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:41.033] 1561s [00:52:41.033] getGlobalsAndPackages() ... DONE 1561s [00:52:41.033] run() for ‘Future’ ... 1561s [00:52:41.033] - state: ‘created’ 1561s [00:52:41.034] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1561s [00:52:41.034] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1561s [00:52:41.035] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1561s [00:52:41.035] - Field: ‘label’ 1561s [00:52:41.035] - Field: ‘local’ 1561s [00:52:41.035] - Field: ‘owner’ 1561s [00:52:41.035] - Field: ‘envir’ 1561s [00:52:41.035] - Field: ‘packages’ 1561s [00:52:41.035] - Field: ‘gc’ 1561s [00:52:41.036] - Field: ‘conditions’ 1561s [00:52:41.036] - Field: ‘expr’ 1561s [00:52:41.036] - Field: ‘uuid’ 1561s [00:52:41.036] - Field: ‘seed’ 1561s [00:52:41.036] - Field: ‘version’ 1561s [00:52:41.036] - Field: ‘result’ 1561s [00:52:41.036] - Field: ‘asynchronous’ 1561s [00:52:41.036] - Field: ‘calls’ 1561s [00:52:41.037] - Field: ‘globals’ 1561s [00:52:41.037] - Field: ‘stdout’ 1561s [00:52:41.037] - Field: ‘earlySignal’ 1561s [00:52:41.037] - Field: ‘lazy’ 1561s [00:52:41.037] - Field: ‘state’ 1561s [00:52:41.037] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1561s [00:52:41.037] - Launch lazy future ... 1561s [00:52:41.038] Packages needed by the future expression (n = 0): 1561s [00:52:41.038] Packages needed by future strategies (n = 0): 1561s [00:52:41.038] { 1561s [00:52:41.038] { 1561s [00:52:41.038] { 1561s [00:52:41.038] ...future.startTime <- base::Sys.time() 1561s [00:52:41.038] { 1561s [00:52:41.038] { 1561s [00:52:41.038] { 1561s [00:52:41.038] base::local({ 1561s [00:52:41.038] has_future <- base::requireNamespace("future", 1561s [00:52:41.038] quietly = TRUE) 1561s [00:52:41.038] if (has_future) { 1561s [00:52:41.038] ns <- base::getNamespace("future") 1561s [00:52:41.038] version <- ns[[".package"]][["version"]] 1561s [00:52:41.038] if (is.null(version)) 1561s [00:52:41.038] version <- utils::packageVersion("future") 1561s [00:52:41.038] } 1561s [00:52:41.038] else { 1561s [00:52:41.038] version <- NULL 1561s [00:52:41.038] } 1561s [00:52:41.038] if (!has_future || version < "1.8.0") { 1561s [00:52:41.038] info <- base::c(r_version = base::gsub("R version ", 1561s [00:52:41.038] "", base::R.version$version.string), 1561s [00:52:41.038] platform = base::sprintf("%s (%s-bit)", 1561s [00:52:41.038] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1561s [00:52:41.038] os = base::paste(base::Sys.info()[base::c("sysname", 1561s [00:52:41.038] "release", "version")], collapse = " "), 1561s [00:52:41.038] hostname = base::Sys.info()[["nodename"]]) 1561s [00:52:41.038] info <- base::sprintf("%s: %s", base::names(info), 1561s [00:52:41.038] info) 1561s [00:52:41.038] info <- base::paste(info, collapse = "; ") 1561s [00:52:41.038] if (!has_future) { 1561s [00:52:41.038] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1561s [00:52:41.038] info) 1561s [00:52:41.038] } 1561s [00:52:41.038] else { 1561s [00:52:41.038] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1561s [00:52:41.038] info, version) 1561s [00:52:41.038] } 1561s [00:52:41.038] base::stop(msg) 1561s [00:52:41.038] } 1561s [00:52:41.038] }) 1561s [00:52:41.038] } 1561s [00:52:41.038] options(future.plan = NULL) 1561s [00:52:41.038] Sys.unsetenv("R_FUTURE_PLAN") 1561s [00:52:41.038] future::plan("default", .cleanup = FALSE, .init = FALSE) 1561s [00:52:41.038] } 1561s [00:52:41.038] ...future.workdir <- getwd() 1561s [00:52:41.038] } 1561s [00:52:41.038] ...future.oldOptions <- base::as.list(base::.Options) 1561s [00:52:41.038] ...future.oldEnvVars <- base::Sys.getenv() 1561s [00:52:41.038] } 1561s [00:52:41.038] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1561s [00:52:41.038] future.globals.maxSize = NULL, future.globals.method = NULL, 1561s [00:52:41.038] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1561s [00:52:41.038] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1561s [00:52:41.038] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1561s [00:52:41.038] future.stdout.windows.reencode = NULL, width = 80L) 1561s [00:52:41.038] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1561s [00:52:41.038] base::names(...future.oldOptions)) 1561s [00:52:41.038] } 1561s [00:52:41.038] if (FALSE) { 1561s [00:52:41.038] } 1561s [00:52:41.038] else { 1561s [00:52:41.038] if (TRUE) { 1561s [00:52:41.038] ...future.stdout <- base::rawConnection(base::raw(0L), 1561s [00:52:41.038] open = "w") 1561s [00:52:41.038] } 1561s [00:52:41.038] else { 1561s [00:52:41.038] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1561s [00:52:41.038] windows = "NUL", "/dev/null"), open = "w") 1561s [00:52:41.038] } 1561s [00:52:41.038] base::sink(...future.stdout, type = "output", split = FALSE) 1561s [00:52:41.038] base::on.exit(if (!base::is.null(...future.stdout)) { 1561s [00:52:41.038] base::sink(type = "output", split = FALSE) 1561s [00:52:41.038] base::close(...future.stdout) 1561s [00:52:41.038] }, add = TRUE) 1561s [00:52:41.038] } 1561s [00:52:41.038] ...future.frame <- base::sys.nframe() 1561s [00:52:41.038] ...future.conditions <- base::list() 1561s [00:52:41.038] ...future.rng <- base::globalenv()$.Random.seed 1561s [00:52:41.038] if (FALSE) { 1561s [00:52:41.038] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1561s [00:52:41.038] "...future.value", "...future.globalenv.names", ".Random.seed") 1561s [00:52:41.038] } 1561s [00:52:41.038] ...future.result <- base::tryCatch({ 1561s [00:52:41.038] base::withCallingHandlers({ 1561s [00:52:41.038] ...future.value <- base::withVisible(base::local({ 1561s [00:52:41.038] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1561s [00:52:41.038] if (!identical(...future.globals.maxSize.org, 1561s [00:52:41.038] ...future.globals.maxSize)) { 1561s [00:52:41.038] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1561s [00:52:41.038] on.exit(options(oopts), add = TRUE) 1561s [00:52:41.038] } 1561s [00:52:41.038] { 1561s [00:52:41.038] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1561s [00:52:41.038] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1561s [00:52:41.038] USE.NAMES = FALSE) 1561s [00:52:41.038] do.call(mapply, args = args) 1561s [00:52:41.038] } 1561s [00:52:41.038] })) 1561s [00:52:41.038] future::FutureResult(value = ...future.value$value, 1561s [00:52:41.038] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1561s [00:52:41.038] ...future.rng), globalenv = if (FALSE) 1561s [00:52:41.038] list(added = base::setdiff(base::names(base::.GlobalEnv), 1561s [00:52:41.038] ...future.globalenv.names)) 1561s [00:52:41.038] else NULL, started = ...future.startTime, version = "1.8") 1561s [00:52:41.038] }, condition = base::local({ 1561s [00:52:41.038] c <- base::c 1561s [00:52:41.038] inherits <- base::inherits 1561s [00:52:41.038] invokeRestart <- base::invokeRestart 1561s [00:52:41.038] length <- base::length 1561s [00:52:41.038] list <- base::list 1561s [00:52:41.038] seq.int <- base::seq.int 1561s [00:52:41.038] signalCondition <- base::signalCondition 1561s [00:52:41.038] sys.calls <- base::sys.calls 1561s [00:52:41.038] `[[` <- base::`[[` 1561s [00:52:41.038] `+` <- base::`+` 1561s [00:52:41.038] `<<-` <- base::`<<-` 1561s [00:52:41.038] sysCalls <- function(calls = sys.calls(), from = 1L) { 1561s [00:52:41.038] calls[seq.int(from = from + 12L, to = length(calls) - 1561s [00:52:41.038] 3L)] 1561s [00:52:41.038] } 1561s [00:52:41.038] function(cond) { 1561s [00:52:41.038] is_error <- inherits(cond, "error") 1561s [00:52:41.038] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1561s [00:52:41.038] NULL) 1561s [00:52:41.038] if (is_error) { 1561s [00:52:41.038] sessionInformation <- function() { 1561s [00:52:41.038] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1561s [00:52:41.038] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1561s [00:52:41.038] search = base::search(), system = base::Sys.info()) 1561s [00:52:41.038] } 1561s [00:52:41.038] ...future.conditions[[length(...future.conditions) + 1561s [00:52:41.038] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1561s [00:52:41.038] cond$call), session = sessionInformation(), 1561s [00:52:41.038] timestamp = base::Sys.time(), signaled = 0L) 1561s [00:52:41.038] signalCondition(cond) 1561s [00:52:41.038] } 1561s [00:52:41.038] else if (!ignore && TRUE && inherits(cond, c("condition", 1561s [00:52:41.038] "immediateCondition"))) { 1561s [00:52:41.038] signal <- TRUE && inherits(cond, "immediateCondition") 1561s [00:52:41.038] ...future.conditions[[length(...future.conditions) + 1561s [00:52:41.038] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1561s [00:52:41.038] if (TRUE && !signal) { 1561s [00:52:41.038] muffleCondition <- function (cond, pattern = "^muffle") 1561s [00:52:41.038] { 1561s [00:52:41.038] inherits <- base::inherits 1561s [00:52:41.038] invokeRestart <- base::invokeRestart 1561s [00:52:41.038] is.null <- base::is.null 1561s [00:52:41.038] muffled <- FALSE 1561s [00:52:41.038] if (inherits(cond, "message")) { 1561s [00:52:41.038] muffled <- grepl(pattern, "muffleMessage") 1561s [00:52:41.038] if (muffled) 1561s [00:52:41.038] invokeRestart("muffleMessage") 1561s [00:52:41.038] } 1561s [00:52:41.038] else if (inherits(cond, "warning")) { 1561s [00:52:41.038] muffled <- grepl(pattern, "muffleWarning") 1561s [00:52:41.038] if (muffled) 1561s [00:52:41.038] invokeRestart("muffleWarning") 1561s [00:52:41.038] } 1561s [00:52:41.038] else if (inherits(cond, "condition")) { 1561s [00:52:41.038] if (!is.null(pattern)) { 1561s [00:52:41.038] computeRestarts <- base::computeRestarts 1561s [00:52:41.038] grepl <- base::grepl 1561s [00:52:41.038] restarts <- computeRestarts(cond) 1561s [00:52:41.038] for (restart in restarts) { 1561s [00:52:41.038] name <- restart$name 1561s [00:52:41.038] if (is.null(name)) 1561s [00:52:41.038] next 1561s [00:52:41.038] if (!grepl(pattern, name)) 1561s [00:52:41.038] next 1561s [00:52:41.038] invokeRestart(restart) 1561s [00:52:41.038] muffled <- TRUE 1561s [00:52:41.038] break 1561s [00:52:41.038] } 1561s [00:52:41.038] } 1561s [00:52:41.038] } 1561s [00:52:41.038] invisible(muffled) 1561s [00:52:41.038] } 1561s [00:52:41.038] muffleCondition(cond, pattern = "^muffle") 1561s [00:52:41.038] } 1561s [00:52:41.038] } 1561s [00:52:41.038] else { 1561s [00:52:41.038] if (TRUE) { 1561s [00:52:41.038] muffleCondition <- function (cond, pattern = "^muffle") 1561s [00:52:41.038] { 1561s [00:52:41.038] inherits <- base::inherits 1561s [00:52:41.038] invokeRestart <- base::invokeRestart 1561s [00:52:41.038] is.null <- base::is.null 1561s [00:52:41.038] muffled <- FALSE 1561s [00:52:41.038] if (inherits(cond, "message")) { 1561s [00:52:41.038] muffled <- grepl(pattern, "muffleMessage") 1561s [00:52:41.038] if (muffled) 1561s [00:52:41.038] invokeRestart("muffleMessage") 1561s [00:52:41.038] } 1561s [00:52:41.038] else if (inherits(cond, "warning")) { 1561s [00:52:41.038] muffled <- grepl(pattern, "muffleWarning") 1561s [00:52:41.038] if (muffled) 1561s [00:52:41.038] invokeRestart("muffleWarning") 1561s [00:52:41.038] } 1561s [00:52:41.038] else if (inherits(cond, "condition")) { 1561s [00:52:41.038] if (!is.null(pattern)) { 1561s [00:52:41.038] computeRestarts <- base::computeRestarts 1561s [00:52:41.038] grepl <- base::grepl 1561s [00:52:41.038] restarts <- computeRestarts(cond) 1561s [00:52:41.038] for (restart in restarts) { 1561s [00:52:41.038] name <- restart$name 1561s [00:52:41.038] if (is.null(name)) 1561s [00:52:41.038] next 1561s [00:52:41.038] if (!grepl(pattern, name)) 1561s [00:52:41.038] next 1561s [00:52:41.038] invokeRestart(restart) 1561s [00:52:41.038] muffled <- TRUE 1561s [00:52:41.038] break 1561s [00:52:41.038] } 1561s [00:52:41.038] } 1561s [00:52:41.038] } 1561s [00:52:41.038] invisible(muffled) 1561s [00:52:41.038] } 1561s [00:52:41.038] muffleCondition(cond, pattern = "^muffle") 1561s [00:52:41.038] } 1561s [00:52:41.038] } 1561s [00:52:41.038] } 1561s [00:52:41.038] })) 1561s [00:52:41.038] }, error = function(ex) { 1561s [00:52:41.038] base::structure(base::list(value = NULL, visible = NULL, 1561s [00:52:41.038] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1561s [00:52:41.038] ...future.rng), started = ...future.startTime, 1561s [00:52:41.038] finished = Sys.time(), session_uuid = NA_character_, 1561s [00:52:41.038] version = "1.8"), class = "FutureResult") 1561s [00:52:41.038] }, finally = { 1561s [00:52:41.038] if (!identical(...future.workdir, getwd())) 1561s [00:52:41.038] setwd(...future.workdir) 1561s [00:52:41.038] { 1561s [00:52:41.038] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1561s [00:52:41.038] ...future.oldOptions$nwarnings <- NULL 1561s [00:52:41.038] } 1561s [00:52:41.038] base::options(...future.oldOptions) 1561s [00:52:41.038] if (.Platform$OS.type == "windows") { 1561s [00:52:41.038] old_names <- names(...future.oldEnvVars) 1561s [00:52:41.038] envs <- base::Sys.getenv() 1561s [00:52:41.038] names <- names(envs) 1561s [00:52:41.038] common <- intersect(names, old_names) 1561s [00:52:41.038] added <- setdiff(names, old_names) 1561s [00:52:41.038] removed <- setdiff(old_names, names) 1561s [00:52:41.038] changed <- common[...future.oldEnvVars[common] != 1561s [00:52:41.038] envs[common]] 1561s [00:52:41.038] NAMES <- toupper(changed) 1561s [00:52:41.038] args <- list() 1561s [00:52:41.038] for (kk in seq_along(NAMES)) { 1561s [00:52:41.038] name <- changed[[kk]] 1561s [00:52:41.038] NAME <- NAMES[[kk]] 1561s [00:52:41.038] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:41.038] next 1561s [00:52:41.038] args[[name]] <- ...future.oldEnvVars[[name]] 1561s [00:52:41.038] } 1561s [00:52:41.038] NAMES <- toupper(added) 1561s [00:52:41.038] for (kk in seq_along(NAMES)) { 1561s [00:52:41.038] name <- added[[kk]] 1561s [00:52:41.038] NAME <- NAMES[[kk]] 1561s [00:52:41.038] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:41.038] next 1561s [00:52:41.038] args[[name]] <- "" 1561s [00:52:41.038] } 1561s [00:52:41.038] NAMES <- toupper(removed) 1561s [00:52:41.038] for (kk in seq_along(NAMES)) { 1561s [00:52:41.038] name <- removed[[kk]] 1561s [00:52:41.038] NAME <- NAMES[[kk]] 1561s [00:52:41.038] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:41.038] next 1561s [00:52:41.038] args[[name]] <- ...future.oldEnvVars[[name]] 1561s [00:52:41.038] } 1561s [00:52:41.038] if (length(args) > 0) 1561s [00:52:41.038] base::do.call(base::Sys.setenv, args = args) 1561s [00:52:41.038] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1561s [00:52:41.038] } 1561s [00:52:41.038] else { 1561s [00:52:41.038] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1561s [00:52:41.038] } 1561s [00:52:41.038] { 1561s [00:52:41.038] if (base::length(...future.futureOptionsAdded) > 1561s [00:52:41.038] 0L) { 1561s [00:52:41.038] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1561s [00:52:41.038] base::names(opts) <- ...future.futureOptionsAdded 1561s [00:52:41.038] base::options(opts) 1561s [00:52:41.038] } 1561s [00:52:41.038] { 1561s [00:52:41.038] { 1561s [00:52:41.038] base::assign(".Random.seed", c(10407L, -1319993016L, 1561s [00:52:41.038] 1571290074L, -859112415L, -853775137L, 1440155893L, 1561s [00:52:41.038] -732328588L), envir = base::globalenv(), 1561s [00:52:41.038] inherits = FALSE) 1561s [00:52:41.038] NULL 1561s [00:52:41.038] } 1561s [00:52:41.038] options(future.plan = NULL) 1561s [00:52:41.038] if (is.na(NA_character_)) 1561s [00:52:41.038] Sys.unsetenv("R_FUTURE_PLAN") 1561s [00:52:41.038] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1561s [00:52:41.038] future::plan(list(function (..., envir = parent.frame()) 1561s [00:52:41.038] { 1561s [00:52:41.038] future <- SequentialFuture(..., envir = envir) 1561s [00:52:41.038] if (!future$lazy) 1561s [00:52:41.038] future <- run(future) 1561s [00:52:41.038] invisible(future) 1561s [00:52:41.038] }), .cleanup = FALSE, .init = FALSE) 1561s [00:52:41.038] } 1561s [00:52:41.038] } 1561s [00:52:41.038] } 1561s [00:52:41.038] }) 1561s [00:52:41.038] if (TRUE) { 1561s [00:52:41.038] base::sink(type = "output", split = FALSE) 1561s [00:52:41.038] if (TRUE) { 1561s [00:52:41.038] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1561s [00:52:41.038] } 1561s [00:52:41.038] else { 1561s [00:52:41.038] ...future.result["stdout"] <- base::list(NULL) 1561s [00:52:41.038] } 1561s [00:52:41.038] base::close(...future.stdout) 1561s [00:52:41.038] ...future.stdout <- NULL 1561s [00:52:41.038] } 1561s [00:52:41.038] ...future.result$conditions <- ...future.conditions 1561s [00:52:41.038] ...future.result$finished <- base::Sys.time() 1561s [00:52:41.038] ...future.result 1561s [00:52:41.038] } 1561s [00:52:41.046] assign_globals() ... 1561s [00:52:41.046] List of 5 1561s [00:52:41.046] $ ...future.FUN :function (x) 1561s [00:52:41.046] $ MoreArgs : NULL 1561s [00:52:41.046] $ ...future.elements_ii :List of 1 1561s [00:52:41.046] ..$ :List of 1 1561s [00:52:41.046] .. ..$ : Date[1:1], format: "2018-06-01" 1561s [00:52:41.046] $ ...future.seeds_ii : NULL 1561s [00:52:41.046] $ ...future.globals.maxSize: NULL 1561s [00:52:41.046] - attr(*, "where")=List of 5 1561s [00:52:41.046] ..$ ...future.FUN : 1561s [00:52:41.046] ..$ MoreArgs : 1561s [00:52:41.046] ..$ ...future.elements_ii : 1561s [00:52:41.046] ..$ ...future.seeds_ii : 1561s [00:52:41.046] ..$ ...future.globals.maxSize: 1561s [00:52:41.046] - attr(*, "resolved")= logi FALSE 1561s [00:52:41.046] - attr(*, "total_size")= num 1128 1561s [00:52:41.046] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1561s [00:52:41.046] - attr(*, "already-done")= logi TRUE 1561s [00:52:41.053] - copied ‘...future.FUN’ to environment 1561s [00:52:41.053] - copied ‘MoreArgs’ to environment 1561s [00:52:41.053] - copied ‘...future.elements_ii’ to environment 1561s [00:52:41.053] - copied ‘...future.seeds_ii’ to environment 1561s [00:52:41.053] - copied ‘...future.globals.maxSize’ to environment 1561s [00:52:41.054] assign_globals() ... done 1561s [00:52:41.054] plan(): Setting new future strategy stack: 1561s [00:52:41.054] List of future strategies: 1561s [00:52:41.054] 1. sequential: 1561s [00:52:41.054] - args: function (..., envir = parent.frame()) 1561s [00:52:41.054] - tweaked: FALSE 1561s [00:52:41.054] - call: NULL 1561s [00:52:41.055] plan(): nbrOfWorkers() = 1 1561s [00:52:41.056] plan(): Setting new future strategy stack: 1561s [00:52:41.056] List of future strategies: 1561s [00:52:41.056] 1. sequential: 1561s [00:52:41.056] - args: function (..., envir = parent.frame()) 1561s [00:52:41.056] - tweaked: FALSE 1561s [00:52:41.056] - call: plan(strategy) 1561s [00:52:41.057] plan(): nbrOfWorkers() = 1 1561s [00:52:41.057] SequentialFuture started (and completed) 1561s [00:52:41.057] - Launch lazy future ... done 1561s [00:52:41.057] run() for ‘SequentialFuture’ ... done 1561s [00:52:41.057] Created future: 1561s [00:52:41.058] SequentialFuture: 1561s [00:52:41.058] Label: ‘future_mapply-1’ 1561s [00:52:41.058] Expression: 1561s [00:52:41.058] { 1561s [00:52:41.058] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1561s [00:52:41.058] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1561s [00:52:41.058] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1561s [00:52:41.058] on.exit(options(oopts), add = TRUE) 1561s [00:52:41.058] } 1561s [00:52:41.058] { 1561s [00:52:41.058] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1561s [00:52:41.058] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1561s [00:52:41.058] do.call(mapply, args = args) 1561s [00:52:41.058] } 1561s [00:52:41.058] } 1561s [00:52:41.058] Lazy evaluation: FALSE 1561s [00:52:41.058] Asynchronous evaluation: FALSE 1561s [00:52:41.058] Local evaluation: TRUE 1561s [00:52:41.058] Environment: R_GlobalEnv 1561s [00:52:41.058] Capture standard output: TRUE 1561s [00:52:41.058] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1561s [00:52:41.058] Globals: 5 objects totaling 1.10 KiB (function ‘...future.FUN’ of 848 bytes, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 280 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1561s [00:52:41.058] Packages: 1561s [00:52:41.058] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1561s [00:52:41.058] Resolved: TRUE 1561s [00:52:41.058] Value: 280 bytes of class ‘list’ 1561s [00:52:41.058] Early signaling: FALSE 1561s [00:52:41.058] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1561s [00:52:41.058] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1561s [00:52:41.059] Chunk #1 of 1 ... DONE 1561s [00:52:41.059] Launching 1 futures (chunks) ... DONE 1561s [00:52:41.059] Resolving 1 futures (chunks) ... 1561s [00:52:41.059] resolve() on list ... 1561s [00:52:41.059] recursive: 0 1561s [00:52:41.060] length: 1 1561s [00:52:41.060] 1561s [00:52:41.060] resolved() for ‘SequentialFuture’ ... 1561s [00:52:41.060] - state: ‘finished’ 1561s [00:52:41.060] - run: TRUE 1561s [00:52:41.060] - result: ‘FutureResult’ 1561s [00:52:41.061] resolved() for ‘SequentialFuture’ ... done 1561s [00:52:41.061] Future #1 1561s [00:52:41.061] signalConditionsASAP(SequentialFuture, pos=1) ... 1561s [00:52:41.061] - nx: 1 1561s [00:52:41.062] - relay: TRUE 1561s [00:52:41.062] - stdout: TRUE 1561s [00:52:41.062] - signal: TRUE 1561s [00:52:41.062] - resignal: FALSE 1561s [00:52:41.062] - force: TRUE 1561s [00:52:41.062] - relayed: [n=1] FALSE 1561s [00:52:41.062] - queued futures: [n=1] FALSE 1561s [00:52:41.063] - until=1 1561s [00:52:41.063] - relaying element #1 1561s [00:52:41.063] - relayed: [n=1] TRUE 1561s [00:52:41.063] - queued futures: [n=1] TRUE 1561s [00:52:41.064] signalConditionsASAP(SequentialFuture, pos=1) ... done 1561s [00:52:41.064] length: 0 (resolved future 1) 1561s [00:52:41.064] Relaying remaining futures 1561s [00:52:41.064] signalConditionsASAP(NULL, pos=0) ... 1561s [00:52:41.064] - nx: 1 1561s [00:52:41.065] - relay: TRUE 1561s [00:52:41.065] - stdout: TRUE 1561s [00:52:41.065] - signal: TRUE 1561s [00:52:41.065] - resignal: FALSE 1561s [00:52:41.065] - force: TRUE 1561s [00:52:41.065] - relayed: [n=1] TRUE 1561s [00:52:41.066] - queued futures: [n=1] TRUE 1561s - flush all 1561s [00:52:41.066] - relayed: [n=1] TRUE 1561s [00:52:41.066] - queued futures: [n=1] TRUE 1561s [00:52:41.066] signalConditionsASAP(NULL, pos=0) ... done 1561s [00:52:41.066] resolve() on list ... DONE 1561s [00:52:41.067] - Number of value chunks collected: 1 1561s [00:52:41.067] Resolving 1 futures (chunks) ... DONE 1561s [00:52:41.067] Reducing values from 1 chunks ... 1561s [00:52:41.067] - Number of values collected after concatenation: 1 1561s [00:52:41.067] - Number of values expected: 1 1561s [00:52:41.067] Reducing values from 1 chunks ... DONE 1561s [00:52:41.067] future_mapply() ... DONE 1561s [00:52:41.068] future_mapply() ... 1561s [00:52:41.068] Number of chunks: 1 1561s [00:52:41.068] getGlobalsAndPackagesXApply() ... 1561s [00:52:41.068] - future.globals: TRUE 1561s [00:52:41.068] getGlobalsAndPackages() ... 1561s [00:52:41.068] Searching for globals... 1561s [00:52:41.070] - globals found: [1] ‘FUN’ 1561s [00:52:41.070] Searching for globals ... DONE 1561s [00:52:41.070] Resolving globals: FALSE 1561s [00:52:41.071] The total size of the 1 globals is 848 bytes (848 bytes) 1561s [00:52:41.072] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1561s [00:52:41.072] - globals: [1] ‘FUN’ 1561s [00:52:41.072] 1561s [00:52:41.073] getGlobalsAndPackages() ... DONE 1561s [00:52:41.073] - globals found/used: [n=1] ‘FUN’ 1561s [00:52:41.073] - needed namespaces: [n=0] 1561s [00:52:41.074] Finding globals ... DONE 1561s [00:52:41.074] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1561s [00:52:41.075] List of 2 1561s [00:52:41.075] $ ...future.FUN:function (x) 1561s [00:52:41.075] $ MoreArgs : list() 1561s [00:52:41.075] - attr(*, "where")=List of 2 1561s [00:52:41.075] ..$ ...future.FUN: 1561s [00:52:41.075] ..$ MoreArgs : 1561s [00:52:41.075] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1561s [00:52:41.075] - attr(*, "resolved")= logi FALSE 1561s [00:52:41.075] - attr(*, "total_size")= num NA 1561s [00:52:41.086] Packages to be attached in all futures: [n=0] 1561s [00:52:41.087] getGlobalsAndPackagesXApply() ... DONE 1561s [00:52:41.087] Number of futures (= number of chunks): 1 1561s [00:52:41.087] Launching 1 futures (chunks) ... 1561s [00:52:41.088] Chunk #1 of 1 ... 1561s [00:52:41.088] - Finding globals in '...' for chunk #1 ... 1561s [00:52:41.088] getGlobalsAndPackages() ... 1561s [00:52:41.089] Searching for globals... 1561s [00:52:41.090] 1561s [00:52:41.090] Searching for globals ... DONE 1561s [00:52:41.091] - globals: [0] 1561s [00:52:41.091] getGlobalsAndPackages() ... DONE 1561s [00:52:41.091] + additional globals found: [n=0] 1561s [00:52:41.091] + additional namespaces needed: [n=0] 1561s [00:52:41.092] - Finding globals in '...' for chunk #1 ... DONE 1561s [00:52:41.092] - seeds: 1561s [00:52:41.092] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:41.093] getGlobalsAndPackages() ... 1561s [00:52:41.093] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:41.093] Resolving globals: FALSE 1561s [00:52:41.095] The total size of the 5 globals is 1.10 KiB (1128 bytes) 1561s [00:52:41.096] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 1.10 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (848 bytes of class ‘function’), ‘...future.elements_ii’ (280 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘list’) 1561s [00:52:41.096] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:41.097] 1561s [00:52:41.097] getGlobalsAndPackages() ... DONE 1561s [00:52:41.098] run() for ‘Future’ ... 1561s [00:52:41.098] - state: ‘created’ 1561s [00:52:41.099] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1561s [00:52:41.100] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1561s [00:52:41.101] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1561s [00:52:41.101] - Field: ‘label’ 1561s [00:52:41.101] - Field: ‘local’ 1561s [00:52:41.102] - Field: ‘owner’ 1561s [00:52:41.102] - Field: ‘envir’ 1561s [00:52:41.102] - Field: ‘packages’ 1561s [00:52:41.102] - Field: ‘gc’ 1561s [00:52:41.103] - Field: ‘conditions’ 1561s [00:52:41.103] - Field: ‘expr’ 1561s [00:52:41.103] - Field: ‘uuid’ 1561s [00:52:41.103] - Field: ‘seed’ 1561s [00:52:41.103] - Field: ‘version’ 1561s [00:52:41.103] - Field: ‘result’ 1561s [00:52:41.104] - Field: ‘asynchronous’ 1561s [00:52:41.104] - Field: ‘calls’ 1561s [00:52:41.105] - Field: ‘globals’ 1561s [00:52:41.105] - Field: ‘stdout’ 1561s [00:52:41.105] - Field: ‘earlySignal’ 1561s [00:52:41.105] - Field: ‘lazy’ 1561s [00:52:41.105] - Field: ‘state’ 1561s [00:52:41.106] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1561s [00:52:41.106] - Launch lazy future ... 1561s [00:52:41.107] Packages needed by the future expression (n = 0): 1561s [00:52:41.107] Packages needed by future strategies (n = 0): 1561s [00:52:41.108] { 1561s [00:52:41.108] { 1561s [00:52:41.108] { 1561s [00:52:41.108] ...future.startTime <- base::Sys.time() 1561s [00:52:41.108] { 1561s [00:52:41.108] { 1561s [00:52:41.108] { 1561s [00:52:41.108] base::local({ 1561s [00:52:41.108] has_future <- base::requireNamespace("future", 1561s [00:52:41.108] quietly = TRUE) 1561s [00:52:41.108] if (has_future) { 1561s [00:52:41.108] ns <- base::getNamespace("future") 1561s [00:52:41.108] version <- ns[[".package"]][["version"]] 1561s [00:52:41.108] if (is.null(version)) 1561s [00:52:41.108] version <- utils::packageVersion("future") 1561s [00:52:41.108] } 1561s [00:52:41.108] else { 1561s [00:52:41.108] version <- NULL 1561s [00:52:41.108] } 1561s [00:52:41.108] if (!has_future || version < "1.8.0") { 1561s [00:52:41.108] info <- base::c(r_version = base::gsub("R version ", 1561s [00:52:41.108] "", base::R.version$version.string), 1561s [00:52:41.108] platform = base::sprintf("%s (%s-bit)", 1561s [00:52:41.108] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1561s [00:52:41.108] os = base::paste(base::Sys.info()[base::c("sysname", 1561s [00:52:41.108] "release", "version")], collapse = " "), 1561s [00:52:41.108] hostname = base::Sys.info()[["nodename"]]) 1561s [00:52:41.108] info <- base::sprintf("%s: %s", base::names(info), 1561s [00:52:41.108] info) 1561s [00:52:41.108] info <- base::paste(info, collapse = "; ") 1561s [00:52:41.108] if (!has_future) { 1561s [00:52:41.108] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1561s [00:52:41.108] info) 1561s [00:52:41.108] } 1561s [00:52:41.108] else { 1561s [00:52:41.108] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1561s [00:52:41.108] info, version) 1561s [00:52:41.108] } 1561s [00:52:41.108] base::stop(msg) 1561s [00:52:41.108] } 1561s [00:52:41.108] }) 1561s [00:52:41.108] } 1561s [00:52:41.108] options(future.plan = NULL) 1561s [00:52:41.108] Sys.unsetenv("R_FUTURE_PLAN") 1561s [00:52:41.108] future::plan("default", .cleanup = FALSE, .init = FALSE) 1561s [00:52:41.108] } 1561s [00:52:41.108] ...future.workdir <- getwd() 1561s [00:52:41.108] } 1561s [00:52:41.108] ...future.oldOptions <- base::as.list(base::.Options) 1561s [00:52:41.108] ...future.oldEnvVars <- base::Sys.getenv() 1561s [00:52:41.108] } 1561s [00:52:41.108] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1561s [00:52:41.108] future.globals.maxSize = NULL, future.globals.method = NULL, 1561s [00:52:41.108] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1561s [00:52:41.108] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1561s [00:52:41.108] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1561s [00:52:41.108] future.stdout.windows.reencode = NULL, width = 80L) 1561s [00:52:41.108] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1561s [00:52:41.108] base::names(...future.oldOptions)) 1561s [00:52:41.108] } 1561s [00:52:41.108] if (FALSE) { 1561s [00:52:41.108] } 1561s [00:52:41.108] else { 1561s [00:52:41.108] if (TRUE) { 1561s [00:52:41.108] ...future.stdout <- base::rawConnection(base::raw(0L), 1561s [00:52:41.108] open = "w") 1561s [00:52:41.108] } 1561s [00:52:41.108] else { 1561s [00:52:41.108] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1561s [00:52:41.108] windows = "NUL", "/dev/null"), open = "w") 1561s [00:52:41.108] } 1561s [00:52:41.108] base::sink(...future.stdout, type = "output", split = FALSE) 1561s [00:52:41.108] base::on.exit(if (!base::is.null(...future.stdout)) { 1561s [00:52:41.108] base::sink(type = "output", split = FALSE) 1561s [00:52:41.108] base::close(...future.stdout) 1561s [00:52:41.108] }, add = TRUE) 1561s [00:52:41.108] } 1561s [00:52:41.108] ...future.frame <- base::sys.nframe() 1561s [00:52:41.108] ...future.conditions <- base::list() 1561s [00:52:41.108] ...future.rng <- base::globalenv()$.Random.seed 1561s [00:52:41.108] if (FALSE) { 1561s [00:52:41.108] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1561s [00:52:41.108] "...future.value", "...future.globalenv.names", ".Random.seed") 1561s [00:52:41.108] } 1561s [00:52:41.108] ...future.result <- base::tryCatch({ 1561s [00:52:41.108] base::withCallingHandlers({ 1561s [00:52:41.108] ...future.value <- base::withVisible(base::local({ 1561s [00:52:41.108] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1561s [00:52:41.108] if (!identical(...future.globals.maxSize.org, 1561s [00:52:41.108] ...future.globals.maxSize)) { 1561s [00:52:41.108] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1561s [00:52:41.108] on.exit(options(oopts), add = TRUE) 1561s [00:52:41.108] } 1561s [00:52:41.108] { 1561s [00:52:41.108] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1561s [00:52:41.108] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1561s [00:52:41.108] USE.NAMES = FALSE) 1561s [00:52:41.108] do.call(mapply, args = args) 1561s [00:52:41.108] } 1561s [00:52:41.108] })) 1561s [00:52:41.108] future::FutureResult(value = ...future.value$value, 1561s [00:52:41.108] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1561s [00:52:41.108] ...future.rng), globalenv = if (FALSE) 1561s [00:52:41.108] list(added = base::setdiff(base::names(base::.GlobalEnv), 1561s [00:52:41.108] ...future.globalenv.names)) 1561s [00:52:41.108] else NULL, started = ...future.startTime, version = "1.8") 1561s [00:52:41.108] }, condition = base::local({ 1561s [00:52:41.108] c <- base::c 1561s [00:52:41.108] inherits <- base::inherits 1561s [00:52:41.108] invokeRestart <- base::invokeRestart 1561s [00:52:41.108] length <- base::length 1561s [00:52:41.108] list <- base::list 1561s [00:52:41.108] seq.int <- base::seq.int 1561s [00:52:41.108] signalCondition <- base::signalCondition 1561s [00:52:41.108] sys.calls <- base::sys.calls 1561s [00:52:41.108] `[[` <- base::`[[` 1561s [00:52:41.108] `+` <- base::`+` 1561s [00:52:41.108] `<<-` <- base::`<<-` 1561s [00:52:41.108] sysCalls <- function(calls = sys.calls(), from = 1L) { 1561s [00:52:41.108] calls[seq.int(from = from + 12L, to = length(calls) - 1561s [00:52:41.108] 3L)] 1561s [00:52:41.108] } 1561s [00:52:41.108] function(cond) { 1561s [00:52:41.108] is_error <- inherits(cond, "error") 1561s [00:52:41.108] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1561s [00:52:41.108] NULL) 1561s [00:52:41.108] if (is_error) { 1561s [00:52:41.108] sessionInformation <- function() { 1561s [00:52:41.108] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1561s [00:52:41.108] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1561s [00:52:41.108] search = base::search(), system = base::Sys.info()) 1561s [00:52:41.108] } 1561s [00:52:41.108] ...future.conditions[[length(...future.conditions) + 1561s [00:52:41.108] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1561s [00:52:41.108] cond$call), session = sessionInformation(), 1561s [00:52:41.108] timestamp = base::Sys.time(), signaled = 0L) 1561s [00:52:41.108] signalCondition(cond) 1561s [00:52:41.108] } 1561s [00:52:41.108] else if (!ignore && TRUE && inherits(cond, c("condition", 1561s [00:52:41.108] "immediateCondition"))) { 1561s [00:52:41.108] signal <- TRUE && inherits(cond, "immediateCondition") 1561s [00:52:41.108] ...future.conditions[[length(...future.conditions) + 1561s [00:52:41.108] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1561s [00:52:41.108] if (TRUE && !signal) { 1561s [00:52:41.108] muffleCondition <- function (cond, pattern = "^muffle") 1561s [00:52:41.108] { 1561s [00:52:41.108] inherits <- base::inherits 1561s [00:52:41.108] invokeRestart <- base::invokeRestart 1561s [00:52:41.108] is.null <- base::is.null 1561s [00:52:41.108] muffled <- FALSE 1561s [00:52:41.108] if (inherits(cond, "message")) { 1561s [00:52:41.108] muffled <- grepl(pattern, "muffleMessage") 1561s [00:52:41.108] if (muffled) 1561s [00:52:41.108] invokeRestart("muffleMessage") 1561s [00:52:41.108] } 1561s [00:52:41.108] else if (inherits(cond, "warning")) { 1561s [00:52:41.108] muffled <- grepl(pattern, "muffleWarning") 1561s [00:52:41.108] if (muffled) 1561s [00:52:41.108] invokeRestart("muffleWarning") 1561s [00:52:41.108] } 1561s [00:52:41.108] else if (inherits(cond, "condition")) { 1561s [00:52:41.108] if (!is.null(pattern)) { 1561s [00:52:41.108] computeRestarts <- base::computeRestarts 1561s [00:52:41.108] grepl <- base::grepl 1561s [00:52:41.108] restarts <- computeRestarts(cond) 1561s [00:52:41.108] for (restart in restarts) { 1561s [00:52:41.108] name <- restart$name 1561s [00:52:41.108] if (is.null(name)) 1561s [00:52:41.108] next 1561s [00:52:41.108] if (!grepl(pattern, name)) 1561s [00:52:41.108] next 1561s [00:52:41.108] invokeRestart(restart) 1561s [00:52:41.108] muffled <- TRUE 1561s [00:52:41.108] break 1561s [00:52:41.108] } 1561s [00:52:41.108] } 1561s [00:52:41.108] } 1561s [00:52:41.108] invisible(muffled) 1561s [00:52:41.108] } 1561s [00:52:41.108] muffleCondition(cond, pattern = "^muffle") 1561s [00:52:41.108] } 1561s [00:52:41.108] } 1561s [00:52:41.108] else { 1561s [00:52:41.108] if (TRUE) { 1561s [00:52:41.108] muffleCondition <- function (cond, pattern = "^muffle") 1561s [00:52:41.108] { 1561s [00:52:41.108] inherits <- base::inherits 1561s [00:52:41.108] invokeRestart <- base::invokeRestart 1561s [00:52:41.108] is.null <- base::is.null 1561s [00:52:41.108] muffled <- FALSE 1561s [00:52:41.108] if (inherits(cond, "message")) { 1561s [00:52:41.108] muffled <- grepl(pattern, "muffleMessage") 1561s [00:52:41.108] if (muffled) 1561s [00:52:41.108] invokeRestart("muffleMessage") 1561s [00:52:41.108] } 1561s [00:52:41.108] else if (inherits(cond, "warning")) { 1561s [00:52:41.108] muffled <- grepl(pattern, "muffleWarning") 1561s [00:52:41.108] if (muffled) 1561s [00:52:41.108] invokeRestart("muffleWarning") 1561s [00:52:41.108] } 1561s [00:52:41.108] else if (inherits(cond, "condition")) { 1561s [00:52:41.108] if (!is.null(pattern)) { 1561s [00:52:41.108] computeRestarts <- base::computeRestarts 1561s [00:52:41.108] grepl <- base::grepl 1561s [00:52:41.108] restarts <- computeRestarts(cond) 1561s [00:52:41.108] for (restart in restarts) { 1561s [00:52:41.108] name <- restart$name 1561s [00:52:41.108] if (is.null(name)) 1561s [00:52:41.108] next 1561s [00:52:41.108] if (!grepl(pattern, name)) 1561s [00:52:41.108] next 1561s [00:52:41.108] invokeRestart(restart) 1561s [00:52:41.108] muffled <- TRUE 1561s [00:52:41.108] break 1561s [00:52:41.108] } 1561s [00:52:41.108] } 1561s [00:52:41.108] } 1561s [00:52:41.108] invisible(muffled) 1561s [00:52:41.108] } 1561s [00:52:41.108] muffleCondition(cond, pattern = "^muffle") 1561s [00:52:41.108] } 1561s [00:52:41.108] } 1561s [00:52:41.108] } 1561s [00:52:41.108] })) 1561s [00:52:41.108] }, error = function(ex) { 1561s [00:52:41.108] base::structure(base::list(value = NULL, visible = NULL, 1561s [00:52:41.108] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1561s [00:52:41.108] ...future.rng), started = ...future.startTime, 1561s [00:52:41.108] finished = Sys.time(), session_uuid = NA_character_, 1561s [00:52:41.108] version = "1.8"), class = "FutureResult") 1561s [00:52:41.108] }, finally = { 1561s [00:52:41.108] if (!identical(...future.workdir, getwd())) 1561s [00:52:41.108] setwd(...future.workdir) 1561s [00:52:41.108] { 1561s [00:52:41.108] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1561s [00:52:41.108] ...future.oldOptions$nwarnings <- NULL 1561s [00:52:41.108] } 1561s [00:52:41.108] base::options(...future.oldOptions) 1561s [00:52:41.108] if (.Platform$OS.type == "windows") { 1561s [00:52:41.108] old_names <- names(...future.oldEnvVars) 1561s [00:52:41.108] envs <- base::Sys.getenv() 1561s [00:52:41.108] names <- names(envs) 1561s [00:52:41.108] common <- intersect(names, old_names) 1561s [00:52:41.108] added <- setdiff(names, old_names) 1561s [00:52:41.108] removed <- setdiff(old_names, names) 1561s [00:52:41.108] changed <- common[...future.oldEnvVars[common] != 1561s [00:52:41.108] envs[common]] 1561s [00:52:41.108] NAMES <- toupper(changed) 1561s [00:52:41.108] args <- list() 1561s [00:52:41.108] for (kk in seq_along(NAMES)) { 1561s [00:52:41.108] name <- changed[[kk]] 1561s [00:52:41.108] NAME <- NAMES[[kk]] 1561s [00:52:41.108] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:41.108] next 1561s [00:52:41.108] args[[name]] <- ...future.oldEnvVars[[name]] 1561s [00:52:41.108] } 1561s [00:52:41.108] NAMES <- toupper(added) 1561s [00:52:41.108] for (kk in seq_along(NAMES)) { 1561s [00:52:41.108] name <- added[[kk]] 1561s [00:52:41.108] NAME <- NAMES[[kk]] 1561s [00:52:41.108] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:41.108] next 1561s [00:52:41.108] args[[name]] <- "" 1561s [00:52:41.108] } 1561s [00:52:41.108] NAMES <- toupper(removed) 1561s [00:52:41.108] for (kk in seq_along(NAMES)) { 1561s [00:52:41.108] name <- removed[[kk]] 1561s [00:52:41.108] NAME <- NAMES[[kk]] 1561s [00:52:41.108] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:41.108] next 1561s [00:52:41.108] args[[name]] <- ...future.oldEnvVars[[name]] 1561s [00:52:41.108] } 1561s [00:52:41.108] if (length(args) > 0) 1561s [00:52:41.108] base::do.call(base::Sys.setenv, args = args) 1561s [00:52:41.108] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1561s [00:52:41.108] } 1561s [00:52:41.108] else { 1561s [00:52:41.108] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1561s [00:52:41.108] } 1561s [00:52:41.108] { 1561s [00:52:41.108] if (base::length(...future.futureOptionsAdded) > 1561s [00:52:41.108] 0L) { 1561s [00:52:41.108] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1561s [00:52:41.108] base::names(opts) <- ...future.futureOptionsAdded 1561s [00:52:41.108] base::options(opts) 1561s [00:52:41.108] } 1561s [00:52:41.108] { 1561s [00:52:41.108] { 1561s [00:52:41.108] base::assign(".Random.seed", c(10407L, -1319993016L, 1561s [00:52:41.108] 1571290074L, -859112415L, -853775137L, 1440155893L, 1561s [00:52:41.108] -732328588L), envir = base::globalenv(), 1561s [00:52:41.108] inherits = FALSE) 1561s [00:52:41.108] NULL 1561s [00:52:41.108] } 1561s [00:52:41.108] options(future.plan = NULL) 1561s [00:52:41.108] if (is.na(NA_character_)) 1561s [00:52:41.108] Sys.unsetenv("R_FUTURE_PLAN") 1561s [00:52:41.108] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1561s [00:52:41.108] future::plan(list(function (..., envir = parent.frame()) 1561s [00:52:41.108] { 1561s [00:52:41.108] future <- SequentialFuture(..., envir = envir) 1561s [00:52:41.108] if (!future$lazy) 1561s [00:52:41.108] future <- run(future) 1561s [00:52:41.108] invisible(future) 1561s [00:52:41.108] }), .cleanup = FALSE, .init = FALSE) 1561s [00:52:41.108] } 1561s [00:52:41.108] } 1561s [00:52:41.108] } 1561s [00:52:41.108] }) 1561s [00:52:41.108] if (TRUE) { 1561s [00:52:41.108] base::sink(type = "output", split = FALSE) 1561s [00:52:41.108] if (TRUE) { 1561s [00:52:41.108] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1561s [00:52:41.108] } 1561s [00:52:41.108] else { 1561s [00:52:41.108] ...future.result["stdout"] <- base::list(NULL) 1561s [00:52:41.108] } 1561s [00:52:41.108] base::close(...future.stdout) 1561s [00:52:41.108] ...future.stdout <- NULL 1561s [00:52:41.108] } 1561s [00:52:41.108] ...future.result$conditions <- ...future.conditions 1561s [00:52:41.108] ...future.result$finished <- base::Sys.time() 1561s [00:52:41.108] ...future.result 1561s [00:52:41.108] } 1561s [00:52:41.113] assign_globals() ... 1561s [00:52:41.114] List of 5 1561s [00:52:41.114] $ ...future.FUN :function (x) 1561s [00:52:41.114] $ MoreArgs : list() 1561s [00:52:41.114] $ ...future.elements_ii :List of 1 1561s [00:52:41.114] ..$ :List of 1 1561s [00:52:41.114] .. ..$ : Date[1:1], format: "2018-06-01" 1561s [00:52:41.114] $ ...future.seeds_ii : NULL 1561s [00:52:41.114] $ ...future.globals.maxSize: NULL 1561s [00:52:41.114] - attr(*, "where")=List of 5 1561s [00:52:41.114] ..$ ...future.FUN : 1561s [00:52:41.114] ..$ MoreArgs : 1561s [00:52:41.114] ..$ ...future.elements_ii : 1561s [00:52:41.114] ..$ ...future.seeds_ii : 1561s [00:52:41.114] ..$ ...future.globals.maxSize: 1561s [00:52:41.114] - attr(*, "resolved")= logi FALSE 1561s [00:52:41.114] - attr(*, "total_size")= num 1128 1561s [00:52:41.114] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1561s [00:52:41.114] - attr(*, "already-done")= logi TRUE 1561s [00:52:41.127] - copied ‘...future.FUN’ to environment 1561s [00:52:41.127] - copied ‘MoreArgs’ to environment 1561s [00:52:41.128] - copied ‘...future.elements_ii’ to environment 1561s [00:52:41.129] - copied ‘...future.seeds_ii’ to environment 1561s [00:52:41.130] - copied ‘...future.globals.maxSize’ to environment 1561s [00:52:41.130] assign_globals() ... done 1561s [00:52:41.131] plan(): Setting new future strategy stack: 1561s [00:52:41.132] List of future strategies: 1561s [00:52:41.132] 1. sequential: 1561s [00:52:41.132] - args: function (..., envir = parent.frame()) 1561s [00:52:41.132] - tweaked: FALSE 1561s [00:52:41.132] - call: NULL 1561s [00:52:41.135] plan(): nbrOfWorkers() = 1 1561s [00:52:41.139] plan(): Setting new future strategy stack: 1561s [00:52:41.139] List of future strategies: 1561s [00:52:41.139] 1. sequential: 1561s [00:52:41.139] - args: function (..., envir = parent.frame()) 1561s [00:52:41.139] - tweaked: FALSE 1561s [00:52:41.139] - call: plan(strategy) 1561s [00:52:41.140] plan(): nbrOfWorkers() = 1 1561s [00:52:41.141] SequentialFuture started (and completed) 1561s [00:52:41.142] - Launch lazy future ... done 1561s [00:52:41.142] run() for ‘SequentialFuture’ ... done 1561s [00:52:41.143] Created future: 1561s [00:52:41.144] SequentialFuture: 1561s [00:52:41.144] Label: ‘future_.mapply-1’ 1561s [00:52:41.144] Expression: 1561s [00:52:41.144] { 1561s [00:52:41.144] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1561s [00:52:41.144] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1561s [00:52:41.144] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1561s [00:52:41.144] on.exit(options(oopts), add = TRUE) 1561s [00:52:41.144] } 1561s [00:52:41.144] { 1561s [00:52:41.144] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1561s [00:52:41.144] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1561s [00:52:41.144] do.call(mapply, args = args) 1561s [00:52:41.144] } 1561s [00:52:41.144] } 1561s [00:52:41.144] Lazy evaluation: FALSE 1561s [00:52:41.144] Asynchronous evaluation: FALSE 1561s [00:52:41.144] Local evaluation: TRUE 1561s [00:52:41.144] Environment: R_GlobalEnv 1561s [00:52:41.144] Capture standard output: TRUE 1561s [00:52:41.144] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1561s [00:52:41.144] Globals: 5 objects totaling 1.10 KiB (function ‘...future.FUN’ of 848 bytes, list ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 280 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1561s [00:52:41.144] Packages: 1561s [00:52:41.144] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1561s [00:52:41.144] Resolved: TRUE 1561s [00:52:41.144] Value: 280 bytes of class ‘list’ 1561s [00:52:41.144] Early signaling: FALSE 1561s [00:52:41.144] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1561s [00:52:41.144] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1561s [00:52:41.147] Chunk #1 of 1 ... DONE 1561s [00:52:41.147] Launching 1 futures (chunks) ... DONE 1561s [00:52:41.147] Resolving 1 futures (chunks) ... 1561s [00:52:41.148] resolve() on list ... 1561s [00:52:41.148] recursive: 0 1561s [00:52:41.148] length: 1 1561s [00:52:41.148] 1561s [00:52:41.148] resolved() for ‘SequentialFuture’ ... 1561s [00:52:41.148] - state: ‘finished’ 1561s [00:52:41.148] - run: TRUE 1561s [00:52:41.149] - result: ‘FutureResult’ 1561s [00:52:41.150] resolved() for ‘SequentialFuture’ ... done 1561s [00:52:41.150] Future #1 1561s [00:52:41.151] signalConditionsASAP(SequentialFuture, pos=1) ... 1561s [00:52:41.151] - nx: 1 1561s [00:52:41.152] - relay: TRUE 1561s [00:52:41.152] - stdout: TRUE 1561s [00:52:41.152] - signal: TRUE 1561s [00:52:41.152] - resignal: FALSE 1561s [00:52:41.153] - force: TRUE 1561s [00:52:41.153] - relayed: [n=1] FALSE 1561s [00:52:41.154] - queued futures: [n=1] FALSE 1561s [00:52:41.154] - until=1 1561s [00:52:41.154] - relaying element #1 1561s [00:52:41.154] - relayed: [n=1] TRUE 1561s [00:52:41.154] - queued futures: [n=1] TRUE 1561s [00:52:41.155] signalConditionsASAP(SequentialFuture, pos=1) ... done 1561s [00:52:41.155] length: 0 (resolved future 1) 1561s [00:52:41.156] Relaying remaining futures 1561s [00:52:41.156] signalConditionsASAP(NULL, pos=0) ... 1561s [00:52:41.157] - nx: 1 1561s [00:52:41.159] - relay: TRUE 1561s [00:52:41.159] - stdout: TRUE 1561s [00:52:41.160] - signal: TRUE 1561s [00:52:41.160] - resignal: FALSE 1561s [00:52:41.161] - force: TRUE 1561s [00:52:41.161] - relayed: [n=1] TRUE 1561s [00:52:41.161] - queued futures: [n=1] TRUE 1561s - flush all 1561s [00:52:41.161] - relayed: [n=1] TRUE 1561s [00:52:41.162] - queued futures: [n=1] TRUE 1561s [00:52:41.162] signalConditionsASAP(NULL, pos=0) ... done 1561s [00:52:41.162] resolve() on list ... DONE 1561s [00:52:41.163] - Number of value chunks collected: 1 1561s [00:52:41.163] Resolving 1 futures (chunks) ... DONE 1561s [00:52:41.163] Reducing values from 1 chunks ... 1561s [00:52:41.163] - Number of values collected after concatenation: 1 1561s [00:52:41.164] - Number of values expected: 1 1561s [00:52:41.164] Reducing values from 1 chunks ... DONE 1561s [00:52:41.164] future_mapply() ... DONE 1561s - Non-recycling of MoreArgs (Issue #51) ... 1561s [00:52:41.165] future_mapply() ... 1561s [00:52:41.165] Number of chunks: 1 1561s [00:52:41.165] getGlobalsAndPackagesXApply() ... 1561s [00:52:41.166] - future.globals: TRUE 1561s [00:52:41.166] getGlobalsAndPackages() ... 1561s [00:52:41.167] Searching for globals... 1561s [00:52:41.168] - globals found: [1] ‘FUN’ 1561s [00:52:41.169] Searching for globals ... DONE 1561s [00:52:41.169] Resolving globals: FALSE 1561s [00:52:41.170] The total size of the 1 globals is 1.66 KiB (1704 bytes) 1561s [00:52:41.171] The total size of the 1 globals exported for future expression (‘FUN(y = 3:4)’) is 1.66 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.66 KiB of class ‘function’) 1561s [00:52:41.171] - globals: [1] ‘FUN’ 1561s [00:52:41.171] 1561s [00:52:41.172] getGlobalsAndPackages() ... DONE 1561s [00:52:41.172] - globals found/used: [n=1] ‘FUN’ 1561s [00:52:41.172] - needed namespaces: [n=0] 1561s [00:52:41.172] Finding globals ... DONE 1561s [00:52:41.172] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1561s [00:52:41.172] List of 2 1561s [00:52:41.172] $ ...future.FUN:function (x, y) 1561s [00:52:41.172] $ MoreArgs :List of 1 1561s [00:52:41.172] ..$ y: int [1:2] 3 4 1561s [00:52:41.172] - attr(*, "where")=List of 2 1561s [00:52:41.172] ..$ ...future.FUN: 1561s [00:52:41.172] ..$ MoreArgs : 1561s [00:52:41.172] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1561s [00:52:41.172] - attr(*, "resolved")= logi FALSE 1561s [00:52:41.172] - attr(*, "total_size")= num NA 1561s [00:52:41.179] Packages to be attached in all futures: [n=0] 1561s [00:52:41.180] getGlobalsAndPackagesXApply() ... DONE 1561s [00:52:41.180] Number of futures (= number of chunks): 1 1561s [00:52:41.180] Launching 1 futures (chunks) ... 1561s [00:52:41.180] Chunk #1 of 1 ... 1561s [00:52:41.181] - Finding globals in '...' for chunk #1 ... 1561s [00:52:41.181] getGlobalsAndPackages() ... 1561s [00:52:41.182] Searching for globals... 1561s [00:52:41.182] 1561s [00:52:41.182] Searching for globals ... DONE 1561s [00:52:41.182] - globals: [0] 1561s [00:52:41.183] getGlobalsAndPackages() ... DONE 1561s [00:52:41.183] + additional globals found: [n=0] 1561s [00:52:41.183] + additional namespaces needed: [n=0] 1561s [00:52:41.184] - Finding globals in '...' for chunk #1 ... DONE 1561s [00:52:41.184] - seeds: 1561s [00:52:41.184] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:41.185] getGlobalsAndPackages() ... 1561s [00:52:41.185] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:41.185] Resolving globals: FALSE 1561s [00:52:41.186] The total size of the 5 globals is 1.83 KiB (1872 bytes) 1561s [00:52:41.187] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 1.83 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (1.66 KiB of class ‘function’), ‘...future.elements_ii’ (112 bytes of class ‘list’) and ‘MoreArgs’ (56 bytes of class ‘list’) 1561s [00:52:41.187] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:41.187] 1561s [00:52:41.188] getGlobalsAndPackages() ... DONE 1561s [00:52:41.188] run() for ‘Future’ ... 1561s [00:52:41.188] - state: ‘created’ 1561s [00:52:41.189] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1561s [00:52:41.189] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1561s [00:52:41.189] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1561s [00:52:41.190] - Field: ‘label’ 1561s [00:52:41.190] - Field: ‘local’ 1561s [00:52:41.191] - Field: ‘owner’ 1561s [00:52:41.191] - Field: ‘envir’ 1561s [00:52:41.191] - Field: ‘packages’ 1561s [00:52:41.191] - Field: ‘gc’ 1561s [00:52:41.191] - Field: ‘conditions’ 1561s [00:52:41.191] - Field: ‘expr’ 1561s [00:52:41.192] - Field: ‘uuid’ 1561s [00:52:41.192] - Field: ‘seed’ 1561s [00:52:41.192] - Field: ‘version’ 1561s [00:52:41.193] - Field: ‘result’ 1561s [00:52:41.193] - Field: ‘asynchronous’ 1561s [00:52:41.193] - Field: ‘calls’ 1561s [00:52:41.193] - Field: ‘globals’ 1561s [00:52:41.193] - Field: ‘stdout’ 1561s [00:52:41.194] - Field: ‘earlySignal’ 1561s [00:52:41.194] - Field: ‘lazy’ 1561s [00:52:41.194] - Field: ‘state’ 1561s [00:52:41.194] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1561s [00:52:41.194] - Launch lazy future ... 1561s [00:52:41.195] Packages needed by the future expression (n = 0): 1561s [00:52:41.195] Packages needed by future strategies (n = 0): 1561s [00:52:41.195] { 1561s [00:52:41.195] { 1561s [00:52:41.195] { 1561s [00:52:41.195] ...future.startTime <- base::Sys.time() 1561s [00:52:41.195] { 1561s [00:52:41.195] { 1561s [00:52:41.195] { 1561s [00:52:41.195] base::local({ 1561s [00:52:41.195] has_future <- base::requireNamespace("future", 1561s [00:52:41.195] quietly = TRUE) 1561s [00:52:41.195] if (has_future) { 1561s [00:52:41.195] ns <- base::getNamespace("future") 1561s [00:52:41.195] version <- ns[[".package"]][["version"]] 1561s [00:52:41.195] if (is.null(version)) 1561s [00:52:41.195] version <- utils::packageVersion("future") 1561s [00:52:41.195] } 1561s [00:52:41.195] else { 1561s [00:52:41.195] version <- NULL 1561s [00:52:41.195] } 1561s [00:52:41.195] if (!has_future || version < "1.8.0") { 1561s [00:52:41.195] info <- base::c(r_version = base::gsub("R version ", 1561s [00:52:41.195] "", base::R.version$version.string), 1561s [00:52:41.195] platform = base::sprintf("%s (%s-bit)", 1561s [00:52:41.195] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1561s [00:52:41.195] os = base::paste(base::Sys.info()[base::c("sysname", 1561s [00:52:41.195] "release", "version")], collapse = " "), 1561s [00:52:41.195] hostname = base::Sys.info()[["nodename"]]) 1561s [00:52:41.195] info <- base::sprintf("%s: %s", base::names(info), 1561s [00:52:41.195] info) 1561s [00:52:41.195] info <- base::paste(info, collapse = "; ") 1561s [00:52:41.195] if (!has_future) { 1561s [00:52:41.195] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1561s [00:52:41.195] info) 1561s [00:52:41.195] } 1561s [00:52:41.195] else { 1561s [00:52:41.195] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1561s [00:52:41.195] info, version) 1561s [00:52:41.195] } 1561s [00:52:41.195] base::stop(msg) 1561s [00:52:41.195] } 1561s [00:52:41.195] }) 1561s [00:52:41.195] } 1561s [00:52:41.195] options(future.plan = NULL) 1561s [00:52:41.195] Sys.unsetenv("R_FUTURE_PLAN") 1561s [00:52:41.195] future::plan("default", .cleanup = FALSE, .init = FALSE) 1561s [00:52:41.195] } 1561s [00:52:41.195] ...future.workdir <- getwd() 1561s [00:52:41.195] } 1561s [00:52:41.195] ...future.oldOptions <- base::as.list(base::.Options) 1561s [00:52:41.195] ...future.oldEnvVars <- base::Sys.getenv() 1561s [00:52:41.195] } 1561s [00:52:41.195] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1561s [00:52:41.195] future.globals.maxSize = NULL, future.globals.method = NULL, 1561s [00:52:41.195] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1561s [00:52:41.195] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1561s [00:52:41.195] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1561s [00:52:41.195] future.stdout.windows.reencode = NULL, width = 80L) 1561s [00:52:41.195] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1561s [00:52:41.195] base::names(...future.oldOptions)) 1561s [00:52:41.195] } 1561s [00:52:41.195] if (FALSE) { 1561s [00:52:41.195] } 1561s [00:52:41.195] else { 1561s [00:52:41.195] if (TRUE) { 1561s [00:52:41.195] ...future.stdout <- base::rawConnection(base::raw(0L), 1561s [00:52:41.195] open = "w") 1561s [00:52:41.195] } 1561s [00:52:41.195] else { 1561s [00:52:41.195] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1561s [00:52:41.195] windows = "NUL", "/dev/null"), open = "w") 1561s [00:52:41.195] } 1561s [00:52:41.195] base::sink(...future.stdout, type = "output", split = FALSE) 1561s [00:52:41.195] base::on.exit(if (!base::is.null(...future.stdout)) { 1561s [00:52:41.195] base::sink(type = "output", split = FALSE) 1561s [00:52:41.195] base::close(...future.stdout) 1561s [00:52:41.195] }, add = TRUE) 1561s [00:52:41.195] } 1561s [00:52:41.195] ...future.frame <- base::sys.nframe() 1561s [00:52:41.195] ...future.conditions <- base::list() 1561s [00:52:41.195] ...future.rng <- base::globalenv()$.Random.seed 1561s [00:52:41.195] if (FALSE) { 1561s [00:52:41.195] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1561s [00:52:41.195] "...future.value", "...future.globalenv.names", ".Random.seed") 1561s [00:52:41.195] } 1561s [00:52:41.195] ...future.result <- base::tryCatch({ 1561s [00:52:41.195] base::withCallingHandlers({ 1561s [00:52:41.195] ...future.value <- base::withVisible(base::local({ 1561s [00:52:41.195] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1561s [00:52:41.195] if (!identical(...future.globals.maxSize.org, 1561s [00:52:41.195] ...future.globals.maxSize)) { 1561s [00:52:41.195] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1561s [00:52:41.195] on.exit(options(oopts), add = TRUE) 1561s [00:52:41.195] } 1561s [00:52:41.195] { 1561s [00:52:41.195] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1561s [00:52:41.195] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1561s [00:52:41.195] USE.NAMES = FALSE) 1561s [00:52:41.195] do.call(mapply, args = args) 1561s [00:52:41.195] } 1561s [00:52:41.195] })) 1561s [00:52:41.195] future::FutureResult(value = ...future.value$value, 1561s [00:52:41.195] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1561s [00:52:41.195] ...future.rng), globalenv = if (FALSE) 1561s [00:52:41.195] list(added = base::setdiff(base::names(base::.GlobalEnv), 1561s [00:52:41.195] ...future.globalenv.names)) 1561s [00:52:41.195] else NULL, started = ...future.startTime, version = "1.8") 1561s [00:52:41.195] }, condition = base::local({ 1561s [00:52:41.195] c <- base::c 1561s [00:52:41.195] inherits <- base::inherits 1561s [00:52:41.195] invokeRestart <- base::invokeRestart 1561s [00:52:41.195] length <- base::length 1561s [00:52:41.195] list <- base::list 1561s [00:52:41.195] seq.int <- base::seq.int 1561s [00:52:41.195] signalCondition <- base::signalCondition 1561s [00:52:41.195] sys.calls <- base::sys.calls 1561s [00:52:41.195] `[[` <- base::`[[` 1561s [00:52:41.195] `+` <- base::`+` 1561s [00:52:41.195] `<<-` <- base::`<<-` 1561s [00:52:41.195] sysCalls <- function(calls = sys.calls(), from = 1L) { 1561s [00:52:41.195] calls[seq.int(from = from + 12L, to = length(calls) - 1561s [00:52:41.195] 3L)] 1561s [00:52:41.195] } 1561s [00:52:41.195] function(cond) { 1561s [00:52:41.195] is_error <- inherits(cond, "error") 1561s [00:52:41.195] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1561s [00:52:41.195] NULL) 1561s [00:52:41.195] if (is_error) { 1561s [00:52:41.195] sessionInformation <- function() { 1561s [00:52:41.195] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1561s [00:52:41.195] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1561s [00:52:41.195] search = base::search(), system = base::Sys.info()) 1561s [00:52:41.195] } 1561s [00:52:41.195] ...future.conditions[[length(...future.conditions) + 1561s [00:52:41.195] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1561s [00:52:41.195] cond$call), session = sessionInformation(), 1561s [00:52:41.195] timestamp = base::Sys.time(), signaled = 0L) 1561s [00:52:41.195] signalCondition(cond) 1561s [00:52:41.195] } 1561s [00:52:41.195] else if (!ignore && TRUE && inherits(cond, c("condition", 1561s [00:52:41.195] "immediateCondition"))) { 1561s [00:52:41.195] signal <- TRUE && inherits(cond, "immediateCondition") 1561s [00:52:41.195] ...future.conditions[[length(...future.conditions) + 1561s [00:52:41.195] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1561s [00:52:41.195] if (TRUE && !signal) { 1561s [00:52:41.195] muffleCondition <- function (cond, pattern = "^muffle") 1561s [00:52:41.195] { 1561s [00:52:41.195] inherits <- base::inherits 1561s [00:52:41.195] invokeRestart <- base::invokeRestart 1561s [00:52:41.195] is.null <- base::is.null 1561s [00:52:41.195] muffled <- FALSE 1561s [00:52:41.195] if (inherits(cond, "message")) { 1561s [00:52:41.195] muffled <- grepl(pattern, "muffleMessage") 1561s [00:52:41.195] if (muffled) 1561s [00:52:41.195] invokeRestart("muffleMessage") 1561s [00:52:41.195] } 1561s [00:52:41.195] else if (inherits(cond, "warning")) { 1561s [00:52:41.195] muffled <- grepl(pattern, "muffleWarning") 1561s [00:52:41.195] if (muffled) 1561s [00:52:41.195] invokeRestart("muffleWarning") 1561s [00:52:41.195] } 1561s [00:52:41.195] else if (inherits(cond, "condition")) { 1561s [00:52:41.195] if (!is.null(pattern)) { 1561s [00:52:41.195] computeRestarts <- base::computeRestarts 1561s [00:52:41.195] grepl <- base::grepl 1561s [00:52:41.195] restarts <- computeRestarts(cond) 1561s [00:52:41.195] for (restart in restarts) { 1561s [00:52:41.195] name <- restart$name 1561s [00:52:41.195] if (is.null(name)) 1561s [00:52:41.195] next 1561s [00:52:41.195] if (!grepl(pattern, name)) 1561s [00:52:41.195] next 1561s [00:52:41.195] invokeRestart(restart) 1561s [00:52:41.195] muffled <- TRUE 1561s [00:52:41.195] break 1561s [00:52:41.195] } 1561s [00:52:41.195] } 1561s [00:52:41.195] } 1561s [00:52:41.195] invisible(muffled) 1561s [00:52:41.195] } 1561s [00:52:41.195] muffleCondition(cond, pattern = "^muffle") 1561s [00:52:41.195] } 1561s [00:52:41.195] } 1561s [00:52:41.195] else { 1561s [00:52:41.195] if (TRUE) { 1561s [00:52:41.195] muffleCondition <- function (cond, pattern = "^muffle") 1561s [00:52:41.195] { 1561s [00:52:41.195] inherits <- base::inherits 1561s [00:52:41.195] invokeRestart <- base::invokeRestart 1561s [00:52:41.195] is.null <- base::is.null 1561s [00:52:41.195] muffled <- FALSE 1561s [00:52:41.195] if (inherits(cond, "message")) { 1561s [00:52:41.195] muffled <- grepl(pattern, "muffleMessage") 1561s [00:52:41.195] if (muffled) 1561s [00:52:41.195] invokeRestart("muffleMessage") 1561s [00:52:41.195] } 1561s [00:52:41.195] else if (inherits(cond, "warning")) { 1561s [00:52:41.195] muffled <- grepl(pattern, "muffleWarning") 1561s [00:52:41.195] if (muffled) 1561s [00:52:41.195] invokeRestart("muffleWarning") 1561s [00:52:41.195] } 1561s [00:52:41.195] else if (inherits(cond, "condition")) { 1561s [00:52:41.195] if (!is.null(pattern)) { 1561s [00:52:41.195] computeRestarts <- base::computeRestarts 1561s [00:52:41.195] grepl <- base::grepl 1561s [00:52:41.195] restarts <- computeRestarts(cond) 1561s [00:52:41.195] for (restart in restarts) { 1561s [00:52:41.195] name <- restart$name 1561s [00:52:41.195] if (is.null(name)) 1561s [00:52:41.195] next 1561s [00:52:41.195] if (!grepl(pattern, name)) 1561s [00:52:41.195] next 1561s [00:52:41.195] invokeRestart(restart) 1561s [00:52:41.195] muffled <- TRUE 1561s [00:52:41.195] break 1561s [00:52:41.195] } 1561s [00:52:41.195] } 1561s [00:52:41.195] } 1561s [00:52:41.195] invisible(muffled) 1561s [00:52:41.195] } 1561s [00:52:41.195] muffleCondition(cond, pattern = "^muffle") 1561s [00:52:41.195] } 1561s [00:52:41.195] } 1561s [00:52:41.195] } 1561s [00:52:41.195] })) 1561s [00:52:41.195] }, error = function(ex) { 1561s [00:52:41.195] base::structure(base::list(value = NULL, visible = NULL, 1561s [00:52:41.195] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1561s [00:52:41.195] ...future.rng), started = ...future.startTime, 1561s [00:52:41.195] finished = Sys.time(), session_uuid = NA_character_, 1561s [00:52:41.195] version = "1.8"), class = "FutureResult") 1561s [00:52:41.195] }, finally = { 1561s [00:52:41.195] if (!identical(...future.workdir, getwd())) 1561s [00:52:41.195] setwd(...future.workdir) 1561s [00:52:41.195] { 1561s [00:52:41.195] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1561s [00:52:41.195] ...future.oldOptions$nwarnings <- NULL 1561s [00:52:41.195] } 1561s [00:52:41.195] base::options(...future.oldOptions) 1561s [00:52:41.195] if (.Platform$OS.type == "windows") { 1561s [00:52:41.195] old_names <- names(...future.oldEnvVars) 1561s [00:52:41.195] envs <- base::Sys.getenv() 1561s [00:52:41.195] names <- names(envs) 1561s [00:52:41.195] common <- intersect(names, old_names) 1561s [00:52:41.195] added <- setdiff(names, old_names) 1561s [00:52:41.195] removed <- setdiff(old_names, names) 1561s [00:52:41.195] changed <- common[...future.oldEnvVars[common] != 1561s [00:52:41.195] envs[common]] 1561s [00:52:41.195] NAMES <- toupper(changed) 1561s [00:52:41.195] args <- list() 1561s [00:52:41.195] for (kk in seq_along(NAMES)) { 1561s [00:52:41.195] name <- changed[[kk]] 1561s [00:52:41.195] NAME <- NAMES[[kk]] 1561s [00:52:41.195] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:41.195] next 1561s [00:52:41.195] args[[name]] <- ...future.oldEnvVars[[name]] 1561s [00:52:41.195] } 1561s [00:52:41.195] NAMES <- toupper(added) 1561s [00:52:41.195] for (kk in seq_along(NAMES)) { 1561s [00:52:41.195] name <- added[[kk]] 1561s [00:52:41.195] NAME <- NAMES[[kk]] 1561s [00:52:41.195] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:41.195] next 1561s [00:52:41.195] args[[name]] <- "" 1561s [00:52:41.195] } 1561s [00:52:41.195] NAMES <- toupper(removed) 1561s [00:52:41.195] for (kk in seq_along(NAMES)) { 1561s [00:52:41.195] name <- removed[[kk]] 1561s [00:52:41.195] NAME <- NAMES[[kk]] 1561s [00:52:41.195] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:41.195] next 1561s [00:52:41.195] args[[name]] <- ...future.oldEnvVars[[name]] 1561s [00:52:41.195] } 1561s [00:52:41.195] if (length(args) > 0) 1561s [00:52:41.195] base::do.call(base::Sys.setenv, args = args) 1561s [00:52:41.195] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1561s [00:52:41.195] } 1561s [00:52:41.195] else { 1561s [00:52:41.195] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1561s [00:52:41.195] } 1561s [00:52:41.195] { 1561s [00:52:41.195] if (base::length(...future.futureOptionsAdded) > 1561s [00:52:41.195] 0L) { 1561s [00:52:41.195] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1561s [00:52:41.195] base::names(opts) <- ...future.futureOptionsAdded 1561s [00:52:41.195] base::options(opts) 1561s [00:52:41.195] } 1561s [00:52:41.195] { 1561s [00:52:41.195] { 1561s [00:52:41.195] base::assign(".Random.seed", c(10407L, -1319993016L, 1561s [00:52:41.195] 1571290074L, -859112415L, -853775137L, 1440155893L, 1561s [00:52:41.195] -732328588L), envir = base::globalenv(), 1561s [00:52:41.195] inherits = FALSE) 1561s [00:52:41.195] NULL 1561s [00:52:41.195] } 1561s [00:52:41.195] options(future.plan = NULL) 1561s [00:52:41.195] if (is.na(NA_character_)) 1561s [00:52:41.195] Sys.unsetenv("R_FUTURE_PLAN") 1561s [00:52:41.195] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1561s [00:52:41.195] future::plan(list(function (..., envir = parent.frame()) 1561s [00:52:41.195] { 1561s [00:52:41.195] future <- SequentialFuture(..., envir = envir) 1561s [00:52:41.195] if (!future$lazy) 1561s [00:52:41.195] future <- run(future) 1561s [00:52:41.195] invisible(future) 1561s [00:52:41.195] }), .cleanup = FALSE, .init = FALSE) 1561s [00:52:41.195] } 1561s [00:52:41.195] } 1561s [00:52:41.195] } 1561s [00:52:41.195] }) 1561s [00:52:41.195] if (TRUE) { 1561s [00:52:41.195] base::sink(type = "output", split = FALSE) 1561s [00:52:41.195] if (TRUE) { 1561s [00:52:41.195] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1561s [00:52:41.195] } 1561s [00:52:41.195] else { 1561s [00:52:41.195] ...future.result["stdout"] <- base::list(NULL) 1561s [00:52:41.195] } 1561s [00:52:41.195] base::close(...future.stdout) 1561s [00:52:41.195] ...future.stdout <- NULL 1561s [00:52:41.195] } 1561s [00:52:41.195] ...future.result$conditions <- ...future.conditions 1561s [00:52:41.195] ...future.result$finished <- base::Sys.time() 1561s [00:52:41.195] ...future.result 1561s [00:52:41.195] } 1561s [00:52:41.198] assign_globals() ... 1561s [00:52:41.198] List of 5 1561s [00:52:41.198] $ ...future.FUN :function (x, y) 1561s [00:52:41.198] $ MoreArgs :List of 1 1561s [00:52:41.198] ..$ y: int [1:2] 3 4 1561s [00:52:41.198] $ ...future.elements_ii :List of 1 1561s [00:52:41.198] ..$ x:List of 2 1561s [00:52:41.198] .. ..$ : int 1 1561s [00:52:41.198] .. ..$ : int 2 1561s [00:52:41.198] $ ...future.seeds_ii : NULL 1561s [00:52:41.198] $ ...future.globals.maxSize: NULL 1561s [00:52:41.198] - attr(*, "where")=List of 5 1561s [00:52:41.198] ..$ ...future.FUN : 1561s [00:52:41.198] ..$ MoreArgs : 1561s [00:52:41.198] ..$ ...future.elements_ii : 1561s [00:52:41.198] ..$ ...future.seeds_ii : 1561s [00:52:41.198] ..$ ...future.globals.maxSize: 1561s [00:52:41.198] - attr(*, "resolved")= logi FALSE 1561s [00:52:41.198] - attr(*, "total_size")= num 1872 1561s [00:52:41.198] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1561s [00:52:41.198] - attr(*, "already-done")= logi TRUE 1561s [00:52:41.207] - reassign environment for ‘...future.FUN’ 1561s [00:52:41.208] - copied ‘...future.FUN’ to environment 1561s [00:52:41.208] - copied ‘MoreArgs’ to environment 1561s [00:52:41.208] - copied ‘...future.elements_ii’ to environment 1561s [00:52:41.208] - copied ‘...future.seeds_ii’ to environment 1561s [00:52:41.208] - copied ‘...future.globals.maxSize’ to environment 1561s [00:52:41.208] assign_globals() ... done 1561s [00:52:41.209] plan(): Setting new future strategy stack: 1561s [00:52:41.209] List of future strategies: 1561s [00:52:41.209] 1. sequential: 1561s [00:52:41.209] - args: function (..., envir = parent.frame()) 1561s [00:52:41.209] - tweaked: FALSE 1561s [00:52:41.209] - call: NULL 1561s [00:52:41.209] plan(): nbrOfWorkers() = 1 1561s [00:52:41.210] plan(): Setting new future strategy stack: 1561s [00:52:41.210] List of future strategies: 1561s [00:52:41.210] 1. sequential: 1561s [00:52:41.210] - args: function (..., envir = parent.frame()) 1561s [00:52:41.210] - tweaked: FALSE 1561s [00:52:41.210] - call: plan(strategy) 1561s [00:52:41.211] plan(): nbrOfWorkers() = 1 1561s [00:52:41.211] SequentialFuture started (and completed) 1561s [00:52:41.211] - Launch lazy future ... done 1561s [00:52:41.211] run() for ‘SequentialFuture’ ... done 1561s [00:52:41.212] Created future: 1561s [00:52:41.212] SequentialFuture: 1561s [00:52:41.212] Label: ‘future_mapply-1’ 1561s [00:52:41.212] Expression: 1561s [00:52:41.212] { 1561s [00:52:41.212] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1561s [00:52:41.212] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1561s [00:52:41.212] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1561s [00:52:41.212] on.exit(options(oopts), add = TRUE) 1561s [00:52:41.212] } 1561s [00:52:41.212] { 1561s [00:52:41.212] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1561s [00:52:41.212] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1561s [00:52:41.212] do.call(mapply, args = args) 1561s [00:52:41.212] } 1561s [00:52:41.212] } 1561s [00:52:41.212] Lazy evaluation: FALSE 1561s [00:52:41.212] Asynchronous evaluation: FALSE 1561s [00:52:41.212] Local evaluation: TRUE 1561s [00:52:41.212] Environment: R_GlobalEnv 1561s [00:52:41.212] Capture standard output: TRUE 1561s [00:52:41.212] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1561s [00:52:41.212] Globals: 5 objects totaling 1.83 KiB (function ‘...future.FUN’ of 1.66 KiB, list ‘MoreArgs’ of 56 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1561s [00:52:41.212] Packages: 1561s [00:52:41.212] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1561s [00:52:41.212] Resolved: TRUE 1561s [00:52:41.212] Value: 112 bytes of class ‘list’ 1561s [00:52:41.212] Early signaling: FALSE 1561s [00:52:41.212] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1561s [00:52:41.212] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1561s [00:52:41.214] Chunk #1 of 1 ... DONE 1561s [00:52:41.214] Launching 1 futures (chunks) ... DONE 1561s [00:52:41.214] Resolving 1 futures (chunks) ... 1561s [00:52:41.214] resolve() on list ... 1561s [00:52:41.214] recursive: 0 1561s [00:52:41.214] length: 1 1561s [00:52:41.214] 1561s [00:52:41.215] resolved() for ‘SequentialFuture’ ... 1561s [00:52:41.215] - state: ‘finished’ 1561s [00:52:41.215] - run: TRUE 1561s [00:52:41.215] - result: ‘FutureResult’ 1561s [00:52:41.215] resolved() for ‘SequentialFuture’ ... done 1561s [00:52:41.215] Future #1 1561s [00:52:41.216] signalConditionsASAP(SequentialFuture, pos=1) ... 1561s [00:52:41.216] - nx: 1 1561s [00:52:41.216] - relay: TRUE 1561s [00:52:41.216] - stdout: TRUE 1561s [00:52:41.216] - signal: TRUE 1561s [00:52:41.216] - resignal: FALSE 1561s [00:52:41.217] - force: TRUE 1561s [00:52:41.217] - relayed: [n=1] FALSE 1561s [00:52:41.217] - queued futures: [n=1] FALSE 1561s [00:52:41.217] - until=1 1561s [00:52:41.218] - relaying element #1 1561s [00:52:41.218] - relayed: [n=1] TRUE 1561s [00:52:41.218] - queued futures: [n=1] TRUE 1561s [00:52:41.218] signalConditionsASAP(SequentialFuture, pos=1) ... done 1561s [00:52:41.219] length: 0 (resolved future 1) 1561s [00:52:41.219] Relaying remaining futures 1561s [00:52:41.219] signalConditionsASAP(NULL, pos=0) ... 1561s [00:52:41.219] - nx: 1 1561s [00:52:41.219] - relay: TRUE 1561s [00:52:41.219] - stdout: TRUE 1561s [00:52:41.219] - signal: TRUE 1561s [00:52:41.220] - resignal: FALSE 1561s [00:52:41.220] - force: TRUE 1561s [00:52:41.220] - relayed: [n=1] TRUE 1561s [00:52:41.220] - queued futures: [n=1] TRUE 1561s - flush all 1561s [00:52:41.220] - relayed: [n=1] TRUE 1561s [00:52:41.221] - queued futures: [n=1] TRUE 1561s [00:52:41.221] signalConditionsASAP(NULL, pos=0) ... done 1561s [00:52:41.221] resolve() on list ... DONE 1561s [00:52:41.221] - Number of value chunks collected: 1 1561s [00:52:41.221] Resolving 1 futures (chunks) ... DONE 1561s [00:52:41.221] Reducing values from 1 chunks ... 1561s [00:52:41.221] - Number of values collected after concatenation: 2 1561s [00:52:41.222] - Number of values expected: 2 1561s [00:52:41.222] Reducing values from 1 chunks ... DONE 1561s [00:52:41.222] future_mapply() ... DONE 1561s [00:52:41.222] future_mapply() ... 1561s [00:52:41.222] Generating random seeds ... 1561s [00:52:41.222] Generating random seed streams for 2 elements ... 1561s [00:52:41.223] Generating random seed streams for 2 elements ... DONE 1561s [00:52:41.223] Generating random seeds ... DONE 1561s [00:52:41.223] Will set RNG state on exit: 10407, -859112415, -263171952, -846696676, -732328588, -1330872138, -23889012 1561s [00:52:41.223] Number of chunks: 1 1561s [00:52:41.223] getGlobalsAndPackagesXApply() ... 1561s [00:52:41.223] - future.globals: TRUE 1561s [00:52:41.224] getGlobalsAndPackages() ... 1561s [00:52:41.224] Searching for globals... 1561s [00:52:41.225] - globals found: [1] ‘FUN’ 1561s [00:52:41.225] Searching for globals ... DONE 1561s [00:52:41.225] Resolving globals: FALSE 1561s [00:52:41.226] The total size of the 1 globals is 1.66 KiB (1704 bytes) 1561s [00:52:41.226] The total size of the 1 globals exported for future expression (‘FUN(y = 3:4)’) is 1.66 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.66 KiB of class ‘function’) 1561s [00:52:41.226] - globals: [1] ‘FUN’ 1561s [00:52:41.227] 1561s [00:52:41.227] getGlobalsAndPackages() ... DONE 1561s [00:52:41.227] - globals found/used: [n=1] ‘FUN’ 1561s [00:52:41.227] - needed namespaces: [n=0] 1561s [00:52:41.227] Finding globals ... DONE 1561s [00:52:41.227] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1561s [00:52:41.228] List of 2 1561s [00:52:41.228] $ ...future.FUN:function (x, y) 1561s [00:52:41.228] $ MoreArgs :List of 1 1561s [00:52:41.228] ..$ y: int [1:2] 3 4 1561s [00:52:41.228] - attr(*, "where")=List of 2 1561s [00:52:41.228] ..$ ...future.FUN: 1561s [00:52:41.228] ..$ MoreArgs : 1561s [00:52:41.228] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1561s [00:52:41.228] - attr(*, "resolved")= logi FALSE 1561s [00:52:41.228] - attr(*, "total_size")= num NA 1561s [00:52:41.232] Packages to be attached in all futures: [n=0] 1561s [00:52:41.233] getGlobalsAndPackagesXApply() ... DONE 1561s [00:52:41.233] Number of futures (= number of chunks): 1 1561s [00:52:41.233] Launching 1 futures (chunks) ... 1561s [00:52:41.234] Chunk #1 of 1 ... 1561s [00:52:41.234] - Finding globals in '...' for chunk #1 ... 1561s [00:52:41.234] getGlobalsAndPackages() ... 1561s [00:52:41.234] Searching for globals... 1561s [00:52:41.235] 1561s [00:52:41.235] Searching for globals ... DONE 1561s [00:52:41.235] - globals: [0] 1561s [00:52:41.235] getGlobalsAndPackages() ... DONE 1561s [00:52:41.235] + additional globals found: [n=0] 1561s [00:52:41.236] + additional namespaces needed: [n=0] 1561s [00:52:41.236] - Finding globals in '...' for chunk #1 ... DONE 1561s [00:52:41.236] - seeds: [2] 1561s [00:52:41.236] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:41.236] getGlobalsAndPackages() ... 1561s [00:52:41.236] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:41.237] Resolving globals: FALSE 1561s [00:52:41.237] The total size of the 5 globals is 1.98 KiB (2032 bytes) 1561s [00:52:41.238] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 1.98 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (1.66 KiB of class ‘function’), ‘...future.seeds_ii’ (160 bytes of class ‘list’) and ‘...future.elements_ii’ (112 bytes of class ‘list’) 1561s [00:52:41.238] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:41.238] 1561s [00:52:41.239] getGlobalsAndPackages() ... DONE 1561s [00:52:41.239] run() for ‘Future’ ... 1561s [00:52:41.239] - state: ‘created’ 1561s [00:52:41.239] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1561s [00:52:41.240] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1561s [00:52:41.240] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1561s [00:52:41.240] - Field: ‘label’ 1561s [00:52:41.240] - Field: ‘local’ 1561s [00:52:41.241] - Field: ‘owner’ 1561s [00:52:41.241] - Field: ‘envir’ 1561s [00:52:41.241] - Field: ‘packages’ 1561s [00:52:41.241] - Field: ‘gc’ 1561s [00:52:41.241] - Field: ‘conditions’ 1561s [00:52:41.241] - Field: ‘expr’ 1561s [00:52:41.242] - Field: ‘uuid’ 1561s [00:52:41.242] - Field: ‘seed’ 1561s [00:52:41.242] - Field: ‘version’ 1561s [00:52:41.242] - Field: ‘result’ 1561s [00:52:41.244] - Field: ‘asynchronous’ 1561s [00:52:41.244] - Field: ‘calls’ 1561s [00:52:41.244] - Field: ‘globals’ 1561s [00:52:41.245] - Field: ‘stdout’ 1561s [00:52:41.245] - Field: ‘earlySignal’ 1561s [00:52:41.245] - Field: ‘lazy’ 1561s [00:52:41.245] - Field: ‘state’ 1561s [00:52:41.245] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1561s [00:52:41.246] - Launch lazy future ... 1561s [00:52:41.246] Packages needed by the future expression (n = 0): 1561s [00:52:41.246] Packages needed by future strategies (n = 0): 1561s [00:52:41.247] { 1561s [00:52:41.247] { 1561s [00:52:41.247] { 1561s [00:52:41.247] ...future.startTime <- base::Sys.time() 1561s [00:52:41.247] { 1561s [00:52:41.247] { 1561s [00:52:41.247] { 1561s [00:52:41.247] base::local({ 1561s [00:52:41.247] has_future <- base::requireNamespace("future", 1561s [00:52:41.247] quietly = TRUE) 1561s [00:52:41.247] if (has_future) { 1561s [00:52:41.247] ns <- base::getNamespace("future") 1561s [00:52:41.247] version <- ns[[".package"]][["version"]] 1561s [00:52:41.247] if (is.null(version)) 1561s [00:52:41.247] version <- utils::packageVersion("future") 1561s [00:52:41.247] } 1561s [00:52:41.247] else { 1561s [00:52:41.247] version <- NULL 1561s [00:52:41.247] } 1561s [00:52:41.247] if (!has_future || version < "1.8.0") { 1561s [00:52:41.247] info <- base::c(r_version = base::gsub("R version ", 1561s [00:52:41.247] "", base::R.version$version.string), 1561s [00:52:41.247] platform = base::sprintf("%s (%s-bit)", 1561s [00:52:41.247] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1561s [00:52:41.247] os = base::paste(base::Sys.info()[base::c("sysname", 1561s [00:52:41.247] "release", "version")], collapse = " "), 1561s [00:52:41.247] hostname = base::Sys.info()[["nodename"]]) 1561s [00:52:41.247] info <- base::sprintf("%s: %s", base::names(info), 1561s [00:52:41.247] info) 1561s [00:52:41.247] info <- base::paste(info, collapse = "; ") 1561s [00:52:41.247] if (!has_future) { 1561s [00:52:41.247] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1561s [00:52:41.247] info) 1561s [00:52:41.247] } 1561s [00:52:41.247] else { 1561s [00:52:41.247] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1561s [00:52:41.247] info, version) 1561s [00:52:41.247] } 1561s [00:52:41.247] base::stop(msg) 1561s [00:52:41.247] } 1561s [00:52:41.247] }) 1561s [00:52:41.247] } 1561s [00:52:41.247] options(future.plan = NULL) 1561s [00:52:41.247] Sys.unsetenv("R_FUTURE_PLAN") 1561s [00:52:41.247] future::plan("default", .cleanup = FALSE, .init = FALSE) 1561s [00:52:41.247] } 1561s [00:52:41.247] ...future.workdir <- getwd() 1561s [00:52:41.247] } 1561s [00:52:41.247] ...future.oldOptions <- base::as.list(base::.Options) 1561s [00:52:41.247] ...future.oldEnvVars <- base::Sys.getenv() 1561s [00:52:41.247] } 1561s [00:52:41.247] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1561s [00:52:41.247] future.globals.maxSize = NULL, future.globals.method = NULL, 1561s [00:52:41.247] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1561s [00:52:41.247] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1561s [00:52:41.247] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1561s [00:52:41.247] future.stdout.windows.reencode = NULL, width = 80L) 1561s [00:52:41.247] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1561s [00:52:41.247] base::names(...future.oldOptions)) 1561s [00:52:41.247] } 1561s [00:52:41.247] if (FALSE) { 1561s [00:52:41.247] } 1561s [00:52:41.247] else { 1561s [00:52:41.247] if (TRUE) { 1561s [00:52:41.247] ...future.stdout <- base::rawConnection(base::raw(0L), 1561s [00:52:41.247] open = "w") 1561s [00:52:41.247] } 1561s [00:52:41.247] else { 1561s [00:52:41.247] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1561s [00:52:41.247] windows = "NUL", "/dev/null"), open = "w") 1561s [00:52:41.247] } 1561s [00:52:41.247] base::sink(...future.stdout, type = "output", split = FALSE) 1561s [00:52:41.247] base::on.exit(if (!base::is.null(...future.stdout)) { 1561s [00:52:41.247] base::sink(type = "output", split = FALSE) 1561s [00:52:41.247] base::close(...future.stdout) 1561s [00:52:41.247] }, add = TRUE) 1561s [00:52:41.247] } 1561s [00:52:41.247] ...future.frame <- base::sys.nframe() 1561s [00:52:41.247] ...future.conditions <- base::list() 1561s [00:52:41.247] ...future.rng <- base::globalenv()$.Random.seed 1561s [00:52:41.247] if (FALSE) { 1561s [00:52:41.247] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1561s [00:52:41.247] "...future.value", "...future.globalenv.names", ".Random.seed") 1561s [00:52:41.247] } 1561s [00:52:41.247] ...future.result <- base::tryCatch({ 1561s [00:52:41.247] base::withCallingHandlers({ 1561s [00:52:41.247] ...future.value <- base::withVisible(base::local({ 1561s [00:52:41.247] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1561s [00:52:41.247] if (!identical(...future.globals.maxSize.org, 1561s [00:52:41.247] ...future.globals.maxSize)) { 1561s [00:52:41.247] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1561s [00:52:41.247] on.exit(options(oopts), add = TRUE) 1561s [00:52:41.247] } 1561s [00:52:41.247] { 1561s [00:52:41.247] ...future.FUN2 <- function(..., ...future.seeds_ii_jj) { 1561s [00:52:41.247] assign(".Random.seed", ...future.seeds_ii_jj, 1561s [00:52:41.247] envir = globalenv(), inherits = FALSE) 1561s [00:52:41.247] ...future.FUN(...) 1561s [00:52:41.247] } 1561s [00:52:41.247] args <- c(list(FUN = ...future.FUN2), ...future.elements_ii, 1561s [00:52:41.247] list(...future.seeds_ii_jj = ...future.seeds_ii), 1561s [00:52:41.247] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1561s [00:52:41.247] USE.NAMES = FALSE) 1561s [00:52:41.247] do.call(mapply, args = args) 1561s [00:52:41.247] } 1561s [00:52:41.247] })) 1561s [00:52:41.247] future::FutureResult(value = ...future.value$value, 1561s [00:52:41.247] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1561s [00:52:41.247] ...future.rng), globalenv = if (FALSE) 1561s [00:52:41.247] list(added = base::setdiff(base::names(base::.GlobalEnv), 1561s [00:52:41.247] ...future.globalenv.names)) 1561s [00:52:41.247] else NULL, started = ...future.startTime, version = "1.8") 1561s [00:52:41.247] }, condition = base::local({ 1561s [00:52:41.247] c <- base::c 1561s [00:52:41.247] inherits <- base::inherits 1561s [00:52:41.247] invokeRestart <- base::invokeRestart 1561s [00:52:41.247] length <- base::length 1561s [00:52:41.247] list <- base::list 1561s [00:52:41.247] seq.int <- base::seq.int 1561s [00:52:41.247] signalCondition <- base::signalCondition 1561s [00:52:41.247] sys.calls <- base::sys.calls 1561s [00:52:41.247] `[[` <- base::`[[` 1561s [00:52:41.247] `+` <- base::`+` 1561s [00:52:41.247] `<<-` <- base::`<<-` 1561s [00:52:41.247] sysCalls <- function(calls = sys.calls(), from = 1L) { 1561s [00:52:41.247] calls[seq.int(from = from + 12L, to = length(calls) - 1561s [00:52:41.247] 3L)] 1561s [00:52:41.247] } 1561s [00:52:41.247] function(cond) { 1561s [00:52:41.247] is_error <- inherits(cond, "error") 1561s [00:52:41.247] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1561s [00:52:41.247] NULL) 1561s [00:52:41.247] if (is_error) { 1561s [00:52:41.247] sessionInformation <- function() { 1561s [00:52:41.247] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1561s [00:52:41.247] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1561s [00:52:41.247] search = base::search(), system = base::Sys.info()) 1561s [00:52:41.247] } 1561s [00:52:41.247] ...future.conditions[[length(...future.conditions) + 1561s [00:52:41.247] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1561s [00:52:41.247] cond$call), session = sessionInformation(), 1561s [00:52:41.247] timestamp = base::Sys.time(), signaled = 0L) 1561s [00:52:41.247] signalCondition(cond) 1561s [00:52:41.247] } 1561s [00:52:41.247] else if (!ignore && TRUE && inherits(cond, c("condition", 1561s [00:52:41.247] "immediateCondition"))) { 1561s [00:52:41.247] signal <- TRUE && inherits(cond, "immediateCondition") 1561s [00:52:41.247] ...future.conditions[[length(...future.conditions) + 1561s [00:52:41.247] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1561s [00:52:41.247] if (TRUE && !signal) { 1561s [00:52:41.247] muffleCondition <- function (cond, pattern = "^muffle") 1561s [00:52:41.247] { 1561s [00:52:41.247] inherits <- base::inherits 1561s [00:52:41.247] invokeRestart <- base::invokeRestart 1561s [00:52:41.247] is.null <- base::is.null 1561s [00:52:41.247] muffled <- FALSE 1561s [00:52:41.247] if (inherits(cond, "message")) { 1561s [00:52:41.247] muffled <- grepl(pattern, "muffleMessage") 1561s [00:52:41.247] if (muffled) 1561s [00:52:41.247] invokeRestart("muffleMessage") 1561s [00:52:41.247] } 1561s [00:52:41.247] else if (inherits(cond, "warning")) { 1561s [00:52:41.247] muffled <- grepl(pattern, "muffleWarning") 1561s [00:52:41.247] if (muffled) 1561s [00:52:41.247] invokeRestart("muffleWarning") 1561s [00:52:41.247] } 1561s [00:52:41.247] else if (inherits(cond, "condition")) { 1561s [00:52:41.247] if (!is.null(pattern)) { 1561s [00:52:41.247] computeRestarts <- base::computeRestarts 1561s [00:52:41.247] grepl <- base::grepl 1561s [00:52:41.247] restarts <- computeRestarts(cond) 1561s [00:52:41.247] for (restart in restarts) { 1561s [00:52:41.247] name <- restart$name 1561s [00:52:41.247] if (is.null(name)) 1561s [00:52:41.247] next 1561s [00:52:41.247] if (!grepl(pattern, name)) 1561s [00:52:41.247] next 1561s [00:52:41.247] invokeRestart(restart) 1561s [00:52:41.247] muffled <- TRUE 1561s [00:52:41.247] break 1561s [00:52:41.247] } 1561s [00:52:41.247] } 1561s [00:52:41.247] } 1561s [00:52:41.247] invisible(muffled) 1561s [00:52:41.247] } 1561s [00:52:41.247] muffleCondition(cond, pattern = "^muffle") 1561s [00:52:41.247] } 1561s [00:52:41.247] } 1561s [00:52:41.247] else { 1561s [00:52:41.247] if (TRUE) { 1561s [00:52:41.247] muffleCondition <- function (cond, pattern = "^muffle") 1561s [00:52:41.247] { 1561s [00:52:41.247] inherits <- base::inherits 1561s [00:52:41.247] invokeRestart <- base::invokeRestart 1561s [00:52:41.247] is.null <- base::is.null 1561s [00:52:41.247] muffled <- FALSE 1561s [00:52:41.247] if (inherits(cond, "message")) { 1561s [00:52:41.247] muffled <- grepl(pattern, "muffleMessage") 1561s [00:52:41.247] if (muffled) 1561s [00:52:41.247] invokeRestart("muffleMessage") 1561s [00:52:41.247] } 1561s [00:52:41.247] else if (inherits(cond, "warning")) { 1561s [00:52:41.247] muffled <- grepl(pattern, "muffleWarning") 1561s [00:52:41.247] if (muffled) 1561s [00:52:41.247] invokeRestart("muffleWarning") 1561s [00:52:41.247] } 1561s [00:52:41.247] else if (inherits(cond, "condition")) { 1561s [00:52:41.247] if (!is.null(pattern)) { 1561s [00:52:41.247] computeRestarts <- base::computeRestarts 1561s [00:52:41.247] grepl <- base::grepl 1561s [00:52:41.247] restarts <- computeRestarts(cond) 1561s [00:52:41.247] for (restart in restarts) { 1561s [00:52:41.247] name <- restart$name 1561s [00:52:41.247] if (is.null(name)) 1561s [00:52:41.247] next 1561s [00:52:41.247] if (!grepl(pattern, name)) 1561s [00:52:41.247] next 1561s [00:52:41.247] invokeRestart(restart) 1561s [00:52:41.247] muffled <- TRUE 1561s [00:52:41.247] break 1561s [00:52:41.247] } 1561s [00:52:41.247] } 1561s [00:52:41.247] } 1561s [00:52:41.247] invisible(muffled) 1561s [00:52:41.247] } 1561s [00:52:41.247] muffleCondition(cond, pattern = "^muffle") 1561s [00:52:41.247] } 1561s [00:52:41.247] } 1561s [00:52:41.247] } 1561s [00:52:41.247] })) 1561s [00:52:41.247] }, error = function(ex) { 1561s [00:52:41.247] base::structure(base::list(value = NULL, visible = NULL, 1561s [00:52:41.247] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1561s [00:52:41.247] ...future.rng), started = ...future.startTime, 1561s [00:52:41.247] finished = Sys.time(), session_uuid = NA_character_, 1561s [00:52:41.247] version = "1.8"), class = "FutureResult") 1561s [00:52:41.247] }, finally = { 1561s [00:52:41.247] if (!identical(...future.workdir, getwd())) 1561s [00:52:41.247] setwd(...future.workdir) 1561s [00:52:41.247] { 1561s [00:52:41.247] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1561s [00:52:41.247] ...future.oldOptions$nwarnings <- NULL 1561s [00:52:41.247] } 1561s [00:52:41.247] base::options(...future.oldOptions) 1561s [00:52:41.247] if (.Platform$OS.type == "windows") { 1561s [00:52:41.247] old_names <- names(...future.oldEnvVars) 1561s [00:52:41.247] envs <- base::Sys.getenv() 1561s [00:52:41.247] names <- names(envs) 1561s [00:52:41.247] common <- intersect(names, old_names) 1561s [00:52:41.247] added <- setdiff(names, old_names) 1561s [00:52:41.247] removed <- setdiff(old_names, names) 1561s [00:52:41.247] changed <- common[...future.oldEnvVars[common] != 1561s [00:52:41.247] envs[common]] 1561s [00:52:41.247] NAMES <- toupper(changed) 1561s [00:52:41.247] args <- list() 1561s [00:52:41.247] for (kk in seq_along(NAMES)) { 1561s [00:52:41.247] name <- changed[[kk]] 1561s [00:52:41.247] NAME <- NAMES[[kk]] 1561s [00:52:41.247] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:41.247] next 1561s [00:52:41.247] args[[name]] <- ...future.oldEnvVars[[name]] 1561s [00:52:41.247] } 1561s [00:52:41.247] NAMES <- toupper(added) 1561s [00:52:41.247] for (kk in seq_along(NAMES)) { 1561s [00:52:41.247] name <- added[[kk]] 1561s [00:52:41.247] NAME <- NAMES[[kk]] 1561s [00:52:41.247] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:41.247] next 1561s [00:52:41.247] args[[name]] <- "" 1561s [00:52:41.247] } 1561s [00:52:41.247] NAMES <- toupper(removed) 1561s [00:52:41.247] for (kk in seq_along(NAMES)) { 1561s [00:52:41.247] name <- removed[[kk]] 1561s [00:52:41.247] NAME <- NAMES[[kk]] 1561s [00:52:41.247] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:41.247] next 1561s [00:52:41.247] args[[name]] <- ...future.oldEnvVars[[name]] 1561s [00:52:41.247] } 1561s [00:52:41.247] if (length(args) > 0) 1561s [00:52:41.247] base::do.call(base::Sys.setenv, args = args) 1561s [00:52:41.247] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1561s [00:52:41.247] } 1561s [00:52:41.247] else { 1561s [00:52:41.247] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1561s [00:52:41.247] } 1561s [00:52:41.247] { 1561s [00:52:41.247] if (base::length(...future.futureOptionsAdded) > 1561s [00:52:41.247] 0L) { 1561s [00:52:41.247] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1561s [00:52:41.247] base::names(opts) <- ...future.futureOptionsAdded 1561s [00:52:41.247] base::options(opts) 1561s [00:52:41.247] } 1561s [00:52:41.247] { 1561s [00:52:41.247] { 1561s [00:52:41.247] base::assign(".Random.seed", c(10407L, -859112415L, 1561s [00:52:41.247] -263171952L, -846696676L, -732328588L, -1330872138L, 1561s [00:52:41.247] -23889012L), envir = base::globalenv(), inherits = FALSE) 1561s [00:52:41.247] NULL 1561s [00:52:41.247] } 1561s [00:52:41.247] options(future.plan = NULL) 1561s [00:52:41.247] if (is.na(NA_character_)) 1561s [00:52:41.247] Sys.unsetenv("R_FUTURE_PLAN") 1561s [00:52:41.247] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1561s [00:52:41.247] future::plan(list(function (..., envir = parent.frame()) 1561s [00:52:41.247] { 1561s [00:52:41.247] future <- SequentialFuture(..., envir = envir) 1561s [00:52:41.247] if (!future$lazy) 1561s [00:52:41.247] future <- run(future) 1561s [00:52:41.247] invisible(future) 1561s [00:52:41.247] }), .cleanup = FALSE, .init = FALSE) 1561s [00:52:41.247] } 1561s [00:52:41.247] } 1561s [00:52:41.247] } 1561s [00:52:41.247] }) 1561s [00:52:41.247] if (TRUE) { 1561s [00:52:41.247] base::sink(type = "output", split = FALSE) 1561s [00:52:41.247] if (TRUE) { 1561s [00:52:41.247] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1561s [00:52:41.247] } 1561s [00:52:41.247] else { 1561s [00:52:41.247] ...future.result["stdout"] <- base::list(NULL) 1561s [00:52:41.247] } 1561s [00:52:41.247] base::close(...future.stdout) 1561s [00:52:41.247] ...future.stdout <- NULL 1561s [00:52:41.247] } 1561s [00:52:41.247] ...future.result$conditions <- ...future.conditions 1561s [00:52:41.247] ...future.result$finished <- base::Sys.time() 1561s [00:52:41.247] ...future.result 1561s [00:52:41.247] } 1561s [00:52:41.251] assign_globals() ... 1561s [00:52:41.251] List of 5 1561s [00:52:41.251] $ ...future.FUN :function (x, y) 1561s [00:52:41.251] $ MoreArgs :List of 1 1561s [00:52:41.251] ..$ y: int [1:2] 3 4 1561s [00:52:41.251] $ ...future.elements_ii :List of 1 1561s [00:52:41.251] ..$ x:List of 2 1561s [00:52:41.251] .. ..$ : int 1 1561s [00:52:41.251] .. ..$ : int 2 1561s [00:52:41.251] $ ...future.seeds_ii :List of 2 1561s [00:52:41.251] ..$ : int [1:7] 10407 -105615803 1272588567 1600687400 1032532026 -2026020317 -1252523197 1561s [00:52:41.251] ..$ : int [1:7] 10407 262991196 661514057 299285075 1167316057 885764240 -1731335639 1561s [00:52:41.251] $ ...future.globals.maxSize: NULL 1561s [00:52:41.251] - attr(*, "where")=List of 5 1561s [00:52:41.251] ..$ ...future.FUN : 1561s [00:52:41.251] ..$ MoreArgs : 1561s [00:52:41.251] ..$ ...future.elements_ii : 1561s [00:52:41.251] ..$ ...future.seeds_ii : 1561s [00:52:41.251] ..$ ...future.globals.maxSize: 1561s [00:52:41.251] - attr(*, "resolved")= logi FALSE 1561s [00:52:41.251] - attr(*, "total_size")= num 2032 1561s [00:52:41.251] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1561s [00:52:41.251] - attr(*, "already-done")= logi TRUE 1561s [00:52:41.261] - reassign environment for ‘...future.FUN’ 1561s [00:52:41.262] - copied ‘...future.FUN’ to environment 1561s [00:52:41.262] - copied ‘MoreArgs’ to environment 1561s [00:52:41.262] - copied ‘...future.elements_ii’ to environment 1561s [00:52:41.262] - copied ‘...future.seeds_ii’ to environment 1561s [00:52:41.262] - copied ‘...future.globals.maxSize’ to environment 1561s [00:52:41.262] assign_globals() ... done 1561s [00:52:41.263] plan(): Setting new future strategy stack: 1561s [00:52:41.263] List of future strategies: 1561s [00:52:41.263] 1. sequential: 1561s [00:52:41.263] - args: function (..., envir = parent.frame()) 1561s [00:52:41.263] - tweaked: FALSE 1561s [00:52:41.263] - call: NULL 1561s [00:52:41.264] plan(): nbrOfWorkers() = 1 1561s [00:52:41.265] plan(): Setting new future strategy stack: 1561s [00:52:41.265] List of future strategies: 1561s [00:52:41.265] 1. sequential: 1561s [00:52:41.265] - args: function (..., envir = parent.frame()) 1561s [00:52:41.265] - tweaked: FALSE 1561s [00:52:41.265] - call: plan(strategy) 1561s [00:52:41.266] plan(): nbrOfWorkers() = 1 1561s [00:52:41.266] SequentialFuture started (and completed) 1561s [00:52:41.266] - Launch lazy future ... done 1561s [00:52:41.266] run() for ‘SequentialFuture’ ... done 1561s [00:52:41.266] Created future: 1561s [00:52:41.266] SequentialFuture: 1561s [00:52:41.266] Label: ‘future_mapply-1’ 1561s [00:52:41.266] Expression: 1561s [00:52:41.266] { 1561s [00:52:41.266] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1561s [00:52:41.266] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1561s [00:52:41.266] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1561s [00:52:41.266] on.exit(options(oopts), add = TRUE) 1561s [00:52:41.266] } 1561s [00:52:41.266] { 1561s [00:52:41.266] ...future.FUN2 <- function(..., ...future.seeds_ii_jj) { 1561s [00:52:41.266] assign(".Random.seed", ...future.seeds_ii_jj, envir = globalenv(), 1561s [00:52:41.266] inherits = FALSE) 1561s [00:52:41.266] ...future.FUN(...) 1561s [00:52:41.266] } 1561s [00:52:41.266] args <- c(list(FUN = ...future.FUN2), ...future.elements_ii, 1561s [00:52:41.266] list(...future.seeds_ii_jj = ...future.seeds_ii), 1561s [00:52:41.266] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1561s [00:52:41.266] do.call(mapply, args = args) 1561s [00:52:41.266] } 1561s [00:52:41.266] } 1561s [00:52:41.266] Lazy evaluation: FALSE 1561s [00:52:41.266] Asynchronous evaluation: FALSE 1561s [00:52:41.266] Local evaluation: TRUE 1561s [00:52:41.266] Environment: R_GlobalEnv 1561s [00:52:41.266] Capture standard output: TRUE 1561s [00:52:41.266] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1561s [00:52:41.266] Globals: 5 objects totaling 1.98 KiB (function ‘...future.FUN’ of 1.66 KiB, list ‘MoreArgs’ of 56 bytes, list ‘...future.elements_ii’ of 112 bytes, list ‘...future.seeds_ii’ of 160 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1561s [00:52:41.266] Packages: 1561s [00:52:41.266] L'Ecuyer-CMRG RNG seed: (seed = NULL) 1561s [00:52:41.266] Resolved: TRUE 1561s [00:52:41.266] Value: 112 bytes of class ‘list’ 1561s [00:52:41.266] Early signaling: FALSE 1561s [00:52:41.266] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1561s [00:52:41.266] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1561s [00:52:41.268] Chunk #1 of 1 ... DONE 1561s [00:52:41.268] Launching 1 futures (chunks) ... DONE 1561s [00:52:41.268] Resolving 1 futures (chunks) ... 1561s [00:52:41.269] resolve() on list ... 1561s [00:52:41.269] recursive: 0 1561s [00:52:41.269] length: 1 1561s [00:52:41.269] 1561s [00:52:41.269] resolved() for ‘SequentialFuture’ ... 1561s [00:52:41.269] - state: ‘finished’ 1561s [00:52:41.269] - run: TRUE 1561s [00:52:41.270] - result: ‘FutureResult’ 1561s [00:52:41.270] resolved() for ‘SequentialFuture’ ... done 1561s [00:52:41.270] Future #1 1561s [00:52:41.270] signalConditionsASAP(SequentialFuture, pos=1) ... 1561s [00:52:41.270] - nx: 1 1561s [00:52:41.271] - relay: TRUE 1561s [00:52:41.271] - stdout: TRUE 1561s [00:52:41.271] - signal: TRUE 1561s [00:52:41.271] - resignal: FALSE 1561s [00:52:41.271] - force: TRUE 1561s [00:52:41.271] - relayed: [n=1] FALSE 1561s [00:52:41.271] - queued futures: [n=1] FALSE 1561s [00:52:41.272] - until=1 1561s [00:52:41.272] - relaying element #1 1561s [00:52:41.272] - relayed: [n=1] TRUE 1561s [00:52:41.272] - queued futures: [n=1] TRUE 1561s [00:52:41.272] signalConditionsASAP(SequentialFuture, pos=1) ... done 1561s [00:52:41.273] length: 0 (resolved future 1) 1561s [00:52:41.273] Relaying remaining futures 1561s [00:52:41.273] signalConditionsASAP(NULL, pos=0) ... 1561s [00:52:41.273] - nx: 1 1561s [00:52:41.273] - relay: TRUE 1561s [00:52:41.273] - stdout: TRUE 1561s [00:52:41.273] - signal: TRUE 1561s [00:52:41.274] - resignal: FALSE 1561s [00:52:41.274] - force: TRUE 1561s [00:52:41.274] - relayed: [n=1] TRUE 1561s [00:52:41.274] - queued futures: [n=1] TRUE 1561s - flush all 1561s [00:52:41.274] - relayed: [n=1] TRUE 1561s [00:52:41.274] - queued futures: [n=1] TRUE 1561s [00:52:41.275] signalConditionsASAP(NULL, pos=0) ... done 1561s [00:52:41.275] resolve() on list ... DONE 1561s [00:52:41.275] - Number of value chunks collected: 1 1561s [00:52:41.275] Resolving 1 futures (chunks) ... DONE 1561s [00:52:41.275] Reducing values from 1 chunks ... 1561s [00:52:41.276] - Number of values collected after concatenation: 2 1561s [00:52:41.276] - Number of values expected: 2 1561s [00:52:41.276] Reducing values from 1 chunks ... DONE 1561s [00:52:41.276] future_mapply() ... DONE 1561s [00:52:41.276] future_mapply() ... 1561s [00:52:41.276] Number of chunks: 1 1561s [00:52:41.277] getGlobalsAndPackagesXApply() ... 1561s [00:52:41.277] - future.globals: TRUE 1561s [00:52:41.277] getGlobalsAndPackages() ... 1561s [00:52:41.277] Searching for globals... 1561s [00:52:41.278] - globals found: [1] ‘FUN’ 1561s [00:52:41.279] Searching for globals ... DONE 1561s [00:52:41.279] Resolving globals: FALSE 1561s [00:52:41.279] The total size of the 1 globals is 1.66 KiB (1704 bytes) 1561s [00:52:41.280] The total size of the 1 globals exported for future expression (‘FUN(y = 3:4)’) is 1.66 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.66 KiB of class ‘function’) 1561s [00:52:41.280] - globals: [1] ‘FUN’ 1561s [00:52:41.280] 1561s [00:52:41.280] getGlobalsAndPackages() ... DONE 1561s [00:52:41.280] - globals found/used: [n=1] ‘FUN’ 1561s [00:52:41.280] - needed namespaces: [n=0] 1561s [00:52:41.281] Finding globals ... DONE 1561s [00:52:41.281] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1561s [00:52:41.281] List of 2 1561s [00:52:41.281] $ ...future.FUN:function (x, y) 1561s [00:52:41.281] $ MoreArgs :List of 1 1561s [00:52:41.281] ..$ y: int [1:2] 3 4 1561s [00:52:41.281] - attr(*, "where")=List of 2 1561s [00:52:41.281] ..$ ...future.FUN: 1561s [00:52:41.281] ..$ MoreArgs : 1561s [00:52:41.281] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1561s [00:52:41.281] - attr(*, "resolved")= logi FALSE 1561s [00:52:41.281] - attr(*, "total_size")= num NA 1561s [00:52:41.287] Packages to be attached in all futures: [n=0] 1561s [00:52:41.287] getGlobalsAndPackagesXApply() ... DONE 1561s [00:52:41.287] Number of futures (= number of chunks): 1 1561s [00:52:41.287] Launching 1 futures (chunks) ... 1561s [00:52:41.287] Chunk #1 of 1 ... 1561s [00:52:41.287] - Finding globals in '...' for chunk #1 ... 1561s [00:52:41.288] getGlobalsAndPackages() ... 1561s [00:52:41.288] Searching for globals... 1561s [00:52:41.288] 1561s [00:52:41.288] Searching for globals ... DONE 1561s [00:52:41.288] - globals: [0] 1561s [00:52:41.289] getGlobalsAndPackages() ... DONE 1561s [00:52:41.289] + additional globals found: [n=0] 1561s [00:52:41.289] + additional namespaces needed: [n=0] 1561s [00:52:41.290] - Finding globals in '...' for chunk #1 ... DONE 1561s [00:52:41.290] - seeds: 1561s [00:52:41.290] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:41.290] getGlobalsAndPackages() ... 1561s [00:52:41.290] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:41.291] Resolving globals: FALSE 1561s [00:52:41.291] The total size of the 5 globals is 1.83 KiB (1872 bytes) 1561s [00:52:41.292] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 1.83 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (1.66 KiB of class ‘function’), ‘...future.elements_ii’ (112 bytes of class ‘list’) and ‘MoreArgs’ (56 bytes of class ‘list’) 1561s [00:52:41.293] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:41.293] 1561s [00:52:41.293] getGlobalsAndPackages() ... DONE 1561s [00:52:41.294] run() for ‘Future’ ... 1561s [00:52:41.294] - state: ‘created’ 1561s [00:52:41.294] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1561s [00:52:41.294] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1561s [00:52:41.294] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1561s [00:52:41.295] - Field: ‘label’ 1561s [00:52:41.295] - Field: ‘local’ 1561s [00:52:41.295] - Field: ‘owner’ 1561s [00:52:41.295] - Field: ‘envir’ 1561s [00:52:41.295] - Field: ‘packages’ 1561s [00:52:41.295] - Field: ‘gc’ 1561s [00:52:41.296] - Field: ‘conditions’ 1561s [00:52:41.296] - Field: ‘expr’ 1561s [00:52:41.296] - Field: ‘uuid’ 1561s [00:52:41.296] - Field: ‘seed’ 1561s [00:52:41.296] - Field: ‘version’ 1561s [00:52:41.296] - Field: ‘result’ 1561s [00:52:41.297] - Field: ‘asynchronous’ 1561s [00:52:41.297] - Field: ‘calls’ 1561s [00:52:41.297] - Field: ‘globals’ 1561s [00:52:41.297] - Field: ‘stdout’ 1561s [00:52:41.297] - Field: ‘earlySignal’ 1561s [00:52:41.297] - Field: ‘lazy’ 1561s [00:52:41.298] - Field: ‘state’ 1561s [00:52:41.298] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1561s [00:52:41.298] - Launch lazy future ... 1561s [00:52:41.298] Packages needed by the future expression (n = 0): 1561s [00:52:41.298] Packages needed by future strategies (n = 0): 1561s [00:52:41.299] { 1561s [00:52:41.299] { 1561s [00:52:41.299] { 1561s [00:52:41.299] ...future.startTime <- base::Sys.time() 1561s [00:52:41.299] { 1561s [00:52:41.299] { 1561s [00:52:41.299] { 1561s [00:52:41.299] base::local({ 1561s [00:52:41.299] has_future <- base::requireNamespace("future", 1561s [00:52:41.299] quietly = TRUE) 1561s [00:52:41.299] if (has_future) { 1561s [00:52:41.299] ns <- base::getNamespace("future") 1561s [00:52:41.299] version <- ns[[".package"]][["version"]] 1561s [00:52:41.299] if (is.null(version)) 1561s [00:52:41.299] version <- utils::packageVersion("future") 1561s [00:52:41.299] } 1561s [00:52:41.299] else { 1561s [00:52:41.299] version <- NULL 1561s [00:52:41.299] } 1561s [00:52:41.299] if (!has_future || version < "1.8.0") { 1561s [00:52:41.299] info <- base::c(r_version = base::gsub("R version ", 1561s [00:52:41.299] "", base::R.version$version.string), 1561s [00:52:41.299] platform = base::sprintf("%s (%s-bit)", 1561s [00:52:41.299] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1561s [00:52:41.299] os = base::paste(base::Sys.info()[base::c("sysname", 1561s [00:52:41.299] "release", "version")], collapse = " "), 1561s [00:52:41.299] hostname = base::Sys.info()[["nodename"]]) 1561s [00:52:41.299] info <- base::sprintf("%s: %s", base::names(info), 1561s [00:52:41.299] info) 1561s [00:52:41.299] info <- base::paste(info, collapse = "; ") 1561s [00:52:41.299] if (!has_future) { 1561s [00:52:41.299] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1561s [00:52:41.299] info) 1561s [00:52:41.299] } 1561s [00:52:41.299] else { 1561s [00:52:41.299] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1561s [00:52:41.299] info, version) 1561s [00:52:41.299] } 1561s [00:52:41.299] base::stop(msg) 1561s [00:52:41.299] } 1561s [00:52:41.299] }) 1561s [00:52:41.299] } 1561s [00:52:41.299] options(future.plan = NULL) 1561s [00:52:41.299] Sys.unsetenv("R_FUTURE_PLAN") 1561s [00:52:41.299] future::plan("default", .cleanup = FALSE, .init = FALSE) 1561s [00:52:41.299] } 1561s [00:52:41.299] ...future.workdir <- getwd() 1561s [00:52:41.299] } 1561s [00:52:41.299] ...future.oldOptions <- base::as.list(base::.Options) 1561s [00:52:41.299] ...future.oldEnvVars <- base::Sys.getenv() 1561s [00:52:41.299] } 1561s [00:52:41.299] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1561s [00:52:41.299] future.globals.maxSize = NULL, future.globals.method = NULL, 1561s [00:52:41.299] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1561s [00:52:41.299] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1561s [00:52:41.299] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1561s [00:52:41.299] future.stdout.windows.reencode = NULL, width = 80L) 1561s [00:52:41.299] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1561s [00:52:41.299] base::names(...future.oldOptions)) 1561s [00:52:41.299] } 1561s [00:52:41.299] if (FALSE) { 1561s [00:52:41.299] } 1561s [00:52:41.299] else { 1561s [00:52:41.299] if (TRUE) { 1561s [00:52:41.299] ...future.stdout <- base::rawConnection(base::raw(0L), 1561s [00:52:41.299] open = "w") 1561s [00:52:41.299] } 1561s [00:52:41.299] else { 1561s [00:52:41.299] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1561s [00:52:41.299] windows = "NUL", "/dev/null"), open = "w") 1561s [00:52:41.299] } 1561s [00:52:41.299] base::sink(...future.stdout, type = "output", split = FALSE) 1561s [00:52:41.299] base::on.exit(if (!base::is.null(...future.stdout)) { 1561s [00:52:41.299] base::sink(type = "output", split = FALSE) 1561s [00:52:41.299] base::close(...future.stdout) 1561s [00:52:41.299] }, add = TRUE) 1561s [00:52:41.299] } 1561s [00:52:41.299] ...future.frame <- base::sys.nframe() 1561s [00:52:41.299] ...future.conditions <- base::list() 1561s [00:52:41.299] ...future.rng <- base::globalenv()$.Random.seed 1561s [00:52:41.299] if (FALSE) { 1561s [00:52:41.299] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1561s [00:52:41.299] "...future.value", "...future.globalenv.names", ".Random.seed") 1561s [00:52:41.299] } 1561s [00:52:41.299] ...future.result <- base::tryCatch({ 1561s [00:52:41.299] base::withCallingHandlers({ 1561s [00:52:41.299] ...future.value <- base::withVisible(base::local({ 1561s [00:52:41.299] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1561s [00:52:41.299] if (!identical(...future.globals.maxSize.org, 1561s [00:52:41.299] ...future.globals.maxSize)) { 1561s [00:52:41.299] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1561s [00:52:41.299] on.exit(options(oopts), add = TRUE) 1561s [00:52:41.299] } 1561s [00:52:41.299] { 1561s [00:52:41.299] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1561s [00:52:41.299] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1561s [00:52:41.299] USE.NAMES = FALSE) 1561s [00:52:41.299] do.call(mapply, args = args) 1561s [00:52:41.299] } 1561s [00:52:41.299] })) 1561s [00:52:41.299] future::FutureResult(value = ...future.value$value, 1561s [00:52:41.299] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1561s [00:52:41.299] ...future.rng), globalenv = if (FALSE) 1561s [00:52:41.299] list(added = base::setdiff(base::names(base::.GlobalEnv), 1561s [00:52:41.299] ...future.globalenv.names)) 1561s [00:52:41.299] else NULL, started = ...future.startTime, version = "1.8") 1561s [00:52:41.299] }, condition = base::local({ 1561s [00:52:41.299] c <- base::c 1561s [00:52:41.299] inherits <- base::inherits 1561s [00:52:41.299] invokeRestart <- base::invokeRestart 1561s [00:52:41.299] length <- base::length 1561s [00:52:41.299] list <- base::list 1561s [00:52:41.299] seq.int <- base::seq.int 1561s [00:52:41.299] signalCondition <- base::signalCondition 1561s [00:52:41.299] sys.calls <- base::sys.calls 1561s [00:52:41.299] `[[` <- base::`[[` 1561s [00:52:41.299] `+` <- base::`+` 1561s [00:52:41.299] `<<-` <- base::`<<-` 1561s [00:52:41.299] sysCalls <- function(calls = sys.calls(), from = 1L) { 1561s [00:52:41.299] calls[seq.int(from = from + 12L, to = length(calls) - 1561s [00:52:41.299] 3L)] 1561s [00:52:41.299] } 1561s [00:52:41.299] function(cond) { 1561s [00:52:41.299] is_error <- inherits(cond, "error") 1561s [00:52:41.299] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1561s [00:52:41.299] NULL) 1561s [00:52:41.299] if (is_error) { 1561s [00:52:41.299] sessionInformation <- function() { 1561s [00:52:41.299] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1561s [00:52:41.299] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1561s [00:52:41.299] search = base::search(), system = base::Sys.info()) 1561s [00:52:41.299] } 1561s [00:52:41.299] ...future.conditions[[length(...future.conditions) + 1561s [00:52:41.299] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1561s [00:52:41.299] cond$call), session = sessionInformation(), 1561s [00:52:41.299] timestamp = base::Sys.time(), signaled = 0L) 1561s [00:52:41.299] signalCondition(cond) 1561s [00:52:41.299] } 1561s [00:52:41.299] else if (!ignore && TRUE && inherits(cond, c("condition", 1561s [00:52:41.299] "immediateCondition"))) { 1561s [00:52:41.299] signal <- TRUE && inherits(cond, "immediateCondition") 1561s [00:52:41.299] ...future.conditions[[length(...future.conditions) + 1561s [00:52:41.299] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1561s [00:52:41.299] if (TRUE && !signal) { 1561s [00:52:41.299] muffleCondition <- function (cond, pattern = "^muffle") 1561s [00:52:41.299] { 1561s [00:52:41.299] inherits <- base::inherits 1561s [00:52:41.299] invokeRestart <- base::invokeRestart 1561s [00:52:41.299] is.null <- base::is.null 1561s [00:52:41.299] muffled <- FALSE 1561s [00:52:41.299] if (inherits(cond, "message")) { 1561s [00:52:41.299] muffled <- grepl(pattern, "muffleMessage") 1561s [00:52:41.299] if (muffled) 1561s [00:52:41.299] invokeRestart("muffleMessage") 1561s [00:52:41.299] } 1561s [00:52:41.299] else if (inherits(cond, "warning")) { 1561s [00:52:41.299] muffled <- grepl(pattern, "muffleWarning") 1561s [00:52:41.299] if (muffled) 1561s [00:52:41.299] invokeRestart("muffleWarning") 1561s [00:52:41.299] } 1561s [00:52:41.299] else if (inherits(cond, "condition")) { 1561s [00:52:41.299] if (!is.null(pattern)) { 1561s [00:52:41.299] computeRestarts <- base::computeRestarts 1561s [00:52:41.299] grepl <- base::grepl 1561s [00:52:41.299] restarts <- computeRestarts(cond) 1561s [00:52:41.299] for (restart in restarts) { 1561s [00:52:41.299] name <- restart$name 1561s [00:52:41.299] if (is.null(name)) 1561s [00:52:41.299] next 1561s [00:52:41.299] if (!grepl(pattern, name)) 1561s [00:52:41.299] next 1561s [00:52:41.299] invokeRestart(restart) 1561s [00:52:41.299] muffled <- TRUE 1561s [00:52:41.299] break 1561s [00:52:41.299] } 1561s [00:52:41.299] } 1561s [00:52:41.299] } 1561s [00:52:41.299] invisible(muffled) 1561s [00:52:41.299] } 1561s [00:52:41.299] muffleCondition(cond, pattern = "^muffle") 1561s [00:52:41.299] } 1561s [00:52:41.299] } 1561s [00:52:41.299] else { 1561s [00:52:41.299] if (TRUE) { 1561s [00:52:41.299] muffleCondition <- function (cond, pattern = "^muffle") 1561s [00:52:41.299] { 1561s [00:52:41.299] inherits <- base::inherits 1561s [00:52:41.299] invokeRestart <- base::invokeRestart 1561s [00:52:41.299] is.null <- base::is.null 1561s [00:52:41.299] muffled <- FALSE 1561s [00:52:41.299] if (inherits(cond, "message")) { 1561s [00:52:41.299] muffled <- grepl(pattern, "muffleMessage") 1561s [00:52:41.299] if (muffled) 1561s [00:52:41.299] invokeRestart("muffleMessage") 1561s [00:52:41.299] } 1561s [00:52:41.299] else if (inherits(cond, "warning")) { 1561s [00:52:41.299] muffled <- grepl(pattern, "muffleWarning") 1561s [00:52:41.299] if (muffled) 1561s [00:52:41.299] invokeRestart("muffleWarning") 1561s [00:52:41.299] } 1561s [00:52:41.299] else if (inherits(cond, "condition")) { 1561s [00:52:41.299] if (!is.null(pattern)) { 1561s [00:52:41.299] computeRestarts <- base::computeRestarts 1561s [00:52:41.299] grepl <- base::grepl 1561s [00:52:41.299] restarts <- computeRestarts(cond) 1561s [00:52:41.299] for (restart in restarts) { 1561s [00:52:41.299] name <- restart$name 1561s [00:52:41.299] if (is.null(name)) 1561s [00:52:41.299] next 1561s [00:52:41.299] if (!grepl(pattern, name)) 1561s [00:52:41.299] next 1561s [00:52:41.299] invokeRestart(restart) 1561s [00:52:41.299] muffled <- TRUE 1561s [00:52:41.299] break 1561s [00:52:41.299] } 1561s [00:52:41.299] } 1561s [00:52:41.299] } 1561s [00:52:41.299] invisible(muffled) 1561s [00:52:41.299] } 1561s [00:52:41.299] muffleCondition(cond, pattern = "^muffle") 1561s [00:52:41.299] } 1561s [00:52:41.299] } 1561s [00:52:41.299] } 1561s [00:52:41.299] })) 1561s [00:52:41.299] }, error = function(ex) { 1561s [00:52:41.299] base::structure(base::list(value = NULL, visible = NULL, 1561s [00:52:41.299] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1561s [00:52:41.299] ...future.rng), started = ...future.startTime, 1561s [00:52:41.299] finished = Sys.time(), session_uuid = NA_character_, 1561s [00:52:41.299] version = "1.8"), class = "FutureResult") 1561s [00:52:41.299] }, finally = { 1561s [00:52:41.299] if (!identical(...future.workdir, getwd())) 1561s [00:52:41.299] setwd(...future.workdir) 1561s [00:52:41.299] { 1561s [00:52:41.299] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1561s [00:52:41.299] ...future.oldOptions$nwarnings <- NULL 1561s [00:52:41.299] } 1561s [00:52:41.299] base::options(...future.oldOptions) 1561s [00:52:41.299] if (.Platform$OS.type == "windows") { 1561s [00:52:41.299] old_names <- names(...future.oldEnvVars) 1561s [00:52:41.299] envs <- base::Sys.getenv() 1561s [00:52:41.299] names <- names(envs) 1561s [00:52:41.299] common <- intersect(names, old_names) 1561s [00:52:41.299] added <- setdiff(names, old_names) 1561s [00:52:41.299] removed <- setdiff(old_names, names) 1561s [00:52:41.299] changed <- common[...future.oldEnvVars[common] != 1561s [00:52:41.299] envs[common]] 1561s [00:52:41.299] NAMES <- toupper(changed) 1561s [00:52:41.299] args <- list() 1561s [00:52:41.299] for (kk in seq_along(NAMES)) { 1561s [00:52:41.299] name <- changed[[kk]] 1561s [00:52:41.299] NAME <- NAMES[[kk]] 1561s [00:52:41.299] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:41.299] next 1561s [00:52:41.299] args[[name]] <- ...future.oldEnvVars[[name]] 1561s [00:52:41.299] } 1561s [00:52:41.299] NAMES <- toupper(added) 1561s [00:52:41.299] for (kk in seq_along(NAMES)) { 1561s [00:52:41.299] name <- added[[kk]] 1561s [00:52:41.299] NAME <- NAMES[[kk]] 1561s [00:52:41.299] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:41.299] next 1561s [00:52:41.299] args[[name]] <- "" 1561s [00:52:41.299] } 1561s [00:52:41.299] NAMES <- toupper(removed) 1561s [00:52:41.299] for (kk in seq_along(NAMES)) { 1561s [00:52:41.299] name <- removed[[kk]] 1561s [00:52:41.299] NAME <- NAMES[[kk]] 1561s [00:52:41.299] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:41.299] next 1561s [00:52:41.299] args[[name]] <- ...future.oldEnvVars[[name]] 1561s [00:52:41.299] } 1561s [00:52:41.299] if (length(args) > 0) 1561s [00:52:41.299] base::do.call(base::Sys.setenv, args = args) 1561s [00:52:41.299] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1561s [00:52:41.299] } 1561s [00:52:41.299] else { 1561s [00:52:41.299] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1561s [00:52:41.299] } 1561s [00:52:41.299] { 1561s [00:52:41.299] if (base::length(...future.futureOptionsAdded) > 1561s [00:52:41.299] 0L) { 1561s [00:52:41.299] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1561s [00:52:41.299] base::names(opts) <- ...future.futureOptionsAdded 1561s [00:52:41.299] base::options(opts) 1561s [00:52:41.299] } 1561s [00:52:41.299] { 1561s [00:52:41.299] { 1561s [00:52:41.299] base::assign(".Random.seed", c(10407L, -859112415L, 1561s [00:52:41.299] -263171952L, -846696676L, -732328588L, -1330872138L, 1561s [00:52:41.299] -23889012L), envir = base::globalenv(), inherits = FALSE) 1561s [00:52:41.299] NULL 1561s [00:52:41.299] } 1561s [00:52:41.299] options(future.plan = NULL) 1561s [00:52:41.299] if (is.na(NA_character_)) 1561s [00:52:41.299] Sys.unsetenv("R_FUTURE_PLAN") 1561s [00:52:41.299] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1561s [00:52:41.299] future::plan(list(function (..., envir = parent.frame()) 1561s [00:52:41.299] { 1561s [00:52:41.299] future <- SequentialFuture(..., envir = envir) 1561s [00:52:41.299] if (!future$lazy) 1561s [00:52:41.299] future <- run(future) 1561s [00:52:41.299] invisible(future) 1561s [00:52:41.299] }), .cleanup = FALSE, .init = FALSE) 1561s [00:52:41.299] } 1561s [00:52:41.299] } 1561s [00:52:41.299] } 1561s [00:52:41.299] }) 1561s [00:52:41.299] if (TRUE) { 1561s [00:52:41.299] base::sink(type = "output", split = FALSE) 1561s [00:52:41.299] if (TRUE) { 1561s [00:52:41.299] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1561s [00:52:41.299] } 1561s [00:52:41.299] else { 1561s [00:52:41.299] ...future.result["stdout"] <- base::list(NULL) 1561s [00:52:41.299] } 1561s [00:52:41.299] base::close(...future.stdout) 1561s [00:52:41.299] ...future.stdout <- NULL 1561s [00:52:41.299] } 1561s [00:52:41.299] ...future.result$conditions <- ...future.conditions 1561s [00:52:41.299] ...future.result$finished <- base::Sys.time() 1561s [00:52:41.299] ...future.result 1561s [00:52:41.299] } 1561s [00:52:41.305] assign_globals() ... 1561s [00:52:41.305] List of 5 1561s [00:52:41.305] $ ...future.FUN :function (x, y) 1561s [00:52:41.305] $ MoreArgs :List of 1 1561s [00:52:41.305] ..$ y: int [1:2] 3 4 1561s [00:52:41.305] $ ...future.elements_ii :List of 1 1561s [00:52:41.305] ..$ x:List of 2 1561s [00:52:41.305] .. ..$ : int 1 1561s [00:52:41.305] .. ..$ : int 2 1561s [00:52:41.305] $ ...future.seeds_ii : NULL 1561s [00:52:41.305] $ ...future.globals.maxSize: NULL 1561s [00:52:41.305] - attr(*, "where")=List of 5 1561s [00:52:41.305] ..$ ...future.FUN : 1561s [00:52:41.305] ..$ MoreArgs : 1561s [00:52:41.305] ..$ ...future.elements_ii : 1561s [00:52:41.305] ..$ ...future.seeds_ii : 1561s [00:52:41.305] ..$ ...future.globals.maxSize: 1561s [00:52:41.305] - attr(*, "resolved")= logi FALSE 1561s [00:52:41.305] - attr(*, "total_size")= num 1872 1561s [00:52:41.305] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1561s [00:52:41.305] - attr(*, "already-done")= logi TRUE 1561s [00:52:41.313] - reassign environment for ‘...future.FUN’ 1561s [00:52:41.313] - copied ‘...future.FUN’ to environment 1561s [00:52:41.313] - copied ‘MoreArgs’ to environment 1561s [00:52:41.313] - copied ‘...future.elements_ii’ to environment 1561s [00:52:41.313] - copied ‘...future.seeds_ii’ to environment 1561s [00:52:41.313] - copied ‘...future.globals.maxSize’ to environment 1561s [00:52:41.314] assign_globals() ... done 1561s [00:52:41.314] plan(): Setting new future strategy stack: 1561s [00:52:41.314] List of future strategies: 1561s [00:52:41.314] 1. sequential: 1561s [00:52:41.314] - args: function (..., envir = parent.frame()) 1561s [00:52:41.314] - tweaked: FALSE 1561s [00:52:41.314] - call: NULL 1561s [00:52:41.314] plan(): nbrOfWorkers() = 1 1561s [00:52:41.315] plan(): Setting new future strategy stack: 1561s [00:52:41.315] List of future strategies: 1561s [00:52:41.315] 1. sequential: 1561s [00:52:41.315] - args: function (..., envir = parent.frame()) 1561s [00:52:41.315] - tweaked: FALSE 1561s [00:52:41.315] - call: plan(strategy) 1561s [00:52:41.316] plan(): nbrOfWorkers() = 1 1561s [00:52:41.316] SequentialFuture started (and completed) 1561s [00:52:41.316] - Launch lazy future ... done 1561s [00:52:41.316] run() for ‘SequentialFuture’ ... done 1561s [00:52:41.316] Created future: 1561s [00:52:41.317] SequentialFuture: 1561s [00:52:41.317] Label: ‘future_.mapply-1’ 1561s [00:52:41.317] Expression: 1561s [00:52:41.317] { 1561s [00:52:41.317] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1561s [00:52:41.317] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1561s [00:52:41.317] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1561s [00:52:41.317] on.exit(options(oopts), add = TRUE) 1561s [00:52:41.317] } 1561s [00:52:41.317] { 1561s [00:52:41.317] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1561s [00:52:41.317] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1561s [00:52:41.317] do.call(mapply, args = args) 1561s [00:52:41.317] } 1561s [00:52:41.317] } 1561s [00:52:41.317] Lazy evaluation: FALSE 1561s [00:52:41.317] Asynchronous evaluation: FALSE 1561s [00:52:41.317] Local evaluation: TRUE 1561s [00:52:41.317] Environment: R_GlobalEnv 1561s [00:52:41.317] Capture standard output: TRUE 1561s [00:52:41.317] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1561s [00:52:41.317] Globals: 5 objects totaling 1.83 KiB (function ‘...future.FUN’ of 1.66 KiB, list ‘MoreArgs’ of 56 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1561s [00:52:41.317] Packages: 1561s [00:52:41.317] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1561s [00:52:41.317] Resolved: TRUE 1561s [00:52:41.317] Value: 112 bytes of class ‘list’ 1561s [00:52:41.317] Early signaling: FALSE 1561s [00:52:41.317] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1561s [00:52:41.317] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1561s [00:52:41.318] Chunk #1 of 1 ... DONE 1561s [00:52:41.318] Launching 1 futures (chunks) ... DONE 1561s [00:52:41.318] Resolving 1 futures (chunks) ... 1561s [00:52:41.318] resolve() on list ... 1561s [00:52:41.318] recursive: 0 1561s [00:52:41.319] length: 1 1561s [00:52:41.319] 1561s [00:52:41.319] resolved() for ‘SequentialFuture’ ... 1561s [00:52:41.319] - state: ‘finished’ 1561s [00:52:41.319] - run: TRUE 1561s [00:52:41.319] - result: ‘FutureResult’ 1561s [00:52:41.320] resolved() for ‘SequentialFuture’ ... done 1561s [00:52:41.320] Future #1 1561s [00:52:41.321] signalConditionsASAP(SequentialFuture, pos=1) ... 1561s [00:52:41.321] - nx: 1 1561s [00:52:41.323] - relay: TRUE 1561s [00:52:41.323] - stdout: TRUE 1561s [00:52:41.323] - signal: TRUE 1561s [00:52:41.323] - resignal: FALSE 1561s [00:52:41.324] - force: TRUE 1561s [00:52:41.324] - relayed: [n=1] FALSE 1561s [00:52:41.324] - queued futures: [n=1] FALSE 1561s [00:52:41.324] - until=1 1561s [00:52:41.324] - relaying element #1 1561s [00:52:41.325] - relayed: [n=1] TRUE 1561s [00:52:41.325] - queued futures: [n=1] TRUE 1561s [00:52:41.325] signalConditionsASAP(SequentialFuture, pos=1) ... done 1561s [00:52:41.325] length: 0 (resolved future 1) 1561s [00:52:41.325] Relaying remaining futures 1561s [00:52:41.326] signalConditionsASAP(NULL, pos=0) ... 1561s [00:52:41.326] - nx: 1 1561s [00:52:41.326] - relay: TRUE 1561s [00:52:41.326] - stdout: TRUE 1561s [00:52:41.326] - signal: TRUE 1561s [00:52:41.326] - resignal: FALSE 1561s [00:52:41.326] - force: TRUE 1561s [00:52:41.326] - relayed: [n=1] TRUE 1561s [00:52:41.326] - queued futures: [n=1] TRUE 1561s - flush all 1561s [00:52:41.327] - relayed: [n=1] TRUE 1561s [00:52:41.327] - queued futures: [n=1] TRUE 1561s [00:52:41.327] signalConditionsASAP(NULL, pos=0) ... done 1561s [00:52:41.327] resolve() on list ... DONE 1561s [00:52:41.327] - Number of value chunks collected: 1 1561s [00:52:41.327] Resolving 1 futures (chunks) ... DONE 1561s [00:52:41.327] Reducing values from 1 chunks ... 1561s [00:52:41.327] - Number of values collected after concatenation: 2 1561s [00:52:41.328] - Number of values expected: 2 1561s [00:52:41.328] Reducing values from 1 chunks ... DONE 1561s [00:52:41.328] future_mapply() ... DONE 1561s - Recycle arguments to same length ... 1561s [00:52:41.328] future_mapply() ... 1561s [00:52:41.328] Number of chunks: 1 1561s [00:52:41.328] getGlobalsAndPackagesXApply() ... 1561s [00:52:41.329] - future.globals: TRUE 1561s [00:52:41.329] getGlobalsAndPackages() ... 1561s [00:52:41.329] Searching for globals... 1561s [00:52:41.329] - globals found: [1] ‘FUN’ 1561s [00:52:41.330] Searching for globals ... DONE 1561s [00:52:41.330] Resolving globals: FALSE 1561s [00:52:41.330] The total size of the 1 globals is 56 bytes (56 bytes) 1561s [00:52:41.331] The total size of the 1 globals exported for future expression (‘FUN()’) is 56 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (56 bytes of class ‘function’) 1561s [00:52:41.331] - globals: [1] ‘FUN’ 1561s [00:52:41.331] 1561s [00:52:41.331] getGlobalsAndPackages() ... DONE 1561s [00:52:41.331] - globals found/used: [n=1] ‘FUN’ 1561s [00:52:41.332] - needed namespaces: [n=0] 1561s [00:52:41.332] Finding globals ... DONE 1561s [00:52:41.332] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1561s [00:52:41.332] List of 2 1561s [00:52:41.332] $ ...future.FUN:function (x, ...) 1561s [00:52:41.332] $ MoreArgs : NULL 1561s [00:52:41.332] - attr(*, "where")=List of 2 1561s [00:52:41.332] ..$ ...future.FUN: 1561s [00:52:41.332] ..$ MoreArgs : 1561s [00:52:41.332] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1561s [00:52:41.332] - attr(*, "resolved")= logi FALSE 1561s [00:52:41.332] - attr(*, "total_size")= num NA 1561s [00:52:41.335] Packages to be attached in all futures: [n=0] 1561s [00:52:41.335] getGlobalsAndPackagesXApply() ... DONE 1561s [00:52:41.335] Number of futures (= number of chunks): 1 1561s [00:52:41.336] Launching 1 futures (chunks) ... 1561s [00:52:41.336] Chunk #1 of 1 ... 1561s [00:52:41.336] - Finding globals in '...' for chunk #1 ... 1561s [00:52:41.336] getGlobalsAndPackages() ... 1561s [00:52:41.336] Searching for globals... 1561s [00:52:41.337] 1561s [00:52:41.337] Searching for globals ... DONE 1561s [00:52:41.337] - globals: [0] 1561s [00:52:41.337] getGlobalsAndPackages() ... DONE 1561s [00:52:41.337] + additional globals found: [n=0] 1561s [00:52:41.337] + additional namespaces needed: [n=0] 1561s [00:52:41.337] - Finding globals in '...' for chunk #1 ... DONE 1561s [00:52:41.337] - seeds: 1561s [00:52:41.338] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:41.338] getGlobalsAndPackages() ... 1561s [00:52:41.338] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:41.338] Resolving globals: FALSE 1561s [00:52:41.339] The total size of the 5 globals is 504 bytes (504 bytes) 1561s [00:52:41.339] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 504 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.elements_ii’ (448 bytes of class ‘list’), ‘...future.FUN’ (56 bytes of class ‘function’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1561s [00:52:41.340] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:41.340] 1561s [00:52:41.340] getGlobalsAndPackages() ... DONE 1561s [00:52:41.340] run() for ‘Future’ ... 1561s [00:52:41.341] - state: ‘created’ 1561s [00:52:41.341] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1561s [00:52:41.341] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1561s [00:52:41.342] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1561s [00:52:41.342] - Field: ‘label’ 1561s [00:52:41.342] - Field: ‘local’ 1561s [00:52:41.342] - Field: ‘owner’ 1561s [00:52:41.342] - Field: ‘envir’ 1561s [00:52:41.342] - Field: ‘packages’ 1561s [00:52:41.342] - Field: ‘gc’ 1561s [00:52:41.343] - Field: ‘conditions’ 1561s [00:52:41.343] - Field: ‘expr’ 1561s [00:52:41.343] - Field: ‘uuid’ 1561s [00:52:41.343] - Field: ‘seed’ 1561s [00:52:41.343] - Field: ‘version’ 1561s [00:52:41.343] - Field: ‘result’ 1561s [00:52:41.343] - Field: ‘asynchronous’ 1561s [00:52:41.344] - Field: ‘calls’ 1561s [00:52:41.344] - Field: ‘globals’ 1561s [00:52:41.344] - Field: ‘stdout’ 1561s [00:52:41.344] - Field: ‘earlySignal’ 1561s [00:52:41.344] - Field: ‘lazy’ 1561s [00:52:41.345] - Field: ‘state’ 1561s [00:52:41.345] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1561s [00:52:41.345] - Launch lazy future ... 1561s [00:52:41.345] Packages needed by the future expression (n = 0): 1561s [00:52:41.345] Packages needed by future strategies (n = 0): 1561s [00:52:41.346] { 1561s [00:52:41.346] { 1561s [00:52:41.346] { 1561s [00:52:41.346] ...future.startTime <- base::Sys.time() 1561s [00:52:41.346] { 1561s [00:52:41.346] { 1561s [00:52:41.346] { 1561s [00:52:41.346] base::local({ 1561s [00:52:41.346] has_future <- base::requireNamespace("future", 1561s [00:52:41.346] quietly = TRUE) 1561s [00:52:41.346] if (has_future) { 1561s [00:52:41.346] ns <- base::getNamespace("future") 1561s [00:52:41.346] version <- ns[[".package"]][["version"]] 1561s [00:52:41.346] if (is.null(version)) 1561s [00:52:41.346] version <- utils::packageVersion("future") 1561s [00:52:41.346] } 1561s [00:52:41.346] else { 1561s [00:52:41.346] version <- NULL 1561s [00:52:41.346] } 1561s [00:52:41.346] if (!has_future || version < "1.8.0") { 1561s [00:52:41.346] info <- base::c(r_version = base::gsub("R version ", 1561s [00:52:41.346] "", base::R.version$version.string), 1561s [00:52:41.346] platform = base::sprintf("%s (%s-bit)", 1561s [00:52:41.346] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1561s [00:52:41.346] os = base::paste(base::Sys.info()[base::c("sysname", 1561s [00:52:41.346] "release", "version")], collapse = " "), 1561s [00:52:41.346] hostname = base::Sys.info()[["nodename"]]) 1561s [00:52:41.346] info <- base::sprintf("%s: %s", base::names(info), 1561s [00:52:41.346] info) 1561s [00:52:41.346] info <- base::paste(info, collapse = "; ") 1561s [00:52:41.346] if (!has_future) { 1561s [00:52:41.346] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1561s [00:52:41.346] info) 1561s [00:52:41.346] } 1561s [00:52:41.346] else { 1561s [00:52:41.346] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1561s [00:52:41.346] info, version) 1561s [00:52:41.346] } 1561s [00:52:41.346] base::stop(msg) 1561s [00:52:41.346] } 1561s [00:52:41.346] }) 1561s [00:52:41.346] } 1561s [00:52:41.346] options(future.plan = NULL) 1561s [00:52:41.346] Sys.unsetenv("R_FUTURE_PLAN") 1561s [00:52:41.346] future::plan("default", .cleanup = FALSE, .init = FALSE) 1561s [00:52:41.346] } 1561s [00:52:41.346] ...future.workdir <- getwd() 1561s [00:52:41.346] } 1561s [00:52:41.346] ...future.oldOptions <- base::as.list(base::.Options) 1561s [00:52:41.346] ...future.oldEnvVars <- base::Sys.getenv() 1561s [00:52:41.346] } 1561s [00:52:41.346] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1561s [00:52:41.346] future.globals.maxSize = NULL, future.globals.method = NULL, 1561s [00:52:41.346] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1561s [00:52:41.346] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1561s [00:52:41.346] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1561s [00:52:41.346] future.stdout.windows.reencode = NULL, width = 80L) 1561s [00:52:41.346] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1561s [00:52:41.346] base::names(...future.oldOptions)) 1561s [00:52:41.346] } 1561s [00:52:41.346] if (FALSE) { 1561s [00:52:41.346] } 1561s [00:52:41.346] else { 1561s [00:52:41.346] if (TRUE) { 1561s [00:52:41.346] ...future.stdout <- base::rawConnection(base::raw(0L), 1561s [00:52:41.346] open = "w") 1561s [00:52:41.346] } 1561s [00:52:41.346] else { 1561s [00:52:41.346] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1561s [00:52:41.346] windows = "NUL", "/dev/null"), open = "w") 1561s [00:52:41.346] } 1561s [00:52:41.346] base::sink(...future.stdout, type = "output", split = FALSE) 1561s [00:52:41.346] base::on.exit(if (!base::is.null(...future.stdout)) { 1561s [00:52:41.346] base::sink(type = "output", split = FALSE) 1561s [00:52:41.346] base::close(...future.stdout) 1561s [00:52:41.346] }, add = TRUE) 1561s [00:52:41.346] } 1561s [00:52:41.346] ...future.frame <- base::sys.nframe() 1561s [00:52:41.346] ...future.conditions <- base::list() 1561s [00:52:41.346] ...future.rng <- base::globalenv()$.Random.seed 1561s [00:52:41.346] if (FALSE) { 1561s [00:52:41.346] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1561s [00:52:41.346] "...future.value", "...future.globalenv.names", ".Random.seed") 1561s [00:52:41.346] } 1561s [00:52:41.346] ...future.result <- base::tryCatch({ 1561s [00:52:41.346] base::withCallingHandlers({ 1561s [00:52:41.346] ...future.value <- base::withVisible(base::local({ 1561s [00:52:41.346] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1561s [00:52:41.346] if (!identical(...future.globals.maxSize.org, 1561s [00:52:41.346] ...future.globals.maxSize)) { 1561s [00:52:41.346] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1561s [00:52:41.346] on.exit(options(oopts), add = TRUE) 1561s [00:52:41.346] } 1561s [00:52:41.346] { 1561s [00:52:41.346] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1561s [00:52:41.346] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1561s [00:52:41.346] USE.NAMES = FALSE) 1561s [00:52:41.346] do.call(mapply, args = args) 1561s [00:52:41.346] } 1561s [00:52:41.346] })) 1561s [00:52:41.346] future::FutureResult(value = ...future.value$value, 1561s [00:52:41.346] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1561s [00:52:41.346] ...future.rng), globalenv = if (FALSE) 1561s [00:52:41.346] list(added = base::setdiff(base::names(base::.GlobalEnv), 1561s [00:52:41.346] ...future.globalenv.names)) 1561s [00:52:41.346] else NULL, started = ...future.startTime, version = "1.8") 1561s [00:52:41.346] }, condition = base::local({ 1561s [00:52:41.346] c <- base::c 1561s [00:52:41.346] inherits <- base::inherits 1561s [00:52:41.346] invokeRestart <- base::invokeRestart 1561s [00:52:41.346] length <- base::length 1561s [00:52:41.346] list <- base::list 1561s [00:52:41.346] seq.int <- base::seq.int 1561s [00:52:41.346] signalCondition <- base::signalCondition 1561s [00:52:41.346] sys.calls <- base::sys.calls 1561s [00:52:41.346] `[[` <- base::`[[` 1561s [00:52:41.346] `+` <- base::`+` 1561s [00:52:41.346] `<<-` <- base::`<<-` 1561s [00:52:41.346] sysCalls <- function(calls = sys.calls(), from = 1L) { 1561s [00:52:41.346] calls[seq.int(from = from + 12L, to = length(calls) - 1561s [00:52:41.346] 3L)] 1561s [00:52:41.346] } 1561s [00:52:41.346] function(cond) { 1561s [00:52:41.346] is_error <- inherits(cond, "error") 1561s [00:52:41.346] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1561s [00:52:41.346] NULL) 1561s [00:52:41.346] if (is_error) { 1561s [00:52:41.346] sessionInformation <- function() { 1561s [00:52:41.346] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1561s [00:52:41.346] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1561s [00:52:41.346] search = base::search(), system = base::Sys.info()) 1561s [00:52:41.346] } 1561s [00:52:41.346] ...future.conditions[[length(...future.conditions) + 1561s [00:52:41.346] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1561s [00:52:41.346] cond$call), session = sessionInformation(), 1561s [00:52:41.346] timestamp = base::Sys.time(), signaled = 0L) 1561s [00:52:41.346] signalCondition(cond) 1561s [00:52:41.346] } 1561s [00:52:41.346] else if (!ignore && TRUE && inherits(cond, c("condition", 1561s [00:52:41.346] "immediateCondition"))) { 1561s [00:52:41.346] signal <- TRUE && inherits(cond, "immediateCondition") 1561s [00:52:41.346] ...future.conditions[[length(...future.conditions) + 1561s [00:52:41.346] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1561s [00:52:41.346] if (TRUE && !signal) { 1561s [00:52:41.346] muffleCondition <- function (cond, pattern = "^muffle") 1561s [00:52:41.346] { 1561s [00:52:41.346] inherits <- base::inherits 1561s [00:52:41.346] invokeRestart <- base::invokeRestart 1561s [00:52:41.346] is.null <- base::is.null 1561s [00:52:41.346] muffled <- FALSE 1561s [00:52:41.346] if (inherits(cond, "message")) { 1561s [00:52:41.346] muffled <- grepl(pattern, "muffleMessage") 1561s [00:52:41.346] if (muffled) 1561s [00:52:41.346] invokeRestart("muffleMessage") 1561s [00:52:41.346] } 1561s [00:52:41.346] else if (inherits(cond, "warning")) { 1561s [00:52:41.346] muffled <- grepl(pattern, "muffleWarning") 1561s [00:52:41.346] if (muffled) 1561s [00:52:41.346] invokeRestart("muffleWarning") 1561s [00:52:41.346] } 1561s [00:52:41.346] else if (inherits(cond, "condition")) { 1561s [00:52:41.346] if (!is.null(pattern)) { 1561s [00:52:41.346] computeRestarts <- base::computeRestarts 1561s [00:52:41.346] grepl <- base::grepl 1561s [00:52:41.346] restarts <- computeRestarts(cond) 1561s [00:52:41.346] for (restart in restarts) { 1561s [00:52:41.346] name <- restart$name 1561s [00:52:41.346] if (is.null(name)) 1561s [00:52:41.346] next 1561s [00:52:41.346] if (!grepl(pattern, name)) 1561s [00:52:41.346] next 1561s [00:52:41.346] invokeRestart(restart) 1561s [00:52:41.346] muffled <- TRUE 1561s [00:52:41.346] break 1561s [00:52:41.346] } 1561s [00:52:41.346] } 1561s [00:52:41.346] } 1561s [00:52:41.346] invisible(muffled) 1561s [00:52:41.346] } 1561s [00:52:41.346] muffleCondition(cond, pattern = "^muffle") 1561s [00:52:41.346] } 1561s [00:52:41.346] } 1561s [00:52:41.346] else { 1561s [00:52:41.346] if (TRUE) { 1561s [00:52:41.346] muffleCondition <- function (cond, pattern = "^muffle") 1561s [00:52:41.346] { 1561s [00:52:41.346] inherits <- base::inherits 1561s [00:52:41.346] invokeRestart <- base::invokeRestart 1561s [00:52:41.346] is.null <- base::is.null 1561s [00:52:41.346] muffled <- FALSE 1561s [00:52:41.346] if (inherits(cond, "message")) { 1561s [00:52:41.346] muffled <- grepl(pattern, "muffleMessage") 1561s [00:52:41.346] if (muffled) 1561s [00:52:41.346] invokeRestart("muffleMessage") 1561s [00:52:41.346] } 1561s [00:52:41.346] else if (inherits(cond, "warning")) { 1561s [00:52:41.346] muffled <- grepl(pattern, "muffleWarning") 1561s [00:52:41.346] if (muffled) 1561s [00:52:41.346] invokeRestart("muffleWarning") 1561s [00:52:41.346] } 1561s [00:52:41.346] else if (inherits(cond, "condition")) { 1561s [00:52:41.346] if (!is.null(pattern)) { 1561s [00:52:41.346] computeRestarts <- base::computeRestarts 1561s [00:52:41.346] grepl <- base::grepl 1561s [00:52:41.346] restarts <- computeRestarts(cond) 1561s [00:52:41.346] for (restart in restarts) { 1561s [00:52:41.346] name <- restart$name 1561s [00:52:41.346] if (is.null(name)) 1561s [00:52:41.346] next 1561s [00:52:41.346] if (!grepl(pattern, name)) 1561s [00:52:41.346] next 1561s [00:52:41.346] invokeRestart(restart) 1561s [00:52:41.346] muffled <- TRUE 1561s [00:52:41.346] break 1561s [00:52:41.346] } 1561s [00:52:41.346] } 1561s [00:52:41.346] } 1561s [00:52:41.346] invisible(muffled) 1561s [00:52:41.346] } 1561s [00:52:41.346] muffleCondition(cond, pattern = "^muffle") 1561s [00:52:41.346] } 1561s [00:52:41.346] } 1561s [00:52:41.346] } 1561s [00:52:41.346] })) 1561s [00:52:41.346] }, error = function(ex) { 1561s [00:52:41.346] base::structure(base::list(value = NULL, visible = NULL, 1561s [00:52:41.346] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1561s [00:52:41.346] ...future.rng), started = ...future.startTime, 1561s [00:52:41.346] finished = Sys.time(), session_uuid = NA_character_, 1561s [00:52:41.346] version = "1.8"), class = "FutureResult") 1561s [00:52:41.346] }, finally = { 1561s [00:52:41.346] if (!identical(...future.workdir, getwd())) 1561s [00:52:41.346] setwd(...future.workdir) 1561s [00:52:41.346] { 1561s [00:52:41.346] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1561s [00:52:41.346] ...future.oldOptions$nwarnings <- NULL 1561s [00:52:41.346] } 1561s [00:52:41.346] base::options(...future.oldOptions) 1561s [00:52:41.346] if (.Platform$OS.type == "windows") { 1561s [00:52:41.346] old_names <- names(...future.oldEnvVars) 1561s [00:52:41.346] envs <- base::Sys.getenv() 1561s [00:52:41.346] names <- names(envs) 1561s [00:52:41.346] common <- intersect(names, old_names) 1561s [00:52:41.346] added <- setdiff(names, old_names) 1561s [00:52:41.346] removed <- setdiff(old_names, names) 1561s [00:52:41.346] changed <- common[...future.oldEnvVars[common] != 1561s [00:52:41.346] envs[common]] 1561s [00:52:41.346] NAMES <- toupper(changed) 1561s [00:52:41.346] args <- list() 1561s [00:52:41.346] for (kk in seq_along(NAMES)) { 1561s [00:52:41.346] name <- changed[[kk]] 1561s [00:52:41.346] NAME <- NAMES[[kk]] 1561s [00:52:41.346] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:41.346] next 1561s [00:52:41.346] args[[name]] <- ...future.oldEnvVars[[name]] 1561s [00:52:41.346] } 1561s [00:52:41.346] NAMES <- toupper(added) 1561s [00:52:41.346] for (kk in seq_along(NAMES)) { 1561s [00:52:41.346] name <- added[[kk]] 1561s [00:52:41.346] NAME <- NAMES[[kk]] 1561s [00:52:41.346] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:41.346] next 1561s [00:52:41.346] args[[name]] <- "" 1561s [00:52:41.346] } 1561s [00:52:41.346] NAMES <- toupper(removed) 1561s [00:52:41.346] for (kk in seq_along(NAMES)) { 1561s [00:52:41.346] name <- removed[[kk]] 1561s [00:52:41.346] NAME <- NAMES[[kk]] 1561s [00:52:41.346] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:41.346] next 1561s [00:52:41.346] args[[name]] <- ...future.oldEnvVars[[name]] 1561s [00:52:41.346] } 1561s [00:52:41.346] if (length(args) > 0) 1561s [00:52:41.346] base::do.call(base::Sys.setenv, args = args) 1561s [00:52:41.346] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1561s [00:52:41.346] } 1561s [00:52:41.346] else { 1561s [00:52:41.346] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1561s [00:52:41.346] } 1561s [00:52:41.346] { 1561s [00:52:41.346] if (base::length(...future.futureOptionsAdded) > 1561s [00:52:41.346] 0L) { 1561s [00:52:41.346] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1561s [00:52:41.346] base::names(opts) <- ...future.futureOptionsAdded 1561s [00:52:41.346] base::options(opts) 1561s [00:52:41.346] } 1561s [00:52:41.346] { 1561s [00:52:41.346] { 1561s [00:52:41.346] base::assign(".Random.seed", c(10407L, -859112415L, 1561s [00:52:41.346] -263171952L, -846696676L, -732328588L, -1330872138L, 1561s [00:52:41.346] -23889012L), envir = base::globalenv(), inherits = FALSE) 1561s [00:52:41.346] NULL 1561s [00:52:41.346] } 1561s [00:52:41.346] options(future.plan = NULL) 1561s [00:52:41.346] if (is.na(NA_character_)) 1561s [00:52:41.346] Sys.unsetenv("R_FUTURE_PLAN") 1561s [00:52:41.346] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1561s [00:52:41.346] future::plan(list(function (..., envir = parent.frame()) 1561s [00:52:41.346] { 1561s [00:52:41.346] future <- SequentialFuture(..., envir = envir) 1561s [00:52:41.346] if (!future$lazy) 1561s [00:52:41.346] future <- run(future) 1561s [00:52:41.346] invisible(future) 1561s [00:52:41.346] }), .cleanup = FALSE, .init = FALSE) 1561s [00:52:41.346] } 1561s [00:52:41.346] } 1561s [00:52:41.346] } 1561s [00:52:41.346] }) 1561s [00:52:41.346] if (TRUE) { 1561s [00:52:41.346] base::sink(type = "output", split = FALSE) 1561s [00:52:41.346] if (TRUE) { 1561s [00:52:41.346] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1561s [00:52:41.346] } 1561s [00:52:41.346] else { 1561s [00:52:41.346] ...future.result["stdout"] <- base::list(NULL) 1561s [00:52:41.346] } 1561s [00:52:41.346] base::close(...future.stdout) 1561s [00:52:41.346] ...future.stdout <- NULL 1561s [00:52:41.346] } 1561s [00:52:41.346] ...future.result$conditions <- ...future.conditions 1561s [00:52:41.346] ...future.result$finished <- base::Sys.time() 1561s [00:52:41.346] ...future.result 1561s [00:52:41.346] } 1561s [00:52:41.348] assign_globals() ... 1561s [00:52:41.348] List of 5 1561s [00:52:41.348] $ ...future.FUN :function (x, ...) 1561s [00:52:41.348] $ MoreArgs : NULL 1561s [00:52:41.348] $ ...future.elements_ii :List of 2 1561s [00:52:41.348] ..$ :List of 4 1561s [00:52:41.348] .. ..$ : int 1 1561s [00:52:41.348] .. ..$ : int 2 1561s [00:52:41.348] .. ..$ : int 3 1561s [00:52:41.348] .. ..$ : int 4 1561s [00:52:41.348] ..$ :List of 4 1561s [00:52:41.348] .. ..$ : int 2 1561s [00:52:41.348] .. ..$ : int 1 1561s [00:52:41.348] .. ..$ : int 2 1561s [00:52:41.348] .. ..$ : int 1 1561s [00:52:41.348] $ ...future.seeds_ii : NULL 1561s [00:52:41.348] $ ...future.globals.maxSize: NULL 1561s [00:52:41.348] - attr(*, "where")=List of 5 1561s [00:52:41.348] ..$ ...future.FUN : 1561s [00:52:41.348] ..$ MoreArgs : 1561s [00:52:41.348] ..$ ...future.elements_ii : 1561s [00:52:41.348] ..$ ...future.seeds_ii : 1561s [00:52:41.348] ..$ ...future.globals.maxSize: 1561s [00:52:41.348] - attr(*, "resolved")= logi FALSE 1561s [00:52:41.348] - attr(*, "total_size")= num 504 1561s [00:52:41.348] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1561s [00:52:41.348] - attr(*, "already-done")= logi TRUE 1561s [00:52:41.360] - copied ‘...future.FUN’ to environment 1561s [00:52:41.360] - copied ‘MoreArgs’ to environment 1561s [00:52:41.360] - copied ‘...future.elements_ii’ to environment 1561s [00:52:41.360] - copied ‘...future.seeds_ii’ to environment 1561s [00:52:41.361] - copied ‘...future.globals.maxSize’ to environment 1561s [00:52:41.361] assign_globals() ... done 1561s [00:52:41.361] plan(): Setting new future strategy stack: 1561s [00:52:41.361] List of future strategies: 1561s [00:52:41.361] 1. sequential: 1561s [00:52:41.361] - args: function (..., envir = parent.frame()) 1561s [00:52:41.361] - tweaked: FALSE 1561s [00:52:41.361] - call: NULL 1561s [00:52:41.362] plan(): nbrOfWorkers() = 1 1561s [00:52:41.363] plan(): Setting new future strategy stack: 1561s [00:52:41.363] List of future strategies: 1561s [00:52:41.363] 1. sequential: 1561s [00:52:41.363] - args: function (..., envir = parent.frame()) 1561s [00:52:41.363] - tweaked: FALSE 1561s [00:52:41.363] - call: plan(strategy) 1561s [00:52:41.364] plan(): nbrOfWorkers() = 1 1561s [00:52:41.365] SequentialFuture started (and completed) 1561s [00:52:41.365] - Launch lazy future ... done 1561s [00:52:41.365] run() for ‘SequentialFuture’ ... done 1561s [00:52:41.365] Created future: 1561s [00:52:41.366] SequentialFuture: 1561s [00:52:41.366] Label: ‘future_mapply-1’ 1561s [00:52:41.366] Expression: 1561s [00:52:41.366] { 1561s [00:52:41.366] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1561s [00:52:41.366] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1561s [00:52:41.366] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1561s [00:52:41.366] on.exit(options(oopts), add = TRUE) 1561s [00:52:41.366] } 1561s [00:52:41.366] { 1561s [00:52:41.366] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1561s [00:52:41.366] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1561s [00:52:41.366] do.call(mapply, args = args) 1561s [00:52:41.366] } 1561s [00:52:41.366] } 1561s [00:52:41.366] Lazy evaluation: FALSE 1561s [00:52:41.366] Asynchronous evaluation: FALSE 1561s [00:52:41.366] Local evaluation: TRUE 1561s [00:52:41.366] Environment: R_GlobalEnv 1561s [00:52:41.366] Capture standard output: TRUE 1561s [00:52:41.366] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1561s [00:52:41.366] Globals: 5 objects totaling 504 bytes (function ‘...future.FUN’ of 56 bytes, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 448 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1561s [00:52:41.366] Packages: 1561s [00:52:41.366] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1561s [00:52:41.366] Resolved: TRUE 1561s [00:52:41.366] Value: 224 bytes of class ‘list’ 1561s [00:52:41.366] Early signaling: FALSE 1561s [00:52:41.366] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1561s [00:52:41.366] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1561s [00:52:41.368] Chunk #1 of 1 ... DONE 1561s [00:52:41.368] Launching 1 futures (chunks) ... DONE 1561s [00:52:41.368] Resolving 1 futures (chunks) ... 1561s [00:52:41.368] resolve() on list ... 1561s [00:52:41.368] recursive: 0 1561s [00:52:41.368] length: 1 1561s [00:52:41.369] 1561s [00:52:41.369] resolved() for ‘SequentialFuture’ ... 1561s [00:52:41.369] - state: ‘finished’ 1561s [00:52:41.370] - run: TRUE 1561s [00:52:41.370] - result: ‘FutureResult’ 1561s [00:52:41.370] resolved() for ‘SequentialFuture’ ... done 1561s [00:52:41.370] Future #1 1561s [00:52:41.370] signalConditionsASAP(SequentialFuture, pos=1) ... 1561s [00:52:41.370] - nx: 1 1561s [00:52:41.370] - relay: TRUE 1561s [00:52:41.371] - stdout: TRUE 1561s [00:52:41.371] - signal: TRUE 1561s [00:52:41.371] - resignal: FALSE 1561s [00:52:41.371] - force: TRUE 1561s [00:52:41.371] - relayed: [n=1] FALSE 1561s [00:52:41.371] - queued futures: [n=1] FALSE 1561s [00:52:41.371] - until=1 1561s [00:52:41.372] - relaying element #1 1561s [00:52:41.372] - relayed: [n=1] TRUE 1561s [00:52:41.372] - queued futures: [n=1] TRUE 1561s [00:52:41.372] signalConditionsASAP(SequentialFuture, pos=1) ... done 1561s [00:52:41.372] length: 0 (resolved future 1) 1561s [00:52:41.373] Relaying remaining futures 1561s [00:52:41.373] signalConditionsASAP(NULL, pos=0) ... 1561s [00:52:41.373] - nx: 1 1561s [00:52:41.373] - relay: TRUE 1561s [00:52:41.374] - stdout: TRUE 1561s [00:52:41.374] - signal: TRUE 1561s [00:52:41.374] - resignal: FALSE 1561s [00:52:41.374] - force: TRUE 1561s [00:52:41.374] - relayed: [n=1] TRUE 1561s [00:52:41.375] - queued futures: [n=1] TRUE 1561s - flush all 1561s [00:52:41.375] - relayed: [n=1] TRUE 1561s [00:52:41.375] - queued futures: [n=1] TRUE 1561s [00:52:41.375] signalConditionsASAP(NULL, pos=0) ... done 1561s [00:52:41.375] resolve() on list ... DONE 1561s [00:52:41.375] - Number of value chunks collected: 1 1561s [00:52:41.376] Resolving 1 futures (chunks) ... DONE 1561s [00:52:41.376] Reducing values from 1 chunks ... 1561s [00:52:41.376] - Number of values collected after concatenation: 4 1561s [00:52:41.376] - Number of values expected: 4 1561s [00:52:41.376] Reducing values from 1 chunks ... DONE 1561s [00:52:41.376] future_mapply() ... DONE 1561s - Parallel RNG ... 1561s [00:52:41.376] future_mapply() ... 1561s [00:52:41.377] Generating random seeds ... 1561s [00:52:41.377] Generating random seed streams for 4 elements ... 1561s [00:52:41.377] Generating random seed streams for 4 elements ... DONE 1561s [00:52:41.377] Generating random seeds ... DONE 1561s [00:52:41.377] Will set RNG state on exit: 10407, -846696676, 1852291760, -2098202425, -23889012, 1028423370, -219511167 1561s [00:52:41.377] Number of chunks: 1 1561s [00:52:41.377] getGlobalsAndPackagesXApply() ... 1561s [00:52:41.378] - future.globals: TRUE 1561s [00:52:41.378] getGlobalsAndPackages() ... 1561s [00:52:41.378] Searching for globals... 1561s [00:52:41.379] - globals found: [3] ‘FUN’, ‘.Call’, ‘C_runif’ 1561s [00:52:41.380] Searching for globals ... DONE 1561s [00:52:41.380] Resolving globals: FALSE 1561s [00:52:41.381] The total size of the 1 globals is 2.04 KiB (2088 bytes) 1561s [00:52:41.381] The total size of the 1 globals exported for future expression (‘FUN(min = 1)’) is 2.04 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (2.04 KiB of class ‘function’) 1561s [00:52:41.381] - globals: [1] ‘FUN’ 1561s [00:52:41.381] - packages: [1] ‘stats’ 1561s [00:52:41.381] getGlobalsAndPackages() ... DONE 1561s [00:52:41.382] - globals found/used: [n=1] ‘FUN’ 1561s [00:52:41.382] - needed namespaces: [n=1] ‘stats’ 1561s [00:52:41.382] Finding globals ... DONE 1561s [00:52:41.383] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1561s [00:52:41.383] List of 2 1561s [00:52:41.383] $ ...future.FUN:function (n, min = 0, max = 1) 1561s [00:52:41.383] $ MoreArgs :List of 1 1561s [00:52:41.383] ..$ min: num 1 1561s [00:52:41.383] - attr(*, "where")=List of 2 1561s [00:52:41.383] ..$ ...future.FUN: 1561s [00:52:41.383] ..$ MoreArgs : 1561s [00:52:41.383] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1561s [00:52:41.383] - attr(*, "resolved")= logi FALSE 1561s [00:52:41.383] - attr(*, "total_size")= num NA 1561s [00:52:41.387] Packages to be attached in all futures: [n=1] ‘stats’ 1561s [00:52:41.387] getGlobalsAndPackagesXApply() ... DONE 1561s [00:52:41.388] Number of futures (= number of chunks): 1 1561s [00:52:41.388] Launching 1 futures (chunks) ... 1561s [00:52:41.388] Chunk #1 of 1 ... 1561s [00:52:41.388] - Finding globals in '...' for chunk #1 ... 1561s [00:52:41.388] getGlobalsAndPackages() ... 1561s [00:52:41.388] Searching for globals... 1561s [00:52:41.391] 1561s [00:52:41.392] Searching for globals ... DONE 1561s [00:52:41.392] - globals: [0] 1561s [00:52:41.392] getGlobalsAndPackages() ... DONE 1561s [00:52:41.392] + additional globals found: [n=0] 1561s [00:52:41.392] + additional namespaces needed: [n=0] 1561s [00:52:41.392] - Finding globals in '...' for chunk #1 ... DONE 1561s [00:52:41.392] - seeds: [4] 1561s [00:52:41.392] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:41.393] getGlobalsAndPackages() ... 1561s [00:52:41.393] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:41.393] Resolving globals: FALSE 1561s [00:52:41.394] The total size of the 5 globals is 2.84 KiB (2912 bytes) 1561s [00:52:41.394] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 2.84 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (2.04 KiB of class ‘function’), ‘...future.elements_ii’ (448 bytes of class ‘list’) and ‘...future.seeds_ii’ (320 bytes of class ‘list’) 1561s [00:52:41.394] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:41.394] - packages: [1] ‘stats’ 1561s [00:52:41.395] getGlobalsAndPackages() ... DONE 1561s [00:52:41.395] run() for ‘Future’ ... 1561s [00:52:41.395] - state: ‘created’ 1561s [00:52:41.395] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1561s [00:52:41.395] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1561s [00:52:41.396] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1561s [00:52:41.396] - Field: ‘label’ 1561s [00:52:41.396] - Field: ‘local’ 1561s [00:52:41.396] - Field: ‘owner’ 1561s [00:52:41.396] - Field: ‘envir’ 1561s [00:52:41.396] - Field: ‘packages’ 1561s [00:52:41.396] - Field: ‘gc’ 1561s [00:52:41.397] - Field: ‘conditions’ 1561s [00:52:41.397] - Field: ‘expr’ 1561s [00:52:41.397] - Field: ‘uuid’ 1561s [00:52:41.397] - Field: ‘seed’ 1561s [00:52:41.397] - Field: ‘version’ 1561s [00:52:41.397] - Field: ‘result’ 1561s [00:52:41.397] - Field: ‘asynchronous’ 1561s [00:52:41.397] - Field: ‘calls’ 1561s [00:52:41.397] - Field: ‘globals’ 1561s [00:52:41.398] - Field: ‘stdout’ 1561s [00:52:41.398] - Field: ‘earlySignal’ 1561s [00:52:41.398] - Field: ‘lazy’ 1561s [00:52:41.398] - Field: ‘state’ 1561s [00:52:41.398] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1561s [00:52:41.398] - Launch lazy future ... 1561s [00:52:41.398] Packages needed by the future expression (n = 1): ‘stats’ 1561s [00:52:41.399] Packages needed by future strategies (n = 0): 1561s [00:52:41.399] { 1561s [00:52:41.399] { 1561s [00:52:41.399] { 1561s [00:52:41.399] ...future.startTime <- base::Sys.time() 1561s [00:52:41.399] { 1561s [00:52:41.399] { 1561s [00:52:41.399] { 1561s [00:52:41.399] { 1561s [00:52:41.399] base::local({ 1561s [00:52:41.399] has_future <- base::requireNamespace("future", 1561s [00:52:41.399] quietly = TRUE) 1561s [00:52:41.399] if (has_future) { 1561s [00:52:41.399] ns <- base::getNamespace("future") 1561s [00:52:41.399] version <- ns[[".package"]][["version"]] 1561s [00:52:41.399] if (is.null(version)) 1561s [00:52:41.399] version <- utils::packageVersion("future") 1561s [00:52:41.399] } 1561s [00:52:41.399] else { 1561s [00:52:41.399] version <- NULL 1561s [00:52:41.399] } 1561s [00:52:41.399] if (!has_future || version < "1.8.0") { 1561s [00:52:41.399] info <- base::c(r_version = base::gsub("R version ", 1561s [00:52:41.399] "", base::R.version$version.string), 1561s [00:52:41.399] platform = base::sprintf("%s (%s-bit)", 1561s [00:52:41.399] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1561s [00:52:41.399] os = base::paste(base::Sys.info()[base::c("sysname", 1561s [00:52:41.399] "release", "version")], collapse = " "), 1561s [00:52:41.399] hostname = base::Sys.info()[["nodename"]]) 1561s [00:52:41.399] info <- base::sprintf("%s: %s", base::names(info), 1561s [00:52:41.399] info) 1561s [00:52:41.399] info <- base::paste(info, collapse = "; ") 1561s [00:52:41.399] if (!has_future) { 1561s [00:52:41.399] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1561s [00:52:41.399] info) 1561s [00:52:41.399] } 1561s [00:52:41.399] else { 1561s [00:52:41.399] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1561s [00:52:41.399] info, version) 1561s [00:52:41.399] } 1561s [00:52:41.399] base::stop(msg) 1561s [00:52:41.399] } 1561s [00:52:41.399] }) 1561s [00:52:41.399] } 1561s [00:52:41.399] base::local({ 1561s [00:52:41.399] for (pkg in "stats") { 1561s [00:52:41.399] base::loadNamespace(pkg) 1561s [00:52:41.399] base::library(pkg, character.only = TRUE) 1561s [00:52:41.399] } 1561s [00:52:41.399] }) 1561s [00:52:41.399] } 1561s [00:52:41.399] options(future.plan = NULL) 1561s [00:52:41.399] Sys.unsetenv("R_FUTURE_PLAN") 1561s [00:52:41.399] future::plan("default", .cleanup = FALSE, .init = FALSE) 1561s [00:52:41.399] } 1561s [00:52:41.399] ...future.workdir <- getwd() 1561s [00:52:41.399] } 1561s [00:52:41.399] ...future.oldOptions <- base::as.list(base::.Options) 1561s [00:52:41.399] ...future.oldEnvVars <- base::Sys.getenv() 1561s [00:52:41.399] } 1561s [00:52:41.399] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1561s [00:52:41.399] future.globals.maxSize = NULL, future.globals.method = NULL, 1561s [00:52:41.399] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1561s [00:52:41.399] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1561s [00:52:41.399] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1561s [00:52:41.399] future.stdout.windows.reencode = NULL, width = 80L) 1561s [00:52:41.399] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1561s [00:52:41.399] base::names(...future.oldOptions)) 1561s [00:52:41.399] } 1561s [00:52:41.399] if (FALSE) { 1561s [00:52:41.399] } 1561s [00:52:41.399] else { 1561s [00:52:41.399] if (TRUE) { 1561s [00:52:41.399] ...future.stdout <- base::rawConnection(base::raw(0L), 1561s [00:52:41.399] open = "w") 1561s [00:52:41.399] } 1561s [00:52:41.399] else { 1561s [00:52:41.399] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1561s [00:52:41.399] windows = "NUL", "/dev/null"), open = "w") 1561s [00:52:41.399] } 1561s [00:52:41.399] base::sink(...future.stdout, type = "output", split = FALSE) 1561s [00:52:41.399] base::on.exit(if (!base::is.null(...future.stdout)) { 1561s [00:52:41.399] base::sink(type = "output", split = FALSE) 1561s [00:52:41.399] base::close(...future.stdout) 1561s [00:52:41.399] }, add = TRUE) 1561s [00:52:41.399] } 1561s [00:52:41.399] ...future.frame <- base::sys.nframe() 1561s [00:52:41.399] ...future.conditions <- base::list() 1561s [00:52:41.399] ...future.rng <- base::globalenv()$.Random.seed 1561s [00:52:41.399] if (FALSE) { 1561s [00:52:41.399] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1561s [00:52:41.399] "...future.value", "...future.globalenv.names", ".Random.seed") 1561s [00:52:41.399] } 1561s [00:52:41.399] ...future.result <- base::tryCatch({ 1561s [00:52:41.399] base::withCallingHandlers({ 1561s [00:52:41.399] ...future.value <- base::withVisible(base::local({ 1561s [00:52:41.399] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1561s [00:52:41.399] if (!identical(...future.globals.maxSize.org, 1561s [00:52:41.399] ...future.globals.maxSize)) { 1561s [00:52:41.399] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1561s [00:52:41.399] on.exit(options(oopts), add = TRUE) 1561s [00:52:41.399] } 1561s [00:52:41.399] { 1561s [00:52:41.399] ...future.FUN2 <- function(..., ...future.seeds_ii_jj) { 1561s [00:52:41.399] assign(".Random.seed", ...future.seeds_ii_jj, 1561s [00:52:41.399] envir = globalenv(), inherits = FALSE) 1561s [00:52:41.399] ...future.FUN(...) 1561s [00:52:41.399] } 1561s [00:52:41.399] args <- c(list(FUN = ...future.FUN2), ...future.elements_ii, 1561s [00:52:41.399] list(...future.seeds_ii_jj = ...future.seeds_ii), 1561s [00:52:41.399] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1561s [00:52:41.399] USE.NAMES = FALSE) 1561s [00:52:41.399] do.call(mapply, args = args) 1561s [00:52:41.399] } 1561s [00:52:41.399] })) 1561s [00:52:41.399] future::FutureResult(value = ...future.value$value, 1561s [00:52:41.399] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1561s [00:52:41.399] ...future.rng), globalenv = if (FALSE) 1561s [00:52:41.399] list(added = base::setdiff(base::names(base::.GlobalEnv), 1561s [00:52:41.399] ...future.globalenv.names)) 1561s [00:52:41.399] else NULL, started = ...future.startTime, version = "1.8") 1561s [00:52:41.399] }, condition = base::local({ 1561s [00:52:41.399] c <- base::c 1561s [00:52:41.399] inherits <- base::inherits 1561s [00:52:41.399] invokeRestart <- base::invokeRestart 1561s [00:52:41.399] length <- base::length 1561s [00:52:41.399] list <- base::list 1561s [00:52:41.399] seq.int <- base::seq.int 1561s [00:52:41.399] signalCondition <- base::signalCondition 1561s [00:52:41.399] sys.calls <- base::sys.calls 1561s [00:52:41.399] `[[` <- base::`[[` 1561s [00:52:41.399] `+` <- base::`+` 1561s [00:52:41.399] `<<-` <- base::`<<-` 1561s [00:52:41.399] sysCalls <- function(calls = sys.calls(), from = 1L) { 1561s [00:52:41.399] calls[seq.int(from = from + 12L, to = length(calls) - 1561s [00:52:41.399] 3L)] 1561s [00:52:41.399] } 1561s [00:52:41.399] function(cond) { 1561s [00:52:41.399] is_error <- inherits(cond, "error") 1561s [00:52:41.399] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1561s [00:52:41.399] NULL) 1561s [00:52:41.399] if (is_error) { 1561s [00:52:41.399] sessionInformation <- function() { 1561s [00:52:41.399] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1561s [00:52:41.399] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1561s [00:52:41.399] search = base::search(), system = base::Sys.info()) 1561s [00:52:41.399] } 1561s [00:52:41.399] ...future.conditions[[length(...future.conditions) + 1561s [00:52:41.399] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1561s [00:52:41.399] cond$call), session = sessionInformation(), 1561s [00:52:41.399] timestamp = base::Sys.time(), signaled = 0L) 1561s [00:52:41.399] signalCondition(cond) 1561s [00:52:41.399] } 1561s [00:52:41.399] else if (!ignore && TRUE && inherits(cond, c("condition", 1561s [00:52:41.399] "immediateCondition"))) { 1561s [00:52:41.399] signal <- TRUE && inherits(cond, "immediateCondition") 1561s [00:52:41.399] ...future.conditions[[length(...future.conditions) + 1561s [00:52:41.399] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1561s [00:52:41.399] if (TRUE && !signal) { 1561s [00:52:41.399] muffleCondition <- function (cond, pattern = "^muffle") 1561s [00:52:41.399] { 1561s [00:52:41.399] inherits <- base::inherits 1561s [00:52:41.399] invokeRestart <- base::invokeRestart 1561s [00:52:41.399] is.null <- base::is.null 1561s [00:52:41.399] muffled <- FALSE 1561s [00:52:41.399] if (inherits(cond, "message")) { 1561s [00:52:41.399] muffled <- grepl(pattern, "muffleMessage") 1561s [00:52:41.399] if (muffled) 1561s [00:52:41.399] invokeRestart("muffleMessage") 1561s [00:52:41.399] } 1561s [00:52:41.399] else if (inherits(cond, "warning")) { 1561s [00:52:41.399] muffled <- grepl(pattern, "muffleWarning") 1561s [00:52:41.399] if (muffled) 1561s [00:52:41.399] invokeRestart("muffleWarning") 1561s [00:52:41.399] } 1561s [00:52:41.399] else if (inherits(cond, "condition")) { 1561s [00:52:41.399] if (!is.null(pattern)) { 1561s [00:52:41.399] computeRestarts <- base::computeRestarts 1561s [00:52:41.399] grepl <- base::grepl 1561s [00:52:41.399] restarts <- computeRestarts(cond) 1561s [00:52:41.399] for (restart in restarts) { 1561s [00:52:41.399] name <- restart$name 1561s [00:52:41.399] if (is.null(name)) 1561s [00:52:41.399] next 1561s [00:52:41.399] if (!grepl(pattern, name)) 1561s [00:52:41.399] next 1561s [00:52:41.399] invokeRestart(restart) 1561s [00:52:41.399] muffled <- TRUE 1561s [00:52:41.399] break 1561s [00:52:41.399] } 1561s [00:52:41.399] } 1561s [00:52:41.399] } 1561s [00:52:41.399] invisible(muffled) 1561s [00:52:41.399] } 1561s [00:52:41.399] muffleCondition(cond, pattern = "^muffle") 1561s [00:52:41.399] } 1561s [00:52:41.399] } 1561s [00:52:41.399] else { 1561s [00:52:41.399] if (TRUE) { 1561s [00:52:41.399] muffleCondition <- function (cond, pattern = "^muffle") 1561s [00:52:41.399] { 1561s [00:52:41.399] inherits <- base::inherits 1561s [00:52:41.399] invokeRestart <- base::invokeRestart 1561s [00:52:41.399] is.null <- base::is.null 1561s [00:52:41.399] muffled <- FALSE 1561s [00:52:41.399] if (inherits(cond, "message")) { 1561s [00:52:41.399] muffled <- grepl(pattern, "muffleMessage") 1561s [00:52:41.399] if (muffled) 1561s [00:52:41.399] invokeRestart("muffleMessage") 1561s [00:52:41.399] } 1561s [00:52:41.399] else if (inherits(cond, "warning")) { 1561s [00:52:41.399] muffled <- grepl(pattern, "muffleWarning") 1561s [00:52:41.399] if (muffled) 1561s [00:52:41.399] invokeRestart("muffleWarning") 1561s [00:52:41.399] } 1561s [00:52:41.399] else if (inherits(cond, "condition")) { 1561s [00:52:41.399] if (!is.null(pattern)) { 1561s [00:52:41.399] computeRestarts <- base::computeRestarts 1561s [00:52:41.399] grepl <- base::grepl 1561s [00:52:41.399] restarts <- computeRestarts(cond) 1561s [00:52:41.399] for (restart in restarts) { 1561s [00:52:41.399] name <- restart$name 1561s [00:52:41.399] if (is.null(name)) 1561s [00:52:41.399] next 1561s [00:52:41.399] if (!grepl(pattern, name)) 1561s [00:52:41.399] next 1561s [00:52:41.399] invokeRestart(restart) 1561s [00:52:41.399] muffled <- TRUE 1561s [00:52:41.399] break 1561s [00:52:41.399] } 1561s [00:52:41.399] } 1561s [00:52:41.399] } 1561s [00:52:41.399] invisible(muffled) 1561s [00:52:41.399] } 1561s [00:52:41.399] muffleCondition(cond, pattern = "^muffle") 1561s [00:52:41.399] } 1561s [00:52:41.399] } 1561s [00:52:41.399] } 1561s [00:52:41.399] })) 1561s [00:52:41.399] }, error = function(ex) { 1561s [00:52:41.399] base::structure(base::list(value = NULL, visible = NULL, 1561s [00:52:41.399] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1561s [00:52:41.399] ...future.rng), started = ...future.startTime, 1561s [00:52:41.399] finished = Sys.time(), session_uuid = NA_character_, 1561s [00:52:41.399] version = "1.8"), class = "FutureResult") 1561s [00:52:41.399] }, finally = { 1561s [00:52:41.399] if (!identical(...future.workdir, getwd())) 1561s [00:52:41.399] setwd(...future.workdir) 1561s [00:52:41.399] { 1561s [00:52:41.399] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1561s [00:52:41.399] ...future.oldOptions$nwarnings <- NULL 1561s [00:52:41.399] } 1561s [00:52:41.399] base::options(...future.oldOptions) 1561s [00:52:41.399] if (.Platform$OS.type == "windows") { 1561s [00:52:41.399] old_names <- names(...future.oldEnvVars) 1561s [00:52:41.399] envs <- base::Sys.getenv() 1561s [00:52:41.399] names <- names(envs) 1561s [00:52:41.399] common <- intersect(names, old_names) 1561s [00:52:41.399] added <- setdiff(names, old_names) 1561s [00:52:41.399] removed <- setdiff(old_names, names) 1561s [00:52:41.399] changed <- common[...future.oldEnvVars[common] != 1561s [00:52:41.399] envs[common]] 1561s [00:52:41.399] NAMES <- toupper(changed) 1561s [00:52:41.399] args <- list() 1561s [00:52:41.399] for (kk in seq_along(NAMES)) { 1561s [00:52:41.399] name <- changed[[kk]] 1561s [00:52:41.399] NAME <- NAMES[[kk]] 1561s [00:52:41.399] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:41.399] next 1561s [00:52:41.399] args[[name]] <- ...future.oldEnvVars[[name]] 1561s [00:52:41.399] } 1561s [00:52:41.399] NAMES <- toupper(added) 1561s [00:52:41.399] for (kk in seq_along(NAMES)) { 1561s [00:52:41.399] name <- added[[kk]] 1561s [00:52:41.399] NAME <- NAMES[[kk]] 1561s [00:52:41.399] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:41.399] next 1561s [00:52:41.399] args[[name]] <- "" 1561s [00:52:41.399] } 1561s [00:52:41.399] NAMES <- toupper(removed) 1561s [00:52:41.399] for (kk in seq_along(NAMES)) { 1561s [00:52:41.399] name <- removed[[kk]] 1561s [00:52:41.399] NAME <- NAMES[[kk]] 1561s [00:52:41.399] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:41.399] next 1561s [00:52:41.399] args[[name]] <- ...future.oldEnvVars[[name]] 1561s [00:52:41.399] } 1561s [00:52:41.399] if (length(args) > 0) 1561s [00:52:41.399] base::do.call(base::Sys.setenv, args = args) 1561s [00:52:41.399] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1561s [00:52:41.399] } 1561s [00:52:41.399] else { 1561s [00:52:41.399] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1561s [00:52:41.399] } 1561s [00:52:41.399] { 1561s [00:52:41.399] if (base::length(...future.futureOptionsAdded) > 1561s [00:52:41.399] 0L) { 1561s [00:52:41.399] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1561s [00:52:41.399] base::names(opts) <- ...future.futureOptionsAdded 1561s [00:52:41.399] base::options(opts) 1561s [00:52:41.399] } 1561s [00:52:41.399] { 1561s [00:52:41.399] { 1561s [00:52:41.399] base::assign(".Random.seed", c(10407L, -846696676L, 1561s [00:52:41.399] 1852291760L, -2098202425L, -23889012L, 1028423370L, 1561s [00:52:41.399] -219511167L), envir = base::globalenv(), 1561s [00:52:41.399] inherits = FALSE) 1561s [00:52:41.399] NULL 1561s [00:52:41.399] } 1561s [00:52:41.399] options(future.plan = NULL) 1561s [00:52:41.399] if (is.na(NA_character_)) 1561s [00:52:41.399] Sys.unsetenv("R_FUTURE_PLAN") 1561s [00:52:41.399] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1561s [00:52:41.399] future::plan(list(function (..., envir = parent.frame()) 1561s [00:52:41.399] { 1561s [00:52:41.399] future <- SequentialFuture(..., envir = envir) 1561s [00:52:41.399] if (!future$lazy) 1561s [00:52:41.399] future <- run(future) 1561s [00:52:41.399] invisible(future) 1561s [00:52:41.399] }), .cleanup = FALSE, .init = FALSE) 1561s [00:52:41.399] } 1561s [00:52:41.399] } 1561s [00:52:41.399] } 1561s [00:52:41.399] }) 1561s [00:52:41.399] if (TRUE) { 1561s [00:52:41.399] base::sink(type = "output", split = FALSE) 1561s [00:52:41.399] if (TRUE) { 1561s [00:52:41.399] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1561s [00:52:41.399] } 1561s [00:52:41.399] else { 1561s [00:52:41.399] ...future.result["stdout"] <- base::list(NULL) 1561s [00:52:41.399] } 1561s [00:52:41.399] base::close(...future.stdout) 1561s [00:52:41.399] ...future.stdout <- NULL 1561s [00:52:41.399] } 1561s [00:52:41.399] ...future.result$conditions <- ...future.conditions 1561s [00:52:41.399] ...future.result$finished <- base::Sys.time() 1561s [00:52:41.399] ...future.result 1561s [00:52:41.399] } 1561s [00:52:41.407] assign_globals() ... 1561s [00:52:41.407] List of 5 1561s [00:52:41.407] $ ...future.FUN :function (n, min = 0, max = 1) 1561s [00:52:41.407] $ MoreArgs :List of 1 1561s [00:52:41.407] ..$ min: num 1 1561s [00:52:41.407] $ ...future.elements_ii :List of 2 1561s [00:52:41.407] ..$ n :List of 4 1561s [00:52:41.407] .. ..$ : int 1 1561s [00:52:41.407] .. ..$ : int 2 1561s [00:52:41.407] .. ..$ : int 3 1561s [00:52:41.407] .. ..$ : int 4 1561s [00:52:41.407] ..$ max:List of 4 1561s [00:52:41.407] .. ..$ : int 2 1561s [00:52:41.407] .. ..$ : int 3 1561s [00:52:41.407] .. ..$ : int 4 1561s [00:52:41.407] .. ..$ : int 5 1561s [00:52:41.407] $ ...future.seeds_ii :List of 4 1561s [00:52:41.407] ..$ : int [1:7] 10407 1242173061 -1150840343 -834448425 701050094 -1369558043 -650964284 1561s [00:52:41.407] ..$ : int [1:7] 10407 859061261 1088872332 -1371790091 -942478768 -889560561 1393381402 1561s [00:52:41.407] ..$ : int [1:7] 10407 -1977952646 362645338 -1927542548 -742448269 -2030870718 1472975712 1561s [00:52:41.407] ..$ : int [1:7] 10407 -781199300 -1470244364 -1435938985 -1154922760 795337516 2089908040 1561s [00:52:41.407] $ ...future.globals.maxSize: NULL 1561s [00:52:41.407] - attr(*, "where")=List of 5 1561s [00:52:41.407] ..$ ...future.FUN : 1561s [00:52:41.407] ..$ MoreArgs : 1561s [00:52:41.407] ..$ ...future.elements_ii : 1561s [00:52:41.407] ..$ ...future.seeds_ii : 1561s [00:52:41.407] ..$ ...future.globals.maxSize: 1561s [00:52:41.407] - attr(*, "resolved")= logi FALSE 1561s [00:52:41.407] - attr(*, "total_size")= num 2912 1561s [00:52:41.407] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1561s [00:52:41.407] - attr(*, "already-done")= logi TRUE 1561s [00:52:41.418] - copied ‘...future.FUN’ to environment 1561s [00:52:41.419] - copied ‘MoreArgs’ to environment 1561s [00:52:41.419] - copied ‘...future.elements_ii’ to environment 1561s [00:52:41.419] - copied ‘...future.seeds_ii’ to environment 1561s [00:52:41.419] - copied ‘...future.globals.maxSize’ to environment 1561s [00:52:41.419] assign_globals() ... done 1561s [00:52:41.420] plan(): Setting new future strategy stack: 1561s [00:52:41.420] List of future strategies: 1561s [00:52:41.420] 1. sequential: 1561s [00:52:41.420] - args: function (..., envir = parent.frame()) 1561s [00:52:41.420] - tweaked: FALSE 1561s [00:52:41.420] - call: NULL 1561s [00:52:41.420] plan(): nbrOfWorkers() = 1 1561s [00:52:41.421] plan(): Setting new future strategy stack: 1561s [00:52:41.422] List of future strategies: 1561s [00:52:41.422] 1. sequential: 1561s [00:52:41.422] - args: function (..., envir = parent.frame()) 1561s [00:52:41.422] - tweaked: FALSE 1561s [00:52:41.422] - call: plan(strategy) 1561s [00:52:41.422] plan(): nbrOfWorkers() = 1 1561s [00:52:41.422] SequentialFuture started (and completed) 1561s [00:52:41.423] - Launch lazy future ... done 1561s [00:52:41.423] run() for ‘SequentialFuture’ ... done 1561s [00:52:41.423] Created future: 1561s [00:52:41.424] SequentialFuture: 1561s [00:52:41.424] Label: ‘future_mapply-1’ 1561s [00:52:41.424] Expression: 1561s [00:52:41.424] { 1561s [00:52:41.424] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1561s [00:52:41.424] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1561s [00:52:41.424] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1561s [00:52:41.424] on.exit(options(oopts), add = TRUE) 1561s [00:52:41.424] } 1561s [00:52:41.424] { 1561s [00:52:41.424] ...future.FUN2 <- function(..., ...future.seeds_ii_jj) { 1561s [00:52:41.424] assign(".Random.seed", ...future.seeds_ii_jj, envir = globalenv(), 1561s [00:52:41.424] inherits = FALSE) 1561s [00:52:41.424] ...future.FUN(...) 1561s [00:52:41.424] } 1561s [00:52:41.424] args <- c(list(FUN = ...future.FUN2), ...future.elements_ii, 1561s [00:52:41.424] list(...future.seeds_ii_jj = ...future.seeds_ii), 1561s [00:52:41.424] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1561s [00:52:41.424] do.call(mapply, args = args) 1561s [00:52:41.424] } 1561s [00:52:41.424] } 1561s [00:52:41.424] Lazy evaluation: FALSE 1561s [00:52:41.424] Asynchronous evaluation: FALSE 1561s [00:52:41.424] Local evaluation: TRUE 1561s [00:52:41.424] Environment: R_GlobalEnv 1561s [00:52:41.424] Capture standard output: TRUE 1561s [00:52:41.424] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1561s [00:52:41.424] Globals: 5 objects totaling 2.84 KiB (function ‘...future.FUN’ of 2.04 KiB, list ‘MoreArgs’ of 56 bytes, list ‘...future.elements_ii’ of 448 bytes, list ‘...future.seeds_ii’ of 320 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1561s [00:52:41.424] Packages: 1 packages (‘stats’) 1561s [00:52:41.424] L'Ecuyer-CMRG RNG seed: (seed = NULL) 1561s [00:52:41.424] Resolved: TRUE 1561s [00:52:41.424] Value: 280 bytes of class ‘list’ 1561s [00:52:41.424] Early signaling: FALSE 1561s [00:52:41.424] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1561s [00:52:41.424] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1561s [00:52:41.425] Chunk #1 of 1 ... DONE 1561s [00:52:41.429] Launching 1 futures (chunks) ... DONE 1561s [00:52:41.430] Resolving 1 futures (chunks) ... 1561s [00:52:41.430] resolve() on list ... 1561s [00:52:41.430] recursive: 0 1561s [00:52:41.430] length: 1 1561s [00:52:41.430] 1561s [00:52:41.430] resolved() for ‘SequentialFuture’ ... 1561s [00:52:41.431] - state: ‘finished’ 1561s [00:52:41.431] - run: TRUE 1561s [00:52:41.431] - result: ‘FutureResult’ 1561s [00:52:41.431] resolved() for ‘SequentialFuture’ ... done 1561s [00:52:41.431] Future #1 1561s [00:52:41.432] signalConditionsASAP(SequentialFuture, pos=1) ... 1561s [00:52:41.432] - nx: 1 1561s [00:52:41.432] - relay: TRUE 1561s [00:52:41.432] - stdout: TRUE 1561s [00:52:41.432] - signal: TRUE 1561s [00:52:41.433] - resignal: FALSE 1561s [00:52:41.433] - force: TRUE 1561s [00:52:41.433] - relayed: [n=1] FALSE 1561s [00:52:41.433] - queued futures: [n=1] FALSE 1561s [00:52:41.433] - until=1 1561s [00:52:41.434] - relaying element #1 1561s [00:52:41.434] - relayed: [n=1] TRUE 1561s [00:52:41.434] - queued futures: [n=1] TRUE 1561s [00:52:41.435] signalConditionsASAP(SequentialFuture, pos=1) ... done 1561s [00:52:41.435] length: 0 (resolved future 1) 1561s [00:52:41.435] Relaying remaining futures 1561s [00:52:41.436] signalConditionsASAP(NULL, pos=0) ... 1561s [00:52:41.436] - nx: 1 1561s [00:52:41.436] - relay: TRUE 1561s [00:52:41.437] - stdout: TRUE 1561s [00:52:41.437] - signal: TRUE 1561s [00:52:41.437] - resignal: FALSE 1561s [00:52:41.437] - force: TRUE 1561s [00:52:41.437] - relayed: [n=1] TRUE 1561s [00:52:41.438] - queued futures: [n=1] TRUE 1561s - flush all 1561s [00:52:41.438] - relayed: [n=1] TRUE 1561s [00:52:41.438] - queued futures: [n=1] TRUE 1561s [00:52:41.438] signalConditionsASAP(NULL, pos=0) ... done 1561s [00:52:41.438] resolve() on list ... DONE 1561s [00:52:41.439] - Number of value chunks collected: 1 1561s [00:52:41.439] Resolving 1 futures (chunks) ... DONE 1561s [[1]] 1561s [1] 1.752502[00:52:41.439] Reducing values from 1 chunks ... 1561s [00:52:41.439] - Number of values collected after concatenation: 4 1561s [00:52:41.439] - Number of values expected: 4 1561s [00:52:41.440] Reducing values from 1 chunks ... DONE 1561s [00:52:41.440] future_mapply() ... DONE 1561s 1561s 1561s [[2]] 1561s [1] 2.765950 2.044156 1561s 1561s [[3]] 1561s [1] 1.419503 3.529684 1.023802 1561s 1561s [[4]] 1561s [1] 4.494280 3.546145 1.402837 4.295444 1561s 1561s - future_Map() ... 1561s [00:52:41.444] future_mapply() ... 1561s [00:52:41.445] Number of chunks: 1 1561s [00:52:41.445] getGlobalsAndPackagesXApply() ... 1561s [00:52:41.445] - future.globals: TRUE 1561s [00:52:41.445] getGlobalsAndPackages() ... 1561s [00:52:41.446] Searching for globals... 1561s [00:52:41.447] - globals found: [2] ‘FUN’, ‘UseMethod’ 1561s [00:52:41.447] Searching for globals ... DONE 1561s [00:52:41.447] Resolving globals: FALSE 1561s [00:52:41.448] The total size of the 1 globals is 1.38 KiB (1416 bytes) 1561s [00:52:41.448] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.38 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.38 KiB of class ‘function’) 1561s [00:52:41.448] - globals: [1] ‘FUN’ 1561s [00:52:41.449] - packages: [1] ‘stats’ 1561s [00:52:41.449] getGlobalsAndPackages() ... DONE 1561s [00:52:41.449] - globals found/used: [n=1] ‘FUN’ 1561s [00:52:41.449] - needed namespaces: [n=1] ‘stats’ 1561s [00:52:41.449] Finding globals ... DONE 1561s [00:52:41.450] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1561s [00:52:41.450] List of 2 1561s [00:52:41.450] $ ...future.FUN:function (x, w, ...) 1561s [00:52:41.450] $ MoreArgs : NULL 1561s [00:52:41.450] - attr(*, "where")=List of 2 1561s [00:52:41.450] ..$ ...future.FUN: 1561s [00:52:41.450] ..$ MoreArgs : 1561s [00:52:41.450] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1561s [00:52:41.450] - attr(*, "resolved")= logi FALSE 1561s [00:52:41.450] - attr(*, "total_size")= num NA 1561s [00:52:41.454] Packages to be attached in all futures: [n=1] ‘stats’ 1561s [00:52:41.454] getGlobalsAndPackagesXApply() ... DONE 1561s [00:52:41.455] Number of futures (= number of chunks): 1 1561s [00:52:41.455] Launching 1 futures (chunks) ... 1561s [00:52:41.455] Chunk #1 of 1 ... 1561s [00:52:41.456] - Finding globals in '...' for chunk #1 ... 1561s [00:52:41.456] getGlobalsAndPackages() ... 1561s [00:52:41.456] Searching for globals... 1561s [00:52:41.457] 1561s [00:52:41.457] Searching for globals ... DONE 1561s [00:52:41.457] - globals: [0] 1561s [00:52:41.457] getGlobalsAndPackages() ... DONE 1561s [00:52:41.457] + additional globals found: [n=0] 1561s [00:52:41.457] + additional namespaces needed: [n=0] 1561s [00:52:41.457] - Finding globals in '...' for chunk #1 ... DONE 1561s [00:52:41.457] - seeds: 1561s [00:52:41.458] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:41.458] getGlobalsAndPackages() ... 1561s [00:52:41.458] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:41.458] Resolving globals: FALSE 1561s [00:52:41.459] The total size of the 5 globals is 3.10 KiB (3176 bytes) 1561s [00:52:41.459] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 3.10 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.elements_ii’ (1.72 KiB of class ‘list’), ‘...future.FUN’ (1.38 KiB of class ‘function’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1561s [00:52:41.460] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:41.460] - packages: [1] ‘stats’ 1561s [00:52:41.460] getGlobalsAndPackages() ... DONE 1561s [00:52:41.461] run() for ‘Future’ ... 1561s [00:52:41.461] - state: ‘created’ 1561s [00:52:41.461] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1561s [00:52:41.462] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1561s [00:52:41.462] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1561s [00:52:41.462] - Field: ‘label’ 1561s [00:52:41.462] - Field: ‘local’ 1561s [00:52:41.462] - Field: ‘owner’ 1561s [00:52:41.463] - Field: ‘envir’ 1561s [00:52:41.463] - Field: ‘packages’ 1561s [00:52:41.463] - Field: ‘gc’ 1561s [00:52:41.463] - Field: ‘conditions’ 1561s [00:52:41.464] - Field: ‘expr’ 1561s [00:52:41.464] - Field: ‘uuid’ 1561s [00:52:41.464] - Field: ‘seed’ 1561s [00:52:41.464] - Field: ‘version’ 1561s [00:52:41.464] - Field: ‘result’ 1561s [00:52:41.464] - Field: ‘asynchronous’ 1561s [00:52:41.465] - Field: ‘calls’ 1561s [00:52:41.465] - Field: ‘globals’ 1561s [00:52:41.465] - Field: ‘stdout’ 1561s [00:52:41.465] - Field: ‘earlySignal’ 1561s [00:52:41.465] - Field: ‘lazy’ 1561s [00:52:41.465] - Field: ‘state’ 1561s [00:52:41.466] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1561s [00:52:41.466] - Launch lazy future ... 1561s [00:52:41.466] Packages needed by the future expression (n = 1): ‘stats’ 1561s [00:52:41.466] Packages needed by future strategies (n = 0): 1561s [00:52:41.467] { 1561s [00:52:41.467] { 1561s [00:52:41.467] { 1561s [00:52:41.467] ...future.startTime <- base::Sys.time() 1561s [00:52:41.467] { 1561s [00:52:41.467] { 1561s [00:52:41.467] { 1561s [00:52:41.467] { 1561s [00:52:41.467] base::local({ 1561s [00:52:41.467] has_future <- base::requireNamespace("future", 1561s [00:52:41.467] quietly = TRUE) 1561s [00:52:41.467] if (has_future) { 1561s [00:52:41.467] ns <- base::getNamespace("future") 1561s [00:52:41.467] version <- ns[[".package"]][["version"]] 1561s [00:52:41.467] if (is.null(version)) 1561s [00:52:41.467] version <- utils::packageVersion("future") 1561s [00:52:41.467] } 1561s [00:52:41.467] else { 1561s [00:52:41.467] version <- NULL 1561s [00:52:41.467] } 1561s [00:52:41.467] if (!has_future || version < "1.8.0") { 1561s [00:52:41.467] info <- base::c(r_version = base::gsub("R version ", 1561s [00:52:41.467] "", base::R.version$version.string), 1561s [00:52:41.467] platform = base::sprintf("%s (%s-bit)", 1561s [00:52:41.467] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1561s [00:52:41.467] os = base::paste(base::Sys.info()[base::c("sysname", 1561s [00:52:41.467] "release", "version")], collapse = " "), 1561s [00:52:41.467] hostname = base::Sys.info()[["nodename"]]) 1561s [00:52:41.467] info <- base::sprintf("%s: %s", base::names(info), 1561s [00:52:41.467] info) 1561s [00:52:41.467] info <- base::paste(info, collapse = "; ") 1561s [00:52:41.467] if (!has_future) { 1561s [00:52:41.467] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1561s [00:52:41.467] info) 1561s [00:52:41.467] } 1561s [00:52:41.467] else { 1561s [00:52:41.467] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1561s [00:52:41.467] info, version) 1561s [00:52:41.467] } 1561s [00:52:41.467] base::stop(msg) 1561s [00:52:41.467] } 1561s [00:52:41.467] }) 1561s [00:52:41.467] } 1561s [00:52:41.467] base::local({ 1561s [00:52:41.467] for (pkg in "stats") { 1561s [00:52:41.467] base::loadNamespace(pkg) 1561s [00:52:41.467] base::library(pkg, character.only = TRUE) 1561s [00:52:41.467] } 1561s [00:52:41.467] }) 1561s [00:52:41.467] } 1561s [00:52:41.467] options(future.plan = NULL) 1561s [00:52:41.467] Sys.unsetenv("R_FUTURE_PLAN") 1561s [00:52:41.467] future::plan("default", .cleanup = FALSE, .init = FALSE) 1561s [00:52:41.467] } 1561s [00:52:41.467] ...future.workdir <- getwd() 1561s [00:52:41.467] } 1561s [00:52:41.467] ...future.oldOptions <- base::as.list(base::.Options) 1561s [00:52:41.467] ...future.oldEnvVars <- base::Sys.getenv() 1561s [00:52:41.467] } 1561s [00:52:41.467] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1561s [00:52:41.467] future.globals.maxSize = NULL, future.globals.method = NULL, 1561s [00:52:41.467] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1561s [00:52:41.467] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1561s [00:52:41.467] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1561s [00:52:41.467] future.stdout.windows.reencode = NULL, width = 80L) 1561s [00:52:41.467] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1561s [00:52:41.467] base::names(...future.oldOptions)) 1561s [00:52:41.467] } 1561s [00:52:41.467] if (FALSE) { 1561s [00:52:41.467] } 1561s [00:52:41.467] else { 1561s [00:52:41.467] if (TRUE) { 1561s [00:52:41.467] ...future.stdout <- base::rawConnection(base::raw(0L), 1561s [00:52:41.467] open = "w") 1561s [00:52:41.467] } 1561s [00:52:41.467] else { 1561s [00:52:41.467] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1561s [00:52:41.467] windows = "NUL", "/dev/null"), open = "w") 1561s [00:52:41.467] } 1561s [00:52:41.467] base::sink(...future.stdout, type = "output", split = FALSE) 1561s [00:52:41.467] base::on.exit(if (!base::is.null(...future.stdout)) { 1561s [00:52:41.467] base::sink(type = "output", split = FALSE) 1561s [00:52:41.467] base::close(...future.stdout) 1561s [00:52:41.467] }, add = TRUE) 1561s [00:52:41.467] } 1561s [00:52:41.467] ...future.frame <- base::sys.nframe() 1561s [00:52:41.467] ...future.conditions <- base::list() 1561s [00:52:41.467] ...future.rng <- base::globalenv()$.Random.seed 1561s [00:52:41.467] if (FALSE) { 1561s [00:52:41.467] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1561s [00:52:41.467] "...future.value", "...future.globalenv.names", ".Random.seed") 1561s [00:52:41.467] } 1561s [00:52:41.467] ...future.result <- base::tryCatch({ 1561s [00:52:41.467] base::withCallingHandlers({ 1561s [00:52:41.467] ...future.value <- base::withVisible(base::local({ 1561s [00:52:41.467] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1561s [00:52:41.467] if (!identical(...future.globals.maxSize.org, 1561s [00:52:41.467] ...future.globals.maxSize)) { 1561s [00:52:41.467] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1561s [00:52:41.467] on.exit(options(oopts), add = TRUE) 1561s [00:52:41.467] } 1561s [00:52:41.467] { 1561s [00:52:41.467] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1561s [00:52:41.467] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1561s [00:52:41.467] USE.NAMES = FALSE) 1561s [00:52:41.467] do.call(mapply, args = args) 1561s [00:52:41.467] } 1561s [00:52:41.467] })) 1561s [00:52:41.467] future::FutureResult(value = ...future.value$value, 1561s [00:52:41.467] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1561s [00:52:41.467] ...future.rng), globalenv = if (FALSE) 1561s [00:52:41.467] list(added = base::setdiff(base::names(base::.GlobalEnv), 1561s [00:52:41.467] ...future.globalenv.names)) 1561s [00:52:41.467] else NULL, started = ...future.startTime, version = "1.8") 1561s [00:52:41.467] }, condition = base::local({ 1561s [00:52:41.467] c <- base::c 1561s [00:52:41.467] inherits <- base::inherits 1561s [00:52:41.467] invokeRestart <- base::invokeRestart 1561s [00:52:41.467] length <- base::length 1561s [00:52:41.467] list <- base::list 1561s [00:52:41.467] seq.int <- base::seq.int 1561s [00:52:41.467] signalCondition <- base::signalCondition 1561s [00:52:41.467] sys.calls <- base::sys.calls 1561s [00:52:41.467] `[[` <- base::`[[` 1561s [00:52:41.467] `+` <- base::`+` 1561s [00:52:41.467] `<<-` <- base::`<<-` 1561s [00:52:41.467] sysCalls <- function(calls = sys.calls(), from = 1L) { 1561s [00:52:41.467] calls[seq.int(from = from + 12L, to = length(calls) - 1561s [00:52:41.467] 3L)] 1561s [00:52:41.467] } 1561s [00:52:41.467] function(cond) { 1561s [00:52:41.467] is_error <- inherits(cond, "error") 1561s [00:52:41.467] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1561s [00:52:41.467] NULL) 1561s [00:52:41.467] if (is_error) { 1561s [00:52:41.467] sessionInformation <- function() { 1561s [00:52:41.467] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1561s [00:52:41.467] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1561s [00:52:41.467] search = base::search(), system = base::Sys.info()) 1561s [00:52:41.467] } 1561s [00:52:41.467] ...future.conditions[[length(...future.conditions) + 1561s [00:52:41.467] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1561s [00:52:41.467] cond$call), session = sessionInformation(), 1561s [00:52:41.467] timestamp = base::Sys.time(), signaled = 0L) 1561s [00:52:41.467] signalCondition(cond) 1561s [00:52:41.467] } 1561s [00:52:41.467] else if (!ignore && TRUE && inherits(cond, c("condition", 1561s [00:52:41.467] "immediateCondition"))) { 1561s [00:52:41.467] signal <- TRUE && inherits(cond, "immediateCondition") 1561s [00:52:41.467] ...future.conditions[[length(...future.conditions) + 1561s [00:52:41.467] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1561s [00:52:41.467] if (TRUE && !signal) { 1561s [00:52:41.467] muffleCondition <- function (cond, pattern = "^muffle") 1561s [00:52:41.467] { 1561s [00:52:41.467] inherits <- base::inherits 1561s [00:52:41.467] invokeRestart <- base::invokeRestart 1561s [00:52:41.467] is.null <- base::is.null 1561s [00:52:41.467] muffled <- FALSE 1561s [00:52:41.467] if (inherits(cond, "message")) { 1561s [00:52:41.467] muffled <- grepl(pattern, "muffleMessage") 1561s [00:52:41.467] if (muffled) 1561s [00:52:41.467] invokeRestart("muffleMessage") 1561s [00:52:41.467] } 1561s [00:52:41.467] else if (inherits(cond, "warning")) { 1561s [00:52:41.467] muffled <- grepl(pattern, "muffleWarning") 1561s [00:52:41.467] if (muffled) 1561s [00:52:41.467] invokeRestart("muffleWarning") 1561s [00:52:41.467] } 1561s [00:52:41.467] else if (inherits(cond, "condition")) { 1561s [00:52:41.467] if (!is.null(pattern)) { 1561s [00:52:41.467] computeRestarts <- base::computeRestarts 1561s [00:52:41.467] grepl <- base::grepl 1561s [00:52:41.467] restarts <- computeRestarts(cond) 1561s [00:52:41.467] for (restart in restarts) { 1561s [00:52:41.467] name <- restart$name 1561s [00:52:41.467] if (is.null(name)) 1561s [00:52:41.467] next 1561s [00:52:41.467] if (!grepl(pattern, name)) 1561s [00:52:41.467] next 1561s [00:52:41.467] invokeRestart(restart) 1561s [00:52:41.467] muffled <- TRUE 1561s [00:52:41.467] break 1561s [00:52:41.467] } 1561s [00:52:41.467] } 1561s [00:52:41.467] } 1561s [00:52:41.467] invisible(muffled) 1561s [00:52:41.467] } 1561s [00:52:41.467] muffleCondition(cond, pattern = "^muffle") 1561s [00:52:41.467] } 1561s [00:52:41.467] } 1561s [00:52:41.467] else { 1561s [00:52:41.467] if (TRUE) { 1561s [00:52:41.467] muffleCondition <- function (cond, pattern = "^muffle") 1561s [00:52:41.467] { 1561s [00:52:41.467] inherits <- base::inherits 1561s [00:52:41.467] invokeRestart <- base::invokeRestart 1561s [00:52:41.467] is.null <- base::is.null 1561s [00:52:41.467] muffled <- FALSE 1561s [00:52:41.467] if (inherits(cond, "message")) { 1561s [00:52:41.467] muffled <- grepl(pattern, "muffleMessage") 1561s [00:52:41.467] if (muffled) 1561s [00:52:41.467] invokeRestart("muffleMessage") 1561s [00:52:41.467] } 1561s [00:52:41.467] else if (inherits(cond, "warning")) { 1561s [00:52:41.467] muffled <- grepl(pattern, "muffleWarning") 1561s [00:52:41.467] if (muffled) 1561s [00:52:41.467] invokeRestart("muffleWarning") 1561s [00:52:41.467] } 1561s [00:52:41.467] else if (inherits(cond, "condition")) { 1561s [00:52:41.467] if (!is.null(pattern)) { 1561s [00:52:41.467] computeRestarts <- base::computeRestarts 1561s [00:52:41.467] grepl <- base::grepl 1561s [00:52:41.467] restarts <- computeRestarts(cond) 1561s [00:52:41.467] for (restart in restarts) { 1561s [00:52:41.467] name <- restart$name 1561s [00:52:41.467] if (is.null(name)) 1561s [00:52:41.467] next 1561s [00:52:41.467] if (!grepl(pattern, name)) 1561s [00:52:41.467] next 1561s [00:52:41.467] invokeRestart(restart) 1561s [00:52:41.467] muffled <- TRUE 1561s [00:52:41.467] break 1561s [00:52:41.467] } 1561s [00:52:41.467] } 1561s [00:52:41.467] } 1561s [00:52:41.467] invisible(muffled) 1561s [00:52:41.467] } 1561s [00:52:41.467] muffleCondition(cond, pattern = "^muffle") 1561s [00:52:41.467] } 1561s [00:52:41.467] } 1561s [00:52:41.467] } 1561s [00:52:41.467] })) 1561s [00:52:41.467] }, error = function(ex) { 1561s [00:52:41.467] base::structure(base::list(value = NULL, visible = NULL, 1561s [00:52:41.467] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1561s [00:52:41.467] ...future.rng), started = ...future.startTime, 1561s [00:52:41.467] finished = Sys.time(), session_uuid = NA_character_, 1561s [00:52:41.467] version = "1.8"), class = "FutureResult") 1561s [00:52:41.467] }, finally = { 1561s [00:52:41.467] if (!identical(...future.workdir, getwd())) 1561s [00:52:41.467] setwd(...future.workdir) 1561s [00:52:41.467] { 1561s [00:52:41.467] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1561s [00:52:41.467] ...future.oldOptions$nwarnings <- NULL 1561s [00:52:41.467] } 1561s [00:52:41.467] base::options(...future.oldOptions) 1561s [00:52:41.467] if (.Platform$OS.type == "windows") { 1561s [00:52:41.467] old_names <- names(...future.oldEnvVars) 1561s [00:52:41.467] envs <- base::Sys.getenv() 1561s [00:52:41.467] names <- names(envs) 1561s [00:52:41.467] common <- intersect(names, old_names) 1561s [00:52:41.467] added <- setdiff(names, old_names) 1561s [00:52:41.467] removed <- setdiff(old_names, names) 1561s [00:52:41.467] changed <- common[...future.oldEnvVars[common] != 1561s [00:52:41.467] envs[common]] 1561s [00:52:41.467] NAMES <- toupper(changed) 1561s [00:52:41.467] args <- list() 1561s [00:52:41.467] for (kk in seq_along(NAMES)) { 1561s [00:52:41.467] name <- changed[[kk]] 1561s [00:52:41.467] NAME <- NAMES[[kk]] 1561s [00:52:41.467] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:41.467] next 1561s [00:52:41.467] args[[name]] <- ...future.oldEnvVars[[name]] 1561s [00:52:41.467] } 1561s [00:52:41.467] NAMES <- toupper(added) 1561s [00:52:41.467] for (kk in seq_along(NAMES)) { 1561s [00:52:41.467] name <- added[[kk]] 1561s [00:52:41.467] NAME <- NAMES[[kk]] 1561s [00:52:41.467] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:41.467] next 1561s [00:52:41.467] args[[name]] <- "" 1561s [00:52:41.467] } 1561s [00:52:41.467] NAMES <- toupper(removed) 1561s [00:52:41.467] for (kk in seq_along(NAMES)) { 1561s [00:52:41.467] name <- removed[[kk]] 1561s [00:52:41.467] NAME <- NAMES[[kk]] 1561s [00:52:41.467] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:41.467] next 1561s [00:52:41.467] args[[name]] <- ...future.oldEnvVars[[name]] 1561s [00:52:41.467] } 1561s [00:52:41.467] if (length(args) > 0) 1561s [00:52:41.467] base::do.call(base::Sys.setenv, args = args) 1561s [00:52:41.467] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1561s [00:52:41.467] } 1561s [00:52:41.467] else { 1561s [00:52:41.467] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1561s [00:52:41.467] } 1561s [00:52:41.467] { 1561s [00:52:41.467] if (base::length(...future.futureOptionsAdded) > 1561s [00:52:41.467] 0L) { 1561s [00:52:41.467] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1561s [00:52:41.467] base::names(opts) <- ...future.futureOptionsAdded 1561s [00:52:41.467] base::options(opts) 1561s [00:52:41.467] } 1561s [00:52:41.467] { 1561s [00:52:41.467] { 1561s [00:52:41.467] base::assign(".Random.seed", c(10407L, 2079749599L, 1561s [00:52:41.467] -1712504007L, 90762767L, 511132818L, -526970845L, 1561s [00:52:41.467] -1057805512L), envir = base::globalenv(), 1561s [00:52:41.467] inherits = FALSE) 1561s [00:52:41.467] NULL 1561s [00:52:41.467] } 1561s [00:52:41.467] options(future.plan = NULL) 1561s [00:52:41.467] if (is.na(NA_character_)) 1561s [00:52:41.467] Sys.unsetenv("R_FUTURE_PLAN") 1561s [00:52:41.467] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1561s [00:52:41.467] future::plan(list(function (..., envir = parent.frame()) 1561s [00:52:41.467] { 1561s [00:52:41.467] future <- SequentialFuture(..., envir = envir) 1561s [00:52:41.467] if (!future$lazy) 1561s [00:52:41.467] future <- run(future) 1561s [00:52:41.467] invisible(future) 1561s [00:52:41.467] }), .cleanup = FALSE, .init = FALSE) 1561s [00:52:41.467] } 1561s [00:52:41.467] } 1561s [00:52:41.467] } 1561s [00:52:41.467] }) 1561s [00:52:41.467] if (TRUE) { 1561s [00:52:41.467] base::sink(type = "output", split = FALSE) 1561s [00:52:41.467] if (TRUE) { 1561s [00:52:41.467] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1561s [00:52:41.467] } 1561s [00:52:41.467] else { 1561s [00:52:41.467] ...future.result["stdout"] <- base::list(NULL) 1561s [00:52:41.467] } 1561s [00:52:41.467] base::close(...future.stdout) 1561s [00:52:41.467] ...future.stdout <- NULL 1561s [00:52:41.467] } 1561s [00:52:41.467] ...future.result$conditions <- ...future.conditions 1561s [00:52:41.467] ...future.result$finished <- base::Sys.time() 1561s [00:52:41.467] ...future.result 1561s [00:52:41.467] } 1561s [00:52:41.473] assign_globals() ... 1561s [00:52:41.474] List of 5 1561s [00:52:41.474] $ ...future.FUN :function (x, w, ...) 1561s [00:52:41.474] $ MoreArgs : NULL 1561s [00:52:41.474] $ ...future.elements_ii :List of 2 1561s [00:52:41.474] ..$ :List of 5 1561s [00:52:41.474] .. ..$ : num [1:10] 0.698 0.728 0.258 0.44 0.632 ... 1561s [00:52:41.474] .. ..$ : num [1:10] 0.8657 0.2385 0.0546 0.5179 0.4087 ... 1561s [00:52:41.474] .. ..$ : num [1:10] 0.251 0.355 0.663 0.928 0.503 ... 1561s [00:52:41.474] .. ..$ : num [1:10] 0.747 0.249 0.821 0.592 0.83 ... 1561s [00:52:41.474] .. ..$ : num [1:10] 0.308 0.472 0.548 0.9 0.065 ... 1561s [00:52:41.474] ..$ :List of 5 1561s [00:52:41.474] .. ..$ : num [1:10] 8 8 3 4 5 5 6 5 6 6 1561s [00:52:41.474] .. ..$ : num [1:10] 6 6 8 5 6 4 9 2 9 6 1561s [00:52:41.474] .. ..$ : num [1:10] 2 5 4 7 4 5 3 11 6 6 1561s [00:52:41.474] .. ..$ : num [1:10] 1 6 8 6 5 3 4 7 5 6 1561s [00:52:41.474] .. ..$ : num [1:10] 8 6 7 3 5 8 9 5 7 5 1561s [00:52:41.474] $ ...future.seeds_ii : NULL 1561s [00:52:41.474] $ ...future.globals.maxSize: NULL 1561s [00:52:41.474] - attr(*, "where")=List of 5 1561s [00:52:41.474] ..$ ...future.FUN : 1561s [00:52:41.474] ..$ MoreArgs : 1561s [00:52:41.474] ..$ ...future.elements_ii : 1561s [00:52:41.474] ..$ ...future.seeds_ii : 1561s [00:52:41.474] ..$ ...future.globals.maxSize: 1561s [00:52:41.474] - attr(*, "resolved")= logi FALSE 1561s [00:52:41.474] - attr(*, "total_size")= num 3176 1561s [00:52:41.474] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1561s [00:52:41.474] - attr(*, "already-done")= logi TRUE 1561s [00:52:41.490] - copied ‘...future.FUN’ to environment 1561s [00:52:41.490] - copied ‘MoreArgs’ to environment 1561s [00:52:41.490] - copied ‘...future.elements_ii’ to environment 1561s [00:52:41.491] - copied ‘...future.seeds_ii’ to environment 1561s [00:52:41.491] - copied ‘...future.globals.maxSize’ to environment 1561s [00:52:41.491] assign_globals() ... done 1561s [00:52:41.491] plan(): Setting new future strategy stack: 1561s [00:52:41.492] List of future strategies: 1561s [00:52:41.492] 1. sequential: 1561s [00:52:41.492] - args: function (..., envir = parent.frame()) 1561s [00:52:41.492] - tweaked: FALSE 1561s [00:52:41.492] - call: NULL 1561s [00:52:41.492] plan(): nbrOfWorkers() = 1 1561s [00:52:41.493] plan(): Setting new future strategy stack: 1561s [00:52:41.493] List of future strategies: 1561s [00:52:41.493] 1. sequential: 1561s [00:52:41.493] - args: function (..., envir = parent.frame()) 1561s [00:52:41.493] - tweaked: FALSE 1561s [00:52:41.493] - call: plan(strategy) 1561s [00:52:41.494] plan(): nbrOfWorkers() = 1 1561s [00:52:41.494] SequentialFuture started (and completed) 1561s [00:52:41.494] - Launch lazy future ... done 1561s [00:52:41.495] run() for ‘SequentialFuture’ ... done 1561s [00:52:41.495] Created future: 1561s [00:52:41.495] SequentialFuture: 1561s [00:52:41.495] Label: ‘future_Map-1’ 1561s [00:52:41.495] Expression: 1561s [00:52:41.495] { 1561s [00:52:41.495] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1561s [00:52:41.495] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1561s [00:52:41.495] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1561s [00:52:41.495] on.exit(options(oopts), add = TRUE) 1561s [00:52:41.495] } 1561s [00:52:41.495] { 1561s [00:52:41.495] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1561s [00:52:41.495] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1561s [00:52:41.495] do.call(mapply, args = args) 1561s [00:52:41.495] } 1561s [00:52:41.495] } 1561s [00:52:41.495] Lazy evaluation: FALSE 1561s [00:52:41.495] Asynchronous evaluation: FALSE 1561s [00:52:41.495] Local evaluation: TRUE 1561s [00:52:41.495] Environment: R_GlobalEnv 1561s [00:52:41.495] Capture standard output: TRUE 1561s [00:52:41.495] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1561s [00:52:41.495] Globals: 5 objects totaling 3.10 KiB (function ‘...future.FUN’ of 1.38 KiB, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 1.72 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1561s [00:52:41.495] Packages: 1 packages (‘stats’) 1561s [00:52:41.495] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1561s [00:52:41.495] Resolved: TRUE 1561s [00:52:41.495] Value: 280 bytes of class ‘list’ 1561s [00:52:41.495] Early signaling: FALSE 1561s [00:52:41.495] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1561s [00:52:41.495] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1561s [00:52:41.496] Chunk #1 of 1 ... DONE 1561s [00:52:41.496] Launching 1 futures (chunks) ... DONE 1561s [00:52:41.497] Resolving 1 futures (chunks) ... 1561s [00:52:41.497] resolve() on list ... 1561s [00:52:41.497] recursive: 0 1561s [00:52:41.497] length: 1 1561s [00:52:41.497] 1561s [00:52:41.497] resolved() for ‘SequentialFuture’ ... 1561s [00:52:41.498] - state: ‘finished’ 1561s [00:52:41.498] - run: TRUE 1561s [00:52:41.498] - result: ‘FutureResult’ 1561s [00:52:41.498] resolved() for ‘SequentialFuture’ ... done 1561s [00:52:41.499] Future #1 1561s [00:52:41.499] signalConditionsASAP(SequentialFuture, pos=1) ... 1561s [00:52:41.499] - nx: 1 1561s [00:52:41.499] - relay: TRUE 1561s [00:52:41.500] - stdout: TRUE 1561s [00:52:41.500] - signal: TRUE 1561s [00:52:41.500] - resignal: FALSE 1561s [00:52:41.500] - force: TRUE 1561s [00:52:41.500] - relayed: [n=1] FALSE 1561s [00:52:41.500] - queued futures: [n=1] FALSE 1561s [00:52:41.500] - until=1 1561s [00:52:41.501] - relaying element #1 1561s [00:52:41.501] - relayed: [n=1] TRUE 1561s [00:52:41.501] - queued futures: [n=1] TRUE 1561s [00:52:41.501] signalConditionsASAP(SequentialFuture, pos=1) ... done 1561s [00:52:41.501] length: 0 (resolved future 1) 1561s [00:52:41.501] Relaying remaining futures 1561s [00:52:41.502] signalConditionsASAP(NULL, pos=0) ... 1561s [00:52:41.502] - nx: 1 1561s [00:52:41.502] - relay: TRUE 1561s [00:52:41.502] - stdout: TRUE 1561s [00:52:41.502] - signal: TRUE 1561s [00:52:41.503] - resignal: FALSE 1561s [00:52:41.503] - force: TRUE 1561s [00:52:41.503] - relayed: [n=1] TRUE 1561s [00:52:41.503] - queued futures: [n=1] TRUE 1561s - flush all 1561s [00:52:41.503] - relayed: [n=1] TRUE 1561s [00:52:41.503] - queued futures: [n=1] TRUE 1561s [00:52:41.504] signalConditionsASAP(NULL, pos=0) ... done 1561s [00:52:41.504] resolve() on list ... DONE 1561s [00:52:41.504] - Number of value chunks collected: 1 1561s [00:52:41.504] Resolving 1 futures (chunks) ... DONE 1561s [00:52:41.504] Reducing values from 1 chunks ... 1561s [00:52:41.505] - Number of values collected after concatenation: 5 1561s [00:52:41.505] - Number of values expected: 5 1561s [00:52:41.505] Reducing values from 1 chunks ... DONE 1561s [00:52:41.505] future_mapply() ... DONE 1561s - future_mapply() - 'max-or-0-if' recycling rule ... 1561s [00:52:41.507] future_mapply() ... 1561s [00:52:41.508] Number of chunks: 1 1561s [00:52:41.508] getGlobalsAndPackagesXApply() ... 1561s [00:52:41.508] - future.globals: TRUE 1561s [00:52:41.508] getGlobalsAndPackages() ... 1561s [00:52:41.508] Searching for globals... 1561s [00:52:41.509] - globals found: [1] ‘FUN’ 1561s [00:52:41.509] Searching for globals ... DONE 1561s [00:52:41.510] Resolving globals: FALSE 1561s [00:52:41.510] The total size of the 1 globals is 56 bytes (56 bytes) 1561s [00:52:41.511] The total size of the 1 globals exported for future expression (‘FUN()’) is 56 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (56 bytes of class ‘function’) 1561s [00:52:41.511] - globals: [1] ‘FUN’ 1561s [00:52:41.511] 1561s [00:52:41.511] getGlobalsAndPackages() ... DONE 1561s [00:52:41.511] - globals found/used: [n=1] ‘FUN’ 1561s [00:52:41.511] - needed namespaces: [n=0] 1561s [00:52:41.512] Finding globals ... DONE 1561s [00:52:41.512] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1561s [00:52:41.512] List of 2 1561s [00:52:41.512] $ ...future.FUN:function (e1, e2) 1561s [00:52:41.512] $ MoreArgs : NULL 1561s [00:52:41.512] - attr(*, "where")=List of 2 1561s [00:52:41.512] ..$ ...future.FUN: 1561s [00:52:41.512] ..$ MoreArgs : 1561s [00:52:41.512] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1561s [00:52:41.512] - attr(*, "resolved")= logi FALSE 1561s [00:52:41.512] - attr(*, "total_size")= num NA 1561s [00:52:41.518] Packages to be attached in all futures: [n=0] 1561s [00:52:41.518] getGlobalsAndPackagesXApply() ... DONE 1561s [00:52:41.518] Number of futures (= number of chunks): 1 1561s [00:52:41.519] Launching 1 futures (chunks) ... 1561s [00:52:41.519] Chunk #1 of 1 ... 1561s [00:52:41.519] - Finding globals in '...' for chunk #1 ... 1561s [00:52:41.519] getGlobalsAndPackages() ... 1561s [00:52:41.519] Searching for globals... 1561s [00:52:41.520] 1561s [00:52:41.520] Searching for globals ... DONE 1561s [00:52:41.521] - globals: [0] 1561s [00:52:41.521] getGlobalsAndPackages() ... DONE 1561s [00:52:41.521] + additional globals found: [n=0] 1561s [00:52:41.521] + additional namespaces needed: [n=0] 1561s [00:52:41.522] - Finding globals in '...' for chunk #1 ... DONE 1561s [00:52:41.522] - seeds: 1561s [00:52:41.522] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:41.522] getGlobalsAndPackages() ... 1561s [00:52:41.522] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:41.523] Resolving globals: FALSE 1561s [00:52:41.523] The total size of the 5 globals is 392 bytes (392 bytes) 1561s [00:52:41.524] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 392 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.elements_ii’ (336 bytes of class ‘list’), ‘...future.FUN’ (56 bytes of class ‘function’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1561s [00:52:41.525] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:41.525] 1561s [00:52:41.525] getGlobalsAndPackages() ... DONE 1561s [00:52:41.525] run() for ‘Future’ ... 1561s [00:52:41.525] - state: ‘created’ 1561s [00:52:41.526] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1561s [00:52:41.526] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1561s [00:52:41.526] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1561s [00:52:41.526] - Field: ‘label’ 1561s [00:52:41.526] - Field: ‘local’ 1561s [00:52:41.526] - Field: ‘owner’ 1561s [00:52:41.527] - Field: ‘envir’ 1561s [00:52:41.527] - Field: ‘packages’ 1561s [00:52:41.527] - Field: ‘gc’ 1561s [00:52:41.527] - Field: ‘conditions’ 1561s [00:52:41.527] - Field: ‘expr’ 1561s [00:52:41.527] - Field: ‘uuid’ 1561s [00:52:41.527] - Field: ‘seed’ 1561s [00:52:41.527] - Field: ‘version’ 1561s [00:52:41.528] - Field: ‘result’ 1561s [00:52:41.528] - Field: ‘asynchronous’ 1561s [00:52:41.528] - Field: ‘calls’ 1561s [00:52:41.528] - Field: ‘globals’ 1561s [00:52:41.528] - Field: ‘stdout’ 1561s [00:52:41.528] - Field: ‘earlySignal’ 1561s [00:52:41.528] - Field: ‘lazy’ 1561s [00:52:41.528] - Field: ‘state’ 1561s [00:52:41.528] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1561s [00:52:41.529] - Launch lazy future ... 1561s [00:52:41.529] Packages needed by the future expression (n = 0): 1561s [00:52:41.529] Packages needed by future strategies (n = 0): 1561s [00:52:41.530] { 1561s [00:52:41.530] { 1561s [00:52:41.530] { 1561s [00:52:41.530] ...future.startTime <- base::Sys.time() 1561s [00:52:41.530] { 1561s [00:52:41.530] { 1561s [00:52:41.530] { 1561s [00:52:41.530] base::local({ 1561s [00:52:41.530] has_future <- base::requireNamespace("future", 1561s [00:52:41.530] quietly = TRUE) 1561s [00:52:41.530] if (has_future) { 1561s [00:52:41.530] ns <- base::getNamespace("future") 1561s [00:52:41.530] version <- ns[[".package"]][["version"]] 1561s [00:52:41.530] if (is.null(version)) 1561s [00:52:41.530] version <- utils::packageVersion("future") 1561s [00:52:41.530] } 1561s [00:52:41.530] else { 1561s [00:52:41.530] version <- NULL 1561s [00:52:41.530] } 1561s [00:52:41.530] if (!has_future || version < "1.8.0") { 1561s [00:52:41.530] info <- base::c(r_version = base::gsub("R version ", 1561s [00:52:41.530] "", base::R.version$version.string), 1561s [00:52:41.530] platform = base::sprintf("%s (%s-bit)", 1561s [00:52:41.530] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1561s [00:52:41.530] os = base::paste(base::Sys.info()[base::c("sysname", 1561s [00:52:41.530] "release", "version")], collapse = " "), 1561s [00:52:41.530] hostname = base::Sys.info()[["nodename"]]) 1561s [00:52:41.530] info <- base::sprintf("%s: %s", base::names(info), 1561s [00:52:41.530] info) 1561s [00:52:41.530] info <- base::paste(info, collapse = "; ") 1561s [00:52:41.530] if (!has_future) { 1561s [00:52:41.530] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1561s [00:52:41.530] info) 1561s [00:52:41.530] } 1561s [00:52:41.530] else { 1561s [00:52:41.530] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1561s [00:52:41.530] info, version) 1561s [00:52:41.530] } 1561s [00:52:41.530] base::stop(msg) 1561s [00:52:41.530] } 1561s [00:52:41.530] }) 1561s [00:52:41.530] } 1561s [00:52:41.530] options(future.plan = NULL) 1561s [00:52:41.530] Sys.unsetenv("R_FUTURE_PLAN") 1561s [00:52:41.530] future::plan("default", .cleanup = FALSE, .init = FALSE) 1561s [00:52:41.530] } 1561s [00:52:41.530] ...future.workdir <- getwd() 1561s [00:52:41.530] } 1561s [00:52:41.530] ...future.oldOptions <- base::as.list(base::.Options) 1561s [00:52:41.530] ...future.oldEnvVars <- base::Sys.getenv() 1561s [00:52:41.530] } 1561s [00:52:41.530] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1561s [00:52:41.530] future.globals.maxSize = NULL, future.globals.method = NULL, 1561s [00:52:41.530] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1561s [00:52:41.530] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1561s [00:52:41.530] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1561s [00:52:41.530] future.stdout.windows.reencode = NULL, width = 80L) 1561s [00:52:41.530] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1561s [00:52:41.530] base::names(...future.oldOptions)) 1561s [00:52:41.530] } 1561s [00:52:41.530] if (FALSE) { 1561s [00:52:41.530] } 1561s [00:52:41.530] else { 1561s [00:52:41.530] if (TRUE) { 1561s [00:52:41.530] ...future.stdout <- base::rawConnection(base::raw(0L), 1561s [00:52:41.530] open = "w") 1561s [00:52:41.530] } 1561s [00:52:41.530] else { 1561s [00:52:41.530] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1561s [00:52:41.530] windows = "NUL", "/dev/null"), open = "w") 1561s [00:52:41.530] } 1561s [00:52:41.530] base::sink(...future.stdout, type = "output", split = FALSE) 1561s [00:52:41.530] base::on.exit(if (!base::is.null(...future.stdout)) { 1561s [00:52:41.530] base::sink(type = "output", split = FALSE) 1561s [00:52:41.530] base::close(...future.stdout) 1561s [00:52:41.530] }, add = TRUE) 1561s [00:52:41.530] } 1561s [00:52:41.530] ...future.frame <- base::sys.nframe() 1561s [00:52:41.530] ...future.conditions <- base::list() 1561s [00:52:41.530] ...future.rng <- base::globalenv()$.Random.seed 1561s [00:52:41.530] if (FALSE) { 1561s [00:52:41.530] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1561s [00:52:41.530] "...future.value", "...future.globalenv.names", ".Random.seed") 1561s [00:52:41.530] } 1561s [00:52:41.530] ...future.result <- base::tryCatch({ 1561s [00:52:41.530] base::withCallingHandlers({ 1561s [00:52:41.530] ...future.value <- base::withVisible(base::local({ 1561s [00:52:41.530] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1561s [00:52:41.530] if (!identical(...future.globals.maxSize.org, 1561s [00:52:41.530] ...future.globals.maxSize)) { 1561s [00:52:41.530] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1561s [00:52:41.530] on.exit(options(oopts), add = TRUE) 1561s [00:52:41.530] } 1561s [00:52:41.530] { 1561s [00:52:41.530] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1561s [00:52:41.530] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1561s [00:52:41.530] USE.NAMES = FALSE) 1561s [00:52:41.530] do.call(mapply, args = args) 1561s [00:52:41.530] } 1561s [00:52:41.530] })) 1561s [00:52:41.530] future::FutureResult(value = ...future.value$value, 1561s [00:52:41.530] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1561s [00:52:41.530] ...future.rng), globalenv = if (FALSE) 1561s [00:52:41.530] list(added = base::setdiff(base::names(base::.GlobalEnv), 1561s [00:52:41.530] ...future.globalenv.names)) 1561s [00:52:41.530] else NULL, started = ...future.startTime, version = "1.8") 1561s [00:52:41.530] }, condition = base::local({ 1561s [00:52:41.530] c <- base::c 1561s [00:52:41.530] inherits <- base::inherits 1561s [00:52:41.530] invokeRestart <- base::invokeRestart 1561s [00:52:41.530] length <- base::length 1561s [00:52:41.530] list <- base::list 1561s [00:52:41.530] seq.int <- base::seq.int 1561s [00:52:41.530] signalCondition <- base::signalCondition 1561s [00:52:41.530] sys.calls <- base::sys.calls 1561s [00:52:41.530] `[[` <- base::`[[` 1561s [00:52:41.530] `+` <- base::`+` 1561s [00:52:41.530] `<<-` <- base::`<<-` 1561s [00:52:41.530] sysCalls <- function(calls = sys.calls(), from = 1L) { 1561s [00:52:41.530] calls[seq.int(from = from + 12L, to = length(calls) - 1561s [00:52:41.530] 3L)] 1561s [00:52:41.530] } 1561s [00:52:41.530] function(cond) { 1561s [00:52:41.530] is_error <- inherits(cond, "error") 1561s [00:52:41.530] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1561s [00:52:41.530] NULL) 1561s [00:52:41.530] if (is_error) { 1561s [00:52:41.530] sessionInformation <- function() { 1561s [00:52:41.530] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1561s [00:52:41.530] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1561s [00:52:41.530] search = base::search(), system = base::Sys.info()) 1561s [00:52:41.530] } 1561s [00:52:41.530] ...future.conditions[[length(...future.conditions) + 1561s [00:52:41.530] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1561s [00:52:41.530] cond$call), session = sessionInformation(), 1561s [00:52:41.530] timestamp = base::Sys.time(), signaled = 0L) 1561s [00:52:41.530] signalCondition(cond) 1561s [00:52:41.530] } 1561s [00:52:41.530] else if (!ignore && TRUE && inherits(cond, c("condition", 1561s [00:52:41.530] "immediateCondition"))) { 1561s [00:52:41.530] signal <- TRUE && inherits(cond, "immediateCondition") 1561s [00:52:41.530] ...future.conditions[[length(...future.conditions) + 1561s [00:52:41.530] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1561s [00:52:41.530] if (TRUE && !signal) { 1561s [00:52:41.530] muffleCondition <- function (cond, pattern = "^muffle") 1561s [00:52:41.530] { 1561s [00:52:41.530] inherits <- base::inherits 1561s [00:52:41.530] invokeRestart <- base::invokeRestart 1561s [00:52:41.530] is.null <- base::is.null 1561s [00:52:41.530] muffled <- FALSE 1561s [00:52:41.530] if (inherits(cond, "message")) { 1561s [00:52:41.530] muffled <- grepl(pattern, "muffleMessage") 1561s [00:52:41.530] if (muffled) 1561s [00:52:41.530] invokeRestart("muffleMessage") 1561s [00:52:41.530] } 1561s [00:52:41.530] else if (inherits(cond, "warning")) { 1561s [00:52:41.530] muffled <- grepl(pattern, "muffleWarning") 1561s [00:52:41.530] if (muffled) 1561s [00:52:41.530] invokeRestart("muffleWarning") 1561s [00:52:41.530] } 1561s [00:52:41.530] else if (inherits(cond, "condition")) { 1561s [00:52:41.530] if (!is.null(pattern)) { 1561s [00:52:41.530] computeRestarts <- base::computeRestarts 1561s [00:52:41.530] grepl <- base::grepl 1561s [00:52:41.530] restarts <- computeRestarts(cond) 1561s [00:52:41.530] for (restart in restarts) { 1561s [00:52:41.530] name <- restart$name 1561s [00:52:41.530] if (is.null(name)) 1561s [00:52:41.530] next 1561s [00:52:41.530] if (!grepl(pattern, name)) 1561s [00:52:41.530] next 1561s [00:52:41.530] invokeRestart(restart) 1561s [00:52:41.530] muffled <- TRUE 1561s [00:52:41.530] break 1561s [00:52:41.530] } 1561s [00:52:41.530] } 1561s [00:52:41.530] } 1561s [00:52:41.530] invisible(muffled) 1561s [00:52:41.530] } 1561s [00:52:41.530] muffleCondition(cond, pattern = "^muffle") 1561s [00:52:41.530] } 1561s [00:52:41.530] } 1561s [00:52:41.530] else { 1561s [00:52:41.530] if (TRUE) { 1561s [00:52:41.530] muffleCondition <- function (cond, pattern = "^muffle") 1561s [00:52:41.530] { 1561s [00:52:41.530] inherits <- base::inherits 1561s [00:52:41.530] invokeRestart <- base::invokeRestart 1561s [00:52:41.530] is.null <- base::is.null 1561s [00:52:41.530] muffled <- FALSE 1561s [00:52:41.530] if (inherits(cond, "message")) { 1561s [00:52:41.530] muffled <- grepl(pattern, "muffleMessage") 1561s [00:52:41.530] if (muffled) 1561s [00:52:41.530] invokeRestart("muffleMessage") 1561s [00:52:41.530] } 1561s [00:52:41.530] else if (inherits(cond, "warning")) { 1561s [00:52:41.530] muffled <- grepl(pattern, "muffleWarning") 1561s [00:52:41.530] if (muffled) 1561s [00:52:41.530] invokeRestart("muffleWarning") 1561s [00:52:41.530] } 1561s [00:52:41.530] else if (inherits(cond, "condition")) { 1561s [00:52:41.530] if (!is.null(pattern)) { 1561s [00:52:41.530] computeRestarts <- base::computeRestarts 1561s [00:52:41.530] grepl <- base::grepl 1561s [00:52:41.530] restarts <- computeRestarts(cond) 1561s [00:52:41.530] for (restart in restarts) { 1561s [00:52:41.530] name <- restart$name 1561s [00:52:41.530] if (is.null(name)) 1561s [00:52:41.530] next 1561s [00:52:41.530] if (!grepl(pattern, name)) 1561s [00:52:41.530] next 1561s [00:52:41.530] invokeRestart(restart) 1561s [00:52:41.530] muffled <- TRUE 1561s [00:52:41.530] break 1561s [00:52:41.530] } 1561s [00:52:41.530] } 1561s [00:52:41.530] } 1561s [00:52:41.530] invisible(muffled) 1561s [00:52:41.530] } 1561s [00:52:41.530] muffleCondition(cond, pattern = "^muffle") 1561s [00:52:41.530] } 1561s [00:52:41.530] } 1561s [00:52:41.530] } 1561s [00:52:41.530] })) 1561s [00:52:41.530] }, error = function(ex) { 1561s [00:52:41.530] base::structure(base::list(value = NULL, visible = NULL, 1561s [00:52:41.530] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1561s [00:52:41.530] ...future.rng), started = ...future.startTime, 1561s [00:52:41.530] finished = Sys.time(), session_uuid = NA_character_, 1561s [00:52:41.530] version = "1.8"), class = "FutureResult") 1561s [00:52:41.530] }, finally = { 1561s [00:52:41.530] if (!identical(...future.workdir, getwd())) 1561s [00:52:41.530] setwd(...future.workdir) 1561s [00:52:41.530] { 1561s [00:52:41.530] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1561s [00:52:41.530] ...future.oldOptions$nwarnings <- NULL 1561s [00:52:41.530] } 1561s [00:52:41.530] base::options(...future.oldOptions) 1561s [00:52:41.530] if (.Platform$OS.type == "windows") { 1561s [00:52:41.530] old_names <- names(...future.oldEnvVars) 1561s [00:52:41.530] envs <- base::Sys.getenv() 1561s [00:52:41.530] names <- names(envs) 1561s [00:52:41.530] common <- intersect(names, old_names) 1561s [00:52:41.530] added <- setdiff(names, old_names) 1561s [00:52:41.530] removed <- setdiff(old_names, names) 1561s [00:52:41.530] changed <- common[...future.oldEnvVars[common] != 1561s [00:52:41.530] envs[common]] 1561s [00:52:41.530] NAMES <- toupper(changed) 1561s [00:52:41.530] args <- list() 1561s [00:52:41.530] for (kk in seq_along(NAMES)) { 1561s [00:52:41.530] name <- changed[[kk]] 1561s [00:52:41.530] NAME <- NAMES[[kk]] 1561s [00:52:41.530] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:41.530] next 1561s [00:52:41.530] args[[name]] <- ...future.oldEnvVars[[name]] 1561s [00:52:41.530] } 1561s [00:52:41.530] NAMES <- toupper(added) 1561s [00:52:41.530] for (kk in seq_along(NAMES)) { 1561s [00:52:41.530] name <- added[[kk]] 1561s [00:52:41.530] NAME <- NAMES[[kk]] 1561s [00:52:41.530] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:41.530] next 1561s [00:52:41.530] args[[name]] <- "" 1561s [00:52:41.530] } 1561s [00:52:41.530] NAMES <- toupper(removed) 1561s [00:52:41.530] for (kk in seq_along(NAMES)) { 1561s [00:52:41.530] name <- removed[[kk]] 1561s [00:52:41.530] NAME <- NAMES[[kk]] 1561s [00:52:41.530] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:41.530] next 1561s [00:52:41.530] args[[name]] <- ...future.oldEnvVars[[name]] 1561s [00:52:41.530] } 1561s [00:52:41.530] if (length(args) > 0) 1561s [00:52:41.530] base::do.call(base::Sys.setenv, args = args) 1561s [00:52:41.530] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1561s [00:52:41.530] } 1561s [00:52:41.530] else { 1561s [00:52:41.530] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1561s [00:52:41.530] } 1561s [00:52:41.530] { 1561s [00:52:41.530] if (base::length(...future.futureOptionsAdded) > 1561s [00:52:41.530] 0L) { 1561s [00:52:41.530] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1561s [00:52:41.530] base::names(opts) <- ...future.futureOptionsAdded 1561s [00:52:41.530] base::options(opts) 1561s [00:52:41.530] } 1561s [00:52:41.530] { 1561s [00:52:41.530] { 1561s [00:52:41.530] base::assign(".Random.seed", c(10407L, 2079749599L, 1561s [00:52:41.530] -1712504007L, 90762767L, 511132818L, -526970845L, 1561s [00:52:41.530] -1057805512L), envir = base::globalenv(), 1561s [00:52:41.530] inherits = FALSE) 1561s [00:52:41.530] NULL 1561s [00:52:41.530] } 1561s [00:52:41.530] options(future.plan = NULL) 1561s [00:52:41.530] if (is.na(NA_character_)) 1561s [00:52:41.530] Sys.unsetenv("R_FUTURE_PLAN") 1561s [00:52:41.530] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1561s [00:52:41.530] future::plan(list(function (..., envir = parent.frame()) 1561s [00:52:41.530] { 1561s [00:52:41.530] future <- SequentialFuture(..., envir = envir) 1561s [00:52:41.530] if (!future$lazy) 1561s [00:52:41.530] future <- run(future) 1561s [00:52:41.530] invisible(future) 1561s [00:52:41.530] }), .cleanup = FALSE, .init = FALSE) 1561s [00:52:41.530] } 1561s [00:52:41.530] } 1561s [00:52:41.530] } 1561s [00:52:41.530] }) 1561s [00:52:41.530] if (TRUE) { 1561s [00:52:41.530] base::sink(type = "output", split = FALSE) 1561s [00:52:41.530] if (TRUE) { 1561s [00:52:41.530] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1561s [00:52:41.530] } 1561s [00:52:41.530] else { 1561s [00:52:41.530] ...future.result["stdout"] <- base::list(NULL) 1561s [00:52:41.530] } 1561s [00:52:41.530] base::close(...future.stdout) 1561s [00:52:41.530] ...future.stdout <- NULL 1561s [00:52:41.530] } 1561s [00:52:41.530] ...future.result$conditions <- ...future.conditions 1561s [00:52:41.530] ...future.result$finished <- base::Sys.time() 1561s [00:52:41.530] ...future.result 1561s [00:52:41.530] } 1561s [00:52:41.533] assign_globals() ... 1561s [00:52:41.533] List of 5 1561s [00:52:41.533] $ ...future.FUN :function (e1, e2) 1561s [00:52:41.533] $ MoreArgs : NULL 1561s [00:52:41.533] $ ...future.elements_ii :List of 2 1561s [00:52:41.533] ..$ :List of 3 1561s [00:52:41.533] .. ..$ : num 1 1561s [00:52:41.533] .. ..$ : num 1 1561s [00:52:41.533] .. ..$ : num 1 1561s [00:52:41.533] ..$ :List of 3 1561s [00:52:41.533] .. ..$ : int 1 1561s [00:52:41.533] .. ..$ : int 2 1561s [00:52:41.533] .. ..$ : int 3 1561s [00:52:41.533] $ ...future.seeds_ii : NULL 1561s [00:52:41.533] $ ...future.globals.maxSize: NULL 1561s [00:52:41.533] - attr(*, "where")=List of 5 1561s [00:52:41.533] ..$ ...future.FUN : 1561s [00:52:41.533] ..$ MoreArgs : 1561s [00:52:41.533] ..$ ...future.elements_ii : 1561s [00:52:41.533] ..$ ...future.seeds_ii : 1561s [00:52:41.533] ..$ ...future.globals.maxSize: 1561s [00:52:41.533] - attr(*, "resolved")= logi FALSE 1561s [00:52:41.533] - attr(*, "total_size")= num 392 1561s [00:52:41.533] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1561s [00:52:41.533] - attr(*, "already-done")= logi TRUE 1561s [00:52:41.543] - copied ‘...future.FUN’ to environment 1561s [00:52:41.544] - copied ‘MoreArgs’ to environment 1561s [00:52:41.544] - copied ‘...future.elements_ii’ to environment 1561s [00:52:41.544] - copied ‘...future.seeds_ii’ to environment 1561s [00:52:41.544] - copied ‘...future.globals.maxSize’ to environment 1561s [00:52:41.545] assign_globals() ... done 1561s [00:52:41.545] plan(): Setting new future strategy stack: 1561s [00:52:41.546] List of future strategies: 1561s [00:52:41.546] 1. sequential: 1561s [00:52:41.546] - args: function (..., envir = parent.frame()) 1561s [00:52:41.546] - tweaked: FALSE 1561s [00:52:41.546] - call: NULL 1561s [00:52:41.546] plan(): nbrOfWorkers() = 1 1561s [00:52:41.547] plan(): Setting new future strategy stack: 1561s [00:52:41.547] List of future strategies: 1561s [00:52:41.547] 1. sequential: 1561s [00:52:41.547] - args: function (..., envir = parent.frame()) 1561s [00:52:41.547] - tweaked: FALSE 1561s [00:52:41.547] - call: plan(strategy) 1561s [00:52:41.548] plan(): nbrOfWorkers() = 1 1561s [00:52:41.548] SequentialFuture started (and completed) 1561s [00:52:41.548] - Launch lazy future ... done 1561s [00:52:41.548] run() for ‘SequentialFuture’ ... done 1561s [00:52:41.549] Created future: 1561s [00:52:41.549] SequentialFuture: 1561s [00:52:41.549] Label: ‘future_Map-1’ 1561s [00:52:41.549] Expression: 1561s [00:52:41.549] { 1561s [00:52:41.549] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1561s [00:52:41.549] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1561s [00:52:41.549] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1561s [00:52:41.549] on.exit(options(oopts), add = TRUE) 1561s [00:52:41.549] } 1561s [00:52:41.549] { 1561s [00:52:41.549] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1561s [00:52:41.549] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1561s [00:52:41.549] do.call(mapply, args = args) 1561s [00:52:41.549] } 1561s [00:52:41.549] } 1561s [00:52:41.549] Lazy evaluation: FALSE 1561s [00:52:41.549] Asynchronous evaluation: FALSE 1561s [00:52:41.549] Local evaluation: TRUE 1561s [00:52:41.549] Environment: R_GlobalEnv 1561s [00:52:41.549] Capture standard output: TRUE 1561s [00:52:41.549] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1561s [00:52:41.549] Globals: 5 objects totaling 392 bytes (function ‘...future.FUN’ of 56 bytes, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1561s [00:52:41.549] Packages: 1561s [00:52:41.549] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1561s [00:52:41.549] Resolved: TRUE 1561s [00:52:41.549] Value: 168 bytes of class ‘list’ 1561s [00:52:41.549] Early signaling: FALSE 1561s [00:52:41.549] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1561s [00:52:41.549] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1561s [00:52:41.551] Chunk #1 of 1 ... DONE 1561s [00:52:41.551] Launching 1 futures (chunks) ... DONE 1561s [00:52:41.552] Resolving 1 futures (chunks) ... 1561s [00:52:41.552] resolve() on list ... 1561s [00:52:41.552] recursive: 0 1561s [00:52:41.552] length: 1 1561s [00:52:41.552] 1561s [00:52:41.552] resolved() for ‘SequentialFuture’ ... 1561s [00:52:41.553] - state: ‘finished’ 1561s [00:52:41.553] - run: TRUE 1561s [00:52:41.553] - result: ‘FutureResult’ 1561s [00:52:41.553] resolved() for ‘SequentialFuture’ ... done 1561s [00:52:41.554] Future #1 1561s [00:52:41.554] signalConditionsASAP(SequentialFuture, pos=1) ... 1561s [00:52:41.554] - nx: 1 1561s [00:52:41.554] - relay: TRUE 1561s [00:52:41.554] - stdout: TRUE 1561s [00:52:41.554] - signal: TRUE 1561s [00:52:41.555] - resignal: FALSE 1561s [00:52:41.555] - force: TRUE 1561s [00:52:41.555] - relayed: [n=1] FALSE 1561s [00:52:41.555] - queued futures: [n=1] FALSE 1561s [00:52:41.555] - until=1 1561s [00:52:41.556] - relaying element #1 1561s [00:52:41.558] - relayed: [n=1] TRUE 1561s [00:52:41.558] - queued futures: [n=1] TRUE 1561s [00:52:41.558] signalConditionsASAP(SequentialFuture, pos=1) ... done 1561s [00:52:41.558] length: 0 (resolved future 1) 1561s [00:52:41.558] Relaying remaining futures 1561s [00:52:41.559] signalConditionsASAP(NULL, pos=0) ... 1561s [00:52:41.559] - nx: 1 1561s [00:52:41.559] - relay: TRUE 1561s [00:52:41.559] - stdout: TRUE 1561s [00:52:41.559] - signal: TRUE 1561s [00:52:41.559] - resignal: FALSE 1561s [00:52:41.560] - force: TRUE 1561s [00:52:41.560] - relayed: [n=1] TRUE 1561s [00:52:41.560] - queued futures: [n=1] TRUE 1561s - flush all 1561s [00:52:41.560] - relayed: [n=1] TRUE 1561s [00:52:41.560] - queued futures: [n=1] TRUE 1561s [00:52:41.560] signalConditionsASAP(NULL, pos=0) ... done 1561s [00:52:41.561] resolve() on list ... DONE 1561s [00:52:41.561] - Number of value chunks collected: 1 1561s [00:52:41.561] Resolving 1 futures (chunks) ... DONE 1561s [00:52:41.561] Reducing values from 1 chunks ... 1561s [00:52:41.561] - Number of values collected after concatenation: 3 1561s [00:52:41.561] - Number of values expected: 3 1561s [00:52:41.562] Reducing values from 1 chunks ... DONE 1561s [00:52:41.562] future_mapply() ... DONE 1561s - future_mapply(x, ...) where x[[i]] subsets via S3 method ... 1561s [00:52:41.562] future_mapply() ... 1561s [00:52:41.563] Number of chunks: 1 1561s [00:52:41.563] getGlobalsAndPackagesXApply() ... 1561s [00:52:41.563] - future.globals: TRUE 1561s [00:52:41.563] getGlobalsAndPackages() ... 1561s [00:52:41.564] Searching for globals... 1561s [00:52:41.565] - globals found: [1] ‘FUN’ 1561s [00:52:41.565] Searching for globals ... DONE 1561s [00:52:41.565] Resolving globals: FALSE 1561s [00:52:41.566] The total size of the 1 globals is 848 bytes (848 bytes) 1561s [00:52:41.566] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1561s [00:52:41.566] - globals: [1] ‘FUN’ 1561s [00:52:41.567] 1561s [00:52:41.567] getGlobalsAndPackages() ... DONE 1561s [00:52:41.567] - globals found/used: [n=1] ‘FUN’ 1561s [00:52:41.567] - needed namespaces: [n=0] 1561s [00:52:41.567] Finding globals ... DONE 1561s [00:52:41.568] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1561s [00:52:41.568] List of 2 1561s [00:52:41.568] $ ...future.FUN:function (x) 1561s [00:52:41.568] $ MoreArgs : NULL 1561s [00:52:41.568] - attr(*, "where")=List of 2 1561s [00:52:41.568] ..$ ...future.FUN: 1561s [00:52:41.568] ..$ MoreArgs : 1561s [00:52:41.568] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1561s [00:52:41.568] - attr(*, "resolved")= logi FALSE 1561s [00:52:41.568] - attr(*, "total_size")= num NA 1561s [00:52:41.571] Packages to be attached in all futures: [n=0] 1561s [00:52:41.572] getGlobalsAndPackagesXApply() ... DONE 1561s [00:52:41.572] Number of futures (= number of chunks): 1 1561s [00:52:41.572] Launching 1 futures (chunks) ... 1561s [00:52:41.572] Chunk #1 of 1 ... 1561s [00:52:41.572] - Finding globals in '...' for chunk #1 ... 1561s [00:52:41.572] getGlobalsAndPackages() ... 1561s [00:52:41.572] Searching for globals... 1561s [00:52:41.573] 1561s [00:52:41.573] Searching for globals ... DONE 1561s [00:52:41.573] - globals: [0] 1561s [00:52:41.573] getGlobalsAndPackages() ... DONE 1561s [00:52:41.573] + additional globals found: [n=0] 1561s [00:52:41.574] + additional namespaces needed: [n=0] 1561s [00:52:41.574] - Finding globals in '...' for chunk #1 ... DONE 1561s [00:52:41.574] - seeds: 1561s [00:52:41.574] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:41.574] getGlobalsAndPackages() ... 1561s [00:52:41.574] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:41.574] Resolving globals: FALSE 1561s [00:52:41.575] The total size of the 5 globals is 960 bytes (960 bytes) 1561s [00:52:41.576] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 960 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (848 bytes of class ‘function’), ‘...future.elements_ii’ (112 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1561s [00:52:41.576] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:41.576] 1561s [00:52:41.577] getGlobalsAndPackages() ... DONE 1561s [00:52:41.577] run() for ‘Future’ ... 1561s [00:52:41.577] - state: ‘created’ 1561s [00:52:41.577] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1561s [00:52:41.577] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1561s [00:52:41.578] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1561s [00:52:41.578] - Field: ‘label’ 1561s [00:52:41.578] - Field: ‘local’ 1561s [00:52:41.579] - Field: ‘owner’ 1561s [00:52:41.579] - Field: ‘envir’ 1561s [00:52:41.579] - Field: ‘packages’ 1561s [00:52:41.579] - Field: ‘gc’ 1561s [00:52:41.579] - Field: ‘conditions’ 1561s [00:52:41.579] - Field: ‘expr’ 1561s [00:52:41.580] - Field: ‘uuid’ 1561s [00:52:41.580] - Field: ‘seed’ 1561s [00:52:41.580] - Field: ‘version’ 1561s [00:52:41.580] - Field: ‘result’ 1561s [00:52:41.580] - Field: ‘asynchronous’ 1561s [00:52:41.581] - Field: ‘calls’ 1561s [00:52:41.581] - Field: ‘globals’ 1561s [00:52:41.581] - Field: ‘stdout’ 1561s [00:52:41.581] - Field: ‘earlySignal’ 1561s [00:52:41.581] - Field: ‘lazy’ 1561s [00:52:41.582] - Field: ‘state’ 1561s [00:52:41.582] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1561s [00:52:41.582] - Launch lazy future ... 1561s [00:52:41.582] Packages needed by the future expression (n = 0): 1561s [00:52:41.583] Packages needed by future strategies (n = 0): 1561s [00:52:41.583] { 1561s [00:52:41.583] { 1561s [00:52:41.583] { 1561s [00:52:41.583] ...future.startTime <- base::Sys.time() 1561s [00:52:41.583] { 1561s [00:52:41.583] { 1561s [00:52:41.583] { 1561s [00:52:41.583] base::local({ 1561s [00:52:41.583] has_future <- base::requireNamespace("future", 1561s [00:52:41.583] quietly = TRUE) 1561s [00:52:41.583] if (has_future) { 1561s [00:52:41.583] ns <- base::getNamespace("future") 1561s [00:52:41.583] version <- ns[[".package"]][["version"]] 1561s [00:52:41.583] if (is.null(version)) 1561s [00:52:41.583] version <- utils::packageVersion("future") 1561s [00:52:41.583] } 1561s [00:52:41.583] else { 1561s [00:52:41.583] version <- NULL 1561s [00:52:41.583] } 1561s [00:52:41.583] if (!has_future || version < "1.8.0") { 1561s [00:52:41.583] info <- base::c(r_version = base::gsub("R version ", 1561s [00:52:41.583] "", base::R.version$version.string), 1561s [00:52:41.583] platform = base::sprintf("%s (%s-bit)", 1561s [00:52:41.583] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1561s [00:52:41.583] os = base::paste(base::Sys.info()[base::c("sysname", 1561s [00:52:41.583] "release", "version")], collapse = " "), 1561s [00:52:41.583] hostname = base::Sys.info()[["nodename"]]) 1561s [00:52:41.583] info <- base::sprintf("%s: %s", base::names(info), 1561s [00:52:41.583] info) 1561s [00:52:41.583] info <- base::paste(info, collapse = "; ") 1561s [00:52:41.583] if (!has_future) { 1561s [00:52:41.583] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1561s [00:52:41.583] info) 1561s [00:52:41.583] } 1561s [00:52:41.583] else { 1561s [00:52:41.583] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1561s [00:52:41.583] info, version) 1561s [00:52:41.583] } 1561s [00:52:41.583] base::stop(msg) 1561s [00:52:41.583] } 1561s [00:52:41.583] }) 1561s [00:52:41.583] } 1561s [00:52:41.583] options(future.plan = NULL) 1561s [00:52:41.583] Sys.unsetenv("R_FUTURE_PLAN") 1561s [00:52:41.583] future::plan("default", .cleanup = FALSE, .init = FALSE) 1561s [00:52:41.583] } 1561s [00:52:41.583] ...future.workdir <- getwd() 1561s [00:52:41.583] } 1561s [00:52:41.583] ...future.oldOptions <- base::as.list(base::.Options) 1561s [00:52:41.583] ...future.oldEnvVars <- base::Sys.getenv() 1561s [00:52:41.583] } 1561s [00:52:41.583] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1561s [00:52:41.583] future.globals.maxSize = NULL, future.globals.method = NULL, 1561s [00:52:41.583] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1561s [00:52:41.583] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1561s [00:52:41.583] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1561s [00:52:41.583] future.stdout.windows.reencode = NULL, width = 80L) 1561s [00:52:41.583] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1561s [00:52:41.583] base::names(...future.oldOptions)) 1561s [00:52:41.583] } 1561s [00:52:41.583] if (FALSE) { 1561s [00:52:41.583] } 1561s [00:52:41.583] else { 1561s [00:52:41.583] if (TRUE) { 1561s [00:52:41.583] ...future.stdout <- base::rawConnection(base::raw(0L), 1561s [00:52:41.583] open = "w") 1561s [00:52:41.583] } 1561s [00:52:41.583] else { 1561s [00:52:41.583] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1561s [00:52:41.583] windows = "NUL", "/dev/null"), open = "w") 1561s [00:52:41.583] } 1561s [00:52:41.583] base::sink(...future.stdout, type = "output", split = FALSE) 1561s [00:52:41.583] base::on.exit(if (!base::is.null(...future.stdout)) { 1561s [00:52:41.583] base::sink(type = "output", split = FALSE) 1561s [00:52:41.583] base::close(...future.stdout) 1561s [00:52:41.583] }, add = TRUE) 1561s [00:52:41.583] } 1561s [00:52:41.583] ...future.frame <- base::sys.nframe() 1561s [00:52:41.583] ...future.conditions <- base::list() 1561s [00:52:41.583] ...future.rng <- base::globalenv()$.Random.seed 1561s [00:52:41.583] if (FALSE) { 1561s [00:52:41.583] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1561s [00:52:41.583] "...future.value", "...future.globalenv.names", ".Random.seed") 1561s [00:52:41.583] } 1561s [00:52:41.583] ...future.result <- base::tryCatch({ 1561s [00:52:41.583] base::withCallingHandlers({ 1561s [00:52:41.583] ...future.value <- base::withVisible(base::local({ 1561s [00:52:41.583] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1561s [00:52:41.583] if (!identical(...future.globals.maxSize.org, 1561s [00:52:41.583] ...future.globals.maxSize)) { 1561s [00:52:41.583] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1561s [00:52:41.583] on.exit(options(oopts), add = TRUE) 1561s [00:52:41.583] } 1561s [00:52:41.583] { 1561s [00:52:41.583] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1561s [00:52:41.583] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1561s [00:52:41.583] USE.NAMES = FALSE) 1561s [00:52:41.583] do.call(mapply, args = args) 1561s [00:52:41.583] } 1561s [00:52:41.583] })) 1561s [00:52:41.583] future::FutureResult(value = ...future.value$value, 1561s [00:52:41.583] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1561s [00:52:41.583] ...future.rng), globalenv = if (FALSE) 1561s [00:52:41.583] list(added = base::setdiff(base::names(base::.GlobalEnv), 1561s [00:52:41.583] ...future.globalenv.names)) 1561s [00:52:41.583] else NULL, started = ...future.startTime, version = "1.8") 1561s [00:52:41.583] }, condition = base::local({ 1561s [00:52:41.583] c <- base::c 1561s [00:52:41.583] inherits <- base::inherits 1561s [00:52:41.583] invokeRestart <- base::invokeRestart 1561s [00:52:41.583] length <- base::length 1561s [00:52:41.583] list <- base::list 1561s [00:52:41.583] seq.int <- base::seq.int 1561s [00:52:41.583] signalCondition <- base::signalCondition 1561s [00:52:41.583] sys.calls <- base::sys.calls 1561s [00:52:41.583] `[[` <- base::`[[` 1561s [00:52:41.583] `+` <- base::`+` 1561s [00:52:41.583] `<<-` <- base::`<<-` 1561s [00:52:41.583] sysCalls <- function(calls = sys.calls(), from = 1L) { 1561s [00:52:41.583] calls[seq.int(from = from + 12L, to = length(calls) - 1561s [00:52:41.583] 3L)] 1561s [00:52:41.583] } 1561s [00:52:41.583] function(cond) { 1561s [00:52:41.583] is_error <- inherits(cond, "error") 1561s [00:52:41.583] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1561s [00:52:41.583] NULL) 1561s [00:52:41.583] if (is_error) { 1561s [00:52:41.583] sessionInformation <- function() { 1561s [00:52:41.583] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1561s [00:52:41.583] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1561s [00:52:41.583] search = base::search(), system = base::Sys.info()) 1561s [00:52:41.583] } 1561s [00:52:41.583] ...future.conditions[[length(...future.conditions) + 1561s [00:52:41.583] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1561s [00:52:41.583] cond$call), session = sessionInformation(), 1561s [00:52:41.583] timestamp = base::Sys.time(), signaled = 0L) 1561s [00:52:41.583] signalCondition(cond) 1561s [00:52:41.583] } 1561s [00:52:41.583] else if (!ignore && TRUE && inherits(cond, c("condition", 1561s [00:52:41.583] "immediateCondition"))) { 1561s [00:52:41.583] signal <- TRUE && inherits(cond, "immediateCondition") 1561s [00:52:41.583] ...future.conditions[[length(...future.conditions) + 1561s [00:52:41.583] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1561s [00:52:41.583] if (TRUE && !signal) { 1561s [00:52:41.583] muffleCondition <- function (cond, pattern = "^muffle") 1561s [00:52:41.583] { 1561s [00:52:41.583] inherits <- base::inherits 1561s [00:52:41.583] invokeRestart <- base::invokeRestart 1561s [00:52:41.583] is.null <- base::is.null 1561s [00:52:41.583] muffled <- FALSE 1561s [00:52:41.583] if (inherits(cond, "message")) { 1561s [00:52:41.583] muffled <- grepl(pattern, "muffleMessage") 1561s [00:52:41.583] if (muffled) 1561s [00:52:41.583] invokeRestart("muffleMessage") 1561s [00:52:41.583] } 1561s [00:52:41.583] else if (inherits(cond, "warning")) { 1561s [00:52:41.583] muffled <- grepl(pattern, "muffleWarning") 1561s [00:52:41.583] if (muffled) 1561s [00:52:41.583] invokeRestart("muffleWarning") 1561s [00:52:41.583] } 1561s [00:52:41.583] else if (inherits(cond, "condition")) { 1561s [00:52:41.583] if (!is.null(pattern)) { 1561s [00:52:41.583] computeRestarts <- base::computeRestarts 1561s [00:52:41.583] grepl <- base::grepl 1561s [00:52:41.583] restarts <- computeRestarts(cond) 1561s [00:52:41.583] for (restart in restarts) { 1561s [00:52:41.583] name <- restart$name 1561s [00:52:41.583] if (is.null(name)) 1561s [00:52:41.583] next 1561s [00:52:41.583] if (!grepl(pattern, name)) 1561s [00:52:41.583] next 1561s [00:52:41.583] invokeRestart(restart) 1561s [00:52:41.583] muffled <- TRUE 1561s [00:52:41.583] break 1561s [00:52:41.583] } 1561s [00:52:41.583] } 1561s [00:52:41.583] } 1561s [00:52:41.583] invisible(muffled) 1561s [00:52:41.583] } 1561s [00:52:41.583] muffleCondition(cond, pattern = "^muffle") 1561s [00:52:41.583] } 1561s [00:52:41.583] } 1561s [00:52:41.583] else { 1561s [00:52:41.583] if (TRUE) { 1561s [00:52:41.583] muffleCondition <- function (cond, pattern = "^muffle") 1561s [00:52:41.583] { 1561s [00:52:41.583] inherits <- base::inherits 1561s [00:52:41.583] invokeRestart <- base::invokeRestart 1561s [00:52:41.583] is.null <- base::is.null 1561s [00:52:41.583] muffled <- FALSE 1561s [00:52:41.583] if (inherits(cond, "message")) { 1561s [00:52:41.583] muffled <- grepl(pattern, "muffleMessage") 1561s [00:52:41.583] if (muffled) 1561s [00:52:41.583] invokeRestart("muffleMessage") 1561s [00:52:41.583] } 1561s [00:52:41.583] else if (inherits(cond, "warning")) { 1561s [00:52:41.583] muffled <- grepl(pattern, "muffleWarning") 1561s [00:52:41.583] if (muffled) 1561s [00:52:41.583] invokeRestart("muffleWarning") 1561s [00:52:41.583] } 1561s [00:52:41.583] else if (inherits(cond, "condition")) { 1561s [00:52:41.583] if (!is.null(pattern)) { 1561s [00:52:41.583] computeRestarts <- base::computeRestarts 1561s [00:52:41.583] grepl <- base::grepl 1561s [00:52:41.583] restarts <- computeRestarts(cond) 1561s [00:52:41.583] for (restart in restarts) { 1561s [00:52:41.583] name <- restart$name 1561s [00:52:41.583] if (is.null(name)) 1561s [00:52:41.583] next 1561s [00:52:41.583] if (!grepl(pattern, name)) 1561s [00:52:41.583] next 1561s [00:52:41.583] invokeRestart(restart) 1561s [00:52:41.583] muffled <- TRUE 1561s [00:52:41.583] break 1561s [00:52:41.583] } 1561s [00:52:41.583] } 1561s [00:52:41.583] } 1561s [00:52:41.583] invisible(muffled) 1561s [00:52:41.583] } 1561s [00:52:41.583] muffleCondition(cond, pattern = "^muffle") 1561s [00:52:41.583] } 1561s [00:52:41.583] } 1561s [00:52:41.583] } 1561s [00:52:41.583] })) 1561s [00:52:41.583] }, error = function(ex) { 1561s [00:52:41.583] base::structure(base::list(value = NULL, visible = NULL, 1561s [00:52:41.583] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1561s [00:52:41.583] ...future.rng), started = ...future.startTime, 1561s [00:52:41.583] finished = Sys.time(), session_uuid = NA_character_, 1561s [00:52:41.583] version = "1.8"), class = "FutureResult") 1561s [00:52:41.583] }, finally = { 1561s [00:52:41.583] if (!identical(...future.workdir, getwd())) 1561s [00:52:41.583] setwd(...future.workdir) 1561s [00:52:41.583] { 1561s [00:52:41.583] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1561s [00:52:41.583] ...future.oldOptions$nwarnings <- NULL 1561s [00:52:41.583] } 1561s [00:52:41.583] base::options(...future.oldOptions) 1561s [00:52:41.583] if (.Platform$OS.type == "windows") { 1561s [00:52:41.583] old_names <- names(...future.oldEnvVars) 1561s [00:52:41.583] envs <- base::Sys.getenv() 1561s [00:52:41.583] names <- names(envs) 1561s [00:52:41.583] common <- intersect(names, old_names) 1561s [00:52:41.583] added <- setdiff(names, old_names) 1561s [00:52:41.583] removed <- setdiff(old_names, names) 1561s [00:52:41.583] changed <- common[...future.oldEnvVars[common] != 1561s [00:52:41.583] envs[common]] 1561s [00:52:41.583] NAMES <- toupper(changed) 1561s [00:52:41.583] args <- list() 1561s [00:52:41.583] for (kk in seq_along(NAMES)) { 1561s [00:52:41.583] name <- changed[[kk]] 1561s [00:52:41.583] NAME <- NAMES[[kk]] 1561s [00:52:41.583] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:41.583] next 1561s [00:52:41.583] args[[name]] <- ...future.oldEnvVars[[name]] 1561s [00:52:41.583] } 1561s [00:52:41.583] NAMES <- toupper(added) 1561s [00:52:41.583] for (kk in seq_along(NAMES)) { 1561s [00:52:41.583] name <- added[[kk]] 1561s [00:52:41.583] NAME <- NAMES[[kk]] 1561s [00:52:41.583] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:41.583] next 1561s [00:52:41.583] args[[name]] <- "" 1561s [00:52:41.583] } 1561s [00:52:41.583] NAMES <- toupper(removed) 1561s [00:52:41.583] for (kk in seq_along(NAMES)) { 1561s [00:52:41.583] name <- removed[[kk]] 1561s [00:52:41.583] NAME <- NAMES[[kk]] 1561s [00:52:41.583] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:41.583] next 1561s [00:52:41.583] args[[name]] <- ...future.oldEnvVars[[name]] 1561s [00:52:41.583] } 1561s [00:52:41.583] if (length(args) > 0) 1561s [00:52:41.583] base::do.call(base::Sys.setenv, args = args) 1561s [00:52:41.583] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1561s [00:52:41.583] } 1561s [00:52:41.583] else { 1561s [00:52:41.583] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1561s [00:52:41.583] } 1561s [00:52:41.583] { 1561s [00:52:41.583] if (base::length(...future.futureOptionsAdded) > 1561s [00:52:41.583] 0L) { 1561s [00:52:41.583] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1561s [00:52:41.583] base::names(opts) <- ...future.futureOptionsAdded 1561s [00:52:41.583] base::options(opts) 1561s [00:52:41.583] } 1561s [00:52:41.583] { 1561s [00:52:41.583] { 1561s [00:52:41.583] base::assign(".Random.seed", c(10407L, 2079749599L, 1561s [00:52:41.583] -1712504007L, 90762767L, 511132818L, -526970845L, 1561s [00:52:41.583] -1057805512L), envir = base::globalenv(), 1561s [00:52:41.583] inherits = FALSE) 1561s [00:52:41.583] NULL 1561s [00:52:41.583] } 1561s [00:52:41.583] options(future.plan = NULL) 1561s [00:52:41.583] if (is.na(NA_character_)) 1561s [00:52:41.583] Sys.unsetenv("R_FUTURE_PLAN") 1561s [00:52:41.583] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1561s [00:52:41.583] future::plan(list(function (..., envir = parent.frame()) 1561s [00:52:41.583] { 1561s [00:52:41.583] future <- SequentialFuture(..., envir = envir) 1561s [00:52:41.583] if (!future$lazy) 1561s [00:52:41.583] future <- run(future) 1561s [00:52:41.583] invisible(future) 1561s [00:52:41.583] }), .cleanup = FALSE, .init = FALSE) 1561s [00:52:41.583] } 1561s [00:52:41.583] } 1561s [00:52:41.583] } 1561s [00:52:41.583] }) 1561s [00:52:41.583] if (TRUE) { 1561s [00:52:41.583] base::sink(type = "output", split = FALSE) 1561s [00:52:41.583] if (TRUE) { 1561s [00:52:41.583] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1561s [00:52:41.583] } 1561s [00:52:41.583] else { 1561s [00:52:41.583] ...future.result["stdout"] <- base::list(NULL) 1561s [00:52:41.583] } 1561s [00:52:41.583] base::close(...future.stdout) 1561s [00:52:41.583] ...future.stdout <- NULL 1561s [00:52:41.583] } 1561s [00:52:41.583] ...future.result$conditions <- ...future.conditions 1561s [00:52:41.583] ...future.result$finished <- base::Sys.time() 1561s [00:52:41.583] ...future.result 1561s [00:52:41.583] } 1561s [00:52:41.589] assign_globals() ... 1561s [00:52:41.589] List of 5 1561s [00:52:41.589] $ ...future.FUN :function (x) 1561s [00:52:41.589] $ MoreArgs : NULL 1561s [00:52:41.589] $ ...future.elements_ii :List of 1 1561s [00:52:41.589] ..$ :List of 2 1561s [00:52:41.589] .. ..$ a: num 0 1561s [00:52:41.589] .. ..$ b: num 0 1561s [00:52:41.589] $ ...future.seeds_ii : NULL 1561s [00:52:41.589] $ ...future.globals.maxSize: NULL 1561s [00:52:41.589] - attr(*, "where")=List of 5 1561s [00:52:41.589] ..$ ...future.FUN : 1561s [00:52:41.589] ..$ MoreArgs : 1561s [00:52:41.589] ..$ ...future.elements_ii : 1561s [00:52:41.589] ..$ ...future.seeds_ii : 1561s [00:52:41.589] ..$ ...future.globals.maxSize: 1561s [00:52:41.589] - attr(*, "resolved")= logi FALSE 1561s [00:52:41.589] - attr(*, "total_size")= num 960 1561s [00:52:41.589] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1561s [00:52:41.589] - attr(*, "already-done")= logi TRUE 1561s [00:52:41.597] - copied ‘...future.FUN’ to environment 1561s [00:52:41.601] - copied ‘MoreArgs’ to environment 1561s [00:52:41.601] - copied ‘...future.elements_ii’ to environment 1561s [00:52:41.601] - copied ‘...future.seeds_ii’ to environment 1561s [00:52:41.602] - copied ‘...future.globals.maxSize’ to environment 1561s [00:52:41.602] assign_globals() ... done 1561s [00:52:41.602] plan(): Setting new future strategy stack: 1561s [00:52:41.603] List of future strategies: 1561s [00:52:41.603] 1. sequential: 1561s [00:52:41.603] - args: function (..., envir = parent.frame()) 1561s [00:52:41.603] - tweaked: FALSE 1561s [00:52:41.603] - call: NULL 1561s [00:52:41.603] plan(): nbrOfWorkers() = 1 1561s [00:52:41.604] plan(): Setting new future strategy stack: 1561s [00:52:41.605] List of future strategies: 1561s [00:52:41.605] 1. sequential: 1561s [00:52:41.605] - args: function (..., envir = parent.frame()) 1561s [00:52:41.605] - tweaked: FALSE 1561s [00:52:41.605] - call: plan(strategy) 1561s [00:52:41.605] plan(): nbrOfWorkers() = 1 1561s [00:52:41.606] SequentialFuture started (and completed) 1561s [00:52:41.606] - Launch lazy future ... done 1561s [00:52:41.606] run() for ‘SequentialFuture’ ... done 1561s [00:52:41.606] Created future: 1561s [00:52:41.607] SequentialFuture: 1561s [00:52:41.607] Label: ‘future_mapply-1’ 1561s [00:52:41.607] Expression: 1561s [00:52:41.607] { 1561s [00:52:41.607] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1561s [00:52:41.607] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1561s [00:52:41.607] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1561s [00:52:41.607] on.exit(options(oopts), add = TRUE) 1561s [00:52:41.607] } 1561s [00:52:41.607] { 1561s [00:52:41.607] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1561s [00:52:41.607] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1561s [00:52:41.607] do.call(mapply, args = args) 1561s [00:52:41.607] } 1561s [00:52:41.607] } 1561s [00:52:41.607] Lazy evaluation: FALSE 1561s [00:52:41.607] Asynchronous evaluation: FALSE 1561s [00:52:41.607] Local evaluation: TRUE 1561s [00:52:41.607] Environment: R_GlobalEnv 1561s [00:52:41.607] Capture standard output: TRUE 1561s [00:52:41.607] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1561s [00:52:41.607] Globals: 5 objects totaling 960 bytes (function ‘...future.FUN’ of 848 bytes, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1561s [00:52:41.607] Packages: 1561s [00:52:41.607] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1561s [00:52:41.607] Resolved: TRUE 1561s [00:52:41.607] Value: 112 bytes of class ‘list’ 1561s [00:52:41.607] Early signaling: FALSE 1561s [00:52:41.607] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1561s [00:52:41.607] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1561s [00:52:41.609] Chunk #1 of 1 ... DONE 1561s [00:52:41.609] Launching 1 futures (chunks) ... DONE 1561s [00:52:41.609] Resolving 1 futures (chunks) ... 1561s [00:52:41.609] resolve() on list ... 1561s [00:52:41.609] recursive: 0 1561s [00:52:41.610] length: 1 1561s [00:52:41.610] 1561s [00:52:41.610] resolved() for ‘SequentialFuture’ ... 1561s [00:52:41.610] - state: ‘finished’ 1561s [00:52:41.610] - run: TRUE 1561s [00:52:41.610] - result: ‘FutureResult’ 1561s [00:52:41.611] resolved() for ‘SequentialFuture’ ... done 1561s [00:52:41.611] Future #1 1561s [00:52:41.611] signalConditionsASAP(SequentialFuture, pos=1) ... 1561s [00:52:41.611] - nx: 1 1561s [00:52:41.612] - relay: TRUE 1561s [00:52:41.612] - stdout: TRUE 1561s [00:52:41.612] - signal: TRUE 1561s [00:52:41.612] - resignal: FALSE 1561s [00:52:41.612] - force: TRUE 1561s [00:52:41.612] - relayed: [n=1] FALSE 1561s [00:52:41.612] - queued futures: [n=1] FALSE 1561s [00:52:41.613] - until=1 1561s [00:52:41.613] - relaying element #1 1561s [00:52:41.613] - relayed: [n=1] TRUE 1561s [00:52:41.613] - queued futures: [n=1] TRUE 1561s [00:52:41.614] signalConditionsASAP(SequentialFuture, pos=1) ... done 1561s [00:52:41.614] length: 0 (resolved future 1) 1561s [00:52:41.614] Relaying remaining futures 1561s [00:52:41.614] signalConditionsASAP(NULL, pos=0) ... 1561s [00:52:41.615] - nx: 1 1561s [00:52:41.615] - relay: TRUE 1561s [00:52:41.615] - stdout: TRUE 1561s [00:52:41.615] - signal: TRUE 1561s [00:52:41.616] - resignal: FALSE 1561s [00:52:41.616] - force: TRUE 1561s [00:52:41.616] - relayed: [n=1] TRUE 1561s [00:52:41.616] - queued futures: [n=1] TRUE 1561s - flush all 1561s [00:52:41.616] - relayed: [n=1] TRUE 1561s [00:52:41.617] - queued futures: [n=1] TRUE 1561s [00:52:41.617] signalConditionsASAP(NULL, pos=0) ... done 1561s [00:52:41.617] resolve() on list ... DONE 1561s [00:52:41.617] - Number of value chunks collected: 1 1561s [00:52:41.617] Resolving 1 futures (chunks) ... DONE 1561s [00:52:41.618] Reducing values from 1 chunks ... 1561s [00:52:41.618] - Number of values collected after concatenation: 2 1561s [00:52:41.618] - Number of values expected: 2 1561s [00:52:41.618] Reducing values from 1 chunks ... DONE 1561s [00:52:41.619] future_mapply() ... DONE 1561s [00:52:41.619] plan(): Setting new future strategy stack: 1561s [00:52:41.619] List of future strategies: 1561s [00:52:41.619] 1. sequential: 1561s [00:52:41.619] - args: function (..., envir = parent.frame()) 1561s [00:52:41.619] - tweaked: FALSE 1561s [00:52:41.619] - call: plan(sequential) 1561s [00:52:41.620] plan(): nbrOfWorkers() = 1 1561s *** strategy = ‘sequential’ ... done 1561s *** strategy = ‘multicore’ ... 1561s [00:52:41.621] plan(): Setting new future strategy stack: 1561s [00:52:41.621] List of future strategies: 1561s [00:52:41.621] 1. multicore: 1561s [00:52:41.621] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1561s [00:52:41.621] - tweaked: FALSE 1561s [00:52:41.621] - call: plan(strategy) 1561s [00:52:41.627] plan(): nbrOfWorkers() = 1 1561s - From example(mapply) ... 1561s [00:52:41.627] future_mapply() ... 1561s [00:52:41.631] Number of chunks: 1 1561s [00:52:41.631] getGlobalsAndPackagesXApply() ... 1561s [00:52:41.631] - future.globals: TRUE 1561s [00:52:41.632] getGlobalsAndPackages() ... 1561s [00:52:41.632] Searching for globals... 1561s [00:52:41.633] - globals found: [1] ‘FUN’ 1561s [00:52:41.633] Searching for globals ... DONE 1561s [00:52:41.633] Resolving globals: FALSE 1561s [00:52:41.634] The total size of the 1 globals is 56 bytes (56 bytes) 1561s [00:52:41.634] The total size of the 1 globals exported for future expression (‘FUN()’) is 56 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (56 bytes of class ‘function’) 1561s [00:52:41.635] - globals: [1] ‘FUN’ 1561s [00:52:41.635] 1561s [00:52:41.636] getGlobalsAndPackages() ... DONE 1561s [00:52:41.636] - globals found/used: [n=1] ‘FUN’ 1561s [00:52:41.636] - needed namespaces: [n=0] 1561s [00:52:41.637] Finding globals ... DONE 1561s [00:52:41.638] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1561s [00:52:41.638] List of 2 1561s [00:52:41.638] $ ...future.FUN:function (x, ...) 1561s [00:52:41.638] $ MoreArgs : NULL 1561s [00:52:41.638] - attr(*, "where")=List of 2 1561s [00:52:41.638] ..$ ...future.FUN: 1561s [00:52:41.638] ..$ MoreArgs : 1561s [00:52:41.638] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1561s [00:52:41.638] - attr(*, "resolved")= logi FALSE 1561s [00:52:41.638] - attr(*, "total_size")= num NA 1561s [00:52:41.641] Packages to be attached in all futures: [n=0] 1561s [00:52:41.642] getGlobalsAndPackagesXApply() ... DONE 1561s [00:52:41.642] Number of futures (= number of chunks): 1 1561s [00:52:41.642] Launching 1 futures (chunks) ... 1561s [00:52:41.642] Chunk #1 of 1 ... 1561s [00:52:41.643] - Finding globals in '...' for chunk #1 ... 1561s [00:52:41.643] getGlobalsAndPackages() ... 1561s [00:52:41.643] Searching for globals... 1561s [00:52:41.643] 1561s [00:52:41.643] Searching for globals ... DONE 1561s [00:52:41.644] - globals: [0] 1561s [00:52:41.644] getGlobalsAndPackages() ... DONE 1561s [00:52:41.644] + additional globals found: [n=0] 1561s [00:52:41.644] + additional namespaces needed: [n=0] 1561s [00:52:41.645] - Finding globals in '...' for chunk #1 ... DONE 1561s [00:52:41.645] - seeds: 1561s [00:52:41.645] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:41.645] getGlobalsAndPackages() ... 1561s [00:52:41.646] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:41.646] Resolving globals: FALSE 1561s [00:52:41.646] The total size of the 5 globals is 504 bytes (504 bytes) 1561s [00:52:41.647] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 504 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.elements_ii’ (448 bytes of class ‘list’), ‘...future.FUN’ (56 bytes of class ‘function’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1561s [00:52:41.648] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:41.648] 1561s [00:52:41.648] getGlobalsAndPackages() ... DONE 1561s [00:52:41.648] run() for ‘Future’ ... 1561s [00:52:41.648] - state: ‘created’ 1561s [00:52:41.649] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1561s [00:52:41.655] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1561s [00:52:41.655] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1561s [00:52:41.655] - Field: ‘label’ 1561s [00:52:41.656] - Field: ‘local’ 1561s [00:52:41.656] - Field: ‘owner’ 1561s [00:52:41.656] - Field: ‘envir’ 1561s [00:52:41.656] - Field: ‘packages’ 1561s [00:52:41.656] - Field: ‘gc’ 1561s [00:52:41.656] - Field: ‘conditions’ 1561s [00:52:41.657] - Field: ‘expr’ 1561s [00:52:41.657] - Field: ‘uuid’ 1561s [00:52:41.657] - Field: ‘seed’ 1561s [00:52:41.657] - Field: ‘version’ 1561s [00:52:41.657] - Field: ‘result’ 1561s [00:52:41.658] - Field: ‘asynchronous’ 1561s [00:52:41.658] - Field: ‘calls’ 1561s [00:52:41.658] - Field: ‘globals’ 1561s [00:52:41.658] - Field: ‘stdout’ 1561s [00:52:41.658] - Field: ‘earlySignal’ 1561s [00:52:41.658] - Field: ‘lazy’ 1561s [00:52:41.659] - Field: ‘state’ 1561s [00:52:41.659] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1561s [00:52:41.659] - Launch lazy future ... 1561s [00:52:41.659] Packages needed by the future expression (n = 0): 1561s [00:52:41.660] Packages needed by future strategies (n = 0): 1561s [00:52:41.660] { 1561s [00:52:41.660] { 1561s [00:52:41.660] { 1561s [00:52:41.660] ...future.startTime <- base::Sys.time() 1561s [00:52:41.660] { 1561s [00:52:41.660] { 1561s [00:52:41.660] { 1561s [00:52:41.660] base::local({ 1561s [00:52:41.660] has_future <- base::requireNamespace("future", 1561s [00:52:41.660] quietly = TRUE) 1561s [00:52:41.660] if (has_future) { 1561s [00:52:41.660] ns <- base::getNamespace("future") 1561s [00:52:41.660] version <- ns[[".package"]][["version"]] 1561s [00:52:41.660] if (is.null(version)) 1561s [00:52:41.660] version <- utils::packageVersion("future") 1561s [00:52:41.660] } 1561s [00:52:41.660] else { 1561s [00:52:41.660] version <- NULL 1561s [00:52:41.660] } 1561s [00:52:41.660] if (!has_future || version < "1.8.0") { 1561s [00:52:41.660] info <- base::c(r_version = base::gsub("R version ", 1561s [00:52:41.660] "", base::R.version$version.string), 1561s [00:52:41.660] platform = base::sprintf("%s (%s-bit)", 1561s [00:52:41.660] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1561s [00:52:41.660] os = base::paste(base::Sys.info()[base::c("sysname", 1561s [00:52:41.660] "release", "version")], collapse = " "), 1561s [00:52:41.660] hostname = base::Sys.info()[["nodename"]]) 1561s [00:52:41.660] info <- base::sprintf("%s: %s", base::names(info), 1561s [00:52:41.660] info) 1561s [00:52:41.660] info <- base::paste(info, collapse = "; ") 1561s [00:52:41.660] if (!has_future) { 1561s [00:52:41.660] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1561s [00:52:41.660] info) 1561s [00:52:41.660] } 1561s [00:52:41.660] else { 1561s [00:52:41.660] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1561s [00:52:41.660] info, version) 1561s [00:52:41.660] } 1561s [00:52:41.660] base::stop(msg) 1561s [00:52:41.660] } 1561s [00:52:41.660] }) 1561s [00:52:41.660] } 1561s [00:52:41.660] options(future.plan = NULL) 1561s [00:52:41.660] Sys.unsetenv("R_FUTURE_PLAN") 1561s [00:52:41.660] future::plan("default", .cleanup = FALSE, .init = FALSE) 1561s [00:52:41.660] } 1561s [00:52:41.660] ...future.workdir <- getwd() 1561s [00:52:41.660] } 1561s [00:52:41.660] ...future.oldOptions <- base::as.list(base::.Options) 1561s [00:52:41.660] ...future.oldEnvVars <- base::Sys.getenv() 1561s [00:52:41.660] } 1561s [00:52:41.660] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1561s [00:52:41.660] future.globals.maxSize = NULL, future.globals.method = NULL, 1561s [00:52:41.660] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1561s [00:52:41.660] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1561s [00:52:41.660] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1561s [00:52:41.660] future.stdout.windows.reencode = NULL, width = 80L) 1561s [00:52:41.660] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1561s [00:52:41.660] base::names(...future.oldOptions)) 1561s [00:52:41.660] } 1561s [00:52:41.660] if (FALSE) { 1561s [00:52:41.660] } 1561s [00:52:41.660] else { 1561s [00:52:41.660] if (TRUE) { 1561s [00:52:41.660] ...future.stdout <- base::rawConnection(base::raw(0L), 1561s [00:52:41.660] open = "w") 1561s [00:52:41.660] } 1561s [00:52:41.660] else { 1561s [00:52:41.660] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1561s [00:52:41.660] windows = "NUL", "/dev/null"), open = "w") 1561s [00:52:41.660] } 1561s [00:52:41.660] base::sink(...future.stdout, type = "output", split = FALSE) 1561s [00:52:41.660] base::on.exit(if (!base::is.null(...future.stdout)) { 1561s [00:52:41.660] base::sink(type = "output", split = FALSE) 1561s [00:52:41.660] base::close(...future.stdout) 1561s [00:52:41.660] }, add = TRUE) 1561s [00:52:41.660] } 1561s [00:52:41.660] ...future.frame <- base::sys.nframe() 1561s [00:52:41.660] ...future.conditions <- base::list() 1561s [00:52:41.660] ...future.rng <- base::globalenv()$.Random.seed 1561s [00:52:41.660] if (FALSE) { 1561s [00:52:41.660] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1561s [00:52:41.660] "...future.value", "...future.globalenv.names", ".Random.seed") 1561s [00:52:41.660] } 1561s [00:52:41.660] ...future.result <- base::tryCatch({ 1561s [00:52:41.660] base::withCallingHandlers({ 1561s [00:52:41.660] ...future.value <- base::withVisible(base::local({ 1561s [00:52:41.660] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1561s [00:52:41.660] if (!identical(...future.globals.maxSize.org, 1561s [00:52:41.660] ...future.globals.maxSize)) { 1561s [00:52:41.660] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1561s [00:52:41.660] on.exit(options(oopts), add = TRUE) 1561s [00:52:41.660] } 1561s [00:52:41.660] { 1561s [00:52:41.660] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1561s [00:52:41.660] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1561s [00:52:41.660] USE.NAMES = FALSE) 1561s [00:52:41.660] do.call(mapply, args = args) 1561s [00:52:41.660] } 1561s [00:52:41.660] })) 1561s [00:52:41.660] future::FutureResult(value = ...future.value$value, 1561s [00:52:41.660] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1561s [00:52:41.660] ...future.rng), globalenv = if (FALSE) 1561s [00:52:41.660] list(added = base::setdiff(base::names(base::.GlobalEnv), 1561s [00:52:41.660] ...future.globalenv.names)) 1561s [00:52:41.660] else NULL, started = ...future.startTime, version = "1.8") 1561s [00:52:41.660] }, condition = base::local({ 1561s [00:52:41.660] c <- base::c 1561s [00:52:41.660] inherits <- base::inherits 1561s [00:52:41.660] invokeRestart <- base::invokeRestart 1561s [00:52:41.660] length <- base::length 1561s [00:52:41.660] list <- base::list 1561s [00:52:41.660] seq.int <- base::seq.int 1561s [00:52:41.660] signalCondition <- base::signalCondition 1561s [00:52:41.660] sys.calls <- base::sys.calls 1561s [00:52:41.660] `[[` <- base::`[[` 1561s [00:52:41.660] `+` <- base::`+` 1561s [00:52:41.660] `<<-` <- base::`<<-` 1561s [00:52:41.660] sysCalls <- function(calls = sys.calls(), from = 1L) { 1561s [00:52:41.660] calls[seq.int(from = from + 12L, to = length(calls) - 1561s [00:52:41.660] 3L)] 1561s [00:52:41.660] } 1561s [00:52:41.660] function(cond) { 1561s [00:52:41.660] is_error <- inherits(cond, "error") 1561s [00:52:41.660] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1561s [00:52:41.660] NULL) 1561s [00:52:41.660] if (is_error) { 1561s [00:52:41.660] sessionInformation <- function() { 1561s [00:52:41.660] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1561s [00:52:41.660] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1561s [00:52:41.660] search = base::search(), system = base::Sys.info()) 1561s [00:52:41.660] } 1561s [00:52:41.660] ...future.conditions[[length(...future.conditions) + 1561s [00:52:41.660] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1561s [00:52:41.660] cond$call), session = sessionInformation(), 1561s [00:52:41.660] timestamp = base::Sys.time(), signaled = 0L) 1561s [00:52:41.660] signalCondition(cond) 1561s [00:52:41.660] } 1561s [00:52:41.660] else if (!ignore && TRUE && inherits(cond, c("condition", 1561s [00:52:41.660] "immediateCondition"))) { 1561s [00:52:41.660] signal <- TRUE && inherits(cond, "immediateCondition") 1561s [00:52:41.660] ...future.conditions[[length(...future.conditions) + 1561s [00:52:41.660] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1561s [00:52:41.660] if (TRUE && !signal) { 1561s [00:52:41.660] muffleCondition <- function (cond, pattern = "^muffle") 1561s [00:52:41.660] { 1561s [00:52:41.660] inherits <- base::inherits 1561s [00:52:41.660] invokeRestart <- base::invokeRestart 1561s [00:52:41.660] is.null <- base::is.null 1561s [00:52:41.660] muffled <- FALSE 1561s [00:52:41.660] if (inherits(cond, "message")) { 1561s [00:52:41.660] muffled <- grepl(pattern, "muffleMessage") 1561s [00:52:41.660] if (muffled) 1561s [00:52:41.660] invokeRestart("muffleMessage") 1561s [00:52:41.660] } 1561s [00:52:41.660] else if (inherits(cond, "warning")) { 1561s [00:52:41.660] muffled <- grepl(pattern, "muffleWarning") 1561s [00:52:41.660] if (muffled) 1561s [00:52:41.660] invokeRestart("muffleWarning") 1561s [00:52:41.660] } 1561s [00:52:41.660] else if (inherits(cond, "condition")) { 1561s [00:52:41.660] if (!is.null(pattern)) { 1561s [00:52:41.660] computeRestarts <- base::computeRestarts 1561s [00:52:41.660] grepl <- base::grepl 1561s [00:52:41.660] restarts <- computeRestarts(cond) 1561s [00:52:41.660] for (restart in restarts) { 1561s [00:52:41.660] name <- restart$name 1561s [00:52:41.660] if (is.null(name)) 1561s [00:52:41.660] next 1561s [00:52:41.660] if (!grepl(pattern, name)) 1561s [00:52:41.660] next 1561s [00:52:41.660] invokeRestart(restart) 1561s [00:52:41.660] muffled <- TRUE 1561s [00:52:41.660] break 1561s [00:52:41.660] } 1561s [00:52:41.660] } 1561s [00:52:41.660] } 1561s [00:52:41.660] invisible(muffled) 1561s [00:52:41.660] } 1561s [00:52:41.660] muffleCondition(cond, pattern = "^muffle") 1561s [00:52:41.660] } 1561s [00:52:41.660] } 1561s [00:52:41.660] else { 1561s [00:52:41.660] if (TRUE) { 1561s [00:52:41.660] muffleCondition <- function (cond, pattern = "^muffle") 1561s [00:52:41.660] { 1561s [00:52:41.660] inherits <- base::inherits 1561s [00:52:41.660] invokeRestart <- base::invokeRestart 1561s [00:52:41.660] is.null <- base::is.null 1561s [00:52:41.660] muffled <- FALSE 1561s [00:52:41.660] if (inherits(cond, "message")) { 1561s [00:52:41.660] muffled <- grepl(pattern, "muffleMessage") 1561s [00:52:41.660] if (muffled) 1561s [00:52:41.660] invokeRestart("muffleMessage") 1561s [00:52:41.660] } 1561s [00:52:41.660] else if (inherits(cond, "warning")) { 1561s [00:52:41.660] muffled <- grepl(pattern, "muffleWarning") 1561s [00:52:41.660] if (muffled) 1561s [00:52:41.660] invokeRestart("muffleWarning") 1561s [00:52:41.660] } 1561s [00:52:41.660] else if (inherits(cond, "condition")) { 1561s [00:52:41.660] if (!is.null(pattern)) { 1561s [00:52:41.660] computeRestarts <- base::computeRestarts 1561s [00:52:41.660] grepl <- base::grepl 1561s [00:52:41.660] restarts <- computeRestarts(cond) 1561s [00:52:41.660] for (restart in restarts) { 1561s [00:52:41.660] name <- restart$name 1561s [00:52:41.660] if (is.null(name)) 1561s [00:52:41.660] next 1561s [00:52:41.660] if (!grepl(pattern, name)) 1561s [00:52:41.660] next 1561s [00:52:41.660] invokeRestart(restart) 1561s [00:52:41.660] muffled <- TRUE 1561s [00:52:41.660] break 1561s [00:52:41.660] } 1561s [00:52:41.660] } 1561s [00:52:41.660] } 1561s [00:52:41.660] invisible(muffled) 1561s [00:52:41.660] } 1561s [00:52:41.660] muffleCondition(cond, pattern = "^muffle") 1561s [00:52:41.660] } 1561s [00:52:41.660] } 1561s [00:52:41.660] } 1561s [00:52:41.660] })) 1561s [00:52:41.660] }, error = function(ex) { 1561s [00:52:41.660] base::structure(base::list(value = NULL, visible = NULL, 1561s [00:52:41.660] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1561s [00:52:41.660] ...future.rng), started = ...future.startTime, 1561s [00:52:41.660] finished = Sys.time(), session_uuid = NA_character_, 1561s [00:52:41.660] version = "1.8"), class = "FutureResult") 1561s [00:52:41.660] }, finally = { 1561s [00:52:41.660] if (!identical(...future.workdir, getwd())) 1561s [00:52:41.660] setwd(...future.workdir) 1561s [00:52:41.660] { 1561s [00:52:41.660] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1561s [00:52:41.660] ...future.oldOptions$nwarnings <- NULL 1561s [00:52:41.660] } 1561s [00:52:41.660] base::options(...future.oldOptions) 1561s [00:52:41.660] if (.Platform$OS.type == "windows") { 1561s [00:52:41.660] old_names <- names(...future.oldEnvVars) 1561s [00:52:41.660] envs <- base::Sys.getenv() 1561s [00:52:41.660] names <- names(envs) 1561s [00:52:41.660] common <- intersect(names, old_names) 1561s [00:52:41.660] added <- setdiff(names, old_names) 1561s [00:52:41.660] removed <- setdiff(old_names, names) 1561s [00:52:41.660] changed <- common[...future.oldEnvVars[common] != 1561s [00:52:41.660] envs[common]] 1561s [00:52:41.660] NAMES <- toupper(changed) 1561s [00:52:41.660] args <- list() 1561s [00:52:41.660] for (kk in seq_along(NAMES)) { 1561s [00:52:41.660] name <- changed[[kk]] 1561s [00:52:41.660] NAME <- NAMES[[kk]] 1561s [00:52:41.660] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:41.660] next 1561s [00:52:41.660] args[[name]] <- ...future.oldEnvVars[[name]] 1561s [00:52:41.660] } 1561s [00:52:41.660] NAMES <- toupper(added) 1561s [00:52:41.660] for (kk in seq_along(NAMES)) { 1561s [00:52:41.660] name <- added[[kk]] 1561s [00:52:41.660] NAME <- NAMES[[kk]] 1561s [00:52:41.660] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:41.660] next 1561s [00:52:41.660] args[[name]] <- "" 1561s [00:52:41.660] } 1561s [00:52:41.660] NAMES <- toupper(removed) 1561s [00:52:41.660] for (kk in seq_along(NAMES)) { 1561s [00:52:41.660] name <- removed[[kk]] 1561s [00:52:41.660] NAME <- NAMES[[kk]] 1561s [00:52:41.660] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:41.660] next 1561s [00:52:41.660] args[[name]] <- ...future.oldEnvVars[[name]] 1561s [00:52:41.660] } 1561s [00:52:41.660] if (length(args) > 0) 1561s [00:52:41.660] base::do.call(base::Sys.setenv, args = args) 1561s [00:52:41.660] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1561s [00:52:41.660] } 1561s [00:52:41.660] else { 1561s [00:52:41.660] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1561s [00:52:41.660] } 1561s [00:52:41.660] { 1561s [00:52:41.660] if (base::length(...future.futureOptionsAdded) > 1561s [00:52:41.660] 0L) { 1561s [00:52:41.660] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1561s [00:52:41.660] base::names(opts) <- ...future.futureOptionsAdded 1561s [00:52:41.660] base::options(opts) 1561s [00:52:41.660] } 1561s [00:52:41.660] { 1561s [00:52:41.660] { 1561s [00:52:41.660] base::assign(".Random.seed", c(10407L, 2079749599L, 1561s [00:52:41.660] -1712504007L, 90762767L, 511132818L, -526970845L, 1561s [00:52:41.660] -1057805512L), envir = base::globalenv(), 1561s [00:52:41.660] inherits = FALSE) 1561s [00:52:41.660] NULL 1561s [00:52:41.660] } 1561s [00:52:41.660] options(future.plan = NULL) 1561s [00:52:41.660] if (is.na(NA_character_)) 1561s [00:52:41.660] Sys.unsetenv("R_FUTURE_PLAN") 1561s [00:52:41.660] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1561s [00:52:41.660] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1561s [00:52:41.660] envir = parent.frame()) 1561s [00:52:41.660] { 1561s [00:52:41.660] default_workers <- missing(workers) 1561s [00:52:41.660] if (is.function(workers)) 1561s [00:52:41.660] workers <- workers() 1561s [00:52:41.660] workers <- structure(as.integer(workers), 1561s [00:52:41.660] class = class(workers)) 1561s [00:52:41.660] stop_if_not(is.finite(workers), workers >= 1561s [00:52:41.660] 1L) 1561s [00:52:41.660] if ((workers == 1L && !inherits(workers, 1561s [00:52:41.660] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1561s [00:52:41.660] if (default_workers) 1561s [00:52:41.660] supportsMulticore(warn = TRUE) 1561s [00:52:41.660] return(sequential(..., envir = envir)) 1561s [00:52:41.660] } 1561s [00:52:41.660] oopts <- options(mc.cores = workers) 1561s [00:52:41.660] on.exit(options(oopts)) 1561s [00:52:41.660] future <- MulticoreFuture(..., workers = workers, 1561s [00:52:41.660] envir = envir) 1561s [00:52:41.660] if (!future$lazy) 1561s [00:52:41.660] future <- run(future) 1561s [00:52:41.660] invisible(future) 1561s [00:52:41.660] }), .cleanup = FALSE, .init = FALSE) 1561s [00:52:41.660] } 1561s [00:52:41.660] } 1561s [00:52:41.660] } 1561s [00:52:41.660] }) 1561s [00:52:41.660] if (TRUE) { 1561s [00:52:41.660] base::sink(type = "output", split = FALSE) 1561s [00:52:41.660] if (TRUE) { 1561s [00:52:41.660] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1561s [00:52:41.660] } 1561s [00:52:41.660] else { 1561s [00:52:41.660] ...future.result["stdout"] <- base::list(NULL) 1561s [00:52:41.660] } 1561s [00:52:41.660] base::close(...future.stdout) 1561s [00:52:41.660] ...future.stdout <- NULL 1561s [00:52:41.660] } 1561s [00:52:41.660] ...future.result$conditions <- ...future.conditions 1561s [00:52:41.660] ...future.result$finished <- base::Sys.time() 1561s [00:52:41.660] ...future.result 1561s [00:52:41.660] } 1561s [00:52:41.665] assign_globals() ... 1561s [00:52:41.665] List of 5 1561s [00:52:41.665] $ ...future.FUN :function (x, ...) 1561s [00:52:41.665] $ MoreArgs : NULL 1561s [00:52:41.665] $ ...future.elements_ii :List of 2 1561s [00:52:41.665] ..$ :List of 4 1561s [00:52:41.665] .. ..$ : int 1 1561s [00:52:41.665] .. ..$ : int 2 1561s [00:52:41.665] .. ..$ : int 3 1561s [00:52:41.665] .. ..$ : int 4 1561s [00:52:41.665] ..$ :List of 4 1561s [00:52:41.665] .. ..$ : int 4 1561s [00:52:41.665] .. ..$ : int 3 1561s [00:52:41.665] .. ..$ : int 2 1561s [00:52:41.665] .. ..$ : int 1 1561s [00:52:41.665] $ ...future.seeds_ii : NULL 1561s [00:52:41.665] $ ...future.globals.maxSize: NULL 1561s [00:52:41.665] - attr(*, "where")=List of 5 1561s [00:52:41.665] ..$ ...future.FUN : 1561s [00:52:41.665] ..$ MoreArgs : 1561s [00:52:41.665] ..$ ...future.elements_ii : 1561s [00:52:41.665] ..$ ...future.seeds_ii : 1561s [00:52:41.665] ..$ ...future.globals.maxSize: 1561s [00:52:41.665] - attr(*, "resolved")= logi FALSE 1561s [00:52:41.665] - attr(*, "total_size")= num 504 1561s [00:52:41.665] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1561s [00:52:41.665] - attr(*, "already-done")= logi TRUE 1561s [00:52:41.678] - copied ‘...future.FUN’ to environment 1561s [00:52:41.678] - copied ‘MoreArgs’ to environment 1561s [00:52:41.679] - copied ‘...future.elements_ii’ to environment 1561s [00:52:41.679] - copied ‘...future.seeds_ii’ to environment 1561s [00:52:41.679] - copied ‘...future.globals.maxSize’ to environment 1561s [00:52:41.679] assign_globals() ... done 1561s [00:52:41.680] plan(): Setting new future strategy stack: 1561s [00:52:41.680] List of future strategies: 1561s [00:52:41.680] 1. sequential: 1561s [00:52:41.680] - args: function (..., envir = parent.frame()) 1561s [00:52:41.680] - tweaked: FALSE 1561s [00:52:41.680] - call: NULL 1561s [00:52:41.681] plan(): nbrOfWorkers() = 1 1561s [00:52:41.682] plan(): Setting new future strategy stack: 1561s [00:52:41.682] List of future strategies: 1561s [00:52:41.682] 1. multicore: 1561s [00:52:41.682] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1561s [00:52:41.682] - tweaked: FALSE 1561s [00:52:41.682] - call: plan(strategy) 1561s [00:52:41.687] plan(): nbrOfWorkers() = 1 1561s [00:52:41.687] SequentialFuture started (and completed) 1561s [00:52:41.687] - Launch lazy future ... done 1561s [00:52:41.687] run() for ‘SequentialFuture’ ... done 1561s [00:52:41.688] Created future: 1561s [00:52:41.688] SequentialFuture: 1561s [00:52:41.688] Label: ‘future_mapply-1’ 1561s [00:52:41.688] Expression: 1561s [00:52:41.688] { 1561s [00:52:41.688] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1561s [00:52:41.688] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1561s [00:52:41.688] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1561s [00:52:41.688] on.exit(options(oopts), add = TRUE) 1561s [00:52:41.688] } 1561s [00:52:41.688] { 1561s [00:52:41.688] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1561s [00:52:41.688] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1561s [00:52:41.688] do.call(mapply, args = args) 1561s [00:52:41.688] } 1561s [00:52:41.688] } 1561s [00:52:41.688] Lazy evaluation: FALSE 1561s [00:52:41.688] Asynchronous evaluation: FALSE 1561s [00:52:41.688] Local evaluation: TRUE 1561s [00:52:41.688] Environment: R_GlobalEnv 1561s [00:52:41.688] Capture standard output: TRUE 1561s [00:52:41.688] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1561s [00:52:41.688] Globals: 5 objects totaling 504 bytes (function ‘...future.FUN’ of 56 bytes, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 448 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1561s [00:52:41.688] Packages: 1561s [00:52:41.688] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1561s [00:52:41.688] Resolved: TRUE 1561s [00:52:41.688] Value: 240 bytes of class ‘list’ 1561s [00:52:41.688] Early signaling: FALSE 1561s [00:52:41.688] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1561s [00:52:41.688] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1561s [00:52:41.690] Chunk #1 of 1 ... DONE 1561s [00:52:41.690] Launching 1 futures (chunks) ... DONE 1561s [00:52:41.690] Resolving 1 futures (chunks) ... 1561s [00:52:41.691] resolve() on list ... 1561s [00:52:41.691] recursive: 0 1561s [00:52:41.691] length: 1 1561s [00:52:41.691] 1561s [00:52:41.691] resolved() for ‘SequentialFuture’ ... 1561s [00:52:41.692] - state: ‘finished’ 1561s [00:52:41.692] - run: TRUE 1561s [00:52:41.692] - result: ‘FutureResult’ 1561s [00:52:41.692] resolved() for ‘SequentialFuture’ ... done 1561s [00:52:41.692] Future #1 1561s [00:52:41.693] signalConditionsASAP(SequentialFuture, pos=1) ... 1561s [00:52:41.693] - nx: 1 1561s [00:52:41.693] - relay: TRUE 1561s [00:52:41.694] - stdout: TRUE 1561s [00:52:41.694] - signal: TRUE 1561s [00:52:41.694] - resignal: FALSE 1561s [00:52:41.694] - force: TRUE 1561s [00:52:41.694] - relayed: [n=1] FALSE 1561s [00:52:41.694] - queued futures: [n=1] FALSE 1561s [00:52:41.694] - until=1 1561s [00:52:41.695] - relaying element #1 1561s [00:52:41.695] - relayed: [n=1] TRUE 1561s [00:52:41.695] - queued futures: [n=1] TRUE 1561s [00:52:41.695] signalConditionsASAP(SequentialFuture, pos=1) ... done 1561s [00:52:41.695] length: 0 (resolved future 1) 1561s [00:52:41.695] Relaying remaining futures 1561s [00:52:41.696] signalConditionsASAP(NULL, pos=0) ... 1561s [00:52:41.696] - nx: 1 1561s [00:52:41.696] - relay: TRUE 1561s [00:52:41.696] - stdout: TRUE 1561s [00:52:41.696] - signal: TRUE 1561s [00:52:41.696] - resignal: FALSE 1561s [00:52:41.697] - force: TRUE 1561s [00:52:41.697] - relayed: [n=1] TRUE 1561s [00:52:41.697] - queued futures: [n=1] TRUE 1561s - flush all 1561s [00:52:41.697] - relayed: [n=1] TRUE 1561s [00:52:41.698] - queued futures: [n=1] TRUE 1561s [00:52:41.698] signalConditionsASAP(NULL, pos=0) ... done 1561s [00:52:41.698] resolve() on list ... DONE 1561s [00:52:41.699] - Number of value chunks collected: 1 1561s [00:52:41.699] Resolving 1 futures (chunks) ... DONE 1561s [00:52:41.699] Reducing values from 1 chunks ... 1561s [00:52:41.699] - Number of values collected after concatenation: 4 1561s [00:52:41.699] - Number of values expected: 4 1561s [00:52:41.700] Reducing values from 1 chunks ... DONE 1561s [00:52:41.700] future_mapply() ... DONE 1561s [00:52:41.700] future_mapply() ... 1561s [00:52:41.707] Number of chunks: 1 1561s [00:52:41.707] getGlobalsAndPackagesXApply() ... 1561s [00:52:41.707] - future.globals: TRUE 1561s [00:52:41.707] getGlobalsAndPackages() ... 1561s [00:52:41.707] Searching for globals... 1561s [00:52:41.708] - globals found: [1] ‘FUN’ 1561s [00:52:41.709] Searching for globals ... DONE 1561s [00:52:41.709] Resolving globals: FALSE 1561s [00:52:41.709] The total size of the 1 globals is 56 bytes (56 bytes) 1561s [00:52:41.710] The total size of the 1 globals exported for future expression (‘FUN()’) is 56 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (56 bytes of class ‘function’) 1561s [00:52:41.711] - globals: [1] ‘FUN’ 1561s [00:52:41.711] 1561s [00:52:41.711] getGlobalsAndPackages() ... DONE 1561s [00:52:41.711] - globals found/used: [n=1] ‘FUN’ 1561s [00:52:41.712] - needed namespaces: [n=0] 1561s [00:52:41.712] Finding globals ... DONE 1561s [00:52:41.712] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1561s [00:52:41.712] List of 2 1561s [00:52:41.712] $ ...future.FUN:function (x, ...) 1561s [00:52:41.712] $ MoreArgs : NULL 1561s [00:52:41.712] - attr(*, "where")=List of 2 1561s [00:52:41.712] ..$ ...future.FUN: 1561s [00:52:41.712] ..$ MoreArgs : 1561s [00:52:41.712] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1561s [00:52:41.712] - attr(*, "resolved")= logi FALSE 1561s [00:52:41.712] - attr(*, "total_size")= num NA 1561s [00:52:41.717] Packages to be attached in all futures: [n=0] 1561s [00:52:41.717] getGlobalsAndPackagesXApply() ... DONE 1561s [00:52:41.717] Number of futures (= number of chunks): 1 1561s [00:52:41.717] Launching 1 futures (chunks) ... 1561s [00:52:41.717] Chunk #1 of 1 ... 1561s [00:52:41.718] - Finding globals in '...' for chunk #1 ... 1561s [00:52:41.718] getGlobalsAndPackages() ... 1561s [00:52:41.718] Searching for globals... 1561s [00:52:41.718] 1561s [00:52:41.718] Searching for globals ... DONE 1561s [00:52:41.719] - globals: [0] 1561s [00:52:41.719] getGlobalsAndPackages() ... DONE 1561s [00:52:41.719] + additional globals found: [n=0] 1561s [00:52:41.719] + additional namespaces needed: [n=0] 1561s [00:52:41.719] - Finding globals in '...' for chunk #1 ... DONE 1561s [00:52:41.719] - seeds: 1561s [00:52:41.719] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:41.719] getGlobalsAndPackages() ... 1561s [00:52:41.720] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:41.720] Resolving globals: FALSE 1561s [00:52:41.721] The total size of the 5 globals is 504 bytes (504 bytes) 1561s [00:52:41.722] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 504 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.elements_ii’ (448 bytes of class ‘list’), ‘...future.FUN’ (56 bytes of class ‘function’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1561s [00:52:41.722] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:41.723] 1561s [00:52:41.723] getGlobalsAndPackages() ... DONE 1561s [00:52:41.723] run() for ‘Future’ ... 1561s [00:52:41.723] - state: ‘created’ 1561s [00:52:41.724] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1561s [00:52:41.728] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1561s [00:52:41.729] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1561s [00:52:41.729] - Field: ‘label’ 1561s [00:52:41.729] - Field: ‘local’ 1561s [00:52:41.729] - Field: ‘owner’ 1561s [00:52:41.729] - Field: ‘envir’ 1561s [00:52:41.730] - Field: ‘packages’ 1561s [00:52:41.730] - Field: ‘gc’ 1561s [00:52:41.730] - Field: ‘conditions’ 1561s [00:52:41.730] - Field: ‘expr’ 1561s [00:52:41.731] - Field: ‘uuid’ 1561s [00:52:41.731] - Field: ‘seed’ 1561s [00:52:41.731] - Field: ‘version’ 1561s [00:52:41.731] - Field: ‘result’ 1561s [00:52:41.731] - Field: ‘asynchronous’ 1561s [00:52:41.731] - Field: ‘calls’ 1561s [00:52:41.732] - Field: ‘globals’ 1561s [00:52:41.732] - Field: ‘stdout’ 1561s [00:52:41.732] - Field: ‘earlySignal’ 1561s [00:52:41.732] - Field: ‘lazy’ 1561s [00:52:41.732] - Field: ‘state’ 1561s [00:52:41.732] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1561s [00:52:41.732] - Launch lazy future ... 1561s [00:52:41.733] Packages needed by the future expression (n = 0): 1561s [00:52:41.733] Packages needed by future strategies (n = 0): 1561s [00:52:41.733] { 1561s [00:52:41.733] { 1561s [00:52:41.733] { 1561s [00:52:41.733] ...future.startTime <- base::Sys.time() 1561s [00:52:41.733] { 1561s [00:52:41.733] { 1561s [00:52:41.733] { 1561s [00:52:41.733] base::local({ 1561s [00:52:41.733] has_future <- base::requireNamespace("future", 1561s [00:52:41.733] quietly = TRUE) 1561s [00:52:41.733] if (has_future) { 1561s [00:52:41.733] ns <- base::getNamespace("future") 1561s [00:52:41.733] version <- ns[[".package"]][["version"]] 1561s [00:52:41.733] if (is.null(version)) 1561s [00:52:41.733] version <- utils::packageVersion("future") 1561s [00:52:41.733] } 1561s [00:52:41.733] else { 1561s [00:52:41.733] version <- NULL 1561s [00:52:41.733] } 1561s [00:52:41.733] if (!has_future || version < "1.8.0") { 1561s [00:52:41.733] info <- base::c(r_version = base::gsub("R version ", 1561s [00:52:41.733] "", base::R.version$version.string), 1561s [00:52:41.733] platform = base::sprintf("%s (%s-bit)", 1561s [00:52:41.733] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1561s [00:52:41.733] os = base::paste(base::Sys.info()[base::c("sysname", 1561s [00:52:41.733] "release", "version")], collapse = " "), 1561s [00:52:41.733] hostname = base::Sys.info()[["nodename"]]) 1561s [00:52:41.733] info <- base::sprintf("%s: %s", base::names(info), 1561s [00:52:41.733] info) 1561s [00:52:41.733] info <- base::paste(info, collapse = "; ") 1561s [00:52:41.733] if (!has_future) { 1561s [00:52:41.733] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1561s [00:52:41.733] info) 1561s [00:52:41.733] } 1561s [00:52:41.733] else { 1561s [00:52:41.733] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1561s [00:52:41.733] info, version) 1561s [00:52:41.733] } 1561s [00:52:41.733] base::stop(msg) 1561s [00:52:41.733] } 1561s [00:52:41.733] }) 1561s [00:52:41.733] } 1561s [00:52:41.733] options(future.plan = NULL) 1561s [00:52:41.733] Sys.unsetenv("R_FUTURE_PLAN") 1561s [00:52:41.733] future::plan("default", .cleanup = FALSE, .init = FALSE) 1561s [00:52:41.733] } 1561s [00:52:41.733] ...future.workdir <- getwd() 1561s [00:52:41.733] } 1561s [00:52:41.733] ...future.oldOptions <- base::as.list(base::.Options) 1561s [00:52:41.733] ...future.oldEnvVars <- base::Sys.getenv() 1561s [00:52:41.733] } 1561s [00:52:41.733] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1561s [00:52:41.733] future.globals.maxSize = NULL, future.globals.method = NULL, 1561s [00:52:41.733] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1561s [00:52:41.733] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1561s [00:52:41.733] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1561s [00:52:41.733] future.stdout.windows.reencode = NULL, width = 80L) 1561s [00:52:41.733] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1561s [00:52:41.733] base::names(...future.oldOptions)) 1561s [00:52:41.733] } 1561s [00:52:41.733] if (FALSE) { 1561s [00:52:41.733] } 1561s [00:52:41.733] else { 1561s [00:52:41.733] if (TRUE) { 1561s [00:52:41.733] ...future.stdout <- base::rawConnection(base::raw(0L), 1561s [00:52:41.733] open = "w") 1561s [00:52:41.733] } 1561s [00:52:41.733] else { 1561s [00:52:41.733] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1561s [00:52:41.733] windows = "NUL", "/dev/null"), open = "w") 1561s [00:52:41.733] } 1561s [00:52:41.733] base::sink(...future.stdout, type = "output", split = FALSE) 1561s [00:52:41.733] base::on.exit(if (!base::is.null(...future.stdout)) { 1561s [00:52:41.733] base::sink(type = "output", split = FALSE) 1561s [00:52:41.733] base::close(...future.stdout) 1561s [00:52:41.733] }, add = TRUE) 1561s [00:52:41.733] } 1561s [00:52:41.733] ...future.frame <- base::sys.nframe() 1561s [00:52:41.733] ...future.conditions <- base::list() 1561s [00:52:41.733] ...future.rng <- base::globalenv()$.Random.seed 1561s [00:52:41.733] if (FALSE) { 1561s [00:52:41.733] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1561s [00:52:41.733] "...future.value", "...future.globalenv.names", ".Random.seed") 1561s [00:52:41.733] } 1561s [00:52:41.733] ...future.result <- base::tryCatch({ 1561s [00:52:41.733] base::withCallingHandlers({ 1561s [00:52:41.733] ...future.value <- base::withVisible(base::local({ 1561s [00:52:41.733] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1561s [00:52:41.733] if (!identical(...future.globals.maxSize.org, 1561s [00:52:41.733] ...future.globals.maxSize)) { 1561s [00:52:41.733] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1561s [00:52:41.733] on.exit(options(oopts), add = TRUE) 1561s [00:52:41.733] } 1561s [00:52:41.733] { 1561s [00:52:41.733] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1561s [00:52:41.733] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1561s [00:52:41.733] USE.NAMES = FALSE) 1561s [00:52:41.733] do.call(mapply, args = args) 1561s [00:52:41.733] } 1561s [00:52:41.733] })) 1561s [00:52:41.733] future::FutureResult(value = ...future.value$value, 1561s [00:52:41.733] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1561s [00:52:41.733] ...future.rng), globalenv = if (FALSE) 1561s [00:52:41.733] list(added = base::setdiff(base::names(base::.GlobalEnv), 1561s [00:52:41.733] ...future.globalenv.names)) 1561s [00:52:41.733] else NULL, started = ...future.startTime, version = "1.8") 1561s [00:52:41.733] }, condition = base::local({ 1561s [00:52:41.733] c <- base::c 1561s [00:52:41.733] inherits <- base::inherits 1561s [00:52:41.733] invokeRestart <- base::invokeRestart 1561s [00:52:41.733] length <- base::length 1561s [00:52:41.733] list <- base::list 1561s [00:52:41.733] seq.int <- base::seq.int 1561s [00:52:41.733] signalCondition <- base::signalCondition 1561s [00:52:41.733] sys.calls <- base::sys.calls 1561s [00:52:41.733] `[[` <- base::`[[` 1561s [00:52:41.733] `+` <- base::`+` 1561s [00:52:41.733] `<<-` <- base::`<<-` 1561s [00:52:41.733] sysCalls <- function(calls = sys.calls(), from = 1L) { 1561s [00:52:41.733] calls[seq.int(from = from + 12L, to = length(calls) - 1561s [00:52:41.733] 3L)] 1561s [00:52:41.733] } 1561s [00:52:41.733] function(cond) { 1561s [00:52:41.733] is_error <- inherits(cond, "error") 1561s [00:52:41.733] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1561s [00:52:41.733] NULL) 1561s [00:52:41.733] if (is_error) { 1561s [00:52:41.733] sessionInformation <- function() { 1561s [00:52:41.733] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1561s [00:52:41.733] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1561s [00:52:41.733] search = base::search(), system = base::Sys.info()) 1561s [00:52:41.733] } 1561s [00:52:41.733] ...future.conditions[[length(...future.conditions) + 1561s [00:52:41.733] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1561s [00:52:41.733] cond$call), session = sessionInformation(), 1561s [00:52:41.733] timestamp = base::Sys.time(), signaled = 0L) 1561s [00:52:41.733] signalCondition(cond) 1561s [00:52:41.733] } 1561s [00:52:41.733] else if (!ignore && TRUE && inherits(cond, c("condition", 1561s [00:52:41.733] "immediateCondition"))) { 1561s [00:52:41.733] signal <- TRUE && inherits(cond, "immediateCondition") 1561s [00:52:41.733] ...future.conditions[[length(...future.conditions) + 1561s [00:52:41.733] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1561s [00:52:41.733] if (TRUE && !signal) { 1561s [00:52:41.733] muffleCondition <- function (cond, pattern = "^muffle") 1561s [00:52:41.733] { 1561s [00:52:41.733] inherits <- base::inherits 1561s [00:52:41.733] invokeRestart <- base::invokeRestart 1561s [00:52:41.733] is.null <- base::is.null 1561s [00:52:41.733] muffled <- FALSE 1561s [00:52:41.733] if (inherits(cond, "message")) { 1561s [00:52:41.733] muffled <- grepl(pattern, "muffleMessage") 1561s [00:52:41.733] if (muffled) 1561s [00:52:41.733] invokeRestart("muffleMessage") 1561s [00:52:41.733] } 1561s [00:52:41.733] else if (inherits(cond, "warning")) { 1561s [00:52:41.733] muffled <- grepl(pattern, "muffleWarning") 1561s [00:52:41.733] if (muffled) 1561s [00:52:41.733] invokeRestart("muffleWarning") 1561s [00:52:41.733] } 1561s [00:52:41.733] else if (inherits(cond, "condition")) { 1561s [00:52:41.733] if (!is.null(pattern)) { 1561s [00:52:41.733] computeRestarts <- base::computeRestarts 1561s [00:52:41.733] grepl <- base::grepl 1561s [00:52:41.733] restarts <- computeRestarts(cond) 1561s [00:52:41.733] for (restart in restarts) { 1561s [00:52:41.733] name <- restart$name 1561s [00:52:41.733] if (is.null(name)) 1561s [00:52:41.733] next 1561s [00:52:41.733] if (!grepl(pattern, name)) 1561s [00:52:41.733] next 1561s [00:52:41.733] invokeRestart(restart) 1561s [00:52:41.733] muffled <- TRUE 1561s [00:52:41.733] break 1561s [00:52:41.733] } 1561s [00:52:41.733] } 1561s [00:52:41.733] } 1561s [00:52:41.733] invisible(muffled) 1561s [00:52:41.733] } 1561s [00:52:41.733] muffleCondition(cond, pattern = "^muffle") 1561s [00:52:41.733] } 1561s [00:52:41.733] } 1561s [00:52:41.733] else { 1561s [00:52:41.733] if (TRUE) { 1561s [00:52:41.733] muffleCondition <- function (cond, pattern = "^muffle") 1561s [00:52:41.733] { 1561s [00:52:41.733] inherits <- base::inherits 1561s [00:52:41.733] invokeRestart <- base::invokeRestart 1561s [00:52:41.733] is.null <- base::is.null 1561s [00:52:41.733] muffled <- FALSE 1561s [00:52:41.733] if (inherits(cond, "message")) { 1561s [00:52:41.733] muffled <- grepl(pattern, "muffleMessage") 1561s [00:52:41.733] if (muffled) 1561s [00:52:41.733] invokeRestart("muffleMessage") 1561s [00:52:41.733] } 1561s [00:52:41.733] else if (inherits(cond, "warning")) { 1561s [00:52:41.733] muffled <- grepl(pattern, "muffleWarning") 1561s [00:52:41.733] if (muffled) 1561s [00:52:41.733] invokeRestart("muffleWarning") 1561s [00:52:41.733] } 1561s [00:52:41.733] else if (inherits(cond, "condition")) { 1561s [00:52:41.733] if (!is.null(pattern)) { 1561s [00:52:41.733] computeRestarts <- base::computeRestarts 1561s [00:52:41.733] grepl <- base::grepl 1561s [00:52:41.733] restarts <- computeRestarts(cond) 1561s [00:52:41.733] for (restart in restarts) { 1561s [00:52:41.733] name <- restart$name 1561s [00:52:41.733] if (is.null(name)) 1561s [00:52:41.733] next 1561s [00:52:41.733] if (!grepl(pattern, name)) 1561s [00:52:41.733] next 1561s [00:52:41.733] invokeRestart(restart) 1561s [00:52:41.733] muffled <- TRUE 1561s [00:52:41.733] break 1561s [00:52:41.733] } 1561s [00:52:41.733] } 1561s [00:52:41.733] } 1561s [00:52:41.733] invisible(muffled) 1561s [00:52:41.733] } 1561s [00:52:41.733] muffleCondition(cond, pattern = "^muffle") 1561s [00:52:41.733] } 1561s [00:52:41.733] } 1561s [00:52:41.733] } 1561s [00:52:41.733] })) 1561s [00:52:41.733] }, error = function(ex) { 1561s [00:52:41.733] base::structure(base::list(value = NULL, visible = NULL, 1561s [00:52:41.733] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1561s [00:52:41.733] ...future.rng), started = ...future.startTime, 1561s [00:52:41.733] finished = Sys.time(), session_uuid = NA_character_, 1561s [00:52:41.733] version = "1.8"), class = "FutureResult") 1561s [00:52:41.733] }, finally = { 1561s [00:52:41.733] if (!identical(...future.workdir, getwd())) 1561s [00:52:41.733] setwd(...future.workdir) 1561s [00:52:41.733] { 1561s [00:52:41.733] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1561s [00:52:41.733] ...future.oldOptions$nwarnings <- NULL 1561s [00:52:41.733] } 1561s [00:52:41.733] base::options(...future.oldOptions) 1561s [00:52:41.733] if (.Platform$OS.type == "windows") { 1561s [00:52:41.733] old_names <- names(...future.oldEnvVars) 1561s [00:52:41.733] envs <- base::Sys.getenv() 1561s [00:52:41.733] names <- names(envs) 1561s [00:52:41.733] common <- intersect(names, old_names) 1561s [00:52:41.733] added <- setdiff(names, old_names) 1561s [00:52:41.733] removed <- setdiff(old_names, names) 1561s [00:52:41.733] changed <- common[...future.oldEnvVars[common] != 1561s [00:52:41.733] envs[common]] 1561s [00:52:41.733] NAMES <- toupper(changed) 1561s [00:52:41.733] args <- list() 1561s [00:52:41.733] for (kk in seq_along(NAMES)) { 1561s [00:52:41.733] name <- changed[[kk]] 1561s [00:52:41.733] NAME <- NAMES[[kk]] 1561s [00:52:41.733] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:41.733] next 1561s [00:52:41.733] args[[name]] <- ...future.oldEnvVars[[name]] 1561s [00:52:41.733] } 1561s [00:52:41.733] NAMES <- toupper(added) 1561s [00:52:41.733] for (kk in seq_along(NAMES)) { 1561s [00:52:41.733] name <- added[[kk]] 1561s [00:52:41.733] NAME <- NAMES[[kk]] 1561s [00:52:41.733] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:41.733] next 1561s [00:52:41.733] args[[name]] <- "" 1561s [00:52:41.733] } 1561s [00:52:41.733] NAMES <- toupper(removed) 1561s [00:52:41.733] for (kk in seq_along(NAMES)) { 1561s [00:52:41.733] name <- removed[[kk]] 1561s [00:52:41.733] NAME <- NAMES[[kk]] 1561s [00:52:41.733] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:41.733] next 1561s [00:52:41.733] args[[name]] <- ...future.oldEnvVars[[name]] 1561s [00:52:41.733] } 1561s [00:52:41.733] if (length(args) > 0) 1561s [00:52:41.733] base::do.call(base::Sys.setenv, args = args) 1561s [00:52:41.733] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1561s [00:52:41.733] } 1561s [00:52:41.733] else { 1561s [00:52:41.733] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1561s [00:52:41.733] } 1561s [00:52:41.733] { 1561s [00:52:41.733] if (base::length(...future.futureOptionsAdded) > 1561s [00:52:41.733] 0L) { 1561s [00:52:41.733] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1561s [00:52:41.733] base::names(opts) <- ...future.futureOptionsAdded 1561s [00:52:41.733] base::options(opts) 1561s [00:52:41.733] } 1561s [00:52:41.733] { 1561s [00:52:41.733] { 1561s [00:52:41.733] base::assign(".Random.seed", c(10407L, 2079749599L, 1561s [00:52:41.733] -1712504007L, 90762767L, 511132818L, -526970845L, 1561s [00:52:41.733] -1057805512L), envir = base::globalenv(), 1561s [00:52:41.733] inherits = FALSE) 1561s [00:52:41.733] NULL 1561s [00:52:41.733] } 1561s [00:52:41.733] options(future.plan = NULL) 1561s [00:52:41.733] if (is.na(NA_character_)) 1561s [00:52:41.733] Sys.unsetenv("R_FUTURE_PLAN") 1561s [00:52:41.733] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1561s [00:52:41.733] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1561s [00:52:41.733] envir = parent.frame()) 1561s [00:52:41.733] { 1561s [00:52:41.733] default_workers <- missing(workers) 1561s [00:52:41.733] if (is.function(workers)) 1561s [00:52:41.733] workers <- workers() 1561s [00:52:41.733] workers <- structure(as.integer(workers), 1561s [00:52:41.733] class = class(workers)) 1561s [00:52:41.733] stop_if_not(is.finite(workers), workers >= 1561s [00:52:41.733] 1L) 1561s [00:52:41.733] if ((workers == 1L && !inherits(workers, 1561s [00:52:41.733] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1561s [00:52:41.733] if (default_workers) 1561s [00:52:41.733] supportsMulticore(warn = TRUE) 1561s [00:52:41.733] return(sequential(..., envir = envir)) 1561s [00:52:41.733] } 1561s [00:52:41.733] oopts <- options(mc.cores = workers) 1561s [00:52:41.733] on.exit(options(oopts)) 1561s [00:52:41.733] future <- MulticoreFuture(..., workers = workers, 1561s [00:52:41.733] envir = envir) 1561s [00:52:41.733] if (!future$lazy) 1561s [00:52:41.733] future <- run(future) 1561s [00:52:41.733] invisible(future) 1561s [00:52:41.733] }), .cleanup = FALSE, .init = FALSE) 1561s [00:52:41.733] } 1561s [00:52:41.733] } 1561s [00:52:41.733] } 1561s [00:52:41.733] }) 1561s [00:52:41.733] if (TRUE) { 1561s [00:52:41.733] base::sink(type = "output", split = FALSE) 1561s [00:52:41.733] if (TRUE) { 1561s [00:52:41.733] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1561s [00:52:41.733] } 1561s [00:52:41.733] else { 1561s [00:52:41.733] ...future.result["stdout"] <- base::list(NULL) 1561s [00:52:41.733] } 1561s [00:52:41.733] base::close(...future.stdout) 1561s [00:52:41.733] ...future.stdout <- NULL 1561s [00:52:41.733] } 1561s [00:52:41.733] ...future.result$conditions <- ...future.conditions 1561s [00:52:41.733] ...future.result$finished <- base::Sys.time() 1561s [00:52:41.733] ...future.result 1561s [00:52:41.733] } 1561s [00:52:41.738] assign_globals() ... 1561s [00:52:41.738] List of 5 1561s [00:52:41.738] $ ...future.FUN :function (x, ...) 1561s [00:52:41.738] $ MoreArgs : NULL 1561s [00:52:41.738] $ ...future.elements_ii :List of 2 1561s [00:52:41.738] ..$ :List of 4 1561s [00:52:41.738] .. ..$ : int 1 1561s [00:52:41.738] .. ..$ : int 2 1561s [00:52:41.738] .. ..$ : int 3 1561s [00:52:41.738] .. ..$ : int 4 1561s [00:52:41.738] ..$ :List of 4 1561s [00:52:41.738] .. ..$ : int 4 1561s [00:52:41.738] .. ..$ : int 3 1561s [00:52:41.738] .. ..$ : int 2 1561s [00:52:41.738] .. ..$ : int 1 1561s [00:52:41.738] $ ...future.seeds_ii : NULL 1561s [00:52:41.738] $ ...future.globals.maxSize: NULL 1561s [00:52:41.738] - attr(*, "where")=List of 5 1561s [00:52:41.738] ..$ ...future.FUN : 1561s [00:52:41.738] ..$ MoreArgs : 1561s [00:52:41.738] ..$ ...future.elements_ii : 1561s [00:52:41.738] ..$ ...future.seeds_ii : 1561s [00:52:41.738] ..$ ...future.globals.maxSize: 1561s [00:52:41.738] - attr(*, "resolved")= logi FALSE 1561s [00:52:41.738] - attr(*, "total_size")= num 504 1561s [00:52:41.738] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1561s [00:52:41.738] - attr(*, "already-done")= logi TRUE 1561s [00:52:41.749] - copied ‘...future.FUN’ to environment 1561s [00:52:41.749] - copied ‘MoreArgs’ to environment 1561s [00:52:41.749] - copied ‘...future.elements_ii’ to environment 1561s [00:52:41.749] - copied ‘...future.seeds_ii’ to environment 1561s [00:52:41.749] - copied ‘...future.globals.maxSize’ to environment 1561s [00:52:41.749] assign_globals() ... done 1561s [00:52:41.750] plan(): Setting new future strategy stack: 1561s [00:52:41.750] List of future strategies: 1561s [00:52:41.750] 1. sequential: 1561s [00:52:41.750] - args: function (..., envir = parent.frame()) 1561s [00:52:41.750] - tweaked: FALSE 1561s [00:52:41.750] - call: NULL 1561s [00:52:41.750] plan(): nbrOfWorkers() = 1 1561s [00:52:41.752] plan(): Setting new future strategy stack: 1561s [00:52:41.752] List of future strategies: 1561s [00:52:41.752] 1. multicore: 1561s [00:52:41.752] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1561s [00:52:41.752] - tweaked: FALSE 1561s [00:52:41.752] - call: plan(strategy) 1561s [00:52:41.756] plan(): nbrOfWorkers() = 1 1561s [00:52:41.757] SequentialFuture started (and completed) 1561s [00:52:41.757] - Launch lazy future ... done 1561s [00:52:41.757] run() for ‘SequentialFuture’ ... done 1561s [00:52:41.757] Created future: 1561s [00:52:41.758] SequentialFuture: 1561s [00:52:41.758] Label: ‘future_mapply-1’ 1561s [00:52:41.758] Expression: 1561s [00:52:41.758] { 1561s [00:52:41.758] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1561s [00:52:41.758] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1561s [00:52:41.758] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1561s [00:52:41.758] on.exit(options(oopts), add = TRUE) 1561s [00:52:41.758] } 1561s [00:52:41.758] { 1561s [00:52:41.758] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1561s [00:52:41.758] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1561s [00:52:41.758] do.call(mapply, args = args) 1561s [00:52:41.758] } 1561s [00:52:41.758] } 1561s [00:52:41.758] Lazy evaluation: FALSE 1561s [00:52:41.758] Asynchronous evaluation: FALSE 1561s [00:52:41.758] Local evaluation: TRUE 1561s [00:52:41.758] Environment: R_GlobalEnv 1561s [00:52:41.758] Capture standard output: TRUE 1561s [00:52:41.758] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1561s [00:52:41.758] Globals: 5 objects totaling 504 bytes (function ‘...future.FUN’ of 56 bytes, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 448 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1561s [00:52:41.758] Packages: 1561s [00:52:41.758] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1561s [00:52:41.758] Resolved: TRUE 1561s [00:52:41.758] Value: 240 bytes of class ‘list’ 1561s [00:52:41.758] Early signaling: FALSE 1561s [00:52:41.758] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1561s [00:52:41.758] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1561s [00:52:41.759] Chunk #1 of 1 ... DONE 1561s [00:52:41.760] Launching 1 futures (chunks) ... DONE 1561s [00:52:41.760] Resolving 1 futures (chunks) ... 1561s [00:52:41.760] resolve() on list ... 1561s [00:52:41.761] recursive: 0 1561s [00:52:41.761] length: 1 1561s [00:52:41.761] 1561s [00:52:41.761] resolved() for ‘SequentialFuture’ ... 1561s [00:52:41.761] - state: ‘finished’ 1561s [00:52:41.762] - run: TRUE 1561s [00:52:41.762] - result: ‘FutureResult’ 1561s [00:52:41.762] resolved() for ‘SequentialFuture’ ... done 1561s [00:52:41.762] Future #1 1561s [00:52:41.763] signalConditionsASAP(SequentialFuture, pos=1) ... 1561s [00:52:41.763] - nx: 1 1561s [00:52:41.763] - relay: TRUE 1561s [00:52:41.763] - stdout: TRUE 1561s [00:52:41.763] - signal: TRUE 1561s [00:52:41.763] - resignal: FALSE 1561s [00:52:41.764] - force: TRUE 1561s [00:52:41.764] - relayed: [n=1] FALSE 1561s [00:52:41.764] - queued futures: [n=1] FALSE 1561s [00:52:41.764] - until=1 1561s [00:52:41.764] - relaying element #1 1561s [00:52:41.764] - relayed: [n=1] TRUE 1561s [00:52:41.765] - queued futures: [n=1] TRUE 1561s [00:52:41.765] signalConditionsASAP(SequentialFuture, pos=1) ... done 1561s [00:52:41.765] length: 0 (resolved future 1) 1561s [00:52:41.765] Relaying remaining futures 1561s [00:52:41.765] signalConditionsASAP(NULL, pos=0) ... 1561s [00:52:41.765] - nx: 1 1561s [00:52:41.766] - relay: TRUE 1561s [00:52:41.766] - stdout: TRUE 1561s [00:52:41.766] - signal: TRUE 1561s [00:52:41.766] - resignal: FALSE 1561s [00:52:41.766] - force: TRUE 1561s [00:52:41.766] - relayed: [n=1] TRUE 1561s [00:52:41.767] - queued futures: [n=1] TRUE 1561s - flush all 1561s [00:52:41.767] - relayed: [n=1] TRUE 1561s [00:52:41.767] - queued futures: [n=1] TRUE 1561s [00:52:41.767] signalConditionsASAP(NULL, pos=0) ... done 1561s [00:52:41.767] resolve() on list ... DONE 1561s [00:52:41.767] - Number of value chunks collected: 1 1561s [00:52:41.768] Resolving 1 futures (chunks) ... DONE 1561s [00:52:41.768] Reducing values from 1 chunks ... 1561s [00:52:41.768] - Number of values collected after concatenation: 4 1561s [00:52:41.768] - Number of values expected: 4 1561s [00:52:41.768] Reducing values from 1 chunks ... DONE 1561s [00:52:41.768] future_mapply() ... DONE 1561s [00:52:41.769] future_mapply() ... 1561s [00:52:41.772] Number of chunks: 1 1561s [00:52:41.773] getGlobalsAndPackagesXApply() ... 1561s [00:52:41.773] - future.globals: TRUE 1561s [00:52:41.773] getGlobalsAndPackages() ... 1561s [00:52:41.773] Searching for globals... 1561s [00:52:41.774] - globals found: [1] ‘FUN’ 1561s [00:52:41.774] Searching for globals ... DONE 1561s [00:52:41.774] Resolving globals: FALSE 1561s [00:52:41.775] The total size of the 1 globals is 56 bytes (56 bytes) 1561s [00:52:41.775] The total size of the 1 globals exported for future expression (‘FUN()’) is 56 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (56 bytes of class ‘function’) 1561s [00:52:41.775] - globals: [1] ‘FUN’ 1561s [00:52:41.775] 1561s [00:52:41.775] getGlobalsAndPackages() ... DONE 1561s [00:52:41.776] - globals found/used: [n=1] ‘FUN’ 1561s [00:52:41.776] - needed namespaces: [n=0] 1561s [00:52:41.776] Finding globals ... DONE 1561s [00:52:41.776] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1561s [00:52:41.776] List of 2 1561s [00:52:41.776] $ ...future.FUN:function (x, ...) 1561s [00:52:41.776] $ MoreArgs : NULL 1561s [00:52:41.776] - attr(*, "where")=List of 2 1561s [00:52:41.776] ..$ ...future.FUN: 1561s [00:52:41.776] ..$ MoreArgs : 1561s [00:52:41.776] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1561s [00:52:41.776] - attr(*, "resolved")= logi FALSE 1561s [00:52:41.776] - attr(*, "total_size")= num NA 1561s [00:52:41.780] Packages to be attached in all futures: [n=0] 1561s [00:52:41.780] getGlobalsAndPackagesXApply() ... DONE 1561s [00:52:41.781] Number of futures (= number of chunks): 1 1561s [00:52:41.781] Launching 1 futures (chunks) ... 1561s [00:52:41.781] Chunk #1 of 1 ... 1561s [00:52:41.781] - Finding globals in '...' for chunk #1 ... 1561s [00:52:41.781] getGlobalsAndPackages() ... 1561s [00:52:41.782] Searching for globals... 1561s [00:52:41.782] 1561s [00:52:41.782] Searching for globals ... DONE 1561s [00:52:41.782] - globals: [0] 1561s [00:52:41.782] getGlobalsAndPackages() ... DONE 1561s [00:52:41.783] + additional globals found: [n=0] 1561s [00:52:41.783] + additional namespaces needed: [n=0] 1561s [00:52:41.783] - Finding globals in '...' for chunk #1 ... DONE 1561s [00:52:41.783] - seeds: 1561s [00:52:41.783] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:41.784] getGlobalsAndPackages() ... 1561s [00:52:41.784] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:41.784] Resolving globals: FALSE 1561s [00:52:41.785] The total size of the 5 globals is 504 bytes (504 bytes) 1561s [00:52:41.785] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 504 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.elements_ii’ (448 bytes of class ‘list’), ‘...future.FUN’ (56 bytes of class ‘function’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1561s [00:52:41.786] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:41.786] 1561s [00:52:41.787] getGlobalsAndPackages() ... DONE 1561s [00:52:41.787] run() for ‘Future’ ... 1561s [00:52:41.787] - state: ‘created’ 1561s [00:52:41.787] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1561s [00:52:41.793] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1561s [00:52:41.793] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1561s [00:52:41.793] - Field: ‘label’ 1561s [00:52:41.793] - Field: ‘local’ 1561s [00:52:41.793] - Field: ‘owner’ 1561s [00:52:41.794] - Field: ‘envir’ 1561s [00:52:41.794] - Field: ‘packages’ 1561s [00:52:41.794] - Field: ‘gc’ 1561s [00:52:41.795] - Field: ‘conditions’ 1561s [00:52:41.795] - Field: ‘expr’ 1561s [00:52:41.795] - Field: ‘uuid’ 1561s [00:52:41.795] - Field: ‘seed’ 1561s [00:52:41.795] - Field: ‘version’ 1561s [00:52:41.796] - Field: ‘result’ 1561s [00:52:41.796] - Field: ‘asynchronous’ 1561s [00:52:41.796] - Field: ‘calls’ 1561s [00:52:41.796] - Field: ‘globals’ 1561s [00:52:41.796] - Field: ‘stdout’ 1561s [00:52:41.796] - Field: ‘earlySignal’ 1561s [00:52:41.797] - Field: ‘lazy’ 1561s [00:52:41.797] - Field: ‘state’ 1561s [00:52:41.797] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1561s [00:52:41.797] - Launch lazy future ... 1561s [00:52:41.797] Packages needed by the future expression (n = 0): 1561s [00:52:41.797] Packages needed by future strategies (n = 0): 1561s [00:52:41.798] { 1561s [00:52:41.798] { 1561s [00:52:41.798] { 1561s [00:52:41.798] ...future.startTime <- base::Sys.time() 1561s [00:52:41.798] { 1561s [00:52:41.798] { 1561s [00:52:41.798] { 1561s [00:52:41.798] base::local({ 1561s [00:52:41.798] has_future <- base::requireNamespace("future", 1561s [00:52:41.798] quietly = TRUE) 1561s [00:52:41.798] if (has_future) { 1561s [00:52:41.798] ns <- base::getNamespace("future") 1561s [00:52:41.798] version <- ns[[".package"]][["version"]] 1561s [00:52:41.798] if (is.null(version)) 1561s [00:52:41.798] version <- utils::packageVersion("future") 1561s [00:52:41.798] } 1561s [00:52:41.798] else { 1561s [00:52:41.798] version <- NULL 1561s [00:52:41.798] } 1561s [00:52:41.798] if (!has_future || version < "1.8.0") { 1561s [00:52:41.798] info <- base::c(r_version = base::gsub("R version ", 1561s [00:52:41.798] "", base::R.version$version.string), 1561s [00:52:41.798] platform = base::sprintf("%s (%s-bit)", 1561s [00:52:41.798] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1561s [00:52:41.798] os = base::paste(base::Sys.info()[base::c("sysname", 1561s [00:52:41.798] "release", "version")], collapse = " "), 1561s [00:52:41.798] hostname = base::Sys.info()[["nodename"]]) 1561s [00:52:41.798] info <- base::sprintf("%s: %s", base::names(info), 1561s [00:52:41.798] info) 1561s [00:52:41.798] info <- base::paste(info, collapse = "; ") 1561s [00:52:41.798] if (!has_future) { 1561s [00:52:41.798] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1561s [00:52:41.798] info) 1561s [00:52:41.798] } 1561s [00:52:41.798] else { 1561s [00:52:41.798] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1561s [00:52:41.798] info, version) 1561s [00:52:41.798] } 1561s [00:52:41.798] base::stop(msg) 1561s [00:52:41.798] } 1561s [00:52:41.798] }) 1561s [00:52:41.798] } 1561s [00:52:41.798] options(future.plan = NULL) 1561s [00:52:41.798] Sys.unsetenv("R_FUTURE_PLAN") 1561s [00:52:41.798] future::plan("default", .cleanup = FALSE, .init = FALSE) 1561s [00:52:41.798] } 1561s [00:52:41.798] ...future.workdir <- getwd() 1561s [00:52:41.798] } 1561s [00:52:41.798] ...future.oldOptions <- base::as.list(base::.Options) 1561s [00:52:41.798] ...future.oldEnvVars <- base::Sys.getenv() 1561s [00:52:41.798] } 1561s [00:52:41.798] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1561s [00:52:41.798] future.globals.maxSize = NULL, future.globals.method = NULL, 1561s [00:52:41.798] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1561s [00:52:41.798] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1561s [00:52:41.798] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1561s [00:52:41.798] future.stdout.windows.reencode = NULL, width = 80L) 1561s [00:52:41.798] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1561s [00:52:41.798] base::names(...future.oldOptions)) 1561s [00:52:41.798] } 1561s [00:52:41.798] if (FALSE) { 1561s [00:52:41.798] } 1561s [00:52:41.798] else { 1561s [00:52:41.798] if (TRUE) { 1561s [00:52:41.798] ...future.stdout <- base::rawConnection(base::raw(0L), 1561s [00:52:41.798] open = "w") 1561s [00:52:41.798] } 1561s [00:52:41.798] else { 1561s [00:52:41.798] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1561s [00:52:41.798] windows = "NUL", "/dev/null"), open = "w") 1561s [00:52:41.798] } 1561s [00:52:41.798] base::sink(...future.stdout, type = "output", split = FALSE) 1561s [00:52:41.798] base::on.exit(if (!base::is.null(...future.stdout)) { 1561s [00:52:41.798] base::sink(type = "output", split = FALSE) 1561s [00:52:41.798] base::close(...future.stdout) 1561s [00:52:41.798] }, add = TRUE) 1561s [00:52:41.798] } 1561s [00:52:41.798] ...future.frame <- base::sys.nframe() 1561s [00:52:41.798] ...future.conditions <- base::list() 1561s [00:52:41.798] ...future.rng <- base::globalenv()$.Random.seed 1561s [00:52:41.798] if (FALSE) { 1561s [00:52:41.798] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1561s [00:52:41.798] "...future.value", "...future.globalenv.names", ".Random.seed") 1561s [00:52:41.798] } 1561s [00:52:41.798] ...future.result <- base::tryCatch({ 1561s [00:52:41.798] base::withCallingHandlers({ 1561s [00:52:41.798] ...future.value <- base::withVisible(base::local({ 1561s [00:52:41.798] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1561s [00:52:41.798] if (!identical(...future.globals.maxSize.org, 1561s [00:52:41.798] ...future.globals.maxSize)) { 1561s [00:52:41.798] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1561s [00:52:41.798] on.exit(options(oopts), add = TRUE) 1561s [00:52:41.798] } 1561s [00:52:41.798] { 1561s [00:52:41.798] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1561s [00:52:41.798] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1561s [00:52:41.798] USE.NAMES = FALSE) 1561s [00:52:41.798] do.call(mapply, args = args) 1561s [00:52:41.798] } 1561s [00:52:41.798] })) 1561s [00:52:41.798] future::FutureResult(value = ...future.value$value, 1561s [00:52:41.798] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1561s [00:52:41.798] ...future.rng), globalenv = if (FALSE) 1561s [00:52:41.798] list(added = base::setdiff(base::names(base::.GlobalEnv), 1561s [00:52:41.798] ...future.globalenv.names)) 1561s [00:52:41.798] else NULL, started = ...future.startTime, version = "1.8") 1561s [00:52:41.798] }, condition = base::local({ 1561s [00:52:41.798] c <- base::c 1561s [00:52:41.798] inherits <- base::inherits 1561s [00:52:41.798] invokeRestart <- base::invokeRestart 1561s [00:52:41.798] length <- base::length 1561s [00:52:41.798] list <- base::list 1561s [00:52:41.798] seq.int <- base::seq.int 1561s [00:52:41.798] signalCondition <- base::signalCondition 1561s [00:52:41.798] sys.calls <- base::sys.calls 1561s [00:52:41.798] `[[` <- base::`[[` 1561s [00:52:41.798] `+` <- base::`+` 1561s [00:52:41.798] `<<-` <- base::`<<-` 1561s [00:52:41.798] sysCalls <- function(calls = sys.calls(), from = 1L) { 1561s [00:52:41.798] calls[seq.int(from = from + 12L, to = length(calls) - 1561s [00:52:41.798] 3L)] 1561s [00:52:41.798] } 1561s [00:52:41.798] function(cond) { 1561s [00:52:41.798] is_error <- inherits(cond, "error") 1561s [00:52:41.798] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1561s [00:52:41.798] NULL) 1561s [00:52:41.798] if (is_error) { 1561s [00:52:41.798] sessionInformation <- function() { 1561s [00:52:41.798] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1561s [00:52:41.798] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1561s [00:52:41.798] search = base::search(), system = base::Sys.info()) 1561s [00:52:41.798] } 1561s [00:52:41.798] ...future.conditions[[length(...future.conditions) + 1561s [00:52:41.798] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1561s [00:52:41.798] cond$call), session = sessionInformation(), 1561s [00:52:41.798] timestamp = base::Sys.time(), signaled = 0L) 1561s [00:52:41.798] signalCondition(cond) 1561s [00:52:41.798] } 1561s [00:52:41.798] else if (!ignore && TRUE && inherits(cond, c("condition", 1561s [00:52:41.798] "immediateCondition"))) { 1561s [00:52:41.798] signal <- TRUE && inherits(cond, "immediateCondition") 1561s [00:52:41.798] ...future.conditions[[length(...future.conditions) + 1561s [00:52:41.798] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1561s [00:52:41.798] if (TRUE && !signal) { 1561s [00:52:41.798] muffleCondition <- function (cond, pattern = "^muffle") 1561s [00:52:41.798] { 1561s [00:52:41.798] inherits <- base::inherits 1561s [00:52:41.798] invokeRestart <- base::invokeRestart 1561s [00:52:41.798] is.null <- base::is.null 1561s [00:52:41.798] muffled <- FALSE 1561s [00:52:41.798] if (inherits(cond, "message")) { 1561s [00:52:41.798] muffled <- grepl(pattern, "muffleMessage") 1561s [00:52:41.798] if (muffled) 1561s [00:52:41.798] invokeRestart("muffleMessage") 1561s [00:52:41.798] } 1561s [00:52:41.798] else if (inherits(cond, "warning")) { 1561s [00:52:41.798] muffled <- grepl(pattern, "muffleWarning") 1561s [00:52:41.798] if (muffled) 1561s [00:52:41.798] invokeRestart("muffleWarning") 1561s [00:52:41.798] } 1561s [00:52:41.798] else if (inherits(cond, "condition")) { 1561s [00:52:41.798] if (!is.null(pattern)) { 1561s [00:52:41.798] computeRestarts <- base::computeRestarts 1561s [00:52:41.798] grepl <- base::grepl 1561s [00:52:41.798] restarts <- computeRestarts(cond) 1561s [00:52:41.798] for (restart in restarts) { 1561s [00:52:41.798] name <- restart$name 1561s [00:52:41.798] if (is.null(name)) 1561s [00:52:41.798] next 1561s [00:52:41.798] if (!grepl(pattern, name)) 1561s [00:52:41.798] next 1561s [00:52:41.798] invokeRestart(restart) 1561s [00:52:41.798] muffled <- TRUE 1561s [00:52:41.798] break 1561s [00:52:41.798] } 1561s [00:52:41.798] } 1561s [00:52:41.798] } 1561s [00:52:41.798] invisible(muffled) 1561s [00:52:41.798] } 1561s [00:52:41.798] muffleCondition(cond, pattern = "^muffle") 1561s [00:52:41.798] } 1561s [00:52:41.798] } 1561s [00:52:41.798] else { 1561s [00:52:41.798] if (TRUE) { 1561s [00:52:41.798] muffleCondition <- function (cond, pattern = "^muffle") 1561s [00:52:41.798] { 1561s [00:52:41.798] inherits <- base::inherits 1561s [00:52:41.798] invokeRestart <- base::invokeRestart 1561s [00:52:41.798] is.null <- base::is.null 1561s [00:52:41.798] muffled <- FALSE 1561s [00:52:41.798] if (inherits(cond, "message")) { 1561s [00:52:41.798] muffled <- grepl(pattern, "muffleMessage") 1561s [00:52:41.798] if (muffled) 1561s [00:52:41.798] invokeRestart("muffleMessage") 1561s [00:52:41.798] } 1561s [00:52:41.798] else if (inherits(cond, "warning")) { 1561s [00:52:41.798] muffled <- grepl(pattern, "muffleWarning") 1561s [00:52:41.798] if (muffled) 1561s [00:52:41.798] invokeRestart("muffleWarning") 1561s [00:52:41.798] } 1561s [00:52:41.798] else if (inherits(cond, "condition")) { 1561s [00:52:41.798] if (!is.null(pattern)) { 1561s [00:52:41.798] computeRestarts <- base::computeRestarts 1561s [00:52:41.798] grepl <- base::grepl 1561s [00:52:41.798] restarts <- computeRestarts(cond) 1561s [00:52:41.798] for (restart in restarts) { 1561s [00:52:41.798] name <- restart$name 1561s [00:52:41.798] if (is.null(name)) 1561s [00:52:41.798] next 1561s [00:52:41.798] if (!grepl(pattern, name)) 1561s [00:52:41.798] next 1561s [00:52:41.798] invokeRestart(restart) 1561s [00:52:41.798] muffled <- TRUE 1561s [00:52:41.798] break 1561s [00:52:41.798] } 1561s [00:52:41.798] } 1561s [00:52:41.798] } 1561s [00:52:41.798] invisible(muffled) 1561s [00:52:41.798] } 1561s [00:52:41.798] muffleCondition(cond, pattern = "^muffle") 1561s [00:52:41.798] } 1561s [00:52:41.798] } 1561s [00:52:41.798] } 1561s [00:52:41.798] })) 1561s [00:52:41.798] }, error = function(ex) { 1561s [00:52:41.798] base::structure(base::list(value = NULL, visible = NULL, 1561s [00:52:41.798] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1561s [00:52:41.798] ...future.rng), started = ...future.startTime, 1561s [00:52:41.798] finished = Sys.time(), session_uuid = NA_character_, 1561s [00:52:41.798] version = "1.8"), class = "FutureResult") 1561s [00:52:41.798] }, finally = { 1561s [00:52:41.798] if (!identical(...future.workdir, getwd())) 1561s [00:52:41.798] setwd(...future.workdir) 1561s [00:52:41.798] { 1561s [00:52:41.798] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1561s [00:52:41.798] ...future.oldOptions$nwarnings <- NULL 1561s [00:52:41.798] } 1561s [00:52:41.798] base::options(...future.oldOptions) 1561s [00:52:41.798] if (.Platform$OS.type == "windows") { 1561s [00:52:41.798] old_names <- names(...future.oldEnvVars) 1561s [00:52:41.798] envs <- base::Sys.getenv() 1561s [00:52:41.798] names <- names(envs) 1561s [00:52:41.798] common <- intersect(names, old_names) 1561s [00:52:41.798] added <- setdiff(names, old_names) 1561s [00:52:41.798] removed <- setdiff(old_names, names) 1561s [00:52:41.798] changed <- common[...future.oldEnvVars[common] != 1561s [00:52:41.798] envs[common]] 1561s [00:52:41.798] NAMES <- toupper(changed) 1561s [00:52:41.798] args <- list() 1561s [00:52:41.798] for (kk in seq_along(NAMES)) { 1561s [00:52:41.798] name <- changed[[kk]] 1561s [00:52:41.798] NAME <- NAMES[[kk]] 1561s [00:52:41.798] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:41.798] next 1561s [00:52:41.798] args[[name]] <- ...future.oldEnvVars[[name]] 1561s [00:52:41.798] } 1561s [00:52:41.798] NAMES <- toupper(added) 1561s [00:52:41.798] for (kk in seq_along(NAMES)) { 1561s [00:52:41.798] name <- added[[kk]] 1561s [00:52:41.798] NAME <- NAMES[[kk]] 1561s [00:52:41.798] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:41.798] next 1561s [00:52:41.798] args[[name]] <- "" 1561s [00:52:41.798] } 1561s [00:52:41.798] NAMES <- toupper(removed) 1561s [00:52:41.798] for (kk in seq_along(NAMES)) { 1561s [00:52:41.798] name <- removed[[kk]] 1561s [00:52:41.798] NAME <- NAMES[[kk]] 1561s [00:52:41.798] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:41.798] next 1561s [00:52:41.798] args[[name]] <- ...future.oldEnvVars[[name]] 1561s [00:52:41.798] } 1561s [00:52:41.798] if (length(args) > 0) 1561s [00:52:41.798] base::do.call(base::Sys.setenv, args = args) 1561s [00:52:41.798] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1561s [00:52:41.798] } 1561s [00:52:41.798] else { 1561s [00:52:41.798] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1561s [00:52:41.798] } 1561s [00:52:41.798] { 1561s [00:52:41.798] if (base::length(...future.futureOptionsAdded) > 1561s [00:52:41.798] 0L) { 1561s [00:52:41.798] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1561s [00:52:41.798] base::names(opts) <- ...future.futureOptionsAdded 1561s [00:52:41.798] base::options(opts) 1561s [00:52:41.798] } 1561s [00:52:41.798] { 1561s [00:52:41.798] { 1561s [00:52:41.798] base::assign(".Random.seed", c(10407L, 2079749599L, 1561s [00:52:41.798] -1712504007L, 90762767L, 511132818L, -526970845L, 1561s [00:52:41.798] -1057805512L), envir = base::globalenv(), 1561s [00:52:41.798] inherits = FALSE) 1561s [00:52:41.798] NULL 1561s [00:52:41.798] } 1561s [00:52:41.798] options(future.plan = NULL) 1561s [00:52:41.798] if (is.na(NA_character_)) 1561s [00:52:41.798] Sys.unsetenv("R_FUTURE_PLAN") 1561s [00:52:41.798] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1561s [00:52:41.798] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1561s [00:52:41.798] envir = parent.frame()) 1561s [00:52:41.798] { 1561s [00:52:41.798] default_workers <- missing(workers) 1561s [00:52:41.798] if (is.function(workers)) 1561s [00:52:41.798] workers <- workers() 1561s [00:52:41.798] workers <- structure(as.integer(workers), 1561s [00:52:41.798] class = class(workers)) 1561s [00:52:41.798] stop_if_not(is.finite(workers), workers >= 1561s [00:52:41.798] 1L) 1561s [00:52:41.798] if ((workers == 1L && !inherits(workers, 1561s [00:52:41.798] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1561s [00:52:41.798] if (default_workers) 1561s [00:52:41.798] supportsMulticore(warn = TRUE) 1561s [00:52:41.798] return(sequential(..., envir = envir)) 1561s [00:52:41.798] } 1561s [00:52:41.798] oopts <- options(mc.cores = workers) 1561s [00:52:41.798] on.exit(options(oopts)) 1561s [00:52:41.798] future <- MulticoreFuture(..., workers = workers, 1561s [00:52:41.798] envir = envir) 1561s [00:52:41.798] if (!future$lazy) 1561s [00:52:41.798] future <- run(future) 1561s [00:52:41.798] invisible(future) 1561s [00:52:41.798] }), .cleanup = FALSE, .init = FALSE) 1561s [00:52:41.798] } 1561s [00:52:41.798] } 1561s [00:52:41.798] } 1561s [00:52:41.798] }) 1561s [00:52:41.798] if (TRUE) { 1561s [00:52:41.798] base::sink(type = "output", split = FALSE) 1561s [00:52:41.798] if (TRUE) { 1561s [00:52:41.798] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1561s [00:52:41.798] } 1561s [00:52:41.798] else { 1561s [00:52:41.798] ...future.result["stdout"] <- base::list(NULL) 1561s [00:52:41.798] } 1561s [00:52:41.798] base::close(...future.stdout) 1561s [00:52:41.798] ...future.stdout <- NULL 1561s [00:52:41.798] } 1561s [00:52:41.798] ...future.result$conditions <- ...future.conditions 1561s [00:52:41.798] ...future.result$finished <- base::Sys.time() 1561s [00:52:41.798] ...future.result 1561s [00:52:41.798] } 1561s [00:52:41.803] assign_globals() ... 1561s [00:52:41.803] List of 5 1561s [00:52:41.803] $ ...future.FUN :function (x, ...) 1561s [00:52:41.803] $ MoreArgs : NULL 1561s [00:52:41.803] $ ...future.elements_ii :List of 2 1561s [00:52:41.803] ..$ times:List of 4 1561s [00:52:41.803] .. ..$ : int 1 1561s [00:52:41.803] .. ..$ : int 2 1561s [00:52:41.803] .. ..$ : int 3 1561s [00:52:41.803] .. ..$ : int 4 1561s [00:52:41.803] ..$ x :List of 4 1561s [00:52:41.803] .. ..$ : int 4 1561s [00:52:41.803] .. ..$ : int 3 1561s [00:52:41.803] .. ..$ : int 2 1561s [00:52:41.803] .. ..$ : int 1 1561s [00:52:41.803] $ ...future.seeds_ii : NULL 1561s [00:52:41.803] $ ...future.globals.maxSize: NULL 1561s [00:52:41.803] - attr(*, "where")=List of 5 1561s [00:52:41.803] ..$ ...future.FUN : 1561s [00:52:41.803] ..$ MoreArgs : 1561s [00:52:41.803] ..$ ...future.elements_ii : 1561s [00:52:41.803] ..$ ...future.seeds_ii : 1561s [00:52:41.803] ..$ ...future.globals.maxSize: 1561s [00:52:41.803] - attr(*, "resolved")= logi FALSE 1561s [00:52:41.803] - attr(*, "total_size")= num 504 1561s [00:52:41.803] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1561s [00:52:41.803] - attr(*, "already-done")= logi TRUE 1561s [00:52:41.813] - copied ‘...future.FUN’ to environment 1561s [00:52:41.814] - copied ‘MoreArgs’ to environment 1561s [00:52:41.814] - copied ‘...future.elements_ii’ to environment 1561s [00:52:41.814] - copied ‘...future.seeds_ii’ to environment 1561s [00:52:41.814] - copied ‘...future.globals.maxSize’ to environment 1561s [00:52:41.814] assign_globals() ... done 1561s [00:52:41.814] plan(): Setting new future strategy stack: 1561s [00:52:41.815] List of future strategies: 1561s [00:52:41.815] 1. sequential: 1561s [00:52:41.815] - args: function (..., envir = parent.frame()) 1561s [00:52:41.815] - tweaked: FALSE 1561s [00:52:41.815] - call: NULL 1561s [00:52:41.815] plan(): nbrOfWorkers() = 1 1561s [00:52:41.816] plan(): Setting new future strategy stack: 1561s [00:52:41.816] List of future strategies: 1561s [00:52:41.816] 1. multicore: 1561s [00:52:41.816] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1561s [00:52:41.816] - tweaked: FALSE 1561s [00:52:41.816] - call: plan(strategy) 1561s [00:52:41.820] plan(): nbrOfWorkers() = 1 1561s [00:52:41.820] SequentialFuture started (and completed) 1561s [00:52:41.820] - Launch lazy future ... done 1561s [00:52:41.821] run() for ‘SequentialFuture’ ... done 1561s [00:52:41.821] Created future: 1561s [00:52:41.821] SequentialFuture: 1561s [00:52:41.821] Label: ‘future_mapply-1’ 1561s [00:52:41.821] Expression: 1561s [00:52:41.821] { 1561s [00:52:41.821] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1561s [00:52:41.821] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1561s [00:52:41.821] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1561s [00:52:41.821] on.exit(options(oopts), add = TRUE) 1561s [00:52:41.821] } 1561s [00:52:41.821] { 1561s [00:52:41.821] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1561s [00:52:41.821] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1561s [00:52:41.821] do.call(mapply, args = args) 1561s [00:52:41.821] } 1561s [00:52:41.821] } 1561s [00:52:41.821] Lazy evaluation: FALSE 1561s [00:52:41.821] Asynchronous evaluation: FALSE 1561s [00:52:41.821] Local evaluation: TRUE 1561s [00:52:41.821] Environment: R_GlobalEnv 1561s [00:52:41.821] Capture standard output: TRUE 1561s [00:52:41.821] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1561s [00:52:41.821] Globals: 5 objects totaling 504 bytes (function ‘...future.FUN’ of 56 bytes, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 448 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1561s [00:52:41.821] Packages: 1561s [00:52:41.821] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1561s [00:52:41.821] Resolved: TRUE 1561s [00:52:41.821] Value: 240 bytes of class ‘list’ 1561s [00:52:41.821] Early signaling: FALSE 1561s [00:52:41.821] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1561s [00:52:41.821] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1561s [00:52:41.823] Chunk #1 of 1 ... DONE 1561s [00:52:41.823] Launching 1 futures (chunks) ... DONE 1561s [00:52:41.823] Resolving 1 futures (chunks) ... 1561s [00:52:41.823] resolve() on list ... 1561s [00:52:41.823] recursive: 0 1561s [00:52:41.823] length: 1 1561s [00:52:41.823] 1561s [00:52:41.824] resolved() for ‘SequentialFuture’ ... 1561s [00:52:41.824] - state: ‘finished’ 1561s [00:52:41.824] - run: TRUE 1561s [00:52:41.824] - result: ‘FutureResult’ 1561s [00:52:41.824] resolved() for ‘SequentialFuture’ ... done 1561s [00:52:41.825] Future #1 1561s [00:52:41.825] signalConditionsASAP(SequentialFuture, pos=1) ... 1561s [00:52:41.825] - nx: 1 1561s [00:52:41.825] - relay: TRUE 1561s [00:52:41.825] - stdout: TRUE 1561s [00:52:41.825] - signal: TRUE 1561s [00:52:41.825] - resignal: FALSE 1561s [00:52:41.826] - force: TRUE 1561s [00:52:41.826] - relayed: [n=1] FALSE 1561s [00:52:41.826] - queued futures: [n=1] FALSE 1561s [00:52:41.826] - until=1 1561s [00:52:41.826] - relaying element #1 1561s [00:52:41.827] - relayed: [n=1] TRUE 1561s [00:52:41.827] - queued futures: [n=1] TRUE 1561s [00:52:41.827] signalConditionsASAP(SequentialFuture, pos=1) ... done 1561s [00:52:41.827] length: 0 (resolved future 1) 1561s [00:52:41.827] Relaying remaining futures 1561s [00:52:41.828] signalConditionsASAP(NULL, pos=0) ... 1561s [00:52:41.828] - nx: 1 1561s [00:52:41.828] - relay: TRUE 1561s [00:52:41.828] - stdout: TRUE 1561s [00:52:41.828] - signal: TRUE 1561s [00:52:41.828] - resignal: FALSE 1561s [00:52:41.828] - force: TRUE 1561s [00:52:41.829] - relayed: [n=1] TRUE 1561s [00:52:41.829] - queued futures: [n=1] TRUE 1561s - flush all 1561s [00:52:41.829] - relayed: [n=1] TRUE 1561s [00:52:41.829] - queued futures: [n=1] TRUE 1561s [00:52:41.829] signalConditionsASAP(NULL, pos=0) ... done 1561s [00:52:41.829] resolve() on list ... DONE 1561s [00:52:41.833] - Number of value chunks collected: 1 1561s [00:52:41.834] Resolving 1 futures (chunks) ... DONE 1561s [00:52:41.834] Reducing values from 1 chunks ... 1561s [00:52:41.834] - Number of values collected after concatenation: 4 1561s [00:52:41.834] - Number of values expected: 4 1561s [00:52:41.835] Reducing values from 1 chunks ... DONE 1561s [00:52:41.835] future_mapply() ... DONE 1561s [00:52:41.835] future_mapply() ... 1561s [00:52:41.839] Number of chunks: 1 1561s [00:52:41.840] getGlobalsAndPackagesXApply() ... 1561s [00:52:41.840] - future.globals: TRUE 1561s [00:52:41.840] getGlobalsAndPackages() ... 1561s [00:52:41.840] Searching for globals... 1561s [00:52:41.841] - globals found: [1] ‘FUN’ 1561s [00:52:41.841] Searching for globals ... DONE 1561s [00:52:41.841] Resolving globals: FALSE 1561s [00:52:41.842] The total size of the 1 globals is 56 bytes (56 bytes) 1561s [00:52:41.843] The total size of the 1 globals exported for future expression (‘FUN(x = 42)’) is 56 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (56 bytes of class ‘function’) 1561s [00:52:41.843] - globals: [1] ‘FUN’ 1561s [00:52:41.843] 1561s [00:52:41.843] getGlobalsAndPackages() ... DONE 1561s [00:52:41.844] - globals found/used: [n=1] ‘FUN’ 1561s [00:52:41.844] - needed namespaces: [n=0] 1561s [00:52:41.844] Finding globals ... DONE 1561s [00:52:41.844] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1561s [00:52:41.845] List of 2 1561s [00:52:41.845] $ ...future.FUN:function (x, ...) 1561s [00:52:41.845] $ MoreArgs :List of 1 1561s [00:52:41.845] ..$ x: num 42 1561s [00:52:41.845] - attr(*, "where")=List of 2 1561s [00:52:41.845] ..$ ...future.FUN: 1561s [00:52:41.845] ..$ MoreArgs : 1561s [00:52:41.845] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1561s [00:52:41.845] - attr(*, "resolved")= logi FALSE 1561s [00:52:41.845] - attr(*, "total_size")= num NA 1561s [00:52:41.849] Packages to be attached in all futures: [n=0] 1561s [00:52:41.849] getGlobalsAndPackagesXApply() ... DONE 1561s [00:52:41.849] Number of futures (= number of chunks): 1 1561s [00:52:41.849] Launching 1 futures (chunks) ... 1561s [00:52:41.849] Chunk #1 of 1 ... 1561s [00:52:41.849] - Finding globals in '...' for chunk #1 ... 1561s [00:52:41.850] getGlobalsAndPackages() ... 1561s [00:52:41.850] Searching for globals... 1561s [00:52:41.850] 1561s [00:52:41.850] Searching for globals ... DONE 1561s [00:52:41.850] - globals: [0] 1561s [00:52:41.851] getGlobalsAndPackages() ... DONE 1561s [00:52:41.851] + additional globals found: [n=0] 1561s [00:52:41.851] + additional namespaces needed: [n=0] 1561s [00:52:41.851] - Finding globals in '...' for chunk #1 ... DONE 1561s [00:52:41.851] - seeds: 1561s [00:52:41.851] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:41.852] getGlobalsAndPackages() ... 1561s [00:52:41.852] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:41.852] Resolving globals: FALSE 1561s [00:52:41.853] The total size of the 5 globals is 336 bytes (336 bytes) 1561s [00:52:41.854] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 336 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.elements_ii’ (224 bytes of class ‘list’), ‘...future.FUN’ (56 bytes of class ‘function’) and ‘MoreArgs’ (56 bytes of class ‘list’) 1561s [00:52:41.854] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:41.854] 1561s [00:52:41.854] getGlobalsAndPackages() ... DONE 1561s [00:52:41.855] run() for ‘Future’ ... 1561s [00:52:41.855] - state: ‘created’ 1561s [00:52:41.856] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1561s [00:52:41.860] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1561s [00:52:41.861] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1561s [00:52:41.861] - Field: ‘label’ 1561s [00:52:41.861] - Field: ‘local’ 1561s [00:52:41.861] - Field: ‘owner’ 1561s [00:52:41.861] - Field: ‘envir’ 1561s [00:52:41.861] - Field: ‘packages’ 1561s [00:52:41.862] - Field: ‘gc’ 1561s [00:52:41.862] - Field: ‘conditions’ 1561s [00:52:41.862] - Field: ‘expr’ 1561s [00:52:41.862] - Field: ‘uuid’ 1561s [00:52:41.862] - Field: ‘seed’ 1561s [00:52:41.862] - Field: ‘version’ 1561s [00:52:41.862] - Field: ‘result’ 1561s [00:52:41.863] - Field: ‘asynchronous’ 1561s [00:52:41.863] - Field: ‘calls’ 1561s [00:52:41.863] - Field: ‘globals’ 1561s [00:52:41.863] - Field: ‘stdout’ 1561s [00:52:41.863] - Field: ‘earlySignal’ 1561s [00:52:41.863] - Field: ‘lazy’ 1561s [00:52:41.863] - Field: ‘state’ 1561s [00:52:41.863] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1561s [00:52:41.864] - Launch lazy future ... 1561s [00:52:41.864] Packages needed by the future expression (n = 0): 1561s [00:52:41.864] Packages needed by future strategies (n = 0): 1561s [00:52:41.864] { 1561s [00:52:41.864] { 1561s [00:52:41.864] { 1561s [00:52:41.864] ...future.startTime <- base::Sys.time() 1561s [00:52:41.864] { 1561s [00:52:41.864] { 1561s [00:52:41.864] { 1561s [00:52:41.864] base::local({ 1561s [00:52:41.864] has_future <- base::requireNamespace("future", 1561s [00:52:41.864] quietly = TRUE) 1561s [00:52:41.864] if (has_future) { 1561s [00:52:41.864] ns <- base::getNamespace("future") 1561s [00:52:41.864] version <- ns[[".package"]][["version"]] 1561s [00:52:41.864] if (is.null(version)) 1561s [00:52:41.864] version <- utils::packageVersion("future") 1561s [00:52:41.864] } 1561s [00:52:41.864] else { 1561s [00:52:41.864] version <- NULL 1561s [00:52:41.864] } 1561s [00:52:41.864] if (!has_future || version < "1.8.0") { 1561s [00:52:41.864] info <- base::c(r_version = base::gsub("R version ", 1561s [00:52:41.864] "", base::R.version$version.string), 1561s [00:52:41.864] platform = base::sprintf("%s (%s-bit)", 1561s [00:52:41.864] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1561s [00:52:41.864] os = base::paste(base::Sys.info()[base::c("sysname", 1561s [00:52:41.864] "release", "version")], collapse = " "), 1561s [00:52:41.864] hostname = base::Sys.info()[["nodename"]]) 1561s [00:52:41.864] info <- base::sprintf("%s: %s", base::names(info), 1561s [00:52:41.864] info) 1561s [00:52:41.864] info <- base::paste(info, collapse = "; ") 1561s [00:52:41.864] if (!has_future) { 1561s [00:52:41.864] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1561s [00:52:41.864] info) 1561s [00:52:41.864] } 1561s [00:52:41.864] else { 1561s [00:52:41.864] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1561s [00:52:41.864] info, version) 1561s [00:52:41.864] } 1561s [00:52:41.864] base::stop(msg) 1561s [00:52:41.864] } 1561s [00:52:41.864] }) 1561s [00:52:41.864] } 1561s [00:52:41.864] options(future.plan = NULL) 1561s [00:52:41.864] Sys.unsetenv("R_FUTURE_PLAN") 1561s [00:52:41.864] future::plan("default", .cleanup = FALSE, .init = FALSE) 1561s [00:52:41.864] } 1561s [00:52:41.864] ...future.workdir <- getwd() 1561s [00:52:41.864] } 1561s [00:52:41.864] ...future.oldOptions <- base::as.list(base::.Options) 1561s [00:52:41.864] ...future.oldEnvVars <- base::Sys.getenv() 1561s [00:52:41.864] } 1561s [00:52:41.864] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1561s [00:52:41.864] future.globals.maxSize = NULL, future.globals.method = NULL, 1561s [00:52:41.864] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1561s [00:52:41.864] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1561s [00:52:41.864] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1561s [00:52:41.864] future.stdout.windows.reencode = NULL, width = 80L) 1561s [00:52:41.864] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1561s [00:52:41.864] base::names(...future.oldOptions)) 1561s [00:52:41.864] } 1561s [00:52:41.864] if (FALSE) { 1561s [00:52:41.864] } 1561s [00:52:41.864] else { 1561s [00:52:41.864] if (TRUE) { 1561s [00:52:41.864] ...future.stdout <- base::rawConnection(base::raw(0L), 1561s [00:52:41.864] open = "w") 1561s [00:52:41.864] } 1561s [00:52:41.864] else { 1561s [00:52:41.864] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1561s [00:52:41.864] windows = "NUL", "/dev/null"), open = "w") 1561s [00:52:41.864] } 1561s [00:52:41.864] base::sink(...future.stdout, type = "output", split = FALSE) 1561s [00:52:41.864] base::on.exit(if (!base::is.null(...future.stdout)) { 1561s [00:52:41.864] base::sink(type = "output", split = FALSE) 1561s [00:52:41.864] base::close(...future.stdout) 1561s [00:52:41.864] }, add = TRUE) 1561s [00:52:41.864] } 1561s [00:52:41.864] ...future.frame <- base::sys.nframe() 1561s [00:52:41.864] ...future.conditions <- base::list() 1561s [00:52:41.864] ...future.rng <- base::globalenv()$.Random.seed 1561s [00:52:41.864] if (FALSE) { 1561s [00:52:41.864] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1561s [00:52:41.864] "...future.value", "...future.globalenv.names", ".Random.seed") 1561s [00:52:41.864] } 1561s [00:52:41.864] ...future.result <- base::tryCatch({ 1561s [00:52:41.864] base::withCallingHandlers({ 1561s [00:52:41.864] ...future.value <- base::withVisible(base::local({ 1561s [00:52:41.864] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1561s [00:52:41.864] if (!identical(...future.globals.maxSize.org, 1561s [00:52:41.864] ...future.globals.maxSize)) { 1561s [00:52:41.864] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1561s [00:52:41.864] on.exit(options(oopts), add = TRUE) 1561s [00:52:41.864] } 1561s [00:52:41.864] { 1561s [00:52:41.864] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1561s [00:52:41.864] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1561s [00:52:41.864] USE.NAMES = FALSE) 1561s [00:52:41.864] do.call(mapply, args = args) 1561s [00:52:41.864] } 1561s [00:52:41.864] })) 1561s [00:52:41.864] future::FutureResult(value = ...future.value$value, 1561s [00:52:41.864] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1561s [00:52:41.864] ...future.rng), globalenv = if (FALSE) 1561s [00:52:41.864] list(added = base::setdiff(base::names(base::.GlobalEnv), 1561s [00:52:41.864] ...future.globalenv.names)) 1561s [00:52:41.864] else NULL, started = ...future.startTime, version = "1.8") 1561s [00:52:41.864] }, condition = base::local({ 1561s [00:52:41.864] c <- base::c 1561s [00:52:41.864] inherits <- base::inherits 1561s [00:52:41.864] invokeRestart <- base::invokeRestart 1561s [00:52:41.864] length <- base::length 1561s [00:52:41.864] list <- base::list 1561s [00:52:41.864] seq.int <- base::seq.int 1561s [00:52:41.864] signalCondition <- base::signalCondition 1561s [00:52:41.864] sys.calls <- base::sys.calls 1561s [00:52:41.864] `[[` <- base::`[[` 1561s [00:52:41.864] `+` <- base::`+` 1561s [00:52:41.864] `<<-` <- base::`<<-` 1561s [00:52:41.864] sysCalls <- function(calls = sys.calls(), from = 1L) { 1561s [00:52:41.864] calls[seq.int(from = from + 12L, to = length(calls) - 1561s [00:52:41.864] 3L)] 1561s [00:52:41.864] } 1561s [00:52:41.864] function(cond) { 1561s [00:52:41.864] is_error <- inherits(cond, "error") 1561s [00:52:41.864] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1561s [00:52:41.864] NULL) 1561s [00:52:41.864] if (is_error) { 1561s [00:52:41.864] sessionInformation <- function() { 1561s [00:52:41.864] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1561s [00:52:41.864] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1561s [00:52:41.864] search = base::search(), system = base::Sys.info()) 1561s [00:52:41.864] } 1561s [00:52:41.864] ...future.conditions[[length(...future.conditions) + 1561s [00:52:41.864] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1561s [00:52:41.864] cond$call), session = sessionInformation(), 1561s [00:52:41.864] timestamp = base::Sys.time(), signaled = 0L) 1561s [00:52:41.864] signalCondition(cond) 1561s [00:52:41.864] } 1561s [00:52:41.864] else if (!ignore && TRUE && inherits(cond, c("condition", 1561s [00:52:41.864] "immediateCondition"))) { 1561s [00:52:41.864] signal <- TRUE && inherits(cond, "immediateCondition") 1561s [00:52:41.864] ...future.conditions[[length(...future.conditions) + 1561s [00:52:41.864] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1561s [00:52:41.864] if (TRUE && !signal) { 1561s [00:52:41.864] muffleCondition <- function (cond, pattern = "^muffle") 1561s [00:52:41.864] { 1561s [00:52:41.864] inherits <- base::inherits 1561s [00:52:41.864] invokeRestart <- base::invokeRestart 1561s [00:52:41.864] is.null <- base::is.null 1561s [00:52:41.864] muffled <- FALSE 1561s [00:52:41.864] if (inherits(cond, "message")) { 1561s [00:52:41.864] muffled <- grepl(pattern, "muffleMessage") 1561s [00:52:41.864] if (muffled) 1561s [00:52:41.864] invokeRestart("muffleMessage") 1561s [00:52:41.864] } 1561s [00:52:41.864] else if (inherits(cond, "warning")) { 1561s [00:52:41.864] muffled <- grepl(pattern, "muffleWarning") 1561s [00:52:41.864] if (muffled) 1561s [00:52:41.864] invokeRestart("muffleWarning") 1561s [00:52:41.864] } 1561s [00:52:41.864] else if (inherits(cond, "condition")) { 1561s [00:52:41.864] if (!is.null(pattern)) { 1561s [00:52:41.864] computeRestarts <- base::computeRestarts 1561s [00:52:41.864] grepl <- base::grepl 1561s [00:52:41.864] restarts <- computeRestarts(cond) 1561s [00:52:41.864] for (restart in restarts) { 1561s [00:52:41.864] name <- restart$name 1561s [00:52:41.864] if (is.null(name)) 1561s [00:52:41.864] next 1561s [00:52:41.864] if (!grepl(pattern, name)) 1561s [00:52:41.864] next 1561s [00:52:41.864] invokeRestart(restart) 1561s [00:52:41.864] muffled <- TRUE 1561s [00:52:41.864] break 1561s [00:52:41.864] } 1561s [00:52:41.864] } 1561s [00:52:41.864] } 1561s [00:52:41.864] invisible(muffled) 1561s [00:52:41.864] } 1561s [00:52:41.864] muffleCondition(cond, pattern = "^muffle") 1561s [00:52:41.864] } 1561s [00:52:41.864] } 1561s [00:52:41.864] else { 1561s [00:52:41.864] if (TRUE) { 1561s [00:52:41.864] muffleCondition <- function (cond, pattern = "^muffle") 1561s [00:52:41.864] { 1561s [00:52:41.864] inherits <- base::inherits 1561s [00:52:41.864] invokeRestart <- base::invokeRestart 1561s [00:52:41.864] is.null <- base::is.null 1561s [00:52:41.864] muffled <- FALSE 1561s [00:52:41.864] if (inherits(cond, "message")) { 1561s [00:52:41.864] muffled <- grepl(pattern, "muffleMessage") 1561s [00:52:41.864] if (muffled) 1561s [00:52:41.864] invokeRestart("muffleMessage") 1561s [00:52:41.864] } 1561s [00:52:41.864] else if (inherits(cond, "warning")) { 1561s [00:52:41.864] muffled <- grepl(pattern, "muffleWarning") 1561s [00:52:41.864] if (muffled) 1561s [00:52:41.864] invokeRestart("muffleWarning") 1561s [00:52:41.864] } 1561s [00:52:41.864] else if (inherits(cond, "condition")) { 1561s [00:52:41.864] if (!is.null(pattern)) { 1561s [00:52:41.864] computeRestarts <- base::computeRestarts 1561s [00:52:41.864] grepl <- base::grepl 1561s [00:52:41.864] restarts <- computeRestarts(cond) 1561s [00:52:41.864] for (restart in restarts) { 1561s [00:52:41.864] name <- restart$name 1561s [00:52:41.864] if (is.null(name)) 1561s [00:52:41.864] next 1561s [00:52:41.864] if (!grepl(pattern, name)) 1561s [00:52:41.864] next 1561s [00:52:41.864] invokeRestart(restart) 1561s [00:52:41.864] muffled <- TRUE 1561s [00:52:41.864] break 1561s [00:52:41.864] } 1561s [00:52:41.864] } 1561s [00:52:41.864] } 1561s [00:52:41.864] invisible(muffled) 1561s [00:52:41.864] } 1561s [00:52:41.864] muffleCondition(cond, pattern = "^muffle") 1561s [00:52:41.864] } 1561s [00:52:41.864] } 1561s [00:52:41.864] } 1561s [00:52:41.864] })) 1561s [00:52:41.864] }, error = function(ex) { 1561s [00:52:41.864] base::structure(base::list(value = NULL, visible = NULL, 1561s [00:52:41.864] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1561s [00:52:41.864] ...future.rng), started = ...future.startTime, 1561s [00:52:41.864] finished = Sys.time(), session_uuid = NA_character_, 1561s [00:52:41.864] version = "1.8"), class = "FutureResult") 1561s [00:52:41.864] }, finally = { 1561s [00:52:41.864] if (!identical(...future.workdir, getwd())) 1561s [00:52:41.864] setwd(...future.workdir) 1561s [00:52:41.864] { 1561s [00:52:41.864] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1561s [00:52:41.864] ...future.oldOptions$nwarnings <- NULL 1561s [00:52:41.864] } 1561s [00:52:41.864] base::options(...future.oldOptions) 1561s [00:52:41.864] if (.Platform$OS.type == "windows") { 1561s [00:52:41.864] old_names <- names(...future.oldEnvVars) 1561s [00:52:41.864] envs <- base::Sys.getenv() 1561s [00:52:41.864] names <- names(envs) 1561s [00:52:41.864] common <- intersect(names, old_names) 1561s [00:52:41.864] added <- setdiff(names, old_names) 1561s [00:52:41.864] removed <- setdiff(old_names, names) 1561s [00:52:41.864] changed <- common[...future.oldEnvVars[common] != 1561s [00:52:41.864] envs[common]] 1561s [00:52:41.864] NAMES <- toupper(changed) 1561s [00:52:41.864] args <- list() 1561s [00:52:41.864] for (kk in seq_along(NAMES)) { 1561s [00:52:41.864] name <- changed[[kk]] 1561s [00:52:41.864] NAME <- NAMES[[kk]] 1561s [00:52:41.864] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:41.864] next 1561s [00:52:41.864] args[[name]] <- ...future.oldEnvVars[[name]] 1561s [00:52:41.864] } 1561s [00:52:41.864] NAMES <- toupper(added) 1561s [00:52:41.864] for (kk in seq_along(NAMES)) { 1561s [00:52:41.864] name <- added[[kk]] 1561s [00:52:41.864] NAME <- NAMES[[kk]] 1561s [00:52:41.864] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:41.864] next 1561s [00:52:41.864] args[[name]] <- "" 1561s [00:52:41.864] } 1561s [00:52:41.864] NAMES <- toupper(removed) 1561s [00:52:41.864] for (kk in seq_along(NAMES)) { 1561s [00:52:41.864] name <- removed[[kk]] 1561s [00:52:41.864] NAME <- NAMES[[kk]] 1561s [00:52:41.864] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:41.864] next 1561s [00:52:41.864] args[[name]] <- ...future.oldEnvVars[[name]] 1561s [00:52:41.864] } 1561s [00:52:41.864] if (length(args) > 0) 1561s [00:52:41.864] base::do.call(base::Sys.setenv, args = args) 1561s [00:52:41.864] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1561s [00:52:41.864] } 1561s [00:52:41.864] else { 1561s [00:52:41.864] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1561s [00:52:41.864] } 1561s [00:52:41.864] { 1561s [00:52:41.864] if (base::length(...future.futureOptionsAdded) > 1561s [00:52:41.864] 0L) { 1561s [00:52:41.864] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1561s [00:52:41.864] base::names(opts) <- ...future.futureOptionsAdded 1561s [00:52:41.864] base::options(opts) 1561s [00:52:41.864] } 1561s [00:52:41.864] { 1561s [00:52:41.864] { 1561s [00:52:41.864] base::assign(".Random.seed", c(10407L, 2079749599L, 1561s [00:52:41.864] -1712504007L, 90762767L, 511132818L, -526970845L, 1561s [00:52:41.864] -1057805512L), envir = base::globalenv(), 1561s [00:52:41.864] inherits = FALSE) 1561s [00:52:41.864] NULL 1561s [00:52:41.864] } 1561s [00:52:41.864] options(future.plan = NULL) 1561s [00:52:41.864] if (is.na(NA_character_)) 1561s [00:52:41.864] Sys.unsetenv("R_FUTURE_PLAN") 1561s [00:52:41.864] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1561s [00:52:41.864] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1561s [00:52:41.864] envir = parent.frame()) 1561s [00:52:41.864] { 1561s [00:52:41.864] default_workers <- missing(workers) 1561s [00:52:41.864] if (is.function(workers)) 1561s [00:52:41.864] workers <- workers() 1561s [00:52:41.864] workers <- structure(as.integer(workers), 1561s [00:52:41.864] class = class(workers)) 1561s [00:52:41.864] stop_if_not(is.finite(workers), workers >= 1561s [00:52:41.864] 1L) 1561s [00:52:41.864] if ((workers == 1L && !inherits(workers, 1561s [00:52:41.864] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1561s [00:52:41.864] if (default_workers) 1561s [00:52:41.864] supportsMulticore(warn = TRUE) 1561s [00:52:41.864] return(sequential(..., envir = envir)) 1561s [00:52:41.864] } 1561s [00:52:41.864] oopts <- options(mc.cores = workers) 1561s [00:52:41.864] on.exit(options(oopts)) 1561s [00:52:41.864] future <- MulticoreFuture(..., workers = workers, 1561s [00:52:41.864] envir = envir) 1561s [00:52:41.864] if (!future$lazy) 1561s [00:52:41.864] future <- run(future) 1561s [00:52:41.864] invisible(future) 1561s [00:52:41.864] }), .cleanup = FALSE, .init = FALSE) 1561s [00:52:41.864] } 1561s [00:52:41.864] } 1561s [00:52:41.864] } 1561s [00:52:41.864] }) 1561s [00:52:41.864] if (TRUE) { 1561s [00:52:41.864] base::sink(type = "output", split = FALSE) 1561s [00:52:41.864] if (TRUE) { 1561s [00:52:41.864] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1561s [00:52:41.864] } 1561s [00:52:41.864] else { 1561s [00:52:41.864] ...future.result["stdout"] <- base::list(NULL) 1561s [00:52:41.864] } 1561s [00:52:41.864] base::close(...future.stdout) 1561s [00:52:41.864] ...future.stdout <- NULL 1561s [00:52:41.864] } 1561s [00:52:41.864] ...future.result$conditions <- ...future.conditions 1561s [00:52:41.864] ...future.result$finished <- base::Sys.time() 1561s [00:52:41.864] ...future.result 1561s [00:52:41.864] } 1561s [00:52:41.868] assign_globals() ... 1561s [00:52:41.868] List of 5 1561s [00:52:41.868] $ ...future.FUN :function (x, ...) 1561s [00:52:41.868] $ MoreArgs :List of 1 1561s [00:52:41.868] ..$ x: num 42 1561s [00:52:41.868] $ ...future.elements_ii :List of 1 1561s [00:52:41.868] ..$ times:List of 4 1561s [00:52:41.868] .. ..$ : int 1 1561s [00:52:41.868] .. ..$ : int 2 1561s [00:52:41.868] .. ..$ : int 3 1561s [00:52:41.868] .. ..$ : int 4 1561s [00:52:41.868] $ ...future.seeds_ii : NULL 1561s [00:52:41.868] $ ...future.globals.maxSize: NULL 1561s [00:52:41.868] - attr(*, "where")=List of 5 1561s [00:52:41.868] ..$ ...future.FUN : 1561s [00:52:41.868] ..$ MoreArgs : 1561s [00:52:41.868] ..$ ...future.elements_ii : 1561s [00:52:41.868] ..$ ...future.seeds_ii : 1561s [00:52:41.868] ..$ ...future.globals.maxSize: 1561s [00:52:41.868] - attr(*, "resolved")= logi FALSE 1561s [00:52:41.868] - attr(*, "total_size")= num 336 1561s [00:52:41.868] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1561s [00:52:41.868] - attr(*, "already-done")= logi TRUE 1561s [00:52:41.879] - copied ‘...future.FUN’ to environment 1561s [00:52:41.879] - copied ‘MoreArgs’ to environment 1561s [00:52:41.879] - copied ‘...future.elements_ii’ to environment 1561s [00:52:41.879] - copied ‘...future.seeds_ii’ to environment 1561s [00:52:41.880] - copied ‘...future.globals.maxSize’ to environment 1561s [00:52:41.880] assign_globals() ... done 1561s [00:52:41.881] plan(): Setting new future strategy stack: 1561s [00:52:41.881] List of future strategies: 1561s [00:52:41.881] 1. sequential: 1561s [00:52:41.881] - args: function (..., envir = parent.frame()) 1561s [00:52:41.881] - tweaked: FALSE 1561s [00:52:41.881] - call: NULL 1561s [00:52:41.882] plan(): nbrOfWorkers() = 1 1561s [00:52:41.883] plan(): Setting new future strategy stack: 1561s [00:52:41.883] List of future strategies: 1561s [00:52:41.883] 1. multicore: 1561s [00:52:41.883] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1561s [00:52:41.883] - tweaked: FALSE 1561s [00:52:41.883] - call: plan(strategy) 1561s [00:52:41.887] plan(): nbrOfWorkers() = 1 1561s [00:52:41.887] SequentialFuture started (and completed) 1561s [00:52:41.887] - Launch lazy future ... done 1561s [00:52:41.887] run() for ‘SequentialFuture’ ... done 1561s [00:52:41.888] Created future: 1561s [00:52:41.888] SequentialFuture: 1561s [00:52:41.888] Label: ‘future_mapply-1’ 1561s [00:52:41.888] Expression: 1561s [00:52:41.888] { 1561s [00:52:41.888] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1561s [00:52:41.888] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1561s [00:52:41.888] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1561s [00:52:41.888] on.exit(options(oopts), add = TRUE) 1561s [00:52:41.888] } 1561s [00:52:41.888] { 1561s [00:52:41.888] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1561s [00:52:41.888] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1561s [00:52:41.888] do.call(mapply, args = args) 1561s [00:52:41.888] } 1561s [00:52:41.888] } 1561s [00:52:41.888] Lazy evaluation: FALSE 1561s [00:52:41.888] Asynchronous evaluation: FALSE 1561s [00:52:41.888] Local evaluation: TRUE 1561s [00:52:41.888] Environment: R_GlobalEnv 1561s [00:52:41.888] Capture standard output: TRUE 1561s [00:52:41.888] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1561s [00:52:41.888] Globals: 5 objects totaling 336 bytes (function ‘...future.FUN’ of 56 bytes, list ‘MoreArgs’ of 56 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1561s [00:52:41.888] Packages: 1561s [00:52:41.888] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1561s [00:52:41.888] Resolved: TRUE 1561s [00:52:41.888] Value: 280 bytes of class ‘list’ 1561s [00:52:41.888] Early signaling: FALSE 1561s [00:52:41.888] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1561s [00:52:41.888] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1561s [00:52:41.889] Chunk #1 of 1 ... DONE 1561s [00:52:41.889] Launching 1 futures (chunks) ... DONE 1561s [00:52:41.889] Resolving 1 futures (chunks) ... 1561s [00:52:41.890] resolve() on list ... 1561s [00:52:41.890] recursive: 0 1561s [00:52:41.890] length: 1 1561s [00:52:41.890] 1561s [00:52:41.890] resolved() for ‘SequentialFuture’ ... 1561s [00:52:41.890] - state: ‘finished’ 1561s [00:52:41.891] - run: TRUE 1561s [00:52:41.891] - result: ‘FutureResult’ 1561s [00:52:41.891] resolved() for ‘SequentialFuture’ ... done 1561s [00:52:41.891] Future #1 1561s [00:52:41.892] signalConditionsASAP(SequentialFuture, pos=1) ... 1561s [00:52:41.892] - nx: 1 1561s [00:52:41.892] - relay: TRUE 1561s [00:52:41.892] - stdout: TRUE 1561s [00:52:41.892] - signal: TRUE 1561s [00:52:41.892] - resignal: FALSE 1561s [00:52:41.892] - force: TRUE 1561s [00:52:41.892] - relayed: [n=1] FALSE 1561s [00:52:41.893] - queued futures: [n=1] FALSE 1561s [00:52:41.893] - until=1 1561s [00:52:41.893] - relaying element #1 1561s [00:52:41.893] - relayed: [n=1] TRUE 1561s [00:52:41.894] - queued futures: [n=1] TRUE 1561s [00:52:41.894] signalConditionsASAP(SequentialFuture, pos=1) ... done 1561s [00:52:41.894] length: 0 (resolved future 1) 1561s [00:52:41.894] Relaying remaining futures 1561s [00:52:41.894] signalConditionsASAP(NULL, pos=0) ... 1561s [00:52:41.894] - nx: 1 1561s [00:52:41.895] - relay: TRUE 1561s [00:52:41.895] - stdout: TRUE 1561s [00:52:41.895] - signal: TRUE 1561s [00:52:41.895] - resignal: FALSE 1561s [00:52:41.895] - force: TRUE 1561s [00:52:41.895] - relayed: [n=1] TRUE 1561s [00:52:41.895] - queued futures: [n=1] TRUE 1561s - flush all 1561s [00:52:41.896] - relayed: [n=1] TRUE 1561s [00:52:41.896] - queued futures: [n=1] TRUE 1561s [00:52:41.896] signalConditionsASAP(NULL, pos=0) ... done 1561s [00:52:41.896] resolve() on list ... DONE 1561s [00:52:41.896] - Number of value chunks collected: 1 1561s [00:52:41.896] Resolving 1 futures (chunks) ... DONE 1561s [00:52:41.896] Reducing values from 1 chunks ... 1561s [00:52:41.897] - Number of values collected after concatenation: 4 1561s [00:52:41.897] - Number of values expected: 4 1561s [00:52:41.897] Reducing values from 1 chunks ... DONE 1561s [00:52:41.897] future_mapply() ... DONE 1561s [00:52:41.897] future_mapply() ... 1561s [00:52:41.900] Number of chunks: 1 1561s [00:52:41.901] getGlobalsAndPackagesXApply() ... 1561s [00:52:41.901] - future.globals: TRUE 1561s [00:52:41.901] getGlobalsAndPackages() ... 1561s [00:52:41.901] Searching for globals... 1561s [00:52:41.903] - globals found: [3] ‘FUN’, ‘+’, ‘seq_len’ 1561s [00:52:41.903] Searching for globals ... DONE 1561s [00:52:41.903] Resolving globals: FALSE 1561s [00:52:41.904] The total size of the 1 globals is 1.93 KiB (1976 bytes) 1561s [00:52:41.905] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.93 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.93 KiB of class ‘function’) 1561s [00:52:41.905] - globals: [1] ‘FUN’ 1561s [00:52:41.905] 1561s [00:52:41.905] getGlobalsAndPackages() ... DONE 1561s [00:52:41.905] - globals found/used: [n=1] ‘FUN’ 1561s [00:52:41.905] - needed namespaces: [n=0] 1561s [00:52:41.905] Finding globals ... DONE 1561s [00:52:41.906] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1561s [00:52:41.906] List of 2 1561s [00:52:41.906] $ ...future.FUN:function (x, y) 1561s [00:52:41.906] $ MoreArgs : NULL 1561s [00:52:41.906] - attr(*, "where")=List of 2 1561s [00:52:41.906] ..$ ...future.FUN: 1561s [00:52:41.906] ..$ MoreArgs : 1561s [00:52:41.906] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1561s [00:52:41.906] - attr(*, "resolved")= logi FALSE 1561s [00:52:41.906] - attr(*, "total_size")= num NA 1561s [00:52:41.909] Packages to be attached in all futures: [n=0] 1561s [00:52:41.910] getGlobalsAndPackagesXApply() ... DONE 1561s [00:52:41.910] Number of futures (= number of chunks): 1 1561s [00:52:41.910] Launching 1 futures (chunks) ... 1561s [00:52:41.910] Chunk #1 of 1 ... 1561s [00:52:41.910] - Finding globals in '...' for chunk #1 ... 1561s [00:52:41.911] getGlobalsAndPackages() ... 1561s [00:52:41.911] Searching for globals... 1561s [00:52:41.911] 1561s [00:52:41.912] Searching for globals ... DONE 1561s [00:52:41.912] - globals: [0] 1561s [00:52:41.912] getGlobalsAndPackages() ... DONE 1561s [00:52:41.913] + additional globals found: [n=0] 1561s [00:52:41.913] + additional namespaces needed: [n=0] 1561s [00:52:41.913] - Finding globals in '...' for chunk #1 ... DONE 1561s [00:52:41.913] - seeds: 1561s [00:52:41.913] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:41.913] getGlobalsAndPackages() ... 1561s [00:52:41.914] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:41.914] Resolving globals: FALSE 1561s [00:52:41.918] The total size of the 5 globals is 2.26 KiB (2312 bytes) 1561s [00:52:41.919] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 2.26 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (1.93 KiB of class ‘function’), ‘...future.elements_ii’ (336 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1561s [00:52:41.920] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1561s [00:52:41.920] 1561s [00:52:41.921] getGlobalsAndPackages() ... DONE 1561s [00:52:41.921] run() for ‘Future’ ... 1561s [00:52:41.922] - state: ‘created’ 1561s [00:52:41.922] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1561s [00:52:41.927] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1561s [00:52:41.927] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1561s [00:52:41.928] - Field: ‘label’ 1561s [00:52:41.928] - Field: ‘local’ 1561s [00:52:41.928] - Field: ‘owner’ 1561s [00:52:41.928] - Field: ‘envir’ 1561s [00:52:41.928] - Field: ‘packages’ 1561s [00:52:41.929] - Field: ‘gc’ 1561s [00:52:41.929] - Field: ‘conditions’ 1561s [00:52:41.929] - Field: ‘expr’ 1561s [00:52:41.930] - Field: ‘uuid’ 1561s [00:52:41.930] - Field: ‘seed’ 1561s [00:52:41.930] - Field: ‘version’ 1561s [00:52:41.930] - Field: ‘result’ 1561s [00:52:41.931] - Field: ‘asynchronous’ 1561s [00:52:41.931] - Field: ‘calls’ 1561s [00:52:41.931] - Field: ‘globals’ 1561s [00:52:41.931] - Field: ‘stdout’ 1561s [00:52:41.932] - Field: ‘earlySignal’ 1561s [00:52:41.932] - Field: ‘lazy’ 1561s [00:52:41.932] - Field: ‘state’ 1561s [00:52:41.932] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1561s [00:52:41.933] - Launch lazy future ... 1561s [00:52:41.933] Packages needed by the future expression (n = 0): 1561s [00:52:41.933] Packages needed by future strategies (n = 0): 1561s [00:52:41.934] { 1561s [00:52:41.934] { 1561s [00:52:41.934] { 1561s [00:52:41.934] ...future.startTime <- base::Sys.time() 1561s [00:52:41.934] { 1561s [00:52:41.934] { 1561s [00:52:41.934] { 1561s [00:52:41.934] base::local({ 1561s [00:52:41.934] has_future <- base::requireNamespace("future", 1561s [00:52:41.934] quietly = TRUE) 1561s [00:52:41.934] if (has_future) { 1561s [00:52:41.934] ns <- base::getNamespace("future") 1561s [00:52:41.934] version <- ns[[".package"]][["version"]] 1561s [00:52:41.934] if (is.null(version)) 1561s [00:52:41.934] version <- utils::packageVersion("future") 1561s [00:52:41.934] } 1561s [00:52:41.934] else { 1561s [00:52:41.934] version <- NULL 1561s [00:52:41.934] } 1561s [00:52:41.934] if (!has_future || version < "1.8.0") { 1561s [00:52:41.934] info <- base::c(r_version = base::gsub("R version ", 1561s [00:52:41.934] "", base::R.version$version.string), 1561s [00:52:41.934] platform = base::sprintf("%s (%s-bit)", 1561s [00:52:41.934] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1561s [00:52:41.934] os = base::paste(base::Sys.info()[base::c("sysname", 1561s [00:52:41.934] "release", "version")], collapse = " "), 1561s [00:52:41.934] hostname = base::Sys.info()[["nodename"]]) 1561s [00:52:41.934] info <- base::sprintf("%s: %s", base::names(info), 1561s [00:52:41.934] info) 1561s [00:52:41.934] info <- base::paste(info, collapse = "; ") 1561s [00:52:41.934] if (!has_future) { 1561s [00:52:41.934] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1561s [00:52:41.934] info) 1561s [00:52:41.934] } 1561s [00:52:41.934] else { 1561s [00:52:41.934] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1561s [00:52:41.934] info, version) 1561s [00:52:41.934] } 1561s [00:52:41.934] base::stop(msg) 1561s [00:52:41.934] } 1561s [00:52:41.934] }) 1561s [00:52:41.934] } 1561s [00:52:41.934] options(future.plan = NULL) 1561s [00:52:41.934] Sys.unsetenv("R_FUTURE_PLAN") 1561s [00:52:41.934] future::plan("default", .cleanup = FALSE, .init = FALSE) 1561s [00:52:41.934] } 1561s [00:52:41.934] ...future.workdir <- getwd() 1561s [00:52:41.934] } 1561s [00:52:41.934] ...future.oldOptions <- base::as.list(base::.Options) 1561s [00:52:41.934] ...future.oldEnvVars <- base::Sys.getenv() 1561s [00:52:41.934] } 1561s [00:52:41.934] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1561s [00:52:41.934] future.globals.maxSize = NULL, future.globals.method = NULL, 1561s [00:52:41.934] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1561s [00:52:41.934] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1561s [00:52:41.934] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1561s [00:52:41.934] future.stdout.windows.reencode = NULL, width = 80L) 1561s [00:52:41.934] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1561s [00:52:41.934] base::names(...future.oldOptions)) 1561s [00:52:41.934] } 1561s [00:52:41.934] if (FALSE) { 1561s [00:52:41.934] } 1561s [00:52:41.934] else { 1561s [00:52:41.934] if (TRUE) { 1561s [00:52:41.934] ...future.stdout <- base::rawConnection(base::raw(0L), 1561s [00:52:41.934] open = "w") 1561s [00:52:41.934] } 1561s [00:52:41.934] else { 1561s [00:52:41.934] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1561s [00:52:41.934] windows = "NUL", "/dev/null"), open = "w") 1561s [00:52:41.934] } 1561s [00:52:41.934] base::sink(...future.stdout, type = "output", split = FALSE) 1561s [00:52:41.934] base::on.exit(if (!base::is.null(...future.stdout)) { 1561s [00:52:41.934] base::sink(type = "output", split = FALSE) 1561s [00:52:41.934] base::close(...future.stdout) 1561s [00:52:41.934] }, add = TRUE) 1561s [00:52:41.934] } 1561s [00:52:41.934] ...future.frame <- base::sys.nframe() 1561s [00:52:41.934] ...future.conditions <- base::list() 1561s [00:52:41.934] ...future.rng <- base::globalenv()$.Random.seed 1561s [00:52:41.934] if (FALSE) { 1561s [00:52:41.934] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1561s [00:52:41.934] "...future.value", "...future.globalenv.names", ".Random.seed") 1561s [00:52:41.934] } 1561s [00:52:41.934] ...future.result <- base::tryCatch({ 1561s [00:52:41.934] base::withCallingHandlers({ 1561s [00:52:41.934] ...future.value <- base::withVisible(base::local({ 1561s [00:52:41.934] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1561s [00:52:41.934] if (!identical(...future.globals.maxSize.org, 1561s [00:52:41.934] ...future.globals.maxSize)) { 1561s [00:52:41.934] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1561s [00:52:41.934] on.exit(options(oopts), add = TRUE) 1561s [00:52:41.934] } 1561s [00:52:41.934] { 1561s [00:52:41.934] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1561s [00:52:41.934] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1561s [00:52:41.934] USE.NAMES = FALSE) 1561s [00:52:41.934] do.call(mapply, args = args) 1561s [00:52:41.934] } 1561s [00:52:41.934] })) 1561s [00:52:41.934] future::FutureResult(value = ...future.value$value, 1561s [00:52:41.934] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1561s [00:52:41.934] ...future.rng), globalenv = if (FALSE) 1561s [00:52:41.934] list(added = base::setdiff(base::names(base::.GlobalEnv), 1561s [00:52:41.934] ...future.globalenv.names)) 1561s [00:52:41.934] else NULL, started = ...future.startTime, version = "1.8") 1561s [00:52:41.934] }, condition = base::local({ 1561s [00:52:41.934] c <- base::c 1561s [00:52:41.934] inherits <- base::inherits 1561s [00:52:41.934] invokeRestart <- base::invokeRestart 1561s [00:52:41.934] length <- base::length 1561s [00:52:41.934] list <- base::list 1561s [00:52:41.934] seq.int <- base::seq.int 1561s [00:52:41.934] signalCondition <- base::signalCondition 1561s [00:52:41.934] sys.calls <- base::sys.calls 1561s [00:52:41.934] `[[` <- base::`[[` 1561s [00:52:41.934] `+` <- base::`+` 1561s [00:52:41.934] `<<-` <- base::`<<-` 1561s [00:52:41.934] sysCalls <- function(calls = sys.calls(), from = 1L) { 1561s [00:52:41.934] calls[seq.int(from = from + 12L, to = length(calls) - 1561s [00:52:41.934] 3L)] 1561s [00:52:41.934] } 1561s [00:52:41.934] function(cond) { 1561s [00:52:41.934] is_error <- inherits(cond, "error") 1561s [00:52:41.934] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1561s [00:52:41.934] NULL) 1561s [00:52:41.934] if (is_error) { 1561s [00:52:41.934] sessionInformation <- function() { 1561s [00:52:41.934] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1561s [00:52:41.934] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1561s [00:52:41.934] search = base::search(), system = base::Sys.info()) 1561s [00:52:41.934] } 1561s [00:52:41.934] ...future.conditions[[length(...future.conditions) + 1561s [00:52:41.934] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1561s [00:52:41.934] cond$call), session = sessionInformation(), 1561s [00:52:41.934] timestamp = base::Sys.time(), signaled = 0L) 1561s [00:52:41.934] signalCondition(cond) 1561s [00:52:41.934] } 1561s [00:52:41.934] else if (!ignore && TRUE && inherits(cond, c("condition", 1561s [00:52:41.934] "immediateCondition"))) { 1561s [00:52:41.934] signal <- TRUE && inherits(cond, "immediateCondition") 1561s [00:52:41.934] ...future.conditions[[length(...future.conditions) + 1561s [00:52:41.934] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1561s [00:52:41.934] if (TRUE && !signal) { 1561s [00:52:41.934] muffleCondition <- function (cond, pattern = "^muffle") 1561s [00:52:41.934] { 1561s [00:52:41.934] inherits <- base::inherits 1561s [00:52:41.934] invokeRestart <- base::invokeRestart 1561s [00:52:41.934] is.null <- base::is.null 1561s [00:52:41.934] muffled <- FALSE 1561s [00:52:41.934] if (inherits(cond, "message")) { 1561s [00:52:41.934] muffled <- grepl(pattern, "muffleMessage") 1561s [00:52:41.934] if (muffled) 1561s [00:52:41.934] invokeRestart("muffleMessage") 1561s [00:52:41.934] } 1561s [00:52:41.934] else if (inherits(cond, "warning")) { 1561s [00:52:41.934] muffled <- grepl(pattern, "muffleWarning") 1561s [00:52:41.934] if (muffled) 1561s [00:52:41.934] invokeRestart("muffleWarning") 1561s [00:52:41.934] } 1561s [00:52:41.934] else if (inherits(cond, "condition")) { 1561s [00:52:41.934] if (!is.null(pattern)) { 1561s [00:52:41.934] computeRestarts <- base::computeRestarts 1561s [00:52:41.934] grepl <- base::grepl 1561s [00:52:41.934] restarts <- computeRestarts(cond) 1561s [00:52:41.934] for (restart in restarts) { 1561s [00:52:41.934] name <- restart$name 1561s [00:52:41.934] if (is.null(name)) 1561s [00:52:41.934] next 1561s [00:52:41.934] if (!grepl(pattern, name)) 1561s [00:52:41.934] next 1561s [00:52:41.934] invokeRestart(restart) 1561s [00:52:41.934] muffled <- TRUE 1561s [00:52:41.934] break 1561s [00:52:41.934] } 1561s [00:52:41.934] } 1561s [00:52:41.934] } 1561s [00:52:41.934] invisible(muffled) 1561s [00:52:41.934] } 1561s [00:52:41.934] muffleCondition(cond, pattern = "^muffle") 1561s [00:52:41.934] } 1561s [00:52:41.934] } 1561s [00:52:41.934] else { 1561s [00:52:41.934] if (TRUE) { 1561s [00:52:41.934] muffleCondition <- function (cond, pattern = "^muffle") 1561s [00:52:41.934] { 1561s [00:52:41.934] inherits <- base::inherits 1561s [00:52:41.934] invokeRestart <- base::invokeRestart 1561s [00:52:41.934] is.null <- base::is.null 1561s [00:52:41.934] muffled <- FALSE 1561s [00:52:41.934] if (inherits(cond, "message")) { 1561s [00:52:41.934] muffled <- grepl(pattern, "muffleMessage") 1561s [00:52:41.934] if (muffled) 1561s [00:52:41.934] invokeRestart("muffleMessage") 1561s [00:52:41.934] } 1561s [00:52:41.934] else if (inherits(cond, "warning")) { 1561s [00:52:41.934] muffled <- grepl(pattern, "muffleWarning") 1561s [00:52:41.934] if (muffled) 1561s [00:52:41.934] invokeRestart("muffleWarning") 1561s [00:52:41.934] } 1561s [00:52:41.934] else if (inherits(cond, "condition")) { 1561s [00:52:41.934] if (!is.null(pattern)) { 1561s [00:52:41.934] computeRestarts <- base::computeRestarts 1561s [00:52:41.934] grepl <- base::grepl 1561s [00:52:41.934] restarts <- computeRestarts(cond) 1561s [00:52:41.934] for (restart in restarts) { 1561s [00:52:41.934] name <- restart$name 1561s [00:52:41.934] if (is.null(name)) 1561s [00:52:41.934] next 1561s [00:52:41.934] if (!grepl(pattern, name)) 1561s [00:52:41.934] next 1561s [00:52:41.934] invokeRestart(restart) 1561s [00:52:41.934] muffled <- TRUE 1561s [00:52:41.934] break 1561s [00:52:41.934] } 1561s [00:52:41.934] } 1561s [00:52:41.934] } 1561s [00:52:41.934] invisible(muffled) 1561s [00:52:41.934] } 1561s [00:52:41.934] muffleCondition(cond, pattern = "^muffle") 1561s [00:52:41.934] } 1561s [00:52:41.934] } 1561s [00:52:41.934] } 1561s [00:52:41.934] })) 1561s [00:52:41.934] }, error = function(ex) { 1561s [00:52:41.934] base::structure(base::list(value = NULL, visible = NULL, 1561s [00:52:41.934] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1561s [00:52:41.934] ...future.rng), started = ...future.startTime, 1561s [00:52:41.934] finished = Sys.time(), session_uuid = NA_character_, 1561s [00:52:41.934] version = "1.8"), class = "FutureResult") 1561s [00:52:41.934] }, finally = { 1561s [00:52:41.934] if (!identical(...future.workdir, getwd())) 1561s [00:52:41.934] setwd(...future.workdir) 1561s [00:52:41.934] { 1561s [00:52:41.934] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1561s [00:52:41.934] ...future.oldOptions$nwarnings <- NULL 1561s [00:52:41.934] } 1561s [00:52:41.934] base::options(...future.oldOptions) 1561s [00:52:41.934] if (.Platform$OS.type == "windows") { 1561s [00:52:41.934] old_names <- names(...future.oldEnvVars) 1561s [00:52:41.934] envs <- base::Sys.getenv() 1561s [00:52:41.934] names <- names(envs) 1561s [00:52:41.934] common <- intersect(names, old_names) 1561s [00:52:41.934] added <- setdiff(names, old_names) 1561s [00:52:41.934] removed <- setdiff(old_names, names) 1561s [00:52:41.934] changed <- common[...future.oldEnvVars[common] != 1561s [00:52:41.934] envs[common]] 1561s [00:52:41.934] NAMES <- toupper(changed) 1561s [00:52:41.934] args <- list() 1561s [00:52:41.934] for (kk in seq_along(NAMES)) { 1561s [00:52:41.934] name <- changed[[kk]] 1561s [00:52:41.934] NAME <- NAMES[[kk]] 1561s [00:52:41.934] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:41.934] next 1561s [00:52:41.934] args[[name]] <- ...future.oldEnvVars[[name]] 1561s [00:52:41.934] } 1561s [00:52:41.934] NAMES <- toupper(added) 1561s [00:52:41.934] for (kk in seq_along(NAMES)) { 1561s [00:52:41.934] name <- added[[kk]] 1561s [00:52:41.934] NAME <- NAMES[[kk]] 1561s [00:52:41.934] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:41.934] next 1561s [00:52:41.934] args[[name]] <- "" 1561s [00:52:41.934] } 1561s [00:52:41.934] NAMES <- toupper(removed) 1561s [00:52:41.934] for (kk in seq_along(NAMES)) { 1561s [00:52:41.934] name <- removed[[kk]] 1561s [00:52:41.934] NAME <- NAMES[[kk]] 1561s [00:52:41.934] if (name != NAME && is.element(NAME, old_names)) 1561s [00:52:41.934] next 1561s [00:52:41.934] args[[name]] <- ...future.oldEnvVars[[name]] 1561s [00:52:41.934] } 1561s [00:52:41.934] if (length(args) > 0) 1561s [00:52:41.934] base::do.call(base::Sys.setenv, args = args) 1561s [00:52:41.934] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1561s [00:52:41.934] } 1561s [00:52:41.934] else { 1561s [00:52:41.934] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1561s [00:52:41.934] } 1561s [00:52:41.934] { 1561s [00:52:41.934] if (base::length(...future.futureOptionsAdded) > 1561s [00:52:41.934] 0L) { 1561s [00:52:41.934] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1561s [00:52:41.934] base::names(opts) <- ...future.futureOptionsAdded 1561s [00:52:41.934] base::options(opts) 1561s [00:52:41.934] } 1561s [00:52:41.934] { 1561s [00:52:41.934] { 1561s [00:52:41.934] base::assign(".Random.seed", c(10407L, 2079749599L, 1561s [00:52:41.934] -1712504007L, 90762767L, 511132818L, -526970845L, 1561s [00:52:41.934] -1057805512L), envir = base::globalenv(), 1561s [00:52:41.934] inherits = FALSE) 1561s [00:52:41.934] NULL 1561s [00:52:41.934] } 1561s [00:52:41.934] options(future.plan = NULL) 1561s [00:52:41.934] if (is.na(NA_character_)) 1561s [00:52:41.934] Sys.unsetenv("R_FUTURE_PLAN") 1561s [00:52:41.934] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1561s [00:52:41.934] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1561s [00:52:41.934] envir = parent.frame()) 1561s [00:52:41.934] { 1561s [00:52:41.934] default_workers <- missing(workers) 1561s [00:52:41.934] if (is.function(workers)) 1561s [00:52:41.934] workers <- workers() 1561s [00:52:41.934] workers <- structure(as.integer(workers), 1561s [00:52:41.934] class = class(workers)) 1561s [00:52:41.934] stop_if_not(is.finite(workers), workers >= 1561s [00:52:41.934] 1L) 1561s [00:52:41.934] if ((workers == 1L && !inherits(workers, 1561s [00:52:41.934] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1561s [00:52:41.934] if (default_workers) 1561s [00:52:41.934] supportsMulticore(warn = TRUE) 1561s [00:52:41.934] return(sequential(..., envir = envir)) 1561s [00:52:41.934] } 1561s [00:52:41.934] oopts <- options(mc.cores = workers) 1561s [00:52:41.934] on.exit(options(oopts)) 1561s [00:52:41.934] future <- MulticoreFuture(..., workers = workers, 1561s [00:52:41.934] envir = envir) 1561s [00:52:41.934] if (!future$lazy) 1561s [00:52:41.934] future <- run(future) 1561s [00:52:41.934] invisible(future) 1561s [00:52:41.934] }), .cleanup = FALSE, .init = FALSE) 1561s [00:52:41.934] } 1561s [00:52:41.934] } 1561s [00:52:41.934] } 1561s [00:52:41.934] }) 1561s [00:52:41.934] if (TRUE) { 1561s [00:52:41.934] base::sink(type = "output", split = FALSE) 1561s [00:52:41.934] if (TRUE) { 1561s [00:52:41.934] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1561s [00:52:41.934] } 1561s [00:52:41.934] else { 1561s [00:52:41.934] ...future.result["stdout"] <- base::list(NULL) 1561s [00:52:41.934] } 1561s [00:52:41.934] base::close(...future.stdout) 1561s [00:52:41.934] ...future.stdout <- NULL 1561s [00:52:41.934] } 1561s [00:52:41.934] ...future.result$conditions <- ...future.conditions 1561s [00:52:41.934] ...future.result$finished <- base::Sys.time() 1561s [00:52:41.934] ...future.result 1561s [00:52:41.934] } 1561s [00:52:41.942] assign_globals() ... 1561s [00:52:41.942] List of 5 1561s [00:52:41.942] $ ...future.FUN :function (x, y) 1561s [00:52:41.942] $ MoreArgs : NULL 1561s [00:52:41.942] $ ...future.elements_ii :List of 2 1561s [00:52:41.942] ..$ :List of 3 1561s [00:52:41.942] .. ..$ a: num 1 1561s [00:52:41.942] .. ..$ b: num 2 1561s [00:52:41.942] .. ..$ c: num 3 1561s [00:52:41.942] ..$ :List of 3 1561s [00:52:41.942] .. ..$ A: num 10 1561s [00:52:41.942] .. ..$ B: num 0 1561s [00:52:41.942] .. ..$ C: num -10 1561s [00:52:41.942] $ ...future.seeds_ii : NULL 1561s [00:52:41.942] $ ...future.globals.maxSize: NULL 1561s [00:52:41.942] - attr(*, "where")=List of 5 1561s [00:52:41.942] ..$ ...future.FUN : 1561s [00:52:41.942] ..$ MoreArgs : 1561s [00:52:41.942] ..$ ...future.elements_ii : 1561s [00:52:41.942] ..$ ...future.seeds_ii : 1561s [00:52:41.942] ..$ ...future.globals.maxSize: 1561s [00:52:41.942] - attr(*, "resolved")= logi FALSE 1561s [00:52:41.942] - attr(*, "total_size")= num 2312 1561s [00:52:41.942] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1561s [00:52:41.942] - attr(*, "already-done")= logi TRUE 1561s [00:52:41.951] - reassign environment for ‘...future.FUN’ 1561s [00:52:41.952] - copied ‘...future.FUN’ to environment 1561s [00:52:41.952] - copied ‘MoreArgs’ to environment 1561s [00:52:41.952] - copied ‘...future.elements_ii’ to environment 1561s [00:52:41.953] - copied ‘...future.seeds_ii’ to environment 1561s [00:52:41.953] - copied ‘...future.globals.maxSize’ to environment 1561s [00:52:41.953] assign_globals() ... done 1561s [00:52:41.953] plan(): Setting new future strategy stack: 1561s [00:52:41.953] List of future strategies: 1561s [00:52:41.953] 1. sequential: 1561s [00:52:41.953] - args: function (..., envir = parent.frame()) 1561s [00:52:41.953] - tweaked: FALSE 1561s [00:52:41.953] - call: NULL 1561s [00:52:41.954] plan(): nbrOfWorkers() = 1 1561s [00:52:41.955] plan(): Setting new future strategy stack: 1561s [00:52:41.955] List of future strategies: 1561s [00:52:41.955] 1. multicore: 1561s [00:52:41.955] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1561s [00:52:41.955] - tweaked: FALSE 1561s [00:52:41.955] - call: plan(strategy) 1561s [00:52:41.959] plan(): nbrOfWorkers() = 1 1561s [00:52:41.960] SequentialFuture started (and completed) 1561s [00:52:41.960] - Launch lazy future ... done 1561s [00:52:41.961] run() for ‘SequentialFuture’ ... done 1561s [00:52:41.961] Created future: 1561s [00:52:41.961] SequentialFuture: 1561s [00:52:41.961] Label: ‘future_mapply-1’ 1561s [00:52:41.961] Expression: 1561s [00:52:41.961] { 1561s [00:52:41.961] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1561s [00:52:41.961] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1561s [00:52:41.961] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1561s [00:52:41.961] on.exit(options(oopts), add = TRUE) 1561s [00:52:41.961] } 1561s [00:52:41.961] { 1561s [00:52:41.961] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1561s [00:52:41.961] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1561s [00:52:41.961] do.call(mapply, args = args) 1561s [00:52:41.961] } 1561s [00:52:41.961] } 1561s [00:52:41.961] Lazy evaluation: FALSE 1561s [00:52:41.961] Asynchronous evaluation: FALSE 1561s [00:52:41.961] Local evaluation: TRUE 1561s [00:52:41.961] Environment: R_GlobalEnv 1561s [00:52:41.961] Capture standard output: TRUE 1561s [00:52:41.961] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1561s [00:52:41.961] Globals: 5 objects totaling 2.26 KiB (function ‘...future.FUN’ of 1.93 KiB, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1561s [00:52:41.961] Packages: 1561s [00:52:41.961] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1561s [00:52:41.961] Resolved: TRUE 1561s [00:52:41.961] Value: 200 bytes of class ‘list’ 1561s [00:52:41.961] Early signaling: FALSE 1561s [00:52:41.961] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1561s [00:52:41.961] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1561s [00:52:41.963] Chunk #1 of 1 ... DONE 1561s [00:52:41.963] Launching 1 futures (chunks) ... DONE 1561s [00:52:41.963] Resolving 1 futures (chunks) ... 1561s [00:52:41.964] resolve() on list ... 1561s [00:52:41.964] recursive: 0 1561s [00:52:41.964] length: 1 1561s [00:52:41.964] 1561s [00:52:41.964] resolved() for ‘SequentialFuture’ ... 1561s [00:52:41.964] - state: ‘finished’ 1561s [00:52:41.964] - run: TRUE 1561s [00:52:41.965] - result: ‘FutureResult’ 1561s [00:52:41.965] resolved() for ‘SequentialFuture’ ... done 1561s [00:52:41.965] Future #1 1561s [00:52:41.965] signalConditionsASAP(SequentialFuture, pos=1) ... 1561s [00:52:41.965] - nx: 1 1561s [00:52:41.966] - relay: TRUE 1561s [00:52:41.966] - stdout: TRUE 1561s [00:52:41.966] - signal: TRUE 1561s [00:52:41.966] - resignal: FALSE 1561s [00:52:41.966] - force: TRUE 1561s [00:52:41.966] - relayed: [n=1] FALSE 1561s [00:52:41.967] - queued futures: [n=1] FALSE 1561s [00:52:41.967] - until=1 1561s [00:52:41.967] - relaying element #1 1562s [00:52:41.967] - relayed: [n=1] TRUE 1562s [00:52:41.970] - queued futures: [n=1] TRUE 1562s [00:52:41.970] signalConditionsASAP(SequentialFuture, pos=1) ... done 1562s [00:52:41.970] length: 0 (resolved future 1) 1562s [00:52:41.971] Relaying remaining futures 1562s [00:52:41.971] signalConditionsASAP(NULL, pos=0) ... 1562s [00:52:41.971] - nx: 1 1562s [00:52:41.971] - relay: TRUE 1562s [00:52:41.971] - stdout: TRUE 1562s [00:52:41.971] - signal: TRUE 1562s [00:52:41.972] - resignal: FALSE 1562s [00:52:41.972] - force: TRUE 1562s [00:52:41.972] - relayed: [n=1] TRUE 1562s [00:52:41.972] - queued futures: [n=1] TRUE 1562s - flush all 1562s [00:52:41.972] - relayed: [n=1] TRUE 1562s [00:52:41.972] - queued futures: [n=1] TRUE 1562s [00:52:41.973] signalConditionsASAP(NULL, pos=0) ... done 1562s [00:52:41.973] resolve() on list ... DONE 1562s [00:52:41.973] - Number of value chunks collected: 1 1562s [00:52:41.974] Resolving 1 futures (chunks) ... DONE 1562s [00:52:41.974] Reducing values from 1 chunks ... 1562s [00:52:41.974] - Number of values collected after concatenation: 3 1562s [00:52:41.974] - Number of values expected: 3 1562s [00:52:41.974] Reducing values from 1 chunks ... DONE 1562s [00:52:41.974] future_mapply() ... DONE 1562s - future_.mapply() 1562s [00:52:41.975] future_mapply() ... 1562s [00:52:41.979] Number of chunks: 1 1562s [00:52:41.979] getGlobalsAndPackagesXApply() ... 1562s [00:52:41.979] - future.globals: TRUE 1562s [00:52:41.979] getGlobalsAndPackages() ... 1562s [00:52:41.980] Searching for globals... 1562s [00:52:41.981] - globals found: [3] ‘FUN’, ‘+’, ‘seq_len’ 1562s [00:52:41.982] Searching for globals ... DONE 1562s [00:52:41.982] Resolving globals: FALSE 1562s [00:52:41.982] The total size of the 1 globals is 1.93 KiB (1976 bytes) 1562s [00:52:41.983] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.93 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.93 KiB of class ‘function’) 1562s [00:52:41.983] - globals: [1] ‘FUN’ 1562s [00:52:41.983] 1562s [00:52:41.983] getGlobalsAndPackages() ... DONE 1562s [00:52:41.984] - globals found/used: [n=1] ‘FUN’ 1562s [00:52:41.984] - needed namespaces: [n=0] 1562s [00:52:41.984] Finding globals ... DONE 1562s [00:52:41.984] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1562s [00:52:41.984] List of 2 1562s [00:52:41.984] $ ...future.FUN:function (x, y) 1562s [00:52:41.984] $ MoreArgs : list() 1562s [00:52:41.984] - attr(*, "where")=List of 2 1562s [00:52:41.984] ..$ ...future.FUN: 1562s [00:52:41.984] ..$ MoreArgs : 1562s [00:52:41.984] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1562s [00:52:41.984] - attr(*, "resolved")= logi FALSE 1562s [00:52:41.984] - attr(*, "total_size")= num NA 1562s [00:52:41.989] Packages to be attached in all futures: [n=0] 1562s [00:52:41.989] getGlobalsAndPackagesXApply() ... DONE 1562s [00:52:41.989] Number of futures (= number of chunks): 1 1562s [00:52:41.990] Launching 1 futures (chunks) ... 1562s [00:52:41.990] Chunk #1 of 1 ... 1562s [00:52:41.990] - Finding globals in '...' for chunk #1 ... 1562s [00:52:41.991] getGlobalsAndPackages() ... 1562s [00:52:41.991] Searching for globals... 1562s [00:52:41.992] 1562s [00:52:41.992] Searching for globals ... DONE 1562s [00:52:41.992] - globals: [0] 1562s [00:52:41.992] getGlobalsAndPackages() ... DONE 1562s [00:52:41.992] + additional globals found: [n=0] 1562s [00:52:41.993] + additional namespaces needed: [n=0] 1562s [00:52:41.993] - Finding globals in '...' for chunk #1 ... DONE 1562s [00:52:41.993] - seeds: 1562s [00:52:41.993] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:41.993] getGlobalsAndPackages() ... 1562s [00:52:41.993] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:41.994] Resolving globals: FALSE 1562s [00:52:41.994] The total size of the 5 globals is 2.26 KiB (2312 bytes) 1562s [00:52:41.995] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 2.26 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (1.93 KiB of class ‘function’), ‘...future.elements_ii’ (336 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘list’) 1562s [00:52:41.995] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:41.996] 1562s [00:52:41.996] getGlobalsAndPackages() ... DONE 1562s [00:52:41.996] run() for ‘Future’ ... 1562s [00:52:41.997] - state: ‘created’ 1562s [00:52:41.997] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1562s [00:52:42.001] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1562s [00:52:42.001] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1562s [00:52:42.001] - Field: ‘label’ 1562s [00:52:42.002] - Field: ‘local’ 1562s [00:52:42.002] - Field: ‘owner’ 1562s [00:52:42.002] - Field: ‘envir’ 1562s [00:52:42.002] - Field: ‘packages’ 1562s [00:52:42.002] - Field: ‘gc’ 1562s [00:52:42.002] - Field: ‘conditions’ 1562s [00:52:42.003] - Field: ‘expr’ 1562s [00:52:42.003] - Field: ‘uuid’ 1562s [00:52:42.003] - Field: ‘seed’ 1562s [00:52:42.003] - Field: ‘version’ 1562s [00:52:42.003] - Field: ‘result’ 1562s [00:52:42.003] - Field: ‘asynchronous’ 1562s [00:52:42.004] - Field: ‘calls’ 1562s [00:52:42.004] - Field: ‘globals’ 1562s [00:52:42.004] - Field: ‘stdout’ 1562s [00:52:42.004] - Field: ‘earlySignal’ 1562s [00:52:42.005] - Field: ‘lazy’ 1562s [00:52:42.005] - Field: ‘state’ 1562s [00:52:42.005] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1562s [00:52:42.005] - Launch lazy future ... 1562s [00:52:42.006] Packages needed by the future expression (n = 0): 1562s [00:52:42.006] Packages needed by future strategies (n = 0): 1562s [00:52:42.006] { 1562s [00:52:42.006] { 1562s [00:52:42.006] { 1562s [00:52:42.006] ...future.startTime <- base::Sys.time() 1562s [00:52:42.006] { 1562s [00:52:42.006] { 1562s [00:52:42.006] { 1562s [00:52:42.006] base::local({ 1562s [00:52:42.006] has_future <- base::requireNamespace("future", 1562s [00:52:42.006] quietly = TRUE) 1562s [00:52:42.006] if (has_future) { 1562s [00:52:42.006] ns <- base::getNamespace("future") 1562s [00:52:42.006] version <- ns[[".package"]][["version"]] 1562s [00:52:42.006] if (is.null(version)) 1562s [00:52:42.006] version <- utils::packageVersion("future") 1562s [00:52:42.006] } 1562s [00:52:42.006] else { 1562s [00:52:42.006] version <- NULL 1562s [00:52:42.006] } 1562s [00:52:42.006] if (!has_future || version < "1.8.0") { 1562s [00:52:42.006] info <- base::c(r_version = base::gsub("R version ", 1562s [00:52:42.006] "", base::R.version$version.string), 1562s [00:52:42.006] platform = base::sprintf("%s (%s-bit)", 1562s [00:52:42.006] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1562s [00:52:42.006] os = base::paste(base::Sys.info()[base::c("sysname", 1562s [00:52:42.006] "release", "version")], collapse = " "), 1562s [00:52:42.006] hostname = base::Sys.info()[["nodename"]]) 1562s [00:52:42.006] info <- base::sprintf("%s: %s", base::names(info), 1562s [00:52:42.006] info) 1562s [00:52:42.006] info <- base::paste(info, collapse = "; ") 1562s [00:52:42.006] if (!has_future) { 1562s [00:52:42.006] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1562s [00:52:42.006] info) 1562s [00:52:42.006] } 1562s [00:52:42.006] else { 1562s [00:52:42.006] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1562s [00:52:42.006] info, version) 1562s [00:52:42.006] } 1562s [00:52:42.006] base::stop(msg) 1562s [00:52:42.006] } 1562s [00:52:42.006] }) 1562s [00:52:42.006] } 1562s [00:52:42.006] options(future.plan = NULL) 1562s [00:52:42.006] Sys.unsetenv("R_FUTURE_PLAN") 1562s [00:52:42.006] future::plan("default", .cleanup = FALSE, .init = FALSE) 1562s [00:52:42.006] } 1562s [00:52:42.006] ...future.workdir <- getwd() 1562s [00:52:42.006] } 1562s [00:52:42.006] ...future.oldOptions <- base::as.list(base::.Options) 1562s [00:52:42.006] ...future.oldEnvVars <- base::Sys.getenv() 1562s [00:52:42.006] } 1562s [00:52:42.006] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1562s [00:52:42.006] future.globals.maxSize = NULL, future.globals.method = NULL, 1562s [00:52:42.006] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1562s [00:52:42.006] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1562s [00:52:42.006] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1562s [00:52:42.006] future.stdout.windows.reencode = NULL, width = 80L) 1562s [00:52:42.006] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1562s [00:52:42.006] base::names(...future.oldOptions)) 1562s [00:52:42.006] } 1562s [00:52:42.006] if (FALSE) { 1562s [00:52:42.006] } 1562s [00:52:42.006] else { 1562s [00:52:42.006] if (TRUE) { 1562s [00:52:42.006] ...future.stdout <- base::rawConnection(base::raw(0L), 1562s [00:52:42.006] open = "w") 1562s [00:52:42.006] } 1562s [00:52:42.006] else { 1562s [00:52:42.006] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1562s [00:52:42.006] windows = "NUL", "/dev/null"), open = "w") 1562s [00:52:42.006] } 1562s [00:52:42.006] base::sink(...future.stdout, type = "output", split = FALSE) 1562s [00:52:42.006] base::on.exit(if (!base::is.null(...future.stdout)) { 1562s [00:52:42.006] base::sink(type = "output", split = FALSE) 1562s [00:52:42.006] base::close(...future.stdout) 1562s [00:52:42.006] }, add = TRUE) 1562s [00:52:42.006] } 1562s [00:52:42.006] ...future.frame <- base::sys.nframe() 1562s [00:52:42.006] ...future.conditions <- base::list() 1562s [00:52:42.006] ...future.rng <- base::globalenv()$.Random.seed 1562s [00:52:42.006] if (FALSE) { 1562s [00:52:42.006] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1562s [00:52:42.006] "...future.value", "...future.globalenv.names", ".Random.seed") 1562s [00:52:42.006] } 1562s [00:52:42.006] ...future.result <- base::tryCatch({ 1562s [00:52:42.006] base::withCallingHandlers({ 1562s [00:52:42.006] ...future.value <- base::withVisible(base::local({ 1562s [00:52:42.006] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1562s [00:52:42.006] if (!identical(...future.globals.maxSize.org, 1562s [00:52:42.006] ...future.globals.maxSize)) { 1562s [00:52:42.006] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1562s [00:52:42.006] on.exit(options(oopts), add = TRUE) 1562s [00:52:42.006] } 1562s [00:52:42.006] { 1562s [00:52:42.006] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1562s [00:52:42.006] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1562s [00:52:42.006] USE.NAMES = FALSE) 1562s [00:52:42.006] do.call(mapply, args = args) 1562s [00:52:42.006] } 1562s [00:52:42.006] })) 1562s [00:52:42.006] future::FutureResult(value = ...future.value$value, 1562s [00:52:42.006] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1562s [00:52:42.006] ...future.rng), globalenv = if (FALSE) 1562s [00:52:42.006] list(added = base::setdiff(base::names(base::.GlobalEnv), 1562s [00:52:42.006] ...future.globalenv.names)) 1562s [00:52:42.006] else NULL, started = ...future.startTime, version = "1.8") 1562s [00:52:42.006] }, condition = base::local({ 1562s [00:52:42.006] c <- base::c 1562s [00:52:42.006] inherits <- base::inherits 1562s [00:52:42.006] invokeRestart <- base::invokeRestart 1562s [00:52:42.006] length <- base::length 1562s [00:52:42.006] list <- base::list 1562s [00:52:42.006] seq.int <- base::seq.int 1562s [00:52:42.006] signalCondition <- base::signalCondition 1562s [00:52:42.006] sys.calls <- base::sys.calls 1562s [00:52:42.006] `[[` <- base::`[[` 1562s [00:52:42.006] `+` <- base::`+` 1562s [00:52:42.006] `<<-` <- base::`<<-` 1562s [00:52:42.006] sysCalls <- function(calls = sys.calls(), from = 1L) { 1562s [00:52:42.006] calls[seq.int(from = from + 12L, to = length(calls) - 1562s [00:52:42.006] 3L)] 1562s [00:52:42.006] } 1562s [00:52:42.006] function(cond) { 1562s [00:52:42.006] is_error <- inherits(cond, "error") 1562s [00:52:42.006] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1562s [00:52:42.006] NULL) 1562s [00:52:42.006] if (is_error) { 1562s [00:52:42.006] sessionInformation <- function() { 1562s [00:52:42.006] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1562s [00:52:42.006] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1562s [00:52:42.006] search = base::search(), system = base::Sys.info()) 1562s [00:52:42.006] } 1562s [00:52:42.006] ...future.conditions[[length(...future.conditions) + 1562s [00:52:42.006] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1562s [00:52:42.006] cond$call), session = sessionInformation(), 1562s [00:52:42.006] timestamp = base::Sys.time(), signaled = 0L) 1562s [00:52:42.006] signalCondition(cond) 1562s [00:52:42.006] } 1562s [00:52:42.006] else if (!ignore && TRUE && inherits(cond, c("condition", 1562s [00:52:42.006] "immediateCondition"))) { 1562s [00:52:42.006] signal <- TRUE && inherits(cond, "immediateCondition") 1562s [00:52:42.006] ...future.conditions[[length(...future.conditions) + 1562s [00:52:42.006] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1562s [00:52:42.006] if (TRUE && !signal) { 1562s [00:52:42.006] muffleCondition <- function (cond, pattern = "^muffle") 1562s [00:52:42.006] { 1562s [00:52:42.006] inherits <- base::inherits 1562s [00:52:42.006] invokeRestart <- base::invokeRestart 1562s [00:52:42.006] is.null <- base::is.null 1562s [00:52:42.006] muffled <- FALSE 1562s [00:52:42.006] if (inherits(cond, "message")) { 1562s [00:52:42.006] muffled <- grepl(pattern, "muffleMessage") 1562s [00:52:42.006] if (muffled) 1562s [00:52:42.006] invokeRestart("muffleMessage") 1562s [00:52:42.006] } 1562s [00:52:42.006] else if (inherits(cond, "warning")) { 1562s [00:52:42.006] muffled <- grepl(pattern, "muffleWarning") 1562s [00:52:42.006] if (muffled) 1562s [00:52:42.006] invokeRestart("muffleWarning") 1562s [00:52:42.006] } 1562s [00:52:42.006] else if (inherits(cond, "condition")) { 1562s [00:52:42.006] if (!is.null(pattern)) { 1562s [00:52:42.006] computeRestarts <- base::computeRestarts 1562s [00:52:42.006] grepl <- base::grepl 1562s [00:52:42.006] restarts <- computeRestarts(cond) 1562s [00:52:42.006] for (restart in restarts) { 1562s [00:52:42.006] name <- restart$name 1562s [00:52:42.006] if (is.null(name)) 1562s [00:52:42.006] next 1562s [00:52:42.006] if (!grepl(pattern, name)) 1562s [00:52:42.006] next 1562s [00:52:42.006] invokeRestart(restart) 1562s [00:52:42.006] muffled <- TRUE 1562s [00:52:42.006] break 1562s [00:52:42.006] } 1562s [00:52:42.006] } 1562s [00:52:42.006] } 1562s [00:52:42.006] invisible(muffled) 1562s [00:52:42.006] } 1562s [00:52:42.006] muffleCondition(cond, pattern = "^muffle") 1562s [00:52:42.006] } 1562s [00:52:42.006] } 1562s [00:52:42.006] else { 1562s [00:52:42.006] if (TRUE) { 1562s [00:52:42.006] muffleCondition <- function (cond, pattern = "^muffle") 1562s [00:52:42.006] { 1562s [00:52:42.006] inherits <- base::inherits 1562s [00:52:42.006] invokeRestart <- base::invokeRestart 1562s [00:52:42.006] is.null <- base::is.null 1562s [00:52:42.006] muffled <- FALSE 1562s [00:52:42.006] if (inherits(cond, "message")) { 1562s [00:52:42.006] muffled <- grepl(pattern, "muffleMessage") 1562s [00:52:42.006] if (muffled) 1562s [00:52:42.006] invokeRestart("muffleMessage") 1562s [00:52:42.006] } 1562s [00:52:42.006] else if (inherits(cond, "warning")) { 1562s [00:52:42.006] muffled <- grepl(pattern, "muffleWarning") 1562s [00:52:42.006] if (muffled) 1562s [00:52:42.006] invokeRestart("muffleWarning") 1562s [00:52:42.006] } 1562s [00:52:42.006] else if (inherits(cond, "condition")) { 1562s [00:52:42.006] if (!is.null(pattern)) { 1562s [00:52:42.006] computeRestarts <- base::computeRestarts 1562s [00:52:42.006] grepl <- base::grepl 1562s [00:52:42.006] restarts <- computeRestarts(cond) 1562s [00:52:42.006] for (restart in restarts) { 1562s [00:52:42.006] name <- restart$name 1562s [00:52:42.006] if (is.null(name)) 1562s [00:52:42.006] next 1562s [00:52:42.006] if (!grepl(pattern, name)) 1562s [00:52:42.006] next 1562s [00:52:42.006] invokeRestart(restart) 1562s [00:52:42.006] muffled <- TRUE 1562s [00:52:42.006] break 1562s [00:52:42.006] } 1562s [00:52:42.006] } 1562s [00:52:42.006] } 1562s [00:52:42.006] invisible(muffled) 1562s [00:52:42.006] } 1562s [00:52:42.006] muffleCondition(cond, pattern = "^muffle") 1562s [00:52:42.006] } 1562s [00:52:42.006] } 1562s [00:52:42.006] } 1562s [00:52:42.006] })) 1562s [00:52:42.006] }, error = function(ex) { 1562s [00:52:42.006] base::structure(base::list(value = NULL, visible = NULL, 1562s [00:52:42.006] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1562s [00:52:42.006] ...future.rng), started = ...future.startTime, 1562s [00:52:42.006] finished = Sys.time(), session_uuid = NA_character_, 1562s [00:52:42.006] version = "1.8"), class = "FutureResult") 1562s [00:52:42.006] }, finally = { 1562s [00:52:42.006] if (!identical(...future.workdir, getwd())) 1562s [00:52:42.006] setwd(...future.workdir) 1562s [00:52:42.006] { 1562s [00:52:42.006] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1562s [00:52:42.006] ...future.oldOptions$nwarnings <- NULL 1562s [00:52:42.006] } 1562s [00:52:42.006] base::options(...future.oldOptions) 1562s [00:52:42.006] if (.Platform$OS.type == "windows") { 1562s [00:52:42.006] old_names <- names(...future.oldEnvVars) 1562s [00:52:42.006] envs <- base::Sys.getenv() 1562s [00:52:42.006] names <- names(envs) 1562s [00:52:42.006] common <- intersect(names, old_names) 1562s [00:52:42.006] added <- setdiff(names, old_names) 1562s [00:52:42.006] removed <- setdiff(old_names, names) 1562s [00:52:42.006] changed <- common[...future.oldEnvVars[common] != 1562s [00:52:42.006] envs[common]] 1562s [00:52:42.006] NAMES <- toupper(changed) 1562s [00:52:42.006] args <- list() 1562s [00:52:42.006] for (kk in seq_along(NAMES)) { 1562s [00:52:42.006] name <- changed[[kk]] 1562s [00:52:42.006] NAME <- NAMES[[kk]] 1562s [00:52:42.006] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.006] next 1562s [00:52:42.006] args[[name]] <- ...future.oldEnvVars[[name]] 1562s [00:52:42.006] } 1562s [00:52:42.006] NAMES <- toupper(added) 1562s [00:52:42.006] for (kk in seq_along(NAMES)) { 1562s [00:52:42.006] name <- added[[kk]] 1562s [00:52:42.006] NAME <- NAMES[[kk]] 1562s [00:52:42.006] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.006] next 1562s [00:52:42.006] args[[name]] <- "" 1562s [00:52:42.006] } 1562s [00:52:42.006] NAMES <- toupper(removed) 1562s [00:52:42.006] for (kk in seq_along(NAMES)) { 1562s [00:52:42.006] name <- removed[[kk]] 1562s [00:52:42.006] NAME <- NAMES[[kk]] 1562s [00:52:42.006] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.006] next 1562s [00:52:42.006] args[[name]] <- ...future.oldEnvVars[[name]] 1562s [00:52:42.006] } 1562s [00:52:42.006] if (length(args) > 0) 1562s [00:52:42.006] base::do.call(base::Sys.setenv, args = args) 1562s [00:52:42.006] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1562s [00:52:42.006] } 1562s [00:52:42.006] else { 1562s [00:52:42.006] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1562s [00:52:42.006] } 1562s [00:52:42.006] { 1562s [00:52:42.006] if (base::length(...future.futureOptionsAdded) > 1562s [00:52:42.006] 0L) { 1562s [00:52:42.006] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1562s [00:52:42.006] base::names(opts) <- ...future.futureOptionsAdded 1562s [00:52:42.006] base::options(opts) 1562s [00:52:42.006] } 1562s [00:52:42.006] { 1562s [00:52:42.006] { 1562s [00:52:42.006] base::assign(".Random.seed", c(10407L, 2079749599L, 1562s [00:52:42.006] -1712504007L, 90762767L, 511132818L, -526970845L, 1562s [00:52:42.006] -1057805512L), envir = base::globalenv(), 1562s [00:52:42.006] inherits = FALSE) 1562s [00:52:42.006] NULL 1562s [00:52:42.006] } 1562s [00:52:42.006] options(future.plan = NULL) 1562s [00:52:42.006] if (is.na(NA_character_)) 1562s [00:52:42.006] Sys.unsetenv("R_FUTURE_PLAN") 1562s [00:52:42.006] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1562s [00:52:42.006] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1562s [00:52:42.006] envir = parent.frame()) 1562s [00:52:42.006] { 1562s [00:52:42.006] default_workers <- missing(workers) 1562s [00:52:42.006] if (is.function(workers)) 1562s [00:52:42.006] workers <- workers() 1562s [00:52:42.006] workers <- structure(as.integer(workers), 1562s [00:52:42.006] class = class(workers)) 1562s [00:52:42.006] stop_if_not(is.finite(workers), workers >= 1562s [00:52:42.006] 1L) 1562s [00:52:42.006] if ((workers == 1L && !inherits(workers, 1562s [00:52:42.006] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1562s [00:52:42.006] if (default_workers) 1562s [00:52:42.006] supportsMulticore(warn = TRUE) 1562s [00:52:42.006] return(sequential(..., envir = envir)) 1562s [00:52:42.006] } 1562s [00:52:42.006] oopts <- options(mc.cores = workers) 1562s [00:52:42.006] on.exit(options(oopts)) 1562s [00:52:42.006] future <- MulticoreFuture(..., workers = workers, 1562s [00:52:42.006] envir = envir) 1562s [00:52:42.006] if (!future$lazy) 1562s [00:52:42.006] future <- run(future) 1562s [00:52:42.006] invisible(future) 1562s [00:52:42.006] }), .cleanup = FALSE, .init = FALSE) 1562s [00:52:42.006] } 1562s [00:52:42.006] } 1562s [00:52:42.006] } 1562s [00:52:42.006] }) 1562s [00:52:42.006] if (TRUE) { 1562s [00:52:42.006] base::sink(type = "output", split = FALSE) 1562s [00:52:42.006] if (TRUE) { 1562s [00:52:42.006] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1562s [00:52:42.006] } 1562s [00:52:42.006] else { 1562s [00:52:42.006] ...future.result["stdout"] <- base::list(NULL) 1562s [00:52:42.006] } 1562s [00:52:42.006] base::close(...future.stdout) 1562s [00:52:42.006] ...future.stdout <- NULL 1562s [00:52:42.006] } 1562s [00:52:42.006] ...future.result$conditions <- ...future.conditions 1562s [00:52:42.006] ...future.result$finished <- base::Sys.time() 1562s [00:52:42.006] ...future.result 1562s [00:52:42.006] } 1562s [00:52:42.010] assign_globals() ... 1562s [00:52:42.010] List of 5 1562s [00:52:42.010] $ ...future.FUN :function (x, y) 1562s [00:52:42.010] $ MoreArgs : list() 1562s [00:52:42.010] $ ...future.elements_ii :List of 2 1562s [00:52:42.010] ..$ :List of 3 1562s [00:52:42.010] .. ..$ a: num 1 1562s [00:52:42.010] .. ..$ b: num 2 1562s [00:52:42.010] .. ..$ c: num 3 1562s [00:52:42.010] ..$ :List of 3 1562s [00:52:42.010] .. ..$ A: num 10 1562s [00:52:42.010] .. ..$ B: num 0 1562s [00:52:42.010] .. ..$ C: num -10 1562s [00:52:42.010] $ ...future.seeds_ii : NULL 1562s [00:52:42.010] $ ...future.globals.maxSize: NULL 1562s [00:52:42.010] - attr(*, "where")=List of 5 1562s [00:52:42.010] ..$ ...future.FUN : 1562s [00:52:42.010] ..$ MoreArgs : 1562s [00:52:42.010] ..$ ...future.elements_ii : 1562s [00:52:42.010] ..$ ...future.seeds_ii : 1562s [00:52:42.010] ..$ ...future.globals.maxSize: 1562s [00:52:42.010] - attr(*, "resolved")= logi FALSE 1562s [00:52:42.010] - attr(*, "total_size")= num 2312 1562s [00:52:42.010] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1562s [00:52:42.010] - attr(*, "already-done")= logi TRUE 1562s [00:52:42.026] - reassign environment for ‘...future.FUN’ 1562s [00:52:42.026] - copied ‘...future.FUN’ to environment 1562s [00:52:42.026] - copied ‘MoreArgs’ to environment 1562s [00:52:42.026] - copied ‘...future.elements_ii’ to environment 1562s [00:52:42.027] - copied ‘...future.seeds_ii’ to environment 1562s [00:52:42.027] - copied ‘...future.globals.maxSize’ to environment 1562s [00:52:42.028] assign_globals() ... done 1562s [00:52:42.028] plan(): Setting new future strategy stack: 1562s [00:52:42.028] List of future strategies: 1562s [00:52:42.028] 1. sequential: 1562s [00:52:42.028] - args: function (..., envir = parent.frame()) 1562s [00:52:42.028] - tweaked: FALSE 1562s [00:52:42.028] - call: NULL 1562s [00:52:42.029] plan(): nbrOfWorkers() = 1 1562s [00:52:42.030] plan(): Setting new future strategy stack: 1562s [00:52:42.030] List of future strategies: 1562s [00:52:42.030] 1. multicore: 1562s [00:52:42.030] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1562s [00:52:42.030] - tweaked: FALSE 1562s [00:52:42.030] - call: plan(strategy) 1562s [00:52:42.034] plan(): nbrOfWorkers() = 1 1562s [00:52:42.035] SequentialFuture started (and completed) 1562s [00:52:42.035] - Launch lazy future ... done 1562s [00:52:42.035] run() for ‘SequentialFuture’ ... done 1562s [00:52:42.035] Created future: 1562s [00:52:42.035] SequentialFuture: 1562s [00:52:42.035] Label: ‘future_.mapply-1’ 1562s [00:52:42.035] Expression: 1562s [00:52:42.035] { 1562s [00:52:42.035] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1562s [00:52:42.035] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1562s [00:52:42.035] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1562s [00:52:42.035] on.exit(options(oopts), add = TRUE) 1562s [00:52:42.035] } 1562s [00:52:42.035] { 1562s [00:52:42.035] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1562s [00:52:42.035] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1562s [00:52:42.035] do.call(mapply, args = args) 1562s [00:52:42.035] } 1562s [00:52:42.035] } 1562s [00:52:42.035] Lazy evaluation: FALSE 1562s [00:52:42.035] Asynchronous evaluation: FALSE 1562s [00:52:42.035] Local evaluation: TRUE 1562s [00:52:42.035] Environment: R_GlobalEnv 1562s [00:52:42.035] Capture standard output: TRUE 1562s [00:52:42.035] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1562s [00:52:42.035] Globals: 5 objects totaling 2.26 KiB (function ‘...future.FUN’ of 1.93 KiB, list ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1562s [00:52:42.035] Packages: 1562s [00:52:42.035] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1562s [00:52:42.035] Resolved: TRUE 1562s [00:52:42.035] Value: 200 bytes of class ‘list’ 1562s [00:52:42.035] Early signaling: FALSE 1562s [00:52:42.035] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1562s [00:52:42.035] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1562s [00:52:42.037] Chunk #1 of 1 ... DONE 1562s [00:52:42.037] Launching 1 futures (chunks) ... DONE 1562s [00:52:42.037] Resolving 1 futures (chunks) ... 1562s [00:52:42.037] resolve() on list ... 1562s [00:52:42.038] recursive: 0 1562s [00:52:42.038] length: 1 1562s [00:52:42.038] 1562s [00:52:42.038] resolved() for ‘SequentialFuture’ ... 1562s [00:52:42.038] - state: ‘finished’ 1562s [00:52:42.038] - run: TRUE 1562s [00:52:42.039] - result: ‘FutureResult’ 1562s [00:52:42.039] resolved() for ‘SequentialFuture’ ... done 1562s [00:52:42.039] Future #1 1562s [00:52:42.040] signalConditionsASAP(SequentialFuture, pos=1) ... 1562s [00:52:42.040] - nx: 1 1562s [00:52:42.040] - relay: TRUE 1562s [00:52:42.040] - stdout: TRUE 1562s [00:52:42.040] - signal: TRUE 1562s [00:52:42.040] - resignal: FALSE 1562s [00:52:42.041] - force: TRUE 1562s [00:52:42.041] - relayed: [n=1] FALSE 1562s [00:52:42.041] - queued futures: [n=1] FALSE 1562s [00:52:42.041] - until=1 1562s [00:52:42.041] - relaying element #1 1562s [00:52:42.042] - relayed: [n=1] TRUE 1562s [00:52:42.042] - queued futures: [n=1] TRUE 1562s [00:52:42.043] signalConditionsASAP(SequentialFuture, pos=1) ... done 1562s [00:52:42.043] length: 0 (resolved future 1) 1562s [00:52:42.043] Relaying remaining futures 1562s [00:52:42.043] signalConditionsASAP(NULL, pos=0) ... 1562s [00:52:42.043] - nx: 1 1562s [00:52:42.043] - relay: TRUE 1562s [00:52:42.043] - stdout: TRUE 1562s [00:52:42.044] - signal: TRUE 1562s [00:52:42.044] - resignal: FALSE 1562s [00:52:42.044] - force: TRUE 1562s [00:52:42.044] - relayed: [n=1] TRUE 1562s [00:52:42.044] - queued futures: [n=1] TRUE 1562s - flush all 1562s [00:52:42.045] - relayed: [n=1] TRUE 1562s [00:52:42.045] - queued futures: [n=1] TRUE 1562s [00:52:42.045] signalConditionsASAP(NULL, pos=0) ... done 1562s [00:52:42.045] resolve() on list ... DONE 1562s [00:52:42.045] - Number of value chunks collected: 1 1562s [00:52:42.046] Resolving 1 futures (chunks) ... DONE 1562s [00:52:42.046] Reducing values from 1 chunks ... 1562s [00:52:42.046] - Number of values collected after concatenation: 3 1562s [00:52:42.047] - Number of values expected: 3 1562s [00:52:42.047] Reducing values from 1 chunks ... DONE 1562s [00:52:42.047] future_mapply() ... DONE 1562s [00:52:42.048] future_mapply() ... 1562s [00:52:42.052] Number of chunks: 5 1562s [00:52:42.052] getGlobalsAndPackagesXApply() ... 1562s [00:52:42.052] - future.globals: TRUE 1562s [00:52:42.052] getGlobalsAndPackages() ... 1562s [00:52:42.053] Searching for globals... 1562s [00:52:42.055] - globals found: [3] ‘FUN’, ‘paste’, ‘rep.int’ 1562s [00:52:42.055] Searching for globals ... DONE 1562s [00:52:42.055] Resolving globals: FALSE 1562s [00:52:42.056] The total size of the 1 globals is 3.24 KiB (3320 bytes) 1562s [00:52:42.056] The total size of the 1 globals exported for future expression (‘FUN()’) is 3.24 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (3.24 KiB of class ‘function’) 1562s [00:52:42.056] - globals: [1] ‘FUN’ 1562s [00:52:42.056] 1562s [00:52:42.057] getGlobalsAndPackages() ... DONE 1562s [00:52:42.057] - globals found/used: [n=1] ‘FUN’ 1562s [00:52:42.057] - needed namespaces: [n=0] 1562s [00:52:42.058] Finding globals ... DONE 1562s [00:52:42.058] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1562s [00:52:42.058] List of 2 1562s [00:52:42.058] $ ...future.FUN:function (C, k) 1562s [00:52:42.058] $ MoreArgs : NULL 1562s [00:52:42.058] - attr(*, "where")=List of 2 1562s [00:52:42.058] ..$ ...future.FUN: 1562s [00:52:42.058] ..$ MoreArgs : 1562s [00:52:42.058] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1562s [00:52:42.058] - attr(*, "resolved")= logi FALSE 1562s [00:52:42.058] - attr(*, "total_size")= num NA 1562s [00:52:42.064] Packages to be attached in all futures: [n=0] 1562s [00:52:42.065] getGlobalsAndPackagesXApply() ... DONE 1562s [00:52:42.065] Number of futures (= number of chunks): 5 1562s [00:52:42.065] Launching 5 futures (chunks) ... 1562s [00:52:42.065] Chunk #1 of 5 ... 1562s [00:52:42.065] - Finding globals in '...' for chunk #1 ... 1562s [00:52:42.066] getGlobalsAndPackages() ... 1562s [00:52:42.066] Searching for globals... 1562s [00:52:42.067] 1562s [00:52:42.067] Searching for globals ... DONE 1562s [00:52:42.067] - globals: [0] 1562s [00:52:42.067] getGlobalsAndPackages() ... DONE 1562s [00:52:42.067] + additional globals found: [n=0] 1562s [00:52:42.068] + additional namespaces needed: [n=0] 1562s [00:52:42.068] - Finding globals in '...' for chunk #1 ... DONE 1562s [00:52:42.068] - Adjusted option 'future.globals.maxSize': 524288000 -> 5 * 524288000 = 2621440000 (bytes) 1562s [00:52:42.068] - seeds: 1562s [00:52:42.068] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.069] getGlobalsAndPackages() ... 1562s [00:52:42.069] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.069] Resolving globals: FALSE 1562s [00:52:42.070] The total size of the 5 globals is 3.41 KiB (3488 bytes) 1562s [00:52:42.070] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 3.41 KiB.. This exceeds the maximum allowed size of 2.44 GiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (3.24 KiB of class ‘function’), ‘...future.elements_ii’ (168 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1562s [00:52:42.071] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.071] 1562s [00:52:42.071] getGlobalsAndPackages() ... DONE 1562s [00:52:42.072] run() for ‘Future’ ... 1562s [00:52:42.073] - state: ‘created’ 1562s [00:52:42.073] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1562s [00:52:42.083] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1562s [00:52:42.083] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1562s [00:52:42.083] - Field: ‘label’ 1562s [00:52:42.083] - Field: ‘local’ 1562s [00:52:42.084] - Field: ‘owner’ 1562s [00:52:42.084] - Field: ‘envir’ 1562s [00:52:42.084] - Field: ‘packages’ 1562s [00:52:42.084] - Field: ‘gc’ 1562s [00:52:42.084] - Field: ‘conditions’ 1562s [00:52:42.085] - Field: ‘expr’ 1562s [00:52:42.085] - Field: ‘uuid’ 1562s [00:52:42.085] - Field: ‘seed’ 1562s [00:52:42.085] - Field: ‘version’ 1562s [00:52:42.086] - Field: ‘result’ 1562s [00:52:42.086] - Field: ‘asynchronous’ 1562s [00:52:42.086] - Field: ‘calls’ 1562s [00:52:42.086] - Field: ‘globals’ 1562s [00:52:42.086] - Field: ‘stdout’ 1562s [00:52:42.087] - Field: ‘earlySignal’ 1562s [00:52:42.087] - Field: ‘lazy’ 1562s [00:52:42.087] - Field: ‘state’ 1562s [00:52:42.087] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1562s [00:52:42.087] - Launch lazy future ... 1562s [00:52:42.088] Packages needed by the future expression (n = 0): 1562s [00:52:42.088] Packages needed by future strategies (n = 0): 1562s [00:52:42.089] { 1562s [00:52:42.089] { 1562s [00:52:42.089] { 1562s [00:52:42.089] ...future.startTime <- base::Sys.time() 1562s [00:52:42.089] { 1562s [00:52:42.089] { 1562s [00:52:42.089] { 1562s [00:52:42.089] base::local({ 1562s [00:52:42.089] has_future <- base::requireNamespace("future", 1562s [00:52:42.089] quietly = TRUE) 1562s [00:52:42.089] if (has_future) { 1562s [00:52:42.089] ns <- base::getNamespace("future") 1562s [00:52:42.089] version <- ns[[".package"]][["version"]] 1562s [00:52:42.089] if (is.null(version)) 1562s [00:52:42.089] version <- utils::packageVersion("future") 1562s [00:52:42.089] } 1562s [00:52:42.089] else { 1562s [00:52:42.089] version <- NULL 1562s [00:52:42.089] } 1562s [00:52:42.089] if (!has_future || version < "1.8.0") { 1562s [00:52:42.089] info <- base::c(r_version = base::gsub("R version ", 1562s [00:52:42.089] "", base::R.version$version.string), 1562s [00:52:42.089] platform = base::sprintf("%s (%s-bit)", 1562s [00:52:42.089] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1562s [00:52:42.089] os = base::paste(base::Sys.info()[base::c("sysname", 1562s [00:52:42.089] "release", "version")], collapse = " "), 1562s [00:52:42.089] hostname = base::Sys.info()[["nodename"]]) 1562s [00:52:42.089] info <- base::sprintf("%s: %s", base::names(info), 1562s [00:52:42.089] info) 1562s [00:52:42.089] info <- base::paste(info, collapse = "; ") 1562s [00:52:42.089] if (!has_future) { 1562s [00:52:42.089] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1562s [00:52:42.089] info) 1562s [00:52:42.089] } 1562s [00:52:42.089] else { 1562s [00:52:42.089] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1562s [00:52:42.089] info, version) 1562s [00:52:42.089] } 1562s [00:52:42.089] base::stop(msg) 1562s [00:52:42.089] } 1562s [00:52:42.089] }) 1562s [00:52:42.089] } 1562s [00:52:42.089] options(future.plan = NULL) 1562s [00:52:42.089] Sys.unsetenv("R_FUTURE_PLAN") 1562s [00:52:42.089] future::plan("default", .cleanup = FALSE, .init = FALSE) 1562s [00:52:42.089] } 1562s [00:52:42.089] ...future.workdir <- getwd() 1562s [00:52:42.089] } 1562s [00:52:42.089] ...future.oldOptions <- base::as.list(base::.Options) 1562s [00:52:42.089] ...future.oldEnvVars <- base::Sys.getenv() 1562s [00:52:42.089] } 1562s [00:52:42.089] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1562s [00:52:42.089] future.globals.maxSize = 2621440000, future.globals.method = NULL, 1562s [00:52:42.089] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1562s [00:52:42.089] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1562s [00:52:42.089] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1562s [00:52:42.089] future.stdout.windows.reencode = NULL, width = 80L) 1562s [00:52:42.089] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1562s [00:52:42.089] base::names(...future.oldOptions)) 1562s [00:52:42.089] } 1562s [00:52:42.089] if (FALSE) { 1562s [00:52:42.089] } 1562s [00:52:42.089] else { 1562s [00:52:42.089] if (TRUE) { 1562s [00:52:42.089] ...future.stdout <- base::rawConnection(base::raw(0L), 1562s [00:52:42.089] open = "w") 1562s [00:52:42.089] } 1562s [00:52:42.089] else { 1562s [00:52:42.089] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1562s [00:52:42.089] windows = "NUL", "/dev/null"), open = "w") 1562s [00:52:42.089] } 1562s [00:52:42.089] base::sink(...future.stdout, type = "output", split = FALSE) 1562s [00:52:42.089] base::on.exit(if (!base::is.null(...future.stdout)) { 1562s [00:52:42.089] base::sink(type = "output", split = FALSE) 1562s [00:52:42.089] base::close(...future.stdout) 1562s [00:52:42.089] }, add = TRUE) 1562s [00:52:42.089] } 1562s [00:52:42.089] ...future.frame <- base::sys.nframe() 1562s [00:52:42.089] ...future.conditions <- base::list() 1562s [00:52:42.089] ...future.rng <- base::globalenv()$.Random.seed 1562s [00:52:42.089] if (FALSE) { 1562s [00:52:42.089] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1562s [00:52:42.089] "...future.value", "...future.globalenv.names", ".Random.seed") 1562s [00:52:42.089] } 1562s [00:52:42.089] ...future.result <- base::tryCatch({ 1562s [00:52:42.089] base::withCallingHandlers({ 1562s [00:52:42.089] ...future.value <- base::withVisible(base::local({ 1562s [00:52:42.089] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1562s [00:52:42.089] if (!identical(...future.globals.maxSize.org, 1562s [00:52:42.089] ...future.globals.maxSize)) { 1562s [00:52:42.089] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1562s [00:52:42.089] on.exit(options(oopts), add = TRUE) 1562s [00:52:42.089] } 1562s [00:52:42.089] { 1562s [00:52:42.089] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1562s [00:52:42.089] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1562s [00:52:42.089] USE.NAMES = FALSE) 1562s [00:52:42.089] do.call(mapply, args = args) 1562s [00:52:42.089] } 1562s [00:52:42.089] })) 1562s [00:52:42.089] future::FutureResult(value = ...future.value$value, 1562s [00:52:42.089] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1562s [00:52:42.089] ...future.rng), globalenv = if (FALSE) 1562s [00:52:42.089] list(added = base::setdiff(base::names(base::.GlobalEnv), 1562s [00:52:42.089] ...future.globalenv.names)) 1562s [00:52:42.089] else NULL, started = ...future.startTime, version = "1.8") 1562s [00:52:42.089] }, condition = base::local({ 1562s [00:52:42.089] c <- base::c 1562s [00:52:42.089] inherits <- base::inherits 1562s [00:52:42.089] invokeRestart <- base::invokeRestart 1562s [00:52:42.089] length <- base::length 1562s [00:52:42.089] list <- base::list 1562s [00:52:42.089] seq.int <- base::seq.int 1562s [00:52:42.089] signalCondition <- base::signalCondition 1562s [00:52:42.089] sys.calls <- base::sys.calls 1562s [00:52:42.089] `[[` <- base::`[[` 1562s [00:52:42.089] `+` <- base::`+` 1562s [00:52:42.089] `<<-` <- base::`<<-` 1562s [00:52:42.089] sysCalls <- function(calls = sys.calls(), from = 1L) { 1562s [00:52:42.089] calls[seq.int(from = from + 12L, to = length(calls) - 1562s [00:52:42.089] 3L)] 1562s [00:52:42.089] } 1562s [00:52:42.089] function(cond) { 1562s [00:52:42.089] is_error <- inherits(cond, "error") 1562s [00:52:42.089] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1562s [00:52:42.089] NULL) 1562s [00:52:42.089] if (is_error) { 1562s [00:52:42.089] sessionInformation <- function() { 1562s [00:52:42.089] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1562s [00:52:42.089] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1562s [00:52:42.089] search = base::search(), system = base::Sys.info()) 1562s [00:52:42.089] } 1562s [00:52:42.089] ...future.conditions[[length(...future.conditions) + 1562s [00:52:42.089] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1562s [00:52:42.089] cond$call), session = sessionInformation(), 1562s [00:52:42.089] timestamp = base::Sys.time(), signaled = 0L) 1562s [00:52:42.089] signalCondition(cond) 1562s [00:52:42.089] } 1562s [00:52:42.089] else if (!ignore && TRUE && inherits(cond, c("condition", 1562s [00:52:42.089] "immediateCondition"))) { 1562s [00:52:42.089] signal <- TRUE && inherits(cond, "immediateCondition") 1562s [00:52:42.089] ...future.conditions[[length(...future.conditions) + 1562s [00:52:42.089] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1562s [00:52:42.089] if (TRUE && !signal) { 1562s [00:52:42.089] muffleCondition <- function (cond, pattern = "^muffle") 1562s [00:52:42.089] { 1562s [00:52:42.089] inherits <- base::inherits 1562s [00:52:42.089] invokeRestart <- base::invokeRestart 1562s [00:52:42.089] is.null <- base::is.null 1562s [00:52:42.089] muffled <- FALSE 1562s [00:52:42.089] if (inherits(cond, "message")) { 1562s [00:52:42.089] muffled <- grepl(pattern, "muffleMessage") 1562s [00:52:42.089] if (muffled) 1562s [00:52:42.089] invokeRestart("muffleMessage") 1562s [00:52:42.089] } 1562s [00:52:42.089] else if (inherits(cond, "warning")) { 1562s [00:52:42.089] muffled <- grepl(pattern, "muffleWarning") 1562s [00:52:42.089] if (muffled) 1562s [00:52:42.089] invokeRestart("muffleWarning") 1562s [00:52:42.089] } 1562s [00:52:42.089] else if (inherits(cond, "condition")) { 1562s [00:52:42.089] if (!is.null(pattern)) { 1562s [00:52:42.089] computeRestarts <- base::computeRestarts 1562s [00:52:42.089] grepl <- base::grepl 1562s [00:52:42.089] restarts <- computeRestarts(cond) 1562s [00:52:42.089] for (restart in restarts) { 1562s [00:52:42.089] name <- restart$name 1562s [00:52:42.089] if (is.null(name)) 1562s [00:52:42.089] next 1562s [00:52:42.089] if (!grepl(pattern, name)) 1562s [00:52:42.089] next 1562s [00:52:42.089] invokeRestart(restart) 1562s [00:52:42.089] muffled <- TRUE 1562s [00:52:42.089] break 1562s [00:52:42.089] } 1562s [00:52:42.089] } 1562s [00:52:42.089] } 1562s [00:52:42.089] invisible(muffled) 1562s [00:52:42.089] } 1562s [00:52:42.089] muffleCondition(cond, pattern = "^muffle") 1562s [00:52:42.089] } 1562s [00:52:42.089] } 1562s [00:52:42.089] else { 1562s [00:52:42.089] if (TRUE) { 1562s [00:52:42.089] muffleCondition <- function (cond, pattern = "^muffle") 1562s [00:52:42.089] { 1562s [00:52:42.089] inherits <- base::inherits 1562s [00:52:42.089] invokeRestart <- base::invokeRestart 1562s [00:52:42.089] is.null <- base::is.null 1562s [00:52:42.089] muffled <- FALSE 1562s [00:52:42.089] if (inherits(cond, "message")) { 1562s [00:52:42.089] muffled <- grepl(pattern, "muffleMessage") 1562s [00:52:42.089] if (muffled) 1562s [00:52:42.089] invokeRestart("muffleMessage") 1562s [00:52:42.089] } 1562s [00:52:42.089] else if (inherits(cond, "warning")) { 1562s [00:52:42.089] muffled <- grepl(pattern, "muffleWarning") 1562s [00:52:42.089] if (muffled) 1562s [00:52:42.089] invokeRestart("muffleWarning") 1562s [00:52:42.089] } 1562s [00:52:42.089] else if (inherits(cond, "condition")) { 1562s [00:52:42.089] if (!is.null(pattern)) { 1562s [00:52:42.089] computeRestarts <- base::computeRestarts 1562s [00:52:42.089] grepl <- base::grepl 1562s [00:52:42.089] restarts <- computeRestarts(cond) 1562s [00:52:42.089] for (restart in restarts) { 1562s [00:52:42.089] name <- restart$name 1562s [00:52:42.089] if (is.null(name)) 1562s [00:52:42.089] next 1562s [00:52:42.089] if (!grepl(pattern, name)) 1562s [00:52:42.089] next 1562s [00:52:42.089] invokeRestart(restart) 1562s [00:52:42.089] muffled <- TRUE 1562s [00:52:42.089] break 1562s [00:52:42.089] } 1562s [00:52:42.089] } 1562s [00:52:42.089] } 1562s [00:52:42.089] invisible(muffled) 1562s [00:52:42.089] } 1562s [00:52:42.089] muffleCondition(cond, pattern = "^muffle") 1562s [00:52:42.089] } 1562s [00:52:42.089] } 1562s [00:52:42.089] } 1562s [00:52:42.089] })) 1562s [00:52:42.089] }, error = function(ex) { 1562s [00:52:42.089] base::structure(base::list(value = NULL, visible = NULL, 1562s [00:52:42.089] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1562s [00:52:42.089] ...future.rng), started = ...future.startTime, 1562s [00:52:42.089] finished = Sys.time(), session_uuid = NA_character_, 1562s [00:52:42.089] version = "1.8"), class = "FutureResult") 1562s [00:52:42.089] }, finally = { 1562s [00:52:42.089] if (!identical(...future.workdir, getwd())) 1562s [00:52:42.089] setwd(...future.workdir) 1562s [00:52:42.089] { 1562s [00:52:42.089] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1562s [00:52:42.089] ...future.oldOptions$nwarnings <- NULL 1562s [00:52:42.089] } 1562s [00:52:42.089] base::options(...future.oldOptions) 1562s [00:52:42.089] if (.Platform$OS.type == "windows") { 1562s [00:52:42.089] old_names <- names(...future.oldEnvVars) 1562s [00:52:42.089] envs <- base::Sys.getenv() 1562s [00:52:42.089] names <- names(envs) 1562s [00:52:42.089] common <- intersect(names, old_names) 1562s [00:52:42.089] added <- setdiff(names, old_names) 1562s [00:52:42.089] removed <- setdiff(old_names, names) 1562s [00:52:42.089] changed <- common[...future.oldEnvVars[common] != 1562s [00:52:42.089] envs[common]] 1562s [00:52:42.089] NAMES <- toupper(changed) 1562s [00:52:42.089] args <- list() 1562s [00:52:42.089] for (kk in seq_along(NAMES)) { 1562s [00:52:42.089] name <- changed[[kk]] 1562s [00:52:42.089] NAME <- NAMES[[kk]] 1562s [00:52:42.089] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.089] next 1562s [00:52:42.089] args[[name]] <- ...future.oldEnvVars[[name]] 1562s [00:52:42.089] } 1562s [00:52:42.089] NAMES <- toupper(added) 1562s [00:52:42.089] for (kk in seq_along(NAMES)) { 1562s [00:52:42.089] name <- added[[kk]] 1562s [00:52:42.089] NAME <- NAMES[[kk]] 1562s [00:52:42.089] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.089] next 1562s [00:52:42.089] args[[name]] <- "" 1562s [00:52:42.089] } 1562s [00:52:42.089] NAMES <- toupper(removed) 1562s [00:52:42.089] for (kk in seq_along(NAMES)) { 1562s [00:52:42.089] name <- removed[[kk]] 1562s [00:52:42.089] NAME <- NAMES[[kk]] 1562s [00:52:42.089] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.089] next 1562s [00:52:42.089] args[[name]] <- ...future.oldEnvVars[[name]] 1562s [00:52:42.089] } 1562s [00:52:42.089] if (length(args) > 0) 1562s [00:52:42.089] base::do.call(base::Sys.setenv, args = args) 1562s [00:52:42.089] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1562s [00:52:42.089] } 1562s [00:52:42.089] else { 1562s [00:52:42.089] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1562s [00:52:42.089] } 1562s [00:52:42.089] { 1562s [00:52:42.089] if (base::length(...future.futureOptionsAdded) > 1562s [00:52:42.089] 0L) { 1562s [00:52:42.089] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1562s [00:52:42.089] base::names(opts) <- ...future.futureOptionsAdded 1562s [00:52:42.089] base::options(opts) 1562s [00:52:42.089] } 1562s [00:52:42.089] { 1562s [00:52:42.089] { 1562s [00:52:42.089] base::assign(".Random.seed", c(10407L, 2079749599L, 1562s [00:52:42.089] -1712504007L, 90762767L, 511132818L, -526970845L, 1562s [00:52:42.089] -1057805512L), envir = base::globalenv(), 1562s [00:52:42.089] inherits = FALSE) 1562s [00:52:42.089] NULL 1562s [00:52:42.089] } 1562s [00:52:42.089] options(future.plan = NULL) 1562s [00:52:42.089] if (is.na(NA_character_)) 1562s [00:52:42.089] Sys.unsetenv("R_FUTURE_PLAN") 1562s [00:52:42.089] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1562s [00:52:42.089] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1562s [00:52:42.089] envir = parent.frame()) 1562s [00:52:42.089] { 1562s [00:52:42.089] default_workers <- missing(workers) 1562s [00:52:42.089] if (is.function(workers)) 1562s [00:52:42.089] workers <- workers() 1562s [00:52:42.089] workers <- structure(as.integer(workers), 1562s [00:52:42.089] class = class(workers)) 1562s [00:52:42.089] stop_if_not(is.finite(workers), workers >= 1562s [00:52:42.089] 1L) 1562s [00:52:42.089] if ((workers == 1L && !inherits(workers, 1562s [00:52:42.089] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1562s [00:52:42.089] if (default_workers) 1562s [00:52:42.089] supportsMulticore(warn = TRUE) 1562s [00:52:42.089] return(sequential(..., envir = envir)) 1562s [00:52:42.089] } 1562s [00:52:42.089] oopts <- options(mc.cores = workers) 1562s [00:52:42.089] on.exit(options(oopts)) 1562s [00:52:42.089] future <- MulticoreFuture(..., workers = workers, 1562s [00:52:42.089] envir = envir) 1562s [00:52:42.089] if (!future$lazy) 1562s [00:52:42.089] future <- run(future) 1562s [00:52:42.089] invisible(future) 1562s [00:52:42.089] }), .cleanup = FALSE, .init = FALSE) 1562s [00:52:42.089] } 1562s [00:52:42.089] } 1562s [00:52:42.089] } 1562s [00:52:42.089] }) 1562s [00:52:42.089] if (TRUE) { 1562s [00:52:42.089] base::sink(type = "output", split = FALSE) 1562s [00:52:42.089] if (TRUE) { 1562s [00:52:42.089] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1562s [00:52:42.089] } 1562s [00:52:42.089] else { 1562s [00:52:42.089] ...future.result["stdout"] <- base::list(NULL) 1562s [00:52:42.089] } 1562s [00:52:42.089] base::close(...future.stdout) 1562s [00:52:42.089] ...future.stdout <- NULL 1562s [00:52:42.089] } 1562s [00:52:42.089] ...future.result$conditions <- ...future.conditions 1562s [00:52:42.089] ...future.result$finished <- base::Sys.time() 1562s [00:52:42.089] ...future.result 1562s [00:52:42.089] } 1562s [00:52:42.094] assign_globals() ... 1562s [00:52:42.094] List of 5 1562s [00:52:42.094] $ ...future.FUN :function (C, k) 1562s [00:52:42.094] $ MoreArgs : NULL 1562s [00:52:42.094] $ ...future.elements_ii :List of 2 1562s [00:52:42.094] ..$ :List of 1 1562s [00:52:42.094] .. ..$ : chr "A" 1562s [00:52:42.094] ..$ :List of 1 1562s [00:52:42.094] .. ..$ : int 5 1562s [00:52:42.094] $ ...future.seeds_ii : NULL 1562s [00:52:42.094] $ ...future.globals.maxSize: NULL 1562s [00:52:42.094] - attr(*, "where")=List of 5 1562s [00:52:42.094] ..$ ...future.FUN : 1562s [00:52:42.094] ..$ MoreArgs : 1562s [00:52:42.094] ..$ ...future.elements_ii : 1562s [00:52:42.094] ..$ ...future.seeds_ii : 1562s [00:52:42.094] ..$ ...future.globals.maxSize: 1562s [00:52:42.094] - attr(*, "resolved")= logi FALSE 1562s [00:52:42.094] - attr(*, "total_size")= num 3488 1562s [00:52:42.094] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1562s [00:52:42.094] - attr(*, "already-done")= logi TRUE 1562s [00:52:42.103] - reassign environment for ‘...future.FUN’ 1562s [00:52:42.103] - copied ‘...future.FUN’ to environment 1562s [00:52:42.103] - copied ‘MoreArgs’ to environment 1562s [00:52:42.103] - copied ‘...future.elements_ii’ to environment 1562s [00:52:42.103] - copied ‘...future.seeds_ii’ to environment 1562s [00:52:42.104] - copied ‘...future.globals.maxSize’ to environment 1562s [00:52:42.105] assign_globals() ... done 1562s [00:52:42.105] plan(): Setting new future strategy stack: 1562s [00:52:42.106] List of future strategies: 1562s [00:52:42.106] 1. sequential: 1562s [00:52:42.106] - args: function (..., envir = parent.frame()) 1562s [00:52:42.106] - tweaked: FALSE 1562s [00:52:42.106] - call: NULL 1562s [00:52:42.107] plan(): nbrOfWorkers() = 1 1562s [00:52:42.108] plan(): Setting new future strategy stack: 1562s [00:52:42.109] List of future strategies: 1562s [00:52:42.109] 1. multicore: 1562s [00:52:42.109] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1562s [00:52:42.109] - tweaked: FALSE 1562s [00:52:42.109] - call: plan(strategy) 1562s [00:52:42.114] plan(): nbrOfWorkers() = 1 1562s [00:52:42.115] SequentialFuture started (and completed) 1562s [00:52:42.115] - Launch lazy future ... done 1562s [00:52:42.116] run() for ‘SequentialFuture’ ... done 1562s [00:52:42.116] Created future: 1562s [00:52:42.119] SequentialFuture: 1562s [00:52:42.119] Label: ‘future_mapply-1’ 1562s [00:52:42.119] Expression: 1562s [00:52:42.119] { 1562s [00:52:42.119] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1562s [00:52:42.119] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1562s [00:52:42.119] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1562s [00:52:42.119] on.exit(options(oopts), add = TRUE) 1562s [00:52:42.119] } 1562s [00:52:42.119] { 1562s [00:52:42.119] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1562s [00:52:42.119] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1562s [00:52:42.119] do.call(mapply, args = args) 1562s [00:52:42.119] } 1562s [00:52:42.119] } 1562s [00:52:42.119] Lazy evaluation: FALSE 1562s [00:52:42.119] Asynchronous evaluation: FALSE 1562s [00:52:42.119] Local evaluation: TRUE 1562s [00:52:42.119] Environment: R_GlobalEnv 1562s [00:52:42.119] Capture standard output: TRUE 1562s [00:52:42.119] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1562s [00:52:42.119] Globals: 5 objects totaling 3.41 KiB (function ‘...future.FUN’ of 3.24 KiB, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1562s [00:52:42.119] Packages: 1562s [00:52:42.119] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1562s [00:52:42.119] Resolved: TRUE 1562s [00:52:42.119] Value: 112 bytes of class ‘list’ 1562s [00:52:42.119] Early signaling: FALSE 1562s [00:52:42.119] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1562s [00:52:42.119] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1562s [00:52:42.122] Chunk #1 of 5 ... DONE 1562s [00:52:42.122] Chunk #2 of 5 ... 1562s [00:52:42.122] - Finding globals in '...' for chunk #2 ... 1562s [00:52:42.123] getGlobalsAndPackages() ... 1562s [00:52:42.123] Searching for globals... 1562s [00:52:42.124] 1562s [00:52:42.124] Searching for globals ... DONE 1562s [00:52:42.124] - globals: [0] 1562s [00:52:42.125] getGlobalsAndPackages() ... DONE 1562s [00:52:42.125] + additional globals found: [n=0] 1562s [00:52:42.126] + additional namespaces needed: [n=0] 1562s [00:52:42.126] - Finding globals in '...' for chunk #2 ... DONE 1562s [00:52:42.126] - Adjusted option 'future.globals.maxSize': 524288000 -> 5 * 524288000 = 2621440000 (bytes) 1562s [00:52:42.126] - seeds: 1562s [00:52:42.127] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.127] getGlobalsAndPackages() ... 1562s [00:52:42.127] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.127] Resolving globals: FALSE 1562s [00:52:42.128] The total size of the 5 globals is 3.41 KiB (3488 bytes) 1562s [00:52:42.129] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 3.41 KiB.. This exceeds the maximum allowed size of 2.44 GiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (3.24 KiB of class ‘function’), ‘...future.elements_ii’ (168 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1562s [00:52:42.129] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.129] 1562s [00:52:42.130] getGlobalsAndPackages() ... DONE 1562s [00:52:42.130] run() for ‘Future’ ... 1562s [00:52:42.130] - state: ‘created’ 1562s [00:52:42.130] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1562s [00:52:42.135] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1562s [00:52:42.135] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1562s [00:52:42.135] - Field: ‘label’ 1562s [00:52:42.135] - Field: ‘local’ 1562s [00:52:42.136] - Field: ‘owner’ 1562s [00:52:42.136] - Field: ‘envir’ 1562s [00:52:42.136] - Field: ‘packages’ 1562s [00:52:42.136] - Field: ‘gc’ 1562s [00:52:42.136] - Field: ‘conditions’ 1562s [00:52:42.137] - Field: ‘expr’ 1562s [00:52:42.137] - Field: ‘uuid’ 1562s [00:52:42.138] - Field: ‘seed’ 1562s [00:52:42.138] - Field: ‘version’ 1562s [00:52:42.138] - Field: ‘result’ 1562s [00:52:42.138] - Field: ‘asynchronous’ 1562s [00:52:42.138] - Field: ‘calls’ 1562s [00:52:42.138] - Field: ‘globals’ 1562s [00:52:42.139] - Field: ‘stdout’ 1562s [00:52:42.139] - Field: ‘earlySignal’ 1562s [00:52:42.139] - Field: ‘lazy’ 1562s [00:52:42.139] - Field: ‘state’ 1562s [00:52:42.139] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1562s [00:52:42.140] - Launch lazy future ... 1562s [00:52:42.140] Packages needed by the future expression (n = 0): 1562s [00:52:42.140] Packages needed by future strategies (n = 0): 1562s [00:52:42.141] { 1562s [00:52:42.141] { 1562s [00:52:42.141] { 1562s [00:52:42.141] ...future.startTime <- base::Sys.time() 1562s [00:52:42.141] { 1562s [00:52:42.141] { 1562s [00:52:42.141] { 1562s [00:52:42.141] base::local({ 1562s [00:52:42.141] has_future <- base::requireNamespace("future", 1562s [00:52:42.141] quietly = TRUE) 1562s [00:52:42.141] if (has_future) { 1562s [00:52:42.141] ns <- base::getNamespace("future") 1562s [00:52:42.141] version <- ns[[".package"]][["version"]] 1562s [00:52:42.141] if (is.null(version)) 1562s [00:52:42.141] version <- utils::packageVersion("future") 1562s [00:52:42.141] } 1562s [00:52:42.141] else { 1562s [00:52:42.141] version <- NULL 1562s [00:52:42.141] } 1562s [00:52:42.141] if (!has_future || version < "1.8.0") { 1562s [00:52:42.141] info <- base::c(r_version = base::gsub("R version ", 1562s [00:52:42.141] "", base::R.version$version.string), 1562s [00:52:42.141] platform = base::sprintf("%s (%s-bit)", 1562s [00:52:42.141] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1562s [00:52:42.141] os = base::paste(base::Sys.info()[base::c("sysname", 1562s [00:52:42.141] "release", "version")], collapse = " "), 1562s [00:52:42.141] hostname = base::Sys.info()[["nodename"]]) 1562s [00:52:42.141] info <- base::sprintf("%s: %s", base::names(info), 1562s [00:52:42.141] info) 1562s [00:52:42.141] info <- base::paste(info, collapse = "; ") 1562s [00:52:42.141] if (!has_future) { 1562s [00:52:42.141] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1562s [00:52:42.141] info) 1562s [00:52:42.141] } 1562s [00:52:42.141] else { 1562s [00:52:42.141] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1562s [00:52:42.141] info, version) 1562s [00:52:42.141] } 1562s [00:52:42.141] base::stop(msg) 1562s [00:52:42.141] } 1562s [00:52:42.141] }) 1562s [00:52:42.141] } 1562s [00:52:42.141] options(future.plan = NULL) 1562s [00:52:42.141] Sys.unsetenv("R_FUTURE_PLAN") 1562s [00:52:42.141] future::plan("default", .cleanup = FALSE, .init = FALSE) 1562s [00:52:42.141] } 1562s [00:52:42.141] ...future.workdir <- getwd() 1562s [00:52:42.141] } 1562s [00:52:42.141] ...future.oldOptions <- base::as.list(base::.Options) 1562s [00:52:42.141] ...future.oldEnvVars <- base::Sys.getenv() 1562s [00:52:42.141] } 1562s [00:52:42.141] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1562s [00:52:42.141] future.globals.maxSize = 2621440000, future.globals.method = NULL, 1562s [00:52:42.141] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1562s [00:52:42.141] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1562s [00:52:42.141] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1562s [00:52:42.141] future.stdout.windows.reencode = NULL, width = 80L) 1562s [00:52:42.141] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1562s [00:52:42.141] base::names(...future.oldOptions)) 1562s [00:52:42.141] } 1562s [00:52:42.141] if (FALSE) { 1562s [00:52:42.141] } 1562s [00:52:42.141] else { 1562s [00:52:42.141] if (TRUE) { 1562s [00:52:42.141] ...future.stdout <- base::rawConnection(base::raw(0L), 1562s [00:52:42.141] open = "w") 1562s [00:52:42.141] } 1562s [00:52:42.141] else { 1562s [00:52:42.141] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1562s [00:52:42.141] windows = "NUL", "/dev/null"), open = "w") 1562s [00:52:42.141] } 1562s [00:52:42.141] base::sink(...future.stdout, type = "output", split = FALSE) 1562s [00:52:42.141] base::on.exit(if (!base::is.null(...future.stdout)) { 1562s [00:52:42.141] base::sink(type = "output", split = FALSE) 1562s [00:52:42.141] base::close(...future.stdout) 1562s [00:52:42.141] }, add = TRUE) 1562s [00:52:42.141] } 1562s [00:52:42.141] ...future.frame <- base::sys.nframe() 1562s [00:52:42.141] ...future.conditions <- base::list() 1562s [00:52:42.141] ...future.rng <- base::globalenv()$.Random.seed 1562s [00:52:42.141] if (FALSE) { 1562s [00:52:42.141] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1562s [00:52:42.141] "...future.value", "...future.globalenv.names", ".Random.seed") 1562s [00:52:42.141] } 1562s [00:52:42.141] ...future.result <- base::tryCatch({ 1562s [00:52:42.141] base::withCallingHandlers({ 1562s [00:52:42.141] ...future.value <- base::withVisible(base::local({ 1562s [00:52:42.141] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1562s [00:52:42.141] if (!identical(...future.globals.maxSize.org, 1562s [00:52:42.141] ...future.globals.maxSize)) { 1562s [00:52:42.141] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1562s [00:52:42.141] on.exit(options(oopts), add = TRUE) 1562s [00:52:42.141] } 1562s [00:52:42.141] { 1562s [00:52:42.141] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1562s [00:52:42.141] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1562s [00:52:42.141] USE.NAMES = FALSE) 1562s [00:52:42.141] do.call(mapply, args = args) 1562s [00:52:42.141] } 1562s [00:52:42.141] })) 1562s [00:52:42.141] future::FutureResult(value = ...future.value$value, 1562s [00:52:42.141] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1562s [00:52:42.141] ...future.rng), globalenv = if (FALSE) 1562s [00:52:42.141] list(added = base::setdiff(base::names(base::.GlobalEnv), 1562s [00:52:42.141] ...future.globalenv.names)) 1562s [00:52:42.141] else NULL, started = ...future.startTime, version = "1.8") 1562s [00:52:42.141] }, condition = base::local({ 1562s [00:52:42.141] c <- base::c 1562s [00:52:42.141] inherits <- base::inherits 1562s [00:52:42.141] invokeRestart <- base::invokeRestart 1562s [00:52:42.141] length <- base::length 1562s [00:52:42.141] list <- base::list 1562s [00:52:42.141] seq.int <- base::seq.int 1562s [00:52:42.141] signalCondition <- base::signalCondition 1562s [00:52:42.141] sys.calls <- base::sys.calls 1562s [00:52:42.141] `[[` <- base::`[[` 1562s [00:52:42.141] `+` <- base::`+` 1562s [00:52:42.141] `<<-` <- base::`<<-` 1562s [00:52:42.141] sysCalls <- function(calls = sys.calls(), from = 1L) { 1562s [00:52:42.141] calls[seq.int(from = from + 12L, to = length(calls) - 1562s [00:52:42.141] 3L)] 1562s [00:52:42.141] } 1562s [00:52:42.141] function(cond) { 1562s [00:52:42.141] is_error <- inherits(cond, "error") 1562s [00:52:42.141] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1562s [00:52:42.141] NULL) 1562s [00:52:42.141] if (is_error) { 1562s [00:52:42.141] sessionInformation <- function() { 1562s [00:52:42.141] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1562s [00:52:42.141] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1562s [00:52:42.141] search = base::search(), system = base::Sys.info()) 1562s [00:52:42.141] } 1562s [00:52:42.141] ...future.conditions[[length(...future.conditions) + 1562s [00:52:42.141] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1562s [00:52:42.141] cond$call), session = sessionInformation(), 1562s [00:52:42.141] timestamp = base::Sys.time(), signaled = 0L) 1562s [00:52:42.141] signalCondition(cond) 1562s [00:52:42.141] } 1562s [00:52:42.141] else if (!ignore && TRUE && inherits(cond, c("condition", 1562s [00:52:42.141] "immediateCondition"))) { 1562s [00:52:42.141] signal <- TRUE && inherits(cond, "immediateCondition") 1562s [00:52:42.141] ...future.conditions[[length(...future.conditions) + 1562s [00:52:42.141] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1562s [00:52:42.141] if (TRUE && !signal) { 1562s [00:52:42.141] muffleCondition <- function (cond, pattern = "^muffle") 1562s [00:52:42.141] { 1562s [00:52:42.141] inherits <- base::inherits 1562s [00:52:42.141] invokeRestart <- base::invokeRestart 1562s [00:52:42.141] is.null <- base::is.null 1562s [00:52:42.141] muffled <- FALSE 1562s [00:52:42.141] if (inherits(cond, "message")) { 1562s [00:52:42.141] muffled <- grepl(pattern, "muffleMessage") 1562s [00:52:42.141] if (muffled) 1562s [00:52:42.141] invokeRestart("muffleMessage") 1562s [00:52:42.141] } 1562s [00:52:42.141] else if (inherits(cond, "warning")) { 1562s [00:52:42.141] muffled <- grepl(pattern, "muffleWarning") 1562s [00:52:42.141] if (muffled) 1562s [00:52:42.141] invokeRestart("muffleWarning") 1562s [00:52:42.141] } 1562s [00:52:42.141] else if (inherits(cond, "condition")) { 1562s [00:52:42.141] if (!is.null(pattern)) { 1562s [00:52:42.141] computeRestarts <- base::computeRestarts 1562s [00:52:42.141] grepl <- base::grepl 1562s [00:52:42.141] restarts <- computeRestarts(cond) 1562s [00:52:42.141] for (restart in restarts) { 1562s [00:52:42.141] name <- restart$name 1562s [00:52:42.141] if (is.null(name)) 1562s [00:52:42.141] next 1562s [00:52:42.141] if (!grepl(pattern, name)) 1562s [00:52:42.141] next 1562s [00:52:42.141] invokeRestart(restart) 1562s [00:52:42.141] muffled <- TRUE 1562s [00:52:42.141] break 1562s [00:52:42.141] } 1562s [00:52:42.141] } 1562s [00:52:42.141] } 1562s [00:52:42.141] invisible(muffled) 1562s [00:52:42.141] } 1562s [00:52:42.141] muffleCondition(cond, pattern = "^muffle") 1562s [00:52:42.141] } 1562s [00:52:42.141] } 1562s [00:52:42.141] else { 1562s [00:52:42.141] if (TRUE) { 1562s [00:52:42.141] muffleCondition <- function (cond, pattern = "^muffle") 1562s [00:52:42.141] { 1562s [00:52:42.141] inherits <- base::inherits 1562s [00:52:42.141] invokeRestart <- base::invokeRestart 1562s [00:52:42.141] is.null <- base::is.null 1562s [00:52:42.141] muffled <- FALSE 1562s [00:52:42.141] if (inherits(cond, "message")) { 1562s [00:52:42.141] muffled <- grepl(pattern, "muffleMessage") 1562s [00:52:42.141] if (muffled) 1562s [00:52:42.141] invokeRestart("muffleMessage") 1562s [00:52:42.141] } 1562s [00:52:42.141] else if (inherits(cond, "warning")) { 1562s [00:52:42.141] muffled <- grepl(pattern, "muffleWarning") 1562s [00:52:42.141] if (muffled) 1562s [00:52:42.141] invokeRestart("muffleWarning") 1562s [00:52:42.141] } 1562s [00:52:42.141] else if (inherits(cond, "condition")) { 1562s [00:52:42.141] if (!is.null(pattern)) { 1562s [00:52:42.141] computeRestarts <- base::computeRestarts 1562s [00:52:42.141] grepl <- base::grepl 1562s [00:52:42.141] restarts <- computeRestarts(cond) 1562s [00:52:42.141] for (restart in restarts) { 1562s [00:52:42.141] name <- restart$name 1562s [00:52:42.141] if (is.null(name)) 1562s [00:52:42.141] next 1562s [00:52:42.141] if (!grepl(pattern, name)) 1562s [00:52:42.141] next 1562s [00:52:42.141] invokeRestart(restart) 1562s [00:52:42.141] muffled <- TRUE 1562s [00:52:42.141] break 1562s [00:52:42.141] } 1562s [00:52:42.141] } 1562s [00:52:42.141] } 1562s [00:52:42.141] invisible(muffled) 1562s [00:52:42.141] } 1562s [00:52:42.141] muffleCondition(cond, pattern = "^muffle") 1562s [00:52:42.141] } 1562s [00:52:42.141] } 1562s [00:52:42.141] } 1562s [00:52:42.141] })) 1562s [00:52:42.141] }, error = function(ex) { 1562s [00:52:42.141] base::structure(base::list(value = NULL, visible = NULL, 1562s [00:52:42.141] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1562s [00:52:42.141] ...future.rng), started = ...future.startTime, 1562s [00:52:42.141] finished = Sys.time(), session_uuid = NA_character_, 1562s [00:52:42.141] version = "1.8"), class = "FutureResult") 1562s [00:52:42.141] }, finally = { 1562s [00:52:42.141] if (!identical(...future.workdir, getwd())) 1562s [00:52:42.141] setwd(...future.workdir) 1562s [00:52:42.141] { 1562s [00:52:42.141] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1562s [00:52:42.141] ...future.oldOptions$nwarnings <- NULL 1562s [00:52:42.141] } 1562s [00:52:42.141] base::options(...future.oldOptions) 1562s [00:52:42.141] if (.Platform$OS.type == "windows") { 1562s [00:52:42.141] old_names <- names(...future.oldEnvVars) 1562s [00:52:42.141] envs <- base::Sys.getenv() 1562s [00:52:42.141] names <- names(envs) 1562s [00:52:42.141] common <- intersect(names, old_names) 1562s [00:52:42.141] added <- setdiff(names, old_names) 1562s [00:52:42.141] removed <- setdiff(old_names, names) 1562s [00:52:42.141] changed <- common[...future.oldEnvVars[common] != 1562s [00:52:42.141] envs[common]] 1562s [00:52:42.141] NAMES <- toupper(changed) 1562s [00:52:42.141] args <- list() 1562s [00:52:42.141] for (kk in seq_along(NAMES)) { 1562s [00:52:42.141] name <- changed[[kk]] 1562s [00:52:42.141] NAME <- NAMES[[kk]] 1562s [00:52:42.141] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.141] next 1562s [00:52:42.141] args[[name]] <- ...future.oldEnvVars[[name]] 1562s [00:52:42.141] } 1562s [00:52:42.141] NAMES <- toupper(added) 1562s [00:52:42.141] for (kk in seq_along(NAMES)) { 1562s [00:52:42.141] name <- added[[kk]] 1562s [00:52:42.141] NAME <- NAMES[[kk]] 1562s [00:52:42.141] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.141] next 1562s [00:52:42.141] args[[name]] <- "" 1562s [00:52:42.141] } 1562s [00:52:42.141] NAMES <- toupper(removed) 1562s [00:52:42.141] for (kk in seq_along(NAMES)) { 1562s [00:52:42.141] name <- removed[[kk]] 1562s [00:52:42.141] NAME <- NAMES[[kk]] 1562s [00:52:42.141] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.141] next 1562s [00:52:42.141] args[[name]] <- ...future.oldEnvVars[[name]] 1562s [00:52:42.141] } 1562s [00:52:42.141] if (length(args) > 0) 1562s [00:52:42.141] base::do.call(base::Sys.setenv, args = args) 1562s [00:52:42.141] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1562s [00:52:42.141] } 1562s [00:52:42.141] else { 1562s [00:52:42.141] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1562s [00:52:42.141] } 1562s [00:52:42.141] { 1562s [00:52:42.141] if (base::length(...future.futureOptionsAdded) > 1562s [00:52:42.141] 0L) { 1562s [00:52:42.141] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1562s [00:52:42.141] base::names(opts) <- ...future.futureOptionsAdded 1562s [00:52:42.141] base::options(opts) 1562s [00:52:42.141] } 1562s [00:52:42.141] { 1562s [00:52:42.141] { 1562s [00:52:42.141] base::assign(".Random.seed", c(10407L, 2079749599L, 1562s [00:52:42.141] -1712504007L, 90762767L, 511132818L, -526970845L, 1562s [00:52:42.141] -1057805512L), envir = base::globalenv(), 1562s [00:52:42.141] inherits = FALSE) 1562s [00:52:42.141] NULL 1562s [00:52:42.141] } 1562s [00:52:42.141] options(future.plan = NULL) 1562s [00:52:42.141] if (is.na(NA_character_)) 1562s [00:52:42.141] Sys.unsetenv("R_FUTURE_PLAN") 1562s [00:52:42.141] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1562s [00:52:42.141] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1562s [00:52:42.141] envir = parent.frame()) 1562s [00:52:42.141] { 1562s [00:52:42.141] default_workers <- missing(workers) 1562s [00:52:42.141] if (is.function(workers)) 1562s [00:52:42.141] workers <- workers() 1562s [00:52:42.141] workers <- structure(as.integer(workers), 1562s [00:52:42.141] class = class(workers)) 1562s [00:52:42.141] stop_if_not(is.finite(workers), workers >= 1562s [00:52:42.141] 1L) 1562s [00:52:42.141] if ((workers == 1L && !inherits(workers, 1562s [00:52:42.141] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1562s [00:52:42.141] if (default_workers) 1562s [00:52:42.141] supportsMulticore(warn = TRUE) 1562s [00:52:42.141] return(sequential(..., envir = envir)) 1562s [00:52:42.141] } 1562s [00:52:42.141] oopts <- options(mc.cores = workers) 1562s [00:52:42.141] on.exit(options(oopts)) 1562s [00:52:42.141] future <- MulticoreFuture(..., workers = workers, 1562s [00:52:42.141] envir = envir) 1562s [00:52:42.141] if (!future$lazy) 1562s [00:52:42.141] future <- run(future) 1562s [00:52:42.141] invisible(future) 1562s [00:52:42.141] }), .cleanup = FALSE, .init = FALSE) 1562s [00:52:42.141] } 1562s [00:52:42.141] } 1562s [00:52:42.141] } 1562s [00:52:42.141] }) 1562s [00:52:42.141] if (TRUE) { 1562s [00:52:42.141] base::sink(type = "output", split = FALSE) 1562s [00:52:42.141] if (TRUE) { 1562s [00:52:42.141] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1562s [00:52:42.141] } 1562s [00:52:42.141] else { 1562s [00:52:42.141] ...future.result["stdout"] <- base::list(NULL) 1562s [00:52:42.141] } 1562s [00:52:42.141] base::close(...future.stdout) 1562s [00:52:42.141] ...future.stdout <- NULL 1562s [00:52:42.141] } 1562s [00:52:42.141] ...future.result$conditions <- ...future.conditions 1562s [00:52:42.141] ...future.result$finished <- base::Sys.time() 1562s [00:52:42.141] ...future.result 1562s [00:52:42.141] } 1562s [00:52:42.146] assign_globals() ... 1562s [00:52:42.146] List of 5 1562s [00:52:42.146] $ ...future.FUN :function (C, k) 1562s [00:52:42.146] $ MoreArgs : NULL 1562s [00:52:42.146] $ ...future.elements_ii :List of 2 1562s [00:52:42.146] ..$ :List of 1 1562s [00:52:42.146] .. ..$ : chr "B" 1562s [00:52:42.146] ..$ :List of 1 1562s [00:52:42.146] .. ..$ : int 4 1562s [00:52:42.146] $ ...future.seeds_ii : NULL 1562s [00:52:42.146] $ ...future.globals.maxSize: NULL 1562s [00:52:42.146] - attr(*, "where")=List of 5 1562s [00:52:42.146] ..$ ...future.FUN : 1562s [00:52:42.146] ..$ MoreArgs : 1562s [00:52:42.146] ..$ ...future.elements_ii : 1562s [00:52:42.146] ..$ ...future.seeds_ii : 1562s [00:52:42.146] ..$ ...future.globals.maxSize: 1562s [00:52:42.146] - attr(*, "resolved")= logi FALSE 1562s [00:52:42.146] - attr(*, "total_size")= num 3488 1562s [00:52:42.146] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1562s [00:52:42.146] - attr(*, "already-done")= logi TRUE 1562s [00:52:42.154] - reassign environment for ‘...future.FUN’ 1562s [00:52:42.155] - copied ‘...future.FUN’ to environment 1562s [00:52:42.155] - copied ‘MoreArgs’ to environment 1562s [00:52:42.155] - copied ‘...future.elements_ii’ to environment 1562s [00:52:42.155] - copied ‘...future.seeds_ii’ to environment 1562s [00:52:42.155] - copied ‘...future.globals.maxSize’ to environment 1562s [00:52:42.155] assign_globals() ... done 1562s [00:52:42.156] plan(): Setting new future strategy stack: 1562s [00:52:42.156] List of future strategies: 1562s [00:52:42.156] 1. sequential: 1562s [00:52:42.156] - args: function (..., envir = parent.frame()) 1562s [00:52:42.156] - tweaked: FALSE 1562s [00:52:42.156] - call: NULL 1562s [00:52:42.157] plan(): nbrOfWorkers() = 1 1562s [00:52:42.158] plan(): Setting new future strategy stack: 1562s [00:52:42.158] List of future strategies: 1562s [00:52:42.158] 1. multicore: 1562s [00:52:42.158] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1562s [00:52:42.158] - tweaked: FALSE 1562s [00:52:42.158] - call: plan(strategy) 1562s [00:52:42.162] plan(): nbrOfWorkers() = 1 1562s [00:52:42.162] SequentialFuture started (and completed) 1562s [00:52:42.163] - Launch lazy future ... done 1562s [00:52:42.163] run() for ‘SequentialFuture’ ... done 1562s [00:52:42.163] Created future: 1562s [00:52:42.163] SequentialFuture: 1562s [00:52:42.163] Label: ‘future_mapply-2’ 1562s [00:52:42.163] Expression: 1562s [00:52:42.163] { 1562s [00:52:42.163] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1562s [00:52:42.163] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1562s [00:52:42.163] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1562s [00:52:42.163] on.exit(options(oopts), add = TRUE) 1562s [00:52:42.163] } 1562s [00:52:42.163] { 1562s [00:52:42.163] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1562s [00:52:42.163] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1562s [00:52:42.163] do.call(mapply, args = args) 1562s [00:52:42.163] } 1562s [00:52:42.163] } 1562s [00:52:42.163] Lazy evaluation: FALSE 1562s [00:52:42.163] Asynchronous evaluation: FALSE 1562s [00:52:42.163] Local evaluation: TRUE 1562s [00:52:42.163] Environment: R_GlobalEnv 1562s [00:52:42.163] Capture standard output: TRUE 1562s [00:52:42.163] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1562s [00:52:42.163] Globals: 5 objects totaling 3.41 KiB (function ‘...future.FUN’ of 3.24 KiB, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1562s [00:52:42.163] Packages: 1562s [00:52:42.163] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1562s [00:52:42.163] Resolved: TRUE 1562s [00:52:42.163] Value: 112 bytes of class ‘list’ 1562s [00:52:42.163] Early signaling: FALSE 1562s [00:52:42.163] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1562s [00:52:42.163] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1562s [00:52:42.165] Chunk #2 of 5 ... DONE 1562s [00:52:42.165] Chunk #3 of 5 ... 1562s [00:52:42.166] - Finding globals in '...' for chunk #3 ... 1562s [00:52:42.166] getGlobalsAndPackages() ... 1562s [00:52:42.166] Searching for globals... 1562s [00:52:42.167] 1562s [00:52:42.169] Searching for globals ... DONE 1562s [00:52:42.171] - globals: [0] 1562s [00:52:42.171] getGlobalsAndPackages() ... DONE 1562s [00:52:42.172] + additional globals found: [n=0] 1562s [00:52:42.172] + additional namespaces needed: [n=0] 1562s [00:52:42.172] - Finding globals in '...' for chunk #3 ... DONE 1562s [00:52:42.172] - Adjusted option 'future.globals.maxSize': 524288000 -> 5 * 524288000 = 2621440000 (bytes) 1562s [00:52:42.172] - seeds: 1562s [00:52:42.172] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.173] getGlobalsAndPackages() ... 1562s [00:52:42.173] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.173] Resolving globals: FALSE 1562s [00:52:42.174] The total size of the 5 globals is 3.41 KiB (3488 bytes) 1562s [00:52:42.175] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 3.41 KiB.. This exceeds the maximum allowed size of 2.44 GiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (3.24 KiB of class ‘function’), ‘...future.elements_ii’ (168 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1562s [00:52:42.175] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.175] 1562s [00:52:42.176] getGlobalsAndPackages() ... DONE 1562s [00:52:42.176] run() for ‘Future’ ... 1562s [00:52:42.176] - state: ‘created’ 1562s [00:52:42.176] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1562s [00:52:42.181] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1562s [00:52:42.182] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1562s [00:52:42.182] - Field: ‘label’ 1562s [00:52:42.182] - Field: ‘local’ 1562s [00:52:42.182] - Field: ‘owner’ 1562s [00:52:42.182] - Field: ‘envir’ 1562s [00:52:42.183] - Field: ‘packages’ 1562s [00:52:42.183] - Field: ‘gc’ 1562s [00:52:42.183] - Field: ‘conditions’ 1562s [00:52:42.183] - Field: ‘expr’ 1562s [00:52:42.183] - Field: ‘uuid’ 1562s [00:52:42.183] - Field: ‘seed’ 1562s [00:52:42.184] - Field: ‘version’ 1562s [00:52:42.184] - Field: ‘result’ 1562s [00:52:42.184] - Field: ‘asynchronous’ 1562s [00:52:42.184] - Field: ‘calls’ 1562s [00:52:42.184] - Field: ‘globals’ 1562s [00:52:42.185] - Field: ‘stdout’ 1562s [00:52:42.185] - Field: ‘earlySignal’ 1562s [00:52:42.185] - Field: ‘lazy’ 1562s [00:52:42.186] - Field: ‘state’ 1562s [00:52:42.186] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1562s [00:52:42.186] - Launch lazy future ... 1562s [00:52:42.186] Packages needed by the future expression (n = 0): 1562s [00:52:42.186] Packages needed by future strategies (n = 0): 1562s [00:52:42.187] { 1562s [00:52:42.187] { 1562s [00:52:42.187] { 1562s [00:52:42.187] ...future.startTime <- base::Sys.time() 1562s [00:52:42.187] { 1562s [00:52:42.187] { 1562s [00:52:42.187] { 1562s [00:52:42.187] base::local({ 1562s [00:52:42.187] has_future <- base::requireNamespace("future", 1562s [00:52:42.187] quietly = TRUE) 1562s [00:52:42.187] if (has_future) { 1562s [00:52:42.187] ns <- base::getNamespace("future") 1562s [00:52:42.187] version <- ns[[".package"]][["version"]] 1562s [00:52:42.187] if (is.null(version)) 1562s [00:52:42.187] version <- utils::packageVersion("future") 1562s [00:52:42.187] } 1562s [00:52:42.187] else { 1562s [00:52:42.187] version <- NULL 1562s [00:52:42.187] } 1562s [00:52:42.187] if (!has_future || version < "1.8.0") { 1562s [00:52:42.187] info <- base::c(r_version = base::gsub("R version ", 1562s [00:52:42.187] "", base::R.version$version.string), 1562s [00:52:42.187] platform = base::sprintf("%s (%s-bit)", 1562s [00:52:42.187] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1562s [00:52:42.187] os = base::paste(base::Sys.info()[base::c("sysname", 1562s [00:52:42.187] "release", "version")], collapse = " "), 1562s [00:52:42.187] hostname = base::Sys.info()[["nodename"]]) 1562s [00:52:42.187] info <- base::sprintf("%s: %s", base::names(info), 1562s [00:52:42.187] info) 1562s [00:52:42.187] info <- base::paste(info, collapse = "; ") 1562s [00:52:42.187] if (!has_future) { 1562s [00:52:42.187] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1562s [00:52:42.187] info) 1562s [00:52:42.187] } 1562s [00:52:42.187] else { 1562s [00:52:42.187] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1562s [00:52:42.187] info, version) 1562s [00:52:42.187] } 1562s [00:52:42.187] base::stop(msg) 1562s [00:52:42.187] } 1562s [00:52:42.187] }) 1562s [00:52:42.187] } 1562s [00:52:42.187] options(future.plan = NULL) 1562s [00:52:42.187] Sys.unsetenv("R_FUTURE_PLAN") 1562s [00:52:42.187] future::plan("default", .cleanup = FALSE, .init = FALSE) 1562s [00:52:42.187] } 1562s [00:52:42.187] ...future.workdir <- getwd() 1562s [00:52:42.187] } 1562s [00:52:42.187] ...future.oldOptions <- base::as.list(base::.Options) 1562s [00:52:42.187] ...future.oldEnvVars <- base::Sys.getenv() 1562s [00:52:42.187] } 1562s [00:52:42.187] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1562s [00:52:42.187] future.globals.maxSize = 2621440000, future.globals.method = NULL, 1562s [00:52:42.187] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1562s [00:52:42.187] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1562s [00:52:42.187] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1562s [00:52:42.187] future.stdout.windows.reencode = NULL, width = 80L) 1562s [00:52:42.187] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1562s [00:52:42.187] base::names(...future.oldOptions)) 1562s [00:52:42.187] } 1562s [00:52:42.187] if (FALSE) { 1562s [00:52:42.187] } 1562s [00:52:42.187] else { 1562s [00:52:42.187] if (TRUE) { 1562s [00:52:42.187] ...future.stdout <- base::rawConnection(base::raw(0L), 1562s [00:52:42.187] open = "w") 1562s [00:52:42.187] } 1562s [00:52:42.187] else { 1562s [00:52:42.187] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1562s [00:52:42.187] windows = "NUL", "/dev/null"), open = "w") 1562s [00:52:42.187] } 1562s [00:52:42.187] base::sink(...future.stdout, type = "output", split = FALSE) 1562s [00:52:42.187] base::on.exit(if (!base::is.null(...future.stdout)) { 1562s [00:52:42.187] base::sink(type = "output", split = FALSE) 1562s [00:52:42.187] base::close(...future.stdout) 1562s [00:52:42.187] }, add = TRUE) 1562s [00:52:42.187] } 1562s [00:52:42.187] ...future.frame <- base::sys.nframe() 1562s [00:52:42.187] ...future.conditions <- base::list() 1562s [00:52:42.187] ...future.rng <- base::globalenv()$.Random.seed 1562s [00:52:42.187] if (FALSE) { 1562s [00:52:42.187] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1562s [00:52:42.187] "...future.value", "...future.globalenv.names", ".Random.seed") 1562s [00:52:42.187] } 1562s [00:52:42.187] ...future.result <- base::tryCatch({ 1562s [00:52:42.187] base::withCallingHandlers({ 1562s [00:52:42.187] ...future.value <- base::withVisible(base::local({ 1562s [00:52:42.187] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1562s [00:52:42.187] if (!identical(...future.globals.maxSize.org, 1562s [00:52:42.187] ...future.globals.maxSize)) { 1562s [00:52:42.187] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1562s [00:52:42.187] on.exit(options(oopts), add = TRUE) 1562s [00:52:42.187] } 1562s [00:52:42.187] { 1562s [00:52:42.187] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1562s [00:52:42.187] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1562s [00:52:42.187] USE.NAMES = FALSE) 1562s [00:52:42.187] do.call(mapply, args = args) 1562s [00:52:42.187] } 1562s [00:52:42.187] })) 1562s [00:52:42.187] future::FutureResult(value = ...future.value$value, 1562s [00:52:42.187] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1562s [00:52:42.187] ...future.rng), globalenv = if (FALSE) 1562s [00:52:42.187] list(added = base::setdiff(base::names(base::.GlobalEnv), 1562s [00:52:42.187] ...future.globalenv.names)) 1562s [00:52:42.187] else NULL, started = ...future.startTime, version = "1.8") 1562s [00:52:42.187] }, condition = base::local({ 1562s [00:52:42.187] c <- base::c 1562s [00:52:42.187] inherits <- base::inherits 1562s [00:52:42.187] invokeRestart <- base::invokeRestart 1562s [00:52:42.187] length <- base::length 1562s [00:52:42.187] list <- base::list 1562s [00:52:42.187] seq.int <- base::seq.int 1562s [00:52:42.187] signalCondition <- base::signalCondition 1562s [00:52:42.187] sys.calls <- base::sys.calls 1562s [00:52:42.187] `[[` <- base::`[[` 1562s [00:52:42.187] `+` <- base::`+` 1562s [00:52:42.187] `<<-` <- base::`<<-` 1562s [00:52:42.187] sysCalls <- function(calls = sys.calls(), from = 1L) { 1562s [00:52:42.187] calls[seq.int(from = from + 12L, to = length(calls) - 1562s [00:52:42.187] 3L)] 1562s [00:52:42.187] } 1562s [00:52:42.187] function(cond) { 1562s [00:52:42.187] is_error <- inherits(cond, "error") 1562s [00:52:42.187] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1562s [00:52:42.187] NULL) 1562s [00:52:42.187] if (is_error) { 1562s [00:52:42.187] sessionInformation <- function() { 1562s [00:52:42.187] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1562s [00:52:42.187] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1562s [00:52:42.187] search = base::search(), system = base::Sys.info()) 1562s [00:52:42.187] } 1562s [00:52:42.187] ...future.conditions[[length(...future.conditions) + 1562s [00:52:42.187] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1562s [00:52:42.187] cond$call), session = sessionInformation(), 1562s [00:52:42.187] timestamp = base::Sys.time(), signaled = 0L) 1562s [00:52:42.187] signalCondition(cond) 1562s [00:52:42.187] } 1562s [00:52:42.187] else if (!ignore && TRUE && inherits(cond, c("condition", 1562s [00:52:42.187] "immediateCondition"))) { 1562s [00:52:42.187] signal <- TRUE && inherits(cond, "immediateCondition") 1562s [00:52:42.187] ...future.conditions[[length(...future.conditions) + 1562s [00:52:42.187] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1562s [00:52:42.187] if (TRUE && !signal) { 1562s [00:52:42.187] muffleCondition <- function (cond, pattern = "^muffle") 1562s [00:52:42.187] { 1562s [00:52:42.187] inherits <- base::inherits 1562s [00:52:42.187] invokeRestart <- base::invokeRestart 1562s [00:52:42.187] is.null <- base::is.null 1562s [00:52:42.187] muffled <- FALSE 1562s [00:52:42.187] if (inherits(cond, "message")) { 1562s [00:52:42.187] muffled <- grepl(pattern, "muffleMessage") 1562s [00:52:42.187] if (muffled) 1562s [00:52:42.187] invokeRestart("muffleMessage") 1562s [00:52:42.187] } 1562s [00:52:42.187] else if (inherits(cond, "warning")) { 1562s [00:52:42.187] muffled <- grepl(pattern, "muffleWarning") 1562s [00:52:42.187] if (muffled) 1562s [00:52:42.187] invokeRestart("muffleWarning") 1562s [00:52:42.187] } 1562s [00:52:42.187] else if (inherits(cond, "condition")) { 1562s [00:52:42.187] if (!is.null(pattern)) { 1562s [00:52:42.187] computeRestarts <- base::computeRestarts 1562s [00:52:42.187] grepl <- base::grepl 1562s [00:52:42.187] restarts <- computeRestarts(cond) 1562s [00:52:42.187] for (restart in restarts) { 1562s [00:52:42.187] name <- restart$name 1562s [00:52:42.187] if (is.null(name)) 1562s [00:52:42.187] next 1562s [00:52:42.187] if (!grepl(pattern, name)) 1562s [00:52:42.187] next 1562s [00:52:42.187] invokeRestart(restart) 1562s [00:52:42.187] muffled <- TRUE 1562s [00:52:42.187] break 1562s [00:52:42.187] } 1562s [00:52:42.187] } 1562s [00:52:42.187] } 1562s [00:52:42.187] invisible(muffled) 1562s [00:52:42.187] } 1562s [00:52:42.187] muffleCondition(cond, pattern = "^muffle") 1562s [00:52:42.187] } 1562s [00:52:42.187] } 1562s [00:52:42.187] else { 1562s [00:52:42.187] if (TRUE) { 1562s [00:52:42.187] muffleCondition <- function (cond, pattern = "^muffle") 1562s [00:52:42.187] { 1562s [00:52:42.187] inherits <- base::inherits 1562s [00:52:42.187] invokeRestart <- base::invokeRestart 1562s [00:52:42.187] is.null <- base::is.null 1562s [00:52:42.187] muffled <- FALSE 1562s [00:52:42.187] if (inherits(cond, "message")) { 1562s [00:52:42.187] muffled <- grepl(pattern, "muffleMessage") 1562s [00:52:42.187] if (muffled) 1562s [00:52:42.187] invokeRestart("muffleMessage") 1562s [00:52:42.187] } 1562s [00:52:42.187] else if (inherits(cond, "warning")) { 1562s [00:52:42.187] muffled <- grepl(pattern, "muffleWarning") 1562s [00:52:42.187] if (muffled) 1562s [00:52:42.187] invokeRestart("muffleWarning") 1562s [00:52:42.187] } 1562s [00:52:42.187] else if (inherits(cond, "condition")) { 1562s [00:52:42.187] if (!is.null(pattern)) { 1562s [00:52:42.187] computeRestarts <- base::computeRestarts 1562s [00:52:42.187] grepl <- base::grepl 1562s [00:52:42.187] restarts <- computeRestarts(cond) 1562s [00:52:42.187] for (restart in restarts) { 1562s [00:52:42.187] name <- restart$name 1562s [00:52:42.187] if (is.null(name)) 1562s [00:52:42.187] next 1562s [00:52:42.187] if (!grepl(pattern, name)) 1562s [00:52:42.187] next 1562s [00:52:42.187] invokeRestart(restart) 1562s [00:52:42.187] muffled <- TRUE 1562s [00:52:42.187] break 1562s [00:52:42.187] } 1562s [00:52:42.187] } 1562s [00:52:42.187] } 1562s [00:52:42.187] invisible(muffled) 1562s [00:52:42.187] } 1562s [00:52:42.187] muffleCondition(cond, pattern = "^muffle") 1562s [00:52:42.187] } 1562s [00:52:42.187] } 1562s [00:52:42.187] } 1562s [00:52:42.187] })) 1562s [00:52:42.187] }, error = function(ex) { 1562s [00:52:42.187] base::structure(base::list(value = NULL, visible = NULL, 1562s [00:52:42.187] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1562s [00:52:42.187] ...future.rng), started = ...future.startTime, 1562s [00:52:42.187] finished = Sys.time(), session_uuid = NA_character_, 1562s [00:52:42.187] version = "1.8"), class = "FutureResult") 1562s [00:52:42.187] }, finally = { 1562s [00:52:42.187] if (!identical(...future.workdir, getwd())) 1562s [00:52:42.187] setwd(...future.workdir) 1562s [00:52:42.187] { 1562s [00:52:42.187] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1562s [00:52:42.187] ...future.oldOptions$nwarnings <- NULL 1562s [00:52:42.187] } 1562s [00:52:42.187] base::options(...future.oldOptions) 1562s [00:52:42.187] if (.Platform$OS.type == "windows") { 1562s [00:52:42.187] old_names <- names(...future.oldEnvVars) 1562s [00:52:42.187] envs <- base::Sys.getenv() 1562s [00:52:42.187] names <- names(envs) 1562s [00:52:42.187] common <- intersect(names, old_names) 1562s [00:52:42.187] added <- setdiff(names, old_names) 1562s [00:52:42.187] removed <- setdiff(old_names, names) 1562s [00:52:42.187] changed <- common[...future.oldEnvVars[common] != 1562s [00:52:42.187] envs[common]] 1562s [00:52:42.187] NAMES <- toupper(changed) 1562s [00:52:42.187] args <- list() 1562s [00:52:42.187] for (kk in seq_along(NAMES)) { 1562s [00:52:42.187] name <- changed[[kk]] 1562s [00:52:42.187] NAME <- NAMES[[kk]] 1562s [00:52:42.187] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.187] next 1562s [00:52:42.187] args[[name]] <- ...future.oldEnvVars[[name]] 1562s [00:52:42.187] } 1562s [00:52:42.187] NAMES <- toupper(added) 1562s [00:52:42.187] for (kk in seq_along(NAMES)) { 1562s [00:52:42.187] name <- added[[kk]] 1562s [00:52:42.187] NAME <- NAMES[[kk]] 1562s [00:52:42.187] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.187] next 1562s [00:52:42.187] args[[name]] <- "" 1562s [00:52:42.187] } 1562s [00:52:42.187] NAMES <- toupper(removed) 1562s [00:52:42.187] for (kk in seq_along(NAMES)) { 1562s [00:52:42.187] name <- removed[[kk]] 1562s [00:52:42.187] NAME <- NAMES[[kk]] 1562s [00:52:42.187] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.187] next 1562s [00:52:42.187] args[[name]] <- ...future.oldEnvVars[[name]] 1562s [00:52:42.187] } 1562s [00:52:42.187] if (length(args) > 0) 1562s [00:52:42.187] base::do.call(base::Sys.setenv, args = args) 1562s [00:52:42.187] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1562s [00:52:42.187] } 1562s [00:52:42.187] else { 1562s [00:52:42.187] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1562s [00:52:42.187] } 1562s [00:52:42.187] { 1562s [00:52:42.187] if (base::length(...future.futureOptionsAdded) > 1562s [00:52:42.187] 0L) { 1562s [00:52:42.187] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1562s [00:52:42.187] base::names(opts) <- ...future.futureOptionsAdded 1562s [00:52:42.187] base::options(opts) 1562s [00:52:42.187] } 1562s [00:52:42.187] { 1562s [00:52:42.187] { 1562s [00:52:42.187] base::assign(".Random.seed", c(10407L, 2079749599L, 1562s [00:52:42.187] -1712504007L, 90762767L, 511132818L, -526970845L, 1562s [00:52:42.187] -1057805512L), envir = base::globalenv(), 1562s [00:52:42.187] inherits = FALSE) 1562s [00:52:42.187] NULL 1562s [00:52:42.187] } 1562s [00:52:42.187] options(future.plan = NULL) 1562s [00:52:42.187] if (is.na(NA_character_)) 1562s [00:52:42.187] Sys.unsetenv("R_FUTURE_PLAN") 1562s [00:52:42.187] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1562s [00:52:42.187] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1562s [00:52:42.187] envir = parent.frame()) 1562s [00:52:42.187] { 1562s [00:52:42.187] default_workers <- missing(workers) 1562s [00:52:42.187] if (is.function(workers)) 1562s [00:52:42.187] workers <- workers() 1562s [00:52:42.187] workers <- structure(as.integer(workers), 1562s [00:52:42.187] class = class(workers)) 1562s [00:52:42.187] stop_if_not(is.finite(workers), workers >= 1562s [00:52:42.187] 1L) 1562s [00:52:42.187] if ((workers == 1L && !inherits(workers, 1562s [00:52:42.187] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1562s [00:52:42.187] if (default_workers) 1562s [00:52:42.187] supportsMulticore(warn = TRUE) 1562s [00:52:42.187] return(sequential(..., envir = envir)) 1562s [00:52:42.187] } 1562s [00:52:42.187] oopts <- options(mc.cores = workers) 1562s [00:52:42.187] on.exit(options(oopts)) 1562s [00:52:42.187] future <- MulticoreFuture(..., workers = workers, 1562s [00:52:42.187] envir = envir) 1562s [00:52:42.187] if (!future$lazy) 1562s [00:52:42.187] future <- run(future) 1562s [00:52:42.187] invisible(future) 1562s [00:52:42.187] }), .cleanup = FALSE, .init = FALSE) 1562s [00:52:42.187] } 1562s [00:52:42.187] } 1562s [00:52:42.187] } 1562s [00:52:42.187] }) 1562s [00:52:42.187] if (TRUE) { 1562s [00:52:42.187] base::sink(type = "output", split = FALSE) 1562s [00:52:42.187] if (TRUE) { 1562s [00:52:42.187] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1562s [00:52:42.187] } 1562s [00:52:42.187] else { 1562s [00:52:42.187] ...future.result["stdout"] <- base::list(NULL) 1562s [00:52:42.187] } 1562s [00:52:42.187] base::close(...future.stdout) 1562s [00:52:42.187] ...future.stdout <- NULL 1562s [00:52:42.187] } 1562s [00:52:42.187] ...future.result$conditions <- ...future.conditions 1562s [00:52:42.187] ...future.result$finished <- base::Sys.time() 1562s [00:52:42.187] ...future.result 1562s [00:52:42.187] } 1562s [00:52:42.193] assign_globals() ... 1562s [00:52:42.193] List of 5 1562s [00:52:42.193] $ ...future.FUN :function (C, k) 1562s [00:52:42.193] $ MoreArgs : NULL 1562s [00:52:42.193] $ ...future.elements_ii :List of 2 1562s [00:52:42.193] ..$ :List of 1 1562s [00:52:42.193] .. ..$ : chr "C" 1562s [00:52:42.193] ..$ :List of 1 1562s [00:52:42.193] .. ..$ : int 3 1562s [00:52:42.193] $ ...future.seeds_ii : NULL 1562s [00:52:42.193] $ ...future.globals.maxSize: NULL 1562s [00:52:42.193] - attr(*, "where")=List of 5 1562s [00:52:42.193] ..$ ...future.FUN : 1562s [00:52:42.193] ..$ MoreArgs : 1562s [00:52:42.193] ..$ ...future.elements_ii : 1562s [00:52:42.193] ..$ ...future.seeds_ii : 1562s [00:52:42.193] ..$ ...future.globals.maxSize: 1562s [00:52:42.193] - attr(*, "resolved")= logi FALSE 1562s [00:52:42.193] - attr(*, "total_size")= num 3488 1562s [00:52:42.193] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1562s [00:52:42.193] - attr(*, "already-done")= logi TRUE 1562s [00:52:42.202] - reassign environment for ‘...future.FUN’ 1562s [00:52:42.202] - copied ‘...future.FUN’ to environment 1562s [00:52:42.202] - copied ‘MoreArgs’ to environment 1562s [00:52:42.202] - copied ‘...future.elements_ii’ to environment 1562s [00:52:42.202] - copied ‘...future.seeds_ii’ to environment 1562s [00:52:42.202] - copied ‘...future.globals.maxSize’ to environment 1562s [00:52:42.203] assign_globals() ... done 1562s [00:52:42.203] plan(): Setting new future strategy stack: 1562s [00:52:42.203] List of future strategies: 1562s [00:52:42.203] 1. sequential: 1562s [00:52:42.203] - args: function (..., envir = parent.frame()) 1562s [00:52:42.203] - tweaked: FALSE 1562s [00:52:42.203] - call: NULL 1562s [00:52:42.204] plan(): nbrOfWorkers() = 1 1562s [00:52:42.205] plan(): Setting new future strategy stack: 1562s [00:52:42.205] List of future strategies: 1562s [00:52:42.205] 1. multicore: 1562s [00:52:42.205] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1562s [00:52:42.205] - tweaked: FALSE 1562s [00:52:42.205] - call: plan(strategy) 1562s [00:52:42.210] plan(): nbrOfWorkers() = 1 1562s [00:52:42.211] SequentialFuture started (and completed) 1562s [00:52:42.211] - Launch lazy future ... done 1562s [00:52:42.212] run() for ‘SequentialFuture’ ... done 1562s [00:52:42.212] Created future: 1562s [00:52:42.212] SequentialFuture: 1562s [00:52:42.212] Label: ‘future_mapply-3’ 1562s [00:52:42.212] Expression: 1562s [00:52:42.212] { 1562s [00:52:42.212] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1562s [00:52:42.212] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1562s [00:52:42.212] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1562s [00:52:42.212] on.exit(options(oopts), add = TRUE) 1562s [00:52:42.212] } 1562s [00:52:42.212] { 1562s [00:52:42.212] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1562s [00:52:42.212] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1562s [00:52:42.212] do.call(mapply, args = args) 1562s [00:52:42.212] } 1562s [00:52:42.212] } 1562s [00:52:42.212] Lazy evaluation: FALSE 1562s [00:52:42.212] Asynchronous evaluation: FALSE 1562s [00:52:42.212] Local evaluation: TRUE 1562s [00:52:42.212] Environment: R_GlobalEnv 1562s [00:52:42.212] Capture standard output: TRUE 1562s [00:52:42.212] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1562s [00:52:42.212] Globals: 5 objects totaling 3.41 KiB (function ‘...future.FUN’ of 3.24 KiB, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1562s [00:52:42.212] Packages: 1562s [00:52:42.212] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1562s [00:52:42.212] Resolved: TRUE 1562s [00:52:42.212] Value: 112 bytes of class ‘list’ 1562s [00:52:42.212] Early signaling: FALSE 1562s [00:52:42.212] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1562s [00:52:42.212] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1562s [00:52:42.214] Chunk #3 of 5 ... DONE 1562s [00:52:42.214] Chunk #4 of 5 ... 1562s [00:52:42.214] - Finding globals in '...' for chunk #4 ... 1562s [00:52:42.214] getGlobalsAndPackages() ... 1562s [00:52:42.214] Searching for globals... 1562s [00:52:42.215] 1562s [00:52:42.215] Searching for globals ... DONE 1562s [00:52:42.215] - globals: [0] 1562s [00:52:42.215] getGlobalsAndPackages() ... DONE 1562s [00:52:42.215] + additional globals found: [n=0] 1562s [00:52:42.215] + additional namespaces needed: [n=0] 1562s [00:52:42.216] - Finding globals in '...' for chunk #4 ... DONE 1562s [00:52:42.216] - Adjusted option 'future.globals.maxSize': 524288000 -> 5 * 524288000 = 2621440000 (bytes) 1562s [00:52:42.216] - seeds: 1562s [00:52:42.216] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.217] getGlobalsAndPackages() ... 1562s [00:52:42.217] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.217] Resolving globals: FALSE 1562s [00:52:42.221] The total size of the 5 globals is 3.41 KiB (3488 bytes) 1562s [00:52:42.222] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 3.41 KiB.. This exceeds the maximum allowed size of 2.44 GiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (3.24 KiB of class ‘function’), ‘...future.elements_ii’ (168 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1562s [00:52:42.223] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.223] 1562s [00:52:42.223] getGlobalsAndPackages() ... DONE 1562s [00:52:42.224] run() for ‘Future’ ... 1562s [00:52:42.224] - state: ‘created’ 1562s [00:52:42.225] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1562s [00:52:42.230] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1562s [00:52:42.231] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1562s [00:52:42.231] - Field: ‘label’ 1562s [00:52:42.231] - Field: ‘local’ 1562s [00:52:42.231] - Field: ‘owner’ 1562s [00:52:42.232] - Field: ‘envir’ 1562s [00:52:42.232] - Field: ‘packages’ 1562s [00:52:42.232] - Field: ‘gc’ 1562s [00:52:42.232] - Field: ‘conditions’ 1562s [00:52:42.232] - Field: ‘expr’ 1562s [00:52:42.233] - Field: ‘uuid’ 1562s [00:52:42.233] - Field: ‘seed’ 1562s [00:52:42.233] - Field: ‘version’ 1562s [00:52:42.234] - Field: ‘result’ 1562s [00:52:42.234] - Field: ‘asynchronous’ 1562s [00:52:42.234] - Field: ‘calls’ 1562s [00:52:42.234] - Field: ‘globals’ 1562s [00:52:42.235] - Field: ‘stdout’ 1562s [00:52:42.235] - Field: ‘earlySignal’ 1562s [00:52:42.235] - Field: ‘lazy’ 1562s [00:52:42.235] - Field: ‘state’ 1562s [00:52:42.235] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1562s [00:52:42.236] - Launch lazy future ... 1562s [00:52:42.236] Packages needed by the future expression (n = 0): 1562s [00:52:42.236] Packages needed by future strategies (n = 0): 1562s [00:52:42.237] { 1562s [00:52:42.237] { 1562s [00:52:42.237] { 1562s [00:52:42.237] ...future.startTime <- base::Sys.time() 1562s [00:52:42.237] { 1562s [00:52:42.237] { 1562s [00:52:42.237] { 1562s [00:52:42.237] base::local({ 1562s [00:52:42.237] has_future <- base::requireNamespace("future", 1562s [00:52:42.237] quietly = TRUE) 1562s [00:52:42.237] if (has_future) { 1562s [00:52:42.237] ns <- base::getNamespace("future") 1562s [00:52:42.237] version <- ns[[".package"]][["version"]] 1562s [00:52:42.237] if (is.null(version)) 1562s [00:52:42.237] version <- utils::packageVersion("future") 1562s [00:52:42.237] } 1562s [00:52:42.237] else { 1562s [00:52:42.237] version <- NULL 1562s [00:52:42.237] } 1562s [00:52:42.237] if (!has_future || version < "1.8.0") { 1562s [00:52:42.237] info <- base::c(r_version = base::gsub("R version ", 1562s [00:52:42.237] "", base::R.version$version.string), 1562s [00:52:42.237] platform = base::sprintf("%s (%s-bit)", 1562s [00:52:42.237] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1562s [00:52:42.237] os = base::paste(base::Sys.info()[base::c("sysname", 1562s [00:52:42.237] "release", "version")], collapse = " "), 1562s [00:52:42.237] hostname = base::Sys.info()[["nodename"]]) 1562s [00:52:42.237] info <- base::sprintf("%s: %s", base::names(info), 1562s [00:52:42.237] info) 1562s [00:52:42.237] info <- base::paste(info, collapse = "; ") 1562s [00:52:42.237] if (!has_future) { 1562s [00:52:42.237] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1562s [00:52:42.237] info) 1562s [00:52:42.237] } 1562s [00:52:42.237] else { 1562s [00:52:42.237] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1562s [00:52:42.237] info, version) 1562s [00:52:42.237] } 1562s [00:52:42.237] base::stop(msg) 1562s [00:52:42.237] } 1562s [00:52:42.237] }) 1562s [00:52:42.237] } 1562s [00:52:42.237] options(future.plan = NULL) 1562s [00:52:42.237] Sys.unsetenv("R_FUTURE_PLAN") 1562s [00:52:42.237] future::plan("default", .cleanup = FALSE, .init = FALSE) 1562s [00:52:42.237] } 1562s [00:52:42.237] ...future.workdir <- getwd() 1562s [00:52:42.237] } 1562s [00:52:42.237] ...future.oldOptions <- base::as.list(base::.Options) 1562s [00:52:42.237] ...future.oldEnvVars <- base::Sys.getenv() 1562s [00:52:42.237] } 1562s [00:52:42.237] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1562s [00:52:42.237] future.globals.maxSize = 2621440000, future.globals.method = NULL, 1562s [00:52:42.237] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1562s [00:52:42.237] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1562s [00:52:42.237] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1562s [00:52:42.237] future.stdout.windows.reencode = NULL, width = 80L) 1562s [00:52:42.237] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1562s [00:52:42.237] base::names(...future.oldOptions)) 1562s [00:52:42.237] } 1562s [00:52:42.237] if (FALSE) { 1562s [00:52:42.237] } 1562s [00:52:42.237] else { 1562s [00:52:42.237] if (TRUE) { 1562s [00:52:42.237] ...future.stdout <- base::rawConnection(base::raw(0L), 1562s [00:52:42.237] open = "w") 1562s [00:52:42.237] } 1562s [00:52:42.237] else { 1562s [00:52:42.237] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1562s [00:52:42.237] windows = "NUL", "/dev/null"), open = "w") 1562s [00:52:42.237] } 1562s [00:52:42.237] base::sink(...future.stdout, type = "output", split = FALSE) 1562s [00:52:42.237] base::on.exit(if (!base::is.null(...future.stdout)) { 1562s [00:52:42.237] base::sink(type = "output", split = FALSE) 1562s [00:52:42.237] base::close(...future.stdout) 1562s [00:52:42.237] }, add = TRUE) 1562s [00:52:42.237] } 1562s [00:52:42.237] ...future.frame <- base::sys.nframe() 1562s [00:52:42.237] ...future.conditions <- base::list() 1562s [00:52:42.237] ...future.rng <- base::globalenv()$.Random.seed 1562s [00:52:42.237] if (FALSE) { 1562s [00:52:42.237] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1562s [00:52:42.237] "...future.value", "...future.globalenv.names", ".Random.seed") 1562s [00:52:42.237] } 1562s [00:52:42.237] ...future.result <- base::tryCatch({ 1562s [00:52:42.237] base::withCallingHandlers({ 1562s [00:52:42.237] ...future.value <- base::withVisible(base::local({ 1562s [00:52:42.237] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1562s [00:52:42.237] if (!identical(...future.globals.maxSize.org, 1562s [00:52:42.237] ...future.globals.maxSize)) { 1562s [00:52:42.237] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1562s [00:52:42.237] on.exit(options(oopts), add = TRUE) 1562s [00:52:42.237] } 1562s [00:52:42.237] { 1562s [00:52:42.237] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1562s [00:52:42.237] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1562s [00:52:42.237] USE.NAMES = FALSE) 1562s [00:52:42.237] do.call(mapply, args = args) 1562s [00:52:42.237] } 1562s [00:52:42.237] })) 1562s [00:52:42.237] future::FutureResult(value = ...future.value$value, 1562s [00:52:42.237] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1562s [00:52:42.237] ...future.rng), globalenv = if (FALSE) 1562s [00:52:42.237] list(added = base::setdiff(base::names(base::.GlobalEnv), 1562s [00:52:42.237] ...future.globalenv.names)) 1562s [00:52:42.237] else NULL, started = ...future.startTime, version = "1.8") 1562s [00:52:42.237] }, condition = base::local({ 1562s [00:52:42.237] c <- base::c 1562s [00:52:42.237] inherits <- base::inherits 1562s [00:52:42.237] invokeRestart <- base::invokeRestart 1562s [00:52:42.237] length <- base::length 1562s [00:52:42.237] list <- base::list 1562s [00:52:42.237] seq.int <- base::seq.int 1562s [00:52:42.237] signalCondition <- base::signalCondition 1562s [00:52:42.237] sys.calls <- base::sys.calls 1562s [00:52:42.237] `[[` <- base::`[[` 1562s [00:52:42.237] `+` <- base::`+` 1562s [00:52:42.237] `<<-` <- base::`<<-` 1562s [00:52:42.237] sysCalls <- function(calls = sys.calls(), from = 1L) { 1562s [00:52:42.237] calls[seq.int(from = from + 12L, to = length(calls) - 1562s [00:52:42.237] 3L)] 1562s [00:52:42.237] } 1562s [00:52:42.237] function(cond) { 1562s [00:52:42.237] is_error <- inherits(cond, "error") 1562s [00:52:42.237] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1562s [00:52:42.237] NULL) 1562s [00:52:42.237] if (is_error) { 1562s [00:52:42.237] sessionInformation <- function() { 1562s [00:52:42.237] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1562s [00:52:42.237] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1562s [00:52:42.237] search = base::search(), system = base::Sys.info()) 1562s [00:52:42.237] } 1562s [00:52:42.237] ...future.conditions[[length(...future.conditions) + 1562s [00:52:42.237] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1562s [00:52:42.237] cond$call), session = sessionInformation(), 1562s [00:52:42.237] timestamp = base::Sys.time(), signaled = 0L) 1562s [00:52:42.237] signalCondition(cond) 1562s [00:52:42.237] } 1562s [00:52:42.237] else if (!ignore && TRUE && inherits(cond, c("condition", 1562s [00:52:42.237] "immediateCondition"))) { 1562s [00:52:42.237] signal <- TRUE && inherits(cond, "immediateCondition") 1562s [00:52:42.237] ...future.conditions[[length(...future.conditions) + 1562s [00:52:42.237] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1562s [00:52:42.237] if (TRUE && !signal) { 1562s [00:52:42.237] muffleCondition <- function (cond, pattern = "^muffle") 1562s [00:52:42.237] { 1562s [00:52:42.237] inherits <- base::inherits 1562s [00:52:42.237] invokeRestart <- base::invokeRestart 1562s [00:52:42.237] is.null <- base::is.null 1562s [00:52:42.237] muffled <- FALSE 1562s [00:52:42.237] if (inherits(cond, "message")) { 1562s [00:52:42.237] muffled <- grepl(pattern, "muffleMessage") 1562s [00:52:42.237] if (muffled) 1562s [00:52:42.237] invokeRestart("muffleMessage") 1562s [00:52:42.237] } 1562s [00:52:42.237] else if (inherits(cond, "warning")) { 1562s [00:52:42.237] muffled <- grepl(pattern, "muffleWarning") 1562s [00:52:42.237] if (muffled) 1562s [00:52:42.237] invokeRestart("muffleWarning") 1562s [00:52:42.237] } 1562s [00:52:42.237] else if (inherits(cond, "condition")) { 1562s [00:52:42.237] if (!is.null(pattern)) { 1562s [00:52:42.237] computeRestarts <- base::computeRestarts 1562s [00:52:42.237] grepl <- base::grepl 1562s [00:52:42.237] restarts <- computeRestarts(cond) 1562s [00:52:42.237] for (restart in restarts) { 1562s [00:52:42.237] name <- restart$name 1562s [00:52:42.237] if (is.null(name)) 1562s [00:52:42.237] next 1562s [00:52:42.237] if (!grepl(pattern, name)) 1562s [00:52:42.237] next 1562s [00:52:42.237] invokeRestart(restart) 1562s [00:52:42.237] muffled <- TRUE 1562s [00:52:42.237] break 1562s [00:52:42.237] } 1562s [00:52:42.237] } 1562s [00:52:42.237] } 1562s [00:52:42.237] invisible(muffled) 1562s [00:52:42.237] } 1562s [00:52:42.237] muffleCondition(cond, pattern = "^muffle") 1562s [00:52:42.237] } 1562s [00:52:42.237] } 1562s [00:52:42.237] else { 1562s [00:52:42.237] if (TRUE) { 1562s [00:52:42.237] muffleCondition <- function (cond, pattern = "^muffle") 1562s [00:52:42.237] { 1562s [00:52:42.237] inherits <- base::inherits 1562s [00:52:42.237] invokeRestart <- base::invokeRestart 1562s [00:52:42.237] is.null <- base::is.null 1562s [00:52:42.237] muffled <- FALSE 1562s [00:52:42.237] if (inherits(cond, "message")) { 1562s [00:52:42.237] muffled <- grepl(pattern, "muffleMessage") 1562s [00:52:42.237] if (muffled) 1562s [00:52:42.237] invokeRestart("muffleMessage") 1562s [00:52:42.237] } 1562s [00:52:42.237] else if (inherits(cond, "warning")) { 1562s [00:52:42.237] muffled <- grepl(pattern, "muffleWarning") 1562s [00:52:42.237] if (muffled) 1562s [00:52:42.237] invokeRestart("muffleWarning") 1562s [00:52:42.237] } 1562s [00:52:42.237] else if (inherits(cond, "condition")) { 1562s [00:52:42.237] if (!is.null(pattern)) { 1562s [00:52:42.237] computeRestarts <- base::computeRestarts 1562s [00:52:42.237] grepl <- base::grepl 1562s [00:52:42.237] restarts <- computeRestarts(cond) 1562s [00:52:42.237] for (restart in restarts) { 1562s [00:52:42.237] name <- restart$name 1562s [00:52:42.237] if (is.null(name)) 1562s [00:52:42.237] next 1562s [00:52:42.237] if (!grepl(pattern, name)) 1562s [00:52:42.237] next 1562s [00:52:42.237] invokeRestart(restart) 1562s [00:52:42.237] muffled <- TRUE 1562s [00:52:42.237] break 1562s [00:52:42.237] } 1562s [00:52:42.237] } 1562s [00:52:42.237] } 1562s [00:52:42.237] invisible(muffled) 1562s [00:52:42.237] } 1562s [00:52:42.237] muffleCondition(cond, pattern = "^muffle") 1562s [00:52:42.237] } 1562s [00:52:42.237] } 1562s [00:52:42.237] } 1562s [00:52:42.237] })) 1562s [00:52:42.237] }, error = function(ex) { 1562s [00:52:42.237] base::structure(base::list(value = NULL, visible = NULL, 1562s [00:52:42.237] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1562s [00:52:42.237] ...future.rng), started = ...future.startTime, 1562s [00:52:42.237] finished = Sys.time(), session_uuid = NA_character_, 1562s [00:52:42.237] version = "1.8"), class = "FutureResult") 1562s [00:52:42.237] }, finally = { 1562s [00:52:42.237] if (!identical(...future.workdir, getwd())) 1562s [00:52:42.237] setwd(...future.workdir) 1562s [00:52:42.237] { 1562s [00:52:42.237] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1562s [00:52:42.237] ...future.oldOptions$nwarnings <- NULL 1562s [00:52:42.237] } 1562s [00:52:42.237] base::options(...future.oldOptions) 1562s [00:52:42.237] if (.Platform$OS.type == "windows") { 1562s [00:52:42.237] old_names <- names(...future.oldEnvVars) 1562s [00:52:42.237] envs <- base::Sys.getenv() 1562s [00:52:42.237] names <- names(envs) 1562s [00:52:42.237] common <- intersect(names, old_names) 1562s [00:52:42.237] added <- setdiff(names, old_names) 1562s [00:52:42.237] removed <- setdiff(old_names, names) 1562s [00:52:42.237] changed <- common[...future.oldEnvVars[common] != 1562s [00:52:42.237] envs[common]] 1562s [00:52:42.237] NAMES <- toupper(changed) 1562s [00:52:42.237] args <- list() 1562s [00:52:42.237] for (kk in seq_along(NAMES)) { 1562s [00:52:42.237] name <- changed[[kk]] 1562s [00:52:42.237] NAME <- NAMES[[kk]] 1562s [00:52:42.237] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.237] next 1562s [00:52:42.237] args[[name]] <- ...future.oldEnvVars[[name]] 1562s [00:52:42.237] } 1562s [00:52:42.237] NAMES <- toupper(added) 1562s [00:52:42.237] for (kk in seq_along(NAMES)) { 1562s [00:52:42.237] name <- added[[kk]] 1562s [00:52:42.237] NAME <- NAMES[[kk]] 1562s [00:52:42.237] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.237] next 1562s [00:52:42.237] args[[name]] <- "" 1562s [00:52:42.237] } 1562s [00:52:42.237] NAMES <- toupper(removed) 1562s [00:52:42.237] for (kk in seq_along(NAMES)) { 1562s [00:52:42.237] name <- removed[[kk]] 1562s [00:52:42.237] NAME <- NAMES[[kk]] 1562s [00:52:42.237] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.237] next 1562s [00:52:42.237] args[[name]] <- ...future.oldEnvVars[[name]] 1562s [00:52:42.237] } 1562s [00:52:42.237] if (length(args) > 0) 1562s [00:52:42.237] base::do.call(base::Sys.setenv, args = args) 1562s [00:52:42.237] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1562s [00:52:42.237] } 1562s [00:52:42.237] else { 1562s [00:52:42.237] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1562s [00:52:42.237] } 1562s [00:52:42.237] { 1562s [00:52:42.237] if (base::length(...future.futureOptionsAdded) > 1562s [00:52:42.237] 0L) { 1562s [00:52:42.237] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1562s [00:52:42.237] base::names(opts) <- ...future.futureOptionsAdded 1562s [00:52:42.237] base::options(opts) 1562s [00:52:42.237] } 1562s [00:52:42.237] { 1562s [00:52:42.237] { 1562s [00:52:42.237] base::assign(".Random.seed", c(10407L, 2079749599L, 1562s [00:52:42.237] -1712504007L, 90762767L, 511132818L, -526970845L, 1562s [00:52:42.237] -1057805512L), envir = base::globalenv(), 1562s [00:52:42.237] inherits = FALSE) 1562s [00:52:42.237] NULL 1562s [00:52:42.237] } 1562s [00:52:42.237] options(future.plan = NULL) 1562s [00:52:42.237] if (is.na(NA_character_)) 1562s [00:52:42.237] Sys.unsetenv("R_FUTURE_PLAN") 1562s [00:52:42.237] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1562s [00:52:42.237] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1562s [00:52:42.237] envir = parent.frame()) 1562s [00:52:42.237] { 1562s [00:52:42.237] default_workers <- missing(workers) 1562s [00:52:42.237] if (is.function(workers)) 1562s [00:52:42.237] workers <- workers() 1562s [00:52:42.237] workers <- structure(as.integer(workers), 1562s [00:52:42.237] class = class(workers)) 1562s [00:52:42.237] stop_if_not(is.finite(workers), workers >= 1562s [00:52:42.237] 1L) 1562s [00:52:42.237] if ((workers == 1L && !inherits(workers, 1562s [00:52:42.237] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1562s [00:52:42.237] if (default_workers) 1562s [00:52:42.237] supportsMulticore(warn = TRUE) 1562s [00:52:42.237] return(sequential(..., envir = envir)) 1562s [00:52:42.237] } 1562s [00:52:42.237] oopts <- options(mc.cores = workers) 1562s [00:52:42.237] on.exit(options(oopts)) 1562s [00:52:42.237] future <- MulticoreFuture(..., workers = workers, 1562s [00:52:42.237] envir = envir) 1562s [00:52:42.237] if (!future$lazy) 1562s [00:52:42.237] future <- run(future) 1562s [00:52:42.237] invisible(future) 1562s [00:52:42.237] }), .cleanup = FALSE, .init = FALSE) 1562s [00:52:42.237] } 1562s [00:52:42.237] } 1562s [00:52:42.237] } 1562s [00:52:42.237] }) 1562s [00:52:42.237] if (TRUE) { 1562s [00:52:42.237] base::sink(type = "output", split = FALSE) 1562s [00:52:42.237] if (TRUE) { 1562s [00:52:42.237] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1562s [00:52:42.237] } 1562s [00:52:42.237] else { 1562s [00:52:42.237] ...future.result["stdout"] <- base::list(NULL) 1562s [00:52:42.237] } 1562s [00:52:42.237] base::close(...future.stdout) 1562s [00:52:42.237] ...future.stdout <- NULL 1562s [00:52:42.237] } 1562s [00:52:42.237] ...future.result$conditions <- ...future.conditions 1562s [00:52:42.237] ...future.result$finished <- base::Sys.time() 1562s [00:52:42.237] ...future.result 1562s [00:52:42.237] } 1562s [00:52:42.243] assign_globals() ... 1562s [00:52:42.243] List of 5 1562s [00:52:42.243] $ ...future.FUN :function (C, k) 1562s [00:52:42.243] $ MoreArgs : NULL 1562s [00:52:42.243] $ ...future.elements_ii :List of 2 1562s [00:52:42.243] ..$ :List of 1 1562s [00:52:42.243] .. ..$ : chr "D" 1562s [00:52:42.243] ..$ :List of 1 1562s [00:52:42.243] .. ..$ : int 2 1562s [00:52:42.243] $ ...future.seeds_ii : NULL 1562s [00:52:42.243] $ ...future.globals.maxSize: NULL 1562s [00:52:42.243] - attr(*, "where")=List of 5 1562s [00:52:42.243] ..$ ...future.FUN : 1562s [00:52:42.243] ..$ MoreArgs : 1562s [00:52:42.243] ..$ ...future.elements_ii : 1562s [00:52:42.243] ..$ ...future.seeds_ii : 1562s [00:52:42.243] ..$ ...future.globals.maxSize: 1562s [00:52:42.243] - attr(*, "resolved")= logi FALSE 1562s [00:52:42.243] - attr(*, "total_size")= num 3488 1562s [00:52:42.243] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1562s [00:52:42.243] - attr(*, "already-done")= logi TRUE 1562s [00:52:42.253] - reassign environment for ‘...future.FUN’ 1562s [00:52:42.253] - copied ‘...future.FUN’ to environment 1562s [00:52:42.253] - copied ‘MoreArgs’ to environment 1562s [00:52:42.254] - copied ‘...future.elements_ii’ to environment 1562s [00:52:42.254] - copied ‘...future.seeds_ii’ to environment 1562s [00:52:42.254] - copied ‘...future.globals.maxSize’ to environment 1562s [00:52:42.255] assign_globals() ... done 1562s [00:52:42.255] plan(): Setting new future strategy stack: 1562s [00:52:42.255] List of future strategies: 1562s [00:52:42.255] 1. sequential: 1562s [00:52:42.255] - args: function (..., envir = parent.frame()) 1562s [00:52:42.255] - tweaked: FALSE 1562s [00:52:42.255] - call: NULL 1562s [00:52:42.256] plan(): nbrOfWorkers() = 1 1562s [00:52:42.257] plan(): Setting new future strategy stack: 1562s [00:52:42.257] List of future strategies: 1562s [00:52:42.257] 1. multicore: 1562s [00:52:42.257] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1562s [00:52:42.257] - tweaked: FALSE 1562s [00:52:42.257] - call: plan(strategy) 1562s [00:52:42.262] plan(): nbrOfWorkers() = 1 1562s [00:52:42.262] SequentialFuture started (and completed) 1562s [00:52:42.263] - Launch lazy future ... done 1562s [00:52:42.263] run() for ‘SequentialFuture’ ... done 1562s [00:52:42.263] Created future: 1562s [00:52:42.263] SequentialFuture: 1562s [00:52:42.263] Label: ‘future_mapply-4’ 1562s [00:52:42.263] Expression: 1562s [00:52:42.263] { 1562s [00:52:42.263] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1562s [00:52:42.263] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1562s [00:52:42.263] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1562s [00:52:42.263] on.exit(options(oopts), add = TRUE) 1562s [00:52:42.263] } 1562s [00:52:42.263] { 1562s [00:52:42.263] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1562s [00:52:42.263] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1562s [00:52:42.263] do.call(mapply, args = args) 1562s [00:52:42.263] } 1562s [00:52:42.263] } 1562s [00:52:42.263] Lazy evaluation: FALSE 1562s [00:52:42.263] Asynchronous evaluation: FALSE 1562s [00:52:42.263] Local evaluation: TRUE 1562s [00:52:42.263] Environment: R_GlobalEnv 1562s [00:52:42.263] Capture standard output: TRUE 1562s [00:52:42.263] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1562s [00:52:42.263] Globals: 5 objects totaling 3.41 KiB (function ‘...future.FUN’ of 3.24 KiB, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1562s [00:52:42.263] Packages: 1562s [00:52:42.263] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1562s [00:52:42.263] Resolved: TRUE 1562s [00:52:42.263] Value: 112 bytes of class ‘list’ 1562s [00:52:42.263] Early signaling: FALSE 1562s [00:52:42.263] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1562s [00:52:42.263] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1562s [00:52:42.265] Chunk #4 of 5 ... DONE 1562s [00:52:42.265] Chunk #5 of 5 ... 1562s [00:52:42.265] - Finding globals in '...' for chunk #5 ... 1562s [00:52:42.265] getGlobalsAndPackages() ... 1562s [00:52:42.265] Searching for globals... 1562s [00:52:42.266] 1562s [00:52:42.266] Searching for globals ... DONE 1562s [00:52:42.266] - globals: [0] 1562s [00:52:42.267] getGlobalsAndPackages() ... DONE 1562s [00:52:42.267] + additional globals found: [n=0] 1562s [00:52:42.267] + additional namespaces needed: [n=0] 1562s [00:52:42.267] - Finding globals in '...' for chunk #5 ... DONE 1562s [00:52:42.267] - Adjusted option 'future.globals.maxSize': 524288000 -> 5 * 524288000 = 2621440000 (bytes) 1562s [00:52:42.267] - seeds: 1562s [00:52:42.267] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.268] getGlobalsAndPackages() ... 1562s [00:52:42.268] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.268] Resolving globals: FALSE 1562s [00:52:42.269] The total size of the 5 globals is 3.41 KiB (3488 bytes) 1562s [00:52:42.269] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 3.41 KiB.. This exceeds the maximum allowed size of 2.44 GiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (3.24 KiB of class ‘function’), ‘...future.elements_ii’ (168 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1562s [00:52:42.270] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.270] 1562s [00:52:42.270] getGlobalsAndPackages() ... DONE 1562s [00:52:42.271] run() for ‘Future’ ... 1562s [00:52:42.271] - state: ‘created’ 1562s [00:52:42.271] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1562s [00:52:42.277] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1562s [00:52:42.277] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1562s [00:52:42.277] - Field: ‘label’ 1562s [00:52:42.278] - Field: ‘local’ 1562s [00:52:42.278] - Field: ‘owner’ 1562s [00:52:42.278] - Field: ‘envir’ 1562s [00:52:42.278] - Field: ‘packages’ 1562s [00:52:42.278] - Field: ‘gc’ 1562s [00:52:42.279] - Field: ‘conditions’ 1562s [00:52:42.279] - Field: ‘expr’ 1562s [00:52:42.279] - Field: ‘uuid’ 1562s [00:52:42.279] - Field: ‘seed’ 1562s [00:52:42.279] - Field: ‘version’ 1562s [00:52:42.279] - Field: ‘result’ 1562s [00:52:42.280] - Field: ‘asynchronous’ 1562s [00:52:42.280] - Field: ‘calls’ 1562s [00:52:42.280] - Field: ‘globals’ 1562s [00:52:42.280] - Field: ‘stdout’ 1562s [00:52:42.280] - Field: ‘earlySignal’ 1562s [00:52:42.280] - Field: ‘lazy’ 1562s [00:52:42.281] - Field: ‘state’ 1562s [00:52:42.281] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1562s [00:52:42.281] - Launch lazy future ... 1562s [00:52:42.281] Packages needed by the future expression (n = 0): 1562s [00:52:42.282] Packages needed by future strategies (n = 0): 1562s [00:52:42.282] { 1562s [00:52:42.282] { 1562s [00:52:42.282] { 1562s [00:52:42.282] ...future.startTime <- base::Sys.time() 1562s [00:52:42.282] { 1562s [00:52:42.282] { 1562s [00:52:42.282] { 1562s [00:52:42.282] base::local({ 1562s [00:52:42.282] has_future <- base::requireNamespace("future", 1562s [00:52:42.282] quietly = TRUE) 1562s [00:52:42.282] if (has_future) { 1562s [00:52:42.282] ns <- base::getNamespace("future") 1562s [00:52:42.282] version <- ns[[".package"]][["version"]] 1562s [00:52:42.282] if (is.null(version)) 1562s [00:52:42.282] version <- utils::packageVersion("future") 1562s [00:52:42.282] } 1562s [00:52:42.282] else { 1562s [00:52:42.282] version <- NULL 1562s [00:52:42.282] } 1562s [00:52:42.282] if (!has_future || version < "1.8.0") { 1562s [00:52:42.282] info <- base::c(r_version = base::gsub("R version ", 1562s [00:52:42.282] "", base::R.version$version.string), 1562s [00:52:42.282] platform = base::sprintf("%s (%s-bit)", 1562s [00:52:42.282] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1562s [00:52:42.282] os = base::paste(base::Sys.info()[base::c("sysname", 1562s [00:52:42.282] "release", "version")], collapse = " "), 1562s [00:52:42.282] hostname = base::Sys.info()[["nodename"]]) 1562s [00:52:42.282] info <- base::sprintf("%s: %s", base::names(info), 1562s [00:52:42.282] info) 1562s [00:52:42.282] info <- base::paste(info, collapse = "; ") 1562s [00:52:42.282] if (!has_future) { 1562s [00:52:42.282] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1562s [00:52:42.282] info) 1562s [00:52:42.282] } 1562s [00:52:42.282] else { 1562s [00:52:42.282] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1562s [00:52:42.282] info, version) 1562s [00:52:42.282] } 1562s [00:52:42.282] base::stop(msg) 1562s [00:52:42.282] } 1562s [00:52:42.282] }) 1562s [00:52:42.282] } 1562s [00:52:42.282] options(future.plan = NULL) 1562s [00:52:42.282] Sys.unsetenv("R_FUTURE_PLAN") 1562s [00:52:42.282] future::plan("default", .cleanup = FALSE, .init = FALSE) 1562s [00:52:42.282] } 1562s [00:52:42.282] ...future.workdir <- getwd() 1562s [00:52:42.282] } 1562s [00:52:42.282] ...future.oldOptions <- base::as.list(base::.Options) 1562s [00:52:42.282] ...future.oldEnvVars <- base::Sys.getenv() 1562s [00:52:42.282] } 1562s [00:52:42.282] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1562s [00:52:42.282] future.globals.maxSize = 2621440000, future.globals.method = NULL, 1562s [00:52:42.282] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1562s [00:52:42.282] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1562s [00:52:42.282] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1562s [00:52:42.282] future.stdout.windows.reencode = NULL, width = 80L) 1562s [00:52:42.282] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1562s [00:52:42.282] base::names(...future.oldOptions)) 1562s [00:52:42.282] } 1562s [00:52:42.282] if (FALSE) { 1562s [00:52:42.282] } 1562s [00:52:42.282] else { 1562s [00:52:42.282] if (TRUE) { 1562s [00:52:42.282] ...future.stdout <- base::rawConnection(base::raw(0L), 1562s [00:52:42.282] open = "w") 1562s [00:52:42.282] } 1562s [00:52:42.282] else { 1562s [00:52:42.282] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1562s [00:52:42.282] windows = "NUL", "/dev/null"), open = "w") 1562s [00:52:42.282] } 1562s [00:52:42.282] base::sink(...future.stdout, type = "output", split = FALSE) 1562s [00:52:42.282] base::on.exit(if (!base::is.null(...future.stdout)) { 1562s [00:52:42.282] base::sink(type = "output", split = FALSE) 1562s [00:52:42.282] base::close(...future.stdout) 1562s [00:52:42.282] }, add = TRUE) 1562s [00:52:42.282] } 1562s [00:52:42.282] ...future.frame <- base::sys.nframe() 1562s [00:52:42.282] ...future.conditions <- base::list() 1562s [00:52:42.282] ...future.rng <- base::globalenv()$.Random.seed 1562s [00:52:42.282] if (FALSE) { 1562s [00:52:42.282] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1562s [00:52:42.282] "...future.value", "...future.globalenv.names", ".Random.seed") 1562s [00:52:42.282] } 1562s [00:52:42.282] ...future.result <- base::tryCatch({ 1562s [00:52:42.282] base::withCallingHandlers({ 1562s [00:52:42.282] ...future.value <- base::withVisible(base::local({ 1562s [00:52:42.282] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1562s [00:52:42.282] if (!identical(...future.globals.maxSize.org, 1562s [00:52:42.282] ...future.globals.maxSize)) { 1562s [00:52:42.282] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1562s [00:52:42.282] on.exit(options(oopts), add = TRUE) 1562s [00:52:42.282] } 1562s [00:52:42.282] { 1562s [00:52:42.282] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1562s [00:52:42.282] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1562s [00:52:42.282] USE.NAMES = FALSE) 1562s [00:52:42.282] do.call(mapply, args = args) 1562s [00:52:42.282] } 1562s [00:52:42.282] })) 1562s [00:52:42.282] future::FutureResult(value = ...future.value$value, 1562s [00:52:42.282] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1562s [00:52:42.282] ...future.rng), globalenv = if (FALSE) 1562s [00:52:42.282] list(added = base::setdiff(base::names(base::.GlobalEnv), 1562s [00:52:42.282] ...future.globalenv.names)) 1562s [00:52:42.282] else NULL, started = ...future.startTime, version = "1.8") 1562s [00:52:42.282] }, condition = base::local({ 1562s [00:52:42.282] c <- base::c 1562s [00:52:42.282] inherits <- base::inherits 1562s [00:52:42.282] invokeRestart <- base::invokeRestart 1562s [00:52:42.282] length <- base::length 1562s [00:52:42.282] list <- base::list 1562s [00:52:42.282] seq.int <- base::seq.int 1562s [00:52:42.282] signalCondition <- base::signalCondition 1562s [00:52:42.282] sys.calls <- base::sys.calls 1562s [00:52:42.282] `[[` <- base::`[[` 1562s [00:52:42.282] `+` <- base::`+` 1562s [00:52:42.282] `<<-` <- base::`<<-` 1562s [00:52:42.282] sysCalls <- function(calls = sys.calls(), from = 1L) { 1562s [00:52:42.282] calls[seq.int(from = from + 12L, to = length(calls) - 1562s [00:52:42.282] 3L)] 1562s [00:52:42.282] } 1562s [00:52:42.282] function(cond) { 1562s [00:52:42.282] is_error <- inherits(cond, "error") 1562s [00:52:42.282] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1562s [00:52:42.282] NULL) 1562s [00:52:42.282] if (is_error) { 1562s [00:52:42.282] sessionInformation <- function() { 1562s [00:52:42.282] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1562s [00:52:42.282] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1562s [00:52:42.282] search = base::search(), system = base::Sys.info()) 1562s [00:52:42.282] } 1562s [00:52:42.282] ...future.conditions[[length(...future.conditions) + 1562s [00:52:42.282] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1562s [00:52:42.282] cond$call), session = sessionInformation(), 1562s [00:52:42.282] timestamp = base::Sys.time(), signaled = 0L) 1562s [00:52:42.282] signalCondition(cond) 1562s [00:52:42.282] } 1562s [00:52:42.282] else if (!ignore && TRUE && inherits(cond, c("condition", 1562s [00:52:42.282] "immediateCondition"))) { 1562s [00:52:42.282] signal <- TRUE && inherits(cond, "immediateCondition") 1562s [00:52:42.282] ...future.conditions[[length(...future.conditions) + 1562s [00:52:42.282] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1562s [00:52:42.282] if (TRUE && !signal) { 1562s [00:52:42.282] muffleCondition <- function (cond, pattern = "^muffle") 1562s [00:52:42.282] { 1562s [00:52:42.282] inherits <- base::inherits 1562s [00:52:42.282] invokeRestart <- base::invokeRestart 1562s [00:52:42.282] is.null <- base::is.null 1562s [00:52:42.282] muffled <- FALSE 1562s [00:52:42.282] if (inherits(cond, "message")) { 1562s [00:52:42.282] muffled <- grepl(pattern, "muffleMessage") 1562s [00:52:42.282] if (muffled) 1562s [00:52:42.282] invokeRestart("muffleMessage") 1562s [00:52:42.282] } 1562s [00:52:42.282] else if (inherits(cond, "warning")) { 1562s [00:52:42.282] muffled <- grepl(pattern, "muffleWarning") 1562s [00:52:42.282] if (muffled) 1562s [00:52:42.282] invokeRestart("muffleWarning") 1562s [00:52:42.282] } 1562s [00:52:42.282] else if (inherits(cond, "condition")) { 1562s [00:52:42.282] if (!is.null(pattern)) { 1562s [00:52:42.282] computeRestarts <- base::computeRestarts 1562s [00:52:42.282] grepl <- base::grepl 1562s [00:52:42.282] restarts <- computeRestarts(cond) 1562s [00:52:42.282] for (restart in restarts) { 1562s [00:52:42.282] name <- restart$name 1562s [00:52:42.282] if (is.null(name)) 1562s [00:52:42.282] next 1562s [00:52:42.282] if (!grepl(pattern, name)) 1562s [00:52:42.282] next 1562s [00:52:42.282] invokeRestart(restart) 1562s [00:52:42.282] muffled <- TRUE 1562s [00:52:42.282] break 1562s [00:52:42.282] } 1562s [00:52:42.282] } 1562s [00:52:42.282] } 1562s [00:52:42.282] invisible(muffled) 1562s [00:52:42.282] } 1562s [00:52:42.282] muffleCondition(cond, pattern = "^muffle") 1562s [00:52:42.282] } 1562s [00:52:42.282] } 1562s [00:52:42.282] else { 1562s [00:52:42.282] if (TRUE) { 1562s [00:52:42.282] muffleCondition <- function (cond, pattern = "^muffle") 1562s [00:52:42.282] { 1562s [00:52:42.282] inherits <- base::inherits 1562s [00:52:42.282] invokeRestart <- base::invokeRestart 1562s [00:52:42.282] is.null <- base::is.null 1562s [00:52:42.282] muffled <- FALSE 1562s [00:52:42.282] if (inherits(cond, "message")) { 1562s [00:52:42.282] muffled <- grepl(pattern, "muffleMessage") 1562s [00:52:42.282] if (muffled) 1562s [00:52:42.282] invokeRestart("muffleMessage") 1562s [00:52:42.282] } 1562s [00:52:42.282] else if (inherits(cond, "warning")) { 1562s [00:52:42.282] muffled <- grepl(pattern, "muffleWarning") 1562s [00:52:42.282] if (muffled) 1562s [00:52:42.282] invokeRestart("muffleWarning") 1562s [00:52:42.282] } 1562s [00:52:42.282] else if (inherits(cond, "condition")) { 1562s [00:52:42.282] if (!is.null(pattern)) { 1562s [00:52:42.282] computeRestarts <- base::computeRestarts 1562s [00:52:42.282] grepl <- base::grepl 1562s [00:52:42.282] restarts <- computeRestarts(cond) 1562s [00:52:42.282] for (restart in restarts) { 1562s [00:52:42.282] name <- restart$name 1562s [00:52:42.282] if (is.null(name)) 1562s [00:52:42.282] next 1562s [00:52:42.282] if (!grepl(pattern, name)) 1562s [00:52:42.282] next 1562s [00:52:42.282] invokeRestart(restart) 1562s [00:52:42.282] muffled <- TRUE 1562s [00:52:42.282] break 1562s [00:52:42.282] } 1562s [00:52:42.282] } 1562s [00:52:42.282] } 1562s [00:52:42.282] invisible(muffled) 1562s [00:52:42.282] } 1562s [00:52:42.282] muffleCondition(cond, pattern = "^muffle") 1562s [00:52:42.282] } 1562s [00:52:42.282] } 1562s [00:52:42.282] } 1562s [00:52:42.282] })) 1562s [00:52:42.282] }, error = function(ex) { 1562s [00:52:42.282] base::structure(base::list(value = NULL, visible = NULL, 1562s [00:52:42.282] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1562s [00:52:42.282] ...future.rng), started = ...future.startTime, 1562s [00:52:42.282] finished = Sys.time(), session_uuid = NA_character_, 1562s [00:52:42.282] version = "1.8"), class = "FutureResult") 1562s [00:52:42.282] }, finally = { 1562s [00:52:42.282] if (!identical(...future.workdir, getwd())) 1562s [00:52:42.282] setwd(...future.workdir) 1562s [00:52:42.282] { 1562s [00:52:42.282] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1562s [00:52:42.282] ...future.oldOptions$nwarnings <- NULL 1562s [00:52:42.282] } 1562s [00:52:42.282] base::options(...future.oldOptions) 1562s [00:52:42.282] if (.Platform$OS.type == "windows") { 1562s [00:52:42.282] old_names <- names(...future.oldEnvVars) 1562s [00:52:42.282] envs <- base::Sys.getenv() 1562s [00:52:42.282] names <- names(envs) 1562s [00:52:42.282] common <- intersect(names, old_names) 1562s [00:52:42.282] added <- setdiff(names, old_names) 1562s [00:52:42.282] removed <- setdiff(old_names, names) 1562s [00:52:42.282] changed <- common[...future.oldEnvVars[common] != 1562s [00:52:42.282] envs[common]] 1562s [00:52:42.282] NAMES <- toupper(changed) 1562s [00:52:42.282] args <- list() 1562s [00:52:42.282] for (kk in seq_along(NAMES)) { 1562s [00:52:42.282] name <- changed[[kk]] 1562s [00:52:42.282] NAME <- NAMES[[kk]] 1562s [00:52:42.282] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.282] next 1562s [00:52:42.282] args[[name]] <- ...future.oldEnvVars[[name]] 1562s [00:52:42.282] } 1562s [00:52:42.282] NAMES <- toupper(added) 1562s [00:52:42.282] for (kk in seq_along(NAMES)) { 1562s [00:52:42.282] name <- added[[kk]] 1562s [00:52:42.282] NAME <- NAMES[[kk]] 1562s [00:52:42.282] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.282] next 1562s [00:52:42.282] args[[name]] <- "" 1562s [00:52:42.282] } 1562s [00:52:42.282] NAMES <- toupper(removed) 1562s [00:52:42.282] for (kk in seq_along(NAMES)) { 1562s [00:52:42.282] name <- removed[[kk]] 1562s [00:52:42.282] NAME <- NAMES[[kk]] 1562s [00:52:42.282] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.282] next 1562s [00:52:42.282] args[[name]] <- ...future.oldEnvVars[[name]] 1562s [00:52:42.282] } 1562s [00:52:42.282] if (length(args) > 0) 1562s [00:52:42.282] base::do.call(base::Sys.setenv, args = args) 1562s [00:52:42.282] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1562s [00:52:42.282] } 1562s [00:52:42.282] else { 1562s [00:52:42.282] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1562s [00:52:42.282] } 1562s [00:52:42.282] { 1562s [00:52:42.282] if (base::length(...future.futureOptionsAdded) > 1562s [00:52:42.282] 0L) { 1562s [00:52:42.282] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1562s [00:52:42.282] base::names(opts) <- ...future.futureOptionsAdded 1562s [00:52:42.282] base::options(opts) 1562s [00:52:42.282] } 1562s [00:52:42.282] { 1562s [00:52:42.282] { 1562s [00:52:42.282] base::assign(".Random.seed", c(10407L, 2079749599L, 1562s [00:52:42.282] -1712504007L, 90762767L, 511132818L, -526970845L, 1562s [00:52:42.282] -1057805512L), envir = base::globalenv(), 1562s [00:52:42.282] inherits = FALSE) 1562s [00:52:42.282] NULL 1562s [00:52:42.282] } 1562s [00:52:42.282] options(future.plan = NULL) 1562s [00:52:42.282] if (is.na(NA_character_)) 1562s [00:52:42.282] Sys.unsetenv("R_FUTURE_PLAN") 1562s [00:52:42.282] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1562s [00:52:42.282] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1562s [00:52:42.282] envir = parent.frame()) 1562s [00:52:42.282] { 1562s [00:52:42.282] default_workers <- missing(workers) 1562s [00:52:42.282] if (is.function(workers)) 1562s [00:52:42.282] workers <- workers() 1562s [00:52:42.282] workers <- structure(as.integer(workers), 1562s [00:52:42.282] class = class(workers)) 1562s [00:52:42.282] stop_if_not(is.finite(workers), workers >= 1562s [00:52:42.282] 1L) 1562s [00:52:42.282] if ((workers == 1L && !inherits(workers, 1562s [00:52:42.282] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1562s [00:52:42.282] if (default_workers) 1562s [00:52:42.282] supportsMulticore(warn = TRUE) 1562s [00:52:42.282] return(sequential(..., envir = envir)) 1562s [00:52:42.282] } 1562s [00:52:42.282] oopts <- options(mc.cores = workers) 1562s [00:52:42.282] on.exit(options(oopts)) 1562s [00:52:42.282] future <- MulticoreFuture(..., workers = workers, 1562s [00:52:42.282] envir = envir) 1562s [00:52:42.282] if (!future$lazy) 1562s [00:52:42.282] future <- run(future) 1562s [00:52:42.282] invisible(future) 1562s [00:52:42.282] }), .cleanup = FALSE, .init = FALSE) 1562s [00:52:42.282] } 1562s [00:52:42.282] } 1562s [00:52:42.282] } 1562s [00:52:42.282] }) 1562s [00:52:42.282] if (TRUE) { 1562s [00:52:42.282] base::sink(type = "output", split = FALSE) 1562s [00:52:42.282] if (TRUE) { 1562s [00:52:42.282] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1562s [00:52:42.282] } 1562s [00:52:42.282] else { 1562s [00:52:42.282] ...future.result["stdout"] <- base::list(NULL) 1562s [00:52:42.282] } 1562s [00:52:42.282] base::close(...future.stdout) 1562s [00:52:42.282] ...future.stdout <- NULL 1562s [00:52:42.282] } 1562s [00:52:42.282] ...future.result$conditions <- ...future.conditions 1562s [00:52:42.282] ...future.result$finished <- base::Sys.time() 1562s [00:52:42.282] ...future.result 1562s [00:52:42.282] } 1562s [00:52:42.286] assign_globals() ... 1562s [00:52:42.286] List of 5 1562s [00:52:42.286] $ ...future.FUN :function (C, k) 1562s [00:52:42.286] $ MoreArgs : NULL 1562s [00:52:42.286] $ ...future.elements_ii :List of 2 1562s [00:52:42.286] ..$ :List of 1 1562s [00:52:42.286] .. ..$ : chr "E" 1562s [00:52:42.286] ..$ :List of 1 1562s [00:52:42.286] .. ..$ : int 1 1562s [00:52:42.286] $ ...future.seeds_ii : NULL 1562s [00:52:42.286] $ ...future.globals.maxSize: NULL 1562s [00:52:42.286] - attr(*, "where")=List of 5 1562s [00:52:42.286] ..$ ...future.FUN : 1562s [00:52:42.286] ..$ MoreArgs : 1562s [00:52:42.286] ..$ ...future.elements_ii : 1562s [00:52:42.286] ..$ ...future.seeds_ii : 1562s [00:52:42.286] ..$ ...future.globals.maxSize: 1562s [00:52:42.286] - attr(*, "resolved")= logi FALSE 1562s [00:52:42.286] - attr(*, "total_size")= num 3488 1562s [00:52:42.286] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1562s [00:52:42.286] - attr(*, "already-done")= logi TRUE 1562s [00:52:42.295] - reassign environment for ‘...future.FUN’ 1562s [00:52:42.295] - copied ‘...future.FUN’ to environment 1562s [00:52:42.295] - copied ‘MoreArgs’ to environment 1562s [00:52:42.295] - copied ‘...future.elements_ii’ to environment 1562s [00:52:42.295] - copied ‘...future.seeds_ii’ to environment 1562s [00:52:42.295] - copied ‘...future.globals.maxSize’ to environment 1562s [00:52:42.296] assign_globals() ... done 1562s [00:52:42.296] plan(): Setting new future strategy stack: 1562s [00:52:42.296] List of future strategies: 1562s [00:52:42.296] 1. sequential: 1562s [00:52:42.296] - args: function (..., envir = parent.frame()) 1562s [00:52:42.296] - tweaked: FALSE 1562s [00:52:42.296] - call: NULL 1562s [00:52:42.296] plan(): nbrOfWorkers() = 1 1562s [00:52:42.298] plan(): Setting new future strategy stack: 1562s [00:52:42.298] List of future strategies: 1562s [00:52:42.298] 1. multicore: 1562s [00:52:42.298] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1562s [00:52:42.298] - tweaked: FALSE 1562s [00:52:42.298] - call: plan(strategy) 1562s [00:52:42.302] plan(): nbrOfWorkers() = 1 1562s [00:52:42.302] SequentialFuture started (and completed) 1562s [00:52:42.303] - Launch lazy future ... done 1562s [00:52:42.303] run() for ‘SequentialFuture’ ... done 1562s [00:52:42.303] Created future: 1562s [00:52:42.303] SequentialFuture: 1562s [00:52:42.303] Label: ‘future_mapply-5’ 1562s [00:52:42.303] Expression: 1562s [00:52:42.303] { 1562s [00:52:42.303] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1562s [00:52:42.303] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1562s [00:52:42.303] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1562s [00:52:42.303] on.exit(options(oopts), add = TRUE) 1562s [00:52:42.303] } 1562s [00:52:42.303] { 1562s [00:52:42.303] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1562s [00:52:42.303] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1562s [00:52:42.303] do.call(mapply, args = args) 1562s [00:52:42.303] } 1562s [00:52:42.303] } 1562s [00:52:42.303] Lazy evaluation: FALSE 1562s [00:52:42.303] Asynchronous evaluation: FALSE 1562s [00:52:42.303] Local evaluation: TRUE 1562s [00:52:42.303] Environment: R_GlobalEnv 1562s [00:52:42.303] Capture standard output: TRUE 1562s [00:52:42.303] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1562s [00:52:42.303] Globals: 5 objects totaling 3.41 KiB (function ‘...future.FUN’ of 3.24 KiB, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1562s [00:52:42.303] Packages: 1562s [00:52:42.303] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1562s [00:52:42.303] Resolved: TRUE 1562s [00:52:42.303] Value: 112 bytes of class ‘list’ 1562s [00:52:42.303] Early signaling: FALSE 1562s [00:52:42.303] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1562s [00:52:42.303] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1562s [00:52:42.305] Chunk #5 of 5 ... DONE 1562s [00:52:42.305] Launching 5 futures (chunks) ... DONE 1562s [00:52:42.305] Resolving 5 futures (chunks) ... 1562s [00:52:42.306] resolve() on list ... 1562s [00:52:42.306] recursive: 0 1562s [00:52:42.306] length: 5 1562s [00:52:42.306] 1562s [00:52:42.306] resolved() for ‘SequentialFuture’ ... 1562s [00:52:42.307] - state: ‘finished’ 1562s [00:52:42.307] - run: TRUE 1562s [00:52:42.307] - result: ‘FutureResult’ 1562s [00:52:42.307] resolved() for ‘SequentialFuture’ ... done 1562s [00:52:42.307] Future #1 1562s [00:52:42.308] signalConditionsASAP(SequentialFuture, pos=1) ... 1562s [00:52:42.308] - nx: 5 1562s [00:52:42.308] - relay: TRUE 1562s [00:52:42.308] - stdout: TRUE 1562s [00:52:42.308] - signal: TRUE 1562s [00:52:42.308] - resignal: FALSE 1562s [00:52:42.308] - force: TRUE 1562s [00:52:42.309] - relayed: [n=5] FALSE, FALSE, FALSE, FALSE, FALSE 1562s [00:52:42.309] - queued futures: [n=5] FALSE, FALSE, FALSE, FALSE, FALSE 1562s [00:52:42.309] - until=1 1562s [00:52:42.309] - relaying element #1 1562s [00:52:42.309] - relayed: [n=5] TRUE, FALSE, FALSE, FALSE, FALSE 1562s [00:52:42.309] - queued futures: [n=5] TRUE, FALSE, FALSE, FALSE, FALSE 1562s [00:52:42.310] signalConditionsASAP(SequentialFuture, pos=1) ... done 1562s [00:52:42.310] length: 4 (resolved future 1) 1562s [00:52:42.310] resolved() for ‘SequentialFuture’ ... 1562s [00:52:42.310] - state: ‘finished’ 1562s [00:52:42.310] - run: TRUE 1562s [00:52:42.310] - result: ‘FutureResult’ 1562s [00:52:42.310] resolved() for ‘SequentialFuture’ ... done 1562s [00:52:42.311] Future #2 1562s [00:52:42.311] signalConditionsASAP(SequentialFuture, pos=2) ... 1562s [00:52:42.311] - nx: 5 1562s [00:52:42.311] - relay: TRUE 1562s [00:52:42.312] - stdout: TRUE 1562s [00:52:42.312] - signal: TRUE 1562s [00:52:42.312] - resignal: FALSE 1562s [00:52:42.312] - force: TRUE 1562s [00:52:42.312] - relayed: [n=5] TRUE, FALSE, FALSE, FALSE, FALSE 1562s [00:52:42.312] - queued futures: [n=5] TRUE, FALSE, FALSE, FALSE, FALSE 1562s [00:52:42.312] - until=2 1562s [00:52:42.312] - relaying element #2 1562s [00:52:42.313] - relayed: [n=5] TRUE, TRUE, FALSE, FALSE, FALSE 1562s [00:52:42.313] - queued futures: [n=5] TRUE, TRUE, FALSE, FALSE, FALSE 1562s [00:52:42.316] signalConditionsASAP(SequentialFuture, pos=2) ... done 1562s [00:52:42.316] length: 3 (resolved future 2) 1562s [00:52:42.316] resolved() for ‘SequentialFuture’ ... 1562s [00:52:42.317] - state: ‘finished’ 1562s [00:52:42.317] - run: TRUE 1562s [00:52:42.317] - result: ‘FutureResult’ 1562s [00:52:42.317] resolved() for ‘SequentialFuture’ ... done 1562s [00:52:42.318] Future #3 1562s [00:52:42.318] signalConditionsASAP(SequentialFuture, pos=3) ... 1562s [00:52:42.318] - nx: 5 1562s [00:52:42.318] - relay: TRUE 1562s [00:52:42.318] - stdout: TRUE 1562s [00:52:42.318] - signal: TRUE 1562s [00:52:42.318] - resignal: FALSE 1562s [00:52:42.319] - force: TRUE 1562s [00:52:42.319] - relayed: [n=5] TRUE, TRUE, FALSE, FALSE, FALSE 1562s [00:52:42.319] - queued futures: [n=5] TRUE, TRUE, FALSE, FALSE, FALSE 1562s [00:52:42.319] - until=3 1562s [00:52:42.319] - relaying element #3 1562s [00:52:42.320] - relayed: [n=5] TRUE, TRUE, TRUE, FALSE, FALSE 1562s [00:52:42.320] - queued futures: [n=5] TRUE, TRUE, TRUE, FALSE, FALSE 1562s [00:52:42.320] signalConditionsASAP(SequentialFuture, pos=3) ... done 1562s [00:52:42.321] length: 2 (resolved future 3) 1562s [00:52:42.321] resolved() for ‘SequentialFuture’ ... 1562s [00:52:42.322] - state: ‘finished’ 1562s [00:52:42.322] - run: TRUE 1562s [00:52:42.322] - result: ‘FutureResult’ 1562s [00:52:42.323] resolved() for ‘SequentialFuture’ ... done 1562s [00:52:42.323] Future #4 1562s [00:52:42.323] signalConditionsASAP(SequentialFuture, pos=4) ... 1562s [00:52:42.323] - nx: 5 1562s [00:52:42.324] - relay: TRUE 1562s [00:52:42.324] - stdout: TRUE 1562s [00:52:42.324] - signal: TRUE 1562s [00:52:42.325] - resignal: FALSE 1562s [00:52:42.325] - force: TRUE 1562s [00:52:42.325] - relayed: [n=5] TRUE, TRUE, TRUE, FALSE, FALSE 1562s [00:52:42.325] - queued futures: [n=5] TRUE, TRUE, TRUE, FALSE, FALSE 1562s [00:52:42.325] - until=4 1562s [00:52:42.326] - relaying element #4 1562s [00:52:42.326] - relayed: [n=5] TRUE, TRUE, TRUE, TRUE, FALSE 1562s [00:52:42.326] - queued futures: [n=5] TRUE, TRUE, TRUE, TRUE, FALSE 1562s [00:52:42.326] signalConditionsASAP(SequentialFuture, pos=4) ... done 1562s [00:52:42.327] length: 1 (resolved future 4) 1562s [00:52:42.327] resolved() for ‘SequentialFuture’ ... 1562s [00:52:42.327] - state: ‘finished’ 1562s [00:52:42.327] - run: TRUE 1562s [00:52:42.327] - result: ‘FutureResult’ 1562s [00:52:42.328] resolved() for ‘SequentialFuture’ ... done 1562s [00:52:42.328] Future #5 1562s [00:52:42.328] signalConditionsASAP(SequentialFuture, pos=5) ... 1562s [00:52:42.328] - nx: 5 1562s [00:52:42.328] - relay: TRUE 1562s [00:52:42.328] - stdout: TRUE 1562s [00:52:42.329] - signal: TRUE 1562s [00:52:42.329] - resignal: FALSE 1562s [00:52:42.329] - force: TRUE 1562s [00:52:42.329] - relayed: [n=5] TRUE, TRUE, TRUE, TRUE, FALSE 1562s [00:52:42.329] - queued futures: [n=5] TRUE, TRUE, TRUE, TRUE, FALSE 1562s [00:52:42.330] - until=5 1562s [00:52:42.330] - relaying element #5 1562s [00:52:42.330] - relayed: [n=5] TRUE, TRUE, TRUE, TRUE, TRUE 1562s [00:52:42.330] - queued futures: [n=5] TRUE, TRUE, TRUE, TRUE, TRUE 1562s [00:52:42.331] signalConditionsASAP(SequentialFuture, pos=5) ... done 1562s [00:52:42.331] length: 0 (resolved future 5) 1562s [00:52:42.331] Relaying remaining futures 1562s [00:52:42.331] signalConditionsASAP(NULL, pos=0) ... 1562s [00:52:42.331] - nx: 5 1562s [00:52:42.332] - relay: TRUE 1562s [00:52:42.332] - stdout: TRUE 1562s [00:52:42.332] - signal: TRUE 1562s [00:52:42.332] - resignal: FALSE 1562s [00:52:42.332] - force: TRUE 1562s [00:52:42.333] - relayed: [n=5] TRUE, TRUE, TRUE, TRUE, TRUE 1562s [00:52:42.333] - queued futures: [n=5] TRUE, TRUE, TRUE, TRUE, TRUE 1562s - flush all 1562s [00:52:42.333] - relayed: [n=5] TRUE, TRUE, TRUE, TRUE, TRUE 1562s [00:52:42.333] - queued futures: [n=5] TRUE, TRUE, TRUE, TRUE, TRUE 1562s [00:52:42.333] signalConditionsASAP(NULL, pos=0) ... done 1562s [00:52:42.334] resolve() on list ... DONE 1562s [00:52:42.334] - Number of value chunks collected: 5 1562s [00:52:42.335] Resolving 5 futures (chunks) ... DONE 1562s [00:52:42.335] Reducing values from 5 chunks ... 1562s [00:52:42.335] - Number of values collected after concatenation: 5 1562s [00:52:42.335] - Number of values expected: 5 1562s [00:52:42.335] Reducing values from 5 chunks ... DONE 1562s [00:52:42.335] future_mapply() ... DONE 1562s [00:52:42.336] future_mapply() ... 1562s [00:52:42.340] Number of chunks: 1 1562s [00:52:42.340] getGlobalsAndPackagesXApply() ... 1562s [00:52:42.341] - future.globals: TRUE 1562s [00:52:42.341] getGlobalsAndPackages() ... 1562s [00:52:42.341] Searching for globals... 1562s [00:52:42.344] - globals found: [3] ‘FUN’, ‘paste’, ‘rep.int’ 1562s [00:52:42.345] Searching for globals ... DONE 1562s [00:52:42.345] Resolving globals: FALSE 1562s [00:52:42.345] The total size of the 1 globals is 3.24 KiB (3320 bytes) 1562s [00:52:42.346] The total size of the 1 globals exported for future expression (‘FUN()’) is 3.24 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (3.24 KiB of class ‘function’) 1562s [00:52:42.346] - globals: [1] ‘FUN’ 1562s [00:52:42.347] 1562s [00:52:42.347] getGlobalsAndPackages() ... DONE 1562s [00:52:42.347] - globals found/used: [n=1] ‘FUN’ 1562s [00:52:42.347] - needed namespaces: [n=0] 1562s [00:52:42.348] Finding globals ... DONE 1562s [00:52:42.348] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1562s [00:52:42.348] List of 2 1562s [00:52:42.348] $ ...future.FUN:function (C, k) 1562s [00:52:42.348] $ MoreArgs : list() 1562s [00:52:42.348] - attr(*, "where")=List of 2 1562s [00:52:42.348] ..$ ...future.FUN: 1562s [00:52:42.348] ..$ MoreArgs : 1562s [00:52:42.348] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1562s [00:52:42.348] - attr(*, "resolved")= logi FALSE 1562s [00:52:42.348] - attr(*, "total_size")= num NA 1562s [00:52:42.353] Packages to be attached in all futures: [n=0] 1562s [00:52:42.353] getGlobalsAndPackagesXApply() ... DONE 1562s [00:52:42.353] Number of futures (= number of chunks): 1 1562s [00:52:42.353] Launching 1 futures (chunks) ... 1562s [00:52:42.354] Chunk #1 of 1 ... 1562s [00:52:42.354] - Finding globals in '...' for chunk #1 ... 1562s [00:52:42.354] getGlobalsAndPackages() ... 1562s [00:52:42.354] Searching for globals... 1562s [00:52:42.355] 1562s [00:52:42.355] Searching for globals ... DONE 1562s [00:52:42.356] - globals: [0] 1562s [00:52:42.356] getGlobalsAndPackages() ... DONE 1562s [00:52:42.356] + additional globals found: [n=0] 1562s [00:52:42.356] + additional namespaces needed: [n=0] 1562s [00:52:42.356] - Finding globals in '...' for chunk #1 ... DONE 1562s [00:52:42.356] - seeds: 1562s [00:52:42.356] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.357] getGlobalsAndPackages() ... 1562s [00:52:42.357] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.357] Resolving globals: FALSE 1562s [00:52:42.361] The total size of the 5 globals is 4.06 KiB (4160 bytes) 1562s [00:52:42.362] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 4.06 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (3.24 KiB of class ‘function’), ‘...future.elements_ii’ (840 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘list’) 1562s [00:52:42.362] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.363] 1562s [00:52:42.363] getGlobalsAndPackages() ... DONE 1562s [00:52:42.363] run() for ‘Future’ ... 1562s [00:52:42.364] - state: ‘created’ 1562s [00:52:42.364] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1562s [00:52:42.369] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1562s [00:52:42.369] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1562s [00:52:42.370] - Field: ‘label’ 1562s [00:52:42.370] - Field: ‘local’ 1562s [00:52:42.370] - Field: ‘owner’ 1562s [00:52:42.370] - Field: ‘envir’ 1562s [00:52:42.370] - Field: ‘packages’ 1562s [00:52:42.370] - Field: ‘gc’ 1562s [00:52:42.371] - Field: ‘conditions’ 1562s [00:52:42.371] - Field: ‘expr’ 1562s [00:52:42.371] - Field: ‘uuid’ 1562s [00:52:42.372] - Field: ‘seed’ 1562s [00:52:42.372] - Field: ‘version’ 1562s [00:52:42.372] - Field: ‘result’ 1562s [00:52:42.373] - Field: ‘asynchronous’ 1562s [00:52:42.373] - Field: ‘calls’ 1562s [00:52:42.373] - Field: ‘globals’ 1562s [00:52:42.373] - Field: ‘stdout’ 1562s [00:52:42.373] - Field: ‘earlySignal’ 1562s [00:52:42.374] - Field: ‘lazy’ 1562s [00:52:42.374] - Field: ‘state’ 1562s [00:52:42.374] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1562s [00:52:42.374] - Launch lazy future ... 1562s [00:52:42.374] Packages needed by the future expression (n = 0): 1562s [00:52:42.375] Packages needed by future strategies (n = 0): 1562s [00:52:42.375] { 1562s [00:52:42.375] { 1562s [00:52:42.375] { 1562s [00:52:42.375] ...future.startTime <- base::Sys.time() 1562s [00:52:42.375] { 1562s [00:52:42.375] { 1562s [00:52:42.375] { 1562s [00:52:42.375] base::local({ 1562s [00:52:42.375] has_future <- base::requireNamespace("future", 1562s [00:52:42.375] quietly = TRUE) 1562s [00:52:42.375] if (has_future) { 1562s [00:52:42.375] ns <- base::getNamespace("future") 1562s [00:52:42.375] version <- ns[[".package"]][["version"]] 1562s [00:52:42.375] if (is.null(version)) 1562s [00:52:42.375] version <- utils::packageVersion("future") 1562s [00:52:42.375] } 1562s [00:52:42.375] else { 1562s [00:52:42.375] version <- NULL 1562s [00:52:42.375] } 1562s [00:52:42.375] if (!has_future || version < "1.8.0") { 1562s [00:52:42.375] info <- base::c(r_version = base::gsub("R version ", 1562s [00:52:42.375] "", base::R.version$version.string), 1562s [00:52:42.375] platform = base::sprintf("%s (%s-bit)", 1562s [00:52:42.375] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1562s [00:52:42.375] os = base::paste(base::Sys.info()[base::c("sysname", 1562s [00:52:42.375] "release", "version")], collapse = " "), 1562s [00:52:42.375] hostname = base::Sys.info()[["nodename"]]) 1562s [00:52:42.375] info <- base::sprintf("%s: %s", base::names(info), 1562s [00:52:42.375] info) 1562s [00:52:42.375] info <- base::paste(info, collapse = "; ") 1562s [00:52:42.375] if (!has_future) { 1562s [00:52:42.375] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1562s [00:52:42.375] info) 1562s [00:52:42.375] } 1562s [00:52:42.375] else { 1562s [00:52:42.375] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1562s [00:52:42.375] info, version) 1562s [00:52:42.375] } 1562s [00:52:42.375] base::stop(msg) 1562s [00:52:42.375] } 1562s [00:52:42.375] }) 1562s [00:52:42.375] } 1562s [00:52:42.375] options(future.plan = NULL) 1562s [00:52:42.375] Sys.unsetenv("R_FUTURE_PLAN") 1562s [00:52:42.375] future::plan("default", .cleanup = FALSE, .init = FALSE) 1562s [00:52:42.375] } 1562s [00:52:42.375] ...future.workdir <- getwd() 1562s [00:52:42.375] } 1562s [00:52:42.375] ...future.oldOptions <- base::as.list(base::.Options) 1562s [00:52:42.375] ...future.oldEnvVars <- base::Sys.getenv() 1562s [00:52:42.375] } 1562s [00:52:42.375] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1562s [00:52:42.375] future.globals.maxSize = NULL, future.globals.method = NULL, 1562s [00:52:42.375] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1562s [00:52:42.375] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1562s [00:52:42.375] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1562s [00:52:42.375] future.stdout.windows.reencode = NULL, width = 80L) 1562s [00:52:42.375] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1562s [00:52:42.375] base::names(...future.oldOptions)) 1562s [00:52:42.375] } 1562s [00:52:42.375] if (FALSE) { 1562s [00:52:42.375] } 1562s [00:52:42.375] else { 1562s [00:52:42.375] if (TRUE) { 1562s [00:52:42.375] ...future.stdout <- base::rawConnection(base::raw(0L), 1562s [00:52:42.375] open = "w") 1562s [00:52:42.375] } 1562s [00:52:42.375] else { 1562s [00:52:42.375] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1562s [00:52:42.375] windows = "NUL", "/dev/null"), open = "w") 1562s [00:52:42.375] } 1562s [00:52:42.375] base::sink(...future.stdout, type = "output", split = FALSE) 1562s [00:52:42.375] base::on.exit(if (!base::is.null(...future.stdout)) { 1562s [00:52:42.375] base::sink(type = "output", split = FALSE) 1562s [00:52:42.375] base::close(...future.stdout) 1562s [00:52:42.375] }, add = TRUE) 1562s [00:52:42.375] } 1562s [00:52:42.375] ...future.frame <- base::sys.nframe() 1562s [00:52:42.375] ...future.conditions <- base::list() 1562s [00:52:42.375] ...future.rng <- base::globalenv()$.Random.seed 1562s [00:52:42.375] if (FALSE) { 1562s [00:52:42.375] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1562s [00:52:42.375] "...future.value", "...future.globalenv.names", ".Random.seed") 1562s [00:52:42.375] } 1562s [00:52:42.375] ...future.result <- base::tryCatch({ 1562s [00:52:42.375] base::withCallingHandlers({ 1562s [00:52:42.375] ...future.value <- base::withVisible(base::local({ 1562s [00:52:42.375] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1562s [00:52:42.375] if (!identical(...future.globals.maxSize.org, 1562s [00:52:42.375] ...future.globals.maxSize)) { 1562s [00:52:42.375] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1562s [00:52:42.375] on.exit(options(oopts), add = TRUE) 1562s [00:52:42.375] } 1562s [00:52:42.375] { 1562s [00:52:42.375] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1562s [00:52:42.375] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1562s [00:52:42.375] USE.NAMES = FALSE) 1562s [00:52:42.375] do.call(mapply, args = args) 1562s [00:52:42.375] } 1562s [00:52:42.375] })) 1562s [00:52:42.375] future::FutureResult(value = ...future.value$value, 1562s [00:52:42.375] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1562s [00:52:42.375] ...future.rng), globalenv = if (FALSE) 1562s [00:52:42.375] list(added = base::setdiff(base::names(base::.GlobalEnv), 1562s [00:52:42.375] ...future.globalenv.names)) 1562s [00:52:42.375] else NULL, started = ...future.startTime, version = "1.8") 1562s [00:52:42.375] }, condition = base::local({ 1562s [00:52:42.375] c <- base::c 1562s [00:52:42.375] inherits <- base::inherits 1562s [00:52:42.375] invokeRestart <- base::invokeRestart 1562s [00:52:42.375] length <- base::length 1562s [00:52:42.375] list <- base::list 1562s [00:52:42.375] seq.int <- base::seq.int 1562s [00:52:42.375] signalCondition <- base::signalCondition 1562s [00:52:42.375] sys.calls <- base::sys.calls 1562s [00:52:42.375] `[[` <- base::`[[` 1562s [00:52:42.375] `+` <- base::`+` 1562s [00:52:42.375] `<<-` <- base::`<<-` 1562s [00:52:42.375] sysCalls <- function(calls = sys.calls(), from = 1L) { 1562s [00:52:42.375] calls[seq.int(from = from + 12L, to = length(calls) - 1562s [00:52:42.375] 3L)] 1562s [00:52:42.375] } 1562s [00:52:42.375] function(cond) { 1562s [00:52:42.375] is_error <- inherits(cond, "error") 1562s [00:52:42.375] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1562s [00:52:42.375] NULL) 1562s [00:52:42.375] if (is_error) { 1562s [00:52:42.375] sessionInformation <- function() { 1562s [00:52:42.375] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1562s [00:52:42.375] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1562s [00:52:42.375] search = base::search(), system = base::Sys.info()) 1562s [00:52:42.375] } 1562s [00:52:42.375] ...future.conditions[[length(...future.conditions) + 1562s [00:52:42.375] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1562s [00:52:42.375] cond$call), session = sessionInformation(), 1562s [00:52:42.375] timestamp = base::Sys.time(), signaled = 0L) 1562s [00:52:42.375] signalCondition(cond) 1562s [00:52:42.375] } 1562s [00:52:42.375] else if (!ignore && TRUE && inherits(cond, c("condition", 1562s [00:52:42.375] "immediateCondition"))) { 1562s [00:52:42.375] signal <- TRUE && inherits(cond, "immediateCondition") 1562s [00:52:42.375] ...future.conditions[[length(...future.conditions) + 1562s [00:52:42.375] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1562s [00:52:42.375] if (TRUE && !signal) { 1562s [00:52:42.375] muffleCondition <- function (cond, pattern = "^muffle") 1562s [00:52:42.375] { 1562s [00:52:42.375] inherits <- base::inherits 1562s [00:52:42.375] invokeRestart <- base::invokeRestart 1562s [00:52:42.375] is.null <- base::is.null 1562s [00:52:42.375] muffled <- FALSE 1562s [00:52:42.375] if (inherits(cond, "message")) { 1562s [00:52:42.375] muffled <- grepl(pattern, "muffleMessage") 1562s [00:52:42.375] if (muffled) 1562s [00:52:42.375] invokeRestart("muffleMessage") 1562s [00:52:42.375] } 1562s [00:52:42.375] else if (inherits(cond, "warning")) { 1562s [00:52:42.375] muffled <- grepl(pattern, "muffleWarning") 1562s [00:52:42.375] if (muffled) 1562s [00:52:42.375] invokeRestart("muffleWarning") 1562s [00:52:42.375] } 1562s [00:52:42.375] else if (inherits(cond, "condition")) { 1562s [00:52:42.375] if (!is.null(pattern)) { 1562s [00:52:42.375] computeRestarts <- base::computeRestarts 1562s [00:52:42.375] grepl <- base::grepl 1562s [00:52:42.375] restarts <- computeRestarts(cond) 1562s [00:52:42.375] for (restart in restarts) { 1562s [00:52:42.375] name <- restart$name 1562s [00:52:42.375] if (is.null(name)) 1562s [00:52:42.375] next 1562s [00:52:42.375] if (!grepl(pattern, name)) 1562s [00:52:42.375] next 1562s [00:52:42.375] invokeRestart(restart) 1562s [00:52:42.375] muffled <- TRUE 1562s [00:52:42.375] break 1562s [00:52:42.375] } 1562s [00:52:42.375] } 1562s [00:52:42.375] } 1562s [00:52:42.375] invisible(muffled) 1562s [00:52:42.375] } 1562s [00:52:42.375] muffleCondition(cond, pattern = "^muffle") 1562s [00:52:42.375] } 1562s [00:52:42.375] } 1562s [00:52:42.375] else { 1562s [00:52:42.375] if (TRUE) { 1562s [00:52:42.375] muffleCondition <- function (cond, pattern = "^muffle") 1562s [00:52:42.375] { 1562s [00:52:42.375] inherits <- base::inherits 1562s [00:52:42.375] invokeRestart <- base::invokeRestart 1562s [00:52:42.375] is.null <- base::is.null 1562s [00:52:42.375] muffled <- FALSE 1562s [00:52:42.375] if (inherits(cond, "message")) { 1562s [00:52:42.375] muffled <- grepl(pattern, "muffleMessage") 1562s [00:52:42.375] if (muffled) 1562s [00:52:42.375] invokeRestart("muffleMessage") 1562s [00:52:42.375] } 1562s [00:52:42.375] else if (inherits(cond, "warning")) { 1562s [00:52:42.375] muffled <- grepl(pattern, "muffleWarning") 1562s [00:52:42.375] if (muffled) 1562s [00:52:42.375] invokeRestart("muffleWarning") 1562s [00:52:42.375] } 1562s [00:52:42.375] else if (inherits(cond, "condition")) { 1562s [00:52:42.375] if (!is.null(pattern)) { 1562s [00:52:42.375] computeRestarts <- base::computeRestarts 1562s [00:52:42.375] grepl <- base::grepl 1562s [00:52:42.375] restarts <- computeRestarts(cond) 1562s [00:52:42.375] for (restart in restarts) { 1562s [00:52:42.375] name <- restart$name 1562s [00:52:42.375] if (is.null(name)) 1562s [00:52:42.375] next 1562s [00:52:42.375] if (!grepl(pattern, name)) 1562s [00:52:42.375] next 1562s [00:52:42.375] invokeRestart(restart) 1562s [00:52:42.375] muffled <- TRUE 1562s [00:52:42.375] break 1562s [00:52:42.375] } 1562s [00:52:42.375] } 1562s [00:52:42.375] } 1562s [00:52:42.375] invisible(muffled) 1562s [00:52:42.375] } 1562s [00:52:42.375] muffleCondition(cond, pattern = "^muffle") 1562s [00:52:42.375] } 1562s [00:52:42.375] } 1562s [00:52:42.375] } 1562s [00:52:42.375] })) 1562s [00:52:42.375] }, error = function(ex) { 1562s [00:52:42.375] base::structure(base::list(value = NULL, visible = NULL, 1562s [00:52:42.375] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1562s [00:52:42.375] ...future.rng), started = ...future.startTime, 1562s [00:52:42.375] finished = Sys.time(), session_uuid = NA_character_, 1562s [00:52:42.375] version = "1.8"), class = "FutureResult") 1562s [00:52:42.375] }, finally = { 1562s [00:52:42.375] if (!identical(...future.workdir, getwd())) 1562s [00:52:42.375] setwd(...future.workdir) 1562s [00:52:42.375] { 1562s [00:52:42.375] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1562s [00:52:42.375] ...future.oldOptions$nwarnings <- NULL 1562s [00:52:42.375] } 1562s [00:52:42.375] base::options(...future.oldOptions) 1562s [00:52:42.375] if (.Platform$OS.type == "windows") { 1562s [00:52:42.375] old_names <- names(...future.oldEnvVars) 1562s [00:52:42.375] envs <- base::Sys.getenv() 1562s [00:52:42.375] names <- names(envs) 1562s [00:52:42.375] common <- intersect(names, old_names) 1562s [00:52:42.375] added <- setdiff(names, old_names) 1562s [00:52:42.375] removed <- setdiff(old_names, names) 1562s [00:52:42.375] changed <- common[...future.oldEnvVars[common] != 1562s [00:52:42.375] envs[common]] 1562s [00:52:42.375] NAMES <- toupper(changed) 1562s [00:52:42.375] args <- list() 1562s [00:52:42.375] for (kk in seq_along(NAMES)) { 1562s [00:52:42.375] name <- changed[[kk]] 1562s [00:52:42.375] NAME <- NAMES[[kk]] 1562s [00:52:42.375] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.375] next 1562s [00:52:42.375] args[[name]] <- ...future.oldEnvVars[[name]] 1562s [00:52:42.375] } 1562s [00:52:42.375] NAMES <- toupper(added) 1562s [00:52:42.375] for (kk in seq_along(NAMES)) { 1562s [00:52:42.375] name <- added[[kk]] 1562s [00:52:42.375] NAME <- NAMES[[kk]] 1562s [00:52:42.375] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.375] next 1562s [00:52:42.375] args[[name]] <- "" 1562s [00:52:42.375] } 1562s [00:52:42.375] NAMES <- toupper(removed) 1562s [00:52:42.375] for (kk in seq_along(NAMES)) { 1562s [00:52:42.375] name <- removed[[kk]] 1562s [00:52:42.375] NAME <- NAMES[[kk]] 1562s [00:52:42.375] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.375] next 1562s [00:52:42.375] args[[name]] <- ...future.oldEnvVars[[name]] 1562s [00:52:42.375] } 1562s [00:52:42.375] if (length(args) > 0) 1562s [00:52:42.375] base::do.call(base::Sys.setenv, args = args) 1562s [00:52:42.375] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1562s [00:52:42.375] } 1562s [00:52:42.375] else { 1562s [00:52:42.375] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1562s [00:52:42.375] } 1562s [00:52:42.375] { 1562s [00:52:42.375] if (base::length(...future.futureOptionsAdded) > 1562s [00:52:42.375] 0L) { 1562s [00:52:42.375] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1562s [00:52:42.375] base::names(opts) <- ...future.futureOptionsAdded 1562s [00:52:42.375] base::options(opts) 1562s [00:52:42.375] } 1562s [00:52:42.375] { 1562s [00:52:42.375] { 1562s [00:52:42.375] base::assign(".Random.seed", c(10407L, 2079749599L, 1562s [00:52:42.375] -1712504007L, 90762767L, 511132818L, -526970845L, 1562s [00:52:42.375] -1057805512L), envir = base::globalenv(), 1562s [00:52:42.375] inherits = FALSE) 1562s [00:52:42.375] NULL 1562s [00:52:42.375] } 1562s [00:52:42.375] options(future.plan = NULL) 1562s [00:52:42.375] if (is.na(NA_character_)) 1562s [00:52:42.375] Sys.unsetenv("R_FUTURE_PLAN") 1562s [00:52:42.375] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1562s [00:52:42.375] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1562s [00:52:42.375] envir = parent.frame()) 1562s [00:52:42.375] { 1562s [00:52:42.375] default_workers <- missing(workers) 1562s [00:52:42.375] if (is.function(workers)) 1562s [00:52:42.375] workers <- workers() 1562s [00:52:42.375] workers <- structure(as.integer(workers), 1562s [00:52:42.375] class = class(workers)) 1562s [00:52:42.375] stop_if_not(is.finite(workers), workers >= 1562s [00:52:42.375] 1L) 1562s [00:52:42.375] if ((workers == 1L && !inherits(workers, 1562s [00:52:42.375] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1562s [00:52:42.375] if (default_workers) 1562s [00:52:42.375] supportsMulticore(warn = TRUE) 1562s [00:52:42.375] return(sequential(..., envir = envir)) 1562s [00:52:42.375] } 1562s [00:52:42.375] oopts <- options(mc.cores = workers) 1562s [00:52:42.375] on.exit(options(oopts)) 1562s [00:52:42.375] future <- MulticoreFuture(..., workers = workers, 1562s [00:52:42.375] envir = envir) 1562s [00:52:42.375] if (!future$lazy) 1562s [00:52:42.375] future <- run(future) 1562s [00:52:42.375] invisible(future) 1562s [00:52:42.375] }), .cleanup = FALSE, .init = FALSE) 1562s [00:52:42.375] } 1562s [00:52:42.375] } 1562s [00:52:42.375] } 1562s [00:52:42.375] }) 1562s [00:52:42.375] if (TRUE) { 1562s [00:52:42.375] base::sink(type = "output", split = FALSE) 1562s [00:52:42.375] if (TRUE) { 1562s [00:52:42.375] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1562s [00:52:42.375] } 1562s [00:52:42.375] else { 1562s [00:52:42.375] ...future.result["stdout"] <- base::list(NULL) 1562s [00:52:42.375] } 1562s [00:52:42.375] base::close(...future.stdout) 1562s [00:52:42.375] ...future.stdout <- NULL 1562s [00:52:42.375] } 1562s [00:52:42.375] ...future.result$conditions <- ...future.conditions 1562s [00:52:42.375] ...future.result$finished <- base::Sys.time() 1562s [00:52:42.375] ...future.result 1562s [00:52:42.375] } 1562s [00:52:42.379] assign_globals() ... 1562s [00:52:42.379] List of 5 1562s [00:52:42.379] $ ...future.FUN :function (C, k) 1562s [00:52:42.379] $ MoreArgs : list() 1562s [00:52:42.379] $ ...future.elements_ii :List of 2 1562s [00:52:42.379] ..$ :List of 5 1562s [00:52:42.379] .. ..$ : chr "A" 1562s [00:52:42.379] .. ..$ : chr "B" 1562s [00:52:42.379] .. ..$ : chr "C" 1562s [00:52:42.379] .. ..$ : chr "D" 1562s [00:52:42.379] .. ..$ : chr "E" 1562s [00:52:42.379] ..$ :List of 5 1562s [00:52:42.379] .. ..$ : int 5 1562s [00:52:42.379] .. ..$ : int 4 1562s [00:52:42.379] .. ..$ : int 3 1562s [00:52:42.379] .. ..$ : int 2 1562s [00:52:42.379] .. ..$ : int 1 1562s [00:52:42.379] $ ...future.seeds_ii : NULL 1562s [00:52:42.379] $ ...future.globals.maxSize: NULL 1562s [00:52:42.379] - attr(*, "where")=List of 5 1562s [00:52:42.379] ..$ ...future.FUN : 1562s [00:52:42.379] ..$ MoreArgs : 1562s [00:52:42.379] ..$ ...future.elements_ii : 1562s [00:52:42.379] ..$ ...future.seeds_ii : 1562s [00:52:42.379] ..$ ...future.globals.maxSize: 1562s [00:52:42.379] - attr(*, "resolved")= logi FALSE 1562s [00:52:42.379] - attr(*, "total_size")= num 4160 1562s [00:52:42.379] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1562s [00:52:42.379] - attr(*, "already-done")= logi TRUE 1562s [00:52:42.389] - reassign environment for ‘...future.FUN’ 1562s [00:52:42.390] - copied ‘...future.FUN’ to environment 1562s [00:52:42.390] - copied ‘MoreArgs’ to environment 1562s [00:52:42.390] - copied ‘...future.elements_ii’ to environment 1562s [00:52:42.390] - copied ‘...future.seeds_ii’ to environment 1562s [00:52:42.390] - copied ‘...future.globals.maxSize’ to environment 1562s [00:52:42.391] assign_globals() ... done 1562s [00:52:42.391] plan(): Setting new future strategy stack: 1562s [00:52:42.391] List of future strategies: 1562s [00:52:42.391] 1. sequential: 1562s [00:52:42.391] - args: function (..., envir = parent.frame()) 1562s [00:52:42.391] - tweaked: FALSE 1562s [00:52:42.391] - call: NULL 1562s [00:52:42.392] plan(): nbrOfWorkers() = 1 1562s [00:52:42.392] plan(): Setting new future strategy stack: 1562s [00:52:42.392] List of future strategies: 1562s [00:52:42.392] 1. multicore: 1562s [00:52:42.392] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1562s [00:52:42.392] - tweaked: FALSE 1562s [00:52:42.392] - call: plan(strategy) 1562s [00:52:42.396] plan(): nbrOfWorkers() = 1 1562s [00:52:42.397] SequentialFuture started (and completed) 1562s [00:52:42.397] - Launch lazy future ... done 1562s [00:52:42.397] run() for ‘SequentialFuture’ ... done 1562s [00:52:42.398] Created future: 1562s [00:52:42.398] SequentialFuture: 1562s [00:52:42.398] Label: ‘future_.mapply-1’ 1562s [00:52:42.398] Expression: 1562s [00:52:42.398] { 1562s [00:52:42.398] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1562s [00:52:42.398] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1562s [00:52:42.398] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1562s [00:52:42.398] on.exit(options(oopts), add = TRUE) 1562s [00:52:42.398] } 1562s [00:52:42.398] { 1562s [00:52:42.398] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1562s [00:52:42.398] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1562s [00:52:42.398] do.call(mapply, args = args) 1562s [00:52:42.398] } 1562s [00:52:42.398] } 1562s [00:52:42.398] Lazy evaluation: FALSE 1562s [00:52:42.398] Asynchronous evaluation: FALSE 1562s [00:52:42.398] Local evaluation: TRUE 1562s [00:52:42.398] Environment: R_GlobalEnv 1562s [00:52:42.398] Capture standard output: TRUE 1562s [00:52:42.398] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1562s [00:52:42.398] Globals: 5 objects totaling 4.06 KiB (function ‘...future.FUN’ of 3.24 KiB, list ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 840 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1562s [00:52:42.398] Packages: 1562s [00:52:42.398] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1562s [00:52:42.398] Resolved: TRUE 1562s [00:52:42.398] Value: 560 bytes of class ‘list’ 1562s [00:52:42.398] Early signaling: FALSE 1562s [00:52:42.398] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1562s [00:52:42.398] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1562s [00:52:42.400] Chunk #1 of 1 ... DONE 1562s [00:52:42.400] Launching 1 futures (chunks) ... DONE 1562s [00:52:42.400] Resolving 1 futures (chunks) ... 1562s [00:52:42.400] resolve() on list ... 1562s [00:52:42.400] recursive: 0 1562s [00:52:42.401] length: 1 1562s [00:52:42.401] 1562s [00:52:42.405] resolved() for ‘SequentialFuture’ ... 1562s [00:52:42.405] - state: ‘finished’ 1562s [00:52:42.405] - run: TRUE 1562s [00:52:42.406] - result: ‘FutureResult’ 1562s [00:52:42.406] resolved() for ‘SequentialFuture’ ... done 1562s [00:52:42.406] Future #1 1562s [00:52:42.406] signalConditionsASAP(SequentialFuture, pos=1) ... 1562s [00:52:42.407] - nx: 1 1562s [00:52:42.407] - relay: TRUE 1562s [00:52:42.407] - stdout: TRUE 1562s [00:52:42.407] - signal: TRUE 1562s [00:52:42.407] - resignal: FALSE 1562s [00:52:42.407] - force: TRUE 1562s [00:52:42.407] - relayed: [n=1] FALSE 1562s [00:52:42.408] - queued futures: [n=1] FALSE 1562s [00:52:42.408] - until=1 1562s [00:52:42.408] - relaying element #1 1562s [00:52:42.408] - relayed: [n=1] TRUE 1562s [00:52:42.408] - queued futures: [n=1] TRUE 1562s [00:52:42.408] signalConditionsASAP(SequentialFuture, pos=1) ... done 1562s [00:52:42.409] length: 0 (resolved future 1) 1562s [00:52:42.409] Relaying remaining futures 1562s [00:52:42.409] signalConditionsASAP(NULL, pos=0) ... 1562s [00:52:42.409] - nx: 1 1562s [00:52:42.409] - relay: TRUE 1562s [00:52:42.409] - stdout: TRUE 1562s [00:52:42.409] - signal: TRUE 1562s [00:52:42.409] - resignal: FALSE 1562s [00:52:42.409] - force: TRUE 1562s [00:52:42.410] - relayed: [n=1] TRUE 1562s [00:52:42.410] - queued futures: [n=1] TRUE 1562s - flush all 1562s [00:52:42.410] - relayed: [n=1] TRUE 1562s [00:52:42.410] - queued futures: [n=1] TRUE 1562s [00:52:42.410] signalConditionsASAP(NULL, pos=0) ... done 1562s [00:52:42.410] resolve() on list ... DONE 1562s [00:52:42.411] - Number of value chunks collected: 1 1562s [00:52:42.411] Resolving 1 futures (chunks) ... DONE 1562s [00:52:42.411] Reducing values from 1 chunks ... 1562s [00:52:42.411] - Number of values collected after concatenation: 5 1562s [00:52:42.411] - Number of values expected: 5 1562s [00:52:42.411] Reducing values from 1 chunks ... DONE 1562s [00:52:42.412] future_mapply() ... DONE 1562s [00:52:42.412] future_mapply() ... 1562s [00:52:42.416] Number of chunks: 3 1562s [00:52:42.417] Index remapping (attribute 'ordering'): [n = 5] 3, 4, 5, 2, 1 1562s [00:52:42.417] getGlobalsAndPackagesXApply() ... 1562s [00:52:42.417] - future.globals: TRUE 1562s [00:52:42.417] getGlobalsAndPackages() ... 1562s [00:52:42.418] Searching for globals... 1562s [00:52:42.419] - globals found: [3] ‘FUN’, ‘paste’, ‘rep.int’ 1562s [00:52:42.419] Searching for globals ... DONE 1562s [00:52:42.419] Resolving globals: FALSE 1562s [00:52:42.420] The total size of the 1 globals is 3.24 KiB (3320 bytes) 1562s [00:52:42.420] The total size of the 1 globals exported for future expression (‘FUN()’) is 3.24 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (3.24 KiB of class ‘function’) 1562s [00:52:42.421] - globals: [1] ‘FUN’ 1562s [00:52:42.421] 1562s [00:52:42.421] getGlobalsAndPackages() ... DONE 1562s [00:52:42.421] - globals found/used: [n=1] ‘FUN’ 1562s [00:52:42.422] - needed namespaces: [n=0] 1562s [00:52:42.422] Finding globals ... DONE 1562s [00:52:42.422] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1562s [00:52:42.422] List of 2 1562s [00:52:42.422] $ ...future.FUN:function (C, k) 1562s [00:52:42.422] $ MoreArgs : NULL 1562s [00:52:42.422] - attr(*, "where")=List of 2 1562s [00:52:42.422] ..$ ...future.FUN: 1562s [00:52:42.422] ..$ MoreArgs : 1562s [00:52:42.422] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1562s [00:52:42.422] - attr(*, "resolved")= logi FALSE 1562s [00:52:42.422] - attr(*, "total_size")= num NA 1562s [00:52:42.426] Packages to be attached in all futures: [n=0] 1562s [00:52:42.426] getGlobalsAndPackagesXApply() ... DONE 1562s [00:52:42.426] Number of futures (= number of chunks): 3 1562s [00:52:42.426] Launching 3 futures (chunks) ... 1562s [00:52:42.427] Chunk #1 of 3 ... 1562s [00:52:42.427] - Finding globals in '...' for chunk #1 ... 1562s [00:52:42.427] getGlobalsAndPackages() ... 1562s [00:52:42.427] Searching for globals... 1562s [00:52:42.428] 1562s [00:52:42.428] Searching for globals ... DONE 1562s [00:52:42.428] - globals: [0] 1562s [00:52:42.428] getGlobalsAndPackages() ... DONE 1562s [00:52:42.428] + additional globals found: [n=0] 1562s [00:52:42.429] + additional namespaces needed: [n=0] 1562s [00:52:42.429] - Finding globals in '...' for chunk #1 ... DONE 1562s [00:52:42.429] - Adjusted option 'future.globals.maxSize': 524288000 -> 3 * 524288000 = 1572864000 (bytes) 1562s [00:52:42.429] - seeds: 1562s [00:52:42.429] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.429] getGlobalsAndPackages() ... 1562s [00:52:42.430] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.430] Resolving globals: FALSE 1562s [00:52:42.431] The total size of the 5 globals is 3.57 KiB (3656 bytes) 1562s [00:52:42.431] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 3.57 KiB.. This exceeds the maximum allowed size of 1.46 GiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (3.24 KiB of class ‘function’), ‘...future.elements_ii’ (336 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1562s [00:52:42.432] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.432] 1562s [00:52:42.432] getGlobalsAndPackages() ... DONE 1562s [00:52:42.432] run() for ‘Future’ ... 1562s [00:52:42.433] - state: ‘created’ 1562s [00:52:42.433] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1562s [00:52:42.436] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1562s [00:52:42.437] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1562s [00:52:42.437] - Field: ‘label’ 1562s [00:52:42.437] - Field: ‘local’ 1562s [00:52:42.437] - Field: ‘owner’ 1562s [00:52:42.437] - Field: ‘envir’ 1562s [00:52:42.437] - Field: ‘packages’ 1562s [00:52:42.437] - Field: ‘gc’ 1562s [00:52:42.438] - Field: ‘conditions’ 1562s [00:52:42.438] - Field: ‘expr’ 1562s [00:52:42.438] - Field: ‘uuid’ 1562s [00:52:42.438] - Field: ‘seed’ 1562s [00:52:42.438] - Field: ‘version’ 1562s [00:52:42.438] - Field: ‘result’ 1562s [00:52:42.438] - Field: ‘asynchronous’ 1562s [00:52:42.439] - Field: ‘calls’ 1562s [00:52:42.439] - Field: ‘globals’ 1562s [00:52:42.439] - Field: ‘stdout’ 1562s [00:52:42.439] - Field: ‘earlySignal’ 1562s [00:52:42.439] - Field: ‘lazy’ 1562s [00:52:42.440] - Field: ‘state’ 1562s [00:52:42.440] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1562s [00:52:42.440] - Launch lazy future ... 1562s [00:52:42.440] Packages needed by the future expression (n = 0): 1562s [00:52:42.440] Packages needed by future strategies (n = 0): 1562s [00:52:42.441] { 1562s [00:52:42.441] { 1562s [00:52:42.441] { 1562s [00:52:42.441] ...future.startTime <- base::Sys.time() 1562s [00:52:42.441] { 1562s [00:52:42.441] { 1562s [00:52:42.441] { 1562s [00:52:42.441] base::local({ 1562s [00:52:42.441] has_future <- base::requireNamespace("future", 1562s [00:52:42.441] quietly = TRUE) 1562s [00:52:42.441] if (has_future) { 1562s [00:52:42.441] ns <- base::getNamespace("future") 1562s [00:52:42.441] version <- ns[[".package"]][["version"]] 1562s [00:52:42.441] if (is.null(version)) 1562s [00:52:42.441] version <- utils::packageVersion("future") 1562s [00:52:42.441] } 1562s [00:52:42.441] else { 1562s [00:52:42.441] version <- NULL 1562s [00:52:42.441] } 1562s [00:52:42.441] if (!has_future || version < "1.8.0") { 1562s [00:52:42.441] info <- base::c(r_version = base::gsub("R version ", 1562s [00:52:42.441] "", base::R.version$version.string), 1562s [00:52:42.441] platform = base::sprintf("%s (%s-bit)", 1562s [00:52:42.441] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1562s [00:52:42.441] os = base::paste(base::Sys.info()[base::c("sysname", 1562s [00:52:42.441] "release", "version")], collapse = " "), 1562s [00:52:42.441] hostname = base::Sys.info()[["nodename"]]) 1562s [00:52:42.441] info <- base::sprintf("%s: %s", base::names(info), 1562s [00:52:42.441] info) 1562s [00:52:42.441] info <- base::paste(info, collapse = "; ") 1562s [00:52:42.441] if (!has_future) { 1562s [00:52:42.441] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1562s [00:52:42.441] info) 1562s [00:52:42.441] } 1562s [00:52:42.441] else { 1562s [00:52:42.441] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1562s [00:52:42.441] info, version) 1562s [00:52:42.441] } 1562s [00:52:42.441] base::stop(msg) 1562s [00:52:42.441] } 1562s [00:52:42.441] }) 1562s [00:52:42.441] } 1562s [00:52:42.441] options(future.plan = NULL) 1562s [00:52:42.441] Sys.unsetenv("R_FUTURE_PLAN") 1562s [00:52:42.441] future::plan("default", .cleanup = FALSE, .init = FALSE) 1562s [00:52:42.441] } 1562s [00:52:42.441] ...future.workdir <- getwd() 1562s [00:52:42.441] } 1562s [00:52:42.441] ...future.oldOptions <- base::as.list(base::.Options) 1562s [00:52:42.441] ...future.oldEnvVars <- base::Sys.getenv() 1562s [00:52:42.441] } 1562s [00:52:42.441] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1562s [00:52:42.441] future.globals.maxSize = 1572864000, future.globals.method = NULL, 1562s [00:52:42.441] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1562s [00:52:42.441] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1562s [00:52:42.441] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1562s [00:52:42.441] future.stdout.windows.reencode = NULL, width = 80L) 1562s [00:52:42.441] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1562s [00:52:42.441] base::names(...future.oldOptions)) 1562s [00:52:42.441] } 1562s [00:52:42.441] if (FALSE) { 1562s [00:52:42.441] } 1562s [00:52:42.441] else { 1562s [00:52:42.441] if (TRUE) { 1562s [00:52:42.441] ...future.stdout <- base::rawConnection(base::raw(0L), 1562s [00:52:42.441] open = "w") 1562s [00:52:42.441] } 1562s [00:52:42.441] else { 1562s [00:52:42.441] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1562s [00:52:42.441] windows = "NUL", "/dev/null"), open = "w") 1562s [00:52:42.441] } 1562s [00:52:42.441] base::sink(...future.stdout, type = "output", split = FALSE) 1562s [00:52:42.441] base::on.exit(if (!base::is.null(...future.stdout)) { 1562s [00:52:42.441] base::sink(type = "output", split = FALSE) 1562s [00:52:42.441] base::close(...future.stdout) 1562s [00:52:42.441] }, add = TRUE) 1562s [00:52:42.441] } 1562s [00:52:42.441] ...future.frame <- base::sys.nframe() 1562s [00:52:42.441] ...future.conditions <- base::list() 1562s [00:52:42.441] ...future.rng <- base::globalenv()$.Random.seed 1562s [00:52:42.441] if (FALSE) { 1562s [00:52:42.441] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1562s [00:52:42.441] "...future.value", "...future.globalenv.names", ".Random.seed") 1562s [00:52:42.441] } 1562s [00:52:42.441] ...future.result <- base::tryCatch({ 1562s [00:52:42.441] base::withCallingHandlers({ 1562s [00:52:42.441] ...future.value <- base::withVisible(base::local({ 1562s [00:52:42.441] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1562s [00:52:42.441] if (!identical(...future.globals.maxSize.org, 1562s [00:52:42.441] ...future.globals.maxSize)) { 1562s [00:52:42.441] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1562s [00:52:42.441] on.exit(options(oopts), add = TRUE) 1562s [00:52:42.441] } 1562s [00:52:42.441] { 1562s [00:52:42.441] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1562s [00:52:42.441] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1562s [00:52:42.441] USE.NAMES = FALSE) 1562s [00:52:42.441] do.call(mapply, args = args) 1562s [00:52:42.441] } 1562s [00:52:42.441] })) 1562s [00:52:42.441] future::FutureResult(value = ...future.value$value, 1562s [00:52:42.441] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1562s [00:52:42.441] ...future.rng), globalenv = if (FALSE) 1562s [00:52:42.441] list(added = base::setdiff(base::names(base::.GlobalEnv), 1562s [00:52:42.441] ...future.globalenv.names)) 1562s [00:52:42.441] else NULL, started = ...future.startTime, version = "1.8") 1562s [00:52:42.441] }, condition = base::local({ 1562s [00:52:42.441] c <- base::c 1562s [00:52:42.441] inherits <- base::inherits 1562s [00:52:42.441] invokeRestart <- base::invokeRestart 1562s [00:52:42.441] length <- base::length 1562s [00:52:42.441] list <- base::list 1562s [00:52:42.441] seq.int <- base::seq.int 1562s [00:52:42.441] signalCondition <- base::signalCondition 1562s [00:52:42.441] sys.calls <- base::sys.calls 1562s [00:52:42.441] `[[` <- base::`[[` 1562s [00:52:42.441] `+` <- base::`+` 1562s [00:52:42.441] `<<-` <- base::`<<-` 1562s [00:52:42.441] sysCalls <- function(calls = sys.calls(), from = 1L) { 1562s [00:52:42.441] calls[seq.int(from = from + 12L, to = length(calls) - 1562s [00:52:42.441] 3L)] 1562s [00:52:42.441] } 1562s [00:52:42.441] function(cond) { 1562s [00:52:42.441] is_error <- inherits(cond, "error") 1562s [00:52:42.441] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1562s [00:52:42.441] NULL) 1562s [00:52:42.441] if (is_error) { 1562s [00:52:42.441] sessionInformation <- function() { 1562s [00:52:42.441] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1562s [00:52:42.441] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1562s [00:52:42.441] search = base::search(), system = base::Sys.info()) 1562s [00:52:42.441] } 1562s [00:52:42.441] ...future.conditions[[length(...future.conditions) + 1562s [00:52:42.441] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1562s [00:52:42.441] cond$call), session = sessionInformation(), 1562s [00:52:42.441] timestamp = base::Sys.time(), signaled = 0L) 1562s [00:52:42.441] signalCondition(cond) 1562s [00:52:42.441] } 1562s [00:52:42.441] else if (!ignore && TRUE && inherits(cond, c("condition", 1562s [00:52:42.441] "immediateCondition"))) { 1562s [00:52:42.441] signal <- TRUE && inherits(cond, "immediateCondition") 1562s [00:52:42.441] ...future.conditions[[length(...future.conditions) + 1562s [00:52:42.441] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1562s [00:52:42.441] if (TRUE && !signal) { 1562s [00:52:42.441] muffleCondition <- function (cond, pattern = "^muffle") 1562s [00:52:42.441] { 1562s [00:52:42.441] inherits <- base::inherits 1562s [00:52:42.441] invokeRestart <- base::invokeRestart 1562s [00:52:42.441] is.null <- base::is.null 1562s [00:52:42.441] muffled <- FALSE 1562s [00:52:42.441] if (inherits(cond, "message")) { 1562s [00:52:42.441] muffled <- grepl(pattern, "muffleMessage") 1562s [00:52:42.441] if (muffled) 1562s [00:52:42.441] invokeRestart("muffleMessage") 1562s [00:52:42.441] } 1562s [00:52:42.441] else if (inherits(cond, "warning")) { 1562s [00:52:42.441] muffled <- grepl(pattern, "muffleWarning") 1562s [00:52:42.441] if (muffled) 1562s [00:52:42.441] invokeRestart("muffleWarning") 1562s [00:52:42.441] } 1562s [00:52:42.441] else if (inherits(cond, "condition")) { 1562s [00:52:42.441] if (!is.null(pattern)) { 1562s [00:52:42.441] computeRestarts <- base::computeRestarts 1562s [00:52:42.441] grepl <- base::grepl 1562s [00:52:42.441] restarts <- computeRestarts(cond) 1562s [00:52:42.441] for (restart in restarts) { 1562s [00:52:42.441] name <- restart$name 1562s [00:52:42.441] if (is.null(name)) 1562s [00:52:42.441] next 1562s [00:52:42.441] if (!grepl(pattern, name)) 1562s [00:52:42.441] next 1562s [00:52:42.441] invokeRestart(restart) 1562s [00:52:42.441] muffled <- TRUE 1562s [00:52:42.441] break 1562s [00:52:42.441] } 1562s [00:52:42.441] } 1562s [00:52:42.441] } 1562s [00:52:42.441] invisible(muffled) 1562s [00:52:42.441] } 1562s [00:52:42.441] muffleCondition(cond, pattern = "^muffle") 1562s [00:52:42.441] } 1562s [00:52:42.441] } 1562s [00:52:42.441] else { 1562s [00:52:42.441] if (TRUE) { 1562s [00:52:42.441] muffleCondition <- function (cond, pattern = "^muffle") 1562s [00:52:42.441] { 1562s [00:52:42.441] inherits <- base::inherits 1562s [00:52:42.441] invokeRestart <- base::invokeRestart 1562s [00:52:42.441] is.null <- base::is.null 1562s [00:52:42.441] muffled <- FALSE 1562s [00:52:42.441] if (inherits(cond, "message")) { 1562s [00:52:42.441] muffled <- grepl(pattern, "muffleMessage") 1562s [00:52:42.441] if (muffled) 1562s [00:52:42.441] invokeRestart("muffleMessage") 1562s [00:52:42.441] } 1562s [00:52:42.441] else if (inherits(cond, "warning")) { 1562s [00:52:42.441] muffled <- grepl(pattern, "muffleWarning") 1562s [00:52:42.441] if (muffled) 1562s [00:52:42.441] invokeRestart("muffleWarning") 1562s [00:52:42.441] } 1562s [00:52:42.441] else if (inherits(cond, "condition")) { 1562s [00:52:42.441] if (!is.null(pattern)) { 1562s [00:52:42.441] computeRestarts <- base::computeRestarts 1562s [00:52:42.441] grepl <- base::grepl 1562s [00:52:42.441] restarts <- computeRestarts(cond) 1562s [00:52:42.441] for (restart in restarts) { 1562s [00:52:42.441] name <- restart$name 1562s [00:52:42.441] if (is.null(name)) 1562s [00:52:42.441] next 1562s [00:52:42.441] if (!grepl(pattern, name)) 1562s [00:52:42.441] next 1562s [00:52:42.441] invokeRestart(restart) 1562s [00:52:42.441] muffled <- TRUE 1562s [00:52:42.441] break 1562s [00:52:42.441] } 1562s [00:52:42.441] } 1562s [00:52:42.441] } 1562s [00:52:42.441] invisible(muffled) 1562s [00:52:42.441] } 1562s [00:52:42.441] muffleCondition(cond, pattern = "^muffle") 1562s [00:52:42.441] } 1562s [00:52:42.441] } 1562s [00:52:42.441] } 1562s [00:52:42.441] })) 1562s [00:52:42.441] }, error = function(ex) { 1562s [00:52:42.441] base::structure(base::list(value = NULL, visible = NULL, 1562s [00:52:42.441] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1562s [00:52:42.441] ...future.rng), started = ...future.startTime, 1562s [00:52:42.441] finished = Sys.time(), session_uuid = NA_character_, 1562s [00:52:42.441] version = "1.8"), class = "FutureResult") 1562s [00:52:42.441] }, finally = { 1562s [00:52:42.441] if (!identical(...future.workdir, getwd())) 1562s [00:52:42.441] setwd(...future.workdir) 1562s [00:52:42.441] { 1562s [00:52:42.441] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1562s [00:52:42.441] ...future.oldOptions$nwarnings <- NULL 1562s [00:52:42.441] } 1562s [00:52:42.441] base::options(...future.oldOptions) 1562s [00:52:42.441] if (.Platform$OS.type == "windows") { 1562s [00:52:42.441] old_names <- names(...future.oldEnvVars) 1562s [00:52:42.441] envs <- base::Sys.getenv() 1562s [00:52:42.441] names <- names(envs) 1562s [00:52:42.441] common <- intersect(names, old_names) 1562s [00:52:42.441] added <- setdiff(names, old_names) 1562s [00:52:42.441] removed <- setdiff(old_names, names) 1562s [00:52:42.441] changed <- common[...future.oldEnvVars[common] != 1562s [00:52:42.441] envs[common]] 1562s [00:52:42.441] NAMES <- toupper(changed) 1562s [00:52:42.441] args <- list() 1562s [00:52:42.441] for (kk in seq_along(NAMES)) { 1562s [00:52:42.441] name <- changed[[kk]] 1562s [00:52:42.441] NAME <- NAMES[[kk]] 1562s [00:52:42.441] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.441] next 1562s [00:52:42.441] args[[name]] <- ...future.oldEnvVars[[name]] 1562s [00:52:42.441] } 1562s [00:52:42.441] NAMES <- toupper(added) 1562s [00:52:42.441] for (kk in seq_along(NAMES)) { 1562s [00:52:42.441] name <- added[[kk]] 1562s [00:52:42.441] NAME <- NAMES[[kk]] 1562s [00:52:42.441] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.441] next 1562s [00:52:42.441] args[[name]] <- "" 1562s [00:52:42.441] } 1562s [00:52:42.441] NAMES <- toupper(removed) 1562s [00:52:42.441] for (kk in seq_along(NAMES)) { 1562s [00:52:42.441] name <- removed[[kk]] 1562s [00:52:42.441] NAME <- NAMES[[kk]] 1562s [00:52:42.441] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.441] next 1562s [00:52:42.441] args[[name]] <- ...future.oldEnvVars[[name]] 1562s [00:52:42.441] } 1562s [00:52:42.441] if (length(args) > 0) 1562s [00:52:42.441] base::do.call(base::Sys.setenv, args = args) 1562s [00:52:42.441] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1562s [00:52:42.441] } 1562s [00:52:42.441] else { 1562s [00:52:42.441] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1562s [00:52:42.441] } 1562s [00:52:42.441] { 1562s [00:52:42.441] if (base::length(...future.futureOptionsAdded) > 1562s [00:52:42.441] 0L) { 1562s [00:52:42.441] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1562s [00:52:42.441] base::names(opts) <- ...future.futureOptionsAdded 1562s [00:52:42.441] base::options(opts) 1562s [00:52:42.441] } 1562s [00:52:42.441] { 1562s [00:52:42.441] { 1562s [00:52:42.441] base::assign(".Random.seed", c(10407L, 2079749599L, 1562s [00:52:42.441] -1712504007L, 90762767L, 511132818L, -526970845L, 1562s [00:52:42.441] -1057805512L), envir = base::globalenv(), 1562s [00:52:42.441] inherits = FALSE) 1562s [00:52:42.441] NULL 1562s [00:52:42.441] } 1562s [00:52:42.441] options(future.plan = NULL) 1562s [00:52:42.441] if (is.na(NA_character_)) 1562s [00:52:42.441] Sys.unsetenv("R_FUTURE_PLAN") 1562s [00:52:42.441] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1562s [00:52:42.441] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1562s [00:52:42.441] envir = parent.frame()) 1562s [00:52:42.441] { 1562s [00:52:42.441] default_workers <- missing(workers) 1562s [00:52:42.441] if (is.function(workers)) 1562s [00:52:42.441] workers <- workers() 1562s [00:52:42.441] workers <- structure(as.integer(workers), 1562s [00:52:42.441] class = class(workers)) 1562s [00:52:42.441] stop_if_not(is.finite(workers), workers >= 1562s [00:52:42.441] 1L) 1562s [00:52:42.441] if ((workers == 1L && !inherits(workers, 1562s [00:52:42.441] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1562s [00:52:42.441] if (default_workers) 1562s [00:52:42.441] supportsMulticore(warn = TRUE) 1562s [00:52:42.441] return(sequential(..., envir = envir)) 1562s [00:52:42.441] } 1562s [00:52:42.441] oopts <- options(mc.cores = workers) 1562s [00:52:42.441] on.exit(options(oopts)) 1562s [00:52:42.441] future <- MulticoreFuture(..., workers = workers, 1562s [00:52:42.441] envir = envir) 1562s [00:52:42.441] if (!future$lazy) 1562s [00:52:42.441] future <- run(future) 1562s [00:52:42.441] invisible(future) 1562s [00:52:42.441] }), .cleanup = FALSE, .init = FALSE) 1562s [00:52:42.441] } 1562s [00:52:42.441] } 1562s [00:52:42.441] } 1562s [00:52:42.441] }) 1562s [00:52:42.441] if (TRUE) { 1562s [00:52:42.441] base::sink(type = "output", split = FALSE) 1562s [00:52:42.441] if (TRUE) { 1562s [00:52:42.441] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1562s [00:52:42.441] } 1562s [00:52:42.441] else { 1562s [00:52:42.441] ...future.result["stdout"] <- base::list(NULL) 1562s [00:52:42.441] } 1562s [00:52:42.441] base::close(...future.stdout) 1562s [00:52:42.441] ...future.stdout <- NULL 1562s [00:52:42.441] } 1562s [00:52:42.441] ...future.result$conditions <- ...future.conditions 1562s [00:52:42.441] ...future.result$finished <- base::Sys.time() 1562s [00:52:42.441] ...future.result 1562s [00:52:42.441] } 1562s [00:52:42.444] assign_globals() ... 1562s [00:52:42.444] List of 5 1562s [00:52:42.444] $ ...future.FUN :function (C, k) 1562s [00:52:42.444] $ MoreArgs : NULL 1562s [00:52:42.444] $ ...future.elements_ii :List of 2 1562s [00:52:42.444] ..$ :List of 2 1562s [00:52:42.444] .. ..$ : chr "C" 1562s [00:52:42.444] .. ..$ : chr "D" 1562s [00:52:42.444] ..$ :List of 2 1562s [00:52:42.444] .. ..$ : int 3 1562s [00:52:42.444] .. ..$ : int 2 1562s [00:52:42.444] $ ...future.seeds_ii : NULL 1562s [00:52:42.444] $ ...future.globals.maxSize: NULL 1562s [00:52:42.444] - attr(*, "where")=List of 5 1562s [00:52:42.444] ..$ ...future.FUN : 1562s [00:52:42.444] ..$ MoreArgs : 1562s [00:52:42.444] ..$ ...future.elements_ii : 1562s [00:52:42.444] ..$ ...future.seeds_ii : 1562s [00:52:42.444] ..$ ...future.globals.maxSize: 1562s [00:52:42.444] - attr(*, "resolved")= logi FALSE 1562s [00:52:42.444] - attr(*, "total_size")= num 3656 1562s [00:52:42.444] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1562s [00:52:42.444] - attr(*, "already-done")= logi TRUE 1562s [00:52:42.456] - reassign environment for ‘...future.FUN’ 1562s [00:52:42.456] - copied ‘...future.FUN’ to environment 1562s [00:52:42.456] - copied ‘MoreArgs’ to environment 1562s [00:52:42.457] - copied ‘...future.elements_ii’ to environment 1562s [00:52:42.457] - copied ‘...future.seeds_ii’ to environment 1562s [00:52:42.457] - copied ‘...future.globals.maxSize’ to environment 1562s [00:52:42.457] assign_globals() ... done 1562s [00:52:42.457] plan(): Setting new future strategy stack: 1562s [00:52:42.457] List of future strategies: 1562s [00:52:42.457] 1. sequential: 1562s [00:52:42.457] - args: function (..., envir = parent.frame()) 1562s [00:52:42.457] - tweaked: FALSE 1562s [00:52:42.457] - call: NULL 1562s [00:52:42.458] plan(): nbrOfWorkers() = 1 1562s [00:52:42.459] plan(): Setting new future strategy stack: 1562s [00:52:42.459] List of future strategies: 1562s [00:52:42.459] 1. multicore: 1562s [00:52:42.459] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1562s [00:52:42.459] - tweaked: FALSE 1562s [00:52:42.459] - call: plan(strategy) 1562s [00:52:42.462] plan(): nbrOfWorkers() = 1 1562s [00:52:42.463] SequentialFuture started (and completed) 1562s [00:52:42.463] - Launch lazy future ... done 1562s [00:52:42.463] run() for ‘SequentialFuture’ ... done 1562s [00:52:42.463] Created future: 1562s [00:52:42.463] SequentialFuture: 1562s [00:52:42.463] Label: ‘future_mapply-1’ 1562s [00:52:42.463] Expression: 1562s [00:52:42.463] { 1562s [00:52:42.463] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1562s [00:52:42.463] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1562s [00:52:42.463] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1562s [00:52:42.463] on.exit(options(oopts), add = TRUE) 1562s [00:52:42.463] } 1562s [00:52:42.463] { 1562s [00:52:42.463] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1562s [00:52:42.463] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1562s [00:52:42.463] do.call(mapply, args = args) 1562s [00:52:42.463] } 1562s [00:52:42.463] } 1562s [00:52:42.463] Lazy evaluation: FALSE 1562s [00:52:42.463] Asynchronous evaluation: FALSE 1562s [00:52:42.463] Local evaluation: TRUE 1562s [00:52:42.463] Environment: R_GlobalEnv 1562s [00:52:42.463] Capture standard output: TRUE 1562s [00:52:42.463] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1562s [00:52:42.463] Globals: 5 objects totaling 3.57 KiB (function ‘...future.FUN’ of 3.24 KiB, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1562s [00:52:42.463] Packages: 1562s [00:52:42.463] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1562s [00:52:42.463] Resolved: TRUE 1562s [00:52:42.463] Value: 224 bytes of class ‘list’ 1562s [00:52:42.463] Early signaling: FALSE 1562s [00:52:42.463] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1562s [00:52:42.463] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1562s [00:52:42.465] Chunk #1 of 3 ... DONE 1562s [00:52:42.465] Chunk #2 of 3 ... 1562s [00:52:42.466] - Finding globals in '...' for chunk #2 ... 1562s [00:52:42.466] getGlobalsAndPackages() ... 1562s [00:52:42.466] Searching for globals... 1562s [00:52:42.466] 1562s [00:52:42.466] Searching for globals ... DONE 1562s [00:52:42.467] - globals: [0] 1562s [00:52:42.467] getGlobalsAndPackages() ... DONE 1562s [00:52:42.467] + additional globals found: [n=0] 1562s [00:52:42.467] + additional namespaces needed: [n=0] 1562s [00:52:42.467] - Finding globals in '...' for chunk #2 ... DONE 1562s [00:52:42.467] - Adjusted option 'future.globals.maxSize': 524288000 -> 3 * 524288000 = 1572864000 (bytes) 1562s [00:52:42.467] - seeds: 1562s [00:52:42.468] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.468] getGlobalsAndPackages() ... 1562s [00:52:42.468] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.468] Resolving globals: FALSE 1562s [00:52:42.469] The total size of the 5 globals is 3.41 KiB (3488 bytes) 1562s [00:52:42.469] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 3.41 KiB.. This exceeds the maximum allowed size of 1.46 GiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (3.24 KiB of class ‘function’), ‘...future.elements_ii’ (168 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1562s [00:52:42.470] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.470] 1562s [00:52:42.470] getGlobalsAndPackages() ... DONE 1562s [00:52:42.470] run() for ‘Future’ ... 1562s [00:52:42.471] - state: ‘created’ 1562s [00:52:42.471] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1562s [00:52:42.475] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1562s [00:52:42.476] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1562s [00:52:42.476] - Field: ‘label’ 1562s [00:52:42.476] - Field: ‘local’ 1562s [00:52:42.476] - Field: ‘owner’ 1562s [00:52:42.477] - Field: ‘envir’ 1562s [00:52:42.477] - Field: ‘packages’ 1562s [00:52:42.477] - Field: ‘gc’ 1562s [00:52:42.477] - Field: ‘conditions’ 1562s [00:52:42.478] - Field: ‘expr’ 1562s [00:52:42.478] - Field: ‘uuid’ 1562s [00:52:42.478] - Field: ‘seed’ 1562s [00:52:42.478] - Field: ‘version’ 1562s [00:52:42.478] - Field: ‘result’ 1562s [00:52:42.479] - Field: ‘asynchronous’ 1562s [00:52:42.479] - Field: ‘calls’ 1562s [00:52:42.479] - Field: ‘globals’ 1562s [00:52:42.479] - Field: ‘stdout’ 1562s [00:52:42.479] - Field: ‘earlySignal’ 1562s [00:52:42.480] - Field: ‘lazy’ 1562s [00:52:42.480] - Field: ‘state’ 1562s [00:52:42.480] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1562s [00:52:42.480] - Launch lazy future ... 1562s [00:52:42.481] Packages needed by the future expression (n = 0): 1562s [00:52:42.481] Packages needed by future strategies (n = 0): 1562s [00:52:42.481] { 1562s [00:52:42.481] { 1562s [00:52:42.481] { 1562s [00:52:42.481] ...future.startTime <- base::Sys.time() 1562s [00:52:42.481] { 1562s [00:52:42.481] { 1562s [00:52:42.481] { 1562s [00:52:42.481] base::local({ 1562s [00:52:42.481] has_future <- base::requireNamespace("future", 1562s [00:52:42.481] quietly = TRUE) 1562s [00:52:42.481] if (has_future) { 1562s [00:52:42.481] ns <- base::getNamespace("future") 1562s [00:52:42.481] version <- ns[[".package"]][["version"]] 1562s [00:52:42.481] if (is.null(version)) 1562s [00:52:42.481] version <- utils::packageVersion("future") 1562s [00:52:42.481] } 1562s [00:52:42.481] else { 1562s [00:52:42.481] version <- NULL 1562s [00:52:42.481] } 1562s [00:52:42.481] if (!has_future || version < "1.8.0") { 1562s [00:52:42.481] info <- base::c(r_version = base::gsub("R version ", 1562s [00:52:42.481] "", base::R.version$version.string), 1562s [00:52:42.481] platform = base::sprintf("%s (%s-bit)", 1562s [00:52:42.481] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1562s [00:52:42.481] os = base::paste(base::Sys.info()[base::c("sysname", 1562s [00:52:42.481] "release", "version")], collapse = " "), 1562s [00:52:42.481] hostname = base::Sys.info()[["nodename"]]) 1562s [00:52:42.481] info <- base::sprintf("%s: %s", base::names(info), 1562s [00:52:42.481] info) 1562s [00:52:42.481] info <- base::paste(info, collapse = "; ") 1562s [00:52:42.481] if (!has_future) { 1562s [00:52:42.481] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1562s [00:52:42.481] info) 1562s [00:52:42.481] } 1562s [00:52:42.481] else { 1562s [00:52:42.481] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1562s [00:52:42.481] info, version) 1562s [00:52:42.481] } 1562s [00:52:42.481] base::stop(msg) 1562s [00:52:42.481] } 1562s [00:52:42.481] }) 1562s [00:52:42.481] } 1562s [00:52:42.481] options(future.plan = NULL) 1562s [00:52:42.481] Sys.unsetenv("R_FUTURE_PLAN") 1562s [00:52:42.481] future::plan("default", .cleanup = FALSE, .init = FALSE) 1562s [00:52:42.481] } 1562s [00:52:42.481] ...future.workdir <- getwd() 1562s [00:52:42.481] } 1562s [00:52:42.481] ...future.oldOptions <- base::as.list(base::.Options) 1562s [00:52:42.481] ...future.oldEnvVars <- base::Sys.getenv() 1562s [00:52:42.481] } 1562s [00:52:42.481] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1562s [00:52:42.481] future.globals.maxSize = 1572864000, future.globals.method = NULL, 1562s [00:52:42.481] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1562s [00:52:42.481] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1562s [00:52:42.481] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1562s [00:52:42.481] future.stdout.windows.reencode = NULL, width = 80L) 1562s [00:52:42.481] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1562s [00:52:42.481] base::names(...future.oldOptions)) 1562s [00:52:42.481] } 1562s [00:52:42.481] if (FALSE) { 1562s [00:52:42.481] } 1562s [00:52:42.481] else { 1562s [00:52:42.481] if (TRUE) { 1562s [00:52:42.481] ...future.stdout <- base::rawConnection(base::raw(0L), 1562s [00:52:42.481] open = "w") 1562s [00:52:42.481] } 1562s [00:52:42.481] else { 1562s [00:52:42.481] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1562s [00:52:42.481] windows = "NUL", "/dev/null"), open = "w") 1562s [00:52:42.481] } 1562s [00:52:42.481] base::sink(...future.stdout, type = "output", split = FALSE) 1562s [00:52:42.481] base::on.exit(if (!base::is.null(...future.stdout)) { 1562s [00:52:42.481] base::sink(type = "output", split = FALSE) 1562s [00:52:42.481] base::close(...future.stdout) 1562s [00:52:42.481] }, add = TRUE) 1562s [00:52:42.481] } 1562s [00:52:42.481] ...future.frame <- base::sys.nframe() 1562s [00:52:42.481] ...future.conditions <- base::list() 1562s [00:52:42.481] ...future.rng <- base::globalenv()$.Random.seed 1562s [00:52:42.481] if (FALSE) { 1562s [00:52:42.481] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1562s [00:52:42.481] "...future.value", "...future.globalenv.names", ".Random.seed") 1562s [00:52:42.481] } 1562s [00:52:42.481] ...future.result <- base::tryCatch({ 1562s [00:52:42.481] base::withCallingHandlers({ 1562s [00:52:42.481] ...future.value <- base::withVisible(base::local({ 1562s [00:52:42.481] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1562s [00:52:42.481] if (!identical(...future.globals.maxSize.org, 1562s [00:52:42.481] ...future.globals.maxSize)) { 1562s [00:52:42.481] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1562s [00:52:42.481] on.exit(options(oopts), add = TRUE) 1562s [00:52:42.481] } 1562s [00:52:42.481] { 1562s [00:52:42.481] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1562s [00:52:42.481] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1562s [00:52:42.481] USE.NAMES = FALSE) 1562s [00:52:42.481] do.call(mapply, args = args) 1562s [00:52:42.481] } 1562s [00:52:42.481] })) 1562s [00:52:42.481] future::FutureResult(value = ...future.value$value, 1562s [00:52:42.481] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1562s [00:52:42.481] ...future.rng), globalenv = if (FALSE) 1562s [00:52:42.481] list(added = base::setdiff(base::names(base::.GlobalEnv), 1562s [00:52:42.481] ...future.globalenv.names)) 1562s [00:52:42.481] else NULL, started = ...future.startTime, version = "1.8") 1562s [00:52:42.481] }, condition = base::local({ 1562s [00:52:42.481] c <- base::c 1562s [00:52:42.481] inherits <- base::inherits 1562s [00:52:42.481] invokeRestart <- base::invokeRestart 1562s [00:52:42.481] length <- base::length 1562s [00:52:42.481] list <- base::list 1562s [00:52:42.481] seq.int <- base::seq.int 1562s [00:52:42.481] signalCondition <- base::signalCondition 1562s [00:52:42.481] sys.calls <- base::sys.calls 1562s [00:52:42.481] `[[` <- base::`[[` 1562s [00:52:42.481] `+` <- base::`+` 1562s [00:52:42.481] `<<-` <- base::`<<-` 1562s [00:52:42.481] sysCalls <- function(calls = sys.calls(), from = 1L) { 1562s [00:52:42.481] calls[seq.int(from = from + 12L, to = length(calls) - 1562s [00:52:42.481] 3L)] 1562s [00:52:42.481] } 1562s [00:52:42.481] function(cond) { 1562s [00:52:42.481] is_error <- inherits(cond, "error") 1562s [00:52:42.481] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1562s [00:52:42.481] NULL) 1562s [00:52:42.481] if (is_error) { 1562s [00:52:42.481] sessionInformation <- function() { 1562s [00:52:42.481] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1562s [00:52:42.481] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1562s [00:52:42.481] search = base::search(), system = base::Sys.info()) 1562s [00:52:42.481] } 1562s [00:52:42.481] ...future.conditions[[length(...future.conditions) + 1562s [00:52:42.481] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1562s [00:52:42.481] cond$call), session = sessionInformation(), 1562s [00:52:42.481] timestamp = base::Sys.time(), signaled = 0L) 1562s [00:52:42.481] signalCondition(cond) 1562s [00:52:42.481] } 1562s [00:52:42.481] else if (!ignore && TRUE && inherits(cond, c("condition", 1562s [00:52:42.481] "immediateCondition"))) { 1562s [00:52:42.481] signal <- TRUE && inherits(cond, "immediateCondition") 1562s [00:52:42.481] ...future.conditions[[length(...future.conditions) + 1562s [00:52:42.481] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1562s [00:52:42.481] if (TRUE && !signal) { 1562s [00:52:42.481] muffleCondition <- function (cond, pattern = "^muffle") 1562s [00:52:42.481] { 1562s [00:52:42.481] inherits <- base::inherits 1562s [00:52:42.481] invokeRestart <- base::invokeRestart 1562s [00:52:42.481] is.null <- base::is.null 1562s [00:52:42.481] muffled <- FALSE 1562s [00:52:42.481] if (inherits(cond, "message")) { 1562s [00:52:42.481] muffled <- grepl(pattern, "muffleMessage") 1562s [00:52:42.481] if (muffled) 1562s [00:52:42.481] invokeRestart("muffleMessage") 1562s [00:52:42.481] } 1562s [00:52:42.481] else if (inherits(cond, "warning")) { 1562s [00:52:42.481] muffled <- grepl(pattern, "muffleWarning") 1562s [00:52:42.481] if (muffled) 1562s [00:52:42.481] invokeRestart("muffleWarning") 1562s [00:52:42.481] } 1562s [00:52:42.481] else if (inherits(cond, "condition")) { 1562s [00:52:42.481] if (!is.null(pattern)) { 1562s [00:52:42.481] computeRestarts <- base::computeRestarts 1562s [00:52:42.481] grepl <- base::grepl 1562s [00:52:42.481] restarts <- computeRestarts(cond) 1562s [00:52:42.481] for (restart in restarts) { 1562s [00:52:42.481] name <- restart$name 1562s [00:52:42.481] if (is.null(name)) 1562s [00:52:42.481] next 1562s [00:52:42.481] if (!grepl(pattern, name)) 1562s [00:52:42.481] next 1562s [00:52:42.481] invokeRestart(restart) 1562s [00:52:42.481] muffled <- TRUE 1562s [00:52:42.481] break 1562s [00:52:42.481] } 1562s [00:52:42.481] } 1562s [00:52:42.481] } 1562s [00:52:42.481] invisible(muffled) 1562s [00:52:42.481] } 1562s [00:52:42.481] muffleCondition(cond, pattern = "^muffle") 1562s [00:52:42.481] } 1562s [00:52:42.481] } 1562s [00:52:42.481] else { 1562s [00:52:42.481] if (TRUE) { 1562s [00:52:42.481] muffleCondition <- function (cond, pattern = "^muffle") 1562s [00:52:42.481] { 1562s [00:52:42.481] inherits <- base::inherits 1562s [00:52:42.481] invokeRestart <- base::invokeRestart 1562s [00:52:42.481] is.null <- base::is.null 1562s [00:52:42.481] muffled <- FALSE 1562s [00:52:42.481] if (inherits(cond, "message")) { 1562s [00:52:42.481] muffled <- grepl(pattern, "muffleMessage") 1562s [00:52:42.481] if (muffled) 1562s [00:52:42.481] invokeRestart("muffleMessage") 1562s [00:52:42.481] } 1562s [00:52:42.481] else if (inherits(cond, "warning")) { 1562s [00:52:42.481] muffled <- grepl(pattern, "muffleWarning") 1562s [00:52:42.481] if (muffled) 1562s [00:52:42.481] invokeRestart("muffleWarning") 1562s [00:52:42.481] } 1562s [00:52:42.481] else if (inherits(cond, "condition")) { 1562s [00:52:42.481] if (!is.null(pattern)) { 1562s [00:52:42.481] computeRestarts <- base::computeRestarts 1562s [00:52:42.481] grepl <- base::grepl 1562s [00:52:42.481] restarts <- computeRestarts(cond) 1562s [00:52:42.481] for (restart in restarts) { 1562s [00:52:42.481] name <- restart$name 1562s [00:52:42.481] if (is.null(name)) 1562s [00:52:42.481] next 1562s [00:52:42.481] if (!grepl(pattern, name)) 1562s [00:52:42.481] next 1562s [00:52:42.481] invokeRestart(restart) 1562s [00:52:42.481] muffled <- TRUE 1562s [00:52:42.481] break 1562s [00:52:42.481] } 1562s [00:52:42.481] } 1562s [00:52:42.481] } 1562s [00:52:42.481] invisible(muffled) 1562s [00:52:42.481] } 1562s [00:52:42.481] muffleCondition(cond, pattern = "^muffle") 1562s [00:52:42.481] } 1562s [00:52:42.481] } 1562s [00:52:42.481] } 1562s [00:52:42.481] })) 1562s [00:52:42.481] }, error = function(ex) { 1562s [00:52:42.481] base::structure(base::list(value = NULL, visible = NULL, 1562s [00:52:42.481] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1562s [00:52:42.481] ...future.rng), started = ...future.startTime, 1562s [00:52:42.481] finished = Sys.time(), session_uuid = NA_character_, 1562s [00:52:42.481] version = "1.8"), class = "FutureResult") 1562s [00:52:42.481] }, finally = { 1562s [00:52:42.481] if (!identical(...future.workdir, getwd())) 1562s [00:52:42.481] setwd(...future.workdir) 1562s [00:52:42.481] { 1562s [00:52:42.481] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1562s [00:52:42.481] ...future.oldOptions$nwarnings <- NULL 1562s [00:52:42.481] } 1562s [00:52:42.481] base::options(...future.oldOptions) 1562s [00:52:42.481] if (.Platform$OS.type == "windows") { 1562s [00:52:42.481] old_names <- names(...future.oldEnvVars) 1562s [00:52:42.481] envs <- base::Sys.getenv() 1562s [00:52:42.481] names <- names(envs) 1562s [00:52:42.481] common <- intersect(names, old_names) 1562s [00:52:42.481] added <- setdiff(names, old_names) 1562s [00:52:42.481] removed <- setdiff(old_names, names) 1562s [00:52:42.481] changed <- common[...future.oldEnvVars[common] != 1562s [00:52:42.481] envs[common]] 1562s [00:52:42.481] NAMES <- toupper(changed) 1562s [00:52:42.481] args <- list() 1562s [00:52:42.481] for (kk in seq_along(NAMES)) { 1562s [00:52:42.481] name <- changed[[kk]] 1562s [00:52:42.481] NAME <- NAMES[[kk]] 1562s [00:52:42.481] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.481] next 1562s [00:52:42.481] args[[name]] <- ...future.oldEnvVars[[name]] 1562s [00:52:42.481] } 1562s [00:52:42.481] NAMES <- toupper(added) 1562s [00:52:42.481] for (kk in seq_along(NAMES)) { 1562s [00:52:42.481] name <- added[[kk]] 1562s [00:52:42.481] NAME <- NAMES[[kk]] 1562s [00:52:42.481] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.481] next 1562s [00:52:42.481] args[[name]] <- "" 1562s [00:52:42.481] } 1562s [00:52:42.481] NAMES <- toupper(removed) 1562s [00:52:42.481] for (kk in seq_along(NAMES)) { 1562s [00:52:42.481] name <- removed[[kk]] 1562s [00:52:42.481] NAME <- NAMES[[kk]] 1562s [00:52:42.481] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.481] next 1562s [00:52:42.481] args[[name]] <- ...future.oldEnvVars[[name]] 1562s [00:52:42.481] } 1562s [00:52:42.481] if (length(args) > 0) 1562s [00:52:42.481] base::do.call(base::Sys.setenv, args = args) 1562s [00:52:42.481] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1562s [00:52:42.481] } 1562s [00:52:42.481] else { 1562s [00:52:42.481] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1562s [00:52:42.481] } 1562s [00:52:42.481] { 1562s [00:52:42.481] if (base::length(...future.futureOptionsAdded) > 1562s [00:52:42.481] 0L) { 1562s [00:52:42.481] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1562s [00:52:42.481] base::names(opts) <- ...future.futureOptionsAdded 1562s [00:52:42.481] base::options(opts) 1562s [00:52:42.481] } 1562s [00:52:42.481] { 1562s [00:52:42.481] { 1562s [00:52:42.481] base::assign(".Random.seed", c(10407L, 2079749599L, 1562s [00:52:42.481] -1712504007L, 90762767L, 511132818L, -526970845L, 1562s [00:52:42.481] -1057805512L), envir = base::globalenv(), 1562s [00:52:42.481] inherits = FALSE) 1562s [00:52:42.481] NULL 1562s [00:52:42.481] } 1562s [00:52:42.481] options(future.plan = NULL) 1562s [00:52:42.481] if (is.na(NA_character_)) 1562s [00:52:42.481] Sys.unsetenv("R_FUTURE_PLAN") 1562s [00:52:42.481] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1562s [00:52:42.481] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1562s [00:52:42.481] envir = parent.frame()) 1562s [00:52:42.481] { 1562s [00:52:42.481] default_workers <- missing(workers) 1562s [00:52:42.481] if (is.function(workers)) 1562s [00:52:42.481] workers <- workers() 1562s [00:52:42.481] workers <- structure(as.integer(workers), 1562s [00:52:42.481] class = class(workers)) 1562s [00:52:42.481] stop_if_not(is.finite(workers), workers >= 1562s [00:52:42.481] 1L) 1562s [00:52:42.481] if ((workers == 1L && !inherits(workers, 1562s [00:52:42.481] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1562s [00:52:42.481] if (default_workers) 1562s [00:52:42.481] supportsMulticore(warn = TRUE) 1562s [00:52:42.481] return(sequential(..., envir = envir)) 1562s [00:52:42.481] } 1562s [00:52:42.481] oopts <- options(mc.cores = workers) 1562s [00:52:42.481] on.exit(options(oopts)) 1562s [00:52:42.481] future <- MulticoreFuture(..., workers = workers, 1562s [00:52:42.481] envir = envir) 1562s [00:52:42.481] if (!future$lazy) 1562s [00:52:42.481] future <- run(future) 1562s [00:52:42.481] invisible(future) 1562s [00:52:42.481] }), .cleanup = FALSE, .init = FALSE) 1562s [00:52:42.481] } 1562s [00:52:42.481] } 1562s [00:52:42.481] } 1562s [00:52:42.481] }) 1562s [00:52:42.481] if (TRUE) { 1562s [00:52:42.481] base::sink(type = "output", split = FALSE) 1562s [00:52:42.481] if (TRUE) { 1562s [00:52:42.481] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1562s [00:52:42.481] } 1562s [00:52:42.481] else { 1562s [00:52:42.481] ...future.result["stdout"] <- base::list(NULL) 1562s [00:52:42.481] } 1562s [00:52:42.481] base::close(...future.stdout) 1562s [00:52:42.481] ...future.stdout <- NULL 1562s [00:52:42.481] } 1562s [00:52:42.481] ...future.result$conditions <- ...future.conditions 1562s [00:52:42.481] ...future.result$finished <- base::Sys.time() 1562s [00:52:42.481] ...future.result 1562s [00:52:42.481] } 1562s [00:52:42.487] assign_globals() ... 1562s [00:52:42.487] List of 5 1562s [00:52:42.487] $ ...future.FUN :function (C, k) 1562s [00:52:42.487] $ MoreArgs : NULL 1562s [00:52:42.487] $ ...future.elements_ii :List of 2 1562s [00:52:42.487] ..$ :List of 1 1562s [00:52:42.487] .. ..$ : chr "E" 1562s [00:52:42.487] ..$ :List of 1 1562s [00:52:42.487] .. ..$ : int 1 1562s [00:52:42.487] $ ...future.seeds_ii : NULL 1562s [00:52:42.487] $ ...future.globals.maxSize: NULL 1562s [00:52:42.487] - attr(*, "where")=List of 5 1562s [00:52:42.487] ..$ ...future.FUN : 1562s [00:52:42.487] ..$ MoreArgs : 1562s [00:52:42.487] ..$ ...future.elements_ii : 1562s [00:52:42.487] ..$ ...future.seeds_ii : 1562s [00:52:42.487] ..$ ...future.globals.maxSize: 1562s [00:52:42.487] - attr(*, "resolved")= logi FALSE 1562s [00:52:42.487] - attr(*, "total_size")= num 3488 1562s [00:52:42.487] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1562s [00:52:42.487] - attr(*, "already-done")= logi TRUE 1562s [00:52:42.498] - reassign environment for ‘...future.FUN’ 1562s [00:52:42.499] - copied ‘...future.FUN’ to environment 1562s [00:52:42.499] - copied ‘MoreArgs’ to environment 1562s [00:52:42.499] - copied ‘...future.elements_ii’ to environment 1562s [00:52:42.499] - copied ‘...future.seeds_ii’ to environment 1562s [00:52:42.500] - copied ‘...future.globals.maxSize’ to environment 1562s [00:52:42.500] assign_globals() ... done 1562s [00:52:42.500] plan(): Setting new future strategy stack: 1562s [00:52:42.501] List of future strategies: 1562s [00:52:42.501] 1. sequential: 1562s [00:52:42.501] - args: function (..., envir = parent.frame()) 1562s [00:52:42.501] - tweaked: FALSE 1562s [00:52:42.501] - call: NULL 1562s [00:52:42.501] plan(): nbrOfWorkers() = 1 1562s [00:52:42.502] plan(): Setting new future strategy stack: 1562s [00:52:42.503] List of future strategies: 1562s [00:52:42.503] 1. multicore: 1562s [00:52:42.503] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1562s [00:52:42.503] - tweaked: FALSE 1562s [00:52:42.503] - call: plan(strategy) 1562s [00:52:42.507] plan(): nbrOfWorkers() = 1 1562s [00:52:42.507] SequentialFuture started (and completed) 1562s [00:52:42.507] - Launch lazy future ... done 1562s [00:52:42.507] run() for ‘SequentialFuture’ ... done 1562s [00:52:42.508] Created future: 1562s [00:52:42.508] SequentialFuture: 1562s [00:52:42.508] Label: ‘future_mapply-2’ 1562s [00:52:42.508] Expression: 1562s [00:52:42.508] { 1562s [00:52:42.508] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1562s [00:52:42.508] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1562s [00:52:42.508] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1562s [00:52:42.508] on.exit(options(oopts), add = TRUE) 1562s [00:52:42.508] } 1562s [00:52:42.508] { 1562s [00:52:42.508] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1562s [00:52:42.508] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1562s [00:52:42.508] do.call(mapply, args = args) 1562s [00:52:42.508] } 1562s [00:52:42.508] } 1562s [00:52:42.508] Lazy evaluation: FALSE 1562s [00:52:42.508] Asynchronous evaluation: FALSE 1562s [00:52:42.508] Local evaluation: TRUE 1562s [00:52:42.508] Environment: R_GlobalEnv 1562s [00:52:42.508] Capture standard output: TRUE 1562s [00:52:42.508] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1562s [00:52:42.508] Globals: 5 objects totaling 3.41 KiB (function ‘...future.FUN’ of 3.24 KiB, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1562s [00:52:42.508] Packages: 1562s [00:52:42.508] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1562s [00:52:42.508] Resolved: TRUE 1562s [00:52:42.508] Value: 112 bytes of class ‘list’ 1562s [00:52:42.508] Early signaling: FALSE 1562s [00:52:42.508] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1562s [00:52:42.508] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1562s [00:52:42.510] Chunk #2 of 3 ... DONE 1562s [00:52:42.510] Chunk #3 of 3 ... 1562s [00:52:42.510] - Finding globals in '...' for chunk #3 ... 1562s [00:52:42.510] getGlobalsAndPackages() ... 1562s [00:52:42.510] Searching for globals... 1562s [00:52:42.511] 1562s [00:52:42.511] Searching for globals ... DONE 1562s [00:52:42.512] - globals: [0] 1562s [00:52:42.512] getGlobalsAndPackages() ... DONE 1562s [00:52:42.512] + additional globals found: [n=0] 1562s [00:52:42.512] + additional namespaces needed: [n=0] 1562s [00:52:42.513] - Finding globals in '...' for chunk #3 ... DONE 1562s [00:52:42.513] - Adjusted option 'future.globals.maxSize': 524288000 -> 3 * 524288000 = 1572864000 (bytes) 1562s [00:52:42.513] - seeds: 1562s [00:52:42.513] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.513] getGlobalsAndPackages() ... 1562s [00:52:42.513] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.514] Resolving globals: FALSE 1562s [00:52:42.514] The total size of the 5 globals is 3.57 KiB (3656 bytes) 1562s [00:52:42.515] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 3.57 KiB.. This exceeds the maximum allowed size of 1.46 GiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (3.24 KiB of class ‘function’), ‘...future.elements_ii’ (336 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1562s [00:52:42.516] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.516] 1562s [00:52:42.516] getGlobalsAndPackages() ... DONE 1562s [00:52:42.516] run() for ‘Future’ ... 1562s [00:52:42.517] - state: ‘created’ 1562s [00:52:42.517] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1562s [00:52:42.521] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1562s [00:52:42.521] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1562s [00:52:42.521] - Field: ‘label’ 1562s [00:52:42.521] - Field: ‘local’ 1562s [00:52:42.521] - Field: ‘owner’ 1562s [00:52:42.522] - Field: ‘envir’ 1562s [00:52:42.522] - Field: ‘packages’ 1562s [00:52:42.522] - Field: ‘gc’ 1562s [00:52:42.522] - Field: ‘conditions’ 1562s [00:52:42.522] - Field: ‘expr’ 1562s [00:52:42.522] - Field: ‘uuid’ 1562s [00:52:42.522] - Field: ‘seed’ 1562s [00:52:42.522] - Field: ‘version’ 1562s [00:52:42.523] - Field: ‘result’ 1562s [00:52:42.523] - Field: ‘asynchronous’ 1562s [00:52:42.523] - Field: ‘calls’ 1562s [00:52:42.523] - Field: ‘globals’ 1562s [00:52:42.523] - Field: ‘stdout’ 1562s [00:52:42.523] - Field: ‘earlySignal’ 1562s [00:52:42.523] - Field: ‘lazy’ 1562s [00:52:42.523] - Field: ‘state’ 1562s [00:52:42.524] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1562s [00:52:42.524] - Launch lazy future ... 1562s [00:52:42.524] Packages needed by the future expression (n = 0): 1562s [00:52:42.524] Packages needed by future strategies (n = 0): 1562s [00:52:42.525] { 1562s [00:52:42.525] { 1562s [00:52:42.525] { 1562s [00:52:42.525] ...future.startTime <- base::Sys.time() 1562s [00:52:42.525] { 1562s [00:52:42.525] { 1562s [00:52:42.525] { 1562s [00:52:42.525] base::local({ 1562s [00:52:42.525] has_future <- base::requireNamespace("future", 1562s [00:52:42.525] quietly = TRUE) 1562s [00:52:42.525] if (has_future) { 1562s [00:52:42.525] ns <- base::getNamespace("future") 1562s [00:52:42.525] version <- ns[[".package"]][["version"]] 1562s [00:52:42.525] if (is.null(version)) 1562s [00:52:42.525] version <- utils::packageVersion("future") 1562s [00:52:42.525] } 1562s [00:52:42.525] else { 1562s [00:52:42.525] version <- NULL 1562s [00:52:42.525] } 1562s [00:52:42.525] if (!has_future || version < "1.8.0") { 1562s [00:52:42.525] info <- base::c(r_version = base::gsub("R version ", 1562s [00:52:42.525] "", base::R.version$version.string), 1562s [00:52:42.525] platform = base::sprintf("%s (%s-bit)", 1562s [00:52:42.525] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1562s [00:52:42.525] os = base::paste(base::Sys.info()[base::c("sysname", 1562s [00:52:42.525] "release", "version")], collapse = " "), 1562s [00:52:42.525] hostname = base::Sys.info()[["nodename"]]) 1562s [00:52:42.525] info <- base::sprintf("%s: %s", base::names(info), 1562s [00:52:42.525] info) 1562s [00:52:42.525] info <- base::paste(info, collapse = "; ") 1562s [00:52:42.525] if (!has_future) { 1562s [00:52:42.525] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1562s [00:52:42.525] info) 1562s [00:52:42.525] } 1562s [00:52:42.525] else { 1562s [00:52:42.525] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1562s [00:52:42.525] info, version) 1562s [00:52:42.525] } 1562s [00:52:42.525] base::stop(msg) 1562s [00:52:42.525] } 1562s [00:52:42.525] }) 1562s [00:52:42.525] } 1562s [00:52:42.525] options(future.plan = NULL) 1562s [00:52:42.525] Sys.unsetenv("R_FUTURE_PLAN") 1562s [00:52:42.525] future::plan("default", .cleanup = FALSE, .init = FALSE) 1562s [00:52:42.525] } 1562s [00:52:42.525] ...future.workdir <- getwd() 1562s [00:52:42.525] } 1562s [00:52:42.525] ...future.oldOptions <- base::as.list(base::.Options) 1562s [00:52:42.525] ...future.oldEnvVars <- base::Sys.getenv() 1562s [00:52:42.525] } 1562s [00:52:42.525] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1562s [00:52:42.525] future.globals.maxSize = 1572864000, future.globals.method = NULL, 1562s [00:52:42.525] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1562s [00:52:42.525] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1562s [00:52:42.525] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1562s [00:52:42.525] future.stdout.windows.reencode = NULL, width = 80L) 1562s [00:52:42.525] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1562s [00:52:42.525] base::names(...future.oldOptions)) 1562s [00:52:42.525] } 1562s [00:52:42.525] if (FALSE) { 1562s [00:52:42.525] } 1562s [00:52:42.525] else { 1562s [00:52:42.525] if (TRUE) { 1562s [00:52:42.525] ...future.stdout <- base::rawConnection(base::raw(0L), 1562s [00:52:42.525] open = "w") 1562s [00:52:42.525] } 1562s [00:52:42.525] else { 1562s [00:52:42.525] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1562s [00:52:42.525] windows = "NUL", "/dev/null"), open = "w") 1562s [00:52:42.525] } 1562s [00:52:42.525] base::sink(...future.stdout, type = "output", split = FALSE) 1562s [00:52:42.525] base::on.exit(if (!base::is.null(...future.stdout)) { 1562s [00:52:42.525] base::sink(type = "output", split = FALSE) 1562s [00:52:42.525] base::close(...future.stdout) 1562s [00:52:42.525] }, add = TRUE) 1562s [00:52:42.525] } 1562s [00:52:42.525] ...future.frame <- base::sys.nframe() 1562s [00:52:42.525] ...future.conditions <- base::list() 1562s [00:52:42.525] ...future.rng <- base::globalenv()$.Random.seed 1562s [00:52:42.525] if (FALSE) { 1562s [00:52:42.525] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1562s [00:52:42.525] "...future.value", "...future.globalenv.names", ".Random.seed") 1562s [00:52:42.525] } 1562s [00:52:42.525] ...future.result <- base::tryCatch({ 1562s [00:52:42.525] base::withCallingHandlers({ 1562s [00:52:42.525] ...future.value <- base::withVisible(base::local({ 1562s [00:52:42.525] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1562s [00:52:42.525] if (!identical(...future.globals.maxSize.org, 1562s [00:52:42.525] ...future.globals.maxSize)) { 1562s [00:52:42.525] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1562s [00:52:42.525] on.exit(options(oopts), add = TRUE) 1562s [00:52:42.525] } 1562s [00:52:42.525] { 1562s [00:52:42.525] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1562s [00:52:42.525] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1562s [00:52:42.525] USE.NAMES = FALSE) 1562s [00:52:42.525] do.call(mapply, args = args) 1562s [00:52:42.525] } 1562s [00:52:42.525] })) 1562s [00:52:42.525] future::FutureResult(value = ...future.value$value, 1562s [00:52:42.525] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1562s [00:52:42.525] ...future.rng), globalenv = if (FALSE) 1562s [00:52:42.525] list(added = base::setdiff(base::names(base::.GlobalEnv), 1562s [00:52:42.525] ...future.globalenv.names)) 1562s [00:52:42.525] else NULL, started = ...future.startTime, version = "1.8") 1562s [00:52:42.525] }, condition = base::local({ 1562s [00:52:42.525] c <- base::c 1562s [00:52:42.525] inherits <- base::inherits 1562s [00:52:42.525] invokeRestart <- base::invokeRestart 1562s [00:52:42.525] length <- base::length 1562s [00:52:42.525] list <- base::list 1562s [00:52:42.525] seq.int <- base::seq.int 1562s [00:52:42.525] signalCondition <- base::signalCondition 1562s [00:52:42.525] sys.calls <- base::sys.calls 1562s [00:52:42.525] `[[` <- base::`[[` 1562s [00:52:42.525] `+` <- base::`+` 1562s [00:52:42.525] `<<-` <- base::`<<-` 1562s [00:52:42.525] sysCalls <- function(calls = sys.calls(), from = 1L) { 1562s [00:52:42.525] calls[seq.int(from = from + 12L, to = length(calls) - 1562s [00:52:42.525] 3L)] 1562s [00:52:42.525] } 1562s [00:52:42.525] function(cond) { 1562s [00:52:42.525] is_error <- inherits(cond, "error") 1562s [00:52:42.525] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1562s [00:52:42.525] NULL) 1562s [00:52:42.525] if (is_error) { 1562s [00:52:42.525] sessionInformation <- function() { 1562s [00:52:42.525] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1562s [00:52:42.525] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1562s [00:52:42.525] search = base::search(), system = base::Sys.info()) 1562s [00:52:42.525] } 1562s [00:52:42.525] ...future.conditions[[length(...future.conditions) + 1562s [00:52:42.525] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1562s [00:52:42.525] cond$call), session = sessionInformation(), 1562s [00:52:42.525] timestamp = base::Sys.time(), signaled = 0L) 1562s [00:52:42.525] signalCondition(cond) 1562s [00:52:42.525] } 1562s [00:52:42.525] else if (!ignore && TRUE && inherits(cond, c("condition", 1562s [00:52:42.525] "immediateCondition"))) { 1562s [00:52:42.525] signal <- TRUE && inherits(cond, "immediateCondition") 1562s [00:52:42.525] ...future.conditions[[length(...future.conditions) + 1562s [00:52:42.525] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1562s [00:52:42.525] if (TRUE && !signal) { 1562s [00:52:42.525] muffleCondition <- function (cond, pattern = "^muffle") 1562s [00:52:42.525] { 1562s [00:52:42.525] inherits <- base::inherits 1562s [00:52:42.525] invokeRestart <- base::invokeRestart 1562s [00:52:42.525] is.null <- base::is.null 1562s [00:52:42.525] muffled <- FALSE 1562s [00:52:42.525] if (inherits(cond, "message")) { 1562s [00:52:42.525] muffled <- grepl(pattern, "muffleMessage") 1562s [00:52:42.525] if (muffled) 1562s [00:52:42.525] invokeRestart("muffleMessage") 1562s [00:52:42.525] } 1562s [00:52:42.525] else if (inherits(cond, "warning")) { 1562s [00:52:42.525] muffled <- grepl(pattern, "muffleWarning") 1562s [00:52:42.525] if (muffled) 1562s [00:52:42.525] invokeRestart("muffleWarning") 1562s [00:52:42.525] } 1562s [00:52:42.525] else if (inherits(cond, "condition")) { 1562s [00:52:42.525] if (!is.null(pattern)) { 1562s [00:52:42.525] computeRestarts <- base::computeRestarts 1562s [00:52:42.525] grepl <- base::grepl 1562s [00:52:42.525] restarts <- computeRestarts(cond) 1562s [00:52:42.525] for (restart in restarts) { 1562s [00:52:42.525] name <- restart$name 1562s [00:52:42.525] if (is.null(name)) 1562s [00:52:42.525] next 1562s [00:52:42.525] if (!grepl(pattern, name)) 1562s [00:52:42.525] next 1562s [00:52:42.525] invokeRestart(restart) 1562s [00:52:42.525] muffled <- TRUE 1562s [00:52:42.525] break 1562s [00:52:42.525] } 1562s [00:52:42.525] } 1562s [00:52:42.525] } 1562s [00:52:42.525] invisible(muffled) 1562s [00:52:42.525] } 1562s [00:52:42.525] muffleCondition(cond, pattern = "^muffle") 1562s [00:52:42.525] } 1562s [00:52:42.525] } 1562s [00:52:42.525] else { 1562s [00:52:42.525] if (TRUE) { 1562s [00:52:42.525] muffleCondition <- function (cond, pattern = "^muffle") 1562s [00:52:42.525] { 1562s [00:52:42.525] inherits <- base::inherits 1562s [00:52:42.525] invokeRestart <- base::invokeRestart 1562s [00:52:42.525] is.null <- base::is.null 1562s [00:52:42.525] muffled <- FALSE 1562s [00:52:42.525] if (inherits(cond, "message")) { 1562s [00:52:42.525] muffled <- grepl(pattern, "muffleMessage") 1562s [00:52:42.525] if (muffled) 1562s [00:52:42.525] invokeRestart("muffleMessage") 1562s [00:52:42.525] } 1562s [00:52:42.525] else if (inherits(cond, "warning")) { 1562s [00:52:42.525] muffled <- grepl(pattern, "muffleWarning") 1562s [00:52:42.525] if (muffled) 1562s [00:52:42.525] invokeRestart("muffleWarning") 1562s [00:52:42.525] } 1562s [00:52:42.525] else if (inherits(cond, "condition")) { 1562s [00:52:42.525] if (!is.null(pattern)) { 1562s [00:52:42.525] computeRestarts <- base::computeRestarts 1562s [00:52:42.525] grepl <- base::grepl 1562s [00:52:42.525] restarts <- computeRestarts(cond) 1562s [00:52:42.525] for (restart in restarts) { 1562s [00:52:42.525] name <- restart$name 1562s [00:52:42.525] if (is.null(name)) 1562s [00:52:42.525] next 1562s [00:52:42.525] if (!grepl(pattern, name)) 1562s [00:52:42.525] next 1562s [00:52:42.525] invokeRestart(restart) 1562s [00:52:42.525] muffled <- TRUE 1562s [00:52:42.525] break 1562s [00:52:42.525] } 1562s [00:52:42.525] } 1562s [00:52:42.525] } 1562s [00:52:42.525] invisible(muffled) 1562s [00:52:42.525] } 1562s [00:52:42.525] muffleCondition(cond, pattern = "^muffle") 1562s [00:52:42.525] } 1562s [00:52:42.525] } 1562s [00:52:42.525] } 1562s [00:52:42.525] })) 1562s [00:52:42.525] }, error = function(ex) { 1562s [00:52:42.525] base::structure(base::list(value = NULL, visible = NULL, 1562s [00:52:42.525] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1562s [00:52:42.525] ...future.rng), started = ...future.startTime, 1562s [00:52:42.525] finished = Sys.time(), session_uuid = NA_character_, 1562s [00:52:42.525] version = "1.8"), class = "FutureResult") 1562s [00:52:42.525] }, finally = { 1562s [00:52:42.525] if (!identical(...future.workdir, getwd())) 1562s [00:52:42.525] setwd(...future.workdir) 1562s [00:52:42.525] { 1562s [00:52:42.525] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1562s [00:52:42.525] ...future.oldOptions$nwarnings <- NULL 1562s [00:52:42.525] } 1562s [00:52:42.525] base::options(...future.oldOptions) 1562s [00:52:42.525] if (.Platform$OS.type == "windows") { 1562s [00:52:42.525] old_names <- names(...future.oldEnvVars) 1562s [00:52:42.525] envs <- base::Sys.getenv() 1562s [00:52:42.525] names <- names(envs) 1562s [00:52:42.525] common <- intersect(names, old_names) 1562s [00:52:42.525] added <- setdiff(names, old_names) 1562s [00:52:42.525] removed <- setdiff(old_names, names) 1562s [00:52:42.525] changed <- common[...future.oldEnvVars[common] != 1562s [00:52:42.525] envs[common]] 1562s [00:52:42.525] NAMES <- toupper(changed) 1562s [00:52:42.525] args <- list() 1562s [00:52:42.525] for (kk in seq_along(NAMES)) { 1562s [00:52:42.525] name <- changed[[kk]] 1562s [00:52:42.525] NAME <- NAMES[[kk]] 1562s [00:52:42.525] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.525] next 1562s [00:52:42.525] args[[name]] <- ...future.oldEnvVars[[name]] 1562s [00:52:42.525] } 1562s [00:52:42.525] NAMES <- toupper(added) 1562s [00:52:42.525] for (kk in seq_along(NAMES)) { 1562s [00:52:42.525] name <- added[[kk]] 1562s [00:52:42.525] NAME <- NAMES[[kk]] 1562s [00:52:42.525] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.525] next 1562s [00:52:42.525] args[[name]] <- "" 1562s [00:52:42.525] } 1562s [00:52:42.525] NAMES <- toupper(removed) 1562s [00:52:42.525] for (kk in seq_along(NAMES)) { 1562s [00:52:42.525] name <- removed[[kk]] 1562s [00:52:42.525] NAME <- NAMES[[kk]] 1562s [00:52:42.525] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.525] next 1562s [00:52:42.525] args[[name]] <- ...future.oldEnvVars[[name]] 1562s [00:52:42.525] } 1562s [00:52:42.525] if (length(args) > 0) 1562s [00:52:42.525] base::do.call(base::Sys.setenv, args = args) 1562s [00:52:42.525] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1562s [00:52:42.525] } 1562s [00:52:42.525] else { 1562s [00:52:42.525] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1562s [00:52:42.525] } 1562s [00:52:42.525] { 1562s [00:52:42.525] if (base::length(...future.futureOptionsAdded) > 1562s [00:52:42.525] 0L) { 1562s [00:52:42.525] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1562s [00:52:42.525] base::names(opts) <- ...future.futureOptionsAdded 1562s [00:52:42.525] base::options(opts) 1562s [00:52:42.525] } 1562s [00:52:42.525] { 1562s [00:52:42.525] { 1562s [00:52:42.525] base::assign(".Random.seed", c(10407L, 2079749599L, 1562s [00:52:42.525] -1712504007L, 90762767L, 511132818L, -526970845L, 1562s [00:52:42.525] -1057805512L), envir = base::globalenv(), 1562s [00:52:42.525] inherits = FALSE) 1562s [00:52:42.525] NULL 1562s [00:52:42.525] } 1562s [00:52:42.525] options(future.plan = NULL) 1562s [00:52:42.525] if (is.na(NA_character_)) 1562s [00:52:42.525] Sys.unsetenv("R_FUTURE_PLAN") 1562s [00:52:42.525] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1562s [00:52:42.525] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1562s [00:52:42.525] envir = parent.frame()) 1562s [00:52:42.525] { 1562s [00:52:42.525] default_workers <- missing(workers) 1562s [00:52:42.525] if (is.function(workers)) 1562s [00:52:42.525] workers <- workers() 1562s [00:52:42.525] workers <- structure(as.integer(workers), 1562s [00:52:42.525] class = class(workers)) 1562s [00:52:42.525] stop_if_not(is.finite(workers), workers >= 1562s [00:52:42.525] 1L) 1562s [00:52:42.525] if ((workers == 1L && !inherits(workers, 1562s [00:52:42.525] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1562s [00:52:42.525] if (default_workers) 1562s [00:52:42.525] supportsMulticore(warn = TRUE) 1562s [00:52:42.525] return(sequential(..., envir = envir)) 1562s [00:52:42.525] } 1562s [00:52:42.525] oopts <- options(mc.cores = workers) 1562s [00:52:42.525] on.exit(options(oopts)) 1562s [00:52:42.525] future <- MulticoreFuture(..., workers = workers, 1562s [00:52:42.525] envir = envir) 1562s [00:52:42.525] if (!future$lazy) 1562s [00:52:42.525] future <- run(future) 1562s [00:52:42.525] invisible(future) 1562s [00:52:42.525] }), .cleanup = FALSE, .init = FALSE) 1562s [00:52:42.525] } 1562s [00:52:42.525] } 1562s [00:52:42.525] } 1562s [00:52:42.525] }) 1562s [00:52:42.525] if (TRUE) { 1562s [00:52:42.525] base::sink(type = "output", split = FALSE) 1562s [00:52:42.525] if (TRUE) { 1562s [00:52:42.525] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1562s [00:52:42.525] } 1562s [00:52:42.525] else { 1562s [00:52:42.525] ...future.result["stdout"] <- base::list(NULL) 1562s [00:52:42.525] } 1562s [00:52:42.525] base::close(...future.stdout) 1562s [00:52:42.525] ...future.stdout <- NULL 1562s [00:52:42.525] } 1562s [00:52:42.525] ...future.result$conditions <- ...future.conditions 1562s [00:52:42.525] ...future.result$finished <- base::Sys.time() 1562s [00:52:42.525] ...future.result 1562s [00:52:42.525] } 1562s [00:52:42.528] assign_globals() ... 1562s [00:52:42.528] List of 5 1562s [00:52:42.528] $ ...future.FUN :function (C, k) 1562s [00:52:42.528] $ MoreArgs : NULL 1562s [00:52:42.528] $ ...future.elements_ii :List of 2 1562s [00:52:42.528] ..$ :List of 2 1562s [00:52:42.528] .. ..$ : chr "B" 1562s [00:52:42.528] .. ..$ : chr "A" 1562s [00:52:42.528] ..$ :List of 2 1562s [00:52:42.528] .. ..$ : int 4 1562s [00:52:42.528] .. ..$ : int 5 1562s [00:52:42.528] $ ...future.seeds_ii : NULL 1562s [00:52:42.528] $ ...future.globals.maxSize: NULL 1562s [00:52:42.528] - attr(*, "where")=List of 5 1562s [00:52:42.528] ..$ ...future.FUN : 1562s [00:52:42.528] ..$ MoreArgs : 1562s [00:52:42.528] ..$ ...future.elements_ii : 1562s [00:52:42.528] ..$ ...future.seeds_ii : 1562s [00:52:42.528] ..$ ...future.globals.maxSize: 1562s [00:52:42.528] - attr(*, "resolved")= logi FALSE 1562s [00:52:42.528] - attr(*, "total_size")= num 3656 1562s [00:52:42.528] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1562s [00:52:42.528] - attr(*, "already-done")= logi TRUE 1562s [00:52:42.539] - reassign environment for ‘...future.FUN’ 1562s [00:52:42.539] - copied ‘...future.FUN’ to environment 1562s [00:52:42.539] - copied ‘MoreArgs’ to environment 1562s [00:52:42.539] - copied ‘...future.elements_ii’ to environment 1562s [00:52:42.540] - copied ‘...future.seeds_ii’ to environment 1562s [00:52:42.540] - copied ‘...future.globals.maxSize’ to environment 1562s [00:52:42.540] assign_globals() ... done 1562s [00:52:42.540] plan(): Setting new future strategy stack: 1562s [00:52:42.540] List of future strategies: 1562s [00:52:42.540] 1. sequential: 1562s [00:52:42.540] - args: function (..., envir = parent.frame()) 1562s [00:52:42.540] - tweaked: FALSE 1562s [00:52:42.540] - call: NULL 1562s [00:52:42.541] plan(): nbrOfWorkers() = 1 1562s [00:52:42.542] plan(): Setting new future strategy stack: 1562s [00:52:42.542] List of future strategies: 1562s [00:52:42.542] 1. multicore: 1562s [00:52:42.542] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1562s [00:52:42.542] - tweaked: FALSE 1562s [00:52:42.542] - call: plan(strategy) 1562s [00:52:42.546] plan(): nbrOfWorkers() = 1 1562s [00:52:42.546] SequentialFuture started (and completed) 1562s [00:52:42.546] - Launch lazy future ... done 1562s [00:52:42.546] run() for ‘SequentialFuture’ ... done 1562s [00:52:42.547] Created future: 1562s [00:52:42.547] SequentialFuture: 1562s [00:52:42.547] Label: ‘future_mapply-3’ 1562s [00:52:42.547] Expression: 1562s [00:52:42.547] { 1562s [00:52:42.547] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1562s [00:52:42.547] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1562s [00:52:42.547] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1562s [00:52:42.547] on.exit(options(oopts), add = TRUE) 1562s [00:52:42.547] } 1562s [00:52:42.547] { 1562s [00:52:42.547] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1562s [00:52:42.547] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1562s [00:52:42.547] do.call(mapply, args = args) 1562s [00:52:42.547] } 1562s [00:52:42.547] } 1562s [00:52:42.547] Lazy evaluation: FALSE 1562s [00:52:42.547] Asynchronous evaluation: FALSE 1562s [00:52:42.547] Local evaluation: TRUE 1562s [00:52:42.547] Environment: R_GlobalEnv 1562s [00:52:42.547] Capture standard output: TRUE 1562s [00:52:42.547] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1562s [00:52:42.547] Globals: 5 objects totaling 3.57 KiB (function ‘...future.FUN’ of 3.24 KiB, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1562s [00:52:42.547] Packages: 1562s [00:52:42.547] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1562s [00:52:42.547] Resolved: TRUE 1562s [00:52:42.547] Value: 224 bytes of class ‘list’ 1562s [00:52:42.547] Early signaling: FALSE 1562s [00:52:42.547] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1562s [00:52:42.547] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1562s [00:52:42.549] Chunk #3 of 3 ... DONE 1562s [00:52:42.549] Launching 3 futures (chunks) ... DONE 1562s [00:52:42.549] Resolving 3 futures (chunks) ... 1562s [00:52:42.549] resolve() on list ... 1562s [00:52:42.549] recursive: 0 1562s [00:52:42.550] length: 3 1562s [00:52:42.550] 1562s [00:52:42.550] resolved() for ‘SequentialFuture’ ... 1562s [00:52:42.550] - state: ‘finished’ 1562s [00:52:42.550] - run: TRUE 1562s [00:52:42.551] - result: ‘FutureResult’ 1562s [00:52:42.551] resolved() for ‘SequentialFuture’ ... done 1562s [00:52:42.551] Future #1 1562s [00:52:42.551] signalConditionsASAP(SequentialFuture, pos=1) ... 1562s [00:52:42.551] - nx: 3 1562s [00:52:42.551] - relay: TRUE 1562s [00:52:42.551] - stdout: TRUE 1562s [00:52:42.552] - signal: TRUE 1562s [00:52:42.552] - resignal: FALSE 1562s [00:52:42.552] - force: TRUE 1562s [00:52:42.552] - relayed: [n=3] FALSE, FALSE, FALSE 1562s [00:52:42.552] - queued futures: [n=3] FALSE, FALSE, FALSE 1562s [00:52:42.552] - until=1 1562s [00:52:42.552] - relaying element #1 1562s [00:52:42.553] - relayed: [n=3] TRUE, FALSE, FALSE 1562s [00:52:42.553] - queued futures: [n=3] TRUE, FALSE, FALSE 1562s [00:52:42.553] signalConditionsASAP(SequentialFuture, pos=1) ... done 1562s [00:52:42.553] length: 2 (resolved future 1) 1562s [00:52:42.553] resolved() for ‘SequentialFuture’ ... 1562s [00:52:42.553] - state: ‘finished’ 1562s [00:52:42.554] - run: TRUE 1562s [00:52:42.554] - result: ‘FutureResult’ 1562s [00:52:42.554] resolved() for ‘SequentialFuture’ ... done 1562s [00:52:42.554] Future #2 1562s [00:52:42.554] signalConditionsASAP(SequentialFuture, pos=2) ... 1562s [00:52:42.554] - nx: 3 1562s [00:52:42.555] - relay: TRUE 1562s [00:52:42.555] - stdout: TRUE 1562s [00:52:42.555] - signal: TRUE 1562s [00:52:42.555] - resignal: FALSE 1562s [00:52:42.555] - force: TRUE 1562s [00:52:42.555] - relayed: [n=3] TRUE, FALSE, FALSE 1562s [00:52:42.555] - queued futures: [n=3] TRUE, FALSE, FALSE 1562s [00:52:42.555] - until=2 1562s [00:52:42.556] - relaying element #2 1562s [00:52:42.556] - relayed: [n=3] TRUE, TRUE, FALSE 1562s [00:52:42.556] - queued futures: [n=3] TRUE, TRUE, FALSE 1562s [00:52:42.556] signalConditionsASAP(SequentialFuture, pos=2) ... done 1562s [00:52:42.556] length: 1 (resolved future 2) 1562s [00:52:42.556] resolved() for ‘SequentialFuture’ ... 1562s [00:52:42.557] - state: ‘finished’ 1562s [00:52:42.557] - run: TRUE 1562s [00:52:42.557] - result: ‘FutureResult’ 1562s [00:52:42.557] resolved() for ‘SequentialFuture’ ... done 1562s [00:52:42.557] Future #3 1562s [00:52:42.557] signalConditionsASAP(SequentialFuture, pos=3) ... 1562s [00:52:42.558] - nx: 3 1562s [00:52:42.558] - relay: TRUE 1562s [00:52:42.558] - stdout: TRUE 1562s [00:52:42.558] - signal: TRUE 1562s [00:52:42.558] - resignal: FALSE 1562s [00:52:42.558] - force: TRUE 1562s [00:52:42.559] - relayed: [n=3] TRUE, TRUE, FALSE 1562s [00:52:42.559] - queued futures: [n=3] TRUE, TRUE, FALSE 1562s [00:52:42.559] - until=3 1562s [00:52:42.559] - relaying element #3 1562s [00:52:42.559] - relayed: [n=3] TRUE, TRUE, TRUE 1562s [00:52:42.559] - queued futures: [n=3] TRUE, TRUE, TRUE 1562s [00:52:42.560] signalConditionsASAP(SequentialFuture, pos=3) ... done 1562s [00:52:42.560] length: 0 (resolved future 3) 1562s [00:52:42.560] Relaying remaining futures 1562s [00:52:42.560] signalConditionsASAP(NULL, pos=0) ... 1562s [00:52:42.560] - nx: 3 1562s [00:52:42.560] - relay: TRUE 1562s [00:52:42.560] - stdout: TRUE 1562s [00:52:42.561] - signal: TRUE 1562s [00:52:42.561] - resignal: FALSE 1562s [00:52:42.561] - force: TRUE 1562s [00:52:42.561] - relayed: [n=3] TRUE, TRUE, TRUE 1562s [00:52:42.561] - queued futures: [n=3] TRUE, TRUE, TRUE 1562s - flush all 1562s [00:52:42.561] - relayed: [n=3] TRUE, TRUE, TRUE 1562s [00:52:42.562] - queued futures: [n=3] TRUE, TRUE, TRUE 1562s [00:52:42.562] signalConditionsASAP(NULL, pos=0) ... done 1562s [00:52:42.562] resolve() on list ... DONE 1562s [00:52:42.563] - Number of value chunks collected: 3 1562s [00:52:42.563] Resolving 3 futures (chunks) ... DONE 1562s [00:52:42.563] Reducing values from 3 chunks ... 1562s [00:52:42.563] - Number of values collected after concatenation: 5 1562s [00:52:42.563] - Number of values expected: 5 1562s [00:52:42.563] Reverse index remapping (attribute 'ordering'): [n = 5] 5, 4, 1, 2, 3 1562s [00:52:42.563] Reducing values from 3 chunks ... DONE 1562s [00:52:42.563] future_mapply() ... DONE 1562s [00:52:42.564] future_mapply() ... 1562s [00:52:42.567] Number of chunks: 1 1562s [00:52:42.567] getGlobalsAndPackagesXApply() ... 1562s [00:52:42.567] - future.globals: TRUE 1562s [00:52:42.567] getGlobalsAndPackages() ... 1562s [00:52:42.568] Searching for globals... 1562s [00:52:42.569] - globals found: [3] ‘FUN’, ‘paste’, ‘rep.int’ 1562s [00:52:42.569] Searching for globals ... DONE 1562s [00:52:42.569] Resolving globals: FALSE 1562s [00:52:42.570] The total size of the 1 globals is 3.24 KiB (3320 bytes) 1562s [00:52:42.570] The total size of the 1 globals exported for future expression (‘FUN()’) is 3.24 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (3.24 KiB of class ‘function’) 1562s [00:52:42.571] - globals: [1] ‘FUN’ 1562s [00:52:42.571] 1562s [00:52:42.571] getGlobalsAndPackages() ... DONE 1562s [00:52:42.571] - globals found/used: [n=1] ‘FUN’ 1562s [00:52:42.571] - needed namespaces: [n=0] 1562s [00:52:42.571] Finding globals ... DONE 1562s [00:52:42.573] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1562s [00:52:42.573] List of 2 1562s [00:52:42.573] $ ...future.FUN:function (C, k) 1562s [00:52:42.573] $ MoreArgs : list() 1562s [00:52:42.573] - attr(*, "where")=List of 2 1562s [00:52:42.573] ..$ ...future.FUN: 1562s [00:52:42.573] ..$ MoreArgs : 1562s [00:52:42.573] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1562s [00:52:42.573] - attr(*, "resolved")= logi FALSE 1562s [00:52:42.573] - attr(*, "total_size")= num NA 1562s [00:52:42.576] Packages to be attached in all futures: [n=0] 1562s [00:52:42.577] getGlobalsAndPackagesXApply() ... DONE 1562s [00:52:42.577] Number of futures (= number of chunks): 1 1562s [00:52:42.577] Launching 1 futures (chunks) ... 1562s [00:52:42.577] Chunk #1 of 1 ... 1562s [00:52:42.577] - Finding globals in '...' for chunk #1 ... 1562s [00:52:42.577] getGlobalsAndPackages() ... 1562s [00:52:42.578] Searching for globals... 1562s [00:52:42.578] 1562s [00:52:42.578] Searching for globals ... DONE 1562s [00:52:42.578] - globals: [0] 1562s [00:52:42.578] getGlobalsAndPackages() ... DONE 1562s [00:52:42.579] + additional globals found: [n=0] 1562s [00:52:42.579] + additional namespaces needed: [n=0] 1562s [00:52:42.579] - Finding globals in '...' for chunk #1 ... DONE 1562s [00:52:42.579] - seeds: 1562s [00:52:42.579] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.579] getGlobalsAndPackages() ... 1562s [00:52:42.580] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.580] Resolving globals: FALSE 1562s [00:52:42.580] The total size of the 5 globals is 4.06 KiB (4160 bytes) 1562s [00:52:42.581] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 4.06 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (3.24 KiB of class ‘function’), ‘...future.elements_ii’ (840 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘list’) 1562s [00:52:42.581] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.581] 1562s [00:52:42.582] getGlobalsAndPackages() ... DONE 1562s [00:52:42.582] run() for ‘Future’ ... 1562s [00:52:42.582] - state: ‘created’ 1562s [00:52:42.582] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1562s [00:52:42.586] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1562s [00:52:42.586] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1562s [00:52:42.586] - Field: ‘label’ 1562s [00:52:42.587] - Field: ‘local’ 1562s [00:52:42.587] - Field: ‘owner’ 1562s [00:52:42.587] - Field: ‘envir’ 1562s [00:52:42.587] - Field: ‘packages’ 1562s [00:52:42.587] - Field: ‘gc’ 1562s [00:52:42.587] - Field: ‘conditions’ 1562s [00:52:42.587] - Field: ‘expr’ 1562s [00:52:42.588] - Field: ‘uuid’ 1562s [00:52:42.588] - Field: ‘seed’ 1562s [00:52:42.588] - Field: ‘version’ 1562s [00:52:42.588] - Field: ‘result’ 1562s [00:52:42.588] - Field: ‘asynchronous’ 1562s [00:52:42.588] - Field: ‘calls’ 1562s [00:52:42.588] - Field: ‘globals’ 1562s [00:52:42.589] - Field: ‘stdout’ 1562s [00:52:42.589] - Field: ‘earlySignal’ 1562s [00:52:42.589] - Field: ‘lazy’ 1562s [00:52:42.589] - Field: ‘state’ 1562s [00:52:42.589] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1562s [00:52:42.589] - Launch lazy future ... 1562s [00:52:42.590] Packages needed by the future expression (n = 0): 1562s [00:52:42.590] Packages needed by future strategies (n = 0): 1562s [00:52:42.591] { 1562s [00:52:42.591] { 1562s [00:52:42.591] { 1562s [00:52:42.591] ...future.startTime <- base::Sys.time() 1562s [00:52:42.591] { 1562s [00:52:42.591] { 1562s [00:52:42.591] { 1562s [00:52:42.591] base::local({ 1562s [00:52:42.591] has_future <- base::requireNamespace("future", 1562s [00:52:42.591] quietly = TRUE) 1562s [00:52:42.591] if (has_future) { 1562s [00:52:42.591] ns <- base::getNamespace("future") 1562s [00:52:42.591] version <- ns[[".package"]][["version"]] 1562s [00:52:42.591] if (is.null(version)) 1562s [00:52:42.591] version <- utils::packageVersion("future") 1562s [00:52:42.591] } 1562s [00:52:42.591] else { 1562s [00:52:42.591] version <- NULL 1562s [00:52:42.591] } 1562s [00:52:42.591] if (!has_future || version < "1.8.0") { 1562s [00:52:42.591] info <- base::c(r_version = base::gsub("R version ", 1562s [00:52:42.591] "", base::R.version$version.string), 1562s [00:52:42.591] platform = base::sprintf("%s (%s-bit)", 1562s [00:52:42.591] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1562s [00:52:42.591] os = base::paste(base::Sys.info()[base::c("sysname", 1562s [00:52:42.591] "release", "version")], collapse = " "), 1562s [00:52:42.591] hostname = base::Sys.info()[["nodename"]]) 1562s [00:52:42.591] info <- base::sprintf("%s: %s", base::names(info), 1562s [00:52:42.591] info) 1562s [00:52:42.591] info <- base::paste(info, collapse = "; ") 1562s [00:52:42.591] if (!has_future) { 1562s [00:52:42.591] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1562s [00:52:42.591] info) 1562s [00:52:42.591] } 1562s [00:52:42.591] else { 1562s [00:52:42.591] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1562s [00:52:42.591] info, version) 1562s [00:52:42.591] } 1562s [00:52:42.591] base::stop(msg) 1562s [00:52:42.591] } 1562s [00:52:42.591] }) 1562s [00:52:42.591] } 1562s [00:52:42.591] options(future.plan = NULL) 1562s [00:52:42.591] Sys.unsetenv("R_FUTURE_PLAN") 1562s [00:52:42.591] future::plan("default", .cleanup = FALSE, .init = FALSE) 1562s [00:52:42.591] } 1562s [00:52:42.591] ...future.workdir <- getwd() 1562s [00:52:42.591] } 1562s [00:52:42.591] ...future.oldOptions <- base::as.list(base::.Options) 1562s [00:52:42.591] ...future.oldEnvVars <- base::Sys.getenv() 1562s [00:52:42.591] } 1562s [00:52:42.591] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1562s [00:52:42.591] future.globals.maxSize = NULL, future.globals.method = NULL, 1562s [00:52:42.591] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1562s [00:52:42.591] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1562s [00:52:42.591] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1562s [00:52:42.591] future.stdout.windows.reencode = NULL, width = 80L) 1562s [00:52:42.591] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1562s [00:52:42.591] base::names(...future.oldOptions)) 1562s [00:52:42.591] } 1562s [00:52:42.591] if (FALSE) { 1562s [00:52:42.591] } 1562s [00:52:42.591] else { 1562s [00:52:42.591] if (TRUE) { 1562s [00:52:42.591] ...future.stdout <- base::rawConnection(base::raw(0L), 1562s [00:52:42.591] open = "w") 1562s [00:52:42.591] } 1562s [00:52:42.591] else { 1562s [00:52:42.591] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1562s [00:52:42.591] windows = "NUL", "/dev/null"), open = "w") 1562s [00:52:42.591] } 1562s [00:52:42.591] base::sink(...future.stdout, type = "output", split = FALSE) 1562s [00:52:42.591] base::on.exit(if (!base::is.null(...future.stdout)) { 1562s [00:52:42.591] base::sink(type = "output", split = FALSE) 1562s [00:52:42.591] base::close(...future.stdout) 1562s [00:52:42.591] }, add = TRUE) 1562s [00:52:42.591] } 1562s [00:52:42.591] ...future.frame <- base::sys.nframe() 1562s [00:52:42.591] ...future.conditions <- base::list() 1562s [00:52:42.591] ...future.rng <- base::globalenv()$.Random.seed 1562s [00:52:42.591] if (FALSE) { 1562s [00:52:42.591] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1562s [00:52:42.591] "...future.value", "...future.globalenv.names", ".Random.seed") 1562s [00:52:42.591] } 1562s [00:52:42.591] ...future.result <- base::tryCatch({ 1562s [00:52:42.591] base::withCallingHandlers({ 1562s [00:52:42.591] ...future.value <- base::withVisible(base::local({ 1562s [00:52:42.591] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1562s [00:52:42.591] if (!identical(...future.globals.maxSize.org, 1562s [00:52:42.591] ...future.globals.maxSize)) { 1562s [00:52:42.591] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1562s [00:52:42.591] on.exit(options(oopts), add = TRUE) 1562s [00:52:42.591] } 1562s [00:52:42.591] { 1562s [00:52:42.591] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1562s [00:52:42.591] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1562s [00:52:42.591] USE.NAMES = FALSE) 1562s [00:52:42.591] do.call(mapply, args = args) 1562s [00:52:42.591] } 1562s [00:52:42.591] })) 1562s [00:52:42.591] future::FutureResult(value = ...future.value$value, 1562s [00:52:42.591] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1562s [00:52:42.591] ...future.rng), globalenv = if (FALSE) 1562s [00:52:42.591] list(added = base::setdiff(base::names(base::.GlobalEnv), 1562s [00:52:42.591] ...future.globalenv.names)) 1562s [00:52:42.591] else NULL, started = ...future.startTime, version = "1.8") 1562s [00:52:42.591] }, condition = base::local({ 1562s [00:52:42.591] c <- base::c 1562s [00:52:42.591] inherits <- base::inherits 1562s [00:52:42.591] invokeRestart <- base::invokeRestart 1562s [00:52:42.591] length <- base::length 1562s [00:52:42.591] list <- base::list 1562s [00:52:42.591] seq.int <- base::seq.int 1562s [00:52:42.591] signalCondition <- base::signalCondition 1562s [00:52:42.591] sys.calls <- base::sys.calls 1562s [00:52:42.591] `[[` <- base::`[[` 1562s [00:52:42.591] `+` <- base::`+` 1562s [00:52:42.591] `<<-` <- base::`<<-` 1562s [00:52:42.591] sysCalls <- function(calls = sys.calls(), from = 1L) { 1562s [00:52:42.591] calls[seq.int(from = from + 12L, to = length(calls) - 1562s [00:52:42.591] 3L)] 1562s [00:52:42.591] } 1562s [00:52:42.591] function(cond) { 1562s [00:52:42.591] is_error <- inherits(cond, "error") 1562s [00:52:42.591] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1562s [00:52:42.591] NULL) 1562s [00:52:42.591] if (is_error) { 1562s [00:52:42.591] sessionInformation <- function() { 1562s [00:52:42.591] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1562s [00:52:42.591] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1562s [00:52:42.591] search = base::search(), system = base::Sys.info()) 1562s [00:52:42.591] } 1562s [00:52:42.591] ...future.conditions[[length(...future.conditions) + 1562s [00:52:42.591] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1562s [00:52:42.591] cond$call), session = sessionInformation(), 1562s [00:52:42.591] timestamp = base::Sys.time(), signaled = 0L) 1562s [00:52:42.591] signalCondition(cond) 1562s [00:52:42.591] } 1562s [00:52:42.591] else if (!ignore && TRUE && inherits(cond, c("condition", 1562s [00:52:42.591] "immediateCondition"))) { 1562s [00:52:42.591] signal <- TRUE && inherits(cond, "immediateCondition") 1562s [00:52:42.591] ...future.conditions[[length(...future.conditions) + 1562s [00:52:42.591] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1562s [00:52:42.591] if (TRUE && !signal) { 1562s [00:52:42.591] muffleCondition <- function (cond, pattern = "^muffle") 1562s [00:52:42.591] { 1562s [00:52:42.591] inherits <- base::inherits 1562s [00:52:42.591] invokeRestart <- base::invokeRestart 1562s [00:52:42.591] is.null <- base::is.null 1562s [00:52:42.591] muffled <- FALSE 1562s [00:52:42.591] if (inherits(cond, "message")) { 1562s [00:52:42.591] muffled <- grepl(pattern, "muffleMessage") 1562s [00:52:42.591] if (muffled) 1562s [00:52:42.591] invokeRestart("muffleMessage") 1562s [00:52:42.591] } 1562s [00:52:42.591] else if (inherits(cond, "warning")) { 1562s [00:52:42.591] muffled <- grepl(pattern, "muffleWarning") 1562s [00:52:42.591] if (muffled) 1562s [00:52:42.591] invokeRestart("muffleWarning") 1562s [00:52:42.591] } 1562s [00:52:42.591] else if (inherits(cond, "condition")) { 1562s [00:52:42.591] if (!is.null(pattern)) { 1562s [00:52:42.591] computeRestarts <- base::computeRestarts 1562s [00:52:42.591] grepl <- base::grepl 1562s [00:52:42.591] restarts <- computeRestarts(cond) 1562s [00:52:42.591] for (restart in restarts) { 1562s [00:52:42.591] name <- restart$name 1562s [00:52:42.591] if (is.null(name)) 1562s [00:52:42.591] next 1562s [00:52:42.591] if (!grepl(pattern, name)) 1562s [00:52:42.591] next 1562s [00:52:42.591] invokeRestart(restart) 1562s [00:52:42.591] muffled <- TRUE 1562s [00:52:42.591] break 1562s [00:52:42.591] } 1562s [00:52:42.591] } 1562s [00:52:42.591] } 1562s [00:52:42.591] invisible(muffled) 1562s [00:52:42.591] } 1562s [00:52:42.591] muffleCondition(cond, pattern = "^muffle") 1562s [00:52:42.591] } 1562s [00:52:42.591] } 1562s [00:52:42.591] else { 1562s [00:52:42.591] if (TRUE) { 1562s [00:52:42.591] muffleCondition <- function (cond, pattern = "^muffle") 1562s [00:52:42.591] { 1562s [00:52:42.591] inherits <- base::inherits 1562s [00:52:42.591] invokeRestart <- base::invokeRestart 1562s [00:52:42.591] is.null <- base::is.null 1562s [00:52:42.591] muffled <- FALSE 1562s [00:52:42.591] if (inherits(cond, "message")) { 1562s [00:52:42.591] muffled <- grepl(pattern, "muffleMessage") 1562s [00:52:42.591] if (muffled) 1562s [00:52:42.591] invokeRestart("muffleMessage") 1562s [00:52:42.591] } 1562s [00:52:42.591] else if (inherits(cond, "warning")) { 1562s [00:52:42.591] muffled <- grepl(pattern, "muffleWarning") 1562s [00:52:42.591] if (muffled) 1562s [00:52:42.591] invokeRestart("muffleWarning") 1562s [00:52:42.591] } 1562s [00:52:42.591] else if (inherits(cond, "condition")) { 1562s [00:52:42.591] if (!is.null(pattern)) { 1562s [00:52:42.591] computeRestarts <- base::computeRestarts 1562s [00:52:42.591] grepl <- base::grepl 1562s [00:52:42.591] restarts <- computeRestarts(cond) 1562s [00:52:42.591] for (restart in restarts) { 1562s [00:52:42.591] name <- restart$name 1562s [00:52:42.591] if (is.null(name)) 1562s [00:52:42.591] next 1562s [00:52:42.591] if (!grepl(pattern, name)) 1562s [00:52:42.591] next 1562s [00:52:42.591] invokeRestart(restart) 1562s [00:52:42.591] muffled <- TRUE 1562s [00:52:42.591] break 1562s [00:52:42.591] } 1562s [00:52:42.591] } 1562s [00:52:42.591] } 1562s [00:52:42.591] invisible(muffled) 1562s [00:52:42.591] } 1562s [00:52:42.591] muffleCondition(cond, pattern = "^muffle") 1562s [00:52:42.591] } 1562s [00:52:42.591] } 1562s [00:52:42.591] } 1562s [00:52:42.591] })) 1562s [00:52:42.591] }, error = function(ex) { 1562s [00:52:42.591] base::structure(base::list(value = NULL, visible = NULL, 1562s [00:52:42.591] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1562s [00:52:42.591] ...future.rng), started = ...future.startTime, 1562s [00:52:42.591] finished = Sys.time(), session_uuid = NA_character_, 1562s [00:52:42.591] version = "1.8"), class = "FutureResult") 1562s [00:52:42.591] }, finally = { 1562s [00:52:42.591] if (!identical(...future.workdir, getwd())) 1562s [00:52:42.591] setwd(...future.workdir) 1562s [00:52:42.591] { 1562s [00:52:42.591] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1562s [00:52:42.591] ...future.oldOptions$nwarnings <- NULL 1562s [00:52:42.591] } 1562s [00:52:42.591] base::options(...future.oldOptions) 1562s [00:52:42.591] if (.Platform$OS.type == "windows") { 1562s [00:52:42.591] old_names <- names(...future.oldEnvVars) 1562s [00:52:42.591] envs <- base::Sys.getenv() 1562s [00:52:42.591] names <- names(envs) 1562s [00:52:42.591] common <- intersect(names, old_names) 1562s [00:52:42.591] added <- setdiff(names, old_names) 1562s [00:52:42.591] removed <- setdiff(old_names, names) 1562s [00:52:42.591] changed <- common[...future.oldEnvVars[common] != 1562s [00:52:42.591] envs[common]] 1562s [00:52:42.591] NAMES <- toupper(changed) 1562s [00:52:42.591] args <- list() 1562s [00:52:42.591] for (kk in seq_along(NAMES)) { 1562s [00:52:42.591] name <- changed[[kk]] 1562s [00:52:42.591] NAME <- NAMES[[kk]] 1562s [00:52:42.591] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.591] next 1562s [00:52:42.591] args[[name]] <- ...future.oldEnvVars[[name]] 1562s [00:52:42.591] } 1562s [00:52:42.591] NAMES <- toupper(added) 1562s [00:52:42.591] for (kk in seq_along(NAMES)) { 1562s [00:52:42.591] name <- added[[kk]] 1562s [00:52:42.591] NAME <- NAMES[[kk]] 1562s [00:52:42.591] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.591] next 1562s [00:52:42.591] args[[name]] <- "" 1562s [00:52:42.591] } 1562s [00:52:42.591] NAMES <- toupper(removed) 1562s [00:52:42.591] for (kk in seq_along(NAMES)) { 1562s [00:52:42.591] name <- removed[[kk]] 1562s [00:52:42.591] NAME <- NAMES[[kk]] 1562s [00:52:42.591] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.591] next 1562s [00:52:42.591] args[[name]] <- ...future.oldEnvVars[[name]] 1562s [00:52:42.591] } 1562s [00:52:42.591] if (length(args) > 0) 1562s [00:52:42.591] base::do.call(base::Sys.setenv, args = args) 1562s [00:52:42.591] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1562s [00:52:42.591] } 1562s [00:52:42.591] else { 1562s [00:52:42.591] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1562s [00:52:42.591] } 1562s [00:52:42.591] { 1562s [00:52:42.591] if (base::length(...future.futureOptionsAdded) > 1562s [00:52:42.591] 0L) { 1562s [00:52:42.591] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1562s [00:52:42.591] base::names(opts) <- ...future.futureOptionsAdded 1562s [00:52:42.591] base::options(opts) 1562s [00:52:42.591] } 1562s [00:52:42.591] { 1562s [00:52:42.591] { 1562s [00:52:42.591] base::assign(".Random.seed", c(10407L, 2079749599L, 1562s [00:52:42.591] -1712504007L, 90762767L, 511132818L, -526970845L, 1562s [00:52:42.591] -1057805512L), envir = base::globalenv(), 1562s [00:52:42.591] inherits = FALSE) 1562s [00:52:42.591] NULL 1562s [00:52:42.591] } 1562s [00:52:42.591] options(future.plan = NULL) 1562s [00:52:42.591] if (is.na(NA_character_)) 1562s [00:52:42.591] Sys.unsetenv("R_FUTURE_PLAN") 1562s [00:52:42.591] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1562s [00:52:42.591] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1562s [00:52:42.591] envir = parent.frame()) 1562s [00:52:42.591] { 1562s [00:52:42.591] default_workers <- missing(workers) 1562s [00:52:42.591] if (is.function(workers)) 1562s [00:52:42.591] workers <- workers() 1562s [00:52:42.591] workers <- structure(as.integer(workers), 1562s [00:52:42.591] class = class(workers)) 1562s [00:52:42.591] stop_if_not(is.finite(workers), workers >= 1562s [00:52:42.591] 1L) 1562s [00:52:42.591] if ((workers == 1L && !inherits(workers, 1562s [00:52:42.591] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1562s [00:52:42.591] if (default_workers) 1562s [00:52:42.591] supportsMulticore(warn = TRUE) 1562s [00:52:42.591] return(sequential(..., envir = envir)) 1562s [00:52:42.591] } 1562s [00:52:42.591] oopts <- options(mc.cores = workers) 1562s [00:52:42.591] on.exit(options(oopts)) 1562s [00:52:42.591] future <- MulticoreFuture(..., workers = workers, 1562s [00:52:42.591] envir = envir) 1562s [00:52:42.591] if (!future$lazy) 1562s [00:52:42.591] future <- run(future) 1562s [00:52:42.591] invisible(future) 1562s [00:52:42.591] }), .cleanup = FALSE, .init = FALSE) 1562s [00:52:42.591] } 1562s [00:52:42.591] } 1562s [00:52:42.591] } 1562s [00:52:42.591] }) 1562s [00:52:42.591] if (TRUE) { 1562s [00:52:42.591] base::sink(type = "output", split = FALSE) 1562s [00:52:42.591] if (TRUE) { 1562s [00:52:42.591] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1562s [00:52:42.591] } 1562s [00:52:42.591] else { 1562s [00:52:42.591] ...future.result["stdout"] <- base::list(NULL) 1562s [00:52:42.591] } 1562s [00:52:42.591] base::close(...future.stdout) 1562s [00:52:42.591] ...future.stdout <- NULL 1562s [00:52:42.591] } 1562s [00:52:42.591] ...future.result$conditions <- ...future.conditions 1562s [00:52:42.591] ...future.result$finished <- base::Sys.time() 1562s [00:52:42.591] ...future.result 1562s [00:52:42.591] } 1562s [00:52:42.594] assign_globals() ... 1562s [00:52:42.595] List of 5 1562s [00:52:42.595] $ ...future.FUN :function (C, k) 1562s [00:52:42.595] $ MoreArgs : list() 1562s [00:52:42.595] $ ...future.elements_ii :List of 2 1562s [00:52:42.595] ..$ :List of 5 1562s [00:52:42.595] .. ..$ : chr "A" 1562s [00:52:42.595] .. ..$ : chr "B" 1562s [00:52:42.595] .. ..$ : chr "C" 1562s [00:52:42.595] .. ..$ : chr "D" 1562s [00:52:42.595] .. ..$ : chr "E" 1562s [00:52:42.595] ..$ :List of 5 1562s [00:52:42.595] .. ..$ : int 5 1562s [00:52:42.595] .. ..$ : int 4 1562s [00:52:42.595] .. ..$ : int 3 1562s [00:52:42.595] .. ..$ : int 2 1562s [00:52:42.595] .. ..$ : int 1 1562s [00:52:42.595] $ ...future.seeds_ii : NULL 1562s [00:52:42.595] $ ...future.globals.maxSize: NULL 1562s [00:52:42.595] - attr(*, "where")=List of 5 1562s [00:52:42.595] ..$ ...future.FUN : 1562s [00:52:42.595] ..$ MoreArgs : 1562s [00:52:42.595] ..$ ...future.elements_ii : 1562s [00:52:42.595] ..$ ...future.seeds_ii : 1562s [00:52:42.595] ..$ ...future.globals.maxSize: 1562s [00:52:42.595] - attr(*, "resolved")= logi FALSE 1562s [00:52:42.595] - attr(*, "total_size")= num 4160 1562s [00:52:42.595] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1562s [00:52:42.595] - attr(*, "already-done")= logi TRUE 1562s [00:52:42.606] - reassign environment for ‘...future.FUN’ 1562s [00:52:42.606] - copied ‘...future.FUN’ to environment 1562s [00:52:42.606] - copied ‘MoreArgs’ to environment 1562s [00:52:42.606] - copied ‘...future.elements_ii’ to environment 1562s [00:52:42.607] - copied ‘...future.seeds_ii’ to environment 1562s [00:52:42.607] - copied ‘...future.globals.maxSize’ to environment 1562s [00:52:42.610] assign_globals() ... done 1562s [00:52:42.610] plan(): Setting new future strategy stack: 1562s [00:52:42.610] List of future strategies: 1562s [00:52:42.610] 1. sequential: 1562s [00:52:42.610] - args: function (..., envir = parent.frame()) 1562s [00:52:42.610] - tweaked: FALSE 1562s [00:52:42.610] - call: NULL 1562s [00:52:42.611] plan(): nbrOfWorkers() = 1 1562s [00:52:42.612] plan(): Setting new future strategy stack: 1562s [00:52:42.613] List of future strategies: 1562s [00:52:42.613] 1. multicore: 1562s [00:52:42.613] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1562s [00:52:42.613] - tweaked: FALSE 1562s [00:52:42.613] - call: plan(strategy) 1562s [00:52:42.617] plan(): nbrOfWorkers() = 1 1562s [00:52:42.618] SequentialFuture started (and completed) 1562s [00:52:42.618] - Launch lazy future ... done 1562s [00:52:42.618] run() for ‘SequentialFuture’ ... done 1562s [00:52:42.619] Created future: 1562s [00:52:42.619] SequentialFuture: 1562s [00:52:42.619] Label: ‘future_.mapply-1’ 1562s [00:52:42.619] Expression: 1562s [00:52:42.619] { 1562s [00:52:42.619] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1562s [00:52:42.619] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1562s [00:52:42.619] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1562s [00:52:42.619] on.exit(options(oopts), add = TRUE) 1562s [00:52:42.619] } 1562s [00:52:42.619] { 1562s [00:52:42.619] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1562s [00:52:42.619] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1562s [00:52:42.619] do.call(mapply, args = args) 1562s [00:52:42.619] } 1562s [00:52:42.619] } 1562s [00:52:42.619] Lazy evaluation: FALSE 1562s [00:52:42.619] Asynchronous evaluation: FALSE 1562s [00:52:42.619] Local evaluation: TRUE 1562s [00:52:42.619] Environment: R_GlobalEnv 1562s [00:52:42.619] Capture standard output: TRUE 1562s [00:52:42.619] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1562s [00:52:42.619] Globals: 5 objects totaling 4.06 KiB (function ‘...future.FUN’ of 3.24 KiB, list ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 840 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1562s [00:52:42.619] Packages: 1562s [00:52:42.619] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1562s [00:52:42.619] Resolved: TRUE 1562s [00:52:42.619] Value: 560 bytes of class ‘list’ 1562s [00:52:42.619] Early signaling: FALSE 1562s [00:52:42.619] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1562s [00:52:42.619] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1562s [00:52:42.621] Chunk #1 of 1 ... DONE 1562s [00:52:42.621] Launching 1 futures (chunks) ... DONE 1562s [00:52:42.621] Resolving 1 futures (chunks) ... 1562s [00:52:42.621] resolve() on list ... 1562s [00:52:42.622] recursive: 0 1562s [00:52:42.622] length: 1 1562s [00:52:42.622] 1562s [00:52:42.622] resolved() for ‘SequentialFuture’ ... 1562s [00:52:42.622] - state: ‘finished’ 1562s [00:52:42.622] - run: TRUE 1562s [00:52:42.623] - result: ‘FutureResult’ 1562s [00:52:42.623] resolved() for ‘SequentialFuture’ ... done 1562s [00:52:42.623] Future #1 1562s [00:52:42.623] signalConditionsASAP(SequentialFuture, pos=1) ... 1562s [00:52:42.623] - nx: 1 1562s [00:52:42.623] - relay: TRUE 1562s [00:52:42.623] - stdout: TRUE 1562s [00:52:42.624] - signal: TRUE 1562s [00:52:42.624] - resignal: FALSE 1562s [00:52:42.624] - force: TRUE 1562s [00:52:42.624] - relayed: [n=1] FALSE 1562s [00:52:42.624] - queued futures: [n=1] FALSE 1562s [00:52:42.624] - until=1 1562s [00:52:42.624] - relaying element #1 1562s [00:52:42.625] - relayed: [n=1] TRUE 1562s [00:52:42.625] - queued futures: [n=1] TRUE 1562s [00:52:42.625] signalConditionsASAP(SequentialFuture, pos=1) ... done 1562s [00:52:42.625] length: 0 (resolved future 1) 1562s [00:52:42.625] Relaying remaining futures 1562s [00:52:42.625] signalConditionsASAP(NULL, pos=0) ... 1562s [00:52:42.625] - nx: 1 1562s [00:52:42.625] - relay: TRUE 1562s [00:52:42.625] - stdout: TRUE 1562s [00:52:42.626] - signal: TRUE 1562s [00:52:42.626] - resignal: FALSE 1562s [00:52:42.626] - force: TRUE 1562s [00:52:42.626] - relayed: [n=1] TRUE 1562s [00:52:42.626] - queued futures: [n=1] TRUE 1562s - flush all 1562s [00:52:42.626] - relayed: [n=1] TRUE 1562s [00:52:42.626] - queued futures: [n=1] TRUE 1562s [00:52:42.626] signalConditionsASAP(NULL, pos=0) ... done 1562s [00:52:42.627] resolve() on list ... DONE 1562s [00:52:42.627] - Number of value chunks collected: 1 1562s [00:52:42.627] Resolving 1 futures (chunks) ... DONE 1562s [00:52:42.627] Reducing values from 1 chunks ... 1562s [00:52:42.627] - Number of values collected after concatenation: 5 1562s [00:52:42.627] - Number of values expected: 5 1562s [00:52:42.627] Reducing values from 1 chunks ... DONE 1562s [00:52:42.627] future_mapply() ... DONE 1562s [00:52:42.628] future_mapply() ... 1562s [00:52:42.631] Number of chunks: 2 1562s [00:52:42.631] Index remapping (attribute 'ordering'): [n = 5] 5, 4, 3, 2, 1 1562s [00:52:42.632] getGlobalsAndPackagesXApply() ... 1562s [00:52:42.632] - future.globals: TRUE 1562s [00:52:42.632] getGlobalsAndPackages() ... 1562s [00:52:42.632] Searching for globals... 1562s [00:52:42.634] - globals found: [3] ‘FUN’, ‘paste’, ‘rep.int’ 1562s [00:52:42.634] Searching for globals ... DONE 1562s [00:52:42.634] Resolving globals: FALSE 1562s [00:52:42.635] The total size of the 1 globals is 3.24 KiB (3320 bytes) 1562s [00:52:42.635] The total size of the 1 globals exported for future expression (‘FUN()’) is 3.24 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (3.24 KiB of class ‘function’) 1562s [00:52:42.635] - globals: [1] ‘FUN’ 1562s [00:52:42.636] 1562s [00:52:42.636] getGlobalsAndPackages() ... DONE 1562s [00:52:42.636] - globals found/used: [n=1] ‘FUN’ 1562s [00:52:42.636] - needed namespaces: [n=0] 1562s [00:52:42.636] Finding globals ... DONE 1562s [00:52:42.636] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1562s [00:52:42.637] List of 2 1562s [00:52:42.637] $ ...future.FUN:function (C, k) 1562s [00:52:42.637] $ MoreArgs : NULL 1562s [00:52:42.637] - attr(*, "where")=List of 2 1562s [00:52:42.637] ..$ ...future.FUN: 1562s [00:52:42.637] ..$ MoreArgs : 1562s [00:52:42.637] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1562s [00:52:42.637] - attr(*, "resolved")= logi FALSE 1562s [00:52:42.637] - attr(*, "total_size")= num NA 1562s [00:52:42.640] Packages to be attached in all futures: [n=0] 1562s [00:52:42.640] getGlobalsAndPackagesXApply() ... DONE 1562s [00:52:42.641] Number of futures (= number of chunks): 2 1562s [00:52:42.641] Launching 2 futures (chunks) ... 1562s [00:52:42.641] Chunk #1 of 2 ... 1562s [00:52:42.641] - Finding globals in '...' for chunk #1 ... 1562s [00:52:42.642] getGlobalsAndPackages() ... 1562s [00:52:42.642] Searching for globals... 1562s [00:52:42.642] 1562s [00:52:42.642] Searching for globals ... DONE 1562s [00:52:42.642] - globals: [0] 1562s [00:52:42.643] getGlobalsAndPackages() ... DONE 1562s [00:52:42.643] + additional globals found: [n=0] 1562s [00:52:42.643] + additional namespaces needed: [n=0] 1562s [00:52:42.643] - Finding globals in '...' for chunk #1 ... DONE 1562s [00:52:42.643] - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes) 1562s [00:52:42.643] - seeds: 1562s [00:52:42.643] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.644] getGlobalsAndPackages() ... 1562s [00:52:42.644] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.644] Resolving globals: FALSE 1562s [00:52:42.645] The total size of the 5 globals is 3.57 KiB (3656 bytes) 1562s [00:52:42.645] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 3.57 KiB.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (3.24 KiB of class ‘function’), ‘...future.elements_ii’ (336 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1562s [00:52:42.646] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.646] 1562s [00:52:42.646] getGlobalsAndPackages() ... DONE 1562s [00:52:42.648] run() for ‘Future’ ... 1562s [00:52:42.649] - state: ‘created’ 1562s [00:52:42.649] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1562s [00:52:42.653] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1562s [00:52:42.653] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1562s [00:52:42.653] - Field: ‘label’ 1562s [00:52:42.654] - Field: ‘local’ 1562s [00:52:42.655] - Field: ‘owner’ 1562s [00:52:42.655] - Field: ‘envir’ 1562s [00:52:42.655] - Field: ‘packages’ 1562s [00:52:42.655] - Field: ‘gc’ 1562s [00:52:42.655] - Field: ‘conditions’ 1562s [00:52:42.655] - Field: ‘expr’ 1562s [00:52:42.656] - Field: ‘uuid’ 1562s [00:52:42.656] - Field: ‘seed’ 1562s [00:52:42.656] - Field: ‘version’ 1562s [00:52:42.656] - Field: ‘result’ 1562s [00:52:42.656] - Field: ‘asynchronous’ 1562s [00:52:42.656] - Field: ‘calls’ 1562s [00:52:42.657] - Field: ‘globals’ 1562s [00:52:42.657] - Field: ‘stdout’ 1562s [00:52:42.657] - Field: ‘earlySignal’ 1562s [00:52:42.657] - Field: ‘lazy’ 1562s [00:52:42.657] - Field: ‘state’ 1562s [00:52:42.657] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1562s [00:52:42.658] - Launch lazy future ... 1562s [00:52:42.658] Packages needed by the future expression (n = 0): 1562s [00:52:42.658] Packages needed by future strategies (n = 0): 1562s [00:52:42.659] { 1562s [00:52:42.659] { 1562s [00:52:42.659] { 1562s [00:52:42.659] ...future.startTime <- base::Sys.time() 1562s [00:52:42.659] { 1562s [00:52:42.659] { 1562s [00:52:42.659] { 1562s [00:52:42.659] base::local({ 1562s [00:52:42.659] has_future <- base::requireNamespace("future", 1562s [00:52:42.659] quietly = TRUE) 1562s [00:52:42.659] if (has_future) { 1562s [00:52:42.659] ns <- base::getNamespace("future") 1562s [00:52:42.659] version <- ns[[".package"]][["version"]] 1562s [00:52:42.659] if (is.null(version)) 1562s [00:52:42.659] version <- utils::packageVersion("future") 1562s [00:52:42.659] } 1562s [00:52:42.659] else { 1562s [00:52:42.659] version <- NULL 1562s [00:52:42.659] } 1562s [00:52:42.659] if (!has_future || version < "1.8.0") { 1562s [00:52:42.659] info <- base::c(r_version = base::gsub("R version ", 1562s [00:52:42.659] "", base::R.version$version.string), 1562s [00:52:42.659] platform = base::sprintf("%s (%s-bit)", 1562s [00:52:42.659] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1562s [00:52:42.659] os = base::paste(base::Sys.info()[base::c("sysname", 1562s [00:52:42.659] "release", "version")], collapse = " "), 1562s [00:52:42.659] hostname = base::Sys.info()[["nodename"]]) 1562s [00:52:42.659] info <- base::sprintf("%s: %s", base::names(info), 1562s [00:52:42.659] info) 1562s [00:52:42.659] info <- base::paste(info, collapse = "; ") 1562s [00:52:42.659] if (!has_future) { 1562s [00:52:42.659] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1562s [00:52:42.659] info) 1562s [00:52:42.659] } 1562s [00:52:42.659] else { 1562s [00:52:42.659] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1562s [00:52:42.659] info, version) 1562s [00:52:42.659] } 1562s [00:52:42.659] base::stop(msg) 1562s [00:52:42.659] } 1562s [00:52:42.659] }) 1562s [00:52:42.659] } 1562s [00:52:42.659] options(future.plan = NULL) 1562s [00:52:42.659] Sys.unsetenv("R_FUTURE_PLAN") 1562s [00:52:42.659] future::plan("default", .cleanup = FALSE, .init = FALSE) 1562s [00:52:42.659] } 1562s [00:52:42.659] ...future.workdir <- getwd() 1562s [00:52:42.659] } 1562s [00:52:42.659] ...future.oldOptions <- base::as.list(base::.Options) 1562s [00:52:42.659] ...future.oldEnvVars <- base::Sys.getenv() 1562s [00:52:42.659] } 1562s [00:52:42.659] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1562s [00:52:42.659] future.globals.maxSize = 1048576000, future.globals.method = NULL, 1562s [00:52:42.659] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1562s [00:52:42.659] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1562s [00:52:42.659] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1562s [00:52:42.659] future.stdout.windows.reencode = NULL, width = 80L) 1562s [00:52:42.659] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1562s [00:52:42.659] base::names(...future.oldOptions)) 1562s [00:52:42.659] } 1562s [00:52:42.659] if (FALSE) { 1562s [00:52:42.659] } 1562s [00:52:42.659] else { 1562s [00:52:42.659] if (TRUE) { 1562s [00:52:42.659] ...future.stdout <- base::rawConnection(base::raw(0L), 1562s [00:52:42.659] open = "w") 1562s [00:52:42.659] } 1562s [00:52:42.659] else { 1562s [00:52:42.659] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1562s [00:52:42.659] windows = "NUL", "/dev/null"), open = "w") 1562s [00:52:42.659] } 1562s [00:52:42.659] base::sink(...future.stdout, type = "output", split = FALSE) 1562s [00:52:42.659] base::on.exit(if (!base::is.null(...future.stdout)) { 1562s [00:52:42.659] base::sink(type = "output", split = FALSE) 1562s [00:52:42.659] base::close(...future.stdout) 1562s [00:52:42.659] }, add = TRUE) 1562s [00:52:42.659] } 1562s [00:52:42.659] ...future.frame <- base::sys.nframe() 1562s [00:52:42.659] ...future.conditions <- base::list() 1562s [00:52:42.659] ...future.rng <- base::globalenv()$.Random.seed 1562s [00:52:42.659] if (FALSE) { 1562s [00:52:42.659] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1562s [00:52:42.659] "...future.value", "...future.globalenv.names", ".Random.seed") 1562s [00:52:42.659] } 1562s [00:52:42.659] ...future.result <- base::tryCatch({ 1562s [00:52:42.659] base::withCallingHandlers({ 1562s [00:52:42.659] ...future.value <- base::withVisible(base::local({ 1562s [00:52:42.659] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1562s [00:52:42.659] if (!identical(...future.globals.maxSize.org, 1562s [00:52:42.659] ...future.globals.maxSize)) { 1562s [00:52:42.659] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1562s [00:52:42.659] on.exit(options(oopts), add = TRUE) 1562s [00:52:42.659] } 1562s [00:52:42.659] { 1562s [00:52:42.659] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1562s [00:52:42.659] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1562s [00:52:42.659] USE.NAMES = FALSE) 1562s [00:52:42.659] do.call(mapply, args = args) 1562s [00:52:42.659] } 1562s [00:52:42.659] })) 1562s [00:52:42.659] future::FutureResult(value = ...future.value$value, 1562s [00:52:42.659] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1562s [00:52:42.659] ...future.rng), globalenv = if (FALSE) 1562s [00:52:42.659] list(added = base::setdiff(base::names(base::.GlobalEnv), 1562s [00:52:42.659] ...future.globalenv.names)) 1562s [00:52:42.659] else NULL, started = ...future.startTime, version = "1.8") 1562s [00:52:42.659] }, condition = base::local({ 1562s [00:52:42.659] c <- base::c 1562s [00:52:42.659] inherits <- base::inherits 1562s [00:52:42.659] invokeRestart <- base::invokeRestart 1562s [00:52:42.659] length <- base::length 1562s [00:52:42.659] list <- base::list 1562s [00:52:42.659] seq.int <- base::seq.int 1562s [00:52:42.659] signalCondition <- base::signalCondition 1562s [00:52:42.659] sys.calls <- base::sys.calls 1562s [00:52:42.659] `[[` <- base::`[[` 1562s [00:52:42.659] `+` <- base::`+` 1562s [00:52:42.659] `<<-` <- base::`<<-` 1562s [00:52:42.659] sysCalls <- function(calls = sys.calls(), from = 1L) { 1562s [00:52:42.659] calls[seq.int(from = from + 12L, to = length(calls) - 1562s [00:52:42.659] 3L)] 1562s [00:52:42.659] } 1562s [00:52:42.659] function(cond) { 1562s [00:52:42.659] is_error <- inherits(cond, "error") 1562s [00:52:42.659] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1562s [00:52:42.659] NULL) 1562s [00:52:42.659] if (is_error) { 1562s [00:52:42.659] sessionInformation <- function() { 1562s [00:52:42.659] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1562s [00:52:42.659] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1562s [00:52:42.659] search = base::search(), system = base::Sys.info()) 1562s [00:52:42.659] } 1562s [00:52:42.659] ...future.conditions[[length(...future.conditions) + 1562s [00:52:42.659] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1562s [00:52:42.659] cond$call), session = sessionInformation(), 1562s [00:52:42.659] timestamp = base::Sys.time(), signaled = 0L) 1562s [00:52:42.659] signalCondition(cond) 1562s [00:52:42.659] } 1562s [00:52:42.659] else if (!ignore && TRUE && inherits(cond, c("condition", 1562s [00:52:42.659] "immediateCondition"))) { 1562s [00:52:42.659] signal <- TRUE && inherits(cond, "immediateCondition") 1562s [00:52:42.659] ...future.conditions[[length(...future.conditions) + 1562s [00:52:42.659] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1562s [00:52:42.659] if (TRUE && !signal) { 1562s [00:52:42.659] muffleCondition <- function (cond, pattern = "^muffle") 1562s [00:52:42.659] { 1562s [00:52:42.659] inherits <- base::inherits 1562s [00:52:42.659] invokeRestart <- base::invokeRestart 1562s [00:52:42.659] is.null <- base::is.null 1562s [00:52:42.659] muffled <- FALSE 1562s [00:52:42.659] if (inherits(cond, "message")) { 1562s [00:52:42.659] muffled <- grepl(pattern, "muffleMessage") 1562s [00:52:42.659] if (muffled) 1562s [00:52:42.659] invokeRestart("muffleMessage") 1562s [00:52:42.659] } 1562s [00:52:42.659] else if (inherits(cond, "warning")) { 1562s [00:52:42.659] muffled <- grepl(pattern, "muffleWarning") 1562s [00:52:42.659] if (muffled) 1562s [00:52:42.659] invokeRestart("muffleWarning") 1562s [00:52:42.659] } 1562s [00:52:42.659] else if (inherits(cond, "condition")) { 1562s [00:52:42.659] if (!is.null(pattern)) { 1562s [00:52:42.659] computeRestarts <- base::computeRestarts 1562s [00:52:42.659] grepl <- base::grepl 1562s [00:52:42.659] restarts <- computeRestarts(cond) 1562s [00:52:42.659] for (restart in restarts) { 1562s [00:52:42.659] name <- restart$name 1562s [00:52:42.659] if (is.null(name)) 1562s [00:52:42.659] next 1562s [00:52:42.659] if (!grepl(pattern, name)) 1562s [00:52:42.659] next 1562s [00:52:42.659] invokeRestart(restart) 1562s [00:52:42.659] muffled <- TRUE 1562s [00:52:42.659] break 1562s [00:52:42.659] } 1562s [00:52:42.659] } 1562s [00:52:42.659] } 1562s [00:52:42.659] invisible(muffled) 1562s [00:52:42.659] } 1562s [00:52:42.659] muffleCondition(cond, pattern = "^muffle") 1562s [00:52:42.659] } 1562s [00:52:42.659] } 1562s [00:52:42.659] else { 1562s [00:52:42.659] if (TRUE) { 1562s [00:52:42.659] muffleCondition <- function (cond, pattern = "^muffle") 1562s [00:52:42.659] { 1562s [00:52:42.659] inherits <- base::inherits 1562s [00:52:42.659] invokeRestart <- base::invokeRestart 1562s [00:52:42.659] is.null <- base::is.null 1562s [00:52:42.659] muffled <- FALSE 1562s [00:52:42.659] if (inherits(cond, "message")) { 1562s [00:52:42.659] muffled <- grepl(pattern, "muffleMessage") 1562s [00:52:42.659] if (muffled) 1562s [00:52:42.659] invokeRestart("muffleMessage") 1562s [00:52:42.659] } 1562s [00:52:42.659] else if (inherits(cond, "warning")) { 1562s [00:52:42.659] muffled <- grepl(pattern, "muffleWarning") 1562s [00:52:42.659] if (muffled) 1562s [00:52:42.659] invokeRestart("muffleWarning") 1562s [00:52:42.659] } 1562s [00:52:42.659] else if (inherits(cond, "condition")) { 1562s [00:52:42.659] if (!is.null(pattern)) { 1562s [00:52:42.659] computeRestarts <- base::computeRestarts 1562s [00:52:42.659] grepl <- base::grepl 1562s [00:52:42.659] restarts <- computeRestarts(cond) 1562s [00:52:42.659] for (restart in restarts) { 1562s [00:52:42.659] name <- restart$name 1562s [00:52:42.659] if (is.null(name)) 1562s [00:52:42.659] next 1562s [00:52:42.659] if (!grepl(pattern, name)) 1562s [00:52:42.659] next 1562s [00:52:42.659] invokeRestart(restart) 1562s [00:52:42.659] muffled <- TRUE 1562s [00:52:42.659] break 1562s [00:52:42.659] } 1562s [00:52:42.659] } 1562s [00:52:42.659] } 1562s [00:52:42.659] invisible(muffled) 1562s [00:52:42.659] } 1562s [00:52:42.659] muffleCondition(cond, pattern = "^muffle") 1562s [00:52:42.659] } 1562s [00:52:42.659] } 1562s [00:52:42.659] } 1562s [00:52:42.659] })) 1562s [00:52:42.659] }, error = function(ex) { 1562s [00:52:42.659] base::structure(base::list(value = NULL, visible = NULL, 1562s [00:52:42.659] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1562s [00:52:42.659] ...future.rng), started = ...future.startTime, 1562s [00:52:42.659] finished = Sys.time(), session_uuid = NA_character_, 1562s [00:52:42.659] version = "1.8"), class = "FutureResult") 1562s [00:52:42.659] }, finally = { 1562s [00:52:42.659] if (!identical(...future.workdir, getwd())) 1562s [00:52:42.659] setwd(...future.workdir) 1562s [00:52:42.659] { 1562s [00:52:42.659] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1562s [00:52:42.659] ...future.oldOptions$nwarnings <- NULL 1562s [00:52:42.659] } 1562s [00:52:42.659] base::options(...future.oldOptions) 1562s [00:52:42.659] if (.Platform$OS.type == "windows") { 1562s [00:52:42.659] old_names <- names(...future.oldEnvVars) 1562s [00:52:42.659] envs <- base::Sys.getenv() 1562s [00:52:42.659] names <- names(envs) 1562s [00:52:42.659] common <- intersect(names, old_names) 1562s [00:52:42.659] added <- setdiff(names, old_names) 1562s [00:52:42.659] removed <- setdiff(old_names, names) 1562s [00:52:42.659] changed <- common[...future.oldEnvVars[common] != 1562s [00:52:42.659] envs[common]] 1562s [00:52:42.659] NAMES <- toupper(changed) 1562s [00:52:42.659] args <- list() 1562s [00:52:42.659] for (kk in seq_along(NAMES)) { 1562s [00:52:42.659] name <- changed[[kk]] 1562s [00:52:42.659] NAME <- NAMES[[kk]] 1562s [00:52:42.659] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.659] next 1562s [00:52:42.659] args[[name]] <- ...future.oldEnvVars[[name]] 1562s [00:52:42.659] } 1562s [00:52:42.659] NAMES <- toupper(added) 1562s [00:52:42.659] for (kk in seq_along(NAMES)) { 1562s [00:52:42.659] name <- added[[kk]] 1562s [00:52:42.659] NAME <- NAMES[[kk]] 1562s [00:52:42.659] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.659] next 1562s [00:52:42.659] args[[name]] <- "" 1562s [00:52:42.659] } 1562s [00:52:42.659] NAMES <- toupper(removed) 1562s [00:52:42.659] for (kk in seq_along(NAMES)) { 1562s [00:52:42.659] name <- removed[[kk]] 1562s [00:52:42.659] NAME <- NAMES[[kk]] 1562s [00:52:42.659] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.659] next 1562s [00:52:42.659] args[[name]] <- ...future.oldEnvVars[[name]] 1562s [00:52:42.659] } 1562s [00:52:42.659] if (length(args) > 0) 1562s [00:52:42.659] base::do.call(base::Sys.setenv, args = args) 1562s [00:52:42.659] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1562s [00:52:42.659] } 1562s [00:52:42.659] else { 1562s [00:52:42.659] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1562s [00:52:42.659] } 1562s [00:52:42.659] { 1562s [00:52:42.659] if (base::length(...future.futureOptionsAdded) > 1562s [00:52:42.659] 0L) { 1562s [00:52:42.659] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1562s [00:52:42.659] base::names(opts) <- ...future.futureOptionsAdded 1562s [00:52:42.659] base::options(opts) 1562s [00:52:42.659] } 1562s [00:52:42.659] { 1562s [00:52:42.659] { 1562s [00:52:42.659] base::assign(".Random.seed", c(10407L, 2079749599L, 1562s [00:52:42.659] -1712504007L, 90762767L, 511132818L, -526970845L, 1562s [00:52:42.659] -1057805512L), envir = base::globalenv(), 1562s [00:52:42.659] inherits = FALSE) 1562s [00:52:42.659] NULL 1562s [00:52:42.659] } 1562s [00:52:42.659] options(future.plan = NULL) 1562s [00:52:42.659] if (is.na(NA_character_)) 1562s [00:52:42.659] Sys.unsetenv("R_FUTURE_PLAN") 1562s [00:52:42.659] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1562s [00:52:42.659] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1562s [00:52:42.659] envir = parent.frame()) 1562s [00:52:42.659] { 1562s [00:52:42.659] default_workers <- missing(workers) 1562s [00:52:42.659] if (is.function(workers)) 1562s [00:52:42.659] workers <- workers() 1562s [00:52:42.659] workers <- structure(as.integer(workers), 1562s [00:52:42.659] class = class(workers)) 1562s [00:52:42.659] stop_if_not(is.finite(workers), workers >= 1562s [00:52:42.659] 1L) 1562s [00:52:42.659] if ((workers == 1L && !inherits(workers, 1562s [00:52:42.659] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1562s [00:52:42.659] if (default_workers) 1562s [00:52:42.659] supportsMulticore(warn = TRUE) 1562s [00:52:42.659] return(sequential(..., envir = envir)) 1562s [00:52:42.659] } 1562s [00:52:42.659] oopts <- options(mc.cores = workers) 1562s [00:52:42.659] on.exit(options(oopts)) 1562s [00:52:42.659] future <- MulticoreFuture(..., workers = workers, 1562s [00:52:42.659] envir = envir) 1562s [00:52:42.659] if (!future$lazy) 1562s [00:52:42.659] future <- run(future) 1562s [00:52:42.659] invisible(future) 1562s [00:52:42.659] }), .cleanup = FALSE, .init = FALSE) 1562s [00:52:42.659] } 1562s [00:52:42.659] } 1562s [00:52:42.659] } 1562s [00:52:42.659] }) 1562s [00:52:42.659] if (TRUE) { 1562s [00:52:42.659] base::sink(type = "output", split = FALSE) 1562s [00:52:42.659] if (TRUE) { 1562s [00:52:42.659] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1562s [00:52:42.659] } 1562s [00:52:42.659] else { 1562s [00:52:42.659] ...future.result["stdout"] <- base::list(NULL) 1562s [00:52:42.659] } 1562s [00:52:42.659] base::close(...future.stdout) 1562s [00:52:42.659] ...future.stdout <- NULL 1562s [00:52:42.659] } 1562s [00:52:42.659] ...future.result$conditions <- ...future.conditions 1562s [00:52:42.659] ...future.result$finished <- base::Sys.time() 1562s [00:52:42.659] ...future.result 1562s [00:52:42.659] } 1562s [00:52:42.666] assign_globals() ... 1562s [00:52:42.666] List of 5 1562s [00:52:42.666] $ ...future.FUN :function (C, k) 1562s [00:52:42.666] $ MoreArgs : NULL 1562s [00:52:42.666] $ ...future.elements_ii :List of 2 1562s [00:52:42.666] ..$ :List of 2 1562s [00:52:42.666] .. ..$ : chr "E" 1562s [00:52:42.666] .. ..$ : chr "D" 1562s [00:52:42.666] ..$ :List of 2 1562s [00:52:42.666] .. ..$ : int 1 1562s [00:52:42.666] .. ..$ : int 2 1562s [00:52:42.666] $ ...future.seeds_ii : NULL 1562s [00:52:42.666] $ ...future.globals.maxSize: NULL 1562s [00:52:42.666] - attr(*, "where")=List of 5 1562s [00:52:42.666] ..$ ...future.FUN : 1562s [00:52:42.666] ..$ MoreArgs : 1562s [00:52:42.666] ..$ ...future.elements_ii : 1562s [00:52:42.666] ..$ ...future.seeds_ii : 1562s [00:52:42.666] ..$ ...future.globals.maxSize: 1562s [00:52:42.666] - attr(*, "resolved")= logi FALSE 1562s [00:52:42.666] - attr(*, "total_size")= num 3656 1562s [00:52:42.666] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1562s [00:52:42.666] - attr(*, "already-done")= logi TRUE 1562s [00:52:42.674] - reassign environment for ‘...future.FUN’ 1562s [00:52:42.674] - copied ‘...future.FUN’ to environment 1562s [00:52:42.674] - copied ‘MoreArgs’ to environment 1562s [00:52:42.674] - copied ‘...future.elements_ii’ to environment 1562s [00:52:42.674] - copied ‘...future.seeds_ii’ to environment 1562s [00:52:42.674] - copied ‘...future.globals.maxSize’ to environment 1562s [00:52:42.675] assign_globals() ... done 1562s [00:52:42.675] plan(): Setting new future strategy stack: 1562s [00:52:42.675] List of future strategies: 1562s [00:52:42.675] 1. sequential: 1562s [00:52:42.675] - args: function (..., envir = parent.frame()) 1562s [00:52:42.675] - tweaked: FALSE 1562s [00:52:42.675] - call: NULL 1562s [00:52:42.676] plan(): nbrOfWorkers() = 1 1562s [00:52:42.677] plan(): Setting new future strategy stack: 1562s [00:52:42.677] List of future strategies: 1562s [00:52:42.677] 1. multicore: 1562s [00:52:42.677] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1562s [00:52:42.677] - tweaked: FALSE 1562s [00:52:42.677] - call: plan(strategy) 1562s [00:52:42.681] plan(): nbrOfWorkers() = 1 1562s [00:52:42.681] SequentialFuture started (and completed) 1562s [00:52:42.681] - Launch lazy future ... done 1562s [00:52:42.681] run() for ‘SequentialFuture’ ... done 1562s [00:52:42.682] Created future: 1562s [00:52:42.682] SequentialFuture: 1562s [00:52:42.682] Label: ‘future_mapply-1’ 1562s [00:52:42.682] Expression: 1562s [00:52:42.682] { 1562s [00:52:42.682] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1562s [00:52:42.682] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1562s [00:52:42.682] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1562s [00:52:42.682] on.exit(options(oopts), add = TRUE) 1562s [00:52:42.682] } 1562s [00:52:42.682] { 1562s [00:52:42.682] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1562s [00:52:42.682] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1562s [00:52:42.682] do.call(mapply, args = args) 1562s [00:52:42.682] } 1562s [00:52:42.682] } 1562s [00:52:42.682] Lazy evaluation: FALSE 1562s [00:52:42.682] Asynchronous evaluation: FALSE 1562s [00:52:42.682] Local evaluation: TRUE 1562s [00:52:42.682] Environment: R_GlobalEnv 1562s [00:52:42.682] Capture standard output: TRUE 1562s [00:52:42.682] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1562s [00:52:42.682] Globals: 5 objects totaling 3.57 KiB (function ‘...future.FUN’ of 3.24 KiB, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1562s [00:52:42.682] Packages: 1562s [00:52:42.682] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1562s [00:52:42.682] Resolved: TRUE 1562s [00:52:42.682] Value: 224 bytes of class ‘list’ 1562s [00:52:42.682] Early signaling: FALSE 1562s [00:52:42.682] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1562s [00:52:42.682] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1562s [00:52:42.683] Chunk #1 of 2 ... DONE 1562s [00:52:42.683] Chunk #2 of 2 ... 1562s [00:52:42.684] - Finding globals in '...' for chunk #2 ... 1562s [00:52:42.684] getGlobalsAndPackages() ... 1562s [00:52:42.684] Searching for globals... 1562s [00:52:42.684] 1562s [00:52:42.684] Searching for globals ... DONE 1562s [00:52:42.685] - globals: [0] 1562s [00:52:42.685] getGlobalsAndPackages() ... DONE 1562s [00:52:42.685] + additional globals found: [n=0] 1562s [00:52:42.685] + additional namespaces needed: [n=0] 1562s [00:52:42.685] - Finding globals in '...' for chunk #2 ... DONE 1562s [00:52:42.685] - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes) 1562s [00:52:42.685] - seeds: 1562s [00:52:42.686] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.686] getGlobalsAndPackages() ... 1562s [00:52:42.686] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.686] Resolving globals: FALSE 1562s [00:52:42.687] The total size of the 5 globals is 3.73 KiB (3824 bytes) 1562s [00:52:42.688] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 3.73 KiB.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (3.24 KiB of class ‘function’), ‘...future.elements_ii’ (504 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1562s [00:52:42.688] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.688] 1562s [00:52:42.688] getGlobalsAndPackages() ... DONE 1562s [00:52:42.688] run() for ‘Future’ ... 1562s [00:52:42.689] - state: ‘created’ 1562s [00:52:42.689] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1562s [00:52:42.695] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1562s [00:52:42.696] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1562s [00:52:42.696] - Field: ‘label’ 1562s [00:52:42.696] - Field: ‘local’ 1562s [00:52:42.696] - Field: ‘owner’ 1562s [00:52:42.696] - Field: ‘envir’ 1562s [00:52:42.696] - Field: ‘packages’ 1562s [00:52:42.697] - Field: ‘gc’ 1562s [00:52:42.697] - Field: ‘conditions’ 1562s [00:52:42.697] - Field: ‘expr’ 1562s [00:52:42.697] - Field: ‘uuid’ 1562s [00:52:42.697] - Field: ‘seed’ 1562s [00:52:42.697] - Field: ‘version’ 1562s [00:52:42.698] - Field: ‘result’ 1562s [00:52:42.698] - Field: ‘asynchronous’ 1562s [00:52:42.698] - Field: ‘calls’ 1562s [00:52:42.698] - Field: ‘globals’ 1562s [00:52:42.698] - Field: ‘stdout’ 1562s [00:52:42.698] - Field: ‘earlySignal’ 1562s [00:52:42.698] - Field: ‘lazy’ 1562s [00:52:42.699] - Field: ‘state’ 1562s [00:52:42.699] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1562s [00:52:42.699] - Launch lazy future ... 1562s [00:52:42.699] Packages needed by the future expression (n = 0): 1562s [00:52:42.700] Packages needed by future strategies (n = 0): 1562s [00:52:42.700] { 1562s [00:52:42.700] { 1562s [00:52:42.700] { 1562s [00:52:42.700] ...future.startTime <- base::Sys.time() 1562s [00:52:42.700] { 1562s [00:52:42.700] { 1562s [00:52:42.700] { 1562s [00:52:42.700] base::local({ 1562s [00:52:42.700] has_future <- base::requireNamespace("future", 1562s [00:52:42.700] quietly = TRUE) 1562s [00:52:42.700] if (has_future) { 1562s [00:52:42.700] ns <- base::getNamespace("future") 1562s [00:52:42.700] version <- ns[[".package"]][["version"]] 1562s [00:52:42.700] if (is.null(version)) 1562s [00:52:42.700] version <- utils::packageVersion("future") 1562s [00:52:42.700] } 1562s [00:52:42.700] else { 1562s [00:52:42.700] version <- NULL 1562s [00:52:42.700] } 1562s [00:52:42.700] if (!has_future || version < "1.8.0") { 1562s [00:52:42.700] info <- base::c(r_version = base::gsub("R version ", 1562s [00:52:42.700] "", base::R.version$version.string), 1562s [00:52:42.700] platform = base::sprintf("%s (%s-bit)", 1562s [00:52:42.700] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1562s [00:52:42.700] os = base::paste(base::Sys.info()[base::c("sysname", 1562s [00:52:42.700] "release", "version")], collapse = " "), 1562s [00:52:42.700] hostname = base::Sys.info()[["nodename"]]) 1562s [00:52:42.700] info <- base::sprintf("%s: %s", base::names(info), 1562s [00:52:42.700] info) 1562s [00:52:42.700] info <- base::paste(info, collapse = "; ") 1562s [00:52:42.700] if (!has_future) { 1562s [00:52:42.700] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1562s [00:52:42.700] info) 1562s [00:52:42.700] } 1562s [00:52:42.700] else { 1562s [00:52:42.700] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1562s [00:52:42.700] info, version) 1562s [00:52:42.700] } 1562s [00:52:42.700] base::stop(msg) 1562s [00:52:42.700] } 1562s [00:52:42.700] }) 1562s [00:52:42.700] } 1562s [00:52:42.700] options(future.plan = NULL) 1562s [00:52:42.700] Sys.unsetenv("R_FUTURE_PLAN") 1562s [00:52:42.700] future::plan("default", .cleanup = FALSE, .init = FALSE) 1562s [00:52:42.700] } 1562s [00:52:42.700] ...future.workdir <- getwd() 1562s [00:52:42.700] } 1562s [00:52:42.700] ...future.oldOptions <- base::as.list(base::.Options) 1562s [00:52:42.700] ...future.oldEnvVars <- base::Sys.getenv() 1562s [00:52:42.700] } 1562s [00:52:42.700] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1562s [00:52:42.700] future.globals.maxSize = 1048576000, future.globals.method = NULL, 1562s [00:52:42.700] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1562s [00:52:42.700] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1562s [00:52:42.700] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1562s [00:52:42.700] future.stdout.windows.reencode = NULL, width = 80L) 1562s [00:52:42.700] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1562s [00:52:42.700] base::names(...future.oldOptions)) 1562s [00:52:42.700] } 1562s [00:52:42.700] if (FALSE) { 1562s [00:52:42.700] } 1562s [00:52:42.700] else { 1562s [00:52:42.700] if (TRUE) { 1562s [00:52:42.700] ...future.stdout <- base::rawConnection(base::raw(0L), 1562s [00:52:42.700] open = "w") 1562s [00:52:42.700] } 1562s [00:52:42.700] else { 1562s [00:52:42.700] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1562s [00:52:42.700] windows = "NUL", "/dev/null"), open = "w") 1562s [00:52:42.700] } 1562s [00:52:42.700] base::sink(...future.stdout, type = "output", split = FALSE) 1562s [00:52:42.700] base::on.exit(if (!base::is.null(...future.stdout)) { 1562s [00:52:42.700] base::sink(type = "output", split = FALSE) 1562s [00:52:42.700] base::close(...future.stdout) 1562s [00:52:42.700] }, add = TRUE) 1562s [00:52:42.700] } 1562s [00:52:42.700] ...future.frame <- base::sys.nframe() 1562s [00:52:42.700] ...future.conditions <- base::list() 1562s [00:52:42.700] ...future.rng <- base::globalenv()$.Random.seed 1562s [00:52:42.700] if (FALSE) { 1562s [00:52:42.700] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1562s [00:52:42.700] "...future.value", "...future.globalenv.names", ".Random.seed") 1562s [00:52:42.700] } 1562s [00:52:42.700] ...future.result <- base::tryCatch({ 1562s [00:52:42.700] base::withCallingHandlers({ 1562s [00:52:42.700] ...future.value <- base::withVisible(base::local({ 1562s [00:52:42.700] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1562s [00:52:42.700] if (!identical(...future.globals.maxSize.org, 1562s [00:52:42.700] ...future.globals.maxSize)) { 1562s [00:52:42.700] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1562s [00:52:42.700] on.exit(options(oopts), add = TRUE) 1562s [00:52:42.700] } 1562s [00:52:42.700] { 1562s [00:52:42.700] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1562s [00:52:42.700] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1562s [00:52:42.700] USE.NAMES = FALSE) 1562s [00:52:42.700] do.call(mapply, args = args) 1562s [00:52:42.700] } 1562s [00:52:42.700] })) 1562s [00:52:42.700] future::FutureResult(value = ...future.value$value, 1562s [00:52:42.700] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1562s [00:52:42.700] ...future.rng), globalenv = if (FALSE) 1562s [00:52:42.700] list(added = base::setdiff(base::names(base::.GlobalEnv), 1562s [00:52:42.700] ...future.globalenv.names)) 1562s [00:52:42.700] else NULL, started = ...future.startTime, version = "1.8") 1562s [00:52:42.700] }, condition = base::local({ 1562s [00:52:42.700] c <- base::c 1562s [00:52:42.700] inherits <- base::inherits 1562s [00:52:42.700] invokeRestart <- base::invokeRestart 1562s [00:52:42.700] length <- base::length 1562s [00:52:42.700] list <- base::list 1562s [00:52:42.700] seq.int <- base::seq.int 1562s [00:52:42.700] signalCondition <- base::signalCondition 1562s [00:52:42.700] sys.calls <- base::sys.calls 1562s [00:52:42.700] `[[` <- base::`[[` 1562s [00:52:42.700] `+` <- base::`+` 1562s [00:52:42.700] `<<-` <- base::`<<-` 1562s [00:52:42.700] sysCalls <- function(calls = sys.calls(), from = 1L) { 1562s [00:52:42.700] calls[seq.int(from = from + 12L, to = length(calls) - 1562s [00:52:42.700] 3L)] 1562s [00:52:42.700] } 1562s [00:52:42.700] function(cond) { 1562s [00:52:42.700] is_error <- inherits(cond, "error") 1562s [00:52:42.700] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1562s [00:52:42.700] NULL) 1562s [00:52:42.700] if (is_error) { 1562s [00:52:42.700] sessionInformation <- function() { 1562s [00:52:42.700] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1562s [00:52:42.700] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1562s [00:52:42.700] search = base::search(), system = base::Sys.info()) 1562s [00:52:42.700] } 1562s [00:52:42.700] ...future.conditions[[length(...future.conditions) + 1562s [00:52:42.700] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1562s [00:52:42.700] cond$call), session = sessionInformation(), 1562s [00:52:42.700] timestamp = base::Sys.time(), signaled = 0L) 1562s [00:52:42.700] signalCondition(cond) 1562s [00:52:42.700] } 1562s [00:52:42.700] else if (!ignore && TRUE && inherits(cond, c("condition", 1562s [00:52:42.700] "immediateCondition"))) { 1562s [00:52:42.700] signal <- TRUE && inherits(cond, "immediateCondition") 1562s [00:52:42.700] ...future.conditions[[length(...future.conditions) + 1562s [00:52:42.700] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1562s [00:52:42.700] if (TRUE && !signal) { 1562s [00:52:42.700] muffleCondition <- function (cond, pattern = "^muffle") 1562s [00:52:42.700] { 1562s [00:52:42.700] inherits <- base::inherits 1562s [00:52:42.700] invokeRestart <- base::invokeRestart 1562s [00:52:42.700] is.null <- base::is.null 1562s [00:52:42.700] muffled <- FALSE 1562s [00:52:42.700] if (inherits(cond, "message")) { 1562s [00:52:42.700] muffled <- grepl(pattern, "muffleMessage") 1562s [00:52:42.700] if (muffled) 1562s [00:52:42.700] invokeRestart("muffleMessage") 1562s [00:52:42.700] } 1562s [00:52:42.700] else if (inherits(cond, "warning")) { 1562s [00:52:42.700] muffled <- grepl(pattern, "muffleWarning") 1562s [00:52:42.700] if (muffled) 1562s [00:52:42.700] invokeRestart("muffleWarning") 1562s [00:52:42.700] } 1562s [00:52:42.700] else if (inherits(cond, "condition")) { 1562s [00:52:42.700] if (!is.null(pattern)) { 1562s [00:52:42.700] computeRestarts <- base::computeRestarts 1562s [00:52:42.700] grepl <- base::grepl 1562s [00:52:42.700] restarts <- computeRestarts(cond) 1562s [00:52:42.700] for (restart in restarts) { 1562s [00:52:42.700] name <- restart$name 1562s [00:52:42.700] if (is.null(name)) 1562s [00:52:42.700] next 1562s [00:52:42.700] if (!grepl(pattern, name)) 1562s [00:52:42.700] next 1562s [00:52:42.700] invokeRestart(restart) 1562s [00:52:42.700] muffled <- TRUE 1562s [00:52:42.700] break 1562s [00:52:42.700] } 1562s [00:52:42.700] } 1562s [00:52:42.700] } 1562s [00:52:42.700] invisible(muffled) 1562s [00:52:42.700] } 1562s [00:52:42.700] muffleCondition(cond, pattern = "^muffle") 1562s [00:52:42.700] } 1562s [00:52:42.700] } 1562s [00:52:42.700] else { 1562s [00:52:42.700] if (TRUE) { 1562s [00:52:42.700] muffleCondition <- function (cond, pattern = "^muffle") 1562s [00:52:42.700] { 1562s [00:52:42.700] inherits <- base::inherits 1562s [00:52:42.700] invokeRestart <- base::invokeRestart 1562s [00:52:42.700] is.null <- base::is.null 1562s [00:52:42.700] muffled <- FALSE 1562s [00:52:42.700] if (inherits(cond, "message")) { 1562s [00:52:42.700] muffled <- grepl(pattern, "muffleMessage") 1562s [00:52:42.700] if (muffled) 1562s [00:52:42.700] invokeRestart("muffleMessage") 1562s [00:52:42.700] } 1562s [00:52:42.700] else if (inherits(cond, "warning")) { 1562s [00:52:42.700] muffled <- grepl(pattern, "muffleWarning") 1562s [00:52:42.700] if (muffled) 1562s [00:52:42.700] invokeRestart("muffleWarning") 1562s [00:52:42.700] } 1562s [00:52:42.700] else if (inherits(cond, "condition")) { 1562s [00:52:42.700] if (!is.null(pattern)) { 1562s [00:52:42.700] computeRestarts <- base::computeRestarts 1562s [00:52:42.700] grepl <- base::grepl 1562s [00:52:42.700] restarts <- computeRestarts(cond) 1562s [00:52:42.700] for (restart in restarts) { 1562s [00:52:42.700] name <- restart$name 1562s [00:52:42.700] if (is.null(name)) 1562s [00:52:42.700] next 1562s [00:52:42.700] if (!grepl(pattern, name)) 1562s [00:52:42.700] next 1562s [00:52:42.700] invokeRestart(restart) 1562s [00:52:42.700] muffled <- TRUE 1562s [00:52:42.700] break 1562s [00:52:42.700] } 1562s [00:52:42.700] } 1562s [00:52:42.700] } 1562s [00:52:42.700] invisible(muffled) 1562s [00:52:42.700] } 1562s [00:52:42.700] muffleCondition(cond, pattern = "^muffle") 1562s [00:52:42.700] } 1562s [00:52:42.700] } 1562s [00:52:42.700] } 1562s [00:52:42.700] })) 1562s [00:52:42.700] }, error = function(ex) { 1562s [00:52:42.700] base::structure(base::list(value = NULL, visible = NULL, 1562s [00:52:42.700] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1562s [00:52:42.700] ...future.rng), started = ...future.startTime, 1562s [00:52:42.700] finished = Sys.time(), session_uuid = NA_character_, 1562s [00:52:42.700] version = "1.8"), class = "FutureResult") 1562s [00:52:42.700] }, finally = { 1562s [00:52:42.700] if (!identical(...future.workdir, getwd())) 1562s [00:52:42.700] setwd(...future.workdir) 1562s [00:52:42.700] { 1562s [00:52:42.700] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1562s [00:52:42.700] ...future.oldOptions$nwarnings <- NULL 1562s [00:52:42.700] } 1562s [00:52:42.700] base::options(...future.oldOptions) 1562s [00:52:42.700] if (.Platform$OS.type == "windows") { 1562s [00:52:42.700] old_names <- names(...future.oldEnvVars) 1562s [00:52:42.700] envs <- base::Sys.getenv() 1562s [00:52:42.700] names <- names(envs) 1562s [00:52:42.700] common <- intersect(names, old_names) 1562s [00:52:42.700] added <- setdiff(names, old_names) 1562s [00:52:42.700] removed <- setdiff(old_names, names) 1562s [00:52:42.700] changed <- common[...future.oldEnvVars[common] != 1562s [00:52:42.700] envs[common]] 1562s [00:52:42.700] NAMES <- toupper(changed) 1562s [00:52:42.700] args <- list() 1562s [00:52:42.700] for (kk in seq_along(NAMES)) { 1562s [00:52:42.700] name <- changed[[kk]] 1562s [00:52:42.700] NAME <- NAMES[[kk]] 1562s [00:52:42.700] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.700] next 1562s [00:52:42.700] args[[name]] <- ...future.oldEnvVars[[name]] 1562s [00:52:42.700] } 1562s [00:52:42.700] NAMES <- toupper(added) 1562s [00:52:42.700] for (kk in seq_along(NAMES)) { 1562s [00:52:42.700] name <- added[[kk]] 1562s [00:52:42.700] NAME <- NAMES[[kk]] 1562s [00:52:42.700] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.700] next 1562s [00:52:42.700] args[[name]] <- "" 1562s [00:52:42.700] } 1562s [00:52:42.700] NAMES <- toupper(removed) 1562s [00:52:42.700] for (kk in seq_along(NAMES)) { 1562s [00:52:42.700] name <- removed[[kk]] 1562s [00:52:42.700] NAME <- NAMES[[kk]] 1562s [00:52:42.700] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.700] next 1562s [00:52:42.700] args[[name]] <- ...future.oldEnvVars[[name]] 1562s [00:52:42.700] } 1562s [00:52:42.700] if (length(args) > 0) 1562s [00:52:42.700] base::do.call(base::Sys.setenv, args = args) 1562s [00:52:42.700] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1562s [00:52:42.700] } 1562s [00:52:42.700] else { 1562s [00:52:42.700] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1562s [00:52:42.700] } 1562s [00:52:42.700] { 1562s [00:52:42.700] if (base::length(...future.futureOptionsAdded) > 1562s [00:52:42.700] 0L) { 1562s [00:52:42.700] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1562s [00:52:42.700] base::names(opts) <- ...future.futureOptionsAdded 1562s [00:52:42.700] base::options(opts) 1562s [00:52:42.700] } 1562s [00:52:42.700] { 1562s [00:52:42.700] { 1562s [00:52:42.700] base::assign(".Random.seed", c(10407L, 2079749599L, 1562s [00:52:42.700] -1712504007L, 90762767L, 511132818L, -526970845L, 1562s [00:52:42.700] -1057805512L), envir = base::globalenv(), 1562s [00:52:42.700] inherits = FALSE) 1562s [00:52:42.700] NULL 1562s [00:52:42.700] } 1562s [00:52:42.700] options(future.plan = NULL) 1562s [00:52:42.700] if (is.na(NA_character_)) 1562s [00:52:42.700] Sys.unsetenv("R_FUTURE_PLAN") 1562s [00:52:42.700] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1562s [00:52:42.700] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1562s [00:52:42.700] envir = parent.frame()) 1562s [00:52:42.700] { 1562s [00:52:42.700] default_workers <- missing(workers) 1562s [00:52:42.700] if (is.function(workers)) 1562s [00:52:42.700] workers <- workers() 1562s [00:52:42.700] workers <- structure(as.integer(workers), 1562s [00:52:42.700] class = class(workers)) 1562s [00:52:42.700] stop_if_not(is.finite(workers), workers >= 1562s [00:52:42.700] 1L) 1562s [00:52:42.700] if ((workers == 1L && !inherits(workers, 1562s [00:52:42.700] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1562s [00:52:42.700] if (default_workers) 1562s [00:52:42.700] supportsMulticore(warn = TRUE) 1562s [00:52:42.700] return(sequential(..., envir = envir)) 1562s [00:52:42.700] } 1562s [00:52:42.700] oopts <- options(mc.cores = workers) 1562s [00:52:42.700] on.exit(options(oopts)) 1562s [00:52:42.700] future <- MulticoreFuture(..., workers = workers, 1562s [00:52:42.700] envir = envir) 1562s [00:52:42.700] if (!future$lazy) 1562s [00:52:42.700] future <- run(future) 1562s [00:52:42.700] invisible(future) 1562s [00:52:42.700] }), .cleanup = FALSE, .init = FALSE) 1562s [00:52:42.700] } 1562s [00:52:42.700] } 1562s [00:52:42.700] } 1562s [00:52:42.700] }) 1562s [00:52:42.700] if (TRUE) { 1562s [00:52:42.700] base::sink(type = "output", split = FALSE) 1562s [00:52:42.700] if (TRUE) { 1562s [00:52:42.700] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1562s [00:52:42.700] } 1562s [00:52:42.700] else { 1562s [00:52:42.700] ...future.result["stdout"] <- base::list(NULL) 1562s [00:52:42.700] } 1562s [00:52:42.700] base::close(...future.stdout) 1562s [00:52:42.700] ...future.stdout <- NULL 1562s [00:52:42.700] } 1562s [00:52:42.700] ...future.result$conditions <- ...future.conditions 1562s [00:52:42.700] ...future.result$finished <- base::Sys.time() 1562s [00:52:42.700] ...future.result 1562s [00:52:42.700] } 1562s [00:52:42.704] assign_globals() ... 1562s [00:52:42.705] List of 5 1562s [00:52:42.705] $ ...future.FUN :function (C, k) 1562s [00:52:42.705] $ MoreArgs : NULL 1562s [00:52:42.705] $ ...future.elements_ii :List of 2 1562s [00:52:42.705] ..$ :List of 3 1562s [00:52:42.705] .. ..$ : chr "C" 1562s [00:52:42.705] .. ..$ : chr "B" 1562s [00:52:42.705] .. ..$ : chr "A" 1562s [00:52:42.705] ..$ :List of 3 1562s [00:52:42.705] .. ..$ : int 3 1562s [00:52:42.705] .. ..$ : int 4 1562s [00:52:42.705] .. ..$ : int 5 1562s [00:52:42.705] $ ...future.seeds_ii : NULL 1562s [00:52:42.705] $ ...future.globals.maxSize: NULL 1562s [00:52:42.705] - attr(*, "where")=List of 5 1562s [00:52:42.705] ..$ ...future.FUN : 1562s [00:52:42.705] ..$ MoreArgs : 1562s [00:52:42.705] ..$ ...future.elements_ii : 1562s [00:52:42.705] ..$ ...future.seeds_ii : 1562s [00:52:42.705] ..$ ...future.globals.maxSize: 1562s [00:52:42.705] - attr(*, "resolved")= logi FALSE 1562s [00:52:42.705] - attr(*, "total_size")= num 3824 1562s [00:52:42.705] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1562s [00:52:42.705] - attr(*, "already-done")= logi TRUE 1562s [00:52:42.713] - reassign environment for ‘...future.FUN’ 1562s [00:52:42.713] - copied ‘...future.FUN’ to environment 1562s [00:52:42.713] - copied ‘MoreArgs’ to environment 1562s [00:52:42.713] - copied ‘...future.elements_ii’ to environment 1562s [00:52:42.714] - copied ‘...future.seeds_ii’ to environment 1562s [00:52:42.714] - copied ‘...future.globals.maxSize’ to environment 1562s [00:52:42.714] assign_globals() ... done 1562s [00:52:42.715] plan(): Setting new future strategy stack: 1562s [00:52:42.715] List of future strategies: 1562s [00:52:42.715] 1. sequential: 1562s [00:52:42.715] - args: function (..., envir = parent.frame()) 1562s [00:52:42.715] - tweaked: FALSE 1562s [00:52:42.715] - call: NULL 1562s [00:52:42.715] plan(): nbrOfWorkers() = 1 1562s [00:52:42.716] plan(): Setting new future strategy stack: 1562s [00:52:42.716] List of future strategies: 1562s [00:52:42.716] 1. multicore: 1562s [00:52:42.716] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1562s [00:52:42.716] - tweaked: FALSE 1562s [00:52:42.716] - call: plan(strategy) 1562s [00:52:42.720] plan(): nbrOfWorkers() = 1 1562s [00:52:42.721] SequentialFuture started (and completed) 1562s [00:52:42.721] - Launch lazy future ... done 1562s [00:52:42.721] run() for ‘SequentialFuture’ ... done 1562s [00:52:42.721] Created future: 1562s [00:52:42.721] SequentialFuture: 1562s [00:52:42.721] Label: ‘future_mapply-2’ 1562s [00:52:42.721] Expression: 1562s [00:52:42.721] { 1562s [00:52:42.721] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1562s [00:52:42.721] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1562s [00:52:42.721] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1562s [00:52:42.721] on.exit(options(oopts), add = TRUE) 1562s [00:52:42.721] } 1562s [00:52:42.721] { 1562s [00:52:42.721] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1562s [00:52:42.721] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1562s [00:52:42.721] do.call(mapply, args = args) 1562s [00:52:42.721] } 1562s [00:52:42.721] } 1562s [00:52:42.721] Lazy evaluation: FALSE 1562s [00:52:42.721] Asynchronous evaluation: FALSE 1562s [00:52:42.721] Local evaluation: TRUE 1562s [00:52:42.721] Environment: R_GlobalEnv 1562s [00:52:42.721] Capture standard output: TRUE 1562s [00:52:42.721] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1562s [00:52:42.721] Globals: 5 objects totaling 3.73 KiB (function ‘...future.FUN’ of 3.24 KiB, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 504 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1562s [00:52:42.721] Packages: 1562s [00:52:42.721] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1562s [00:52:42.721] Resolved: TRUE 1562s [00:52:42.721] Value: 336 bytes of class ‘list’ 1562s [00:52:42.721] Early signaling: FALSE 1562s [00:52:42.721] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1562s [00:52:42.721] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1562s [00:52:42.723] Chunk #2 of 2 ... DONE 1562s [00:52:42.723] Launching 2 futures (chunks) ... DONE 1562s [00:52:42.723] Resolving 2 futures (chunks) ... 1562s [00:52:42.724] resolve() on list ... 1562s [00:52:42.724] recursive: 0 1562s [00:52:42.724] length: 2 1562s [00:52:42.724] 1562s [00:52:42.724] resolved() for ‘SequentialFuture’ ... 1562s [00:52:42.724] - state: ‘finished’ 1562s [00:52:42.724] - run: TRUE 1562s [00:52:42.725] - result: ‘FutureResult’ 1562s [00:52:42.725] resolved() for ‘SequentialFuture’ ... done 1562s [00:52:42.725] Future #1 1562s [00:52:42.725] signalConditionsASAP(SequentialFuture, pos=1) ... 1562s [00:52:42.725] - nx: 2 1562s [00:52:42.726] - relay: TRUE 1562s [00:52:42.726] - stdout: TRUE 1562s [00:52:42.726] - signal: TRUE 1562s [00:52:42.726] - resignal: FALSE 1562s [00:52:42.726] - force: TRUE 1562s [00:52:42.726] - relayed: [n=2] FALSE, FALSE 1562s [00:52:42.726] - queued futures: [n=2] FALSE, FALSE 1562s [00:52:42.726] - until=1 1562s [00:52:42.727] - relaying element #1 1562s [00:52:42.727] - relayed: [n=2] TRUE, FALSE 1562s [00:52:42.727] - queued futures: [n=2] TRUE, FALSE 1562s [00:52:42.727] signalConditionsASAP(SequentialFuture, pos=1) ... done 1562s [00:52:42.727] length: 1 (resolved future 1) 1562s [00:52:42.728] resolved() for ‘SequentialFuture’ ... 1562s [00:52:42.728] - state: ‘finished’ 1562s [00:52:42.728] - run: TRUE 1562s [00:52:42.728] - result: ‘FutureResult’ 1562s [00:52:42.728] resolved() for ‘SequentialFuture’ ... done 1562s [00:52:42.728] Future #2 1562s [00:52:42.728] signalConditionsASAP(SequentialFuture, pos=2) ... 1562s [00:52:42.729] - nx: 2 1562s [00:52:42.729] - relay: TRUE 1562s [00:52:42.729] - stdout: TRUE 1562s [00:52:42.729] - signal: TRUE 1562s [00:52:42.729] - resignal: FALSE 1562s [00:52:42.729] - force: TRUE 1562s [00:52:42.729] - relayed: [n=2] TRUE, FALSE 1562s [00:52:42.730] - queued futures: [n=2] TRUE, FALSE 1562s [00:52:42.730] - until=2 1562s [00:52:42.732] - relaying element #2 1562s [00:52:42.733] - relayed: [n=2] TRUE, TRUE 1562s [00:52:42.733] - queued futures: [n=2] TRUE, TRUE 1562s [00:52:42.733] signalConditionsASAP(SequentialFuture, pos=2) ... done 1562s [00:52:42.734] length: 0 (resolved future 2) 1562s [00:52:42.734] Relaying remaining futures 1562s [00:52:42.734] signalConditionsASAP(NULL, pos=0) ... 1562s [00:52:42.734] - nx: 2 1562s [00:52:42.734] - relay: TRUE 1562s [00:52:42.734] - stdout: TRUE 1562s [00:52:42.735] - signal: TRUE 1562s [00:52:42.735] - resignal: FALSE 1562s [00:52:42.735] - force: TRUE 1562s [00:52:42.735] - relayed: [n=2] TRUE, TRUE 1562s [00:52:42.735] - queued futures: [n=2] TRUE, TRUE 1562s - flush all 1562s [00:52:42.735] - relayed: [n=2] TRUE, TRUE 1562s [00:52:42.736] - queued futures: [n=2] TRUE, TRUE 1562s [00:52:42.736] signalConditionsASAP(NULL, pos=0) ... done 1562s [00:52:42.736] resolve() on list ... DONE 1562s [00:52:42.736] - Number of value chunks collected: 2 1562s [00:52:42.736] Resolving 2 futures (chunks) ... DONE 1562s [00:52:42.737] Reducing values from 2 chunks ... 1562s [00:52:42.737] - Number of values collected after concatenation: 5 1562s [00:52:42.737] - Number of values expected: 5 1562s [00:52:42.737] Reverse index remapping (attribute 'ordering'): [n = 5] 5, 4, 3, 2, 1 1562s [00:52:42.737] Reducing values from 2 chunks ... DONE 1562s [00:52:42.738] future_mapply() ... DONE 1562s [00:52:42.738] future_mapply() ... 1562s [00:52:42.742] Number of chunks: 1 1562s [00:52:42.742] getGlobalsAndPackagesXApply() ... 1562s [00:52:42.742] - future.globals: TRUE 1562s [00:52:42.742] getGlobalsAndPackages() ... 1562s [00:52:42.742] Searching for globals... 1562s [00:52:42.744] - globals found: [3] ‘FUN’, ‘paste’, ‘rep.int’ 1562s [00:52:42.744] Searching for globals ... DONE 1562s [00:52:42.744] Resolving globals: FALSE 1562s [00:52:42.745] The total size of the 1 globals is 3.24 KiB (3320 bytes) 1562s [00:52:42.745] The total size of the 1 globals exported for future expression (‘FUN()’) is 3.24 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (3.24 KiB of class ‘function’) 1562s [00:52:42.746] - globals: [1] ‘FUN’ 1562s [00:52:42.746] 1562s [00:52:42.746] getGlobalsAndPackages() ... DONE 1562s [00:52:42.746] - globals found/used: [n=1] ‘FUN’ 1562s [00:52:42.746] - needed namespaces: [n=0] 1562s [00:52:42.746] Finding globals ... DONE 1562s [00:52:42.747] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1562s [00:52:42.747] List of 2 1562s [00:52:42.747] $ ...future.FUN:function (C, k) 1562s [00:52:42.747] $ MoreArgs : list() 1562s [00:52:42.747] - attr(*, "where")=List of 2 1562s [00:52:42.747] ..$ ...future.FUN: 1562s [00:52:42.747] ..$ MoreArgs : 1562s [00:52:42.747] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1562s [00:52:42.747] - attr(*, "resolved")= logi FALSE 1562s [00:52:42.747] - attr(*, "total_size")= num NA 1562s [00:52:42.750] Packages to be attached in all futures: [n=0] 1562s [00:52:42.750] getGlobalsAndPackagesXApply() ... DONE 1562s [00:52:42.750] Number of futures (= number of chunks): 1 1562s [00:52:42.750] Launching 1 futures (chunks) ... 1562s [00:52:42.750] Chunk #1 of 1 ... 1562s [00:52:42.751] - Finding globals in '...' for chunk #1 ... 1562s [00:52:42.751] getGlobalsAndPackages() ... 1562s [00:52:42.751] Searching for globals... 1562s [00:52:42.751] 1562s [00:52:42.752] Searching for globals ... DONE 1562s [00:52:42.752] - globals: [0] 1562s [00:52:42.752] getGlobalsAndPackages() ... DONE 1562s [00:52:42.752] + additional globals found: [n=0] 1562s [00:52:42.752] + additional namespaces needed: [n=0] 1562s [00:52:42.752] - Finding globals in '...' for chunk #1 ... DONE 1562s [00:52:42.752] - seeds: 1562s [00:52:42.752] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.753] getGlobalsAndPackages() ... 1562s [00:52:42.753] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.753] Resolving globals: FALSE 1562s [00:52:42.754] The total size of the 5 globals is 4.06 KiB (4160 bytes) 1562s [00:52:42.754] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 4.06 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (3.24 KiB of class ‘function’), ‘...future.elements_ii’ (840 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘list’) 1562s [00:52:42.754] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.755] 1562s [00:52:42.755] getGlobalsAndPackages() ... DONE 1562s [00:52:42.755] run() for ‘Future’ ... 1562s [00:52:42.755] - state: ‘created’ 1562s [00:52:42.755] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1562s [00:52:42.758] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1562s [00:52:42.759] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1562s [00:52:42.759] - Field: ‘label’ 1562s [00:52:42.759] - Field: ‘local’ 1562s [00:52:42.759] - Field: ‘owner’ 1562s [00:52:42.760] - Field: ‘envir’ 1562s [00:52:42.760] - Field: ‘packages’ 1562s [00:52:42.760] - Field: ‘gc’ 1562s [00:52:42.760] - Field: ‘conditions’ 1562s [00:52:42.761] - Field: ‘expr’ 1562s [00:52:42.761] - Field: ‘uuid’ 1562s [00:52:42.761] - Field: ‘seed’ 1562s [00:52:42.761] - Field: ‘version’ 1562s [00:52:42.761] - Field: ‘result’ 1562s [00:52:42.762] - Field: ‘asynchronous’ 1562s [00:52:42.762] - Field: ‘calls’ 1562s [00:52:42.762] - Field: ‘globals’ 1562s [00:52:42.762] - Field: ‘stdout’ 1562s [00:52:42.762] - Field: ‘earlySignal’ 1562s [00:52:42.763] - Field: ‘lazy’ 1562s [00:52:42.763] - Field: ‘state’ 1562s [00:52:42.763] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1562s [00:52:42.763] - Launch lazy future ... 1562s [00:52:42.763] Packages needed by the future expression (n = 0): 1562s [00:52:42.764] Packages needed by future strategies (n = 0): 1562s [00:52:42.765] { 1562s [00:52:42.765] { 1562s [00:52:42.765] { 1562s [00:52:42.765] ...future.startTime <- base::Sys.time() 1562s [00:52:42.765] { 1562s [00:52:42.765] { 1562s [00:52:42.765] { 1562s [00:52:42.765] base::local({ 1562s [00:52:42.765] has_future <- base::requireNamespace("future", 1562s [00:52:42.765] quietly = TRUE) 1562s [00:52:42.765] if (has_future) { 1562s [00:52:42.765] ns <- base::getNamespace("future") 1562s [00:52:42.765] version <- ns[[".package"]][["version"]] 1562s [00:52:42.765] if (is.null(version)) 1562s [00:52:42.765] version <- utils::packageVersion("future") 1562s [00:52:42.765] } 1562s [00:52:42.765] else { 1562s [00:52:42.765] version <- NULL 1562s [00:52:42.765] } 1562s [00:52:42.765] if (!has_future || version < "1.8.0") { 1562s [00:52:42.765] info <- base::c(r_version = base::gsub("R version ", 1562s [00:52:42.765] "", base::R.version$version.string), 1562s [00:52:42.765] platform = base::sprintf("%s (%s-bit)", 1562s [00:52:42.765] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1562s [00:52:42.765] os = base::paste(base::Sys.info()[base::c("sysname", 1562s [00:52:42.765] "release", "version")], collapse = " "), 1562s [00:52:42.765] hostname = base::Sys.info()[["nodename"]]) 1562s [00:52:42.765] info <- base::sprintf("%s: %s", base::names(info), 1562s [00:52:42.765] info) 1562s [00:52:42.765] info <- base::paste(info, collapse = "; ") 1562s [00:52:42.765] if (!has_future) { 1562s [00:52:42.765] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1562s [00:52:42.765] info) 1562s [00:52:42.765] } 1562s [00:52:42.765] else { 1562s [00:52:42.765] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1562s [00:52:42.765] info, version) 1562s [00:52:42.765] } 1562s [00:52:42.765] base::stop(msg) 1562s [00:52:42.765] } 1562s [00:52:42.765] }) 1562s [00:52:42.765] } 1562s [00:52:42.765] options(future.plan = NULL) 1562s [00:52:42.765] Sys.unsetenv("R_FUTURE_PLAN") 1562s [00:52:42.765] future::plan("default", .cleanup = FALSE, .init = FALSE) 1562s [00:52:42.765] } 1562s [00:52:42.765] ...future.workdir <- getwd() 1562s [00:52:42.765] } 1562s [00:52:42.765] ...future.oldOptions <- base::as.list(base::.Options) 1562s [00:52:42.765] ...future.oldEnvVars <- base::Sys.getenv() 1562s [00:52:42.765] } 1562s [00:52:42.765] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1562s [00:52:42.765] future.globals.maxSize = NULL, future.globals.method = NULL, 1562s [00:52:42.765] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1562s [00:52:42.765] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1562s [00:52:42.765] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1562s [00:52:42.765] future.stdout.windows.reencode = NULL, width = 80L) 1562s [00:52:42.765] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1562s [00:52:42.765] base::names(...future.oldOptions)) 1562s [00:52:42.765] } 1562s [00:52:42.765] if (FALSE) { 1562s [00:52:42.765] } 1562s [00:52:42.765] else { 1562s [00:52:42.765] if (TRUE) { 1562s [00:52:42.765] ...future.stdout <- base::rawConnection(base::raw(0L), 1562s [00:52:42.765] open = "w") 1562s [00:52:42.765] } 1562s [00:52:42.765] else { 1562s [00:52:42.765] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1562s [00:52:42.765] windows = "NUL", "/dev/null"), open = "w") 1562s [00:52:42.765] } 1562s [00:52:42.765] base::sink(...future.stdout, type = "output", split = FALSE) 1562s [00:52:42.765] base::on.exit(if (!base::is.null(...future.stdout)) { 1562s [00:52:42.765] base::sink(type = "output", split = FALSE) 1562s [00:52:42.765] base::close(...future.stdout) 1562s [00:52:42.765] }, add = TRUE) 1562s [00:52:42.765] } 1562s [00:52:42.765] ...future.frame <- base::sys.nframe() 1562s [00:52:42.765] ...future.conditions <- base::list() 1562s [00:52:42.765] ...future.rng <- base::globalenv()$.Random.seed 1562s [00:52:42.765] if (FALSE) { 1562s [00:52:42.765] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1562s [00:52:42.765] "...future.value", "...future.globalenv.names", ".Random.seed") 1562s [00:52:42.765] } 1562s [00:52:42.765] ...future.result <- base::tryCatch({ 1562s [00:52:42.765] base::withCallingHandlers({ 1562s [00:52:42.765] ...future.value <- base::withVisible(base::local({ 1562s [00:52:42.765] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1562s [00:52:42.765] if (!identical(...future.globals.maxSize.org, 1562s [00:52:42.765] ...future.globals.maxSize)) { 1562s [00:52:42.765] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1562s [00:52:42.765] on.exit(options(oopts), add = TRUE) 1562s [00:52:42.765] } 1562s [00:52:42.765] { 1562s [00:52:42.765] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1562s [00:52:42.765] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1562s [00:52:42.765] USE.NAMES = FALSE) 1562s [00:52:42.765] do.call(mapply, args = args) 1562s [00:52:42.765] } 1562s [00:52:42.765] })) 1562s [00:52:42.765] future::FutureResult(value = ...future.value$value, 1562s [00:52:42.765] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1562s [00:52:42.765] ...future.rng), globalenv = if (FALSE) 1562s [00:52:42.765] list(added = base::setdiff(base::names(base::.GlobalEnv), 1562s [00:52:42.765] ...future.globalenv.names)) 1562s [00:52:42.765] else NULL, started = ...future.startTime, version = "1.8") 1562s [00:52:42.765] }, condition = base::local({ 1562s [00:52:42.765] c <- base::c 1562s [00:52:42.765] inherits <- base::inherits 1562s [00:52:42.765] invokeRestart <- base::invokeRestart 1562s [00:52:42.765] length <- base::length 1562s [00:52:42.765] list <- base::list 1562s [00:52:42.765] seq.int <- base::seq.int 1562s [00:52:42.765] signalCondition <- base::signalCondition 1562s [00:52:42.765] sys.calls <- base::sys.calls 1562s [00:52:42.765] `[[` <- base::`[[` 1562s [00:52:42.765] `+` <- base::`+` 1562s [00:52:42.765] `<<-` <- base::`<<-` 1562s [00:52:42.765] sysCalls <- function(calls = sys.calls(), from = 1L) { 1562s [00:52:42.765] calls[seq.int(from = from + 12L, to = length(calls) - 1562s [00:52:42.765] 3L)] 1562s [00:52:42.765] } 1562s [00:52:42.765] function(cond) { 1562s [00:52:42.765] is_error <- inherits(cond, "error") 1562s [00:52:42.765] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1562s [00:52:42.765] NULL) 1562s [00:52:42.765] if (is_error) { 1562s [00:52:42.765] sessionInformation <- function() { 1562s [00:52:42.765] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1562s [00:52:42.765] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1562s [00:52:42.765] search = base::search(), system = base::Sys.info()) 1562s [00:52:42.765] } 1562s [00:52:42.765] ...future.conditions[[length(...future.conditions) + 1562s [00:52:42.765] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1562s [00:52:42.765] cond$call), session = sessionInformation(), 1562s [00:52:42.765] timestamp = base::Sys.time(), signaled = 0L) 1562s [00:52:42.765] signalCondition(cond) 1562s [00:52:42.765] } 1562s [00:52:42.765] else if (!ignore && TRUE && inherits(cond, c("condition", 1562s [00:52:42.765] "immediateCondition"))) { 1562s [00:52:42.765] signal <- TRUE && inherits(cond, "immediateCondition") 1562s [00:52:42.765] ...future.conditions[[length(...future.conditions) + 1562s [00:52:42.765] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1562s [00:52:42.765] if (TRUE && !signal) { 1562s [00:52:42.765] muffleCondition <- function (cond, pattern = "^muffle") 1562s [00:52:42.765] { 1562s [00:52:42.765] inherits <- base::inherits 1562s [00:52:42.765] invokeRestart <- base::invokeRestart 1562s [00:52:42.765] is.null <- base::is.null 1562s [00:52:42.765] muffled <- FALSE 1562s [00:52:42.765] if (inherits(cond, "message")) { 1562s [00:52:42.765] muffled <- grepl(pattern, "muffleMessage") 1562s [00:52:42.765] if (muffled) 1562s [00:52:42.765] invokeRestart("muffleMessage") 1562s [00:52:42.765] } 1562s [00:52:42.765] else if (inherits(cond, "warning")) { 1562s [00:52:42.765] muffled <- grepl(pattern, "muffleWarning") 1562s [00:52:42.765] if (muffled) 1562s [00:52:42.765] invokeRestart("muffleWarning") 1562s [00:52:42.765] } 1562s [00:52:42.765] else if (inherits(cond, "condition")) { 1562s [00:52:42.765] if (!is.null(pattern)) { 1562s [00:52:42.765] computeRestarts <- base::computeRestarts 1562s [00:52:42.765] grepl <- base::grepl 1562s [00:52:42.765] restarts <- computeRestarts(cond) 1562s [00:52:42.765] for (restart in restarts) { 1562s [00:52:42.765] name <- restart$name 1562s [00:52:42.765] if (is.null(name)) 1562s [00:52:42.765] next 1562s [00:52:42.765] if (!grepl(pattern, name)) 1562s [00:52:42.765] next 1562s [00:52:42.765] invokeRestart(restart) 1562s [00:52:42.765] muffled <- TRUE 1562s [00:52:42.765] break 1562s [00:52:42.765] } 1562s [00:52:42.765] } 1562s [00:52:42.765] } 1562s [00:52:42.765] invisible(muffled) 1562s [00:52:42.765] } 1562s [00:52:42.765] muffleCondition(cond, pattern = "^muffle") 1562s [00:52:42.765] } 1562s [00:52:42.765] } 1562s [00:52:42.765] else { 1562s [00:52:42.765] if (TRUE) { 1562s [00:52:42.765] muffleCondition <- function (cond, pattern = "^muffle") 1562s [00:52:42.765] { 1562s [00:52:42.765] inherits <- base::inherits 1562s [00:52:42.765] invokeRestart <- base::invokeRestart 1562s [00:52:42.765] is.null <- base::is.null 1562s [00:52:42.765] muffled <- FALSE 1562s [00:52:42.765] if (inherits(cond, "message")) { 1562s [00:52:42.765] muffled <- grepl(pattern, "muffleMessage") 1562s [00:52:42.765] if (muffled) 1562s [00:52:42.765] invokeRestart("muffleMessage") 1562s [00:52:42.765] } 1562s [00:52:42.765] else if (inherits(cond, "warning")) { 1562s [00:52:42.765] muffled <- grepl(pattern, "muffleWarning") 1562s [00:52:42.765] if (muffled) 1562s [00:52:42.765] invokeRestart("muffleWarning") 1562s [00:52:42.765] } 1562s [00:52:42.765] else if (inherits(cond, "condition")) { 1562s [00:52:42.765] if (!is.null(pattern)) { 1562s [00:52:42.765] computeRestarts <- base::computeRestarts 1562s [00:52:42.765] grepl <- base::grepl 1562s [00:52:42.765] restarts <- computeRestarts(cond) 1562s [00:52:42.765] for (restart in restarts) { 1562s [00:52:42.765] name <- restart$name 1562s [00:52:42.765] if (is.null(name)) 1562s [00:52:42.765] next 1562s [00:52:42.765] if (!grepl(pattern, name)) 1562s [00:52:42.765] next 1562s [00:52:42.765] invokeRestart(restart) 1562s [00:52:42.765] muffled <- TRUE 1562s [00:52:42.765] break 1562s [00:52:42.765] } 1562s [00:52:42.765] } 1562s [00:52:42.765] } 1562s [00:52:42.765] invisible(muffled) 1562s [00:52:42.765] } 1562s [00:52:42.765] muffleCondition(cond, pattern = "^muffle") 1562s [00:52:42.765] } 1562s [00:52:42.765] } 1562s [00:52:42.765] } 1562s [00:52:42.765] })) 1562s [00:52:42.765] }, error = function(ex) { 1562s [00:52:42.765] base::structure(base::list(value = NULL, visible = NULL, 1562s [00:52:42.765] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1562s [00:52:42.765] ...future.rng), started = ...future.startTime, 1562s [00:52:42.765] finished = Sys.time(), session_uuid = NA_character_, 1562s [00:52:42.765] version = "1.8"), class = "FutureResult") 1562s [00:52:42.765] }, finally = { 1562s [00:52:42.765] if (!identical(...future.workdir, getwd())) 1562s [00:52:42.765] setwd(...future.workdir) 1562s [00:52:42.765] { 1562s [00:52:42.765] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1562s [00:52:42.765] ...future.oldOptions$nwarnings <- NULL 1562s [00:52:42.765] } 1562s [00:52:42.765] base::options(...future.oldOptions) 1562s [00:52:42.765] if (.Platform$OS.type == "windows") { 1562s [00:52:42.765] old_names <- names(...future.oldEnvVars) 1562s [00:52:42.765] envs <- base::Sys.getenv() 1562s [00:52:42.765] names <- names(envs) 1562s [00:52:42.765] common <- intersect(names, old_names) 1562s [00:52:42.765] added <- setdiff(names, old_names) 1562s [00:52:42.765] removed <- setdiff(old_names, names) 1562s [00:52:42.765] changed <- common[...future.oldEnvVars[common] != 1562s [00:52:42.765] envs[common]] 1562s [00:52:42.765] NAMES <- toupper(changed) 1562s [00:52:42.765] args <- list() 1562s [00:52:42.765] for (kk in seq_along(NAMES)) { 1562s [00:52:42.765] name <- changed[[kk]] 1562s [00:52:42.765] NAME <- NAMES[[kk]] 1562s [00:52:42.765] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.765] next 1562s [00:52:42.765] args[[name]] <- ...future.oldEnvVars[[name]] 1562s [00:52:42.765] } 1562s [00:52:42.765] NAMES <- toupper(added) 1562s [00:52:42.765] for (kk in seq_along(NAMES)) { 1562s [00:52:42.765] name <- added[[kk]] 1562s [00:52:42.765] NAME <- NAMES[[kk]] 1562s [00:52:42.765] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.765] next 1562s [00:52:42.765] args[[name]] <- "" 1562s [00:52:42.765] } 1562s [00:52:42.765] NAMES <- toupper(removed) 1562s [00:52:42.765] for (kk in seq_along(NAMES)) { 1562s [00:52:42.765] name <- removed[[kk]] 1562s [00:52:42.765] NAME <- NAMES[[kk]] 1562s [00:52:42.765] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.765] next 1562s [00:52:42.765] args[[name]] <- ...future.oldEnvVars[[name]] 1562s [00:52:42.765] } 1562s [00:52:42.765] if (length(args) > 0) 1562s [00:52:42.765] base::do.call(base::Sys.setenv, args = args) 1562s [00:52:42.765] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1562s [00:52:42.765] } 1562s [00:52:42.765] else { 1562s [00:52:42.765] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1562s [00:52:42.765] } 1562s [00:52:42.765] { 1562s [00:52:42.765] if (base::length(...future.futureOptionsAdded) > 1562s [00:52:42.765] 0L) { 1562s [00:52:42.765] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1562s [00:52:42.765] base::names(opts) <- ...future.futureOptionsAdded 1562s [00:52:42.765] base::options(opts) 1562s [00:52:42.765] } 1562s [00:52:42.765] { 1562s [00:52:42.765] { 1562s [00:52:42.765] base::assign(".Random.seed", c(10407L, 2079749599L, 1562s [00:52:42.765] -1712504007L, 90762767L, 511132818L, -526970845L, 1562s [00:52:42.765] -1057805512L), envir = base::globalenv(), 1562s [00:52:42.765] inherits = FALSE) 1562s [00:52:42.765] NULL 1562s [00:52:42.765] } 1562s [00:52:42.765] options(future.plan = NULL) 1562s [00:52:42.765] if (is.na(NA_character_)) 1562s [00:52:42.765] Sys.unsetenv("R_FUTURE_PLAN") 1562s [00:52:42.765] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1562s [00:52:42.765] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1562s [00:52:42.765] envir = parent.frame()) 1562s [00:52:42.765] { 1562s [00:52:42.765] default_workers <- missing(workers) 1562s [00:52:42.765] if (is.function(workers)) 1562s [00:52:42.765] workers <- workers() 1562s [00:52:42.765] workers <- structure(as.integer(workers), 1562s [00:52:42.765] class = class(workers)) 1562s [00:52:42.765] stop_if_not(is.finite(workers), workers >= 1562s [00:52:42.765] 1L) 1562s [00:52:42.765] if ((workers == 1L && !inherits(workers, 1562s [00:52:42.765] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1562s [00:52:42.765] if (default_workers) 1562s [00:52:42.765] supportsMulticore(warn = TRUE) 1562s [00:52:42.765] return(sequential(..., envir = envir)) 1562s [00:52:42.765] } 1562s [00:52:42.765] oopts <- options(mc.cores = workers) 1562s [00:52:42.765] on.exit(options(oopts)) 1562s [00:52:42.765] future <- MulticoreFuture(..., workers = workers, 1562s [00:52:42.765] envir = envir) 1562s [00:52:42.765] if (!future$lazy) 1562s [00:52:42.765] future <- run(future) 1562s [00:52:42.765] invisible(future) 1562s [00:52:42.765] }), .cleanup = FALSE, .init = FALSE) 1562s [00:52:42.765] } 1562s [00:52:42.765] } 1562s [00:52:42.765] } 1562s [00:52:42.765] }) 1562s [00:52:42.765] if (TRUE) { 1562s [00:52:42.765] base::sink(type = "output", split = FALSE) 1562s [00:52:42.765] if (TRUE) { 1562s [00:52:42.765] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1562s [00:52:42.765] } 1562s [00:52:42.765] else { 1562s [00:52:42.765] ...future.result["stdout"] <- base::list(NULL) 1562s [00:52:42.765] } 1562s [00:52:42.765] base::close(...future.stdout) 1562s [00:52:42.765] ...future.stdout <- NULL 1562s [00:52:42.765] } 1562s [00:52:42.765] ...future.result$conditions <- ...future.conditions 1562s [00:52:42.765] ...future.result$finished <- base::Sys.time() 1562s [00:52:42.765] ...future.result 1562s [00:52:42.765] } 1562s [00:52:42.768] assign_globals() ... 1562s [00:52:42.768] List of 5 1562s [00:52:42.768] $ ...future.FUN :function (C, k) 1562s [00:52:42.768] $ MoreArgs : list() 1562s [00:52:42.768] $ ...future.elements_ii :List of 2 1562s [00:52:42.768] ..$ :List of 5 1562s [00:52:42.768] .. ..$ : chr "A" 1562s [00:52:42.768] .. ..$ : chr "B" 1562s [00:52:42.768] .. ..$ : chr "C" 1562s [00:52:42.768] .. ..$ : chr "D" 1562s [00:52:42.768] .. ..$ : chr "E" 1562s [00:52:42.768] ..$ :List of 5 1562s [00:52:42.768] .. ..$ : int 5 1562s [00:52:42.768] .. ..$ : int 4 1562s [00:52:42.768] .. ..$ : int 3 1562s [00:52:42.768] .. ..$ : int 2 1562s [00:52:42.768] .. ..$ : int 1 1562s [00:52:42.768] $ ...future.seeds_ii : NULL 1562s [00:52:42.768] $ ...future.globals.maxSize: NULL 1562s [00:52:42.768] - attr(*, "where")=List of 5 1562s [00:52:42.768] ..$ ...future.FUN : 1562s [00:52:42.768] ..$ MoreArgs : 1562s [00:52:42.768] ..$ ...future.elements_ii : 1562s [00:52:42.768] ..$ ...future.seeds_ii : 1562s [00:52:42.768] ..$ ...future.globals.maxSize: 1562s [00:52:42.768] - attr(*, "resolved")= logi FALSE 1562s [00:52:42.768] - attr(*, "total_size")= num 4160 1562s [00:52:42.768] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1562s [00:52:42.768] - attr(*, "already-done")= logi TRUE 1562s [00:52:42.783] - reassign environment for ‘...future.FUN’ 1562s [00:52:42.784] - copied ‘...future.FUN’ to environment 1562s [00:52:42.784] - copied ‘MoreArgs’ to environment 1562s [00:52:42.784] - copied ‘...future.elements_ii’ to environment 1562s [00:52:42.784] - copied ‘...future.seeds_ii’ to environment 1562s [00:52:42.784] - copied ‘...future.globals.maxSize’ to environment 1562s [00:52:42.785] assign_globals() ... done 1562s [00:52:42.785] plan(): Setting new future strategy stack: 1562s [00:52:42.785] List of future strategies: 1562s [00:52:42.785] 1. sequential: 1562s [00:52:42.785] - args: function (..., envir = parent.frame()) 1562s [00:52:42.785] - tweaked: FALSE 1562s [00:52:42.785] - call: NULL 1562s [00:52:42.786] plan(): nbrOfWorkers() = 1 1562s [00:52:42.786] plan(): Setting new future strategy stack: 1562s [00:52:42.787] List of future strategies: 1562s [00:52:42.787] 1. multicore: 1562s [00:52:42.787] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1562s [00:52:42.787] - tweaked: FALSE 1562s [00:52:42.787] - call: plan(strategy) 1562s [00:52:42.791] plan(): nbrOfWorkers() = 1 1562s [00:52:42.791] SequentialFuture started (and completed) 1562s [00:52:42.791] - Launch lazy future ... done 1562s [00:52:42.792] run() for ‘SequentialFuture’ ... done 1562s [00:52:42.792] Created future: 1562s [00:52:42.792] SequentialFuture: 1562s [00:52:42.792] Label: ‘future_.mapply-1’ 1562s [00:52:42.792] Expression: 1562s [00:52:42.792] { 1562s [00:52:42.792] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1562s [00:52:42.792] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1562s [00:52:42.792] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1562s [00:52:42.792] on.exit(options(oopts), add = TRUE) 1562s [00:52:42.792] } 1562s [00:52:42.792] { 1562s [00:52:42.792] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1562s [00:52:42.792] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1562s [00:52:42.792] do.call(mapply, args = args) 1562s [00:52:42.792] } 1562s [00:52:42.792] } 1562s [00:52:42.792] Lazy evaluation: FALSE 1562s [00:52:42.792] Asynchronous evaluation: FALSE 1562s [00:52:42.792] Local evaluation: TRUE 1562s [00:52:42.792] Environment: R_GlobalEnv 1562s [00:52:42.792] Capture standard output: TRUE 1562s [00:52:42.792] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1562s [00:52:42.792] Globals: 5 objects totaling 4.06 KiB (function ‘...future.FUN’ of 3.24 KiB, list ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 840 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1562s [00:52:42.792] Packages: 1562s [00:52:42.792] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1562s [00:52:42.792] Resolved: TRUE 1562s [00:52:42.792] Value: 560 bytes of class ‘list’ 1562s [00:52:42.792] Early signaling: FALSE 1562s [00:52:42.792] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1562s [00:52:42.792] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1562s [00:52:42.794] Chunk #1 of 1 ... DONE 1562s [00:52:42.794] Launching 1 futures (chunks) ... DONE 1562s [00:52:42.794] Resolving 1 futures (chunks) ... 1562s [00:52:42.795] resolve() on list ... 1562s [00:52:42.795] recursive: 0 1562s [00:52:42.795] length: 1 1562s [00:52:42.795] 1562s [00:52:42.795] resolved() for ‘SequentialFuture’ ... 1562s [00:52:42.795] - state: ‘finished’ 1562s [00:52:42.795] - run: TRUE 1562s [00:52:42.796] - result: ‘FutureResult’ 1562s [00:52:42.796] resolved() for ‘SequentialFuture’ ... done 1562s [00:52:42.796] Future #1 1562s [00:52:42.796] signalConditionsASAP(SequentialFuture, pos=1) ... 1562s [00:52:42.796] - nx: 1 1562s [00:52:42.796] - relay: TRUE 1562s [00:52:42.796] - stdout: TRUE 1562s [00:52:42.797] - signal: TRUE 1562s [00:52:42.797] - resignal: FALSE 1562s [00:52:42.797] - force: TRUE 1562s [00:52:42.797] - relayed: [n=1] FALSE 1562s [00:52:42.797] - queued futures: [n=1] FALSE 1562s [00:52:42.797] - until=1 1562s [00:52:42.797] - relaying element #1 1562s [00:52:42.798] - relayed: [n=1] TRUE 1562s [00:52:42.798] - queued futures: [n=1] TRUE 1562s [00:52:42.798] signalConditionsASAP(SequentialFuture, pos=1) ... done 1562s [00:52:42.798] length: 0 (resolved future 1) 1562s [00:52:42.798] Relaying remaining futures 1562s [00:52:42.798] signalConditionsASAP(NULL, pos=0) ... 1562s [00:52:42.798] - nx: 1 1562s [00:52:42.798] - relay: TRUE 1562s [00:52:42.799] - stdout: TRUE 1562s [00:52:42.799] - signal: TRUE 1562s [00:52:42.799] - resignal: FALSE 1562s [00:52:42.799] - force: TRUE 1562s [00:52:42.799] - relayed: [n=1] TRUE 1562s [00:52:42.799] - queued futures: [n=1] TRUE 1562s - flush all 1562s [00:52:42.799] - relayed: [n=1] TRUE 1562s [00:52:42.800] - queued futures: [n=1] TRUE 1562s [00:52:42.800] signalConditionsASAP(NULL, pos=0) ... done 1562s [00:52:42.800] resolve() on list ... DONE 1562s [00:52:42.801] - Number of value chunks collected: 1 1562s [00:52:42.801] Resolving 1 futures (chunks) ... DONE 1562s [00:52:42.802] Reducing values from 1 chunks ... 1562s [00:52:42.802] - Number of values collected after concatenation: 5 1562s [00:52:42.802] - Number of values expected: 5 1562s [00:52:42.802] Reducing values from 1 chunks ... DONE 1562s [00:52:42.803] future_mapply() ... DONE 1562s - Subsetting (Issue #17) ... 1562s [00:52:42.804] future_mapply() ... 1562s [00:52:42.807] Number of chunks: 1 1562s [00:52:42.808] getGlobalsAndPackagesXApply() ... 1562s [00:52:42.808] - future.globals: TRUE 1562s [00:52:42.808] getGlobalsAndPackages() ... 1562s [00:52:42.808] Searching for globals... 1562s [00:52:42.812] - globals found: [1] ‘FUN’ 1562s [00:52:42.813] Searching for globals ... DONE 1562s [00:52:42.813] Resolving globals: FALSE 1562s [00:52:42.813] The total size of the 1 globals is 848 bytes (848 bytes) 1562s [00:52:42.814] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1562s [00:52:42.814] - globals: [1] ‘FUN’ 1562s [00:52:42.815] 1562s [00:52:42.815] getGlobalsAndPackages() ... DONE 1562s [00:52:42.815] - globals found/used: [n=1] ‘FUN’ 1562s [00:52:42.815] - needed namespaces: [n=0] 1562s [00:52:42.815] Finding globals ... DONE 1562s [00:52:42.815] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1562s [00:52:42.816] List of 2 1562s [00:52:42.816] $ ...future.FUN:function (x) 1562s [00:52:42.816] $ MoreArgs : NULL 1562s [00:52:42.816] - attr(*, "where")=List of 2 1562s [00:52:42.816] ..$ ...future.FUN: 1562s [00:52:42.816] ..$ MoreArgs : 1562s [00:52:42.816] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1562s [00:52:42.816] - attr(*, "resolved")= logi FALSE 1562s [00:52:42.816] - attr(*, "total_size")= num NA 1562s [00:52:42.819] Packages to be attached in all futures: [n=0] 1562s [00:52:42.819] getGlobalsAndPackagesXApply() ... DONE 1562s [00:52:42.819] Number of futures (= number of chunks): 1 1562s [00:52:42.819] Launching 1 futures (chunks) ... 1562s [00:52:42.820] Chunk #1 of 1 ... 1562s [00:52:42.820] - Finding globals in '...' for chunk #1 ... 1562s [00:52:42.820] getGlobalsAndPackages() ... 1562s [00:52:42.820] Searching for globals... 1562s [00:52:42.820] 1562s [00:52:42.821] Searching for globals ... DONE 1562s [00:52:42.821] - globals: [0] 1562s [00:52:42.821] getGlobalsAndPackages() ... DONE 1562s [00:52:42.821] + additional globals found: [n=0] 1562s [00:52:42.821] + additional namespaces needed: [n=0] 1562s [00:52:42.821] - Finding globals in '...' for chunk #1 ... DONE 1562s [00:52:42.821] - seeds: 1562s [00:52:42.822] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.822] getGlobalsAndPackages() ... 1562s [00:52:42.822] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.823] Resolving globals: FALSE 1562s [00:52:42.823] The total size of the 5 globals is 1.10 KiB (1128 bytes) 1562s [00:52:42.824] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 1.10 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (848 bytes of class ‘function’), ‘...future.elements_ii’ (280 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1562s [00:52:42.825] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.825] 1562s [00:52:42.825] getGlobalsAndPackages() ... DONE 1562s [00:52:42.825] run() for ‘Future’ ... 1562s [00:52:42.825] - state: ‘created’ 1562s [00:52:42.826] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1562s [00:52:42.829] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1562s [00:52:42.829] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1562s [00:52:42.830] - Field: ‘label’ 1562s [00:52:42.830] - Field: ‘local’ 1562s [00:52:42.830] - Field: ‘owner’ 1562s [00:52:42.830] - Field: ‘envir’ 1562s [00:52:42.831] - Field: ‘packages’ 1562s [00:52:42.831] - Field: ‘gc’ 1562s [00:52:42.831] - Field: ‘conditions’ 1562s [00:52:42.831] - Field: ‘expr’ 1562s [00:52:42.831] - Field: ‘uuid’ 1562s [00:52:42.831] - Field: ‘seed’ 1562s [00:52:42.832] - Field: ‘version’ 1562s [00:52:42.832] - Field: ‘result’ 1562s [00:52:42.832] - Field: ‘asynchronous’ 1562s [00:52:42.832] - Field: ‘calls’ 1562s [00:52:42.832] - Field: ‘globals’ 1562s [00:52:42.832] - Field: ‘stdout’ 1562s [00:52:42.832] - Field: ‘earlySignal’ 1562s [00:52:42.832] - Field: ‘lazy’ 1562s [00:52:42.833] - Field: ‘state’ 1562s [00:52:42.833] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1562s [00:52:42.833] - Launch lazy future ... 1562s [00:52:42.833] Packages needed by the future expression (n = 0): 1562s [00:52:42.833] Packages needed by future strategies (n = 0): 1562s [00:52:42.834] { 1562s [00:52:42.834] { 1562s [00:52:42.834] { 1562s [00:52:42.834] ...future.startTime <- base::Sys.time() 1562s [00:52:42.834] { 1562s [00:52:42.834] { 1562s [00:52:42.834] { 1562s [00:52:42.834] base::local({ 1562s [00:52:42.834] has_future <- base::requireNamespace("future", 1562s [00:52:42.834] quietly = TRUE) 1562s [00:52:42.834] if (has_future) { 1562s [00:52:42.834] ns <- base::getNamespace("future") 1562s [00:52:42.834] version <- ns[[".package"]][["version"]] 1562s [00:52:42.834] if (is.null(version)) 1562s [00:52:42.834] version <- utils::packageVersion("future") 1562s [00:52:42.834] } 1562s [00:52:42.834] else { 1562s [00:52:42.834] version <- NULL 1562s [00:52:42.834] } 1562s [00:52:42.834] if (!has_future || version < "1.8.0") { 1562s [00:52:42.834] info <- base::c(r_version = base::gsub("R version ", 1562s [00:52:42.834] "", base::R.version$version.string), 1562s [00:52:42.834] platform = base::sprintf("%s (%s-bit)", 1562s [00:52:42.834] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1562s [00:52:42.834] os = base::paste(base::Sys.info()[base::c("sysname", 1562s [00:52:42.834] "release", "version")], collapse = " "), 1562s [00:52:42.834] hostname = base::Sys.info()[["nodename"]]) 1562s [00:52:42.834] info <- base::sprintf("%s: %s", base::names(info), 1562s [00:52:42.834] info) 1562s [00:52:42.834] info <- base::paste(info, collapse = "; ") 1562s [00:52:42.834] if (!has_future) { 1562s [00:52:42.834] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1562s [00:52:42.834] info) 1562s [00:52:42.834] } 1562s [00:52:42.834] else { 1562s [00:52:42.834] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1562s [00:52:42.834] info, version) 1562s [00:52:42.834] } 1562s [00:52:42.834] base::stop(msg) 1562s [00:52:42.834] } 1562s [00:52:42.834] }) 1562s [00:52:42.834] } 1562s [00:52:42.834] options(future.plan = NULL) 1562s [00:52:42.834] Sys.unsetenv("R_FUTURE_PLAN") 1562s [00:52:42.834] future::plan("default", .cleanup = FALSE, .init = FALSE) 1562s [00:52:42.834] } 1562s [00:52:42.834] ...future.workdir <- getwd() 1562s [00:52:42.834] } 1562s [00:52:42.834] ...future.oldOptions <- base::as.list(base::.Options) 1562s [00:52:42.834] ...future.oldEnvVars <- base::Sys.getenv() 1562s [00:52:42.834] } 1562s [00:52:42.834] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1562s [00:52:42.834] future.globals.maxSize = NULL, future.globals.method = NULL, 1562s [00:52:42.834] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1562s [00:52:42.834] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1562s [00:52:42.834] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1562s [00:52:42.834] future.stdout.windows.reencode = NULL, width = 80L) 1562s [00:52:42.834] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1562s [00:52:42.834] base::names(...future.oldOptions)) 1562s [00:52:42.834] } 1562s [00:52:42.834] if (FALSE) { 1562s [00:52:42.834] } 1562s [00:52:42.834] else { 1562s [00:52:42.834] if (TRUE) { 1562s [00:52:42.834] ...future.stdout <- base::rawConnection(base::raw(0L), 1562s [00:52:42.834] open = "w") 1562s [00:52:42.834] } 1562s [00:52:42.834] else { 1562s [00:52:42.834] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1562s [00:52:42.834] windows = "NUL", "/dev/null"), open = "w") 1562s [00:52:42.834] } 1562s [00:52:42.834] base::sink(...future.stdout, type = "output", split = FALSE) 1562s [00:52:42.834] base::on.exit(if (!base::is.null(...future.stdout)) { 1562s [00:52:42.834] base::sink(type = "output", split = FALSE) 1562s [00:52:42.834] base::close(...future.stdout) 1562s [00:52:42.834] }, add = TRUE) 1562s [00:52:42.834] } 1562s [00:52:42.834] ...future.frame <- base::sys.nframe() 1562s [00:52:42.834] ...future.conditions <- base::list() 1562s [00:52:42.834] ...future.rng <- base::globalenv()$.Random.seed 1562s [00:52:42.834] if (FALSE) { 1562s [00:52:42.834] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1562s [00:52:42.834] "...future.value", "...future.globalenv.names", ".Random.seed") 1562s [00:52:42.834] } 1562s [00:52:42.834] ...future.result <- base::tryCatch({ 1562s [00:52:42.834] base::withCallingHandlers({ 1562s [00:52:42.834] ...future.value <- base::withVisible(base::local({ 1562s [00:52:42.834] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1562s [00:52:42.834] if (!identical(...future.globals.maxSize.org, 1562s [00:52:42.834] ...future.globals.maxSize)) { 1562s [00:52:42.834] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1562s [00:52:42.834] on.exit(options(oopts), add = TRUE) 1562s [00:52:42.834] } 1562s [00:52:42.834] { 1562s [00:52:42.834] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1562s [00:52:42.834] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1562s [00:52:42.834] USE.NAMES = FALSE) 1562s [00:52:42.834] do.call(mapply, args = args) 1562s [00:52:42.834] } 1562s [00:52:42.834] })) 1562s [00:52:42.834] future::FutureResult(value = ...future.value$value, 1562s [00:52:42.834] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1562s [00:52:42.834] ...future.rng), globalenv = if (FALSE) 1562s [00:52:42.834] list(added = base::setdiff(base::names(base::.GlobalEnv), 1562s [00:52:42.834] ...future.globalenv.names)) 1562s [00:52:42.834] else NULL, started = ...future.startTime, version = "1.8") 1562s [00:52:42.834] }, condition = base::local({ 1562s [00:52:42.834] c <- base::c 1562s [00:52:42.834] inherits <- base::inherits 1562s [00:52:42.834] invokeRestart <- base::invokeRestart 1562s [00:52:42.834] length <- base::length 1562s [00:52:42.834] list <- base::list 1562s [00:52:42.834] seq.int <- base::seq.int 1562s [00:52:42.834] signalCondition <- base::signalCondition 1562s [00:52:42.834] sys.calls <- base::sys.calls 1562s [00:52:42.834] `[[` <- base::`[[` 1562s [00:52:42.834] `+` <- base::`+` 1562s [00:52:42.834] `<<-` <- base::`<<-` 1562s [00:52:42.834] sysCalls <- function(calls = sys.calls(), from = 1L) { 1562s [00:52:42.834] calls[seq.int(from = from + 12L, to = length(calls) - 1562s [00:52:42.834] 3L)] 1562s [00:52:42.834] } 1562s [00:52:42.834] function(cond) { 1562s [00:52:42.834] is_error <- inherits(cond, "error") 1562s [00:52:42.834] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1562s [00:52:42.834] NULL) 1562s [00:52:42.834] if (is_error) { 1562s [00:52:42.834] sessionInformation <- function() { 1562s [00:52:42.834] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1562s [00:52:42.834] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1562s [00:52:42.834] search = base::search(), system = base::Sys.info()) 1562s [00:52:42.834] } 1562s [00:52:42.834] ...future.conditions[[length(...future.conditions) + 1562s [00:52:42.834] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1562s [00:52:42.834] cond$call), session = sessionInformation(), 1562s [00:52:42.834] timestamp = base::Sys.time(), signaled = 0L) 1562s [00:52:42.834] signalCondition(cond) 1562s [00:52:42.834] } 1562s [00:52:42.834] else if (!ignore && TRUE && inherits(cond, c("condition", 1562s [00:52:42.834] "immediateCondition"))) { 1562s [00:52:42.834] signal <- TRUE && inherits(cond, "immediateCondition") 1562s [00:52:42.834] ...future.conditions[[length(...future.conditions) + 1562s [00:52:42.834] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1562s [00:52:42.834] if (TRUE && !signal) { 1562s [00:52:42.834] muffleCondition <- function (cond, pattern = "^muffle") 1562s [00:52:42.834] { 1562s [00:52:42.834] inherits <- base::inherits 1562s [00:52:42.834] invokeRestart <- base::invokeRestart 1562s [00:52:42.834] is.null <- base::is.null 1562s [00:52:42.834] muffled <- FALSE 1562s [00:52:42.834] if (inherits(cond, "message")) { 1562s [00:52:42.834] muffled <- grepl(pattern, "muffleMessage") 1562s [00:52:42.834] if (muffled) 1562s [00:52:42.834] invokeRestart("muffleMessage") 1562s [00:52:42.834] } 1562s [00:52:42.834] else if (inherits(cond, "warning")) { 1562s [00:52:42.834] muffled <- grepl(pattern, "muffleWarning") 1562s [00:52:42.834] if (muffled) 1562s [00:52:42.834] invokeRestart("muffleWarning") 1562s [00:52:42.834] } 1562s [00:52:42.834] else if (inherits(cond, "condition")) { 1562s [00:52:42.834] if (!is.null(pattern)) { 1562s [00:52:42.834] computeRestarts <- base::computeRestarts 1562s [00:52:42.834] grepl <- base::grepl 1562s [00:52:42.834] restarts <- computeRestarts(cond) 1562s [00:52:42.834] for (restart in restarts) { 1562s [00:52:42.834] name <- restart$name 1562s [00:52:42.834] if (is.null(name)) 1562s [00:52:42.834] next 1562s [00:52:42.834] if (!grepl(pattern, name)) 1562s [00:52:42.834] next 1562s [00:52:42.834] invokeRestart(restart) 1562s [00:52:42.834] muffled <- TRUE 1562s [00:52:42.834] break 1562s [00:52:42.834] } 1562s [00:52:42.834] } 1562s [00:52:42.834] } 1562s [00:52:42.834] invisible(muffled) 1562s [00:52:42.834] } 1562s [00:52:42.834] muffleCondition(cond, pattern = "^muffle") 1562s [00:52:42.834] } 1562s [00:52:42.834] } 1562s [00:52:42.834] else { 1562s [00:52:42.834] if (TRUE) { 1562s [00:52:42.834] muffleCondition <- function (cond, pattern = "^muffle") 1562s [00:52:42.834] { 1562s [00:52:42.834] inherits <- base::inherits 1562s [00:52:42.834] invokeRestart <- base::invokeRestart 1562s [00:52:42.834] is.null <- base::is.null 1562s [00:52:42.834] muffled <- FALSE 1562s [00:52:42.834] if (inherits(cond, "message")) { 1562s [00:52:42.834] muffled <- grepl(pattern, "muffleMessage") 1562s [00:52:42.834] if (muffled) 1562s [00:52:42.834] invokeRestart("muffleMessage") 1562s [00:52:42.834] } 1562s [00:52:42.834] else if (inherits(cond, "warning")) { 1562s [00:52:42.834] muffled <- grepl(pattern, "muffleWarning") 1562s [00:52:42.834] if (muffled) 1562s [00:52:42.834] invokeRestart("muffleWarning") 1562s [00:52:42.834] } 1562s [00:52:42.834] else if (inherits(cond, "condition")) { 1562s [00:52:42.834] if (!is.null(pattern)) { 1562s [00:52:42.834] computeRestarts <- base::computeRestarts 1562s [00:52:42.834] grepl <- base::grepl 1562s [00:52:42.834] restarts <- computeRestarts(cond) 1562s [00:52:42.834] for (restart in restarts) { 1562s [00:52:42.834] name <- restart$name 1562s [00:52:42.834] if (is.null(name)) 1562s [00:52:42.834] next 1562s [00:52:42.834] if (!grepl(pattern, name)) 1562s [00:52:42.834] next 1562s [00:52:42.834] invokeRestart(restart) 1562s [00:52:42.834] muffled <- TRUE 1562s [00:52:42.834] break 1562s [00:52:42.834] } 1562s [00:52:42.834] } 1562s [00:52:42.834] } 1562s [00:52:42.834] invisible(muffled) 1562s [00:52:42.834] } 1562s [00:52:42.834] muffleCondition(cond, pattern = "^muffle") 1562s [00:52:42.834] } 1562s [00:52:42.834] } 1562s [00:52:42.834] } 1562s [00:52:42.834] })) 1562s [00:52:42.834] }, error = function(ex) { 1562s [00:52:42.834] base::structure(base::list(value = NULL, visible = NULL, 1562s [00:52:42.834] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1562s [00:52:42.834] ...future.rng), started = ...future.startTime, 1562s [00:52:42.834] finished = Sys.time(), session_uuid = NA_character_, 1562s [00:52:42.834] version = "1.8"), class = "FutureResult") 1562s [00:52:42.834] }, finally = { 1562s [00:52:42.834] if (!identical(...future.workdir, getwd())) 1562s [00:52:42.834] setwd(...future.workdir) 1562s [00:52:42.834] { 1562s [00:52:42.834] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1562s [00:52:42.834] ...future.oldOptions$nwarnings <- NULL 1562s [00:52:42.834] } 1562s [00:52:42.834] base::options(...future.oldOptions) 1562s [00:52:42.834] if (.Platform$OS.type == "windows") { 1562s [00:52:42.834] old_names <- names(...future.oldEnvVars) 1562s [00:52:42.834] envs <- base::Sys.getenv() 1562s [00:52:42.834] names <- names(envs) 1562s [00:52:42.834] common <- intersect(names, old_names) 1562s [00:52:42.834] added <- setdiff(names, old_names) 1562s [00:52:42.834] removed <- setdiff(old_names, names) 1562s [00:52:42.834] changed <- common[...future.oldEnvVars[common] != 1562s [00:52:42.834] envs[common]] 1562s [00:52:42.834] NAMES <- toupper(changed) 1562s [00:52:42.834] args <- list() 1562s [00:52:42.834] for (kk in seq_along(NAMES)) { 1562s [00:52:42.834] name <- changed[[kk]] 1562s [00:52:42.834] NAME <- NAMES[[kk]] 1562s [00:52:42.834] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.834] next 1562s [00:52:42.834] args[[name]] <- ...future.oldEnvVars[[name]] 1562s [00:52:42.834] } 1562s [00:52:42.834] NAMES <- toupper(added) 1562s [00:52:42.834] for (kk in seq_along(NAMES)) { 1562s [00:52:42.834] name <- added[[kk]] 1562s [00:52:42.834] NAME <- NAMES[[kk]] 1562s [00:52:42.834] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.834] next 1562s [00:52:42.834] args[[name]] <- "" 1562s [00:52:42.834] } 1562s [00:52:42.834] NAMES <- toupper(removed) 1562s [00:52:42.834] for (kk in seq_along(NAMES)) { 1562s [00:52:42.834] name <- removed[[kk]] 1562s [00:52:42.834] NAME <- NAMES[[kk]] 1562s [00:52:42.834] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.834] next 1562s [00:52:42.834] args[[name]] <- ...future.oldEnvVars[[name]] 1562s [00:52:42.834] } 1562s [00:52:42.834] if (length(args) > 0) 1562s [00:52:42.834] base::do.call(base::Sys.setenv, args = args) 1562s [00:52:42.834] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1562s [00:52:42.834] } 1562s [00:52:42.834] else { 1562s [00:52:42.834] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1562s [00:52:42.834] } 1562s [00:52:42.834] { 1562s [00:52:42.834] if (base::length(...future.futureOptionsAdded) > 1562s [00:52:42.834] 0L) { 1562s [00:52:42.834] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1562s [00:52:42.834] base::names(opts) <- ...future.futureOptionsAdded 1562s [00:52:42.834] base::options(opts) 1562s [00:52:42.834] } 1562s [00:52:42.834] { 1562s [00:52:42.834] { 1562s [00:52:42.834] base::assign(".Random.seed", c(10407L, 2079749599L, 1562s [00:52:42.834] -1712504007L, 90762767L, 511132818L, -526970845L, 1562s [00:52:42.834] -1057805512L), envir = base::globalenv(), 1562s [00:52:42.834] inherits = FALSE) 1562s [00:52:42.834] NULL 1562s [00:52:42.834] } 1562s [00:52:42.834] options(future.plan = NULL) 1562s [00:52:42.834] if (is.na(NA_character_)) 1562s [00:52:42.834] Sys.unsetenv("R_FUTURE_PLAN") 1562s [00:52:42.834] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1562s [00:52:42.834] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1562s [00:52:42.834] envir = parent.frame()) 1562s [00:52:42.834] { 1562s [00:52:42.834] default_workers <- missing(workers) 1562s [00:52:42.834] if (is.function(workers)) 1562s [00:52:42.834] workers <- workers() 1562s [00:52:42.834] workers <- structure(as.integer(workers), 1562s [00:52:42.834] class = class(workers)) 1562s [00:52:42.834] stop_if_not(is.finite(workers), workers >= 1562s [00:52:42.834] 1L) 1562s [00:52:42.834] if ((workers == 1L && !inherits(workers, 1562s [00:52:42.834] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1562s [00:52:42.834] if (default_workers) 1562s [00:52:42.834] supportsMulticore(warn = TRUE) 1562s [00:52:42.834] return(sequential(..., envir = envir)) 1562s [00:52:42.834] } 1562s [00:52:42.834] oopts <- options(mc.cores = workers) 1562s [00:52:42.834] on.exit(options(oopts)) 1562s [00:52:42.834] future <- MulticoreFuture(..., workers = workers, 1562s [00:52:42.834] envir = envir) 1562s [00:52:42.834] if (!future$lazy) 1562s [00:52:42.834] future <- run(future) 1562s [00:52:42.834] invisible(future) 1562s [00:52:42.834] }), .cleanup = FALSE, .init = FALSE) 1562s [00:52:42.834] } 1562s [00:52:42.834] } 1562s [00:52:42.834] } 1562s [00:52:42.834] }) 1562s [00:52:42.834] if (TRUE) { 1562s [00:52:42.834] base::sink(type = "output", split = FALSE) 1562s [00:52:42.834] if (TRUE) { 1562s [00:52:42.834] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1562s [00:52:42.834] } 1562s [00:52:42.834] else { 1562s [00:52:42.834] ...future.result["stdout"] <- base::list(NULL) 1562s [00:52:42.834] } 1562s [00:52:42.834] base::close(...future.stdout) 1562s [00:52:42.834] ...future.stdout <- NULL 1562s [00:52:42.834] } 1562s [00:52:42.834] ...future.result$conditions <- ...future.conditions 1562s [00:52:42.834] ...future.result$finished <- base::Sys.time() 1562s [00:52:42.834] ...future.result 1562s [00:52:42.834] } 1562s [00:52:42.841] assign_globals() ... 1562s [00:52:42.841] List of 5 1562s [00:52:42.841] $ ...future.FUN :function (x) 1562s [00:52:42.841] $ MoreArgs : NULL 1562s [00:52:42.841] $ ...future.elements_ii :List of 1 1562s [00:52:42.841] ..$ :List of 1 1562s [00:52:42.841] .. ..$ : Date[1:1], format: "2018-06-01" 1562s [00:52:42.841] $ ...future.seeds_ii : NULL 1562s [00:52:42.841] $ ...future.globals.maxSize: NULL 1562s [00:52:42.841] - attr(*, "where")=List of 5 1562s [00:52:42.841] ..$ ...future.FUN : 1562s [00:52:42.841] ..$ MoreArgs : 1562s [00:52:42.841] ..$ ...future.elements_ii : 1562s [00:52:42.841] ..$ ...future.seeds_ii : 1562s [00:52:42.841] ..$ ...future.globals.maxSize: 1562s [00:52:42.841] - attr(*, "resolved")= logi FALSE 1562s [00:52:42.841] - attr(*, "total_size")= num 1128 1562s [00:52:42.841] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1562s [00:52:42.841] - attr(*, "already-done")= logi TRUE 1562s [00:52:42.847] - copied ‘...future.FUN’ to environment 1562s [00:52:42.848] - copied ‘MoreArgs’ to environment 1562s [00:52:42.848] - copied ‘...future.elements_ii’ to environment 1562s [00:52:42.848] - copied ‘...future.seeds_ii’ to environment 1562s [00:52:42.848] - copied ‘...future.globals.maxSize’ to environment 1562s [00:52:42.848] assign_globals() ... done 1562s [00:52:42.848] plan(): Setting new future strategy stack: 1562s [00:52:42.849] List of future strategies: 1562s [00:52:42.849] 1. sequential: 1562s [00:52:42.849] - args: function (..., envir = parent.frame()) 1562s [00:52:42.849] - tweaked: FALSE 1562s [00:52:42.849] - call: NULL 1562s [00:52:42.849] plan(): nbrOfWorkers() = 1 1562s [00:52:42.852] plan(): Setting new future strategy stack: 1562s [00:52:42.852] List of future strategies: 1562s [00:52:42.852] 1. multicore: 1562s [00:52:42.852] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1562s [00:52:42.852] - tweaked: FALSE 1562s [00:52:42.852] - call: plan(strategy) 1562s [00:52:42.856] plan(): nbrOfWorkers() = 1 1562s [00:52:42.857] SequentialFuture started (and completed) 1562s [00:52:42.857] - Launch lazy future ... done 1562s [00:52:42.857] run() for ‘SequentialFuture’ ... done 1562s [00:52:42.857] Created future: 1562s [00:52:42.858] SequentialFuture: 1562s [00:52:42.858] Label: ‘future_mapply-1’ 1562s [00:52:42.858] Expression: 1562s [00:52:42.858] { 1562s [00:52:42.858] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1562s [00:52:42.858] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1562s [00:52:42.858] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1562s [00:52:42.858] on.exit(options(oopts), add = TRUE) 1562s [00:52:42.858] } 1562s [00:52:42.858] { 1562s [00:52:42.858] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1562s [00:52:42.858] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1562s [00:52:42.858] do.call(mapply, args = args) 1562s [00:52:42.858] } 1562s [00:52:42.858] } 1562s [00:52:42.858] Lazy evaluation: FALSE 1562s [00:52:42.858] Asynchronous evaluation: FALSE 1562s [00:52:42.858] Local evaluation: TRUE 1562s [00:52:42.858] Environment: R_GlobalEnv 1562s [00:52:42.858] Capture standard output: TRUE 1562s [00:52:42.858] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1562s [00:52:42.858] Globals: 5 objects totaling 1.10 KiB (function ‘...future.FUN’ of 848 bytes, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 280 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1562s [00:52:42.858] Packages: 1562s [00:52:42.858] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1562s [00:52:42.858] Resolved: TRUE 1562s [00:52:42.858] Value: 280 bytes of class ‘list’ 1562s [00:52:42.858] Early signaling: FALSE 1562s [00:52:42.858] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1562s [00:52:42.858] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1562s [00:52:42.859] Chunk #1 of 1 ... DONE 1562s [00:52:42.859] Launching 1 futures (chunks) ... DONE 1562s [00:52:42.860] Resolving 1 futures (chunks) ... 1562s [00:52:42.860] resolve() on list ... 1562s [00:52:42.861] recursive: 0 1562s [00:52:42.861] length: 1 1562s [00:52:42.861] 1562s [00:52:42.862] resolved() for ‘SequentialFuture’ ... 1562s [00:52:42.862] - state: ‘finished’ 1562s [00:52:42.862] - run: TRUE 1562s [00:52:42.862] - result: ‘FutureResult’ 1562s [00:52:42.862] resolved() for ‘SequentialFuture’ ... done 1562s [00:52:42.862] Future #1 1562s [00:52:42.863] signalConditionsASAP(SequentialFuture, pos=1) ... 1562s [00:52:42.863] - nx: 1 1562s [00:52:42.863] - relay: TRUE 1562s [00:52:42.863] - stdout: TRUE 1562s [00:52:42.864] - signal: TRUE 1562s [00:52:42.864] - resignal: FALSE 1562s [00:52:42.864] - force: TRUE 1562s [00:52:42.864] - relayed: [n=1] FALSE 1562s [00:52:42.864] - queued futures: [n=1] FALSE 1562s [00:52:42.864] - until=1 1562s [00:52:42.865] - relaying element #1 1562s [00:52:42.865] - relayed: [n=1] TRUE 1562s [00:52:42.865] - queued futures: [n=1] TRUE 1562s [00:52:42.865] signalConditionsASAP(SequentialFuture, pos=1) ... done 1562s [00:52:42.865] length: 0 (resolved future 1) 1562s [00:52:42.866] Relaying remaining futures 1562s [00:52:42.866] signalConditionsASAP(NULL, pos=0) ... 1562s [00:52:42.866] - nx: 1 1562s [00:52:42.866] - relay: TRUE 1562s [00:52:42.866] - stdout: TRUE 1562s [00:52:42.866] - signal: TRUE 1562s [00:52:42.867] - resignal: FALSE 1562s [00:52:42.867] - force: TRUE 1562s [00:52:42.867] - relayed: [n=1] TRUE 1562s [00:52:42.867] - queued futures: [n=1] TRUE 1562s - flush all 1562s [00:52:42.867] - relayed: [n=1] TRUE 1562s [00:52:42.867] - queued futures: [n=1] TRUE 1562s [00:52:42.867] signalConditionsASAP(NULL, pos=0) ... done 1562s [00:52:42.868] resolve() on list ... DONE 1562s [00:52:42.868] - Number of value chunks collected: 1 1562s [00:52:42.868] Resolving 1 futures (chunks) ... DONE 1562s [00:52:42.868] Reducing values from 1 chunks ... 1562s [00:52:42.868] - Number of values collected after concatenation: 1 1562s [00:52:42.868] - Number of values expected: 1 1562s [00:52:42.869] Reducing values from 1 chunks ... DONE 1562s [00:52:42.869] future_mapply() ... DONE 1562s [00:52:42.869] future_mapply() ... 1562s [00:52:42.872] Number of chunks: 1 1562s [00:52:42.873] getGlobalsAndPackagesXApply() ... 1562s [00:52:42.873] - future.globals: TRUE 1562s [00:52:42.873] getGlobalsAndPackages() ... 1562s [00:52:42.873] Searching for globals... 1562s [00:52:42.875] - globals found: [1] ‘FUN’ 1562s [00:52:42.875] Searching for globals ... DONE 1562s [00:52:42.875] Resolving globals: FALSE 1562s [00:52:42.875] The total size of the 1 globals is 848 bytes (848 bytes) 1562s [00:52:42.876] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1562s [00:52:42.876] - globals: [1] ‘FUN’ 1562s [00:52:42.876] 1562s [00:52:42.876] getGlobalsAndPackages() ... DONE 1562s [00:52:42.876] - globals found/used: [n=1] ‘FUN’ 1562s [00:52:42.877] - needed namespaces: [n=0] 1562s [00:52:42.877] Finding globals ... DONE 1562s [00:52:42.877] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1562s [00:52:42.877] List of 2 1562s [00:52:42.877] $ ...future.FUN:function (x) 1562s [00:52:42.877] $ MoreArgs : list() 1562s [00:52:42.877] - attr(*, "where")=List of 2 1562s [00:52:42.877] ..$ ...future.FUN: 1562s [00:52:42.877] ..$ MoreArgs : 1562s [00:52:42.877] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1562s [00:52:42.877] - attr(*, "resolved")= logi FALSE 1562s [00:52:42.877] - attr(*, "total_size")= num NA 1562s [00:52:42.880] Packages to be attached in all futures: [n=0] 1562s [00:52:42.880] getGlobalsAndPackagesXApply() ... DONE 1562s [00:52:42.881] Number of futures (= number of chunks): 1 1562s [00:52:42.881] Launching 1 futures (chunks) ... 1562s [00:52:42.881] Chunk #1 of 1 ... 1562s [00:52:42.881] - Finding globals in '...' for chunk #1 ... 1562s [00:52:42.881] getGlobalsAndPackages() ... 1562s [00:52:42.881] Searching for globals... 1562s [00:52:42.882] 1562s [00:52:42.882] Searching for globals ... DONE 1562s [00:52:42.882] - globals: [0] 1562s [00:52:42.882] getGlobalsAndPackages() ... DONE 1562s [00:52:42.882] + additional globals found: [n=0] 1562s [00:52:42.883] + additional namespaces needed: [n=0] 1562s [00:52:42.883] - Finding globals in '...' for chunk #1 ... DONE 1562s [00:52:42.883] - seeds: 1562s [00:52:42.883] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.883] getGlobalsAndPackages() ... 1562s [00:52:42.884] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.884] Resolving globals: FALSE 1562s [00:52:42.885] The total size of the 5 globals is 1.10 KiB (1128 bytes) 1562s [00:52:42.885] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 1.10 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (848 bytes of class ‘function’), ‘...future.elements_ii’ (280 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘list’) 1562s [00:52:42.886] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.886] 1562s [00:52:42.886] getGlobalsAndPackages() ... DONE 1562s [00:52:42.887] run() for ‘Future’ ... 1562s [00:52:42.887] - state: ‘created’ 1562s [00:52:42.887] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1562s [00:52:42.893] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1562s [00:52:42.893] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1562s [00:52:42.894] - Field: ‘label’ 1562s [00:52:42.894] - Field: ‘local’ 1562s [00:52:42.894] - Field: ‘owner’ 1562s [00:52:42.894] - Field: ‘envir’ 1562s [00:52:42.894] - Field: ‘packages’ 1562s [00:52:42.894] - Field: ‘gc’ 1562s [00:52:42.895] - Field: ‘conditions’ 1562s [00:52:42.895] - Field: ‘expr’ 1562s [00:52:42.895] - Field: ‘uuid’ 1562s [00:52:42.895] - Field: ‘seed’ 1562s [00:52:42.895] - Field: ‘version’ 1562s [00:52:42.895] - Field: ‘result’ 1562s [00:52:42.895] - Field: ‘asynchronous’ 1562s [00:52:42.896] - Field: ‘calls’ 1562s [00:52:42.896] - Field: ‘globals’ 1562s [00:52:42.896] - Field: ‘stdout’ 1562s [00:52:42.896] - Field: ‘earlySignal’ 1562s [00:52:42.896] - Field: ‘lazy’ 1562s [00:52:42.896] - Field: ‘state’ 1562s [00:52:42.896] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1562s [00:52:42.897] - Launch lazy future ... 1562s [00:52:42.897] Packages needed by the future expression (n = 0): 1562s [00:52:42.897] Packages needed by future strategies (n = 0): 1562s [00:52:42.898] { 1562s [00:52:42.898] { 1562s [00:52:42.898] { 1562s [00:52:42.898] ...future.startTime <- base::Sys.time() 1562s [00:52:42.898] { 1562s [00:52:42.898] { 1562s [00:52:42.898] { 1562s [00:52:42.898] base::local({ 1562s [00:52:42.898] has_future <- base::requireNamespace("future", 1562s [00:52:42.898] quietly = TRUE) 1562s [00:52:42.898] if (has_future) { 1562s [00:52:42.898] ns <- base::getNamespace("future") 1562s [00:52:42.898] version <- ns[[".package"]][["version"]] 1562s [00:52:42.898] if (is.null(version)) 1562s [00:52:42.898] version <- utils::packageVersion("future") 1562s [00:52:42.898] } 1562s [00:52:42.898] else { 1562s [00:52:42.898] version <- NULL 1562s [00:52:42.898] } 1562s [00:52:42.898] if (!has_future || version < "1.8.0") { 1562s [00:52:42.898] info <- base::c(r_version = base::gsub("R version ", 1562s [00:52:42.898] "", base::R.version$version.string), 1562s [00:52:42.898] platform = base::sprintf("%s (%s-bit)", 1562s [00:52:42.898] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1562s [00:52:42.898] os = base::paste(base::Sys.info()[base::c("sysname", 1562s [00:52:42.898] "release", "version")], collapse = " "), 1562s [00:52:42.898] hostname = base::Sys.info()[["nodename"]]) 1562s [00:52:42.898] info <- base::sprintf("%s: %s", base::names(info), 1562s [00:52:42.898] info) 1562s [00:52:42.898] info <- base::paste(info, collapse = "; ") 1562s [00:52:42.898] if (!has_future) { 1562s [00:52:42.898] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1562s [00:52:42.898] info) 1562s [00:52:42.898] } 1562s [00:52:42.898] else { 1562s [00:52:42.898] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1562s [00:52:42.898] info, version) 1562s [00:52:42.898] } 1562s [00:52:42.898] base::stop(msg) 1562s [00:52:42.898] } 1562s [00:52:42.898] }) 1562s [00:52:42.898] } 1562s [00:52:42.898] options(future.plan = NULL) 1562s [00:52:42.898] Sys.unsetenv("R_FUTURE_PLAN") 1562s [00:52:42.898] future::plan("default", .cleanup = FALSE, .init = FALSE) 1562s [00:52:42.898] } 1562s [00:52:42.898] ...future.workdir <- getwd() 1562s [00:52:42.898] } 1562s [00:52:42.898] ...future.oldOptions <- base::as.list(base::.Options) 1562s [00:52:42.898] ...future.oldEnvVars <- base::Sys.getenv() 1562s [00:52:42.898] } 1562s [00:52:42.898] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1562s [00:52:42.898] future.globals.maxSize = NULL, future.globals.method = NULL, 1562s [00:52:42.898] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1562s [00:52:42.898] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1562s [00:52:42.898] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1562s [00:52:42.898] future.stdout.windows.reencode = NULL, width = 80L) 1562s [00:52:42.898] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1562s [00:52:42.898] base::names(...future.oldOptions)) 1562s [00:52:42.898] } 1562s [00:52:42.898] if (FALSE) { 1562s [00:52:42.898] } 1562s [00:52:42.898] else { 1562s [00:52:42.898] if (TRUE) { 1562s [00:52:42.898] ...future.stdout <- base::rawConnection(base::raw(0L), 1562s [00:52:42.898] open = "w") 1562s [00:52:42.898] } 1562s [00:52:42.898] else { 1562s [00:52:42.898] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1562s [00:52:42.898] windows = "NUL", "/dev/null"), open = "w") 1562s [00:52:42.898] } 1562s [00:52:42.898] base::sink(...future.stdout, type = "output", split = FALSE) 1562s [00:52:42.898] base::on.exit(if (!base::is.null(...future.stdout)) { 1562s [00:52:42.898] base::sink(type = "output", split = FALSE) 1562s [00:52:42.898] base::close(...future.stdout) 1562s [00:52:42.898] }, add = TRUE) 1562s [00:52:42.898] } 1562s [00:52:42.898] ...future.frame <- base::sys.nframe() 1562s [00:52:42.898] ...future.conditions <- base::list() 1562s [00:52:42.898] ...future.rng <- base::globalenv()$.Random.seed 1562s [00:52:42.898] if (FALSE) { 1562s [00:52:42.898] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1562s [00:52:42.898] "...future.value", "...future.globalenv.names", ".Random.seed") 1562s [00:52:42.898] } 1562s [00:52:42.898] ...future.result <- base::tryCatch({ 1562s [00:52:42.898] base::withCallingHandlers({ 1562s [00:52:42.898] ...future.value <- base::withVisible(base::local({ 1562s [00:52:42.898] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1562s [00:52:42.898] if (!identical(...future.globals.maxSize.org, 1562s [00:52:42.898] ...future.globals.maxSize)) { 1562s [00:52:42.898] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1562s [00:52:42.898] on.exit(options(oopts), add = TRUE) 1562s [00:52:42.898] } 1562s [00:52:42.898] { 1562s [00:52:42.898] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1562s [00:52:42.898] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1562s [00:52:42.898] USE.NAMES = FALSE) 1562s [00:52:42.898] do.call(mapply, args = args) 1562s [00:52:42.898] } 1562s [00:52:42.898] })) 1562s [00:52:42.898] future::FutureResult(value = ...future.value$value, 1562s [00:52:42.898] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1562s [00:52:42.898] ...future.rng), globalenv = if (FALSE) 1562s [00:52:42.898] list(added = base::setdiff(base::names(base::.GlobalEnv), 1562s [00:52:42.898] ...future.globalenv.names)) 1562s [00:52:42.898] else NULL, started = ...future.startTime, version = "1.8") 1562s [00:52:42.898] }, condition = base::local({ 1562s [00:52:42.898] c <- base::c 1562s [00:52:42.898] inherits <- base::inherits 1562s [00:52:42.898] invokeRestart <- base::invokeRestart 1562s [00:52:42.898] length <- base::length 1562s [00:52:42.898] list <- base::list 1562s [00:52:42.898] seq.int <- base::seq.int 1562s [00:52:42.898] signalCondition <- base::signalCondition 1562s [00:52:42.898] sys.calls <- base::sys.calls 1562s [00:52:42.898] `[[` <- base::`[[` 1562s [00:52:42.898] `+` <- base::`+` 1562s [00:52:42.898] `<<-` <- base::`<<-` 1562s [00:52:42.898] sysCalls <- function(calls = sys.calls(), from = 1L) { 1562s [00:52:42.898] calls[seq.int(from = from + 12L, to = length(calls) - 1562s [00:52:42.898] 3L)] 1562s [00:52:42.898] } 1562s [00:52:42.898] function(cond) { 1562s [00:52:42.898] is_error <- inherits(cond, "error") 1562s [00:52:42.898] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1562s [00:52:42.898] NULL) 1562s [00:52:42.898] if (is_error) { 1562s [00:52:42.898] sessionInformation <- function() { 1562s [00:52:42.898] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1562s [00:52:42.898] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1562s [00:52:42.898] search = base::search(), system = base::Sys.info()) 1562s [00:52:42.898] } 1562s [00:52:42.898] ...future.conditions[[length(...future.conditions) + 1562s [00:52:42.898] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1562s [00:52:42.898] cond$call), session = sessionInformation(), 1562s [00:52:42.898] timestamp = base::Sys.time(), signaled = 0L) 1562s [00:52:42.898] signalCondition(cond) 1562s [00:52:42.898] } 1562s [00:52:42.898] else if (!ignore && TRUE && inherits(cond, c("condition", 1562s [00:52:42.898] "immediateCondition"))) { 1562s [00:52:42.898] signal <- TRUE && inherits(cond, "immediateCondition") 1562s [00:52:42.898] ...future.conditions[[length(...future.conditions) + 1562s [00:52:42.898] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1562s [00:52:42.898] if (TRUE && !signal) { 1562s [00:52:42.898] muffleCondition <- function (cond, pattern = "^muffle") 1562s [00:52:42.898] { 1562s [00:52:42.898] inherits <- base::inherits 1562s [00:52:42.898] invokeRestart <- base::invokeRestart 1562s [00:52:42.898] is.null <- base::is.null 1562s [00:52:42.898] muffled <- FALSE 1562s [00:52:42.898] if (inherits(cond, "message")) { 1562s [00:52:42.898] muffled <- grepl(pattern, "muffleMessage") 1562s [00:52:42.898] if (muffled) 1562s [00:52:42.898] invokeRestart("muffleMessage") 1562s [00:52:42.898] } 1562s [00:52:42.898] else if (inherits(cond, "warning")) { 1562s [00:52:42.898] muffled <- grepl(pattern, "muffleWarning") 1562s [00:52:42.898] if (muffled) 1562s [00:52:42.898] invokeRestart("muffleWarning") 1562s [00:52:42.898] } 1562s [00:52:42.898] else if (inherits(cond, "condition")) { 1562s [00:52:42.898] if (!is.null(pattern)) { 1562s [00:52:42.898] computeRestarts <- base::computeRestarts 1562s [00:52:42.898] grepl <- base::grepl 1562s [00:52:42.898] restarts <- computeRestarts(cond) 1562s [00:52:42.898] for (restart in restarts) { 1562s [00:52:42.898] name <- restart$name 1562s [00:52:42.898] if (is.null(name)) 1562s [00:52:42.898] next 1562s [00:52:42.898] if (!grepl(pattern, name)) 1562s [00:52:42.898] next 1562s [00:52:42.898] invokeRestart(restart) 1562s [00:52:42.898] muffled <- TRUE 1562s [00:52:42.898] break 1562s [00:52:42.898] } 1562s [00:52:42.898] } 1562s [00:52:42.898] } 1562s [00:52:42.898] invisible(muffled) 1562s [00:52:42.898] } 1562s [00:52:42.898] muffleCondition(cond, pattern = "^muffle") 1562s [00:52:42.898] } 1562s [00:52:42.898] } 1562s [00:52:42.898] else { 1562s [00:52:42.898] if (TRUE) { 1562s [00:52:42.898] muffleCondition <- function (cond, pattern = "^muffle") 1562s [00:52:42.898] { 1562s [00:52:42.898] inherits <- base::inherits 1562s [00:52:42.898] invokeRestart <- base::invokeRestart 1562s [00:52:42.898] is.null <- base::is.null 1562s [00:52:42.898] muffled <- FALSE 1562s [00:52:42.898] if (inherits(cond, "message")) { 1562s [00:52:42.898] muffled <- grepl(pattern, "muffleMessage") 1562s [00:52:42.898] if (muffled) 1562s [00:52:42.898] invokeRestart("muffleMessage") 1562s [00:52:42.898] } 1562s [00:52:42.898] else if (inherits(cond, "warning")) { 1562s [00:52:42.898] muffled <- grepl(pattern, "muffleWarning") 1562s [00:52:42.898] if (muffled) 1562s [00:52:42.898] invokeRestart("muffleWarning") 1562s [00:52:42.898] } 1562s [00:52:42.898] else if (inherits(cond, "condition")) { 1562s [00:52:42.898] if (!is.null(pattern)) { 1562s [00:52:42.898] computeRestarts <- base::computeRestarts 1562s [00:52:42.898] grepl <- base::grepl 1562s [00:52:42.898] restarts <- computeRestarts(cond) 1562s [00:52:42.898] for (restart in restarts) { 1562s [00:52:42.898] name <- restart$name 1562s [00:52:42.898] if (is.null(name)) 1562s [00:52:42.898] next 1562s [00:52:42.898] if (!grepl(pattern, name)) 1562s [00:52:42.898] next 1562s [00:52:42.898] invokeRestart(restart) 1562s [00:52:42.898] muffled <- TRUE 1562s [00:52:42.898] break 1562s [00:52:42.898] } 1562s [00:52:42.898] } 1562s [00:52:42.898] } 1562s [00:52:42.898] invisible(muffled) 1562s [00:52:42.898] } 1562s [00:52:42.898] muffleCondition(cond, pattern = "^muffle") 1562s [00:52:42.898] } 1562s [00:52:42.898] } 1562s [00:52:42.898] } 1562s [00:52:42.898] })) 1562s [00:52:42.898] }, error = function(ex) { 1562s [00:52:42.898] base::structure(base::list(value = NULL, visible = NULL, 1562s [00:52:42.898] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1562s [00:52:42.898] ...future.rng), started = ...future.startTime, 1562s [00:52:42.898] finished = Sys.time(), session_uuid = NA_character_, 1562s [00:52:42.898] version = "1.8"), class = "FutureResult") 1562s [00:52:42.898] }, finally = { 1562s [00:52:42.898] if (!identical(...future.workdir, getwd())) 1562s [00:52:42.898] setwd(...future.workdir) 1562s [00:52:42.898] { 1562s [00:52:42.898] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1562s [00:52:42.898] ...future.oldOptions$nwarnings <- NULL 1562s [00:52:42.898] } 1562s [00:52:42.898] base::options(...future.oldOptions) 1562s [00:52:42.898] if (.Platform$OS.type == "windows") { 1562s [00:52:42.898] old_names <- names(...future.oldEnvVars) 1562s [00:52:42.898] envs <- base::Sys.getenv() 1562s [00:52:42.898] names <- names(envs) 1562s [00:52:42.898] common <- intersect(names, old_names) 1562s [00:52:42.898] added <- setdiff(names, old_names) 1562s [00:52:42.898] removed <- setdiff(old_names, names) 1562s [00:52:42.898] changed <- common[...future.oldEnvVars[common] != 1562s [00:52:42.898] envs[common]] 1562s [00:52:42.898] NAMES <- toupper(changed) 1562s [00:52:42.898] args <- list() 1562s [00:52:42.898] for (kk in seq_along(NAMES)) { 1562s [00:52:42.898] name <- changed[[kk]] 1562s [00:52:42.898] NAME <- NAMES[[kk]] 1562s [00:52:42.898] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.898] next 1562s [00:52:42.898] args[[name]] <- ...future.oldEnvVars[[name]] 1562s [00:52:42.898] } 1562s [00:52:42.898] NAMES <- toupper(added) 1562s [00:52:42.898] for (kk in seq_along(NAMES)) { 1562s [00:52:42.898] name <- added[[kk]] 1562s [00:52:42.898] NAME <- NAMES[[kk]] 1562s [00:52:42.898] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.898] next 1562s [00:52:42.898] args[[name]] <- "" 1562s [00:52:42.898] } 1562s [00:52:42.898] NAMES <- toupper(removed) 1562s [00:52:42.898] for (kk in seq_along(NAMES)) { 1562s [00:52:42.898] name <- removed[[kk]] 1562s [00:52:42.898] NAME <- NAMES[[kk]] 1562s [00:52:42.898] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.898] next 1562s [00:52:42.898] args[[name]] <- ...future.oldEnvVars[[name]] 1562s [00:52:42.898] } 1562s [00:52:42.898] if (length(args) > 0) 1562s [00:52:42.898] base::do.call(base::Sys.setenv, args = args) 1562s [00:52:42.898] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1562s [00:52:42.898] } 1562s [00:52:42.898] else { 1562s [00:52:42.898] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1562s [00:52:42.898] } 1562s [00:52:42.898] { 1562s [00:52:42.898] if (base::length(...future.futureOptionsAdded) > 1562s [00:52:42.898] 0L) { 1562s [00:52:42.898] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1562s [00:52:42.898] base::names(opts) <- ...future.futureOptionsAdded 1562s [00:52:42.898] base::options(opts) 1562s [00:52:42.898] } 1562s [00:52:42.898] { 1562s [00:52:42.898] { 1562s [00:52:42.898] base::assign(".Random.seed", c(10407L, 2079749599L, 1562s [00:52:42.898] -1712504007L, 90762767L, 511132818L, -526970845L, 1562s [00:52:42.898] -1057805512L), envir = base::globalenv(), 1562s [00:52:42.898] inherits = FALSE) 1562s [00:52:42.898] NULL 1562s [00:52:42.898] } 1562s [00:52:42.898] options(future.plan = NULL) 1562s [00:52:42.898] if (is.na(NA_character_)) 1562s [00:52:42.898] Sys.unsetenv("R_FUTURE_PLAN") 1562s [00:52:42.898] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1562s [00:52:42.898] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1562s [00:52:42.898] envir = parent.frame()) 1562s [00:52:42.898] { 1562s [00:52:42.898] default_workers <- missing(workers) 1562s [00:52:42.898] if (is.function(workers)) 1562s [00:52:42.898] workers <- workers() 1562s [00:52:42.898] workers <- structure(as.integer(workers), 1562s [00:52:42.898] class = class(workers)) 1562s [00:52:42.898] stop_if_not(is.finite(workers), workers >= 1562s [00:52:42.898] 1L) 1562s [00:52:42.898] if ((workers == 1L && !inherits(workers, 1562s [00:52:42.898] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1562s [00:52:42.898] if (default_workers) 1562s [00:52:42.898] supportsMulticore(warn = TRUE) 1562s [00:52:42.898] return(sequential(..., envir = envir)) 1562s [00:52:42.898] } 1562s [00:52:42.898] oopts <- options(mc.cores = workers) 1562s [00:52:42.898] on.exit(options(oopts)) 1562s [00:52:42.898] future <- MulticoreFuture(..., workers = workers, 1562s [00:52:42.898] envir = envir) 1562s [00:52:42.898] if (!future$lazy) 1562s [00:52:42.898] future <- run(future) 1562s [00:52:42.898] invisible(future) 1562s [00:52:42.898] }), .cleanup = FALSE, .init = FALSE) 1562s [00:52:42.898] } 1562s [00:52:42.898] } 1562s [00:52:42.898] } 1562s [00:52:42.898] }) 1562s [00:52:42.898] if (TRUE) { 1562s [00:52:42.898] base::sink(type = "output", split = FALSE) 1562s [00:52:42.898] if (TRUE) { 1562s [00:52:42.898] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1562s [00:52:42.898] } 1562s [00:52:42.898] else { 1562s [00:52:42.898] ...future.result["stdout"] <- base::list(NULL) 1562s [00:52:42.898] } 1562s [00:52:42.898] base::close(...future.stdout) 1562s [00:52:42.898] ...future.stdout <- NULL 1562s [00:52:42.898] } 1562s [00:52:42.898] ...future.result$conditions <- ...future.conditions 1562s [00:52:42.898] ...future.result$finished <- base::Sys.time() 1562s [00:52:42.898] ...future.result 1562s [00:52:42.898] } 1562s [00:52:42.904] assign_globals() ... 1562s [00:52:42.904] List of 5 1562s [00:52:42.904] $ ...future.FUN :function (x) 1562s [00:52:42.904] $ MoreArgs : list() 1562s [00:52:42.904] $ ...future.elements_ii :List of 1 1562s [00:52:42.904] ..$ :List of 1 1562s [00:52:42.904] .. ..$ : Date[1:1], format: "2018-06-01" 1562s [00:52:42.904] $ ...future.seeds_ii : NULL 1562s [00:52:42.904] $ ...future.globals.maxSize: NULL 1562s [00:52:42.904] - attr(*, "where")=List of 5 1562s [00:52:42.904] ..$ ...future.FUN : 1562s [00:52:42.904] ..$ MoreArgs : 1562s [00:52:42.904] ..$ ...future.elements_ii : 1562s [00:52:42.904] ..$ ...future.seeds_ii : 1562s [00:52:42.904] ..$ ...future.globals.maxSize: 1562s [00:52:42.904] - attr(*, "resolved")= logi FALSE 1562s [00:52:42.904] - attr(*, "total_size")= num 1128 1562s [00:52:42.904] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1562s [00:52:42.904] - attr(*, "already-done")= logi TRUE 1562s [00:52:42.909] - copied ‘...future.FUN’ to environment 1562s [00:52:42.909] - copied ‘MoreArgs’ to environment 1562s [00:52:42.909] - copied ‘...future.elements_ii’ to environment 1562s [00:52:42.910] - copied ‘...future.seeds_ii’ to environment 1562s [00:52:42.910] - copied ‘...future.globals.maxSize’ to environment 1562s [00:52:42.910] assign_globals() ... done 1562s [00:52:42.910] plan(): Setting new future strategy stack: 1562s [00:52:42.910] List of future strategies: 1562s [00:52:42.910] 1. sequential: 1562s [00:52:42.910] - args: function (..., envir = parent.frame()) 1562s [00:52:42.910] - tweaked: FALSE 1562s [00:52:42.910] - call: NULL 1562s [00:52:42.911] plan(): nbrOfWorkers() = 1 1562s [00:52:42.912] plan(): Setting new future strategy stack: 1562s [00:52:42.912] List of future strategies: 1562s [00:52:42.912] 1. multicore: 1562s [00:52:42.912] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1562s [00:52:42.912] - tweaked: FALSE 1562s [00:52:42.912] - call: plan(strategy) 1562s [00:52:42.915] plan(): nbrOfWorkers() = 1 1562s [00:52:42.915] SequentialFuture started (and completed) 1562s [00:52:42.916] - Launch lazy future ... done 1562s [00:52:42.916] run() for ‘SequentialFuture’ ... done 1562s [00:52:42.916] Created future: 1562s [00:52:42.916] SequentialFuture: 1562s [00:52:42.916] Label: ‘future_.mapply-1’ 1562s [00:52:42.916] Expression: 1562s [00:52:42.916] { 1562s [00:52:42.916] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1562s [00:52:42.916] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1562s [00:52:42.916] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1562s [00:52:42.916] on.exit(options(oopts), add = TRUE) 1562s [00:52:42.916] } 1562s [00:52:42.916] { 1562s [00:52:42.916] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1562s [00:52:42.916] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1562s [00:52:42.916] do.call(mapply, args = args) 1562s [00:52:42.916] } 1562s [00:52:42.916] } 1562s [00:52:42.916] Lazy evaluation: FALSE 1562s [00:52:42.916] Asynchronous evaluation: FALSE 1562s [00:52:42.916] Local evaluation: TRUE 1562s [00:52:42.916] Environment: R_GlobalEnv 1562s [00:52:42.916] Capture standard output: TRUE 1562s [00:52:42.916] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1562s [00:52:42.916] Globals: 5 objects totaling 1.10 KiB (function ‘...future.FUN’ of 848 bytes, list ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 280 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1562s [00:52:42.916] Packages: 1562s [00:52:42.916] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1562s [00:52:42.916] Resolved: TRUE 1562s [00:52:42.916] Value: 280 bytes of class ‘list’ 1562s [00:52:42.916] Early signaling: FALSE 1562s [00:52:42.916] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1562s [00:52:42.916] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1562s [00:52:42.918] Chunk #1 of 1 ... DONE 1562s [00:52:42.918] Launching 1 futures (chunks) ... DONE 1562s [00:52:42.918] Resolving 1 futures (chunks) ... 1562s [00:52:42.918] resolve() on list ... 1562s [00:52:42.918] recursive: 0 1562s [00:52:42.918] length: 1 1562s [00:52:42.918] 1562s [00:52:42.919] resolved() for ‘SequentialFuture’ ... 1562s [00:52:42.919] - state: ‘finished’ 1562s [00:52:42.919] - run: TRUE 1562s [00:52:42.919] - result: ‘FutureResult’ 1562s [00:52:42.919] resolved() for ‘SequentialFuture’ ... done 1562s [00:52:42.919] Future #1 1562s [00:52:42.919] signalConditionsASAP(SequentialFuture, pos=1) ... 1562s [00:52:42.920] - nx: 1 1562s [00:52:42.920] - relay: TRUE 1562s [00:52:42.920] - stdout: TRUE 1562s [00:52:42.920] - signal: TRUE 1562s [00:52:42.920] - resignal: FALSE 1562s [00:52:42.920] - force: TRUE 1562s [00:52:42.920] - relayed: [n=1] FALSE 1562s [00:52:42.921] - queued futures: [n=1] FALSE 1562s [00:52:42.921] - until=1 1562s [00:52:42.921] - relaying element #1 1562s [00:52:42.921] - relayed: [n=1] TRUE 1562s [00:52:42.921] - queued futures: [n=1] TRUE 1562s [00:52:42.922] signalConditionsASAP(SequentialFuture, pos=1) ... done 1562s [00:52:42.922] length: 0 (resolved future 1) 1562s [00:52:42.922] Relaying remaining futures 1562s [00:52:42.922] signalConditionsASAP(NULL, pos=0) ... 1562s [00:52:42.922] - nx: 1 1562s [00:52:42.922] - relay: TRUE 1562s [00:52:42.923] - stdout: TRUE 1562s [00:52:42.923] - signal: TRUE 1562s [00:52:42.923] - resignal: FALSE 1562s [00:52:42.923] - force: TRUE 1562s [00:52:42.923] - relayed: [n=1] TRUE 1562s [00:52:42.923] - queued futures: [n=1] TRUE 1562s - flush all 1562s [00:52:42.924] - relayed: [n=1] TRUE 1562s [00:52:42.924] - queued futures: [n=1] TRUE 1562s [00:52:42.924] signalConditionsASAP(NULL, pos=0) ... done 1562s [00:52:42.924] resolve() on list ... DONE 1562s [00:52:42.924] - Number of value chunks collected: 1 1562s [00:52:42.924] Resolving 1 futures (chunks) ... DONE 1562s [00:52:42.925] Reducing values from 1 chunks ... 1562s [00:52:42.925] - Number of values collected after concatenation: 1 1562s [00:52:42.925] - Number of values expected: 1 1562s [00:52:42.925] Reducing values from 1 chunks ... DONE 1562s [00:52:42.925] future_mapply() ... DONE 1562s - Non-recycling of MoreArgs (Issue #51) ... 1562s [00:52:42.926] future_mapply() ... 1562s [00:52:42.931] Number of chunks: 1 1562s [00:52:42.931] getGlobalsAndPackagesXApply() ... 1562s [00:52:42.931] - future.globals: TRUE 1562s [00:52:42.932] getGlobalsAndPackages() ... 1562s [00:52:42.932] Searching for globals... 1562s [00:52:42.933] - globals found: [1] ‘FUN’ 1562s [00:52:42.933] Searching for globals ... DONE 1562s [00:52:42.933] Resolving globals: FALSE 1562s [00:52:42.934] The total size of the 1 globals is 1.66 KiB (1704 bytes) 1562s [00:52:42.934] The total size of the 1 globals exported for future expression (‘FUN(y = 3:4)’) is 1.66 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.66 KiB of class ‘function’) 1562s [00:52:42.935] - globals: [1] ‘FUN’ 1562s [00:52:42.935] 1562s [00:52:42.935] getGlobalsAndPackages() ... DONE 1562s [00:52:42.935] - globals found/used: [n=1] ‘FUN’ 1562s [00:52:42.936] - needed namespaces: [n=0] 1562s [00:52:42.936] Finding globals ... DONE 1562s [00:52:42.936] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1562s [00:52:42.936] List of 2 1562s [00:52:42.936] $ ...future.FUN:function (x, y) 1562s [00:52:42.936] $ MoreArgs :List of 1 1562s [00:52:42.936] ..$ y: int [1:2] 3 4 1562s [00:52:42.936] - attr(*, "where")=List of 2 1562s [00:52:42.936] ..$ ...future.FUN: 1562s [00:52:42.936] ..$ MoreArgs : 1562s [00:52:42.936] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1562s [00:52:42.936] - attr(*, "resolved")= logi FALSE 1562s [00:52:42.936] - attr(*, "total_size")= num NA 1562s [00:52:42.941] Packages to be attached in all futures: [n=0] 1562s [00:52:42.941] getGlobalsAndPackagesXApply() ... DONE 1562s [00:52:42.941] Number of futures (= number of chunks): 1 1562s [00:52:42.941] Launching 1 futures (chunks) ... 1562s [00:52:42.941] Chunk #1 of 1 ... 1562s [00:52:42.942] - Finding globals in '...' for chunk #1 ... 1562s [00:52:42.942] getGlobalsAndPackages() ... 1562s [00:52:42.942] Searching for globals... 1562s [00:52:42.942] 1562s [00:52:42.942] Searching for globals ... DONE 1562s [00:52:42.942] - globals: [0] 1562s [00:52:42.943] getGlobalsAndPackages() ... DONE 1562s [00:52:42.943] + additional globals found: [n=0] 1562s [00:52:42.943] + additional namespaces needed: [n=0] 1562s [00:52:42.943] - Finding globals in '...' for chunk #1 ... DONE 1562s [00:52:42.943] - seeds: 1562s [00:52:42.943] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.943] getGlobalsAndPackages() ... 1562s [00:52:42.943] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.943] Resolving globals: FALSE 1562s [00:52:42.944] The total size of the 5 globals is 1.83 KiB (1872 bytes) 1562s [00:52:42.945] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 1.83 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (1.66 KiB of class ‘function’), ‘...future.elements_ii’ (112 bytes of class ‘list’) and ‘MoreArgs’ (56 bytes of class ‘list’) 1562s [00:52:42.945] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1562s [00:52:42.945] 1562s [00:52:42.945] getGlobalsAndPackages() ... DONE 1562s [00:52:42.946] run() for ‘Future’ ... 1562s [00:52:42.946] - state: ‘created’ 1562s [00:52:42.946] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1562s [00:52:42.950] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1562s [00:52:42.950] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1562s [00:52:42.951] - Field: ‘label’ 1562s [00:52:42.951] - Field: ‘local’ 1562s [00:52:42.951] - Field: ‘owner’ 1562s [00:52:42.951] - Field: ‘envir’ 1562s [00:52:42.951] - Field: ‘packages’ 1562s [00:52:42.951] - Field: ‘gc’ 1562s [00:52:42.952] - Field: ‘conditions’ 1562s [00:52:42.952] - Field: ‘expr’ 1562s [00:52:42.952] - Field: ‘uuid’ 1562s [00:52:42.952] - Field: ‘seed’ 1562s [00:52:42.952] - Field: ‘version’ 1562s [00:52:42.952] - Field: ‘result’ 1562s [00:52:42.953] - Field: ‘asynchronous’ 1562s [00:52:42.953] - Field: ‘calls’ 1562s [00:52:42.953] - Field: ‘globals’ 1562s [00:52:42.953] - Field: ‘stdout’ 1562s [00:52:42.953] - Field: ‘earlySignal’ 1562s [00:52:42.953] - Field: ‘lazy’ 1562s [00:52:42.953] - Field: ‘state’ 1562s [00:52:42.954] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1562s [00:52:42.954] - Launch lazy future ... 1562s [00:52:42.954] Packages needed by the future expression (n = 0): 1562s [00:52:42.954] Packages needed by future strategies (n = 0): 1562s [00:52:42.955] { 1562s [00:52:42.955] { 1562s [00:52:42.955] { 1562s [00:52:42.955] ...future.startTime <- base::Sys.time() 1562s [00:52:42.955] { 1562s [00:52:42.955] { 1562s [00:52:42.955] { 1562s [00:52:42.955] base::local({ 1562s [00:52:42.955] has_future <- base::requireNamespace("future", 1562s [00:52:42.955] quietly = TRUE) 1562s [00:52:42.955] if (has_future) { 1562s [00:52:42.955] ns <- base::getNamespace("future") 1562s [00:52:42.955] version <- ns[[".package"]][["version"]] 1562s [00:52:42.955] if (is.null(version)) 1562s [00:52:42.955] version <- utils::packageVersion("future") 1562s [00:52:42.955] } 1562s [00:52:42.955] else { 1562s [00:52:42.955] version <- NULL 1562s [00:52:42.955] } 1562s [00:52:42.955] if (!has_future || version < "1.8.0") { 1562s [00:52:42.955] info <- base::c(r_version = base::gsub("R version ", 1562s [00:52:42.955] "", base::R.version$version.string), 1562s [00:52:42.955] platform = base::sprintf("%s (%s-bit)", 1562s [00:52:42.955] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1562s [00:52:42.955] os = base::paste(base::Sys.info()[base::c("sysname", 1562s [00:52:42.955] "release", "version")], collapse = " "), 1562s [00:52:42.955] hostname = base::Sys.info()[["nodename"]]) 1562s [00:52:42.955] info <- base::sprintf("%s: %s", base::names(info), 1562s [00:52:42.955] info) 1562s [00:52:42.955] info <- base::paste(info, collapse = "; ") 1562s [00:52:42.955] if (!has_future) { 1562s [00:52:42.955] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1562s [00:52:42.955] info) 1562s [00:52:42.955] } 1562s [00:52:42.955] else { 1562s [00:52:42.955] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1562s [00:52:42.955] info, version) 1562s [00:52:42.955] } 1562s [00:52:42.955] base::stop(msg) 1562s [00:52:42.955] } 1562s [00:52:42.955] }) 1562s [00:52:42.955] } 1562s [00:52:42.955] options(future.plan = NULL) 1562s [00:52:42.955] Sys.unsetenv("R_FUTURE_PLAN") 1562s [00:52:42.955] future::plan("default", .cleanup = FALSE, .init = FALSE) 1562s [00:52:42.955] } 1562s [00:52:42.955] ...future.workdir <- getwd() 1562s [00:52:42.955] } 1562s [00:52:42.955] ...future.oldOptions <- base::as.list(base::.Options) 1562s [00:52:42.955] ...future.oldEnvVars <- base::Sys.getenv() 1562s [00:52:42.955] } 1562s [00:52:42.955] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1562s [00:52:42.955] future.globals.maxSize = NULL, future.globals.method = NULL, 1562s [00:52:42.955] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1562s [00:52:42.955] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1562s [00:52:42.955] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1562s [00:52:42.955] future.stdout.windows.reencode = NULL, width = 80L) 1562s [00:52:42.955] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1562s [00:52:42.955] base::names(...future.oldOptions)) 1562s [00:52:42.955] } 1562s [00:52:42.955] if (FALSE) { 1562s [00:52:42.955] } 1562s [00:52:42.955] else { 1562s [00:52:42.955] if (TRUE) { 1562s [00:52:42.955] ...future.stdout <- base::rawConnection(base::raw(0L), 1562s [00:52:42.955] open = "w") 1562s [00:52:42.955] } 1562s [00:52:42.955] else { 1562s [00:52:42.955] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1562s [00:52:42.955] windows = "NUL", "/dev/null"), open = "w") 1562s [00:52:42.955] } 1562s [00:52:42.955] base::sink(...future.stdout, type = "output", split = FALSE) 1562s [00:52:42.955] base::on.exit(if (!base::is.null(...future.stdout)) { 1562s [00:52:42.955] base::sink(type = "output", split = FALSE) 1562s [00:52:42.955] base::close(...future.stdout) 1562s [00:52:42.955] }, add = TRUE) 1562s [00:52:42.955] } 1562s [00:52:42.955] ...future.frame <- base::sys.nframe() 1562s [00:52:42.955] ...future.conditions <- base::list() 1562s [00:52:42.955] ...future.rng <- base::globalenv()$.Random.seed 1562s [00:52:42.955] if (FALSE) { 1562s [00:52:42.955] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1562s [00:52:42.955] "...future.value", "...future.globalenv.names", ".Random.seed") 1562s [00:52:42.955] } 1562s [00:52:42.955] ...future.result <- base::tryCatch({ 1562s [00:52:42.955] base::withCallingHandlers({ 1562s [00:52:42.955] ...future.value <- base::withVisible(base::local({ 1562s [00:52:42.955] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1562s [00:52:42.955] if (!identical(...future.globals.maxSize.org, 1562s [00:52:42.955] ...future.globals.maxSize)) { 1562s [00:52:42.955] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1562s [00:52:42.955] on.exit(options(oopts), add = TRUE) 1562s [00:52:42.955] } 1562s [00:52:42.955] { 1562s [00:52:42.955] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1562s [00:52:42.955] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1562s [00:52:42.955] USE.NAMES = FALSE) 1562s [00:52:42.955] do.call(mapply, args = args) 1562s [00:52:42.955] } 1562s [00:52:42.955] })) 1562s [00:52:42.955] future::FutureResult(value = ...future.value$value, 1562s [00:52:42.955] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1562s [00:52:42.955] ...future.rng), globalenv = if (FALSE) 1562s [00:52:42.955] list(added = base::setdiff(base::names(base::.GlobalEnv), 1562s [00:52:42.955] ...future.globalenv.names)) 1562s [00:52:42.955] else NULL, started = ...future.startTime, version = "1.8") 1562s [00:52:42.955] }, condition = base::local({ 1562s [00:52:42.955] c <- base::c 1562s [00:52:42.955] inherits <- base::inherits 1562s [00:52:42.955] invokeRestart <- base::invokeRestart 1562s [00:52:42.955] length <- base::length 1562s [00:52:42.955] list <- base::list 1562s [00:52:42.955] seq.int <- base::seq.int 1562s [00:52:42.955] signalCondition <- base::signalCondition 1562s [00:52:42.955] sys.calls <- base::sys.calls 1562s [00:52:42.955] `[[` <- base::`[[` 1562s [00:52:42.955] `+` <- base::`+` 1562s [00:52:42.955] `<<-` <- base::`<<-` 1562s [00:52:42.955] sysCalls <- function(calls = sys.calls(), from = 1L) { 1562s [00:52:42.955] calls[seq.int(from = from + 12L, to = length(calls) - 1562s [00:52:42.955] 3L)] 1562s [00:52:42.955] } 1562s [00:52:42.955] function(cond) { 1562s [00:52:42.955] is_error <- inherits(cond, "error") 1562s [00:52:42.955] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1562s [00:52:42.955] NULL) 1562s [00:52:42.955] if (is_error) { 1562s [00:52:42.955] sessionInformation <- function() { 1562s [00:52:42.955] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1562s [00:52:42.955] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1562s [00:52:42.955] search = base::search(), system = base::Sys.info()) 1562s [00:52:42.955] } 1562s [00:52:42.955] ...future.conditions[[length(...future.conditions) + 1562s [00:52:42.955] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1562s [00:52:42.955] cond$call), session = sessionInformation(), 1562s [00:52:42.955] timestamp = base::Sys.time(), signaled = 0L) 1562s [00:52:42.955] signalCondition(cond) 1562s [00:52:42.955] } 1562s [00:52:42.955] else if (!ignore && TRUE && inherits(cond, c("condition", 1562s [00:52:42.955] "immediateCondition"))) { 1562s [00:52:42.955] signal <- TRUE && inherits(cond, "immediateCondition") 1562s [00:52:42.955] ...future.conditions[[length(...future.conditions) + 1562s [00:52:42.955] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1562s [00:52:42.955] if (TRUE && !signal) { 1562s [00:52:42.955] muffleCondition <- function (cond, pattern = "^muffle") 1562s [00:52:42.955] { 1562s [00:52:42.955] inherits <- base::inherits 1562s [00:52:42.955] invokeRestart <- base::invokeRestart 1562s [00:52:42.955] is.null <- base::is.null 1562s [00:52:42.955] muffled <- FALSE 1562s [00:52:42.955] if (inherits(cond, "message")) { 1562s [00:52:42.955] muffled <- grepl(pattern, "muffleMessage") 1562s [00:52:42.955] if (muffled) 1562s [00:52:42.955] invokeRestart("muffleMessage") 1562s [00:52:42.955] } 1562s [00:52:42.955] else if (inherits(cond, "warning")) { 1562s [00:52:42.955] muffled <- grepl(pattern, "muffleWarning") 1562s [00:52:42.955] if (muffled) 1562s [00:52:42.955] invokeRestart("muffleWarning") 1562s [00:52:42.955] } 1562s [00:52:42.955] else if (inherits(cond, "condition")) { 1562s [00:52:42.955] if (!is.null(pattern)) { 1562s [00:52:42.955] computeRestarts <- base::computeRestarts 1562s [00:52:42.955] grepl <- base::grepl 1562s [00:52:42.955] restarts <- computeRestarts(cond) 1562s [00:52:42.955] for (restart in restarts) { 1562s [00:52:42.955] name <- restart$name 1562s [00:52:42.955] if (is.null(name)) 1562s [00:52:42.955] next 1562s [00:52:42.955] if (!grepl(pattern, name)) 1562s [00:52:42.955] next 1562s [00:52:42.955] invokeRestart(restart) 1562s [00:52:42.955] muffled <- TRUE 1562s [00:52:42.955] break 1562s [00:52:42.955] } 1562s [00:52:42.955] } 1562s [00:52:42.955] } 1562s [00:52:42.955] invisible(muffled) 1562s [00:52:42.955] } 1562s [00:52:42.955] muffleCondition(cond, pattern = "^muffle") 1562s [00:52:42.955] } 1562s [00:52:42.955] } 1562s [00:52:42.955] else { 1562s [00:52:42.955] if (TRUE) { 1562s [00:52:42.955] muffleCondition <- function (cond, pattern = "^muffle") 1562s [00:52:42.955] { 1562s [00:52:42.955] inherits <- base::inherits 1562s [00:52:42.955] invokeRestart <- base::invokeRestart 1562s [00:52:42.955] is.null <- base::is.null 1562s [00:52:42.955] muffled <- FALSE 1562s [00:52:42.955] if (inherits(cond, "message")) { 1562s [00:52:42.955] muffled <- grepl(pattern, "muffleMessage") 1562s [00:52:42.955] if (muffled) 1562s [00:52:42.955] invokeRestart("muffleMessage") 1562s [00:52:42.955] } 1562s [00:52:42.955] else if (inherits(cond, "warning")) { 1562s [00:52:42.955] muffled <- grepl(pattern, "muffleWarning") 1562s [00:52:42.955] if (muffled) 1562s [00:52:42.955] invokeRestart("muffleWarning") 1562s [00:52:42.955] } 1562s [00:52:42.955] else if (inherits(cond, "condition")) { 1562s [00:52:42.955] if (!is.null(pattern)) { 1562s [00:52:42.955] computeRestarts <- base::computeRestarts 1562s [00:52:42.955] grepl <- base::grepl 1562s [00:52:42.955] restarts <- computeRestarts(cond) 1562s [00:52:42.955] for (restart in restarts) { 1562s [00:52:42.955] name <- restart$name 1562s [00:52:42.955] if (is.null(name)) 1562s [00:52:42.955] next 1562s [00:52:42.955] if (!grepl(pattern, name)) 1562s [00:52:42.955] next 1562s [00:52:42.955] invokeRestart(restart) 1562s [00:52:42.955] muffled <- TRUE 1562s [00:52:42.955] break 1562s [00:52:42.955] } 1562s [00:52:42.955] } 1562s [00:52:42.955] } 1562s [00:52:42.955] invisible(muffled) 1562s [00:52:42.955] } 1562s [00:52:42.955] muffleCondition(cond, pattern = "^muffle") 1562s [00:52:42.955] } 1562s [00:52:42.955] } 1562s [00:52:42.955] } 1562s [00:52:42.955] })) 1562s [00:52:42.955] }, error = function(ex) { 1562s [00:52:42.955] base::structure(base::list(value = NULL, visible = NULL, 1562s [00:52:42.955] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1562s [00:52:42.955] ...future.rng), started = ...future.startTime, 1562s [00:52:42.955] finished = Sys.time(), session_uuid = NA_character_, 1562s [00:52:42.955] version = "1.8"), class = "FutureResult") 1562s [00:52:42.955] }, finally = { 1562s [00:52:42.955] if (!identical(...future.workdir, getwd())) 1562s [00:52:42.955] setwd(...future.workdir) 1562s [00:52:42.955] { 1562s [00:52:42.955] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1562s [00:52:42.955] ...future.oldOptions$nwarnings <- NULL 1562s [00:52:42.955] } 1562s [00:52:42.955] base::options(...future.oldOptions) 1562s [00:52:42.955] if (.Platform$OS.type == "windows") { 1562s [00:52:42.955] old_names <- names(...future.oldEnvVars) 1562s [00:52:42.955] envs <- base::Sys.getenv() 1562s [00:52:42.955] names <- names(envs) 1562s [00:52:42.955] common <- intersect(names, old_names) 1562s [00:52:42.955] added <- setdiff(names, old_names) 1562s [00:52:42.955] removed <- setdiff(old_names, names) 1562s [00:52:42.955] changed <- common[...future.oldEnvVars[common] != 1562s [00:52:42.955] envs[common]] 1562s [00:52:42.955] NAMES <- toupper(changed) 1562s [00:52:42.955] args <- list() 1562s [00:52:42.955] for (kk in seq_along(NAMES)) { 1562s [00:52:42.955] name <- changed[[kk]] 1562s [00:52:42.955] NAME <- NAMES[[kk]] 1562s [00:52:42.955] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.955] next 1562s [00:52:42.955] args[[name]] <- ...future.oldEnvVars[[name]] 1562s [00:52:42.955] } 1562s [00:52:42.955] NAMES <- toupper(added) 1562s [00:52:42.955] for (kk in seq_along(NAMES)) { 1562s [00:52:42.955] name <- added[[kk]] 1562s [00:52:42.955] NAME <- NAMES[[kk]] 1562s [00:52:42.955] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.955] next 1562s [00:52:42.955] args[[name]] <- "" 1562s [00:52:42.955] } 1562s [00:52:42.955] NAMES <- toupper(removed) 1562s [00:52:42.955] for (kk in seq_along(NAMES)) { 1562s [00:52:42.955] name <- removed[[kk]] 1562s [00:52:42.955] NAME <- NAMES[[kk]] 1562s [00:52:42.955] if (name != NAME && is.element(NAME, old_names)) 1562s [00:52:42.955] next 1562s [00:52:42.955] args[[name]] <- ...future.oldEnvVars[[name]] 1562s [00:52:42.955] } 1562s [00:52:42.955] if (length(args) > 0) 1562s [00:52:42.955] base::do.call(base::Sys.setenv, args = args) 1562s [00:52:42.955] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1562s [00:52:42.955] } 1562s [00:52:42.955] else { 1562s [00:52:42.955] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1562s [00:52:42.955] } 1562s [00:52:42.955] { 1562s [00:52:42.955] if (base::length(...future.futureOptionsAdded) > 1562s [00:52:42.955] 0L) { 1562s [00:52:42.955] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1562s [00:52:42.955] base::names(opts) <- ...future.futureOptionsAdded 1562s [00:52:42.955] base::options(opts) 1562s [00:52:42.955] } 1562s [00:52:42.955] { 1562s [00:52:42.955] { 1562s [00:52:42.955] base::assign(".Random.seed", c(10407L, 2079749599L, 1562s [00:52:42.955] -1712504007L, 90762767L, 511132818L, -526970845L, 1562s [00:52:42.955] -1057805512L), envir = base::globalenv(), 1562s [00:52:42.955] inherits = FALSE) 1562s [00:52:42.955] NULL 1562s [00:52:42.955] } 1562s [00:52:42.955] options(future.plan = NULL) 1562s [00:52:42.955] if (is.na(NA_character_)) 1562s [00:52:42.955] Sys.unsetenv("R_FUTURE_PLAN") 1562s [00:52:42.955] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1562s [00:52:42.955] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1562s [00:52:42.955] envir = parent.frame()) 1562s [00:52:42.955] { 1562s [00:52:42.955] default_workers <- missing(workers) 1562s [00:52:42.955] if (is.function(workers)) 1562s [00:52:42.955] workers <- workers() 1562s [00:52:42.955] workers <- structure(as.integer(workers), 1562s [00:52:42.955] class = class(workers)) 1562s [00:52:42.955] stop_if_not(is.finite(workers), workers >= 1562s [00:52:42.955] 1L) 1562s [00:52:42.955] if ((workers == 1L && !inherits(workers, 1562s [00:52:42.955] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1562s [00:52:42.955] if (default_workers) 1562s [00:52:42.955] supportsMulticore(warn = TRUE) 1562s [00:52:42.955] return(sequential(..., envir = envir)) 1562s [00:52:42.955] } 1562s [00:52:42.955] oopts <- options(mc.cores = workers) 1562s [00:52:42.955] on.exit(options(oopts)) 1562s [00:52:42.955] future <- MulticoreFuture(..., workers = workers, 1562s [00:52:42.955] envir = envir) 1562s [00:52:42.955] if (!future$lazy) 1562s [00:52:42.955] future <- run(future) 1562s [00:52:42.955] invisible(future) 1562s [00:52:42.955] }), .cleanup = FALSE, .init = FALSE) 1562s [00:52:42.955] } 1562s [00:52:42.955] } 1562s [00:52:42.955] } 1562s [00:52:42.955] }) 1562s [00:52:42.955] if (TRUE) { 1562s [00:52:42.955] base::sink(type = "output", split = FALSE) 1562s [00:52:42.955] if (TRUE) { 1562s [00:52:42.955] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1562s [00:52:42.955] } 1562s [00:52:42.955] else { 1562s [00:52:42.955] ...future.result["stdout"] <- base::list(NULL) 1562s [00:52:42.955] } 1562s [00:52:42.955] base::close(...future.stdout) 1562s [00:52:42.955] ...future.stdout <- NULL 1562s [00:52:42.955] } 1562s [00:52:42.955] ...future.result$conditions <- ...future.conditions 1562s [00:52:42.955] ...future.result$finished <- base::Sys.time() 1562s [00:52:42.955] ...future.result 1562s [00:52:42.955] } 1562s [00:52:42.961] assign_globals() ... 1563s [00:52:42.962] List of 5 1563s [00:52:42.962] $ ...future.FUN :function (x, y) 1563s [00:52:42.962] $ MoreArgs :List of 1 1563s [00:52:42.962] ..$ y: int [1:2] 3 4 1563s [00:52:42.962] $ ...future.elements_ii :List of 1 1563s [00:52:42.962] ..$ x:List of 2 1563s [00:52:42.962] .. ..$ : int 1 1563s [00:52:42.962] .. ..$ : int 2 1563s [00:52:42.962] $ ...future.seeds_ii : NULL 1563s [00:52:42.962] $ ...future.globals.maxSize: NULL 1563s [00:52:42.962] - attr(*, "where")=List of 5 1563s [00:52:42.962] ..$ ...future.FUN : 1563s [00:52:42.962] ..$ MoreArgs : 1563s [00:52:42.962] ..$ ...future.elements_ii : 1563s [00:52:42.962] ..$ ...future.seeds_ii : 1563s [00:52:42.962] ..$ ...future.globals.maxSize: 1563s [00:52:42.962] - attr(*, "resolved")= logi FALSE 1563s [00:52:42.962] - attr(*, "total_size")= num 1872 1563s [00:52:42.962] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1563s [00:52:42.962] - attr(*, "already-done")= logi TRUE 1563s [00:52:42.970] - reassign environment for ‘...future.FUN’ 1563s [00:52:42.970] - copied ‘...future.FUN’ to environment 1563s [00:52:42.971] - copied ‘MoreArgs’ to environment 1563s [00:52:42.971] - copied ‘...future.elements_ii’ to environment 1563s [00:52:42.971] - copied ‘...future.seeds_ii’ to environment 1563s [00:52:42.971] - copied ‘...future.globals.maxSize’ to environment 1563s [00:52:42.972] assign_globals() ... done 1563s [00:52:42.972] plan(): Setting new future strategy stack: 1563s [00:52:42.972] List of future strategies: 1563s [00:52:42.972] 1. sequential: 1563s [00:52:42.972] - args: function (..., envir = parent.frame()) 1563s [00:52:42.972] - tweaked: FALSE 1563s [00:52:42.972] - call: NULL 1563s [00:52:42.973] plan(): nbrOfWorkers() = 1 1563s [00:52:42.974] plan(): Setting new future strategy stack: 1563s [00:52:42.974] List of future strategies: 1563s [00:52:42.974] 1. multicore: 1563s [00:52:42.974] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1563s [00:52:42.974] - tweaked: FALSE 1563s [00:52:42.974] - call: plan(strategy) 1563s [00:52:42.978] plan(): nbrOfWorkers() = 1 1563s [00:52:42.978] SequentialFuture started (and completed) 1563s [00:52:42.978] - Launch lazy future ... done 1563s [00:52:42.979] run() for ‘SequentialFuture’ ... done 1563s [00:52:42.979] Created future: 1563s [00:52:42.979] SequentialFuture: 1563s [00:52:42.979] Label: ‘future_mapply-1’ 1563s [00:52:42.979] Expression: 1563s [00:52:42.979] { 1563s [00:52:42.979] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1563s [00:52:42.979] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1563s [00:52:42.979] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1563s [00:52:42.979] on.exit(options(oopts), add = TRUE) 1563s [00:52:42.979] } 1563s [00:52:42.979] { 1563s [00:52:42.979] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1563s [00:52:42.979] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1563s [00:52:42.979] do.call(mapply, args = args) 1563s [00:52:42.979] } 1563s [00:52:42.979] } 1563s [00:52:42.979] Lazy evaluation: FALSE 1563s [00:52:42.979] Asynchronous evaluation: FALSE 1563s [00:52:42.979] Local evaluation: TRUE 1563s [00:52:42.979] Environment: R_GlobalEnv 1563s [00:52:42.979] Capture standard output: TRUE 1563s [00:52:42.979] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1563s [00:52:42.979] Globals: 5 objects totaling 1.83 KiB (function ‘...future.FUN’ of 1.66 KiB, list ‘MoreArgs’ of 56 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1563s [00:52:42.979] Packages: 1563s [00:52:42.979] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1563s [00:52:42.979] Resolved: TRUE 1563s [00:52:42.979] Value: 112 bytes of class ‘list’ 1563s [00:52:42.979] Early signaling: FALSE 1563s [00:52:42.979] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1563s [00:52:42.979] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1563s [00:52:42.981] Chunk #1 of 1 ... DONE 1563s [00:52:42.981] Launching 1 futures (chunks) ... DONE 1563s [00:52:42.981] Resolving 1 futures (chunks) ... 1563s [00:52:42.981] resolve() on list ... 1563s [00:52:42.982] recursive: 0 1563s [00:52:42.982] length: 1 1563s [00:52:42.982] 1563s [00:52:42.982] resolved() for ‘SequentialFuture’ ... 1563s [00:52:42.982] - state: ‘finished’ 1563s [00:52:42.982] - run: TRUE 1563s [00:52:42.983] - result: ‘FutureResult’ 1563s [00:52:42.983] resolved() for ‘SequentialFuture’ ... done 1563s [00:52:42.983] Future #1 1563s [00:52:42.983] signalConditionsASAP(SequentialFuture, pos=1) ... 1563s [00:52:42.983] - nx: 1 1563s [00:52:42.983] - relay: TRUE 1563s [00:52:42.983] - stdout: TRUE 1563s [00:52:42.984] - signal: TRUE 1563s [00:52:42.984] - resignal: FALSE 1563s [00:52:42.984] - force: TRUE 1563s [00:52:42.984] - relayed: [n=1] FALSE 1563s [00:52:42.984] - queued futures: [n=1] FALSE 1563s [00:52:42.984] - until=1 1563s [00:52:42.984] - relaying element #1 1563s [00:52:42.984] - relayed: [n=1] TRUE 1563s [00:52:42.985] - queued futures: [n=1] TRUE 1563s [00:52:42.985] signalConditionsASAP(SequentialFuture, pos=1) ... done 1563s [00:52:42.985] length: 0 (resolved future 1) 1563s [00:52:42.985] Relaying remaining futures 1563s [00:52:42.985] signalConditionsASAP(NULL, pos=0) ... 1563s [00:52:42.985] - nx: 1 1563s [00:52:42.985] - relay: TRUE 1563s [00:52:42.985] - stdout: TRUE 1563s [00:52:42.985] - signal: TRUE 1563s [00:52:42.985] - resignal: FALSE 1563s [00:52:42.986] - force: TRUE 1563s [00:52:42.986] - relayed: [n=1] TRUE 1563s [00:52:42.986] - queued futures: [n=1] TRUE 1563s - flush all 1563s [00:52:42.986] - relayed: [n=1] TRUE 1563s [00:52:42.986] - queued futures: [n=1] TRUE 1563s [00:52:42.986] signalConditionsASAP(NULL, pos=0) ... done 1563s [00:52:42.986] resolve() on list ... DONE 1563s [00:52:42.986] - Number of value chunks collected: 1 1563s [00:52:42.987] Resolving 1 futures (chunks) ... DONE 1563s [00:52:42.987] Reducing values from 1 chunks ... 1563s [00:52:42.987] - Number of values collected after concatenation: 2 1563s [00:52:42.987] - Number of values expected: 2 1563s [00:52:42.987] Reducing values from 1 chunks ... DONE 1563s [00:52:42.987] future_mapply() ... DONE 1563s [00:52:42.987] future_mapply() ... 1563s [00:52:42.987] Generating random seeds ... 1563s [00:52:42.988] Generating random seed streams for 2 elements ... 1563s [00:52:42.988] Generating random seed streams for 2 elements ... DONE 1563s [00:52:42.988] Generating random seeds ... DONE 1563s [00:52:42.988] Will set RNG state on exit: 10407, 90762767, 1950921141, 684208025, -1057805512, -1193394041, 1749862038 1563s [00:52:42.991] Number of chunks: 1 1563s [00:52:42.991] getGlobalsAndPackagesXApply() ... 1563s [00:52:42.991] - future.globals: TRUE 1563s [00:52:42.992] getGlobalsAndPackages() ... 1563s [00:52:42.992] Searching for globals... 1563s [00:52:42.993] - globals found: [1] ‘FUN’ 1563s [00:52:42.993] Searching for globals ... DONE 1563s [00:52:42.993] Resolving globals: FALSE 1563s [00:52:42.994] The total size of the 1 globals is 1.66 KiB (1704 bytes) 1563s [00:52:42.994] The total size of the 1 globals exported for future expression (‘FUN(y = 3:4)’) is 1.66 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.66 KiB of class ‘function’) 1563s [00:52:42.994] - globals: [1] ‘FUN’ 1563s [00:52:42.994] 1563s [00:52:42.995] getGlobalsAndPackages() ... DONE 1563s [00:52:42.995] - globals found/used: [n=1] ‘FUN’ 1563s [00:52:42.995] - needed namespaces: [n=0] 1563s [00:52:42.995] Finding globals ... DONE 1563s [00:52:42.996] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1563s [00:52:42.996] List of 2 1563s [00:52:42.996] $ ...future.FUN:function (x, y) 1563s [00:52:42.996] $ MoreArgs :List of 1 1563s [00:52:42.996] ..$ y: int [1:2] 3 4 1563s [00:52:42.996] - attr(*, "where")=List of 2 1563s [00:52:42.996] ..$ ...future.FUN: 1563s [00:52:42.996] ..$ MoreArgs : 1563s [00:52:42.996] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1563s [00:52:42.996] - attr(*, "resolved")= logi FALSE 1563s [00:52:42.996] - attr(*, "total_size")= num NA 1563s [00:52:43.000] Packages to be attached in all futures: [n=0] 1563s [00:52:43.001] getGlobalsAndPackagesXApply() ... DONE 1563s [00:52:43.003] Number of futures (= number of chunks): 1 1563s [00:52:43.003] Launching 1 futures (chunks) ... 1563s [00:52:43.003] Chunk #1 of 1 ... 1563s [00:52:43.003] - Finding globals in '...' for chunk #1 ... 1563s [00:52:43.004] getGlobalsAndPackages() ... 1563s [00:52:43.004] Searching for globals... 1563s [00:52:43.004] 1563s [00:52:43.005] Searching for globals ... DONE 1563s [00:52:43.005] - globals: [0] 1563s [00:52:43.005] getGlobalsAndPackages() ... DONE 1563s [00:52:43.005] + additional globals found: [n=0] 1563s [00:52:43.005] + additional namespaces needed: [n=0] 1563s [00:52:43.005] - Finding globals in '...' for chunk #1 ... DONE 1563s [00:52:43.006] - seeds: [2] 1563s [00:52:43.006] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1563s [00:52:43.006] getGlobalsAndPackages() ... 1563s [00:52:43.006] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1563s [00:52:43.006] Resolving globals: FALSE 1563s [00:52:43.007] The total size of the 5 globals is 1.98 KiB (2032 bytes) 1563s [00:52:43.008] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 1.98 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (1.66 KiB of class ‘function’), ‘...future.seeds_ii’ (160 bytes of class ‘list’) and ‘...future.elements_ii’ (112 bytes of class ‘list’) 1563s [00:52:43.008] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1563s [00:52:43.008] 1563s [00:52:43.008] getGlobalsAndPackages() ... DONE 1563s [00:52:43.009] run() for ‘Future’ ... 1563s [00:52:43.009] - state: ‘created’ 1563s [00:52:43.009] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1563s [00:52:43.013] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1563s [00:52:43.014] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1563s [00:52:43.014] - Field: ‘label’ 1563s [00:52:43.014] - Field: ‘local’ 1563s [00:52:43.014] - Field: ‘owner’ 1563s [00:52:43.014] - Field: ‘envir’ 1563s [00:52:43.015] - Field: ‘packages’ 1563s [00:52:43.015] - Field: ‘gc’ 1563s [00:52:43.015] - Field: ‘conditions’ 1563s [00:52:43.015] - Field: ‘expr’ 1563s [00:52:43.015] - Field: ‘uuid’ 1563s [00:52:43.015] - Field: ‘seed’ 1563s [00:52:43.015] - Field: ‘version’ 1563s [00:52:43.016] - Field: ‘result’ 1563s [00:52:43.016] - Field: ‘asynchronous’ 1563s [00:52:43.016] - Field: ‘calls’ 1563s [00:52:43.016] - Field: ‘globals’ 1563s [00:52:43.016] - Field: ‘stdout’ 1563s [00:52:43.016] - Field: ‘earlySignal’ 1563s [00:52:43.017] - Field: ‘lazy’ 1563s [00:52:43.017] - Field: ‘state’ 1563s [00:52:43.017] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1563s [00:52:43.017] - Launch lazy future ... 1563s [00:52:43.017] Packages needed by the future expression (n = 0): 1563s [00:52:43.017] Packages needed by future strategies (n = 0): 1563s [00:52:43.018] { 1563s [00:52:43.018] { 1563s [00:52:43.018] { 1563s [00:52:43.018] ...future.startTime <- base::Sys.time() 1563s [00:52:43.018] { 1563s [00:52:43.018] { 1563s [00:52:43.018] { 1563s [00:52:43.018] base::local({ 1563s [00:52:43.018] has_future <- base::requireNamespace("future", 1563s [00:52:43.018] quietly = TRUE) 1563s [00:52:43.018] if (has_future) { 1563s [00:52:43.018] ns <- base::getNamespace("future") 1563s [00:52:43.018] version <- ns[[".package"]][["version"]] 1563s [00:52:43.018] if (is.null(version)) 1563s [00:52:43.018] version <- utils::packageVersion("future") 1563s [00:52:43.018] } 1563s [00:52:43.018] else { 1563s [00:52:43.018] version <- NULL 1563s [00:52:43.018] } 1563s [00:52:43.018] if (!has_future || version < "1.8.0") { 1563s [00:52:43.018] info <- base::c(r_version = base::gsub("R version ", 1563s [00:52:43.018] "", base::R.version$version.string), 1563s [00:52:43.018] platform = base::sprintf("%s (%s-bit)", 1563s [00:52:43.018] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1563s [00:52:43.018] os = base::paste(base::Sys.info()[base::c("sysname", 1563s [00:52:43.018] "release", "version")], collapse = " "), 1563s [00:52:43.018] hostname = base::Sys.info()[["nodename"]]) 1563s [00:52:43.018] info <- base::sprintf("%s: %s", base::names(info), 1563s [00:52:43.018] info) 1563s [00:52:43.018] info <- base::paste(info, collapse = "; ") 1563s [00:52:43.018] if (!has_future) { 1563s [00:52:43.018] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1563s [00:52:43.018] info) 1563s [00:52:43.018] } 1563s [00:52:43.018] else { 1563s [00:52:43.018] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1563s [00:52:43.018] info, version) 1563s [00:52:43.018] } 1563s [00:52:43.018] base::stop(msg) 1563s [00:52:43.018] } 1563s [00:52:43.018] }) 1563s [00:52:43.018] } 1563s [00:52:43.018] options(future.plan = NULL) 1563s [00:52:43.018] Sys.unsetenv("R_FUTURE_PLAN") 1563s [00:52:43.018] future::plan("default", .cleanup = FALSE, .init = FALSE) 1563s [00:52:43.018] } 1563s [00:52:43.018] ...future.workdir <- getwd() 1563s [00:52:43.018] } 1563s [00:52:43.018] ...future.oldOptions <- base::as.list(base::.Options) 1563s [00:52:43.018] ...future.oldEnvVars <- base::Sys.getenv() 1563s [00:52:43.018] } 1563s [00:52:43.018] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1563s [00:52:43.018] future.globals.maxSize = NULL, future.globals.method = NULL, 1563s [00:52:43.018] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1563s [00:52:43.018] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1563s [00:52:43.018] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1563s [00:52:43.018] future.stdout.windows.reencode = NULL, width = 80L) 1563s [00:52:43.018] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1563s [00:52:43.018] base::names(...future.oldOptions)) 1563s [00:52:43.018] } 1563s [00:52:43.018] if (FALSE) { 1563s [00:52:43.018] } 1563s [00:52:43.018] else { 1563s [00:52:43.018] if (TRUE) { 1563s [00:52:43.018] ...future.stdout <- base::rawConnection(base::raw(0L), 1563s [00:52:43.018] open = "w") 1563s [00:52:43.018] } 1563s [00:52:43.018] else { 1563s [00:52:43.018] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1563s [00:52:43.018] windows = "NUL", "/dev/null"), open = "w") 1563s [00:52:43.018] } 1563s [00:52:43.018] base::sink(...future.stdout, type = "output", split = FALSE) 1563s [00:52:43.018] base::on.exit(if (!base::is.null(...future.stdout)) { 1563s [00:52:43.018] base::sink(type = "output", split = FALSE) 1563s [00:52:43.018] base::close(...future.stdout) 1563s [00:52:43.018] }, add = TRUE) 1563s [00:52:43.018] } 1563s [00:52:43.018] ...future.frame <- base::sys.nframe() 1563s [00:52:43.018] ...future.conditions <- base::list() 1563s [00:52:43.018] ...future.rng <- base::globalenv()$.Random.seed 1563s [00:52:43.018] if (FALSE) { 1563s [00:52:43.018] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1563s [00:52:43.018] "...future.value", "...future.globalenv.names", ".Random.seed") 1563s [00:52:43.018] } 1563s [00:52:43.018] ...future.result <- base::tryCatch({ 1563s [00:52:43.018] base::withCallingHandlers({ 1563s [00:52:43.018] ...future.value <- base::withVisible(base::local({ 1563s [00:52:43.018] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1563s [00:52:43.018] if (!identical(...future.globals.maxSize.org, 1563s [00:52:43.018] ...future.globals.maxSize)) { 1563s [00:52:43.018] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1563s [00:52:43.018] on.exit(options(oopts), add = TRUE) 1563s [00:52:43.018] } 1563s [00:52:43.018] { 1563s [00:52:43.018] ...future.FUN2 <- function(..., ...future.seeds_ii_jj) { 1563s [00:52:43.018] assign(".Random.seed", ...future.seeds_ii_jj, 1563s [00:52:43.018] envir = globalenv(), inherits = FALSE) 1563s [00:52:43.018] ...future.FUN(...) 1563s [00:52:43.018] } 1563s [00:52:43.018] args <- c(list(FUN = ...future.FUN2), ...future.elements_ii, 1563s [00:52:43.018] list(...future.seeds_ii_jj = ...future.seeds_ii), 1563s [00:52:43.018] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1563s [00:52:43.018] USE.NAMES = FALSE) 1563s [00:52:43.018] do.call(mapply, args = args) 1563s [00:52:43.018] } 1563s [00:52:43.018] })) 1563s [00:52:43.018] future::FutureResult(value = ...future.value$value, 1563s [00:52:43.018] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1563s [00:52:43.018] ...future.rng), globalenv = if (FALSE) 1563s [00:52:43.018] list(added = base::setdiff(base::names(base::.GlobalEnv), 1563s [00:52:43.018] ...future.globalenv.names)) 1563s [00:52:43.018] else NULL, started = ...future.startTime, version = "1.8") 1563s [00:52:43.018] }, condition = base::local({ 1563s [00:52:43.018] c <- base::c 1563s [00:52:43.018] inherits <- base::inherits 1563s [00:52:43.018] invokeRestart <- base::invokeRestart 1563s [00:52:43.018] length <- base::length 1563s [00:52:43.018] list <- base::list 1563s [00:52:43.018] seq.int <- base::seq.int 1563s [00:52:43.018] signalCondition <- base::signalCondition 1563s [00:52:43.018] sys.calls <- base::sys.calls 1563s [00:52:43.018] `[[` <- base::`[[` 1563s [00:52:43.018] `+` <- base::`+` 1563s [00:52:43.018] `<<-` <- base::`<<-` 1563s [00:52:43.018] sysCalls <- function(calls = sys.calls(), from = 1L) { 1563s [00:52:43.018] calls[seq.int(from = from + 12L, to = length(calls) - 1563s [00:52:43.018] 3L)] 1563s [00:52:43.018] } 1563s [00:52:43.018] function(cond) { 1563s [00:52:43.018] is_error <- inherits(cond, "error") 1563s [00:52:43.018] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1563s [00:52:43.018] NULL) 1563s [00:52:43.018] if (is_error) { 1563s [00:52:43.018] sessionInformation <- function() { 1563s [00:52:43.018] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1563s [00:52:43.018] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1563s [00:52:43.018] search = base::search(), system = base::Sys.info()) 1563s [00:52:43.018] } 1563s [00:52:43.018] ...future.conditions[[length(...future.conditions) + 1563s [00:52:43.018] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1563s [00:52:43.018] cond$call), session = sessionInformation(), 1563s [00:52:43.018] timestamp = base::Sys.time(), signaled = 0L) 1563s [00:52:43.018] signalCondition(cond) 1563s [00:52:43.018] } 1563s [00:52:43.018] else if (!ignore && TRUE && inherits(cond, c("condition", 1563s [00:52:43.018] "immediateCondition"))) { 1563s [00:52:43.018] signal <- TRUE && inherits(cond, "immediateCondition") 1563s [00:52:43.018] ...future.conditions[[length(...future.conditions) + 1563s [00:52:43.018] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1563s [00:52:43.018] if (TRUE && !signal) { 1563s [00:52:43.018] muffleCondition <- function (cond, pattern = "^muffle") 1563s [00:52:43.018] { 1563s [00:52:43.018] inherits <- base::inherits 1563s [00:52:43.018] invokeRestart <- base::invokeRestart 1563s [00:52:43.018] is.null <- base::is.null 1563s [00:52:43.018] muffled <- FALSE 1563s [00:52:43.018] if (inherits(cond, "message")) { 1563s [00:52:43.018] muffled <- grepl(pattern, "muffleMessage") 1563s [00:52:43.018] if (muffled) 1563s [00:52:43.018] invokeRestart("muffleMessage") 1563s [00:52:43.018] } 1563s [00:52:43.018] else if (inherits(cond, "warning")) { 1563s [00:52:43.018] muffled <- grepl(pattern, "muffleWarning") 1563s [00:52:43.018] if (muffled) 1563s [00:52:43.018] invokeRestart("muffleWarning") 1563s [00:52:43.018] } 1563s [00:52:43.018] else if (inherits(cond, "condition")) { 1563s [00:52:43.018] if (!is.null(pattern)) { 1563s [00:52:43.018] computeRestarts <- base::computeRestarts 1563s [00:52:43.018] grepl <- base::grepl 1563s [00:52:43.018] restarts <- computeRestarts(cond) 1563s [00:52:43.018] for (restart in restarts) { 1563s [00:52:43.018] name <- restart$name 1563s [00:52:43.018] if (is.null(name)) 1563s [00:52:43.018] next 1563s [00:52:43.018] if (!grepl(pattern, name)) 1563s [00:52:43.018] next 1563s [00:52:43.018] invokeRestart(restart) 1563s [00:52:43.018] muffled <- TRUE 1563s [00:52:43.018] break 1563s [00:52:43.018] } 1563s [00:52:43.018] } 1563s [00:52:43.018] } 1563s [00:52:43.018] invisible(muffled) 1563s [00:52:43.018] } 1563s [00:52:43.018] muffleCondition(cond, pattern = "^muffle") 1563s [00:52:43.018] } 1563s [00:52:43.018] } 1563s [00:52:43.018] else { 1563s [00:52:43.018] if (TRUE) { 1563s [00:52:43.018] muffleCondition <- function (cond, pattern = "^muffle") 1563s [00:52:43.018] { 1563s [00:52:43.018] inherits <- base::inherits 1563s [00:52:43.018] invokeRestart <- base::invokeRestart 1563s [00:52:43.018] is.null <- base::is.null 1563s [00:52:43.018] muffled <- FALSE 1563s [00:52:43.018] if (inherits(cond, "message")) { 1563s [00:52:43.018] muffled <- grepl(pattern, "muffleMessage") 1563s [00:52:43.018] if (muffled) 1563s [00:52:43.018] invokeRestart("muffleMessage") 1563s [00:52:43.018] } 1563s [00:52:43.018] else if (inherits(cond, "warning")) { 1563s [00:52:43.018] muffled <- grepl(pattern, "muffleWarning") 1563s [00:52:43.018] if (muffled) 1563s [00:52:43.018] invokeRestart("muffleWarning") 1563s [00:52:43.018] } 1563s [00:52:43.018] else if (inherits(cond, "condition")) { 1563s [00:52:43.018] if (!is.null(pattern)) { 1563s [00:52:43.018] computeRestarts <- base::computeRestarts 1563s [00:52:43.018] grepl <- base::grepl 1563s [00:52:43.018] restarts <- computeRestarts(cond) 1563s [00:52:43.018] for (restart in restarts) { 1563s [00:52:43.018] name <- restart$name 1563s [00:52:43.018] if (is.null(name)) 1563s [00:52:43.018] next 1563s [00:52:43.018] if (!grepl(pattern, name)) 1563s [00:52:43.018] next 1563s [00:52:43.018] invokeRestart(restart) 1563s [00:52:43.018] muffled <- TRUE 1563s [00:52:43.018] break 1563s [00:52:43.018] } 1563s [00:52:43.018] } 1563s [00:52:43.018] } 1563s [00:52:43.018] invisible(muffled) 1563s [00:52:43.018] } 1563s [00:52:43.018] muffleCondition(cond, pattern = "^muffle") 1563s [00:52:43.018] } 1563s [00:52:43.018] } 1563s [00:52:43.018] } 1563s [00:52:43.018] })) 1563s [00:52:43.018] }, error = function(ex) { 1563s [00:52:43.018] base::structure(base::list(value = NULL, visible = NULL, 1563s [00:52:43.018] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1563s [00:52:43.018] ...future.rng), started = ...future.startTime, 1563s [00:52:43.018] finished = Sys.time(), session_uuid = NA_character_, 1563s [00:52:43.018] version = "1.8"), class = "FutureResult") 1563s [00:52:43.018] }, finally = { 1563s [00:52:43.018] if (!identical(...future.workdir, getwd())) 1563s [00:52:43.018] setwd(...future.workdir) 1563s [00:52:43.018] { 1563s [00:52:43.018] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1563s [00:52:43.018] ...future.oldOptions$nwarnings <- NULL 1563s [00:52:43.018] } 1563s [00:52:43.018] base::options(...future.oldOptions) 1563s [00:52:43.018] if (.Platform$OS.type == "windows") { 1563s [00:52:43.018] old_names <- names(...future.oldEnvVars) 1563s [00:52:43.018] envs <- base::Sys.getenv() 1563s [00:52:43.018] names <- names(envs) 1563s [00:52:43.018] common <- intersect(names, old_names) 1563s [00:52:43.018] added <- setdiff(names, old_names) 1563s [00:52:43.018] removed <- setdiff(old_names, names) 1563s [00:52:43.018] changed <- common[...future.oldEnvVars[common] != 1563s [00:52:43.018] envs[common]] 1563s [00:52:43.018] NAMES <- toupper(changed) 1563s [00:52:43.018] args <- list() 1563s [00:52:43.018] for (kk in seq_along(NAMES)) { 1563s [00:52:43.018] name <- changed[[kk]] 1563s [00:52:43.018] NAME <- NAMES[[kk]] 1563s [00:52:43.018] if (name != NAME && is.element(NAME, old_names)) 1563s [00:52:43.018] next 1563s [00:52:43.018] args[[name]] <- ...future.oldEnvVars[[name]] 1563s [00:52:43.018] } 1563s [00:52:43.018] NAMES <- toupper(added) 1563s [00:52:43.018] for (kk in seq_along(NAMES)) { 1563s [00:52:43.018] name <- added[[kk]] 1563s [00:52:43.018] NAME <- NAMES[[kk]] 1563s [00:52:43.018] if (name != NAME && is.element(NAME, old_names)) 1563s [00:52:43.018] next 1563s [00:52:43.018] args[[name]] <- "" 1563s [00:52:43.018] } 1563s [00:52:43.018] NAMES <- toupper(removed) 1563s [00:52:43.018] for (kk in seq_along(NAMES)) { 1563s [00:52:43.018] name <- removed[[kk]] 1563s [00:52:43.018] NAME <- NAMES[[kk]] 1563s [00:52:43.018] if (name != NAME && is.element(NAME, old_names)) 1563s [00:52:43.018] next 1563s [00:52:43.018] args[[name]] <- ...future.oldEnvVars[[name]] 1563s [00:52:43.018] } 1563s [00:52:43.018] if (length(args) > 0) 1563s [00:52:43.018] base::do.call(base::Sys.setenv, args = args) 1563s [00:52:43.018] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1563s [00:52:43.018] } 1563s [00:52:43.018] else { 1563s [00:52:43.018] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1563s [00:52:43.018] } 1563s [00:52:43.018] { 1563s [00:52:43.018] if (base::length(...future.futureOptionsAdded) > 1563s [00:52:43.018] 0L) { 1563s [00:52:43.018] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1563s [00:52:43.018] base::names(opts) <- ...future.futureOptionsAdded 1563s [00:52:43.018] base::options(opts) 1563s [00:52:43.018] } 1563s [00:52:43.018] { 1563s [00:52:43.018] { 1563s [00:52:43.018] base::assign(".Random.seed", c(10407L, 90762767L, 1563s [00:52:43.018] 1950921141L, 684208025L, -1057805512L, -1193394041L, 1563s [00:52:43.018] 1749862038L), envir = base::globalenv(), 1563s [00:52:43.018] inherits = FALSE) 1563s [00:52:43.018] NULL 1563s [00:52:43.018] } 1563s [00:52:43.018] options(future.plan = NULL) 1563s [00:52:43.018] if (is.na(NA_character_)) 1563s [00:52:43.018] Sys.unsetenv("R_FUTURE_PLAN") 1563s [00:52:43.018] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1563s [00:52:43.018] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1563s [00:52:43.018] envir = parent.frame()) 1563s [00:52:43.018] { 1563s [00:52:43.018] default_workers <- missing(workers) 1563s [00:52:43.018] if (is.function(workers)) 1563s [00:52:43.018] workers <- workers() 1563s [00:52:43.018] workers <- structure(as.integer(workers), 1563s [00:52:43.018] class = class(workers)) 1563s [00:52:43.018] stop_if_not(is.finite(workers), workers >= 1563s [00:52:43.018] 1L) 1563s [00:52:43.018] if ((workers == 1L && !inherits(workers, 1563s [00:52:43.018] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1563s [00:52:43.018] if (default_workers) 1563s [00:52:43.018] supportsMulticore(warn = TRUE) 1563s [00:52:43.018] return(sequential(..., envir = envir)) 1563s [00:52:43.018] } 1563s [00:52:43.018] oopts <- options(mc.cores = workers) 1563s [00:52:43.018] on.exit(options(oopts)) 1563s [00:52:43.018] future <- MulticoreFuture(..., workers = workers, 1563s [00:52:43.018] envir = envir) 1563s [00:52:43.018] if (!future$lazy) 1563s [00:52:43.018] future <- run(future) 1563s [00:52:43.018] invisible(future) 1563s [00:52:43.018] }), .cleanup = FALSE, .init = FALSE) 1563s [00:52:43.018] } 1563s [00:52:43.018] } 1563s [00:52:43.018] } 1563s [00:52:43.018] }) 1563s [00:52:43.018] if (TRUE) { 1563s [00:52:43.018] base::sink(type = "output", split = FALSE) 1563s [00:52:43.018] if (TRUE) { 1563s [00:52:43.018] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1563s [00:52:43.018] } 1563s [00:52:43.018] else { 1563s [00:52:43.018] ...future.result["stdout"] <- base::list(NULL) 1563s [00:52:43.018] } 1563s [00:52:43.018] base::close(...future.stdout) 1563s [00:52:43.018] ...future.stdout <- NULL 1563s [00:52:43.018] } 1563s [00:52:43.018] ...future.result$conditions <- ...future.conditions 1563s [00:52:43.018] ...future.result$finished <- base::Sys.time() 1563s [00:52:43.018] ...future.result 1563s [00:52:43.018] } 1563s [00:52:43.024] assign_globals() ... 1563s [00:52:43.025] List of 5 1563s [00:52:43.025] $ ...future.FUN :function (x, y) 1563s [00:52:43.025] $ MoreArgs :List of 1 1563s [00:52:43.025] ..$ y: int [1:2] 3 4 1563s [00:52:43.025] $ ...future.elements_ii :List of 1 1563s [00:52:43.025] ..$ x:List of 2 1563s [00:52:43.025] .. ..$ : int 1 1563s [00:52:43.025] .. ..$ : int 2 1563s [00:52:43.025] $ ...future.seeds_ii :List of 2 1563s [00:52:43.025] ..$ : int [1:7] 10407 -2039586042 -142140143 1597781512 1045612832 238977425 365449208 1563s [00:52:43.025] ..$ : int [1:7] 10407 -1587066374 1577641687 1789887280 658360450 1880896053 -619121022 1563s [00:52:43.025] $ ...future.globals.maxSize: NULL 1563s [00:52:43.025] - attr(*, "where")=List of 5 1563s [00:52:43.025] ..$ ...future.FUN : 1563s [00:52:43.025] ..$ MoreArgs : 1563s [00:52:43.025] ..$ ...future.elements_ii : 1563s [00:52:43.025] ..$ ...future.seeds_ii : 1563s [00:52:43.025] ..$ ...future.globals.maxSize: 1563s [00:52:43.025] - attr(*, "resolved")= logi FALSE 1563s [00:52:43.025] - attr(*, "total_size")= num 2032 1563s [00:52:43.025] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1563s [00:52:43.025] - attr(*, "already-done")= logi TRUE 1563s [00:52:43.035] - reassign environment for ‘...future.FUN’ 1563s [00:52:43.036] - copied ‘...future.FUN’ to environment 1563s [00:52:43.036] - copied ‘MoreArgs’ to environment 1563s [00:52:43.036] - copied ‘...future.elements_ii’ to environment 1563s [00:52:43.036] - copied ‘...future.seeds_ii’ to environment 1563s [00:52:43.037] - copied ‘...future.globals.maxSize’ to environment 1563s [00:52:43.037] assign_globals() ... done 1563s [00:52:43.037] plan(): Setting new future strategy stack: 1563s [00:52:43.037] List of future strategies: 1563s [00:52:43.037] 1. sequential: 1563s [00:52:43.037] - args: function (..., envir = parent.frame()) 1563s [00:52:43.037] - tweaked: FALSE 1563s [00:52:43.037] - call: NULL 1563s [00:52:43.038] plan(): nbrOfWorkers() = 1 1563s [00:52:43.039] plan(): Setting new future strategy stack: 1563s [00:52:43.039] List of future strategies: 1563s [00:52:43.039] 1. multicore: 1563s [00:52:43.039] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1563s [00:52:43.039] - tweaked: FALSE 1563s [00:52:43.039] - call: plan(strategy) 1563s [00:52:43.043] plan(): nbrOfWorkers() = 1 1563s [00:52:43.044] SequentialFuture started (and completed) 1563s [00:52:43.044] - Launch lazy future ... done 1563s [00:52:43.044] run() for ‘SequentialFuture’ ... done 1563s [00:52:43.044] Created future: 1563s [00:52:43.045] SequentialFuture: 1563s [00:52:43.045] Label: ‘future_mapply-1’ 1563s [00:52:43.045] Expression: 1563s [00:52:43.045] { 1563s [00:52:43.045] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1563s [00:52:43.045] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1563s [00:52:43.045] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1563s [00:52:43.045] on.exit(options(oopts), add = TRUE) 1563s [00:52:43.045] } 1563s [00:52:43.045] { 1563s [00:52:43.045] ...future.FUN2 <- function(..., ...future.seeds_ii_jj) { 1563s [00:52:43.045] assign(".Random.seed", ...future.seeds_ii_jj, envir = globalenv(), 1563s [00:52:43.045] inherits = FALSE) 1563s [00:52:43.045] ...future.FUN(...) 1563s [00:52:43.045] } 1563s [00:52:43.045] args <- c(list(FUN = ...future.FUN2), ...future.elements_ii, 1563s [00:52:43.045] list(...future.seeds_ii_jj = ...future.seeds_ii), 1563s [00:52:43.045] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1563s [00:52:43.045] do.call(mapply, args = args) 1563s [00:52:43.045] } 1563s [00:52:43.045] } 1563s [00:52:43.045] Lazy evaluation: FALSE 1563s [00:52:43.045] Asynchronous evaluation: FALSE 1563s [00:52:43.045] Local evaluation: TRUE 1563s [00:52:43.045] Environment: R_GlobalEnv 1563s [00:52:43.045] Capture standard output: TRUE 1563s [00:52:43.045] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1563s [00:52:43.045] Globals: 5 objects totaling 1.98 KiB (function ‘...future.FUN’ of 1.66 KiB, list ‘MoreArgs’ of 56 bytes, list ‘...future.elements_ii’ of 112 bytes, list ‘...future.seeds_ii’ of 160 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1563s [00:52:43.045] Packages: 1563s [00:52:43.045] L'Ecuyer-CMRG RNG seed: (seed = NULL) 1563s [00:52:43.045] Resolved: TRUE 1563s [00:52:43.045] Value: 112 bytes of class ‘list’ 1563s [00:52:43.045] Early signaling: FALSE 1563s [00:52:43.045] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1563s [00:52:43.045] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1563s [00:52:43.051] Chunk #1 of 1 ... DONE 1563s [00:52:43.051] Launching 1 futures (chunks) ... DONE 1563s [00:52:43.051] Resolving 1 futures (chunks) ... 1563s [00:52:43.051] resolve() on list ... 1563s [00:52:43.052] recursive: 0 1563s [00:52:43.052] length: 1 1563s [00:52:43.052] 1563s [00:52:43.052] resolved() for ‘SequentialFuture’ ... 1563s [00:52:43.053] - state: ‘finished’ 1563s [00:52:43.053] - run: TRUE 1563s [00:52:43.053] - result: ‘FutureResult’ 1563s [00:52:43.053] resolved() for ‘SequentialFuture’ ... done 1563s [00:52:43.054] Future #1 1563s [00:52:43.054] signalConditionsASAP(SequentialFuture, pos=1) ... 1563s [00:52:43.054] - nx: 1 1563s [00:52:43.054] - relay: TRUE 1563s [00:52:43.054] - stdout: TRUE 1563s [00:52:43.054] - signal: TRUE 1563s [00:52:43.055] - resignal: FALSE 1563s [00:52:43.055] - force: TRUE 1563s [00:52:43.055] - relayed: [n=1] FALSE 1563s [00:52:43.055] - queued futures: [n=1] FALSE 1563s [00:52:43.055] - until=1 1563s [00:52:43.055] - relaying element #1 1563s [00:52:43.056] - relayed: [n=1] TRUE 1563s [00:52:43.056] - queued futures: [n=1] TRUE 1563s [00:52:43.056] signalConditionsASAP(SequentialFuture, pos=1) ... done 1563s [00:52:43.056] length: 0 (resolved future 1) 1563s [00:52:43.056] Relaying remaining futures 1563s [00:52:43.057] signalConditionsASAP(NULL, pos=0) ... 1563s [00:52:43.057] - nx: 1 1563s [00:52:43.057] - relay: TRUE 1563s [00:52:43.057] - stdout: TRUE 1563s [00:52:43.057] - signal: TRUE 1563s [00:52:43.057] - resignal: FALSE 1563s [00:52:43.057] - force: TRUE 1563s [00:52:43.058] - relayed: [n=1] TRUE 1563s [00:52:43.058] - queued futures: [n=1] TRUE 1563s - flush all 1563s [00:52:43.058] - relayed: [n=1] TRUE 1563s [00:52:43.058] - queued futures: [n=1] TRUE 1563s [00:52:43.058] signalConditionsASAP(NULL, pos=0) ... done 1563s [00:52:43.059] resolve() on list ... DONE 1563s [00:52:43.059] - Number of value chunks collected: 1 1563s [00:52:43.059] Resolving 1 futures (chunks) ... DONE 1563s [00:52:43.059] Reducing values from 1 chunks ... 1563s [00:52:43.059] - Number of values collected after concatenation: 2 1563s [00:52:43.059] - Number of values expected: 2 1563s [00:52:43.060] Reducing values from 1 chunks ... DONE 1563s [00:52:43.060] future_mapply() ... DONE 1563s [00:52:43.060] future_mapply() ... 1563s [00:52:43.065] Number of chunks: 1 1563s [00:52:43.065] getGlobalsAndPackagesXApply() ... 1563s [00:52:43.065] - future.globals: TRUE 1563s [00:52:43.066] getGlobalsAndPackages() ... 1563s [00:52:43.066] Searching for globals... 1563s [00:52:43.068] - globals found: [1] ‘FUN’ 1563s [00:52:43.068] Searching for globals ... DONE 1563s [00:52:43.069] Resolving globals: FALSE 1563s [00:52:43.069] The total size of the 1 globals is 1.66 KiB (1704 bytes) 1563s [00:52:43.070] The total size of the 1 globals exported for future expression (‘FUN(y = 3:4)’) is 1.66 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.66 KiB of class ‘function’) 1563s [00:52:43.070] - globals: [1] ‘FUN’ 1563s [00:52:43.071] 1563s [00:52:43.071] getGlobalsAndPackages() ... DONE 1563s [00:52:43.071] - globals found/used: [n=1] ‘FUN’ 1563s [00:52:43.072] - needed namespaces: [n=0] 1563s [00:52:43.072] Finding globals ... DONE 1563s [00:52:43.073] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1563s [00:52:43.073] List of 2 1563s [00:52:43.073] $ ...future.FUN:function (x, y) 1563s [00:52:43.073] $ MoreArgs :List of 1 1563s [00:52:43.073] ..$ y: int [1:2] 3 4 1563s [00:52:43.073] - attr(*, "where")=List of 2 1563s [00:52:43.073] ..$ ...future.FUN: 1563s [00:52:43.073] ..$ MoreArgs : 1563s [00:52:43.073] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1563s [00:52:43.073] - attr(*, "resolved")= logi FALSE 1563s [00:52:43.073] - attr(*, "total_size")= num NA 1563s [00:52:43.081] Packages to be attached in all futures: [n=0] 1563s [00:52:43.081] getGlobalsAndPackagesXApply() ... DONE 1563s [00:52:43.081] Number of futures (= number of chunks): 1 1563s [00:52:43.082] Launching 1 futures (chunks) ... 1563s [00:52:43.082] Chunk #1 of 1 ... 1563s [00:52:43.082] - Finding globals in '...' for chunk #1 ... 1563s [00:52:43.082] getGlobalsAndPackages() ... 1563s [00:52:43.083] Searching for globals... 1563s [00:52:43.083] 1563s [00:52:43.083] Searching for globals ... DONE 1563s [00:52:43.084] - globals: [0] 1563s [00:52:43.084] getGlobalsAndPackages() ... DONE 1563s [00:52:43.084] + additional globals found: [n=0] 1563s [00:52:43.084] + additional namespaces needed: [n=0] 1563s [00:52:43.084] - Finding globals in '...' for chunk #1 ... DONE 1563s [00:52:43.084] - seeds: 1563s [00:52:43.085] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1563s [00:52:43.085] getGlobalsAndPackages() ... 1563s [00:52:43.085] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1563s [00:52:43.085] Resolving globals: FALSE 1563s [00:52:43.086] The total size of the 5 globals is 1.83 KiB (1872 bytes) 1563s [00:52:43.086] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 1.83 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (1.66 KiB of class ‘function’), ‘...future.elements_ii’ (112 bytes of class ‘list’) and ‘MoreArgs’ (56 bytes of class ‘list’) 1563s [00:52:43.087] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1563s [00:52:43.087] 1563s [00:52:43.087] getGlobalsAndPackages() ... DONE 1563s [00:52:43.087] run() for ‘Future’ ... 1563s [00:52:43.088] - state: ‘created’ 1563s [00:52:43.088] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1563s [00:52:43.093] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1563s [00:52:43.093] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1563s [00:52:43.094] - Field: ‘label’ 1563s [00:52:43.094] - Field: ‘local’ 1563s [00:52:43.094] - Field: ‘owner’ 1563s [00:52:43.094] - Field: ‘envir’ 1563s [00:52:43.095] - Field: ‘packages’ 1563s [00:52:43.095] - Field: ‘gc’ 1563s [00:52:43.100] - Field: ‘conditions’ 1563s [00:52:43.100] - Field: ‘expr’ 1563s [00:52:43.100] - Field: ‘uuid’ 1563s [00:52:43.101] - Field: ‘seed’ 1563s [00:52:43.101] - Field: ‘version’ 1563s [00:52:43.102] - Field: ‘result’ 1563s [00:52:43.102] - Field: ‘asynchronous’ 1563s [00:52:43.102] - Field: ‘calls’ 1563s [00:52:43.102] - Field: ‘globals’ 1563s [00:52:43.103] - Field: ‘stdout’ 1563s [00:52:43.103] - Field: ‘earlySignal’ 1563s [00:52:43.103] - Field: ‘lazy’ 1563s [00:52:43.103] - Field: ‘state’ 1563s [00:52:43.103] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1563s [00:52:43.104] - Launch lazy future ... 1563s [00:52:43.104] Packages needed by the future expression (n = 0): 1563s [00:52:43.105] Packages needed by future strategies (n = 0): 1563s [00:52:43.106] { 1563s [00:52:43.106] { 1563s [00:52:43.106] { 1563s [00:52:43.106] ...future.startTime <- base::Sys.time() 1563s [00:52:43.106] { 1563s [00:52:43.106] { 1563s [00:52:43.106] { 1563s [00:52:43.106] base::local({ 1563s [00:52:43.106] has_future <- base::requireNamespace("future", 1563s [00:52:43.106] quietly = TRUE) 1563s [00:52:43.106] if (has_future) { 1563s [00:52:43.106] ns <- base::getNamespace("future") 1563s [00:52:43.106] version <- ns[[".package"]][["version"]] 1563s [00:52:43.106] if (is.null(version)) 1563s [00:52:43.106] version <- utils::packageVersion("future") 1563s [00:52:43.106] } 1563s [00:52:43.106] else { 1563s [00:52:43.106] version <- NULL 1563s [00:52:43.106] } 1563s [00:52:43.106] if (!has_future || version < "1.8.0") { 1563s [00:52:43.106] info <- base::c(r_version = base::gsub("R version ", 1563s [00:52:43.106] "", base::R.version$version.string), 1563s [00:52:43.106] platform = base::sprintf("%s (%s-bit)", 1563s [00:52:43.106] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1563s [00:52:43.106] os = base::paste(base::Sys.info()[base::c("sysname", 1563s [00:52:43.106] "release", "version")], collapse = " "), 1563s [00:52:43.106] hostname = base::Sys.info()[["nodename"]]) 1563s [00:52:43.106] info <- base::sprintf("%s: %s", base::names(info), 1563s [00:52:43.106] info) 1563s [00:52:43.106] info <- base::paste(info, collapse = "; ") 1563s [00:52:43.106] if (!has_future) { 1563s [00:52:43.106] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1563s [00:52:43.106] info) 1563s [00:52:43.106] } 1563s [00:52:43.106] else { 1563s [00:52:43.106] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1563s [00:52:43.106] info, version) 1563s [00:52:43.106] } 1563s [00:52:43.106] base::stop(msg) 1563s [00:52:43.106] } 1563s [00:52:43.106] }) 1563s [00:52:43.106] } 1563s [00:52:43.106] options(future.plan = NULL) 1563s [00:52:43.106] Sys.unsetenv("R_FUTURE_PLAN") 1563s [00:52:43.106] future::plan("default", .cleanup = FALSE, .init = FALSE) 1563s [00:52:43.106] } 1563s [00:52:43.106] ...future.workdir <- getwd() 1563s [00:52:43.106] } 1563s [00:52:43.106] ...future.oldOptions <- base::as.list(base::.Options) 1563s [00:52:43.106] ...future.oldEnvVars <- base::Sys.getenv() 1563s [00:52:43.106] } 1563s [00:52:43.106] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1563s [00:52:43.106] future.globals.maxSize = NULL, future.globals.method = NULL, 1563s [00:52:43.106] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1563s [00:52:43.106] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1563s [00:52:43.106] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1563s [00:52:43.106] future.stdout.windows.reencode = NULL, width = 80L) 1563s [00:52:43.106] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1563s [00:52:43.106] base::names(...future.oldOptions)) 1563s [00:52:43.106] } 1563s [00:52:43.106] if (FALSE) { 1563s [00:52:43.106] } 1563s [00:52:43.106] else { 1563s [00:52:43.106] if (TRUE) { 1563s [00:52:43.106] ...future.stdout <- base::rawConnection(base::raw(0L), 1563s [00:52:43.106] open = "w") 1563s [00:52:43.106] } 1563s [00:52:43.106] else { 1563s [00:52:43.106] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1563s [00:52:43.106] windows = "NUL", "/dev/null"), open = "w") 1563s [00:52:43.106] } 1563s [00:52:43.106] base::sink(...future.stdout, type = "output", split = FALSE) 1563s [00:52:43.106] base::on.exit(if (!base::is.null(...future.stdout)) { 1563s [00:52:43.106] base::sink(type = "output", split = FALSE) 1563s [00:52:43.106] base::close(...future.stdout) 1563s [00:52:43.106] }, add = TRUE) 1563s [00:52:43.106] } 1563s [00:52:43.106] ...future.frame <- base::sys.nframe() 1563s [00:52:43.106] ...future.conditions <- base::list() 1563s [00:52:43.106] ...future.rng <- base::globalenv()$.Random.seed 1563s [00:52:43.106] if (FALSE) { 1563s [00:52:43.106] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1563s [00:52:43.106] "...future.value", "...future.globalenv.names", ".Random.seed") 1563s [00:52:43.106] } 1563s [00:52:43.106] ...future.result <- base::tryCatch({ 1563s [00:52:43.106] base::withCallingHandlers({ 1563s [00:52:43.106] ...future.value <- base::withVisible(base::local({ 1563s [00:52:43.106] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1563s [00:52:43.106] if (!identical(...future.globals.maxSize.org, 1563s [00:52:43.106] ...future.globals.maxSize)) { 1563s [00:52:43.106] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1563s [00:52:43.106] on.exit(options(oopts), add = TRUE) 1563s [00:52:43.106] } 1563s [00:52:43.106] { 1563s [00:52:43.106] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1563s [00:52:43.106] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1563s [00:52:43.106] USE.NAMES = FALSE) 1563s [00:52:43.106] do.call(mapply, args = args) 1563s [00:52:43.106] } 1563s [00:52:43.106] })) 1563s [00:52:43.106] future::FutureResult(value = ...future.value$value, 1563s [00:52:43.106] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1563s [00:52:43.106] ...future.rng), globalenv = if (FALSE) 1563s [00:52:43.106] list(added = base::setdiff(base::names(base::.GlobalEnv), 1563s [00:52:43.106] ...future.globalenv.names)) 1563s [00:52:43.106] else NULL, started = ...future.startTime, version = "1.8") 1563s [00:52:43.106] }, condition = base::local({ 1563s [00:52:43.106] c <- base::c 1563s [00:52:43.106] inherits <- base::inherits 1563s [00:52:43.106] invokeRestart <- base::invokeRestart 1563s [00:52:43.106] length <- base::length 1563s [00:52:43.106] list <- base::list 1563s [00:52:43.106] seq.int <- base::seq.int 1563s [00:52:43.106] signalCondition <- base::signalCondition 1563s [00:52:43.106] sys.calls <- base::sys.calls 1563s [00:52:43.106] `[[` <- base::`[[` 1563s [00:52:43.106] `+` <- base::`+` 1563s [00:52:43.106] `<<-` <- base::`<<-` 1563s [00:52:43.106] sysCalls <- function(calls = sys.calls(), from = 1L) { 1563s [00:52:43.106] calls[seq.int(from = from + 12L, to = length(calls) - 1563s [00:52:43.106] 3L)] 1563s [00:52:43.106] } 1563s [00:52:43.106] function(cond) { 1563s [00:52:43.106] is_error <- inherits(cond, "error") 1563s [00:52:43.106] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1563s [00:52:43.106] NULL) 1563s [00:52:43.106] if (is_error) { 1563s [00:52:43.106] sessionInformation <- function() { 1563s [00:52:43.106] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1563s [00:52:43.106] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1563s [00:52:43.106] search = base::search(), system = base::Sys.info()) 1563s [00:52:43.106] } 1563s [00:52:43.106] ...future.conditions[[length(...future.conditions) + 1563s [00:52:43.106] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1563s [00:52:43.106] cond$call), session = sessionInformation(), 1563s [00:52:43.106] timestamp = base::Sys.time(), signaled = 0L) 1563s [00:52:43.106] signalCondition(cond) 1563s [00:52:43.106] } 1563s [00:52:43.106] else if (!ignore && TRUE && inherits(cond, c("condition", 1563s [00:52:43.106] "immediateCondition"))) { 1563s [00:52:43.106] signal <- TRUE && inherits(cond, "immediateCondition") 1563s [00:52:43.106] ...future.conditions[[length(...future.conditions) + 1563s [00:52:43.106] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1563s [00:52:43.106] if (TRUE && !signal) { 1563s [00:52:43.106] muffleCondition <- function (cond, pattern = "^muffle") 1563s [00:52:43.106] { 1563s [00:52:43.106] inherits <- base::inherits 1563s [00:52:43.106] invokeRestart <- base::invokeRestart 1563s [00:52:43.106] is.null <- base::is.null 1563s [00:52:43.106] muffled <- FALSE 1563s [00:52:43.106] if (inherits(cond, "message")) { 1563s [00:52:43.106] muffled <- grepl(pattern, "muffleMessage") 1563s [00:52:43.106] if (muffled) 1563s [00:52:43.106] invokeRestart("muffleMessage") 1563s [00:52:43.106] } 1563s [00:52:43.106] else if (inherits(cond, "warning")) { 1563s [00:52:43.106] muffled <- grepl(pattern, "muffleWarning") 1563s [00:52:43.106] if (muffled) 1563s [00:52:43.106] invokeRestart("muffleWarning") 1563s [00:52:43.106] } 1563s [00:52:43.106] else if (inherits(cond, "condition")) { 1563s [00:52:43.106] if (!is.null(pattern)) { 1563s [00:52:43.106] computeRestarts <- base::computeRestarts 1563s [00:52:43.106] grepl <- base::grepl 1563s [00:52:43.106] restarts <- computeRestarts(cond) 1563s [00:52:43.106] for (restart in restarts) { 1563s [00:52:43.106] name <- restart$name 1563s [00:52:43.106] if (is.null(name)) 1563s [00:52:43.106] next 1563s [00:52:43.106] if (!grepl(pattern, name)) 1563s [00:52:43.106] next 1563s [00:52:43.106] invokeRestart(restart) 1563s [00:52:43.106] muffled <- TRUE 1563s [00:52:43.106] break 1563s [00:52:43.106] } 1563s [00:52:43.106] } 1563s [00:52:43.106] } 1563s [00:52:43.106] invisible(muffled) 1563s [00:52:43.106] } 1563s [00:52:43.106] muffleCondition(cond, pattern = "^muffle") 1563s [00:52:43.106] } 1563s [00:52:43.106] } 1563s [00:52:43.106] else { 1563s [00:52:43.106] if (TRUE) { 1563s [00:52:43.106] muffleCondition <- function (cond, pattern = "^muffle") 1563s [00:52:43.106] { 1563s [00:52:43.106] inherits <- base::inherits 1563s [00:52:43.106] invokeRestart <- base::invokeRestart 1563s [00:52:43.106] is.null <- base::is.null 1563s [00:52:43.106] muffled <- FALSE 1563s [00:52:43.106] if (inherits(cond, "message")) { 1563s [00:52:43.106] muffled <- grepl(pattern, "muffleMessage") 1563s [00:52:43.106] if (muffled) 1563s [00:52:43.106] invokeRestart("muffleMessage") 1563s [00:52:43.106] } 1563s [00:52:43.106] else if (inherits(cond, "warning")) { 1563s [00:52:43.106] muffled <- grepl(pattern, "muffleWarning") 1563s [00:52:43.106] if (muffled) 1563s [00:52:43.106] invokeRestart("muffleWarning") 1563s [00:52:43.106] } 1563s [00:52:43.106] else if (inherits(cond, "condition")) { 1563s [00:52:43.106] if (!is.null(pattern)) { 1563s [00:52:43.106] computeRestarts <- base::computeRestarts 1563s [00:52:43.106] grepl <- base::grepl 1563s [00:52:43.106] restarts <- computeRestarts(cond) 1563s [00:52:43.106] for (restart in restarts) { 1563s [00:52:43.106] name <- restart$name 1563s [00:52:43.106] if (is.null(name)) 1563s [00:52:43.106] next 1563s [00:52:43.106] if (!grepl(pattern, name)) 1563s [00:52:43.106] next 1563s [00:52:43.106] invokeRestart(restart) 1563s [00:52:43.106] muffled <- TRUE 1563s [00:52:43.106] break 1563s [00:52:43.106] } 1563s [00:52:43.106] } 1563s [00:52:43.106] } 1563s [00:52:43.106] invisible(muffled) 1563s [00:52:43.106] } 1563s [00:52:43.106] muffleCondition(cond, pattern = "^muffle") 1563s [00:52:43.106] } 1563s [00:52:43.106] } 1563s [00:52:43.106] } 1563s [00:52:43.106] })) 1563s [00:52:43.106] }, error = function(ex) { 1563s [00:52:43.106] base::structure(base::list(value = NULL, visible = NULL, 1563s [00:52:43.106] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1563s [00:52:43.106] ...future.rng), started = ...future.startTime, 1563s [00:52:43.106] finished = Sys.time(), session_uuid = NA_character_, 1563s [00:52:43.106] version = "1.8"), class = "FutureResult") 1563s [00:52:43.106] }, finally = { 1563s [00:52:43.106] if (!identical(...future.workdir, getwd())) 1563s [00:52:43.106] setwd(...future.workdir) 1563s [00:52:43.106] { 1563s [00:52:43.106] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1563s [00:52:43.106] ...future.oldOptions$nwarnings <- NULL 1563s [00:52:43.106] } 1563s [00:52:43.106] base::options(...future.oldOptions) 1563s [00:52:43.106] if (.Platform$OS.type == "windows") { 1563s [00:52:43.106] old_names <- names(...future.oldEnvVars) 1563s [00:52:43.106] envs <- base::Sys.getenv() 1563s [00:52:43.106] names <- names(envs) 1563s [00:52:43.106] common <- intersect(names, old_names) 1563s [00:52:43.106] added <- setdiff(names, old_names) 1563s [00:52:43.106] removed <- setdiff(old_names, names) 1563s [00:52:43.106] changed <- common[...future.oldEnvVars[common] != 1563s [00:52:43.106] envs[common]] 1563s [00:52:43.106] NAMES <- toupper(changed) 1563s [00:52:43.106] args <- list() 1563s [00:52:43.106] for (kk in seq_along(NAMES)) { 1563s [00:52:43.106] name <- changed[[kk]] 1563s [00:52:43.106] NAME <- NAMES[[kk]] 1563s [00:52:43.106] if (name != NAME && is.element(NAME, old_names)) 1563s [00:52:43.106] next 1563s [00:52:43.106] args[[name]] <- ...future.oldEnvVars[[name]] 1563s [00:52:43.106] } 1563s [00:52:43.106] NAMES <- toupper(added) 1563s [00:52:43.106] for (kk in seq_along(NAMES)) { 1563s [00:52:43.106] name <- added[[kk]] 1563s [00:52:43.106] NAME <- NAMES[[kk]] 1563s [00:52:43.106] if (name != NAME && is.element(NAME, old_names)) 1563s [00:52:43.106] next 1563s [00:52:43.106] args[[name]] <- "" 1563s [00:52:43.106] } 1563s [00:52:43.106] NAMES <- toupper(removed) 1563s [00:52:43.106] for (kk in seq_along(NAMES)) { 1563s [00:52:43.106] name <- removed[[kk]] 1563s [00:52:43.106] NAME <- NAMES[[kk]] 1563s [00:52:43.106] if (name != NAME && is.element(NAME, old_names)) 1563s [00:52:43.106] next 1563s [00:52:43.106] args[[name]] <- ...future.oldEnvVars[[name]] 1563s [00:52:43.106] } 1563s [00:52:43.106] if (length(args) > 0) 1563s [00:52:43.106] base::do.call(base::Sys.setenv, args = args) 1563s [00:52:43.106] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1563s [00:52:43.106] } 1563s [00:52:43.106] else { 1563s [00:52:43.106] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1563s [00:52:43.106] } 1563s [00:52:43.106] { 1563s [00:52:43.106] if (base::length(...future.futureOptionsAdded) > 1563s [00:52:43.106] 0L) { 1563s [00:52:43.106] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1563s [00:52:43.106] base::names(opts) <- ...future.futureOptionsAdded 1563s [00:52:43.106] base::options(opts) 1563s [00:52:43.106] } 1563s [00:52:43.106] { 1563s [00:52:43.106] { 1563s [00:52:43.106] base::assign(".Random.seed", c(10407L, 90762767L, 1563s [00:52:43.106] 1950921141L, 684208025L, -1057805512L, -1193394041L, 1563s [00:52:43.106] 1749862038L), envir = base::globalenv(), 1563s [00:52:43.106] inherits = FALSE) 1563s [00:52:43.106] NULL 1563s [00:52:43.106] } 1563s [00:52:43.106] options(future.plan = NULL) 1563s [00:52:43.106] if (is.na(NA_character_)) 1563s [00:52:43.106] Sys.unsetenv("R_FUTURE_PLAN") 1563s [00:52:43.106] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1563s [00:52:43.106] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1563s [00:52:43.106] envir = parent.frame()) 1563s [00:52:43.106] { 1563s [00:52:43.106] default_workers <- missing(workers) 1563s [00:52:43.106] if (is.function(workers)) 1563s [00:52:43.106] workers <- workers() 1563s [00:52:43.106] workers <- structure(as.integer(workers), 1563s [00:52:43.106] class = class(workers)) 1563s [00:52:43.106] stop_if_not(is.finite(workers), workers >= 1563s [00:52:43.106] 1L) 1563s [00:52:43.106] if ((workers == 1L && !inherits(workers, 1563s [00:52:43.106] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1563s [00:52:43.106] if (default_workers) 1563s [00:52:43.106] supportsMulticore(warn = TRUE) 1563s [00:52:43.106] return(sequential(..., envir = envir)) 1563s [00:52:43.106] } 1563s [00:52:43.106] oopts <- options(mc.cores = workers) 1563s [00:52:43.106] on.exit(options(oopts)) 1563s [00:52:43.106] future <- MulticoreFuture(..., workers = workers, 1563s [00:52:43.106] envir = envir) 1563s [00:52:43.106] if (!future$lazy) 1563s [00:52:43.106] future <- run(future) 1563s [00:52:43.106] invisible(future) 1563s [00:52:43.106] }), .cleanup = FALSE, .init = FALSE) 1563s [00:52:43.106] } 1563s [00:52:43.106] } 1563s [00:52:43.106] } 1563s [00:52:43.106] }) 1563s [00:52:43.106] if (TRUE) { 1563s [00:52:43.106] base::sink(type = "output", split = FALSE) 1563s [00:52:43.106] if (TRUE) { 1563s [00:52:43.106] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1563s [00:52:43.106] } 1563s [00:52:43.106] else { 1563s [00:52:43.106] ...future.result["stdout"] <- base::list(NULL) 1563s [00:52:43.106] } 1563s [00:52:43.106] base::close(...future.stdout) 1563s [00:52:43.106] ...future.stdout <- NULL 1563s [00:52:43.106] } 1563s [00:52:43.106] ...future.result$conditions <- ...future.conditions 1563s [00:52:43.106] ...future.result$finished <- base::Sys.time() 1563s [00:52:43.106] ...future.result 1563s [00:52:43.106] } 1563s [00:52:43.112] assign_globals() ... 1563s [00:52:43.112] List of 5 1563s [00:52:43.112] $ ...future.FUN :function (x, y) 1563s [00:52:43.112] $ MoreArgs :List of 1 1563s [00:52:43.112] ..$ y: int [1:2] 3 4 1563s [00:52:43.112] $ ...future.elements_ii :List of 1 1563s [00:52:43.112] ..$ x:List of 2 1563s [00:52:43.112] .. ..$ : int 1 1563s [00:52:43.112] .. ..$ : int 2 1563s [00:52:43.112] $ ...future.seeds_ii : NULL 1563s [00:52:43.112] $ ...future.globals.maxSize: NULL 1563s [00:52:43.112] - attr(*, "where")=List of 5 1563s [00:52:43.112] ..$ ...future.FUN : 1563s [00:52:43.112] ..$ MoreArgs : 1563s [00:52:43.112] ..$ ...future.elements_ii : 1563s [00:52:43.112] ..$ ...future.seeds_ii : 1563s [00:52:43.112] ..$ ...future.globals.maxSize: 1563s [00:52:43.112] - attr(*, "resolved")= logi FALSE 1563s [00:52:43.112] - attr(*, "total_size")= num 1872 1563s [00:52:43.112] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1563s [00:52:43.112] - attr(*, "already-done")= logi TRUE 1563s [00:52:43.124] - reassign environment for ‘...future.FUN’ 1563s [00:52:43.124] - copied ‘...future.FUN’ to environment 1563s [00:52:43.124] - copied ‘MoreArgs’ to environment 1563s [00:52:43.124] - copied ‘...future.elements_ii’ to environment 1563s [00:52:43.125] - copied ‘...future.seeds_ii’ to environment 1563s [00:52:43.125] - copied ‘...future.globals.maxSize’ to environment 1563s [00:52:43.126] assign_globals() ... done 1563s [00:52:43.127] plan(): Setting new future strategy stack: 1563s [00:52:43.127] List of future strategies: 1563s [00:52:43.127] 1. sequential: 1563s [00:52:43.127] - args: function (..., envir = parent.frame()) 1563s [00:52:43.127] - tweaked: FALSE 1563s [00:52:43.127] - call: NULL 1563s [00:52:43.128] plan(): nbrOfWorkers() = 1 1563s [00:52:43.129] plan(): Setting new future strategy stack: 1563s [00:52:43.130] List of future strategies: 1563s [00:52:43.130] 1. multicore: 1563s [00:52:43.130] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1563s [00:52:43.130] - tweaked: FALSE 1563s [00:52:43.130] - call: plan(strategy) 1563s [00:52:43.134] plan(): nbrOfWorkers() = 1 1563s [00:52:43.135] SequentialFuture started (and completed) 1563s [00:52:43.135] - Launch lazy future ... done 1563s [00:52:43.136] run() for ‘SequentialFuture’ ... done 1563s [00:52:43.136] Created future: 1563s [00:52:43.136] SequentialFuture: 1563s [00:52:43.136] Label: ‘future_.mapply-1’ 1563s [00:52:43.136] Expression: 1563s [00:52:43.136] { 1563s [00:52:43.136] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1563s [00:52:43.136] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1563s [00:52:43.136] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1563s [00:52:43.136] on.exit(options(oopts), add = TRUE) 1563s [00:52:43.136] } 1563s [00:52:43.136] { 1563s [00:52:43.136] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1563s [00:52:43.136] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1563s [00:52:43.136] do.call(mapply, args = args) 1563s [00:52:43.136] } 1563s [00:52:43.136] } 1563s [00:52:43.136] Lazy evaluation: FALSE 1563s [00:52:43.136] Asynchronous evaluation: FALSE 1563s [00:52:43.136] Local evaluation: TRUE 1563s [00:52:43.136] Environment: R_GlobalEnv 1563s [00:52:43.136] Capture standard output: TRUE 1563s [00:52:43.136] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1563s [00:52:43.136] Globals: 5 objects totaling 1.83 KiB (function ‘...future.FUN’ of 1.66 KiB, list ‘MoreArgs’ of 56 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1563s [00:52:43.136] Packages: 1563s [00:52:43.136] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1563s [00:52:43.136] Resolved: TRUE 1563s [00:52:43.136] Value: 112 bytes of class ‘list’ 1563s [00:52:43.136] Early signaling: FALSE 1563s [00:52:43.136] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1563s [00:52:43.136] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1563s [00:52:43.139] Chunk #1 of 1 ... DONE 1563s [00:52:43.139] Launching 1 futures (chunks) ... DONE 1563s [00:52:43.139] Resolving 1 futures (chunks) ... 1563s [00:52:43.140] resolve() on list ... 1563s [00:52:43.140] recursive: 0 1563s [00:52:43.140] length: 1 1563s [00:52:43.140] 1563s [00:52:43.140] resolved() for ‘SequentialFuture’ ... 1563s [00:52:43.141] - state: ‘finished’ 1563s [00:52:43.141] - run: TRUE 1563s [00:52:43.141] - result: ‘FutureResult’ 1563s [00:52:43.141] resolved() for ‘SequentialFuture’ ... done 1563s [00:52:43.141] Future #1 1563s [00:52:43.141] signalConditionsASAP(SequentialFuture, pos=1) ... 1563s [00:52:43.142] - nx: 1 1563s [00:52:43.142] - relay: TRUE 1563s [00:52:43.142] - stdout: TRUE 1563s [00:52:43.142] - signal: TRUE 1563s [00:52:43.143] - resignal: FALSE 1563s [00:52:43.143] - force: TRUE 1563s [00:52:43.144] - relayed: [n=1] FALSE 1563s [00:52:43.144] - queued futures: [n=1] FALSE 1563s [00:52:43.144] - until=1 1563s [00:52:43.144] - relaying element #1 1563s [00:52:43.145] - relayed: [n=1] TRUE 1563s [00:52:43.145] - queued futures: [n=1] TRUE 1563s [00:52:43.145] signalConditionsASAP(SequentialFuture, pos=1) ... done 1563s [00:52:43.145] length: 0 (resolved future 1) 1563s [00:52:43.146] Relaying remaining futures 1563s [00:52:43.146] signalConditionsASAP(NULL, pos=0) ... 1563s [00:52:43.146] - nx: 1 1563s [00:52:43.147] - relay: TRUE 1563s [00:52:43.147] - stdout: TRUE 1563s [00:52:43.147] - signal: TRUE 1563s [00:52:43.147] - resignal: FALSE 1563s [00:52:43.148] - force: TRUE 1563s [00:52:43.148] - relayed: [n=1] TRUE 1563s [00:52:43.148] - queued futures: [n=1] TRUE 1563s - flush all 1563s [00:52:43.149] - relayed: [n=1] TRUE 1563s [00:52:43.149] - queued futures: [n=1] TRUE 1563s [00:52:43.150] signalConditionsASAP(NULL, pos=0) ... done 1563s [00:52:43.150] resolve() on list ... DONE 1563s [00:52:43.151] - Number of value chunks collected: 1 1563s [00:52:43.152] Resolving 1 futures (chunks) ... DONE 1563s [00:52:43.152] Reducing values from 1 chunks ... 1563s [00:52:43.152] - Number of values collected after concatenation: 2 1563s [00:52:43.152] - Number of values expected: 2 1563s [00:52:43.152] Reducing values from 1 chunks ... DONE 1563s [00:52:43.153] future_mapply() ... DONE 1563s - Recycle arguments to same length ... 1563s [00:52:43.154] future_mapply() ... 1563s [00:52:43.163] Number of chunks: 1 1563s [00:52:43.163] getGlobalsAndPackagesXApply() ... 1563s [00:52:43.163] - future.globals: TRUE 1563s [00:52:43.163] getGlobalsAndPackages() ... 1563s [00:52:43.163] Searching for globals... 1563s [00:52:43.165] - globals found: [1] ‘FUN’ 1563s [00:52:43.165] Searching for globals ... DONE 1563s [00:52:43.166] Resolving globals: FALSE 1563s [00:52:43.167] The total size of the 1 globals is 56 bytes (56 bytes) 1563s [00:52:43.167] The total size of the 1 globals exported for future expression (‘FUN()’) is 56 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (56 bytes of class ‘function’) 1563s [00:52:43.168] - globals: [1] ‘FUN’ 1563s [00:52:43.168] 1563s [00:52:43.168] getGlobalsAndPackages() ... DONE 1563s [00:52:43.168] - globals found/used: [n=1] ‘FUN’ 1563s [00:52:43.169] - needed namespaces: [n=0] 1563s [00:52:43.169] Finding globals ... DONE 1563s [00:52:43.170] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1563s [00:52:43.170] List of 2 1563s [00:52:43.170] $ ...future.FUN:function (x, ...) 1563s [00:52:43.170] $ MoreArgs : NULL 1563s [00:52:43.170] - attr(*, "where")=List of 2 1563s [00:52:43.170] ..$ ...future.FUN: 1563s [00:52:43.170] ..$ MoreArgs : 1563s [00:52:43.170] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1563s [00:52:43.170] - attr(*, "resolved")= logi FALSE 1563s [00:52:43.170] - attr(*, "total_size")= num NA 1563s [00:52:43.177] Packages to be attached in all futures: [n=0] 1563s [00:52:43.177] getGlobalsAndPackagesXApply() ... DONE 1563s [00:52:43.177] Number of futures (= number of chunks): 1 1563s [00:52:43.178] Launching 1 futures (chunks) ... 1563s [00:52:43.178] Chunk #1 of 1 ... 1563s [00:52:43.179] - Finding globals in '...' for chunk #1 ... 1563s [00:52:43.179] getGlobalsAndPackages() ... 1563s [00:52:43.179] Searching for globals... 1563s [00:52:43.181] 1563s [00:52:43.181] Searching for globals ... DONE 1563s [00:52:43.182] - globals: [0] 1563s [00:52:43.182] getGlobalsAndPackages() ... DONE 1563s [00:52:43.182] + additional globals found: [n=0] 1563s [00:52:43.183] + additional namespaces needed: [n=0] 1563s [00:52:43.183] - Finding globals in '...' for chunk #1 ... DONE 1563s [00:52:43.183] - seeds: 1563s [00:52:43.183] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1563s [00:52:43.183] getGlobalsAndPackages() ... 1563s [00:52:43.184] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1563s [00:52:43.184] Resolving globals: FALSE 1563s [00:52:43.185] The total size of the 5 globals is 504 bytes (504 bytes) 1563s [00:52:43.186] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 504 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.elements_ii’ (448 bytes of class ‘list’), ‘...future.FUN’ (56 bytes of class ‘function’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1563s [00:52:43.186] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1563s [00:52:43.186] 1563s [00:52:43.186] getGlobalsAndPackages() ... DONE 1563s [00:52:43.187] run() for ‘Future’ ... 1563s [00:52:43.187] - state: ‘created’ 1563s [00:52:43.187] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1563s [00:52:43.192] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1563s [00:52:43.193] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1563s [00:52:43.193] - Field: ‘label’ 1563s [00:52:43.193] - Field: ‘local’ 1563s [00:52:43.194] - Field: ‘owner’ 1563s [00:52:43.194] - Field: ‘envir’ 1563s [00:52:43.194] - Field: ‘packages’ 1563s [00:52:43.194] - Field: ‘gc’ 1563s [00:52:43.195] - Field: ‘conditions’ 1563s [00:52:43.195] - Field: ‘expr’ 1563s [00:52:43.196] - Field: ‘uuid’ 1563s [00:52:43.196] - Field: ‘seed’ 1563s [00:52:43.196] - Field: ‘version’ 1563s [00:52:43.196] - Field: ‘result’ 1563s [00:52:43.197] - Field: ‘asynchronous’ 1563s [00:52:43.197] - Field: ‘calls’ 1563s [00:52:43.197] - Field: ‘globals’ 1563s [00:52:43.198] - Field: ‘stdout’ 1563s [00:52:43.198] - Field: ‘earlySignal’ 1563s [00:52:43.198] - Field: ‘lazy’ 1563s [00:52:43.198] - Field: ‘state’ 1563s [00:52:43.199] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1563s [00:52:43.199] - Launch lazy future ... 1563s [00:52:43.199] Packages needed by the future expression (n = 0): 1563s [00:52:43.199] Packages needed by future strategies (n = 0): 1563s [00:52:43.200] { 1563s [00:52:43.200] { 1563s [00:52:43.200] { 1563s [00:52:43.200] ...future.startTime <- base::Sys.time() 1563s [00:52:43.200] { 1563s [00:52:43.200] { 1563s [00:52:43.200] { 1563s [00:52:43.200] base::local({ 1563s [00:52:43.200] has_future <- base::requireNamespace("future", 1563s [00:52:43.200] quietly = TRUE) 1563s [00:52:43.200] if (has_future) { 1563s [00:52:43.200] ns <- base::getNamespace("future") 1563s [00:52:43.200] version <- ns[[".package"]][["version"]] 1563s [00:52:43.200] if (is.null(version)) 1563s [00:52:43.200] version <- utils::packageVersion("future") 1563s [00:52:43.200] } 1563s [00:52:43.200] else { 1563s [00:52:43.200] version <- NULL 1563s [00:52:43.200] } 1563s [00:52:43.200] if (!has_future || version < "1.8.0") { 1563s [00:52:43.200] info <- base::c(r_version = base::gsub("R version ", 1563s [00:52:43.200] "", base::R.version$version.string), 1563s [00:52:43.200] platform = base::sprintf("%s (%s-bit)", 1563s [00:52:43.200] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1563s [00:52:43.200] os = base::paste(base::Sys.info()[base::c("sysname", 1563s [00:52:43.200] "release", "version")], collapse = " "), 1563s [00:52:43.200] hostname = base::Sys.info()[["nodename"]]) 1563s [00:52:43.200] info <- base::sprintf("%s: %s", base::names(info), 1563s [00:52:43.200] info) 1563s [00:52:43.200] info <- base::paste(info, collapse = "; ") 1563s [00:52:43.200] if (!has_future) { 1563s [00:52:43.200] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1563s [00:52:43.200] info) 1563s [00:52:43.200] } 1563s [00:52:43.200] else { 1563s [00:52:43.200] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1563s [00:52:43.200] info, version) 1563s [00:52:43.200] } 1563s [00:52:43.200] base::stop(msg) 1563s [00:52:43.200] } 1563s [00:52:43.200] }) 1563s [00:52:43.200] } 1563s [00:52:43.200] options(future.plan = NULL) 1563s [00:52:43.200] Sys.unsetenv("R_FUTURE_PLAN") 1563s [00:52:43.200] future::plan("default", .cleanup = FALSE, .init = FALSE) 1563s [00:52:43.200] } 1563s [00:52:43.200] ...future.workdir <- getwd() 1563s [00:52:43.200] } 1563s [00:52:43.200] ...future.oldOptions <- base::as.list(base::.Options) 1563s [00:52:43.200] ...future.oldEnvVars <- base::Sys.getenv() 1563s [00:52:43.200] } 1563s [00:52:43.200] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1563s [00:52:43.200] future.globals.maxSize = NULL, future.globals.method = NULL, 1563s [00:52:43.200] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1563s [00:52:43.200] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1563s [00:52:43.200] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1563s [00:52:43.200] future.stdout.windows.reencode = NULL, width = 80L) 1563s [00:52:43.200] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1563s [00:52:43.200] base::names(...future.oldOptions)) 1563s [00:52:43.200] } 1563s [00:52:43.200] if (FALSE) { 1563s [00:52:43.200] } 1563s [00:52:43.200] else { 1563s [00:52:43.200] if (TRUE) { 1563s [00:52:43.200] ...future.stdout <- base::rawConnection(base::raw(0L), 1563s [00:52:43.200] open = "w") 1563s [00:52:43.200] } 1563s [00:52:43.200] else { 1563s [00:52:43.200] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1563s [00:52:43.200] windows = "NUL", "/dev/null"), open = "w") 1563s [00:52:43.200] } 1563s [00:52:43.200] base::sink(...future.stdout, type = "output", split = FALSE) 1563s [00:52:43.200] base::on.exit(if (!base::is.null(...future.stdout)) { 1563s [00:52:43.200] base::sink(type = "output", split = FALSE) 1563s [00:52:43.200] base::close(...future.stdout) 1563s [00:52:43.200] }, add = TRUE) 1563s [00:52:43.200] } 1563s [00:52:43.200] ...future.frame <- base::sys.nframe() 1563s [00:52:43.200] ...future.conditions <- base::list() 1563s [00:52:43.200] ...future.rng <- base::globalenv()$.Random.seed 1563s [00:52:43.200] if (FALSE) { 1563s [00:52:43.200] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1563s [00:52:43.200] "...future.value", "...future.globalenv.names", ".Random.seed") 1563s [00:52:43.200] } 1563s [00:52:43.200] ...future.result <- base::tryCatch({ 1563s [00:52:43.200] base::withCallingHandlers({ 1563s [00:52:43.200] ...future.value <- base::withVisible(base::local({ 1563s [00:52:43.200] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1563s [00:52:43.200] if (!identical(...future.globals.maxSize.org, 1563s [00:52:43.200] ...future.globals.maxSize)) { 1563s [00:52:43.200] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1563s [00:52:43.200] on.exit(options(oopts), add = TRUE) 1563s [00:52:43.200] } 1563s [00:52:43.200] { 1563s [00:52:43.200] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1563s [00:52:43.200] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1563s [00:52:43.200] USE.NAMES = FALSE) 1563s [00:52:43.200] do.call(mapply, args = args) 1563s [00:52:43.200] } 1563s [00:52:43.200] })) 1563s [00:52:43.200] future::FutureResult(value = ...future.value$value, 1563s [00:52:43.200] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1563s [00:52:43.200] ...future.rng), globalenv = if (FALSE) 1563s [00:52:43.200] list(added = base::setdiff(base::names(base::.GlobalEnv), 1563s [00:52:43.200] ...future.globalenv.names)) 1563s [00:52:43.200] else NULL, started = ...future.startTime, version = "1.8") 1563s [00:52:43.200] }, condition = base::local({ 1563s [00:52:43.200] c <- base::c 1563s [00:52:43.200] inherits <- base::inherits 1563s [00:52:43.200] invokeRestart <- base::invokeRestart 1563s [00:52:43.200] length <- base::length 1563s [00:52:43.200] list <- base::list 1563s [00:52:43.200] seq.int <- base::seq.int 1563s [00:52:43.200] signalCondition <- base::signalCondition 1563s [00:52:43.200] sys.calls <- base::sys.calls 1563s [00:52:43.200] `[[` <- base::`[[` 1563s [00:52:43.200] `+` <- base::`+` 1563s [00:52:43.200] `<<-` <- base::`<<-` 1563s [00:52:43.200] sysCalls <- function(calls = sys.calls(), from = 1L) { 1563s [00:52:43.200] calls[seq.int(from = from + 12L, to = length(calls) - 1563s [00:52:43.200] 3L)] 1563s [00:52:43.200] } 1563s [00:52:43.200] function(cond) { 1563s [00:52:43.200] is_error <- inherits(cond, "error") 1563s [00:52:43.200] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1563s [00:52:43.200] NULL) 1563s [00:52:43.200] if (is_error) { 1563s [00:52:43.200] sessionInformation <- function() { 1563s [00:52:43.200] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1563s [00:52:43.200] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1563s [00:52:43.200] search = base::search(), system = base::Sys.info()) 1563s [00:52:43.200] } 1563s [00:52:43.200] ...future.conditions[[length(...future.conditions) + 1563s [00:52:43.200] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1563s [00:52:43.200] cond$call), session = sessionInformation(), 1563s [00:52:43.200] timestamp = base::Sys.time(), signaled = 0L) 1563s [00:52:43.200] signalCondition(cond) 1563s [00:52:43.200] } 1563s [00:52:43.200] else if (!ignore && TRUE && inherits(cond, c("condition", 1563s [00:52:43.200] "immediateCondition"))) { 1563s [00:52:43.200] signal <- TRUE && inherits(cond, "immediateCondition") 1563s [00:52:43.200] ...future.conditions[[length(...future.conditions) + 1563s [00:52:43.200] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1563s [00:52:43.200] if (TRUE && !signal) { 1563s [00:52:43.200] muffleCondition <- function (cond, pattern = "^muffle") 1563s [00:52:43.200] { 1563s [00:52:43.200] inherits <- base::inherits 1563s [00:52:43.200] invokeRestart <- base::invokeRestart 1563s [00:52:43.200] is.null <- base::is.null 1563s [00:52:43.200] muffled <- FALSE 1563s [00:52:43.200] if (inherits(cond, "message")) { 1563s [00:52:43.200] muffled <- grepl(pattern, "muffleMessage") 1563s [00:52:43.200] if (muffled) 1563s [00:52:43.200] invokeRestart("muffleMessage") 1563s [00:52:43.200] } 1563s [00:52:43.200] else if (inherits(cond, "warning")) { 1563s [00:52:43.200] muffled <- grepl(pattern, "muffleWarning") 1563s [00:52:43.200] if (muffled) 1563s [00:52:43.200] invokeRestart("muffleWarning") 1563s [00:52:43.200] } 1563s [00:52:43.200] else if (inherits(cond, "condition")) { 1563s [00:52:43.200] if (!is.null(pattern)) { 1563s [00:52:43.200] computeRestarts <- base::computeRestarts 1563s [00:52:43.200] grepl <- base::grepl 1563s [00:52:43.200] restarts <- computeRestarts(cond) 1563s [00:52:43.200] for (restart in restarts) { 1563s [00:52:43.200] name <- restart$name 1563s [00:52:43.200] if (is.null(name)) 1563s [00:52:43.200] next 1563s [00:52:43.200] if (!grepl(pattern, name)) 1563s [00:52:43.200] next 1563s [00:52:43.200] invokeRestart(restart) 1563s [00:52:43.200] muffled <- TRUE 1563s [00:52:43.200] break 1563s [00:52:43.200] } 1563s [00:52:43.200] } 1563s [00:52:43.200] } 1563s [00:52:43.200] invisible(muffled) 1563s [00:52:43.200] } 1563s [00:52:43.200] muffleCondition(cond, pattern = "^muffle") 1563s [00:52:43.200] } 1563s [00:52:43.200] } 1563s [00:52:43.200] else { 1563s [00:52:43.200] if (TRUE) { 1563s [00:52:43.200] muffleCondition <- function (cond, pattern = "^muffle") 1563s [00:52:43.200] { 1563s [00:52:43.200] inherits <- base::inherits 1563s [00:52:43.200] invokeRestart <- base::invokeRestart 1563s [00:52:43.200] is.null <- base::is.null 1563s [00:52:43.200] muffled <- FALSE 1563s [00:52:43.200] if (inherits(cond, "message")) { 1563s [00:52:43.200] muffled <- grepl(pattern, "muffleMessage") 1563s [00:52:43.200] if (muffled) 1563s [00:52:43.200] invokeRestart("muffleMessage") 1563s [00:52:43.200] } 1563s [00:52:43.200] else if (inherits(cond, "warning")) { 1563s [00:52:43.200] muffled <- grepl(pattern, "muffleWarning") 1563s [00:52:43.200] if (muffled) 1563s [00:52:43.200] invokeRestart("muffleWarning") 1563s [00:52:43.200] } 1563s [00:52:43.200] else if (inherits(cond, "condition")) { 1563s [00:52:43.200] if (!is.null(pattern)) { 1563s [00:52:43.200] computeRestarts <- base::computeRestarts 1563s [00:52:43.200] grepl <- base::grepl 1563s [00:52:43.200] restarts <- computeRestarts(cond) 1563s [00:52:43.200] for (restart in restarts) { 1563s [00:52:43.200] name <- restart$name 1563s [00:52:43.200] if (is.null(name)) 1563s [00:52:43.200] next 1563s [00:52:43.200] if (!grepl(pattern, name)) 1563s [00:52:43.200] next 1563s [00:52:43.200] invokeRestart(restart) 1563s [00:52:43.200] muffled <- TRUE 1563s [00:52:43.200] break 1563s [00:52:43.200] } 1563s [00:52:43.200] } 1563s [00:52:43.200] } 1563s [00:52:43.200] invisible(muffled) 1563s [00:52:43.200] } 1563s [00:52:43.200] muffleCondition(cond, pattern = "^muffle") 1563s [00:52:43.200] } 1563s [00:52:43.200] } 1563s [00:52:43.200] } 1563s [00:52:43.200] })) 1563s [00:52:43.200] }, error = function(ex) { 1563s [00:52:43.200] base::structure(base::list(value = NULL, visible = NULL, 1563s [00:52:43.200] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1563s [00:52:43.200] ...future.rng), started = ...future.startTime, 1563s [00:52:43.200] finished = Sys.time(), session_uuid = NA_character_, 1563s [00:52:43.200] version = "1.8"), class = "FutureResult") 1563s [00:52:43.200] }, finally = { 1563s [00:52:43.200] if (!identical(...future.workdir, getwd())) 1563s [00:52:43.200] setwd(...future.workdir) 1563s [00:52:43.200] { 1563s [00:52:43.200] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1563s [00:52:43.200] ...future.oldOptions$nwarnings <- NULL 1563s [00:52:43.200] } 1563s [00:52:43.200] base::options(...future.oldOptions) 1563s [00:52:43.200] if (.Platform$OS.type == "windows") { 1563s [00:52:43.200] old_names <- names(...future.oldEnvVars) 1563s [00:52:43.200] envs <- base::Sys.getenv() 1563s [00:52:43.200] names <- names(envs) 1563s [00:52:43.200] common <- intersect(names, old_names) 1563s [00:52:43.200] added <- setdiff(names, old_names) 1563s [00:52:43.200] removed <- setdiff(old_names, names) 1563s [00:52:43.200] changed <- common[...future.oldEnvVars[common] != 1563s [00:52:43.200] envs[common]] 1563s [00:52:43.200] NAMES <- toupper(changed) 1563s [00:52:43.200] args <- list() 1563s [00:52:43.200] for (kk in seq_along(NAMES)) { 1563s [00:52:43.200] name <- changed[[kk]] 1563s [00:52:43.200] NAME <- NAMES[[kk]] 1563s [00:52:43.200] if (name != NAME && is.element(NAME, old_names)) 1563s [00:52:43.200] next 1563s [00:52:43.200] args[[name]] <- ...future.oldEnvVars[[name]] 1563s [00:52:43.200] } 1563s [00:52:43.200] NAMES <- toupper(added) 1563s [00:52:43.200] for (kk in seq_along(NAMES)) { 1563s [00:52:43.200] name <- added[[kk]] 1563s [00:52:43.200] NAME <- NAMES[[kk]] 1563s [00:52:43.200] if (name != NAME && is.element(NAME, old_names)) 1563s [00:52:43.200] next 1563s [00:52:43.200] args[[name]] <- "" 1563s [00:52:43.200] } 1563s [00:52:43.200] NAMES <- toupper(removed) 1563s [00:52:43.200] for (kk in seq_along(NAMES)) { 1563s [00:52:43.200] name <- removed[[kk]] 1563s [00:52:43.200] NAME <- NAMES[[kk]] 1563s [00:52:43.200] if (name != NAME && is.element(NAME, old_names)) 1563s [00:52:43.200] next 1563s [00:52:43.200] args[[name]] <- ...future.oldEnvVars[[name]] 1563s [00:52:43.200] } 1563s [00:52:43.200] if (length(args) > 0) 1563s [00:52:43.200] base::do.call(base::Sys.setenv, args = args) 1563s [00:52:43.200] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1563s [00:52:43.200] } 1563s [00:52:43.200] else { 1563s [00:52:43.200] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1563s [00:52:43.200] } 1563s [00:52:43.200] { 1563s [00:52:43.200] if (base::length(...future.futureOptionsAdded) > 1563s [00:52:43.200] 0L) { 1563s [00:52:43.200] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1563s [00:52:43.200] base::names(opts) <- ...future.futureOptionsAdded 1563s [00:52:43.200] base::options(opts) 1563s [00:52:43.200] } 1563s [00:52:43.200] { 1563s [00:52:43.200] { 1563s [00:52:43.200] base::assign(".Random.seed", c(10407L, 90762767L, 1563s [00:52:43.200] 1950921141L, 684208025L, -1057805512L, -1193394041L, 1563s [00:52:43.200] 1749862038L), envir = base::globalenv(), 1563s [00:52:43.200] inherits = FALSE) 1563s [00:52:43.200] NULL 1563s [00:52:43.200] } 1563s [00:52:43.200] options(future.plan = NULL) 1563s [00:52:43.200] if (is.na(NA_character_)) 1563s [00:52:43.200] Sys.unsetenv("R_FUTURE_PLAN") 1563s [00:52:43.200] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1563s [00:52:43.200] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1563s [00:52:43.200] envir = parent.frame()) 1563s [00:52:43.200] { 1563s [00:52:43.200] default_workers <- missing(workers) 1563s [00:52:43.200] if (is.function(workers)) 1563s [00:52:43.200] workers <- workers() 1563s [00:52:43.200] workers <- structure(as.integer(workers), 1563s [00:52:43.200] class = class(workers)) 1563s [00:52:43.200] stop_if_not(is.finite(workers), workers >= 1563s [00:52:43.200] 1L) 1563s [00:52:43.200] if ((workers == 1L && !inherits(workers, 1563s [00:52:43.200] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1563s [00:52:43.200] if (default_workers) 1563s [00:52:43.200] supportsMulticore(warn = TRUE) 1563s [00:52:43.200] return(sequential(..., envir = envir)) 1563s [00:52:43.200] } 1563s [00:52:43.200] oopts <- options(mc.cores = workers) 1563s [00:52:43.200] on.exit(options(oopts)) 1563s [00:52:43.200] future <- MulticoreFuture(..., workers = workers, 1563s [00:52:43.200] envir = envir) 1563s [00:52:43.200] if (!future$lazy) 1563s [00:52:43.200] future <- run(future) 1563s [00:52:43.200] invisible(future) 1563s [00:52:43.200] }), .cleanup = FALSE, .init = FALSE) 1563s [00:52:43.200] } 1563s [00:52:43.200] } 1563s [00:52:43.200] } 1563s [00:52:43.200] }) 1563s [00:52:43.200] if (TRUE) { 1563s [00:52:43.200] base::sink(type = "output", split = FALSE) 1563s [00:52:43.200] if (TRUE) { 1563s [00:52:43.200] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1563s [00:52:43.200] } 1563s [00:52:43.200] else { 1563s [00:52:43.200] ...future.result["stdout"] <- base::list(NULL) 1563s [00:52:43.200] } 1563s [00:52:43.200] base::close(...future.stdout) 1563s [00:52:43.200] ...future.stdout <- NULL 1563s [00:52:43.200] } 1563s [00:52:43.200] ...future.result$conditions <- ...future.conditions 1563s [00:52:43.200] ...future.result$finished <- base::Sys.time() 1563s [00:52:43.200] ...future.result 1563s [00:52:43.200] } 1563s [00:52:43.204] assign_globals() ... 1563s [00:52:43.204] List of 5 1563s [00:52:43.204] $ ...future.FUN :function (x, ...) 1563s [00:52:43.204] $ MoreArgs : NULL 1563s [00:52:43.204] $ ...future.elements_ii :List of 2 1563s [00:52:43.204] ..$ :List of 4 1563s [00:52:43.204] .. ..$ : int 1 1563s [00:52:43.204] .. ..$ : int 2 1563s [00:52:43.204] .. ..$ : int 3 1563s [00:52:43.204] .. ..$ : int 4 1563s [00:52:43.204] ..$ :List of 4 1563s [00:52:43.204] .. ..$ : int 2 1563s [00:52:43.204] .. ..$ : int 1 1563s [00:52:43.204] .. ..$ : int 2 1563s [00:52:43.204] .. ..$ : int 1 1563s [00:52:43.204] $ ...future.seeds_ii : NULL 1563s [00:52:43.204] $ ...future.globals.maxSize: NULL 1563s [00:52:43.204] - attr(*, "where")=List of 5 1563s [00:52:43.204] ..$ ...future.FUN : 1563s [00:52:43.204] ..$ MoreArgs : 1563s [00:52:43.204] ..$ ...future.elements_ii : 1563s [00:52:43.204] ..$ ...future.seeds_ii : 1563s [00:52:43.204] ..$ ...future.globals.maxSize: 1563s [00:52:43.204] - attr(*, "resolved")= logi FALSE 1563s [00:52:43.204] - attr(*, "total_size")= num 504 1563s [00:52:43.204] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1563s [00:52:43.204] - attr(*, "already-done")= logi TRUE 1563s [00:52:43.222] - copied ‘...future.FUN’ to environment 1563s [00:52:43.222] - copied ‘MoreArgs’ to environment 1563s [00:52:43.222] - copied ‘...future.elements_ii’ to environment 1563s [00:52:43.223] - copied ‘...future.seeds_ii’ to environment 1563s [00:52:43.223] - copied ‘...future.globals.maxSize’ to environment 1563s [00:52:43.223] assign_globals() ... done 1563s [00:52:43.223] plan(): Setting new future strategy stack: 1563s [00:52:43.224] List of future strategies: 1563s [00:52:43.224] 1. sequential: 1563s [00:52:43.224] - args: function (..., envir = parent.frame()) 1563s [00:52:43.224] - tweaked: FALSE 1563s [00:52:43.224] - call: NULL 1563s [00:52:43.224] plan(): nbrOfWorkers() = 1 1563s [00:52:43.225] plan(): Setting new future strategy stack: 1563s [00:52:43.225] List of future strategies: 1563s [00:52:43.225] 1. multicore: 1563s [00:52:43.225] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1563s [00:52:43.225] - tweaked: FALSE 1563s [00:52:43.225] - call: plan(strategy) 1563s [00:52:43.229] plan(): nbrOfWorkers() = 1 1563s [00:52:43.229] SequentialFuture started (and completed) 1563s [00:52:43.230] - Launch lazy future ... done 1563s [00:52:43.230] run() for ‘SequentialFuture’ ... done 1563s [00:52:43.230] Created future: 1563s [00:52:43.230] SequentialFuture: 1563s [00:52:43.230] Label: ‘future_mapply-1’ 1563s [00:52:43.230] Expression: 1563s [00:52:43.230] { 1563s [00:52:43.230] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1563s [00:52:43.230] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1563s [00:52:43.230] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1563s [00:52:43.230] on.exit(options(oopts), add = TRUE) 1563s [00:52:43.230] } 1563s [00:52:43.230] { 1563s [00:52:43.230] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1563s [00:52:43.230] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1563s [00:52:43.230] do.call(mapply, args = args) 1563s [00:52:43.230] } 1563s [00:52:43.230] } 1563s [00:52:43.230] Lazy evaluation: FALSE 1563s [00:52:43.230] Asynchronous evaluation: FALSE 1563s [00:52:43.230] Local evaluation: TRUE 1563s [00:52:43.230] Environment: R_GlobalEnv 1563s [00:52:43.230] Capture standard output: TRUE 1563s [00:52:43.230] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1563s [00:52:43.230] Globals: 5 objects totaling 504 bytes (function ‘...future.FUN’ of 56 bytes, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 448 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1563s [00:52:43.230] Packages: 1563s [00:52:43.230] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1563s [00:52:43.230] Resolved: TRUE 1563s [00:52:43.230] Value: 224 bytes of class ‘list’ 1563s [00:52:43.230] Early signaling: FALSE 1563s [00:52:43.230] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1563s [00:52:43.230] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1563s [00:52:43.232] Chunk #1 of 1 ... DONE 1563s [00:52:43.232] Launching 1 futures (chunks) ... DONE 1563s [00:52:43.233] Resolving 1 futures (chunks) ... 1563s [00:52:43.233] resolve() on list ... 1563s [00:52:43.233] recursive: 0 1563s [00:52:43.233] length: 1 1563s [00:52:43.233] 1563s [00:52:43.233] resolved() for ‘SequentialFuture’ ... 1563s [00:52:43.234] - state: ‘finished’ 1563s [00:52:43.234] - run: TRUE 1563s [00:52:43.234] - result: ‘FutureResult’ 1563s [00:52:43.234] resolved() for ‘SequentialFuture’ ... done 1563s [00:52:43.235] Future #1 1563s [00:52:43.235] signalConditionsASAP(SequentialFuture, pos=1) ... 1563s [00:52:43.235] - nx: 1 1563s [00:52:43.235] - relay: TRUE 1563s [00:52:43.236] - stdout: TRUE 1563s [00:52:43.236] - signal: TRUE 1563s [00:52:43.236] - resignal: FALSE 1563s [00:52:43.237] - force: TRUE 1563s [00:52:43.237] - relayed: [n=1] FALSE 1563s [00:52:43.237] - queued futures: [n=1] FALSE 1563s [00:52:43.237] - until=1 1563s [00:52:43.237] - relaying element #1 1563s [00:52:43.237] - relayed: [n=1] TRUE 1563s [00:52:43.238] - queued futures: [n=1] TRUE 1563s [00:52:43.238] signalConditionsASAP(SequentialFuture, pos=1) ... done 1563s [00:52:43.238] length: 0 (resolved future 1) 1563s [00:52:43.238] Relaying remaining futures 1563s [00:52:43.238] signalConditionsASAP(NULL, pos=0) ... 1563s [00:52:43.239] - nx: 1 1563s [00:52:43.239] - relay: TRUE 1563s [00:52:43.239] - stdout: TRUE 1563s [00:52:43.240] - signal: TRUE 1563s [00:52:43.240] - resignal: FALSE 1563s [00:52:43.240] - force: TRUE 1563s [00:52:43.240] - relayed: [n=1] TRUE 1563s [00:52:43.241] - queued futures: [n=1] TRUE 1563s - flush all 1563s [00:52:43.241] - relayed: [n=1] TRUE 1563s [00:52:43.241] - queued futures: [n=1] TRUE 1563s [00:52:43.241] signalConditionsASAP(NULL, pos=0) ... done 1563s [00:52:43.241] resolve() on list ... DONE 1563s [00:52:43.242] - Number of value chunks collected: 1 1563s [00:52:43.242] Resolving 1 futures (chunks) ... DONE 1563s [00:52:43.242] Reducing values from 1 chunks ... 1563s [00:52:43.242] - Number of values collected after concatenation: 4 1563s [00:52:43.242] - Number of values expected: 4 1563s [00:52:43.243] Reducing values from 1 chunks ... DONE 1563s [00:52:43.243] future_mapply() ... DONE 1563s - Parallel RNG ... 1563s [00:52:43.243] future_mapply() ... 1563s [00:52:43.243] Generating random seeds ... 1563s [00:52:43.244] Generating random seed streams for 4 elements ... 1563s [00:52:43.244] Generating random seed streams for 4 elements ... DONE 1563s [00:52:43.244] Generating random seeds ... DONE 1563s [00:52:43.244] Will set RNG state on exit: 10407, 684208025, -2091530519, 1423602620, 1749862038, -627370920, 1320746934 1563s [00:52:43.251] Number of chunks: 1 1563s [00:52:43.251] getGlobalsAndPackagesXApply() ... 1563s [00:52:43.251] - future.globals: TRUE 1563s [00:52:43.252] getGlobalsAndPackages() ... 1563s [00:52:43.252] Searching for globals... 1563s [00:52:43.254] - globals found: [3] ‘FUN’, ‘.Call’, ‘C_runif’ 1563s [00:52:43.254] Searching for globals ... DONE 1563s [00:52:43.254] Resolving globals: FALSE 1563s [00:52:43.255] The total size of the 1 globals is 2.04 KiB (2088 bytes) 1563s [00:52:43.256] The total size of the 1 globals exported for future expression (‘FUN(min = 1)’) is 2.04 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (2.04 KiB of class ‘function’) 1563s [00:52:43.256] - globals: [1] ‘FUN’ 1563s [00:52:43.256] - packages: [1] ‘stats’ 1563s [00:52:43.256] getGlobalsAndPackages() ... DONE 1563s [00:52:43.256] - globals found/used: [n=1] ‘FUN’ 1563s [00:52:43.256] - needed namespaces: [n=1] ‘stats’ 1563s [00:52:43.256] Finding globals ... DONE 1563s [00:52:43.258] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1563s [00:52:43.259] List of 2 1563s [00:52:43.259] $ ...future.FUN:function (n, min = 0, max = 1) 1563s [00:52:43.259] $ MoreArgs :List of 1 1563s [00:52:43.259] ..$ min: num 1 1563s [00:52:43.259] - attr(*, "where")=List of 2 1563s [00:52:43.259] ..$ ...future.FUN: 1563s [00:52:43.259] ..$ MoreArgs : 1563s [00:52:43.259] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1563s [00:52:43.259] - attr(*, "resolved")= logi FALSE 1563s [00:52:43.259] - attr(*, "total_size")= num NA 1563s [00:52:43.264] Packages to be attached in all futures: [n=1] ‘stats’ 1563s [00:52:43.264] getGlobalsAndPackagesXApply() ... DONE 1563s [00:52:43.265] Number of futures (= number of chunks): 1 1563s [00:52:43.265] Launching 1 futures (chunks) ... 1563s [00:52:43.266] Chunk #1 of 1 ... 1563s [00:52:43.266] - Finding globals in '...' for chunk #1 ... 1563s [00:52:43.266] getGlobalsAndPackages() ... 1563s [00:52:43.267] Searching for globals... 1563s [00:52:43.268] 1563s [00:52:43.268] Searching for globals ... DONE 1563s [00:52:43.268] - globals: [0] 1563s [00:52:43.269] getGlobalsAndPackages() ... DONE 1563s [00:52:43.269] + additional globals found: [n=0] 1563s [00:52:43.269] + additional namespaces needed: [n=0] 1563s [00:52:43.269] - Finding globals in '...' for chunk #1 ... DONE 1563s [00:52:43.270] - seeds: [4] 1563s [00:52:43.271] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1563s [00:52:43.271] getGlobalsAndPackages() ... 1563s [00:52:43.271] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1563s [00:52:43.272] Resolving globals: FALSE 1563s [00:52:43.272] The total size of the 5 globals is 2.84 KiB (2912 bytes) 1563s [00:52:43.273] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 2.84 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (2.04 KiB of class ‘function’), ‘...future.elements_ii’ (448 bytes of class ‘list’) and ‘...future.seeds_ii’ (320 bytes of class ‘list’) 1563s [00:52:43.273] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1563s [00:52:43.274] - packages: [1] ‘stats’ 1563s [00:52:43.274] getGlobalsAndPackages() ... DONE 1563s [00:52:43.274] run() for ‘Future’ ... 1563s [00:52:43.274] - state: ‘created’ 1563s [00:52:43.275] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1563s [00:52:43.279] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1563s [00:52:43.279] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1563s [00:52:43.279] - Field: ‘label’ 1563s [00:52:43.280] - Field: ‘local’ 1563s [00:52:43.280] - Field: ‘owner’ 1563s [00:52:43.280] - Field: ‘envir’ 1563s [00:52:43.280] - Field: ‘packages’ 1563s [00:52:43.281] - Field: ‘gc’ 1563s [00:52:43.281] - Field: ‘conditions’ 1563s [00:52:43.281] - Field: ‘expr’ 1563s [00:52:43.281] - Field: ‘uuid’ 1563s [00:52:43.281] - Field: ‘seed’ 1563s [00:52:43.282] - Field: ‘version’ 1563s [00:52:43.282] - Field: ‘result’ 1563s [00:52:43.282] - Field: ‘asynchronous’ 1563s [00:52:43.282] - Field: ‘calls’ 1563s [00:52:43.282] - Field: ‘globals’ 1563s [00:52:43.282] - Field: ‘stdout’ 1563s [00:52:43.283] - Field: ‘earlySignal’ 1563s [00:52:43.283] - Field: ‘lazy’ 1563s [00:52:43.283] - Field: ‘state’ 1563s [00:52:43.283] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1563s [00:52:43.283] - Launch lazy future ... 1563s [00:52:43.284] Packages needed by the future expression (n = 1): ‘stats’ 1563s [00:52:43.284] Packages needed by future strategies (n = 0): 1563s [00:52:43.285] { 1563s [00:52:43.285] { 1563s [00:52:43.285] { 1563s [00:52:43.285] ...future.startTime <- base::Sys.time() 1563s [00:52:43.285] { 1563s [00:52:43.285] { 1563s [00:52:43.285] { 1563s [00:52:43.285] { 1563s [00:52:43.285] base::local({ 1563s [00:52:43.285] has_future <- base::requireNamespace("future", 1563s [00:52:43.285] quietly = TRUE) 1563s [00:52:43.285] if (has_future) { 1563s [00:52:43.285] ns <- base::getNamespace("future") 1563s [00:52:43.285] version <- ns[[".package"]][["version"]] 1563s [00:52:43.285] if (is.null(version)) 1563s [00:52:43.285] version <- utils::packageVersion("future") 1563s [00:52:43.285] } 1563s [00:52:43.285] else { 1563s [00:52:43.285] version <- NULL 1563s [00:52:43.285] } 1563s [00:52:43.285] if (!has_future || version < "1.8.0") { 1563s [00:52:43.285] info <- base::c(r_version = base::gsub("R version ", 1563s [00:52:43.285] "", base::R.version$version.string), 1563s [00:52:43.285] platform = base::sprintf("%s (%s-bit)", 1563s [00:52:43.285] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1563s [00:52:43.285] os = base::paste(base::Sys.info()[base::c("sysname", 1563s [00:52:43.285] "release", "version")], collapse = " "), 1563s [00:52:43.285] hostname = base::Sys.info()[["nodename"]]) 1563s [00:52:43.285] info <- base::sprintf("%s: %s", base::names(info), 1563s [00:52:43.285] info) 1563s [00:52:43.285] info <- base::paste(info, collapse = "; ") 1563s [00:52:43.285] if (!has_future) { 1563s [00:52:43.285] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1563s [00:52:43.285] info) 1563s [00:52:43.285] } 1563s [00:52:43.285] else { 1563s [00:52:43.285] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1563s [00:52:43.285] info, version) 1563s [00:52:43.285] } 1563s [00:52:43.285] base::stop(msg) 1563s [00:52:43.285] } 1563s [00:52:43.285] }) 1563s [00:52:43.285] } 1563s [00:52:43.285] base::local({ 1563s [00:52:43.285] for (pkg in "stats") { 1563s [00:52:43.285] base::loadNamespace(pkg) 1563s [00:52:43.285] base::library(pkg, character.only = TRUE) 1563s [00:52:43.285] } 1563s [00:52:43.285] }) 1563s [00:52:43.285] } 1563s [00:52:43.285] options(future.plan = NULL) 1563s [00:52:43.285] Sys.unsetenv("R_FUTURE_PLAN") 1563s [00:52:43.285] future::plan("default", .cleanup = FALSE, .init = FALSE) 1563s [00:52:43.285] } 1563s [00:52:43.285] ...future.workdir <- getwd() 1563s [00:52:43.285] } 1563s [00:52:43.285] ...future.oldOptions <- base::as.list(base::.Options) 1563s [00:52:43.285] ...future.oldEnvVars <- base::Sys.getenv() 1563s [00:52:43.285] } 1563s [00:52:43.285] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1563s [00:52:43.285] future.globals.maxSize = NULL, future.globals.method = NULL, 1563s [00:52:43.285] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1563s [00:52:43.285] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1563s [00:52:43.285] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1563s [00:52:43.285] future.stdout.windows.reencode = NULL, width = 80L) 1563s [00:52:43.285] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1563s [00:52:43.285] base::names(...future.oldOptions)) 1563s [00:52:43.285] } 1563s [00:52:43.285] if (FALSE) { 1563s [00:52:43.285] } 1563s [00:52:43.285] else { 1563s [00:52:43.285] if (TRUE) { 1563s [00:52:43.285] ...future.stdout <- base::rawConnection(base::raw(0L), 1563s [00:52:43.285] open = "w") 1563s [00:52:43.285] } 1563s [00:52:43.285] else { 1563s [00:52:43.285] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1563s [00:52:43.285] windows = "NUL", "/dev/null"), open = "w") 1563s [00:52:43.285] } 1563s [00:52:43.285] base::sink(...future.stdout, type = "output", split = FALSE) 1563s [00:52:43.285] base::on.exit(if (!base::is.null(...future.stdout)) { 1563s [00:52:43.285] base::sink(type = "output", split = FALSE) 1563s [00:52:43.285] base::close(...future.stdout) 1563s [00:52:43.285] }, add = TRUE) 1563s [00:52:43.285] } 1563s [00:52:43.285] ...future.frame <- base::sys.nframe() 1563s [00:52:43.285] ...future.conditions <- base::list() 1563s [00:52:43.285] ...future.rng <- base::globalenv()$.Random.seed 1563s [00:52:43.285] if (FALSE) { 1563s [00:52:43.285] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1563s [00:52:43.285] "...future.value", "...future.globalenv.names", ".Random.seed") 1563s [00:52:43.285] } 1563s [00:52:43.285] ...future.result <- base::tryCatch({ 1563s [00:52:43.285] base::withCallingHandlers({ 1563s [00:52:43.285] ...future.value <- base::withVisible(base::local({ 1563s [00:52:43.285] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1563s [00:52:43.285] if (!identical(...future.globals.maxSize.org, 1563s [00:52:43.285] ...future.globals.maxSize)) { 1563s [00:52:43.285] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1563s [00:52:43.285] on.exit(options(oopts), add = TRUE) 1563s [00:52:43.285] } 1563s [00:52:43.285] { 1563s [00:52:43.285] ...future.FUN2 <- function(..., ...future.seeds_ii_jj) { 1563s [00:52:43.285] assign(".Random.seed", ...future.seeds_ii_jj, 1563s [00:52:43.285] envir = globalenv(), inherits = FALSE) 1563s [00:52:43.285] ...future.FUN(...) 1563s [00:52:43.285] } 1563s [00:52:43.285] args <- c(list(FUN = ...future.FUN2), ...future.elements_ii, 1563s [00:52:43.285] list(...future.seeds_ii_jj = ...future.seeds_ii), 1563s [00:52:43.285] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1563s [00:52:43.285] USE.NAMES = FALSE) 1563s [00:52:43.285] do.call(mapply, args = args) 1563s [00:52:43.285] } 1563s [00:52:43.285] })) 1563s [00:52:43.285] future::FutureResult(value = ...future.value$value, 1563s [00:52:43.285] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1563s [00:52:43.285] ...future.rng), globalenv = if (FALSE) 1563s [00:52:43.285] list(added = base::setdiff(base::names(base::.GlobalEnv), 1563s [00:52:43.285] ...future.globalenv.names)) 1563s [00:52:43.285] else NULL, started = ...future.startTime, version = "1.8") 1563s [00:52:43.285] }, condition = base::local({ 1563s [00:52:43.285] c <- base::c 1563s [00:52:43.285] inherits <- base::inherits 1563s [00:52:43.285] invokeRestart <- base::invokeRestart 1563s [00:52:43.285] length <- base::length 1563s [00:52:43.285] list <- base::list 1563s [00:52:43.285] seq.int <- base::seq.int 1563s [00:52:43.285] signalCondition <- base::signalCondition 1563s [00:52:43.285] sys.calls <- base::sys.calls 1563s [00:52:43.285] `[[` <- base::`[[` 1563s [00:52:43.285] `+` <- base::`+` 1563s [00:52:43.285] `<<-` <- base::`<<-` 1563s [00:52:43.285] sysCalls <- function(calls = sys.calls(), from = 1L) { 1563s [00:52:43.285] calls[seq.int(from = from + 12L, to = length(calls) - 1563s [00:52:43.285] 3L)] 1563s [00:52:43.285] } 1563s [00:52:43.285] function(cond) { 1563s [00:52:43.285] is_error <- inherits(cond, "error") 1563s [00:52:43.285] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1563s [00:52:43.285] NULL) 1563s [00:52:43.285] if (is_error) { 1563s [00:52:43.285] sessionInformation <- function() { 1563s [00:52:43.285] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1563s [00:52:43.285] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1563s [00:52:43.285] search = base::search(), system = base::Sys.info()) 1563s [00:52:43.285] } 1563s [00:52:43.285] ...future.conditions[[length(...future.conditions) + 1563s [00:52:43.285] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1563s [00:52:43.285] cond$call), session = sessionInformation(), 1563s [00:52:43.285] timestamp = base::Sys.time(), signaled = 0L) 1563s [00:52:43.285] signalCondition(cond) 1563s [00:52:43.285] } 1563s [00:52:43.285] else if (!ignore && TRUE && inherits(cond, c("condition", 1563s [00:52:43.285] "immediateCondition"))) { 1563s [00:52:43.285] signal <- TRUE && inherits(cond, "immediateCondition") 1563s [00:52:43.285] ...future.conditions[[length(...future.conditions) + 1563s [00:52:43.285] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1563s [00:52:43.285] if (TRUE && !signal) { 1563s [00:52:43.285] muffleCondition <- function (cond, pattern = "^muffle") 1563s [00:52:43.285] { 1563s [00:52:43.285] inherits <- base::inherits 1563s [00:52:43.285] invokeRestart <- base::invokeRestart 1563s [00:52:43.285] is.null <- base::is.null 1563s [00:52:43.285] muffled <- FALSE 1563s [00:52:43.285] if (inherits(cond, "message")) { 1563s [00:52:43.285] muffled <- grepl(pattern, "muffleMessage") 1563s [00:52:43.285] if (muffled) 1563s [00:52:43.285] invokeRestart("muffleMessage") 1563s [00:52:43.285] } 1563s [00:52:43.285] else if (inherits(cond, "warning")) { 1563s [00:52:43.285] muffled <- grepl(pattern, "muffleWarning") 1563s [00:52:43.285] if (muffled) 1563s [00:52:43.285] invokeRestart("muffleWarning") 1563s [00:52:43.285] } 1563s [00:52:43.285] else if (inherits(cond, "condition")) { 1563s [00:52:43.285] if (!is.null(pattern)) { 1563s [00:52:43.285] computeRestarts <- base::computeRestarts 1563s [00:52:43.285] grepl <- base::grepl 1563s [00:52:43.285] restarts <- computeRestarts(cond) 1563s [00:52:43.285] for (restart in restarts) { 1563s [00:52:43.285] name <- restart$name 1563s [00:52:43.285] if (is.null(name)) 1563s [00:52:43.285] next 1563s [00:52:43.285] if (!grepl(pattern, name)) 1563s [00:52:43.285] next 1563s [00:52:43.285] invokeRestart(restart) 1563s [00:52:43.285] muffled <- TRUE 1563s [00:52:43.285] break 1563s [00:52:43.285] } 1563s [00:52:43.285] } 1563s [00:52:43.285] } 1563s [00:52:43.285] invisible(muffled) 1563s [00:52:43.285] } 1563s [00:52:43.285] muffleCondition(cond, pattern = "^muffle") 1563s [00:52:43.285] } 1563s [00:52:43.285] } 1563s [00:52:43.285] else { 1563s [00:52:43.285] if (TRUE) { 1563s [00:52:43.285] muffleCondition <- function (cond, pattern = "^muffle") 1563s [00:52:43.285] { 1563s [00:52:43.285] inherits <- base::inherits 1563s [00:52:43.285] invokeRestart <- base::invokeRestart 1563s [00:52:43.285] is.null <- base::is.null 1563s [00:52:43.285] muffled <- FALSE 1563s [00:52:43.285] if (inherits(cond, "message")) { 1563s [00:52:43.285] muffled <- grepl(pattern, "muffleMessage") 1563s [00:52:43.285] if (muffled) 1563s [00:52:43.285] invokeRestart("muffleMessage") 1563s [00:52:43.285] } 1563s [00:52:43.285] else if (inherits(cond, "warning")) { 1563s [00:52:43.285] muffled <- grepl(pattern, "muffleWarning") 1563s [00:52:43.285] if (muffled) 1563s [00:52:43.285] invokeRestart("muffleWarning") 1563s [00:52:43.285] } 1563s [00:52:43.285] else if (inherits(cond, "condition")) { 1563s [00:52:43.285] if (!is.null(pattern)) { 1563s [00:52:43.285] computeRestarts <- base::computeRestarts 1563s [00:52:43.285] grepl <- base::grepl 1563s [00:52:43.285] restarts <- computeRestarts(cond) 1563s [00:52:43.285] for (restart in restarts) { 1563s [00:52:43.285] name <- restart$name 1563s [00:52:43.285] if (is.null(name)) 1563s [00:52:43.285] next 1563s [00:52:43.285] if (!grepl(pattern, name)) 1563s [00:52:43.285] next 1563s [00:52:43.285] invokeRestart(restart) 1563s [00:52:43.285] muffled <- TRUE 1563s [00:52:43.285] break 1563s [00:52:43.285] } 1563s [00:52:43.285] } 1563s [00:52:43.285] } 1563s [00:52:43.285] invisible(muffled) 1563s [00:52:43.285] } 1563s [00:52:43.285] muffleCondition(cond, pattern = "^muffle") 1563s [00:52:43.285] } 1563s [00:52:43.285] } 1563s [00:52:43.285] } 1563s [00:52:43.285] })) 1563s [00:52:43.285] }, error = function(ex) { 1563s [00:52:43.285] base::structure(base::list(value = NULL, visible = NULL, 1563s [00:52:43.285] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1563s [00:52:43.285] ...future.rng), started = ...future.startTime, 1563s [00:52:43.285] finished = Sys.time(), session_uuid = NA_character_, 1563s [00:52:43.285] version = "1.8"), class = "FutureResult") 1563s [00:52:43.285] }, finally = { 1563s [00:52:43.285] if (!identical(...future.workdir, getwd())) 1563s [00:52:43.285] setwd(...future.workdir) 1563s [00:52:43.285] { 1563s [00:52:43.285] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1563s [00:52:43.285] ...future.oldOptions$nwarnings <- NULL 1563s [00:52:43.285] } 1563s [00:52:43.285] base::options(...future.oldOptions) 1563s [00:52:43.285] if (.Platform$OS.type == "windows") { 1563s [00:52:43.285] old_names <- names(...future.oldEnvVars) 1563s [00:52:43.285] envs <- base::Sys.getenv() 1563s [00:52:43.285] names <- names(envs) 1563s [00:52:43.285] common <- intersect(names, old_names) 1563s [00:52:43.285] added <- setdiff(names, old_names) 1563s [00:52:43.285] removed <- setdiff(old_names, names) 1563s [00:52:43.285] changed <- common[...future.oldEnvVars[common] != 1563s [00:52:43.285] envs[common]] 1563s [00:52:43.285] NAMES <- toupper(changed) 1563s [00:52:43.285] args <- list() 1563s [00:52:43.285] for (kk in seq_along(NAMES)) { 1563s [00:52:43.285] name <- changed[[kk]] 1563s [00:52:43.285] NAME <- NAMES[[kk]] 1563s [00:52:43.285] if (name != NAME && is.element(NAME, old_names)) 1563s [00:52:43.285] next 1563s [00:52:43.285] args[[name]] <- ...future.oldEnvVars[[name]] 1563s [00:52:43.285] } 1563s [00:52:43.285] NAMES <- toupper(added) 1563s [00:52:43.285] for (kk in seq_along(NAMES)) { 1563s [00:52:43.285] name <- added[[kk]] 1563s [00:52:43.285] NAME <- NAMES[[kk]] 1563s [00:52:43.285] if (name != NAME && is.element(NAME, old_names)) 1563s [00:52:43.285] next 1563s [00:52:43.285] args[[name]] <- "" 1563s [00:52:43.285] } 1563s [00:52:43.285] NAMES <- toupper(removed) 1563s [00:52:43.285] for (kk in seq_along(NAMES)) { 1563s [00:52:43.285] name <- removed[[kk]] 1563s [00:52:43.285] NAME <- NAMES[[kk]] 1563s [00:52:43.285] if (name != NAME && is.element(NAME, old_names)) 1563s [00:52:43.285] next 1563s [00:52:43.285] args[[name]] <- ...future.oldEnvVars[[name]] 1563s [00:52:43.285] } 1563s [00:52:43.285] if (length(args) > 0) 1563s [00:52:43.285] base::do.call(base::Sys.setenv, args = args) 1563s [00:52:43.285] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1563s [00:52:43.285] } 1563s [00:52:43.285] else { 1563s [00:52:43.285] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1563s [00:52:43.285] } 1563s [00:52:43.285] { 1563s [00:52:43.285] if (base::length(...future.futureOptionsAdded) > 1563s [00:52:43.285] 0L) { 1563s [00:52:43.285] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1563s [00:52:43.285] base::names(opts) <- ...future.futureOptionsAdded 1563s [00:52:43.285] base::options(opts) 1563s [00:52:43.285] } 1563s [00:52:43.285] { 1563s [00:52:43.285] { 1563s [00:52:43.285] base::assign(".Random.seed", c(10407L, 684208025L, 1563s [00:52:43.285] -2091530519L, 1423602620L, 1749862038L, -627370920L, 1563s [00:52:43.285] 1320746934L), envir = base::globalenv(), 1563s [00:52:43.285] inherits = FALSE) 1563s [00:52:43.285] NULL 1563s [00:52:43.285] } 1563s [00:52:43.285] options(future.plan = NULL) 1563s [00:52:43.285] if (is.na(NA_character_)) 1563s [00:52:43.285] Sys.unsetenv("R_FUTURE_PLAN") 1563s [00:52:43.285] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1563s [00:52:43.285] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1563s [00:52:43.285] envir = parent.frame()) 1563s [00:52:43.285] { 1563s [00:52:43.285] default_workers <- missing(workers) 1563s [00:52:43.285] if (is.function(workers)) 1563s [00:52:43.285] workers <- workers() 1563s [00:52:43.285] workers <- structure(as.integer(workers), 1563s [00:52:43.285] class = class(workers)) 1563s [00:52:43.285] stop_if_not(is.finite(workers), workers >= 1563s [00:52:43.285] 1L) 1563s [00:52:43.285] if ((workers == 1L && !inherits(workers, 1563s [00:52:43.285] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1563s [00:52:43.285] if (default_workers) 1563s [00:52:43.285] supportsMulticore(warn = TRUE) 1563s [00:52:43.285] return(sequential(..., envir = envir)) 1563s [00:52:43.285] } 1563s [00:52:43.285] oopts <- options(mc.cores = workers) 1563s [00:52:43.285] on.exit(options(oopts)) 1563s [00:52:43.285] future <- MulticoreFuture(..., workers = workers, 1563s [00:52:43.285] envir = envir) 1563s [00:52:43.285] if (!future$lazy) 1563s [00:52:43.285] future <- run(future) 1563s [00:52:43.285] invisible(future) 1563s [00:52:43.285] }), .cleanup = FALSE, .init = FALSE) 1563s [00:52:43.285] } 1563s [00:52:43.285] } 1563s [00:52:43.285] } 1563s [00:52:43.285] }) 1563s [00:52:43.285] if (TRUE) { 1563s [00:52:43.285] base::sink(type = "output", split = FALSE) 1563s [00:52:43.285] if (TRUE) { 1563s [00:52:43.285] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1563s [00:52:43.285] } 1563s [00:52:43.285] else { 1563s [00:52:43.285] ...future.result["stdout"] <- base::list(NULL) 1563s [00:52:43.285] } 1563s [00:52:43.285] base::close(...future.stdout) 1563s [00:52:43.285] ...future.stdout <- NULL 1563s [00:52:43.285] } 1563s [00:52:43.285] ...future.result$conditions <- ...future.conditions 1563s [00:52:43.285] ...future.result$finished <- base::Sys.time() 1563s [00:52:43.285] ...future.result 1563s [00:52:43.285] } 1563s [00:52:43.289] assign_globals() ... 1563s [00:52:43.289] List of 5 1563s [00:52:43.289] $ ...future.FUN :function (n, min = 0, max = 1) 1563s [00:52:43.289] $ MoreArgs :List of 1 1563s [00:52:43.289] ..$ min: num 1 1563s [00:52:43.289] $ ...future.elements_ii :List of 2 1563s [00:52:43.289] ..$ n :List of 4 1563s [00:52:43.289] .. ..$ : int 1 1563s [00:52:43.289] .. ..$ : int 2 1563s [00:52:43.289] .. ..$ : int 3 1563s [00:52:43.289] .. ..$ : int 4 1563s [00:52:43.289] ..$ max:List of 4 1563s [00:52:43.289] .. ..$ : int 2 1563s [00:52:43.289] .. ..$ : int 3 1563s [00:52:43.289] .. ..$ : int 4 1563s [00:52:43.289] .. ..$ : int 5 1563s [00:52:43.289] $ ...future.seeds_ii :List of 4 1563s [00:52:43.289] ..$ : int [1:7] 10407 1242173061 -1150840343 -834448425 701050094 -1369558043 -650964284 1563s [00:52:43.289] ..$ : int [1:7] 10407 859061261 1088872332 -1371790091 -942478768 -889560561 1393381402 1563s [00:52:43.289] ..$ : int [1:7] 10407 -1977952646 362645338 -1927542548 -742448269 -2030870718 1472975712 1563s [00:52:43.289] ..$ : int [1:7] 10407 -781199300 -1470244364 -1435938985 -1154922760 795337516 2089908040 1563s [00:52:43.289] $ ...future.globals.maxSize: NULL 1563s [00:52:43.289] - attr(*, "where")=List of 5 1563s [00:52:43.289] ..$ ...future.FUN : 1563s [00:52:43.289] ..$ MoreArgs : 1563s [00:52:43.289] ..$ ...future.elements_ii : 1563s [00:52:43.289] ..$ ...future.seeds_ii : 1563s [00:52:43.289] ..$ ...future.globals.maxSize: 1563s [00:52:43.289] - attr(*, "resolved")= logi FALSE 1563s [00:52:43.289] - attr(*, "total_size")= num 2912 1563s [00:52:43.289] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1563s [00:52:43.289] - attr(*, "already-done")= logi TRUE 1563s [00:52:43.307] - copied ‘...future.FUN’ to environment 1563s [00:52:43.308] - copied ‘MoreArgs’ to environment 1563s [00:52:43.308] - copied ‘...future.elements_ii’ to environment 1563s [00:52:43.308] - copied ‘...future.seeds_ii’ to environment 1563s [00:52:43.308] - copied ‘...future.globals.maxSize’ to environment 1563s [00:52:43.308] assign_globals() ... done 1563s [00:52:43.309] plan(): Setting new future strategy stack: 1563s [00:52:43.309] List of future strategies: 1563s [00:52:43.309] 1. sequential: 1563s [00:52:43.309] - args: function (..., envir = parent.frame()) 1563s [00:52:43.309] - tweaked: FALSE 1563s [00:52:43.309] - call: NULL 1563s [00:52:43.309] plan(): nbrOfWorkers() = 1 1563s [00:52:43.310] plan(): Setting new future strategy stack: 1563s [00:52:43.310] List of future strategies: 1563s [00:52:43.310] 1. multicore: 1563s [00:52:43.310] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1563s [00:52:43.310] - tweaked: FALSE 1563s [00:52:43.310] - call: plan(strategy) 1563s [[1]] 1563s [1] 1.752502 1563s 1563s [[2]] 1563s [1] 2.765950 2.044156 1563s 1563s [[3]] 1563s [1] 1.419503 3.529684 1.023802 1563s 1563s [[4]] 1563s [1] 4.494280 3.546145 1.402837 4.295444 1563s 1563s [00:52:43.314] plan(): nbrOfWorkers() = 1 1563s [00:52:43.314] SequentialFuture started (and completed) 1563s [00:52:43.314] - Launch lazy future ... done 1563s [00:52:43.314] run() for ‘SequentialFuture’ ... done 1563s [00:52:43.314] Created future: 1563s [00:52:43.315] SequentialFuture: 1563s [00:52:43.315] Label: ‘future_mapply-1’ 1563s [00:52:43.315] Expression: 1563s [00:52:43.315] { 1563s [00:52:43.315] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1563s [00:52:43.315] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1563s [00:52:43.315] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1563s [00:52:43.315] on.exit(options(oopts), add = TRUE) 1563s [00:52:43.315] } 1563s [00:52:43.315] { 1563s [00:52:43.315] ...future.FUN2 <- function(..., ...future.seeds_ii_jj) { 1563s [00:52:43.315] assign(".Random.seed", ...future.seeds_ii_jj, envir = globalenv(), 1563s [00:52:43.315] inherits = FALSE) 1563s [00:52:43.315] ...future.FUN(...) 1563s [00:52:43.315] } 1563s [00:52:43.315] args <- c(list(FUN = ...future.FUN2), ...future.elements_ii, 1563s [00:52:43.315] list(...future.seeds_ii_jj = ...future.seeds_ii), 1563s [00:52:43.315] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1563s [00:52:43.315] do.call(mapply, args = args) 1563s [00:52:43.315] } 1563s [00:52:43.315] } 1563s [00:52:43.315] Lazy evaluation: FALSE 1563s [00:52:43.315] Asynchronous evaluation: FALSE 1563s [00:52:43.315] Local evaluation: TRUE 1563s [00:52:43.315] Environment: R_GlobalEnv 1563s [00:52:43.315] Capture standard output: TRUE 1563s [00:52:43.315] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1563s [00:52:43.315] Globals: 5 objects totaling 2.84 KiB (function ‘...future.FUN’ of 2.04 KiB, list ‘MoreArgs’ of 56 bytes, list ‘...future.elements_ii’ of 448 bytes, list ‘...future.seeds_ii’ of 320 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1563s [00:52:43.315] Packages: 1 packages (‘stats’) 1563s [00:52:43.315] L'Ecuyer-CMRG RNG seed: (seed = NULL) 1563s [00:52:43.315] Resolved: TRUE 1563s [00:52:43.315] Value: 280 bytes of class ‘list’ 1563s [00:52:43.315] Early signaling: FALSE 1563s [00:52:43.315] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1563s [00:52:43.315] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1563s [00:52:43.317] Chunk #1 of 1 ... DONE 1563s [00:52:43.317] Launching 1 futures (chunks) ... DONE 1563s [00:52:43.317] Resolving 1 futures (chunks) ... 1563s [00:52:43.317] resolve() on list ... 1563s [00:52:43.317] recursive: 0 1563s [00:52:43.318] length: 1 1563s [00:52:43.318] 1563s [00:52:43.318] resolved() for ‘SequentialFuture’ ... 1563s [00:52:43.318] - state: ‘finished’ 1563s [00:52:43.318] - run: TRUE 1563s [00:52:43.318] - result: ‘FutureResult’ 1563s [00:52:43.319] resolved() for ‘SequentialFuture’ ... done 1563s [00:52:43.319] Future #1 1563s [00:52:43.319] signalConditionsASAP(SequentialFuture, pos=1) ... 1563s [00:52:43.319] - nx: 1 1563s [00:52:43.319] - relay: TRUE 1563s [00:52:43.319] - stdout: TRUE 1563s [00:52:43.319] - signal: TRUE 1563s [00:52:43.320] - resignal: FALSE 1563s [00:52:43.320] - force: TRUE 1563s [00:52:43.320] - relayed: [n=1] FALSE 1563s [00:52:43.320] - queued futures: [n=1] FALSE 1563s [00:52:43.320] - until=1 1563s [00:52:43.320] - relaying element #1 1563s [00:52:43.321] - relayed: [n=1] TRUE 1563s [00:52:43.321] - queued futures: [n=1] TRUE 1563s [00:52:43.321] signalConditionsASAP(SequentialFuture, pos=1) ... done 1563s [00:52:43.321] length: 0 (resolved future 1) 1563s [00:52:43.321] Relaying remaining futures 1563s [00:52:43.321] signalConditionsASAP(NULL, pos=0) ... 1563s [00:52:43.321] - nx: 1 1563s [00:52:43.321] - relay: TRUE 1563s [00:52:43.322] - stdout: TRUE 1563s [00:52:43.322] - signal: TRUE 1563s [00:52:43.322] - resignal: FALSE 1563s [00:52:43.322] - force: TRUE 1563s [00:52:43.322] - relayed: [n=1] TRUE 1563s [00:52:43.322] - queued futures: [n=1] TRUE 1563s - flush all 1563s [00:52:43.322] - relayed: [n=1] TRUE 1563s [00:52:43.322] - queued futures: [n=1] TRUE 1563s [00:52:43.322] signalConditionsASAP(NULL, pos=0) ... done 1563s [00:52:43.323] resolve() on list ... DONE 1563s [00:52:43.323] - Number of value chunks collected: 1 1563s [00:52:43.323] Resolving 1 futures (chunks) ... DONE 1563s [00:52:43.323] Reducing values from 1 chunks ... 1563s [00:52:43.323] - Number of values collected after concatenation: 4 1563s [00:52:43.323] - Number of values expected: 4 1563s [00:52:43.323] Reducing values from 1 chunks ... DONE 1563s [00:52:43.323] future_mapply() ... DONE 1563s - future_Map() ... 1563s [00:52:43.325] future_mapply() ... 1563s [00:52:43.329] Number of chunks: 1 1563s [00:52:43.329] getGlobalsAndPackagesXApply() ... 1563s [00:52:43.329] - future.globals: TRUE 1563s [00:52:43.329] getGlobalsAndPackages() ... 1563s [00:52:43.329] Searching for globals... 1563s [00:52:43.330] - globals found: [2] ‘FUN’, ‘UseMethod’ 1563s [00:52:43.331] Searching for globals ... DONE 1563s [00:52:43.331] Resolving globals: FALSE 1563s [00:52:43.331] The total size of the 1 globals is 1.38 KiB (1416 bytes) 1563s [00:52:43.332] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.38 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.38 KiB of class ‘function’) 1563s [00:52:43.332] - globals: [1] ‘FUN’ 1563s [00:52:43.332] - packages: [1] ‘stats’ 1563s [00:52:43.333] getGlobalsAndPackages() ... DONE 1563s [00:52:43.333] - globals found/used: [n=1] ‘FUN’ 1563s [00:52:43.333] - needed namespaces: [n=1] ‘stats’ 1563s [00:52:43.333] Finding globals ... DONE 1563s [00:52:43.333] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1563s [00:52:43.333] List of 2 1563s [00:52:43.333] $ ...future.FUN:function (x, w, ...) 1563s [00:52:43.333] $ MoreArgs : NULL 1563s [00:52:43.333] - attr(*, "where")=List of 2 1563s [00:52:43.333] ..$ ...future.FUN: 1563s [00:52:43.333] ..$ MoreArgs : 1563s [00:52:43.333] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1563s [00:52:43.333] - attr(*, "resolved")= logi FALSE 1563s [00:52:43.333] - attr(*, "total_size")= num NA 1563s [00:52:43.339] Packages to be attached in all futures: [n=1] ‘stats’ 1563s [00:52:43.339] getGlobalsAndPackagesXApply() ... DONE 1563s [00:52:43.339] Number of futures (= number of chunks): 1 1563s [00:52:43.339] Launching 1 futures (chunks) ... 1563s [00:52:43.339] Chunk #1 of 1 ... 1563s [00:52:43.340] - Finding globals in '...' for chunk #1 ... 1563s [00:52:43.340] getGlobalsAndPackages() ... 1563s [00:52:43.340] Searching for globals... 1563s [00:52:43.340] 1563s [00:52:43.341] Searching for globals ... DONE 1563s [00:52:43.341] - globals: [0] 1563s [00:52:43.341] getGlobalsAndPackages() ... DONE 1563s [00:52:43.341] + additional globals found: [n=0] 1563s [00:52:43.341] + additional namespaces needed: [n=0] 1563s [00:52:43.342] - Finding globals in '...' for chunk #1 ... DONE 1563s [00:52:43.342] - seeds: 1563s [00:52:43.342] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1563s [00:52:43.342] getGlobalsAndPackages() ... 1563s [00:52:43.343] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1563s [00:52:43.343] Resolving globals: FALSE 1563s [00:52:43.344] The total size of the 5 globals is 3.10 KiB (3176 bytes) 1563s [00:52:43.345] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 3.10 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.elements_ii’ (1.72 KiB of class ‘list’), ‘...future.FUN’ (1.38 KiB of class ‘function’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1563s [00:52:43.345] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1563s [00:52:43.345] - packages: [1] ‘stats’ 1563s [00:52:43.345] getGlobalsAndPackages() ... DONE 1563s [00:52:43.346] run() for ‘Future’ ... 1563s [00:52:43.346] - state: ‘created’ 1563s [00:52:43.346] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1563s [00:52:43.350] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1563s [00:52:43.350] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1563s [00:52:43.350] - Field: ‘label’ 1563s [00:52:43.350] - Field: ‘local’ 1563s [00:52:43.350] - Field: ‘owner’ 1563s [00:52:43.350] - Field: ‘envir’ 1563s [00:52:43.351] - Field: ‘packages’ 1563s [00:52:43.351] - Field: ‘gc’ 1563s [00:52:43.351] - Field: ‘conditions’ 1563s [00:52:43.351] - Field: ‘expr’ 1563s [00:52:43.351] - Field: ‘uuid’ 1563s [00:52:43.351] - Field: ‘seed’ 1563s [00:52:43.351] - Field: ‘version’ 1563s [00:52:43.352] - Field: ‘result’ 1563s [00:52:43.352] - Field: ‘asynchronous’ 1563s [00:52:43.352] - Field: ‘calls’ 1563s [00:52:43.352] - Field: ‘globals’ 1563s [00:52:43.352] - Field: ‘stdout’ 1563s [00:52:43.352] - Field: ‘earlySignal’ 1563s [00:52:43.353] - Field: ‘lazy’ 1563s [00:52:43.353] - Field: ‘state’ 1563s [00:52:43.353] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1563s [00:52:43.353] - Launch lazy future ... 1563s [00:52:43.353] Packages needed by the future expression (n = 1): ‘stats’ 1563s [00:52:43.353] Packages needed by future strategies (n = 0): 1563s [00:52:43.354] { 1563s [00:52:43.354] { 1563s [00:52:43.354] { 1563s [00:52:43.354] ...future.startTime <- base::Sys.time() 1563s [00:52:43.354] { 1563s [00:52:43.354] { 1563s [00:52:43.354] { 1563s [00:52:43.354] { 1563s [00:52:43.354] base::local({ 1563s [00:52:43.354] has_future <- base::requireNamespace("future", 1563s [00:52:43.354] quietly = TRUE) 1563s [00:52:43.354] if (has_future) { 1563s [00:52:43.354] ns <- base::getNamespace("future") 1563s [00:52:43.354] version <- ns[[".package"]][["version"]] 1563s [00:52:43.354] if (is.null(version)) 1563s [00:52:43.354] version <- utils::packageVersion("future") 1563s [00:52:43.354] } 1563s [00:52:43.354] else { 1563s [00:52:43.354] version <- NULL 1563s [00:52:43.354] } 1563s [00:52:43.354] if (!has_future || version < "1.8.0") { 1563s [00:52:43.354] info <- base::c(r_version = base::gsub("R version ", 1563s [00:52:43.354] "", base::R.version$version.string), 1563s [00:52:43.354] platform = base::sprintf("%s (%s-bit)", 1563s [00:52:43.354] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1563s [00:52:43.354] os = base::paste(base::Sys.info()[base::c("sysname", 1563s [00:52:43.354] "release", "version")], collapse = " "), 1563s [00:52:43.354] hostname = base::Sys.info()[["nodename"]]) 1563s [00:52:43.354] info <- base::sprintf("%s: %s", base::names(info), 1563s [00:52:43.354] info) 1563s [00:52:43.354] info <- base::paste(info, collapse = "; ") 1563s [00:52:43.354] if (!has_future) { 1563s [00:52:43.354] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1563s [00:52:43.354] info) 1563s [00:52:43.354] } 1563s [00:52:43.354] else { 1563s [00:52:43.354] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1563s [00:52:43.354] info, version) 1563s [00:52:43.354] } 1563s [00:52:43.354] base::stop(msg) 1563s [00:52:43.354] } 1563s [00:52:43.354] }) 1563s [00:52:43.354] } 1563s [00:52:43.354] base::local({ 1563s [00:52:43.354] for (pkg in "stats") { 1563s [00:52:43.354] base::loadNamespace(pkg) 1563s [00:52:43.354] base::library(pkg, character.only = TRUE) 1563s [00:52:43.354] } 1563s [00:52:43.354] }) 1563s [00:52:43.354] } 1563s [00:52:43.354] options(future.plan = NULL) 1563s [00:52:43.354] Sys.unsetenv("R_FUTURE_PLAN") 1563s [00:52:43.354] future::plan("default", .cleanup = FALSE, .init = FALSE) 1563s [00:52:43.354] } 1563s [00:52:43.354] ...future.workdir <- getwd() 1563s [00:52:43.354] } 1563s [00:52:43.354] ...future.oldOptions <- base::as.list(base::.Options) 1563s [00:52:43.354] ...future.oldEnvVars <- base::Sys.getenv() 1563s [00:52:43.354] } 1563s [00:52:43.354] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1563s [00:52:43.354] future.globals.maxSize = NULL, future.globals.method = NULL, 1563s [00:52:43.354] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1563s [00:52:43.354] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1563s [00:52:43.354] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1563s [00:52:43.354] future.stdout.windows.reencode = NULL, width = 80L) 1563s [00:52:43.354] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1563s [00:52:43.354] base::names(...future.oldOptions)) 1563s [00:52:43.354] } 1563s [00:52:43.354] if (FALSE) { 1563s [00:52:43.354] } 1563s [00:52:43.354] else { 1563s [00:52:43.354] if (TRUE) { 1563s [00:52:43.354] ...future.stdout <- base::rawConnection(base::raw(0L), 1563s [00:52:43.354] open = "w") 1563s [00:52:43.354] } 1563s [00:52:43.354] else { 1563s [00:52:43.354] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1563s [00:52:43.354] windows = "NUL", "/dev/null"), open = "w") 1563s [00:52:43.354] } 1563s [00:52:43.354] base::sink(...future.stdout, type = "output", split = FALSE) 1563s [00:52:43.354] base::on.exit(if (!base::is.null(...future.stdout)) { 1563s [00:52:43.354] base::sink(type = "output", split = FALSE) 1563s [00:52:43.354] base::close(...future.stdout) 1563s [00:52:43.354] }, add = TRUE) 1563s [00:52:43.354] } 1563s [00:52:43.354] ...future.frame <- base::sys.nframe() 1563s [00:52:43.354] ...future.conditions <- base::list() 1563s [00:52:43.354] ...future.rng <- base::globalenv()$.Random.seed 1563s [00:52:43.354] if (FALSE) { 1563s [00:52:43.354] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1563s [00:52:43.354] "...future.value", "...future.globalenv.names", ".Random.seed") 1563s [00:52:43.354] } 1563s [00:52:43.354] ...future.result <- base::tryCatch({ 1563s [00:52:43.354] base::withCallingHandlers({ 1563s [00:52:43.354] ...future.value <- base::withVisible(base::local({ 1563s [00:52:43.354] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1563s [00:52:43.354] if (!identical(...future.globals.maxSize.org, 1563s [00:52:43.354] ...future.globals.maxSize)) { 1563s [00:52:43.354] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1563s [00:52:43.354] on.exit(options(oopts), add = TRUE) 1563s [00:52:43.354] } 1563s [00:52:43.354] { 1563s [00:52:43.354] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1563s [00:52:43.354] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1563s [00:52:43.354] USE.NAMES = FALSE) 1563s [00:52:43.354] do.call(mapply, args = args) 1563s [00:52:43.354] } 1563s [00:52:43.354] })) 1563s [00:52:43.354] future::FutureResult(value = ...future.value$value, 1563s [00:52:43.354] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1563s [00:52:43.354] ...future.rng), globalenv = if (FALSE) 1563s [00:52:43.354] list(added = base::setdiff(base::names(base::.GlobalEnv), 1563s [00:52:43.354] ...future.globalenv.names)) 1563s [00:52:43.354] else NULL, started = ...future.startTime, version = "1.8") 1563s [00:52:43.354] }, condition = base::local({ 1563s [00:52:43.354] c <- base::c 1563s [00:52:43.354] inherits <- base::inherits 1563s [00:52:43.354] invokeRestart <- base::invokeRestart 1563s [00:52:43.354] length <- base::length 1563s [00:52:43.354] list <- base::list 1563s [00:52:43.354] seq.int <- base::seq.int 1563s [00:52:43.354] signalCondition <- base::signalCondition 1563s [00:52:43.354] sys.calls <- base::sys.calls 1563s [00:52:43.354] `[[` <- base::`[[` 1563s [00:52:43.354] `+` <- base::`+` 1563s [00:52:43.354] `<<-` <- base::`<<-` 1563s [00:52:43.354] sysCalls <- function(calls = sys.calls(), from = 1L) { 1563s [00:52:43.354] calls[seq.int(from = from + 12L, to = length(calls) - 1563s [00:52:43.354] 3L)] 1563s [00:52:43.354] } 1563s [00:52:43.354] function(cond) { 1563s [00:52:43.354] is_error <- inherits(cond, "error") 1563s [00:52:43.354] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1563s [00:52:43.354] NULL) 1563s [00:52:43.354] if (is_error) { 1563s [00:52:43.354] sessionInformation <- function() { 1563s [00:52:43.354] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1563s [00:52:43.354] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1563s [00:52:43.354] search = base::search(), system = base::Sys.info()) 1563s [00:52:43.354] } 1563s [00:52:43.354] ...future.conditions[[length(...future.conditions) + 1563s [00:52:43.354] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1563s [00:52:43.354] cond$call), session = sessionInformation(), 1563s [00:52:43.354] timestamp = base::Sys.time(), signaled = 0L) 1563s [00:52:43.354] signalCondition(cond) 1563s [00:52:43.354] } 1563s [00:52:43.354] else if (!ignore && TRUE && inherits(cond, c("condition", 1563s [00:52:43.354] "immediateCondition"))) { 1563s [00:52:43.354] signal <- TRUE && inherits(cond, "immediateCondition") 1563s [00:52:43.354] ...future.conditions[[length(...future.conditions) + 1563s [00:52:43.354] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1563s [00:52:43.354] if (TRUE && !signal) { 1563s [00:52:43.354] muffleCondition <- function (cond, pattern = "^muffle") 1563s [00:52:43.354] { 1563s [00:52:43.354] inherits <- base::inherits 1563s [00:52:43.354] invokeRestart <- base::invokeRestart 1563s [00:52:43.354] is.null <- base::is.null 1563s [00:52:43.354] muffled <- FALSE 1563s [00:52:43.354] if (inherits(cond, "message")) { 1563s [00:52:43.354] muffled <- grepl(pattern, "muffleMessage") 1563s [00:52:43.354] if (muffled) 1563s [00:52:43.354] invokeRestart("muffleMessage") 1563s [00:52:43.354] } 1563s [00:52:43.354] else if (inherits(cond, "warning")) { 1563s [00:52:43.354] muffled <- grepl(pattern, "muffleWarning") 1563s [00:52:43.354] if (muffled) 1563s [00:52:43.354] invokeRestart("muffleWarning") 1563s [00:52:43.354] } 1563s [00:52:43.354] else if (inherits(cond, "condition")) { 1563s [00:52:43.354] if (!is.null(pattern)) { 1563s [00:52:43.354] computeRestarts <- base::computeRestarts 1563s [00:52:43.354] grepl <- base::grepl 1563s [00:52:43.354] restarts <- computeRestarts(cond) 1563s [00:52:43.354] for (restart in restarts) { 1563s [00:52:43.354] name <- restart$name 1563s [00:52:43.354] if (is.null(name)) 1563s [00:52:43.354] next 1563s [00:52:43.354] if (!grepl(pattern, name)) 1563s [00:52:43.354] next 1563s [00:52:43.354] invokeRestart(restart) 1563s [00:52:43.354] muffled <- TRUE 1563s [00:52:43.354] break 1563s [00:52:43.354] } 1563s [00:52:43.354] } 1563s [00:52:43.354] } 1563s [00:52:43.354] invisible(muffled) 1563s [00:52:43.354] } 1563s [00:52:43.354] muffleCondition(cond, pattern = "^muffle") 1563s [00:52:43.354] } 1563s [00:52:43.354] } 1563s [00:52:43.354] else { 1563s [00:52:43.354] if (TRUE) { 1563s [00:52:43.354] muffleCondition <- function (cond, pattern = "^muffle") 1563s [00:52:43.354] { 1563s [00:52:43.354] inherits <- base::inherits 1563s [00:52:43.354] invokeRestart <- base::invokeRestart 1563s [00:52:43.354] is.null <- base::is.null 1563s [00:52:43.354] muffled <- FALSE 1563s [00:52:43.354] if (inherits(cond, "message")) { 1563s [00:52:43.354] muffled <- grepl(pattern, "muffleMessage") 1563s [00:52:43.354] if (muffled) 1563s [00:52:43.354] invokeRestart("muffleMessage") 1563s [00:52:43.354] } 1563s [00:52:43.354] else if (inherits(cond, "warning")) { 1563s [00:52:43.354] muffled <- grepl(pattern, "muffleWarning") 1563s [00:52:43.354] if (muffled) 1563s [00:52:43.354] invokeRestart("muffleWarning") 1563s [00:52:43.354] } 1563s [00:52:43.354] else if (inherits(cond, "condition")) { 1563s [00:52:43.354] if (!is.null(pattern)) { 1563s [00:52:43.354] computeRestarts <- base::computeRestarts 1563s [00:52:43.354] grepl <- base::grepl 1563s [00:52:43.354] restarts <- computeRestarts(cond) 1563s [00:52:43.354] for (restart in restarts) { 1563s [00:52:43.354] name <- restart$name 1563s [00:52:43.354] if (is.null(name)) 1563s [00:52:43.354] next 1563s [00:52:43.354] if (!grepl(pattern, name)) 1563s [00:52:43.354] next 1563s [00:52:43.354] invokeRestart(restart) 1563s [00:52:43.354] muffled <- TRUE 1563s [00:52:43.354] break 1563s [00:52:43.354] } 1563s [00:52:43.354] } 1563s [00:52:43.354] } 1563s [00:52:43.354] invisible(muffled) 1563s [00:52:43.354] } 1563s [00:52:43.354] muffleCondition(cond, pattern = "^muffle") 1563s [00:52:43.354] } 1563s [00:52:43.354] } 1563s [00:52:43.354] } 1563s [00:52:43.354] })) 1563s [00:52:43.354] }, error = function(ex) { 1563s [00:52:43.354] base::structure(base::list(value = NULL, visible = NULL, 1563s [00:52:43.354] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1563s [00:52:43.354] ...future.rng), started = ...future.startTime, 1563s [00:52:43.354] finished = Sys.time(), session_uuid = NA_character_, 1563s [00:52:43.354] version = "1.8"), class = "FutureResult") 1563s [00:52:43.354] }, finally = { 1563s [00:52:43.354] if (!identical(...future.workdir, getwd())) 1563s [00:52:43.354] setwd(...future.workdir) 1563s [00:52:43.354] { 1563s [00:52:43.354] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1563s [00:52:43.354] ...future.oldOptions$nwarnings <- NULL 1563s [00:52:43.354] } 1563s [00:52:43.354] base::options(...future.oldOptions) 1563s [00:52:43.354] if (.Platform$OS.type == "windows") { 1563s [00:52:43.354] old_names <- names(...future.oldEnvVars) 1563s [00:52:43.354] envs <- base::Sys.getenv() 1563s [00:52:43.354] names <- names(envs) 1563s [00:52:43.354] common <- intersect(names, old_names) 1563s [00:52:43.354] added <- setdiff(names, old_names) 1563s [00:52:43.354] removed <- setdiff(old_names, names) 1563s [00:52:43.354] changed <- common[...future.oldEnvVars[common] != 1563s [00:52:43.354] envs[common]] 1563s [00:52:43.354] NAMES <- toupper(changed) 1563s [00:52:43.354] args <- list() 1563s [00:52:43.354] for (kk in seq_along(NAMES)) { 1563s [00:52:43.354] name <- changed[[kk]] 1563s [00:52:43.354] NAME <- NAMES[[kk]] 1563s [00:52:43.354] if (name != NAME && is.element(NAME, old_names)) 1563s [00:52:43.354] next 1563s [00:52:43.354] args[[name]] <- ...future.oldEnvVars[[name]] 1563s [00:52:43.354] } 1563s [00:52:43.354] NAMES <- toupper(added) 1563s [00:52:43.354] for (kk in seq_along(NAMES)) { 1563s [00:52:43.354] name <- added[[kk]] 1563s [00:52:43.354] NAME <- NAMES[[kk]] 1563s [00:52:43.354] if (name != NAME && is.element(NAME, old_names)) 1563s [00:52:43.354] next 1563s [00:52:43.354] args[[name]] <- "" 1563s [00:52:43.354] } 1563s [00:52:43.354] NAMES <- toupper(removed) 1563s [00:52:43.354] for (kk in seq_along(NAMES)) { 1563s [00:52:43.354] name <- removed[[kk]] 1563s [00:52:43.354] NAME <- NAMES[[kk]] 1563s [00:52:43.354] if (name != NAME && is.element(NAME, old_names)) 1563s [00:52:43.354] next 1563s [00:52:43.354] args[[name]] <- ...future.oldEnvVars[[name]] 1563s [00:52:43.354] } 1563s [00:52:43.354] if (length(args) > 0) 1563s [00:52:43.354] base::do.call(base::Sys.setenv, args = args) 1563s [00:52:43.354] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1563s [00:52:43.354] } 1563s [00:52:43.354] else { 1563s [00:52:43.354] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1563s [00:52:43.354] } 1563s [00:52:43.354] { 1563s [00:52:43.354] if (base::length(...future.futureOptionsAdded) > 1563s [00:52:43.354] 0L) { 1563s [00:52:43.354] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1563s [00:52:43.354] base::names(opts) <- ...future.futureOptionsAdded 1563s [00:52:43.354] base::options(opts) 1563s [00:52:43.354] } 1563s [00:52:43.354] { 1563s [00:52:43.354] { 1563s [00:52:43.354] base::assign(".Random.seed", c(10407L, -193111136L, 1563s [00:52:43.354] 1998638665L, 1795077819L, 549408344L, 564105141L, 1563s [00:52:43.354] -308065669L), envir = base::globalenv(), 1563s [00:52:43.354] inherits = FALSE) 1563s [00:52:43.354] NULL 1563s [00:52:43.354] } 1563s [00:52:43.354] options(future.plan = NULL) 1563s [00:52:43.354] if (is.na(NA_character_)) 1563s [00:52:43.354] Sys.unsetenv("R_FUTURE_PLAN") 1563s [00:52:43.354] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1563s [00:52:43.354] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1563s [00:52:43.354] envir = parent.frame()) 1563s [00:52:43.354] { 1563s [00:52:43.354] default_workers <- missing(workers) 1563s [00:52:43.354] if (is.function(workers)) 1563s [00:52:43.354] workers <- workers() 1563s [00:52:43.354] workers <- structure(as.integer(workers), 1563s [00:52:43.354] class = class(workers)) 1563s [00:52:43.354] stop_if_not(is.finite(workers), workers >= 1563s [00:52:43.354] 1L) 1563s [00:52:43.354] if ((workers == 1L && !inherits(workers, 1563s [00:52:43.354] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1563s [00:52:43.354] if (default_workers) 1563s [00:52:43.354] supportsMulticore(warn = TRUE) 1563s [00:52:43.354] return(sequential(..., envir = envir)) 1563s [00:52:43.354] } 1563s [00:52:43.354] oopts <- options(mc.cores = workers) 1563s [00:52:43.354] on.exit(options(oopts)) 1563s [00:52:43.354] future <- MulticoreFuture(..., workers = workers, 1563s [00:52:43.354] envir = envir) 1563s [00:52:43.354] if (!future$lazy) 1563s [00:52:43.354] future <- run(future) 1563s [00:52:43.354] invisible(future) 1563s [00:52:43.354] }), .cleanup = FALSE, .init = FALSE) 1563s [00:52:43.354] } 1563s [00:52:43.354] } 1563s [00:52:43.354] } 1563s [00:52:43.354] }) 1563s [00:52:43.354] if (TRUE) { 1563s [00:52:43.354] base::sink(type = "output", split = FALSE) 1563s [00:52:43.354] if (TRUE) { 1563s [00:52:43.354] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1563s [00:52:43.354] } 1563s [00:52:43.354] else { 1563s [00:52:43.354] ...future.result["stdout"] <- base::list(NULL) 1563s [00:52:43.354] } 1563s [00:52:43.354] base::close(...future.stdout) 1563s [00:52:43.354] ...future.stdout <- NULL 1563s [00:52:43.354] } 1563s [00:52:43.354] ...future.result$conditions <- ...future.conditions 1563s [00:52:43.354] ...future.result$finished <- base::Sys.time() 1563s [00:52:43.354] ...future.result 1563s [00:52:43.354] } 1563s [00:52:43.357] assign_globals() ... 1563s [00:52:43.357] List of 5 1563s [00:52:43.357] $ ...future.FUN :function (x, w, ...) 1563s [00:52:43.357] $ MoreArgs : NULL 1563s [00:52:43.357] $ ...future.elements_ii :List of 2 1563s [00:52:43.357] ..$ :List of 5 1563s [00:52:43.357] .. ..$ : num [1:10] 0.00138 0.19308 0.89175 0.44741 0.29578 ... 1563s [00:52:43.357] .. ..$ : num [1:10] 0.3153 0.4496 0.2325 0.0248 0.739 ... 1563s [00:52:43.357] .. ..$ : num [1:10] 0.6 0.258 0.864 0.214 0.4 ... 1563s [00:52:43.357] .. ..$ : num [1:10] 0.718 0.333 0.828 0.878 0.494 ... 1563s [00:52:43.357] .. ..$ : num [1:10] 0.958 0.157 0.415 0.74 0.272 ... 1563s [00:52:43.357] ..$ :List of 5 1563s [00:52:43.357] .. ..$ : num [1:10] 8 7 6 4 5 9 7 3 8 8 1563s [00:52:43.357] .. ..$ : num [1:10] 9 8 4 4 6 8 4 5 6 2 1563s [00:52:43.357] .. ..$ : num [1:10] 3 4 5 7 7 6 8 5 2 2 1563s [00:52:43.357] .. ..$ : num [1:10] 3 6 7 5 8 3 4 8 6 3 1563s [00:52:43.357] .. ..$ : num [1:10] 8 1 3 4 5 3 8 8 5 6 1563s [00:52:43.357] $ ...future.seeds_ii : NULL 1563s [00:52:43.357] $ ...future.globals.maxSize: NULL 1563s [00:52:43.357] - attr(*, "where")=List of 5 1563s [00:52:43.357] ..$ ...future.FUN : 1563s [00:52:43.357] ..$ MoreArgs : 1563s [00:52:43.357] ..$ ...future.elements_ii : 1563s [00:52:43.357] ..$ ...future.seeds_ii : 1563s [00:52:43.357] ..$ ...future.globals.maxSize: 1563s [00:52:43.357] - attr(*, "resolved")= logi FALSE 1563s [00:52:43.357] - attr(*, "total_size")= num 3176 1563s [00:52:43.357] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1563s [00:52:43.357] - attr(*, "already-done")= logi TRUE 1563s [00:52:43.368] - copied ‘...future.FUN’ to environment 1563s [00:52:43.368] - copied ‘MoreArgs’ to environment 1563s [00:52:43.369] - copied ‘...future.elements_ii’ to environment 1563s [00:52:43.369] - copied ‘...future.seeds_ii’ to environment 1563s [00:52:43.369] - copied ‘...future.globals.maxSize’ to environment 1563s [00:52:43.369] assign_globals() ... done 1563s [00:52:43.369] plan(): Setting new future strategy stack: 1563s [00:52:43.369] List of future strategies: 1563s [00:52:43.369] 1. sequential: 1563s [00:52:43.369] - args: function (..., envir = parent.frame()) 1563s [00:52:43.369] - tweaked: FALSE 1563s [00:52:43.369] - call: NULL 1563s [00:52:43.370] plan(): nbrOfWorkers() = 1 1563s [00:52:43.374] plan(): Setting new future strategy stack: 1563s [00:52:43.374] List of future strategies: 1563s [00:52:43.374] 1. multicore: 1563s [00:52:43.374] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1563s [00:52:43.374] - tweaked: FALSE 1563s [00:52:43.374] - call: plan(strategy) 1563s [00:52:43.379] plan(): nbrOfWorkers() = 1 1563s [00:52:43.379] SequentialFuture started (and completed) 1563s [00:52:43.380] - Launch lazy future ... done 1563s [00:52:43.380] run() for ‘SequentialFuture’ ... done 1563s [00:52:43.380] Created future: 1563s [00:52:43.380] SequentialFuture: 1563s [00:52:43.380] Label: ‘future_Map-1’ 1563s [00:52:43.380] Expression: 1563s [00:52:43.380] { 1563s [00:52:43.380] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1563s [00:52:43.380] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1563s [00:52:43.380] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1563s [00:52:43.380] on.exit(options(oopts), add = TRUE) 1563s [00:52:43.380] } 1563s [00:52:43.380] { 1563s [00:52:43.380] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1563s [00:52:43.380] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1563s [00:52:43.380] do.call(mapply, args = args) 1563s [00:52:43.380] } 1563s [00:52:43.380] } 1563s [00:52:43.380] Lazy evaluation: FALSE 1563s [00:52:43.380] Asynchronous evaluation: FALSE 1563s [00:52:43.380] Local evaluation: TRUE 1563s [00:52:43.380] Environment: R_GlobalEnv 1563s [00:52:43.380] Capture standard output: TRUE 1563s [00:52:43.380] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1563s [00:52:43.380] Globals: 5 objects totaling 3.10 KiB (function ‘...future.FUN’ of 1.38 KiB, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 1.72 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1563s [00:52:43.380] Packages: 1 packages (‘stats’) 1563s [00:52:43.380] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1563s [00:52:43.380] Resolved: TRUE 1563s [00:52:43.380] Value: 280 bytes of class ‘list’ 1563s [00:52:43.380] Early signaling: FALSE 1563s [00:52:43.380] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1563s [00:52:43.380] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1563s [00:52:43.382] Chunk #1 of 1 ... DONE 1563s [00:52:43.383] Launching 1 futures (chunks) ... DONE 1563s [00:52:43.383] Resolving 1 futures (chunks) ... 1563s [00:52:43.383] resolve() on list ... 1563s [00:52:43.383] recursive: 0 1563s [00:52:43.383] length: 1 1563s [00:52:43.383] 1563s [00:52:43.384] resolved() for ‘SequentialFuture’ ... 1563s [00:52:43.384] - state: ‘finished’ 1563s [00:52:43.384] - run: TRUE 1563s [00:52:43.384] - result: ‘FutureResult’ 1563s [00:52:43.384] resolved() for ‘SequentialFuture’ ... done 1563s [00:52:43.384] Future #1 1563s [00:52:43.385] signalConditionsASAP(SequentialFuture, pos=1) ... 1563s [00:52:43.385] - nx: 1 1563s [00:52:43.385] - relay: TRUE 1563s [00:52:43.385] - stdout: TRUE 1563s [00:52:43.385] - signal: TRUE 1563s [00:52:43.385] - resignal: FALSE 1563s [00:52:43.386] - force: TRUE 1563s [00:52:43.386] - relayed: [n=1] FALSE 1563s [00:52:43.386] - queued futures: [n=1] FALSE 1563s [00:52:43.386] - until=1 1563s [00:52:43.386] - relaying element #1 1563s [00:52:43.387] - relayed: [n=1] TRUE 1563s [00:52:43.387] - queued futures: [n=1] TRUE 1563s [00:52:43.387] signalConditionsASAP(SequentialFuture, pos=1) ... done 1563s [00:52:43.387] length: 0 (resolved future 1) 1563s [00:52:43.387] Relaying remaining futures 1563s [00:52:43.387] signalConditionsASAP(NULL, pos=0) ... 1563s [00:52:43.388] - nx: 1 1563s [00:52:43.388] - relay: TRUE 1563s [00:52:43.388] - stdout: TRUE 1563s [00:52:43.388] - signal: TRUE 1563s [00:52:43.388] - resignal: FALSE 1563s [00:52:43.388] - force: TRUE 1563s [00:52:43.388] - relayed: [n=1] TRUE 1563s [00:52:43.389] - queued futures: [n=1] TRUE 1563s - flush all 1563s [00:52:43.389] - relayed: [n=1] TRUE 1563s [00:52:43.389] - queued futures: [n=1] TRUE 1563s [00:52:43.390] signalConditionsASAP(NULL, pos=0) ... done 1563s [00:52:43.390] resolve() on list ... DONE 1563s [00:52:43.390] - Number of value chunks collected: 1 1563s [00:52:43.390] Resolving 1 futures (chunks) ... DONE 1563s [00:52:43.390] Reducing values from 1 chunks ... 1563s [00:52:43.391] - Number of values collected after concatenation: 5 1563s [00:52:43.391] - Number of values expected: 5 1563s [00:52:43.391] Reducing values from 1 chunks ... DONE 1563s [00:52:43.391] future_mapply() ... DONE 1563s - future_mapply() - 'max-or-0-if' recycling rule ... 1563s [00:52:43.393] future_mapply() ... 1563s [00:52:43.397] Number of chunks: 1 1563s [00:52:43.397] getGlobalsAndPackagesXApply() ... 1563s [00:52:43.397] - future.globals: TRUE 1563s [00:52:43.397] getGlobalsAndPackages() ... 1563s [00:52:43.397] Searching for globals... 1563s [00:52:43.398] - globals found: [1] ‘FUN’ 1563s [00:52:43.399] Searching for globals ... DONE 1563s [00:52:43.399] Resolving globals: FALSE 1563s [00:52:43.399] The total size of the 1 globals is 56 bytes (56 bytes) 1563s [00:52:43.400] The total size of the 1 globals exported for future expression (‘FUN()’) is 56 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (56 bytes of class ‘function’) 1563s [00:52:43.401] - globals: [1] ‘FUN’ 1563s [00:52:43.401] 1563s [00:52:43.401] getGlobalsAndPackages() ... DONE 1563s [00:52:43.401] - globals found/used: [n=1] ‘FUN’ 1563s [00:52:43.402] - needed namespaces: [n=0] 1563s [00:52:43.402] Finding globals ... DONE 1563s [00:52:43.402] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1563s [00:52:43.402] List of 2 1563s [00:52:43.402] $ ...future.FUN:function (e1, e2) 1563s [00:52:43.402] $ MoreArgs : NULL 1563s [00:52:43.402] - attr(*, "where")=List of 2 1563s [00:52:43.402] ..$ ...future.FUN: 1563s [00:52:43.402] ..$ MoreArgs : 1563s [00:52:43.402] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1563s [00:52:43.402] - attr(*, "resolved")= logi FALSE 1563s [00:52:43.402] - attr(*, "total_size")= num NA 1563s [00:52:43.406] Packages to be attached in all futures: [n=0] 1563s [00:52:43.406] getGlobalsAndPackagesXApply() ... DONE 1563s [00:52:43.406] Number of futures (= number of chunks): 1 1563s [00:52:43.407] Launching 1 futures (chunks) ... 1563s [00:52:43.407] Chunk #1 of 1 ... 1563s [00:52:43.407] - Finding globals in '...' for chunk #1 ... 1563s [00:52:43.407] getGlobalsAndPackages() ... 1563s [00:52:43.407] Searching for globals... 1563s [00:52:43.408] 1563s [00:52:43.408] Searching for globals ... DONE 1563s [00:52:43.408] - globals: [0] 1563s [00:52:43.409] getGlobalsAndPackages() ... DONE 1563s [00:52:43.409] + additional globals found: [n=0] 1563s [00:52:43.409] + additional namespaces needed: [n=0] 1563s [00:52:43.409] - Finding globals in '...' for chunk #1 ... DONE 1563s [00:52:43.409] - seeds: 1563s [00:52:43.410] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1563s [00:52:43.410] getGlobalsAndPackages() ... 1563s [00:52:43.410] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1563s [00:52:43.410] Resolving globals: FALSE 1563s [00:52:43.411] The total size of the 5 globals is 392 bytes (392 bytes) 1563s [00:52:43.412] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 392 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.elements_ii’ (336 bytes of class ‘list’), ‘...future.FUN’ (56 bytes of class ‘function’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1563s [00:52:43.412] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1563s [00:52:43.413] 1563s [00:52:43.413] getGlobalsAndPackages() ... DONE 1563s [00:52:43.413] run() for ‘Future’ ... 1563s [00:52:43.416] - state: ‘created’ 1563s [00:52:43.417] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1563s [00:52:43.421] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1563s [00:52:43.421] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1563s [00:52:43.422] - Field: ‘label’ 1563s [00:52:43.422] - Field: ‘local’ 1563s [00:52:43.422] - Field: ‘owner’ 1563s [00:52:43.422] - Field: ‘envir’ 1563s [00:52:43.422] - Field: ‘packages’ 1563s [00:52:43.423] - Field: ‘gc’ 1563s [00:52:43.423] - Field: ‘conditions’ 1563s [00:52:43.423] - Field: ‘expr’ 1563s [00:52:43.423] - Field: ‘uuid’ 1563s [00:52:43.423] - Field: ‘seed’ 1563s [00:52:43.423] - Field: ‘version’ 1563s [00:52:43.424] - Field: ‘result’ 1563s [00:52:43.424] - Field: ‘asynchronous’ 1563s [00:52:43.424] - Field: ‘calls’ 1563s [00:52:43.424] - Field: ‘globals’ 1563s [00:52:43.424] - Field: ‘stdout’ 1563s [00:52:43.424] - Field: ‘earlySignal’ 1563s [00:52:43.425] - Field: ‘lazy’ 1563s [00:52:43.425] - Field: ‘state’ 1563s [00:52:43.425] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1563s [00:52:43.425] - Launch lazy future ... 1563s [00:52:43.425] Packages needed by the future expression (n = 0): 1563s [00:52:43.425] Packages needed by future strategies (n = 0): 1563s [00:52:43.426] { 1563s [00:52:43.426] { 1563s [00:52:43.426] { 1563s [00:52:43.426] ...future.startTime <- base::Sys.time() 1563s [00:52:43.426] { 1563s [00:52:43.426] { 1563s [00:52:43.426] { 1563s [00:52:43.426] base::local({ 1563s [00:52:43.426] has_future <- base::requireNamespace("future", 1563s [00:52:43.426] quietly = TRUE) 1563s [00:52:43.426] if (has_future) { 1563s [00:52:43.426] ns <- base::getNamespace("future") 1563s [00:52:43.426] version <- ns[[".package"]][["version"]] 1563s [00:52:43.426] if (is.null(version)) 1563s [00:52:43.426] version <- utils::packageVersion("future") 1563s [00:52:43.426] } 1563s [00:52:43.426] else { 1563s [00:52:43.426] version <- NULL 1563s [00:52:43.426] } 1563s [00:52:43.426] if (!has_future || version < "1.8.0") { 1563s [00:52:43.426] info <- base::c(r_version = base::gsub("R version ", 1563s [00:52:43.426] "", base::R.version$version.string), 1563s [00:52:43.426] platform = base::sprintf("%s (%s-bit)", 1563s [00:52:43.426] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1563s [00:52:43.426] os = base::paste(base::Sys.info()[base::c("sysname", 1563s [00:52:43.426] "release", "version")], collapse = " "), 1563s [00:52:43.426] hostname = base::Sys.info()[["nodename"]]) 1563s [00:52:43.426] info <- base::sprintf("%s: %s", base::names(info), 1563s [00:52:43.426] info) 1563s [00:52:43.426] info <- base::paste(info, collapse = "; ") 1563s [00:52:43.426] if (!has_future) { 1563s [00:52:43.426] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1563s [00:52:43.426] info) 1563s [00:52:43.426] } 1563s [00:52:43.426] else { 1563s [00:52:43.426] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1563s [00:52:43.426] info, version) 1563s [00:52:43.426] } 1563s [00:52:43.426] base::stop(msg) 1563s [00:52:43.426] } 1563s [00:52:43.426] }) 1563s [00:52:43.426] } 1563s [00:52:43.426] options(future.plan = NULL) 1563s [00:52:43.426] Sys.unsetenv("R_FUTURE_PLAN") 1563s [00:52:43.426] future::plan("default", .cleanup = FALSE, .init = FALSE) 1563s [00:52:43.426] } 1563s [00:52:43.426] ...future.workdir <- getwd() 1563s [00:52:43.426] } 1563s [00:52:43.426] ...future.oldOptions <- base::as.list(base::.Options) 1563s [00:52:43.426] ...future.oldEnvVars <- base::Sys.getenv() 1563s [00:52:43.426] } 1563s [00:52:43.426] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1563s [00:52:43.426] future.globals.maxSize = NULL, future.globals.method = NULL, 1563s [00:52:43.426] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1563s [00:52:43.426] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1563s [00:52:43.426] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1563s [00:52:43.426] future.stdout.windows.reencode = NULL, width = 80L) 1563s [00:52:43.426] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1563s [00:52:43.426] base::names(...future.oldOptions)) 1563s [00:52:43.426] } 1563s [00:52:43.426] if (FALSE) { 1563s [00:52:43.426] } 1563s [00:52:43.426] else { 1563s [00:52:43.426] if (TRUE) { 1563s [00:52:43.426] ...future.stdout <- base::rawConnection(base::raw(0L), 1563s [00:52:43.426] open = "w") 1563s [00:52:43.426] } 1563s [00:52:43.426] else { 1563s [00:52:43.426] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1563s [00:52:43.426] windows = "NUL", "/dev/null"), open = "w") 1563s [00:52:43.426] } 1563s [00:52:43.426] base::sink(...future.stdout, type = "output", split = FALSE) 1563s [00:52:43.426] base::on.exit(if (!base::is.null(...future.stdout)) { 1563s [00:52:43.426] base::sink(type = "output", split = FALSE) 1563s [00:52:43.426] base::close(...future.stdout) 1563s [00:52:43.426] }, add = TRUE) 1563s [00:52:43.426] } 1563s [00:52:43.426] ...future.frame <- base::sys.nframe() 1563s [00:52:43.426] ...future.conditions <- base::list() 1563s [00:52:43.426] ...future.rng <- base::globalenv()$.Random.seed 1563s [00:52:43.426] if (FALSE) { 1563s [00:52:43.426] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1563s [00:52:43.426] "...future.value", "...future.globalenv.names", ".Random.seed") 1563s [00:52:43.426] } 1563s [00:52:43.426] ...future.result <- base::tryCatch({ 1563s [00:52:43.426] base::withCallingHandlers({ 1563s [00:52:43.426] ...future.value <- base::withVisible(base::local({ 1563s [00:52:43.426] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1563s [00:52:43.426] if (!identical(...future.globals.maxSize.org, 1563s [00:52:43.426] ...future.globals.maxSize)) { 1563s [00:52:43.426] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1563s [00:52:43.426] on.exit(options(oopts), add = TRUE) 1563s [00:52:43.426] } 1563s [00:52:43.426] { 1563s [00:52:43.426] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1563s [00:52:43.426] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1563s [00:52:43.426] USE.NAMES = FALSE) 1563s [00:52:43.426] do.call(mapply, args = args) 1563s [00:52:43.426] } 1563s [00:52:43.426] })) 1563s [00:52:43.426] future::FutureResult(value = ...future.value$value, 1563s [00:52:43.426] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1563s [00:52:43.426] ...future.rng), globalenv = if (FALSE) 1563s [00:52:43.426] list(added = base::setdiff(base::names(base::.GlobalEnv), 1563s [00:52:43.426] ...future.globalenv.names)) 1563s [00:52:43.426] else NULL, started = ...future.startTime, version = "1.8") 1563s [00:52:43.426] }, condition = base::local({ 1563s [00:52:43.426] c <- base::c 1563s [00:52:43.426] inherits <- base::inherits 1563s [00:52:43.426] invokeRestart <- base::invokeRestart 1563s [00:52:43.426] length <- base::length 1563s [00:52:43.426] list <- base::list 1563s [00:52:43.426] seq.int <- base::seq.int 1563s [00:52:43.426] signalCondition <- base::signalCondition 1563s [00:52:43.426] sys.calls <- base::sys.calls 1563s [00:52:43.426] `[[` <- base::`[[` 1563s [00:52:43.426] `+` <- base::`+` 1563s [00:52:43.426] `<<-` <- base::`<<-` 1563s [00:52:43.426] sysCalls <- function(calls = sys.calls(), from = 1L) { 1563s [00:52:43.426] calls[seq.int(from = from + 12L, to = length(calls) - 1563s [00:52:43.426] 3L)] 1563s [00:52:43.426] } 1563s [00:52:43.426] function(cond) { 1563s [00:52:43.426] is_error <- inherits(cond, "error") 1563s [00:52:43.426] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1563s [00:52:43.426] NULL) 1563s [00:52:43.426] if (is_error) { 1563s [00:52:43.426] sessionInformation <- function() { 1563s [00:52:43.426] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1563s [00:52:43.426] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1563s [00:52:43.426] search = base::search(), system = base::Sys.info()) 1563s [00:52:43.426] } 1563s [00:52:43.426] ...future.conditions[[length(...future.conditions) + 1563s [00:52:43.426] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1563s [00:52:43.426] cond$call), session = sessionInformation(), 1563s [00:52:43.426] timestamp = base::Sys.time(), signaled = 0L) 1563s [00:52:43.426] signalCondition(cond) 1563s [00:52:43.426] } 1563s [00:52:43.426] else if (!ignore && TRUE && inherits(cond, c("condition", 1563s [00:52:43.426] "immediateCondition"))) { 1563s [00:52:43.426] signal <- TRUE && inherits(cond, "immediateCondition") 1563s [00:52:43.426] ...future.conditions[[length(...future.conditions) + 1563s [00:52:43.426] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1563s [00:52:43.426] if (TRUE && !signal) { 1563s [00:52:43.426] muffleCondition <- function (cond, pattern = "^muffle") 1563s [00:52:43.426] { 1563s [00:52:43.426] inherits <- base::inherits 1563s [00:52:43.426] invokeRestart <- base::invokeRestart 1563s [00:52:43.426] is.null <- base::is.null 1563s [00:52:43.426] muffled <- FALSE 1563s [00:52:43.426] if (inherits(cond, "message")) { 1563s [00:52:43.426] muffled <- grepl(pattern, "muffleMessage") 1563s [00:52:43.426] if (muffled) 1563s [00:52:43.426] invokeRestart("muffleMessage") 1563s [00:52:43.426] } 1563s [00:52:43.426] else if (inherits(cond, "warning")) { 1563s [00:52:43.426] muffled <- grepl(pattern, "muffleWarning") 1563s [00:52:43.426] if (muffled) 1563s [00:52:43.426] invokeRestart("muffleWarning") 1563s [00:52:43.426] } 1563s [00:52:43.426] else if (inherits(cond, "condition")) { 1563s [00:52:43.426] if (!is.null(pattern)) { 1563s [00:52:43.426] computeRestarts <- base::computeRestarts 1563s [00:52:43.426] grepl <- base::grepl 1563s [00:52:43.426] restarts <- computeRestarts(cond) 1563s [00:52:43.426] for (restart in restarts) { 1563s [00:52:43.426] name <- restart$name 1563s [00:52:43.426] if (is.null(name)) 1563s [00:52:43.426] next 1563s [00:52:43.426] if (!grepl(pattern, name)) 1563s [00:52:43.426] next 1563s [00:52:43.426] invokeRestart(restart) 1563s [00:52:43.426] muffled <- TRUE 1563s [00:52:43.426] break 1563s [00:52:43.426] } 1563s [00:52:43.426] } 1563s [00:52:43.426] } 1563s [00:52:43.426] invisible(muffled) 1563s [00:52:43.426] } 1563s [00:52:43.426] muffleCondition(cond, pattern = "^muffle") 1563s [00:52:43.426] } 1563s [00:52:43.426] } 1563s [00:52:43.426] else { 1563s [00:52:43.426] if (TRUE) { 1563s [00:52:43.426] muffleCondition <- function (cond, pattern = "^muffle") 1563s [00:52:43.426] { 1563s [00:52:43.426] inherits <- base::inherits 1563s [00:52:43.426] invokeRestart <- base::invokeRestart 1563s [00:52:43.426] is.null <- base::is.null 1563s [00:52:43.426] muffled <- FALSE 1563s [00:52:43.426] if (inherits(cond, "message")) { 1563s [00:52:43.426] muffled <- grepl(pattern, "muffleMessage") 1563s [00:52:43.426] if (muffled) 1563s [00:52:43.426] invokeRestart("muffleMessage") 1563s [00:52:43.426] } 1563s [00:52:43.426] else if (inherits(cond, "warning")) { 1563s [00:52:43.426] muffled <- grepl(pattern, "muffleWarning") 1563s [00:52:43.426] if (muffled) 1563s [00:52:43.426] invokeRestart("muffleWarning") 1563s [00:52:43.426] } 1563s [00:52:43.426] else if (inherits(cond, "condition")) { 1563s [00:52:43.426] if (!is.null(pattern)) { 1563s [00:52:43.426] computeRestarts <- base::computeRestarts 1563s [00:52:43.426] grepl <- base::grepl 1563s [00:52:43.426] restarts <- computeRestarts(cond) 1563s [00:52:43.426] for (restart in restarts) { 1563s [00:52:43.426] name <- restart$name 1563s [00:52:43.426] if (is.null(name)) 1563s [00:52:43.426] next 1563s [00:52:43.426] if (!grepl(pattern, name)) 1563s [00:52:43.426] next 1563s [00:52:43.426] invokeRestart(restart) 1563s [00:52:43.426] muffled <- TRUE 1563s [00:52:43.426] break 1563s [00:52:43.426] } 1563s [00:52:43.426] } 1563s [00:52:43.426] } 1563s [00:52:43.426] invisible(muffled) 1563s [00:52:43.426] } 1563s [00:52:43.426] muffleCondition(cond, pattern = "^muffle") 1563s [00:52:43.426] } 1563s [00:52:43.426] } 1563s [00:52:43.426] } 1563s [00:52:43.426] })) 1563s [00:52:43.426] }, error = function(ex) { 1563s [00:52:43.426] base::structure(base::list(value = NULL, visible = NULL, 1563s [00:52:43.426] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1563s [00:52:43.426] ...future.rng), started = ...future.startTime, 1563s [00:52:43.426] finished = Sys.time(), session_uuid = NA_character_, 1563s [00:52:43.426] version = "1.8"), class = "FutureResult") 1563s [00:52:43.426] }, finally = { 1563s [00:52:43.426] if (!identical(...future.workdir, getwd())) 1563s [00:52:43.426] setwd(...future.workdir) 1563s [00:52:43.426] { 1563s [00:52:43.426] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1563s [00:52:43.426] ...future.oldOptions$nwarnings <- NULL 1563s [00:52:43.426] } 1563s [00:52:43.426] base::options(...future.oldOptions) 1563s [00:52:43.426] if (.Platform$OS.type == "windows") { 1563s [00:52:43.426] old_names <- names(...future.oldEnvVars) 1563s [00:52:43.426] envs <- base::Sys.getenv() 1563s [00:52:43.426] names <- names(envs) 1563s [00:52:43.426] common <- intersect(names, old_names) 1563s [00:52:43.426] added <- setdiff(names, old_names) 1563s [00:52:43.426] removed <- setdiff(old_names, names) 1563s [00:52:43.426] changed <- common[...future.oldEnvVars[common] != 1563s [00:52:43.426] envs[common]] 1563s [00:52:43.426] NAMES <- toupper(changed) 1563s [00:52:43.426] args <- list() 1563s [00:52:43.426] for (kk in seq_along(NAMES)) { 1563s [00:52:43.426] name <- changed[[kk]] 1563s [00:52:43.426] NAME <- NAMES[[kk]] 1563s [00:52:43.426] if (name != NAME && is.element(NAME, old_names)) 1563s [00:52:43.426] next 1563s [00:52:43.426] args[[name]] <- ...future.oldEnvVars[[name]] 1563s [00:52:43.426] } 1563s [00:52:43.426] NAMES <- toupper(added) 1563s [00:52:43.426] for (kk in seq_along(NAMES)) { 1563s [00:52:43.426] name <- added[[kk]] 1563s [00:52:43.426] NAME <- NAMES[[kk]] 1563s [00:52:43.426] if (name != NAME && is.element(NAME, old_names)) 1563s [00:52:43.426] next 1563s [00:52:43.426] args[[name]] <- "" 1563s [00:52:43.426] } 1563s [00:52:43.426] NAMES <- toupper(removed) 1563s [00:52:43.426] for (kk in seq_along(NAMES)) { 1563s [00:52:43.426] name <- removed[[kk]] 1563s [00:52:43.426] NAME <- NAMES[[kk]] 1563s [00:52:43.426] if (name != NAME && is.element(NAME, old_names)) 1563s [00:52:43.426] next 1563s [00:52:43.426] args[[name]] <- ...future.oldEnvVars[[name]] 1563s [00:52:43.426] } 1563s [00:52:43.426] if (length(args) > 0) 1563s [00:52:43.426] base::do.call(base::Sys.setenv, args = args) 1563s [00:52:43.426] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1563s [00:52:43.426] } 1563s [00:52:43.426] else { 1563s [00:52:43.426] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1563s [00:52:43.426] } 1563s [00:52:43.426] { 1563s [00:52:43.426] if (base::length(...future.futureOptionsAdded) > 1563s [00:52:43.426] 0L) { 1563s [00:52:43.426] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1563s [00:52:43.426] base::names(opts) <- ...future.futureOptionsAdded 1563s [00:52:43.426] base::options(opts) 1563s [00:52:43.426] } 1563s [00:52:43.426] { 1563s [00:52:43.426] { 1563s [00:52:43.426] base::assign(".Random.seed", c(10407L, -193111136L, 1563s [00:52:43.426] 1998638665L, 1795077819L, 549408344L, 564105141L, 1563s [00:52:43.426] -308065669L), envir = base::globalenv(), 1563s [00:52:43.426] inherits = FALSE) 1563s [00:52:43.426] NULL 1563s [00:52:43.426] } 1563s [00:52:43.426] options(future.plan = NULL) 1563s [00:52:43.426] if (is.na(NA_character_)) 1563s [00:52:43.426] Sys.unsetenv("R_FUTURE_PLAN") 1563s [00:52:43.426] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1563s [00:52:43.426] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1563s [00:52:43.426] envir = parent.frame()) 1563s [00:52:43.426] { 1563s [00:52:43.426] default_workers <- missing(workers) 1563s [00:52:43.426] if (is.function(workers)) 1563s [00:52:43.426] workers <- workers() 1563s [00:52:43.426] workers <- structure(as.integer(workers), 1563s [00:52:43.426] class = class(workers)) 1563s [00:52:43.426] stop_if_not(is.finite(workers), workers >= 1563s [00:52:43.426] 1L) 1563s [00:52:43.426] if ((workers == 1L && !inherits(workers, 1563s [00:52:43.426] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1563s [00:52:43.426] if (default_workers) 1563s [00:52:43.426] supportsMulticore(warn = TRUE) 1563s [00:52:43.426] return(sequential(..., envir = envir)) 1563s [00:52:43.426] } 1563s [00:52:43.426] oopts <- options(mc.cores = workers) 1563s [00:52:43.426] on.exit(options(oopts)) 1563s [00:52:43.426] future <- MulticoreFuture(..., workers = workers, 1563s [00:52:43.426] envir = envir) 1563s [00:52:43.426] if (!future$lazy) 1563s [00:52:43.426] future <- run(future) 1563s [00:52:43.426] invisible(future) 1563s [00:52:43.426] }), .cleanup = FALSE, .init = FALSE) 1563s [00:52:43.426] } 1563s [00:52:43.426] } 1563s [00:52:43.426] } 1563s [00:52:43.426] }) 1563s [00:52:43.426] if (TRUE) { 1563s [00:52:43.426] base::sink(type = "output", split = FALSE) 1563s [00:52:43.426] if (TRUE) { 1563s [00:52:43.426] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1563s [00:52:43.426] } 1563s [00:52:43.426] else { 1563s [00:52:43.426] ...future.result["stdout"] <- base::list(NULL) 1563s [00:52:43.426] } 1563s [00:52:43.426] base::close(...future.stdout) 1563s [00:52:43.426] ...future.stdout <- NULL 1563s [00:52:43.426] } 1563s [00:52:43.426] ...future.result$conditions <- ...future.conditions 1563s [00:52:43.426] ...future.result$finished <- base::Sys.time() 1563s [00:52:43.426] ...future.result 1563s [00:52:43.426] } 1563s [00:52:43.429] assign_globals() ... 1563s [00:52:43.429] List of 5 1563s [00:52:43.429] $ ...future.FUN :function (e1, e2) 1563s [00:52:43.429] $ MoreArgs : NULL 1563s [00:52:43.429] $ ...future.elements_ii :List of 2 1563s [00:52:43.429] ..$ :List of 3 1563s [00:52:43.429] .. ..$ : num 1 1563s [00:52:43.429] .. ..$ : num 1 1563s [00:52:43.429] .. ..$ : num 1 1563s [00:52:43.429] ..$ :List of 3 1563s [00:52:43.429] .. ..$ : int 1 1563s [00:52:43.429] .. ..$ : int 2 1563s [00:52:43.429] .. ..$ : int 3 1563s [00:52:43.429] $ ...future.seeds_ii : NULL 1563s [00:52:43.429] $ ...future.globals.maxSize: NULL 1563s [00:52:43.429] - attr(*, "where")=List of 5 1563s [00:52:43.429] ..$ ...future.FUN : 1563s [00:52:43.429] ..$ MoreArgs : 1563s [00:52:43.429] ..$ ...future.elements_ii : 1563s [00:52:43.429] ..$ ...future.seeds_ii : 1563s [00:52:43.429] ..$ ...future.globals.maxSize: 1563s [00:52:43.429] - attr(*, "resolved")= logi FALSE 1563s [00:52:43.429] - attr(*, "total_size")= num 392 1563s [00:52:43.429] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1563s [00:52:43.429] - attr(*, "already-done")= logi TRUE 1563s [00:52:43.438] - copied ‘...future.FUN’ to environment 1563s [00:52:43.438] - copied ‘MoreArgs’ to environment 1563s [00:52:43.439] - copied ‘...future.elements_ii’ to environment 1563s [00:52:43.439] - copied ‘...future.seeds_ii’ to environment 1563s [00:52:43.439] - copied ‘...future.globals.maxSize’ to environment 1563s [00:52:43.439] assign_globals() ... done 1563s [00:52:43.439] plan(): Setting new future strategy stack: 1563s [00:52:43.439] List of future strategies: 1563s [00:52:43.439] 1. sequential: 1563s [00:52:43.439] - args: function (..., envir = parent.frame()) 1563s [00:52:43.439] - tweaked: FALSE 1563s [00:52:43.439] - call: NULL 1563s [00:52:43.440] plan(): nbrOfWorkers() = 1 1563s [00:52:43.441] plan(): Setting new future strategy stack: 1563s [00:52:43.441] List of future strategies: 1563s [00:52:43.441] 1. multicore: 1563s [00:52:43.441] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1563s [00:52:43.441] - tweaked: FALSE 1563s [00:52:43.441] - call: plan(strategy) 1563s [00:52:43.445] plan(): nbrOfWorkers() = 1 1563s [00:52:43.445] SequentialFuture started (and completed) 1563s [00:52:43.445] - Launch lazy future ... done 1563s [00:52:43.445] run() for ‘SequentialFuture’ ... done 1563s [00:52:43.445] Created future: 1563s [00:52:43.446] SequentialFuture: 1563s [00:52:43.446] Label: ‘future_Map-1’ 1563s [00:52:43.446] Expression: 1563s [00:52:43.446] { 1563s [00:52:43.446] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1563s [00:52:43.446] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1563s [00:52:43.446] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1563s [00:52:43.446] on.exit(options(oopts), add = TRUE) 1563s [00:52:43.446] } 1563s [00:52:43.446] { 1563s [00:52:43.446] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1563s [00:52:43.446] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1563s [00:52:43.446] do.call(mapply, args = args) 1563s [00:52:43.446] } 1563s [00:52:43.446] } 1563s [00:52:43.446] Lazy evaluation: FALSE 1563s [00:52:43.446] Asynchronous evaluation: FALSE 1563s [00:52:43.446] Local evaluation: TRUE 1563s [00:52:43.446] Environment: R_GlobalEnv 1563s [00:52:43.446] Capture standard output: TRUE 1563s [00:52:43.446] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1563s [00:52:43.446] Globals: 5 objects totaling 392 bytes (function ‘...future.FUN’ of 56 bytes, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1563s [00:52:43.446] Packages: 1563s [00:52:43.446] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1563s [00:52:43.446] Resolved: TRUE 1563s [00:52:43.446] Value: 168 bytes of class ‘list’ 1563s [00:52:43.446] Early signaling: FALSE 1563s [00:52:43.446] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1563s [00:52:43.446] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1563s [00:52:43.447] Chunk #1 of 1 ... DONE 1563s [00:52:43.447] Launching 1 futures (chunks) ... DONE 1563s [00:52:43.447] Resolving 1 futures (chunks) ... 1563s [00:52:43.448] resolve() on list ... 1563s [00:52:43.448] recursive: 0 1563s [00:52:43.448] length: 1 1563s [00:52:43.448] 1563s [00:52:43.448] resolved() for ‘SequentialFuture’ ... 1563s [00:52:43.449] - state: ‘finished’ 1563s [00:52:43.449] - run: TRUE 1563s [00:52:43.449] - result: ‘FutureResult’ 1563s [00:52:43.449] resolved() for ‘SequentialFuture’ ... done 1563s [00:52:43.449] Future #1 1563s [00:52:43.450] signalConditionsASAP(SequentialFuture, pos=1) ... 1563s [00:52:43.450] - nx: 1 1563s [00:52:43.450] - relay: TRUE 1563s [00:52:43.450] - stdout: TRUE 1563s [00:52:43.450] - signal: TRUE 1563s [00:52:43.450] - resignal: FALSE 1563s [00:52:43.451] - force: TRUE 1563s [00:52:43.451] - relayed: [n=1] FALSE 1563s [00:52:43.451] - queued futures: [n=1] FALSE 1563s [00:52:43.451] - until=1 1563s [00:52:43.451] - relaying element #1 1563s [00:52:43.452] - relayed: [n=1] TRUE 1563s [00:52:43.452] - queued futures: [n=1] TRUE 1563s [00:52:43.452] signalConditionsASAP(SequentialFuture, pos=1) ... done 1563s [00:52:43.452] length: 0 (resolved future 1) 1563s [00:52:43.452] Relaying remaining futures 1563s [00:52:43.452] signalConditionsASAP(NULL, pos=0) ... 1563s [00:52:43.453] - nx: 1 1563s [00:52:43.455] - relay: TRUE 1563s [00:52:43.456] - stdout: TRUE 1563s [00:52:43.456] - signal: TRUE 1563s [00:52:43.456] - resignal: FALSE 1563s [00:52:43.456] - force: TRUE 1563s [00:52:43.456] - relayed: [n=1] TRUE 1563s [00:52:43.456] - queued futures: [n=1] TRUE 1563s - flush all 1563s [00:52:43.457] - relayed: [n=1] TRUE 1563s [00:52:43.457] - queued futures: [n=1] TRUE 1563s [00:52:43.457] signalConditionsASAP(NULL, pos=0) ... done 1563s [00:52:43.457] resolve() on list ... DONE 1563s [00:52:43.458] - Number of value chunks collected: 1 1563s [00:52:43.458] Resolving 1 futures (chunks) ... DONE 1563s [00:52:43.458] Reducing values from 1 chunks ... 1563s [00:52:43.458] - Number of values collected after concatenation: 3 1563s [00:52:43.458] - Number of values expected: 3 1563s [00:52:43.459] Reducing values from 1 chunks ... DONE 1563s [00:52:43.459] future_mapply() ... DONE 1563s - future_mapply(x, ...) where x[[i]] subsets via S3 method ... 1563s [00:52:43.459] future_mapply() ... 1563s [00:52:43.463] Number of chunks: 1 1563s [00:52:43.463] getGlobalsAndPackagesXApply() ... 1563s [00:52:43.463] - future.globals: TRUE 1563s [00:52:43.464] getGlobalsAndPackages() ... 1563s [00:52:43.464] Searching for globals... 1563s [00:52:43.465] - globals found: [1] ‘FUN’ 1563s [00:52:43.465] Searching for globals ... DONE 1563s [00:52:43.465] Resolving globals: FALSE 1563s [00:52:43.466] The total size of the 1 globals is 848 bytes (848 bytes) 1563s [00:52:43.466] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1563s [00:52:43.467] - globals: [1] ‘FUN’ 1563s [00:52:43.467] 1563s [00:52:43.467] getGlobalsAndPackages() ... DONE 1563s [00:52:43.467] - globals found/used: [n=1] ‘FUN’ 1563s [00:52:43.467] - needed namespaces: [n=0] 1563s [00:52:43.468] Finding globals ... DONE 1563s [00:52:43.468] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1563s [00:52:43.468] List of 2 1563s [00:52:43.468] $ ...future.FUN:function (x) 1563s [00:52:43.468] $ MoreArgs : NULL 1563s [00:52:43.468] - attr(*, "where")=List of 2 1563s [00:52:43.468] ..$ ...future.FUN: 1563s [00:52:43.468] ..$ MoreArgs : 1563s [00:52:43.468] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1563s [00:52:43.468] - attr(*, "resolved")= logi FALSE 1563s [00:52:43.468] - attr(*, "total_size")= num NA 1563s [00:52:43.472] Packages to be attached in all futures: [n=0] 1563s [00:52:43.472] getGlobalsAndPackagesXApply() ... DONE 1563s [00:52:43.472] Number of futures (= number of chunks): 1 1563s [00:52:43.472] Launching 1 futures (chunks) ... 1563s [00:52:43.472] Chunk #1 of 1 ... 1563s [00:52:43.473] - Finding globals in '...' for chunk #1 ... 1563s [00:52:43.473] getGlobalsAndPackages() ... 1563s [00:52:43.473] Searching for globals... 1563s [00:52:43.473] 1563s [00:52:43.473] Searching for globals ... DONE 1563s [00:52:43.474] - globals: [0] 1563s [00:52:43.474] getGlobalsAndPackages() ... DONE 1563s [00:52:43.474] + additional globals found: [n=0] 1563s [00:52:43.474] + additional namespaces needed: [n=0] 1563s [00:52:43.474] - Finding globals in '...' for chunk #1 ... DONE 1563s [00:52:43.474] - seeds: 1563s [00:52:43.474] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1563s [00:52:43.475] getGlobalsAndPackages() ... 1563s [00:52:43.475] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1563s [00:52:43.475] Resolving globals: FALSE 1563s [00:52:43.476] The total size of the 5 globals is 960 bytes (960 bytes) 1563s [00:52:43.476] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 960 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (848 bytes of class ‘function’), ‘...future.elements_ii’ (112 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1563s [00:52:43.477] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1563s [00:52:43.477] 1563s [00:52:43.477] getGlobalsAndPackages() ... DONE 1563s [00:52:43.477] run() for ‘Future’ ... 1563s [00:52:43.477] - state: ‘created’ 1563s [00:52:43.478] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1563s [00:52:43.481] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1563s [00:52:43.481] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1563s [00:52:43.481] - Field: ‘label’ 1563s [00:52:43.482] - Field: ‘local’ 1563s [00:52:43.482] - Field: ‘owner’ 1563s [00:52:43.482] - Field: ‘envir’ 1563s [00:52:43.482] - Field: ‘packages’ 1563s [00:52:43.482] - Field: ‘gc’ 1563s [00:52:43.483] - Field: ‘conditions’ 1563s [00:52:43.483] - Field: ‘expr’ 1563s [00:52:43.483] - Field: ‘uuid’ 1563s [00:52:43.483] - Field: ‘seed’ 1563s [00:52:43.483] - Field: ‘version’ 1563s [00:52:43.483] - Field: ‘result’ 1563s [00:52:43.484] - Field: ‘asynchronous’ 1563s [00:52:43.484] - Field: ‘calls’ 1563s [00:52:43.484] - Field: ‘globals’ 1563s [00:52:43.484] - Field: ‘stdout’ 1563s [00:52:43.484] - Field: ‘earlySignal’ 1563s [00:52:43.484] - Field: ‘lazy’ 1563s [00:52:43.484] - Field: ‘state’ 1563s [00:52:43.485] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1563s [00:52:43.485] - Launch lazy future ... 1563s [00:52:43.485] Packages needed by the future expression (n = 0): 1563s [00:52:43.485] Packages needed by future strategies (n = 0): 1563s [00:52:43.486] { 1563s [00:52:43.486] { 1563s [00:52:43.486] { 1563s [00:52:43.486] ...future.startTime <- base::Sys.time() 1563s [00:52:43.486] { 1563s [00:52:43.486] { 1563s [00:52:43.486] { 1563s [00:52:43.486] base::local({ 1563s [00:52:43.486] has_future <- base::requireNamespace("future", 1563s [00:52:43.486] quietly = TRUE) 1563s [00:52:43.486] if (has_future) { 1563s [00:52:43.486] ns <- base::getNamespace("future") 1563s [00:52:43.486] version <- ns[[".package"]][["version"]] 1563s [00:52:43.486] if (is.null(version)) 1563s [00:52:43.486] version <- utils::packageVersion("future") 1563s [00:52:43.486] } 1563s [00:52:43.486] else { 1563s [00:52:43.486] version <- NULL 1563s [00:52:43.486] } 1563s [00:52:43.486] if (!has_future || version < "1.8.0") { 1563s [00:52:43.486] info <- base::c(r_version = base::gsub("R version ", 1563s [00:52:43.486] "", base::R.version$version.string), 1563s [00:52:43.486] platform = base::sprintf("%s (%s-bit)", 1563s [00:52:43.486] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1563s [00:52:43.486] os = base::paste(base::Sys.info()[base::c("sysname", 1563s [00:52:43.486] "release", "version")], collapse = " "), 1563s [00:52:43.486] hostname = base::Sys.info()[["nodename"]]) 1563s [00:52:43.486] info <- base::sprintf("%s: %s", base::names(info), 1563s [00:52:43.486] info) 1563s [00:52:43.486] info <- base::paste(info, collapse = "; ") 1563s [00:52:43.486] if (!has_future) { 1563s [00:52:43.486] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1563s [00:52:43.486] info) 1563s [00:52:43.486] } 1563s [00:52:43.486] else { 1563s [00:52:43.486] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1563s [00:52:43.486] info, version) 1563s [00:52:43.486] } 1563s [00:52:43.486] base::stop(msg) 1563s [00:52:43.486] } 1563s [00:52:43.486] }) 1563s [00:52:43.486] } 1563s [00:52:43.486] options(future.plan = NULL) 1563s [00:52:43.486] Sys.unsetenv("R_FUTURE_PLAN") 1563s [00:52:43.486] future::plan("default", .cleanup = FALSE, .init = FALSE) 1563s [00:52:43.486] } 1563s [00:52:43.486] ...future.workdir <- getwd() 1563s [00:52:43.486] } 1563s [00:52:43.486] ...future.oldOptions <- base::as.list(base::.Options) 1563s [00:52:43.486] ...future.oldEnvVars <- base::Sys.getenv() 1563s [00:52:43.486] } 1563s [00:52:43.486] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1563s [00:52:43.486] future.globals.maxSize = NULL, future.globals.method = NULL, 1563s [00:52:43.486] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1563s [00:52:43.486] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1563s [00:52:43.486] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1563s [00:52:43.486] future.stdout.windows.reencode = NULL, width = 80L) 1563s [00:52:43.486] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1563s [00:52:43.486] base::names(...future.oldOptions)) 1563s [00:52:43.486] } 1563s [00:52:43.486] if (FALSE) { 1563s [00:52:43.486] } 1563s [00:52:43.486] else { 1563s [00:52:43.486] if (TRUE) { 1563s [00:52:43.486] ...future.stdout <- base::rawConnection(base::raw(0L), 1563s [00:52:43.486] open = "w") 1563s [00:52:43.486] } 1563s [00:52:43.486] else { 1563s [00:52:43.486] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1563s [00:52:43.486] windows = "NUL", "/dev/null"), open = "w") 1563s [00:52:43.486] } 1563s [00:52:43.486] base::sink(...future.stdout, type = "output", split = FALSE) 1563s [00:52:43.486] base::on.exit(if (!base::is.null(...future.stdout)) { 1563s [00:52:43.486] base::sink(type = "output", split = FALSE) 1563s [00:52:43.486] base::close(...future.stdout) 1563s [00:52:43.486] }, add = TRUE) 1563s [00:52:43.486] } 1563s [00:52:43.486] ...future.frame <- base::sys.nframe() 1563s [00:52:43.486] ...future.conditions <- base::list() 1563s [00:52:43.486] ...future.rng <- base::globalenv()$.Random.seed 1563s [00:52:43.486] if (FALSE) { 1563s [00:52:43.486] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1563s [00:52:43.486] "...future.value", "...future.globalenv.names", ".Random.seed") 1563s [00:52:43.486] } 1563s [00:52:43.486] ...future.result <- base::tryCatch({ 1563s [00:52:43.486] base::withCallingHandlers({ 1563s [00:52:43.486] ...future.value <- base::withVisible(base::local({ 1563s [00:52:43.486] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1563s [00:52:43.486] if (!identical(...future.globals.maxSize.org, 1563s [00:52:43.486] ...future.globals.maxSize)) { 1563s [00:52:43.486] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1563s [00:52:43.486] on.exit(options(oopts), add = TRUE) 1563s [00:52:43.486] } 1563s [00:52:43.486] { 1563s [00:52:43.486] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1563s [00:52:43.486] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1563s [00:52:43.486] USE.NAMES = FALSE) 1563s [00:52:43.486] do.call(mapply, args = args) 1563s [00:52:43.486] } 1563s [00:52:43.486] })) 1563s [00:52:43.486] future::FutureResult(value = ...future.value$value, 1563s [00:52:43.486] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1563s [00:52:43.486] ...future.rng), globalenv = if (FALSE) 1563s [00:52:43.486] list(added = base::setdiff(base::names(base::.GlobalEnv), 1563s [00:52:43.486] ...future.globalenv.names)) 1563s [00:52:43.486] else NULL, started = ...future.startTime, version = "1.8") 1563s [00:52:43.486] }, condition = base::local({ 1563s [00:52:43.486] c <- base::c 1563s [00:52:43.486] inherits <- base::inherits 1563s [00:52:43.486] invokeRestart <- base::invokeRestart 1563s [00:52:43.486] length <- base::length 1563s [00:52:43.486] list <- base::list 1563s [00:52:43.486] seq.int <- base::seq.int 1563s [00:52:43.486] signalCondition <- base::signalCondition 1563s [00:52:43.486] sys.calls <- base::sys.calls 1563s [00:52:43.486] `[[` <- base::`[[` 1563s [00:52:43.486] `+` <- base::`+` 1563s [00:52:43.486] `<<-` <- base::`<<-` 1563s [00:52:43.486] sysCalls <- function(calls = sys.calls(), from = 1L) { 1563s [00:52:43.486] calls[seq.int(from = from + 12L, to = length(calls) - 1563s [00:52:43.486] 3L)] 1563s [00:52:43.486] } 1563s [00:52:43.486] function(cond) { 1563s [00:52:43.486] is_error <- inherits(cond, "error") 1563s [00:52:43.486] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1563s [00:52:43.486] NULL) 1563s [00:52:43.486] if (is_error) { 1563s [00:52:43.486] sessionInformation <- function() { 1563s [00:52:43.486] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1563s [00:52:43.486] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1563s [00:52:43.486] search = base::search(), system = base::Sys.info()) 1563s [00:52:43.486] } 1563s [00:52:43.486] ...future.conditions[[length(...future.conditions) + 1563s [00:52:43.486] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1563s [00:52:43.486] cond$call), session = sessionInformation(), 1563s [00:52:43.486] timestamp = base::Sys.time(), signaled = 0L) 1563s [00:52:43.486] signalCondition(cond) 1563s [00:52:43.486] } 1563s [00:52:43.486] else if (!ignore && TRUE && inherits(cond, c("condition", 1563s [00:52:43.486] "immediateCondition"))) { 1563s [00:52:43.486] signal <- TRUE && inherits(cond, "immediateCondition") 1563s [00:52:43.486] ...future.conditions[[length(...future.conditions) + 1563s [00:52:43.486] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1563s [00:52:43.486] if (TRUE && !signal) { 1563s [00:52:43.486] muffleCondition <- function (cond, pattern = "^muffle") 1563s [00:52:43.486] { 1563s [00:52:43.486] inherits <- base::inherits 1563s [00:52:43.486] invokeRestart <- base::invokeRestart 1563s [00:52:43.486] is.null <- base::is.null 1563s [00:52:43.486] muffled <- FALSE 1563s [00:52:43.486] if (inherits(cond, "message")) { 1563s [00:52:43.486] muffled <- grepl(pattern, "muffleMessage") 1563s [00:52:43.486] if (muffled) 1563s [00:52:43.486] invokeRestart("muffleMessage") 1563s [00:52:43.486] } 1563s [00:52:43.486] else if (inherits(cond, "warning")) { 1563s [00:52:43.486] muffled <- grepl(pattern, "muffleWarning") 1563s [00:52:43.486] if (muffled) 1563s [00:52:43.486] invokeRestart("muffleWarning") 1563s [00:52:43.486] } 1563s [00:52:43.486] else if (inherits(cond, "condition")) { 1563s [00:52:43.486] if (!is.null(pattern)) { 1563s [00:52:43.486] computeRestarts <- base::computeRestarts 1563s [00:52:43.486] grepl <- base::grepl 1563s [00:52:43.486] restarts <- computeRestarts(cond) 1563s [00:52:43.486] for (restart in restarts) { 1563s [00:52:43.486] name <- restart$name 1563s [00:52:43.486] if (is.null(name)) 1563s [00:52:43.486] next 1563s [00:52:43.486] if (!grepl(pattern, name)) 1563s [00:52:43.486] next 1563s [00:52:43.486] invokeRestart(restart) 1563s [00:52:43.486] muffled <- TRUE 1563s [00:52:43.486] break 1563s [00:52:43.486] } 1563s [00:52:43.486] } 1563s [00:52:43.486] } 1563s [00:52:43.486] invisible(muffled) 1563s [00:52:43.486] } 1563s [00:52:43.486] muffleCondition(cond, pattern = "^muffle") 1563s [00:52:43.486] } 1563s [00:52:43.486] } 1563s [00:52:43.486] else { 1563s [00:52:43.486] if (TRUE) { 1563s [00:52:43.486] muffleCondition <- function (cond, pattern = "^muffle") 1563s [00:52:43.486] { 1563s [00:52:43.486] inherits <- base::inherits 1563s [00:52:43.486] invokeRestart <- base::invokeRestart 1563s [00:52:43.486] is.null <- base::is.null 1563s [00:52:43.486] muffled <- FALSE 1563s [00:52:43.486] if (inherits(cond, "message")) { 1563s [00:52:43.486] muffled <- grepl(pattern, "muffleMessage") 1563s [00:52:43.486] if (muffled) 1563s [00:52:43.486] invokeRestart("muffleMessage") 1563s [00:52:43.486] } 1563s [00:52:43.486] else if (inherits(cond, "warning")) { 1563s [00:52:43.486] muffled <- grepl(pattern, "muffleWarning") 1563s [00:52:43.486] if (muffled) 1563s [00:52:43.486] invokeRestart("muffleWarning") 1563s [00:52:43.486] } 1563s [00:52:43.486] else if (inherits(cond, "condition")) { 1563s [00:52:43.486] if (!is.null(pattern)) { 1563s [00:52:43.486] computeRestarts <- base::computeRestarts 1563s [00:52:43.486] grepl <- base::grepl 1563s [00:52:43.486] restarts <- computeRestarts(cond) 1563s [00:52:43.486] for (restart in restarts) { 1563s [00:52:43.486] name <- restart$name 1563s [00:52:43.486] if (is.null(name)) 1563s [00:52:43.486] next 1563s [00:52:43.486] if (!grepl(pattern, name)) 1563s [00:52:43.486] next 1563s [00:52:43.486] invokeRestart(restart) 1563s [00:52:43.486] muffled <- TRUE 1563s [00:52:43.486] break 1563s [00:52:43.486] } 1563s [00:52:43.486] } 1563s [00:52:43.486] } 1563s [00:52:43.486] invisible(muffled) 1563s [00:52:43.486] } 1563s [00:52:43.486] muffleCondition(cond, pattern = "^muffle") 1563s [00:52:43.486] } 1563s [00:52:43.486] } 1563s [00:52:43.486] } 1563s [00:52:43.486] })) 1563s [00:52:43.486] }, error = function(ex) { 1563s [00:52:43.486] base::structure(base::list(value = NULL, visible = NULL, 1563s [00:52:43.486] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1563s [00:52:43.486] ...future.rng), started = ...future.startTime, 1563s [00:52:43.486] finished = Sys.time(), session_uuid = NA_character_, 1563s [00:52:43.486] version = "1.8"), class = "FutureResult") 1563s [00:52:43.486] }, finally = { 1563s [00:52:43.486] if (!identical(...future.workdir, getwd())) 1563s [00:52:43.486] setwd(...future.workdir) 1563s [00:52:43.486] { 1563s [00:52:43.486] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1563s [00:52:43.486] ...future.oldOptions$nwarnings <- NULL 1563s [00:52:43.486] } 1563s [00:52:43.486] base::options(...future.oldOptions) 1563s [00:52:43.486] if (.Platform$OS.type == "windows") { 1563s [00:52:43.486] old_names <- names(...future.oldEnvVars) 1563s [00:52:43.486] envs <- base::Sys.getenv() 1563s [00:52:43.486] names <- names(envs) 1563s [00:52:43.486] common <- intersect(names, old_names) 1563s [00:52:43.486] added <- setdiff(names, old_names) 1563s [00:52:43.486] removed <- setdiff(old_names, names) 1563s [00:52:43.486] changed <- common[...future.oldEnvVars[common] != 1563s [00:52:43.486] envs[common]] 1563s [00:52:43.486] NAMES <- toupper(changed) 1563s [00:52:43.486] args <- list() 1563s [00:52:43.486] for (kk in seq_along(NAMES)) { 1563s [00:52:43.486] name <- changed[[kk]] 1563s [00:52:43.486] NAME <- NAMES[[kk]] 1563s [00:52:43.486] if (name != NAME && is.element(NAME, old_names)) 1563s [00:52:43.486] next 1563s [00:52:43.486] args[[name]] <- ...future.oldEnvVars[[name]] 1563s [00:52:43.486] } 1563s [00:52:43.486] NAMES <- toupper(added) 1563s [00:52:43.486] for (kk in seq_along(NAMES)) { 1563s [00:52:43.486] name <- added[[kk]] 1563s [00:52:43.486] NAME <- NAMES[[kk]] 1563s [00:52:43.486] if (name != NAME && is.element(NAME, old_names)) 1563s [00:52:43.486] next 1563s [00:52:43.486] args[[name]] <- "" 1563s [00:52:43.486] } 1563s [00:52:43.486] NAMES <- toupper(removed) 1563s [00:52:43.486] for (kk in seq_along(NAMES)) { 1563s [00:52:43.486] name <- removed[[kk]] 1563s [00:52:43.486] NAME <- NAMES[[kk]] 1563s [00:52:43.486] if (name != NAME && is.element(NAME, old_names)) 1563s [00:52:43.486] next 1563s [00:52:43.486] args[[name]] <- ...future.oldEnvVars[[name]] 1563s [00:52:43.486] } 1563s [00:52:43.486] if (length(args) > 0) 1563s [00:52:43.486] base::do.call(base::Sys.setenv, args = args) 1563s [00:52:43.486] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1563s [00:52:43.486] } 1563s [00:52:43.486] else { 1563s [00:52:43.486] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1563s [00:52:43.486] } 1563s [00:52:43.486] { 1563s [00:52:43.486] if (base::length(...future.futureOptionsAdded) > 1563s [00:52:43.486] 0L) { 1563s [00:52:43.486] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1563s [00:52:43.486] base::names(opts) <- ...future.futureOptionsAdded 1563s [00:52:43.486] base::options(opts) 1563s [00:52:43.486] } 1563s [00:52:43.486] { 1563s [00:52:43.486] { 1563s [00:52:43.486] base::assign(".Random.seed", c(10407L, -193111136L, 1563s [00:52:43.486] 1998638665L, 1795077819L, 549408344L, 564105141L, 1563s [00:52:43.486] -308065669L), envir = base::globalenv(), 1563s [00:52:43.486] inherits = FALSE) 1563s [00:52:43.486] NULL 1563s [00:52:43.486] } 1563s [00:52:43.486] options(future.plan = NULL) 1563s [00:52:43.486] if (is.na(NA_character_)) 1563s [00:52:43.486] Sys.unsetenv("R_FUTURE_PLAN") 1563s [00:52:43.486] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1563s [00:52:43.486] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1563s [00:52:43.486] envir = parent.frame()) 1563s [00:52:43.486] { 1563s [00:52:43.486] default_workers <- missing(workers) 1563s [00:52:43.486] if (is.function(workers)) 1563s [00:52:43.486] workers <- workers() 1563s [00:52:43.486] workers <- structure(as.integer(workers), 1563s [00:52:43.486] class = class(workers)) 1563s [00:52:43.486] stop_if_not(is.finite(workers), workers >= 1563s [00:52:43.486] 1L) 1563s [00:52:43.486] if ((workers == 1L && !inherits(workers, 1563s [00:52:43.486] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1563s [00:52:43.486] if (default_workers) 1563s [00:52:43.486] supportsMulticore(warn = TRUE) 1563s [00:52:43.486] return(sequential(..., envir = envir)) 1563s [00:52:43.486] } 1563s [00:52:43.486] oopts <- options(mc.cores = workers) 1563s [00:52:43.486] on.exit(options(oopts)) 1563s [00:52:43.486] future <- MulticoreFuture(..., workers = workers, 1563s [00:52:43.486] envir = envir) 1563s [00:52:43.486] if (!future$lazy) 1563s [00:52:43.486] future <- run(future) 1563s [00:52:43.486] invisible(future) 1563s [00:52:43.486] }), .cleanup = FALSE, .init = FALSE) 1563s [00:52:43.486] } 1563s [00:52:43.486] } 1563s [00:52:43.486] } 1563s [00:52:43.486] }) 1563s [00:52:43.486] if (TRUE) { 1563s [00:52:43.486] base::sink(type = "output", split = FALSE) 1563s [00:52:43.486] if (TRUE) { 1563s [00:52:43.486] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1563s [00:52:43.486] } 1563s [00:52:43.486] else { 1563s [00:52:43.486] ...future.result["stdout"] <- base::list(NULL) 1563s [00:52:43.486] } 1563s [00:52:43.486] base::close(...future.stdout) 1563s [00:52:43.486] ...future.stdout <- NULL 1563s [00:52:43.486] } 1563s [00:52:43.486] ...future.result$conditions <- ...future.conditions 1563s [00:52:43.486] ...future.result$finished <- base::Sys.time() 1563s [00:52:43.486] ...future.result 1563s [00:52:43.486] } 1563s [00:52:43.492] assign_globals() ... 1563s [00:52:43.492] List of 5 1563s [00:52:43.492] $ ...future.FUN :function (x) 1563s [00:52:43.492] $ MoreArgs : NULL 1563s [00:52:43.492] $ ...future.elements_ii :List of 1 1563s [00:52:43.492] ..$ :List of 2 1563s [00:52:43.492] .. ..$ a: num 0 1563s [00:52:43.492] .. ..$ b: num 0 1563s [00:52:43.492] $ ...future.seeds_ii : NULL 1563s [00:52:43.492] $ ...future.globals.maxSize: NULL 1563s [00:52:43.492] - attr(*, "where")=List of 5 1563s [00:52:43.492] ..$ ...future.FUN : 1563s [00:52:43.492] ..$ MoreArgs : 1563s [00:52:43.492] ..$ ...future.elements_ii : 1563s [00:52:43.492] ..$ ...future.seeds_ii : 1563s [00:52:43.492] ..$ ...future.globals.maxSize: 1563s [00:52:43.492] - attr(*, "resolved")= logi FALSE 1563s [00:52:43.492] - attr(*, "total_size")= num 960 1563s [00:52:43.492] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1563s [00:52:43.492] - attr(*, "already-done")= logi TRUE 1563s [00:52:43.501] - copied ‘...future.FUN’ to environment 1563s [00:52:43.501] - copied ‘MoreArgs’ to environment 1563s [00:52:43.501] - copied ‘...future.elements_ii’ to environment 1563s [00:52:43.501] - copied ‘...future.seeds_ii’ to environment 1563s [00:52:43.501] - copied ‘...future.globals.maxSize’ to environment 1563s [00:52:43.502] assign_globals() ... done 1563s [00:52:43.502] plan(): Setting new future strategy stack: 1563s [00:52:43.503] List of future strategies: 1563s [00:52:43.503] 1. sequential: 1563s [00:52:43.503] - args: function (..., envir = parent.frame()) 1563s [00:52:43.503] - tweaked: FALSE 1563s [00:52:43.503] - call: NULL 1563s [00:52:43.503] plan(): nbrOfWorkers() = 1 1563s [00:52:43.504] plan(): Setting new future strategy stack: 1563s [00:52:43.504] List of future strategies: 1563s [00:52:43.504] 1. multicore: 1563s [00:52:43.504] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1563s [00:52:43.504] - tweaked: FALSE 1563s [00:52:43.504] - call: plan(strategy) 1563s [00:52:43.508] plan(): nbrOfWorkers() = 1 1563s [00:52:43.508] SequentialFuture started (and completed) 1563s [00:52:43.508] - Launch lazy future ... done 1563s [00:52:43.509] run() for ‘SequentialFuture’ ... done 1563s [00:52:43.509] Created future: 1563s [00:52:43.509] SequentialFuture: 1563s [00:52:43.509] Label: ‘future_mapply-1’ 1563s [00:52:43.509] Expression: 1563s [00:52:43.509] { 1563s [00:52:43.509] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1563s [00:52:43.509] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1563s [00:52:43.509] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1563s [00:52:43.509] on.exit(options(oopts), add = TRUE) 1563s [00:52:43.509] } 1563s [00:52:43.509] { 1563s [00:52:43.509] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1563s [00:52:43.509] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1563s [00:52:43.509] do.call(mapply, args = args) 1563s [00:52:43.509] } 1563s [00:52:43.509] } 1563s [00:52:43.509] Lazy evaluation: FALSE 1563s [00:52:43.509] Asynchronous evaluation: FALSE 1563s [00:52:43.509] Local evaluation: TRUE 1563s [00:52:43.509] Environment: R_GlobalEnv 1563s [00:52:43.509] Capture standard output: TRUE 1563s [00:52:43.509] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1563s [00:52:43.509] Globals: 5 objects totaling 960 bytes (function ‘...future.FUN’ of 848 bytes, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1563s [00:52:43.509] Packages: 1563s [00:52:43.509] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1563s [00:52:43.509] Resolved: TRUE 1563s [00:52:43.509] Value: 112 bytes of class ‘list’ 1563s [00:52:43.509] Early signaling: FALSE 1563s [00:52:43.509] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1563s [00:52:43.509] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1563s [00:52:43.510] Chunk #1 of 1 ... DONE 1563s [00:52:43.511] Launching 1 futures (chunks) ... DONE 1563s [00:52:43.511] Resolving 1 futures (chunks) ... 1563s [00:52:43.511] resolve() on list ... 1563s [00:52:43.511] recursive: 0 1563s [00:52:43.512] length: 1 1563s [00:52:43.512] 1563s [00:52:43.512] resolved() for ‘SequentialFuture’ ... 1563s [00:52:43.512] - state: ‘finished’ 1563s [00:52:43.512] - run: TRUE 1563s [00:52:43.512] - result: ‘FutureResult’ 1563s [00:52:43.513] resolved() for ‘SequentialFuture’ ... done 1563s [00:52:43.513] Future #1 1563s [00:52:43.513] signalConditionsASAP(SequentialFuture, pos=1) ... 1563s [00:52:43.513] - nx: 1 1563s [00:52:43.513] - relay: TRUE 1563s [00:52:43.513] - stdout: TRUE 1563s [00:52:43.514] - signal: TRUE 1563s [00:52:43.514] - resignal: FALSE 1563s [00:52:43.514] - force: TRUE 1563s [00:52:43.514] - relayed: [n=1] FALSE 1563s [00:52:43.514] - queued futures: [n=1] FALSE 1563s [00:52:43.514] - until=1 1563s [00:52:43.514] - relaying element #1 1563s [00:52:43.515] - relayed: [n=1] TRUE 1563s [00:52:43.515] - queued futures: [n=1] TRUE 1563s [00:52:43.515] signalConditionsASAP(SequentialFuture, pos=1) ... done 1563s [00:52:43.515] length: 0 (resolved future 1) 1563s [00:52:43.515] Relaying remaining futures 1563s [00:52:43.515] signalConditionsASAP(NULL, pos=0) ... 1563s [00:52:43.516] - nx: 1 1563s [00:52:43.516] - relay: TRUE 1563s [00:52:43.516] - stdout: TRUE 1563s [00:52:43.516] - signal: TRUE 1563s [00:52:43.516] - resignal: FALSE 1563s [00:52:43.516] - force: TRUE 1563s [00:52:43.516] - relayed: [n=1] TRUE 1563s [00:52:43.517] - queued futures: [n=1] TRUE 1563s - flush all 1563s [00:52:43.517] - relayed: [n=1] TRUE 1563s [00:52:43.517] - queued futures: [n=1] TRUE 1563s [00:52:43.517] signalConditionsASAP(NULL, pos=0) ... done 1563s [00:52:43.517] resolve() on list ... DONE 1563s [00:52:43.517] - Number of value chunks collected: 1 1563s [00:52:43.518] Resolving 1 futures (chunks) ... DONE 1563s [00:52:43.518] Reducing values from 1 chunks ... 1563s [00:52:43.518] - Number of values collected after concatenation: 2 1563s [00:52:43.518] - Number of values expected: 2 1563s [00:52:43.518] Reducing values from 1 chunks ... DONE 1563s [00:52:43.518] future_mapply() ... DONE 1563s [00:52:43.519] plan(): Setting new future strategy stack: 1563s [00:52:43.519] List of future strategies: 1563s [00:52:43.519] 1. sequential: 1563s [00:52:43.519] - args: function (..., envir = parent.frame()) 1563s [00:52:43.519] - tweaked: FALSE 1563s [00:52:43.519] - call: plan(sequential) 1563s [00:52:43.520] plan(): nbrOfWorkers() = 1 1563s *** strategy = ‘multicore’ ... done 1563s *** strategy = ‘multisession’ ... 1563s [00:52:43.520] plan(): Setting new future strategy stack: 1563s [00:52:43.520] List of future strategies: 1563s [00:52:43.520] 1. multisession: 1563s [00:52:43.520] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1563s [00:52:43.520] - tweaked: FALSE 1563s [00:52:43.520] - call: plan(strategy) 1563s [00:52:43.521] plan(): plan_init() of ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ ... 1563s [00:52:43.521] multisession: 1563s [00:52:43.521] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1563s [00:52:43.521] - tweaked: FALSE 1563s [00:52:43.521] - call: plan(strategy) 1563s [00:52:43.525] getGlobalsAndPackages() ... 1563s [00:52:43.526] Not searching for globals 1563s [00:52:43.526] - globals: [0] 1563s [00:52:43.526] getGlobalsAndPackages() ... DONE 1563s [00:52:43.526] Packages needed by the future expression (n = 0): 1563s [00:52:43.527] Packages needed by future strategies (n = 0): 1563s [00:52:43.527] { 1563s [00:52:43.527] { 1563s [00:52:43.527] { 1563s [00:52:43.527] ...future.startTime <- base::Sys.time() 1563s [00:52:43.527] { 1563s [00:52:43.527] { 1563s [00:52:43.527] { 1563s [00:52:43.527] base::local({ 1563s [00:52:43.527] has_future <- base::requireNamespace("future", 1563s [00:52:43.527] quietly = TRUE) 1563s [00:52:43.527] if (has_future) { 1563s [00:52:43.527] ns <- base::getNamespace("future") 1563s [00:52:43.527] version <- ns[[".package"]][["version"]] 1563s [00:52:43.527] if (is.null(version)) 1563s [00:52:43.527] version <- utils::packageVersion("future") 1563s [00:52:43.527] } 1563s [00:52:43.527] else { 1563s [00:52:43.527] version <- NULL 1563s [00:52:43.527] } 1563s [00:52:43.527] if (!has_future || version < "1.8.0") { 1563s [00:52:43.527] info <- base::c(r_version = base::gsub("R version ", 1563s [00:52:43.527] "", base::R.version$version.string), 1563s [00:52:43.527] platform = base::sprintf("%s (%s-bit)", 1563s [00:52:43.527] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1563s [00:52:43.527] os = base::paste(base::Sys.info()[base::c("sysname", 1563s [00:52:43.527] "release", "version")], collapse = " "), 1563s [00:52:43.527] hostname = base::Sys.info()[["nodename"]]) 1563s [00:52:43.527] info <- base::sprintf("%s: %s", base::names(info), 1563s [00:52:43.527] info) 1563s [00:52:43.527] info <- base::paste(info, collapse = "; ") 1563s [00:52:43.527] if (!has_future) { 1563s [00:52:43.527] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1563s [00:52:43.527] info) 1563s [00:52:43.527] } 1563s [00:52:43.527] else { 1563s [00:52:43.527] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1563s [00:52:43.527] info, version) 1563s [00:52:43.527] } 1563s [00:52:43.527] base::stop(msg) 1563s [00:52:43.527] } 1563s [00:52:43.527] }) 1563s [00:52:43.527] } 1563s [00:52:43.527] options(future.plan = NULL) 1563s [00:52:43.527] Sys.unsetenv("R_FUTURE_PLAN") 1563s [00:52:43.527] future::plan("default", .cleanup = FALSE, .init = FALSE) 1563s [00:52:43.527] } 1563s [00:52:43.527] ...future.workdir <- getwd() 1563s [00:52:43.527] } 1563s [00:52:43.527] ...future.oldOptions <- base::as.list(base::.Options) 1563s [00:52:43.527] ...future.oldEnvVars <- base::Sys.getenv() 1563s [00:52:43.527] } 1563s [00:52:43.527] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1563s [00:52:43.527] future.globals.maxSize = NULL, future.globals.method = NULL, 1563s [00:52:43.527] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1563s [00:52:43.527] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1563s [00:52:43.527] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1563s [00:52:43.527] future.stdout.windows.reencode = NULL, width = 80L) 1563s [00:52:43.527] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1563s [00:52:43.527] base::names(...future.oldOptions)) 1563s [00:52:43.527] } 1563s [00:52:43.527] if (FALSE) { 1563s [00:52:43.527] } 1563s [00:52:43.527] else { 1563s [00:52:43.527] if (TRUE) { 1563s [00:52:43.527] ...future.stdout <- base::rawConnection(base::raw(0L), 1563s [00:52:43.527] open = "w") 1563s [00:52:43.527] } 1563s [00:52:43.527] else { 1563s [00:52:43.527] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1563s [00:52:43.527] windows = "NUL", "/dev/null"), open = "w") 1563s [00:52:43.527] } 1563s [00:52:43.527] base::sink(...future.stdout, type = "output", split = FALSE) 1563s [00:52:43.527] base::on.exit(if (!base::is.null(...future.stdout)) { 1563s [00:52:43.527] base::sink(type = "output", split = FALSE) 1563s [00:52:43.527] base::close(...future.stdout) 1563s [00:52:43.527] }, add = TRUE) 1563s [00:52:43.527] } 1563s [00:52:43.527] ...future.frame <- base::sys.nframe() 1563s [00:52:43.527] ...future.conditions <- base::list() 1563s [00:52:43.527] ...future.rng <- base::globalenv()$.Random.seed 1563s [00:52:43.527] if (FALSE) { 1563s [00:52:43.527] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1563s [00:52:43.527] "...future.value", "...future.globalenv.names", ".Random.seed") 1563s [00:52:43.527] } 1563s [00:52:43.527] ...future.result <- base::tryCatch({ 1563s [00:52:43.527] base::withCallingHandlers({ 1563s [00:52:43.527] ...future.value <- base::withVisible(base::local(NA)) 1563s [00:52:43.527] future::FutureResult(value = ...future.value$value, 1563s [00:52:43.527] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1563s [00:52:43.527] ...future.rng), globalenv = if (FALSE) 1563s [00:52:43.527] list(added = base::setdiff(base::names(base::.GlobalEnv), 1563s [00:52:43.527] ...future.globalenv.names)) 1563s [00:52:43.527] else NULL, started = ...future.startTime, version = "1.8") 1563s [00:52:43.527] }, condition = base::local({ 1563s [00:52:43.527] c <- base::c 1563s [00:52:43.527] inherits <- base::inherits 1563s [00:52:43.527] invokeRestart <- base::invokeRestart 1563s [00:52:43.527] length <- base::length 1563s [00:52:43.527] list <- base::list 1563s [00:52:43.527] seq.int <- base::seq.int 1563s [00:52:43.527] signalCondition <- base::signalCondition 1563s [00:52:43.527] sys.calls <- base::sys.calls 1563s [00:52:43.527] `[[` <- base::`[[` 1563s [00:52:43.527] `+` <- base::`+` 1563s [00:52:43.527] `<<-` <- base::`<<-` 1563s [00:52:43.527] sysCalls <- function(calls = sys.calls(), from = 1L) { 1563s [00:52:43.527] calls[seq.int(from = from + 12L, to = length(calls) - 1563s [00:52:43.527] 3L)] 1563s [00:52:43.527] } 1563s [00:52:43.527] function(cond) { 1563s [00:52:43.527] is_error <- inherits(cond, "error") 1563s [00:52:43.527] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1563s [00:52:43.527] NULL) 1563s [00:52:43.527] if (is_error) { 1563s [00:52:43.527] sessionInformation <- function() { 1563s [00:52:43.527] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1563s [00:52:43.527] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1563s [00:52:43.527] search = base::search(), system = base::Sys.info()) 1563s [00:52:43.527] } 1563s [00:52:43.527] ...future.conditions[[length(...future.conditions) + 1563s [00:52:43.527] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1563s [00:52:43.527] cond$call), session = sessionInformation(), 1563s [00:52:43.527] timestamp = base::Sys.time(), signaled = 0L) 1563s [00:52:43.527] signalCondition(cond) 1563s [00:52:43.527] } 1563s [00:52:43.527] else if (!ignore && TRUE && inherits(cond, c("condition", 1563s [00:52:43.527] "immediateCondition"))) { 1563s [00:52:43.527] signal <- TRUE && inherits(cond, "immediateCondition") 1563s [00:52:43.527] ...future.conditions[[length(...future.conditions) + 1563s [00:52:43.527] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1563s [00:52:43.527] if (TRUE && !signal) { 1563s [00:52:43.527] muffleCondition <- function (cond, pattern = "^muffle") 1563s [00:52:43.527] { 1563s [00:52:43.527] inherits <- base::inherits 1563s [00:52:43.527] invokeRestart <- base::invokeRestart 1563s [00:52:43.527] is.null <- base::is.null 1563s [00:52:43.527] muffled <- FALSE 1563s [00:52:43.527] if (inherits(cond, "message")) { 1563s [00:52:43.527] muffled <- grepl(pattern, "muffleMessage") 1563s [00:52:43.527] if (muffled) 1563s [00:52:43.527] invokeRestart("muffleMessage") 1563s [00:52:43.527] } 1563s [00:52:43.527] else if (inherits(cond, "warning")) { 1563s [00:52:43.527] muffled <- grepl(pattern, "muffleWarning") 1563s [00:52:43.527] if (muffled) 1563s [00:52:43.527] invokeRestart("muffleWarning") 1563s [00:52:43.527] } 1563s [00:52:43.527] else if (inherits(cond, "condition")) { 1563s [00:52:43.527] if (!is.null(pattern)) { 1563s [00:52:43.527] computeRestarts <- base::computeRestarts 1563s [00:52:43.527] grepl <- base::grepl 1563s [00:52:43.527] restarts <- computeRestarts(cond) 1563s [00:52:43.527] for (restart in restarts) { 1563s [00:52:43.527] name <- restart$name 1563s [00:52:43.527] if (is.null(name)) 1563s [00:52:43.527] next 1563s [00:52:43.527] if (!grepl(pattern, name)) 1563s [00:52:43.527] next 1563s [00:52:43.527] invokeRestart(restart) 1563s [00:52:43.527] muffled <- TRUE 1563s [00:52:43.527] break 1563s [00:52:43.527] } 1563s [00:52:43.527] } 1563s [00:52:43.527] } 1563s [00:52:43.527] invisible(muffled) 1563s [00:52:43.527] } 1563s [00:52:43.527] muffleCondition(cond, pattern = "^muffle") 1563s [00:52:43.527] } 1563s [00:52:43.527] } 1563s [00:52:43.527] else { 1563s [00:52:43.527] if (TRUE) { 1563s [00:52:43.527] muffleCondition <- function (cond, pattern = "^muffle") 1563s [00:52:43.527] { 1563s [00:52:43.527] inherits <- base::inherits 1563s [00:52:43.527] invokeRestart <- base::invokeRestart 1563s [00:52:43.527] is.null <- base::is.null 1563s [00:52:43.527] muffled <- FALSE 1563s [00:52:43.527] if (inherits(cond, "message")) { 1563s [00:52:43.527] muffled <- grepl(pattern, "muffleMessage") 1563s [00:52:43.527] if (muffled) 1563s [00:52:43.527] invokeRestart("muffleMessage") 1563s [00:52:43.527] } 1563s [00:52:43.527] else if (inherits(cond, "warning")) { 1563s [00:52:43.527] muffled <- grepl(pattern, "muffleWarning") 1563s [00:52:43.527] if (muffled) 1563s [00:52:43.527] invokeRestart("muffleWarning") 1563s [00:52:43.527] } 1563s [00:52:43.527] else if (inherits(cond, "condition")) { 1563s [00:52:43.527] if (!is.null(pattern)) { 1563s [00:52:43.527] computeRestarts <- base::computeRestarts 1563s [00:52:43.527] grepl <- base::grepl 1563s [00:52:43.527] restarts <- computeRestarts(cond) 1563s [00:52:43.527] for (restart in restarts) { 1563s [00:52:43.527] name <- restart$name 1563s [00:52:43.527] if (is.null(name)) 1563s [00:52:43.527] next 1563s [00:52:43.527] if (!grepl(pattern, name)) 1563s [00:52:43.527] next 1563s [00:52:43.527] invokeRestart(restart) 1563s [00:52:43.527] muffled <- TRUE 1563s [00:52:43.527] break 1563s [00:52:43.527] } 1563s [00:52:43.527] } 1563s [00:52:43.527] } 1563s [00:52:43.527] invisible(muffled) 1563s [00:52:43.527] } 1563s [00:52:43.527] muffleCondition(cond, pattern = "^muffle") 1563s [00:52:43.527] } 1563s [00:52:43.527] } 1563s [00:52:43.527] } 1563s [00:52:43.527] })) 1563s [00:52:43.527] }, error = function(ex) { 1563s [00:52:43.527] base::structure(base::list(value = NULL, visible = NULL, 1563s [00:52:43.527] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1563s [00:52:43.527] ...future.rng), started = ...future.startTime, 1563s [00:52:43.527] finished = Sys.time(), session_uuid = NA_character_, 1563s [00:52:43.527] version = "1.8"), class = "FutureResult") 1563s [00:52:43.527] }, finally = { 1563s [00:52:43.527] if (!identical(...future.workdir, getwd())) 1563s [00:52:43.527] setwd(...future.workdir) 1563s [00:52:43.527] { 1563s [00:52:43.527] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1563s [00:52:43.527] ...future.oldOptions$nwarnings <- NULL 1563s [00:52:43.527] } 1563s [00:52:43.527] base::options(...future.oldOptions) 1563s [00:52:43.527] if (.Platform$OS.type == "windows") { 1563s [00:52:43.527] old_names <- names(...future.oldEnvVars) 1563s [00:52:43.527] envs <- base::Sys.getenv() 1563s [00:52:43.527] names <- names(envs) 1563s [00:52:43.527] common <- intersect(names, old_names) 1563s [00:52:43.527] added <- setdiff(names, old_names) 1563s [00:52:43.527] removed <- setdiff(old_names, names) 1563s [00:52:43.527] changed <- common[...future.oldEnvVars[common] != 1563s [00:52:43.527] envs[common]] 1563s [00:52:43.527] NAMES <- toupper(changed) 1563s [00:52:43.527] args <- list() 1563s [00:52:43.527] for (kk in seq_along(NAMES)) { 1563s [00:52:43.527] name <- changed[[kk]] 1563s [00:52:43.527] NAME <- NAMES[[kk]] 1563s [00:52:43.527] if (name != NAME && is.element(NAME, old_names)) 1563s [00:52:43.527] next 1563s [00:52:43.527] args[[name]] <- ...future.oldEnvVars[[name]] 1563s [00:52:43.527] } 1563s [00:52:43.527] NAMES <- toupper(added) 1563s [00:52:43.527] for (kk in seq_along(NAMES)) { 1563s [00:52:43.527] name <- added[[kk]] 1563s [00:52:43.527] NAME <- NAMES[[kk]] 1563s [00:52:43.527] if (name != NAME && is.element(NAME, old_names)) 1563s [00:52:43.527] next 1563s [00:52:43.527] args[[name]] <- "" 1563s [00:52:43.527] } 1563s [00:52:43.527] NAMES <- toupper(removed) 1563s [00:52:43.527] for (kk in seq_along(NAMES)) { 1563s [00:52:43.527] name <- removed[[kk]] 1563s [00:52:43.527] NAME <- NAMES[[kk]] 1563s [00:52:43.527] if (name != NAME && is.element(NAME, old_names)) 1563s [00:52:43.527] next 1563s [00:52:43.527] args[[name]] <- ...future.oldEnvVars[[name]] 1563s [00:52:43.527] } 1563s [00:52:43.527] if (length(args) > 0) 1563s [00:52:43.527] base::do.call(base::Sys.setenv, args = args) 1563s [00:52:43.527] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1563s [00:52:43.527] } 1563s [00:52:43.527] else { 1563s [00:52:43.527] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1563s [00:52:43.527] } 1563s [00:52:43.527] { 1563s [00:52:43.527] if (base::length(...future.futureOptionsAdded) > 1563s [00:52:43.527] 0L) { 1563s [00:52:43.527] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1563s [00:52:43.527] base::names(opts) <- ...future.futureOptionsAdded 1563s [00:52:43.527] base::options(opts) 1563s [00:52:43.527] } 1563s [00:52:43.527] { 1563s [00:52:43.527] { 1563s [00:52:43.527] base::assign(".Random.seed", c(10407L, -193111136L, 1563s [00:52:43.527] 1998638665L, 1795077819L, 549408344L, 564105141L, 1563s [00:52:43.527] -308065669L), envir = base::globalenv(), 1563s [00:52:43.527] inherits = FALSE) 1563s [00:52:43.527] NULL 1563s [00:52:43.527] } 1563s [00:52:43.527] options(future.plan = NULL) 1563s [00:52:43.527] if (is.na(NA_character_)) 1563s [00:52:43.527] Sys.unsetenv("R_FUTURE_PLAN") 1563s [00:52:43.527] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1563s [00:52:43.527] future::plan(list(function (..., workers = availableCores(), 1563s [00:52:43.527] lazy = FALSE, rscript_libs = .libPaths(), 1563s [00:52:43.527] envir = parent.frame()) 1563s [00:52:43.527] { 1563s [00:52:43.527] if (is.function(workers)) 1563s [00:52:43.527] workers <- workers() 1563s [00:52:43.527] workers <- structure(as.integer(workers), 1563s [00:52:43.527] class = class(workers)) 1563s [00:52:43.527] stop_if_not(length(workers) == 1, is.finite(workers), 1563s [00:52:43.527] workers >= 1) 1563s [00:52:43.527] if (workers == 1L && !inherits(workers, "AsIs")) { 1563s [00:52:43.527] return(sequential(..., lazy = TRUE, envir = envir)) 1563s [00:52:43.527] } 1563s [00:52:43.527] future <- MultisessionFuture(..., workers = workers, 1563s [00:52:43.527] lazy = lazy, rscript_libs = rscript_libs, 1563s [00:52:43.527] envir = envir) 1563s [00:52:43.527] if (!future$lazy) 1563s [00:52:43.527] future <- run(future) 1563s [00:52:43.527] invisible(future) 1563s [00:52:43.527] }), .cleanup = FALSE, .init = FALSE) 1563s [00:52:43.527] } 1563s [00:52:43.527] } 1563s [00:52:43.527] } 1563s [00:52:43.527] }) 1563s [00:52:43.527] if (TRUE) { 1563s [00:52:43.527] base::sink(type = "output", split = FALSE) 1563s [00:52:43.527] if (TRUE) { 1563s [00:52:43.527] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1563s [00:52:43.527] } 1563s [00:52:43.527] else { 1563s [00:52:43.527] ...future.result["stdout"] <- base::list(NULL) 1563s [00:52:43.527] } 1563s [00:52:43.527] base::close(...future.stdout) 1563s [00:52:43.527] ...future.stdout <- NULL 1563s [00:52:43.527] } 1563s [00:52:43.527] ...future.result$conditions <- ...future.conditions 1563s [00:52:43.527] ...future.result$finished <- base::Sys.time() 1563s [00:52:43.527] ...future.result 1563s [00:52:43.527] } 1563s [00:52:43.532] plan(): Setting new future strategy stack: 1563s [00:52:43.532] List of future strategies: 1563s [00:52:43.532] 1. sequential: 1563s [00:52:43.532] - args: function (..., envir = parent.frame()) 1563s [00:52:43.532] - tweaked: FALSE 1563s [00:52:43.532] - call: NULL 1563s [00:52:43.532] plan(): nbrOfWorkers() = 1 1563s [00:52:43.533] plan(): Setting new future strategy stack: 1563s [00:52:43.533] List of future strategies: 1563s [00:52:43.533] 1. multisession: 1563s [00:52:43.533] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1563s [00:52:43.533] - tweaked: FALSE 1563s [00:52:43.533] - call: plan(strategy) 1563s [00:52:43.539] plan(): nbrOfWorkers() = 1 1563s [00:52:43.540] SequentialFuture started (and completed) 1563s [00:52:43.540] plan(): plan_init() of ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ ... DONE 1563s [00:52:43.543] plan(): nbrOfWorkers() = 1 1563s - From example(mapply) ... 1563s [00:52:43.544] future_mapply() ... 1563s [00:52:43.547] Number of chunks: 1 1563s [00:52:43.548] getGlobalsAndPackagesXApply() ... 1563s [00:52:43.548] - future.globals: TRUE 1563s [00:52:43.548] getGlobalsAndPackages() ... 1563s [00:52:43.548] Searching for globals... 1563s [00:52:43.549] - globals found: [1] ‘FUN’ 1563s [00:52:43.549] Searching for globals ... DONE 1563s [00:52:43.549] Resolving globals: FALSE 1563s [00:52:43.550] The total size of the 1 globals is 56 bytes (56 bytes) 1563s [00:52:43.551] The total size of the 1 globals exported for future expression (‘FUN()’) is 56 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (56 bytes of class ‘function’) 1563s [00:52:43.551] - globals: [1] ‘FUN’ 1563s [00:52:43.551] 1563s [00:52:43.551] getGlobalsAndPackages() ... DONE 1563s [00:52:43.552] - globals found/used: [n=1] ‘FUN’ 1563s [00:52:43.552] - needed namespaces: [n=0] 1563s [00:52:43.552] Finding globals ... DONE 1563s [00:52:43.552] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1563s [00:52:43.552] List of 2 1563s [00:52:43.552] $ ...future.FUN:function (x, ...) 1563s [00:52:43.552] $ MoreArgs : NULL 1563s [00:52:43.552] - attr(*, "where")=List of 2 1563s [00:52:43.552] ..$ ...future.FUN: 1563s [00:52:43.552] ..$ MoreArgs : 1563s [00:52:43.552] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1563s [00:52:43.552] - attr(*, "resolved")= logi FALSE 1563s [00:52:43.552] - attr(*, "total_size")= num NA 1563s [00:52:43.556] Packages to be attached in all futures: [n=0] 1563s [00:52:43.556] getGlobalsAndPackagesXApply() ... DONE 1563s [00:52:43.556] Number of futures (= number of chunks): 1 1563s [00:52:43.556] Launching 1 futures (chunks) ... 1563s [00:52:43.557] Chunk #1 of 1 ... 1563s [00:52:43.557] - Finding globals in '...' for chunk #1 ... 1563s [00:52:43.557] getGlobalsAndPackages() ... 1563s [00:52:43.557] Searching for globals... 1563s [00:52:43.558] 1563s [00:52:43.558] Searching for globals ... DONE 1563s [00:52:43.558] - globals: [0] 1563s [00:52:43.558] getGlobalsAndPackages() ... DONE 1563s [00:52:43.558] + additional globals found: [n=0] 1563s [00:52:43.558] + additional namespaces needed: [n=0] 1563s [00:52:43.558] - Finding globals in '...' for chunk #1 ... DONE 1563s [00:52:43.559] - seeds: 1563s [00:52:43.559] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1563s [00:52:43.559] getGlobalsAndPackages() ... 1563s [00:52:43.559] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1563s [00:52:43.559] Resolving globals: FALSE 1563s [00:52:43.560] The total size of the 5 globals is 504 bytes (504 bytes) 1563s [00:52:43.560] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 504 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.elements_ii’ (448 bytes of class ‘list’), ‘...future.FUN’ (56 bytes of class ‘function’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1563s [00:52:43.561] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1563s [00:52:43.561] 1563s [00:52:43.561] getGlobalsAndPackages() ... DONE 1563s [00:52:43.561] run() for ‘Future’ ... 1563s [00:52:43.562] - state: ‘created’ 1563s [00:52:43.562] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1563s [00:52:43.565] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1563s [00:52:43.565] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1563s [00:52:43.566] - Field: ‘label’ 1563s [00:52:43.566] - Field: ‘local’ 1563s [00:52:43.566] - Field: ‘owner’ 1563s [00:52:43.566] - Field: ‘envir’ 1563s [00:52:43.566] - Field: ‘packages’ 1563s [00:52:43.566] - Field: ‘gc’ 1563s [00:52:43.567] - Field: ‘conditions’ 1563s [00:52:43.567] - Field: ‘expr’ 1563s [00:52:43.567] - Field: ‘uuid’ 1563s [00:52:43.567] - Field: ‘seed’ 1563s [00:52:43.567] - Field: ‘version’ 1563s [00:52:43.567] - Field: ‘result’ 1563s [00:52:43.568] - Field: ‘asynchronous’ 1563s [00:52:43.568] - Field: ‘calls’ 1563s [00:52:43.568] - Field: ‘globals’ 1563s [00:52:43.568] - Field: ‘stdout’ 1563s [00:52:43.568] - Field: ‘earlySignal’ 1563s [00:52:43.568] - Field: ‘lazy’ 1563s [00:52:43.569] - Field: ‘state’ 1563s [00:52:43.569] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1563s [00:52:43.569] - Launch lazy future ... 1563s [00:52:43.569] Packages needed by the future expression (n = 0): 1563s [00:52:43.569] Packages needed by future strategies (n = 0): 1563s [00:52:43.570] { 1563s [00:52:43.570] { 1563s [00:52:43.570] { 1563s [00:52:43.570] ...future.startTime <- base::Sys.time() 1563s [00:52:43.570] { 1563s [00:52:43.570] { 1563s [00:52:43.570] { 1563s [00:52:43.570] base::local({ 1563s [00:52:43.570] has_future <- base::requireNamespace("future", 1563s [00:52:43.570] quietly = TRUE) 1563s [00:52:43.570] if (has_future) { 1563s [00:52:43.570] ns <- base::getNamespace("future") 1563s [00:52:43.570] version <- ns[[".package"]][["version"]] 1563s [00:52:43.570] if (is.null(version)) 1563s [00:52:43.570] version <- utils::packageVersion("future") 1563s [00:52:43.570] } 1563s [00:52:43.570] else { 1563s [00:52:43.570] version <- NULL 1563s [00:52:43.570] } 1563s [00:52:43.570] if (!has_future || version < "1.8.0") { 1563s [00:52:43.570] info <- base::c(r_version = base::gsub("R version ", 1563s [00:52:43.570] "", base::R.version$version.string), 1563s [00:52:43.570] platform = base::sprintf("%s (%s-bit)", 1563s [00:52:43.570] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1563s [00:52:43.570] os = base::paste(base::Sys.info()[base::c("sysname", 1563s [00:52:43.570] "release", "version")], collapse = " "), 1563s [00:52:43.570] hostname = base::Sys.info()[["nodename"]]) 1563s [00:52:43.570] info <- base::sprintf("%s: %s", base::names(info), 1563s [00:52:43.570] info) 1563s [00:52:43.570] info <- base::paste(info, collapse = "; ") 1563s [00:52:43.570] if (!has_future) { 1563s [00:52:43.570] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1563s [00:52:43.570] info) 1563s [00:52:43.570] } 1563s [00:52:43.570] else { 1563s [00:52:43.570] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1563s [00:52:43.570] info, version) 1563s [00:52:43.570] } 1563s [00:52:43.570] base::stop(msg) 1563s [00:52:43.570] } 1563s [00:52:43.570] }) 1563s [00:52:43.570] } 1563s [00:52:43.570] options(future.plan = NULL) 1563s [00:52:43.570] Sys.unsetenv("R_FUTURE_PLAN") 1563s [00:52:43.570] future::plan("default", .cleanup = FALSE, .init = FALSE) 1563s [00:52:43.570] } 1563s [00:52:43.570] ...future.workdir <- getwd() 1563s [00:52:43.570] } 1563s [00:52:43.570] ...future.oldOptions <- base::as.list(base::.Options) 1563s [00:52:43.570] ...future.oldEnvVars <- base::Sys.getenv() 1563s [00:52:43.570] } 1563s [00:52:43.570] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1563s [00:52:43.570] future.globals.maxSize = NULL, future.globals.method = NULL, 1563s [00:52:43.570] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1563s [00:52:43.570] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1563s [00:52:43.570] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1563s [00:52:43.570] future.stdout.windows.reencode = NULL, width = 80L) 1563s [00:52:43.570] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1563s [00:52:43.570] base::names(...future.oldOptions)) 1563s [00:52:43.570] } 1563s [00:52:43.570] if (FALSE) { 1563s [00:52:43.570] } 1563s [00:52:43.570] else { 1563s [00:52:43.570] if (TRUE) { 1563s [00:52:43.570] ...future.stdout <- base::rawConnection(base::raw(0L), 1563s [00:52:43.570] open = "w") 1563s [00:52:43.570] } 1563s [00:52:43.570] else { 1563s [00:52:43.570] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1563s [00:52:43.570] windows = "NUL", "/dev/null"), open = "w") 1563s [00:52:43.570] } 1563s [00:52:43.570] base::sink(...future.stdout, type = "output", split = FALSE) 1563s [00:52:43.570] base::on.exit(if (!base::is.null(...future.stdout)) { 1563s [00:52:43.570] base::sink(type = "output", split = FALSE) 1563s [00:52:43.570] base::close(...future.stdout) 1563s [00:52:43.570] }, add = TRUE) 1563s [00:52:43.570] } 1563s [00:52:43.570] ...future.frame <- base::sys.nframe() 1563s [00:52:43.570] ...future.conditions <- base::list() 1563s [00:52:43.570] ...future.rng <- base::globalenv()$.Random.seed 1563s [00:52:43.570] if (FALSE) { 1563s [00:52:43.570] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1563s [00:52:43.570] "...future.value", "...future.globalenv.names", ".Random.seed") 1563s [00:52:43.570] } 1563s [00:52:43.570] ...future.result <- base::tryCatch({ 1563s [00:52:43.570] base::withCallingHandlers({ 1563s [00:52:43.570] ...future.value <- base::withVisible(base::local({ 1563s [00:52:43.570] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1563s [00:52:43.570] if (!identical(...future.globals.maxSize.org, 1563s [00:52:43.570] ...future.globals.maxSize)) { 1563s [00:52:43.570] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1563s [00:52:43.570] on.exit(options(oopts), add = TRUE) 1563s [00:52:43.570] } 1563s [00:52:43.570] { 1563s [00:52:43.570] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1563s [00:52:43.570] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1563s [00:52:43.570] USE.NAMES = FALSE) 1563s [00:52:43.570] do.call(mapply, args = args) 1563s [00:52:43.570] } 1563s [00:52:43.570] })) 1563s [00:52:43.570] future::FutureResult(value = ...future.value$value, 1563s [00:52:43.570] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1563s [00:52:43.570] ...future.rng), globalenv = if (FALSE) 1563s [00:52:43.570] list(added = base::setdiff(base::names(base::.GlobalEnv), 1563s [00:52:43.570] ...future.globalenv.names)) 1563s [00:52:43.570] else NULL, started = ...future.startTime, version = "1.8") 1563s [00:52:43.570] }, condition = base::local({ 1563s [00:52:43.570] c <- base::c 1563s [00:52:43.570] inherits <- base::inherits 1563s [00:52:43.570] invokeRestart <- base::invokeRestart 1563s [00:52:43.570] length <- base::length 1563s [00:52:43.570] list <- base::list 1563s [00:52:43.570] seq.int <- base::seq.int 1563s [00:52:43.570] signalCondition <- base::signalCondition 1563s [00:52:43.570] sys.calls <- base::sys.calls 1563s [00:52:43.570] `[[` <- base::`[[` 1563s [00:52:43.570] `+` <- base::`+` 1563s [00:52:43.570] `<<-` <- base::`<<-` 1563s [00:52:43.570] sysCalls <- function(calls = sys.calls(), from = 1L) { 1563s [00:52:43.570] calls[seq.int(from = from + 12L, to = length(calls) - 1563s [00:52:43.570] 3L)] 1563s [00:52:43.570] } 1563s [00:52:43.570] function(cond) { 1563s [00:52:43.570] is_error <- inherits(cond, "error") 1563s [00:52:43.570] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1563s [00:52:43.570] NULL) 1563s [00:52:43.570] if (is_error) { 1563s [00:52:43.570] sessionInformation <- function() { 1563s [00:52:43.570] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1563s [00:52:43.570] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1563s [00:52:43.570] search = base::search(), system = base::Sys.info()) 1563s [00:52:43.570] } 1563s [00:52:43.570] ...future.conditions[[length(...future.conditions) + 1563s [00:52:43.570] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1563s [00:52:43.570] cond$call), session = sessionInformation(), 1563s [00:52:43.570] timestamp = base::Sys.time(), signaled = 0L) 1563s [00:52:43.570] signalCondition(cond) 1563s [00:52:43.570] } 1563s [00:52:43.570] else if (!ignore && TRUE && inherits(cond, c("condition", 1563s [00:52:43.570] "immediateCondition"))) { 1563s [00:52:43.570] signal <- TRUE && inherits(cond, "immediateCondition") 1563s [00:52:43.570] ...future.conditions[[length(...future.conditions) + 1563s [00:52:43.570] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1563s [00:52:43.570] if (TRUE && !signal) { 1563s [00:52:43.570] muffleCondition <- function (cond, pattern = "^muffle") 1563s [00:52:43.570] { 1563s [00:52:43.570] inherits <- base::inherits 1563s [00:52:43.570] invokeRestart <- base::invokeRestart 1563s [00:52:43.570] is.null <- base::is.null 1563s [00:52:43.570] muffled <- FALSE 1563s [00:52:43.570] if (inherits(cond, "message")) { 1563s [00:52:43.570] muffled <- grepl(pattern, "muffleMessage") 1563s [00:52:43.570] if (muffled) 1563s [00:52:43.570] invokeRestart("muffleMessage") 1563s [00:52:43.570] } 1563s [00:52:43.570] else if (inherits(cond, "warning")) { 1563s [00:52:43.570] muffled <- grepl(pattern, "muffleWarning") 1563s [00:52:43.570] if (muffled) 1563s [00:52:43.570] invokeRestart("muffleWarning") 1563s [00:52:43.570] } 1563s [00:52:43.570] else if (inherits(cond, "condition")) { 1563s [00:52:43.570] if (!is.null(pattern)) { 1563s [00:52:43.570] computeRestarts <- base::computeRestarts 1563s [00:52:43.570] grepl <- base::grepl 1563s [00:52:43.570] restarts <- computeRestarts(cond) 1563s [00:52:43.570] for (restart in restarts) { 1563s [00:52:43.570] name <- restart$name 1563s [00:52:43.570] if (is.null(name)) 1563s [00:52:43.570] next 1563s [00:52:43.570] if (!grepl(pattern, name)) 1563s [00:52:43.570] next 1563s [00:52:43.570] invokeRestart(restart) 1563s [00:52:43.570] muffled <- TRUE 1563s [00:52:43.570] break 1563s [00:52:43.570] } 1563s [00:52:43.570] } 1563s [00:52:43.570] } 1563s [00:52:43.570] invisible(muffled) 1563s [00:52:43.570] } 1563s [00:52:43.570] muffleCondition(cond, pattern = "^muffle") 1563s [00:52:43.570] } 1563s [00:52:43.570] } 1563s [00:52:43.570] else { 1563s [00:52:43.570] if (TRUE) { 1563s [00:52:43.570] muffleCondition <- function (cond, pattern = "^muffle") 1563s [00:52:43.570] { 1563s [00:52:43.570] inherits <- base::inherits 1563s [00:52:43.570] invokeRestart <- base::invokeRestart 1563s [00:52:43.570] is.null <- base::is.null 1563s [00:52:43.570] muffled <- FALSE 1563s [00:52:43.570] if (inherits(cond, "message")) { 1563s [00:52:43.570] muffled <- grepl(pattern, "muffleMessage") 1563s [00:52:43.570] if (muffled) 1563s [00:52:43.570] invokeRestart("muffleMessage") 1563s [00:52:43.570] } 1563s [00:52:43.570] else if (inherits(cond, "warning")) { 1563s [00:52:43.570] muffled <- grepl(pattern, "muffleWarning") 1563s [00:52:43.570] if (muffled) 1563s [00:52:43.570] invokeRestart("muffleWarning") 1563s [00:52:43.570] } 1563s [00:52:43.570] else if (inherits(cond, "condition")) { 1563s [00:52:43.570] if (!is.null(pattern)) { 1563s [00:52:43.570] computeRestarts <- base::computeRestarts 1563s [00:52:43.570] grepl <- base::grepl 1563s [00:52:43.570] restarts <- computeRestarts(cond) 1563s [00:52:43.570] for (restart in restarts) { 1563s [00:52:43.570] name <- restart$name 1563s [00:52:43.570] if (is.null(name)) 1563s [00:52:43.570] next 1563s [00:52:43.570] if (!grepl(pattern, name)) 1563s [00:52:43.570] next 1563s [00:52:43.570] invokeRestart(restart) 1563s [00:52:43.570] muffled <- TRUE 1563s [00:52:43.570] break 1563s [00:52:43.570] } 1563s [00:52:43.570] } 1563s [00:52:43.570] } 1563s [00:52:43.570] invisible(muffled) 1563s [00:52:43.570] } 1563s [00:52:43.570] muffleCondition(cond, pattern = "^muffle") 1563s [00:52:43.570] } 1563s [00:52:43.570] } 1563s [00:52:43.570] } 1563s [00:52:43.570] })) 1563s [00:52:43.570] }, error = function(ex) { 1563s [00:52:43.570] base::structure(base::list(value = NULL, visible = NULL, 1563s [00:52:43.570] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1563s [00:52:43.570] ...future.rng), started = ...future.startTime, 1563s [00:52:43.570] finished = Sys.time(), session_uuid = NA_character_, 1563s [00:52:43.570] version = "1.8"), class = "FutureResult") 1563s [00:52:43.570] }, finally = { 1563s [00:52:43.570] if (!identical(...future.workdir, getwd())) 1563s [00:52:43.570] setwd(...future.workdir) 1563s [00:52:43.570] { 1563s [00:52:43.570] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1563s [00:52:43.570] ...future.oldOptions$nwarnings <- NULL 1563s [00:52:43.570] } 1563s [00:52:43.570] base::options(...future.oldOptions) 1563s [00:52:43.570] if (.Platform$OS.type == "windows") { 1563s [00:52:43.570] old_names <- names(...future.oldEnvVars) 1563s [00:52:43.570] envs <- base::Sys.getenv() 1563s [00:52:43.570] names <- names(envs) 1563s [00:52:43.570] common <- intersect(names, old_names) 1563s [00:52:43.570] added <- setdiff(names, old_names) 1563s [00:52:43.570] removed <- setdiff(old_names, names) 1563s [00:52:43.570] changed <- common[...future.oldEnvVars[common] != 1563s [00:52:43.570] envs[common]] 1563s [00:52:43.570] NAMES <- toupper(changed) 1563s [00:52:43.570] args <- list() 1563s [00:52:43.570] for (kk in seq_along(NAMES)) { 1563s [00:52:43.570] name <- changed[[kk]] 1563s [00:52:43.570] NAME <- NAMES[[kk]] 1563s [00:52:43.570] if (name != NAME && is.element(NAME, old_names)) 1563s [00:52:43.570] next 1563s [00:52:43.570] args[[name]] <- ...future.oldEnvVars[[name]] 1563s [00:52:43.570] } 1563s [00:52:43.570] NAMES <- toupper(added) 1563s [00:52:43.570] for (kk in seq_along(NAMES)) { 1563s [00:52:43.570] name <- added[[kk]] 1563s [00:52:43.570] NAME <- NAMES[[kk]] 1563s [00:52:43.570] if (name != NAME && is.element(NAME, old_names)) 1563s [00:52:43.570] next 1563s [00:52:43.570] args[[name]] <- "" 1563s [00:52:43.570] } 1563s [00:52:43.570] NAMES <- toupper(removed) 1563s [00:52:43.570] for (kk in seq_along(NAMES)) { 1563s [00:52:43.570] name <- removed[[kk]] 1563s [00:52:43.570] NAME <- NAMES[[kk]] 1563s [00:52:43.570] if (name != NAME && is.element(NAME, old_names)) 1563s [00:52:43.570] next 1563s [00:52:43.570] args[[name]] <- ...future.oldEnvVars[[name]] 1563s [00:52:43.570] } 1563s [00:52:43.570] if (length(args) > 0) 1563s [00:52:43.570] base::do.call(base::Sys.setenv, args = args) 1563s [00:52:43.570] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1563s [00:52:43.570] } 1563s [00:52:43.570] else { 1563s [00:52:43.570] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1563s [00:52:43.570] } 1563s [00:52:43.570] { 1563s [00:52:43.570] if (base::length(...future.futureOptionsAdded) > 1563s [00:52:43.570] 0L) { 1563s [00:52:43.570] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1563s [00:52:43.570] base::names(opts) <- ...future.futureOptionsAdded 1563s [00:52:43.570] base::options(opts) 1563s [00:52:43.570] } 1563s [00:52:43.570] { 1563s [00:52:43.570] { 1563s [00:52:43.570] base::assign(".Random.seed", c(10407L, -193111136L, 1563s [00:52:43.570] 1998638665L, 1795077819L, 549408344L, 564105141L, 1563s [00:52:43.570] -308065669L), envir = base::globalenv(), 1563s [00:52:43.570] inherits = FALSE) 1563s [00:52:43.570] NULL 1563s [00:52:43.570] } 1563s [00:52:43.570] options(future.plan = NULL) 1563s [00:52:43.570] if (is.na(NA_character_)) 1563s [00:52:43.570] Sys.unsetenv("R_FUTURE_PLAN") 1563s [00:52:43.570] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1563s [00:52:43.570] future::plan(list(function (..., workers = availableCores(), 1563s [00:52:43.570] lazy = FALSE, rscript_libs = .libPaths(), 1563s [00:52:43.570] envir = parent.frame()) 1563s [00:52:43.570] { 1563s [00:52:43.570] if (is.function(workers)) 1563s [00:52:43.570] workers <- workers() 1563s [00:52:43.570] workers <- structure(as.integer(workers), 1563s [00:52:43.570] class = class(workers)) 1563s [00:52:43.570] stop_if_not(length(workers) == 1, is.finite(workers), 1563s [00:52:43.570] workers >= 1) 1563s [00:52:43.570] if (workers == 1L && !inherits(workers, "AsIs")) { 1563s [00:52:43.570] return(sequential(..., lazy = TRUE, envir = envir)) 1563s [00:52:43.570] } 1563s [00:52:43.570] future <- MultisessionFuture(..., workers = workers, 1563s [00:52:43.570] lazy = lazy, rscript_libs = rscript_libs, 1563s [00:52:43.570] envir = envir) 1563s [00:52:43.570] if (!future$lazy) 1563s [00:52:43.570] future <- run(future) 1563s [00:52:43.570] invisible(future) 1563s [00:52:43.570] }), .cleanup = FALSE, .init = FALSE) 1563s [00:52:43.570] } 1563s [00:52:43.570] } 1563s [00:52:43.570] } 1563s [00:52:43.570] }) 1563s [00:52:43.570] if (TRUE) { 1563s [00:52:43.570] base::sink(type = "output", split = FALSE) 1563s [00:52:43.570] if (TRUE) { 1563s [00:52:43.570] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1563s [00:52:43.570] } 1563s [00:52:43.570] else { 1563s [00:52:43.570] ...future.result["stdout"] <- base::list(NULL) 1563s [00:52:43.570] } 1563s [00:52:43.570] base::close(...future.stdout) 1563s [00:52:43.570] ...future.stdout <- NULL 1563s [00:52:43.570] } 1563s [00:52:43.570] ...future.result$conditions <- ...future.conditions 1563s [00:52:43.570] ...future.result$finished <- base::Sys.time() 1563s [00:52:43.570] ...future.result 1563s [00:52:43.570] } 1563s [00:52:43.573] assign_globals() ... 1563s [00:52:43.573] List of 5 1563s [00:52:43.573] $ ...future.FUN :function (x, ...) 1563s [00:52:43.573] $ MoreArgs : NULL 1563s [00:52:43.573] $ ...future.elements_ii :List of 2 1563s [00:52:43.573] ..$ :List of 4 1563s [00:52:43.573] .. ..$ : int 1 1563s [00:52:43.573] .. ..$ : int 2 1563s [00:52:43.573] .. ..$ : int 3 1563s [00:52:43.573] .. ..$ : int 4 1563s [00:52:43.573] ..$ :List of 4 1563s [00:52:43.573] .. ..$ : int 4 1563s [00:52:43.573] .. ..$ : int 3 1563s [00:52:43.573] .. ..$ : int 2 1563s [00:52:43.573] .. ..$ : int 1 1563s [00:52:43.573] $ ...future.seeds_ii : NULL 1563s [00:52:43.573] $ ...future.globals.maxSize: NULL 1563s [00:52:43.573] - attr(*, "where")=List of 5 1563s [00:52:43.573] ..$ ...future.FUN : 1563s [00:52:43.573] ..$ MoreArgs : 1563s [00:52:43.573] ..$ ...future.elements_ii : 1563s [00:52:43.573] ..$ ...future.seeds_ii : 1563s [00:52:43.573] ..$ ...future.globals.maxSize: 1563s [00:52:43.573] - attr(*, "resolved")= logi FALSE 1563s [00:52:43.573] - attr(*, "total_size")= num 504 1563s [00:52:43.573] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1563s [00:52:43.573] - attr(*, "already-done")= logi TRUE 1563s [00:52:43.587] - copied ‘...future.FUN’ to environment 1563s [00:52:43.587] - copied ‘MoreArgs’ to environment 1563s [00:52:43.587] - copied ‘...future.elements_ii’ to environment 1563s [00:52:43.587] - copied ‘...future.seeds_ii’ to environment 1563s [00:52:43.588] - copied ‘...future.globals.maxSize’ to environment 1563s [00:52:43.588] assign_globals() ... done 1563s [00:52:43.588] plan(): Setting new future strategy stack: 1563s [00:52:43.589] List of future strategies: 1563s [00:52:43.589] 1. sequential: 1563s [00:52:43.589] - args: function (..., envir = parent.frame()) 1563s [00:52:43.589] - tweaked: FALSE 1563s [00:52:43.589] - call: NULL 1563s [00:52:43.590] plan(): nbrOfWorkers() = 1 1563s [00:52:43.591] plan(): Setting new future strategy stack: 1563s [00:52:43.591] List of future strategies: 1563s [00:52:43.591] 1. multisession: 1563s [00:52:43.591] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1563s [00:52:43.591] - tweaked: FALSE 1563s [00:52:43.591] - call: plan(strategy) 1563s [00:52:43.595] plan(): nbrOfWorkers() = 1 1563s [00:52:43.595] SequentialFuture started (and completed) 1563s [00:52:43.596] - Launch lazy future ... done 1563s [00:52:43.596] run() for ‘SequentialFuture’ ... done 1563s [00:52:43.596] Created future: 1563s [00:52:43.596] SequentialFuture: 1563s [00:52:43.596] Label: ‘future_mapply-1’ 1563s [00:52:43.596] Expression: 1563s [00:52:43.596] { 1563s [00:52:43.596] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1563s [00:52:43.596] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1563s [00:52:43.596] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1563s [00:52:43.596] on.exit(options(oopts), add = TRUE) 1563s [00:52:43.596] } 1563s [00:52:43.596] { 1563s [00:52:43.596] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1563s [00:52:43.596] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1563s [00:52:43.596] do.call(mapply, args = args) 1563s [00:52:43.596] } 1563s [00:52:43.596] } 1563s [00:52:43.596] Lazy evaluation: FALSE 1563s [00:52:43.596] Asynchronous evaluation: FALSE 1563s [00:52:43.596] Local evaluation: TRUE 1563s [00:52:43.596] Environment: R_GlobalEnv 1563s [00:52:43.596] Capture standard output: TRUE 1563s [00:52:43.596] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1563s [00:52:43.596] Globals: 5 objects totaling 504 bytes (function ‘...future.FUN’ of 56 bytes, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 448 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1563s [00:52:43.596] Packages: 1563s [00:52:43.596] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1563s [00:52:43.596] Resolved: TRUE 1563s [00:52:43.596] Value: 240 bytes of class ‘list’ 1563s [00:52:43.596] Early signaling: FALSE 1563s [00:52:43.596] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1563s [00:52:43.596] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1563s [00:52:43.598] Chunk #1 of 1 ... DONE 1563s [00:52:43.598] Launching 1 futures (chunks) ... DONE 1563s [00:52:43.599] Resolving 1 futures (chunks) ... 1563s [00:52:43.599] resolve() on list ... 1563s [00:52:43.599] recursive: 0 1563s [00:52:43.600] length: 1 1563s [00:52:43.600] 1563s [00:52:43.600] resolved() for ‘SequentialFuture’ ... 1563s [00:52:43.600] - state: ‘finished’ 1563s [00:52:43.600] - run: TRUE 1563s [00:52:43.601] - result: ‘FutureResult’ 1563s [00:52:43.601] resolved() for ‘SequentialFuture’ ... done 1563s [00:52:43.601] Future #1 1563s [00:52:43.601] signalConditionsASAP(SequentialFuture, pos=1) ... 1563s [00:52:43.601] - nx: 1 1563s [00:52:43.602] - relay: TRUE 1563s [00:52:43.602] - stdout: TRUE 1563s [00:52:43.602] - signal: TRUE 1563s [00:52:43.602] - resignal: FALSE 1563s [00:52:43.602] - force: TRUE 1563s [00:52:43.602] - relayed: [n=1] FALSE 1563s [00:52:43.603] - queued futures: [n=1] FALSE 1563s [00:52:43.603] - until=1 1563s [00:52:43.603] - relaying element #1 1563s [00:52:43.603] - relayed: [n=1] TRUE 1563s [00:52:43.604] - queued futures: [n=1] TRUE 1563s [00:52:43.604] signalConditionsASAP(SequentialFuture, pos=1) ... done 1563s [00:52:43.604] length: 0 (resolved future 1) 1563s [00:52:43.605] Relaying remaining futures 1563s [00:52:43.605] signalConditionsASAP(NULL, pos=0) ... 1563s [00:52:43.605] - nx: 1 1563s [00:52:43.605] - relay: TRUE 1563s [00:52:43.605] - stdout: TRUE 1563s [00:52:43.606] - signal: TRUE 1563s [00:52:43.606] - resignal: FALSE 1563s [00:52:43.606] - force: TRUE 1563s [00:52:43.606] - relayed: [n=1] TRUE 1563s [00:52:43.606] - queued futures: [n=1] TRUE 1563s - flush all 1563s [00:52:43.607] - relayed: [n=1] TRUE 1563s [00:52:43.607] - queued futures: [n=1] TRUE 1563s [00:52:43.607] signalConditionsASAP(NULL, pos=0) ... done 1563s [00:52:43.607] resolve() on list ... DONE 1563s [00:52:43.607] - Number of value chunks collected: 1 1563s [00:52:43.607] Resolving 1 futures (chunks) ... DONE 1563s [00:52:43.608] Reducing values from 1 chunks ... 1563s [00:52:43.608] - Number of values collected after concatenation: 4 1563s [00:52:43.608] - Number of values expected: 4 1563s [00:52:43.608] Reducing values from 1 chunks ... DONE 1563s [00:52:43.608] future_mapply() ... DONE 1563s [00:52:43.608] future_mapply() ... 1563s [00:52:43.612] Number of chunks: 1 1563s [00:52:43.613] getGlobalsAndPackagesXApply() ... 1563s [00:52:43.613] - future.globals: TRUE 1563s [00:52:43.613] getGlobalsAndPackages() ... 1563s [00:52:43.613] Searching for globals... 1563s [00:52:43.614] - globals found: [1] ‘FUN’ 1563s [00:52:43.615] Searching for globals ... DONE 1563s [00:52:43.615] Resolving globals: FALSE 1563s [00:52:43.616] The total size of the 1 globals is 56 bytes (56 bytes) 1563s [00:52:43.616] The total size of the 1 globals exported for future expression (‘FUN()’) is 56 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (56 bytes of class ‘function’) 1563s [00:52:43.617] - globals: [1] ‘FUN’ 1563s [00:52:43.617] 1563s [00:52:43.617] getGlobalsAndPackages() ... DONE 1563s [00:52:43.617] - globals found/used: [n=1] ‘FUN’ 1563s [00:52:43.617] - needed namespaces: [n=0] 1563s [00:52:43.617] Finding globals ... DONE 1563s [00:52:43.618] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1563s [00:52:43.618] List of 2 1563s [00:52:43.618] $ ...future.FUN:function (x, ...) 1563s [00:52:43.618] $ MoreArgs : NULL 1563s [00:52:43.618] - attr(*, "where")=List of 2 1563s [00:52:43.618] ..$ ...future.FUN: 1563s [00:52:43.618] ..$ MoreArgs : 1563s [00:52:43.618] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1563s [00:52:43.618] - attr(*, "resolved")= logi FALSE 1563s [00:52:43.618] - attr(*, "total_size")= num NA 1563s [00:52:43.626] Packages to be attached in all futures: [n=0] 1563s [00:52:43.626] getGlobalsAndPackagesXApply() ... DONE 1563s [00:52:43.626] Number of futures (= number of chunks): 1 1563s [00:52:43.626] Launching 1 futures (chunks) ... 1563s [00:52:43.626] Chunk #1 of 1 ... 1563s [00:52:43.627] - Finding globals in '...' for chunk #1 ... 1563s [00:52:43.627] getGlobalsAndPackages() ... 1563s [00:52:43.627] Searching for globals... 1563s [00:52:43.627] 1563s [00:52:43.627] Searching for globals ... DONE 1563s [00:52:43.628] - globals: [0] 1563s [00:52:43.628] getGlobalsAndPackages() ... DONE 1563s [00:52:43.628] + additional globals found: [n=0] 1563s [00:52:43.628] + additional namespaces needed: [n=0] 1563s [00:52:43.628] - Finding globals in '...' for chunk #1 ... DONE 1563s [00:52:43.628] - seeds: 1563s [00:52:43.628] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1563s [00:52:43.629] getGlobalsAndPackages() ... 1563s [00:52:43.629] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1563s [00:52:43.629] Resolving globals: FALSE 1563s [00:52:43.630] The total size of the 5 globals is 504 bytes (504 bytes) 1563s [00:52:43.631] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 504 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.elements_ii’ (448 bytes of class ‘list’), ‘...future.FUN’ (56 bytes of class ‘function’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1563s [00:52:43.631] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1563s [00:52:43.632] 1563s [00:52:43.632] getGlobalsAndPackages() ... DONE 1563s [00:52:43.632] run() for ‘Future’ ... 1563s [00:52:43.633] - state: ‘created’ 1563s [00:52:43.633] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1563s [00:52:43.638] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1563s [00:52:43.638] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1563s [00:52:43.638] - Field: ‘label’ 1563s [00:52:43.638] - Field: ‘local’ 1563s [00:52:43.639] - Field: ‘owner’ 1563s [00:52:43.639] - Field: ‘envir’ 1563s [00:52:43.639] - Field: ‘packages’ 1563s [00:52:43.641] - Field: ‘gc’ 1563s [00:52:43.641] - Field: ‘conditions’ 1563s [00:52:43.641] - Field: ‘expr’ 1563s [00:52:43.642] - Field: ‘uuid’ 1563s [00:52:43.642] - Field: ‘seed’ 1563s [00:52:43.642] - Field: ‘version’ 1563s [00:52:43.642] - Field: ‘result’ 1563s [00:52:43.642] - Field: ‘asynchronous’ 1563s [00:52:43.642] - Field: ‘calls’ 1563s [00:52:43.643] - Field: ‘globals’ 1563s [00:52:43.643] - Field: ‘stdout’ 1563s [00:52:43.643] - Field: ‘earlySignal’ 1563s [00:52:43.643] - Field: ‘lazy’ 1563s [00:52:43.643] - Field: ‘state’ 1563s [00:52:43.643] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1563s [00:52:43.644] - Launch lazy future ... 1563s [00:52:43.644] Packages needed by the future expression (n = 0): 1563s [00:52:43.644] Packages needed by future strategies (n = 0): 1563s [00:52:43.645] { 1563s [00:52:43.645] { 1563s [00:52:43.645] { 1563s [00:52:43.645] ...future.startTime <- base::Sys.time() 1563s [00:52:43.645] { 1563s [00:52:43.645] { 1563s [00:52:43.645] { 1563s [00:52:43.645] base::local({ 1563s [00:52:43.645] has_future <- base::requireNamespace("future", 1563s [00:52:43.645] quietly = TRUE) 1563s [00:52:43.645] if (has_future) { 1563s [00:52:43.645] ns <- base::getNamespace("future") 1563s [00:52:43.645] version <- ns[[".package"]][["version"]] 1563s [00:52:43.645] if (is.null(version)) 1563s [00:52:43.645] version <- utils::packageVersion("future") 1563s [00:52:43.645] } 1563s [00:52:43.645] else { 1563s [00:52:43.645] version <- NULL 1563s [00:52:43.645] } 1563s [00:52:43.645] if (!has_future || version < "1.8.0") { 1563s [00:52:43.645] info <- base::c(r_version = base::gsub("R version ", 1563s [00:52:43.645] "", base::R.version$version.string), 1563s [00:52:43.645] platform = base::sprintf("%s (%s-bit)", 1563s [00:52:43.645] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1563s [00:52:43.645] os = base::paste(base::Sys.info()[base::c("sysname", 1563s [00:52:43.645] "release", "version")], collapse = " "), 1563s [00:52:43.645] hostname = base::Sys.info()[["nodename"]]) 1563s [00:52:43.645] info <- base::sprintf("%s: %s", base::names(info), 1563s [00:52:43.645] info) 1563s [00:52:43.645] info <- base::paste(info, collapse = "; ") 1563s [00:52:43.645] if (!has_future) { 1563s [00:52:43.645] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1563s [00:52:43.645] info) 1563s [00:52:43.645] } 1563s [00:52:43.645] else { 1563s [00:52:43.645] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1563s [00:52:43.645] info, version) 1563s [00:52:43.645] } 1563s [00:52:43.645] base::stop(msg) 1563s [00:52:43.645] } 1563s [00:52:43.645] }) 1563s [00:52:43.645] } 1563s [00:52:43.645] options(future.plan = NULL) 1563s [00:52:43.645] Sys.unsetenv("R_FUTURE_PLAN") 1563s [00:52:43.645] future::plan("default", .cleanup = FALSE, .init = FALSE) 1563s [00:52:43.645] } 1563s [00:52:43.645] ...future.workdir <- getwd() 1563s [00:52:43.645] } 1563s [00:52:43.645] ...future.oldOptions <- base::as.list(base::.Options) 1563s [00:52:43.645] ...future.oldEnvVars <- base::Sys.getenv() 1563s [00:52:43.645] } 1563s [00:52:43.645] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1563s [00:52:43.645] future.globals.maxSize = NULL, future.globals.method = NULL, 1563s [00:52:43.645] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1563s [00:52:43.645] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1563s [00:52:43.645] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1563s [00:52:43.645] future.stdout.windows.reencode = NULL, width = 80L) 1563s [00:52:43.645] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1563s [00:52:43.645] base::names(...future.oldOptions)) 1563s [00:52:43.645] } 1563s [00:52:43.645] if (FALSE) { 1563s [00:52:43.645] } 1563s [00:52:43.645] else { 1563s [00:52:43.645] if (TRUE) { 1563s [00:52:43.645] ...future.stdout <- base::rawConnection(base::raw(0L), 1563s [00:52:43.645] open = "w") 1563s [00:52:43.645] } 1563s [00:52:43.645] else { 1563s [00:52:43.645] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1563s [00:52:43.645] windows = "NUL", "/dev/null"), open = "w") 1563s [00:52:43.645] } 1563s [00:52:43.645] base::sink(...future.stdout, type = "output", split = FALSE) 1563s [00:52:43.645] base::on.exit(if (!base::is.null(...future.stdout)) { 1563s [00:52:43.645] base::sink(type = "output", split = FALSE) 1563s [00:52:43.645] base::close(...future.stdout) 1563s [00:52:43.645] }, add = TRUE) 1563s [00:52:43.645] } 1563s [00:52:43.645] ...future.frame <- base::sys.nframe() 1563s [00:52:43.645] ...future.conditions <- base::list() 1563s [00:52:43.645] ...future.rng <- base::globalenv()$.Random.seed 1563s [00:52:43.645] if (FALSE) { 1563s [00:52:43.645] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1563s [00:52:43.645] "...future.value", "...future.globalenv.names", ".Random.seed") 1563s [00:52:43.645] } 1563s [00:52:43.645] ...future.result <- base::tryCatch({ 1563s [00:52:43.645] base::withCallingHandlers({ 1563s [00:52:43.645] ...future.value <- base::withVisible(base::local({ 1563s [00:52:43.645] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1563s [00:52:43.645] if (!identical(...future.globals.maxSize.org, 1563s [00:52:43.645] ...future.globals.maxSize)) { 1563s [00:52:43.645] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1563s [00:52:43.645] on.exit(options(oopts), add = TRUE) 1563s [00:52:43.645] } 1563s [00:52:43.645] { 1563s [00:52:43.645] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1563s [00:52:43.645] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1563s [00:52:43.645] USE.NAMES = FALSE) 1563s [00:52:43.645] do.call(mapply, args = args) 1563s [00:52:43.645] } 1563s [00:52:43.645] })) 1563s [00:52:43.645] future::FutureResult(value = ...future.value$value, 1563s [00:52:43.645] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1563s [00:52:43.645] ...future.rng), globalenv = if (FALSE) 1563s [00:52:43.645] list(added = base::setdiff(base::names(base::.GlobalEnv), 1563s [00:52:43.645] ...future.globalenv.names)) 1563s [00:52:43.645] else NULL, started = ...future.startTime, version = "1.8") 1563s [00:52:43.645] }, condition = base::local({ 1563s [00:52:43.645] c <- base::c 1563s [00:52:43.645] inherits <- base::inherits 1563s [00:52:43.645] invokeRestart <- base::invokeRestart 1563s [00:52:43.645] length <- base::length 1563s [00:52:43.645] list <- base::list 1563s [00:52:43.645] seq.int <- base::seq.int 1563s [00:52:43.645] signalCondition <- base::signalCondition 1563s [00:52:43.645] sys.calls <- base::sys.calls 1563s [00:52:43.645] `[[` <- base::`[[` 1563s [00:52:43.645] `+` <- base::`+` 1563s [00:52:43.645] `<<-` <- base::`<<-` 1563s [00:52:43.645] sysCalls <- function(calls = sys.calls(), from = 1L) { 1563s [00:52:43.645] calls[seq.int(from = from + 12L, to = length(calls) - 1563s [00:52:43.645] 3L)] 1563s [00:52:43.645] } 1563s [00:52:43.645] function(cond) { 1563s [00:52:43.645] is_error <- inherits(cond, "error") 1563s [00:52:43.645] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1563s [00:52:43.645] NULL) 1563s [00:52:43.645] if (is_error) { 1563s [00:52:43.645] sessionInformation <- function() { 1563s [00:52:43.645] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1563s [00:52:43.645] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1563s [00:52:43.645] search = base::search(), system = base::Sys.info()) 1563s [00:52:43.645] } 1563s [00:52:43.645] ...future.conditions[[length(...future.conditions) + 1563s [00:52:43.645] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1563s [00:52:43.645] cond$call), session = sessionInformation(), 1563s [00:52:43.645] timestamp = base::Sys.time(), signaled = 0L) 1563s [00:52:43.645] signalCondition(cond) 1563s [00:52:43.645] } 1563s [00:52:43.645] else if (!ignore && TRUE && inherits(cond, c("condition", 1563s [00:52:43.645] "immediateCondition"))) { 1563s [00:52:43.645] signal <- TRUE && inherits(cond, "immediateCondition") 1563s [00:52:43.645] ...future.conditions[[length(...future.conditions) + 1563s [00:52:43.645] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1563s [00:52:43.645] if (TRUE && !signal) { 1563s [00:52:43.645] muffleCondition <- function (cond, pattern = "^muffle") 1563s [00:52:43.645] { 1563s [00:52:43.645] inherits <- base::inherits 1563s [00:52:43.645] invokeRestart <- base::invokeRestart 1563s [00:52:43.645] is.null <- base::is.null 1563s [00:52:43.645] muffled <- FALSE 1563s [00:52:43.645] if (inherits(cond, "message")) { 1563s [00:52:43.645] muffled <- grepl(pattern, "muffleMessage") 1563s [00:52:43.645] if (muffled) 1563s [00:52:43.645] invokeRestart("muffleMessage") 1563s [00:52:43.645] } 1563s [00:52:43.645] else if (inherits(cond, "warning")) { 1563s [00:52:43.645] muffled <- grepl(pattern, "muffleWarning") 1563s [00:52:43.645] if (muffled) 1563s [00:52:43.645] invokeRestart("muffleWarning") 1563s [00:52:43.645] } 1563s [00:52:43.645] else if (inherits(cond, "condition")) { 1563s [00:52:43.645] if (!is.null(pattern)) { 1563s [00:52:43.645] computeRestarts <- base::computeRestarts 1563s [00:52:43.645] grepl <- base::grepl 1563s [00:52:43.645] restarts <- computeRestarts(cond) 1563s [00:52:43.645] for (restart in restarts) { 1563s [00:52:43.645] name <- restart$name 1563s [00:52:43.645] if (is.null(name)) 1563s [00:52:43.645] next 1563s [00:52:43.645] if (!grepl(pattern, name)) 1563s [00:52:43.645] next 1563s [00:52:43.645] invokeRestart(restart) 1563s [00:52:43.645] muffled <- TRUE 1563s [00:52:43.645] break 1563s [00:52:43.645] } 1563s [00:52:43.645] } 1563s [00:52:43.645] } 1563s [00:52:43.645] invisible(muffled) 1563s [00:52:43.645] } 1563s [00:52:43.645] muffleCondition(cond, pattern = "^muffle") 1563s [00:52:43.645] } 1563s [00:52:43.645] } 1563s [00:52:43.645] else { 1563s [00:52:43.645] if (TRUE) { 1563s [00:52:43.645] muffleCondition <- function (cond, pattern = "^muffle") 1563s [00:52:43.645] { 1563s [00:52:43.645] inherits <- base::inherits 1563s [00:52:43.645] invokeRestart <- base::invokeRestart 1563s [00:52:43.645] is.null <- base::is.null 1563s [00:52:43.645] muffled <- FALSE 1563s [00:52:43.645] if (inherits(cond, "message")) { 1563s [00:52:43.645] muffled <- grepl(pattern, "muffleMessage") 1563s [00:52:43.645] if (muffled) 1563s [00:52:43.645] invokeRestart("muffleMessage") 1563s [00:52:43.645] } 1563s [00:52:43.645] else if (inherits(cond, "warning")) { 1563s [00:52:43.645] muffled <- grepl(pattern, "muffleWarning") 1563s [00:52:43.645] if (muffled) 1563s [00:52:43.645] invokeRestart("muffleWarning") 1563s [00:52:43.645] } 1563s [00:52:43.645] else if (inherits(cond, "condition")) { 1563s [00:52:43.645] if (!is.null(pattern)) { 1563s [00:52:43.645] computeRestarts <- base::computeRestarts 1563s [00:52:43.645] grepl <- base::grepl 1563s [00:52:43.645] restarts <- computeRestarts(cond) 1563s [00:52:43.645] for (restart in restarts) { 1563s [00:52:43.645] name <- restart$name 1563s [00:52:43.645] if (is.null(name)) 1563s [00:52:43.645] next 1563s [00:52:43.645] if (!grepl(pattern, name)) 1563s [00:52:43.645] next 1563s [00:52:43.645] invokeRestart(restart) 1563s [00:52:43.645] muffled <- TRUE 1563s [00:52:43.645] break 1563s [00:52:43.645] } 1563s [00:52:43.645] } 1563s [00:52:43.645] } 1563s [00:52:43.645] invisible(muffled) 1563s [00:52:43.645] } 1563s [00:52:43.645] muffleCondition(cond, pattern = "^muffle") 1563s [00:52:43.645] } 1563s [00:52:43.645] } 1563s [00:52:43.645] } 1563s [00:52:43.645] })) 1563s [00:52:43.645] }, error = function(ex) { 1563s [00:52:43.645] base::structure(base::list(value = NULL, visible = NULL, 1563s [00:52:43.645] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1563s [00:52:43.645] ...future.rng), started = ...future.startTime, 1563s [00:52:43.645] finished = Sys.time(), session_uuid = NA_character_, 1563s [00:52:43.645] version = "1.8"), class = "FutureResult") 1563s [00:52:43.645] }, finally = { 1563s [00:52:43.645] if (!identical(...future.workdir, getwd())) 1563s [00:52:43.645] setwd(...future.workdir) 1563s [00:52:43.645] { 1563s [00:52:43.645] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1563s [00:52:43.645] ...future.oldOptions$nwarnings <- NULL 1563s [00:52:43.645] } 1563s [00:52:43.645] base::options(...future.oldOptions) 1563s [00:52:43.645] if (.Platform$OS.type == "windows") { 1563s [00:52:43.645] old_names <- names(...future.oldEnvVars) 1563s [00:52:43.645] envs <- base::Sys.getenv() 1563s [00:52:43.645] names <- names(envs) 1563s [00:52:43.645] common <- intersect(names, old_names) 1563s [00:52:43.645] added <- setdiff(names, old_names) 1563s [00:52:43.645] removed <- setdiff(old_names, names) 1563s [00:52:43.645] changed <- common[...future.oldEnvVars[common] != 1563s [00:52:43.645] envs[common]] 1563s [00:52:43.645] NAMES <- toupper(changed) 1563s [00:52:43.645] args <- list() 1563s [00:52:43.645] for (kk in seq_along(NAMES)) { 1563s [00:52:43.645] name <- changed[[kk]] 1563s [00:52:43.645] NAME <- NAMES[[kk]] 1563s [00:52:43.645] if (name != NAME && is.element(NAME, old_names)) 1563s [00:52:43.645] next 1563s [00:52:43.645] args[[name]] <- ...future.oldEnvVars[[name]] 1563s [00:52:43.645] } 1563s [00:52:43.645] NAMES <- toupper(added) 1563s [00:52:43.645] for (kk in seq_along(NAMES)) { 1563s [00:52:43.645] name <- added[[kk]] 1563s [00:52:43.645] NAME <- NAMES[[kk]] 1563s [00:52:43.645] if (name != NAME && is.element(NAME, old_names)) 1563s [00:52:43.645] next 1563s [00:52:43.645] args[[name]] <- "" 1563s [00:52:43.645] } 1563s [00:52:43.645] NAMES <- toupper(removed) 1563s [00:52:43.645] for (kk in seq_along(NAMES)) { 1563s [00:52:43.645] name <- removed[[kk]] 1563s [00:52:43.645] NAME <- NAMES[[kk]] 1563s [00:52:43.645] if (name != NAME && is.element(NAME, old_names)) 1563s [00:52:43.645] next 1563s [00:52:43.645] args[[name]] <- ...future.oldEnvVars[[name]] 1563s [00:52:43.645] } 1563s [00:52:43.645] if (length(args) > 0) 1563s [00:52:43.645] base::do.call(base::Sys.setenv, args = args) 1563s [00:52:43.645] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1563s [00:52:43.645] } 1563s [00:52:43.645] else { 1563s [00:52:43.645] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1563s [00:52:43.645] } 1563s [00:52:43.645] { 1563s [00:52:43.645] if (base::length(...future.futureOptionsAdded) > 1563s [00:52:43.645] 0L) { 1563s [00:52:43.645] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1563s [00:52:43.645] base::names(opts) <- ...future.futureOptionsAdded 1563s [00:52:43.645] base::options(opts) 1563s [00:52:43.645] } 1563s [00:52:43.645] { 1563s [00:52:43.645] { 1563s [00:52:43.645] base::assign(".Random.seed", c(10407L, -193111136L, 1563s [00:52:43.645] 1998638665L, 1795077819L, 549408344L, 564105141L, 1563s [00:52:43.645] -308065669L), envir = base::globalenv(), 1563s [00:52:43.645] inherits = FALSE) 1563s [00:52:43.645] NULL 1563s [00:52:43.645] } 1563s [00:52:43.645] options(future.plan = NULL) 1563s [00:52:43.645] if (is.na(NA_character_)) 1563s [00:52:43.645] Sys.unsetenv("R_FUTURE_PLAN") 1563s [00:52:43.645] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1563s [00:52:43.645] future::plan(list(function (..., workers = availableCores(), 1563s [00:52:43.645] lazy = FALSE, rscript_libs = .libPaths(), 1563s [00:52:43.645] envir = parent.frame()) 1563s [00:52:43.645] { 1563s [00:52:43.645] if (is.function(workers)) 1563s [00:52:43.645] workers <- workers() 1563s [00:52:43.645] workers <- structure(as.integer(workers), 1563s [00:52:43.645] class = class(workers)) 1563s [00:52:43.645] stop_if_not(length(workers) == 1, is.finite(workers), 1563s [00:52:43.645] workers >= 1) 1563s [00:52:43.645] if (workers == 1L && !inherits(workers, "AsIs")) { 1563s [00:52:43.645] return(sequential(..., lazy = TRUE, envir = envir)) 1563s [00:52:43.645] } 1563s [00:52:43.645] future <- MultisessionFuture(..., workers = workers, 1563s [00:52:43.645] lazy = lazy, rscript_libs = rscript_libs, 1563s [00:52:43.645] envir = envir) 1563s [00:52:43.645] if (!future$lazy) 1563s [00:52:43.645] future <- run(future) 1563s [00:52:43.645] invisible(future) 1563s [00:52:43.645] }), .cleanup = FALSE, .init = FALSE) 1563s [00:52:43.645] } 1563s [00:52:43.645] } 1563s [00:52:43.645] } 1563s [00:52:43.645] }) 1563s [00:52:43.645] if (TRUE) { 1563s [00:52:43.645] base::sink(type = "output", split = FALSE) 1563s [00:52:43.645] if (TRUE) { 1563s [00:52:43.645] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1563s [00:52:43.645] } 1563s [00:52:43.645] else { 1563s [00:52:43.645] ...future.result["stdout"] <- base::list(NULL) 1563s [00:52:43.645] } 1563s [00:52:43.645] base::close(...future.stdout) 1563s [00:52:43.645] ...future.stdout <- NULL 1563s [00:52:43.645] } 1563s [00:52:43.645] ...future.result$conditions <- ...future.conditions 1563s [00:52:43.645] ...future.result$finished <- base::Sys.time() 1563s [00:52:43.645] ...future.result 1563s [00:52:43.645] } 1563s [00:52:43.650] assign_globals() ... 1563s [00:52:43.650] List of 5 1563s [00:52:43.650] $ ...future.FUN :function (x, ...) 1563s [00:52:43.650] $ MoreArgs : NULL 1563s [00:52:43.650] $ ...future.elements_ii :List of 2 1563s [00:52:43.650] ..$ :List of 4 1563s [00:52:43.650] .. ..$ : int 1 1563s [00:52:43.650] .. ..$ : int 2 1563s [00:52:43.650] .. ..$ : int 3 1563s [00:52:43.650] .. ..$ : int 4 1563s [00:52:43.650] ..$ :List of 4 1563s [00:52:43.650] .. ..$ : int 4 1563s [00:52:43.650] .. ..$ : int 3 1563s [00:52:43.650] .. ..$ : int 2 1563s [00:52:43.650] .. ..$ : int 1 1563s [00:52:43.650] $ ...future.seeds_ii : NULL 1563s [00:52:43.650] $ ...future.globals.maxSize: NULL 1563s [00:52:43.650] - attr(*, "where")=List of 5 1563s [00:52:43.650] ..$ ...future.FUN : 1563s [00:52:43.650] ..$ MoreArgs : 1563s [00:52:43.650] ..$ ...future.elements_ii : 1563s [00:52:43.650] ..$ ...future.seeds_ii : 1563s [00:52:43.650] ..$ ...future.globals.maxSize: 1563s [00:52:43.650] - attr(*, "resolved")= logi FALSE 1563s [00:52:43.650] - attr(*, "total_size")= num 504 1563s [00:52:43.650] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1563s [00:52:43.650] - attr(*, "already-done")= logi TRUE 1563s [00:52:43.666] - copied ‘...future.FUN’ to environment 1563s [00:52:43.667] - copied ‘MoreArgs’ to environment 1563s [00:52:43.667] - copied ‘...future.elements_ii’ to environment 1563s [00:52:43.667] - copied ‘...future.seeds_ii’ to environment 1563s [00:52:43.667] - copied ‘...future.globals.maxSize’ to environment 1563s [00:52:43.668] assign_globals() ... done 1563s [00:52:43.668] plan(): Setting new future strategy stack: 1563s [00:52:43.668] List of future strategies: 1563s [00:52:43.668] 1. sequential: 1563s [00:52:43.668] - args: function (..., envir = parent.frame()) 1563s [00:52:43.668] - tweaked: FALSE 1563s [00:52:43.668] - call: NULL 1563s [00:52:43.669] plan(): nbrOfWorkers() = 1 1563s [00:52:43.670] plan(): Setting new future strategy stack: 1563s [00:52:43.670] List of future strategies: 1563s [00:52:43.670] 1. multisession: 1563s [00:52:43.670] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1563s [00:52:43.670] - tweaked: FALSE 1563s [00:52:43.670] - call: plan(strategy) 1563s [00:52:43.674] plan(): nbrOfWorkers() = 1 1563s [00:52:43.675] SequentialFuture started (and completed) 1563s [00:52:43.675] - Launch lazy future ... done 1563s [00:52:43.675] run() for ‘SequentialFuture’ ... done 1563s [00:52:43.675] Created future: 1563s [00:52:43.675] SequentialFuture: 1563s [00:52:43.675] Label: ‘future_mapply-1’ 1563s [00:52:43.675] Expression: 1563s [00:52:43.675] { 1563s [00:52:43.675] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1563s [00:52:43.675] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1563s [00:52:43.675] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1563s [00:52:43.675] on.exit(options(oopts), add = TRUE) 1563s [00:52:43.675] } 1563s [00:52:43.675] { 1563s [00:52:43.675] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1563s [00:52:43.675] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1563s [00:52:43.675] do.call(mapply, args = args) 1563s [00:52:43.675] } 1563s [00:52:43.675] } 1563s [00:52:43.675] Lazy evaluation: FALSE 1563s [00:52:43.675] Asynchronous evaluation: FALSE 1563s [00:52:43.675] Local evaluation: TRUE 1563s [00:52:43.675] Environment: R_GlobalEnv 1563s [00:52:43.675] Capture standard output: TRUE 1563s [00:52:43.675] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1563s [00:52:43.675] Globals: 5 objects totaling 504 bytes (function ‘...future.FUN’ of 56 bytes, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 448 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1563s [00:52:43.675] Packages: 1563s [00:52:43.675] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1563s [00:52:43.675] Resolved: TRUE 1563s [00:52:43.675] Value: 240 bytes of class ‘list’ 1563s [00:52:43.675] Early signaling: FALSE 1563s [00:52:43.675] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1563s [00:52:43.675] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1563s [00:52:43.677] Chunk #1 of 1 ... DONE 1563s [00:52:43.677] Launching 1 futures (chunks) ... DONE 1563s [00:52:43.678] Resolving 1 futures (chunks) ... 1563s [00:52:43.678] resolve() on list ... 1563s [00:52:43.678] recursive: 0 1563s [00:52:43.679] length: 1 1563s [00:52:43.679] 1563s [00:52:43.679] resolved() for ‘SequentialFuture’ ... 1563s [00:52:43.679] - state: ‘finished’ 1563s [00:52:43.679] - run: TRUE 1563s [00:52:43.680] - result: ‘FutureResult’ 1563s [00:52:43.680] resolved() for ‘SequentialFuture’ ... done 1563s [00:52:43.680] Future #1 1563s [00:52:43.680] signalConditionsASAP(SequentialFuture, pos=1) ... 1563s [00:52:43.681] - nx: 1 1563s [00:52:43.681] - relay: TRUE 1563s [00:52:43.681] - stdout: TRUE 1563s [00:52:43.681] - signal: TRUE 1563s [00:52:43.681] - resignal: FALSE 1563s [00:52:43.682] - force: TRUE 1563s [00:52:43.682] - relayed: [n=1] FALSE 1563s [00:52:43.682] - queued futures: [n=1] FALSE 1563s [00:52:43.682] - until=1 1563s [00:52:43.682] - relaying element #1 1563s [00:52:43.683] - relayed: [n=1] TRUE 1563s [00:52:43.683] - queued futures: [n=1] TRUE 1563s [00:52:43.683] signalConditionsASAP(SequentialFuture, pos=1) ... done 1563s [00:52:43.683] length: 0 (resolved future 1) 1563s [00:52:43.683] Relaying remaining futures 1563s [00:52:43.684] signalConditionsASAP(NULL, pos=0) ... 1563s [00:52:43.684] - nx: 1 1563s [00:52:43.684] - relay: TRUE 1563s [00:52:43.684] - stdout: TRUE 1563s [00:52:43.684] - signal: TRUE 1563s [00:52:43.684] - resignal: FALSE 1563s [00:52:43.685] - force: TRUE 1563s [00:52:43.685] - relayed: [n=1] TRUE 1563s [00:52:43.685] - queued futures: [n=1] TRUE 1563s - flush all 1563s [00:52:43.686] - relayed: [n=1] TRUE 1563s [00:52:43.686] - queued futures: [n=1] TRUE 1563s [00:52:43.686] signalConditionsASAP(NULL, pos=0) ... done 1563s [00:52:43.687] resolve() on list ... DONE 1563s [00:52:43.687] - Number of value chunks collected: 1 1563s [00:52:43.687] Resolving 1 futures (chunks) ... DONE 1563s [00:52:43.687] Reducing values from 1 chunks ... 1563s [00:52:43.687] - Number of values collected after concatenation: 4 1563s [00:52:43.688] - Number of values expected: 4 1563s [00:52:43.688] Reducing values from 1 chunks ... DONE 1563s [00:52:43.688] future_mapply() ... DONE 1563s [00:52:43.688] future_mapply() ... 1563s [00:52:43.693] Number of chunks: 1 1563s [00:52:43.693] getGlobalsAndPackagesXApply() ... 1563s [00:52:43.693] - future.globals: TRUE 1563s [00:52:43.694] getGlobalsAndPackages() ... 1563s [00:52:43.694] Searching for globals... 1563s [00:52:43.695] - globals found: [1] ‘FUN’ 1563s [00:52:43.695] Searching for globals ... DONE 1563s [00:52:43.695] Resolving globals: FALSE 1563s [00:52:43.696] The total size of the 1 globals is 56 bytes (56 bytes) 1563s [00:52:43.697] The total size of the 1 globals exported for future expression (‘FUN()’) is 56 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (56 bytes of class ‘function’) 1563s [00:52:43.698] - globals: [1] ‘FUN’ 1563s [00:52:43.698] 1563s [00:52:43.699] getGlobalsAndPackages() ... DONE 1563s [00:52:43.699] - globals found/used: [n=1] ‘FUN’ 1563s [00:52:43.699] - needed namespaces: [n=0] 1563s [00:52:43.699] Finding globals ... DONE 1563s [00:52:43.700] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1563s [00:52:43.700] List of 2 1563s [00:52:43.700] $ ...future.FUN:function (x, ...) 1563s [00:52:43.700] $ MoreArgs : NULL 1563s [00:52:43.700] - attr(*, "where")=List of 2 1563s [00:52:43.700] ..$ ...future.FUN: 1563s [00:52:43.700] ..$ MoreArgs : 1563s [00:52:43.700] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1563s [00:52:43.700] - attr(*, "resolved")= logi FALSE 1563s [00:52:43.700] - attr(*, "total_size")= num NA 1563s [00:52:43.705] Packages to be attached in all futures: [n=0] 1563s [00:52:43.705] getGlobalsAndPackagesXApply() ... DONE 1563s [00:52:43.706] Number of futures (= number of chunks): 1 1563s [00:52:43.706] Launching 1 futures (chunks) ... 1563s [00:52:43.706] Chunk #1 of 1 ... 1563s [00:52:43.706] - Finding globals in '...' for chunk #1 ... 1563s [00:52:43.706] getGlobalsAndPackages() ... 1563s [00:52:43.707] Searching for globals... 1563s [00:52:43.707] 1563s [00:52:43.708] Searching for globals ... DONE 1563s [00:52:43.708] - globals: [0] 1563s [00:52:43.708] getGlobalsAndPackages() ... DONE 1563s [00:52:43.708] + additional globals found: [n=0] 1563s [00:52:43.709] + additional namespaces needed: [n=0] 1563s [00:52:43.709] - Finding globals in '...' for chunk #1 ... DONE 1563s [00:52:43.709] - seeds: 1563s [00:52:43.709] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1563s [00:52:43.709] getGlobalsAndPackages() ... 1563s [00:52:43.709] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1563s [00:52:43.714] Resolving globals: FALSE 1563s [00:52:43.716] The total size of the 5 globals is 504 bytes (504 bytes) 1563s [00:52:43.717] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 504 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.elements_ii’ (448 bytes of class ‘list’), ‘...future.FUN’ (56 bytes of class ‘function’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1563s [00:52:43.717] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1563s [00:52:43.718] 1563s [00:52:43.718] getGlobalsAndPackages() ... DONE 1563s [00:52:43.718] run() for ‘Future’ ... 1563s [00:52:43.719] - state: ‘created’ 1563s [00:52:43.719] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1563s [00:52:43.723] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1563s [00:52:43.724] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1563s [00:52:43.724] - Field: ‘label’ 1563s [00:52:43.724] - Field: ‘local’ 1563s [00:52:43.724] - Field: ‘owner’ 1563s [00:52:43.724] - Field: ‘envir’ 1563s [00:52:43.724] - Field: ‘packages’ 1563s [00:52:43.725] - Field: ‘gc’ 1563s [00:52:43.725] - Field: ‘conditions’ 1563s [00:52:43.725] - Field: ‘expr’ 1563s [00:52:43.725] - Field: ‘uuid’ 1563s [00:52:43.725] - Field: ‘seed’ 1563s [00:52:43.725] - Field: ‘version’ 1563s [00:52:43.726] - Field: ‘result’ 1563s [00:52:43.726] - Field: ‘asynchronous’ 1563s [00:52:43.726] - Field: ‘calls’ 1563s [00:52:43.726] - Field: ‘globals’ 1563s [00:52:43.726] - Field: ‘stdout’ 1563s [00:52:43.726] - Field: ‘earlySignal’ 1563s [00:52:43.727] - Field: ‘lazy’ 1563s [00:52:43.727] - Field: ‘state’ 1563s [00:52:43.727] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1563s [00:52:43.727] - Launch lazy future ... 1563s [00:52:43.727] Packages needed by the future expression (n = 0): 1563s [00:52:43.727] Packages needed by future strategies (n = 0): 1563s [00:52:43.728] { 1563s [00:52:43.728] { 1563s [00:52:43.728] { 1563s [00:52:43.728] ...future.startTime <- base::Sys.time() 1563s [00:52:43.728] { 1563s [00:52:43.728] { 1563s [00:52:43.728] { 1563s [00:52:43.728] base::local({ 1563s [00:52:43.728] has_future <- base::requireNamespace("future", 1563s [00:52:43.728] quietly = TRUE) 1563s [00:52:43.728] if (has_future) { 1563s [00:52:43.728] ns <- base::getNamespace("future") 1563s [00:52:43.728] version <- ns[[".package"]][["version"]] 1563s [00:52:43.728] if (is.null(version)) 1563s [00:52:43.728] version <- utils::packageVersion("future") 1563s [00:52:43.728] } 1563s [00:52:43.728] else { 1563s [00:52:43.728] version <- NULL 1563s [00:52:43.728] } 1563s [00:52:43.728] if (!has_future || version < "1.8.0") { 1563s [00:52:43.728] info <- base::c(r_version = base::gsub("R version ", 1563s [00:52:43.728] "", base::R.version$version.string), 1563s [00:52:43.728] platform = base::sprintf("%s (%s-bit)", 1563s [00:52:43.728] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1563s [00:52:43.728] os = base::paste(base::Sys.info()[base::c("sysname", 1563s [00:52:43.728] "release", "version")], collapse = " "), 1563s [00:52:43.728] hostname = base::Sys.info()[["nodename"]]) 1563s [00:52:43.728] info <- base::sprintf("%s: %s", base::names(info), 1563s [00:52:43.728] info) 1563s [00:52:43.728] info <- base::paste(info, collapse = "; ") 1563s [00:52:43.728] if (!has_future) { 1563s [00:52:43.728] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1563s [00:52:43.728] info) 1563s [00:52:43.728] } 1563s [00:52:43.728] else { 1563s [00:52:43.728] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1563s [00:52:43.728] info, version) 1563s [00:52:43.728] } 1563s [00:52:43.728] base::stop(msg) 1563s [00:52:43.728] } 1563s [00:52:43.728] }) 1563s [00:52:43.728] } 1563s [00:52:43.728] options(future.plan = NULL) 1563s [00:52:43.728] Sys.unsetenv("R_FUTURE_PLAN") 1563s [00:52:43.728] future::plan("default", .cleanup = FALSE, .init = FALSE) 1563s [00:52:43.728] } 1563s [00:52:43.728] ...future.workdir <- getwd() 1563s [00:52:43.728] } 1563s [00:52:43.728] ...future.oldOptions <- base::as.list(base::.Options) 1563s [00:52:43.728] ...future.oldEnvVars <- base::Sys.getenv() 1563s [00:52:43.728] } 1563s [00:52:43.728] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1563s [00:52:43.728] future.globals.maxSize = NULL, future.globals.method = NULL, 1563s [00:52:43.728] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1563s [00:52:43.728] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1563s [00:52:43.728] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1563s [00:52:43.728] future.stdout.windows.reencode = NULL, width = 80L) 1563s [00:52:43.728] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1563s [00:52:43.728] base::names(...future.oldOptions)) 1563s [00:52:43.728] } 1563s [00:52:43.728] if (FALSE) { 1563s [00:52:43.728] } 1563s [00:52:43.728] else { 1563s [00:52:43.728] if (TRUE) { 1563s [00:52:43.728] ...future.stdout <- base::rawConnection(base::raw(0L), 1563s [00:52:43.728] open = "w") 1563s [00:52:43.728] } 1563s [00:52:43.728] else { 1563s [00:52:43.728] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1563s [00:52:43.728] windows = "NUL", "/dev/null"), open = "w") 1563s [00:52:43.728] } 1563s [00:52:43.728] base::sink(...future.stdout, type = "output", split = FALSE) 1563s [00:52:43.728] base::on.exit(if (!base::is.null(...future.stdout)) { 1563s [00:52:43.728] base::sink(type = "output", split = FALSE) 1563s [00:52:43.728] base::close(...future.stdout) 1563s [00:52:43.728] }, add = TRUE) 1563s [00:52:43.728] } 1563s [00:52:43.728] ...future.frame <- base::sys.nframe() 1563s [00:52:43.728] ...future.conditions <- base::list() 1563s [00:52:43.728] ...future.rng <- base::globalenv()$.Random.seed 1563s [00:52:43.728] if (FALSE) { 1563s [00:52:43.728] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1563s [00:52:43.728] "...future.value", "...future.globalenv.names", ".Random.seed") 1563s [00:52:43.728] } 1563s [00:52:43.728] ...future.result <- base::tryCatch({ 1563s [00:52:43.728] base::withCallingHandlers({ 1563s [00:52:43.728] ...future.value <- base::withVisible(base::local({ 1563s [00:52:43.728] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1563s [00:52:43.728] if (!identical(...future.globals.maxSize.org, 1563s [00:52:43.728] ...future.globals.maxSize)) { 1563s [00:52:43.728] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1563s [00:52:43.728] on.exit(options(oopts), add = TRUE) 1563s [00:52:43.728] } 1563s [00:52:43.728] { 1563s [00:52:43.728] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1563s [00:52:43.728] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1563s [00:52:43.728] USE.NAMES = FALSE) 1563s [00:52:43.728] do.call(mapply, args = args) 1563s [00:52:43.728] } 1563s [00:52:43.728] })) 1563s [00:52:43.728] future::FutureResult(value = ...future.value$value, 1563s [00:52:43.728] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1563s [00:52:43.728] ...future.rng), globalenv = if (FALSE) 1563s [00:52:43.728] list(added = base::setdiff(base::names(base::.GlobalEnv), 1563s [00:52:43.728] ...future.globalenv.names)) 1563s [00:52:43.728] else NULL, started = ...future.startTime, version = "1.8") 1563s [00:52:43.728] }, condition = base::local({ 1563s [00:52:43.728] c <- base::c 1563s [00:52:43.728] inherits <- base::inherits 1563s [00:52:43.728] invokeRestart <- base::invokeRestart 1563s [00:52:43.728] length <- base::length 1563s [00:52:43.728] list <- base::list 1563s [00:52:43.728] seq.int <- base::seq.int 1563s [00:52:43.728] signalCondition <- base::signalCondition 1563s [00:52:43.728] sys.calls <- base::sys.calls 1563s [00:52:43.728] `[[` <- base::`[[` 1563s [00:52:43.728] `+` <- base::`+` 1563s [00:52:43.728] `<<-` <- base::`<<-` 1563s [00:52:43.728] sysCalls <- function(calls = sys.calls(), from = 1L) { 1563s [00:52:43.728] calls[seq.int(from = from + 12L, to = length(calls) - 1563s [00:52:43.728] 3L)] 1563s [00:52:43.728] } 1563s [00:52:43.728] function(cond) { 1563s [00:52:43.728] is_error <- inherits(cond, "error") 1563s [00:52:43.728] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1563s [00:52:43.728] NULL) 1563s [00:52:43.728] if (is_error) { 1563s [00:52:43.728] sessionInformation <- function() { 1563s [00:52:43.728] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1563s [00:52:43.728] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1563s [00:52:43.728] search = base::search(), system = base::Sys.info()) 1563s [00:52:43.728] } 1563s [00:52:43.728] ...future.conditions[[length(...future.conditions) + 1563s [00:52:43.728] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1563s [00:52:43.728] cond$call), session = sessionInformation(), 1563s [00:52:43.728] timestamp = base::Sys.time(), signaled = 0L) 1563s [00:52:43.728] signalCondition(cond) 1563s [00:52:43.728] } 1563s [00:52:43.728] else if (!ignore && TRUE && inherits(cond, c("condition", 1563s [00:52:43.728] "immediateCondition"))) { 1563s [00:52:43.728] signal <- TRUE && inherits(cond, "immediateCondition") 1563s [00:52:43.728] ...future.conditions[[length(...future.conditions) + 1563s [00:52:43.728] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1563s [00:52:43.728] if (TRUE && !signal) { 1563s [00:52:43.728] muffleCondition <- function (cond, pattern = "^muffle") 1563s [00:52:43.728] { 1563s [00:52:43.728] inherits <- base::inherits 1563s [00:52:43.728] invokeRestart <- base::invokeRestart 1563s [00:52:43.728] is.null <- base::is.null 1563s [00:52:43.728] muffled <- FALSE 1563s [00:52:43.728] if (inherits(cond, "message")) { 1563s [00:52:43.728] muffled <- grepl(pattern, "muffleMessage") 1563s [00:52:43.728] if (muffled) 1563s [00:52:43.728] invokeRestart("muffleMessage") 1563s [00:52:43.728] } 1563s [00:52:43.728] else if (inherits(cond, "warning")) { 1563s [00:52:43.728] muffled <- grepl(pattern, "muffleWarning") 1563s [00:52:43.728] if (muffled) 1563s [00:52:43.728] invokeRestart("muffleWarning") 1563s [00:52:43.728] } 1563s [00:52:43.728] else if (inherits(cond, "condition")) { 1563s [00:52:43.728] if (!is.null(pattern)) { 1563s [00:52:43.728] computeRestarts <- base::computeRestarts 1563s [00:52:43.728] grepl <- base::grepl 1563s [00:52:43.728] restarts <- computeRestarts(cond) 1563s [00:52:43.728] for (restart in restarts) { 1563s [00:52:43.728] name <- restart$name 1563s [00:52:43.728] if (is.null(name)) 1563s [00:52:43.728] next 1563s [00:52:43.728] if (!grepl(pattern, name)) 1563s [00:52:43.728] next 1563s [00:52:43.728] invokeRestart(restart) 1563s [00:52:43.728] muffled <- TRUE 1563s [00:52:43.728] break 1563s [00:52:43.728] } 1563s [00:52:43.728] } 1563s [00:52:43.728] } 1563s [00:52:43.728] invisible(muffled) 1563s [00:52:43.728] } 1563s [00:52:43.728] muffleCondition(cond, pattern = "^muffle") 1563s [00:52:43.728] } 1563s [00:52:43.728] } 1563s [00:52:43.728] else { 1563s [00:52:43.728] if (TRUE) { 1563s [00:52:43.728] muffleCondition <- function (cond, pattern = "^muffle") 1563s [00:52:43.728] { 1563s [00:52:43.728] inherits <- base::inherits 1563s [00:52:43.728] invokeRestart <- base::invokeRestart 1563s [00:52:43.728] is.null <- base::is.null 1563s [00:52:43.728] muffled <- FALSE 1563s [00:52:43.728] if (inherits(cond, "message")) { 1563s [00:52:43.728] muffled <- grepl(pattern, "muffleMessage") 1563s [00:52:43.728] if (muffled) 1563s [00:52:43.728] invokeRestart("muffleMessage") 1563s [00:52:43.728] } 1563s [00:52:43.728] else if (inherits(cond, "warning")) { 1563s [00:52:43.728] muffled <- grepl(pattern, "muffleWarning") 1563s [00:52:43.728] if (muffled) 1563s [00:52:43.728] invokeRestart("muffleWarning") 1563s [00:52:43.728] } 1563s [00:52:43.728] else if (inherits(cond, "condition")) { 1563s [00:52:43.728] if (!is.null(pattern)) { 1563s [00:52:43.728] computeRestarts <- base::computeRestarts 1563s [00:52:43.728] grepl <- base::grepl 1563s [00:52:43.728] restarts <- computeRestarts(cond) 1563s [00:52:43.728] for (restart in restarts) { 1563s [00:52:43.728] name <- restart$name 1563s [00:52:43.728] if (is.null(name)) 1563s [00:52:43.728] next 1563s [00:52:43.728] if (!grepl(pattern, name)) 1563s [00:52:43.728] next 1563s [00:52:43.728] invokeRestart(restart) 1563s [00:52:43.728] muffled <- TRUE 1563s [00:52:43.728] break 1563s [00:52:43.728] } 1563s [00:52:43.728] } 1563s [00:52:43.728] } 1563s [00:52:43.728] invisible(muffled) 1563s [00:52:43.728] } 1563s [00:52:43.728] muffleCondition(cond, pattern = "^muffle") 1563s [00:52:43.728] } 1563s [00:52:43.728] } 1563s [00:52:43.728] } 1563s [00:52:43.728] })) 1563s [00:52:43.728] }, error = function(ex) { 1563s [00:52:43.728] base::structure(base::list(value = NULL, visible = NULL, 1563s [00:52:43.728] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1563s [00:52:43.728] ...future.rng), started = ...future.startTime, 1563s [00:52:43.728] finished = Sys.time(), session_uuid = NA_character_, 1563s [00:52:43.728] version = "1.8"), class = "FutureResult") 1563s [00:52:43.728] }, finally = { 1563s [00:52:43.728] if (!identical(...future.workdir, getwd())) 1563s [00:52:43.728] setwd(...future.workdir) 1563s [00:52:43.728] { 1563s [00:52:43.728] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1563s [00:52:43.728] ...future.oldOptions$nwarnings <- NULL 1563s [00:52:43.728] } 1563s [00:52:43.728] base::options(...future.oldOptions) 1563s [00:52:43.728] if (.Platform$OS.type == "windows") { 1563s [00:52:43.728] old_names <- names(...future.oldEnvVars) 1563s [00:52:43.728] envs <- base::Sys.getenv() 1563s [00:52:43.728] names <- names(envs) 1563s [00:52:43.728] common <- intersect(names, old_names) 1563s [00:52:43.728] added <- setdiff(names, old_names) 1563s [00:52:43.728] removed <- setdiff(old_names, names) 1563s [00:52:43.728] changed <- common[...future.oldEnvVars[common] != 1563s [00:52:43.728] envs[common]] 1563s [00:52:43.728] NAMES <- toupper(changed) 1563s [00:52:43.728] args <- list() 1563s [00:52:43.728] for (kk in seq_along(NAMES)) { 1563s [00:52:43.728] name <- changed[[kk]] 1563s [00:52:43.728] NAME <- NAMES[[kk]] 1563s [00:52:43.728] if (name != NAME && is.element(NAME, old_names)) 1563s [00:52:43.728] next 1563s [00:52:43.728] args[[name]] <- ...future.oldEnvVars[[name]] 1563s [00:52:43.728] } 1563s [00:52:43.728] NAMES <- toupper(added) 1563s [00:52:43.728] for (kk in seq_along(NAMES)) { 1563s [00:52:43.728] name <- added[[kk]] 1563s [00:52:43.728] NAME <- NAMES[[kk]] 1563s [00:52:43.728] if (name != NAME && is.element(NAME, old_names)) 1563s [00:52:43.728] next 1563s [00:52:43.728] args[[name]] <- "" 1563s [00:52:43.728] } 1563s [00:52:43.728] NAMES <- toupper(removed) 1563s [00:52:43.728] for (kk in seq_along(NAMES)) { 1563s [00:52:43.728] name <- removed[[kk]] 1563s [00:52:43.728] NAME <- NAMES[[kk]] 1563s [00:52:43.728] if (name != NAME && is.element(NAME, old_names)) 1563s [00:52:43.728] next 1563s [00:52:43.728] args[[name]] <- ...future.oldEnvVars[[name]] 1563s [00:52:43.728] } 1563s [00:52:43.728] if (length(args) > 0) 1563s [00:52:43.728] base::do.call(base::Sys.setenv, args = args) 1563s [00:52:43.728] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1563s [00:52:43.728] } 1563s [00:52:43.728] else { 1563s [00:52:43.728] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1563s [00:52:43.728] } 1563s [00:52:43.728] { 1563s [00:52:43.728] if (base::length(...future.futureOptionsAdded) > 1563s [00:52:43.728] 0L) { 1563s [00:52:43.728] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1563s [00:52:43.728] base::names(opts) <- ...future.futureOptionsAdded 1563s [00:52:43.728] base::options(opts) 1563s [00:52:43.728] } 1563s [00:52:43.728] { 1563s [00:52:43.728] { 1563s [00:52:43.728] base::assign(".Random.seed", c(10407L, -193111136L, 1563s [00:52:43.728] 1998638665L, 1795077819L, 549408344L, 564105141L, 1563s [00:52:43.728] -308065669L), envir = base::globalenv(), 1563s [00:52:43.728] inherits = FALSE) 1563s [00:52:43.728] NULL 1563s [00:52:43.728] } 1563s [00:52:43.728] options(future.plan = NULL) 1563s [00:52:43.728] if (is.na(NA_character_)) 1563s [00:52:43.728] Sys.unsetenv("R_FUTURE_PLAN") 1563s [00:52:43.728] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1563s [00:52:43.728] future::plan(list(function (..., workers = availableCores(), 1563s [00:52:43.728] lazy = FALSE, rscript_libs = .libPaths(), 1563s [00:52:43.728] envir = parent.frame()) 1563s [00:52:43.728] { 1563s [00:52:43.728] if (is.function(workers)) 1563s [00:52:43.728] workers <- workers() 1563s [00:52:43.728] workers <- structure(as.integer(workers), 1563s [00:52:43.728] class = class(workers)) 1563s [00:52:43.728] stop_if_not(length(workers) == 1, is.finite(workers), 1563s [00:52:43.728] workers >= 1) 1563s [00:52:43.728] if (workers == 1L && !inherits(workers, "AsIs")) { 1563s [00:52:43.728] return(sequential(..., lazy = TRUE, envir = envir)) 1563s [00:52:43.728] } 1563s [00:52:43.728] future <- MultisessionFuture(..., workers = workers, 1563s [00:52:43.728] lazy = lazy, rscript_libs = rscript_libs, 1563s [00:52:43.728] envir = envir) 1563s [00:52:43.728] if (!future$lazy) 1563s [00:52:43.728] future <- run(future) 1563s [00:52:43.728] invisible(future) 1563s [00:52:43.728] }), .cleanup = FALSE, .init = FALSE) 1563s [00:52:43.728] } 1563s [00:52:43.728] } 1563s [00:52:43.728] } 1563s [00:52:43.728] }) 1563s [00:52:43.728] if (TRUE) { 1563s [00:52:43.728] base::sink(type = "output", split = FALSE) 1563s [00:52:43.728] if (TRUE) { 1563s [00:52:43.728] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1563s [00:52:43.728] } 1563s [00:52:43.728] else { 1563s [00:52:43.728] ...future.result["stdout"] <- base::list(NULL) 1563s [00:52:43.728] } 1563s [00:52:43.728] base::close(...future.stdout) 1563s [00:52:43.728] ...future.stdout <- NULL 1563s [00:52:43.728] } 1563s [00:52:43.728] ...future.result$conditions <- ...future.conditions 1563s [00:52:43.728] ...future.result$finished <- base::Sys.time() 1563s [00:52:43.728] ...future.result 1563s [00:52:43.728] } 1563s [00:52:43.736] assign_globals() ... 1563s [00:52:43.736] List of 5 1563s [00:52:43.736] $ ...future.FUN :function (x, ...) 1563s [00:52:43.736] $ MoreArgs : NULL 1563s [00:52:43.736] $ ...future.elements_ii :List of 2 1563s [00:52:43.736] ..$ times:List of 4 1563s [00:52:43.736] .. ..$ : int 1 1563s [00:52:43.736] .. ..$ : int 2 1563s [00:52:43.736] .. ..$ : int 3 1563s [00:52:43.736] .. ..$ : int 4 1563s [00:52:43.736] ..$ x :List of 4 1563s [00:52:43.736] .. ..$ : int 4 1563s [00:52:43.736] .. ..$ : int 3 1563s [00:52:43.736] .. ..$ : int 2 1563s [00:52:43.736] .. ..$ : int 1 1563s [00:52:43.736] $ ...future.seeds_ii : NULL 1563s [00:52:43.736] $ ...future.globals.maxSize: NULL 1563s [00:52:43.736] - attr(*, "where")=List of 5 1563s [00:52:43.736] ..$ ...future.FUN : 1563s [00:52:43.736] ..$ MoreArgs : 1563s [00:52:43.736] ..$ ...future.elements_ii : 1563s [00:52:43.736] ..$ ...future.seeds_ii : 1563s [00:52:43.736] ..$ ...future.globals.maxSize: 1563s [00:52:43.736] - attr(*, "resolved")= logi FALSE 1563s [00:52:43.736] - attr(*, "total_size")= num 504 1563s [00:52:43.736] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1563s [00:52:43.736] - attr(*, "already-done")= logi TRUE 1563s [00:52:43.745] - copied ‘...future.FUN’ to environment 1563s [00:52:43.746] - copied ‘MoreArgs’ to environment 1563s [00:52:43.746] - copied ‘...future.elements_ii’ to environment 1563s [00:52:43.746] - copied ‘...future.seeds_ii’ to environment 1563s [00:52:43.746] - copied ‘...future.globals.maxSize’ to environment 1563s [00:52:43.746] assign_globals() ... done 1563s [00:52:43.747] plan(): Setting new future strategy stack: 1563s [00:52:43.747] List of future strategies: 1563s [00:52:43.747] 1. sequential: 1563s [00:52:43.747] - args: function (..., envir = parent.frame()) 1563s [00:52:43.747] - tweaked: FALSE 1563s [00:52:43.747] - call: NULL 1563s [00:52:43.747] plan(): nbrOfWorkers() = 1 1563s [00:52:43.748] plan(): Setting new future strategy stack: 1563s [00:52:43.748] List of future strategies: 1563s [00:52:43.748] 1. multisession: 1563s [00:52:43.748] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1563s [00:52:43.748] - tweaked: FALSE 1563s [00:52:43.748] - call: plan(strategy) 1563s [00:52:43.752] plan(): nbrOfWorkers() = 1 1563s [00:52:43.753] SequentialFuture started (and completed) 1563s [00:52:43.753] - Launch lazy future ... done 1563s [00:52:43.753] run() for ‘SequentialFuture’ ... done 1563s [00:52:43.753] Created future: 1563s [00:52:43.754] SequentialFuture: 1563s [00:52:43.754] Label: ‘future_mapply-1’ 1563s [00:52:43.754] Expression: 1563s [00:52:43.754] { 1563s [00:52:43.754] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1563s [00:52:43.754] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1563s [00:52:43.754] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1563s [00:52:43.754] on.exit(options(oopts), add = TRUE) 1563s [00:52:43.754] } 1563s [00:52:43.754] { 1563s [00:52:43.754] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1563s [00:52:43.754] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1563s [00:52:43.754] do.call(mapply, args = args) 1563s [00:52:43.754] } 1563s [00:52:43.754] } 1563s [00:52:43.754] Lazy evaluation: FALSE 1563s [00:52:43.754] Asynchronous evaluation: FALSE 1563s [00:52:43.754] Local evaluation: TRUE 1563s [00:52:43.754] Environment: R_GlobalEnv 1563s [00:52:43.754] Capture standard output: TRUE 1563s [00:52:43.754] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1563s [00:52:43.754] Globals: 5 objects totaling 504 bytes (function ‘...future.FUN’ of 56 bytes, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 448 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1563s [00:52:43.754] Packages: 1563s [00:52:43.754] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1563s [00:52:43.754] Resolved: TRUE 1563s [00:52:43.754] Value: 240 bytes of class ‘list’ 1563s [00:52:43.754] Early signaling: FALSE 1563s [00:52:43.754] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1563s [00:52:43.754] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1563s [00:52:43.759] Chunk #1 of 1 ... DONE 1563s [00:52:43.759] Launching 1 futures (chunks) ... DONE 1563s [00:52:43.759] Resolving 1 futures (chunks) ... 1563s [00:52:43.759] resolve() on list ... 1563s [00:52:43.759] recursive: 0 1563s [00:52:43.760] length: 1 1563s [00:52:43.760] 1563s [00:52:43.760] resolved() for ‘SequentialFuture’ ... 1563s [00:52:43.760] - state: ‘finished’ 1563s [00:52:43.760] - run: TRUE 1563s [00:52:43.760] - result: ‘FutureResult’ 1563s [00:52:43.761] resolved() for ‘SequentialFuture’ ... done 1563s [00:52:43.761] Future #1 1563s [00:52:43.761] signalConditionsASAP(SequentialFuture, pos=1) ... 1563s [00:52:43.761] - nx: 1 1563s [00:52:43.761] - relay: TRUE 1563s [00:52:43.762] - stdout: TRUE 1563s [00:52:43.762] - signal: TRUE 1563s [00:52:43.762] - resignal: FALSE 1563s [00:52:43.762] - force: TRUE 1563s [00:52:43.762] - relayed: [n=1] FALSE 1563s [00:52:43.762] - queued futures: [n=1] FALSE 1563s [00:52:43.762] - until=1 1563s [00:52:43.762] - relaying element #1 1563s [00:52:43.763] - relayed: [n=1] TRUE 1563s [00:52:43.763] - queued futures: [n=1] TRUE 1563s [00:52:43.763] signalConditionsASAP(SequentialFuture, pos=1) ... done 1563s [00:52:43.763] length: 0 (resolved future 1) 1563s [00:52:43.763] Relaying remaining futures 1563s [00:52:43.763] signalConditionsASAP(NULL, pos=0) ... 1563s [00:52:43.764] - nx: 1 1563s [00:52:43.764] - relay: TRUE 1563s [00:52:43.764] - stdout: TRUE 1563s [00:52:43.764] - signal: TRUE 1563s [00:52:43.764] - resignal: FALSE 1563s [00:52:43.764] - force: TRUE 1563s [00:52:43.764] - relayed: [n=1] TRUE 1563s [00:52:43.764] - queued futures: [n=1] TRUE 1563s - flush all 1563s [00:52:43.765] - relayed: [n=1] TRUE 1563s [00:52:43.765] - queued futures: [n=1] TRUE 1563s [00:52:43.765] signalConditionsASAP(NULL, pos=0) ... done 1563s [00:52:43.765] resolve() on list ... DONE 1563s [00:52:43.765] - Number of value chunks collected: 1 1563s [00:52:43.765] Resolving 1 futures (chunks) ... DONE 1563s [00:52:43.765] Reducing values from 1 chunks ... 1563s [00:52:43.766] - Number of values collected after concatenation: 4 1563s [00:52:43.766] - Number of values expected: 4 1563s [00:52:43.766] Reducing values from 1 chunks ... DONE 1563s [00:52:43.766] future_mapply() ... DONE 1563s [00:52:43.766] future_mapply() ... 1563s [00:52:43.769] Number of chunks: 1 1563s [00:52:43.770] getGlobalsAndPackagesXApply() ... 1563s [00:52:43.770] - future.globals: TRUE 1563s [00:52:43.770] getGlobalsAndPackages() ... 1563s [00:52:43.770] Searching for globals... 1563s [00:52:43.771] - globals found: [1] ‘FUN’ 1563s [00:52:43.771] Searching for globals ... DONE 1563s [00:52:43.771] Resolving globals: FALSE 1563s [00:52:43.772] The total size of the 1 globals is 56 bytes (56 bytes) 1563s [00:52:43.772] The total size of the 1 globals exported for future expression (‘FUN(x = 42)’) is 56 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (56 bytes of class ‘function’) 1563s [00:52:43.772] - globals: [1] ‘FUN’ 1563s [00:52:43.773] 1563s [00:52:43.773] getGlobalsAndPackages() ... DONE 1563s [00:52:43.773] - globals found/used: [n=1] ‘FUN’ 1563s [00:52:43.773] - needed namespaces: [n=0] 1563s [00:52:43.773] Finding globals ... DONE 1563s [00:52:43.774] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1563s [00:52:43.774] List of 2 1563s [00:52:43.774] $ ...future.FUN:function (x, ...) 1563s [00:52:43.774] $ MoreArgs :List of 1 1563s [00:52:43.774] ..$ x: num 42 1563s [00:52:43.774] - attr(*, "where")=List of 2 1563s [00:52:43.774] ..$ ...future.FUN: 1563s [00:52:43.774] ..$ MoreArgs : 1563s [00:52:43.774] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1563s [00:52:43.774] - attr(*, "resolved")= logi FALSE 1563s [00:52:43.774] - attr(*, "total_size")= num NA 1563s [00:52:43.778] Packages to be attached in all futures: [n=0] 1563s [00:52:43.778] getGlobalsAndPackagesXApply() ... DONE 1563s [00:52:43.778] Number of futures (= number of chunks): 1 1563s [00:52:43.779] Launching 1 futures (chunks) ... 1563s [00:52:43.779] Chunk #1 of 1 ... 1563s [00:52:43.779] - Finding globals in '...' for chunk #1 ... 1563s [00:52:43.779] getGlobalsAndPackages() ... 1563s [00:52:43.779] Searching for globals... 1563s [00:52:43.780] 1563s [00:52:43.780] Searching for globals ... DONE 1563s [00:52:43.780] - globals: [0] 1563s [00:52:43.780] getGlobalsAndPackages() ... DONE 1563s [00:52:43.780] + additional globals found: [n=0] 1563s [00:52:43.781] + additional namespaces needed: [n=0] 1563s [00:52:43.781] - Finding globals in '...' for chunk #1 ... DONE 1563s [00:52:43.781] - seeds: 1563s [00:52:43.781] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1563s [00:52:43.781] getGlobalsAndPackages() ... 1563s [00:52:43.781] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1563s [00:52:43.781] Resolving globals: FALSE 1563s [00:52:43.782] The total size of the 5 globals is 336 bytes (336 bytes) 1563s [00:52:43.783] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 336 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.elements_ii’ (224 bytes of class ‘list’), ‘...future.FUN’ (56 bytes of class ‘function’) and ‘MoreArgs’ (56 bytes of class ‘list’) 1563s [00:52:43.783] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1563s [00:52:43.783] 1563s [00:52:43.783] getGlobalsAndPackages() ... DONE 1563s [00:52:43.784] run() for ‘Future’ ... 1563s [00:52:43.784] - state: ‘created’ 1563s [00:52:43.784] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1563s [00:52:43.787] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1563s [00:52:43.788] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1563s [00:52:43.788] - Field: ‘label’ 1563s [00:52:43.788] - Field: ‘local’ 1563s [00:52:43.788] - Field: ‘owner’ 1563s [00:52:43.788] - Field: ‘envir’ 1563s [00:52:43.788] - Field: ‘packages’ 1563s [00:52:43.789] - Field: ‘gc’ 1563s [00:52:43.789] - Field: ‘conditions’ 1563s [00:52:43.789] - Field: ‘expr’ 1563s [00:52:43.789] - Field: ‘uuid’ 1563s [00:52:43.792] - Field: ‘seed’ 1563s [00:52:43.792] - Field: ‘version’ 1563s [00:52:43.792] - Field: ‘result’ 1563s [00:52:43.793] - Field: ‘asynchronous’ 1563s [00:52:43.793] - Field: ‘calls’ 1563s [00:52:43.793] - Field: ‘globals’ 1563s [00:52:43.794] - Field: ‘stdout’ 1563s [00:52:43.794] - Field: ‘earlySignal’ 1563s [00:52:43.794] - Field: ‘lazy’ 1563s [00:52:43.794] - Field: ‘state’ 1563s [00:52:43.795] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1563s [00:52:43.795] - Launch lazy future ... 1563s [00:52:43.795] Packages needed by the future expression (n = 0): 1563s [00:52:43.795] Packages needed by future strategies (n = 0): 1563s [00:52:43.796] { 1563s [00:52:43.796] { 1563s [00:52:43.796] { 1563s [00:52:43.796] ...future.startTime <- base::Sys.time() 1563s [00:52:43.796] { 1563s [00:52:43.796] { 1563s [00:52:43.796] { 1563s [00:52:43.796] base::local({ 1563s [00:52:43.796] has_future <- base::requireNamespace("future", 1563s [00:52:43.796] quietly = TRUE) 1563s [00:52:43.796] if (has_future) { 1563s [00:52:43.796] ns <- base::getNamespace("future") 1563s [00:52:43.796] version <- ns[[".package"]][["version"]] 1563s [00:52:43.796] if (is.null(version)) 1563s [00:52:43.796] version <- utils::packageVersion("future") 1563s [00:52:43.796] } 1563s [00:52:43.796] else { 1563s [00:52:43.796] version <- NULL 1563s [00:52:43.796] } 1563s [00:52:43.796] if (!has_future || version < "1.8.0") { 1563s [00:52:43.796] info <- base::c(r_version = base::gsub("R version ", 1563s [00:52:43.796] "", base::R.version$version.string), 1563s [00:52:43.796] platform = base::sprintf("%s (%s-bit)", 1563s [00:52:43.796] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1563s [00:52:43.796] os = base::paste(base::Sys.info()[base::c("sysname", 1563s [00:52:43.796] "release", "version")], collapse = " "), 1563s [00:52:43.796] hostname = base::Sys.info()[["nodename"]]) 1563s [00:52:43.796] info <- base::sprintf("%s: %s", base::names(info), 1563s [00:52:43.796] info) 1563s [00:52:43.796] info <- base::paste(info, collapse = "; ") 1563s [00:52:43.796] if (!has_future) { 1563s [00:52:43.796] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1563s [00:52:43.796] info) 1563s [00:52:43.796] } 1563s [00:52:43.796] else { 1563s [00:52:43.796] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1563s [00:52:43.796] info, version) 1563s [00:52:43.796] } 1563s [00:52:43.796] base::stop(msg) 1563s [00:52:43.796] } 1563s [00:52:43.796] }) 1563s [00:52:43.796] } 1563s [00:52:43.796] options(future.plan = NULL) 1563s [00:52:43.796] Sys.unsetenv("R_FUTURE_PLAN") 1563s [00:52:43.796] future::plan("default", .cleanup = FALSE, .init = FALSE) 1563s [00:52:43.796] } 1563s [00:52:43.796] ...future.workdir <- getwd() 1563s [00:52:43.796] } 1563s [00:52:43.796] ...future.oldOptions <- base::as.list(base::.Options) 1563s [00:52:43.796] ...future.oldEnvVars <- base::Sys.getenv() 1563s [00:52:43.796] } 1563s [00:52:43.796] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1563s [00:52:43.796] future.globals.maxSize = NULL, future.globals.method = NULL, 1563s [00:52:43.796] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1563s [00:52:43.796] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1563s [00:52:43.796] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1563s [00:52:43.796] future.stdout.windows.reencode = NULL, width = 80L) 1563s [00:52:43.796] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1563s [00:52:43.796] base::names(...future.oldOptions)) 1563s [00:52:43.796] } 1563s [00:52:43.796] if (FALSE) { 1563s [00:52:43.796] } 1563s [00:52:43.796] else { 1563s [00:52:43.796] if (TRUE) { 1563s [00:52:43.796] ...future.stdout <- base::rawConnection(base::raw(0L), 1563s [00:52:43.796] open = "w") 1563s [00:52:43.796] } 1563s [00:52:43.796] else { 1563s [00:52:43.796] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1563s [00:52:43.796] windows = "NUL", "/dev/null"), open = "w") 1563s [00:52:43.796] } 1563s [00:52:43.796] base::sink(...future.stdout, type = "output", split = FALSE) 1563s [00:52:43.796] base::on.exit(if (!base::is.null(...future.stdout)) { 1563s [00:52:43.796] base::sink(type = "output", split = FALSE) 1563s [00:52:43.796] base::close(...future.stdout) 1563s [00:52:43.796] }, add = TRUE) 1563s [00:52:43.796] } 1563s [00:52:43.796] ...future.frame <- base::sys.nframe() 1563s [00:52:43.796] ...future.conditions <- base::list() 1563s [00:52:43.796] ...future.rng <- base::globalenv()$.Random.seed 1563s [00:52:43.796] if (FALSE) { 1563s [00:52:43.796] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1563s [00:52:43.796] "...future.value", "...future.globalenv.names", ".Random.seed") 1563s [00:52:43.796] } 1563s [00:52:43.796] ...future.result <- base::tryCatch({ 1563s [00:52:43.796] base::withCallingHandlers({ 1563s [00:52:43.796] ...future.value <- base::withVisible(base::local({ 1563s [00:52:43.796] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1563s [00:52:43.796] if (!identical(...future.globals.maxSize.org, 1563s [00:52:43.796] ...future.globals.maxSize)) { 1563s [00:52:43.796] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1563s [00:52:43.796] on.exit(options(oopts), add = TRUE) 1563s [00:52:43.796] } 1563s [00:52:43.796] { 1563s [00:52:43.796] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1563s [00:52:43.796] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1563s [00:52:43.796] USE.NAMES = FALSE) 1563s [00:52:43.796] do.call(mapply, args = args) 1563s [00:52:43.796] } 1563s [00:52:43.796] })) 1563s [00:52:43.796] future::FutureResult(value = ...future.value$value, 1563s [00:52:43.796] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1563s [00:52:43.796] ...future.rng), globalenv = if (FALSE) 1563s [00:52:43.796] list(added = base::setdiff(base::names(base::.GlobalEnv), 1563s [00:52:43.796] ...future.globalenv.names)) 1563s [00:52:43.796] else NULL, started = ...future.startTime, version = "1.8") 1563s [00:52:43.796] }, condition = base::local({ 1563s [00:52:43.796] c <- base::c 1563s [00:52:43.796] inherits <- base::inherits 1563s [00:52:43.796] invokeRestart <- base::invokeRestart 1563s [00:52:43.796] length <- base::length 1563s [00:52:43.796] list <- base::list 1563s [00:52:43.796] seq.int <- base::seq.int 1563s [00:52:43.796] signalCondition <- base::signalCondition 1563s [00:52:43.796] sys.calls <- base::sys.calls 1563s [00:52:43.796] `[[` <- base::`[[` 1563s [00:52:43.796] `+` <- base::`+` 1563s [00:52:43.796] `<<-` <- base::`<<-` 1563s [00:52:43.796] sysCalls <- function(calls = sys.calls(), from = 1L) { 1563s [00:52:43.796] calls[seq.int(from = from + 12L, to = length(calls) - 1563s [00:52:43.796] 3L)] 1563s [00:52:43.796] } 1563s [00:52:43.796] function(cond) { 1563s [00:52:43.796] is_error <- inherits(cond, "error") 1563s [00:52:43.796] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1563s [00:52:43.796] NULL) 1563s [00:52:43.796] if (is_error) { 1563s [00:52:43.796] sessionInformation <- function() { 1563s [00:52:43.796] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1563s [00:52:43.796] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1563s [00:52:43.796] search = base::search(), system = base::Sys.info()) 1563s [00:52:43.796] } 1563s [00:52:43.796] ...future.conditions[[length(...future.conditions) + 1563s [00:52:43.796] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1563s [00:52:43.796] cond$call), session = sessionInformation(), 1563s [00:52:43.796] timestamp = base::Sys.time(), signaled = 0L) 1563s [00:52:43.796] signalCondition(cond) 1563s [00:52:43.796] } 1563s [00:52:43.796] else if (!ignore && TRUE && inherits(cond, c("condition", 1563s [00:52:43.796] "immediateCondition"))) { 1563s [00:52:43.796] signal <- TRUE && inherits(cond, "immediateCondition") 1563s [00:52:43.796] ...future.conditions[[length(...future.conditions) + 1563s [00:52:43.796] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1563s [00:52:43.796] if (TRUE && !signal) { 1563s [00:52:43.796] muffleCondition <- function (cond, pattern = "^muffle") 1563s [00:52:43.796] { 1563s [00:52:43.796] inherits <- base::inherits 1563s [00:52:43.796] invokeRestart <- base::invokeRestart 1563s [00:52:43.796] is.null <- base::is.null 1563s [00:52:43.796] muffled <- FALSE 1563s [00:52:43.796] if (inherits(cond, "message")) { 1563s [00:52:43.796] muffled <- grepl(pattern, "muffleMessage") 1563s [00:52:43.796] if (muffled) 1563s [00:52:43.796] invokeRestart("muffleMessage") 1563s [00:52:43.796] } 1563s [00:52:43.796] else if (inherits(cond, "warning")) { 1563s [00:52:43.796] muffled <- grepl(pattern, "muffleWarning") 1563s [00:52:43.796] if (muffled) 1563s [00:52:43.796] invokeRestart("muffleWarning") 1563s [00:52:43.796] } 1563s [00:52:43.796] else if (inherits(cond, "condition")) { 1563s [00:52:43.796] if (!is.null(pattern)) { 1563s [00:52:43.796] computeRestarts <- base::computeRestarts 1563s [00:52:43.796] grepl <- base::grepl 1563s [00:52:43.796] restarts <- computeRestarts(cond) 1563s [00:52:43.796] for (restart in restarts) { 1563s [00:52:43.796] name <- restart$name 1563s [00:52:43.796] if (is.null(name)) 1563s [00:52:43.796] next 1563s [00:52:43.796] if (!grepl(pattern, name)) 1563s [00:52:43.796] next 1563s [00:52:43.796] invokeRestart(restart) 1563s [00:52:43.796] muffled <- TRUE 1563s [00:52:43.796] break 1563s [00:52:43.796] } 1563s [00:52:43.796] } 1563s [00:52:43.796] } 1563s [00:52:43.796] invisible(muffled) 1563s [00:52:43.796] } 1563s [00:52:43.796] muffleCondition(cond, pattern = "^muffle") 1563s [00:52:43.796] } 1563s [00:52:43.796] } 1563s [00:52:43.796] else { 1563s [00:52:43.796] if (TRUE) { 1563s [00:52:43.796] muffleCondition <- function (cond, pattern = "^muffle") 1563s [00:52:43.796] { 1563s [00:52:43.796] inherits <- base::inherits 1563s [00:52:43.796] invokeRestart <- base::invokeRestart 1563s [00:52:43.796] is.null <- base::is.null 1563s [00:52:43.796] muffled <- FALSE 1563s [00:52:43.796] if (inherits(cond, "message")) { 1563s [00:52:43.796] muffled <- grepl(pattern, "muffleMessage") 1563s [00:52:43.796] if (muffled) 1563s [00:52:43.796] invokeRestart("muffleMessage") 1563s [00:52:43.796] } 1563s [00:52:43.796] else if (inherits(cond, "warning")) { 1563s [00:52:43.796] muffled <- grepl(pattern, "muffleWarning") 1563s [00:52:43.796] if (muffled) 1563s [00:52:43.796] invokeRestart("muffleWarning") 1563s [00:52:43.796] } 1563s [00:52:43.796] else if (inherits(cond, "condition")) { 1563s [00:52:43.796] if (!is.null(pattern)) { 1563s [00:52:43.796] computeRestarts <- base::computeRestarts 1563s [00:52:43.796] grepl <- base::grepl 1563s [00:52:43.796] restarts <- computeRestarts(cond) 1563s [00:52:43.796] for (restart in restarts) { 1563s [00:52:43.796] name <- restart$name 1563s [00:52:43.796] if (is.null(name)) 1563s [00:52:43.796] next 1563s [00:52:43.796] if (!grepl(pattern, name)) 1563s [00:52:43.796] next 1563s [00:52:43.796] invokeRestart(restart) 1563s [00:52:43.796] muffled <- TRUE 1563s [00:52:43.796] break 1563s [00:52:43.796] } 1563s [00:52:43.796] } 1563s [00:52:43.796] } 1563s [00:52:43.796] invisible(muffled) 1563s [00:52:43.796] } 1563s [00:52:43.796] muffleCondition(cond, pattern = "^muffle") 1563s [00:52:43.796] } 1563s [00:52:43.796] } 1563s [00:52:43.796] } 1563s [00:52:43.796] })) 1563s [00:52:43.796] }, error = function(ex) { 1563s [00:52:43.796] base::structure(base::list(value = NULL, visible = NULL, 1563s [00:52:43.796] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1563s [00:52:43.796] ...future.rng), started = ...future.startTime, 1563s [00:52:43.796] finished = Sys.time(), session_uuid = NA_character_, 1563s [00:52:43.796] version = "1.8"), class = "FutureResult") 1563s [00:52:43.796] }, finally = { 1563s [00:52:43.796] if (!identical(...future.workdir, getwd())) 1563s [00:52:43.796] setwd(...future.workdir) 1563s [00:52:43.796] { 1563s [00:52:43.796] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1563s [00:52:43.796] ...future.oldOptions$nwarnings <- NULL 1563s [00:52:43.796] } 1563s [00:52:43.796] base::options(...future.oldOptions) 1563s [00:52:43.796] if (.Platform$OS.type == "windows") { 1563s [00:52:43.796] old_names <- names(...future.oldEnvVars) 1563s [00:52:43.796] envs <- base::Sys.getenv() 1563s [00:52:43.796] names <- names(envs) 1563s [00:52:43.796] common <- intersect(names, old_names) 1563s [00:52:43.796] added <- setdiff(names, old_names) 1563s [00:52:43.796] removed <- setdiff(old_names, names) 1563s [00:52:43.796] changed <- common[...future.oldEnvVars[common] != 1563s [00:52:43.796] envs[common]] 1563s [00:52:43.796] NAMES <- toupper(changed) 1563s [00:52:43.796] args <- list() 1563s [00:52:43.796] for (kk in seq_along(NAMES)) { 1563s [00:52:43.796] name <- changed[[kk]] 1563s [00:52:43.796] NAME <- NAMES[[kk]] 1563s [00:52:43.796] if (name != NAME && is.element(NAME, old_names)) 1563s [00:52:43.796] next 1563s [00:52:43.796] args[[name]] <- ...future.oldEnvVars[[name]] 1563s [00:52:43.796] } 1563s [00:52:43.796] NAMES <- toupper(added) 1563s [00:52:43.796] for (kk in seq_along(NAMES)) { 1563s [00:52:43.796] name <- added[[kk]] 1563s [00:52:43.796] NAME <- NAMES[[kk]] 1563s [00:52:43.796] if (name != NAME && is.element(NAME, old_names)) 1563s [00:52:43.796] next 1563s [00:52:43.796] args[[name]] <- "" 1563s [00:52:43.796] } 1563s [00:52:43.796] NAMES <- toupper(removed) 1563s [00:52:43.796] for (kk in seq_along(NAMES)) { 1563s [00:52:43.796] name <- removed[[kk]] 1563s [00:52:43.796] NAME <- NAMES[[kk]] 1563s [00:52:43.796] if (name != NAME && is.element(NAME, old_names)) 1563s [00:52:43.796] next 1563s [00:52:43.796] args[[name]] <- ...future.oldEnvVars[[name]] 1563s [00:52:43.796] } 1563s [00:52:43.796] if (length(args) > 0) 1563s [00:52:43.796] base::do.call(base::Sys.setenv, args = args) 1563s [00:52:43.796] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1563s [00:52:43.796] } 1563s [00:52:43.796] else { 1563s [00:52:43.796] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1563s [00:52:43.796] } 1563s [00:52:43.796] { 1563s [00:52:43.796] if (base::length(...future.futureOptionsAdded) > 1563s [00:52:43.796] 0L) { 1563s [00:52:43.796] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1563s [00:52:43.796] base::names(opts) <- ...future.futureOptionsAdded 1563s [00:52:43.796] base::options(opts) 1563s [00:52:43.796] } 1563s [00:52:43.796] { 1563s [00:52:43.796] { 1563s [00:52:43.796] base::assign(".Random.seed", c(10407L, -193111136L, 1563s [00:52:43.796] 1998638665L, 1795077819L, 549408344L, 564105141L, 1563s [00:52:43.796] -308065669L), envir = base::globalenv(), 1563s [00:52:43.796] inherits = FALSE) 1563s [00:52:43.796] NULL 1563s [00:52:43.796] } 1563s [00:52:43.796] options(future.plan = NULL) 1563s [00:52:43.796] if (is.na(NA_character_)) 1563s [00:52:43.796] Sys.unsetenv("R_FUTURE_PLAN") 1563s [00:52:43.796] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1563s [00:52:43.796] future::plan(list(function (..., workers = availableCores(), 1563s [00:52:43.796] lazy = FALSE, rscript_libs = .libPaths(), 1563s [00:52:43.796] envir = parent.frame()) 1563s [00:52:43.796] { 1563s [00:52:43.796] if (is.function(workers)) 1563s [00:52:43.796] workers <- workers() 1563s [00:52:43.796] workers <- structure(as.integer(workers), 1563s [00:52:43.796] class = class(workers)) 1563s [00:52:43.796] stop_if_not(length(workers) == 1, is.finite(workers), 1563s [00:52:43.796] workers >= 1) 1563s [00:52:43.796] if (workers == 1L && !inherits(workers, "AsIs")) { 1563s [00:52:43.796] return(sequential(..., lazy = TRUE, envir = envir)) 1563s [00:52:43.796] } 1563s [00:52:43.796] future <- MultisessionFuture(..., workers = workers, 1563s [00:52:43.796] lazy = lazy, rscript_libs = rscript_libs, 1563s [00:52:43.796] envir = envir) 1563s [00:52:43.796] if (!future$lazy) 1563s [00:52:43.796] future <- run(future) 1563s [00:52:43.796] invisible(future) 1563s [00:52:43.796] }), .cleanup = FALSE, .init = FALSE) 1563s [00:52:43.796] } 1563s [00:52:43.796] } 1563s [00:52:43.796] } 1563s [00:52:43.796] }) 1563s [00:52:43.796] if (TRUE) { 1563s [00:52:43.796] base::sink(type = "output", split = FALSE) 1563s [00:52:43.796] if (TRUE) { 1563s [00:52:43.796] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1563s [00:52:43.796] } 1563s [00:52:43.796] else { 1563s [00:52:43.796] ...future.result["stdout"] <- base::list(NULL) 1563s [00:52:43.796] } 1563s [00:52:43.796] base::close(...future.stdout) 1563s [00:52:43.796] ...future.stdout <- NULL 1563s [00:52:43.796] } 1563s [00:52:43.796] ...future.result$conditions <- ...future.conditions 1563s [00:52:43.796] ...future.result$finished <- base::Sys.time() 1563s [00:52:43.796] ...future.result 1563s [00:52:43.796] } 1563s [00:52:43.800] assign_globals() ... 1563s [00:52:43.800] List of 5 1563s [00:52:43.800] $ ...future.FUN :function (x, ...) 1563s [00:52:43.800] $ MoreArgs :List of 1 1563s [00:52:43.800] ..$ x: num 42 1563s [00:52:43.800] $ ...future.elements_ii :List of 1 1563s [00:52:43.800] ..$ times:List of 4 1563s [00:52:43.800] .. ..$ : int 1 1563s [00:52:43.800] .. ..$ : int 2 1563s [00:52:43.800] .. ..$ : int 3 1563s [00:52:43.800] .. ..$ : int 4 1563s [00:52:43.800] $ ...future.seeds_ii : NULL 1563s [00:52:43.800] $ ...future.globals.maxSize: NULL 1563s [00:52:43.800] - attr(*, "where")=List of 5 1563s [00:52:43.800] ..$ ...future.FUN : 1563s [00:52:43.800] ..$ MoreArgs : 1563s [00:52:43.800] ..$ ...future.elements_ii : 1563s [00:52:43.800] ..$ ...future.seeds_ii : 1563s [00:52:43.800] ..$ ...future.globals.maxSize: 1563s [00:52:43.800] - attr(*, "resolved")= logi FALSE 1563s [00:52:43.800] - attr(*, "total_size")= num 336 1563s [00:52:43.800] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1563s [00:52:43.800] - attr(*, "already-done")= logi TRUE 1563s [00:52:43.809] - copied ‘...future.FUN’ to environment 1563s [00:52:43.809] - copied ‘MoreArgs’ to environment 1563s [00:52:43.809] - copied ‘...future.elements_ii’ to environment 1563s [00:52:43.809] - copied ‘...future.seeds_ii’ to environment 1563s [00:52:43.809] - copied ‘...future.globals.maxSize’ to environment 1563s [00:52:43.809] assign_globals() ... done 1563s [00:52:43.809] plan(): Setting new future strategy stack: 1563s [00:52:43.810] List of future strategies: 1563s [00:52:43.810] 1. sequential: 1563s [00:52:43.810] - args: function (..., envir = parent.frame()) 1563s [00:52:43.810] - tweaked: FALSE 1563s [00:52:43.810] - call: NULL 1563s [00:52:43.810] plan(): nbrOfWorkers() = 1 1563s [00:52:43.811] plan(): Setting new future strategy stack: 1563s [00:52:43.812] List of future strategies: 1563s [00:52:43.812] 1. multisession: 1563s [00:52:43.812] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1563s [00:52:43.812] - tweaked: FALSE 1563s [00:52:43.812] - call: plan(strategy) 1563s [00:52:43.815] plan(): nbrOfWorkers() = 1 1563s [00:52:43.815] SequentialFuture started (and completed) 1563s [00:52:43.815] - Launch lazy future ... done 1563s [00:52:43.816] run() for ‘SequentialFuture’ ... done 1563s [00:52:43.816] Created future: 1563s [00:52:43.816] SequentialFuture: 1563s [00:52:43.816] Label: ‘future_mapply-1’ 1563s [00:52:43.816] Expression: 1563s [00:52:43.816] { 1563s [00:52:43.816] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1563s [00:52:43.816] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1563s [00:52:43.816] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1563s [00:52:43.816] on.exit(options(oopts), add = TRUE) 1563s [00:52:43.816] } 1563s [00:52:43.816] { 1563s [00:52:43.816] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1563s [00:52:43.816] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1563s [00:52:43.816] do.call(mapply, args = args) 1563s [00:52:43.816] } 1563s [00:52:43.816] } 1563s [00:52:43.816] Lazy evaluation: FALSE 1563s [00:52:43.816] Asynchronous evaluation: FALSE 1563s [00:52:43.816] Local evaluation: TRUE 1563s [00:52:43.816] Environment: R_GlobalEnv 1563s [00:52:43.816] Capture standard output: TRUE 1563s [00:52:43.816] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1563s [00:52:43.816] Globals: 5 objects totaling 336 bytes (function ‘...future.FUN’ of 56 bytes, list ‘MoreArgs’ of 56 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1563s [00:52:43.816] Packages: 1563s [00:52:43.816] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1563s [00:52:43.816] Resolved: TRUE 1563s [00:52:43.816] Value: 280 bytes of class ‘list’ 1563s [00:52:43.816] Early signaling: FALSE 1563s [00:52:43.816] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1563s [00:52:43.816] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1563s [00:52:43.817] Chunk #1 of 1 ... DONE 1563s [00:52:43.817] Launching 1 futures (chunks) ... DONE 1563s [00:52:43.818] Resolving 1 futures (chunks) ... 1563s [00:52:43.818] resolve() on list ... 1563s [00:52:43.818] recursive: 0 1563s [00:52:43.818] length: 1 1563s [00:52:43.818] 1563s [00:52:43.818] resolved() for ‘SequentialFuture’ ... 1563s [00:52:43.819] - state: ‘finished’ 1563s [00:52:43.819] - run: TRUE 1563s [00:52:43.819] - result: ‘FutureResult’ 1563s [00:52:43.819] resolved() for ‘SequentialFuture’ ... done 1563s [00:52:43.819] Future #1 1563s [00:52:43.819] signalConditionsASAP(SequentialFuture, pos=1) ... 1563s [00:52:43.819] - nx: 1 1563s [00:52:43.820] - relay: TRUE 1563s [00:52:43.820] - stdout: TRUE 1563s [00:52:43.820] - signal: TRUE 1563s [00:52:43.820] - resignal: FALSE 1563s [00:52:43.820] - force: TRUE 1563s [00:52:43.820] - relayed: [n=1] FALSE 1563s [00:52:43.820] - queued futures: [n=1] FALSE 1563s [00:52:43.821] - until=1 1563s [00:52:43.821] - relaying element #1 1563s [00:52:43.821] - relayed: [n=1] TRUE 1563s [00:52:43.821] - queued futures: [n=1] TRUE 1563s [00:52:43.822] signalConditionsASAP(SequentialFuture, pos=1) ... done 1563s [00:52:43.822] length: 0 (resolved future 1) 1563s [00:52:43.822] Relaying remaining futures 1563s [00:52:43.822] signalConditionsASAP(NULL, pos=0) ... 1563s [00:52:43.822] - nx: 1 1563s [00:52:43.822] - relay: TRUE 1563s [00:52:43.822] - stdout: TRUE 1563s [00:52:43.822] - signal: TRUE 1563s [00:52:43.823] - resignal: FALSE 1563s [00:52:43.823] - force: TRUE 1563s [00:52:43.823] - relayed: [n=1] TRUE 1563s [00:52:43.823] - queued futures: [n=1] TRUE 1563s - flush all 1563s [00:52:43.824] - relayed: [n=1] TRUE 1563s [00:52:43.824] - queued futures: [n=1] TRUE 1563s [00:52:43.824] signalConditionsASAP(NULL, pos=0) ... done 1563s [00:52:43.824] resolve() on list ... DONE 1563s [00:52:43.824] - Number of value chunks collected: 1 1563s [00:52:43.824] Resolving 1 futures (chunks) ... DONE 1563s [00:52:43.825] Reducing values from 1 chunks ... 1563s [00:52:43.825] - Number of values collected after concatenation: 4 1563s [00:52:43.825] - Number of values expected: 4 1563s [00:52:43.827] Reducing values from 1 chunks ... DONE 1563s [00:52:43.827] future_mapply() ... DONE 1563s [00:52:43.827] future_mapply() ... 1563s [00:52:43.831] Number of chunks: 1 1563s [00:52:43.831] getGlobalsAndPackagesXApply() ... 1563s [00:52:43.831] - future.globals: TRUE 1563s [00:52:43.831] getGlobalsAndPackages() ... 1563s [00:52:43.832] Searching for globals... 1563s [00:52:43.834] - globals found: [3] ‘FUN’, ‘+’, ‘seq_len’ 1563s [00:52:43.834] Searching for globals ... DONE 1563s [00:52:43.834] Resolving globals: FALSE 1563s [00:52:43.835] The total size of the 1 globals is 1.93 KiB (1976 bytes) 1563s [00:52:43.836] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.93 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.93 KiB of class ‘function’) 1563s [00:52:43.836] - globals: [1] ‘FUN’ 1563s [00:52:43.836] 1563s [00:52:43.836] getGlobalsAndPackages() ... DONE 1563s [00:52:43.837] - globals found/used: [n=1] ‘FUN’ 1563s [00:52:43.837] - needed namespaces: [n=0] 1563s [00:52:43.837] Finding globals ... DONE 1563s [00:52:43.837] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1563s [00:52:43.837] List of 2 1563s [00:52:43.837] $ ...future.FUN:function (x, y) 1563s [00:52:43.837] $ MoreArgs : NULL 1563s [00:52:43.837] - attr(*, "where")=List of 2 1563s [00:52:43.837] ..$ ...future.FUN: 1563s [00:52:43.837] ..$ MoreArgs : 1563s [00:52:43.837] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1563s [00:52:43.837] - attr(*, "resolved")= logi FALSE 1563s [00:52:43.837] - attr(*, "total_size")= num NA 1563s [00:52:43.841] Packages to be attached in all futures: [n=0] 1563s [00:52:43.841] getGlobalsAndPackagesXApply() ... DONE 1563s [00:52:43.841] Number of futures (= number of chunks): 1 1563s [00:52:43.841] Launching 1 futures (chunks) ... 1563s [00:52:43.841] Chunk #1 of 1 ... 1563s [00:52:43.841] - Finding globals in '...' for chunk #1 ... 1563s [00:52:43.842] getGlobalsAndPackages() ... 1563s [00:52:43.842] Searching for globals... 1563s [00:52:43.842] 1563s [00:52:43.842] Searching for globals ... DONE 1563s [00:52:43.842] - globals: [0] 1563s [00:52:43.843] getGlobalsAndPackages() ... DONE 1563s [00:52:43.843] + additional globals found: [n=0] 1563s [00:52:43.843] + additional namespaces needed: [n=0] 1563s [00:52:43.843] - Finding globals in '...' for chunk #1 ... DONE 1563s [00:52:43.843] - seeds: 1563s [00:52:43.843] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1563s [00:52:43.844] getGlobalsAndPackages() ... 1563s [00:52:43.844] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1563s [00:52:43.844] Resolving globals: FALSE 1563s [00:52:43.844] The total size of the 5 globals is 2.26 KiB (2312 bytes) 1563s [00:52:43.845] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 2.26 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (1.93 KiB of class ‘function’), ‘...future.elements_ii’ (336 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1563s [00:52:43.845] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1563s [00:52:43.845] 1563s [00:52:43.846] getGlobalsAndPackages() ... DONE 1563s [00:52:43.846] run() for ‘Future’ ... 1563s [00:52:43.846] - state: ‘created’ 1563s [00:52:43.846] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1563s [00:52:43.850] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1563s [00:52:43.850] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1563s [00:52:43.850] - Field: ‘label’ 1563s [00:52:43.851] - Field: ‘local’ 1563s [00:52:43.851] - Field: ‘owner’ 1563s [00:52:43.851] - Field: ‘envir’ 1563s [00:52:43.851] - Field: ‘packages’ 1563s [00:52:43.851] - Field: ‘gc’ 1563s [00:52:43.851] - Field: ‘conditions’ 1563s [00:52:43.852] - Field: ‘expr’ 1563s [00:52:43.852] - Field: ‘uuid’ 1563s [00:52:43.852] - Field: ‘seed’ 1563s [00:52:43.853] - Field: ‘version’ 1563s [00:52:43.853] - Field: ‘result’ 1563s [00:52:43.853] - Field: ‘asynchronous’ 1563s [00:52:43.853] - Field: ‘calls’ 1563s [00:52:43.853] - Field: ‘globals’ 1563s [00:52:43.853] - Field: ‘stdout’ 1563s [00:52:43.854] - Field: ‘earlySignal’ 1563s [00:52:43.854] - Field: ‘lazy’ 1563s [00:52:43.854] - Field: ‘state’ 1563s [00:52:43.854] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1563s [00:52:43.855] - Launch lazy future ... 1563s [00:52:43.855] Packages needed by the future expression (n = 0): 1563s [00:52:43.855] Packages needed by future strategies (n = 0): 1563s [00:52:43.856] { 1563s [00:52:43.856] { 1563s [00:52:43.856] { 1563s [00:52:43.856] ...future.startTime <- base::Sys.time() 1563s [00:52:43.856] { 1563s [00:52:43.856] { 1563s [00:52:43.856] { 1563s [00:52:43.856] base::local({ 1563s [00:52:43.856] has_future <- base::requireNamespace("future", 1563s [00:52:43.856] quietly = TRUE) 1563s [00:52:43.856] if (has_future) { 1563s [00:52:43.856] ns <- base::getNamespace("future") 1563s [00:52:43.856] version <- ns[[".package"]][["version"]] 1563s [00:52:43.856] if (is.null(version)) 1563s [00:52:43.856] version <- utils::packageVersion("future") 1563s [00:52:43.856] } 1563s [00:52:43.856] else { 1563s [00:52:43.856] version <- NULL 1563s [00:52:43.856] } 1563s [00:52:43.856] if (!has_future || version < "1.8.0") { 1563s [00:52:43.856] info <- base::c(r_version = base::gsub("R version ", 1563s [00:52:43.856] "", base::R.version$version.string), 1563s [00:52:43.856] platform = base::sprintf("%s (%s-bit)", 1563s [00:52:43.856] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1563s [00:52:43.856] os = base::paste(base::Sys.info()[base::c("sysname", 1563s [00:52:43.856] "release", "version")], collapse = " "), 1563s [00:52:43.856] hostname = base::Sys.info()[["nodename"]]) 1563s [00:52:43.856] info <- base::sprintf("%s: %s", base::names(info), 1563s [00:52:43.856] info) 1563s [00:52:43.856] info <- base::paste(info, collapse = "; ") 1563s [00:52:43.856] if (!has_future) { 1563s [00:52:43.856] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1563s [00:52:43.856] info) 1563s [00:52:43.856] } 1563s [00:52:43.856] else { 1563s [00:52:43.856] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1563s [00:52:43.856] info, version) 1563s [00:52:43.856] } 1563s [00:52:43.856] base::stop(msg) 1563s [00:52:43.856] } 1563s [00:52:43.856] }) 1563s [00:52:43.856] } 1563s [00:52:43.856] options(future.plan = NULL) 1563s [00:52:43.856] Sys.unsetenv("R_FUTURE_PLAN") 1563s [00:52:43.856] future::plan("default", .cleanup = FALSE, .init = FALSE) 1563s [00:52:43.856] } 1563s [00:52:43.856] ...future.workdir <- getwd() 1563s [00:52:43.856] } 1563s [00:52:43.856] ...future.oldOptions <- base::as.list(base::.Options) 1563s [00:52:43.856] ...future.oldEnvVars <- base::Sys.getenv() 1563s [00:52:43.856] } 1563s [00:52:43.856] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1563s [00:52:43.856] future.globals.maxSize = NULL, future.globals.method = NULL, 1563s [00:52:43.856] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1563s [00:52:43.856] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1563s [00:52:43.856] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1563s [00:52:43.856] future.stdout.windows.reencode = NULL, width = 80L) 1563s [00:52:43.856] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1563s [00:52:43.856] base::names(...future.oldOptions)) 1563s [00:52:43.856] } 1563s [00:52:43.856] if (FALSE) { 1563s [00:52:43.856] } 1563s [00:52:43.856] else { 1563s [00:52:43.856] if (TRUE) { 1563s [00:52:43.856] ...future.stdout <- base::rawConnection(base::raw(0L), 1563s [00:52:43.856] open = "w") 1563s [00:52:43.856] } 1563s [00:52:43.856] else { 1563s [00:52:43.856] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1563s [00:52:43.856] windows = "NUL", "/dev/null"), open = "w") 1563s [00:52:43.856] } 1563s [00:52:43.856] base::sink(...future.stdout, type = "output", split = FALSE) 1563s [00:52:43.856] base::on.exit(if (!base::is.null(...future.stdout)) { 1563s [00:52:43.856] base::sink(type = "output", split = FALSE) 1563s [00:52:43.856] base::close(...future.stdout) 1563s [00:52:43.856] }, add = TRUE) 1563s [00:52:43.856] } 1563s [00:52:43.856] ...future.frame <- base::sys.nframe() 1563s [00:52:43.856] ...future.conditions <- base::list() 1563s [00:52:43.856] ...future.rng <- base::globalenv()$.Random.seed 1563s [00:52:43.856] if (FALSE) { 1563s [00:52:43.856] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1563s [00:52:43.856] "...future.value", "...future.globalenv.names", ".Random.seed") 1563s [00:52:43.856] } 1563s [00:52:43.856] ...future.result <- base::tryCatch({ 1563s [00:52:43.856] base::withCallingHandlers({ 1563s [00:52:43.856] ...future.value <- base::withVisible(base::local({ 1563s [00:52:43.856] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1563s [00:52:43.856] if (!identical(...future.globals.maxSize.org, 1563s [00:52:43.856] ...future.globals.maxSize)) { 1563s [00:52:43.856] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1563s [00:52:43.856] on.exit(options(oopts), add = TRUE) 1563s [00:52:43.856] } 1563s [00:52:43.856] { 1563s [00:52:43.856] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1563s [00:52:43.856] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1563s [00:52:43.856] USE.NAMES = FALSE) 1563s [00:52:43.856] do.call(mapply, args = args) 1563s [00:52:43.856] } 1563s [00:52:43.856] })) 1563s [00:52:43.856] future::FutureResult(value = ...future.value$value, 1563s [00:52:43.856] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1563s [00:52:43.856] ...future.rng), globalenv = if (FALSE) 1563s [00:52:43.856] list(added = base::setdiff(base::names(base::.GlobalEnv), 1563s [00:52:43.856] ...future.globalenv.names)) 1563s [00:52:43.856] else NULL, started = ...future.startTime, version = "1.8") 1563s [00:52:43.856] }, condition = base::local({ 1563s [00:52:43.856] c <- base::c 1563s [00:52:43.856] inherits <- base::inherits 1563s [00:52:43.856] invokeRestart <- base::invokeRestart 1563s [00:52:43.856] length <- base::length 1563s [00:52:43.856] list <- base::list 1563s [00:52:43.856] seq.int <- base::seq.int 1563s [00:52:43.856] signalCondition <- base::signalCondition 1563s [00:52:43.856] sys.calls <- base::sys.calls 1563s [00:52:43.856] `[[` <- base::`[[` 1563s [00:52:43.856] `+` <- base::`+` 1563s [00:52:43.856] `<<-` <- base::`<<-` 1563s [00:52:43.856] sysCalls <- function(calls = sys.calls(), from = 1L) { 1563s [00:52:43.856] calls[seq.int(from = from + 12L, to = length(calls) - 1563s [00:52:43.856] 3L)] 1563s [00:52:43.856] } 1563s [00:52:43.856] function(cond) { 1563s [00:52:43.856] is_error <- inherits(cond, "error") 1563s [00:52:43.856] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1563s [00:52:43.856] NULL) 1563s [00:52:43.856] if (is_error) { 1563s [00:52:43.856] sessionInformation <- function() { 1563s [00:52:43.856] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1563s [00:52:43.856] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1563s [00:52:43.856] search = base::search(), system = base::Sys.info()) 1563s [00:52:43.856] } 1563s [00:52:43.856] ...future.conditions[[length(...future.conditions) + 1563s [00:52:43.856] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1563s [00:52:43.856] cond$call), session = sessionInformation(), 1563s [00:52:43.856] timestamp = base::Sys.time(), signaled = 0L) 1563s [00:52:43.856] signalCondition(cond) 1563s [00:52:43.856] } 1563s [00:52:43.856] else if (!ignore && TRUE && inherits(cond, c("condition", 1563s [00:52:43.856] "immediateCondition"))) { 1563s [00:52:43.856] signal <- TRUE && inherits(cond, "immediateCondition") 1563s [00:52:43.856] ...future.conditions[[length(...future.conditions) + 1563s [00:52:43.856] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1563s [00:52:43.856] if (TRUE && !signal) { 1563s [00:52:43.856] muffleCondition <- function (cond, pattern = "^muffle") 1563s [00:52:43.856] { 1563s [00:52:43.856] inherits <- base::inherits 1563s [00:52:43.856] invokeRestart <- base::invokeRestart 1563s [00:52:43.856] is.null <- base::is.null 1563s [00:52:43.856] muffled <- FALSE 1563s [00:52:43.856] if (inherits(cond, "message")) { 1563s [00:52:43.856] muffled <- grepl(pattern, "muffleMessage") 1563s [00:52:43.856] if (muffled) 1563s [00:52:43.856] invokeRestart("muffleMessage") 1563s [00:52:43.856] } 1563s [00:52:43.856] else if (inherits(cond, "warning")) { 1563s [00:52:43.856] muffled <- grepl(pattern, "muffleWarning") 1563s [00:52:43.856] if (muffled) 1563s [00:52:43.856] invokeRestart("muffleWarning") 1563s [00:52:43.856] } 1563s [00:52:43.856] else if (inherits(cond, "condition")) { 1563s [00:52:43.856] if (!is.null(pattern)) { 1563s [00:52:43.856] computeRestarts <- base::computeRestarts 1563s [00:52:43.856] grepl <- base::grepl 1563s [00:52:43.856] restarts <- computeRestarts(cond) 1563s [00:52:43.856] for (restart in restarts) { 1563s [00:52:43.856] name <- restart$name 1563s [00:52:43.856] if (is.null(name)) 1563s [00:52:43.856] next 1563s [00:52:43.856] if (!grepl(pattern, name)) 1563s [00:52:43.856] next 1563s [00:52:43.856] invokeRestart(restart) 1563s [00:52:43.856] muffled <- TRUE 1563s [00:52:43.856] break 1563s [00:52:43.856] } 1563s [00:52:43.856] } 1563s [00:52:43.856] } 1563s [00:52:43.856] invisible(muffled) 1563s [00:52:43.856] } 1563s [00:52:43.856] muffleCondition(cond, pattern = "^muffle") 1563s [00:52:43.856] } 1563s [00:52:43.856] } 1563s [00:52:43.856] else { 1563s [00:52:43.856] if (TRUE) { 1563s [00:52:43.856] muffleCondition <- function (cond, pattern = "^muffle") 1563s [00:52:43.856] { 1563s [00:52:43.856] inherits <- base::inherits 1563s [00:52:43.856] invokeRestart <- base::invokeRestart 1563s [00:52:43.856] is.null <- base::is.null 1563s [00:52:43.856] muffled <- FALSE 1563s [00:52:43.856] if (inherits(cond, "message")) { 1563s [00:52:43.856] muffled <- grepl(pattern, "muffleMessage") 1563s [00:52:43.856] if (muffled) 1563s [00:52:43.856] invokeRestart("muffleMessage") 1563s [00:52:43.856] } 1563s [00:52:43.856] else if (inherits(cond, "warning")) { 1563s [00:52:43.856] muffled <- grepl(pattern, "muffleWarning") 1563s [00:52:43.856] if (muffled) 1563s [00:52:43.856] invokeRestart("muffleWarning") 1563s [00:52:43.856] } 1563s [00:52:43.856] else if (inherits(cond, "condition")) { 1563s [00:52:43.856] if (!is.null(pattern)) { 1563s [00:52:43.856] computeRestarts <- base::computeRestarts 1563s [00:52:43.856] grepl <- base::grepl 1563s [00:52:43.856] restarts <- computeRestarts(cond) 1563s [00:52:43.856] for (restart in restarts) { 1563s [00:52:43.856] name <- restart$name 1563s [00:52:43.856] if (is.null(name)) 1563s [00:52:43.856] next 1563s [00:52:43.856] if (!grepl(pattern, name)) 1563s [00:52:43.856] next 1563s [00:52:43.856] invokeRestart(restart) 1563s [00:52:43.856] muffled <- TRUE 1563s [00:52:43.856] break 1563s [00:52:43.856] } 1563s [00:52:43.856] } 1563s [00:52:43.856] } 1563s [00:52:43.856] invisible(muffled) 1563s [00:52:43.856] } 1563s [00:52:43.856] muffleCondition(cond, pattern = "^muffle") 1563s [00:52:43.856] } 1563s [00:52:43.856] } 1563s [00:52:43.856] } 1563s [00:52:43.856] })) 1563s [00:52:43.856] }, error = function(ex) { 1563s [00:52:43.856] base::structure(base::list(value = NULL, visible = NULL, 1563s [00:52:43.856] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1563s [00:52:43.856] ...future.rng), started = ...future.startTime, 1563s [00:52:43.856] finished = Sys.time(), session_uuid = NA_character_, 1563s [00:52:43.856] version = "1.8"), class = "FutureResult") 1563s [00:52:43.856] }, finally = { 1563s [00:52:43.856] if (!identical(...future.workdir, getwd())) 1563s [00:52:43.856] setwd(...future.workdir) 1563s [00:52:43.856] { 1563s [00:52:43.856] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1563s [00:52:43.856] ...future.oldOptions$nwarnings <- NULL 1563s [00:52:43.856] } 1563s [00:52:43.856] base::options(...future.oldOptions) 1563s [00:52:43.856] if (.Platform$OS.type == "windows") { 1563s [00:52:43.856] old_names <- names(...future.oldEnvVars) 1563s [00:52:43.856] envs <- base::Sys.getenv() 1563s [00:52:43.856] names <- names(envs) 1563s [00:52:43.856] common <- intersect(names, old_names) 1563s [00:52:43.856] added <- setdiff(names, old_names) 1563s [00:52:43.856] removed <- setdiff(old_names, names) 1563s [00:52:43.856] changed <- common[...future.oldEnvVars[common] != 1563s [00:52:43.856] envs[common]] 1563s [00:52:43.856] NAMES <- toupper(changed) 1563s [00:52:43.856] args <- list() 1563s [00:52:43.856] for (kk in seq_along(NAMES)) { 1563s [00:52:43.856] name <- changed[[kk]] 1563s [00:52:43.856] NAME <- NAMES[[kk]] 1563s [00:52:43.856] if (name != NAME && is.element(NAME, old_names)) 1563s [00:52:43.856] next 1563s [00:52:43.856] args[[name]] <- ...future.oldEnvVars[[name]] 1563s [00:52:43.856] } 1563s [00:52:43.856] NAMES <- toupper(added) 1563s [00:52:43.856] for (kk in seq_along(NAMES)) { 1563s [00:52:43.856] name <- added[[kk]] 1563s [00:52:43.856] NAME <- NAMES[[kk]] 1563s [00:52:43.856] if (name != NAME && is.element(NAME, old_names)) 1563s [00:52:43.856] next 1563s [00:52:43.856] args[[name]] <- "" 1563s [00:52:43.856] } 1563s [00:52:43.856] NAMES <- toupper(removed) 1563s [00:52:43.856] for (kk in seq_along(NAMES)) { 1563s [00:52:43.856] name <- removed[[kk]] 1563s [00:52:43.856] NAME <- NAMES[[kk]] 1563s [00:52:43.856] if (name != NAME && is.element(NAME, old_names)) 1563s [00:52:43.856] next 1563s [00:52:43.856] args[[name]] <- ...future.oldEnvVars[[name]] 1563s [00:52:43.856] } 1563s [00:52:43.856] if (length(args) > 0) 1563s [00:52:43.856] base::do.call(base::Sys.setenv, args = args) 1563s [00:52:43.856] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1563s [00:52:43.856] } 1563s [00:52:43.856] else { 1563s [00:52:43.856] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1563s [00:52:43.856] } 1563s [00:52:43.856] { 1563s [00:52:43.856] if (base::length(...future.futureOptionsAdded) > 1563s [00:52:43.856] 0L) { 1563s [00:52:43.856] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1563s [00:52:43.856] base::names(opts) <- ...future.futureOptionsAdded 1563s [00:52:43.856] base::options(opts) 1563s [00:52:43.856] } 1563s [00:52:43.856] { 1563s [00:52:43.856] { 1563s [00:52:43.856] base::assign(".Random.seed", c(10407L, -193111136L, 1563s [00:52:43.856] 1998638665L, 1795077819L, 549408344L, 564105141L, 1563s [00:52:43.856] -308065669L), envir = base::globalenv(), 1563s [00:52:43.856] inherits = FALSE) 1563s [00:52:43.856] NULL 1563s [00:52:43.856] } 1563s [00:52:43.856] options(future.plan = NULL) 1563s [00:52:43.856] if (is.na(NA_character_)) 1563s [00:52:43.856] Sys.unsetenv("R_FUTURE_PLAN") 1563s [00:52:43.856] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1563s [00:52:43.856] future::plan(list(function (..., workers = availableCores(), 1563s [00:52:43.856] lazy = FALSE, rscript_libs = .libPaths(), 1563s [00:52:43.856] envir = parent.frame()) 1563s [00:52:43.856] { 1563s [00:52:43.856] if (is.function(workers)) 1563s [00:52:43.856] workers <- workers() 1563s [00:52:43.856] workers <- structure(as.integer(workers), 1563s [00:52:43.856] class = class(workers)) 1563s [00:52:43.856] stop_if_not(length(workers) == 1, is.finite(workers), 1563s [00:52:43.856] workers >= 1) 1563s [00:52:43.856] if (workers == 1L && !inherits(workers, "AsIs")) { 1563s [00:52:43.856] return(sequential(..., lazy = TRUE, envir = envir)) 1563s [00:52:43.856] } 1563s [00:52:43.856] future <- MultisessionFuture(..., workers = workers, 1563s [00:52:43.856] lazy = lazy, rscript_libs = rscript_libs, 1563s [00:52:43.856] envir = envir) 1563s [00:52:43.856] if (!future$lazy) 1563s [00:52:43.856] future <- run(future) 1563s [00:52:43.856] invisible(future) 1563s [00:52:43.856] }), .cleanup = FALSE, .init = FALSE) 1563s [00:52:43.856] } 1563s [00:52:43.856] } 1563s [00:52:43.856] } 1563s [00:52:43.856] }) 1563s [00:52:43.856] if (TRUE) { 1563s [00:52:43.856] base::sink(type = "output", split = FALSE) 1563s [00:52:43.856] if (TRUE) { 1563s [00:52:43.856] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1563s [00:52:43.856] } 1563s [00:52:43.856] else { 1563s [00:52:43.856] ...future.result["stdout"] <- base::list(NULL) 1563s [00:52:43.856] } 1563s [00:52:43.856] base::close(...future.stdout) 1563s [00:52:43.856] ...future.stdout <- NULL 1563s [00:52:43.856] } 1563s [00:52:43.856] ...future.result$conditions <- ...future.conditions 1563s [00:52:43.856] ...future.result$finished <- base::Sys.time() 1563s [00:52:43.856] ...future.result 1563s [00:52:43.856] } 1563s [00:52:43.859] assign_globals() ... 1563s [00:52:43.859] List of 5 1563s [00:52:43.859] $ ...future.FUN :function (x, y) 1563s [00:52:43.859] $ MoreArgs : NULL 1563s [00:52:43.859] $ ...future.elements_ii :List of 2 1563s [00:52:43.859] ..$ :List of 3 1563s [00:52:43.859] .. ..$ a: num 1 1563s [00:52:43.859] .. ..$ b: num 2 1563s [00:52:43.859] .. ..$ c: num 3 1563s [00:52:43.859] ..$ :List of 3 1563s [00:52:43.859] .. ..$ A: num 10 1563s [00:52:43.859] .. ..$ B: num 0 1563s [00:52:43.859] .. ..$ C: num -10 1563s [00:52:43.859] $ ...future.seeds_ii : NULL 1563s [00:52:43.859] $ ...future.globals.maxSize: NULL 1563s [00:52:43.859] - attr(*, "where")=List of 5 1563s [00:52:43.859] ..$ ...future.FUN : 1563s [00:52:43.859] ..$ MoreArgs : 1563s [00:52:43.859] ..$ ...future.elements_ii : 1563s [00:52:43.859] ..$ ...future.seeds_ii : 1563s [00:52:43.859] ..$ ...future.globals.maxSize: 1563s [00:52:43.859] - attr(*, "resolved")= logi FALSE 1563s [00:52:43.859] - attr(*, "total_size")= num 2312 1563s [00:52:43.859] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1563s [00:52:43.859] - attr(*, "already-done")= logi TRUE 1563s [00:52:43.873] - reassign environment for ‘...future.FUN’ 1563s [00:52:43.874] - copied ‘...future.FUN’ to environment 1563s [00:52:43.874] - copied ‘MoreArgs’ to environment 1563s [00:52:43.874] - copied ‘...future.elements_ii’ to environment 1563s [00:52:43.874] - copied ‘...future.seeds_ii’ to environment 1563s [00:52:43.874] - copied ‘...future.globals.maxSize’ to environment 1563s [00:52:43.874] assign_globals() ... done 1563s [00:52:43.875] plan(): Setting new future strategy stack: 1563s [00:52:43.875] List of future strategies: 1563s [00:52:43.875] 1. sequential: 1563s [00:52:43.875] - args: function (..., envir = parent.frame()) 1563s [00:52:43.875] - tweaked: FALSE 1563s [00:52:43.875] - call: NULL 1563s [00:52:43.875] plan(): nbrOfWorkers() = 1 1563s [00:52:43.876] plan(): Setting new future strategy stack: 1563s [00:52:43.876] List of future strategies: 1563s [00:52:43.876] 1. multisession: 1563s [00:52:43.876] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1563s [00:52:43.876] - tweaked: FALSE 1563s [00:52:43.876] - call: plan(strategy) 1563s [00:52:43.880] plan(): nbrOfWorkers() = 1 1563s [00:52:43.880] SequentialFuture started (and completed) 1563s [00:52:43.881] - Launch lazy future ... done 1563s [00:52:43.881] run() for ‘SequentialFuture’ ... done 1563s [00:52:43.881] Created future: 1563s [00:52:43.881] SequentialFuture: 1563s [00:52:43.881] Label: ‘future_mapply-1’ 1563s [00:52:43.881] Expression: 1563s [00:52:43.881] { 1563s [00:52:43.881] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1563s [00:52:43.881] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1563s [00:52:43.881] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1563s [00:52:43.881] on.exit(options(oopts), add = TRUE) 1563s [00:52:43.881] } 1563s [00:52:43.881] { 1563s [00:52:43.881] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1563s [00:52:43.881] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1563s [00:52:43.881] do.call(mapply, args = args) 1563s [00:52:43.881] } 1563s [00:52:43.881] } 1563s [00:52:43.881] Lazy evaluation: FALSE 1563s [00:52:43.881] Asynchronous evaluation: FALSE 1563s [00:52:43.881] Local evaluation: TRUE 1563s [00:52:43.881] Environment: R_GlobalEnv 1563s [00:52:43.881] Capture standard output: TRUE 1563s [00:52:43.881] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1563s [00:52:43.881] Globals: 5 objects totaling 2.26 KiB (function ‘...future.FUN’ of 1.93 KiB, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1563s [00:52:43.881] Packages: 1563s [00:52:43.881] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1563s [00:52:43.881] Resolved: TRUE 1563s [00:52:43.881] Value: 200 bytes of class ‘list’ 1563s [00:52:43.881] Early signaling: FALSE 1563s [00:52:43.881] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1563s [00:52:43.881] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1563s [00:52:43.883] Chunk #1 of 1 ... DONE 1563s [00:52:43.884] Launching 1 futures (chunks) ... DONE 1563s [00:52:43.884] Resolving 1 futures (chunks) ... 1563s [00:52:43.884] resolve() on list ... 1563s [00:52:43.884] recursive: 0 1563s [00:52:43.884] length: 1 1563s [00:52:43.885] 1563s [00:52:43.885] resolved() for ‘SequentialFuture’ ... 1563s [00:52:43.885] - state: ‘finished’ 1563s [00:52:43.885] - run: TRUE 1563s [00:52:43.885] - result: ‘FutureResult’ 1563s [00:52:43.885] resolved() for ‘SequentialFuture’ ... done 1563s [00:52:43.885] Future #1 1563s [00:52:43.886] signalConditionsASAP(SequentialFuture, pos=1) ... 1563s [00:52:43.886] - nx: 1 1563s [00:52:43.886] - relay: TRUE 1563s [00:52:43.886] - stdout: TRUE 1563s [00:52:43.886] - signal: TRUE 1563s [00:52:43.886] - resignal: FALSE 1563s [00:52:43.887] - force: TRUE 1563s [00:52:43.887] - relayed: [n=1] FALSE 1563s [00:52:43.887] - queued futures: [n=1] FALSE 1563s [00:52:43.887] - until=1 1563s [00:52:43.887] - relaying element #1 1563s [00:52:43.888] - relayed: [n=1] TRUE 1563s [00:52:43.888] - queued futures: [n=1] TRUE 1563s [00:52:43.888] signalConditionsASAP(SequentialFuture, pos=1) ... done 1563s [00:52:43.888] length: 0 (resolved future 1) 1563s [00:52:43.888] Relaying remaining futures 1563s [00:52:43.888] signalConditionsASAP(NULL, pos=0) ... 1563s [00:52:43.889] - nx: 1 1563s [00:52:43.889] - relay: TRUE 1563s [00:52:43.889] - stdout: TRUE 1563s [00:52:43.889] - signal: TRUE 1563s [00:52:43.889] - resignal: FALSE 1563s [00:52:43.889] - force: TRUE 1563s [00:52:43.890] - relayed: [n=1] TRUE 1563s [00:52:43.890] - queued futures: [n=1] TRUE 1563s - flush all 1563s [00:52:43.890] - relayed: [n=1] TRUE 1563s [00:52:43.891] - queued futures: [n=1] TRUE 1563s [00:52:43.891] signalConditionsASAP(NULL, pos=0) ... done 1563s [00:52:43.891] resolve() on list ... DONE 1563s [00:52:43.891] - Number of value chunks collected: 1 1563s [00:52:43.892] Resolving 1 futures (chunks) ... DONE 1563s [00:52:43.892] Reducing values from 1 chunks ... 1563s [00:52:43.892] - Number of values collected after concatenation: 3 1563s [00:52:43.892] - Number of values expected: 3 1563s [00:52:43.892] Reducing values from 1 chunks ... DONE 1563s [00:52:43.893] future_mapply() ... DONE 1563s - future_.mapply() 1563s [00:52:43.893] future_mapply() ... 1563s [00:52:43.897] Number of chunks: 1 1563s [00:52:43.897] getGlobalsAndPackagesXApply() ... 1563s [00:52:43.897] - future.globals: TRUE 1563s [00:52:43.897] getGlobalsAndPackages() ... 1563s [00:52:43.898] Searching for globals... 1563s [00:52:43.902] - globals found: [3] ‘FUN’, ‘+’, ‘seq_len’ 1563s [00:52:43.903] Searching for globals ... DONE 1563s [00:52:43.903] Resolving globals: FALSE 1563s [00:52:43.904] The total size of the 1 globals is 1.93 KiB (1976 bytes) 1563s [00:52:43.904] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.93 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.93 KiB of class ‘function’) 1563s [00:52:43.905] - globals: [1] ‘FUN’ 1563s [00:52:43.905] 1563s [00:52:43.905] getGlobalsAndPackages() ... DONE 1563s [00:52:43.905] - globals found/used: [n=1] ‘FUN’ 1563s [00:52:43.906] - needed namespaces: [n=0] 1563s [00:52:43.906] Finding globals ... DONE 1563s [00:52:43.906] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1563s [00:52:43.906] List of 2 1563s [00:52:43.906] $ ...future.FUN:function (x, y) 1563s [00:52:43.906] $ MoreArgs : list() 1563s [00:52:43.906] - attr(*, "where")=List of 2 1563s [00:52:43.906] ..$ ...future.FUN: 1563s [00:52:43.906] ..$ MoreArgs : 1563s [00:52:43.906] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1563s [00:52:43.906] - attr(*, "resolved")= logi FALSE 1563s [00:52:43.906] - attr(*, "total_size")= num NA 1563s [00:52:43.911] Packages to be attached in all futures: [n=0] 1563s [00:52:43.911] getGlobalsAndPackagesXApply() ... DONE 1563s [00:52:43.911] Number of futures (= number of chunks): 1 1563s [00:52:43.912] Launching 1 futures (chunks) ... 1563s [00:52:43.912] Chunk #1 of 1 ... 1563s [00:52:43.912] - Finding globals in '...' for chunk #1 ... 1563s [00:52:43.912] getGlobalsAndPackages() ... 1563s [00:52:43.912] Searching for globals... 1563s [00:52:43.913] 1563s [00:52:43.913] Searching for globals ... DONE 1563s [00:52:43.913] - globals: [0] 1563s [00:52:43.914] getGlobalsAndPackages() ... DONE 1563s [00:52:43.914] + additional globals found: [n=0] 1563s [00:52:43.914] + additional namespaces needed: [n=0] 1563s [00:52:43.914] - Finding globals in '...' for chunk #1 ... DONE 1563s [00:52:43.914] - seeds: 1563s [00:52:43.914] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1563s [00:52:43.915] getGlobalsAndPackages() ... 1563s [00:52:43.915] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1563s [00:52:43.915] Resolving globals: FALSE 1563s [00:52:43.915] The total size of the 5 globals is 2.26 KiB (2312 bytes) 1563s [00:52:43.916] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 2.26 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (1.93 KiB of class ‘function’), ‘...future.elements_ii’ (336 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘list’) 1563s [00:52:43.917] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1563s [00:52:43.917] 1563s [00:52:43.917] getGlobalsAndPackages() ... DONE 1563s [00:52:43.917] run() for ‘Future’ ... 1563s [00:52:43.917] - state: ‘created’ 1563s [00:52:43.917] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1563s [00:52:43.921] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1563s [00:52:43.922] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1563s [00:52:43.922] - Field: ‘label’ 1563s [00:52:43.922] - Field: ‘local’ 1563s [00:52:43.922] - Field: ‘owner’ 1563s [00:52:43.923] - Field: ‘envir’ 1563s [00:52:43.923] - Field: ‘packages’ 1563s [00:52:43.923] - Field: ‘gc’ 1563s [00:52:43.923] - Field: ‘conditions’ 1563s [00:52:43.923] - Field: ‘expr’ 1563s [00:52:43.923] - Field: ‘uuid’ 1563s [00:52:43.924] - Field: ‘seed’ 1563s [00:52:43.924] - Field: ‘version’ 1563s [00:52:43.924] - Field: ‘result’ 1563s [00:52:43.924] - Field: ‘asynchronous’ 1563s [00:52:43.924] - Field: ‘calls’ 1563s [00:52:43.925] - Field: ‘globals’ 1563s [00:52:43.925] - Field: ‘stdout’ 1563s [00:52:43.925] - Field: ‘earlySignal’ 1563s [00:52:43.925] - Field: ‘lazy’ 1563s [00:52:43.925] - Field: ‘state’ 1563s [00:52:43.925] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1563s [00:52:43.926] - Launch lazy future ... 1563s [00:52:43.926] Packages needed by the future expression (n = 0): 1563s [00:52:43.926] Packages needed by future strategies (n = 0): 1563s [00:52:43.927] { 1563s [00:52:43.927] { 1563s [00:52:43.927] { 1563s [00:52:43.927] ...future.startTime <- base::Sys.time() 1563s [00:52:43.927] { 1563s [00:52:43.927] { 1563s [00:52:43.927] { 1563s [00:52:43.927] base::local({ 1563s [00:52:43.927] has_future <- base::requireNamespace("future", 1563s [00:52:43.927] quietly = TRUE) 1563s [00:52:43.927] if (has_future) { 1563s [00:52:43.927] ns <- base::getNamespace("future") 1563s [00:52:43.927] version <- ns[[".package"]][["version"]] 1563s [00:52:43.927] if (is.null(version)) 1563s [00:52:43.927] version <- utils::packageVersion("future") 1563s [00:52:43.927] } 1563s [00:52:43.927] else { 1563s [00:52:43.927] version <- NULL 1563s [00:52:43.927] } 1563s [00:52:43.927] if (!has_future || version < "1.8.0") { 1563s [00:52:43.927] info <- base::c(r_version = base::gsub("R version ", 1563s [00:52:43.927] "", base::R.version$version.string), 1563s [00:52:43.927] platform = base::sprintf("%s (%s-bit)", 1563s [00:52:43.927] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1563s [00:52:43.927] os = base::paste(base::Sys.info()[base::c("sysname", 1563s [00:52:43.927] "release", "version")], collapse = " "), 1563s [00:52:43.927] hostname = base::Sys.info()[["nodename"]]) 1563s [00:52:43.927] info <- base::sprintf("%s: %s", base::names(info), 1563s [00:52:43.927] info) 1563s [00:52:43.927] info <- base::paste(info, collapse = "; ") 1563s [00:52:43.927] if (!has_future) { 1563s [00:52:43.927] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1563s [00:52:43.927] info) 1563s [00:52:43.927] } 1563s [00:52:43.927] else { 1563s [00:52:43.927] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1563s [00:52:43.927] info, version) 1563s [00:52:43.927] } 1563s [00:52:43.927] base::stop(msg) 1563s [00:52:43.927] } 1563s [00:52:43.927] }) 1563s [00:52:43.927] } 1563s [00:52:43.927] options(future.plan = NULL) 1563s [00:52:43.927] Sys.unsetenv("R_FUTURE_PLAN") 1563s [00:52:43.927] future::plan("default", .cleanup = FALSE, .init = FALSE) 1563s [00:52:43.927] } 1563s [00:52:43.927] ...future.workdir <- getwd() 1563s [00:52:43.927] } 1563s [00:52:43.927] ...future.oldOptions <- base::as.list(base::.Options) 1563s [00:52:43.927] ...future.oldEnvVars <- base::Sys.getenv() 1563s [00:52:43.927] } 1563s [00:52:43.927] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1563s [00:52:43.927] future.globals.maxSize = NULL, future.globals.method = NULL, 1563s [00:52:43.927] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1563s [00:52:43.927] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1563s [00:52:43.927] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1563s [00:52:43.927] future.stdout.windows.reencode = NULL, width = 80L) 1563s [00:52:43.927] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1563s [00:52:43.927] base::names(...future.oldOptions)) 1563s [00:52:43.927] } 1563s [00:52:43.927] if (FALSE) { 1563s [00:52:43.927] } 1563s [00:52:43.927] else { 1563s [00:52:43.927] if (TRUE) { 1563s [00:52:43.927] ...future.stdout <- base::rawConnection(base::raw(0L), 1563s [00:52:43.927] open = "w") 1563s [00:52:43.927] } 1563s [00:52:43.927] else { 1563s [00:52:43.927] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1563s [00:52:43.927] windows = "NUL", "/dev/null"), open = "w") 1563s [00:52:43.927] } 1563s [00:52:43.927] base::sink(...future.stdout, type = "output", split = FALSE) 1563s [00:52:43.927] base::on.exit(if (!base::is.null(...future.stdout)) { 1563s [00:52:43.927] base::sink(type = "output", split = FALSE) 1563s [00:52:43.927] base::close(...future.stdout) 1563s [00:52:43.927] }, add = TRUE) 1563s [00:52:43.927] } 1563s [00:52:43.927] ...future.frame <- base::sys.nframe() 1563s [00:52:43.927] ...future.conditions <- base::list() 1563s [00:52:43.927] ...future.rng <- base::globalenv()$.Random.seed 1563s [00:52:43.927] if (FALSE) { 1563s [00:52:43.927] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1563s [00:52:43.927] "...future.value", "...future.globalenv.names", ".Random.seed") 1563s [00:52:43.927] } 1563s [00:52:43.927] ...future.result <- base::tryCatch({ 1563s [00:52:43.927] base::withCallingHandlers({ 1563s [00:52:43.927] ...future.value <- base::withVisible(base::local({ 1563s [00:52:43.927] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1563s [00:52:43.927] if (!identical(...future.globals.maxSize.org, 1563s [00:52:43.927] ...future.globals.maxSize)) { 1563s [00:52:43.927] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1563s [00:52:43.927] on.exit(options(oopts), add = TRUE) 1563s [00:52:43.927] } 1563s [00:52:43.927] { 1563s [00:52:43.927] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1563s [00:52:43.927] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1563s [00:52:43.927] USE.NAMES = FALSE) 1563s [00:52:43.927] do.call(mapply, args = args) 1563s [00:52:43.927] } 1563s [00:52:43.927] })) 1563s [00:52:43.927] future::FutureResult(value = ...future.value$value, 1563s [00:52:43.927] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1563s [00:52:43.927] ...future.rng), globalenv = if (FALSE) 1563s [00:52:43.927] list(added = base::setdiff(base::names(base::.GlobalEnv), 1563s [00:52:43.927] ...future.globalenv.names)) 1563s [00:52:43.927] else NULL, started = ...future.startTime, version = "1.8") 1563s [00:52:43.927] }, condition = base::local({ 1563s [00:52:43.927] c <- base::c 1563s [00:52:43.927] inherits <- base::inherits 1563s [00:52:43.927] invokeRestart <- base::invokeRestart 1563s [00:52:43.927] length <- base::length 1563s [00:52:43.927] list <- base::list 1563s [00:52:43.927] seq.int <- base::seq.int 1563s [00:52:43.927] signalCondition <- base::signalCondition 1563s [00:52:43.927] sys.calls <- base::sys.calls 1563s [00:52:43.927] `[[` <- base::`[[` 1563s [00:52:43.927] `+` <- base::`+` 1563s [00:52:43.927] `<<-` <- base::`<<-` 1563s [00:52:43.927] sysCalls <- function(calls = sys.calls(), from = 1L) { 1563s [00:52:43.927] calls[seq.int(from = from + 12L, to = length(calls) - 1563s [00:52:43.927] 3L)] 1563s [00:52:43.927] } 1563s [00:52:43.927] function(cond) { 1563s [00:52:43.927] is_error <- inherits(cond, "error") 1563s [00:52:43.927] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1563s [00:52:43.927] NULL) 1563s [00:52:43.927] if (is_error) { 1563s [00:52:43.927] sessionInformation <- function() { 1563s [00:52:43.927] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1563s [00:52:43.927] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1563s [00:52:43.927] search = base::search(), system = base::Sys.info()) 1563s [00:52:43.927] } 1563s [00:52:43.927] ...future.conditions[[length(...future.conditions) + 1563s [00:52:43.927] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1563s [00:52:43.927] cond$call), session = sessionInformation(), 1563s [00:52:43.927] timestamp = base::Sys.time(), signaled = 0L) 1563s [00:52:43.927] signalCondition(cond) 1563s [00:52:43.927] } 1563s [00:52:43.927] else if (!ignore && TRUE && inherits(cond, c("condition", 1563s [00:52:43.927] "immediateCondition"))) { 1563s [00:52:43.927] signal <- TRUE && inherits(cond, "immediateCondition") 1563s [00:52:43.927] ...future.conditions[[length(...future.conditions) + 1563s [00:52:43.927] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1563s [00:52:43.927] if (TRUE && !signal) { 1563s [00:52:43.927] muffleCondition <- function (cond, pattern = "^muffle") 1563s [00:52:43.927] { 1563s [00:52:43.927] inherits <- base::inherits 1563s [00:52:43.927] invokeRestart <- base::invokeRestart 1563s [00:52:43.927] is.null <- base::is.null 1563s [00:52:43.927] muffled <- FALSE 1563s [00:52:43.927] if (inherits(cond, "message")) { 1563s [00:52:43.927] muffled <- grepl(pattern, "muffleMessage") 1563s [00:52:43.927] if (muffled) 1563s [00:52:43.927] invokeRestart("muffleMessage") 1563s [00:52:43.927] } 1563s [00:52:43.927] else if (inherits(cond, "warning")) { 1563s [00:52:43.927] muffled <- grepl(pattern, "muffleWarning") 1563s [00:52:43.927] if (muffled) 1563s [00:52:43.927] invokeRestart("muffleWarning") 1563s [00:52:43.927] } 1563s [00:52:43.927] else if (inherits(cond, "condition")) { 1563s [00:52:43.927] if (!is.null(pattern)) { 1563s [00:52:43.927] computeRestarts <- base::computeRestarts 1563s [00:52:43.927] grepl <- base::grepl 1563s [00:52:43.927] restarts <- computeRestarts(cond) 1563s [00:52:43.927] for (restart in restarts) { 1563s [00:52:43.927] name <- restart$name 1563s [00:52:43.927] if (is.null(name)) 1563s [00:52:43.927] next 1563s [00:52:43.927] if (!grepl(pattern, name)) 1563s [00:52:43.927] next 1563s [00:52:43.927] invokeRestart(restart) 1563s [00:52:43.927] muffled <- TRUE 1563s [00:52:43.927] break 1563s [00:52:43.927] } 1563s [00:52:43.927] } 1563s [00:52:43.927] } 1563s [00:52:43.927] invisible(muffled) 1563s [00:52:43.927] } 1563s [00:52:43.927] muffleCondition(cond, pattern = "^muffle") 1563s [00:52:43.927] } 1563s [00:52:43.927] } 1563s [00:52:43.927] else { 1563s [00:52:43.927] if (TRUE) { 1563s [00:52:43.927] muffleCondition <- function (cond, pattern = "^muffle") 1563s [00:52:43.927] { 1563s [00:52:43.927] inherits <- base::inherits 1563s [00:52:43.927] invokeRestart <- base::invokeRestart 1563s [00:52:43.927] is.null <- base::is.null 1563s [00:52:43.927] muffled <- FALSE 1563s [00:52:43.927] if (inherits(cond, "message")) { 1563s [00:52:43.927] muffled <- grepl(pattern, "muffleMessage") 1563s [00:52:43.927] if (muffled) 1563s [00:52:43.927] invokeRestart("muffleMessage") 1563s [00:52:43.927] } 1563s [00:52:43.927] else if (inherits(cond, "warning")) { 1563s [00:52:43.927] muffled <- grepl(pattern, "muffleWarning") 1563s [00:52:43.927] if (muffled) 1563s [00:52:43.927] invokeRestart("muffleWarning") 1563s [00:52:43.927] } 1563s [00:52:43.927] else if (inherits(cond, "condition")) { 1563s [00:52:43.927] if (!is.null(pattern)) { 1563s [00:52:43.927] computeRestarts <- base::computeRestarts 1563s [00:52:43.927] grepl <- base::grepl 1563s [00:52:43.927] restarts <- computeRestarts(cond) 1563s [00:52:43.927] for (restart in restarts) { 1563s [00:52:43.927] name <- restart$name 1563s [00:52:43.927] if (is.null(name)) 1563s [00:52:43.927] next 1563s [00:52:43.927] if (!grepl(pattern, name)) 1563s [00:52:43.927] next 1563s [00:52:43.927] invokeRestart(restart) 1563s [00:52:43.927] muffled <- TRUE 1563s [00:52:43.927] break 1563s [00:52:43.927] } 1563s [00:52:43.927] } 1563s [00:52:43.927] } 1563s [00:52:43.927] invisible(muffled) 1563s [00:52:43.927] } 1563s [00:52:43.927] muffleCondition(cond, pattern = "^muffle") 1563s [00:52:43.927] } 1563s [00:52:43.927] } 1563s [00:52:43.927] } 1563s [00:52:43.927] })) 1563s [00:52:43.927] }, error = function(ex) { 1563s [00:52:43.927] base::structure(base::list(value = NULL, visible = NULL, 1563s [00:52:43.927] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1563s [00:52:43.927] ...future.rng), started = ...future.startTime, 1563s [00:52:43.927] finished = Sys.time(), session_uuid = NA_character_, 1563s [00:52:43.927] version = "1.8"), class = "FutureResult") 1563s [00:52:43.927] }, finally = { 1563s [00:52:43.927] if (!identical(...future.workdir, getwd())) 1563s [00:52:43.927] setwd(...future.workdir) 1563s [00:52:43.927] { 1563s [00:52:43.927] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1563s [00:52:43.927] ...future.oldOptions$nwarnings <- NULL 1563s [00:52:43.927] } 1563s [00:52:43.927] base::options(...future.oldOptions) 1563s [00:52:43.927] if (.Platform$OS.type == "windows") { 1563s [00:52:43.927] old_names <- names(...future.oldEnvVars) 1563s [00:52:43.927] envs <- base::Sys.getenv() 1563s [00:52:43.927] names <- names(envs) 1563s [00:52:43.927] common <- intersect(names, old_names) 1563s [00:52:43.927] added <- setdiff(names, old_names) 1563s [00:52:43.927] removed <- setdiff(old_names, names) 1563s [00:52:43.927] changed <- common[...future.oldEnvVars[common] != 1563s [00:52:43.927] envs[common]] 1563s [00:52:43.927] NAMES <- toupper(changed) 1563s [00:52:43.927] args <- list() 1563s [00:52:43.927] for (kk in seq_along(NAMES)) { 1563s [00:52:43.927] name <- changed[[kk]] 1563s [00:52:43.927] NAME <- NAMES[[kk]] 1563s [00:52:43.927] if (name != NAME && is.element(NAME, old_names)) 1563s [00:52:43.927] next 1563s [00:52:43.927] args[[name]] <- ...future.oldEnvVars[[name]] 1563s [00:52:43.927] } 1563s [00:52:43.927] NAMES <- toupper(added) 1563s [00:52:43.927] for (kk in seq_along(NAMES)) { 1563s [00:52:43.927] name <- added[[kk]] 1563s [00:52:43.927] NAME <- NAMES[[kk]] 1563s [00:52:43.927] if (name != NAME && is.element(NAME, old_names)) 1563s [00:52:43.927] next 1563s [00:52:43.927] args[[name]] <- "" 1563s [00:52:43.927] } 1563s [00:52:43.927] NAMES <- toupper(removed) 1563s [00:52:43.927] for (kk in seq_along(NAMES)) { 1563s [00:52:43.927] name <- removed[[kk]] 1563s [00:52:43.927] NAME <- NAMES[[kk]] 1563s [00:52:43.927] if (name != NAME && is.element(NAME, old_names)) 1563s [00:52:43.927] next 1563s [00:52:43.927] args[[name]] <- ...future.oldEnvVars[[name]] 1563s [00:52:43.927] } 1563s [00:52:43.927] if (length(args) > 0) 1563s [00:52:43.927] base::do.call(base::Sys.setenv, args = args) 1563s [00:52:43.927] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1563s [00:52:43.927] } 1563s [00:52:43.927] else { 1563s [00:52:43.927] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1563s [00:52:43.927] } 1563s [00:52:43.927] { 1563s [00:52:43.927] if (base::length(...future.futureOptionsAdded) > 1563s [00:52:43.927] 0L) { 1563s [00:52:43.927] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1563s [00:52:43.927] base::names(opts) <- ...future.futureOptionsAdded 1563s [00:52:43.927] base::options(opts) 1563s [00:52:43.927] } 1563s [00:52:43.927] { 1563s [00:52:43.927] { 1563s [00:52:43.927] base::assign(".Random.seed", c(10407L, -193111136L, 1563s [00:52:43.927] 1998638665L, 1795077819L, 549408344L, 564105141L, 1563s [00:52:43.927] -308065669L), envir = base::globalenv(), 1563s [00:52:43.927] inherits = FALSE) 1563s [00:52:43.927] NULL 1563s [00:52:43.927] } 1563s [00:52:43.927] options(future.plan = NULL) 1563s [00:52:43.927] if (is.na(NA_character_)) 1563s [00:52:43.927] Sys.unsetenv("R_FUTURE_PLAN") 1563s [00:52:43.927] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1563s [00:52:43.927] future::plan(list(function (..., workers = availableCores(), 1563s [00:52:43.927] lazy = FALSE, rscript_libs = .libPaths(), 1563s [00:52:43.927] envir = parent.frame()) 1563s [00:52:43.927] { 1563s [00:52:43.927] if (is.function(workers)) 1563s [00:52:43.927] workers <- workers() 1563s [00:52:43.927] workers <- structure(as.integer(workers), 1563s [00:52:43.927] class = class(workers)) 1563s [00:52:43.927] stop_if_not(length(workers) == 1, is.finite(workers), 1563s [00:52:43.927] workers >= 1) 1563s [00:52:43.927] if (workers == 1L && !inherits(workers, "AsIs")) { 1563s [00:52:43.927] return(sequential(..., lazy = TRUE, envir = envir)) 1563s [00:52:43.927] } 1563s [00:52:43.927] future <- MultisessionFuture(..., workers = workers, 1563s [00:52:43.927] lazy = lazy, rscript_libs = rscript_libs, 1563s [00:52:43.927] envir = envir) 1563s [00:52:43.927] if (!future$lazy) 1563s [00:52:43.927] future <- run(future) 1563s [00:52:43.927] invisible(future) 1563s [00:52:43.927] }), .cleanup = FALSE, .init = FALSE) 1563s [00:52:43.927] } 1563s [00:52:43.927] } 1563s [00:52:43.927] } 1563s [00:52:43.927] }) 1563s [00:52:43.927] if (TRUE) { 1563s [00:52:43.927] base::sink(type = "output", split = FALSE) 1563s [00:52:43.927] if (TRUE) { 1563s [00:52:43.927] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1563s [00:52:43.927] } 1563s [00:52:43.927] else { 1563s [00:52:43.927] ...future.result["stdout"] <- base::list(NULL) 1563s [00:52:43.927] } 1563s [00:52:43.927] base::close(...future.stdout) 1563s [00:52:43.927] ...future.stdout <- NULL 1563s [00:52:43.927] } 1563s [00:52:43.927] ...future.result$conditions <- ...future.conditions 1563s [00:52:43.927] ...future.result$finished <- base::Sys.time() 1563s [00:52:43.927] ...future.result 1563s [00:52:43.927] } 1563s [00:52:43.931] assign_globals() ... 1563s [00:52:43.931] List of 5 1563s [00:52:43.931] $ ...future.FUN :function (x, y) 1563s [00:52:43.931] $ MoreArgs : list() 1563s [00:52:43.931] $ ...future.elements_ii :List of 2 1563s [00:52:43.931] ..$ :List of 3 1563s [00:52:43.931] .. ..$ a: num 1 1563s [00:52:43.931] .. ..$ b: num 2 1563s [00:52:43.931] .. ..$ c: num 3 1563s [00:52:43.931] ..$ :List of 3 1563s [00:52:43.931] .. ..$ A: num 10 1563s [00:52:43.931] .. ..$ B: num 0 1563s [00:52:43.931] .. ..$ C: num -10 1563s [00:52:43.931] $ ...future.seeds_ii : NULL 1563s [00:52:43.931] $ ...future.globals.maxSize: NULL 1563s [00:52:43.931] - attr(*, "where")=List of 5 1563s [00:52:43.931] ..$ ...future.FUN : 1563s [00:52:43.931] ..$ MoreArgs : 1563s [00:52:43.931] ..$ ...future.elements_ii : 1563s [00:52:43.931] ..$ ...future.seeds_ii : 1563s [00:52:43.931] ..$ ...future.globals.maxSize: 1563s [00:52:43.931] - attr(*, "resolved")= logi FALSE 1563s [00:52:43.931] - attr(*, "total_size")= num 2312 1563s [00:52:43.931] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1563s [00:52:43.931] - attr(*, "already-done")= logi TRUE 1563s [00:52:43.944] - reassign environment for ‘...future.FUN’ 1563s [00:52:43.944] - copied ‘...future.FUN’ to environment 1563s [00:52:43.944] - copied ‘MoreArgs’ to environment 1563s [00:52:43.944] - copied ‘...future.elements_ii’ to environment 1563s [00:52:43.945] - copied ‘...future.seeds_ii’ to environment 1563s [00:52:43.945] - copied ‘...future.globals.maxSize’ to environment 1563s [00:52:43.945] assign_globals() ... done 1563s [00:52:43.946] plan(): Setting new future strategy stack: 1563s [00:52:43.946] List of future strategies: 1563s [00:52:43.946] 1. sequential: 1563s [00:52:43.946] - args: function (..., envir = parent.frame()) 1563s [00:52:43.946] - tweaked: FALSE 1563s [00:52:43.946] - call: NULL 1563s [00:52:43.946] plan(): nbrOfWorkers() = 1 1563s [00:52:43.947] plan(): Setting new future strategy stack: 1563s [00:52:43.948] List of future strategies: 1563s [00:52:43.948] 1. multisession: 1563s [00:52:43.948] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1563s [00:52:43.948] - tweaked: FALSE 1563s [00:52:43.948] - call: plan(strategy) 1563s [00:52:43.952] plan(): nbrOfWorkers() = 1 1563s [00:52:43.952] SequentialFuture started (and completed) 1563s [00:52:43.952] - Launch lazy future ... done 1563s [00:52:43.953] run() for ‘SequentialFuture’ ... done 1563s [00:52:43.953] Created future: 1563s [00:52:43.953] SequentialFuture: 1563s [00:52:43.953] Label: ‘future_.mapply-1’ 1563s [00:52:43.953] Expression: 1563s [00:52:43.953] { 1563s [00:52:43.953] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1563s [00:52:43.953] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1563s [00:52:43.953] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1563s [00:52:43.953] on.exit(options(oopts), add = TRUE) 1563s [00:52:43.953] } 1563s [00:52:43.953] { 1563s [00:52:43.953] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1563s [00:52:43.953] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1563s [00:52:43.953] do.call(mapply, args = args) 1563s [00:52:43.953] } 1563s [00:52:43.953] } 1563s [00:52:43.953] Lazy evaluation: FALSE 1563s [00:52:43.953] Asynchronous evaluation: FALSE 1563s [00:52:43.953] Local evaluation: TRUE 1563s [00:52:43.953] Environment: R_GlobalEnv 1563s [00:52:43.953] Capture standard output: TRUE 1563s [00:52:43.953] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1563s [00:52:43.953] Globals: 5 objects totaling 2.26 KiB (function ‘...future.FUN’ of 1.93 KiB, list ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1563s [00:52:43.953] Packages: 1563s [00:52:43.953] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1563s [00:52:43.953] Resolved: TRUE 1563s [00:52:43.953] Value: 200 bytes of class ‘list’ 1563s [00:52:43.953] Early signaling: FALSE 1563s [00:52:43.953] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1563s [00:52:43.953] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1563s [00:52:43.955] Chunk #1 of 1 ... DONE 1563s [00:52:43.955] Launching 1 futures (chunks) ... DONE 1563s [00:52:43.956] Resolving 1 futures (chunks) ... 1563s [00:52:43.956] resolve() on list ... 1563s [00:52:43.956] recursive: 0 1563s [00:52:43.956] length: 1 1563s [00:52:43.956] 1563s [00:52:43.956] resolved() for ‘SequentialFuture’ ... 1563s [00:52:43.956] - state: ‘finished’ 1563s [00:52:43.957] - run: TRUE 1563s [00:52:43.957] - result: ‘FutureResult’ 1563s [00:52:43.957] resolved() for ‘SequentialFuture’ ... done 1563s [00:52:43.957] Future #1 1563s [00:52:43.957] signalConditionsASAP(SequentialFuture, pos=1) ... 1563s [00:52:43.958] - nx: 1 1563s [00:52:43.958] - relay: TRUE 1563s [00:52:43.958] - stdout: TRUE 1563s [00:52:43.958] - signal: TRUE 1563s [00:52:43.958] - resignal: FALSE 1563s [00:52:43.958] - force: TRUE 1563s [00:52:43.958] - relayed: [n=1] FALSE 1563s [00:52:43.958] - queued futures: [n=1] FALSE 1563s [00:52:43.959] - until=1 1563s [00:52:43.959] - relaying element #1 1563s [00:52:43.959] - relayed: [n=1] TRUE 1563s [00:52:43.959] - queued futures: [n=1] TRUE 1563s [00:52:43.960] signalConditionsASAP(SequentialFuture, pos=1) ... done 1563s [00:52:43.960] length: 0 (resolved future 1) 1563s [00:52:43.960] Relaying remaining futures 1563s [00:52:43.960] signalConditionsASAP(NULL, pos=0) ... 1563s [00:52:43.960] - nx: 1 1563s [00:52:43.961] - relay: TRUE 1563s [00:52:43.961] - stdout: TRUE 1563s [00:52:43.961] - signal: TRUE 1563s [00:52:43.961] - resignal: FALSE 1563s [00:52:43.962] - force: TRUE 1563s [00:52:43.962] - relayed: [n=1] TRUE 1563s [00:52:43.962] - queued futures: [n=1] TRUE 1563s - flush all 1563s [00:52:43.962] - relayed: [n=1] TRUE 1563s [00:52:43.962] - queued futures: [n=1] TRUE 1563s [00:52:43.963] signalConditionsASAP(NULL, pos=0) ... done 1563s [00:52:43.963] resolve() on list ... DONE 1563s [00:52:43.963] - Number of value chunks collected: 1 1563s [00:52:43.963] Resolving 1 futures (chunks) ... DONE 1563s [00:52:43.963] Reducing values from 1 chunks ... 1563s [00:52:43.964] - Number of values collected after concatenation: 3 1563s [00:52:43.964] - Number of values expected: 3 1563s [00:52:43.964] Reducing values from 1 chunks ... DONE 1563s [00:52:43.964] future_mapply() ... DONE 1563s [00:52:43.965] future_mapply() ... 1564s [00:52:43.968] Number of chunks: 5 1564s [00:52:43.968] getGlobalsAndPackagesXApply() ... 1564s [00:52:43.969] - future.globals: TRUE 1564s [00:52:43.969] getGlobalsAndPackages() ... 1564s [00:52:43.969] Searching for globals... 1564s [00:52:43.971] - globals found: [3] ‘FUN’, ‘paste’, ‘rep.int’ 1564s [00:52:43.971] Searching for globals ... DONE 1564s [00:52:43.971] Resolving globals: FALSE 1564s [00:52:43.972] The total size of the 1 globals is 3.24 KiB (3320 bytes) 1564s [00:52:43.972] The total size of the 1 globals exported for future expression (‘FUN()’) is 3.24 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (3.24 KiB of class ‘function’) 1564s [00:52:43.972] - globals: [1] ‘FUN’ 1564s [00:52:43.972] 1564s [00:52:43.973] getGlobalsAndPackages() ... DONE 1564s [00:52:43.973] - globals found/used: [n=1] ‘FUN’ 1564s [00:52:43.973] - needed namespaces: [n=0] 1564s [00:52:43.973] Finding globals ... DONE 1564s [00:52:43.974] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1564s [00:52:43.974] List of 2 1564s [00:52:43.974] $ ...future.FUN:function (C, k) 1564s [00:52:43.974] $ MoreArgs : NULL 1564s [00:52:43.974] - attr(*, "where")=List of 2 1564s [00:52:43.974] ..$ ...future.FUN: 1564s [00:52:43.974] ..$ MoreArgs : 1564s [00:52:43.974] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1564s [00:52:43.974] - attr(*, "resolved")= logi FALSE 1564s [00:52:43.974] - attr(*, "total_size")= num NA 1564s [00:52:43.980] Packages to be attached in all futures: [n=0] 1564s [00:52:43.981] getGlobalsAndPackagesXApply() ... DONE 1564s [00:52:43.981] Number of futures (= number of chunks): 5 1564s [00:52:43.981] Launching 5 futures (chunks) ... 1564s [00:52:43.981] Chunk #1 of 5 ... 1564s [00:52:43.982] - Finding globals in '...' for chunk #1 ... 1564s [00:52:43.982] getGlobalsAndPackages() ... 1564s [00:52:43.982] Searching for globals... 1564s [00:52:43.983] 1564s [00:52:43.983] Searching for globals ... DONE 1564s [00:52:43.983] - globals: [0] 1564s [00:52:43.984] getGlobalsAndPackages() ... DONE 1564s [00:52:43.984] + additional globals found: [n=0] 1564s [00:52:43.984] + additional namespaces needed: [n=0] 1564s [00:52:43.984] - Finding globals in '...' for chunk #1 ... DONE 1564s [00:52:43.984] - Adjusted option 'future.globals.maxSize': 524288000 -> 5 * 524288000 = 2621440000 (bytes) 1564s [00:52:43.984] - seeds: 1564s [00:52:43.985] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:43.985] getGlobalsAndPackages() ... 1564s [00:52:43.985] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:43.985] Resolving globals: FALSE 1564s [00:52:43.986] The total size of the 5 globals is 3.41 KiB (3488 bytes) 1564s [00:52:43.987] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 3.41 KiB.. This exceeds the maximum allowed size of 2.44 GiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (3.24 KiB of class ‘function’), ‘...future.elements_ii’ (168 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1564s [00:52:43.987] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:43.987] 1564s [00:52:43.987] getGlobalsAndPackages() ... DONE 1564s [00:52:43.988] run() for ‘Future’ ... 1564s [00:52:43.988] - state: ‘created’ 1564s [00:52:43.988] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1564s [00:52:43.991] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1564s [00:52:43.992] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1564s [00:52:43.992] - Field: ‘label’ 1564s [00:52:43.992] - Field: ‘local’ 1564s [00:52:43.992] - Field: ‘owner’ 1564s [00:52:43.992] - Field: ‘envir’ 1564s [00:52:43.992] - Field: ‘packages’ 1564s [00:52:43.993] - Field: ‘gc’ 1564s [00:52:43.993] - Field: ‘conditions’ 1564s [00:52:43.993] - Field: ‘expr’ 1564s [00:52:43.993] - Field: ‘uuid’ 1564s [00:52:43.993] - Field: ‘seed’ 1564s [00:52:43.993] - Field: ‘version’ 1564s [00:52:43.993] - Field: ‘result’ 1564s [00:52:43.994] - Field: ‘asynchronous’ 1564s [00:52:43.994] - Field: ‘calls’ 1564s [00:52:43.994] - Field: ‘globals’ 1564s [00:52:43.994] - Field: ‘stdout’ 1564s [00:52:43.994] - Field: ‘earlySignal’ 1564s [00:52:43.995] - Field: ‘lazy’ 1564s [00:52:43.995] - Field: ‘state’ 1564s [00:52:43.995] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1564s [00:52:43.995] - Launch lazy future ... 1564s [00:52:43.996] Packages needed by the future expression (n = 0): 1564s [00:52:43.996] Packages needed by future strategies (n = 0): 1564s [00:52:43.997] { 1564s [00:52:43.997] { 1564s [00:52:43.997] { 1564s [00:52:43.997] ...future.startTime <- base::Sys.time() 1564s [00:52:43.997] { 1564s [00:52:43.997] { 1564s [00:52:43.997] { 1564s [00:52:43.997] base::local({ 1564s [00:52:43.997] has_future <- base::requireNamespace("future", 1564s [00:52:43.997] quietly = TRUE) 1564s [00:52:43.997] if (has_future) { 1564s [00:52:43.997] ns <- base::getNamespace("future") 1564s [00:52:43.997] version <- ns[[".package"]][["version"]] 1564s [00:52:43.997] if (is.null(version)) 1564s [00:52:43.997] version <- utils::packageVersion("future") 1564s [00:52:43.997] } 1564s [00:52:43.997] else { 1564s [00:52:43.997] version <- NULL 1564s [00:52:43.997] } 1564s [00:52:43.997] if (!has_future || version < "1.8.0") { 1564s [00:52:43.997] info <- base::c(r_version = base::gsub("R version ", 1564s [00:52:43.997] "", base::R.version$version.string), 1564s [00:52:43.997] platform = base::sprintf("%s (%s-bit)", 1564s [00:52:43.997] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1564s [00:52:43.997] os = base::paste(base::Sys.info()[base::c("sysname", 1564s [00:52:43.997] "release", "version")], collapse = " "), 1564s [00:52:43.997] hostname = base::Sys.info()[["nodename"]]) 1564s [00:52:43.997] info <- base::sprintf("%s: %s", base::names(info), 1564s [00:52:43.997] info) 1564s [00:52:43.997] info <- base::paste(info, collapse = "; ") 1564s [00:52:43.997] if (!has_future) { 1564s [00:52:43.997] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1564s [00:52:43.997] info) 1564s [00:52:43.997] } 1564s [00:52:43.997] else { 1564s [00:52:43.997] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1564s [00:52:43.997] info, version) 1564s [00:52:43.997] } 1564s [00:52:43.997] base::stop(msg) 1564s [00:52:43.997] } 1564s [00:52:43.997] }) 1564s [00:52:43.997] } 1564s [00:52:43.997] options(future.plan = NULL) 1564s [00:52:43.997] Sys.unsetenv("R_FUTURE_PLAN") 1564s [00:52:43.997] future::plan("default", .cleanup = FALSE, .init = FALSE) 1564s [00:52:43.997] } 1564s [00:52:43.997] ...future.workdir <- getwd() 1564s [00:52:43.997] } 1564s [00:52:43.997] ...future.oldOptions <- base::as.list(base::.Options) 1564s [00:52:43.997] ...future.oldEnvVars <- base::Sys.getenv() 1564s [00:52:43.997] } 1564s [00:52:43.997] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1564s [00:52:43.997] future.globals.maxSize = 2621440000, future.globals.method = NULL, 1564s [00:52:43.997] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1564s [00:52:43.997] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1564s [00:52:43.997] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1564s [00:52:43.997] future.stdout.windows.reencode = NULL, width = 80L) 1564s [00:52:43.997] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1564s [00:52:43.997] base::names(...future.oldOptions)) 1564s [00:52:43.997] } 1564s [00:52:43.997] if (FALSE) { 1564s [00:52:43.997] } 1564s [00:52:43.997] else { 1564s [00:52:43.997] if (TRUE) { 1564s [00:52:43.997] ...future.stdout <- base::rawConnection(base::raw(0L), 1564s [00:52:43.997] open = "w") 1564s [00:52:43.997] } 1564s [00:52:43.997] else { 1564s [00:52:43.997] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1564s [00:52:43.997] windows = "NUL", "/dev/null"), open = "w") 1564s [00:52:43.997] } 1564s [00:52:43.997] base::sink(...future.stdout, type = "output", split = FALSE) 1564s [00:52:43.997] base::on.exit(if (!base::is.null(...future.stdout)) { 1564s [00:52:43.997] base::sink(type = "output", split = FALSE) 1564s [00:52:43.997] base::close(...future.stdout) 1564s [00:52:43.997] }, add = TRUE) 1564s [00:52:43.997] } 1564s [00:52:43.997] ...future.frame <- base::sys.nframe() 1564s [00:52:43.997] ...future.conditions <- base::list() 1564s [00:52:43.997] ...future.rng <- base::globalenv()$.Random.seed 1564s [00:52:43.997] if (FALSE) { 1564s [00:52:43.997] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1564s [00:52:43.997] "...future.value", "...future.globalenv.names", ".Random.seed") 1564s [00:52:43.997] } 1564s [00:52:43.997] ...future.result <- base::tryCatch({ 1564s [00:52:43.997] base::withCallingHandlers({ 1564s [00:52:43.997] ...future.value <- base::withVisible(base::local({ 1564s [00:52:43.997] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1564s [00:52:43.997] if (!identical(...future.globals.maxSize.org, 1564s [00:52:43.997] ...future.globals.maxSize)) { 1564s [00:52:43.997] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1564s [00:52:43.997] on.exit(options(oopts), add = TRUE) 1564s [00:52:43.997] } 1564s [00:52:43.997] { 1564s [00:52:43.997] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1564s [00:52:43.997] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1564s [00:52:43.997] USE.NAMES = FALSE) 1564s [00:52:43.997] do.call(mapply, args = args) 1564s [00:52:43.997] } 1564s [00:52:43.997] })) 1564s [00:52:43.997] future::FutureResult(value = ...future.value$value, 1564s [00:52:43.997] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1564s [00:52:43.997] ...future.rng), globalenv = if (FALSE) 1564s [00:52:43.997] list(added = base::setdiff(base::names(base::.GlobalEnv), 1564s [00:52:43.997] ...future.globalenv.names)) 1564s [00:52:43.997] else NULL, started = ...future.startTime, version = "1.8") 1564s [00:52:43.997] }, condition = base::local({ 1564s [00:52:43.997] c <- base::c 1564s [00:52:43.997] inherits <- base::inherits 1564s [00:52:43.997] invokeRestart <- base::invokeRestart 1564s [00:52:43.997] length <- base::length 1564s [00:52:43.997] list <- base::list 1564s [00:52:43.997] seq.int <- base::seq.int 1564s [00:52:43.997] signalCondition <- base::signalCondition 1564s [00:52:43.997] sys.calls <- base::sys.calls 1564s [00:52:43.997] `[[` <- base::`[[` 1564s [00:52:43.997] `+` <- base::`+` 1564s [00:52:43.997] `<<-` <- base::`<<-` 1564s [00:52:43.997] sysCalls <- function(calls = sys.calls(), from = 1L) { 1564s [00:52:43.997] calls[seq.int(from = from + 12L, to = length(calls) - 1564s [00:52:43.997] 3L)] 1564s [00:52:43.997] } 1564s [00:52:43.997] function(cond) { 1564s [00:52:43.997] is_error <- inherits(cond, "error") 1564s [00:52:43.997] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1564s [00:52:43.997] NULL) 1564s [00:52:43.997] if (is_error) { 1564s [00:52:43.997] sessionInformation <- function() { 1564s [00:52:43.997] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1564s [00:52:43.997] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1564s [00:52:43.997] search = base::search(), system = base::Sys.info()) 1564s [00:52:43.997] } 1564s [00:52:43.997] ...future.conditions[[length(...future.conditions) + 1564s [00:52:43.997] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1564s [00:52:43.997] cond$call), session = sessionInformation(), 1564s [00:52:43.997] timestamp = base::Sys.time(), signaled = 0L) 1564s [00:52:43.997] signalCondition(cond) 1564s [00:52:43.997] } 1564s [00:52:43.997] else if (!ignore && TRUE && inherits(cond, c("condition", 1564s [00:52:43.997] "immediateCondition"))) { 1564s [00:52:43.997] signal <- TRUE && inherits(cond, "immediateCondition") 1564s [00:52:43.997] ...future.conditions[[length(...future.conditions) + 1564s [00:52:43.997] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1564s [00:52:43.997] if (TRUE && !signal) { 1564s [00:52:43.997] muffleCondition <- function (cond, pattern = "^muffle") 1564s [00:52:43.997] { 1564s [00:52:43.997] inherits <- base::inherits 1564s [00:52:43.997] invokeRestart <- base::invokeRestart 1564s [00:52:43.997] is.null <- base::is.null 1564s [00:52:43.997] muffled <- FALSE 1564s [00:52:43.997] if (inherits(cond, "message")) { 1564s [00:52:43.997] muffled <- grepl(pattern, "muffleMessage") 1564s [00:52:43.997] if (muffled) 1564s [00:52:43.997] invokeRestart("muffleMessage") 1564s [00:52:43.997] } 1564s [00:52:43.997] else if (inherits(cond, "warning")) { 1564s [00:52:43.997] muffled <- grepl(pattern, "muffleWarning") 1564s [00:52:43.997] if (muffled) 1564s [00:52:43.997] invokeRestart("muffleWarning") 1564s [00:52:43.997] } 1564s [00:52:43.997] else if (inherits(cond, "condition")) { 1564s [00:52:43.997] if (!is.null(pattern)) { 1564s [00:52:43.997] computeRestarts <- base::computeRestarts 1564s [00:52:43.997] grepl <- base::grepl 1564s [00:52:43.997] restarts <- computeRestarts(cond) 1564s [00:52:43.997] for (restart in restarts) { 1564s [00:52:43.997] name <- restart$name 1564s [00:52:43.997] if (is.null(name)) 1564s [00:52:43.997] next 1564s [00:52:43.997] if (!grepl(pattern, name)) 1564s [00:52:43.997] next 1564s [00:52:43.997] invokeRestart(restart) 1564s [00:52:43.997] muffled <- TRUE 1564s [00:52:43.997] break 1564s [00:52:43.997] } 1564s [00:52:43.997] } 1564s [00:52:43.997] } 1564s [00:52:43.997] invisible(muffled) 1564s [00:52:43.997] } 1564s [00:52:43.997] muffleCondition(cond, pattern = "^muffle") 1564s [00:52:43.997] } 1564s [00:52:43.997] } 1564s [00:52:43.997] else { 1564s [00:52:43.997] if (TRUE) { 1564s [00:52:43.997] muffleCondition <- function (cond, pattern = "^muffle") 1564s [00:52:43.997] { 1564s [00:52:43.997] inherits <- base::inherits 1564s [00:52:43.997] invokeRestart <- base::invokeRestart 1564s [00:52:43.997] is.null <- base::is.null 1564s [00:52:43.997] muffled <- FALSE 1564s [00:52:43.997] if (inherits(cond, "message")) { 1564s [00:52:43.997] muffled <- grepl(pattern, "muffleMessage") 1564s [00:52:43.997] if (muffled) 1564s [00:52:43.997] invokeRestart("muffleMessage") 1564s [00:52:43.997] } 1564s [00:52:43.997] else if (inherits(cond, "warning")) { 1564s [00:52:43.997] muffled <- grepl(pattern, "muffleWarning") 1564s [00:52:43.997] if (muffled) 1564s [00:52:43.997] invokeRestart("muffleWarning") 1564s [00:52:43.997] } 1564s [00:52:43.997] else if (inherits(cond, "condition")) { 1564s [00:52:43.997] if (!is.null(pattern)) { 1564s [00:52:43.997] computeRestarts <- base::computeRestarts 1564s [00:52:43.997] grepl <- base::grepl 1564s [00:52:43.997] restarts <- computeRestarts(cond) 1564s [00:52:43.997] for (restart in restarts) { 1564s [00:52:43.997] name <- restart$name 1564s [00:52:43.997] if (is.null(name)) 1564s [00:52:43.997] next 1564s [00:52:43.997] if (!grepl(pattern, name)) 1564s [00:52:43.997] next 1564s [00:52:43.997] invokeRestart(restart) 1564s [00:52:43.997] muffled <- TRUE 1564s [00:52:43.997] break 1564s [00:52:43.997] } 1564s [00:52:43.997] } 1564s [00:52:43.997] } 1564s [00:52:43.997] invisible(muffled) 1564s [00:52:43.997] } 1564s [00:52:43.997] muffleCondition(cond, pattern = "^muffle") 1564s [00:52:43.997] } 1564s [00:52:43.997] } 1564s [00:52:43.997] } 1564s [00:52:43.997] })) 1564s [00:52:43.997] }, error = function(ex) { 1564s [00:52:43.997] base::structure(base::list(value = NULL, visible = NULL, 1564s [00:52:43.997] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1564s [00:52:43.997] ...future.rng), started = ...future.startTime, 1564s [00:52:43.997] finished = Sys.time(), session_uuid = NA_character_, 1564s [00:52:43.997] version = "1.8"), class = "FutureResult") 1564s [00:52:43.997] }, finally = { 1564s [00:52:43.997] if (!identical(...future.workdir, getwd())) 1564s [00:52:43.997] setwd(...future.workdir) 1564s [00:52:43.997] { 1564s [00:52:43.997] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1564s [00:52:43.997] ...future.oldOptions$nwarnings <- NULL 1564s [00:52:43.997] } 1564s [00:52:43.997] base::options(...future.oldOptions) 1564s [00:52:43.997] if (.Platform$OS.type == "windows") { 1564s [00:52:43.997] old_names <- names(...future.oldEnvVars) 1564s [00:52:43.997] envs <- base::Sys.getenv() 1564s [00:52:43.997] names <- names(envs) 1564s [00:52:43.997] common <- intersect(names, old_names) 1564s [00:52:43.997] added <- setdiff(names, old_names) 1564s [00:52:43.997] removed <- setdiff(old_names, names) 1564s [00:52:43.997] changed <- common[...future.oldEnvVars[common] != 1564s [00:52:43.997] envs[common]] 1564s [00:52:43.997] NAMES <- toupper(changed) 1564s [00:52:43.997] args <- list() 1564s [00:52:43.997] for (kk in seq_along(NAMES)) { 1564s [00:52:43.997] name <- changed[[kk]] 1564s [00:52:43.997] NAME <- NAMES[[kk]] 1564s [00:52:43.997] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:43.997] next 1564s [00:52:43.997] args[[name]] <- ...future.oldEnvVars[[name]] 1564s [00:52:43.997] } 1564s [00:52:43.997] NAMES <- toupper(added) 1564s [00:52:43.997] for (kk in seq_along(NAMES)) { 1564s [00:52:43.997] name <- added[[kk]] 1564s [00:52:43.997] NAME <- NAMES[[kk]] 1564s [00:52:43.997] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:43.997] next 1564s [00:52:43.997] args[[name]] <- "" 1564s [00:52:43.997] } 1564s [00:52:43.997] NAMES <- toupper(removed) 1564s [00:52:43.997] for (kk in seq_along(NAMES)) { 1564s [00:52:43.997] name <- removed[[kk]] 1564s [00:52:43.997] NAME <- NAMES[[kk]] 1564s [00:52:43.997] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:43.997] next 1564s [00:52:43.997] args[[name]] <- ...future.oldEnvVars[[name]] 1564s [00:52:43.997] } 1564s [00:52:43.997] if (length(args) > 0) 1564s [00:52:43.997] base::do.call(base::Sys.setenv, args = args) 1564s [00:52:43.997] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1564s [00:52:43.997] } 1564s [00:52:43.997] else { 1564s [00:52:43.997] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1564s [00:52:43.997] } 1564s [00:52:43.997] { 1564s [00:52:43.997] if (base::length(...future.futureOptionsAdded) > 1564s [00:52:43.997] 0L) { 1564s [00:52:43.997] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1564s [00:52:43.997] base::names(opts) <- ...future.futureOptionsAdded 1564s [00:52:43.997] base::options(opts) 1564s [00:52:43.997] } 1564s [00:52:43.997] { 1564s [00:52:43.997] { 1564s [00:52:43.997] base::assign(".Random.seed", c(10407L, -193111136L, 1564s [00:52:43.997] 1998638665L, 1795077819L, 549408344L, 564105141L, 1564s [00:52:43.997] -308065669L), envir = base::globalenv(), 1564s [00:52:43.997] inherits = FALSE) 1564s [00:52:43.997] NULL 1564s [00:52:43.997] } 1564s [00:52:43.997] options(future.plan = NULL) 1564s [00:52:43.997] if (is.na(NA_character_)) 1564s [00:52:43.997] Sys.unsetenv("R_FUTURE_PLAN") 1564s [00:52:43.997] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1564s [00:52:43.997] future::plan(list(function (..., workers = availableCores(), 1564s [00:52:43.997] lazy = FALSE, rscript_libs = .libPaths(), 1564s [00:52:43.997] envir = parent.frame()) 1564s [00:52:43.997] { 1564s [00:52:43.997] if (is.function(workers)) 1564s [00:52:43.997] workers <- workers() 1564s [00:52:43.997] workers <- structure(as.integer(workers), 1564s [00:52:43.997] class = class(workers)) 1564s [00:52:43.997] stop_if_not(length(workers) == 1, is.finite(workers), 1564s [00:52:43.997] workers >= 1) 1564s [00:52:43.997] if (workers == 1L && !inherits(workers, "AsIs")) { 1564s [00:52:43.997] return(sequential(..., lazy = TRUE, envir = envir)) 1564s [00:52:43.997] } 1564s [00:52:43.997] future <- MultisessionFuture(..., workers = workers, 1564s [00:52:43.997] lazy = lazy, rscript_libs = rscript_libs, 1564s [00:52:43.997] envir = envir) 1564s [00:52:43.997] if (!future$lazy) 1564s [00:52:43.997] future <- run(future) 1564s [00:52:43.997] invisible(future) 1564s [00:52:43.997] }), .cleanup = FALSE, .init = FALSE) 1564s [00:52:43.997] } 1564s [00:52:43.997] } 1564s [00:52:43.997] } 1564s [00:52:43.997] }) 1564s [00:52:43.997] if (TRUE) { 1564s [00:52:43.997] base::sink(type = "output", split = FALSE) 1564s [00:52:43.997] if (TRUE) { 1564s [00:52:43.997] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1564s [00:52:43.997] } 1564s [00:52:43.997] else { 1564s [00:52:43.997] ...future.result["stdout"] <- base::list(NULL) 1564s [00:52:43.997] } 1564s [00:52:43.997] base::close(...future.stdout) 1564s [00:52:43.997] ...future.stdout <- NULL 1564s [00:52:43.997] } 1564s [00:52:43.997] ...future.result$conditions <- ...future.conditions 1564s [00:52:43.997] ...future.result$finished <- base::Sys.time() 1564s [00:52:43.997] ...future.result 1564s [00:52:43.997] } 1564s [00:52:44.002] assign_globals() ... 1564s [00:52:44.002] List of 5 1564s [00:52:44.002] $ ...future.FUN :function (C, k) 1564s [00:52:44.002] $ MoreArgs : NULL 1564s [00:52:44.002] $ ...future.elements_ii :List of 2 1564s [00:52:44.002] ..$ :List of 1 1564s [00:52:44.002] .. ..$ : chr "A" 1564s [00:52:44.002] ..$ :List of 1 1564s [00:52:44.002] .. ..$ : int 5 1564s [00:52:44.002] $ ...future.seeds_ii : NULL 1564s [00:52:44.002] $ ...future.globals.maxSize: NULL 1564s [00:52:44.002] - attr(*, "where")=List of 5 1564s [00:52:44.002] ..$ ...future.FUN : 1564s [00:52:44.002] ..$ MoreArgs : 1564s [00:52:44.002] ..$ ...future.elements_ii : 1564s [00:52:44.002] ..$ ...future.seeds_ii : 1564s [00:52:44.002] ..$ ...future.globals.maxSize: 1564s [00:52:44.002] - attr(*, "resolved")= logi FALSE 1564s [00:52:44.002] - attr(*, "total_size")= num 3488 1564s [00:52:44.002] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1564s [00:52:44.002] - attr(*, "already-done")= logi TRUE 1564s [00:52:44.009] - reassign environment for ‘...future.FUN’ 1564s [00:52:44.009] - copied ‘...future.FUN’ to environment 1564s [00:52:44.009] - copied ‘MoreArgs’ to environment 1564s [00:52:44.009] - copied ‘...future.elements_ii’ to environment 1564s [00:52:44.009] - copied ‘...future.seeds_ii’ to environment 1564s [00:52:44.010] - copied ‘...future.globals.maxSize’ to environment 1564s [00:52:44.010] assign_globals() ... done 1564s [00:52:44.013] plan(): Setting new future strategy stack: 1564s [00:52:44.014] List of future strategies: 1564s [00:52:44.014] 1. sequential: 1564s [00:52:44.014] - args: function (..., envir = parent.frame()) 1564s [00:52:44.014] - tweaked: FALSE 1564s [00:52:44.014] - call: NULL 1564s [00:52:44.014] plan(): nbrOfWorkers() = 1 1564s [00:52:44.015] plan(): Setting new future strategy stack: 1564s [00:52:44.016] List of future strategies: 1564s [00:52:44.016] 1. multisession: 1564s [00:52:44.016] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1564s [00:52:44.016] - tweaked: FALSE 1564s [00:52:44.016] - call: plan(strategy) 1564s [00:52:44.020] plan(): nbrOfWorkers() = 1 1564s [00:52:44.020] SequentialFuture started (and completed) 1564s [00:52:44.021] - Launch lazy future ... done 1564s [00:52:44.021] run() for ‘SequentialFuture’ ... done 1564s [00:52:44.021] Created future: 1564s [00:52:44.022] SequentialFuture: 1564s [00:52:44.022] Label: ‘future_mapply-1’ 1564s [00:52:44.022] Expression: 1564s [00:52:44.022] { 1564s [00:52:44.022] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1564s [00:52:44.022] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1564s [00:52:44.022] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1564s [00:52:44.022] on.exit(options(oopts), add = TRUE) 1564s [00:52:44.022] } 1564s [00:52:44.022] { 1564s [00:52:44.022] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1564s [00:52:44.022] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1564s [00:52:44.022] do.call(mapply, args = args) 1564s [00:52:44.022] } 1564s [00:52:44.022] } 1564s [00:52:44.022] Lazy evaluation: FALSE 1564s [00:52:44.022] Asynchronous evaluation: FALSE 1564s [00:52:44.022] Local evaluation: TRUE 1564s [00:52:44.022] Environment: R_GlobalEnv 1564s [00:52:44.022] Capture standard output: TRUE 1564s [00:52:44.022] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1564s [00:52:44.022] Globals: 5 objects totaling 3.41 KiB (function ‘...future.FUN’ of 3.24 KiB, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1564s [00:52:44.022] Packages: 1564s [00:52:44.022] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1564s [00:52:44.022] Resolved: TRUE 1564s [00:52:44.022] Value: 112 bytes of class ‘list’ 1564s [00:52:44.022] Early signaling: FALSE 1564s [00:52:44.022] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1564s [00:52:44.022] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1564s [00:52:44.023] Chunk #1 of 5 ... DONE 1564s [00:52:44.023] Chunk #2 of 5 ... 1564s [00:52:44.024] - Finding globals in '...' for chunk #2 ... 1564s [00:52:44.024] getGlobalsAndPackages() ... 1564s [00:52:44.024] Searching for globals... 1564s [00:52:44.025] 1564s [00:52:44.025] Searching for globals ... DONE 1564s [00:52:44.026] - globals: [0] 1564s [00:52:44.026] getGlobalsAndPackages() ... DONE 1564s [00:52:44.026] + additional globals found: [n=0] 1564s [00:52:44.026] + additional namespaces needed: [n=0] 1564s [00:52:44.026] - Finding globals in '...' for chunk #2 ... DONE 1564s [00:52:44.027] - Adjusted option 'future.globals.maxSize': 524288000 -> 5 * 524288000 = 2621440000 (bytes) 1564s [00:52:44.027] - seeds: 1564s [00:52:44.027] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:44.027] getGlobalsAndPackages() ... 1564s [00:52:44.028] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:44.028] Resolving globals: FALSE 1564s [00:52:44.029] The total size of the 5 globals is 3.41 KiB (3488 bytes) 1564s [00:52:44.030] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 3.41 KiB.. This exceeds the maximum allowed size of 2.44 GiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (3.24 KiB of class ‘function’), ‘...future.elements_ii’ (168 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1564s [00:52:44.030] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:44.030] 1564s [00:52:44.030] getGlobalsAndPackages() ... DONE 1564s [00:52:44.031] run() for ‘Future’ ... 1564s [00:52:44.031] - state: ‘created’ 1564s [00:52:44.031] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1564s [00:52:44.035] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1564s [00:52:44.035] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1564s [00:52:44.036] - Field: ‘label’ 1564s [00:52:44.036] - Field: ‘local’ 1564s [00:52:44.036] - Field: ‘owner’ 1564s [00:52:44.036] - Field: ‘envir’ 1564s [00:52:44.037] - Field: ‘packages’ 1564s [00:52:44.037] - Field: ‘gc’ 1564s [00:52:44.037] - Field: ‘conditions’ 1564s [00:52:44.037] - Field: ‘expr’ 1564s [00:52:44.037] - Field: ‘uuid’ 1564s [00:52:44.037] - Field: ‘seed’ 1564s [00:52:44.038] - Field: ‘version’ 1564s [00:52:44.038] - Field: ‘result’ 1564s [00:52:44.038] - Field: ‘asynchronous’ 1564s [00:52:44.038] - Field: ‘calls’ 1564s [00:52:44.038] - Field: ‘globals’ 1564s [00:52:44.038] - Field: ‘stdout’ 1564s [00:52:44.038] - Field: ‘earlySignal’ 1564s [00:52:44.038] - Field: ‘lazy’ 1564s [00:52:44.039] - Field: ‘state’ 1564s [00:52:44.039] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1564s [00:52:44.039] - Launch lazy future ... 1564s [00:52:44.039] Packages needed by the future expression (n = 0): 1564s [00:52:44.039] Packages needed by future strategies (n = 0): 1564s [00:52:44.040] { 1564s [00:52:44.040] { 1564s [00:52:44.040] { 1564s [00:52:44.040] ...future.startTime <- base::Sys.time() 1564s [00:52:44.040] { 1564s [00:52:44.040] { 1564s [00:52:44.040] { 1564s [00:52:44.040] base::local({ 1564s [00:52:44.040] has_future <- base::requireNamespace("future", 1564s [00:52:44.040] quietly = TRUE) 1564s [00:52:44.040] if (has_future) { 1564s [00:52:44.040] ns <- base::getNamespace("future") 1564s [00:52:44.040] version <- ns[[".package"]][["version"]] 1564s [00:52:44.040] if (is.null(version)) 1564s [00:52:44.040] version <- utils::packageVersion("future") 1564s [00:52:44.040] } 1564s [00:52:44.040] else { 1564s [00:52:44.040] version <- NULL 1564s [00:52:44.040] } 1564s [00:52:44.040] if (!has_future || version < "1.8.0") { 1564s [00:52:44.040] info <- base::c(r_version = base::gsub("R version ", 1564s [00:52:44.040] "", base::R.version$version.string), 1564s [00:52:44.040] platform = base::sprintf("%s (%s-bit)", 1564s [00:52:44.040] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1564s [00:52:44.040] os = base::paste(base::Sys.info()[base::c("sysname", 1564s [00:52:44.040] "release", "version")], collapse = " "), 1564s [00:52:44.040] hostname = base::Sys.info()[["nodename"]]) 1564s [00:52:44.040] info <- base::sprintf("%s: %s", base::names(info), 1564s [00:52:44.040] info) 1564s [00:52:44.040] info <- base::paste(info, collapse = "; ") 1564s [00:52:44.040] if (!has_future) { 1564s [00:52:44.040] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1564s [00:52:44.040] info) 1564s [00:52:44.040] } 1564s [00:52:44.040] else { 1564s [00:52:44.040] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1564s [00:52:44.040] info, version) 1564s [00:52:44.040] } 1564s [00:52:44.040] base::stop(msg) 1564s [00:52:44.040] } 1564s [00:52:44.040] }) 1564s [00:52:44.040] } 1564s [00:52:44.040] options(future.plan = NULL) 1564s [00:52:44.040] Sys.unsetenv("R_FUTURE_PLAN") 1564s [00:52:44.040] future::plan("default", .cleanup = FALSE, .init = FALSE) 1564s [00:52:44.040] } 1564s [00:52:44.040] ...future.workdir <- getwd() 1564s [00:52:44.040] } 1564s [00:52:44.040] ...future.oldOptions <- base::as.list(base::.Options) 1564s [00:52:44.040] ...future.oldEnvVars <- base::Sys.getenv() 1564s [00:52:44.040] } 1564s [00:52:44.040] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1564s [00:52:44.040] future.globals.maxSize = 2621440000, future.globals.method = NULL, 1564s [00:52:44.040] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1564s [00:52:44.040] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1564s [00:52:44.040] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1564s [00:52:44.040] future.stdout.windows.reencode = NULL, width = 80L) 1564s [00:52:44.040] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1564s [00:52:44.040] base::names(...future.oldOptions)) 1564s [00:52:44.040] } 1564s [00:52:44.040] if (FALSE) { 1564s [00:52:44.040] } 1564s [00:52:44.040] else { 1564s [00:52:44.040] if (TRUE) { 1564s [00:52:44.040] ...future.stdout <- base::rawConnection(base::raw(0L), 1564s [00:52:44.040] open = "w") 1564s [00:52:44.040] } 1564s [00:52:44.040] else { 1564s [00:52:44.040] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1564s [00:52:44.040] windows = "NUL", "/dev/null"), open = "w") 1564s [00:52:44.040] } 1564s [00:52:44.040] base::sink(...future.stdout, type = "output", split = FALSE) 1564s [00:52:44.040] base::on.exit(if (!base::is.null(...future.stdout)) { 1564s [00:52:44.040] base::sink(type = "output", split = FALSE) 1564s [00:52:44.040] base::close(...future.stdout) 1564s [00:52:44.040] }, add = TRUE) 1564s [00:52:44.040] } 1564s [00:52:44.040] ...future.frame <- base::sys.nframe() 1564s [00:52:44.040] ...future.conditions <- base::list() 1564s [00:52:44.040] ...future.rng <- base::globalenv()$.Random.seed 1564s [00:52:44.040] if (FALSE) { 1564s [00:52:44.040] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1564s [00:52:44.040] "...future.value", "...future.globalenv.names", ".Random.seed") 1564s [00:52:44.040] } 1564s [00:52:44.040] ...future.result <- base::tryCatch({ 1564s [00:52:44.040] base::withCallingHandlers({ 1564s [00:52:44.040] ...future.value <- base::withVisible(base::local({ 1564s [00:52:44.040] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1564s [00:52:44.040] if (!identical(...future.globals.maxSize.org, 1564s [00:52:44.040] ...future.globals.maxSize)) { 1564s [00:52:44.040] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1564s [00:52:44.040] on.exit(options(oopts), add = TRUE) 1564s [00:52:44.040] } 1564s [00:52:44.040] { 1564s [00:52:44.040] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1564s [00:52:44.040] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1564s [00:52:44.040] USE.NAMES = FALSE) 1564s [00:52:44.040] do.call(mapply, args = args) 1564s [00:52:44.040] } 1564s [00:52:44.040] })) 1564s [00:52:44.040] future::FutureResult(value = ...future.value$value, 1564s [00:52:44.040] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1564s [00:52:44.040] ...future.rng), globalenv = if (FALSE) 1564s [00:52:44.040] list(added = base::setdiff(base::names(base::.GlobalEnv), 1564s [00:52:44.040] ...future.globalenv.names)) 1564s [00:52:44.040] else NULL, started = ...future.startTime, version = "1.8") 1564s [00:52:44.040] }, condition = base::local({ 1564s [00:52:44.040] c <- base::c 1564s [00:52:44.040] inherits <- base::inherits 1564s [00:52:44.040] invokeRestart <- base::invokeRestart 1564s [00:52:44.040] length <- base::length 1564s [00:52:44.040] list <- base::list 1564s [00:52:44.040] seq.int <- base::seq.int 1564s [00:52:44.040] signalCondition <- base::signalCondition 1564s [00:52:44.040] sys.calls <- base::sys.calls 1564s [00:52:44.040] `[[` <- base::`[[` 1564s [00:52:44.040] `+` <- base::`+` 1564s [00:52:44.040] `<<-` <- base::`<<-` 1564s [00:52:44.040] sysCalls <- function(calls = sys.calls(), from = 1L) { 1564s [00:52:44.040] calls[seq.int(from = from + 12L, to = length(calls) - 1564s [00:52:44.040] 3L)] 1564s [00:52:44.040] } 1564s [00:52:44.040] function(cond) { 1564s [00:52:44.040] is_error <- inherits(cond, "error") 1564s [00:52:44.040] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1564s [00:52:44.040] NULL) 1564s [00:52:44.040] if (is_error) { 1564s [00:52:44.040] sessionInformation <- function() { 1564s [00:52:44.040] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1564s [00:52:44.040] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1564s [00:52:44.040] search = base::search(), system = base::Sys.info()) 1564s [00:52:44.040] } 1564s [00:52:44.040] ...future.conditions[[length(...future.conditions) + 1564s [00:52:44.040] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1564s [00:52:44.040] cond$call), session = sessionInformation(), 1564s [00:52:44.040] timestamp = base::Sys.time(), signaled = 0L) 1564s [00:52:44.040] signalCondition(cond) 1564s [00:52:44.040] } 1564s [00:52:44.040] else if (!ignore && TRUE && inherits(cond, c("condition", 1564s [00:52:44.040] "immediateCondition"))) { 1564s [00:52:44.040] signal <- TRUE && inherits(cond, "immediateCondition") 1564s [00:52:44.040] ...future.conditions[[length(...future.conditions) + 1564s [00:52:44.040] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1564s [00:52:44.040] if (TRUE && !signal) { 1564s [00:52:44.040] muffleCondition <- function (cond, pattern = "^muffle") 1564s [00:52:44.040] { 1564s [00:52:44.040] inherits <- base::inherits 1564s [00:52:44.040] invokeRestart <- base::invokeRestart 1564s [00:52:44.040] is.null <- base::is.null 1564s [00:52:44.040] muffled <- FALSE 1564s [00:52:44.040] if (inherits(cond, "message")) { 1564s [00:52:44.040] muffled <- grepl(pattern, "muffleMessage") 1564s [00:52:44.040] if (muffled) 1564s [00:52:44.040] invokeRestart("muffleMessage") 1564s [00:52:44.040] } 1564s [00:52:44.040] else if (inherits(cond, "warning")) { 1564s [00:52:44.040] muffled <- grepl(pattern, "muffleWarning") 1564s [00:52:44.040] if (muffled) 1564s [00:52:44.040] invokeRestart("muffleWarning") 1564s [00:52:44.040] } 1564s [00:52:44.040] else if (inherits(cond, "condition")) { 1564s [00:52:44.040] if (!is.null(pattern)) { 1564s [00:52:44.040] computeRestarts <- base::computeRestarts 1564s [00:52:44.040] grepl <- base::grepl 1564s [00:52:44.040] restarts <- computeRestarts(cond) 1564s [00:52:44.040] for (restart in restarts) { 1564s [00:52:44.040] name <- restart$name 1564s [00:52:44.040] if (is.null(name)) 1564s [00:52:44.040] next 1564s [00:52:44.040] if (!grepl(pattern, name)) 1564s [00:52:44.040] next 1564s [00:52:44.040] invokeRestart(restart) 1564s [00:52:44.040] muffled <- TRUE 1564s [00:52:44.040] break 1564s [00:52:44.040] } 1564s [00:52:44.040] } 1564s [00:52:44.040] } 1564s [00:52:44.040] invisible(muffled) 1564s [00:52:44.040] } 1564s [00:52:44.040] muffleCondition(cond, pattern = "^muffle") 1564s [00:52:44.040] } 1564s [00:52:44.040] } 1564s [00:52:44.040] else { 1564s [00:52:44.040] if (TRUE) { 1564s [00:52:44.040] muffleCondition <- function (cond, pattern = "^muffle") 1564s [00:52:44.040] { 1564s [00:52:44.040] inherits <- base::inherits 1564s [00:52:44.040] invokeRestart <- base::invokeRestart 1564s [00:52:44.040] is.null <- base::is.null 1564s [00:52:44.040] muffled <- FALSE 1564s [00:52:44.040] if (inherits(cond, "message")) { 1564s [00:52:44.040] muffled <- grepl(pattern, "muffleMessage") 1564s [00:52:44.040] if (muffled) 1564s [00:52:44.040] invokeRestart("muffleMessage") 1564s [00:52:44.040] } 1564s [00:52:44.040] else if (inherits(cond, "warning")) { 1564s [00:52:44.040] muffled <- grepl(pattern, "muffleWarning") 1564s [00:52:44.040] if (muffled) 1564s [00:52:44.040] invokeRestart("muffleWarning") 1564s [00:52:44.040] } 1564s [00:52:44.040] else if (inherits(cond, "condition")) { 1564s [00:52:44.040] if (!is.null(pattern)) { 1564s [00:52:44.040] computeRestarts <- base::computeRestarts 1564s [00:52:44.040] grepl <- base::grepl 1564s [00:52:44.040] restarts <- computeRestarts(cond) 1564s [00:52:44.040] for (restart in restarts) { 1564s [00:52:44.040] name <- restart$name 1564s [00:52:44.040] if (is.null(name)) 1564s [00:52:44.040] next 1564s [00:52:44.040] if (!grepl(pattern, name)) 1564s [00:52:44.040] next 1564s [00:52:44.040] invokeRestart(restart) 1564s [00:52:44.040] muffled <- TRUE 1564s [00:52:44.040] break 1564s [00:52:44.040] } 1564s [00:52:44.040] } 1564s [00:52:44.040] } 1564s [00:52:44.040] invisible(muffled) 1564s [00:52:44.040] } 1564s [00:52:44.040] muffleCondition(cond, pattern = "^muffle") 1564s [00:52:44.040] } 1564s [00:52:44.040] } 1564s [00:52:44.040] } 1564s [00:52:44.040] })) 1564s [00:52:44.040] }, error = function(ex) { 1564s [00:52:44.040] base::structure(base::list(value = NULL, visible = NULL, 1564s [00:52:44.040] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1564s [00:52:44.040] ...future.rng), started = ...future.startTime, 1564s [00:52:44.040] finished = Sys.time(), session_uuid = NA_character_, 1564s [00:52:44.040] version = "1.8"), class = "FutureResult") 1564s [00:52:44.040] }, finally = { 1564s [00:52:44.040] if (!identical(...future.workdir, getwd())) 1564s [00:52:44.040] setwd(...future.workdir) 1564s [00:52:44.040] { 1564s [00:52:44.040] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1564s [00:52:44.040] ...future.oldOptions$nwarnings <- NULL 1564s [00:52:44.040] } 1564s [00:52:44.040] base::options(...future.oldOptions) 1564s [00:52:44.040] if (.Platform$OS.type == "windows") { 1564s [00:52:44.040] old_names <- names(...future.oldEnvVars) 1564s [00:52:44.040] envs <- base::Sys.getenv() 1564s [00:52:44.040] names <- names(envs) 1564s [00:52:44.040] common <- intersect(names, old_names) 1564s [00:52:44.040] added <- setdiff(names, old_names) 1564s [00:52:44.040] removed <- setdiff(old_names, names) 1564s [00:52:44.040] changed <- common[...future.oldEnvVars[common] != 1564s [00:52:44.040] envs[common]] 1564s [00:52:44.040] NAMES <- toupper(changed) 1564s [00:52:44.040] args <- list() 1564s [00:52:44.040] for (kk in seq_along(NAMES)) { 1564s [00:52:44.040] name <- changed[[kk]] 1564s [00:52:44.040] NAME <- NAMES[[kk]] 1564s [00:52:44.040] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:44.040] next 1564s [00:52:44.040] args[[name]] <- ...future.oldEnvVars[[name]] 1564s [00:52:44.040] } 1564s [00:52:44.040] NAMES <- toupper(added) 1564s [00:52:44.040] for (kk in seq_along(NAMES)) { 1564s [00:52:44.040] name <- added[[kk]] 1564s [00:52:44.040] NAME <- NAMES[[kk]] 1564s [00:52:44.040] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:44.040] next 1564s [00:52:44.040] args[[name]] <- "" 1564s [00:52:44.040] } 1564s [00:52:44.040] NAMES <- toupper(removed) 1564s [00:52:44.040] for (kk in seq_along(NAMES)) { 1564s [00:52:44.040] name <- removed[[kk]] 1564s [00:52:44.040] NAME <- NAMES[[kk]] 1564s [00:52:44.040] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:44.040] next 1564s [00:52:44.040] args[[name]] <- ...future.oldEnvVars[[name]] 1564s [00:52:44.040] } 1564s [00:52:44.040] if (length(args) > 0) 1564s [00:52:44.040] base::do.call(base::Sys.setenv, args = args) 1564s [00:52:44.040] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1564s [00:52:44.040] } 1564s [00:52:44.040] else { 1564s [00:52:44.040] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1564s [00:52:44.040] } 1564s [00:52:44.040] { 1564s [00:52:44.040] if (base::length(...future.futureOptionsAdded) > 1564s [00:52:44.040] 0L) { 1564s [00:52:44.040] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1564s [00:52:44.040] base::names(opts) <- ...future.futureOptionsAdded 1564s [00:52:44.040] base::options(opts) 1564s [00:52:44.040] } 1564s [00:52:44.040] { 1564s [00:52:44.040] { 1564s [00:52:44.040] base::assign(".Random.seed", c(10407L, -193111136L, 1564s [00:52:44.040] 1998638665L, 1795077819L, 549408344L, 564105141L, 1564s [00:52:44.040] -308065669L), envir = base::globalenv(), 1564s [00:52:44.040] inherits = FALSE) 1564s [00:52:44.040] NULL 1564s [00:52:44.040] } 1564s [00:52:44.040] options(future.plan = NULL) 1564s [00:52:44.040] if (is.na(NA_character_)) 1564s [00:52:44.040] Sys.unsetenv("R_FUTURE_PLAN") 1564s [00:52:44.040] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1564s [00:52:44.040] future::plan(list(function (..., workers = availableCores(), 1564s [00:52:44.040] lazy = FALSE, rscript_libs = .libPaths(), 1564s [00:52:44.040] envir = parent.frame()) 1564s [00:52:44.040] { 1564s [00:52:44.040] if (is.function(workers)) 1564s [00:52:44.040] workers <- workers() 1564s [00:52:44.040] workers <- structure(as.integer(workers), 1564s [00:52:44.040] class = class(workers)) 1564s [00:52:44.040] stop_if_not(length(workers) == 1, is.finite(workers), 1564s [00:52:44.040] workers >= 1) 1564s [00:52:44.040] if (workers == 1L && !inherits(workers, "AsIs")) { 1564s [00:52:44.040] return(sequential(..., lazy = TRUE, envir = envir)) 1564s [00:52:44.040] } 1564s [00:52:44.040] future <- MultisessionFuture(..., workers = workers, 1564s [00:52:44.040] lazy = lazy, rscript_libs = rscript_libs, 1564s [00:52:44.040] envir = envir) 1564s [00:52:44.040] if (!future$lazy) 1564s [00:52:44.040] future <- run(future) 1564s [00:52:44.040] invisible(future) 1564s [00:52:44.040] }), .cleanup = FALSE, .init = FALSE) 1564s [00:52:44.040] } 1564s [00:52:44.040] } 1564s [00:52:44.040] } 1564s [00:52:44.040] }) 1564s [00:52:44.040] if (TRUE) { 1564s [00:52:44.040] base::sink(type = "output", split = FALSE) 1564s [00:52:44.040] if (TRUE) { 1564s [00:52:44.040] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1564s [00:52:44.040] } 1564s [00:52:44.040] else { 1564s [00:52:44.040] ...future.result["stdout"] <- base::list(NULL) 1564s [00:52:44.040] } 1564s [00:52:44.040] base::close(...future.stdout) 1564s [00:52:44.040] ...future.stdout <- NULL 1564s [00:52:44.040] } 1564s [00:52:44.040] ...future.result$conditions <- ...future.conditions 1564s [00:52:44.040] ...future.result$finished <- base::Sys.time() 1564s [00:52:44.040] ...future.result 1564s [00:52:44.040] } 1564s [00:52:44.043] assign_globals() ... 1564s [00:52:44.044] List of 5 1564s [00:52:44.044] $ ...future.FUN :function (C, k) 1564s [00:52:44.044] $ MoreArgs : NULL 1564s [00:52:44.044] $ ...future.elements_ii :List of 2 1564s [00:52:44.044] ..$ :List of 1 1564s [00:52:44.044] .. ..$ : chr "B" 1564s [00:52:44.044] ..$ :List of 1 1564s [00:52:44.044] .. ..$ : int 4 1564s [00:52:44.044] $ ...future.seeds_ii : NULL 1564s [00:52:44.044] $ ...future.globals.maxSize: NULL 1564s [00:52:44.044] - attr(*, "where")=List of 5 1564s [00:52:44.044] ..$ ...future.FUN : 1564s [00:52:44.044] ..$ MoreArgs : 1564s [00:52:44.044] ..$ ...future.elements_ii : 1564s [00:52:44.044] ..$ ...future.seeds_ii : 1564s [00:52:44.044] ..$ ...future.globals.maxSize: 1564s [00:52:44.044] - attr(*, "resolved")= logi FALSE 1564s [00:52:44.044] - attr(*, "total_size")= num 3488 1564s [00:52:44.044] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1564s [00:52:44.044] - attr(*, "already-done")= logi TRUE 1564s [00:52:44.056] - reassign environment for ‘...future.FUN’ 1564s [00:52:44.056] - copied ‘...future.FUN’ to environment 1564s [00:52:44.056] - copied ‘MoreArgs’ to environment 1564s [00:52:44.057] - copied ‘...future.elements_ii’ to environment 1564s [00:52:44.057] - copied ‘...future.seeds_ii’ to environment 1564s [00:52:44.057] - copied ‘...future.globals.maxSize’ to environment 1564s [00:52:44.057] assign_globals() ... done 1564s [00:52:44.058] plan(): Setting new future strategy stack: 1564s [00:52:44.058] List of future strategies: 1564s [00:52:44.058] 1. sequential: 1564s [00:52:44.058] - args: function (..., envir = parent.frame()) 1564s [00:52:44.058] - tweaked: FALSE 1564s [00:52:44.058] - call: NULL 1564s [00:52:44.058] plan(): nbrOfWorkers() = 1 1564s [00:52:44.060] plan(): Setting new future strategy stack: 1564s [00:52:44.060] List of future strategies: 1564s [00:52:44.060] 1. multisession: 1564s [00:52:44.060] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1564s [00:52:44.060] - tweaked: FALSE 1564s [00:52:44.060] - call: plan(strategy) 1564s [00:52:44.064] plan(): nbrOfWorkers() = 1 1564s [00:52:44.065] SequentialFuture started (and completed) 1564s [00:52:44.065] - Launch lazy future ... done 1564s [00:52:44.065] run() for ‘SequentialFuture’ ... done 1564s [00:52:44.065] Created future: 1564s [00:52:44.065] SequentialFuture: 1564s [00:52:44.065] Label: ‘future_mapply-2’ 1564s [00:52:44.065] Expression: 1564s [00:52:44.065] { 1564s [00:52:44.065] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1564s [00:52:44.065] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1564s [00:52:44.065] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1564s [00:52:44.065] on.exit(options(oopts), add = TRUE) 1564s [00:52:44.065] } 1564s [00:52:44.065] { 1564s [00:52:44.065] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1564s [00:52:44.065] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1564s [00:52:44.065] do.call(mapply, args = args) 1564s [00:52:44.065] } 1564s [00:52:44.065] } 1564s [00:52:44.065] Lazy evaluation: FALSE 1564s [00:52:44.065] Asynchronous evaluation: FALSE 1564s [00:52:44.065] Local evaluation: TRUE 1564s [00:52:44.065] Environment: R_GlobalEnv 1564s [00:52:44.065] Capture standard output: TRUE 1564s [00:52:44.065] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1564s [00:52:44.065] Globals: 5 objects totaling 3.41 KiB (function ‘...future.FUN’ of 3.24 KiB, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1564s [00:52:44.065] Packages: 1564s [00:52:44.065] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1564s [00:52:44.065] Resolved: TRUE 1564s [00:52:44.065] Value: 112 bytes of class ‘list’ 1564s [00:52:44.065] Early signaling: FALSE 1564s [00:52:44.065] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1564s [00:52:44.065] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1564s [00:52:44.068] Chunk #2 of 5 ... DONE 1564s [00:52:44.068] Chunk #3 of 5 ... 1564s [00:52:44.068] - Finding globals in '...' for chunk #3 ... 1564s [00:52:44.069] getGlobalsAndPackages() ... 1564s [00:52:44.069] Searching for globals... 1564s [00:52:44.069] 1564s [00:52:44.070] Searching for globals ... DONE 1564s [00:52:44.070] - globals: [0] 1564s [00:52:44.070] getGlobalsAndPackages() ... DONE 1564s [00:52:44.070] + additional globals found: [n=0] 1564s [00:52:44.071] + additional namespaces needed: [n=0] 1564s [00:52:44.071] - Finding globals in '...' for chunk #3 ... DONE 1564s [00:52:44.071] - Adjusted option 'future.globals.maxSize': 524288000 -> 5 * 524288000 = 2621440000 (bytes) 1564s [00:52:44.071] - seeds: 1564s [00:52:44.072] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:44.073] getGlobalsAndPackages() ... 1564s [00:52:44.073] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:44.074] Resolving globals: FALSE 1564s [00:52:44.077] The total size of the 5 globals is 3.41 KiB (3488 bytes) 1564s [00:52:44.078] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 3.41 KiB.. This exceeds the maximum allowed size of 2.44 GiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (3.24 KiB of class ‘function’), ‘...future.elements_ii’ (168 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1564s [00:52:44.078] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:44.078] 1564s [00:52:44.078] getGlobalsAndPackages() ... DONE 1564s [00:52:44.078] run() for ‘Future’ ... 1564s [00:52:44.079] - state: ‘created’ 1564s [00:52:44.081] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1564s [00:52:44.086] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1564s [00:52:44.086] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1564s [00:52:44.086] - Field: ‘label’ 1564s [00:52:44.086] - Field: ‘local’ 1564s [00:52:44.087] - Field: ‘owner’ 1564s [00:52:44.087] - Field: ‘envir’ 1564s [00:52:44.087] - Field: ‘packages’ 1564s [00:52:44.088] - Field: ‘gc’ 1564s [00:52:44.088] - Field: ‘conditions’ 1564s [00:52:44.088] - Field: ‘expr’ 1564s [00:52:44.088] - Field: ‘uuid’ 1564s [00:52:44.089] - Field: ‘seed’ 1564s [00:52:44.089] - Field: ‘version’ 1564s [00:52:44.089] - Field: ‘result’ 1564s [00:52:44.089] - Field: ‘asynchronous’ 1564s [00:52:44.089] - Field: ‘calls’ 1564s [00:52:44.090] - Field: ‘globals’ 1564s [00:52:44.090] - Field: ‘stdout’ 1564s [00:52:44.090] - Field: ‘earlySignal’ 1564s [00:52:44.090] - Field: ‘lazy’ 1564s [00:52:44.091] - Field: ‘state’ 1564s [00:52:44.091] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1564s [00:52:44.091] - Launch lazy future ... 1564s [00:52:44.091] Packages needed by the future expression (n = 0): 1564s [00:52:44.091] Packages needed by future strategies (n = 0): 1564s [00:52:44.092] { 1564s [00:52:44.092] { 1564s [00:52:44.092] { 1564s [00:52:44.092] ...future.startTime <- base::Sys.time() 1564s [00:52:44.092] { 1564s [00:52:44.092] { 1564s [00:52:44.092] { 1564s [00:52:44.092] base::local({ 1564s [00:52:44.092] has_future <- base::requireNamespace("future", 1564s [00:52:44.092] quietly = TRUE) 1564s [00:52:44.092] if (has_future) { 1564s [00:52:44.092] ns <- base::getNamespace("future") 1564s [00:52:44.092] version <- ns[[".package"]][["version"]] 1564s [00:52:44.092] if (is.null(version)) 1564s [00:52:44.092] version <- utils::packageVersion("future") 1564s [00:52:44.092] } 1564s [00:52:44.092] else { 1564s [00:52:44.092] version <- NULL 1564s [00:52:44.092] } 1564s [00:52:44.092] if (!has_future || version < "1.8.0") { 1564s [00:52:44.092] info <- base::c(r_version = base::gsub("R version ", 1564s [00:52:44.092] "", base::R.version$version.string), 1564s [00:52:44.092] platform = base::sprintf("%s (%s-bit)", 1564s [00:52:44.092] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1564s [00:52:44.092] os = base::paste(base::Sys.info()[base::c("sysname", 1564s [00:52:44.092] "release", "version")], collapse = " "), 1564s [00:52:44.092] hostname = base::Sys.info()[["nodename"]]) 1564s [00:52:44.092] info <- base::sprintf("%s: %s", base::names(info), 1564s [00:52:44.092] info) 1564s [00:52:44.092] info <- base::paste(info, collapse = "; ") 1564s [00:52:44.092] if (!has_future) { 1564s [00:52:44.092] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1564s [00:52:44.092] info) 1564s [00:52:44.092] } 1564s [00:52:44.092] else { 1564s [00:52:44.092] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1564s [00:52:44.092] info, version) 1564s [00:52:44.092] } 1564s [00:52:44.092] base::stop(msg) 1564s [00:52:44.092] } 1564s [00:52:44.092] }) 1564s [00:52:44.092] } 1564s [00:52:44.092] options(future.plan = NULL) 1564s [00:52:44.092] Sys.unsetenv("R_FUTURE_PLAN") 1564s [00:52:44.092] future::plan("default", .cleanup = FALSE, .init = FALSE) 1564s [00:52:44.092] } 1564s [00:52:44.092] ...future.workdir <- getwd() 1564s [00:52:44.092] } 1564s [00:52:44.092] ...future.oldOptions <- base::as.list(base::.Options) 1564s [00:52:44.092] ...future.oldEnvVars <- base::Sys.getenv() 1564s [00:52:44.092] } 1564s [00:52:44.092] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1564s [00:52:44.092] future.globals.maxSize = 2621440000, future.globals.method = NULL, 1564s [00:52:44.092] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1564s [00:52:44.092] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1564s [00:52:44.092] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1564s [00:52:44.092] future.stdout.windows.reencode = NULL, width = 80L) 1564s [00:52:44.092] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1564s [00:52:44.092] base::names(...future.oldOptions)) 1564s [00:52:44.092] } 1564s [00:52:44.092] if (FALSE) { 1564s [00:52:44.092] } 1564s [00:52:44.092] else { 1564s [00:52:44.092] if (TRUE) { 1564s [00:52:44.092] ...future.stdout <- base::rawConnection(base::raw(0L), 1564s [00:52:44.092] open = "w") 1564s [00:52:44.092] } 1564s [00:52:44.092] else { 1564s [00:52:44.092] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1564s [00:52:44.092] windows = "NUL", "/dev/null"), open = "w") 1564s [00:52:44.092] } 1564s [00:52:44.092] base::sink(...future.stdout, type = "output", split = FALSE) 1564s [00:52:44.092] base::on.exit(if (!base::is.null(...future.stdout)) { 1564s [00:52:44.092] base::sink(type = "output", split = FALSE) 1564s [00:52:44.092] base::close(...future.stdout) 1564s [00:52:44.092] }, add = TRUE) 1564s [00:52:44.092] } 1564s [00:52:44.092] ...future.frame <- base::sys.nframe() 1564s [00:52:44.092] ...future.conditions <- base::list() 1564s [00:52:44.092] ...future.rng <- base::globalenv()$.Random.seed 1564s [00:52:44.092] if (FALSE) { 1564s [00:52:44.092] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1564s [00:52:44.092] "...future.value", "...future.globalenv.names", ".Random.seed") 1564s [00:52:44.092] } 1564s [00:52:44.092] ...future.result <- base::tryCatch({ 1564s [00:52:44.092] base::withCallingHandlers({ 1564s [00:52:44.092] ...future.value <- base::withVisible(base::local({ 1564s [00:52:44.092] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1564s [00:52:44.092] if (!identical(...future.globals.maxSize.org, 1564s [00:52:44.092] ...future.globals.maxSize)) { 1564s [00:52:44.092] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1564s [00:52:44.092] on.exit(options(oopts), add = TRUE) 1564s [00:52:44.092] } 1564s [00:52:44.092] { 1564s [00:52:44.092] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1564s [00:52:44.092] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1564s [00:52:44.092] USE.NAMES = FALSE) 1564s [00:52:44.092] do.call(mapply, args = args) 1564s [00:52:44.092] } 1564s [00:52:44.092] })) 1564s [00:52:44.092] future::FutureResult(value = ...future.value$value, 1564s [00:52:44.092] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1564s [00:52:44.092] ...future.rng), globalenv = if (FALSE) 1564s [00:52:44.092] list(added = base::setdiff(base::names(base::.GlobalEnv), 1564s [00:52:44.092] ...future.globalenv.names)) 1564s [00:52:44.092] else NULL, started = ...future.startTime, version = "1.8") 1564s [00:52:44.092] }, condition = base::local({ 1564s [00:52:44.092] c <- base::c 1564s [00:52:44.092] inherits <- base::inherits 1564s [00:52:44.092] invokeRestart <- base::invokeRestart 1564s [00:52:44.092] length <- base::length 1564s [00:52:44.092] list <- base::list 1564s [00:52:44.092] seq.int <- base::seq.int 1564s [00:52:44.092] signalCondition <- base::signalCondition 1564s [00:52:44.092] sys.calls <- base::sys.calls 1564s [00:52:44.092] `[[` <- base::`[[` 1564s [00:52:44.092] `+` <- base::`+` 1564s [00:52:44.092] `<<-` <- base::`<<-` 1564s [00:52:44.092] sysCalls <- function(calls = sys.calls(), from = 1L) { 1564s [00:52:44.092] calls[seq.int(from = from + 12L, to = length(calls) - 1564s [00:52:44.092] 3L)] 1564s [00:52:44.092] } 1564s [00:52:44.092] function(cond) { 1564s [00:52:44.092] is_error <- inherits(cond, "error") 1564s [00:52:44.092] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1564s [00:52:44.092] NULL) 1564s [00:52:44.092] if (is_error) { 1564s [00:52:44.092] sessionInformation <- function() { 1564s [00:52:44.092] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1564s [00:52:44.092] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1564s [00:52:44.092] search = base::search(), system = base::Sys.info()) 1564s [00:52:44.092] } 1564s [00:52:44.092] ...future.conditions[[length(...future.conditions) + 1564s [00:52:44.092] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1564s [00:52:44.092] cond$call), session = sessionInformation(), 1564s [00:52:44.092] timestamp = base::Sys.time(), signaled = 0L) 1564s [00:52:44.092] signalCondition(cond) 1564s [00:52:44.092] } 1564s [00:52:44.092] else if (!ignore && TRUE && inherits(cond, c("condition", 1564s [00:52:44.092] "immediateCondition"))) { 1564s [00:52:44.092] signal <- TRUE && inherits(cond, "immediateCondition") 1564s [00:52:44.092] ...future.conditions[[length(...future.conditions) + 1564s [00:52:44.092] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1564s [00:52:44.092] if (TRUE && !signal) { 1564s [00:52:44.092] muffleCondition <- function (cond, pattern = "^muffle") 1564s [00:52:44.092] { 1564s [00:52:44.092] inherits <- base::inherits 1564s [00:52:44.092] invokeRestart <- base::invokeRestart 1564s [00:52:44.092] is.null <- base::is.null 1564s [00:52:44.092] muffled <- FALSE 1564s [00:52:44.092] if (inherits(cond, "message")) { 1564s [00:52:44.092] muffled <- grepl(pattern, "muffleMessage") 1564s [00:52:44.092] if (muffled) 1564s [00:52:44.092] invokeRestart("muffleMessage") 1564s [00:52:44.092] } 1564s [00:52:44.092] else if (inherits(cond, "warning")) { 1564s [00:52:44.092] muffled <- grepl(pattern, "muffleWarning") 1564s [00:52:44.092] if (muffled) 1564s [00:52:44.092] invokeRestart("muffleWarning") 1564s [00:52:44.092] } 1564s [00:52:44.092] else if (inherits(cond, "condition")) { 1564s [00:52:44.092] if (!is.null(pattern)) { 1564s [00:52:44.092] computeRestarts <- base::computeRestarts 1564s [00:52:44.092] grepl <- base::grepl 1564s [00:52:44.092] restarts <- computeRestarts(cond) 1564s [00:52:44.092] for (restart in restarts) { 1564s [00:52:44.092] name <- restart$name 1564s [00:52:44.092] if (is.null(name)) 1564s [00:52:44.092] next 1564s [00:52:44.092] if (!grepl(pattern, name)) 1564s [00:52:44.092] next 1564s [00:52:44.092] invokeRestart(restart) 1564s [00:52:44.092] muffled <- TRUE 1564s [00:52:44.092] break 1564s [00:52:44.092] } 1564s [00:52:44.092] } 1564s [00:52:44.092] } 1564s [00:52:44.092] invisible(muffled) 1564s [00:52:44.092] } 1564s [00:52:44.092] muffleCondition(cond, pattern = "^muffle") 1564s [00:52:44.092] } 1564s [00:52:44.092] } 1564s [00:52:44.092] else { 1564s [00:52:44.092] if (TRUE) { 1564s [00:52:44.092] muffleCondition <- function (cond, pattern = "^muffle") 1564s [00:52:44.092] { 1564s [00:52:44.092] inherits <- base::inherits 1564s [00:52:44.092] invokeRestart <- base::invokeRestart 1564s [00:52:44.092] is.null <- base::is.null 1564s [00:52:44.092] muffled <- FALSE 1564s [00:52:44.092] if (inherits(cond, "message")) { 1564s [00:52:44.092] muffled <- grepl(pattern, "muffleMessage") 1564s [00:52:44.092] if (muffled) 1564s [00:52:44.092] invokeRestart("muffleMessage") 1564s [00:52:44.092] } 1564s [00:52:44.092] else if (inherits(cond, "warning")) { 1564s [00:52:44.092] muffled <- grepl(pattern, "muffleWarning") 1564s [00:52:44.092] if (muffled) 1564s [00:52:44.092] invokeRestart("muffleWarning") 1564s [00:52:44.092] } 1564s [00:52:44.092] else if (inherits(cond, "condition")) { 1564s [00:52:44.092] if (!is.null(pattern)) { 1564s [00:52:44.092] computeRestarts <- base::computeRestarts 1564s [00:52:44.092] grepl <- base::grepl 1564s [00:52:44.092] restarts <- computeRestarts(cond) 1564s [00:52:44.092] for (restart in restarts) { 1564s [00:52:44.092] name <- restart$name 1564s [00:52:44.092] if (is.null(name)) 1564s [00:52:44.092] next 1564s [00:52:44.092] if (!grepl(pattern, name)) 1564s [00:52:44.092] next 1564s [00:52:44.092] invokeRestart(restart) 1564s [00:52:44.092] muffled <- TRUE 1564s [00:52:44.092] break 1564s [00:52:44.092] } 1564s [00:52:44.092] } 1564s [00:52:44.092] } 1564s [00:52:44.092] invisible(muffled) 1564s [00:52:44.092] } 1564s [00:52:44.092] muffleCondition(cond, pattern = "^muffle") 1564s [00:52:44.092] } 1564s [00:52:44.092] } 1564s [00:52:44.092] } 1564s [00:52:44.092] })) 1564s [00:52:44.092] }, error = function(ex) { 1564s [00:52:44.092] base::structure(base::list(value = NULL, visible = NULL, 1564s [00:52:44.092] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1564s [00:52:44.092] ...future.rng), started = ...future.startTime, 1564s [00:52:44.092] finished = Sys.time(), session_uuid = NA_character_, 1564s [00:52:44.092] version = "1.8"), class = "FutureResult") 1564s [00:52:44.092] }, finally = { 1564s [00:52:44.092] if (!identical(...future.workdir, getwd())) 1564s [00:52:44.092] setwd(...future.workdir) 1564s [00:52:44.092] { 1564s [00:52:44.092] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1564s [00:52:44.092] ...future.oldOptions$nwarnings <- NULL 1564s [00:52:44.092] } 1564s [00:52:44.092] base::options(...future.oldOptions) 1564s [00:52:44.092] if (.Platform$OS.type == "windows") { 1564s [00:52:44.092] old_names <- names(...future.oldEnvVars) 1564s [00:52:44.092] envs <- base::Sys.getenv() 1564s [00:52:44.092] names <- names(envs) 1564s [00:52:44.092] common <- intersect(names, old_names) 1564s [00:52:44.092] added <- setdiff(names, old_names) 1564s [00:52:44.092] removed <- setdiff(old_names, names) 1564s [00:52:44.092] changed <- common[...future.oldEnvVars[common] != 1564s [00:52:44.092] envs[common]] 1564s [00:52:44.092] NAMES <- toupper(changed) 1564s [00:52:44.092] args <- list() 1564s [00:52:44.092] for (kk in seq_along(NAMES)) { 1564s [00:52:44.092] name <- changed[[kk]] 1564s [00:52:44.092] NAME <- NAMES[[kk]] 1564s [00:52:44.092] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:44.092] next 1564s [00:52:44.092] args[[name]] <- ...future.oldEnvVars[[name]] 1564s [00:52:44.092] } 1564s [00:52:44.092] NAMES <- toupper(added) 1564s [00:52:44.092] for (kk in seq_along(NAMES)) { 1564s [00:52:44.092] name <- added[[kk]] 1564s [00:52:44.092] NAME <- NAMES[[kk]] 1564s [00:52:44.092] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:44.092] next 1564s [00:52:44.092] args[[name]] <- "" 1564s [00:52:44.092] } 1564s [00:52:44.092] NAMES <- toupper(removed) 1564s [00:52:44.092] for (kk in seq_along(NAMES)) { 1564s [00:52:44.092] name <- removed[[kk]] 1564s [00:52:44.092] NAME <- NAMES[[kk]] 1564s [00:52:44.092] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:44.092] next 1564s [00:52:44.092] args[[name]] <- ...future.oldEnvVars[[name]] 1564s [00:52:44.092] } 1564s [00:52:44.092] if (length(args) > 0) 1564s [00:52:44.092] base::do.call(base::Sys.setenv, args = args) 1564s [00:52:44.092] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1564s [00:52:44.092] } 1564s [00:52:44.092] else { 1564s [00:52:44.092] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1564s [00:52:44.092] } 1564s [00:52:44.092] { 1564s [00:52:44.092] if (base::length(...future.futureOptionsAdded) > 1564s [00:52:44.092] 0L) { 1564s [00:52:44.092] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1564s [00:52:44.092] base::names(opts) <- ...future.futureOptionsAdded 1564s [00:52:44.092] base::options(opts) 1564s [00:52:44.092] } 1564s [00:52:44.092] { 1564s [00:52:44.092] { 1564s [00:52:44.092] base::assign(".Random.seed", c(10407L, -193111136L, 1564s [00:52:44.092] 1998638665L, 1795077819L, 549408344L, 564105141L, 1564s [00:52:44.092] -308065669L), envir = base::globalenv(), 1564s [00:52:44.092] inherits = FALSE) 1564s [00:52:44.092] NULL 1564s [00:52:44.092] } 1564s [00:52:44.092] options(future.plan = NULL) 1564s [00:52:44.092] if (is.na(NA_character_)) 1564s [00:52:44.092] Sys.unsetenv("R_FUTURE_PLAN") 1564s [00:52:44.092] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1564s [00:52:44.092] future::plan(list(function (..., workers = availableCores(), 1564s [00:52:44.092] lazy = FALSE, rscript_libs = .libPaths(), 1564s [00:52:44.092] envir = parent.frame()) 1564s [00:52:44.092] { 1564s [00:52:44.092] if (is.function(workers)) 1564s [00:52:44.092] workers <- workers() 1564s [00:52:44.092] workers <- structure(as.integer(workers), 1564s [00:52:44.092] class = class(workers)) 1564s [00:52:44.092] stop_if_not(length(workers) == 1, is.finite(workers), 1564s [00:52:44.092] workers >= 1) 1564s [00:52:44.092] if (workers == 1L && !inherits(workers, "AsIs")) { 1564s [00:52:44.092] return(sequential(..., lazy = TRUE, envir = envir)) 1564s [00:52:44.092] } 1564s [00:52:44.092] future <- MultisessionFuture(..., workers = workers, 1564s [00:52:44.092] lazy = lazy, rscript_libs = rscript_libs, 1564s [00:52:44.092] envir = envir) 1564s [00:52:44.092] if (!future$lazy) 1564s [00:52:44.092] future <- run(future) 1564s [00:52:44.092] invisible(future) 1564s [00:52:44.092] }), .cleanup = FALSE, .init = FALSE) 1564s [00:52:44.092] } 1564s [00:52:44.092] } 1564s [00:52:44.092] } 1564s [00:52:44.092] }) 1564s [00:52:44.092] if (TRUE) { 1564s [00:52:44.092] base::sink(type = "output", split = FALSE) 1564s [00:52:44.092] if (TRUE) { 1564s [00:52:44.092] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1564s [00:52:44.092] } 1564s [00:52:44.092] else { 1564s [00:52:44.092] ...future.result["stdout"] <- base::list(NULL) 1564s [00:52:44.092] } 1564s [00:52:44.092] base::close(...future.stdout) 1564s [00:52:44.092] ...future.stdout <- NULL 1564s [00:52:44.092] } 1564s [00:52:44.092] ...future.result$conditions <- ...future.conditions 1564s [00:52:44.092] ...future.result$finished <- base::Sys.time() 1564s [00:52:44.092] ...future.result 1564s [00:52:44.092] } 1564s [00:52:44.103] assign_globals() ... 1564s [00:52:44.103] List of 5 1564s [00:52:44.103] $ ...future.FUN :function (C, k) 1564s [00:52:44.103] $ MoreArgs : NULL 1564s [00:52:44.103] $ ...future.elements_ii :List of 2 1564s [00:52:44.103] ..$ :List of 1 1564s [00:52:44.103] .. ..$ : chr "C" 1564s [00:52:44.103] ..$ :List of 1 1564s [00:52:44.103] .. ..$ : int 3 1564s [00:52:44.103] $ ...future.seeds_ii : NULL 1564s [00:52:44.103] $ ...future.globals.maxSize: NULL 1564s [00:52:44.103] - attr(*, "where")=List of 5 1564s [00:52:44.103] ..$ ...future.FUN : 1564s [00:52:44.103] ..$ MoreArgs : 1564s [00:52:44.103] ..$ ...future.elements_ii : 1564s [00:52:44.103] ..$ ...future.seeds_ii : 1564s [00:52:44.103] ..$ ...future.globals.maxSize: 1564s [00:52:44.103] - attr(*, "resolved")= logi FALSE 1564s [00:52:44.103] - attr(*, "total_size")= num 3488 1564s [00:52:44.103] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1564s [00:52:44.103] - attr(*, "already-done")= logi TRUE 1564s [00:52:44.112] - reassign environment for ‘...future.FUN’ 1564s [00:52:44.112] - copied ‘...future.FUN’ to environment 1564s [00:52:44.112] - copied ‘MoreArgs’ to environment 1564s [00:52:44.117] - copied ‘...future.elements_ii’ to environment 1564s [00:52:44.117] - copied ‘...future.seeds_ii’ to environment 1564s [00:52:44.117] - copied ‘...future.globals.maxSize’ to environment 1564s [00:52:44.117] assign_globals() ... done 1564s [00:52:44.118] plan(): Setting new future strategy stack: 1564s [00:52:44.119] List of future strategies: 1564s [00:52:44.119] 1. sequential: 1564s [00:52:44.119] - args: function (..., envir = parent.frame()) 1564s [00:52:44.119] - tweaked: FALSE 1564s [00:52:44.119] - call: NULL 1564s [00:52:44.120] plan(): nbrOfWorkers() = 1 1564s [00:52:44.121] plan(): Setting new future strategy stack: 1564s [00:52:44.122] List of future strategies: 1564s [00:52:44.122] 1. multisession: 1564s [00:52:44.122] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1564s [00:52:44.122] - tweaked: FALSE 1564s [00:52:44.122] - call: plan(strategy) 1564s [00:52:44.128] plan(): nbrOfWorkers() = 1 1564s [00:52:44.129] SequentialFuture started (and completed) 1564s [00:52:44.130] - Launch lazy future ... done 1564s [00:52:44.130] run() for ‘SequentialFuture’ ... done 1564s [00:52:44.130] Created future: 1564s [00:52:44.131] SequentialFuture: 1564s [00:52:44.131] Label: ‘future_mapply-3’ 1564s [00:52:44.131] Expression: 1564s [00:52:44.131] { 1564s [00:52:44.131] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1564s [00:52:44.131] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1564s [00:52:44.131] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1564s [00:52:44.131] on.exit(options(oopts), add = TRUE) 1564s [00:52:44.131] } 1564s [00:52:44.131] { 1564s [00:52:44.131] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1564s [00:52:44.131] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1564s [00:52:44.131] do.call(mapply, args = args) 1564s [00:52:44.131] } 1564s [00:52:44.131] } 1564s [00:52:44.131] Lazy evaluation: FALSE 1564s [00:52:44.131] Asynchronous evaluation: FALSE 1564s [00:52:44.131] Local evaluation: TRUE 1564s [00:52:44.131] Environment: R_GlobalEnv 1564s [00:52:44.131] Capture standard output: TRUE 1564s [00:52:44.131] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1564s [00:52:44.131] Globals: 5 objects totaling 3.41 KiB (function ‘...future.FUN’ of 3.24 KiB, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1564s [00:52:44.131] Packages: 1564s [00:52:44.131] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1564s [00:52:44.131] Resolved: TRUE 1564s [00:52:44.131] Value: 112 bytes of class ‘list’ 1564s [00:52:44.131] Early signaling: FALSE 1564s [00:52:44.131] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1564s [00:52:44.131] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1564s [00:52:44.133] Chunk #3 of 5 ... DONE 1564s [00:52:44.134] Chunk #4 of 5 ... 1564s [00:52:44.134] - Finding globals in '...' for chunk #4 ... 1564s [00:52:44.134] getGlobalsAndPackages() ... 1564s [00:52:44.134] Searching for globals... 1564s [00:52:44.135] 1564s [00:52:44.135] Searching for globals ... DONE 1564s [00:52:44.135] - globals: [0] 1564s [00:52:44.136] getGlobalsAndPackages() ... DONE 1564s [00:52:44.136] + additional globals found: [n=0] 1564s [00:52:44.136] + additional namespaces needed: [n=0] 1564s [00:52:44.137] - Finding globals in '...' for chunk #4 ... DONE 1564s [00:52:44.137] - Adjusted option 'future.globals.maxSize': 524288000 -> 5 * 524288000 = 2621440000 (bytes) 1564s [00:52:44.137] - seeds: 1564s [00:52:44.137] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:44.138] getGlobalsAndPackages() ... 1564s [00:52:44.138] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:44.138] Resolving globals: FALSE 1564s [00:52:44.139] The total size of the 5 globals is 3.41 KiB (3488 bytes) 1564s [00:52:44.140] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 3.41 KiB.. This exceeds the maximum allowed size of 2.44 GiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (3.24 KiB of class ‘function’), ‘...future.elements_ii’ (168 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1564s [00:52:44.141] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:44.141] 1564s [00:52:44.141] getGlobalsAndPackages() ... DONE 1564s [00:52:44.142] run() for ‘Future’ ... 1564s [00:52:44.142] - state: ‘created’ 1564s [00:52:44.142] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1564s [00:52:44.147] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1564s [00:52:44.147] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1564s [00:52:44.147] - Field: ‘label’ 1564s [00:52:44.148] - Field: ‘local’ 1564s [00:52:44.148] - Field: ‘owner’ 1564s [00:52:44.148] - Field: ‘envir’ 1564s [00:52:44.148] - Field: ‘packages’ 1564s [00:52:44.149] - Field: ‘gc’ 1564s [00:52:44.149] - Field: ‘conditions’ 1564s [00:52:44.150] - Field: ‘expr’ 1564s [00:52:44.150] - Field: ‘uuid’ 1564s [00:52:44.150] - Field: ‘seed’ 1564s [00:52:44.151] - Field: ‘version’ 1564s [00:52:44.151] - Field: ‘result’ 1564s [00:52:44.151] - Field: ‘asynchronous’ 1564s [00:52:44.152] - Field: ‘calls’ 1564s [00:52:44.152] - Field: ‘globals’ 1564s [00:52:44.153] - Field: ‘stdout’ 1564s [00:52:44.153] - Field: ‘earlySignal’ 1564s [00:52:44.153] - Field: ‘lazy’ 1564s [00:52:44.154] - Field: ‘state’ 1564s [00:52:44.154] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1564s [00:52:44.154] - Launch lazy future ... 1564s [00:52:44.155] Packages needed by the future expression (n = 0): 1564s [00:52:44.155] Packages needed by future strategies (n = 0): 1564s [00:52:44.156] { 1564s [00:52:44.156] { 1564s [00:52:44.156] { 1564s [00:52:44.156] ...future.startTime <- base::Sys.time() 1564s [00:52:44.156] { 1564s [00:52:44.156] { 1564s [00:52:44.156] { 1564s [00:52:44.156] base::local({ 1564s [00:52:44.156] has_future <- base::requireNamespace("future", 1564s [00:52:44.156] quietly = TRUE) 1564s [00:52:44.156] if (has_future) { 1564s [00:52:44.156] ns <- base::getNamespace("future") 1564s [00:52:44.156] version <- ns[[".package"]][["version"]] 1564s [00:52:44.156] if (is.null(version)) 1564s [00:52:44.156] version <- utils::packageVersion("future") 1564s [00:52:44.156] } 1564s [00:52:44.156] else { 1564s [00:52:44.156] version <- NULL 1564s [00:52:44.156] } 1564s [00:52:44.156] if (!has_future || version < "1.8.0") { 1564s [00:52:44.156] info <- base::c(r_version = base::gsub("R version ", 1564s [00:52:44.156] "", base::R.version$version.string), 1564s [00:52:44.156] platform = base::sprintf("%s (%s-bit)", 1564s [00:52:44.156] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1564s [00:52:44.156] os = base::paste(base::Sys.info()[base::c("sysname", 1564s [00:52:44.156] "release", "version")], collapse = " "), 1564s [00:52:44.156] hostname = base::Sys.info()[["nodename"]]) 1564s [00:52:44.156] info <- base::sprintf("%s: %s", base::names(info), 1564s [00:52:44.156] info) 1564s [00:52:44.156] info <- base::paste(info, collapse = "; ") 1564s [00:52:44.156] if (!has_future) { 1564s [00:52:44.156] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1564s [00:52:44.156] info) 1564s [00:52:44.156] } 1564s [00:52:44.156] else { 1564s [00:52:44.156] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1564s [00:52:44.156] info, version) 1564s [00:52:44.156] } 1564s [00:52:44.156] base::stop(msg) 1564s [00:52:44.156] } 1564s [00:52:44.156] }) 1564s [00:52:44.156] } 1564s [00:52:44.156] options(future.plan = NULL) 1564s [00:52:44.156] Sys.unsetenv("R_FUTURE_PLAN") 1564s [00:52:44.156] future::plan("default", .cleanup = FALSE, .init = FALSE) 1564s [00:52:44.156] } 1564s [00:52:44.156] ...future.workdir <- getwd() 1564s [00:52:44.156] } 1564s [00:52:44.156] ...future.oldOptions <- base::as.list(base::.Options) 1564s [00:52:44.156] ...future.oldEnvVars <- base::Sys.getenv() 1564s [00:52:44.156] } 1564s [00:52:44.156] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1564s [00:52:44.156] future.globals.maxSize = 2621440000, future.globals.method = NULL, 1564s [00:52:44.156] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1564s [00:52:44.156] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1564s [00:52:44.156] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1564s [00:52:44.156] future.stdout.windows.reencode = NULL, width = 80L) 1564s [00:52:44.156] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1564s [00:52:44.156] base::names(...future.oldOptions)) 1564s [00:52:44.156] } 1564s [00:52:44.156] if (FALSE) { 1564s [00:52:44.156] } 1564s [00:52:44.156] else { 1564s [00:52:44.156] if (TRUE) { 1564s [00:52:44.156] ...future.stdout <- base::rawConnection(base::raw(0L), 1564s [00:52:44.156] open = "w") 1564s [00:52:44.156] } 1564s [00:52:44.156] else { 1564s [00:52:44.156] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1564s [00:52:44.156] windows = "NUL", "/dev/null"), open = "w") 1564s [00:52:44.156] } 1564s [00:52:44.156] base::sink(...future.stdout, type = "output", split = FALSE) 1564s [00:52:44.156] base::on.exit(if (!base::is.null(...future.stdout)) { 1564s [00:52:44.156] base::sink(type = "output", split = FALSE) 1564s [00:52:44.156] base::close(...future.stdout) 1564s [00:52:44.156] }, add = TRUE) 1564s [00:52:44.156] } 1564s [00:52:44.156] ...future.frame <- base::sys.nframe() 1564s [00:52:44.156] ...future.conditions <- base::list() 1564s [00:52:44.156] ...future.rng <- base::globalenv()$.Random.seed 1564s [00:52:44.156] if (FALSE) { 1564s [00:52:44.156] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1564s [00:52:44.156] "...future.value", "...future.globalenv.names", ".Random.seed") 1564s [00:52:44.156] } 1564s [00:52:44.156] ...future.result <- base::tryCatch({ 1564s [00:52:44.156] base::withCallingHandlers({ 1564s [00:52:44.156] ...future.value <- base::withVisible(base::local({ 1564s [00:52:44.156] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1564s [00:52:44.156] if (!identical(...future.globals.maxSize.org, 1564s [00:52:44.156] ...future.globals.maxSize)) { 1564s [00:52:44.156] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1564s [00:52:44.156] on.exit(options(oopts), add = TRUE) 1564s [00:52:44.156] } 1564s [00:52:44.156] { 1564s [00:52:44.156] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1564s [00:52:44.156] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1564s [00:52:44.156] USE.NAMES = FALSE) 1564s [00:52:44.156] do.call(mapply, args = args) 1564s [00:52:44.156] } 1564s [00:52:44.156] })) 1564s [00:52:44.156] future::FutureResult(value = ...future.value$value, 1564s [00:52:44.156] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1564s [00:52:44.156] ...future.rng), globalenv = if (FALSE) 1564s [00:52:44.156] list(added = base::setdiff(base::names(base::.GlobalEnv), 1564s [00:52:44.156] ...future.globalenv.names)) 1564s [00:52:44.156] else NULL, started = ...future.startTime, version = "1.8") 1564s [00:52:44.156] }, condition = base::local({ 1564s [00:52:44.156] c <- base::c 1564s [00:52:44.156] inherits <- base::inherits 1564s [00:52:44.156] invokeRestart <- base::invokeRestart 1564s [00:52:44.156] length <- base::length 1564s [00:52:44.156] list <- base::list 1564s [00:52:44.156] seq.int <- base::seq.int 1564s [00:52:44.156] signalCondition <- base::signalCondition 1564s [00:52:44.156] sys.calls <- base::sys.calls 1564s [00:52:44.156] `[[` <- base::`[[` 1564s [00:52:44.156] `+` <- base::`+` 1564s [00:52:44.156] `<<-` <- base::`<<-` 1564s [00:52:44.156] sysCalls <- function(calls = sys.calls(), from = 1L) { 1564s [00:52:44.156] calls[seq.int(from = from + 12L, to = length(calls) - 1564s [00:52:44.156] 3L)] 1564s [00:52:44.156] } 1564s [00:52:44.156] function(cond) { 1564s [00:52:44.156] is_error <- inherits(cond, "error") 1564s [00:52:44.156] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1564s [00:52:44.156] NULL) 1564s [00:52:44.156] if (is_error) { 1564s [00:52:44.156] sessionInformation <- function() { 1564s [00:52:44.156] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1564s [00:52:44.156] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1564s [00:52:44.156] search = base::search(), system = base::Sys.info()) 1564s [00:52:44.156] } 1564s [00:52:44.156] ...future.conditions[[length(...future.conditions) + 1564s [00:52:44.156] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1564s [00:52:44.156] cond$call), session = sessionInformation(), 1564s [00:52:44.156] timestamp = base::Sys.time(), signaled = 0L) 1564s [00:52:44.156] signalCondition(cond) 1564s [00:52:44.156] } 1564s [00:52:44.156] else if (!ignore && TRUE && inherits(cond, c("condition", 1564s [00:52:44.156] "immediateCondition"))) { 1564s [00:52:44.156] signal <- TRUE && inherits(cond, "immediateCondition") 1564s [00:52:44.156] ...future.conditions[[length(...future.conditions) + 1564s [00:52:44.156] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1564s [00:52:44.156] if (TRUE && !signal) { 1564s [00:52:44.156] muffleCondition <- function (cond, pattern = "^muffle") 1564s [00:52:44.156] { 1564s [00:52:44.156] inherits <- base::inherits 1564s [00:52:44.156] invokeRestart <- base::invokeRestart 1564s [00:52:44.156] is.null <- base::is.null 1564s [00:52:44.156] muffled <- FALSE 1564s [00:52:44.156] if (inherits(cond, "message")) { 1564s [00:52:44.156] muffled <- grepl(pattern, "muffleMessage") 1564s [00:52:44.156] if (muffled) 1564s [00:52:44.156] invokeRestart("muffleMessage") 1564s [00:52:44.156] } 1564s [00:52:44.156] else if (inherits(cond, "warning")) { 1564s [00:52:44.156] muffled <- grepl(pattern, "muffleWarning") 1564s [00:52:44.156] if (muffled) 1564s [00:52:44.156] invokeRestart("muffleWarning") 1564s [00:52:44.156] } 1564s [00:52:44.156] else if (inherits(cond, "condition")) { 1564s [00:52:44.156] if (!is.null(pattern)) { 1564s [00:52:44.156] computeRestarts <- base::computeRestarts 1564s [00:52:44.156] grepl <- base::grepl 1564s [00:52:44.156] restarts <- computeRestarts(cond) 1564s [00:52:44.156] for (restart in restarts) { 1564s [00:52:44.156] name <- restart$name 1564s [00:52:44.156] if (is.null(name)) 1564s [00:52:44.156] next 1564s [00:52:44.156] if (!grepl(pattern, name)) 1564s [00:52:44.156] next 1564s [00:52:44.156] invokeRestart(restart) 1564s [00:52:44.156] muffled <- TRUE 1564s [00:52:44.156] break 1564s [00:52:44.156] } 1564s [00:52:44.156] } 1564s [00:52:44.156] } 1564s [00:52:44.156] invisible(muffled) 1564s [00:52:44.156] } 1564s [00:52:44.156] muffleCondition(cond, pattern = "^muffle") 1564s [00:52:44.156] } 1564s [00:52:44.156] } 1564s [00:52:44.156] else { 1564s [00:52:44.156] if (TRUE) { 1564s [00:52:44.156] muffleCondition <- function (cond, pattern = "^muffle") 1564s [00:52:44.156] { 1564s [00:52:44.156] inherits <- base::inherits 1564s [00:52:44.156] invokeRestart <- base::invokeRestart 1564s [00:52:44.156] is.null <- base::is.null 1564s [00:52:44.156] muffled <- FALSE 1564s [00:52:44.156] if (inherits(cond, "message")) { 1564s [00:52:44.156] muffled <- grepl(pattern, "muffleMessage") 1564s [00:52:44.156] if (muffled) 1564s [00:52:44.156] invokeRestart("muffleMessage") 1564s [00:52:44.156] } 1564s [00:52:44.156] else if (inherits(cond, "warning")) { 1564s [00:52:44.156] muffled <- grepl(pattern, "muffleWarning") 1564s [00:52:44.156] if (muffled) 1564s [00:52:44.156] invokeRestart("muffleWarning") 1564s [00:52:44.156] } 1564s [00:52:44.156] else if (inherits(cond, "condition")) { 1564s [00:52:44.156] if (!is.null(pattern)) { 1564s [00:52:44.156] computeRestarts <- base::computeRestarts 1564s [00:52:44.156] grepl <- base::grepl 1564s [00:52:44.156] restarts <- computeRestarts(cond) 1564s [00:52:44.156] for (restart in restarts) { 1564s [00:52:44.156] name <- restart$name 1564s [00:52:44.156] if (is.null(name)) 1564s [00:52:44.156] next 1564s [00:52:44.156] if (!grepl(pattern, name)) 1564s [00:52:44.156] next 1564s [00:52:44.156] invokeRestart(restart) 1564s [00:52:44.156] muffled <- TRUE 1564s [00:52:44.156] break 1564s [00:52:44.156] } 1564s [00:52:44.156] } 1564s [00:52:44.156] } 1564s [00:52:44.156] invisible(muffled) 1564s [00:52:44.156] } 1564s [00:52:44.156] muffleCondition(cond, pattern = "^muffle") 1564s [00:52:44.156] } 1564s [00:52:44.156] } 1564s [00:52:44.156] } 1564s [00:52:44.156] })) 1564s [00:52:44.156] }, error = function(ex) { 1564s [00:52:44.156] base::structure(base::list(value = NULL, visible = NULL, 1564s [00:52:44.156] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1564s [00:52:44.156] ...future.rng), started = ...future.startTime, 1564s [00:52:44.156] finished = Sys.time(), session_uuid = NA_character_, 1564s [00:52:44.156] version = "1.8"), class = "FutureResult") 1564s [00:52:44.156] }, finally = { 1564s [00:52:44.156] if (!identical(...future.workdir, getwd())) 1564s [00:52:44.156] setwd(...future.workdir) 1564s [00:52:44.156] { 1564s [00:52:44.156] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1564s [00:52:44.156] ...future.oldOptions$nwarnings <- NULL 1564s [00:52:44.156] } 1564s [00:52:44.156] base::options(...future.oldOptions) 1564s [00:52:44.156] if (.Platform$OS.type == "windows") { 1564s [00:52:44.156] old_names <- names(...future.oldEnvVars) 1564s [00:52:44.156] envs <- base::Sys.getenv() 1564s [00:52:44.156] names <- names(envs) 1564s [00:52:44.156] common <- intersect(names, old_names) 1564s [00:52:44.156] added <- setdiff(names, old_names) 1564s [00:52:44.156] removed <- setdiff(old_names, names) 1564s [00:52:44.156] changed <- common[...future.oldEnvVars[common] != 1564s [00:52:44.156] envs[common]] 1564s [00:52:44.156] NAMES <- toupper(changed) 1564s [00:52:44.156] args <- list() 1564s [00:52:44.156] for (kk in seq_along(NAMES)) { 1564s [00:52:44.156] name <- changed[[kk]] 1564s [00:52:44.156] NAME <- NAMES[[kk]] 1564s [00:52:44.156] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:44.156] next 1564s [00:52:44.156] args[[name]] <- ...future.oldEnvVars[[name]] 1564s [00:52:44.156] } 1564s [00:52:44.156] NAMES <- toupper(added) 1564s [00:52:44.156] for (kk in seq_along(NAMES)) { 1564s [00:52:44.156] name <- added[[kk]] 1564s [00:52:44.156] NAME <- NAMES[[kk]] 1564s [00:52:44.156] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:44.156] next 1564s [00:52:44.156] args[[name]] <- "" 1564s [00:52:44.156] } 1564s [00:52:44.156] NAMES <- toupper(removed) 1564s [00:52:44.156] for (kk in seq_along(NAMES)) { 1564s [00:52:44.156] name <- removed[[kk]] 1564s [00:52:44.156] NAME <- NAMES[[kk]] 1564s [00:52:44.156] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:44.156] next 1564s [00:52:44.156] args[[name]] <- ...future.oldEnvVars[[name]] 1564s [00:52:44.156] } 1564s [00:52:44.156] if (length(args) > 0) 1564s [00:52:44.156] base::do.call(base::Sys.setenv, args = args) 1564s [00:52:44.156] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1564s [00:52:44.156] } 1564s [00:52:44.156] else { 1564s [00:52:44.156] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1564s [00:52:44.156] } 1564s [00:52:44.156] { 1564s [00:52:44.156] if (base::length(...future.futureOptionsAdded) > 1564s [00:52:44.156] 0L) { 1564s [00:52:44.156] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1564s [00:52:44.156] base::names(opts) <- ...future.futureOptionsAdded 1564s [00:52:44.156] base::options(opts) 1564s [00:52:44.156] } 1564s [00:52:44.156] { 1564s [00:52:44.156] { 1564s [00:52:44.156] base::assign(".Random.seed", c(10407L, -193111136L, 1564s [00:52:44.156] 1998638665L, 1795077819L, 549408344L, 564105141L, 1564s [00:52:44.156] -308065669L), envir = base::globalenv(), 1564s [00:52:44.156] inherits = FALSE) 1564s [00:52:44.156] NULL 1564s [00:52:44.156] } 1564s [00:52:44.156] options(future.plan = NULL) 1564s [00:52:44.156] if (is.na(NA_character_)) 1564s [00:52:44.156] Sys.unsetenv("R_FUTURE_PLAN") 1564s [00:52:44.156] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1564s [00:52:44.156] future::plan(list(function (..., workers = availableCores(), 1564s [00:52:44.156] lazy = FALSE, rscript_libs = .libPaths(), 1564s [00:52:44.156] envir = parent.frame()) 1564s [00:52:44.156] { 1564s [00:52:44.156] if (is.function(workers)) 1564s [00:52:44.156] workers <- workers() 1564s [00:52:44.156] workers <- structure(as.integer(workers), 1564s [00:52:44.156] class = class(workers)) 1564s [00:52:44.156] stop_if_not(length(workers) == 1, is.finite(workers), 1564s [00:52:44.156] workers >= 1) 1564s [00:52:44.156] if (workers == 1L && !inherits(workers, "AsIs")) { 1564s [00:52:44.156] return(sequential(..., lazy = TRUE, envir = envir)) 1564s [00:52:44.156] } 1564s [00:52:44.156] future <- MultisessionFuture(..., workers = workers, 1564s [00:52:44.156] lazy = lazy, rscript_libs = rscript_libs, 1564s [00:52:44.156] envir = envir) 1564s [00:52:44.156] if (!future$lazy) 1564s [00:52:44.156] future <- run(future) 1564s [00:52:44.156] invisible(future) 1564s [00:52:44.156] }), .cleanup = FALSE, .init = FALSE) 1564s [00:52:44.156] } 1564s [00:52:44.156] } 1564s [00:52:44.156] } 1564s [00:52:44.156] }) 1564s [00:52:44.156] if (TRUE) { 1564s [00:52:44.156] base::sink(type = "output", split = FALSE) 1564s [00:52:44.156] if (TRUE) { 1564s [00:52:44.156] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1564s [00:52:44.156] } 1564s [00:52:44.156] else { 1564s [00:52:44.156] ...future.result["stdout"] <- base::list(NULL) 1564s [00:52:44.156] } 1564s [00:52:44.156] base::close(...future.stdout) 1564s [00:52:44.156] ...future.stdout <- NULL 1564s [00:52:44.156] } 1564s [00:52:44.156] ...future.result$conditions <- ...future.conditions 1564s [00:52:44.156] ...future.result$finished <- base::Sys.time() 1564s [00:52:44.156] ...future.result 1564s [00:52:44.156] } 1564s [00:52:44.161] assign_globals() ... 1564s [00:52:44.161] List of 5 1564s [00:52:44.161] $ ...future.FUN :function (C, k) 1564s [00:52:44.161] $ MoreArgs : NULL 1564s [00:52:44.161] $ ...future.elements_ii :List of 2 1564s [00:52:44.161] ..$ :List of 1 1564s [00:52:44.161] .. ..$ : chr "D" 1564s [00:52:44.161] ..$ :List of 1 1564s [00:52:44.161] .. ..$ : int 2 1564s [00:52:44.161] $ ...future.seeds_ii : NULL 1564s [00:52:44.161] $ ...future.globals.maxSize: NULL 1564s [00:52:44.161] - attr(*, "where")=List of 5 1564s [00:52:44.161] ..$ ...future.FUN : 1564s [00:52:44.161] ..$ MoreArgs : 1564s [00:52:44.161] ..$ ...future.elements_ii : 1564s [00:52:44.161] ..$ ...future.seeds_ii : 1564s [00:52:44.161] ..$ ...future.globals.maxSize: 1564s [00:52:44.161] - attr(*, "resolved")= logi FALSE 1564s [00:52:44.161] - attr(*, "total_size")= num 3488 1564s [00:52:44.161] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1564s [00:52:44.161] - attr(*, "already-done")= logi TRUE 1564s [00:52:44.173] - reassign environment for ‘...future.FUN’ 1564s [00:52:44.174] - copied ‘...future.FUN’ to environment 1564s [00:52:44.174] - copied ‘MoreArgs’ to environment 1564s [00:52:44.174] - copied ‘...future.elements_ii’ to environment 1564s [00:52:44.175] - copied ‘...future.seeds_ii’ to environment 1564s [00:52:44.175] - copied ‘...future.globals.maxSize’ to environment 1564s [00:52:44.175] assign_globals() ... done 1564s [00:52:44.179] plan(): Setting new future strategy stack: 1564s [00:52:44.179] List of future strategies: 1564s [00:52:44.179] 1. sequential: 1564s [00:52:44.179] - args: function (..., envir = parent.frame()) 1564s [00:52:44.179] - tweaked: FALSE 1564s [00:52:44.179] - call: NULL 1564s [00:52:44.180] plan(): nbrOfWorkers() = 1 1564s [00:52:44.182] plan(): Setting new future strategy stack: 1564s [00:52:44.182] List of future strategies: 1564s [00:52:44.182] 1. multisession: 1564s [00:52:44.182] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1564s [00:52:44.182] - tweaked: FALSE 1564s [00:52:44.182] - call: plan(strategy) 1564s [00:52:44.189] plan(): nbrOfWorkers() = 1 1564s [00:52:44.189] SequentialFuture started (and completed) 1564s [00:52:44.190] - Launch lazy future ... done 1564s [00:52:44.190] run() for ‘SequentialFuture’ ... done 1564s [00:52:44.190] Created future: 1564s [00:52:44.190] SequentialFuture: 1564s [00:52:44.190] Label: ‘future_mapply-4’ 1564s [00:52:44.190] Expression: 1564s [00:52:44.190] { 1564s [00:52:44.190] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1564s [00:52:44.190] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1564s [00:52:44.190] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1564s [00:52:44.190] on.exit(options(oopts), add = TRUE) 1564s [00:52:44.190] } 1564s [00:52:44.190] { 1564s [00:52:44.190] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1564s [00:52:44.190] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1564s [00:52:44.190] do.call(mapply, args = args) 1564s [00:52:44.190] } 1564s [00:52:44.190] } 1564s [00:52:44.190] Lazy evaluation: FALSE 1564s [00:52:44.190] Asynchronous evaluation: FALSE 1564s [00:52:44.190] Local evaluation: TRUE 1564s [00:52:44.190] Environment: R_GlobalEnv 1564s [00:52:44.190] Capture standard output: TRUE 1564s [00:52:44.190] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1564s [00:52:44.190] Globals: 5 objects totaling 3.41 KiB (function ‘...future.FUN’ of 3.24 KiB, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1564s [00:52:44.190] Packages: 1564s [00:52:44.190] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1564s [00:52:44.190] Resolved: TRUE 1564s [00:52:44.190] Value: 112 bytes of class ‘list’ 1564s [00:52:44.190] Early signaling: FALSE 1564s [00:52:44.190] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1564s [00:52:44.190] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1564s [00:52:44.193] Chunk #4 of 5 ... DONE 1564s [00:52:44.193] Chunk #5 of 5 ... 1564s [00:52:44.194] - Finding globals in '...' for chunk #5 ... 1564s [00:52:44.194] getGlobalsAndPackages() ... 1564s [00:52:44.194] Searching for globals... 1564s [00:52:44.195] 1564s [00:52:44.195] Searching for globals ... DONE 1564s [00:52:44.195] - globals: [0] 1564s [00:52:44.195] getGlobalsAndPackages() ... DONE 1564s [00:52:44.195] + additional globals found: [n=0] 1564s [00:52:44.195] + additional namespaces needed: [n=0] 1564s [00:52:44.196] - Finding globals in '...' for chunk #5 ... DONE 1564s [00:52:44.196] - Adjusted option 'future.globals.maxSize': 524288000 -> 5 * 524288000 = 2621440000 (bytes) 1564s [00:52:44.196] - seeds: 1564s [00:52:44.196] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:44.196] getGlobalsAndPackages() ... 1564s [00:52:44.196] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:44.196] Resolving globals: FALSE 1564s [00:52:44.198] The total size of the 5 globals is 3.41 KiB (3488 bytes) 1564s [00:52:44.199] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 3.41 KiB.. This exceeds the maximum allowed size of 2.44 GiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (3.24 KiB of class ‘function’), ‘...future.elements_ii’ (168 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1564s [00:52:44.199] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:44.199] 1564s [00:52:44.199] getGlobalsAndPackages() ... DONE 1564s [00:52:44.200] run() for ‘Future’ ... 1564s [00:52:44.200] - state: ‘created’ 1564s [00:52:44.200] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1564s [00:52:44.205] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1564s [00:52:44.205] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1564s [00:52:44.206] - Field: ‘label’ 1564s [00:52:44.206] - Field: ‘local’ 1564s [00:52:44.206] - Field: ‘owner’ 1564s [00:52:44.206] - Field: ‘envir’ 1564s [00:52:44.207] - Field: ‘packages’ 1564s [00:52:44.207] - Field: ‘gc’ 1564s [00:52:44.207] - Field: ‘conditions’ 1564s [00:52:44.207] - Field: ‘expr’ 1564s [00:52:44.207] - Field: ‘uuid’ 1564s [00:52:44.208] - Field: ‘seed’ 1564s [00:52:44.208] - Field: ‘version’ 1564s [00:52:44.208] - Field: ‘result’ 1564s [00:52:44.208] - Field: ‘asynchronous’ 1564s [00:52:44.208] - Field: ‘calls’ 1564s [00:52:44.209] - Field: ‘globals’ 1564s [00:52:44.209] - Field: ‘stdout’ 1564s [00:52:44.209] - Field: ‘earlySignal’ 1564s [00:52:44.209] - Field: ‘lazy’ 1564s [00:52:44.210] - Field: ‘state’ 1564s [00:52:44.210] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1564s [00:52:44.210] - Launch lazy future ... 1564s [00:52:44.210] Packages needed by the future expression (n = 0): 1564s [00:52:44.211] Packages needed by future strategies (n = 0): 1564s [00:52:44.211] { 1564s [00:52:44.211] { 1564s [00:52:44.211] { 1564s [00:52:44.211] ...future.startTime <- base::Sys.time() 1564s [00:52:44.211] { 1564s [00:52:44.211] { 1564s [00:52:44.211] { 1564s [00:52:44.211] base::local({ 1564s [00:52:44.211] has_future <- base::requireNamespace("future", 1564s [00:52:44.211] quietly = TRUE) 1564s [00:52:44.211] if (has_future) { 1564s [00:52:44.211] ns <- base::getNamespace("future") 1564s [00:52:44.211] version <- ns[[".package"]][["version"]] 1564s [00:52:44.211] if (is.null(version)) 1564s [00:52:44.211] version <- utils::packageVersion("future") 1564s [00:52:44.211] } 1564s [00:52:44.211] else { 1564s [00:52:44.211] version <- NULL 1564s [00:52:44.211] } 1564s [00:52:44.211] if (!has_future || version < "1.8.0") { 1564s [00:52:44.211] info <- base::c(r_version = base::gsub("R version ", 1564s [00:52:44.211] "", base::R.version$version.string), 1564s [00:52:44.211] platform = base::sprintf("%s (%s-bit)", 1564s [00:52:44.211] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1564s [00:52:44.211] os = base::paste(base::Sys.info()[base::c("sysname", 1564s [00:52:44.211] "release", "version")], collapse = " "), 1564s [00:52:44.211] hostname = base::Sys.info()[["nodename"]]) 1564s [00:52:44.211] info <- base::sprintf("%s: %s", base::names(info), 1564s [00:52:44.211] info) 1564s [00:52:44.211] info <- base::paste(info, collapse = "; ") 1564s [00:52:44.211] if (!has_future) { 1564s [00:52:44.211] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1564s [00:52:44.211] info) 1564s [00:52:44.211] } 1564s [00:52:44.211] else { 1564s [00:52:44.211] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1564s [00:52:44.211] info, version) 1564s [00:52:44.211] } 1564s [00:52:44.211] base::stop(msg) 1564s [00:52:44.211] } 1564s [00:52:44.211] }) 1564s [00:52:44.211] } 1564s [00:52:44.211] options(future.plan = NULL) 1564s [00:52:44.211] Sys.unsetenv("R_FUTURE_PLAN") 1564s [00:52:44.211] future::plan("default", .cleanup = FALSE, .init = FALSE) 1564s [00:52:44.211] } 1564s [00:52:44.211] ...future.workdir <- getwd() 1564s [00:52:44.211] } 1564s [00:52:44.211] ...future.oldOptions <- base::as.list(base::.Options) 1564s [00:52:44.211] ...future.oldEnvVars <- base::Sys.getenv() 1564s [00:52:44.211] } 1564s [00:52:44.211] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1564s [00:52:44.211] future.globals.maxSize = 2621440000, future.globals.method = NULL, 1564s [00:52:44.211] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1564s [00:52:44.211] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1564s [00:52:44.211] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1564s [00:52:44.211] future.stdout.windows.reencode = NULL, width = 80L) 1564s [00:52:44.211] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1564s [00:52:44.211] base::names(...future.oldOptions)) 1564s [00:52:44.211] } 1564s [00:52:44.211] if (FALSE) { 1564s [00:52:44.211] } 1564s [00:52:44.211] else { 1564s [00:52:44.211] if (TRUE) { 1564s [00:52:44.211] ...future.stdout <- base::rawConnection(base::raw(0L), 1564s [00:52:44.211] open = "w") 1564s [00:52:44.211] } 1564s [00:52:44.211] else { 1564s [00:52:44.211] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1564s [00:52:44.211] windows = "NUL", "/dev/null"), open = "w") 1564s [00:52:44.211] } 1564s [00:52:44.211] base::sink(...future.stdout, type = "output", split = FALSE) 1564s [00:52:44.211] base::on.exit(if (!base::is.null(...future.stdout)) { 1564s [00:52:44.211] base::sink(type = "output", split = FALSE) 1564s [00:52:44.211] base::close(...future.stdout) 1564s [00:52:44.211] }, add = TRUE) 1564s [00:52:44.211] } 1564s [00:52:44.211] ...future.frame <- base::sys.nframe() 1564s [00:52:44.211] ...future.conditions <- base::list() 1564s [00:52:44.211] ...future.rng <- base::globalenv()$.Random.seed 1564s [00:52:44.211] if (FALSE) { 1564s [00:52:44.211] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1564s [00:52:44.211] "...future.value", "...future.globalenv.names", ".Random.seed") 1564s [00:52:44.211] } 1564s [00:52:44.211] ...future.result <- base::tryCatch({ 1564s [00:52:44.211] base::withCallingHandlers({ 1564s [00:52:44.211] ...future.value <- base::withVisible(base::local({ 1564s [00:52:44.211] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1564s [00:52:44.211] if (!identical(...future.globals.maxSize.org, 1564s [00:52:44.211] ...future.globals.maxSize)) { 1564s [00:52:44.211] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1564s [00:52:44.211] on.exit(options(oopts), add = TRUE) 1564s [00:52:44.211] } 1564s [00:52:44.211] { 1564s [00:52:44.211] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1564s [00:52:44.211] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1564s [00:52:44.211] USE.NAMES = FALSE) 1564s [00:52:44.211] do.call(mapply, args = args) 1564s [00:52:44.211] } 1564s [00:52:44.211] })) 1564s [00:52:44.211] future::FutureResult(value = ...future.value$value, 1564s [00:52:44.211] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1564s [00:52:44.211] ...future.rng), globalenv = if (FALSE) 1564s [00:52:44.211] list(added = base::setdiff(base::names(base::.GlobalEnv), 1564s [00:52:44.211] ...future.globalenv.names)) 1564s [00:52:44.211] else NULL, started = ...future.startTime, version = "1.8") 1564s [00:52:44.211] }, condition = base::local({ 1564s [00:52:44.211] c <- base::c 1564s [00:52:44.211] inherits <- base::inherits 1564s [00:52:44.211] invokeRestart <- base::invokeRestart 1564s [00:52:44.211] length <- base::length 1564s [00:52:44.211] list <- base::list 1564s [00:52:44.211] seq.int <- base::seq.int 1564s [00:52:44.211] signalCondition <- base::signalCondition 1564s [00:52:44.211] sys.calls <- base::sys.calls 1564s [00:52:44.211] `[[` <- base::`[[` 1564s [00:52:44.211] `+` <- base::`+` 1564s [00:52:44.211] `<<-` <- base::`<<-` 1564s [00:52:44.211] sysCalls <- function(calls = sys.calls(), from = 1L) { 1564s [00:52:44.211] calls[seq.int(from = from + 12L, to = length(calls) - 1564s [00:52:44.211] 3L)] 1564s [00:52:44.211] } 1564s [00:52:44.211] function(cond) { 1564s [00:52:44.211] is_error <- inherits(cond, "error") 1564s [00:52:44.211] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1564s [00:52:44.211] NULL) 1564s [00:52:44.211] if (is_error) { 1564s [00:52:44.211] sessionInformation <- function() { 1564s [00:52:44.211] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1564s [00:52:44.211] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1564s [00:52:44.211] search = base::search(), system = base::Sys.info()) 1564s [00:52:44.211] } 1564s [00:52:44.211] ...future.conditions[[length(...future.conditions) + 1564s [00:52:44.211] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1564s [00:52:44.211] cond$call), session = sessionInformation(), 1564s [00:52:44.211] timestamp = base::Sys.time(), signaled = 0L) 1564s [00:52:44.211] signalCondition(cond) 1564s [00:52:44.211] } 1564s [00:52:44.211] else if (!ignore && TRUE && inherits(cond, c("condition", 1564s [00:52:44.211] "immediateCondition"))) { 1564s [00:52:44.211] signal <- TRUE && inherits(cond, "immediateCondition") 1564s [00:52:44.211] ...future.conditions[[length(...future.conditions) + 1564s [00:52:44.211] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1564s [00:52:44.211] if (TRUE && !signal) { 1564s [00:52:44.211] muffleCondition <- function (cond, pattern = "^muffle") 1564s [00:52:44.211] { 1564s [00:52:44.211] inherits <- base::inherits 1564s [00:52:44.211] invokeRestart <- base::invokeRestart 1564s [00:52:44.211] is.null <- base::is.null 1564s [00:52:44.211] muffled <- FALSE 1564s [00:52:44.211] if (inherits(cond, "message")) { 1564s [00:52:44.211] muffled <- grepl(pattern, "muffleMessage") 1564s [00:52:44.211] if (muffled) 1564s [00:52:44.211] invokeRestart("muffleMessage") 1564s [00:52:44.211] } 1564s [00:52:44.211] else if (inherits(cond, "warning")) { 1564s [00:52:44.211] muffled <- grepl(pattern, "muffleWarning") 1564s [00:52:44.211] if (muffled) 1564s [00:52:44.211] invokeRestart("muffleWarning") 1564s [00:52:44.211] } 1564s [00:52:44.211] else if (inherits(cond, "condition")) { 1564s [00:52:44.211] if (!is.null(pattern)) { 1564s [00:52:44.211] computeRestarts <- base::computeRestarts 1564s [00:52:44.211] grepl <- base::grepl 1564s [00:52:44.211] restarts <- computeRestarts(cond) 1564s [00:52:44.211] for (restart in restarts) { 1564s [00:52:44.211] name <- restart$name 1564s [00:52:44.211] if (is.null(name)) 1564s [00:52:44.211] next 1564s [00:52:44.211] if (!grepl(pattern, name)) 1564s [00:52:44.211] next 1564s [00:52:44.211] invokeRestart(restart) 1564s [00:52:44.211] muffled <- TRUE 1564s [00:52:44.211] break 1564s [00:52:44.211] } 1564s [00:52:44.211] } 1564s [00:52:44.211] } 1564s [00:52:44.211] invisible(muffled) 1564s [00:52:44.211] } 1564s [00:52:44.211] muffleCondition(cond, pattern = "^muffle") 1564s [00:52:44.211] } 1564s [00:52:44.211] } 1564s [00:52:44.211] else { 1564s [00:52:44.211] if (TRUE) { 1564s [00:52:44.211] muffleCondition <- function (cond, pattern = "^muffle") 1564s [00:52:44.211] { 1564s [00:52:44.211] inherits <- base::inherits 1564s [00:52:44.211] invokeRestart <- base::invokeRestart 1564s [00:52:44.211] is.null <- base::is.null 1564s [00:52:44.211] muffled <- FALSE 1564s [00:52:44.211] if (inherits(cond, "message")) { 1564s [00:52:44.211] muffled <- grepl(pattern, "muffleMessage") 1564s [00:52:44.211] if (muffled) 1564s [00:52:44.211] invokeRestart("muffleMessage") 1564s [00:52:44.211] } 1564s [00:52:44.211] else if (inherits(cond, "warning")) { 1564s [00:52:44.211] muffled <- grepl(pattern, "muffleWarning") 1564s [00:52:44.211] if (muffled) 1564s [00:52:44.211] invokeRestart("muffleWarning") 1564s [00:52:44.211] } 1564s [00:52:44.211] else if (inherits(cond, "condition")) { 1564s [00:52:44.211] if (!is.null(pattern)) { 1564s [00:52:44.211] computeRestarts <- base::computeRestarts 1564s [00:52:44.211] grepl <- base::grepl 1564s [00:52:44.211] restarts <- computeRestarts(cond) 1564s [00:52:44.211] for (restart in restarts) { 1564s [00:52:44.211] name <- restart$name 1564s [00:52:44.211] if (is.null(name)) 1564s [00:52:44.211] next 1564s [00:52:44.211] if (!grepl(pattern, name)) 1564s [00:52:44.211] next 1564s [00:52:44.211] invokeRestart(restart) 1564s [00:52:44.211] muffled <- TRUE 1564s [00:52:44.211] break 1564s [00:52:44.211] } 1564s [00:52:44.211] } 1564s [00:52:44.211] } 1564s [00:52:44.211] invisible(muffled) 1564s [00:52:44.211] } 1564s [00:52:44.211] muffleCondition(cond, pattern = "^muffle") 1564s [00:52:44.211] } 1564s [00:52:44.211] } 1564s [00:52:44.211] } 1564s [00:52:44.211] })) 1564s [00:52:44.211] }, error = function(ex) { 1564s [00:52:44.211] base::structure(base::list(value = NULL, visible = NULL, 1564s [00:52:44.211] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1564s [00:52:44.211] ...future.rng), started = ...future.startTime, 1564s [00:52:44.211] finished = Sys.time(), session_uuid = NA_character_, 1564s [00:52:44.211] version = "1.8"), class = "FutureResult") 1564s [00:52:44.211] }, finally = { 1564s [00:52:44.211] if (!identical(...future.workdir, getwd())) 1564s [00:52:44.211] setwd(...future.workdir) 1564s [00:52:44.211] { 1564s [00:52:44.211] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1564s [00:52:44.211] ...future.oldOptions$nwarnings <- NULL 1564s [00:52:44.211] } 1564s [00:52:44.211] base::options(...future.oldOptions) 1564s [00:52:44.211] if (.Platform$OS.type == "windows") { 1564s [00:52:44.211] old_names <- names(...future.oldEnvVars) 1564s [00:52:44.211] envs <- base::Sys.getenv() 1564s [00:52:44.211] names <- names(envs) 1564s [00:52:44.211] common <- intersect(names, old_names) 1564s [00:52:44.211] added <- setdiff(names, old_names) 1564s [00:52:44.211] removed <- setdiff(old_names, names) 1564s [00:52:44.211] changed <- common[...future.oldEnvVars[common] != 1564s [00:52:44.211] envs[common]] 1564s [00:52:44.211] NAMES <- toupper(changed) 1564s [00:52:44.211] args <- list() 1564s [00:52:44.211] for (kk in seq_along(NAMES)) { 1564s [00:52:44.211] name <- changed[[kk]] 1564s [00:52:44.211] NAME <- NAMES[[kk]] 1564s [00:52:44.211] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:44.211] next 1564s [00:52:44.211] args[[name]] <- ...future.oldEnvVars[[name]] 1564s [00:52:44.211] } 1564s [00:52:44.211] NAMES <- toupper(added) 1564s [00:52:44.211] for (kk in seq_along(NAMES)) { 1564s [00:52:44.211] name <- added[[kk]] 1564s [00:52:44.211] NAME <- NAMES[[kk]] 1564s [00:52:44.211] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:44.211] next 1564s [00:52:44.211] args[[name]] <- "" 1564s [00:52:44.211] } 1564s [00:52:44.211] NAMES <- toupper(removed) 1564s [00:52:44.211] for (kk in seq_along(NAMES)) { 1564s [00:52:44.211] name <- removed[[kk]] 1564s [00:52:44.211] NAME <- NAMES[[kk]] 1564s [00:52:44.211] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:44.211] next 1564s [00:52:44.211] args[[name]] <- ...future.oldEnvVars[[name]] 1564s [00:52:44.211] } 1564s [00:52:44.211] if (length(args) > 0) 1564s [00:52:44.211] base::do.call(base::Sys.setenv, args = args) 1564s [00:52:44.211] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1564s [00:52:44.211] } 1564s [00:52:44.211] else { 1564s [00:52:44.211] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1564s [00:52:44.211] } 1564s [00:52:44.211] { 1564s [00:52:44.211] if (base::length(...future.futureOptionsAdded) > 1564s [00:52:44.211] 0L) { 1564s [00:52:44.211] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1564s [00:52:44.211] base::names(opts) <- ...future.futureOptionsAdded 1564s [00:52:44.211] base::options(opts) 1564s [00:52:44.211] } 1564s [00:52:44.211] { 1564s [00:52:44.211] { 1564s [00:52:44.211] base::assign(".Random.seed", c(10407L, -193111136L, 1564s [00:52:44.211] 1998638665L, 1795077819L, 549408344L, 564105141L, 1564s [00:52:44.211] -308065669L), envir = base::globalenv(), 1564s [00:52:44.211] inherits = FALSE) 1564s [00:52:44.211] NULL 1564s [00:52:44.211] } 1564s [00:52:44.211] options(future.plan = NULL) 1564s [00:52:44.211] if (is.na(NA_character_)) 1564s [00:52:44.211] Sys.unsetenv("R_FUTURE_PLAN") 1564s [00:52:44.211] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1564s [00:52:44.211] future::plan(list(function (..., workers = availableCores(), 1564s [00:52:44.211] lazy = FALSE, rscript_libs = .libPaths(), 1564s [00:52:44.211] envir = parent.frame()) 1564s [00:52:44.211] { 1564s [00:52:44.211] if (is.function(workers)) 1564s [00:52:44.211] workers <- workers() 1564s [00:52:44.211] workers <- structure(as.integer(workers), 1564s [00:52:44.211] class = class(workers)) 1564s [00:52:44.211] stop_if_not(length(workers) == 1, is.finite(workers), 1564s [00:52:44.211] workers >= 1) 1564s [00:52:44.211] if (workers == 1L && !inherits(workers, "AsIs")) { 1564s [00:52:44.211] return(sequential(..., lazy = TRUE, envir = envir)) 1564s [00:52:44.211] } 1564s [00:52:44.211] future <- MultisessionFuture(..., workers = workers, 1564s [00:52:44.211] lazy = lazy, rscript_libs = rscript_libs, 1564s [00:52:44.211] envir = envir) 1564s [00:52:44.211] if (!future$lazy) 1564s [00:52:44.211] future <- run(future) 1564s [00:52:44.211] invisible(future) 1564s [00:52:44.211] }), .cleanup = FALSE, .init = FALSE) 1564s [00:52:44.211] } 1564s [00:52:44.211] } 1564s [00:52:44.211] } 1564s [00:52:44.211] }) 1564s [00:52:44.211] if (TRUE) { 1564s [00:52:44.211] base::sink(type = "output", split = FALSE) 1564s [00:52:44.211] if (TRUE) { 1564s [00:52:44.211] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1564s [00:52:44.211] } 1564s [00:52:44.211] else { 1564s [00:52:44.211] ...future.result["stdout"] <- base::list(NULL) 1564s [00:52:44.211] } 1564s [00:52:44.211] base::close(...future.stdout) 1564s [00:52:44.211] ...future.stdout <- NULL 1564s [00:52:44.211] } 1564s [00:52:44.211] ...future.result$conditions <- ...future.conditions 1564s [00:52:44.211] ...future.result$finished <- base::Sys.time() 1564s [00:52:44.211] ...future.result 1564s [00:52:44.211] } 1564s [00:52:44.216] assign_globals() ... 1564s [00:52:44.217] List of 5 1564s [00:52:44.217] $ ...future.FUN :function (C, k) 1564s [00:52:44.217] $ MoreArgs : NULL 1564s [00:52:44.217] $ ...future.elements_ii :List of 2 1564s [00:52:44.217] ..$ :List of 1 1564s [00:52:44.217] .. ..$ : chr "E" 1564s [00:52:44.217] ..$ :List of 1 1564s [00:52:44.217] .. ..$ : int 1 1564s [00:52:44.217] $ ...future.seeds_ii : NULL 1564s [00:52:44.217] $ ...future.globals.maxSize: NULL 1564s [00:52:44.217] - attr(*, "where")=List of 5 1564s [00:52:44.217] ..$ ...future.FUN : 1564s [00:52:44.217] ..$ MoreArgs : 1564s [00:52:44.217] ..$ ...future.elements_ii : 1564s [00:52:44.217] ..$ ...future.seeds_ii : 1564s [00:52:44.217] ..$ ...future.globals.maxSize: 1564s [00:52:44.217] - attr(*, "resolved")= logi FALSE 1564s [00:52:44.217] - attr(*, "total_size")= num 3488 1564s [00:52:44.217] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1564s [00:52:44.217] - attr(*, "already-done")= logi TRUE 1564s [00:52:44.225] - reassign environment for ‘...future.FUN’ 1564s [00:52:44.225] - copied ‘...future.FUN’ to environment 1564s [00:52:44.225] - copied ‘MoreArgs’ to environment 1564s [00:52:44.225] - copied ‘...future.elements_ii’ to environment 1564s [00:52:44.225] - copied ‘...future.seeds_ii’ to environment 1564s [00:52:44.226] - copied ‘...future.globals.maxSize’ to environment 1564s [00:52:44.226] assign_globals() ... done 1564s [00:52:44.226] plan(): Setting new future strategy stack: 1564s [00:52:44.226] List of future strategies: 1564s [00:52:44.226] 1. sequential: 1564s [00:52:44.226] - args: function (..., envir = parent.frame()) 1564s [00:52:44.226] - tweaked: FALSE 1564s [00:52:44.226] - call: NULL 1564s [00:52:44.278] plan(): nbrOfWorkers() = 1 1564s [00:52:44.280] plan(): Setting new future strategy stack: 1564s [00:52:44.281] List of future strategies: 1564s [00:52:44.281] 1. multisession: 1564s [00:52:44.281] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1564s [00:52:44.281] - tweaked: FALSE 1564s [00:52:44.281] - call: plan(strategy) 1564s [00:52:44.285] plan(): nbrOfWorkers() = 1 1564s [00:52:44.286] SequentialFuture started (and completed) 1564s [00:52:44.286] - Launch lazy future ... done 1564s [00:52:44.286] run() for ‘SequentialFuture’ ... done 1564s [00:52:44.286] Created future: 1564s [00:52:44.286] SequentialFuture: 1564s [00:52:44.286] Label: ‘future_mapply-5’ 1564s [00:52:44.286] Expression: 1564s [00:52:44.286] { 1564s [00:52:44.286] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1564s [00:52:44.286] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1564s [00:52:44.286] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1564s [00:52:44.286] on.exit(options(oopts), add = TRUE) 1564s [00:52:44.286] } 1564s [00:52:44.286] { 1564s [00:52:44.286] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1564s [00:52:44.286] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1564s [00:52:44.286] do.call(mapply, args = args) 1564s [00:52:44.286] } 1564s [00:52:44.286] } 1564s [00:52:44.286] Lazy evaluation: FALSE 1564s [00:52:44.286] Asynchronous evaluation: FALSE 1564s [00:52:44.286] Local evaluation: TRUE 1564s [00:52:44.286] Environment: R_GlobalEnv 1564s [00:52:44.286] Capture standard output: TRUE 1564s [00:52:44.286] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1564s [00:52:44.286] Globals: 5 objects totaling 3.41 KiB (function ‘...future.FUN’ of 3.24 KiB, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1564s [00:52:44.286] Packages: 1564s [00:52:44.286] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1564s [00:52:44.286] Resolved: TRUE 1564s [00:52:44.286] Value: 112 bytes of class ‘list’ 1564s [00:52:44.286] Early signaling: FALSE 1564s [00:52:44.286] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1564s [00:52:44.286] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1564s [00:52:44.288] Chunk #5 of 5 ... DONE 1564s [00:52:44.288] Launching 5 futures (chunks) ... DONE 1564s [00:52:44.288] Resolving 5 futures (chunks) ... 1564s [00:52:44.288] resolve() on list ... 1564s [00:52:44.288] recursive: 0 1564s [00:52:44.288] length: 5 1564s [00:52:44.288] 1564s [00:52:44.288] resolved() for ‘SequentialFuture’ ... 1564s [00:52:44.289] - state: ‘finished’ 1564s [00:52:44.289] - run: TRUE 1564s [00:52:44.289] - result: ‘FutureResult’ 1564s [00:52:44.289] resolved() for ‘SequentialFuture’ ... done 1564s [00:52:44.289] Future #1 1564s [00:52:44.289] signalConditionsASAP(SequentialFuture, pos=1) ... 1564s [00:52:44.289] - nx: 5 1564s [00:52:44.290] - relay: TRUE 1564s [00:52:44.290] - stdout: TRUE 1564s [00:52:44.290] - signal: TRUE 1564s [00:52:44.290] - resignal: FALSE 1564s [00:52:44.290] - force: TRUE 1564s [00:52:44.291] - relayed: [n=5] FALSE, FALSE, FALSE, FALSE, FALSE 1564s [00:52:44.291] - queued futures: [n=5] FALSE, FALSE, FALSE, FALSE, FALSE 1564s [00:52:44.291] - until=1 1564s [00:52:44.291] - relaying element #1 1564s [00:52:44.292] - relayed: [n=5] TRUE, FALSE, FALSE, FALSE, FALSE 1564s [00:52:44.292] - queued futures: [n=5] TRUE, FALSE, FALSE, FALSE, FALSE 1564s [00:52:44.292] signalConditionsASAP(SequentialFuture, pos=1) ... done 1564s [00:52:44.292] length: 4 (resolved future 1) 1564s [00:52:44.293] resolved() for ‘SequentialFuture’ ... 1564s [00:52:44.293] - state: ‘finished’ 1564s [00:52:44.293] - run: TRUE 1564s [00:52:44.293] - result: ‘FutureResult’ 1564s [00:52:44.294] resolved() for ‘SequentialFuture’ ... done 1564s [00:52:44.294] Future #2 1564s [00:52:44.294] signalConditionsASAP(SequentialFuture, pos=2) ... 1564s [00:52:44.294] - nx: 5 1564s [00:52:44.295] - relay: TRUE 1564s [00:52:44.295] - stdout: TRUE 1564s [00:52:44.295] - signal: TRUE 1564s [00:52:44.295] - resignal: FALSE 1564s [00:52:44.295] - force: TRUE 1564s [00:52:44.296] - relayed: [n=5] TRUE, FALSE, FALSE, FALSE, FALSE 1564s [00:52:44.296] - queued futures: [n=5] TRUE, FALSE, FALSE, FALSE, FALSE 1564s [00:52:44.296] - until=2 1564s [00:52:44.296] - relaying element #2 1564s [00:52:44.297] - relayed: [n=5] TRUE, TRUE, FALSE, FALSE, FALSE 1564s [00:52:44.297] - queued futures: [n=5] TRUE, TRUE, FALSE, FALSE, FALSE 1564s [00:52:44.297] signalConditionsASAP(SequentialFuture, pos=2) ... done 1564s [00:52:44.297] length: 3 (resolved future 2) 1564s [00:52:44.297] resolved() for ‘SequentialFuture’ ... 1564s [00:52:44.297] - state: ‘finished’ 1564s [00:52:44.298] - run: TRUE 1564s [00:52:44.298] - result: ‘FutureResult’ 1564s [00:52:44.298] resolved() for ‘SequentialFuture’ ... done 1564s [00:52:44.298] Future #3 1564s [00:52:44.298] signalConditionsASAP(SequentialFuture, pos=3) ... 1564s [00:52:44.299] - nx: 5 1564s [00:52:44.299] - relay: TRUE 1564s [00:52:44.299] - stdout: TRUE 1564s [00:52:44.299] - signal: TRUE 1564s [00:52:44.299] - resignal: FALSE 1564s [00:52:44.300] - force: TRUE 1564s [00:52:44.300] - relayed: [n=5] TRUE, TRUE, FALSE, FALSE, FALSE 1564s [00:52:44.300] - queued futures: [n=5] TRUE, TRUE, FALSE, FALSE, FALSE 1564s [00:52:44.300] - until=3 1564s [00:52:44.300] - relaying element #3 1564s [00:52:44.301] - relayed: [n=5] TRUE, TRUE, TRUE, FALSE, FALSE 1564s [00:52:44.301] - queued futures: [n=5] TRUE, TRUE, TRUE, FALSE, FALSE 1564s [00:52:44.301] signalConditionsASAP(SequentialFuture, pos=3) ... done 1564s [00:52:44.301] length: 2 (resolved future 3) 1564s [00:52:44.301] resolved() for ‘SequentialFuture’ ... 1564s [00:52:44.302] - state: ‘finished’ 1564s [00:52:44.302] - run: TRUE 1564s [00:52:44.302] - result: ‘FutureResult’ 1564s [00:52:44.303] resolved() for ‘SequentialFuture’ ... done 1564s [00:52:44.303] Future #4 1564s [00:52:44.303] signalConditionsASAP(SequentialFuture, pos=4) ... 1564s [00:52:44.303] - nx: 5 1564s [00:52:44.303] - relay: TRUE 1564s [00:52:44.303] - stdout: TRUE 1564s [00:52:44.304] - signal: TRUE 1564s [00:52:44.304] - resignal: FALSE 1564s [00:52:44.304] - force: TRUE 1564s [00:52:44.304] - relayed: [n=5] TRUE, TRUE, TRUE, FALSE, FALSE 1564s [00:52:44.304] - queued futures: [n=5] TRUE, TRUE, TRUE, FALSE, FALSE 1564s [00:52:44.304] - until=4 1564s [00:52:44.305] - relaying element #4 1564s [00:52:44.305] - relayed: [n=5] TRUE, TRUE, TRUE, TRUE, FALSE 1564s [00:52:44.305] - queued futures: [n=5] TRUE, TRUE, TRUE, TRUE, FALSE 1564s [00:52:44.305] signalConditionsASAP(SequentialFuture, pos=4) ... done 1564s [00:52:44.305] length: 1 (resolved future 4) 1564s [00:52:44.305] resolved() for ‘SequentialFuture’ ... 1564s [00:52:44.305] - state: ‘finished’ 1564s [00:52:44.305] - run: TRUE 1564s [00:52:44.306] - result: ‘FutureResult’ 1564s [00:52:44.306] resolved() for ‘SequentialFuture’ ... done 1564s [00:52:44.306] Future #5 1564s [00:52:44.306] signalConditionsASAP(SequentialFuture, pos=5) ... 1564s [00:52:44.306] - nx: 5 1564s [00:52:44.306] - relay: TRUE 1564s [00:52:44.306] - stdout: TRUE 1564s [00:52:44.306] - signal: TRUE 1564s [00:52:44.307] - resignal: FALSE 1564s [00:52:44.307] - force: TRUE 1564s [00:52:44.307] - relayed: [n=5] TRUE, TRUE, TRUE, TRUE, FALSE 1564s [00:52:44.307] - queued futures: [n=5] TRUE, TRUE, TRUE, TRUE, FALSE 1564s [00:52:44.307] - until=5 1564s [00:52:44.307] - relaying element #5 1564s [00:52:44.307] - relayed: [n=5] TRUE, TRUE, TRUE, TRUE, TRUE 1564s [00:52:44.307] - queued futures: [n=5] TRUE, TRUE, TRUE, TRUE, TRUE 1564s [00:52:44.308] signalConditionsASAP(SequentialFuture, pos=5) ... done 1564s [00:52:44.308] length: 0 (resolved future 5) 1564s [00:52:44.308] Relaying remaining futures 1564s [00:52:44.308] signalConditionsASAP(NULL, pos=0) ... 1564s [00:52:44.308] - nx: 5 1564s [00:52:44.308] - relay: TRUE 1564s [00:52:44.308] - stdout: TRUE 1564s [00:52:44.308] - signal: TRUE 1564s [00:52:44.308] - resignal: FALSE 1564s [00:52:44.308] - force: TRUE 1564s [00:52:44.309] - relayed: [n=5] TRUE, TRUE, TRUE, TRUE, TRUE 1564s [00:52:44.309] - queued futures: [n=5] TRUE, TRUE, TRUE, TRUE, TRUE 1564s - flush all 1564s [00:52:44.309] - relayed: [n=5] TRUE, TRUE, TRUE, TRUE, TRUE 1564s [00:52:44.309] - queued futures: [n=5] TRUE, TRUE, TRUE, TRUE, TRUE 1564s [00:52:44.309] signalConditionsASAP(NULL, pos=0) ... done 1564s [00:52:44.309] resolve() on list ... DONE 1564s [00:52:44.310] - Number of value chunks collected: 5 1564s [00:52:44.310] Resolving 5 futures (chunks) ... DONE 1564s [00:52:44.310] Reducing values from 5 chunks ... 1564s [00:52:44.310] - Number of values collected after concatenation: 5 1564s [00:52:44.310] - Number of values expected: 5 1564s [00:52:44.310] Reducing values from 5 chunks ... DONE 1564s [00:52:44.311] future_mapply() ... DONE 1564s [00:52:44.311] future_mapply() ... 1564s [00:52:44.314] Number of chunks: 1 1564s [00:52:44.314] getGlobalsAndPackagesXApply() ... 1564s [00:52:44.314] - future.globals: TRUE 1564s [00:52:44.314] getGlobalsAndPackages() ... 1564s [00:52:44.315] Searching for globals... 1564s [00:52:44.316] - globals found: [3] ‘FUN’, ‘paste’, ‘rep.int’ 1564s [00:52:44.317] Searching for globals ... DONE 1564s [00:52:44.317] Resolving globals: FALSE 1564s [00:52:44.318] The total size of the 1 globals is 3.24 KiB (3320 bytes) 1564s [00:52:44.319] The total size of the 1 globals exported for future expression (‘FUN()’) is 3.24 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (3.24 KiB of class ‘function’) 1564s [00:52:44.319] - globals: [1] ‘FUN’ 1564s [00:52:44.319] 1564s [00:52:44.320] getGlobalsAndPackages() ... DONE 1564s [00:52:44.320] - globals found/used: [n=1] ‘FUN’ 1564s [00:52:44.320] - needed namespaces: [n=0] 1564s [00:52:44.320] Finding globals ... DONE 1564s [00:52:44.320] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1564s [00:52:44.321] List of 2 1564s [00:52:44.321] $ ...future.FUN:function (C, k) 1564s [00:52:44.321] $ MoreArgs : list() 1564s [00:52:44.321] - attr(*, "where")=List of 2 1564s [00:52:44.321] ..$ ...future.FUN: 1564s [00:52:44.321] ..$ MoreArgs : 1564s [00:52:44.321] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1564s [00:52:44.321] - attr(*, "resolved")= logi FALSE 1564s [00:52:44.321] - attr(*, "total_size")= num NA 1564s [00:52:44.325] Packages to be attached in all futures: [n=0] 1564s [00:52:44.325] getGlobalsAndPackagesXApply() ... DONE 1564s [00:52:44.325] Number of futures (= number of chunks): 1 1564s [00:52:44.325] Launching 1 futures (chunks) ... 1564s [00:52:44.326] Chunk #1 of 1 ... 1564s [00:52:44.326] - Finding globals in '...' for chunk #1 ... 1564s [00:52:44.326] getGlobalsAndPackages() ... 1564s [00:52:44.326] Searching for globals... 1564s [00:52:44.327] 1564s [00:52:44.327] Searching for globals ... DONE 1564s [00:52:44.327] - globals: [0] 1564s [00:52:44.328] getGlobalsAndPackages() ... DONE 1564s [00:52:44.328] + additional globals found: [n=0] 1564s [00:52:44.328] + additional namespaces needed: [n=0] 1564s [00:52:44.328] - Finding globals in '...' for chunk #1 ... DONE 1564s [00:52:44.328] - seeds: 1564s [00:52:44.329] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:44.329] getGlobalsAndPackages() ... 1564s [00:52:44.329] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:44.329] Resolving globals: FALSE 1564s [00:52:44.330] The total size of the 5 globals is 4.06 KiB (4160 bytes) 1564s [00:52:44.331] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 4.06 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (3.24 KiB of class ‘function’), ‘...future.elements_ii’ (840 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘list’) 1564s [00:52:44.331] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:44.331] 1564s [00:52:44.332] getGlobalsAndPackages() ... DONE 1564s [00:52:44.332] run() for ‘Future’ ... 1564s [00:52:44.332] - state: ‘created’ 1564s [00:52:44.332] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1564s [00:52:44.338] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1564s [00:52:44.338] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1564s [00:52:44.338] - Field: ‘label’ 1564s [00:52:44.338] - Field: ‘local’ 1564s [00:52:44.338] - Field: ‘owner’ 1564s [00:52:44.339] - Field: ‘envir’ 1564s [00:52:44.339] - Field: ‘packages’ 1564s [00:52:44.339] - Field: ‘gc’ 1564s [00:52:44.339] - Field: ‘conditions’ 1564s [00:52:44.339] - Field: ‘expr’ 1564s [00:52:44.340] - Field: ‘uuid’ 1564s [00:52:44.340] - Field: ‘seed’ 1564s [00:52:44.340] - Field: ‘version’ 1564s [00:52:44.340] - Field: ‘result’ 1564s [00:52:44.340] - Field: ‘asynchronous’ 1564s [00:52:44.341] - Field: ‘calls’ 1564s [00:52:44.341] - Field: ‘globals’ 1564s [00:52:44.341] - Field: ‘stdout’ 1564s [00:52:44.341] - Field: ‘earlySignal’ 1564s [00:52:44.341] - Field: ‘lazy’ 1564s [00:52:44.341] - Field: ‘state’ 1564s [00:52:44.341] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1564s [00:52:44.341] - Launch lazy future ... 1564s [00:52:44.342] Packages needed by the future expression (n = 0): 1564s [00:52:44.342] Packages needed by future strategies (n = 0): 1564s [00:52:44.342] { 1564s [00:52:44.342] { 1564s [00:52:44.342] { 1564s [00:52:44.342] ...future.startTime <- base::Sys.time() 1564s [00:52:44.342] { 1564s [00:52:44.342] { 1564s [00:52:44.342] { 1564s [00:52:44.342] base::local({ 1564s [00:52:44.342] has_future <- base::requireNamespace("future", 1564s [00:52:44.342] quietly = TRUE) 1564s [00:52:44.342] if (has_future) { 1564s [00:52:44.342] ns <- base::getNamespace("future") 1564s [00:52:44.342] version <- ns[[".package"]][["version"]] 1564s [00:52:44.342] if (is.null(version)) 1564s [00:52:44.342] version <- utils::packageVersion("future") 1564s [00:52:44.342] } 1564s [00:52:44.342] else { 1564s [00:52:44.342] version <- NULL 1564s [00:52:44.342] } 1564s [00:52:44.342] if (!has_future || version < "1.8.0") { 1564s [00:52:44.342] info <- base::c(r_version = base::gsub("R version ", 1564s [00:52:44.342] "", base::R.version$version.string), 1564s [00:52:44.342] platform = base::sprintf("%s (%s-bit)", 1564s [00:52:44.342] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1564s [00:52:44.342] os = base::paste(base::Sys.info()[base::c("sysname", 1564s [00:52:44.342] "release", "version")], collapse = " "), 1564s [00:52:44.342] hostname = base::Sys.info()[["nodename"]]) 1564s [00:52:44.342] info <- base::sprintf("%s: %s", base::names(info), 1564s [00:52:44.342] info) 1564s [00:52:44.342] info <- base::paste(info, collapse = "; ") 1564s [00:52:44.342] if (!has_future) { 1564s [00:52:44.342] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1564s [00:52:44.342] info) 1564s [00:52:44.342] } 1564s [00:52:44.342] else { 1564s [00:52:44.342] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1564s [00:52:44.342] info, version) 1564s [00:52:44.342] } 1564s [00:52:44.342] base::stop(msg) 1564s [00:52:44.342] } 1564s [00:52:44.342] }) 1564s [00:52:44.342] } 1564s [00:52:44.342] options(future.plan = NULL) 1564s [00:52:44.342] Sys.unsetenv("R_FUTURE_PLAN") 1564s [00:52:44.342] future::plan("default", .cleanup = FALSE, .init = FALSE) 1564s [00:52:44.342] } 1564s [00:52:44.342] ...future.workdir <- getwd() 1564s [00:52:44.342] } 1564s [00:52:44.342] ...future.oldOptions <- base::as.list(base::.Options) 1564s [00:52:44.342] ...future.oldEnvVars <- base::Sys.getenv() 1564s [00:52:44.342] } 1564s [00:52:44.342] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1564s [00:52:44.342] future.globals.maxSize = NULL, future.globals.method = NULL, 1564s [00:52:44.342] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1564s [00:52:44.342] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1564s [00:52:44.342] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1564s [00:52:44.342] future.stdout.windows.reencode = NULL, width = 80L) 1564s [00:52:44.342] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1564s [00:52:44.342] base::names(...future.oldOptions)) 1564s [00:52:44.342] } 1564s [00:52:44.342] if (FALSE) { 1564s [00:52:44.342] } 1564s [00:52:44.342] else { 1564s [00:52:44.342] if (TRUE) { 1564s [00:52:44.342] ...future.stdout <- base::rawConnection(base::raw(0L), 1564s [00:52:44.342] open = "w") 1564s [00:52:44.342] } 1564s [00:52:44.342] else { 1564s [00:52:44.342] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1564s [00:52:44.342] windows = "NUL", "/dev/null"), open = "w") 1564s [00:52:44.342] } 1564s [00:52:44.342] base::sink(...future.stdout, type = "output", split = FALSE) 1564s [00:52:44.342] base::on.exit(if (!base::is.null(...future.stdout)) { 1564s [00:52:44.342] base::sink(type = "output", split = FALSE) 1564s [00:52:44.342] base::close(...future.stdout) 1564s [00:52:44.342] }, add = TRUE) 1564s [00:52:44.342] } 1564s [00:52:44.342] ...future.frame <- base::sys.nframe() 1564s [00:52:44.342] ...future.conditions <- base::list() 1564s [00:52:44.342] ...future.rng <- base::globalenv()$.Random.seed 1564s [00:52:44.342] if (FALSE) { 1564s [00:52:44.342] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1564s [00:52:44.342] "...future.value", "...future.globalenv.names", ".Random.seed") 1564s [00:52:44.342] } 1564s [00:52:44.342] ...future.result <- base::tryCatch({ 1564s [00:52:44.342] base::withCallingHandlers({ 1564s [00:52:44.342] ...future.value <- base::withVisible(base::local({ 1564s [00:52:44.342] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1564s [00:52:44.342] if (!identical(...future.globals.maxSize.org, 1564s [00:52:44.342] ...future.globals.maxSize)) { 1564s [00:52:44.342] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1564s [00:52:44.342] on.exit(options(oopts), add = TRUE) 1564s [00:52:44.342] } 1564s [00:52:44.342] { 1564s [00:52:44.342] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1564s [00:52:44.342] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1564s [00:52:44.342] USE.NAMES = FALSE) 1564s [00:52:44.342] do.call(mapply, args = args) 1564s [00:52:44.342] } 1564s [00:52:44.342] })) 1564s [00:52:44.342] future::FutureResult(value = ...future.value$value, 1564s [00:52:44.342] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1564s [00:52:44.342] ...future.rng), globalenv = if (FALSE) 1564s [00:52:44.342] list(added = base::setdiff(base::names(base::.GlobalEnv), 1564s [00:52:44.342] ...future.globalenv.names)) 1564s [00:52:44.342] else NULL, started = ...future.startTime, version = "1.8") 1564s [00:52:44.342] }, condition = base::local({ 1564s [00:52:44.342] c <- base::c 1564s [00:52:44.342] inherits <- base::inherits 1564s [00:52:44.342] invokeRestart <- base::invokeRestart 1564s [00:52:44.342] length <- base::length 1564s [00:52:44.342] list <- base::list 1564s [00:52:44.342] seq.int <- base::seq.int 1564s [00:52:44.342] signalCondition <- base::signalCondition 1564s [00:52:44.342] sys.calls <- base::sys.calls 1564s [00:52:44.342] `[[` <- base::`[[` 1564s [00:52:44.342] `+` <- base::`+` 1564s [00:52:44.342] `<<-` <- base::`<<-` 1564s [00:52:44.342] sysCalls <- function(calls = sys.calls(), from = 1L) { 1564s [00:52:44.342] calls[seq.int(from = from + 12L, to = length(calls) - 1564s [00:52:44.342] 3L)] 1564s [00:52:44.342] } 1564s [00:52:44.342] function(cond) { 1564s [00:52:44.342] is_error <- inherits(cond, "error") 1564s [00:52:44.342] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1564s [00:52:44.342] NULL) 1564s [00:52:44.342] if (is_error) { 1564s [00:52:44.342] sessionInformation <- function() { 1564s [00:52:44.342] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1564s [00:52:44.342] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1564s [00:52:44.342] search = base::search(), system = base::Sys.info()) 1564s [00:52:44.342] } 1564s [00:52:44.342] ...future.conditions[[length(...future.conditions) + 1564s [00:52:44.342] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1564s [00:52:44.342] cond$call), session = sessionInformation(), 1564s [00:52:44.342] timestamp = base::Sys.time(), signaled = 0L) 1564s [00:52:44.342] signalCondition(cond) 1564s [00:52:44.342] } 1564s [00:52:44.342] else if (!ignore && TRUE && inherits(cond, c("condition", 1564s [00:52:44.342] "immediateCondition"))) { 1564s [00:52:44.342] signal <- TRUE && inherits(cond, "immediateCondition") 1564s [00:52:44.342] ...future.conditions[[length(...future.conditions) + 1564s [00:52:44.342] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1564s [00:52:44.342] if (TRUE && !signal) { 1564s [00:52:44.342] muffleCondition <- function (cond, pattern = "^muffle") 1564s [00:52:44.342] { 1564s [00:52:44.342] inherits <- base::inherits 1564s [00:52:44.342] invokeRestart <- base::invokeRestart 1564s [00:52:44.342] is.null <- base::is.null 1564s [00:52:44.342] muffled <- FALSE 1564s [00:52:44.342] if (inherits(cond, "message")) { 1564s [00:52:44.342] muffled <- grepl(pattern, "muffleMessage") 1564s [00:52:44.342] if (muffled) 1564s [00:52:44.342] invokeRestart("muffleMessage") 1564s [00:52:44.342] } 1564s [00:52:44.342] else if (inherits(cond, "warning")) { 1564s [00:52:44.342] muffled <- grepl(pattern, "muffleWarning") 1564s [00:52:44.342] if (muffled) 1564s [00:52:44.342] invokeRestart("muffleWarning") 1564s [00:52:44.342] } 1564s [00:52:44.342] else if (inherits(cond, "condition")) { 1564s [00:52:44.342] if (!is.null(pattern)) { 1564s [00:52:44.342] computeRestarts <- base::computeRestarts 1564s [00:52:44.342] grepl <- base::grepl 1564s [00:52:44.342] restarts <- computeRestarts(cond) 1564s [00:52:44.342] for (restart in restarts) { 1564s [00:52:44.342] name <- restart$name 1564s [00:52:44.342] if (is.null(name)) 1564s [00:52:44.342] next 1564s [00:52:44.342] if (!grepl(pattern, name)) 1564s [00:52:44.342] next 1564s [00:52:44.342] invokeRestart(restart) 1564s [00:52:44.342] muffled <- TRUE 1564s [00:52:44.342] break 1564s [00:52:44.342] } 1564s [00:52:44.342] } 1564s [00:52:44.342] } 1564s [00:52:44.342] invisible(muffled) 1564s [00:52:44.342] } 1564s [00:52:44.342] muffleCondition(cond, pattern = "^muffle") 1564s [00:52:44.342] } 1564s [00:52:44.342] } 1564s [00:52:44.342] else { 1564s [00:52:44.342] if (TRUE) { 1564s [00:52:44.342] muffleCondition <- function (cond, pattern = "^muffle") 1564s [00:52:44.342] { 1564s [00:52:44.342] inherits <- base::inherits 1564s [00:52:44.342] invokeRestart <- base::invokeRestart 1564s [00:52:44.342] is.null <- base::is.null 1564s [00:52:44.342] muffled <- FALSE 1564s [00:52:44.342] if (inherits(cond, "message")) { 1564s [00:52:44.342] muffled <- grepl(pattern, "muffleMessage") 1564s [00:52:44.342] if (muffled) 1564s [00:52:44.342] invokeRestart("muffleMessage") 1564s [00:52:44.342] } 1564s [00:52:44.342] else if (inherits(cond, "warning")) { 1564s [00:52:44.342] muffled <- grepl(pattern, "muffleWarning") 1564s [00:52:44.342] if (muffled) 1564s [00:52:44.342] invokeRestart("muffleWarning") 1564s [00:52:44.342] } 1564s [00:52:44.342] else if (inherits(cond, "condition")) { 1564s [00:52:44.342] if (!is.null(pattern)) { 1564s [00:52:44.342] computeRestarts <- base::computeRestarts 1564s [00:52:44.342] grepl <- base::grepl 1564s [00:52:44.342] restarts <- computeRestarts(cond) 1564s [00:52:44.342] for (restart in restarts) { 1564s [00:52:44.342] name <- restart$name 1564s [00:52:44.342] if (is.null(name)) 1564s [00:52:44.342] next 1564s [00:52:44.342] if (!grepl(pattern, name)) 1564s [00:52:44.342] next 1564s [00:52:44.342] invokeRestart(restart) 1564s [00:52:44.342] muffled <- TRUE 1564s [00:52:44.342] break 1564s [00:52:44.342] } 1564s [00:52:44.342] } 1564s [00:52:44.342] } 1564s [00:52:44.342] invisible(muffled) 1564s [00:52:44.342] } 1564s [00:52:44.342] muffleCondition(cond, pattern = "^muffle") 1564s [00:52:44.342] } 1564s [00:52:44.342] } 1564s [00:52:44.342] } 1564s [00:52:44.342] })) 1564s [00:52:44.342] }, error = function(ex) { 1564s [00:52:44.342] base::structure(base::list(value = NULL, visible = NULL, 1564s [00:52:44.342] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1564s [00:52:44.342] ...future.rng), started = ...future.startTime, 1564s [00:52:44.342] finished = Sys.time(), session_uuid = NA_character_, 1564s [00:52:44.342] version = "1.8"), class = "FutureResult") 1564s [00:52:44.342] }, finally = { 1564s [00:52:44.342] if (!identical(...future.workdir, getwd())) 1564s [00:52:44.342] setwd(...future.workdir) 1564s [00:52:44.342] { 1564s [00:52:44.342] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1564s [00:52:44.342] ...future.oldOptions$nwarnings <- NULL 1564s [00:52:44.342] } 1564s [00:52:44.342] base::options(...future.oldOptions) 1564s [00:52:44.342] if (.Platform$OS.type == "windows") { 1564s [00:52:44.342] old_names <- names(...future.oldEnvVars) 1564s [00:52:44.342] envs <- base::Sys.getenv() 1564s [00:52:44.342] names <- names(envs) 1564s [00:52:44.342] common <- intersect(names, old_names) 1564s [00:52:44.342] added <- setdiff(names, old_names) 1564s [00:52:44.342] removed <- setdiff(old_names, names) 1564s [00:52:44.342] changed <- common[...future.oldEnvVars[common] != 1564s [00:52:44.342] envs[common]] 1564s [00:52:44.342] NAMES <- toupper(changed) 1564s [00:52:44.342] args <- list() 1564s [00:52:44.342] for (kk in seq_along(NAMES)) { 1564s [00:52:44.342] name <- changed[[kk]] 1564s [00:52:44.342] NAME <- NAMES[[kk]] 1564s [00:52:44.342] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:44.342] next 1564s [00:52:44.342] args[[name]] <- ...future.oldEnvVars[[name]] 1564s [00:52:44.342] } 1564s [00:52:44.342] NAMES <- toupper(added) 1564s [00:52:44.342] for (kk in seq_along(NAMES)) { 1564s [00:52:44.342] name <- added[[kk]] 1564s [00:52:44.342] NAME <- NAMES[[kk]] 1564s [00:52:44.342] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:44.342] next 1564s [00:52:44.342] args[[name]] <- "" 1564s [00:52:44.342] } 1564s [00:52:44.342] NAMES <- toupper(removed) 1564s [00:52:44.342] for (kk in seq_along(NAMES)) { 1564s [00:52:44.342] name <- removed[[kk]] 1564s [00:52:44.342] NAME <- NAMES[[kk]] 1564s [00:52:44.342] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:44.342] next 1564s [00:52:44.342] args[[name]] <- ...future.oldEnvVars[[name]] 1564s [00:52:44.342] } 1564s [00:52:44.342] if (length(args) > 0) 1564s [00:52:44.342] base::do.call(base::Sys.setenv, args = args) 1564s [00:52:44.342] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1564s [00:52:44.342] } 1564s [00:52:44.342] else { 1564s [00:52:44.342] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1564s [00:52:44.342] } 1564s [00:52:44.342] { 1564s [00:52:44.342] if (base::length(...future.futureOptionsAdded) > 1564s [00:52:44.342] 0L) { 1564s [00:52:44.342] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1564s [00:52:44.342] base::names(opts) <- ...future.futureOptionsAdded 1564s [00:52:44.342] base::options(opts) 1564s [00:52:44.342] } 1564s [00:52:44.342] { 1564s [00:52:44.342] { 1564s [00:52:44.342] base::assign(".Random.seed", c(10407L, -193111136L, 1564s [00:52:44.342] 1998638665L, 1795077819L, 549408344L, 564105141L, 1564s [00:52:44.342] -308065669L), envir = base::globalenv(), 1564s [00:52:44.342] inherits = FALSE) 1564s [00:52:44.342] NULL 1564s [00:52:44.342] } 1564s [00:52:44.342] options(future.plan = NULL) 1564s [00:52:44.342] if (is.na(NA_character_)) 1564s [00:52:44.342] Sys.unsetenv("R_FUTURE_PLAN") 1564s [00:52:44.342] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1564s [00:52:44.342] future::plan(list(function (..., workers = availableCores(), 1564s [00:52:44.342] lazy = FALSE, rscript_libs = .libPaths(), 1564s [00:52:44.342] envir = parent.frame()) 1564s [00:52:44.342] { 1564s [00:52:44.342] if (is.function(workers)) 1564s [00:52:44.342] workers <- workers() 1564s [00:52:44.342] workers <- structure(as.integer(workers), 1564s [00:52:44.342] class = class(workers)) 1564s [00:52:44.342] stop_if_not(length(workers) == 1, is.finite(workers), 1564s [00:52:44.342] workers >= 1) 1564s [00:52:44.342] if (workers == 1L && !inherits(workers, "AsIs")) { 1564s [00:52:44.342] return(sequential(..., lazy = TRUE, envir = envir)) 1564s [00:52:44.342] } 1564s [00:52:44.342] future <- MultisessionFuture(..., workers = workers, 1564s [00:52:44.342] lazy = lazy, rscript_libs = rscript_libs, 1564s [00:52:44.342] envir = envir) 1564s [00:52:44.342] if (!future$lazy) 1564s [00:52:44.342] future <- run(future) 1564s [00:52:44.342] invisible(future) 1564s [00:52:44.342] }), .cleanup = FALSE, .init = FALSE) 1564s [00:52:44.342] } 1564s [00:52:44.342] } 1564s [00:52:44.342] } 1564s [00:52:44.342] }) 1564s [00:52:44.342] if (TRUE) { 1564s [00:52:44.342] base::sink(type = "output", split = FALSE) 1564s [00:52:44.342] if (TRUE) { 1564s [00:52:44.342] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1564s [00:52:44.342] } 1564s [00:52:44.342] else { 1564s [00:52:44.342] ...future.result["stdout"] <- base::list(NULL) 1564s [00:52:44.342] } 1564s [00:52:44.342] base::close(...future.stdout) 1564s [00:52:44.342] ...future.stdout <- NULL 1564s [00:52:44.342] } 1564s [00:52:44.342] ...future.result$conditions <- ...future.conditions 1564s [00:52:44.342] ...future.result$finished <- base::Sys.time() 1564s [00:52:44.342] ...future.result 1564s [00:52:44.342] } 1564s [00:52:44.345] assign_globals() ... 1564s [00:52:44.346] List of 5 1564s [00:52:44.346] $ ...future.FUN :function (C, k) 1564s [00:52:44.346] $ MoreArgs : list() 1564s [00:52:44.346] $ ...future.elements_ii :List of 2 1564s [00:52:44.346] ..$ :List of 5 1564s [00:52:44.346] .. ..$ : chr "A" 1564s [00:52:44.346] .. ..$ : chr "B" 1564s [00:52:44.346] .. ..$ : chr "C" 1564s [00:52:44.346] .. ..$ : chr "D" 1564s [00:52:44.346] .. ..$ : chr "E" 1564s [00:52:44.346] ..$ :List of 5 1564s [00:52:44.346] .. ..$ : int 5 1564s [00:52:44.346] .. ..$ : int 4 1564s [00:52:44.346] .. ..$ : int 3 1564s [00:52:44.346] .. ..$ : int 2 1564s [00:52:44.346] .. ..$ : int 1 1564s [00:52:44.346] $ ...future.seeds_ii : NULL 1564s [00:52:44.346] $ ...future.globals.maxSize: NULL 1564s [00:52:44.346] - attr(*, "where")=List of 5 1564s [00:52:44.346] ..$ ...future.FUN : 1564s [00:52:44.346] ..$ MoreArgs : 1564s [00:52:44.346] ..$ ...future.elements_ii : 1564s [00:52:44.346] ..$ ...future.seeds_ii : 1564s [00:52:44.346] ..$ ...future.globals.maxSize: 1564s [00:52:44.346] - attr(*, "resolved")= logi FALSE 1564s [00:52:44.346] - attr(*, "total_size")= num 4160 1564s [00:52:44.346] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1564s [00:52:44.346] - attr(*, "already-done")= logi TRUE 1564s [00:52:44.359] - reassign environment for ‘...future.FUN’ 1564s [00:52:44.360] - copied ‘...future.FUN’ to environment 1564s [00:52:44.360] - copied ‘MoreArgs’ to environment 1564s [00:52:44.361] - copied ‘...future.elements_ii’ to environment 1564s [00:52:44.361] - copied ‘...future.seeds_ii’ to environment 1564s [00:52:44.361] - copied ‘...future.globals.maxSize’ to environment 1564s [00:52:44.361] assign_globals() ... done 1564s [00:52:44.362] plan(): Setting new future strategy stack: 1564s [00:52:44.362] List of future strategies: 1564s [00:52:44.362] 1. sequential: 1564s [00:52:44.362] - args: function (..., envir = parent.frame()) 1564s [00:52:44.362] - tweaked: FALSE 1564s [00:52:44.362] - call: NULL 1564s [00:52:44.363] plan(): nbrOfWorkers() = 1 1564s [00:52:44.365] plan(): Setting new future strategy stack: 1564s [00:52:44.365] List of future strategies: 1564s [00:52:44.365] 1. multisession: 1564s [00:52:44.365] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1564s [00:52:44.365] - tweaked: FALSE 1564s [00:52:44.365] - call: plan(strategy) 1564s [00:52:44.369] plan(): nbrOfWorkers() = 1 1564s [00:52:44.369] SequentialFuture started (and completed) 1564s [00:52:44.369] - Launch lazy future ... done 1564s [00:52:44.369] run() for ‘SequentialFuture’ ... done 1564s [00:52:44.370] Created future: 1564s [00:52:44.370] SequentialFuture: 1564s [00:52:44.370] Label: ‘future_.mapply-1’ 1564s [00:52:44.370] Expression: 1564s [00:52:44.370] { 1564s [00:52:44.370] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1564s [00:52:44.370] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1564s [00:52:44.370] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1564s [00:52:44.370] on.exit(options(oopts), add = TRUE) 1564s [00:52:44.370] } 1564s [00:52:44.370] { 1564s [00:52:44.370] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1564s [00:52:44.370] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1564s [00:52:44.370] do.call(mapply, args = args) 1564s [00:52:44.370] } 1564s [00:52:44.370] } 1564s [00:52:44.370] Lazy evaluation: FALSE 1564s [00:52:44.370] Asynchronous evaluation: FALSE 1564s [00:52:44.370] Local evaluation: TRUE 1564s [00:52:44.370] Environment: R_GlobalEnv 1564s [00:52:44.370] Capture standard output: TRUE 1564s [00:52:44.370] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1564s [00:52:44.370] Globals: 5 objects totaling 4.06 KiB (function ‘...future.FUN’ of 3.24 KiB, list ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 840 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1564s [00:52:44.370] Packages: 1564s [00:52:44.370] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1564s [00:52:44.370] Resolved: TRUE 1564s [00:52:44.370] Value: 560 bytes of class ‘list’ 1564s [00:52:44.370] Early signaling: FALSE 1564s [00:52:44.370] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1564s [00:52:44.370] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1564s [00:52:44.371] Chunk #1 of 1 ... DONE 1564s [00:52:44.372] Launching 1 futures (chunks) ... DONE 1564s [00:52:44.372] Resolving 1 futures (chunks) ... 1564s [00:52:44.372] resolve() on list ... 1564s [00:52:44.372] recursive: 0 1564s [00:52:44.372] length: 1 1564s [00:52:44.373] 1564s [00:52:44.373] resolved() for ‘SequentialFuture’ ... 1564s [00:52:44.373] - state: ‘finished’ 1564s [00:52:44.373] - run: TRUE 1564s [00:52:44.373] - result: ‘FutureResult’ 1564s [00:52:44.373] resolved() for ‘SequentialFuture’ ... done 1564s [00:52:44.374] Future #1 1564s [00:52:44.374] signalConditionsASAP(SequentialFuture, pos=1) ... 1564s [00:52:44.374] - nx: 1 1564s [00:52:44.374] - relay: TRUE 1564s [00:52:44.374] - stdout: TRUE 1564s [00:52:44.375] - signal: TRUE 1564s [00:52:44.375] - resignal: FALSE 1564s [00:52:44.375] - force: TRUE 1564s [00:52:44.376] - relayed: [n=1] FALSE 1564s [00:52:44.376] - queued futures: [n=1] FALSE 1564s [00:52:44.376] - until=1 1564s [00:52:44.376] - relaying element #1 1564s [00:52:44.376] - relayed: [n=1] TRUE 1564s [00:52:44.377] - queued futures: [n=1] TRUE 1564s [00:52:44.377] signalConditionsASAP(SequentialFuture, pos=1) ... done 1564s [00:52:44.377] length: 0 (resolved future 1) 1564s [00:52:44.377] Relaying remaining futures 1564s [00:52:44.377] signalConditionsASAP(NULL, pos=0) ... 1564s [00:52:44.377] - nx: 1 1564s [00:52:44.377] - relay: TRUE 1564s [00:52:44.377] - stdout: TRUE 1564s [00:52:44.378] - signal: TRUE 1564s [00:52:44.378] - resignal: FALSE 1564s [00:52:44.378] - force: TRUE 1564s [00:52:44.378] - relayed: [n=1] TRUE 1564s [00:52:44.378] - queued futures: [n=1] TRUE 1564s - flush all 1564s [00:52:44.378] - relayed: [n=1] TRUE 1564s [00:52:44.379] - queued futures: [n=1] TRUE 1564s [00:52:44.379] signalConditionsASAP(NULL, pos=0) ... done 1564s [00:52:44.379] resolve() on list ... DONE 1564s [00:52:44.379] - Number of value chunks collected: 1 1564s [00:52:44.379] Resolving 1 futures (chunks) ... DONE 1564s [00:52:44.379] Reducing values from 1 chunks ... 1564s [00:52:44.380] - Number of values collected after concatenation: 5 1564s [00:52:44.380] - Number of values expected: 5 1564s [00:52:44.380] Reducing values from 1 chunks ... DONE 1564s [00:52:44.380] future_mapply() ... DONE 1564s [00:52:44.381] future_mapply() ... 1564s [00:52:44.385] Number of chunks: 3 1564s [00:52:44.385] Index remapping (attribute 'ordering'): [n = 5] 5, 1, 4, 2, 3 1564s [00:52:44.385] getGlobalsAndPackagesXApply() ... 1564s [00:52:44.385] - future.globals: TRUE 1564s [00:52:44.386] getGlobalsAndPackages() ... 1564s [00:52:44.386] Searching for globals... 1564s [00:52:44.388] - globals found: [3] ‘FUN’, ‘paste’, ‘rep.int’ 1564s [00:52:44.388] Searching for globals ... DONE 1564s [00:52:44.389] Resolving globals: FALSE 1564s [00:52:44.389] The total size of the 1 globals is 3.24 KiB (3320 bytes) 1564s [00:52:44.390] The total size of the 1 globals exported for future expression (‘FUN()’) is 3.24 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (3.24 KiB of class ‘function’) 1564s [00:52:44.390] - globals: [1] ‘FUN’ 1564s [00:52:44.391] 1564s [00:52:44.391] getGlobalsAndPackages() ... DONE 1564s [00:52:44.391] - globals found/used: [n=1] ‘FUN’ 1564s [00:52:44.392] - needed namespaces: [n=0] 1564s [00:52:44.392] Finding globals ... DONE 1564s [00:52:44.392] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1564s [00:52:44.393] List of 2 1564s [00:52:44.393] $ ...future.FUN:function (C, k) 1564s [00:52:44.393] $ MoreArgs : NULL 1564s [00:52:44.393] - attr(*, "where")=List of 2 1564s [00:52:44.393] ..$ ...future.FUN: 1564s [00:52:44.393] ..$ MoreArgs : 1564s [00:52:44.393] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1564s [00:52:44.393] - attr(*, "resolved")= logi FALSE 1564s [00:52:44.393] - attr(*, "total_size")= num NA 1564s [00:52:44.397] Packages to be attached in all futures: [n=0] 1564s [00:52:44.397] getGlobalsAndPackagesXApply() ... DONE 1564s [00:52:44.398] Number of futures (= number of chunks): 3 1564s [00:52:44.398] Launching 3 futures (chunks) ... 1564s [00:52:44.398] Chunk #1 of 3 ... 1564s [00:52:44.398] - Finding globals in '...' for chunk #1 ... 1564s [00:52:44.399] getGlobalsAndPackages() ... 1564s [00:52:44.399] Searching for globals... 1564s [00:52:44.400] 1564s [00:52:44.400] Searching for globals ... DONE 1564s [00:52:44.400] - globals: [0] 1564s [00:52:44.400] getGlobalsAndPackages() ... DONE 1564s [00:52:44.401] + additional globals found: [n=0] 1564s [00:52:44.401] + additional namespaces needed: [n=0] 1564s [00:52:44.401] - Finding globals in '...' for chunk #1 ... DONE 1564s [00:52:44.401] - Adjusted option 'future.globals.maxSize': 524288000 -> 3 * 524288000 = 1572864000 (bytes) 1564s [00:52:44.402] - seeds: 1564s [00:52:44.402] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:44.402] getGlobalsAndPackages() ... 1564s [00:52:44.402] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:44.402] Resolving globals: FALSE 1564s [00:52:44.403] The total size of the 5 globals is 3.57 KiB (3656 bytes) 1564s [00:52:44.404] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 3.57 KiB.. This exceeds the maximum allowed size of 1.46 GiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (3.24 KiB of class ‘function’), ‘...future.elements_ii’ (336 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1564s [00:52:44.405] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:44.405] 1564s [00:52:44.405] getGlobalsAndPackages() ... DONE 1564s [00:52:44.405] run() for ‘Future’ ... 1564s [00:52:44.406] - state: ‘created’ 1564s [00:52:44.406] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1564s [00:52:44.411] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1564s [00:52:44.411] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1564s [00:52:44.411] - Field: ‘label’ 1564s [00:52:44.411] - Field: ‘local’ 1564s [00:52:44.412] - Field: ‘owner’ 1564s [00:52:44.412] - Field: ‘envir’ 1564s [00:52:44.412] - Field: ‘packages’ 1564s [00:52:44.412] - Field: ‘gc’ 1564s [00:52:44.413] - Field: ‘conditions’ 1564s [00:52:44.413] - Field: ‘expr’ 1564s [00:52:44.413] - Field: ‘uuid’ 1564s [00:52:44.413] - Field: ‘seed’ 1564s [00:52:44.413] - Field: ‘version’ 1564s [00:52:44.413] - Field: ‘result’ 1564s [00:52:44.414] - Field: ‘asynchronous’ 1564s [00:52:44.414] - Field: ‘calls’ 1564s [00:52:44.414] - Field: ‘globals’ 1564s [00:52:44.414] - Field: ‘stdout’ 1564s [00:52:44.414] - Field: ‘earlySignal’ 1564s [00:52:44.414] - Field: ‘lazy’ 1564s [00:52:44.415] - Field: ‘state’ 1564s [00:52:44.415] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1564s [00:52:44.415] - Launch lazy future ... 1564s [00:52:44.416] Packages needed by the future expression (n = 0): 1564s [00:52:44.416] Packages needed by future strategies (n = 0): 1564s [00:52:44.417] { 1564s [00:52:44.417] { 1564s [00:52:44.417] { 1564s [00:52:44.417] ...future.startTime <- base::Sys.time() 1564s [00:52:44.417] { 1564s [00:52:44.417] { 1564s [00:52:44.417] { 1564s [00:52:44.417] base::local({ 1564s [00:52:44.417] has_future <- base::requireNamespace("future", 1564s [00:52:44.417] quietly = TRUE) 1564s [00:52:44.417] if (has_future) { 1564s [00:52:44.417] ns <- base::getNamespace("future") 1564s [00:52:44.417] version <- ns[[".package"]][["version"]] 1564s [00:52:44.417] if (is.null(version)) 1564s [00:52:44.417] version <- utils::packageVersion("future") 1564s [00:52:44.417] } 1564s [00:52:44.417] else { 1564s [00:52:44.417] version <- NULL 1564s [00:52:44.417] } 1564s [00:52:44.417] if (!has_future || version < "1.8.0") { 1564s [00:52:44.417] info <- base::c(r_version = base::gsub("R version ", 1564s [00:52:44.417] "", base::R.version$version.string), 1564s [00:52:44.417] platform = base::sprintf("%s (%s-bit)", 1564s [00:52:44.417] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1564s [00:52:44.417] os = base::paste(base::Sys.info()[base::c("sysname", 1564s [00:52:44.417] "release", "version")], collapse = " "), 1564s [00:52:44.417] hostname = base::Sys.info()[["nodename"]]) 1564s [00:52:44.417] info <- base::sprintf("%s: %s", base::names(info), 1564s [00:52:44.417] info) 1564s [00:52:44.417] info <- base::paste(info, collapse = "; ") 1564s [00:52:44.417] if (!has_future) { 1564s [00:52:44.417] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1564s [00:52:44.417] info) 1564s [00:52:44.417] } 1564s [00:52:44.417] else { 1564s [00:52:44.417] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1564s [00:52:44.417] info, version) 1564s [00:52:44.417] } 1564s [00:52:44.417] base::stop(msg) 1564s [00:52:44.417] } 1564s [00:52:44.417] }) 1564s [00:52:44.417] } 1564s [00:52:44.417] options(future.plan = NULL) 1564s [00:52:44.417] Sys.unsetenv("R_FUTURE_PLAN") 1564s [00:52:44.417] future::plan("default", .cleanup = FALSE, .init = FALSE) 1564s [00:52:44.417] } 1564s [00:52:44.417] ...future.workdir <- getwd() 1564s [00:52:44.417] } 1564s [00:52:44.417] ...future.oldOptions <- base::as.list(base::.Options) 1564s [00:52:44.417] ...future.oldEnvVars <- base::Sys.getenv() 1564s [00:52:44.417] } 1564s [00:52:44.417] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1564s [00:52:44.417] future.globals.maxSize = 1572864000, future.globals.method = NULL, 1564s [00:52:44.417] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1564s [00:52:44.417] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1564s [00:52:44.417] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1564s [00:52:44.417] future.stdout.windows.reencode = NULL, width = 80L) 1564s [00:52:44.417] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1564s [00:52:44.417] base::names(...future.oldOptions)) 1564s [00:52:44.417] } 1564s [00:52:44.417] if (FALSE) { 1564s [00:52:44.417] } 1564s [00:52:44.417] else { 1564s [00:52:44.417] if (TRUE) { 1564s [00:52:44.417] ...future.stdout <- base::rawConnection(base::raw(0L), 1564s [00:52:44.417] open = "w") 1564s [00:52:44.417] } 1564s [00:52:44.417] else { 1564s [00:52:44.417] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1564s [00:52:44.417] windows = "NUL", "/dev/null"), open = "w") 1564s [00:52:44.417] } 1564s [00:52:44.417] base::sink(...future.stdout, type = "output", split = FALSE) 1564s [00:52:44.417] base::on.exit(if (!base::is.null(...future.stdout)) { 1564s [00:52:44.417] base::sink(type = "output", split = FALSE) 1564s [00:52:44.417] base::close(...future.stdout) 1564s [00:52:44.417] }, add = TRUE) 1564s [00:52:44.417] } 1564s [00:52:44.417] ...future.frame <- base::sys.nframe() 1564s [00:52:44.417] ...future.conditions <- base::list() 1564s [00:52:44.417] ...future.rng <- base::globalenv()$.Random.seed 1564s [00:52:44.417] if (FALSE) { 1564s [00:52:44.417] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1564s [00:52:44.417] "...future.value", "...future.globalenv.names", ".Random.seed") 1564s [00:52:44.417] } 1564s [00:52:44.417] ...future.result <- base::tryCatch({ 1564s [00:52:44.417] base::withCallingHandlers({ 1564s [00:52:44.417] ...future.value <- base::withVisible(base::local({ 1564s [00:52:44.417] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1564s [00:52:44.417] if (!identical(...future.globals.maxSize.org, 1564s [00:52:44.417] ...future.globals.maxSize)) { 1564s [00:52:44.417] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1564s [00:52:44.417] on.exit(options(oopts), add = TRUE) 1564s [00:52:44.417] } 1564s [00:52:44.417] { 1564s [00:52:44.417] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1564s [00:52:44.417] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1564s [00:52:44.417] USE.NAMES = FALSE) 1564s [00:52:44.417] do.call(mapply, args = args) 1564s [00:52:44.417] } 1564s [00:52:44.417] })) 1564s [00:52:44.417] future::FutureResult(value = ...future.value$value, 1564s [00:52:44.417] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1564s [00:52:44.417] ...future.rng), globalenv = if (FALSE) 1564s [00:52:44.417] list(added = base::setdiff(base::names(base::.GlobalEnv), 1564s [00:52:44.417] ...future.globalenv.names)) 1564s [00:52:44.417] else NULL, started = ...future.startTime, version = "1.8") 1564s [00:52:44.417] }, condition = base::local({ 1564s [00:52:44.417] c <- base::c 1564s [00:52:44.417] inherits <- base::inherits 1564s [00:52:44.417] invokeRestart <- base::invokeRestart 1564s [00:52:44.417] length <- base::length 1564s [00:52:44.417] list <- base::list 1564s [00:52:44.417] seq.int <- base::seq.int 1564s [00:52:44.417] signalCondition <- base::signalCondition 1564s [00:52:44.417] sys.calls <- base::sys.calls 1564s [00:52:44.417] `[[` <- base::`[[` 1564s [00:52:44.417] `+` <- base::`+` 1564s [00:52:44.417] `<<-` <- base::`<<-` 1564s [00:52:44.417] sysCalls <- function(calls = sys.calls(), from = 1L) { 1564s [00:52:44.417] calls[seq.int(from = from + 12L, to = length(calls) - 1564s [00:52:44.417] 3L)] 1564s [00:52:44.417] } 1564s [00:52:44.417] function(cond) { 1564s [00:52:44.417] is_error <- inherits(cond, "error") 1564s [00:52:44.417] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1564s [00:52:44.417] NULL) 1564s [00:52:44.417] if (is_error) { 1564s [00:52:44.417] sessionInformation <- function() { 1564s [00:52:44.417] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1564s [00:52:44.417] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1564s [00:52:44.417] search = base::search(), system = base::Sys.info()) 1564s [00:52:44.417] } 1564s [00:52:44.417] ...future.conditions[[length(...future.conditions) + 1564s [00:52:44.417] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1564s [00:52:44.417] cond$call), session = sessionInformation(), 1564s [00:52:44.417] timestamp = base::Sys.time(), signaled = 0L) 1564s [00:52:44.417] signalCondition(cond) 1564s [00:52:44.417] } 1564s [00:52:44.417] else if (!ignore && TRUE && inherits(cond, c("condition", 1564s [00:52:44.417] "immediateCondition"))) { 1564s [00:52:44.417] signal <- TRUE && inherits(cond, "immediateCondition") 1564s [00:52:44.417] ...future.conditions[[length(...future.conditions) + 1564s [00:52:44.417] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1564s [00:52:44.417] if (TRUE && !signal) { 1564s [00:52:44.417] muffleCondition <- function (cond, pattern = "^muffle") 1564s [00:52:44.417] { 1564s [00:52:44.417] inherits <- base::inherits 1564s [00:52:44.417] invokeRestart <- base::invokeRestart 1564s [00:52:44.417] is.null <- base::is.null 1564s [00:52:44.417] muffled <- FALSE 1564s [00:52:44.417] if (inherits(cond, "message")) { 1564s [00:52:44.417] muffled <- grepl(pattern, "muffleMessage") 1564s [00:52:44.417] if (muffled) 1564s [00:52:44.417] invokeRestart("muffleMessage") 1564s [00:52:44.417] } 1564s [00:52:44.417] else if (inherits(cond, "warning")) { 1564s [00:52:44.417] muffled <- grepl(pattern, "muffleWarning") 1564s [00:52:44.417] if (muffled) 1564s [00:52:44.417] invokeRestart("muffleWarning") 1564s [00:52:44.417] } 1564s [00:52:44.417] else if (inherits(cond, "condition")) { 1564s [00:52:44.417] if (!is.null(pattern)) { 1564s [00:52:44.417] computeRestarts <- base::computeRestarts 1564s [00:52:44.417] grepl <- base::grepl 1564s [00:52:44.417] restarts <- computeRestarts(cond) 1564s [00:52:44.417] for (restart in restarts) { 1564s [00:52:44.417] name <- restart$name 1564s [00:52:44.417] if (is.null(name)) 1564s [00:52:44.417] next 1564s [00:52:44.417] if (!grepl(pattern, name)) 1564s [00:52:44.417] next 1564s [00:52:44.417] invokeRestart(restart) 1564s [00:52:44.417] muffled <- TRUE 1564s [00:52:44.417] break 1564s [00:52:44.417] } 1564s [00:52:44.417] } 1564s [00:52:44.417] } 1564s [00:52:44.417] invisible(muffled) 1564s [00:52:44.417] } 1564s [00:52:44.417] muffleCondition(cond, pattern = "^muffle") 1564s [00:52:44.417] } 1564s [00:52:44.417] } 1564s [00:52:44.417] else { 1564s [00:52:44.417] if (TRUE) { 1564s [00:52:44.417] muffleCondition <- function (cond, pattern = "^muffle") 1564s [00:52:44.417] { 1564s [00:52:44.417] inherits <- base::inherits 1564s [00:52:44.417] invokeRestart <- base::invokeRestart 1564s [00:52:44.417] is.null <- base::is.null 1564s [00:52:44.417] muffled <- FALSE 1564s [00:52:44.417] if (inherits(cond, "message")) { 1564s [00:52:44.417] muffled <- grepl(pattern, "muffleMessage") 1564s [00:52:44.417] if (muffled) 1564s [00:52:44.417] invokeRestart("muffleMessage") 1564s [00:52:44.417] } 1564s [00:52:44.417] else if (inherits(cond, "warning")) { 1564s [00:52:44.417] muffled <- grepl(pattern, "muffleWarning") 1564s [00:52:44.417] if (muffled) 1564s [00:52:44.417] invokeRestart("muffleWarning") 1564s [00:52:44.417] } 1564s [00:52:44.417] else if (inherits(cond, "condition")) { 1564s [00:52:44.417] if (!is.null(pattern)) { 1564s [00:52:44.417] computeRestarts <- base::computeRestarts 1564s [00:52:44.417] grepl <- base::grepl 1564s [00:52:44.417] restarts <- computeRestarts(cond) 1564s [00:52:44.417] for (restart in restarts) { 1564s [00:52:44.417] name <- restart$name 1564s [00:52:44.417] if (is.null(name)) 1564s [00:52:44.417] next 1564s [00:52:44.417] if (!grepl(pattern, name)) 1564s [00:52:44.417] next 1564s [00:52:44.417] invokeRestart(restart) 1564s [00:52:44.417] muffled <- TRUE 1564s [00:52:44.417] break 1564s [00:52:44.417] } 1564s [00:52:44.417] } 1564s [00:52:44.417] } 1564s [00:52:44.417] invisible(muffled) 1564s [00:52:44.417] } 1564s [00:52:44.417] muffleCondition(cond, pattern = "^muffle") 1564s [00:52:44.417] } 1564s [00:52:44.417] } 1564s [00:52:44.417] } 1564s [00:52:44.417] })) 1564s [00:52:44.417] }, error = function(ex) { 1564s [00:52:44.417] base::structure(base::list(value = NULL, visible = NULL, 1564s [00:52:44.417] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1564s [00:52:44.417] ...future.rng), started = ...future.startTime, 1564s [00:52:44.417] finished = Sys.time(), session_uuid = NA_character_, 1564s [00:52:44.417] version = "1.8"), class = "FutureResult") 1564s [00:52:44.417] }, finally = { 1564s [00:52:44.417] if (!identical(...future.workdir, getwd())) 1564s [00:52:44.417] setwd(...future.workdir) 1564s [00:52:44.417] { 1564s [00:52:44.417] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1564s [00:52:44.417] ...future.oldOptions$nwarnings <- NULL 1564s [00:52:44.417] } 1564s [00:52:44.417] base::options(...future.oldOptions) 1564s [00:52:44.417] if (.Platform$OS.type == "windows") { 1564s [00:52:44.417] old_names <- names(...future.oldEnvVars) 1564s [00:52:44.417] envs <- base::Sys.getenv() 1564s [00:52:44.417] names <- names(envs) 1564s [00:52:44.417] common <- intersect(names, old_names) 1564s [00:52:44.417] added <- setdiff(names, old_names) 1564s [00:52:44.417] removed <- setdiff(old_names, names) 1564s [00:52:44.417] changed <- common[...future.oldEnvVars[common] != 1564s [00:52:44.417] envs[common]] 1564s [00:52:44.417] NAMES <- toupper(changed) 1564s [00:52:44.417] args <- list() 1564s [00:52:44.417] for (kk in seq_along(NAMES)) { 1564s [00:52:44.417] name <- changed[[kk]] 1564s [00:52:44.417] NAME <- NAMES[[kk]] 1564s [00:52:44.417] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:44.417] next 1564s [00:52:44.417] args[[name]] <- ...future.oldEnvVars[[name]] 1564s [00:52:44.417] } 1564s [00:52:44.417] NAMES <- toupper(added) 1564s [00:52:44.417] for (kk in seq_along(NAMES)) { 1564s [00:52:44.417] name <- added[[kk]] 1564s [00:52:44.417] NAME <- NAMES[[kk]] 1564s [00:52:44.417] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:44.417] next 1564s [00:52:44.417] args[[name]] <- "" 1564s [00:52:44.417] } 1564s [00:52:44.417] NAMES <- toupper(removed) 1564s [00:52:44.417] for (kk in seq_along(NAMES)) { 1564s [00:52:44.417] name <- removed[[kk]] 1564s [00:52:44.417] NAME <- NAMES[[kk]] 1564s [00:52:44.417] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:44.417] next 1564s [00:52:44.417] args[[name]] <- ...future.oldEnvVars[[name]] 1564s [00:52:44.417] } 1564s [00:52:44.417] if (length(args) > 0) 1564s [00:52:44.417] base::do.call(base::Sys.setenv, args = args) 1564s [00:52:44.417] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1564s [00:52:44.417] } 1564s [00:52:44.417] else { 1564s [00:52:44.417] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1564s [00:52:44.417] } 1564s [00:52:44.417] { 1564s [00:52:44.417] if (base::length(...future.futureOptionsAdded) > 1564s [00:52:44.417] 0L) { 1564s [00:52:44.417] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1564s [00:52:44.417] base::names(opts) <- ...future.futureOptionsAdded 1564s [00:52:44.417] base::options(opts) 1564s [00:52:44.417] } 1564s [00:52:44.417] { 1564s [00:52:44.417] { 1564s [00:52:44.417] base::assign(".Random.seed", c(10407L, -193111136L, 1564s [00:52:44.417] 1998638665L, 1795077819L, 549408344L, 564105141L, 1564s [00:52:44.417] -308065669L), envir = base::globalenv(), 1564s [00:52:44.417] inherits = FALSE) 1564s [00:52:44.417] NULL 1564s [00:52:44.417] } 1564s [00:52:44.417] options(future.plan = NULL) 1564s [00:52:44.417] if (is.na(NA_character_)) 1564s [00:52:44.417] Sys.unsetenv("R_FUTURE_PLAN") 1564s [00:52:44.417] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1564s [00:52:44.417] future::plan(list(function (..., workers = availableCores(), 1564s [00:52:44.417] lazy = FALSE, rscript_libs = .libPaths(), 1564s [00:52:44.417] envir = parent.frame()) 1564s [00:52:44.417] { 1564s [00:52:44.417] if (is.function(workers)) 1564s [00:52:44.417] workers <- workers() 1564s [00:52:44.417] workers <- structure(as.integer(workers), 1564s [00:52:44.417] class = class(workers)) 1564s [00:52:44.417] stop_if_not(length(workers) == 1, is.finite(workers), 1564s [00:52:44.417] workers >= 1) 1564s [00:52:44.417] if (workers == 1L && !inherits(workers, "AsIs")) { 1564s [00:52:44.417] return(sequential(..., lazy = TRUE, envir = envir)) 1564s [00:52:44.417] } 1564s [00:52:44.417] future <- MultisessionFuture(..., workers = workers, 1564s [00:52:44.417] lazy = lazy, rscript_libs = rscript_libs, 1564s [00:52:44.417] envir = envir) 1564s [00:52:44.417] if (!future$lazy) 1564s [00:52:44.417] future <- run(future) 1564s [00:52:44.417] invisible(future) 1564s [00:52:44.417] }), .cleanup = FALSE, .init = FALSE) 1564s [00:52:44.417] } 1564s [00:52:44.417] } 1564s [00:52:44.417] } 1564s [00:52:44.417] }) 1564s [00:52:44.417] if (TRUE) { 1564s [00:52:44.417] base::sink(type = "output", split = FALSE) 1564s [00:52:44.417] if (TRUE) { 1564s [00:52:44.417] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1564s [00:52:44.417] } 1564s [00:52:44.417] else { 1564s [00:52:44.417] ...future.result["stdout"] <- base::list(NULL) 1564s [00:52:44.417] } 1564s [00:52:44.417] base::close(...future.stdout) 1564s [00:52:44.417] ...future.stdout <- NULL 1564s [00:52:44.417] } 1564s [00:52:44.417] ...future.result$conditions <- ...future.conditions 1564s [00:52:44.417] ...future.result$finished <- base::Sys.time() 1564s [00:52:44.417] ...future.result 1564s [00:52:44.417] } 1564s [00:52:44.421] assign_globals() ... 1564s [00:52:44.421] List of 5 1564s [00:52:44.421] $ ...future.FUN :function (C, k) 1564s [00:52:44.421] $ MoreArgs : NULL 1564s [00:52:44.421] $ ...future.elements_ii :List of 2 1564s [00:52:44.421] ..$ :List of 2 1564s [00:52:44.421] .. ..$ : chr "E" 1564s [00:52:44.421] .. ..$ : chr "A" 1564s [00:52:44.421] ..$ :List of 2 1564s [00:52:44.421] .. ..$ : int 1 1564s [00:52:44.421] .. ..$ : int 5 1564s [00:52:44.421] $ ...future.seeds_ii : NULL 1564s [00:52:44.421] $ ...future.globals.maxSize: NULL 1564s [00:52:44.421] - attr(*, "where")=List of 5 1564s [00:52:44.421] ..$ ...future.FUN : 1564s [00:52:44.421] ..$ MoreArgs : 1564s [00:52:44.421] ..$ ...future.elements_ii : 1564s [00:52:44.421] ..$ ...future.seeds_ii : 1564s [00:52:44.421] ..$ ...future.globals.maxSize: 1564s [00:52:44.421] - attr(*, "resolved")= logi FALSE 1564s [00:52:44.421] - attr(*, "total_size")= num 3656 1564s [00:52:44.421] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1564s [00:52:44.421] - attr(*, "already-done")= logi TRUE 1564s [00:52:44.436] - reassign environment for ‘...future.FUN’ 1564s [00:52:44.437] - copied ‘...future.FUN’ to environment 1564s [00:52:44.437] - copied ‘MoreArgs’ to environment 1564s [00:52:44.437] - copied ‘...future.elements_ii’ to environment 1564s [00:52:44.437] - copied ‘...future.seeds_ii’ to environment 1564s [00:52:44.437] - copied ‘...future.globals.maxSize’ to environment 1564s [00:52:44.437] assign_globals() ... done 1564s [00:52:44.438] plan(): Setting new future strategy stack: 1564s [00:52:44.438] List of future strategies: 1564s [00:52:44.438] 1. sequential: 1564s [00:52:44.438] - args: function (..., envir = parent.frame()) 1564s [00:52:44.438] - tweaked: FALSE 1564s [00:52:44.438] - call: NULL 1564s [00:52:44.438] plan(): nbrOfWorkers() = 1 1564s [00:52:44.440] plan(): Setting new future strategy stack: 1564s [00:52:44.441] List of future strategies: 1564s [00:52:44.441] 1. multisession: 1564s [00:52:44.441] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1564s [00:52:44.441] - tweaked: FALSE 1564s [00:52:44.441] - call: plan(strategy) 1564s [00:52:44.446] plan(): nbrOfWorkers() = 1 1564s [00:52:44.446] SequentialFuture started (and completed) 1564s [00:52:44.446] - Launch lazy future ... done 1564s [00:52:44.447] run() for ‘SequentialFuture’ ... done 1564s [00:52:44.447] Created future: 1564s [00:52:44.448] SequentialFuture: 1564s [00:52:44.448] Label: ‘future_mapply-1’ 1564s [00:52:44.448] Expression: 1564s [00:52:44.448] { 1564s [00:52:44.448] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1564s [00:52:44.448] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1564s [00:52:44.448] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1564s [00:52:44.448] on.exit(options(oopts), add = TRUE) 1564s [00:52:44.448] } 1564s [00:52:44.448] { 1564s [00:52:44.448] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1564s [00:52:44.448] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1564s [00:52:44.448] do.call(mapply, args = args) 1564s [00:52:44.448] } 1564s [00:52:44.448] } 1564s [00:52:44.448] Lazy evaluation: FALSE 1564s [00:52:44.448] Asynchronous evaluation: FALSE 1564s [00:52:44.448] Local evaluation: TRUE 1564s [00:52:44.448] Environment: R_GlobalEnv 1564s [00:52:44.448] Capture standard output: TRUE 1564s [00:52:44.448] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1564s [00:52:44.448] Globals: 5 objects totaling 3.57 KiB (function ‘...future.FUN’ of 3.24 KiB, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1564s [00:52:44.448] Packages: 1564s [00:52:44.448] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1564s [00:52:44.448] Resolved: TRUE 1564s [00:52:44.448] Value: 224 bytes of class ‘list’ 1564s [00:52:44.448] Early signaling: FALSE 1564s [00:52:44.448] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1564s [00:52:44.448] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1564s [00:52:44.450] Chunk #1 of 3 ... DONE 1564s [00:52:44.451] Chunk #2 of 3 ... 1564s [00:52:44.452] - Finding globals in '...' for chunk #2 ... 1564s [00:52:44.452] getGlobalsAndPackages() ... 1564s [00:52:44.452] Searching for globals... 1564s [00:52:44.453] 1564s [00:52:44.453] Searching for globals ... DONE 1564s [00:52:44.453] - globals: [0] 1564s [00:52:44.453] getGlobalsAndPackages() ... DONE 1564s [00:52:44.453] + additional globals found: [n=0] 1564s [00:52:44.454] + additional namespaces needed: [n=0] 1564s [00:52:44.454] - Finding globals in '...' for chunk #2 ... DONE 1564s [00:52:44.454] - Adjusted option 'future.globals.maxSize': 524288000 -> 3 * 524288000 = 1572864000 (bytes) 1564s [00:52:44.454] - seeds: 1564s [00:52:44.454] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:44.455] getGlobalsAndPackages() ... 1564s [00:52:44.455] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:44.455] Resolving globals: FALSE 1564s [00:52:44.457] The total size of the 5 globals is 3.41 KiB (3488 bytes) 1564s [00:52:44.458] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 3.41 KiB.. This exceeds the maximum allowed size of 1.46 GiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (3.24 KiB of class ‘function’), ‘...future.elements_ii’ (168 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1564s [00:52:44.458] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:44.458] 1564s [00:52:44.459] getGlobalsAndPackages() ... DONE 1564s [00:52:44.459] run() for ‘Future’ ... 1564s [00:52:44.459] - state: ‘created’ 1564s [00:52:44.459] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1564s [00:52:44.464] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1564s [00:52:44.465] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1564s [00:52:44.465] - Field: ‘label’ 1564s [00:52:44.465] - Field: ‘local’ 1564s [00:52:44.465] - Field: ‘owner’ 1564s [00:52:44.465] - Field: ‘envir’ 1564s [00:52:44.466] - Field: ‘packages’ 1564s [00:52:44.466] - Field: ‘gc’ 1564s [00:52:44.466] - Field: ‘conditions’ 1564s [00:52:44.466] - Field: ‘expr’ 1564s [00:52:44.466] - Field: ‘uuid’ 1564s [00:52:44.466] - Field: ‘seed’ 1564s [00:52:44.466] - Field: ‘version’ 1564s [00:52:44.466] - Field: ‘result’ 1564s [00:52:44.467] - Field: ‘asynchronous’ 1564s [00:52:44.467] - Field: ‘calls’ 1564s [00:52:44.467] - Field: ‘globals’ 1564s [00:52:44.467] - Field: ‘stdout’ 1564s [00:52:44.467] - Field: ‘earlySignal’ 1564s [00:52:44.467] - Field: ‘lazy’ 1564s [00:52:44.467] - Field: ‘state’ 1564s [00:52:44.467] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1564s [00:52:44.468] - Launch lazy future ... 1564s [00:52:44.468] Packages needed by the future expression (n = 0): 1564s [00:52:44.468] Packages needed by future strategies (n = 0): 1564s [00:52:44.468] { 1564s [00:52:44.468] { 1564s [00:52:44.468] { 1564s [00:52:44.468] ...future.startTime <- base::Sys.time() 1564s [00:52:44.468] { 1564s [00:52:44.468] { 1564s [00:52:44.468] { 1564s [00:52:44.468] base::local({ 1564s [00:52:44.468] has_future <- base::requireNamespace("future", 1564s [00:52:44.468] quietly = TRUE) 1564s [00:52:44.468] if (has_future) { 1564s [00:52:44.468] ns <- base::getNamespace("future") 1564s [00:52:44.468] version <- ns[[".package"]][["version"]] 1564s [00:52:44.468] if (is.null(version)) 1564s [00:52:44.468] version <- utils::packageVersion("future") 1564s [00:52:44.468] } 1564s [00:52:44.468] else { 1564s [00:52:44.468] version <- NULL 1564s [00:52:44.468] } 1564s [00:52:44.468] if (!has_future || version < "1.8.0") { 1564s [00:52:44.468] info <- base::c(r_version = base::gsub("R version ", 1564s [00:52:44.468] "", base::R.version$version.string), 1564s [00:52:44.468] platform = base::sprintf("%s (%s-bit)", 1564s [00:52:44.468] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1564s [00:52:44.468] os = base::paste(base::Sys.info()[base::c("sysname", 1564s [00:52:44.468] "release", "version")], collapse = " "), 1564s [00:52:44.468] hostname = base::Sys.info()[["nodename"]]) 1564s [00:52:44.468] info <- base::sprintf("%s: %s", base::names(info), 1564s [00:52:44.468] info) 1564s [00:52:44.468] info <- base::paste(info, collapse = "; ") 1564s [00:52:44.468] if (!has_future) { 1564s [00:52:44.468] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1564s [00:52:44.468] info) 1564s [00:52:44.468] } 1564s [00:52:44.468] else { 1564s [00:52:44.468] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1564s [00:52:44.468] info, version) 1564s [00:52:44.468] } 1564s [00:52:44.468] base::stop(msg) 1564s [00:52:44.468] } 1564s [00:52:44.468] }) 1564s [00:52:44.468] } 1564s [00:52:44.468] options(future.plan = NULL) 1564s [00:52:44.468] Sys.unsetenv("R_FUTURE_PLAN") 1564s [00:52:44.468] future::plan("default", .cleanup = FALSE, .init = FALSE) 1564s [00:52:44.468] } 1564s [00:52:44.468] ...future.workdir <- getwd() 1564s [00:52:44.468] } 1564s [00:52:44.468] ...future.oldOptions <- base::as.list(base::.Options) 1564s [00:52:44.468] ...future.oldEnvVars <- base::Sys.getenv() 1564s [00:52:44.468] } 1564s [00:52:44.468] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1564s [00:52:44.468] future.globals.maxSize = 1572864000, future.globals.method = NULL, 1564s [00:52:44.468] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1564s [00:52:44.468] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1564s [00:52:44.468] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1564s [00:52:44.468] future.stdout.windows.reencode = NULL, width = 80L) 1564s [00:52:44.468] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1564s [00:52:44.468] base::names(...future.oldOptions)) 1564s [00:52:44.468] } 1564s [00:52:44.468] if (FALSE) { 1564s [00:52:44.468] } 1564s [00:52:44.468] else { 1564s [00:52:44.468] if (TRUE) { 1564s [00:52:44.468] ...future.stdout <- base::rawConnection(base::raw(0L), 1564s [00:52:44.468] open = "w") 1564s [00:52:44.468] } 1564s [00:52:44.468] else { 1564s [00:52:44.468] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1564s [00:52:44.468] windows = "NUL", "/dev/null"), open = "w") 1564s [00:52:44.468] } 1564s [00:52:44.468] base::sink(...future.stdout, type = "output", split = FALSE) 1564s [00:52:44.468] base::on.exit(if (!base::is.null(...future.stdout)) { 1564s [00:52:44.468] base::sink(type = "output", split = FALSE) 1564s [00:52:44.468] base::close(...future.stdout) 1564s [00:52:44.468] }, add = TRUE) 1564s [00:52:44.468] } 1564s [00:52:44.468] ...future.frame <- base::sys.nframe() 1564s [00:52:44.468] ...future.conditions <- base::list() 1564s [00:52:44.468] ...future.rng <- base::globalenv()$.Random.seed 1564s [00:52:44.468] if (FALSE) { 1564s [00:52:44.468] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1564s [00:52:44.468] "...future.value", "...future.globalenv.names", ".Random.seed") 1564s [00:52:44.468] } 1564s [00:52:44.468] ...future.result <- base::tryCatch({ 1564s [00:52:44.468] base::withCallingHandlers({ 1564s [00:52:44.468] ...future.value <- base::withVisible(base::local({ 1564s [00:52:44.468] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1564s [00:52:44.468] if (!identical(...future.globals.maxSize.org, 1564s [00:52:44.468] ...future.globals.maxSize)) { 1564s [00:52:44.468] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1564s [00:52:44.468] on.exit(options(oopts), add = TRUE) 1564s [00:52:44.468] } 1564s [00:52:44.468] { 1564s [00:52:44.468] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1564s [00:52:44.468] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1564s [00:52:44.468] USE.NAMES = FALSE) 1564s [00:52:44.468] do.call(mapply, args = args) 1564s [00:52:44.468] } 1564s [00:52:44.468] })) 1564s [00:52:44.468] future::FutureResult(value = ...future.value$value, 1564s [00:52:44.468] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1564s [00:52:44.468] ...future.rng), globalenv = if (FALSE) 1564s [00:52:44.468] list(added = base::setdiff(base::names(base::.GlobalEnv), 1564s [00:52:44.468] ...future.globalenv.names)) 1564s [00:52:44.468] else NULL, started = ...future.startTime, version = "1.8") 1564s [00:52:44.468] }, condition = base::local({ 1564s [00:52:44.468] c <- base::c 1564s [00:52:44.468] inherits <- base::inherits 1564s [00:52:44.468] invokeRestart <- base::invokeRestart 1564s [00:52:44.468] length <- base::length 1564s [00:52:44.468] list <- base::list 1564s [00:52:44.468] seq.int <- base::seq.int 1564s [00:52:44.468] signalCondition <- base::signalCondition 1564s [00:52:44.468] sys.calls <- base::sys.calls 1564s [00:52:44.468] `[[` <- base::`[[` 1564s [00:52:44.468] `+` <- base::`+` 1564s [00:52:44.468] `<<-` <- base::`<<-` 1564s [00:52:44.468] sysCalls <- function(calls = sys.calls(), from = 1L) { 1564s [00:52:44.468] calls[seq.int(from = from + 12L, to = length(calls) - 1564s [00:52:44.468] 3L)] 1564s [00:52:44.468] } 1564s [00:52:44.468] function(cond) { 1564s [00:52:44.468] is_error <- inherits(cond, "error") 1564s [00:52:44.468] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1564s [00:52:44.468] NULL) 1564s [00:52:44.468] if (is_error) { 1564s [00:52:44.468] sessionInformation <- function() { 1564s [00:52:44.468] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1564s [00:52:44.468] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1564s [00:52:44.468] search = base::search(), system = base::Sys.info()) 1564s [00:52:44.468] } 1564s [00:52:44.468] ...future.conditions[[length(...future.conditions) + 1564s [00:52:44.468] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1564s [00:52:44.468] cond$call), session = sessionInformation(), 1564s [00:52:44.468] timestamp = base::Sys.time(), signaled = 0L) 1564s [00:52:44.468] signalCondition(cond) 1564s [00:52:44.468] } 1564s [00:52:44.468] else if (!ignore && TRUE && inherits(cond, c("condition", 1564s [00:52:44.468] "immediateCondition"))) { 1564s [00:52:44.468] signal <- TRUE && inherits(cond, "immediateCondition") 1564s [00:52:44.468] ...future.conditions[[length(...future.conditions) + 1564s [00:52:44.468] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1564s [00:52:44.468] if (TRUE && !signal) { 1564s [00:52:44.468] muffleCondition <- function (cond, pattern = "^muffle") 1564s [00:52:44.468] { 1564s [00:52:44.468] inherits <- base::inherits 1564s [00:52:44.468] invokeRestart <- base::invokeRestart 1564s [00:52:44.468] is.null <- base::is.null 1564s [00:52:44.468] muffled <- FALSE 1564s [00:52:44.468] if (inherits(cond, "message")) { 1564s [00:52:44.468] muffled <- grepl(pattern, "muffleMessage") 1564s [00:52:44.468] if (muffled) 1564s [00:52:44.468] invokeRestart("muffleMessage") 1564s [00:52:44.468] } 1564s [00:52:44.468] else if (inherits(cond, "warning")) { 1564s [00:52:44.468] muffled <- grepl(pattern, "muffleWarning") 1564s [00:52:44.468] if (muffled) 1564s [00:52:44.468] invokeRestart("muffleWarning") 1564s [00:52:44.468] } 1564s [00:52:44.468] else if (inherits(cond, "condition")) { 1564s [00:52:44.468] if (!is.null(pattern)) { 1564s [00:52:44.468] computeRestarts <- base::computeRestarts 1564s [00:52:44.468] grepl <- base::grepl 1564s [00:52:44.468] restarts <- computeRestarts(cond) 1564s [00:52:44.468] for (restart in restarts) { 1564s [00:52:44.468] name <- restart$name 1564s [00:52:44.468] if (is.null(name)) 1564s [00:52:44.468] next 1564s [00:52:44.468] if (!grepl(pattern, name)) 1564s [00:52:44.468] next 1564s [00:52:44.468] invokeRestart(restart) 1564s [00:52:44.468] muffled <- TRUE 1564s [00:52:44.468] break 1564s [00:52:44.468] } 1564s [00:52:44.468] } 1564s [00:52:44.468] } 1564s [00:52:44.468] invisible(muffled) 1564s [00:52:44.468] } 1564s [00:52:44.468] muffleCondition(cond, pattern = "^muffle") 1564s [00:52:44.468] } 1564s [00:52:44.468] } 1564s [00:52:44.468] else { 1564s [00:52:44.468] if (TRUE) { 1564s [00:52:44.468] muffleCondition <- function (cond, pattern = "^muffle") 1564s [00:52:44.468] { 1564s [00:52:44.468] inherits <- base::inherits 1564s [00:52:44.468] invokeRestart <- base::invokeRestart 1564s [00:52:44.468] is.null <- base::is.null 1564s [00:52:44.468] muffled <- FALSE 1564s [00:52:44.468] if (inherits(cond, "message")) { 1564s [00:52:44.468] muffled <- grepl(pattern, "muffleMessage") 1564s [00:52:44.468] if (muffled) 1564s [00:52:44.468] invokeRestart("muffleMessage") 1564s [00:52:44.468] } 1564s [00:52:44.468] else if (inherits(cond, "warning")) { 1564s [00:52:44.468] muffled <- grepl(pattern, "muffleWarning") 1564s [00:52:44.468] if (muffled) 1564s [00:52:44.468] invokeRestart("muffleWarning") 1564s [00:52:44.468] } 1564s [00:52:44.468] else if (inherits(cond, "condition")) { 1564s [00:52:44.468] if (!is.null(pattern)) { 1564s [00:52:44.468] computeRestarts <- base::computeRestarts 1564s [00:52:44.468] grepl <- base::grepl 1564s [00:52:44.468] restarts <- computeRestarts(cond) 1564s [00:52:44.468] for (restart in restarts) { 1564s [00:52:44.468] name <- restart$name 1564s [00:52:44.468] if (is.null(name)) 1564s [00:52:44.468] next 1564s [00:52:44.468] if (!grepl(pattern, name)) 1564s [00:52:44.468] next 1564s [00:52:44.468] invokeRestart(restart) 1564s [00:52:44.468] muffled <- TRUE 1564s [00:52:44.468] break 1564s [00:52:44.468] } 1564s [00:52:44.468] } 1564s [00:52:44.468] } 1564s [00:52:44.468] invisible(muffled) 1564s [00:52:44.468] } 1564s [00:52:44.468] muffleCondition(cond, pattern = "^muffle") 1564s [00:52:44.468] } 1564s [00:52:44.468] } 1564s [00:52:44.468] } 1564s [00:52:44.468] })) 1564s [00:52:44.468] }, error = function(ex) { 1564s [00:52:44.468] base::structure(base::list(value = NULL, visible = NULL, 1564s [00:52:44.468] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1564s [00:52:44.468] ...future.rng), started = ...future.startTime, 1564s [00:52:44.468] finished = Sys.time(), session_uuid = NA_character_, 1564s [00:52:44.468] version = "1.8"), class = "FutureResult") 1564s [00:52:44.468] }, finally = { 1564s [00:52:44.468] if (!identical(...future.workdir, getwd())) 1564s [00:52:44.468] setwd(...future.workdir) 1564s [00:52:44.468] { 1564s [00:52:44.468] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1564s [00:52:44.468] ...future.oldOptions$nwarnings <- NULL 1564s [00:52:44.468] } 1564s [00:52:44.468] base::options(...future.oldOptions) 1564s [00:52:44.468] if (.Platform$OS.type == "windows") { 1564s [00:52:44.468] old_names <- names(...future.oldEnvVars) 1564s [00:52:44.468] envs <- base::Sys.getenv() 1564s [00:52:44.468] names <- names(envs) 1564s [00:52:44.468] common <- intersect(names, old_names) 1564s [00:52:44.468] added <- setdiff(names, old_names) 1564s [00:52:44.468] removed <- setdiff(old_names, names) 1564s [00:52:44.468] changed <- common[...future.oldEnvVars[common] != 1564s [00:52:44.468] envs[common]] 1564s [00:52:44.468] NAMES <- toupper(changed) 1564s [00:52:44.468] args <- list() 1564s [00:52:44.468] for (kk in seq_along(NAMES)) { 1564s [00:52:44.468] name <- changed[[kk]] 1564s [00:52:44.468] NAME <- NAMES[[kk]] 1564s [00:52:44.468] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:44.468] next 1564s [00:52:44.468] args[[name]] <- ...future.oldEnvVars[[name]] 1564s [00:52:44.468] } 1564s [00:52:44.468] NAMES <- toupper(added) 1564s [00:52:44.468] for (kk in seq_along(NAMES)) { 1564s [00:52:44.468] name <- added[[kk]] 1564s [00:52:44.468] NAME <- NAMES[[kk]] 1564s [00:52:44.468] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:44.468] next 1564s [00:52:44.468] args[[name]] <- "" 1564s [00:52:44.468] } 1564s [00:52:44.468] NAMES <- toupper(removed) 1564s [00:52:44.468] for (kk in seq_along(NAMES)) { 1564s [00:52:44.468] name <- removed[[kk]] 1564s [00:52:44.468] NAME <- NAMES[[kk]] 1564s [00:52:44.468] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:44.468] next 1564s [00:52:44.468] args[[name]] <- ...future.oldEnvVars[[name]] 1564s [00:52:44.468] } 1564s [00:52:44.468] if (length(args) > 0) 1564s [00:52:44.468] base::do.call(base::Sys.setenv, args = args) 1564s [00:52:44.468] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1564s [00:52:44.468] } 1564s [00:52:44.468] else { 1564s [00:52:44.468] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1564s [00:52:44.468] } 1564s [00:52:44.468] { 1564s [00:52:44.468] if (base::length(...future.futureOptionsAdded) > 1564s [00:52:44.468] 0L) { 1564s [00:52:44.468] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1564s [00:52:44.468] base::names(opts) <- ...future.futureOptionsAdded 1564s [00:52:44.468] base::options(opts) 1564s [00:52:44.468] } 1564s [00:52:44.468] { 1564s [00:52:44.468] { 1564s [00:52:44.468] base::assign(".Random.seed", c(10407L, -193111136L, 1564s [00:52:44.468] 1998638665L, 1795077819L, 549408344L, 564105141L, 1564s [00:52:44.468] -308065669L), envir = base::globalenv(), 1564s [00:52:44.468] inherits = FALSE) 1564s [00:52:44.468] NULL 1564s [00:52:44.468] } 1564s [00:52:44.468] options(future.plan = NULL) 1564s [00:52:44.468] if (is.na(NA_character_)) 1564s [00:52:44.468] Sys.unsetenv("R_FUTURE_PLAN") 1564s [00:52:44.468] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1564s [00:52:44.468] future::plan(list(function (..., workers = availableCores(), 1564s [00:52:44.468] lazy = FALSE, rscript_libs = .libPaths(), 1564s [00:52:44.468] envir = parent.frame()) 1564s [00:52:44.468] { 1564s [00:52:44.468] if (is.function(workers)) 1564s [00:52:44.468] workers <- workers() 1564s [00:52:44.468] workers <- structure(as.integer(workers), 1564s [00:52:44.468] class = class(workers)) 1564s [00:52:44.468] stop_if_not(length(workers) == 1, is.finite(workers), 1564s [00:52:44.468] workers >= 1) 1564s [00:52:44.468] if (workers == 1L && !inherits(workers, "AsIs")) { 1564s [00:52:44.468] return(sequential(..., lazy = TRUE, envir = envir)) 1564s [00:52:44.468] } 1564s [00:52:44.468] future <- MultisessionFuture(..., workers = workers, 1564s [00:52:44.468] lazy = lazy, rscript_libs = rscript_libs, 1564s [00:52:44.468] envir = envir) 1564s [00:52:44.468] if (!future$lazy) 1564s [00:52:44.468] future <- run(future) 1564s [00:52:44.468] invisible(future) 1564s [00:52:44.468] }), .cleanup = FALSE, .init = FALSE) 1564s [00:52:44.468] } 1564s [00:52:44.468] } 1564s [00:52:44.468] } 1564s [00:52:44.468] }) 1564s [00:52:44.468] if (TRUE) { 1564s [00:52:44.468] base::sink(type = "output", split = FALSE) 1564s [00:52:44.468] if (TRUE) { 1564s [00:52:44.468] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1564s [00:52:44.468] } 1564s [00:52:44.468] else { 1564s [00:52:44.468] ...future.result["stdout"] <- base::list(NULL) 1564s [00:52:44.468] } 1564s [00:52:44.468] base::close(...future.stdout) 1564s [00:52:44.468] ...future.stdout <- NULL 1564s [00:52:44.468] } 1564s [00:52:44.468] ...future.result$conditions <- ...future.conditions 1564s [00:52:44.468] ...future.result$finished <- base::Sys.time() 1564s [00:52:44.468] ...future.result 1564s [00:52:44.468] } 1564s [00:52:44.475] assign_globals() ... 1564s [00:52:44.476] List of 5 1564s [00:52:44.476] $ ...future.FUN :function (C, k) 1564s [00:52:44.476] $ MoreArgs : NULL 1564s [00:52:44.476] $ ...future.elements_ii :List of 2 1564s [00:52:44.476] ..$ :List of 1 1564s [00:52:44.476] .. ..$ : chr "D" 1564s [00:52:44.476] ..$ :List of 1 1564s [00:52:44.476] .. ..$ : int 2 1564s [00:52:44.476] $ ...future.seeds_ii : NULL 1564s [00:52:44.476] $ ...future.globals.maxSize: NULL 1564s [00:52:44.476] - attr(*, "where")=List of 5 1564s [00:52:44.476] ..$ ...future.FUN : 1564s [00:52:44.476] ..$ MoreArgs : 1564s [00:52:44.476] ..$ ...future.elements_ii : 1564s [00:52:44.476] ..$ ...future.seeds_ii : 1564s [00:52:44.476] ..$ ...future.globals.maxSize: 1564s [00:52:44.476] - attr(*, "resolved")= logi FALSE 1564s [00:52:44.476] - attr(*, "total_size")= num 3488 1564s [00:52:44.476] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1564s [00:52:44.476] - attr(*, "already-done")= logi TRUE 1564s [00:52:44.484] - reassign environment for ‘...future.FUN’ 1564s [00:52:44.484] - copied ‘...future.FUN’ to environment 1564s [00:52:44.484] - copied ‘MoreArgs’ to environment 1564s [00:52:44.485] - copied ‘...future.elements_ii’ to environment 1564s [00:52:44.485] - copied ‘...future.seeds_ii’ to environment 1564s [00:52:44.485] - copied ‘...future.globals.maxSize’ to environment 1564s [00:52:44.485] assign_globals() ... done 1564s [00:52:44.486] plan(): Setting new future strategy stack: 1564s [00:52:44.486] List of future strategies: 1564s [00:52:44.486] 1. sequential: 1564s [00:52:44.486] - args: function (..., envir = parent.frame()) 1564s [00:52:44.486] - tweaked: FALSE 1564s [00:52:44.486] - call: NULL 1564s [00:52:44.486] plan(): nbrOfWorkers() = 1 1564s [00:52:44.487] plan(): Setting new future strategy stack: 1564s [00:52:44.487] List of future strategies: 1564s [00:52:44.487] 1. multisession: 1564s [00:52:44.487] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1564s [00:52:44.487] - tweaked: FALSE 1564s [00:52:44.487] - call: plan(strategy) 1564s [00:52:44.492] plan(): nbrOfWorkers() = 1 1564s [00:52:44.492] SequentialFuture started (and completed) 1564s [00:52:44.492] - Launch lazy future ... done 1564s [00:52:44.492] run() for ‘SequentialFuture’ ... done 1564s [00:52:44.492] Created future: 1564s [00:52:44.493] SequentialFuture: 1564s [00:52:44.493] Label: ‘future_mapply-2’ 1564s [00:52:44.493] Expression: 1564s [00:52:44.493] { 1564s [00:52:44.493] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1564s [00:52:44.493] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1564s [00:52:44.493] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1564s [00:52:44.493] on.exit(options(oopts), add = TRUE) 1564s [00:52:44.493] } 1564s [00:52:44.493] { 1564s [00:52:44.493] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1564s [00:52:44.493] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1564s [00:52:44.493] do.call(mapply, args = args) 1564s [00:52:44.493] } 1564s [00:52:44.493] } 1564s [00:52:44.493] Lazy evaluation: FALSE 1564s [00:52:44.493] Asynchronous evaluation: FALSE 1564s [00:52:44.493] Local evaluation: TRUE 1564s [00:52:44.493] Environment: R_GlobalEnv 1564s [00:52:44.493] Capture standard output: TRUE 1564s [00:52:44.493] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1564s [00:52:44.493] Globals: 5 objects totaling 3.41 KiB (function ‘...future.FUN’ of 3.24 KiB, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1564s [00:52:44.493] Packages: 1564s [00:52:44.493] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1564s [00:52:44.493] Resolved: TRUE 1564s [00:52:44.493] Value: 112 bytes of class ‘list’ 1564s [00:52:44.493] Early signaling: FALSE 1564s [00:52:44.493] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1564s [00:52:44.493] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1564s [00:52:44.494] Chunk #2 of 3 ... DONE 1564s [00:52:44.494] Chunk #3 of 3 ... 1564s [00:52:44.494] - Finding globals in '...' for chunk #3 ... 1564s [00:52:44.495] getGlobalsAndPackages() ... 1564s [00:52:44.495] Searching for globals... 1564s [00:52:44.495] 1564s [00:52:44.495] Searching for globals ... DONE 1564s [00:52:44.496] - globals: [0] 1564s [00:52:44.496] getGlobalsAndPackages() ... DONE 1564s [00:52:44.496] + additional globals found: [n=0] 1564s [00:52:44.496] + additional namespaces needed: [n=0] 1564s [00:52:44.496] - Finding globals in '...' for chunk #3 ... DONE 1564s [00:52:44.496] - Adjusted option 'future.globals.maxSize': 524288000 -> 3 * 524288000 = 1572864000 (bytes) 1564s [00:52:44.497] - seeds: 1564s [00:52:44.497] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:44.497] getGlobalsAndPackages() ... 1564s [00:52:44.497] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:44.497] Resolving globals: FALSE 1564s [00:52:44.498] The total size of the 5 globals is 3.57 KiB (3656 bytes) 1564s [00:52:44.498] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 3.57 KiB.. This exceeds the maximum allowed size of 1.46 GiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (3.24 KiB of class ‘function’), ‘...future.elements_ii’ (336 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1564s [00:52:44.499] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:44.499] 1564s [00:52:44.499] getGlobalsAndPackages() ... DONE 1564s [00:52:44.500] run() for ‘Future’ ... 1564s [00:52:44.500] - state: ‘created’ 1564s [00:52:44.500] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1564s [00:52:44.504] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1564s [00:52:44.505] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1564s [00:52:44.505] - Field: ‘label’ 1564s [00:52:44.505] - Field: ‘local’ 1564s [00:52:44.505] - Field: ‘owner’ 1564s [00:52:44.505] - Field: ‘envir’ 1564s [00:52:44.505] - Field: ‘packages’ 1564s [00:52:44.506] - Field: ‘gc’ 1564s [00:52:44.506] - Field: ‘conditions’ 1564s [00:52:44.506] - Field: ‘expr’ 1564s [00:52:44.506] - Field: ‘uuid’ 1564s [00:52:44.506] - Field: ‘seed’ 1564s [00:52:44.507] - Field: ‘version’ 1564s [00:52:44.507] - Field: ‘result’ 1564s [00:52:44.507] - Field: ‘asynchronous’ 1564s [00:52:44.507] - Field: ‘calls’ 1564s [00:52:44.507] - Field: ‘globals’ 1564s [00:52:44.507] - Field: ‘stdout’ 1564s [00:52:44.507] - Field: ‘earlySignal’ 1564s [00:52:44.508] - Field: ‘lazy’ 1564s [00:52:44.508] - Field: ‘state’ 1564s [00:52:44.508] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1564s [00:52:44.508] - Launch lazy future ... 1564s [00:52:44.508] Packages needed by the future expression (n = 0): 1564s [00:52:44.509] Packages needed by future strategies (n = 0): 1564s [00:52:44.509] { 1564s [00:52:44.509] { 1564s [00:52:44.509] { 1564s [00:52:44.509] ...future.startTime <- base::Sys.time() 1564s [00:52:44.509] { 1564s [00:52:44.509] { 1564s [00:52:44.509] { 1564s [00:52:44.509] base::local({ 1564s [00:52:44.509] has_future <- base::requireNamespace("future", 1564s [00:52:44.509] quietly = TRUE) 1564s [00:52:44.509] if (has_future) { 1564s [00:52:44.509] ns <- base::getNamespace("future") 1564s [00:52:44.509] version <- ns[[".package"]][["version"]] 1564s [00:52:44.509] if (is.null(version)) 1564s [00:52:44.509] version <- utils::packageVersion("future") 1564s [00:52:44.509] } 1564s [00:52:44.509] else { 1564s [00:52:44.509] version <- NULL 1564s [00:52:44.509] } 1564s [00:52:44.509] if (!has_future || version < "1.8.0") { 1564s [00:52:44.509] info <- base::c(r_version = base::gsub("R version ", 1564s [00:52:44.509] "", base::R.version$version.string), 1564s [00:52:44.509] platform = base::sprintf("%s (%s-bit)", 1564s [00:52:44.509] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1564s [00:52:44.509] os = base::paste(base::Sys.info()[base::c("sysname", 1564s [00:52:44.509] "release", "version")], collapse = " "), 1564s [00:52:44.509] hostname = base::Sys.info()[["nodename"]]) 1564s [00:52:44.509] info <- base::sprintf("%s: %s", base::names(info), 1564s [00:52:44.509] info) 1564s [00:52:44.509] info <- base::paste(info, collapse = "; ") 1564s [00:52:44.509] if (!has_future) { 1564s [00:52:44.509] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1564s [00:52:44.509] info) 1564s [00:52:44.509] } 1564s [00:52:44.509] else { 1564s [00:52:44.509] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1564s [00:52:44.509] info, version) 1564s [00:52:44.509] } 1564s [00:52:44.509] base::stop(msg) 1564s [00:52:44.509] } 1564s [00:52:44.509] }) 1564s [00:52:44.509] } 1564s [00:52:44.509] options(future.plan = NULL) 1564s [00:52:44.509] Sys.unsetenv("R_FUTURE_PLAN") 1564s [00:52:44.509] future::plan("default", .cleanup = FALSE, .init = FALSE) 1564s [00:52:44.509] } 1564s [00:52:44.509] ...future.workdir <- getwd() 1564s [00:52:44.509] } 1564s [00:52:44.509] ...future.oldOptions <- base::as.list(base::.Options) 1564s [00:52:44.509] ...future.oldEnvVars <- base::Sys.getenv() 1564s [00:52:44.509] } 1564s [00:52:44.509] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1564s [00:52:44.509] future.globals.maxSize = 1572864000, future.globals.method = NULL, 1564s [00:52:44.509] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1564s [00:52:44.509] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1564s [00:52:44.509] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1564s [00:52:44.509] future.stdout.windows.reencode = NULL, width = 80L) 1564s [00:52:44.509] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1564s [00:52:44.509] base::names(...future.oldOptions)) 1564s [00:52:44.509] } 1564s [00:52:44.509] if (FALSE) { 1564s [00:52:44.509] } 1564s [00:52:44.509] else { 1564s [00:52:44.509] if (TRUE) { 1564s [00:52:44.509] ...future.stdout <- base::rawConnection(base::raw(0L), 1564s [00:52:44.509] open = "w") 1564s [00:52:44.509] } 1564s [00:52:44.509] else { 1564s [00:52:44.509] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1564s [00:52:44.509] windows = "NUL", "/dev/null"), open = "w") 1564s [00:52:44.509] } 1564s [00:52:44.509] base::sink(...future.stdout, type = "output", split = FALSE) 1564s [00:52:44.509] base::on.exit(if (!base::is.null(...future.stdout)) { 1564s [00:52:44.509] base::sink(type = "output", split = FALSE) 1564s [00:52:44.509] base::close(...future.stdout) 1564s [00:52:44.509] }, add = TRUE) 1564s [00:52:44.509] } 1564s [00:52:44.509] ...future.frame <- base::sys.nframe() 1564s [00:52:44.509] ...future.conditions <- base::list() 1564s [00:52:44.509] ...future.rng <- base::globalenv()$.Random.seed 1564s [00:52:44.509] if (FALSE) { 1564s [00:52:44.509] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1564s [00:52:44.509] "...future.value", "...future.globalenv.names", ".Random.seed") 1564s [00:52:44.509] } 1564s [00:52:44.509] ...future.result <- base::tryCatch({ 1564s [00:52:44.509] base::withCallingHandlers({ 1564s [00:52:44.509] ...future.value <- base::withVisible(base::local({ 1564s [00:52:44.509] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1564s [00:52:44.509] if (!identical(...future.globals.maxSize.org, 1564s [00:52:44.509] ...future.globals.maxSize)) { 1564s [00:52:44.509] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1564s [00:52:44.509] on.exit(options(oopts), add = TRUE) 1564s [00:52:44.509] } 1564s [00:52:44.509] { 1564s [00:52:44.509] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1564s [00:52:44.509] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1564s [00:52:44.509] USE.NAMES = FALSE) 1564s [00:52:44.509] do.call(mapply, args = args) 1564s [00:52:44.509] } 1564s [00:52:44.509] })) 1564s [00:52:44.509] future::FutureResult(value = ...future.value$value, 1564s [00:52:44.509] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1564s [00:52:44.509] ...future.rng), globalenv = if (FALSE) 1564s [00:52:44.509] list(added = base::setdiff(base::names(base::.GlobalEnv), 1564s [00:52:44.509] ...future.globalenv.names)) 1564s [00:52:44.509] else NULL, started = ...future.startTime, version = "1.8") 1564s [00:52:44.509] }, condition = base::local({ 1564s [00:52:44.509] c <- base::c 1564s [00:52:44.509] inherits <- base::inherits 1564s [00:52:44.509] invokeRestart <- base::invokeRestart 1564s [00:52:44.509] length <- base::length 1564s [00:52:44.509] list <- base::list 1564s [00:52:44.509] seq.int <- base::seq.int 1564s [00:52:44.509] signalCondition <- base::signalCondition 1564s [00:52:44.509] sys.calls <- base::sys.calls 1564s [00:52:44.509] `[[` <- base::`[[` 1564s [00:52:44.509] `+` <- base::`+` 1564s [00:52:44.509] `<<-` <- base::`<<-` 1564s [00:52:44.509] sysCalls <- function(calls = sys.calls(), from = 1L) { 1564s [00:52:44.509] calls[seq.int(from = from + 12L, to = length(calls) - 1564s [00:52:44.509] 3L)] 1564s [00:52:44.509] } 1564s [00:52:44.509] function(cond) { 1564s [00:52:44.509] is_error <- inherits(cond, "error") 1564s [00:52:44.509] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1564s [00:52:44.509] NULL) 1564s [00:52:44.509] if (is_error) { 1564s [00:52:44.509] sessionInformation <- function() { 1564s [00:52:44.509] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1564s [00:52:44.509] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1564s [00:52:44.509] search = base::search(), system = base::Sys.info()) 1564s [00:52:44.509] } 1564s [00:52:44.509] ...future.conditions[[length(...future.conditions) + 1564s [00:52:44.509] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1564s [00:52:44.509] cond$call), session = sessionInformation(), 1564s [00:52:44.509] timestamp = base::Sys.time(), signaled = 0L) 1564s [00:52:44.509] signalCondition(cond) 1564s [00:52:44.509] } 1564s [00:52:44.509] else if (!ignore && TRUE && inherits(cond, c("condition", 1564s [00:52:44.509] "immediateCondition"))) { 1564s [00:52:44.509] signal <- TRUE && inherits(cond, "immediateCondition") 1564s [00:52:44.509] ...future.conditions[[length(...future.conditions) + 1564s [00:52:44.509] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1564s [00:52:44.509] if (TRUE && !signal) { 1564s [00:52:44.509] muffleCondition <- function (cond, pattern = "^muffle") 1564s [00:52:44.509] { 1564s [00:52:44.509] inherits <- base::inherits 1564s [00:52:44.509] invokeRestart <- base::invokeRestart 1564s [00:52:44.509] is.null <- base::is.null 1564s [00:52:44.509] muffled <- FALSE 1564s [00:52:44.509] if (inherits(cond, "message")) { 1564s [00:52:44.509] muffled <- grepl(pattern, "muffleMessage") 1564s [00:52:44.509] if (muffled) 1564s [00:52:44.509] invokeRestart("muffleMessage") 1564s [00:52:44.509] } 1564s [00:52:44.509] else if (inherits(cond, "warning")) { 1564s [00:52:44.509] muffled <- grepl(pattern, "muffleWarning") 1564s [00:52:44.509] if (muffled) 1564s [00:52:44.509] invokeRestart("muffleWarning") 1564s [00:52:44.509] } 1564s [00:52:44.509] else if (inherits(cond, "condition")) { 1564s [00:52:44.509] if (!is.null(pattern)) { 1564s [00:52:44.509] computeRestarts <- base::computeRestarts 1564s [00:52:44.509] grepl <- base::grepl 1564s [00:52:44.509] restarts <- computeRestarts(cond) 1564s [00:52:44.509] for (restart in restarts) { 1564s [00:52:44.509] name <- restart$name 1564s [00:52:44.509] if (is.null(name)) 1564s [00:52:44.509] next 1564s [00:52:44.509] if (!grepl(pattern, name)) 1564s [00:52:44.509] next 1564s [00:52:44.509] invokeRestart(restart) 1564s [00:52:44.509] muffled <- TRUE 1564s [00:52:44.509] break 1564s [00:52:44.509] } 1564s [00:52:44.509] } 1564s [00:52:44.509] } 1564s [00:52:44.509] invisible(muffled) 1564s [00:52:44.509] } 1564s [00:52:44.509] muffleCondition(cond, pattern = "^muffle") 1564s [00:52:44.509] } 1564s [00:52:44.509] } 1564s [00:52:44.509] else { 1564s [00:52:44.509] if (TRUE) { 1564s [00:52:44.509] muffleCondition <- function (cond, pattern = "^muffle") 1564s [00:52:44.509] { 1564s [00:52:44.509] inherits <- base::inherits 1564s [00:52:44.509] invokeRestart <- base::invokeRestart 1564s [00:52:44.509] is.null <- base::is.null 1564s [00:52:44.509] muffled <- FALSE 1564s [00:52:44.509] if (inherits(cond, "message")) { 1564s [00:52:44.509] muffled <- grepl(pattern, "muffleMessage") 1564s [00:52:44.509] if (muffled) 1564s [00:52:44.509] invokeRestart("muffleMessage") 1564s [00:52:44.509] } 1564s [00:52:44.509] else if (inherits(cond, "warning")) { 1564s [00:52:44.509] muffled <- grepl(pattern, "muffleWarning") 1564s [00:52:44.509] if (muffled) 1564s [00:52:44.509] invokeRestart("muffleWarning") 1564s [00:52:44.509] } 1564s [00:52:44.509] else if (inherits(cond, "condition")) { 1564s [00:52:44.509] if (!is.null(pattern)) { 1564s [00:52:44.509] computeRestarts <- base::computeRestarts 1564s [00:52:44.509] grepl <- base::grepl 1564s [00:52:44.509] restarts <- computeRestarts(cond) 1564s [00:52:44.509] for (restart in restarts) { 1564s [00:52:44.509] name <- restart$name 1564s [00:52:44.509] if (is.null(name)) 1564s [00:52:44.509] next 1564s [00:52:44.509] if (!grepl(pattern, name)) 1564s [00:52:44.509] next 1564s [00:52:44.509] invokeRestart(restart) 1564s [00:52:44.509] muffled <- TRUE 1564s [00:52:44.509] break 1564s [00:52:44.509] } 1564s [00:52:44.509] } 1564s [00:52:44.509] } 1564s [00:52:44.509] invisible(muffled) 1564s [00:52:44.509] } 1564s [00:52:44.509] muffleCondition(cond, pattern = "^muffle") 1564s [00:52:44.509] } 1564s [00:52:44.509] } 1564s [00:52:44.509] } 1564s [00:52:44.509] })) 1564s [00:52:44.509] }, error = function(ex) { 1564s [00:52:44.509] base::structure(base::list(value = NULL, visible = NULL, 1564s [00:52:44.509] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1564s [00:52:44.509] ...future.rng), started = ...future.startTime, 1564s [00:52:44.509] finished = Sys.time(), session_uuid = NA_character_, 1564s [00:52:44.509] version = "1.8"), class = "FutureResult") 1564s [00:52:44.509] }, finally = { 1564s [00:52:44.509] if (!identical(...future.workdir, getwd())) 1564s [00:52:44.509] setwd(...future.workdir) 1564s [00:52:44.509] { 1564s [00:52:44.509] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1564s [00:52:44.509] ...future.oldOptions$nwarnings <- NULL 1564s [00:52:44.509] } 1564s [00:52:44.509] base::options(...future.oldOptions) 1564s [00:52:44.509] if (.Platform$OS.type == "windows") { 1564s [00:52:44.509] old_names <- names(...future.oldEnvVars) 1564s [00:52:44.509] envs <- base::Sys.getenv() 1564s [00:52:44.509] names <- names(envs) 1564s [00:52:44.509] common <- intersect(names, old_names) 1564s [00:52:44.509] added <- setdiff(names, old_names) 1564s [00:52:44.509] removed <- setdiff(old_names, names) 1564s [00:52:44.509] changed <- common[...future.oldEnvVars[common] != 1564s [00:52:44.509] envs[common]] 1564s [00:52:44.509] NAMES <- toupper(changed) 1564s [00:52:44.509] args <- list() 1564s [00:52:44.509] for (kk in seq_along(NAMES)) { 1564s [00:52:44.509] name <- changed[[kk]] 1564s [00:52:44.509] NAME <- NAMES[[kk]] 1564s [00:52:44.509] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:44.509] next 1564s [00:52:44.509] args[[name]] <- ...future.oldEnvVars[[name]] 1564s [00:52:44.509] } 1564s [00:52:44.509] NAMES <- toupper(added) 1564s [00:52:44.509] for (kk in seq_along(NAMES)) { 1564s [00:52:44.509] name <- added[[kk]] 1564s [00:52:44.509] NAME <- NAMES[[kk]] 1564s [00:52:44.509] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:44.509] next 1564s [00:52:44.509] args[[name]] <- "" 1564s [00:52:44.509] } 1564s [00:52:44.509] NAMES <- toupper(removed) 1564s [00:52:44.509] for (kk in seq_along(NAMES)) { 1564s [00:52:44.509] name <- removed[[kk]] 1564s [00:52:44.509] NAME <- NAMES[[kk]] 1564s [00:52:44.509] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:44.509] next 1564s [00:52:44.509] args[[name]] <- ...future.oldEnvVars[[name]] 1564s [00:52:44.509] } 1564s [00:52:44.509] if (length(args) > 0) 1564s [00:52:44.509] base::do.call(base::Sys.setenv, args = args) 1564s [00:52:44.509] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1564s [00:52:44.509] } 1564s [00:52:44.509] else { 1564s [00:52:44.509] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1564s [00:52:44.509] } 1564s [00:52:44.509] { 1564s [00:52:44.509] if (base::length(...future.futureOptionsAdded) > 1564s [00:52:44.509] 0L) { 1564s [00:52:44.509] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1564s [00:52:44.509] base::names(opts) <- ...future.futureOptionsAdded 1564s [00:52:44.509] base::options(opts) 1564s [00:52:44.509] } 1564s [00:52:44.509] { 1564s [00:52:44.509] { 1564s [00:52:44.509] base::assign(".Random.seed", c(10407L, -193111136L, 1564s [00:52:44.509] 1998638665L, 1795077819L, 549408344L, 564105141L, 1564s [00:52:44.509] -308065669L), envir = base::globalenv(), 1564s [00:52:44.509] inherits = FALSE) 1564s [00:52:44.509] NULL 1564s [00:52:44.509] } 1564s [00:52:44.509] options(future.plan = NULL) 1564s [00:52:44.509] if (is.na(NA_character_)) 1564s [00:52:44.509] Sys.unsetenv("R_FUTURE_PLAN") 1564s [00:52:44.509] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1564s [00:52:44.509] future::plan(list(function (..., workers = availableCores(), 1564s [00:52:44.509] lazy = FALSE, rscript_libs = .libPaths(), 1564s [00:52:44.509] envir = parent.frame()) 1564s [00:52:44.509] { 1564s [00:52:44.509] if (is.function(workers)) 1564s [00:52:44.509] workers <- workers() 1564s [00:52:44.509] workers <- structure(as.integer(workers), 1564s [00:52:44.509] class = class(workers)) 1564s [00:52:44.509] stop_if_not(length(workers) == 1, is.finite(workers), 1564s [00:52:44.509] workers >= 1) 1564s [00:52:44.509] if (workers == 1L && !inherits(workers, "AsIs")) { 1564s [00:52:44.509] return(sequential(..., lazy = TRUE, envir = envir)) 1564s [00:52:44.509] } 1564s [00:52:44.509] future <- MultisessionFuture(..., workers = workers, 1564s [00:52:44.509] lazy = lazy, rscript_libs = rscript_libs, 1564s [00:52:44.509] envir = envir) 1564s [00:52:44.509] if (!future$lazy) 1564s [00:52:44.509] future <- run(future) 1564s [00:52:44.509] invisible(future) 1564s [00:52:44.509] }), .cleanup = FALSE, .init = FALSE) 1564s [00:52:44.509] } 1564s [00:52:44.509] } 1564s [00:52:44.509] } 1564s [00:52:44.509] }) 1564s [00:52:44.509] if (TRUE) { 1564s [00:52:44.509] base::sink(type = "output", split = FALSE) 1564s [00:52:44.509] if (TRUE) { 1564s [00:52:44.509] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1564s [00:52:44.509] } 1564s [00:52:44.509] else { 1564s [00:52:44.509] ...future.result["stdout"] <- base::list(NULL) 1564s [00:52:44.509] } 1564s [00:52:44.509] base::close(...future.stdout) 1564s [00:52:44.509] ...future.stdout <- NULL 1564s [00:52:44.509] } 1564s [00:52:44.509] ...future.result$conditions <- ...future.conditions 1564s [00:52:44.509] ...future.result$finished <- base::Sys.time() 1564s [00:52:44.509] ...future.result 1564s [00:52:44.509] } 1564s [00:52:44.513] assign_globals() ... 1564s [00:52:44.514] List of 5 1564s [00:52:44.514] $ ...future.FUN :function (C, k) 1564s [00:52:44.514] $ MoreArgs : NULL 1564s [00:52:44.514] $ ...future.elements_ii :List of 2 1564s [00:52:44.514] ..$ :List of 2 1564s [00:52:44.514] .. ..$ : chr "B" 1564s [00:52:44.514] .. ..$ : chr "C" 1564s [00:52:44.514] ..$ :List of 2 1564s [00:52:44.514] .. ..$ : int 4 1564s [00:52:44.514] .. ..$ : int 3 1564s [00:52:44.514] $ ...future.seeds_ii : NULL 1564s [00:52:44.514] $ ...future.globals.maxSize: NULL 1564s [00:52:44.514] - attr(*, "where")=List of 5 1564s [00:52:44.514] ..$ ...future.FUN : 1564s [00:52:44.514] ..$ MoreArgs : 1564s [00:52:44.514] ..$ ...future.elements_ii : 1564s [00:52:44.514] ..$ ...future.seeds_ii : 1564s [00:52:44.514] ..$ ...future.globals.maxSize: 1564s [00:52:44.514] - attr(*, "resolved")= logi FALSE 1564s [00:52:44.514] - attr(*, "total_size")= num 3656 1564s [00:52:44.514] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1564s [00:52:44.514] - attr(*, "already-done")= logi TRUE 1564s [00:52:44.521] - reassign environment for ‘...future.FUN’ 1564s [00:52:44.522] - copied ‘...future.FUN’ to environment 1564s [00:52:44.522] - copied ‘MoreArgs’ to environment 1564s [00:52:44.522] - copied ‘...future.elements_ii’ to environment 1564s [00:52:44.522] - copied ‘...future.seeds_ii’ to environment 1564s [00:52:44.522] - copied ‘...future.globals.maxSize’ to environment 1564s [00:52:44.522] assign_globals() ... done 1564s [00:52:44.523] plan(): Setting new future strategy stack: 1564s [00:52:44.523] List of future strategies: 1564s [00:52:44.523] 1. sequential: 1564s [00:52:44.523] - args: function (..., envir = parent.frame()) 1564s [00:52:44.523] - tweaked: FALSE 1564s [00:52:44.523] - call: NULL 1564s [00:52:44.523] plan(): nbrOfWorkers() = 1 1564s [00:52:44.524] plan(): Setting new future strategy stack: 1564s [00:52:44.524] List of future strategies: 1564s [00:52:44.524] 1. multisession: 1564s [00:52:44.524] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1564s [00:52:44.524] - tweaked: FALSE 1564s [00:52:44.524] - call: plan(strategy) 1564s [00:52:44.527] plan(): nbrOfWorkers() = 1 1564s [00:52:44.528] SequentialFuture started (and completed) 1564s [00:52:44.528] - Launch lazy future ... done 1564s [00:52:44.528] run() for ‘SequentialFuture’ ... done 1564s [00:52:44.528] Created future: 1564s [00:52:44.528] SequentialFuture: 1564s [00:52:44.528] Label: ‘future_mapply-3’ 1564s [00:52:44.528] Expression: 1564s [00:52:44.528] { 1564s [00:52:44.528] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1564s [00:52:44.528] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1564s [00:52:44.528] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1564s [00:52:44.528] on.exit(options(oopts), add = TRUE) 1564s [00:52:44.528] } 1564s [00:52:44.528] { 1564s [00:52:44.528] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1564s [00:52:44.528] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1564s [00:52:44.528] do.call(mapply, args = args) 1564s [00:52:44.528] } 1564s [00:52:44.528] } 1564s [00:52:44.528] Lazy evaluation: FALSE 1564s [00:52:44.528] Asynchronous evaluation: FALSE 1564s [00:52:44.528] Local evaluation: TRUE 1564s [00:52:44.528] Environment: R_GlobalEnv 1564s [00:52:44.528] Capture standard output: TRUE 1564s [00:52:44.528] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1564s [00:52:44.528] Globals: 5 objects totaling 3.57 KiB (function ‘...future.FUN’ of 3.24 KiB, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1564s [00:52:44.528] Packages: 1564s [00:52:44.528] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1564s [00:52:44.528] Resolved: TRUE 1564s [00:52:44.528] Value: 224 bytes of class ‘list’ 1564s [00:52:44.528] Early signaling: FALSE 1564s [00:52:44.528] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1564s [00:52:44.528] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1564s [00:52:44.529] Chunk #3 of 3 ... DONE 1564s [00:52:44.530] Launching 3 futures (chunks) ... DONE 1564s [00:52:44.530] Resolving 3 futures (chunks) ... 1564s [00:52:44.530] resolve() on list ... 1564s [00:52:44.530] recursive: 0 1564s [00:52:44.530] length: 3 1564s [00:52:44.530] 1564s [00:52:44.530] resolved() for ‘SequentialFuture’ ... 1564s [00:52:44.531] - state: ‘finished’ 1564s [00:52:44.531] - run: TRUE 1564s [00:52:44.531] - result: ‘FutureResult’ 1564s [00:52:44.531] resolved() for ‘SequentialFuture’ ... done 1564s [00:52:44.531] Future #1 1564s [00:52:44.531] signalConditionsASAP(SequentialFuture, pos=1) ... 1564s [00:52:44.532] - nx: 3 1564s [00:52:44.532] - relay: TRUE 1564s [00:52:44.532] - stdout: TRUE 1564s [00:52:44.532] - signal: TRUE 1564s [00:52:44.532] - resignal: FALSE 1564s [00:52:44.532] - force: TRUE 1564s [00:52:44.532] - relayed: [n=3] FALSE, FALSE, FALSE 1564s [00:52:44.532] - queued futures: [n=3] FALSE, FALSE, FALSE 1564s [00:52:44.533] - until=1 1564s [00:52:44.533] - relaying element #1 1564s [00:52:44.533] - relayed: [n=3] TRUE, FALSE, FALSE 1564s [00:52:44.533] - queued futures: [n=3] TRUE, FALSE, FALSE 1564s [00:52:44.533] signalConditionsASAP(SequentialFuture, pos=1) ... done 1564s [00:52:44.533] length: 2 (resolved future 1) 1564s [00:52:44.534] resolved() for ‘SequentialFuture’ ... 1564s [00:52:44.534] - state: ‘finished’ 1564s [00:52:44.534] - run: TRUE 1564s [00:52:44.534] - result: ‘FutureResult’ 1564s [00:52:44.534] resolved() for ‘SequentialFuture’ ... done 1564s [00:52:44.534] Future #2 1564s [00:52:44.535] signalConditionsASAP(SequentialFuture, pos=2) ... 1564s [00:52:44.535] - nx: 3 1564s [00:52:44.535] - relay: TRUE 1564s [00:52:44.535] - stdout: TRUE 1564s [00:52:44.535] - signal: TRUE 1564s [00:52:44.535] - resignal: FALSE 1564s [00:52:44.535] - force: TRUE 1564s [00:52:44.536] - relayed: [n=3] TRUE, FALSE, FALSE 1564s [00:52:44.536] - queued futures: [n=3] TRUE, FALSE, FALSE 1564s [00:52:44.536] - until=2 1564s [00:52:44.536] - relaying element #2 1564s [00:52:44.536] - relayed: [n=3] TRUE, TRUE, FALSE 1564s [00:52:44.537] - queued futures: [n=3] TRUE, TRUE, FALSE 1564s [00:52:44.537] signalConditionsASAP(SequentialFuture, pos=2) ... done 1564s [00:52:44.537] length: 1 (resolved future 2) 1564s [00:52:44.537] resolved() for ‘SequentialFuture’ ... 1564s [00:52:44.537] - state: ‘finished’ 1564s [00:52:44.537] - run: TRUE 1564s [00:52:44.538] - result: ‘FutureResult’ 1564s [00:52:44.538] resolved() for ‘SequentialFuture’ ... done 1564s [00:52:44.538] Future #3 1564s [00:52:44.538] signalConditionsASAP(SequentialFuture, pos=3) ... 1564s [00:52:44.538] - nx: 3 1564s [00:52:44.539] - relay: TRUE 1564s [00:52:44.539] - stdout: TRUE 1564s [00:52:44.539] - signal: TRUE 1564s [00:52:44.539] - resignal: FALSE 1564s [00:52:44.539] - force: TRUE 1564s [00:52:44.540] - relayed: [n=3] TRUE, TRUE, FALSE 1564s [00:52:44.540] - queued futures: [n=3] TRUE, TRUE, FALSE 1564s [00:52:44.540] - until=3 1564s [00:52:44.540] - relaying element #3 1564s [00:52:44.540] - relayed: [n=3] TRUE, TRUE, TRUE 1564s [00:52:44.541] - queued futures: [n=3] TRUE, TRUE, TRUE 1564s [00:52:44.541] signalConditionsASAP(SequentialFuture, pos=3) ... done 1564s [00:52:44.541] length: 0 (resolved future 3) 1564s [00:52:44.541] Relaying remaining futures 1564s [00:52:44.541] signalConditionsASAP(NULL, pos=0) ... 1564s [00:52:44.542] - nx: 3 1564s [00:52:44.542] - relay: TRUE 1564s [00:52:44.542] - stdout: TRUE 1564s [00:52:44.542] - signal: TRUE 1564s [00:52:44.542] - resignal: FALSE 1564s [00:52:44.542] - force: TRUE 1564s [00:52:44.543] - relayed: [n=3] TRUE, TRUE, TRUE 1564s [00:52:44.543] - queued futures: [n=3] TRUE, TRUE, TRUE 1564s - flush all 1564s [00:52:44.543] - relayed: [n=3] TRUE, TRUE, TRUE 1564s [00:52:44.543] - queued futures: [n=3] TRUE, TRUE, TRUE 1564s [00:52:44.543] signalConditionsASAP(NULL, pos=0) ... done 1564s [00:52:44.544] resolve() on list ... DONE 1564s [00:52:44.544] - Number of value chunks collected: 3 1564s [00:52:44.544] Resolving 3 futures (chunks) ... DONE 1564s [00:52:44.544] Reducing values from 3 chunks ... 1564s [00:52:44.545] - Number of values collected after concatenation: 5 1564s [00:52:44.545] - Number of values expected: 5 1564s [00:52:44.545] Reverse index remapping (attribute 'ordering'): [n = 5] 2, 4, 5, 3, 1 1564s [00:52:44.545] Reducing values from 3 chunks ... DONE 1564s [00:52:44.545] future_mapply() ... DONE 1564s [00:52:44.545] future_mapply() ... 1564s [00:52:44.549] Number of chunks: 1 1564s [00:52:44.550] getGlobalsAndPackagesXApply() ... 1564s [00:52:44.550] - future.globals: TRUE 1564s [00:52:44.550] getGlobalsAndPackages() ... 1564s [00:52:44.550] Searching for globals... 1564s [00:52:44.552] - globals found: [3] ‘FUN’, ‘paste’, ‘rep.int’ 1564s [00:52:44.552] Searching for globals ... DONE 1564s [00:52:44.553] Resolving globals: FALSE 1564s [00:52:44.553] The total size of the 1 globals is 3.24 KiB (3320 bytes) 1564s [00:52:44.553] The total size of the 1 globals exported for future expression (‘FUN()’) is 3.24 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (3.24 KiB of class ‘function’) 1564s [00:52:44.554] - globals: [1] ‘FUN’ 1564s [00:52:44.554] 1564s [00:52:44.554] getGlobalsAndPackages() ... DONE 1564s [00:52:44.554] - globals found/used: [n=1] ‘FUN’ 1564s [00:52:44.554] - needed namespaces: [n=0] 1564s [00:52:44.554] Finding globals ... DONE 1564s [00:52:44.555] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1564s [00:52:44.555] List of 2 1564s [00:52:44.555] $ ...future.FUN:function (C, k) 1564s [00:52:44.555] $ MoreArgs : list() 1564s [00:52:44.555] - attr(*, "where")=List of 2 1564s [00:52:44.555] ..$ ...future.FUN: 1564s [00:52:44.555] ..$ MoreArgs : 1564s [00:52:44.555] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1564s [00:52:44.555] - attr(*, "resolved")= logi FALSE 1564s [00:52:44.555] - attr(*, "total_size")= num NA 1564s [00:52:44.558] Packages to be attached in all futures: [n=0] 1564s [00:52:44.558] getGlobalsAndPackagesXApply() ... DONE 1564s [00:52:44.558] Number of futures (= number of chunks): 1 1564s [00:52:44.558] Launching 1 futures (chunks) ... 1564s [00:52:44.558] Chunk #1 of 1 ... 1564s [00:52:44.559] - Finding globals in '...' for chunk #1 ... 1564s [00:52:44.559] getGlobalsAndPackages() ... 1564s [00:52:44.559] Searching for globals... 1564s [00:52:44.559] 1564s [00:52:44.559] Searching for globals ... DONE 1564s [00:52:44.560] - globals: [0] 1564s [00:52:44.560] getGlobalsAndPackages() ... DONE 1564s [00:52:44.560] + additional globals found: [n=0] 1564s [00:52:44.560] + additional namespaces needed: [n=0] 1564s [00:52:44.560] - Finding globals in '...' for chunk #1 ... DONE 1564s [00:52:44.561] - seeds: 1564s [00:52:44.561] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:44.561] getGlobalsAndPackages() ... 1564s [00:52:44.561] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:44.561] Resolving globals: FALSE 1564s [00:52:44.562] The total size of the 5 globals is 4.06 KiB (4160 bytes) 1564s [00:52:44.563] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 4.06 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (3.24 KiB of class ‘function’), ‘...future.elements_ii’ (840 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘list’) 1564s [00:52:44.563] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:44.563] 1564s [00:52:44.563] getGlobalsAndPackages() ... DONE 1564s [00:52:44.564] run() for ‘Future’ ... 1564s [00:52:44.564] - state: ‘created’ 1564s [00:52:44.564] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1564s [00:52:44.567] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1564s [00:52:44.567] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1564s [00:52:44.568] - Field: ‘label’ 1564s [00:52:44.568] - Field: ‘local’ 1564s [00:52:44.568] - Field: ‘owner’ 1564s [00:52:44.568] - Field: ‘envir’ 1564s [00:52:44.568] - Field: ‘packages’ 1564s [00:52:44.568] - Field: ‘gc’ 1564s [00:52:44.568] - Field: ‘conditions’ 1564s [00:52:44.569] - Field: ‘expr’ 1564s [00:52:44.569] - Field: ‘uuid’ 1564s [00:52:44.569] - Field: ‘seed’ 1564s [00:52:44.569] - Field: ‘version’ 1564s [00:52:44.569] - Field: ‘result’ 1564s [00:52:44.569] - Field: ‘asynchronous’ 1564s [00:52:44.570] - Field: ‘calls’ 1564s [00:52:44.570] - Field: ‘globals’ 1564s [00:52:44.570] - Field: ‘stdout’ 1564s [00:52:44.570] - Field: ‘earlySignal’ 1564s [00:52:44.570] - Field: ‘lazy’ 1564s [00:52:44.570] - Field: ‘state’ 1564s [00:52:44.571] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1564s [00:52:44.571] - Launch lazy future ... 1564s [00:52:44.571] Packages needed by the future expression (n = 0): 1564s [00:52:44.571] Packages needed by future strategies (n = 0): 1564s [00:52:44.572] { 1564s [00:52:44.572] { 1564s [00:52:44.572] { 1564s [00:52:44.572] ...future.startTime <- base::Sys.time() 1564s [00:52:44.572] { 1564s [00:52:44.572] { 1564s [00:52:44.572] { 1564s [00:52:44.572] base::local({ 1564s [00:52:44.572] has_future <- base::requireNamespace("future", 1564s [00:52:44.572] quietly = TRUE) 1564s [00:52:44.572] if (has_future) { 1564s [00:52:44.572] ns <- base::getNamespace("future") 1564s [00:52:44.572] version <- ns[[".package"]][["version"]] 1564s [00:52:44.572] if (is.null(version)) 1564s [00:52:44.572] version <- utils::packageVersion("future") 1564s [00:52:44.572] } 1564s [00:52:44.572] else { 1564s [00:52:44.572] version <- NULL 1564s [00:52:44.572] } 1564s [00:52:44.572] if (!has_future || version < "1.8.0") { 1564s [00:52:44.572] info <- base::c(r_version = base::gsub("R version ", 1564s [00:52:44.572] "", base::R.version$version.string), 1564s [00:52:44.572] platform = base::sprintf("%s (%s-bit)", 1564s [00:52:44.572] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1564s [00:52:44.572] os = base::paste(base::Sys.info()[base::c("sysname", 1564s [00:52:44.572] "release", "version")], collapse = " "), 1564s [00:52:44.572] hostname = base::Sys.info()[["nodename"]]) 1564s [00:52:44.572] info <- base::sprintf("%s: %s", base::names(info), 1564s [00:52:44.572] info) 1564s [00:52:44.572] info <- base::paste(info, collapse = "; ") 1564s [00:52:44.572] if (!has_future) { 1564s [00:52:44.572] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1564s [00:52:44.572] info) 1564s [00:52:44.572] } 1564s [00:52:44.572] else { 1564s [00:52:44.572] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1564s [00:52:44.572] info, version) 1564s [00:52:44.572] } 1564s [00:52:44.572] base::stop(msg) 1564s [00:52:44.572] } 1564s [00:52:44.572] }) 1564s [00:52:44.572] } 1564s [00:52:44.572] options(future.plan = NULL) 1564s [00:52:44.572] Sys.unsetenv("R_FUTURE_PLAN") 1564s [00:52:44.572] future::plan("default", .cleanup = FALSE, .init = FALSE) 1564s [00:52:44.572] } 1564s [00:52:44.572] ...future.workdir <- getwd() 1564s [00:52:44.572] } 1564s [00:52:44.572] ...future.oldOptions <- base::as.list(base::.Options) 1564s [00:52:44.572] ...future.oldEnvVars <- base::Sys.getenv() 1564s [00:52:44.572] } 1564s [00:52:44.572] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1564s [00:52:44.572] future.globals.maxSize = NULL, future.globals.method = NULL, 1564s [00:52:44.572] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1564s [00:52:44.572] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1564s [00:52:44.572] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1564s [00:52:44.572] future.stdout.windows.reencode = NULL, width = 80L) 1564s [00:52:44.572] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1564s [00:52:44.572] base::names(...future.oldOptions)) 1564s [00:52:44.572] } 1564s [00:52:44.572] if (FALSE) { 1564s [00:52:44.572] } 1564s [00:52:44.572] else { 1564s [00:52:44.572] if (TRUE) { 1564s [00:52:44.572] ...future.stdout <- base::rawConnection(base::raw(0L), 1564s [00:52:44.572] open = "w") 1564s [00:52:44.572] } 1564s [00:52:44.572] else { 1564s [00:52:44.572] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1564s [00:52:44.572] windows = "NUL", "/dev/null"), open = "w") 1564s [00:52:44.572] } 1564s [00:52:44.572] base::sink(...future.stdout, type = "output", split = FALSE) 1564s [00:52:44.572] base::on.exit(if (!base::is.null(...future.stdout)) { 1564s [00:52:44.572] base::sink(type = "output", split = FALSE) 1564s [00:52:44.572] base::close(...future.stdout) 1564s [00:52:44.572] }, add = TRUE) 1564s [00:52:44.572] } 1564s [00:52:44.572] ...future.frame <- base::sys.nframe() 1564s [00:52:44.572] ...future.conditions <- base::list() 1564s [00:52:44.572] ...future.rng <- base::globalenv()$.Random.seed 1564s [00:52:44.572] if (FALSE) { 1564s [00:52:44.572] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1564s [00:52:44.572] "...future.value", "...future.globalenv.names", ".Random.seed") 1564s [00:52:44.572] } 1564s [00:52:44.572] ...future.result <- base::tryCatch({ 1564s [00:52:44.572] base::withCallingHandlers({ 1564s [00:52:44.572] ...future.value <- base::withVisible(base::local({ 1564s [00:52:44.572] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1564s [00:52:44.572] if (!identical(...future.globals.maxSize.org, 1564s [00:52:44.572] ...future.globals.maxSize)) { 1564s [00:52:44.572] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1564s [00:52:44.572] on.exit(options(oopts), add = TRUE) 1564s [00:52:44.572] } 1564s [00:52:44.572] { 1564s [00:52:44.572] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1564s [00:52:44.572] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1564s [00:52:44.572] USE.NAMES = FALSE) 1564s [00:52:44.572] do.call(mapply, args = args) 1564s [00:52:44.572] } 1564s [00:52:44.572] })) 1564s [00:52:44.572] future::FutureResult(value = ...future.value$value, 1564s [00:52:44.572] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1564s [00:52:44.572] ...future.rng), globalenv = if (FALSE) 1564s [00:52:44.572] list(added = base::setdiff(base::names(base::.GlobalEnv), 1564s [00:52:44.572] ...future.globalenv.names)) 1564s [00:52:44.572] else NULL, started = ...future.startTime, version = "1.8") 1564s [00:52:44.572] }, condition = base::local({ 1564s [00:52:44.572] c <- base::c 1564s [00:52:44.572] inherits <- base::inherits 1564s [00:52:44.572] invokeRestart <- base::invokeRestart 1564s [00:52:44.572] length <- base::length 1564s [00:52:44.572] list <- base::list 1564s [00:52:44.572] seq.int <- base::seq.int 1564s [00:52:44.572] signalCondition <- base::signalCondition 1564s [00:52:44.572] sys.calls <- base::sys.calls 1564s [00:52:44.572] `[[` <- base::`[[` 1564s [00:52:44.572] `+` <- base::`+` 1564s [00:52:44.572] `<<-` <- base::`<<-` 1564s [00:52:44.572] sysCalls <- function(calls = sys.calls(), from = 1L) { 1564s [00:52:44.572] calls[seq.int(from = from + 12L, to = length(calls) - 1564s [00:52:44.572] 3L)] 1564s [00:52:44.572] } 1564s [00:52:44.572] function(cond) { 1564s [00:52:44.572] is_error <- inherits(cond, "error") 1564s [00:52:44.572] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1564s [00:52:44.572] NULL) 1564s [00:52:44.572] if (is_error) { 1564s [00:52:44.572] sessionInformation <- function() { 1564s [00:52:44.572] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1564s [00:52:44.572] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1564s [00:52:44.572] search = base::search(), system = base::Sys.info()) 1564s [00:52:44.572] } 1564s [00:52:44.572] ...future.conditions[[length(...future.conditions) + 1564s [00:52:44.572] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1564s [00:52:44.572] cond$call), session = sessionInformation(), 1564s [00:52:44.572] timestamp = base::Sys.time(), signaled = 0L) 1564s [00:52:44.572] signalCondition(cond) 1564s [00:52:44.572] } 1564s [00:52:44.572] else if (!ignore && TRUE && inherits(cond, c("condition", 1564s [00:52:44.572] "immediateCondition"))) { 1564s [00:52:44.572] signal <- TRUE && inherits(cond, "immediateCondition") 1564s [00:52:44.572] ...future.conditions[[length(...future.conditions) + 1564s [00:52:44.572] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1564s [00:52:44.572] if (TRUE && !signal) { 1564s [00:52:44.572] muffleCondition <- function (cond, pattern = "^muffle") 1564s [00:52:44.572] { 1564s [00:52:44.572] inherits <- base::inherits 1564s [00:52:44.572] invokeRestart <- base::invokeRestart 1564s [00:52:44.572] is.null <- base::is.null 1564s [00:52:44.572] muffled <- FALSE 1564s [00:52:44.572] if (inherits(cond, "message")) { 1564s [00:52:44.572] muffled <- grepl(pattern, "muffleMessage") 1564s [00:52:44.572] if (muffled) 1564s [00:52:44.572] invokeRestart("muffleMessage") 1564s [00:52:44.572] } 1564s [00:52:44.572] else if (inherits(cond, "warning")) { 1564s [00:52:44.572] muffled <- grepl(pattern, "muffleWarning") 1564s [00:52:44.572] if (muffled) 1564s [00:52:44.572] invokeRestart("muffleWarning") 1564s [00:52:44.572] } 1564s [00:52:44.572] else if (inherits(cond, "condition")) { 1564s [00:52:44.572] if (!is.null(pattern)) { 1564s [00:52:44.572] computeRestarts <- base::computeRestarts 1564s [00:52:44.572] grepl <- base::grepl 1564s [00:52:44.572] restarts <- computeRestarts(cond) 1564s [00:52:44.572] for (restart in restarts) { 1564s [00:52:44.572] name <- restart$name 1564s [00:52:44.572] if (is.null(name)) 1564s [00:52:44.572] next 1564s [00:52:44.572] if (!grepl(pattern, name)) 1564s [00:52:44.572] next 1564s [00:52:44.572] invokeRestart(restart) 1564s [00:52:44.572] muffled <- TRUE 1564s [00:52:44.572] break 1564s [00:52:44.572] } 1564s [00:52:44.572] } 1564s [00:52:44.572] } 1564s [00:52:44.572] invisible(muffled) 1564s [00:52:44.572] } 1564s [00:52:44.572] muffleCondition(cond, pattern = "^muffle") 1564s [00:52:44.572] } 1564s [00:52:44.572] } 1564s [00:52:44.572] else { 1564s [00:52:44.572] if (TRUE) { 1564s [00:52:44.572] muffleCondition <- function (cond, pattern = "^muffle") 1564s [00:52:44.572] { 1564s [00:52:44.572] inherits <- base::inherits 1564s [00:52:44.572] invokeRestart <- base::invokeRestart 1564s [00:52:44.572] is.null <- base::is.null 1564s [00:52:44.572] muffled <- FALSE 1564s [00:52:44.572] if (inherits(cond, "message")) { 1564s [00:52:44.572] muffled <- grepl(pattern, "muffleMessage") 1564s [00:52:44.572] if (muffled) 1564s [00:52:44.572] invokeRestart("muffleMessage") 1564s [00:52:44.572] } 1564s [00:52:44.572] else if (inherits(cond, "warning")) { 1564s [00:52:44.572] muffled <- grepl(pattern, "muffleWarning") 1564s [00:52:44.572] if (muffled) 1564s [00:52:44.572] invokeRestart("muffleWarning") 1564s [00:52:44.572] } 1564s [00:52:44.572] else if (inherits(cond, "condition")) { 1564s [00:52:44.572] if (!is.null(pattern)) { 1564s [00:52:44.572] computeRestarts <- base::computeRestarts 1564s [00:52:44.572] grepl <- base::grepl 1564s [00:52:44.572] restarts <- computeRestarts(cond) 1564s [00:52:44.572] for (restart in restarts) { 1564s [00:52:44.572] name <- restart$name 1564s [00:52:44.572] if (is.null(name)) 1564s [00:52:44.572] next 1564s [00:52:44.572] if (!grepl(pattern, name)) 1564s [00:52:44.572] next 1564s [00:52:44.572] invokeRestart(restart) 1564s [00:52:44.572] muffled <- TRUE 1564s [00:52:44.572] break 1564s [00:52:44.572] } 1564s [00:52:44.572] } 1564s [00:52:44.572] } 1564s [00:52:44.572] invisible(muffled) 1564s [00:52:44.572] } 1564s [00:52:44.572] muffleCondition(cond, pattern = "^muffle") 1564s [00:52:44.572] } 1564s [00:52:44.572] } 1564s [00:52:44.572] } 1564s [00:52:44.572] })) 1564s [00:52:44.572] }, error = function(ex) { 1564s [00:52:44.572] base::structure(base::list(value = NULL, visible = NULL, 1564s [00:52:44.572] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1564s [00:52:44.572] ...future.rng), started = ...future.startTime, 1564s [00:52:44.572] finished = Sys.time(), session_uuid = NA_character_, 1564s [00:52:44.572] version = "1.8"), class = "FutureResult") 1564s [00:52:44.572] }, finally = { 1564s [00:52:44.572] if (!identical(...future.workdir, getwd())) 1564s [00:52:44.572] setwd(...future.workdir) 1564s [00:52:44.572] { 1564s [00:52:44.572] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1564s [00:52:44.572] ...future.oldOptions$nwarnings <- NULL 1564s [00:52:44.572] } 1564s [00:52:44.572] base::options(...future.oldOptions) 1564s [00:52:44.572] if (.Platform$OS.type == "windows") { 1564s [00:52:44.572] old_names <- names(...future.oldEnvVars) 1564s [00:52:44.572] envs <- base::Sys.getenv() 1564s [00:52:44.572] names <- names(envs) 1564s [00:52:44.572] common <- intersect(names, old_names) 1564s [00:52:44.572] added <- setdiff(names, old_names) 1564s [00:52:44.572] removed <- setdiff(old_names, names) 1564s [00:52:44.572] changed <- common[...future.oldEnvVars[common] != 1564s [00:52:44.572] envs[common]] 1564s [00:52:44.572] NAMES <- toupper(changed) 1564s [00:52:44.572] args <- list() 1564s [00:52:44.572] for (kk in seq_along(NAMES)) { 1564s [00:52:44.572] name <- changed[[kk]] 1564s [00:52:44.572] NAME <- NAMES[[kk]] 1564s [00:52:44.572] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:44.572] next 1564s [00:52:44.572] args[[name]] <- ...future.oldEnvVars[[name]] 1564s [00:52:44.572] } 1564s [00:52:44.572] NAMES <- toupper(added) 1564s [00:52:44.572] for (kk in seq_along(NAMES)) { 1564s [00:52:44.572] name <- added[[kk]] 1564s [00:52:44.572] NAME <- NAMES[[kk]] 1564s [00:52:44.572] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:44.572] next 1564s [00:52:44.572] args[[name]] <- "" 1564s [00:52:44.572] } 1564s [00:52:44.572] NAMES <- toupper(removed) 1564s [00:52:44.572] for (kk in seq_along(NAMES)) { 1564s [00:52:44.572] name <- removed[[kk]] 1564s [00:52:44.572] NAME <- NAMES[[kk]] 1564s [00:52:44.572] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:44.572] next 1564s [00:52:44.572] args[[name]] <- ...future.oldEnvVars[[name]] 1564s [00:52:44.572] } 1564s [00:52:44.572] if (length(args) > 0) 1564s [00:52:44.572] base::do.call(base::Sys.setenv, args = args) 1564s [00:52:44.572] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1564s [00:52:44.572] } 1564s [00:52:44.572] else { 1564s [00:52:44.572] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1564s [00:52:44.572] } 1564s [00:52:44.572] { 1564s [00:52:44.572] if (base::length(...future.futureOptionsAdded) > 1564s [00:52:44.572] 0L) { 1564s [00:52:44.572] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1564s [00:52:44.572] base::names(opts) <- ...future.futureOptionsAdded 1564s [00:52:44.572] base::options(opts) 1564s [00:52:44.572] } 1564s [00:52:44.572] { 1564s [00:52:44.572] { 1564s [00:52:44.572] base::assign(".Random.seed", c(10407L, -193111136L, 1564s [00:52:44.572] 1998638665L, 1795077819L, 549408344L, 564105141L, 1564s [00:52:44.572] -308065669L), envir = base::globalenv(), 1564s [00:52:44.572] inherits = FALSE) 1564s [00:52:44.572] NULL 1564s [00:52:44.572] } 1564s [00:52:44.572] options(future.plan = NULL) 1564s [00:52:44.572] if (is.na(NA_character_)) 1564s [00:52:44.572] Sys.unsetenv("R_FUTURE_PLAN") 1564s [00:52:44.572] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1564s [00:52:44.572] future::plan(list(function (..., workers = availableCores(), 1564s [00:52:44.572] lazy = FALSE, rscript_libs = .libPaths(), 1564s [00:52:44.572] envir = parent.frame()) 1564s [00:52:44.572] { 1564s [00:52:44.572] if (is.function(workers)) 1564s [00:52:44.572] workers <- workers() 1564s [00:52:44.572] workers <- structure(as.integer(workers), 1564s [00:52:44.572] class = class(workers)) 1564s [00:52:44.572] stop_if_not(length(workers) == 1, is.finite(workers), 1564s [00:52:44.572] workers >= 1) 1564s [00:52:44.572] if (workers == 1L && !inherits(workers, "AsIs")) { 1564s [00:52:44.572] return(sequential(..., lazy = TRUE, envir = envir)) 1564s [00:52:44.572] } 1564s [00:52:44.572] future <- MultisessionFuture(..., workers = workers, 1564s [00:52:44.572] lazy = lazy, rscript_libs = rscript_libs, 1564s [00:52:44.572] envir = envir) 1564s [00:52:44.572] if (!future$lazy) 1564s [00:52:44.572] future <- run(future) 1564s [00:52:44.572] invisible(future) 1564s [00:52:44.572] }), .cleanup = FALSE, .init = FALSE) 1564s [00:52:44.572] } 1564s [00:52:44.572] } 1564s [00:52:44.572] } 1564s [00:52:44.572] }) 1564s [00:52:44.572] if (TRUE) { 1564s [00:52:44.572] base::sink(type = "output", split = FALSE) 1564s [00:52:44.572] if (TRUE) { 1564s [00:52:44.572] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1564s [00:52:44.572] } 1564s [00:52:44.572] else { 1564s [00:52:44.572] ...future.result["stdout"] <- base::list(NULL) 1564s [00:52:44.572] } 1564s [00:52:44.572] base::close(...future.stdout) 1564s [00:52:44.572] ...future.stdout <- NULL 1564s [00:52:44.572] } 1564s [00:52:44.572] ...future.result$conditions <- ...future.conditions 1564s [00:52:44.572] ...future.result$finished <- base::Sys.time() 1564s [00:52:44.572] ...future.result 1564s [00:52:44.572] } 1564s [00:52:44.576] assign_globals() ... 1564s [00:52:44.576] List of 5 1564s [00:52:44.576] $ ...future.FUN :function (C, k) 1564s [00:52:44.576] $ MoreArgs : list() 1564s [00:52:44.576] $ ...future.elements_ii :List of 2 1564s [00:52:44.576] ..$ :List of 5 1564s [00:52:44.576] .. ..$ : chr "A" 1564s [00:52:44.576] .. ..$ : chr "B" 1564s [00:52:44.576] .. ..$ : chr "C" 1564s [00:52:44.576] .. ..$ : chr "D" 1564s [00:52:44.576] .. ..$ : chr "E" 1564s [00:52:44.576] ..$ :List of 5 1564s [00:52:44.576] .. ..$ : int 5 1564s [00:52:44.576] .. ..$ : int 4 1564s [00:52:44.576] .. ..$ : int 3 1564s [00:52:44.576] .. ..$ : int 2 1564s [00:52:44.576] .. ..$ : int 1 1564s [00:52:44.576] $ ...future.seeds_ii : NULL 1564s [00:52:44.576] $ ...future.globals.maxSize: NULL 1564s [00:52:44.576] - attr(*, "where")=List of 5 1564s [00:52:44.576] ..$ ...future.FUN : 1564s [00:52:44.576] ..$ MoreArgs : 1564s [00:52:44.576] ..$ ...future.elements_ii : 1564s [00:52:44.576] ..$ ...future.seeds_ii : 1564s [00:52:44.576] ..$ ...future.globals.maxSize: 1564s [00:52:44.576] - attr(*, "resolved")= logi FALSE 1564s [00:52:44.576] - attr(*, "total_size")= num 4160 1564s [00:52:44.576] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1564s [00:52:44.576] - attr(*, "already-done")= logi TRUE 1564s [00:52:44.589] - reassign environment for ‘...future.FUN’ 1564s [00:52:44.589] - copied ‘...future.FUN’ to environment 1564s [00:52:44.590] - copied ‘MoreArgs’ to environment 1564s [00:52:44.590] - copied ‘...future.elements_ii’ to environment 1564s [00:52:44.590] - copied ‘...future.seeds_ii’ to environment 1564s [00:52:44.590] - copied ‘...future.globals.maxSize’ to environment 1564s [00:52:44.590] assign_globals() ... done 1564s [00:52:44.591] plan(): Setting new future strategy stack: 1564s [00:52:44.591] List of future strategies: 1564s [00:52:44.591] 1. sequential: 1564s [00:52:44.591] - args: function (..., envir = parent.frame()) 1564s [00:52:44.591] - tweaked: FALSE 1564s [00:52:44.591] - call: NULL 1564s [00:52:44.592] plan(): nbrOfWorkers() = 1 1564s [00:52:44.593] plan(): Setting new future strategy stack: 1564s [00:52:44.593] List of future strategies: 1564s [00:52:44.593] 1. multisession: 1564s [00:52:44.593] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1564s [00:52:44.593] - tweaked: FALSE 1564s [00:52:44.593] - call: plan(strategy) 1564s [00:52:44.597] plan(): nbrOfWorkers() = 1 1564s [00:52:44.597] SequentialFuture started (and completed) 1564s [00:52:44.597] - Launch lazy future ... done 1564s [00:52:44.598] run() for ‘SequentialFuture’ ... done 1564s [00:52:44.598] Created future: 1564s [00:52:44.598] SequentialFuture: 1564s [00:52:44.598] Label: ‘future_.mapply-1’ 1564s [00:52:44.598] Expression: 1564s [00:52:44.598] { 1564s [00:52:44.598] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1564s [00:52:44.598] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1564s [00:52:44.598] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1564s [00:52:44.598] on.exit(options(oopts), add = TRUE) 1564s [00:52:44.598] } 1564s [00:52:44.598] { 1564s [00:52:44.598] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1564s [00:52:44.598] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1564s [00:52:44.598] do.call(mapply, args = args) 1564s [00:52:44.598] } 1564s [00:52:44.598] } 1564s [00:52:44.598] Lazy evaluation: FALSE 1564s [00:52:44.598] Asynchronous evaluation: FALSE 1564s [00:52:44.598] Local evaluation: TRUE 1564s [00:52:44.598] Environment: R_GlobalEnv 1564s [00:52:44.598] Capture standard output: TRUE 1564s [00:52:44.598] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1564s [00:52:44.598] Globals: 5 objects totaling 4.06 KiB (function ‘...future.FUN’ of 3.24 KiB, list ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 840 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1564s [00:52:44.598] Packages: 1564s [00:52:44.598] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1564s [00:52:44.598] Resolved: TRUE 1564s [00:52:44.598] Value: 560 bytes of class ‘list’ 1564s [00:52:44.598] Early signaling: FALSE 1564s [00:52:44.598] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1564s [00:52:44.598] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1564s [00:52:44.601] Chunk #1 of 1 ... DONE 1564s [00:52:44.601] Launching 1 futures (chunks) ... DONE 1564s [00:52:44.601] Resolving 1 futures (chunks) ... 1564s [00:52:44.602] resolve() on list ... 1564s [00:52:44.602] recursive: 0 1564s [00:52:44.602] length: 1 1564s [00:52:44.603] 1564s [00:52:44.603] resolved() for ‘SequentialFuture’ ... 1564s [00:52:44.604] - state: ‘finished’ 1564s [00:52:44.604] - run: TRUE 1564s [00:52:44.604] - result: ‘FutureResult’ 1564s [00:52:44.604] resolved() for ‘SequentialFuture’ ... done 1564s [00:52:44.605] Future #1 1564s [00:52:44.605] signalConditionsASAP(SequentialFuture, pos=1) ... 1564s [00:52:44.605] - nx: 1 1564s [00:52:44.605] - relay: TRUE 1564s [00:52:44.606] - stdout: TRUE 1564s [00:52:44.606] - signal: TRUE 1564s [00:52:44.606] - resignal: FALSE 1564s [00:52:44.606] - force: TRUE 1564s [00:52:44.606] - relayed: [n=1] FALSE 1564s [00:52:44.606] - queued futures: [n=1] FALSE 1564s [00:52:44.607] - until=1 1564s [00:52:44.607] - relaying element #1 1564s [00:52:44.607] - relayed: [n=1] TRUE 1564s [00:52:44.608] - queued futures: [n=1] TRUE 1564s [00:52:44.608] signalConditionsASAP(SequentialFuture, pos=1) ... done 1564s [00:52:44.608] length: 0 (resolved future 1) 1564s [00:52:44.608] Relaying remaining futures 1564s [00:52:44.608] signalConditionsASAP(NULL, pos=0) ... 1564s [00:52:44.608] - nx: 1 1564s [00:52:44.608] - relay: TRUE 1564s [00:52:44.609] - stdout: TRUE 1564s [00:52:44.609] - signal: TRUE 1564s [00:52:44.609] - resignal: FALSE 1564s [00:52:44.610] - force: TRUE 1564s [00:52:44.611] - relayed: [n=1] TRUE 1564s [00:52:44.611] - queued futures: [n=1] TRUE 1564s - flush all 1564s [00:52:44.612] - relayed: [n=1] TRUE 1564s [00:52:44.612] - queued futures: [n=1] TRUE 1564s [00:52:44.612] signalConditionsASAP(NULL, pos=0) ... done 1564s [00:52:44.612] resolve() on list ... DONE 1564s [00:52:44.613] - Number of value chunks collected: 1 1564s [00:52:44.613] Resolving 1 futures (chunks) ... DONE 1564s [00:52:44.613] Reducing values from 1 chunks ... 1564s [00:52:44.613] - Number of values collected after concatenation: 5 1564s [00:52:44.613] - Number of values expected: 5 1564s [00:52:44.613] Reducing values from 1 chunks ... DONE 1564s [00:52:44.613] future_mapply() ... DONE 1564s [00:52:44.614] future_mapply() ... 1564s [00:52:44.618] Number of chunks: 2 1564s [00:52:44.619] Index remapping (attribute 'ordering'): [n = 5] 5, 4, 3, 2, 1 1564s [00:52:44.619] getGlobalsAndPackagesXApply() ... 1564s [00:52:44.619] - future.globals: TRUE 1564s [00:52:44.620] getGlobalsAndPackages() ... 1564s [00:52:44.620] Searching for globals... 1564s [00:52:44.626] - globals found: [3] ‘FUN’, ‘paste’, ‘rep.int’ 1564s [00:52:44.627] Searching for globals ... DONE 1564s [00:52:44.628] Resolving globals: FALSE 1564s [00:52:44.629] The total size of the 1 globals is 3.24 KiB (3320 bytes) 1564s [00:52:44.630] The total size of the 1 globals exported for future expression (‘FUN()’) is 3.24 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (3.24 KiB of class ‘function’) 1564s [00:52:44.630] - globals: [1] ‘FUN’ 1564s [00:52:44.630] 1564s [00:52:44.631] getGlobalsAndPackages() ... DONE 1564s [00:52:44.631] - globals found/used: [n=1] ‘FUN’ 1564s [00:52:44.631] - needed namespaces: [n=0] 1564s [00:52:44.631] Finding globals ... DONE 1564s [00:52:44.632] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1564s [00:52:44.632] List of 2 1564s [00:52:44.632] $ ...future.FUN:function (C, k) 1564s [00:52:44.632] $ MoreArgs : NULL 1564s [00:52:44.632] - attr(*, "where")=List of 2 1564s [00:52:44.632] ..$ ...future.FUN: 1564s [00:52:44.632] ..$ MoreArgs : 1564s [00:52:44.632] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1564s [00:52:44.632] - attr(*, "resolved")= logi FALSE 1564s [00:52:44.632] - attr(*, "total_size")= num NA 1564s [00:52:44.636] Packages to be attached in all futures: [n=0] 1564s [00:52:44.636] getGlobalsAndPackagesXApply() ... DONE 1564s [00:52:44.636] Number of futures (= number of chunks): 2 1564s [00:52:44.637] Launching 2 futures (chunks) ... 1564s [00:52:44.637] Chunk #1 of 2 ... 1564s [00:52:44.637] - Finding globals in '...' for chunk #1 ... 1564s [00:52:44.637] getGlobalsAndPackages() ... 1564s [00:52:44.638] Searching for globals... 1564s [00:52:44.638] 1564s [00:52:44.638] Searching for globals ... DONE 1564s [00:52:44.638] - globals: [0] 1564s [00:52:44.639] getGlobalsAndPackages() ... DONE 1564s [00:52:44.639] + additional globals found: [n=0] 1564s [00:52:44.639] + additional namespaces needed: [n=0] 1564s [00:52:44.639] - Finding globals in '...' for chunk #1 ... DONE 1564s [00:52:44.639] - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes) 1564s [00:52:44.639] - seeds: 1564s [00:52:44.640] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:44.640] getGlobalsAndPackages() ... 1564s [00:52:44.640] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:44.640] Resolving globals: FALSE 1564s [00:52:44.641] The total size of the 5 globals is 3.57 KiB (3656 bytes) 1564s [00:52:44.642] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 3.57 KiB.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (3.24 KiB of class ‘function’), ‘...future.elements_ii’ (336 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1564s [00:52:44.642] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:44.642] 1564s [00:52:44.642] getGlobalsAndPackages() ... DONE 1564s [00:52:44.643] run() for ‘Future’ ... 1564s [00:52:44.643] - state: ‘created’ 1564s [00:52:44.643] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1564s [00:52:44.646] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1564s [00:52:44.646] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1564s [00:52:44.647] - Field: ‘label’ 1564s [00:52:44.647] - Field: ‘local’ 1564s [00:52:44.647] - Field: ‘owner’ 1564s [00:52:44.647] - Field: ‘envir’ 1564s [00:52:44.647] - Field: ‘packages’ 1564s [00:52:44.647] - Field: ‘gc’ 1564s [00:52:44.648] - Field: ‘conditions’ 1564s [00:52:44.648] - Field: ‘expr’ 1564s [00:52:44.648] - Field: ‘uuid’ 1564s [00:52:44.648] - Field: ‘seed’ 1564s [00:52:44.648] - Field: ‘version’ 1564s [00:52:44.648] - Field: ‘result’ 1564s [00:52:44.648] - Field: ‘asynchronous’ 1564s [00:52:44.649] - Field: ‘calls’ 1564s [00:52:44.649] - Field: ‘globals’ 1564s [00:52:44.649] - Field: ‘stdout’ 1564s [00:52:44.649] - Field: ‘earlySignal’ 1564s [00:52:44.649] - Field: ‘lazy’ 1564s [00:52:44.649] - Field: ‘state’ 1564s [00:52:44.649] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1564s [00:52:44.650] - Launch lazy future ... 1564s [00:52:44.650] Packages needed by the future expression (n = 0): 1564s [00:52:44.650] Packages needed by future strategies (n = 0): 1564s [00:52:44.651] { 1564s [00:52:44.651] { 1564s [00:52:44.651] { 1564s [00:52:44.651] ...future.startTime <- base::Sys.time() 1564s [00:52:44.651] { 1564s [00:52:44.651] { 1564s [00:52:44.651] { 1564s [00:52:44.651] base::local({ 1564s [00:52:44.651] has_future <- base::requireNamespace("future", 1564s [00:52:44.651] quietly = TRUE) 1564s [00:52:44.651] if (has_future) { 1564s [00:52:44.651] ns <- base::getNamespace("future") 1564s [00:52:44.651] version <- ns[[".package"]][["version"]] 1564s [00:52:44.651] if (is.null(version)) 1564s [00:52:44.651] version <- utils::packageVersion("future") 1564s [00:52:44.651] } 1564s [00:52:44.651] else { 1564s [00:52:44.651] version <- NULL 1564s [00:52:44.651] } 1564s [00:52:44.651] if (!has_future || version < "1.8.0") { 1564s [00:52:44.651] info <- base::c(r_version = base::gsub("R version ", 1564s [00:52:44.651] "", base::R.version$version.string), 1564s [00:52:44.651] platform = base::sprintf("%s (%s-bit)", 1564s [00:52:44.651] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1564s [00:52:44.651] os = base::paste(base::Sys.info()[base::c("sysname", 1564s [00:52:44.651] "release", "version")], collapse = " "), 1564s [00:52:44.651] hostname = base::Sys.info()[["nodename"]]) 1564s [00:52:44.651] info <- base::sprintf("%s: %s", base::names(info), 1564s [00:52:44.651] info) 1564s [00:52:44.651] info <- base::paste(info, collapse = "; ") 1564s [00:52:44.651] if (!has_future) { 1564s [00:52:44.651] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1564s [00:52:44.651] info) 1564s [00:52:44.651] } 1564s [00:52:44.651] else { 1564s [00:52:44.651] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1564s [00:52:44.651] info, version) 1564s [00:52:44.651] } 1564s [00:52:44.651] base::stop(msg) 1564s [00:52:44.651] } 1564s [00:52:44.651] }) 1564s [00:52:44.651] } 1564s [00:52:44.651] options(future.plan = NULL) 1564s [00:52:44.651] Sys.unsetenv("R_FUTURE_PLAN") 1564s [00:52:44.651] future::plan("default", .cleanup = FALSE, .init = FALSE) 1564s [00:52:44.651] } 1564s [00:52:44.651] ...future.workdir <- getwd() 1564s [00:52:44.651] } 1564s [00:52:44.651] ...future.oldOptions <- base::as.list(base::.Options) 1564s [00:52:44.651] ...future.oldEnvVars <- base::Sys.getenv() 1564s [00:52:44.651] } 1564s [00:52:44.651] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1564s [00:52:44.651] future.globals.maxSize = 1048576000, future.globals.method = NULL, 1564s [00:52:44.651] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1564s [00:52:44.651] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1564s [00:52:44.651] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1564s [00:52:44.651] future.stdout.windows.reencode = NULL, width = 80L) 1564s [00:52:44.651] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1564s [00:52:44.651] base::names(...future.oldOptions)) 1564s [00:52:44.651] } 1564s [00:52:44.651] if (FALSE) { 1564s [00:52:44.651] } 1564s [00:52:44.651] else { 1564s [00:52:44.651] if (TRUE) { 1564s [00:52:44.651] ...future.stdout <- base::rawConnection(base::raw(0L), 1564s [00:52:44.651] open = "w") 1564s [00:52:44.651] } 1564s [00:52:44.651] else { 1564s [00:52:44.651] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1564s [00:52:44.651] windows = "NUL", "/dev/null"), open = "w") 1564s [00:52:44.651] } 1564s [00:52:44.651] base::sink(...future.stdout, type = "output", split = FALSE) 1564s [00:52:44.651] base::on.exit(if (!base::is.null(...future.stdout)) { 1564s [00:52:44.651] base::sink(type = "output", split = FALSE) 1564s [00:52:44.651] base::close(...future.stdout) 1564s [00:52:44.651] }, add = TRUE) 1564s [00:52:44.651] } 1564s [00:52:44.651] ...future.frame <- base::sys.nframe() 1564s [00:52:44.651] ...future.conditions <- base::list() 1564s [00:52:44.651] ...future.rng <- base::globalenv()$.Random.seed 1564s [00:52:44.651] if (FALSE) { 1564s [00:52:44.651] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1564s [00:52:44.651] "...future.value", "...future.globalenv.names", ".Random.seed") 1564s [00:52:44.651] } 1564s [00:52:44.651] ...future.result <- base::tryCatch({ 1564s [00:52:44.651] base::withCallingHandlers({ 1564s [00:52:44.651] ...future.value <- base::withVisible(base::local({ 1564s [00:52:44.651] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1564s [00:52:44.651] if (!identical(...future.globals.maxSize.org, 1564s [00:52:44.651] ...future.globals.maxSize)) { 1564s [00:52:44.651] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1564s [00:52:44.651] on.exit(options(oopts), add = TRUE) 1564s [00:52:44.651] } 1564s [00:52:44.651] { 1564s [00:52:44.651] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1564s [00:52:44.651] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1564s [00:52:44.651] USE.NAMES = FALSE) 1564s [00:52:44.651] do.call(mapply, args = args) 1564s [00:52:44.651] } 1564s [00:52:44.651] })) 1564s [00:52:44.651] future::FutureResult(value = ...future.value$value, 1564s [00:52:44.651] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1564s [00:52:44.651] ...future.rng), globalenv = if (FALSE) 1564s [00:52:44.651] list(added = base::setdiff(base::names(base::.GlobalEnv), 1564s [00:52:44.651] ...future.globalenv.names)) 1564s [00:52:44.651] else NULL, started = ...future.startTime, version = "1.8") 1564s [00:52:44.651] }, condition = base::local({ 1564s [00:52:44.651] c <- base::c 1564s [00:52:44.651] inherits <- base::inherits 1564s [00:52:44.651] invokeRestart <- base::invokeRestart 1564s [00:52:44.651] length <- base::length 1564s [00:52:44.651] list <- base::list 1564s [00:52:44.651] seq.int <- base::seq.int 1564s [00:52:44.651] signalCondition <- base::signalCondition 1564s [00:52:44.651] sys.calls <- base::sys.calls 1564s [00:52:44.651] `[[` <- base::`[[` 1564s [00:52:44.651] `+` <- base::`+` 1564s [00:52:44.651] `<<-` <- base::`<<-` 1564s [00:52:44.651] sysCalls <- function(calls = sys.calls(), from = 1L) { 1564s [00:52:44.651] calls[seq.int(from = from + 12L, to = length(calls) - 1564s [00:52:44.651] 3L)] 1564s [00:52:44.651] } 1564s [00:52:44.651] function(cond) { 1564s [00:52:44.651] is_error <- inherits(cond, "error") 1564s [00:52:44.651] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1564s [00:52:44.651] NULL) 1564s [00:52:44.651] if (is_error) { 1564s [00:52:44.651] sessionInformation <- function() { 1564s [00:52:44.651] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1564s [00:52:44.651] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1564s [00:52:44.651] search = base::search(), system = base::Sys.info()) 1564s [00:52:44.651] } 1564s [00:52:44.651] ...future.conditions[[length(...future.conditions) + 1564s [00:52:44.651] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1564s [00:52:44.651] cond$call), session = sessionInformation(), 1564s [00:52:44.651] timestamp = base::Sys.time(), signaled = 0L) 1564s [00:52:44.651] signalCondition(cond) 1564s [00:52:44.651] } 1564s [00:52:44.651] else if (!ignore && TRUE && inherits(cond, c("condition", 1564s [00:52:44.651] "immediateCondition"))) { 1564s [00:52:44.651] signal <- TRUE && inherits(cond, "immediateCondition") 1564s [00:52:44.651] ...future.conditions[[length(...future.conditions) + 1564s [00:52:44.651] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1564s [00:52:44.651] if (TRUE && !signal) { 1564s [00:52:44.651] muffleCondition <- function (cond, pattern = "^muffle") 1564s [00:52:44.651] { 1564s [00:52:44.651] inherits <- base::inherits 1564s [00:52:44.651] invokeRestart <- base::invokeRestart 1564s [00:52:44.651] is.null <- base::is.null 1564s [00:52:44.651] muffled <- FALSE 1564s [00:52:44.651] if (inherits(cond, "message")) { 1564s [00:52:44.651] muffled <- grepl(pattern, "muffleMessage") 1564s [00:52:44.651] if (muffled) 1564s [00:52:44.651] invokeRestart("muffleMessage") 1564s [00:52:44.651] } 1564s [00:52:44.651] else if (inherits(cond, "warning")) { 1564s [00:52:44.651] muffled <- grepl(pattern, "muffleWarning") 1564s [00:52:44.651] if (muffled) 1564s [00:52:44.651] invokeRestart("muffleWarning") 1564s [00:52:44.651] } 1564s [00:52:44.651] else if (inherits(cond, "condition")) { 1564s [00:52:44.651] if (!is.null(pattern)) { 1564s [00:52:44.651] computeRestarts <- base::computeRestarts 1564s [00:52:44.651] grepl <- base::grepl 1564s [00:52:44.651] restarts <- computeRestarts(cond) 1564s [00:52:44.651] for (restart in restarts) { 1564s [00:52:44.651] name <- restart$name 1564s [00:52:44.651] if (is.null(name)) 1564s [00:52:44.651] next 1564s [00:52:44.651] if (!grepl(pattern, name)) 1564s [00:52:44.651] next 1564s [00:52:44.651] invokeRestart(restart) 1564s [00:52:44.651] muffled <- TRUE 1564s [00:52:44.651] break 1564s [00:52:44.651] } 1564s [00:52:44.651] } 1564s [00:52:44.651] } 1564s [00:52:44.651] invisible(muffled) 1564s [00:52:44.651] } 1564s [00:52:44.651] muffleCondition(cond, pattern = "^muffle") 1564s [00:52:44.651] } 1564s [00:52:44.651] } 1564s [00:52:44.651] else { 1564s [00:52:44.651] if (TRUE) { 1564s [00:52:44.651] muffleCondition <- function (cond, pattern = "^muffle") 1564s [00:52:44.651] { 1564s [00:52:44.651] inherits <- base::inherits 1564s [00:52:44.651] invokeRestart <- base::invokeRestart 1564s [00:52:44.651] is.null <- base::is.null 1564s [00:52:44.651] muffled <- FALSE 1564s [00:52:44.651] if (inherits(cond, "message")) { 1564s [00:52:44.651] muffled <- grepl(pattern, "muffleMessage") 1564s [00:52:44.651] if (muffled) 1564s [00:52:44.651] invokeRestart("muffleMessage") 1564s [00:52:44.651] } 1564s [00:52:44.651] else if (inherits(cond, "warning")) { 1564s [00:52:44.651] muffled <- grepl(pattern, "muffleWarning") 1564s [00:52:44.651] if (muffled) 1564s [00:52:44.651] invokeRestart("muffleWarning") 1564s [00:52:44.651] } 1564s [00:52:44.651] else if (inherits(cond, "condition")) { 1564s [00:52:44.651] if (!is.null(pattern)) { 1564s [00:52:44.651] computeRestarts <- base::computeRestarts 1564s [00:52:44.651] grepl <- base::grepl 1564s [00:52:44.651] restarts <- computeRestarts(cond) 1564s [00:52:44.651] for (restart in restarts) { 1564s [00:52:44.651] name <- restart$name 1564s [00:52:44.651] if (is.null(name)) 1564s [00:52:44.651] next 1564s [00:52:44.651] if (!grepl(pattern, name)) 1564s [00:52:44.651] next 1564s [00:52:44.651] invokeRestart(restart) 1564s [00:52:44.651] muffled <- TRUE 1564s [00:52:44.651] break 1564s [00:52:44.651] } 1564s [00:52:44.651] } 1564s [00:52:44.651] } 1564s [00:52:44.651] invisible(muffled) 1564s [00:52:44.651] } 1564s [00:52:44.651] muffleCondition(cond, pattern = "^muffle") 1564s [00:52:44.651] } 1564s [00:52:44.651] } 1564s [00:52:44.651] } 1564s [00:52:44.651] })) 1564s [00:52:44.651] }, error = function(ex) { 1564s [00:52:44.651] base::structure(base::list(value = NULL, visible = NULL, 1564s [00:52:44.651] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1564s [00:52:44.651] ...future.rng), started = ...future.startTime, 1564s [00:52:44.651] finished = Sys.time(), session_uuid = NA_character_, 1564s [00:52:44.651] version = "1.8"), class = "FutureResult") 1564s [00:52:44.651] }, finally = { 1564s [00:52:44.651] if (!identical(...future.workdir, getwd())) 1564s [00:52:44.651] setwd(...future.workdir) 1564s [00:52:44.651] { 1564s [00:52:44.651] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1564s [00:52:44.651] ...future.oldOptions$nwarnings <- NULL 1564s [00:52:44.651] } 1564s [00:52:44.651] base::options(...future.oldOptions) 1564s [00:52:44.651] if (.Platform$OS.type == "windows") { 1564s [00:52:44.651] old_names <- names(...future.oldEnvVars) 1564s [00:52:44.651] envs <- base::Sys.getenv() 1564s [00:52:44.651] names <- names(envs) 1564s [00:52:44.651] common <- intersect(names, old_names) 1564s [00:52:44.651] added <- setdiff(names, old_names) 1564s [00:52:44.651] removed <- setdiff(old_names, names) 1564s [00:52:44.651] changed <- common[...future.oldEnvVars[common] != 1564s [00:52:44.651] envs[common]] 1564s [00:52:44.651] NAMES <- toupper(changed) 1564s [00:52:44.651] args <- list() 1564s [00:52:44.651] for (kk in seq_along(NAMES)) { 1564s [00:52:44.651] name <- changed[[kk]] 1564s [00:52:44.651] NAME <- NAMES[[kk]] 1564s [00:52:44.651] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:44.651] next 1564s [00:52:44.651] args[[name]] <- ...future.oldEnvVars[[name]] 1564s [00:52:44.651] } 1564s [00:52:44.651] NAMES <- toupper(added) 1564s [00:52:44.651] for (kk in seq_along(NAMES)) { 1564s [00:52:44.651] name <- added[[kk]] 1564s [00:52:44.651] NAME <- NAMES[[kk]] 1564s [00:52:44.651] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:44.651] next 1564s [00:52:44.651] args[[name]] <- "" 1564s [00:52:44.651] } 1564s [00:52:44.651] NAMES <- toupper(removed) 1564s [00:52:44.651] for (kk in seq_along(NAMES)) { 1564s [00:52:44.651] name <- removed[[kk]] 1564s [00:52:44.651] NAME <- NAMES[[kk]] 1564s [00:52:44.651] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:44.651] next 1564s [00:52:44.651] args[[name]] <- ...future.oldEnvVars[[name]] 1564s [00:52:44.651] } 1564s [00:52:44.651] if (length(args) > 0) 1564s [00:52:44.651] base::do.call(base::Sys.setenv, args = args) 1564s [00:52:44.651] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1564s [00:52:44.651] } 1564s [00:52:44.651] else { 1564s [00:52:44.651] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1564s [00:52:44.651] } 1564s [00:52:44.651] { 1564s [00:52:44.651] if (base::length(...future.futureOptionsAdded) > 1564s [00:52:44.651] 0L) { 1564s [00:52:44.651] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1564s [00:52:44.651] base::names(opts) <- ...future.futureOptionsAdded 1564s [00:52:44.651] base::options(opts) 1564s [00:52:44.651] } 1564s [00:52:44.651] { 1564s [00:52:44.651] { 1564s [00:52:44.651] base::assign(".Random.seed", c(10407L, -193111136L, 1564s [00:52:44.651] 1998638665L, 1795077819L, 549408344L, 564105141L, 1564s [00:52:44.651] -308065669L), envir = base::globalenv(), 1564s [00:52:44.651] inherits = FALSE) 1564s [00:52:44.651] NULL 1564s [00:52:44.651] } 1564s [00:52:44.651] options(future.plan = NULL) 1564s [00:52:44.651] if (is.na(NA_character_)) 1564s [00:52:44.651] Sys.unsetenv("R_FUTURE_PLAN") 1564s [00:52:44.651] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1564s [00:52:44.651] future::plan(list(function (..., workers = availableCores(), 1564s [00:52:44.651] lazy = FALSE, rscript_libs = .libPaths(), 1564s [00:52:44.651] envir = parent.frame()) 1564s [00:52:44.651] { 1564s [00:52:44.651] if (is.function(workers)) 1564s [00:52:44.651] workers <- workers() 1564s [00:52:44.651] workers <- structure(as.integer(workers), 1564s [00:52:44.651] class = class(workers)) 1564s [00:52:44.651] stop_if_not(length(workers) == 1, is.finite(workers), 1564s [00:52:44.651] workers >= 1) 1564s [00:52:44.651] if (workers == 1L && !inherits(workers, "AsIs")) { 1564s [00:52:44.651] return(sequential(..., lazy = TRUE, envir = envir)) 1564s [00:52:44.651] } 1564s [00:52:44.651] future <- MultisessionFuture(..., workers = workers, 1564s [00:52:44.651] lazy = lazy, rscript_libs = rscript_libs, 1564s [00:52:44.651] envir = envir) 1564s [00:52:44.651] if (!future$lazy) 1564s [00:52:44.651] future <- run(future) 1564s [00:52:44.651] invisible(future) 1564s [00:52:44.651] }), .cleanup = FALSE, .init = FALSE) 1564s [00:52:44.651] } 1564s [00:52:44.651] } 1564s [00:52:44.651] } 1564s [00:52:44.651] }) 1564s [00:52:44.651] if (TRUE) { 1564s [00:52:44.651] base::sink(type = "output", split = FALSE) 1564s [00:52:44.651] if (TRUE) { 1564s [00:52:44.651] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1564s [00:52:44.651] } 1564s [00:52:44.651] else { 1564s [00:52:44.651] ...future.result["stdout"] <- base::list(NULL) 1564s [00:52:44.651] } 1564s [00:52:44.651] base::close(...future.stdout) 1564s [00:52:44.651] ...future.stdout <- NULL 1564s [00:52:44.651] } 1564s [00:52:44.651] ...future.result$conditions <- ...future.conditions 1564s [00:52:44.651] ...future.result$finished <- base::Sys.time() 1564s [00:52:44.651] ...future.result 1564s [00:52:44.651] } 1564s [00:52:44.655] assign_globals() ... 1564s [00:52:44.655] List of 5 1564s [00:52:44.655] $ ...future.FUN :function (C, k) 1564s [00:52:44.655] $ MoreArgs : NULL 1564s [00:52:44.655] $ ...future.elements_ii :List of 2 1564s [00:52:44.655] ..$ :List of 2 1564s [00:52:44.655] .. ..$ : chr "E" 1564s [00:52:44.655] .. ..$ : chr "D" 1564s [00:52:44.655] ..$ :List of 2 1564s [00:52:44.655] .. ..$ : int 1 1564s [00:52:44.655] .. ..$ : int 2 1564s [00:52:44.655] $ ...future.seeds_ii : NULL 1564s [00:52:44.655] $ ...future.globals.maxSize: NULL 1564s [00:52:44.655] - attr(*, "where")=List of 5 1564s [00:52:44.655] ..$ ...future.FUN : 1564s [00:52:44.655] ..$ MoreArgs : 1564s [00:52:44.655] ..$ ...future.elements_ii : 1564s [00:52:44.655] ..$ ...future.seeds_ii : 1564s [00:52:44.655] ..$ ...future.globals.maxSize: 1564s [00:52:44.655] - attr(*, "resolved")= logi FALSE 1564s [00:52:44.655] - attr(*, "total_size")= num 3656 1564s [00:52:44.655] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1564s [00:52:44.655] - attr(*, "already-done")= logi TRUE 1564s [00:52:44.662] - reassign environment for ‘...future.FUN’ 1564s [00:52:44.662] - copied ‘...future.FUN’ to environment 1564s [00:52:44.662] - copied ‘MoreArgs’ to environment 1564s [00:52:44.662] - copied ‘...future.elements_ii’ to environment 1564s [00:52:44.663] - copied ‘...future.seeds_ii’ to environment 1564s [00:52:44.663] - copied ‘...future.globals.maxSize’ to environment 1564s [00:52:44.663] assign_globals() ... done 1564s [00:52:44.663] plan(): Setting new future strategy stack: 1564s [00:52:44.663] List of future strategies: 1564s [00:52:44.663] 1. sequential: 1564s [00:52:44.663] - args: function (..., envir = parent.frame()) 1564s [00:52:44.663] - tweaked: FALSE 1564s [00:52:44.663] - call: NULL 1564s [00:52:44.664] plan(): nbrOfWorkers() = 1 1564s [00:52:44.665] plan(): Setting new future strategy stack: 1564s [00:52:44.665] List of future strategies: 1564s [00:52:44.665] 1. multisession: 1564s [00:52:44.665] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1564s [00:52:44.665] - tweaked: FALSE 1564s [00:52:44.665] - call: plan(strategy) 1564s [00:52:44.668] plan(): nbrOfWorkers() = 1 1564s [00:52:44.669] SequentialFuture started (and completed) 1564s [00:52:44.669] - Launch lazy future ... done 1564s [00:52:44.669] run() for ‘SequentialFuture’ ... done 1564s [00:52:44.669] Created future: 1564s [00:52:44.669] SequentialFuture: 1564s [00:52:44.669] Label: ‘future_mapply-1’ 1564s [00:52:44.669] Expression: 1564s [00:52:44.669] { 1564s [00:52:44.669] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1564s [00:52:44.669] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1564s [00:52:44.669] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1564s [00:52:44.669] on.exit(options(oopts), add = TRUE) 1564s [00:52:44.669] } 1564s [00:52:44.669] { 1564s [00:52:44.669] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1564s [00:52:44.669] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1564s [00:52:44.669] do.call(mapply, args = args) 1564s [00:52:44.669] } 1564s [00:52:44.669] } 1564s [00:52:44.669] Lazy evaluation: FALSE 1564s [00:52:44.669] Asynchronous evaluation: FALSE 1564s [00:52:44.669] Local evaluation: TRUE 1564s [00:52:44.669] Environment: R_GlobalEnv 1564s [00:52:44.669] Capture standard output: TRUE 1564s [00:52:44.669] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1564s [00:52:44.669] Globals: 5 objects totaling 3.57 KiB (function ‘...future.FUN’ of 3.24 KiB, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1564s [00:52:44.669] Packages: 1564s [00:52:44.669] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1564s [00:52:44.669] Resolved: TRUE 1564s [00:52:44.669] Value: 224 bytes of class ‘list’ 1564s [00:52:44.669] Early signaling: FALSE 1564s [00:52:44.669] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1564s [00:52:44.669] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1564s [00:52:44.671] Chunk #1 of 2 ... DONE 1564s [00:52:44.671] Chunk #2 of 2 ... 1564s [00:52:44.671] - Finding globals in '...' for chunk #2 ... 1564s [00:52:44.671] getGlobalsAndPackages() ... 1564s [00:52:44.672] Searching for globals... 1564s [00:52:44.672] 1564s [00:52:44.672] Searching for globals ... DONE 1564s [00:52:44.672] - globals: [0] 1564s [00:52:44.672] getGlobalsAndPackages() ... DONE 1564s [00:52:44.673] + additional globals found: [n=0] 1564s [00:52:44.673] + additional namespaces needed: [n=0] 1564s [00:52:44.673] - Finding globals in '...' for chunk #2 ... DONE 1564s [00:52:44.673] - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes) 1564s [00:52:44.673] - seeds: 1564s [00:52:44.673] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:44.673] getGlobalsAndPackages() ... 1564s [00:52:44.674] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:44.674] Resolving globals: FALSE 1564s [00:52:44.674] The total size of the 5 globals is 3.73 KiB (3824 bytes) 1564s [00:52:44.675] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 3.73 KiB.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (3.24 KiB of class ‘function’), ‘...future.elements_ii’ (504 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1564s [00:52:44.675] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:44.675] 1564s [00:52:44.676] getGlobalsAndPackages() ... DONE 1564s [00:52:44.676] run() for ‘Future’ ... 1564s [00:52:44.676] - state: ‘created’ 1564s [00:52:44.676] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1564s [00:52:44.680] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1564s [00:52:44.680] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1564s [00:52:44.680] - Field: ‘label’ 1564s [00:52:44.681] - Field: ‘local’ 1564s [00:52:44.681] - Field: ‘owner’ 1564s [00:52:44.681] - Field: ‘envir’ 1564s [00:52:44.681] - Field: ‘packages’ 1564s [00:52:44.681] - Field: ‘gc’ 1564s [00:52:44.681] - Field: ‘conditions’ 1564s [00:52:44.682] - Field: ‘expr’ 1564s [00:52:44.682] - Field: ‘uuid’ 1564s [00:52:44.682] - Field: ‘seed’ 1564s [00:52:44.682] - Field: ‘version’ 1564s [00:52:44.682] - Field: ‘result’ 1564s [00:52:44.682] - Field: ‘asynchronous’ 1564s [00:52:44.682] - Field: ‘calls’ 1564s [00:52:44.683] - Field: ‘globals’ 1564s [00:52:44.683] - Field: ‘stdout’ 1564s [00:52:44.683] - Field: ‘earlySignal’ 1564s [00:52:44.683] - Field: ‘lazy’ 1564s [00:52:44.683] - Field: ‘state’ 1564s [00:52:44.683] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1564s [00:52:44.684] - Launch lazy future ... 1564s [00:52:44.684] Packages needed by the future expression (n = 0): 1564s [00:52:44.684] Packages needed by future strategies (n = 0): 1564s [00:52:44.685] { 1564s [00:52:44.685] { 1564s [00:52:44.685] { 1564s [00:52:44.685] ...future.startTime <- base::Sys.time() 1564s [00:52:44.685] { 1564s [00:52:44.685] { 1564s [00:52:44.685] { 1564s [00:52:44.685] base::local({ 1564s [00:52:44.685] has_future <- base::requireNamespace("future", 1564s [00:52:44.685] quietly = TRUE) 1564s [00:52:44.685] if (has_future) { 1564s [00:52:44.685] ns <- base::getNamespace("future") 1564s [00:52:44.685] version <- ns[[".package"]][["version"]] 1564s [00:52:44.685] if (is.null(version)) 1564s [00:52:44.685] version <- utils::packageVersion("future") 1564s [00:52:44.685] } 1564s [00:52:44.685] else { 1564s [00:52:44.685] version <- NULL 1564s [00:52:44.685] } 1564s [00:52:44.685] if (!has_future || version < "1.8.0") { 1564s [00:52:44.685] info <- base::c(r_version = base::gsub("R version ", 1564s [00:52:44.685] "", base::R.version$version.string), 1564s [00:52:44.685] platform = base::sprintf("%s (%s-bit)", 1564s [00:52:44.685] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1564s [00:52:44.685] os = base::paste(base::Sys.info()[base::c("sysname", 1564s [00:52:44.685] "release", "version")], collapse = " "), 1564s [00:52:44.685] hostname = base::Sys.info()[["nodename"]]) 1564s [00:52:44.685] info <- base::sprintf("%s: %s", base::names(info), 1564s [00:52:44.685] info) 1564s [00:52:44.685] info <- base::paste(info, collapse = "; ") 1564s [00:52:44.685] if (!has_future) { 1564s [00:52:44.685] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1564s [00:52:44.685] info) 1564s [00:52:44.685] } 1564s [00:52:44.685] else { 1564s [00:52:44.685] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1564s [00:52:44.685] info, version) 1564s [00:52:44.685] } 1564s [00:52:44.685] base::stop(msg) 1564s [00:52:44.685] } 1564s [00:52:44.685] }) 1564s [00:52:44.685] } 1564s [00:52:44.685] options(future.plan = NULL) 1564s [00:52:44.685] Sys.unsetenv("R_FUTURE_PLAN") 1564s [00:52:44.685] future::plan("default", .cleanup = FALSE, .init = FALSE) 1564s [00:52:44.685] } 1564s [00:52:44.685] ...future.workdir <- getwd() 1564s [00:52:44.685] } 1564s [00:52:44.685] ...future.oldOptions <- base::as.list(base::.Options) 1564s [00:52:44.685] ...future.oldEnvVars <- base::Sys.getenv() 1564s [00:52:44.685] } 1564s [00:52:44.685] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1564s [00:52:44.685] future.globals.maxSize = 1048576000, future.globals.method = NULL, 1564s [00:52:44.685] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1564s [00:52:44.685] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1564s [00:52:44.685] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1564s [00:52:44.685] future.stdout.windows.reencode = NULL, width = 80L) 1564s [00:52:44.685] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1564s [00:52:44.685] base::names(...future.oldOptions)) 1564s [00:52:44.685] } 1564s [00:52:44.685] if (FALSE) { 1564s [00:52:44.685] } 1564s [00:52:44.685] else { 1564s [00:52:44.685] if (TRUE) { 1564s [00:52:44.685] ...future.stdout <- base::rawConnection(base::raw(0L), 1564s [00:52:44.685] open = "w") 1564s [00:52:44.685] } 1564s [00:52:44.685] else { 1564s [00:52:44.685] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1564s [00:52:44.685] windows = "NUL", "/dev/null"), open = "w") 1564s [00:52:44.685] } 1564s [00:52:44.685] base::sink(...future.stdout, type = "output", split = FALSE) 1564s [00:52:44.685] base::on.exit(if (!base::is.null(...future.stdout)) { 1564s [00:52:44.685] base::sink(type = "output", split = FALSE) 1564s [00:52:44.685] base::close(...future.stdout) 1564s [00:52:44.685] }, add = TRUE) 1564s [00:52:44.685] } 1564s [00:52:44.685] ...future.frame <- base::sys.nframe() 1564s [00:52:44.685] ...future.conditions <- base::list() 1564s [00:52:44.685] ...future.rng <- base::globalenv()$.Random.seed 1564s [00:52:44.685] if (FALSE) { 1564s [00:52:44.685] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1564s [00:52:44.685] "...future.value", "...future.globalenv.names", ".Random.seed") 1564s [00:52:44.685] } 1564s [00:52:44.685] ...future.result <- base::tryCatch({ 1564s [00:52:44.685] base::withCallingHandlers({ 1564s [00:52:44.685] ...future.value <- base::withVisible(base::local({ 1564s [00:52:44.685] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1564s [00:52:44.685] if (!identical(...future.globals.maxSize.org, 1564s [00:52:44.685] ...future.globals.maxSize)) { 1564s [00:52:44.685] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1564s [00:52:44.685] on.exit(options(oopts), add = TRUE) 1564s [00:52:44.685] } 1564s [00:52:44.685] { 1564s [00:52:44.685] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1564s [00:52:44.685] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1564s [00:52:44.685] USE.NAMES = FALSE) 1564s [00:52:44.685] do.call(mapply, args = args) 1564s [00:52:44.685] } 1564s [00:52:44.685] })) 1564s [00:52:44.685] future::FutureResult(value = ...future.value$value, 1564s [00:52:44.685] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1564s [00:52:44.685] ...future.rng), globalenv = if (FALSE) 1564s [00:52:44.685] list(added = base::setdiff(base::names(base::.GlobalEnv), 1564s [00:52:44.685] ...future.globalenv.names)) 1564s [00:52:44.685] else NULL, started = ...future.startTime, version = "1.8") 1564s [00:52:44.685] }, condition = base::local({ 1564s [00:52:44.685] c <- base::c 1564s [00:52:44.685] inherits <- base::inherits 1564s [00:52:44.685] invokeRestart <- base::invokeRestart 1564s [00:52:44.685] length <- base::length 1564s [00:52:44.685] list <- base::list 1564s [00:52:44.685] seq.int <- base::seq.int 1564s [00:52:44.685] signalCondition <- base::signalCondition 1564s [00:52:44.685] sys.calls <- base::sys.calls 1564s [00:52:44.685] `[[` <- base::`[[` 1564s [00:52:44.685] `+` <- base::`+` 1564s [00:52:44.685] `<<-` <- base::`<<-` 1564s [00:52:44.685] sysCalls <- function(calls = sys.calls(), from = 1L) { 1564s [00:52:44.685] calls[seq.int(from = from + 12L, to = length(calls) - 1564s [00:52:44.685] 3L)] 1564s [00:52:44.685] } 1564s [00:52:44.685] function(cond) { 1564s [00:52:44.685] is_error <- inherits(cond, "error") 1564s [00:52:44.685] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1564s [00:52:44.685] NULL) 1564s [00:52:44.685] if (is_error) { 1564s [00:52:44.685] sessionInformation <- function() { 1564s [00:52:44.685] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1564s [00:52:44.685] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1564s [00:52:44.685] search = base::search(), system = base::Sys.info()) 1564s [00:52:44.685] } 1564s [00:52:44.685] ...future.conditions[[length(...future.conditions) + 1564s [00:52:44.685] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1564s [00:52:44.685] cond$call), session = sessionInformation(), 1564s [00:52:44.685] timestamp = base::Sys.time(), signaled = 0L) 1564s [00:52:44.685] signalCondition(cond) 1564s [00:52:44.685] } 1564s [00:52:44.685] else if (!ignore && TRUE && inherits(cond, c("condition", 1564s [00:52:44.685] "immediateCondition"))) { 1564s [00:52:44.685] signal <- TRUE && inherits(cond, "immediateCondition") 1564s [00:52:44.685] ...future.conditions[[length(...future.conditions) + 1564s [00:52:44.685] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1564s [00:52:44.685] if (TRUE && !signal) { 1564s [00:52:44.685] muffleCondition <- function (cond, pattern = "^muffle") 1564s [00:52:44.685] { 1564s [00:52:44.685] inherits <- base::inherits 1564s [00:52:44.685] invokeRestart <- base::invokeRestart 1564s [00:52:44.685] is.null <- base::is.null 1564s [00:52:44.685] muffled <- FALSE 1564s [00:52:44.685] if (inherits(cond, "message")) { 1564s [00:52:44.685] muffled <- grepl(pattern, "muffleMessage") 1564s [00:52:44.685] if (muffled) 1564s [00:52:44.685] invokeRestart("muffleMessage") 1564s [00:52:44.685] } 1564s [00:52:44.685] else if (inherits(cond, "warning")) { 1564s [00:52:44.685] muffled <- grepl(pattern, "muffleWarning") 1564s [00:52:44.685] if (muffled) 1564s [00:52:44.685] invokeRestart("muffleWarning") 1564s [00:52:44.685] } 1564s [00:52:44.685] else if (inherits(cond, "condition")) { 1564s [00:52:44.685] if (!is.null(pattern)) { 1564s [00:52:44.685] computeRestarts <- base::computeRestarts 1564s [00:52:44.685] grepl <- base::grepl 1564s [00:52:44.685] restarts <- computeRestarts(cond) 1564s [00:52:44.685] for (restart in restarts) { 1564s [00:52:44.685] name <- restart$name 1564s [00:52:44.685] if (is.null(name)) 1564s [00:52:44.685] next 1564s [00:52:44.685] if (!grepl(pattern, name)) 1564s [00:52:44.685] next 1564s [00:52:44.685] invokeRestart(restart) 1564s [00:52:44.685] muffled <- TRUE 1564s [00:52:44.685] break 1564s [00:52:44.685] } 1564s [00:52:44.685] } 1564s [00:52:44.685] } 1564s [00:52:44.685] invisible(muffled) 1564s [00:52:44.685] } 1564s [00:52:44.685] muffleCondition(cond, pattern = "^muffle") 1564s [00:52:44.685] } 1564s [00:52:44.685] } 1564s [00:52:44.685] else { 1564s [00:52:44.685] if (TRUE) { 1564s [00:52:44.685] muffleCondition <- function (cond, pattern = "^muffle") 1564s [00:52:44.685] { 1564s [00:52:44.685] inherits <- base::inherits 1564s [00:52:44.685] invokeRestart <- base::invokeRestart 1564s [00:52:44.685] is.null <- base::is.null 1564s [00:52:44.685] muffled <- FALSE 1564s [00:52:44.685] if (inherits(cond, "message")) { 1564s [00:52:44.685] muffled <- grepl(pattern, "muffleMessage") 1564s [00:52:44.685] if (muffled) 1564s [00:52:44.685] invokeRestart("muffleMessage") 1564s [00:52:44.685] } 1564s [00:52:44.685] else if (inherits(cond, "warning")) { 1564s [00:52:44.685] muffled <- grepl(pattern, "muffleWarning") 1564s [00:52:44.685] if (muffled) 1564s [00:52:44.685] invokeRestart("muffleWarning") 1564s [00:52:44.685] } 1564s [00:52:44.685] else if (inherits(cond, "condition")) { 1564s [00:52:44.685] if (!is.null(pattern)) { 1564s [00:52:44.685] computeRestarts <- base::computeRestarts 1564s [00:52:44.685] grepl <- base::grepl 1564s [00:52:44.685] restarts <- computeRestarts(cond) 1564s [00:52:44.685] for (restart in restarts) { 1564s [00:52:44.685] name <- restart$name 1564s [00:52:44.685] if (is.null(name)) 1564s [00:52:44.685] next 1564s [00:52:44.685] if (!grepl(pattern, name)) 1564s [00:52:44.685] next 1564s [00:52:44.685] invokeRestart(restart) 1564s [00:52:44.685] muffled <- TRUE 1564s [00:52:44.685] break 1564s [00:52:44.685] } 1564s [00:52:44.685] } 1564s [00:52:44.685] } 1564s [00:52:44.685] invisible(muffled) 1564s [00:52:44.685] } 1564s [00:52:44.685] muffleCondition(cond, pattern = "^muffle") 1564s [00:52:44.685] } 1564s [00:52:44.685] } 1564s [00:52:44.685] } 1564s [00:52:44.685] })) 1564s [00:52:44.685] }, error = function(ex) { 1564s [00:52:44.685] base::structure(base::list(value = NULL, visible = NULL, 1564s [00:52:44.685] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1564s [00:52:44.685] ...future.rng), started = ...future.startTime, 1564s [00:52:44.685] finished = Sys.time(), session_uuid = NA_character_, 1564s [00:52:44.685] version = "1.8"), class = "FutureResult") 1564s [00:52:44.685] }, finally = { 1564s [00:52:44.685] if (!identical(...future.workdir, getwd())) 1564s [00:52:44.685] setwd(...future.workdir) 1564s [00:52:44.685] { 1564s [00:52:44.685] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1564s [00:52:44.685] ...future.oldOptions$nwarnings <- NULL 1564s [00:52:44.685] } 1564s [00:52:44.685] base::options(...future.oldOptions) 1564s [00:52:44.685] if (.Platform$OS.type == "windows") { 1564s [00:52:44.685] old_names <- names(...future.oldEnvVars) 1564s [00:52:44.685] envs <- base::Sys.getenv() 1564s [00:52:44.685] names <- names(envs) 1564s [00:52:44.685] common <- intersect(names, old_names) 1564s [00:52:44.685] added <- setdiff(names, old_names) 1564s [00:52:44.685] removed <- setdiff(old_names, names) 1564s [00:52:44.685] changed <- common[...future.oldEnvVars[common] != 1564s [00:52:44.685] envs[common]] 1564s [00:52:44.685] NAMES <- toupper(changed) 1564s [00:52:44.685] args <- list() 1564s [00:52:44.685] for (kk in seq_along(NAMES)) { 1564s [00:52:44.685] name <- changed[[kk]] 1564s [00:52:44.685] NAME <- NAMES[[kk]] 1564s [00:52:44.685] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:44.685] next 1564s [00:52:44.685] args[[name]] <- ...future.oldEnvVars[[name]] 1564s [00:52:44.685] } 1564s [00:52:44.685] NAMES <- toupper(added) 1564s [00:52:44.685] for (kk in seq_along(NAMES)) { 1564s [00:52:44.685] name <- added[[kk]] 1564s [00:52:44.685] NAME <- NAMES[[kk]] 1564s [00:52:44.685] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:44.685] next 1564s [00:52:44.685] args[[name]] <- "" 1564s [00:52:44.685] } 1564s [00:52:44.685] NAMES <- toupper(removed) 1564s [00:52:44.685] for (kk in seq_along(NAMES)) { 1564s [00:52:44.685] name <- removed[[kk]] 1564s [00:52:44.685] NAME <- NAMES[[kk]] 1564s [00:52:44.685] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:44.685] next 1564s [00:52:44.685] args[[name]] <- ...future.oldEnvVars[[name]] 1564s [00:52:44.685] } 1564s [00:52:44.685] if (length(args) > 0) 1564s [00:52:44.685] base::do.call(base::Sys.setenv, args = args) 1564s [00:52:44.685] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1564s [00:52:44.685] } 1564s [00:52:44.685] else { 1564s [00:52:44.685] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1564s [00:52:44.685] } 1564s [00:52:44.685] { 1564s [00:52:44.685] if (base::length(...future.futureOptionsAdded) > 1564s [00:52:44.685] 0L) { 1564s [00:52:44.685] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1564s [00:52:44.685] base::names(opts) <- ...future.futureOptionsAdded 1564s [00:52:44.685] base::options(opts) 1564s [00:52:44.685] } 1564s [00:52:44.685] { 1564s [00:52:44.685] { 1564s [00:52:44.685] base::assign(".Random.seed", c(10407L, -193111136L, 1564s [00:52:44.685] 1998638665L, 1795077819L, 549408344L, 564105141L, 1564s [00:52:44.685] -308065669L), envir = base::globalenv(), 1564s [00:52:44.685] inherits = FALSE) 1564s [00:52:44.685] NULL 1564s [00:52:44.685] } 1564s [00:52:44.685] options(future.plan = NULL) 1564s [00:52:44.685] if (is.na(NA_character_)) 1564s [00:52:44.685] Sys.unsetenv("R_FUTURE_PLAN") 1564s [00:52:44.685] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1564s [00:52:44.685] future::plan(list(function (..., workers = availableCores(), 1564s [00:52:44.685] lazy = FALSE, rscript_libs = .libPaths(), 1564s [00:52:44.685] envir = parent.frame()) 1564s [00:52:44.685] { 1564s [00:52:44.685] if (is.function(workers)) 1564s [00:52:44.685] workers <- workers() 1564s [00:52:44.685] workers <- structure(as.integer(workers), 1564s [00:52:44.685] class = class(workers)) 1564s [00:52:44.685] stop_if_not(length(workers) == 1, is.finite(workers), 1564s [00:52:44.685] workers >= 1) 1564s [00:52:44.685] if (workers == 1L && !inherits(workers, "AsIs")) { 1564s [00:52:44.685] return(sequential(..., lazy = TRUE, envir = envir)) 1564s [00:52:44.685] } 1564s [00:52:44.685] future <- MultisessionFuture(..., workers = workers, 1564s [00:52:44.685] lazy = lazy, rscript_libs = rscript_libs, 1564s [00:52:44.685] envir = envir) 1564s [00:52:44.685] if (!future$lazy) 1564s [00:52:44.685] future <- run(future) 1564s [00:52:44.685] invisible(future) 1564s [00:52:44.685] }), .cleanup = FALSE, .init = FALSE) 1564s [00:52:44.685] } 1564s [00:52:44.685] } 1564s [00:52:44.685] } 1564s [00:52:44.685] }) 1564s [00:52:44.685] if (TRUE) { 1564s [00:52:44.685] base::sink(type = "output", split = FALSE) 1564s [00:52:44.685] if (TRUE) { 1564s [00:52:44.685] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1564s [00:52:44.685] } 1564s [00:52:44.685] else { 1564s [00:52:44.685] ...future.result["stdout"] <- base::list(NULL) 1564s [00:52:44.685] } 1564s [00:52:44.685] base::close(...future.stdout) 1564s [00:52:44.685] ...future.stdout <- NULL 1564s [00:52:44.685] } 1564s [00:52:44.685] ...future.result$conditions <- ...future.conditions 1564s [00:52:44.685] ...future.result$finished <- base::Sys.time() 1564s [00:52:44.685] ...future.result 1564s [00:52:44.685] } 1564s [00:52:44.690] assign_globals() ... 1564s [00:52:44.691] List of 5 1564s [00:52:44.691] $ ...future.FUN :function (C, k) 1564s [00:52:44.691] $ MoreArgs : NULL 1564s [00:52:44.691] $ ...future.elements_ii :List of 2 1564s [00:52:44.691] ..$ :List of 3 1564s [00:52:44.691] .. ..$ : chr "C" 1564s [00:52:44.691] .. ..$ : chr "B" 1564s [00:52:44.691] .. ..$ : chr "A" 1564s [00:52:44.691] ..$ :List of 3 1564s [00:52:44.691] .. ..$ : int 3 1564s [00:52:44.691] .. ..$ : int 4 1564s [00:52:44.691] .. ..$ : int 5 1564s [00:52:44.691] $ ...future.seeds_ii : NULL 1564s [00:52:44.691] $ ...future.globals.maxSize: NULL 1564s [00:52:44.691] - attr(*, "where")=List of 5 1564s [00:52:44.691] ..$ ...future.FUN : 1564s [00:52:44.691] ..$ MoreArgs : 1564s [00:52:44.691] ..$ ...future.elements_ii : 1564s [00:52:44.691] ..$ ...future.seeds_ii : 1564s [00:52:44.691] ..$ ...future.globals.maxSize: 1564s [00:52:44.691] - attr(*, "resolved")= logi FALSE 1564s [00:52:44.691] - attr(*, "total_size")= num 3824 1564s [00:52:44.691] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1564s [00:52:44.691] - attr(*, "already-done")= logi TRUE 1564s [00:52:44.699] - reassign environment for ‘...future.FUN’ 1564s [00:52:44.699] - copied ‘...future.FUN’ to environment 1564s [00:52:44.699] - copied ‘MoreArgs’ to environment 1564s [00:52:44.699] - copied ‘...future.elements_ii’ to environment 1564s [00:52:44.699] - copied ‘...future.seeds_ii’ to environment 1564s [00:52:44.699] - copied ‘...future.globals.maxSize’ to environment 1564s [00:52:44.699] assign_globals() ... done 1564s [00:52:44.700] plan(): Setting new future strategy stack: 1564s [00:52:44.700] List of future strategies: 1564s [00:52:44.700] 1. sequential: 1564s [00:52:44.700] - args: function (..., envir = parent.frame()) 1564s [00:52:44.700] - tweaked: FALSE 1564s [00:52:44.700] - call: NULL 1564s [00:52:44.700] plan(): nbrOfWorkers() = 1 1564s [00:52:44.701] plan(): Setting new future strategy stack: 1564s [00:52:44.701] List of future strategies: 1564s [00:52:44.701] 1. multisession: 1564s [00:52:44.701] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1564s [00:52:44.701] - tweaked: FALSE 1564s [00:52:44.701] - call: plan(strategy) 1564s [00:52:44.705] plan(): nbrOfWorkers() = 1 1564s [00:52:44.705] SequentialFuture started (and completed) 1564s [00:52:44.705] - Launch lazy future ... done 1564s [00:52:44.705] run() for ‘SequentialFuture’ ... done 1564s [00:52:44.705] Created future: 1564s [00:52:44.705] SequentialFuture: 1564s [00:52:44.705] Label: ‘future_mapply-2’ 1564s [00:52:44.705] Expression: 1564s [00:52:44.705] { 1564s [00:52:44.705] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1564s [00:52:44.705] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1564s [00:52:44.705] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1564s [00:52:44.705] on.exit(options(oopts), add = TRUE) 1564s [00:52:44.705] } 1564s [00:52:44.705] { 1564s [00:52:44.705] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1564s [00:52:44.705] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1564s [00:52:44.705] do.call(mapply, args = args) 1564s [00:52:44.705] } 1564s [00:52:44.705] } 1564s [00:52:44.705] Lazy evaluation: FALSE 1564s [00:52:44.705] Asynchronous evaluation: FALSE 1564s [00:52:44.705] Local evaluation: TRUE 1564s [00:52:44.705] Environment: R_GlobalEnv 1564s [00:52:44.705] Capture standard output: TRUE 1564s [00:52:44.705] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1564s [00:52:44.705] Globals: 5 objects totaling 3.73 KiB (function ‘...future.FUN’ of 3.24 KiB, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 504 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1564s [00:52:44.705] Packages: 1564s [00:52:44.705] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1564s [00:52:44.705] Resolved: TRUE 1564s [00:52:44.705] Value: 336 bytes of class ‘list’ 1564s [00:52:44.705] Early signaling: FALSE 1564s [00:52:44.705] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1564s [00:52:44.705] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1564s [00:52:44.707] Chunk #2 of 2 ... DONE 1564s [00:52:44.707] Launching 2 futures (chunks) ... DONE 1564s [00:52:44.707] Resolving 2 futures (chunks) ... 1564s [00:52:44.707] resolve() on list ... 1564s [00:52:44.707] recursive: 0 1564s [00:52:44.708] length: 2 1564s [00:52:44.708] 1564s [00:52:44.708] resolved() for ‘SequentialFuture’ ... 1564s [00:52:44.708] - state: ‘finished’ 1564s [00:52:44.708] - run: TRUE 1564s [00:52:44.708] - result: ‘FutureResult’ 1564s [00:52:44.708] resolved() for ‘SequentialFuture’ ... done 1564s [00:52:44.709] Future #1 1564s [00:52:44.709] signalConditionsASAP(SequentialFuture, pos=1) ... 1564s [00:52:44.709] - nx: 2 1564s [00:52:44.709] - relay: TRUE 1564s [00:52:44.709] - stdout: TRUE 1564s [00:52:44.709] - signal: TRUE 1564s [00:52:44.709] - resignal: FALSE 1564s [00:52:44.709] - force: TRUE 1564s [00:52:44.710] - relayed: [n=2] FALSE, FALSE 1564s [00:52:44.710] - queued futures: [n=2] FALSE, FALSE 1564s [00:52:44.710] - until=1 1564s [00:52:44.710] - relaying element #1 1564s [00:52:44.710] - relayed: [n=2] TRUE, FALSE 1564s [00:52:44.710] - queued futures: [n=2] TRUE, FALSE 1564s [00:52:44.711] signalConditionsASAP(SequentialFuture, pos=1) ... done 1564s [00:52:44.711] length: 1 (resolved future 1) 1564s [00:52:44.711] resolved() for ‘SequentialFuture’ ... 1564s [00:52:44.711] - state: ‘finished’ 1564s [00:52:44.711] - run: TRUE 1564s [00:52:44.711] - result: ‘FutureResult’ 1564s [00:52:44.712] resolved() for ‘SequentialFuture’ ... done 1564s [00:52:44.712] Future #2 1564s [00:52:44.712] signalConditionsASAP(SequentialFuture, pos=2) ... 1564s [00:52:44.712] - nx: 2 1564s [00:52:44.712] - relay: TRUE 1564s [00:52:44.712] - stdout: TRUE 1564s [00:52:44.712] - signal: TRUE 1564s [00:52:44.713] - resignal: FALSE 1564s [00:52:44.713] - force: TRUE 1564s [00:52:44.713] - relayed: [n=2] TRUE, FALSE 1564s [00:52:44.713] - queued futures: [n=2] TRUE, FALSE 1564s [00:52:44.713] - until=2 1564s [00:52:44.713] - relaying element #2 1564s [00:52:44.714] - relayed: [n=2] TRUE, TRUE 1564s [00:52:44.714] - queued futures: [n=2] TRUE, TRUE 1564s [00:52:44.714] signalConditionsASAP(SequentialFuture, pos=2) ... done 1564s [00:52:44.714] length: 0 (resolved future 2) 1564s [00:52:44.714] Relaying remaining futures 1564s [00:52:44.715] signalConditionsASAP(NULL, pos=0) ... 1564s [00:52:44.715] - nx: 2 1564s [00:52:44.715] - relay: TRUE 1564s [00:52:44.715] - stdout: TRUE 1564s [00:52:44.715] - signal: TRUE 1564s [00:52:44.715] - resignal: FALSE 1564s [00:52:44.715] - force: TRUE 1564s [00:52:44.716] - relayed: [n=2] TRUE, TRUE 1564s [00:52:44.716] - queued futures: [n=2] TRUE, TRUE 1564s - flush all 1564s [00:52:44.716] - relayed: [n=2] TRUE, TRUE 1564s [00:52:44.716] - queued futures: [n=2] TRUE, TRUE 1564s [00:52:44.716] signalConditionsASAP(NULL, pos=0) ... done 1564s [00:52:44.716] resolve() on list ... DONE 1564s [00:52:44.717] - Number of value chunks collected: 2 1564s [00:52:44.717] Resolving 2 futures (chunks) ... DONE 1564s [00:52:44.717] Reducing values from 2 chunks ... 1564s [00:52:44.717] - Number of values collected after concatenation: 5 1564s [00:52:44.717] - Number of values expected: 5 1564s [00:52:44.717] Reverse index remapping (attribute 'ordering'): [n = 5] 5, 4, 3, 2, 1 1564s [00:52:44.718] Reducing values from 2 chunks ... DONE 1564s [00:52:44.718] future_mapply() ... DONE 1564s [00:52:44.718] future_mapply() ... 1564s [00:52:44.721] Number of chunks: 1 1564s [00:52:44.722] getGlobalsAndPackagesXApply() ... 1564s [00:52:44.722] - future.globals: TRUE 1564s [00:52:44.722] getGlobalsAndPackages() ... 1564s [00:52:44.722] Searching for globals... 1564s [00:52:44.725] - globals found: [3] ‘FUN’, ‘paste’, ‘rep.int’ 1564s [00:52:44.726] Searching for globals ... DONE 1564s [00:52:44.726] Resolving globals: FALSE 1564s [00:52:44.726] The total size of the 1 globals is 3.24 KiB (3320 bytes) 1564s [00:52:44.727] The total size of the 1 globals exported for future expression (‘FUN()’) is 3.24 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (3.24 KiB of class ‘function’) 1564s [00:52:44.727] - globals: [1] ‘FUN’ 1564s [00:52:44.727] 1564s [00:52:44.727] getGlobalsAndPackages() ... DONE 1564s [00:52:44.727] - globals found/used: [n=1] ‘FUN’ 1564s [00:52:44.727] - needed namespaces: [n=0] 1564s [00:52:44.728] Finding globals ... DONE 1564s [00:52:44.728] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1564s [00:52:44.728] List of 2 1564s [00:52:44.728] $ ...future.FUN:function (C, k) 1564s [00:52:44.728] $ MoreArgs : list() 1564s [00:52:44.728] - attr(*, "where")=List of 2 1564s [00:52:44.728] ..$ ...future.FUN: 1564s [00:52:44.728] ..$ MoreArgs : 1564s [00:52:44.728] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1564s [00:52:44.728] - attr(*, "resolved")= logi FALSE 1564s [00:52:44.728] - attr(*, "total_size")= num NA 1564s [00:52:44.731] Packages to be attached in all futures: [n=0] 1564s [00:52:44.731] getGlobalsAndPackagesXApply() ... DONE 1564s [00:52:44.732] Number of futures (= number of chunks): 1 1564s [00:52:44.732] Launching 1 futures (chunks) ... 1564s [00:52:44.732] Chunk #1 of 1 ... 1564s [00:52:44.732] - Finding globals in '...' for chunk #1 ... 1564s [00:52:44.732] getGlobalsAndPackages() ... 1564s [00:52:44.732] Searching for globals... 1564s [00:52:44.733] 1564s [00:52:44.733] Searching for globals ... DONE 1564s [00:52:44.733] - globals: [0] 1564s [00:52:44.733] getGlobalsAndPackages() ... DONE 1564s [00:52:44.733] + additional globals found: [n=0] 1564s [00:52:44.734] + additional namespaces needed: [n=0] 1564s [00:52:44.734] - Finding globals in '...' for chunk #1 ... DONE 1564s [00:52:44.734] - seeds: 1564s [00:52:44.734] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:44.734] getGlobalsAndPackages() ... 1564s [00:52:44.734] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:44.735] Resolving globals: FALSE 1564s [00:52:44.735] The total size of the 5 globals is 4.06 KiB (4160 bytes) 1564s [00:52:44.736] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 4.06 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (3.24 KiB of class ‘function’), ‘...future.elements_ii’ (840 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘list’) 1564s [00:52:44.736] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:44.736] 1564s [00:52:44.736] getGlobalsAndPackages() ... DONE 1564s [00:52:44.737] run() for ‘Future’ ... 1564s [00:52:44.737] - state: ‘created’ 1564s [00:52:44.737] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1564s [00:52:44.740] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1564s [00:52:44.740] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1564s [00:52:44.741] - Field: ‘label’ 1564s [00:52:44.741] - Field: ‘local’ 1564s [00:52:44.741] - Field: ‘owner’ 1564s [00:52:44.741] - Field: ‘envir’ 1564s [00:52:44.741] - Field: ‘packages’ 1564s [00:52:44.741] - Field: ‘gc’ 1564s [00:52:44.741] - Field: ‘conditions’ 1564s [00:52:44.742] - Field: ‘expr’ 1564s [00:52:44.742] - Field: ‘uuid’ 1564s [00:52:44.742] - Field: ‘seed’ 1564s [00:52:44.742] - Field: ‘version’ 1564s [00:52:44.742] - Field: ‘result’ 1564s [00:52:44.742] - Field: ‘asynchronous’ 1564s [00:52:44.742] - Field: ‘calls’ 1564s [00:52:44.743] - Field: ‘globals’ 1564s [00:52:44.743] - Field: ‘stdout’ 1564s [00:52:44.743] - Field: ‘earlySignal’ 1564s [00:52:44.743] - Field: ‘lazy’ 1564s [00:52:44.743] - Field: ‘state’ 1564s [00:52:44.743] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1564s [00:52:44.744] - Launch lazy future ... 1564s [00:52:44.744] Packages needed by the future expression (n = 0): 1564s [00:52:44.744] Packages needed by future strategies (n = 0): 1564s [00:52:44.744] { 1564s [00:52:44.744] { 1564s [00:52:44.744] { 1564s [00:52:44.744] ...future.startTime <- base::Sys.time() 1564s [00:52:44.744] { 1564s [00:52:44.744] { 1564s [00:52:44.744] { 1564s [00:52:44.744] base::local({ 1564s [00:52:44.744] has_future <- base::requireNamespace("future", 1564s [00:52:44.744] quietly = TRUE) 1564s [00:52:44.744] if (has_future) { 1564s [00:52:44.744] ns <- base::getNamespace("future") 1564s [00:52:44.744] version <- ns[[".package"]][["version"]] 1564s [00:52:44.744] if (is.null(version)) 1564s [00:52:44.744] version <- utils::packageVersion("future") 1564s [00:52:44.744] } 1564s [00:52:44.744] else { 1564s [00:52:44.744] version <- NULL 1564s [00:52:44.744] } 1564s [00:52:44.744] if (!has_future || version < "1.8.0") { 1564s [00:52:44.744] info <- base::c(r_version = base::gsub("R version ", 1564s [00:52:44.744] "", base::R.version$version.string), 1564s [00:52:44.744] platform = base::sprintf("%s (%s-bit)", 1564s [00:52:44.744] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1564s [00:52:44.744] os = base::paste(base::Sys.info()[base::c("sysname", 1564s [00:52:44.744] "release", "version")], collapse = " "), 1564s [00:52:44.744] hostname = base::Sys.info()[["nodename"]]) 1564s [00:52:44.744] info <- base::sprintf("%s: %s", base::names(info), 1564s [00:52:44.744] info) 1564s [00:52:44.744] info <- base::paste(info, collapse = "; ") 1564s [00:52:44.744] if (!has_future) { 1564s [00:52:44.744] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1564s [00:52:44.744] info) 1564s [00:52:44.744] } 1564s [00:52:44.744] else { 1564s [00:52:44.744] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1564s [00:52:44.744] info, version) 1564s [00:52:44.744] } 1564s [00:52:44.744] base::stop(msg) 1564s [00:52:44.744] } 1564s [00:52:44.744] }) 1564s [00:52:44.744] } 1564s [00:52:44.744] options(future.plan = NULL) 1564s [00:52:44.744] Sys.unsetenv("R_FUTURE_PLAN") 1564s [00:52:44.744] future::plan("default", .cleanup = FALSE, .init = FALSE) 1564s [00:52:44.744] } 1564s [00:52:44.744] ...future.workdir <- getwd() 1564s [00:52:44.744] } 1564s [00:52:44.744] ...future.oldOptions <- base::as.list(base::.Options) 1564s [00:52:44.744] ...future.oldEnvVars <- base::Sys.getenv() 1564s [00:52:44.744] } 1564s [00:52:44.744] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1564s [00:52:44.744] future.globals.maxSize = NULL, future.globals.method = NULL, 1564s [00:52:44.744] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1564s [00:52:44.744] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1564s [00:52:44.744] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1564s [00:52:44.744] future.stdout.windows.reencode = NULL, width = 80L) 1564s [00:52:44.744] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1564s [00:52:44.744] base::names(...future.oldOptions)) 1564s [00:52:44.744] } 1564s [00:52:44.744] if (FALSE) { 1564s [00:52:44.744] } 1564s [00:52:44.744] else { 1564s [00:52:44.744] if (TRUE) { 1564s [00:52:44.744] ...future.stdout <- base::rawConnection(base::raw(0L), 1564s [00:52:44.744] open = "w") 1564s [00:52:44.744] } 1564s [00:52:44.744] else { 1564s [00:52:44.744] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1564s [00:52:44.744] windows = "NUL", "/dev/null"), open = "w") 1564s [00:52:44.744] } 1564s [00:52:44.744] base::sink(...future.stdout, type = "output", split = FALSE) 1564s [00:52:44.744] base::on.exit(if (!base::is.null(...future.stdout)) { 1564s [00:52:44.744] base::sink(type = "output", split = FALSE) 1564s [00:52:44.744] base::close(...future.stdout) 1564s [00:52:44.744] }, add = TRUE) 1564s [00:52:44.744] } 1564s [00:52:44.744] ...future.frame <- base::sys.nframe() 1564s [00:52:44.744] ...future.conditions <- base::list() 1564s [00:52:44.744] ...future.rng <- base::globalenv()$.Random.seed 1564s [00:52:44.744] if (FALSE) { 1564s [00:52:44.744] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1564s [00:52:44.744] "...future.value", "...future.globalenv.names", ".Random.seed") 1564s [00:52:44.744] } 1564s [00:52:44.744] ...future.result <- base::tryCatch({ 1564s [00:52:44.744] base::withCallingHandlers({ 1564s [00:52:44.744] ...future.value <- base::withVisible(base::local({ 1564s [00:52:44.744] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1564s [00:52:44.744] if (!identical(...future.globals.maxSize.org, 1564s [00:52:44.744] ...future.globals.maxSize)) { 1564s [00:52:44.744] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1564s [00:52:44.744] on.exit(options(oopts), add = TRUE) 1564s [00:52:44.744] } 1564s [00:52:44.744] { 1564s [00:52:44.744] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1564s [00:52:44.744] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1564s [00:52:44.744] USE.NAMES = FALSE) 1564s [00:52:44.744] do.call(mapply, args = args) 1564s [00:52:44.744] } 1564s [00:52:44.744] })) 1564s [00:52:44.744] future::FutureResult(value = ...future.value$value, 1564s [00:52:44.744] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1564s [00:52:44.744] ...future.rng), globalenv = if (FALSE) 1564s [00:52:44.744] list(added = base::setdiff(base::names(base::.GlobalEnv), 1564s [00:52:44.744] ...future.globalenv.names)) 1564s [00:52:44.744] else NULL, started = ...future.startTime, version = "1.8") 1564s [00:52:44.744] }, condition = base::local({ 1564s [00:52:44.744] c <- base::c 1564s [00:52:44.744] inherits <- base::inherits 1564s [00:52:44.744] invokeRestart <- base::invokeRestart 1564s [00:52:44.744] length <- base::length 1564s [00:52:44.744] list <- base::list 1564s [00:52:44.744] seq.int <- base::seq.int 1564s [00:52:44.744] signalCondition <- base::signalCondition 1564s [00:52:44.744] sys.calls <- base::sys.calls 1564s [00:52:44.744] `[[` <- base::`[[` 1564s [00:52:44.744] `+` <- base::`+` 1564s [00:52:44.744] `<<-` <- base::`<<-` 1564s [00:52:44.744] sysCalls <- function(calls = sys.calls(), from = 1L) { 1564s [00:52:44.744] calls[seq.int(from = from + 12L, to = length(calls) - 1564s [00:52:44.744] 3L)] 1564s [00:52:44.744] } 1564s [00:52:44.744] function(cond) { 1564s [00:52:44.744] is_error <- inherits(cond, "error") 1564s [00:52:44.744] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1564s [00:52:44.744] NULL) 1564s [00:52:44.744] if (is_error) { 1564s [00:52:44.744] sessionInformation <- function() { 1564s [00:52:44.744] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1564s [00:52:44.744] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1564s [00:52:44.744] search = base::search(), system = base::Sys.info()) 1564s [00:52:44.744] } 1564s [00:52:44.744] ...future.conditions[[length(...future.conditions) + 1564s [00:52:44.744] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1564s [00:52:44.744] cond$call), session = sessionInformation(), 1564s [00:52:44.744] timestamp = base::Sys.time(), signaled = 0L) 1564s [00:52:44.744] signalCondition(cond) 1564s [00:52:44.744] } 1564s [00:52:44.744] else if (!ignore && TRUE && inherits(cond, c("condition", 1564s [00:52:44.744] "immediateCondition"))) { 1564s [00:52:44.744] signal <- TRUE && inherits(cond, "immediateCondition") 1564s [00:52:44.744] ...future.conditions[[length(...future.conditions) + 1564s [00:52:44.744] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1564s [00:52:44.744] if (TRUE && !signal) { 1564s [00:52:44.744] muffleCondition <- function (cond, pattern = "^muffle") 1564s [00:52:44.744] { 1564s [00:52:44.744] inherits <- base::inherits 1564s [00:52:44.744] invokeRestart <- base::invokeRestart 1564s [00:52:44.744] is.null <- base::is.null 1564s [00:52:44.744] muffled <- FALSE 1564s [00:52:44.744] if (inherits(cond, "message")) { 1564s [00:52:44.744] muffled <- grepl(pattern, "muffleMessage") 1564s [00:52:44.744] if (muffled) 1564s [00:52:44.744] invokeRestart("muffleMessage") 1564s [00:52:44.744] } 1564s [00:52:44.744] else if (inherits(cond, "warning")) { 1564s [00:52:44.744] muffled <- grepl(pattern, "muffleWarning") 1564s [00:52:44.744] if (muffled) 1564s [00:52:44.744] invokeRestart("muffleWarning") 1564s [00:52:44.744] } 1564s [00:52:44.744] else if (inherits(cond, "condition")) { 1564s [00:52:44.744] if (!is.null(pattern)) { 1564s [00:52:44.744] computeRestarts <- base::computeRestarts 1564s [00:52:44.744] grepl <- base::grepl 1564s [00:52:44.744] restarts <- computeRestarts(cond) 1564s [00:52:44.744] for (restart in restarts) { 1564s [00:52:44.744] name <- restart$name 1564s [00:52:44.744] if (is.null(name)) 1564s [00:52:44.744] next 1564s [00:52:44.744] if (!grepl(pattern, name)) 1564s [00:52:44.744] next 1564s [00:52:44.744] invokeRestart(restart) 1564s [00:52:44.744] muffled <- TRUE 1564s [00:52:44.744] break 1564s [00:52:44.744] } 1564s [00:52:44.744] } 1564s [00:52:44.744] } 1564s [00:52:44.744] invisible(muffled) 1564s [00:52:44.744] } 1564s [00:52:44.744] muffleCondition(cond, pattern = "^muffle") 1564s [00:52:44.744] } 1564s [00:52:44.744] } 1564s [00:52:44.744] else { 1564s [00:52:44.744] if (TRUE) { 1564s [00:52:44.744] muffleCondition <- function (cond, pattern = "^muffle") 1564s [00:52:44.744] { 1564s [00:52:44.744] inherits <- base::inherits 1564s [00:52:44.744] invokeRestart <- base::invokeRestart 1564s [00:52:44.744] is.null <- base::is.null 1564s [00:52:44.744] muffled <- FALSE 1564s [00:52:44.744] if (inherits(cond, "message")) { 1564s [00:52:44.744] muffled <- grepl(pattern, "muffleMessage") 1564s [00:52:44.744] if (muffled) 1564s [00:52:44.744] invokeRestart("muffleMessage") 1564s [00:52:44.744] } 1564s [00:52:44.744] else if (inherits(cond, "warning")) { 1564s [00:52:44.744] muffled <- grepl(pattern, "muffleWarning") 1564s [00:52:44.744] if (muffled) 1564s [00:52:44.744] invokeRestart("muffleWarning") 1564s [00:52:44.744] } 1564s [00:52:44.744] else if (inherits(cond, "condition")) { 1564s [00:52:44.744] if (!is.null(pattern)) { 1564s [00:52:44.744] computeRestarts <- base::computeRestarts 1564s [00:52:44.744] grepl <- base::grepl 1564s [00:52:44.744] restarts <- computeRestarts(cond) 1564s [00:52:44.744] for (restart in restarts) { 1564s [00:52:44.744] name <- restart$name 1564s [00:52:44.744] if (is.null(name)) 1564s [00:52:44.744] next 1564s [00:52:44.744] if (!grepl(pattern, name)) 1564s [00:52:44.744] next 1564s [00:52:44.744] invokeRestart(restart) 1564s [00:52:44.744] muffled <- TRUE 1564s [00:52:44.744] break 1564s [00:52:44.744] } 1564s [00:52:44.744] } 1564s [00:52:44.744] } 1564s [00:52:44.744] invisible(muffled) 1564s [00:52:44.744] } 1564s [00:52:44.744] muffleCondition(cond, pattern = "^muffle") 1564s [00:52:44.744] } 1564s [00:52:44.744] } 1564s [00:52:44.744] } 1564s [00:52:44.744] })) 1564s [00:52:44.744] }, error = function(ex) { 1564s [00:52:44.744] base::structure(base::list(value = NULL, visible = NULL, 1564s [00:52:44.744] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1564s [00:52:44.744] ...future.rng), started = ...future.startTime, 1564s [00:52:44.744] finished = Sys.time(), session_uuid = NA_character_, 1564s [00:52:44.744] version = "1.8"), class = "FutureResult") 1564s [00:52:44.744] }, finally = { 1564s [00:52:44.744] if (!identical(...future.workdir, getwd())) 1564s [00:52:44.744] setwd(...future.workdir) 1564s [00:52:44.744] { 1564s [00:52:44.744] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1564s [00:52:44.744] ...future.oldOptions$nwarnings <- NULL 1564s [00:52:44.744] } 1564s [00:52:44.744] base::options(...future.oldOptions) 1564s [00:52:44.744] if (.Platform$OS.type == "windows") { 1564s [00:52:44.744] old_names <- names(...future.oldEnvVars) 1564s [00:52:44.744] envs <- base::Sys.getenv() 1564s [00:52:44.744] names <- names(envs) 1564s [00:52:44.744] common <- intersect(names, old_names) 1564s [00:52:44.744] added <- setdiff(names, old_names) 1564s [00:52:44.744] removed <- setdiff(old_names, names) 1564s [00:52:44.744] changed <- common[...future.oldEnvVars[common] != 1564s [00:52:44.744] envs[common]] 1564s [00:52:44.744] NAMES <- toupper(changed) 1564s [00:52:44.744] args <- list() 1564s [00:52:44.744] for (kk in seq_along(NAMES)) { 1564s [00:52:44.744] name <- changed[[kk]] 1564s [00:52:44.744] NAME <- NAMES[[kk]] 1564s [00:52:44.744] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:44.744] next 1564s [00:52:44.744] args[[name]] <- ...future.oldEnvVars[[name]] 1564s [00:52:44.744] } 1564s [00:52:44.744] NAMES <- toupper(added) 1564s [00:52:44.744] for (kk in seq_along(NAMES)) { 1564s [00:52:44.744] name <- added[[kk]] 1564s [00:52:44.744] NAME <- NAMES[[kk]] 1564s [00:52:44.744] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:44.744] next 1564s [00:52:44.744] args[[name]] <- "" 1564s [00:52:44.744] } 1564s [00:52:44.744] NAMES <- toupper(removed) 1564s [00:52:44.744] for (kk in seq_along(NAMES)) { 1564s [00:52:44.744] name <- removed[[kk]] 1564s [00:52:44.744] NAME <- NAMES[[kk]] 1564s [00:52:44.744] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:44.744] next 1564s [00:52:44.744] args[[name]] <- ...future.oldEnvVars[[name]] 1564s [00:52:44.744] } 1564s [00:52:44.744] if (length(args) > 0) 1564s [00:52:44.744] base::do.call(base::Sys.setenv, args = args) 1564s [00:52:44.744] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1564s [00:52:44.744] } 1564s [00:52:44.744] else { 1564s [00:52:44.744] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1564s [00:52:44.744] } 1564s [00:52:44.744] { 1564s [00:52:44.744] if (base::length(...future.futureOptionsAdded) > 1564s [00:52:44.744] 0L) { 1564s [00:52:44.744] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1564s [00:52:44.744] base::names(opts) <- ...future.futureOptionsAdded 1564s [00:52:44.744] base::options(opts) 1564s [00:52:44.744] } 1564s [00:52:44.744] { 1564s [00:52:44.744] { 1564s [00:52:44.744] base::assign(".Random.seed", c(10407L, -193111136L, 1564s [00:52:44.744] 1998638665L, 1795077819L, 549408344L, 564105141L, 1564s [00:52:44.744] -308065669L), envir = base::globalenv(), 1564s [00:52:44.744] inherits = FALSE) 1564s [00:52:44.744] NULL 1564s [00:52:44.744] } 1564s [00:52:44.744] options(future.plan = NULL) 1564s [00:52:44.744] if (is.na(NA_character_)) 1564s [00:52:44.744] Sys.unsetenv("R_FUTURE_PLAN") 1564s [00:52:44.744] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1564s [00:52:44.744] future::plan(list(function (..., workers = availableCores(), 1564s [00:52:44.744] lazy = FALSE, rscript_libs = .libPaths(), 1564s [00:52:44.744] envir = parent.frame()) 1564s [00:52:44.744] { 1564s [00:52:44.744] if (is.function(workers)) 1564s [00:52:44.744] workers <- workers() 1564s [00:52:44.744] workers <- structure(as.integer(workers), 1564s [00:52:44.744] class = class(workers)) 1564s [00:52:44.744] stop_if_not(length(workers) == 1, is.finite(workers), 1564s [00:52:44.744] workers >= 1) 1564s [00:52:44.744] if (workers == 1L && !inherits(workers, "AsIs")) { 1564s [00:52:44.744] return(sequential(..., lazy = TRUE, envir = envir)) 1564s [00:52:44.744] } 1564s [00:52:44.744] future <- MultisessionFuture(..., workers = workers, 1564s [00:52:44.744] lazy = lazy, rscript_libs = rscript_libs, 1564s [00:52:44.744] envir = envir) 1564s [00:52:44.744] if (!future$lazy) 1564s [00:52:44.744] future <- run(future) 1564s [00:52:44.744] invisible(future) 1564s [00:52:44.744] }), .cleanup = FALSE, .init = FALSE) 1564s [00:52:44.744] } 1564s [00:52:44.744] } 1564s [00:52:44.744] } 1564s [00:52:44.744] }) 1564s [00:52:44.744] if (TRUE) { 1564s [00:52:44.744] base::sink(type = "output", split = FALSE) 1564s [00:52:44.744] if (TRUE) { 1564s [00:52:44.744] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1564s [00:52:44.744] } 1564s [00:52:44.744] else { 1564s [00:52:44.744] ...future.result["stdout"] <- base::list(NULL) 1564s [00:52:44.744] } 1564s [00:52:44.744] base::close(...future.stdout) 1564s [00:52:44.744] ...future.stdout <- NULL 1564s [00:52:44.744] } 1564s [00:52:44.744] ...future.result$conditions <- ...future.conditions 1564s [00:52:44.744] ...future.result$finished <- base::Sys.time() 1564s [00:52:44.744] ...future.result 1564s [00:52:44.744] } 1564s [00:52:44.750] assign_globals() ... 1564s [00:52:44.750] List of 5 1564s [00:52:44.750] $ ...future.FUN :function (C, k) 1564s [00:52:44.750] $ MoreArgs : list() 1564s [00:52:44.750] $ ...future.elements_ii :List of 2 1564s [00:52:44.750] ..$ :List of 5 1564s [00:52:44.750] .. ..$ : chr "A" 1564s [00:52:44.750] .. ..$ : chr "B" 1564s [00:52:44.750] .. ..$ : chr "C" 1564s [00:52:44.750] .. ..$ : chr "D" 1564s [00:52:44.750] .. ..$ : chr "E" 1564s [00:52:44.750] ..$ :List of 5 1564s [00:52:44.750] .. ..$ : int 5 1564s [00:52:44.750] .. ..$ : int 4 1564s [00:52:44.750] .. ..$ : int 3 1564s [00:52:44.750] .. ..$ : int 2 1564s [00:52:44.750] .. ..$ : int 1 1564s [00:52:44.750] $ ...future.seeds_ii : NULL 1564s [00:52:44.750] $ ...future.globals.maxSize: NULL 1564s [00:52:44.750] - attr(*, "where")=List of 5 1564s [00:52:44.750] ..$ ...future.FUN : 1564s [00:52:44.750] ..$ MoreArgs : 1564s [00:52:44.750] ..$ ...future.elements_ii : 1564s [00:52:44.750] ..$ ...future.seeds_ii : 1564s [00:52:44.750] ..$ ...future.globals.maxSize: 1564s [00:52:44.750] - attr(*, "resolved")= logi FALSE 1564s [00:52:44.750] - attr(*, "total_size")= num 4160 1564s [00:52:44.750] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1564s [00:52:44.750] - attr(*, "already-done")= logi TRUE 1564s [00:52:44.759] - reassign environment for ‘...future.FUN’ 1564s [00:52:44.759] - copied ‘...future.FUN’ to environment 1564s [00:52:44.759] - copied ‘MoreArgs’ to environment 1564s [00:52:44.759] - copied ‘...future.elements_ii’ to environment 1564s [00:52:44.760] - copied ‘...future.seeds_ii’ to environment 1564s [00:52:44.760] - copied ‘...future.globals.maxSize’ to environment 1564s [00:52:44.760] assign_globals() ... done 1564s [00:52:44.760] plan(): Setting new future strategy stack: 1564s [00:52:44.761] List of future strategies: 1564s [00:52:44.761] 1. sequential: 1564s [00:52:44.761] - args: function (..., envir = parent.frame()) 1564s [00:52:44.761] - tweaked: FALSE 1564s [00:52:44.761] - call: NULL 1564s [00:52:44.761] plan(): nbrOfWorkers() = 1 1564s [00:52:44.762] plan(): Setting new future strategy stack: 1564s [00:52:44.762] List of future strategies: 1564s [00:52:44.762] 1. multisession: 1564s [00:52:44.762] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1564s [00:52:44.762] - tweaked: FALSE 1564s [00:52:44.762] - call: plan(strategy) 1564s [00:52:44.766] plan(): nbrOfWorkers() = 1 1564s [00:52:44.767] SequentialFuture started (and completed) 1564s [00:52:44.767] - Launch lazy future ... done 1564s [00:52:44.767] run() for ‘SequentialFuture’ ... done 1564s [00:52:44.767] Created future: 1564s [00:52:44.767] SequentialFuture: 1564s [00:52:44.767] Label: ‘future_.mapply-1’ 1564s [00:52:44.767] Expression: 1564s [00:52:44.767] { 1564s [00:52:44.767] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1564s [00:52:44.767] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1564s [00:52:44.767] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1564s [00:52:44.767] on.exit(options(oopts), add = TRUE) 1564s [00:52:44.767] } 1564s [00:52:44.767] { 1564s [00:52:44.767] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1564s [00:52:44.767] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1564s [00:52:44.767] do.call(mapply, args = args) 1564s [00:52:44.767] } 1564s [00:52:44.767] } 1564s [00:52:44.767] Lazy evaluation: FALSE 1564s [00:52:44.767] Asynchronous evaluation: FALSE 1564s [00:52:44.767] Local evaluation: TRUE 1564s [00:52:44.767] Environment: R_GlobalEnv 1564s [00:52:44.767] Capture standard output: TRUE 1564s [00:52:44.767] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1564s [00:52:44.767] Globals: 5 objects totaling 4.06 KiB (function ‘...future.FUN’ of 3.24 KiB, list ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 840 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1564s [00:52:44.767] Packages: 1564s [00:52:44.767] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1564s [00:52:44.767] Resolved: TRUE 1564s [00:52:44.767] Value: 560 bytes of class ‘list’ 1564s [00:52:44.767] Early signaling: FALSE 1564s [00:52:44.767] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1564s [00:52:44.767] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1564s [00:52:44.769] Chunk #1 of 1 ... DONE 1564s [00:52:44.769] Launching 1 futures (chunks) ... DONE 1564s [00:52:44.769] Resolving 1 futures (chunks) ... 1564s [00:52:44.769] resolve() on list ... 1564s [00:52:44.769] recursive: 0 1564s [00:52:44.770] length: 1 1564s [00:52:44.770] 1564s [00:52:44.770] resolved() for ‘SequentialFuture’ ... 1564s [00:52:44.770] - state: ‘finished’ 1564s [00:52:44.770] - run: TRUE 1564s [00:52:44.771] - result: ‘FutureResult’ 1564s [00:52:44.771] resolved() for ‘SequentialFuture’ ... done 1564s [00:52:44.771] Future #1 1564s [00:52:44.771] signalConditionsASAP(SequentialFuture, pos=1) ... 1564s [00:52:44.772] - nx: 1 1564s [00:52:44.772] - relay: TRUE 1564s [00:52:44.772] - stdout: TRUE 1564s [00:52:44.772] - signal: TRUE 1564s [00:52:44.772] - resignal: FALSE 1564s [00:52:44.772] - force: TRUE 1564s [00:52:44.772] - relayed: [n=1] FALSE 1564s [00:52:44.772] - queued futures: [n=1] FALSE 1564s [00:52:44.773] - until=1 1564s [00:52:44.773] - relaying element #1 1564s [00:52:44.773] - relayed: [n=1] TRUE 1564s [00:52:44.774] - queued futures: [n=1] TRUE 1564s [00:52:44.774] signalConditionsASAP(SequentialFuture, pos=1) ... done 1564s [00:52:44.774] length: 0 (resolved future 1) 1564s [00:52:44.774] Relaying remaining futures 1564s [00:52:44.774] signalConditionsASAP(NULL, pos=0) ... 1564s [00:52:44.774] - nx: 1 1564s [00:52:44.774] - relay: TRUE 1564s [00:52:44.775] - stdout: TRUE 1564s [00:52:44.775] - signal: TRUE 1564s [00:52:44.775] - resignal: FALSE 1564s [00:52:44.775] - force: TRUE 1564s [00:52:44.775] - relayed: [n=1] TRUE 1564s [00:52:44.775] - queued futures: [n=1] TRUE 1564s - flush all 1564s [00:52:44.775] - relayed: [n=1] TRUE 1564s [00:52:44.776] - queued futures: [n=1] TRUE 1564s [00:52:44.776] signalConditionsASAP(NULL, pos=0) ... done 1564s [00:52:44.776] resolve() on list ... DONE 1564s [00:52:44.776] - Number of value chunks collected: 1 1564s [00:52:44.776] Resolving 1 futures (chunks) ... DONE 1564s [00:52:44.776] Reducing values from 1 chunks ... 1564s [00:52:44.777] - Number of values collected after concatenation: 5 1564s [00:52:44.777] - Number of values expected: 5 1564s [00:52:44.777] Reducing values from 1 chunks ... DONE 1564s [00:52:44.777] future_mapply() ... DONE 1564s - Subsetting (Issue #17) ... 1564s [00:52:44.777] future_mapply() ... 1564s [00:52:44.781] Number of chunks: 1 1564s [00:52:44.781] getGlobalsAndPackagesXApply() ... 1564s [00:52:44.781] - future.globals: TRUE 1564s [00:52:44.781] getGlobalsAndPackages() ... 1564s [00:52:44.781] Searching for globals... 1564s [00:52:44.783] - globals found: [1] ‘FUN’ 1564s [00:52:44.783] Searching for globals ... DONE 1564s [00:52:44.783] Resolving globals: FALSE 1564s [00:52:44.783] The total size of the 1 globals is 848 bytes (848 bytes) 1564s [00:52:44.784] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1564s [00:52:44.784] - globals: [1] ‘FUN’ 1564s [00:52:44.784] 1564s [00:52:44.784] getGlobalsAndPackages() ... DONE 1564s [00:52:44.785] - globals found/used: [n=1] ‘FUN’ 1564s [00:52:44.785] - needed namespaces: [n=0] 1564s [00:52:44.785] Finding globals ... DONE 1564s [00:52:44.785] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1564s [00:52:44.785] List of 2 1564s [00:52:44.785] $ ...future.FUN:function (x) 1564s [00:52:44.785] $ MoreArgs : NULL 1564s [00:52:44.785] - attr(*, "where")=List of 2 1564s [00:52:44.785] ..$ ...future.FUN: 1564s [00:52:44.785] ..$ MoreArgs : 1564s [00:52:44.785] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1564s [00:52:44.785] - attr(*, "resolved")= logi FALSE 1564s [00:52:44.785] - attr(*, "total_size")= num NA 1564s [00:52:44.788] Packages to be attached in all futures: [n=0] 1564s [00:52:44.789] getGlobalsAndPackagesXApply() ... DONE 1564s [00:52:44.789] Number of futures (= number of chunks): 1 1564s [00:52:44.789] Launching 1 futures (chunks) ... 1564s [00:52:44.789] Chunk #1 of 1 ... 1564s [00:52:44.790] - Finding globals in '...' for chunk #1 ... 1564s [00:52:44.790] getGlobalsAndPackages() ... 1564s [00:52:44.790] Searching for globals... 1564s [00:52:44.791] 1564s [00:52:44.791] Searching for globals ... DONE 1564s [00:52:44.791] - globals: [0] 1564s [00:52:44.792] getGlobalsAndPackages() ... DONE 1564s [00:52:44.792] + additional globals found: [n=0] 1564s [00:52:44.792] + additional namespaces needed: [n=0] 1564s [00:52:44.792] - Finding globals in '...' for chunk #1 ... DONE 1564s [00:52:44.792] - seeds: 1564s [00:52:44.792] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:44.793] getGlobalsAndPackages() ... 1564s [00:52:44.793] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:44.793] Resolving globals: FALSE 1564s [00:52:44.794] The total size of the 5 globals is 1.10 KiB (1128 bytes) 1564s [00:52:44.794] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 1.10 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (848 bytes of class ‘function’), ‘...future.elements_ii’ (280 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1564s [00:52:44.795] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:44.795] 1564s [00:52:44.795] getGlobalsAndPackages() ... DONE 1564s [00:52:44.796] run() for ‘Future’ ... 1564s [00:52:44.796] - state: ‘created’ 1564s [00:52:44.796] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1564s [00:52:44.800] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1564s [00:52:44.800] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1564s [00:52:44.800] - Field: ‘label’ 1564s [00:52:44.800] - Field: ‘local’ 1564s [00:52:44.800] - Field: ‘owner’ 1564s [00:52:44.800] - Field: ‘envir’ 1564s [00:52:44.801] - Field: ‘packages’ 1564s [00:52:44.801] - Field: ‘gc’ 1564s [00:52:44.801] - Field: ‘conditions’ 1564s [00:52:44.801] - Field: ‘expr’ 1564s [00:52:44.801] - Field: ‘uuid’ 1564s [00:52:44.802] - Field: ‘seed’ 1564s [00:52:44.802] - Field: ‘version’ 1564s [00:52:44.802] - Field: ‘result’ 1564s [00:52:44.802] - Field: ‘asynchronous’ 1564s [00:52:44.802] - Field: ‘calls’ 1564s [00:52:44.802] - Field: ‘globals’ 1564s [00:52:44.803] - Field: ‘stdout’ 1564s [00:52:44.803] - Field: ‘earlySignal’ 1564s [00:52:44.803] - Field: ‘lazy’ 1564s [00:52:44.803] - Field: ‘state’ 1564s [00:52:44.803] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1564s [00:52:44.803] - Launch lazy future ... 1564s [00:52:44.804] Packages needed by the future expression (n = 0): 1564s [00:52:44.804] Packages needed by future strategies (n = 0): 1564s [00:52:44.804] { 1564s [00:52:44.804] { 1564s [00:52:44.804] { 1564s [00:52:44.804] ...future.startTime <- base::Sys.time() 1564s [00:52:44.804] { 1564s [00:52:44.804] { 1564s [00:52:44.804] { 1564s [00:52:44.804] base::local({ 1564s [00:52:44.804] has_future <- base::requireNamespace("future", 1564s [00:52:44.804] quietly = TRUE) 1564s [00:52:44.804] if (has_future) { 1564s [00:52:44.804] ns <- base::getNamespace("future") 1564s [00:52:44.804] version <- ns[[".package"]][["version"]] 1564s [00:52:44.804] if (is.null(version)) 1564s [00:52:44.804] version <- utils::packageVersion("future") 1564s [00:52:44.804] } 1564s [00:52:44.804] else { 1564s [00:52:44.804] version <- NULL 1564s [00:52:44.804] } 1564s [00:52:44.804] if (!has_future || version < "1.8.0") { 1564s [00:52:44.804] info <- base::c(r_version = base::gsub("R version ", 1564s [00:52:44.804] "", base::R.version$version.string), 1564s [00:52:44.804] platform = base::sprintf("%s (%s-bit)", 1564s [00:52:44.804] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1564s [00:52:44.804] os = base::paste(base::Sys.info()[base::c("sysname", 1564s [00:52:44.804] "release", "version")], collapse = " "), 1564s [00:52:44.804] hostname = base::Sys.info()[["nodename"]]) 1564s [00:52:44.804] info <- base::sprintf("%s: %s", base::names(info), 1564s [00:52:44.804] info) 1564s [00:52:44.804] info <- base::paste(info, collapse = "; ") 1564s [00:52:44.804] if (!has_future) { 1564s [00:52:44.804] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1564s [00:52:44.804] info) 1564s [00:52:44.804] } 1564s [00:52:44.804] else { 1564s [00:52:44.804] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1564s [00:52:44.804] info, version) 1564s [00:52:44.804] } 1564s [00:52:44.804] base::stop(msg) 1564s [00:52:44.804] } 1564s [00:52:44.804] }) 1564s [00:52:44.804] } 1564s [00:52:44.804] options(future.plan = NULL) 1564s [00:52:44.804] Sys.unsetenv("R_FUTURE_PLAN") 1564s [00:52:44.804] future::plan("default", .cleanup = FALSE, .init = FALSE) 1564s [00:52:44.804] } 1564s [00:52:44.804] ...future.workdir <- getwd() 1564s [00:52:44.804] } 1564s [00:52:44.804] ...future.oldOptions <- base::as.list(base::.Options) 1564s [00:52:44.804] ...future.oldEnvVars <- base::Sys.getenv() 1564s [00:52:44.804] } 1564s [00:52:44.804] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1564s [00:52:44.804] future.globals.maxSize = NULL, future.globals.method = NULL, 1564s [00:52:44.804] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1564s [00:52:44.804] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1564s [00:52:44.804] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1564s [00:52:44.804] future.stdout.windows.reencode = NULL, width = 80L) 1564s [00:52:44.804] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1564s [00:52:44.804] base::names(...future.oldOptions)) 1564s [00:52:44.804] } 1564s [00:52:44.804] if (FALSE) { 1564s [00:52:44.804] } 1564s [00:52:44.804] else { 1564s [00:52:44.804] if (TRUE) { 1564s [00:52:44.804] ...future.stdout <- base::rawConnection(base::raw(0L), 1564s [00:52:44.804] open = "w") 1564s [00:52:44.804] } 1564s [00:52:44.804] else { 1564s [00:52:44.804] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1564s [00:52:44.804] windows = "NUL", "/dev/null"), open = "w") 1564s [00:52:44.804] } 1564s [00:52:44.804] base::sink(...future.stdout, type = "output", split = FALSE) 1564s [00:52:44.804] base::on.exit(if (!base::is.null(...future.stdout)) { 1564s [00:52:44.804] base::sink(type = "output", split = FALSE) 1564s [00:52:44.804] base::close(...future.stdout) 1564s [00:52:44.804] }, add = TRUE) 1564s [00:52:44.804] } 1564s [00:52:44.804] ...future.frame <- base::sys.nframe() 1564s [00:52:44.804] ...future.conditions <- base::list() 1564s [00:52:44.804] ...future.rng <- base::globalenv()$.Random.seed 1564s [00:52:44.804] if (FALSE) { 1564s [00:52:44.804] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1564s [00:52:44.804] "...future.value", "...future.globalenv.names", ".Random.seed") 1564s [00:52:44.804] } 1564s [00:52:44.804] ...future.result <- base::tryCatch({ 1564s [00:52:44.804] base::withCallingHandlers({ 1564s [00:52:44.804] ...future.value <- base::withVisible(base::local({ 1564s [00:52:44.804] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1564s [00:52:44.804] if (!identical(...future.globals.maxSize.org, 1564s [00:52:44.804] ...future.globals.maxSize)) { 1564s [00:52:44.804] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1564s [00:52:44.804] on.exit(options(oopts), add = TRUE) 1564s [00:52:44.804] } 1564s [00:52:44.804] { 1564s [00:52:44.804] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1564s [00:52:44.804] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1564s [00:52:44.804] USE.NAMES = FALSE) 1564s [00:52:44.804] do.call(mapply, args = args) 1564s [00:52:44.804] } 1564s [00:52:44.804] })) 1564s [00:52:44.804] future::FutureResult(value = ...future.value$value, 1564s [00:52:44.804] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1564s [00:52:44.804] ...future.rng), globalenv = if (FALSE) 1564s [00:52:44.804] list(added = base::setdiff(base::names(base::.GlobalEnv), 1564s [00:52:44.804] ...future.globalenv.names)) 1564s [00:52:44.804] else NULL, started = ...future.startTime, version = "1.8") 1564s [00:52:44.804] }, condition = base::local({ 1564s [00:52:44.804] c <- base::c 1564s [00:52:44.804] inherits <- base::inherits 1564s [00:52:44.804] invokeRestart <- base::invokeRestart 1564s [00:52:44.804] length <- base::length 1564s [00:52:44.804] list <- base::list 1564s [00:52:44.804] seq.int <- base::seq.int 1564s [00:52:44.804] signalCondition <- base::signalCondition 1564s [00:52:44.804] sys.calls <- base::sys.calls 1564s [00:52:44.804] `[[` <- base::`[[` 1564s [00:52:44.804] `+` <- base::`+` 1564s [00:52:44.804] `<<-` <- base::`<<-` 1564s [00:52:44.804] sysCalls <- function(calls = sys.calls(), from = 1L) { 1564s [00:52:44.804] calls[seq.int(from = from + 12L, to = length(calls) - 1564s [00:52:44.804] 3L)] 1564s [00:52:44.804] } 1564s [00:52:44.804] function(cond) { 1564s [00:52:44.804] is_error <- inherits(cond, "error") 1564s [00:52:44.804] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1564s [00:52:44.804] NULL) 1564s [00:52:44.804] if (is_error) { 1564s [00:52:44.804] sessionInformation <- function() { 1564s [00:52:44.804] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1564s [00:52:44.804] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1564s [00:52:44.804] search = base::search(), system = base::Sys.info()) 1564s [00:52:44.804] } 1564s [00:52:44.804] ...future.conditions[[length(...future.conditions) + 1564s [00:52:44.804] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1564s [00:52:44.804] cond$call), session = sessionInformation(), 1564s [00:52:44.804] timestamp = base::Sys.time(), signaled = 0L) 1564s [00:52:44.804] signalCondition(cond) 1564s [00:52:44.804] } 1564s [00:52:44.804] else if (!ignore && TRUE && inherits(cond, c("condition", 1564s [00:52:44.804] "immediateCondition"))) { 1564s [00:52:44.804] signal <- TRUE && inherits(cond, "immediateCondition") 1564s [00:52:44.804] ...future.conditions[[length(...future.conditions) + 1564s [00:52:44.804] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1564s [00:52:44.804] if (TRUE && !signal) { 1564s [00:52:44.804] muffleCondition <- function (cond, pattern = "^muffle") 1564s [00:52:44.804] { 1564s [00:52:44.804] inherits <- base::inherits 1564s [00:52:44.804] invokeRestart <- base::invokeRestart 1564s [00:52:44.804] is.null <- base::is.null 1564s [00:52:44.804] muffled <- FALSE 1564s [00:52:44.804] if (inherits(cond, "message")) { 1564s [00:52:44.804] muffled <- grepl(pattern, "muffleMessage") 1564s [00:52:44.804] if (muffled) 1564s [00:52:44.804] invokeRestart("muffleMessage") 1564s [00:52:44.804] } 1564s [00:52:44.804] else if (inherits(cond, "warning")) { 1564s [00:52:44.804] muffled <- grepl(pattern, "muffleWarning") 1564s [00:52:44.804] if (muffled) 1564s [00:52:44.804] invokeRestart("muffleWarning") 1564s [00:52:44.804] } 1564s [00:52:44.804] else if (inherits(cond, "condition")) { 1564s [00:52:44.804] if (!is.null(pattern)) { 1564s [00:52:44.804] computeRestarts <- base::computeRestarts 1564s [00:52:44.804] grepl <- base::grepl 1564s [00:52:44.804] restarts <- computeRestarts(cond) 1564s [00:52:44.804] for (restart in restarts) { 1564s [00:52:44.804] name <- restart$name 1564s [00:52:44.804] if (is.null(name)) 1564s [00:52:44.804] next 1564s [00:52:44.804] if (!grepl(pattern, name)) 1564s [00:52:44.804] next 1564s [00:52:44.804] invokeRestart(restart) 1564s [00:52:44.804] muffled <- TRUE 1564s [00:52:44.804] break 1564s [00:52:44.804] } 1564s [00:52:44.804] } 1564s [00:52:44.804] } 1564s [00:52:44.804] invisible(muffled) 1564s [00:52:44.804] } 1564s [00:52:44.804] muffleCondition(cond, pattern = "^muffle") 1564s [00:52:44.804] } 1564s [00:52:44.804] } 1564s [00:52:44.804] else { 1564s [00:52:44.804] if (TRUE) { 1564s [00:52:44.804] muffleCondition <- function (cond, pattern = "^muffle") 1564s [00:52:44.804] { 1564s [00:52:44.804] inherits <- base::inherits 1564s [00:52:44.804] invokeRestart <- base::invokeRestart 1564s [00:52:44.804] is.null <- base::is.null 1564s [00:52:44.804] muffled <- FALSE 1564s [00:52:44.804] if (inherits(cond, "message")) { 1564s [00:52:44.804] muffled <- grepl(pattern, "muffleMessage") 1564s [00:52:44.804] if (muffled) 1564s [00:52:44.804] invokeRestart("muffleMessage") 1564s [00:52:44.804] } 1564s [00:52:44.804] else if (inherits(cond, "warning")) { 1564s [00:52:44.804] muffled <- grepl(pattern, "muffleWarning") 1564s [00:52:44.804] if (muffled) 1564s [00:52:44.804] invokeRestart("muffleWarning") 1564s [00:52:44.804] } 1564s [00:52:44.804] else if (inherits(cond, "condition")) { 1564s [00:52:44.804] if (!is.null(pattern)) { 1564s [00:52:44.804] computeRestarts <- base::computeRestarts 1564s [00:52:44.804] grepl <- base::grepl 1564s [00:52:44.804] restarts <- computeRestarts(cond) 1564s [00:52:44.804] for (restart in restarts) { 1564s [00:52:44.804] name <- restart$name 1564s [00:52:44.804] if (is.null(name)) 1564s [00:52:44.804] next 1564s [00:52:44.804] if (!grepl(pattern, name)) 1564s [00:52:44.804] next 1564s [00:52:44.804] invokeRestart(restart) 1564s [00:52:44.804] muffled <- TRUE 1564s [00:52:44.804] break 1564s [00:52:44.804] } 1564s [00:52:44.804] } 1564s [00:52:44.804] } 1564s [00:52:44.804] invisible(muffled) 1564s [00:52:44.804] } 1564s [00:52:44.804] muffleCondition(cond, pattern = "^muffle") 1564s [00:52:44.804] } 1564s [00:52:44.804] } 1564s [00:52:44.804] } 1564s [00:52:44.804] })) 1564s [00:52:44.804] }, error = function(ex) { 1564s [00:52:44.804] base::structure(base::list(value = NULL, visible = NULL, 1564s [00:52:44.804] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1564s [00:52:44.804] ...future.rng), started = ...future.startTime, 1564s [00:52:44.804] finished = Sys.time(), session_uuid = NA_character_, 1564s [00:52:44.804] version = "1.8"), class = "FutureResult") 1564s [00:52:44.804] }, finally = { 1564s [00:52:44.804] if (!identical(...future.workdir, getwd())) 1564s [00:52:44.804] setwd(...future.workdir) 1564s [00:52:44.804] { 1564s [00:52:44.804] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1564s [00:52:44.804] ...future.oldOptions$nwarnings <- NULL 1564s [00:52:44.804] } 1564s [00:52:44.804] base::options(...future.oldOptions) 1564s [00:52:44.804] if (.Platform$OS.type == "windows") { 1564s [00:52:44.804] old_names <- names(...future.oldEnvVars) 1564s [00:52:44.804] envs <- base::Sys.getenv() 1564s [00:52:44.804] names <- names(envs) 1564s [00:52:44.804] common <- intersect(names, old_names) 1564s [00:52:44.804] added <- setdiff(names, old_names) 1564s [00:52:44.804] removed <- setdiff(old_names, names) 1564s [00:52:44.804] changed <- common[...future.oldEnvVars[common] != 1564s [00:52:44.804] envs[common]] 1564s [00:52:44.804] NAMES <- toupper(changed) 1564s [00:52:44.804] args <- list() 1564s [00:52:44.804] for (kk in seq_along(NAMES)) { 1564s [00:52:44.804] name <- changed[[kk]] 1564s [00:52:44.804] NAME <- NAMES[[kk]] 1564s [00:52:44.804] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:44.804] next 1564s [00:52:44.804] args[[name]] <- ...future.oldEnvVars[[name]] 1564s [00:52:44.804] } 1564s [00:52:44.804] NAMES <- toupper(added) 1564s [00:52:44.804] for (kk in seq_along(NAMES)) { 1564s [00:52:44.804] name <- added[[kk]] 1564s [00:52:44.804] NAME <- NAMES[[kk]] 1564s [00:52:44.804] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:44.804] next 1564s [00:52:44.804] args[[name]] <- "" 1564s [00:52:44.804] } 1564s [00:52:44.804] NAMES <- toupper(removed) 1564s [00:52:44.804] for (kk in seq_along(NAMES)) { 1564s [00:52:44.804] name <- removed[[kk]] 1564s [00:52:44.804] NAME <- NAMES[[kk]] 1564s [00:52:44.804] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:44.804] next 1564s [00:52:44.804] args[[name]] <- ...future.oldEnvVars[[name]] 1564s [00:52:44.804] } 1564s [00:52:44.804] if (length(args) > 0) 1564s [00:52:44.804] base::do.call(base::Sys.setenv, args = args) 1564s [00:52:44.804] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1564s [00:52:44.804] } 1564s [00:52:44.804] else { 1564s [00:52:44.804] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1564s [00:52:44.804] } 1564s [00:52:44.804] { 1564s [00:52:44.804] if (base::length(...future.futureOptionsAdded) > 1564s [00:52:44.804] 0L) { 1564s [00:52:44.804] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1564s [00:52:44.804] base::names(opts) <- ...future.futureOptionsAdded 1564s [00:52:44.804] base::options(opts) 1564s [00:52:44.804] } 1564s [00:52:44.804] { 1564s [00:52:44.804] { 1564s [00:52:44.804] base::assign(".Random.seed", c(10407L, -193111136L, 1564s [00:52:44.804] 1998638665L, 1795077819L, 549408344L, 564105141L, 1564s [00:52:44.804] -308065669L), envir = base::globalenv(), 1564s [00:52:44.804] inherits = FALSE) 1564s [00:52:44.804] NULL 1564s [00:52:44.804] } 1564s [00:52:44.804] options(future.plan = NULL) 1564s [00:52:44.804] if (is.na(NA_character_)) 1564s [00:52:44.804] Sys.unsetenv("R_FUTURE_PLAN") 1564s [00:52:44.804] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1564s [00:52:44.804] future::plan(list(function (..., workers = availableCores(), 1564s [00:52:44.804] lazy = FALSE, rscript_libs = .libPaths(), 1564s [00:52:44.804] envir = parent.frame()) 1564s [00:52:44.804] { 1564s [00:52:44.804] if (is.function(workers)) 1564s [00:52:44.804] workers <- workers() 1564s [00:52:44.804] workers <- structure(as.integer(workers), 1564s [00:52:44.804] class = class(workers)) 1564s [00:52:44.804] stop_if_not(length(workers) == 1, is.finite(workers), 1564s [00:52:44.804] workers >= 1) 1564s [00:52:44.804] if (workers == 1L && !inherits(workers, "AsIs")) { 1564s [00:52:44.804] return(sequential(..., lazy = TRUE, envir = envir)) 1564s [00:52:44.804] } 1564s [00:52:44.804] future <- MultisessionFuture(..., workers = workers, 1564s [00:52:44.804] lazy = lazy, rscript_libs = rscript_libs, 1564s [00:52:44.804] envir = envir) 1564s [00:52:44.804] if (!future$lazy) 1564s [00:52:44.804] future <- run(future) 1564s [00:52:44.804] invisible(future) 1564s [00:52:44.804] }), .cleanup = FALSE, .init = FALSE) 1564s [00:52:44.804] } 1564s [00:52:44.804] } 1564s [00:52:44.804] } 1564s [00:52:44.804] }) 1564s [00:52:44.804] if (TRUE) { 1564s [00:52:44.804] base::sink(type = "output", split = FALSE) 1564s [00:52:44.804] if (TRUE) { 1564s [00:52:44.804] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1564s [00:52:44.804] } 1564s [00:52:44.804] else { 1564s [00:52:44.804] ...future.result["stdout"] <- base::list(NULL) 1564s [00:52:44.804] } 1564s [00:52:44.804] base::close(...future.stdout) 1564s [00:52:44.804] ...future.stdout <- NULL 1564s [00:52:44.804] } 1564s [00:52:44.804] ...future.result$conditions <- ...future.conditions 1564s [00:52:44.804] ...future.result$finished <- base::Sys.time() 1564s [00:52:44.804] ...future.result 1564s [00:52:44.804] } 1564s [00:52:44.810] assign_globals() ... 1564s [00:52:44.810] List of 5 1564s [00:52:44.810] $ ...future.FUN :function (x) 1564s [00:52:44.810] $ MoreArgs : NULL 1564s [00:52:44.810] $ ...future.elements_ii :List of 1 1564s [00:52:44.810] ..$ :List of 1 1564s [00:52:44.810] .. ..$ : Date[1:1], format: "2018-06-01" 1564s [00:52:44.810] $ ...future.seeds_ii : NULL 1564s [00:52:44.810] $ ...future.globals.maxSize: NULL 1564s [00:52:44.810] - attr(*, "where")=List of 5 1564s [00:52:44.810] ..$ ...future.FUN : 1564s [00:52:44.810] ..$ MoreArgs : 1564s [00:52:44.810] ..$ ...future.elements_ii : 1564s [00:52:44.810] ..$ ...future.seeds_ii : 1564s [00:52:44.810] ..$ ...future.globals.maxSize: 1564s [00:52:44.810] - attr(*, "resolved")= logi FALSE 1564s [00:52:44.810] - attr(*, "total_size")= num 1128 1564s [00:52:44.810] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1564s [00:52:44.810] - attr(*, "already-done")= logi TRUE 1564s [00:52:44.817] - copied ‘...future.FUN’ to environment 1564s [00:52:44.817] - copied ‘MoreArgs’ to environment 1564s [00:52:44.817] - copied ‘...future.elements_ii’ to environment 1564s [00:52:44.817] - copied ‘...future.seeds_ii’ to environment 1564s [00:52:44.818] - copied ‘...future.globals.maxSize’ to environment 1564s [00:52:44.818] assign_globals() ... done 1564s [00:52:44.818] plan(): Setting new future strategy stack: 1564s [00:52:44.818] List of future strategies: 1564s [00:52:44.818] 1. sequential: 1564s [00:52:44.818] - args: function (..., envir = parent.frame()) 1564s [00:52:44.818] - tweaked: FALSE 1564s [00:52:44.818] - call: NULL 1564s [00:52:44.819] plan(): nbrOfWorkers() = 1 1564s [00:52:44.820] plan(): Setting new future strategy stack: 1564s [00:52:44.820] List of future strategies: 1564s [00:52:44.820] 1. multisession: 1564s [00:52:44.820] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1564s [00:52:44.820] - tweaked: FALSE 1564s [00:52:44.820] - call: plan(strategy) 1564s [00:52:44.824] plan(): nbrOfWorkers() = 1 1564s [00:52:44.824] SequentialFuture started (and completed) 1564s [00:52:44.824] - Launch lazy future ... done 1564s [00:52:44.825] run() for ‘SequentialFuture’ ... done 1564s [00:52:44.825] Created future: 1564s [00:52:44.825] SequentialFuture: 1564s [00:52:44.825] Label: ‘future_mapply-1’ 1564s [00:52:44.825] Expression: 1564s [00:52:44.825] { 1564s [00:52:44.825] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1564s [00:52:44.825] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1564s [00:52:44.825] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1564s [00:52:44.825] on.exit(options(oopts), add = TRUE) 1564s [00:52:44.825] } 1564s [00:52:44.825] { 1564s [00:52:44.825] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1564s [00:52:44.825] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1564s [00:52:44.825] do.call(mapply, args = args) 1564s [00:52:44.825] } 1564s [00:52:44.825] } 1564s [00:52:44.825] Lazy evaluation: FALSE 1564s [00:52:44.825] Asynchronous evaluation: FALSE 1564s [00:52:44.825] Local evaluation: TRUE 1564s [00:52:44.825] Environment: R_GlobalEnv 1564s [00:52:44.825] Capture standard output: TRUE 1564s [00:52:44.825] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1564s [00:52:44.825] Globals: 5 objects totaling 1.10 KiB (function ‘...future.FUN’ of 848 bytes, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 280 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1564s [00:52:44.825] Packages: 1564s [00:52:44.825] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1564s [00:52:44.825] Resolved: TRUE 1564s [00:52:44.825] Value: 280 bytes of class ‘list’ 1564s [00:52:44.825] Early signaling: FALSE 1564s [00:52:44.825] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1564s [00:52:44.825] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1564s [00:52:44.826] Chunk #1 of 1 ... DONE 1564s [00:52:44.826] Launching 1 futures (chunks) ... DONE 1564s [00:52:44.826] Resolving 1 futures (chunks) ... 1564s [00:52:44.826] resolve() on list ... 1564s [00:52:44.826] recursive: 0 1564s [00:52:44.826] length: 1 1564s [00:52:44.826] 1564s [00:52:44.827] resolved() for ‘SequentialFuture’ ... 1564s [00:52:44.827] - state: ‘finished’ 1564s [00:52:44.827] - run: TRUE 1564s [00:52:44.827] - result: ‘FutureResult’ 1564s [00:52:44.827] resolved() for ‘SequentialFuture’ ... done 1564s [00:52:44.827] Future #1 1564s [00:52:44.827] signalConditionsASAP(SequentialFuture, pos=1) ... 1564s [00:52:44.827] - nx: 1 1564s [00:52:44.828] - relay: TRUE 1564s [00:52:44.828] - stdout: TRUE 1564s [00:52:44.828] - signal: TRUE 1564s [00:52:44.828] - resignal: FALSE 1564s [00:52:44.828] - force: TRUE 1564s [00:52:44.828] - relayed: [n=1] FALSE 1564s [00:52:44.828] - queued futures: [n=1] FALSE 1564s [00:52:44.828] - until=1 1564s [00:52:44.828] - relaying element #1 1564s [00:52:44.829] - relayed: [n=1] TRUE 1564s [00:52:44.829] - queued futures: [n=1] TRUE 1564s [00:52:44.829] signalConditionsASAP(SequentialFuture, pos=1) ... done 1564s [00:52:44.829] length: 0 (resolved future 1) 1564s [00:52:44.829] Relaying remaining futures 1564s [00:52:44.829] signalConditionsASAP(NULL, pos=0) ... 1564s [00:52:44.829] - nx: 1 1564s [00:52:44.829] - relay: TRUE 1564s [00:52:44.829] - stdout: TRUE 1564s [00:52:44.829] - signal: TRUE 1564s [00:52:44.830] - resignal: FALSE 1564s [00:52:44.830] - force: TRUE 1564s [00:52:44.830] - relayed: [n=1] TRUE 1564s [00:52:44.830] - queued futures: [n=1] TRUE 1564s - flush all 1564s [00:52:44.830] - relayed: [n=1] TRUE 1564s [00:52:44.830] - queued futures: [n=1] TRUE 1564s [00:52:44.831] signalConditionsASAP(NULL, pos=0) ... done 1564s [00:52:44.831] resolve() on list ... DONE 1564s [00:52:44.831] - Number of value chunks collected: 1 1564s [00:52:44.831] Resolving 1 futures (chunks) ... DONE 1564s [00:52:44.831] Reducing values from 1 chunks ... 1564s [00:52:44.831] - Number of values collected after concatenation: 1 1564s [00:52:44.831] - Number of values expected: 1 1564s [00:52:44.832] Reducing values from 1 chunks ... DONE 1564s [00:52:44.832] future_mapply() ... DONE 1564s [00:52:44.832] future_mapply() ... 1564s [00:52:44.836] Number of chunks: 1 1564s [00:52:44.836] getGlobalsAndPackagesXApply() ... 1564s [00:52:44.836] - future.globals: TRUE 1564s [00:52:44.836] getGlobalsAndPackages() ... 1564s [00:52:44.836] Searching for globals... 1564s [00:52:44.838] - globals found: [1] ‘FUN’ 1564s [00:52:44.838] Searching for globals ... DONE 1564s [00:52:44.838] Resolving globals: FALSE 1564s [00:52:44.838] The total size of the 1 globals is 848 bytes (848 bytes) 1564s [00:52:44.839] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1564s [00:52:44.839] - globals: [1] ‘FUN’ 1564s [00:52:44.839] 1564s [00:52:44.839] getGlobalsAndPackages() ... DONE 1564s [00:52:44.840] - globals found/used: [n=1] ‘FUN’ 1564s [00:52:44.840] - needed namespaces: [n=0] 1564s [00:52:44.840] Finding globals ... DONE 1564s [00:52:44.841] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1564s [00:52:44.841] List of 2 1564s [00:52:44.841] $ ...future.FUN:function (x) 1564s [00:52:44.841] $ MoreArgs : list() 1564s [00:52:44.841] - attr(*, "where")=List of 2 1564s [00:52:44.841] ..$ ...future.FUN: 1564s [00:52:44.841] ..$ MoreArgs : 1564s [00:52:44.841] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1564s [00:52:44.841] - attr(*, "resolved")= logi FALSE 1564s [00:52:44.841] - attr(*, "total_size")= num NA 1564s [00:52:44.845] Packages to be attached in all futures: [n=0] 1564s [00:52:44.845] getGlobalsAndPackagesXApply() ... DONE 1564s [00:52:44.845] Number of futures (= number of chunks): 1 1564s [00:52:44.845] Launching 1 futures (chunks) ... 1564s [00:52:44.846] Chunk #1 of 1 ... 1564s [00:52:44.846] - Finding globals in '...' for chunk #1 ... 1564s [00:52:44.846] getGlobalsAndPackages() ... 1564s [00:52:44.846] Searching for globals... 1564s [00:52:44.847] 1564s [00:52:44.847] Searching for globals ... DONE 1564s [00:52:44.847] - globals: [0] 1564s [00:52:44.848] getGlobalsAndPackages() ... DONE 1564s [00:52:44.848] + additional globals found: [n=0] 1564s [00:52:44.848] + additional namespaces needed: [n=0] 1564s [00:52:44.849] - Finding globals in '...' for chunk #1 ... DONE 1564s [00:52:44.849] - seeds: 1564s [00:52:44.849] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:44.849] getGlobalsAndPackages() ... 1564s [00:52:44.849] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:44.850] Resolving globals: FALSE 1564s [00:52:44.851] The total size of the 5 globals is 1.10 KiB (1128 bytes) 1564s [00:52:44.851] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 1.10 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (848 bytes of class ‘function’), ‘...future.elements_ii’ (280 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘list’) 1564s [00:52:44.852] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:44.855] 1564s [00:52:44.855] getGlobalsAndPackages() ... DONE 1564s [00:52:44.856] run() for ‘Future’ ... 1564s [00:52:44.856] - state: ‘created’ 1564s [00:52:44.856] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1564s [00:52:44.859] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1564s [00:52:44.860] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1564s [00:52:44.860] - Field: ‘label’ 1564s [00:52:44.860] - Field: ‘local’ 1564s [00:52:44.860] - Field: ‘owner’ 1564s [00:52:44.860] - Field: ‘envir’ 1564s [00:52:44.861] - Field: ‘packages’ 1564s [00:52:44.861] - Field: ‘gc’ 1564s [00:52:44.861] - Field: ‘conditions’ 1564s [00:52:44.861] - Field: ‘expr’ 1564s [00:52:44.861] - Field: ‘uuid’ 1564s [00:52:44.861] - Field: ‘seed’ 1564s [00:52:44.861] - Field: ‘version’ 1564s [00:52:44.862] - Field: ‘result’ 1564s [00:52:44.862] - Field: ‘asynchronous’ 1564s [00:52:44.862] - Field: ‘calls’ 1564s [00:52:44.862] - Field: ‘globals’ 1564s [00:52:44.862] - Field: ‘stdout’ 1564s [00:52:44.863] - Field: ‘earlySignal’ 1564s [00:52:44.863] - Field: ‘lazy’ 1564s [00:52:44.863] - Field: ‘state’ 1564s [00:52:44.863] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1564s [00:52:44.864] - Launch lazy future ... 1564s [00:52:44.864] Packages needed by the future expression (n = 0): 1564s [00:52:44.864] Packages needed by future strategies (n = 0): 1564s [00:52:44.865] { 1564s [00:52:44.865] { 1564s [00:52:44.865] { 1564s [00:52:44.865] ...future.startTime <- base::Sys.time() 1564s [00:52:44.865] { 1564s [00:52:44.865] { 1564s [00:52:44.865] { 1564s [00:52:44.865] base::local({ 1564s [00:52:44.865] has_future <- base::requireNamespace("future", 1564s [00:52:44.865] quietly = TRUE) 1564s [00:52:44.865] if (has_future) { 1564s [00:52:44.865] ns <- base::getNamespace("future") 1564s [00:52:44.865] version <- ns[[".package"]][["version"]] 1564s [00:52:44.865] if (is.null(version)) 1564s [00:52:44.865] version <- utils::packageVersion("future") 1564s [00:52:44.865] } 1564s [00:52:44.865] else { 1564s [00:52:44.865] version <- NULL 1564s [00:52:44.865] } 1564s [00:52:44.865] if (!has_future || version < "1.8.0") { 1564s [00:52:44.865] info <- base::c(r_version = base::gsub("R version ", 1564s [00:52:44.865] "", base::R.version$version.string), 1564s [00:52:44.865] platform = base::sprintf("%s (%s-bit)", 1564s [00:52:44.865] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1564s [00:52:44.865] os = base::paste(base::Sys.info()[base::c("sysname", 1564s [00:52:44.865] "release", "version")], collapse = " "), 1564s [00:52:44.865] hostname = base::Sys.info()[["nodename"]]) 1564s [00:52:44.865] info <- base::sprintf("%s: %s", base::names(info), 1564s [00:52:44.865] info) 1564s [00:52:44.865] info <- base::paste(info, collapse = "; ") 1564s [00:52:44.865] if (!has_future) { 1564s [00:52:44.865] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1564s [00:52:44.865] info) 1564s [00:52:44.865] } 1564s [00:52:44.865] else { 1564s [00:52:44.865] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1564s [00:52:44.865] info, version) 1564s [00:52:44.865] } 1564s [00:52:44.865] base::stop(msg) 1564s [00:52:44.865] } 1564s [00:52:44.865] }) 1564s [00:52:44.865] } 1564s [00:52:44.865] options(future.plan = NULL) 1564s [00:52:44.865] Sys.unsetenv("R_FUTURE_PLAN") 1564s [00:52:44.865] future::plan("default", .cleanup = FALSE, .init = FALSE) 1564s [00:52:44.865] } 1564s [00:52:44.865] ...future.workdir <- getwd() 1564s [00:52:44.865] } 1564s [00:52:44.865] ...future.oldOptions <- base::as.list(base::.Options) 1564s [00:52:44.865] ...future.oldEnvVars <- base::Sys.getenv() 1564s [00:52:44.865] } 1564s [00:52:44.865] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1564s [00:52:44.865] future.globals.maxSize = NULL, future.globals.method = NULL, 1564s [00:52:44.865] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1564s [00:52:44.865] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1564s [00:52:44.865] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1564s [00:52:44.865] future.stdout.windows.reencode = NULL, width = 80L) 1564s [00:52:44.865] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1564s [00:52:44.865] base::names(...future.oldOptions)) 1564s [00:52:44.865] } 1564s [00:52:44.865] if (FALSE) { 1564s [00:52:44.865] } 1564s [00:52:44.865] else { 1564s [00:52:44.865] if (TRUE) { 1564s [00:52:44.865] ...future.stdout <- base::rawConnection(base::raw(0L), 1564s [00:52:44.865] open = "w") 1564s [00:52:44.865] } 1564s [00:52:44.865] else { 1564s [00:52:44.865] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1564s [00:52:44.865] windows = "NUL", "/dev/null"), open = "w") 1564s [00:52:44.865] } 1564s [00:52:44.865] base::sink(...future.stdout, type = "output", split = FALSE) 1564s [00:52:44.865] base::on.exit(if (!base::is.null(...future.stdout)) { 1564s [00:52:44.865] base::sink(type = "output", split = FALSE) 1564s [00:52:44.865] base::close(...future.stdout) 1564s [00:52:44.865] }, add = TRUE) 1564s [00:52:44.865] } 1564s [00:52:44.865] ...future.frame <- base::sys.nframe() 1564s [00:52:44.865] ...future.conditions <- base::list() 1564s [00:52:44.865] ...future.rng <- base::globalenv()$.Random.seed 1564s [00:52:44.865] if (FALSE) { 1564s [00:52:44.865] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1564s [00:52:44.865] "...future.value", "...future.globalenv.names", ".Random.seed") 1564s [00:52:44.865] } 1564s [00:52:44.865] ...future.result <- base::tryCatch({ 1564s [00:52:44.865] base::withCallingHandlers({ 1564s [00:52:44.865] ...future.value <- base::withVisible(base::local({ 1564s [00:52:44.865] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1564s [00:52:44.865] if (!identical(...future.globals.maxSize.org, 1564s [00:52:44.865] ...future.globals.maxSize)) { 1564s [00:52:44.865] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1564s [00:52:44.865] on.exit(options(oopts), add = TRUE) 1564s [00:52:44.865] } 1564s [00:52:44.865] { 1564s [00:52:44.865] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1564s [00:52:44.865] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1564s [00:52:44.865] USE.NAMES = FALSE) 1564s [00:52:44.865] do.call(mapply, args = args) 1564s [00:52:44.865] } 1564s [00:52:44.865] })) 1564s [00:52:44.865] future::FutureResult(value = ...future.value$value, 1564s [00:52:44.865] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1564s [00:52:44.865] ...future.rng), globalenv = if (FALSE) 1564s [00:52:44.865] list(added = base::setdiff(base::names(base::.GlobalEnv), 1564s [00:52:44.865] ...future.globalenv.names)) 1564s [00:52:44.865] else NULL, started = ...future.startTime, version = "1.8") 1564s [00:52:44.865] }, condition = base::local({ 1564s [00:52:44.865] c <- base::c 1564s [00:52:44.865] inherits <- base::inherits 1564s [00:52:44.865] invokeRestart <- base::invokeRestart 1564s [00:52:44.865] length <- base::length 1564s [00:52:44.865] list <- base::list 1564s [00:52:44.865] seq.int <- base::seq.int 1564s [00:52:44.865] signalCondition <- base::signalCondition 1564s [00:52:44.865] sys.calls <- base::sys.calls 1564s [00:52:44.865] `[[` <- base::`[[` 1564s [00:52:44.865] `+` <- base::`+` 1564s [00:52:44.865] `<<-` <- base::`<<-` 1564s [00:52:44.865] sysCalls <- function(calls = sys.calls(), from = 1L) { 1564s [00:52:44.865] calls[seq.int(from = from + 12L, to = length(calls) - 1564s [00:52:44.865] 3L)] 1564s [00:52:44.865] } 1564s [00:52:44.865] function(cond) { 1564s [00:52:44.865] is_error <- inherits(cond, "error") 1564s [00:52:44.865] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1564s [00:52:44.865] NULL) 1564s [00:52:44.865] if (is_error) { 1564s [00:52:44.865] sessionInformation <- function() { 1564s [00:52:44.865] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1564s [00:52:44.865] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1564s [00:52:44.865] search = base::search(), system = base::Sys.info()) 1564s [00:52:44.865] } 1564s [00:52:44.865] ...future.conditions[[length(...future.conditions) + 1564s [00:52:44.865] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1564s [00:52:44.865] cond$call), session = sessionInformation(), 1564s [00:52:44.865] timestamp = base::Sys.time(), signaled = 0L) 1564s [00:52:44.865] signalCondition(cond) 1564s [00:52:44.865] } 1564s [00:52:44.865] else if (!ignore && TRUE && inherits(cond, c("condition", 1564s [00:52:44.865] "immediateCondition"))) { 1564s [00:52:44.865] signal <- TRUE && inherits(cond, "immediateCondition") 1564s [00:52:44.865] ...future.conditions[[length(...future.conditions) + 1564s [00:52:44.865] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1564s [00:52:44.865] if (TRUE && !signal) { 1564s [00:52:44.865] muffleCondition <- function (cond, pattern = "^muffle") 1564s [00:52:44.865] { 1564s [00:52:44.865] inherits <- base::inherits 1564s [00:52:44.865] invokeRestart <- base::invokeRestart 1564s [00:52:44.865] is.null <- base::is.null 1564s [00:52:44.865] muffled <- FALSE 1564s [00:52:44.865] if (inherits(cond, "message")) { 1564s [00:52:44.865] muffled <- grepl(pattern, "muffleMessage") 1564s [00:52:44.865] if (muffled) 1564s [00:52:44.865] invokeRestart("muffleMessage") 1564s [00:52:44.865] } 1564s [00:52:44.865] else if (inherits(cond, "warning")) { 1564s [00:52:44.865] muffled <- grepl(pattern, "muffleWarning") 1564s [00:52:44.865] if (muffled) 1564s [00:52:44.865] invokeRestart("muffleWarning") 1564s [00:52:44.865] } 1564s [00:52:44.865] else if (inherits(cond, "condition")) { 1564s [00:52:44.865] if (!is.null(pattern)) { 1564s [00:52:44.865] computeRestarts <- base::computeRestarts 1564s [00:52:44.865] grepl <- base::grepl 1564s [00:52:44.865] restarts <- computeRestarts(cond) 1564s [00:52:44.865] for (restart in restarts) { 1564s [00:52:44.865] name <- restart$name 1564s [00:52:44.865] if (is.null(name)) 1564s [00:52:44.865] next 1564s [00:52:44.865] if (!grepl(pattern, name)) 1564s [00:52:44.865] next 1564s [00:52:44.865] invokeRestart(restart) 1564s [00:52:44.865] muffled <- TRUE 1564s [00:52:44.865] break 1564s [00:52:44.865] } 1564s [00:52:44.865] } 1564s [00:52:44.865] } 1564s [00:52:44.865] invisible(muffled) 1564s [00:52:44.865] } 1564s [00:52:44.865] muffleCondition(cond, pattern = "^muffle") 1564s [00:52:44.865] } 1564s [00:52:44.865] } 1564s [00:52:44.865] else { 1564s [00:52:44.865] if (TRUE) { 1564s [00:52:44.865] muffleCondition <- function (cond, pattern = "^muffle") 1564s [00:52:44.865] { 1564s [00:52:44.865] inherits <- base::inherits 1564s [00:52:44.865] invokeRestart <- base::invokeRestart 1564s [00:52:44.865] is.null <- base::is.null 1564s [00:52:44.865] muffled <- FALSE 1564s [00:52:44.865] if (inherits(cond, "message")) { 1564s [00:52:44.865] muffled <- grepl(pattern, "muffleMessage") 1564s [00:52:44.865] if (muffled) 1564s [00:52:44.865] invokeRestart("muffleMessage") 1564s [00:52:44.865] } 1564s [00:52:44.865] else if (inherits(cond, "warning")) { 1564s [00:52:44.865] muffled <- grepl(pattern, "muffleWarning") 1564s [00:52:44.865] if (muffled) 1564s [00:52:44.865] invokeRestart("muffleWarning") 1564s [00:52:44.865] } 1564s [00:52:44.865] else if (inherits(cond, "condition")) { 1564s [00:52:44.865] if (!is.null(pattern)) { 1564s [00:52:44.865] computeRestarts <- base::computeRestarts 1564s [00:52:44.865] grepl <- base::grepl 1564s [00:52:44.865] restarts <- computeRestarts(cond) 1564s [00:52:44.865] for (restart in restarts) { 1564s [00:52:44.865] name <- restart$name 1564s [00:52:44.865] if (is.null(name)) 1564s [00:52:44.865] next 1564s [00:52:44.865] if (!grepl(pattern, name)) 1564s [00:52:44.865] next 1564s [00:52:44.865] invokeRestart(restart) 1564s [00:52:44.865] muffled <- TRUE 1564s [00:52:44.865] break 1564s [00:52:44.865] } 1564s [00:52:44.865] } 1564s [00:52:44.865] } 1564s [00:52:44.865] invisible(muffled) 1564s [00:52:44.865] } 1564s [00:52:44.865] muffleCondition(cond, pattern = "^muffle") 1564s [00:52:44.865] } 1564s [00:52:44.865] } 1564s [00:52:44.865] } 1564s [00:52:44.865] })) 1564s [00:52:44.865] }, error = function(ex) { 1564s [00:52:44.865] base::structure(base::list(value = NULL, visible = NULL, 1564s [00:52:44.865] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1564s [00:52:44.865] ...future.rng), started = ...future.startTime, 1564s [00:52:44.865] finished = Sys.time(), session_uuid = NA_character_, 1564s [00:52:44.865] version = "1.8"), class = "FutureResult") 1564s [00:52:44.865] }, finally = { 1564s [00:52:44.865] if (!identical(...future.workdir, getwd())) 1564s [00:52:44.865] setwd(...future.workdir) 1564s [00:52:44.865] { 1564s [00:52:44.865] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1564s [00:52:44.865] ...future.oldOptions$nwarnings <- NULL 1564s [00:52:44.865] } 1564s [00:52:44.865] base::options(...future.oldOptions) 1564s [00:52:44.865] if (.Platform$OS.type == "windows") { 1564s [00:52:44.865] old_names <- names(...future.oldEnvVars) 1564s [00:52:44.865] envs <- base::Sys.getenv() 1564s [00:52:44.865] names <- names(envs) 1564s [00:52:44.865] common <- intersect(names, old_names) 1564s [00:52:44.865] added <- setdiff(names, old_names) 1564s [00:52:44.865] removed <- setdiff(old_names, names) 1564s [00:52:44.865] changed <- common[...future.oldEnvVars[common] != 1564s [00:52:44.865] envs[common]] 1564s [00:52:44.865] NAMES <- toupper(changed) 1564s [00:52:44.865] args <- list() 1564s [00:52:44.865] for (kk in seq_along(NAMES)) { 1564s [00:52:44.865] name <- changed[[kk]] 1564s [00:52:44.865] NAME <- NAMES[[kk]] 1564s [00:52:44.865] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:44.865] next 1564s [00:52:44.865] args[[name]] <- ...future.oldEnvVars[[name]] 1564s [00:52:44.865] } 1564s [00:52:44.865] NAMES <- toupper(added) 1564s [00:52:44.865] for (kk in seq_along(NAMES)) { 1564s [00:52:44.865] name <- added[[kk]] 1564s [00:52:44.865] NAME <- NAMES[[kk]] 1564s [00:52:44.865] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:44.865] next 1564s [00:52:44.865] args[[name]] <- "" 1564s [00:52:44.865] } 1564s [00:52:44.865] NAMES <- toupper(removed) 1564s [00:52:44.865] for (kk in seq_along(NAMES)) { 1564s [00:52:44.865] name <- removed[[kk]] 1564s [00:52:44.865] NAME <- NAMES[[kk]] 1564s [00:52:44.865] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:44.865] next 1564s [00:52:44.865] args[[name]] <- ...future.oldEnvVars[[name]] 1564s [00:52:44.865] } 1564s [00:52:44.865] if (length(args) > 0) 1564s [00:52:44.865] base::do.call(base::Sys.setenv, args = args) 1564s [00:52:44.865] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1564s [00:52:44.865] } 1564s [00:52:44.865] else { 1564s [00:52:44.865] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1564s [00:52:44.865] } 1564s [00:52:44.865] { 1564s [00:52:44.865] if (base::length(...future.futureOptionsAdded) > 1564s [00:52:44.865] 0L) { 1564s [00:52:44.865] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1564s [00:52:44.865] base::names(opts) <- ...future.futureOptionsAdded 1564s [00:52:44.865] base::options(opts) 1564s [00:52:44.865] } 1564s [00:52:44.865] { 1564s [00:52:44.865] { 1564s [00:52:44.865] base::assign(".Random.seed", c(10407L, -193111136L, 1564s [00:52:44.865] 1998638665L, 1795077819L, 549408344L, 564105141L, 1564s [00:52:44.865] -308065669L), envir = base::globalenv(), 1564s [00:52:44.865] inherits = FALSE) 1564s [00:52:44.865] NULL 1564s [00:52:44.865] } 1564s [00:52:44.865] options(future.plan = NULL) 1564s [00:52:44.865] if (is.na(NA_character_)) 1564s [00:52:44.865] Sys.unsetenv("R_FUTURE_PLAN") 1564s [00:52:44.865] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1564s [00:52:44.865] future::plan(list(function (..., workers = availableCores(), 1564s [00:52:44.865] lazy = FALSE, rscript_libs = .libPaths(), 1564s [00:52:44.865] envir = parent.frame()) 1564s [00:52:44.865] { 1564s [00:52:44.865] if (is.function(workers)) 1564s [00:52:44.865] workers <- workers() 1564s [00:52:44.865] workers <- structure(as.integer(workers), 1564s [00:52:44.865] class = class(workers)) 1564s [00:52:44.865] stop_if_not(length(workers) == 1, is.finite(workers), 1564s [00:52:44.865] workers >= 1) 1564s [00:52:44.865] if (workers == 1L && !inherits(workers, "AsIs")) { 1564s [00:52:44.865] return(sequential(..., lazy = TRUE, envir = envir)) 1564s [00:52:44.865] } 1564s [00:52:44.865] future <- MultisessionFuture(..., workers = workers, 1564s [00:52:44.865] lazy = lazy, rscript_libs = rscript_libs, 1564s [00:52:44.865] envir = envir) 1564s [00:52:44.865] if (!future$lazy) 1564s [00:52:44.865] future <- run(future) 1564s [00:52:44.865] invisible(future) 1564s [00:52:44.865] }), .cleanup = FALSE, .init = FALSE) 1564s [00:52:44.865] } 1564s [00:52:44.865] } 1564s [00:52:44.865] } 1564s [00:52:44.865] }) 1564s [00:52:44.865] if (TRUE) { 1564s [00:52:44.865] base::sink(type = "output", split = FALSE) 1564s [00:52:44.865] if (TRUE) { 1564s [00:52:44.865] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1564s [00:52:44.865] } 1564s [00:52:44.865] else { 1564s [00:52:44.865] ...future.result["stdout"] <- base::list(NULL) 1564s [00:52:44.865] } 1564s [00:52:44.865] base::close(...future.stdout) 1564s [00:52:44.865] ...future.stdout <- NULL 1564s [00:52:44.865] } 1564s [00:52:44.865] ...future.result$conditions <- ...future.conditions 1564s [00:52:44.865] ...future.result$finished <- base::Sys.time() 1564s [00:52:44.865] ...future.result 1564s [00:52:44.865] } 1564s [00:52:44.868] assign_globals() ... 1564s [00:52:44.868] List of 5 1564s [00:52:44.868] $ ...future.FUN :function (x) 1564s [00:52:44.868] $ MoreArgs : list() 1564s [00:52:44.868] $ ...future.elements_ii :List of 1 1564s [00:52:44.868] ..$ :List of 1 1564s [00:52:44.868] .. ..$ : Date[1:1], format: "2018-06-01" 1564s [00:52:44.868] $ ...future.seeds_ii : NULL 1564s [00:52:44.868] $ ...future.globals.maxSize: NULL 1564s [00:52:44.868] - attr(*, "where")=List of 5 1564s [00:52:44.868] ..$ ...future.FUN : 1564s [00:52:44.868] ..$ MoreArgs : 1564s [00:52:44.868] ..$ ...future.elements_ii : 1564s [00:52:44.868] ..$ ...future.seeds_ii : 1564s [00:52:44.868] ..$ ...future.globals.maxSize: 1564s [00:52:44.868] - attr(*, "resolved")= logi FALSE 1564s [00:52:44.868] - attr(*, "total_size")= num 1128 1564s [00:52:44.868] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1564s [00:52:44.868] - attr(*, "already-done")= logi TRUE 1564s [00:52:44.875] - copied ‘...future.FUN’ to environment 1564s [00:52:44.875] - copied ‘MoreArgs’ to environment 1564s [00:52:44.875] - copied ‘...future.elements_ii’ to environment 1564s [00:52:44.875] - copied ‘...future.seeds_ii’ to environment 1564s [00:52:44.876] - copied ‘...future.globals.maxSize’ to environment 1564s [00:52:44.876] assign_globals() ... done 1564s [00:52:44.876] plan(): Setting new future strategy stack: 1564s [00:52:44.877] List of future strategies: 1564s [00:52:44.877] 1. sequential: 1564s [00:52:44.877] - args: function (..., envir = parent.frame()) 1564s [00:52:44.877] - tweaked: FALSE 1564s [00:52:44.877] - call: NULL 1564s [00:52:44.877] plan(): nbrOfWorkers() = 1 1564s [00:52:44.878] plan(): Setting new future strategy stack: 1564s [00:52:44.878] List of future strategies: 1564s [00:52:44.878] 1. multisession: 1564s [00:52:44.878] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1564s [00:52:44.878] - tweaked: FALSE 1564s [00:52:44.878] - call: plan(strategy) 1564s [00:52:44.882] plan(): nbrOfWorkers() = 1 1564s [00:52:44.882] SequentialFuture started (and completed) 1564s [00:52:44.882] - Launch lazy future ... done 1564s [00:52:44.883] run() for ‘SequentialFuture’ ... done 1564s [00:52:44.883] Created future: 1564s [00:52:44.883] SequentialFuture: 1564s [00:52:44.883] Label: ‘future_.mapply-1’ 1564s [00:52:44.883] Expression: 1564s [00:52:44.883] { 1564s [00:52:44.883] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1564s [00:52:44.883] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1564s [00:52:44.883] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1564s [00:52:44.883] on.exit(options(oopts), add = TRUE) 1564s [00:52:44.883] } 1564s [00:52:44.883] { 1564s [00:52:44.883] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1564s [00:52:44.883] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1564s [00:52:44.883] do.call(mapply, args = args) 1564s [00:52:44.883] } 1564s [00:52:44.883] } 1564s [00:52:44.883] Lazy evaluation: FALSE 1564s [00:52:44.883] Asynchronous evaluation: FALSE 1564s [00:52:44.883] Local evaluation: TRUE 1564s [00:52:44.883] Environment: R_GlobalEnv 1564s [00:52:44.883] Capture standard output: TRUE 1564s [00:52:44.883] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1564s [00:52:44.883] Globals: 5 objects totaling 1.10 KiB (function ‘...future.FUN’ of 848 bytes, list ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 280 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1564s [00:52:44.883] Packages: 1564s [00:52:44.883] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1564s [00:52:44.883] Resolved: TRUE 1564s [00:52:44.883] Value: 280 bytes of class ‘list’ 1564s [00:52:44.883] Early signaling: FALSE 1564s [00:52:44.883] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1564s [00:52:44.883] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1564s [00:52:44.884] Chunk #1 of 1 ... DONE 1564s [00:52:44.884] Launching 1 futures (chunks) ... DONE 1564s [00:52:44.885] Resolving 1 futures (chunks) ... 1564s [00:52:44.885] resolve() on list ... 1564s [00:52:44.885] recursive: 0 1564s [00:52:44.885] length: 1 1564s [00:52:44.885] 1564s [00:52:44.885] resolved() for ‘SequentialFuture’ ... 1564s [00:52:44.886] - state: ‘finished’ 1564s [00:52:44.886] - run: TRUE 1564s [00:52:44.886] - result: ‘FutureResult’ 1564s [00:52:44.886] resolved() for ‘SequentialFuture’ ... done 1564s [00:52:44.886] Future #1 1564s [00:52:44.886] signalConditionsASAP(SequentialFuture, pos=1) ... 1564s [00:52:44.886] - nx: 1 1564s [00:52:44.887] - relay: TRUE 1564s [00:52:44.887] - stdout: TRUE 1564s [00:52:44.887] - signal: TRUE 1564s [00:52:44.887] - resignal: FALSE 1564s [00:52:44.887] - force: TRUE 1564s [00:52:44.887] - relayed: [n=1] FALSE 1564s [00:52:44.887] - queued futures: [n=1] FALSE 1564s [00:52:44.888] - until=1 1564s [00:52:44.888] - relaying element #1 1564s [00:52:44.888] - relayed: [n=1] TRUE 1564s [00:52:44.888] - queued futures: [n=1] TRUE 1564s [00:52:44.888] signalConditionsASAP(SequentialFuture, pos=1) ... done 1564s [00:52:44.889] length: 0 (resolved future 1) 1564s [00:52:44.889] Relaying remaining futures 1564s [00:52:44.889] signalConditionsASAP(NULL, pos=0) ... 1564s [00:52:44.889] - nx: 1 1564s [00:52:44.889] - relay: TRUE 1564s [00:52:44.889] - stdout: TRUE 1564s [00:52:44.889] - signal: TRUE 1564s [00:52:44.889] - resignal: FALSE 1564s [00:52:44.890] - force: TRUE 1564s [00:52:44.890] - relayed: [n=1] TRUE 1564s [00:52:44.890] - queued futures: [n=1] TRUE 1564s - flush all 1564s [00:52:44.890] - relayed: [n=1] TRUE 1564s [00:52:44.890] - queued futures: [n=1] TRUE 1564s [00:52:44.891] signalConditionsASAP(NULL, pos=0) ... done 1564s [00:52:44.891] resolve() on list ... DONE 1564s [00:52:44.891] - Number of value chunks collected: 1 1564s [00:52:44.891] Resolving 1 futures (chunks) ... DONE 1564s [00:52:44.892] Reducing values from 1 chunks ... 1564s [00:52:44.892] - Number of values collected after concatenation: 1 1564s [00:52:44.892] - Number of values expected: 1 1564s [00:52:44.892] Reducing values from 1 chunks ... DONE 1564s [00:52:44.892] future_mapply() ... DONE 1564s - Non-recycling of MoreArgs (Issue #51) ... 1564s [00:52:44.892] future_mapply() ... 1564s [00:52:44.896] Number of chunks: 1 1564s [00:52:44.896] getGlobalsAndPackagesXApply() ... 1564s [00:52:44.897] - future.globals: TRUE 1564s [00:52:44.897] getGlobalsAndPackages() ... 1564s [00:52:44.897] Searching for globals... 1564s [00:52:44.898] - globals found: [1] ‘FUN’ 1564s [00:52:44.899] Searching for globals ... DONE 1564s [00:52:44.899] Resolving globals: FALSE 1564s [00:52:44.899] The total size of the 1 globals is 1.66 KiB (1704 bytes) 1564s [00:52:44.900] The total size of the 1 globals exported for future expression (‘FUN(y = 3:4)’) is 1.66 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.66 KiB of class ‘function’) 1564s [00:52:44.900] - globals: [1] ‘FUN’ 1564s [00:52:44.900] 1564s [00:52:44.900] getGlobalsAndPackages() ... DONE 1564s [00:52:44.900] - globals found/used: [n=1] ‘FUN’ 1564s [00:52:44.901] - needed namespaces: [n=0] 1564s [00:52:44.901] Finding globals ... DONE 1564s [00:52:44.901] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1564s [00:52:44.901] List of 2 1564s [00:52:44.901] $ ...future.FUN:function (x, y) 1564s [00:52:44.901] $ MoreArgs :List of 1 1564s [00:52:44.901] ..$ y: int [1:2] 3 4 1564s [00:52:44.901] - attr(*, "where")=List of 2 1564s [00:52:44.901] ..$ ...future.FUN: 1564s [00:52:44.901] ..$ MoreArgs : 1564s [00:52:44.901] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1564s [00:52:44.901] - attr(*, "resolved")= logi FALSE 1564s [00:52:44.901] - attr(*, "total_size")= num NA 1564s [00:52:44.905] Packages to be attached in all futures: [n=0] 1564s [00:52:44.905] getGlobalsAndPackagesXApply() ... DONE 1564s [00:52:44.905] Number of futures (= number of chunks): 1 1564s [00:52:44.906] Launching 1 futures (chunks) ... 1564s [00:52:44.906] Chunk #1 of 1 ... 1564s [00:52:44.906] - Finding globals in '...' for chunk #1 ... 1564s [00:52:44.906] getGlobalsAndPackages() ... 1564s [00:52:44.906] Searching for globals... 1564s [00:52:44.907] 1564s [00:52:44.907] Searching for globals ... DONE 1564s [00:52:44.907] - globals: [0] 1564s [00:52:44.907] getGlobalsAndPackages() ... DONE 1564s [00:52:44.907] + additional globals found: [n=0] 1564s [00:52:44.907] + additional namespaces needed: [n=0] 1564s [00:52:44.907] - Finding globals in '...' for chunk #1 ... DONE 1564s [00:52:44.907] - seeds: 1564s [00:52:44.907] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:44.908] getGlobalsAndPackages() ... 1564s [00:52:44.908] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:44.908] Resolving globals: FALSE 1564s [00:52:44.908] The total size of the 5 globals is 1.83 KiB (1872 bytes) 1564s [00:52:44.909] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 1.83 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (1.66 KiB of class ‘function’), ‘...future.elements_ii’ (112 bytes of class ‘list’) and ‘MoreArgs’ (56 bytes of class ‘list’) 1564s [00:52:44.909] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1564s [00:52:44.909] 1564s [00:52:44.909] getGlobalsAndPackages() ... DONE 1564s [00:52:44.910] run() for ‘Future’ ... 1564s [00:52:44.910] - state: ‘created’ 1564s [00:52:44.910] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1564s [00:52:44.913] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1564s [00:52:44.914] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1564s [00:52:44.914] - Field: ‘label’ 1564s [00:52:44.914] - Field: ‘local’ 1564s [00:52:44.914] - Field: ‘owner’ 1564s [00:52:44.915] - Field: ‘envir’ 1564s [00:52:44.915] - Field: ‘packages’ 1564s [00:52:44.915] - Field: ‘gc’ 1564s [00:52:44.915] - Field: ‘conditions’ 1564s [00:52:44.915] - Field: ‘expr’ 1564s [00:52:44.915] - Field: ‘uuid’ 1564s [00:52:44.916] - Field: ‘seed’ 1564s [00:52:44.916] - Field: ‘version’ 1564s [00:52:44.916] - Field: ‘result’ 1564s [00:52:44.916] - Field: ‘asynchronous’ 1564s [00:52:44.916] - Field: ‘calls’ 1564s [00:52:44.916] - Field: ‘globals’ 1564s [00:52:44.916] - Field: ‘stdout’ 1564s [00:52:44.917] - Field: ‘earlySignal’ 1564s [00:52:44.917] - Field: ‘lazy’ 1564s [00:52:44.917] - Field: ‘state’ 1564s [00:52:44.917] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1564s [00:52:44.917] - Launch lazy future ... 1564s [00:52:44.917] Packages needed by the future expression (n = 0): 1564s [00:52:44.918] Packages needed by future strategies (n = 0): 1564s [00:52:44.918] { 1564s [00:52:44.918] { 1564s [00:52:44.918] { 1564s [00:52:44.918] ...future.startTime <- base::Sys.time() 1564s [00:52:44.918] { 1564s [00:52:44.918] { 1564s [00:52:44.918] { 1564s [00:52:44.918] base::local({ 1564s [00:52:44.918] has_future <- base::requireNamespace("future", 1564s [00:52:44.918] quietly = TRUE) 1564s [00:52:44.918] if (has_future) { 1564s [00:52:44.918] ns <- base::getNamespace("future") 1564s [00:52:44.918] version <- ns[[".package"]][["version"]] 1564s [00:52:44.918] if (is.null(version)) 1564s [00:52:44.918] version <- utils::packageVersion("future") 1564s [00:52:44.918] } 1564s [00:52:44.918] else { 1564s [00:52:44.918] version <- NULL 1564s [00:52:44.918] } 1564s [00:52:44.918] if (!has_future || version < "1.8.0") { 1564s [00:52:44.918] info <- base::c(r_version = base::gsub("R version ", 1564s [00:52:44.918] "", base::R.version$version.string), 1564s [00:52:44.918] platform = base::sprintf("%s (%s-bit)", 1564s [00:52:44.918] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1564s [00:52:44.918] os = base::paste(base::Sys.info()[base::c("sysname", 1564s [00:52:44.918] "release", "version")], collapse = " "), 1564s [00:52:44.918] hostname = base::Sys.info()[["nodename"]]) 1564s [00:52:44.918] info <- base::sprintf("%s: %s", base::names(info), 1564s [00:52:44.918] info) 1564s [00:52:44.918] info <- base::paste(info, collapse = "; ") 1564s [00:52:44.918] if (!has_future) { 1564s [00:52:44.918] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1564s [00:52:44.918] info) 1564s [00:52:44.918] } 1564s [00:52:44.918] else { 1564s [00:52:44.918] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1564s [00:52:44.918] info, version) 1564s [00:52:44.918] } 1564s [00:52:44.918] base::stop(msg) 1564s [00:52:44.918] } 1564s [00:52:44.918] }) 1564s [00:52:44.918] } 1564s [00:52:44.918] options(future.plan = NULL) 1564s [00:52:44.918] Sys.unsetenv("R_FUTURE_PLAN") 1564s [00:52:44.918] future::plan("default", .cleanup = FALSE, .init = FALSE) 1564s [00:52:44.918] } 1564s [00:52:44.918] ...future.workdir <- getwd() 1564s [00:52:44.918] } 1564s [00:52:44.918] ...future.oldOptions <- base::as.list(base::.Options) 1564s [00:52:44.918] ...future.oldEnvVars <- base::Sys.getenv() 1564s [00:52:44.918] } 1564s [00:52:44.918] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1564s [00:52:44.918] future.globals.maxSize = NULL, future.globals.method = NULL, 1564s [00:52:44.918] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1564s [00:52:44.918] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1564s [00:52:44.918] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1564s [00:52:44.918] future.stdout.windows.reencode = NULL, width = 80L) 1564s [00:52:44.918] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1564s [00:52:44.918] base::names(...future.oldOptions)) 1564s [00:52:44.918] } 1564s [00:52:44.918] if (FALSE) { 1564s [00:52:44.918] } 1564s [00:52:44.918] else { 1564s [00:52:44.918] if (TRUE) { 1564s [00:52:44.918] ...future.stdout <- base::rawConnection(base::raw(0L), 1564s [00:52:44.918] open = "w") 1564s [00:52:44.918] } 1564s [00:52:44.918] else { 1564s [00:52:44.918] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1564s [00:52:44.918] windows = "NUL", "/dev/null"), open = "w") 1564s [00:52:44.918] } 1564s [00:52:44.918] base::sink(...future.stdout, type = "output", split = FALSE) 1564s [00:52:44.918] base::on.exit(if (!base::is.null(...future.stdout)) { 1564s [00:52:44.918] base::sink(type = "output", split = FALSE) 1564s [00:52:44.918] base::close(...future.stdout) 1564s [00:52:44.918] }, add = TRUE) 1564s [00:52:44.918] } 1564s [00:52:44.918] ...future.frame <- base::sys.nframe() 1564s [00:52:44.918] ...future.conditions <- base::list() 1564s [00:52:44.918] ...future.rng <- base::globalenv()$.Random.seed 1564s [00:52:44.918] if (FALSE) { 1564s [00:52:44.918] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1564s [00:52:44.918] "...future.value", "...future.globalenv.names", ".Random.seed") 1564s [00:52:44.918] } 1564s [00:52:44.918] ...future.result <- base::tryCatch({ 1564s [00:52:44.918] base::withCallingHandlers({ 1564s [00:52:44.918] ...future.value <- base::withVisible(base::local({ 1564s [00:52:44.918] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1564s [00:52:44.918] if (!identical(...future.globals.maxSize.org, 1564s [00:52:44.918] ...future.globals.maxSize)) { 1564s [00:52:44.918] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1564s [00:52:44.918] on.exit(options(oopts), add = TRUE) 1564s [00:52:44.918] } 1564s [00:52:44.918] { 1564s [00:52:44.918] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1564s [00:52:44.918] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1564s [00:52:44.918] USE.NAMES = FALSE) 1564s [00:52:44.918] do.call(mapply, args = args) 1564s [00:52:44.918] } 1564s [00:52:44.918] })) 1564s [00:52:44.918] future::FutureResult(value = ...future.value$value, 1564s [00:52:44.918] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1564s [00:52:44.918] ...future.rng), globalenv = if (FALSE) 1564s [00:52:44.918] list(added = base::setdiff(base::names(base::.GlobalEnv), 1564s [00:52:44.918] ...future.globalenv.names)) 1564s [00:52:44.918] else NULL, started = ...future.startTime, version = "1.8") 1564s [00:52:44.918] }, condition = base::local({ 1564s [00:52:44.918] c <- base::c 1564s [00:52:44.918] inherits <- base::inherits 1564s [00:52:44.918] invokeRestart <- base::invokeRestart 1564s [00:52:44.918] length <- base::length 1564s [00:52:44.918] list <- base::list 1564s [00:52:44.918] seq.int <- base::seq.int 1564s [00:52:44.918] signalCondition <- base::signalCondition 1564s [00:52:44.918] sys.calls <- base::sys.calls 1564s [00:52:44.918] `[[` <- base::`[[` 1564s [00:52:44.918] `+` <- base::`+` 1564s [00:52:44.918] `<<-` <- base::`<<-` 1564s [00:52:44.918] sysCalls <- function(calls = sys.calls(), from = 1L) { 1564s [00:52:44.918] calls[seq.int(from = from + 12L, to = length(calls) - 1564s [00:52:44.918] 3L)] 1564s [00:52:44.918] } 1564s [00:52:44.918] function(cond) { 1564s [00:52:44.918] is_error <- inherits(cond, "error") 1564s [00:52:44.918] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1564s [00:52:44.918] NULL) 1564s [00:52:44.918] if (is_error) { 1564s [00:52:44.918] sessionInformation <- function() { 1564s [00:52:44.918] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1564s [00:52:44.918] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1564s [00:52:44.918] search = base::search(), system = base::Sys.info()) 1564s [00:52:44.918] } 1564s [00:52:44.918] ...future.conditions[[length(...future.conditions) + 1564s [00:52:44.918] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1564s [00:52:44.918] cond$call), session = sessionInformation(), 1564s [00:52:44.918] timestamp = base::Sys.time(), signaled = 0L) 1564s [00:52:44.918] signalCondition(cond) 1564s [00:52:44.918] } 1564s [00:52:44.918] else if (!ignore && TRUE && inherits(cond, c("condition", 1564s [00:52:44.918] "immediateCondition"))) { 1564s [00:52:44.918] signal <- TRUE && inherits(cond, "immediateCondition") 1564s [00:52:44.918] ...future.conditions[[length(...future.conditions) + 1564s [00:52:44.918] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1564s [00:52:44.918] if (TRUE && !signal) { 1564s [00:52:44.918] muffleCondition <- function (cond, pattern = "^muffle") 1564s [00:52:44.918] { 1564s [00:52:44.918] inherits <- base::inherits 1564s [00:52:44.918] invokeRestart <- base::invokeRestart 1564s [00:52:44.918] is.null <- base::is.null 1564s [00:52:44.918] muffled <- FALSE 1564s [00:52:44.918] if (inherits(cond, "message")) { 1564s [00:52:44.918] muffled <- grepl(pattern, "muffleMessage") 1564s [00:52:44.918] if (muffled) 1564s [00:52:44.918] invokeRestart("muffleMessage") 1564s [00:52:44.918] } 1564s [00:52:44.918] else if (inherits(cond, "warning")) { 1564s [00:52:44.918] muffled <- grepl(pattern, "muffleWarning") 1564s [00:52:44.918] if (muffled) 1564s [00:52:44.918] invokeRestart("muffleWarning") 1564s [00:52:44.918] } 1564s [00:52:44.918] else if (inherits(cond, "condition")) { 1564s [00:52:44.918] if (!is.null(pattern)) { 1564s [00:52:44.918] computeRestarts <- base::computeRestarts 1564s [00:52:44.918] grepl <- base::grepl 1564s [00:52:44.918] restarts <- computeRestarts(cond) 1564s [00:52:44.918] for (restart in restarts) { 1564s [00:52:44.918] name <- restart$name 1564s [00:52:44.918] if (is.null(name)) 1564s [00:52:44.918] next 1564s [00:52:44.918] if (!grepl(pattern, name)) 1564s [00:52:44.918] next 1564s [00:52:44.918] invokeRestart(restart) 1564s [00:52:44.918] muffled <- TRUE 1564s [00:52:44.918] break 1564s [00:52:44.918] } 1564s [00:52:44.918] } 1564s [00:52:44.918] } 1564s [00:52:44.918] invisible(muffled) 1564s [00:52:44.918] } 1564s [00:52:44.918] muffleCondition(cond, pattern = "^muffle") 1564s [00:52:44.918] } 1564s [00:52:44.918] } 1564s [00:52:44.918] else { 1564s [00:52:44.918] if (TRUE) { 1564s [00:52:44.918] muffleCondition <- function (cond, pattern = "^muffle") 1564s [00:52:44.918] { 1564s [00:52:44.918] inherits <- base::inherits 1564s [00:52:44.918] invokeRestart <- base::invokeRestart 1564s [00:52:44.918] is.null <- base::is.null 1564s [00:52:44.918] muffled <- FALSE 1564s [00:52:44.918] if (inherits(cond, "message")) { 1564s [00:52:44.918] muffled <- grepl(pattern, "muffleMessage") 1564s [00:52:44.918] if (muffled) 1564s [00:52:44.918] invokeRestart("muffleMessage") 1564s [00:52:44.918] } 1564s [00:52:44.918] else if (inherits(cond, "warning")) { 1564s [00:52:44.918] muffled <- grepl(pattern, "muffleWarning") 1564s [00:52:44.918] if (muffled) 1564s [00:52:44.918] invokeRestart("muffleWarning") 1564s [00:52:44.918] } 1564s [00:52:44.918] else if (inherits(cond, "condition")) { 1564s [00:52:44.918] if (!is.null(pattern)) { 1564s [00:52:44.918] computeRestarts <- base::computeRestarts 1564s [00:52:44.918] grepl <- base::grepl 1564s [00:52:44.918] restarts <- computeRestarts(cond) 1564s [00:52:44.918] for (restart in restarts) { 1564s [00:52:44.918] name <- restart$name 1564s [00:52:44.918] if (is.null(name)) 1564s [00:52:44.918] next 1564s [00:52:44.918] if (!grepl(pattern, name)) 1564s [00:52:44.918] next 1564s [00:52:44.918] invokeRestart(restart) 1564s [00:52:44.918] muffled <- TRUE 1564s [00:52:44.918] break 1564s [00:52:44.918] } 1564s [00:52:44.918] } 1564s [00:52:44.918] } 1564s [00:52:44.918] invisible(muffled) 1564s [00:52:44.918] } 1564s [00:52:44.918] muffleCondition(cond, pattern = "^muffle") 1564s [00:52:44.918] } 1564s [00:52:44.918] } 1564s [00:52:44.918] } 1564s [00:52:44.918] })) 1564s [00:52:44.918] }, error = function(ex) { 1564s [00:52:44.918] base::structure(base::list(value = NULL, visible = NULL, 1564s [00:52:44.918] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1564s [00:52:44.918] ...future.rng), started = ...future.startTime, 1564s [00:52:44.918] finished = Sys.time(), session_uuid = NA_character_, 1564s [00:52:44.918] version = "1.8"), class = "FutureResult") 1564s [00:52:44.918] }, finally = { 1564s [00:52:44.918] if (!identical(...future.workdir, getwd())) 1564s [00:52:44.918] setwd(...future.workdir) 1564s [00:52:44.918] { 1564s [00:52:44.918] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1564s [00:52:44.918] ...future.oldOptions$nwarnings <- NULL 1564s [00:52:44.918] } 1564s [00:52:44.918] base::options(...future.oldOptions) 1564s [00:52:44.918] if (.Platform$OS.type == "windows") { 1564s [00:52:44.918] old_names <- names(...future.oldEnvVars) 1564s [00:52:44.918] envs <- base::Sys.getenv() 1564s [00:52:44.918] names <- names(envs) 1564s [00:52:44.918] common <- intersect(names, old_names) 1564s [00:52:44.918] added <- setdiff(names, old_names) 1564s [00:52:44.918] removed <- setdiff(old_names, names) 1564s [00:52:44.918] changed <- common[...future.oldEnvVars[common] != 1564s [00:52:44.918] envs[common]] 1564s [00:52:44.918] NAMES <- toupper(changed) 1564s [00:52:44.918] args <- list() 1564s [00:52:44.918] for (kk in seq_along(NAMES)) { 1564s [00:52:44.918] name <- changed[[kk]] 1564s [00:52:44.918] NAME <- NAMES[[kk]] 1564s [00:52:44.918] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:44.918] next 1564s [00:52:44.918] args[[name]] <- ...future.oldEnvVars[[name]] 1564s [00:52:44.918] } 1564s [00:52:44.918] NAMES <- toupper(added) 1564s [00:52:44.918] for (kk in seq_along(NAMES)) { 1564s [00:52:44.918] name <- added[[kk]] 1564s [00:52:44.918] NAME <- NAMES[[kk]] 1564s [00:52:44.918] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:44.918] next 1564s [00:52:44.918] args[[name]] <- "" 1564s [00:52:44.918] } 1564s [00:52:44.918] NAMES <- toupper(removed) 1564s [00:52:44.918] for (kk in seq_along(NAMES)) { 1564s [00:52:44.918] name <- removed[[kk]] 1564s [00:52:44.918] NAME <- NAMES[[kk]] 1564s [00:52:44.918] if (name != NAME && is.element(NAME, old_names)) 1564s [00:52:44.918] next 1564s [00:52:44.918] args[[name]] <- ...future.oldEnvVars[[name]] 1564s [00:52:44.918] } 1564s [00:52:44.918] if (length(args) > 0) 1564s [00:52:44.918] base::do.call(base::Sys.setenv, args = args) 1564s [00:52:44.918] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1564s [00:52:44.918] } 1564s [00:52:44.918] else { 1564s [00:52:44.918] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1564s [00:52:44.918] } 1564s [00:52:44.918] { 1564s [00:52:44.918] if (base::length(...future.futureOptionsAdded) > 1564s [00:52:44.918] 0L) { 1564s [00:52:44.918] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1564s [00:52:44.918] base::names(opts) <- ...future.futureOptionsAdded 1564s [00:52:44.918] base::options(opts) 1564s [00:52:44.918] } 1564s [00:52:44.918] { 1564s [00:52:44.918] { 1564s [00:52:44.918] base::assign(".Random.seed", c(10407L, -193111136L, 1564s [00:52:44.918] 1998638665L, 1795077819L, 549408344L, 564105141L, 1564s [00:52:44.918] -308065669L), envir = base::globalenv(), 1564s [00:52:44.918] inherits = FALSE) 1564s [00:52:44.918] NULL 1564s [00:52:44.918] } 1564s [00:52:44.918] options(future.plan = NULL) 1564s [00:52:44.918] if (is.na(NA_character_)) 1564s [00:52:44.918] Sys.unsetenv("R_FUTURE_PLAN") 1564s [00:52:44.918] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1564s [00:52:44.918] future::plan(list(function (..., workers = availableCores(), 1564s [00:52:44.918] lazy = FALSE, rscript_libs = .libPaths(), 1564s [00:52:44.918] envir = parent.frame()) 1564s [00:52:44.918] { 1564s [00:52:44.918] if (is.function(workers)) 1564s [00:52:44.918] workers <- workers() 1564s [00:52:44.918] workers <- structure(as.integer(workers), 1564s [00:52:44.918] class = class(workers)) 1564s [00:52:44.918] stop_if_not(length(workers) == 1, is.finite(workers), 1564s [00:52:44.918] workers >= 1) 1564s [00:52:44.918] if (workers == 1L && !inherits(workers, "AsIs")) { 1564s [00:52:44.918] return(sequential(..., lazy = TRUE, envir = envir)) 1564s [00:52:44.918] } 1564s [00:52:44.918] future <- MultisessionFuture(..., workers = workers, 1564s [00:52:44.918] lazy = lazy, rscript_libs = rscript_libs, 1564s [00:52:44.918] envir = envir) 1564s [00:52:44.918] if (!future$lazy) 1564s [00:52:44.918] future <- run(future) 1564s [00:52:44.918] invisible(future) 1564s [00:52:44.918] }), .cleanup = FALSE, .init = FALSE) 1564s [00:52:44.918] } 1564s [00:52:44.918] } 1564s [00:52:44.918] } 1564s [00:52:44.918] }) 1564s [00:52:44.918] if (TRUE) { 1564s [00:52:44.918] base::sink(type = "output", split = FALSE) 1564s [00:52:44.918] if (TRUE) { 1564s [00:52:44.918] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1564s [00:52:44.918] } 1564s [00:52:44.918] else { 1564s [00:52:44.918] ...future.result["stdout"] <- base::list(NULL) 1564s [00:52:44.918] } 1564s [00:52:44.918] base::close(...future.stdout) 1564s [00:52:44.918] ...future.stdout <- NULL 1564s [00:52:44.918] } 1564s [00:52:44.918] ...future.result$conditions <- ...future.conditions 1564s [00:52:44.918] ...future.result$finished <- base::Sys.time() 1564s [00:52:44.918] ...future.result 1564s [00:52:44.918] } 1564s [00:52:44.923] assign_globals() ... 1564s [00:52:44.924] List of 5 1564s [00:52:44.924] $ ...future.FUN :function (x, y) 1564s [00:52:44.924] $ MoreArgs :List of 1 1564s [00:52:44.924] ..$ y: int [1:2] 3 4 1564s [00:52:44.924] $ ...future.elements_ii :List of 1 1564s [00:52:44.924] ..$ x:List of 2 1564s [00:52:44.924] .. ..$ : int 1 1564s [00:52:44.924] .. ..$ : int 2 1564s [00:52:44.924] $ ...future.seeds_ii : NULL 1564s [00:52:44.924] $ ...future.globals.maxSize: NULL 1564s [00:52:44.924] - attr(*, "where")=List of 5 1564s [00:52:44.924] ..$ ...future.FUN : 1564s [00:52:44.924] ..$ MoreArgs : 1564s [00:52:44.924] ..$ ...future.elements_ii : 1564s [00:52:44.924] ..$ ...future.seeds_ii : 1564s [00:52:44.924] ..$ ...future.globals.maxSize: 1564s [00:52:44.924] - attr(*, "resolved")= logi FALSE 1564s [00:52:44.924] - attr(*, "total_size")= num 1872 1564s [00:52:44.924] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1564s [00:52:44.924] - attr(*, "already-done")= logi TRUE 1564s [00:52:44.930] - reassign environment for ‘...future.FUN’ 1564s [00:52:44.930] - copied ‘...future.FUN’ to environment 1564s [00:52:44.930] - copied ‘MoreArgs’ to environment 1564s [00:52:44.930] - copied ‘...future.elements_ii’ to environment 1564s [00:52:44.931] - copied ‘...future.seeds_ii’ to environment 1564s [00:52:44.931] - copied ‘...future.globals.maxSize’ to environment 1564s [00:52:44.931] assign_globals() ... done 1564s [00:52:44.931] plan(): Setting new future strategy stack: 1564s [00:52:44.932] List of future strategies: 1564s [00:52:44.932] 1. sequential: 1564s [00:52:44.932] - args: function (..., envir = parent.frame()) 1564s [00:52:44.932] - tweaked: FALSE 1564s [00:52:44.932] - call: NULL 1564s [00:52:44.932] plan(): nbrOfWorkers() = 1 1564s [00:52:44.933] plan(): Setting new future strategy stack: 1564s [00:52:44.933] List of future strategies: 1564s [00:52:44.933] 1. multisession: 1564s [00:52:44.933] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1564s [00:52:44.933] - tweaked: FALSE 1564s [00:52:44.933] - call: plan(strategy) 1564s [00:52:44.936] plan(): nbrOfWorkers() = 1 1564s [00:52:44.937] SequentialFuture started (and completed) 1564s [00:52:44.937] - Launch lazy future ... done 1564s [00:52:44.937] run() for ‘SequentialFuture’ ... done 1564s [00:52:44.937] Created future: 1564s [00:52:44.938] SequentialFuture: 1564s [00:52:44.938] Label: ‘future_mapply-1’ 1564s [00:52:44.938] Expression: 1564s [00:52:44.938] { 1564s [00:52:44.938] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1564s [00:52:44.938] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1564s [00:52:44.938] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1564s [00:52:44.938] on.exit(options(oopts), add = TRUE) 1564s [00:52:44.938] } 1564s [00:52:44.938] { 1564s [00:52:44.938] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1564s [00:52:44.938] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1564s [00:52:44.938] do.call(mapply, args = args) 1564s [00:52:44.938] } 1564s [00:52:44.938] } 1564s [00:52:44.938] Lazy evaluation: FALSE 1564s [00:52:44.938] Asynchronous evaluation: FALSE 1564s [00:52:44.938] Local evaluation: TRUE 1564s [00:52:44.938] Environment: R_GlobalEnv 1564s [00:52:44.938] Capture standard output: TRUE 1564s [00:52:44.938] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1564s [00:52:44.938] Globals: 5 objects totaling 1.83 KiB (function ‘...future.FUN’ of 1.66 KiB, list ‘MoreArgs’ of 56 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1564s [00:52:44.938] Packages: 1564s [00:52:44.938] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1564s [00:52:44.938] Resolved: TRUE 1564s [00:52:44.938] Value: 112 bytes of class ‘list’ 1564s [00:52:44.938] Early signaling: FALSE 1564s [00:52:44.938] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1564s [00:52:44.938] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1564s [00:52:44.940] Chunk #1 of 1 ... DONE 1564s [00:52:44.940] Launching 1 futures (chunks) ... DONE 1564s [00:52:44.940] Resolving 1 futures (chunks) ... 1564s [00:52:44.940] resolve() on list ... 1564s [00:52:44.940] recursive: 0 1564s [00:52:44.940] length: 1 1564s [00:52:44.940] 1564s [00:52:44.941] resolved() for ‘SequentialFuture’ ... 1564s [00:52:44.941] - state: ‘finished’ 1564s [00:52:44.941] - run: TRUE 1564s [00:52:44.941] - result: ‘FutureResult’ 1564s [00:52:44.941] resolved() for ‘SequentialFuture’ ... done 1564s [00:52:44.941] Future #1 1564s [00:52:44.942] signalConditionsASAP(SequentialFuture, pos=1) ... 1564s [00:52:44.942] - nx: 1 1564s [00:52:44.942] - relay: TRUE 1564s [00:52:44.942] - stdout: TRUE 1564s [00:52:44.942] - signal: TRUE 1564s [00:52:44.942] - resignal: FALSE 1564s [00:52:44.943] - force: TRUE 1564s [00:52:44.943] - relayed: [n=1] FALSE 1564s [00:52:44.943] - queued futures: [n=1] FALSE 1564s [00:52:44.943] - until=1 1564s [00:52:44.943] - relaying element #1 1564s [00:52:44.944] - relayed: [n=1] TRUE 1564s [00:52:44.944] - queued futures: [n=1] TRUE 1564s [00:52:44.944] signalConditionsASAP(SequentialFuture, pos=1) ... done 1564s [00:52:44.944] length: 0 (resolved future 1) 1564s [00:52:44.944] Relaying remaining futures 1564s [00:52:44.945] signalConditionsASAP(NULL, pos=0) ... 1564s [00:52:44.946] - nx: 1 1564s [00:52:44.946] - relay: TRUE 1564s [00:52:44.946] - stdout: TRUE 1564s [00:52:44.947] - signal: TRUE 1564s [00:52:44.947] - resignal: FALSE 1564s [00:52:44.947] - force: TRUE 1564s [00:52:44.948] - relayed: [n=1] TRUE 1564s [00:52:44.948] - queued futures: [n=1] TRUE 1564s - flush all 1564s [00:52:44.948] - relayed: [n=1] TRUE 1564s [00:52:44.949] - queued futures: [n=1] TRUE 1564s [00:52:44.949] signalConditionsASAP(NULL, pos=0) ... done 1564s [00:52:44.949] resolve() on list ... DONE 1564s [00:52:44.949] - Number of value chunks collected: 1 1564s [00:52:44.949] Resolving 1 futures (chunks) ... DONE 1564s [00:52:44.950] Reducing values from 1 chunks ... 1564s [00:52:44.950] - Number of values collected after concatenation: 2 1564s [00:52:44.950] - Number of values expected: 2 1564s [00:52:44.950] Reducing values from 1 chunks ... DONE 1564s [00:52:44.950] future_mapply() ... DONE 1564s [00:52:44.951] future_mapply() ... 1564s [00:52:44.951] Generating random seeds ... 1564s [00:52:44.952] Generating random seed streams for 2 elements ... 1564s [00:52:44.952] Generating random seed streams for 2 elements ... DONE 1564s [00:52:44.952] Generating random seeds ... DONE 1564s [00:52:44.952] Will set RNG state on exit: 10407, 1795077819, 389850356, 1573160841, -308065669, 303050973, -738971785 1564s [00:52:44.957] Number of chunks: 1 1564s [00:52:44.957] getGlobalsAndPackagesXApply() ... 1564s [00:52:44.957] - future.globals: TRUE 1564s [00:52:44.957] getGlobalsAndPackages() ... 1564s [00:52:44.958] Searching for globals... 1564s [00:52:44.959] - globals found: [1] ‘FUN’ 1564s [00:52:44.960] Searching for globals ... DONE 1564s [00:52:44.960] Resolving globals: FALSE 1565s [00:52:44.961] The total size of the 1 globals is 1.66 KiB (1704 bytes) 1565s [00:52:44.961] The total size of the 1 globals exported for future expression (‘FUN(y = 3:4)’) is 1.66 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.66 KiB of class ‘function’) 1565s [00:52:44.961] - globals: [1] ‘FUN’ 1565s [00:52:44.962] 1565s [00:52:44.962] getGlobalsAndPackages() ... DONE 1565s [00:52:44.962] - globals found/used: [n=1] ‘FUN’ 1565s [00:52:44.962] - needed namespaces: [n=0] 1565s [00:52:44.962] Finding globals ... DONE 1565s [00:52:44.962] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1565s [00:52:44.963] List of 2 1565s [00:52:44.963] $ ...future.FUN:function (x, y) 1565s [00:52:44.963] $ MoreArgs :List of 1 1565s [00:52:44.963] ..$ y: int [1:2] 3 4 1565s [00:52:44.963] - attr(*, "where")=List of 2 1565s [00:52:44.963] ..$ ...future.FUN: 1565s [00:52:44.963] ..$ MoreArgs : 1565s [00:52:44.963] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1565s [00:52:44.963] - attr(*, "resolved")= logi FALSE 1565s [00:52:44.963] - attr(*, "total_size")= num NA 1565s [00:52:44.967] Packages to be attached in all futures: [n=0] 1565s [00:52:44.967] getGlobalsAndPackagesXApply() ... DONE 1565s [00:52:44.968] Number of futures (= number of chunks): 1 1565s [00:52:44.968] Launching 1 futures (chunks) ... 1565s [00:52:44.968] Chunk #1 of 1 ... 1565s [00:52:44.968] - Finding globals in '...' for chunk #1 ... 1565s [00:52:44.968] getGlobalsAndPackages() ... 1565s [00:52:44.969] Searching for globals... 1565s [00:52:44.969] 1565s [00:52:44.969] Searching for globals ... DONE 1565s [00:52:44.970] - globals: [0] 1565s [00:52:44.970] getGlobalsAndPackages() ... DONE 1565s [00:52:44.970] + additional globals found: [n=0] 1565s [00:52:44.970] + additional namespaces needed: [n=0] 1565s [00:52:44.971] - Finding globals in '...' for chunk #1 ... DONE 1565s [00:52:44.971] - seeds: [2] 1565s [00:52:44.971] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1565s [00:52:44.971] getGlobalsAndPackages() ... 1565s [00:52:44.971] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1565s [00:52:44.972] Resolving globals: FALSE 1565s [00:52:44.973] The total size of the 5 globals is 1.98 KiB (2032 bytes) 1565s [00:52:44.973] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 1.98 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (1.66 KiB of class ‘function’), ‘...future.seeds_ii’ (160 bytes of class ‘list’) and ‘...future.elements_ii’ (112 bytes of class ‘list’) 1565s [00:52:44.973] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1565s [00:52:44.974] 1565s [00:52:44.974] getGlobalsAndPackages() ... DONE 1565s [00:52:44.974] run() for ‘Future’ ... 1565s [00:52:44.974] - state: ‘created’ 1565s [00:52:44.975] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1565s [00:52:44.979] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1565s [00:52:44.979] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1565s [00:52:44.979] - Field: ‘label’ 1565s [00:52:44.980] - Field: ‘local’ 1565s [00:52:44.980] - Field: ‘owner’ 1565s [00:52:44.980] - Field: ‘envir’ 1565s [00:52:44.981] - Field: ‘packages’ 1565s [00:52:44.981] - Field: ‘gc’ 1565s [00:52:44.981] - Field: ‘conditions’ 1565s [00:52:44.981] - Field: ‘expr’ 1565s [00:52:44.982] - Field: ‘uuid’ 1565s [00:52:44.982] - Field: ‘seed’ 1565s [00:52:44.982] - Field: ‘version’ 1565s [00:52:44.983] - Field: ‘result’ 1565s [00:52:44.983] - Field: ‘asynchronous’ 1565s [00:52:44.984] - Field: ‘calls’ 1565s [00:52:44.984] - Field: ‘globals’ 1565s [00:52:44.984] - Field: ‘stdout’ 1565s [00:52:44.984] - Field: ‘earlySignal’ 1565s [00:52:44.984] - Field: ‘lazy’ 1565s [00:52:44.985] - Field: ‘state’ 1565s [00:52:44.985] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1565s [00:52:44.985] - Launch lazy future ... 1565s [00:52:44.985] Packages needed by the future expression (n = 0): 1565s [00:52:44.985] Packages needed by future strategies (n = 0): 1565s [00:52:44.986] { 1565s [00:52:44.986] { 1565s [00:52:44.986] { 1565s [00:52:44.986] ...future.startTime <- base::Sys.time() 1565s [00:52:44.986] { 1565s [00:52:44.986] { 1565s [00:52:44.986] { 1565s [00:52:44.986] base::local({ 1565s [00:52:44.986] has_future <- base::requireNamespace("future", 1565s [00:52:44.986] quietly = TRUE) 1565s [00:52:44.986] if (has_future) { 1565s [00:52:44.986] ns <- base::getNamespace("future") 1565s [00:52:44.986] version <- ns[[".package"]][["version"]] 1565s [00:52:44.986] if (is.null(version)) 1565s [00:52:44.986] version <- utils::packageVersion("future") 1565s [00:52:44.986] } 1565s [00:52:44.986] else { 1565s [00:52:44.986] version <- NULL 1565s [00:52:44.986] } 1565s [00:52:44.986] if (!has_future || version < "1.8.0") { 1565s [00:52:44.986] info <- base::c(r_version = base::gsub("R version ", 1565s [00:52:44.986] "", base::R.version$version.string), 1565s [00:52:44.986] platform = base::sprintf("%s (%s-bit)", 1565s [00:52:44.986] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1565s [00:52:44.986] os = base::paste(base::Sys.info()[base::c("sysname", 1565s [00:52:44.986] "release", "version")], collapse = " "), 1565s [00:52:44.986] hostname = base::Sys.info()[["nodename"]]) 1565s [00:52:44.986] info <- base::sprintf("%s: %s", base::names(info), 1565s [00:52:44.986] info) 1565s [00:52:44.986] info <- base::paste(info, collapse = "; ") 1565s [00:52:44.986] if (!has_future) { 1565s [00:52:44.986] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1565s [00:52:44.986] info) 1565s [00:52:44.986] } 1565s [00:52:44.986] else { 1565s [00:52:44.986] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1565s [00:52:44.986] info, version) 1565s [00:52:44.986] } 1565s [00:52:44.986] base::stop(msg) 1565s [00:52:44.986] } 1565s [00:52:44.986] }) 1565s [00:52:44.986] } 1565s [00:52:44.986] options(future.plan = NULL) 1565s [00:52:44.986] Sys.unsetenv("R_FUTURE_PLAN") 1565s [00:52:44.986] future::plan("default", .cleanup = FALSE, .init = FALSE) 1565s [00:52:44.986] } 1565s [00:52:44.986] ...future.workdir <- getwd() 1565s [00:52:44.986] } 1565s [00:52:44.986] ...future.oldOptions <- base::as.list(base::.Options) 1565s [00:52:44.986] ...future.oldEnvVars <- base::Sys.getenv() 1565s [00:52:44.986] } 1565s [00:52:44.986] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1565s [00:52:44.986] future.globals.maxSize = NULL, future.globals.method = NULL, 1565s [00:52:44.986] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1565s [00:52:44.986] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1565s [00:52:44.986] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1565s [00:52:44.986] future.stdout.windows.reencode = NULL, width = 80L) 1565s [00:52:44.986] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1565s [00:52:44.986] base::names(...future.oldOptions)) 1565s [00:52:44.986] } 1565s [00:52:44.986] if (FALSE) { 1565s [00:52:44.986] } 1565s [00:52:44.986] else { 1565s [00:52:44.986] if (TRUE) { 1565s [00:52:44.986] ...future.stdout <- base::rawConnection(base::raw(0L), 1565s [00:52:44.986] open = "w") 1565s [00:52:44.986] } 1565s [00:52:44.986] else { 1565s [00:52:44.986] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1565s [00:52:44.986] windows = "NUL", "/dev/null"), open = "w") 1565s [00:52:44.986] } 1565s [00:52:44.986] base::sink(...future.stdout, type = "output", split = FALSE) 1565s [00:52:44.986] base::on.exit(if (!base::is.null(...future.stdout)) { 1565s [00:52:44.986] base::sink(type = "output", split = FALSE) 1565s [00:52:44.986] base::close(...future.stdout) 1565s [00:52:44.986] }, add = TRUE) 1565s [00:52:44.986] } 1565s [00:52:44.986] ...future.frame <- base::sys.nframe() 1565s [00:52:44.986] ...future.conditions <- base::list() 1565s [00:52:44.986] ...future.rng <- base::globalenv()$.Random.seed 1565s [00:52:44.986] if (FALSE) { 1565s [00:52:44.986] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1565s [00:52:44.986] "...future.value", "...future.globalenv.names", ".Random.seed") 1565s [00:52:44.986] } 1565s [00:52:44.986] ...future.result <- base::tryCatch({ 1565s [00:52:44.986] base::withCallingHandlers({ 1565s [00:52:44.986] ...future.value <- base::withVisible(base::local({ 1565s [00:52:44.986] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1565s [00:52:44.986] if (!identical(...future.globals.maxSize.org, 1565s [00:52:44.986] ...future.globals.maxSize)) { 1565s [00:52:44.986] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1565s [00:52:44.986] on.exit(options(oopts), add = TRUE) 1565s [00:52:44.986] } 1565s [00:52:44.986] { 1565s [00:52:44.986] ...future.FUN2 <- function(..., ...future.seeds_ii_jj) { 1565s [00:52:44.986] assign(".Random.seed", ...future.seeds_ii_jj, 1565s [00:52:44.986] envir = globalenv(), inherits = FALSE) 1565s [00:52:44.986] ...future.FUN(...) 1565s [00:52:44.986] } 1565s [00:52:44.986] args <- c(list(FUN = ...future.FUN2), ...future.elements_ii, 1565s [00:52:44.986] list(...future.seeds_ii_jj = ...future.seeds_ii), 1565s [00:52:44.986] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1565s [00:52:44.986] USE.NAMES = FALSE) 1565s [00:52:44.986] do.call(mapply, args = args) 1565s [00:52:44.986] } 1565s [00:52:44.986] })) 1565s [00:52:44.986] future::FutureResult(value = ...future.value$value, 1565s [00:52:44.986] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1565s [00:52:44.986] ...future.rng), globalenv = if (FALSE) 1565s [00:52:44.986] list(added = base::setdiff(base::names(base::.GlobalEnv), 1565s [00:52:44.986] ...future.globalenv.names)) 1565s [00:52:44.986] else NULL, started = ...future.startTime, version = "1.8") 1565s [00:52:44.986] }, condition = base::local({ 1565s [00:52:44.986] c <- base::c 1565s [00:52:44.986] inherits <- base::inherits 1565s [00:52:44.986] invokeRestart <- base::invokeRestart 1565s [00:52:44.986] length <- base::length 1565s [00:52:44.986] list <- base::list 1565s [00:52:44.986] seq.int <- base::seq.int 1565s [00:52:44.986] signalCondition <- base::signalCondition 1565s [00:52:44.986] sys.calls <- base::sys.calls 1565s [00:52:44.986] `[[` <- base::`[[` 1565s [00:52:44.986] `+` <- base::`+` 1565s [00:52:44.986] `<<-` <- base::`<<-` 1565s [00:52:44.986] sysCalls <- function(calls = sys.calls(), from = 1L) { 1565s [00:52:44.986] calls[seq.int(from = from + 12L, to = length(calls) - 1565s [00:52:44.986] 3L)] 1565s [00:52:44.986] } 1565s [00:52:44.986] function(cond) { 1565s [00:52:44.986] is_error <- inherits(cond, "error") 1565s [00:52:44.986] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1565s [00:52:44.986] NULL) 1565s [00:52:44.986] if (is_error) { 1565s [00:52:44.986] sessionInformation <- function() { 1565s [00:52:44.986] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1565s [00:52:44.986] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1565s [00:52:44.986] search = base::search(), system = base::Sys.info()) 1565s [00:52:44.986] } 1565s [00:52:44.986] ...future.conditions[[length(...future.conditions) + 1565s [00:52:44.986] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1565s [00:52:44.986] cond$call), session = sessionInformation(), 1565s [00:52:44.986] timestamp = base::Sys.time(), signaled = 0L) 1565s [00:52:44.986] signalCondition(cond) 1565s [00:52:44.986] } 1565s [00:52:44.986] else if (!ignore && TRUE && inherits(cond, c("condition", 1565s [00:52:44.986] "immediateCondition"))) { 1565s [00:52:44.986] signal <- TRUE && inherits(cond, "immediateCondition") 1565s [00:52:44.986] ...future.conditions[[length(...future.conditions) + 1565s [00:52:44.986] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1565s [00:52:44.986] if (TRUE && !signal) { 1565s [00:52:44.986] muffleCondition <- function (cond, pattern = "^muffle") 1565s [00:52:44.986] { 1565s [00:52:44.986] inherits <- base::inherits 1565s [00:52:44.986] invokeRestart <- base::invokeRestart 1565s [00:52:44.986] is.null <- base::is.null 1565s [00:52:44.986] muffled <- FALSE 1565s [00:52:44.986] if (inherits(cond, "message")) { 1565s [00:52:44.986] muffled <- grepl(pattern, "muffleMessage") 1565s [00:52:44.986] if (muffled) 1565s [00:52:44.986] invokeRestart("muffleMessage") 1565s [00:52:44.986] } 1565s [00:52:44.986] else if (inherits(cond, "warning")) { 1565s [00:52:44.986] muffled <- grepl(pattern, "muffleWarning") 1565s [00:52:44.986] if (muffled) 1565s [00:52:44.986] invokeRestart("muffleWarning") 1565s [00:52:44.986] } 1565s [00:52:44.986] else if (inherits(cond, "condition")) { 1565s [00:52:44.986] if (!is.null(pattern)) { 1565s [00:52:44.986] computeRestarts <- base::computeRestarts 1565s [00:52:44.986] grepl <- base::grepl 1565s [00:52:44.986] restarts <- computeRestarts(cond) 1565s [00:52:44.986] for (restart in restarts) { 1565s [00:52:44.986] name <- restart$name 1565s [00:52:44.986] if (is.null(name)) 1565s [00:52:44.986] next 1565s [00:52:44.986] if (!grepl(pattern, name)) 1565s [00:52:44.986] next 1565s [00:52:44.986] invokeRestart(restart) 1565s [00:52:44.986] muffled <- TRUE 1565s [00:52:44.986] break 1565s [00:52:44.986] } 1565s [00:52:44.986] } 1565s [00:52:44.986] } 1565s [00:52:44.986] invisible(muffled) 1565s [00:52:44.986] } 1565s [00:52:44.986] muffleCondition(cond, pattern = "^muffle") 1565s [00:52:44.986] } 1565s [00:52:44.986] } 1565s [00:52:44.986] else { 1565s [00:52:44.986] if (TRUE) { 1565s [00:52:44.986] muffleCondition <- function (cond, pattern = "^muffle") 1565s [00:52:44.986] { 1565s [00:52:44.986] inherits <- base::inherits 1565s [00:52:44.986] invokeRestart <- base::invokeRestart 1565s [00:52:44.986] is.null <- base::is.null 1565s [00:52:44.986] muffled <- FALSE 1565s [00:52:44.986] if (inherits(cond, "message")) { 1565s [00:52:44.986] muffled <- grepl(pattern, "muffleMessage") 1565s [00:52:44.986] if (muffled) 1565s [00:52:44.986] invokeRestart("muffleMessage") 1565s [00:52:44.986] } 1565s [00:52:44.986] else if (inherits(cond, "warning")) { 1565s [00:52:44.986] muffled <- grepl(pattern, "muffleWarning") 1565s [00:52:44.986] if (muffled) 1565s [00:52:44.986] invokeRestart("muffleWarning") 1565s [00:52:44.986] } 1565s [00:52:44.986] else if (inherits(cond, "condition")) { 1565s [00:52:44.986] if (!is.null(pattern)) { 1565s [00:52:44.986] computeRestarts <- base::computeRestarts 1565s [00:52:44.986] grepl <- base::grepl 1565s [00:52:44.986] restarts <- computeRestarts(cond) 1565s [00:52:44.986] for (restart in restarts) { 1565s [00:52:44.986] name <- restart$name 1565s [00:52:44.986] if (is.null(name)) 1565s [00:52:44.986] next 1565s [00:52:44.986] if (!grepl(pattern, name)) 1565s [00:52:44.986] next 1565s [00:52:44.986] invokeRestart(restart) 1565s [00:52:44.986] muffled <- TRUE 1565s [00:52:44.986] break 1565s [00:52:44.986] } 1565s [00:52:44.986] } 1565s [00:52:44.986] } 1565s [00:52:44.986] invisible(muffled) 1565s [00:52:44.986] } 1565s [00:52:44.986] muffleCondition(cond, pattern = "^muffle") 1565s [00:52:44.986] } 1565s [00:52:44.986] } 1565s [00:52:44.986] } 1565s [00:52:44.986] })) 1565s [00:52:44.986] }, error = function(ex) { 1565s [00:52:44.986] base::structure(base::list(value = NULL, visible = NULL, 1565s [00:52:44.986] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1565s [00:52:44.986] ...future.rng), started = ...future.startTime, 1565s [00:52:44.986] finished = Sys.time(), session_uuid = NA_character_, 1565s [00:52:44.986] version = "1.8"), class = "FutureResult") 1565s [00:52:44.986] }, finally = { 1565s [00:52:44.986] if (!identical(...future.workdir, getwd())) 1565s [00:52:44.986] setwd(...future.workdir) 1565s [00:52:44.986] { 1565s [00:52:44.986] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1565s [00:52:44.986] ...future.oldOptions$nwarnings <- NULL 1565s [00:52:44.986] } 1565s [00:52:44.986] base::options(...future.oldOptions) 1565s [00:52:44.986] if (.Platform$OS.type == "windows") { 1565s [00:52:44.986] old_names <- names(...future.oldEnvVars) 1565s [00:52:44.986] envs <- base::Sys.getenv() 1565s [00:52:44.986] names <- names(envs) 1565s [00:52:44.986] common <- intersect(names, old_names) 1565s [00:52:44.986] added <- setdiff(names, old_names) 1565s [00:52:44.986] removed <- setdiff(old_names, names) 1565s [00:52:44.986] changed <- common[...future.oldEnvVars[common] != 1565s [00:52:44.986] envs[common]] 1565s [00:52:44.986] NAMES <- toupper(changed) 1565s [00:52:44.986] args <- list() 1565s [00:52:44.986] for (kk in seq_along(NAMES)) { 1565s [00:52:44.986] name <- changed[[kk]] 1565s [00:52:44.986] NAME <- NAMES[[kk]] 1565s [00:52:44.986] if (name != NAME && is.element(NAME, old_names)) 1565s [00:52:44.986] next 1565s [00:52:44.986] args[[name]] <- ...future.oldEnvVars[[name]] 1565s [00:52:44.986] } 1565s [00:52:44.986] NAMES <- toupper(added) 1565s [00:52:44.986] for (kk in seq_along(NAMES)) { 1565s [00:52:44.986] name <- added[[kk]] 1565s [00:52:44.986] NAME <- NAMES[[kk]] 1565s [00:52:44.986] if (name != NAME && is.element(NAME, old_names)) 1565s [00:52:44.986] next 1565s [00:52:44.986] args[[name]] <- "" 1565s [00:52:44.986] } 1565s [00:52:44.986] NAMES <- toupper(removed) 1565s [00:52:44.986] for (kk in seq_along(NAMES)) { 1565s [00:52:44.986] name <- removed[[kk]] 1565s [00:52:44.986] NAME <- NAMES[[kk]] 1565s [00:52:44.986] if (name != NAME && is.element(NAME, old_names)) 1565s [00:52:44.986] next 1565s [00:52:44.986] args[[name]] <- ...future.oldEnvVars[[name]] 1565s [00:52:44.986] } 1565s [00:52:44.986] if (length(args) > 0) 1565s [00:52:44.986] base::do.call(base::Sys.setenv, args = args) 1565s [00:52:44.986] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1565s [00:52:44.986] } 1565s [00:52:44.986] else { 1565s [00:52:44.986] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1565s [00:52:44.986] } 1565s [00:52:44.986] { 1565s [00:52:44.986] if (base::length(...future.futureOptionsAdded) > 1565s [00:52:44.986] 0L) { 1565s [00:52:44.986] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1565s [00:52:44.986] base::names(opts) <- ...future.futureOptionsAdded 1565s [00:52:44.986] base::options(opts) 1565s [00:52:44.986] } 1565s [00:52:44.986] { 1565s [00:52:44.986] { 1565s [00:52:44.986] base::assign(".Random.seed", c(10407L, 1795077819L, 1565s [00:52:44.986] 389850356L, 1573160841L, -308065669L, 303050973L, 1565s [00:52:44.986] -738971785L), envir = base::globalenv(), 1565s [00:52:44.986] inherits = FALSE) 1565s [00:52:44.986] NULL 1565s [00:52:44.986] } 1565s [00:52:44.986] options(future.plan = NULL) 1565s [00:52:44.986] if (is.na(NA_character_)) 1565s [00:52:44.986] Sys.unsetenv("R_FUTURE_PLAN") 1565s [00:52:44.986] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1565s [00:52:44.986] future::plan(list(function (..., workers = availableCores(), 1565s [00:52:44.986] lazy = FALSE, rscript_libs = .libPaths(), 1565s [00:52:44.986] envir = parent.frame()) 1565s [00:52:44.986] { 1565s [00:52:44.986] if (is.function(workers)) 1565s [00:52:44.986] workers <- workers() 1565s [00:52:44.986] workers <- structure(as.integer(workers), 1565s [00:52:44.986] class = class(workers)) 1565s [00:52:44.986] stop_if_not(length(workers) == 1, is.finite(workers), 1565s [00:52:44.986] workers >= 1) 1565s [00:52:44.986] if (workers == 1L && !inherits(workers, "AsIs")) { 1565s [00:52:44.986] return(sequential(..., lazy = TRUE, envir = envir)) 1565s [00:52:44.986] } 1565s [00:52:44.986] future <- MultisessionFuture(..., workers = workers, 1565s [00:52:44.986] lazy = lazy, rscript_libs = rscript_libs, 1565s [00:52:44.986] envir = envir) 1565s [00:52:44.986] if (!future$lazy) 1565s [00:52:44.986] future <- run(future) 1565s [00:52:44.986] invisible(future) 1565s [00:52:44.986] }), .cleanup = FALSE, .init = FALSE) 1565s [00:52:44.986] } 1565s [00:52:44.986] } 1565s [00:52:44.986] } 1565s [00:52:44.986] }) 1565s [00:52:44.986] if (TRUE) { 1565s [00:52:44.986] base::sink(type = "output", split = FALSE) 1565s [00:52:44.986] if (TRUE) { 1565s [00:52:44.986] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1565s [00:52:44.986] } 1565s [00:52:44.986] else { 1565s [00:52:44.986] ...future.result["stdout"] <- base::list(NULL) 1565s [00:52:44.986] } 1565s [00:52:44.986] base::close(...future.stdout) 1565s [00:52:44.986] ...future.stdout <- NULL 1565s [00:52:44.986] } 1565s [00:52:44.986] ...future.result$conditions <- ...future.conditions 1565s [00:52:44.986] ...future.result$finished <- base::Sys.time() 1565s [00:52:44.986] ...future.result 1565s [00:52:44.986] } 1565s [00:52:44.991] assign_globals() ... 1565s [00:52:44.991] List of 5 1565s [00:52:44.991] $ ...future.FUN :function (x, y) 1565s [00:52:44.991] $ MoreArgs :List of 1 1565s [00:52:44.991] ..$ y: int [1:2] 3 4 1565s [00:52:44.991] $ ...future.elements_ii :List of 1 1565s [00:52:44.991] ..$ x:List of 2 1565s [00:52:44.991] .. ..$ : int 1 1565s [00:52:44.991] .. ..$ : int 2 1565s [00:52:44.991] $ ...future.seeds_ii :List of 2 1565s [00:52:44.991] ..$ : int [1:7] 10407 -380362259 -439824972 1993580017 -355402124 -1331022448 -2057382336 1565s [00:52:44.991] ..$ : int [1:7] 10407 -359036318 -1122077656 701608196 1146507447 1342547690 1987104018 1565s [00:52:44.991] $ ...future.globals.maxSize: NULL 1565s [00:52:44.991] - attr(*, "where")=List of 5 1565s [00:52:44.991] ..$ ...future.FUN : 1565s [00:52:44.991] ..$ MoreArgs : 1565s [00:52:44.991] ..$ ...future.elements_ii : 1565s [00:52:44.991] ..$ ...future.seeds_ii : 1565s [00:52:44.991] ..$ ...future.globals.maxSize: 1565s [00:52:44.991] - attr(*, "resolved")= logi FALSE 1565s [00:52:44.991] - attr(*, "total_size")= num 2032 1565s [00:52:44.991] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1565s [00:52:44.991] - attr(*, "already-done")= logi TRUE 1565s [00:52:45.006] - reassign environment for ‘...future.FUN’ 1565s [00:52:45.006] - copied ‘...future.FUN’ to environment 1565s [00:52:45.006] - copied ‘MoreArgs’ to environment 1565s [00:52:45.006] - copied ‘...future.elements_ii’ to environment 1565s [00:52:45.007] - copied ‘...future.seeds_ii’ to environment 1565s [00:52:45.007] - copied ‘...future.globals.maxSize’ to environment 1565s [00:52:45.007] assign_globals() ... done 1565s [00:52:45.008] plan(): Setting new future strategy stack: 1565s [00:52:45.008] List of future strategies: 1565s [00:52:45.008] 1. sequential: 1565s [00:52:45.008] - args: function (..., envir = parent.frame()) 1565s [00:52:45.008] - tweaked: FALSE 1565s [00:52:45.008] - call: NULL 1565s [00:52:45.009] plan(): nbrOfWorkers() = 1 1565s [00:52:45.011] plan(): Setting new future strategy stack: 1565s [00:52:45.011] List of future strategies: 1565s [00:52:45.011] 1. multisession: 1565s [00:52:45.011] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1565s [00:52:45.011] - tweaked: FALSE 1565s [00:52:45.011] - call: plan(strategy) 1565s [00:52:45.015] plan(): nbrOfWorkers() = 1 1565s [00:52:45.015] SequentialFuture started (and completed) 1565s [00:52:45.015] - Launch lazy future ... done 1565s [00:52:45.015] run() for ‘SequentialFuture’ ... done 1565s [00:52:45.016] Created future: 1565s [00:52:45.016] SequentialFuture: 1565s [00:52:45.016] Label: ‘future_mapply-1’ 1565s [00:52:45.016] Expression: 1565s [00:52:45.016] { 1565s [00:52:45.016] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1565s [00:52:45.016] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1565s [00:52:45.016] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1565s [00:52:45.016] on.exit(options(oopts), add = TRUE) 1565s [00:52:45.016] } 1565s [00:52:45.016] { 1565s [00:52:45.016] ...future.FUN2 <- function(..., ...future.seeds_ii_jj) { 1565s [00:52:45.016] assign(".Random.seed", ...future.seeds_ii_jj, envir = globalenv(), 1565s [00:52:45.016] inherits = FALSE) 1565s [00:52:45.016] ...future.FUN(...) 1565s [00:52:45.016] } 1565s [00:52:45.016] args <- c(list(FUN = ...future.FUN2), ...future.elements_ii, 1565s [00:52:45.016] list(...future.seeds_ii_jj = ...future.seeds_ii), 1565s [00:52:45.016] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1565s [00:52:45.016] do.call(mapply, args = args) 1565s [00:52:45.016] } 1565s [00:52:45.016] } 1565s [00:52:45.016] Lazy evaluation: FALSE 1565s [00:52:45.016] Asynchronous evaluation: FALSE 1565s [00:52:45.016] Local evaluation: TRUE 1565s [00:52:45.016] Environment: R_GlobalEnv 1565s [00:52:45.016] Capture standard output: TRUE 1565s [00:52:45.016] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1565s [00:52:45.016] Globals: 5 objects totaling 1.98 KiB (function ‘...future.FUN’ of 1.66 KiB, list ‘MoreArgs’ of 56 bytes, list ‘...future.elements_ii’ of 112 bytes, list ‘...future.seeds_ii’ of 160 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1565s [00:52:45.016] Packages: 1565s [00:52:45.016] L'Ecuyer-CMRG RNG seed: (seed = NULL) 1565s [00:52:45.016] Resolved: TRUE 1565s [00:52:45.016] Value: 112 bytes of class ‘list’ 1565s [00:52:45.016] Early signaling: FALSE 1565s [00:52:45.016] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1565s [00:52:45.016] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1565s [00:52:45.019] Chunk #1 of 1 ... DONE 1565s [00:52:45.019] Launching 1 futures (chunks) ... DONE 1565s [00:52:45.019] Resolving 1 futures (chunks) ... 1565s [00:52:45.019] resolve() on list ... 1565s [00:52:45.019] recursive: 0 1565s [00:52:45.020] length: 1 1565s [00:52:45.020] 1565s [00:52:45.020] resolved() for ‘SequentialFuture’ ... 1565s [00:52:45.020] - state: ‘finished’ 1565s [00:52:45.020] - run: TRUE 1565s [00:52:45.020] - result: ‘FutureResult’ 1565s [00:52:45.021] resolved() for ‘SequentialFuture’ ... done 1565s [00:52:45.021] Future #1 1565s [00:52:45.021] signalConditionsASAP(SequentialFuture, pos=1) ... 1565s [00:52:45.021] - nx: 1 1565s [00:52:45.021] - relay: TRUE 1565s [00:52:45.021] - stdout: TRUE 1565s [00:52:45.022] - signal: TRUE 1565s [00:52:45.022] - resignal: FALSE 1565s [00:52:45.022] - force: TRUE 1565s [00:52:45.022] - relayed: [n=1] FALSE 1565s [00:52:45.023] - queued futures: [n=1] FALSE 1565s [00:52:45.023] - until=1 1565s [00:52:45.023] - relaying element #1 1565s [00:52:45.023] - relayed: [n=1] TRUE 1565s [00:52:45.023] - queued futures: [n=1] TRUE 1565s [00:52:45.024] signalConditionsASAP(SequentialFuture, pos=1) ... done 1565s [00:52:45.024] length: 0 (resolved future 1) 1565s [00:52:45.024] Relaying remaining futures 1565s [00:52:45.024] signalConditionsASAP(NULL, pos=0) ... 1565s [00:52:45.025] - nx: 1 1565s [00:52:45.025] - relay: TRUE 1565s [00:52:45.025] - stdout: TRUE 1565s [00:52:45.026] - signal: TRUE 1565s [00:52:45.026] - resignal: FALSE 1565s [00:52:45.026] - force: TRUE 1565s [00:52:45.026] - relayed: [n=1] TRUE 1565s [00:52:45.026] - queued futures: [n=1] TRUE 1565s - flush all 1565s [00:52:45.026] - relayed: [n=1] TRUE 1565s [00:52:45.027] - queued futures: [n=1] TRUE 1565s [00:52:45.027] signalConditionsASAP(NULL, pos=0) ... done 1565s [00:52:45.027] resolve() on list ... DONE 1565s [00:52:45.027] - Number of value chunks collected: 1 1565s [00:52:45.027] Resolving 1 futures (chunks) ... DONE 1565s [00:52:45.028] Reducing values from 1 chunks ... 1565s [00:52:45.028] - Number of values collected after concatenation: 2 1565s [00:52:45.028] - Number of values expected: 2 1565s [00:52:45.029] Reducing values from 1 chunks ... DONE 1565s [00:52:45.029] future_mapply() ... DONE 1565s [00:52:45.029] future_mapply() ... 1565s [00:52:45.033] Number of chunks: 1 1565s [00:52:45.033] getGlobalsAndPackagesXApply() ... 1565s [00:52:45.034] - future.globals: TRUE 1565s [00:52:45.034] getGlobalsAndPackages() ... 1565s [00:52:45.034] Searching for globals... 1565s [00:52:45.035] - globals found: [1] ‘FUN’ 1565s [00:52:45.036] Searching for globals ... DONE 1565s [00:52:45.036] Resolving globals: FALSE 1565s [00:52:45.036] The total size of the 1 globals is 1.66 KiB (1704 bytes) 1565s [00:52:45.037] The total size of the 1 globals exported for future expression (‘FUN(y = 3:4)’) is 1.66 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.66 KiB of class ‘function’) 1565s [00:52:45.037] - globals: [1] ‘FUN’ 1565s [00:52:45.037] 1565s [00:52:45.038] getGlobalsAndPackages() ... DONE 1565s [00:52:45.038] - globals found/used: [n=1] ‘FUN’ 1565s [00:52:45.038] - needed namespaces: [n=0] 1565s [00:52:45.038] Finding globals ... DONE 1565s [00:52:45.038] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1565s [00:52:45.039] List of 2 1565s [00:52:45.039] $ ...future.FUN:function (x, y) 1565s [00:52:45.039] $ MoreArgs :List of 1 1565s [00:52:45.039] ..$ y: int [1:2] 3 4 1565s [00:52:45.039] - attr(*, "where")=List of 2 1565s [00:52:45.039] ..$ ...future.FUN: 1565s [00:52:45.039] ..$ MoreArgs : 1565s [00:52:45.039] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1565s [00:52:45.039] - attr(*, "resolved")= logi FALSE 1565s [00:52:45.039] - attr(*, "total_size")= num NA 1565s [00:52:45.043] Packages to be attached in all futures: [n=0] 1565s [00:52:45.043] getGlobalsAndPackagesXApply() ... DONE 1565s [00:52:45.043] Number of futures (= number of chunks): 1 1565s [00:52:45.044] Launching 1 futures (chunks) ... 1565s [00:52:45.044] Chunk #1 of 1 ... 1565s [00:52:45.044] - Finding globals in '...' for chunk #1 ... 1565s [00:52:45.044] getGlobalsAndPackages() ... 1565s [00:52:45.044] Searching for globals... 1565s [00:52:45.045] 1565s [00:52:45.045] Searching for globals ... DONE 1565s [00:52:45.045] - globals: [0] 1565s [00:52:45.045] getGlobalsAndPackages() ... DONE 1565s [00:52:45.045] + additional globals found: [n=0] 1565s [00:52:45.045] + additional namespaces needed: [n=0] 1565s [00:52:45.046] - Finding globals in '...' for chunk #1 ... DONE 1565s [00:52:45.046] - seeds: 1565s [00:52:45.046] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1565s [00:52:45.046] getGlobalsAndPackages() ... 1565s [00:52:45.047] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1565s [00:52:45.047] Resolving globals: FALSE 1565s [00:52:45.048] The total size of the 5 globals is 1.83 KiB (1872 bytes) 1565s [00:52:45.049] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 1.83 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (1.66 KiB of class ‘function’), ‘...future.elements_ii’ (112 bytes of class ‘list’) and ‘MoreArgs’ (56 bytes of class ‘list’) 1565s [00:52:45.049] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1565s [00:52:45.049] 1565s [00:52:45.050] getGlobalsAndPackages() ... DONE 1565s [00:52:45.050] run() for ‘Future’ ... 1565s [00:52:45.050] - state: ‘created’ 1565s [00:52:45.051] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1565s [00:52:45.054] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1565s [00:52:45.055] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1565s [00:52:45.055] - Field: ‘label’ 1565s [00:52:45.055] - Field: ‘local’ 1565s [00:52:45.055] - Field: ‘owner’ 1565s [00:52:45.056] - Field: ‘envir’ 1565s [00:52:45.056] - Field: ‘packages’ 1565s [00:52:45.056] - Field: ‘gc’ 1565s [00:52:45.056] - Field: ‘conditions’ 1565s [00:52:45.056] - Field: ‘expr’ 1565s [00:52:45.057] - Field: ‘uuid’ 1565s [00:52:45.057] - Field: ‘seed’ 1565s [00:52:45.057] - Field: ‘version’ 1565s [00:52:45.057] - Field: ‘result’ 1565s [00:52:45.058] - Field: ‘asynchronous’ 1565s [00:52:45.058] - Field: ‘calls’ 1565s [00:52:45.058] - Field: ‘globals’ 1565s [00:52:45.058] - Field: ‘stdout’ 1565s [00:52:45.058] - Field: ‘earlySignal’ 1565s [00:52:45.059] - Field: ‘lazy’ 1565s [00:52:45.059] - Field: ‘state’ 1565s [00:52:45.059] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1565s [00:52:45.059] - Launch lazy future ... 1565s [00:52:45.059] Packages needed by the future expression (n = 0): 1565s [00:52:45.060] Packages needed by future strategies (n = 0): 1565s [00:52:45.060] { 1565s [00:52:45.060] { 1565s [00:52:45.060] { 1565s [00:52:45.060] ...future.startTime <- base::Sys.time() 1565s [00:52:45.060] { 1565s [00:52:45.060] { 1565s [00:52:45.060] { 1565s [00:52:45.060] base::local({ 1565s [00:52:45.060] has_future <- base::requireNamespace("future", 1565s [00:52:45.060] quietly = TRUE) 1565s [00:52:45.060] if (has_future) { 1565s [00:52:45.060] ns <- base::getNamespace("future") 1565s [00:52:45.060] version <- ns[[".package"]][["version"]] 1565s [00:52:45.060] if (is.null(version)) 1565s [00:52:45.060] version <- utils::packageVersion("future") 1565s [00:52:45.060] } 1565s [00:52:45.060] else { 1565s [00:52:45.060] version <- NULL 1565s [00:52:45.060] } 1565s [00:52:45.060] if (!has_future || version < "1.8.0") { 1565s [00:52:45.060] info <- base::c(r_version = base::gsub("R version ", 1565s [00:52:45.060] "", base::R.version$version.string), 1565s [00:52:45.060] platform = base::sprintf("%s (%s-bit)", 1565s [00:52:45.060] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1565s [00:52:45.060] os = base::paste(base::Sys.info()[base::c("sysname", 1565s [00:52:45.060] "release", "version")], collapse = " "), 1565s [00:52:45.060] hostname = base::Sys.info()[["nodename"]]) 1565s [00:52:45.060] info <- base::sprintf("%s: %s", base::names(info), 1565s [00:52:45.060] info) 1565s [00:52:45.060] info <- base::paste(info, collapse = "; ") 1565s [00:52:45.060] if (!has_future) { 1565s [00:52:45.060] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1565s [00:52:45.060] info) 1565s [00:52:45.060] } 1565s [00:52:45.060] else { 1565s [00:52:45.060] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1565s [00:52:45.060] info, version) 1565s [00:52:45.060] } 1565s [00:52:45.060] base::stop(msg) 1565s [00:52:45.060] } 1565s [00:52:45.060] }) 1565s [00:52:45.060] } 1565s [00:52:45.060] options(future.plan = NULL) 1565s [00:52:45.060] Sys.unsetenv("R_FUTURE_PLAN") 1565s [00:52:45.060] future::plan("default", .cleanup = FALSE, .init = FALSE) 1565s [00:52:45.060] } 1565s [00:52:45.060] ...future.workdir <- getwd() 1565s [00:52:45.060] } 1565s [00:52:45.060] ...future.oldOptions <- base::as.list(base::.Options) 1565s [00:52:45.060] ...future.oldEnvVars <- base::Sys.getenv() 1565s [00:52:45.060] } 1565s [00:52:45.060] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1565s [00:52:45.060] future.globals.maxSize = NULL, future.globals.method = NULL, 1565s [00:52:45.060] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1565s [00:52:45.060] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1565s [00:52:45.060] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1565s [00:52:45.060] future.stdout.windows.reencode = NULL, width = 80L) 1565s [00:52:45.060] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1565s [00:52:45.060] base::names(...future.oldOptions)) 1565s [00:52:45.060] } 1565s [00:52:45.060] if (FALSE) { 1565s [00:52:45.060] } 1565s [00:52:45.060] else { 1565s [00:52:45.060] if (TRUE) { 1565s [00:52:45.060] ...future.stdout <- base::rawConnection(base::raw(0L), 1565s [00:52:45.060] open = "w") 1565s [00:52:45.060] } 1565s [00:52:45.060] else { 1565s [00:52:45.060] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1565s [00:52:45.060] windows = "NUL", "/dev/null"), open = "w") 1565s [00:52:45.060] } 1565s [00:52:45.060] base::sink(...future.stdout, type = "output", split = FALSE) 1565s [00:52:45.060] base::on.exit(if (!base::is.null(...future.stdout)) { 1565s [00:52:45.060] base::sink(type = "output", split = FALSE) 1565s [00:52:45.060] base::close(...future.stdout) 1565s [00:52:45.060] }, add = TRUE) 1565s [00:52:45.060] } 1565s [00:52:45.060] ...future.frame <- base::sys.nframe() 1565s [00:52:45.060] ...future.conditions <- base::list() 1565s [00:52:45.060] ...future.rng <- base::globalenv()$.Random.seed 1565s [00:52:45.060] if (FALSE) { 1565s [00:52:45.060] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1565s [00:52:45.060] "...future.value", "...future.globalenv.names", ".Random.seed") 1565s [00:52:45.060] } 1565s [00:52:45.060] ...future.result <- base::tryCatch({ 1565s [00:52:45.060] base::withCallingHandlers({ 1565s [00:52:45.060] ...future.value <- base::withVisible(base::local({ 1565s [00:52:45.060] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1565s [00:52:45.060] if (!identical(...future.globals.maxSize.org, 1565s [00:52:45.060] ...future.globals.maxSize)) { 1565s [00:52:45.060] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1565s [00:52:45.060] on.exit(options(oopts), add = TRUE) 1565s [00:52:45.060] } 1565s [00:52:45.060] { 1565s [00:52:45.060] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1565s [00:52:45.060] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1565s [00:52:45.060] USE.NAMES = FALSE) 1565s [00:52:45.060] do.call(mapply, args = args) 1565s [00:52:45.060] } 1565s [00:52:45.060] })) 1565s [00:52:45.060] future::FutureResult(value = ...future.value$value, 1565s [00:52:45.060] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1565s [00:52:45.060] ...future.rng), globalenv = if (FALSE) 1565s [00:52:45.060] list(added = base::setdiff(base::names(base::.GlobalEnv), 1565s [00:52:45.060] ...future.globalenv.names)) 1565s [00:52:45.060] else NULL, started = ...future.startTime, version = "1.8") 1565s [00:52:45.060] }, condition = base::local({ 1565s [00:52:45.060] c <- base::c 1565s [00:52:45.060] inherits <- base::inherits 1565s [00:52:45.060] invokeRestart <- base::invokeRestart 1565s [00:52:45.060] length <- base::length 1565s [00:52:45.060] list <- base::list 1565s [00:52:45.060] seq.int <- base::seq.int 1565s [00:52:45.060] signalCondition <- base::signalCondition 1565s [00:52:45.060] sys.calls <- base::sys.calls 1565s [00:52:45.060] `[[` <- base::`[[` 1565s [00:52:45.060] `+` <- base::`+` 1565s [00:52:45.060] `<<-` <- base::`<<-` 1565s [00:52:45.060] sysCalls <- function(calls = sys.calls(), from = 1L) { 1565s [00:52:45.060] calls[seq.int(from = from + 12L, to = length(calls) - 1565s [00:52:45.060] 3L)] 1565s [00:52:45.060] } 1565s [00:52:45.060] function(cond) { 1565s [00:52:45.060] is_error <- inherits(cond, "error") 1565s [00:52:45.060] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1565s [00:52:45.060] NULL) 1565s [00:52:45.060] if (is_error) { 1565s [00:52:45.060] sessionInformation <- function() { 1565s [00:52:45.060] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1565s [00:52:45.060] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1565s [00:52:45.060] search = base::search(), system = base::Sys.info()) 1565s [00:52:45.060] } 1565s [00:52:45.060] ...future.conditions[[length(...future.conditions) + 1565s [00:52:45.060] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1565s [00:52:45.060] cond$call), session = sessionInformation(), 1565s [00:52:45.060] timestamp = base::Sys.time(), signaled = 0L) 1565s [00:52:45.060] signalCondition(cond) 1565s [00:52:45.060] } 1565s [00:52:45.060] else if (!ignore && TRUE && inherits(cond, c("condition", 1565s [00:52:45.060] "immediateCondition"))) { 1565s [00:52:45.060] signal <- TRUE && inherits(cond, "immediateCondition") 1565s [00:52:45.060] ...future.conditions[[length(...future.conditions) + 1565s [00:52:45.060] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1565s [00:52:45.060] if (TRUE && !signal) { 1565s [00:52:45.060] muffleCondition <- function (cond, pattern = "^muffle") 1565s [00:52:45.060] { 1565s [00:52:45.060] inherits <- base::inherits 1565s [00:52:45.060] invokeRestart <- base::invokeRestart 1565s [00:52:45.060] is.null <- base::is.null 1565s [00:52:45.060] muffled <- FALSE 1565s [00:52:45.060] if (inherits(cond, "message")) { 1565s [00:52:45.060] muffled <- grepl(pattern, "muffleMessage") 1565s [00:52:45.060] if (muffled) 1565s [00:52:45.060] invokeRestart("muffleMessage") 1565s [00:52:45.060] } 1565s [00:52:45.060] else if (inherits(cond, "warning")) { 1565s [00:52:45.060] muffled <- grepl(pattern, "muffleWarning") 1565s [00:52:45.060] if (muffled) 1565s [00:52:45.060] invokeRestart("muffleWarning") 1565s [00:52:45.060] } 1565s [00:52:45.060] else if (inherits(cond, "condition")) { 1565s [00:52:45.060] if (!is.null(pattern)) { 1565s [00:52:45.060] computeRestarts <- base::computeRestarts 1565s [00:52:45.060] grepl <- base::grepl 1565s [00:52:45.060] restarts <- computeRestarts(cond) 1565s [00:52:45.060] for (restart in restarts) { 1565s [00:52:45.060] name <- restart$name 1565s [00:52:45.060] if (is.null(name)) 1565s [00:52:45.060] next 1565s [00:52:45.060] if (!grepl(pattern, name)) 1565s [00:52:45.060] next 1565s [00:52:45.060] invokeRestart(restart) 1565s [00:52:45.060] muffled <- TRUE 1565s [00:52:45.060] break 1565s [00:52:45.060] } 1565s [00:52:45.060] } 1565s [00:52:45.060] } 1565s [00:52:45.060] invisible(muffled) 1565s [00:52:45.060] } 1565s [00:52:45.060] muffleCondition(cond, pattern = "^muffle") 1565s [00:52:45.060] } 1565s [00:52:45.060] } 1565s [00:52:45.060] else { 1565s [00:52:45.060] if (TRUE) { 1565s [00:52:45.060] muffleCondition <- function (cond, pattern = "^muffle") 1565s [00:52:45.060] { 1565s [00:52:45.060] inherits <- base::inherits 1565s [00:52:45.060] invokeRestart <- base::invokeRestart 1565s [00:52:45.060] is.null <- base::is.null 1565s [00:52:45.060] muffled <- FALSE 1565s [00:52:45.060] if (inherits(cond, "message")) { 1565s [00:52:45.060] muffled <- grepl(pattern, "muffleMessage") 1565s [00:52:45.060] if (muffled) 1565s [00:52:45.060] invokeRestart("muffleMessage") 1565s [00:52:45.060] } 1565s [00:52:45.060] else if (inherits(cond, "warning")) { 1565s [00:52:45.060] muffled <- grepl(pattern, "muffleWarning") 1565s [00:52:45.060] if (muffled) 1565s [00:52:45.060] invokeRestart("muffleWarning") 1565s [00:52:45.060] } 1565s [00:52:45.060] else if (inherits(cond, "condition")) { 1565s [00:52:45.060] if (!is.null(pattern)) { 1565s [00:52:45.060] computeRestarts <- base::computeRestarts 1565s [00:52:45.060] grepl <- base::grepl 1565s [00:52:45.060] restarts <- computeRestarts(cond) 1565s [00:52:45.060] for (restart in restarts) { 1565s [00:52:45.060] name <- restart$name 1565s [00:52:45.060] if (is.null(name)) 1565s [00:52:45.060] next 1565s [00:52:45.060] if (!grepl(pattern, name)) 1565s [00:52:45.060] next 1565s [00:52:45.060] invokeRestart(restart) 1565s [00:52:45.060] muffled <- TRUE 1565s [00:52:45.060] break 1565s [00:52:45.060] } 1565s [00:52:45.060] } 1565s [00:52:45.060] } 1565s [00:52:45.060] invisible(muffled) 1565s [00:52:45.060] } 1565s [00:52:45.060] muffleCondition(cond, pattern = "^muffle") 1565s [00:52:45.060] } 1565s [00:52:45.060] } 1565s [00:52:45.060] } 1565s [00:52:45.060] })) 1565s [00:52:45.060] }, error = function(ex) { 1565s [00:52:45.060] base::structure(base::list(value = NULL, visible = NULL, 1565s [00:52:45.060] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1565s [00:52:45.060] ...future.rng), started = ...future.startTime, 1565s [00:52:45.060] finished = Sys.time(), session_uuid = NA_character_, 1565s [00:52:45.060] version = "1.8"), class = "FutureResult") 1565s [00:52:45.060] }, finally = { 1565s [00:52:45.060] if (!identical(...future.workdir, getwd())) 1565s [00:52:45.060] setwd(...future.workdir) 1565s [00:52:45.060] { 1565s [00:52:45.060] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1565s [00:52:45.060] ...future.oldOptions$nwarnings <- NULL 1565s [00:52:45.060] } 1565s [00:52:45.060] base::options(...future.oldOptions) 1565s [00:52:45.060] if (.Platform$OS.type == "windows") { 1565s [00:52:45.060] old_names <- names(...future.oldEnvVars) 1565s [00:52:45.060] envs <- base::Sys.getenv() 1565s [00:52:45.060] names <- names(envs) 1565s [00:52:45.060] common <- intersect(names, old_names) 1565s [00:52:45.060] added <- setdiff(names, old_names) 1565s [00:52:45.060] removed <- setdiff(old_names, names) 1565s [00:52:45.060] changed <- common[...future.oldEnvVars[common] != 1565s [00:52:45.060] envs[common]] 1565s [00:52:45.060] NAMES <- toupper(changed) 1565s [00:52:45.060] args <- list() 1565s [00:52:45.060] for (kk in seq_along(NAMES)) { 1565s [00:52:45.060] name <- changed[[kk]] 1565s [00:52:45.060] NAME <- NAMES[[kk]] 1565s [00:52:45.060] if (name != NAME && is.element(NAME, old_names)) 1565s [00:52:45.060] next 1565s [00:52:45.060] args[[name]] <- ...future.oldEnvVars[[name]] 1565s [00:52:45.060] } 1565s [00:52:45.060] NAMES <- toupper(added) 1565s [00:52:45.060] for (kk in seq_along(NAMES)) { 1565s [00:52:45.060] name <- added[[kk]] 1565s [00:52:45.060] NAME <- NAMES[[kk]] 1565s [00:52:45.060] if (name != NAME && is.element(NAME, old_names)) 1565s [00:52:45.060] next 1565s [00:52:45.060] args[[name]] <- "" 1565s [00:52:45.060] } 1565s [00:52:45.060] NAMES <- toupper(removed) 1565s [00:52:45.060] for (kk in seq_along(NAMES)) { 1565s [00:52:45.060] name <- removed[[kk]] 1565s [00:52:45.060] NAME <- NAMES[[kk]] 1565s [00:52:45.060] if (name != NAME && is.element(NAME, old_names)) 1565s [00:52:45.060] next 1565s [00:52:45.060] args[[name]] <- ...future.oldEnvVars[[name]] 1565s [00:52:45.060] } 1565s [00:52:45.060] if (length(args) > 0) 1565s [00:52:45.060] base::do.call(base::Sys.setenv, args = args) 1565s [00:52:45.060] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1565s [00:52:45.060] } 1565s [00:52:45.060] else { 1565s [00:52:45.060] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1565s [00:52:45.060] } 1565s [00:52:45.060] { 1565s [00:52:45.060] if (base::length(...future.futureOptionsAdded) > 1565s [00:52:45.060] 0L) { 1565s [00:52:45.060] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1565s [00:52:45.060] base::names(opts) <- ...future.futureOptionsAdded 1565s [00:52:45.060] base::options(opts) 1565s [00:52:45.060] } 1565s [00:52:45.060] { 1565s [00:52:45.060] { 1565s [00:52:45.060] base::assign(".Random.seed", c(10407L, 1795077819L, 1565s [00:52:45.060] 389850356L, 1573160841L, -308065669L, 303050973L, 1565s [00:52:45.060] -738971785L), envir = base::globalenv(), 1565s [00:52:45.060] inherits = FALSE) 1565s [00:52:45.060] NULL 1565s [00:52:45.060] } 1565s [00:52:45.060] options(future.plan = NULL) 1565s [00:52:45.060] if (is.na(NA_character_)) 1565s [00:52:45.060] Sys.unsetenv("R_FUTURE_PLAN") 1565s [00:52:45.060] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1565s [00:52:45.060] future::plan(list(function (..., workers = availableCores(), 1565s [00:52:45.060] lazy = FALSE, rscript_libs = .libPaths(), 1565s [00:52:45.060] envir = parent.frame()) 1565s [00:52:45.060] { 1565s [00:52:45.060] if (is.function(workers)) 1565s [00:52:45.060] workers <- workers() 1565s [00:52:45.060] workers <- structure(as.integer(workers), 1565s [00:52:45.060] class = class(workers)) 1565s [00:52:45.060] stop_if_not(length(workers) == 1, is.finite(workers), 1565s [00:52:45.060] workers >= 1) 1565s [00:52:45.060] if (workers == 1L && !inherits(workers, "AsIs")) { 1565s [00:52:45.060] return(sequential(..., lazy = TRUE, envir = envir)) 1565s [00:52:45.060] } 1565s [00:52:45.060] future <- MultisessionFuture(..., workers = workers, 1565s [00:52:45.060] lazy = lazy, rscript_libs = rscript_libs, 1565s [00:52:45.060] envir = envir) 1565s [00:52:45.060] if (!future$lazy) 1565s [00:52:45.060] future <- run(future) 1565s [00:52:45.060] invisible(future) 1565s [00:52:45.060] }), .cleanup = FALSE, .init = FALSE) 1565s [00:52:45.060] } 1565s [00:52:45.060] } 1565s [00:52:45.060] } 1565s [00:52:45.060] }) 1565s [00:52:45.060] if (TRUE) { 1565s [00:52:45.060] base::sink(type = "output", split = FALSE) 1565s [00:52:45.060] if (TRUE) { 1565s [00:52:45.060] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1565s [00:52:45.060] } 1565s [00:52:45.060] else { 1565s [00:52:45.060] ...future.result["stdout"] <- base::list(NULL) 1565s [00:52:45.060] } 1565s [00:52:45.060] base::close(...future.stdout) 1565s [00:52:45.060] ...future.stdout <- NULL 1565s [00:52:45.060] } 1565s [00:52:45.060] ...future.result$conditions <- ...future.conditions 1565s [00:52:45.060] ...future.result$finished <- base::Sys.time() 1565s [00:52:45.060] ...future.result 1565s [00:52:45.060] } 1565s [00:52:45.065] assign_globals() ... 1565s [00:52:45.065] List of 5 1565s [00:52:45.065] $ ...future.FUN :function (x, y) 1565s [00:52:45.065] $ MoreArgs :List of 1 1565s [00:52:45.065] ..$ y: int [1:2] 3 4 1565s [00:52:45.065] $ ...future.elements_ii :List of 1 1565s [00:52:45.065] ..$ x:List of 2 1565s [00:52:45.065] .. ..$ : int 1 1565s [00:52:45.065] .. ..$ : int 2 1565s [00:52:45.065] $ ...future.seeds_ii : NULL 1565s [00:52:45.065] $ ...future.globals.maxSize: NULL 1565s [00:52:45.065] - attr(*, "where")=List of 5 1565s [00:52:45.065] ..$ ...future.FUN : 1565s [00:52:45.065] ..$ MoreArgs : 1565s [00:52:45.065] ..$ ...future.elements_ii : 1565s [00:52:45.065] ..$ ...future.seeds_ii : 1565s [00:52:45.065] ..$ ...future.globals.maxSize: 1565s [00:52:45.065] - attr(*, "resolved")= logi FALSE 1565s [00:52:45.065] - attr(*, "total_size")= num 1872 1565s [00:52:45.065] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1565s [00:52:45.065] - attr(*, "already-done")= logi TRUE 1565s [00:52:45.072] - reassign environment for ‘...future.FUN’ 1565s [00:52:45.072] - copied ‘...future.FUN’ to environment 1565s [00:52:45.073] - copied ‘MoreArgs’ to environment 1565s [00:52:45.073] - copied ‘...future.elements_ii’ to environment 1565s [00:52:45.073] - copied ‘...future.seeds_ii’ to environment 1565s [00:52:45.073] - copied ‘...future.globals.maxSize’ to environment 1565s [00:52:45.073] assign_globals() ... done 1565s [00:52:45.073] plan(): Setting new future strategy stack: 1565s [00:52:45.073] List of future strategies: 1565s [00:52:45.073] 1. sequential: 1565s [00:52:45.073] - args: function (..., envir = parent.frame()) 1565s [00:52:45.073] - tweaked: FALSE 1565s [00:52:45.073] - call: NULL 1565s [00:52:45.074] plan(): nbrOfWorkers() = 1 1565s [00:52:45.075] plan(): Setting new future strategy stack: 1565s [00:52:45.075] List of future strategies: 1565s [00:52:45.075] 1. multisession: 1565s [00:52:45.075] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1565s [00:52:45.075] - tweaked: FALSE 1565s [00:52:45.075] - call: plan(strategy) 1565s [00:52:45.080] plan(): nbrOfWorkers() = 1 1565s [00:52:45.080] SequentialFuture started (and completed) 1565s [00:52:45.081] - Launch lazy future ... done 1565s [00:52:45.081] run() for ‘SequentialFuture’ ... done 1565s [00:52:45.081] Created future: 1565s [00:52:45.081] SequentialFuture: 1565s [00:52:45.081] Label: ‘future_.mapply-1’ 1565s [00:52:45.081] Expression: 1565s [00:52:45.081] { 1565s [00:52:45.081] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1565s [00:52:45.081] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1565s [00:52:45.081] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1565s [00:52:45.081] on.exit(options(oopts), add = TRUE) 1565s [00:52:45.081] } 1565s [00:52:45.081] { 1565s [00:52:45.081] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1565s [00:52:45.081] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1565s [00:52:45.081] do.call(mapply, args = args) 1565s [00:52:45.081] } 1565s [00:52:45.081] } 1565s [00:52:45.081] Lazy evaluation: FALSE 1565s [00:52:45.081] Asynchronous evaluation: FALSE 1565s [00:52:45.081] Local evaluation: TRUE 1565s [00:52:45.081] Environment: R_GlobalEnv 1565s [00:52:45.081] Capture standard output: TRUE 1565s [00:52:45.081] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1565s [00:52:45.081] Globals: 5 objects totaling 1.83 KiB (function ‘...future.FUN’ of 1.66 KiB, list ‘MoreArgs’ of 56 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1565s [00:52:45.081] Packages: 1565s [00:52:45.081] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1565s [00:52:45.081] Resolved: TRUE 1565s [00:52:45.081] Value: 112 bytes of class ‘list’ 1565s [00:52:45.081] Early signaling: FALSE 1565s [00:52:45.081] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1565s [00:52:45.081] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1565s [00:52:45.083] Chunk #1 of 1 ... DONE 1565s [00:52:45.084] Launching 1 futures (chunks) ... DONE 1565s [00:52:45.084] Resolving 1 futures (chunks) ... 1565s [00:52:45.085] resolve() on list ... 1565s [00:52:45.085] recursive: 0 1565s [00:52:45.085] length: 1 1565s [00:52:45.086] 1565s [00:52:45.086] resolved() for ‘SequentialFuture’ ... 1565s [00:52:45.086] - state: ‘finished’ 1565s [00:52:45.086] - run: TRUE 1565s [00:52:45.086] - result: ‘FutureResult’ 1565s [00:52:45.086] resolved() for ‘SequentialFuture’ ... done 1565s [00:52:45.086] Future #1 1565s [00:52:45.087] signalConditionsASAP(SequentialFuture, pos=1) ... 1565s [00:52:45.087] - nx: 1 1565s [00:52:45.087] - relay: TRUE 1565s [00:52:45.087] - stdout: TRUE 1565s [00:52:45.087] - signal: TRUE 1565s [00:52:45.087] - resignal: FALSE 1565s [00:52:45.087] - force: TRUE 1565s [00:52:45.087] - relayed: [n=1] FALSE 1565s [00:52:45.088] - queued futures: [n=1] FALSE 1565s [00:52:45.088] - until=1 1565s [00:52:45.088] - relaying element #1 1565s [00:52:45.088] - relayed: [n=1] TRUE 1565s [00:52:45.088] - queued futures: [n=1] TRUE 1565s [00:52:45.088] signalConditionsASAP(SequentialFuture, pos=1) ... done 1565s [00:52:45.089] length: 0 (resolved future 1) 1565s [00:52:45.089] Relaying remaining futures 1565s [00:52:45.089] signalConditionsASAP(NULL, pos=0) ... 1565s [00:52:45.090] - nx: 1 1565s [00:52:45.090] - relay: TRUE 1565s [00:52:45.090] - stdout: TRUE 1565s [00:52:45.091] - signal: TRUE 1565s [00:52:45.091] - resignal: FALSE 1565s [00:52:45.091] - force: TRUE 1565s [00:52:45.091] - relayed: [n=1] TRUE 1565s [00:52:45.092] - queued futures: [n=1] TRUE 1565s - flush all 1565s [00:52:45.092] - relayed: [n=1] TRUE 1565s [00:52:45.092] - queued futures: [n=1] TRUE 1565s [00:52:45.092] signalConditionsASAP(NULL, pos=0) ... done 1565s [00:52:45.092] resolve() on list ... DONE 1565s [00:52:45.092] - Number of value chunks collected: 1 1565s [00:52:45.093] Resolving 1 futures (chunks) ... DONE 1565s [00:52:45.093] Reducing values from 1 chunks ... 1565s [00:52:45.093] - Number of values collected after concatenation: 2 1565s [00:52:45.093] - Number of values expected: 2 1565s [00:52:45.093] Reducing values from 1 chunks ... DONE 1565s [00:52:45.093] future_mapply() ... DONE 1565s - Recycle arguments to same length ... 1565s [00:52:45.094] future_mapply() ... 1565s [00:52:45.098] Number of chunks: 1 1565s [00:52:45.098] getGlobalsAndPackagesXApply() ... 1565s [00:52:45.098] - future.globals: TRUE 1565s [00:52:45.098] getGlobalsAndPackages() ... 1565s [00:52:45.098] Searching for globals... 1565s [00:52:45.099] - globals found: [1] ‘FUN’ 1565s [00:52:45.100] Searching for globals ... DONE 1565s [00:52:45.100] Resolving globals: FALSE 1565s [00:52:45.100] The total size of the 1 globals is 56 bytes (56 bytes) 1565s [00:52:45.101] The total size of the 1 globals exported for future expression (‘FUN()’) is 56 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (56 bytes of class ‘function’) 1565s [00:52:45.101] - globals: [1] ‘FUN’ 1565s [00:52:45.102] 1565s [00:52:45.102] getGlobalsAndPackages() ... DONE 1565s [00:52:45.102] - globals found/used: [n=1] ‘FUN’ 1565s [00:52:45.102] - needed namespaces: [n=0] 1565s [00:52:45.103] Finding globals ... DONE 1565s [00:52:45.103] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1565s [00:52:45.103] List of 2 1565s [00:52:45.103] $ ...future.FUN:function (x, ...) 1565s [00:52:45.103] $ MoreArgs : NULL 1565s [00:52:45.103] - attr(*, "where")=List of 2 1565s [00:52:45.103] ..$ ...future.FUN: 1565s [00:52:45.103] ..$ MoreArgs : 1565s [00:52:45.103] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1565s [00:52:45.103] - attr(*, "resolved")= logi FALSE 1565s [00:52:45.103] - attr(*, "total_size")= num NA 1565s [00:52:45.106] Packages to be attached in all futures: [n=0] 1565s [00:52:45.106] getGlobalsAndPackagesXApply() ... DONE 1565s [00:52:45.106] Number of futures (= number of chunks): 1 1565s [00:52:45.107] Launching 1 futures (chunks) ... 1565s [00:52:45.107] Chunk #1 of 1 ... 1565s [00:52:45.107] - Finding globals in '...' for chunk #1 ... 1565s [00:52:45.107] getGlobalsAndPackages() ... 1565s [00:52:45.107] Searching for globals... 1565s [00:52:45.108] 1565s [00:52:45.108] Searching for globals ... DONE 1565s [00:52:45.108] - globals: [0] 1565s [00:52:45.108] getGlobalsAndPackages() ... DONE 1565s [00:52:45.108] + additional globals found: [n=0] 1565s [00:52:45.108] + additional namespaces needed: [n=0] 1565s [00:52:45.109] - Finding globals in '...' for chunk #1 ... DONE 1565s [00:52:45.109] - seeds: 1565s [00:52:45.109] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1565s [00:52:45.110] getGlobalsAndPackages() ... 1565s [00:52:45.111] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1565s [00:52:45.111] Resolving globals: FALSE 1565s [00:52:45.112] The total size of the 5 globals is 504 bytes (504 bytes) 1565s [00:52:45.113] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 504 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.elements_ii’ (448 bytes of class ‘list’), ‘...future.FUN’ (56 bytes of class ‘function’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1565s [00:52:45.114] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1565s [00:52:45.114] 1565s [00:52:45.114] getGlobalsAndPackages() ... DONE 1565s [00:52:45.115] run() for ‘Future’ ... 1565s [00:52:45.115] - state: ‘created’ 1565s [00:52:45.115] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1565s [00:52:45.121] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1565s [00:52:45.122] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1565s [00:52:45.122] - Field: ‘label’ 1565s [00:52:45.123] - Field: ‘local’ 1565s [00:52:45.123] - Field: ‘owner’ 1565s [00:52:45.123] - Field: ‘envir’ 1565s [00:52:45.123] - Field: ‘packages’ 1565s [00:52:45.123] - Field: ‘gc’ 1565s [00:52:45.123] - Field: ‘conditions’ 1565s [00:52:45.123] - Field: ‘expr’ 1565s [00:52:45.124] - Field: ‘uuid’ 1565s [00:52:45.124] - Field: ‘seed’ 1565s [00:52:45.124] - Field: ‘version’ 1565s [00:52:45.124] - Field: ‘result’ 1565s [00:52:45.124] - Field: ‘asynchronous’ 1565s [00:52:45.124] - Field: ‘calls’ 1565s [00:52:45.124] - Field: ‘globals’ 1565s [00:52:45.125] - Field: ‘stdout’ 1565s [00:52:45.125] - Field: ‘earlySignal’ 1565s [00:52:45.125] - Field: ‘lazy’ 1565s [00:52:45.125] - Field: ‘state’ 1565s [00:52:45.125] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1565s [00:52:45.126] - Launch lazy future ... 1565s [00:52:45.126] Packages needed by the future expression (n = 0): 1565s [00:52:45.126] Packages needed by future strategies (n = 0): 1565s [00:52:45.127] { 1565s [00:52:45.127] { 1565s [00:52:45.127] { 1565s [00:52:45.127] ...future.startTime <- base::Sys.time() 1565s [00:52:45.127] { 1565s [00:52:45.127] { 1565s [00:52:45.127] { 1565s [00:52:45.127] base::local({ 1565s [00:52:45.127] has_future <- base::requireNamespace("future", 1565s [00:52:45.127] quietly = TRUE) 1565s [00:52:45.127] if (has_future) { 1565s [00:52:45.127] ns <- base::getNamespace("future") 1565s [00:52:45.127] version <- ns[[".package"]][["version"]] 1565s [00:52:45.127] if (is.null(version)) 1565s [00:52:45.127] version <- utils::packageVersion("future") 1565s [00:52:45.127] } 1565s [00:52:45.127] else { 1565s [00:52:45.127] version <- NULL 1565s [00:52:45.127] } 1565s [00:52:45.127] if (!has_future || version < "1.8.0") { 1565s [00:52:45.127] info <- base::c(r_version = base::gsub("R version ", 1565s [00:52:45.127] "", base::R.version$version.string), 1565s [00:52:45.127] platform = base::sprintf("%s (%s-bit)", 1565s [00:52:45.127] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1565s [00:52:45.127] os = base::paste(base::Sys.info()[base::c("sysname", 1565s [00:52:45.127] "release", "version")], collapse = " "), 1565s [00:52:45.127] hostname = base::Sys.info()[["nodename"]]) 1565s [00:52:45.127] info <- base::sprintf("%s: %s", base::names(info), 1565s [00:52:45.127] info) 1565s [00:52:45.127] info <- base::paste(info, collapse = "; ") 1565s [00:52:45.127] if (!has_future) { 1565s [00:52:45.127] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1565s [00:52:45.127] info) 1565s [00:52:45.127] } 1565s [00:52:45.127] else { 1565s [00:52:45.127] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1565s [00:52:45.127] info, version) 1565s [00:52:45.127] } 1565s [00:52:45.127] base::stop(msg) 1565s [00:52:45.127] } 1565s [00:52:45.127] }) 1565s [00:52:45.127] } 1565s [00:52:45.127] options(future.plan = NULL) 1565s [00:52:45.127] Sys.unsetenv("R_FUTURE_PLAN") 1565s [00:52:45.127] future::plan("default", .cleanup = FALSE, .init = FALSE) 1565s [00:52:45.127] } 1565s [00:52:45.127] ...future.workdir <- getwd() 1565s [00:52:45.127] } 1565s [00:52:45.127] ...future.oldOptions <- base::as.list(base::.Options) 1565s [00:52:45.127] ...future.oldEnvVars <- base::Sys.getenv() 1565s [00:52:45.127] } 1565s [00:52:45.127] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1565s [00:52:45.127] future.globals.maxSize = NULL, future.globals.method = NULL, 1565s [00:52:45.127] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1565s [00:52:45.127] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1565s [00:52:45.127] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1565s [00:52:45.127] future.stdout.windows.reencode = NULL, width = 80L) 1565s [00:52:45.127] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1565s [00:52:45.127] base::names(...future.oldOptions)) 1565s [00:52:45.127] } 1565s [00:52:45.127] if (FALSE) { 1565s [00:52:45.127] } 1565s [00:52:45.127] else { 1565s [00:52:45.127] if (TRUE) { 1565s [00:52:45.127] ...future.stdout <- base::rawConnection(base::raw(0L), 1565s [00:52:45.127] open = "w") 1565s [00:52:45.127] } 1565s [00:52:45.127] else { 1565s [00:52:45.127] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1565s [00:52:45.127] windows = "NUL", "/dev/null"), open = "w") 1565s [00:52:45.127] } 1565s [00:52:45.127] base::sink(...future.stdout, type = "output", split = FALSE) 1565s [00:52:45.127] base::on.exit(if (!base::is.null(...future.stdout)) { 1565s [00:52:45.127] base::sink(type = "output", split = FALSE) 1565s [00:52:45.127] base::close(...future.stdout) 1565s [00:52:45.127] }, add = TRUE) 1565s [00:52:45.127] } 1565s [00:52:45.127] ...future.frame <- base::sys.nframe() 1565s [00:52:45.127] ...future.conditions <- base::list() 1565s [00:52:45.127] ...future.rng <- base::globalenv()$.Random.seed 1565s [00:52:45.127] if (FALSE) { 1565s [00:52:45.127] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1565s [00:52:45.127] "...future.value", "...future.globalenv.names", ".Random.seed") 1565s [00:52:45.127] } 1565s [00:52:45.127] ...future.result <- base::tryCatch({ 1565s [00:52:45.127] base::withCallingHandlers({ 1565s [00:52:45.127] ...future.value <- base::withVisible(base::local({ 1565s [00:52:45.127] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1565s [00:52:45.127] if (!identical(...future.globals.maxSize.org, 1565s [00:52:45.127] ...future.globals.maxSize)) { 1565s [00:52:45.127] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1565s [00:52:45.127] on.exit(options(oopts), add = TRUE) 1565s [00:52:45.127] } 1565s [00:52:45.127] { 1565s [00:52:45.127] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1565s [00:52:45.127] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1565s [00:52:45.127] USE.NAMES = FALSE) 1565s [00:52:45.127] do.call(mapply, args = args) 1565s [00:52:45.127] } 1565s [00:52:45.127] })) 1565s [00:52:45.127] future::FutureResult(value = ...future.value$value, 1565s [00:52:45.127] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1565s [00:52:45.127] ...future.rng), globalenv = if (FALSE) 1565s [00:52:45.127] list(added = base::setdiff(base::names(base::.GlobalEnv), 1565s [00:52:45.127] ...future.globalenv.names)) 1565s [00:52:45.127] else NULL, started = ...future.startTime, version = "1.8") 1565s [00:52:45.127] }, condition = base::local({ 1565s [00:52:45.127] c <- base::c 1565s [00:52:45.127] inherits <- base::inherits 1565s [00:52:45.127] invokeRestart <- base::invokeRestart 1565s [00:52:45.127] length <- base::length 1565s [00:52:45.127] list <- base::list 1565s [00:52:45.127] seq.int <- base::seq.int 1565s [00:52:45.127] signalCondition <- base::signalCondition 1565s [00:52:45.127] sys.calls <- base::sys.calls 1565s [00:52:45.127] `[[` <- base::`[[` 1565s [00:52:45.127] `+` <- base::`+` 1565s [00:52:45.127] `<<-` <- base::`<<-` 1565s [00:52:45.127] sysCalls <- function(calls = sys.calls(), from = 1L) { 1565s [00:52:45.127] calls[seq.int(from = from + 12L, to = length(calls) - 1565s [00:52:45.127] 3L)] 1565s [00:52:45.127] } 1565s [00:52:45.127] function(cond) { 1565s [00:52:45.127] is_error <- inherits(cond, "error") 1565s [00:52:45.127] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1565s [00:52:45.127] NULL) 1565s [00:52:45.127] if (is_error) { 1565s [00:52:45.127] sessionInformation <- function() { 1565s [00:52:45.127] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1565s [00:52:45.127] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1565s [00:52:45.127] search = base::search(), system = base::Sys.info()) 1565s [00:52:45.127] } 1565s [00:52:45.127] ...future.conditions[[length(...future.conditions) + 1565s [00:52:45.127] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1565s [00:52:45.127] cond$call), session = sessionInformation(), 1565s [00:52:45.127] timestamp = base::Sys.time(), signaled = 0L) 1565s [00:52:45.127] signalCondition(cond) 1565s [00:52:45.127] } 1565s [00:52:45.127] else if (!ignore && TRUE && inherits(cond, c("condition", 1565s [00:52:45.127] "immediateCondition"))) { 1565s [00:52:45.127] signal <- TRUE && inherits(cond, "immediateCondition") 1565s [00:52:45.127] ...future.conditions[[length(...future.conditions) + 1565s [00:52:45.127] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1565s [00:52:45.127] if (TRUE && !signal) { 1565s [00:52:45.127] muffleCondition <- function (cond, pattern = "^muffle") 1565s [00:52:45.127] { 1565s [00:52:45.127] inherits <- base::inherits 1565s [00:52:45.127] invokeRestart <- base::invokeRestart 1565s [00:52:45.127] is.null <- base::is.null 1565s [00:52:45.127] muffled <- FALSE 1565s [00:52:45.127] if (inherits(cond, "message")) { 1565s [00:52:45.127] muffled <- grepl(pattern, "muffleMessage") 1565s [00:52:45.127] if (muffled) 1565s [00:52:45.127] invokeRestart("muffleMessage") 1565s [00:52:45.127] } 1565s [00:52:45.127] else if (inherits(cond, "warning")) { 1565s [00:52:45.127] muffled <- grepl(pattern, "muffleWarning") 1565s [00:52:45.127] if (muffled) 1565s [00:52:45.127] invokeRestart("muffleWarning") 1565s [00:52:45.127] } 1565s [00:52:45.127] else if (inherits(cond, "condition")) { 1565s [00:52:45.127] if (!is.null(pattern)) { 1565s [00:52:45.127] computeRestarts <- base::computeRestarts 1565s [00:52:45.127] grepl <- base::grepl 1565s [00:52:45.127] restarts <- computeRestarts(cond) 1565s [00:52:45.127] for (restart in restarts) { 1565s [00:52:45.127] name <- restart$name 1565s [00:52:45.127] if (is.null(name)) 1565s [00:52:45.127] next 1565s [00:52:45.127] if (!grepl(pattern, name)) 1565s [00:52:45.127] next 1565s [00:52:45.127] invokeRestart(restart) 1565s [00:52:45.127] muffled <- TRUE 1565s [00:52:45.127] break 1565s [00:52:45.127] } 1565s [00:52:45.127] } 1565s [00:52:45.127] } 1565s [00:52:45.127] invisible(muffled) 1565s [00:52:45.127] } 1565s [00:52:45.127] muffleCondition(cond, pattern = "^muffle") 1565s [00:52:45.127] } 1565s [00:52:45.127] } 1565s [00:52:45.127] else { 1565s [00:52:45.127] if (TRUE) { 1565s [00:52:45.127] muffleCondition <- function (cond, pattern = "^muffle") 1565s [00:52:45.127] { 1565s [00:52:45.127] inherits <- base::inherits 1565s [00:52:45.127] invokeRestart <- base::invokeRestart 1565s [00:52:45.127] is.null <- base::is.null 1565s [00:52:45.127] muffled <- FALSE 1565s [00:52:45.127] if (inherits(cond, "message")) { 1565s [00:52:45.127] muffled <- grepl(pattern, "muffleMessage") 1565s [00:52:45.127] if (muffled) 1565s [00:52:45.127] invokeRestart("muffleMessage") 1565s [00:52:45.127] } 1565s [00:52:45.127] else if (inherits(cond, "warning")) { 1565s [00:52:45.127] muffled <- grepl(pattern, "muffleWarning") 1565s [00:52:45.127] if (muffled) 1565s [00:52:45.127] invokeRestart("muffleWarning") 1565s [00:52:45.127] } 1565s [00:52:45.127] else if (inherits(cond, "condition")) { 1565s [00:52:45.127] if (!is.null(pattern)) { 1565s [00:52:45.127] computeRestarts <- base::computeRestarts 1565s [00:52:45.127] grepl <- base::grepl 1565s [00:52:45.127] restarts <- computeRestarts(cond) 1565s [00:52:45.127] for (restart in restarts) { 1565s [00:52:45.127] name <- restart$name 1565s [00:52:45.127] if (is.null(name)) 1565s [00:52:45.127] next 1565s [00:52:45.127] if (!grepl(pattern, name)) 1565s [00:52:45.127] next 1565s [00:52:45.127] invokeRestart(restart) 1565s [00:52:45.127] muffled <- TRUE 1565s [00:52:45.127] break 1565s [00:52:45.127] } 1565s [00:52:45.127] } 1565s [00:52:45.127] } 1565s [00:52:45.127] invisible(muffled) 1565s [00:52:45.127] } 1565s [00:52:45.127] muffleCondition(cond, pattern = "^muffle") 1565s [00:52:45.127] } 1565s [00:52:45.127] } 1565s [00:52:45.127] } 1565s [00:52:45.127] })) 1565s [00:52:45.127] }, error = function(ex) { 1565s [00:52:45.127] base::structure(base::list(value = NULL, visible = NULL, 1565s [00:52:45.127] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1565s [00:52:45.127] ...future.rng), started = ...future.startTime, 1565s [00:52:45.127] finished = Sys.time(), session_uuid = NA_character_, 1565s [00:52:45.127] version = "1.8"), class = "FutureResult") 1565s [00:52:45.127] }, finally = { 1565s [00:52:45.127] if (!identical(...future.workdir, getwd())) 1565s [00:52:45.127] setwd(...future.workdir) 1565s [00:52:45.127] { 1565s [00:52:45.127] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1565s [00:52:45.127] ...future.oldOptions$nwarnings <- NULL 1565s [00:52:45.127] } 1565s [00:52:45.127] base::options(...future.oldOptions) 1565s [00:52:45.127] if (.Platform$OS.type == "windows") { 1565s [00:52:45.127] old_names <- names(...future.oldEnvVars) 1565s [00:52:45.127] envs <- base::Sys.getenv() 1565s [00:52:45.127] names <- names(envs) 1565s [00:52:45.127] common <- intersect(names, old_names) 1565s [00:52:45.127] added <- setdiff(names, old_names) 1565s [00:52:45.127] removed <- setdiff(old_names, names) 1565s [00:52:45.127] changed <- common[...future.oldEnvVars[common] != 1565s [00:52:45.127] envs[common]] 1565s [00:52:45.127] NAMES <- toupper(changed) 1565s [00:52:45.127] args <- list() 1565s [00:52:45.127] for (kk in seq_along(NAMES)) { 1565s [00:52:45.127] name <- changed[[kk]] 1565s [00:52:45.127] NAME <- NAMES[[kk]] 1565s [00:52:45.127] if (name != NAME && is.element(NAME, old_names)) 1565s [00:52:45.127] next 1565s [00:52:45.127] args[[name]] <- ...future.oldEnvVars[[name]] 1565s [00:52:45.127] } 1565s [00:52:45.127] NAMES <- toupper(added) 1565s [00:52:45.127] for (kk in seq_along(NAMES)) { 1565s [00:52:45.127] name <- added[[kk]] 1565s [00:52:45.127] NAME <- NAMES[[kk]] 1565s [00:52:45.127] if (name != NAME && is.element(NAME, old_names)) 1565s [00:52:45.127] next 1565s [00:52:45.127] args[[name]] <- "" 1565s [00:52:45.127] } 1565s [00:52:45.127] NAMES <- toupper(removed) 1565s [00:52:45.127] for (kk in seq_along(NAMES)) { 1565s [00:52:45.127] name <- removed[[kk]] 1565s [00:52:45.127] NAME <- NAMES[[kk]] 1565s [00:52:45.127] if (name != NAME && is.element(NAME, old_names)) 1565s [00:52:45.127] next 1565s [00:52:45.127] args[[name]] <- ...future.oldEnvVars[[name]] 1565s [00:52:45.127] } 1565s [00:52:45.127] if (length(args) > 0) 1565s [00:52:45.127] base::do.call(base::Sys.setenv, args = args) 1565s [00:52:45.127] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1565s [00:52:45.127] } 1565s [00:52:45.127] else { 1565s [00:52:45.127] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1565s [00:52:45.127] } 1565s [00:52:45.127] { 1565s [00:52:45.127] if (base::length(...future.futureOptionsAdded) > 1565s [00:52:45.127] 0L) { 1565s [00:52:45.127] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1565s [00:52:45.127] base::names(opts) <- ...future.futureOptionsAdded 1565s [00:52:45.127] base::options(opts) 1565s [00:52:45.127] } 1565s [00:52:45.127] { 1565s [00:52:45.127] { 1565s [00:52:45.127] base::assign(".Random.seed", c(10407L, 1795077819L, 1565s [00:52:45.127] 389850356L, 1573160841L, -308065669L, 303050973L, 1565s [00:52:45.127] -738971785L), envir = base::globalenv(), 1565s [00:52:45.127] inherits = FALSE) 1565s [00:52:45.127] NULL 1565s [00:52:45.127] } 1565s [00:52:45.127] options(future.plan = NULL) 1565s [00:52:45.127] if (is.na(NA_character_)) 1565s [00:52:45.127] Sys.unsetenv("R_FUTURE_PLAN") 1565s [00:52:45.127] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1565s [00:52:45.127] future::plan(list(function (..., workers = availableCores(), 1565s [00:52:45.127] lazy = FALSE, rscript_libs = .libPaths(), 1565s [00:52:45.127] envir = parent.frame()) 1565s [00:52:45.127] { 1565s [00:52:45.127] if (is.function(workers)) 1565s [00:52:45.127] workers <- workers() 1565s [00:52:45.127] workers <- structure(as.integer(workers), 1565s [00:52:45.127] class = class(workers)) 1565s [00:52:45.127] stop_if_not(length(workers) == 1, is.finite(workers), 1565s [00:52:45.127] workers >= 1) 1565s [00:52:45.127] if (workers == 1L && !inherits(workers, "AsIs")) { 1565s [00:52:45.127] return(sequential(..., lazy = TRUE, envir = envir)) 1565s [00:52:45.127] } 1565s [00:52:45.127] future <- MultisessionFuture(..., workers = workers, 1565s [00:52:45.127] lazy = lazy, rscript_libs = rscript_libs, 1565s [00:52:45.127] envir = envir) 1565s [00:52:45.127] if (!future$lazy) 1565s [00:52:45.127] future <- run(future) 1565s [00:52:45.127] invisible(future) 1565s [00:52:45.127] }), .cleanup = FALSE, .init = FALSE) 1565s [00:52:45.127] } 1565s [00:52:45.127] } 1565s [00:52:45.127] } 1565s [00:52:45.127] }) 1565s [00:52:45.127] if (TRUE) { 1565s [00:52:45.127] base::sink(type = "output", split = FALSE) 1565s [00:52:45.127] if (TRUE) { 1565s [00:52:45.127] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1565s [00:52:45.127] } 1565s [00:52:45.127] else { 1565s [00:52:45.127] ...future.result["stdout"] <- base::list(NULL) 1565s [00:52:45.127] } 1565s [00:52:45.127] base::close(...future.stdout) 1565s [00:52:45.127] ...future.stdout <- NULL 1565s [00:52:45.127] } 1565s [00:52:45.127] ...future.result$conditions <- ...future.conditions 1565s [00:52:45.127] ...future.result$finished <- base::Sys.time() 1565s [00:52:45.127] ...future.result 1565s [00:52:45.127] } 1565s [00:52:45.133] assign_globals() ... 1565s [00:52:45.133] List of 5 1565s [00:52:45.133] $ ...future.FUN :function (x, ...) 1565s [00:52:45.133] $ MoreArgs : NULL 1565s [00:52:45.133] $ ...future.elements_ii :List of 2 1565s [00:52:45.133] ..$ :List of 4 1565s [00:52:45.133] .. ..$ : int 1 1565s [00:52:45.133] .. ..$ : int 2 1565s [00:52:45.133] .. ..$ : int 3 1565s [00:52:45.133] .. ..$ : int 4 1565s [00:52:45.133] ..$ :List of 4 1565s [00:52:45.133] .. ..$ : int 2 1565s [00:52:45.133] .. ..$ : int 1 1565s [00:52:45.133] .. ..$ : int 2 1565s [00:52:45.133] .. ..$ : int 1 1565s [00:52:45.133] $ ...future.seeds_ii : NULL 1565s [00:52:45.133] $ ...future.globals.maxSize: NULL 1565s [00:52:45.133] - attr(*, "where")=List of 5 1565s [00:52:45.133] ..$ ...future.FUN : 1565s [00:52:45.133] ..$ MoreArgs : 1565s [00:52:45.133] ..$ ...future.elements_ii : 1565s [00:52:45.133] ..$ ...future.seeds_ii : 1565s [00:52:45.133] ..$ ...future.globals.maxSize: 1565s [00:52:45.133] - attr(*, "resolved")= logi FALSE 1565s [00:52:45.133] - attr(*, "total_size")= num 504 1565s [00:52:45.133] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1565s [00:52:45.133] - attr(*, "already-done")= logi TRUE 1565s [00:52:45.145] - copied ‘...future.FUN’ to environment 1565s [00:52:45.145] - copied ‘MoreArgs’ to environment 1565s [00:52:45.146] - copied ‘...future.elements_ii’ to environment 1565s [00:52:45.146] - copied ‘...future.seeds_ii’ to environment 1565s [00:52:45.146] - copied ‘...future.globals.maxSize’ to environment 1565s [00:52:45.147] assign_globals() ... done 1565s [00:52:45.147] plan(): Setting new future strategy stack: 1565s [00:52:45.147] List of future strategies: 1565s [00:52:45.147] 1. sequential: 1565s [00:52:45.147] - args: function (..., envir = parent.frame()) 1565s [00:52:45.147] - tweaked: FALSE 1565s [00:52:45.147] - call: NULL 1565s [00:52:45.148] plan(): nbrOfWorkers() = 1 1565s [00:52:45.150] plan(): Setting new future strategy stack: 1565s [00:52:45.150] List of future strategies: 1565s [00:52:45.150] 1. multisession: 1565s [00:52:45.150] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1565s [00:52:45.150] - tweaked: FALSE 1565s [00:52:45.150] - call: plan(strategy) 1565s [00:52:45.158] plan(): nbrOfWorkers() = 1 1565s [00:52:45.159] SequentialFuture started (and completed) 1565s [00:52:45.159] - Launch lazy future ... done 1565s [00:52:45.159] run() for ‘SequentialFuture’ ... done 1565s [00:52:45.160] Created future: 1565s [00:52:45.160] SequentialFuture: 1565s [00:52:45.160] Label: ‘future_mapply-1’ 1565s [00:52:45.160] Expression: 1565s [00:52:45.160] { 1565s [00:52:45.160] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1565s [00:52:45.160] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1565s [00:52:45.160] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1565s [00:52:45.160] on.exit(options(oopts), add = TRUE) 1565s [00:52:45.160] } 1565s [00:52:45.160] { 1565s [00:52:45.160] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1565s [00:52:45.160] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1565s [00:52:45.160] do.call(mapply, args = args) 1565s [00:52:45.160] } 1565s [00:52:45.160] } 1565s [00:52:45.160] Lazy evaluation: FALSE 1565s [00:52:45.160] Asynchronous evaluation: FALSE 1565s [00:52:45.160] Local evaluation: TRUE 1565s [00:52:45.160] Environment: R_GlobalEnv 1565s [00:52:45.160] Capture standard output: TRUE 1565s [00:52:45.160] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1565s [00:52:45.160] Globals: 5 objects totaling 504 bytes (function ‘...future.FUN’ of 56 bytes, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 448 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1565s [00:52:45.160] Packages: 1565s [00:52:45.160] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1565s [00:52:45.160] Resolved: TRUE 1565s [00:52:45.160] Value: 224 bytes of class ‘list’ 1565s [00:52:45.160] Early signaling: FALSE 1565s [00:52:45.160] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1565s [00:52:45.160] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1565s [00:52:45.168] Chunk #1 of 1 ... DONE 1565s [00:52:45.169] Launching 1 futures (chunks) ... DONE 1565s [00:52:45.169] Resolving 1 futures (chunks) ... 1565s [00:52:45.170] resolve() on list ... 1565s [00:52:45.171] recursive: 0 1565s [00:52:45.171] length: 1 1565s [00:52:45.172] 1565s [00:52:45.172] resolved() for ‘SequentialFuture’ ... 1565s [00:52:45.173] - state: ‘finished’ 1565s [00:52:45.173] - run: TRUE 1565s [00:52:45.173] - result: ‘FutureResult’ 1565s [00:52:45.174] resolved() for ‘SequentialFuture’ ... done 1565s [00:52:45.174] Future #1 1565s [00:52:45.175] signalConditionsASAP(SequentialFuture, pos=1) ... 1565s [00:52:45.175] - nx: 1 1565s [00:52:45.176] - relay: TRUE 1565s [00:52:45.176] - stdout: TRUE 1565s [00:52:45.176] - signal: TRUE 1565s [00:52:45.176] - resignal: FALSE 1565s [00:52:45.176] - force: TRUE 1565s [00:52:45.177] - relayed: [n=1] FALSE 1565s [00:52:45.177] - queued futures: [n=1] FALSE 1565s [00:52:45.178] - until=1 1565s [00:52:45.178] - relaying element #1 1565s [00:52:45.178] - relayed: [n=1] TRUE 1565s [00:52:45.179] - queued futures: [n=1] TRUE 1565s [00:52:45.179] signalConditionsASAP(SequentialFuture, pos=1) ... done 1565s [00:52:45.180] length: 0 (resolved future 1) 1565s [00:52:45.180] Relaying remaining futures 1565s [00:52:45.180] signalConditionsASAP(NULL, pos=0) ... 1565s [00:52:45.181] - nx: 1 1565s [00:52:45.181] - relay: TRUE 1565s [00:52:45.182] - stdout: TRUE 1565s [00:52:45.183] - signal: TRUE 1565s [00:52:45.183] - resignal: FALSE 1565s [00:52:45.184] - force: TRUE 1565s [00:52:45.184] - relayed: [n=1] TRUE 1565s [00:52:45.184] - queued futures: [n=1] TRUE 1565s - flush all 1565s [00:52:45.185] - relayed: [n=1] TRUE 1565s [00:52:45.186] - queued futures: [n=1] TRUE 1565s [00:52:45.186] signalConditionsASAP(NULL, pos=0) ... done 1565s [00:52:45.186] resolve() on list ... DONE 1565s [00:52:45.187] - Number of value chunks collected: 1 1565s [00:52:45.187] Resolving 1 futures (chunks) ... DONE 1565s [00:52:45.188] Reducing values from 1 chunks ... 1565s [00:52:45.188] - Number of values collected after concatenation: 4 1565s [00:52:45.188] - Number of values expected: 4 1565s [00:52:45.189] Reducing values from 1 chunks ... DONE 1565s [00:52:45.189] future_mapply() ... DONE 1565s - Parallel RNG ... 1565s [00:52:45.191] future_mapply() ... 1565s [00:52:45.191] Generating random seeds ... 1565s [00:52:45.192] Generating random seed streams for 4 elements ... 1565s [00:52:45.193] Generating random seed streams for 4 elements ... DONE 1565s [00:52:45.193] Generating random seeds ... DONE 1565s [00:52:45.194] Will set RNG state on exit: 10407, 1573160841, -1551525594, 1362428894, -738971785, -1980672631, -1616272783 1565s [00:52:45.200] Number of chunks: 1 1565s [00:52:45.200] getGlobalsAndPackagesXApply() ... 1565s [00:52:45.200] - future.globals: TRUE 1565s [00:52:45.200] getGlobalsAndPackages() ... 1565s [00:52:45.200] Searching for globals... 1565s [00:52:45.202] - globals found: [3] ‘FUN’, ‘.Call’, ‘C_runif’ 1565s [00:52:45.203] Searching for globals ... DONE 1565s [00:52:45.203] Resolving globals: FALSE 1565s [00:52:45.204] The total size of the 1 globals is 2.04 KiB (2088 bytes) 1565s [00:52:45.204] The total size of the 1 globals exported for future expression (‘FUN(min = 1)’) is 2.04 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (2.04 KiB of class ‘function’) 1565s [00:52:45.205] - globals: [1] ‘FUN’ 1565s [00:52:45.205] - packages: [1] ‘stats’ 1565s [00:52:45.205] getGlobalsAndPackages() ... DONE 1565s [00:52:45.205] - globals found/used: [n=1] ‘FUN’ 1565s [00:52:45.206] - needed namespaces: [n=1] ‘stats’ 1565s [00:52:45.206] Finding globals ... DONE 1565s [00:52:45.206] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1565s [00:52:45.206] List of 2 1565s [00:52:45.206] $ ...future.FUN:function (n, min = 0, max = 1) 1565s [00:52:45.206] $ MoreArgs :List of 1 1565s [00:52:45.206] ..$ min: num 1 1565s [00:52:45.206] - attr(*, "where")=List of 2 1565s [00:52:45.206] ..$ ...future.FUN: 1565s [00:52:45.206] ..$ MoreArgs : 1565s [00:52:45.206] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1565s [00:52:45.206] - attr(*, "resolved")= logi FALSE 1565s [00:52:45.206] - attr(*, "total_size")= num NA 1565s [00:52:45.211] Packages to be attached in all futures: [n=1] ‘stats’ 1565s [00:52:45.211] getGlobalsAndPackagesXApply() ... DONE 1565s [00:52:45.212] Number of futures (= number of chunks): 1 1565s [00:52:45.212] Launching 1 futures (chunks) ... 1565s [00:52:45.212] Chunk #1 of 1 ... 1565s [00:52:45.212] - Finding globals in '...' for chunk #1 ... 1565s [00:52:45.213] getGlobalsAndPackages() ... 1565s [00:52:45.213] Searching for globals... 1565s [00:52:45.213] 1565s [00:52:45.213] Searching for globals ... DONE 1565s [00:52:45.214] - globals: [0] 1565s [00:52:45.214] getGlobalsAndPackages() ... DONE 1565s [00:52:45.214] + additional globals found: [n=0] 1565s [00:52:45.215] + additional namespaces needed: [n=0] 1565s [00:52:45.215] - Finding globals in '...' for chunk #1 ... DONE 1565s [00:52:45.215] - seeds: [4] 1565s [00:52:45.215] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1565s [00:52:45.215] getGlobalsAndPackages() ... 1565s [00:52:45.216] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1565s [00:52:45.216] Resolving globals: FALSE 1565s [00:52:45.217] The total size of the 5 globals is 2.84 KiB (2912 bytes) 1565s [00:52:45.217] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 2.84 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (2.04 KiB of class ‘function’), ‘...future.elements_ii’ (448 bytes of class ‘list’) and ‘...future.seeds_ii’ (320 bytes of class ‘list’) 1565s [00:52:45.217] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1565s [00:52:45.217] - packages: [1] ‘stats’ 1565s [00:52:45.218] getGlobalsAndPackages() ... DONE 1565s [00:52:45.219] run() for ‘Future’ ... 1565s [00:52:45.219] - state: ‘created’ 1565s [00:52:45.219] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1565s [00:52:45.223] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1565s [00:52:45.224] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1565s [00:52:45.224] - Field: ‘label’ 1565s [00:52:45.224] - Field: ‘local’ 1565s [00:52:45.224] - Field: ‘owner’ 1565s [00:52:45.225] - Field: ‘envir’ 1565s [00:52:45.225] - Field: ‘packages’ 1565s [00:52:45.225] - Field: ‘gc’ 1565s [00:52:45.225] - Field: ‘conditions’ 1565s [00:52:45.226] - Field: ‘expr’ 1565s [00:52:45.226] - Field: ‘uuid’ 1565s [00:52:45.226] - Field: ‘seed’ 1565s [00:52:45.226] - Field: ‘version’ 1565s [00:52:45.226] - Field: ‘result’ 1565s [00:52:45.226] - Field: ‘asynchronous’ 1565s [00:52:45.227] - Field: ‘calls’ 1565s [00:52:45.227] - Field: ‘globals’ 1565s [00:52:45.227] - Field: ‘stdout’ 1565s [00:52:45.227] - Field: ‘earlySignal’ 1565s [00:52:45.227] - Field: ‘lazy’ 1565s [00:52:45.228] - Field: ‘state’ 1565s [00:52:45.228] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1565s [00:52:45.228] - Launch lazy future ... 1565s [00:52:45.229] Packages needed by the future expression (n = 1): ‘stats’ 1565s [00:52:45.229] Packages needed by future strategies (n = 0): 1565s [00:52:45.230] { 1565s [00:52:45.230] { 1565s [00:52:45.230] { 1565s [00:52:45.230] ...future.startTime <- base::Sys.time() 1565s [00:52:45.230] { 1565s [00:52:45.230] { 1565s [00:52:45.230] { 1565s [00:52:45.230] { 1565s [00:52:45.230] base::local({ 1565s [00:52:45.230] has_future <- base::requireNamespace("future", 1565s [00:52:45.230] quietly = TRUE) 1565s [00:52:45.230] if (has_future) { 1565s [00:52:45.230] ns <- base::getNamespace("future") 1565s [00:52:45.230] version <- ns[[".package"]][["version"]] 1565s [00:52:45.230] if (is.null(version)) 1565s [00:52:45.230] version <- utils::packageVersion("future") 1565s [00:52:45.230] } 1565s [00:52:45.230] else { 1565s [00:52:45.230] version <- NULL 1565s [00:52:45.230] } 1565s [00:52:45.230] if (!has_future || version < "1.8.0") { 1565s [00:52:45.230] info <- base::c(r_version = base::gsub("R version ", 1565s [00:52:45.230] "", base::R.version$version.string), 1565s [00:52:45.230] platform = base::sprintf("%s (%s-bit)", 1565s [00:52:45.230] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1565s [00:52:45.230] os = base::paste(base::Sys.info()[base::c("sysname", 1565s [00:52:45.230] "release", "version")], collapse = " "), 1565s [00:52:45.230] hostname = base::Sys.info()[["nodename"]]) 1565s [00:52:45.230] info <- base::sprintf("%s: %s", base::names(info), 1565s [00:52:45.230] info) 1565s [00:52:45.230] info <- base::paste(info, collapse = "; ") 1565s [00:52:45.230] if (!has_future) { 1565s [00:52:45.230] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1565s [00:52:45.230] info) 1565s [00:52:45.230] } 1565s [00:52:45.230] else { 1565s [00:52:45.230] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1565s [00:52:45.230] info, version) 1565s [00:52:45.230] } 1565s [00:52:45.230] base::stop(msg) 1565s [00:52:45.230] } 1565s [00:52:45.230] }) 1565s [00:52:45.230] } 1565s [00:52:45.230] base::local({ 1565s [00:52:45.230] for (pkg in "stats") { 1565s [00:52:45.230] base::loadNamespace(pkg) 1565s [00:52:45.230] base::library(pkg, character.only = TRUE) 1565s [00:52:45.230] } 1565s [00:52:45.230] }) 1565s [00:52:45.230] } 1565s [00:52:45.230] options(future.plan = NULL) 1565s [00:52:45.230] Sys.unsetenv("R_FUTURE_PLAN") 1565s [00:52:45.230] future::plan("default", .cleanup = FALSE, .init = FALSE) 1565s [00:52:45.230] } 1565s [00:52:45.230] ...future.workdir <- getwd() 1565s [00:52:45.230] } 1565s [00:52:45.230] ...future.oldOptions <- base::as.list(base::.Options) 1565s [00:52:45.230] ...future.oldEnvVars <- base::Sys.getenv() 1565s [00:52:45.230] } 1565s [00:52:45.230] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1565s [00:52:45.230] future.globals.maxSize = NULL, future.globals.method = NULL, 1565s [00:52:45.230] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1565s [00:52:45.230] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1565s [00:52:45.230] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1565s [00:52:45.230] future.stdout.windows.reencode = NULL, width = 80L) 1565s [00:52:45.230] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1565s [00:52:45.230] base::names(...future.oldOptions)) 1565s [00:52:45.230] } 1565s [00:52:45.230] if (FALSE) { 1565s [00:52:45.230] } 1565s [00:52:45.230] else { 1565s [00:52:45.230] if (TRUE) { 1565s [00:52:45.230] ...future.stdout <- base::rawConnection(base::raw(0L), 1565s [00:52:45.230] open = "w") 1565s [00:52:45.230] } 1565s [00:52:45.230] else { 1565s [00:52:45.230] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1565s [00:52:45.230] windows = "NUL", "/dev/null"), open = "w") 1565s [00:52:45.230] } 1565s [00:52:45.230] base::sink(...future.stdout, type = "output", split = FALSE) 1565s [00:52:45.230] base::on.exit(if (!base::is.null(...future.stdout)) { 1565s [00:52:45.230] base::sink(type = "output", split = FALSE) 1565s [00:52:45.230] base::close(...future.stdout) 1565s [00:52:45.230] }, add = TRUE) 1565s [00:52:45.230] } 1565s [00:52:45.230] ...future.frame <- base::sys.nframe() 1565s [00:52:45.230] ...future.conditions <- base::list() 1565s [00:52:45.230] ...future.rng <- base::globalenv()$.Random.seed 1565s [00:52:45.230] if (FALSE) { 1565s [00:52:45.230] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1565s [00:52:45.230] "...future.value", "...future.globalenv.names", ".Random.seed") 1565s [00:52:45.230] } 1565s [00:52:45.230] ...future.result <- base::tryCatch({ 1565s [00:52:45.230] base::withCallingHandlers({ 1565s [00:52:45.230] ...future.value <- base::withVisible(base::local({ 1565s [00:52:45.230] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1565s [00:52:45.230] if (!identical(...future.globals.maxSize.org, 1565s [00:52:45.230] ...future.globals.maxSize)) { 1565s [00:52:45.230] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1565s [00:52:45.230] on.exit(options(oopts), add = TRUE) 1565s [00:52:45.230] } 1565s [00:52:45.230] { 1565s [00:52:45.230] ...future.FUN2 <- function(..., ...future.seeds_ii_jj) { 1565s [00:52:45.230] assign(".Random.seed", ...future.seeds_ii_jj, 1565s [00:52:45.230] envir = globalenv(), inherits = FALSE) 1565s [00:52:45.230] ...future.FUN(...) 1565s [00:52:45.230] } 1565s [00:52:45.230] args <- c(list(FUN = ...future.FUN2), ...future.elements_ii, 1565s [00:52:45.230] list(...future.seeds_ii_jj = ...future.seeds_ii), 1565s [00:52:45.230] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1565s [00:52:45.230] USE.NAMES = FALSE) 1565s [00:52:45.230] do.call(mapply, args = args) 1565s [00:52:45.230] } 1565s [00:52:45.230] })) 1565s [00:52:45.230] future::FutureResult(value = ...future.value$value, 1565s [00:52:45.230] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1565s [00:52:45.230] ...future.rng), globalenv = if (FALSE) 1565s [00:52:45.230] list(added = base::setdiff(base::names(base::.GlobalEnv), 1565s [00:52:45.230] ...future.globalenv.names)) 1565s [00:52:45.230] else NULL, started = ...future.startTime, version = "1.8") 1565s [00:52:45.230] }, condition = base::local({ 1565s [00:52:45.230] c <- base::c 1565s [00:52:45.230] inherits <- base::inherits 1565s [00:52:45.230] invokeRestart <- base::invokeRestart 1565s [00:52:45.230] length <- base::length 1565s [00:52:45.230] list <- base::list 1565s [00:52:45.230] seq.int <- base::seq.int 1565s [00:52:45.230] signalCondition <- base::signalCondition 1565s [00:52:45.230] sys.calls <- base::sys.calls 1565s [00:52:45.230] `[[` <- base::`[[` 1565s [00:52:45.230] `+` <- base::`+` 1565s [00:52:45.230] `<<-` <- base::`<<-` 1565s [00:52:45.230] sysCalls <- function(calls = sys.calls(), from = 1L) { 1565s [00:52:45.230] calls[seq.int(from = from + 12L, to = length(calls) - 1565s [00:52:45.230] 3L)] 1565s [00:52:45.230] } 1565s [00:52:45.230] function(cond) { 1565s [00:52:45.230] is_error <- inherits(cond, "error") 1565s [00:52:45.230] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1565s [00:52:45.230] NULL) 1565s [00:52:45.230] if (is_error) { 1565s [00:52:45.230] sessionInformation <- function() { 1565s [00:52:45.230] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1565s [00:52:45.230] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1565s [00:52:45.230] search = base::search(), system = base::Sys.info()) 1565s [00:52:45.230] } 1565s [00:52:45.230] ...future.conditions[[length(...future.conditions) + 1565s [00:52:45.230] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1565s [00:52:45.230] cond$call), session = sessionInformation(), 1565s [00:52:45.230] timestamp = base::Sys.time(), signaled = 0L) 1565s [00:52:45.230] signalCondition(cond) 1565s [00:52:45.230] } 1565s [00:52:45.230] else if (!ignore && TRUE && inherits(cond, c("condition", 1565s [00:52:45.230] "immediateCondition"))) { 1565s [00:52:45.230] signal <- TRUE && inherits(cond, "immediateCondition") 1565s [00:52:45.230] ...future.conditions[[length(...future.conditions) + 1565s [00:52:45.230] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1565s [00:52:45.230] if (TRUE && !signal) { 1565s [00:52:45.230] muffleCondition <- function (cond, pattern = "^muffle") 1565s [00:52:45.230] { 1565s [00:52:45.230] inherits <- base::inherits 1565s [00:52:45.230] invokeRestart <- base::invokeRestart 1565s [00:52:45.230] is.null <- base::is.null 1565s [00:52:45.230] muffled <- FALSE 1565s [00:52:45.230] if (inherits(cond, "message")) { 1565s [00:52:45.230] muffled <- grepl(pattern, "muffleMessage") 1565s [00:52:45.230] if (muffled) 1565s [00:52:45.230] invokeRestart("muffleMessage") 1565s [00:52:45.230] } 1565s [00:52:45.230] else if (inherits(cond, "warning")) { 1565s [00:52:45.230] muffled <- grepl(pattern, "muffleWarning") 1565s [00:52:45.230] if (muffled) 1565s [00:52:45.230] invokeRestart("muffleWarning") 1565s [00:52:45.230] } 1565s [00:52:45.230] else if (inherits(cond, "condition")) { 1565s [00:52:45.230] if (!is.null(pattern)) { 1565s [00:52:45.230] computeRestarts <- base::computeRestarts 1565s [00:52:45.230] grepl <- base::grepl 1565s [00:52:45.230] restarts <- computeRestarts(cond) 1565s [00:52:45.230] for (restart in restarts) { 1565s [00:52:45.230] name <- restart$name 1565s [00:52:45.230] if (is.null(name)) 1565s [00:52:45.230] next 1565s [00:52:45.230] if (!grepl(pattern, name)) 1565s [00:52:45.230] next 1565s [00:52:45.230] invokeRestart(restart) 1565s [00:52:45.230] muffled <- TRUE 1565s [00:52:45.230] break 1565s [00:52:45.230] } 1565s [00:52:45.230] } 1565s [00:52:45.230] } 1565s [00:52:45.230] invisible(muffled) 1565s [00:52:45.230] } 1565s [00:52:45.230] muffleCondition(cond, pattern = "^muffle") 1565s [00:52:45.230] } 1565s [00:52:45.230] } 1565s [00:52:45.230] else { 1565s [00:52:45.230] if (TRUE) { 1565s [00:52:45.230] muffleCondition <- function (cond, pattern = "^muffle") 1565s [00:52:45.230] { 1565s [00:52:45.230] inherits <- base::inherits 1565s [00:52:45.230] invokeRestart <- base::invokeRestart 1565s [00:52:45.230] is.null <- base::is.null 1565s [00:52:45.230] muffled <- FALSE 1565s [00:52:45.230] if (inherits(cond, "message")) { 1565s [00:52:45.230] muffled <- grepl(pattern, "muffleMessage") 1565s [00:52:45.230] if (muffled) 1565s [00:52:45.230] invokeRestart("muffleMessage") 1565s [00:52:45.230] } 1565s [00:52:45.230] else if (inherits(cond, "warning")) { 1565s [00:52:45.230] muffled <- grepl(pattern, "muffleWarning") 1565s [00:52:45.230] if (muffled) 1565s [00:52:45.230] invokeRestart("muffleWarning") 1565s [00:52:45.230] } 1565s [00:52:45.230] else if (inherits(cond, "condition")) { 1565s [00:52:45.230] if (!is.null(pattern)) { 1565s [00:52:45.230] computeRestarts <- base::computeRestarts 1565s [00:52:45.230] grepl <- base::grepl 1565s [00:52:45.230] restarts <- computeRestarts(cond) 1565s [00:52:45.230] for (restart in restarts) { 1565s [00:52:45.230] name <- restart$name 1565s [00:52:45.230] if (is.null(name)) 1565s [00:52:45.230] next 1565s [00:52:45.230] if (!grepl(pattern, name)) 1565s [00:52:45.230] next 1565s [00:52:45.230] invokeRestart(restart) 1565s [00:52:45.230] muffled <- TRUE 1565s [00:52:45.230] break 1565s [00:52:45.230] } 1565s [00:52:45.230] } 1565s [00:52:45.230] } 1565s [00:52:45.230] invisible(muffled) 1565s [00:52:45.230] } 1565s [00:52:45.230] muffleCondition(cond, pattern = "^muffle") 1565s [00:52:45.230] } 1565s [00:52:45.230] } 1565s [00:52:45.230] } 1565s [00:52:45.230] })) 1565s [00:52:45.230] }, error = function(ex) { 1565s [00:52:45.230] base::structure(base::list(value = NULL, visible = NULL, 1565s [00:52:45.230] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1565s [00:52:45.230] ...future.rng), started = ...future.startTime, 1565s [00:52:45.230] finished = Sys.time(), session_uuid = NA_character_, 1565s [00:52:45.230] version = "1.8"), class = "FutureResult") 1565s [00:52:45.230] }, finally = { 1565s [00:52:45.230] if (!identical(...future.workdir, getwd())) 1565s [00:52:45.230] setwd(...future.workdir) 1565s [00:52:45.230] { 1565s [00:52:45.230] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1565s [00:52:45.230] ...future.oldOptions$nwarnings <- NULL 1565s [00:52:45.230] } 1565s [00:52:45.230] base::options(...future.oldOptions) 1565s [00:52:45.230] if (.Platform$OS.type == "windows") { 1565s [00:52:45.230] old_names <- names(...future.oldEnvVars) 1565s [00:52:45.230] envs <- base::Sys.getenv() 1565s [00:52:45.230] names <- names(envs) 1565s [00:52:45.230] common <- intersect(names, old_names) 1565s [00:52:45.230] added <- setdiff(names, old_names) 1565s [00:52:45.230] removed <- setdiff(old_names, names) 1565s [00:52:45.230] changed <- common[...future.oldEnvVars[common] != 1565s [00:52:45.230] envs[common]] 1565s [00:52:45.230] NAMES <- toupper(changed) 1565s [00:52:45.230] args <- list() 1565s [00:52:45.230] for (kk in seq_along(NAMES)) { 1565s [00:52:45.230] name <- changed[[kk]] 1565s [00:52:45.230] NAME <- NAMES[[kk]] 1565s [00:52:45.230] if (name != NAME && is.element(NAME, old_names)) 1565s [00:52:45.230] next 1565s [00:52:45.230] args[[name]] <- ...future.oldEnvVars[[name]] 1565s [00:52:45.230] } 1565s [00:52:45.230] NAMES <- toupper(added) 1565s [00:52:45.230] for (kk in seq_along(NAMES)) { 1565s [00:52:45.230] name <- added[[kk]] 1565s [00:52:45.230] NAME <- NAMES[[kk]] 1565s [00:52:45.230] if (name != NAME && is.element(NAME, old_names)) 1565s [00:52:45.230] next 1565s [00:52:45.230] args[[name]] <- "" 1565s [00:52:45.230] } 1565s [00:52:45.230] NAMES <- toupper(removed) 1565s [00:52:45.230] for (kk in seq_along(NAMES)) { 1565s [00:52:45.230] name <- removed[[kk]] 1565s [00:52:45.230] NAME <- NAMES[[kk]] 1565s [00:52:45.230] if (name != NAME && is.element(NAME, old_names)) 1565s [00:52:45.230] next 1565s [00:52:45.230] args[[name]] <- ...future.oldEnvVars[[name]] 1565s [00:52:45.230] } 1565s [00:52:45.230] if (length(args) > 0) 1565s [00:52:45.230] base::do.call(base::Sys.setenv, args = args) 1565s [00:52:45.230] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1565s [00:52:45.230] } 1565s [00:52:45.230] else { 1565s [00:52:45.230] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1565s [00:52:45.230] } 1565s [00:52:45.230] { 1565s [00:52:45.230] if (base::length(...future.futureOptionsAdded) > 1565s [00:52:45.230] 0L) { 1565s [00:52:45.230] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1565s [00:52:45.230] base::names(opts) <- ...future.futureOptionsAdded 1565s [00:52:45.230] base::options(opts) 1565s [00:52:45.230] } 1565s [00:52:45.230] { 1565s [00:52:45.230] { 1565s [00:52:45.230] base::assign(".Random.seed", c(10407L, 1573160841L, 1565s [00:52:45.230] -1551525594L, 1362428894L, -738971785L, -1980672631L, 1565s [00:52:45.230] -1616272783L), envir = base::globalenv(), 1565s [00:52:45.230] inherits = FALSE) 1565s [00:52:45.230] NULL 1565s [00:52:45.230] } 1565s [00:52:45.230] options(future.plan = NULL) 1565s [00:52:45.230] if (is.na(NA_character_)) 1565s [00:52:45.230] Sys.unsetenv("R_FUTURE_PLAN") 1565s [00:52:45.230] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1565s [00:52:45.230] future::plan(list(function (..., workers = availableCores(), 1565s [00:52:45.230] lazy = FALSE, rscript_libs = .libPaths(), 1565s [00:52:45.230] envir = parent.frame()) 1565s [00:52:45.230] { 1565s [00:52:45.230] if (is.function(workers)) 1565s [00:52:45.230] workers <- workers() 1565s [00:52:45.230] workers <- structure(as.integer(workers), 1565s [00:52:45.230] class = class(workers)) 1565s [00:52:45.230] stop_if_not(length(workers) == 1, is.finite(workers), 1565s [00:52:45.230] workers >= 1) 1565s [00:52:45.230] if (workers == 1L && !inherits(workers, "AsIs")) { 1565s [00:52:45.230] return(sequential(..., lazy = TRUE, envir = envir)) 1565s [00:52:45.230] } 1565s [00:52:45.230] future <- MultisessionFuture(..., workers = workers, 1565s [00:52:45.230] lazy = lazy, rscript_libs = rscript_libs, 1565s [00:52:45.230] envir = envir) 1565s [00:52:45.230] if (!future$lazy) 1565s [00:52:45.230] future <- run(future) 1565s [00:52:45.230] invisible(future) 1565s [00:52:45.230] }), .cleanup = FALSE, .init = FALSE) 1565s [00:52:45.230] } 1565s [00:52:45.230] } 1565s [00:52:45.230] } 1565s [00:52:45.230] }) 1565s [00:52:45.230] if (TRUE) { 1565s [00:52:45.230] base::sink(type = "output", split = FALSE) 1565s [00:52:45.230] if (TRUE) { 1565s [00:52:45.230] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1565s [00:52:45.230] } 1565s [00:52:45.230] else { 1565s [00:52:45.230] ...future.result["stdout"] <- base::list(NULL) 1565s [00:52:45.230] } 1565s [00:52:45.230] base::close(...future.stdout) 1565s [00:52:45.230] ...future.stdout <- NULL 1565s [00:52:45.230] } 1565s [00:52:45.230] ...future.result$conditions <- ...future.conditions 1565s [00:52:45.230] ...future.result$finished <- base::Sys.time() 1565s [00:52:45.230] ...future.result 1565s [00:52:45.230] } 1565s [00:52:45.236] assign_globals() ... 1565s [00:52:45.236] List of 5 1565s [00:52:45.236] $ ...future.FUN :function (n, min = 0, max = 1) 1565s [00:52:45.236] $ MoreArgs :List of 1 1565s [00:52:45.236] ..$ min: num 1 1565s [00:52:45.236] $ ...future.elements_ii :List of 2 1565s [00:52:45.236] ..$ n :List of 4 1565s [00:52:45.236] .. ..$ : int 1 1565s [00:52:45.236] .. ..$ : int 2 1565s [00:52:45.236] .. ..$ : int 3 1565s [00:52:45.236] .. ..$ : int 4 1565s [00:52:45.236] ..$ max:List of 4 1565s [00:52:45.236] .. ..$ : int 2 1565s [00:52:45.236] .. ..$ : int 3 1565s [00:52:45.236] .. ..$ : int 4 1565s [00:52:45.236] .. ..$ : int 5 1565s [00:52:45.236] $ ...future.seeds_ii :List of 4 1565s [00:52:45.236] ..$ : int [1:7] 10407 1242173061 -1150840343 -834448425 701050094 -1369558043 -650964284 1565s [00:52:45.236] ..$ : int [1:7] 10407 859061261 1088872332 -1371790091 -942478768 -889560561 1393381402 1565s [00:52:45.236] ..$ : int [1:7] 10407 -1977952646 362645338 -1927542548 -742448269 -2030870718 1472975712 1565s [00:52:45.236] ..$ : int [1:7] 10407 -781199300 -1470244364 -1435938985 -1154922760 795337516 2089908040 1565s [00:52:45.236] $ ...future.globals.maxSize: NULL 1565s [00:52:45.236] - attr(*, "where")=List of 5 1565s [00:52:45.236] ..$ ...future.FUN : 1565s [00:52:45.236] ..$ MoreArgs : 1565s [00:52:45.236] ..$ ...future.elements_ii : 1565s [00:52:45.236] ..$ ...future.seeds_ii : 1565s [00:52:45.236] ..$ ...future.globals.maxSize: 1565s [00:52:45.236] - attr(*, "resolved")= logi FALSE 1565s [00:52:45.236] - attr(*, "total_size")= num 2912 1565s [00:52:45.236] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1565s [00:52:45.236] - attr(*, "already-done")= logi TRUE 1565s [00:52:45.252] - copied ‘...future.FUN’ to environment 1565s [00:52:45.252] - copied ‘MoreArgs’ to environment 1565s [00:52:45.252] - copied ‘...future.elements_ii’ to environment 1565s [00:52:45.252] - copied ‘...future.seeds_ii’ to environment 1565s [00:52:45.253] - copied ‘...future.globals.maxSize’ to environment 1565s [00:52:45.253] assign_globals() ... done 1565s [00:52:45.253] plan(): Setting new future strategy stack: 1565s [00:52:45.254] List of future strategies: 1565s [00:52:45.254] 1. sequential: 1565s [00:52:45.254] - args: function (..., envir = parent.frame()) 1565s [00:52:45.254] - tweaked: FALSE 1565s [00:52:45.254] - call: NULL 1565s [00:52:45.254] plan(): nbrOfWorkers() = 1 1565s [00:52:45.256] plan(): Setting new future strategy stack: 1565s [00:52:45.256] List of future strategies: 1565s [00:52:45.256] 1. multisession: 1565s [00:52:45.256] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1565s [00:52:45.256] - tweaked: FALSE 1565s [00:52:45.256] - call: plan(strategy) 1565s [00:52:45.262] plan(): nbrOfWorkers() = 1 1565s [00:52:45.262] SequentialFuture started (and completed) 1565s [00:52:45.262] - Launch lazy future ... done 1565s [00:52:45.262] run() for ‘SequentialFuture’ ... done 1565s [00:52:45.263] Created future: 1565s [00:52:45.263] SequentialFuture: 1565s [00:52:45.263] Label: ‘future_mapply-1’ 1565s [00:52:45.263] Expression: 1565s [00:52:45.263] { 1565s [00:52:45.263] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1565s [00:52:45.263] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1565s [00:52:45.263] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1565s [00:52:45.263] on.exit(options(oopts), add = TRUE) 1565s [00:52:45.263] } 1565s [00:52:45.263] { 1565s [00:52:45.263] ...future.FUN2 <- function(..., ...future.seeds_ii_jj) { 1565s [00:52:45.263] assign(".Random.seed", ...future.seeds_ii_jj, envir = globalenv(), 1565s [00:52:45.263] inherits = FALSE) 1565s [00:52:45.263] ...future.FUN(...) 1565s [00:52:45.263] } 1565s [00:52:45.263] args <- c(list(FUN = ...future.FUN2), ...future.elements_ii, 1565s [00:52:45.263] list(...future.seeds_ii_jj = ...future.seeds_ii), 1565s [00:52:45.263] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1565s [00:52:45.263] do.call(mapply, args = args) 1565s [00:52:45.263] } 1565s [00:52:45.263] } 1565s [00:52:45.263] Lazy evaluation: FALSE 1565s [00:52:45.263] Asynchronous evaluation: FALSE 1565s [00:52:45.263] Local evaluation: TRUE 1565s [00:52:45.263] Environment: R_GlobalEnv 1565s [00:52:45.263] Capture standard output: TRUE 1565s [00:52:45.263] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1565s [00:52:45.263] Globals: 5 objects totaling 2.84 KiB (function ‘...future.FUN’ of 2.04 KiB, list ‘MoreArgs’ of 56 bytes, list ‘...future.elements_ii’ of 448 bytes, list ‘...future.seeds_ii’ of 320 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1565s [00:52:45.263] Packages: 1 packages (‘stats’) 1565s [00:52:45.263] L'Ecuyer-CMRG RNG seed: (seed = NULL) 1565s [00:52:45.263] Resolved: TRUE 1565s [00:52:45.263] Value: 280 bytes of class ‘list’ 1565s [00:52:45.263] Early signaling: FALSE 1565s [00:52:45.263] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1565s [00:52:45.263] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1565s [00:52:45.265] Chunk #1 of 1 ... DONE 1565s [00:52:45.265] Launching 1 futures (chunks) ... DONE 1565s [00:52:45.265] Resolving 1 futures (chunks) ... 1565s [00:52:45.265] resolve() on list ... 1565s [00:52:45.265] recursive: 0 1565s [00:52:45.265] length: 1 1565s [00:52:45.266] 1565s [00:52:45.266] resolved() for ‘SequentialFuture’ ... 1565s [00:52:45.266] - state: ‘finished’ 1565s [00:52:45.266] - run: TRUE 1565s [00:52:45.266] - result: ‘FutureResult’ 1565s [00:52:45.267] resolved() for ‘SequentialFuture’ ... done 1565s [00:52:45.267] Future #1 1565s [00:52:45.267] signalConditionsASAP(SequentialFuture, pos=1) ... 1565s [00:52:45.267] - nx: 1 1565s [00:52:45.267] - relay: TRUE 1565s [00:52:45.267] - stdout: TRUE 1565s [00:52:45.267] - signal: TRUE 1565s [00:52:45.268] - resignal: FALSE 1565s [00:52:45.268] - force: TRUE 1565s [00:52:45.268] - relayed: [n=1] FALSE 1565s [00:52:45.268] - queued futures: [n=1] FALSE 1565s [00:52:45.268] - until=1 1565s [00:52:45.268] - relaying element #1 1565s [00:52:45.269] - relayed: [n=1] TRUE 1565s [00:52:45.269] - queued futures: [n=1] TRUE 1565s [00:52:45.269] signalConditionsASAP(SequentialFuture, pos=1) ... done 1565s [00:52:45.269] length: 0 (resolved future 1) 1565s [00:52:45.269] Relaying remaining futures 1565s [00:52:45.269] signalConditionsASAP(NULL, pos=0) ... 1565s [00:52:45.269] - nx: 1 1565s [00:52:45.269] - relay: TRUE 1565s [00:52:45.270] - stdout: TRUE 1565s [00:52:45.270] - signal: TRUE 1565s [00:52:45.270] - resignal: FALSE 1565s [00:52:45.270] - force: TRUE 1565s [00:52:45.270] - relayed: [n=1] TRUE 1565s [00:52:45.270] - queued futures: [n=1] TRUE 1565s - flush all 1565s [00:52:45.271] - relayed: [n=1] TRUE 1565s [00:52:45.271] - queued futures: [n=1] TRUE 1565s [00:52:45.271] signalConditionsASAP(NULL, pos=0) ... done 1565s [00:52:45.271] resolve() on list ... DONE 1565s [00:52:45.272] - Number of value chunks collected: 1 1565s [00:52:45.272] Resolving 1 futures (chunks) ... DONE 1565s [00:52:45.272] Reducing values from 1 chunks ... 1565s [00:52:45.272] - Number of values collected after concatenation: 4 1565s [00:52:45.273] - Number of values expected: 4 1565s [00:52:45.273] Reducing values from 1 chunks ... DONE 1565s [00:52:45.273] future_mapply() ... DONE 1565s [[1]] 1565s [1] 1.752502 1565s 1565s [[2]] 1565s [1] 2.765950 2.044156 1565s 1565s [[3]] 1565s [1] 1.419503 3.529684 1.023802 1565s 1565s [[4]] 1565s [1] 4.494280 3.546145 1.402837 4.295444 1565s - future_Map() ... 1565s 1565s [00:52:45.275] future_mapply() ... 1565s [00:52:45.280] Number of chunks: 1 1565s [00:52:45.280] getGlobalsAndPackagesXApply() ... 1565s [00:52:45.280] - future.globals: TRUE 1565s [00:52:45.281] getGlobalsAndPackages() ... 1565s [00:52:45.281] Searching for globals... 1565s [00:52:45.282] - globals found: [2] ‘FUN’, ‘UseMethod’ 1565s [00:52:45.282] Searching for globals ... DONE 1565s [00:52:45.283] Resolving globals: FALSE 1565s [00:52:45.283] The total size of the 1 globals is 1.38 KiB (1416 bytes) 1565s [00:52:45.285] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.38 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.38 KiB of class ‘function’) 1565s [00:52:45.285] - globals: [1] ‘FUN’ 1565s [00:52:45.286] - packages: [1] ‘stats’ 1565s [00:52:45.286] getGlobalsAndPackages() ... DONE 1565s [00:52:45.286] - globals found/used: [n=1] ‘FUN’ 1565s [00:52:45.286] - needed namespaces: [n=1] ‘stats’ 1565s [00:52:45.287] Finding globals ... DONE 1565s [00:52:45.287] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1565s [00:52:45.287] List of 2 1565s [00:52:45.287] $ ...future.FUN:function (x, w, ...) 1565s [00:52:45.287] $ MoreArgs : NULL 1565s [00:52:45.287] - attr(*, "where")=List of 2 1565s [00:52:45.287] ..$ ...future.FUN: 1565s [00:52:45.287] ..$ MoreArgs : 1565s [00:52:45.287] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1565s [00:52:45.287] - attr(*, "resolved")= logi FALSE 1565s [00:52:45.287] - attr(*, "total_size")= num NA 1565s [00:52:45.291] Packages to be attached in all futures: [n=1] ‘stats’ 1565s [00:52:45.291] getGlobalsAndPackagesXApply() ... DONE 1565s [00:52:45.291] Number of futures (= number of chunks): 1 1565s [00:52:45.292] Launching 1 futures (chunks) ... 1565s [00:52:45.292] Chunk #1 of 1 ... 1565s [00:52:45.292] - Finding globals in '...' for chunk #1 ... 1565s [00:52:45.292] getGlobalsAndPackages() ... 1565s [00:52:45.292] Searching for globals... 1565s [00:52:45.293] 1565s [00:52:45.293] Searching for globals ... DONE 1565s [00:52:45.293] - globals: [0] 1565s [00:52:45.293] getGlobalsAndPackages() ... DONE 1565s [00:52:45.294] + additional globals found: [n=0] 1565s [00:52:45.294] + additional namespaces needed: [n=0] 1565s [00:52:45.294] - Finding globals in '...' for chunk #1 ... DONE 1565s [00:52:45.294] - seeds: 1565s [00:52:45.294] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1565s [00:52:45.295] getGlobalsAndPackages() ... 1565s [00:52:45.295] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1565s [00:52:45.295] Resolving globals: FALSE 1565s [00:52:45.296] The total size of the 5 globals is 3.10 KiB (3176 bytes) 1565s [00:52:45.296] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 3.10 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.elements_ii’ (1.72 KiB of class ‘list’), ‘...future.FUN’ (1.38 KiB of class ‘function’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1565s [00:52:45.297] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1565s [00:52:45.297] - packages: [1] ‘stats’ 1565s [00:52:45.297] getGlobalsAndPackages() ... DONE 1565s [00:52:45.298] run() for ‘Future’ ... 1565s [00:52:45.298] - state: ‘created’ 1565s [00:52:45.298] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1565s [00:52:45.307] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1565s [00:52:45.307] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1565s [00:52:45.308] - Field: ‘label’ 1565s [00:52:45.308] - Field: ‘local’ 1565s [00:52:45.308] - Field: ‘owner’ 1565s [00:52:45.308] - Field: ‘envir’ 1565s [00:52:45.309] - Field: ‘packages’ 1565s [00:52:45.310] - Field: ‘gc’ 1565s [00:52:45.310] - Field: ‘conditions’ 1565s [00:52:45.310] - Field: ‘expr’ 1565s [00:52:45.312] - Field: ‘uuid’ 1565s [00:52:45.312] - Field: ‘seed’ 1565s [00:52:45.312] - Field: ‘version’ 1565s [00:52:45.312] - Field: ‘result’ 1565s [00:52:45.314] - Field: ‘asynchronous’ 1565s [00:52:45.315] - Field: ‘calls’ 1565s [00:52:45.315] - Field: ‘globals’ 1565s [00:52:45.315] - Field: ‘stdout’ 1565s [00:52:45.315] - Field: ‘earlySignal’ 1565s [00:52:45.316] - Field: ‘lazy’ 1565s [00:52:45.316] - Field: ‘state’ 1565s [00:52:45.316] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1565s [00:52:45.317] - Launch lazy future ... 1565s [00:52:45.317] Packages needed by the future expression (n = 1): ‘stats’ 1565s [00:52:45.318] Packages needed by future strategies (n = 0): 1565s [00:52:45.319] { 1565s [00:52:45.319] { 1565s [00:52:45.319] { 1565s [00:52:45.319] ...future.startTime <- base::Sys.time() 1565s [00:52:45.319] { 1565s [00:52:45.319] { 1565s [00:52:45.319] { 1565s [00:52:45.319] { 1565s [00:52:45.319] base::local({ 1565s [00:52:45.319] has_future <- base::requireNamespace("future", 1565s [00:52:45.319] quietly = TRUE) 1565s [00:52:45.319] if (has_future) { 1565s [00:52:45.319] ns <- base::getNamespace("future") 1565s [00:52:45.319] version <- ns[[".package"]][["version"]] 1565s [00:52:45.319] if (is.null(version)) 1565s [00:52:45.319] version <- utils::packageVersion("future") 1565s [00:52:45.319] } 1565s [00:52:45.319] else { 1565s [00:52:45.319] version <- NULL 1565s [00:52:45.319] } 1565s [00:52:45.319] if (!has_future || version < "1.8.0") { 1565s [00:52:45.319] info <- base::c(r_version = base::gsub("R version ", 1565s [00:52:45.319] "", base::R.version$version.string), 1565s [00:52:45.319] platform = base::sprintf("%s (%s-bit)", 1565s [00:52:45.319] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1565s [00:52:45.319] os = base::paste(base::Sys.info()[base::c("sysname", 1565s [00:52:45.319] "release", "version")], collapse = " "), 1565s [00:52:45.319] hostname = base::Sys.info()[["nodename"]]) 1565s [00:52:45.319] info <- base::sprintf("%s: %s", base::names(info), 1565s [00:52:45.319] info) 1565s [00:52:45.319] info <- base::paste(info, collapse = "; ") 1565s [00:52:45.319] if (!has_future) { 1565s [00:52:45.319] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1565s [00:52:45.319] info) 1565s [00:52:45.319] } 1565s [00:52:45.319] else { 1565s [00:52:45.319] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1565s [00:52:45.319] info, version) 1565s [00:52:45.319] } 1565s [00:52:45.319] base::stop(msg) 1565s [00:52:45.319] } 1565s [00:52:45.319] }) 1565s [00:52:45.319] } 1565s [00:52:45.319] base::local({ 1565s [00:52:45.319] for (pkg in "stats") { 1565s [00:52:45.319] base::loadNamespace(pkg) 1565s [00:52:45.319] base::library(pkg, character.only = TRUE) 1565s [00:52:45.319] } 1565s [00:52:45.319] }) 1565s [00:52:45.319] } 1565s [00:52:45.319] options(future.plan = NULL) 1565s [00:52:45.319] Sys.unsetenv("R_FUTURE_PLAN") 1565s [00:52:45.319] future::plan("default", .cleanup = FALSE, .init = FALSE) 1565s [00:52:45.319] } 1565s [00:52:45.319] ...future.workdir <- getwd() 1565s [00:52:45.319] } 1565s [00:52:45.319] ...future.oldOptions <- base::as.list(base::.Options) 1565s [00:52:45.319] ...future.oldEnvVars <- base::Sys.getenv() 1565s [00:52:45.319] } 1565s [00:52:45.319] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1565s [00:52:45.319] future.globals.maxSize = NULL, future.globals.method = NULL, 1565s [00:52:45.319] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1565s [00:52:45.319] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1565s [00:52:45.319] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1565s [00:52:45.319] future.stdout.windows.reencode = NULL, width = 80L) 1565s [00:52:45.319] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1565s [00:52:45.319] base::names(...future.oldOptions)) 1565s [00:52:45.319] } 1565s [00:52:45.319] if (FALSE) { 1565s [00:52:45.319] } 1565s [00:52:45.319] else { 1565s [00:52:45.319] if (TRUE) { 1565s [00:52:45.319] ...future.stdout <- base::rawConnection(base::raw(0L), 1565s [00:52:45.319] open = "w") 1565s [00:52:45.319] } 1565s [00:52:45.319] else { 1565s [00:52:45.319] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1565s [00:52:45.319] windows = "NUL", "/dev/null"), open = "w") 1565s [00:52:45.319] } 1565s [00:52:45.319] base::sink(...future.stdout, type = "output", split = FALSE) 1565s [00:52:45.319] base::on.exit(if (!base::is.null(...future.stdout)) { 1565s [00:52:45.319] base::sink(type = "output", split = FALSE) 1565s [00:52:45.319] base::close(...future.stdout) 1565s [00:52:45.319] }, add = TRUE) 1565s [00:52:45.319] } 1565s [00:52:45.319] ...future.frame <- base::sys.nframe() 1565s [00:52:45.319] ...future.conditions <- base::list() 1565s [00:52:45.319] ...future.rng <- base::globalenv()$.Random.seed 1565s [00:52:45.319] if (FALSE) { 1565s [00:52:45.319] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1565s [00:52:45.319] "...future.value", "...future.globalenv.names", ".Random.seed") 1565s [00:52:45.319] } 1565s [00:52:45.319] ...future.result <- base::tryCatch({ 1565s [00:52:45.319] base::withCallingHandlers({ 1565s [00:52:45.319] ...future.value <- base::withVisible(base::local({ 1565s [00:52:45.319] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1565s [00:52:45.319] if (!identical(...future.globals.maxSize.org, 1565s [00:52:45.319] ...future.globals.maxSize)) { 1565s [00:52:45.319] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1565s [00:52:45.319] on.exit(options(oopts), add = TRUE) 1565s [00:52:45.319] } 1565s [00:52:45.319] { 1565s [00:52:45.319] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1565s [00:52:45.319] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1565s [00:52:45.319] USE.NAMES = FALSE) 1565s [00:52:45.319] do.call(mapply, args = args) 1565s [00:52:45.319] } 1565s [00:52:45.319] })) 1565s [00:52:45.319] future::FutureResult(value = ...future.value$value, 1565s [00:52:45.319] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1565s [00:52:45.319] ...future.rng), globalenv = if (FALSE) 1565s [00:52:45.319] list(added = base::setdiff(base::names(base::.GlobalEnv), 1565s [00:52:45.319] ...future.globalenv.names)) 1565s [00:52:45.319] else NULL, started = ...future.startTime, version = "1.8") 1565s [00:52:45.319] }, condition = base::local({ 1565s [00:52:45.319] c <- base::c 1565s [00:52:45.319] inherits <- base::inherits 1565s [00:52:45.319] invokeRestart <- base::invokeRestart 1565s [00:52:45.319] length <- base::length 1565s [00:52:45.319] list <- base::list 1565s [00:52:45.319] seq.int <- base::seq.int 1565s [00:52:45.319] signalCondition <- base::signalCondition 1565s [00:52:45.319] sys.calls <- base::sys.calls 1565s [00:52:45.319] `[[` <- base::`[[` 1565s [00:52:45.319] `+` <- base::`+` 1565s [00:52:45.319] `<<-` <- base::`<<-` 1565s [00:52:45.319] sysCalls <- function(calls = sys.calls(), from = 1L) { 1565s [00:52:45.319] calls[seq.int(from = from + 12L, to = length(calls) - 1565s [00:52:45.319] 3L)] 1565s [00:52:45.319] } 1565s [00:52:45.319] function(cond) { 1565s [00:52:45.319] is_error <- inherits(cond, "error") 1565s [00:52:45.319] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1565s [00:52:45.319] NULL) 1565s [00:52:45.319] if (is_error) { 1565s [00:52:45.319] sessionInformation <- function() { 1565s [00:52:45.319] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1565s [00:52:45.319] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1565s [00:52:45.319] search = base::search(), system = base::Sys.info()) 1565s [00:52:45.319] } 1565s [00:52:45.319] ...future.conditions[[length(...future.conditions) + 1565s [00:52:45.319] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1565s [00:52:45.319] cond$call), session = sessionInformation(), 1565s [00:52:45.319] timestamp = base::Sys.time(), signaled = 0L) 1565s [00:52:45.319] signalCondition(cond) 1565s [00:52:45.319] } 1565s [00:52:45.319] else if (!ignore && TRUE && inherits(cond, c("condition", 1565s [00:52:45.319] "immediateCondition"))) { 1565s [00:52:45.319] signal <- TRUE && inherits(cond, "immediateCondition") 1565s [00:52:45.319] ...future.conditions[[length(...future.conditions) + 1565s [00:52:45.319] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1565s [00:52:45.319] if (TRUE && !signal) { 1565s [00:52:45.319] muffleCondition <- function (cond, pattern = "^muffle") 1565s [00:52:45.319] { 1565s [00:52:45.319] inherits <- base::inherits 1565s [00:52:45.319] invokeRestart <- base::invokeRestart 1565s [00:52:45.319] is.null <- base::is.null 1565s [00:52:45.319] muffled <- FALSE 1565s [00:52:45.319] if (inherits(cond, "message")) { 1565s [00:52:45.319] muffled <- grepl(pattern, "muffleMessage") 1565s [00:52:45.319] if (muffled) 1565s [00:52:45.319] invokeRestart("muffleMessage") 1565s [00:52:45.319] } 1565s [00:52:45.319] else if (inherits(cond, "warning")) { 1565s [00:52:45.319] muffled <- grepl(pattern, "muffleWarning") 1565s [00:52:45.319] if (muffled) 1565s [00:52:45.319] invokeRestart("muffleWarning") 1565s [00:52:45.319] } 1565s [00:52:45.319] else if (inherits(cond, "condition")) { 1565s [00:52:45.319] if (!is.null(pattern)) { 1565s [00:52:45.319] computeRestarts <- base::computeRestarts 1565s [00:52:45.319] grepl <- base::grepl 1565s [00:52:45.319] restarts <- computeRestarts(cond) 1565s [00:52:45.319] for (restart in restarts) { 1565s [00:52:45.319] name <- restart$name 1565s [00:52:45.319] if (is.null(name)) 1565s [00:52:45.319] next 1565s [00:52:45.319] if (!grepl(pattern, name)) 1565s [00:52:45.319] next 1565s [00:52:45.319] invokeRestart(restart) 1565s [00:52:45.319] muffled <- TRUE 1565s [00:52:45.319] break 1565s [00:52:45.319] } 1565s [00:52:45.319] } 1565s [00:52:45.319] } 1565s [00:52:45.319] invisible(muffled) 1565s [00:52:45.319] } 1565s [00:52:45.319] muffleCondition(cond, pattern = "^muffle") 1565s [00:52:45.319] } 1565s [00:52:45.319] } 1565s [00:52:45.319] else { 1565s [00:52:45.319] if (TRUE) { 1565s [00:52:45.319] muffleCondition <- function (cond, pattern = "^muffle") 1565s [00:52:45.319] { 1565s [00:52:45.319] inherits <- base::inherits 1565s [00:52:45.319] invokeRestart <- base::invokeRestart 1565s [00:52:45.319] is.null <- base::is.null 1565s [00:52:45.319] muffled <- FALSE 1565s [00:52:45.319] if (inherits(cond, "message")) { 1565s [00:52:45.319] muffled <- grepl(pattern, "muffleMessage") 1565s [00:52:45.319] if (muffled) 1565s [00:52:45.319] invokeRestart("muffleMessage") 1565s [00:52:45.319] } 1565s [00:52:45.319] else if (inherits(cond, "warning")) { 1565s [00:52:45.319] muffled <- grepl(pattern, "muffleWarning") 1565s [00:52:45.319] if (muffled) 1565s [00:52:45.319] invokeRestart("muffleWarning") 1565s [00:52:45.319] } 1565s [00:52:45.319] else if (inherits(cond, "condition")) { 1565s [00:52:45.319] if (!is.null(pattern)) { 1565s [00:52:45.319] computeRestarts <- base::computeRestarts 1565s [00:52:45.319] grepl <- base::grepl 1565s [00:52:45.319] restarts <- computeRestarts(cond) 1565s [00:52:45.319] for (restart in restarts) { 1565s [00:52:45.319] name <- restart$name 1565s [00:52:45.319] if (is.null(name)) 1565s [00:52:45.319] next 1565s [00:52:45.319] if (!grepl(pattern, name)) 1565s [00:52:45.319] next 1565s [00:52:45.319] invokeRestart(restart) 1565s [00:52:45.319] muffled <- TRUE 1565s [00:52:45.319] break 1565s [00:52:45.319] } 1565s [00:52:45.319] } 1565s [00:52:45.319] } 1565s [00:52:45.319] invisible(muffled) 1565s [00:52:45.319] } 1565s [00:52:45.319] muffleCondition(cond, pattern = "^muffle") 1565s [00:52:45.319] } 1565s [00:52:45.319] } 1565s [00:52:45.319] } 1565s [00:52:45.319] })) 1565s [00:52:45.319] }, error = function(ex) { 1565s [00:52:45.319] base::structure(base::list(value = NULL, visible = NULL, 1565s [00:52:45.319] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1565s [00:52:45.319] ...future.rng), started = ...future.startTime, 1565s [00:52:45.319] finished = Sys.time(), session_uuid = NA_character_, 1565s [00:52:45.319] version = "1.8"), class = "FutureResult") 1565s [00:52:45.319] }, finally = { 1565s [00:52:45.319] if (!identical(...future.workdir, getwd())) 1565s [00:52:45.319] setwd(...future.workdir) 1565s [00:52:45.319] { 1565s [00:52:45.319] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1565s [00:52:45.319] ...future.oldOptions$nwarnings <- NULL 1565s [00:52:45.319] } 1565s [00:52:45.319] base::options(...future.oldOptions) 1565s [00:52:45.319] if (.Platform$OS.type == "windows") { 1565s [00:52:45.319] old_names <- names(...future.oldEnvVars) 1565s [00:52:45.319] envs <- base::Sys.getenv() 1565s [00:52:45.319] names <- names(envs) 1565s [00:52:45.319] common <- intersect(names, old_names) 1565s [00:52:45.319] added <- setdiff(names, old_names) 1565s [00:52:45.319] removed <- setdiff(old_names, names) 1565s [00:52:45.319] changed <- common[...future.oldEnvVars[common] != 1565s [00:52:45.319] envs[common]] 1565s [00:52:45.319] NAMES <- toupper(changed) 1565s [00:52:45.319] args <- list() 1565s [00:52:45.319] for (kk in seq_along(NAMES)) { 1565s [00:52:45.319] name <- changed[[kk]] 1565s [00:52:45.319] NAME <- NAMES[[kk]] 1565s [00:52:45.319] if (name != NAME && is.element(NAME, old_names)) 1565s [00:52:45.319] next 1565s [00:52:45.319] args[[name]] <- ...future.oldEnvVars[[name]] 1565s [00:52:45.319] } 1565s [00:52:45.319] NAMES <- toupper(added) 1565s [00:52:45.319] for (kk in seq_along(NAMES)) { 1565s [00:52:45.319] name <- added[[kk]] 1565s [00:52:45.319] NAME <- NAMES[[kk]] 1565s [00:52:45.319] if (name != NAME && is.element(NAME, old_names)) 1565s [00:52:45.319] next 1565s [00:52:45.319] args[[name]] <- "" 1565s [00:52:45.319] } 1565s [00:52:45.319] NAMES <- toupper(removed) 1565s [00:52:45.319] for (kk in seq_along(NAMES)) { 1565s [00:52:45.319] name <- removed[[kk]] 1565s [00:52:45.319] NAME <- NAMES[[kk]] 1565s [00:52:45.319] if (name != NAME && is.element(NAME, old_names)) 1565s [00:52:45.319] next 1565s [00:52:45.319] args[[name]] <- ...future.oldEnvVars[[name]] 1565s [00:52:45.319] } 1565s [00:52:45.319] if (length(args) > 0) 1565s [00:52:45.319] base::do.call(base::Sys.setenv, args = args) 1565s [00:52:45.319] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1565s [00:52:45.319] } 1565s [00:52:45.319] else { 1565s [00:52:45.319] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1565s [00:52:45.319] } 1565s [00:52:45.319] { 1565s [00:52:45.319] if (base::length(...future.futureOptionsAdded) > 1565s [00:52:45.319] 0L) { 1565s [00:52:45.319] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1565s [00:52:45.319] base::names(opts) <- ...future.futureOptionsAdded 1565s [00:52:45.319] base::options(opts) 1565s [00:52:45.319] } 1565s [00:52:45.319] { 1565s [00:52:45.319] { 1565s [00:52:45.319] base::assign(".Random.seed", c(10407L, -382282299L, 1565s [00:52:45.319] 1034641276L, 1208955163L, 111066171L, -1038049056L, 1565s [00:52:45.319] 1660567600L), envir = base::globalenv(), 1565s [00:52:45.319] inherits = FALSE) 1565s [00:52:45.319] NULL 1565s [00:52:45.319] } 1565s [00:52:45.319] options(future.plan = NULL) 1565s [00:52:45.319] if (is.na(NA_character_)) 1565s [00:52:45.319] Sys.unsetenv("R_FUTURE_PLAN") 1565s [00:52:45.319] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1565s [00:52:45.319] future::plan(list(function (..., workers = availableCores(), 1565s [00:52:45.319] lazy = FALSE, rscript_libs = .libPaths(), 1565s [00:52:45.319] envir = parent.frame()) 1565s [00:52:45.319] { 1565s [00:52:45.319] if (is.function(workers)) 1565s [00:52:45.319] workers <- workers() 1565s [00:52:45.319] workers <- structure(as.integer(workers), 1565s [00:52:45.319] class = class(workers)) 1565s [00:52:45.319] stop_if_not(length(workers) == 1, is.finite(workers), 1565s [00:52:45.319] workers >= 1) 1565s [00:52:45.319] if (workers == 1L && !inherits(workers, "AsIs")) { 1565s [00:52:45.319] return(sequential(..., lazy = TRUE, envir = envir)) 1565s [00:52:45.319] } 1565s [00:52:45.319] future <- MultisessionFuture(..., workers = workers, 1565s [00:52:45.319] lazy = lazy, rscript_libs = rscript_libs, 1565s [00:52:45.319] envir = envir) 1565s [00:52:45.319] if (!future$lazy) 1565s [00:52:45.319] future <- run(future) 1565s [00:52:45.319] invisible(future) 1565s [00:52:45.319] }), .cleanup = FALSE, .init = FALSE) 1565s [00:52:45.319] } 1565s [00:52:45.319] } 1565s [00:52:45.319] } 1565s [00:52:45.319] }) 1565s [00:52:45.319] if (TRUE) { 1565s [00:52:45.319] base::sink(type = "output", split = FALSE) 1565s [00:52:45.319] if (TRUE) { 1565s [00:52:45.319] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1565s [00:52:45.319] } 1565s [00:52:45.319] else { 1565s [00:52:45.319] ...future.result["stdout"] <- base::list(NULL) 1565s [00:52:45.319] } 1565s [00:52:45.319] base::close(...future.stdout) 1565s [00:52:45.319] ...future.stdout <- NULL 1565s [00:52:45.319] } 1565s [00:52:45.319] ...future.result$conditions <- ...future.conditions 1565s [00:52:45.319] ...future.result$finished <- base::Sys.time() 1565s [00:52:45.319] ...future.result 1565s [00:52:45.319] } 1565s [00:52:45.328] assign_globals() ... 1565s [00:52:45.328] List of 5 1565s [00:52:45.328] $ ...future.FUN :function (x, w, ...) 1565s [00:52:45.328] $ MoreArgs : NULL 1565s [00:52:45.328] $ ...future.elements_ii :List of 2 1565s [00:52:45.328] ..$ :List of 5 1565s [00:52:45.328] .. ..$ : num [1:10] 0.525 0.618 0.711 0.307 0.251 ... 1565s [00:52:45.328] .. ..$ : num [1:10] 0.1 0.666 0.881 0.776 0.052 ... 1565s [00:52:45.328] .. ..$ : num [1:10] 0.361 0.174 0.475 0.235 0.694 ... 1565s [00:52:45.328] .. ..$ : num [1:10] 0.0578 0.9842 0.357 0.0426 0.0821 ... 1565s [00:52:45.328] .. ..$ : num [1:10] 0.50983 0.00726 0.13458 0.80173 0.49592 ... 1565s [00:52:45.328] ..$ :List of 5 1565s [00:52:45.328] .. ..$ : num [1:10] 4 5 5 7 3 3 7 7 7 8 1565s [00:52:45.328] .. ..$ : num [1:10] 13 5 5 5 4 7 5 10 6 7 1565s [00:52:45.328] .. ..$ : num [1:10] 2 9 4 4 5 9 5 4 2 6 1565s [00:52:45.328] .. ..$ : num [1:10] 5 4 8 5 1 5 7 8 5 7 1565s [00:52:45.328] .. ..$ : num [1:10] 7 6 4 9 12 5 4 9 6 9 1565s [00:52:45.328] $ ...future.seeds_ii : NULL 1565s [00:52:45.328] $ ...future.globals.maxSize: NULL 1565s [00:52:45.328] - attr(*, "where")=List of 5 1565s [00:52:45.328] ..$ ...future.FUN : 1565s [00:52:45.328] ..$ MoreArgs : 1565s [00:52:45.328] ..$ ...future.elements_ii : 1565s [00:52:45.328] ..$ ...future.seeds_ii : 1565s [00:52:45.328] ..$ ...future.globals.maxSize: 1565s [00:52:45.328] - attr(*, "resolved")= logi FALSE 1565s [00:52:45.328] - attr(*, "total_size")= num 3176 1565s [00:52:45.328] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1565s [00:52:45.328] - attr(*, "already-done")= logi TRUE 1565s [00:52:45.342] - copied ‘...future.FUN’ to environment 1565s [00:52:45.343] - copied ‘MoreArgs’ to environment 1565s [00:52:45.343] - copied ‘...future.elements_ii’ to environment 1565s [00:52:45.343] - copied ‘...future.seeds_ii’ to environment 1565s [00:52:45.343] - copied ‘...future.globals.maxSize’ to environment 1565s [00:52:45.343] assign_globals() ... done 1565s [00:52:45.344] plan(): Setting new future strategy stack: 1565s [00:52:45.344] List of future strategies: 1565s [00:52:45.344] 1. sequential: 1565s [00:52:45.344] - args: function (..., envir = parent.frame()) 1565s [00:52:45.344] - tweaked: FALSE 1565s [00:52:45.344] - call: NULL 1565s [00:52:45.345] plan(): nbrOfWorkers() = 1 1565s [00:52:45.346] plan(): Setting new future strategy stack: 1565s [00:52:45.346] List of future strategies: 1565s [00:52:45.346] 1. multisession: 1565s [00:52:45.346] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1565s [00:52:45.346] - tweaked: FALSE 1565s [00:52:45.346] - call: plan(strategy) 1565s [00:52:45.353] plan(): nbrOfWorkers() = 1 1565s [00:52:45.353] SequentialFuture started (and completed) 1565s [00:52:45.354] - Launch lazy future ... done 1565s [00:52:45.355] run() for ‘SequentialFuture’ ... done 1565s [00:52:45.355] Created future: 1565s [00:52:45.355] SequentialFuture: 1565s [00:52:45.355] Label: ‘future_Map-1’ 1565s [00:52:45.355] Expression: 1565s [00:52:45.355] { 1565s [00:52:45.355] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1565s [00:52:45.355] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1565s [00:52:45.355] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1565s [00:52:45.355] on.exit(options(oopts), add = TRUE) 1565s [00:52:45.355] } 1565s [00:52:45.355] { 1565s [00:52:45.355] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1565s [00:52:45.355] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1565s [00:52:45.355] do.call(mapply, args = args) 1565s [00:52:45.355] } 1565s [00:52:45.355] } 1565s [00:52:45.355] Lazy evaluation: FALSE 1565s [00:52:45.355] Asynchronous evaluation: FALSE 1565s [00:52:45.355] Local evaluation: TRUE 1565s [00:52:45.355] Environment: R_GlobalEnv 1565s [00:52:45.355] Capture standard output: TRUE 1565s [00:52:45.355] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1565s [00:52:45.355] Globals: 5 objects totaling 3.10 KiB (function ‘...future.FUN’ of 1.38 KiB, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 1.72 KiB, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1565s [00:52:45.355] Packages: 1 packages (‘stats’) 1565s [00:52:45.355] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1565s [00:52:45.355] Resolved: TRUE 1565s [00:52:45.355] Value: 280 bytes of class ‘list’ 1565s [00:52:45.355] Early signaling: FALSE 1565s [00:52:45.355] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1565s [00:52:45.355] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1565s [00:52:45.361] Chunk #1 of 1 ... DONE 1565s [00:52:45.361] Launching 1 futures (chunks) ... DONE 1565s [00:52:45.361] Resolving 1 futures (chunks) ... 1565s [00:52:45.361] resolve() on list ... 1565s [00:52:45.361] recursive: 0 1565s [00:52:45.362] length: 1 1565s [00:52:45.362] 1565s [00:52:45.362] resolved() for ‘SequentialFuture’ ... 1565s [00:52:45.363] - state: ‘finished’ 1565s [00:52:45.363] - run: TRUE 1565s [00:52:45.363] - result: ‘FutureResult’ 1565s [00:52:45.363] resolved() for ‘SequentialFuture’ ... done 1565s [00:52:45.364] Future #1 1565s [00:52:45.364] signalConditionsASAP(SequentialFuture, pos=1) ... 1565s [00:52:45.364] - nx: 1 1565s [00:52:45.364] - relay: TRUE 1565s [00:52:45.365] - stdout: TRUE 1565s [00:52:45.365] - signal: TRUE 1565s [00:52:45.365] - resignal: FALSE 1565s [00:52:45.365] - force: TRUE 1565s [00:52:45.365] - relayed: [n=1] FALSE 1565s [00:52:45.366] - queued futures: [n=1] FALSE 1565s [00:52:45.366] - until=1 1565s [00:52:45.366] - relaying element #1 1565s [00:52:45.366] - relayed: [n=1] TRUE 1565s [00:52:45.367] - queued futures: [n=1] TRUE 1565s [00:52:45.367] signalConditionsASAP(SequentialFuture, pos=1) ... done 1565s [00:52:45.367] length: 0 (resolved future 1) 1565s [00:52:45.367] Relaying remaining futures 1565s [00:52:45.368] signalConditionsASAP(NULL, pos=0) ... 1565s [00:52:45.368] - nx: 1 1565s [00:52:45.368] - relay: TRUE 1565s [00:52:45.368] - stdout: TRUE 1565s [00:52:45.368] - signal: TRUE 1565s [00:52:45.368] - resignal: FALSE 1565s [00:52:45.369] - force: TRUE 1565s [00:52:45.369] - relayed: [n=1] TRUE 1565s [00:52:45.369] - queued futures: [n=1] TRUE 1565s - flush all 1565s [00:52:45.369] - relayed: [n=1] TRUE 1565s [00:52:45.369] - queued futures: [n=1] TRUE 1565s [00:52:45.369] signalConditionsASAP(NULL, pos=0) ... done 1565s [00:52:45.370] resolve() on list ... DONE 1565s [00:52:45.370] - Number of value chunks collected: 1 1565s [00:52:45.370] Resolving 1 futures (chunks) ... DONE 1565s [00:52:45.371] Reducing values from 1 chunks ... 1565s [00:52:45.371] - Number of values collected after concatenation: 5 1565s [00:52:45.371] - Number of values expected: 5 1565s [00:52:45.372] Reducing values from 1 chunks ... DONE 1565s [00:52:45.372] future_mapply() ... DONE 1565s - future_mapply() - 'max-or-0-if' recycling rule ... 1565s [00:52:45.376] future_mapply() ... 1565s [00:52:45.381] Number of chunks: 1 1565s [00:52:45.382] getGlobalsAndPackagesXApply() ... 1565s [00:52:45.382] - future.globals: TRUE 1565s [00:52:45.383] getGlobalsAndPackages() ... 1565s [00:52:45.383] Searching for globals... 1565s [00:52:45.384] - globals found: [1] ‘FUN’ 1565s [00:52:45.385] Searching for globals ... DONE 1565s [00:52:45.385] Resolving globals: FALSE 1565s [00:52:45.385] The total size of the 1 globals is 56 bytes (56 bytes) 1565s [00:52:45.386] The total size of the 1 globals exported for future expression (‘FUN()’) is 56 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (56 bytes of class ‘function’) 1565s [00:52:45.386] - globals: [1] ‘FUN’ 1565s [00:52:45.386] 1565s [00:52:45.387] getGlobalsAndPackages() ... DONE 1565s [00:52:45.387] - globals found/used: [n=1] ‘FUN’ 1565s [00:52:45.388] - needed namespaces: [n=0] 1565s [00:52:45.388] Finding globals ... DONE 1565s [00:52:45.388] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1565s [00:52:45.388] List of 2 1565s [00:52:45.388] $ ...future.FUN:function (e1, e2) 1565s [00:52:45.388] $ MoreArgs : NULL 1565s [00:52:45.388] - attr(*, "where")=List of 2 1565s [00:52:45.388] ..$ ...future.FUN: 1565s [00:52:45.388] ..$ MoreArgs : 1565s [00:52:45.388] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1565s [00:52:45.388] - attr(*, "resolved")= logi FALSE 1565s [00:52:45.388] - attr(*, "total_size")= num NA 1565s [00:52:45.392] Packages to be attached in all futures: [n=0] 1565s [00:52:45.392] getGlobalsAndPackagesXApply() ... DONE 1565s [00:52:45.393] Number of futures (= number of chunks): 1 1565s [00:52:45.393] Launching 1 futures (chunks) ... 1565s [00:52:45.393] Chunk #1 of 1 ... 1565s [00:52:45.393] - Finding globals in '...' for chunk #1 ... 1565s [00:52:45.393] getGlobalsAndPackages() ... 1565s [00:52:45.393] Searching for globals... 1565s [00:52:45.394] 1565s [00:52:45.394] Searching for globals ... DONE 1565s [00:52:45.394] - globals: [0] 1565s [00:52:45.394] getGlobalsAndPackages() ... DONE 1565s [00:52:45.394] + additional globals found: [n=0] 1565s [00:52:45.394] + additional namespaces needed: [n=0] 1565s [00:52:45.394] - Finding globals in '...' for chunk #1 ... DONE 1565s [00:52:45.395] - seeds: 1565s [00:52:45.395] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1565s [00:52:45.395] getGlobalsAndPackages() ... 1565s [00:52:45.395] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1565s [00:52:45.395] Resolving globals: FALSE 1565s [00:52:45.396] The total size of the 5 globals is 392 bytes (392 bytes) 1565s [00:52:45.396] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 392 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.elements_ii’ (336 bytes of class ‘list’), ‘...future.FUN’ (56 bytes of class ‘function’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1565s [00:52:45.396] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1565s [00:52:45.396] 1565s [00:52:45.397] getGlobalsAndPackages() ... DONE 1565s [00:52:45.397] run() for ‘Future’ ... 1565s [00:52:45.397] - state: ‘created’ 1565s [00:52:45.397] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1565s [00:52:45.401] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1565s [00:52:45.401] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1565s [00:52:45.401] - Field: ‘label’ 1565s [00:52:45.401] - Field: ‘local’ 1565s [00:52:45.401] - Field: ‘owner’ 1565s [00:52:45.402] - Field: ‘envir’ 1565s [00:52:45.402] - Field: ‘packages’ 1565s [00:52:45.402] - Field: ‘gc’ 1565s [00:52:45.402] - Field: ‘conditions’ 1565s [00:52:45.402] - Field: ‘expr’ 1565s [00:52:45.402] - Field: ‘uuid’ 1565s [00:52:45.403] - Field: ‘seed’ 1565s [00:52:45.403] - Field: ‘version’ 1565s [00:52:45.403] - Field: ‘result’ 1565s [00:52:45.403] - Field: ‘asynchronous’ 1565s [00:52:45.403] - Field: ‘calls’ 1565s [00:52:45.403] - Field: ‘globals’ 1565s [00:52:45.404] - Field: ‘stdout’ 1565s [00:52:45.404] - Field: ‘earlySignal’ 1565s [00:52:45.404] - Field: ‘lazy’ 1565s [00:52:45.404] - Field: ‘state’ 1565s [00:52:45.404] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1565s [00:52:45.404] - Launch lazy future ... 1565s [00:52:45.405] Packages needed by the future expression (n = 0): 1565s [00:52:45.405] Packages needed by future strategies (n = 0): 1565s [00:52:45.406] { 1565s [00:52:45.406] { 1565s [00:52:45.406] { 1565s [00:52:45.406] ...future.startTime <- base::Sys.time() 1565s [00:52:45.406] { 1565s [00:52:45.406] { 1565s [00:52:45.406] { 1565s [00:52:45.406] base::local({ 1565s [00:52:45.406] has_future <- base::requireNamespace("future", 1565s [00:52:45.406] quietly = TRUE) 1565s [00:52:45.406] if (has_future) { 1565s [00:52:45.406] ns <- base::getNamespace("future") 1565s [00:52:45.406] version <- ns[[".package"]][["version"]] 1565s [00:52:45.406] if (is.null(version)) 1565s [00:52:45.406] version <- utils::packageVersion("future") 1565s [00:52:45.406] } 1565s [00:52:45.406] else { 1565s [00:52:45.406] version <- NULL 1565s [00:52:45.406] } 1565s [00:52:45.406] if (!has_future || version < "1.8.0") { 1565s [00:52:45.406] info <- base::c(r_version = base::gsub("R version ", 1565s [00:52:45.406] "", base::R.version$version.string), 1565s [00:52:45.406] platform = base::sprintf("%s (%s-bit)", 1565s [00:52:45.406] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1565s [00:52:45.406] os = base::paste(base::Sys.info()[base::c("sysname", 1565s [00:52:45.406] "release", "version")], collapse = " "), 1565s [00:52:45.406] hostname = base::Sys.info()[["nodename"]]) 1565s [00:52:45.406] info <- base::sprintf("%s: %s", base::names(info), 1565s [00:52:45.406] info) 1565s [00:52:45.406] info <- base::paste(info, collapse = "; ") 1565s [00:52:45.406] if (!has_future) { 1565s [00:52:45.406] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1565s [00:52:45.406] info) 1565s [00:52:45.406] } 1565s [00:52:45.406] else { 1565s [00:52:45.406] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1565s [00:52:45.406] info, version) 1565s [00:52:45.406] } 1565s [00:52:45.406] base::stop(msg) 1565s [00:52:45.406] } 1565s [00:52:45.406] }) 1565s [00:52:45.406] } 1565s [00:52:45.406] options(future.plan = NULL) 1565s [00:52:45.406] Sys.unsetenv("R_FUTURE_PLAN") 1565s [00:52:45.406] future::plan("default", .cleanup = FALSE, .init = FALSE) 1565s [00:52:45.406] } 1565s [00:52:45.406] ...future.workdir <- getwd() 1565s [00:52:45.406] } 1565s [00:52:45.406] ...future.oldOptions <- base::as.list(base::.Options) 1565s [00:52:45.406] ...future.oldEnvVars <- base::Sys.getenv() 1565s [00:52:45.406] } 1565s [00:52:45.406] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1565s [00:52:45.406] future.globals.maxSize = NULL, future.globals.method = NULL, 1565s [00:52:45.406] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1565s [00:52:45.406] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1565s [00:52:45.406] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1565s [00:52:45.406] future.stdout.windows.reencode = NULL, width = 80L) 1565s [00:52:45.406] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1565s [00:52:45.406] base::names(...future.oldOptions)) 1565s [00:52:45.406] } 1565s [00:52:45.406] if (FALSE) { 1565s [00:52:45.406] } 1565s [00:52:45.406] else { 1565s [00:52:45.406] if (TRUE) { 1565s [00:52:45.406] ...future.stdout <- base::rawConnection(base::raw(0L), 1565s [00:52:45.406] open = "w") 1565s [00:52:45.406] } 1565s [00:52:45.406] else { 1565s [00:52:45.406] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1565s [00:52:45.406] windows = "NUL", "/dev/null"), open = "w") 1565s [00:52:45.406] } 1565s [00:52:45.406] base::sink(...future.stdout, type = "output", split = FALSE) 1565s [00:52:45.406] base::on.exit(if (!base::is.null(...future.stdout)) { 1565s [00:52:45.406] base::sink(type = "output", split = FALSE) 1565s [00:52:45.406] base::close(...future.stdout) 1565s [00:52:45.406] }, add = TRUE) 1565s [00:52:45.406] } 1565s [00:52:45.406] ...future.frame <- base::sys.nframe() 1565s [00:52:45.406] ...future.conditions <- base::list() 1565s [00:52:45.406] ...future.rng <- base::globalenv()$.Random.seed 1565s [00:52:45.406] if (FALSE) { 1565s [00:52:45.406] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1565s [00:52:45.406] "...future.value", "...future.globalenv.names", ".Random.seed") 1565s [00:52:45.406] } 1565s [00:52:45.406] ...future.result <- base::tryCatch({ 1565s [00:52:45.406] base::withCallingHandlers({ 1565s [00:52:45.406] ...future.value <- base::withVisible(base::local({ 1565s [00:52:45.406] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1565s [00:52:45.406] if (!identical(...future.globals.maxSize.org, 1565s [00:52:45.406] ...future.globals.maxSize)) { 1565s [00:52:45.406] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1565s [00:52:45.406] on.exit(options(oopts), add = TRUE) 1565s [00:52:45.406] } 1565s [00:52:45.406] { 1565s [00:52:45.406] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1565s [00:52:45.406] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1565s [00:52:45.406] USE.NAMES = FALSE) 1565s [00:52:45.406] do.call(mapply, args = args) 1565s [00:52:45.406] } 1565s [00:52:45.406] })) 1565s [00:52:45.406] future::FutureResult(value = ...future.value$value, 1565s [00:52:45.406] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1565s [00:52:45.406] ...future.rng), globalenv = if (FALSE) 1565s [00:52:45.406] list(added = base::setdiff(base::names(base::.GlobalEnv), 1565s [00:52:45.406] ...future.globalenv.names)) 1565s [00:52:45.406] else NULL, started = ...future.startTime, version = "1.8") 1565s [00:52:45.406] }, condition = base::local({ 1565s [00:52:45.406] c <- base::c 1565s [00:52:45.406] inherits <- base::inherits 1565s [00:52:45.406] invokeRestart <- base::invokeRestart 1565s [00:52:45.406] length <- base::length 1565s [00:52:45.406] list <- base::list 1565s [00:52:45.406] seq.int <- base::seq.int 1565s [00:52:45.406] signalCondition <- base::signalCondition 1565s [00:52:45.406] sys.calls <- base::sys.calls 1565s [00:52:45.406] `[[` <- base::`[[` 1565s [00:52:45.406] `+` <- base::`+` 1565s [00:52:45.406] `<<-` <- base::`<<-` 1565s [00:52:45.406] sysCalls <- function(calls = sys.calls(), from = 1L) { 1565s [00:52:45.406] calls[seq.int(from = from + 12L, to = length(calls) - 1565s [00:52:45.406] 3L)] 1565s [00:52:45.406] } 1565s [00:52:45.406] function(cond) { 1565s [00:52:45.406] is_error <- inherits(cond, "error") 1565s [00:52:45.406] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1565s [00:52:45.406] NULL) 1565s [00:52:45.406] if (is_error) { 1565s [00:52:45.406] sessionInformation <- function() { 1565s [00:52:45.406] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1565s [00:52:45.406] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1565s [00:52:45.406] search = base::search(), system = base::Sys.info()) 1565s [00:52:45.406] } 1565s [00:52:45.406] ...future.conditions[[length(...future.conditions) + 1565s [00:52:45.406] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1565s [00:52:45.406] cond$call), session = sessionInformation(), 1565s [00:52:45.406] timestamp = base::Sys.time(), signaled = 0L) 1565s [00:52:45.406] signalCondition(cond) 1565s [00:52:45.406] } 1565s [00:52:45.406] else if (!ignore && TRUE && inherits(cond, c("condition", 1565s [00:52:45.406] "immediateCondition"))) { 1565s [00:52:45.406] signal <- TRUE && inherits(cond, "immediateCondition") 1565s [00:52:45.406] ...future.conditions[[length(...future.conditions) + 1565s [00:52:45.406] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1565s [00:52:45.406] if (TRUE && !signal) { 1565s [00:52:45.406] muffleCondition <- function (cond, pattern = "^muffle") 1565s [00:52:45.406] { 1565s [00:52:45.406] inherits <- base::inherits 1565s [00:52:45.406] invokeRestart <- base::invokeRestart 1565s [00:52:45.406] is.null <- base::is.null 1565s [00:52:45.406] muffled <- FALSE 1565s [00:52:45.406] if (inherits(cond, "message")) { 1565s [00:52:45.406] muffled <- grepl(pattern, "muffleMessage") 1565s [00:52:45.406] if (muffled) 1565s [00:52:45.406] invokeRestart("muffleMessage") 1565s [00:52:45.406] } 1565s [00:52:45.406] else if (inherits(cond, "warning")) { 1565s [00:52:45.406] muffled <- grepl(pattern, "muffleWarning") 1565s [00:52:45.406] if (muffled) 1565s [00:52:45.406] invokeRestart("muffleWarning") 1565s [00:52:45.406] } 1565s [00:52:45.406] else if (inherits(cond, "condition")) { 1565s [00:52:45.406] if (!is.null(pattern)) { 1565s [00:52:45.406] computeRestarts <- base::computeRestarts 1565s [00:52:45.406] grepl <- base::grepl 1565s [00:52:45.406] restarts <- computeRestarts(cond) 1565s [00:52:45.406] for (restart in restarts) { 1565s [00:52:45.406] name <- restart$name 1565s [00:52:45.406] if (is.null(name)) 1565s [00:52:45.406] next 1565s [00:52:45.406] if (!grepl(pattern, name)) 1565s [00:52:45.406] next 1565s [00:52:45.406] invokeRestart(restart) 1565s [00:52:45.406] muffled <- TRUE 1565s [00:52:45.406] break 1565s [00:52:45.406] } 1565s [00:52:45.406] } 1565s [00:52:45.406] } 1565s [00:52:45.406] invisible(muffled) 1565s [00:52:45.406] } 1565s [00:52:45.406] muffleCondition(cond, pattern = "^muffle") 1565s [00:52:45.406] } 1565s [00:52:45.406] } 1565s [00:52:45.406] else { 1565s [00:52:45.406] if (TRUE) { 1565s [00:52:45.406] muffleCondition <- function (cond, pattern = "^muffle") 1565s [00:52:45.406] { 1565s [00:52:45.406] inherits <- base::inherits 1565s [00:52:45.406] invokeRestart <- base::invokeRestart 1565s [00:52:45.406] is.null <- base::is.null 1565s [00:52:45.406] muffled <- FALSE 1565s [00:52:45.406] if (inherits(cond, "message")) { 1565s [00:52:45.406] muffled <- grepl(pattern, "muffleMessage") 1565s [00:52:45.406] if (muffled) 1565s [00:52:45.406] invokeRestart("muffleMessage") 1565s [00:52:45.406] } 1565s [00:52:45.406] else if (inherits(cond, "warning")) { 1565s [00:52:45.406] muffled <- grepl(pattern, "muffleWarning") 1565s [00:52:45.406] if (muffled) 1565s [00:52:45.406] invokeRestart("muffleWarning") 1565s [00:52:45.406] } 1565s [00:52:45.406] else if (inherits(cond, "condition")) { 1565s [00:52:45.406] if (!is.null(pattern)) { 1565s [00:52:45.406] computeRestarts <- base::computeRestarts 1565s [00:52:45.406] grepl <- base::grepl 1565s [00:52:45.406] restarts <- computeRestarts(cond) 1565s [00:52:45.406] for (restart in restarts) { 1565s [00:52:45.406] name <- restart$name 1565s [00:52:45.406] if (is.null(name)) 1565s [00:52:45.406] next 1565s [00:52:45.406] if (!grepl(pattern, name)) 1565s [00:52:45.406] next 1565s [00:52:45.406] invokeRestart(restart) 1565s [00:52:45.406] muffled <- TRUE 1565s [00:52:45.406] break 1565s [00:52:45.406] } 1565s [00:52:45.406] } 1565s [00:52:45.406] } 1565s [00:52:45.406] invisible(muffled) 1565s [00:52:45.406] } 1565s [00:52:45.406] muffleCondition(cond, pattern = "^muffle") 1565s [00:52:45.406] } 1565s [00:52:45.406] } 1565s [00:52:45.406] } 1565s [00:52:45.406] })) 1565s [00:52:45.406] }, error = function(ex) { 1565s [00:52:45.406] base::structure(base::list(value = NULL, visible = NULL, 1565s [00:52:45.406] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1565s [00:52:45.406] ...future.rng), started = ...future.startTime, 1565s [00:52:45.406] finished = Sys.time(), session_uuid = NA_character_, 1565s [00:52:45.406] version = "1.8"), class = "FutureResult") 1565s [00:52:45.406] }, finally = { 1565s [00:52:45.406] if (!identical(...future.workdir, getwd())) 1565s [00:52:45.406] setwd(...future.workdir) 1565s [00:52:45.406] { 1565s [00:52:45.406] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1565s [00:52:45.406] ...future.oldOptions$nwarnings <- NULL 1565s [00:52:45.406] } 1565s [00:52:45.406] base::options(...future.oldOptions) 1565s [00:52:45.406] if (.Platform$OS.type == "windows") { 1565s [00:52:45.406] old_names <- names(...future.oldEnvVars) 1565s [00:52:45.406] envs <- base::Sys.getenv() 1565s [00:52:45.406] names <- names(envs) 1565s [00:52:45.406] common <- intersect(names, old_names) 1565s [00:52:45.406] added <- setdiff(names, old_names) 1565s [00:52:45.406] removed <- setdiff(old_names, names) 1565s [00:52:45.406] changed <- common[...future.oldEnvVars[common] != 1565s [00:52:45.406] envs[common]] 1565s [00:52:45.406] NAMES <- toupper(changed) 1565s [00:52:45.406] args <- list() 1565s [00:52:45.406] for (kk in seq_along(NAMES)) { 1565s [00:52:45.406] name <- changed[[kk]] 1565s [00:52:45.406] NAME <- NAMES[[kk]] 1565s [00:52:45.406] if (name != NAME && is.element(NAME, old_names)) 1565s [00:52:45.406] next 1565s [00:52:45.406] args[[name]] <- ...future.oldEnvVars[[name]] 1565s [00:52:45.406] } 1565s [00:52:45.406] NAMES <- toupper(added) 1565s [00:52:45.406] for (kk in seq_along(NAMES)) { 1565s [00:52:45.406] name <- added[[kk]] 1565s [00:52:45.406] NAME <- NAMES[[kk]] 1565s [00:52:45.406] if (name != NAME && is.element(NAME, old_names)) 1565s [00:52:45.406] next 1565s [00:52:45.406] args[[name]] <- "" 1565s [00:52:45.406] } 1565s [00:52:45.406] NAMES <- toupper(removed) 1565s [00:52:45.406] for (kk in seq_along(NAMES)) { 1565s [00:52:45.406] name <- removed[[kk]] 1565s [00:52:45.406] NAME <- NAMES[[kk]] 1565s [00:52:45.406] if (name != NAME && is.element(NAME, old_names)) 1565s [00:52:45.406] next 1565s [00:52:45.406] args[[name]] <- ...future.oldEnvVars[[name]] 1565s [00:52:45.406] } 1565s [00:52:45.406] if (length(args) > 0) 1565s [00:52:45.406] base::do.call(base::Sys.setenv, args = args) 1565s [00:52:45.406] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1565s [00:52:45.406] } 1565s [00:52:45.406] else { 1565s [00:52:45.406] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1565s [00:52:45.406] } 1565s [00:52:45.406] { 1565s [00:52:45.406] if (base::length(...future.futureOptionsAdded) > 1565s [00:52:45.406] 0L) { 1565s [00:52:45.406] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1565s [00:52:45.406] base::names(opts) <- ...future.futureOptionsAdded 1565s [00:52:45.406] base::options(opts) 1565s [00:52:45.406] } 1565s [00:52:45.406] { 1565s [00:52:45.406] { 1565s [00:52:45.406] base::assign(".Random.seed", c(10407L, -382282299L, 1565s [00:52:45.406] 1034641276L, 1208955163L, 111066171L, -1038049056L, 1565s [00:52:45.406] 1660567600L), envir = base::globalenv(), 1565s [00:52:45.406] inherits = FALSE) 1565s [00:52:45.406] NULL 1565s [00:52:45.406] } 1565s [00:52:45.406] options(future.plan = NULL) 1565s [00:52:45.406] if (is.na(NA_character_)) 1565s [00:52:45.406] Sys.unsetenv("R_FUTURE_PLAN") 1565s [00:52:45.406] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1565s [00:52:45.406] future::plan(list(function (..., workers = availableCores(), 1565s [00:52:45.406] lazy = FALSE, rscript_libs = .libPaths(), 1565s [00:52:45.406] envir = parent.frame()) 1565s [00:52:45.406] { 1565s [00:52:45.406] if (is.function(workers)) 1565s [00:52:45.406] workers <- workers() 1565s [00:52:45.406] workers <- structure(as.integer(workers), 1565s [00:52:45.406] class = class(workers)) 1565s [00:52:45.406] stop_if_not(length(workers) == 1, is.finite(workers), 1565s [00:52:45.406] workers >= 1) 1565s [00:52:45.406] if (workers == 1L && !inherits(workers, "AsIs")) { 1565s [00:52:45.406] return(sequential(..., lazy = TRUE, envir = envir)) 1565s [00:52:45.406] } 1565s [00:52:45.406] future <- MultisessionFuture(..., workers = workers, 1565s [00:52:45.406] lazy = lazy, rscript_libs = rscript_libs, 1565s [00:52:45.406] envir = envir) 1565s [00:52:45.406] if (!future$lazy) 1565s [00:52:45.406] future <- run(future) 1565s [00:52:45.406] invisible(future) 1565s [00:52:45.406] }), .cleanup = FALSE, .init = FALSE) 1565s [00:52:45.406] } 1565s [00:52:45.406] } 1565s [00:52:45.406] } 1565s [00:52:45.406] }) 1565s [00:52:45.406] if (TRUE) { 1565s [00:52:45.406] base::sink(type = "output", split = FALSE) 1565s [00:52:45.406] if (TRUE) { 1565s [00:52:45.406] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1565s [00:52:45.406] } 1565s [00:52:45.406] else { 1565s [00:52:45.406] ...future.result["stdout"] <- base::list(NULL) 1565s [00:52:45.406] } 1565s [00:52:45.406] base::close(...future.stdout) 1565s [00:52:45.406] ...future.stdout <- NULL 1565s [00:52:45.406] } 1565s [00:52:45.406] ...future.result$conditions <- ...future.conditions 1565s [00:52:45.406] ...future.result$finished <- base::Sys.time() 1565s [00:52:45.406] ...future.result 1565s [00:52:45.406] } 1565s [00:52:45.411] assign_globals() ... 1565s [00:52:45.411] List of 5 1565s [00:52:45.411] $ ...future.FUN :function (e1, e2) 1565s [00:52:45.411] $ MoreArgs : NULL 1565s [00:52:45.411] $ ...future.elements_ii :List of 2 1565s [00:52:45.411] ..$ :List of 3 1565s [00:52:45.411] .. ..$ : num 1 1565s [00:52:45.411] .. ..$ : num 1 1565s [00:52:45.411] .. ..$ : num 1 1565s [00:52:45.411] ..$ :List of 3 1565s [00:52:45.411] .. ..$ : int 1 1565s [00:52:45.411] .. ..$ : int 2 1565s [00:52:45.411] .. ..$ : int 3 1565s [00:52:45.411] $ ...future.seeds_ii : NULL 1565s [00:52:45.411] $ ...future.globals.maxSize: NULL 1565s [00:52:45.411] - attr(*, "where")=List of 5 1565s [00:52:45.411] ..$ ...future.FUN : 1565s [00:52:45.411] ..$ MoreArgs : 1565s [00:52:45.411] ..$ ...future.elements_ii : 1565s [00:52:45.411] ..$ ...future.seeds_ii : 1565s [00:52:45.411] ..$ ...future.globals.maxSize: 1565s [00:52:45.411] - attr(*, "resolved")= logi FALSE 1565s [00:52:45.411] - attr(*, "total_size")= num 392 1565s [00:52:45.411] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1565s [00:52:45.411] - attr(*, "already-done")= logi TRUE 1565s [00:52:45.423] - copied ‘...future.FUN’ to environment 1565s [00:52:45.424] - copied ‘MoreArgs’ to environment 1565s [00:52:45.424] - copied ‘...future.elements_ii’ to environment 1565s [00:52:45.424] - copied ‘...future.seeds_ii’ to environment 1565s [00:52:45.425] - copied ‘...future.globals.maxSize’ to environment 1565s [00:52:45.425] assign_globals() ... done 1565s [00:52:45.425] plan(): Setting new future strategy stack: 1565s [00:52:45.425] List of future strategies: 1565s [00:52:45.425] 1. sequential: 1565s [00:52:45.425] - args: function (..., envir = parent.frame()) 1565s [00:52:45.425] - tweaked: FALSE 1565s [00:52:45.425] - call: NULL 1565s [00:52:45.426] plan(): nbrOfWorkers() = 1 1565s [00:52:45.428] plan(): Setting new future strategy stack: 1565s [00:52:45.428] List of future strategies: 1565s [00:52:45.428] 1. multisession: 1565s [00:52:45.428] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1565s [00:52:45.428] - tweaked: FALSE 1565s [00:52:45.428] - call: plan(strategy) 1565s [00:52:45.435] plan(): nbrOfWorkers() = 1 1565s [00:52:45.436] SequentialFuture started (and completed) 1565s [00:52:45.436] - Launch lazy future ... done 1565s [00:52:45.437] run() for ‘SequentialFuture’ ... done 1565s [00:52:45.437] Created future: 1565s [00:52:45.437] SequentialFuture: 1565s [00:52:45.437] Label: ‘future_Map-1’ 1565s [00:52:45.437] Expression: 1565s [00:52:45.437] { 1565s [00:52:45.437] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1565s [00:52:45.437] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1565s [00:52:45.437] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1565s [00:52:45.437] on.exit(options(oopts), add = TRUE) 1565s [00:52:45.437] } 1565s [00:52:45.437] { 1565s [00:52:45.437] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1565s [00:52:45.437] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1565s [00:52:45.437] do.call(mapply, args = args) 1565s [00:52:45.437] } 1565s [00:52:45.437] } 1565s [00:52:45.437] Lazy evaluation: FALSE 1565s [00:52:45.437] Asynchronous evaluation: FALSE 1565s [00:52:45.437] Local evaluation: TRUE 1565s [00:52:45.437] Environment: R_GlobalEnv 1565s [00:52:45.437] Capture standard output: TRUE 1565s [00:52:45.437] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1565s [00:52:45.437] Globals: 5 objects totaling 392 bytes (function ‘...future.FUN’ of 56 bytes, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1565s [00:52:45.437] Packages: 1565s [00:52:45.437] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1565s [00:52:45.437] Resolved: TRUE 1565s [00:52:45.437] Value: 168 bytes of class ‘list’ 1565s [00:52:45.437] Early signaling: FALSE 1565s [00:52:45.437] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1565s [00:52:45.437] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1565s [00:52:45.439] Chunk #1 of 1 ... DONE 1565s [00:52:45.439] Launching 1 futures (chunks) ... DONE 1565s [00:52:45.440] Resolving 1 futures (chunks) ... 1565s [00:52:45.440] resolve() on list ... 1565s [00:52:45.440] recursive: 0 1565s [00:52:45.440] length: 1 1565s [00:52:45.440] 1565s [00:52:45.441] resolved() for ‘SequentialFuture’ ... 1565s [00:52:45.441] - state: ‘finished’ 1565s [00:52:45.441] - run: TRUE 1565s [00:52:45.441] - result: ‘FutureResult’ 1565s [00:52:45.441] resolved() for ‘SequentialFuture’ ... done 1565s [00:52:45.441] Future #1 1565s [00:52:45.442] signalConditionsASAP(SequentialFuture, pos=1) ... 1565s [00:52:45.442] - nx: 1 1565s [00:52:45.442] - relay: TRUE 1565s [00:52:45.442] - stdout: TRUE 1565s [00:52:45.442] - signal: TRUE 1565s [00:52:45.442] - resignal: FALSE 1565s [00:52:45.443] - force: TRUE 1565s [00:52:45.443] - relayed: [n=1] FALSE 1565s [00:52:45.443] - queued futures: [n=1] FALSE 1565s [00:52:45.443] - until=1 1565s [00:52:45.443] - relaying element #1 1565s [00:52:45.444] - relayed: [n=1] TRUE 1565s [00:52:45.444] - queued futures: [n=1] TRUE 1565s [00:52:45.444] signalConditionsASAP(SequentialFuture, pos=1) ... done 1565s [00:52:45.444] length: 0 (resolved future 1) 1565s [00:52:45.445] Relaying remaining futures 1565s [00:52:45.445] signalConditionsASAP(NULL, pos=0) ... 1565s [00:52:45.445] - nx: 1 1565s [00:52:45.445] - relay: TRUE 1565s [00:52:45.445] - stdout: TRUE 1565s [00:52:45.445] - signal: TRUE 1565s [00:52:45.446] - resignal: FALSE 1565s [00:52:45.446] - force: TRUE 1565s [00:52:45.446] - relayed: [n=1] TRUE 1565s [00:52:45.446] - queued futures: [n=1] TRUE 1565s - flush all 1565s [00:52:45.447] - relayed: [n=1] TRUE 1565s [00:52:45.447] - queued futures: [n=1] TRUE 1565s [00:52:45.447] signalConditionsASAP(NULL, pos=0) ... done 1565s [00:52:45.447] resolve() on list ... DONE 1565s [00:52:45.448] - Number of value chunks collected: 1 1565s [00:52:45.448] Resolving 1 futures (chunks) ... DONE 1565s [00:52:45.448] Reducing values from 1 chunks ... 1565s [00:52:45.448] - Number of values collected after concatenation: 3 1565s [00:52:45.449] - Number of values expected: 3 1565s [00:52:45.449] Reducing values from 1 chunks ... DONE 1565s [00:52:45.449] future_mapply() ... DONE 1565s - future_mapply(x, ...) where x[[i]] subsets via S3 method ... 1565s [00:52:45.450] future_mapply() ... 1565s [00:52:45.454] Number of chunks: 1 1565s [00:52:45.455] getGlobalsAndPackagesXApply() ... 1565s [00:52:45.455] - future.globals: TRUE 1565s [00:52:45.455] getGlobalsAndPackages() ... 1565s [00:52:45.455] Searching for globals... 1565s [00:52:45.457] - globals found: [1] ‘FUN’ 1565s [00:52:45.457] Searching for globals ... DONE 1565s [00:52:45.458] Resolving globals: FALSE 1565s [00:52:45.458] The total size of the 1 globals is 848 bytes (848 bytes) 1565s [00:52:45.459] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1565s [00:52:45.459] - globals: [1] ‘FUN’ 1565s [00:52:45.459] 1565s [00:52:45.459] getGlobalsAndPackages() ... DONE 1565s [00:52:45.460] - globals found/used: [n=1] ‘FUN’ 1565s [00:52:45.460] - needed namespaces: [n=0] 1565s [00:52:45.460] Finding globals ... DONE 1565s [00:52:45.461] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1565s [00:52:45.461] List of 2 1565s [00:52:45.461] $ ...future.FUN:function (x) 1565s [00:52:45.461] $ MoreArgs : NULL 1565s [00:52:45.461] - attr(*, "where")=List of 2 1565s [00:52:45.461] ..$ ...future.FUN: 1565s [00:52:45.461] ..$ MoreArgs : 1565s [00:52:45.461] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1565s [00:52:45.461] - attr(*, "resolved")= logi FALSE 1565s [00:52:45.461] - attr(*, "total_size")= num NA 1565s [00:52:45.466] Packages to be attached in all futures: [n=0] 1565s [00:52:45.466] getGlobalsAndPackagesXApply() ... DONE 1565s [00:52:45.467] Number of futures (= number of chunks): 1 1565s [00:52:45.467] Launching 1 futures (chunks) ... 1565s [00:52:45.467] Chunk #1 of 1 ... 1565s [00:52:45.467] - Finding globals in '...' for chunk #1 ... 1565s [00:52:45.467] getGlobalsAndPackages() ... 1565s [00:52:45.468] Searching for globals... 1565s [00:52:45.468] 1565s [00:52:45.468] Searching for globals ... DONE 1565s [00:52:45.468] - globals: [0] 1565s [00:52:45.469] getGlobalsAndPackages() ... DONE 1565s [00:52:45.469] + additional globals found: [n=0] 1565s [00:52:45.469] + additional namespaces needed: [n=0] 1565s [00:52:45.469] - Finding globals in '...' for chunk #1 ... DONE 1565s [00:52:45.469] - seeds: 1565s [00:52:45.469] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1565s [00:52:45.470] getGlobalsAndPackages() ... 1565s [00:52:45.470] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1565s [00:52:45.470] Resolving globals: FALSE 1565s [00:52:45.471] The total size of the 5 globals is 960 bytes (960 bytes) 1565s [00:52:45.472] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 960 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (848 bytes of class ‘function’), ‘...future.elements_ii’ (112 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1565s [00:52:45.472] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1565s [00:52:45.472] 1565s [00:52:45.472] getGlobalsAndPackages() ... DONE 1565s [00:52:45.473] run() for ‘Future’ ... 1565s [00:52:45.473] - state: ‘created’ 1565s [00:52:45.473] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1565s [00:52:45.478] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1565s [00:52:45.478] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1565s [00:52:45.478] - Field: ‘label’ 1565s [00:52:45.478] - Field: ‘local’ 1565s [00:52:45.479] - Field: ‘owner’ 1565s [00:52:45.479] - Field: ‘envir’ 1565s [00:52:45.479] - Field: ‘packages’ 1565s [00:52:45.479] - Field: ‘gc’ 1565s [00:52:45.480] - Field: ‘conditions’ 1565s [00:52:45.480] - Field: ‘expr’ 1565s [00:52:45.480] - Field: ‘uuid’ 1565s [00:52:45.480] - Field: ‘seed’ 1565s [00:52:45.480] - Field: ‘version’ 1565s [00:52:45.480] - Field: ‘result’ 1565s [00:52:45.481] - Field: ‘asynchronous’ 1565s [00:52:45.481] - Field: ‘calls’ 1565s [00:52:45.481] - Field: ‘globals’ 1565s [00:52:45.481] - Field: ‘stdout’ 1565s [00:52:45.481] - Field: ‘earlySignal’ 1565s [00:52:45.482] - Field: ‘lazy’ 1565s [00:52:45.482] - Field: ‘state’ 1565s [00:52:45.482] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1565s [00:52:45.482] - Launch lazy future ... 1565s [00:52:45.482] Packages needed by the future expression (n = 0): 1565s [00:52:45.483] Packages needed by future strategies (n = 0): 1565s [00:52:45.483] { 1565s [00:52:45.483] { 1565s [00:52:45.483] { 1565s [00:52:45.483] ...future.startTime <- base::Sys.time() 1565s [00:52:45.483] { 1565s [00:52:45.483] { 1565s [00:52:45.483] { 1565s [00:52:45.483] base::local({ 1565s [00:52:45.483] has_future <- base::requireNamespace("future", 1565s [00:52:45.483] quietly = TRUE) 1565s [00:52:45.483] if (has_future) { 1565s [00:52:45.483] ns <- base::getNamespace("future") 1565s [00:52:45.483] version <- ns[[".package"]][["version"]] 1565s [00:52:45.483] if (is.null(version)) 1565s [00:52:45.483] version <- utils::packageVersion("future") 1565s [00:52:45.483] } 1565s [00:52:45.483] else { 1565s [00:52:45.483] version <- NULL 1565s [00:52:45.483] } 1565s [00:52:45.483] if (!has_future || version < "1.8.0") { 1565s [00:52:45.483] info <- base::c(r_version = base::gsub("R version ", 1565s [00:52:45.483] "", base::R.version$version.string), 1565s [00:52:45.483] platform = base::sprintf("%s (%s-bit)", 1565s [00:52:45.483] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1565s [00:52:45.483] os = base::paste(base::Sys.info()[base::c("sysname", 1565s [00:52:45.483] "release", "version")], collapse = " "), 1565s [00:52:45.483] hostname = base::Sys.info()[["nodename"]]) 1565s [00:52:45.483] info <- base::sprintf("%s: %s", base::names(info), 1565s [00:52:45.483] info) 1565s [00:52:45.483] info <- base::paste(info, collapse = "; ") 1565s [00:52:45.483] if (!has_future) { 1565s [00:52:45.483] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1565s [00:52:45.483] info) 1565s [00:52:45.483] } 1565s [00:52:45.483] else { 1565s [00:52:45.483] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1565s [00:52:45.483] info, version) 1565s [00:52:45.483] } 1565s [00:52:45.483] base::stop(msg) 1565s [00:52:45.483] } 1565s [00:52:45.483] }) 1565s [00:52:45.483] } 1565s [00:52:45.483] options(future.plan = NULL) 1565s [00:52:45.483] Sys.unsetenv("R_FUTURE_PLAN") 1565s [00:52:45.483] future::plan("default", .cleanup = FALSE, .init = FALSE) 1565s [00:52:45.483] } 1565s [00:52:45.483] ...future.workdir <- getwd() 1565s [00:52:45.483] } 1565s [00:52:45.483] ...future.oldOptions <- base::as.list(base::.Options) 1565s [00:52:45.483] ...future.oldEnvVars <- base::Sys.getenv() 1565s [00:52:45.483] } 1565s [00:52:45.483] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1565s [00:52:45.483] future.globals.maxSize = NULL, future.globals.method = NULL, 1565s [00:52:45.483] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1565s [00:52:45.483] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1565s [00:52:45.483] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1565s [00:52:45.483] future.stdout.windows.reencode = NULL, width = 80L) 1565s [00:52:45.483] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1565s [00:52:45.483] base::names(...future.oldOptions)) 1565s [00:52:45.483] } 1565s [00:52:45.483] if (FALSE) { 1565s [00:52:45.483] } 1565s [00:52:45.483] else { 1565s [00:52:45.483] if (TRUE) { 1565s [00:52:45.483] ...future.stdout <- base::rawConnection(base::raw(0L), 1565s [00:52:45.483] open = "w") 1565s [00:52:45.483] } 1565s [00:52:45.483] else { 1565s [00:52:45.483] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1565s [00:52:45.483] windows = "NUL", "/dev/null"), open = "w") 1565s [00:52:45.483] } 1565s [00:52:45.483] base::sink(...future.stdout, type = "output", split = FALSE) 1565s [00:52:45.483] base::on.exit(if (!base::is.null(...future.stdout)) { 1565s [00:52:45.483] base::sink(type = "output", split = FALSE) 1565s [00:52:45.483] base::close(...future.stdout) 1565s [00:52:45.483] }, add = TRUE) 1565s [00:52:45.483] } 1565s [00:52:45.483] ...future.frame <- base::sys.nframe() 1565s [00:52:45.483] ...future.conditions <- base::list() 1565s [00:52:45.483] ...future.rng <- base::globalenv()$.Random.seed 1565s [00:52:45.483] if (FALSE) { 1565s [00:52:45.483] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1565s [00:52:45.483] "...future.value", "...future.globalenv.names", ".Random.seed") 1565s [00:52:45.483] } 1565s [00:52:45.483] ...future.result <- base::tryCatch({ 1565s [00:52:45.483] base::withCallingHandlers({ 1565s [00:52:45.483] ...future.value <- base::withVisible(base::local({ 1565s [00:52:45.483] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1565s [00:52:45.483] if (!identical(...future.globals.maxSize.org, 1565s [00:52:45.483] ...future.globals.maxSize)) { 1565s [00:52:45.483] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1565s [00:52:45.483] on.exit(options(oopts), add = TRUE) 1565s [00:52:45.483] } 1565s [00:52:45.483] { 1565s [00:52:45.483] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1565s [00:52:45.483] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1565s [00:52:45.483] USE.NAMES = FALSE) 1565s [00:52:45.483] do.call(mapply, args = args) 1565s [00:52:45.483] } 1565s [00:52:45.483] })) 1565s [00:52:45.483] future::FutureResult(value = ...future.value$value, 1565s [00:52:45.483] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1565s [00:52:45.483] ...future.rng), globalenv = if (FALSE) 1565s [00:52:45.483] list(added = base::setdiff(base::names(base::.GlobalEnv), 1565s [00:52:45.483] ...future.globalenv.names)) 1565s [00:52:45.483] else NULL, started = ...future.startTime, version = "1.8") 1565s [00:52:45.483] }, condition = base::local({ 1565s [00:52:45.483] c <- base::c 1565s [00:52:45.483] inherits <- base::inherits 1565s [00:52:45.483] invokeRestart <- base::invokeRestart 1565s [00:52:45.483] length <- base::length 1565s [00:52:45.483] list <- base::list 1565s [00:52:45.483] seq.int <- base::seq.int 1565s [00:52:45.483] signalCondition <- base::signalCondition 1565s [00:52:45.483] sys.calls <- base::sys.calls 1565s [00:52:45.483] `[[` <- base::`[[` 1565s [00:52:45.483] `+` <- base::`+` 1565s [00:52:45.483] `<<-` <- base::`<<-` 1565s [00:52:45.483] sysCalls <- function(calls = sys.calls(), from = 1L) { 1565s [00:52:45.483] calls[seq.int(from = from + 12L, to = length(calls) - 1565s [00:52:45.483] 3L)] 1565s [00:52:45.483] } 1565s [00:52:45.483] function(cond) { 1565s [00:52:45.483] is_error <- inherits(cond, "error") 1565s [00:52:45.483] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1565s [00:52:45.483] NULL) 1565s [00:52:45.483] if (is_error) { 1565s [00:52:45.483] sessionInformation <- function() { 1565s [00:52:45.483] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1565s [00:52:45.483] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1565s [00:52:45.483] search = base::search(), system = base::Sys.info()) 1565s [00:52:45.483] } 1565s [00:52:45.483] ...future.conditions[[length(...future.conditions) + 1565s [00:52:45.483] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1565s [00:52:45.483] cond$call), session = sessionInformation(), 1565s [00:52:45.483] timestamp = base::Sys.time(), signaled = 0L) 1565s [00:52:45.483] signalCondition(cond) 1565s [00:52:45.483] } 1565s [00:52:45.483] else if (!ignore && TRUE && inherits(cond, c("condition", 1565s [00:52:45.483] "immediateCondition"))) { 1565s [00:52:45.483] signal <- TRUE && inherits(cond, "immediateCondition") 1565s [00:52:45.483] ...future.conditions[[length(...future.conditions) + 1565s [00:52:45.483] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1565s [00:52:45.483] if (TRUE && !signal) { 1565s [00:52:45.483] muffleCondition <- function (cond, pattern = "^muffle") 1565s [00:52:45.483] { 1565s [00:52:45.483] inherits <- base::inherits 1565s [00:52:45.483] invokeRestart <- base::invokeRestart 1565s [00:52:45.483] is.null <- base::is.null 1565s [00:52:45.483] muffled <- FALSE 1565s [00:52:45.483] if (inherits(cond, "message")) { 1565s [00:52:45.483] muffled <- grepl(pattern, "muffleMessage") 1565s [00:52:45.483] if (muffled) 1565s [00:52:45.483] invokeRestart("muffleMessage") 1565s [00:52:45.483] } 1565s [00:52:45.483] else if (inherits(cond, "warning")) { 1565s [00:52:45.483] muffled <- grepl(pattern, "muffleWarning") 1565s [00:52:45.483] if (muffled) 1565s [00:52:45.483] invokeRestart("muffleWarning") 1565s [00:52:45.483] } 1565s [00:52:45.483] else if (inherits(cond, "condition")) { 1565s [00:52:45.483] if (!is.null(pattern)) { 1565s [00:52:45.483] computeRestarts <- base::computeRestarts 1565s [00:52:45.483] grepl <- base::grepl 1565s [00:52:45.483] restarts <- computeRestarts(cond) 1565s [00:52:45.483] for (restart in restarts) { 1565s [00:52:45.483] name <- restart$name 1565s [00:52:45.483] if (is.null(name)) 1565s [00:52:45.483] next 1565s [00:52:45.483] if (!grepl(pattern, name)) 1565s [00:52:45.483] next 1565s [00:52:45.483] invokeRestart(restart) 1565s [00:52:45.483] muffled <- TRUE 1565s [00:52:45.483] break 1565s [00:52:45.483] } 1565s [00:52:45.483] } 1565s [00:52:45.483] } 1565s [00:52:45.483] invisible(muffled) 1565s [00:52:45.483] } 1565s [00:52:45.483] muffleCondition(cond, pattern = "^muffle") 1565s [00:52:45.483] } 1565s [00:52:45.483] } 1565s [00:52:45.483] else { 1565s [00:52:45.483] if (TRUE) { 1565s [00:52:45.483] muffleCondition <- function (cond, pattern = "^muffle") 1565s [00:52:45.483] { 1565s [00:52:45.483] inherits <- base::inherits 1565s [00:52:45.483] invokeRestart <- base::invokeRestart 1565s [00:52:45.483] is.null <- base::is.null 1565s [00:52:45.483] muffled <- FALSE 1565s [00:52:45.483] if (inherits(cond, "message")) { 1565s [00:52:45.483] muffled <- grepl(pattern, "muffleMessage") 1565s [00:52:45.483] if (muffled) 1565s [00:52:45.483] invokeRestart("muffleMessage") 1565s [00:52:45.483] } 1565s [00:52:45.483] else if (inherits(cond, "warning")) { 1565s [00:52:45.483] muffled <- grepl(pattern, "muffleWarning") 1565s [00:52:45.483] if (muffled) 1565s [00:52:45.483] invokeRestart("muffleWarning") 1565s [00:52:45.483] } 1565s [00:52:45.483] else if (inherits(cond, "condition")) { 1565s [00:52:45.483] if (!is.null(pattern)) { 1565s [00:52:45.483] computeRestarts <- base::computeRestarts 1565s [00:52:45.483] grepl <- base::grepl 1565s [00:52:45.483] restarts <- computeRestarts(cond) 1565s [00:52:45.483] for (restart in restarts) { 1565s [00:52:45.483] name <- restart$name 1565s [00:52:45.483] if (is.null(name)) 1565s [00:52:45.483] next 1565s [00:52:45.483] if (!grepl(pattern, name)) 1565s [00:52:45.483] next 1565s [00:52:45.483] invokeRestart(restart) 1565s [00:52:45.483] muffled <- TRUE 1565s [00:52:45.483] break 1565s [00:52:45.483] } 1565s [00:52:45.483] } 1565s [00:52:45.483] } 1565s [00:52:45.483] invisible(muffled) 1565s [00:52:45.483] } 1565s [00:52:45.483] muffleCondition(cond, pattern = "^muffle") 1565s [00:52:45.483] } 1565s [00:52:45.483] } 1565s [00:52:45.483] } 1565s [00:52:45.483] })) 1565s [00:52:45.483] }, error = function(ex) { 1565s [00:52:45.483] base::structure(base::list(value = NULL, visible = NULL, 1565s [00:52:45.483] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1565s [00:52:45.483] ...future.rng), started = ...future.startTime, 1565s [00:52:45.483] finished = Sys.time(), session_uuid = NA_character_, 1565s [00:52:45.483] version = "1.8"), class = "FutureResult") 1565s [00:52:45.483] }, finally = { 1565s [00:52:45.483] if (!identical(...future.workdir, getwd())) 1565s [00:52:45.483] setwd(...future.workdir) 1565s [00:52:45.483] { 1565s [00:52:45.483] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1565s [00:52:45.483] ...future.oldOptions$nwarnings <- NULL 1565s [00:52:45.483] } 1565s [00:52:45.483] base::options(...future.oldOptions) 1565s [00:52:45.483] if (.Platform$OS.type == "windows") { 1565s [00:52:45.483] old_names <- names(...future.oldEnvVars) 1565s [00:52:45.483] envs <- base::Sys.getenv() 1565s [00:52:45.483] names <- names(envs) 1565s [00:52:45.483] common <- intersect(names, old_names) 1565s [00:52:45.483] added <- setdiff(names, old_names) 1565s [00:52:45.483] removed <- setdiff(old_names, names) 1565s [00:52:45.483] changed <- common[...future.oldEnvVars[common] != 1565s [00:52:45.483] envs[common]] 1565s [00:52:45.483] NAMES <- toupper(changed) 1565s [00:52:45.483] args <- list() 1565s [00:52:45.483] for (kk in seq_along(NAMES)) { 1565s [00:52:45.483] name <- changed[[kk]] 1565s [00:52:45.483] NAME <- NAMES[[kk]] 1565s [00:52:45.483] if (name != NAME && is.element(NAME, old_names)) 1565s [00:52:45.483] next 1565s [00:52:45.483] args[[name]] <- ...future.oldEnvVars[[name]] 1565s [00:52:45.483] } 1565s [00:52:45.483] NAMES <- toupper(added) 1565s [00:52:45.483] for (kk in seq_along(NAMES)) { 1565s [00:52:45.483] name <- added[[kk]] 1565s [00:52:45.483] NAME <- NAMES[[kk]] 1565s [00:52:45.483] if (name != NAME && is.element(NAME, old_names)) 1565s [00:52:45.483] next 1565s [00:52:45.483] args[[name]] <- "" 1565s [00:52:45.483] } 1565s [00:52:45.483] NAMES <- toupper(removed) 1565s [00:52:45.483] for (kk in seq_along(NAMES)) { 1565s [00:52:45.483] name <- removed[[kk]] 1565s [00:52:45.483] NAME <- NAMES[[kk]] 1565s [00:52:45.483] if (name != NAME && is.element(NAME, old_names)) 1565s [00:52:45.483] next 1565s [00:52:45.483] args[[name]] <- ...future.oldEnvVars[[name]] 1565s [00:52:45.483] } 1565s [00:52:45.483] if (length(args) > 0) 1565s [00:52:45.483] base::do.call(base::Sys.setenv, args = args) 1565s [00:52:45.483] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1565s [00:52:45.483] } 1565s [00:52:45.483] else { 1565s [00:52:45.483] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1565s [00:52:45.483] } 1565s [00:52:45.483] { 1565s [00:52:45.483] if (base::length(...future.futureOptionsAdded) > 1565s [00:52:45.483] 0L) { 1565s [00:52:45.483] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1565s [00:52:45.483] base::names(opts) <- ...future.futureOptionsAdded 1565s [00:52:45.483] base::options(opts) 1565s [00:52:45.483] } 1565s [00:52:45.483] { 1565s [00:52:45.483] { 1565s [00:52:45.483] base::assign(".Random.seed", c(10407L, -382282299L, 1565s [00:52:45.483] 1034641276L, 1208955163L, 111066171L, -1038049056L, 1565s [00:52:45.483] 1660567600L), envir = base::globalenv(), 1565s [00:52:45.483] inherits = FALSE) 1565s [00:52:45.483] NULL 1565s [00:52:45.483] } 1565s [00:52:45.483] options(future.plan = NULL) 1565s [00:52:45.483] if (is.na(NA_character_)) 1565s [00:52:45.483] Sys.unsetenv("R_FUTURE_PLAN") 1565s [00:52:45.483] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1565s [00:52:45.483] future::plan(list(function (..., workers = availableCores(), 1565s [00:52:45.483] lazy = FALSE, rscript_libs = .libPaths(), 1565s [00:52:45.483] envir = parent.frame()) 1565s [00:52:45.483] { 1565s [00:52:45.483] if (is.function(workers)) 1565s [00:52:45.483] workers <- workers() 1565s [00:52:45.483] workers <- structure(as.integer(workers), 1565s [00:52:45.483] class = class(workers)) 1565s [00:52:45.483] stop_if_not(length(workers) == 1, is.finite(workers), 1565s [00:52:45.483] workers >= 1) 1565s [00:52:45.483] if (workers == 1L && !inherits(workers, "AsIs")) { 1565s [00:52:45.483] return(sequential(..., lazy = TRUE, envir = envir)) 1565s [00:52:45.483] } 1565s [00:52:45.483] future <- MultisessionFuture(..., workers = workers, 1565s [00:52:45.483] lazy = lazy, rscript_libs = rscript_libs, 1565s [00:52:45.483] envir = envir) 1565s [00:52:45.483] if (!future$lazy) 1565s [00:52:45.483] future <- run(future) 1565s [00:52:45.483] invisible(future) 1565s [00:52:45.483] }), .cleanup = FALSE, .init = FALSE) 1565s [00:52:45.483] } 1565s [00:52:45.483] } 1565s [00:52:45.483] } 1565s [00:52:45.483] }) 1565s [00:52:45.483] if (TRUE) { 1565s [00:52:45.483] base::sink(type = "output", split = FALSE) 1565s [00:52:45.483] if (TRUE) { 1565s [00:52:45.483] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1565s [00:52:45.483] } 1565s [00:52:45.483] else { 1565s [00:52:45.483] ...future.result["stdout"] <- base::list(NULL) 1565s [00:52:45.483] } 1565s [00:52:45.483] base::close(...future.stdout) 1565s [00:52:45.483] ...future.stdout <- NULL 1565s [00:52:45.483] } 1565s [00:52:45.483] ...future.result$conditions <- ...future.conditions 1565s [00:52:45.483] ...future.result$finished <- base::Sys.time() 1565s [00:52:45.483] ...future.result 1565s [00:52:45.483] } 1565s [00:52:45.489] assign_globals() ... 1565s [00:52:45.490] List of 5 1565s [00:52:45.490] $ ...future.FUN :function (x) 1565s [00:52:45.490] $ MoreArgs : NULL 1565s [00:52:45.490] $ ...future.elements_ii :List of 1 1565s [00:52:45.490] ..$ :List of 2 1565s [00:52:45.490] .. ..$ a: num 0 1565s [00:52:45.490] .. ..$ b: num 0 1565s [00:52:45.490] $ ...future.seeds_ii : NULL 1565s [00:52:45.490] $ ...future.globals.maxSize: NULL 1565s [00:52:45.490] - attr(*, "where")=List of 5 1565s [00:52:45.490] ..$ ...future.FUN : 1565s [00:52:45.490] ..$ MoreArgs : 1565s [00:52:45.490] ..$ ...future.elements_ii : 1565s [00:52:45.490] ..$ ...future.seeds_ii : 1565s [00:52:45.490] ..$ ...future.globals.maxSize: 1565s [00:52:45.490] - attr(*, "resolved")= logi FALSE 1565s [00:52:45.490] - attr(*, "total_size")= num 960 1565s [00:52:45.490] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1565s [00:52:45.490] - attr(*, "already-done")= logi TRUE 1565s [00:52:45.499] - copied ‘...future.FUN’ to environment 1565s [00:52:45.499] - copied ‘MoreArgs’ to environment 1565s [00:52:45.499] - copied ‘...future.elements_ii’ to environment 1565s [00:52:45.499] - copied ‘...future.seeds_ii’ to environment 1565s [00:52:45.499] - copied ‘...future.globals.maxSize’ to environment 1565s [00:52:45.500] assign_globals() ... done 1565s [00:52:45.500] plan(): Setting new future strategy stack: 1565s [00:52:45.500] List of future strategies: 1565s [00:52:45.500] 1. sequential: 1565s [00:52:45.500] - args: function (..., envir = parent.frame()) 1565s [00:52:45.500] - tweaked: FALSE 1565s [00:52:45.500] - call: NULL 1565s [00:52:45.501] plan(): nbrOfWorkers() = 1 1565s [00:52:45.502] plan(): Setting new future strategy stack: 1565s [00:52:45.502] List of future strategies: 1565s [00:52:45.502] 1. multisession: 1565s [00:52:45.502] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1565s [00:52:45.502] - tweaked: FALSE 1565s [00:52:45.502] - call: plan(strategy) 1565s [00:52:45.506] plan(): nbrOfWorkers() = 1 1565s [00:52:45.507] SequentialFuture started (and completed) 1565s [00:52:45.507] - Launch lazy future ... done 1565s [00:52:45.507] run() for ‘SequentialFuture’ ... done 1565s [00:52:45.507] Created future: 1565s [00:52:45.507] SequentialFuture: 1565s [00:52:45.507] Label: ‘future_mapply-1’ 1565s [00:52:45.507] Expression: 1565s [00:52:45.507] { 1565s [00:52:45.507] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1565s [00:52:45.507] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1565s [00:52:45.507] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1565s [00:52:45.507] on.exit(options(oopts), add = TRUE) 1565s [00:52:45.507] } 1565s [00:52:45.507] { 1565s [00:52:45.507] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1565s [00:52:45.507] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1565s [00:52:45.507] do.call(mapply, args = args) 1565s [00:52:45.507] } 1565s [00:52:45.507] } 1565s [00:52:45.507] Lazy evaluation: FALSE 1565s [00:52:45.507] Asynchronous evaluation: FALSE 1565s [00:52:45.507] Local evaluation: TRUE 1565s [00:52:45.507] Environment: R_GlobalEnv 1565s [00:52:45.507] Capture standard output: TRUE 1565s [00:52:45.507] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1565s [00:52:45.507] Globals: 5 objects totaling 960 bytes (function ‘...future.FUN’ of 848 bytes, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1565s [00:52:45.507] Packages: 1565s [00:52:45.507] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1565s [00:52:45.507] Resolved: TRUE 1565s [00:52:45.507] Value: 112 bytes of class ‘list’ 1565s [00:52:45.507] Early signaling: FALSE 1565s [00:52:45.507] Owner process: c7facf6b-cabf-1bdd-535a-ba27668babca 1565s [00:52:45.507] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1565s [00:52:45.509] Chunk #1 of 1 ... DONE 1565s [00:52:45.510] Launching 1 futures (chunks) ... DONE 1565s > 1565s > message("- Empty input [non parallel] ...") 1565s > y0 <- mapply(search) 1565s > y1 <- future_mapply(search) 1565s > stopifnot(identical(y1, y0)) 1565s > 1565s > y0 <- mapply(list, integer(0L)) 1565s > y1 <- future_mapply(list, integer(0L)) 1565s > stopifnot(identical(y1, y0)) 1565s > 1565s > message("*** future_mapply() - special cases ...") 1565s [00:52:45.510] Resolving 1 futures (chunks) ... 1565s [00:52:45.510] resolve() on list ... 1565s [00:52:45.510] recursive: 0 1565s [00:52:45.511] length: 1 1565s [00:52:45.511] 1565s [00:52:45.511] resolved() for ‘SequentialFuture’ ... 1565s [00:52:45.511] - state: ‘finished’ 1565s [00:52:45.511] - run: TRUE 1565s [00:52:45.512] - result: ‘FutureResult’ 1565s [00:52:45.512] resolved() for ‘SequentialFuture’ ... done 1565s [00:52:45.512] Future #1 1565s [00:52:45.512] signalConditionsASAP(SequentialFuture, pos=1) ... 1565s [00:52:45.512] - nx: 1 1565s [00:52:45.512] - relay: TRUE 1565s [00:52:45.513] - stdout: TRUE 1565s [00:52:45.513] - signal: TRUE 1565s [00:52:45.513] - resignal: FALSE 1565s [00:52:45.513] - force: TRUE 1565s [00:52:45.513] - relayed: [n=1] FALSE 1565s [00:52:45.513] - queued futures: [n=1] FALSE 1565s [00:52:45.513] - until=1 1565s [00:52:45.513] - relaying element #1 1565s [00:52:45.514] - relayed: [n=1] TRUE 1565s [00:52:45.514] - queued futures: [n=1] TRUE 1565s [00:52:45.514] signalConditionsASAP(SequentialFuture, pos=1) ... done 1565s [00:52:45.514] length: 0 (resolved future 1) 1565s [00:52:45.514] Relaying remaining futures 1565s [00:52:45.514] signalConditionsASAP(NULL, pos=0) ... 1565s [00:52:45.514] - nx: 1 1565s [00:52:45.515] - relay: TRUE 1565s [00:52:45.515] - stdout: TRUE 1565s [00:52:45.515] - signal: TRUE 1565s [00:52:45.515] - resignal: FALSE 1565s [00:52:45.515] - force: TRUE 1565s [00:52:45.515] - relayed: [n=1] TRUE 1565s [00:52:45.515] - queued futures: [n=1] TRUE 1565s - flush all 1565s [00:52:45.515] - relayed: [n=1] TRUE 1565s [00:52:45.516] - queued futures: [n=1] TRUE 1565s [00:52:45.516] signalConditionsASAP(NULL, pos=0) ... done 1565s [00:52:45.516] resolve() on list ... DONE 1565s [00:52:45.516] - Number of value chunks collected: 1 1565s [00:52:45.516] Resolving 1 futures (chunks) ... DONE 1565s [00:52:45.516] Reducing values from 1 chunks ... 1565s [00:52:45.516] - Number of values collected after concatenation: 2 1565s [00:52:45.516] - Number of values expected: 2 1565s [00:52:45.517] Reducing values from 1 chunks ... DONE 1565s [00:52:45.517] future_mapply() ... DONE 1565s [00:52:45.517] plan(): Setting new future strategy stack: 1565s [00:52:45.517] List of future strategies: 1565s [00:52:45.517] 1. sequential: 1565s [00:52:45.517] - args: function (..., envir = parent.frame()) 1565s [00:52:45.517] - tweaked: FALSE 1565s [00:52:45.517] - call: plan(sequential) 1565s [00:52:45.518] plan(): nbrOfWorkers() = 1 1565s *** strategy = ‘multisession’ ... done 1565s - Empty input [non parallel] ... 1565s > 1565s > X <- list() 1565s > names(X) <- character(0L) 1565s > 1565s > y <- future_mapply(FUN = identity, X) 1565s > *** future_mapply() - special cases ... 1565s stopifnot(length(y) == 0L, !is.null(names(y)), identical(y, X)) 1565s > 1565s > y <- future_mapply(FUN = identity, X, X) 1565s > stopifnot(length(y) == 0L, !is.null(names(y)), identical(y, X)) 1565s > 1565s > message("*** future_mapply() - special cases ... DONE") 1565s *** future_mapply() - special cases ... DONE 1565s > 1565s > message("*** future_mapply() ... DONE") 1565s *** future_mapply() ... DONE 1565s > 1565s > source("incl/end.R") 1565s [00:52:45.528] plan(): Setting new future strategy stack: 1565s [00:52:45.529] List of future strategies: 1565s [00:52:45.529] 1. FutureStrategy: 1565s [00:52:45.529] - args: function (..., envir = parent.frame()) 1565s [00:52:45.529] - tweaked: FALSE 1565s [00:52:45.529] - call: future::plan(oplan) 1565s [00:52:45.529] plan(): nbrOfWorkers() = 1 1565s > 1565s BEGIN TEST future_replicate.R 1565s 1565s R version 4.3.3 (2024-02-29) -- "Angel Food Cake" 1565s Copyright (C) 2024 The R Foundation for Statistical Computing 1565s Platform: s390x-ibm-linux-gnu (64-bit) 1565s 1565s R is free software and comes with ABSOLUTELY NO WARRANTY. 1565s You are welcome to redistribute it under certain conditions. 1565s Type 'license()' or 'licence()' for distribution details. 1565s 1565s R is a collaborative project with many contributors. 1565s Type 'contributors()' for more information and 1565s 'citation()' on how to cite R or R packages in publications. 1565s 1565s Type 'demo()' for some demos, 'help()' for on-line help, or 1565s 'help.start()' for an HTML browser interface to help. 1565s Type 'q()' to quit R. 1565s 1565s > source("incl/start.R") 1565s Loading required package: future 1565s [00:52:45.928] plan(): Setting new future strategy stack: 1565s [00:52:45.929] List of future strategies: 1565s [00:52:45.929] 1. sequential: 1565s [00:52:45.929] - args: function (..., envir = parent.frame()) 1565s [00:52:45.929] - tweaked: FALSE 1565s [00:52:45.929] - call: future::plan("sequential") 1565s [00:52:45.952] plan(): nbrOfWorkers() = 1 1565s > 1565s > message("*** future_replicate() ...") 1565s *** future_replicate() ... 1565s > 1565s > for (strategy in supportedStrategies()) { 1565s + message(sprintf("*** strategy = %s ...", sQuote(strategy))) 1565s + plan(strategy) 1565s + 1565s + y0 <- replicate(5L, sample(10L, size = 1L)) 1565s + y1 <- future_replicate(5L, sample(10L, size = 1L)) 1565s + stopifnot(length(y0) == length(y1)) 1565s + 1565s + set.seed(0xBEEF) 1566s + y1 <- future_replicate(5L, sample(10L, size = 1L)) 1566s + set.seed(0xBEEF) 1566s + y2 <- future_replicate(5L, sample(10L, size = 1L)) 1566s + stopifnot(all.equal(y2, y1)) 1566s + 1566s + y3 <- future_replicate(5L, sample(10L, size = 1L), future.seed = 0xBEEF) 1566s + y4 <- future_replicate(5L, sample(10L, size = 1L), future.seed = 0xBEEF) 1566s + stopifnot(all.equal(y4, y3)) 1566s + 1566s + 1566s + message("- example(replicate) ...") 1566s + 1566s + foo <- function(x = 1, y = 2) c(x, y) 1566s + bar0 <- function(n, x) replicate(n, foo(x = x)) 1566s + y0 <- bar0(5, x = 3) 1566s + 1566s + bar1 <- function(n, x) future_replicate(n, foo(x = x)) 1566s + y1 <- bar1(5, x = 3) 1566s + stopifnot(all.equal(y1, y0)) 1566s + 1566s + plan(sequential) 1566s + message(sprintf("*** strategy = %s ... done", sQuote(strategy))) 1566s + } ## for (strategy in ...) 1566s *** strategy = ‘sequential’ ... 1566s [00:52:45.992] plan(): Setting new future strategy stack: 1566s [00:52:45.992] List of future strategies: 1566s [00:52:45.992] 1. sequential: 1566s [00:52:45.992] - args: function (..., envir = parent.frame()) 1566s [00:52:45.992] - tweaked: FALSE 1566s [00:52:45.992] - call: plan(strategy) 1566s [00:52:46.015] plan(): nbrOfWorkers() = 1 1566s [00:52:46.017] future_lapply() ... 1566s [00:52:46.026] Generating random seeds ... 1566s [00:52:46.026] Generating random seed streams for 5 elements ... 1566s [00:52:46.027] Generating random seed streams for 5 elements ... DONE 1566s [00:52:46.027] Generating random seeds ... DONE 1566s [00:52:46.027] Will set RNG state on exit: 10403, 8, -1555484687, 864598304, 153495486, 989620169, -415570053, 1543781706, 1209375148, -1851599697, -1290637723, -594561508, 277801074, -975941907, -996125913, 94523214, -503175256, 874714027, 99668169, 1813715160, 737928582, -434840479, 1448431091, -152662942, -684111148, 638278615, -880758323, -216103580, -179523254, 720574645, -351670257, 1610950934, 1817875392, -663978109, -1624871519, 1747702160, -1018004882, 108035097, 2040070315, 1661846682, -694643620, -992071329, 894071605, -823028020, -1186716638, 72169085, -276665481, 1222747294, 1148486488, -1775032645, 338528345, -1554990104, -2107990506, -1535729263, -1556655549, 2133086546, -1537874460, -1935152089, -1847936899, 1705239924, -933885606, -834625627, 240582591, 1035244614, -52784432, 1075707123, -41969135, -739607488, 223195166, 2098015977, -3961829, -423672790, 598153036, 1799679247, -1519480763, -417302020, -1171351470, -91627059, 1480262535, 681305710, -1938020792, -1341833141, -1361802839, 1472341240, 362254374, -871407295, -1905434925, -1010923902, -1449358156, -2088651721, -933693651, -444238780, -2053539478, -206875179, 2035889007, 843950710, 1718177184, -399295901, 932539137, 883589744, -1091011058, -1925179783, -1323671029, -1115874502, -1151614404, 1423606143, -1893725483, 584649452, 2076343362, -106572899, 644999703, 925151102, 1656454456, 1237957147, 1629365113, -1151658552, 158484982, 2009398321, 1157889635, 1167327794, -1848078460, 347741639, -1804176227, 1186624532, -374500678, -1712983291, 241961183, 683667814, -46910224, -756170733, 1500472753, 21979232, -554947074, 211597705, -136081733, -1471427958, 942060908, 2104890095, -2087285467, 2095881180, 1519581618, 2006808749, -765515673, -84443250, 1441605736, -1905953685, 1877745161, -1077518184, 206572486, 965164833, -1618572365, -139123934, -270109420, 2109388183, 888278413, -342291292, -2010304886, -148052747, 2123733839, -1483922346, -1930713344, 1602921027, -80676383, -1170236080, -518204498, 1659523417, -549744789, -401572134, 331321244, -888753249, -1157932555, -1462281076, 1652843874, -1706231491, 1774719415, 1927190110, 2048737176, 1097142011, -1309153639, -149745880, -1033656874, 1477323345, -1660026621, -421978990, 630837796, -1483150105, -562036419, 1603990964, 1893313050, 610390373, 1115635711, 900535942, -429953520, -67881805, -1202172079, 1572627200, -1106019874, -1839586775, -1991355941, -1266794774, -1141535604, -1446218801, 678300549, -2085853124, 551774482, 621264397, 730213703, 1919821614, 1781062280, 22629259, -185431191, 1678689592, -1154431002, 1646465, 1445951251, -1223974718, 1220885364, -1403140233, -963829651, -108757244, -225558998, -376802411, -1891444689, -461934282, 2004062560, -1336528989, 1270044865, -470808400, 637573070, -742806750, -2035541496, 2036410636, -257746532, -429061614, -1293090944, 1586391828, 809947432, -485926854, 2020301776, 1687875180, 1655345716, -252246382, -229364384, -2018211508, -2078014496, 147812770, -1920853592, 261838476, 42765756, 522617458, 757697520, -1028427196, -2111999912, -1858780102, 1027388528, -2111802308, -563301100, -1492550974, -683338016, 1658039420, 444881616, -1864758878, -1290773464, -1713400052, -110109252, 1146074930, -640041280, -301670348, 1716321992, 658335930, 1722774160, -1045692692, -38196652, -2087194990, -83571424, 160826828, 720690912, 35505346, 1064582184, -1743871060, 657444540, -1193969678, -744502736, -517618780, 659602872, -1488806054, -464519024, -779825284, 1891022100, 24197442, -1974594304, -1429564996, -1484884656, -633650910, 1184551496, 2043974668, -1383247268, -1634462254, 1074376192, 849729876, -478012184, -1713633030, 1001245392, -1970954452, 1280652532, 1679019410, -55951008, -658305012, 1613633760, -472447390, -1489444696, 1312141388, 1776584572, -365572814, 887615088, -30578876, 1961630680, -521730182, 766714928, -1527289924, 288778836, 1731405890, -222095712, 1821692604, 1014194128, 469795170, -2081125656, -974336820, 1528846844, -629345806, 1859422336, -295617036, -221132152, -365320390, -897199792, 246673516, 1016395156, 2079114322, -833580576, 1199816908, -1094153568, 2023442818, 1125371112, 1183060716, -926086852, 1080091762, -1373434256, -1922890204, -1669793736, -1911610086, -1302077232, -1698210500, 679133076, 2076151682, -300458048, -301324740, 1771051408, 1859449890, -512960248, -1639926644, -219700452, -697554798, 551704960, 1217903636, -523694296, -2073110982, -1136352816, 1845334380, -604112972, -1658745326, 1588327392, 903230924, 2047988960, 1718468642, 1975306024, 2024597004, -1796725956, -1207225358, 967133936, -1256289724, -1726380456, 1877100346, 941597680, -2099644740, 593868052, 702910658, 1046084704, -2041120388, -1821448240, -1213126366, 1332100776, -821032052, -460968772, -1872404686, 516067904, 393176244, 812340296, -1117652550, 546999824, 1582627052, 735586644, 1058088722, -511048288, 1722772172, -971364768, -516747326, 955826984, -603816532, -1512828612, -462786702, 44597552, 726638372, 773125432, -1051665702, -138176624, 165778172, -1733927020, 154441794, -428651264, -1522996164, 525860176, -1460868958, -242219192, -1074653428, 1772813020, -1892793518, 589185664, -1829558188, 625753064, 1143109370, 1136273744, 19022636, -1122044044, 356447122, -682174880, 228769676, -1918246048, -35125278, -1829310552, -824058676, -924037636, 2036091826, 1006610928, 1652181444, 327463256, -2104875654, 963965360, -1745956932, 1023332436, -1875868734, 609510432, 1918627004, 82995792, 1519603682, 368768616, 920046156, 1901813991, -1733069135, -2080248586, -1709363436, 1727735845, -1766519505, -410000664, 673963974, 302310003, 541246677, -385956174, 1627774592, 252061289, -2145719589, 239687212, -1093487046, -446533393, -1983628423, -936601586, 1437400540, -1658786227, 634867127, 837198656, -1903791586, 834245867, 1523358829, 1314807002, -746527592, 1240244993, -673904461, -1734450220, 521404130, 1478868855, -2026339647, 1981968966, -1274249852, -177921227, -1646837473, 904685688, 256685398, -1702605853, 1553466789, 1041131586, -676059600, 2028428889, -920037429, -1965864900, 696940138, -1198486369, 1193090345, 1658546622, 1430948012, 610938365, -2053384889, 1315982896, 1698879310, 2104363899, -1702818595, 2145369354, 556288040, -1273930607, -1113675645, 982010244, -2018560078, 1776941319, 1788001105, -1174975786, -403721292, 1058212805, 1170082575, -405628536, -1843069786, 478620755, 977513909, 486589202, 1171951840, -1435232951, -1473689733, 1537073740, 1530588122, 1770324431, -179251303, -397430866, 2031973564, 242584877, 1283784407, 418776864, 438251646, 611898955, 1771187277, 966849146, 723184312, -1491034015, -949034477, -202282956, 1163683394, -280513961, -1396801119, 818070118, 168272484, 51868053, 1732995775, 1118687832, -732101002, 555096707, -656425275, -1374573598, 1001907792, -1338002567, -2058643285, -1813958628, -1649598646, -1219750081, 501000585, -2045265506, -1249415092, -816465379, -851142745, 586590928, -1911440274, 1277002523, -1349518211, 335237738, 268067592, -1464357967, -1327195101, 420214052, 1389203922, -439406041, -1944773519, 407585462, -1241952684, 2088514277, 921825007, -1273591256, -250143098, 973183155, -1463603691, -1772814222, -431051584, 1536172329, 1936349083, -247762836, 772621434, -1581978193, 93744313, -908683570, -483724260, 34695053, 1241051639, 344139008, -1732693154, -587025365, 2222893, 664917914, 1290642776, -101070655, 1077401459, 1579498644, -1184446174, 1868068919, 1397074177, 952482822, -483026364, 1262613365, 1235072735, -20139464, 1672346134, 2134584867, -399070921 1566s [00:52:46.030] Number of chunks: 1 1566s [00:52:46.031] getGlobalsAndPackagesXApply() ... 1566s [00:52:46.031] - future.globals: TRUE 1566s [00:52:46.033] getGlobalsAndPackages() ... 1566s [00:52:46.033] Searching for globals... 1566s [00:52:46.038] - globals found: [2] ‘FUN’, ‘sample’ 1566s [00:52:46.039] Searching for globals ... DONE 1566s [00:52:46.039] Resolving globals: FALSE 1566s [00:52:46.042] The total size of the 1 globals is 616 bytes (616 bytes) 1566s [00:52:46.043] The total size of the 1 globals exported for future expression (‘FUN()’) is 616 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (616 bytes of class ‘function’) 1566s [00:52:46.043] - globals: [1] ‘FUN’ 1566s [00:52:46.044] 1566s [00:52:46.044] getGlobalsAndPackages() ... DONE 1566s [00:52:46.044] - globals found/used: [n=1] ‘FUN’ 1566s [00:52:46.044] - needed namespaces: [n=0] 1566s [00:52:46.044] Finding globals ... DONE 1566s [00:52:46.044] - use_args: TRUE 1566s [00:52:46.044] - Getting '...' globals ... 1566s [00:52:46.047] resolve() on list ... 1566s [00:52:46.047] recursive: 0 1566s [00:52:46.048] length: 1 1566s [00:52:46.048] elements: ‘...’ 1566s [00:52:46.049] length: 0 (resolved future 1) 1566s [00:52:46.049] resolve() on list ... DONE 1566s [00:52:46.049] - '...' content: [n=0] 1566s [00:52:46.049] List of 1 1566s [00:52:46.049] $ ...: list() 1566s [00:52:46.049] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1566s [00:52:46.049] - attr(*, "where")=List of 1 1566s [00:52:46.049] ..$ ...: 1566s [00:52:46.049] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1566s [00:52:46.049] - attr(*, "resolved")= logi TRUE 1566s [00:52:46.049] - attr(*, "total_size")= num NA 1566s [00:52:46.058] - Getting '...' globals ... DONE 1566s [00:52:46.058] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1566s [00:52:46.058] List of 2 1566s [00:52:46.058] $ ...future.FUN:function (...) 1566s [00:52:46.058] $ ... : list() 1566s [00:52:46.058] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1566s [00:52:46.058] - attr(*, "where")=List of 2 1566s [00:52:46.058] ..$ ...future.FUN: 1566s [00:52:46.058] ..$ ... : 1566s [00:52:46.058] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1566s [00:52:46.058] - attr(*, "resolved")= logi FALSE 1566s [00:52:46.058] - attr(*, "total_size")= num 616 1566s [00:52:46.063] Packages to be attached in all futures: [n=0] 1566s [00:52:46.063] getGlobalsAndPackagesXApply() ... DONE 1566s [00:52:46.064] Number of futures (= number of chunks): 1 1566s [00:52:46.064] Launching 1 futures (chunks) ... 1566s [00:52:46.064] Chunk #1 of 1 ... 1566s [00:52:46.065] - Finding globals in 'X' for chunk #1 ... 1566s [00:52:46.065] getGlobalsAndPackages() ... 1566s [00:52:46.065] Searching for globals... 1566s [00:52:46.066] 1566s [00:52:46.066] Searching for globals ... DONE 1566s [00:52:46.066] - globals: [0] 1566s [00:52:46.066] getGlobalsAndPackages() ... DONE 1566s [00:52:46.066] + additional globals found: [n=0] 1566s [00:52:46.067] + additional namespaces needed: [n=0] 1566s [00:52:46.067] - Finding globals in 'X' for chunk #1 ... DONE 1566s [00:52:46.067] - seeds: [5] 1566s [00:52:46.067] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1566s [00:52:46.067] getGlobalsAndPackages() ... 1566s [00:52:46.068] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1566s [00:52:46.068] Resolving globals: FALSE 1566s [00:52:46.068] Tweak future expression to call with '...' arguments ... 1566s [00:52:46.069] { 1566s [00:52:46.069] do.call(function(...) { 1566s [00:52:46.069] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1566s [00:52:46.069] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1566s [00:52:46.069] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1566s [00:52:46.069] on.exit(options(oopts), add = TRUE) 1566s [00:52:46.069] } 1566s [00:52:46.069] { 1566s [00:52:46.069] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1566s [00:52:46.069] ...future.X_jj <- ...future.elements_ii[[jj]] 1566s [00:52:46.069] assign(".Random.seed", ...future.seeds_ii[[jj]], 1566s [00:52:46.069] envir = globalenv(), inherits = FALSE) 1566s [00:52:46.069] ...future.FUN(...future.X_jj, ...) 1566s [00:52:46.069] }) 1566s [00:52:46.069] } 1566s [00:52:46.069] }, args = future.call.arguments) 1566s [00:52:46.069] } 1566s [00:52:46.070] Tweak future expression to call with '...' arguments ... DONE 1566s [00:52:46.070] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1566s [00:52:46.071] 1566s [00:52:46.071] getGlobalsAndPackages() ... DONE 1566s [00:52:46.072] run() for ‘Future’ ... 1566s [00:52:46.078] - state: ‘created’ 1566s [00:52:46.079] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1566s [00:52:46.081] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1566s [00:52:46.081] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1566s [00:52:46.082] - Field: ‘label’ 1566s [00:52:46.082] - Field: ‘local’ 1566s [00:52:46.082] - Field: ‘owner’ 1566s [00:52:46.083] - Field: ‘envir’ 1566s [00:52:46.083] - Field: ‘packages’ 1566s [00:52:46.084] - Field: ‘gc’ 1566s [00:52:46.084] - Field: ‘conditions’ 1566s [00:52:46.085] - Field: ‘expr’ 1566s [00:52:46.085] - Field: ‘uuid’ 1566s [00:52:46.085] - Field: ‘seed’ 1566s [00:52:46.086] - Field: ‘version’ 1566s [00:52:46.086] - Field: ‘result’ 1566s [00:52:46.086] - Field: ‘asynchronous’ 1566s [00:52:46.087] - Field: ‘calls’ 1566s [00:52:46.087] - Field: ‘globals’ 1566s [00:52:46.087] - Field: ‘stdout’ 1566s [00:52:46.087] - Field: ‘earlySignal’ 1566s [00:52:46.088] - Field: ‘lazy’ 1566s [00:52:46.088] - Field: ‘state’ 1566s [00:52:46.088] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1566s [00:52:46.089] - Launch lazy future ... 1566s [00:52:46.091] Packages needed by the future expression (n = 0): 1566s [00:52:46.091] Packages needed by future strategies (n = 0): 1566s [00:52:46.093] { 1566s [00:52:46.093] { 1566s [00:52:46.093] { 1566s [00:52:46.093] ...future.startTime <- base::Sys.time() 1566s [00:52:46.093] { 1566s [00:52:46.093] { 1566s [00:52:46.093] { 1566s [00:52:46.093] base::local({ 1566s [00:52:46.093] has_future <- base::requireNamespace("future", 1566s [00:52:46.093] quietly = TRUE) 1566s [00:52:46.093] if (has_future) { 1566s [00:52:46.093] ns <- base::getNamespace("future") 1566s [00:52:46.093] version <- ns[[".package"]][["version"]] 1566s [00:52:46.093] if (is.null(version)) 1566s [00:52:46.093] version <- utils::packageVersion("future") 1566s [00:52:46.093] } 1566s [00:52:46.093] else { 1566s [00:52:46.093] version <- NULL 1566s [00:52:46.093] } 1566s [00:52:46.093] if (!has_future || version < "1.8.0") { 1566s [00:52:46.093] info <- base::c(r_version = base::gsub("R version ", 1566s [00:52:46.093] "", base::R.version$version.string), 1566s [00:52:46.093] platform = base::sprintf("%s (%s-bit)", 1566s [00:52:46.093] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1566s [00:52:46.093] os = base::paste(base::Sys.info()[base::c("sysname", 1566s [00:52:46.093] "release", "version")], collapse = " "), 1566s [00:52:46.093] hostname = base::Sys.info()[["nodename"]]) 1566s [00:52:46.093] info <- base::sprintf("%s: %s", base::names(info), 1566s [00:52:46.093] info) 1566s [00:52:46.093] info <- base::paste(info, collapse = "; ") 1566s [00:52:46.093] if (!has_future) { 1566s [00:52:46.093] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1566s [00:52:46.093] info) 1566s [00:52:46.093] } 1566s [00:52:46.093] else { 1566s [00:52:46.093] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1566s [00:52:46.093] info, version) 1566s [00:52:46.093] } 1566s [00:52:46.093] base::stop(msg) 1566s [00:52:46.093] } 1566s [00:52:46.093] }) 1566s [00:52:46.093] } 1566s [00:52:46.093] options(future.plan = NULL) 1566s [00:52:46.093] Sys.unsetenv("R_FUTURE_PLAN") 1566s [00:52:46.093] future::plan("default", .cleanup = FALSE, .init = FALSE) 1566s [00:52:46.093] } 1566s [00:52:46.093] ...future.workdir <- getwd() 1566s [00:52:46.093] } 1566s [00:52:46.093] ...future.oldOptions <- base::as.list(base::.Options) 1566s [00:52:46.093] ...future.oldEnvVars <- base::Sys.getenv() 1566s [00:52:46.093] } 1566s [00:52:46.093] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1566s [00:52:46.093] future.globals.maxSize = NULL, future.globals.method = NULL, 1566s [00:52:46.093] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1566s [00:52:46.093] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1566s [00:52:46.093] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1566s [00:52:46.093] future.stdout.windows.reencode = NULL, width = 80L) 1566s [00:52:46.093] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1566s [00:52:46.093] base::names(...future.oldOptions)) 1566s [00:52:46.093] } 1566s [00:52:46.093] if (FALSE) { 1566s [00:52:46.093] } 1566s [00:52:46.093] else { 1566s [00:52:46.093] if (TRUE) { 1566s [00:52:46.093] ...future.stdout <- base::rawConnection(base::raw(0L), 1566s [00:52:46.093] open = "w") 1566s [00:52:46.093] } 1566s [00:52:46.093] else { 1566s [00:52:46.093] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1566s [00:52:46.093] windows = "NUL", "/dev/null"), open = "w") 1566s [00:52:46.093] } 1566s [00:52:46.093] base::sink(...future.stdout, type = "output", split = FALSE) 1566s [00:52:46.093] base::on.exit(if (!base::is.null(...future.stdout)) { 1566s [00:52:46.093] base::sink(type = "output", split = FALSE) 1566s [00:52:46.093] base::close(...future.stdout) 1566s [00:52:46.093] }, add = TRUE) 1566s [00:52:46.093] } 1566s [00:52:46.093] ...future.frame <- base::sys.nframe() 1566s [00:52:46.093] ...future.conditions <- base::list() 1566s [00:52:46.093] ...future.rng <- base::globalenv()$.Random.seed 1566s [00:52:46.093] if (FALSE) { 1566s [00:52:46.093] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1566s [00:52:46.093] "...future.value", "...future.globalenv.names", ".Random.seed") 1566s [00:52:46.093] } 1566s [00:52:46.093] ...future.result <- base::tryCatch({ 1566s [00:52:46.093] base::withCallingHandlers({ 1566s [00:52:46.093] ...future.value <- base::withVisible(base::local({ 1566s [00:52:46.093] do.call(function(...) { 1566s [00:52:46.093] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1566s [00:52:46.093] if (!identical(...future.globals.maxSize.org, 1566s [00:52:46.093] ...future.globals.maxSize)) { 1566s [00:52:46.093] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1566s [00:52:46.093] on.exit(options(oopts), add = TRUE) 1566s [00:52:46.093] } 1566s [00:52:46.093] { 1566s [00:52:46.093] lapply(seq_along(...future.elements_ii), 1566s [00:52:46.093] FUN = function(jj) { 1566s [00:52:46.093] ...future.X_jj <- ...future.elements_ii[[jj]] 1566s [00:52:46.093] assign(".Random.seed", ...future.seeds_ii[[jj]], 1566s [00:52:46.093] envir = globalenv(), inherits = FALSE) 1566s [00:52:46.093] ...future.FUN(...future.X_jj, ...) 1566s [00:52:46.093] }) 1566s [00:52:46.093] } 1566s [00:52:46.093] }, args = future.call.arguments) 1566s [00:52:46.093] })) 1566s [00:52:46.093] future::FutureResult(value = ...future.value$value, 1566s [00:52:46.093] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1566s [00:52:46.093] ...future.rng), globalenv = if (FALSE) 1566s [00:52:46.093] list(added = base::setdiff(base::names(base::.GlobalEnv), 1566s [00:52:46.093] ...future.globalenv.names)) 1566s [00:52:46.093] else NULL, started = ...future.startTime, version = "1.8") 1566s [00:52:46.093] }, condition = base::local({ 1566s [00:52:46.093] c <- base::c 1566s [00:52:46.093] inherits <- base::inherits 1566s [00:52:46.093] invokeRestart <- base::invokeRestart 1566s [00:52:46.093] length <- base::length 1566s [00:52:46.093] list <- base::list 1566s [00:52:46.093] seq.int <- base::seq.int 1566s [00:52:46.093] signalCondition <- base::signalCondition 1566s [00:52:46.093] sys.calls <- base::sys.calls 1566s [00:52:46.093] `[[` <- base::`[[` 1566s [00:52:46.093] `+` <- base::`+` 1566s [00:52:46.093] `<<-` <- base::`<<-` 1566s [00:52:46.093] sysCalls <- function(calls = sys.calls(), from = 1L) { 1566s [00:52:46.093] calls[seq.int(from = from + 12L, to = length(calls) - 1566s [00:52:46.093] 3L)] 1566s [00:52:46.093] } 1566s [00:52:46.093] function(cond) { 1566s [00:52:46.093] is_error <- inherits(cond, "error") 1566s [00:52:46.093] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1566s [00:52:46.093] NULL) 1566s [00:52:46.093] if (is_error) { 1566s [00:52:46.093] sessionInformation <- function() { 1566s [00:52:46.093] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1566s [00:52:46.093] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1566s [00:52:46.093] search = base::search(), system = base::Sys.info()) 1566s [00:52:46.093] } 1566s [00:52:46.093] ...future.conditions[[length(...future.conditions) + 1566s [00:52:46.093] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1566s [00:52:46.093] cond$call), session = sessionInformation(), 1566s [00:52:46.093] timestamp = base::Sys.time(), signaled = 0L) 1566s [00:52:46.093] signalCondition(cond) 1566s [00:52:46.093] } 1566s [00:52:46.093] else if (!ignore && TRUE && inherits(cond, c("condition", 1566s [00:52:46.093] "immediateCondition"))) { 1566s [00:52:46.093] signal <- TRUE && inherits(cond, "immediateCondition") 1566s [00:52:46.093] ...future.conditions[[length(...future.conditions) + 1566s [00:52:46.093] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1566s [00:52:46.093] if (TRUE && !signal) { 1566s [00:52:46.093] muffleCondition <- function (cond, pattern = "^muffle") 1566s [00:52:46.093] { 1566s [00:52:46.093] inherits <- base::inherits 1566s [00:52:46.093] invokeRestart <- base::invokeRestart 1566s [00:52:46.093] is.null <- base::is.null 1566s [00:52:46.093] muffled <- FALSE 1566s [00:52:46.093] if (inherits(cond, "message")) { 1566s [00:52:46.093] muffled <- grepl(pattern, "muffleMessage") 1566s [00:52:46.093] if (muffled) 1566s [00:52:46.093] invokeRestart("muffleMessage") 1566s [00:52:46.093] } 1566s [00:52:46.093] else if (inherits(cond, "warning")) { 1566s [00:52:46.093] muffled <- grepl(pattern, "muffleWarning") 1566s [00:52:46.093] if (muffled) 1566s [00:52:46.093] invokeRestart("muffleWarning") 1566s [00:52:46.093] } 1566s [00:52:46.093] else if (inherits(cond, "condition")) { 1566s [00:52:46.093] if (!is.null(pattern)) { 1566s [00:52:46.093] computeRestarts <- base::computeRestarts 1566s [00:52:46.093] grepl <- base::grepl 1566s [00:52:46.093] restarts <- computeRestarts(cond) 1566s [00:52:46.093] for (restart in restarts) { 1566s [00:52:46.093] name <- restart$name 1566s [00:52:46.093] if (is.null(name)) 1566s [00:52:46.093] next 1566s [00:52:46.093] if (!grepl(pattern, name)) 1566s [00:52:46.093] next 1566s [00:52:46.093] invokeRestart(restart) 1566s [00:52:46.093] muffled <- TRUE 1566s [00:52:46.093] break 1566s [00:52:46.093] } 1566s [00:52:46.093] } 1566s [00:52:46.093] } 1566s [00:52:46.093] invisible(muffled) 1566s [00:52:46.093] } 1566s [00:52:46.093] muffleCondition(cond, pattern = "^muffle") 1566s [00:52:46.093] } 1566s [00:52:46.093] } 1566s [00:52:46.093] else { 1566s [00:52:46.093] if (TRUE) { 1566s [00:52:46.093] muffleCondition <- function (cond, pattern = "^muffle") 1566s [00:52:46.093] { 1566s [00:52:46.093] inherits <- base::inherits 1566s [00:52:46.093] invokeRestart <- base::invokeRestart 1566s [00:52:46.093] is.null <- base::is.null 1566s [00:52:46.093] muffled <- FALSE 1566s [00:52:46.093] if (inherits(cond, "message")) { 1566s [00:52:46.093] muffled <- grepl(pattern, "muffleMessage") 1566s [00:52:46.093] if (muffled) 1566s [00:52:46.093] invokeRestart("muffleMessage") 1566s [00:52:46.093] } 1566s [00:52:46.093] else if (inherits(cond, "warning")) { 1566s [00:52:46.093] muffled <- grepl(pattern, "muffleWarning") 1566s [00:52:46.093] if (muffled) 1566s [00:52:46.093] invokeRestart("muffleWarning") 1566s [00:52:46.093] } 1566s [00:52:46.093] else if (inherits(cond, "condition")) { 1566s [00:52:46.093] if (!is.null(pattern)) { 1566s [00:52:46.093] computeRestarts <- base::computeRestarts 1566s [00:52:46.093] grepl <- base::grepl 1566s [00:52:46.093] restarts <- computeRestarts(cond) 1566s [00:52:46.093] for (restart in restarts) { 1566s [00:52:46.093] name <- restart$name 1566s [00:52:46.093] if (is.null(name)) 1566s [00:52:46.093] next 1566s [00:52:46.093] if (!grepl(pattern, name)) 1566s [00:52:46.093] next 1566s [00:52:46.093] invokeRestart(restart) 1566s [00:52:46.093] muffled <- TRUE 1566s [00:52:46.093] break 1566s [00:52:46.093] } 1566s [00:52:46.093] } 1566s [00:52:46.093] } 1566s [00:52:46.093] invisible(muffled) 1566s [00:52:46.093] } 1566s [00:52:46.093] muffleCondition(cond, pattern = "^muffle") 1566s [00:52:46.093] } 1566s [00:52:46.093] } 1566s [00:52:46.093] } 1566s [00:52:46.093] })) 1566s [00:52:46.093] }, error = function(ex) { 1566s [00:52:46.093] base::structure(base::list(value = NULL, visible = NULL, 1566s [00:52:46.093] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1566s [00:52:46.093] ...future.rng), started = ...future.startTime, 1566s [00:52:46.093] finished = Sys.time(), session_uuid = NA_character_, 1566s [00:52:46.093] version = "1.8"), class = "FutureResult") 1566s [00:52:46.093] }, finally = { 1566s [00:52:46.093] if (!identical(...future.workdir, getwd())) 1566s [00:52:46.093] setwd(...future.workdir) 1566s [00:52:46.093] { 1566s [00:52:46.093] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1566s [00:52:46.093] ...future.oldOptions$nwarnings <- NULL 1566s [00:52:46.093] } 1566s [00:52:46.093] base::options(...future.oldOptions) 1566s [00:52:46.093] if (.Platform$OS.type == "windows") { 1566s [00:52:46.093] old_names <- names(...future.oldEnvVars) 1566s [00:52:46.093] envs <- base::Sys.getenv() 1566s [00:52:46.093] names <- names(envs) 1566s [00:52:46.093] common <- intersect(names, old_names) 1566s [00:52:46.093] added <- setdiff(names, old_names) 1566s [00:52:46.093] removed <- setdiff(old_names, names) 1566s [00:52:46.093] changed <- common[...future.oldEnvVars[common] != 1566s [00:52:46.093] envs[common]] 1566s [00:52:46.093] NAMES <- toupper(changed) 1566s [00:52:46.093] args <- list() 1566s [00:52:46.093] for (kk in seq_along(NAMES)) { 1566s [00:52:46.093] name <- changed[[kk]] 1566s [00:52:46.093] NAME <- NAMES[[kk]] 1566s [00:52:46.093] if (name != NAME && is.element(NAME, old_names)) 1566s [00:52:46.093] next 1566s [00:52:46.093] args[[name]] <- ...future.oldEnvVars[[name]] 1566s [00:52:46.093] } 1566s [00:52:46.093] NAMES <- toupper(added) 1566s [00:52:46.093] for (kk in seq_along(NAMES)) { 1566s [00:52:46.093] name <- added[[kk]] 1566s [00:52:46.093] NAME <- NAMES[[kk]] 1566s [00:52:46.093] if (name != NAME && is.element(NAME, old_names)) 1566s [00:52:46.093] next 1566s [00:52:46.093] args[[name]] <- "" 1566s [00:52:46.093] } 1566s [00:52:46.093] NAMES <- toupper(removed) 1566s [00:52:46.093] for (kk in seq_along(NAMES)) { 1566s [00:52:46.093] name <- removed[[kk]] 1566s [00:52:46.093] NAME <- NAMES[[kk]] 1566s [00:52:46.093] if (name != NAME && is.element(NAME, old_names)) 1566s [00:52:46.093] next 1566s [00:52:46.093] args[[name]] <- ...future.oldEnvVars[[name]] 1566s [00:52:46.093] } 1566s [00:52:46.093] if (length(args) > 0) 1566s [00:52:46.093] base::do.call(base::Sys.setenv, args = args) 1566s [00:52:46.093] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1566s [00:52:46.093] } 1566s [00:52:46.093] else { 1566s [00:52:46.093] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1566s [00:52:46.093] } 1566s [00:52:46.093] { 1566s [00:52:46.093] if (base::length(...future.futureOptionsAdded) > 1566s [00:52:46.093] 0L) { 1566s [00:52:46.093] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1566s [00:52:46.093] base::names(opts) <- ...future.futureOptionsAdded 1566s [00:52:46.093] base::options(opts) 1566s [00:52:46.093] } 1566s [00:52:46.093] { 1566s [00:52:46.093] { 1566s [00:52:46.093] base::assign(".Random.seed", c(10403L, 8L, 1566s [00:52:46.093] -1555484687L, 864598304L, 153495486L, 989620169L, 1566s [00:52:46.093] -415570053L, 1543781706L, 1209375148L, -1851599697L, 1566s [00:52:46.093] -1290637723L, -594561508L, 277801074L, -975941907L, 1566s [00:52:46.093] -996125913L, 94523214L, -503175256L, 874714027L, 1566s [00:52:46.093] 99668169L, 1813715160L, 737928582L, -434840479L, 1566s [00:52:46.093] 1448431091L, -152662942L, -684111148L, 638278615L, 1566s [00:52:46.093] -880758323L, -216103580L, -179523254L, 720574645L, 1566s [00:52:46.093] -351670257L, 1610950934L, 1817875392L, -663978109L, 1566s [00:52:46.093] -1624871519L, 1747702160L, -1018004882L, 1566s [00:52:46.093] 108035097L, 2040070315L, 1661846682L, -694643620L, 1566s [00:52:46.093] -992071329L, 894071605L, -823028020L, -1186716638L, 1566s [00:52:46.093] 72169085L, -276665481L, 1222747294L, 1148486488L, 1566s [00:52:46.093] -1775032645L, 338528345L, -1554990104L, -2107990506L, 1566s [00:52:46.093] -1535729263L, -1556655549L, 2133086546L, 1566s [00:52:46.093] -1537874460L, -1935152089L, -1847936899L, 1566s [00:52:46.093] 1705239924L, -933885606L, -834625627L, 240582591L, 1566s [00:52:46.093] 1035244614L, -52784432L, 1075707123L, -41969135L, 1566s [00:52:46.093] -739607488L, 223195166L, 2098015977L, -3961829L, 1566s [00:52:46.093] -423672790L, 598153036L, 1799679247L, -1519480763L, 1566s [00:52:46.093] -417302020L, -1171351470L, -91627059L, 1480262535L, 1566s [00:52:46.093] 681305710L, -1938020792L, -1341833141L, -1361802839L, 1566s [00:52:46.093] 1472341240L, 362254374L, -871407295L, -1905434925L, 1566s [00:52:46.093] -1010923902L, -1449358156L, -2088651721L, 1566s [00:52:46.093] -933693651L, -444238780L, -2053539478L, -206875179L, 1566s [00:52:46.093] 2035889007L, 843950710L, 1718177184L, -399295901L, 1566s [00:52:46.093] 932539137L, 883589744L, -1091011058L, -1925179783L, 1566s [00:52:46.093] -1323671029L, -1115874502L, -1151614404L, 1566s [00:52:46.093] 1423606143L, -1893725483L, 584649452L, 2076343362L, 1566s [00:52:46.093] -106572899L, 644999703L, 925151102L, 1656454456L, 1566s [00:52:46.093] 1237957147L, 1629365113L, -1151658552L, 158484982L, 1566s [00:52:46.093] 2009398321L, 1157889635L, 1167327794L, -1848078460L, 1566s [00:52:46.093] 347741639L, -1804176227L, 1186624532L, -374500678L, 1566s [00:52:46.093] -1712983291L, 241961183L, 683667814L, -46910224L, 1566s [00:52:46.093] -756170733L, 1500472753L, 21979232L, -554947074L, 1566s [00:52:46.093] 211597705L, -136081733L, -1471427958L, 942060908L, 1566s [00:52:46.093] 2104890095L, -2087285467L, 2095881180L, 1519581618L, 1566s [00:52:46.093] 2006808749L, -765515673L, -84443250L, 1441605736L, 1566s [00:52:46.093] -1905953685L, 1877745161L, -1077518184L, 1566s [00:52:46.093] 206572486L, 965164833L, -1618572365L, -139123934L, 1566s [00:52:46.093] -270109420L, 2109388183L, 888278413L, -342291292L, 1566s [00:52:46.093] -2010304886L, -148052747L, 2123733839L, -1483922346L, 1566s [00:52:46.093] -1930713344L, 1602921027L, -80676383L, -1170236080L, 1566s [00:52:46.093] -518204498L, 1659523417L, -549744789L, -401572134L, 1566s [00:52:46.093] 331321244L, -888753249L, -1157932555L, -1462281076L, 1566s [00:52:46.093] 1652843874L, -1706231491L, 1774719415L, 1927190110L, 1566s [00:52:46.093] 2048737176L, 1097142011L, -1309153639L, -149745880L, 1566s [00:52:46.093] -1033656874L, 1477323345L, -1660026621L, 1566s [00:52:46.093] -421978990L, 630837796L, -1483150105L, -562036419L, 1566s [00:52:46.093] 1603990964L, 1893313050L, 610390373L, 1115635711L, 1566s [00:52:46.093] 900535942L, -429953520L, -67881805L, -1202172079L, 1566s [00:52:46.093] 1572627200L, -1106019874L, -1839586775L, 1566s [00:52:46.093] -1991355941L, -1266794774L, -1141535604L, 1566s [00:52:46.093] -1446218801L, 678300549L, -2085853124L, 551774482L, 1566s [00:52:46.093] 621264397L, 730213703L, 1919821614L, 1781062280L, 1566s [00:52:46.093] 22629259L, -185431191L, 1678689592L, -1154431002L, 1566s [00:52:46.093] 1646465L, 1445951251L, -1223974718L, 1220885364L, 1566s [00:52:46.093] -1403140233L, -963829651L, -108757244L, -225558998L, 1566s [00:52:46.093] -376802411L, -1891444689L, -461934282L, 2004062560L, 1566s [00:52:46.093] -1336528989L, 1270044865L, -470808400L, 637573070L, 1566s [00:52:46.093] -742806750L, -2035541496L, 2036410636L, -257746532L, 1566s [00:52:46.093] -429061614L, -1293090944L, 1586391828L, 809947432L, 1566s [00:52:46.093] -485926854L, 2020301776L, 1687875180L, 1655345716L, 1566s [00:52:46.093] -252246382L, -229364384L, -2018211508L, -2078014496L, 1566s [00:52:46.093] 147812770L, -1920853592L, 261838476L, 42765756L, 1566s [00:52:46.093] 522617458L, 757697520L, -1028427196L, -2111999912L, 1566s [00:52:46.093] -1858780102L, 1027388528L, -2111802308L, 1566s [00:52:46.093] -563301100L, -1492550974L, -683338016L, 1658039420L, 1566s [00:52:46.093] 444881616L, -1864758878L, -1290773464L, -1713400052L, 1566s [00:52:46.093] -110109252L, 1146074930L, -640041280L, -301670348L, 1566s [00:52:46.093] 1716321992L, 658335930L, 1722774160L, -1045692692L, 1566s [00:52:46.093] -38196652L, -2087194990L, -83571424L, 160826828L, 1566s [00:52:46.093] 720690912L, 35505346L, 1064582184L, -1743871060L, 1566s [00:52:46.093] 657444540L, -1193969678L, -744502736L, -517618780L, 1566s [00:52:46.093] 659602872L, -1488806054L, -464519024L, -779825284L, 1566s [00:52:46.093] 1891022100L, 24197442L, -1974594304L, -1429564996L, 1566s [00:52:46.093] -1484884656L, -633650910L, 1184551496L, 2043974668L, 1566s [00:52:46.093] -1383247268L, -1634462254L, 1074376192L, 1566s [00:52:46.093] 849729876L, -478012184L, -1713633030L, 1001245392L, 1566s [00:52:46.093] -1970954452L, 1280652532L, 1679019410L, -55951008L, 1566s [00:52:46.093] -658305012L, 1613633760L, -472447390L, -1489444696L, 1566s [00:52:46.093] 1312141388L, 1776584572L, -365572814L, 887615088L, 1566s [00:52:46.093] -30578876L, 1961630680L, -521730182L, 766714928L, 1566s [00:52:46.093] -1527289924L, 288778836L, 1731405890L, -222095712L, 1566s [00:52:46.093] 1821692604L, 1014194128L, 469795170L, -2081125656L, 1566s [00:52:46.093] -974336820L, 1528846844L, -629345806L, 1859422336L, 1566s [00:52:46.093] -295617036L, -221132152L, -365320390L, -897199792L, 1566s [00:52:46.093] 246673516L, 1016395156L, 2079114322L, -833580576L, 1566s [00:52:46.093] 1199816908L, -1094153568L, 2023442818L, 1125371112L, 1566s [00:52:46.093] 1183060716L, -926086852L, 1080091762L, -1373434256L, 1566s [00:52:46.093] -1922890204L, -1669793736L, -1911610086L, 1566s [00:52:46.093] -1302077232L, -1698210500L, 679133076L, 2076151682L, 1566s [00:52:46.093] -300458048L, -301324740L, 1771051408L, 1859449890L, 1566s [00:52:46.093] -512960248L, -1639926644L, -219700452L, -697554798L, 1566s [00:52:46.093] 551704960L, 1217903636L, -523694296L, -2073110982L, 1566s [00:52:46.093] -1136352816L, 1845334380L, -604112972L, -1658745326L, 1566s [00:52:46.093] 1588327392L, 903230924L, 2047988960L, 1718468642L, 1566s [00:52:46.093] 1975306024L, 2024597004L, -1796725956L, -1207225358L, 1566s [00:52:46.093] 967133936L, -1256289724L, -1726380456L, 1877100346L, 1566s [00:52:46.093] 941597680L, -2099644740L, 593868052L, 702910658L, 1566s [00:52:46.093] 1046084704L, -2041120388L, -1821448240L, 1566s [00:52:46.093] -1213126366L, 1332100776L, -821032052L, -460968772L, 1566s [00:52:46.093] -1872404686L, 516067904L, 393176244L, 812340296L, 1566s [00:52:46.093] -1117652550L, 546999824L, 1582627052L, 735586644L, 1566s [00:52:46.093] 1058088722L, -511048288L, 1722772172L, -971364768L, 1566s [00:52:46.093] -516747326L, 955826984L, -603816532L, -1512828612L, 1566s [00:52:46.093] -462786702L, 44597552L, 726638372L, 773125432L, 1566s [00:52:46.093] -1051665702L, -138176624L, 165778172L, -1733927020L, 1566s [00:52:46.093] 154441794L, -428651264L, -1522996164L, 525860176L, 1566s [00:52:46.093] -1460868958L, -242219192L, -1074653428L, 1566s [00:52:46.093] 1772813020L, -1892793518L, 589185664L, -1829558188L, 1566s [00:52:46.093] 625753064L, 1143109370L, 1136273744L, 19022636L, 1566s [00:52:46.093] -1122044044L, 356447122L, -682174880L, 228769676L, 1566s [00:52:46.093] -1918246048L, -35125278L, -1829310552L, -824058676L, 1566s [00:52:46.093] -924037636L, 2036091826L, 1006610928L, 1652181444L, 1566s [00:52:46.093] 327463256L, -2104875654L, 963965360L, -1745956932L, 1566s [00:52:46.093] 1023332436L, -1875868734L, 609510432L, 1918627004L, 1566s [00:52:46.093] 82995792L, 1519603682L, 368768616L, 920046156L, 1566s [00:52:46.093] 1901813991L, -1733069135L, -2080248586L, 1566s [00:52:46.093] -1709363436L, 1727735845L, -1766519505L, 1566s [00:52:46.093] -410000664L, 673963974L, 302310003L, 541246677L, 1566s [00:52:46.093] -385956174L, 1627774592L, 252061289L, -2145719589L, 1566s [00:52:46.093] 239687212L, -1093487046L, -446533393L, -1983628423L, 1566s [00:52:46.093] -936601586L, 1437400540L, -1658786227L, 634867127L, 1566s [00:52:46.093] 837198656L, -1903791586L, 834245867L, 1523358829L, 1566s [00:52:46.093] 1314807002L, -746527592L, 1240244993L, -673904461L, 1566s [00:52:46.093] -1734450220L, 521404130L, 1478868855L, -2026339647L, 1566s [00:52:46.093] 1981968966L, -1274249852L, -177921227L, -1646837473L, 1566s [00:52:46.093] 904685688L, 256685398L, -1702605853L, 1553466789L, 1566s [00:52:46.093] 1041131586L, -676059600L, 2028428889L, -920037429L, 1566s [00:52:46.093] -1965864900L, 696940138L, -1198486369L, 1193090345L, 1566s [00:52:46.093] 1658546622L, 1430948012L, 610938365L, -2053384889L, 1566s [00:52:46.093] 1315982896L, 1698879310L, 2104363899L, -1702818595L, 1566s [00:52:46.093] 2145369354L, 556288040L, -1273930607L, -1113675645L, 1566s [00:52:46.093] 982010244L, -2018560078L, 1776941319L, 1788001105L, 1566s [00:52:46.093] -1174975786L, -403721292L, 1058212805L, 1170082575L, 1566s [00:52:46.093] -405628536L, -1843069786L, 478620755L, 977513909L, 1566s [00:52:46.093] 486589202L, 1171951840L, -1435232951L, -1473689733L, 1566s [00:52:46.093] 1537073740L, 1530588122L, 1770324431L, -179251303L, 1566s [00:52:46.093] -397430866L, 2031973564L, 242584877L, 1283784407L, 1566s [00:52:46.093] 418776864L, 438251646L, 611898955L, 1771187277L, 1566s [00:52:46.093] 966849146L, 723184312L, -1491034015L, -949034477L, 1566s [00:52:46.093] -202282956L, 1163683394L, -280513961L, -1396801119L, 1566s [00:52:46.093] 818070118L, 168272484L, 51868053L, 1732995775L, 1566s [00:52:46.093] 1118687832L, -732101002L, 555096707L, -656425275L, 1566s [00:52:46.093] -1374573598L, 1001907792L, -1338002567L, 1566s [00:52:46.093] -2058643285L, -1813958628L, -1649598646L, 1566s [00:52:46.093] -1219750081L, 501000585L, -2045265506L, -1249415092L, 1566s [00:52:46.093] -816465379L, -851142745L, 586590928L, -1911440274L, 1566s [00:52:46.093] 1277002523L, -1349518211L, 335237738L, 268067592L, 1566s [00:52:46.093] -1464357967L, -1327195101L, 420214052L, 1389203922L, 1566s [00:52:46.093] -439406041L, -1944773519L, 407585462L, -1241952684L, 1566s [00:52:46.093] 2088514277L, 921825007L, -1273591256L, -250143098L, 1566s [00:52:46.093] 973183155L, -1463603691L, -1772814222L, -431051584L, 1566s [00:52:46.093] 1536172329L, 1936349083L, -247762836L, 772621434L, 1566s [00:52:46.093] -1581978193L, 93744313L, -908683570L, -483724260L, 1566s [00:52:46.093] 34695053L, 1241051639L, 344139008L, -1732693154L, 1566s [00:52:46.093] -587025365L, 2222893L, 664917914L, 1290642776L, 1566s [00:52:46.093] -101070655L, 1077401459L, 1579498644L, -1184446174L, 1566s [00:52:46.093] 1868068919L, 1397074177L, 952482822L, -483026364L, 1566s [00:52:46.093] 1262613365L, 1235072735L, -20139464L, 1672346134L, 1566s [00:52:46.093] 2134584867L, -399070921L), envir = base::globalenv(), 1566s [00:52:46.093] inherits = FALSE) 1566s [00:52:46.093] NULL 1566s [00:52:46.093] } 1566s [00:52:46.093] options(future.plan = NULL) 1566s [00:52:46.093] if (is.na(NA_character_)) 1566s [00:52:46.093] Sys.unsetenv("R_FUTURE_PLAN") 1566s [00:52:46.093] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1566s [00:52:46.093] future::plan(list(function (..., envir = parent.frame()) 1566s [00:52:46.093] { 1566s [00:52:46.093] future <- SequentialFuture(..., envir = envir) 1566s [00:52:46.093] if (!future$lazy) 1566s [00:52:46.093] future <- run(future) 1566s [00:52:46.093] invisible(future) 1566s [00:52:46.093] }), .cleanup = FALSE, .init = FALSE) 1566s [00:52:46.093] } 1566s [00:52:46.093] } 1566s [00:52:46.093] } 1566s [00:52:46.093] }) 1566s [00:52:46.093] if (TRUE) { 1566s [00:52:46.093] base::sink(type = "output", split = FALSE) 1566s [00:52:46.093] if (TRUE) { 1566s [00:52:46.093] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1566s [00:52:46.093] } 1566s [00:52:46.093] else { 1566s [00:52:46.093] ...future.result["stdout"] <- base::list(NULL) 1566s [00:52:46.093] } 1566s [00:52:46.093] base::close(...future.stdout) 1566s [00:52:46.093] ...future.stdout <- NULL 1566s [00:52:46.093] } 1566s [00:52:46.093] ...future.result$conditions <- ...future.conditions 1566s [00:52:46.093] ...future.result$finished <- base::Sys.time() 1566s [00:52:46.093] ...future.result 1566s [00:52:46.093] } 1566s [00:52:46.102] assign_globals() ... 1566s [00:52:46.103] List of 5 1566s [00:52:46.103] $ ...future.FUN :function (...) 1566s [00:52:46.103] $ future.call.arguments : list() 1566s [00:52:46.103] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1566s [00:52:46.103] $ ...future.elements_ii :List of 5 1566s [00:52:46.103] ..$ : int 0 1566s [00:52:46.103] ..$ : int 0 1566s [00:52:46.103] ..$ : int 0 1566s [00:52:46.103] ..$ : int 0 1566s [00:52:46.103] ..$ : int 0 1566s [00:52:46.103] $ ...future.seeds_ii :List of 5 1566s [00:52:46.103] ..$ : int [1:7] 10407 -2071263697 289281416 78000798 -267087029 1450265920 1384841471 1566s [00:52:46.103] ..$ : int [1:7] 10407 -982087729 -1069516280 28821758 904708751 948858148 -221315676 1566s [00:52:46.103] ..$ : int [1:7] 10407 1522784998 1583278593 643059876 -1152566664 241056248 -47566452 1566s [00:52:46.103] ..$ : int [1:7] 10407 -1463658861 -1936164950 1447469761 -1311560068 1565155277 -97879915 1566s [00:52:46.103] ..$ : int [1:7] 10407 859272972 -2072429718 -335954475 390271113 -643994775 1230566406 1566s [00:52:46.103] $ ...future.globals.maxSize: NULL 1566s [00:52:46.103] - attr(*, "where")=List of 5 1566s [00:52:46.103] ..$ ...future.FUN : 1566s [00:52:46.103] ..$ future.call.arguments : 1566s [00:52:46.103] ..$ ...future.elements_ii : 1566s [00:52:46.103] ..$ ...future.seeds_ii : 1566s [00:52:46.103] ..$ ...future.globals.maxSize: 1566s [00:52:46.103] - attr(*, "resolved")= logi FALSE 1566s [00:52:46.103] - attr(*, "total_size")= num 616 1566s [00:52:46.103] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1566s [00:52:46.103] - attr(*, "already-done")= logi TRUE 1566s [00:52:46.122] - reassign environment for ‘...future.FUN’ 1566s [00:52:46.122] - copied ‘...future.FUN’ to environment 1566s [00:52:46.123] - copied ‘future.call.arguments’ to environment 1566s [00:52:46.123] - copied ‘...future.elements_ii’ to environment 1566s [00:52:46.123] - copied ‘...future.seeds_ii’ to environment 1566s [00:52:46.123] - copied ‘...future.globals.maxSize’ to environment 1566s [00:52:46.124] assign_globals() ... done 1566s [00:52:46.125] plan(): Setting new future strategy stack: 1566s [00:52:46.125] List of future strategies: 1566s [00:52:46.125] 1. sequential: 1566s [00:52:46.125] - args: function (..., envir = parent.frame()) 1566s [00:52:46.125] - tweaked: FALSE 1566s [00:52:46.125] - call: NULL 1566s [00:52:46.126] plan(): nbrOfWorkers() = 1 1566s [00:52:46.129] plan(): Setting new future strategy stack: 1566s [00:52:46.129] List of future strategies: 1566s [00:52:46.129] 1. sequential: 1566s [00:52:46.129] - args: function (..., envir = parent.frame()) 1566s [00:52:46.129] - tweaked: FALSE 1566s [00:52:46.129] - call: plan(strategy) 1566s [00:52:46.130] plan(): nbrOfWorkers() = 1 1566s [00:52:46.131] SequentialFuture started (and completed) 1566s [00:52:46.133] - Launch lazy future ... done 1566s [00:52:46.133] run() for ‘SequentialFuture’ ... done 1566s [00:52:46.133] Created future: 1566s [00:52:46.134] SequentialFuture: 1566s [00:52:46.134] Label: ‘future_replicate-1’ 1566s [00:52:46.134] Expression: 1566s [00:52:46.134] { 1566s [00:52:46.134] do.call(function(...) { 1566s [00:52:46.134] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1566s [00:52:46.134] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1566s [00:52:46.134] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1566s [00:52:46.134] on.exit(options(oopts), add = TRUE) 1566s [00:52:46.134] } 1566s [00:52:46.134] { 1566s [00:52:46.134] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1566s [00:52:46.134] ...future.X_jj <- ...future.elements_ii[[jj]] 1566s [00:52:46.134] assign(".Random.seed", ...future.seeds_ii[[jj]], 1566s [00:52:46.134] envir = globalenv(), inherits = FALSE) 1566s [00:52:46.134] ...future.FUN(...future.X_jj, ...) 1566s [00:52:46.134] }) 1566s [00:52:46.134] } 1566s [00:52:46.134] }, args = future.call.arguments) 1566s [00:52:46.134] } 1566s [00:52:46.134] Lazy evaluation: FALSE 1566s [00:52:46.134] Asynchronous evaluation: FALSE 1566s [00:52:46.134] Local evaluation: TRUE 1566s [00:52:46.134] Environment: R_GlobalEnv 1566s [00:52:46.134] Capture standard output: TRUE 1566s [00:52:46.134] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1566s [00:52:46.134] Globals: 5 objects totaling 1.27 KiB (function ‘...future.FUN’ of 616 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 280 bytes, list ‘...future.seeds_ii’ of 400 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1566s [00:52:46.134] Packages: 1566s [00:52:46.134] L'Ecuyer-CMRG RNG seed: (seed = NULL) 1566s [00:52:46.134] Resolved: TRUE 1566s [00:52:46.134] Value: 280 bytes of class ‘list’ 1566s [00:52:46.134] Early signaling: FALSE 1566s [00:52:46.134] Owner process: 50289bf5-8c9f-f501-15c6-3ca1fa8d82cf 1566s [00:52:46.134] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1566s [00:52:46.137] Chunk #1 of 1 ... DONE 1566s [00:52:46.137] Launching 1 futures (chunks) ... DONE 1566s [00:52:46.137] Resolving 1 futures (chunks) ... 1566s [00:52:46.138] resolve() on list ... 1566s [00:52:46.138] recursive: 0 1566s [00:52:46.138] length: 1 1566s [00:52:46.138] 1566s [00:52:46.138] resolved() for ‘SequentialFuture’ ... 1566s [00:52:46.138] - state: ‘finished’ 1566s [00:52:46.139] - run: TRUE 1566s [00:52:46.139] - result: ‘FutureResult’ 1566s [00:52:46.139] resolved() for ‘SequentialFuture’ ... done 1566s [00:52:46.139] Future #1 1566s [00:52:46.140] signalConditionsASAP(SequentialFuture, pos=1) ... 1566s [00:52:46.140] - nx: 1 1566s [00:52:46.140] - relay: TRUE 1566s [00:52:46.140] - stdout: TRUE 1566s [00:52:46.140] - signal: TRUE 1566s [00:52:46.141] - resignal: FALSE 1566s [00:52:46.141] - force: TRUE 1566s [00:52:46.142] - relayed: [n=1] FALSE 1566s [00:52:46.142] - queued futures: [n=1] FALSE 1566s [00:52:46.142] - until=1 1566s [00:52:46.142] - relaying element #1 1566s [00:52:46.143] - relayed: [n=1] TRUE 1566s [00:52:46.143] - queued futures: [n=1] TRUE 1566s [00:52:46.143] signalConditionsASAP(SequentialFuture, pos=1) ... done 1566s [00:52:46.144] length: 0 (resolved future 1) 1566s [00:52:46.144] Relaying remaining futures 1566s [00:52:46.145] signalConditionsASAP(NULL, pos=0) ... 1566s [00:52:46.145] - nx: 1 1566s [00:52:46.145] - relay: TRUE 1566s [00:52:46.145] - stdout: TRUE 1566s [00:52:46.145] - signal: TRUE 1566s [00:52:46.146] - resignal: FALSE 1566s [00:52:46.146] - force: TRUE 1566s [00:52:46.146] - relayed: [n=1] TRUE 1566s [00:52:46.146] - queued futures: [n=1] TRUE 1566s - flush all 1566s [00:52:46.147] - relayed: [n=1] TRUE 1566s [00:52:46.147] - queued futures: [n=1] TRUE 1566s [00:52:46.147] signalConditionsASAP(NULL, pos=0) ... done 1566s [00:52:46.147] resolve() on list ... DONE 1566s [00:52:46.148] - Number of value chunks collected: 1 1566s [00:52:46.148] Resolving 1 futures (chunks) ... DONE 1566s [00:52:46.148] Reducing values from 1 chunks ... 1566s [00:52:46.148] - Number of values collected after concatenation: 5 1566s [00:52:46.148] - Number of values expected: 5 1566s [00:52:46.149] Reducing values from 1 chunks ... DONE 1566s [00:52:46.149] future_lapply() ... DONE 1566s [00:52:46.150] future_lapply() ... 1566s [00:52:46.151] Generating random seeds ... 1566s [00:52:46.152] Generating random seed streams for 5 elements ... 1566s [00:52:46.152] Generating random seed streams for 5 elements ... DONE 1566s [00:52:46.152] Generating random seeds ... DONE 1566s [00:52:46.153] Will set RNG state on exit: 10403, 2, 133210212, 1945833034, 115858357, -364452081, -390319082, 926195392, 2057013379, -803887967, -1078998384, 705296750, -1682614503, 830917547, -331376230, 1352842588, 1960957023, 1997081653, 374446028, 1510359842, 1146109309, -1295266185, -1545472098, 1268700760, 1627111355, -855092903, -215790872, -1958931690, 1906054289, -782874301, -399096750, -1740777756, 1763676455, -832683651, 1369376884, 430697050, 1699587749, -1503628097, 856180550, -242424368, -2127251469, 505777937, 257347392, -856180962, 886024169, -1464480485, -1512233174, -1985955764, -425390065, -589669563, 381897980, -790840494, 1136483533, -1535370105, -607934610, 1641470280, -1050403509, 1965932713, 362996216, 1596838182, -1829498303, -1824465965, 1872669058, -417374796, -1713346249, 1818328109, -1284085436, -1981489558, 1940543701, 1673049711, -1514495114, 467096736, 943410531, -1431020031, 1115626864, 965475598, -1718567047, -793788661, -1133789126, -80588996, 2018258047, 1866186709, 42791404, -1823521982, -1345991523, -1672661737, -180777858, -452713416, 1448313627, -1459492743, -600706872, -909649674, -2081822415, -1697455773, 1517613874, -820020092, 188336327, -1149897827, -475203820, -368005702, 204442629, 437854687, 1163191398, -760699920, 104455443, 819708593, 1129180512, 48636670, 1066049161, 398150075, -852036726, -906028436, -1265740817, -1824646107, -2126068516, 1815435954, -146408019, -860012185, -682500466, 1443186536, 1789394795, -1078204151, 809467800, 1514112710, -1097673695, 919601331, -331916766, 795008020, 1042337943, -371219827, 1558967204, 1563528586, -2133607947, -1904454577, -264006826, 770017792, 153477955, 1189667553, -363253680, 1882362030, 967246937, -793119637, -1401964070, 2129232540, -542810977, -1277899019, -377097332, -406748574, -1722157507, -1577740105, -455170210, 372239000, -1535936005, -1332632679, -1623884760, -359633706, 935827793, 1357445123, 997040018, -1506538204, -147930137, -166569923, -2103753036, 1366641946, 30482021, 1876964095, 2008557446, 657856784, -103814733, 774877777, -486350336, -555057442, -1821756119, -963495717, 853311466, 1671241612, -942337841, 409538693, 1992831804, 489867794, 357105933, -1611412921, -1119334354, -1521015416, -2041922421, 2048874089, -700216776, 1651628774, -10471807, 736942611, 380607938, -1742088588, 1124231287, 1232111981, -1801753084, -1608606422, -1172096363, 1420874031, -1210473418, -18317216, -571709789, 1107403201, 1952554416, 1991660750, -442973639, 581522507, -430787078, 1105375484, -1481218753, -748152299, -641535700, 679371266, -591318819, -104578089, -172818754, -1321694984, -98191653, 1709083961, -344680312, -159571914, 581309553, -63938909, 76420082, 951019332, -1797740537, 1291470301, -2079866156, -332493318, -1978392251, -1691039632, 388791868, -1101109484, -1365177662, 321737440, 1812890748, -133313328, -1252731998, 2044530216, 1263927564, 325388220, 520794418, 1449646272, 87560756, -87565624, 426345146, -699970416, 240322284, -1074080172, -1536268654, 1338615584, 478476236, -1933154080, -192786750, 1559942184, -1178330196, -687617348, -1701912078, 352314928, -999229532, -2052800072, -1913644198, -1345416048, 1816730492, -1570431212, -269427390, -2122969344, -520963140, 1398087504, 264692002, -1682658744, -1422452724, -1601893284, -66383406, 1443075584, -456249004, 943694056, -1493184262, -1943836976, -590788308, -405505804, -1796837998, 1991543136, 1170376716, 1707420384, 1899700834, -1643595096, 47299148, 1274857340, -1205842638, -1938479504, -1773978812, 532695000, 1306451834, 258403888, -284747844, -1780705708, 1621936194, 1129070752, 540946108, -294270512, -1426480286, -356302104, 349847756, 1849803260, -1299125774, 511654528, -1259964940, -1879857528, 535666490, -2020097200, -1460751252, 1201879444, -1459788718, 447195616, -730891060, -1875530592, -2146183806, 193274088, -1224605972, 1616153916, -1896973198, -420945808, -1997735900, -1838404552, -413698278, 1984019664, -1760209092, -1288743020, 392579970, -1382567488, -1295004100, -33348208, 1536615970, -428761848, 643368588, -1596336356, 1797431442, 352422272, -1043800556, 60591912, -1115663814, 1043682768, 521144684, 4793268, -1924265966, 978890208, 370048972, -1607474976, -1443637214, -632405720, 691912204, 166321980, 942193650, 751741680, 689743428, -18455976, -1946329286, -1619184144, 239341244, 371382548, -2069808446, 154176608, 385987452, -385611824, 1967391010, 2140654248, 1720087436, -1591007044, -1612486862, 1295747648, 1726784692, 597326408, -973152838, 628505104, -1089631508, 3230036, -593837806, 244006304, 1357912780, 1839234656, -1357570110, 1896595240, -2066952276, -1724304580, 986188146, -1200604368, -279100124, 131128120, -1088465190, 596533136, 170602236, -1051262060, 215660610, -686217984, 444449852, 769655120, 236357794, 181393736, -13334772, 644690652, -1969263278, -2107982720, 1429553236, 794236904, 1997299962, -458224816, 904978220, -537093772, -842839150, 1828989024, -679303796, 1396292448, 76319202, 1896098728, 418430156, 2005956604, 1370351026, -1178923536, -1154073660, -1218863784, 89928058, 816597936, -1141767748, 1579714644, 1343385538, 371259424, -245180228, 365724240, 1606388706, -823678872, 1281309772, 1395210492, 1217887218, 1420531968, 1349501300, 271647752, -69959750, 360452560, 1565334508, 1956526484, -930709038, 1961808224, -1745916084, 443656480, 1990137730, 694374120, -1050566420, -1365842884, -438961294, -1851472272, 614534180, 1401930552, 3652762, 1928284880, -1637703492, 26107540, -132725907, -371944998, -1311388776, 8516097, 741008307, -1149566252, -1802640414, 2019636855, 1587818433, -151040698, 1598381188, -205462987, 1911327, -1382519432, -594809770, -2146766621, -2013964635, -965534910, -2077626064, 1964788057, 1821395659, -1953549508, -719348886, 1442511263, 1969287209, 1754221246, -442299476, 1981692157, 113456199, 1587794736, -1811033010, 1149417595, -1760887843, -1426021878, -1285634264, 1507547537, -1114120317, 1897370756, 1142575794, -375814649, -1661041071, 881081814, -548925260, 2073840837, 1156484623, 2011334280, 1107815334, 969024339, -55972683, 2006780434, -1486403616, 1698650697, 1813794939, -1717763764, 1268815066, -1200630577, -773717863, -12215122, 1354639804, 1213207085, -978295337, 340143136, 485429630, -568148149, 1257440589, 930106234, -883274312, -1632538783, 894748435, -1592959180, -596177598, 120963415, -1174532959, -561474202, 1438545764, 1429911189, 1075965887, 367866712, -892333706, -485158013, -682634811, 963344098, 2110199632, 1990767225, 1348335019, 269581084, -2040640438, 1453561919, 853952649, 1195494558, 1614051660, 2040242461, -1604604761, 1421229008, -1268333714, 174113307, 2044969853, 190112106, -998776824, -2070476623, -2099222749, 1141171236, -146426158, -1797385433, -1129376399, -1496589386, -419561644, -613549595, 1243456495, 451212072, 1923543942, 1146113971, 93579029, -397504142, 597218752, 459048489, 1447221915, -272948372, -373834886, 934888623, -2099351623, -1672042034, 193924380, -704518003, 781993207, -258875392, -1853783458, 1315003691, -41214419, -59447654, 1203745368, 426003905, 452670067, -1092079724, -1765622238, -1882554057, 1278087169, -1994822394, -124954300, 1994460277, 1816829407, -1568282312, 1563616022, 1255996195, 1702121701, 1784032514, 1842995056, 748060441, 1432229643, -1905232900, 2016890922, 1403944031, 351712233, 1338932478, -1359366932, -803018691, -1551885305, 248629232, 1839395726, 1411789243, 840085405, -1849000630, -669518488, -1453417647, -1527179197, -377159356, 1674525170, -313742393, 865377681, -1127426242 1566s [00:52:46.156] Number of chunks: 1 1566s [00:52:46.156] getGlobalsAndPackagesXApply() ... 1566s [00:52:46.157] - future.globals: TRUE 1566s [00:52:46.157] getGlobalsAndPackages() ... 1566s [00:52:46.157] Searching for globals... 1566s [00:52:46.160] - globals found: [2] ‘FUN’, ‘sample’ 1566s [00:52:46.161] Searching for globals ... DONE 1566s [00:52:46.161] Resolving globals: FALSE 1566s [00:52:46.166] The total size of the 1 globals is 616 bytes (616 bytes) 1566s [00:52:46.167] The total size of the 1 globals exported for future expression (‘FUN()’) is 616 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (616 bytes of class ‘function’) 1566s [00:52:46.168] - globals: [1] ‘FUN’ 1566s [00:52:46.168] 1566s [00:52:46.169] getGlobalsAndPackages() ... DONE 1566s [00:52:46.169] - globals found/used: [n=1] ‘FUN’ 1566s [00:52:46.170] - needed namespaces: [n=0] 1566s [00:52:46.170] Finding globals ... DONE 1566s [00:52:46.170] - use_args: TRUE 1566s [00:52:46.170] - Getting '...' globals ... 1566s [00:52:46.171] resolve() on list ... 1566s [00:52:46.171] recursive: 0 1566s [00:52:46.171] length: 1 1566s [00:52:46.171] elements: ‘...’ 1566s [00:52:46.172] length: 0 (resolved future 1) 1566s [00:52:46.173] resolve() on list ... DONE 1566s [00:52:46.173] - '...' content: [n=0] 1566s [00:52:46.173] List of 1 1566s [00:52:46.173] $ ...: list() 1566s [00:52:46.173] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1566s [00:52:46.173] - attr(*, "where")=List of 1 1566s [00:52:46.173] ..$ ...: 1566s [00:52:46.173] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1566s [00:52:46.173] - attr(*, "resolved")= logi TRUE 1566s [00:52:46.173] - attr(*, "total_size")= num NA 1566s [00:52:46.179] - Getting '...' globals ... DONE 1566s [00:52:46.180] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1566s [00:52:46.180] List of 2 1566s [00:52:46.180] $ ...future.FUN:function (...) 1566s [00:52:46.180] $ ... : list() 1566s [00:52:46.180] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1566s [00:52:46.180] - attr(*, "where")=List of 2 1566s [00:52:46.180] ..$ ...future.FUN: 1566s [00:52:46.180] ..$ ... : 1566s [00:52:46.180] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1566s [00:52:46.180] - attr(*, "resolved")= logi FALSE 1566s [00:52:46.180] - attr(*, "total_size")= num 616 1566s [00:52:46.185] Packages to be attached in all futures: [n=0] 1566s [00:52:46.185] getGlobalsAndPackagesXApply() ... DONE 1566s [00:52:46.185] Number of futures (= number of chunks): 1 1566s [00:52:46.186] Launching 1 futures (chunks) ... 1566s [00:52:46.186] Chunk #1 of 1 ... 1566s [00:52:46.186] - Finding globals in 'X' for chunk #1 ... 1566s [00:52:46.186] getGlobalsAndPackages() ... 1566s [00:52:46.186] Searching for globals... 1566s [00:52:46.187] 1566s [00:52:46.187] Searching for globals ... DONE 1566s [00:52:46.187] - globals: [0] 1566s [00:52:46.187] getGlobalsAndPackages() ... DONE 1566s [00:52:46.187] + additional globals found: [n=0] 1566s [00:52:46.187] + additional namespaces needed: [n=0] 1566s [00:52:46.187] - Finding globals in 'X' for chunk #1 ... DONE 1566s [00:52:46.188] - seeds: [5] 1566s [00:52:46.188] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1566s [00:52:46.188] getGlobalsAndPackages() ... 1566s [00:52:46.188] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1566s [00:52:46.190] Resolving globals: FALSE 1566s [00:52:46.191] Tweak future expression to call with '...' arguments ... 1566s [00:52:46.191] { 1566s [00:52:46.191] do.call(function(...) { 1566s [00:52:46.191] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1566s [00:52:46.191] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1566s [00:52:46.191] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1566s [00:52:46.191] on.exit(options(oopts), add = TRUE) 1566s [00:52:46.191] } 1566s [00:52:46.191] { 1566s [00:52:46.191] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1566s [00:52:46.191] ...future.X_jj <- ...future.elements_ii[[jj]] 1566s [00:52:46.191] assign(".Random.seed", ...future.seeds_ii[[jj]], 1566s [00:52:46.191] envir = globalenv(), inherits = FALSE) 1566s [00:52:46.191] ...future.FUN(...future.X_jj, ...) 1566s [00:52:46.191] }) 1566s [00:52:46.191] } 1566s [00:52:46.191] }, args = future.call.arguments) 1566s [00:52:46.191] } 1566s [00:52:46.192] Tweak future expression to call with '...' arguments ... DONE 1566s [00:52:46.193] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1566s [00:52:46.193] 1566s [00:52:46.193] getGlobalsAndPackages() ... DONE 1566s [00:52:46.194] run() for ‘Future’ ... 1566s [00:52:46.194] - state: ‘created’ 1566s [00:52:46.194] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1566s [00:52:46.195] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1566s [00:52:46.195] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1566s [00:52:46.195] - Field: ‘label’ 1566s [00:52:46.196] - Field: ‘local’ 1566s [00:52:46.196] - Field: ‘owner’ 1566s [00:52:46.196] - Field: ‘envir’ 1566s [00:52:46.196] - Field: ‘packages’ 1566s [00:52:46.197] - Field: ‘gc’ 1566s [00:52:46.197] - Field: ‘conditions’ 1566s [00:52:46.197] - Field: ‘expr’ 1566s [00:52:46.197] - Field: ‘uuid’ 1566s [00:52:46.198] - Field: ‘seed’ 1566s [00:52:46.198] - Field: ‘version’ 1566s [00:52:46.198] - Field: ‘result’ 1566s [00:52:46.198] - Field: ‘asynchronous’ 1566s [00:52:46.198] - Field: ‘calls’ 1566s [00:52:46.198] - Field: ‘globals’ 1566s [00:52:46.198] - Field: ‘stdout’ 1566s [00:52:46.199] - Field: ‘earlySignal’ 1566s [00:52:46.199] - Field: ‘lazy’ 1566s [00:52:46.199] - Field: ‘state’ 1566s [00:52:46.199] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1566s [00:52:46.199] - Launch lazy future ... 1566s [00:52:46.200] Packages needed by the future expression (n = 0): 1566s [00:52:46.200] Packages needed by future strategies (n = 0): 1566s [00:52:46.201] { 1566s [00:52:46.201] { 1566s [00:52:46.201] { 1566s [00:52:46.201] ...future.startTime <- base::Sys.time() 1566s [00:52:46.201] { 1566s [00:52:46.201] { 1566s [00:52:46.201] { 1566s [00:52:46.201] base::local({ 1566s [00:52:46.201] has_future <- base::requireNamespace("future", 1566s [00:52:46.201] quietly = TRUE) 1566s [00:52:46.201] if (has_future) { 1566s [00:52:46.201] ns <- base::getNamespace("future") 1566s [00:52:46.201] version <- ns[[".package"]][["version"]] 1566s [00:52:46.201] if (is.null(version)) 1566s [00:52:46.201] version <- utils::packageVersion("future") 1566s [00:52:46.201] } 1566s [00:52:46.201] else { 1566s [00:52:46.201] version <- NULL 1566s [00:52:46.201] } 1566s [00:52:46.201] if (!has_future || version < "1.8.0") { 1566s [00:52:46.201] info <- base::c(r_version = base::gsub("R version ", 1566s [00:52:46.201] "", base::R.version$version.string), 1566s [00:52:46.201] platform = base::sprintf("%s (%s-bit)", 1566s [00:52:46.201] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1566s [00:52:46.201] os = base::paste(base::Sys.info()[base::c("sysname", 1566s [00:52:46.201] "release", "version")], collapse = " "), 1566s [00:52:46.201] hostname = base::Sys.info()[["nodename"]]) 1566s [00:52:46.201] info <- base::sprintf("%s: %s", base::names(info), 1566s [00:52:46.201] info) 1566s [00:52:46.201] info <- base::paste(info, collapse = "; ") 1566s [00:52:46.201] if (!has_future) { 1566s [00:52:46.201] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1566s [00:52:46.201] info) 1566s [00:52:46.201] } 1566s [00:52:46.201] else { 1566s [00:52:46.201] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1566s [00:52:46.201] info, version) 1566s [00:52:46.201] } 1566s [00:52:46.201] base::stop(msg) 1566s [00:52:46.201] } 1566s [00:52:46.201] }) 1566s [00:52:46.201] } 1566s [00:52:46.201] options(future.plan = NULL) 1566s [00:52:46.201] Sys.unsetenv("R_FUTURE_PLAN") 1566s [00:52:46.201] future::plan("default", .cleanup = FALSE, .init = FALSE) 1566s [00:52:46.201] } 1566s [00:52:46.201] ...future.workdir <- getwd() 1566s [00:52:46.201] } 1566s [00:52:46.201] ...future.oldOptions <- base::as.list(base::.Options) 1566s [00:52:46.201] ...future.oldEnvVars <- base::Sys.getenv() 1566s [00:52:46.201] } 1566s [00:52:46.201] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1566s [00:52:46.201] future.globals.maxSize = NULL, future.globals.method = NULL, 1566s [00:52:46.201] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1566s [00:52:46.201] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1566s [00:52:46.201] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1566s [00:52:46.201] future.stdout.windows.reencode = NULL, width = 80L) 1566s [00:52:46.201] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1566s [00:52:46.201] base::names(...future.oldOptions)) 1566s [00:52:46.201] } 1566s [00:52:46.201] if (FALSE) { 1566s [00:52:46.201] } 1566s [00:52:46.201] else { 1566s [00:52:46.201] if (TRUE) { 1566s [00:52:46.201] ...future.stdout <- base::rawConnection(base::raw(0L), 1566s [00:52:46.201] open = "w") 1566s [00:52:46.201] } 1566s [00:52:46.201] else { 1566s [00:52:46.201] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1566s [00:52:46.201] windows = "NUL", "/dev/null"), open = "w") 1566s [00:52:46.201] } 1566s [00:52:46.201] base::sink(...future.stdout, type = "output", split = FALSE) 1566s [00:52:46.201] base::on.exit(if (!base::is.null(...future.stdout)) { 1566s [00:52:46.201] base::sink(type = "output", split = FALSE) 1566s [00:52:46.201] base::close(...future.stdout) 1566s [00:52:46.201] }, add = TRUE) 1566s [00:52:46.201] } 1566s [00:52:46.201] ...future.frame <- base::sys.nframe() 1566s [00:52:46.201] ...future.conditions <- base::list() 1566s [00:52:46.201] ...future.rng <- base::globalenv()$.Random.seed 1566s [00:52:46.201] if (FALSE) { 1566s [00:52:46.201] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1566s [00:52:46.201] "...future.value", "...future.globalenv.names", ".Random.seed") 1566s [00:52:46.201] } 1566s [00:52:46.201] ...future.result <- base::tryCatch({ 1566s [00:52:46.201] base::withCallingHandlers({ 1566s [00:52:46.201] ...future.value <- base::withVisible(base::local({ 1566s [00:52:46.201] do.call(function(...) { 1566s [00:52:46.201] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1566s [00:52:46.201] if (!identical(...future.globals.maxSize.org, 1566s [00:52:46.201] ...future.globals.maxSize)) { 1566s [00:52:46.201] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1566s [00:52:46.201] on.exit(options(oopts), add = TRUE) 1566s [00:52:46.201] } 1566s [00:52:46.201] { 1566s [00:52:46.201] lapply(seq_along(...future.elements_ii), 1566s [00:52:46.201] FUN = function(jj) { 1566s [00:52:46.201] ...future.X_jj <- ...future.elements_ii[[jj]] 1566s [00:52:46.201] assign(".Random.seed", ...future.seeds_ii[[jj]], 1566s [00:52:46.201] envir = globalenv(), inherits = FALSE) 1566s [00:52:46.201] ...future.FUN(...future.X_jj, ...) 1566s [00:52:46.201] }) 1566s [00:52:46.201] } 1566s [00:52:46.201] }, args = future.call.arguments) 1566s [00:52:46.201] })) 1566s [00:52:46.201] future::FutureResult(value = ...future.value$value, 1566s [00:52:46.201] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1566s [00:52:46.201] ...future.rng), globalenv = if (FALSE) 1566s [00:52:46.201] list(added = base::setdiff(base::names(base::.GlobalEnv), 1566s [00:52:46.201] ...future.globalenv.names)) 1566s [00:52:46.201] else NULL, started = ...future.startTime, version = "1.8") 1566s [00:52:46.201] }, condition = base::local({ 1566s [00:52:46.201] c <- base::c 1566s [00:52:46.201] inherits <- base::inherits 1566s [00:52:46.201] invokeRestart <- base::invokeRestart 1566s [00:52:46.201] length <- base::length 1566s [00:52:46.201] list <- base::list 1566s [00:52:46.201] seq.int <- base::seq.int 1566s [00:52:46.201] signalCondition <- base::signalCondition 1566s [00:52:46.201] sys.calls <- base::sys.calls 1566s [00:52:46.201] `[[` <- base::`[[` 1566s [00:52:46.201] `+` <- base::`+` 1566s [00:52:46.201] `<<-` <- base::`<<-` 1566s [00:52:46.201] sysCalls <- function(calls = sys.calls(), from = 1L) { 1566s [00:52:46.201] calls[seq.int(from = from + 12L, to = length(calls) - 1566s [00:52:46.201] 3L)] 1566s [00:52:46.201] } 1566s [00:52:46.201] function(cond) { 1566s [00:52:46.201] is_error <- inherits(cond, "error") 1566s [00:52:46.201] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1566s [00:52:46.201] NULL) 1566s [00:52:46.201] if (is_error) { 1566s [00:52:46.201] sessionInformation <- function() { 1566s [00:52:46.201] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1566s [00:52:46.201] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1566s [00:52:46.201] search = base::search(), system = base::Sys.info()) 1566s [00:52:46.201] } 1566s [00:52:46.201] ...future.conditions[[length(...future.conditions) + 1566s [00:52:46.201] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1566s [00:52:46.201] cond$call), session = sessionInformation(), 1566s [00:52:46.201] timestamp = base::Sys.time(), signaled = 0L) 1566s [00:52:46.201] signalCondition(cond) 1566s [00:52:46.201] } 1566s [00:52:46.201] else if (!ignore && TRUE && inherits(cond, c("condition", 1566s [00:52:46.201] "immediateCondition"))) { 1566s [00:52:46.201] signal <- TRUE && inherits(cond, "immediateCondition") 1566s [00:52:46.201] ...future.conditions[[length(...future.conditions) + 1566s [00:52:46.201] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1566s [00:52:46.201] if (TRUE && !signal) { 1566s [00:52:46.201] muffleCondition <- function (cond, pattern = "^muffle") 1566s [00:52:46.201] { 1566s [00:52:46.201] inherits <- base::inherits 1566s [00:52:46.201] invokeRestart <- base::invokeRestart 1566s [00:52:46.201] is.null <- base::is.null 1566s [00:52:46.201] muffled <- FALSE 1566s [00:52:46.201] if (inherits(cond, "message")) { 1566s [00:52:46.201] muffled <- grepl(pattern, "muffleMessage") 1566s [00:52:46.201] if (muffled) 1566s [00:52:46.201] invokeRestart("muffleMessage") 1566s [00:52:46.201] } 1566s [00:52:46.201] else if (inherits(cond, "warning")) { 1566s [00:52:46.201] muffled <- grepl(pattern, "muffleWarning") 1566s [00:52:46.201] if (muffled) 1566s [00:52:46.201] invokeRestart("muffleWarning") 1566s [00:52:46.201] } 1566s [00:52:46.201] else if (inherits(cond, "condition")) { 1566s [00:52:46.201] if (!is.null(pattern)) { 1566s [00:52:46.201] computeRestarts <- base::computeRestarts 1566s [00:52:46.201] grepl <- base::grepl 1566s [00:52:46.201] restarts <- computeRestarts(cond) 1566s [00:52:46.201] for (restart in restarts) { 1566s [00:52:46.201] name <- restart$name 1566s [00:52:46.201] if (is.null(name)) 1566s [00:52:46.201] next 1566s [00:52:46.201] if (!grepl(pattern, name)) 1566s [00:52:46.201] next 1566s [00:52:46.201] invokeRestart(restart) 1566s [00:52:46.201] muffled <- TRUE 1566s [00:52:46.201] break 1566s [00:52:46.201] } 1566s [00:52:46.201] } 1566s [00:52:46.201] } 1566s [00:52:46.201] invisible(muffled) 1566s [00:52:46.201] } 1566s [00:52:46.201] muffleCondition(cond, pattern = "^muffle") 1566s [00:52:46.201] } 1566s [00:52:46.201] } 1566s [00:52:46.201] else { 1566s [00:52:46.201] if (TRUE) { 1566s [00:52:46.201] muffleCondition <- function (cond, pattern = "^muffle") 1566s [00:52:46.201] { 1566s [00:52:46.201] inherits <- base::inherits 1566s [00:52:46.201] invokeRestart <- base::invokeRestart 1566s [00:52:46.201] is.null <- base::is.null 1566s [00:52:46.201] muffled <- FALSE 1566s [00:52:46.201] if (inherits(cond, "message")) { 1566s [00:52:46.201] muffled <- grepl(pattern, "muffleMessage") 1566s [00:52:46.201] if (muffled) 1566s [00:52:46.201] invokeRestart("muffleMessage") 1566s [00:52:46.201] } 1566s [00:52:46.201] else if (inherits(cond, "warning")) { 1566s [00:52:46.201] muffled <- grepl(pattern, "muffleWarning") 1566s [00:52:46.201] if (muffled) 1566s [00:52:46.201] invokeRestart("muffleWarning") 1566s [00:52:46.201] } 1566s [00:52:46.201] else if (inherits(cond, "condition")) { 1566s [00:52:46.201] if (!is.null(pattern)) { 1566s [00:52:46.201] computeRestarts <- base::computeRestarts 1566s [00:52:46.201] grepl <- base::grepl 1566s [00:52:46.201] restarts <- computeRestarts(cond) 1566s [00:52:46.201] for (restart in restarts) { 1566s [00:52:46.201] name <- restart$name 1566s [00:52:46.201] if (is.null(name)) 1566s [00:52:46.201] next 1566s [00:52:46.201] if (!grepl(pattern, name)) 1566s [00:52:46.201] next 1566s [00:52:46.201] invokeRestart(restart) 1566s [00:52:46.201] muffled <- TRUE 1566s [00:52:46.201] break 1566s [00:52:46.201] } 1566s [00:52:46.201] } 1566s [00:52:46.201] } 1566s [00:52:46.201] invisible(muffled) 1566s [00:52:46.201] } 1566s [00:52:46.201] muffleCondition(cond, pattern = "^muffle") 1566s [00:52:46.201] } 1566s [00:52:46.201] } 1566s [00:52:46.201] } 1566s [00:52:46.201] })) 1566s [00:52:46.201] }, error = function(ex) { 1566s [00:52:46.201] base::structure(base::list(value = NULL, visible = NULL, 1566s [00:52:46.201] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1566s [00:52:46.201] ...future.rng), started = ...future.startTime, 1566s [00:52:46.201] finished = Sys.time(), session_uuid = NA_character_, 1566s [00:52:46.201] version = "1.8"), class = "FutureResult") 1566s [00:52:46.201] }, finally = { 1566s [00:52:46.201] if (!identical(...future.workdir, getwd())) 1566s [00:52:46.201] setwd(...future.workdir) 1566s [00:52:46.201] { 1566s [00:52:46.201] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1566s [00:52:46.201] ...future.oldOptions$nwarnings <- NULL 1566s [00:52:46.201] } 1566s [00:52:46.201] base::options(...future.oldOptions) 1566s [00:52:46.201] if (.Platform$OS.type == "windows") { 1566s [00:52:46.201] old_names <- names(...future.oldEnvVars) 1566s [00:52:46.201] envs <- base::Sys.getenv() 1566s [00:52:46.201] names <- names(envs) 1566s [00:52:46.201] common <- intersect(names, old_names) 1566s [00:52:46.201] added <- setdiff(names, old_names) 1566s [00:52:46.201] removed <- setdiff(old_names, names) 1566s [00:52:46.201] changed <- common[...future.oldEnvVars[common] != 1566s [00:52:46.201] envs[common]] 1566s [00:52:46.201] NAMES <- toupper(changed) 1566s [00:52:46.201] args <- list() 1566s [00:52:46.201] for (kk in seq_along(NAMES)) { 1566s [00:52:46.201] name <- changed[[kk]] 1566s [00:52:46.201] NAME <- NAMES[[kk]] 1566s [00:52:46.201] if (name != NAME && is.element(NAME, old_names)) 1566s [00:52:46.201] next 1566s [00:52:46.201] args[[name]] <- ...future.oldEnvVars[[name]] 1566s [00:52:46.201] } 1566s [00:52:46.201] NAMES <- toupper(added) 1566s [00:52:46.201] for (kk in seq_along(NAMES)) { 1566s [00:52:46.201] name <- added[[kk]] 1566s [00:52:46.201] NAME <- NAMES[[kk]] 1566s [00:52:46.201] if (name != NAME && is.element(NAME, old_names)) 1566s [00:52:46.201] next 1566s [00:52:46.201] args[[name]] <- "" 1566s [00:52:46.201] } 1566s [00:52:46.201] NAMES <- toupper(removed) 1566s [00:52:46.201] for (kk in seq_along(NAMES)) { 1566s [00:52:46.201] name <- removed[[kk]] 1566s [00:52:46.201] NAME <- NAMES[[kk]] 1566s [00:52:46.201] if (name != NAME && is.element(NAME, old_names)) 1566s [00:52:46.201] next 1566s [00:52:46.201] args[[name]] <- ...future.oldEnvVars[[name]] 1566s [00:52:46.201] } 1566s [00:52:46.201] if (length(args) > 0) 1566s [00:52:46.201] base::do.call(base::Sys.setenv, args = args) 1566s [00:52:46.201] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1566s [00:52:46.201] } 1566s [00:52:46.201] else { 1566s [00:52:46.201] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1566s [00:52:46.201] } 1566s [00:52:46.201] { 1566s [00:52:46.201] if (base::length(...future.futureOptionsAdded) > 1566s [00:52:46.201] 0L) { 1566s [00:52:46.201] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1566s [00:52:46.201] base::names(opts) <- ...future.futureOptionsAdded 1566s [00:52:46.201] base::options(opts) 1566s [00:52:46.201] } 1566s [00:52:46.201] { 1566s [00:52:46.201] { 1566s [00:52:46.201] base::assign(".Random.seed", c(10403L, 2L, 1566s [00:52:46.201] 133210212L, 1945833034L, 115858357L, -364452081L, 1566s [00:52:46.201] -390319082L, 926195392L, 2057013379L, -803887967L, 1566s [00:52:46.201] -1078998384L, 705296750L, -1682614503L, 830917547L, 1566s [00:52:46.201] -331376230L, 1352842588L, 1960957023L, 1997081653L, 1566s [00:52:46.201] 374446028L, 1510359842L, 1146109309L, -1295266185L, 1566s [00:52:46.201] -1545472098L, 1268700760L, 1627111355L, -855092903L, 1566s [00:52:46.201] -215790872L, -1958931690L, 1906054289L, -782874301L, 1566s [00:52:46.201] -399096750L, -1740777756L, 1763676455L, -832683651L, 1566s [00:52:46.201] 1369376884L, 430697050L, 1699587749L, -1503628097L, 1566s [00:52:46.201] 856180550L, -242424368L, -2127251469L, 505777937L, 1566s [00:52:46.201] 257347392L, -856180962L, 886024169L, -1464480485L, 1566s [00:52:46.201] -1512233174L, -1985955764L, -425390065L, 1566s [00:52:46.201] -589669563L, 381897980L, -790840494L, 1136483533L, 1566s [00:52:46.201] -1535370105L, -607934610L, 1641470280L, -1050403509L, 1566s [00:52:46.201] 1965932713L, 362996216L, 1596838182L, -1829498303L, 1566s [00:52:46.201] -1824465965L, 1872669058L, -417374796L, -1713346249L, 1566s [00:52:46.201] 1818328109L, -1284085436L, -1981489558L, 1566s [00:52:46.201] 1940543701L, 1673049711L, -1514495114L, 467096736L, 1566s [00:52:46.201] 943410531L, -1431020031L, 1115626864L, 965475598L, 1566s [00:52:46.201] -1718567047L, -793788661L, -1133789126L, 1566s [00:52:46.201] -80588996L, 2018258047L, 1866186709L, 42791404L, 1566s [00:52:46.201] -1823521982L, -1345991523L, -1672661737L, 1566s [00:52:46.201] -180777858L, -452713416L, 1448313627L, -1459492743L, 1566s [00:52:46.201] -600706872L, -909649674L, -2081822415L, -1697455773L, 1566s [00:52:46.201] 1517613874L, -820020092L, 188336327L, -1149897827L, 1566s [00:52:46.201] -475203820L, -368005702L, 204442629L, 437854687L, 1566s [00:52:46.201] 1163191398L, -760699920L, 104455443L, 819708593L, 1566s [00:52:46.201] 1129180512L, 48636670L, 1066049161L, 398150075L, 1566s [00:52:46.201] -852036726L, -906028436L, -1265740817L, -1824646107L, 1566s [00:52:46.201] -2126068516L, 1815435954L, -146408019L, -860012185L, 1566s [00:52:46.201] -682500466L, 1443186536L, 1789394795L, -1078204151L, 1566s [00:52:46.201] 809467800L, 1514112710L, -1097673695L, 919601331L, 1566s [00:52:46.201] -331916766L, 795008020L, 1042337943L, -371219827L, 1566s [00:52:46.201] 1558967204L, 1563528586L, -2133607947L, -1904454577L, 1566s [00:52:46.201] -264006826L, 770017792L, 153477955L, 1189667553L, 1566s [00:52:46.201] -363253680L, 1882362030L, 967246937L, -793119637L, 1566s [00:52:46.201] -1401964070L, 2129232540L, -542810977L, -1277899019L, 1566s [00:52:46.201] -377097332L, -406748574L, -1722157507L, -1577740105L, 1566s [00:52:46.201] -455170210L, 372239000L, -1535936005L, -1332632679L, 1566s [00:52:46.201] -1623884760L, -359633706L, 935827793L, 1357445123L, 1566s [00:52:46.201] 997040018L, -1506538204L, -147930137L, -166569923L, 1566s [00:52:46.201] -2103753036L, 1366641946L, 30482021L, 1876964095L, 1566s [00:52:46.201] 2008557446L, 657856784L, -103814733L, 774877777L, 1566s [00:52:46.201] -486350336L, -555057442L, -1821756119L, -963495717L, 1566s [00:52:46.201] 853311466L, 1671241612L, -942337841L, 409538693L, 1566s [00:52:46.201] 1992831804L, 489867794L, 357105933L, -1611412921L, 1566s [00:52:46.201] -1119334354L, -1521015416L, -2041922421L, 1566s [00:52:46.201] 2048874089L, -700216776L, 1651628774L, -10471807L, 1566s [00:52:46.201] 736942611L, 380607938L, -1742088588L, 1124231287L, 1566s [00:52:46.201] 1232111981L, -1801753084L, -1608606422L, 1566s [00:52:46.201] -1172096363L, 1420874031L, -1210473418L, 1566s [00:52:46.201] -18317216L, -571709789L, 1107403201L, 1952554416L, 1566s [00:52:46.201] 1991660750L, -442973639L, 581522507L, -430787078L, 1566s [00:52:46.201] 1105375484L, -1481218753L, -748152299L, -641535700L, 1566s [00:52:46.201] 679371266L, -591318819L, -104578089L, -172818754L, 1566s [00:52:46.201] -1321694984L, -98191653L, 1709083961L, -344680312L, 1566s [00:52:46.201] -159571914L, 581309553L, -63938909L, 76420082L, 1566s [00:52:46.201] 951019332L, -1797740537L, 1291470301L, -2079866156L, 1566s [00:52:46.201] -332493318L, -1978392251L, -1691039632L, 1566s [00:52:46.201] 388791868L, -1101109484L, -1365177662L, 321737440L, 1566s [00:52:46.201] 1812890748L, -133313328L, -1252731998L, 2044530216L, 1566s [00:52:46.201] 1263927564L, 325388220L, 520794418L, 1449646272L, 1566s [00:52:46.201] 87560756L, -87565624L, 426345146L, -699970416L, 1566s [00:52:46.201] 240322284L, -1074080172L, -1536268654L, 1338615584L, 1566s [00:52:46.201] 478476236L, -1933154080L, -192786750L, 1559942184L, 1566s [00:52:46.201] -1178330196L, -687617348L, -1701912078L, 1566s [00:52:46.201] 352314928L, -999229532L, -2052800072L, -1913644198L, 1566s [00:52:46.201] -1345416048L, 1816730492L, -1570431212L, 1566s [00:52:46.201] -269427390L, -2122969344L, -520963140L, 1398087504L, 1566s [00:52:46.201] 264692002L, -1682658744L, -1422452724L, -1601893284L, 1566s [00:52:46.201] -66383406L, 1443075584L, -456249004L, 943694056L, 1566s [00:52:46.201] -1493184262L, -1943836976L, -590788308L, 1566s [00:52:46.201] -405505804L, -1796837998L, 1991543136L, 1170376716L, 1566s [00:52:46.201] 1707420384L, 1899700834L, -1643595096L, 47299148L, 1566s [00:52:46.201] 1274857340L, -1205842638L, -1938479504L, 1566s [00:52:46.201] -1773978812L, 532695000L, 1306451834L, 258403888L, 1566s [00:52:46.201] -284747844L, -1780705708L, 1621936194L, 1129070752L, 1566s [00:52:46.201] 540946108L, -294270512L, -1426480286L, -356302104L, 1566s [00:52:46.201] 349847756L, 1849803260L, -1299125774L, 511654528L, 1566s [00:52:46.201] -1259964940L, -1879857528L, 535666490L, -2020097200L, 1566s [00:52:46.201] -1460751252L, 1201879444L, -1459788718L, 1566s [00:52:46.201] 447195616L, -730891060L, -1875530592L, -2146183806L, 1566s [00:52:46.201] 193274088L, -1224605972L, 1616153916L, -1896973198L, 1566s [00:52:46.201] -420945808L, -1997735900L, -1838404552L, 1566s [00:52:46.201] -413698278L, 1984019664L, -1760209092L, -1288743020L, 1566s [00:52:46.201] 392579970L, -1382567488L, -1295004100L, -33348208L, 1566s [00:52:46.201] 1536615970L, -428761848L, 643368588L, -1596336356L, 1566s [00:52:46.201] 1797431442L, 352422272L, -1043800556L, 60591912L, 1566s [00:52:46.201] -1115663814L, 1043682768L, 521144684L, 4793268L, 1566s [00:52:46.201] -1924265966L, 978890208L, 370048972L, -1607474976L, 1566s [00:52:46.201] -1443637214L, -632405720L, 691912204L, 166321980L, 1566s [00:52:46.201] 942193650L, 751741680L, 689743428L, -18455976L, 1566s [00:52:46.201] -1946329286L, -1619184144L, 239341244L, 371382548L, 1566s [00:52:46.201] -2069808446L, 154176608L, 385987452L, -385611824L, 1566s [00:52:46.201] 1967391010L, 2140654248L, 1720087436L, -1591007044L, 1566s [00:52:46.201] -1612486862L, 1295747648L, 1726784692L, 597326408L, 1566s [00:52:46.201] -973152838L, 628505104L, -1089631508L, 3230036L, 1566s [00:52:46.201] -593837806L, 244006304L, 1357912780L, 1839234656L, 1566s [00:52:46.201] -1357570110L, 1896595240L, -2066952276L, 1566s [00:52:46.201] -1724304580L, 986188146L, -1200604368L, -279100124L, 1566s [00:52:46.201] 131128120L, -1088465190L, 596533136L, 170602236L, 1566s [00:52:46.201] -1051262060L, 215660610L, -686217984L, 444449852L, 1566s [00:52:46.201] 769655120L, 236357794L, 181393736L, -13334772L, 1566s [00:52:46.201] 644690652L, -1969263278L, -2107982720L, 1429553236L, 1566s [00:52:46.201] 794236904L, 1997299962L, -458224816L, 904978220L, 1566s [00:52:46.201] -537093772L, -842839150L, 1828989024L, -679303796L, 1566s [00:52:46.201] 1396292448L, 76319202L, 1896098728L, 418430156L, 1566s [00:52:46.201] 2005956604L, 1370351026L, -1178923536L, -1154073660L, 1566s [00:52:46.201] -1218863784L, 89928058L, 816597936L, -1141767748L, 1566s [00:52:46.201] 1579714644L, 1343385538L, 371259424L, -245180228L, 1566s [00:52:46.201] 365724240L, 1606388706L, -823678872L, 1281309772L, 1566s [00:52:46.201] 1395210492L, 1217887218L, 1420531968L, 1349501300L, 1566s [00:52:46.201] 271647752L, -69959750L, 360452560L, 1565334508L, 1566s [00:52:46.201] 1956526484L, -930709038L, 1961808224L, -1745916084L, 1566s [00:52:46.201] 443656480L, 1990137730L, 694374120L, -1050566420L, 1566s [00:52:46.201] -1365842884L, -438961294L, -1851472272L, 1566s [00:52:46.201] 614534180L, 1401930552L, 3652762L, 1928284880L, 1566s [00:52:46.201] -1637703492L, 26107540L, -132725907L, -371944998L, 1566s [00:52:46.201] -1311388776L, 8516097L, 741008307L, -1149566252L, 1566s [00:52:46.201] -1802640414L, 2019636855L, 1587818433L, -151040698L, 1566s [00:52:46.201] 1598381188L, -205462987L, 1911327L, -1382519432L, 1566s [00:52:46.201] -594809770L, -2146766621L, -2013964635L, 1566s [00:52:46.201] -965534910L, -2077626064L, 1964788057L, 1821395659L, 1566s [00:52:46.201] -1953549508L, -719348886L, 1442511263L, 1969287209L, 1566s [00:52:46.201] 1754221246L, -442299476L, 1981692157L, 113456199L, 1566s [00:52:46.201] 1587794736L, -1811033010L, 1149417595L, -1760887843L, 1566s [00:52:46.201] -1426021878L, -1285634264L, 1507547537L, 1566s [00:52:46.201] -1114120317L, 1897370756L, 1142575794L, -375814649L, 1566s [00:52:46.201] -1661041071L, 881081814L, -548925260L, 2073840837L, 1566s [00:52:46.201] 1156484623L, 2011334280L, 1107815334L, 969024339L, 1566s [00:52:46.201] -55972683L, 2006780434L, -1486403616L, 1698650697L, 1566s [00:52:46.201] 1813794939L, -1717763764L, 1268815066L, -1200630577L, 1566s [00:52:46.201] -773717863L, -12215122L, 1354639804L, 1213207085L, 1566s [00:52:46.201] -978295337L, 340143136L, 485429630L, -568148149L, 1566s [00:52:46.201] 1257440589L, 930106234L, -883274312L, -1632538783L, 1566s [00:52:46.201] 894748435L, -1592959180L, -596177598L, 120963415L, 1566s [00:52:46.201] -1174532959L, -561474202L, 1438545764L, 1429911189L, 1566s [00:52:46.201] 1075965887L, 367866712L, -892333706L, -485158013L, 1566s [00:52:46.201] -682634811L, 963344098L, 2110199632L, 1990767225L, 1566s [00:52:46.201] 1348335019L, 269581084L, -2040640438L, 1453561919L, 1566s [00:52:46.201] 853952649L, 1195494558L, 1614051660L, 2040242461L, 1566s [00:52:46.201] -1604604761L, 1421229008L, -1268333714L, 1566s [00:52:46.201] 174113307L, 2044969853L, 190112106L, -998776824L, 1566s [00:52:46.201] -2070476623L, -2099222749L, 1141171236L, 1566s [00:52:46.201] -146426158L, -1797385433L, -1129376399L, 1566s [00:52:46.201] -1496589386L, -419561644L, -613549595L, 1243456495L, 1566s [00:52:46.201] 451212072L, 1923543942L, 1146113971L, 93579029L, 1566s [00:52:46.201] -397504142L, 597218752L, 459048489L, 1447221915L, 1566s [00:52:46.201] -272948372L, -373834886L, 934888623L, -2099351623L, 1566s [00:52:46.201] -1672042034L, 193924380L, -704518003L, 781993207L, 1566s [00:52:46.201] -258875392L, -1853783458L, 1315003691L, -41214419L, 1566s [00:52:46.201] -59447654L, 1203745368L, 426003905L, 452670067L, 1566s [00:52:46.201] -1092079724L, -1765622238L, -1882554057L, 1566s [00:52:46.201] 1278087169L, -1994822394L, -124954300L, 1994460277L, 1566s [00:52:46.201] 1816829407L, -1568282312L, 1563616022L, 1255996195L, 1566s [00:52:46.201] 1702121701L, 1784032514L, 1842995056L, 748060441L, 1566s [00:52:46.201] 1432229643L, -1905232900L, 2016890922L, 1403944031L, 1566s [00:52:46.201] 351712233L, 1338932478L, -1359366932L, -803018691L, 1566s [00:52:46.201] -1551885305L, 248629232L, 1839395726L, 1411789243L, 1566s [00:52:46.201] 840085405L, -1849000630L, -669518488L, -1453417647L, 1566s [00:52:46.201] -1527179197L, -377159356L, 1674525170L, -313742393L, 1566s [00:52:46.201] 865377681L, -1127426242L), envir = base::globalenv(), 1566s [00:52:46.201] inherits = FALSE) 1566s [00:52:46.201] NULL 1566s [00:52:46.201] } 1566s [00:52:46.201] options(future.plan = NULL) 1566s [00:52:46.201] if (is.na(NA_character_)) 1566s [00:52:46.201] Sys.unsetenv("R_FUTURE_PLAN") 1566s [00:52:46.201] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1566s [00:52:46.201] future::plan(list(function (..., envir = parent.frame()) 1566s [00:52:46.201] { 1566s [00:52:46.201] future <- SequentialFuture(..., envir = envir) 1566s [00:52:46.201] if (!future$lazy) 1566s [00:52:46.201] future <- run(future) 1566s [00:52:46.201] invisible(future) 1566s [00:52:46.201] }), .cleanup = FALSE, .init = FALSE) 1566s [00:52:46.201] } 1566s [00:52:46.201] } 1566s [00:52:46.201] } 1566s [00:52:46.201] }) 1566s [00:52:46.201] if (TRUE) { 1566s [00:52:46.201] base::sink(type = "output", split = FALSE) 1566s [00:52:46.201] if (TRUE) { 1566s [00:52:46.201] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1566s [00:52:46.201] } 1566s [00:52:46.201] else { 1566s [00:52:46.201] ...future.result["stdout"] <- base::list(NULL) 1566s [00:52:46.201] } 1566s [00:52:46.201] base::close(...future.stdout) 1566s [00:52:46.201] ...future.stdout <- NULL 1566s [00:52:46.201] } 1566s [00:52:46.201] ...future.result$conditions <- ...future.conditions 1566s [00:52:46.201] ...future.result$finished <- base::Sys.time() 1566s [00:52:46.201] ...future.result 1566s [00:52:46.201] } 1566s [00:52:46.213] assign_globals() ... 1566s [00:52:46.213] List of 5 1566s [00:52:46.213] $ ...future.FUN :function (...) 1566s [00:52:46.213] $ future.call.arguments : list() 1566s [00:52:46.213] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1566s [00:52:46.213] $ ...future.elements_ii :List of 5 1566s [00:52:46.213] ..$ : int 0 1566s [00:52:46.213] ..$ : int 0 1566s [00:52:46.213] ..$ : int 0 1566s [00:52:46.213] ..$ : int 0 1566s [00:52:46.213] ..$ : int 0 1566s [00:52:46.213] $ ...future.seeds_ii :List of 5 1566s [00:52:46.213] ..$ : int [1:7] 10407 424279327 242013539 -50536943 1949045882 -966354368 52785545 1566s [00:52:46.213] ..$ : int [1:7] 10407 1259015031 702630336 336295781 836592074 1678845563 -511089912 1566s [00:52:46.213] ..$ : int [1:7] 10407 1164394434 449220430 -1497007122 58661922 77957643 -850372858 1566s [00:52:46.213] ..$ : int [1:7] 10407 -102834055 -568341906 440844328 496378464 1781291461 1929965415 1566s [00:52:46.213] ..$ : int [1:7] 10407 -1584691803 1955381789 -562762208 1163324668 -1514628943 475545435 1566s [00:52:46.213] $ ...future.globals.maxSize: NULL 1566s [00:52:46.213] - attr(*, "where")=List of 5 1566s [00:52:46.213] ..$ ...future.FUN : 1566s [00:52:46.213] ..$ future.call.arguments : 1566s [00:52:46.213] ..$ ...future.elements_ii : 1566s [00:52:46.213] ..$ ...future.seeds_ii : 1566s [00:52:46.213] ..$ ...future.globals.maxSize: 1566s [00:52:46.213] - attr(*, "resolved")= logi FALSE 1566s [00:52:46.213] - attr(*, "total_size")= num 616 1566s [00:52:46.213] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1566s [00:52:46.213] - attr(*, "already-done")= logi TRUE 1566s [00:52:46.229] - reassign environment for ‘...future.FUN’ 1566s [00:52:46.230] - copied ‘...future.FUN’ to environment 1566s [00:52:46.230] - copied ‘future.call.arguments’ to environment 1566s [00:52:46.230] - copied ‘...future.elements_ii’ to environment 1566s [00:52:46.233] - copied ‘...future.seeds_ii’ to environment 1566s [00:52:46.233] - copied ‘...future.globals.maxSize’ to environment 1566s [00:52:46.233] assign_globals() ... done 1566s [00:52:46.234] plan(): Setting new future strategy stack: 1566s [00:52:46.234] List of future strategies: 1566s [00:52:46.234] 1. sequential: 1566s [00:52:46.234] - args: function (..., envir = parent.frame()) 1566s [00:52:46.234] - tweaked: FALSE 1566s [00:52:46.234] - call: NULL 1566s [00:52:46.235] plan(): nbrOfWorkers() = 1 1566s [00:52:46.236] plan(): Setting new future strategy stack: 1566s [00:52:46.237] List of future strategies: 1566s [00:52:46.237] 1. sequential: 1566s [00:52:46.237] - args: function (..., envir = parent.frame()) 1566s [00:52:46.237] - tweaked: FALSE 1566s [00:52:46.237] - call: plan(strategy) 1566s [00:52:46.237] plan(): nbrOfWorkers() = 1 1566s [00:52:46.238] SequentialFuture started (and completed) 1566s [00:52:46.238] - Launch lazy future ... done 1566s [00:52:46.238] run() for ‘SequentialFuture’ ... done 1566s [00:52:46.238] Created future: 1566s [00:52:46.238] SequentialFuture: 1566s [00:52:46.238] Label: ‘future_replicate-1’ 1566s [00:52:46.238] Expression: 1566s [00:52:46.238] { 1566s [00:52:46.238] do.call(function(...) { 1566s [00:52:46.238] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1566s [00:52:46.238] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1566s [00:52:46.238] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1566s [00:52:46.238] on.exit(options(oopts), add = TRUE) 1566s [00:52:46.238] } 1566s [00:52:46.238] { 1566s [00:52:46.238] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1566s [00:52:46.238] ...future.X_jj <- ...future.elements_ii[[jj]] 1566s [00:52:46.238] assign(".Random.seed", ...future.seeds_ii[[jj]], 1566s [00:52:46.238] envir = globalenv(), inherits = FALSE) 1566s [00:52:46.238] ...future.FUN(...future.X_jj, ...) 1566s [00:52:46.238] }) 1566s [00:52:46.238] } 1566s [00:52:46.238] }, args = future.call.arguments) 1566s [00:52:46.238] } 1566s [00:52:46.238] Lazy evaluation: FALSE 1566s [00:52:46.238] Asynchronous evaluation: FALSE 1566s [00:52:46.238] Local evaluation: TRUE 1566s [00:52:46.238] Environment: R_GlobalEnv 1566s [00:52:46.238] Capture standard output: TRUE 1566s [00:52:46.238] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1566s [00:52:46.238] Globals: 5 objects totaling 1.27 KiB (function ‘...future.FUN’ of 616 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 280 bytes, list ‘...future.seeds_ii’ of 400 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1566s [00:52:46.238] Packages: 1566s [00:52:46.238] L'Ecuyer-CMRG RNG seed: (seed = NULL) 1566s [00:52:46.238] Resolved: TRUE 1566s [00:52:46.238] Value: 280 bytes of class ‘list’ 1566s [00:52:46.238] Early signaling: FALSE 1566s [00:52:46.238] Owner process: 50289bf5-8c9f-f501-15c6-3ca1fa8d82cf 1566s [00:52:46.238] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1566s [00:52:46.241] Chunk #1 of 1 ... DONE 1566s [00:52:46.241] Launching 1 futures (chunks) ... DONE 1566s [00:52:46.241] Resolving 1 futures (chunks) ... 1566s [00:52:46.241] resolve() on list ... 1566s [00:52:46.241] recursive: 0 1566s [00:52:46.242] length: 1 1566s [00:52:46.242] 1566s [00:52:46.242] resolved() for ‘SequentialFuture’ ... 1566s [00:52:46.242] - state: ‘finished’ 1566s [00:52:46.243] - run: TRUE 1566s [00:52:46.243] - result: ‘FutureResult’ 1566s [00:52:46.243] resolved() for ‘SequentialFuture’ ... done 1566s [00:52:46.243] Future #1 1566s [00:52:46.243] signalConditionsASAP(SequentialFuture, pos=1) ... 1566s [00:52:46.244] - nx: 1 1566s [00:52:46.244] - relay: TRUE 1566s [00:52:46.244] - stdout: TRUE 1566s [00:52:46.244] - signal: TRUE 1566s [00:52:46.245] - resignal: FALSE 1566s [00:52:46.245] - force: TRUE 1566s [00:52:46.245] - relayed: [n=1] FALSE 1566s [00:52:46.245] - queued futures: [n=1] FALSE 1566s [00:52:46.245] - until=1 1566s [00:52:46.245] - relaying element #1 1566s [00:52:46.246] - relayed: [n=1] TRUE 1566s [00:52:46.246] - queued futures: [n=1] TRUE 1566s [00:52:46.246] signalConditionsASAP(SequentialFuture, pos=1) ... done 1566s [00:52:46.246] length: 0 (resolved future 1) 1566s [00:52:46.246] Relaying remaining futures 1566s [00:52:46.247] signalConditionsASAP(NULL, pos=0) ... 1566s [00:52:46.247] - nx: 1 1566s [00:52:46.247] - relay: TRUE 1566s [00:52:46.247] - stdout: TRUE 1566s [00:52:46.247] - signal: TRUE 1566s [00:52:46.247] - resignal: FALSE 1566s [00:52:46.248] - force: TRUE 1566s [00:52:46.248] - relayed: [n=1] TRUE 1566s [00:52:46.248] - queued futures: [n=1] TRUE 1566s - flush all 1566s [00:52:46.248] - relayed: [n=1] TRUE 1566s [00:52:46.249] - queued futures: [n=1] TRUE 1566s [00:52:46.249] signalConditionsASAP(NULL, pos=0) ... done 1566s [00:52:46.249] resolve() on list ... DONE 1566s [00:52:46.249] - Number of value chunks collected: 1 1566s [00:52:46.249] Resolving 1 futures (chunks) ... DONE 1566s [00:52:46.249] Reducing values from 1 chunks ... 1566s [00:52:46.250] - Number of values collected after concatenation: 5 1566s [00:52:46.250] - Number of values expected: 5 1566s [00:52:46.250] Reducing values from 1 chunks ... DONE 1566s [00:52:46.250] future_lapply() ... DONE 1566s [00:52:46.250] future_lapply() ... 1566s [00:52:46.251] Generating random seeds ... 1566s [00:52:46.251] Generating random seed streams for 5 elements ... 1566s [00:52:46.251] Generating random seed streams for 5 elements ... DONE 1566s [00:52:46.252] Generating random seeds ... DONE 1566s [00:52:46.252] Will set RNG state on exit: 10403, 2, 133210212, 1945833034, 115858357, -364452081, -390319082, 926195392, 2057013379, -803887967, -1078998384, 705296750, -1682614503, 830917547, -331376230, 1352842588, 1960957023, 1997081653, 374446028, 1510359842, 1146109309, -1295266185, -1545472098, 1268700760, 1627111355, -855092903, -215790872, -1958931690, 1906054289, -782874301, -399096750, -1740777756, 1763676455, -832683651, 1369376884, 430697050, 1699587749, -1503628097, 856180550, -242424368, -2127251469, 505777937, 257347392, -856180962, 886024169, -1464480485, -1512233174, -1985955764, -425390065, -589669563, 381897980, -790840494, 1136483533, -1535370105, -607934610, 1641470280, -1050403509, 1965932713, 362996216, 1596838182, -1829498303, -1824465965, 1872669058, -417374796, -1713346249, 1818328109, -1284085436, -1981489558, 1940543701, 1673049711, -1514495114, 467096736, 943410531, -1431020031, 1115626864, 965475598, -1718567047, -793788661, -1133789126, -80588996, 2018258047, 1866186709, 42791404, -1823521982, -1345991523, -1672661737, -180777858, -452713416, 1448313627, -1459492743, -600706872, -909649674, -2081822415, -1697455773, 1517613874, -820020092, 188336327, -1149897827, -475203820, -368005702, 204442629, 437854687, 1163191398, -760699920, 104455443, 819708593, 1129180512, 48636670, 1066049161, 398150075, -852036726, -906028436, -1265740817, -1824646107, -2126068516, 1815435954, -146408019, -860012185, -682500466, 1443186536, 1789394795, -1078204151, 809467800, 1514112710, -1097673695, 919601331, -331916766, 795008020, 1042337943, -371219827, 1558967204, 1563528586, -2133607947, -1904454577, -264006826, 770017792, 153477955, 1189667553, -363253680, 1882362030, 967246937, -793119637, -1401964070, 2129232540, -542810977, -1277899019, -377097332, -406748574, -1722157507, -1577740105, -455170210, 372239000, -1535936005, -1332632679, -1623884760, -359633706, 935827793, 1357445123, 997040018, -1506538204, -147930137, -166569923, -2103753036, 1366641946, 30482021, 1876964095, 2008557446, 657856784, -103814733, 774877777, -486350336, -555057442, -1821756119, -963495717, 853311466, 1671241612, -942337841, 409538693, 1992831804, 489867794, 357105933, -1611412921, -1119334354, -1521015416, -2041922421, 2048874089, -700216776, 1651628774, -10471807, 736942611, 380607938, -1742088588, 1124231287, 1232111981, -1801753084, -1608606422, -1172096363, 1420874031, -1210473418, -18317216, -571709789, 1107403201, 1952554416, 1991660750, -442973639, 581522507, -430787078, 1105375484, -1481218753, -748152299, -641535700, 679371266, -591318819, -104578089, -172818754, -1321694984, -98191653, 1709083961, -344680312, -159571914, 581309553, -63938909, 76420082, 951019332, -1797740537, 1291470301, -2079866156, -332493318, -1978392251, -1691039632, 388791868, -1101109484, -1365177662, 321737440, 1812890748, -133313328, -1252731998, 2044530216, 1263927564, 325388220, 520794418, 1449646272, 87560756, -87565624, 426345146, -699970416, 240322284, -1074080172, -1536268654, 1338615584, 478476236, -1933154080, -192786750, 1559942184, -1178330196, -687617348, -1701912078, 352314928, -999229532, -2052800072, -1913644198, -1345416048, 1816730492, -1570431212, -269427390, -2122969344, -520963140, 1398087504, 264692002, -1682658744, -1422452724, -1601893284, -66383406, 1443075584, -456249004, 943694056, -1493184262, -1943836976, -590788308, -405505804, -1796837998, 1991543136, 1170376716, 1707420384, 1899700834, -1643595096, 47299148, 1274857340, -1205842638, -1938479504, -1773978812, 532695000, 1306451834, 258403888, -284747844, -1780705708, 1621936194, 1129070752, 540946108, -294270512, -1426480286, -356302104, 349847756, 1849803260, -1299125774, 511654528, -1259964940, -1879857528, 535666490, -2020097200, -1460751252, 1201879444, -1459788718, 447195616, -730891060, -1875530592, -2146183806, 193274088, -1224605972, 1616153916, -1896973198, -420945808, -1997735900, -1838404552, -413698278, 1984019664, -1760209092, -1288743020, 392579970, -1382567488, -1295004100, -33348208, 1536615970, -428761848, 643368588, -1596336356, 1797431442, 352422272, -1043800556, 60591912, -1115663814, 1043682768, 521144684, 4793268, -1924265966, 978890208, 370048972, -1607474976, -1443637214, -632405720, 691912204, 166321980, 942193650, 751741680, 689743428, -18455976, -1946329286, -1619184144, 239341244, 371382548, -2069808446, 154176608, 385987452, -385611824, 1967391010, 2140654248, 1720087436, -1591007044, -1612486862, 1295747648, 1726784692, 597326408, -973152838, 628505104, -1089631508, 3230036, -593837806, 244006304, 1357912780, 1839234656, -1357570110, 1896595240, -2066952276, -1724304580, 986188146, -1200604368, -279100124, 131128120, -1088465190, 596533136, 170602236, -1051262060, 215660610, -686217984, 444449852, 769655120, 236357794, 181393736, -13334772, 644690652, -1969263278, -2107982720, 1429553236, 794236904, 1997299962, -458224816, 904978220, -537093772, -842839150, 1828989024, -679303796, 1396292448, 76319202, 1896098728, 418430156, 2005956604, 1370351026, -1178923536, -1154073660, -1218863784, 89928058, 816597936, -1141767748, 1579714644, 1343385538, 371259424, -245180228, 365724240, 1606388706, -823678872, 1281309772, 1395210492, 1217887218, 1420531968, 1349501300, 271647752, -69959750, 360452560, 1565334508, 1956526484, -930709038, 1961808224, -1745916084, 443656480, 1990137730, 694374120, -1050566420, -1365842884, -438961294, -1851472272, 614534180, 1401930552, 3652762, 1928284880, -1637703492, 26107540, -132725907, -371944998, -1311388776, 8516097, 741008307, -1149566252, -1802640414, 2019636855, 1587818433, -151040698, 1598381188, -205462987, 1911327, -1382519432, -594809770, -2146766621, -2013964635, -965534910, -2077626064, 1964788057, 1821395659, -1953549508, -719348886, 1442511263, 1969287209, 1754221246, -442299476, 1981692157, 113456199, 1587794736, -1811033010, 1149417595, -1760887843, -1426021878, -1285634264, 1507547537, -1114120317, 1897370756, 1142575794, -375814649, -1661041071, 881081814, -548925260, 2073840837, 1156484623, 2011334280, 1107815334, 969024339, -55972683, 2006780434, -1486403616, 1698650697, 1813794939, -1717763764, 1268815066, -1200630577, -773717863, -12215122, 1354639804, 1213207085, -978295337, 340143136, 485429630, -568148149, 1257440589, 930106234, -883274312, -1632538783, 894748435, -1592959180, -596177598, 120963415, -1174532959, -561474202, 1438545764, 1429911189, 1075965887, 367866712, -892333706, -485158013, -682634811, 963344098, 2110199632, 1990767225, 1348335019, 269581084, -2040640438, 1453561919, 853952649, 1195494558, 1614051660, 2040242461, -1604604761, 1421229008, -1268333714, 174113307, 2044969853, 190112106, -998776824, -2070476623, -2099222749, 1141171236, -146426158, -1797385433, -1129376399, -1496589386, -419561644, -613549595, 1243456495, 451212072, 1923543942, 1146113971, 93579029, -397504142, 597218752, 459048489, 1447221915, -272948372, -373834886, 934888623, -2099351623, -1672042034, 193924380, -704518003, 781993207, -258875392, -1853783458, 1315003691, -41214419, -59447654, 1203745368, 426003905, 452670067, -1092079724, -1765622238, -1882554057, 1278087169, -1994822394, -124954300, 1994460277, 1816829407, -1568282312, 1563616022, 1255996195, 1702121701, 1784032514, 1842995056, 748060441, 1432229643, -1905232900, 2016890922, 1403944031, 351712233, 1338932478, -1359366932, -803018691, -1551885305, 248629232, 1839395726, 1411789243, 840085405, -1849000630, -669518488, -1453417647, -1527179197, -377159356, 1674525170, -313742393, 865377681, -1127426242 1566s [00:52:46.254] Number of chunks: 1 1566s [00:52:46.254] getGlobalsAndPackagesXApply() ... 1566s [00:52:46.254] - future.globals: TRUE 1566s [00:52:46.254] getGlobalsAndPackages() ... 1566s [00:52:46.255] Searching for globals... 1566s [00:52:46.256] - globals found: [2] ‘FUN’, ‘sample’ 1566s [00:52:46.257] Searching for globals ... DONE 1566s [00:52:46.257] Resolving globals: FALSE 1566s [00:52:46.257] The total size of the 1 globals is 616 bytes (616 bytes) 1566s [00:52:46.258] The total size of the 1 globals exported for future expression (‘FUN()’) is 616 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (616 bytes of class ‘function’) 1566s [00:52:46.258] - globals: [1] ‘FUN’ 1566s [00:52:46.258] 1566s [00:52:46.258] getGlobalsAndPackages() ... DONE 1566s [00:52:46.258] - globals found/used: [n=1] ‘FUN’ 1566s [00:52:46.258] - needed namespaces: [n=0] 1566s [00:52:46.259] Finding globals ... DONE 1566s [00:52:46.259] - use_args: TRUE 1566s [00:52:46.259] - Getting '...' globals ... 1566s [00:52:46.259] resolve() on list ... 1566s [00:52:46.259] recursive: 0 1566s [00:52:46.259] length: 1 1566s [00:52:46.260] elements: ‘...’ 1566s [00:52:46.260] length: 0 (resolved future 1) 1566s [00:52:46.260] resolve() on list ... DONE 1566s [00:52:46.260] - '...' content: [n=0] 1566s [00:52:46.260] List of 1 1566s [00:52:46.260] $ ...: list() 1566s [00:52:46.260] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1566s [00:52:46.260] - attr(*, "where")=List of 1 1566s [00:52:46.260] ..$ ...: 1566s [00:52:46.260] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1566s [00:52:46.260] - attr(*, "resolved")= logi TRUE 1566s [00:52:46.260] - attr(*, "total_size")= num NA 1566s [00:52:46.264] - Getting '...' globals ... DONE 1566s [00:52:46.264] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1566s [00:52:46.264] List of 2 1566s [00:52:46.264] $ ...future.FUN:function (...) 1566s [00:52:46.264] $ ... : list() 1566s [00:52:46.264] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1566s [00:52:46.264] - attr(*, "where")=List of 2 1566s [00:52:46.264] ..$ ...future.FUN: 1566s [00:52:46.264] ..$ ... : 1566s [00:52:46.264] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1566s [00:52:46.264] - attr(*, "resolved")= logi FALSE 1566s [00:52:46.264] - attr(*, "total_size")= num 616 1566s [00:52:46.268] Packages to be attached in all futures: [n=0] 1566s [00:52:46.268] getGlobalsAndPackagesXApply() ... DONE 1566s [00:52:46.269] Number of futures (= number of chunks): 1 1566s [00:52:46.269] Launching 1 futures (chunks) ... 1566s [00:52:46.269] Chunk #1 of 1 ... 1566s [00:52:46.269] - Finding globals in 'X' for chunk #1 ... 1566s [00:52:46.269] getGlobalsAndPackages() ... 1566s [00:52:46.270] Searching for globals... 1566s [00:52:46.270] 1566s [00:52:46.270] Searching for globals ... DONE 1566s [00:52:46.270] - globals: [0] 1566s [00:52:46.270] getGlobalsAndPackages() ... DONE 1566s [00:52:46.270] + additional globals found: [n=0] 1566s [00:52:46.271] + additional namespaces needed: [n=0] 1566s [00:52:46.271] - Finding globals in 'X' for chunk #1 ... DONE 1566s [00:52:46.271] - seeds: [5] 1566s [00:52:46.271] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1566s [00:52:46.272] getGlobalsAndPackages() ... 1566s [00:52:46.272] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1566s [00:52:46.272] Resolving globals: FALSE 1566s [00:52:46.272] Tweak future expression to call with '...' arguments ... 1566s [00:52:46.272] { 1566s [00:52:46.272] do.call(function(...) { 1566s [00:52:46.272] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1566s [00:52:46.272] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1566s [00:52:46.272] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1566s [00:52:46.272] on.exit(options(oopts), add = TRUE) 1566s [00:52:46.272] } 1566s [00:52:46.272] { 1566s [00:52:46.272] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1566s [00:52:46.272] ...future.X_jj <- ...future.elements_ii[[jj]] 1566s [00:52:46.272] assign(".Random.seed", ...future.seeds_ii[[jj]], 1566s [00:52:46.272] envir = globalenv(), inherits = FALSE) 1566s [00:52:46.272] ...future.FUN(...future.X_jj, ...) 1566s [00:52:46.272] }) 1566s [00:52:46.272] } 1566s [00:52:46.272] }, args = future.call.arguments) 1566s [00:52:46.272] } 1566s [00:52:46.273] Tweak future expression to call with '...' arguments ... DONE 1566s [00:52:46.273] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1566s [00:52:46.273] 1566s [00:52:46.274] getGlobalsAndPackages() ... DONE 1566s [00:52:46.274] run() for ‘Future’ ... 1566s [00:52:46.274] - state: ‘created’ 1566s [00:52:46.274] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1566s [00:52:46.275] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1566s [00:52:46.275] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1566s [00:52:46.275] - Field: ‘label’ 1566s [00:52:46.275] - Field: ‘local’ 1566s [00:52:46.275] - Field: ‘owner’ 1566s [00:52:46.275] - Field: ‘envir’ 1566s [00:52:46.276] - Field: ‘packages’ 1566s [00:52:46.278] - Field: ‘gc’ 1566s [00:52:46.278] - Field: ‘conditions’ 1566s [00:52:46.279] - Field: ‘expr’ 1566s [00:52:46.279] - Field: ‘uuid’ 1566s [00:52:46.279] - Field: ‘seed’ 1566s [00:52:46.279] - Field: ‘version’ 1566s [00:52:46.279] - Field: ‘result’ 1566s [00:52:46.279] - Field: ‘asynchronous’ 1566s [00:52:46.280] - Field: ‘calls’ 1566s [00:52:46.280] - Field: ‘globals’ 1566s [00:52:46.280] - Field: ‘stdout’ 1566s [00:52:46.280] - Field: ‘earlySignal’ 1566s [00:52:46.280] - Field: ‘lazy’ 1566s [00:52:46.280] - Field: ‘state’ 1566s [00:52:46.280] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1566s [00:52:46.281] - Launch lazy future ... 1566s [00:52:46.281] Packages needed by the future expression (n = 0): 1566s [00:52:46.282] Packages needed by future strategies (n = 0): 1566s [00:52:46.282] { 1566s [00:52:46.282] { 1566s [00:52:46.282] { 1566s [00:52:46.282] ...future.startTime <- base::Sys.time() 1566s [00:52:46.282] { 1566s [00:52:46.282] { 1566s [00:52:46.282] { 1566s [00:52:46.282] base::local({ 1566s [00:52:46.282] has_future <- base::requireNamespace("future", 1566s [00:52:46.282] quietly = TRUE) 1566s [00:52:46.282] if (has_future) { 1566s [00:52:46.282] ns <- base::getNamespace("future") 1566s [00:52:46.282] version <- ns[[".package"]][["version"]] 1566s [00:52:46.282] if (is.null(version)) 1566s [00:52:46.282] version <- utils::packageVersion("future") 1566s [00:52:46.282] } 1566s [00:52:46.282] else { 1566s [00:52:46.282] version <- NULL 1566s [00:52:46.282] } 1566s [00:52:46.282] if (!has_future || version < "1.8.0") { 1566s [00:52:46.282] info <- base::c(r_version = base::gsub("R version ", 1566s [00:52:46.282] "", base::R.version$version.string), 1566s [00:52:46.282] platform = base::sprintf("%s (%s-bit)", 1566s [00:52:46.282] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1566s [00:52:46.282] os = base::paste(base::Sys.info()[base::c("sysname", 1566s [00:52:46.282] "release", "version")], collapse = " "), 1566s [00:52:46.282] hostname = base::Sys.info()[["nodename"]]) 1566s [00:52:46.282] info <- base::sprintf("%s: %s", base::names(info), 1566s [00:52:46.282] info) 1566s [00:52:46.282] info <- base::paste(info, collapse = "; ") 1566s [00:52:46.282] if (!has_future) { 1566s [00:52:46.282] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1566s [00:52:46.282] info) 1566s [00:52:46.282] } 1566s [00:52:46.282] else { 1566s [00:52:46.282] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1566s [00:52:46.282] info, version) 1566s [00:52:46.282] } 1566s [00:52:46.282] base::stop(msg) 1566s [00:52:46.282] } 1566s [00:52:46.282] }) 1566s [00:52:46.282] } 1566s [00:52:46.282] options(future.plan = NULL) 1566s [00:52:46.282] Sys.unsetenv("R_FUTURE_PLAN") 1566s [00:52:46.282] future::plan("default", .cleanup = FALSE, .init = FALSE) 1566s [00:52:46.282] } 1566s [00:52:46.282] ...future.workdir <- getwd() 1566s [00:52:46.282] } 1566s [00:52:46.282] ...future.oldOptions <- base::as.list(base::.Options) 1566s [00:52:46.282] ...future.oldEnvVars <- base::Sys.getenv() 1566s [00:52:46.282] } 1566s [00:52:46.282] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1566s [00:52:46.282] future.globals.maxSize = NULL, future.globals.method = NULL, 1566s [00:52:46.282] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1566s [00:52:46.282] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1566s [00:52:46.282] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1566s [00:52:46.282] future.stdout.windows.reencode = NULL, width = 80L) 1566s [00:52:46.282] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1566s [00:52:46.282] base::names(...future.oldOptions)) 1566s [00:52:46.282] } 1566s [00:52:46.282] if (FALSE) { 1566s [00:52:46.282] } 1566s [00:52:46.282] else { 1566s [00:52:46.282] if (TRUE) { 1566s [00:52:46.282] ...future.stdout <- base::rawConnection(base::raw(0L), 1566s [00:52:46.282] open = "w") 1566s [00:52:46.282] } 1566s [00:52:46.282] else { 1566s [00:52:46.282] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1566s [00:52:46.282] windows = "NUL", "/dev/null"), open = "w") 1566s [00:52:46.282] } 1566s [00:52:46.282] base::sink(...future.stdout, type = "output", split = FALSE) 1566s [00:52:46.282] base::on.exit(if (!base::is.null(...future.stdout)) { 1566s [00:52:46.282] base::sink(type = "output", split = FALSE) 1566s [00:52:46.282] base::close(...future.stdout) 1566s [00:52:46.282] }, add = TRUE) 1566s [00:52:46.282] } 1566s [00:52:46.282] ...future.frame <- base::sys.nframe() 1566s [00:52:46.282] ...future.conditions <- base::list() 1566s [00:52:46.282] ...future.rng <- base::globalenv()$.Random.seed 1566s [00:52:46.282] if (FALSE) { 1566s [00:52:46.282] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1566s [00:52:46.282] "...future.value", "...future.globalenv.names", ".Random.seed") 1566s [00:52:46.282] } 1566s [00:52:46.282] ...future.result <- base::tryCatch({ 1566s [00:52:46.282] base::withCallingHandlers({ 1566s [00:52:46.282] ...future.value <- base::withVisible(base::local({ 1566s [00:52:46.282] do.call(function(...) { 1566s [00:52:46.282] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1566s [00:52:46.282] if (!identical(...future.globals.maxSize.org, 1566s [00:52:46.282] ...future.globals.maxSize)) { 1566s [00:52:46.282] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1566s [00:52:46.282] on.exit(options(oopts), add = TRUE) 1566s [00:52:46.282] } 1566s [00:52:46.282] { 1566s [00:52:46.282] lapply(seq_along(...future.elements_ii), 1566s [00:52:46.282] FUN = function(jj) { 1566s [00:52:46.282] ...future.X_jj <- ...future.elements_ii[[jj]] 1566s [00:52:46.282] assign(".Random.seed", ...future.seeds_ii[[jj]], 1566s [00:52:46.282] envir = globalenv(), inherits = FALSE) 1566s [00:52:46.282] ...future.FUN(...future.X_jj, ...) 1566s [00:52:46.282] }) 1566s [00:52:46.282] } 1566s [00:52:46.282] }, args = future.call.arguments) 1566s [00:52:46.282] })) 1566s [00:52:46.282] future::FutureResult(value = ...future.value$value, 1566s [00:52:46.282] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1566s [00:52:46.282] ...future.rng), globalenv = if (FALSE) 1566s [00:52:46.282] list(added = base::setdiff(base::names(base::.GlobalEnv), 1566s [00:52:46.282] ...future.globalenv.names)) 1566s [00:52:46.282] else NULL, started = ...future.startTime, version = "1.8") 1566s [00:52:46.282] }, condition = base::local({ 1566s [00:52:46.282] c <- base::c 1566s [00:52:46.282] inherits <- base::inherits 1566s [00:52:46.282] invokeRestart <- base::invokeRestart 1566s [00:52:46.282] length <- base::length 1566s [00:52:46.282] list <- base::list 1566s [00:52:46.282] seq.int <- base::seq.int 1566s [00:52:46.282] signalCondition <- base::signalCondition 1566s [00:52:46.282] sys.calls <- base::sys.calls 1566s [00:52:46.282] `[[` <- base::`[[` 1566s [00:52:46.282] `+` <- base::`+` 1566s [00:52:46.282] `<<-` <- base::`<<-` 1566s [00:52:46.282] sysCalls <- function(calls = sys.calls(), from = 1L) { 1566s [00:52:46.282] calls[seq.int(from = from + 12L, to = length(calls) - 1566s [00:52:46.282] 3L)] 1566s [00:52:46.282] } 1566s [00:52:46.282] function(cond) { 1566s [00:52:46.282] is_error <- inherits(cond, "error") 1566s [00:52:46.282] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1566s [00:52:46.282] NULL) 1566s [00:52:46.282] if (is_error) { 1566s [00:52:46.282] sessionInformation <- function() { 1566s [00:52:46.282] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1566s [00:52:46.282] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1566s [00:52:46.282] search = base::search(), system = base::Sys.info()) 1566s [00:52:46.282] } 1566s [00:52:46.282] ...future.conditions[[length(...future.conditions) + 1566s [00:52:46.282] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1566s [00:52:46.282] cond$call), session = sessionInformation(), 1566s [00:52:46.282] timestamp = base::Sys.time(), signaled = 0L) 1566s [00:52:46.282] signalCondition(cond) 1566s [00:52:46.282] } 1566s [00:52:46.282] else if (!ignore && TRUE && inherits(cond, c("condition", 1566s [00:52:46.282] "immediateCondition"))) { 1566s [00:52:46.282] signal <- TRUE && inherits(cond, "immediateCondition") 1566s [00:52:46.282] ...future.conditions[[length(...future.conditions) + 1566s [00:52:46.282] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1566s [00:52:46.282] if (TRUE && !signal) { 1566s [00:52:46.282] muffleCondition <- function (cond, pattern = "^muffle") 1566s [00:52:46.282] { 1566s [00:52:46.282] inherits <- base::inherits 1566s [00:52:46.282] invokeRestart <- base::invokeRestart 1566s [00:52:46.282] is.null <- base::is.null 1566s [00:52:46.282] muffled <- FALSE 1566s [00:52:46.282] if (inherits(cond, "message")) { 1566s [00:52:46.282] muffled <- grepl(pattern, "muffleMessage") 1566s [00:52:46.282] if (muffled) 1566s [00:52:46.282] invokeRestart("muffleMessage") 1566s [00:52:46.282] } 1566s [00:52:46.282] else if (inherits(cond, "warning")) { 1566s [00:52:46.282] muffled <- grepl(pattern, "muffleWarning") 1566s [00:52:46.282] if (muffled) 1566s [00:52:46.282] invokeRestart("muffleWarning") 1566s [00:52:46.282] } 1566s [00:52:46.282] else if (inherits(cond, "condition")) { 1566s [00:52:46.282] if (!is.null(pattern)) { 1566s [00:52:46.282] computeRestarts <- base::computeRestarts 1566s [00:52:46.282] grepl <- base::grepl 1566s [00:52:46.282] restarts <- computeRestarts(cond) 1566s [00:52:46.282] for (restart in restarts) { 1566s [00:52:46.282] name <- restart$name 1566s [00:52:46.282] if (is.null(name)) 1566s [00:52:46.282] next 1566s [00:52:46.282] if (!grepl(pattern, name)) 1566s [00:52:46.282] next 1566s [00:52:46.282] invokeRestart(restart) 1566s [00:52:46.282] muffled <- TRUE 1566s [00:52:46.282] break 1566s [00:52:46.282] } 1566s [00:52:46.282] } 1566s [00:52:46.282] } 1566s [00:52:46.282] invisible(muffled) 1566s [00:52:46.282] } 1566s [00:52:46.282] muffleCondition(cond, pattern = "^muffle") 1566s [00:52:46.282] } 1566s [00:52:46.282] } 1566s [00:52:46.282] else { 1566s [00:52:46.282] if (TRUE) { 1566s [00:52:46.282] muffleCondition <- function (cond, pattern = "^muffle") 1566s [00:52:46.282] { 1566s [00:52:46.282] inherits <- base::inherits 1566s [00:52:46.282] invokeRestart <- base::invokeRestart 1566s [00:52:46.282] is.null <- base::is.null 1566s [00:52:46.282] muffled <- FALSE 1566s [00:52:46.282] if (inherits(cond, "message")) { 1566s [00:52:46.282] muffled <- grepl(pattern, "muffleMessage") 1566s [00:52:46.282] if (muffled) 1566s [00:52:46.282] invokeRestart("muffleMessage") 1566s [00:52:46.282] } 1566s [00:52:46.282] else if (inherits(cond, "warning")) { 1566s [00:52:46.282] muffled <- grepl(pattern, "muffleWarning") 1566s [00:52:46.282] if (muffled) 1566s [00:52:46.282] invokeRestart("muffleWarning") 1566s [00:52:46.282] } 1566s [00:52:46.282] else if (inherits(cond, "condition")) { 1566s [00:52:46.282] if (!is.null(pattern)) { 1566s [00:52:46.282] computeRestarts <- base::computeRestarts 1566s [00:52:46.282] grepl <- base::grepl 1566s [00:52:46.282] restarts <- computeRestarts(cond) 1566s [00:52:46.282] for (restart in restarts) { 1566s [00:52:46.282] name <- restart$name 1566s [00:52:46.282] if (is.null(name)) 1566s [00:52:46.282] next 1566s [00:52:46.282] if (!grepl(pattern, name)) 1566s [00:52:46.282] next 1566s [00:52:46.282] invokeRestart(restart) 1566s [00:52:46.282] muffled <- TRUE 1566s [00:52:46.282] break 1566s [00:52:46.282] } 1566s [00:52:46.282] } 1566s [00:52:46.282] } 1566s [00:52:46.282] invisible(muffled) 1566s [00:52:46.282] } 1566s [00:52:46.282] muffleCondition(cond, pattern = "^muffle") 1566s [00:52:46.282] } 1566s [00:52:46.282] } 1566s [00:52:46.282] } 1566s [00:52:46.282] })) 1566s [00:52:46.282] }, error = function(ex) { 1566s [00:52:46.282] base::structure(base::list(value = NULL, visible = NULL, 1566s [00:52:46.282] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1566s [00:52:46.282] ...future.rng), started = ...future.startTime, 1566s [00:52:46.282] finished = Sys.time(), session_uuid = NA_character_, 1566s [00:52:46.282] version = "1.8"), class = "FutureResult") 1566s [00:52:46.282] }, finally = { 1566s [00:52:46.282] if (!identical(...future.workdir, getwd())) 1566s [00:52:46.282] setwd(...future.workdir) 1566s [00:52:46.282] { 1566s [00:52:46.282] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1566s [00:52:46.282] ...future.oldOptions$nwarnings <- NULL 1566s [00:52:46.282] } 1566s [00:52:46.282] base::options(...future.oldOptions) 1566s [00:52:46.282] if (.Platform$OS.type == "windows") { 1566s [00:52:46.282] old_names <- names(...future.oldEnvVars) 1566s [00:52:46.282] envs <- base::Sys.getenv() 1566s [00:52:46.282] names <- names(envs) 1566s [00:52:46.282] common <- intersect(names, old_names) 1566s [00:52:46.282] added <- setdiff(names, old_names) 1566s [00:52:46.282] removed <- setdiff(old_names, names) 1566s [00:52:46.282] changed <- common[...future.oldEnvVars[common] != 1566s [00:52:46.282] envs[common]] 1566s [00:52:46.282] NAMES <- toupper(changed) 1566s [00:52:46.282] args <- list() 1566s [00:52:46.282] for (kk in seq_along(NAMES)) { 1566s [00:52:46.282] name <- changed[[kk]] 1566s [00:52:46.282] NAME <- NAMES[[kk]] 1566s [00:52:46.282] if (name != NAME && is.element(NAME, old_names)) 1566s [00:52:46.282] next 1566s [00:52:46.282] args[[name]] <- ...future.oldEnvVars[[name]] 1566s [00:52:46.282] } 1566s [00:52:46.282] NAMES <- toupper(added) 1566s [00:52:46.282] for (kk in seq_along(NAMES)) { 1566s [00:52:46.282] name <- added[[kk]] 1566s [00:52:46.282] NAME <- NAMES[[kk]] 1566s [00:52:46.282] if (name != NAME && is.element(NAME, old_names)) 1566s [00:52:46.282] next 1566s [00:52:46.282] args[[name]] <- "" 1566s [00:52:46.282] } 1566s [00:52:46.282] NAMES <- toupper(removed) 1566s [00:52:46.282] for (kk in seq_along(NAMES)) { 1566s [00:52:46.282] name <- removed[[kk]] 1566s [00:52:46.282] NAME <- NAMES[[kk]] 1566s [00:52:46.282] if (name != NAME && is.element(NAME, old_names)) 1566s [00:52:46.282] next 1566s [00:52:46.282] args[[name]] <- ...future.oldEnvVars[[name]] 1566s [00:52:46.282] } 1566s [00:52:46.282] if (length(args) > 0) 1566s [00:52:46.282] base::do.call(base::Sys.setenv, args = args) 1566s [00:52:46.282] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1566s [00:52:46.282] } 1566s [00:52:46.282] else { 1566s [00:52:46.282] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1566s [00:52:46.282] } 1566s [00:52:46.282] { 1566s [00:52:46.282] if (base::length(...future.futureOptionsAdded) > 1566s [00:52:46.282] 0L) { 1566s [00:52:46.282] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1566s [00:52:46.282] base::names(opts) <- ...future.futureOptionsAdded 1566s [00:52:46.282] base::options(opts) 1566s [00:52:46.282] } 1566s [00:52:46.282] { 1566s [00:52:46.282] { 1566s [00:52:46.282] base::assign(".Random.seed", c(10403L, 2L, 1566s [00:52:46.282] 133210212L, 1945833034L, 115858357L, -364452081L, 1566s [00:52:46.282] -390319082L, 926195392L, 2057013379L, -803887967L, 1566s [00:52:46.282] -1078998384L, 705296750L, -1682614503L, 830917547L, 1566s [00:52:46.282] -331376230L, 1352842588L, 1960957023L, 1997081653L, 1566s [00:52:46.282] 374446028L, 1510359842L, 1146109309L, -1295266185L, 1566s [00:52:46.282] -1545472098L, 1268700760L, 1627111355L, -855092903L, 1566s [00:52:46.282] -215790872L, -1958931690L, 1906054289L, -782874301L, 1566s [00:52:46.282] -399096750L, -1740777756L, 1763676455L, -832683651L, 1566s [00:52:46.282] 1369376884L, 430697050L, 1699587749L, -1503628097L, 1566s [00:52:46.282] 856180550L, -242424368L, -2127251469L, 505777937L, 1566s [00:52:46.282] 257347392L, -856180962L, 886024169L, -1464480485L, 1566s [00:52:46.282] -1512233174L, -1985955764L, -425390065L, 1566s [00:52:46.282] -589669563L, 381897980L, -790840494L, 1136483533L, 1566s [00:52:46.282] -1535370105L, -607934610L, 1641470280L, -1050403509L, 1566s [00:52:46.282] 1965932713L, 362996216L, 1596838182L, -1829498303L, 1566s [00:52:46.282] -1824465965L, 1872669058L, -417374796L, -1713346249L, 1566s [00:52:46.282] 1818328109L, -1284085436L, -1981489558L, 1566s [00:52:46.282] 1940543701L, 1673049711L, -1514495114L, 467096736L, 1566s [00:52:46.282] 943410531L, -1431020031L, 1115626864L, 965475598L, 1566s [00:52:46.282] -1718567047L, -793788661L, -1133789126L, 1566s [00:52:46.282] -80588996L, 2018258047L, 1866186709L, 42791404L, 1566s [00:52:46.282] -1823521982L, -1345991523L, -1672661737L, 1566s [00:52:46.282] -180777858L, -452713416L, 1448313627L, -1459492743L, 1566s [00:52:46.282] -600706872L, -909649674L, -2081822415L, -1697455773L, 1566s [00:52:46.282] 1517613874L, -820020092L, 188336327L, -1149897827L, 1566s [00:52:46.282] -475203820L, -368005702L, 204442629L, 437854687L, 1566s [00:52:46.282] 1163191398L, -760699920L, 104455443L, 819708593L, 1566s [00:52:46.282] 1129180512L, 48636670L, 1066049161L, 398150075L, 1566s [00:52:46.282] -852036726L, -906028436L, -1265740817L, -1824646107L, 1566s [00:52:46.282] -2126068516L, 1815435954L, -146408019L, -860012185L, 1566s [00:52:46.282] -682500466L, 1443186536L, 1789394795L, -1078204151L, 1566s [00:52:46.282] 809467800L, 1514112710L, -1097673695L, 919601331L, 1566s [00:52:46.282] -331916766L, 795008020L, 1042337943L, -371219827L, 1566s [00:52:46.282] 1558967204L, 1563528586L, -2133607947L, -1904454577L, 1566s [00:52:46.282] -264006826L, 770017792L, 153477955L, 1189667553L, 1566s [00:52:46.282] -363253680L, 1882362030L, 967246937L, -793119637L, 1566s [00:52:46.282] -1401964070L, 2129232540L, -542810977L, -1277899019L, 1566s [00:52:46.282] -377097332L, -406748574L, -1722157507L, -1577740105L, 1566s [00:52:46.282] -455170210L, 372239000L, -1535936005L, -1332632679L, 1566s [00:52:46.282] -1623884760L, -359633706L, 935827793L, 1357445123L, 1566s [00:52:46.282] 997040018L, -1506538204L, -147930137L, -166569923L, 1566s [00:52:46.282] -2103753036L, 1366641946L, 30482021L, 1876964095L, 1566s [00:52:46.282] 2008557446L, 657856784L, -103814733L, 774877777L, 1566s [00:52:46.282] -486350336L, -555057442L, -1821756119L, -963495717L, 1566s [00:52:46.282] 853311466L, 1671241612L, -942337841L, 409538693L, 1566s [00:52:46.282] 1992831804L, 489867794L, 357105933L, -1611412921L, 1566s [00:52:46.282] -1119334354L, -1521015416L, -2041922421L, 1566s [00:52:46.282] 2048874089L, -700216776L, 1651628774L, -10471807L, 1566s [00:52:46.282] 736942611L, 380607938L, -1742088588L, 1124231287L, 1566s [00:52:46.282] 1232111981L, -1801753084L, -1608606422L, 1566s [00:52:46.282] -1172096363L, 1420874031L, -1210473418L, 1566s [00:52:46.282] -18317216L, -571709789L, 1107403201L, 1952554416L, 1566s [00:52:46.282] 1991660750L, -442973639L, 581522507L, -430787078L, 1566s [00:52:46.282] 1105375484L, -1481218753L, -748152299L, -641535700L, 1566s [00:52:46.282] 679371266L, -591318819L, -104578089L, -172818754L, 1566s [00:52:46.282] -1321694984L, -98191653L, 1709083961L, -344680312L, 1566s [00:52:46.282] -159571914L, 581309553L, -63938909L, 76420082L, 1566s [00:52:46.282] 951019332L, -1797740537L, 1291470301L, -2079866156L, 1566s [00:52:46.282] -332493318L, -1978392251L, -1691039632L, 1566s [00:52:46.282] 388791868L, -1101109484L, -1365177662L, 321737440L, 1566s [00:52:46.282] 1812890748L, -133313328L, -1252731998L, 2044530216L, 1566s [00:52:46.282] 1263927564L, 325388220L, 520794418L, 1449646272L, 1566s [00:52:46.282] 87560756L, -87565624L, 426345146L, -699970416L, 1566s [00:52:46.282] 240322284L, -1074080172L, -1536268654L, 1338615584L, 1566s [00:52:46.282] 478476236L, -1933154080L, -192786750L, 1559942184L, 1566s [00:52:46.282] -1178330196L, -687617348L, -1701912078L, 1566s [00:52:46.282] 352314928L, -999229532L, -2052800072L, -1913644198L, 1566s [00:52:46.282] -1345416048L, 1816730492L, -1570431212L, 1566s [00:52:46.282] -269427390L, -2122969344L, -520963140L, 1398087504L, 1566s [00:52:46.282] 264692002L, -1682658744L, -1422452724L, -1601893284L, 1566s [00:52:46.282] -66383406L, 1443075584L, -456249004L, 943694056L, 1566s [00:52:46.282] -1493184262L, -1943836976L, -590788308L, 1566s [00:52:46.282] -405505804L, -1796837998L, 1991543136L, 1170376716L, 1566s [00:52:46.282] 1707420384L, 1899700834L, -1643595096L, 47299148L, 1566s [00:52:46.282] 1274857340L, -1205842638L, -1938479504L, 1566s [00:52:46.282] -1773978812L, 532695000L, 1306451834L, 258403888L, 1566s [00:52:46.282] -284747844L, -1780705708L, 1621936194L, 1129070752L, 1566s [00:52:46.282] 540946108L, -294270512L, -1426480286L, -356302104L, 1566s [00:52:46.282] 349847756L, 1849803260L, -1299125774L, 511654528L, 1566s [00:52:46.282] -1259964940L, -1879857528L, 535666490L, -2020097200L, 1566s [00:52:46.282] -1460751252L, 1201879444L, -1459788718L, 1566s [00:52:46.282] 447195616L, -730891060L, -1875530592L, -2146183806L, 1566s [00:52:46.282] 193274088L, -1224605972L, 1616153916L, -1896973198L, 1566s [00:52:46.282] -420945808L, -1997735900L, -1838404552L, 1566s [00:52:46.282] -413698278L, 1984019664L, -1760209092L, -1288743020L, 1566s [00:52:46.282] 392579970L, -1382567488L, -1295004100L, -33348208L, 1566s [00:52:46.282] 1536615970L, -428761848L, 643368588L, -1596336356L, 1566s [00:52:46.282] 1797431442L, 352422272L, -1043800556L, 60591912L, 1566s [00:52:46.282] -1115663814L, 1043682768L, 521144684L, 4793268L, 1566s [00:52:46.282] -1924265966L, 978890208L, 370048972L, -1607474976L, 1566s [00:52:46.282] -1443637214L, -632405720L, 691912204L, 166321980L, 1566s [00:52:46.282] 942193650L, 751741680L, 689743428L, -18455976L, 1566s [00:52:46.282] -1946329286L, -1619184144L, 239341244L, 371382548L, 1566s [00:52:46.282] -2069808446L, 154176608L, 385987452L, -385611824L, 1566s [00:52:46.282] 1967391010L, 2140654248L, 1720087436L, -1591007044L, 1566s [00:52:46.282] -1612486862L, 1295747648L, 1726784692L, 597326408L, 1566s [00:52:46.282] -973152838L, 628505104L, -1089631508L, 3230036L, 1566s [00:52:46.282] -593837806L, 244006304L, 1357912780L, 1839234656L, 1566s [00:52:46.282] -1357570110L, 1896595240L, -2066952276L, 1566s [00:52:46.282] -1724304580L, 986188146L, -1200604368L, -279100124L, 1566s [00:52:46.282] 131128120L, -1088465190L, 596533136L, 170602236L, 1566s [00:52:46.282] -1051262060L, 215660610L, -686217984L, 444449852L, 1566s [00:52:46.282] 769655120L, 236357794L, 181393736L, -13334772L, 1566s [00:52:46.282] 644690652L, -1969263278L, -2107982720L, 1429553236L, 1566s [00:52:46.282] 794236904L, 1997299962L, -458224816L, 904978220L, 1566s [00:52:46.282] -537093772L, -842839150L, 1828989024L, -679303796L, 1566s [00:52:46.282] 1396292448L, 76319202L, 1896098728L, 418430156L, 1566s [00:52:46.282] 2005956604L, 1370351026L, -1178923536L, -1154073660L, 1566s [00:52:46.282] -1218863784L, 89928058L, 816597936L, -1141767748L, 1566s [00:52:46.282] 1579714644L, 1343385538L, 371259424L, -245180228L, 1566s [00:52:46.282] 365724240L, 1606388706L, -823678872L, 1281309772L, 1566s [00:52:46.282] 1395210492L, 1217887218L, 1420531968L, 1349501300L, 1566s [00:52:46.282] 271647752L, -69959750L, 360452560L, 1565334508L, 1566s [00:52:46.282] 1956526484L, -930709038L, 1961808224L, -1745916084L, 1566s [00:52:46.282] 443656480L, 1990137730L, 694374120L, -1050566420L, 1566s [00:52:46.282] -1365842884L, -438961294L, -1851472272L, 1566s [00:52:46.282] 614534180L, 1401930552L, 3652762L, 1928284880L, 1566s [00:52:46.282] -1637703492L, 26107540L, -132725907L, -371944998L, 1566s [00:52:46.282] -1311388776L, 8516097L, 741008307L, -1149566252L, 1566s [00:52:46.282] -1802640414L, 2019636855L, 1587818433L, -151040698L, 1566s [00:52:46.282] 1598381188L, -205462987L, 1911327L, -1382519432L, 1566s [00:52:46.282] -594809770L, -2146766621L, -2013964635L, 1566s [00:52:46.282] -965534910L, -2077626064L, 1964788057L, 1821395659L, 1566s [00:52:46.282] -1953549508L, -719348886L, 1442511263L, 1969287209L, 1566s [00:52:46.282] 1754221246L, -442299476L, 1981692157L, 113456199L, 1566s [00:52:46.282] 1587794736L, -1811033010L, 1149417595L, -1760887843L, 1566s [00:52:46.282] -1426021878L, -1285634264L, 1507547537L, 1566s [00:52:46.282] -1114120317L, 1897370756L, 1142575794L, -375814649L, 1566s [00:52:46.282] -1661041071L, 881081814L, -548925260L, 2073840837L, 1566s [00:52:46.282] 1156484623L, 2011334280L, 1107815334L, 969024339L, 1566s [00:52:46.282] -55972683L, 2006780434L, -1486403616L, 1698650697L, 1566s [00:52:46.282] 1813794939L, -1717763764L, 1268815066L, -1200630577L, 1566s [00:52:46.282] -773717863L, -12215122L, 1354639804L, 1213207085L, 1566s [00:52:46.282] -978295337L, 340143136L, 485429630L, -568148149L, 1566s [00:52:46.282] 1257440589L, 930106234L, -883274312L, -1632538783L, 1566s [00:52:46.282] 894748435L, -1592959180L, -596177598L, 120963415L, 1566s [00:52:46.282] -1174532959L, -561474202L, 1438545764L, 1429911189L, 1566s [00:52:46.282] 1075965887L, 367866712L, -892333706L, -485158013L, 1566s [00:52:46.282] -682634811L, 963344098L, 2110199632L, 1990767225L, 1566s [00:52:46.282] 1348335019L, 269581084L, -2040640438L, 1453561919L, 1566s [00:52:46.282] 853952649L, 1195494558L, 1614051660L, 2040242461L, 1566s [00:52:46.282] -1604604761L, 1421229008L, -1268333714L, 1566s [00:52:46.282] 174113307L, 2044969853L, 190112106L, -998776824L, 1566s [00:52:46.282] -2070476623L, -2099222749L, 1141171236L, 1566s [00:52:46.282] -146426158L, -1797385433L, -1129376399L, 1566s [00:52:46.282] -1496589386L, -419561644L, -613549595L, 1243456495L, 1566s [00:52:46.282] 451212072L, 1923543942L, 1146113971L, 93579029L, 1566s [00:52:46.282] -397504142L, 597218752L, 459048489L, 1447221915L, 1566s [00:52:46.282] -272948372L, -373834886L, 934888623L, -2099351623L, 1566s [00:52:46.282] -1672042034L, 193924380L, -704518003L, 781993207L, 1566s [00:52:46.282] -258875392L, -1853783458L, 1315003691L, -41214419L, 1566s [00:52:46.282] -59447654L, 1203745368L, 426003905L, 452670067L, 1566s [00:52:46.282] -1092079724L, -1765622238L, -1882554057L, 1566s [00:52:46.282] 1278087169L, -1994822394L, -124954300L, 1994460277L, 1566s [00:52:46.282] 1816829407L, -1568282312L, 1563616022L, 1255996195L, 1566s [00:52:46.282] 1702121701L, 1784032514L, 1842995056L, 748060441L, 1566s [00:52:46.282] 1432229643L, -1905232900L, 2016890922L, 1403944031L, 1566s [00:52:46.282] 351712233L, 1338932478L, -1359366932L, -803018691L, 1566s [00:52:46.282] -1551885305L, 248629232L, 1839395726L, 1411789243L, 1566s [00:52:46.282] 840085405L, -1849000630L, -669518488L, -1453417647L, 1566s [00:52:46.282] -1527179197L, -377159356L, 1674525170L, -313742393L, 1566s [00:52:46.282] 865377681L, -1127426242L), envir = base::globalenv(), 1566s [00:52:46.282] inherits = FALSE) 1566s [00:52:46.282] NULL 1566s [00:52:46.282] } 1566s [00:52:46.282] options(future.plan = NULL) 1566s [00:52:46.282] if (is.na(NA_character_)) 1566s [00:52:46.282] Sys.unsetenv("R_FUTURE_PLAN") 1566s [00:52:46.282] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1566s [00:52:46.282] future::plan(list(function (..., envir = parent.frame()) 1566s [00:52:46.282] { 1566s [00:52:46.282] future <- SequentialFuture(..., envir = envir) 1566s [00:52:46.282] if (!future$lazy) 1566s [00:52:46.282] future <- run(future) 1566s [00:52:46.282] invisible(future) 1566s [00:52:46.282] }), .cleanup = FALSE, .init = FALSE) 1566s [00:52:46.282] } 1566s [00:52:46.282] } 1566s [00:52:46.282] } 1566s [00:52:46.282] }) 1566s [00:52:46.282] if (TRUE) { 1566s [00:52:46.282] base::sink(type = "output", split = FALSE) 1566s [00:52:46.282] if (TRUE) { 1566s [00:52:46.282] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1566s [00:52:46.282] } 1566s [00:52:46.282] else { 1566s [00:52:46.282] ...future.result["stdout"] <- base::list(NULL) 1566s [00:52:46.282] } 1566s [00:52:46.282] base::close(...future.stdout) 1566s [00:52:46.282] ...future.stdout <- NULL 1566s [00:52:46.282] } 1566s [00:52:46.282] ...future.result$conditions <- ...future.conditions 1566s [00:52:46.282] ...future.result$finished <- base::Sys.time() 1566s [00:52:46.282] ...future.result 1566s [00:52:46.282] } 1566s [00:52:46.291] assign_globals() ... 1566s [00:52:46.291] List of 5 1566s [00:52:46.291] $ ...future.FUN :function (...) 1566s [00:52:46.291] $ future.call.arguments : list() 1566s [00:52:46.291] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1566s [00:52:46.291] $ ...future.elements_ii :List of 5 1566s [00:52:46.291] ..$ : int 0 1566s [00:52:46.291] ..$ : int 0 1566s [00:52:46.291] ..$ : int 0 1566s [00:52:46.291] ..$ : int 0 1566s [00:52:46.291] ..$ : int 0 1566s [00:52:46.291] $ ...future.seeds_ii :List of 5 1566s [00:52:46.291] ..$ : int [1:7] 10407 424279327 242013539 -50536943 1949045882 -966354368 52785545 1566s [00:52:46.291] ..$ : int [1:7] 10407 1259015031 702630336 336295781 836592074 1678845563 -511089912 1566s [00:52:46.291] ..$ : int [1:7] 10407 1164394434 449220430 -1497007122 58661922 77957643 -850372858 1566s [00:52:46.291] ..$ : int [1:7] 10407 -102834055 -568341906 440844328 496378464 1781291461 1929965415 1566s [00:52:46.291] ..$ : int [1:7] 10407 -1584691803 1955381789 -562762208 1163324668 -1514628943 475545435 1566s [00:52:46.291] $ ...future.globals.maxSize: NULL 1566s [00:52:46.291] - attr(*, "where")=List of 5 1566s [00:52:46.291] ..$ ...future.FUN : 1566s [00:52:46.291] ..$ future.call.arguments : 1566s [00:52:46.291] ..$ ...future.elements_ii : 1566s [00:52:46.291] ..$ ...future.seeds_ii : 1566s [00:52:46.291] ..$ ...future.globals.maxSize: 1566s [00:52:46.291] - attr(*, "resolved")= logi FALSE 1566s [00:52:46.291] - attr(*, "total_size")= num 616 1566s [00:52:46.291] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1566s [00:52:46.291] - attr(*, "already-done")= logi TRUE 1566s [00:52:46.302] - reassign environment for ‘...future.FUN’ 1566s [00:52:46.302] - copied ‘...future.FUN’ to environment 1566s [00:52:46.302] - copied ‘future.call.arguments’ to environment 1566s [00:52:46.302] - copied ‘...future.elements_ii’ to environment 1566s [00:52:46.302] - copied ‘...future.seeds_ii’ to environment 1566s [00:52:46.303] - copied ‘...future.globals.maxSize’ to environment 1566s [00:52:46.303] assign_globals() ... done 1566s [00:52:46.303] plan(): Setting new future strategy stack: 1566s [00:52:46.303] List of future strategies: 1566s [00:52:46.303] 1. sequential: 1566s [00:52:46.303] - args: function (..., envir = parent.frame()) 1566s [00:52:46.303] - tweaked: FALSE 1566s [00:52:46.303] - call: NULL 1566s [00:52:46.304] plan(): nbrOfWorkers() = 1 1566s [00:52:46.305] plan(): Setting new future strategy stack: 1566s [00:52:46.305] List of future strategies: 1566s [00:52:46.305] 1. sequential: 1566s [00:52:46.305] - args: function (..., envir = parent.frame()) 1566s [00:52:46.305] - tweaked: FALSE 1566s [00:52:46.305] - call: plan(strategy) 1566s [00:52:46.306] plan(): nbrOfWorkers() = 1 1566s [00:52:46.306] SequentialFuture started (and completed) 1566s [00:52:46.306] - Launch lazy future ... done 1566s [00:52:46.306] run() for ‘SequentialFuture’ ... done 1566s [00:52:46.306] Created future: 1566s [00:52:46.307] SequentialFuture: 1566s [00:52:46.307] Label: ‘future_replicate-1’ 1566s [00:52:46.307] Expression: 1566s [00:52:46.307] { 1566s [00:52:46.307] do.call(function(...) { 1566s [00:52:46.307] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1566s [00:52:46.307] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1566s [00:52:46.307] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1566s [00:52:46.307] on.exit(options(oopts), add = TRUE) 1566s [00:52:46.307] } 1566s [00:52:46.307] { 1566s [00:52:46.307] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1566s [00:52:46.307] ...future.X_jj <- ...future.elements_ii[[jj]] 1566s [00:52:46.307] assign(".Random.seed", ...future.seeds_ii[[jj]], 1566s [00:52:46.307] envir = globalenv(), inherits = FALSE) 1566s [00:52:46.307] ...future.FUN(...future.X_jj, ...) 1566s [00:52:46.307] }) 1566s [00:52:46.307] } 1566s [00:52:46.307] }, args = future.call.arguments) 1566s [00:52:46.307] } 1566s [00:52:46.307] Lazy evaluation: FALSE 1566s [00:52:46.307] Asynchronous evaluation: FALSE 1566s [00:52:46.307] Local evaluation: TRUE 1566s [00:52:46.307] Environment: R_GlobalEnv 1566s [00:52:46.307] Capture standard output: TRUE 1566s [00:52:46.307] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1566s [00:52:46.307] Globals: 5 objects totaling 1.27 KiB (function ‘...future.FUN’ of 616 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 280 bytes, list ‘...future.seeds_ii’ of 400 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1566s [00:52:46.307] Packages: 1566s [00:52:46.307] L'Ecuyer-CMRG RNG seed: (seed = NULL) 1566s [00:52:46.307] Resolved: TRUE 1566s [00:52:46.307] Value: 280 bytes of class ‘list’ 1566s [00:52:46.307] Early signaling: FALSE 1566s [00:52:46.307] Owner process: 50289bf5-8c9f-f501-15c6-3ca1fa8d82cf 1566s [00:52:46.307] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1566s [00:52:46.309] Chunk #1 of 1 ... DONE 1566s [00:52:46.309] Launching 1 futures (chunks) ... DONE 1566s [00:52:46.309] Resolving 1 futures (chunks) ... 1566s [00:52:46.309] resolve() on list ... 1566s [00:52:46.309] recursive: 0 1566s [00:52:46.310] length: 1 1566s [00:52:46.310] 1566s [00:52:46.310] resolved() for ‘SequentialFuture’ ... 1566s [00:52:46.310] - state: ‘finished’ 1566s [00:52:46.310] - run: TRUE 1566s [00:52:46.311] - result: ‘FutureResult’ 1566s [00:52:46.311] resolved() for ‘SequentialFuture’ ... done 1566s [00:52:46.311] Future #1 1566s [00:52:46.311] signalConditionsASAP(SequentialFuture, pos=1) ... 1566s [00:52:46.311] - nx: 1 1566s [00:52:46.311] - relay: TRUE 1566s [00:52:46.311] - stdout: TRUE 1566s [00:52:46.312] - signal: TRUE 1566s [00:52:46.312] - resignal: FALSE 1566s [00:52:46.312] - force: TRUE 1566s [00:52:46.312] - relayed: [n=1] FALSE 1566s [00:52:46.313] - queued futures: [n=1] FALSE 1566s [00:52:46.314] - until=1 1566s [00:52:46.314] - relaying element #1 1566s [00:52:46.315] - relayed: [n=1] TRUE 1566s [00:52:46.315] - queued futures: [n=1] TRUE 1566s [00:52:46.315] signalConditionsASAP(SequentialFuture, pos=1) ... done 1566s [00:52:46.315] length: 0 (resolved future 1) 1566s [00:52:46.315] Relaying remaining futures 1566s [00:52:46.316] signalConditionsASAP(NULL, pos=0) ... 1566s [00:52:46.316] - nx: 1 1566s [00:52:46.316] - relay: TRUE 1566s [00:52:46.316] - stdout: TRUE 1566s [00:52:46.316] - signal: TRUE 1566s [00:52:46.317] - resignal: FALSE 1566s [00:52:46.317] - force: TRUE 1566s [00:52:46.317] - relayed: [n=1] TRUE 1566s [00:52:46.318] - queued futures: [n=1] TRUE 1566s - flush all 1566s [00:52:46.318] - relayed: [n=1] TRUE 1566s [00:52:46.318] - queued futures: [n=1] TRUE 1566s [00:52:46.319] signalConditionsASAP(NULL, pos=0) ... done 1566s [00:52:46.319] resolve() on list ... DONE 1566s [00:52:46.319] - Number of value chunks collected: 1 1566s [00:52:46.320] Resolving 1 futures (chunks) ... DONE 1566s [00:52:46.320] Reducing values from 1 chunks ... 1566s [00:52:46.320] - Number of values collected after concatenation: 5 1566s [00:52:46.320] - Number of values expected: 5 1566s [00:52:46.321] Reducing values from 1 chunks ... DONE 1566s [00:52:46.321] future_lapply() ... DONE 1566s [00:52:46.322] future_lapply() ... 1566s [00:52:46.323] Generating random seeds ... 1566s [00:52:46.323] Generating random seed streams for 5 elements ... 1566s [00:52:46.323] Generating random seed streams for 5 elements ... DONE 1566s [00:52:46.324] Generating random seeds ... DONE 1566s [00:52:46.324] Will set RNG state on exit: 10403, 4, 133210212, 1945833034, 115858357, -364452081, -390319082, 926195392, 2057013379, -803887967, -1078998384, 705296750, -1682614503, 830917547, -331376230, 1352842588, 1960957023, 1997081653, 374446028, 1510359842, 1146109309, -1295266185, -1545472098, 1268700760, 1627111355, -855092903, -215790872, -1958931690, 1906054289, -782874301, -399096750, -1740777756, 1763676455, -832683651, 1369376884, 430697050, 1699587749, -1503628097, 856180550, -242424368, -2127251469, 505777937, 257347392, -856180962, 886024169, -1464480485, -1512233174, -1985955764, -425390065, -589669563, 381897980, -790840494, 1136483533, -1535370105, -607934610, 1641470280, -1050403509, 1965932713, 362996216, 1596838182, -1829498303, -1824465965, 1872669058, -417374796, -1713346249, 1818328109, -1284085436, -1981489558, 1940543701, 1673049711, -1514495114, 467096736, 943410531, -1431020031, 1115626864, 965475598, -1718567047, -793788661, -1133789126, -80588996, 2018258047, 1866186709, 42791404, -1823521982, -1345991523, -1672661737, -180777858, -452713416, 1448313627, -1459492743, -600706872, -909649674, -2081822415, -1697455773, 1517613874, -820020092, 188336327, -1149897827, -475203820, -368005702, 204442629, 437854687, 1163191398, -760699920, 104455443, 819708593, 1129180512, 48636670, 1066049161, 398150075, -852036726, -906028436, -1265740817, -1824646107, -2126068516, 1815435954, -146408019, -860012185, -682500466, 1443186536, 1789394795, -1078204151, 809467800, 1514112710, -1097673695, 919601331, -331916766, 795008020, 1042337943, -371219827, 1558967204, 1563528586, -2133607947, -1904454577, -264006826, 770017792, 153477955, 1189667553, -363253680, 1882362030, 967246937, -793119637, -1401964070, 2129232540, -542810977, -1277899019, -377097332, -406748574, -1722157507, -1577740105, -455170210, 372239000, -1535936005, -1332632679, -1623884760, -359633706, 935827793, 1357445123, 997040018, -1506538204, -147930137, -166569923, -2103753036, 1366641946, 30482021, 1876964095, 2008557446, 657856784, -103814733, 774877777, -486350336, -555057442, -1821756119, -963495717, 853311466, 1671241612, -942337841, 409538693, 1992831804, 489867794, 357105933, -1611412921, -1119334354, -1521015416, -2041922421, 2048874089, -700216776, 1651628774, -10471807, 736942611, 380607938, -1742088588, 1124231287, 1232111981, -1801753084, -1608606422, -1172096363, 1420874031, -1210473418, -18317216, -571709789, 1107403201, 1952554416, 1991660750, -442973639, 581522507, -430787078, 1105375484, -1481218753, -748152299, -641535700, 679371266, -591318819, -104578089, -172818754, -1321694984, -98191653, 1709083961, -344680312, -159571914, 581309553, -63938909, 76420082, 951019332, -1797740537, 1291470301, -2079866156, -332493318, -1978392251, -1691039632, 388791868, -1101109484, -1365177662, 321737440, 1812890748, -133313328, -1252731998, 2044530216, 1263927564, 325388220, 520794418, 1449646272, 87560756, -87565624, 426345146, -699970416, 240322284, -1074080172, -1536268654, 1338615584, 478476236, -1933154080, -192786750, 1559942184, -1178330196, -687617348, -1701912078, 352314928, -999229532, -2052800072, -1913644198, -1345416048, 1816730492, -1570431212, -269427390, -2122969344, -520963140, 1398087504, 264692002, -1682658744, -1422452724, -1601893284, -66383406, 1443075584, -456249004, 943694056, -1493184262, -1943836976, -590788308, -405505804, -1796837998, 1991543136, 1170376716, 1707420384, 1899700834, -1643595096, 47299148, 1274857340, -1205842638, -1938479504, -1773978812, 532695000, 1306451834, 258403888, -284747844, -1780705708, 1621936194, 1129070752, 540946108, -294270512, -1426480286, -356302104, 349847756, 1849803260, -1299125774, 511654528, -1259964940, -1879857528, 535666490, -2020097200, -1460751252, 1201879444, -1459788718, 447195616, -730891060, -1875530592, -2146183806, 193274088, -1224605972, 1616153916, -1896973198, -420945808, -1997735900, -1838404552, -413698278, 1984019664, -1760209092, -1288743020, 392579970, -1382567488, -1295004100, -33348208, 1536615970, -428761848, 643368588, -1596336356, 1797431442, 352422272, -1043800556, 60591912, -1115663814, 1043682768, 521144684, 4793268, -1924265966, 978890208, 370048972, -1607474976, -1443637214, -632405720, 691912204, 166321980, 942193650, 751741680, 689743428, -18455976, -1946329286, -1619184144, 239341244, 371382548, -2069808446, 154176608, 385987452, -385611824, 1967391010, 2140654248, 1720087436, -1591007044, -1612486862, 1295747648, 1726784692, 597326408, -973152838, 628505104, -1089631508, 3230036, -593837806, 244006304, 1357912780, 1839234656, -1357570110, 1896595240, -2066952276, -1724304580, 986188146, -1200604368, -279100124, 131128120, -1088465190, 596533136, 170602236, -1051262060, 215660610, -686217984, 444449852, 769655120, 236357794, 181393736, -13334772, 644690652, -1969263278, -2107982720, 1429553236, 794236904, 1997299962, -458224816, 904978220, -537093772, -842839150, 1828989024, -679303796, 1396292448, 76319202, 1896098728, 418430156, 2005956604, 1370351026, -1178923536, -1154073660, -1218863784, 89928058, 816597936, -1141767748, 1579714644, 1343385538, 371259424, -245180228, 365724240, 1606388706, -823678872, 1281309772, 1395210492, 1217887218, 1420531968, 1349501300, 271647752, -69959750, 360452560, 1565334508, 1956526484, -930709038, 1961808224, -1745916084, 443656480, 1990137730, 694374120, -1050566420, -1365842884, -438961294, -1851472272, 614534180, 1401930552, 3652762, 1928284880, -1637703492, 26107540, -132725907, -371944998, -1311388776, 8516097, 741008307, -1149566252, -1802640414, 2019636855, 1587818433, -151040698, 1598381188, -205462987, 1911327, -1382519432, -594809770, -2146766621, -2013964635, -965534910, -2077626064, 1964788057, 1821395659, -1953549508, -719348886, 1442511263, 1969287209, 1754221246, -442299476, 1981692157, 113456199, 1587794736, -1811033010, 1149417595, -1760887843, -1426021878, -1285634264, 1507547537, -1114120317, 1897370756, 1142575794, -375814649, -1661041071, 881081814, -548925260, 2073840837, 1156484623, 2011334280, 1107815334, 969024339, -55972683, 2006780434, -1486403616, 1698650697, 1813794939, -1717763764, 1268815066, -1200630577, -773717863, -12215122, 1354639804, 1213207085, -978295337, 340143136, 485429630, -568148149, 1257440589, 930106234, -883274312, -1632538783, 894748435, -1592959180, -596177598, 120963415, -1174532959, -561474202, 1438545764, 1429911189, 1075965887, 367866712, -892333706, -485158013, -682634811, 963344098, 2110199632, 1990767225, 1348335019, 269581084, -2040640438, 1453561919, 853952649, 1195494558, 1614051660, 2040242461, -1604604761, 1421229008, -1268333714, 174113307, 2044969853, 190112106, -998776824, -2070476623, -2099222749, 1141171236, -146426158, -1797385433, -1129376399, -1496589386, -419561644, -613549595, 1243456495, 451212072, 1923543942, 1146113971, 93579029, -397504142, 597218752, 459048489, 1447221915, -272948372, -373834886, 934888623, -2099351623, -1672042034, 193924380, -704518003, 781993207, -258875392, -1853783458, 1315003691, -41214419, -59447654, 1203745368, 426003905, 452670067, -1092079724, -1765622238, -1882554057, 1278087169, -1994822394, -124954300, 1994460277, 1816829407, -1568282312, 1563616022, 1255996195, 1702121701, 1784032514, 1842995056, 748060441, 1432229643, -1905232900, 2016890922, 1403944031, 351712233, 1338932478, -1359366932, -803018691, -1551885305, 248629232, 1839395726, 1411789243, 840085405, -1849000630, -669518488, -1453417647, -1527179197, -377159356, 1674525170, -313742393, 865377681, -1127426242 1566s [00:52:46.327] Number of chunks: 1 1566s [00:52:46.327] getGlobalsAndPackagesXApply() ... 1566s [00:52:46.327] - future.globals: TRUE 1566s [00:52:46.327] getGlobalsAndPackages() ... 1566s [00:52:46.327] Searching for globals... 1566s [00:52:46.329] - globals found: [2] ‘FUN’, ‘sample’ 1566s [00:52:46.329] Searching for globals ... DONE 1566s [00:52:46.329] Resolving globals: FALSE 1566s [00:52:46.330] The total size of the 1 globals is 616 bytes (616 bytes) 1566s [00:52:46.331] The total size of the 1 globals exported for future expression (‘FUN()’) is 616 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (616 bytes of class ‘function’) 1566s [00:52:46.331] - globals: [1] ‘FUN’ 1566s [00:52:46.331] 1566s [00:52:46.331] getGlobalsAndPackages() ... DONE 1566s [00:52:46.332] - globals found/used: [n=1] ‘FUN’ 1566s [00:52:46.334] - needed namespaces: [n=0] 1566s [00:52:46.334] Finding globals ... DONE 1566s [00:52:46.334] - use_args: TRUE 1566s [00:52:46.335] - Getting '...' globals ... 1566s [00:52:46.335] resolve() on list ... 1566s [00:52:46.335] recursive: 0 1566s [00:52:46.336] length: 1 1566s [00:52:46.336] elements: ‘...’ 1566s [00:52:46.336] length: 0 (resolved future 1) 1566s [00:52:46.336] resolve() on list ... DONE 1566s [00:52:46.336] - '...' content: [n=0] 1566s [00:52:46.336] List of 1 1566s [00:52:46.336] $ ...: list() 1566s [00:52:46.336] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1566s [00:52:46.336] - attr(*, "where")=List of 1 1566s [00:52:46.336] ..$ ...: 1566s [00:52:46.336] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1566s [00:52:46.336] - attr(*, "resolved")= logi TRUE 1566s [00:52:46.336] - attr(*, "total_size")= num NA 1566s [00:52:46.340] - Getting '...' globals ... DONE 1566s [00:52:46.341] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1566s [00:52:46.341] List of 2 1566s [00:52:46.341] $ ...future.FUN:function (...) 1566s [00:52:46.341] $ ... : list() 1566s [00:52:46.341] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1566s [00:52:46.341] - attr(*, "where")=List of 2 1566s [00:52:46.341] ..$ ...future.FUN: 1566s [00:52:46.341] ..$ ... : 1566s [00:52:46.341] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1566s [00:52:46.341] - attr(*, "resolved")= logi FALSE 1566s [00:52:46.341] - attr(*, "total_size")= num 616 1566s [00:52:46.346] Packages to be attached in all futures: [n=0] 1566s [00:52:46.346] getGlobalsAndPackagesXApply() ... DONE 1566s [00:52:46.346] Number of futures (= number of chunks): 1 1566s [00:52:46.346] Launching 1 futures (chunks) ... 1566s [00:52:46.347] Chunk #1 of 1 ... 1566s [00:52:46.347] - Finding globals in 'X' for chunk #1 ... 1566s [00:52:46.347] getGlobalsAndPackages() ... 1566s [00:52:46.347] Searching for globals... 1566s [00:52:46.348] 1566s [00:52:46.348] Searching for globals ... DONE 1566s [00:52:46.348] - globals: [0] 1566s [00:52:46.348] getGlobalsAndPackages() ... DONE 1566s [00:52:46.348] + additional globals found: [n=0] 1566s [00:52:46.349] + additional namespaces needed: [n=0] 1566s [00:52:46.349] - Finding globals in 'X' for chunk #1 ... DONE 1566s [00:52:46.349] - seeds: [5] 1566s [00:52:46.349] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1566s [00:52:46.349] getGlobalsAndPackages() ... 1566s [00:52:46.349] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1566s [00:52:46.350] Resolving globals: FALSE 1566s [00:52:46.350] Tweak future expression to call with '...' arguments ... 1566s [00:52:46.350] { 1566s [00:52:46.350] do.call(function(...) { 1566s [00:52:46.350] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1566s [00:52:46.350] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1566s [00:52:46.350] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1566s [00:52:46.350] on.exit(options(oopts), add = TRUE) 1566s [00:52:46.350] } 1566s [00:52:46.350] { 1566s [00:52:46.350] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1566s [00:52:46.350] ...future.X_jj <- ...future.elements_ii[[jj]] 1566s [00:52:46.350] assign(".Random.seed", ...future.seeds_ii[[jj]], 1566s [00:52:46.350] envir = globalenv(), inherits = FALSE) 1566s [00:52:46.350] ...future.FUN(...future.X_jj, ...) 1566s [00:52:46.350] }) 1566s [00:52:46.350] } 1566s [00:52:46.350] }, args = future.call.arguments) 1566s [00:52:46.350] } 1566s [00:52:46.351] Tweak future expression to call with '...' arguments ... DONE 1566s [00:52:46.352] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1566s [00:52:46.352] 1566s [00:52:46.352] getGlobalsAndPackages() ... DONE 1566s [00:52:46.353] run() for ‘Future’ ... 1566s [00:52:46.353] - state: ‘created’ 1566s [00:52:46.353] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1566s [00:52:46.354] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1566s [00:52:46.354] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1566s [00:52:46.354] - Field: ‘label’ 1566s [00:52:46.354] - Field: ‘local’ 1566s [00:52:46.354] - Field: ‘owner’ 1566s [00:52:46.355] - Field: ‘envir’ 1566s [00:52:46.355] - Field: ‘packages’ 1566s [00:52:46.355] - Field: ‘gc’ 1566s [00:52:46.355] - Field: ‘conditions’ 1566s [00:52:46.355] - Field: ‘expr’ 1566s [00:52:46.355] - Field: ‘uuid’ 1566s [00:52:46.356] - Field: ‘seed’ 1566s [00:52:46.356] - Field: ‘version’ 1566s [00:52:46.356] - Field: ‘result’ 1566s [00:52:46.356] - Field: ‘asynchronous’ 1566s [00:52:46.356] - Field: ‘calls’ 1566s [00:52:46.356] - Field: ‘globals’ 1566s [00:52:46.357] - Field: ‘stdout’ 1566s [00:52:46.357] - Field: ‘earlySignal’ 1566s [00:52:46.357] - Field: ‘lazy’ 1566s [00:52:46.357] - Field: ‘state’ 1566s [00:52:46.357] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1566s [00:52:46.357] - Launch lazy future ... 1566s [00:52:46.357] Packages needed by the future expression (n = 0): 1566s [00:52:46.357] Packages needed by future strategies (n = 0): 1566s [00:52:46.358] { 1566s [00:52:46.358] { 1566s [00:52:46.358] { 1566s [00:52:46.358] ...future.startTime <- base::Sys.time() 1566s [00:52:46.358] { 1566s [00:52:46.358] { 1566s [00:52:46.358] { 1566s [00:52:46.358] base::local({ 1566s [00:52:46.358] has_future <- base::requireNamespace("future", 1566s [00:52:46.358] quietly = TRUE) 1566s [00:52:46.358] if (has_future) { 1566s [00:52:46.358] ns <- base::getNamespace("future") 1566s [00:52:46.358] version <- ns[[".package"]][["version"]] 1566s [00:52:46.358] if (is.null(version)) 1566s [00:52:46.358] version <- utils::packageVersion("future") 1566s [00:52:46.358] } 1566s [00:52:46.358] else { 1566s [00:52:46.358] version <- NULL 1566s [00:52:46.358] } 1566s [00:52:46.358] if (!has_future || version < "1.8.0") { 1566s [00:52:46.358] info <- base::c(r_version = base::gsub("R version ", 1566s [00:52:46.358] "", base::R.version$version.string), 1566s [00:52:46.358] platform = base::sprintf("%s (%s-bit)", 1566s [00:52:46.358] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1566s [00:52:46.358] os = base::paste(base::Sys.info()[base::c("sysname", 1566s [00:52:46.358] "release", "version")], collapse = " "), 1566s [00:52:46.358] hostname = base::Sys.info()[["nodename"]]) 1566s [00:52:46.358] info <- base::sprintf("%s: %s", base::names(info), 1566s [00:52:46.358] info) 1566s [00:52:46.358] info <- base::paste(info, collapse = "; ") 1566s [00:52:46.358] if (!has_future) { 1566s [00:52:46.358] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1566s [00:52:46.358] info) 1566s [00:52:46.358] } 1566s [00:52:46.358] else { 1566s [00:52:46.358] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1566s [00:52:46.358] info, version) 1566s [00:52:46.358] } 1566s [00:52:46.358] base::stop(msg) 1566s [00:52:46.358] } 1566s [00:52:46.358] }) 1566s [00:52:46.358] } 1566s [00:52:46.358] options(future.plan = NULL) 1566s [00:52:46.358] Sys.unsetenv("R_FUTURE_PLAN") 1566s [00:52:46.358] future::plan("default", .cleanup = FALSE, .init = FALSE) 1566s [00:52:46.358] } 1566s [00:52:46.358] ...future.workdir <- getwd() 1566s [00:52:46.358] } 1566s [00:52:46.358] ...future.oldOptions <- base::as.list(base::.Options) 1566s [00:52:46.358] ...future.oldEnvVars <- base::Sys.getenv() 1566s [00:52:46.358] } 1566s [00:52:46.358] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1566s [00:52:46.358] future.globals.maxSize = NULL, future.globals.method = NULL, 1566s [00:52:46.358] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1566s [00:52:46.358] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1566s [00:52:46.358] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1566s [00:52:46.358] future.stdout.windows.reencode = NULL, width = 80L) 1566s [00:52:46.358] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1566s [00:52:46.358] base::names(...future.oldOptions)) 1566s [00:52:46.358] } 1566s [00:52:46.358] if (FALSE) { 1566s [00:52:46.358] } 1566s [00:52:46.358] else { 1566s [00:52:46.358] if (TRUE) { 1566s [00:52:46.358] ...future.stdout <- base::rawConnection(base::raw(0L), 1566s [00:52:46.358] open = "w") 1566s [00:52:46.358] } 1566s [00:52:46.358] else { 1566s [00:52:46.358] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1566s [00:52:46.358] windows = "NUL", "/dev/null"), open = "w") 1566s [00:52:46.358] } 1566s [00:52:46.358] base::sink(...future.stdout, type = "output", split = FALSE) 1566s [00:52:46.358] base::on.exit(if (!base::is.null(...future.stdout)) { 1566s [00:52:46.358] base::sink(type = "output", split = FALSE) 1566s [00:52:46.358] base::close(...future.stdout) 1566s [00:52:46.358] }, add = TRUE) 1566s [00:52:46.358] } 1566s [00:52:46.358] ...future.frame <- base::sys.nframe() 1566s [00:52:46.358] ...future.conditions <- base::list() 1566s [00:52:46.358] ...future.rng <- base::globalenv()$.Random.seed 1566s [00:52:46.358] if (FALSE) { 1566s [00:52:46.358] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1566s [00:52:46.358] "...future.value", "...future.globalenv.names", ".Random.seed") 1566s [00:52:46.358] } 1566s [00:52:46.358] ...future.result <- base::tryCatch({ 1566s [00:52:46.358] base::withCallingHandlers({ 1566s [00:52:46.358] ...future.value <- base::withVisible(base::local({ 1566s [00:52:46.358] do.call(function(...) { 1566s [00:52:46.358] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1566s [00:52:46.358] if (!identical(...future.globals.maxSize.org, 1566s [00:52:46.358] ...future.globals.maxSize)) { 1566s [00:52:46.358] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1566s [00:52:46.358] on.exit(options(oopts), add = TRUE) 1566s [00:52:46.358] } 1566s [00:52:46.358] { 1566s [00:52:46.358] lapply(seq_along(...future.elements_ii), 1566s [00:52:46.358] FUN = function(jj) { 1566s [00:52:46.358] ...future.X_jj <- ...future.elements_ii[[jj]] 1566s [00:52:46.358] assign(".Random.seed", ...future.seeds_ii[[jj]], 1566s [00:52:46.358] envir = globalenv(), inherits = FALSE) 1566s [00:52:46.358] ...future.FUN(...future.X_jj, ...) 1566s [00:52:46.358] }) 1566s [00:52:46.358] } 1566s [00:52:46.358] }, args = future.call.arguments) 1566s [00:52:46.358] })) 1566s [00:52:46.358] future::FutureResult(value = ...future.value$value, 1566s [00:52:46.358] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1566s [00:52:46.358] ...future.rng), globalenv = if (FALSE) 1566s [00:52:46.358] list(added = base::setdiff(base::names(base::.GlobalEnv), 1566s [00:52:46.358] ...future.globalenv.names)) 1566s [00:52:46.358] else NULL, started = ...future.startTime, version = "1.8") 1566s [00:52:46.358] }, condition = base::local({ 1566s [00:52:46.358] c <- base::c 1566s [00:52:46.358] inherits <- base::inherits 1566s [00:52:46.358] invokeRestart <- base::invokeRestart 1566s [00:52:46.358] length <- base::length 1566s [00:52:46.358] list <- base::list 1566s [00:52:46.358] seq.int <- base::seq.int 1566s [00:52:46.358] signalCondition <- base::signalCondition 1566s [00:52:46.358] sys.calls <- base::sys.calls 1566s [00:52:46.358] `[[` <- base::`[[` 1566s [00:52:46.358] `+` <- base::`+` 1566s [00:52:46.358] `<<-` <- base::`<<-` 1566s [00:52:46.358] sysCalls <- function(calls = sys.calls(), from = 1L) { 1566s [00:52:46.358] calls[seq.int(from = from + 12L, to = length(calls) - 1566s [00:52:46.358] 3L)] 1566s [00:52:46.358] } 1566s [00:52:46.358] function(cond) { 1566s [00:52:46.358] is_error <- inherits(cond, "error") 1566s [00:52:46.358] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1566s [00:52:46.358] NULL) 1566s [00:52:46.358] if (is_error) { 1566s [00:52:46.358] sessionInformation <- function() { 1566s [00:52:46.358] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1566s [00:52:46.358] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1566s [00:52:46.358] search = base::search(), system = base::Sys.info()) 1566s [00:52:46.358] } 1566s [00:52:46.358] ...future.conditions[[length(...future.conditions) + 1566s [00:52:46.358] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1566s [00:52:46.358] cond$call), session = sessionInformation(), 1566s [00:52:46.358] timestamp = base::Sys.time(), signaled = 0L) 1566s [00:52:46.358] signalCondition(cond) 1566s [00:52:46.358] } 1566s [00:52:46.358] else if (!ignore && TRUE && inherits(cond, c("condition", 1566s [00:52:46.358] "immediateCondition"))) { 1566s [00:52:46.358] signal <- TRUE && inherits(cond, "immediateCondition") 1566s [00:52:46.358] ...future.conditions[[length(...future.conditions) + 1566s [00:52:46.358] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1566s [00:52:46.358] if (TRUE && !signal) { 1566s [00:52:46.358] muffleCondition <- function (cond, pattern = "^muffle") 1566s [00:52:46.358] { 1566s [00:52:46.358] inherits <- base::inherits 1566s [00:52:46.358] invokeRestart <- base::invokeRestart 1566s [00:52:46.358] is.null <- base::is.null 1566s [00:52:46.358] muffled <- FALSE 1566s [00:52:46.358] if (inherits(cond, "message")) { 1566s [00:52:46.358] muffled <- grepl(pattern, "muffleMessage") 1566s [00:52:46.358] if (muffled) 1566s [00:52:46.358] invokeRestart("muffleMessage") 1566s [00:52:46.358] } 1566s [00:52:46.358] else if (inherits(cond, "warning")) { 1566s [00:52:46.358] muffled <- grepl(pattern, "muffleWarning") 1566s [00:52:46.358] if (muffled) 1566s [00:52:46.358] invokeRestart("muffleWarning") 1566s [00:52:46.358] } 1566s [00:52:46.358] else if (inherits(cond, "condition")) { 1566s [00:52:46.358] if (!is.null(pattern)) { 1566s [00:52:46.358] computeRestarts <- base::computeRestarts 1566s [00:52:46.358] grepl <- base::grepl 1566s [00:52:46.358] restarts <- computeRestarts(cond) 1566s [00:52:46.358] for (restart in restarts) { 1566s [00:52:46.358] name <- restart$name 1566s [00:52:46.358] if (is.null(name)) 1566s [00:52:46.358] next 1566s [00:52:46.358] if (!grepl(pattern, name)) 1566s [00:52:46.358] next 1566s [00:52:46.358] invokeRestart(restart) 1566s [00:52:46.358] muffled <- TRUE 1566s [00:52:46.358] break 1566s [00:52:46.358] } 1566s [00:52:46.358] } 1566s [00:52:46.358] } 1566s [00:52:46.358] invisible(muffled) 1566s [00:52:46.358] } 1566s [00:52:46.358] muffleCondition(cond, pattern = "^muffle") 1566s [00:52:46.358] } 1566s [00:52:46.358] } 1566s [00:52:46.358] else { 1566s [00:52:46.358] if (TRUE) { 1566s [00:52:46.358] muffleCondition <- function (cond, pattern = "^muffle") 1566s [00:52:46.358] { 1566s [00:52:46.358] inherits <- base::inherits 1566s [00:52:46.358] invokeRestart <- base::invokeRestart 1566s [00:52:46.358] is.null <- base::is.null 1566s [00:52:46.358] muffled <- FALSE 1566s [00:52:46.358] if (inherits(cond, "message")) { 1566s [00:52:46.358] muffled <- grepl(pattern, "muffleMessage") 1566s [00:52:46.358] if (muffled) 1566s [00:52:46.358] invokeRestart("muffleMessage") 1566s [00:52:46.358] } 1566s [00:52:46.358] else if (inherits(cond, "warning")) { 1566s [00:52:46.358] muffled <- grepl(pattern, "muffleWarning") 1566s [00:52:46.358] if (muffled) 1566s [00:52:46.358] invokeRestart("muffleWarning") 1566s [00:52:46.358] } 1566s [00:52:46.358] else if (inherits(cond, "condition")) { 1566s [00:52:46.358] if (!is.null(pattern)) { 1566s [00:52:46.358] computeRestarts <- base::computeRestarts 1566s [00:52:46.358] grepl <- base::grepl 1566s [00:52:46.358] restarts <- computeRestarts(cond) 1566s [00:52:46.358] for (restart in restarts) { 1566s [00:52:46.358] name <- restart$name 1566s [00:52:46.358] if (is.null(name)) 1566s [00:52:46.358] next 1566s [00:52:46.358] if (!grepl(pattern, name)) 1566s [00:52:46.358] next 1566s [00:52:46.358] invokeRestart(restart) 1566s [00:52:46.358] muffled <- TRUE 1566s [00:52:46.358] break 1566s [00:52:46.358] } 1566s [00:52:46.358] } 1566s [00:52:46.358] } 1566s [00:52:46.358] invisible(muffled) 1566s [00:52:46.358] } 1566s [00:52:46.358] muffleCondition(cond, pattern = "^muffle") 1566s [00:52:46.358] } 1566s [00:52:46.358] } 1566s [00:52:46.358] } 1566s [00:52:46.358] })) 1566s [00:52:46.358] }, error = function(ex) { 1566s [00:52:46.358] base::structure(base::list(value = NULL, visible = NULL, 1566s [00:52:46.358] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1566s [00:52:46.358] ...future.rng), started = ...future.startTime, 1566s [00:52:46.358] finished = Sys.time(), session_uuid = NA_character_, 1566s [00:52:46.358] version = "1.8"), class = "FutureResult") 1566s [00:52:46.358] }, finally = { 1566s [00:52:46.358] if (!identical(...future.workdir, getwd())) 1566s [00:52:46.358] setwd(...future.workdir) 1566s [00:52:46.358] { 1566s [00:52:46.358] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1566s [00:52:46.358] ...future.oldOptions$nwarnings <- NULL 1566s [00:52:46.358] } 1566s [00:52:46.358] base::options(...future.oldOptions) 1566s [00:52:46.358] if (.Platform$OS.type == "windows") { 1566s [00:52:46.358] old_names <- names(...future.oldEnvVars) 1566s [00:52:46.358] envs <- base::Sys.getenv() 1566s [00:52:46.358] names <- names(envs) 1566s [00:52:46.358] common <- intersect(names, old_names) 1566s [00:52:46.358] added <- setdiff(names, old_names) 1566s [00:52:46.358] removed <- setdiff(old_names, names) 1566s [00:52:46.358] changed <- common[...future.oldEnvVars[common] != 1566s [00:52:46.358] envs[common]] 1566s [00:52:46.358] NAMES <- toupper(changed) 1566s [00:52:46.358] args <- list() 1566s [00:52:46.358] for (kk in seq_along(NAMES)) { 1566s [00:52:46.358] name <- changed[[kk]] 1566s [00:52:46.358] NAME <- NAMES[[kk]] 1566s [00:52:46.358] if (name != NAME && is.element(NAME, old_names)) 1566s [00:52:46.358] next 1566s [00:52:46.358] args[[name]] <- ...future.oldEnvVars[[name]] 1566s [00:52:46.358] } 1566s [00:52:46.358] NAMES <- toupper(added) 1566s [00:52:46.358] for (kk in seq_along(NAMES)) { 1566s [00:52:46.358] name <- added[[kk]] 1566s [00:52:46.358] NAME <- NAMES[[kk]] 1566s [00:52:46.358] if (name != NAME && is.element(NAME, old_names)) 1566s [00:52:46.358] next 1566s [00:52:46.358] args[[name]] <- "" 1566s [00:52:46.358] } 1566s [00:52:46.358] NAMES <- toupper(removed) 1566s [00:52:46.358] for (kk in seq_along(NAMES)) { 1566s [00:52:46.358] name <- removed[[kk]] 1566s [00:52:46.358] NAME <- NAMES[[kk]] 1566s [00:52:46.358] if (name != NAME && is.element(NAME, old_names)) 1566s [00:52:46.358] next 1566s [00:52:46.358] args[[name]] <- ...future.oldEnvVars[[name]] 1566s [00:52:46.358] } 1566s [00:52:46.358] if (length(args) > 0) 1566s [00:52:46.358] base::do.call(base::Sys.setenv, args = args) 1566s [00:52:46.358] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1566s [00:52:46.358] } 1566s [00:52:46.358] else { 1566s [00:52:46.358] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1566s [00:52:46.358] } 1566s [00:52:46.358] { 1566s [00:52:46.358] if (base::length(...future.futureOptionsAdded) > 1566s [00:52:46.358] 0L) { 1566s [00:52:46.358] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1566s [00:52:46.358] base::names(opts) <- ...future.futureOptionsAdded 1566s [00:52:46.358] base::options(opts) 1566s [00:52:46.358] } 1566s [00:52:46.358] { 1566s [00:52:46.358] { 1566s [00:52:46.358] base::assign(".Random.seed", c(10403L, 4L, 1566s [00:52:46.358] 133210212L, 1945833034L, 115858357L, -364452081L, 1566s [00:52:46.358] -390319082L, 926195392L, 2057013379L, -803887967L, 1566s [00:52:46.358] -1078998384L, 705296750L, -1682614503L, 830917547L, 1566s [00:52:46.358] -331376230L, 1352842588L, 1960957023L, 1997081653L, 1566s [00:52:46.358] 374446028L, 1510359842L, 1146109309L, -1295266185L, 1566s [00:52:46.358] -1545472098L, 1268700760L, 1627111355L, -855092903L, 1566s [00:52:46.358] -215790872L, -1958931690L, 1906054289L, -782874301L, 1566s [00:52:46.358] -399096750L, -1740777756L, 1763676455L, -832683651L, 1566s [00:52:46.358] 1369376884L, 430697050L, 1699587749L, -1503628097L, 1566s [00:52:46.358] 856180550L, -242424368L, -2127251469L, 505777937L, 1566s [00:52:46.358] 257347392L, -856180962L, 886024169L, -1464480485L, 1566s [00:52:46.358] -1512233174L, -1985955764L, -425390065L, 1566s [00:52:46.358] -589669563L, 381897980L, -790840494L, 1136483533L, 1566s [00:52:46.358] -1535370105L, -607934610L, 1641470280L, -1050403509L, 1566s [00:52:46.358] 1965932713L, 362996216L, 1596838182L, -1829498303L, 1566s [00:52:46.358] -1824465965L, 1872669058L, -417374796L, -1713346249L, 1566s [00:52:46.358] 1818328109L, -1284085436L, -1981489558L, 1566s [00:52:46.358] 1940543701L, 1673049711L, -1514495114L, 467096736L, 1566s [00:52:46.358] 943410531L, -1431020031L, 1115626864L, 965475598L, 1566s [00:52:46.358] -1718567047L, -793788661L, -1133789126L, 1566s [00:52:46.358] -80588996L, 2018258047L, 1866186709L, 42791404L, 1566s [00:52:46.358] -1823521982L, -1345991523L, -1672661737L, 1566s [00:52:46.358] -180777858L, -452713416L, 1448313627L, -1459492743L, 1566s [00:52:46.358] -600706872L, -909649674L, -2081822415L, -1697455773L, 1566s [00:52:46.358] 1517613874L, -820020092L, 188336327L, -1149897827L, 1566s [00:52:46.358] -475203820L, -368005702L, 204442629L, 437854687L, 1566s [00:52:46.358] 1163191398L, -760699920L, 104455443L, 819708593L, 1566s [00:52:46.358] 1129180512L, 48636670L, 1066049161L, 398150075L, 1566s [00:52:46.358] -852036726L, -906028436L, -1265740817L, -1824646107L, 1566s [00:52:46.358] -2126068516L, 1815435954L, -146408019L, -860012185L, 1566s [00:52:46.358] -682500466L, 1443186536L, 1789394795L, -1078204151L, 1566s [00:52:46.358] 809467800L, 1514112710L, -1097673695L, 919601331L, 1566s [00:52:46.358] -331916766L, 795008020L, 1042337943L, -371219827L, 1566s [00:52:46.358] 1558967204L, 1563528586L, -2133607947L, -1904454577L, 1566s [00:52:46.358] -264006826L, 770017792L, 153477955L, 1189667553L, 1566s [00:52:46.358] -363253680L, 1882362030L, 967246937L, -793119637L, 1566s [00:52:46.358] -1401964070L, 2129232540L, -542810977L, -1277899019L, 1566s [00:52:46.358] -377097332L, -406748574L, -1722157507L, -1577740105L, 1566s [00:52:46.358] -455170210L, 372239000L, -1535936005L, -1332632679L, 1566s [00:52:46.358] -1623884760L, -359633706L, 935827793L, 1357445123L, 1566s [00:52:46.358] 997040018L, -1506538204L, -147930137L, -166569923L, 1566s [00:52:46.358] -2103753036L, 1366641946L, 30482021L, 1876964095L, 1566s [00:52:46.358] 2008557446L, 657856784L, -103814733L, 774877777L, 1566s [00:52:46.358] -486350336L, -555057442L, -1821756119L, -963495717L, 1566s [00:52:46.358] 853311466L, 1671241612L, -942337841L, 409538693L, 1566s [00:52:46.358] 1992831804L, 489867794L, 357105933L, -1611412921L, 1566s [00:52:46.358] -1119334354L, -1521015416L, -2041922421L, 1566s [00:52:46.358] 2048874089L, -700216776L, 1651628774L, -10471807L, 1566s [00:52:46.358] 736942611L, 380607938L, -1742088588L, 1124231287L, 1566s [00:52:46.358] 1232111981L, -1801753084L, -1608606422L, 1566s [00:52:46.358] -1172096363L, 1420874031L, -1210473418L, 1566s [00:52:46.358] -18317216L, -571709789L, 1107403201L, 1952554416L, 1566s [00:52:46.358] 1991660750L, -442973639L, 581522507L, -430787078L, 1566s [00:52:46.358] 1105375484L, -1481218753L, -748152299L, -641535700L, 1566s [00:52:46.358] 679371266L, -591318819L, -104578089L, -172818754L, 1566s [00:52:46.358] -1321694984L, -98191653L, 1709083961L, -344680312L, 1566s [00:52:46.358] -159571914L, 581309553L, -63938909L, 76420082L, 1566s [00:52:46.358] 951019332L, -1797740537L, 1291470301L, -2079866156L, 1566s [00:52:46.358] -332493318L, -1978392251L, -1691039632L, 1566s [00:52:46.358] 388791868L, -1101109484L, -1365177662L, 321737440L, 1566s [00:52:46.358] 1812890748L, -133313328L, -1252731998L, 2044530216L, 1566s [00:52:46.358] 1263927564L, 325388220L, 520794418L, 1449646272L, 1566s [00:52:46.358] 87560756L, -87565624L, 426345146L, -699970416L, 1566s [00:52:46.358] 240322284L, -1074080172L, -1536268654L, 1338615584L, 1566s [00:52:46.358] 478476236L, -1933154080L, -192786750L, 1559942184L, 1566s [00:52:46.358] -1178330196L, -687617348L, -1701912078L, 1566s [00:52:46.358] 352314928L, -999229532L, -2052800072L, -1913644198L, 1566s [00:52:46.358] -1345416048L, 1816730492L, -1570431212L, 1566s [00:52:46.358] -269427390L, -2122969344L, -520963140L, 1398087504L, 1566s [00:52:46.358] 264692002L, -1682658744L, -1422452724L, -1601893284L, 1566s [00:52:46.358] -66383406L, 1443075584L, -456249004L, 943694056L, 1566s [00:52:46.358] -1493184262L, -1943836976L, -590788308L, 1566s [00:52:46.358] -405505804L, -1796837998L, 1991543136L, 1170376716L, 1566s [00:52:46.358] 1707420384L, 1899700834L, -1643595096L, 47299148L, 1566s [00:52:46.358] 1274857340L, -1205842638L, -1938479504L, 1566s [00:52:46.358] -1773978812L, 532695000L, 1306451834L, 258403888L, 1566s [00:52:46.358] -284747844L, -1780705708L, 1621936194L, 1129070752L, 1566s [00:52:46.358] 540946108L, -294270512L, -1426480286L, -356302104L, 1566s [00:52:46.358] 349847756L, 1849803260L, -1299125774L, 511654528L, 1566s [00:52:46.358] -1259964940L, -1879857528L, 535666490L, -2020097200L, 1566s [00:52:46.358] -1460751252L, 1201879444L, -1459788718L, 1566s [00:52:46.358] 447195616L, -730891060L, -1875530592L, -2146183806L, 1566s [00:52:46.358] 193274088L, -1224605972L, 1616153916L, -1896973198L, 1566s [00:52:46.358] -420945808L, -1997735900L, -1838404552L, 1566s [00:52:46.358] -413698278L, 1984019664L, -1760209092L, -1288743020L, 1566s [00:52:46.358] 392579970L, -1382567488L, -1295004100L, -33348208L, 1566s [00:52:46.358] 1536615970L, -428761848L, 643368588L, -1596336356L, 1566s [00:52:46.358] 1797431442L, 352422272L, -1043800556L, 60591912L, 1566s [00:52:46.358] -1115663814L, 1043682768L, 521144684L, 4793268L, 1566s [00:52:46.358] -1924265966L, 978890208L, 370048972L, -1607474976L, 1566s [00:52:46.358] -1443637214L, -632405720L, 691912204L, 166321980L, 1566s [00:52:46.358] 942193650L, 751741680L, 689743428L, -18455976L, 1566s [00:52:46.358] -1946329286L, -1619184144L, 239341244L, 371382548L, 1566s [00:52:46.358] -2069808446L, 154176608L, 385987452L, -385611824L, 1566s [00:52:46.358] 1967391010L, 2140654248L, 1720087436L, -1591007044L, 1566s [00:52:46.358] -1612486862L, 1295747648L, 1726784692L, 597326408L, 1566s [00:52:46.358] -973152838L, 628505104L, -1089631508L, 3230036L, 1566s [00:52:46.358] -593837806L, 244006304L, 1357912780L, 1839234656L, 1566s [00:52:46.358] -1357570110L, 1896595240L, -2066952276L, 1566s [00:52:46.358] -1724304580L, 986188146L, -1200604368L, -279100124L, 1566s [00:52:46.358] 131128120L, -1088465190L, 596533136L, 170602236L, 1566s [00:52:46.358] -1051262060L, 215660610L, -686217984L, 444449852L, 1566s [00:52:46.358] 769655120L, 236357794L, 181393736L, -13334772L, 1566s [00:52:46.358] 644690652L, -1969263278L, -2107982720L, 1429553236L, 1566s [00:52:46.358] 794236904L, 1997299962L, -458224816L, 904978220L, 1566s [00:52:46.358] -537093772L, -842839150L, 1828989024L, -679303796L, 1566s [00:52:46.358] 1396292448L, 76319202L, 1896098728L, 418430156L, 1566s [00:52:46.358] 2005956604L, 1370351026L, -1178923536L, -1154073660L, 1566s [00:52:46.358] -1218863784L, 89928058L, 816597936L, -1141767748L, 1566s [00:52:46.358] 1579714644L, 1343385538L, 371259424L, -245180228L, 1566s [00:52:46.358] 365724240L, 1606388706L, -823678872L, 1281309772L, 1566s [00:52:46.358] 1395210492L, 1217887218L, 1420531968L, 1349501300L, 1566s [00:52:46.358] 271647752L, -69959750L, 360452560L, 1565334508L, 1566s [00:52:46.358] 1956526484L, -930709038L, 1961808224L, -1745916084L, 1566s [00:52:46.358] 443656480L, 1990137730L, 694374120L, -1050566420L, 1566s [00:52:46.358] -1365842884L, -438961294L, -1851472272L, 1566s [00:52:46.358] 614534180L, 1401930552L, 3652762L, 1928284880L, 1566s [00:52:46.358] -1637703492L, 26107540L, -132725907L, -371944998L, 1566s [00:52:46.358] -1311388776L, 8516097L, 741008307L, -1149566252L, 1566s [00:52:46.358] -1802640414L, 2019636855L, 1587818433L, -151040698L, 1566s [00:52:46.358] 1598381188L, -205462987L, 1911327L, -1382519432L, 1566s [00:52:46.358] -594809770L, -2146766621L, -2013964635L, 1566s [00:52:46.358] -965534910L, -2077626064L, 1964788057L, 1821395659L, 1566s [00:52:46.358] -1953549508L, -719348886L, 1442511263L, 1969287209L, 1566s [00:52:46.358] 1754221246L, -442299476L, 1981692157L, 113456199L, 1566s [00:52:46.358] 1587794736L, -1811033010L, 1149417595L, -1760887843L, 1566s [00:52:46.358] -1426021878L, -1285634264L, 1507547537L, 1566s [00:52:46.358] -1114120317L, 1897370756L, 1142575794L, -375814649L, 1566s [00:52:46.358] -1661041071L, 881081814L, -548925260L, 2073840837L, 1566s [00:52:46.358] 1156484623L, 2011334280L, 1107815334L, 969024339L, 1566s [00:52:46.358] -55972683L, 2006780434L, -1486403616L, 1698650697L, 1566s [00:52:46.358] 1813794939L, -1717763764L, 1268815066L, -1200630577L, 1566s [00:52:46.358] -773717863L, -12215122L, 1354639804L, 1213207085L, 1566s [00:52:46.358] -978295337L, 340143136L, 485429630L, -568148149L, 1566s [00:52:46.358] 1257440589L, 930106234L, -883274312L, -1632538783L, 1566s [00:52:46.358] 894748435L, -1592959180L, -596177598L, 120963415L, 1566s [00:52:46.358] -1174532959L, -561474202L, 1438545764L, 1429911189L, 1566s [00:52:46.358] 1075965887L, 367866712L, -892333706L, -485158013L, 1566s [00:52:46.358] -682634811L, 963344098L, 2110199632L, 1990767225L, 1566s [00:52:46.358] 1348335019L, 269581084L, -2040640438L, 1453561919L, 1566s [00:52:46.358] 853952649L, 1195494558L, 1614051660L, 2040242461L, 1566s [00:52:46.358] -1604604761L, 1421229008L, -1268333714L, 1566s [00:52:46.358] 174113307L, 2044969853L, 190112106L, -998776824L, 1566s [00:52:46.358] -2070476623L, -2099222749L, 1141171236L, 1566s [00:52:46.358] -146426158L, -1797385433L, -1129376399L, 1566s [00:52:46.358] -1496589386L, -419561644L, -613549595L, 1243456495L, 1566s [00:52:46.358] 451212072L, 1923543942L, 1146113971L, 93579029L, 1566s [00:52:46.358] -397504142L, 597218752L, 459048489L, 1447221915L, 1566s [00:52:46.358] -272948372L, -373834886L, 934888623L, -2099351623L, 1566s [00:52:46.358] -1672042034L, 193924380L, -704518003L, 781993207L, 1566s [00:52:46.358] -258875392L, -1853783458L, 1315003691L, -41214419L, 1566s [00:52:46.358] -59447654L, 1203745368L, 426003905L, 452670067L, 1566s [00:52:46.358] -1092079724L, -1765622238L, -1882554057L, 1566s [00:52:46.358] 1278087169L, -1994822394L, -124954300L, 1994460277L, 1566s [00:52:46.358] 1816829407L, -1568282312L, 1563616022L, 1255996195L, 1566s [00:52:46.358] 1702121701L, 1784032514L, 1842995056L, 748060441L, 1566s [00:52:46.358] 1432229643L, -1905232900L, 2016890922L, 1403944031L, 1566s [00:52:46.358] 351712233L, 1338932478L, -1359366932L, -803018691L, 1566s [00:52:46.358] -1551885305L, 248629232L, 1839395726L, 1411789243L, 1566s [00:52:46.358] 840085405L, -1849000630L, -669518488L, -1453417647L, 1566s [00:52:46.358] -1527179197L, -377159356L, 1674525170L, -313742393L, 1566s [00:52:46.358] 865377681L, -1127426242L), envir = base::globalenv(), 1566s [00:52:46.358] inherits = FALSE) 1566s [00:52:46.358] NULL 1566s [00:52:46.358] } 1566s [00:52:46.358] options(future.plan = NULL) 1566s [00:52:46.358] if (is.na(NA_character_)) 1566s [00:52:46.358] Sys.unsetenv("R_FUTURE_PLAN") 1566s [00:52:46.358] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1566s [00:52:46.358] future::plan(list(function (..., envir = parent.frame()) 1566s [00:52:46.358] { 1566s [00:52:46.358] future <- SequentialFuture(..., envir = envir) 1566s [00:52:46.358] if (!future$lazy) 1566s [00:52:46.358] future <- run(future) 1566s [00:52:46.358] invisible(future) 1566s [00:52:46.358] }), .cleanup = FALSE, .init = FALSE) 1566s [00:52:46.358] } 1566s [00:52:46.358] } 1566s [00:52:46.358] } 1566s [00:52:46.358] }) 1566s [00:52:46.358] if (TRUE) { 1566s [00:52:46.358] base::sink(type = "output", split = FALSE) 1566s [00:52:46.358] if (TRUE) { 1566s [00:52:46.358] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1566s [00:52:46.358] } 1566s [00:52:46.358] else { 1566s [00:52:46.358] ...future.result["stdout"] <- base::list(NULL) 1566s [00:52:46.358] } 1566s [00:52:46.358] base::close(...future.stdout) 1566s [00:52:46.358] ...future.stdout <- NULL 1566s [00:52:46.358] } 1566s [00:52:46.358] ...future.result$conditions <- ...future.conditions 1566s [00:52:46.358] ...future.result$finished <- base::Sys.time() 1566s [00:52:46.358] ...future.result 1566s [00:52:46.358] } 1566s [00:52:46.366] assign_globals() ... 1566s [00:52:46.366] List of 5 1566s [00:52:46.366] $ ...future.FUN :function (...) 1566s [00:52:46.366] $ future.call.arguments : list() 1566s [00:52:46.366] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1566s [00:52:46.366] $ ...future.elements_ii :List of 5 1566s [00:52:46.366] ..$ : int 0 1566s [00:52:46.366] ..$ : int 0 1566s [00:52:46.366] ..$ : int 0 1566s [00:52:46.366] ..$ : int 0 1566s [00:52:46.366] ..$ : int 0 1566s [00:52:46.366] $ ...future.seeds_ii :List of 5 1566s [00:52:46.366] ..$ : int [1:7] 10407 1242173061 -1150840343 -834448425 701050094 -1369558043 -650964284 1566s [00:52:46.366] ..$ : int [1:7] 10407 859061261 1088872332 -1371790091 -942478768 -889560561 1393381402 1566s [00:52:46.366] ..$ : int [1:7] 10407 -1977952646 362645338 -1927542548 -742448269 -2030870718 1472975712 1566s [00:52:46.366] ..$ : int [1:7] 10407 -781199300 -1470244364 -1435938985 -1154922760 795337516 2089908040 1566s [00:52:46.366] ..$ : int [1:7] 10407 -1281561623 1745663508 -502066495 1003795914 -1805763079 -205768335 1566s [00:52:46.366] $ ...future.globals.maxSize: NULL 1566s [00:52:46.366] - attr(*, "where")=List of 5 1566s [00:52:46.366] ..$ ...future.FUN : 1566s [00:52:46.366] ..$ future.call.arguments : 1566s [00:52:46.366] ..$ ...future.elements_ii : 1566s [00:52:46.366] ..$ ...future.seeds_ii : 1566s [00:52:46.366] ..$ ...future.globals.maxSize: 1566s [00:52:46.366] - attr(*, "resolved")= logi FALSE 1566s [00:52:46.366] - attr(*, "total_size")= num 616 1566s [00:52:46.366] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1566s [00:52:46.366] - attr(*, "already-done")= logi TRUE 1566s [00:52:46.377] - reassign environment for ‘...future.FUN’ 1566s [00:52:46.377] - copied ‘...future.FUN’ to environment 1566s [00:52:46.378] - copied ‘future.call.arguments’ to environment 1566s [00:52:46.378] - copied ‘...future.elements_ii’ to environment 1566s [00:52:46.378] - copied ‘...future.seeds_ii’ to environment 1566s [00:52:46.379] - copied ‘...future.globals.maxSize’ to environment 1566s [00:52:46.380] assign_globals() ... done 1566s [00:52:46.380] plan(): Setting new future strategy stack: 1566s [00:52:46.380] List of future strategies: 1566s [00:52:46.380] 1. sequential: 1566s [00:52:46.380] - args: function (..., envir = parent.frame()) 1566s [00:52:46.380] - tweaked: FALSE 1566s [00:52:46.380] - call: NULL 1566s [00:52:46.381] plan(): nbrOfWorkers() = 1 1566s [00:52:46.381] plan(): Setting new future strategy stack: 1566s [00:52:46.381] List of future strategies: 1566s [00:52:46.381] 1. sequential: 1566s [00:52:46.381] - args: function (..., envir = parent.frame()) 1566s [00:52:46.381] - tweaked: FALSE 1566s [00:52:46.381] - call: plan(strategy) 1566s [00:52:46.382] plan(): nbrOfWorkers() = 1 1566s [00:52:46.382] SequentialFuture started (and completed) 1566s [00:52:46.382] - Launch lazy future ... done 1566s [00:52:46.382] run() for ‘SequentialFuture’ ... done 1566s [00:52:46.383] Created future: 1566s [00:52:46.383] SequentialFuture: 1566s [00:52:46.383] Label: ‘future_replicate-1’ 1566s [00:52:46.383] Expression: 1566s [00:52:46.383] { 1566s [00:52:46.383] do.call(function(...) { 1566s [00:52:46.383] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1566s [00:52:46.383] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1566s [00:52:46.383] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1566s [00:52:46.383] on.exit(options(oopts), add = TRUE) 1566s [00:52:46.383] } 1566s [00:52:46.383] { 1566s [00:52:46.383] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1566s [00:52:46.383] ...future.X_jj <- ...future.elements_ii[[jj]] 1566s [00:52:46.383] assign(".Random.seed", ...future.seeds_ii[[jj]], 1566s [00:52:46.383] envir = globalenv(), inherits = FALSE) 1566s [00:52:46.383] ...future.FUN(...future.X_jj, ...) 1566s [00:52:46.383] }) 1566s [00:52:46.383] } 1566s [00:52:46.383] }, args = future.call.arguments) 1566s [00:52:46.383] } 1566s [00:52:46.383] Lazy evaluation: FALSE 1566s [00:52:46.383] Asynchronous evaluation: FALSE 1566s [00:52:46.383] Local evaluation: TRUE 1566s [00:52:46.383] Environment: R_GlobalEnv 1566s [00:52:46.383] Capture standard output: TRUE 1566s [00:52:46.383] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1566s [00:52:46.383] Globals: 5 objects totaling 1.27 KiB (function ‘...future.FUN’ of 616 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 280 bytes, list ‘...future.seeds_ii’ of 400 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1566s [00:52:46.383] Packages: 1566s [00:52:46.383] L'Ecuyer-CMRG RNG seed: (seed = NULL) 1566s [00:52:46.383] Resolved: TRUE 1566s [00:52:46.383] Value: 280 bytes of class ‘list’ 1566s [00:52:46.383] Early signaling: FALSE 1566s [00:52:46.383] Owner process: 50289bf5-8c9f-f501-15c6-3ca1fa8d82cf 1566s [00:52:46.383] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1566s [00:52:46.384] Chunk #1 of 1 ... DONE 1566s [00:52:46.385] Launching 1 futures (chunks) ... DONE 1566s [00:52:46.385] Resolving 1 futures (chunks) ... 1566s [00:52:46.385] resolve() on list ... 1566s [00:52:46.385] recursive: 0 1566s [00:52:46.385] length: 1 1566s [00:52:46.385] 1566s [00:52:46.385] resolved() for ‘SequentialFuture’ ... 1566s [00:52:46.386] - state: ‘finished’ 1566s [00:52:46.386] - run: TRUE 1566s [00:52:46.386] - result: ‘FutureResult’ 1566s [00:52:46.386] resolved() for ‘SequentialFuture’ ... done 1566s [00:52:46.386] Future #1 1566s [00:52:46.386] signalConditionsASAP(SequentialFuture, pos=1) ... 1566s [00:52:46.387] - nx: 1 1566s [00:52:46.387] - relay: TRUE 1566s [00:52:46.387] - stdout: TRUE 1566s [00:52:46.387] - signal: TRUE 1566s [00:52:46.387] - resignal: FALSE 1566s [00:52:46.387] - force: TRUE 1566s [00:52:46.387] - relayed: [n=1] FALSE 1566s [00:52:46.387] - queued futures: [n=1] FALSE 1566s [00:52:46.388] - until=1 1566s [00:52:46.388] - relaying element #1 1566s [00:52:46.388] - relayed: [n=1] TRUE 1566s [00:52:46.388] - queued futures: [n=1] TRUE 1566s [00:52:46.388] signalConditionsASAP(SequentialFuture, pos=1) ... done 1566s [00:52:46.388] length: 0 (resolved future 1) 1566s [00:52:46.389] Relaying remaining futures 1566s [00:52:46.389] signalConditionsASAP(NULL, pos=0) ... 1566s [00:52:46.389] - nx: 1 1566s [00:52:46.389] - relay: TRUE 1566s [00:52:46.389] - stdout: TRUE 1566s [00:52:46.389] - signal: TRUE 1566s [00:52:46.389] - resignal: FALSE 1566s [00:52:46.390] - force: TRUE 1566s [00:52:46.390] - relayed: [n=1] TRUE 1566s [00:52:46.390] - queued futures: [n=1] TRUE 1566s - flush all 1566s [00:52:46.390] - relayed: [n=1] TRUE 1566s [00:52:46.391] - queued futures: [n=1] TRUE 1566s [00:52:46.391] signalConditionsASAP(NULL, pos=0) ... done 1566s [00:52:46.391] resolve() on list ... DONE 1566s [00:52:46.391] - Number of value chunks collected: 1 1566s [00:52:46.391] Resolving 1 futures (chunks) ... DONE 1566s [00:52:46.391] Reducing values from 1 chunks ... 1566s [00:52:46.392] - Number of values collected after concatenation: 5 1566s [00:52:46.392] - Number of values expected: 5 1566s [00:52:46.392] Reducing values from 1 chunks ... DONE 1566s [00:52:46.392] future_lapply() ... DONE 1566s [00:52:46.392] future_lapply() ... 1566s [00:52:46.393] Generating random seeds ... 1566s [00:52:46.393] Generating random seed streams for 5 elements ... 1566s [00:52:46.393] Generating random seed streams for 5 elements ... DONE 1566s [00:52:46.393] Generating random seeds ... DONE 1566s [00:52:46.393] Will set RNG state on exit: 10403, 6, 133210212, 1945833034, 115858357, -364452081, -390319082, 926195392, 2057013379, -803887967, -1078998384, 705296750, -1682614503, 830917547, -331376230, 1352842588, 1960957023, 1997081653, 374446028, 1510359842, 1146109309, -1295266185, -1545472098, 1268700760, 1627111355, -855092903, -215790872, -1958931690, 1906054289, -782874301, -399096750, -1740777756, 1763676455, -832683651, 1369376884, 430697050, 1699587749, -1503628097, 856180550, -242424368, -2127251469, 505777937, 257347392, -856180962, 886024169, -1464480485, -1512233174, -1985955764, -425390065, -589669563, 381897980, -790840494, 1136483533, -1535370105, -607934610, 1641470280, -1050403509, 1965932713, 362996216, 1596838182, -1829498303, -1824465965, 1872669058, -417374796, -1713346249, 1818328109, -1284085436, -1981489558, 1940543701, 1673049711, -1514495114, 467096736, 943410531, -1431020031, 1115626864, 965475598, -1718567047, -793788661, -1133789126, -80588996, 2018258047, 1866186709, 42791404, -1823521982, -1345991523, -1672661737, -180777858, -452713416, 1448313627, -1459492743, -600706872, -909649674, -2081822415, -1697455773, 1517613874, -820020092, 188336327, -1149897827, -475203820, -368005702, 204442629, 437854687, 1163191398, -760699920, 104455443, 819708593, 1129180512, 48636670, 1066049161, 398150075, -852036726, -906028436, -1265740817, -1824646107, -2126068516, 1815435954, -146408019, -860012185, -682500466, 1443186536, 1789394795, -1078204151, 809467800, 1514112710, -1097673695, 919601331, -331916766, 795008020, 1042337943, -371219827, 1558967204, 1563528586, -2133607947, -1904454577, -264006826, 770017792, 153477955, 1189667553, -363253680, 1882362030, 967246937, -793119637, -1401964070, 2129232540, -542810977, -1277899019, -377097332, -406748574, -1722157507, -1577740105, -455170210, 372239000, -1535936005, -1332632679, -1623884760, -359633706, 935827793, 1357445123, 997040018, -1506538204, -147930137, -166569923, -2103753036, 1366641946, 30482021, 1876964095, 2008557446, 657856784, -103814733, 774877777, -486350336, -555057442, -1821756119, -963495717, 853311466, 1671241612, -942337841, 409538693, 1992831804, 489867794, 357105933, -1611412921, -1119334354, -1521015416, -2041922421, 2048874089, -700216776, 1651628774, -10471807, 736942611, 380607938, -1742088588, 1124231287, 1232111981, -1801753084, -1608606422, -1172096363, 1420874031, -1210473418, -18317216, -571709789, 1107403201, 1952554416, 1991660750, -442973639, 581522507, -430787078, 1105375484, -1481218753, -748152299, -641535700, 679371266, -591318819, -104578089, -172818754, -1321694984, -98191653, 1709083961, -344680312, -159571914, 581309553, -63938909, 76420082, 951019332, -1797740537, 1291470301, -2079866156, -332493318, -1978392251, -1691039632, 388791868, -1101109484, -1365177662, 321737440, 1812890748, -133313328, -1252731998, 2044530216, 1263927564, 325388220, 520794418, 1449646272, 87560756, -87565624, 426345146, -699970416, 240322284, -1074080172, -1536268654, 1338615584, 478476236, -1933154080, -192786750, 1559942184, -1178330196, -687617348, -1701912078, 352314928, -999229532, -2052800072, -1913644198, -1345416048, 1816730492, -1570431212, -269427390, -2122969344, -520963140, 1398087504, 264692002, -1682658744, -1422452724, -1601893284, -66383406, 1443075584, -456249004, 943694056, -1493184262, -1943836976, -590788308, -405505804, -1796837998, 1991543136, 1170376716, 1707420384, 1899700834, -1643595096, 47299148, 1274857340, -1205842638, -1938479504, -1773978812, 532695000, 1306451834, 258403888, -284747844, -1780705708, 1621936194, 1129070752, 540946108, -294270512, -1426480286, -356302104, 349847756, 1849803260, -1299125774, 511654528, -1259964940, -1879857528, 535666490, -2020097200, -1460751252, 1201879444, -1459788718, 447195616, -730891060, -1875530592, -2146183806, 193274088, -1224605972, 1616153916, -1896973198, -420945808, -1997735900, -1838404552, -413698278, 1984019664, -1760209092, -1288743020, 392579970, -1382567488, -1295004100, -33348208, 1536615970, -428761848, 643368588, -1596336356, 1797431442, 352422272, -1043800556, 60591912, -1115663814, 1043682768, 521144684, 4793268, -1924265966, 978890208, 370048972, -1607474976, -1443637214, -632405720, 691912204, 166321980, 942193650, 751741680, 689743428, -18455976, -1946329286, -1619184144, 239341244, 371382548, -2069808446, 154176608, 385987452, -385611824, 1967391010, 2140654248, 1720087436, -1591007044, -1612486862, 1295747648, 1726784692, 597326408, -973152838, 628505104, -1089631508, 3230036, -593837806, 244006304, 1357912780, 1839234656, -1357570110, 1896595240, -2066952276, -1724304580, 986188146, -1200604368, -279100124, 131128120, -1088465190, 596533136, 170602236, -1051262060, 215660610, -686217984, 444449852, 769655120, 236357794, 181393736, -13334772, 644690652, -1969263278, -2107982720, 1429553236, 794236904, 1997299962, -458224816, 904978220, -537093772, -842839150, 1828989024, -679303796, 1396292448, 76319202, 1896098728, 418430156, 2005956604, 1370351026, -1178923536, -1154073660, -1218863784, 89928058, 816597936, -1141767748, 1579714644, 1343385538, 371259424, -245180228, 365724240, 1606388706, -823678872, 1281309772, 1395210492, 1217887218, 1420531968, 1349501300, 271647752, -69959750, 360452560, 1565334508, 1956526484, -930709038, 1961808224, -1745916084, 443656480, 1990137730, 694374120, -1050566420, -1365842884, -438961294, -1851472272, 614534180, 1401930552, 3652762, 1928284880, -1637703492, 26107540, -132725907, -371944998, -1311388776, 8516097, 741008307, -1149566252, -1802640414, 2019636855, 1587818433, -151040698, 1598381188, -205462987, 1911327, -1382519432, -594809770, -2146766621, -2013964635, -965534910, -2077626064, 1964788057, 1821395659, -1953549508, -719348886, 1442511263, 1969287209, 1754221246, -442299476, 1981692157, 113456199, 1587794736, -1811033010, 1149417595, -1760887843, -1426021878, -1285634264, 1507547537, -1114120317, 1897370756, 1142575794, -375814649, -1661041071, 881081814, -548925260, 2073840837, 1156484623, 2011334280, 1107815334, 969024339, -55972683, 2006780434, -1486403616, 1698650697, 1813794939, -1717763764, 1268815066, -1200630577, -773717863, -12215122, 1354639804, 1213207085, -978295337, 340143136, 485429630, -568148149, 1257440589, 930106234, -883274312, -1632538783, 894748435, -1592959180, -596177598, 120963415, -1174532959, -561474202, 1438545764, 1429911189, 1075965887, 367866712, -892333706, -485158013, -682634811, 963344098, 2110199632, 1990767225, 1348335019, 269581084, -2040640438, 1453561919, 853952649, 1195494558, 1614051660, 2040242461, -1604604761, 1421229008, -1268333714, 174113307, 2044969853, 190112106, -998776824, -2070476623, -2099222749, 1141171236, -146426158, -1797385433, -1129376399, -1496589386, -419561644, -613549595, 1243456495, 451212072, 1923543942, 1146113971, 93579029, -397504142, 597218752, 459048489, 1447221915, -272948372, -373834886, 934888623, -2099351623, -1672042034, 193924380, -704518003, 781993207, -258875392, -1853783458, 1315003691, -41214419, -59447654, 1203745368, 426003905, 452670067, -1092079724, -1765622238, -1882554057, 1278087169, -1994822394, -124954300, 1994460277, 1816829407, -1568282312, 1563616022, 1255996195, 1702121701, 1784032514, 1842995056, 748060441, 1432229643, -1905232900, 2016890922, 1403944031, 351712233, 1338932478, -1359366932, -803018691, -1551885305, 248629232, 1839395726, 1411789243, 840085405, -1849000630, -669518488, -1453417647, -1527179197, -377159356, 1674525170, -313742393, 865377681, -1127426242 1566s [00:52:46.394] Number of chunks: 1 1566s [00:52:46.394] getGlobalsAndPackagesXApply() ... 1566s [00:52:46.395] - future.globals: TRUE 1566s [00:52:46.395] getGlobalsAndPackages() ... 1566s [00:52:46.395] Searching for globals... 1566s [00:52:46.396] - globals found: [2] ‘FUN’, ‘sample’ 1566s [00:52:46.397] Searching for globals ... DONE 1566s [00:52:46.397] Resolving globals: FALSE 1566s [00:52:46.397] The total size of the 1 globals is 616 bytes (616 bytes) 1566s [00:52:46.397] The total size of the 1 globals exported for future expression (‘FUN()’) is 616 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (616 bytes of class ‘function’) 1566s [00:52:46.398] - globals: [1] ‘FUN’ 1566s [00:52:46.398] 1566s [00:52:46.398] getGlobalsAndPackages() ... DONE 1566s [00:52:46.398] - globals found/used: [n=1] ‘FUN’ 1566s [00:52:46.398] - needed namespaces: [n=0] 1566s [00:52:46.398] Finding globals ... DONE 1566s [00:52:46.398] - use_args: TRUE 1566s [00:52:46.399] - Getting '...' globals ... 1566s [00:52:46.399] resolve() on list ... 1566s [00:52:46.399] recursive: 0 1566s [00:52:46.399] length: 1 1566s [00:52:46.399] elements: ‘...’ 1566s [00:52:46.399] length: 0 (resolved future 1) 1566s [00:52:46.400] resolve() on list ... DONE 1566s [00:52:46.400] - '...' content: [n=0] 1566s [00:52:46.400] List of 1 1566s [00:52:46.400] $ ...: list() 1566s [00:52:46.400] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1566s [00:52:46.400] - attr(*, "where")=List of 1 1566s [00:52:46.400] ..$ ...: 1566s [00:52:46.400] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1566s [00:52:46.400] - attr(*, "resolved")= logi TRUE 1566s [00:52:46.400] - attr(*, "total_size")= num NA 1566s [00:52:46.403] - Getting '...' globals ... DONE 1566s [00:52:46.404] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1566s [00:52:46.404] List of 2 1566s [00:52:46.404] $ ...future.FUN:function (...) 1566s [00:52:46.404] $ ... : list() 1566s [00:52:46.404] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1566s [00:52:46.404] - attr(*, "where")=List of 2 1566s [00:52:46.404] ..$ ...future.FUN: 1566s [00:52:46.404] ..$ ... : 1566s [00:52:46.404] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1566s [00:52:46.404] - attr(*, "resolved")= logi FALSE 1566s [00:52:46.404] - attr(*, "total_size")= num 616 1566s [00:52:46.407] Packages to be attached in all futures: [n=0] 1566s [00:52:46.407] getGlobalsAndPackagesXApply() ... DONE 1566s [00:52:46.407] Number of futures (= number of chunks): 1 1566s [00:52:46.408] Launching 1 futures (chunks) ... 1566s [00:52:46.408] Chunk #1 of 1 ... 1566s [00:52:46.408] - Finding globals in 'X' for chunk #1 ... 1566s [00:52:46.408] getGlobalsAndPackages() ... 1566s [00:52:46.408] Searching for globals... 1566s [00:52:46.408] 1566s [00:52:46.409] Searching for globals ... DONE 1566s [00:52:46.409] - globals: [0] 1566s [00:52:46.409] getGlobalsAndPackages() ... DONE 1566s [00:52:46.409] + additional globals found: [n=0] 1566s [00:52:46.409] + additional namespaces needed: [n=0] 1566s [00:52:46.410] - Finding globals in 'X' for chunk #1 ... DONE 1566s [00:52:46.410] - seeds: [5] 1566s [00:52:46.410] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1566s [00:52:46.410] getGlobalsAndPackages() ... 1566s [00:52:46.410] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1566s [00:52:46.411] Resolving globals: FALSE 1566s [00:52:46.411] Tweak future expression to call with '...' arguments ... 1566s [00:52:46.411] { 1566s [00:52:46.411] do.call(function(...) { 1566s [00:52:46.411] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1566s [00:52:46.411] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1566s [00:52:46.411] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1566s [00:52:46.411] on.exit(options(oopts), add = TRUE) 1566s [00:52:46.411] } 1566s [00:52:46.411] { 1566s [00:52:46.411] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1566s [00:52:46.411] ...future.X_jj <- ...future.elements_ii[[jj]] 1566s [00:52:46.411] assign(".Random.seed", ...future.seeds_ii[[jj]], 1566s [00:52:46.411] envir = globalenv(), inherits = FALSE) 1566s [00:52:46.411] ...future.FUN(...future.X_jj, ...) 1566s [00:52:46.411] }) 1566s [00:52:46.411] } 1566s [00:52:46.411] }, args = future.call.arguments) 1566s [00:52:46.411] } 1566s [00:52:46.411] Tweak future expression to call with '...' arguments ... DONE 1566s [00:52:46.412] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1566s [00:52:46.412] 1566s [00:52:46.412] getGlobalsAndPackages() ... DONE 1566s [00:52:46.413] run() for ‘Future’ ... 1566s [00:52:46.413] - state: ‘created’ 1566s [00:52:46.413] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1566s [00:52:46.414] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1566s [00:52:46.414] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1566s [00:52:46.416] - Field: ‘label’ 1566s [00:52:46.416] - Field: ‘local’ 1566s [00:52:46.416] - Field: ‘owner’ 1566s [00:52:46.416] - Field: ‘envir’ 1566s [00:52:46.417] - Field: ‘packages’ 1566s [00:52:46.417] - Field: ‘gc’ 1566s [00:52:46.417] - Field: ‘conditions’ 1566s [00:52:46.417] - Field: ‘expr’ 1566s [00:52:46.417] - Field: ‘uuid’ 1566s [00:52:46.418] - Field: ‘seed’ 1566s [00:52:46.418] - Field: ‘version’ 1566s [00:52:46.418] - Field: ‘result’ 1566s [00:52:46.418] - Field: ‘asynchronous’ 1566s [00:52:46.419] - Field: ‘calls’ 1566s [00:52:46.419] - Field: ‘globals’ 1566s [00:52:46.419] - Field: ‘stdout’ 1566s [00:52:46.419] - Field: ‘earlySignal’ 1566s [00:52:46.419] - Field: ‘lazy’ 1566s [00:52:46.419] - Field: ‘state’ 1566s [00:52:46.420] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1566s [00:52:46.420] - Launch lazy future ... 1566s [00:52:46.420] Packages needed by the future expression (n = 0): 1566s [00:52:46.421] Packages needed by future strategies (n = 0): 1566s [00:52:46.421] { 1566s [00:52:46.421] { 1566s [00:52:46.421] { 1566s [00:52:46.421] ...future.startTime <- base::Sys.time() 1566s [00:52:46.421] { 1566s [00:52:46.421] { 1566s [00:52:46.421] { 1566s [00:52:46.421] base::local({ 1566s [00:52:46.421] has_future <- base::requireNamespace("future", 1566s [00:52:46.421] quietly = TRUE) 1566s [00:52:46.421] if (has_future) { 1566s [00:52:46.421] ns <- base::getNamespace("future") 1566s [00:52:46.421] version <- ns[[".package"]][["version"]] 1566s [00:52:46.421] if (is.null(version)) 1566s [00:52:46.421] version <- utils::packageVersion("future") 1566s [00:52:46.421] } 1566s [00:52:46.421] else { 1566s [00:52:46.421] version <- NULL 1566s [00:52:46.421] } 1566s [00:52:46.421] if (!has_future || version < "1.8.0") { 1566s [00:52:46.421] info <- base::c(r_version = base::gsub("R version ", 1566s [00:52:46.421] "", base::R.version$version.string), 1566s [00:52:46.421] platform = base::sprintf("%s (%s-bit)", 1566s [00:52:46.421] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1566s [00:52:46.421] os = base::paste(base::Sys.info()[base::c("sysname", 1566s [00:52:46.421] "release", "version")], collapse = " "), 1566s [00:52:46.421] hostname = base::Sys.info()[["nodename"]]) 1566s [00:52:46.421] info <- base::sprintf("%s: %s", base::names(info), 1566s [00:52:46.421] info) 1566s [00:52:46.421] info <- base::paste(info, collapse = "; ") 1566s [00:52:46.421] if (!has_future) { 1566s [00:52:46.421] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1566s [00:52:46.421] info) 1566s [00:52:46.421] } 1566s [00:52:46.421] else { 1566s [00:52:46.421] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1566s [00:52:46.421] info, version) 1566s [00:52:46.421] } 1566s [00:52:46.421] base::stop(msg) 1566s [00:52:46.421] } 1566s [00:52:46.421] }) 1566s [00:52:46.421] } 1566s [00:52:46.421] options(future.plan = NULL) 1566s [00:52:46.421] Sys.unsetenv("R_FUTURE_PLAN") 1566s [00:52:46.421] future::plan("default", .cleanup = FALSE, .init = FALSE) 1566s [00:52:46.421] } 1566s [00:52:46.421] ...future.workdir <- getwd() 1566s [00:52:46.421] } 1566s [00:52:46.421] ...future.oldOptions <- base::as.list(base::.Options) 1566s [00:52:46.421] ...future.oldEnvVars <- base::Sys.getenv() 1566s [00:52:46.421] } 1566s [00:52:46.421] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1566s [00:52:46.421] future.globals.maxSize = NULL, future.globals.method = NULL, 1566s [00:52:46.421] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1566s [00:52:46.421] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1566s [00:52:46.421] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1566s [00:52:46.421] future.stdout.windows.reencode = NULL, width = 80L) 1566s [00:52:46.421] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1566s [00:52:46.421] base::names(...future.oldOptions)) 1566s [00:52:46.421] } 1566s [00:52:46.421] if (FALSE) { 1566s [00:52:46.421] } 1566s [00:52:46.421] else { 1566s [00:52:46.421] if (TRUE) { 1566s [00:52:46.421] ...future.stdout <- base::rawConnection(base::raw(0L), 1566s [00:52:46.421] open = "w") 1566s [00:52:46.421] } 1566s [00:52:46.421] else { 1566s [00:52:46.421] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1566s [00:52:46.421] windows = "NUL", "/dev/null"), open = "w") 1566s [00:52:46.421] } 1566s [00:52:46.421] base::sink(...future.stdout, type = "output", split = FALSE) 1566s [00:52:46.421] base::on.exit(if (!base::is.null(...future.stdout)) { 1566s [00:52:46.421] base::sink(type = "output", split = FALSE) 1566s [00:52:46.421] base::close(...future.stdout) 1566s [00:52:46.421] }, add = TRUE) 1566s [00:52:46.421] } 1566s [00:52:46.421] ...future.frame <- base::sys.nframe() 1566s [00:52:46.421] ...future.conditions <- base::list() 1566s [00:52:46.421] ...future.rng <- base::globalenv()$.Random.seed 1566s [00:52:46.421] if (FALSE) { 1566s [00:52:46.421] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1566s [00:52:46.421] "...future.value", "...future.globalenv.names", ".Random.seed") 1566s [00:52:46.421] } 1566s [00:52:46.421] ...future.result <- base::tryCatch({ 1566s [00:52:46.421] base::withCallingHandlers({ 1566s [00:52:46.421] ...future.value <- base::withVisible(base::local({ 1566s [00:52:46.421] do.call(function(...) { 1566s [00:52:46.421] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1566s [00:52:46.421] if (!identical(...future.globals.maxSize.org, 1566s [00:52:46.421] ...future.globals.maxSize)) { 1566s [00:52:46.421] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1566s [00:52:46.421] on.exit(options(oopts), add = TRUE) 1566s [00:52:46.421] } 1566s [00:52:46.421] { 1566s [00:52:46.421] lapply(seq_along(...future.elements_ii), 1566s [00:52:46.421] FUN = function(jj) { 1566s [00:52:46.421] ...future.X_jj <- ...future.elements_ii[[jj]] 1566s [00:52:46.421] assign(".Random.seed", ...future.seeds_ii[[jj]], 1566s [00:52:46.421] envir = globalenv(), inherits = FALSE) 1566s [00:52:46.421] ...future.FUN(...future.X_jj, ...) 1566s [00:52:46.421] }) 1566s [00:52:46.421] } 1566s [00:52:46.421] }, args = future.call.arguments) 1566s [00:52:46.421] })) 1566s [00:52:46.421] future::FutureResult(value = ...future.value$value, 1566s [00:52:46.421] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1566s [00:52:46.421] ...future.rng), globalenv = if (FALSE) 1566s [00:52:46.421] list(added = base::setdiff(base::names(base::.GlobalEnv), 1566s [00:52:46.421] ...future.globalenv.names)) 1566s [00:52:46.421] else NULL, started = ...future.startTime, version = "1.8") 1566s [00:52:46.421] }, condition = base::local({ 1566s [00:52:46.421] c <- base::c 1566s [00:52:46.421] inherits <- base::inherits 1566s [00:52:46.421] invokeRestart <- base::invokeRestart 1566s [00:52:46.421] length <- base::length 1566s [00:52:46.421] list <- base::list 1566s [00:52:46.421] seq.int <- base::seq.int 1566s [00:52:46.421] signalCondition <- base::signalCondition 1566s [00:52:46.421] sys.calls <- base::sys.calls 1566s [00:52:46.421] `[[` <- base::`[[` 1566s [00:52:46.421] `+` <- base::`+` 1566s [00:52:46.421] `<<-` <- base::`<<-` 1566s [00:52:46.421] sysCalls <- function(calls = sys.calls(), from = 1L) { 1566s [00:52:46.421] calls[seq.int(from = from + 12L, to = length(calls) - 1566s [00:52:46.421] 3L)] 1566s [00:52:46.421] } 1566s [00:52:46.421] function(cond) { 1566s [00:52:46.421] is_error <- inherits(cond, "error") 1566s [00:52:46.421] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1566s [00:52:46.421] NULL) 1566s [00:52:46.421] if (is_error) { 1566s [00:52:46.421] sessionInformation <- function() { 1566s [00:52:46.421] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1566s [00:52:46.421] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1566s [00:52:46.421] search = base::search(), system = base::Sys.info()) 1566s [00:52:46.421] } 1566s [00:52:46.421] ...future.conditions[[length(...future.conditions) + 1566s [00:52:46.421] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1566s [00:52:46.421] cond$call), session = sessionInformation(), 1566s [00:52:46.421] timestamp = base::Sys.time(), signaled = 0L) 1566s [00:52:46.421] signalCondition(cond) 1566s [00:52:46.421] } 1566s [00:52:46.421] else if (!ignore && TRUE && inherits(cond, c("condition", 1566s [00:52:46.421] "immediateCondition"))) { 1566s [00:52:46.421] signal <- TRUE && inherits(cond, "immediateCondition") 1566s [00:52:46.421] ...future.conditions[[length(...future.conditions) + 1566s [00:52:46.421] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1566s [00:52:46.421] if (TRUE && !signal) { 1566s [00:52:46.421] muffleCondition <- function (cond, pattern = "^muffle") 1566s [00:52:46.421] { 1566s [00:52:46.421] inherits <- base::inherits 1566s [00:52:46.421] invokeRestart <- base::invokeRestart 1566s [00:52:46.421] is.null <- base::is.null 1566s [00:52:46.421] muffled <- FALSE 1566s [00:52:46.421] if (inherits(cond, "message")) { 1566s [00:52:46.421] muffled <- grepl(pattern, "muffleMessage") 1566s [00:52:46.421] if (muffled) 1566s [00:52:46.421] invokeRestart("muffleMessage") 1566s [00:52:46.421] } 1566s [00:52:46.421] else if (inherits(cond, "warning")) { 1566s [00:52:46.421] muffled <- grepl(pattern, "muffleWarning") 1566s [00:52:46.421] if (muffled) 1566s [00:52:46.421] invokeRestart("muffleWarning") 1566s [00:52:46.421] } 1566s [00:52:46.421] else if (inherits(cond, "condition")) { 1566s [00:52:46.421] if (!is.null(pattern)) { 1566s [00:52:46.421] computeRestarts <- base::computeRestarts 1566s [00:52:46.421] grepl <- base::grepl 1566s [00:52:46.421] restarts <- computeRestarts(cond) 1566s [00:52:46.421] for (restart in restarts) { 1566s [00:52:46.421] name <- restart$name 1566s [00:52:46.421] if (is.null(name)) 1566s [00:52:46.421] next 1566s [00:52:46.421] if (!grepl(pattern, name)) 1566s [00:52:46.421] next 1566s [00:52:46.421] invokeRestart(restart) 1566s [00:52:46.421] muffled <- TRUE 1566s [00:52:46.421] break 1566s [00:52:46.421] } 1566s [00:52:46.421] } 1566s [00:52:46.421] } 1566s [00:52:46.421] invisible(muffled) 1566s [00:52:46.421] } 1566s [00:52:46.421] muffleCondition(cond, pattern = "^muffle") 1566s [00:52:46.421] } 1566s [00:52:46.421] } 1566s [00:52:46.421] else { 1566s [00:52:46.421] if (TRUE) { 1566s [00:52:46.421] muffleCondition <- function (cond, pattern = "^muffle") 1566s [00:52:46.421] { 1566s [00:52:46.421] inherits <- base::inherits 1566s [00:52:46.421] invokeRestart <- base::invokeRestart 1566s [00:52:46.421] is.null <- base::is.null 1566s [00:52:46.421] muffled <- FALSE 1566s [00:52:46.421] if (inherits(cond, "message")) { 1566s [00:52:46.421] muffled <- grepl(pattern, "muffleMessage") 1566s [00:52:46.421] if (muffled) 1566s [00:52:46.421] invokeRestart("muffleMessage") 1566s [00:52:46.421] } 1566s [00:52:46.421] else if (inherits(cond, "warning")) { 1566s [00:52:46.421] muffled <- grepl(pattern, "muffleWarning") 1566s [00:52:46.421] if (muffled) 1566s [00:52:46.421] invokeRestart("muffleWarning") 1566s [00:52:46.421] } 1566s [00:52:46.421] else if (inherits(cond, "condition")) { 1566s [00:52:46.421] if (!is.null(pattern)) { 1566s [00:52:46.421] computeRestarts <- base::computeRestarts 1566s [00:52:46.421] grepl <- base::grepl 1566s [00:52:46.421] restarts <- computeRestarts(cond) 1566s [00:52:46.421] for (restart in restarts) { 1566s [00:52:46.421] name <- restart$name 1566s [00:52:46.421] if (is.null(name)) 1566s [00:52:46.421] next 1566s [00:52:46.421] if (!grepl(pattern, name)) 1566s [00:52:46.421] next 1566s [00:52:46.421] invokeRestart(restart) 1566s [00:52:46.421] muffled <- TRUE 1566s [00:52:46.421] break 1566s [00:52:46.421] } 1566s [00:52:46.421] } 1566s [00:52:46.421] } 1566s [00:52:46.421] invisible(muffled) 1566s [00:52:46.421] } 1566s [00:52:46.421] muffleCondition(cond, pattern = "^muffle") 1566s [00:52:46.421] } 1566s [00:52:46.421] } 1566s [00:52:46.421] } 1566s [00:52:46.421] })) 1566s [00:52:46.421] }, error = function(ex) { 1566s [00:52:46.421] base::structure(base::list(value = NULL, visible = NULL, 1566s [00:52:46.421] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1566s [00:52:46.421] ...future.rng), started = ...future.startTime, 1566s [00:52:46.421] finished = Sys.time(), session_uuid = NA_character_, 1566s [00:52:46.421] version = "1.8"), class = "FutureResult") 1566s [00:52:46.421] }, finally = { 1566s [00:52:46.421] if (!identical(...future.workdir, getwd())) 1566s [00:52:46.421] setwd(...future.workdir) 1566s [00:52:46.421] { 1566s [00:52:46.421] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1566s [00:52:46.421] ...future.oldOptions$nwarnings <- NULL 1566s [00:52:46.421] } 1566s [00:52:46.421] base::options(...future.oldOptions) 1566s [00:52:46.421] if (.Platform$OS.type == "windows") { 1566s [00:52:46.421] old_names <- names(...future.oldEnvVars) 1566s [00:52:46.421] envs <- base::Sys.getenv() 1566s [00:52:46.421] names <- names(envs) 1566s [00:52:46.421] common <- intersect(names, old_names) 1566s [00:52:46.421] added <- setdiff(names, old_names) 1566s [00:52:46.421] removed <- setdiff(old_names, names) 1566s [00:52:46.421] changed <- common[...future.oldEnvVars[common] != 1566s [00:52:46.421] envs[common]] 1566s [00:52:46.421] NAMES <- toupper(changed) 1566s [00:52:46.421] args <- list() 1566s [00:52:46.421] for (kk in seq_along(NAMES)) { 1566s [00:52:46.421] name <- changed[[kk]] 1566s [00:52:46.421] NAME <- NAMES[[kk]] 1566s [00:52:46.421] if (name != NAME && is.element(NAME, old_names)) 1566s [00:52:46.421] next 1566s [00:52:46.421] args[[name]] <- ...future.oldEnvVars[[name]] 1566s [00:52:46.421] } 1566s [00:52:46.421] NAMES <- toupper(added) 1566s [00:52:46.421] for (kk in seq_along(NAMES)) { 1566s [00:52:46.421] name <- added[[kk]] 1566s [00:52:46.421] NAME <- NAMES[[kk]] 1566s [00:52:46.421] if (name != NAME && is.element(NAME, old_names)) 1566s [00:52:46.421] next 1566s [00:52:46.421] args[[name]] <- "" 1566s [00:52:46.421] } 1566s [00:52:46.421] NAMES <- toupper(removed) 1566s [00:52:46.421] for (kk in seq_along(NAMES)) { 1566s [00:52:46.421] name <- removed[[kk]] 1566s [00:52:46.421] NAME <- NAMES[[kk]] 1566s [00:52:46.421] if (name != NAME && is.element(NAME, old_names)) 1566s [00:52:46.421] next 1566s [00:52:46.421] args[[name]] <- ...future.oldEnvVars[[name]] 1566s [00:52:46.421] } 1566s [00:52:46.421] if (length(args) > 0) 1566s [00:52:46.421] base::do.call(base::Sys.setenv, args = args) 1566s [00:52:46.421] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1566s [00:52:46.421] } 1566s [00:52:46.421] else { 1566s [00:52:46.421] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1566s [00:52:46.421] } 1566s [00:52:46.421] { 1566s [00:52:46.421] if (base::length(...future.futureOptionsAdded) > 1566s [00:52:46.421] 0L) { 1566s [00:52:46.421] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1566s [00:52:46.421] base::names(opts) <- ...future.futureOptionsAdded 1566s [00:52:46.421] base::options(opts) 1566s [00:52:46.421] } 1566s [00:52:46.421] { 1566s [00:52:46.421] { 1566s [00:52:46.421] base::assign(".Random.seed", c(10403L, 6L, 1566s [00:52:46.421] 133210212L, 1945833034L, 115858357L, -364452081L, 1566s [00:52:46.421] -390319082L, 926195392L, 2057013379L, -803887967L, 1566s [00:52:46.421] -1078998384L, 705296750L, -1682614503L, 830917547L, 1566s [00:52:46.421] -331376230L, 1352842588L, 1960957023L, 1997081653L, 1566s [00:52:46.421] 374446028L, 1510359842L, 1146109309L, -1295266185L, 1566s [00:52:46.421] -1545472098L, 1268700760L, 1627111355L, -855092903L, 1566s [00:52:46.421] -215790872L, -1958931690L, 1906054289L, -782874301L, 1566s [00:52:46.421] -399096750L, -1740777756L, 1763676455L, -832683651L, 1566s [00:52:46.421] 1369376884L, 430697050L, 1699587749L, -1503628097L, 1566s [00:52:46.421] 856180550L, -242424368L, -2127251469L, 505777937L, 1566s [00:52:46.421] 257347392L, -856180962L, 886024169L, -1464480485L, 1566s [00:52:46.421] -1512233174L, -1985955764L, -425390065L, 1566s [00:52:46.421] -589669563L, 381897980L, -790840494L, 1136483533L, 1566s [00:52:46.421] -1535370105L, -607934610L, 1641470280L, -1050403509L, 1566s [00:52:46.421] 1965932713L, 362996216L, 1596838182L, -1829498303L, 1566s [00:52:46.421] -1824465965L, 1872669058L, -417374796L, -1713346249L, 1566s [00:52:46.421] 1818328109L, -1284085436L, -1981489558L, 1566s [00:52:46.421] 1940543701L, 1673049711L, -1514495114L, 467096736L, 1566s [00:52:46.421] 943410531L, -1431020031L, 1115626864L, 965475598L, 1566s [00:52:46.421] -1718567047L, -793788661L, -1133789126L, 1566s [00:52:46.421] -80588996L, 2018258047L, 1866186709L, 42791404L, 1566s [00:52:46.421] -1823521982L, -1345991523L, -1672661737L, 1566s [00:52:46.421] -180777858L, -452713416L, 1448313627L, -1459492743L, 1566s [00:52:46.421] -600706872L, -909649674L, -2081822415L, -1697455773L, 1566s [00:52:46.421] 1517613874L, -820020092L, 188336327L, -1149897827L, 1566s [00:52:46.421] -475203820L, -368005702L, 204442629L, 437854687L, 1566s [00:52:46.421] 1163191398L, -760699920L, 104455443L, 819708593L, 1566s [00:52:46.421] 1129180512L, 48636670L, 1066049161L, 398150075L, 1566s [00:52:46.421] -852036726L, -906028436L, -1265740817L, -1824646107L, 1566s [00:52:46.421] -2126068516L, 1815435954L, -146408019L, -860012185L, 1566s [00:52:46.421] -682500466L, 1443186536L, 1789394795L, -1078204151L, 1566s [00:52:46.421] 809467800L, 1514112710L, -1097673695L, 919601331L, 1566s [00:52:46.421] -331916766L, 795008020L, 1042337943L, -371219827L, 1566s [00:52:46.421] 1558967204L, 1563528586L, -2133607947L, -1904454577L, 1566s [00:52:46.421] -264006826L, 770017792L, 153477955L, 1189667553L, 1566s [00:52:46.421] -363253680L, 1882362030L, 967246937L, -793119637L, 1566s [00:52:46.421] -1401964070L, 2129232540L, -542810977L, -1277899019L, 1566s [00:52:46.421] -377097332L, -406748574L, -1722157507L, -1577740105L, 1566s [00:52:46.421] -455170210L, 372239000L, -1535936005L, -1332632679L, 1566s [00:52:46.421] -1623884760L, -359633706L, 935827793L, 1357445123L, 1566s [00:52:46.421] 997040018L, -1506538204L, -147930137L, -166569923L, 1566s [00:52:46.421] -2103753036L, 1366641946L, 30482021L, 1876964095L, 1566s [00:52:46.421] 2008557446L, 657856784L, -103814733L, 774877777L, 1566s [00:52:46.421] -486350336L, -555057442L, -1821756119L, -963495717L, 1566s [00:52:46.421] 853311466L, 1671241612L, -942337841L, 409538693L, 1566s [00:52:46.421] 1992831804L, 489867794L, 357105933L, -1611412921L, 1566s [00:52:46.421] -1119334354L, -1521015416L, -2041922421L, 1566s [00:52:46.421] 2048874089L, -700216776L, 1651628774L, -10471807L, 1566s [00:52:46.421] 736942611L, 380607938L, -1742088588L, 1124231287L, 1566s [00:52:46.421] 1232111981L, -1801753084L, -1608606422L, 1566s [00:52:46.421] -1172096363L, 1420874031L, -1210473418L, 1566s [00:52:46.421] -18317216L, -571709789L, 1107403201L, 1952554416L, 1566s [00:52:46.421] 1991660750L, -442973639L, 581522507L, -430787078L, 1566s [00:52:46.421] 1105375484L, -1481218753L, -748152299L, -641535700L, 1566s [00:52:46.421] 679371266L, -591318819L, -104578089L, -172818754L, 1566s [00:52:46.421] -1321694984L, -98191653L, 1709083961L, -344680312L, 1566s [00:52:46.421] -159571914L, 581309553L, -63938909L, 76420082L, 1566s [00:52:46.421] 951019332L, -1797740537L, 1291470301L, -2079866156L, 1566s [00:52:46.421] -332493318L, -1978392251L, -1691039632L, 1566s [00:52:46.421] 388791868L, -1101109484L, -1365177662L, 321737440L, 1566s [00:52:46.421] 1812890748L, -133313328L, -1252731998L, 2044530216L, 1566s [00:52:46.421] 1263927564L, 325388220L, 520794418L, 1449646272L, 1566s [00:52:46.421] 87560756L, -87565624L, 426345146L, -699970416L, 1566s [00:52:46.421] 240322284L, -1074080172L, -1536268654L, 1338615584L, 1566s [00:52:46.421] 478476236L, -1933154080L, -192786750L, 1559942184L, 1566s [00:52:46.421] -1178330196L, -687617348L, -1701912078L, 1566s [00:52:46.421] 352314928L, -999229532L, -2052800072L, -1913644198L, 1566s [00:52:46.421] -1345416048L, 1816730492L, -1570431212L, 1566s [00:52:46.421] -269427390L, -2122969344L, -520963140L, 1398087504L, 1566s [00:52:46.421] 264692002L, -1682658744L, -1422452724L, -1601893284L, 1566s [00:52:46.421] -66383406L, 1443075584L, -456249004L, 943694056L, 1566s [00:52:46.421] -1493184262L, -1943836976L, -590788308L, 1566s [00:52:46.421] -405505804L, -1796837998L, 1991543136L, 1170376716L, 1566s [00:52:46.421] 1707420384L, 1899700834L, -1643595096L, 47299148L, 1566s [00:52:46.421] 1274857340L, -1205842638L, -1938479504L, 1566s [00:52:46.421] -1773978812L, 532695000L, 1306451834L, 258403888L, 1566s [00:52:46.421] -284747844L, -1780705708L, 1621936194L, 1129070752L, 1566s [00:52:46.421] 540946108L, -294270512L, -1426480286L, -356302104L, 1566s [00:52:46.421] 349847756L, 1849803260L, -1299125774L, 511654528L, 1566s [00:52:46.421] -1259964940L, -1879857528L, 535666490L, -2020097200L, 1566s [00:52:46.421] -1460751252L, 1201879444L, -1459788718L, 1566s [00:52:46.421] 447195616L, -730891060L, -1875530592L, -2146183806L, 1566s [00:52:46.421] 193274088L, -1224605972L, 1616153916L, -1896973198L, 1566s [00:52:46.421] -420945808L, -1997735900L, -1838404552L, 1566s [00:52:46.421] -413698278L, 1984019664L, -1760209092L, -1288743020L, 1566s [00:52:46.421] 392579970L, -1382567488L, -1295004100L, -33348208L, 1566s [00:52:46.421] 1536615970L, -428761848L, 643368588L, -1596336356L, 1566s [00:52:46.421] 1797431442L, 352422272L, -1043800556L, 60591912L, 1566s [00:52:46.421] -1115663814L, 1043682768L, 521144684L, 4793268L, 1566s [00:52:46.421] -1924265966L, 978890208L, 370048972L, -1607474976L, 1566s [00:52:46.421] -1443637214L, -632405720L, 691912204L, 166321980L, 1566s [00:52:46.421] 942193650L, 751741680L, 689743428L, -18455976L, 1566s [00:52:46.421] -1946329286L, -1619184144L, 239341244L, 371382548L, 1566s [00:52:46.421] -2069808446L, 154176608L, 385987452L, -385611824L, 1566s [00:52:46.421] 1967391010L, 2140654248L, 1720087436L, -1591007044L, 1566s [00:52:46.421] -1612486862L, 1295747648L, 1726784692L, 597326408L, 1566s [00:52:46.421] -973152838L, 628505104L, -1089631508L, 3230036L, 1566s [00:52:46.421] -593837806L, 244006304L, 1357912780L, 1839234656L, 1566s [00:52:46.421] -1357570110L, 1896595240L, -2066952276L, 1566s [00:52:46.421] -1724304580L, 986188146L, -1200604368L, -279100124L, 1566s [00:52:46.421] 131128120L, -1088465190L, 596533136L, 170602236L, 1566s [00:52:46.421] -1051262060L, 215660610L, -686217984L, 444449852L, 1566s [00:52:46.421] 769655120L, 236357794L, 181393736L, -13334772L, 1566s [00:52:46.421] 644690652L, -1969263278L, -2107982720L, 1429553236L, 1566s [00:52:46.421] 794236904L, 1997299962L, -458224816L, 904978220L, 1566s [00:52:46.421] -537093772L, -842839150L, 1828989024L, -679303796L, 1566s [00:52:46.421] 1396292448L, 76319202L, 1896098728L, 418430156L, 1566s [00:52:46.421] 2005956604L, 1370351026L, -1178923536L, -1154073660L, 1566s [00:52:46.421] -1218863784L, 89928058L, 816597936L, -1141767748L, 1566s [00:52:46.421] 1579714644L, 1343385538L, 371259424L, -245180228L, 1566s [00:52:46.421] 365724240L, 1606388706L, -823678872L, 1281309772L, 1566s [00:52:46.421] 1395210492L, 1217887218L, 1420531968L, 1349501300L, 1566s [00:52:46.421] 271647752L, -69959750L, 360452560L, 1565334508L, 1566s [00:52:46.421] 1956526484L, -930709038L, 1961808224L, -1745916084L, 1566s [00:52:46.421] 443656480L, 1990137730L, 694374120L, -1050566420L, 1566s [00:52:46.421] -1365842884L, -438961294L, -1851472272L, 1566s [00:52:46.421] 614534180L, 1401930552L, 3652762L, 1928284880L, 1566s [00:52:46.421] -1637703492L, 26107540L, -132725907L, -371944998L, 1566s [00:52:46.421] -1311388776L, 8516097L, 741008307L, -1149566252L, 1566s [00:52:46.421] -1802640414L, 2019636855L, 1587818433L, -151040698L, 1566s [00:52:46.421] 1598381188L, -205462987L, 1911327L, -1382519432L, 1566s [00:52:46.421] -594809770L, -2146766621L, -2013964635L, 1566s [00:52:46.421] -965534910L, -2077626064L, 1964788057L, 1821395659L, 1566s [00:52:46.421] -1953549508L, -719348886L, 1442511263L, 1969287209L, 1566s [00:52:46.421] 1754221246L, -442299476L, 1981692157L, 113456199L, 1566s [00:52:46.421] 1587794736L, -1811033010L, 1149417595L, -1760887843L, 1566s [00:52:46.421] -1426021878L, -1285634264L, 1507547537L, 1566s [00:52:46.421] -1114120317L, 1897370756L, 1142575794L, -375814649L, 1566s [00:52:46.421] -1661041071L, 881081814L, -548925260L, 2073840837L, 1566s [00:52:46.421] 1156484623L, 2011334280L, 1107815334L, 969024339L, 1566s [00:52:46.421] -55972683L, 2006780434L, -1486403616L, 1698650697L, 1566s [00:52:46.421] 1813794939L, -1717763764L, 1268815066L, -1200630577L, 1566s [00:52:46.421] -773717863L, -12215122L, 1354639804L, 1213207085L, 1566s [00:52:46.421] -978295337L, 340143136L, 485429630L, -568148149L, 1566s [00:52:46.421] 1257440589L, 930106234L, -883274312L, -1632538783L, 1566s [00:52:46.421] 894748435L, -1592959180L, -596177598L, 120963415L, 1566s [00:52:46.421] -1174532959L, -561474202L, 1438545764L, 1429911189L, 1566s [00:52:46.421] 1075965887L, 367866712L, -892333706L, -485158013L, 1566s [00:52:46.421] -682634811L, 963344098L, 2110199632L, 1990767225L, 1566s [00:52:46.421] 1348335019L, 269581084L, -2040640438L, 1453561919L, 1566s [00:52:46.421] 853952649L, 1195494558L, 1614051660L, 2040242461L, 1566s [00:52:46.421] -1604604761L, 1421229008L, -1268333714L, 1566s [00:52:46.421] 174113307L, 2044969853L, 190112106L, -998776824L, 1566s [00:52:46.421] -2070476623L, -2099222749L, 1141171236L, 1566s [00:52:46.421] -146426158L, -1797385433L, -1129376399L, 1566s [00:52:46.421] -1496589386L, -419561644L, -613549595L, 1243456495L, 1566s [00:52:46.421] 451212072L, 1923543942L, 1146113971L, 93579029L, 1566s [00:52:46.421] -397504142L, 597218752L, 459048489L, 1447221915L, 1566s [00:52:46.421] -272948372L, -373834886L, 934888623L, -2099351623L, 1566s [00:52:46.421] -1672042034L, 193924380L, -704518003L, 781993207L, 1566s [00:52:46.421] -258875392L, -1853783458L, 1315003691L, -41214419L, 1566s [00:52:46.421] -59447654L, 1203745368L, 426003905L, 452670067L, 1566s [00:52:46.421] -1092079724L, -1765622238L, -1882554057L, 1566s [00:52:46.421] 1278087169L, -1994822394L, -124954300L, 1994460277L, 1566s [00:52:46.421] 1816829407L, -1568282312L, 1563616022L, 1255996195L, 1566s [00:52:46.421] 1702121701L, 1784032514L, 1842995056L, 748060441L, 1566s [00:52:46.421] 1432229643L, -1905232900L, 2016890922L, 1403944031L, 1566s [00:52:46.421] 351712233L, 1338932478L, -1359366932L, -803018691L, 1566s [00:52:46.421] -1551885305L, 248629232L, 1839395726L, 1411789243L, 1566s [00:52:46.421] 840085405L, -1849000630L, -669518488L, -1453417647L, 1566s [00:52:46.421] -1527179197L, -377159356L, 1674525170L, -313742393L, 1566s [00:52:46.421] 865377681L, -1127426242L), envir = base::globalenv(), 1566s [00:52:46.421] inherits = FALSE) 1566s [00:52:46.421] NULL 1566s [00:52:46.421] } 1566s [00:52:46.421] options(future.plan = NULL) 1566s [00:52:46.421] if (is.na(NA_character_)) 1566s [00:52:46.421] Sys.unsetenv("R_FUTURE_PLAN") 1566s [00:52:46.421] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1566s [00:52:46.421] future::plan(list(function (..., envir = parent.frame()) 1566s [00:52:46.421] { 1566s [00:52:46.421] future <- SequentialFuture(..., envir = envir) 1566s [00:52:46.421] if (!future$lazy) 1566s [00:52:46.421] future <- run(future) 1566s [00:52:46.421] invisible(future) 1566s [00:52:46.421] }), .cleanup = FALSE, .init = FALSE) 1566s [00:52:46.421] } 1566s [00:52:46.421] } 1566s [00:52:46.421] } 1566s [00:52:46.421] }) 1566s [00:52:46.421] if (TRUE) { 1566s [00:52:46.421] base::sink(type = "output", split = FALSE) 1566s [00:52:46.421] if (TRUE) { 1566s [00:52:46.421] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1566s [00:52:46.421] } 1566s [00:52:46.421] else { 1566s [00:52:46.421] ...future.result["stdout"] <- base::list(NULL) 1566s [00:52:46.421] } 1566s [00:52:46.421] base::close(...future.stdout) 1566s [00:52:46.421] ...future.stdout <- NULL 1566s [00:52:46.421] } 1566s [00:52:46.421] ...future.result$conditions <- ...future.conditions 1566s [00:52:46.421] ...future.result$finished <- base::Sys.time() 1566s [00:52:46.421] ...future.result 1566s [00:52:46.421] } 1566s [00:52:46.428] assign_globals() ... 1566s [00:52:46.428] List of 5 1566s [00:52:46.428] $ ...future.FUN :function (...) 1566s [00:52:46.428] $ future.call.arguments : list() 1566s [00:52:46.428] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1566s [00:52:46.428] $ ...future.elements_ii :List of 5 1566s [00:52:46.428] ..$ : int 0 1566s [00:52:46.428] ..$ : int 0 1566s [00:52:46.428] ..$ : int 0 1566s [00:52:46.428] ..$ : int 0 1566s [00:52:46.428] ..$ : int 0 1566s [00:52:46.428] $ ...future.seeds_ii :List of 5 1566s [00:52:46.428] ..$ : int [1:7] 10407 1242173061 -1150840343 -834448425 701050094 -1369558043 -650964284 1566s [00:52:46.428] ..$ : int [1:7] 10407 859061261 1088872332 -1371790091 -942478768 -889560561 1393381402 1566s [00:52:46.428] ..$ : int [1:7] 10407 -1977952646 362645338 -1927542548 -742448269 -2030870718 1472975712 1566s [00:52:46.428] ..$ : int [1:7] 10407 -781199300 -1470244364 -1435938985 -1154922760 795337516 2089908040 1566s [00:52:46.428] ..$ : int [1:7] 10407 -1281561623 1745663508 -502066495 1003795914 -1805763079 -205768335 1566s [00:52:46.428] $ ...future.globals.maxSize: NULL 1566s [00:52:46.428] - attr(*, "where")=List of 5 1566s [00:52:46.428] ..$ ...future.FUN : 1566s [00:52:46.428] ..$ future.call.arguments : 1566s [00:52:46.428] ..$ ...future.elements_ii : 1566s [00:52:46.428] ..$ ...future.seeds_ii : 1566s [00:52:46.428] ..$ ...future.globals.maxSize: 1566s [00:52:46.428] - attr(*, "resolved")= logi FALSE 1566s [00:52:46.428] - attr(*, "total_size")= num 616 1566s [00:52:46.428] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1566s [00:52:46.428] - attr(*, "already-done")= logi TRUE 1566s [00:52:46.439] - reassign environment for ‘...future.FUN’ 1566s [00:52:46.439] - copied ‘...future.FUN’ to environment 1566s [00:52:46.439] - copied ‘future.call.arguments’ to environment 1566s [00:52:46.439] - copied ‘...future.elements_ii’ to environment 1566s [00:52:46.440] - copied ‘...future.seeds_ii’ to environment 1566s [00:52:46.440] - copied ‘...future.globals.maxSize’ to environment 1566s [00:52:46.440] assign_globals() ... done 1566s [00:52:46.441] plan(): Setting new future strategy stack: 1566s [00:52:46.441] List of future strategies: 1566s [00:52:46.441] 1. sequential: 1566s [00:52:46.441] - args: function (..., envir = parent.frame()) 1566s [00:52:46.441] - tweaked: FALSE 1566s [00:52:46.441] - call: NULL 1566s [00:52:46.442] plan(): nbrOfWorkers() = 1 1566s [00:52:46.442] plan(): Setting new future strategy stack: 1566s [00:52:46.442] List of future strategies: 1566s [00:52:46.442] 1. sequential: 1566s [00:52:46.442] - args: function (..., envir = parent.frame()) 1566s [00:52:46.442] - tweaked: FALSE 1566s [00:52:46.442] - call: plan(strategy) 1566s [00:52:46.443] plan(): nbrOfWorkers() = 1 1566s [00:52:46.443] SequentialFuture started (and completed) 1566s [00:52:46.444] - Launch lazy future ... done 1566s [00:52:46.444] run() for ‘SequentialFuture’ ... done 1566s [00:52:46.444] Created future: 1566s [00:52:46.444] SequentialFuture: 1566s [00:52:46.444] Label: ‘future_replicate-1’ 1566s [00:52:46.444] Expression: 1566s [00:52:46.444] { 1566s [00:52:46.444] do.call(function(...) { 1566s [00:52:46.444] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1566s [00:52:46.444] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1566s [00:52:46.444] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1566s [00:52:46.444] on.exit(options(oopts), add = TRUE) 1566s [00:52:46.444] } 1566s [00:52:46.444] { 1566s [00:52:46.444] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1566s [00:52:46.444] ...future.X_jj <- ...future.elements_ii[[jj]] 1566s [00:52:46.444] assign(".Random.seed", ...future.seeds_ii[[jj]], 1566s [00:52:46.444] envir = globalenv(), inherits = FALSE) 1566s [00:52:46.444] ...future.FUN(...future.X_jj, ...) 1566s [00:52:46.444] }) 1566s [00:52:46.444] } 1566s [00:52:46.444] }, args = future.call.arguments) 1566s [00:52:46.444] } 1566s [00:52:46.444] Lazy evaluation: FALSE 1566s [00:52:46.444] Asynchronous evaluation: FALSE 1566s [00:52:46.444] Local evaluation: TRUE 1566s [00:52:46.444] Environment: R_GlobalEnv 1566s [00:52:46.444] Capture standard output: TRUE 1566s [00:52:46.444] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1566s [00:52:46.444] Globals: 5 objects totaling 1.27 KiB (function ‘...future.FUN’ of 616 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 280 bytes, list ‘...future.seeds_ii’ of 400 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1566s [00:52:46.444] Packages: 1566s [00:52:46.444] L'Ecuyer-CMRG RNG seed: (seed = NULL) 1566s [00:52:46.444] Resolved: TRUE 1566s [00:52:46.444] Value: 280 bytes of class ‘list’ 1566s [00:52:46.444] Early signaling: FALSE 1566s [00:52:46.444] Owner process: 50289bf5-8c9f-f501-15c6-3ca1fa8d82cf 1566s [00:52:46.444] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1566s [00:52:46.446] Chunk #1 of 1 ... DONE 1566s [00:52:46.446] Launching 1 futures (chunks) ... DONE 1566s [00:52:46.446] Resolving 1 futures (chunks) ... 1566s [00:52:46.446] resolve() on list ... 1566s [00:52:46.446] recursive: 0 1566s [00:52:46.446] length: 1 1566s [00:52:46.447] 1566s [00:52:46.447] resolved() for ‘SequentialFuture’ ... 1566s [00:52:46.447] - state: ‘finished’ 1566s [00:52:46.447] - run: TRUE 1566s [00:52:46.447] - result: ‘FutureResult’ 1566s [00:52:46.447] resolved() for ‘SequentialFuture’ ... done 1566s [00:52:46.448] Future #1 1566s [00:52:46.448] signalConditionsASAP(SequentialFuture, pos=1) ... 1566s [00:52:46.448] - nx: 1 1566s [00:52:46.448] - relay: TRUE 1566s [00:52:46.448] - stdout: TRUE 1566s [00:52:46.448] - signal: TRUE 1566s [00:52:46.448] - resignal: FALSE 1566s [00:52:46.449] - force: TRUE 1566s [00:52:46.449] - relayed: [n=1] FALSE 1566s [00:52:46.449] - queued futures: [n=1] FALSE 1566s [00:52:46.449] - until=1 1566s [00:52:46.449] - relaying element #1 1566s [00:52:46.449] - relayed: [n=1] TRUE 1566s [00:52:46.450] - queued futures: [n=1] TRUE 1566s [00:52:46.450] signalConditionsASAP(SequentialFuture, pos=1) ... done 1566s [00:52:46.450] length: 0 (resolved future 1) 1566s [00:52:46.450] Relaying remaining futures 1566s [00:52:46.451] signalConditionsASAP(NULL, pos=0) ... 1566s [00:52:46.451] - nx: 1 1566s [00:52:46.451] - relay: TRUE 1566s [00:52:46.451] - stdout: TRUE 1566s [00:52:46.452] - signal: TRUE 1566s [00:52:46.452] - resignal: FALSE 1566s [00:52:46.452] - force: TRUE 1566s [00:52:46.452] - relayed: [n=1] TRUE 1566s [00:52:46.452] - queued futures: [n=1] TRUE 1566s - flush all 1566s [00:52:46.452] - relayed: [n=1] TRUE 1566s [00:52:46.453] - queued futures: [n=1] TRUE 1566s [00:52:46.453] signalConditionsASAP(NULL, pos=0) ... done 1566s [00:52:46.454] resolve() on list ... DONE 1566s [00:52:46.454] - Number of value chunks collected: 1 1566s [00:52:46.454] Resolving 1 futures (chunks) ... DONE 1566s [00:52:46.454] Reducing values from 1 chunks ... 1566s [00:52:46.454] - Number of values collected after concatenation: 5 1566s [00:52:46.454] - Number of values expected: 5 1566s [00:52:46.455] Reducing values from 1 chunks ... DONE 1566s [00:52:46.455] future_lapply() ... DONE 1566s - example(replicate) ... 1566s [00:52:46.456] future_lapply() ... 1566s [00:52:46.457] Generating random seeds ... 1566s [00:52:46.457] Generating random seed streams for 5 elements ... 1566s [00:52:46.458] Generating random seed streams for 5 elements ... DONE 1566s [00:52:46.458] Generating random seeds ... DONE 1566s [00:52:46.458] Will set RNG state on exit: 10403, 8, 133210212, 1945833034, 115858357, -364452081, -390319082, 926195392, 2057013379, -803887967, -1078998384, 705296750, -1682614503, 830917547, -331376230, 1352842588, 1960957023, 1997081653, 374446028, 1510359842, 1146109309, -1295266185, -1545472098, 1268700760, 1627111355, -855092903, -215790872, -1958931690, 1906054289, -782874301, -399096750, -1740777756, 1763676455, -832683651, 1369376884, 430697050, 1699587749, -1503628097, 856180550, -242424368, -2127251469, 505777937, 257347392, -856180962, 886024169, -1464480485, -1512233174, -1985955764, -425390065, -589669563, 381897980, -790840494, 1136483533, -1535370105, -607934610, 1641470280, -1050403509, 1965932713, 362996216, 1596838182, -1829498303, -1824465965, 1872669058, -417374796, -1713346249, 1818328109, -1284085436, -1981489558, 1940543701, 1673049711, -1514495114, 467096736, 943410531, -1431020031, 1115626864, 965475598, -1718567047, -793788661, -1133789126, -80588996, 2018258047, 1866186709, 42791404, -1823521982, -1345991523, -1672661737, -180777858, -452713416, 1448313627, -1459492743, -600706872, -909649674, -2081822415, -1697455773, 1517613874, -820020092, 188336327, -1149897827, -475203820, -368005702, 204442629, 437854687, 1163191398, -760699920, 104455443, 819708593, 1129180512, 48636670, 1066049161, 398150075, -852036726, -906028436, -1265740817, -1824646107, -2126068516, 1815435954, -146408019, -860012185, -682500466, 1443186536, 1789394795, -1078204151, 809467800, 1514112710, -1097673695, 919601331, -331916766, 795008020, 1042337943, -371219827, 1558967204, 1563528586, -2133607947, -1904454577, -264006826, 770017792, 153477955, 1189667553, -363253680, 1882362030, 967246937, -793119637, -1401964070, 2129232540, -542810977, -1277899019, -377097332, -406748574, -1722157507, -1577740105, -455170210, 372239000, -1535936005, -1332632679, -1623884760, -359633706, 935827793, 1357445123, 997040018, -1506538204, -147930137, -166569923, -2103753036, 1366641946, 30482021, 1876964095, 2008557446, 657856784, -103814733, 774877777, -486350336, -555057442, -1821756119, -963495717, 853311466, 1671241612, -942337841, 409538693, 1992831804, 489867794, 357105933, -1611412921, -1119334354, -1521015416, -2041922421, 2048874089, -700216776, 1651628774, -10471807, 736942611, 380607938, -1742088588, 1124231287, 1232111981, -1801753084, -1608606422, -1172096363, 1420874031, -1210473418, -18317216, -571709789, 1107403201, 1952554416, 1991660750, -442973639, 581522507, -430787078, 1105375484, -1481218753, -748152299, -641535700, 679371266, -591318819, -104578089, -172818754, -1321694984, -98191653, 1709083961, -344680312, -159571914, 581309553, -63938909, 76420082, 951019332, -1797740537, 1291470301, -2079866156, -332493318, -1978392251, -1691039632, 388791868, -1101109484, -1365177662, 321737440, 1812890748, -133313328, -1252731998, 2044530216, 1263927564, 325388220, 520794418, 1449646272, 87560756, -87565624, 426345146, -699970416, 240322284, -1074080172, -1536268654, 1338615584, 478476236, -1933154080, -192786750, 1559942184, -1178330196, -687617348, -1701912078, 352314928, -999229532, -2052800072, -1913644198, -1345416048, 1816730492, -1570431212, -269427390, -2122969344, -520963140, 1398087504, 264692002, -1682658744, -1422452724, -1601893284, -66383406, 1443075584, -456249004, 943694056, -1493184262, -1943836976, -590788308, -405505804, -1796837998, 1991543136, 1170376716, 1707420384, 1899700834, -1643595096, 47299148, 1274857340, -1205842638, -1938479504, -1773978812, 532695000, 1306451834, 258403888, -284747844, -1780705708, 1621936194, 1129070752, 540946108, -294270512, -1426480286, -356302104, 349847756, 1849803260, -1299125774, 511654528, -1259964940, -1879857528, 535666490, -2020097200, -1460751252, 1201879444, -1459788718, 447195616, -730891060, -1875530592, -2146183806, 193274088, -1224605972, 1616153916, -1896973198, -420945808, -1997735900, -1838404552, -413698278, 1984019664, -1760209092, -1288743020, 392579970, -1382567488, -1295004100, -33348208, 1536615970, -428761848, 643368588, -1596336356, 1797431442, 352422272, -1043800556, 60591912, -1115663814, 1043682768, 521144684, 4793268, -1924265966, 978890208, 370048972, -1607474976, -1443637214, -632405720, 691912204, 166321980, 942193650, 751741680, 689743428, -18455976, -1946329286, -1619184144, 239341244, 371382548, -2069808446, 154176608, 385987452, -385611824, 1967391010, 2140654248, 1720087436, -1591007044, -1612486862, 1295747648, 1726784692, 597326408, -973152838, 628505104, -1089631508, 3230036, -593837806, 244006304, 1357912780, 1839234656, -1357570110, 1896595240, -2066952276, -1724304580, 986188146, -1200604368, -279100124, 131128120, -1088465190, 596533136, 170602236, -1051262060, 215660610, -686217984, 444449852, 769655120, 236357794, 181393736, -13334772, 644690652, -1969263278, -2107982720, 1429553236, 794236904, 1997299962, -458224816, 904978220, -537093772, -842839150, 1828989024, -679303796, 1396292448, 76319202, 1896098728, 418430156, 2005956604, 1370351026, -1178923536, -1154073660, -1218863784, 89928058, 816597936, -1141767748, 1579714644, 1343385538, 371259424, -245180228, 365724240, 1606388706, -823678872, 1281309772, 1395210492, 1217887218, 1420531968, 1349501300, 271647752, -69959750, 360452560, 1565334508, 1956526484, -930709038, 1961808224, -1745916084, 443656480, 1990137730, 694374120, -1050566420, -1365842884, -438961294, -1851472272, 614534180, 1401930552, 3652762, 1928284880, -1637703492, 26107540, -132725907, -371944998, -1311388776, 8516097, 741008307, -1149566252, -1802640414, 2019636855, 1587818433, -151040698, 1598381188, -205462987, 1911327, -1382519432, -594809770, -2146766621, -2013964635, -965534910, -2077626064, 1964788057, 1821395659, -1953549508, -719348886, 1442511263, 1969287209, 1754221246, -442299476, 1981692157, 113456199, 1587794736, -1811033010, 1149417595, -1760887843, -1426021878, -1285634264, 1507547537, -1114120317, 1897370756, 1142575794, -375814649, -1661041071, 881081814, -548925260, 2073840837, 1156484623, 2011334280, 1107815334, 969024339, -55972683, 2006780434, -1486403616, 1698650697, 1813794939, -1717763764, 1268815066, -1200630577, -773717863, -12215122, 1354639804, 1213207085, -978295337, 340143136, 485429630, -568148149, 1257440589, 930106234, -883274312, -1632538783, 894748435, -1592959180, -596177598, 120963415, -1174532959, -561474202, 1438545764, 1429911189, 1075965887, 367866712, -892333706, -485158013, -682634811, 963344098, 2110199632, 1990767225, 1348335019, 269581084, -2040640438, 1453561919, 853952649, 1195494558, 1614051660, 2040242461, -1604604761, 1421229008, -1268333714, 174113307, 2044969853, 190112106, -998776824, -2070476623, -2099222749, 1141171236, -146426158, -1797385433, -1129376399, -1496589386, -419561644, -613549595, 1243456495, 451212072, 1923543942, 1146113971, 93579029, -397504142, 597218752, 459048489, 1447221915, -272948372, -373834886, 934888623, -2099351623, -1672042034, 193924380, -704518003, 781993207, -258875392, -1853783458, 1315003691, -41214419, -59447654, 1203745368, 426003905, 452670067, -1092079724, -1765622238, -1882554057, 1278087169, -1994822394, -124954300, 1994460277, 1816829407, -1568282312, 1563616022, 1255996195, 1702121701, 1784032514, 1842995056, 748060441, 1432229643, -1905232900, 2016890922, 1403944031, 351712233, 1338932478, -1359366932, -803018691, -1551885305, 248629232, 1839395726, 1411789243, 840085405, -1849000630, -669518488, -1453417647, -1527179197, -377159356, 1674525170, -313742393, 865377681, -1127426242 1566s [00:52:46.459] Number of chunks: 1 1566s [00:52:46.459] getGlobalsAndPackagesXApply() ... 1566s [00:52:46.459] - future.globals: TRUE 1566s [00:52:46.459] getGlobalsAndPackages() ... 1566s [00:52:46.460] Searching for globals... 1566s [00:52:46.467] - globals found: [4] ‘FUN’, ‘foo’, ‘x’, ‘c’ 1566s [00:52:46.467] Searching for globals ... DONE 1566s [00:52:46.467] Resolving globals: FALSE 1566s [00:52:46.468] The total size of the 3 globals is 2.15 KiB (2200 bytes) 1566s [00:52:46.469] The total size of the 3 globals exported for future expression (‘FUN()’) is 2.15 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are three globals: ‘foo’ (1.60 KiB of class ‘function’), ‘FUN’ (504 bytes of class ‘function’) and ‘x’ (56 bytes of class ‘numeric’) 1566s [00:52:46.470] - globals: [3] ‘FUN’, ‘foo’, ‘x’ 1566s [00:52:46.470] 1566s [00:52:46.470] getGlobalsAndPackages() ... DONE 1566s [00:52:46.470] - globals found/used: [n=3] ‘FUN’, ‘foo’, ‘x’ 1566s [00:52:46.470] - needed namespaces: [n=0] 1566s [00:52:46.470] Finding globals ... DONE 1566s [00:52:46.471] - use_args: TRUE 1566s [00:52:46.471] - Getting '...' globals ... 1566s [00:52:46.471] resolve() on list ... 1566s [00:52:46.472] recursive: 0 1566s [00:52:46.472] length: 1 1566s [00:52:46.472] elements: ‘...’ 1566s [00:52:46.472] length: 0 (resolved future 1) 1566s [00:52:46.472] resolve() on list ... DONE 1566s [00:52:46.472] - '...' content: [n=0] 1566s [00:52:46.473] List of 1 1566s [00:52:46.473] $ ...: list() 1566s [00:52:46.473] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1566s [00:52:46.473] - attr(*, "where")=List of 1 1566s [00:52:46.473] ..$ ...: 1566s [00:52:46.473] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1566s [00:52:46.473] - attr(*, "resolved")= logi TRUE 1566s [00:52:46.473] - attr(*, "total_size")= num NA 1566s [00:52:46.477] - Getting '...' globals ... DONE 1566s [00:52:46.477] Globals to be used in all futures (chunks): [n=4] ‘...future.FUN’, ‘foo’, ‘x’, ‘...’ 1566s [00:52:46.477] List of 4 1566s [00:52:46.477] $ ...future.FUN:function (...) 1566s [00:52:46.477] $ foo :function (x = 1, y = 2) 1566s [00:52:46.477] $ x : num 3 1566s [00:52:46.477] $ ... : list() 1566s [00:52:46.477] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1566s [00:52:46.477] - attr(*, "where")=List of 4 1566s [00:52:46.477] ..$ ...future.FUN: 1566s [00:52:46.477] ..$ foo : 1566s [00:52:46.477] ..$ x : 1566s [00:52:46.477] ..$ ... : 1566s [00:52:46.477] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1566s [00:52:46.477] - attr(*, "resolved")= logi FALSE 1566s [00:52:46.477] - attr(*, "total_size")= num 2200 1566s [00:52:46.483] Packages to be attached in all futures: [n=0] 1566s [00:52:46.484] getGlobalsAndPackagesXApply() ... DONE 1566s [00:52:46.484] Number of futures (= number of chunks): 1 1566s [00:52:46.484] Launching 1 futures (chunks) ... 1566s [00:52:46.484] Chunk #1 of 1 ... 1566s [00:52:46.484] - Finding globals in 'X' for chunk #1 ... 1566s [00:52:46.485] getGlobalsAndPackages() ... 1566s [00:52:46.485] Searching for globals... 1566s [00:52:46.485] 1566s [00:52:46.485] Searching for globals ... DONE 1566s [00:52:46.485] - globals: [0] 1566s [00:52:46.486] getGlobalsAndPackages() ... DONE 1566s [00:52:46.486] + additional globals found: [n=0] 1566s [00:52:46.486] + additional namespaces needed: [n=0] 1566s [00:52:46.486] - Finding globals in 'X' for chunk #1 ... DONE 1566s [00:52:46.486] - seeds: [5] 1566s [00:52:46.487] - All globals exported: [n=7] ‘...future.FUN’, ‘foo’, ‘x’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1566s [00:52:46.487] getGlobalsAndPackages() ... 1566s [00:52:46.487] - globals passed as-is: [7] ‘...future.FUN’, ‘foo’, ‘x’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1566s [00:52:46.488] Resolving globals: FALSE 1566s [00:52:46.488] Tweak future expression to call with '...' arguments ... 1566s [00:52:46.488] { 1566s [00:52:46.488] do.call(function(...) { 1566s [00:52:46.488] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1566s [00:52:46.488] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1566s [00:52:46.488] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1566s [00:52:46.488] on.exit(options(oopts), add = TRUE) 1566s [00:52:46.488] } 1566s [00:52:46.488] { 1566s [00:52:46.488] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1566s [00:52:46.488] ...future.X_jj <- ...future.elements_ii[[jj]] 1566s [00:52:46.488] assign(".Random.seed", ...future.seeds_ii[[jj]], 1566s [00:52:46.488] envir = globalenv(), inherits = FALSE) 1566s [00:52:46.488] ...future.FUN(...future.X_jj, ...) 1566s [00:52:46.488] }) 1566s [00:52:46.488] } 1566s [00:52:46.488] }, args = future.call.arguments) 1566s [00:52:46.488] } 1566s [00:52:46.488] Tweak future expression to call with '...' arguments ... DONE 1566s [00:52:46.489] - globals: [7] ‘...future.FUN’, ‘foo’, ‘x’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1566s [00:52:46.489] 1566s [00:52:46.489] getGlobalsAndPackages() ... DONE 1566s [00:52:46.490] run() for ‘Future’ ... 1566s [00:52:46.491] - state: ‘created’ 1566s [00:52:46.491] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1566s [00:52:46.491] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1566s [00:52:46.491] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1566s [00:52:46.492] - Field: ‘label’ 1566s [00:52:46.492] - Field: ‘local’ 1566s [00:52:46.492] - Field: ‘owner’ 1566s [00:52:46.493] - Field: ‘envir’ 1566s [00:52:46.493] - Field: ‘packages’ 1566s [00:52:46.493] - Field: ‘gc’ 1566s [00:52:46.493] - Field: ‘conditions’ 1566s [00:52:46.493] - Field: ‘expr’ 1566s [00:52:46.493] - Field: ‘uuid’ 1566s [00:52:46.493] - Field: ‘seed’ 1566s [00:52:46.494] - Field: ‘version’ 1566s [00:52:46.494] - Field: ‘result’ 1566s [00:52:46.494] - Field: ‘asynchronous’ 1566s [00:52:46.494] - Field: ‘calls’ 1566s [00:52:46.494] - Field: ‘globals’ 1566s [00:52:46.495] - Field: ‘stdout’ 1566s [00:52:46.495] - Field: ‘earlySignal’ 1566s [00:52:46.495] - Field: ‘lazy’ 1566s [00:52:46.495] - Field: ‘state’ 1566s [00:52:46.495] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1566s [00:52:46.495] - Launch lazy future ... 1566s [00:52:46.496] Packages needed by the future expression (n = 0): 1566s [00:52:46.496] Packages needed by future strategies (n = 0): 1566s [00:52:46.496] { 1566s [00:52:46.496] { 1566s [00:52:46.496] { 1566s [00:52:46.496] ...future.startTime <- base::Sys.time() 1566s [00:52:46.496] { 1566s [00:52:46.496] { 1566s [00:52:46.496] { 1566s [00:52:46.496] base::local({ 1566s [00:52:46.496] has_future <- base::requireNamespace("future", 1566s [00:52:46.496] quietly = TRUE) 1566s [00:52:46.496] if (has_future) { 1566s [00:52:46.496] ns <- base::getNamespace("future") 1566s [00:52:46.496] version <- ns[[".package"]][["version"]] 1566s [00:52:46.496] if (is.null(version)) 1566s [00:52:46.496] version <- utils::packageVersion("future") 1566s [00:52:46.496] } 1566s [00:52:46.496] else { 1566s [00:52:46.496] version <- NULL 1566s [00:52:46.496] } 1566s [00:52:46.496] if (!has_future || version < "1.8.0") { 1566s [00:52:46.496] info <- base::c(r_version = base::gsub("R version ", 1566s [00:52:46.496] "", base::R.version$version.string), 1566s [00:52:46.496] platform = base::sprintf("%s (%s-bit)", 1566s [00:52:46.496] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1566s [00:52:46.496] os = base::paste(base::Sys.info()[base::c("sysname", 1566s [00:52:46.496] "release", "version")], collapse = " "), 1566s [00:52:46.496] hostname = base::Sys.info()[["nodename"]]) 1566s [00:52:46.496] info <- base::sprintf("%s: %s", base::names(info), 1566s [00:52:46.496] info) 1566s [00:52:46.496] info <- base::paste(info, collapse = "; ") 1566s [00:52:46.496] if (!has_future) { 1566s [00:52:46.496] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1566s [00:52:46.496] info) 1566s [00:52:46.496] } 1566s [00:52:46.496] else { 1566s [00:52:46.496] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1566s [00:52:46.496] info, version) 1566s [00:52:46.496] } 1566s [00:52:46.496] base::stop(msg) 1566s [00:52:46.496] } 1566s [00:52:46.496] }) 1566s [00:52:46.496] } 1566s [00:52:46.496] options(future.plan = NULL) 1566s [00:52:46.496] Sys.unsetenv("R_FUTURE_PLAN") 1566s [00:52:46.496] future::plan("default", .cleanup = FALSE, .init = FALSE) 1566s [00:52:46.496] } 1566s [00:52:46.496] ...future.workdir <- getwd() 1566s [00:52:46.496] } 1566s [00:52:46.496] ...future.oldOptions <- base::as.list(base::.Options) 1566s [00:52:46.496] ...future.oldEnvVars <- base::Sys.getenv() 1566s [00:52:46.496] } 1566s [00:52:46.496] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1566s [00:52:46.496] future.globals.maxSize = NULL, future.globals.method = NULL, 1566s [00:52:46.496] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1566s [00:52:46.496] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1566s [00:52:46.496] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1566s [00:52:46.496] future.stdout.windows.reencode = NULL, width = 80L) 1566s [00:52:46.496] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1566s [00:52:46.496] base::names(...future.oldOptions)) 1566s [00:52:46.496] } 1566s [00:52:46.496] if (FALSE) { 1566s [00:52:46.496] } 1566s [00:52:46.496] else { 1566s [00:52:46.496] if (TRUE) { 1566s [00:52:46.496] ...future.stdout <- base::rawConnection(base::raw(0L), 1566s [00:52:46.496] open = "w") 1566s [00:52:46.496] } 1566s [00:52:46.496] else { 1566s [00:52:46.496] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1566s [00:52:46.496] windows = "NUL", "/dev/null"), open = "w") 1566s [00:52:46.496] } 1566s [00:52:46.496] base::sink(...future.stdout, type = "output", split = FALSE) 1566s [00:52:46.496] base::on.exit(if (!base::is.null(...future.stdout)) { 1566s [00:52:46.496] base::sink(type = "output", split = FALSE) 1566s [00:52:46.496] base::close(...future.stdout) 1566s [00:52:46.496] }, add = TRUE) 1566s [00:52:46.496] } 1566s [00:52:46.496] ...future.frame <- base::sys.nframe() 1566s [00:52:46.496] ...future.conditions <- base::list() 1566s [00:52:46.496] ...future.rng <- base::globalenv()$.Random.seed 1566s [00:52:46.496] if (FALSE) { 1566s [00:52:46.496] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1566s [00:52:46.496] "...future.value", "...future.globalenv.names", ".Random.seed") 1566s [00:52:46.496] } 1566s [00:52:46.496] ...future.result <- base::tryCatch({ 1566s [00:52:46.496] base::withCallingHandlers({ 1566s [00:52:46.496] ...future.value <- base::withVisible(base::local({ 1566s [00:52:46.496] do.call(function(...) { 1566s [00:52:46.496] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1566s [00:52:46.496] if (!identical(...future.globals.maxSize.org, 1566s [00:52:46.496] ...future.globals.maxSize)) { 1566s [00:52:46.496] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1566s [00:52:46.496] on.exit(options(oopts), add = TRUE) 1566s [00:52:46.496] } 1566s [00:52:46.496] { 1566s [00:52:46.496] lapply(seq_along(...future.elements_ii), 1566s [00:52:46.496] FUN = function(jj) { 1566s [00:52:46.496] ...future.X_jj <- ...future.elements_ii[[jj]] 1566s [00:52:46.496] assign(".Random.seed", ...future.seeds_ii[[jj]], 1566s [00:52:46.496] envir = globalenv(), inherits = FALSE) 1566s [00:52:46.496] ...future.FUN(...future.X_jj, ...) 1566s [00:52:46.496] }) 1566s [00:52:46.496] } 1566s [00:52:46.496] }, args = future.call.arguments) 1566s [00:52:46.496] })) 1566s [00:52:46.496] future::FutureResult(value = ...future.value$value, 1566s [00:52:46.496] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1566s [00:52:46.496] ...future.rng), globalenv = if (FALSE) 1566s [00:52:46.496] list(added = base::setdiff(base::names(base::.GlobalEnv), 1566s [00:52:46.496] ...future.globalenv.names)) 1566s [00:52:46.496] else NULL, started = ...future.startTime, version = "1.8") 1566s [00:52:46.496] }, condition = base::local({ 1566s [00:52:46.496] c <- base::c 1566s [00:52:46.496] inherits <- base::inherits 1566s [00:52:46.496] invokeRestart <- base::invokeRestart 1566s [00:52:46.496] length <- base::length 1566s [00:52:46.496] list <- base::list 1566s [00:52:46.496] seq.int <- base::seq.int 1566s [00:52:46.496] signalCondition <- base::signalCondition 1566s [00:52:46.496] sys.calls <- base::sys.calls 1566s [00:52:46.496] `[[` <- base::`[[` 1566s [00:52:46.496] `+` <- base::`+` 1566s [00:52:46.496] `<<-` <- base::`<<-` 1566s [00:52:46.496] sysCalls <- function(calls = sys.calls(), from = 1L) { 1566s [00:52:46.496] calls[seq.int(from = from + 12L, to = length(calls) - 1566s [00:52:46.496] 3L)] 1566s [00:52:46.496] } 1566s [00:52:46.496] function(cond) { 1566s [00:52:46.496] is_error <- inherits(cond, "error") 1566s [00:52:46.496] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1566s [00:52:46.496] NULL) 1566s [00:52:46.496] if (is_error) { 1566s [00:52:46.496] sessionInformation <- function() { 1566s [00:52:46.496] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1566s [00:52:46.496] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1566s [00:52:46.496] search = base::search(), system = base::Sys.info()) 1566s [00:52:46.496] } 1566s [00:52:46.496] ...future.conditions[[length(...future.conditions) + 1566s [00:52:46.496] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1566s [00:52:46.496] cond$call), session = sessionInformation(), 1566s [00:52:46.496] timestamp = base::Sys.time(), signaled = 0L) 1566s [00:52:46.496] signalCondition(cond) 1566s [00:52:46.496] } 1566s [00:52:46.496] else if (!ignore && TRUE && inherits(cond, c("condition", 1566s [00:52:46.496] "immediateCondition"))) { 1566s [00:52:46.496] signal <- TRUE && inherits(cond, "immediateCondition") 1566s [00:52:46.496] ...future.conditions[[length(...future.conditions) + 1566s [00:52:46.496] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1566s [00:52:46.496] if (TRUE && !signal) { 1566s [00:52:46.496] muffleCondition <- function (cond, pattern = "^muffle") 1566s [00:52:46.496] { 1566s [00:52:46.496] inherits <- base::inherits 1566s [00:52:46.496] invokeRestart <- base::invokeRestart 1566s [00:52:46.496] is.null <- base::is.null 1566s [00:52:46.496] muffled <- FALSE 1566s [00:52:46.496] if (inherits(cond, "message")) { 1566s [00:52:46.496] muffled <- grepl(pattern, "muffleMessage") 1566s [00:52:46.496] if (muffled) 1566s [00:52:46.496] invokeRestart("muffleMessage") 1566s [00:52:46.496] } 1566s [00:52:46.496] else if (inherits(cond, "warning")) { 1566s [00:52:46.496] muffled <- grepl(pattern, "muffleWarning") 1566s [00:52:46.496] if (muffled) 1566s [00:52:46.496] invokeRestart("muffleWarning") 1566s [00:52:46.496] } 1566s [00:52:46.496] else if (inherits(cond, "condition")) { 1566s [00:52:46.496] if (!is.null(pattern)) { 1566s [00:52:46.496] computeRestarts <- base::computeRestarts 1566s [00:52:46.496] grepl <- base::grepl 1566s [00:52:46.496] restarts <- computeRestarts(cond) 1566s [00:52:46.496] for (restart in restarts) { 1566s [00:52:46.496] name <- restart$name 1566s [00:52:46.496] if (is.null(name)) 1566s [00:52:46.496] next 1566s [00:52:46.496] if (!grepl(pattern, name)) 1566s [00:52:46.496] next 1566s [00:52:46.496] invokeRestart(restart) 1566s [00:52:46.496] muffled <- TRUE 1566s [00:52:46.496] break 1566s [00:52:46.496] } 1566s [00:52:46.496] } 1566s [00:52:46.496] } 1566s [00:52:46.496] invisible(muffled) 1566s [00:52:46.496] } 1566s [00:52:46.496] muffleCondition(cond, pattern = "^muffle") 1566s [00:52:46.496] } 1566s [00:52:46.496] } 1566s [00:52:46.496] else { 1566s [00:52:46.496] if (TRUE) { 1566s [00:52:46.496] muffleCondition <- function (cond, pattern = "^muffle") 1566s [00:52:46.496] { 1566s [00:52:46.496] inherits <- base::inherits 1566s [00:52:46.496] invokeRestart <- base::invokeRestart 1566s [00:52:46.496] is.null <- base::is.null 1566s [00:52:46.496] muffled <- FALSE 1566s [00:52:46.496] if (inherits(cond, "message")) { 1566s [00:52:46.496] muffled <- grepl(pattern, "muffleMessage") 1566s [00:52:46.496] if (muffled) 1566s [00:52:46.496] invokeRestart("muffleMessage") 1566s [00:52:46.496] } 1566s [00:52:46.496] else if (inherits(cond, "warning")) { 1566s [00:52:46.496] muffled <- grepl(pattern, "muffleWarning") 1566s [00:52:46.496] if (muffled) 1566s [00:52:46.496] invokeRestart("muffleWarning") 1566s [00:52:46.496] } 1566s [00:52:46.496] else if (inherits(cond, "condition")) { 1566s [00:52:46.496] if (!is.null(pattern)) { 1566s [00:52:46.496] computeRestarts <- base::computeRestarts 1566s [00:52:46.496] grepl <- base::grepl 1566s [00:52:46.496] restarts <- computeRestarts(cond) 1566s [00:52:46.496] for (restart in restarts) { 1566s [00:52:46.496] name <- restart$name 1566s [00:52:46.496] if (is.null(name)) 1566s [00:52:46.496] next 1566s [00:52:46.496] if (!grepl(pattern, name)) 1566s [00:52:46.496] next 1566s [00:52:46.496] invokeRestart(restart) 1566s [00:52:46.496] muffled <- TRUE 1566s [00:52:46.496] break 1566s [00:52:46.496] } 1566s [00:52:46.496] } 1566s [00:52:46.496] } 1566s [00:52:46.496] invisible(muffled) 1566s [00:52:46.496] } 1566s [00:52:46.496] muffleCondition(cond, pattern = "^muffle") 1566s [00:52:46.496] } 1566s [00:52:46.496] } 1566s [00:52:46.496] } 1566s [00:52:46.496] })) 1566s [00:52:46.496] }, error = function(ex) { 1566s [00:52:46.496] base::structure(base::list(value = NULL, visible = NULL, 1566s [00:52:46.496] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1566s [00:52:46.496] ...future.rng), started = ...future.startTime, 1566s [00:52:46.496] finished = Sys.time(), session_uuid = NA_character_, 1566s [00:52:46.496] version = "1.8"), class = "FutureResult") 1566s [00:52:46.496] }, finally = { 1566s [00:52:46.496] if (!identical(...future.workdir, getwd())) 1566s [00:52:46.496] setwd(...future.workdir) 1566s [00:52:46.496] { 1566s [00:52:46.496] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1566s [00:52:46.496] ...future.oldOptions$nwarnings <- NULL 1566s [00:52:46.496] } 1566s [00:52:46.496] base::options(...future.oldOptions) 1566s [00:52:46.496] if (.Platform$OS.type == "windows") { 1566s [00:52:46.496] old_names <- names(...future.oldEnvVars) 1566s [00:52:46.496] envs <- base::Sys.getenv() 1566s [00:52:46.496] names <- names(envs) 1566s [00:52:46.496] common <- intersect(names, old_names) 1566s [00:52:46.496] added <- setdiff(names, old_names) 1566s [00:52:46.496] removed <- setdiff(old_names, names) 1566s [00:52:46.496] changed <- common[...future.oldEnvVars[common] != 1566s [00:52:46.496] envs[common]] 1566s [00:52:46.496] NAMES <- toupper(changed) 1566s [00:52:46.496] args <- list() 1566s [00:52:46.496] for (kk in seq_along(NAMES)) { 1566s [00:52:46.496] name <- changed[[kk]] 1566s [00:52:46.496] NAME <- NAMES[[kk]] 1566s [00:52:46.496] if (name != NAME && is.element(NAME, old_names)) 1566s [00:52:46.496] next 1566s [00:52:46.496] args[[name]] <- ...future.oldEnvVars[[name]] 1566s [00:52:46.496] } 1566s [00:52:46.496] NAMES <- toupper(added) 1566s [00:52:46.496] for (kk in seq_along(NAMES)) { 1566s [00:52:46.496] name <- added[[kk]] 1566s [00:52:46.496] NAME <- NAMES[[kk]] 1566s [00:52:46.496] if (name != NAME && is.element(NAME, old_names)) 1566s [00:52:46.496] next 1566s [00:52:46.496] args[[name]] <- "" 1566s [00:52:46.496] } 1566s [00:52:46.496] NAMES <- toupper(removed) 1566s [00:52:46.496] for (kk in seq_along(NAMES)) { 1566s [00:52:46.496] name <- removed[[kk]] 1566s [00:52:46.496] NAME <- NAMES[[kk]] 1566s [00:52:46.496] if (name != NAME && is.element(NAME, old_names)) 1566s [00:52:46.496] next 1566s [00:52:46.496] args[[name]] <- ...future.oldEnvVars[[name]] 1566s [00:52:46.496] } 1566s [00:52:46.496] if (length(args) > 0) 1566s [00:52:46.496] base::do.call(base::Sys.setenv, args = args) 1566s [00:52:46.496] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1566s [00:52:46.496] } 1566s [00:52:46.496] else { 1566s [00:52:46.496] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1566s [00:52:46.496] } 1566s [00:52:46.496] { 1566s [00:52:46.496] if (base::length(...future.futureOptionsAdded) > 1566s [00:52:46.496] 0L) { 1566s [00:52:46.496] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1566s [00:52:46.496] base::names(opts) <- ...future.futureOptionsAdded 1566s [00:52:46.496] base::options(opts) 1566s [00:52:46.496] } 1566s [00:52:46.496] { 1566s [00:52:46.496] { 1566s [00:52:46.496] base::assign(".Random.seed", c(10403L, 8L, 1566s [00:52:46.496] 133210212L, 1945833034L, 115858357L, -364452081L, 1566s [00:52:46.496] -390319082L, 926195392L, 2057013379L, -803887967L, 1566s [00:52:46.496] -1078998384L, 705296750L, -1682614503L, 830917547L, 1566s [00:52:46.496] -331376230L, 1352842588L, 1960957023L, 1997081653L, 1566s [00:52:46.496] 374446028L, 1510359842L, 1146109309L, -1295266185L, 1566s [00:52:46.496] -1545472098L, 1268700760L, 1627111355L, -855092903L, 1566s [00:52:46.496] -215790872L, -1958931690L, 1906054289L, -782874301L, 1566s [00:52:46.496] -399096750L, -1740777756L, 1763676455L, -832683651L, 1566s [00:52:46.496] 1369376884L, 430697050L, 1699587749L, -1503628097L, 1566s [00:52:46.496] 856180550L, -242424368L, -2127251469L, 505777937L, 1566s [00:52:46.496] 257347392L, -856180962L, 886024169L, -1464480485L, 1566s [00:52:46.496] -1512233174L, -1985955764L, -425390065L, 1566s [00:52:46.496] -589669563L, 381897980L, -790840494L, 1136483533L, 1566s [00:52:46.496] -1535370105L, -607934610L, 1641470280L, -1050403509L, 1566s [00:52:46.496] 1965932713L, 362996216L, 1596838182L, -1829498303L, 1566s [00:52:46.496] -1824465965L, 1872669058L, -417374796L, -1713346249L, 1566s [00:52:46.496] 1818328109L, -1284085436L, -1981489558L, 1566s [00:52:46.496] 1940543701L, 1673049711L, -1514495114L, 467096736L, 1566s [00:52:46.496] 943410531L, -1431020031L, 1115626864L, 965475598L, 1566s [00:52:46.496] -1718567047L, -793788661L, -1133789126L, 1566s [00:52:46.496] -80588996L, 2018258047L, 1866186709L, 42791404L, 1566s [00:52:46.496] -1823521982L, -1345991523L, -1672661737L, 1566s [00:52:46.496] -180777858L, -452713416L, 1448313627L, -1459492743L, 1566s [00:52:46.496] -600706872L, -909649674L, -2081822415L, -1697455773L, 1566s [00:52:46.496] 1517613874L, -820020092L, 188336327L, -1149897827L, 1566s [00:52:46.496] -475203820L, -368005702L, 204442629L, 437854687L, 1566s [00:52:46.496] 1163191398L, -760699920L, 104455443L, 819708593L, 1566s [00:52:46.496] 1129180512L, 48636670L, 1066049161L, 398150075L, 1566s [00:52:46.496] -852036726L, -906028436L, -1265740817L, -1824646107L, 1566s [00:52:46.496] -2126068516L, 1815435954L, -146408019L, -860012185L, 1566s [00:52:46.496] -682500466L, 1443186536L, 1789394795L, -1078204151L, 1566s [00:52:46.496] 809467800L, 1514112710L, -1097673695L, 919601331L, 1566s [00:52:46.496] -331916766L, 795008020L, 1042337943L, -371219827L, 1566s [00:52:46.496] 1558967204L, 1563528586L, -2133607947L, -1904454577L, 1566s [00:52:46.496] -264006826L, 770017792L, 153477955L, 1189667553L, 1566s [00:52:46.496] -363253680L, 1882362030L, 967246937L, -793119637L, 1566s [00:52:46.496] -1401964070L, 2129232540L, -542810977L, -1277899019L, 1566s [00:52:46.496] -377097332L, -406748574L, -1722157507L, -1577740105L, 1566s [00:52:46.496] -455170210L, 372239000L, -1535936005L, -1332632679L, 1566s [00:52:46.496] -1623884760L, -359633706L, 935827793L, 1357445123L, 1566s [00:52:46.496] 997040018L, -1506538204L, -147930137L, -166569923L, 1566s [00:52:46.496] -2103753036L, 1366641946L, 30482021L, 1876964095L, 1566s [00:52:46.496] 2008557446L, 657856784L, -103814733L, 774877777L, 1566s [00:52:46.496] -486350336L, -555057442L, -1821756119L, -963495717L, 1566s [00:52:46.496] 853311466L, 1671241612L, -942337841L, 409538693L, 1566s [00:52:46.496] 1992831804L, 489867794L, 357105933L, -1611412921L, 1566s [00:52:46.496] -1119334354L, -1521015416L, -2041922421L, 1566s [00:52:46.496] 2048874089L, -700216776L, 1651628774L, -10471807L, 1566s [00:52:46.496] 736942611L, 380607938L, -1742088588L, 1124231287L, 1566s [00:52:46.496] 1232111981L, -1801753084L, -1608606422L, 1566s [00:52:46.496] -1172096363L, 1420874031L, -1210473418L, 1566s [00:52:46.496] -18317216L, -571709789L, 1107403201L, 1952554416L, 1566s [00:52:46.496] 1991660750L, -442973639L, 581522507L, -430787078L, 1566s [00:52:46.496] 1105375484L, -1481218753L, -748152299L, -641535700L, 1566s [00:52:46.496] 679371266L, -591318819L, -104578089L, -172818754L, 1566s [00:52:46.496] -1321694984L, -98191653L, 1709083961L, -344680312L, 1566s [00:52:46.496] -159571914L, 581309553L, -63938909L, 76420082L, 1566s [00:52:46.496] 951019332L, -1797740537L, 1291470301L, -2079866156L, 1566s [00:52:46.496] -332493318L, -1978392251L, -1691039632L, 1566s [00:52:46.496] 388791868L, -1101109484L, -1365177662L, 321737440L, 1566s [00:52:46.496] 1812890748L, -133313328L, -1252731998L, 2044530216L, 1566s [00:52:46.496] 1263927564L, 325388220L, 520794418L, 1449646272L, 1566s [00:52:46.496] 87560756L, -87565624L, 426345146L, -699970416L, 1566s [00:52:46.496] 240322284L, -1074080172L, -1536268654L, 1338615584L, 1566s [00:52:46.496] 478476236L, -1933154080L, -192786750L, 1559942184L, 1566s [00:52:46.496] -1178330196L, -687617348L, -1701912078L, 1566s [00:52:46.496] 352314928L, -999229532L, -2052800072L, -1913644198L, 1566s [00:52:46.496] -1345416048L, 1816730492L, -1570431212L, 1566s [00:52:46.496] -269427390L, -2122969344L, -520963140L, 1398087504L, 1566s [00:52:46.496] 264692002L, -1682658744L, -1422452724L, -1601893284L, 1566s [00:52:46.496] -66383406L, 1443075584L, -456249004L, 943694056L, 1566s [00:52:46.496] -1493184262L, -1943836976L, -590788308L, 1566s [00:52:46.496] -405505804L, -1796837998L, 1991543136L, 1170376716L, 1566s [00:52:46.496] 1707420384L, 1899700834L, -1643595096L, 47299148L, 1566s [00:52:46.496] 1274857340L, -1205842638L, -1938479504L, 1566s [00:52:46.496] -1773978812L, 532695000L, 1306451834L, 258403888L, 1566s [00:52:46.496] -284747844L, -1780705708L, 1621936194L, 1129070752L, 1566s [00:52:46.496] 540946108L, -294270512L, -1426480286L, -356302104L, 1566s [00:52:46.496] 349847756L, 1849803260L, -1299125774L, 511654528L, 1566s [00:52:46.496] -1259964940L, -1879857528L, 535666490L, -2020097200L, 1566s [00:52:46.496] -1460751252L, 1201879444L, -1459788718L, 1566s [00:52:46.496] 447195616L, -730891060L, -1875530592L, -2146183806L, 1566s [00:52:46.496] 193274088L, -1224605972L, 1616153916L, -1896973198L, 1566s [00:52:46.496] -420945808L, -1997735900L, -1838404552L, 1566s [00:52:46.496] -413698278L, 1984019664L, -1760209092L, -1288743020L, 1566s [00:52:46.496] 392579970L, -1382567488L, -1295004100L, -33348208L, 1566s [00:52:46.496] 1536615970L, -428761848L, 643368588L, -1596336356L, 1566s [00:52:46.496] 1797431442L, 352422272L, -1043800556L, 60591912L, 1566s [00:52:46.496] -1115663814L, 1043682768L, 521144684L, 4793268L, 1566s [00:52:46.496] -1924265966L, 978890208L, 370048972L, -1607474976L, 1566s [00:52:46.496] -1443637214L, -632405720L, 691912204L, 166321980L, 1566s [00:52:46.496] 942193650L, 751741680L, 689743428L, -18455976L, 1566s [00:52:46.496] -1946329286L, -1619184144L, 239341244L, 371382548L, 1566s [00:52:46.496] -2069808446L, 154176608L, 385987452L, -385611824L, 1566s [00:52:46.496] 1967391010L, 2140654248L, 1720087436L, -1591007044L, 1566s [00:52:46.496] -1612486862L, 1295747648L, 1726784692L, 597326408L, 1566s [00:52:46.496] -973152838L, 628505104L, -1089631508L, 3230036L, 1566s [00:52:46.496] -593837806L, 244006304L, 1357912780L, 1839234656L, 1566s [00:52:46.496] -1357570110L, 1896595240L, -2066952276L, 1566s [00:52:46.496] -1724304580L, 986188146L, -1200604368L, -279100124L, 1566s [00:52:46.496] 131128120L, -1088465190L, 596533136L, 170602236L, 1566s [00:52:46.496] -1051262060L, 215660610L, -686217984L, 444449852L, 1566s [00:52:46.496] 769655120L, 236357794L, 181393736L, -13334772L, 1566s [00:52:46.496] 644690652L, -1969263278L, -2107982720L, 1429553236L, 1566s [00:52:46.496] 794236904L, 1997299962L, -458224816L, 904978220L, 1566s [00:52:46.496] -537093772L, -842839150L, 1828989024L, -679303796L, 1566s [00:52:46.496] 1396292448L, 76319202L, 1896098728L, 418430156L, 1566s [00:52:46.496] 2005956604L, 1370351026L, -1178923536L, -1154073660L, 1566s [00:52:46.496] -1218863784L, 89928058L, 816597936L, -1141767748L, 1566s [00:52:46.496] 1579714644L, 1343385538L, 371259424L, -245180228L, 1566s [00:52:46.496] 365724240L, 1606388706L, -823678872L, 1281309772L, 1566s [00:52:46.496] 1395210492L, 1217887218L, 1420531968L, 1349501300L, 1566s [00:52:46.496] 271647752L, -69959750L, 360452560L, 1565334508L, 1566s [00:52:46.496] 1956526484L, -930709038L, 1961808224L, -1745916084L, 1566s [00:52:46.496] 443656480L, 1990137730L, 694374120L, -1050566420L, 1566s [00:52:46.496] -1365842884L, -438961294L, -1851472272L, 1566s [00:52:46.496] 614534180L, 1401930552L, 3652762L, 1928284880L, 1566s [00:52:46.496] -1637703492L, 26107540L, -132725907L, -371944998L, 1566s [00:52:46.496] -1311388776L, 8516097L, 741008307L, -1149566252L, 1566s [00:52:46.496] -1802640414L, 2019636855L, 1587818433L, -151040698L, 1566s [00:52:46.496] 1598381188L, -205462987L, 1911327L, -1382519432L, 1566s [00:52:46.496] -594809770L, -2146766621L, -2013964635L, 1566s [00:52:46.496] -965534910L, -2077626064L, 1964788057L, 1821395659L, 1566s [00:52:46.496] -1953549508L, -719348886L, 1442511263L, 1969287209L, 1566s [00:52:46.496] 1754221246L, -442299476L, 1981692157L, 113456199L, 1566s [00:52:46.496] 1587794736L, -1811033010L, 1149417595L, -1760887843L, 1566s [00:52:46.496] -1426021878L, -1285634264L, 1507547537L, 1566s [00:52:46.496] -1114120317L, 1897370756L, 1142575794L, -375814649L, 1566s [00:52:46.496] -1661041071L, 881081814L, -548925260L, 2073840837L, 1566s [00:52:46.496] 1156484623L, 2011334280L, 1107815334L, 969024339L, 1566s [00:52:46.496] -55972683L, 2006780434L, -1486403616L, 1698650697L, 1566s [00:52:46.496] 1813794939L, -1717763764L, 1268815066L, -1200630577L, 1566s [00:52:46.496] -773717863L, -12215122L, 1354639804L, 1213207085L, 1566s [00:52:46.496] -978295337L, 340143136L, 485429630L, -568148149L, 1566s [00:52:46.496] 1257440589L, 930106234L, -883274312L, -1632538783L, 1566s [00:52:46.496] 894748435L, -1592959180L, -596177598L, 120963415L, 1566s [00:52:46.496] -1174532959L, -561474202L, 1438545764L, 1429911189L, 1566s [00:52:46.496] 1075965887L, 367866712L, -892333706L, -485158013L, 1566s [00:52:46.496] -682634811L, 963344098L, 2110199632L, 1990767225L, 1566s [00:52:46.496] 1348335019L, 269581084L, -2040640438L, 1453561919L, 1566s [00:52:46.496] 853952649L, 1195494558L, 1614051660L, 2040242461L, 1566s [00:52:46.496] -1604604761L, 1421229008L, -1268333714L, 1566s [00:52:46.496] 174113307L, 2044969853L, 190112106L, -998776824L, 1566s [00:52:46.496] -2070476623L, -2099222749L, 1141171236L, 1566s [00:52:46.496] -146426158L, -1797385433L, -1129376399L, 1566s [00:52:46.496] -1496589386L, -419561644L, -613549595L, 1243456495L, 1566s [00:52:46.496] 451212072L, 1923543942L, 1146113971L, 93579029L, 1566s [00:52:46.496] -397504142L, 597218752L, 459048489L, 1447221915L, 1566s [00:52:46.496] -272948372L, -373834886L, 934888623L, -2099351623L, 1566s [00:52:46.496] -1672042034L, 193924380L, -704518003L, 781993207L, 1566s [00:52:46.496] -258875392L, -1853783458L, 1315003691L, -41214419L, 1566s [00:52:46.496] -59447654L, 1203745368L, 426003905L, 452670067L, 1566s [00:52:46.496] -1092079724L, -1765622238L, -1882554057L, 1566s [00:52:46.496] 1278087169L, -1994822394L, -124954300L, 1994460277L, 1566s [00:52:46.496] 1816829407L, -1568282312L, 1563616022L, 1255996195L, 1566s [00:52:46.496] 1702121701L, 1784032514L, 1842995056L, 748060441L, 1566s [00:52:46.496] 1432229643L, -1905232900L, 2016890922L, 1403944031L, 1566s [00:52:46.496] 351712233L, 1338932478L, -1359366932L, -803018691L, 1566s [00:52:46.496] -1551885305L, 248629232L, 1839395726L, 1411789243L, 1566s [00:52:46.496] 840085405L, -1849000630L, -669518488L, -1453417647L, 1566s [00:52:46.496] -1527179197L, -377159356L, 1674525170L, -313742393L, 1566s [00:52:46.496] 865377681L, -1127426242L), envir = base::globalenv(), 1566s [00:52:46.496] inherits = FALSE) 1566s [00:52:46.496] NULL 1566s [00:52:46.496] } 1566s [00:52:46.496] options(future.plan = NULL) 1566s [00:52:46.496] if (is.na(NA_character_)) 1566s [00:52:46.496] Sys.unsetenv("R_FUTURE_PLAN") 1566s [00:52:46.496] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1566s [00:52:46.496] future::plan(list(function (..., envir = parent.frame()) 1566s [00:52:46.496] { 1566s [00:52:46.496] future <- SequentialFuture(..., envir = envir) 1566s [00:52:46.496] if (!future$lazy) 1566s [00:52:46.496] future <- run(future) 1566s [00:52:46.496] invisible(future) 1566s [00:52:46.496] }), .cleanup = FALSE, .init = FALSE) 1566s [00:52:46.496] } 1566s [00:52:46.496] } 1566s [00:52:46.496] } 1566s [00:52:46.496] }) 1566s [00:52:46.496] if (TRUE) { 1566s [00:52:46.496] base::sink(type = "output", split = FALSE) 1566s [00:52:46.496] if (TRUE) { 1566s [00:52:46.496] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1566s [00:52:46.496] } 1566s [00:52:46.496] else { 1566s [00:52:46.496] ...future.result["stdout"] <- base::list(NULL) 1566s [00:52:46.496] } 1566s [00:52:46.496] base::close(...future.stdout) 1566s [00:52:46.496] ...future.stdout <- NULL 1566s [00:52:46.496] } 1566s [00:52:46.496] ...future.result$conditions <- ...future.conditions 1566s [00:52:46.496] ...future.result$finished <- base::Sys.time() 1566s [00:52:46.496] ...future.result 1566s [00:52:46.496] } 1566s [00:52:46.504] assign_globals() ... 1566s [00:52:46.505] List of 7 1566s [00:52:46.505] $ ...future.FUN :function (...) 1566s [00:52:46.505] $ foo :function (x = 1, y = 2) 1566s [00:52:46.505] $ x : num 3 1566s [00:52:46.505] $ future.call.arguments : list() 1566s [00:52:46.505] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1566s [00:52:46.505] $ ...future.elements_ii :List of 5 1566s [00:52:46.505] ..$ : int 0 1566s [00:52:46.505] ..$ : int 0 1566s [00:52:46.505] ..$ : int 0 1566s [00:52:46.505] ..$ : int 0 1566s [00:52:46.505] ..$ : int 0 1566s [00:52:46.505] $ ...future.seeds_ii :List of 5 1566s [00:52:46.505] ..$ : int [1:7] 10407 2118672648 973015440 1612380474 -529784560 -1301423278 1609721430 1566s [00:52:46.505] ..$ : int [1:7] 10407 -919798402 -1810630142 -850731864 -613657701 1060945587 1656143537 1566s [00:52:46.505] ..$ : int [1:7] 10407 1666123668 -918032954 1563303830 744861469 2009520167 369843810 1566s [00:52:46.505] ..$ : int [1:7] 10407 1310441948 2080683693 652639441 1795850730 1953532141 354730309 1566s [00:52:46.505] ..$ : int [1:7] 10407 -346794781 -526954742 61882141 1694204077 -404066420 2102686045 1566s [00:52:46.505] $ ...future.globals.maxSize: NULL 1566s [00:52:46.505] - attr(*, "where")=List of 7 1566s [00:52:46.505] ..$ ...future.FUN : 1566s [00:52:46.505] ..$ foo : 1566s [00:52:46.505] ..$ x : 1566s [00:52:46.505] ..$ future.call.arguments : 1566s [00:52:46.505] ..$ ...future.elements_ii : 1566s [00:52:46.505] ..$ ...future.seeds_ii : 1566s [00:52:46.505] ..$ ...future.globals.maxSize: 1566s [00:52:46.505] - attr(*, "resolved")= logi FALSE 1566s [00:52:46.505] - attr(*, "total_size")= num 2200 1566s [00:52:46.505] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1566s [00:52:46.505] - attr(*, "already-done")= logi TRUE 1566s [00:52:46.518] - reassign environment for ‘...future.FUN’ 1566s [00:52:46.519] - copied ‘...future.FUN’ to environment 1566s [00:52:46.519] - reassign environment for ‘foo’ 1566s [00:52:46.519] - copied ‘foo’ to environment 1566s [00:52:46.520] - copied ‘x’ to environment 1566s [00:52:46.520] - copied ‘future.call.arguments’ to environment 1566s [00:52:46.520] - copied ‘...future.elements_ii’ to environment 1566s [00:52:46.521] - copied ‘...future.seeds_ii’ to environment 1566s [00:52:46.521] - copied ‘...future.globals.maxSize’ to environment 1566s [00:52:46.521] assign_globals() ... done 1566s [00:52:46.522] plan(): Setting new future strategy stack: 1566s [00:52:46.522] List of future strategies: 1566s [00:52:46.522] 1. sequential: 1566s [00:52:46.522] - args: function (..., envir = parent.frame()) 1566s [00:52:46.522] - tweaked: FALSE 1566s [00:52:46.522] - call: NULL 1566s [00:52:46.523] plan(): nbrOfWorkers() = 1 1566s [00:52:46.525] plan(): Setting new future strategy stack: 1566s [00:52:46.525] List of future strategies: 1566s [00:52:46.525] 1. sequential: 1566s [00:52:46.525] - args: function (..., envir = parent.frame()) 1566s [00:52:46.525] - tweaked: FALSE 1566s [00:52:46.525] - call: plan(strategy) 1566s [00:52:46.525] plan(): nbrOfWorkers() = 1 1566s [00:52:46.526] SequentialFuture started (and completed) 1566s [00:52:46.526] - Launch lazy future ... done 1566s [00:52:46.526] run() for ‘SequentialFuture’ ... done 1566s [00:52:46.526] Created future: 1566s [00:52:46.526] SequentialFuture: 1566s [00:52:46.526] Label: ‘future_replicate-1’ 1566s [00:52:46.526] Expression: 1566s [00:52:46.526] { 1566s [00:52:46.526] do.call(function(...) { 1566s [00:52:46.526] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1566s [00:52:46.526] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1566s [00:52:46.526] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1566s [00:52:46.526] on.exit(options(oopts), add = TRUE) 1566s [00:52:46.526] } 1566s [00:52:46.526] { 1566s [00:52:46.526] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1566s [00:52:46.526] ...future.X_jj <- ...future.elements_ii[[jj]] 1566s [00:52:46.526] assign(".Random.seed", ...future.seeds_ii[[jj]], 1566s [00:52:46.526] envir = globalenv(), inherits = FALSE) 1566s [00:52:46.526] ...future.FUN(...future.X_jj, ...) 1566s [00:52:46.526] }) 1566s [00:52:46.526] } 1566s [00:52:46.526] }, args = future.call.arguments) 1566s [00:52:46.526] } 1566s [00:52:46.526] Lazy evaluation: FALSE 1566s [00:52:46.526] Asynchronous evaluation: FALSE 1566s [00:52:46.526] Local evaluation: TRUE 1566s [00:52:46.526] Environment: 0x2aa2ca691f8 1566s [00:52:46.526] Capture standard output: TRUE 1566s [00:52:46.526] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1566s [00:52:46.526] Globals: 7 objects totaling 2.81 KiB (function ‘...future.FUN’ of 504 bytes, function ‘foo’ of 1.60 KiB, numeric ‘x’ of 56 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 280 bytes, ...) 1566s [00:52:46.526] Packages: 1566s [00:52:46.526] L'Ecuyer-CMRG RNG seed: (seed = NULL) 1566s [00:52:46.526] Resolved: TRUE 1566s [00:52:46.526] Value: 320 bytes of class ‘list’ 1566s [00:52:46.526] Early signaling: FALSE 1566s [00:52:46.526] Owner process: 50289bf5-8c9f-f501-15c6-3ca1fa8d82cf 1566s [00:52:46.526] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1566s [00:52:46.528] Chunk #1 of 1 ... DONE 1566s [00:52:46.529] Launching 1 futures (chunks) ... DONE 1566s [00:52:46.529] Resolving 1 futures (chunks) ... 1566s [00:52:46.529] resolve() on list ... 1566s [00:52:46.529] recursive: 0 1566s [00:52:46.529] length: 1 1566s [00:52:46.529] 1566s [00:52:46.529] resolved() for ‘SequentialFuture’ ... 1566s [00:52:46.530] - state: ‘finished’ 1566s [00:52:46.530] - run: TRUE 1566s [00:52:46.530] - result: ‘FutureResult’ 1566s [00:52:46.530] resolved() for ‘SequentialFuture’ ... done 1566s [00:52:46.530] Future #1 1566s [00:52:46.530] signalConditionsASAP(SequentialFuture, pos=1) ... 1566s [00:52:46.531] - nx: 1 1566s [00:52:46.531] - relay: TRUE 1566s [00:52:46.531] - stdout: TRUE 1566s [00:52:46.531] - signal: TRUE 1566s [00:52:46.531] - resignal: FALSE 1566s [00:52:46.531] - force: TRUE 1566s [00:52:46.531] - relayed: [n=1] FALSE 1566s [00:52:46.532] - queued futures: [n=1] FALSE 1566s [00:52:46.532] - until=1 1566s [00:52:46.532] - relaying element #1 1566s [00:52:46.532] - relayed: [n=1] TRUE 1566s [00:52:46.532] - queued futures: [n=1] TRUE 1566s [00:52:46.532] signalConditionsASAP(SequentialFuture, pos=1) ... done 1566s [00:52:46.533] length: 0 (resolved future 1) 1566s [00:52:46.533] Relaying remaining futures 1566s [00:52:46.533] signalConditionsASAP(NULL, pos=0) ... 1566s [00:52:46.533] - nx: 1 1566s [00:52:46.533] - relay: TRUE 1566s [00:52:46.533] - stdout: TRUE 1566s [00:52:46.534] - signal: TRUE 1566s [00:52:46.534] - resignal: FALSE 1566s [00:52:46.534] - force: TRUE 1566s [00:52:46.534] - relayed: [n=1] TRUE 1566s [00:52:46.534] - queued futures: [n=1] TRUE 1566s - flush all 1566s [00:52:46.535] - relayed: [n=1] TRUE 1566s [00:52:46.535] - queued futures: [n=1] TRUE 1566s [00:52:46.535] signalConditionsASAP(NULL, pos=0) ... done 1566s [00:52:46.535] resolve() on list ... DONE 1566s [00:52:46.535] - Number of value chunks collected: 1 1566s [00:52:46.536] Resolving 1 futures (chunks) ... DONE 1566s [00:52:46.536] Reducing values from 1 chunks ... 1566s [00:52:46.536] - Number of values collected after concatenation: 5 1566s [00:52:46.536] - Number of values expected: 5 1566s [00:52:46.536] Reducing values from 1 chunks ... DONE 1566s [00:52:46.536] future_lapply() ... DONE 1566s [00:52:46.537] plan(): Setting new future strategy stack: 1566s [00:52:46.537] List of future strategies: 1566s [00:52:46.537] 1. sequential: 1566s [00:52:46.537] - args: function (..., envir = parent.frame()) 1566s [00:52:46.537] - tweaked: FALSE 1566s [00:52:46.537] - call: plan(sequential) 1566s [00:52:46.538] plan(): nbrOfWorkers() = 1 1566s *** strategy = ‘sequential’ ... done 1566s *** strategy = ‘multicore’ ... 1566s [00:52:46.538] plan(): Setting new future strategy stack: 1566s [00:52:46.539] List of future strategies: 1566s [00:52:46.539] 1. multicore: 1566s [00:52:46.539] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1566s [00:52:46.539] - tweaked: FALSE 1566s [00:52:46.539] - call: plan(strategy) 1566s [00:52:46.543] plan(): nbrOfWorkers() = 1 1566s [00:52:46.543] future_lapply() ... 1566s [00:52:46.544] Generating random seeds ... 1566s [00:52:46.544] Generating random seed streams for 5 elements ... 1566s [00:52:46.544] Generating random seed streams for 5 elements ... DONE 1566s [00:52:46.544] Generating random seeds ... DONE 1566s [00:52:46.544] Will set RNG state on exit: 10403, 17, 133210212, 1945833034, 115858357, -364452081, -390319082, 926195392, 2057013379, -803887967, -1078998384, 705296750, -1682614503, 830917547, -331376230, 1352842588, 1960957023, 1997081653, 374446028, 1510359842, 1146109309, -1295266185, -1545472098, 1268700760, 1627111355, -855092903, -215790872, -1958931690, 1906054289, -782874301, -399096750, -1740777756, 1763676455, -832683651, 1369376884, 430697050, 1699587749, -1503628097, 856180550, -242424368, -2127251469, 505777937, 257347392, -856180962, 886024169, -1464480485, -1512233174, -1985955764, -425390065, -589669563, 381897980, -790840494, 1136483533, -1535370105, -607934610, 1641470280, -1050403509, 1965932713, 362996216, 1596838182, -1829498303, -1824465965, 1872669058, -417374796, -1713346249, 1818328109, -1284085436, -1981489558, 1940543701, 1673049711, -1514495114, 467096736, 943410531, -1431020031, 1115626864, 965475598, -1718567047, -793788661, -1133789126, -80588996, 2018258047, 1866186709, 42791404, -1823521982, -1345991523, -1672661737, -180777858, -452713416, 1448313627, -1459492743, -600706872, -909649674, -2081822415, -1697455773, 1517613874, -820020092, 188336327, -1149897827, -475203820, -368005702, 204442629, 437854687, 1163191398, -760699920, 104455443, 819708593, 1129180512, 48636670, 1066049161, 398150075, -852036726, -906028436, -1265740817, -1824646107, -2126068516, 1815435954, -146408019, -860012185, -682500466, 1443186536, 1789394795, -1078204151, 809467800, 1514112710, -1097673695, 919601331, -331916766, 795008020, 1042337943, -371219827, 1558967204, 1563528586, -2133607947, -1904454577, -264006826, 770017792, 153477955, 1189667553, -363253680, 1882362030, 967246937, -793119637, -1401964070, 2129232540, -542810977, -1277899019, -377097332, -406748574, -1722157507, -1577740105, -455170210, 372239000, -1535936005, -1332632679, -1623884760, -359633706, 935827793, 1357445123, 997040018, -1506538204, -147930137, -166569923, -2103753036, 1366641946, 30482021, 1876964095, 2008557446, 657856784, -103814733, 774877777, -486350336, -555057442, -1821756119, -963495717, 853311466, 1671241612, -942337841, 409538693, 1992831804, 489867794, 357105933, -1611412921, -1119334354, -1521015416, -2041922421, 2048874089, -700216776, 1651628774, -10471807, 736942611, 380607938, -1742088588, 1124231287, 1232111981, -1801753084, -1608606422, -1172096363, 1420874031, -1210473418, -18317216, -571709789, 1107403201, 1952554416, 1991660750, -442973639, 581522507, -430787078, 1105375484, -1481218753, -748152299, -641535700, 679371266, -591318819, -104578089, -172818754, -1321694984, -98191653, 1709083961, -344680312, -159571914, 581309553, -63938909, 76420082, 951019332, -1797740537, 1291470301, -2079866156, -332493318, -1978392251, -1691039632, 388791868, -1101109484, -1365177662, 321737440, 1812890748, -133313328, -1252731998, 2044530216, 1263927564, 325388220, 520794418, 1449646272, 87560756, -87565624, 426345146, -699970416, 240322284, -1074080172, -1536268654, 1338615584, 478476236, -1933154080, -192786750, 1559942184, -1178330196, -687617348, -1701912078, 352314928, -999229532, -2052800072, -1913644198, -1345416048, 1816730492, -1570431212, -269427390, -2122969344, -520963140, 1398087504, 264692002, -1682658744, -1422452724, -1601893284, -66383406, 1443075584, -456249004, 943694056, -1493184262, -1943836976, -590788308, -405505804, -1796837998, 1991543136, 1170376716, 1707420384, 1899700834, -1643595096, 47299148, 1274857340, -1205842638, -1938479504, -1773978812, 532695000, 1306451834, 258403888, -284747844, -1780705708, 1621936194, 1129070752, 540946108, -294270512, -1426480286, -356302104, 349847756, 1849803260, -1299125774, 511654528, -1259964940, -1879857528, 535666490, -2020097200, -1460751252, 1201879444, -1459788718, 447195616, -730891060, -1875530592, -2146183806, 193274088, -1224605972, 1616153916, -1896973198, -420945808, -1997735900, -1838404552, -413698278, 1984019664, -1760209092, -1288743020, 392579970, -1382567488, -1295004100, -33348208, 1536615970, -428761848, 643368588, -1596336356, 1797431442, 352422272, -1043800556, 60591912, -1115663814, 1043682768, 521144684, 4793268, -1924265966, 978890208, 370048972, -1607474976, -1443637214, -632405720, 691912204, 166321980, 942193650, 751741680, 689743428, -18455976, -1946329286, -1619184144, 239341244, 371382548, -2069808446, 154176608, 385987452, -385611824, 1967391010, 2140654248, 1720087436, -1591007044, -1612486862, 1295747648, 1726784692, 597326408, -973152838, 628505104, -1089631508, 3230036, -593837806, 244006304, 1357912780, 1839234656, -1357570110, 1896595240, -2066952276, -1724304580, 986188146, -1200604368, -279100124, 131128120, -1088465190, 596533136, 170602236, -1051262060, 215660610, -686217984, 444449852, 769655120, 236357794, 181393736, -13334772, 644690652, -1969263278, -2107982720, 1429553236, 794236904, 1997299962, -458224816, 904978220, -537093772, -842839150, 1828989024, -679303796, 1396292448, 76319202, 1896098728, 418430156, 2005956604, 1370351026, -1178923536, -1154073660, -1218863784, 89928058, 816597936, -1141767748, 1579714644, 1343385538, 371259424, -245180228, 365724240, 1606388706, -823678872, 1281309772, 1395210492, 1217887218, 1420531968, 1349501300, 271647752, -69959750, 360452560, 1565334508, 1956526484, -930709038, 1961808224, -1745916084, 443656480, 1990137730, 694374120, -1050566420, -1365842884, -438961294, -1851472272, 614534180, 1401930552, 3652762, 1928284880, -1637703492, 26107540, -132725907, -371944998, -1311388776, 8516097, 741008307, -1149566252, -1802640414, 2019636855, 1587818433, -151040698, 1598381188, -205462987, 1911327, -1382519432, -594809770, -2146766621, -2013964635, -965534910, -2077626064, 1964788057, 1821395659, -1953549508, -719348886, 1442511263, 1969287209, 1754221246, -442299476, 1981692157, 113456199, 1587794736, -1811033010, 1149417595, -1760887843, -1426021878, -1285634264, 1507547537, -1114120317, 1897370756, 1142575794, -375814649, -1661041071, 881081814, -548925260, 2073840837, 1156484623, 2011334280, 1107815334, 969024339, -55972683, 2006780434, -1486403616, 1698650697, 1813794939, -1717763764, 1268815066, -1200630577, -773717863, -12215122, 1354639804, 1213207085, -978295337, 340143136, 485429630, -568148149, 1257440589, 930106234, -883274312, -1632538783, 894748435, -1592959180, -596177598, 120963415, -1174532959, -561474202, 1438545764, 1429911189, 1075965887, 367866712, -892333706, -485158013, -682634811, 963344098, 2110199632, 1990767225, 1348335019, 269581084, -2040640438, 1453561919, 853952649, 1195494558, 1614051660, 2040242461, -1604604761, 1421229008, -1268333714, 174113307, 2044969853, 190112106, -998776824, -2070476623, -2099222749, 1141171236, -146426158, -1797385433, -1129376399, -1496589386, -419561644, -613549595, 1243456495, 451212072, 1923543942, 1146113971, 93579029, -397504142, 597218752, 459048489, 1447221915, -272948372, -373834886, 934888623, -2099351623, -1672042034, 193924380, -704518003, 781993207, -258875392, -1853783458, 1315003691, -41214419, -59447654, 1203745368, 426003905, 452670067, -1092079724, -1765622238, -1882554057, 1278087169, -1994822394, -124954300, 1994460277, 1816829407, -1568282312, 1563616022, 1255996195, 1702121701, 1784032514, 1842995056, 748060441, 1432229643, -1905232900, 2016890922, 1403944031, 351712233, 1338932478, -1359366932, -803018691, -1551885305, 248629232, 1839395726, 1411789243, 840085405, -1849000630, -669518488, -1453417647, -1527179197, -377159356, 1674525170, -313742393, 865377681, -1127426242 1566s [00:52:46.548] Number of chunks: 1 1566s [00:52:46.549] getGlobalsAndPackagesXApply() ... 1566s [00:52:46.549] - future.globals: TRUE 1566s [00:52:46.549] getGlobalsAndPackages() ... 1566s [00:52:46.549] Searching for globals... 1566s [00:52:46.551] - globals found: [2] ‘FUN’, ‘sample’ 1566s [00:52:46.551] Searching for globals ... DONE 1566s [00:52:46.551] Resolving globals: FALSE 1566s [00:52:46.552] The total size of the 1 globals is 616 bytes (616 bytes) 1566s [00:52:46.552] The total size of the 1 globals exported for future expression (‘FUN()’) is 616 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (616 bytes of class ‘function’) 1566s [00:52:46.552] - globals: [1] ‘FUN’ 1566s [00:52:46.553] 1566s [00:52:46.553] getGlobalsAndPackages() ... DONE 1566s [00:52:46.553] - globals found/used: [n=1] ‘FUN’ 1566s [00:52:46.553] - needed namespaces: [n=0] 1566s [00:52:46.553] Finding globals ... DONE 1566s [00:52:46.553] - use_args: TRUE 1566s [00:52:46.554] - Getting '...' globals ... 1566s [00:52:46.554] resolve() on list ... 1566s [00:52:46.554] recursive: 0 1566s [00:52:46.554] length: 1 1566s [00:52:46.555] elements: ‘...’ 1566s [00:52:46.555] length: 0 (resolved future 1) 1566s [00:52:46.555] resolve() on list ... DONE 1566s [00:52:46.555] - '...' content: [n=0] 1566s [00:52:46.555] List of 1 1566s [00:52:46.555] $ ...: list() 1566s [00:52:46.555] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1566s [00:52:46.555] - attr(*, "where")=List of 1 1566s [00:52:46.555] ..$ ...: 1566s [00:52:46.555] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1566s [00:52:46.555] - attr(*, "resolved")= logi TRUE 1566s [00:52:46.555] - attr(*, "total_size")= num NA 1566s [00:52:46.561] - Getting '...' globals ... DONE 1566s [00:52:46.561] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1566s [00:52:46.562] List of 2 1566s [00:52:46.562] $ ...future.FUN:function (...) 1566s [00:52:46.562] $ ... : list() 1566s [00:52:46.562] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1566s [00:52:46.562] - attr(*, "where")=List of 2 1566s [00:52:46.562] ..$ ...future.FUN: 1566s [00:52:46.562] ..$ ... : 1566s [00:52:46.562] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1566s [00:52:46.562] - attr(*, "resolved")= logi FALSE 1566s [00:52:46.562] - attr(*, "total_size")= num 616 1566s [00:52:46.565] Packages to be attached in all futures: [n=0] 1566s [00:52:46.565] getGlobalsAndPackagesXApply() ... DONE 1566s [00:52:46.565] Number of futures (= number of chunks): 1 1566s [00:52:46.566] Launching 1 futures (chunks) ... 1566s [00:52:46.566] Chunk #1 of 1 ... 1566s [00:52:46.566] - Finding globals in 'X' for chunk #1 ... 1566s [00:52:46.566] getGlobalsAndPackages() ... 1566s [00:52:46.566] Searching for globals... 1566s [00:52:46.566] 1566s [00:52:46.566] Searching for globals ... DONE 1566s [00:52:46.567] - globals: [0] 1566s [00:52:46.567] getGlobalsAndPackages() ... DONE 1566s [00:52:46.567] + additional globals found: [n=0] 1566s [00:52:46.567] + additional namespaces needed: [n=0] 1566s [00:52:46.567] - Finding globals in 'X' for chunk #1 ... DONE 1566s [00:52:46.567] - seeds: [5] 1566s [00:52:46.567] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1566s [00:52:46.567] getGlobalsAndPackages() ... 1566s [00:52:46.568] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1566s [00:52:46.568] Resolving globals: FALSE 1566s [00:52:46.568] Tweak future expression to call with '...' arguments ... 1566s [00:52:46.568] { 1566s [00:52:46.568] do.call(function(...) { 1566s [00:52:46.568] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1566s [00:52:46.568] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1566s [00:52:46.568] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1566s [00:52:46.568] on.exit(options(oopts), add = TRUE) 1566s [00:52:46.568] } 1566s [00:52:46.568] { 1566s [00:52:46.568] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1566s [00:52:46.568] ...future.X_jj <- ...future.elements_ii[[jj]] 1566s [00:52:46.568] assign(".Random.seed", ...future.seeds_ii[[jj]], 1566s [00:52:46.568] envir = globalenv(), inherits = FALSE) 1566s [00:52:46.568] ...future.FUN(...future.X_jj, ...) 1566s [00:52:46.568] }) 1566s [00:52:46.568] } 1566s [00:52:46.568] }, args = future.call.arguments) 1566s [00:52:46.568] } 1566s [00:52:46.568] Tweak future expression to call with '...' arguments ... DONE 1566s [00:52:46.569] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1566s [00:52:46.569] 1566s [00:52:46.569] getGlobalsAndPackages() ... DONE 1566s [00:52:46.569] run() for ‘Future’ ... 1566s [00:52:46.569] - state: ‘created’ 1566s [00:52:46.570] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1566s [00:52:46.574] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1566s [00:52:46.574] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1566s [00:52:46.574] - Field: ‘label’ 1566s [00:52:46.574] - Field: ‘local’ 1566s [00:52:46.575] - Field: ‘owner’ 1566s [00:52:46.575] - Field: ‘envir’ 1566s [00:52:46.575] - Field: ‘packages’ 1566s [00:52:46.575] - Field: ‘gc’ 1566s [00:52:46.575] - Field: ‘conditions’ 1566s [00:52:46.576] - Field: ‘expr’ 1566s [00:52:46.576] - Field: ‘uuid’ 1566s [00:52:46.576] - Field: ‘seed’ 1566s [00:52:46.576] - Field: ‘version’ 1566s [00:52:46.576] - Field: ‘result’ 1566s [00:52:46.576] - Field: ‘asynchronous’ 1566s [00:52:46.577] - Field: ‘calls’ 1566s [00:52:46.577] - Field: ‘globals’ 1566s [00:52:46.577] - Field: ‘stdout’ 1566s [00:52:46.577] - Field: ‘earlySignal’ 1566s [00:52:46.577] - Field: ‘lazy’ 1566s [00:52:46.578] - Field: ‘state’ 1566s [00:52:46.578] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1566s [00:52:46.578] - Launch lazy future ... 1566s [00:52:46.578] Packages needed by the future expression (n = 0): 1566s [00:52:46.578] Packages needed by future strategies (n = 0): 1566s [00:52:46.579] { 1566s [00:52:46.579] { 1566s [00:52:46.579] { 1566s [00:52:46.579] ...future.startTime <- base::Sys.time() 1566s [00:52:46.579] { 1566s [00:52:46.579] { 1566s [00:52:46.579] { 1566s [00:52:46.579] base::local({ 1566s [00:52:46.579] has_future <- base::requireNamespace("future", 1566s [00:52:46.579] quietly = TRUE) 1566s [00:52:46.579] if (has_future) { 1566s [00:52:46.579] ns <- base::getNamespace("future") 1566s [00:52:46.579] version <- ns[[".package"]][["version"]] 1566s [00:52:46.579] if (is.null(version)) 1566s [00:52:46.579] version <- utils::packageVersion("future") 1566s [00:52:46.579] } 1566s [00:52:46.579] else { 1566s [00:52:46.579] version <- NULL 1566s [00:52:46.579] } 1566s [00:52:46.579] if (!has_future || version < "1.8.0") { 1566s [00:52:46.579] info <- base::c(r_version = base::gsub("R version ", 1566s [00:52:46.579] "", base::R.version$version.string), 1566s [00:52:46.579] platform = base::sprintf("%s (%s-bit)", 1566s [00:52:46.579] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1566s [00:52:46.579] os = base::paste(base::Sys.info()[base::c("sysname", 1566s [00:52:46.579] "release", "version")], collapse = " "), 1566s [00:52:46.579] hostname = base::Sys.info()[["nodename"]]) 1566s [00:52:46.579] info <- base::sprintf("%s: %s", base::names(info), 1566s [00:52:46.579] info) 1566s [00:52:46.579] info <- base::paste(info, collapse = "; ") 1566s [00:52:46.579] if (!has_future) { 1566s [00:52:46.579] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1566s [00:52:46.579] info) 1566s [00:52:46.579] } 1566s [00:52:46.579] else { 1566s [00:52:46.579] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1566s [00:52:46.579] info, version) 1566s [00:52:46.579] } 1566s [00:52:46.579] base::stop(msg) 1566s [00:52:46.579] } 1566s [00:52:46.579] }) 1566s [00:52:46.579] } 1566s [00:52:46.579] options(future.plan = NULL) 1566s [00:52:46.579] Sys.unsetenv("R_FUTURE_PLAN") 1566s [00:52:46.579] future::plan("default", .cleanup = FALSE, .init = FALSE) 1566s [00:52:46.579] } 1566s [00:52:46.579] ...future.workdir <- getwd() 1566s [00:52:46.579] } 1566s [00:52:46.579] ...future.oldOptions <- base::as.list(base::.Options) 1566s [00:52:46.579] ...future.oldEnvVars <- base::Sys.getenv() 1566s [00:52:46.579] } 1566s [00:52:46.579] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1566s [00:52:46.579] future.globals.maxSize = NULL, future.globals.method = NULL, 1566s [00:52:46.579] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1566s [00:52:46.579] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1566s [00:52:46.579] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1566s [00:52:46.579] future.stdout.windows.reencode = NULL, width = 80L) 1566s [00:52:46.579] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1566s [00:52:46.579] base::names(...future.oldOptions)) 1566s [00:52:46.579] } 1566s [00:52:46.579] if (FALSE) { 1566s [00:52:46.579] } 1566s [00:52:46.579] else { 1566s [00:52:46.579] if (TRUE) { 1566s [00:52:46.579] ...future.stdout <- base::rawConnection(base::raw(0L), 1566s [00:52:46.579] open = "w") 1566s [00:52:46.579] } 1566s [00:52:46.579] else { 1566s [00:52:46.579] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1566s [00:52:46.579] windows = "NUL", "/dev/null"), open = "w") 1566s [00:52:46.579] } 1566s [00:52:46.579] base::sink(...future.stdout, type = "output", split = FALSE) 1566s [00:52:46.579] base::on.exit(if (!base::is.null(...future.stdout)) { 1566s [00:52:46.579] base::sink(type = "output", split = FALSE) 1566s [00:52:46.579] base::close(...future.stdout) 1566s [00:52:46.579] }, add = TRUE) 1566s [00:52:46.579] } 1566s [00:52:46.579] ...future.frame <- base::sys.nframe() 1566s [00:52:46.579] ...future.conditions <- base::list() 1566s [00:52:46.579] ...future.rng <- base::globalenv()$.Random.seed 1566s [00:52:46.579] if (FALSE) { 1566s [00:52:46.579] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1566s [00:52:46.579] "...future.value", "...future.globalenv.names", ".Random.seed") 1566s [00:52:46.579] } 1566s [00:52:46.579] ...future.result <- base::tryCatch({ 1566s [00:52:46.579] base::withCallingHandlers({ 1566s [00:52:46.579] ...future.value <- base::withVisible(base::local({ 1566s [00:52:46.579] do.call(function(...) { 1566s [00:52:46.579] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1566s [00:52:46.579] if (!identical(...future.globals.maxSize.org, 1566s [00:52:46.579] ...future.globals.maxSize)) { 1566s [00:52:46.579] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1566s [00:52:46.579] on.exit(options(oopts), add = TRUE) 1566s [00:52:46.579] } 1566s [00:52:46.579] { 1566s [00:52:46.579] lapply(seq_along(...future.elements_ii), 1566s [00:52:46.579] FUN = function(jj) { 1566s [00:52:46.579] ...future.X_jj <- ...future.elements_ii[[jj]] 1566s [00:52:46.579] assign(".Random.seed", ...future.seeds_ii[[jj]], 1566s [00:52:46.579] envir = globalenv(), inherits = FALSE) 1566s [00:52:46.579] ...future.FUN(...future.X_jj, ...) 1566s [00:52:46.579] }) 1566s [00:52:46.579] } 1566s [00:52:46.579] }, args = future.call.arguments) 1566s [00:52:46.579] })) 1566s [00:52:46.579] future::FutureResult(value = ...future.value$value, 1566s [00:52:46.579] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1566s [00:52:46.579] ...future.rng), globalenv = if (FALSE) 1566s [00:52:46.579] list(added = base::setdiff(base::names(base::.GlobalEnv), 1566s [00:52:46.579] ...future.globalenv.names)) 1566s [00:52:46.579] else NULL, started = ...future.startTime, version = "1.8") 1566s [00:52:46.579] }, condition = base::local({ 1566s [00:52:46.579] c <- base::c 1566s [00:52:46.579] inherits <- base::inherits 1566s [00:52:46.579] invokeRestart <- base::invokeRestart 1566s [00:52:46.579] length <- base::length 1566s [00:52:46.579] list <- base::list 1566s [00:52:46.579] seq.int <- base::seq.int 1566s [00:52:46.579] signalCondition <- base::signalCondition 1566s [00:52:46.579] sys.calls <- base::sys.calls 1566s [00:52:46.579] `[[` <- base::`[[` 1566s [00:52:46.579] `+` <- base::`+` 1566s [00:52:46.579] `<<-` <- base::`<<-` 1566s [00:52:46.579] sysCalls <- function(calls = sys.calls(), from = 1L) { 1566s [00:52:46.579] calls[seq.int(from = from + 12L, to = length(calls) - 1566s [00:52:46.579] 3L)] 1566s [00:52:46.579] } 1566s [00:52:46.579] function(cond) { 1566s [00:52:46.579] is_error <- inherits(cond, "error") 1566s [00:52:46.579] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1566s [00:52:46.579] NULL) 1566s [00:52:46.579] if (is_error) { 1566s [00:52:46.579] sessionInformation <- function() { 1566s [00:52:46.579] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1566s [00:52:46.579] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1566s [00:52:46.579] search = base::search(), system = base::Sys.info()) 1566s [00:52:46.579] } 1566s [00:52:46.579] ...future.conditions[[length(...future.conditions) + 1566s [00:52:46.579] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1566s [00:52:46.579] cond$call), session = sessionInformation(), 1566s [00:52:46.579] timestamp = base::Sys.time(), signaled = 0L) 1566s [00:52:46.579] signalCondition(cond) 1566s [00:52:46.579] } 1566s [00:52:46.579] else if (!ignore && TRUE && inherits(cond, c("condition", 1566s [00:52:46.579] "immediateCondition"))) { 1566s [00:52:46.579] signal <- TRUE && inherits(cond, "immediateCondition") 1566s [00:52:46.579] ...future.conditions[[length(...future.conditions) + 1566s [00:52:46.579] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1566s [00:52:46.579] if (TRUE && !signal) { 1566s [00:52:46.579] muffleCondition <- function (cond, pattern = "^muffle") 1566s [00:52:46.579] { 1566s [00:52:46.579] inherits <- base::inherits 1566s [00:52:46.579] invokeRestart <- base::invokeRestart 1566s [00:52:46.579] is.null <- base::is.null 1566s [00:52:46.579] muffled <- FALSE 1566s [00:52:46.579] if (inherits(cond, "message")) { 1566s [00:52:46.579] muffled <- grepl(pattern, "muffleMessage") 1566s [00:52:46.579] if (muffled) 1566s [00:52:46.579] invokeRestart("muffleMessage") 1566s [00:52:46.579] } 1566s [00:52:46.579] else if (inherits(cond, "warning")) { 1566s [00:52:46.579] muffled <- grepl(pattern, "muffleWarning") 1566s [00:52:46.579] if (muffled) 1566s [00:52:46.579] invokeRestart("muffleWarning") 1566s [00:52:46.579] } 1566s [00:52:46.579] else if (inherits(cond, "condition")) { 1566s [00:52:46.579] if (!is.null(pattern)) { 1566s [00:52:46.579] computeRestarts <- base::computeRestarts 1566s [00:52:46.579] grepl <- base::grepl 1566s [00:52:46.579] restarts <- computeRestarts(cond) 1566s [00:52:46.579] for (restart in restarts) { 1566s [00:52:46.579] name <- restart$name 1566s [00:52:46.579] if (is.null(name)) 1566s [00:52:46.579] next 1566s [00:52:46.579] if (!grepl(pattern, name)) 1566s [00:52:46.579] next 1566s [00:52:46.579] invokeRestart(restart) 1566s [00:52:46.579] muffled <- TRUE 1566s [00:52:46.579] break 1566s [00:52:46.579] } 1566s [00:52:46.579] } 1566s [00:52:46.579] } 1566s [00:52:46.579] invisible(muffled) 1566s [00:52:46.579] } 1566s [00:52:46.579] muffleCondition(cond, pattern = "^muffle") 1566s [00:52:46.579] } 1566s [00:52:46.579] } 1566s [00:52:46.579] else { 1566s [00:52:46.579] if (TRUE) { 1566s [00:52:46.579] muffleCondition <- function (cond, pattern = "^muffle") 1566s [00:52:46.579] { 1566s [00:52:46.579] inherits <- base::inherits 1566s [00:52:46.579] invokeRestart <- base::invokeRestart 1566s [00:52:46.579] is.null <- base::is.null 1566s [00:52:46.579] muffled <- FALSE 1566s [00:52:46.579] if (inherits(cond, "message")) { 1566s [00:52:46.579] muffled <- grepl(pattern, "muffleMessage") 1566s [00:52:46.579] if (muffled) 1566s [00:52:46.579] invokeRestart("muffleMessage") 1566s [00:52:46.579] } 1566s [00:52:46.579] else if (inherits(cond, "warning")) { 1566s [00:52:46.579] muffled <- grepl(pattern, "muffleWarning") 1566s [00:52:46.579] if (muffled) 1566s [00:52:46.579] invokeRestart("muffleWarning") 1566s [00:52:46.579] } 1566s [00:52:46.579] else if (inherits(cond, "condition")) { 1566s [00:52:46.579] if (!is.null(pattern)) { 1566s [00:52:46.579] computeRestarts <- base::computeRestarts 1566s [00:52:46.579] grepl <- base::grepl 1566s [00:52:46.579] restarts <- computeRestarts(cond) 1566s [00:52:46.579] for (restart in restarts) { 1566s [00:52:46.579] name <- restart$name 1566s [00:52:46.579] if (is.null(name)) 1566s [00:52:46.579] next 1566s [00:52:46.579] if (!grepl(pattern, name)) 1566s [00:52:46.579] next 1566s [00:52:46.579] invokeRestart(restart) 1566s [00:52:46.579] muffled <- TRUE 1566s [00:52:46.579] break 1566s [00:52:46.579] } 1566s [00:52:46.579] } 1566s [00:52:46.579] } 1566s [00:52:46.579] invisible(muffled) 1566s [00:52:46.579] } 1566s [00:52:46.579] muffleCondition(cond, pattern = "^muffle") 1566s [00:52:46.579] } 1566s [00:52:46.579] } 1566s [00:52:46.579] } 1566s [00:52:46.579] })) 1566s [00:52:46.579] }, error = function(ex) { 1566s [00:52:46.579] base::structure(base::list(value = NULL, visible = NULL, 1566s [00:52:46.579] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1566s [00:52:46.579] ...future.rng), started = ...future.startTime, 1566s [00:52:46.579] finished = Sys.time(), session_uuid = NA_character_, 1566s [00:52:46.579] version = "1.8"), class = "FutureResult") 1566s [00:52:46.579] }, finally = { 1566s [00:52:46.579] if (!identical(...future.workdir, getwd())) 1566s [00:52:46.579] setwd(...future.workdir) 1566s [00:52:46.579] { 1566s [00:52:46.579] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1566s [00:52:46.579] ...future.oldOptions$nwarnings <- NULL 1566s [00:52:46.579] } 1566s [00:52:46.579] base::options(...future.oldOptions) 1566s [00:52:46.579] if (.Platform$OS.type == "windows") { 1566s [00:52:46.579] old_names <- names(...future.oldEnvVars) 1566s [00:52:46.579] envs <- base::Sys.getenv() 1566s [00:52:46.579] names <- names(envs) 1566s [00:52:46.579] common <- intersect(names, old_names) 1566s [00:52:46.579] added <- setdiff(names, old_names) 1566s [00:52:46.579] removed <- setdiff(old_names, names) 1566s [00:52:46.579] changed <- common[...future.oldEnvVars[common] != 1566s [00:52:46.579] envs[common]] 1566s [00:52:46.579] NAMES <- toupper(changed) 1566s [00:52:46.579] args <- list() 1566s [00:52:46.579] for (kk in seq_along(NAMES)) { 1566s [00:52:46.579] name <- changed[[kk]] 1566s [00:52:46.579] NAME <- NAMES[[kk]] 1566s [00:52:46.579] if (name != NAME && is.element(NAME, old_names)) 1566s [00:52:46.579] next 1566s [00:52:46.579] args[[name]] <- ...future.oldEnvVars[[name]] 1566s [00:52:46.579] } 1566s [00:52:46.579] NAMES <- toupper(added) 1566s [00:52:46.579] for (kk in seq_along(NAMES)) { 1566s [00:52:46.579] name <- added[[kk]] 1566s [00:52:46.579] NAME <- NAMES[[kk]] 1566s [00:52:46.579] if (name != NAME && is.element(NAME, old_names)) 1566s [00:52:46.579] next 1566s [00:52:46.579] args[[name]] <- "" 1566s [00:52:46.579] } 1566s [00:52:46.579] NAMES <- toupper(removed) 1566s [00:52:46.579] for (kk in seq_along(NAMES)) { 1566s [00:52:46.579] name <- removed[[kk]] 1566s [00:52:46.579] NAME <- NAMES[[kk]] 1566s [00:52:46.579] if (name != NAME && is.element(NAME, old_names)) 1566s [00:52:46.579] next 1566s [00:52:46.579] args[[name]] <- ...future.oldEnvVars[[name]] 1566s [00:52:46.579] } 1566s [00:52:46.579] if (length(args) > 0) 1566s [00:52:46.579] base::do.call(base::Sys.setenv, args = args) 1566s [00:52:46.579] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1566s [00:52:46.579] } 1566s [00:52:46.579] else { 1566s [00:52:46.579] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1566s [00:52:46.579] } 1566s [00:52:46.579] { 1566s [00:52:46.579] if (base::length(...future.futureOptionsAdded) > 1566s [00:52:46.579] 0L) { 1566s [00:52:46.579] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1566s [00:52:46.579] base::names(opts) <- ...future.futureOptionsAdded 1566s [00:52:46.579] base::options(opts) 1566s [00:52:46.579] } 1566s [00:52:46.579] { 1566s [00:52:46.579] { 1566s [00:52:46.579] base::assign(".Random.seed", c(10403L, 17L, 1566s [00:52:46.579] 133210212L, 1945833034L, 115858357L, -364452081L, 1566s [00:52:46.579] -390319082L, 926195392L, 2057013379L, -803887967L, 1566s [00:52:46.579] -1078998384L, 705296750L, -1682614503L, 830917547L, 1566s [00:52:46.579] -331376230L, 1352842588L, 1960957023L, 1997081653L, 1566s [00:52:46.579] 374446028L, 1510359842L, 1146109309L, -1295266185L, 1566s [00:52:46.579] -1545472098L, 1268700760L, 1627111355L, -855092903L, 1566s [00:52:46.579] -215790872L, -1958931690L, 1906054289L, -782874301L, 1566s [00:52:46.579] -399096750L, -1740777756L, 1763676455L, -832683651L, 1566s [00:52:46.579] 1369376884L, 430697050L, 1699587749L, -1503628097L, 1566s [00:52:46.579] 856180550L, -242424368L, -2127251469L, 505777937L, 1566s [00:52:46.579] 257347392L, -856180962L, 886024169L, -1464480485L, 1566s [00:52:46.579] -1512233174L, -1985955764L, -425390065L, 1566s [00:52:46.579] -589669563L, 381897980L, -790840494L, 1136483533L, 1566s [00:52:46.579] -1535370105L, -607934610L, 1641470280L, -1050403509L, 1566s [00:52:46.579] 1965932713L, 362996216L, 1596838182L, -1829498303L, 1566s [00:52:46.579] -1824465965L, 1872669058L, -417374796L, -1713346249L, 1566s [00:52:46.579] 1818328109L, -1284085436L, -1981489558L, 1566s [00:52:46.579] 1940543701L, 1673049711L, -1514495114L, 467096736L, 1566s [00:52:46.579] 943410531L, -1431020031L, 1115626864L, 965475598L, 1566s [00:52:46.579] -1718567047L, -793788661L, -1133789126L, 1566s [00:52:46.579] -80588996L, 2018258047L, 1866186709L, 42791404L, 1566s [00:52:46.579] -1823521982L, -1345991523L, -1672661737L, 1566s [00:52:46.579] -180777858L, -452713416L, 1448313627L, -1459492743L, 1566s [00:52:46.579] -600706872L, -909649674L, -2081822415L, -1697455773L, 1566s [00:52:46.579] 1517613874L, -820020092L, 188336327L, -1149897827L, 1566s [00:52:46.579] -475203820L, -368005702L, 204442629L, 437854687L, 1566s [00:52:46.579] 1163191398L, -760699920L, 104455443L, 819708593L, 1566s [00:52:46.579] 1129180512L, 48636670L, 1066049161L, 398150075L, 1566s [00:52:46.579] -852036726L, -906028436L, -1265740817L, -1824646107L, 1566s [00:52:46.579] -2126068516L, 1815435954L, -146408019L, -860012185L, 1566s [00:52:46.579] -682500466L, 1443186536L, 1789394795L, -1078204151L, 1566s [00:52:46.579] 809467800L, 1514112710L, -1097673695L, 919601331L, 1566s [00:52:46.579] -331916766L, 795008020L, 1042337943L, -371219827L, 1566s [00:52:46.579] 1558967204L, 1563528586L, -2133607947L, -1904454577L, 1566s [00:52:46.579] -264006826L, 770017792L, 153477955L, 1189667553L, 1566s [00:52:46.579] -363253680L, 1882362030L, 967246937L, -793119637L, 1566s [00:52:46.579] -1401964070L, 2129232540L, -542810977L, -1277899019L, 1566s [00:52:46.579] -377097332L, -406748574L, -1722157507L, -1577740105L, 1566s [00:52:46.579] -455170210L, 372239000L, -1535936005L, -1332632679L, 1566s [00:52:46.579] -1623884760L, -359633706L, 935827793L, 1357445123L, 1566s [00:52:46.579] 997040018L, -1506538204L, -147930137L, -166569923L, 1566s [00:52:46.579] -2103753036L, 1366641946L, 30482021L, 1876964095L, 1566s [00:52:46.579] 2008557446L, 657856784L, -103814733L, 774877777L, 1566s [00:52:46.579] -486350336L, -555057442L, -1821756119L, -963495717L, 1566s [00:52:46.579] 853311466L, 1671241612L, -942337841L, 409538693L, 1566s [00:52:46.579] 1992831804L, 489867794L, 357105933L, -1611412921L, 1566s [00:52:46.579] -1119334354L, -1521015416L, -2041922421L, 1566s [00:52:46.579] 2048874089L, -700216776L, 1651628774L, -10471807L, 1566s [00:52:46.579] 736942611L, 380607938L, -1742088588L, 1124231287L, 1566s [00:52:46.579] 1232111981L, -1801753084L, -1608606422L, 1566s [00:52:46.579] -1172096363L, 1420874031L, -1210473418L, 1566s [00:52:46.579] -18317216L, -571709789L, 1107403201L, 1952554416L, 1566s [00:52:46.579] 1991660750L, -442973639L, 581522507L, -430787078L, 1566s [00:52:46.579] 1105375484L, -1481218753L, -748152299L, -641535700L, 1566s [00:52:46.579] 679371266L, -591318819L, -104578089L, -172818754L, 1566s [00:52:46.579] -1321694984L, -98191653L, 1709083961L, -344680312L, 1566s [00:52:46.579] -159571914L, 581309553L, -63938909L, 76420082L, 1566s [00:52:46.579] 951019332L, -1797740537L, 1291470301L, -2079866156L, 1566s [00:52:46.579] -332493318L, -1978392251L, -1691039632L, 1566s [00:52:46.579] 388791868L, -1101109484L, -1365177662L, 321737440L, 1566s [00:52:46.579] 1812890748L, -133313328L, -1252731998L, 2044530216L, 1566s [00:52:46.579] 1263927564L, 325388220L, 520794418L, 1449646272L, 1566s [00:52:46.579] 87560756L, -87565624L, 426345146L, -699970416L, 1566s [00:52:46.579] 240322284L, -1074080172L, -1536268654L, 1338615584L, 1566s [00:52:46.579] 478476236L, -1933154080L, -192786750L, 1559942184L, 1566s [00:52:46.579] -1178330196L, -687617348L, -1701912078L, 1566s [00:52:46.579] 352314928L, -999229532L, -2052800072L, -1913644198L, 1566s [00:52:46.579] -1345416048L, 1816730492L, -1570431212L, 1566s [00:52:46.579] -269427390L, -2122969344L, -520963140L, 1398087504L, 1566s [00:52:46.579] 264692002L, -1682658744L, -1422452724L, -1601893284L, 1566s [00:52:46.579] -66383406L, 1443075584L, -456249004L, 943694056L, 1566s [00:52:46.579] -1493184262L, -1943836976L, -590788308L, 1566s [00:52:46.579] -405505804L, -1796837998L, 1991543136L, 1170376716L, 1566s [00:52:46.579] 1707420384L, 1899700834L, -1643595096L, 47299148L, 1566s [00:52:46.579] 1274857340L, -1205842638L, -1938479504L, 1566s [00:52:46.579] -1773978812L, 532695000L, 1306451834L, 258403888L, 1566s [00:52:46.579] -284747844L, -1780705708L, 1621936194L, 1129070752L, 1566s [00:52:46.579] 540946108L, -294270512L, -1426480286L, -356302104L, 1566s [00:52:46.579] 349847756L, 1849803260L, -1299125774L, 511654528L, 1566s [00:52:46.579] -1259964940L, -1879857528L, 535666490L, -2020097200L, 1566s [00:52:46.579] -1460751252L, 1201879444L, -1459788718L, 1566s [00:52:46.579] 447195616L, -730891060L, -1875530592L, -2146183806L, 1566s [00:52:46.579] 193274088L, -1224605972L, 1616153916L, -1896973198L, 1566s [00:52:46.579] -420945808L, -1997735900L, -1838404552L, 1566s [00:52:46.579] -413698278L, 1984019664L, -1760209092L, -1288743020L, 1566s [00:52:46.579] 392579970L, -1382567488L, -1295004100L, -33348208L, 1566s [00:52:46.579] 1536615970L, -428761848L, 643368588L, -1596336356L, 1566s [00:52:46.579] 1797431442L, 352422272L, -1043800556L, 60591912L, 1566s [00:52:46.579] -1115663814L, 1043682768L, 521144684L, 4793268L, 1566s [00:52:46.579] -1924265966L, 978890208L, 370048972L, -1607474976L, 1566s [00:52:46.579] -1443637214L, -632405720L, 691912204L, 166321980L, 1566s [00:52:46.579] 942193650L, 751741680L, 689743428L, -18455976L, 1566s [00:52:46.579] -1946329286L, -1619184144L, 239341244L, 371382548L, 1566s [00:52:46.579] -2069808446L, 154176608L, 385987452L, -385611824L, 1566s [00:52:46.579] 1967391010L, 2140654248L, 1720087436L, -1591007044L, 1566s [00:52:46.579] -1612486862L, 1295747648L, 1726784692L, 597326408L, 1566s [00:52:46.579] -973152838L, 628505104L, -1089631508L, 3230036L, 1566s [00:52:46.579] -593837806L, 244006304L, 1357912780L, 1839234656L, 1566s [00:52:46.579] -1357570110L, 1896595240L, -2066952276L, 1566s [00:52:46.579] -1724304580L, 986188146L, -1200604368L, -279100124L, 1566s [00:52:46.579] 131128120L, -1088465190L, 596533136L, 170602236L, 1566s [00:52:46.579] -1051262060L, 215660610L, -686217984L, 444449852L, 1566s [00:52:46.579] 769655120L, 236357794L, 181393736L, -13334772L, 1566s [00:52:46.579] 644690652L, -1969263278L, -2107982720L, 1429553236L, 1566s [00:52:46.579] 794236904L, 1997299962L, -458224816L, 904978220L, 1566s [00:52:46.579] -537093772L, -842839150L, 1828989024L, -679303796L, 1566s [00:52:46.579] 1396292448L, 76319202L, 1896098728L, 418430156L, 1566s [00:52:46.579] 2005956604L, 1370351026L, -1178923536L, -1154073660L, 1566s [00:52:46.579] -1218863784L, 89928058L, 816597936L, -1141767748L, 1566s [00:52:46.579] 1579714644L, 1343385538L, 371259424L, -245180228L, 1566s [00:52:46.579] 365724240L, 1606388706L, -823678872L, 1281309772L, 1566s [00:52:46.579] 1395210492L, 1217887218L, 1420531968L, 1349501300L, 1566s [00:52:46.579] 271647752L, -69959750L, 360452560L, 1565334508L, 1566s [00:52:46.579] 1956526484L, -930709038L, 1961808224L, -1745916084L, 1566s [00:52:46.579] 443656480L, 1990137730L, 694374120L, -1050566420L, 1566s [00:52:46.579] -1365842884L, -438961294L, -1851472272L, 1566s [00:52:46.579] 614534180L, 1401930552L, 3652762L, 1928284880L, 1566s [00:52:46.579] -1637703492L, 26107540L, -132725907L, -371944998L, 1566s [00:52:46.579] -1311388776L, 8516097L, 741008307L, -1149566252L, 1566s [00:52:46.579] -1802640414L, 2019636855L, 1587818433L, -151040698L, 1566s [00:52:46.579] 1598381188L, -205462987L, 1911327L, -1382519432L, 1566s [00:52:46.579] -594809770L, -2146766621L, -2013964635L, 1566s [00:52:46.579] -965534910L, -2077626064L, 1964788057L, 1821395659L, 1566s [00:52:46.579] -1953549508L, -719348886L, 1442511263L, 1969287209L, 1566s [00:52:46.579] 1754221246L, -442299476L, 1981692157L, 113456199L, 1566s [00:52:46.579] 1587794736L, -1811033010L, 1149417595L, -1760887843L, 1566s [00:52:46.579] -1426021878L, -1285634264L, 1507547537L, 1566s [00:52:46.579] -1114120317L, 1897370756L, 1142575794L, -375814649L, 1566s [00:52:46.579] -1661041071L, 881081814L, -548925260L, 2073840837L, 1566s [00:52:46.579] 1156484623L, 2011334280L, 1107815334L, 969024339L, 1566s [00:52:46.579] -55972683L, 2006780434L, -1486403616L, 1698650697L, 1566s [00:52:46.579] 1813794939L, -1717763764L, 1268815066L, -1200630577L, 1566s [00:52:46.579] -773717863L, -12215122L, 1354639804L, 1213207085L, 1566s [00:52:46.579] -978295337L, 340143136L, 485429630L, -568148149L, 1566s [00:52:46.579] 1257440589L, 930106234L, -883274312L, -1632538783L, 1566s [00:52:46.579] 894748435L, -1592959180L, -596177598L, 120963415L, 1566s [00:52:46.579] -1174532959L, -561474202L, 1438545764L, 1429911189L, 1566s [00:52:46.579] 1075965887L, 367866712L, -892333706L, -485158013L, 1566s [00:52:46.579] -682634811L, 963344098L, 2110199632L, 1990767225L, 1566s [00:52:46.579] 1348335019L, 269581084L, -2040640438L, 1453561919L, 1566s [00:52:46.579] 853952649L, 1195494558L, 1614051660L, 2040242461L, 1566s [00:52:46.579] -1604604761L, 1421229008L, -1268333714L, 1566s [00:52:46.579] 174113307L, 2044969853L, 190112106L, -998776824L, 1566s [00:52:46.579] -2070476623L, -2099222749L, 1141171236L, 1566s [00:52:46.579] -146426158L, -1797385433L, -1129376399L, 1566s [00:52:46.579] -1496589386L, -419561644L, -613549595L, 1243456495L, 1566s [00:52:46.579] 451212072L, 1923543942L, 1146113971L, 93579029L, 1566s [00:52:46.579] -397504142L, 597218752L, 459048489L, 1447221915L, 1566s [00:52:46.579] -272948372L, -373834886L, 934888623L, -2099351623L, 1566s [00:52:46.579] -1672042034L, 193924380L, -704518003L, 781993207L, 1566s [00:52:46.579] -258875392L, -1853783458L, 1315003691L, -41214419L, 1566s [00:52:46.579] -59447654L, 1203745368L, 426003905L, 452670067L, 1566s [00:52:46.579] -1092079724L, -1765622238L, -1882554057L, 1566s [00:52:46.579] 1278087169L, -1994822394L, -124954300L, 1994460277L, 1566s [00:52:46.579] 1816829407L, -1568282312L, 1563616022L, 1255996195L, 1566s [00:52:46.579] 1702121701L, 1784032514L, 1842995056L, 748060441L, 1566s [00:52:46.579] 1432229643L, -1905232900L, 2016890922L, 1403944031L, 1566s [00:52:46.579] 351712233L, 1338932478L, -1359366932L, -803018691L, 1566s [00:52:46.579] -1551885305L, 248629232L, 1839395726L, 1411789243L, 1566s [00:52:46.579] 840085405L, -1849000630L, -669518488L, -1453417647L, 1566s [00:52:46.579] -1527179197L, -377159356L, 1674525170L, -313742393L, 1566s [00:52:46.579] 865377681L, -1127426242L), envir = base::globalenv(), 1566s [00:52:46.579] inherits = FALSE) 1566s [00:52:46.579] NULL 1566s [00:52:46.579] } 1566s [00:52:46.579] options(future.plan = NULL) 1566s [00:52:46.579] if (is.na(NA_character_)) 1566s [00:52:46.579] Sys.unsetenv("R_FUTURE_PLAN") 1566s [00:52:46.579] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1566s [00:52:46.579] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1566s [00:52:46.579] envir = parent.frame()) 1566s [00:52:46.579] { 1566s [00:52:46.579] default_workers <- missing(workers) 1566s [00:52:46.579] if (is.function(workers)) 1566s [00:52:46.579] workers <- workers() 1566s [00:52:46.579] workers <- structure(as.integer(workers), 1566s [00:52:46.579] class = class(workers)) 1566s [00:52:46.579] stop_if_not(is.finite(workers), workers >= 1566s [00:52:46.579] 1L) 1566s [00:52:46.579] if ((workers == 1L && !inherits(workers, 1566s [00:52:46.579] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1566s [00:52:46.579] if (default_workers) 1566s [00:52:46.579] supportsMulticore(warn = TRUE) 1566s [00:52:46.579] return(sequential(..., envir = envir)) 1566s [00:52:46.579] } 1566s [00:52:46.579] oopts <- options(mc.cores = workers) 1566s [00:52:46.579] on.exit(options(oopts)) 1566s [00:52:46.579] future <- MulticoreFuture(..., workers = workers, 1566s [00:52:46.579] envir = envir) 1566s [00:52:46.579] if (!future$lazy) 1566s [00:52:46.579] future <- run(future) 1566s [00:52:46.579] invisible(future) 1566s [00:52:46.579] }), .cleanup = FALSE, .init = FALSE) 1566s [00:52:46.579] } 1566s [00:52:46.579] } 1566s [00:52:46.579] } 1566s [00:52:46.579] }) 1566s [00:52:46.579] if (TRUE) { 1566s [00:52:46.579] base::sink(type = "output", split = FALSE) 1566s [00:52:46.579] if (TRUE) { 1566s [00:52:46.579] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1566s [00:52:46.579] } 1566s [00:52:46.579] else { 1566s [00:52:46.579] ...future.result["stdout"] <- base::list(NULL) 1566s [00:52:46.579] } 1566s [00:52:46.579] base::close(...future.stdout) 1566s [00:52:46.579] ...future.stdout <- NULL 1566s [00:52:46.579] } 1566s [00:52:46.579] ...future.result$conditions <- ...future.conditions 1566s [00:52:46.579] ...future.result$finished <- base::Sys.time() 1566s [00:52:46.579] ...future.result 1566s [00:52:46.579] } 1566s [00:52:46.590] assign_globals() ... 1566s [00:52:46.590] List of 5 1566s [00:52:46.590] $ ...future.FUN :function (...) 1566s [00:52:46.590] $ future.call.arguments : list() 1566s [00:52:46.590] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1566s [00:52:46.590] $ ...future.elements_ii :List of 5 1566s [00:52:46.590] ..$ : int 0 1566s [00:52:46.590] ..$ : int 0 1566s [00:52:46.590] ..$ : int 0 1566s [00:52:46.590] ..$ : int 0 1566s [00:52:46.590] ..$ : int 0 1566s [00:52:46.590] $ ...future.seeds_ii :List of 5 1566s [00:52:46.590] ..$ : int [1:7] 10407 800596211 191202253 -1245543361 -1911991084 -470201595 630973807 1566s [00:52:46.590] ..$ : int [1:7] 10407 336362669 -1847432762 -712550016 1068830663 1731026700 1489470838 1566s [00:52:46.590] ..$ : int [1:7] 10407 2000585943 1277356830 -2089408352 -860958827 226502925 99834792 1566s [00:52:46.590] ..$ : int [1:7] 10407 -1366366742 -1587533199 -987670999 1146693195 -372746989 -1779846945 1566s [00:52:46.590] ..$ : int [1:7] 10407 -1326244930 -121340665 862160877 1069041468 -111293265 1245428870 1566s [00:52:46.590] $ ...future.globals.maxSize: NULL 1566s [00:52:46.590] - attr(*, "where")=List of 5 1566s [00:52:46.590] ..$ ...future.FUN : 1566s [00:52:46.590] ..$ future.call.arguments : 1566s [00:52:46.590] ..$ ...future.elements_ii : 1566s [00:52:46.590] ..$ ...future.seeds_ii : 1566s [00:52:46.590] ..$ ...future.globals.maxSize: 1566s [00:52:46.590] - attr(*, "resolved")= logi FALSE 1566s [00:52:46.590] - attr(*, "total_size")= num 616 1566s [00:52:46.590] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1566s [00:52:46.590] - attr(*, "already-done")= logi TRUE 1566s [00:52:46.601] - reassign environment for ‘...future.FUN’ 1566s [00:52:46.601] - copied ‘...future.FUN’ to environment 1566s [00:52:46.603] - copied ‘future.call.arguments’ to environment 1566s [00:52:46.603] - copied ‘...future.elements_ii’ to environment 1566s [00:52:46.604] - copied ‘...future.seeds_ii’ to environment 1566s [00:52:46.604] - copied ‘...future.globals.maxSize’ to environment 1566s [00:52:46.604] assign_globals() ... done 1566s [00:52:46.604] plan(): Setting new future strategy stack: 1566s [00:52:46.604] List of future strategies: 1566s [00:52:46.604] 1. sequential: 1566s [00:52:46.604] - args: function (..., envir = parent.frame()) 1566s [00:52:46.604] - tweaked: FALSE 1566s [00:52:46.604] - call: NULL 1566s [00:52:46.605] plan(): nbrOfWorkers() = 1 1566s [00:52:46.606] plan(): Setting new future strategy stack: 1566s [00:52:46.606] List of future strategies: 1566s [00:52:46.606] 1. multicore: 1566s [00:52:46.606] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1566s [00:52:46.606] - tweaked: FALSE 1566s [00:52:46.606] - call: plan(strategy) 1566s [00:52:46.609] plan(): nbrOfWorkers() = 1 1566s [00:52:46.610] SequentialFuture started (and completed) 1566s [00:52:46.610] - Launch lazy future ... done 1566s [00:52:46.610] run() for ‘SequentialFuture’ ... done 1566s [00:52:46.610] Created future: 1566s [00:52:46.610] SequentialFuture: 1566s [00:52:46.610] Label: ‘future_replicate-1’ 1566s [00:52:46.610] Expression: 1566s [00:52:46.610] { 1566s [00:52:46.610] do.call(function(...) { 1566s [00:52:46.610] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1566s [00:52:46.610] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1566s [00:52:46.610] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1566s [00:52:46.610] on.exit(options(oopts), add = TRUE) 1566s [00:52:46.610] } 1566s [00:52:46.610] { 1566s [00:52:46.610] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1566s [00:52:46.610] ...future.X_jj <- ...future.elements_ii[[jj]] 1566s [00:52:46.610] assign(".Random.seed", ...future.seeds_ii[[jj]], 1566s [00:52:46.610] envir = globalenv(), inherits = FALSE) 1566s [00:52:46.610] ...future.FUN(...future.X_jj, ...) 1566s [00:52:46.610] }) 1566s [00:52:46.610] } 1566s [00:52:46.610] }, args = future.call.arguments) 1566s [00:52:46.610] } 1566s [00:52:46.610] Lazy evaluation: FALSE 1566s [00:52:46.610] Asynchronous evaluation: FALSE 1566s [00:52:46.610] Local evaluation: TRUE 1566s [00:52:46.610] Environment: R_GlobalEnv 1566s [00:52:46.610] Capture standard output: TRUE 1566s [00:52:46.610] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1566s [00:52:46.610] Globals: 5 objects totaling 1.27 KiB (function ‘...future.FUN’ of 616 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 280 bytes, list ‘...future.seeds_ii’ of 400 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1566s [00:52:46.610] Packages: 1566s [00:52:46.610] L'Ecuyer-CMRG RNG seed: (seed = NULL) 1566s [00:52:46.610] Resolved: TRUE 1566s [00:52:46.610] Value: 280 bytes of class ‘list’ 1566s [00:52:46.610] Early signaling: FALSE 1566s [00:52:46.610] Owner process: 50289bf5-8c9f-f501-15c6-3ca1fa8d82cf 1566s [00:52:46.610] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1566s [00:52:46.612] Chunk #1 of 1 ... DONE 1566s [00:52:46.612] Launching 1 futures (chunks) ... DONE 1566s [00:52:46.613] Resolving 1 futures (chunks) ... 1566s [00:52:46.613] resolve() on list ... 1566s [00:52:46.613] recursive: 0 1566s [00:52:46.613] length: 1 1566s [00:52:46.613] 1566s [00:52:46.613] resolved() for ‘SequentialFuture’ ... 1566s [00:52:46.613] - state: ‘finished’ 1566s [00:52:46.613] - run: TRUE 1566s [00:52:46.613] - result: ‘FutureResult’ 1566s [00:52:46.614] resolved() for ‘SequentialFuture’ ... done 1566s [00:52:46.614] Future #1 1566s [00:52:46.614] signalConditionsASAP(SequentialFuture, pos=1) ... 1566s [00:52:46.614] - nx: 1 1566s [00:52:46.614] - relay: TRUE 1566s [00:52:46.614] - stdout: TRUE 1566s [00:52:46.614] - signal: TRUE 1566s [00:52:46.615] - resignal: FALSE 1566s [00:52:46.615] - force: TRUE 1566s [00:52:46.615] - relayed: [n=1] FALSE 1566s [00:52:46.615] - queued futures: [n=1] FALSE 1566s [00:52:46.615] - until=1 1566s [00:52:46.615] - relaying element #1 1566s [00:52:46.615] - relayed: [n=1] TRUE 1566s [00:52:46.616] - queued futures: [n=1] TRUE 1566s [00:52:46.616] signalConditionsASAP(SequentialFuture, pos=1) ... done 1566s [00:52:46.616] length: 0 (resolved future 1) 1566s [00:52:46.616] Relaying remaining futures 1566s [00:52:46.616] signalConditionsASAP(NULL, pos=0) ... 1566s [00:52:46.616] - nx: 1 1566s [00:52:46.616] - relay: TRUE 1566s [00:52:46.617] - stdout: TRUE 1566s [00:52:46.617] - signal: TRUE 1566s [00:52:46.617] - resignal: FALSE 1566s [00:52:46.617] - force: TRUE 1566s [00:52:46.617] - relayed: [n=1] TRUE 1566s [00:52:46.617] - queued futures: [n=1] TRUE 1566s - flush all 1566s [00:52:46.617] - relayed: [n=1] TRUE 1566s [00:52:46.617] - queued futures: [n=1] TRUE 1566s [00:52:46.618] signalConditionsASAP(NULL, pos=0) ... done 1566s [00:52:46.618] resolve() on list ... DONE 1566s [00:52:46.618] - Number of value chunks collected: 1 1566s [00:52:46.618] Resolving 1 futures (chunks) ... DONE 1566s [00:52:46.618] Reducing values from 1 chunks ... 1566s [00:52:46.618] - Number of values collected after concatenation: 5 1566s [00:52:46.619] - Number of values expected: 5 1566s [00:52:46.619] Reducing values from 1 chunks ... DONE 1566s [00:52:46.619] future_lapply() ... DONE 1566s [00:52:46.619] future_lapply() ... 1566s [00:52:46.619] Generating random seeds ... 1566s [00:52:46.620] Generating random seed streams for 5 elements ... 1566s [00:52:46.620] Generating random seed streams for 5 elements ... DONE 1566s [00:52:46.620] Generating random seeds ... DONE 1566s [00:52:46.620] Will set RNG state on exit: 10403, 2, 133210212, 1945833034, 115858357, -364452081, -390319082, 926195392, 2057013379, -803887967, -1078998384, 705296750, -1682614503, 830917547, -331376230, 1352842588, 1960957023, 1997081653, 374446028, 1510359842, 1146109309, -1295266185, -1545472098, 1268700760, 1627111355, -855092903, -215790872, -1958931690, 1906054289, -782874301, -399096750, -1740777756, 1763676455, -832683651, 1369376884, 430697050, 1699587749, -1503628097, 856180550, -242424368, -2127251469, 505777937, 257347392, -856180962, 886024169, -1464480485, -1512233174, -1985955764, -425390065, -589669563, 381897980, -790840494, 1136483533, -1535370105, -607934610, 1641470280, -1050403509, 1965932713, 362996216, 1596838182, -1829498303, -1824465965, 1872669058, -417374796, -1713346249, 1818328109, -1284085436, -1981489558, 1940543701, 1673049711, -1514495114, 467096736, 943410531, -1431020031, 1115626864, 965475598, -1718567047, -793788661, -1133789126, -80588996, 2018258047, 1866186709, 42791404, -1823521982, -1345991523, -1672661737, -180777858, -452713416, 1448313627, -1459492743, -600706872, -909649674, -2081822415, -1697455773, 1517613874, -820020092, 188336327, -1149897827, -475203820, -368005702, 204442629, 437854687, 1163191398, -760699920, 104455443, 819708593, 1129180512, 48636670, 1066049161, 398150075, -852036726, -906028436, -1265740817, -1824646107, -2126068516, 1815435954, -146408019, -860012185, -682500466, 1443186536, 1789394795, -1078204151, 809467800, 1514112710, -1097673695, 919601331, -331916766, 795008020, 1042337943, -371219827, 1558967204, 1563528586, -2133607947, -1904454577, -264006826, 770017792, 153477955, 1189667553, -363253680, 1882362030, 967246937, -793119637, -1401964070, 2129232540, -542810977, -1277899019, -377097332, -406748574, -1722157507, -1577740105, -455170210, 372239000, -1535936005, -1332632679, -1623884760, -359633706, 935827793, 1357445123, 997040018, -1506538204, -147930137, -166569923, -2103753036, 1366641946, 30482021, 1876964095, 2008557446, 657856784, -103814733, 774877777, -486350336, -555057442, -1821756119, -963495717, 853311466, 1671241612, -942337841, 409538693, 1992831804, 489867794, 357105933, -1611412921, -1119334354, -1521015416, -2041922421, 2048874089, -700216776, 1651628774, -10471807, 736942611, 380607938, -1742088588, 1124231287, 1232111981, -1801753084, -1608606422, -1172096363, 1420874031, -1210473418, -18317216, -571709789, 1107403201, 1952554416, 1991660750, -442973639, 581522507, -430787078, 1105375484, -1481218753, -748152299, -641535700, 679371266, -591318819, -104578089, -172818754, -1321694984, -98191653, 1709083961, -344680312, -159571914, 581309553, -63938909, 76420082, 951019332, -1797740537, 1291470301, -2079866156, -332493318, -1978392251, -1691039632, 388791868, -1101109484, -1365177662, 321737440, 1812890748, -133313328, -1252731998, 2044530216, 1263927564, 325388220, 520794418, 1449646272, 87560756, -87565624, 426345146, -699970416, 240322284, -1074080172, -1536268654, 1338615584, 478476236, -1933154080, -192786750, 1559942184, -1178330196, -687617348, -1701912078, 352314928, -999229532, -2052800072, -1913644198, -1345416048, 1816730492, -1570431212, -269427390, -2122969344, -520963140, 1398087504, 264692002, -1682658744, -1422452724, -1601893284, -66383406, 1443075584, -456249004, 943694056, -1493184262, -1943836976, -590788308, -405505804, -1796837998, 1991543136, 1170376716, 1707420384, 1899700834, -1643595096, 47299148, 1274857340, -1205842638, -1938479504, -1773978812, 532695000, 1306451834, 258403888, -284747844, -1780705708, 1621936194, 1129070752, 540946108, -294270512, -1426480286, -356302104, 349847756, 1849803260, -1299125774, 511654528, -1259964940, -1879857528, 535666490, -2020097200, -1460751252, 1201879444, -1459788718, 447195616, -730891060, -1875530592, -2146183806, 193274088, -1224605972, 1616153916, -1896973198, -420945808, -1997735900, -1838404552, -413698278, 1984019664, -1760209092, -1288743020, 392579970, -1382567488, -1295004100, -33348208, 1536615970, -428761848, 643368588, -1596336356, 1797431442, 352422272, -1043800556, 60591912, -1115663814, 1043682768, 521144684, 4793268, -1924265966, 978890208, 370048972, -1607474976, -1443637214, -632405720, 691912204, 166321980, 942193650, 751741680, 689743428, -18455976, -1946329286, -1619184144, 239341244, 371382548, -2069808446, 154176608, 385987452, -385611824, 1967391010, 2140654248, 1720087436, -1591007044, -1612486862, 1295747648, 1726784692, 597326408, -973152838, 628505104, -1089631508, 3230036, -593837806, 244006304, 1357912780, 1839234656, -1357570110, 1896595240, -2066952276, -1724304580, 986188146, -1200604368, -279100124, 131128120, -1088465190, 596533136, 170602236, -1051262060, 215660610, -686217984, 444449852, 769655120, 236357794, 181393736, -13334772, 644690652, -1969263278, -2107982720, 1429553236, 794236904, 1997299962, -458224816, 904978220, -537093772, -842839150, 1828989024, -679303796, 1396292448, 76319202, 1896098728, 418430156, 2005956604, 1370351026, -1178923536, -1154073660, -1218863784, 89928058, 816597936, -1141767748, 1579714644, 1343385538, 371259424, -245180228, 365724240, 1606388706, -823678872, 1281309772, 1395210492, 1217887218, 1420531968, 1349501300, 271647752, -69959750, 360452560, 1565334508, 1956526484, -930709038, 1961808224, -1745916084, 443656480, 1990137730, 694374120, -1050566420, -1365842884, -438961294, -1851472272, 614534180, 1401930552, 3652762, 1928284880, -1637703492, 26107540, -132725907, -371944998, -1311388776, 8516097, 741008307, -1149566252, -1802640414, 2019636855, 1587818433, -151040698, 1598381188, -205462987, 1911327, -1382519432, -594809770, -2146766621, -2013964635, -965534910, -2077626064, 1964788057, 1821395659, -1953549508, -719348886, 1442511263, 1969287209, 1754221246, -442299476, 1981692157, 113456199, 1587794736, -1811033010, 1149417595, -1760887843, -1426021878, -1285634264, 1507547537, -1114120317, 1897370756, 1142575794, -375814649, -1661041071, 881081814, -548925260, 2073840837, 1156484623, 2011334280, 1107815334, 969024339, -55972683, 2006780434, -1486403616, 1698650697, 1813794939, -1717763764, 1268815066, -1200630577, -773717863, -12215122, 1354639804, 1213207085, -978295337, 340143136, 485429630, -568148149, 1257440589, 930106234, -883274312, -1632538783, 894748435, -1592959180, -596177598, 120963415, -1174532959, -561474202, 1438545764, 1429911189, 1075965887, 367866712, -892333706, -485158013, -682634811, 963344098, 2110199632, 1990767225, 1348335019, 269581084, -2040640438, 1453561919, 853952649, 1195494558, 1614051660, 2040242461, -1604604761, 1421229008, -1268333714, 174113307, 2044969853, 190112106, -998776824, -2070476623, -2099222749, 1141171236, -146426158, -1797385433, -1129376399, -1496589386, -419561644, -613549595, 1243456495, 451212072, 1923543942, 1146113971, 93579029, -397504142, 597218752, 459048489, 1447221915, -272948372, -373834886, 934888623, -2099351623, -1672042034, 193924380, -704518003, 781993207, -258875392, -1853783458, 1315003691, -41214419, -59447654, 1203745368, 426003905, 452670067, -1092079724, -1765622238, -1882554057, 1278087169, -1994822394, -124954300, 1994460277, 1816829407, -1568282312, 1563616022, 1255996195, 1702121701, 1784032514, 1842995056, 748060441, 1432229643, -1905232900, 2016890922, 1403944031, 351712233, 1338932478, -1359366932, -803018691, -1551885305, 248629232, 1839395726, 1411789243, 840085405, -1849000630, -669518488, -1453417647, -1527179197, -377159356, 1674525170, -313742393, 865377681, -1127426242 1566s [00:52:46.627] Number of chunks: 1 1566s [00:52:46.628] getGlobalsAndPackagesXApply() ... 1566s [00:52:46.628] - future.globals: TRUE 1566s [00:52:46.628] getGlobalsAndPackages() ... 1566s [00:52:46.629] Searching for globals... 1566s [00:52:46.631] - globals found: [2] ‘FUN’, ‘sample’ 1566s [00:52:46.631] Searching for globals ... DONE 1566s [00:52:46.631] Resolving globals: FALSE 1566s [00:52:46.632] The total size of the 1 globals is 616 bytes (616 bytes) 1566s [00:52:46.632] The total size of the 1 globals exported for future expression (‘FUN()’) is 616 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (616 bytes of class ‘function’) 1566s [00:52:46.632] - globals: [1] ‘FUN’ 1566s [00:52:46.633] 1566s [00:52:46.633] getGlobalsAndPackages() ... DONE 1566s [00:52:46.633] - globals found/used: [n=1] ‘FUN’ 1566s [00:52:46.633] - needed namespaces: [n=0] 1566s [00:52:46.633] Finding globals ... DONE 1566s [00:52:46.633] - use_args: TRUE 1566s [00:52:46.634] - Getting '...' globals ... 1566s [00:52:46.634] resolve() on list ... 1566s [00:52:46.634] recursive: 0 1566s [00:52:46.635] length: 1 1566s [00:52:46.635] elements: ‘...’ 1566s [00:52:46.635] length: 0 (resolved future 1) 1566s [00:52:46.635] resolve() on list ... DONE 1566s [00:52:46.635] - '...' content: [n=0] 1566s [00:52:46.635] List of 1 1566s [00:52:46.635] $ ...: list() 1566s [00:52:46.635] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1566s [00:52:46.635] - attr(*, "where")=List of 1 1566s [00:52:46.635] ..$ ...: 1566s [00:52:46.635] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1566s [00:52:46.635] - attr(*, "resolved")= logi TRUE 1566s [00:52:46.635] - attr(*, "total_size")= num NA 1566s [00:52:46.639] - Getting '...' globals ... DONE 1566s [00:52:46.639] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1566s [00:52:46.639] List of 2 1566s [00:52:46.639] $ ...future.FUN:function (...) 1566s [00:52:46.639] $ ... : list() 1566s [00:52:46.639] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1566s [00:52:46.639] - attr(*, "where")=List of 2 1566s [00:52:46.639] ..$ ...future.FUN: 1566s [00:52:46.639] ..$ ... : 1566s [00:52:46.639] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1566s [00:52:46.639] - attr(*, "resolved")= logi FALSE 1566s [00:52:46.639] - attr(*, "total_size")= num 616 1566s [00:52:46.644] Packages to be attached in all futures: [n=0] 1566s [00:52:46.644] getGlobalsAndPackagesXApply() ... DONE 1566s [00:52:46.644] Number of futures (= number of chunks): 1 1566s [00:52:46.645] Launching 1 futures (chunks) ... 1566s [00:52:46.645] Chunk #1 of 1 ... 1566s [00:52:46.645] - Finding globals in 'X' for chunk #1 ... 1566s [00:52:46.645] getGlobalsAndPackages() ... 1566s [00:52:46.647] Searching for globals... 1566s [00:52:46.647] 1566s [00:52:46.648] Searching for globals ... DONE 1566s [00:52:46.648] - globals: [0] 1566s [00:52:46.648] getGlobalsAndPackages() ... DONE 1566s [00:52:46.648] + additional globals found: [n=0] 1566s [00:52:46.648] + additional namespaces needed: [n=0] 1566s [00:52:46.648] - Finding globals in 'X' for chunk #1 ... DONE 1566s [00:52:46.649] - seeds: [5] 1566s [00:52:46.649] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1566s [00:52:46.649] getGlobalsAndPackages() ... 1566s [00:52:46.650] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1566s [00:52:46.650] Resolving globals: FALSE 1566s [00:52:46.650] Tweak future expression to call with '...' arguments ... 1566s [00:52:46.650] { 1566s [00:52:46.650] do.call(function(...) { 1566s [00:52:46.650] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1566s [00:52:46.650] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1566s [00:52:46.650] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1566s [00:52:46.650] on.exit(options(oopts), add = TRUE) 1566s [00:52:46.650] } 1566s [00:52:46.650] { 1566s [00:52:46.650] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1566s [00:52:46.650] ...future.X_jj <- ...future.elements_ii[[jj]] 1566s [00:52:46.650] assign(".Random.seed", ...future.seeds_ii[[jj]], 1566s [00:52:46.650] envir = globalenv(), inherits = FALSE) 1566s [00:52:46.650] ...future.FUN(...future.X_jj, ...) 1566s [00:52:46.650] }) 1566s [00:52:46.650] } 1566s [00:52:46.650] }, args = future.call.arguments) 1566s [00:52:46.650] } 1566s [00:52:46.651] Tweak future expression to call with '...' arguments ... DONE 1566s [00:52:46.652] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1566s [00:52:46.652] 1566s [00:52:46.653] getGlobalsAndPackages() ... DONE 1566s [00:52:46.653] run() for ‘Future’ ... 1566s [00:52:46.654] - state: ‘created’ 1566s [00:52:46.654] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1566s [00:52:46.657] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1566s [00:52:46.658] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1566s [00:52:46.658] - Field: ‘label’ 1566s [00:52:46.658] - Field: ‘local’ 1566s [00:52:46.658] - Field: ‘owner’ 1566s [00:52:46.659] - Field: ‘envir’ 1566s [00:52:46.659] - Field: ‘packages’ 1566s [00:52:46.659] - Field: ‘gc’ 1566s [00:52:46.659] - Field: ‘conditions’ 1566s [00:52:46.659] - Field: ‘expr’ 1566s [00:52:46.659] - Field: ‘uuid’ 1566s [00:52:46.660] - Field: ‘seed’ 1566s [00:52:46.660] - Field: ‘version’ 1566s [00:52:46.660] - Field: ‘result’ 1566s [00:52:46.660] - Field: ‘asynchronous’ 1566s [00:52:46.661] - Field: ‘calls’ 1566s [00:52:46.661] - Field: ‘globals’ 1566s [00:52:46.661] - Field: ‘stdout’ 1566s [00:52:46.661] - Field: ‘earlySignal’ 1566s [00:52:46.661] - Field: ‘lazy’ 1566s [00:52:46.661] - Field: ‘state’ 1566s [00:52:46.662] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1566s [00:52:46.662] - Launch lazy future ... 1566s [00:52:46.662] Packages needed by the future expression (n = 0): 1566s [00:52:46.662] Packages needed by future strategies (n = 0): 1566s [00:52:46.663] { 1566s [00:52:46.663] { 1566s [00:52:46.663] { 1566s [00:52:46.663] ...future.startTime <- base::Sys.time() 1566s [00:52:46.663] { 1566s [00:52:46.663] { 1566s [00:52:46.663] { 1566s [00:52:46.663] base::local({ 1566s [00:52:46.663] has_future <- base::requireNamespace("future", 1566s [00:52:46.663] quietly = TRUE) 1566s [00:52:46.663] if (has_future) { 1566s [00:52:46.663] ns <- base::getNamespace("future") 1566s [00:52:46.663] version <- ns[[".package"]][["version"]] 1566s [00:52:46.663] if (is.null(version)) 1566s [00:52:46.663] version <- utils::packageVersion("future") 1566s [00:52:46.663] } 1566s [00:52:46.663] else { 1566s [00:52:46.663] version <- NULL 1566s [00:52:46.663] } 1566s [00:52:46.663] if (!has_future || version < "1.8.0") { 1566s [00:52:46.663] info <- base::c(r_version = base::gsub("R version ", 1566s [00:52:46.663] "", base::R.version$version.string), 1566s [00:52:46.663] platform = base::sprintf("%s (%s-bit)", 1566s [00:52:46.663] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1566s [00:52:46.663] os = base::paste(base::Sys.info()[base::c("sysname", 1566s [00:52:46.663] "release", "version")], collapse = " "), 1566s [00:52:46.663] hostname = base::Sys.info()[["nodename"]]) 1566s [00:52:46.663] info <- base::sprintf("%s: %s", base::names(info), 1566s [00:52:46.663] info) 1566s [00:52:46.663] info <- base::paste(info, collapse = "; ") 1566s [00:52:46.663] if (!has_future) { 1566s [00:52:46.663] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1566s [00:52:46.663] info) 1566s [00:52:46.663] } 1566s [00:52:46.663] else { 1566s [00:52:46.663] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1566s [00:52:46.663] info, version) 1566s [00:52:46.663] } 1566s [00:52:46.663] base::stop(msg) 1566s [00:52:46.663] } 1566s [00:52:46.663] }) 1566s [00:52:46.663] } 1566s [00:52:46.663] options(future.plan = NULL) 1566s [00:52:46.663] Sys.unsetenv("R_FUTURE_PLAN") 1566s [00:52:46.663] future::plan("default", .cleanup = FALSE, .init = FALSE) 1566s [00:52:46.663] } 1566s [00:52:46.663] ...future.workdir <- getwd() 1566s [00:52:46.663] } 1566s [00:52:46.663] ...future.oldOptions <- base::as.list(base::.Options) 1566s [00:52:46.663] ...future.oldEnvVars <- base::Sys.getenv() 1566s [00:52:46.663] } 1566s [00:52:46.663] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1566s [00:52:46.663] future.globals.maxSize = NULL, future.globals.method = NULL, 1566s [00:52:46.663] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1566s [00:52:46.663] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1566s [00:52:46.663] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1566s [00:52:46.663] future.stdout.windows.reencode = NULL, width = 80L) 1566s [00:52:46.663] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1566s [00:52:46.663] base::names(...future.oldOptions)) 1566s [00:52:46.663] } 1566s [00:52:46.663] if (FALSE) { 1566s [00:52:46.663] } 1566s [00:52:46.663] else { 1566s [00:52:46.663] if (TRUE) { 1566s [00:52:46.663] ...future.stdout <- base::rawConnection(base::raw(0L), 1566s [00:52:46.663] open = "w") 1566s [00:52:46.663] } 1566s [00:52:46.663] else { 1566s [00:52:46.663] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1566s [00:52:46.663] windows = "NUL", "/dev/null"), open = "w") 1566s [00:52:46.663] } 1566s [00:52:46.663] base::sink(...future.stdout, type = "output", split = FALSE) 1566s [00:52:46.663] base::on.exit(if (!base::is.null(...future.stdout)) { 1566s [00:52:46.663] base::sink(type = "output", split = FALSE) 1566s [00:52:46.663] base::close(...future.stdout) 1566s [00:52:46.663] }, add = TRUE) 1566s [00:52:46.663] } 1566s [00:52:46.663] ...future.frame <- base::sys.nframe() 1566s [00:52:46.663] ...future.conditions <- base::list() 1566s [00:52:46.663] ...future.rng <- base::globalenv()$.Random.seed 1566s [00:52:46.663] if (FALSE) { 1566s [00:52:46.663] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1566s [00:52:46.663] "...future.value", "...future.globalenv.names", ".Random.seed") 1566s [00:52:46.663] } 1566s [00:52:46.663] ...future.result <- base::tryCatch({ 1566s [00:52:46.663] base::withCallingHandlers({ 1566s [00:52:46.663] ...future.value <- base::withVisible(base::local({ 1566s [00:52:46.663] do.call(function(...) { 1566s [00:52:46.663] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1566s [00:52:46.663] if (!identical(...future.globals.maxSize.org, 1566s [00:52:46.663] ...future.globals.maxSize)) { 1566s [00:52:46.663] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1566s [00:52:46.663] on.exit(options(oopts), add = TRUE) 1566s [00:52:46.663] } 1566s [00:52:46.663] { 1566s [00:52:46.663] lapply(seq_along(...future.elements_ii), 1566s [00:52:46.663] FUN = function(jj) { 1566s [00:52:46.663] ...future.X_jj <- ...future.elements_ii[[jj]] 1566s [00:52:46.663] assign(".Random.seed", ...future.seeds_ii[[jj]], 1566s [00:52:46.663] envir = globalenv(), inherits = FALSE) 1566s [00:52:46.663] ...future.FUN(...future.X_jj, ...) 1566s [00:52:46.663] }) 1566s [00:52:46.663] } 1566s [00:52:46.663] }, args = future.call.arguments) 1566s [00:52:46.663] })) 1566s [00:52:46.663] future::FutureResult(value = ...future.value$value, 1566s [00:52:46.663] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1566s [00:52:46.663] ...future.rng), globalenv = if (FALSE) 1566s [00:52:46.663] list(added = base::setdiff(base::names(base::.GlobalEnv), 1566s [00:52:46.663] ...future.globalenv.names)) 1566s [00:52:46.663] else NULL, started = ...future.startTime, version = "1.8") 1566s [00:52:46.663] }, condition = base::local({ 1566s [00:52:46.663] c <- base::c 1566s [00:52:46.663] inherits <- base::inherits 1566s [00:52:46.663] invokeRestart <- base::invokeRestart 1566s [00:52:46.663] length <- base::length 1566s [00:52:46.663] list <- base::list 1566s [00:52:46.663] seq.int <- base::seq.int 1566s [00:52:46.663] signalCondition <- base::signalCondition 1566s [00:52:46.663] sys.calls <- base::sys.calls 1566s [00:52:46.663] `[[` <- base::`[[` 1566s [00:52:46.663] `+` <- base::`+` 1566s [00:52:46.663] `<<-` <- base::`<<-` 1566s [00:52:46.663] sysCalls <- function(calls = sys.calls(), from = 1L) { 1566s [00:52:46.663] calls[seq.int(from = from + 12L, to = length(calls) - 1566s [00:52:46.663] 3L)] 1566s [00:52:46.663] } 1566s [00:52:46.663] function(cond) { 1566s [00:52:46.663] is_error <- inherits(cond, "error") 1566s [00:52:46.663] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1566s [00:52:46.663] NULL) 1566s [00:52:46.663] if (is_error) { 1566s [00:52:46.663] sessionInformation <- function() { 1566s [00:52:46.663] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1566s [00:52:46.663] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1566s [00:52:46.663] search = base::search(), system = base::Sys.info()) 1566s [00:52:46.663] } 1566s [00:52:46.663] ...future.conditions[[length(...future.conditions) + 1566s [00:52:46.663] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1566s [00:52:46.663] cond$call), session = sessionInformation(), 1566s [00:52:46.663] timestamp = base::Sys.time(), signaled = 0L) 1566s [00:52:46.663] signalCondition(cond) 1566s [00:52:46.663] } 1566s [00:52:46.663] else if (!ignore && TRUE && inherits(cond, c("condition", 1566s [00:52:46.663] "immediateCondition"))) { 1566s [00:52:46.663] signal <- TRUE && inherits(cond, "immediateCondition") 1566s [00:52:46.663] ...future.conditions[[length(...future.conditions) + 1566s [00:52:46.663] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1566s [00:52:46.663] if (TRUE && !signal) { 1566s [00:52:46.663] muffleCondition <- function (cond, pattern = "^muffle") 1566s [00:52:46.663] { 1566s [00:52:46.663] inherits <- base::inherits 1566s [00:52:46.663] invokeRestart <- base::invokeRestart 1566s [00:52:46.663] is.null <- base::is.null 1566s [00:52:46.663] muffled <- FALSE 1566s [00:52:46.663] if (inherits(cond, "message")) { 1566s [00:52:46.663] muffled <- grepl(pattern, "muffleMessage") 1566s [00:52:46.663] if (muffled) 1566s [00:52:46.663] invokeRestart("muffleMessage") 1566s [00:52:46.663] } 1566s [00:52:46.663] else if (inherits(cond, "warning")) { 1566s [00:52:46.663] muffled <- grepl(pattern, "muffleWarning") 1566s [00:52:46.663] if (muffled) 1566s [00:52:46.663] invokeRestart("muffleWarning") 1566s [00:52:46.663] } 1566s [00:52:46.663] else if (inherits(cond, "condition")) { 1566s [00:52:46.663] if (!is.null(pattern)) { 1566s [00:52:46.663] computeRestarts <- base::computeRestarts 1566s [00:52:46.663] grepl <- base::grepl 1566s [00:52:46.663] restarts <- computeRestarts(cond) 1566s [00:52:46.663] for (restart in restarts) { 1566s [00:52:46.663] name <- restart$name 1566s [00:52:46.663] if (is.null(name)) 1566s [00:52:46.663] next 1566s [00:52:46.663] if (!grepl(pattern, name)) 1566s [00:52:46.663] next 1566s [00:52:46.663] invokeRestart(restart) 1566s [00:52:46.663] muffled <- TRUE 1566s [00:52:46.663] break 1566s [00:52:46.663] } 1566s [00:52:46.663] } 1566s [00:52:46.663] } 1566s [00:52:46.663] invisible(muffled) 1566s [00:52:46.663] } 1566s [00:52:46.663] muffleCondition(cond, pattern = "^muffle") 1566s [00:52:46.663] } 1566s [00:52:46.663] } 1566s [00:52:46.663] else { 1566s [00:52:46.663] if (TRUE) { 1566s [00:52:46.663] muffleCondition <- function (cond, pattern = "^muffle") 1566s [00:52:46.663] { 1566s [00:52:46.663] inherits <- base::inherits 1566s [00:52:46.663] invokeRestart <- base::invokeRestart 1566s [00:52:46.663] is.null <- base::is.null 1566s [00:52:46.663] muffled <- FALSE 1566s [00:52:46.663] if (inherits(cond, "message")) { 1566s [00:52:46.663] muffled <- grepl(pattern, "muffleMessage") 1566s [00:52:46.663] if (muffled) 1566s [00:52:46.663] invokeRestart("muffleMessage") 1566s [00:52:46.663] } 1566s [00:52:46.663] else if (inherits(cond, "warning")) { 1566s [00:52:46.663] muffled <- grepl(pattern, "muffleWarning") 1566s [00:52:46.663] if (muffled) 1566s [00:52:46.663] invokeRestart("muffleWarning") 1566s [00:52:46.663] } 1566s [00:52:46.663] else if (inherits(cond, "condition")) { 1566s [00:52:46.663] if (!is.null(pattern)) { 1566s [00:52:46.663] computeRestarts <- base::computeRestarts 1566s [00:52:46.663] grepl <- base::grepl 1566s [00:52:46.663] restarts <- computeRestarts(cond) 1566s [00:52:46.663] for (restart in restarts) { 1566s [00:52:46.663] name <- restart$name 1566s [00:52:46.663] if (is.null(name)) 1566s [00:52:46.663] next 1566s [00:52:46.663] if (!grepl(pattern, name)) 1566s [00:52:46.663] next 1566s [00:52:46.663] invokeRestart(restart) 1566s [00:52:46.663] muffled <- TRUE 1566s [00:52:46.663] break 1566s [00:52:46.663] } 1566s [00:52:46.663] } 1566s [00:52:46.663] } 1566s [00:52:46.663] invisible(muffled) 1566s [00:52:46.663] } 1566s [00:52:46.663] muffleCondition(cond, pattern = "^muffle") 1566s [00:52:46.663] } 1566s [00:52:46.663] } 1566s [00:52:46.663] } 1566s [00:52:46.663] })) 1566s [00:52:46.663] }, error = function(ex) { 1566s [00:52:46.663] base::structure(base::list(value = NULL, visible = NULL, 1566s [00:52:46.663] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1566s [00:52:46.663] ...future.rng), started = ...future.startTime, 1566s [00:52:46.663] finished = Sys.time(), session_uuid = NA_character_, 1566s [00:52:46.663] version = "1.8"), class = "FutureResult") 1566s [00:52:46.663] }, finally = { 1566s [00:52:46.663] if (!identical(...future.workdir, getwd())) 1566s [00:52:46.663] setwd(...future.workdir) 1566s [00:52:46.663] { 1566s [00:52:46.663] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1566s [00:52:46.663] ...future.oldOptions$nwarnings <- NULL 1566s [00:52:46.663] } 1566s [00:52:46.663] base::options(...future.oldOptions) 1566s [00:52:46.663] if (.Platform$OS.type == "windows") { 1566s [00:52:46.663] old_names <- names(...future.oldEnvVars) 1566s [00:52:46.663] envs <- base::Sys.getenv() 1566s [00:52:46.663] names <- names(envs) 1566s [00:52:46.663] common <- intersect(names, old_names) 1566s [00:52:46.663] added <- setdiff(names, old_names) 1566s [00:52:46.663] removed <- setdiff(old_names, names) 1566s [00:52:46.663] changed <- common[...future.oldEnvVars[common] != 1566s [00:52:46.663] envs[common]] 1566s [00:52:46.663] NAMES <- toupper(changed) 1566s [00:52:46.663] args <- list() 1566s [00:52:46.663] for (kk in seq_along(NAMES)) { 1566s [00:52:46.663] name <- changed[[kk]] 1566s [00:52:46.663] NAME <- NAMES[[kk]] 1566s [00:52:46.663] if (name != NAME && is.element(NAME, old_names)) 1566s [00:52:46.663] next 1566s [00:52:46.663] args[[name]] <- ...future.oldEnvVars[[name]] 1566s [00:52:46.663] } 1566s [00:52:46.663] NAMES <- toupper(added) 1566s [00:52:46.663] for (kk in seq_along(NAMES)) { 1566s [00:52:46.663] name <- added[[kk]] 1566s [00:52:46.663] NAME <- NAMES[[kk]] 1566s [00:52:46.663] if (name != NAME && is.element(NAME, old_names)) 1566s [00:52:46.663] next 1566s [00:52:46.663] args[[name]] <- "" 1566s [00:52:46.663] } 1566s [00:52:46.663] NAMES <- toupper(removed) 1566s [00:52:46.663] for (kk in seq_along(NAMES)) { 1566s [00:52:46.663] name <- removed[[kk]] 1566s [00:52:46.663] NAME <- NAMES[[kk]] 1566s [00:52:46.663] if (name != NAME && is.element(NAME, old_names)) 1566s [00:52:46.663] next 1566s [00:52:46.663] args[[name]] <- ...future.oldEnvVars[[name]] 1566s [00:52:46.663] } 1566s [00:52:46.663] if (length(args) > 0) 1566s [00:52:46.663] base::do.call(base::Sys.setenv, args = args) 1566s [00:52:46.663] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1566s [00:52:46.663] } 1566s [00:52:46.663] else { 1566s [00:52:46.663] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1566s [00:52:46.663] } 1566s [00:52:46.663] { 1566s [00:52:46.663] if (base::length(...future.futureOptionsAdded) > 1566s [00:52:46.663] 0L) { 1566s [00:52:46.663] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1566s [00:52:46.663] base::names(opts) <- ...future.futureOptionsAdded 1566s [00:52:46.663] base::options(opts) 1566s [00:52:46.663] } 1566s [00:52:46.663] { 1566s [00:52:46.663] { 1566s [00:52:46.663] base::assign(".Random.seed", c(10403L, 2L, 1566s [00:52:46.663] 133210212L, 1945833034L, 115858357L, -364452081L, 1566s [00:52:46.663] -390319082L, 926195392L, 2057013379L, -803887967L, 1566s [00:52:46.663] -1078998384L, 705296750L, -1682614503L, 830917547L, 1566s [00:52:46.663] -331376230L, 1352842588L, 1960957023L, 1997081653L, 1566s [00:52:46.663] 374446028L, 1510359842L, 1146109309L, -1295266185L, 1566s [00:52:46.663] -1545472098L, 1268700760L, 1627111355L, -855092903L, 1566s [00:52:46.663] -215790872L, -1958931690L, 1906054289L, -782874301L, 1566s [00:52:46.663] -399096750L, -1740777756L, 1763676455L, -832683651L, 1566s [00:52:46.663] 1369376884L, 430697050L, 1699587749L, -1503628097L, 1566s [00:52:46.663] 856180550L, -242424368L, -2127251469L, 505777937L, 1566s [00:52:46.663] 257347392L, -856180962L, 886024169L, -1464480485L, 1566s [00:52:46.663] -1512233174L, -1985955764L, -425390065L, 1566s [00:52:46.663] -589669563L, 381897980L, -790840494L, 1136483533L, 1566s [00:52:46.663] -1535370105L, -607934610L, 1641470280L, -1050403509L, 1566s [00:52:46.663] 1965932713L, 362996216L, 1596838182L, -1829498303L, 1566s [00:52:46.663] -1824465965L, 1872669058L, -417374796L, -1713346249L, 1566s [00:52:46.663] 1818328109L, -1284085436L, -1981489558L, 1566s [00:52:46.663] 1940543701L, 1673049711L, -1514495114L, 467096736L, 1566s [00:52:46.663] 943410531L, -1431020031L, 1115626864L, 965475598L, 1566s [00:52:46.663] -1718567047L, -793788661L, -1133789126L, 1566s [00:52:46.663] -80588996L, 2018258047L, 1866186709L, 42791404L, 1566s [00:52:46.663] -1823521982L, -1345991523L, -1672661737L, 1566s [00:52:46.663] -180777858L, -452713416L, 1448313627L, -1459492743L, 1566s [00:52:46.663] -600706872L, -909649674L, -2081822415L, -1697455773L, 1566s [00:52:46.663] 1517613874L, -820020092L, 188336327L, -1149897827L, 1566s [00:52:46.663] -475203820L, -368005702L, 204442629L, 437854687L, 1566s [00:52:46.663] 1163191398L, -760699920L, 104455443L, 819708593L, 1566s [00:52:46.663] 1129180512L, 48636670L, 1066049161L, 398150075L, 1566s [00:52:46.663] -852036726L, -906028436L, -1265740817L, -1824646107L, 1566s [00:52:46.663] -2126068516L, 1815435954L, -146408019L, -860012185L, 1566s [00:52:46.663] -682500466L, 1443186536L, 1789394795L, -1078204151L, 1566s [00:52:46.663] 809467800L, 1514112710L, -1097673695L, 919601331L, 1566s [00:52:46.663] -331916766L, 795008020L, 1042337943L, -371219827L, 1566s [00:52:46.663] 1558967204L, 1563528586L, -2133607947L, -1904454577L, 1566s [00:52:46.663] -264006826L, 770017792L, 153477955L, 1189667553L, 1566s [00:52:46.663] -363253680L, 1882362030L, 967246937L, -793119637L, 1566s [00:52:46.663] -1401964070L, 2129232540L, -542810977L, -1277899019L, 1566s [00:52:46.663] -377097332L, -406748574L, -1722157507L, -1577740105L, 1566s [00:52:46.663] -455170210L, 372239000L, -1535936005L, -1332632679L, 1566s [00:52:46.663] -1623884760L, -359633706L, 935827793L, 1357445123L, 1566s [00:52:46.663] 997040018L, -1506538204L, -147930137L, -166569923L, 1566s [00:52:46.663] -2103753036L, 1366641946L, 30482021L, 1876964095L, 1566s [00:52:46.663] 2008557446L, 657856784L, -103814733L, 774877777L, 1566s [00:52:46.663] -486350336L, -555057442L, -1821756119L, -963495717L, 1566s [00:52:46.663] 853311466L, 1671241612L, -942337841L, 409538693L, 1566s [00:52:46.663] 1992831804L, 489867794L, 357105933L, -1611412921L, 1566s [00:52:46.663] -1119334354L, -1521015416L, -2041922421L, 1566s [00:52:46.663] 2048874089L, -700216776L, 1651628774L, -10471807L, 1566s [00:52:46.663] 736942611L, 380607938L, -1742088588L, 1124231287L, 1566s [00:52:46.663] 1232111981L, -1801753084L, -1608606422L, 1566s [00:52:46.663] -1172096363L, 1420874031L, -1210473418L, 1566s [00:52:46.663] -18317216L, -571709789L, 1107403201L, 1952554416L, 1566s [00:52:46.663] 1991660750L, -442973639L, 581522507L, -430787078L, 1566s [00:52:46.663] 1105375484L, -1481218753L, -748152299L, -641535700L, 1566s [00:52:46.663] 679371266L, -591318819L, -104578089L, -172818754L, 1566s [00:52:46.663] -1321694984L, -98191653L, 1709083961L, -344680312L, 1566s [00:52:46.663] -159571914L, 581309553L, -63938909L, 76420082L, 1566s [00:52:46.663] 951019332L, -1797740537L, 1291470301L, -2079866156L, 1566s [00:52:46.663] -332493318L, -1978392251L, -1691039632L, 1566s [00:52:46.663] 388791868L, -1101109484L, -1365177662L, 321737440L, 1566s [00:52:46.663] 1812890748L, -133313328L, -1252731998L, 2044530216L, 1566s [00:52:46.663] 1263927564L, 325388220L, 520794418L, 1449646272L, 1566s [00:52:46.663] 87560756L, -87565624L, 426345146L, -699970416L, 1566s [00:52:46.663] 240322284L, -1074080172L, -1536268654L, 1338615584L, 1566s [00:52:46.663] 478476236L, -1933154080L, -192786750L, 1559942184L, 1566s [00:52:46.663] -1178330196L, -687617348L, -1701912078L, 1566s [00:52:46.663] 352314928L, -999229532L, -2052800072L, -1913644198L, 1566s [00:52:46.663] -1345416048L, 1816730492L, -1570431212L, 1566s [00:52:46.663] -269427390L, -2122969344L, -520963140L, 1398087504L, 1566s [00:52:46.663] 264692002L, -1682658744L, -1422452724L, -1601893284L, 1566s [00:52:46.663] -66383406L, 1443075584L, -456249004L, 943694056L, 1566s [00:52:46.663] -1493184262L, -1943836976L, -590788308L, 1566s [00:52:46.663] -405505804L, -1796837998L, 1991543136L, 1170376716L, 1566s [00:52:46.663] 1707420384L, 1899700834L, -1643595096L, 47299148L, 1566s [00:52:46.663] 1274857340L, -1205842638L, -1938479504L, 1566s [00:52:46.663] -1773978812L, 532695000L, 1306451834L, 258403888L, 1566s [00:52:46.663] -284747844L, -1780705708L, 1621936194L, 1129070752L, 1566s [00:52:46.663] 540946108L, -294270512L, -1426480286L, -356302104L, 1566s [00:52:46.663] 349847756L, 1849803260L, -1299125774L, 511654528L, 1566s [00:52:46.663] -1259964940L, -1879857528L, 535666490L, -2020097200L, 1566s [00:52:46.663] -1460751252L, 1201879444L, -1459788718L, 1566s [00:52:46.663] 447195616L, -730891060L, -1875530592L, -2146183806L, 1566s [00:52:46.663] 193274088L, -1224605972L, 1616153916L, -1896973198L, 1566s [00:52:46.663] -420945808L, -1997735900L, -1838404552L, 1566s [00:52:46.663] -413698278L, 1984019664L, -1760209092L, -1288743020L, 1566s [00:52:46.663] 392579970L, -1382567488L, -1295004100L, -33348208L, 1566s [00:52:46.663] 1536615970L, -428761848L, 643368588L, -1596336356L, 1566s [00:52:46.663] 1797431442L, 352422272L, -1043800556L, 60591912L, 1566s [00:52:46.663] -1115663814L, 1043682768L, 521144684L, 4793268L, 1566s [00:52:46.663] -1924265966L, 978890208L, 370048972L, -1607474976L, 1566s [00:52:46.663] -1443637214L, -632405720L, 691912204L, 166321980L, 1566s [00:52:46.663] 942193650L, 751741680L, 689743428L, -18455976L, 1566s [00:52:46.663] -1946329286L, -1619184144L, 239341244L, 371382548L, 1566s [00:52:46.663] -2069808446L, 154176608L, 385987452L, -385611824L, 1566s [00:52:46.663] 1967391010L, 2140654248L, 1720087436L, -1591007044L, 1566s [00:52:46.663] -1612486862L, 1295747648L, 1726784692L, 597326408L, 1566s [00:52:46.663] -973152838L, 628505104L, -1089631508L, 3230036L, 1566s [00:52:46.663] -593837806L, 244006304L, 1357912780L, 1839234656L, 1566s [00:52:46.663] -1357570110L, 1896595240L, -2066952276L, 1566s [00:52:46.663] -1724304580L, 986188146L, -1200604368L, -279100124L, 1566s [00:52:46.663] 131128120L, -1088465190L, 596533136L, 170602236L, 1566s [00:52:46.663] -1051262060L, 215660610L, -686217984L, 444449852L, 1566s [00:52:46.663] 769655120L, 236357794L, 181393736L, -13334772L, 1566s [00:52:46.663] 644690652L, -1969263278L, -2107982720L, 1429553236L, 1566s [00:52:46.663] 794236904L, 1997299962L, -458224816L, 904978220L, 1566s [00:52:46.663] -537093772L, -842839150L, 1828989024L, -679303796L, 1566s [00:52:46.663] 1396292448L, 76319202L, 1896098728L, 418430156L, 1566s [00:52:46.663] 2005956604L, 1370351026L, -1178923536L, -1154073660L, 1566s [00:52:46.663] -1218863784L, 89928058L, 816597936L, -1141767748L, 1566s [00:52:46.663] 1579714644L, 1343385538L, 371259424L, -245180228L, 1566s [00:52:46.663] 365724240L, 1606388706L, -823678872L, 1281309772L, 1566s [00:52:46.663] 1395210492L, 1217887218L, 1420531968L, 1349501300L, 1566s [00:52:46.663] 271647752L, -69959750L, 360452560L, 1565334508L, 1566s [00:52:46.663] 1956526484L, -930709038L, 1961808224L, -1745916084L, 1566s [00:52:46.663] 443656480L, 1990137730L, 694374120L, -1050566420L, 1566s [00:52:46.663] -1365842884L, -438961294L, -1851472272L, 1566s [00:52:46.663] 614534180L, 1401930552L, 3652762L, 1928284880L, 1566s [00:52:46.663] -1637703492L, 26107540L, -132725907L, -371944998L, 1566s [00:52:46.663] -1311388776L, 8516097L, 741008307L, -1149566252L, 1566s [00:52:46.663] -1802640414L, 2019636855L, 1587818433L, -151040698L, 1566s [00:52:46.663] 1598381188L, -205462987L, 1911327L, -1382519432L, 1566s [00:52:46.663] -594809770L, -2146766621L, -2013964635L, 1566s [00:52:46.663] -965534910L, -2077626064L, 1964788057L, 1821395659L, 1566s [00:52:46.663] -1953549508L, -719348886L, 1442511263L, 1969287209L, 1566s [00:52:46.663] 1754221246L, -442299476L, 1981692157L, 113456199L, 1566s [00:52:46.663] 1587794736L, -1811033010L, 1149417595L, -1760887843L, 1566s [00:52:46.663] -1426021878L, -1285634264L, 1507547537L, 1566s [00:52:46.663] -1114120317L, 1897370756L, 1142575794L, -375814649L, 1566s [00:52:46.663] -1661041071L, 881081814L, -548925260L, 2073840837L, 1566s [00:52:46.663] 1156484623L, 2011334280L, 1107815334L, 969024339L, 1566s [00:52:46.663] -55972683L, 2006780434L, -1486403616L, 1698650697L, 1566s [00:52:46.663] 1813794939L, -1717763764L, 1268815066L, -1200630577L, 1566s [00:52:46.663] -773717863L, -12215122L, 1354639804L, 1213207085L, 1566s [00:52:46.663] -978295337L, 340143136L, 485429630L, -568148149L, 1566s [00:52:46.663] 1257440589L, 930106234L, -883274312L, -1632538783L, 1566s [00:52:46.663] 894748435L, -1592959180L, -596177598L, 120963415L, 1566s [00:52:46.663] -1174532959L, -561474202L, 1438545764L, 1429911189L, 1566s [00:52:46.663] 1075965887L, 367866712L, -892333706L, -485158013L, 1566s [00:52:46.663] -682634811L, 963344098L, 2110199632L, 1990767225L, 1566s [00:52:46.663] 1348335019L, 269581084L, -2040640438L, 1453561919L, 1566s [00:52:46.663] 853952649L, 1195494558L, 1614051660L, 2040242461L, 1566s [00:52:46.663] -1604604761L, 1421229008L, -1268333714L, 1566s [00:52:46.663] 174113307L, 2044969853L, 190112106L, -998776824L, 1566s [00:52:46.663] -2070476623L, -2099222749L, 1141171236L, 1566s [00:52:46.663] -146426158L, -1797385433L, -1129376399L, 1566s [00:52:46.663] -1496589386L, -419561644L, -613549595L, 1243456495L, 1566s [00:52:46.663] 451212072L, 1923543942L, 1146113971L, 93579029L, 1566s [00:52:46.663] -397504142L, 597218752L, 459048489L, 1447221915L, 1566s [00:52:46.663] -272948372L, -373834886L, 934888623L, -2099351623L, 1566s [00:52:46.663] -1672042034L, 193924380L, -704518003L, 781993207L, 1566s [00:52:46.663] -258875392L, -1853783458L, 1315003691L, -41214419L, 1566s [00:52:46.663] -59447654L, 1203745368L, 426003905L, 452670067L, 1566s [00:52:46.663] -1092079724L, -1765622238L, -1882554057L, 1566s [00:52:46.663] 1278087169L, -1994822394L, -124954300L, 1994460277L, 1566s [00:52:46.663] 1816829407L, -1568282312L, 1563616022L, 1255996195L, 1566s [00:52:46.663] 1702121701L, 1784032514L, 1842995056L, 748060441L, 1566s [00:52:46.663] 1432229643L, -1905232900L, 2016890922L, 1403944031L, 1566s [00:52:46.663] 351712233L, 1338932478L, -1359366932L, -803018691L, 1566s [00:52:46.663] -1551885305L, 248629232L, 1839395726L, 1411789243L, 1566s [00:52:46.663] 840085405L, -1849000630L, -669518488L, -1453417647L, 1566s [00:52:46.663] -1527179197L, -377159356L, 1674525170L, -313742393L, 1566s [00:52:46.663] 865377681L, -1127426242L), envir = base::globalenv(), 1566s [00:52:46.663] inherits = FALSE) 1566s [00:52:46.663] NULL 1566s [00:52:46.663] } 1566s [00:52:46.663] options(future.plan = NULL) 1566s [00:52:46.663] if (is.na(NA_character_)) 1566s [00:52:46.663] Sys.unsetenv("R_FUTURE_PLAN") 1566s [00:52:46.663] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1566s [00:52:46.663] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1566s [00:52:46.663] envir = parent.frame()) 1566s [00:52:46.663] { 1566s [00:52:46.663] default_workers <- missing(workers) 1566s [00:52:46.663] if (is.function(workers)) 1566s [00:52:46.663] workers <- workers() 1566s [00:52:46.663] workers <- structure(as.integer(workers), 1566s [00:52:46.663] class = class(workers)) 1566s [00:52:46.663] stop_if_not(is.finite(workers), workers >= 1566s [00:52:46.663] 1L) 1566s [00:52:46.663] if ((workers == 1L && !inherits(workers, 1566s [00:52:46.663] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1566s [00:52:46.663] if (default_workers) 1566s [00:52:46.663] supportsMulticore(warn = TRUE) 1566s [00:52:46.663] return(sequential(..., envir = envir)) 1566s [00:52:46.663] } 1566s [00:52:46.663] oopts <- options(mc.cores = workers) 1566s [00:52:46.663] on.exit(options(oopts)) 1566s [00:52:46.663] future <- MulticoreFuture(..., workers = workers, 1566s [00:52:46.663] envir = envir) 1566s [00:52:46.663] if (!future$lazy) 1566s [00:52:46.663] future <- run(future) 1566s [00:52:46.663] invisible(future) 1566s [00:52:46.663] }), .cleanup = FALSE, .init = FALSE) 1566s [00:52:46.663] } 1566s [00:52:46.663] } 1566s [00:52:46.663] } 1566s [00:52:46.663] }) 1566s [00:52:46.663] if (TRUE) { 1566s [00:52:46.663] base::sink(type = "output", split = FALSE) 1566s [00:52:46.663] if (TRUE) { 1566s [00:52:46.663] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1566s [00:52:46.663] } 1566s [00:52:46.663] else { 1566s [00:52:46.663] ...future.result["stdout"] <- base::list(NULL) 1566s [00:52:46.663] } 1566s [00:52:46.663] base::close(...future.stdout) 1566s [00:52:46.663] ...future.stdout <- NULL 1566s [00:52:46.663] } 1566s [00:52:46.663] ...future.result$conditions <- ...future.conditions 1566s [00:52:46.663] ...future.result$finished <- base::Sys.time() 1566s [00:52:46.663] ...future.result 1566s [00:52:46.663] } 1566s [00:52:46.669] assign_globals() ... 1566s [00:52:46.669] List of 5 1566s [00:52:46.669] $ ...future.FUN :function (...) 1566s [00:52:46.669] $ future.call.arguments : list() 1566s [00:52:46.669] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1566s [00:52:46.669] $ ...future.elements_ii :List of 5 1566s [00:52:46.669] ..$ : int 0 1566s [00:52:46.669] ..$ : int 0 1566s [00:52:46.669] ..$ : int 0 1566s [00:52:46.669] ..$ : int 0 1566s [00:52:46.669] ..$ : int 0 1566s [00:52:46.669] $ ...future.seeds_ii :List of 5 1566s [00:52:46.669] ..$ : int [1:7] 10407 424279327 242013539 -50536943 1949045882 -966354368 52785545 1566s [00:52:46.669] ..$ : int [1:7] 10407 1259015031 702630336 336295781 836592074 1678845563 -511089912 1566s [00:52:46.669] ..$ : int [1:7] 10407 1164394434 449220430 -1497007122 58661922 77957643 -850372858 1566s [00:52:46.669] ..$ : int [1:7] 10407 -102834055 -568341906 440844328 496378464 1781291461 1929965415 1566s [00:52:46.669] ..$ : int [1:7] 10407 -1584691803 1955381789 -562762208 1163324668 -1514628943 475545435 1566s [00:52:46.669] $ ...future.globals.maxSize: NULL 1566s [00:52:46.669] - attr(*, "where")=List of 5 1566s [00:52:46.669] ..$ ...future.FUN : 1566s [00:52:46.669] ..$ future.call.arguments : 1566s [00:52:46.669] ..$ ...future.elements_ii : 1566s [00:52:46.669] ..$ ...future.seeds_ii : 1566s [00:52:46.669] ..$ ...future.globals.maxSize: 1566s [00:52:46.669] - attr(*, "resolved")= logi FALSE 1566s [00:52:46.669] - attr(*, "total_size")= num 616 1566s [00:52:46.669] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1566s [00:52:46.669] - attr(*, "already-done")= logi TRUE 1566s [00:52:46.679] - reassign environment for ‘...future.FUN’ 1566s [00:52:46.679] - copied ‘...future.FUN’ to environment 1566s [00:52:46.679] - copied ‘future.call.arguments’ to environment 1566s [00:52:46.679] - copied ‘...future.elements_ii’ to environment 1566s [00:52:46.679] - copied ‘...future.seeds_ii’ to environment 1566s [00:52:46.679] - copied ‘...future.globals.maxSize’ to environment 1566s [00:52:46.679] assign_globals() ... done 1566s [00:52:46.680] plan(): Setting new future strategy stack: 1566s [00:52:46.680] List of future strategies: 1566s [00:52:46.680] 1. sequential: 1566s [00:52:46.680] - args: function (..., envir = parent.frame()) 1566s [00:52:46.680] - tweaked: FALSE 1566s [00:52:46.680] - call: NULL 1566s [00:52:46.680] plan(): nbrOfWorkers() = 1 1566s [00:52:46.681] plan(): Setting new future strategy stack: 1566s [00:52:46.681] List of future strategies: 1566s [00:52:46.681] 1. multicore: 1566s [00:52:46.681] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1566s [00:52:46.681] - tweaked: FALSE 1566s [00:52:46.681] - call: plan(strategy) 1566s [00:52:46.686] plan(): nbrOfWorkers() = 1 1566s [00:52:46.687] SequentialFuture started (and completed) 1566s [00:52:46.687] - Launch lazy future ... done 1566s [00:52:46.687] run() for ‘SequentialFuture’ ... done 1566s [00:52:46.687] Created future: 1566s [00:52:46.687] SequentialFuture: 1566s [00:52:46.687] Label: ‘future_replicate-1’ 1566s [00:52:46.687] Expression: 1566s [00:52:46.687] { 1566s [00:52:46.687] do.call(function(...) { 1566s [00:52:46.687] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1566s [00:52:46.687] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1566s [00:52:46.687] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1566s [00:52:46.687] on.exit(options(oopts), add = TRUE) 1566s [00:52:46.687] } 1566s [00:52:46.687] { 1566s [00:52:46.687] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1566s [00:52:46.687] ...future.X_jj <- ...future.elements_ii[[jj]] 1566s [00:52:46.687] assign(".Random.seed", ...future.seeds_ii[[jj]], 1566s [00:52:46.687] envir = globalenv(), inherits = FALSE) 1566s [00:52:46.687] ...future.FUN(...future.X_jj, ...) 1566s [00:52:46.687] }) 1566s [00:52:46.687] } 1566s [00:52:46.687] }, args = future.call.arguments) 1566s [00:52:46.687] } 1566s [00:52:46.687] Lazy evaluation: FALSE 1566s [00:52:46.687] Asynchronous evaluation: FALSE 1566s [00:52:46.687] Local evaluation: TRUE 1566s [00:52:46.687] Environment: R_GlobalEnv 1566s [00:52:46.687] Capture standard output: TRUE 1566s [00:52:46.687] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1566s [00:52:46.687] Globals: 5 objects totaling 1.27 KiB (function ‘...future.FUN’ of 616 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 280 bytes, list ‘...future.seeds_ii’ of 400 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1566s [00:52:46.687] Packages: 1566s [00:52:46.687] L'Ecuyer-CMRG RNG seed: (seed = NULL) 1566s [00:52:46.687] Resolved: TRUE 1566s [00:52:46.687] Value: 280 bytes of class ‘list’ 1566s [00:52:46.687] Early signaling: FALSE 1566s [00:52:46.687] Owner process: 50289bf5-8c9f-f501-15c6-3ca1fa8d82cf 1566s [00:52:46.687] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1566s [00:52:46.689] Chunk #1 of 1 ... DONE 1566s [00:52:46.690] Launching 1 futures (chunks) ... DONE 1566s [00:52:46.690] Resolving 1 futures (chunks) ... 1566s [00:52:46.690] resolve() on list ... 1566s [00:52:46.690] recursive: 0 1566s [00:52:46.691] length: 1 1566s [00:52:46.691] 1566s [00:52:46.691] resolved() for ‘SequentialFuture’ ... 1566s [00:52:46.691] - state: ‘finished’ 1566s [00:52:46.691] - run: TRUE 1566s [00:52:46.691] - result: ‘FutureResult’ 1566s [00:52:46.692] resolved() for ‘SequentialFuture’ ... done 1566s [00:52:46.692] Future #1 1566s [00:52:46.692] signalConditionsASAP(SequentialFuture, pos=1) ... 1566s [00:52:46.692] - nx: 1 1566s [00:52:46.692] - relay: TRUE 1566s [00:52:46.692] - stdout: TRUE 1566s [00:52:46.694] - signal: TRUE 1566s [00:52:46.694] - resignal: FALSE 1566s [00:52:46.694] - force: TRUE 1566s [00:52:46.695] - relayed: [n=1] FALSE 1566s [00:52:46.695] - queued futures: [n=1] FALSE 1566s [00:52:46.695] - until=1 1566s [00:52:46.695] - relaying element #1 1566s [00:52:46.695] - relayed: [n=1] TRUE 1566s [00:52:46.695] - queued futures: [n=1] TRUE 1566s [00:52:46.696] signalConditionsASAP(SequentialFuture, pos=1) ... done 1566s [00:52:46.696] length: 0 (resolved future 1) 1566s [00:52:46.696] Relaying remaining futures 1566s [00:52:46.696] signalConditionsASAP(NULL, pos=0) ... 1566s [00:52:46.696] - nx: 1 1566s [00:52:46.696] - relay: TRUE 1566s [00:52:46.696] - stdout: TRUE 1566s [00:52:46.697] - signal: TRUE 1566s [00:52:46.697] - resignal: FALSE 1566s [00:52:46.697] - force: TRUE 1566s [00:52:46.697] - relayed: [n=1] TRUE 1566s [00:52:46.697] - queued futures: [n=1] TRUE 1566s - flush all 1566s [00:52:46.698] - relayed: [n=1] TRUE 1566s [00:52:46.698] - queued futures: [n=1] TRUE 1566s [00:52:46.699] signalConditionsASAP(NULL, pos=0) ... done 1566s [00:52:46.699] resolve() on list ... DONE 1566s [00:52:46.699] - Number of value chunks collected: 1 1566s [00:52:46.699] Resolving 1 futures (chunks) ... DONE 1566s [00:52:46.700] Reducing values from 1 chunks ... 1566s [00:52:46.700] - Number of values collected after concatenation: 5 1566s [00:52:46.700] - Number of values expected: 5 1566s [00:52:46.700] Reducing values from 1 chunks ... DONE 1566s [00:52:46.700] future_lapply() ... DONE 1566s [00:52:46.701] future_lapply() ... 1566s [00:52:46.701] Generating random seeds ... 1566s [00:52:46.701] Generating random seed streams for 5 elements ... 1566s [00:52:46.702] Generating random seed streams for 5 elements ... DONE 1566s [00:52:46.702] Generating random seeds ... DONE 1566s [00:52:46.702] Will set RNG state on exit: 10403, 2, 133210212, 1945833034, 115858357, -364452081, -390319082, 926195392, 2057013379, -803887967, -1078998384, 705296750, -1682614503, 830917547, -331376230, 1352842588, 1960957023, 1997081653, 374446028, 1510359842, 1146109309, -1295266185, -1545472098, 1268700760, 1627111355, -855092903, -215790872, -1958931690, 1906054289, -782874301, -399096750, -1740777756, 1763676455, -832683651, 1369376884, 430697050, 1699587749, -1503628097, 856180550, -242424368, -2127251469, 505777937, 257347392, -856180962, 886024169, -1464480485, -1512233174, -1985955764, -425390065, -589669563, 381897980, -790840494, 1136483533, -1535370105, -607934610, 1641470280, -1050403509, 1965932713, 362996216, 1596838182, -1829498303, -1824465965, 1872669058, -417374796, -1713346249, 1818328109, -1284085436, -1981489558, 1940543701, 1673049711, -1514495114, 467096736, 943410531, -1431020031, 1115626864, 965475598, -1718567047, -793788661, -1133789126, -80588996, 2018258047, 1866186709, 42791404, -1823521982, -1345991523, -1672661737, -180777858, -452713416, 1448313627, -1459492743, -600706872, -909649674, -2081822415, -1697455773, 1517613874, -820020092, 188336327, -1149897827, -475203820, -368005702, 204442629, 437854687, 1163191398, -760699920, 104455443, 819708593, 1129180512, 48636670, 1066049161, 398150075, -852036726, -906028436, -1265740817, -1824646107, -2126068516, 1815435954, -146408019, -860012185, -682500466, 1443186536, 1789394795, -1078204151, 809467800, 1514112710, -1097673695, 919601331, -331916766, 795008020, 1042337943, -371219827, 1558967204, 1563528586, -2133607947, -1904454577, -264006826, 770017792, 153477955, 1189667553, -363253680, 1882362030, 967246937, -793119637, -1401964070, 2129232540, -542810977, -1277899019, -377097332, -406748574, -1722157507, -1577740105, -455170210, 372239000, -1535936005, -1332632679, -1623884760, -359633706, 935827793, 1357445123, 997040018, -1506538204, -147930137, -166569923, -2103753036, 1366641946, 30482021, 1876964095, 2008557446, 657856784, -103814733, 774877777, -486350336, -555057442, -1821756119, -963495717, 853311466, 1671241612, -942337841, 409538693, 1992831804, 489867794, 357105933, -1611412921, -1119334354, -1521015416, -2041922421, 2048874089, -700216776, 1651628774, -10471807, 736942611, 380607938, -1742088588, 1124231287, 1232111981, -1801753084, -1608606422, -1172096363, 1420874031, -1210473418, -18317216, -571709789, 1107403201, 1952554416, 1991660750, -442973639, 581522507, -430787078, 1105375484, -1481218753, -748152299, -641535700, 679371266, -591318819, -104578089, -172818754, -1321694984, -98191653, 1709083961, -344680312, -159571914, 581309553, -63938909, 76420082, 951019332, -1797740537, 1291470301, -2079866156, -332493318, -1978392251, -1691039632, 388791868, -1101109484, -1365177662, 321737440, 1812890748, -133313328, -1252731998, 2044530216, 1263927564, 325388220, 520794418, 1449646272, 87560756, -87565624, 426345146, -699970416, 240322284, -1074080172, -1536268654, 1338615584, 478476236, -1933154080, -192786750, 1559942184, -1178330196, -687617348, -1701912078, 352314928, -999229532, -2052800072, -1913644198, -1345416048, 1816730492, -1570431212, -269427390, -2122969344, -520963140, 1398087504, 264692002, -1682658744, -1422452724, -1601893284, -66383406, 1443075584, -456249004, 943694056, -1493184262, -1943836976, -590788308, -405505804, -1796837998, 1991543136, 1170376716, 1707420384, 1899700834, -1643595096, 47299148, 1274857340, -1205842638, -1938479504, -1773978812, 532695000, 1306451834, 258403888, -284747844, -1780705708, 1621936194, 1129070752, 540946108, -294270512, -1426480286, -356302104, 349847756, 1849803260, -1299125774, 511654528, -1259964940, -1879857528, 535666490, -2020097200, -1460751252, 1201879444, -1459788718, 447195616, -730891060, -1875530592, -2146183806, 193274088, -1224605972, 1616153916, -1896973198, -420945808, -1997735900, -1838404552, -413698278, 1984019664, -1760209092, -1288743020, 392579970, -1382567488, -1295004100, -33348208, 1536615970, -428761848, 643368588, -1596336356, 1797431442, 352422272, -1043800556, 60591912, -1115663814, 1043682768, 521144684, 4793268, -1924265966, 978890208, 370048972, -1607474976, -1443637214, -632405720, 691912204, 166321980, 942193650, 751741680, 689743428, -18455976, -1946329286, -1619184144, 239341244, 371382548, -2069808446, 154176608, 385987452, -385611824, 1967391010, 2140654248, 1720087436, -1591007044, -1612486862, 1295747648, 1726784692, 597326408, -973152838, 628505104, -1089631508, 3230036, -593837806, 244006304, 1357912780, 1839234656, -1357570110, 1896595240, -2066952276, -1724304580, 986188146, -1200604368, -279100124, 131128120, -1088465190, 596533136, 170602236, -1051262060, 215660610, -686217984, 444449852, 769655120, 236357794, 181393736, -13334772, 644690652, -1969263278, -2107982720, 1429553236, 794236904, 1997299962, -458224816, 904978220, -537093772, -842839150, 1828989024, -679303796, 1396292448, 76319202, 1896098728, 418430156, 2005956604, 1370351026, -1178923536, -1154073660, -1218863784, 89928058, 816597936, -1141767748, 1579714644, 1343385538, 371259424, -245180228, 365724240, 1606388706, -823678872, 1281309772, 1395210492, 1217887218, 1420531968, 1349501300, 271647752, -69959750, 360452560, 1565334508, 1956526484, -930709038, 1961808224, -1745916084, 443656480, 1990137730, 694374120, -1050566420, -1365842884, -438961294, -1851472272, 614534180, 1401930552, 3652762, 1928284880, -1637703492, 26107540, -132725907, -371944998, -1311388776, 8516097, 741008307, -1149566252, -1802640414, 2019636855, 1587818433, -151040698, 1598381188, -205462987, 1911327, -1382519432, -594809770, -2146766621, -2013964635, -965534910, -2077626064, 1964788057, 1821395659, -1953549508, -719348886, 1442511263, 1969287209, 1754221246, -442299476, 1981692157, 113456199, 1587794736, -1811033010, 1149417595, -1760887843, -1426021878, -1285634264, 1507547537, -1114120317, 1897370756, 1142575794, -375814649, -1661041071, 881081814, -548925260, 2073840837, 1156484623, 2011334280, 1107815334, 969024339, -55972683, 2006780434, -1486403616, 1698650697, 1813794939, -1717763764, 1268815066, -1200630577, -773717863, -12215122, 1354639804, 1213207085, -978295337, 340143136, 485429630, -568148149, 1257440589, 930106234, -883274312, -1632538783, 894748435, -1592959180, -596177598, 120963415, -1174532959, -561474202, 1438545764, 1429911189, 1075965887, 367866712, -892333706, -485158013, -682634811, 963344098, 2110199632, 1990767225, 1348335019, 269581084, -2040640438, 1453561919, 853952649, 1195494558, 1614051660, 2040242461, -1604604761, 1421229008, -1268333714, 174113307, 2044969853, 190112106, -998776824, -2070476623, -2099222749, 1141171236, -146426158, -1797385433, -1129376399, -1496589386, -419561644, -613549595, 1243456495, 451212072, 1923543942, 1146113971, 93579029, -397504142, 597218752, 459048489, 1447221915, -272948372, -373834886, 934888623, -2099351623, -1672042034, 193924380, -704518003, 781993207, -258875392, -1853783458, 1315003691, -41214419, -59447654, 1203745368, 426003905, 452670067, -1092079724, -1765622238, -1882554057, 1278087169, -1994822394, -124954300, 1994460277, 1816829407, -1568282312, 1563616022, 1255996195, 1702121701, 1784032514, 1842995056, 748060441, 1432229643, -1905232900, 2016890922, 1403944031, 351712233, 1338932478, -1359366932, -803018691, -1551885305, 248629232, 1839395726, 1411789243, 840085405, -1849000630, -669518488, -1453417647, -1527179197, -377159356, 1674525170, -313742393, 865377681, -1127426242 1566s [00:52:46.707] Number of chunks: 1 1566s [00:52:46.707] getGlobalsAndPackagesXApply() ... 1566s [00:52:46.707] - future.globals: TRUE 1566s [00:52:46.708] getGlobalsAndPackages() ... 1566s [00:52:46.708] Searching for globals... 1566s [00:52:46.709] - globals found: [2] ‘FUN’, ‘sample’ 1566s [00:52:46.710] Searching for globals ... DONE 1566s [00:52:46.710] Resolving globals: FALSE 1566s [00:52:46.710] The total size of the 1 globals is 616 bytes (616 bytes) 1566s [00:52:46.711] The total size of the 1 globals exported for future expression (‘FUN()’) is 616 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (616 bytes of class ‘function’) 1566s [00:52:46.711] - globals: [1] ‘FUN’ 1566s [00:52:46.711] 1566s [00:52:46.712] getGlobalsAndPackages() ... DONE 1566s [00:52:46.712] - globals found/used: [n=1] ‘FUN’ 1566s [00:52:46.712] - needed namespaces: [n=0] 1566s [00:52:46.712] Finding globals ... DONE 1566s [00:52:46.712] - use_args: TRUE 1566s [00:52:46.712] - Getting '...' globals ... 1566s [00:52:46.713] resolve() on list ... 1566s [00:52:46.713] recursive: 0 1566s [00:52:46.713] length: 1 1566s [00:52:46.713] elements: ‘...’ 1566s [00:52:46.713] length: 0 (resolved future 1) 1566s [00:52:46.714] resolve() on list ... DONE 1566s [00:52:46.714] - '...' content: [n=0] 1566s [00:52:46.714] List of 1 1566s [00:52:46.714] $ ...: list() 1566s [00:52:46.714] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1566s [00:52:46.714] - attr(*, "where")=List of 1 1566s [00:52:46.714] ..$ ...: 1566s [00:52:46.714] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1566s [00:52:46.714] - attr(*, "resolved")= logi TRUE 1566s [00:52:46.714] - attr(*, "total_size")= num NA 1566s [00:52:46.718] - Getting '...' globals ... DONE 1566s [00:52:46.718] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1566s [00:52:46.718] List of 2 1566s [00:52:46.718] $ ...future.FUN:function (...) 1566s [00:52:46.718] $ ... : list() 1566s [00:52:46.718] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1566s [00:52:46.718] - attr(*, "where")=List of 2 1566s [00:52:46.718] ..$ ...future.FUN: 1566s [00:52:46.718] ..$ ... : 1566s [00:52:46.718] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1566s [00:52:46.718] - attr(*, "resolved")= logi FALSE 1566s [00:52:46.718] - attr(*, "total_size")= num 616 1566s [00:52:46.723] Packages to be attached in all futures: [n=0] 1566s [00:52:46.723] getGlobalsAndPackagesXApply() ... DONE 1566s [00:52:46.723] Number of futures (= number of chunks): 1 1566s [00:52:46.723] Launching 1 futures (chunks) ... 1566s [00:52:46.724] Chunk #1 of 1 ... 1566s [00:52:46.724] - Finding globals in 'X' for chunk #1 ... 1566s [00:52:46.724] getGlobalsAndPackages() ... 1566s [00:52:46.724] Searching for globals... 1566s [00:52:46.725] 1566s [00:52:46.725] Searching for globals ... DONE 1566s [00:52:46.725] - globals: [0] 1566s [00:52:46.725] getGlobalsAndPackages() ... DONE 1566s [00:52:46.725] + additional globals found: [n=0] 1566s [00:52:46.726] + additional namespaces needed: [n=0] 1566s [00:52:46.726] - Finding globals in 'X' for chunk #1 ... DONE 1566s [00:52:46.726] - seeds: [5] 1566s [00:52:46.726] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1566s [00:52:46.727] getGlobalsAndPackages() ... 1566s [00:52:46.727] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1566s [00:52:46.727] Resolving globals: FALSE 1566s [00:52:46.728] Tweak future expression to call with '...' arguments ... 1566s [00:52:46.728] { 1566s [00:52:46.728] do.call(function(...) { 1566s [00:52:46.728] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1566s [00:52:46.728] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1566s [00:52:46.728] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1566s [00:52:46.728] on.exit(options(oopts), add = TRUE) 1566s [00:52:46.728] } 1566s [00:52:46.728] { 1566s [00:52:46.728] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1566s [00:52:46.728] ...future.X_jj <- ...future.elements_ii[[jj]] 1566s [00:52:46.728] assign(".Random.seed", ...future.seeds_ii[[jj]], 1566s [00:52:46.728] envir = globalenv(), inherits = FALSE) 1566s [00:52:46.728] ...future.FUN(...future.X_jj, ...) 1566s [00:52:46.728] }) 1566s [00:52:46.728] } 1566s [00:52:46.728] }, args = future.call.arguments) 1566s [00:52:46.728] } 1566s [00:52:46.728] Tweak future expression to call with '...' arguments ... DONE 1566s [00:52:46.729] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1566s [00:52:46.729] 1566s [00:52:46.729] getGlobalsAndPackages() ... DONE 1566s [00:52:46.729] run() for ‘Future’ ... 1566s [00:52:46.729] - state: ‘created’ 1566s [00:52:46.730] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1566s [00:52:46.735] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1566s [00:52:46.735] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1566s [00:52:46.735] - Field: ‘label’ 1566s [00:52:46.735] - Field: ‘local’ 1566s [00:52:46.735] - Field: ‘owner’ 1566s [00:52:46.735] - Field: ‘envir’ 1566s [00:52:46.736] - Field: ‘packages’ 1566s [00:52:46.736] - Field: ‘gc’ 1566s [00:52:46.736] - Field: ‘conditions’ 1566s [00:52:46.736] - Field: ‘expr’ 1566s [00:52:46.736] - Field: ‘uuid’ 1566s [00:52:46.737] - Field: ‘seed’ 1566s [00:52:46.737] - Field: ‘version’ 1566s [00:52:46.737] - Field: ‘result’ 1566s [00:52:46.737] - Field: ‘asynchronous’ 1566s [00:52:46.737] - Field: ‘calls’ 1566s [00:52:46.737] - Field: ‘globals’ 1566s [00:52:46.737] - Field: ‘stdout’ 1566s [00:52:46.739] - Field: ‘earlySignal’ 1566s [00:52:46.740] - Field: ‘lazy’ 1566s [00:52:46.740] - Field: ‘state’ 1566s [00:52:46.740] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1566s [00:52:46.740] - Launch lazy future ... 1566s [00:52:46.741] Packages needed by the future expression (n = 0): 1566s [00:52:46.741] Packages needed by future strategies (n = 0): 1566s [00:52:46.742] { 1566s [00:52:46.742] { 1566s [00:52:46.742] { 1566s [00:52:46.742] ...future.startTime <- base::Sys.time() 1566s [00:52:46.742] { 1566s [00:52:46.742] { 1566s [00:52:46.742] { 1566s [00:52:46.742] base::local({ 1566s [00:52:46.742] has_future <- base::requireNamespace("future", 1566s [00:52:46.742] quietly = TRUE) 1566s [00:52:46.742] if (has_future) { 1566s [00:52:46.742] ns <- base::getNamespace("future") 1566s [00:52:46.742] version <- ns[[".package"]][["version"]] 1566s [00:52:46.742] if (is.null(version)) 1566s [00:52:46.742] version <- utils::packageVersion("future") 1566s [00:52:46.742] } 1566s [00:52:46.742] else { 1566s [00:52:46.742] version <- NULL 1566s [00:52:46.742] } 1566s [00:52:46.742] if (!has_future || version < "1.8.0") { 1566s [00:52:46.742] info <- base::c(r_version = base::gsub("R version ", 1566s [00:52:46.742] "", base::R.version$version.string), 1566s [00:52:46.742] platform = base::sprintf("%s (%s-bit)", 1566s [00:52:46.742] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1566s [00:52:46.742] os = base::paste(base::Sys.info()[base::c("sysname", 1566s [00:52:46.742] "release", "version")], collapse = " "), 1566s [00:52:46.742] hostname = base::Sys.info()[["nodename"]]) 1566s [00:52:46.742] info <- base::sprintf("%s: %s", base::names(info), 1566s [00:52:46.742] info) 1566s [00:52:46.742] info <- base::paste(info, collapse = "; ") 1566s [00:52:46.742] if (!has_future) { 1566s [00:52:46.742] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1566s [00:52:46.742] info) 1566s [00:52:46.742] } 1566s [00:52:46.742] else { 1566s [00:52:46.742] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1566s [00:52:46.742] info, version) 1566s [00:52:46.742] } 1566s [00:52:46.742] base::stop(msg) 1566s [00:52:46.742] } 1566s [00:52:46.742] }) 1566s [00:52:46.742] } 1566s [00:52:46.742] options(future.plan = NULL) 1566s [00:52:46.742] Sys.unsetenv("R_FUTURE_PLAN") 1566s [00:52:46.742] future::plan("default", .cleanup = FALSE, .init = FALSE) 1566s [00:52:46.742] } 1566s [00:52:46.742] ...future.workdir <- getwd() 1566s [00:52:46.742] } 1566s [00:52:46.742] ...future.oldOptions <- base::as.list(base::.Options) 1566s [00:52:46.742] ...future.oldEnvVars <- base::Sys.getenv() 1566s [00:52:46.742] } 1566s [00:52:46.742] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1566s [00:52:46.742] future.globals.maxSize = NULL, future.globals.method = NULL, 1566s [00:52:46.742] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1566s [00:52:46.742] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1566s [00:52:46.742] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1566s [00:52:46.742] future.stdout.windows.reencode = NULL, width = 80L) 1566s [00:52:46.742] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1566s [00:52:46.742] base::names(...future.oldOptions)) 1566s [00:52:46.742] } 1566s [00:52:46.742] if (FALSE) { 1566s [00:52:46.742] } 1566s [00:52:46.742] else { 1566s [00:52:46.742] if (TRUE) { 1566s [00:52:46.742] ...future.stdout <- base::rawConnection(base::raw(0L), 1566s [00:52:46.742] open = "w") 1566s [00:52:46.742] } 1566s [00:52:46.742] else { 1566s [00:52:46.742] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1566s [00:52:46.742] windows = "NUL", "/dev/null"), open = "w") 1566s [00:52:46.742] } 1566s [00:52:46.742] base::sink(...future.stdout, type = "output", split = FALSE) 1566s [00:52:46.742] base::on.exit(if (!base::is.null(...future.stdout)) { 1566s [00:52:46.742] base::sink(type = "output", split = FALSE) 1566s [00:52:46.742] base::close(...future.stdout) 1566s [00:52:46.742] }, add = TRUE) 1566s [00:52:46.742] } 1566s [00:52:46.742] ...future.frame <- base::sys.nframe() 1566s [00:52:46.742] ...future.conditions <- base::list() 1566s [00:52:46.742] ...future.rng <- base::globalenv()$.Random.seed 1566s [00:52:46.742] if (FALSE) { 1566s [00:52:46.742] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1566s [00:52:46.742] "...future.value", "...future.globalenv.names", ".Random.seed") 1566s [00:52:46.742] } 1566s [00:52:46.742] ...future.result <- base::tryCatch({ 1566s [00:52:46.742] base::withCallingHandlers({ 1566s [00:52:46.742] ...future.value <- base::withVisible(base::local({ 1566s [00:52:46.742] do.call(function(...) { 1566s [00:52:46.742] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1566s [00:52:46.742] if (!identical(...future.globals.maxSize.org, 1566s [00:52:46.742] ...future.globals.maxSize)) { 1566s [00:52:46.742] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1566s [00:52:46.742] on.exit(options(oopts), add = TRUE) 1566s [00:52:46.742] } 1566s [00:52:46.742] { 1566s [00:52:46.742] lapply(seq_along(...future.elements_ii), 1566s [00:52:46.742] FUN = function(jj) { 1566s [00:52:46.742] ...future.X_jj <- ...future.elements_ii[[jj]] 1566s [00:52:46.742] assign(".Random.seed", ...future.seeds_ii[[jj]], 1566s [00:52:46.742] envir = globalenv(), inherits = FALSE) 1566s [00:52:46.742] ...future.FUN(...future.X_jj, ...) 1566s [00:52:46.742] }) 1566s [00:52:46.742] } 1566s [00:52:46.742] }, args = future.call.arguments) 1566s [00:52:46.742] })) 1566s [00:52:46.742] future::FutureResult(value = ...future.value$value, 1566s [00:52:46.742] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1566s [00:52:46.742] ...future.rng), globalenv = if (FALSE) 1566s [00:52:46.742] list(added = base::setdiff(base::names(base::.GlobalEnv), 1566s [00:52:46.742] ...future.globalenv.names)) 1566s [00:52:46.742] else NULL, started = ...future.startTime, version = "1.8") 1566s [00:52:46.742] }, condition = base::local({ 1566s [00:52:46.742] c <- base::c 1566s [00:52:46.742] inherits <- base::inherits 1566s [00:52:46.742] invokeRestart <- base::invokeRestart 1566s [00:52:46.742] length <- base::length 1566s [00:52:46.742] list <- base::list 1566s [00:52:46.742] seq.int <- base::seq.int 1566s [00:52:46.742] signalCondition <- base::signalCondition 1566s [00:52:46.742] sys.calls <- base::sys.calls 1566s [00:52:46.742] `[[` <- base::`[[` 1566s [00:52:46.742] `+` <- base::`+` 1566s [00:52:46.742] `<<-` <- base::`<<-` 1566s [00:52:46.742] sysCalls <- function(calls = sys.calls(), from = 1L) { 1566s [00:52:46.742] calls[seq.int(from = from + 12L, to = length(calls) - 1566s [00:52:46.742] 3L)] 1566s [00:52:46.742] } 1566s [00:52:46.742] function(cond) { 1566s [00:52:46.742] is_error <- inherits(cond, "error") 1566s [00:52:46.742] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1566s [00:52:46.742] NULL) 1566s [00:52:46.742] if (is_error) { 1566s [00:52:46.742] sessionInformation <- function() { 1566s [00:52:46.742] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1566s [00:52:46.742] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1566s [00:52:46.742] search = base::search(), system = base::Sys.info()) 1566s [00:52:46.742] } 1566s [00:52:46.742] ...future.conditions[[length(...future.conditions) + 1566s [00:52:46.742] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1566s [00:52:46.742] cond$call), session = sessionInformation(), 1566s [00:52:46.742] timestamp = base::Sys.time(), signaled = 0L) 1566s [00:52:46.742] signalCondition(cond) 1566s [00:52:46.742] } 1566s [00:52:46.742] else if (!ignore && TRUE && inherits(cond, c("condition", 1566s [00:52:46.742] "immediateCondition"))) { 1566s [00:52:46.742] signal <- TRUE && inherits(cond, "immediateCondition") 1566s [00:52:46.742] ...future.conditions[[length(...future.conditions) + 1566s [00:52:46.742] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1566s [00:52:46.742] if (TRUE && !signal) { 1566s [00:52:46.742] muffleCondition <- function (cond, pattern = "^muffle") 1566s [00:52:46.742] { 1566s [00:52:46.742] inherits <- base::inherits 1566s [00:52:46.742] invokeRestart <- base::invokeRestart 1566s [00:52:46.742] is.null <- base::is.null 1566s [00:52:46.742] muffled <- FALSE 1566s [00:52:46.742] if (inherits(cond, "message")) { 1566s [00:52:46.742] muffled <- grepl(pattern, "muffleMessage") 1566s [00:52:46.742] if (muffled) 1566s [00:52:46.742] invokeRestart("muffleMessage") 1566s [00:52:46.742] } 1566s [00:52:46.742] else if (inherits(cond, "warning")) { 1566s [00:52:46.742] muffled <- grepl(pattern, "muffleWarning") 1566s [00:52:46.742] if (muffled) 1566s [00:52:46.742] invokeRestart("muffleWarning") 1566s [00:52:46.742] } 1566s [00:52:46.742] else if (inherits(cond, "condition")) { 1566s [00:52:46.742] if (!is.null(pattern)) { 1566s [00:52:46.742] computeRestarts <- base::computeRestarts 1566s [00:52:46.742] grepl <- base::grepl 1566s [00:52:46.742] restarts <- computeRestarts(cond) 1566s [00:52:46.742] for (restart in restarts) { 1566s [00:52:46.742] name <- restart$name 1566s [00:52:46.742] if (is.null(name)) 1566s [00:52:46.742] next 1566s [00:52:46.742] if (!grepl(pattern, name)) 1566s [00:52:46.742] next 1566s [00:52:46.742] invokeRestart(restart) 1566s [00:52:46.742] muffled <- TRUE 1566s [00:52:46.742] break 1566s [00:52:46.742] } 1566s [00:52:46.742] } 1566s [00:52:46.742] } 1566s [00:52:46.742] invisible(muffled) 1566s [00:52:46.742] } 1566s [00:52:46.742] muffleCondition(cond, pattern = "^muffle") 1566s [00:52:46.742] } 1566s [00:52:46.742] } 1566s [00:52:46.742] else { 1566s [00:52:46.742] if (TRUE) { 1566s [00:52:46.742] muffleCondition <- function (cond, pattern = "^muffle") 1566s [00:52:46.742] { 1566s [00:52:46.742] inherits <- base::inherits 1566s [00:52:46.742] invokeRestart <- base::invokeRestart 1566s [00:52:46.742] is.null <- base::is.null 1566s [00:52:46.742] muffled <- FALSE 1566s [00:52:46.742] if (inherits(cond, "message")) { 1566s [00:52:46.742] muffled <- grepl(pattern, "muffleMessage") 1566s [00:52:46.742] if (muffled) 1566s [00:52:46.742] invokeRestart("muffleMessage") 1566s [00:52:46.742] } 1566s [00:52:46.742] else if (inherits(cond, "warning")) { 1566s [00:52:46.742] muffled <- grepl(pattern, "muffleWarning") 1566s [00:52:46.742] if (muffled) 1566s [00:52:46.742] invokeRestart("muffleWarning") 1566s [00:52:46.742] } 1566s [00:52:46.742] else if (inherits(cond, "condition")) { 1566s [00:52:46.742] if (!is.null(pattern)) { 1566s [00:52:46.742] computeRestarts <- base::computeRestarts 1566s [00:52:46.742] grepl <- base::grepl 1566s [00:52:46.742] restarts <- computeRestarts(cond) 1566s [00:52:46.742] for (restart in restarts) { 1566s [00:52:46.742] name <- restart$name 1566s [00:52:46.742] if (is.null(name)) 1566s [00:52:46.742] next 1566s [00:52:46.742] if (!grepl(pattern, name)) 1566s [00:52:46.742] next 1566s [00:52:46.742] invokeRestart(restart) 1566s [00:52:46.742] muffled <- TRUE 1566s [00:52:46.742] break 1566s [00:52:46.742] } 1566s [00:52:46.742] } 1566s [00:52:46.742] } 1566s [00:52:46.742] invisible(muffled) 1566s [00:52:46.742] } 1566s [00:52:46.742] muffleCondition(cond, pattern = "^muffle") 1566s [00:52:46.742] } 1566s [00:52:46.742] } 1566s [00:52:46.742] } 1566s [00:52:46.742] })) 1566s [00:52:46.742] }, error = function(ex) { 1566s [00:52:46.742] base::structure(base::list(value = NULL, visible = NULL, 1566s [00:52:46.742] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1566s [00:52:46.742] ...future.rng), started = ...future.startTime, 1566s [00:52:46.742] finished = Sys.time(), session_uuid = NA_character_, 1566s [00:52:46.742] version = "1.8"), class = "FutureResult") 1566s [00:52:46.742] }, finally = { 1566s [00:52:46.742] if (!identical(...future.workdir, getwd())) 1566s [00:52:46.742] setwd(...future.workdir) 1566s [00:52:46.742] { 1566s [00:52:46.742] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1566s [00:52:46.742] ...future.oldOptions$nwarnings <- NULL 1566s [00:52:46.742] } 1566s [00:52:46.742] base::options(...future.oldOptions) 1566s [00:52:46.742] if (.Platform$OS.type == "windows") { 1566s [00:52:46.742] old_names <- names(...future.oldEnvVars) 1566s [00:52:46.742] envs <- base::Sys.getenv() 1566s [00:52:46.742] names <- names(envs) 1566s [00:52:46.742] common <- intersect(names, old_names) 1566s [00:52:46.742] added <- setdiff(names, old_names) 1566s [00:52:46.742] removed <- setdiff(old_names, names) 1566s [00:52:46.742] changed <- common[...future.oldEnvVars[common] != 1566s [00:52:46.742] envs[common]] 1566s [00:52:46.742] NAMES <- toupper(changed) 1566s [00:52:46.742] args <- list() 1566s [00:52:46.742] for (kk in seq_along(NAMES)) { 1566s [00:52:46.742] name <- changed[[kk]] 1566s [00:52:46.742] NAME <- NAMES[[kk]] 1566s [00:52:46.742] if (name != NAME && is.element(NAME, old_names)) 1566s [00:52:46.742] next 1566s [00:52:46.742] args[[name]] <- ...future.oldEnvVars[[name]] 1566s [00:52:46.742] } 1566s [00:52:46.742] NAMES <- toupper(added) 1566s [00:52:46.742] for (kk in seq_along(NAMES)) { 1566s [00:52:46.742] name <- added[[kk]] 1566s [00:52:46.742] NAME <- NAMES[[kk]] 1566s [00:52:46.742] if (name != NAME && is.element(NAME, old_names)) 1566s [00:52:46.742] next 1566s [00:52:46.742] args[[name]] <- "" 1566s [00:52:46.742] } 1566s [00:52:46.742] NAMES <- toupper(removed) 1566s [00:52:46.742] for (kk in seq_along(NAMES)) { 1566s [00:52:46.742] name <- removed[[kk]] 1566s [00:52:46.742] NAME <- NAMES[[kk]] 1566s [00:52:46.742] if (name != NAME && is.element(NAME, old_names)) 1566s [00:52:46.742] next 1566s [00:52:46.742] args[[name]] <- ...future.oldEnvVars[[name]] 1566s [00:52:46.742] } 1566s [00:52:46.742] if (length(args) > 0) 1566s [00:52:46.742] base::do.call(base::Sys.setenv, args = args) 1566s [00:52:46.742] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1566s [00:52:46.742] } 1566s [00:52:46.742] else { 1566s [00:52:46.742] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1566s [00:52:46.742] } 1566s [00:52:46.742] { 1566s [00:52:46.742] if (base::length(...future.futureOptionsAdded) > 1566s [00:52:46.742] 0L) { 1566s [00:52:46.742] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1566s [00:52:46.742] base::names(opts) <- ...future.futureOptionsAdded 1566s [00:52:46.742] base::options(opts) 1566s [00:52:46.742] } 1566s [00:52:46.742] { 1566s [00:52:46.742] { 1566s [00:52:46.742] base::assign(".Random.seed", c(10403L, 2L, 1566s [00:52:46.742] 133210212L, 1945833034L, 115858357L, -364452081L, 1566s [00:52:46.742] -390319082L, 926195392L, 2057013379L, -803887967L, 1566s [00:52:46.742] -1078998384L, 705296750L, -1682614503L, 830917547L, 1566s [00:52:46.742] -331376230L, 1352842588L, 1960957023L, 1997081653L, 1566s [00:52:46.742] 374446028L, 1510359842L, 1146109309L, -1295266185L, 1566s [00:52:46.742] -1545472098L, 1268700760L, 1627111355L, -855092903L, 1566s [00:52:46.742] -215790872L, -1958931690L, 1906054289L, -782874301L, 1566s [00:52:46.742] -399096750L, -1740777756L, 1763676455L, -832683651L, 1566s [00:52:46.742] 1369376884L, 430697050L, 1699587749L, -1503628097L, 1566s [00:52:46.742] 856180550L, -242424368L, -2127251469L, 505777937L, 1566s [00:52:46.742] 257347392L, -856180962L, 886024169L, -1464480485L, 1566s [00:52:46.742] -1512233174L, -1985955764L, -425390065L, 1566s [00:52:46.742] -589669563L, 381897980L, -790840494L, 1136483533L, 1566s [00:52:46.742] -1535370105L, -607934610L, 1641470280L, -1050403509L, 1566s [00:52:46.742] 1965932713L, 362996216L, 1596838182L, -1829498303L, 1566s [00:52:46.742] -1824465965L, 1872669058L, -417374796L, -1713346249L, 1566s [00:52:46.742] 1818328109L, -1284085436L, -1981489558L, 1566s [00:52:46.742] 1940543701L, 1673049711L, -1514495114L, 467096736L, 1566s [00:52:46.742] 943410531L, -1431020031L, 1115626864L, 965475598L, 1566s [00:52:46.742] -1718567047L, -793788661L, -1133789126L, 1566s [00:52:46.742] -80588996L, 2018258047L, 1866186709L, 42791404L, 1566s [00:52:46.742] -1823521982L, -1345991523L, -1672661737L, 1566s [00:52:46.742] -180777858L, -452713416L, 1448313627L, -1459492743L, 1566s [00:52:46.742] -600706872L, -909649674L, -2081822415L, -1697455773L, 1566s [00:52:46.742] 1517613874L, -820020092L, 188336327L, -1149897827L, 1566s [00:52:46.742] -475203820L, -368005702L, 204442629L, 437854687L, 1566s [00:52:46.742] 1163191398L, -760699920L, 104455443L, 819708593L, 1566s [00:52:46.742] 1129180512L, 48636670L, 1066049161L, 398150075L, 1566s [00:52:46.742] -852036726L, -906028436L, -1265740817L, -1824646107L, 1566s [00:52:46.742] -2126068516L, 1815435954L, -146408019L, -860012185L, 1566s [00:52:46.742] -682500466L, 1443186536L, 1789394795L, -1078204151L, 1566s [00:52:46.742] 809467800L, 1514112710L, -1097673695L, 919601331L, 1566s [00:52:46.742] -331916766L, 795008020L, 1042337943L, -371219827L, 1566s [00:52:46.742] 1558967204L, 1563528586L, -2133607947L, -1904454577L, 1566s [00:52:46.742] -264006826L, 770017792L, 153477955L, 1189667553L, 1566s [00:52:46.742] -363253680L, 1882362030L, 967246937L, -793119637L, 1566s [00:52:46.742] -1401964070L, 2129232540L, -542810977L, -1277899019L, 1566s [00:52:46.742] -377097332L, -406748574L, -1722157507L, -1577740105L, 1566s [00:52:46.742] -455170210L, 372239000L, -1535936005L, -1332632679L, 1566s [00:52:46.742] -1623884760L, -359633706L, 935827793L, 1357445123L, 1566s [00:52:46.742] 997040018L, -1506538204L, -147930137L, -166569923L, 1566s [00:52:46.742] -2103753036L, 1366641946L, 30482021L, 1876964095L, 1566s [00:52:46.742] 2008557446L, 657856784L, -103814733L, 774877777L, 1566s [00:52:46.742] -486350336L, -555057442L, -1821756119L, -963495717L, 1566s [00:52:46.742] 853311466L, 1671241612L, -942337841L, 409538693L, 1566s [00:52:46.742] 1992831804L, 489867794L, 357105933L, -1611412921L, 1566s [00:52:46.742] -1119334354L, -1521015416L, -2041922421L, 1566s [00:52:46.742] 2048874089L, -700216776L, 1651628774L, -10471807L, 1566s [00:52:46.742] 736942611L, 380607938L, -1742088588L, 1124231287L, 1566s [00:52:46.742] 1232111981L, -1801753084L, -1608606422L, 1566s [00:52:46.742] -1172096363L, 1420874031L, -1210473418L, 1566s [00:52:46.742] -18317216L, -571709789L, 1107403201L, 1952554416L, 1566s [00:52:46.742] 1991660750L, -442973639L, 581522507L, -430787078L, 1566s [00:52:46.742] 1105375484L, -1481218753L, -748152299L, -641535700L, 1566s [00:52:46.742] 679371266L, -591318819L, -104578089L, -172818754L, 1566s [00:52:46.742] -1321694984L, -98191653L, 1709083961L, -344680312L, 1566s [00:52:46.742] -159571914L, 581309553L, -63938909L, 76420082L, 1566s [00:52:46.742] 951019332L, -1797740537L, 1291470301L, -2079866156L, 1566s [00:52:46.742] -332493318L, -1978392251L, -1691039632L, 1566s [00:52:46.742] 388791868L, -1101109484L, -1365177662L, 321737440L, 1566s [00:52:46.742] 1812890748L, -133313328L, -1252731998L, 2044530216L, 1566s [00:52:46.742] 1263927564L, 325388220L, 520794418L, 1449646272L, 1566s [00:52:46.742] 87560756L, -87565624L, 426345146L, -699970416L, 1566s [00:52:46.742] 240322284L, -1074080172L, -1536268654L, 1338615584L, 1566s [00:52:46.742] 478476236L, -1933154080L, -192786750L, 1559942184L, 1566s [00:52:46.742] -1178330196L, -687617348L, -1701912078L, 1566s [00:52:46.742] 352314928L, -999229532L, -2052800072L, -1913644198L, 1566s [00:52:46.742] -1345416048L, 1816730492L, -1570431212L, 1566s [00:52:46.742] -269427390L, -2122969344L, -520963140L, 1398087504L, 1566s [00:52:46.742] 264692002L, -1682658744L, -1422452724L, -1601893284L, 1566s [00:52:46.742] -66383406L, 1443075584L, -456249004L, 943694056L, 1566s [00:52:46.742] -1493184262L, -1943836976L, -590788308L, 1566s [00:52:46.742] -405505804L, -1796837998L, 1991543136L, 1170376716L, 1566s [00:52:46.742] 1707420384L, 1899700834L, -1643595096L, 47299148L, 1566s [00:52:46.742] 1274857340L, -1205842638L, -1938479504L, 1566s [00:52:46.742] -1773978812L, 532695000L, 1306451834L, 258403888L, 1566s [00:52:46.742] -284747844L, -1780705708L, 1621936194L, 1129070752L, 1566s [00:52:46.742] 540946108L, -294270512L, -1426480286L, -356302104L, 1566s [00:52:46.742] 349847756L, 1849803260L, -1299125774L, 511654528L, 1566s [00:52:46.742] -1259964940L, -1879857528L, 535666490L, -2020097200L, 1566s [00:52:46.742] -1460751252L, 1201879444L, -1459788718L, 1566s [00:52:46.742] 447195616L, -730891060L, -1875530592L, -2146183806L, 1566s [00:52:46.742] 193274088L, -1224605972L, 1616153916L, -1896973198L, 1566s [00:52:46.742] -420945808L, -1997735900L, -1838404552L, 1566s [00:52:46.742] -413698278L, 1984019664L, -1760209092L, -1288743020L, 1566s [00:52:46.742] 392579970L, -1382567488L, -1295004100L, -33348208L, 1566s [00:52:46.742] 1536615970L, -428761848L, 643368588L, -1596336356L, 1566s [00:52:46.742] 1797431442L, 352422272L, -1043800556L, 60591912L, 1566s [00:52:46.742] -1115663814L, 1043682768L, 521144684L, 4793268L, 1566s [00:52:46.742] -1924265966L, 978890208L, 370048972L, -1607474976L, 1566s [00:52:46.742] -1443637214L, -632405720L, 691912204L, 166321980L, 1566s [00:52:46.742] 942193650L, 751741680L, 689743428L, -18455976L, 1566s [00:52:46.742] -1946329286L, -1619184144L, 239341244L, 371382548L, 1566s [00:52:46.742] -2069808446L, 154176608L, 385987452L, -385611824L, 1566s [00:52:46.742] 1967391010L, 2140654248L, 1720087436L, -1591007044L, 1566s [00:52:46.742] -1612486862L, 1295747648L, 1726784692L, 597326408L, 1566s [00:52:46.742] -973152838L, 628505104L, -1089631508L, 3230036L, 1566s [00:52:46.742] -593837806L, 244006304L, 1357912780L, 1839234656L, 1566s [00:52:46.742] -1357570110L, 1896595240L, -2066952276L, 1566s [00:52:46.742] -1724304580L, 986188146L, -1200604368L, -279100124L, 1566s [00:52:46.742] 131128120L, -1088465190L, 596533136L, 170602236L, 1566s [00:52:46.742] -1051262060L, 215660610L, -686217984L, 444449852L, 1566s [00:52:46.742] 769655120L, 236357794L, 181393736L, -13334772L, 1566s [00:52:46.742] 644690652L, -1969263278L, -2107982720L, 1429553236L, 1566s [00:52:46.742] 794236904L, 1997299962L, -458224816L, 904978220L, 1566s [00:52:46.742] -537093772L, -842839150L, 1828989024L, -679303796L, 1566s [00:52:46.742] 1396292448L, 76319202L, 1896098728L, 418430156L, 1566s [00:52:46.742] 2005956604L, 1370351026L, -1178923536L, -1154073660L, 1566s [00:52:46.742] -1218863784L, 89928058L, 816597936L, -1141767748L, 1566s [00:52:46.742] 1579714644L, 1343385538L, 371259424L, -245180228L, 1566s [00:52:46.742] 365724240L, 1606388706L, -823678872L, 1281309772L, 1566s [00:52:46.742] 1395210492L, 1217887218L, 1420531968L, 1349501300L, 1566s [00:52:46.742] 271647752L, -69959750L, 360452560L, 1565334508L, 1566s [00:52:46.742] 1956526484L, -930709038L, 1961808224L, -1745916084L, 1566s [00:52:46.742] 443656480L, 1990137730L, 694374120L, -1050566420L, 1566s [00:52:46.742] -1365842884L, -438961294L, -1851472272L, 1566s [00:52:46.742] 614534180L, 1401930552L, 3652762L, 1928284880L, 1566s [00:52:46.742] -1637703492L, 26107540L, -132725907L, -371944998L, 1566s [00:52:46.742] -1311388776L, 8516097L, 741008307L, -1149566252L, 1566s [00:52:46.742] -1802640414L, 2019636855L, 1587818433L, -151040698L, 1566s [00:52:46.742] 1598381188L, -205462987L, 1911327L, -1382519432L, 1566s [00:52:46.742] -594809770L, -2146766621L, -2013964635L, 1566s [00:52:46.742] -965534910L, -2077626064L, 1964788057L, 1821395659L, 1566s [00:52:46.742] -1953549508L, -719348886L, 1442511263L, 1969287209L, 1566s [00:52:46.742] 1754221246L, -442299476L, 1981692157L, 113456199L, 1566s [00:52:46.742] 1587794736L, -1811033010L, 1149417595L, -1760887843L, 1566s [00:52:46.742] -1426021878L, -1285634264L, 1507547537L, 1566s [00:52:46.742] -1114120317L, 1897370756L, 1142575794L, -375814649L, 1566s [00:52:46.742] -1661041071L, 881081814L, -548925260L, 2073840837L, 1566s [00:52:46.742] 1156484623L, 2011334280L, 1107815334L, 969024339L, 1566s [00:52:46.742] -55972683L, 2006780434L, -1486403616L, 1698650697L, 1566s [00:52:46.742] 1813794939L, -1717763764L, 1268815066L, -1200630577L, 1566s [00:52:46.742] -773717863L, -12215122L, 1354639804L, 1213207085L, 1566s [00:52:46.742] -978295337L, 340143136L, 485429630L, -568148149L, 1566s [00:52:46.742] 1257440589L, 930106234L, -883274312L, -1632538783L, 1566s [00:52:46.742] 894748435L, -1592959180L, -596177598L, 120963415L, 1566s [00:52:46.742] -1174532959L, -561474202L, 1438545764L, 1429911189L, 1566s [00:52:46.742] 1075965887L, 367866712L, -892333706L, -485158013L, 1566s [00:52:46.742] -682634811L, 963344098L, 2110199632L, 1990767225L, 1566s [00:52:46.742] 1348335019L, 269581084L, -2040640438L, 1453561919L, 1566s [00:52:46.742] 853952649L, 1195494558L, 1614051660L, 2040242461L, 1566s [00:52:46.742] -1604604761L, 1421229008L, -1268333714L, 1566s [00:52:46.742] 174113307L, 2044969853L, 190112106L, -998776824L, 1566s [00:52:46.742] -2070476623L, -2099222749L, 1141171236L, 1566s [00:52:46.742] -146426158L, -1797385433L, -1129376399L, 1566s [00:52:46.742] -1496589386L, -419561644L, -613549595L, 1243456495L, 1566s [00:52:46.742] 451212072L, 1923543942L, 1146113971L, 93579029L, 1566s [00:52:46.742] -397504142L, 597218752L, 459048489L, 1447221915L, 1566s [00:52:46.742] -272948372L, -373834886L, 934888623L, -2099351623L, 1566s [00:52:46.742] -1672042034L, 193924380L, -704518003L, 781993207L, 1566s [00:52:46.742] -258875392L, -1853783458L, 1315003691L, -41214419L, 1566s [00:52:46.742] -59447654L, 1203745368L, 426003905L, 452670067L, 1566s [00:52:46.742] -1092079724L, -1765622238L, -1882554057L, 1566s [00:52:46.742] 1278087169L, -1994822394L, -124954300L, 1994460277L, 1566s [00:52:46.742] 1816829407L, -1568282312L, 1563616022L, 1255996195L, 1566s [00:52:46.742] 1702121701L, 1784032514L, 1842995056L, 748060441L, 1566s [00:52:46.742] 1432229643L, -1905232900L, 2016890922L, 1403944031L, 1566s [00:52:46.742] 351712233L, 1338932478L, -1359366932L, -803018691L, 1566s [00:52:46.742] -1551885305L, 248629232L, 1839395726L, 1411789243L, 1566s [00:52:46.742] 840085405L, -1849000630L, -669518488L, -1453417647L, 1566s [00:52:46.742] -1527179197L, -377159356L, 1674525170L, -313742393L, 1566s [00:52:46.742] 865377681L, -1127426242L), envir = base::globalenv(), 1566s [00:52:46.742] inherits = FALSE) 1566s [00:52:46.742] NULL 1566s [00:52:46.742] } 1566s [00:52:46.742] options(future.plan = NULL) 1566s [00:52:46.742] if (is.na(NA_character_)) 1566s [00:52:46.742] Sys.unsetenv("R_FUTURE_PLAN") 1566s [00:52:46.742] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1566s [00:52:46.742] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1566s [00:52:46.742] envir = parent.frame()) 1566s [00:52:46.742] { 1566s [00:52:46.742] default_workers <- missing(workers) 1566s [00:52:46.742] if (is.function(workers)) 1566s [00:52:46.742] workers <- workers() 1566s [00:52:46.742] workers <- structure(as.integer(workers), 1566s [00:52:46.742] class = class(workers)) 1566s [00:52:46.742] stop_if_not(is.finite(workers), workers >= 1566s [00:52:46.742] 1L) 1566s [00:52:46.742] if ((workers == 1L && !inherits(workers, 1566s [00:52:46.742] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1566s [00:52:46.742] if (default_workers) 1566s [00:52:46.742] supportsMulticore(warn = TRUE) 1566s [00:52:46.742] return(sequential(..., envir = envir)) 1566s [00:52:46.742] } 1566s [00:52:46.742] oopts <- options(mc.cores = workers) 1566s [00:52:46.742] on.exit(options(oopts)) 1566s [00:52:46.742] future <- MulticoreFuture(..., workers = workers, 1566s [00:52:46.742] envir = envir) 1566s [00:52:46.742] if (!future$lazy) 1566s [00:52:46.742] future <- run(future) 1566s [00:52:46.742] invisible(future) 1566s [00:52:46.742] }), .cleanup = FALSE, .init = FALSE) 1566s [00:52:46.742] } 1566s [00:52:46.742] } 1566s [00:52:46.742] } 1566s [00:52:46.742] }) 1566s [00:52:46.742] if (TRUE) { 1566s [00:52:46.742] base::sink(type = "output", split = FALSE) 1566s [00:52:46.742] if (TRUE) { 1566s [00:52:46.742] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1566s [00:52:46.742] } 1566s [00:52:46.742] else { 1566s [00:52:46.742] ...future.result["stdout"] <- base::list(NULL) 1566s [00:52:46.742] } 1566s [00:52:46.742] base::close(...future.stdout) 1566s [00:52:46.742] ...future.stdout <- NULL 1566s [00:52:46.742] } 1566s [00:52:46.742] ...future.result$conditions <- ...future.conditions 1566s [00:52:46.742] ...future.result$finished <- base::Sys.time() 1566s [00:52:46.742] ...future.result 1566s [00:52:46.742] } 1566s [00:52:46.748] assign_globals() ... 1566s [00:52:46.749] List of 5 1566s [00:52:46.749] $ ...future.FUN :function (...) 1566s [00:52:46.749] $ future.call.arguments : list() 1566s [00:52:46.749] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1566s [00:52:46.749] $ ...future.elements_ii :List of 5 1566s [00:52:46.749] ..$ : int 0 1566s [00:52:46.749] ..$ : int 0 1566s [00:52:46.749] ..$ : int 0 1566s [00:52:46.749] ..$ : int 0 1566s [00:52:46.749] ..$ : int 0 1566s [00:52:46.749] $ ...future.seeds_ii :List of 5 1566s [00:52:46.749] ..$ : int [1:7] 10407 424279327 242013539 -50536943 1949045882 -966354368 52785545 1566s [00:52:46.749] ..$ : int [1:7] 10407 1259015031 702630336 336295781 836592074 1678845563 -511089912 1566s [00:52:46.749] ..$ : int [1:7] 10407 1164394434 449220430 -1497007122 58661922 77957643 -850372858 1566s [00:52:46.749] ..$ : int [1:7] 10407 -102834055 -568341906 440844328 496378464 1781291461 1929965415 1566s [00:52:46.749] ..$ : int [1:7] 10407 -1584691803 1955381789 -562762208 1163324668 -1514628943 475545435 1566s [00:52:46.749] $ ...future.globals.maxSize: NULL 1566s [00:52:46.749] - attr(*, "where")=List of 5 1566s [00:52:46.749] ..$ ...future.FUN : 1566s [00:52:46.749] ..$ future.call.arguments : 1566s [00:52:46.749] ..$ ...future.elements_ii : 1566s [00:52:46.749] ..$ ...future.seeds_ii : 1566s [00:52:46.749] ..$ ...future.globals.maxSize: 1566s [00:52:46.749] - attr(*, "resolved")= logi FALSE 1566s [00:52:46.749] - attr(*, "total_size")= num 616 1566s [00:52:46.749] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1566s [00:52:46.749] - attr(*, "already-done")= logi TRUE 1566s [00:52:46.760] - reassign environment for ‘...future.FUN’ 1566s [00:52:46.760] - copied ‘...future.FUN’ to environment 1566s [00:52:46.760] - copied ‘future.call.arguments’ to environment 1566s [00:52:46.761] - copied ‘...future.elements_ii’ to environment 1566s [00:52:46.761] - copied ‘...future.seeds_ii’ to environment 1566s [00:52:46.761] - copied ‘...future.globals.maxSize’ to environment 1566s [00:52:46.761] assign_globals() ... done 1566s [00:52:46.762] plan(): Setting new future strategy stack: 1566s [00:52:46.762] List of future strategies: 1566s [00:52:46.762] 1. sequential: 1566s [00:52:46.762] - args: function (..., envir = parent.frame()) 1566s [00:52:46.762] - tweaked: FALSE 1566s [00:52:46.762] - call: NULL 1566s [00:52:46.762] plan(): nbrOfWorkers() = 1 1566s [00:52:46.763] plan(): Setting new future strategy stack: 1566s [00:52:46.764] List of future strategies: 1566s [00:52:46.764] 1. multicore: 1566s [00:52:46.764] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1566s [00:52:46.764] - tweaked: FALSE 1566s [00:52:46.764] - call: plan(strategy) 1566s [00:52:46.767] plan(): nbrOfWorkers() = 1 1566s [00:52:46.768] SequentialFuture started (and completed) 1566s [00:52:46.768] - Launch lazy future ... done 1566s [00:52:46.768] run() for ‘SequentialFuture’ ... done 1566s [00:52:46.768] Created future: 1566s [00:52:46.768] SequentialFuture: 1566s [00:52:46.768] Label: ‘future_replicate-1’ 1566s [00:52:46.768] Expression: 1566s [00:52:46.768] { 1566s [00:52:46.768] do.call(function(...) { 1566s [00:52:46.768] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1566s [00:52:46.768] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1566s [00:52:46.768] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1566s [00:52:46.768] on.exit(options(oopts), add = TRUE) 1566s [00:52:46.768] } 1566s [00:52:46.768] { 1566s [00:52:46.768] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1566s [00:52:46.768] ...future.X_jj <- ...future.elements_ii[[jj]] 1566s [00:52:46.768] assign(".Random.seed", ...future.seeds_ii[[jj]], 1566s [00:52:46.768] envir = globalenv(), inherits = FALSE) 1566s [00:52:46.768] ...future.FUN(...future.X_jj, ...) 1566s [00:52:46.768] }) 1566s [00:52:46.768] } 1566s [00:52:46.768] }, args = future.call.arguments) 1566s [00:52:46.768] } 1566s [00:52:46.768] Lazy evaluation: FALSE 1566s [00:52:46.768] Asynchronous evaluation: FALSE 1566s [00:52:46.768] Local evaluation: TRUE 1566s [00:52:46.768] Environment: R_GlobalEnv 1566s [00:52:46.768] Capture standard output: TRUE 1566s [00:52:46.768] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1566s [00:52:46.768] Globals: 5 objects totaling 1.27 KiB (function ‘...future.FUN’ of 616 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 280 bytes, list ‘...future.seeds_ii’ of 400 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1566s [00:52:46.768] Packages: 1566s [00:52:46.768] L'Ecuyer-CMRG RNG seed: (seed = NULL) 1566s [00:52:46.768] Resolved: TRUE 1566s [00:52:46.768] Value: 280 bytes of class ‘list’ 1566s [00:52:46.768] Early signaling: FALSE 1566s [00:52:46.768] Owner process: 50289bf5-8c9f-f501-15c6-3ca1fa8d82cf 1566s [00:52:46.768] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1566s [00:52:46.770] Chunk #1 of 1 ... DONE 1566s [00:52:46.770] Launching 1 futures (chunks) ... DONE 1566s [00:52:46.770] Resolving 1 futures (chunks) ... 1566s [00:52:46.770] resolve() on list ... 1566s [00:52:46.770] recursive: 0 1566s [00:52:46.771] length: 1 1566s [00:52:46.771] 1566s [00:52:46.771] resolved() for ‘SequentialFuture’ ... 1566s [00:52:46.771] - state: ‘finished’ 1566s [00:52:46.771] - run: TRUE 1566s [00:52:46.771] - result: ‘FutureResult’ 1566s [00:52:46.771] resolved() for ‘SequentialFuture’ ... done 1566s [00:52:46.772] Future #1 1566s [00:52:46.772] signalConditionsASAP(SequentialFuture, pos=1) ... 1566s [00:52:46.772] - nx: 1 1566s [00:52:46.772] - relay: TRUE 1566s [00:52:46.772] - stdout: TRUE 1566s [00:52:46.772] - signal: TRUE 1566s [00:52:46.772] - resignal: FALSE 1566s [00:52:46.772] - force: TRUE 1566s [00:52:46.772] - relayed: [n=1] FALSE 1566s [00:52:46.773] - queued futures: [n=1] FALSE 1566s [00:52:46.773] - until=1 1566s [00:52:46.773] - relaying element #1 1566s [00:52:46.773] - relayed: [n=1] TRUE 1566s [00:52:46.773] - queued futures: [n=1] TRUE 1566s [00:52:46.773] signalConditionsASAP(SequentialFuture, pos=1) ... done 1566s [00:52:46.774] length: 0 (resolved future 1) 1566s [00:52:46.774] Relaying remaining futures 1566s [00:52:46.774] signalConditionsASAP(NULL, pos=0) ... 1566s [00:52:46.774] - nx: 1 1566s [00:52:46.774] - relay: TRUE 1566s [00:52:46.774] - stdout: TRUE 1566s [00:52:46.774] - signal: TRUE 1566s [00:52:46.774] - resignal: FALSE 1566s [00:52:46.774] - force: TRUE 1566s [00:52:46.774] - relayed: [n=1] TRUE 1566s [00:52:46.775] - queued futures: [n=1] TRUE 1566s - flush all 1566s [00:52:46.775] - relayed: [n=1] TRUE 1566s [00:52:46.775] - queued futures: [n=1] TRUE 1566s [00:52:46.775] signalConditionsASAP(NULL, pos=0) ... done 1566s [00:52:46.775] resolve() on list ... DONE 1566s [00:52:46.775] - Number of value chunks collected: 1 1566s [00:52:46.775] Resolving 1 futures (chunks) ... DONE 1566s [00:52:46.775] Reducing values from 1 chunks ... 1566s [00:52:46.776] - Number of values collected after concatenation: 5 1566s [00:52:46.776] - Number of values expected: 5 1566s [00:52:46.776] Reducing values from 1 chunks ... DONE 1566s [00:52:46.776] future_lapply() ... DONE 1566s [00:52:46.776] future_lapply() ... 1566s [00:52:46.777] Generating random seeds ... 1566s [00:52:46.777] Generating random seed streams for 5 elements ... 1566s [00:52:46.777] Generating random seed streams for 5 elements ... DONE 1566s [00:52:46.777] Generating random seeds ... DONE 1566s [00:52:46.777] Will set RNG state on exit: 10403, 4, 133210212, 1945833034, 115858357, -364452081, -390319082, 926195392, 2057013379, -803887967, -1078998384, 705296750, -1682614503, 830917547, -331376230, 1352842588, 1960957023, 1997081653, 374446028, 1510359842, 1146109309, -1295266185, -1545472098, 1268700760, 1627111355, -855092903, -215790872, -1958931690, 1906054289, -782874301, -399096750, -1740777756, 1763676455, -832683651, 1369376884, 430697050, 1699587749, -1503628097, 856180550, -242424368, -2127251469, 505777937, 257347392, -856180962, 886024169, -1464480485, -1512233174, -1985955764, -425390065, -589669563, 381897980, -790840494, 1136483533, -1535370105, -607934610, 1641470280, -1050403509, 1965932713, 362996216, 1596838182, -1829498303, -1824465965, 1872669058, -417374796, -1713346249, 1818328109, -1284085436, -1981489558, 1940543701, 1673049711, -1514495114, 467096736, 943410531, -1431020031, 1115626864, 965475598, -1718567047, -793788661, -1133789126, -80588996, 2018258047, 1866186709, 42791404, -1823521982, -1345991523, -1672661737, -180777858, -452713416, 1448313627, -1459492743, -600706872, -909649674, -2081822415, -1697455773, 1517613874, -820020092, 188336327, -1149897827, -475203820, -368005702, 204442629, 437854687, 1163191398, -760699920, 104455443, 819708593, 1129180512, 48636670, 1066049161, 398150075, -852036726, -906028436, -1265740817, -1824646107, -2126068516, 1815435954, -146408019, -860012185, -682500466, 1443186536, 1789394795, -1078204151, 809467800, 1514112710, -1097673695, 919601331, -331916766, 795008020, 1042337943, -371219827, 1558967204, 1563528586, -2133607947, -1904454577, -264006826, 770017792, 153477955, 1189667553, -363253680, 1882362030, 967246937, -793119637, -1401964070, 2129232540, -542810977, -1277899019, -377097332, -406748574, -1722157507, -1577740105, -455170210, 372239000, -1535936005, -1332632679, -1623884760, -359633706, 935827793, 1357445123, 997040018, -1506538204, -147930137, -166569923, -2103753036, 1366641946, 30482021, 1876964095, 2008557446, 657856784, -103814733, 774877777, -486350336, -555057442, -1821756119, -963495717, 853311466, 1671241612, -942337841, 409538693, 1992831804, 489867794, 357105933, -1611412921, -1119334354, -1521015416, -2041922421, 2048874089, -700216776, 1651628774, -10471807, 736942611, 380607938, -1742088588, 1124231287, 1232111981, -1801753084, -1608606422, -1172096363, 1420874031, -1210473418, -18317216, -571709789, 1107403201, 1952554416, 1991660750, -442973639, 581522507, -430787078, 1105375484, -1481218753, -748152299, -641535700, 679371266, -591318819, -104578089, -172818754, -1321694984, -98191653, 1709083961, -344680312, -159571914, 581309553, -63938909, 76420082, 951019332, -1797740537, 1291470301, -2079866156, -332493318, -1978392251, -1691039632, 388791868, -1101109484, -1365177662, 321737440, 1812890748, -133313328, -1252731998, 2044530216, 1263927564, 325388220, 520794418, 1449646272, 87560756, -87565624, 426345146, -699970416, 240322284, -1074080172, -1536268654, 1338615584, 478476236, -1933154080, -192786750, 1559942184, -1178330196, -687617348, -1701912078, 352314928, -999229532, -2052800072, -1913644198, -1345416048, 1816730492, -1570431212, -269427390, -2122969344, -520963140, 1398087504, 264692002, -1682658744, -1422452724, -1601893284, -66383406, 1443075584, -456249004, 943694056, -1493184262, -1943836976, -590788308, -405505804, -1796837998, 1991543136, 1170376716, 1707420384, 1899700834, -1643595096, 47299148, 1274857340, -1205842638, -1938479504, -1773978812, 532695000, 1306451834, 258403888, -284747844, -1780705708, 1621936194, 1129070752, 540946108, -294270512, -1426480286, -356302104, 349847756, 1849803260, -1299125774, 511654528, -1259964940, -1879857528, 535666490, -2020097200, -1460751252, 1201879444, -1459788718, 447195616, -730891060, -1875530592, -2146183806, 193274088, -1224605972, 1616153916, -1896973198, -420945808, -1997735900, -1838404552, -413698278, 1984019664, -1760209092, -1288743020, 392579970, -1382567488, -1295004100, -33348208, 1536615970, -428761848, 643368588, -1596336356, 1797431442, 352422272, -1043800556, 60591912, -1115663814, 1043682768, 521144684, 4793268, -1924265966, 978890208, 370048972, -1607474976, -1443637214, -632405720, 691912204, 166321980, 942193650, 751741680, 689743428, -18455976, -1946329286, -1619184144, 239341244, 371382548, -2069808446, 154176608, 385987452, -385611824, 1967391010, 2140654248, 1720087436, -1591007044, -1612486862, 1295747648, 1726784692, 597326408, -973152838, 628505104, -1089631508, 3230036, -593837806, 244006304, 1357912780, 1839234656, -1357570110, 1896595240, -2066952276, -1724304580, 986188146, -1200604368, -279100124, 131128120, -1088465190, 596533136, 170602236, -1051262060, 215660610, -686217984, 444449852, 769655120, 236357794, 181393736, -13334772, 644690652, -1969263278, -2107982720, 1429553236, 794236904, 1997299962, -458224816, 904978220, -537093772, -842839150, 1828989024, -679303796, 1396292448, 76319202, 1896098728, 418430156, 2005956604, 1370351026, -1178923536, -1154073660, -1218863784, 89928058, 816597936, -1141767748, 1579714644, 1343385538, 371259424, -245180228, 365724240, 1606388706, -823678872, 1281309772, 1395210492, 1217887218, 1420531968, 1349501300, 271647752, -69959750, 360452560, 1565334508, 1956526484, -930709038, 1961808224, -1745916084, 443656480, 1990137730, 694374120, -1050566420, -1365842884, -438961294, -1851472272, 614534180, 1401930552, 3652762, 1928284880, -1637703492, 26107540, -132725907, -371944998, -1311388776, 8516097, 741008307, -1149566252, -1802640414, 2019636855, 1587818433, -151040698, 1598381188, -205462987, 1911327, -1382519432, -594809770, -2146766621, -2013964635, -965534910, -2077626064, 1964788057, 1821395659, -1953549508, -719348886, 1442511263, 1969287209, 1754221246, -442299476, 1981692157, 113456199, 1587794736, -1811033010, 1149417595, -1760887843, -1426021878, -1285634264, 1507547537, -1114120317, 1897370756, 1142575794, -375814649, -1661041071, 881081814, -548925260, 2073840837, 1156484623, 2011334280, 1107815334, 969024339, -55972683, 2006780434, -1486403616, 1698650697, 1813794939, -1717763764, 1268815066, -1200630577, -773717863, -12215122, 1354639804, 1213207085, -978295337, 340143136, 485429630, -568148149, 1257440589, 930106234, -883274312, -1632538783, 894748435, -1592959180, -596177598, 120963415, -1174532959, -561474202, 1438545764, 1429911189, 1075965887, 367866712, -892333706, -485158013, -682634811, 963344098, 2110199632, 1990767225, 1348335019, 269581084, -2040640438, 1453561919, 853952649, 1195494558, 1614051660, 2040242461, -1604604761, 1421229008, -1268333714, 174113307, 2044969853, 190112106, -998776824, -2070476623, -2099222749, 1141171236, -146426158, -1797385433, -1129376399, -1496589386, -419561644, -613549595, 1243456495, 451212072, 1923543942, 1146113971, 93579029, -397504142, 597218752, 459048489, 1447221915, -272948372, -373834886, 934888623, -2099351623, -1672042034, 193924380, -704518003, 781993207, -258875392, -1853783458, 1315003691, -41214419, -59447654, 1203745368, 426003905, 452670067, -1092079724, -1765622238, -1882554057, 1278087169, -1994822394, -124954300, 1994460277, 1816829407, -1568282312, 1563616022, 1255996195, 1702121701, 1784032514, 1842995056, 748060441, 1432229643, -1905232900, 2016890922, 1403944031, 351712233, 1338932478, -1359366932, -803018691, -1551885305, 248629232, 1839395726, 1411789243, 840085405, -1849000630, -669518488, -1453417647, -1527179197, -377159356, 1674525170, -313742393, 865377681, -1127426242 1566s [00:52:46.781] Number of chunks: 1 1566s [00:52:46.781] getGlobalsAndPackagesXApply() ... 1566s [00:52:46.782] - future.globals: TRUE 1566s [00:52:46.782] getGlobalsAndPackages() ... 1566s [00:52:46.785] Searching for globals... 1566s [00:52:46.786] - globals found: [2] ‘FUN’, ‘sample’ 1566s [00:52:46.786] Searching for globals ... DONE 1566s [00:52:46.787] Resolving globals: FALSE 1566s [00:52:46.787] The total size of the 1 globals is 616 bytes (616 bytes) 1566s [00:52:46.788] The total size of the 1 globals exported for future expression (‘FUN()’) is 616 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (616 bytes of class ‘function’) 1566s [00:52:46.788] - globals: [1] ‘FUN’ 1566s [00:52:46.788] 1566s [00:52:46.788] getGlobalsAndPackages() ... DONE 1566s [00:52:46.788] - globals found/used: [n=1] ‘FUN’ 1566s [00:52:46.788] - needed namespaces: [n=0] 1566s [00:52:46.789] Finding globals ... DONE 1566s [00:52:46.789] - use_args: TRUE 1566s [00:52:46.789] - Getting '...' globals ... 1566s [00:52:46.789] resolve() on list ... 1566s [00:52:46.789] recursive: 0 1566s [00:52:46.790] length: 1 1566s [00:52:46.790] elements: ‘...’ 1566s [00:52:46.791] length: 0 (resolved future 1) 1566s [00:52:46.791] resolve() on list ... DONE 1566s [00:52:46.791] - '...' content: [n=0] 1566s [00:52:46.791] List of 1 1566s [00:52:46.791] $ ...: list() 1566s [00:52:46.791] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1566s [00:52:46.791] - attr(*, "where")=List of 1 1566s [00:52:46.791] ..$ ...: 1566s [00:52:46.791] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1566s [00:52:46.791] - attr(*, "resolved")= logi TRUE 1566s [00:52:46.791] - attr(*, "total_size")= num NA 1566s [00:52:46.796] - Getting '...' globals ... DONE 1566s [00:52:46.796] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1566s [00:52:46.796] List of 2 1566s [00:52:46.796] $ ...future.FUN:function (...) 1566s [00:52:46.796] $ ... : list() 1566s [00:52:46.796] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1566s [00:52:46.796] - attr(*, "where")=List of 2 1566s [00:52:46.796] ..$ ...future.FUN: 1566s [00:52:46.796] ..$ ... : 1566s [00:52:46.796] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1566s [00:52:46.796] - attr(*, "resolved")= logi FALSE 1566s [00:52:46.796] - attr(*, "total_size")= num 616 1566s [00:52:46.800] Packages to be attached in all futures: [n=0] 1566s [00:52:46.800] getGlobalsAndPackagesXApply() ... DONE 1566s [00:52:46.801] Number of futures (= number of chunks): 1 1566s [00:52:46.801] Launching 1 futures (chunks) ... 1566s [00:52:46.801] Chunk #1 of 1 ... 1566s [00:52:46.801] - Finding globals in 'X' for chunk #1 ... 1566s [00:52:46.801] getGlobalsAndPackages() ... 1566s [00:52:46.801] Searching for globals... 1566s [00:52:46.802] 1566s [00:52:46.802] Searching for globals ... DONE 1566s [00:52:46.802] - globals: [0] 1566s [00:52:46.802] getGlobalsAndPackages() ... DONE 1566s [00:52:46.803] + additional globals found: [n=0] 1566s [00:52:46.803] + additional namespaces needed: [n=0] 1566s [00:52:46.803] - Finding globals in 'X' for chunk #1 ... DONE 1566s [00:52:46.803] - seeds: [5] 1566s [00:52:46.804] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1566s [00:52:46.804] getGlobalsAndPackages() ... 1566s [00:52:46.804] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1566s [00:52:46.804] Resolving globals: FALSE 1566s [00:52:46.804] Tweak future expression to call with '...' arguments ... 1566s [00:52:46.804] { 1566s [00:52:46.804] do.call(function(...) { 1566s [00:52:46.804] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1566s [00:52:46.804] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1566s [00:52:46.804] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1566s [00:52:46.804] on.exit(options(oopts), add = TRUE) 1566s [00:52:46.804] } 1566s [00:52:46.804] { 1566s [00:52:46.804] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1566s [00:52:46.804] ...future.X_jj <- ...future.elements_ii[[jj]] 1566s [00:52:46.804] assign(".Random.seed", ...future.seeds_ii[[jj]], 1566s [00:52:46.804] envir = globalenv(), inherits = FALSE) 1566s [00:52:46.804] ...future.FUN(...future.X_jj, ...) 1566s [00:52:46.804] }) 1566s [00:52:46.804] } 1566s [00:52:46.804] }, args = future.call.arguments) 1566s [00:52:46.804] } 1566s [00:52:46.805] Tweak future expression to call with '...' arguments ... DONE 1566s [00:52:46.805] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1566s [00:52:46.806] 1566s [00:52:46.806] getGlobalsAndPackages() ... DONE 1566s [00:52:46.806] run() for ‘Future’ ... 1566s [00:52:46.806] - state: ‘created’ 1566s [00:52:46.807] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1566s [00:52:46.810] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1566s [00:52:46.810] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1566s [00:52:46.811] - Field: ‘label’ 1566s [00:52:46.811] - Field: ‘local’ 1566s [00:52:46.811] - Field: ‘owner’ 1566s [00:52:46.811] - Field: ‘envir’ 1566s [00:52:46.811] - Field: ‘packages’ 1566s [00:52:46.812] - Field: ‘gc’ 1566s [00:52:46.812] - Field: ‘conditions’ 1566s [00:52:46.812] - Field: ‘expr’ 1566s [00:52:46.812] - Field: ‘uuid’ 1566s [00:52:46.812] - Field: ‘seed’ 1566s [00:52:46.813] - Field: ‘version’ 1566s [00:52:46.813] - Field: ‘result’ 1566s [00:52:46.813] - Field: ‘asynchronous’ 1566s [00:52:46.813] - Field: ‘calls’ 1566s [00:52:46.813] - Field: ‘globals’ 1566s [00:52:46.814] - Field: ‘stdout’ 1566s [00:52:46.814] - Field: ‘earlySignal’ 1566s [00:52:46.814] - Field: ‘lazy’ 1566s [00:52:46.814] - Field: ‘state’ 1566s [00:52:46.815] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1566s [00:52:46.815] - Launch lazy future ... 1566s [00:52:46.815] Packages needed by the future expression (n = 0): 1566s [00:52:46.815] Packages needed by future strategies (n = 0): 1566s [00:52:46.816] { 1566s [00:52:46.816] { 1566s [00:52:46.816] { 1566s [00:52:46.816] ...future.startTime <- base::Sys.time() 1566s [00:52:46.816] { 1566s [00:52:46.816] { 1566s [00:52:46.816] { 1566s [00:52:46.816] base::local({ 1566s [00:52:46.816] has_future <- base::requireNamespace("future", 1566s [00:52:46.816] quietly = TRUE) 1566s [00:52:46.816] if (has_future) { 1566s [00:52:46.816] ns <- base::getNamespace("future") 1566s [00:52:46.816] version <- ns[[".package"]][["version"]] 1566s [00:52:46.816] if (is.null(version)) 1566s [00:52:46.816] version <- utils::packageVersion("future") 1566s [00:52:46.816] } 1566s [00:52:46.816] else { 1566s [00:52:46.816] version <- NULL 1566s [00:52:46.816] } 1566s [00:52:46.816] if (!has_future || version < "1.8.0") { 1566s [00:52:46.816] info <- base::c(r_version = base::gsub("R version ", 1566s [00:52:46.816] "", base::R.version$version.string), 1566s [00:52:46.816] platform = base::sprintf("%s (%s-bit)", 1566s [00:52:46.816] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1566s [00:52:46.816] os = base::paste(base::Sys.info()[base::c("sysname", 1566s [00:52:46.816] "release", "version")], collapse = " "), 1566s [00:52:46.816] hostname = base::Sys.info()[["nodename"]]) 1566s [00:52:46.816] info <- base::sprintf("%s: %s", base::names(info), 1566s [00:52:46.816] info) 1566s [00:52:46.816] info <- base::paste(info, collapse = "; ") 1566s [00:52:46.816] if (!has_future) { 1566s [00:52:46.816] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1566s [00:52:46.816] info) 1566s [00:52:46.816] } 1566s [00:52:46.816] else { 1566s [00:52:46.816] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1566s [00:52:46.816] info, version) 1566s [00:52:46.816] } 1566s [00:52:46.816] base::stop(msg) 1566s [00:52:46.816] } 1566s [00:52:46.816] }) 1566s [00:52:46.816] } 1566s [00:52:46.816] options(future.plan = NULL) 1566s [00:52:46.816] Sys.unsetenv("R_FUTURE_PLAN") 1566s [00:52:46.816] future::plan("default", .cleanup = FALSE, .init = FALSE) 1566s [00:52:46.816] } 1566s [00:52:46.816] ...future.workdir <- getwd() 1566s [00:52:46.816] } 1566s [00:52:46.816] ...future.oldOptions <- base::as.list(base::.Options) 1566s [00:52:46.816] ...future.oldEnvVars <- base::Sys.getenv() 1566s [00:52:46.816] } 1566s [00:52:46.816] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1566s [00:52:46.816] future.globals.maxSize = NULL, future.globals.method = NULL, 1566s [00:52:46.816] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1566s [00:52:46.816] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1566s [00:52:46.816] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1566s [00:52:46.816] future.stdout.windows.reencode = NULL, width = 80L) 1566s [00:52:46.816] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1566s [00:52:46.816] base::names(...future.oldOptions)) 1566s [00:52:46.816] } 1566s [00:52:46.816] if (FALSE) { 1566s [00:52:46.816] } 1566s [00:52:46.816] else { 1566s [00:52:46.816] if (TRUE) { 1566s [00:52:46.816] ...future.stdout <- base::rawConnection(base::raw(0L), 1566s [00:52:46.816] open = "w") 1566s [00:52:46.816] } 1566s [00:52:46.816] else { 1566s [00:52:46.816] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1566s [00:52:46.816] windows = "NUL", "/dev/null"), open = "w") 1566s [00:52:46.816] } 1566s [00:52:46.816] base::sink(...future.stdout, type = "output", split = FALSE) 1566s [00:52:46.816] base::on.exit(if (!base::is.null(...future.stdout)) { 1566s [00:52:46.816] base::sink(type = "output", split = FALSE) 1566s [00:52:46.816] base::close(...future.stdout) 1566s [00:52:46.816] }, add = TRUE) 1566s [00:52:46.816] } 1566s [00:52:46.816] ...future.frame <- base::sys.nframe() 1566s [00:52:46.816] ...future.conditions <- base::list() 1566s [00:52:46.816] ...future.rng <- base::globalenv()$.Random.seed 1566s [00:52:46.816] if (FALSE) { 1566s [00:52:46.816] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1566s [00:52:46.816] "...future.value", "...future.globalenv.names", ".Random.seed") 1566s [00:52:46.816] } 1566s [00:52:46.816] ...future.result <- base::tryCatch({ 1566s [00:52:46.816] base::withCallingHandlers({ 1566s [00:52:46.816] ...future.value <- base::withVisible(base::local({ 1566s [00:52:46.816] do.call(function(...) { 1566s [00:52:46.816] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1566s [00:52:46.816] if (!identical(...future.globals.maxSize.org, 1566s [00:52:46.816] ...future.globals.maxSize)) { 1566s [00:52:46.816] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1566s [00:52:46.816] on.exit(options(oopts), add = TRUE) 1566s [00:52:46.816] } 1566s [00:52:46.816] { 1566s [00:52:46.816] lapply(seq_along(...future.elements_ii), 1566s [00:52:46.816] FUN = function(jj) { 1566s [00:52:46.816] ...future.X_jj <- ...future.elements_ii[[jj]] 1566s [00:52:46.816] assign(".Random.seed", ...future.seeds_ii[[jj]], 1566s [00:52:46.816] envir = globalenv(), inherits = FALSE) 1566s [00:52:46.816] ...future.FUN(...future.X_jj, ...) 1566s [00:52:46.816] }) 1566s [00:52:46.816] } 1566s [00:52:46.816] }, args = future.call.arguments) 1566s [00:52:46.816] })) 1566s [00:52:46.816] future::FutureResult(value = ...future.value$value, 1566s [00:52:46.816] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1566s [00:52:46.816] ...future.rng), globalenv = if (FALSE) 1566s [00:52:46.816] list(added = base::setdiff(base::names(base::.GlobalEnv), 1566s [00:52:46.816] ...future.globalenv.names)) 1566s [00:52:46.816] else NULL, started = ...future.startTime, version = "1.8") 1566s [00:52:46.816] }, condition = base::local({ 1566s [00:52:46.816] c <- base::c 1566s [00:52:46.816] inherits <- base::inherits 1566s [00:52:46.816] invokeRestart <- base::invokeRestart 1566s [00:52:46.816] length <- base::length 1566s [00:52:46.816] list <- base::list 1566s [00:52:46.816] seq.int <- base::seq.int 1566s [00:52:46.816] signalCondition <- base::signalCondition 1566s [00:52:46.816] sys.calls <- base::sys.calls 1566s [00:52:46.816] `[[` <- base::`[[` 1566s [00:52:46.816] `+` <- base::`+` 1566s [00:52:46.816] `<<-` <- base::`<<-` 1566s [00:52:46.816] sysCalls <- function(calls = sys.calls(), from = 1L) { 1566s [00:52:46.816] calls[seq.int(from = from + 12L, to = length(calls) - 1566s [00:52:46.816] 3L)] 1566s [00:52:46.816] } 1566s [00:52:46.816] function(cond) { 1566s [00:52:46.816] is_error <- inherits(cond, "error") 1566s [00:52:46.816] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1566s [00:52:46.816] NULL) 1566s [00:52:46.816] if (is_error) { 1566s [00:52:46.816] sessionInformation <- function() { 1566s [00:52:46.816] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1566s [00:52:46.816] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1566s [00:52:46.816] search = base::search(), system = base::Sys.info()) 1566s [00:52:46.816] } 1566s [00:52:46.816] ...future.conditions[[length(...future.conditions) + 1566s [00:52:46.816] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1566s [00:52:46.816] cond$call), session = sessionInformation(), 1566s [00:52:46.816] timestamp = base::Sys.time(), signaled = 0L) 1566s [00:52:46.816] signalCondition(cond) 1566s [00:52:46.816] } 1566s [00:52:46.816] else if (!ignore && TRUE && inherits(cond, c("condition", 1566s [00:52:46.816] "immediateCondition"))) { 1566s [00:52:46.816] signal <- TRUE && inherits(cond, "immediateCondition") 1566s [00:52:46.816] ...future.conditions[[length(...future.conditions) + 1566s [00:52:46.816] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1566s [00:52:46.816] if (TRUE && !signal) { 1566s [00:52:46.816] muffleCondition <- function (cond, pattern = "^muffle") 1566s [00:52:46.816] { 1566s [00:52:46.816] inherits <- base::inherits 1566s [00:52:46.816] invokeRestart <- base::invokeRestart 1566s [00:52:46.816] is.null <- base::is.null 1566s [00:52:46.816] muffled <- FALSE 1566s [00:52:46.816] if (inherits(cond, "message")) { 1566s [00:52:46.816] muffled <- grepl(pattern, "muffleMessage") 1566s [00:52:46.816] if (muffled) 1566s [00:52:46.816] invokeRestart("muffleMessage") 1566s [00:52:46.816] } 1566s [00:52:46.816] else if (inherits(cond, "warning")) { 1566s [00:52:46.816] muffled <- grepl(pattern, "muffleWarning") 1566s [00:52:46.816] if (muffled) 1566s [00:52:46.816] invokeRestart("muffleWarning") 1566s [00:52:46.816] } 1566s [00:52:46.816] else if (inherits(cond, "condition")) { 1566s [00:52:46.816] if (!is.null(pattern)) { 1566s [00:52:46.816] computeRestarts <- base::computeRestarts 1566s [00:52:46.816] grepl <- base::grepl 1566s [00:52:46.816] restarts <- computeRestarts(cond) 1566s [00:52:46.816] for (restart in restarts) { 1566s [00:52:46.816] name <- restart$name 1566s [00:52:46.816] if (is.null(name)) 1566s [00:52:46.816] next 1566s [00:52:46.816] if (!grepl(pattern, name)) 1566s [00:52:46.816] next 1566s [00:52:46.816] invokeRestart(restart) 1566s [00:52:46.816] muffled <- TRUE 1566s [00:52:46.816] break 1566s [00:52:46.816] } 1566s [00:52:46.816] } 1566s [00:52:46.816] } 1566s [00:52:46.816] invisible(muffled) 1566s [00:52:46.816] } 1566s [00:52:46.816] muffleCondition(cond, pattern = "^muffle") 1566s [00:52:46.816] } 1566s [00:52:46.816] } 1566s [00:52:46.816] else { 1566s [00:52:46.816] if (TRUE) { 1566s [00:52:46.816] muffleCondition <- function (cond, pattern = "^muffle") 1566s [00:52:46.816] { 1566s [00:52:46.816] inherits <- base::inherits 1566s [00:52:46.816] invokeRestart <- base::invokeRestart 1566s [00:52:46.816] is.null <- base::is.null 1566s [00:52:46.816] muffled <- FALSE 1566s [00:52:46.816] if (inherits(cond, "message")) { 1566s [00:52:46.816] muffled <- grepl(pattern, "muffleMessage") 1566s [00:52:46.816] if (muffled) 1566s [00:52:46.816] invokeRestart("muffleMessage") 1566s [00:52:46.816] } 1566s [00:52:46.816] else if (inherits(cond, "warning")) { 1566s [00:52:46.816] muffled <- grepl(pattern, "muffleWarning") 1566s [00:52:46.816] if (muffled) 1566s [00:52:46.816] invokeRestart("muffleWarning") 1566s [00:52:46.816] } 1566s [00:52:46.816] else if (inherits(cond, "condition")) { 1566s [00:52:46.816] if (!is.null(pattern)) { 1566s [00:52:46.816] computeRestarts <- base::computeRestarts 1566s [00:52:46.816] grepl <- base::grepl 1566s [00:52:46.816] restarts <- computeRestarts(cond) 1566s [00:52:46.816] for (restart in restarts) { 1566s [00:52:46.816] name <- restart$name 1566s [00:52:46.816] if (is.null(name)) 1566s [00:52:46.816] next 1566s [00:52:46.816] if (!grepl(pattern, name)) 1566s [00:52:46.816] next 1566s [00:52:46.816] invokeRestart(restart) 1566s [00:52:46.816] muffled <- TRUE 1566s [00:52:46.816] break 1566s [00:52:46.816] } 1566s [00:52:46.816] } 1566s [00:52:46.816] } 1566s [00:52:46.816] invisible(muffled) 1566s [00:52:46.816] } 1566s [00:52:46.816] muffleCondition(cond, pattern = "^muffle") 1566s [00:52:46.816] } 1566s [00:52:46.816] } 1566s [00:52:46.816] } 1566s [00:52:46.816] })) 1566s [00:52:46.816] }, error = function(ex) { 1566s [00:52:46.816] base::structure(base::list(value = NULL, visible = NULL, 1566s [00:52:46.816] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1566s [00:52:46.816] ...future.rng), started = ...future.startTime, 1566s [00:52:46.816] finished = Sys.time(), session_uuid = NA_character_, 1566s [00:52:46.816] version = "1.8"), class = "FutureResult") 1566s [00:52:46.816] }, finally = { 1566s [00:52:46.816] if (!identical(...future.workdir, getwd())) 1566s [00:52:46.816] setwd(...future.workdir) 1566s [00:52:46.816] { 1566s [00:52:46.816] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1566s [00:52:46.816] ...future.oldOptions$nwarnings <- NULL 1566s [00:52:46.816] } 1566s [00:52:46.816] base::options(...future.oldOptions) 1566s [00:52:46.816] if (.Platform$OS.type == "windows") { 1566s [00:52:46.816] old_names <- names(...future.oldEnvVars) 1566s [00:52:46.816] envs <- base::Sys.getenv() 1566s [00:52:46.816] names <- names(envs) 1566s [00:52:46.816] common <- intersect(names, old_names) 1566s [00:52:46.816] added <- setdiff(names, old_names) 1566s [00:52:46.816] removed <- setdiff(old_names, names) 1566s [00:52:46.816] changed <- common[...future.oldEnvVars[common] != 1566s [00:52:46.816] envs[common]] 1566s [00:52:46.816] NAMES <- toupper(changed) 1566s [00:52:46.816] args <- list() 1566s [00:52:46.816] for (kk in seq_along(NAMES)) { 1566s [00:52:46.816] name <- changed[[kk]] 1566s [00:52:46.816] NAME <- NAMES[[kk]] 1566s [00:52:46.816] if (name != NAME && is.element(NAME, old_names)) 1566s [00:52:46.816] next 1566s [00:52:46.816] args[[name]] <- ...future.oldEnvVars[[name]] 1566s [00:52:46.816] } 1566s [00:52:46.816] NAMES <- toupper(added) 1566s [00:52:46.816] for (kk in seq_along(NAMES)) { 1566s [00:52:46.816] name <- added[[kk]] 1566s [00:52:46.816] NAME <- NAMES[[kk]] 1566s [00:52:46.816] if (name != NAME && is.element(NAME, old_names)) 1566s [00:52:46.816] next 1566s [00:52:46.816] args[[name]] <- "" 1566s [00:52:46.816] } 1566s [00:52:46.816] NAMES <- toupper(removed) 1566s [00:52:46.816] for (kk in seq_along(NAMES)) { 1566s [00:52:46.816] name <- removed[[kk]] 1566s [00:52:46.816] NAME <- NAMES[[kk]] 1566s [00:52:46.816] if (name != NAME && is.element(NAME, old_names)) 1566s [00:52:46.816] next 1566s [00:52:46.816] args[[name]] <- ...future.oldEnvVars[[name]] 1566s [00:52:46.816] } 1566s [00:52:46.816] if (length(args) > 0) 1566s [00:52:46.816] base::do.call(base::Sys.setenv, args = args) 1566s [00:52:46.816] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1566s [00:52:46.816] } 1566s [00:52:46.816] else { 1566s [00:52:46.816] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1566s [00:52:46.816] } 1566s [00:52:46.816] { 1566s [00:52:46.816] if (base::length(...future.futureOptionsAdded) > 1566s [00:52:46.816] 0L) { 1566s [00:52:46.816] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1566s [00:52:46.816] base::names(opts) <- ...future.futureOptionsAdded 1566s [00:52:46.816] base::options(opts) 1566s [00:52:46.816] } 1566s [00:52:46.816] { 1566s [00:52:46.816] { 1566s [00:52:46.816] base::assign(".Random.seed", c(10403L, 4L, 1566s [00:52:46.816] 133210212L, 1945833034L, 115858357L, -364452081L, 1566s [00:52:46.816] -390319082L, 926195392L, 2057013379L, -803887967L, 1566s [00:52:46.816] -1078998384L, 705296750L, -1682614503L, 830917547L, 1566s [00:52:46.816] -331376230L, 1352842588L, 1960957023L, 1997081653L, 1566s [00:52:46.816] 374446028L, 1510359842L, 1146109309L, -1295266185L, 1566s [00:52:46.816] -1545472098L, 1268700760L, 1627111355L, -855092903L, 1566s [00:52:46.816] -215790872L, -1958931690L, 1906054289L, -782874301L, 1566s [00:52:46.816] -399096750L, -1740777756L, 1763676455L, -832683651L, 1566s [00:52:46.816] 1369376884L, 430697050L, 1699587749L, -1503628097L, 1566s [00:52:46.816] 856180550L, -242424368L, -2127251469L, 505777937L, 1566s [00:52:46.816] 257347392L, -856180962L, 886024169L, -1464480485L, 1566s [00:52:46.816] -1512233174L, -1985955764L, -425390065L, 1566s [00:52:46.816] -589669563L, 381897980L, -790840494L, 1136483533L, 1566s [00:52:46.816] -1535370105L, -607934610L, 1641470280L, -1050403509L, 1566s [00:52:46.816] 1965932713L, 362996216L, 1596838182L, -1829498303L, 1566s [00:52:46.816] -1824465965L, 1872669058L, -417374796L, -1713346249L, 1566s [00:52:46.816] 1818328109L, -1284085436L, -1981489558L, 1566s [00:52:46.816] 1940543701L, 1673049711L, -1514495114L, 467096736L, 1566s [00:52:46.816] 943410531L, -1431020031L, 1115626864L, 965475598L, 1566s [00:52:46.816] -1718567047L, -793788661L, -1133789126L, 1566s [00:52:46.816] -80588996L, 2018258047L, 1866186709L, 42791404L, 1566s [00:52:46.816] -1823521982L, -1345991523L, -1672661737L, 1566s [00:52:46.816] -180777858L, -452713416L, 1448313627L, -1459492743L, 1566s [00:52:46.816] -600706872L, -909649674L, -2081822415L, -1697455773L, 1566s [00:52:46.816] 1517613874L, -820020092L, 188336327L, -1149897827L, 1566s [00:52:46.816] -475203820L, -368005702L, 204442629L, 437854687L, 1566s [00:52:46.816] 1163191398L, -760699920L, 104455443L, 819708593L, 1566s [00:52:46.816] 1129180512L, 48636670L, 1066049161L, 398150075L, 1566s [00:52:46.816] -852036726L, -906028436L, -1265740817L, -1824646107L, 1566s [00:52:46.816] -2126068516L, 1815435954L, -146408019L, -860012185L, 1566s [00:52:46.816] -682500466L, 1443186536L, 1789394795L, -1078204151L, 1566s [00:52:46.816] 809467800L, 1514112710L, -1097673695L, 919601331L, 1566s [00:52:46.816] -331916766L, 795008020L, 1042337943L, -371219827L, 1566s [00:52:46.816] 1558967204L, 1563528586L, -2133607947L, -1904454577L, 1566s [00:52:46.816] -264006826L, 770017792L, 153477955L, 1189667553L, 1566s [00:52:46.816] -363253680L, 1882362030L, 967246937L, -793119637L, 1566s [00:52:46.816] -1401964070L, 2129232540L, -542810977L, -1277899019L, 1566s [00:52:46.816] -377097332L, -406748574L, -1722157507L, -1577740105L, 1566s [00:52:46.816] -455170210L, 372239000L, -1535936005L, -1332632679L, 1566s [00:52:46.816] -1623884760L, -359633706L, 935827793L, 1357445123L, 1566s [00:52:46.816] 997040018L, -1506538204L, -147930137L, -166569923L, 1566s [00:52:46.816] -2103753036L, 1366641946L, 30482021L, 1876964095L, 1566s [00:52:46.816] 2008557446L, 657856784L, -103814733L, 774877777L, 1566s [00:52:46.816] -486350336L, -555057442L, -1821756119L, -963495717L, 1566s [00:52:46.816] 853311466L, 1671241612L, -942337841L, 409538693L, 1566s [00:52:46.816] 1992831804L, 489867794L, 357105933L, -1611412921L, 1566s [00:52:46.816] -1119334354L, -1521015416L, -2041922421L, 1566s [00:52:46.816] 2048874089L, -700216776L, 1651628774L, -10471807L, 1566s [00:52:46.816] 736942611L, 380607938L, -1742088588L, 1124231287L, 1566s [00:52:46.816] 1232111981L, -1801753084L, -1608606422L, 1566s [00:52:46.816] -1172096363L, 1420874031L, -1210473418L, 1566s [00:52:46.816] -18317216L, -571709789L, 1107403201L, 1952554416L, 1566s [00:52:46.816] 1991660750L, -442973639L, 581522507L, -430787078L, 1566s [00:52:46.816] 1105375484L, -1481218753L, -748152299L, -641535700L, 1566s [00:52:46.816] 679371266L, -591318819L, -104578089L, -172818754L, 1566s [00:52:46.816] -1321694984L, -98191653L, 1709083961L, -344680312L, 1566s [00:52:46.816] -159571914L, 581309553L, -63938909L, 76420082L, 1566s [00:52:46.816] 951019332L, -1797740537L, 1291470301L, -2079866156L, 1566s [00:52:46.816] -332493318L, -1978392251L, -1691039632L, 1566s [00:52:46.816] 388791868L, -1101109484L, -1365177662L, 321737440L, 1566s [00:52:46.816] 1812890748L, -133313328L, -1252731998L, 2044530216L, 1566s [00:52:46.816] 1263927564L, 325388220L, 520794418L, 1449646272L, 1566s [00:52:46.816] 87560756L, -87565624L, 426345146L, -699970416L, 1566s [00:52:46.816] 240322284L, -1074080172L, -1536268654L, 1338615584L, 1566s [00:52:46.816] 478476236L, -1933154080L, -192786750L, 1559942184L, 1566s [00:52:46.816] -1178330196L, -687617348L, -1701912078L, 1566s [00:52:46.816] 352314928L, -999229532L, -2052800072L, -1913644198L, 1566s [00:52:46.816] -1345416048L, 1816730492L, -1570431212L, 1566s [00:52:46.816] -269427390L, -2122969344L, -520963140L, 1398087504L, 1566s [00:52:46.816] 264692002L, -1682658744L, -1422452724L, -1601893284L, 1566s [00:52:46.816] -66383406L, 1443075584L, -456249004L, 943694056L, 1566s [00:52:46.816] -1493184262L, -1943836976L, -590788308L, 1566s [00:52:46.816] -405505804L, -1796837998L, 1991543136L, 1170376716L, 1566s [00:52:46.816] 1707420384L, 1899700834L, -1643595096L, 47299148L, 1566s [00:52:46.816] 1274857340L, -1205842638L, -1938479504L, 1566s [00:52:46.816] -1773978812L, 532695000L, 1306451834L, 258403888L, 1566s [00:52:46.816] -284747844L, -1780705708L, 1621936194L, 1129070752L, 1566s [00:52:46.816] 540946108L, -294270512L, -1426480286L, -356302104L, 1566s [00:52:46.816] 349847756L, 1849803260L, -1299125774L, 511654528L, 1566s [00:52:46.816] -1259964940L, -1879857528L, 535666490L, -2020097200L, 1566s [00:52:46.816] -1460751252L, 1201879444L, -1459788718L, 1566s [00:52:46.816] 447195616L, -730891060L, -1875530592L, -2146183806L, 1566s [00:52:46.816] 193274088L, -1224605972L, 1616153916L, -1896973198L, 1566s [00:52:46.816] -420945808L, -1997735900L, -1838404552L, 1566s [00:52:46.816] -413698278L, 1984019664L, -1760209092L, -1288743020L, 1566s [00:52:46.816] 392579970L, -1382567488L, -1295004100L, -33348208L, 1566s [00:52:46.816] 1536615970L, -428761848L, 643368588L, -1596336356L, 1566s [00:52:46.816] 1797431442L, 352422272L, -1043800556L, 60591912L, 1566s [00:52:46.816] -1115663814L, 1043682768L, 521144684L, 4793268L, 1566s [00:52:46.816] -1924265966L, 978890208L, 370048972L, -1607474976L, 1566s [00:52:46.816] -1443637214L, -632405720L, 691912204L, 166321980L, 1566s [00:52:46.816] 942193650L, 751741680L, 689743428L, -18455976L, 1566s [00:52:46.816] -1946329286L, -1619184144L, 239341244L, 371382548L, 1566s [00:52:46.816] -2069808446L, 154176608L, 385987452L, -385611824L, 1566s [00:52:46.816] 1967391010L, 2140654248L, 1720087436L, -1591007044L, 1566s [00:52:46.816] -1612486862L, 1295747648L, 1726784692L, 597326408L, 1566s [00:52:46.816] -973152838L, 628505104L, -1089631508L, 3230036L, 1566s [00:52:46.816] -593837806L, 244006304L, 1357912780L, 1839234656L, 1566s [00:52:46.816] -1357570110L, 1896595240L, -2066952276L, 1566s [00:52:46.816] -1724304580L, 986188146L, -1200604368L, -279100124L, 1566s [00:52:46.816] 131128120L, -1088465190L, 596533136L, 170602236L, 1566s [00:52:46.816] -1051262060L, 215660610L, -686217984L, 444449852L, 1566s [00:52:46.816] 769655120L, 236357794L, 181393736L, -13334772L, 1566s [00:52:46.816] 644690652L, -1969263278L, -2107982720L, 1429553236L, 1566s [00:52:46.816] 794236904L, 1997299962L, -458224816L, 904978220L, 1566s [00:52:46.816] -537093772L, -842839150L, 1828989024L, -679303796L, 1566s [00:52:46.816] 1396292448L, 76319202L, 1896098728L, 418430156L, 1566s [00:52:46.816] 2005956604L, 1370351026L, -1178923536L, -1154073660L, 1566s [00:52:46.816] -1218863784L, 89928058L, 816597936L, -1141767748L, 1566s [00:52:46.816] 1579714644L, 1343385538L, 371259424L, -245180228L, 1566s [00:52:46.816] 365724240L, 1606388706L, -823678872L, 1281309772L, 1566s [00:52:46.816] 1395210492L, 1217887218L, 1420531968L, 1349501300L, 1566s [00:52:46.816] 271647752L, -69959750L, 360452560L, 1565334508L, 1566s [00:52:46.816] 1956526484L, -930709038L, 1961808224L, -1745916084L, 1566s [00:52:46.816] 443656480L, 1990137730L, 694374120L, -1050566420L, 1566s [00:52:46.816] -1365842884L, -438961294L, -1851472272L, 1566s [00:52:46.816] 614534180L, 1401930552L, 3652762L, 1928284880L, 1566s [00:52:46.816] -1637703492L, 26107540L, -132725907L, -371944998L, 1566s [00:52:46.816] -1311388776L, 8516097L, 741008307L, -1149566252L, 1566s [00:52:46.816] -1802640414L, 2019636855L, 1587818433L, -151040698L, 1566s [00:52:46.816] 1598381188L, -205462987L, 1911327L, -1382519432L, 1566s [00:52:46.816] -594809770L, -2146766621L, -2013964635L, 1566s [00:52:46.816] -965534910L, -2077626064L, 1964788057L, 1821395659L, 1566s [00:52:46.816] -1953549508L, -719348886L, 1442511263L, 1969287209L, 1566s [00:52:46.816] 1754221246L, -442299476L, 1981692157L, 113456199L, 1566s [00:52:46.816] 1587794736L, -1811033010L, 1149417595L, -1760887843L, 1566s [00:52:46.816] -1426021878L, -1285634264L, 1507547537L, 1566s [00:52:46.816] -1114120317L, 1897370756L, 1142575794L, -375814649L, 1566s [00:52:46.816] -1661041071L, 881081814L, -548925260L, 2073840837L, 1566s [00:52:46.816] 1156484623L, 2011334280L, 1107815334L, 969024339L, 1566s [00:52:46.816] -55972683L, 2006780434L, -1486403616L, 1698650697L, 1566s [00:52:46.816] 1813794939L, -1717763764L, 1268815066L, -1200630577L, 1566s [00:52:46.816] -773717863L, -12215122L, 1354639804L, 1213207085L, 1566s [00:52:46.816] -978295337L, 340143136L, 485429630L, -568148149L, 1566s [00:52:46.816] 1257440589L, 930106234L, -883274312L, -1632538783L, 1566s [00:52:46.816] 894748435L, -1592959180L, -596177598L, 120963415L, 1566s [00:52:46.816] -1174532959L, -561474202L, 1438545764L, 1429911189L, 1566s [00:52:46.816] 1075965887L, 367866712L, -892333706L, -485158013L, 1566s [00:52:46.816] -682634811L, 963344098L, 2110199632L, 1990767225L, 1566s [00:52:46.816] 1348335019L, 269581084L, -2040640438L, 1453561919L, 1566s [00:52:46.816] 853952649L, 1195494558L, 1614051660L, 2040242461L, 1566s [00:52:46.816] -1604604761L, 1421229008L, -1268333714L, 1566s [00:52:46.816] 174113307L, 2044969853L, 190112106L, -998776824L, 1566s [00:52:46.816] -2070476623L, -2099222749L, 1141171236L, 1566s [00:52:46.816] -146426158L, -1797385433L, -1129376399L, 1566s [00:52:46.816] -1496589386L, -419561644L, -613549595L, 1243456495L, 1566s [00:52:46.816] 451212072L, 1923543942L, 1146113971L, 93579029L, 1566s [00:52:46.816] -397504142L, 597218752L, 459048489L, 1447221915L, 1566s [00:52:46.816] -272948372L, -373834886L, 934888623L, -2099351623L, 1566s [00:52:46.816] -1672042034L, 193924380L, -704518003L, 781993207L, 1566s [00:52:46.816] -258875392L, -1853783458L, 1315003691L, -41214419L, 1566s [00:52:46.816] -59447654L, 1203745368L, 426003905L, 452670067L, 1566s [00:52:46.816] -1092079724L, -1765622238L, -1882554057L, 1566s [00:52:46.816] 1278087169L, -1994822394L, -124954300L, 1994460277L, 1566s [00:52:46.816] 1816829407L, -1568282312L, 1563616022L, 1255996195L, 1566s [00:52:46.816] 1702121701L, 1784032514L, 1842995056L, 748060441L, 1566s [00:52:46.816] 1432229643L, -1905232900L, 2016890922L, 1403944031L, 1566s [00:52:46.816] 351712233L, 1338932478L, -1359366932L, -803018691L, 1566s [00:52:46.816] -1551885305L, 248629232L, 1839395726L, 1411789243L, 1566s [00:52:46.816] 840085405L, -1849000630L, -669518488L, -1453417647L, 1566s [00:52:46.816] -1527179197L, -377159356L, 1674525170L, -313742393L, 1566s [00:52:46.816] 865377681L, -1127426242L), envir = base::globalenv(), 1566s [00:52:46.816] inherits = FALSE) 1566s [00:52:46.816] NULL 1566s [00:52:46.816] } 1566s [00:52:46.816] options(future.plan = NULL) 1566s [00:52:46.816] if (is.na(NA_character_)) 1566s [00:52:46.816] Sys.unsetenv("R_FUTURE_PLAN") 1566s [00:52:46.816] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1566s [00:52:46.816] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1566s [00:52:46.816] envir = parent.frame()) 1566s [00:52:46.816] { 1566s [00:52:46.816] default_workers <- missing(workers) 1566s [00:52:46.816] if (is.function(workers)) 1566s [00:52:46.816] workers <- workers() 1566s [00:52:46.816] workers <- structure(as.integer(workers), 1566s [00:52:46.816] class = class(workers)) 1566s [00:52:46.816] stop_if_not(is.finite(workers), workers >= 1566s [00:52:46.816] 1L) 1566s [00:52:46.816] if ((workers == 1L && !inherits(workers, 1566s [00:52:46.816] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1566s [00:52:46.816] if (default_workers) 1566s [00:52:46.816] supportsMulticore(warn = TRUE) 1566s [00:52:46.816] return(sequential(..., envir = envir)) 1566s [00:52:46.816] } 1566s [00:52:46.816] oopts <- options(mc.cores = workers) 1566s [00:52:46.816] on.exit(options(oopts)) 1566s [00:52:46.816] future <- MulticoreFuture(..., workers = workers, 1566s [00:52:46.816] envir = envir) 1566s [00:52:46.816] if (!future$lazy) 1566s [00:52:46.816] future <- run(future) 1566s [00:52:46.816] invisible(future) 1566s [00:52:46.816] }), .cleanup = FALSE, .init = FALSE) 1566s [00:52:46.816] } 1566s [00:52:46.816] } 1566s [00:52:46.816] } 1566s [00:52:46.816] }) 1566s [00:52:46.816] if (TRUE) { 1566s [00:52:46.816] base::sink(type = "output", split = FALSE) 1566s [00:52:46.816] if (TRUE) { 1566s [00:52:46.816] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1566s [00:52:46.816] } 1566s [00:52:46.816] else { 1566s [00:52:46.816] ...future.result["stdout"] <- base::list(NULL) 1566s [00:52:46.816] } 1566s [00:52:46.816] base::close(...future.stdout) 1566s [00:52:46.816] ...future.stdout <- NULL 1566s [00:52:46.816] } 1566s [00:52:46.816] ...future.result$conditions <- ...future.conditions 1566s [00:52:46.816] ...future.result$finished <- base::Sys.time() 1566s [00:52:46.816] ...future.result 1566s [00:52:46.816] } 1566s [00:52:46.824] assign_globals() ... 1566s [00:52:46.824] List of 5 1566s [00:52:46.824] $ ...future.FUN :function (...) 1566s [00:52:46.824] $ future.call.arguments : list() 1566s [00:52:46.824] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1566s [00:52:46.824] $ ...future.elements_ii :List of 5 1566s [00:52:46.824] ..$ : int 0 1566s [00:52:46.824] ..$ : int 0 1566s [00:52:46.824] ..$ : int 0 1566s [00:52:46.824] ..$ : int 0 1566s [00:52:46.824] ..$ : int 0 1566s [00:52:46.824] $ ...future.seeds_ii :List of 5 1566s [00:52:46.824] ..$ : int [1:7] 10407 1242173061 -1150840343 -834448425 701050094 -1369558043 -650964284 1566s [00:52:46.824] ..$ : int [1:7] 10407 859061261 1088872332 -1371790091 -942478768 -889560561 1393381402 1566s [00:52:46.824] ..$ : int [1:7] 10407 -1977952646 362645338 -1927542548 -742448269 -2030870718 1472975712 1566s [00:52:46.824] ..$ : int [1:7] 10407 -781199300 -1470244364 -1435938985 -1154922760 795337516 2089908040 1566s [00:52:46.824] ..$ : int [1:7] 10407 -1281561623 1745663508 -502066495 1003795914 -1805763079 -205768335 1566s [00:52:46.824] $ ...future.globals.maxSize: NULL 1566s [00:52:46.824] - attr(*, "where")=List of 5 1566s [00:52:46.824] ..$ ...future.FUN : 1566s [00:52:46.824] ..$ future.call.arguments : 1566s [00:52:46.824] ..$ ...future.elements_ii : 1566s [00:52:46.824] ..$ ...future.seeds_ii : 1566s [00:52:46.824] ..$ ...future.globals.maxSize: 1566s [00:52:46.824] - attr(*, "resolved")= logi FALSE 1566s [00:52:46.824] - attr(*, "total_size")= num 616 1566s [00:52:46.824] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1566s [00:52:46.824] - attr(*, "already-done")= logi TRUE 1566s [00:52:46.838] - reassign environment for ‘...future.FUN’ 1566s [00:52:46.839] - copied ‘...future.FUN’ to environment 1566s [00:52:46.839] - copied ‘future.call.arguments’ to environment 1566s [00:52:46.839] - copied ‘...future.elements_ii’ to environment 1566s [00:52:46.839] - copied ‘...future.seeds_ii’ to environment 1566s [00:52:46.839] - copied ‘...future.globals.maxSize’ to environment 1566s [00:52:46.839] assign_globals() ... done 1566s [00:52:46.840] plan(): Setting new future strategy stack: 1566s [00:52:46.840] List of future strategies: 1566s [00:52:46.840] 1. sequential: 1566s [00:52:46.840] - args: function (..., envir = parent.frame()) 1566s [00:52:46.840] - tweaked: FALSE 1566s [00:52:46.840] - call: NULL 1566s [00:52:46.840] plan(): nbrOfWorkers() = 1 1566s [00:52:46.841] plan(): Setting new future strategy stack: 1566s [00:52:46.841] List of future strategies: 1566s [00:52:46.841] 1. multicore: 1566s [00:52:46.841] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1566s [00:52:46.841] - tweaked: FALSE 1566s [00:52:46.841] - call: plan(strategy) 1566s [00:52:46.845] plan(): nbrOfWorkers() = 1 1566s [00:52:46.845] SequentialFuture started (and completed) 1566s [00:52:46.845] - Launch lazy future ... done 1566s [00:52:46.845] run() for ‘SequentialFuture’ ... done 1566s [00:52:46.846] Created future: 1566s [00:52:46.846] SequentialFuture: 1566s [00:52:46.846] Label: ‘future_replicate-1’ 1566s [00:52:46.846] Expression: 1566s [00:52:46.846] { 1566s [00:52:46.846] do.call(function(...) { 1566s [00:52:46.846] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1566s [00:52:46.846] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1566s [00:52:46.846] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1566s [00:52:46.846] on.exit(options(oopts), add = TRUE) 1566s [00:52:46.846] } 1566s [00:52:46.846] { 1566s [00:52:46.846] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1566s [00:52:46.846] ...future.X_jj <- ...future.elements_ii[[jj]] 1566s [00:52:46.846] assign(".Random.seed", ...future.seeds_ii[[jj]], 1566s [00:52:46.846] envir = globalenv(), inherits = FALSE) 1566s [00:52:46.846] ...future.FUN(...future.X_jj, ...) 1566s [00:52:46.846] }) 1566s [00:52:46.846] } 1566s [00:52:46.846] }, args = future.call.arguments) 1566s [00:52:46.846] } 1566s [00:52:46.846] Lazy evaluation: FALSE 1566s [00:52:46.846] Asynchronous evaluation: FALSE 1566s [00:52:46.846] Local evaluation: TRUE 1566s [00:52:46.846] Environment: R_GlobalEnv 1566s [00:52:46.846] Capture standard output: TRUE 1566s [00:52:46.846] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1566s [00:52:46.846] Globals: 5 objects totaling 1.27 KiB (function ‘...future.FUN’ of 616 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 280 bytes, list ‘...future.seeds_ii’ of 400 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1566s [00:52:46.846] Packages: 1566s [00:52:46.846] L'Ecuyer-CMRG RNG seed: (seed = NULL) 1566s [00:52:46.846] Resolved: TRUE 1566s [00:52:46.846] Value: 280 bytes of class ‘list’ 1566s [00:52:46.846] Early signaling: FALSE 1566s [00:52:46.846] Owner process: 50289bf5-8c9f-f501-15c6-3ca1fa8d82cf 1566s [00:52:46.846] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1566s [00:52:46.848] Chunk #1 of 1 ... DONE 1566s [00:52:46.848] Launching 1 futures (chunks) ... DONE 1566s [00:52:46.848] Resolving 1 futures (chunks) ... 1566s [00:52:46.848] resolve() on list ... 1566s [00:52:46.848] recursive: 0 1566s [00:52:46.848] length: 1 1566s [00:52:46.849] 1566s [00:52:46.849] resolved() for ‘SequentialFuture’ ... 1566s [00:52:46.849] - state: ‘finished’ 1566s [00:52:46.849] - run: TRUE 1566s [00:52:46.849] - result: ‘FutureResult’ 1566s [00:52:46.849] resolved() for ‘SequentialFuture’ ... done 1566s [00:52:46.850] Future #1 1566s [00:52:46.850] signalConditionsASAP(SequentialFuture, pos=1) ... 1566s [00:52:46.850] - nx: 1 1566s [00:52:46.851] - relay: TRUE 1566s [00:52:46.851] - stdout: TRUE 1566s [00:52:46.851] - signal: TRUE 1566s [00:52:46.851] - resignal: FALSE 1566s [00:52:46.851] - force: TRUE 1566s [00:52:46.851] - relayed: [n=1] FALSE 1566s [00:52:46.851] - queued futures: [n=1] FALSE 1566s [00:52:46.852] - until=1 1566s [00:52:46.852] - relaying element #1 1566s [00:52:46.852] - relayed: [n=1] TRUE 1566s [00:52:46.852] - queued futures: [n=1] TRUE 1566s [00:52:46.853] signalConditionsASAP(SequentialFuture, pos=1) ... done 1566s [00:52:46.853] length: 0 (resolved future 1) 1566s [00:52:46.853] Relaying remaining futures 1566s [00:52:46.853] signalConditionsASAP(NULL, pos=0) ... 1566s [00:52:46.853] - nx: 1 1566s [00:52:46.853] - relay: TRUE 1566s [00:52:46.854] - stdout: TRUE 1566s [00:52:46.854] - signal: TRUE 1566s [00:52:46.854] - resignal: FALSE 1566s [00:52:46.854] - force: TRUE 1566s [00:52:46.854] - relayed: [n=1] TRUE 1566s [00:52:46.854] - queued futures: [n=1] TRUE 1566s - flush all 1566s [00:52:46.855] - relayed: [n=1] TRUE 1566s [00:52:46.855] - queued futures: [n=1] TRUE 1566s [00:52:46.855] signalConditionsASAP(NULL, pos=0) ... done 1566s [00:52:46.855] resolve() on list ... DONE 1566s [00:52:46.855] - Number of value chunks collected: 1 1566s [00:52:46.856] Resolving 1 futures (chunks) ... DONE 1566s [00:52:46.856] Reducing values from 1 chunks ... 1566s [00:52:46.856] - Number of values collected after concatenation: 5 1566s [00:52:46.856] - Number of values expected: 5 1566s [00:52:46.856] Reducing values from 1 chunks ... DONE 1566s [00:52:46.856] future_lapply() ... DONE 1566s [00:52:46.857] future_lapply() ... 1566s [00:52:46.857] Generating random seeds ... 1566s [00:52:46.857] Generating random seed streams for 5 elements ... 1566s [00:52:46.857] Generating random seed streams for 5 elements ... DONE 1566s [00:52:46.858] Generating random seeds ... DONE 1566s [00:52:46.858] Will set RNG state on exit: 10403, 6, 133210212, 1945833034, 115858357, -364452081, -390319082, 926195392, 2057013379, -803887967, -1078998384, 705296750, -1682614503, 830917547, -331376230, 1352842588, 1960957023, 1997081653, 374446028, 1510359842, 1146109309, -1295266185, -1545472098, 1268700760, 1627111355, -855092903, -215790872, -1958931690, 1906054289, -782874301, -399096750, -1740777756, 1763676455, -832683651, 1369376884, 430697050, 1699587749, -1503628097, 856180550, -242424368, -2127251469, 505777937, 257347392, -856180962, 886024169, -1464480485, -1512233174, -1985955764, -425390065, -589669563, 381897980, -790840494, 1136483533, -1535370105, -607934610, 1641470280, -1050403509, 1965932713, 362996216, 1596838182, -1829498303, -1824465965, 1872669058, -417374796, -1713346249, 1818328109, -1284085436, -1981489558, 1940543701, 1673049711, -1514495114, 467096736, 943410531, -1431020031, 1115626864, 965475598, -1718567047, -793788661, -1133789126, -80588996, 2018258047, 1866186709, 42791404, -1823521982, -1345991523, -1672661737, -180777858, -452713416, 1448313627, -1459492743, -600706872, -909649674, -2081822415, -1697455773, 1517613874, -820020092, 188336327, -1149897827, -475203820, -368005702, 204442629, 437854687, 1163191398, -760699920, 104455443, 819708593, 1129180512, 48636670, 1066049161, 398150075, -852036726, -906028436, -1265740817, -1824646107, -2126068516, 1815435954, -146408019, -860012185, -682500466, 1443186536, 1789394795, -1078204151, 809467800, 1514112710, -1097673695, 919601331, -331916766, 795008020, 1042337943, -371219827, 1558967204, 1563528586, -2133607947, -1904454577, -264006826, 770017792, 153477955, 1189667553, -363253680, 1882362030, 967246937, -793119637, -1401964070, 2129232540, -542810977, -1277899019, -377097332, -406748574, -1722157507, -1577740105, -455170210, 372239000, -1535936005, -1332632679, -1623884760, -359633706, 935827793, 1357445123, 997040018, -1506538204, -147930137, -166569923, -2103753036, 1366641946, 30482021, 1876964095, 2008557446, 657856784, -103814733, 774877777, -486350336, -555057442, -1821756119, -963495717, 853311466, 1671241612, -942337841, 409538693, 1992831804, 489867794, 357105933, -1611412921, -1119334354, -1521015416, -2041922421, 2048874089, -700216776, 1651628774, -10471807, 736942611, 380607938, -1742088588, 1124231287, 1232111981, -1801753084, -1608606422, -1172096363, 1420874031, -1210473418, -18317216, -571709789, 1107403201, 1952554416, 1991660750, -442973639, 581522507, -430787078, 1105375484, -1481218753, -748152299, -641535700, 679371266, -591318819, -104578089, -172818754, -1321694984, -98191653, 1709083961, -344680312, -159571914, 581309553, -63938909, 76420082, 951019332, -1797740537, 1291470301, -2079866156, -332493318, -1978392251, -1691039632, 388791868, -1101109484, -1365177662, 321737440, 1812890748, -133313328, -1252731998, 2044530216, 1263927564, 325388220, 520794418, 1449646272, 87560756, -87565624, 426345146, -699970416, 240322284, -1074080172, -1536268654, 1338615584, 478476236, -1933154080, -192786750, 1559942184, -1178330196, -687617348, -1701912078, 352314928, -999229532, -2052800072, -1913644198, -1345416048, 1816730492, -1570431212, -269427390, -2122969344, -520963140, 1398087504, 264692002, -1682658744, -1422452724, -1601893284, -66383406, 1443075584, -456249004, 943694056, -1493184262, -1943836976, -590788308, -405505804, -1796837998, 1991543136, 1170376716, 1707420384, 1899700834, -1643595096, 47299148, 1274857340, -1205842638, -1938479504, -1773978812, 532695000, 1306451834, 258403888, -284747844, -1780705708, 1621936194, 1129070752, 540946108, -294270512, -1426480286, -356302104, 349847756, 1849803260, -1299125774, 511654528, -1259964940, -1879857528, 535666490, -2020097200, -1460751252, 1201879444, -1459788718, 447195616, -730891060, -1875530592, -2146183806, 193274088, -1224605972, 1616153916, -1896973198, -420945808, -1997735900, -1838404552, -413698278, 1984019664, -1760209092, -1288743020, 392579970, -1382567488, -1295004100, -33348208, 1536615970, -428761848, 643368588, -1596336356, 1797431442, 352422272, -1043800556, 60591912, -1115663814, 1043682768, 521144684, 4793268, -1924265966, 978890208, 370048972, -1607474976, -1443637214, -632405720, 691912204, 166321980, 942193650, 751741680, 689743428, -18455976, -1946329286, -1619184144, 239341244, 371382548, -2069808446, 154176608, 385987452, -385611824, 1967391010, 2140654248, 1720087436, -1591007044, -1612486862, 1295747648, 1726784692, 597326408, -973152838, 628505104, -1089631508, 3230036, -593837806, 244006304, 1357912780, 1839234656, -1357570110, 1896595240, -2066952276, -1724304580, 986188146, -1200604368, -279100124, 131128120, -1088465190, 596533136, 170602236, -1051262060, 215660610, -686217984, 444449852, 769655120, 236357794, 181393736, -13334772, 644690652, -1969263278, -2107982720, 1429553236, 794236904, 1997299962, -458224816, 904978220, -537093772, -842839150, 1828989024, -679303796, 1396292448, 76319202, 1896098728, 418430156, 2005956604, 1370351026, -1178923536, -1154073660, -1218863784, 89928058, 816597936, -1141767748, 1579714644, 1343385538, 371259424, -245180228, 365724240, 1606388706, -823678872, 1281309772, 1395210492, 1217887218, 1420531968, 1349501300, 271647752, -69959750, 360452560, 1565334508, 1956526484, -930709038, 1961808224, -1745916084, 443656480, 1990137730, 694374120, -1050566420, -1365842884, -438961294, -1851472272, 614534180, 1401930552, 3652762, 1928284880, -1637703492, 26107540, -132725907, -371944998, -1311388776, 8516097, 741008307, -1149566252, -1802640414, 2019636855, 1587818433, -151040698, 1598381188, -205462987, 1911327, -1382519432, -594809770, -2146766621, -2013964635, -965534910, -2077626064, 1964788057, 1821395659, -1953549508, -719348886, 1442511263, 1969287209, 1754221246, -442299476, 1981692157, 113456199, 1587794736, -1811033010, 1149417595, -1760887843, -1426021878, -1285634264, 1507547537, -1114120317, 1897370756, 1142575794, -375814649, -1661041071, 881081814, -548925260, 2073840837, 1156484623, 2011334280, 1107815334, 969024339, -55972683, 2006780434, -1486403616, 1698650697, 1813794939, -1717763764, 1268815066, -1200630577, -773717863, -12215122, 1354639804, 1213207085, -978295337, 340143136, 485429630, -568148149, 1257440589, 930106234, -883274312, -1632538783, 894748435, -1592959180, -596177598, 120963415, -1174532959, -561474202, 1438545764, 1429911189, 1075965887, 367866712, -892333706, -485158013, -682634811, 963344098, 2110199632, 1990767225, 1348335019, 269581084, -2040640438, 1453561919, 853952649, 1195494558, 1614051660, 2040242461, -1604604761, 1421229008, -1268333714, 174113307, 2044969853, 190112106, -998776824, -2070476623, -2099222749, 1141171236, -146426158, -1797385433, -1129376399, -1496589386, -419561644, -613549595, 1243456495, 451212072, 1923543942, 1146113971, 93579029, -397504142, 597218752, 459048489, 1447221915, -272948372, -373834886, 934888623, -2099351623, -1672042034, 193924380, -704518003, 781993207, -258875392, -1853783458, 1315003691, -41214419, -59447654, 1203745368, 426003905, 452670067, -1092079724, -1765622238, -1882554057, 1278087169, -1994822394, -124954300, 1994460277, 1816829407, -1568282312, 1563616022, 1255996195, 1702121701, 1784032514, 1842995056, 748060441, 1432229643, -1905232900, 2016890922, 1403944031, 351712233, 1338932478, -1359366932, -803018691, -1551885305, 248629232, 1839395726, 1411789243, 840085405, -1849000630, -669518488, -1453417647, -1527179197, -377159356, 1674525170, -313742393, 865377681, -1127426242 1566s [00:52:46.863] Number of chunks: 1 1566s [00:52:46.863] getGlobalsAndPackagesXApply() ... 1566s [00:52:46.863] - future.globals: TRUE 1566s [00:52:46.864] getGlobalsAndPackages() ... 1566s [00:52:46.864] Searching for globals... 1566s [00:52:46.865] - globals found: [2] ‘FUN’, ‘sample’ 1566s [00:52:46.866] Searching for globals ... DONE 1566s [00:52:46.866] Resolving globals: FALSE 1566s [00:52:46.866] The total size of the 1 globals is 616 bytes (616 bytes) 1566s [00:52:46.867] The total size of the 1 globals exported for future expression (‘FUN()’) is 616 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (616 bytes of class ‘function’) 1566s [00:52:46.867] - globals: [1] ‘FUN’ 1566s [00:52:46.867] 1566s [00:52:46.867] getGlobalsAndPackages() ... DONE 1566s [00:52:46.867] - globals found/used: [n=1] ‘FUN’ 1566s [00:52:46.868] - needed namespaces: [n=0] 1566s [00:52:46.868] Finding globals ... DONE 1566s [00:52:46.868] - use_args: TRUE 1566s [00:52:46.868] - Getting '...' globals ... 1566s [00:52:46.868] resolve() on list ... 1566s [00:52:46.869] recursive: 0 1566s [00:52:46.869] length: 1 1566s [00:52:46.869] elements: ‘...’ 1566s [00:52:46.869] length: 0 (resolved future 1) 1566s [00:52:46.869] resolve() on list ... DONE 1566s [00:52:46.869] - '...' content: [n=0] 1566s [00:52:46.870] List of 1 1566s [00:52:46.870] $ ...: list() 1566s [00:52:46.870] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1566s [00:52:46.870] - attr(*, "where")=List of 1 1566s [00:52:46.870] ..$ ...: 1566s [00:52:46.870] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1566s [00:52:46.870] - attr(*, "resolved")= logi TRUE 1566s [00:52:46.870] - attr(*, "total_size")= num NA 1566s [00:52:46.876] - Getting '...' globals ... DONE 1566s [00:52:46.876] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1566s [00:52:46.877] List of 2 1566s [00:52:46.877] $ ...future.FUN:function (...) 1566s [00:52:46.877] $ ... : list() 1566s [00:52:46.877] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1566s [00:52:46.877] - attr(*, "where")=List of 2 1566s [00:52:46.877] ..$ ...future.FUN: 1566s [00:52:46.877] ..$ ... : 1566s [00:52:46.877] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1566s [00:52:46.877] - attr(*, "resolved")= logi FALSE 1566s [00:52:46.877] - attr(*, "total_size")= num 616 1566s [00:52:46.880] Packages to be attached in all futures: [n=0] 1566s [00:52:46.881] getGlobalsAndPackagesXApply() ... DONE 1566s [00:52:46.881] Number of futures (= number of chunks): 1 1566s [00:52:46.881] Launching 1 futures (chunks) ... 1566s [00:52:46.881] Chunk #1 of 1 ... 1566s [00:52:46.881] - Finding globals in 'X' for chunk #1 ... 1566s [00:52:46.881] getGlobalsAndPackages() ... 1566s [00:52:46.882] Searching for globals... 1566s [00:52:46.882] 1566s [00:52:46.882] Searching for globals ... DONE 1566s [00:52:46.882] - globals: [0] 1566s [00:52:46.882] getGlobalsAndPackages() ... DONE 1566s [00:52:46.883] + additional globals found: [n=0] 1566s [00:52:46.883] + additional namespaces needed: [n=0] 1566s [00:52:46.883] - Finding globals in 'X' for chunk #1 ... DONE 1566s [00:52:46.883] - seeds: [5] 1566s [00:52:46.883] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1566s [00:52:46.883] getGlobalsAndPackages() ... 1566s [00:52:46.883] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1566s [00:52:46.883] Resolving globals: FALSE 1566s [00:52:46.884] Tweak future expression to call with '...' arguments ... 1566s [00:52:46.884] { 1566s [00:52:46.884] do.call(function(...) { 1566s [00:52:46.884] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1566s [00:52:46.884] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1566s [00:52:46.884] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1566s [00:52:46.884] on.exit(options(oopts), add = TRUE) 1566s [00:52:46.884] } 1566s [00:52:46.884] { 1566s [00:52:46.884] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1566s [00:52:46.884] ...future.X_jj <- ...future.elements_ii[[jj]] 1566s [00:52:46.884] assign(".Random.seed", ...future.seeds_ii[[jj]], 1566s [00:52:46.884] envir = globalenv(), inherits = FALSE) 1566s [00:52:46.884] ...future.FUN(...future.X_jj, ...) 1566s [00:52:46.884] }) 1566s [00:52:46.884] } 1566s [00:52:46.884] }, args = future.call.arguments) 1566s [00:52:46.884] } 1566s [00:52:46.884] Tweak future expression to call with '...' arguments ... DONE 1566s [00:52:46.885] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1566s [00:52:46.885] 1566s [00:52:46.885] getGlobalsAndPackages() ... DONE 1566s [00:52:46.885] run() for ‘Future’ ... 1566s [00:52:46.885] - state: ‘created’ 1566s [00:52:46.886] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1566s [00:52:46.890] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1566s [00:52:46.890] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1566s [00:52:46.890] - Field: ‘label’ 1566s [00:52:46.890] - Field: ‘local’ 1566s [00:52:46.890] - Field: ‘owner’ 1566s [00:52:46.891] - Field: ‘envir’ 1566s [00:52:46.891] - Field: ‘packages’ 1566s [00:52:46.891] - Field: ‘gc’ 1566s [00:52:46.891] - Field: ‘conditions’ 1566s [00:52:46.891] - Field: ‘expr’ 1566s [00:52:46.891] - Field: ‘uuid’ 1566s [00:52:46.892] - Field: ‘seed’ 1566s [00:52:46.892] - Field: ‘version’ 1566s [00:52:46.892] - Field: ‘result’ 1566s [00:52:46.892] - Field: ‘asynchronous’ 1566s [00:52:46.893] - Field: ‘calls’ 1566s [00:52:46.893] - Field: ‘globals’ 1566s [00:52:46.893] - Field: ‘stdout’ 1566s [00:52:46.893] - Field: ‘earlySignal’ 1566s [00:52:46.893] - Field: ‘lazy’ 1566s [00:52:46.893] - Field: ‘state’ 1566s [00:52:46.893] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1566s [00:52:46.894] - Launch lazy future ... 1566s [00:52:46.894] Packages needed by the future expression (n = 0): 1566s [00:52:46.894] Packages needed by future strategies (n = 0): 1566s [00:52:46.895] { 1566s [00:52:46.895] { 1566s [00:52:46.895] { 1566s [00:52:46.895] ...future.startTime <- base::Sys.time() 1566s [00:52:46.895] { 1566s [00:52:46.895] { 1566s [00:52:46.895] { 1566s [00:52:46.895] base::local({ 1566s [00:52:46.895] has_future <- base::requireNamespace("future", 1566s [00:52:46.895] quietly = TRUE) 1566s [00:52:46.895] if (has_future) { 1566s [00:52:46.895] ns <- base::getNamespace("future") 1566s [00:52:46.895] version <- ns[[".package"]][["version"]] 1566s [00:52:46.895] if (is.null(version)) 1566s [00:52:46.895] version <- utils::packageVersion("future") 1566s [00:52:46.895] } 1566s [00:52:46.895] else { 1566s [00:52:46.895] version <- NULL 1566s [00:52:46.895] } 1566s [00:52:46.895] if (!has_future || version < "1.8.0") { 1566s [00:52:46.895] info <- base::c(r_version = base::gsub("R version ", 1566s [00:52:46.895] "", base::R.version$version.string), 1566s [00:52:46.895] platform = base::sprintf("%s (%s-bit)", 1566s [00:52:46.895] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1566s [00:52:46.895] os = base::paste(base::Sys.info()[base::c("sysname", 1566s [00:52:46.895] "release", "version")], collapse = " "), 1566s [00:52:46.895] hostname = base::Sys.info()[["nodename"]]) 1566s [00:52:46.895] info <- base::sprintf("%s: %s", base::names(info), 1566s [00:52:46.895] info) 1566s [00:52:46.895] info <- base::paste(info, collapse = "; ") 1566s [00:52:46.895] if (!has_future) { 1566s [00:52:46.895] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1566s [00:52:46.895] info) 1566s [00:52:46.895] } 1566s [00:52:46.895] else { 1566s [00:52:46.895] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1566s [00:52:46.895] info, version) 1566s [00:52:46.895] } 1566s [00:52:46.895] base::stop(msg) 1566s [00:52:46.895] } 1566s [00:52:46.895] }) 1566s [00:52:46.895] } 1566s [00:52:46.895] options(future.plan = NULL) 1566s [00:52:46.895] Sys.unsetenv("R_FUTURE_PLAN") 1566s [00:52:46.895] future::plan("default", .cleanup = FALSE, .init = FALSE) 1566s [00:52:46.895] } 1566s [00:52:46.895] ...future.workdir <- getwd() 1566s [00:52:46.895] } 1566s [00:52:46.895] ...future.oldOptions <- base::as.list(base::.Options) 1566s [00:52:46.895] ...future.oldEnvVars <- base::Sys.getenv() 1566s [00:52:46.895] } 1566s [00:52:46.895] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1566s [00:52:46.895] future.globals.maxSize = NULL, future.globals.method = NULL, 1566s [00:52:46.895] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1566s [00:52:46.895] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1566s [00:52:46.895] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1566s [00:52:46.895] future.stdout.windows.reencode = NULL, width = 80L) 1566s [00:52:46.895] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1566s [00:52:46.895] base::names(...future.oldOptions)) 1566s [00:52:46.895] } 1566s [00:52:46.895] if (FALSE) { 1566s [00:52:46.895] } 1566s [00:52:46.895] else { 1566s [00:52:46.895] if (TRUE) { 1566s [00:52:46.895] ...future.stdout <- base::rawConnection(base::raw(0L), 1566s [00:52:46.895] open = "w") 1566s [00:52:46.895] } 1566s [00:52:46.895] else { 1566s [00:52:46.895] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1566s [00:52:46.895] windows = "NUL", "/dev/null"), open = "w") 1566s [00:52:46.895] } 1566s [00:52:46.895] base::sink(...future.stdout, type = "output", split = FALSE) 1566s [00:52:46.895] base::on.exit(if (!base::is.null(...future.stdout)) { 1566s [00:52:46.895] base::sink(type = "output", split = FALSE) 1566s [00:52:46.895] base::close(...future.stdout) 1566s [00:52:46.895] }, add = TRUE) 1566s [00:52:46.895] } 1566s [00:52:46.895] ...future.frame <- base::sys.nframe() 1566s [00:52:46.895] ...future.conditions <- base::list() 1566s [00:52:46.895] ...future.rng <- base::globalenv()$.Random.seed 1566s [00:52:46.895] if (FALSE) { 1566s [00:52:46.895] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1566s [00:52:46.895] "...future.value", "...future.globalenv.names", ".Random.seed") 1566s [00:52:46.895] } 1566s [00:52:46.895] ...future.result <- base::tryCatch({ 1566s [00:52:46.895] base::withCallingHandlers({ 1566s [00:52:46.895] ...future.value <- base::withVisible(base::local({ 1566s [00:52:46.895] do.call(function(...) { 1566s [00:52:46.895] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1566s [00:52:46.895] if (!identical(...future.globals.maxSize.org, 1566s [00:52:46.895] ...future.globals.maxSize)) { 1566s [00:52:46.895] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1566s [00:52:46.895] on.exit(options(oopts), add = TRUE) 1566s [00:52:46.895] } 1566s [00:52:46.895] { 1566s [00:52:46.895] lapply(seq_along(...future.elements_ii), 1566s [00:52:46.895] FUN = function(jj) { 1566s [00:52:46.895] ...future.X_jj <- ...future.elements_ii[[jj]] 1566s [00:52:46.895] assign(".Random.seed", ...future.seeds_ii[[jj]], 1566s [00:52:46.895] envir = globalenv(), inherits = FALSE) 1566s [00:52:46.895] ...future.FUN(...future.X_jj, ...) 1566s [00:52:46.895] }) 1566s [00:52:46.895] } 1566s [00:52:46.895] }, args = future.call.arguments) 1566s [00:52:46.895] })) 1566s [00:52:46.895] future::FutureResult(value = ...future.value$value, 1566s [00:52:46.895] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1566s [00:52:46.895] ...future.rng), globalenv = if (FALSE) 1566s [00:52:46.895] list(added = base::setdiff(base::names(base::.GlobalEnv), 1566s [00:52:46.895] ...future.globalenv.names)) 1566s [00:52:46.895] else NULL, started = ...future.startTime, version = "1.8") 1566s [00:52:46.895] }, condition = base::local({ 1566s [00:52:46.895] c <- base::c 1566s [00:52:46.895] inherits <- base::inherits 1566s [00:52:46.895] invokeRestart <- base::invokeRestart 1566s [00:52:46.895] length <- base::length 1566s [00:52:46.895] list <- base::list 1566s [00:52:46.895] seq.int <- base::seq.int 1566s [00:52:46.895] signalCondition <- base::signalCondition 1566s [00:52:46.895] sys.calls <- base::sys.calls 1566s [00:52:46.895] `[[` <- base::`[[` 1566s [00:52:46.895] `+` <- base::`+` 1566s [00:52:46.895] `<<-` <- base::`<<-` 1566s [00:52:46.895] sysCalls <- function(calls = sys.calls(), from = 1L) { 1566s [00:52:46.895] calls[seq.int(from = from + 12L, to = length(calls) - 1566s [00:52:46.895] 3L)] 1566s [00:52:46.895] } 1566s [00:52:46.895] function(cond) { 1566s [00:52:46.895] is_error <- inherits(cond, "error") 1566s [00:52:46.895] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1566s [00:52:46.895] NULL) 1566s [00:52:46.895] if (is_error) { 1566s [00:52:46.895] sessionInformation <- function() { 1566s [00:52:46.895] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1566s [00:52:46.895] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1566s [00:52:46.895] search = base::search(), system = base::Sys.info()) 1566s [00:52:46.895] } 1566s [00:52:46.895] ...future.conditions[[length(...future.conditions) + 1566s [00:52:46.895] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1566s [00:52:46.895] cond$call), session = sessionInformation(), 1566s [00:52:46.895] timestamp = base::Sys.time(), signaled = 0L) 1566s [00:52:46.895] signalCondition(cond) 1566s [00:52:46.895] } 1566s [00:52:46.895] else if (!ignore && TRUE && inherits(cond, c("condition", 1566s [00:52:46.895] "immediateCondition"))) { 1566s [00:52:46.895] signal <- TRUE && inherits(cond, "immediateCondition") 1566s [00:52:46.895] ...future.conditions[[length(...future.conditions) + 1566s [00:52:46.895] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1566s [00:52:46.895] if (TRUE && !signal) { 1566s [00:52:46.895] muffleCondition <- function (cond, pattern = "^muffle") 1566s [00:52:46.895] { 1566s [00:52:46.895] inherits <- base::inherits 1566s [00:52:46.895] invokeRestart <- base::invokeRestart 1566s [00:52:46.895] is.null <- base::is.null 1566s [00:52:46.895] muffled <- FALSE 1566s [00:52:46.895] if (inherits(cond, "message")) { 1566s [00:52:46.895] muffled <- grepl(pattern, "muffleMessage") 1566s [00:52:46.895] if (muffled) 1566s [00:52:46.895] invokeRestart("muffleMessage") 1566s [00:52:46.895] } 1566s [00:52:46.895] else if (inherits(cond, "warning")) { 1566s [00:52:46.895] muffled <- grepl(pattern, "muffleWarning") 1566s [00:52:46.895] if (muffled) 1566s [00:52:46.895] invokeRestart("muffleWarning") 1566s [00:52:46.895] } 1566s [00:52:46.895] else if (inherits(cond, "condition")) { 1566s [00:52:46.895] if (!is.null(pattern)) { 1566s [00:52:46.895] computeRestarts <- base::computeRestarts 1566s [00:52:46.895] grepl <- base::grepl 1566s [00:52:46.895] restarts <- computeRestarts(cond) 1566s [00:52:46.895] for (restart in restarts) { 1566s [00:52:46.895] name <- restart$name 1566s [00:52:46.895] if (is.null(name)) 1566s [00:52:46.895] next 1566s [00:52:46.895] if (!grepl(pattern, name)) 1566s [00:52:46.895] next 1566s [00:52:46.895] invokeRestart(restart) 1566s [00:52:46.895] muffled <- TRUE 1566s [00:52:46.895] break 1566s [00:52:46.895] } 1566s [00:52:46.895] } 1566s [00:52:46.895] } 1566s [00:52:46.895] invisible(muffled) 1566s [00:52:46.895] } 1566s [00:52:46.895] muffleCondition(cond, pattern = "^muffle") 1566s [00:52:46.895] } 1566s [00:52:46.895] } 1566s [00:52:46.895] else { 1566s [00:52:46.895] if (TRUE) { 1566s [00:52:46.895] muffleCondition <- function (cond, pattern = "^muffle") 1566s [00:52:46.895] { 1566s [00:52:46.895] inherits <- base::inherits 1566s [00:52:46.895] invokeRestart <- base::invokeRestart 1566s [00:52:46.895] is.null <- base::is.null 1566s [00:52:46.895] muffled <- FALSE 1566s [00:52:46.895] if (inherits(cond, "message")) { 1566s [00:52:46.895] muffled <- grepl(pattern, "muffleMessage") 1566s [00:52:46.895] if (muffled) 1566s [00:52:46.895] invokeRestart("muffleMessage") 1566s [00:52:46.895] } 1566s [00:52:46.895] else if (inherits(cond, "warning")) { 1566s [00:52:46.895] muffled <- grepl(pattern, "muffleWarning") 1566s [00:52:46.895] if (muffled) 1566s [00:52:46.895] invokeRestart("muffleWarning") 1566s [00:52:46.895] } 1566s [00:52:46.895] else if (inherits(cond, "condition")) { 1566s [00:52:46.895] if (!is.null(pattern)) { 1566s [00:52:46.895] computeRestarts <- base::computeRestarts 1566s [00:52:46.895] grepl <- base::grepl 1566s [00:52:46.895] restarts <- computeRestarts(cond) 1566s [00:52:46.895] for (restart in restarts) { 1566s [00:52:46.895] name <- restart$name 1566s [00:52:46.895] if (is.null(name)) 1566s [00:52:46.895] next 1566s [00:52:46.895] if (!grepl(pattern, name)) 1566s [00:52:46.895] next 1566s [00:52:46.895] invokeRestart(restart) 1566s [00:52:46.895] muffled <- TRUE 1566s [00:52:46.895] break 1566s [00:52:46.895] } 1566s [00:52:46.895] } 1566s [00:52:46.895] } 1566s [00:52:46.895] invisible(muffled) 1566s [00:52:46.895] } 1566s [00:52:46.895] muffleCondition(cond, pattern = "^muffle") 1566s [00:52:46.895] } 1566s [00:52:46.895] } 1566s [00:52:46.895] } 1566s [00:52:46.895] })) 1566s [00:52:46.895] }, error = function(ex) { 1566s [00:52:46.895] base::structure(base::list(value = NULL, visible = NULL, 1566s [00:52:46.895] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1566s [00:52:46.895] ...future.rng), started = ...future.startTime, 1566s [00:52:46.895] finished = Sys.time(), session_uuid = NA_character_, 1566s [00:52:46.895] version = "1.8"), class = "FutureResult") 1566s [00:52:46.895] }, finally = { 1566s [00:52:46.895] if (!identical(...future.workdir, getwd())) 1566s [00:52:46.895] setwd(...future.workdir) 1566s [00:52:46.895] { 1566s [00:52:46.895] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1566s [00:52:46.895] ...future.oldOptions$nwarnings <- NULL 1566s [00:52:46.895] } 1566s [00:52:46.895] base::options(...future.oldOptions) 1566s [00:52:46.895] if (.Platform$OS.type == "windows") { 1566s [00:52:46.895] old_names <- names(...future.oldEnvVars) 1566s [00:52:46.895] envs <- base::Sys.getenv() 1566s [00:52:46.895] names <- names(envs) 1566s [00:52:46.895] common <- intersect(names, old_names) 1566s [00:52:46.895] added <- setdiff(names, old_names) 1566s [00:52:46.895] removed <- setdiff(old_names, names) 1566s [00:52:46.895] changed <- common[...future.oldEnvVars[common] != 1566s [00:52:46.895] envs[common]] 1566s [00:52:46.895] NAMES <- toupper(changed) 1566s [00:52:46.895] args <- list() 1566s [00:52:46.895] for (kk in seq_along(NAMES)) { 1566s [00:52:46.895] name <- changed[[kk]] 1566s [00:52:46.895] NAME <- NAMES[[kk]] 1566s [00:52:46.895] if (name != NAME && is.element(NAME, old_names)) 1566s [00:52:46.895] next 1566s [00:52:46.895] args[[name]] <- ...future.oldEnvVars[[name]] 1566s [00:52:46.895] } 1566s [00:52:46.895] NAMES <- toupper(added) 1566s [00:52:46.895] for (kk in seq_along(NAMES)) { 1566s [00:52:46.895] name <- added[[kk]] 1566s [00:52:46.895] NAME <- NAMES[[kk]] 1566s [00:52:46.895] if (name != NAME && is.element(NAME, old_names)) 1566s [00:52:46.895] next 1566s [00:52:46.895] args[[name]] <- "" 1566s [00:52:46.895] } 1566s [00:52:46.895] NAMES <- toupper(removed) 1566s [00:52:46.895] for (kk in seq_along(NAMES)) { 1566s [00:52:46.895] name <- removed[[kk]] 1566s [00:52:46.895] NAME <- NAMES[[kk]] 1566s [00:52:46.895] if (name != NAME && is.element(NAME, old_names)) 1566s [00:52:46.895] next 1566s [00:52:46.895] args[[name]] <- ...future.oldEnvVars[[name]] 1566s [00:52:46.895] } 1566s [00:52:46.895] if (length(args) > 0) 1566s [00:52:46.895] base::do.call(base::Sys.setenv, args = args) 1566s [00:52:46.895] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1566s [00:52:46.895] } 1566s [00:52:46.895] else { 1566s [00:52:46.895] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1566s [00:52:46.895] } 1566s [00:52:46.895] { 1566s [00:52:46.895] if (base::length(...future.futureOptionsAdded) > 1566s [00:52:46.895] 0L) { 1566s [00:52:46.895] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1566s [00:52:46.895] base::names(opts) <- ...future.futureOptionsAdded 1566s [00:52:46.895] base::options(opts) 1566s [00:52:46.895] } 1566s [00:52:46.895] { 1566s [00:52:46.895] { 1566s [00:52:46.895] base::assign(".Random.seed", c(10403L, 6L, 1566s [00:52:46.895] 133210212L, 1945833034L, 115858357L, -364452081L, 1566s [00:52:46.895] -390319082L, 926195392L, 2057013379L, -803887967L, 1566s [00:52:46.895] -1078998384L, 705296750L, -1682614503L, 830917547L, 1566s [00:52:46.895] -331376230L, 1352842588L, 1960957023L, 1997081653L, 1566s [00:52:46.895] 374446028L, 1510359842L, 1146109309L, -1295266185L, 1566s [00:52:46.895] -1545472098L, 1268700760L, 1627111355L, -855092903L, 1566s [00:52:46.895] -215790872L, -1958931690L, 1906054289L, -782874301L, 1566s [00:52:46.895] -399096750L, -1740777756L, 1763676455L, -832683651L, 1566s [00:52:46.895] 1369376884L, 430697050L, 1699587749L, -1503628097L, 1566s [00:52:46.895] 856180550L, -242424368L, -2127251469L, 505777937L, 1566s [00:52:46.895] 257347392L, -856180962L, 886024169L, -1464480485L, 1566s [00:52:46.895] -1512233174L, -1985955764L, -425390065L, 1566s [00:52:46.895] -589669563L, 381897980L, -790840494L, 1136483533L, 1566s [00:52:46.895] -1535370105L, -607934610L, 1641470280L, -1050403509L, 1566s [00:52:46.895] 1965932713L, 362996216L, 1596838182L, -1829498303L, 1566s [00:52:46.895] -1824465965L, 1872669058L, -417374796L, -1713346249L, 1566s [00:52:46.895] 1818328109L, -1284085436L, -1981489558L, 1566s [00:52:46.895] 1940543701L, 1673049711L, -1514495114L, 467096736L, 1566s [00:52:46.895] 943410531L, -1431020031L, 1115626864L, 965475598L, 1566s [00:52:46.895] -1718567047L, -793788661L, -1133789126L, 1566s [00:52:46.895] -80588996L, 2018258047L, 1866186709L, 42791404L, 1566s [00:52:46.895] -1823521982L, -1345991523L, -1672661737L, 1566s [00:52:46.895] -180777858L, -452713416L, 1448313627L, -1459492743L, 1566s [00:52:46.895] -600706872L, -909649674L, -2081822415L, -1697455773L, 1566s [00:52:46.895] 1517613874L, -820020092L, 188336327L, -1149897827L, 1566s [00:52:46.895] -475203820L, -368005702L, 204442629L, 437854687L, 1566s [00:52:46.895] 1163191398L, -760699920L, 104455443L, 819708593L, 1566s [00:52:46.895] 1129180512L, 48636670L, 1066049161L, 398150075L, 1566s [00:52:46.895] -852036726L, -906028436L, -1265740817L, -1824646107L, 1566s [00:52:46.895] -2126068516L, 1815435954L, -146408019L, -860012185L, 1566s [00:52:46.895] -682500466L, 1443186536L, 1789394795L, -1078204151L, 1566s [00:52:46.895] 809467800L, 1514112710L, -1097673695L, 919601331L, 1566s [00:52:46.895] -331916766L, 795008020L, 1042337943L, -371219827L, 1566s [00:52:46.895] 1558967204L, 1563528586L, -2133607947L, -1904454577L, 1566s [00:52:46.895] -264006826L, 770017792L, 153477955L, 1189667553L, 1566s [00:52:46.895] -363253680L, 1882362030L, 967246937L, -793119637L, 1566s [00:52:46.895] -1401964070L, 2129232540L, -542810977L, -1277899019L, 1566s [00:52:46.895] -377097332L, -406748574L, -1722157507L, -1577740105L, 1566s [00:52:46.895] -455170210L, 372239000L, -1535936005L, -1332632679L, 1566s [00:52:46.895] -1623884760L, -359633706L, 935827793L, 1357445123L, 1566s [00:52:46.895] 997040018L, -1506538204L, -147930137L, -166569923L, 1566s [00:52:46.895] -2103753036L, 1366641946L, 30482021L, 1876964095L, 1566s [00:52:46.895] 2008557446L, 657856784L, -103814733L, 774877777L, 1566s [00:52:46.895] -486350336L, -555057442L, -1821756119L, -963495717L, 1566s [00:52:46.895] 853311466L, 1671241612L, -942337841L, 409538693L, 1566s [00:52:46.895] 1992831804L, 489867794L, 357105933L, -1611412921L, 1566s [00:52:46.895] -1119334354L, -1521015416L, -2041922421L, 1566s [00:52:46.895] 2048874089L, -700216776L, 1651628774L, -10471807L, 1566s [00:52:46.895] 736942611L, 380607938L, -1742088588L, 1124231287L, 1566s [00:52:46.895] 1232111981L, -1801753084L, -1608606422L, 1566s [00:52:46.895] -1172096363L, 1420874031L, -1210473418L, 1566s [00:52:46.895] -18317216L, -571709789L, 1107403201L, 1952554416L, 1566s [00:52:46.895] 1991660750L, -442973639L, 581522507L, -430787078L, 1566s [00:52:46.895] 1105375484L, -1481218753L, -748152299L, -641535700L, 1566s [00:52:46.895] 679371266L, -591318819L, -104578089L, -172818754L, 1566s [00:52:46.895] -1321694984L, -98191653L, 1709083961L, -344680312L, 1566s [00:52:46.895] -159571914L, 581309553L, -63938909L, 76420082L, 1566s [00:52:46.895] 951019332L, -1797740537L, 1291470301L, -2079866156L, 1566s [00:52:46.895] -332493318L, -1978392251L, -1691039632L, 1566s [00:52:46.895] 388791868L, -1101109484L, -1365177662L, 321737440L, 1566s [00:52:46.895] 1812890748L, -133313328L, -1252731998L, 2044530216L, 1566s [00:52:46.895] 1263927564L, 325388220L, 520794418L, 1449646272L, 1566s [00:52:46.895] 87560756L, -87565624L, 426345146L, -699970416L, 1566s [00:52:46.895] 240322284L, -1074080172L, -1536268654L, 1338615584L, 1566s [00:52:46.895] 478476236L, -1933154080L, -192786750L, 1559942184L, 1566s [00:52:46.895] -1178330196L, -687617348L, -1701912078L, 1566s [00:52:46.895] 352314928L, -999229532L, -2052800072L, -1913644198L, 1566s [00:52:46.895] -1345416048L, 1816730492L, -1570431212L, 1566s [00:52:46.895] -269427390L, -2122969344L, -520963140L, 1398087504L, 1566s [00:52:46.895] 264692002L, -1682658744L, -1422452724L, -1601893284L, 1566s [00:52:46.895] -66383406L, 1443075584L, -456249004L, 943694056L, 1566s [00:52:46.895] -1493184262L, -1943836976L, -590788308L, 1566s [00:52:46.895] -405505804L, -1796837998L, 1991543136L, 1170376716L, 1566s [00:52:46.895] 1707420384L, 1899700834L, -1643595096L, 47299148L, 1566s [00:52:46.895] 1274857340L, -1205842638L, -1938479504L, 1566s [00:52:46.895] -1773978812L, 532695000L, 1306451834L, 258403888L, 1566s [00:52:46.895] -284747844L, -1780705708L, 1621936194L, 1129070752L, 1566s [00:52:46.895] 540946108L, -294270512L, -1426480286L, -356302104L, 1566s [00:52:46.895] 349847756L, 1849803260L, -1299125774L, 511654528L, 1566s [00:52:46.895] -1259964940L, -1879857528L, 535666490L, -2020097200L, 1566s [00:52:46.895] -1460751252L, 1201879444L, -1459788718L, 1566s [00:52:46.895] 447195616L, -730891060L, -1875530592L, -2146183806L, 1566s [00:52:46.895] 193274088L, -1224605972L, 1616153916L, -1896973198L, 1566s [00:52:46.895] -420945808L, -1997735900L, -1838404552L, 1566s [00:52:46.895] -413698278L, 1984019664L, -1760209092L, -1288743020L, 1566s [00:52:46.895] 392579970L, -1382567488L, -1295004100L, -33348208L, 1566s [00:52:46.895] 1536615970L, -428761848L, 643368588L, -1596336356L, 1566s [00:52:46.895] 1797431442L, 352422272L, -1043800556L, 60591912L, 1566s [00:52:46.895] -1115663814L, 1043682768L, 521144684L, 4793268L, 1566s [00:52:46.895] -1924265966L, 978890208L, 370048972L, -1607474976L, 1566s [00:52:46.895] -1443637214L, -632405720L, 691912204L, 166321980L, 1566s [00:52:46.895] 942193650L, 751741680L, 689743428L, -18455976L, 1566s [00:52:46.895] -1946329286L, -1619184144L, 239341244L, 371382548L, 1566s [00:52:46.895] -2069808446L, 154176608L, 385987452L, -385611824L, 1566s [00:52:46.895] 1967391010L, 2140654248L, 1720087436L, -1591007044L, 1566s [00:52:46.895] -1612486862L, 1295747648L, 1726784692L, 597326408L, 1566s [00:52:46.895] -973152838L, 628505104L, -1089631508L, 3230036L, 1566s [00:52:46.895] -593837806L, 244006304L, 1357912780L, 1839234656L, 1566s [00:52:46.895] -1357570110L, 1896595240L, -2066952276L, 1566s [00:52:46.895] -1724304580L, 986188146L, -1200604368L, -279100124L, 1566s [00:52:46.895] 131128120L, -1088465190L, 596533136L, 170602236L, 1566s [00:52:46.895] -1051262060L, 215660610L, -686217984L, 444449852L, 1566s [00:52:46.895] 769655120L, 236357794L, 181393736L, -13334772L, 1566s [00:52:46.895] 644690652L, -1969263278L, -2107982720L, 1429553236L, 1566s [00:52:46.895] 794236904L, 1997299962L, -458224816L, 904978220L, 1566s [00:52:46.895] -537093772L, -842839150L, 1828989024L, -679303796L, 1566s [00:52:46.895] 1396292448L, 76319202L, 1896098728L, 418430156L, 1566s [00:52:46.895] 2005956604L, 1370351026L, -1178923536L, -1154073660L, 1566s [00:52:46.895] -1218863784L, 89928058L, 816597936L, -1141767748L, 1566s [00:52:46.895] 1579714644L, 1343385538L, 371259424L, -245180228L, 1566s [00:52:46.895] 365724240L, 1606388706L, -823678872L, 1281309772L, 1566s [00:52:46.895] 1395210492L, 1217887218L, 1420531968L, 1349501300L, 1566s [00:52:46.895] 271647752L, -69959750L, 360452560L, 1565334508L, 1566s [00:52:46.895] 1956526484L, -930709038L, 1961808224L, -1745916084L, 1566s [00:52:46.895] 443656480L, 1990137730L, 694374120L, -1050566420L, 1566s [00:52:46.895] -1365842884L, -438961294L, -1851472272L, 1566s [00:52:46.895] 614534180L, 1401930552L, 3652762L, 1928284880L, 1566s [00:52:46.895] -1637703492L, 26107540L, -132725907L, -371944998L, 1566s [00:52:46.895] -1311388776L, 8516097L, 741008307L, -1149566252L, 1566s [00:52:46.895] -1802640414L, 2019636855L, 1587818433L, -151040698L, 1566s [00:52:46.895] 1598381188L, -205462987L, 1911327L, -1382519432L, 1566s [00:52:46.895] -594809770L, -2146766621L, -2013964635L, 1566s [00:52:46.895] -965534910L, -2077626064L, 1964788057L, 1821395659L, 1566s [00:52:46.895] -1953549508L, -719348886L, 1442511263L, 1969287209L, 1566s [00:52:46.895] 1754221246L, -442299476L, 1981692157L, 113456199L, 1566s [00:52:46.895] 1587794736L, -1811033010L, 1149417595L, -1760887843L, 1566s [00:52:46.895] -1426021878L, -1285634264L, 1507547537L, 1566s [00:52:46.895] -1114120317L, 1897370756L, 1142575794L, -375814649L, 1566s [00:52:46.895] -1661041071L, 881081814L, -548925260L, 2073840837L, 1566s [00:52:46.895] 1156484623L, 2011334280L, 1107815334L, 969024339L, 1566s [00:52:46.895] -55972683L, 2006780434L, -1486403616L, 1698650697L, 1566s [00:52:46.895] 1813794939L, -1717763764L, 1268815066L, -1200630577L, 1566s [00:52:46.895] -773717863L, -12215122L, 1354639804L, 1213207085L, 1566s [00:52:46.895] -978295337L, 340143136L, 485429630L, -568148149L, 1566s [00:52:46.895] 1257440589L, 930106234L, -883274312L, -1632538783L, 1566s [00:52:46.895] 894748435L, -1592959180L, -596177598L, 120963415L, 1566s [00:52:46.895] -1174532959L, -561474202L, 1438545764L, 1429911189L, 1566s [00:52:46.895] 1075965887L, 367866712L, -892333706L, -485158013L, 1566s [00:52:46.895] -682634811L, 963344098L, 2110199632L, 1990767225L, 1566s [00:52:46.895] 1348335019L, 269581084L, -2040640438L, 1453561919L, 1566s [00:52:46.895] 853952649L, 1195494558L, 1614051660L, 2040242461L, 1566s [00:52:46.895] -1604604761L, 1421229008L, -1268333714L, 1566s [00:52:46.895] 174113307L, 2044969853L, 190112106L, -998776824L, 1566s [00:52:46.895] -2070476623L, -2099222749L, 1141171236L, 1566s [00:52:46.895] -146426158L, -1797385433L, -1129376399L, 1566s [00:52:46.895] -1496589386L, -419561644L, -613549595L, 1243456495L, 1566s [00:52:46.895] 451212072L, 1923543942L, 1146113971L, 93579029L, 1566s [00:52:46.895] -397504142L, 597218752L, 459048489L, 1447221915L, 1566s [00:52:46.895] -272948372L, -373834886L, 934888623L, -2099351623L, 1566s [00:52:46.895] -1672042034L, 193924380L, -704518003L, 781993207L, 1566s [00:52:46.895] -258875392L, -1853783458L, 1315003691L, -41214419L, 1566s [00:52:46.895] -59447654L, 1203745368L, 426003905L, 452670067L, 1566s [00:52:46.895] -1092079724L, -1765622238L, -1882554057L, 1566s [00:52:46.895] 1278087169L, -1994822394L, -124954300L, 1994460277L, 1566s [00:52:46.895] 1816829407L, -1568282312L, 1563616022L, 1255996195L, 1566s [00:52:46.895] 1702121701L, 1784032514L, 1842995056L, 748060441L, 1566s [00:52:46.895] 1432229643L, -1905232900L, 2016890922L, 1403944031L, 1566s [00:52:46.895] 351712233L, 1338932478L, -1359366932L, -803018691L, 1566s [00:52:46.895] -1551885305L, 248629232L, 1839395726L, 1411789243L, 1566s [00:52:46.895] 840085405L, -1849000630L, -669518488L, -1453417647L, 1566s [00:52:46.895] -1527179197L, -377159356L, 1674525170L, -313742393L, 1566s [00:52:46.895] 865377681L, -1127426242L), envir = base::globalenv(), 1566s [00:52:46.895] inherits = FALSE) 1566s [00:52:46.895] NULL 1566s [00:52:46.895] } 1566s [00:52:46.895] options(future.plan = NULL) 1566s [00:52:46.895] if (is.na(NA_character_)) 1566s [00:52:46.895] Sys.unsetenv("R_FUTURE_PLAN") 1566s [00:52:46.895] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1566s [00:52:46.895] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1566s [00:52:46.895] envir = parent.frame()) 1566s [00:52:46.895] { 1566s [00:52:46.895] default_workers <- missing(workers) 1566s [00:52:46.895] if (is.function(workers)) 1566s [00:52:46.895] workers <- workers() 1566s [00:52:46.895] workers <- structure(as.integer(workers), 1566s [00:52:46.895] class = class(workers)) 1566s [00:52:46.895] stop_if_not(is.finite(workers), workers >= 1566s [00:52:46.895] 1L) 1566s [00:52:46.895] if ((workers == 1L && !inherits(workers, 1566s [00:52:46.895] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1566s [00:52:46.895] if (default_workers) 1566s [00:52:46.895] supportsMulticore(warn = TRUE) 1566s [00:52:46.895] return(sequential(..., envir = envir)) 1566s [00:52:46.895] } 1566s [00:52:46.895] oopts <- options(mc.cores = workers) 1566s [00:52:46.895] on.exit(options(oopts)) 1566s [00:52:46.895] future <- MulticoreFuture(..., workers = workers, 1566s [00:52:46.895] envir = envir) 1566s [00:52:46.895] if (!future$lazy) 1566s [00:52:46.895] future <- run(future) 1566s [00:52:46.895] invisible(future) 1566s [00:52:46.895] }), .cleanup = FALSE, .init = FALSE) 1566s [00:52:46.895] } 1566s [00:52:46.895] } 1566s [00:52:46.895] } 1566s [00:52:46.895] }) 1566s [00:52:46.895] if (TRUE) { 1566s [00:52:46.895] base::sink(type = "output", split = FALSE) 1566s [00:52:46.895] if (TRUE) { 1566s [00:52:46.895] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1566s [00:52:46.895] } 1566s [00:52:46.895] else { 1566s [00:52:46.895] ...future.result["stdout"] <- base::list(NULL) 1566s [00:52:46.895] } 1566s [00:52:46.895] base::close(...future.stdout) 1566s [00:52:46.895] ...future.stdout <- NULL 1566s [00:52:46.895] } 1566s [00:52:46.895] ...future.result$conditions <- ...future.conditions 1566s [00:52:46.895] ...future.result$finished <- base::Sys.time() 1566s [00:52:46.895] ...future.result 1566s [00:52:46.895] } 1566s [00:52:46.903] assign_globals() ... 1566s [00:52:46.904] List of 5 1566s [00:52:46.904] $ ...future.FUN :function (...) 1566s [00:52:46.904] $ future.call.arguments : list() 1566s [00:52:46.904] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1566s [00:52:46.904] $ ...future.elements_ii :List of 5 1566s [00:52:46.904] ..$ : int 0 1566s [00:52:46.904] ..$ : int 0 1566s [00:52:46.904] ..$ : int 0 1566s [00:52:46.904] ..$ : int 0 1566s [00:52:46.904] ..$ : int 0 1566s [00:52:46.904] $ ...future.seeds_ii :List of 5 1566s [00:52:46.904] ..$ : int [1:7] 10407 1242173061 -1150840343 -834448425 701050094 -1369558043 -650964284 1566s [00:52:46.904] ..$ : int [1:7] 10407 859061261 1088872332 -1371790091 -942478768 -889560561 1393381402 1566s [00:52:46.904] ..$ : int [1:7] 10407 -1977952646 362645338 -1927542548 -742448269 -2030870718 1472975712 1566s [00:52:46.904] ..$ : int [1:7] 10407 -781199300 -1470244364 -1435938985 -1154922760 795337516 2089908040 1566s [00:52:46.904] ..$ : int [1:7] 10407 -1281561623 1745663508 -502066495 1003795914 -1805763079 -205768335 1566s [00:52:46.904] $ ...future.globals.maxSize: NULL 1566s [00:52:46.904] - attr(*, "where")=List of 5 1566s [00:52:46.904] ..$ ...future.FUN : 1566s [00:52:46.904] ..$ future.call.arguments : 1566s [00:52:46.904] ..$ ...future.elements_ii : 1566s [00:52:46.904] ..$ ...future.seeds_ii : 1566s [00:52:46.904] ..$ ...future.globals.maxSize: 1566s [00:52:46.904] - attr(*, "resolved")= logi FALSE 1566s [00:52:46.904] - attr(*, "total_size")= num 616 1566s [00:52:46.904] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1566s [00:52:46.904] - attr(*, "already-done")= logi TRUE 1566s [00:52:46.949] - reassign environment for ‘...future.FUN’ 1566s [00:52:46.949] - copied ‘...future.FUN’ to environment 1566s [00:52:46.949] - copied ‘future.call.arguments’ to environment 1566s [00:52:46.949] - copied ‘...future.elements_ii’ to environment 1566s [00:52:46.949] - copied ‘...future.seeds_ii’ to environment 1566s [00:52:46.949] - copied ‘...future.globals.maxSize’ to environment 1566s [00:52:46.950] assign_globals() ... done 1566s [00:52:46.950] plan(): Setting new future strategy stack: 1566s [00:52:46.950] List of future strategies: 1566s [00:52:46.950] 1. sequential: 1566s [00:52:46.950] - args: function (..., envir = parent.frame()) 1566s [00:52:46.950] - tweaked: FALSE 1566s [00:52:46.950] - call: NULL 1566s [00:52:46.951] plan(): nbrOfWorkers() = 1 1566s [00:52:46.951] plan(): Setting new future strategy stack: 1566s [00:52:46.951] List of future strategies: 1566s [00:52:46.951] 1. multicore: 1566s [00:52:46.951] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1566s [00:52:46.951] - tweaked: FALSE 1566s [00:52:46.951] - call: plan(strategy) 1566s [00:52:46.955] plan(): nbrOfWorkers() = 1 1566s [00:52:46.956] SequentialFuture started (and completed) 1566s [00:52:46.956] - Launch lazy future ... done 1566s [00:52:46.956] run() for ‘SequentialFuture’ ... done 1566s [00:52:46.956] Created future: 1566s [00:52:46.956] SequentialFuture: 1566s [00:52:46.956] Label: ‘future_replicate-1’ 1566s [00:52:46.956] Expression: 1566s [00:52:46.956] { 1566s [00:52:46.956] do.call(function(...) { 1566s [00:52:46.956] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1566s [00:52:46.956] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1566s [00:52:46.956] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1566s [00:52:46.956] on.exit(options(oopts), add = TRUE) 1566s [00:52:46.956] } 1566s [00:52:46.956] { 1566s [00:52:46.956] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1566s [00:52:46.956] ...future.X_jj <- ...future.elements_ii[[jj]] 1566s [00:52:46.956] assign(".Random.seed", ...future.seeds_ii[[jj]], 1566s [00:52:46.956] envir = globalenv(), inherits = FALSE) 1566s [00:52:46.956] ...future.FUN(...future.X_jj, ...) 1566s [00:52:46.956] }) 1566s [00:52:46.956] } 1566s [00:52:46.956] }, args = future.call.arguments) 1566s [00:52:46.956] } 1566s [00:52:46.956] Lazy evaluation: FALSE 1566s [00:52:46.956] Asynchronous evaluation: FALSE 1566s [00:52:46.956] Local evaluation: TRUE 1566s [00:52:46.956] Environment: R_GlobalEnv 1566s [00:52:46.956] Capture standard output: TRUE 1566s [00:52:46.956] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1566s [00:52:46.956] Globals: 5 objects totaling 1.27 KiB (function ‘...future.FUN’ of 616 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 280 bytes, list ‘...future.seeds_ii’ of 400 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1566s [00:52:46.956] Packages: 1566s [00:52:46.956] L'Ecuyer-CMRG RNG seed: (seed = NULL) 1566s [00:52:46.956] Resolved: TRUE 1566s [00:52:46.956] Value: 280 bytes of class ‘list’ 1566s [00:52:46.956] Early signaling: FALSE 1566s [00:52:46.956] Owner process: 50289bf5-8c9f-f501-15c6-3ca1fa8d82cf 1566s [00:52:46.956] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1566s [00:52:46.958] Chunk #1 of 1 ... DONE 1566s [00:52:46.958] Launching 1 futures (chunks) ... DONE 1566s [00:52:46.958] Resolving 1 futures (chunks) ... 1566s [00:52:46.959] resolve() on list ... 1566s [00:52:46.959] recursive: 0 1566s [00:52:46.959] length: 1 1566s [00:52:46.959] 1566s [00:52:46.959] resolved() for ‘SequentialFuture’ ... 1566s [00:52:46.959] - state: ‘finished’ 1566s [00:52:46.959] - run: TRUE 1566s [00:52:46.960] - result: ‘FutureResult’ 1566s [00:52:46.960] resolved() for ‘SequentialFuture’ ... done 1566s [00:52:46.960] Future #1 1566s [00:52:46.960] signalConditionsASAP(SequentialFuture, pos=1) ... 1566s [00:52:46.960] - nx: 1 1566s [00:52:46.960] - relay: TRUE 1566s [00:52:46.961] - stdout: TRUE 1566s [00:52:46.961] - signal: TRUE 1566s [00:52:46.961] - resignal: FALSE 1566s [00:52:46.961] - force: TRUE 1566s [00:52:46.961] - relayed: [n=1] FALSE 1566s [00:52:46.961] - queued futures: [n=1] FALSE 1566s [00:52:46.961] - until=1 1566s [00:52:46.961] - relaying element #1 1566s [00:52:46.962] - relayed: [n=1] TRUE 1566s [00:52:46.962] - queued futures: [n=1] TRUE 1566s [00:52:46.962] signalConditionsASAP(SequentialFuture, pos=1) ... done 1566s [00:52:46.962] length: 0 (resolved future 1) 1566s [00:52:46.962] Relaying remaining futures 1566s [00:52:46.962] signalConditionsASAP(NULL, pos=0) ... 1566s [00:52:46.963] - nx: 1 1566s [00:52:46.963] - relay: TRUE 1567s [00:52:46.963] - stdout: TRUE 1567s [00:52:46.963] - signal: TRUE 1567s [00:52:46.963] - resignal: FALSE 1567s [00:52:46.963] - force: TRUE 1567s [00:52:46.963] - relayed: [n=1] TRUE 1567s [00:52:46.963] - queued futures: [n=1] TRUE 1567s - flush all 1567s [00:52:46.964] - relayed: [n=1] TRUE 1567s [00:52:46.964] - queued futures: [n=1] TRUE 1567s [00:52:46.964] signalConditionsASAP(NULL, pos=0) ... done 1567s [00:52:46.964] resolve() on list ... DONE 1567s [00:52:46.964] - Number of value chunks collected: 1 1567s [00:52:46.964] Resolving 1 futures (chunks) ... DONE 1567s [00:52:46.964] Reducing values from 1 chunks ... 1567s [00:52:46.965] - Number of values collected after concatenation: 5 1567s [00:52:46.965] - Number of values expected: 5 1567s [00:52:46.965] Reducing values from 1 chunks ... DONE 1567s [00:52:46.965] future_lapply() ... DONE 1567s - example(replicate) ... 1567s [00:52:46.965] future_lapply() ... 1567s [00:52:46.966] Generating random seeds ... 1567s [00:52:46.966] Generating random seed streams for 5 elements ... 1567s [00:52:46.966] Generating random seed streams for 5 elements ... DONE 1567s [00:52:46.966] Generating random seeds ... DONE 1567s [00:52:46.966] Will set RNG state on exit: 10403, 8, 133210212, 1945833034, 115858357, -364452081, -390319082, 926195392, 2057013379, -803887967, -1078998384, 705296750, -1682614503, 830917547, -331376230, 1352842588, 1960957023, 1997081653, 374446028, 1510359842, 1146109309, -1295266185, -1545472098, 1268700760, 1627111355, -855092903, -215790872, -1958931690, 1906054289, -782874301, -399096750, -1740777756, 1763676455, -832683651, 1369376884, 430697050, 1699587749, -1503628097, 856180550, -242424368, -2127251469, 505777937, 257347392, -856180962, 886024169, -1464480485, -1512233174, -1985955764, -425390065, -589669563, 381897980, -790840494, 1136483533, -1535370105, -607934610, 1641470280, -1050403509, 1965932713, 362996216, 1596838182, -1829498303, -1824465965, 1872669058, -417374796, -1713346249, 1818328109, -1284085436, -1981489558, 1940543701, 1673049711, -1514495114, 467096736, 943410531, -1431020031, 1115626864, 965475598, -1718567047, -793788661, -1133789126, -80588996, 2018258047, 1866186709, 42791404, -1823521982, -1345991523, -1672661737, -180777858, -452713416, 1448313627, -1459492743, -600706872, -909649674, -2081822415, -1697455773, 1517613874, -820020092, 188336327, -1149897827, -475203820, -368005702, 204442629, 437854687, 1163191398, -760699920, 104455443, 819708593, 1129180512, 48636670, 1066049161, 398150075, -852036726, -906028436, -1265740817, -1824646107, -2126068516, 1815435954, -146408019, -860012185, -682500466, 1443186536, 1789394795, -1078204151, 809467800, 1514112710, -1097673695, 919601331, -331916766, 795008020, 1042337943, -371219827, 1558967204, 1563528586, -2133607947, -1904454577, -264006826, 770017792, 153477955, 1189667553, -363253680, 1882362030, 967246937, -793119637, -1401964070, 2129232540, -542810977, -1277899019, -377097332, -406748574, -1722157507, -1577740105, -455170210, 372239000, -1535936005, -1332632679, -1623884760, -359633706, 935827793, 1357445123, 997040018, -1506538204, -147930137, -166569923, -2103753036, 1366641946, 30482021, 1876964095, 2008557446, 657856784, -103814733, 774877777, -486350336, -555057442, -1821756119, -963495717, 853311466, 1671241612, -942337841, 409538693, 1992831804, 489867794, 357105933, -1611412921, -1119334354, -1521015416, -2041922421, 2048874089, -700216776, 1651628774, -10471807, 736942611, 380607938, -1742088588, 1124231287, 1232111981, -1801753084, -1608606422, -1172096363, 1420874031, -1210473418, -18317216, -571709789, 1107403201, 1952554416, 1991660750, -442973639, 581522507, -430787078, 1105375484, -1481218753, -748152299, -641535700, 679371266, -591318819, -104578089, -172818754, -1321694984, -98191653, 1709083961, -344680312, -159571914, 581309553, -63938909, 76420082, 951019332, -1797740537, 1291470301, -2079866156, -332493318, -1978392251, -1691039632, 388791868, -1101109484, -1365177662, 321737440, 1812890748, -133313328, -1252731998, 2044530216, 1263927564, 325388220, 520794418, 1449646272, 87560756, -87565624, 426345146, -699970416, 240322284, -1074080172, -1536268654, 1338615584, 478476236, -1933154080, -192786750, 1559942184, -1178330196, -687617348, -1701912078, 352314928, -999229532, -2052800072, -1913644198, -1345416048, 1816730492, -1570431212, -269427390, -2122969344, -520963140, 1398087504, 264692002, -1682658744, -1422452724, -1601893284, -66383406, 1443075584, -456249004, 943694056, -1493184262, -1943836976, -590788308, -405505804, -1796837998, 1991543136, 1170376716, 1707420384, 1899700834, -1643595096, 47299148, 1274857340, -1205842638, -1938479504, -1773978812, 532695000, 1306451834, 258403888, -284747844, -1780705708, 1621936194, 1129070752, 540946108, -294270512, -1426480286, -356302104, 349847756, 1849803260, -1299125774, 511654528, -1259964940, -1879857528, 535666490, -2020097200, -1460751252, 1201879444, -1459788718, 447195616, -730891060, -1875530592, -2146183806, 193274088, -1224605972, 1616153916, -1896973198, -420945808, -1997735900, -1838404552, -413698278, 1984019664, -1760209092, -1288743020, 392579970, -1382567488, -1295004100, -33348208, 1536615970, -428761848, 643368588, -1596336356, 1797431442, 352422272, -1043800556, 60591912, -1115663814, 1043682768, 521144684, 4793268, -1924265966, 978890208, 370048972, -1607474976, -1443637214, -632405720, 691912204, 166321980, 942193650, 751741680, 689743428, -18455976, -1946329286, -1619184144, 239341244, 371382548, -2069808446, 154176608, 385987452, -385611824, 1967391010, 2140654248, 1720087436, -1591007044, -1612486862, 1295747648, 1726784692, 597326408, -973152838, 628505104, -1089631508, 3230036, -593837806, 244006304, 1357912780, 1839234656, -1357570110, 1896595240, -2066952276, -1724304580, 986188146, -1200604368, -279100124, 131128120, -1088465190, 596533136, 170602236, -1051262060, 215660610, -686217984, 444449852, 769655120, 236357794, 181393736, -13334772, 644690652, -1969263278, -2107982720, 1429553236, 794236904, 1997299962, -458224816, 904978220, -537093772, -842839150, 1828989024, -679303796, 1396292448, 76319202, 1896098728, 418430156, 2005956604, 1370351026, -1178923536, -1154073660, -1218863784, 89928058, 816597936, -1141767748, 1579714644, 1343385538, 371259424, -245180228, 365724240, 1606388706, -823678872, 1281309772, 1395210492, 1217887218, 1420531968, 1349501300, 271647752, -69959750, 360452560, 1565334508, 1956526484, -930709038, 1961808224, -1745916084, 443656480, 1990137730, 694374120, -1050566420, -1365842884, -438961294, -1851472272, 614534180, 1401930552, 3652762, 1928284880, -1637703492, 26107540, -132725907, -371944998, -1311388776, 8516097, 741008307, -1149566252, -1802640414, 2019636855, 1587818433, -151040698, 1598381188, -205462987, 1911327, -1382519432, -594809770, -2146766621, -2013964635, -965534910, -2077626064, 1964788057, 1821395659, -1953549508, -719348886, 1442511263, 1969287209, 1754221246, -442299476, 1981692157, 113456199, 1587794736, -1811033010, 1149417595, -1760887843, -1426021878, -1285634264, 1507547537, -1114120317, 1897370756, 1142575794, -375814649, -1661041071, 881081814, -548925260, 2073840837, 1156484623, 2011334280, 1107815334, 969024339, -55972683, 2006780434, -1486403616, 1698650697, 1813794939, -1717763764, 1268815066, -1200630577, -773717863, -12215122, 1354639804, 1213207085, -978295337, 340143136, 485429630, -568148149, 1257440589, 930106234, -883274312, -1632538783, 894748435, -1592959180, -596177598, 120963415, -1174532959, -561474202, 1438545764, 1429911189, 1075965887, 367866712, -892333706, -485158013, -682634811, 963344098, 2110199632, 1990767225, 1348335019, 269581084, -2040640438, 1453561919, 853952649, 1195494558, 1614051660, 2040242461, -1604604761, 1421229008, -1268333714, 174113307, 2044969853, 190112106, -998776824, -2070476623, -2099222749, 1141171236, -146426158, -1797385433, -1129376399, -1496589386, -419561644, -613549595, 1243456495, 451212072, 1923543942, 1146113971, 93579029, -397504142, 597218752, 459048489, 1447221915, -272948372, -373834886, 934888623, -2099351623, -1672042034, 193924380, -704518003, 781993207, -258875392, -1853783458, 1315003691, -41214419, -59447654, 1203745368, 426003905, 452670067, -1092079724, -1765622238, -1882554057, 1278087169, -1994822394, -124954300, 1994460277, 1816829407, -1568282312, 1563616022, 1255996195, 1702121701, 1784032514, 1842995056, 748060441, 1432229643, -1905232900, 2016890922, 1403944031, 351712233, 1338932478, -1359366932, -803018691, -1551885305, 248629232, 1839395726, 1411789243, 840085405, -1849000630, -669518488, -1453417647, -1527179197, -377159356, 1674525170, -313742393, 865377681, -1127426242 1567s [00:52:46.971] Number of chunks: 1 1567s [00:52:46.971] getGlobalsAndPackagesXApply() ... 1567s [00:52:46.971] - future.globals: TRUE 1567s [00:52:46.971] getGlobalsAndPackages() ... 1567s [00:52:46.971] Searching for globals... 1567s [00:52:46.974] - globals found: [4] ‘FUN’, ‘foo’, ‘x’, ‘c’ 1567s [00:52:46.974] Searching for globals ... DONE 1567s [00:52:46.974] Resolving globals: FALSE 1567s [00:52:46.975] The total size of the 3 globals is 2.15 KiB (2200 bytes) 1567s [00:52:46.975] The total size of the 3 globals exported for future expression (‘FUN()’) is 2.15 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are three globals: ‘foo’ (1.60 KiB of class ‘function’), ‘FUN’ (504 bytes of class ‘function’) and ‘x’ (56 bytes of class ‘numeric’) 1567s [00:52:46.976] - globals: [3] ‘FUN’, ‘foo’, ‘x’ 1567s [00:52:46.976] 1567s [00:52:46.976] getGlobalsAndPackages() ... DONE 1567s [00:52:46.976] - globals found/used: [n=3] ‘FUN’, ‘foo’, ‘x’ 1567s [00:52:46.976] - needed namespaces: [n=0] 1567s [00:52:46.976] Finding globals ... DONE 1567s [00:52:46.977] - use_args: TRUE 1567s [00:52:46.977] - Getting '...' globals ... 1567s [00:52:46.977] resolve() on list ... 1567s [00:52:46.977] recursive: 0 1567s [00:52:46.977] length: 1 1567s [00:52:46.977] elements: ‘...’ 1567s [00:52:46.978] length: 0 (resolved future 1) 1567s [00:52:46.978] resolve() on list ... DONE 1567s [00:52:46.978] - '...' content: [n=0] 1567s [00:52:46.978] List of 1 1567s [00:52:46.978] $ ...: list() 1567s [00:52:46.978] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1567s [00:52:46.978] - attr(*, "where")=List of 1 1567s [00:52:46.978] ..$ ...: 1567s [00:52:46.978] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1567s [00:52:46.978] - attr(*, "resolved")= logi TRUE 1567s [00:52:46.978] - attr(*, "total_size")= num NA 1567s [00:52:46.981] - Getting '...' globals ... DONE 1567s [00:52:46.981] Globals to be used in all futures (chunks): [n=4] ‘...future.FUN’, ‘foo’, ‘x’, ‘...’ 1567s [00:52:46.982] List of 4 1567s [00:52:46.982] $ ...future.FUN:function (...) 1567s [00:52:46.982] $ foo :function (x = 1, y = 2) 1567s [00:52:46.982] $ x : num 3 1567s [00:52:46.982] $ ... : list() 1567s [00:52:46.982] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1567s [00:52:46.982] - attr(*, "where")=List of 4 1567s [00:52:46.982] ..$ ...future.FUN: 1567s [00:52:46.982] ..$ foo : 1567s [00:52:46.982] ..$ x : 1567s [00:52:46.982] ..$ ... : 1567s [00:52:46.982] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1567s [00:52:46.982] - attr(*, "resolved")= logi FALSE 1567s [00:52:46.982] - attr(*, "total_size")= num 2200 1567s [00:52:46.988] Packages to be attached in all futures: [n=0] 1567s [00:52:46.988] getGlobalsAndPackagesXApply() ... DONE 1567s [00:52:46.988] Number of futures (= number of chunks): 1 1567s [00:52:46.988] Launching 1 futures (chunks) ... 1567s [00:52:46.988] Chunk #1 of 1 ... 1567s [00:52:46.990] - Finding globals in 'X' for chunk #1 ... 1567s [00:52:46.990] getGlobalsAndPackages() ... 1567s [00:52:46.990] Searching for globals... 1567s [00:52:46.990] 1567s [00:52:46.990] Searching for globals ... DONE 1567s [00:52:46.991] - globals: [0] 1567s [00:52:46.991] getGlobalsAndPackages() ... DONE 1567s [00:52:46.991] + additional globals found: [n=0] 1567s [00:52:46.991] + additional namespaces needed: [n=0] 1567s [00:52:46.991] - Finding globals in 'X' for chunk #1 ... DONE 1567s [00:52:46.991] - seeds: [5] 1567s [00:52:46.991] - All globals exported: [n=7] ‘...future.FUN’, ‘foo’, ‘x’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1567s [00:52:46.992] getGlobalsAndPackages() ... 1567s [00:52:46.992] - globals passed as-is: [7] ‘...future.FUN’, ‘foo’, ‘x’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1567s [00:52:46.992] Resolving globals: FALSE 1567s [00:52:46.992] Tweak future expression to call with '...' arguments ... 1567s [00:52:46.992] { 1567s [00:52:46.992] do.call(function(...) { 1567s [00:52:46.992] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1567s [00:52:46.992] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1567s [00:52:46.992] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1567s [00:52:46.992] on.exit(options(oopts), add = TRUE) 1567s [00:52:46.992] } 1567s [00:52:46.992] { 1567s [00:52:46.992] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1567s [00:52:46.992] ...future.X_jj <- ...future.elements_ii[[jj]] 1567s [00:52:46.992] assign(".Random.seed", ...future.seeds_ii[[jj]], 1567s [00:52:46.992] envir = globalenv(), inherits = FALSE) 1567s [00:52:46.992] ...future.FUN(...future.X_jj, ...) 1567s [00:52:46.992] }) 1567s [00:52:46.992] } 1567s [00:52:46.992] }, args = future.call.arguments) 1567s [00:52:46.992] } 1567s [00:52:46.993] Tweak future expression to call with '...' arguments ... DONE 1567s [00:52:46.993] - globals: [7] ‘...future.FUN’, ‘foo’, ‘x’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1567s [00:52:46.993] 1567s [00:52:46.994] getGlobalsAndPackages() ... DONE 1567s [00:52:46.994] run() for ‘Future’ ... 1567s [00:52:46.994] - state: ‘created’ 1567s [00:52:46.994] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1567s [00:52:46.997] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1567s [00:52:46.998] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1567s [00:52:46.998] - Field: ‘label’ 1567s [00:52:46.998] - Field: ‘local’ 1567s [00:52:46.998] - Field: ‘owner’ 1567s [00:52:46.998] - Field: ‘envir’ 1567s [00:52:46.999] - Field: ‘packages’ 1567s [00:52:46.999] - Field: ‘gc’ 1567s [00:52:46.999] - Field: ‘conditions’ 1567s [00:52:46.999] - Field: ‘expr’ 1567s [00:52:46.999] - Field: ‘uuid’ 1567s [00:52:46.999] - Field: ‘seed’ 1567s [00:52:46.999] - Field: ‘version’ 1567s [00:52:47.000] - Field: ‘result’ 1567s [00:52:47.000] - Field: ‘asynchronous’ 1567s [00:52:47.000] - Field: ‘calls’ 1567s [00:52:47.001] - Field: ‘globals’ 1567s [00:52:47.001] - Field: ‘stdout’ 1567s [00:52:47.001] - Field: ‘earlySignal’ 1567s [00:52:47.001] - Field: ‘lazy’ 1567s [00:52:47.002] - Field: ‘state’ 1567s [00:52:47.002] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1567s [00:52:47.002] - Launch lazy future ... 1567s [00:52:47.003] Packages needed by the future expression (n = 0): 1567s [00:52:47.003] Packages needed by future strategies (n = 0): 1567s [00:52:47.004] { 1567s [00:52:47.004] { 1567s [00:52:47.004] { 1567s [00:52:47.004] ...future.startTime <- base::Sys.time() 1567s [00:52:47.004] { 1567s [00:52:47.004] { 1567s [00:52:47.004] { 1567s [00:52:47.004] base::local({ 1567s [00:52:47.004] has_future <- base::requireNamespace("future", 1567s [00:52:47.004] quietly = TRUE) 1567s [00:52:47.004] if (has_future) { 1567s [00:52:47.004] ns <- base::getNamespace("future") 1567s [00:52:47.004] version <- ns[[".package"]][["version"]] 1567s [00:52:47.004] if (is.null(version)) 1567s [00:52:47.004] version <- utils::packageVersion("future") 1567s [00:52:47.004] } 1567s [00:52:47.004] else { 1567s [00:52:47.004] version <- NULL 1567s [00:52:47.004] } 1567s [00:52:47.004] if (!has_future || version < "1.8.0") { 1567s [00:52:47.004] info <- base::c(r_version = base::gsub("R version ", 1567s [00:52:47.004] "", base::R.version$version.string), 1567s [00:52:47.004] platform = base::sprintf("%s (%s-bit)", 1567s [00:52:47.004] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1567s [00:52:47.004] os = base::paste(base::Sys.info()[base::c("sysname", 1567s [00:52:47.004] "release", "version")], collapse = " "), 1567s [00:52:47.004] hostname = base::Sys.info()[["nodename"]]) 1567s [00:52:47.004] info <- base::sprintf("%s: %s", base::names(info), 1567s [00:52:47.004] info) 1567s [00:52:47.004] info <- base::paste(info, collapse = "; ") 1567s [00:52:47.004] if (!has_future) { 1567s [00:52:47.004] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1567s [00:52:47.004] info) 1567s [00:52:47.004] } 1567s [00:52:47.004] else { 1567s [00:52:47.004] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1567s [00:52:47.004] info, version) 1567s [00:52:47.004] } 1567s [00:52:47.004] base::stop(msg) 1567s [00:52:47.004] } 1567s [00:52:47.004] }) 1567s [00:52:47.004] } 1567s [00:52:47.004] options(future.plan = NULL) 1567s [00:52:47.004] Sys.unsetenv("R_FUTURE_PLAN") 1567s [00:52:47.004] future::plan("default", .cleanup = FALSE, .init = FALSE) 1567s [00:52:47.004] } 1567s [00:52:47.004] ...future.workdir <- getwd() 1567s [00:52:47.004] } 1567s [00:52:47.004] ...future.oldOptions <- base::as.list(base::.Options) 1567s [00:52:47.004] ...future.oldEnvVars <- base::Sys.getenv() 1567s [00:52:47.004] } 1567s [00:52:47.004] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1567s [00:52:47.004] future.globals.maxSize = NULL, future.globals.method = NULL, 1567s [00:52:47.004] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1567s [00:52:47.004] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1567s [00:52:47.004] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1567s [00:52:47.004] future.stdout.windows.reencode = NULL, width = 80L) 1567s [00:52:47.004] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1567s [00:52:47.004] base::names(...future.oldOptions)) 1567s [00:52:47.004] } 1567s [00:52:47.004] if (FALSE) { 1567s [00:52:47.004] } 1567s [00:52:47.004] else { 1567s [00:52:47.004] if (TRUE) { 1567s [00:52:47.004] ...future.stdout <- base::rawConnection(base::raw(0L), 1567s [00:52:47.004] open = "w") 1567s [00:52:47.004] } 1567s [00:52:47.004] else { 1567s [00:52:47.004] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1567s [00:52:47.004] windows = "NUL", "/dev/null"), open = "w") 1567s [00:52:47.004] } 1567s [00:52:47.004] base::sink(...future.stdout, type = "output", split = FALSE) 1567s [00:52:47.004] base::on.exit(if (!base::is.null(...future.stdout)) { 1567s [00:52:47.004] base::sink(type = "output", split = FALSE) 1567s [00:52:47.004] base::close(...future.stdout) 1567s [00:52:47.004] }, add = TRUE) 1567s [00:52:47.004] } 1567s [00:52:47.004] ...future.frame <- base::sys.nframe() 1567s [00:52:47.004] ...future.conditions <- base::list() 1567s [00:52:47.004] ...future.rng <- base::globalenv()$.Random.seed 1567s [00:52:47.004] if (FALSE) { 1567s [00:52:47.004] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1567s [00:52:47.004] "...future.value", "...future.globalenv.names", ".Random.seed") 1567s [00:52:47.004] } 1567s [00:52:47.004] ...future.result <- base::tryCatch({ 1567s [00:52:47.004] base::withCallingHandlers({ 1567s [00:52:47.004] ...future.value <- base::withVisible(base::local({ 1567s [00:52:47.004] do.call(function(...) { 1567s [00:52:47.004] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1567s [00:52:47.004] if (!identical(...future.globals.maxSize.org, 1567s [00:52:47.004] ...future.globals.maxSize)) { 1567s [00:52:47.004] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1567s [00:52:47.004] on.exit(options(oopts), add = TRUE) 1567s [00:52:47.004] } 1567s [00:52:47.004] { 1567s [00:52:47.004] lapply(seq_along(...future.elements_ii), 1567s [00:52:47.004] FUN = function(jj) { 1567s [00:52:47.004] ...future.X_jj <- ...future.elements_ii[[jj]] 1567s [00:52:47.004] assign(".Random.seed", ...future.seeds_ii[[jj]], 1567s [00:52:47.004] envir = globalenv(), inherits = FALSE) 1567s [00:52:47.004] ...future.FUN(...future.X_jj, ...) 1567s [00:52:47.004] }) 1567s [00:52:47.004] } 1567s [00:52:47.004] }, args = future.call.arguments) 1567s [00:52:47.004] })) 1567s [00:52:47.004] future::FutureResult(value = ...future.value$value, 1567s [00:52:47.004] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1567s [00:52:47.004] ...future.rng), globalenv = if (FALSE) 1567s [00:52:47.004] list(added = base::setdiff(base::names(base::.GlobalEnv), 1567s [00:52:47.004] ...future.globalenv.names)) 1567s [00:52:47.004] else NULL, started = ...future.startTime, version = "1.8") 1567s [00:52:47.004] }, condition = base::local({ 1567s [00:52:47.004] c <- base::c 1567s [00:52:47.004] inherits <- base::inherits 1567s [00:52:47.004] invokeRestart <- base::invokeRestart 1567s [00:52:47.004] length <- base::length 1567s [00:52:47.004] list <- base::list 1567s [00:52:47.004] seq.int <- base::seq.int 1567s [00:52:47.004] signalCondition <- base::signalCondition 1567s [00:52:47.004] sys.calls <- base::sys.calls 1567s [00:52:47.004] `[[` <- base::`[[` 1567s [00:52:47.004] `+` <- base::`+` 1567s [00:52:47.004] `<<-` <- base::`<<-` 1567s [00:52:47.004] sysCalls <- function(calls = sys.calls(), from = 1L) { 1567s [00:52:47.004] calls[seq.int(from = from + 12L, to = length(calls) - 1567s [00:52:47.004] 3L)] 1567s [00:52:47.004] } 1567s [00:52:47.004] function(cond) { 1567s [00:52:47.004] is_error <- inherits(cond, "error") 1567s [00:52:47.004] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1567s [00:52:47.004] NULL) 1567s [00:52:47.004] if (is_error) { 1567s [00:52:47.004] sessionInformation <- function() { 1567s [00:52:47.004] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1567s [00:52:47.004] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1567s [00:52:47.004] search = base::search(), system = base::Sys.info()) 1567s [00:52:47.004] } 1567s [00:52:47.004] ...future.conditions[[length(...future.conditions) + 1567s [00:52:47.004] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1567s [00:52:47.004] cond$call), session = sessionInformation(), 1567s [00:52:47.004] timestamp = base::Sys.time(), signaled = 0L) 1567s [00:52:47.004] signalCondition(cond) 1567s [00:52:47.004] } 1567s [00:52:47.004] else if (!ignore && TRUE && inherits(cond, c("condition", 1567s [00:52:47.004] "immediateCondition"))) { 1567s [00:52:47.004] signal <- TRUE && inherits(cond, "immediateCondition") 1567s [00:52:47.004] ...future.conditions[[length(...future.conditions) + 1567s [00:52:47.004] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1567s [00:52:47.004] if (TRUE && !signal) { 1567s [00:52:47.004] muffleCondition <- function (cond, pattern = "^muffle") 1567s [00:52:47.004] { 1567s [00:52:47.004] inherits <- base::inherits 1567s [00:52:47.004] invokeRestart <- base::invokeRestart 1567s [00:52:47.004] is.null <- base::is.null 1567s [00:52:47.004] muffled <- FALSE 1567s [00:52:47.004] if (inherits(cond, "message")) { 1567s [00:52:47.004] muffled <- grepl(pattern, "muffleMessage") 1567s [00:52:47.004] if (muffled) 1567s [00:52:47.004] invokeRestart("muffleMessage") 1567s [00:52:47.004] } 1567s [00:52:47.004] else if (inherits(cond, "warning")) { 1567s [00:52:47.004] muffled <- grepl(pattern, "muffleWarning") 1567s [00:52:47.004] if (muffled) 1567s [00:52:47.004] invokeRestart("muffleWarning") 1567s [00:52:47.004] } 1567s [00:52:47.004] else if (inherits(cond, "condition")) { 1567s [00:52:47.004] if (!is.null(pattern)) { 1567s [00:52:47.004] computeRestarts <- base::computeRestarts 1567s [00:52:47.004] grepl <- base::grepl 1567s [00:52:47.004] restarts <- computeRestarts(cond) 1567s [00:52:47.004] for (restart in restarts) { 1567s [00:52:47.004] name <- restart$name 1567s [00:52:47.004] if (is.null(name)) 1567s [00:52:47.004] next 1567s [00:52:47.004] if (!grepl(pattern, name)) 1567s [00:52:47.004] next 1567s [00:52:47.004] invokeRestart(restart) 1567s [00:52:47.004] muffled <- TRUE 1567s [00:52:47.004] break 1567s [00:52:47.004] } 1567s [00:52:47.004] } 1567s [00:52:47.004] } 1567s [00:52:47.004] invisible(muffled) 1567s [00:52:47.004] } 1567s [00:52:47.004] muffleCondition(cond, pattern = "^muffle") 1567s [00:52:47.004] } 1567s [00:52:47.004] } 1567s [00:52:47.004] else { 1567s [00:52:47.004] if (TRUE) { 1567s [00:52:47.004] muffleCondition <- function (cond, pattern = "^muffle") 1567s [00:52:47.004] { 1567s [00:52:47.004] inherits <- base::inherits 1567s [00:52:47.004] invokeRestart <- base::invokeRestart 1567s [00:52:47.004] is.null <- base::is.null 1567s [00:52:47.004] muffled <- FALSE 1567s [00:52:47.004] if (inherits(cond, "message")) { 1567s [00:52:47.004] muffled <- grepl(pattern, "muffleMessage") 1567s [00:52:47.004] if (muffled) 1567s [00:52:47.004] invokeRestart("muffleMessage") 1567s [00:52:47.004] } 1567s [00:52:47.004] else if (inherits(cond, "warning")) { 1567s [00:52:47.004] muffled <- grepl(pattern, "muffleWarning") 1567s [00:52:47.004] if (muffled) 1567s [00:52:47.004] invokeRestart("muffleWarning") 1567s [00:52:47.004] } 1567s [00:52:47.004] else if (inherits(cond, "condition")) { 1567s [00:52:47.004] if (!is.null(pattern)) { 1567s [00:52:47.004] computeRestarts <- base::computeRestarts 1567s [00:52:47.004] grepl <- base::grepl 1567s [00:52:47.004] restarts <- computeRestarts(cond) 1567s [00:52:47.004] for (restart in restarts) { 1567s [00:52:47.004] name <- restart$name 1567s [00:52:47.004] if (is.null(name)) 1567s [00:52:47.004] next 1567s [00:52:47.004] if (!grepl(pattern, name)) 1567s [00:52:47.004] next 1567s [00:52:47.004] invokeRestart(restart) 1567s [00:52:47.004] muffled <- TRUE 1567s [00:52:47.004] break 1567s [00:52:47.004] } 1567s [00:52:47.004] } 1567s [00:52:47.004] } 1567s [00:52:47.004] invisible(muffled) 1567s [00:52:47.004] } 1567s [00:52:47.004] muffleCondition(cond, pattern = "^muffle") 1567s [00:52:47.004] } 1567s [00:52:47.004] } 1567s [00:52:47.004] } 1567s [00:52:47.004] })) 1567s [00:52:47.004] }, error = function(ex) { 1567s [00:52:47.004] base::structure(base::list(value = NULL, visible = NULL, 1567s [00:52:47.004] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1567s [00:52:47.004] ...future.rng), started = ...future.startTime, 1567s [00:52:47.004] finished = Sys.time(), session_uuid = NA_character_, 1567s [00:52:47.004] version = "1.8"), class = "FutureResult") 1567s [00:52:47.004] }, finally = { 1567s [00:52:47.004] if (!identical(...future.workdir, getwd())) 1567s [00:52:47.004] setwd(...future.workdir) 1567s [00:52:47.004] { 1567s [00:52:47.004] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1567s [00:52:47.004] ...future.oldOptions$nwarnings <- NULL 1567s [00:52:47.004] } 1567s [00:52:47.004] base::options(...future.oldOptions) 1567s [00:52:47.004] if (.Platform$OS.type == "windows") { 1567s [00:52:47.004] old_names <- names(...future.oldEnvVars) 1567s [00:52:47.004] envs <- base::Sys.getenv() 1567s [00:52:47.004] names <- names(envs) 1567s [00:52:47.004] common <- intersect(names, old_names) 1567s [00:52:47.004] added <- setdiff(names, old_names) 1567s [00:52:47.004] removed <- setdiff(old_names, names) 1567s [00:52:47.004] changed <- common[...future.oldEnvVars[common] != 1567s [00:52:47.004] envs[common]] 1567s [00:52:47.004] NAMES <- toupper(changed) 1567s [00:52:47.004] args <- list() 1567s [00:52:47.004] for (kk in seq_along(NAMES)) { 1567s [00:52:47.004] name <- changed[[kk]] 1567s [00:52:47.004] NAME <- NAMES[[kk]] 1567s [00:52:47.004] if (name != NAME && is.element(NAME, old_names)) 1567s [00:52:47.004] next 1567s [00:52:47.004] args[[name]] <- ...future.oldEnvVars[[name]] 1567s [00:52:47.004] } 1567s [00:52:47.004] NAMES <- toupper(added) 1567s [00:52:47.004] for (kk in seq_along(NAMES)) { 1567s [00:52:47.004] name <- added[[kk]] 1567s [00:52:47.004] NAME <- NAMES[[kk]] 1567s [00:52:47.004] if (name != NAME && is.element(NAME, old_names)) 1567s [00:52:47.004] next 1567s [00:52:47.004] args[[name]] <- "" 1567s [00:52:47.004] } 1567s [00:52:47.004] NAMES <- toupper(removed) 1567s [00:52:47.004] for (kk in seq_along(NAMES)) { 1567s [00:52:47.004] name <- removed[[kk]] 1567s [00:52:47.004] NAME <- NAMES[[kk]] 1567s [00:52:47.004] if (name != NAME && is.element(NAME, old_names)) 1567s [00:52:47.004] next 1567s [00:52:47.004] args[[name]] <- ...future.oldEnvVars[[name]] 1567s [00:52:47.004] } 1567s [00:52:47.004] if (length(args) > 0) 1567s [00:52:47.004] base::do.call(base::Sys.setenv, args = args) 1567s [00:52:47.004] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1567s [00:52:47.004] } 1567s [00:52:47.004] else { 1567s [00:52:47.004] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1567s [00:52:47.004] } 1567s [00:52:47.004] { 1567s [00:52:47.004] if (base::length(...future.futureOptionsAdded) > 1567s [00:52:47.004] 0L) { 1567s [00:52:47.004] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1567s [00:52:47.004] base::names(opts) <- ...future.futureOptionsAdded 1567s [00:52:47.004] base::options(opts) 1567s [00:52:47.004] } 1567s [00:52:47.004] { 1567s [00:52:47.004] { 1567s [00:52:47.004] base::assign(".Random.seed", c(10403L, 8L, 1567s [00:52:47.004] 133210212L, 1945833034L, 115858357L, -364452081L, 1567s [00:52:47.004] -390319082L, 926195392L, 2057013379L, -803887967L, 1567s [00:52:47.004] -1078998384L, 705296750L, -1682614503L, 830917547L, 1567s [00:52:47.004] -331376230L, 1352842588L, 1960957023L, 1997081653L, 1567s [00:52:47.004] 374446028L, 1510359842L, 1146109309L, -1295266185L, 1567s [00:52:47.004] -1545472098L, 1268700760L, 1627111355L, -855092903L, 1567s [00:52:47.004] -215790872L, -1958931690L, 1906054289L, -782874301L, 1567s [00:52:47.004] -399096750L, -1740777756L, 1763676455L, -832683651L, 1567s [00:52:47.004] 1369376884L, 430697050L, 1699587749L, -1503628097L, 1567s [00:52:47.004] 856180550L, -242424368L, -2127251469L, 505777937L, 1567s [00:52:47.004] 257347392L, -856180962L, 886024169L, -1464480485L, 1567s [00:52:47.004] -1512233174L, -1985955764L, -425390065L, 1567s [00:52:47.004] -589669563L, 381897980L, -790840494L, 1136483533L, 1567s [00:52:47.004] -1535370105L, -607934610L, 1641470280L, -1050403509L, 1567s [00:52:47.004] 1965932713L, 362996216L, 1596838182L, -1829498303L, 1567s [00:52:47.004] -1824465965L, 1872669058L, -417374796L, -1713346249L, 1567s [00:52:47.004] 1818328109L, -1284085436L, -1981489558L, 1567s [00:52:47.004] 1940543701L, 1673049711L, -1514495114L, 467096736L, 1567s [00:52:47.004] 943410531L, -1431020031L, 1115626864L, 965475598L, 1567s [00:52:47.004] -1718567047L, -793788661L, -1133789126L, 1567s [00:52:47.004] -80588996L, 2018258047L, 1866186709L, 42791404L, 1567s [00:52:47.004] -1823521982L, -1345991523L, -1672661737L, 1567s [00:52:47.004] -180777858L, -452713416L, 1448313627L, -1459492743L, 1567s [00:52:47.004] -600706872L, -909649674L, -2081822415L, -1697455773L, 1567s [00:52:47.004] 1517613874L, -820020092L, 188336327L, -1149897827L, 1567s [00:52:47.004] -475203820L, -368005702L, 204442629L, 437854687L, 1567s [00:52:47.004] 1163191398L, -760699920L, 104455443L, 819708593L, 1567s [00:52:47.004] 1129180512L, 48636670L, 1066049161L, 398150075L, 1567s [00:52:47.004] -852036726L, -906028436L, -1265740817L, -1824646107L, 1567s [00:52:47.004] -2126068516L, 1815435954L, -146408019L, -860012185L, 1567s [00:52:47.004] -682500466L, 1443186536L, 1789394795L, -1078204151L, 1567s [00:52:47.004] 809467800L, 1514112710L, -1097673695L, 919601331L, 1567s [00:52:47.004] -331916766L, 795008020L, 1042337943L, -371219827L, 1567s [00:52:47.004] 1558967204L, 1563528586L, -2133607947L, -1904454577L, 1567s [00:52:47.004] -264006826L, 770017792L, 153477955L, 1189667553L, 1567s [00:52:47.004] -363253680L, 1882362030L, 967246937L, -793119637L, 1567s [00:52:47.004] -1401964070L, 2129232540L, -542810977L, -1277899019L, 1567s [00:52:47.004] -377097332L, -406748574L, -1722157507L, -1577740105L, 1567s [00:52:47.004] -455170210L, 372239000L, -1535936005L, -1332632679L, 1567s [00:52:47.004] -1623884760L, -359633706L, 935827793L, 1357445123L, 1567s [00:52:47.004] 997040018L, -1506538204L, -147930137L, -166569923L, 1567s [00:52:47.004] -2103753036L, 1366641946L, 30482021L, 1876964095L, 1567s [00:52:47.004] 2008557446L, 657856784L, -103814733L, 774877777L, 1567s [00:52:47.004] -486350336L, -555057442L, -1821756119L, -963495717L, 1567s [00:52:47.004] 853311466L, 1671241612L, -942337841L, 409538693L, 1567s [00:52:47.004] 1992831804L, 489867794L, 357105933L, -1611412921L, 1567s [00:52:47.004] -1119334354L, -1521015416L, -2041922421L, 1567s [00:52:47.004] 2048874089L, -700216776L, 1651628774L, -10471807L, 1567s [00:52:47.004] 736942611L, 380607938L, -1742088588L, 1124231287L, 1567s [00:52:47.004] 1232111981L, -1801753084L, -1608606422L, 1567s [00:52:47.004] -1172096363L, 1420874031L, -1210473418L, 1567s [00:52:47.004] -18317216L, -571709789L, 1107403201L, 1952554416L, 1567s [00:52:47.004] 1991660750L, -442973639L, 581522507L, -430787078L, 1567s [00:52:47.004] 1105375484L, -1481218753L, -748152299L, -641535700L, 1567s [00:52:47.004] 679371266L, -591318819L, -104578089L, -172818754L, 1567s [00:52:47.004] -1321694984L, -98191653L, 1709083961L, -344680312L, 1567s [00:52:47.004] -159571914L, 581309553L, -63938909L, 76420082L, 1567s [00:52:47.004] 951019332L, -1797740537L, 1291470301L, -2079866156L, 1567s [00:52:47.004] -332493318L, -1978392251L, -1691039632L, 1567s [00:52:47.004] 388791868L, -1101109484L, -1365177662L, 321737440L, 1567s [00:52:47.004] 1812890748L, -133313328L, -1252731998L, 2044530216L, 1567s [00:52:47.004] 1263927564L, 325388220L, 520794418L, 1449646272L, 1567s [00:52:47.004] 87560756L, -87565624L, 426345146L, -699970416L, 1567s [00:52:47.004] 240322284L, -1074080172L, -1536268654L, 1338615584L, 1567s [00:52:47.004] 478476236L, -1933154080L, -192786750L, 1559942184L, 1567s [00:52:47.004] -1178330196L, -687617348L, -1701912078L, 1567s [00:52:47.004] 352314928L, -999229532L, -2052800072L, -1913644198L, 1567s [00:52:47.004] -1345416048L, 1816730492L, -1570431212L, 1567s [00:52:47.004] -269427390L, -2122969344L, -520963140L, 1398087504L, 1567s [00:52:47.004] 264692002L, -1682658744L, -1422452724L, -1601893284L, 1567s [00:52:47.004] -66383406L, 1443075584L, -456249004L, 943694056L, 1567s [00:52:47.004] -1493184262L, -1943836976L, -590788308L, 1567s [00:52:47.004] -405505804L, -1796837998L, 1991543136L, 1170376716L, 1567s [00:52:47.004] 1707420384L, 1899700834L, -1643595096L, 47299148L, 1567s [00:52:47.004] 1274857340L, -1205842638L, -1938479504L, 1567s [00:52:47.004] -1773978812L, 532695000L, 1306451834L, 258403888L, 1567s [00:52:47.004] -284747844L, -1780705708L, 1621936194L, 1129070752L, 1567s [00:52:47.004] 540946108L, -294270512L, -1426480286L, -356302104L, 1567s [00:52:47.004] 349847756L, 1849803260L, -1299125774L, 511654528L, 1567s [00:52:47.004] -1259964940L, -1879857528L, 535666490L, -2020097200L, 1567s [00:52:47.004] -1460751252L, 1201879444L, -1459788718L, 1567s [00:52:47.004] 447195616L, -730891060L, -1875530592L, -2146183806L, 1567s [00:52:47.004] 193274088L, -1224605972L, 1616153916L, -1896973198L, 1567s [00:52:47.004] -420945808L, -1997735900L, -1838404552L, 1567s [00:52:47.004] -413698278L, 1984019664L, -1760209092L, -1288743020L, 1567s [00:52:47.004] 392579970L, -1382567488L, -1295004100L, -33348208L, 1567s [00:52:47.004] 1536615970L, -428761848L, 643368588L, -1596336356L, 1567s [00:52:47.004] 1797431442L, 352422272L, -1043800556L, 60591912L, 1567s [00:52:47.004] -1115663814L, 1043682768L, 521144684L, 4793268L, 1567s [00:52:47.004] -1924265966L, 978890208L, 370048972L, -1607474976L, 1567s [00:52:47.004] -1443637214L, -632405720L, 691912204L, 166321980L, 1567s [00:52:47.004] 942193650L, 751741680L, 689743428L, -18455976L, 1567s [00:52:47.004] -1946329286L, -1619184144L, 239341244L, 371382548L, 1567s [00:52:47.004] -2069808446L, 154176608L, 385987452L, -385611824L, 1567s [00:52:47.004] 1967391010L, 2140654248L, 1720087436L, -1591007044L, 1567s [00:52:47.004] -1612486862L, 1295747648L, 1726784692L, 597326408L, 1567s [00:52:47.004] -973152838L, 628505104L, -1089631508L, 3230036L, 1567s [00:52:47.004] -593837806L, 244006304L, 1357912780L, 1839234656L, 1567s [00:52:47.004] -1357570110L, 1896595240L, -2066952276L, 1567s [00:52:47.004] -1724304580L, 986188146L, -1200604368L, -279100124L, 1567s [00:52:47.004] 131128120L, -1088465190L, 596533136L, 170602236L, 1567s [00:52:47.004] -1051262060L, 215660610L, -686217984L, 444449852L, 1567s [00:52:47.004] 769655120L, 236357794L, 181393736L, -13334772L, 1567s [00:52:47.004] 644690652L, -1969263278L, -2107982720L, 1429553236L, 1567s [00:52:47.004] 794236904L, 1997299962L, -458224816L, 904978220L, 1567s [00:52:47.004] -537093772L, -842839150L, 1828989024L, -679303796L, 1567s [00:52:47.004] 1396292448L, 76319202L, 1896098728L, 418430156L, 1567s [00:52:47.004] 2005956604L, 1370351026L, -1178923536L, -1154073660L, 1567s [00:52:47.004] -1218863784L, 89928058L, 816597936L, -1141767748L, 1567s [00:52:47.004] 1579714644L, 1343385538L, 371259424L, -245180228L, 1567s [00:52:47.004] 365724240L, 1606388706L, -823678872L, 1281309772L, 1567s [00:52:47.004] 1395210492L, 1217887218L, 1420531968L, 1349501300L, 1567s [00:52:47.004] 271647752L, -69959750L, 360452560L, 1565334508L, 1567s [00:52:47.004] 1956526484L, -930709038L, 1961808224L, -1745916084L, 1567s [00:52:47.004] 443656480L, 1990137730L, 694374120L, -1050566420L, 1567s [00:52:47.004] -1365842884L, -438961294L, -1851472272L, 1567s [00:52:47.004] 614534180L, 1401930552L, 3652762L, 1928284880L, 1567s [00:52:47.004] -1637703492L, 26107540L, -132725907L, -371944998L, 1567s [00:52:47.004] -1311388776L, 8516097L, 741008307L, -1149566252L, 1567s [00:52:47.004] -1802640414L, 2019636855L, 1587818433L, -151040698L, 1567s [00:52:47.004] 1598381188L, -205462987L, 1911327L, -1382519432L, 1567s [00:52:47.004] -594809770L, -2146766621L, -2013964635L, 1567s [00:52:47.004] -965534910L, -2077626064L, 1964788057L, 1821395659L, 1567s [00:52:47.004] -1953549508L, -719348886L, 1442511263L, 1969287209L, 1567s [00:52:47.004] 1754221246L, -442299476L, 1981692157L, 113456199L, 1567s [00:52:47.004] 1587794736L, -1811033010L, 1149417595L, -1760887843L, 1567s [00:52:47.004] -1426021878L, -1285634264L, 1507547537L, 1567s [00:52:47.004] -1114120317L, 1897370756L, 1142575794L, -375814649L, 1567s [00:52:47.004] -1661041071L, 881081814L, -548925260L, 2073840837L, 1567s [00:52:47.004] 1156484623L, 2011334280L, 1107815334L, 969024339L, 1567s [00:52:47.004] -55972683L, 2006780434L, -1486403616L, 1698650697L, 1567s [00:52:47.004] 1813794939L, -1717763764L, 1268815066L, -1200630577L, 1567s [00:52:47.004] -773717863L, -12215122L, 1354639804L, 1213207085L, 1567s [00:52:47.004] -978295337L, 340143136L, 485429630L, -568148149L, 1567s [00:52:47.004] 1257440589L, 930106234L, -883274312L, -1632538783L, 1567s [00:52:47.004] 894748435L, -1592959180L, -596177598L, 120963415L, 1567s [00:52:47.004] -1174532959L, -561474202L, 1438545764L, 1429911189L, 1567s [00:52:47.004] 1075965887L, 367866712L, -892333706L, -485158013L, 1567s [00:52:47.004] -682634811L, 963344098L, 2110199632L, 1990767225L, 1567s [00:52:47.004] 1348335019L, 269581084L, -2040640438L, 1453561919L, 1567s [00:52:47.004] 853952649L, 1195494558L, 1614051660L, 2040242461L, 1567s [00:52:47.004] -1604604761L, 1421229008L, -1268333714L, 1567s [00:52:47.004] 174113307L, 2044969853L, 190112106L, -998776824L, 1567s [00:52:47.004] -2070476623L, -2099222749L, 1141171236L, 1567s [00:52:47.004] -146426158L, -1797385433L, -1129376399L, 1567s [00:52:47.004] -1496589386L, -419561644L, -613549595L, 1243456495L, 1567s [00:52:47.004] 451212072L, 1923543942L, 1146113971L, 93579029L, 1567s [00:52:47.004] -397504142L, 597218752L, 459048489L, 1447221915L, 1567s [00:52:47.004] -272948372L, -373834886L, 934888623L, -2099351623L, 1567s [00:52:47.004] -1672042034L, 193924380L, -704518003L, 781993207L, 1567s [00:52:47.004] -258875392L, -1853783458L, 1315003691L, -41214419L, 1567s [00:52:47.004] -59447654L, 1203745368L, 426003905L, 452670067L, 1567s [00:52:47.004] -1092079724L, -1765622238L, -1882554057L, 1567s [00:52:47.004] 1278087169L, -1994822394L, -124954300L, 1994460277L, 1567s [00:52:47.004] 1816829407L, -1568282312L, 1563616022L, 1255996195L, 1567s [00:52:47.004] 1702121701L, 1784032514L, 1842995056L, 748060441L, 1567s [00:52:47.004] 1432229643L, -1905232900L, 2016890922L, 1403944031L, 1567s [00:52:47.004] 351712233L, 1338932478L, -1359366932L, -803018691L, 1567s [00:52:47.004] -1551885305L, 248629232L, 1839395726L, 1411789243L, 1567s [00:52:47.004] 840085405L, -1849000630L, -669518488L, -1453417647L, 1567s [00:52:47.004] -1527179197L, -377159356L, 1674525170L, -313742393L, 1567s [00:52:47.004] 865377681L, -1127426242L), envir = base::globalenv(), 1567s [00:52:47.004] inherits = FALSE) 1567s [00:52:47.004] NULL 1567s [00:52:47.004] } 1567s [00:52:47.004] options(future.plan = NULL) 1567s [00:52:47.004] if (is.na(NA_character_)) 1567s [00:52:47.004] Sys.unsetenv("R_FUTURE_PLAN") 1567s [00:52:47.004] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1567s [00:52:47.004] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1567s [00:52:47.004] envir = parent.frame()) 1567s [00:52:47.004] { 1567s [00:52:47.004] default_workers <- missing(workers) 1567s [00:52:47.004] if (is.function(workers)) 1567s [00:52:47.004] workers <- workers() 1567s [00:52:47.004] workers <- structure(as.integer(workers), 1567s [00:52:47.004] class = class(workers)) 1567s [00:52:47.004] stop_if_not(is.finite(workers), workers >= 1567s [00:52:47.004] 1L) 1567s [00:52:47.004] if ((workers == 1L && !inherits(workers, 1567s [00:52:47.004] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1567s [00:52:47.004] if (default_workers) 1567s [00:52:47.004] supportsMulticore(warn = TRUE) 1567s [00:52:47.004] return(sequential(..., envir = envir)) 1567s [00:52:47.004] } 1567s [00:52:47.004] oopts <- options(mc.cores = workers) 1567s [00:52:47.004] on.exit(options(oopts)) 1567s [00:52:47.004] future <- MulticoreFuture(..., workers = workers, 1567s [00:52:47.004] envir = envir) 1567s [00:52:47.004] if (!future$lazy) 1567s [00:52:47.004] future <- run(future) 1567s [00:52:47.004] invisible(future) 1567s [00:52:47.004] }), .cleanup = FALSE, .init = FALSE) 1567s [00:52:47.004] } 1567s [00:52:47.004] } 1567s [00:52:47.004] } 1567s [00:52:47.004] }) 1567s [00:52:47.004] if (TRUE) { 1567s [00:52:47.004] base::sink(type = "output", split = FALSE) 1567s [00:52:47.004] if (TRUE) { 1567s [00:52:47.004] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1567s [00:52:47.004] } 1567s [00:52:47.004] else { 1567s [00:52:47.004] ...future.result["stdout"] <- base::list(NULL) 1567s [00:52:47.004] } 1567s [00:52:47.004] base::close(...future.stdout) 1567s [00:52:47.004] ...future.stdout <- NULL 1567s [00:52:47.004] } 1567s [00:52:47.004] ...future.result$conditions <- ...future.conditions 1567s [00:52:47.004] ...future.result$finished <- base::Sys.time() 1567s [00:52:47.004] ...future.result 1567s [00:52:47.004] } 1567s [00:52:47.010] assign_globals() ... 1567s [00:52:47.010] List of 7 1567s [00:52:47.010] $ ...future.FUN :function (...) 1567s [00:52:47.010] $ foo :function (x = 1, y = 2) 1567s [00:52:47.010] $ x : num 3 1567s [00:52:47.010] $ future.call.arguments : list() 1567s [00:52:47.010] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1567s [00:52:47.010] $ ...future.elements_ii :List of 5 1567s [00:52:47.010] ..$ : int 0 1567s [00:52:47.010] ..$ : int 0 1567s [00:52:47.010] ..$ : int 0 1567s [00:52:47.010] ..$ : int 0 1567s [00:52:47.010] ..$ : int 0 1567s [00:52:47.010] $ ...future.seeds_ii :List of 5 1567s [00:52:47.010] ..$ : int [1:7] 10407 2118672648 973015440 1612380474 -529784560 -1301423278 1609721430 1567s [00:52:47.010] ..$ : int [1:7] 10407 -919798402 -1810630142 -850731864 -613657701 1060945587 1656143537 1567s [00:52:47.010] ..$ : int [1:7] 10407 1666123668 -918032954 1563303830 744861469 2009520167 369843810 1567s [00:52:47.010] ..$ : int [1:7] 10407 1310441948 2080683693 652639441 1795850730 1953532141 354730309 1567s [00:52:47.010] ..$ : int [1:7] 10407 -346794781 -526954742 61882141 1694204077 -404066420 2102686045 1567s [00:52:47.010] $ ...future.globals.maxSize: NULL 1567s [00:52:47.010] - attr(*, "where")=List of 7 1567s [00:52:47.010] ..$ ...future.FUN : 1567s [00:52:47.010] ..$ foo : 1567s [00:52:47.010] ..$ x : 1567s [00:52:47.010] ..$ future.call.arguments : 1567s [00:52:47.010] ..$ ...future.elements_ii : 1567s [00:52:47.010] ..$ ...future.seeds_ii : 1567s [00:52:47.010] ..$ ...future.globals.maxSize: 1567s [00:52:47.010] - attr(*, "resolved")= logi FALSE 1567s [00:52:47.010] - attr(*, "total_size")= num 2200 1567s [00:52:47.010] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1567s [00:52:47.010] - attr(*, "already-done")= logi TRUE 1567s [00:52:47.023] - reassign environment for ‘...future.FUN’ 1567s [00:52:47.024] - copied ‘...future.FUN’ to environment 1567s [00:52:47.024] - reassign environment for ‘foo’ 1567s [00:52:47.024] - copied ‘foo’ to environment 1567s [00:52:47.024] - copied ‘x’ to environment 1567s [00:52:47.024] - copied ‘future.call.arguments’ to environment 1567s [00:52:47.025] - copied ‘...future.elements_ii’ to environment 1567s [00:52:47.025] - copied ‘...future.seeds_ii’ to environment 1567s [00:52:47.025] - copied ‘...future.globals.maxSize’ to environment 1567s [00:52:47.025] assign_globals() ... done 1567s [00:52:47.026] plan(): Setting new future strategy stack: 1567s [00:52:47.026] List of future strategies: 1567s [00:52:47.026] 1. sequential: 1567s [00:52:47.026] - args: function (..., envir = parent.frame()) 1567s [00:52:47.026] - tweaked: FALSE 1567s [00:52:47.026] - call: NULL 1567s [00:52:47.026] plan(): nbrOfWorkers() = 1 1567s [00:52:47.027] plan(): Setting new future strategy stack: 1567s [00:52:47.027] List of future strategies: 1567s [00:52:47.027] 1. multicore: 1567s [00:52:47.027] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1567s [00:52:47.027] - tweaked: FALSE 1567s [00:52:47.027] - call: plan(strategy) 1567s [00:52:47.032] plan(): nbrOfWorkers() = 1 1567s [00:52:47.033] SequentialFuture started (and completed) 1567s [00:52:47.033] - Launch lazy future ... done 1567s [00:52:47.033] run() for ‘SequentialFuture’ ... done 1567s [00:52:47.033] Created future: 1567s [00:52:47.033] SequentialFuture: 1567s [00:52:47.033] Label: ‘future_replicate-1’ 1567s [00:52:47.033] Expression: 1567s [00:52:47.033] { 1567s [00:52:47.033] do.call(function(...) { 1567s [00:52:47.033] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1567s [00:52:47.033] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1567s [00:52:47.033] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1567s [00:52:47.033] on.exit(options(oopts), add = TRUE) 1567s [00:52:47.033] } 1567s [00:52:47.033] { 1567s [00:52:47.033] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1567s [00:52:47.033] ...future.X_jj <- ...future.elements_ii[[jj]] 1567s [00:52:47.033] assign(".Random.seed", ...future.seeds_ii[[jj]], 1567s [00:52:47.033] envir = globalenv(), inherits = FALSE) 1567s [00:52:47.033] ...future.FUN(...future.X_jj, ...) 1567s [00:52:47.033] }) 1567s [00:52:47.033] } 1567s [00:52:47.033] }, args = future.call.arguments) 1567s [00:52:47.033] } 1567s [00:52:47.033] Lazy evaluation: FALSE 1567s [00:52:47.033] Asynchronous evaluation: FALSE 1567s [00:52:47.033] Local evaluation: TRUE 1567s [00:52:47.033] Environment: 0x2aa2a58ccd8 1567s [00:52:47.033] Capture standard output: TRUE 1567s [00:52:47.033] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1567s [00:52:47.033] Globals: 7 objects totaling 2.81 KiB (function ‘...future.FUN’ of 504 bytes, function ‘foo’ of 1.60 KiB, numeric ‘x’ of 56 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 280 bytes, ...) 1567s [00:52:47.033] Packages: 1567s [00:52:47.033] L'Ecuyer-CMRG RNG seed: (seed = NULL) 1567s [00:52:47.033] Resolved: TRUE 1567s [00:52:47.033] Value: 320 bytes of class ‘list’ 1567s [00:52:47.033] Early signaling: FALSE 1567s [00:52:47.033] Owner process: 50289bf5-8c9f-f501-15c6-3ca1fa8d82cf 1567s [00:52:47.033] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1567s [00:52:47.035] Chunk #1 of 1 ... DONE 1567s [00:52:47.035] Launching 1 futures (chunks) ... DONE 1567s [00:52:47.035] Resolving 1 futures (chunks) ... 1567s [00:52:47.036] resolve() on list ... 1567s [00:52:47.036] recursive: 0 1567s [00:52:47.036] length: 1 1567s [00:52:47.036] 1567s [00:52:47.036] resolved() for ‘SequentialFuture’ ... 1567s [00:52:47.036] - state: ‘finished’ 1567s [00:52:47.036] - run: TRUE 1567s [00:52:47.036] - result: ‘FutureResult’ 1567s [00:52:47.036] resolved() for ‘SequentialFuture’ ... done 1567s [00:52:47.037] Future #1 1567s [00:52:47.037] signalConditionsASAP(SequentialFuture, pos=1) ... 1567s [00:52:47.037] - nx: 1 1567s [00:52:47.037] - relay: TRUE 1567s [00:52:47.037] - stdout: TRUE 1567s [00:52:47.037] - signal: TRUE 1567s [00:52:47.037] - resignal: FALSE 1567s [00:52:47.037] - force: TRUE 1567s [00:52:47.038] - relayed: [n=1] FALSE 1567s [00:52:47.038] - queued futures: [n=1] FALSE 1567s [00:52:47.038] - until=1 1567s [00:52:47.039] - relaying element #1 1567s [00:52:47.040] - relayed: [n=1] TRUE 1567s [00:52:47.040] - queued futures: [n=1] TRUE 1567s [00:52:47.040] signalConditionsASAP(SequentialFuture, pos=1) ... done 1567s [00:52:47.041] length: 0 (resolved future 1) 1567s [00:52:47.041] Relaying remaining futures 1567s [00:52:47.041] signalConditionsASAP(NULL, pos=0) ... 1567s [00:52:47.041] - nx: 1 1567s [00:52:47.041] - relay: TRUE 1567s [00:52:47.042] - stdout: TRUE 1567s [00:52:47.042] - signal: TRUE 1567s [00:52:47.042] - resignal: FALSE 1567s [00:52:47.042] - force: TRUE 1567s [00:52:47.042] - relayed: [n=1] TRUE 1567s [00:52:47.042] - queued futures: [n=1] TRUE 1567s - flush all 1567s [00:52:47.043] - relayed: [n=1] TRUE 1567s [00:52:47.043] - queued futures: [n=1] TRUE 1567s [00:52:47.043] signalConditionsASAP(NULL, pos=0) ... done 1567s [00:52:47.043] resolve() on list ... DONE 1567s [00:52:47.043] - Number of value chunks collected: 1 1567s [00:52:47.043] Resolving 1 futures (chunks) ... DONE 1567s [00:52:47.044] Reducing values from 1 chunks ... 1567s [00:52:47.044] - Number of values collected after concatenation: 5 1567s [00:52:47.044] - Number of values expected: 5 1567s [00:52:47.044] Reducing values from 1 chunks ... DONE 1567s [00:52:47.044] future_lapply() ... DONE 1567s [00:52:47.045] plan(): Setting new future strategy stack: 1567s [00:52:47.045] List of future strategies: 1567s [00:52:47.045] 1. sequential: 1567s [00:52:47.045] - args: function (..., envir = parent.frame()) 1567s [00:52:47.045] - tweaked: FALSE 1567s [00:52:47.045] - call: plan(sequential) 1567s [00:52:47.046] plan(): nbrOfWorkers() = 1 1567s *** strategy = ‘multicore’ ... done 1567s *** strategy = ‘multisession’ ... 1567s [00:52:47.046] plan(): Setting new future strategy stack: 1567s [00:52:47.047] List of future strategies: 1567s [00:52:47.047] 1. multisession: 1567s [00:52:47.047] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1567s [00:52:47.047] - tweaked: FALSE 1567s [00:52:47.047] - call: plan(strategy) 1567s [00:52:47.047] plan(): plan_init() of ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ ... 1567s [00:52:47.047] multisession: 1567s [00:52:47.047] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1567s [00:52:47.047] - tweaked: FALSE 1567s [00:52:47.047] - call: plan(strategy) 1567s [00:52:47.051] getGlobalsAndPackages() ... 1567s [00:52:47.052] Not searching for globals 1567s [00:52:47.052] - globals: [0] 1567s [00:52:47.052] getGlobalsAndPackages() ... DONE 1567s [00:52:47.053] Packages needed by the future expression (n = 0): 1567s [00:52:47.053] Packages needed by future strategies (n = 0): 1567s [00:52:47.053] { 1567s [00:52:47.053] { 1567s [00:52:47.053] { 1567s [00:52:47.053] ...future.startTime <- base::Sys.time() 1567s [00:52:47.053] { 1567s [00:52:47.053] { 1567s [00:52:47.053] { 1567s [00:52:47.053] base::local({ 1567s [00:52:47.053] has_future <- base::requireNamespace("future", 1567s [00:52:47.053] quietly = TRUE) 1567s [00:52:47.053] if (has_future) { 1567s [00:52:47.053] ns <- base::getNamespace("future") 1567s [00:52:47.053] version <- ns[[".package"]][["version"]] 1567s [00:52:47.053] if (is.null(version)) 1567s [00:52:47.053] version <- utils::packageVersion("future") 1567s [00:52:47.053] } 1567s [00:52:47.053] else { 1567s [00:52:47.053] version <- NULL 1567s [00:52:47.053] } 1567s [00:52:47.053] if (!has_future || version < "1.8.0") { 1567s [00:52:47.053] info <- base::c(r_version = base::gsub("R version ", 1567s [00:52:47.053] "", base::R.version$version.string), 1567s [00:52:47.053] platform = base::sprintf("%s (%s-bit)", 1567s [00:52:47.053] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1567s [00:52:47.053] os = base::paste(base::Sys.info()[base::c("sysname", 1567s [00:52:47.053] "release", "version")], collapse = " "), 1567s [00:52:47.053] hostname = base::Sys.info()[["nodename"]]) 1567s [00:52:47.053] info <- base::sprintf("%s: %s", base::names(info), 1567s [00:52:47.053] info) 1567s [00:52:47.053] info <- base::paste(info, collapse = "; ") 1567s [00:52:47.053] if (!has_future) { 1567s [00:52:47.053] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1567s [00:52:47.053] info) 1567s [00:52:47.053] } 1567s [00:52:47.053] else { 1567s [00:52:47.053] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1567s [00:52:47.053] info, version) 1567s [00:52:47.053] } 1567s [00:52:47.053] base::stop(msg) 1567s [00:52:47.053] } 1567s [00:52:47.053] }) 1567s [00:52:47.053] } 1567s [00:52:47.053] options(future.plan = NULL) 1567s [00:52:47.053] Sys.unsetenv("R_FUTURE_PLAN") 1567s [00:52:47.053] future::plan("default", .cleanup = FALSE, .init = FALSE) 1567s [00:52:47.053] } 1567s [00:52:47.053] ...future.workdir <- getwd() 1567s [00:52:47.053] } 1567s [00:52:47.053] ...future.oldOptions <- base::as.list(base::.Options) 1567s [00:52:47.053] ...future.oldEnvVars <- base::Sys.getenv() 1567s [00:52:47.053] } 1567s [00:52:47.053] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1567s [00:52:47.053] future.globals.maxSize = NULL, future.globals.method = NULL, 1567s [00:52:47.053] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1567s [00:52:47.053] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1567s [00:52:47.053] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1567s [00:52:47.053] future.stdout.windows.reencode = NULL, width = 80L) 1567s [00:52:47.053] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1567s [00:52:47.053] base::names(...future.oldOptions)) 1567s [00:52:47.053] } 1567s [00:52:47.053] if (FALSE) { 1567s [00:52:47.053] } 1567s [00:52:47.053] else { 1567s [00:52:47.053] if (TRUE) { 1567s [00:52:47.053] ...future.stdout <- base::rawConnection(base::raw(0L), 1567s [00:52:47.053] open = "w") 1567s [00:52:47.053] } 1567s [00:52:47.053] else { 1567s [00:52:47.053] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1567s [00:52:47.053] windows = "NUL", "/dev/null"), open = "w") 1567s [00:52:47.053] } 1567s [00:52:47.053] base::sink(...future.stdout, type = "output", split = FALSE) 1567s [00:52:47.053] base::on.exit(if (!base::is.null(...future.stdout)) { 1567s [00:52:47.053] base::sink(type = "output", split = FALSE) 1567s [00:52:47.053] base::close(...future.stdout) 1567s [00:52:47.053] }, add = TRUE) 1567s [00:52:47.053] } 1567s [00:52:47.053] ...future.frame <- base::sys.nframe() 1567s [00:52:47.053] ...future.conditions <- base::list() 1567s [00:52:47.053] ...future.rng <- base::globalenv()$.Random.seed 1567s [00:52:47.053] if (FALSE) { 1567s [00:52:47.053] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1567s [00:52:47.053] "...future.value", "...future.globalenv.names", ".Random.seed") 1567s [00:52:47.053] } 1567s [00:52:47.053] ...future.result <- base::tryCatch({ 1567s [00:52:47.053] base::withCallingHandlers({ 1567s [00:52:47.053] ...future.value <- base::withVisible(base::local(NA)) 1567s [00:52:47.053] future::FutureResult(value = ...future.value$value, 1567s [00:52:47.053] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1567s [00:52:47.053] ...future.rng), globalenv = if (FALSE) 1567s [00:52:47.053] list(added = base::setdiff(base::names(base::.GlobalEnv), 1567s [00:52:47.053] ...future.globalenv.names)) 1567s [00:52:47.053] else NULL, started = ...future.startTime, version = "1.8") 1567s [00:52:47.053] }, condition = base::local({ 1567s [00:52:47.053] c <- base::c 1567s [00:52:47.053] inherits <- base::inherits 1567s [00:52:47.053] invokeRestart <- base::invokeRestart 1567s [00:52:47.053] length <- base::length 1567s [00:52:47.053] list <- base::list 1567s [00:52:47.053] seq.int <- base::seq.int 1567s [00:52:47.053] signalCondition <- base::signalCondition 1567s [00:52:47.053] sys.calls <- base::sys.calls 1567s [00:52:47.053] `[[` <- base::`[[` 1567s [00:52:47.053] `+` <- base::`+` 1567s [00:52:47.053] `<<-` <- base::`<<-` 1567s [00:52:47.053] sysCalls <- function(calls = sys.calls(), from = 1L) { 1567s [00:52:47.053] calls[seq.int(from = from + 12L, to = length(calls) - 1567s [00:52:47.053] 3L)] 1567s [00:52:47.053] } 1567s [00:52:47.053] function(cond) { 1567s [00:52:47.053] is_error <- inherits(cond, "error") 1567s [00:52:47.053] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1567s [00:52:47.053] NULL) 1567s [00:52:47.053] if (is_error) { 1567s [00:52:47.053] sessionInformation <- function() { 1567s [00:52:47.053] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1567s [00:52:47.053] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1567s [00:52:47.053] search = base::search(), system = base::Sys.info()) 1567s [00:52:47.053] } 1567s [00:52:47.053] ...future.conditions[[length(...future.conditions) + 1567s [00:52:47.053] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1567s [00:52:47.053] cond$call), session = sessionInformation(), 1567s [00:52:47.053] timestamp = base::Sys.time(), signaled = 0L) 1567s [00:52:47.053] signalCondition(cond) 1567s [00:52:47.053] } 1567s [00:52:47.053] else if (!ignore && TRUE && inherits(cond, c("condition", 1567s [00:52:47.053] "immediateCondition"))) { 1567s [00:52:47.053] signal <- TRUE && inherits(cond, "immediateCondition") 1567s [00:52:47.053] ...future.conditions[[length(...future.conditions) + 1567s [00:52:47.053] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1567s [00:52:47.053] if (TRUE && !signal) { 1567s [00:52:47.053] muffleCondition <- function (cond, pattern = "^muffle") 1567s [00:52:47.053] { 1567s [00:52:47.053] inherits <- base::inherits 1567s [00:52:47.053] invokeRestart <- base::invokeRestart 1567s [00:52:47.053] is.null <- base::is.null 1567s [00:52:47.053] muffled <- FALSE 1567s [00:52:47.053] if (inherits(cond, "message")) { 1567s [00:52:47.053] muffled <- grepl(pattern, "muffleMessage") 1567s [00:52:47.053] if (muffled) 1567s [00:52:47.053] invokeRestart("muffleMessage") 1567s [00:52:47.053] } 1567s [00:52:47.053] else if (inherits(cond, "warning")) { 1567s [00:52:47.053] muffled <- grepl(pattern, "muffleWarning") 1567s [00:52:47.053] if (muffled) 1567s [00:52:47.053] invokeRestart("muffleWarning") 1567s [00:52:47.053] } 1567s [00:52:47.053] else if (inherits(cond, "condition")) { 1567s [00:52:47.053] if (!is.null(pattern)) { 1567s [00:52:47.053] computeRestarts <- base::computeRestarts 1567s [00:52:47.053] grepl <- base::grepl 1567s [00:52:47.053] restarts <- computeRestarts(cond) 1567s [00:52:47.053] for (restart in restarts) { 1567s [00:52:47.053] name <- restart$name 1567s [00:52:47.053] if (is.null(name)) 1567s [00:52:47.053] next 1567s [00:52:47.053] if (!grepl(pattern, name)) 1567s [00:52:47.053] next 1567s [00:52:47.053] invokeRestart(restart) 1567s [00:52:47.053] muffled <- TRUE 1567s [00:52:47.053] break 1567s [00:52:47.053] } 1567s [00:52:47.053] } 1567s [00:52:47.053] } 1567s [00:52:47.053] invisible(muffled) 1567s [00:52:47.053] } 1567s [00:52:47.053] muffleCondition(cond, pattern = "^muffle") 1567s [00:52:47.053] } 1567s [00:52:47.053] } 1567s [00:52:47.053] else { 1567s [00:52:47.053] if (TRUE) { 1567s [00:52:47.053] muffleCondition <- function (cond, pattern = "^muffle") 1567s [00:52:47.053] { 1567s [00:52:47.053] inherits <- base::inherits 1567s [00:52:47.053] invokeRestart <- base::invokeRestart 1567s [00:52:47.053] is.null <- base::is.null 1567s [00:52:47.053] muffled <- FALSE 1567s [00:52:47.053] if (inherits(cond, "message")) { 1567s [00:52:47.053] muffled <- grepl(pattern, "muffleMessage") 1567s [00:52:47.053] if (muffled) 1567s [00:52:47.053] invokeRestart("muffleMessage") 1567s [00:52:47.053] } 1567s [00:52:47.053] else if (inherits(cond, "warning")) { 1567s [00:52:47.053] muffled <- grepl(pattern, "muffleWarning") 1567s [00:52:47.053] if (muffled) 1567s [00:52:47.053] invokeRestart("muffleWarning") 1567s [00:52:47.053] } 1567s [00:52:47.053] else if (inherits(cond, "condition")) { 1567s [00:52:47.053] if (!is.null(pattern)) { 1567s [00:52:47.053] computeRestarts <- base::computeRestarts 1567s [00:52:47.053] grepl <- base::grepl 1567s [00:52:47.053] restarts <- computeRestarts(cond) 1567s [00:52:47.053] for (restart in restarts) { 1567s [00:52:47.053] name <- restart$name 1567s [00:52:47.053] if (is.null(name)) 1567s [00:52:47.053] next 1567s [00:52:47.053] if (!grepl(pattern, name)) 1567s [00:52:47.053] next 1567s [00:52:47.053] invokeRestart(restart) 1567s [00:52:47.053] muffled <- TRUE 1567s [00:52:47.053] break 1567s [00:52:47.053] } 1567s [00:52:47.053] } 1567s [00:52:47.053] } 1567s [00:52:47.053] invisible(muffled) 1567s [00:52:47.053] } 1567s [00:52:47.053] muffleCondition(cond, pattern = "^muffle") 1567s [00:52:47.053] } 1567s [00:52:47.053] } 1567s [00:52:47.053] } 1567s [00:52:47.053] })) 1567s [00:52:47.053] }, error = function(ex) { 1567s [00:52:47.053] base::structure(base::list(value = NULL, visible = NULL, 1567s [00:52:47.053] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1567s [00:52:47.053] ...future.rng), started = ...future.startTime, 1567s [00:52:47.053] finished = Sys.time(), session_uuid = NA_character_, 1567s [00:52:47.053] version = "1.8"), class = "FutureResult") 1567s [00:52:47.053] }, finally = { 1567s [00:52:47.053] if (!identical(...future.workdir, getwd())) 1567s [00:52:47.053] setwd(...future.workdir) 1567s [00:52:47.053] { 1567s [00:52:47.053] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1567s [00:52:47.053] ...future.oldOptions$nwarnings <- NULL 1567s [00:52:47.053] } 1567s [00:52:47.053] base::options(...future.oldOptions) 1567s [00:52:47.053] if (.Platform$OS.type == "windows") { 1567s [00:52:47.053] old_names <- names(...future.oldEnvVars) 1567s [00:52:47.053] envs <- base::Sys.getenv() 1567s [00:52:47.053] names <- names(envs) 1567s [00:52:47.053] common <- intersect(names, old_names) 1567s [00:52:47.053] added <- setdiff(names, old_names) 1567s [00:52:47.053] removed <- setdiff(old_names, names) 1567s [00:52:47.053] changed <- common[...future.oldEnvVars[common] != 1567s [00:52:47.053] envs[common]] 1567s [00:52:47.053] NAMES <- toupper(changed) 1567s [00:52:47.053] args <- list() 1567s [00:52:47.053] for (kk in seq_along(NAMES)) { 1567s [00:52:47.053] name <- changed[[kk]] 1567s [00:52:47.053] NAME <- NAMES[[kk]] 1567s [00:52:47.053] if (name != NAME && is.element(NAME, old_names)) 1567s [00:52:47.053] next 1567s [00:52:47.053] args[[name]] <- ...future.oldEnvVars[[name]] 1567s [00:52:47.053] } 1567s [00:52:47.053] NAMES <- toupper(added) 1567s [00:52:47.053] for (kk in seq_along(NAMES)) { 1567s [00:52:47.053] name <- added[[kk]] 1567s [00:52:47.053] NAME <- NAMES[[kk]] 1567s [00:52:47.053] if (name != NAME && is.element(NAME, old_names)) 1567s [00:52:47.053] next 1567s [00:52:47.053] args[[name]] <- "" 1567s [00:52:47.053] } 1567s [00:52:47.053] NAMES <- toupper(removed) 1567s [00:52:47.053] for (kk in seq_along(NAMES)) { 1567s [00:52:47.053] name <- removed[[kk]] 1567s [00:52:47.053] NAME <- NAMES[[kk]] 1567s [00:52:47.053] if (name != NAME && is.element(NAME, old_names)) 1567s [00:52:47.053] next 1567s [00:52:47.053] args[[name]] <- ...future.oldEnvVars[[name]] 1567s [00:52:47.053] } 1567s [00:52:47.053] if (length(args) > 0) 1567s [00:52:47.053] base::do.call(base::Sys.setenv, args = args) 1567s [00:52:47.053] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1567s [00:52:47.053] } 1567s [00:52:47.053] else { 1567s [00:52:47.053] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1567s [00:52:47.053] } 1567s [00:52:47.053] { 1567s [00:52:47.053] if (base::length(...future.futureOptionsAdded) > 1567s [00:52:47.053] 0L) { 1567s [00:52:47.053] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1567s [00:52:47.053] base::names(opts) <- ...future.futureOptionsAdded 1567s [00:52:47.053] base::options(opts) 1567s [00:52:47.053] } 1567s [00:52:47.053] { 1567s [00:52:47.053] { 1567s [00:52:47.053] base::assign(".Random.seed", c(10403L, 8L, 1567s [00:52:47.053] 133210212L, 1945833034L, 115858357L, -364452081L, 1567s [00:52:47.053] -390319082L, 926195392L, 2057013379L, -803887967L, 1567s [00:52:47.053] -1078998384L, 705296750L, -1682614503L, 830917547L, 1567s [00:52:47.053] -331376230L, 1352842588L, 1960957023L, 1997081653L, 1567s [00:52:47.053] 374446028L, 1510359842L, 1146109309L, -1295266185L, 1567s [00:52:47.053] -1545472098L, 1268700760L, 1627111355L, -855092903L, 1567s [00:52:47.053] -215790872L, -1958931690L, 1906054289L, -782874301L, 1567s [00:52:47.053] -399096750L, -1740777756L, 1763676455L, -832683651L, 1567s [00:52:47.053] 1369376884L, 430697050L, 1699587749L, -1503628097L, 1567s [00:52:47.053] 856180550L, -242424368L, -2127251469L, 505777937L, 1567s [00:52:47.053] 257347392L, -856180962L, 886024169L, -1464480485L, 1567s [00:52:47.053] -1512233174L, -1985955764L, -425390065L, 1567s [00:52:47.053] -589669563L, 381897980L, -790840494L, 1136483533L, 1567s [00:52:47.053] -1535370105L, -607934610L, 1641470280L, -1050403509L, 1567s [00:52:47.053] 1965932713L, 362996216L, 1596838182L, -1829498303L, 1567s [00:52:47.053] -1824465965L, 1872669058L, -417374796L, -1713346249L, 1567s [00:52:47.053] 1818328109L, -1284085436L, -1981489558L, 1567s [00:52:47.053] 1940543701L, 1673049711L, -1514495114L, 467096736L, 1567s [00:52:47.053] 943410531L, -1431020031L, 1115626864L, 965475598L, 1567s [00:52:47.053] -1718567047L, -793788661L, -1133789126L, 1567s [00:52:47.053] -80588996L, 2018258047L, 1866186709L, 42791404L, 1567s [00:52:47.053] -1823521982L, -1345991523L, -1672661737L, 1567s [00:52:47.053] -180777858L, -452713416L, 1448313627L, -1459492743L, 1567s [00:52:47.053] -600706872L, -909649674L, -2081822415L, -1697455773L, 1567s [00:52:47.053] 1517613874L, -820020092L, 188336327L, -1149897827L, 1567s [00:52:47.053] -475203820L, -368005702L, 204442629L, 437854687L, 1567s [00:52:47.053] 1163191398L, -760699920L, 104455443L, 819708593L, 1567s [00:52:47.053] 1129180512L, 48636670L, 1066049161L, 398150075L, 1567s [00:52:47.053] -852036726L, -906028436L, -1265740817L, -1824646107L, 1567s [00:52:47.053] -2126068516L, 1815435954L, -146408019L, -860012185L, 1567s [00:52:47.053] -682500466L, 1443186536L, 1789394795L, -1078204151L, 1567s [00:52:47.053] 809467800L, 1514112710L, -1097673695L, 919601331L, 1567s [00:52:47.053] -331916766L, 795008020L, 1042337943L, -371219827L, 1567s [00:52:47.053] 1558967204L, 1563528586L, -2133607947L, -1904454577L, 1567s [00:52:47.053] -264006826L, 770017792L, 153477955L, 1189667553L, 1567s [00:52:47.053] -363253680L, 1882362030L, 967246937L, -793119637L, 1567s [00:52:47.053] -1401964070L, 2129232540L, -542810977L, -1277899019L, 1567s [00:52:47.053] -377097332L, -406748574L, -1722157507L, -1577740105L, 1567s [00:52:47.053] -455170210L, 372239000L, -1535936005L, -1332632679L, 1567s [00:52:47.053] -1623884760L, -359633706L, 935827793L, 1357445123L, 1567s [00:52:47.053] 997040018L, -1506538204L, -147930137L, -166569923L, 1567s [00:52:47.053] -2103753036L, 1366641946L, 30482021L, 1876964095L, 1567s [00:52:47.053] 2008557446L, 657856784L, -103814733L, 774877777L, 1567s [00:52:47.053] -486350336L, -555057442L, -1821756119L, -963495717L, 1567s [00:52:47.053] 853311466L, 1671241612L, -942337841L, 409538693L, 1567s [00:52:47.053] 1992831804L, 489867794L, 357105933L, -1611412921L, 1567s [00:52:47.053] -1119334354L, -1521015416L, -2041922421L, 1567s [00:52:47.053] 2048874089L, -700216776L, 1651628774L, -10471807L, 1567s [00:52:47.053] 736942611L, 380607938L, -1742088588L, 1124231287L, 1567s [00:52:47.053] 1232111981L, -1801753084L, -1608606422L, 1567s [00:52:47.053] -1172096363L, 1420874031L, -1210473418L, 1567s [00:52:47.053] -18317216L, -571709789L, 1107403201L, 1952554416L, 1567s [00:52:47.053] 1991660750L, -442973639L, 581522507L, -430787078L, 1567s [00:52:47.053] 1105375484L, -1481218753L, -748152299L, -641535700L, 1567s [00:52:47.053] 679371266L, -591318819L, -104578089L, -172818754L, 1567s [00:52:47.053] -1321694984L, -98191653L, 1709083961L, -344680312L, 1567s [00:52:47.053] -159571914L, 581309553L, -63938909L, 76420082L, 1567s [00:52:47.053] 951019332L, -1797740537L, 1291470301L, -2079866156L, 1567s [00:52:47.053] -332493318L, -1978392251L, -1691039632L, 1567s [00:52:47.053] 388791868L, -1101109484L, -1365177662L, 321737440L, 1567s [00:52:47.053] 1812890748L, -133313328L, -1252731998L, 2044530216L, 1567s [00:52:47.053] 1263927564L, 325388220L, 520794418L, 1449646272L, 1567s [00:52:47.053] 87560756L, -87565624L, 426345146L, -699970416L, 1567s [00:52:47.053] 240322284L, -1074080172L, -1536268654L, 1338615584L, 1567s [00:52:47.053] 478476236L, -1933154080L, -192786750L, 1559942184L, 1567s [00:52:47.053] -1178330196L, -687617348L, -1701912078L, 1567s [00:52:47.053] 352314928L, -999229532L, -2052800072L, -1913644198L, 1567s [00:52:47.053] -1345416048L, 1816730492L, -1570431212L, 1567s [00:52:47.053] -269427390L, -2122969344L, -520963140L, 1398087504L, 1567s [00:52:47.053] 264692002L, -1682658744L, -1422452724L, -1601893284L, 1567s [00:52:47.053] -66383406L, 1443075584L, -456249004L, 943694056L, 1567s [00:52:47.053] -1493184262L, -1943836976L, -590788308L, 1567s [00:52:47.053] -405505804L, -1796837998L, 1991543136L, 1170376716L, 1567s [00:52:47.053] 1707420384L, 1899700834L, -1643595096L, 47299148L, 1567s [00:52:47.053] 1274857340L, -1205842638L, -1938479504L, 1567s [00:52:47.053] -1773978812L, 532695000L, 1306451834L, 258403888L, 1567s [00:52:47.053] -284747844L, -1780705708L, 1621936194L, 1129070752L, 1567s [00:52:47.053] 540946108L, -294270512L, -1426480286L, -356302104L, 1567s [00:52:47.053] 349847756L, 1849803260L, -1299125774L, 511654528L, 1567s [00:52:47.053] -1259964940L, -1879857528L, 535666490L, -2020097200L, 1567s [00:52:47.053] -1460751252L, 1201879444L, -1459788718L, 1567s [00:52:47.053] 447195616L, -730891060L, -1875530592L, -2146183806L, 1567s [00:52:47.053] 193274088L, -1224605972L, 1616153916L, -1896973198L, 1567s [00:52:47.053] -420945808L, -1997735900L, -1838404552L, 1567s [00:52:47.053] -413698278L, 1984019664L, -1760209092L, -1288743020L, 1567s [00:52:47.053] 392579970L, -1382567488L, -1295004100L, -33348208L, 1567s [00:52:47.053] 1536615970L, -428761848L, 643368588L, -1596336356L, 1567s [00:52:47.053] 1797431442L, 352422272L, -1043800556L, 60591912L, 1567s [00:52:47.053] -1115663814L, 1043682768L, 521144684L, 4793268L, 1567s [00:52:47.053] -1924265966L, 978890208L, 370048972L, -1607474976L, 1567s [00:52:47.053] -1443637214L, -632405720L, 691912204L, 166321980L, 1567s [00:52:47.053] 942193650L, 751741680L, 689743428L, -18455976L, 1567s [00:52:47.053] -1946329286L, -1619184144L, 239341244L, 371382548L, 1567s [00:52:47.053] -2069808446L, 154176608L, 385987452L, -385611824L, 1567s [00:52:47.053] 1967391010L, 2140654248L, 1720087436L, -1591007044L, 1567s [00:52:47.053] -1612486862L, 1295747648L, 1726784692L, 597326408L, 1567s [00:52:47.053] -973152838L, 628505104L, -1089631508L, 3230036L, 1567s [00:52:47.053] -593837806L, 244006304L, 1357912780L, 1839234656L, 1567s [00:52:47.053] -1357570110L, 1896595240L, -2066952276L, 1567s [00:52:47.053] -1724304580L, 986188146L, -1200604368L, -279100124L, 1567s [00:52:47.053] 131128120L, -1088465190L, 596533136L, 170602236L, 1567s [00:52:47.053] -1051262060L, 215660610L, -686217984L, 444449852L, 1567s [00:52:47.053] 769655120L, 236357794L, 181393736L, -13334772L, 1567s [00:52:47.053] 644690652L, -1969263278L, -2107982720L, 1429553236L, 1567s [00:52:47.053] 794236904L, 1997299962L, -458224816L, 904978220L, 1567s [00:52:47.053] -537093772L, -842839150L, 1828989024L, -679303796L, 1567s [00:52:47.053] 1396292448L, 76319202L, 1896098728L, 418430156L, 1567s [00:52:47.053] 2005956604L, 1370351026L, -1178923536L, -1154073660L, 1567s [00:52:47.053] -1218863784L, 89928058L, 816597936L, -1141767748L, 1567s [00:52:47.053] 1579714644L, 1343385538L, 371259424L, -245180228L, 1567s [00:52:47.053] 365724240L, 1606388706L, -823678872L, 1281309772L, 1567s [00:52:47.053] 1395210492L, 1217887218L, 1420531968L, 1349501300L, 1567s [00:52:47.053] 271647752L, -69959750L, 360452560L, 1565334508L, 1567s [00:52:47.053] 1956526484L, -930709038L, 1961808224L, -1745916084L, 1567s [00:52:47.053] 443656480L, 1990137730L, 694374120L, -1050566420L, 1567s [00:52:47.053] -1365842884L, -438961294L, -1851472272L, 1567s [00:52:47.053] 614534180L, 1401930552L, 3652762L, 1928284880L, 1567s [00:52:47.053] -1637703492L, 26107540L, -132725907L, -371944998L, 1567s [00:52:47.053] -1311388776L, 8516097L, 741008307L, -1149566252L, 1567s [00:52:47.053] -1802640414L, 2019636855L, 1587818433L, -151040698L, 1567s [00:52:47.053] 1598381188L, -205462987L, 1911327L, -1382519432L, 1567s [00:52:47.053] -594809770L, -2146766621L, -2013964635L, 1567s [00:52:47.053] -965534910L, -2077626064L, 1964788057L, 1821395659L, 1567s [00:52:47.053] -1953549508L, -719348886L, 1442511263L, 1969287209L, 1567s [00:52:47.053] 1754221246L, -442299476L, 1981692157L, 113456199L, 1567s [00:52:47.053] 1587794736L, -1811033010L, 1149417595L, -1760887843L, 1567s [00:52:47.053] -1426021878L, -1285634264L, 1507547537L, 1567s [00:52:47.053] -1114120317L, 1897370756L, 1142575794L, -375814649L, 1567s [00:52:47.053] -1661041071L, 881081814L, -548925260L, 2073840837L, 1567s [00:52:47.053] 1156484623L, 2011334280L, 1107815334L, 969024339L, 1567s [00:52:47.053] -55972683L, 2006780434L, -1486403616L, 1698650697L, 1567s [00:52:47.053] 1813794939L, -1717763764L, 1268815066L, -1200630577L, 1567s [00:52:47.053] -773717863L, -12215122L, 1354639804L, 1213207085L, 1567s [00:52:47.053] -978295337L, 340143136L, 485429630L, -568148149L, 1567s [00:52:47.053] 1257440589L, 930106234L, -883274312L, -1632538783L, 1567s [00:52:47.053] 894748435L, -1592959180L, -596177598L, 120963415L, 1567s [00:52:47.053] -1174532959L, -561474202L, 1438545764L, 1429911189L, 1567s [00:52:47.053] 1075965887L, 367866712L, -892333706L, -485158013L, 1567s [00:52:47.053] -682634811L, 963344098L, 2110199632L, 1990767225L, 1567s [00:52:47.053] 1348335019L, 269581084L, -2040640438L, 1453561919L, 1567s [00:52:47.053] 853952649L, 1195494558L, 1614051660L, 2040242461L, 1567s [00:52:47.053] -1604604761L, 1421229008L, -1268333714L, 1567s [00:52:47.053] 174113307L, 2044969853L, 190112106L, -998776824L, 1567s [00:52:47.053] -2070476623L, -2099222749L, 1141171236L, 1567s [00:52:47.053] -146426158L, -1797385433L, -1129376399L, 1567s [00:52:47.053] -1496589386L, -419561644L, -613549595L, 1243456495L, 1567s [00:52:47.053] 451212072L, 1923543942L, 1146113971L, 93579029L, 1567s [00:52:47.053] -397504142L, 597218752L, 459048489L, 1447221915L, 1567s [00:52:47.053] -272948372L, -373834886L, 934888623L, -2099351623L, 1567s [00:52:47.053] -1672042034L, 193924380L, -704518003L, 781993207L, 1567s [00:52:47.053] -258875392L, -1853783458L, 1315003691L, -41214419L, 1567s [00:52:47.053] -59447654L, 1203745368L, 426003905L, 452670067L, 1567s [00:52:47.053] -1092079724L, -1765622238L, -1882554057L, 1567s [00:52:47.053] 1278087169L, -1994822394L, -124954300L, 1994460277L, 1567s [00:52:47.053] 1816829407L, -1568282312L, 1563616022L, 1255996195L, 1567s [00:52:47.053] 1702121701L, 1784032514L, 1842995056L, 748060441L, 1567s [00:52:47.053] 1432229643L, -1905232900L, 2016890922L, 1403944031L, 1567s [00:52:47.053] 351712233L, 1338932478L, -1359366932L, -803018691L, 1567s [00:52:47.053] -1551885305L, 248629232L, 1839395726L, 1411789243L, 1567s [00:52:47.053] 840085405L, -1849000630L, -669518488L, -1453417647L, 1567s [00:52:47.053] -1527179197L, -377159356L, 1674525170L, -313742393L, 1567s [00:52:47.053] 865377681L, -1127426242L), envir = base::globalenv(), 1567s [00:52:47.053] inherits = FALSE) 1567s [00:52:47.053] NULL 1567s [00:52:47.053] } 1567s [00:52:47.053] options(future.plan = NULL) 1567s [00:52:47.053] if (is.na(NA_character_)) 1567s [00:52:47.053] Sys.unsetenv("R_FUTURE_PLAN") 1567s [00:52:47.053] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1567s [00:52:47.053] future::plan(list(function (..., workers = availableCores(), 1567s [00:52:47.053] lazy = FALSE, rscript_libs = .libPaths(), 1567s [00:52:47.053] envir = parent.frame()) 1567s [00:52:47.053] { 1567s [00:52:47.053] if (is.function(workers)) 1567s [00:52:47.053] workers <- workers() 1567s [00:52:47.053] workers <- structure(as.integer(workers), 1567s [00:52:47.053] class = class(workers)) 1567s [00:52:47.053] stop_if_not(length(workers) == 1, is.finite(workers), 1567s [00:52:47.053] workers >= 1) 1567s [00:52:47.053] if (workers == 1L && !inherits(workers, "AsIs")) { 1567s [00:52:47.053] return(sequential(..., lazy = TRUE, envir = envir)) 1567s [00:52:47.053] } 1567s [00:52:47.053] future <- MultisessionFuture(..., workers = workers, 1567s [00:52:47.053] lazy = lazy, rscript_libs = rscript_libs, 1567s [00:52:47.053] envir = envir) 1567s [00:52:47.053] if (!future$lazy) 1567s [00:52:47.053] future <- run(future) 1567s [00:52:47.053] invisible(future) 1567s [00:52:47.053] }), .cleanup = FALSE, .init = FALSE) 1567s [00:52:47.053] } 1567s [00:52:47.053] } 1567s [00:52:47.053] } 1567s [00:52:47.053] }) 1567s [00:52:47.053] if (TRUE) { 1567s [00:52:47.053] base::sink(type = "output", split = FALSE) 1567s [00:52:47.053] if (TRUE) { 1567s [00:52:47.053] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1567s [00:52:47.053] } 1567s [00:52:47.053] else { 1567s [00:52:47.053] ...future.result["stdout"] <- base::list(NULL) 1567s [00:52:47.053] } 1567s [00:52:47.053] base::close(...future.stdout) 1567s [00:52:47.053] ...future.stdout <- NULL 1567s [00:52:47.053] } 1567s [00:52:47.053] ...future.result$conditions <- ...future.conditions 1567s [00:52:47.053] ...future.result$finished <- base::Sys.time() 1567s [00:52:47.053] ...future.result 1567s [00:52:47.053] } 1567s [00:52:47.061] plan(): Setting new future strategy stack: 1567s [00:52:47.061] List of future strategies: 1567s [00:52:47.061] 1. sequential: 1567s [00:52:47.061] - args: function (..., envir = parent.frame()) 1567s [00:52:47.061] - tweaked: FALSE 1567s [00:52:47.061] - call: NULL 1567s [00:52:47.062] plan(): nbrOfWorkers() = 1 1567s [00:52:47.062] plan(): Setting new future strategy stack: 1567s [00:52:47.062] List of future strategies: 1567s [00:52:47.062] 1. multisession: 1567s [00:52:47.062] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1567s [00:52:47.062] - tweaked: FALSE 1567s [00:52:47.062] - call: plan(strategy) 1567s [00:52:47.066] plan(): nbrOfWorkers() = 1 1567s [00:52:47.066] SequentialFuture started (and completed) 1567s [00:52:47.067] plan(): plan_init() of ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ ... DONE 1567s [00:52:47.070] plan(): nbrOfWorkers() = 1 1567s [00:52:47.070] future_lapply() ... 1567s [00:52:47.071] Generating random seeds ... 1567s [00:52:47.071] Generating random seed streams for 5 elements ... 1567s [00:52:47.071] Generating random seed streams for 5 elements ... DONE 1567s [00:52:47.071] Generating random seeds ... DONE 1567s [00:52:47.071] Will set RNG state on exit: 10403, 17, 133210212, 1945833034, 115858357, -364452081, -390319082, 926195392, 2057013379, -803887967, -1078998384, 705296750, -1682614503, 830917547, -331376230, 1352842588, 1960957023, 1997081653, 374446028, 1510359842, 1146109309, -1295266185, -1545472098, 1268700760, 1627111355, -855092903, -215790872, -1958931690, 1906054289, -782874301, -399096750, -1740777756, 1763676455, -832683651, 1369376884, 430697050, 1699587749, -1503628097, 856180550, -242424368, -2127251469, 505777937, 257347392, -856180962, 886024169, -1464480485, -1512233174, -1985955764, -425390065, -589669563, 381897980, -790840494, 1136483533, -1535370105, -607934610, 1641470280, -1050403509, 1965932713, 362996216, 1596838182, -1829498303, -1824465965, 1872669058, -417374796, -1713346249, 1818328109, -1284085436, -1981489558, 1940543701, 1673049711, -1514495114, 467096736, 943410531, -1431020031, 1115626864, 965475598, -1718567047, -793788661, -1133789126, -80588996, 2018258047, 1866186709, 42791404, -1823521982, -1345991523, -1672661737, -180777858, -452713416, 1448313627, -1459492743, -600706872, -909649674, -2081822415, -1697455773, 1517613874, -820020092, 188336327, -1149897827, -475203820, -368005702, 204442629, 437854687, 1163191398, -760699920, 104455443, 819708593, 1129180512, 48636670, 1066049161, 398150075, -852036726, -906028436, -1265740817, -1824646107, -2126068516, 1815435954, -146408019, -860012185, -682500466, 1443186536, 1789394795, -1078204151, 809467800, 1514112710, -1097673695, 919601331, -331916766, 795008020, 1042337943, -371219827, 1558967204, 1563528586, -2133607947, -1904454577, -264006826, 770017792, 153477955, 1189667553, -363253680, 1882362030, 967246937, -793119637, -1401964070, 2129232540, -542810977, -1277899019, -377097332, -406748574, -1722157507, -1577740105, -455170210, 372239000, -1535936005, -1332632679, -1623884760, -359633706, 935827793, 1357445123, 997040018, -1506538204, -147930137, -166569923, -2103753036, 1366641946, 30482021, 1876964095, 2008557446, 657856784, -103814733, 774877777, -486350336, -555057442, -1821756119, -963495717, 853311466, 1671241612, -942337841, 409538693, 1992831804, 489867794, 357105933, -1611412921, -1119334354, -1521015416, -2041922421, 2048874089, -700216776, 1651628774, -10471807, 736942611, 380607938, -1742088588, 1124231287, 1232111981, -1801753084, -1608606422, -1172096363, 1420874031, -1210473418, -18317216, -571709789, 1107403201, 1952554416, 1991660750, -442973639, 581522507, -430787078, 1105375484, -1481218753, -748152299, -641535700, 679371266, -591318819, -104578089, -172818754, -1321694984, -98191653, 1709083961, -344680312, -159571914, 581309553, -63938909, 76420082, 951019332, -1797740537, 1291470301, -2079866156, -332493318, -1978392251, -1691039632, 388791868, -1101109484, -1365177662, 321737440, 1812890748, -133313328, -1252731998, 2044530216, 1263927564, 325388220, 520794418, 1449646272, 87560756, -87565624, 426345146, -699970416, 240322284, -1074080172, -1536268654, 1338615584, 478476236, -1933154080, -192786750, 1559942184, -1178330196, -687617348, -1701912078, 352314928, -999229532, -2052800072, -1913644198, -1345416048, 1816730492, -1570431212, -269427390, -2122969344, -520963140, 1398087504, 264692002, -1682658744, -1422452724, -1601893284, -66383406, 1443075584, -456249004, 943694056, -1493184262, -1943836976, -590788308, -405505804, -1796837998, 1991543136, 1170376716, 1707420384, 1899700834, -1643595096, 47299148, 1274857340, -1205842638, -1938479504, -1773978812, 532695000, 1306451834, 258403888, -284747844, -1780705708, 1621936194, 1129070752, 540946108, -294270512, -1426480286, -356302104, 349847756, 1849803260, -1299125774, 511654528, -1259964940, -1879857528, 535666490, -2020097200, -1460751252, 1201879444, -1459788718, 447195616, -730891060, -1875530592, -2146183806, 193274088, -1224605972, 1616153916, -1896973198, -420945808, -1997735900, -1838404552, -413698278, 1984019664, -1760209092, -1288743020, 392579970, -1382567488, -1295004100, -33348208, 1536615970, -428761848, 643368588, -1596336356, 1797431442, 352422272, -1043800556, 60591912, -1115663814, 1043682768, 521144684, 4793268, -1924265966, 978890208, 370048972, -1607474976, -1443637214, -632405720, 691912204, 166321980, 942193650, 751741680, 689743428, -18455976, -1946329286, -1619184144, 239341244, 371382548, -2069808446, 154176608, 385987452, -385611824, 1967391010, 2140654248, 1720087436, -1591007044, -1612486862, 1295747648, 1726784692, 597326408, -973152838, 628505104, -1089631508, 3230036, -593837806, 244006304, 1357912780, 1839234656, -1357570110, 1896595240, -2066952276, -1724304580, 986188146, -1200604368, -279100124, 131128120, -1088465190, 596533136, 170602236, -1051262060, 215660610, -686217984, 444449852, 769655120, 236357794, 181393736, -13334772, 644690652, -1969263278, -2107982720, 1429553236, 794236904, 1997299962, -458224816, 904978220, -537093772, -842839150, 1828989024, -679303796, 1396292448, 76319202, 1896098728, 418430156, 2005956604, 1370351026, -1178923536, -1154073660, -1218863784, 89928058, 816597936, -1141767748, 1579714644, 1343385538, 371259424, -245180228, 365724240, 1606388706, -823678872, 1281309772, 1395210492, 1217887218, 1420531968, 1349501300, 271647752, -69959750, 360452560, 1565334508, 1956526484, -930709038, 1961808224, -1745916084, 443656480, 1990137730, 694374120, -1050566420, -1365842884, -438961294, -1851472272, 614534180, 1401930552, 3652762, 1928284880, -1637703492, 26107540, -132725907, -371944998, -1311388776, 8516097, 741008307, -1149566252, -1802640414, 2019636855, 1587818433, -151040698, 1598381188, -205462987, 1911327, -1382519432, -594809770, -2146766621, -2013964635, -965534910, -2077626064, 1964788057, 1821395659, -1953549508, -719348886, 1442511263, 1969287209, 1754221246, -442299476, 1981692157, 113456199, 1587794736, -1811033010, 1149417595, -1760887843, -1426021878, -1285634264, 1507547537, -1114120317, 1897370756, 1142575794, -375814649, -1661041071, 881081814, -548925260, 2073840837, 1156484623, 2011334280, 1107815334, 969024339, -55972683, 2006780434, -1486403616, 1698650697, 1813794939, -1717763764, 1268815066, -1200630577, -773717863, -12215122, 1354639804, 1213207085, -978295337, 340143136, 485429630, -568148149, 1257440589, 930106234, -883274312, -1632538783, 894748435, -1592959180, -596177598, 120963415, -1174532959, -561474202, 1438545764, 1429911189, 1075965887, 367866712, -892333706, -485158013, -682634811, 963344098, 2110199632, 1990767225, 1348335019, 269581084, -2040640438, 1453561919, 853952649, 1195494558, 1614051660, 2040242461, -1604604761, 1421229008, -1268333714, 174113307, 2044969853, 190112106, -998776824, -2070476623, -2099222749, 1141171236, -146426158, -1797385433, -1129376399, -1496589386, -419561644, -613549595, 1243456495, 451212072, 1923543942, 1146113971, 93579029, -397504142, 597218752, 459048489, 1447221915, -272948372, -373834886, 934888623, -2099351623, -1672042034, 193924380, -704518003, 781993207, -258875392, -1853783458, 1315003691, -41214419, -59447654, 1203745368, 426003905, 452670067, -1092079724, -1765622238, -1882554057, 1278087169, -1994822394, -124954300, 1994460277, 1816829407, -1568282312, 1563616022, 1255996195, 1702121701, 1784032514, 1842995056, 748060441, 1432229643, -1905232900, 2016890922, 1403944031, 351712233, 1338932478, -1359366932, -803018691, -1551885305, 248629232, 1839395726, 1411789243, 840085405, -1849000630, -669518488, -1453417647, -1527179197, -377159356, 1674525170, -313742393, 865377681, -1127426242 1567s [00:52:47.077] Number of chunks: 1 1567s [00:52:47.077] getGlobalsAndPackagesXApply() ... 1567s [00:52:47.077] - future.globals: TRUE 1567s [00:52:47.078] getGlobalsAndPackages() ... 1567s [00:52:47.078] Searching for globals... 1567s [00:52:47.079] - globals found: [2] ‘FUN’, ‘sample’ 1567s [00:52:47.079] Searching for globals ... DONE 1567s [00:52:47.080] Resolving globals: FALSE 1567s [00:52:47.080] The total size of the 1 globals is 616 bytes (616 bytes) 1567s [00:52:47.081] The total size of the 1 globals exported for future expression (‘FUN()’) is 616 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (616 bytes of class ‘function’) 1567s [00:52:47.081] - globals: [1] ‘FUN’ 1567s [00:52:47.082] 1567s [00:52:47.082] getGlobalsAndPackages() ... DONE 1567s [00:52:47.082] - globals found/used: [n=1] ‘FUN’ 1567s [00:52:47.083] - needed namespaces: [n=0] 1567s [00:52:47.083] Finding globals ... DONE 1567s [00:52:47.084] - use_args: TRUE 1567s [00:52:47.084] - Getting '...' globals ... 1567s [00:52:47.085] resolve() on list ... 1567s [00:52:47.085] recursive: 0 1567s [00:52:47.086] length: 1 1567s [00:52:47.086] elements: ‘...’ 1567s [00:52:47.087] length: 0 (resolved future 1) 1567s [00:52:47.087] resolve() on list ... DONE 1567s [00:52:47.087] - '...' content: [n=0] 1567s [00:52:47.088] List of 1 1567s [00:52:47.088] $ ...: list() 1567s [00:52:47.088] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1567s [00:52:47.088] - attr(*, "where")=List of 1 1567s [00:52:47.088] ..$ ...: 1567s [00:52:47.088] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1567s [00:52:47.088] - attr(*, "resolved")= logi TRUE 1567s [00:52:47.088] - attr(*, "total_size")= num NA 1567s [00:52:47.095] - Getting '...' globals ... DONE 1567s [00:52:47.095] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1567s [00:52:47.096] List of 2 1567s [00:52:47.096] $ ...future.FUN:function (...) 1567s [00:52:47.096] $ ... : list() 1567s [00:52:47.096] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1567s [00:52:47.096] - attr(*, "where")=List of 2 1567s [00:52:47.096] ..$ ...future.FUN: 1567s [00:52:47.096] ..$ ... : 1567s [00:52:47.096] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1567s [00:52:47.096] - attr(*, "resolved")= logi FALSE 1567s [00:52:47.096] - attr(*, "total_size")= num 616 1567s [00:52:47.104] Packages to be attached in all futures: [n=0] 1567s [00:52:47.105] getGlobalsAndPackagesXApply() ... DONE 1567s [00:52:47.105] Number of futures (= number of chunks): 1 1567s [00:52:47.105] Launching 1 futures (chunks) ... 1567s [00:52:47.105] Chunk #1 of 1 ... 1567s [00:52:47.105] - Finding globals in 'X' for chunk #1 ... 1567s [00:52:47.105] getGlobalsAndPackages() ... 1567s [00:52:47.105] Searching for globals... 1567s [00:52:47.106] 1567s [00:52:47.106] Searching for globals ... DONE 1567s [00:52:47.107] - globals: [0] 1567s [00:52:47.107] getGlobalsAndPackages() ... DONE 1567s [00:52:47.110] + additional globals found: [n=0] 1567s [00:52:47.111] + additional namespaces needed: [n=0] 1567s [00:52:47.111] - Finding globals in 'X' for chunk #1 ... DONE 1567s [00:52:47.111] - seeds: [5] 1567s [00:52:47.111] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1567s [00:52:47.112] getGlobalsAndPackages() ... 1567s [00:52:47.112] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1567s [00:52:47.112] Resolving globals: FALSE 1567s [00:52:47.113] Tweak future expression to call with '...' arguments ... 1567s [00:52:47.113] { 1567s [00:52:47.113] do.call(function(...) { 1567s [00:52:47.113] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1567s [00:52:47.113] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1567s [00:52:47.113] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1567s [00:52:47.113] on.exit(options(oopts), add = TRUE) 1567s [00:52:47.113] } 1567s [00:52:47.113] { 1567s [00:52:47.113] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1567s [00:52:47.113] ...future.X_jj <- ...future.elements_ii[[jj]] 1567s [00:52:47.113] assign(".Random.seed", ...future.seeds_ii[[jj]], 1567s [00:52:47.113] envir = globalenv(), inherits = FALSE) 1567s [00:52:47.113] ...future.FUN(...future.X_jj, ...) 1567s [00:52:47.113] }) 1567s [00:52:47.113] } 1567s [00:52:47.113] }, args = future.call.arguments) 1567s [00:52:47.113] } 1567s [00:52:47.113] Tweak future expression to call with '...' arguments ... DONE 1567s [00:52:47.114] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1567s [00:52:47.114] 1567s [00:52:47.115] getGlobalsAndPackages() ... DONE 1567s [00:52:47.115] run() for ‘Future’ ... 1567s [00:52:47.115] - state: ‘created’ 1567s [00:52:47.116] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1567s [00:52:47.121] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1567s [00:52:47.121] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1567s [00:52:47.121] - Field: ‘label’ 1567s [00:52:47.121] - Field: ‘local’ 1567s [00:52:47.122] - Field: ‘owner’ 1567s [00:52:47.122] - Field: ‘envir’ 1567s [00:52:47.122] - Field: ‘packages’ 1567s [00:52:47.123] - Field: ‘gc’ 1567s [00:52:47.123] - Field: ‘conditions’ 1567s [00:52:47.123] - Field: ‘expr’ 1567s [00:52:47.123] - Field: ‘uuid’ 1567s [00:52:47.124] - Field: ‘seed’ 1567s [00:52:47.124] - Field: ‘version’ 1567s [00:52:47.124] - Field: ‘result’ 1567s [00:52:47.124] - Field: ‘asynchronous’ 1567s [00:52:47.124] - Field: ‘calls’ 1567s [00:52:47.124] - Field: ‘globals’ 1567s [00:52:47.125] - Field: ‘stdout’ 1567s [00:52:47.125] - Field: ‘earlySignal’ 1567s [00:52:47.125] - Field: ‘lazy’ 1567s [00:52:47.125] - Field: ‘state’ 1567s [00:52:47.126] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1567s [00:52:47.126] - Launch lazy future ... 1567s [00:52:47.126] Packages needed by the future expression (n = 0): 1567s [00:52:47.126] Packages needed by future strategies (n = 0): 1567s [00:52:47.127] { 1567s [00:52:47.127] { 1567s [00:52:47.127] { 1567s [00:52:47.127] ...future.startTime <- base::Sys.time() 1567s [00:52:47.127] { 1567s [00:52:47.127] { 1567s [00:52:47.127] { 1567s [00:52:47.127] base::local({ 1567s [00:52:47.127] has_future <- base::requireNamespace("future", 1567s [00:52:47.127] quietly = TRUE) 1567s [00:52:47.127] if (has_future) { 1567s [00:52:47.127] ns <- base::getNamespace("future") 1567s [00:52:47.127] version <- ns[[".package"]][["version"]] 1567s [00:52:47.127] if (is.null(version)) 1567s [00:52:47.127] version <- utils::packageVersion("future") 1567s [00:52:47.127] } 1567s [00:52:47.127] else { 1567s [00:52:47.127] version <- NULL 1567s [00:52:47.127] } 1567s [00:52:47.127] if (!has_future || version < "1.8.0") { 1567s [00:52:47.127] info <- base::c(r_version = base::gsub("R version ", 1567s [00:52:47.127] "", base::R.version$version.string), 1567s [00:52:47.127] platform = base::sprintf("%s (%s-bit)", 1567s [00:52:47.127] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1567s [00:52:47.127] os = base::paste(base::Sys.info()[base::c("sysname", 1567s [00:52:47.127] "release", "version")], collapse = " "), 1567s [00:52:47.127] hostname = base::Sys.info()[["nodename"]]) 1567s [00:52:47.127] info <- base::sprintf("%s: %s", base::names(info), 1567s [00:52:47.127] info) 1567s [00:52:47.127] info <- base::paste(info, collapse = "; ") 1567s [00:52:47.127] if (!has_future) { 1567s [00:52:47.127] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1567s [00:52:47.127] info) 1567s [00:52:47.127] } 1567s [00:52:47.127] else { 1567s [00:52:47.127] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1567s [00:52:47.127] info, version) 1567s [00:52:47.127] } 1567s [00:52:47.127] base::stop(msg) 1567s [00:52:47.127] } 1567s [00:52:47.127] }) 1567s [00:52:47.127] } 1567s [00:52:47.127] options(future.plan = NULL) 1567s [00:52:47.127] Sys.unsetenv("R_FUTURE_PLAN") 1567s [00:52:47.127] future::plan("default", .cleanup = FALSE, .init = FALSE) 1567s [00:52:47.127] } 1567s [00:52:47.127] ...future.workdir <- getwd() 1567s [00:52:47.127] } 1567s [00:52:47.127] ...future.oldOptions <- base::as.list(base::.Options) 1567s [00:52:47.127] ...future.oldEnvVars <- base::Sys.getenv() 1567s [00:52:47.127] } 1567s [00:52:47.127] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1567s [00:52:47.127] future.globals.maxSize = NULL, future.globals.method = NULL, 1567s [00:52:47.127] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1567s [00:52:47.127] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1567s [00:52:47.127] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1567s [00:52:47.127] future.stdout.windows.reencode = NULL, width = 80L) 1567s [00:52:47.127] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1567s [00:52:47.127] base::names(...future.oldOptions)) 1567s [00:52:47.127] } 1567s [00:52:47.127] if (FALSE) { 1567s [00:52:47.127] } 1567s [00:52:47.127] else { 1567s [00:52:47.127] if (TRUE) { 1567s [00:52:47.127] ...future.stdout <- base::rawConnection(base::raw(0L), 1567s [00:52:47.127] open = "w") 1567s [00:52:47.127] } 1567s [00:52:47.127] else { 1567s [00:52:47.127] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1567s [00:52:47.127] windows = "NUL", "/dev/null"), open = "w") 1567s [00:52:47.127] } 1567s [00:52:47.127] base::sink(...future.stdout, type = "output", split = FALSE) 1567s [00:52:47.127] base::on.exit(if (!base::is.null(...future.stdout)) { 1567s [00:52:47.127] base::sink(type = "output", split = FALSE) 1567s [00:52:47.127] base::close(...future.stdout) 1567s [00:52:47.127] }, add = TRUE) 1567s [00:52:47.127] } 1567s [00:52:47.127] ...future.frame <- base::sys.nframe() 1567s [00:52:47.127] ...future.conditions <- base::list() 1567s [00:52:47.127] ...future.rng <- base::globalenv()$.Random.seed 1567s [00:52:47.127] if (FALSE) { 1567s [00:52:47.127] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1567s [00:52:47.127] "...future.value", "...future.globalenv.names", ".Random.seed") 1567s [00:52:47.127] } 1567s [00:52:47.127] ...future.result <- base::tryCatch({ 1567s [00:52:47.127] base::withCallingHandlers({ 1567s [00:52:47.127] ...future.value <- base::withVisible(base::local({ 1567s [00:52:47.127] do.call(function(...) { 1567s [00:52:47.127] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1567s [00:52:47.127] if (!identical(...future.globals.maxSize.org, 1567s [00:52:47.127] ...future.globals.maxSize)) { 1567s [00:52:47.127] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1567s [00:52:47.127] on.exit(options(oopts), add = TRUE) 1567s [00:52:47.127] } 1567s [00:52:47.127] { 1567s [00:52:47.127] lapply(seq_along(...future.elements_ii), 1567s [00:52:47.127] FUN = function(jj) { 1567s [00:52:47.127] ...future.X_jj <- ...future.elements_ii[[jj]] 1567s [00:52:47.127] assign(".Random.seed", ...future.seeds_ii[[jj]], 1567s [00:52:47.127] envir = globalenv(), inherits = FALSE) 1567s [00:52:47.127] ...future.FUN(...future.X_jj, ...) 1567s [00:52:47.127] }) 1567s [00:52:47.127] } 1567s [00:52:47.127] }, args = future.call.arguments) 1567s [00:52:47.127] })) 1567s [00:52:47.127] future::FutureResult(value = ...future.value$value, 1567s [00:52:47.127] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1567s [00:52:47.127] ...future.rng), globalenv = if (FALSE) 1567s [00:52:47.127] list(added = base::setdiff(base::names(base::.GlobalEnv), 1567s [00:52:47.127] ...future.globalenv.names)) 1567s [00:52:47.127] else NULL, started = ...future.startTime, version = "1.8") 1567s [00:52:47.127] }, condition = base::local({ 1567s [00:52:47.127] c <- base::c 1567s [00:52:47.127] inherits <- base::inherits 1567s [00:52:47.127] invokeRestart <- base::invokeRestart 1567s [00:52:47.127] length <- base::length 1567s [00:52:47.127] list <- base::list 1567s [00:52:47.127] seq.int <- base::seq.int 1567s [00:52:47.127] signalCondition <- base::signalCondition 1567s [00:52:47.127] sys.calls <- base::sys.calls 1567s [00:52:47.127] `[[` <- base::`[[` 1567s [00:52:47.127] `+` <- base::`+` 1567s [00:52:47.127] `<<-` <- base::`<<-` 1567s [00:52:47.127] sysCalls <- function(calls = sys.calls(), from = 1L) { 1567s [00:52:47.127] calls[seq.int(from = from + 12L, to = length(calls) - 1567s [00:52:47.127] 3L)] 1567s [00:52:47.127] } 1567s [00:52:47.127] function(cond) { 1567s [00:52:47.127] is_error <- inherits(cond, "error") 1567s [00:52:47.127] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1567s [00:52:47.127] NULL) 1567s [00:52:47.127] if (is_error) { 1567s [00:52:47.127] sessionInformation <- function() { 1567s [00:52:47.127] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1567s [00:52:47.127] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1567s [00:52:47.127] search = base::search(), system = base::Sys.info()) 1567s [00:52:47.127] } 1567s [00:52:47.127] ...future.conditions[[length(...future.conditions) + 1567s [00:52:47.127] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1567s [00:52:47.127] cond$call), session = sessionInformation(), 1567s [00:52:47.127] timestamp = base::Sys.time(), signaled = 0L) 1567s [00:52:47.127] signalCondition(cond) 1567s [00:52:47.127] } 1567s [00:52:47.127] else if (!ignore && TRUE && inherits(cond, c("condition", 1567s [00:52:47.127] "immediateCondition"))) { 1567s [00:52:47.127] signal <- TRUE && inherits(cond, "immediateCondition") 1567s [00:52:47.127] ...future.conditions[[length(...future.conditions) + 1567s [00:52:47.127] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1567s [00:52:47.127] if (TRUE && !signal) { 1567s [00:52:47.127] muffleCondition <- function (cond, pattern = "^muffle") 1567s [00:52:47.127] { 1567s [00:52:47.127] inherits <- base::inherits 1567s [00:52:47.127] invokeRestart <- base::invokeRestart 1567s [00:52:47.127] is.null <- base::is.null 1567s [00:52:47.127] muffled <- FALSE 1567s [00:52:47.127] if (inherits(cond, "message")) { 1567s [00:52:47.127] muffled <- grepl(pattern, "muffleMessage") 1567s [00:52:47.127] if (muffled) 1567s [00:52:47.127] invokeRestart("muffleMessage") 1567s [00:52:47.127] } 1567s [00:52:47.127] else if (inherits(cond, "warning")) { 1567s [00:52:47.127] muffled <- grepl(pattern, "muffleWarning") 1567s [00:52:47.127] if (muffled) 1567s [00:52:47.127] invokeRestart("muffleWarning") 1567s [00:52:47.127] } 1567s [00:52:47.127] else if (inherits(cond, "condition")) { 1567s [00:52:47.127] if (!is.null(pattern)) { 1567s [00:52:47.127] computeRestarts <- base::computeRestarts 1567s [00:52:47.127] grepl <- base::grepl 1567s [00:52:47.127] restarts <- computeRestarts(cond) 1567s [00:52:47.127] for (restart in restarts) { 1567s [00:52:47.127] name <- restart$name 1567s [00:52:47.127] if (is.null(name)) 1567s [00:52:47.127] next 1567s [00:52:47.127] if (!grepl(pattern, name)) 1567s [00:52:47.127] next 1567s [00:52:47.127] invokeRestart(restart) 1567s [00:52:47.127] muffled <- TRUE 1567s [00:52:47.127] break 1567s [00:52:47.127] } 1567s [00:52:47.127] } 1567s [00:52:47.127] } 1567s [00:52:47.127] invisible(muffled) 1567s [00:52:47.127] } 1567s [00:52:47.127] muffleCondition(cond, pattern = "^muffle") 1567s [00:52:47.127] } 1567s [00:52:47.127] } 1567s [00:52:47.127] else { 1567s [00:52:47.127] if (TRUE) { 1567s [00:52:47.127] muffleCondition <- function (cond, pattern = "^muffle") 1567s [00:52:47.127] { 1567s [00:52:47.127] inherits <- base::inherits 1567s [00:52:47.127] invokeRestart <- base::invokeRestart 1567s [00:52:47.127] is.null <- base::is.null 1567s [00:52:47.127] muffled <- FALSE 1567s [00:52:47.127] if (inherits(cond, "message")) { 1567s [00:52:47.127] muffled <- grepl(pattern, "muffleMessage") 1567s [00:52:47.127] if (muffled) 1567s [00:52:47.127] invokeRestart("muffleMessage") 1567s [00:52:47.127] } 1567s [00:52:47.127] else if (inherits(cond, "warning")) { 1567s [00:52:47.127] muffled <- grepl(pattern, "muffleWarning") 1567s [00:52:47.127] if (muffled) 1567s [00:52:47.127] invokeRestart("muffleWarning") 1567s [00:52:47.127] } 1567s [00:52:47.127] else if (inherits(cond, "condition")) { 1567s [00:52:47.127] if (!is.null(pattern)) { 1567s [00:52:47.127] computeRestarts <- base::computeRestarts 1567s [00:52:47.127] grepl <- base::grepl 1567s [00:52:47.127] restarts <- computeRestarts(cond) 1567s [00:52:47.127] for (restart in restarts) { 1567s [00:52:47.127] name <- restart$name 1567s [00:52:47.127] if (is.null(name)) 1567s [00:52:47.127] next 1567s [00:52:47.127] if (!grepl(pattern, name)) 1567s [00:52:47.127] next 1567s [00:52:47.127] invokeRestart(restart) 1567s [00:52:47.127] muffled <- TRUE 1567s [00:52:47.127] break 1567s [00:52:47.127] } 1567s [00:52:47.127] } 1567s [00:52:47.127] } 1567s [00:52:47.127] invisible(muffled) 1567s [00:52:47.127] } 1567s [00:52:47.127] muffleCondition(cond, pattern = "^muffle") 1567s [00:52:47.127] } 1567s [00:52:47.127] } 1567s [00:52:47.127] } 1567s [00:52:47.127] })) 1567s [00:52:47.127] }, error = function(ex) { 1567s [00:52:47.127] base::structure(base::list(value = NULL, visible = NULL, 1567s [00:52:47.127] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1567s [00:52:47.127] ...future.rng), started = ...future.startTime, 1567s [00:52:47.127] finished = Sys.time(), session_uuid = NA_character_, 1567s [00:52:47.127] version = "1.8"), class = "FutureResult") 1567s [00:52:47.127] }, finally = { 1567s [00:52:47.127] if (!identical(...future.workdir, getwd())) 1567s [00:52:47.127] setwd(...future.workdir) 1567s [00:52:47.127] { 1567s [00:52:47.127] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1567s [00:52:47.127] ...future.oldOptions$nwarnings <- NULL 1567s [00:52:47.127] } 1567s [00:52:47.127] base::options(...future.oldOptions) 1567s [00:52:47.127] if (.Platform$OS.type == "windows") { 1567s [00:52:47.127] old_names <- names(...future.oldEnvVars) 1567s [00:52:47.127] envs <- base::Sys.getenv() 1567s [00:52:47.127] names <- names(envs) 1567s [00:52:47.127] common <- intersect(names, old_names) 1567s [00:52:47.127] added <- setdiff(names, old_names) 1567s [00:52:47.127] removed <- setdiff(old_names, names) 1567s [00:52:47.127] changed <- common[...future.oldEnvVars[common] != 1567s [00:52:47.127] envs[common]] 1567s [00:52:47.127] NAMES <- toupper(changed) 1567s [00:52:47.127] args <- list() 1567s [00:52:47.127] for (kk in seq_along(NAMES)) { 1567s [00:52:47.127] name <- changed[[kk]] 1567s [00:52:47.127] NAME <- NAMES[[kk]] 1567s [00:52:47.127] if (name != NAME && is.element(NAME, old_names)) 1567s [00:52:47.127] next 1567s [00:52:47.127] args[[name]] <- ...future.oldEnvVars[[name]] 1567s [00:52:47.127] } 1567s [00:52:47.127] NAMES <- toupper(added) 1567s [00:52:47.127] for (kk in seq_along(NAMES)) { 1567s [00:52:47.127] name <- added[[kk]] 1567s [00:52:47.127] NAME <- NAMES[[kk]] 1567s [00:52:47.127] if (name != NAME && is.element(NAME, old_names)) 1567s [00:52:47.127] next 1567s [00:52:47.127] args[[name]] <- "" 1567s [00:52:47.127] } 1567s [00:52:47.127] NAMES <- toupper(removed) 1567s [00:52:47.127] for (kk in seq_along(NAMES)) { 1567s [00:52:47.127] name <- removed[[kk]] 1567s [00:52:47.127] NAME <- NAMES[[kk]] 1567s [00:52:47.127] if (name != NAME && is.element(NAME, old_names)) 1567s [00:52:47.127] next 1567s [00:52:47.127] args[[name]] <- ...future.oldEnvVars[[name]] 1567s [00:52:47.127] } 1567s [00:52:47.127] if (length(args) > 0) 1567s [00:52:47.127] base::do.call(base::Sys.setenv, args = args) 1567s [00:52:47.127] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1567s [00:52:47.127] } 1567s [00:52:47.127] else { 1567s [00:52:47.127] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1567s [00:52:47.127] } 1567s [00:52:47.127] { 1567s [00:52:47.127] if (base::length(...future.futureOptionsAdded) > 1567s [00:52:47.127] 0L) { 1567s [00:52:47.127] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1567s [00:52:47.127] base::names(opts) <- ...future.futureOptionsAdded 1567s [00:52:47.127] base::options(opts) 1567s [00:52:47.127] } 1567s [00:52:47.127] { 1567s [00:52:47.127] { 1567s [00:52:47.127] base::assign(".Random.seed", c(10403L, 17L, 1567s [00:52:47.127] 133210212L, 1945833034L, 115858357L, -364452081L, 1567s [00:52:47.127] -390319082L, 926195392L, 2057013379L, -803887967L, 1567s [00:52:47.127] -1078998384L, 705296750L, -1682614503L, 830917547L, 1567s [00:52:47.127] -331376230L, 1352842588L, 1960957023L, 1997081653L, 1567s [00:52:47.127] 374446028L, 1510359842L, 1146109309L, -1295266185L, 1567s [00:52:47.127] -1545472098L, 1268700760L, 1627111355L, -855092903L, 1567s [00:52:47.127] -215790872L, -1958931690L, 1906054289L, -782874301L, 1567s [00:52:47.127] -399096750L, -1740777756L, 1763676455L, -832683651L, 1567s [00:52:47.127] 1369376884L, 430697050L, 1699587749L, -1503628097L, 1567s [00:52:47.127] 856180550L, -242424368L, -2127251469L, 505777937L, 1567s [00:52:47.127] 257347392L, -856180962L, 886024169L, -1464480485L, 1567s [00:52:47.127] -1512233174L, -1985955764L, -425390065L, 1567s [00:52:47.127] -589669563L, 381897980L, -790840494L, 1136483533L, 1567s [00:52:47.127] -1535370105L, -607934610L, 1641470280L, -1050403509L, 1567s [00:52:47.127] 1965932713L, 362996216L, 1596838182L, -1829498303L, 1567s [00:52:47.127] -1824465965L, 1872669058L, -417374796L, -1713346249L, 1567s [00:52:47.127] 1818328109L, -1284085436L, -1981489558L, 1567s [00:52:47.127] 1940543701L, 1673049711L, -1514495114L, 467096736L, 1567s [00:52:47.127] 943410531L, -1431020031L, 1115626864L, 965475598L, 1567s [00:52:47.127] -1718567047L, -793788661L, -1133789126L, 1567s [00:52:47.127] -80588996L, 2018258047L, 1866186709L, 42791404L, 1567s [00:52:47.127] -1823521982L, -1345991523L, -1672661737L, 1567s [00:52:47.127] -180777858L, -452713416L, 1448313627L, -1459492743L, 1567s [00:52:47.127] -600706872L, -909649674L, -2081822415L, -1697455773L, 1567s [00:52:47.127] 1517613874L, -820020092L, 188336327L, -1149897827L, 1567s [00:52:47.127] -475203820L, -368005702L, 204442629L, 437854687L, 1567s [00:52:47.127] 1163191398L, -760699920L, 104455443L, 819708593L, 1567s [00:52:47.127] 1129180512L, 48636670L, 1066049161L, 398150075L, 1567s [00:52:47.127] -852036726L, -906028436L, -1265740817L, -1824646107L, 1567s [00:52:47.127] -2126068516L, 1815435954L, -146408019L, -860012185L, 1567s [00:52:47.127] -682500466L, 1443186536L, 1789394795L, -1078204151L, 1567s [00:52:47.127] 809467800L, 1514112710L, -1097673695L, 919601331L, 1567s [00:52:47.127] -331916766L, 795008020L, 1042337943L, -371219827L, 1567s [00:52:47.127] 1558967204L, 1563528586L, -2133607947L, -1904454577L, 1567s [00:52:47.127] -264006826L, 770017792L, 153477955L, 1189667553L, 1567s [00:52:47.127] -363253680L, 1882362030L, 967246937L, -793119637L, 1567s [00:52:47.127] -1401964070L, 2129232540L, -542810977L, -1277899019L, 1567s [00:52:47.127] -377097332L, -406748574L, -1722157507L, -1577740105L, 1567s [00:52:47.127] -455170210L, 372239000L, -1535936005L, -1332632679L, 1567s [00:52:47.127] -1623884760L, -359633706L, 935827793L, 1357445123L, 1567s [00:52:47.127] 997040018L, -1506538204L, -147930137L, -166569923L, 1567s [00:52:47.127] -2103753036L, 1366641946L, 30482021L, 1876964095L, 1567s [00:52:47.127] 2008557446L, 657856784L, -103814733L, 774877777L, 1567s [00:52:47.127] -486350336L, -555057442L, -1821756119L, -963495717L, 1567s [00:52:47.127] 853311466L, 1671241612L, -942337841L, 409538693L, 1567s [00:52:47.127] 1992831804L, 489867794L, 357105933L, -1611412921L, 1567s [00:52:47.127] -1119334354L, -1521015416L, -2041922421L, 1567s [00:52:47.127] 2048874089L, -700216776L, 1651628774L, -10471807L, 1567s [00:52:47.127] 736942611L, 380607938L, -1742088588L, 1124231287L, 1567s [00:52:47.127] 1232111981L, -1801753084L, -1608606422L, 1567s [00:52:47.127] -1172096363L, 1420874031L, -1210473418L, 1567s [00:52:47.127] -18317216L, -571709789L, 1107403201L, 1952554416L, 1567s [00:52:47.127] 1991660750L, -442973639L, 581522507L, -430787078L, 1567s [00:52:47.127] 1105375484L, -1481218753L, -748152299L, -641535700L, 1567s [00:52:47.127] 679371266L, -591318819L, -104578089L, -172818754L, 1567s [00:52:47.127] -1321694984L, -98191653L, 1709083961L, -344680312L, 1567s [00:52:47.127] -159571914L, 581309553L, -63938909L, 76420082L, 1567s [00:52:47.127] 951019332L, -1797740537L, 1291470301L, -2079866156L, 1567s [00:52:47.127] -332493318L, -1978392251L, -1691039632L, 1567s [00:52:47.127] 388791868L, -1101109484L, -1365177662L, 321737440L, 1567s [00:52:47.127] 1812890748L, -133313328L, -1252731998L, 2044530216L, 1567s [00:52:47.127] 1263927564L, 325388220L, 520794418L, 1449646272L, 1567s [00:52:47.127] 87560756L, -87565624L, 426345146L, -699970416L, 1567s [00:52:47.127] 240322284L, -1074080172L, -1536268654L, 1338615584L, 1567s [00:52:47.127] 478476236L, -1933154080L, -192786750L, 1559942184L, 1567s [00:52:47.127] -1178330196L, -687617348L, -1701912078L, 1567s [00:52:47.127] 352314928L, -999229532L, -2052800072L, -1913644198L, 1567s [00:52:47.127] -1345416048L, 1816730492L, -1570431212L, 1567s [00:52:47.127] -269427390L, -2122969344L, -520963140L, 1398087504L, 1567s [00:52:47.127] 264692002L, -1682658744L, -1422452724L, -1601893284L, 1567s [00:52:47.127] -66383406L, 1443075584L, -456249004L, 943694056L, 1567s [00:52:47.127] -1493184262L, -1943836976L, -590788308L, 1567s [00:52:47.127] -405505804L, -1796837998L, 1991543136L, 1170376716L, 1567s [00:52:47.127] 1707420384L, 1899700834L, -1643595096L, 47299148L, 1567s [00:52:47.127] 1274857340L, -1205842638L, -1938479504L, 1567s [00:52:47.127] -1773978812L, 532695000L, 1306451834L, 258403888L, 1567s [00:52:47.127] -284747844L, -1780705708L, 1621936194L, 1129070752L, 1567s [00:52:47.127] 540946108L, -294270512L, -1426480286L, -356302104L, 1567s [00:52:47.127] 349847756L, 1849803260L, -1299125774L, 511654528L, 1567s [00:52:47.127] -1259964940L, -1879857528L, 535666490L, -2020097200L, 1567s [00:52:47.127] -1460751252L, 1201879444L, -1459788718L, 1567s [00:52:47.127] 447195616L, -730891060L, -1875530592L, -2146183806L, 1567s [00:52:47.127] 193274088L, -1224605972L, 1616153916L, -1896973198L, 1567s [00:52:47.127] -420945808L, -1997735900L, -1838404552L, 1567s [00:52:47.127] -413698278L, 1984019664L, -1760209092L, -1288743020L, 1567s [00:52:47.127] 392579970L, -1382567488L, -1295004100L, -33348208L, 1567s [00:52:47.127] 1536615970L, -428761848L, 643368588L, -1596336356L, 1567s [00:52:47.127] 1797431442L, 352422272L, -1043800556L, 60591912L, 1567s [00:52:47.127] -1115663814L, 1043682768L, 521144684L, 4793268L, 1567s [00:52:47.127] -1924265966L, 978890208L, 370048972L, -1607474976L, 1567s [00:52:47.127] -1443637214L, -632405720L, 691912204L, 166321980L, 1567s [00:52:47.127] 942193650L, 751741680L, 689743428L, -18455976L, 1567s [00:52:47.127] -1946329286L, -1619184144L, 239341244L, 371382548L, 1567s [00:52:47.127] -2069808446L, 154176608L, 385987452L, -385611824L, 1567s [00:52:47.127] 1967391010L, 2140654248L, 1720087436L, -1591007044L, 1567s [00:52:47.127] -1612486862L, 1295747648L, 1726784692L, 597326408L, 1567s [00:52:47.127] -973152838L, 628505104L, -1089631508L, 3230036L, 1567s [00:52:47.127] -593837806L, 244006304L, 1357912780L, 1839234656L, 1567s [00:52:47.127] -1357570110L, 1896595240L, -2066952276L, 1567s [00:52:47.127] -1724304580L, 986188146L, -1200604368L, -279100124L, 1567s [00:52:47.127] 131128120L, -1088465190L, 596533136L, 170602236L, 1567s [00:52:47.127] -1051262060L, 215660610L, -686217984L, 444449852L, 1567s [00:52:47.127] 769655120L, 236357794L, 181393736L, -13334772L, 1567s [00:52:47.127] 644690652L, -1969263278L, -2107982720L, 1429553236L, 1567s [00:52:47.127] 794236904L, 1997299962L, -458224816L, 904978220L, 1567s [00:52:47.127] -537093772L, -842839150L, 1828989024L, -679303796L, 1567s [00:52:47.127] 1396292448L, 76319202L, 1896098728L, 418430156L, 1567s [00:52:47.127] 2005956604L, 1370351026L, -1178923536L, -1154073660L, 1567s [00:52:47.127] -1218863784L, 89928058L, 816597936L, -1141767748L, 1567s [00:52:47.127] 1579714644L, 1343385538L, 371259424L, -245180228L, 1567s [00:52:47.127] 365724240L, 1606388706L, -823678872L, 1281309772L, 1567s [00:52:47.127] 1395210492L, 1217887218L, 1420531968L, 1349501300L, 1567s [00:52:47.127] 271647752L, -69959750L, 360452560L, 1565334508L, 1567s [00:52:47.127] 1956526484L, -930709038L, 1961808224L, -1745916084L, 1567s [00:52:47.127] 443656480L, 1990137730L, 694374120L, -1050566420L, 1567s [00:52:47.127] -1365842884L, -438961294L, -1851472272L, 1567s [00:52:47.127] 614534180L, 1401930552L, 3652762L, 1928284880L, 1567s [00:52:47.127] -1637703492L, 26107540L, -132725907L, -371944998L, 1567s [00:52:47.127] -1311388776L, 8516097L, 741008307L, -1149566252L, 1567s [00:52:47.127] -1802640414L, 2019636855L, 1587818433L, -151040698L, 1567s [00:52:47.127] 1598381188L, -205462987L, 1911327L, -1382519432L, 1567s [00:52:47.127] -594809770L, -2146766621L, -2013964635L, 1567s [00:52:47.127] -965534910L, -2077626064L, 1964788057L, 1821395659L, 1567s [00:52:47.127] -1953549508L, -719348886L, 1442511263L, 1969287209L, 1567s [00:52:47.127] 1754221246L, -442299476L, 1981692157L, 113456199L, 1567s [00:52:47.127] 1587794736L, -1811033010L, 1149417595L, -1760887843L, 1567s [00:52:47.127] -1426021878L, -1285634264L, 1507547537L, 1567s [00:52:47.127] -1114120317L, 1897370756L, 1142575794L, -375814649L, 1567s [00:52:47.127] -1661041071L, 881081814L, -548925260L, 2073840837L, 1567s [00:52:47.127] 1156484623L, 2011334280L, 1107815334L, 969024339L, 1567s [00:52:47.127] -55972683L, 2006780434L, -1486403616L, 1698650697L, 1567s [00:52:47.127] 1813794939L, -1717763764L, 1268815066L, -1200630577L, 1567s [00:52:47.127] -773717863L, -12215122L, 1354639804L, 1213207085L, 1567s [00:52:47.127] -978295337L, 340143136L, 485429630L, -568148149L, 1567s [00:52:47.127] 1257440589L, 930106234L, -883274312L, -1632538783L, 1567s [00:52:47.127] 894748435L, -1592959180L, -596177598L, 120963415L, 1567s [00:52:47.127] -1174532959L, -561474202L, 1438545764L, 1429911189L, 1567s [00:52:47.127] 1075965887L, 367866712L, -892333706L, -485158013L, 1567s [00:52:47.127] -682634811L, 963344098L, 2110199632L, 1990767225L, 1567s [00:52:47.127] 1348335019L, 269581084L, -2040640438L, 1453561919L, 1567s [00:52:47.127] 853952649L, 1195494558L, 1614051660L, 2040242461L, 1567s [00:52:47.127] -1604604761L, 1421229008L, -1268333714L, 1567s [00:52:47.127] 174113307L, 2044969853L, 190112106L, -998776824L, 1567s [00:52:47.127] -2070476623L, -2099222749L, 1141171236L, 1567s [00:52:47.127] -146426158L, -1797385433L, -1129376399L, 1567s [00:52:47.127] -1496589386L, -419561644L, -613549595L, 1243456495L, 1567s [00:52:47.127] 451212072L, 1923543942L, 1146113971L, 93579029L, 1567s [00:52:47.127] -397504142L, 597218752L, 459048489L, 1447221915L, 1567s [00:52:47.127] -272948372L, -373834886L, 934888623L, -2099351623L, 1567s [00:52:47.127] -1672042034L, 193924380L, -704518003L, 781993207L, 1567s [00:52:47.127] -258875392L, -1853783458L, 1315003691L, -41214419L, 1567s [00:52:47.127] -59447654L, 1203745368L, 426003905L, 452670067L, 1567s [00:52:47.127] -1092079724L, -1765622238L, -1882554057L, 1567s [00:52:47.127] 1278087169L, -1994822394L, -124954300L, 1994460277L, 1567s [00:52:47.127] 1816829407L, -1568282312L, 1563616022L, 1255996195L, 1567s [00:52:47.127] 1702121701L, 1784032514L, 1842995056L, 748060441L, 1567s [00:52:47.127] 1432229643L, -1905232900L, 2016890922L, 1403944031L, 1567s [00:52:47.127] 351712233L, 1338932478L, -1359366932L, -803018691L, 1567s [00:52:47.127] -1551885305L, 248629232L, 1839395726L, 1411789243L, 1567s [00:52:47.127] 840085405L, -1849000630L, -669518488L, -1453417647L, 1567s [00:52:47.127] -1527179197L, -377159356L, 1674525170L, -313742393L, 1567s [00:52:47.127] 865377681L, -1127426242L), envir = base::globalenv(), 1567s [00:52:47.127] inherits = FALSE) 1567s [00:52:47.127] NULL 1567s [00:52:47.127] } 1567s [00:52:47.127] options(future.plan = NULL) 1567s [00:52:47.127] if (is.na(NA_character_)) 1567s [00:52:47.127] Sys.unsetenv("R_FUTURE_PLAN") 1567s [00:52:47.127] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1567s [00:52:47.127] future::plan(list(function (..., workers = availableCores(), 1567s [00:52:47.127] lazy = FALSE, rscript_libs = .libPaths(), 1567s [00:52:47.127] envir = parent.frame()) 1567s [00:52:47.127] { 1567s [00:52:47.127] if (is.function(workers)) 1567s [00:52:47.127] workers <- workers() 1567s [00:52:47.127] workers <- structure(as.integer(workers), 1567s [00:52:47.127] class = class(workers)) 1567s [00:52:47.127] stop_if_not(length(workers) == 1, is.finite(workers), 1567s [00:52:47.127] workers >= 1) 1567s [00:52:47.127] if (workers == 1L && !inherits(workers, "AsIs")) { 1567s [00:52:47.127] return(sequential(..., lazy = TRUE, envir = envir)) 1567s [00:52:47.127] } 1567s [00:52:47.127] future <- MultisessionFuture(..., workers = workers, 1567s [00:52:47.127] lazy = lazy, rscript_libs = rscript_libs, 1567s [00:52:47.127] envir = envir) 1567s [00:52:47.127] if (!future$lazy) 1567s [00:52:47.127] future <- run(future) 1567s [00:52:47.127] invisible(future) 1567s [00:52:47.127] }), .cleanup = FALSE, .init = FALSE) 1567s [00:52:47.127] } 1567s [00:52:47.127] } 1567s [00:52:47.127] } 1567s [00:52:47.127] }) 1567s [00:52:47.127] if (TRUE) { 1567s [00:52:47.127] base::sink(type = "output", split = FALSE) 1567s [00:52:47.127] if (TRUE) { 1567s [00:52:47.127] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1567s [00:52:47.127] } 1567s [00:52:47.127] else { 1567s [00:52:47.127] ...future.result["stdout"] <- base::list(NULL) 1567s [00:52:47.127] } 1567s [00:52:47.127] base::close(...future.stdout) 1567s [00:52:47.127] ...future.stdout <- NULL 1567s [00:52:47.127] } 1567s [00:52:47.127] ...future.result$conditions <- ...future.conditions 1567s [00:52:47.127] ...future.result$finished <- base::Sys.time() 1567s [00:52:47.127] ...future.result 1567s [00:52:47.127] } 1567s [00:52:47.133] assign_globals() ... 1567s [00:52:47.133] List of 5 1567s [00:52:47.133] $ ...future.FUN :function (...) 1567s [00:52:47.133] $ future.call.arguments : list() 1567s [00:52:47.133] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1567s [00:52:47.133] $ ...future.elements_ii :List of 5 1567s [00:52:47.133] ..$ : int 0 1567s [00:52:47.133] ..$ : int 0 1567s [00:52:47.133] ..$ : int 0 1567s [00:52:47.133] ..$ : int 0 1567s [00:52:47.133] ..$ : int 0 1567s [00:52:47.133] $ ...future.seeds_ii :List of 5 1567s [00:52:47.133] ..$ : int [1:7] 10407 800596211 191202253 -1245543361 -1911991084 -470201595 630973807 1567s [00:52:47.133] ..$ : int [1:7] 10407 336362669 -1847432762 -712550016 1068830663 1731026700 1489470838 1567s [00:52:47.133] ..$ : int [1:7] 10407 2000585943 1277356830 -2089408352 -860958827 226502925 99834792 1567s [00:52:47.133] ..$ : int [1:7] 10407 -1366366742 -1587533199 -987670999 1146693195 -372746989 -1779846945 1567s [00:52:47.133] ..$ : int [1:7] 10407 -1326244930 -121340665 862160877 1069041468 -111293265 1245428870 1567s [00:52:47.133] $ ...future.globals.maxSize: NULL 1567s [00:52:47.133] - attr(*, "where")=List of 5 1567s [00:52:47.133] ..$ ...future.FUN : 1567s [00:52:47.133] ..$ future.call.arguments : 1567s [00:52:47.133] ..$ ...future.elements_ii : 1567s [00:52:47.133] ..$ ...future.seeds_ii : 1567s [00:52:47.133] ..$ ...future.globals.maxSize: 1567s [00:52:47.133] - attr(*, "resolved")= logi FALSE 1567s [00:52:47.133] - attr(*, "total_size")= num 616 1567s [00:52:47.133] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1567s [00:52:47.133] - attr(*, "already-done")= logi TRUE 1567s [00:52:47.145] - reassign environment for ‘...future.FUN’ 1567s [00:52:47.145] - copied ‘...future.FUN’ to environment 1567s [00:52:47.145] - copied ‘future.call.arguments’ to environment 1567s [00:52:47.146] - copied ‘...future.elements_ii’ to environment 1567s [00:52:47.146] - copied ‘...future.seeds_ii’ to environment 1567s [00:52:47.146] - copied ‘...future.globals.maxSize’ to environment 1567s [00:52:47.147] assign_globals() ... done 1567s [00:52:47.147] plan(): Setting new future strategy stack: 1567s [00:52:47.148] List of future strategies: 1567s [00:52:47.148] 1. sequential: 1567s [00:52:47.148] - args: function (..., envir = parent.frame()) 1567s [00:52:47.148] - tweaked: FALSE 1567s [00:52:47.148] - call: NULL 1567s [00:52:47.148] plan(): nbrOfWorkers() = 1 1567s [00:52:47.150] plan(): Setting new future strategy stack: 1567s [00:52:47.150] List of future strategies: 1567s [00:52:47.150] 1. multisession: 1567s [00:52:47.150] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1567s [00:52:47.150] - tweaked: FALSE 1567s [00:52:47.150] - call: plan(strategy) 1567s [00:52:47.156] plan(): nbrOfWorkers() = 1 1567s [00:52:47.156] SequentialFuture started (and completed) 1567s [00:52:47.156] - Launch lazy future ... done 1567s [00:52:47.156] run() for ‘SequentialFuture’ ... done 1567s [00:52:47.156] Created future: 1567s [00:52:47.157] SequentialFuture: 1567s [00:52:47.157] Label: ‘future_replicate-1’ 1567s [00:52:47.157] Expression: 1567s [00:52:47.157] { 1567s [00:52:47.157] do.call(function(...) { 1567s [00:52:47.157] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1567s [00:52:47.157] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1567s [00:52:47.157] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1567s [00:52:47.157] on.exit(options(oopts), add = TRUE) 1567s [00:52:47.157] } 1567s [00:52:47.157] { 1567s [00:52:47.157] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1567s [00:52:47.157] ...future.X_jj <- ...future.elements_ii[[jj]] 1567s [00:52:47.157] assign(".Random.seed", ...future.seeds_ii[[jj]], 1567s [00:52:47.157] envir = globalenv(), inherits = FALSE) 1567s [00:52:47.157] ...future.FUN(...future.X_jj, ...) 1567s [00:52:47.157] }) 1567s [00:52:47.157] } 1567s [00:52:47.157] }, args = future.call.arguments) 1567s [00:52:47.157] } 1567s [00:52:47.157] Lazy evaluation: FALSE 1567s [00:52:47.157] Asynchronous evaluation: FALSE 1567s [00:52:47.157] Local evaluation: TRUE 1567s [00:52:47.157] Environment: R_GlobalEnv 1567s [00:52:47.157] Capture standard output: TRUE 1567s [00:52:47.157] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1567s [00:52:47.157] Globals: 5 objects totaling 1.27 KiB (function ‘...future.FUN’ of 616 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 280 bytes, list ‘...future.seeds_ii’ of 400 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1567s [00:52:47.157] Packages: 1567s [00:52:47.157] L'Ecuyer-CMRG RNG seed: (seed = NULL) 1567s [00:52:47.157] Resolved: TRUE 1567s [00:52:47.157] Value: 280 bytes of class ‘list’ 1567s [00:52:47.157] Early signaling: FALSE 1567s [00:52:47.157] Owner process: 50289bf5-8c9f-f501-15c6-3ca1fa8d82cf 1567s [00:52:47.157] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1567s [00:52:47.160] Chunk #1 of 1 ... DONE 1567s [00:52:47.161] Launching 1 futures (chunks) ... DONE 1567s [00:52:47.161] Resolving 1 futures (chunks) ... 1567s [00:52:47.161] resolve() on list ... 1567s [00:52:47.162] recursive: 0 1567s [00:52:47.162] length: 1 1567s [00:52:47.162] 1567s [00:52:47.162] resolved() for ‘SequentialFuture’ ... 1567s [00:52:47.163] - state: ‘finished’ 1567s [00:52:47.163] - run: TRUE 1567s [00:52:47.163] - result: ‘FutureResult’ 1567s [00:52:47.164] resolved() for ‘SequentialFuture’ ... done 1567s [00:52:47.165] Future #1 1567s [00:52:47.165] signalConditionsASAP(SequentialFuture, pos=1) ... 1567s [00:52:47.165] - nx: 1 1567s [00:52:47.165] - relay: TRUE 1567s [00:52:47.166] - stdout: TRUE 1567s [00:52:47.166] - signal: TRUE 1567s [00:52:47.166] - resignal: FALSE 1567s [00:52:47.166] - force: TRUE 1567s [00:52:47.166] - relayed: [n=1] FALSE 1567s [00:52:47.167] - queued futures: [n=1] FALSE 1567s [00:52:47.167] - until=1 1567s [00:52:47.168] - relaying element #1 1567s [00:52:47.168] - relayed: [n=1] TRUE 1567s [00:52:47.168] - queued futures: [n=1] TRUE 1567s [00:52:47.169] signalConditionsASAP(SequentialFuture, pos=1) ... done 1567s [00:52:47.169] length: 0 (resolved future 1) 1567s [00:52:47.169] Relaying remaining futures 1567s [00:52:47.171] signalConditionsASAP(NULL, pos=0) ... 1567s [00:52:47.171] - nx: 1 1567s [00:52:47.171] - relay: TRUE 1567s [00:52:47.172] - stdout: TRUE 1567s [00:52:47.172] - signal: TRUE 1567s [00:52:47.173] - resignal: FALSE 1567s [00:52:47.173] - force: TRUE 1567s [00:52:47.173] - relayed: [n=1] TRUE 1567s [00:52:47.173] - queued futures: [n=1] TRUE 1567s - flush all 1567s [00:52:47.173] - relayed: [n=1] TRUE 1567s [00:52:47.173] - queued futures: [n=1] TRUE 1567s [00:52:47.173] signalConditionsASAP(NULL, pos=0) ... done 1567s [00:52:47.173] resolve() on list ... DONE 1567s [00:52:47.174] - Number of value chunks collected: 1 1567s [00:52:47.177] Resolving 1 futures (chunks) ... DONE 1567s [00:52:47.178] Reducing values from 1 chunks ... 1567s [00:52:47.178] - Number of values collected after concatenation: 5 1567s [00:52:47.178] - Number of values expected: 5 1567s [00:52:47.178] Reducing values from 1 chunks ... DONE 1567s [00:52:47.178] future_lapply() ... DONE 1567s [00:52:47.179] future_lapply() ... 1567s [00:52:47.180] Generating random seeds ... 1567s [00:52:47.181] Generating random seed streams for 5 elements ... 1567s [00:52:47.181] Generating random seed streams for 5 elements ... DONE 1567s [00:52:47.182] Generating random seeds ... DONE 1567s [00:52:47.182] Will set RNG state on exit: 10403, 2, 133210212, 1945833034, 115858357, -364452081, -390319082, 926195392, 2057013379, -803887967, -1078998384, 705296750, -1682614503, 830917547, -331376230, 1352842588, 1960957023, 1997081653, 374446028, 1510359842, 1146109309, -1295266185, -1545472098, 1268700760, 1627111355, -855092903, -215790872, -1958931690, 1906054289, -782874301, -399096750, -1740777756, 1763676455, -832683651, 1369376884, 430697050, 1699587749, -1503628097, 856180550, -242424368, -2127251469, 505777937, 257347392, -856180962, 886024169, -1464480485, -1512233174, -1985955764, -425390065, -589669563, 381897980, -790840494, 1136483533, -1535370105, -607934610, 1641470280, -1050403509, 1965932713, 362996216, 1596838182, -1829498303, -1824465965, 1872669058, -417374796, -1713346249, 1818328109, -1284085436, -1981489558, 1940543701, 1673049711, -1514495114, 467096736, 943410531, -1431020031, 1115626864, 965475598, -1718567047, -793788661, -1133789126, -80588996, 2018258047, 1866186709, 42791404, -1823521982, -1345991523, -1672661737, -180777858, -452713416, 1448313627, -1459492743, -600706872, -909649674, -2081822415, -1697455773, 1517613874, -820020092, 188336327, -1149897827, -475203820, -368005702, 204442629, 437854687, 1163191398, -760699920, 104455443, 819708593, 1129180512, 48636670, 1066049161, 398150075, -852036726, -906028436, -1265740817, -1824646107, -2126068516, 1815435954, -146408019, -860012185, -682500466, 1443186536, 1789394795, -1078204151, 809467800, 1514112710, -1097673695, 919601331, -331916766, 795008020, 1042337943, -371219827, 1558967204, 1563528586, -2133607947, -1904454577, -264006826, 770017792, 153477955, 1189667553, -363253680, 1882362030, 967246937, -793119637, -1401964070, 2129232540, -542810977, -1277899019, -377097332, -406748574, -1722157507, -1577740105, -455170210, 372239000, -1535936005, -1332632679, -1623884760, -359633706, 935827793, 1357445123, 997040018, -1506538204, -147930137, -166569923, -2103753036, 1366641946, 30482021, 1876964095, 2008557446, 657856784, -103814733, 774877777, -486350336, -555057442, -1821756119, -963495717, 853311466, 1671241612, -942337841, 409538693, 1992831804, 489867794, 357105933, -1611412921, -1119334354, -1521015416, -2041922421, 2048874089, -700216776, 1651628774, -10471807, 736942611, 380607938, -1742088588, 1124231287, 1232111981, -1801753084, -1608606422, -1172096363, 1420874031, -1210473418, -18317216, -571709789, 1107403201, 1952554416, 1991660750, -442973639, 581522507, -430787078, 1105375484, -1481218753, -748152299, -641535700, 679371266, -591318819, -104578089, -172818754, -1321694984, -98191653, 1709083961, -344680312, -159571914, 581309553, -63938909, 76420082, 951019332, -1797740537, 1291470301, -2079866156, -332493318, -1978392251, -1691039632, 388791868, -1101109484, -1365177662, 321737440, 1812890748, -133313328, -1252731998, 2044530216, 1263927564, 325388220, 520794418, 1449646272, 87560756, -87565624, 426345146, -699970416, 240322284, -1074080172, -1536268654, 1338615584, 478476236, -1933154080, -192786750, 1559942184, -1178330196, -687617348, -1701912078, 352314928, -999229532, -2052800072, -1913644198, -1345416048, 1816730492, -1570431212, -269427390, -2122969344, -520963140, 1398087504, 264692002, -1682658744, -1422452724, -1601893284, -66383406, 1443075584, -456249004, 943694056, -1493184262, -1943836976, -590788308, -405505804, -1796837998, 1991543136, 1170376716, 1707420384, 1899700834, -1643595096, 47299148, 1274857340, -1205842638, -1938479504, -1773978812, 532695000, 1306451834, 258403888, -284747844, -1780705708, 1621936194, 1129070752, 540946108, -294270512, -1426480286, -356302104, 349847756, 1849803260, -1299125774, 511654528, -1259964940, -1879857528, 535666490, -2020097200, -1460751252, 1201879444, -1459788718, 447195616, -730891060, -1875530592, -2146183806, 193274088, -1224605972, 1616153916, -1896973198, -420945808, -1997735900, -1838404552, -413698278, 1984019664, -1760209092, -1288743020, 392579970, -1382567488, -1295004100, -33348208, 1536615970, -428761848, 643368588, -1596336356, 1797431442, 352422272, -1043800556, 60591912, -1115663814, 1043682768, 521144684, 4793268, -1924265966, 978890208, 370048972, -1607474976, -1443637214, -632405720, 691912204, 166321980, 942193650, 751741680, 689743428, -18455976, -1946329286, -1619184144, 239341244, 371382548, -2069808446, 154176608, 385987452, -385611824, 1967391010, 2140654248, 1720087436, -1591007044, -1612486862, 1295747648, 1726784692, 597326408, -973152838, 628505104, -1089631508, 3230036, -593837806, 244006304, 1357912780, 1839234656, -1357570110, 1896595240, -2066952276, -1724304580, 986188146, -1200604368, -279100124, 131128120, -1088465190, 596533136, 170602236, -1051262060, 215660610, -686217984, 444449852, 769655120, 236357794, 181393736, -13334772, 644690652, -1969263278, -2107982720, 1429553236, 794236904, 1997299962, -458224816, 904978220, -537093772, -842839150, 1828989024, -679303796, 1396292448, 76319202, 1896098728, 418430156, 2005956604, 1370351026, -1178923536, -1154073660, -1218863784, 89928058, 816597936, -1141767748, 1579714644, 1343385538, 371259424, -245180228, 365724240, 1606388706, -823678872, 1281309772, 1395210492, 1217887218, 1420531968, 1349501300, 271647752, -69959750, 360452560, 1565334508, 1956526484, -930709038, 1961808224, -1745916084, 443656480, 1990137730, 694374120, -1050566420, -1365842884, -438961294, -1851472272, 614534180, 1401930552, 3652762, 1928284880, -1637703492, 26107540, -132725907, -371944998, -1311388776, 8516097, 741008307, -1149566252, -1802640414, 2019636855, 1587818433, -151040698, 1598381188, -205462987, 1911327, -1382519432, -594809770, -2146766621, -2013964635, -965534910, -2077626064, 1964788057, 1821395659, -1953549508, -719348886, 1442511263, 1969287209, 1754221246, -442299476, 1981692157, 113456199, 1587794736, -1811033010, 1149417595, -1760887843, -1426021878, -1285634264, 1507547537, -1114120317, 1897370756, 1142575794, -375814649, -1661041071, 881081814, -548925260, 2073840837, 1156484623, 2011334280, 1107815334, 969024339, -55972683, 2006780434, -1486403616, 1698650697, 1813794939, -1717763764, 1268815066, -1200630577, -773717863, -12215122, 1354639804, 1213207085, -978295337, 340143136, 485429630, -568148149, 1257440589, 930106234, -883274312, -1632538783, 894748435, -1592959180, -596177598, 120963415, -1174532959, -561474202, 1438545764, 1429911189, 1075965887, 367866712, -892333706, -485158013, -682634811, 963344098, 2110199632, 1990767225, 1348335019, 269581084, -2040640438, 1453561919, 853952649, 1195494558, 1614051660, 2040242461, -1604604761, 1421229008, -1268333714, 174113307, 2044969853, 190112106, -998776824, -2070476623, -2099222749, 1141171236, -146426158, -1797385433, -1129376399, -1496589386, -419561644, -613549595, 1243456495, 451212072, 1923543942, 1146113971, 93579029, -397504142, 597218752, 459048489, 1447221915, -272948372, -373834886, 934888623, -2099351623, -1672042034, 193924380, -704518003, 781993207, -258875392, -1853783458, 1315003691, -41214419, -59447654, 1203745368, 426003905, 452670067, -1092079724, -1765622238, -1882554057, 1278087169, -1994822394, -124954300, 1994460277, 1816829407, -1568282312, 1563616022, 1255996195, 1702121701, 1784032514, 1842995056, 748060441, 1432229643, -1905232900, 2016890922, 1403944031, 351712233, 1338932478, -1359366932, -803018691, -1551885305, 248629232, 1839395726, 1411789243, 840085405, -1849000630, -669518488, -1453417647, -1527179197, -377159356, 1674525170, -313742393, 865377681, -1127426242 1567s [00:52:47.192] Number of chunks: 1 1567s [00:52:47.193] getGlobalsAndPackagesXApply() ... 1567s [00:52:47.193] - future.globals: TRUE 1567s [00:52:47.193] getGlobalsAndPackages() ... 1567s [00:52:47.193] Searching for globals... 1567s [00:52:47.198] - globals found: [2] ‘FUN’, ‘sample’ 1567s [00:52:47.198] Searching for globals ... DONE 1567s [00:52:47.199] Resolving globals: FALSE 1567s [00:52:47.200] The total size of the 1 globals is 616 bytes (616 bytes) 1567s [00:52:47.201] The total size of the 1 globals exported for future expression (‘FUN()’) is 616 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (616 bytes of class ‘function’) 1567s [00:52:47.201] - globals: [1] ‘FUN’ 1567s [00:52:47.201] 1567s [00:52:47.201] getGlobalsAndPackages() ... DONE 1567s [00:52:47.201] - globals found/used: [n=1] ‘FUN’ 1567s [00:52:47.202] - needed namespaces: [n=0] 1567s [00:52:47.202] Finding globals ... DONE 1567s [00:52:47.202] - use_args: TRUE 1567s [00:52:47.202] - Getting '...' globals ... 1567s [00:52:47.202] resolve() on list ... 1567s [00:52:47.203] recursive: 0 1567s [00:52:47.203] length: 1 1567s [00:52:47.203] elements: ‘...’ 1567s [00:52:47.203] length: 0 (resolved future 1) 1567s [00:52:47.203] resolve() on list ... DONE 1567s [00:52:47.203] - '...' content: [n=0] 1567s [00:52:47.203] List of 1 1567s [00:52:47.203] $ ...: list() 1567s [00:52:47.203] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1567s [00:52:47.203] - attr(*, "where")=List of 1 1567s [00:52:47.203] ..$ ...: 1567s [00:52:47.203] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1567s [00:52:47.203] - attr(*, "resolved")= logi TRUE 1567s [00:52:47.203] - attr(*, "total_size")= num NA 1567s [00:52:47.207] - Getting '...' globals ... DONE 1567s [00:52:47.208] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1567s [00:52:47.208] List of 2 1567s [00:52:47.208] $ ...future.FUN:function (...) 1567s [00:52:47.208] $ ... : list() 1567s [00:52:47.208] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1567s [00:52:47.208] - attr(*, "where")=List of 2 1567s [00:52:47.208] ..$ ...future.FUN: 1567s [00:52:47.208] ..$ ... : 1567s [00:52:47.208] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1567s [00:52:47.208] - attr(*, "resolved")= logi FALSE 1567s [00:52:47.208] - attr(*, "total_size")= num 616 1567s [00:52:47.214] Packages to be attached in all futures: [n=0] 1567s [00:52:47.214] getGlobalsAndPackagesXApply() ... DONE 1567s [00:52:47.214] Number of futures (= number of chunks): 1 1567s [00:52:47.215] Launching 1 futures (chunks) ... 1567s [00:52:47.215] Chunk #1 of 1 ... 1567s [00:52:47.215] - Finding globals in 'X' for chunk #1 ... 1567s [00:52:47.215] getGlobalsAndPackages() ... 1567s [00:52:47.215] Searching for globals... 1567s [00:52:47.216] 1567s [00:52:47.216] Searching for globals ... DONE 1567s [00:52:47.217] - globals: [0] 1567s [00:52:47.217] getGlobalsAndPackages() ... DONE 1567s [00:52:47.217] + additional globals found: [n=0] 1567s [00:52:47.217] + additional namespaces needed: [n=0] 1567s [00:52:47.217] - Finding globals in 'X' for chunk #1 ... DONE 1567s [00:52:47.217] - seeds: [5] 1567s [00:52:47.217] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1567s [00:52:47.218] getGlobalsAndPackages() ... 1567s [00:52:47.218] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1567s [00:52:47.218] Resolving globals: FALSE 1567s [00:52:47.218] Tweak future expression to call with '...' arguments ... 1567s [00:52:47.219] { 1567s [00:52:47.219] do.call(function(...) { 1567s [00:52:47.219] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1567s [00:52:47.219] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1567s [00:52:47.219] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1567s [00:52:47.219] on.exit(options(oopts), add = TRUE) 1567s [00:52:47.219] } 1567s [00:52:47.219] { 1567s [00:52:47.219] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1567s [00:52:47.219] ...future.X_jj <- ...future.elements_ii[[jj]] 1567s [00:52:47.219] assign(".Random.seed", ...future.seeds_ii[[jj]], 1567s [00:52:47.219] envir = globalenv(), inherits = FALSE) 1567s [00:52:47.219] ...future.FUN(...future.X_jj, ...) 1567s [00:52:47.219] }) 1567s [00:52:47.219] } 1567s [00:52:47.219] }, args = future.call.arguments) 1567s [00:52:47.219] } 1567s [00:52:47.220] Tweak future expression to call with '...' arguments ... DONE 1567s [00:52:47.221] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1567s [00:52:47.221] 1567s [00:52:47.222] getGlobalsAndPackages() ... DONE 1567s [00:52:47.222] run() for ‘Future’ ... 1567s [00:52:47.222] - state: ‘created’ 1567s [00:52:47.223] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1567s [00:52:47.229] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1567s [00:52:47.230] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1567s [00:52:47.230] - Field: ‘label’ 1567s [00:52:47.230] - Field: ‘local’ 1567s [00:52:47.231] - Field: ‘owner’ 1567s [00:52:47.231] - Field: ‘envir’ 1567s [00:52:47.231] - Field: ‘packages’ 1567s [00:52:47.232] - Field: ‘gc’ 1567s [00:52:47.232] - Field: ‘conditions’ 1567s [00:52:47.232] - Field: ‘expr’ 1567s [00:52:47.232] - Field: ‘uuid’ 1567s [00:52:47.233] - Field: ‘seed’ 1567s [00:52:47.233] - Field: ‘version’ 1567s [00:52:47.234] - Field: ‘result’ 1567s [00:52:47.234] - Field: ‘asynchronous’ 1567s [00:52:47.234] - Field: ‘calls’ 1567s [00:52:47.235] - Field: ‘globals’ 1567s [00:52:47.235] - Field: ‘stdout’ 1567s [00:52:47.235] - Field: ‘earlySignal’ 1567s [00:52:47.236] - Field: ‘lazy’ 1567s [00:52:47.236] - Field: ‘state’ 1567s [00:52:47.236] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1567s [00:52:47.237] - Launch lazy future ... 1567s [00:52:47.237] Packages needed by the future expression (n = 0): 1567s [00:52:47.237] Packages needed by future strategies (n = 0): 1567s [00:52:47.238] { 1567s [00:52:47.238] { 1567s [00:52:47.238] { 1567s [00:52:47.238] ...future.startTime <- base::Sys.time() 1567s [00:52:47.238] { 1567s [00:52:47.238] { 1567s [00:52:47.238] { 1567s [00:52:47.238] base::local({ 1567s [00:52:47.238] has_future <- base::requireNamespace("future", 1567s [00:52:47.238] quietly = TRUE) 1567s [00:52:47.238] if (has_future) { 1567s [00:52:47.238] ns <- base::getNamespace("future") 1567s [00:52:47.238] version <- ns[[".package"]][["version"]] 1567s [00:52:47.238] if (is.null(version)) 1567s [00:52:47.238] version <- utils::packageVersion("future") 1567s [00:52:47.238] } 1567s [00:52:47.238] else { 1567s [00:52:47.238] version <- NULL 1567s [00:52:47.238] } 1567s [00:52:47.238] if (!has_future || version < "1.8.0") { 1567s [00:52:47.238] info <- base::c(r_version = base::gsub("R version ", 1567s [00:52:47.238] "", base::R.version$version.string), 1567s [00:52:47.238] platform = base::sprintf("%s (%s-bit)", 1567s [00:52:47.238] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1567s [00:52:47.238] os = base::paste(base::Sys.info()[base::c("sysname", 1567s [00:52:47.238] "release", "version")], collapse = " "), 1567s [00:52:47.238] hostname = base::Sys.info()[["nodename"]]) 1567s [00:52:47.238] info <- base::sprintf("%s: %s", base::names(info), 1567s [00:52:47.238] info) 1567s [00:52:47.238] info <- base::paste(info, collapse = "; ") 1567s [00:52:47.238] if (!has_future) { 1567s [00:52:47.238] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1567s [00:52:47.238] info) 1567s [00:52:47.238] } 1567s [00:52:47.238] else { 1567s [00:52:47.238] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1567s [00:52:47.238] info, version) 1567s [00:52:47.238] } 1567s [00:52:47.238] base::stop(msg) 1567s [00:52:47.238] } 1567s [00:52:47.238] }) 1567s [00:52:47.238] } 1567s [00:52:47.238] options(future.plan = NULL) 1567s [00:52:47.238] Sys.unsetenv("R_FUTURE_PLAN") 1567s [00:52:47.238] future::plan("default", .cleanup = FALSE, .init = FALSE) 1567s [00:52:47.238] } 1567s [00:52:47.238] ...future.workdir <- getwd() 1567s [00:52:47.238] } 1567s [00:52:47.238] ...future.oldOptions <- base::as.list(base::.Options) 1567s [00:52:47.238] ...future.oldEnvVars <- base::Sys.getenv() 1567s [00:52:47.238] } 1567s [00:52:47.238] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1567s [00:52:47.238] future.globals.maxSize = NULL, future.globals.method = NULL, 1567s [00:52:47.238] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1567s [00:52:47.238] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1567s [00:52:47.238] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1567s [00:52:47.238] future.stdout.windows.reencode = NULL, width = 80L) 1567s [00:52:47.238] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1567s [00:52:47.238] base::names(...future.oldOptions)) 1567s [00:52:47.238] } 1567s [00:52:47.238] if (FALSE) { 1567s [00:52:47.238] } 1567s [00:52:47.238] else { 1567s [00:52:47.238] if (TRUE) { 1567s [00:52:47.238] ...future.stdout <- base::rawConnection(base::raw(0L), 1567s [00:52:47.238] open = "w") 1567s [00:52:47.238] } 1567s [00:52:47.238] else { 1567s [00:52:47.238] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1567s [00:52:47.238] windows = "NUL", "/dev/null"), open = "w") 1567s [00:52:47.238] } 1567s [00:52:47.238] base::sink(...future.stdout, type = "output", split = FALSE) 1567s [00:52:47.238] base::on.exit(if (!base::is.null(...future.stdout)) { 1567s [00:52:47.238] base::sink(type = "output", split = FALSE) 1567s [00:52:47.238] base::close(...future.stdout) 1567s [00:52:47.238] }, add = TRUE) 1567s [00:52:47.238] } 1567s [00:52:47.238] ...future.frame <- base::sys.nframe() 1567s [00:52:47.238] ...future.conditions <- base::list() 1567s [00:52:47.238] ...future.rng <- base::globalenv()$.Random.seed 1567s [00:52:47.238] if (FALSE) { 1567s [00:52:47.238] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1567s [00:52:47.238] "...future.value", "...future.globalenv.names", ".Random.seed") 1567s [00:52:47.238] } 1567s [00:52:47.238] ...future.result <- base::tryCatch({ 1567s [00:52:47.238] base::withCallingHandlers({ 1567s [00:52:47.238] ...future.value <- base::withVisible(base::local({ 1567s [00:52:47.238] do.call(function(...) { 1567s [00:52:47.238] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1567s [00:52:47.238] if (!identical(...future.globals.maxSize.org, 1567s [00:52:47.238] ...future.globals.maxSize)) { 1567s [00:52:47.238] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1567s [00:52:47.238] on.exit(options(oopts), add = TRUE) 1567s [00:52:47.238] } 1567s [00:52:47.238] { 1567s [00:52:47.238] lapply(seq_along(...future.elements_ii), 1567s [00:52:47.238] FUN = function(jj) { 1567s [00:52:47.238] ...future.X_jj <- ...future.elements_ii[[jj]] 1567s [00:52:47.238] assign(".Random.seed", ...future.seeds_ii[[jj]], 1567s [00:52:47.238] envir = globalenv(), inherits = FALSE) 1567s [00:52:47.238] ...future.FUN(...future.X_jj, ...) 1567s [00:52:47.238] }) 1567s [00:52:47.238] } 1567s [00:52:47.238] }, args = future.call.arguments) 1567s [00:52:47.238] })) 1567s [00:52:47.238] future::FutureResult(value = ...future.value$value, 1567s [00:52:47.238] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1567s [00:52:47.238] ...future.rng), globalenv = if (FALSE) 1567s [00:52:47.238] list(added = base::setdiff(base::names(base::.GlobalEnv), 1567s [00:52:47.238] ...future.globalenv.names)) 1567s [00:52:47.238] else NULL, started = ...future.startTime, version = "1.8") 1567s [00:52:47.238] }, condition = base::local({ 1567s [00:52:47.238] c <- base::c 1567s [00:52:47.238] inherits <- base::inherits 1567s [00:52:47.238] invokeRestart <- base::invokeRestart 1567s [00:52:47.238] length <- base::length 1567s [00:52:47.238] list <- base::list 1567s [00:52:47.238] seq.int <- base::seq.int 1567s [00:52:47.238] signalCondition <- base::signalCondition 1567s [00:52:47.238] sys.calls <- base::sys.calls 1567s [00:52:47.238] `[[` <- base::`[[` 1567s [00:52:47.238] `+` <- base::`+` 1567s [00:52:47.238] `<<-` <- base::`<<-` 1567s [00:52:47.238] sysCalls <- function(calls = sys.calls(), from = 1L) { 1567s [00:52:47.238] calls[seq.int(from = from + 12L, to = length(calls) - 1567s [00:52:47.238] 3L)] 1567s [00:52:47.238] } 1567s [00:52:47.238] function(cond) { 1567s [00:52:47.238] is_error <- inherits(cond, "error") 1567s [00:52:47.238] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1567s [00:52:47.238] NULL) 1567s [00:52:47.238] if (is_error) { 1567s [00:52:47.238] sessionInformation <- function() { 1567s [00:52:47.238] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1567s [00:52:47.238] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1567s [00:52:47.238] search = base::search(), system = base::Sys.info()) 1567s [00:52:47.238] } 1567s [00:52:47.238] ...future.conditions[[length(...future.conditions) + 1567s [00:52:47.238] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1567s [00:52:47.238] cond$call), session = sessionInformation(), 1567s [00:52:47.238] timestamp = base::Sys.time(), signaled = 0L) 1567s [00:52:47.238] signalCondition(cond) 1567s [00:52:47.238] } 1567s [00:52:47.238] else if (!ignore && TRUE && inherits(cond, c("condition", 1567s [00:52:47.238] "immediateCondition"))) { 1567s [00:52:47.238] signal <- TRUE && inherits(cond, "immediateCondition") 1567s [00:52:47.238] ...future.conditions[[length(...future.conditions) + 1567s [00:52:47.238] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1567s [00:52:47.238] if (TRUE && !signal) { 1567s [00:52:47.238] muffleCondition <- function (cond, pattern = "^muffle") 1567s [00:52:47.238] { 1567s [00:52:47.238] inherits <- base::inherits 1567s [00:52:47.238] invokeRestart <- base::invokeRestart 1567s [00:52:47.238] is.null <- base::is.null 1567s [00:52:47.238] muffled <- FALSE 1567s [00:52:47.238] if (inherits(cond, "message")) { 1567s [00:52:47.238] muffled <- grepl(pattern, "muffleMessage") 1567s [00:52:47.238] if (muffled) 1567s [00:52:47.238] invokeRestart("muffleMessage") 1567s [00:52:47.238] } 1567s [00:52:47.238] else if (inherits(cond, "warning")) { 1567s [00:52:47.238] muffled <- grepl(pattern, "muffleWarning") 1567s [00:52:47.238] if (muffled) 1567s [00:52:47.238] invokeRestart("muffleWarning") 1567s [00:52:47.238] } 1567s [00:52:47.238] else if (inherits(cond, "condition")) { 1567s [00:52:47.238] if (!is.null(pattern)) { 1567s [00:52:47.238] computeRestarts <- base::computeRestarts 1567s [00:52:47.238] grepl <- base::grepl 1567s [00:52:47.238] restarts <- computeRestarts(cond) 1567s [00:52:47.238] for (restart in restarts) { 1567s [00:52:47.238] name <- restart$name 1567s [00:52:47.238] if (is.null(name)) 1567s [00:52:47.238] next 1567s [00:52:47.238] if (!grepl(pattern, name)) 1567s [00:52:47.238] next 1567s [00:52:47.238] invokeRestart(restart) 1567s [00:52:47.238] muffled <- TRUE 1567s [00:52:47.238] break 1567s [00:52:47.238] } 1567s [00:52:47.238] } 1567s [00:52:47.238] } 1567s [00:52:47.238] invisible(muffled) 1567s [00:52:47.238] } 1567s [00:52:47.238] muffleCondition(cond, pattern = "^muffle") 1567s [00:52:47.238] } 1567s [00:52:47.238] } 1567s [00:52:47.238] else { 1567s [00:52:47.238] if (TRUE) { 1567s [00:52:47.238] muffleCondition <- function (cond, pattern = "^muffle") 1567s [00:52:47.238] { 1567s [00:52:47.238] inherits <- base::inherits 1567s [00:52:47.238] invokeRestart <- base::invokeRestart 1567s [00:52:47.238] is.null <- base::is.null 1567s [00:52:47.238] muffled <- FALSE 1567s [00:52:47.238] if (inherits(cond, "message")) { 1567s [00:52:47.238] muffled <- grepl(pattern, "muffleMessage") 1567s [00:52:47.238] if (muffled) 1567s [00:52:47.238] invokeRestart("muffleMessage") 1567s [00:52:47.238] } 1567s [00:52:47.238] else if (inherits(cond, "warning")) { 1567s [00:52:47.238] muffled <- grepl(pattern, "muffleWarning") 1567s [00:52:47.238] if (muffled) 1567s [00:52:47.238] invokeRestart("muffleWarning") 1567s [00:52:47.238] } 1567s [00:52:47.238] else if (inherits(cond, "condition")) { 1567s [00:52:47.238] if (!is.null(pattern)) { 1567s [00:52:47.238] computeRestarts <- base::computeRestarts 1567s [00:52:47.238] grepl <- base::grepl 1567s [00:52:47.238] restarts <- computeRestarts(cond) 1567s [00:52:47.238] for (restart in restarts) { 1567s [00:52:47.238] name <- restart$name 1567s [00:52:47.238] if (is.null(name)) 1567s [00:52:47.238] next 1567s [00:52:47.238] if (!grepl(pattern, name)) 1567s [00:52:47.238] next 1567s [00:52:47.238] invokeRestart(restart) 1567s [00:52:47.238] muffled <- TRUE 1567s [00:52:47.238] break 1567s [00:52:47.238] } 1567s [00:52:47.238] } 1567s [00:52:47.238] } 1567s [00:52:47.238] invisible(muffled) 1567s [00:52:47.238] } 1567s [00:52:47.238] muffleCondition(cond, pattern = "^muffle") 1567s [00:52:47.238] } 1567s [00:52:47.238] } 1567s [00:52:47.238] } 1567s [00:52:47.238] })) 1567s [00:52:47.238] }, error = function(ex) { 1567s [00:52:47.238] base::structure(base::list(value = NULL, visible = NULL, 1567s [00:52:47.238] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1567s [00:52:47.238] ...future.rng), started = ...future.startTime, 1567s [00:52:47.238] finished = Sys.time(), session_uuid = NA_character_, 1567s [00:52:47.238] version = "1.8"), class = "FutureResult") 1567s [00:52:47.238] }, finally = { 1567s [00:52:47.238] if (!identical(...future.workdir, getwd())) 1567s [00:52:47.238] setwd(...future.workdir) 1567s [00:52:47.238] { 1567s [00:52:47.238] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1567s [00:52:47.238] ...future.oldOptions$nwarnings <- NULL 1567s [00:52:47.238] } 1567s [00:52:47.238] base::options(...future.oldOptions) 1567s [00:52:47.238] if (.Platform$OS.type == "windows") { 1567s [00:52:47.238] old_names <- names(...future.oldEnvVars) 1567s [00:52:47.238] envs <- base::Sys.getenv() 1567s [00:52:47.238] names <- names(envs) 1567s [00:52:47.238] common <- intersect(names, old_names) 1567s [00:52:47.238] added <- setdiff(names, old_names) 1567s [00:52:47.238] removed <- setdiff(old_names, names) 1567s [00:52:47.238] changed <- common[...future.oldEnvVars[common] != 1567s [00:52:47.238] envs[common]] 1567s [00:52:47.238] NAMES <- toupper(changed) 1567s [00:52:47.238] args <- list() 1567s [00:52:47.238] for (kk in seq_along(NAMES)) { 1567s [00:52:47.238] name <- changed[[kk]] 1567s [00:52:47.238] NAME <- NAMES[[kk]] 1567s [00:52:47.238] if (name != NAME && is.element(NAME, old_names)) 1567s [00:52:47.238] next 1567s [00:52:47.238] args[[name]] <- ...future.oldEnvVars[[name]] 1567s [00:52:47.238] } 1567s [00:52:47.238] NAMES <- toupper(added) 1567s [00:52:47.238] for (kk in seq_along(NAMES)) { 1567s [00:52:47.238] name <- added[[kk]] 1567s [00:52:47.238] NAME <- NAMES[[kk]] 1567s [00:52:47.238] if (name != NAME && is.element(NAME, old_names)) 1567s [00:52:47.238] next 1567s [00:52:47.238] args[[name]] <- "" 1567s [00:52:47.238] } 1567s [00:52:47.238] NAMES <- toupper(removed) 1567s [00:52:47.238] for (kk in seq_along(NAMES)) { 1567s [00:52:47.238] name <- removed[[kk]] 1567s [00:52:47.238] NAME <- NAMES[[kk]] 1567s [00:52:47.238] if (name != NAME && is.element(NAME, old_names)) 1567s [00:52:47.238] next 1567s [00:52:47.238] args[[name]] <- ...future.oldEnvVars[[name]] 1567s [00:52:47.238] } 1567s [00:52:47.238] if (length(args) > 0) 1567s [00:52:47.238] base::do.call(base::Sys.setenv, args = args) 1567s [00:52:47.238] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1567s [00:52:47.238] } 1567s [00:52:47.238] else { 1567s [00:52:47.238] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1567s [00:52:47.238] } 1567s [00:52:47.238] { 1567s [00:52:47.238] if (base::length(...future.futureOptionsAdded) > 1567s [00:52:47.238] 0L) { 1567s [00:52:47.238] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1567s [00:52:47.238] base::names(opts) <- ...future.futureOptionsAdded 1567s [00:52:47.238] base::options(opts) 1567s [00:52:47.238] } 1567s [00:52:47.238] { 1567s [00:52:47.238] { 1567s [00:52:47.238] base::assign(".Random.seed", c(10403L, 2L, 1567s [00:52:47.238] 133210212L, 1945833034L, 115858357L, -364452081L, 1567s [00:52:47.238] -390319082L, 926195392L, 2057013379L, -803887967L, 1567s [00:52:47.238] -1078998384L, 705296750L, -1682614503L, 830917547L, 1567s [00:52:47.238] -331376230L, 1352842588L, 1960957023L, 1997081653L, 1567s [00:52:47.238] 374446028L, 1510359842L, 1146109309L, -1295266185L, 1567s [00:52:47.238] -1545472098L, 1268700760L, 1627111355L, -855092903L, 1567s [00:52:47.238] -215790872L, -1958931690L, 1906054289L, -782874301L, 1567s [00:52:47.238] -399096750L, -1740777756L, 1763676455L, -832683651L, 1567s [00:52:47.238] 1369376884L, 430697050L, 1699587749L, -1503628097L, 1567s [00:52:47.238] 856180550L, -242424368L, -2127251469L, 505777937L, 1567s [00:52:47.238] 257347392L, -856180962L, 886024169L, -1464480485L, 1567s [00:52:47.238] -1512233174L, -1985955764L, -425390065L, 1567s [00:52:47.238] -589669563L, 381897980L, -790840494L, 1136483533L, 1567s [00:52:47.238] -1535370105L, -607934610L, 1641470280L, -1050403509L, 1567s [00:52:47.238] 1965932713L, 362996216L, 1596838182L, -1829498303L, 1567s [00:52:47.238] -1824465965L, 1872669058L, -417374796L, -1713346249L, 1567s [00:52:47.238] 1818328109L, -1284085436L, -1981489558L, 1567s [00:52:47.238] 1940543701L, 1673049711L, -1514495114L, 467096736L, 1567s [00:52:47.238] 943410531L, -1431020031L, 1115626864L, 965475598L, 1567s [00:52:47.238] -1718567047L, -793788661L, -1133789126L, 1567s [00:52:47.238] -80588996L, 2018258047L, 1866186709L, 42791404L, 1567s [00:52:47.238] -1823521982L, -1345991523L, -1672661737L, 1567s [00:52:47.238] -180777858L, -452713416L, 1448313627L, -1459492743L, 1567s [00:52:47.238] -600706872L, -909649674L, -2081822415L, -1697455773L, 1567s [00:52:47.238] 1517613874L, -820020092L, 188336327L, -1149897827L, 1567s [00:52:47.238] -475203820L, -368005702L, 204442629L, 437854687L, 1567s [00:52:47.238] 1163191398L, -760699920L, 104455443L, 819708593L, 1567s [00:52:47.238] 1129180512L, 48636670L, 1066049161L, 398150075L, 1567s [00:52:47.238] -852036726L, -906028436L, -1265740817L, -1824646107L, 1567s [00:52:47.238] -2126068516L, 1815435954L, -146408019L, -860012185L, 1567s [00:52:47.238] -682500466L, 1443186536L, 1789394795L, -1078204151L, 1567s [00:52:47.238] 809467800L, 1514112710L, -1097673695L, 919601331L, 1567s [00:52:47.238] -331916766L, 795008020L, 1042337943L, -371219827L, 1567s [00:52:47.238] 1558967204L, 1563528586L, -2133607947L, -1904454577L, 1567s [00:52:47.238] -264006826L, 770017792L, 153477955L, 1189667553L, 1567s [00:52:47.238] -363253680L, 1882362030L, 967246937L, -793119637L, 1567s [00:52:47.238] -1401964070L, 2129232540L, -542810977L, -1277899019L, 1567s [00:52:47.238] -377097332L, -406748574L, -1722157507L, -1577740105L, 1567s [00:52:47.238] -455170210L, 372239000L, -1535936005L, -1332632679L, 1567s [00:52:47.238] -1623884760L, -359633706L, 935827793L, 1357445123L, 1567s [00:52:47.238] 997040018L, -1506538204L, -147930137L, -166569923L, 1567s [00:52:47.238] -2103753036L, 1366641946L, 30482021L, 1876964095L, 1567s [00:52:47.238] 2008557446L, 657856784L, -103814733L, 774877777L, 1567s [00:52:47.238] -486350336L, -555057442L, -1821756119L, -963495717L, 1567s [00:52:47.238] 853311466L, 1671241612L, -942337841L, 409538693L, 1567s [00:52:47.238] 1992831804L, 489867794L, 357105933L, -1611412921L, 1567s [00:52:47.238] -1119334354L, -1521015416L, -2041922421L, 1567s [00:52:47.238] 2048874089L, -700216776L, 1651628774L, -10471807L, 1567s [00:52:47.238] 736942611L, 380607938L, -1742088588L, 1124231287L, 1567s [00:52:47.238] 1232111981L, -1801753084L, -1608606422L, 1567s [00:52:47.238] -1172096363L, 1420874031L, -1210473418L, 1567s [00:52:47.238] -18317216L, -571709789L, 1107403201L, 1952554416L, 1567s [00:52:47.238] 1991660750L, -442973639L, 581522507L, -430787078L, 1567s [00:52:47.238] 1105375484L, -1481218753L, -748152299L, -641535700L, 1567s [00:52:47.238] 679371266L, -591318819L, -104578089L, -172818754L, 1567s [00:52:47.238] -1321694984L, -98191653L, 1709083961L, -344680312L, 1567s [00:52:47.238] -159571914L, 581309553L, -63938909L, 76420082L, 1567s [00:52:47.238] 951019332L, -1797740537L, 1291470301L, -2079866156L, 1567s [00:52:47.238] -332493318L, -1978392251L, -1691039632L, 1567s [00:52:47.238] 388791868L, -1101109484L, -1365177662L, 321737440L, 1567s [00:52:47.238] 1812890748L, -133313328L, -1252731998L, 2044530216L, 1567s [00:52:47.238] 1263927564L, 325388220L, 520794418L, 1449646272L, 1567s [00:52:47.238] 87560756L, -87565624L, 426345146L, -699970416L, 1567s [00:52:47.238] 240322284L, -1074080172L, -1536268654L, 1338615584L, 1567s [00:52:47.238] 478476236L, -1933154080L, -192786750L, 1559942184L, 1567s [00:52:47.238] -1178330196L, -687617348L, -1701912078L, 1567s [00:52:47.238] 352314928L, -999229532L, -2052800072L, -1913644198L, 1567s [00:52:47.238] -1345416048L, 1816730492L, -1570431212L, 1567s [00:52:47.238] -269427390L, -2122969344L, -520963140L, 1398087504L, 1567s [00:52:47.238] 264692002L, -1682658744L, -1422452724L, -1601893284L, 1567s [00:52:47.238] -66383406L, 1443075584L, -456249004L, 943694056L, 1567s [00:52:47.238] -1493184262L, -1943836976L, -590788308L, 1567s [00:52:47.238] -405505804L, -1796837998L, 1991543136L, 1170376716L, 1567s [00:52:47.238] 1707420384L, 1899700834L, -1643595096L, 47299148L, 1567s [00:52:47.238] 1274857340L, -1205842638L, -1938479504L, 1567s [00:52:47.238] -1773978812L, 532695000L, 1306451834L, 258403888L, 1567s [00:52:47.238] -284747844L, -1780705708L, 1621936194L, 1129070752L, 1567s [00:52:47.238] 540946108L, -294270512L, -1426480286L, -356302104L, 1567s [00:52:47.238] 349847756L, 1849803260L, -1299125774L, 511654528L, 1567s [00:52:47.238] -1259964940L, -1879857528L, 535666490L, -2020097200L, 1567s [00:52:47.238] -1460751252L, 1201879444L, -1459788718L, 1567s [00:52:47.238] 447195616L, -730891060L, -1875530592L, -2146183806L, 1567s [00:52:47.238] 193274088L, -1224605972L, 1616153916L, -1896973198L, 1567s [00:52:47.238] -420945808L, -1997735900L, -1838404552L, 1567s [00:52:47.238] -413698278L, 1984019664L, -1760209092L, -1288743020L, 1567s [00:52:47.238] 392579970L, -1382567488L, -1295004100L, -33348208L, 1567s [00:52:47.238] 1536615970L, -428761848L, 643368588L, -1596336356L, 1567s [00:52:47.238] 1797431442L, 352422272L, -1043800556L, 60591912L, 1567s [00:52:47.238] -1115663814L, 1043682768L, 521144684L, 4793268L, 1567s [00:52:47.238] -1924265966L, 978890208L, 370048972L, -1607474976L, 1567s [00:52:47.238] -1443637214L, -632405720L, 691912204L, 166321980L, 1567s [00:52:47.238] 942193650L, 751741680L, 689743428L, -18455976L, 1567s [00:52:47.238] -1946329286L, -1619184144L, 239341244L, 371382548L, 1567s [00:52:47.238] -2069808446L, 154176608L, 385987452L, -385611824L, 1567s [00:52:47.238] 1967391010L, 2140654248L, 1720087436L, -1591007044L, 1567s [00:52:47.238] -1612486862L, 1295747648L, 1726784692L, 597326408L, 1567s [00:52:47.238] -973152838L, 628505104L, -1089631508L, 3230036L, 1567s [00:52:47.238] -593837806L, 244006304L, 1357912780L, 1839234656L, 1567s [00:52:47.238] -1357570110L, 1896595240L, -2066952276L, 1567s [00:52:47.238] -1724304580L, 986188146L, -1200604368L, -279100124L, 1567s [00:52:47.238] 131128120L, -1088465190L, 596533136L, 170602236L, 1567s [00:52:47.238] -1051262060L, 215660610L, -686217984L, 444449852L, 1567s [00:52:47.238] 769655120L, 236357794L, 181393736L, -13334772L, 1567s [00:52:47.238] 644690652L, -1969263278L, -2107982720L, 1429553236L, 1567s [00:52:47.238] 794236904L, 1997299962L, -458224816L, 904978220L, 1567s [00:52:47.238] -537093772L, -842839150L, 1828989024L, -679303796L, 1567s [00:52:47.238] 1396292448L, 76319202L, 1896098728L, 418430156L, 1567s [00:52:47.238] 2005956604L, 1370351026L, -1178923536L, -1154073660L, 1567s [00:52:47.238] -1218863784L, 89928058L, 816597936L, -1141767748L, 1567s [00:52:47.238] 1579714644L, 1343385538L, 371259424L, -245180228L, 1567s [00:52:47.238] 365724240L, 1606388706L, -823678872L, 1281309772L, 1567s [00:52:47.238] 1395210492L, 1217887218L, 1420531968L, 1349501300L, 1567s [00:52:47.238] 271647752L, -69959750L, 360452560L, 1565334508L, 1567s [00:52:47.238] 1956526484L, -930709038L, 1961808224L, -1745916084L, 1567s [00:52:47.238] 443656480L, 1990137730L, 694374120L, -1050566420L, 1567s [00:52:47.238] -1365842884L, -438961294L, -1851472272L, 1567s [00:52:47.238] 614534180L, 1401930552L, 3652762L, 1928284880L, 1567s [00:52:47.238] -1637703492L, 26107540L, -132725907L, -371944998L, 1567s [00:52:47.238] -1311388776L, 8516097L, 741008307L, -1149566252L, 1567s [00:52:47.238] -1802640414L, 2019636855L, 1587818433L, -151040698L, 1567s [00:52:47.238] 1598381188L, -205462987L, 1911327L, -1382519432L, 1567s [00:52:47.238] -594809770L, -2146766621L, -2013964635L, 1567s [00:52:47.238] -965534910L, -2077626064L, 1964788057L, 1821395659L, 1567s [00:52:47.238] -1953549508L, -719348886L, 1442511263L, 1969287209L, 1567s [00:52:47.238] 1754221246L, -442299476L, 1981692157L, 113456199L, 1567s [00:52:47.238] 1587794736L, -1811033010L, 1149417595L, -1760887843L, 1567s [00:52:47.238] -1426021878L, -1285634264L, 1507547537L, 1567s [00:52:47.238] -1114120317L, 1897370756L, 1142575794L, -375814649L, 1567s [00:52:47.238] -1661041071L, 881081814L, -548925260L, 2073840837L, 1567s [00:52:47.238] 1156484623L, 2011334280L, 1107815334L, 969024339L, 1567s [00:52:47.238] -55972683L, 2006780434L, -1486403616L, 1698650697L, 1567s [00:52:47.238] 1813794939L, -1717763764L, 1268815066L, -1200630577L, 1567s [00:52:47.238] -773717863L, -12215122L, 1354639804L, 1213207085L, 1567s [00:52:47.238] -978295337L, 340143136L, 485429630L, -568148149L, 1567s [00:52:47.238] 1257440589L, 930106234L, -883274312L, -1632538783L, 1567s [00:52:47.238] 894748435L, -1592959180L, -596177598L, 120963415L, 1567s [00:52:47.238] -1174532959L, -561474202L, 1438545764L, 1429911189L, 1567s [00:52:47.238] 1075965887L, 367866712L, -892333706L, -485158013L, 1567s [00:52:47.238] -682634811L, 963344098L, 2110199632L, 1990767225L, 1567s [00:52:47.238] 1348335019L, 269581084L, -2040640438L, 1453561919L, 1567s [00:52:47.238] 853952649L, 1195494558L, 1614051660L, 2040242461L, 1567s [00:52:47.238] -1604604761L, 1421229008L, -1268333714L, 1567s [00:52:47.238] 174113307L, 2044969853L, 190112106L, -998776824L, 1567s [00:52:47.238] -2070476623L, -2099222749L, 1141171236L, 1567s [00:52:47.238] -146426158L, -1797385433L, -1129376399L, 1567s [00:52:47.238] -1496589386L, -419561644L, -613549595L, 1243456495L, 1567s [00:52:47.238] 451212072L, 1923543942L, 1146113971L, 93579029L, 1567s [00:52:47.238] -397504142L, 597218752L, 459048489L, 1447221915L, 1567s [00:52:47.238] -272948372L, -373834886L, 934888623L, -2099351623L, 1567s [00:52:47.238] -1672042034L, 193924380L, -704518003L, 781993207L, 1567s [00:52:47.238] -258875392L, -1853783458L, 1315003691L, -41214419L, 1567s [00:52:47.238] -59447654L, 1203745368L, 426003905L, 452670067L, 1567s [00:52:47.238] -1092079724L, -1765622238L, -1882554057L, 1567s [00:52:47.238] 1278087169L, -1994822394L, -124954300L, 1994460277L, 1567s [00:52:47.238] 1816829407L, -1568282312L, 1563616022L, 1255996195L, 1567s [00:52:47.238] 1702121701L, 1784032514L, 1842995056L, 748060441L, 1567s [00:52:47.238] 1432229643L, -1905232900L, 2016890922L, 1403944031L, 1567s [00:52:47.238] 351712233L, 1338932478L, -1359366932L, -803018691L, 1567s [00:52:47.238] -1551885305L, 248629232L, 1839395726L, 1411789243L, 1567s [00:52:47.238] 840085405L, -1849000630L, -669518488L, -1453417647L, 1567s [00:52:47.238] -1527179197L, -377159356L, 1674525170L, -313742393L, 1567s [00:52:47.238] 865377681L, -1127426242L), envir = base::globalenv(), 1567s [00:52:47.238] inherits = FALSE) 1567s [00:52:47.238] NULL 1567s [00:52:47.238] } 1567s [00:52:47.238] options(future.plan = NULL) 1567s [00:52:47.238] if (is.na(NA_character_)) 1567s [00:52:47.238] Sys.unsetenv("R_FUTURE_PLAN") 1567s [00:52:47.238] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1567s [00:52:47.238] future::plan(list(function (..., workers = availableCores(), 1567s [00:52:47.238] lazy = FALSE, rscript_libs = .libPaths(), 1567s [00:52:47.238] envir = parent.frame()) 1567s [00:52:47.238] { 1567s [00:52:47.238] if (is.function(workers)) 1567s [00:52:47.238] workers <- workers() 1567s [00:52:47.238] workers <- structure(as.integer(workers), 1567s [00:52:47.238] class = class(workers)) 1567s [00:52:47.238] stop_if_not(length(workers) == 1, is.finite(workers), 1567s [00:52:47.238] workers >= 1) 1567s [00:52:47.238] if (workers == 1L && !inherits(workers, "AsIs")) { 1567s [00:52:47.238] return(sequential(..., lazy = TRUE, envir = envir)) 1567s [00:52:47.238] } 1567s [00:52:47.238] future <- MultisessionFuture(..., workers = workers, 1567s [00:52:47.238] lazy = lazy, rscript_libs = rscript_libs, 1567s [00:52:47.238] envir = envir) 1567s [00:52:47.238] if (!future$lazy) 1567s [00:52:47.238] future <- run(future) 1567s [00:52:47.238] invisible(future) 1567s [00:52:47.238] }), .cleanup = FALSE, .init = FALSE) 1567s [00:52:47.238] } 1567s [00:52:47.238] } 1567s [00:52:47.238] } 1567s [00:52:47.238] }) 1567s [00:52:47.238] if (TRUE) { 1567s [00:52:47.238] base::sink(type = "output", split = FALSE) 1567s [00:52:47.238] if (TRUE) { 1567s [00:52:47.238] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1567s [00:52:47.238] } 1567s [00:52:47.238] else { 1567s [00:52:47.238] ...future.result["stdout"] <- base::list(NULL) 1567s [00:52:47.238] } 1567s [00:52:47.238] base::close(...future.stdout) 1567s [00:52:47.238] ...future.stdout <- NULL 1567s [00:52:47.238] } 1567s [00:52:47.238] ...future.result$conditions <- ...future.conditions 1567s [00:52:47.238] ...future.result$finished <- base::Sys.time() 1567s [00:52:47.238] ...future.result 1567s [00:52:47.238] } 1567s [00:52:47.246] assign_globals() ... 1567s [00:52:47.246] List of 5 1567s [00:52:47.246] $ ...future.FUN :function (...) 1567s [00:52:47.246] $ future.call.arguments : list() 1567s [00:52:47.246] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1567s [00:52:47.246] $ ...future.elements_ii :List of 5 1567s [00:52:47.246] ..$ : int 0 1567s [00:52:47.246] ..$ : int 0 1567s [00:52:47.246] ..$ : int 0 1567s [00:52:47.246] ..$ : int 0 1567s [00:52:47.246] ..$ : int 0 1567s [00:52:47.246] $ ...future.seeds_ii :List of 5 1567s [00:52:47.246] ..$ : int [1:7] 10407 424279327 242013539 -50536943 1949045882 -966354368 52785545 1567s [00:52:47.246] ..$ : int [1:7] 10407 1259015031 702630336 336295781 836592074 1678845563 -511089912 1567s [00:52:47.246] ..$ : int [1:7] 10407 1164394434 449220430 -1497007122 58661922 77957643 -850372858 1567s [00:52:47.246] ..$ : int [1:7] 10407 -102834055 -568341906 440844328 496378464 1781291461 1929965415 1567s [00:52:47.246] ..$ : int [1:7] 10407 -1584691803 1955381789 -562762208 1163324668 -1514628943 475545435 1567s [00:52:47.246] $ ...future.globals.maxSize: NULL 1567s [00:52:47.246] - attr(*, "where")=List of 5 1567s [00:52:47.246] ..$ ...future.FUN : 1567s [00:52:47.246] ..$ future.call.arguments : 1567s [00:52:47.246] ..$ ...future.elements_ii : 1567s [00:52:47.246] ..$ ...future.seeds_ii : 1567s [00:52:47.246] ..$ ...future.globals.maxSize: 1567s [00:52:47.246] - attr(*, "resolved")= logi FALSE 1567s [00:52:47.246] - attr(*, "total_size")= num 616 1567s [00:52:47.246] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1567s [00:52:47.246] - attr(*, "already-done")= logi TRUE 1567s [00:52:47.263] - reassign environment for ‘...future.FUN’ 1567s [00:52:47.263] - copied ‘...future.FUN’ to environment 1567s [00:52:47.264] - copied ‘future.call.arguments’ to environment 1567s [00:52:47.264] - copied ‘...future.elements_ii’ to environment 1567s [00:52:47.264] - copied ‘...future.seeds_ii’ to environment 1567s [00:52:47.265] - copied ‘...future.globals.maxSize’ to environment 1567s [00:52:47.265] assign_globals() ... done 1567s [00:52:47.265] plan(): Setting new future strategy stack: 1567s [00:52:47.265] List of future strategies: 1567s [00:52:47.265] 1. sequential: 1567s [00:52:47.265] - args: function (..., envir = parent.frame()) 1567s [00:52:47.265] - tweaked: FALSE 1567s [00:52:47.265] - call: NULL 1567s [00:52:47.266] plan(): nbrOfWorkers() = 1 1567s [00:52:47.267] plan(): Setting new future strategy stack: 1567s [00:52:47.267] List of future strategies: 1567s [00:52:47.267] 1. multisession: 1567s [00:52:47.267] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1567s [00:52:47.267] - tweaked: FALSE 1567s [00:52:47.267] - call: plan(strategy) 1567s [00:52:47.271] plan(): nbrOfWorkers() = 1 1567s [00:52:47.272] SequentialFuture started (and completed) 1567s [00:52:47.272] - Launch lazy future ... done 1567s [00:52:47.272] run() for ‘SequentialFuture’ ... done 1567s [00:52:47.272] Created future: 1567s [00:52:47.273] SequentialFuture: 1567s [00:52:47.273] Label: ‘future_replicate-1’ 1567s [00:52:47.273] Expression: 1567s [00:52:47.273] { 1567s [00:52:47.273] do.call(function(...) { 1567s [00:52:47.273] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1567s [00:52:47.273] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1567s [00:52:47.273] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1567s [00:52:47.273] on.exit(options(oopts), add = TRUE) 1567s [00:52:47.273] } 1567s [00:52:47.273] { 1567s [00:52:47.273] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1567s [00:52:47.273] ...future.X_jj <- ...future.elements_ii[[jj]] 1567s [00:52:47.273] assign(".Random.seed", ...future.seeds_ii[[jj]], 1567s [00:52:47.273] envir = globalenv(), inherits = FALSE) 1567s [00:52:47.273] ...future.FUN(...future.X_jj, ...) 1567s [00:52:47.273] }) 1567s [00:52:47.273] } 1567s [00:52:47.273] }, args = future.call.arguments) 1567s [00:52:47.273] } 1567s [00:52:47.273] Lazy evaluation: FALSE 1567s [00:52:47.273] Asynchronous evaluation: FALSE 1567s [00:52:47.273] Local evaluation: TRUE 1567s [00:52:47.273] Environment: R_GlobalEnv 1567s [00:52:47.273] Capture standard output: TRUE 1567s [00:52:47.273] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1567s [00:52:47.273] Globals: 5 objects totaling 1.27 KiB (function ‘...future.FUN’ of 616 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 280 bytes, list ‘...future.seeds_ii’ of 400 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1567s [00:52:47.273] Packages: 1567s [00:52:47.273] L'Ecuyer-CMRG RNG seed: (seed = NULL) 1567s [00:52:47.273] Resolved: TRUE 1567s [00:52:47.273] Value: 280 bytes of class ‘list’ 1567s [00:52:47.273] Early signaling: FALSE 1567s [00:52:47.273] Owner process: 50289bf5-8c9f-f501-15c6-3ca1fa8d82cf 1567s [00:52:47.273] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1567s [00:52:47.275] Chunk #1 of 1 ... DONE 1567s [00:52:47.275] Launching 1 futures (chunks) ... DONE 1567s [00:52:47.275] Resolving 1 futures (chunks) ... 1567s [00:52:47.275] resolve() on list ... 1567s [00:52:47.275] recursive: 0 1567s [00:52:47.275] length: 1 1567s [00:52:47.276] 1567s [00:52:47.276] resolved() for ‘SequentialFuture’ ... 1567s [00:52:47.276] - state: ‘finished’ 1567s [00:52:47.276] - run: TRUE 1567s [00:52:47.276] - result: ‘FutureResult’ 1567s [00:52:47.276] resolved() for ‘SequentialFuture’ ... done 1567s [00:52:47.277] Future #1 1567s [00:52:47.277] signalConditionsASAP(SequentialFuture, pos=1) ... 1567s [00:52:47.277] - nx: 1 1567s [00:52:47.277] - relay: TRUE 1567s [00:52:47.277] - stdout: TRUE 1567s [00:52:47.277] - signal: TRUE 1567s [00:52:47.277] - resignal: FALSE 1567s [00:52:47.277] - force: TRUE 1567s [00:52:47.278] - relayed: [n=1] FALSE 1567s [00:52:47.278] - queued futures: [n=1] FALSE 1567s [00:52:47.278] - until=1 1567s [00:52:47.278] - relaying element #1 1567s [00:52:47.278] - relayed: [n=1] TRUE 1567s [00:52:47.278] - queued futures: [n=1] TRUE 1567s [00:52:47.278] signalConditionsASAP(SequentialFuture, pos=1) ... done 1567s [00:52:47.279] length: 0 (resolved future 1) 1567s [00:52:47.279] Relaying remaining futures 1567s [00:52:47.279] signalConditionsASAP(NULL, pos=0) ... 1567s [00:52:47.279] - nx: 1 1567s [00:52:47.279] - relay: TRUE 1567s [00:52:47.279] - stdout: TRUE 1567s [00:52:47.279] - signal: TRUE 1567s [00:52:47.279] - resignal: FALSE 1567s [00:52:47.279] - force: TRUE 1567s [00:52:47.280] - relayed: [n=1] TRUE 1567s [00:52:47.280] - queued futures: [n=1] TRUE 1567s - flush all 1567s [00:52:47.280] - relayed: [n=1] TRUE 1567s [00:52:47.281] - queued futures: [n=1] TRUE 1567s [00:52:47.281] signalConditionsASAP(NULL, pos=0) ... done 1567s [00:52:47.281] resolve() on list ... DONE 1567s [00:52:47.281] - Number of value chunks collected: 1 1567s [00:52:47.281] Resolving 1 futures (chunks) ... DONE 1567s [00:52:47.281] Reducing values from 1 chunks ... 1567s [00:52:47.282] - Number of values collected after concatenation: 5 1567s [00:52:47.282] - Number of values expected: 5 1567s [00:52:47.282] Reducing values from 1 chunks ... DONE 1567s [00:52:47.282] future_lapply() ... DONE 1567s [00:52:47.282] future_lapply() ... 1567s [00:52:47.283] Generating random seeds ... 1567s [00:52:47.283] Generating random seed streams for 5 elements ... 1567s [00:52:47.283] Generating random seed streams for 5 elements ... DONE 1567s [00:52:47.283] Generating random seeds ... DONE 1567s [00:52:47.284] Will set RNG state on exit: 10403, 2, 133210212, 1945833034, 115858357, -364452081, -390319082, 926195392, 2057013379, -803887967, -1078998384, 705296750, -1682614503, 830917547, -331376230, 1352842588, 1960957023, 1997081653, 374446028, 1510359842, 1146109309, -1295266185, -1545472098, 1268700760, 1627111355, -855092903, -215790872, -1958931690, 1906054289, -782874301, -399096750, -1740777756, 1763676455, -832683651, 1369376884, 430697050, 1699587749, -1503628097, 856180550, -242424368, -2127251469, 505777937, 257347392, -856180962, 886024169, -1464480485, -1512233174, -1985955764, -425390065, -589669563, 381897980, -790840494, 1136483533, -1535370105, -607934610, 1641470280, -1050403509, 1965932713, 362996216, 1596838182, -1829498303, -1824465965, 1872669058, -417374796, -1713346249, 1818328109, -1284085436, -1981489558, 1940543701, 1673049711, -1514495114, 467096736, 943410531, -1431020031, 1115626864, 965475598, -1718567047, -793788661, -1133789126, -80588996, 2018258047, 1866186709, 42791404, -1823521982, -1345991523, -1672661737, -180777858, -452713416, 1448313627, -1459492743, -600706872, -909649674, -2081822415, -1697455773, 1517613874, -820020092, 188336327, -1149897827, -475203820, -368005702, 204442629, 437854687, 1163191398, -760699920, 104455443, 819708593, 1129180512, 48636670, 1066049161, 398150075, -852036726, -906028436, -1265740817, -1824646107, -2126068516, 1815435954, -146408019, -860012185, -682500466, 1443186536, 1789394795, -1078204151, 809467800, 1514112710, -1097673695, 919601331, -331916766, 795008020, 1042337943, -371219827, 1558967204, 1563528586, -2133607947, -1904454577, -264006826, 770017792, 153477955, 1189667553, -363253680, 1882362030, 967246937, -793119637, -1401964070, 2129232540, -542810977, -1277899019, -377097332, -406748574, -1722157507, -1577740105, -455170210, 372239000, -1535936005, -1332632679, -1623884760, -359633706, 935827793, 1357445123, 997040018, -1506538204, -147930137, -166569923, -2103753036, 1366641946, 30482021, 1876964095, 2008557446, 657856784, -103814733, 774877777, -486350336, -555057442, -1821756119, -963495717, 853311466, 1671241612, -942337841, 409538693, 1992831804, 489867794, 357105933, -1611412921, -1119334354, -1521015416, -2041922421, 2048874089, -700216776, 1651628774, -10471807, 736942611, 380607938, -1742088588, 1124231287, 1232111981, -1801753084, -1608606422, -1172096363, 1420874031, -1210473418, -18317216, -571709789, 1107403201, 1952554416, 1991660750, -442973639, 581522507, -430787078, 1105375484, -1481218753, -748152299, -641535700, 679371266, -591318819, -104578089, -172818754, -1321694984, -98191653, 1709083961, -344680312, -159571914, 581309553, -63938909, 76420082, 951019332, -1797740537, 1291470301, -2079866156, -332493318, -1978392251, -1691039632, 388791868, -1101109484, -1365177662, 321737440, 1812890748, -133313328, -1252731998, 2044530216, 1263927564, 325388220, 520794418, 1449646272, 87560756, -87565624, 426345146, -699970416, 240322284, -1074080172, -1536268654, 1338615584, 478476236, -1933154080, -192786750, 1559942184, -1178330196, -687617348, -1701912078, 352314928, -999229532, -2052800072, -1913644198, -1345416048, 1816730492, -1570431212, -269427390, -2122969344, -520963140, 1398087504, 264692002, -1682658744, -1422452724, -1601893284, -66383406, 1443075584, -456249004, 943694056, -1493184262, -1943836976, -590788308, -405505804, -1796837998, 1991543136, 1170376716, 1707420384, 1899700834, -1643595096, 47299148, 1274857340, -1205842638, -1938479504, -1773978812, 532695000, 1306451834, 258403888, -284747844, -1780705708, 1621936194, 1129070752, 540946108, -294270512, -1426480286, -356302104, 349847756, 1849803260, -1299125774, 511654528, -1259964940, -1879857528, 535666490, -2020097200, -1460751252, 1201879444, -1459788718, 447195616, -730891060, -1875530592, -2146183806, 193274088, -1224605972, 1616153916, -1896973198, -420945808, -1997735900, -1838404552, -413698278, 1984019664, -1760209092, -1288743020, 392579970, -1382567488, -1295004100, -33348208, 1536615970, -428761848, 643368588, -1596336356, 1797431442, 352422272, -1043800556, 60591912, -1115663814, 1043682768, 521144684, 4793268, -1924265966, 978890208, 370048972, -1607474976, -1443637214, -632405720, 691912204, 166321980, 942193650, 751741680, 689743428, -18455976, -1946329286, -1619184144, 239341244, 371382548, -2069808446, 154176608, 385987452, -385611824, 1967391010, 2140654248, 1720087436, -1591007044, -1612486862, 1295747648, 1726784692, 597326408, -973152838, 628505104, -1089631508, 3230036, -593837806, 244006304, 1357912780, 1839234656, -1357570110, 1896595240, -2066952276, -1724304580, 986188146, -1200604368, -279100124, 131128120, -1088465190, 596533136, 170602236, -1051262060, 215660610, -686217984, 444449852, 769655120, 236357794, 181393736, -13334772, 644690652, -1969263278, -2107982720, 1429553236, 794236904, 1997299962, -458224816, 904978220, -537093772, -842839150, 1828989024, -679303796, 1396292448, 76319202, 1896098728, 418430156, 2005956604, 1370351026, -1178923536, -1154073660, -1218863784, 89928058, 816597936, -1141767748, 1579714644, 1343385538, 371259424, -245180228, 365724240, 1606388706, -823678872, 1281309772, 1395210492, 1217887218, 1420531968, 1349501300, 271647752, -69959750, 360452560, 1565334508, 1956526484, -930709038, 1961808224, -1745916084, 443656480, 1990137730, 694374120, -1050566420, -1365842884, -438961294, -1851472272, 614534180, 1401930552, 3652762, 1928284880, -1637703492, 26107540, -132725907, -371944998, -1311388776, 8516097, 741008307, -1149566252, -1802640414, 2019636855, 1587818433, -151040698, 1598381188, -205462987, 1911327, -1382519432, -594809770, -2146766621, -2013964635, -965534910, -2077626064, 1964788057, 1821395659, -1953549508, -719348886, 1442511263, 1969287209, 1754221246, -442299476, 1981692157, 113456199, 1587794736, -1811033010, 1149417595, -1760887843, -1426021878, -1285634264, 1507547537, -1114120317, 1897370756, 1142575794, -375814649, -1661041071, 881081814, -548925260, 2073840837, 1156484623, 2011334280, 1107815334, 969024339, -55972683, 2006780434, -1486403616, 1698650697, 1813794939, -1717763764, 1268815066, -1200630577, -773717863, -12215122, 1354639804, 1213207085, -978295337, 340143136, 485429630, -568148149, 1257440589, 930106234, -883274312, -1632538783, 894748435, -1592959180, -596177598, 120963415, -1174532959, -561474202, 1438545764, 1429911189, 1075965887, 367866712, -892333706, -485158013, -682634811, 963344098, 2110199632, 1990767225, 1348335019, 269581084, -2040640438, 1453561919, 853952649, 1195494558, 1614051660, 2040242461, -1604604761, 1421229008, -1268333714, 174113307, 2044969853, 190112106, -998776824, -2070476623, -2099222749, 1141171236, -146426158, -1797385433, -1129376399, -1496589386, -419561644, -613549595, 1243456495, 451212072, 1923543942, 1146113971, 93579029, -397504142, 597218752, 459048489, 1447221915, -272948372, -373834886, 934888623, -2099351623, -1672042034, 193924380, -704518003, 781993207, -258875392, -1853783458, 1315003691, -41214419, -59447654, 1203745368, 426003905, 452670067, -1092079724, -1765622238, -1882554057, 1278087169, -1994822394, -124954300, 1994460277, 1816829407, -1568282312, 1563616022, 1255996195, 1702121701, 1784032514, 1842995056, 748060441, 1432229643, -1905232900, 2016890922, 1403944031, 351712233, 1338932478, -1359366932, -803018691, -1551885305, 248629232, 1839395726, 1411789243, 840085405, -1849000630, -669518488, -1453417647, -1527179197, -377159356, 1674525170, -313742393, 865377681, -1127426242 1567s [00:52:47.290] Number of chunks: 1 1567s [00:52:47.290] getGlobalsAndPackagesXApply() ... 1567s [00:52:47.290] - future.globals: TRUE 1567s [00:52:47.290] getGlobalsAndPackages() ... 1567s [00:52:47.291] Searching for globals... 1567s [00:52:47.292] - globals found: [2] ‘FUN’, ‘sample’ 1567s [00:52:47.292] Searching for globals ... DONE 1567s [00:52:47.292] Resolving globals: FALSE 1567s [00:52:47.293] The total size of the 1 globals is 616 bytes (616 bytes) 1567s [00:52:47.293] The total size of the 1 globals exported for future expression (‘FUN()’) is 616 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (616 bytes of class ‘function’) 1567s [00:52:47.294] - globals: [1] ‘FUN’ 1567s [00:52:47.294] 1567s [00:52:47.294] getGlobalsAndPackages() ... DONE 1567s [00:52:47.294] - globals found/used: [n=1] ‘FUN’ 1567s [00:52:47.294] - needed namespaces: [n=0] 1567s [00:52:47.294] Finding globals ... DONE 1567s [00:52:47.295] - use_args: TRUE 1567s [00:52:47.295] - Getting '...' globals ... 1567s [00:52:47.295] resolve() on list ... 1567s [00:52:47.295] recursive: 0 1567s [00:52:47.295] length: 1 1567s [00:52:47.295] elements: ‘...’ 1567s [00:52:47.296] length: 0 (resolved future 1) 1567s [00:52:47.296] resolve() on list ... DONE 1567s [00:52:47.296] - '...' content: [n=0] 1567s [00:52:47.296] List of 1 1567s [00:52:47.296] $ ...: list() 1567s [00:52:47.296] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1567s [00:52:47.296] - attr(*, "where")=List of 1 1567s [00:52:47.296] ..$ ...: 1567s [00:52:47.296] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1567s [00:52:47.296] - attr(*, "resolved")= logi TRUE 1567s [00:52:47.296] - attr(*, "total_size")= num NA 1567s [00:52:47.299] - Getting '...' globals ... DONE 1567s [00:52:47.301] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1567s [00:52:47.301] List of 2 1567s [00:52:47.301] $ ...future.FUN:function (...) 1567s [00:52:47.301] $ ... : list() 1567s [00:52:47.301] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1567s [00:52:47.301] - attr(*, "where")=List of 2 1567s [00:52:47.301] ..$ ...future.FUN: 1567s [00:52:47.301] ..$ ... : 1567s [00:52:47.301] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1567s [00:52:47.301] - attr(*, "resolved")= logi FALSE 1567s [00:52:47.301] - attr(*, "total_size")= num 616 1567s [00:52:47.305] Packages to be attached in all futures: [n=0] 1567s [00:52:47.305] getGlobalsAndPackagesXApply() ... DONE 1567s [00:52:47.306] Number of futures (= number of chunks): 1 1567s [00:52:47.306] Launching 1 futures (chunks) ... 1567s [00:52:47.306] Chunk #1 of 1 ... 1567s [00:52:47.306] - Finding globals in 'X' for chunk #1 ... 1567s [00:52:47.306] getGlobalsAndPackages() ... 1567s [00:52:47.306] Searching for globals... 1567s [00:52:47.307] 1567s [00:52:47.307] Searching for globals ... DONE 1567s [00:52:47.307] - globals: [0] 1567s [00:52:47.307] getGlobalsAndPackages() ... DONE 1567s [00:52:47.307] + additional globals found: [n=0] 1567s [00:52:47.308] + additional namespaces needed: [n=0] 1567s [00:52:47.308] - Finding globals in 'X' for chunk #1 ... DONE 1567s [00:52:47.308] - seeds: [5] 1567s [00:52:47.308] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1567s [00:52:47.308] getGlobalsAndPackages() ... 1567s [00:52:47.308] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1567s [00:52:47.309] Resolving globals: FALSE 1567s [00:52:47.309] Tweak future expression to call with '...' arguments ... 1567s [00:52:47.309] { 1567s [00:52:47.309] do.call(function(...) { 1567s [00:52:47.309] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1567s [00:52:47.309] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1567s [00:52:47.309] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1567s [00:52:47.309] on.exit(options(oopts), add = TRUE) 1567s [00:52:47.309] } 1567s [00:52:47.309] { 1567s [00:52:47.309] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1567s [00:52:47.309] ...future.X_jj <- ...future.elements_ii[[jj]] 1567s [00:52:47.309] assign(".Random.seed", ...future.seeds_ii[[jj]], 1567s [00:52:47.309] envir = globalenv(), inherits = FALSE) 1567s [00:52:47.309] ...future.FUN(...future.X_jj, ...) 1567s [00:52:47.309] }) 1567s [00:52:47.309] } 1567s [00:52:47.309] }, args = future.call.arguments) 1567s [00:52:47.309] } 1567s [00:52:47.310] Tweak future expression to call with '...' arguments ... DONE 1567s [00:52:47.310] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1567s [00:52:47.311] 1567s [00:52:47.311] getGlobalsAndPackages() ... DONE 1567s [00:52:47.311] run() for ‘Future’ ... 1567s [00:52:47.312] - state: ‘created’ 1567s [00:52:47.312] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1567s [00:52:47.327] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1567s [00:52:47.328] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1567s [00:52:47.328] - Field: ‘label’ 1567s [00:52:47.328] - Field: ‘local’ 1567s [00:52:47.329] - Field: ‘owner’ 1567s [00:52:47.329] - Field: ‘envir’ 1567s [00:52:47.330] - Field: ‘packages’ 1567s [00:52:47.330] - Field: ‘gc’ 1567s [00:52:47.330] - Field: ‘conditions’ 1567s [00:52:47.330] - Field: ‘expr’ 1567s [00:52:47.330] - Field: ‘uuid’ 1567s [00:52:47.330] - Field: ‘seed’ 1567s [00:52:47.331] - Field: ‘version’ 1567s [00:52:47.331] - Field: ‘result’ 1567s [00:52:47.331] - Field: ‘asynchronous’ 1567s [00:52:47.331] - Field: ‘calls’ 1567s [00:52:47.331] - Field: ‘globals’ 1567s [00:52:47.332] - Field: ‘stdout’ 1567s [00:52:47.332] - Field: ‘earlySignal’ 1567s [00:52:47.332] - Field: ‘lazy’ 1567s [00:52:47.332] - Field: ‘state’ 1567s [00:52:47.332] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1567s [00:52:47.332] - Launch lazy future ... 1567s [00:52:47.333] Packages needed by the future expression (n = 0): 1567s [00:52:47.333] Packages needed by future strategies (n = 0): 1567s [00:52:47.333] { 1567s [00:52:47.333] { 1567s [00:52:47.333] { 1567s [00:52:47.333] ...future.startTime <- base::Sys.time() 1567s [00:52:47.333] { 1567s [00:52:47.333] { 1567s [00:52:47.333] { 1567s [00:52:47.333] base::local({ 1567s [00:52:47.333] has_future <- base::requireNamespace("future", 1567s [00:52:47.333] quietly = TRUE) 1567s [00:52:47.333] if (has_future) { 1567s [00:52:47.333] ns <- base::getNamespace("future") 1567s [00:52:47.333] version <- ns[[".package"]][["version"]] 1567s [00:52:47.333] if (is.null(version)) 1567s [00:52:47.333] version <- utils::packageVersion("future") 1567s [00:52:47.333] } 1567s [00:52:47.333] else { 1567s [00:52:47.333] version <- NULL 1567s [00:52:47.333] } 1567s [00:52:47.333] if (!has_future || version < "1.8.0") { 1567s [00:52:47.333] info <- base::c(r_version = base::gsub("R version ", 1567s [00:52:47.333] "", base::R.version$version.string), 1567s [00:52:47.333] platform = base::sprintf("%s (%s-bit)", 1567s [00:52:47.333] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1567s [00:52:47.333] os = base::paste(base::Sys.info()[base::c("sysname", 1567s [00:52:47.333] "release", "version")], collapse = " "), 1567s [00:52:47.333] hostname = base::Sys.info()[["nodename"]]) 1567s [00:52:47.333] info <- base::sprintf("%s: %s", base::names(info), 1567s [00:52:47.333] info) 1567s [00:52:47.333] info <- base::paste(info, collapse = "; ") 1567s [00:52:47.333] if (!has_future) { 1567s [00:52:47.333] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1567s [00:52:47.333] info) 1567s [00:52:47.333] } 1567s [00:52:47.333] else { 1567s [00:52:47.333] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1567s [00:52:47.333] info, version) 1567s [00:52:47.333] } 1567s [00:52:47.333] base::stop(msg) 1567s [00:52:47.333] } 1567s [00:52:47.333] }) 1567s [00:52:47.333] } 1567s [00:52:47.333] options(future.plan = NULL) 1567s [00:52:47.333] Sys.unsetenv("R_FUTURE_PLAN") 1567s [00:52:47.333] future::plan("default", .cleanup = FALSE, .init = FALSE) 1567s [00:52:47.333] } 1567s [00:52:47.333] ...future.workdir <- getwd() 1567s [00:52:47.333] } 1567s [00:52:47.333] ...future.oldOptions <- base::as.list(base::.Options) 1567s [00:52:47.333] ...future.oldEnvVars <- base::Sys.getenv() 1567s [00:52:47.333] } 1567s [00:52:47.333] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1567s [00:52:47.333] future.globals.maxSize = NULL, future.globals.method = NULL, 1567s [00:52:47.333] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1567s [00:52:47.333] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1567s [00:52:47.333] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1567s [00:52:47.333] future.stdout.windows.reencode = NULL, width = 80L) 1567s [00:52:47.333] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1567s [00:52:47.333] base::names(...future.oldOptions)) 1567s [00:52:47.333] } 1567s [00:52:47.333] if (FALSE) { 1567s [00:52:47.333] } 1567s [00:52:47.333] else { 1567s [00:52:47.333] if (TRUE) { 1567s [00:52:47.333] ...future.stdout <- base::rawConnection(base::raw(0L), 1567s [00:52:47.333] open = "w") 1567s [00:52:47.333] } 1567s [00:52:47.333] else { 1567s [00:52:47.333] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1567s [00:52:47.333] windows = "NUL", "/dev/null"), open = "w") 1567s [00:52:47.333] } 1567s [00:52:47.333] base::sink(...future.stdout, type = "output", split = FALSE) 1567s [00:52:47.333] base::on.exit(if (!base::is.null(...future.stdout)) { 1567s [00:52:47.333] base::sink(type = "output", split = FALSE) 1567s [00:52:47.333] base::close(...future.stdout) 1567s [00:52:47.333] }, add = TRUE) 1567s [00:52:47.333] } 1567s [00:52:47.333] ...future.frame <- base::sys.nframe() 1567s [00:52:47.333] ...future.conditions <- base::list() 1567s [00:52:47.333] ...future.rng <- base::globalenv()$.Random.seed 1567s [00:52:47.333] if (FALSE) { 1567s [00:52:47.333] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1567s [00:52:47.333] "...future.value", "...future.globalenv.names", ".Random.seed") 1567s [00:52:47.333] } 1567s [00:52:47.333] ...future.result <- base::tryCatch({ 1567s [00:52:47.333] base::withCallingHandlers({ 1567s [00:52:47.333] ...future.value <- base::withVisible(base::local({ 1567s [00:52:47.333] do.call(function(...) { 1567s [00:52:47.333] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1567s [00:52:47.333] if (!identical(...future.globals.maxSize.org, 1567s [00:52:47.333] ...future.globals.maxSize)) { 1567s [00:52:47.333] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1567s [00:52:47.333] on.exit(options(oopts), add = TRUE) 1567s [00:52:47.333] } 1567s [00:52:47.333] { 1567s [00:52:47.333] lapply(seq_along(...future.elements_ii), 1567s [00:52:47.333] FUN = function(jj) { 1567s [00:52:47.333] ...future.X_jj <- ...future.elements_ii[[jj]] 1567s [00:52:47.333] assign(".Random.seed", ...future.seeds_ii[[jj]], 1567s [00:52:47.333] envir = globalenv(), inherits = FALSE) 1567s [00:52:47.333] ...future.FUN(...future.X_jj, ...) 1567s [00:52:47.333] }) 1567s [00:52:47.333] } 1567s [00:52:47.333] }, args = future.call.arguments) 1567s [00:52:47.333] })) 1567s [00:52:47.333] future::FutureResult(value = ...future.value$value, 1567s [00:52:47.333] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1567s [00:52:47.333] ...future.rng), globalenv = if (FALSE) 1567s [00:52:47.333] list(added = base::setdiff(base::names(base::.GlobalEnv), 1567s [00:52:47.333] ...future.globalenv.names)) 1567s [00:52:47.333] else NULL, started = ...future.startTime, version = "1.8") 1567s [00:52:47.333] }, condition = base::local({ 1567s [00:52:47.333] c <- base::c 1567s [00:52:47.333] inherits <- base::inherits 1567s [00:52:47.333] invokeRestart <- base::invokeRestart 1567s [00:52:47.333] length <- base::length 1567s [00:52:47.333] list <- base::list 1567s [00:52:47.333] seq.int <- base::seq.int 1567s [00:52:47.333] signalCondition <- base::signalCondition 1567s [00:52:47.333] sys.calls <- base::sys.calls 1567s [00:52:47.333] `[[` <- base::`[[` 1567s [00:52:47.333] `+` <- base::`+` 1567s [00:52:47.333] `<<-` <- base::`<<-` 1567s [00:52:47.333] sysCalls <- function(calls = sys.calls(), from = 1L) { 1567s [00:52:47.333] calls[seq.int(from = from + 12L, to = length(calls) - 1567s [00:52:47.333] 3L)] 1567s [00:52:47.333] } 1567s [00:52:47.333] function(cond) { 1567s [00:52:47.333] is_error <- inherits(cond, "error") 1567s [00:52:47.333] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1567s [00:52:47.333] NULL) 1567s [00:52:47.333] if (is_error) { 1567s [00:52:47.333] sessionInformation <- function() { 1567s [00:52:47.333] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1567s [00:52:47.333] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1567s [00:52:47.333] search = base::search(), system = base::Sys.info()) 1567s [00:52:47.333] } 1567s [00:52:47.333] ...future.conditions[[length(...future.conditions) + 1567s [00:52:47.333] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1567s [00:52:47.333] cond$call), session = sessionInformation(), 1567s [00:52:47.333] timestamp = base::Sys.time(), signaled = 0L) 1567s [00:52:47.333] signalCondition(cond) 1567s [00:52:47.333] } 1567s [00:52:47.333] else if (!ignore && TRUE && inherits(cond, c("condition", 1567s [00:52:47.333] "immediateCondition"))) { 1567s [00:52:47.333] signal <- TRUE && inherits(cond, "immediateCondition") 1567s [00:52:47.333] ...future.conditions[[length(...future.conditions) + 1567s [00:52:47.333] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1567s [00:52:47.333] if (TRUE && !signal) { 1567s [00:52:47.333] muffleCondition <- function (cond, pattern = "^muffle") 1567s [00:52:47.333] { 1567s [00:52:47.333] inherits <- base::inherits 1567s [00:52:47.333] invokeRestart <- base::invokeRestart 1567s [00:52:47.333] is.null <- base::is.null 1567s [00:52:47.333] muffled <- FALSE 1567s [00:52:47.333] if (inherits(cond, "message")) { 1567s [00:52:47.333] muffled <- grepl(pattern, "muffleMessage") 1567s [00:52:47.333] if (muffled) 1567s [00:52:47.333] invokeRestart("muffleMessage") 1567s [00:52:47.333] } 1567s [00:52:47.333] else if (inherits(cond, "warning")) { 1567s [00:52:47.333] muffled <- grepl(pattern, "muffleWarning") 1567s [00:52:47.333] if (muffled) 1567s [00:52:47.333] invokeRestart("muffleWarning") 1567s [00:52:47.333] } 1567s [00:52:47.333] else if (inherits(cond, "condition")) { 1567s [00:52:47.333] if (!is.null(pattern)) { 1567s [00:52:47.333] computeRestarts <- base::computeRestarts 1567s [00:52:47.333] grepl <- base::grepl 1567s [00:52:47.333] restarts <- computeRestarts(cond) 1567s [00:52:47.333] for (restart in restarts) { 1567s [00:52:47.333] name <- restart$name 1567s [00:52:47.333] if (is.null(name)) 1567s [00:52:47.333] next 1567s [00:52:47.333] if (!grepl(pattern, name)) 1567s [00:52:47.333] next 1567s [00:52:47.333] invokeRestart(restart) 1567s [00:52:47.333] muffled <- TRUE 1567s [00:52:47.333] break 1567s [00:52:47.333] } 1567s [00:52:47.333] } 1567s [00:52:47.333] } 1567s [00:52:47.333] invisible(muffled) 1567s [00:52:47.333] } 1567s [00:52:47.333] muffleCondition(cond, pattern = "^muffle") 1567s [00:52:47.333] } 1567s [00:52:47.333] } 1567s [00:52:47.333] else { 1567s [00:52:47.333] if (TRUE) { 1567s [00:52:47.333] muffleCondition <- function (cond, pattern = "^muffle") 1567s [00:52:47.333] { 1567s [00:52:47.333] inherits <- base::inherits 1567s [00:52:47.333] invokeRestart <- base::invokeRestart 1567s [00:52:47.333] is.null <- base::is.null 1567s [00:52:47.333] muffled <- FALSE 1567s [00:52:47.333] if (inherits(cond, "message")) { 1567s [00:52:47.333] muffled <- grepl(pattern, "muffleMessage") 1567s [00:52:47.333] if (muffled) 1567s [00:52:47.333] invokeRestart("muffleMessage") 1567s [00:52:47.333] } 1567s [00:52:47.333] else if (inherits(cond, "warning")) { 1567s [00:52:47.333] muffled <- grepl(pattern, "muffleWarning") 1567s [00:52:47.333] if (muffled) 1567s [00:52:47.333] invokeRestart("muffleWarning") 1567s [00:52:47.333] } 1567s [00:52:47.333] else if (inherits(cond, "condition")) { 1567s [00:52:47.333] if (!is.null(pattern)) { 1567s [00:52:47.333] computeRestarts <- base::computeRestarts 1567s [00:52:47.333] grepl <- base::grepl 1567s [00:52:47.333] restarts <- computeRestarts(cond) 1567s [00:52:47.333] for (restart in restarts) { 1567s [00:52:47.333] name <- restart$name 1567s [00:52:47.333] if (is.null(name)) 1567s [00:52:47.333] next 1567s [00:52:47.333] if (!grepl(pattern, name)) 1567s [00:52:47.333] next 1567s [00:52:47.333] invokeRestart(restart) 1567s [00:52:47.333] muffled <- TRUE 1567s [00:52:47.333] break 1567s [00:52:47.333] } 1567s [00:52:47.333] } 1567s [00:52:47.333] } 1567s [00:52:47.333] invisible(muffled) 1567s [00:52:47.333] } 1567s [00:52:47.333] muffleCondition(cond, pattern = "^muffle") 1567s [00:52:47.333] } 1567s [00:52:47.333] } 1567s [00:52:47.333] } 1567s [00:52:47.333] })) 1567s [00:52:47.333] }, error = function(ex) { 1567s [00:52:47.333] base::structure(base::list(value = NULL, visible = NULL, 1567s [00:52:47.333] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1567s [00:52:47.333] ...future.rng), started = ...future.startTime, 1567s [00:52:47.333] finished = Sys.time(), session_uuid = NA_character_, 1567s [00:52:47.333] version = "1.8"), class = "FutureResult") 1567s [00:52:47.333] }, finally = { 1567s [00:52:47.333] if (!identical(...future.workdir, getwd())) 1567s [00:52:47.333] setwd(...future.workdir) 1567s [00:52:47.333] { 1567s [00:52:47.333] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1567s [00:52:47.333] ...future.oldOptions$nwarnings <- NULL 1567s [00:52:47.333] } 1567s [00:52:47.333] base::options(...future.oldOptions) 1567s [00:52:47.333] if (.Platform$OS.type == "windows") { 1567s [00:52:47.333] old_names <- names(...future.oldEnvVars) 1567s [00:52:47.333] envs <- base::Sys.getenv() 1567s [00:52:47.333] names <- names(envs) 1567s [00:52:47.333] common <- intersect(names, old_names) 1567s [00:52:47.333] added <- setdiff(names, old_names) 1567s [00:52:47.333] removed <- setdiff(old_names, names) 1567s [00:52:47.333] changed <- common[...future.oldEnvVars[common] != 1567s [00:52:47.333] envs[common]] 1567s [00:52:47.333] NAMES <- toupper(changed) 1567s [00:52:47.333] args <- list() 1567s [00:52:47.333] for (kk in seq_along(NAMES)) { 1567s [00:52:47.333] name <- changed[[kk]] 1567s [00:52:47.333] NAME <- NAMES[[kk]] 1567s [00:52:47.333] if (name != NAME && is.element(NAME, old_names)) 1567s [00:52:47.333] next 1567s [00:52:47.333] args[[name]] <- ...future.oldEnvVars[[name]] 1567s [00:52:47.333] } 1567s [00:52:47.333] NAMES <- toupper(added) 1567s [00:52:47.333] for (kk in seq_along(NAMES)) { 1567s [00:52:47.333] name <- added[[kk]] 1567s [00:52:47.333] NAME <- NAMES[[kk]] 1567s [00:52:47.333] if (name != NAME && is.element(NAME, old_names)) 1567s [00:52:47.333] next 1567s [00:52:47.333] args[[name]] <- "" 1567s [00:52:47.333] } 1567s [00:52:47.333] NAMES <- toupper(removed) 1567s [00:52:47.333] for (kk in seq_along(NAMES)) { 1567s [00:52:47.333] name <- removed[[kk]] 1567s [00:52:47.333] NAME <- NAMES[[kk]] 1567s [00:52:47.333] if (name != NAME && is.element(NAME, old_names)) 1567s [00:52:47.333] next 1567s [00:52:47.333] args[[name]] <- ...future.oldEnvVars[[name]] 1567s [00:52:47.333] } 1567s [00:52:47.333] if (length(args) > 0) 1567s [00:52:47.333] base::do.call(base::Sys.setenv, args = args) 1567s [00:52:47.333] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1567s [00:52:47.333] } 1567s [00:52:47.333] else { 1567s [00:52:47.333] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1567s [00:52:47.333] } 1567s [00:52:47.333] { 1567s [00:52:47.333] if (base::length(...future.futureOptionsAdded) > 1567s [00:52:47.333] 0L) { 1567s [00:52:47.333] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1567s [00:52:47.333] base::names(opts) <- ...future.futureOptionsAdded 1567s [00:52:47.333] base::options(opts) 1567s [00:52:47.333] } 1567s [00:52:47.333] { 1567s [00:52:47.333] { 1567s [00:52:47.333] base::assign(".Random.seed", c(10403L, 2L, 1567s [00:52:47.333] 133210212L, 1945833034L, 115858357L, -364452081L, 1567s [00:52:47.333] -390319082L, 926195392L, 2057013379L, -803887967L, 1567s [00:52:47.333] -1078998384L, 705296750L, -1682614503L, 830917547L, 1567s [00:52:47.333] -331376230L, 1352842588L, 1960957023L, 1997081653L, 1567s [00:52:47.333] 374446028L, 1510359842L, 1146109309L, -1295266185L, 1567s [00:52:47.333] -1545472098L, 1268700760L, 1627111355L, -855092903L, 1567s [00:52:47.333] -215790872L, -1958931690L, 1906054289L, -782874301L, 1567s [00:52:47.333] -399096750L, -1740777756L, 1763676455L, -832683651L, 1567s [00:52:47.333] 1369376884L, 430697050L, 1699587749L, -1503628097L, 1567s [00:52:47.333] 856180550L, -242424368L, -2127251469L, 505777937L, 1567s [00:52:47.333] 257347392L, -856180962L, 886024169L, -1464480485L, 1567s [00:52:47.333] -1512233174L, -1985955764L, -425390065L, 1567s [00:52:47.333] -589669563L, 381897980L, -790840494L, 1136483533L, 1567s [00:52:47.333] -1535370105L, -607934610L, 1641470280L, -1050403509L, 1567s [00:52:47.333] 1965932713L, 362996216L, 1596838182L, -1829498303L, 1567s [00:52:47.333] -1824465965L, 1872669058L, -417374796L, -1713346249L, 1567s [00:52:47.333] 1818328109L, -1284085436L, -1981489558L, 1567s [00:52:47.333] 1940543701L, 1673049711L, -1514495114L, 467096736L, 1567s [00:52:47.333] 943410531L, -1431020031L, 1115626864L, 965475598L, 1567s [00:52:47.333] -1718567047L, -793788661L, -1133789126L, 1567s [00:52:47.333] -80588996L, 2018258047L, 1866186709L, 42791404L, 1567s [00:52:47.333] -1823521982L, -1345991523L, -1672661737L, 1567s [00:52:47.333] -180777858L, -452713416L, 1448313627L, -1459492743L, 1567s [00:52:47.333] -600706872L, -909649674L, -2081822415L, -1697455773L, 1567s [00:52:47.333] 1517613874L, -820020092L, 188336327L, -1149897827L, 1567s [00:52:47.333] -475203820L, -368005702L, 204442629L, 437854687L, 1567s [00:52:47.333] 1163191398L, -760699920L, 104455443L, 819708593L, 1567s [00:52:47.333] 1129180512L, 48636670L, 1066049161L, 398150075L, 1567s [00:52:47.333] -852036726L, -906028436L, -1265740817L, -1824646107L, 1567s [00:52:47.333] -2126068516L, 1815435954L, -146408019L, -860012185L, 1567s [00:52:47.333] -682500466L, 1443186536L, 1789394795L, -1078204151L, 1567s [00:52:47.333] 809467800L, 1514112710L, -1097673695L, 919601331L, 1567s [00:52:47.333] -331916766L, 795008020L, 1042337943L, -371219827L, 1567s [00:52:47.333] 1558967204L, 1563528586L, -2133607947L, -1904454577L, 1567s [00:52:47.333] -264006826L, 770017792L, 153477955L, 1189667553L, 1567s [00:52:47.333] -363253680L, 1882362030L, 967246937L, -793119637L, 1567s [00:52:47.333] -1401964070L, 2129232540L, -542810977L, -1277899019L, 1567s [00:52:47.333] -377097332L, -406748574L, -1722157507L, -1577740105L, 1567s [00:52:47.333] -455170210L, 372239000L, -1535936005L, -1332632679L, 1567s [00:52:47.333] -1623884760L, -359633706L, 935827793L, 1357445123L, 1567s [00:52:47.333] 997040018L, -1506538204L, -147930137L, -166569923L, 1567s [00:52:47.333] -2103753036L, 1366641946L, 30482021L, 1876964095L, 1567s [00:52:47.333] 2008557446L, 657856784L, -103814733L, 774877777L, 1567s [00:52:47.333] -486350336L, -555057442L, -1821756119L, -963495717L, 1567s [00:52:47.333] 853311466L, 1671241612L, -942337841L, 409538693L, 1567s [00:52:47.333] 1992831804L, 489867794L, 357105933L, -1611412921L, 1567s [00:52:47.333] -1119334354L, -1521015416L, -2041922421L, 1567s [00:52:47.333] 2048874089L, -700216776L, 1651628774L, -10471807L, 1567s [00:52:47.333] 736942611L, 380607938L, -1742088588L, 1124231287L, 1567s [00:52:47.333] 1232111981L, -1801753084L, -1608606422L, 1567s [00:52:47.333] -1172096363L, 1420874031L, -1210473418L, 1567s [00:52:47.333] -18317216L, -571709789L, 1107403201L, 1952554416L, 1567s [00:52:47.333] 1991660750L, -442973639L, 581522507L, -430787078L, 1567s [00:52:47.333] 1105375484L, -1481218753L, -748152299L, -641535700L, 1567s [00:52:47.333] 679371266L, -591318819L, -104578089L, -172818754L, 1567s [00:52:47.333] -1321694984L, -98191653L, 1709083961L, -344680312L, 1567s [00:52:47.333] -159571914L, 581309553L, -63938909L, 76420082L, 1567s [00:52:47.333] 951019332L, -1797740537L, 1291470301L, -2079866156L, 1567s [00:52:47.333] -332493318L, -1978392251L, -1691039632L, 1567s [00:52:47.333] 388791868L, -1101109484L, -1365177662L, 321737440L, 1567s [00:52:47.333] 1812890748L, -133313328L, -1252731998L, 2044530216L, 1567s [00:52:47.333] 1263927564L, 325388220L, 520794418L, 1449646272L, 1567s [00:52:47.333] 87560756L, -87565624L, 426345146L, -699970416L, 1567s [00:52:47.333] 240322284L, -1074080172L, -1536268654L, 1338615584L, 1567s [00:52:47.333] 478476236L, -1933154080L, -192786750L, 1559942184L, 1567s [00:52:47.333] -1178330196L, -687617348L, -1701912078L, 1567s [00:52:47.333] 352314928L, -999229532L, -2052800072L, -1913644198L, 1567s [00:52:47.333] -1345416048L, 1816730492L, -1570431212L, 1567s [00:52:47.333] -269427390L, -2122969344L, -520963140L, 1398087504L, 1567s [00:52:47.333] 264692002L, -1682658744L, -1422452724L, -1601893284L, 1567s [00:52:47.333] -66383406L, 1443075584L, -456249004L, 943694056L, 1567s [00:52:47.333] -1493184262L, -1943836976L, -590788308L, 1567s [00:52:47.333] -405505804L, -1796837998L, 1991543136L, 1170376716L, 1567s [00:52:47.333] 1707420384L, 1899700834L, -1643595096L, 47299148L, 1567s [00:52:47.333] 1274857340L, -1205842638L, -1938479504L, 1567s [00:52:47.333] -1773978812L, 532695000L, 1306451834L, 258403888L, 1567s [00:52:47.333] -284747844L, -1780705708L, 1621936194L, 1129070752L, 1567s [00:52:47.333] 540946108L, -294270512L, -1426480286L, -356302104L, 1567s [00:52:47.333] 349847756L, 1849803260L, -1299125774L, 511654528L, 1567s [00:52:47.333] -1259964940L, -1879857528L, 535666490L, -2020097200L, 1567s [00:52:47.333] -1460751252L, 1201879444L, -1459788718L, 1567s [00:52:47.333] 447195616L, -730891060L, -1875530592L, -2146183806L, 1567s [00:52:47.333] 193274088L, -1224605972L, 1616153916L, -1896973198L, 1567s [00:52:47.333] -420945808L, -1997735900L, -1838404552L, 1567s [00:52:47.333] -413698278L, 1984019664L, -1760209092L, -1288743020L, 1567s [00:52:47.333] 392579970L, -1382567488L, -1295004100L, -33348208L, 1567s [00:52:47.333] 1536615970L, -428761848L, 643368588L, -1596336356L, 1567s [00:52:47.333] 1797431442L, 352422272L, -1043800556L, 60591912L, 1567s [00:52:47.333] -1115663814L, 1043682768L, 521144684L, 4793268L, 1567s [00:52:47.333] -1924265966L, 978890208L, 370048972L, -1607474976L, 1567s [00:52:47.333] -1443637214L, -632405720L, 691912204L, 166321980L, 1567s [00:52:47.333] 942193650L, 751741680L, 689743428L, -18455976L, 1567s [00:52:47.333] -1946329286L, -1619184144L, 239341244L, 371382548L, 1567s [00:52:47.333] -2069808446L, 154176608L, 385987452L, -385611824L, 1567s [00:52:47.333] 1967391010L, 2140654248L, 1720087436L, -1591007044L, 1567s [00:52:47.333] -1612486862L, 1295747648L, 1726784692L, 597326408L, 1567s [00:52:47.333] -973152838L, 628505104L, -1089631508L, 3230036L, 1567s [00:52:47.333] -593837806L, 244006304L, 1357912780L, 1839234656L, 1567s [00:52:47.333] -1357570110L, 1896595240L, -2066952276L, 1567s [00:52:47.333] -1724304580L, 986188146L, -1200604368L, -279100124L, 1567s [00:52:47.333] 131128120L, -1088465190L, 596533136L, 170602236L, 1567s [00:52:47.333] -1051262060L, 215660610L, -686217984L, 444449852L, 1567s [00:52:47.333] 769655120L, 236357794L, 181393736L, -13334772L, 1567s [00:52:47.333] 644690652L, -1969263278L, -2107982720L, 1429553236L, 1567s [00:52:47.333] 794236904L, 1997299962L, -458224816L, 904978220L, 1567s [00:52:47.333] -537093772L, -842839150L, 1828989024L, -679303796L, 1567s [00:52:47.333] 1396292448L, 76319202L, 1896098728L, 418430156L, 1567s [00:52:47.333] 2005956604L, 1370351026L, -1178923536L, -1154073660L, 1567s [00:52:47.333] -1218863784L, 89928058L, 816597936L, -1141767748L, 1567s [00:52:47.333] 1579714644L, 1343385538L, 371259424L, -245180228L, 1567s [00:52:47.333] 365724240L, 1606388706L, -823678872L, 1281309772L, 1567s [00:52:47.333] 1395210492L, 1217887218L, 1420531968L, 1349501300L, 1567s [00:52:47.333] 271647752L, -69959750L, 360452560L, 1565334508L, 1567s [00:52:47.333] 1956526484L, -930709038L, 1961808224L, -1745916084L, 1567s [00:52:47.333] 443656480L, 1990137730L, 694374120L, -1050566420L, 1567s [00:52:47.333] -1365842884L, -438961294L, -1851472272L, 1567s [00:52:47.333] 614534180L, 1401930552L, 3652762L, 1928284880L, 1567s [00:52:47.333] -1637703492L, 26107540L, -132725907L, -371944998L, 1567s [00:52:47.333] -1311388776L, 8516097L, 741008307L, -1149566252L, 1567s [00:52:47.333] -1802640414L, 2019636855L, 1587818433L, -151040698L, 1567s [00:52:47.333] 1598381188L, -205462987L, 1911327L, -1382519432L, 1567s [00:52:47.333] -594809770L, -2146766621L, -2013964635L, 1567s [00:52:47.333] -965534910L, -2077626064L, 1964788057L, 1821395659L, 1567s [00:52:47.333] -1953549508L, -719348886L, 1442511263L, 1969287209L, 1567s [00:52:47.333] 1754221246L, -442299476L, 1981692157L, 113456199L, 1567s [00:52:47.333] 1587794736L, -1811033010L, 1149417595L, -1760887843L, 1567s [00:52:47.333] -1426021878L, -1285634264L, 1507547537L, 1567s [00:52:47.333] -1114120317L, 1897370756L, 1142575794L, -375814649L, 1567s [00:52:47.333] -1661041071L, 881081814L, -548925260L, 2073840837L, 1567s [00:52:47.333] 1156484623L, 2011334280L, 1107815334L, 969024339L, 1567s [00:52:47.333] -55972683L, 2006780434L, -1486403616L, 1698650697L, 1567s [00:52:47.333] 1813794939L, -1717763764L, 1268815066L, -1200630577L, 1567s [00:52:47.333] -773717863L, -12215122L, 1354639804L, 1213207085L, 1567s [00:52:47.333] -978295337L, 340143136L, 485429630L, -568148149L, 1567s [00:52:47.333] 1257440589L, 930106234L, -883274312L, -1632538783L, 1567s [00:52:47.333] 894748435L, -1592959180L, -596177598L, 120963415L, 1567s [00:52:47.333] -1174532959L, -561474202L, 1438545764L, 1429911189L, 1567s [00:52:47.333] 1075965887L, 367866712L, -892333706L, -485158013L, 1567s [00:52:47.333] -682634811L, 963344098L, 2110199632L, 1990767225L, 1567s [00:52:47.333] 1348335019L, 269581084L, -2040640438L, 1453561919L, 1567s [00:52:47.333] 853952649L, 1195494558L, 1614051660L, 2040242461L, 1567s [00:52:47.333] -1604604761L, 1421229008L, -1268333714L, 1567s [00:52:47.333] 174113307L, 2044969853L, 190112106L, -998776824L, 1567s [00:52:47.333] -2070476623L, -2099222749L, 1141171236L, 1567s [00:52:47.333] -146426158L, -1797385433L, -1129376399L, 1567s [00:52:47.333] -1496589386L, -419561644L, -613549595L, 1243456495L, 1567s [00:52:47.333] 451212072L, 1923543942L, 1146113971L, 93579029L, 1567s [00:52:47.333] -397504142L, 597218752L, 459048489L, 1447221915L, 1567s [00:52:47.333] -272948372L, -373834886L, 934888623L, -2099351623L, 1567s [00:52:47.333] -1672042034L, 193924380L, -704518003L, 781993207L, 1567s [00:52:47.333] -258875392L, -1853783458L, 1315003691L, -41214419L, 1567s [00:52:47.333] -59447654L, 1203745368L, 426003905L, 452670067L, 1567s [00:52:47.333] -1092079724L, -1765622238L, -1882554057L, 1567s [00:52:47.333] 1278087169L, -1994822394L, -124954300L, 1994460277L, 1567s [00:52:47.333] 1816829407L, -1568282312L, 1563616022L, 1255996195L, 1567s [00:52:47.333] 1702121701L, 1784032514L, 1842995056L, 748060441L, 1567s [00:52:47.333] 1432229643L, -1905232900L, 2016890922L, 1403944031L, 1567s [00:52:47.333] 351712233L, 1338932478L, -1359366932L, -803018691L, 1567s [00:52:47.333] -1551885305L, 248629232L, 1839395726L, 1411789243L, 1567s [00:52:47.333] 840085405L, -1849000630L, -669518488L, -1453417647L, 1567s [00:52:47.333] -1527179197L, -377159356L, 1674525170L, -313742393L, 1567s [00:52:47.333] 865377681L, -1127426242L), envir = base::globalenv(), 1567s [00:52:47.333] inherits = FALSE) 1567s [00:52:47.333] NULL 1567s [00:52:47.333] } 1567s [00:52:47.333] options(future.plan = NULL) 1567s [00:52:47.333] if (is.na(NA_character_)) 1567s [00:52:47.333] Sys.unsetenv("R_FUTURE_PLAN") 1567s [00:52:47.333] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1567s [00:52:47.333] future::plan(list(function (..., workers = availableCores(), 1567s [00:52:47.333] lazy = FALSE, rscript_libs = .libPaths(), 1567s [00:52:47.333] envir = parent.frame()) 1567s [00:52:47.333] { 1567s [00:52:47.333] if (is.function(workers)) 1567s [00:52:47.333] workers <- workers() 1567s [00:52:47.333] workers <- structure(as.integer(workers), 1567s [00:52:47.333] class = class(workers)) 1567s [00:52:47.333] stop_if_not(length(workers) == 1, is.finite(workers), 1567s [00:52:47.333] workers >= 1) 1567s [00:52:47.333] if (workers == 1L && !inherits(workers, "AsIs")) { 1567s [00:52:47.333] return(sequential(..., lazy = TRUE, envir = envir)) 1567s [00:52:47.333] } 1567s [00:52:47.333] future <- MultisessionFuture(..., workers = workers, 1567s [00:52:47.333] lazy = lazy, rscript_libs = rscript_libs, 1567s [00:52:47.333] envir = envir) 1567s [00:52:47.333] if (!future$lazy) 1567s [00:52:47.333] future <- run(future) 1567s [00:52:47.333] invisible(future) 1567s [00:52:47.333] }), .cleanup = FALSE, .init = FALSE) 1567s [00:52:47.333] } 1567s [00:52:47.333] } 1567s [00:52:47.333] } 1567s [00:52:47.333] }) 1567s [00:52:47.333] if (TRUE) { 1567s [00:52:47.333] base::sink(type = "output", split = FALSE) 1567s [00:52:47.333] if (TRUE) { 1567s [00:52:47.333] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1567s [00:52:47.333] } 1567s [00:52:47.333] else { 1567s [00:52:47.333] ...future.result["stdout"] <- base::list(NULL) 1567s [00:52:47.333] } 1567s [00:52:47.333] base::close(...future.stdout) 1567s [00:52:47.333] ...future.stdout <- NULL 1567s [00:52:47.333] } 1567s [00:52:47.333] ...future.result$conditions <- ...future.conditions 1567s [00:52:47.333] ...future.result$finished <- base::Sys.time() 1567s [00:52:47.333] ...future.result 1567s [00:52:47.333] } 1567s [00:52:47.340] assign_globals() ... 1567s [00:52:47.340] List of 5 1567s [00:52:47.340] $ ...future.FUN :function (...) 1567s [00:52:47.340] $ future.call.arguments : list() 1567s [00:52:47.340] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1567s [00:52:47.340] $ ...future.elements_ii :List of 5 1567s [00:52:47.340] ..$ : int 0 1567s [00:52:47.340] ..$ : int 0 1567s [00:52:47.340] ..$ : int 0 1567s [00:52:47.340] ..$ : int 0 1567s [00:52:47.340] ..$ : int 0 1567s [00:52:47.340] $ ...future.seeds_ii :List of 5 1567s [00:52:47.340] ..$ : int [1:7] 10407 424279327 242013539 -50536943 1949045882 -966354368 52785545 1567s [00:52:47.340] ..$ : int [1:7] 10407 1259015031 702630336 336295781 836592074 1678845563 -511089912 1567s [00:52:47.340] ..$ : int [1:7] 10407 1164394434 449220430 -1497007122 58661922 77957643 -850372858 1567s [00:52:47.340] ..$ : int [1:7] 10407 -102834055 -568341906 440844328 496378464 1781291461 1929965415 1567s [00:52:47.340] ..$ : int [1:7] 10407 -1584691803 1955381789 -562762208 1163324668 -1514628943 475545435 1567s [00:52:47.340] $ ...future.globals.maxSize: NULL 1567s [00:52:47.340] - attr(*, "where")=List of 5 1567s [00:52:47.340] ..$ ...future.FUN : 1567s [00:52:47.340] ..$ future.call.arguments : 1567s [00:52:47.340] ..$ ...future.elements_ii : 1567s [00:52:47.340] ..$ ...future.seeds_ii : 1567s [00:52:47.340] ..$ ...future.globals.maxSize: 1567s [00:52:47.340] - attr(*, "resolved")= logi FALSE 1567s [00:52:47.340] - attr(*, "total_size")= num 616 1567s [00:52:47.340] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1567s [00:52:47.340] - attr(*, "already-done")= logi TRUE 1567s [00:52:47.350] - reassign environment for ‘...future.FUN’ 1567s [00:52:47.351] - copied ‘...future.FUN’ to environment 1567s [00:52:47.351] - copied ‘future.call.arguments’ to environment 1567s [00:52:47.351] - copied ‘...future.elements_ii’ to environment 1567s [00:52:47.351] - copied ‘...future.seeds_ii’ to environment 1567s [00:52:47.351] - copied ‘...future.globals.maxSize’ to environment 1567s [00:52:47.351] assign_globals() ... done 1567s [00:52:47.352] plan(): Setting new future strategy stack: 1567s [00:52:47.352] List of future strategies: 1567s [00:52:47.352] 1. sequential: 1567s [00:52:47.352] - args: function (..., envir = parent.frame()) 1567s [00:52:47.352] - tweaked: FALSE 1567s [00:52:47.352] - call: NULL 1567s [00:52:47.352] plan(): nbrOfWorkers() = 1 1567s [00:52:47.353] plan(): Setting new future strategy stack: 1567s [00:52:47.353] List of future strategies: 1567s [00:52:47.353] 1. multisession: 1567s [00:52:47.353] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1567s [00:52:47.353] - tweaked: FALSE 1567s [00:52:47.353] - call: plan(strategy) 1567s [00:52:47.356] plan(): nbrOfWorkers() = 1 1567s [00:52:47.357] SequentialFuture started (and completed) 1567s [00:52:47.357] - Launch lazy future ... done 1567s [00:52:47.357] run() for ‘SequentialFuture’ ... done 1567s [00:52:47.357] Created future: 1567s [00:52:47.357] SequentialFuture: 1567s [00:52:47.357] Label: ‘future_replicate-1’ 1567s [00:52:47.357] Expression: 1567s [00:52:47.357] { 1567s [00:52:47.357] do.call(function(...) { 1567s [00:52:47.357] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1567s [00:52:47.357] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1567s [00:52:47.357] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1567s [00:52:47.357] on.exit(options(oopts), add = TRUE) 1567s [00:52:47.357] } 1567s [00:52:47.357] { 1567s [00:52:47.357] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1567s [00:52:47.357] ...future.X_jj <- ...future.elements_ii[[jj]] 1567s [00:52:47.357] assign(".Random.seed", ...future.seeds_ii[[jj]], 1567s [00:52:47.357] envir = globalenv(), inherits = FALSE) 1567s [00:52:47.357] ...future.FUN(...future.X_jj, ...) 1567s [00:52:47.357] }) 1567s [00:52:47.357] } 1567s [00:52:47.357] }, args = future.call.arguments) 1567s [00:52:47.357] } 1567s [00:52:47.357] Lazy evaluation: FALSE 1567s [00:52:47.357] Asynchronous evaluation: FALSE 1567s [00:52:47.357] Local evaluation: TRUE 1567s [00:52:47.357] Environment: R_GlobalEnv 1567s [00:52:47.357] Capture standard output: TRUE 1567s [00:52:47.357] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1567s [00:52:47.357] Globals: 5 objects totaling 1.27 KiB (function ‘...future.FUN’ of 616 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 280 bytes, list ‘...future.seeds_ii’ of 400 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1567s [00:52:47.357] Packages: 1567s [00:52:47.357] L'Ecuyer-CMRG RNG seed: (seed = NULL) 1567s [00:52:47.357] Resolved: TRUE 1567s [00:52:47.357] Value: 280 bytes of class ‘list’ 1567s [00:52:47.357] Early signaling: FALSE 1567s [00:52:47.357] Owner process: 50289bf5-8c9f-f501-15c6-3ca1fa8d82cf 1567s [00:52:47.357] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1567s [00:52:47.360] Chunk #1 of 1 ... DONE 1567s [00:52:47.360] Launching 1 futures (chunks) ... DONE 1567s [00:52:47.361] Resolving 1 futures (chunks) ... 1567s [00:52:47.361] resolve() on list ... 1567s [00:52:47.361] recursive: 0 1567s [00:52:47.361] length: 1 1567s [00:52:47.361] 1567s [00:52:47.361] resolved() for ‘SequentialFuture’ ... 1567s [00:52:47.361] - state: ‘finished’ 1567s [00:52:47.362] - run: TRUE 1567s [00:52:47.362] - result: ‘FutureResult’ 1567s [00:52:47.362] resolved() for ‘SequentialFuture’ ... done 1567s [00:52:47.362] Future #1 1567s [00:52:47.362] signalConditionsASAP(SequentialFuture, pos=1) ... 1567s [00:52:47.362] - nx: 1 1567s [00:52:47.362] - relay: TRUE 1567s [00:52:47.363] - stdout: TRUE 1567s [00:52:47.363] - signal: TRUE 1567s [00:52:47.363] - resignal: FALSE 1567s [00:52:47.363] - force: TRUE 1567s [00:52:47.363] - relayed: [n=1] FALSE 1567s [00:52:47.363] - queued futures: [n=1] FALSE 1567s [00:52:47.363] - until=1 1567s [00:52:47.364] - relaying element #1 1567s [00:52:47.364] - relayed: [n=1] TRUE 1567s [00:52:47.364] - queued futures: [n=1] TRUE 1567s [00:52:47.364] signalConditionsASAP(SequentialFuture, pos=1) ... done 1567s [00:52:47.364] length: 0 (resolved future 1) 1567s [00:52:47.364] Relaying remaining futures 1567s [00:52:47.364] signalConditionsASAP(NULL, pos=0) ... 1567s [00:52:47.365] - nx: 1 1567s [00:52:47.365] - relay: TRUE 1567s [00:52:47.365] - stdout: TRUE 1567s [00:52:47.365] - signal: TRUE 1567s [00:52:47.365] - resignal: FALSE 1567s [00:52:47.365] - force: TRUE 1567s [00:52:47.365] - relayed: [n=1] TRUE 1567s [00:52:47.366] - queued futures: [n=1] TRUE 1567s - flush all 1567s [00:52:47.366] - relayed: [n=1] TRUE 1567s [00:52:47.366] - queued futures: [n=1] TRUE 1567s [00:52:47.366] signalConditionsASAP(NULL, pos=0) ... done 1567s [00:52:47.366] resolve() on list ... DONE 1567s [00:52:47.366] - Number of value chunks collected: 1 1567s [00:52:47.366] Resolving 1 futures (chunks) ... DONE 1567s [00:52:47.367] Reducing values from 1 chunks ... 1567s [00:52:47.367] - Number of values collected after concatenation: 5 1567s [00:52:47.367] - Number of values expected: 5 1567s [00:52:47.367] Reducing values from 1 chunks ... DONE 1567s [00:52:47.367] future_lapply() ... DONE 1567s [00:52:47.367] future_lapply() ... 1567s [00:52:47.368] Generating random seeds ... 1567s [00:52:47.368] Generating random seed streams for 5 elements ... 1567s [00:52:47.368] Generating random seed streams for 5 elements ... DONE 1567s [00:52:47.368] Generating random seeds ... DONE 1567s [00:52:47.369] Will set RNG state on exit: 10403, 4, 133210212, 1945833034, 115858357, -364452081, -390319082, 926195392, 2057013379, -803887967, -1078998384, 705296750, -1682614503, 830917547, -331376230, 1352842588, 1960957023, 1997081653, 374446028, 1510359842, 1146109309, -1295266185, -1545472098, 1268700760, 1627111355, -855092903, -215790872, -1958931690, 1906054289, -782874301, -399096750, -1740777756, 1763676455, -832683651, 1369376884, 430697050, 1699587749, -1503628097, 856180550, -242424368, -2127251469, 505777937, 257347392, -856180962, 886024169, -1464480485, -1512233174, -1985955764, -425390065, -589669563, 381897980, -790840494, 1136483533, -1535370105, -607934610, 1641470280, -1050403509, 1965932713, 362996216, 1596838182, -1829498303, -1824465965, 1872669058, -417374796, -1713346249, 1818328109, -1284085436, -1981489558, 1940543701, 1673049711, -1514495114, 467096736, 943410531, -1431020031, 1115626864, 965475598, -1718567047, -793788661, -1133789126, -80588996, 2018258047, 1866186709, 42791404, -1823521982, -1345991523, -1672661737, -180777858, -452713416, 1448313627, -1459492743, -600706872, -909649674, -2081822415, -1697455773, 1517613874, -820020092, 188336327, -1149897827, -475203820, -368005702, 204442629, 437854687, 1163191398, -760699920, 104455443, 819708593, 1129180512, 48636670, 1066049161, 398150075, -852036726, -906028436, -1265740817, -1824646107, -2126068516, 1815435954, -146408019, -860012185, -682500466, 1443186536, 1789394795, -1078204151, 809467800, 1514112710, -1097673695, 919601331, -331916766, 795008020, 1042337943, -371219827, 1558967204, 1563528586, -2133607947, -1904454577, -264006826, 770017792, 153477955, 1189667553, -363253680, 1882362030, 967246937, -793119637, -1401964070, 2129232540, -542810977, -1277899019, -377097332, -406748574, -1722157507, -1577740105, -455170210, 372239000, -1535936005, -1332632679, -1623884760, -359633706, 935827793, 1357445123, 997040018, -1506538204, -147930137, -166569923, -2103753036, 1366641946, 30482021, 1876964095, 2008557446, 657856784, -103814733, 774877777, -486350336, -555057442, -1821756119, -963495717, 853311466, 1671241612, -942337841, 409538693, 1992831804, 489867794, 357105933, -1611412921, -1119334354, -1521015416, -2041922421, 2048874089, -700216776, 1651628774, -10471807, 736942611, 380607938, -1742088588, 1124231287, 1232111981, -1801753084, -1608606422, -1172096363, 1420874031, -1210473418, -18317216, -571709789, 1107403201, 1952554416, 1991660750, -442973639, 581522507, -430787078, 1105375484, -1481218753, -748152299, -641535700, 679371266, -591318819, -104578089, -172818754, -1321694984, -98191653, 1709083961, -344680312, -159571914, 581309553, -63938909, 76420082, 951019332, -1797740537, 1291470301, -2079866156, -332493318, -1978392251, -1691039632, 388791868, -1101109484, -1365177662, 321737440, 1812890748, -133313328, -1252731998, 2044530216, 1263927564, 325388220, 520794418, 1449646272, 87560756, -87565624, 426345146, -699970416, 240322284, -1074080172, -1536268654, 1338615584, 478476236, -1933154080, -192786750, 1559942184, -1178330196, -687617348, -1701912078, 352314928, -999229532, -2052800072, -1913644198, -1345416048, 1816730492, -1570431212, -269427390, -2122969344, -520963140, 1398087504, 264692002, -1682658744, -1422452724, -1601893284, -66383406, 1443075584, -456249004, 943694056, -1493184262, -1943836976, -590788308, -405505804, -1796837998, 1991543136, 1170376716, 1707420384, 1899700834, -1643595096, 47299148, 1274857340, -1205842638, -1938479504, -1773978812, 532695000, 1306451834, 258403888, -284747844, -1780705708, 1621936194, 1129070752, 540946108, -294270512, -1426480286, -356302104, 349847756, 1849803260, -1299125774, 511654528, -1259964940, -1879857528, 535666490, -2020097200, -1460751252, 1201879444, -1459788718, 447195616, -730891060, -1875530592, -2146183806, 193274088, -1224605972, 1616153916, -1896973198, -420945808, -1997735900, -1838404552, -413698278, 1984019664, -1760209092, -1288743020, 392579970, -1382567488, -1295004100, -33348208, 1536615970, -428761848, 643368588, -1596336356, 1797431442, 352422272, -1043800556, 60591912, -1115663814, 1043682768, 521144684, 4793268, -1924265966, 978890208, 370048972, -1607474976, -1443637214, -632405720, 691912204, 166321980, 942193650, 751741680, 689743428, -18455976, -1946329286, -1619184144, 239341244, 371382548, -2069808446, 154176608, 385987452, -385611824, 1967391010, 2140654248, 1720087436, -1591007044, -1612486862, 1295747648, 1726784692, 597326408, -973152838, 628505104, -1089631508, 3230036, -593837806, 244006304, 1357912780, 1839234656, -1357570110, 1896595240, -2066952276, -1724304580, 986188146, -1200604368, -279100124, 131128120, -1088465190, 596533136, 170602236, -1051262060, 215660610, -686217984, 444449852, 769655120, 236357794, 181393736, -13334772, 644690652, -1969263278, -2107982720, 1429553236, 794236904, 1997299962, -458224816, 904978220, -537093772, -842839150, 1828989024, -679303796, 1396292448, 76319202, 1896098728, 418430156, 2005956604, 1370351026, -1178923536, -1154073660, -1218863784, 89928058, 816597936, -1141767748, 1579714644, 1343385538, 371259424, -245180228, 365724240, 1606388706, -823678872, 1281309772, 1395210492, 1217887218, 1420531968, 1349501300, 271647752, -69959750, 360452560, 1565334508, 1956526484, -930709038, 1961808224, -1745916084, 443656480, 1990137730, 694374120, -1050566420, -1365842884, -438961294, -1851472272, 614534180, 1401930552, 3652762, 1928284880, -1637703492, 26107540, -132725907, -371944998, -1311388776, 8516097, 741008307, -1149566252, -1802640414, 2019636855, 1587818433, -151040698, 1598381188, -205462987, 1911327, -1382519432, -594809770, -2146766621, -2013964635, -965534910, -2077626064, 1964788057, 1821395659, -1953549508, -719348886, 1442511263, 1969287209, 1754221246, -442299476, 1981692157, 113456199, 1587794736, -1811033010, 1149417595, -1760887843, -1426021878, -1285634264, 1507547537, -1114120317, 1897370756, 1142575794, -375814649, -1661041071, 881081814, -548925260, 2073840837, 1156484623, 2011334280, 1107815334, 969024339, -55972683, 2006780434, -1486403616, 1698650697, 1813794939, -1717763764, 1268815066, -1200630577, -773717863, -12215122, 1354639804, 1213207085, -978295337, 340143136, 485429630, -568148149, 1257440589, 930106234, -883274312, -1632538783, 894748435, -1592959180, -596177598, 120963415, -1174532959, -561474202, 1438545764, 1429911189, 1075965887, 367866712, -892333706, -485158013, -682634811, 963344098, 2110199632, 1990767225, 1348335019, 269581084, -2040640438, 1453561919, 853952649, 1195494558, 1614051660, 2040242461, -1604604761, 1421229008, -1268333714, 174113307, 2044969853, 190112106, -998776824, -2070476623, -2099222749, 1141171236, -146426158, -1797385433, -1129376399, -1496589386, -419561644, -613549595, 1243456495, 451212072, 1923543942, 1146113971, 93579029, -397504142, 597218752, 459048489, 1447221915, -272948372, -373834886, 934888623, -2099351623, -1672042034, 193924380, -704518003, 781993207, -258875392, -1853783458, 1315003691, -41214419, -59447654, 1203745368, 426003905, 452670067, -1092079724, -1765622238, -1882554057, 1278087169, -1994822394, -124954300, 1994460277, 1816829407, -1568282312, 1563616022, 1255996195, 1702121701, 1784032514, 1842995056, 748060441, 1432229643, -1905232900, 2016890922, 1403944031, 351712233, 1338932478, -1359366932, -803018691, -1551885305, 248629232, 1839395726, 1411789243, 840085405, -1849000630, -669518488, -1453417647, -1527179197, -377159356, 1674525170, -313742393, 865377681, -1127426242 1567s [00:52:47.374] Number of chunks: 1 1567s [00:52:47.374] getGlobalsAndPackagesXApply() ... 1567s [00:52:47.374] - future.globals: TRUE 1567s [00:52:47.374] getGlobalsAndPackages() ... 1567s [00:52:47.374] Searching for globals... 1567s [00:52:47.376] - globals found: [2] ‘FUN’, ‘sample’ 1567s [00:52:47.376] Searching for globals ... DONE 1567s [00:52:47.376] Resolving globals: FALSE 1567s [00:52:47.376] The total size of the 1 globals is 616 bytes (616 bytes) 1567s [00:52:47.377] The total size of the 1 globals exported for future expression (‘FUN()’) is 616 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (616 bytes of class ‘function’) 1567s [00:52:47.377] - globals: [1] ‘FUN’ 1567s [00:52:47.377] 1567s [00:52:47.377] getGlobalsAndPackages() ... DONE 1567s [00:52:47.377] - globals found/used: [n=1] ‘FUN’ 1567s [00:52:47.377] - needed namespaces: [n=0] 1567s [00:52:47.378] Finding globals ... DONE 1567s [00:52:47.378] - use_args: TRUE 1567s [00:52:47.378] - Getting '...' globals ... 1567s [00:52:47.378] resolve() on list ... 1567s [00:52:47.378] recursive: 0 1567s [00:52:47.378] length: 1 1567s [00:52:47.379] elements: ‘...’ 1567s [00:52:47.379] length: 0 (resolved future 1) 1567s [00:52:47.379] resolve() on list ... DONE 1567s [00:52:47.379] - '...' content: [n=0] 1567s [00:52:47.379] List of 1 1567s [00:52:47.379] $ ...: list() 1567s [00:52:47.379] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1567s [00:52:47.379] - attr(*, "where")=List of 1 1567s [00:52:47.379] ..$ ...: 1567s [00:52:47.379] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1567s [00:52:47.379] - attr(*, "resolved")= logi TRUE 1567s [00:52:47.379] - attr(*, "total_size")= num NA 1567s [00:52:47.382] - Getting '...' globals ... DONE 1567s [00:52:47.382] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1567s [00:52:47.383] List of 2 1567s [00:52:47.383] $ ...future.FUN:function (...) 1567s [00:52:47.383] $ ... : list() 1567s [00:52:47.383] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1567s [00:52:47.383] - attr(*, "where")=List of 2 1567s [00:52:47.383] ..$ ...future.FUN: 1567s [00:52:47.383] ..$ ... : 1567s [00:52:47.383] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1567s [00:52:47.383] - attr(*, "resolved")= logi FALSE 1567s [00:52:47.383] - attr(*, "total_size")= num 616 1567s [00:52:47.386] Packages to be attached in all futures: [n=0] 1567s [00:52:47.386] getGlobalsAndPackagesXApply() ... DONE 1567s [00:52:47.386] Number of futures (= number of chunks): 1 1567s [00:52:47.386] Launching 1 futures (chunks) ... 1567s [00:52:47.386] Chunk #1 of 1 ... 1567s [00:52:47.387] - Finding globals in 'X' for chunk #1 ... 1567s [00:52:47.387] getGlobalsAndPackages() ... 1567s [00:52:47.387] Searching for globals... 1567s [00:52:47.387] 1567s [00:52:47.387] Searching for globals ... DONE 1567s [00:52:47.387] - globals: [0] 1567s [00:52:47.388] getGlobalsAndPackages() ... DONE 1567s [00:52:47.388] + additional globals found: [n=0] 1567s [00:52:47.388] + additional namespaces needed: [n=0] 1567s [00:52:47.388] - Finding globals in 'X' for chunk #1 ... DONE 1567s [00:52:47.388] - seeds: [5] 1567s [00:52:47.388] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1567s [00:52:47.388] getGlobalsAndPackages() ... 1567s [00:52:47.388] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1567s [00:52:47.389] Resolving globals: FALSE 1567s [00:52:47.389] Tweak future expression to call with '...' arguments ... 1567s [00:52:47.389] { 1567s [00:52:47.389] do.call(function(...) { 1567s [00:52:47.389] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1567s [00:52:47.389] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1567s [00:52:47.389] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1567s [00:52:47.389] on.exit(options(oopts), add = TRUE) 1567s [00:52:47.389] } 1567s [00:52:47.389] { 1567s [00:52:47.389] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1567s [00:52:47.389] ...future.X_jj <- ...future.elements_ii[[jj]] 1567s [00:52:47.389] assign(".Random.seed", ...future.seeds_ii[[jj]], 1567s [00:52:47.389] envir = globalenv(), inherits = FALSE) 1567s [00:52:47.389] ...future.FUN(...future.X_jj, ...) 1567s [00:52:47.389] }) 1567s [00:52:47.389] } 1567s [00:52:47.389] }, args = future.call.arguments) 1567s [00:52:47.389] } 1567s [00:52:47.389] Tweak future expression to call with '...' arguments ... DONE 1567s [00:52:47.390] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1567s [00:52:47.390] 1567s [00:52:47.390] getGlobalsAndPackages() ... DONE 1567s [00:52:47.390] run() for ‘Future’ ... 1567s [00:52:47.390] - state: ‘created’ 1567s [00:52:47.391] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1567s [00:52:47.394] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1567s [00:52:47.394] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1567s [00:52:47.394] - Field: ‘label’ 1567s [00:52:47.394] - Field: ‘local’ 1567s [00:52:47.394] - Field: ‘owner’ 1567s [00:52:47.395] - Field: ‘envir’ 1567s [00:52:47.395] - Field: ‘packages’ 1567s [00:52:47.395] - Field: ‘gc’ 1567s [00:52:47.395] - Field: ‘conditions’ 1567s [00:52:47.396] - Field: ‘expr’ 1567s [00:52:47.397] - Field: ‘uuid’ 1567s [00:52:47.397] - Field: ‘seed’ 1567s [00:52:47.397] - Field: ‘version’ 1567s [00:52:47.397] - Field: ‘result’ 1567s [00:52:47.397] - Field: ‘asynchronous’ 1567s [00:52:47.397] - Field: ‘calls’ 1567s [00:52:47.398] - Field: ‘globals’ 1567s [00:52:47.398] - Field: ‘stdout’ 1567s [00:52:47.398] - Field: ‘earlySignal’ 1567s [00:52:47.398] - Field: ‘lazy’ 1567s [00:52:47.398] - Field: ‘state’ 1567s [00:52:47.398] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1567s [00:52:47.398] - Launch lazy future ... 1567s [00:52:47.399] Packages needed by the future expression (n = 0): 1567s [00:52:47.399] Packages needed by future strategies (n = 0): 1567s [00:52:47.399] { 1567s [00:52:47.399] { 1567s [00:52:47.399] { 1567s [00:52:47.399] ...future.startTime <- base::Sys.time() 1567s [00:52:47.399] { 1567s [00:52:47.399] { 1567s [00:52:47.399] { 1567s [00:52:47.399] base::local({ 1567s [00:52:47.399] has_future <- base::requireNamespace("future", 1567s [00:52:47.399] quietly = TRUE) 1567s [00:52:47.399] if (has_future) { 1567s [00:52:47.399] ns <- base::getNamespace("future") 1567s [00:52:47.399] version <- ns[[".package"]][["version"]] 1567s [00:52:47.399] if (is.null(version)) 1567s [00:52:47.399] version <- utils::packageVersion("future") 1567s [00:52:47.399] } 1567s [00:52:47.399] else { 1567s [00:52:47.399] version <- NULL 1567s [00:52:47.399] } 1567s [00:52:47.399] if (!has_future || version < "1.8.0") { 1567s [00:52:47.399] info <- base::c(r_version = base::gsub("R version ", 1567s [00:52:47.399] "", base::R.version$version.string), 1567s [00:52:47.399] platform = base::sprintf("%s (%s-bit)", 1567s [00:52:47.399] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1567s [00:52:47.399] os = base::paste(base::Sys.info()[base::c("sysname", 1567s [00:52:47.399] "release", "version")], collapse = " "), 1567s [00:52:47.399] hostname = base::Sys.info()[["nodename"]]) 1567s [00:52:47.399] info <- base::sprintf("%s: %s", base::names(info), 1567s [00:52:47.399] info) 1567s [00:52:47.399] info <- base::paste(info, collapse = "; ") 1567s [00:52:47.399] if (!has_future) { 1567s [00:52:47.399] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1567s [00:52:47.399] info) 1567s [00:52:47.399] } 1567s [00:52:47.399] else { 1567s [00:52:47.399] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1567s [00:52:47.399] info, version) 1567s [00:52:47.399] } 1567s [00:52:47.399] base::stop(msg) 1567s [00:52:47.399] } 1567s [00:52:47.399] }) 1567s [00:52:47.399] } 1567s [00:52:47.399] options(future.plan = NULL) 1567s [00:52:47.399] Sys.unsetenv("R_FUTURE_PLAN") 1567s [00:52:47.399] future::plan("default", .cleanup = FALSE, .init = FALSE) 1567s [00:52:47.399] } 1567s [00:52:47.399] ...future.workdir <- getwd() 1567s [00:52:47.399] } 1567s [00:52:47.399] ...future.oldOptions <- base::as.list(base::.Options) 1567s [00:52:47.399] ...future.oldEnvVars <- base::Sys.getenv() 1567s [00:52:47.399] } 1567s [00:52:47.399] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1567s [00:52:47.399] future.globals.maxSize = NULL, future.globals.method = NULL, 1567s [00:52:47.399] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1567s [00:52:47.399] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1567s [00:52:47.399] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1567s [00:52:47.399] future.stdout.windows.reencode = NULL, width = 80L) 1567s [00:52:47.399] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1567s [00:52:47.399] base::names(...future.oldOptions)) 1567s [00:52:47.399] } 1567s [00:52:47.399] if (FALSE) { 1567s [00:52:47.399] } 1567s [00:52:47.399] else { 1567s [00:52:47.399] if (TRUE) { 1567s [00:52:47.399] ...future.stdout <- base::rawConnection(base::raw(0L), 1567s [00:52:47.399] open = "w") 1567s [00:52:47.399] } 1567s [00:52:47.399] else { 1567s [00:52:47.399] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1567s [00:52:47.399] windows = "NUL", "/dev/null"), open = "w") 1567s [00:52:47.399] } 1567s [00:52:47.399] base::sink(...future.stdout, type = "output", split = FALSE) 1567s [00:52:47.399] base::on.exit(if (!base::is.null(...future.stdout)) { 1567s [00:52:47.399] base::sink(type = "output", split = FALSE) 1567s [00:52:47.399] base::close(...future.stdout) 1567s [00:52:47.399] }, add = TRUE) 1567s [00:52:47.399] } 1567s [00:52:47.399] ...future.frame <- base::sys.nframe() 1567s [00:52:47.399] ...future.conditions <- base::list() 1567s [00:52:47.399] ...future.rng <- base::globalenv()$.Random.seed 1567s [00:52:47.399] if (FALSE) { 1567s [00:52:47.399] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1567s [00:52:47.399] "...future.value", "...future.globalenv.names", ".Random.seed") 1567s [00:52:47.399] } 1567s [00:52:47.399] ...future.result <- base::tryCatch({ 1567s [00:52:47.399] base::withCallingHandlers({ 1567s [00:52:47.399] ...future.value <- base::withVisible(base::local({ 1567s [00:52:47.399] do.call(function(...) { 1567s [00:52:47.399] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1567s [00:52:47.399] if (!identical(...future.globals.maxSize.org, 1567s [00:52:47.399] ...future.globals.maxSize)) { 1567s [00:52:47.399] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1567s [00:52:47.399] on.exit(options(oopts), add = TRUE) 1567s [00:52:47.399] } 1567s [00:52:47.399] { 1567s [00:52:47.399] lapply(seq_along(...future.elements_ii), 1567s [00:52:47.399] FUN = function(jj) { 1567s [00:52:47.399] ...future.X_jj <- ...future.elements_ii[[jj]] 1567s [00:52:47.399] assign(".Random.seed", ...future.seeds_ii[[jj]], 1567s [00:52:47.399] envir = globalenv(), inherits = FALSE) 1567s [00:52:47.399] ...future.FUN(...future.X_jj, ...) 1567s [00:52:47.399] }) 1567s [00:52:47.399] } 1567s [00:52:47.399] }, args = future.call.arguments) 1567s [00:52:47.399] })) 1567s [00:52:47.399] future::FutureResult(value = ...future.value$value, 1567s [00:52:47.399] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1567s [00:52:47.399] ...future.rng), globalenv = if (FALSE) 1567s [00:52:47.399] list(added = base::setdiff(base::names(base::.GlobalEnv), 1567s [00:52:47.399] ...future.globalenv.names)) 1567s [00:52:47.399] else NULL, started = ...future.startTime, version = "1.8") 1567s [00:52:47.399] }, condition = base::local({ 1567s [00:52:47.399] c <- base::c 1567s [00:52:47.399] inherits <- base::inherits 1567s [00:52:47.399] invokeRestart <- base::invokeRestart 1567s [00:52:47.399] length <- base::length 1567s [00:52:47.399] list <- base::list 1567s [00:52:47.399] seq.int <- base::seq.int 1567s [00:52:47.399] signalCondition <- base::signalCondition 1567s [00:52:47.399] sys.calls <- base::sys.calls 1567s [00:52:47.399] `[[` <- base::`[[` 1567s [00:52:47.399] `+` <- base::`+` 1567s [00:52:47.399] `<<-` <- base::`<<-` 1567s [00:52:47.399] sysCalls <- function(calls = sys.calls(), from = 1L) { 1567s [00:52:47.399] calls[seq.int(from = from + 12L, to = length(calls) - 1567s [00:52:47.399] 3L)] 1567s [00:52:47.399] } 1567s [00:52:47.399] function(cond) { 1567s [00:52:47.399] is_error <- inherits(cond, "error") 1567s [00:52:47.399] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1567s [00:52:47.399] NULL) 1567s [00:52:47.399] if (is_error) { 1567s [00:52:47.399] sessionInformation <- function() { 1567s [00:52:47.399] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1567s [00:52:47.399] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1567s [00:52:47.399] search = base::search(), system = base::Sys.info()) 1567s [00:52:47.399] } 1567s [00:52:47.399] ...future.conditions[[length(...future.conditions) + 1567s [00:52:47.399] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1567s [00:52:47.399] cond$call), session = sessionInformation(), 1567s [00:52:47.399] timestamp = base::Sys.time(), signaled = 0L) 1567s [00:52:47.399] signalCondition(cond) 1567s [00:52:47.399] } 1567s [00:52:47.399] else if (!ignore && TRUE && inherits(cond, c("condition", 1567s [00:52:47.399] "immediateCondition"))) { 1567s [00:52:47.399] signal <- TRUE && inherits(cond, "immediateCondition") 1567s [00:52:47.399] ...future.conditions[[length(...future.conditions) + 1567s [00:52:47.399] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1567s [00:52:47.399] if (TRUE && !signal) { 1567s [00:52:47.399] muffleCondition <- function (cond, pattern = "^muffle") 1567s [00:52:47.399] { 1567s [00:52:47.399] inherits <- base::inherits 1567s [00:52:47.399] invokeRestart <- base::invokeRestart 1567s [00:52:47.399] is.null <- base::is.null 1567s [00:52:47.399] muffled <- FALSE 1567s [00:52:47.399] if (inherits(cond, "message")) { 1567s [00:52:47.399] muffled <- grepl(pattern, "muffleMessage") 1567s [00:52:47.399] if (muffled) 1567s [00:52:47.399] invokeRestart("muffleMessage") 1567s [00:52:47.399] } 1567s [00:52:47.399] else if (inherits(cond, "warning")) { 1567s [00:52:47.399] muffled <- grepl(pattern, "muffleWarning") 1567s [00:52:47.399] if (muffled) 1567s [00:52:47.399] invokeRestart("muffleWarning") 1567s [00:52:47.399] } 1567s [00:52:47.399] else if (inherits(cond, "condition")) { 1567s [00:52:47.399] if (!is.null(pattern)) { 1567s [00:52:47.399] computeRestarts <- base::computeRestarts 1567s [00:52:47.399] grepl <- base::grepl 1567s [00:52:47.399] restarts <- computeRestarts(cond) 1567s [00:52:47.399] for (restart in restarts) { 1567s [00:52:47.399] name <- restart$name 1567s [00:52:47.399] if (is.null(name)) 1567s [00:52:47.399] next 1567s [00:52:47.399] if (!grepl(pattern, name)) 1567s [00:52:47.399] next 1567s [00:52:47.399] invokeRestart(restart) 1567s [00:52:47.399] muffled <- TRUE 1567s [00:52:47.399] break 1567s [00:52:47.399] } 1567s [00:52:47.399] } 1567s [00:52:47.399] } 1567s [00:52:47.399] invisible(muffled) 1567s [00:52:47.399] } 1567s [00:52:47.399] muffleCondition(cond, pattern = "^muffle") 1567s [00:52:47.399] } 1567s [00:52:47.399] } 1567s [00:52:47.399] else { 1567s [00:52:47.399] if (TRUE) { 1567s [00:52:47.399] muffleCondition <- function (cond, pattern = "^muffle") 1567s [00:52:47.399] { 1567s [00:52:47.399] inherits <- base::inherits 1567s [00:52:47.399] invokeRestart <- base::invokeRestart 1567s [00:52:47.399] is.null <- base::is.null 1567s [00:52:47.399] muffled <- FALSE 1567s [00:52:47.399] if (inherits(cond, "message")) { 1567s [00:52:47.399] muffled <- grepl(pattern, "muffleMessage") 1567s [00:52:47.399] if (muffled) 1567s [00:52:47.399] invokeRestart("muffleMessage") 1567s [00:52:47.399] } 1567s [00:52:47.399] else if (inherits(cond, "warning")) { 1567s [00:52:47.399] muffled <- grepl(pattern, "muffleWarning") 1567s [00:52:47.399] if (muffled) 1567s [00:52:47.399] invokeRestart("muffleWarning") 1567s [00:52:47.399] } 1567s [00:52:47.399] else if (inherits(cond, "condition")) { 1567s [00:52:47.399] if (!is.null(pattern)) { 1567s [00:52:47.399] computeRestarts <- base::computeRestarts 1567s [00:52:47.399] grepl <- base::grepl 1567s [00:52:47.399] restarts <- computeRestarts(cond) 1567s [00:52:47.399] for (restart in restarts) { 1567s [00:52:47.399] name <- restart$name 1567s [00:52:47.399] if (is.null(name)) 1567s [00:52:47.399] next 1567s [00:52:47.399] if (!grepl(pattern, name)) 1567s [00:52:47.399] next 1567s [00:52:47.399] invokeRestart(restart) 1567s [00:52:47.399] muffled <- TRUE 1567s [00:52:47.399] break 1567s [00:52:47.399] } 1567s [00:52:47.399] } 1567s [00:52:47.399] } 1567s [00:52:47.399] invisible(muffled) 1567s [00:52:47.399] } 1567s [00:52:47.399] muffleCondition(cond, pattern = "^muffle") 1567s [00:52:47.399] } 1567s [00:52:47.399] } 1567s [00:52:47.399] } 1567s [00:52:47.399] })) 1567s [00:52:47.399] }, error = function(ex) { 1567s [00:52:47.399] base::structure(base::list(value = NULL, visible = NULL, 1567s [00:52:47.399] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1567s [00:52:47.399] ...future.rng), started = ...future.startTime, 1567s [00:52:47.399] finished = Sys.time(), session_uuid = NA_character_, 1567s [00:52:47.399] version = "1.8"), class = "FutureResult") 1567s [00:52:47.399] }, finally = { 1567s [00:52:47.399] if (!identical(...future.workdir, getwd())) 1567s [00:52:47.399] setwd(...future.workdir) 1567s [00:52:47.399] { 1567s [00:52:47.399] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1567s [00:52:47.399] ...future.oldOptions$nwarnings <- NULL 1567s [00:52:47.399] } 1567s [00:52:47.399] base::options(...future.oldOptions) 1567s [00:52:47.399] if (.Platform$OS.type == "windows") { 1567s [00:52:47.399] old_names <- names(...future.oldEnvVars) 1567s [00:52:47.399] envs <- base::Sys.getenv() 1567s [00:52:47.399] names <- names(envs) 1567s [00:52:47.399] common <- intersect(names, old_names) 1567s [00:52:47.399] added <- setdiff(names, old_names) 1567s [00:52:47.399] removed <- setdiff(old_names, names) 1567s [00:52:47.399] changed <- common[...future.oldEnvVars[common] != 1567s [00:52:47.399] envs[common]] 1567s [00:52:47.399] NAMES <- toupper(changed) 1567s [00:52:47.399] args <- list() 1567s [00:52:47.399] for (kk in seq_along(NAMES)) { 1567s [00:52:47.399] name <- changed[[kk]] 1567s [00:52:47.399] NAME <- NAMES[[kk]] 1567s [00:52:47.399] if (name != NAME && is.element(NAME, old_names)) 1567s [00:52:47.399] next 1567s [00:52:47.399] args[[name]] <- ...future.oldEnvVars[[name]] 1567s [00:52:47.399] } 1567s [00:52:47.399] NAMES <- toupper(added) 1567s [00:52:47.399] for (kk in seq_along(NAMES)) { 1567s [00:52:47.399] name <- added[[kk]] 1567s [00:52:47.399] NAME <- NAMES[[kk]] 1567s [00:52:47.399] if (name != NAME && is.element(NAME, old_names)) 1567s [00:52:47.399] next 1567s [00:52:47.399] args[[name]] <- "" 1567s [00:52:47.399] } 1567s [00:52:47.399] NAMES <- toupper(removed) 1567s [00:52:47.399] for (kk in seq_along(NAMES)) { 1567s [00:52:47.399] name <- removed[[kk]] 1567s [00:52:47.399] NAME <- NAMES[[kk]] 1567s [00:52:47.399] if (name != NAME && is.element(NAME, old_names)) 1567s [00:52:47.399] next 1567s [00:52:47.399] args[[name]] <- ...future.oldEnvVars[[name]] 1567s [00:52:47.399] } 1567s [00:52:47.399] if (length(args) > 0) 1567s [00:52:47.399] base::do.call(base::Sys.setenv, args = args) 1567s [00:52:47.399] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1567s [00:52:47.399] } 1567s [00:52:47.399] else { 1567s [00:52:47.399] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1567s [00:52:47.399] } 1567s [00:52:47.399] { 1567s [00:52:47.399] if (base::length(...future.futureOptionsAdded) > 1567s [00:52:47.399] 0L) { 1567s [00:52:47.399] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1567s [00:52:47.399] base::names(opts) <- ...future.futureOptionsAdded 1567s [00:52:47.399] base::options(opts) 1567s [00:52:47.399] } 1567s [00:52:47.399] { 1567s [00:52:47.399] { 1567s [00:52:47.399] base::assign(".Random.seed", c(10403L, 4L, 1567s [00:52:47.399] 133210212L, 1945833034L, 115858357L, -364452081L, 1567s [00:52:47.399] -390319082L, 926195392L, 2057013379L, -803887967L, 1567s [00:52:47.399] -1078998384L, 705296750L, -1682614503L, 830917547L, 1567s [00:52:47.399] -331376230L, 1352842588L, 1960957023L, 1997081653L, 1567s [00:52:47.399] 374446028L, 1510359842L, 1146109309L, -1295266185L, 1567s [00:52:47.399] -1545472098L, 1268700760L, 1627111355L, -855092903L, 1567s [00:52:47.399] -215790872L, -1958931690L, 1906054289L, -782874301L, 1567s [00:52:47.399] -399096750L, -1740777756L, 1763676455L, -832683651L, 1567s [00:52:47.399] 1369376884L, 430697050L, 1699587749L, -1503628097L, 1567s [00:52:47.399] 856180550L, -242424368L, -2127251469L, 505777937L, 1567s [00:52:47.399] 257347392L, -856180962L, 886024169L, -1464480485L, 1567s [00:52:47.399] -1512233174L, -1985955764L, -425390065L, 1567s [00:52:47.399] -589669563L, 381897980L, -790840494L, 1136483533L, 1567s [00:52:47.399] -1535370105L, -607934610L, 1641470280L, -1050403509L, 1567s [00:52:47.399] 1965932713L, 362996216L, 1596838182L, -1829498303L, 1567s [00:52:47.399] -1824465965L, 1872669058L, -417374796L, -1713346249L, 1567s [00:52:47.399] 1818328109L, -1284085436L, -1981489558L, 1567s [00:52:47.399] 1940543701L, 1673049711L, -1514495114L, 467096736L, 1567s [00:52:47.399] 943410531L, -1431020031L, 1115626864L, 965475598L, 1567s [00:52:47.399] -1718567047L, -793788661L, -1133789126L, 1567s [00:52:47.399] -80588996L, 2018258047L, 1866186709L, 42791404L, 1567s [00:52:47.399] -1823521982L, -1345991523L, -1672661737L, 1567s [00:52:47.399] -180777858L, -452713416L, 1448313627L, -1459492743L, 1567s [00:52:47.399] -600706872L, -909649674L, -2081822415L, -1697455773L, 1567s [00:52:47.399] 1517613874L, -820020092L, 188336327L, -1149897827L, 1567s [00:52:47.399] -475203820L, -368005702L, 204442629L, 437854687L, 1567s [00:52:47.399] 1163191398L, -760699920L, 104455443L, 819708593L, 1567s [00:52:47.399] 1129180512L, 48636670L, 1066049161L, 398150075L, 1567s [00:52:47.399] -852036726L, -906028436L, -1265740817L, -1824646107L, 1567s [00:52:47.399] -2126068516L, 1815435954L, -146408019L, -860012185L, 1567s [00:52:47.399] -682500466L, 1443186536L, 1789394795L, -1078204151L, 1567s [00:52:47.399] 809467800L, 1514112710L, -1097673695L, 919601331L, 1567s [00:52:47.399] -331916766L, 795008020L, 1042337943L, -371219827L, 1567s [00:52:47.399] 1558967204L, 1563528586L, -2133607947L, -1904454577L, 1567s [00:52:47.399] -264006826L, 770017792L, 153477955L, 1189667553L, 1567s [00:52:47.399] -363253680L, 1882362030L, 967246937L, -793119637L, 1567s [00:52:47.399] -1401964070L, 2129232540L, -542810977L, -1277899019L, 1567s [00:52:47.399] -377097332L, -406748574L, -1722157507L, -1577740105L, 1567s [00:52:47.399] -455170210L, 372239000L, -1535936005L, -1332632679L, 1567s [00:52:47.399] -1623884760L, -359633706L, 935827793L, 1357445123L, 1567s [00:52:47.399] 997040018L, -1506538204L, -147930137L, -166569923L, 1567s [00:52:47.399] -2103753036L, 1366641946L, 30482021L, 1876964095L, 1567s [00:52:47.399] 2008557446L, 657856784L, -103814733L, 774877777L, 1567s [00:52:47.399] -486350336L, -555057442L, -1821756119L, -963495717L, 1567s [00:52:47.399] 853311466L, 1671241612L, -942337841L, 409538693L, 1567s [00:52:47.399] 1992831804L, 489867794L, 357105933L, -1611412921L, 1567s [00:52:47.399] -1119334354L, -1521015416L, -2041922421L, 1567s [00:52:47.399] 2048874089L, -700216776L, 1651628774L, -10471807L, 1567s [00:52:47.399] 736942611L, 380607938L, -1742088588L, 1124231287L, 1567s [00:52:47.399] 1232111981L, -1801753084L, -1608606422L, 1567s [00:52:47.399] -1172096363L, 1420874031L, -1210473418L, 1567s [00:52:47.399] -18317216L, -571709789L, 1107403201L, 1952554416L, 1567s [00:52:47.399] 1991660750L, -442973639L, 581522507L, -430787078L, 1567s [00:52:47.399] 1105375484L, -1481218753L, -748152299L, -641535700L, 1567s [00:52:47.399] 679371266L, -591318819L, -104578089L, -172818754L, 1567s [00:52:47.399] -1321694984L, -98191653L, 1709083961L, -344680312L, 1567s [00:52:47.399] -159571914L, 581309553L, -63938909L, 76420082L, 1567s [00:52:47.399] 951019332L, -1797740537L, 1291470301L, -2079866156L, 1567s [00:52:47.399] -332493318L, -1978392251L, -1691039632L, 1567s [00:52:47.399] 388791868L, -1101109484L, -1365177662L, 321737440L, 1567s [00:52:47.399] 1812890748L, -133313328L, -1252731998L, 2044530216L, 1567s [00:52:47.399] 1263927564L, 325388220L, 520794418L, 1449646272L, 1567s [00:52:47.399] 87560756L, -87565624L, 426345146L, -699970416L, 1567s [00:52:47.399] 240322284L, -1074080172L, -1536268654L, 1338615584L, 1567s [00:52:47.399] 478476236L, -1933154080L, -192786750L, 1559942184L, 1567s [00:52:47.399] -1178330196L, -687617348L, -1701912078L, 1567s [00:52:47.399] 352314928L, -999229532L, -2052800072L, -1913644198L, 1567s [00:52:47.399] -1345416048L, 1816730492L, -1570431212L, 1567s [00:52:47.399] -269427390L, -2122969344L, -520963140L, 1398087504L, 1567s [00:52:47.399] 264692002L, -1682658744L, -1422452724L, -1601893284L, 1567s [00:52:47.399] -66383406L, 1443075584L, -456249004L, 943694056L, 1567s [00:52:47.399] -1493184262L, -1943836976L, -590788308L, 1567s [00:52:47.399] -405505804L, -1796837998L, 1991543136L, 1170376716L, 1567s [00:52:47.399] 1707420384L, 1899700834L, -1643595096L, 47299148L, 1567s [00:52:47.399] 1274857340L, -1205842638L, -1938479504L, 1567s [00:52:47.399] -1773978812L, 532695000L, 1306451834L, 258403888L, 1567s [00:52:47.399] -284747844L, -1780705708L, 1621936194L, 1129070752L, 1567s [00:52:47.399] 540946108L, -294270512L, -1426480286L, -356302104L, 1567s [00:52:47.399] 349847756L, 1849803260L, -1299125774L, 511654528L, 1567s [00:52:47.399] -1259964940L, -1879857528L, 535666490L, -2020097200L, 1567s [00:52:47.399] -1460751252L, 1201879444L, -1459788718L, 1567s [00:52:47.399] 447195616L, -730891060L, -1875530592L, -2146183806L, 1567s [00:52:47.399] 193274088L, -1224605972L, 1616153916L, -1896973198L, 1567s [00:52:47.399] -420945808L, -1997735900L, -1838404552L, 1567s [00:52:47.399] -413698278L, 1984019664L, -1760209092L, -1288743020L, 1567s [00:52:47.399] 392579970L, -1382567488L, -1295004100L, -33348208L, 1567s [00:52:47.399] 1536615970L, -428761848L, 643368588L, -1596336356L, 1567s [00:52:47.399] 1797431442L, 352422272L, -1043800556L, 60591912L, 1567s [00:52:47.399] -1115663814L, 1043682768L, 521144684L, 4793268L, 1567s [00:52:47.399] -1924265966L, 978890208L, 370048972L, -1607474976L, 1567s [00:52:47.399] -1443637214L, -632405720L, 691912204L, 166321980L, 1567s [00:52:47.399] 942193650L, 751741680L, 689743428L, -18455976L, 1567s [00:52:47.399] -1946329286L, -1619184144L, 239341244L, 371382548L, 1567s [00:52:47.399] -2069808446L, 154176608L, 385987452L, -385611824L, 1567s [00:52:47.399] 1967391010L, 2140654248L, 1720087436L, -1591007044L, 1567s [00:52:47.399] -1612486862L, 1295747648L, 1726784692L, 597326408L, 1567s [00:52:47.399] -973152838L, 628505104L, -1089631508L, 3230036L, 1567s [00:52:47.399] -593837806L, 244006304L, 1357912780L, 1839234656L, 1567s [00:52:47.399] -1357570110L, 1896595240L, -2066952276L, 1567s [00:52:47.399] -1724304580L, 986188146L, -1200604368L, -279100124L, 1567s [00:52:47.399] 131128120L, -1088465190L, 596533136L, 170602236L, 1567s [00:52:47.399] -1051262060L, 215660610L, -686217984L, 444449852L, 1567s [00:52:47.399] 769655120L, 236357794L, 181393736L, -13334772L, 1567s [00:52:47.399] 644690652L, -1969263278L, -2107982720L, 1429553236L, 1567s [00:52:47.399] 794236904L, 1997299962L, -458224816L, 904978220L, 1567s [00:52:47.399] -537093772L, -842839150L, 1828989024L, -679303796L, 1567s [00:52:47.399] 1396292448L, 76319202L, 1896098728L, 418430156L, 1567s [00:52:47.399] 2005956604L, 1370351026L, -1178923536L, -1154073660L, 1567s [00:52:47.399] -1218863784L, 89928058L, 816597936L, -1141767748L, 1567s [00:52:47.399] 1579714644L, 1343385538L, 371259424L, -245180228L, 1567s [00:52:47.399] 365724240L, 1606388706L, -823678872L, 1281309772L, 1567s [00:52:47.399] 1395210492L, 1217887218L, 1420531968L, 1349501300L, 1567s [00:52:47.399] 271647752L, -69959750L, 360452560L, 1565334508L, 1567s [00:52:47.399] 1956526484L, -930709038L, 1961808224L, -1745916084L, 1567s [00:52:47.399] 443656480L, 1990137730L, 694374120L, -1050566420L, 1567s [00:52:47.399] -1365842884L, -438961294L, -1851472272L, 1567s [00:52:47.399] 614534180L, 1401930552L, 3652762L, 1928284880L, 1567s [00:52:47.399] -1637703492L, 26107540L, -132725907L, -371944998L, 1567s [00:52:47.399] -1311388776L, 8516097L, 741008307L, -1149566252L, 1567s [00:52:47.399] -1802640414L, 2019636855L, 1587818433L, -151040698L, 1567s [00:52:47.399] 1598381188L, -205462987L, 1911327L, -1382519432L, 1567s [00:52:47.399] -594809770L, -2146766621L, -2013964635L, 1567s [00:52:47.399] -965534910L, -2077626064L, 1964788057L, 1821395659L, 1567s [00:52:47.399] -1953549508L, -719348886L, 1442511263L, 1969287209L, 1567s [00:52:47.399] 1754221246L, -442299476L, 1981692157L, 113456199L, 1567s [00:52:47.399] 1587794736L, -1811033010L, 1149417595L, -1760887843L, 1567s [00:52:47.399] -1426021878L, -1285634264L, 1507547537L, 1567s [00:52:47.399] -1114120317L, 1897370756L, 1142575794L, -375814649L, 1567s [00:52:47.399] -1661041071L, 881081814L, -548925260L, 2073840837L, 1567s [00:52:47.399] 1156484623L, 2011334280L, 1107815334L, 969024339L, 1567s [00:52:47.399] -55972683L, 2006780434L, -1486403616L, 1698650697L, 1567s [00:52:47.399] 1813794939L, -1717763764L, 1268815066L, -1200630577L, 1567s [00:52:47.399] -773717863L, -12215122L, 1354639804L, 1213207085L, 1567s [00:52:47.399] -978295337L, 340143136L, 485429630L, -568148149L, 1567s [00:52:47.399] 1257440589L, 930106234L, -883274312L, -1632538783L, 1567s [00:52:47.399] 894748435L, -1592959180L, -596177598L, 120963415L, 1567s [00:52:47.399] -1174532959L, -561474202L, 1438545764L, 1429911189L, 1567s [00:52:47.399] 1075965887L, 367866712L, -892333706L, -485158013L, 1567s [00:52:47.399] -682634811L, 963344098L, 2110199632L, 1990767225L, 1567s [00:52:47.399] 1348335019L, 269581084L, -2040640438L, 1453561919L, 1567s [00:52:47.399] 853952649L, 1195494558L, 1614051660L, 2040242461L, 1567s [00:52:47.399] -1604604761L, 1421229008L, -1268333714L, 1567s [00:52:47.399] 174113307L, 2044969853L, 190112106L, -998776824L, 1567s [00:52:47.399] -2070476623L, -2099222749L, 1141171236L, 1567s [00:52:47.399] -146426158L, -1797385433L, -1129376399L, 1567s [00:52:47.399] -1496589386L, -419561644L, -613549595L, 1243456495L, 1567s [00:52:47.399] 451212072L, 1923543942L, 1146113971L, 93579029L, 1567s [00:52:47.399] -397504142L, 597218752L, 459048489L, 1447221915L, 1567s [00:52:47.399] -272948372L, -373834886L, 934888623L, -2099351623L, 1567s [00:52:47.399] -1672042034L, 193924380L, -704518003L, 781993207L, 1567s [00:52:47.399] -258875392L, -1853783458L, 1315003691L, -41214419L, 1567s [00:52:47.399] -59447654L, 1203745368L, 426003905L, 452670067L, 1567s [00:52:47.399] -1092079724L, -1765622238L, -1882554057L, 1567s [00:52:47.399] 1278087169L, -1994822394L, -124954300L, 1994460277L, 1567s [00:52:47.399] 1816829407L, -1568282312L, 1563616022L, 1255996195L, 1567s [00:52:47.399] 1702121701L, 1784032514L, 1842995056L, 748060441L, 1567s [00:52:47.399] 1432229643L, -1905232900L, 2016890922L, 1403944031L, 1567s [00:52:47.399] 351712233L, 1338932478L, -1359366932L, -803018691L, 1567s [00:52:47.399] -1551885305L, 248629232L, 1839395726L, 1411789243L, 1567s [00:52:47.399] 840085405L, -1849000630L, -669518488L, -1453417647L, 1567s [00:52:47.399] -1527179197L, -377159356L, 1674525170L, -313742393L, 1567s [00:52:47.399] 865377681L, -1127426242L), envir = base::globalenv(), 1567s [00:52:47.399] inherits = FALSE) 1567s [00:52:47.399] NULL 1567s [00:52:47.399] } 1567s [00:52:47.399] options(future.plan = NULL) 1567s [00:52:47.399] if (is.na(NA_character_)) 1567s [00:52:47.399] Sys.unsetenv("R_FUTURE_PLAN") 1567s [00:52:47.399] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1567s [00:52:47.399] future::plan(list(function (..., workers = availableCores(), 1567s [00:52:47.399] lazy = FALSE, rscript_libs = .libPaths(), 1567s [00:52:47.399] envir = parent.frame()) 1567s [00:52:47.399] { 1567s [00:52:47.399] if (is.function(workers)) 1567s [00:52:47.399] workers <- workers() 1567s [00:52:47.399] workers <- structure(as.integer(workers), 1567s [00:52:47.399] class = class(workers)) 1567s [00:52:47.399] stop_if_not(length(workers) == 1, is.finite(workers), 1567s [00:52:47.399] workers >= 1) 1567s [00:52:47.399] if (workers == 1L && !inherits(workers, "AsIs")) { 1567s [00:52:47.399] return(sequential(..., lazy = TRUE, envir = envir)) 1567s [00:52:47.399] } 1567s [00:52:47.399] future <- MultisessionFuture(..., workers = workers, 1567s [00:52:47.399] lazy = lazy, rscript_libs = rscript_libs, 1567s [00:52:47.399] envir = envir) 1567s [00:52:47.399] if (!future$lazy) 1567s [00:52:47.399] future <- run(future) 1567s [00:52:47.399] invisible(future) 1567s [00:52:47.399] }), .cleanup = FALSE, .init = FALSE) 1567s [00:52:47.399] } 1567s [00:52:47.399] } 1567s [00:52:47.399] } 1567s [00:52:47.399] }) 1567s [00:52:47.399] if (TRUE) { 1567s [00:52:47.399] base::sink(type = "output", split = FALSE) 1567s [00:52:47.399] if (TRUE) { 1567s [00:52:47.399] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1567s [00:52:47.399] } 1567s [00:52:47.399] else { 1567s [00:52:47.399] ...future.result["stdout"] <- base::list(NULL) 1567s [00:52:47.399] } 1567s [00:52:47.399] base::close(...future.stdout) 1567s [00:52:47.399] ...future.stdout <- NULL 1567s [00:52:47.399] } 1567s [00:52:47.399] ...future.result$conditions <- ...future.conditions 1567s [00:52:47.399] ...future.result$finished <- base::Sys.time() 1567s [00:52:47.399] ...future.result 1567s [00:52:47.399] } 1567s [00:52:47.408] assign_globals() ... 1567s [00:52:47.408] List of 5 1567s [00:52:47.408] $ ...future.FUN :function (...) 1567s [00:52:47.408] $ future.call.arguments : list() 1567s [00:52:47.408] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1567s [00:52:47.408] $ ...future.elements_ii :List of 5 1567s [00:52:47.408] ..$ : int 0 1567s [00:52:47.408] ..$ : int 0 1567s [00:52:47.408] ..$ : int 0 1567s [00:52:47.408] ..$ : int 0 1567s [00:52:47.408] ..$ : int 0 1567s [00:52:47.408] $ ...future.seeds_ii :List of 5 1567s [00:52:47.408] ..$ : int [1:7] 10407 1242173061 -1150840343 -834448425 701050094 -1369558043 -650964284 1567s [00:52:47.408] ..$ : int [1:7] 10407 859061261 1088872332 -1371790091 -942478768 -889560561 1393381402 1567s [00:52:47.408] ..$ : int [1:7] 10407 -1977952646 362645338 -1927542548 -742448269 -2030870718 1472975712 1567s [00:52:47.408] ..$ : int [1:7] 10407 -781199300 -1470244364 -1435938985 -1154922760 795337516 2089908040 1567s [00:52:47.408] ..$ : int [1:7] 10407 -1281561623 1745663508 -502066495 1003795914 -1805763079 -205768335 1567s [00:52:47.408] $ ...future.globals.maxSize: NULL 1567s [00:52:47.408] - attr(*, "where")=List of 5 1567s [00:52:47.408] ..$ ...future.FUN : 1567s [00:52:47.408] ..$ future.call.arguments : 1567s [00:52:47.408] ..$ ...future.elements_ii : 1567s [00:52:47.408] ..$ ...future.seeds_ii : 1567s [00:52:47.408] ..$ ...future.globals.maxSize: 1567s [00:52:47.408] - attr(*, "resolved")= logi FALSE 1567s [00:52:47.408] - attr(*, "total_size")= num 616 1567s [00:52:47.408] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1567s [00:52:47.408] - attr(*, "already-done")= logi TRUE 1567s [00:52:47.419] - reassign environment for ‘...future.FUN’ 1567s [00:52:47.419] - copied ‘...future.FUN’ to environment 1567s [00:52:47.419] - copied ‘future.call.arguments’ to environment 1567s [00:52:47.419] - copied ‘...future.elements_ii’ to environment 1567s [00:52:47.419] - copied ‘...future.seeds_ii’ to environment 1567s [00:52:47.420] - copied ‘...future.globals.maxSize’ to environment 1567s [00:52:47.420] assign_globals() ... done 1567s [00:52:47.421] plan(): Setting new future strategy stack: 1567s [00:52:47.421] List of future strategies: 1567s [00:52:47.421] 1. sequential: 1567s [00:52:47.421] - args: function (..., envir = parent.frame()) 1567s [00:52:47.421] - tweaked: FALSE 1567s [00:52:47.421] - call: NULL 1567s [00:52:47.421] plan(): nbrOfWorkers() = 1 1567s [00:52:47.422] plan(): Setting new future strategy stack: 1567s [00:52:47.422] List of future strategies: 1567s [00:52:47.422] 1. multisession: 1567s [00:52:47.422] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1567s [00:52:47.422] - tweaked: FALSE 1567s [00:52:47.422] - call: plan(strategy) 1567s [00:52:47.425] plan(): nbrOfWorkers() = 1 1567s [00:52:47.426] SequentialFuture started (and completed) 1567s [00:52:47.426] - Launch lazy future ... done 1567s [00:52:47.426] run() for ‘SequentialFuture’ ... done 1567s [00:52:47.426] Created future: 1567s [00:52:47.426] SequentialFuture: 1567s [00:52:47.426] Label: ‘future_replicate-1’ 1567s [00:52:47.426] Expression: 1567s [00:52:47.426] { 1567s [00:52:47.426] do.call(function(...) { 1567s [00:52:47.426] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1567s [00:52:47.426] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1567s [00:52:47.426] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1567s [00:52:47.426] on.exit(options(oopts), add = TRUE) 1567s [00:52:47.426] } 1567s [00:52:47.426] { 1567s [00:52:47.426] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1567s [00:52:47.426] ...future.X_jj <- ...future.elements_ii[[jj]] 1567s [00:52:47.426] assign(".Random.seed", ...future.seeds_ii[[jj]], 1567s [00:52:47.426] envir = globalenv(), inherits = FALSE) 1567s [00:52:47.426] ...future.FUN(...future.X_jj, ...) 1567s [00:52:47.426] }) 1567s [00:52:47.426] } 1567s [00:52:47.426] }, args = future.call.arguments) 1567s [00:52:47.426] } 1567s [00:52:47.426] Lazy evaluation: FALSE 1567s [00:52:47.426] Asynchronous evaluation: FALSE 1567s [00:52:47.426] Local evaluation: TRUE 1567s [00:52:47.426] Environment: R_GlobalEnv 1567s [00:52:47.426] Capture standard output: TRUE 1567s [00:52:47.426] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1567s [00:52:47.426] Globals: 5 objects totaling 1.27 KiB (function ‘...future.FUN’ of 616 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 280 bytes, list ‘...future.seeds_ii’ of 400 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1567s [00:52:47.426] Packages: 1567s [00:52:47.426] L'Ecuyer-CMRG RNG seed: (seed = NULL) 1567s [00:52:47.426] Resolved: TRUE 1567s [00:52:47.426] Value: 280 bytes of class ‘list’ 1567s [00:52:47.426] Early signaling: FALSE 1567s [00:52:47.426] Owner process: 50289bf5-8c9f-f501-15c6-3ca1fa8d82cf 1567s [00:52:47.426] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1567s [00:52:47.428] Chunk #1 of 1 ... DONE 1567s [00:52:47.428] Launching 1 futures (chunks) ... DONE 1567s [00:52:47.428] Resolving 1 futures (chunks) ... 1567s [00:52:47.428] resolve() on list ... 1567s [00:52:47.428] recursive: 0 1567s [00:52:47.429] length: 1 1567s [00:52:47.429] 1567s [00:52:47.429] resolved() for ‘SequentialFuture’ ... 1567s [00:52:47.429] - state: ‘finished’ 1567s [00:52:47.429] - run: TRUE 1567s [00:52:47.429] - result: ‘FutureResult’ 1567s [00:52:47.429] resolved() for ‘SequentialFuture’ ... done 1567s [00:52:47.429] Future #1 1567s [00:52:47.429] signalConditionsASAP(SequentialFuture, pos=1) ... 1567s [00:52:47.430] - nx: 1 1567s [00:52:47.430] - relay: TRUE 1567s [00:52:47.430] - stdout: TRUE 1567s [00:52:47.430] - signal: TRUE 1567s [00:52:47.430] - resignal: FALSE 1567s [00:52:47.430] - force: TRUE 1567s [00:52:47.430] - relayed: [n=1] FALSE 1567s [00:52:47.431] - queued futures: [n=1] FALSE 1567s [00:52:47.431] - until=1 1567s [00:52:47.431] - relaying element #1 1567s [00:52:47.431] - relayed: [n=1] TRUE 1567s [00:52:47.431] - queued futures: [n=1] TRUE 1567s [00:52:47.431] signalConditionsASAP(SequentialFuture, pos=1) ... done 1567s [00:52:47.432] length: 0 (resolved future 1) 1567s [00:52:47.432] Relaying remaining futures 1567s [00:52:47.432] signalConditionsASAP(NULL, pos=0) ... 1567s [00:52:47.432] - nx: 1 1567s [00:52:47.432] - relay: TRUE 1567s [00:52:47.432] - stdout: TRUE 1567s [00:52:47.432] - signal: TRUE 1567s [00:52:47.432] - resignal: FALSE 1567s [00:52:47.432] - force: TRUE 1567s [00:52:47.433] - relayed: [n=1] TRUE 1567s [00:52:47.433] - queued futures: [n=1] TRUE 1567s - flush all 1567s [00:52:47.433] - relayed: [n=1] TRUE 1567s [00:52:47.433] - queued futures: [n=1] TRUE 1567s [00:52:47.433] signalConditionsASAP(NULL, pos=0) ... done 1567s [00:52:47.433] resolve() on list ... DONE 1567s [00:52:47.433] - Number of value chunks collected: 1 1567s [00:52:47.433] Resolving 1 futures (chunks) ... DONE 1567s [00:52:47.434] Reducing values from 1 chunks ... 1567s [00:52:47.434] - Number of values collected after concatenation: 5 1567s [00:52:47.434] - Number of values expected: 5 1567s [00:52:47.434] Reducing values from 1 chunks ... DONE 1567s [00:52:47.434] future_lapply() ... DONE 1567s [00:52:47.434] future_lapply() ... 1567s [00:52:47.435] Generating random seeds ... 1567s [00:52:47.435] Generating random seed streams for 5 elements ... 1567s [00:52:47.435] Generating random seed streams for 5 elements ... DONE 1567s [00:52:47.435] Generating random seeds ... DONE 1567s [00:52:47.435] Will set RNG state on exit: 10403, 6, 133210212, 1945833034, 115858357, -364452081, -390319082, 926195392, 2057013379, -803887967, -1078998384, 705296750, -1682614503, 830917547, -331376230, 1352842588, 1960957023, 1997081653, 374446028, 1510359842, 1146109309, -1295266185, -1545472098, 1268700760, 1627111355, -855092903, -215790872, -1958931690, 1906054289, -782874301, -399096750, -1740777756, 1763676455, -832683651, 1369376884, 430697050, 1699587749, -1503628097, 856180550, -242424368, -2127251469, 505777937, 257347392, -856180962, 886024169, -1464480485, -1512233174, -1985955764, -425390065, -589669563, 381897980, -790840494, 1136483533, -1535370105, -607934610, 1641470280, -1050403509, 1965932713, 362996216, 1596838182, -1829498303, -1824465965, 1872669058, -417374796, -1713346249, 1818328109, -1284085436, -1981489558, 1940543701, 1673049711, -1514495114, 467096736, 943410531, -1431020031, 1115626864, 965475598, -1718567047, -793788661, -1133789126, -80588996, 2018258047, 1866186709, 42791404, -1823521982, -1345991523, -1672661737, -180777858, -452713416, 1448313627, -1459492743, -600706872, -909649674, -2081822415, -1697455773, 1517613874, -820020092, 188336327, -1149897827, -475203820, -368005702, 204442629, 437854687, 1163191398, -760699920, 104455443, 819708593, 1129180512, 48636670, 1066049161, 398150075, -852036726, -906028436, -1265740817, -1824646107, -2126068516, 1815435954, -146408019, -860012185, -682500466, 1443186536, 1789394795, -1078204151, 809467800, 1514112710, -1097673695, 919601331, -331916766, 795008020, 1042337943, -371219827, 1558967204, 1563528586, -2133607947, -1904454577, -264006826, 770017792, 153477955, 1189667553, -363253680, 1882362030, 967246937, -793119637, -1401964070, 2129232540, -542810977, -1277899019, -377097332, -406748574, -1722157507, -1577740105, -455170210, 372239000, -1535936005, -1332632679, -1623884760, -359633706, 935827793, 1357445123, 997040018, -1506538204, -147930137, -166569923, -2103753036, 1366641946, 30482021, 1876964095, 2008557446, 657856784, -103814733, 774877777, -486350336, -555057442, -1821756119, -963495717, 853311466, 1671241612, -942337841, 409538693, 1992831804, 489867794, 357105933, -1611412921, -1119334354, -1521015416, -2041922421, 2048874089, -700216776, 1651628774, -10471807, 736942611, 380607938, -1742088588, 1124231287, 1232111981, -1801753084, -1608606422, -1172096363, 1420874031, -1210473418, -18317216, -571709789, 1107403201, 1952554416, 1991660750, -442973639, 581522507, -430787078, 1105375484, -1481218753, -748152299, -641535700, 679371266, -591318819, -104578089, -172818754, -1321694984, -98191653, 1709083961, -344680312, -159571914, 581309553, -63938909, 76420082, 951019332, -1797740537, 1291470301, -2079866156, -332493318, -1978392251, -1691039632, 388791868, -1101109484, -1365177662, 321737440, 1812890748, -133313328, -1252731998, 2044530216, 1263927564, 325388220, 520794418, 1449646272, 87560756, -87565624, 426345146, -699970416, 240322284, -1074080172, -1536268654, 1338615584, 478476236, -1933154080, -192786750, 1559942184, -1178330196, -687617348, -1701912078, 352314928, -999229532, -2052800072, -1913644198, -1345416048, 1816730492, -1570431212, -269427390, -2122969344, -520963140, 1398087504, 264692002, -1682658744, -1422452724, -1601893284, -66383406, 1443075584, -456249004, 943694056, -1493184262, -1943836976, -590788308, -405505804, -1796837998, 1991543136, 1170376716, 1707420384, 1899700834, -1643595096, 47299148, 1274857340, -1205842638, -1938479504, -1773978812, 532695000, 1306451834, 258403888, -284747844, -1780705708, 1621936194, 1129070752, 540946108, -294270512, -1426480286, -356302104, 349847756, 1849803260, -1299125774, 511654528, -1259964940, -1879857528, 535666490, -2020097200, -1460751252, 1201879444, -1459788718, 447195616, -730891060, -1875530592, -2146183806, 193274088, -1224605972, 1616153916, -1896973198, -420945808, -1997735900, -1838404552, -413698278, 1984019664, -1760209092, -1288743020, 392579970, -1382567488, -1295004100, -33348208, 1536615970, -428761848, 643368588, -1596336356, 1797431442, 352422272, -1043800556, 60591912, -1115663814, 1043682768, 521144684, 4793268, -1924265966, 978890208, 370048972, -1607474976, -1443637214, -632405720, 691912204, 166321980, 942193650, 751741680, 689743428, -18455976, -1946329286, -1619184144, 239341244, 371382548, -2069808446, 154176608, 385987452, -385611824, 1967391010, 2140654248, 1720087436, -1591007044, -1612486862, 1295747648, 1726784692, 597326408, -973152838, 628505104, -1089631508, 3230036, -593837806, 244006304, 1357912780, 1839234656, -1357570110, 1896595240, -2066952276, -1724304580, 986188146, -1200604368, -279100124, 131128120, -1088465190, 596533136, 170602236, -1051262060, 215660610, -686217984, 444449852, 769655120, 236357794, 181393736, -13334772, 644690652, -1969263278, -2107982720, 1429553236, 794236904, 1997299962, -458224816, 904978220, -537093772, -842839150, 1828989024, -679303796, 1396292448, 76319202, 1896098728, 418430156, 2005956604, 1370351026, -1178923536, -1154073660, -1218863784, 89928058, 816597936, -1141767748, 1579714644, 1343385538, 371259424, -245180228, 365724240, 1606388706, -823678872, 1281309772, 1395210492, 1217887218, 1420531968, 1349501300, 271647752, -69959750, 360452560, 1565334508, 1956526484, -930709038, 1961808224, -1745916084, 443656480, 1990137730, 694374120, -1050566420, -1365842884, -438961294, -1851472272, 614534180, 1401930552, 3652762, 1928284880, -1637703492, 26107540, -132725907, -371944998, -1311388776, 8516097, 741008307, -1149566252, -1802640414, 2019636855, 1587818433, -151040698, 1598381188, -205462987, 1911327, -1382519432, -594809770, -2146766621, -2013964635, -965534910, -2077626064, 1964788057, 1821395659, -1953549508, -719348886, 1442511263, 1969287209, 1754221246, -442299476, 1981692157, 113456199, 1587794736, -1811033010, 1149417595, -1760887843, -1426021878, -1285634264, 1507547537, -1114120317, 1897370756, 1142575794, -375814649, -1661041071, 881081814, -548925260, 2073840837, 1156484623, 2011334280, 1107815334, 969024339, -55972683, 2006780434, -1486403616, 1698650697, 1813794939, -1717763764, 1268815066, -1200630577, -773717863, -12215122, 1354639804, 1213207085, -978295337, 340143136, 485429630, -568148149, 1257440589, 930106234, -883274312, -1632538783, 894748435, -1592959180, -596177598, 120963415, -1174532959, -561474202, 1438545764, 1429911189, 1075965887, 367866712, -892333706, -485158013, -682634811, 963344098, 2110199632, 1990767225, 1348335019, 269581084, -2040640438, 1453561919, 853952649, 1195494558, 1614051660, 2040242461, -1604604761, 1421229008, -1268333714, 174113307, 2044969853, 190112106, -998776824, -2070476623, -2099222749, 1141171236, -146426158, -1797385433, -1129376399, -1496589386, -419561644, -613549595, 1243456495, 451212072, 1923543942, 1146113971, 93579029, -397504142, 597218752, 459048489, 1447221915, -272948372, -373834886, 934888623, -2099351623, -1672042034, 193924380, -704518003, 781993207, -258875392, -1853783458, 1315003691, -41214419, -59447654, 1203745368, 426003905, 452670067, -1092079724, -1765622238, -1882554057, 1278087169, -1994822394, -124954300, 1994460277, 1816829407, -1568282312, 1563616022, 1255996195, 1702121701, 1784032514, 1842995056, 748060441, 1432229643, -1905232900, 2016890922, 1403944031, 351712233, 1338932478, -1359366932, -803018691, -1551885305, 248629232, 1839395726, 1411789243, 840085405, -1849000630, -669518488, -1453417647, -1527179197, -377159356, 1674525170, -313742393, 865377681, -1127426242 1567s [00:52:47.439] Number of chunks: 1 1567s [00:52:47.439] getGlobalsAndPackagesXApply() ... 1567s [00:52:47.439] - future.globals: TRUE 1567s [00:52:47.439] getGlobalsAndPackages() ... 1567s [00:52:47.439] Searching for globals... 1567s [00:52:47.442] - globals found: [2] ‘FUN’, ‘sample’ 1567s [00:52:47.442] Searching for globals ... DONE 1567s [00:52:47.442] Resolving globals: FALSE 1567s [00:52:47.443] The total size of the 1 globals is 616 bytes (616 bytes) 1567s [00:52:47.443] The total size of the 1 globals exported for future expression (‘FUN()’) is 616 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (616 bytes of class ‘function’) 1567s [00:52:47.444] - globals: [1] ‘FUN’ 1567s [00:52:47.444] 1567s [00:52:47.444] getGlobalsAndPackages() ... DONE 1567s [00:52:47.444] - globals found/used: [n=1] ‘FUN’ 1567s [00:52:47.445] - needed namespaces: [n=0] 1567s [00:52:47.445] Finding globals ... DONE 1567s [00:52:47.445] - use_args: TRUE 1567s [00:52:47.445] - Getting '...' globals ... 1567s [00:52:47.446] resolve() on list ... 1567s [00:52:47.446] recursive: 0 1567s [00:52:47.446] length: 1 1567s [00:52:47.446] elements: ‘...’ 1567s [00:52:47.446] length: 0 (resolved future 1) 1567s [00:52:47.447] resolve() on list ... DONE 1567s [00:52:47.447] - '...' content: [n=0] 1567s [00:52:47.447] List of 1 1567s [00:52:47.447] $ ...: list() 1567s [00:52:47.447] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1567s [00:52:47.447] - attr(*, "where")=List of 1 1567s [00:52:47.447] ..$ ...: 1567s [00:52:47.447] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1567s [00:52:47.447] - attr(*, "resolved")= logi TRUE 1567s [00:52:47.447] - attr(*, "total_size")= num NA 1567s [00:52:47.450] - Getting '...' globals ... DONE 1567s [00:52:47.450] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1567s [00:52:47.451] List of 2 1567s [00:52:47.451] $ ...future.FUN:function (...) 1567s [00:52:47.451] $ ... : list() 1567s [00:52:47.451] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1567s [00:52:47.451] - attr(*, "where")=List of 2 1567s [00:52:47.451] ..$ ...future.FUN: 1567s [00:52:47.451] ..$ ... : 1567s [00:52:47.451] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1567s [00:52:47.451] - attr(*, "resolved")= logi FALSE 1567s [00:52:47.451] - attr(*, "total_size")= num 616 1567s [00:52:47.454] Packages to be attached in all futures: [n=0] 1567s [00:52:47.454] getGlobalsAndPackagesXApply() ... DONE 1567s [00:52:47.454] Number of futures (= number of chunks): 1 1567s [00:52:47.455] Launching 1 futures (chunks) ... 1567s [00:52:47.455] Chunk #1 of 1 ... 1567s [00:52:47.455] - Finding globals in 'X' for chunk #1 ... 1567s [00:52:47.455] getGlobalsAndPackages() ... 1567s [00:52:47.455] Searching for globals... 1567s [00:52:47.456] 1567s [00:52:47.456] Searching for globals ... DONE 1567s [00:52:47.456] - globals: [0] 1567s [00:52:47.456] getGlobalsAndPackages() ... DONE 1567s [00:52:47.457] + additional globals found: [n=0] 1567s [00:52:47.457] + additional namespaces needed: [n=0] 1567s [00:52:47.457] - Finding globals in 'X' for chunk #1 ... DONE 1567s [00:52:47.457] - seeds: [5] 1567s [00:52:47.457] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1567s [00:52:47.458] getGlobalsAndPackages() ... 1567s [00:52:47.458] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1567s [00:52:47.458] Resolving globals: FALSE 1567s [00:52:47.458] Tweak future expression to call with '...' arguments ... 1567s [00:52:47.458] { 1567s [00:52:47.458] do.call(function(...) { 1567s [00:52:47.458] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1567s [00:52:47.458] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1567s [00:52:47.458] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1567s [00:52:47.458] on.exit(options(oopts), add = TRUE) 1567s [00:52:47.458] } 1567s [00:52:47.458] { 1567s [00:52:47.458] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1567s [00:52:47.458] ...future.X_jj <- ...future.elements_ii[[jj]] 1567s [00:52:47.458] assign(".Random.seed", ...future.seeds_ii[[jj]], 1567s [00:52:47.458] envir = globalenv(), inherits = FALSE) 1567s [00:52:47.458] ...future.FUN(...future.X_jj, ...) 1567s [00:52:47.458] }) 1567s [00:52:47.458] } 1567s [00:52:47.458] }, args = future.call.arguments) 1567s [00:52:47.458] } 1567s [00:52:47.459] Tweak future expression to call with '...' arguments ... DONE 1567s [00:52:47.460] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1567s [00:52:47.460] 1567s [00:52:47.461] getGlobalsAndPackages() ... DONE 1567s [00:52:47.462] run() for ‘Future’ ... 1567s [00:52:47.463] - state: ‘created’ 1567s [00:52:47.463] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1567s [00:52:47.467] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1567s [00:52:47.467] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1567s [00:52:47.468] - Field: ‘label’ 1567s [00:52:47.468] - Field: ‘local’ 1567s [00:52:47.468] - Field: ‘owner’ 1567s [00:52:47.469] - Field: ‘envir’ 1567s [00:52:47.469] - Field: ‘packages’ 1567s [00:52:47.469] - Field: ‘gc’ 1567s [00:52:47.469] - Field: ‘conditions’ 1567s [00:52:47.469] - Field: ‘expr’ 1567s [00:52:47.470] - Field: ‘uuid’ 1567s [00:52:47.470] - Field: ‘seed’ 1567s [00:52:47.470] - Field: ‘version’ 1567s [00:52:47.470] - Field: ‘result’ 1567s [00:52:47.471] - Field: ‘asynchronous’ 1567s [00:52:47.471] - Field: ‘calls’ 1567s [00:52:47.471] - Field: ‘globals’ 1567s [00:52:47.471] - Field: ‘stdout’ 1567s [00:52:47.471] - Field: ‘earlySignal’ 1567s [00:52:47.471] - Field: ‘lazy’ 1567s [00:52:47.471] - Field: ‘state’ 1567s [00:52:47.472] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1567s [00:52:47.472] - Launch lazy future ... 1567s [00:52:47.472] Packages needed by the future expression (n = 0): 1567s [00:52:47.472] Packages needed by future strategies (n = 0): 1567s [00:52:47.473] { 1567s [00:52:47.473] { 1567s [00:52:47.473] { 1567s [00:52:47.473] ...future.startTime <- base::Sys.time() 1567s [00:52:47.473] { 1567s [00:52:47.473] { 1567s [00:52:47.473] { 1567s [00:52:47.473] base::local({ 1567s [00:52:47.473] has_future <- base::requireNamespace("future", 1567s [00:52:47.473] quietly = TRUE) 1567s [00:52:47.473] if (has_future) { 1567s [00:52:47.473] ns <- base::getNamespace("future") 1567s [00:52:47.473] version <- ns[[".package"]][["version"]] 1567s [00:52:47.473] if (is.null(version)) 1567s [00:52:47.473] version <- utils::packageVersion("future") 1567s [00:52:47.473] } 1567s [00:52:47.473] else { 1567s [00:52:47.473] version <- NULL 1567s [00:52:47.473] } 1567s [00:52:47.473] if (!has_future || version < "1.8.0") { 1567s [00:52:47.473] info <- base::c(r_version = base::gsub("R version ", 1567s [00:52:47.473] "", base::R.version$version.string), 1567s [00:52:47.473] platform = base::sprintf("%s (%s-bit)", 1567s [00:52:47.473] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1567s [00:52:47.473] os = base::paste(base::Sys.info()[base::c("sysname", 1567s [00:52:47.473] "release", "version")], collapse = " "), 1567s [00:52:47.473] hostname = base::Sys.info()[["nodename"]]) 1567s [00:52:47.473] info <- base::sprintf("%s: %s", base::names(info), 1567s [00:52:47.473] info) 1567s [00:52:47.473] info <- base::paste(info, collapse = "; ") 1567s [00:52:47.473] if (!has_future) { 1567s [00:52:47.473] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1567s [00:52:47.473] info) 1567s [00:52:47.473] } 1567s [00:52:47.473] else { 1567s [00:52:47.473] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1567s [00:52:47.473] info, version) 1567s [00:52:47.473] } 1567s [00:52:47.473] base::stop(msg) 1567s [00:52:47.473] } 1567s [00:52:47.473] }) 1567s [00:52:47.473] } 1567s [00:52:47.473] options(future.plan = NULL) 1567s [00:52:47.473] Sys.unsetenv("R_FUTURE_PLAN") 1567s [00:52:47.473] future::plan("default", .cleanup = FALSE, .init = FALSE) 1567s [00:52:47.473] } 1567s [00:52:47.473] ...future.workdir <- getwd() 1567s [00:52:47.473] } 1567s [00:52:47.473] ...future.oldOptions <- base::as.list(base::.Options) 1567s [00:52:47.473] ...future.oldEnvVars <- base::Sys.getenv() 1567s [00:52:47.473] } 1567s [00:52:47.473] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1567s [00:52:47.473] future.globals.maxSize = NULL, future.globals.method = NULL, 1567s [00:52:47.473] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1567s [00:52:47.473] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1567s [00:52:47.473] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1567s [00:52:47.473] future.stdout.windows.reencode = NULL, width = 80L) 1567s [00:52:47.473] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1567s [00:52:47.473] base::names(...future.oldOptions)) 1567s [00:52:47.473] } 1567s [00:52:47.473] if (FALSE) { 1567s [00:52:47.473] } 1567s [00:52:47.473] else { 1567s [00:52:47.473] if (TRUE) { 1567s [00:52:47.473] ...future.stdout <- base::rawConnection(base::raw(0L), 1567s [00:52:47.473] open = "w") 1567s [00:52:47.473] } 1567s [00:52:47.473] else { 1567s [00:52:47.473] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1567s [00:52:47.473] windows = "NUL", "/dev/null"), open = "w") 1567s [00:52:47.473] } 1567s [00:52:47.473] base::sink(...future.stdout, type = "output", split = FALSE) 1567s [00:52:47.473] base::on.exit(if (!base::is.null(...future.stdout)) { 1567s [00:52:47.473] base::sink(type = "output", split = FALSE) 1567s [00:52:47.473] base::close(...future.stdout) 1567s [00:52:47.473] }, add = TRUE) 1567s [00:52:47.473] } 1567s [00:52:47.473] ...future.frame <- base::sys.nframe() 1567s [00:52:47.473] ...future.conditions <- base::list() 1567s [00:52:47.473] ...future.rng <- base::globalenv()$.Random.seed 1567s [00:52:47.473] if (FALSE) { 1567s [00:52:47.473] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1567s [00:52:47.473] "...future.value", "...future.globalenv.names", ".Random.seed") 1567s [00:52:47.473] } 1567s [00:52:47.473] ...future.result <- base::tryCatch({ 1567s [00:52:47.473] base::withCallingHandlers({ 1567s [00:52:47.473] ...future.value <- base::withVisible(base::local({ 1567s [00:52:47.473] do.call(function(...) { 1567s [00:52:47.473] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1567s [00:52:47.473] if (!identical(...future.globals.maxSize.org, 1567s [00:52:47.473] ...future.globals.maxSize)) { 1567s [00:52:47.473] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1567s [00:52:47.473] on.exit(options(oopts), add = TRUE) 1567s [00:52:47.473] } 1567s [00:52:47.473] { 1567s [00:52:47.473] lapply(seq_along(...future.elements_ii), 1567s [00:52:47.473] FUN = function(jj) { 1567s [00:52:47.473] ...future.X_jj <- ...future.elements_ii[[jj]] 1567s [00:52:47.473] assign(".Random.seed", ...future.seeds_ii[[jj]], 1567s [00:52:47.473] envir = globalenv(), inherits = FALSE) 1567s [00:52:47.473] ...future.FUN(...future.X_jj, ...) 1567s [00:52:47.473] }) 1567s [00:52:47.473] } 1567s [00:52:47.473] }, args = future.call.arguments) 1567s [00:52:47.473] })) 1567s [00:52:47.473] future::FutureResult(value = ...future.value$value, 1567s [00:52:47.473] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1567s [00:52:47.473] ...future.rng), globalenv = if (FALSE) 1567s [00:52:47.473] list(added = base::setdiff(base::names(base::.GlobalEnv), 1567s [00:52:47.473] ...future.globalenv.names)) 1567s [00:52:47.473] else NULL, started = ...future.startTime, version = "1.8") 1567s [00:52:47.473] }, condition = base::local({ 1567s [00:52:47.473] c <- base::c 1567s [00:52:47.473] inherits <- base::inherits 1567s [00:52:47.473] invokeRestart <- base::invokeRestart 1567s [00:52:47.473] length <- base::length 1567s [00:52:47.473] list <- base::list 1567s [00:52:47.473] seq.int <- base::seq.int 1567s [00:52:47.473] signalCondition <- base::signalCondition 1567s [00:52:47.473] sys.calls <- base::sys.calls 1567s [00:52:47.473] `[[` <- base::`[[` 1567s [00:52:47.473] `+` <- base::`+` 1567s [00:52:47.473] `<<-` <- base::`<<-` 1567s [00:52:47.473] sysCalls <- function(calls = sys.calls(), from = 1L) { 1567s [00:52:47.473] calls[seq.int(from = from + 12L, to = length(calls) - 1567s [00:52:47.473] 3L)] 1567s [00:52:47.473] } 1567s [00:52:47.473] function(cond) { 1567s [00:52:47.473] is_error <- inherits(cond, "error") 1567s [00:52:47.473] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1567s [00:52:47.473] NULL) 1567s [00:52:47.473] if (is_error) { 1567s [00:52:47.473] sessionInformation <- function() { 1567s [00:52:47.473] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1567s [00:52:47.473] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1567s [00:52:47.473] search = base::search(), system = base::Sys.info()) 1567s [00:52:47.473] } 1567s [00:52:47.473] ...future.conditions[[length(...future.conditions) + 1567s [00:52:47.473] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1567s [00:52:47.473] cond$call), session = sessionInformation(), 1567s [00:52:47.473] timestamp = base::Sys.time(), signaled = 0L) 1567s [00:52:47.473] signalCondition(cond) 1567s [00:52:47.473] } 1567s [00:52:47.473] else if (!ignore && TRUE && inherits(cond, c("condition", 1567s [00:52:47.473] "immediateCondition"))) { 1567s [00:52:47.473] signal <- TRUE && inherits(cond, "immediateCondition") 1567s [00:52:47.473] ...future.conditions[[length(...future.conditions) + 1567s [00:52:47.473] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1567s [00:52:47.473] if (TRUE && !signal) { 1567s [00:52:47.473] muffleCondition <- function (cond, pattern = "^muffle") 1567s [00:52:47.473] { 1567s [00:52:47.473] inherits <- base::inherits 1567s [00:52:47.473] invokeRestart <- base::invokeRestart 1567s [00:52:47.473] is.null <- base::is.null 1567s [00:52:47.473] muffled <- FALSE 1567s [00:52:47.473] if (inherits(cond, "message")) { 1567s [00:52:47.473] muffled <- grepl(pattern, "muffleMessage") 1567s [00:52:47.473] if (muffled) 1567s [00:52:47.473] invokeRestart("muffleMessage") 1567s [00:52:47.473] } 1567s [00:52:47.473] else if (inherits(cond, "warning")) { 1567s [00:52:47.473] muffled <- grepl(pattern, "muffleWarning") 1567s [00:52:47.473] if (muffled) 1567s [00:52:47.473] invokeRestart("muffleWarning") 1567s [00:52:47.473] } 1567s [00:52:47.473] else if (inherits(cond, "condition")) { 1567s [00:52:47.473] if (!is.null(pattern)) { 1567s [00:52:47.473] computeRestarts <- base::computeRestarts 1567s [00:52:47.473] grepl <- base::grepl 1567s [00:52:47.473] restarts <- computeRestarts(cond) 1567s [00:52:47.473] for (restart in restarts) { 1567s [00:52:47.473] name <- restart$name 1567s [00:52:47.473] if (is.null(name)) 1567s [00:52:47.473] next 1567s [00:52:47.473] if (!grepl(pattern, name)) 1567s [00:52:47.473] next 1567s [00:52:47.473] invokeRestart(restart) 1567s [00:52:47.473] muffled <- TRUE 1567s [00:52:47.473] break 1567s [00:52:47.473] } 1567s [00:52:47.473] } 1567s [00:52:47.473] } 1567s [00:52:47.473] invisible(muffled) 1567s [00:52:47.473] } 1567s [00:52:47.473] muffleCondition(cond, pattern = "^muffle") 1567s [00:52:47.473] } 1567s [00:52:47.473] } 1567s [00:52:47.473] else { 1567s [00:52:47.473] if (TRUE) { 1567s [00:52:47.473] muffleCondition <- function (cond, pattern = "^muffle") 1567s [00:52:47.473] { 1567s [00:52:47.473] inherits <- base::inherits 1567s [00:52:47.473] invokeRestart <- base::invokeRestart 1567s [00:52:47.473] is.null <- base::is.null 1567s [00:52:47.473] muffled <- FALSE 1567s [00:52:47.473] if (inherits(cond, "message")) { 1567s [00:52:47.473] muffled <- grepl(pattern, "muffleMessage") 1567s [00:52:47.473] if (muffled) 1567s [00:52:47.473] invokeRestart("muffleMessage") 1567s [00:52:47.473] } 1567s [00:52:47.473] else if (inherits(cond, "warning")) { 1567s [00:52:47.473] muffled <- grepl(pattern, "muffleWarning") 1567s [00:52:47.473] if (muffled) 1567s [00:52:47.473] invokeRestart("muffleWarning") 1567s [00:52:47.473] } 1567s [00:52:47.473] else if (inherits(cond, "condition")) { 1567s [00:52:47.473] if (!is.null(pattern)) { 1567s [00:52:47.473] computeRestarts <- base::computeRestarts 1567s [00:52:47.473] grepl <- base::grepl 1567s [00:52:47.473] restarts <- computeRestarts(cond) 1567s [00:52:47.473] for (restart in restarts) { 1567s [00:52:47.473] name <- restart$name 1567s [00:52:47.473] if (is.null(name)) 1567s [00:52:47.473] next 1567s [00:52:47.473] if (!grepl(pattern, name)) 1567s [00:52:47.473] next 1567s [00:52:47.473] invokeRestart(restart) 1567s [00:52:47.473] muffled <- TRUE 1567s [00:52:47.473] break 1567s [00:52:47.473] } 1567s [00:52:47.473] } 1567s [00:52:47.473] } 1567s [00:52:47.473] invisible(muffled) 1567s [00:52:47.473] } 1567s [00:52:47.473] muffleCondition(cond, pattern = "^muffle") 1567s [00:52:47.473] } 1567s [00:52:47.473] } 1567s [00:52:47.473] } 1567s [00:52:47.473] })) 1567s [00:52:47.473] }, error = function(ex) { 1567s [00:52:47.473] base::structure(base::list(value = NULL, visible = NULL, 1567s [00:52:47.473] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1567s [00:52:47.473] ...future.rng), started = ...future.startTime, 1567s [00:52:47.473] finished = Sys.time(), session_uuid = NA_character_, 1567s [00:52:47.473] version = "1.8"), class = "FutureResult") 1567s [00:52:47.473] }, finally = { 1567s [00:52:47.473] if (!identical(...future.workdir, getwd())) 1567s [00:52:47.473] setwd(...future.workdir) 1567s [00:52:47.473] { 1567s [00:52:47.473] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1567s [00:52:47.473] ...future.oldOptions$nwarnings <- NULL 1567s [00:52:47.473] } 1567s [00:52:47.473] base::options(...future.oldOptions) 1567s [00:52:47.473] if (.Platform$OS.type == "windows") { 1567s [00:52:47.473] old_names <- names(...future.oldEnvVars) 1567s [00:52:47.473] envs <- base::Sys.getenv() 1567s [00:52:47.473] names <- names(envs) 1567s [00:52:47.473] common <- intersect(names, old_names) 1567s [00:52:47.473] added <- setdiff(names, old_names) 1567s [00:52:47.473] removed <- setdiff(old_names, names) 1567s [00:52:47.473] changed <- common[...future.oldEnvVars[common] != 1567s [00:52:47.473] envs[common]] 1567s [00:52:47.473] NAMES <- toupper(changed) 1567s [00:52:47.473] args <- list() 1567s [00:52:47.473] for (kk in seq_along(NAMES)) { 1567s [00:52:47.473] name <- changed[[kk]] 1567s [00:52:47.473] NAME <- NAMES[[kk]] 1567s [00:52:47.473] if (name != NAME && is.element(NAME, old_names)) 1567s [00:52:47.473] next 1567s [00:52:47.473] args[[name]] <- ...future.oldEnvVars[[name]] 1567s [00:52:47.473] } 1567s [00:52:47.473] NAMES <- toupper(added) 1567s [00:52:47.473] for (kk in seq_along(NAMES)) { 1567s [00:52:47.473] name <- added[[kk]] 1567s [00:52:47.473] NAME <- NAMES[[kk]] 1567s [00:52:47.473] if (name != NAME && is.element(NAME, old_names)) 1567s [00:52:47.473] next 1567s [00:52:47.473] args[[name]] <- "" 1567s [00:52:47.473] } 1567s [00:52:47.473] NAMES <- toupper(removed) 1567s [00:52:47.473] for (kk in seq_along(NAMES)) { 1567s [00:52:47.473] name <- removed[[kk]] 1567s [00:52:47.473] NAME <- NAMES[[kk]] 1567s [00:52:47.473] if (name != NAME && is.element(NAME, old_names)) 1567s [00:52:47.473] next 1567s [00:52:47.473] args[[name]] <- ...future.oldEnvVars[[name]] 1567s [00:52:47.473] } 1567s [00:52:47.473] if (length(args) > 0) 1567s [00:52:47.473] base::do.call(base::Sys.setenv, args = args) 1567s [00:52:47.473] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1567s [00:52:47.473] } 1567s [00:52:47.473] else { 1567s [00:52:47.473] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1567s [00:52:47.473] } 1567s [00:52:47.473] { 1567s [00:52:47.473] if (base::length(...future.futureOptionsAdded) > 1567s [00:52:47.473] 0L) { 1567s [00:52:47.473] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1567s [00:52:47.473] base::names(opts) <- ...future.futureOptionsAdded 1567s [00:52:47.473] base::options(opts) 1567s [00:52:47.473] } 1567s [00:52:47.473] { 1567s [00:52:47.473] { 1567s [00:52:47.473] base::assign(".Random.seed", c(10403L, 6L, 1567s [00:52:47.473] 133210212L, 1945833034L, 115858357L, -364452081L, 1567s [00:52:47.473] -390319082L, 926195392L, 2057013379L, -803887967L, 1567s [00:52:47.473] -1078998384L, 705296750L, -1682614503L, 830917547L, 1567s [00:52:47.473] -331376230L, 1352842588L, 1960957023L, 1997081653L, 1567s [00:52:47.473] 374446028L, 1510359842L, 1146109309L, -1295266185L, 1567s [00:52:47.473] -1545472098L, 1268700760L, 1627111355L, -855092903L, 1567s [00:52:47.473] -215790872L, -1958931690L, 1906054289L, -782874301L, 1567s [00:52:47.473] -399096750L, -1740777756L, 1763676455L, -832683651L, 1567s [00:52:47.473] 1369376884L, 430697050L, 1699587749L, -1503628097L, 1567s [00:52:47.473] 856180550L, -242424368L, -2127251469L, 505777937L, 1567s [00:52:47.473] 257347392L, -856180962L, 886024169L, -1464480485L, 1567s [00:52:47.473] -1512233174L, -1985955764L, -425390065L, 1567s [00:52:47.473] -589669563L, 381897980L, -790840494L, 1136483533L, 1567s [00:52:47.473] -1535370105L, -607934610L, 1641470280L, -1050403509L, 1567s [00:52:47.473] 1965932713L, 362996216L, 1596838182L, -1829498303L, 1567s [00:52:47.473] -1824465965L, 1872669058L, -417374796L, -1713346249L, 1567s [00:52:47.473] 1818328109L, -1284085436L, -1981489558L, 1567s [00:52:47.473] 1940543701L, 1673049711L, -1514495114L, 467096736L, 1567s [00:52:47.473] 943410531L, -1431020031L, 1115626864L, 965475598L, 1567s [00:52:47.473] -1718567047L, -793788661L, -1133789126L, 1567s [00:52:47.473] -80588996L, 2018258047L, 1866186709L, 42791404L, 1567s [00:52:47.473] -1823521982L, -1345991523L, -1672661737L, 1567s [00:52:47.473] -180777858L, -452713416L, 1448313627L, -1459492743L, 1567s [00:52:47.473] -600706872L, -909649674L, -2081822415L, -1697455773L, 1567s [00:52:47.473] 1517613874L, -820020092L, 188336327L, -1149897827L, 1567s [00:52:47.473] -475203820L, -368005702L, 204442629L, 437854687L, 1567s [00:52:47.473] 1163191398L, -760699920L, 104455443L, 819708593L, 1567s [00:52:47.473] 1129180512L, 48636670L, 1066049161L, 398150075L, 1567s [00:52:47.473] -852036726L, -906028436L, -1265740817L, -1824646107L, 1567s [00:52:47.473] -2126068516L, 1815435954L, -146408019L, -860012185L, 1567s [00:52:47.473] -682500466L, 1443186536L, 1789394795L, -1078204151L, 1567s [00:52:47.473] 809467800L, 1514112710L, -1097673695L, 919601331L, 1567s [00:52:47.473] -331916766L, 795008020L, 1042337943L, -371219827L, 1567s [00:52:47.473] 1558967204L, 1563528586L, -2133607947L, -1904454577L, 1567s [00:52:47.473] -264006826L, 770017792L, 153477955L, 1189667553L, 1567s [00:52:47.473] -363253680L, 1882362030L, 967246937L, -793119637L, 1567s [00:52:47.473] -1401964070L, 2129232540L, -542810977L, -1277899019L, 1567s [00:52:47.473] -377097332L, -406748574L, -1722157507L, -1577740105L, 1567s [00:52:47.473] -455170210L, 372239000L, -1535936005L, -1332632679L, 1567s [00:52:47.473] -1623884760L, -359633706L, 935827793L, 1357445123L, 1567s [00:52:47.473] 997040018L, -1506538204L, -147930137L, -166569923L, 1567s [00:52:47.473] -2103753036L, 1366641946L, 30482021L, 1876964095L, 1567s [00:52:47.473] 2008557446L, 657856784L, -103814733L, 774877777L, 1567s [00:52:47.473] -486350336L, -555057442L, -1821756119L, -963495717L, 1567s [00:52:47.473] 853311466L, 1671241612L, -942337841L, 409538693L, 1567s [00:52:47.473] 1992831804L, 489867794L, 357105933L, -1611412921L, 1567s [00:52:47.473] -1119334354L, -1521015416L, -2041922421L, 1567s [00:52:47.473] 2048874089L, -700216776L, 1651628774L, -10471807L, 1567s [00:52:47.473] 736942611L, 380607938L, -1742088588L, 1124231287L, 1567s [00:52:47.473] 1232111981L, -1801753084L, -1608606422L, 1567s [00:52:47.473] -1172096363L, 1420874031L, -1210473418L, 1567s [00:52:47.473] -18317216L, -571709789L, 1107403201L, 1952554416L, 1567s [00:52:47.473] 1991660750L, -442973639L, 581522507L, -430787078L, 1567s [00:52:47.473] 1105375484L, -1481218753L, -748152299L, -641535700L, 1567s [00:52:47.473] 679371266L, -591318819L, -104578089L, -172818754L, 1567s [00:52:47.473] -1321694984L, -98191653L, 1709083961L, -344680312L, 1567s [00:52:47.473] -159571914L, 581309553L, -63938909L, 76420082L, 1567s [00:52:47.473] 951019332L, -1797740537L, 1291470301L, -2079866156L, 1567s [00:52:47.473] -332493318L, -1978392251L, -1691039632L, 1567s [00:52:47.473] 388791868L, -1101109484L, -1365177662L, 321737440L, 1567s [00:52:47.473] 1812890748L, -133313328L, -1252731998L, 2044530216L, 1567s [00:52:47.473] 1263927564L, 325388220L, 520794418L, 1449646272L, 1567s [00:52:47.473] 87560756L, -87565624L, 426345146L, -699970416L, 1567s [00:52:47.473] 240322284L, -1074080172L, -1536268654L, 1338615584L, 1567s [00:52:47.473] 478476236L, -1933154080L, -192786750L, 1559942184L, 1567s [00:52:47.473] -1178330196L, -687617348L, -1701912078L, 1567s [00:52:47.473] 352314928L, -999229532L, -2052800072L, -1913644198L, 1567s [00:52:47.473] -1345416048L, 1816730492L, -1570431212L, 1567s [00:52:47.473] -269427390L, -2122969344L, -520963140L, 1398087504L, 1567s [00:52:47.473] 264692002L, -1682658744L, -1422452724L, -1601893284L, 1567s [00:52:47.473] -66383406L, 1443075584L, -456249004L, 943694056L, 1567s [00:52:47.473] -1493184262L, -1943836976L, -590788308L, 1567s [00:52:47.473] -405505804L, -1796837998L, 1991543136L, 1170376716L, 1567s [00:52:47.473] 1707420384L, 1899700834L, -1643595096L, 47299148L, 1567s [00:52:47.473] 1274857340L, -1205842638L, -1938479504L, 1567s [00:52:47.473] -1773978812L, 532695000L, 1306451834L, 258403888L, 1567s [00:52:47.473] -284747844L, -1780705708L, 1621936194L, 1129070752L, 1567s [00:52:47.473] 540946108L, -294270512L, -1426480286L, -356302104L, 1567s [00:52:47.473] 349847756L, 1849803260L, -1299125774L, 511654528L, 1567s [00:52:47.473] -1259964940L, -1879857528L, 535666490L, -2020097200L, 1567s [00:52:47.473] -1460751252L, 1201879444L, -1459788718L, 1567s [00:52:47.473] 447195616L, -730891060L, -1875530592L, -2146183806L, 1567s [00:52:47.473] 193274088L, -1224605972L, 1616153916L, -1896973198L, 1567s [00:52:47.473] -420945808L, -1997735900L, -1838404552L, 1567s [00:52:47.473] -413698278L, 1984019664L, -1760209092L, -1288743020L, 1567s [00:52:47.473] 392579970L, -1382567488L, -1295004100L, -33348208L, 1567s [00:52:47.473] 1536615970L, -428761848L, 643368588L, -1596336356L, 1567s [00:52:47.473] 1797431442L, 352422272L, -1043800556L, 60591912L, 1567s [00:52:47.473] -1115663814L, 1043682768L, 521144684L, 4793268L, 1567s [00:52:47.473] -1924265966L, 978890208L, 370048972L, -1607474976L, 1567s [00:52:47.473] -1443637214L, -632405720L, 691912204L, 166321980L, 1567s [00:52:47.473] 942193650L, 751741680L, 689743428L, -18455976L, 1567s [00:52:47.473] -1946329286L, -1619184144L, 239341244L, 371382548L, 1567s [00:52:47.473] -2069808446L, 154176608L, 385987452L, -385611824L, 1567s [00:52:47.473] 1967391010L, 2140654248L, 1720087436L, -1591007044L, 1567s [00:52:47.473] -1612486862L, 1295747648L, 1726784692L, 597326408L, 1567s [00:52:47.473] -973152838L, 628505104L, -1089631508L, 3230036L, 1567s [00:52:47.473] -593837806L, 244006304L, 1357912780L, 1839234656L, 1567s [00:52:47.473] -1357570110L, 1896595240L, -2066952276L, 1567s [00:52:47.473] -1724304580L, 986188146L, -1200604368L, -279100124L, 1567s [00:52:47.473] 131128120L, -1088465190L, 596533136L, 170602236L, 1567s [00:52:47.473] -1051262060L, 215660610L, -686217984L, 444449852L, 1567s [00:52:47.473] 769655120L, 236357794L, 181393736L, -13334772L, 1567s [00:52:47.473] 644690652L, -1969263278L, -2107982720L, 1429553236L, 1567s [00:52:47.473] 794236904L, 1997299962L, -458224816L, 904978220L, 1567s [00:52:47.473] -537093772L, -842839150L, 1828989024L, -679303796L, 1567s [00:52:47.473] 1396292448L, 76319202L, 1896098728L, 418430156L, 1567s [00:52:47.473] 2005956604L, 1370351026L, -1178923536L, -1154073660L, 1567s [00:52:47.473] -1218863784L, 89928058L, 816597936L, -1141767748L, 1567s [00:52:47.473] 1579714644L, 1343385538L, 371259424L, -245180228L, 1567s [00:52:47.473] 365724240L, 1606388706L, -823678872L, 1281309772L, 1567s [00:52:47.473] 1395210492L, 1217887218L, 1420531968L, 1349501300L, 1567s [00:52:47.473] 271647752L, -69959750L, 360452560L, 1565334508L, 1567s [00:52:47.473] 1956526484L, -930709038L, 1961808224L, -1745916084L, 1567s [00:52:47.473] 443656480L, 1990137730L, 694374120L, -1050566420L, 1567s [00:52:47.473] -1365842884L, -438961294L, -1851472272L, 1567s [00:52:47.473] 614534180L, 1401930552L, 3652762L, 1928284880L, 1567s [00:52:47.473] -1637703492L, 26107540L, -132725907L, -371944998L, 1567s [00:52:47.473] -1311388776L, 8516097L, 741008307L, -1149566252L, 1567s [00:52:47.473] -1802640414L, 2019636855L, 1587818433L, -151040698L, 1567s [00:52:47.473] 1598381188L, -205462987L, 1911327L, -1382519432L, 1567s [00:52:47.473] -594809770L, -2146766621L, -2013964635L, 1567s [00:52:47.473] -965534910L, -2077626064L, 1964788057L, 1821395659L, 1567s [00:52:47.473] -1953549508L, -719348886L, 1442511263L, 1969287209L, 1567s [00:52:47.473] 1754221246L, -442299476L, 1981692157L, 113456199L, 1567s [00:52:47.473] 1587794736L, -1811033010L, 1149417595L, -1760887843L, 1567s [00:52:47.473] -1426021878L, -1285634264L, 1507547537L, 1567s [00:52:47.473] -1114120317L, 1897370756L, 1142575794L, -375814649L, 1567s [00:52:47.473] -1661041071L, 881081814L, -548925260L, 2073840837L, 1567s [00:52:47.473] 1156484623L, 2011334280L, 1107815334L, 969024339L, 1567s [00:52:47.473] -55972683L, 2006780434L, -1486403616L, 1698650697L, 1567s [00:52:47.473] 1813794939L, -1717763764L, 1268815066L, -1200630577L, 1567s [00:52:47.473] -773717863L, -12215122L, 1354639804L, 1213207085L, 1567s [00:52:47.473] -978295337L, 340143136L, 485429630L, -568148149L, 1567s [00:52:47.473] 1257440589L, 930106234L, -883274312L, -1632538783L, 1567s [00:52:47.473] 894748435L, -1592959180L, -596177598L, 120963415L, 1567s [00:52:47.473] -1174532959L, -561474202L, 1438545764L, 1429911189L, 1567s [00:52:47.473] 1075965887L, 367866712L, -892333706L, -485158013L, 1567s [00:52:47.473] -682634811L, 963344098L, 2110199632L, 1990767225L, 1567s [00:52:47.473] 1348335019L, 269581084L, -2040640438L, 1453561919L, 1567s [00:52:47.473] 853952649L, 1195494558L, 1614051660L, 2040242461L, 1567s [00:52:47.473] -1604604761L, 1421229008L, -1268333714L, 1567s [00:52:47.473] 174113307L, 2044969853L, 190112106L, -998776824L, 1567s [00:52:47.473] -2070476623L, -2099222749L, 1141171236L, 1567s [00:52:47.473] -146426158L, -1797385433L, -1129376399L, 1567s [00:52:47.473] -1496589386L, -419561644L, -613549595L, 1243456495L, 1567s [00:52:47.473] 451212072L, 1923543942L, 1146113971L, 93579029L, 1567s [00:52:47.473] -397504142L, 597218752L, 459048489L, 1447221915L, 1567s [00:52:47.473] -272948372L, -373834886L, 934888623L, -2099351623L, 1567s [00:52:47.473] -1672042034L, 193924380L, -704518003L, 781993207L, 1567s [00:52:47.473] -258875392L, -1853783458L, 1315003691L, -41214419L, 1567s [00:52:47.473] -59447654L, 1203745368L, 426003905L, 452670067L, 1567s [00:52:47.473] -1092079724L, -1765622238L, -1882554057L, 1567s [00:52:47.473] 1278087169L, -1994822394L, -124954300L, 1994460277L, 1567s [00:52:47.473] 1816829407L, -1568282312L, 1563616022L, 1255996195L, 1567s [00:52:47.473] 1702121701L, 1784032514L, 1842995056L, 748060441L, 1567s [00:52:47.473] 1432229643L, -1905232900L, 2016890922L, 1403944031L, 1567s [00:52:47.473] 351712233L, 1338932478L, -1359366932L, -803018691L, 1567s [00:52:47.473] -1551885305L, 248629232L, 1839395726L, 1411789243L, 1567s [00:52:47.473] 840085405L, -1849000630L, -669518488L, -1453417647L, 1567s [00:52:47.473] -1527179197L, -377159356L, 1674525170L, -313742393L, 1567s [00:52:47.473] 865377681L, -1127426242L), envir = base::globalenv(), 1567s [00:52:47.473] inherits = FALSE) 1567s [00:52:47.473] NULL 1567s [00:52:47.473] } 1567s [00:52:47.473] options(future.plan = NULL) 1567s [00:52:47.473] if (is.na(NA_character_)) 1567s [00:52:47.473] Sys.unsetenv("R_FUTURE_PLAN") 1567s [00:52:47.473] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1567s [00:52:47.473] future::plan(list(function (..., workers = availableCores(), 1567s [00:52:47.473] lazy = FALSE, rscript_libs = .libPaths(), 1567s [00:52:47.473] envir = parent.frame()) 1567s [00:52:47.473] { 1567s [00:52:47.473] if (is.function(workers)) 1567s [00:52:47.473] workers <- workers() 1567s [00:52:47.473] workers <- structure(as.integer(workers), 1567s [00:52:47.473] class = class(workers)) 1567s [00:52:47.473] stop_if_not(length(workers) == 1, is.finite(workers), 1567s [00:52:47.473] workers >= 1) 1567s [00:52:47.473] if (workers == 1L && !inherits(workers, "AsIs")) { 1567s [00:52:47.473] return(sequential(..., lazy = TRUE, envir = envir)) 1567s [00:52:47.473] } 1567s [00:52:47.473] future <- MultisessionFuture(..., workers = workers, 1567s [00:52:47.473] lazy = lazy, rscript_libs = rscript_libs, 1567s [00:52:47.473] envir = envir) 1567s [00:52:47.473] if (!future$lazy) 1567s [00:52:47.473] future <- run(future) 1567s [00:52:47.473] invisible(future) 1567s [00:52:47.473] }), .cleanup = FALSE, .init = FALSE) 1567s [00:52:47.473] } 1567s [00:52:47.473] } 1567s [00:52:47.473] } 1567s [00:52:47.473] }) 1567s [00:52:47.473] if (TRUE) { 1567s [00:52:47.473] base::sink(type = "output", split = FALSE) 1567s [00:52:47.473] if (TRUE) { 1567s [00:52:47.473] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1567s [00:52:47.473] } 1567s [00:52:47.473] else { 1567s [00:52:47.473] ...future.result["stdout"] <- base::list(NULL) 1567s [00:52:47.473] } 1567s [00:52:47.473] base::close(...future.stdout) 1567s [00:52:47.473] ...future.stdout <- NULL 1567s [00:52:47.473] } 1567s [00:52:47.473] ...future.result$conditions <- ...future.conditions 1567s [00:52:47.473] ...future.result$finished <- base::Sys.time() 1567s [00:52:47.473] ...future.result 1567s [00:52:47.473] } 1567s [00:52:47.479] assign_globals() ... 1567s [00:52:47.479] List of 5 1567s [00:52:47.479] $ ...future.FUN :function (...) 1567s [00:52:47.479] $ future.call.arguments : list() 1567s [00:52:47.479] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1567s [00:52:47.479] $ ...future.elements_ii :List of 5 1567s [00:52:47.479] ..$ : int 0 1567s [00:52:47.479] ..$ : int 0 1567s [00:52:47.479] ..$ : int 0 1567s [00:52:47.479] ..$ : int 0 1567s [00:52:47.479] ..$ : int 0 1567s [00:52:47.479] $ ...future.seeds_ii :List of 5 1567s [00:52:47.479] ..$ : int [1:7] 10407 1242173061 -1150840343 -834448425 701050094 -1369558043 -650964284 1567s [00:52:47.479] ..$ : int [1:7] 10407 859061261 1088872332 -1371790091 -942478768 -889560561 1393381402 1567s [00:52:47.479] ..$ : int [1:7] 10407 -1977952646 362645338 -1927542548 -742448269 -2030870718 1472975712 1567s [00:52:47.479] ..$ : int [1:7] 10407 -781199300 -1470244364 -1435938985 -1154922760 795337516 2089908040 1567s [00:52:47.479] ..$ : int [1:7] 10407 -1281561623 1745663508 -502066495 1003795914 -1805763079 -205768335 1567s [00:52:47.479] $ ...future.globals.maxSize: NULL 1567s [00:52:47.479] - attr(*, "where")=List of 5 1567s [00:52:47.479] ..$ ...future.FUN : 1567s [00:52:47.479] ..$ future.call.arguments : 1567s [00:52:47.479] ..$ ...future.elements_ii : 1567s [00:52:47.479] ..$ ...future.seeds_ii : 1567s [00:52:47.479] ..$ ...future.globals.maxSize: 1567s [00:52:47.479] - attr(*, "resolved")= logi FALSE 1567s [00:52:47.479] - attr(*, "total_size")= num 616 1567s [00:52:47.479] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1567s [00:52:47.479] - attr(*, "already-done")= logi TRUE 1567s [00:52:47.492] - reassign environment for ‘...future.FUN’ 1567s [00:52:47.492] - copied ‘...future.FUN’ to environment 1567s [00:52:47.492] - copied ‘future.call.arguments’ to environment 1567s [00:52:47.492] - copied ‘...future.elements_ii’ to environment 1567s [00:52:47.492] - copied ‘...future.seeds_ii’ to environment 1567s [00:52:47.492] - copied ‘...future.globals.maxSize’ to environment 1567s [00:52:47.493] assign_globals() ... done 1567s [00:52:47.493] plan(): Setting new future strategy stack: 1567s [00:52:47.493] List of future strategies: 1567s [00:52:47.493] 1. sequential: 1567s [00:52:47.493] - args: function (..., envir = parent.frame()) 1567s [00:52:47.493] - tweaked: FALSE 1567s [00:52:47.493] - call: NULL 1567s [00:52:47.493] plan(): nbrOfWorkers() = 1 1567s [00:52:47.494] plan(): Setting new future strategy stack: 1567s [00:52:47.494] List of future strategies: 1567s [00:52:47.494] 1. multisession: 1567s [00:52:47.494] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1567s [00:52:47.494] - tweaked: FALSE 1567s [00:52:47.494] - call: plan(strategy) 1567s [00:52:47.498] plan(): nbrOfWorkers() = 1 1567s [00:52:47.498] SequentialFuture started (and completed) 1567s [00:52:47.498] - Launch lazy future ... done 1567s [00:52:47.499] run() for ‘SequentialFuture’ ... done 1567s [00:52:47.499] Created future: 1567s [00:52:47.499] SequentialFuture: 1567s [00:52:47.499] Label: ‘future_replicate-1’ 1567s [00:52:47.499] Expression: 1567s [00:52:47.499] { 1567s [00:52:47.499] do.call(function(...) { 1567s [00:52:47.499] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1567s [00:52:47.499] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1567s [00:52:47.499] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1567s [00:52:47.499] on.exit(options(oopts), add = TRUE) 1567s [00:52:47.499] } 1567s [00:52:47.499] { 1567s [00:52:47.499] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1567s [00:52:47.499] ...future.X_jj <- ...future.elements_ii[[jj]] 1567s [00:52:47.499] assign(".Random.seed", ...future.seeds_ii[[jj]], 1567s [00:52:47.499] envir = globalenv(), inherits = FALSE) 1567s [00:52:47.499] ...future.FUN(...future.X_jj, ...) 1567s [00:52:47.499] }) 1567s [00:52:47.499] } 1567s [00:52:47.499] }, args = future.call.arguments) 1567s [00:52:47.499] } 1567s [00:52:47.499] Lazy evaluation: FALSE 1567s [00:52:47.499] Asynchronous evaluation: FALSE 1567s [00:52:47.499] Local evaluation: TRUE 1567s [00:52:47.499] Environment: R_GlobalEnv 1567s [00:52:47.499] Capture standard output: TRUE 1567s [00:52:47.499] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1567s [00:52:47.499] Globals: 5 objects totaling 1.27 KiB (function ‘...future.FUN’ of 616 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 280 bytes, list ‘...future.seeds_ii’ of 400 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1567s [00:52:47.499] Packages: 1567s [00:52:47.499] L'Ecuyer-CMRG RNG seed: (seed = NULL) 1567s [00:52:47.499] Resolved: TRUE 1567s [00:52:47.499] Value: 280 bytes of class ‘list’ 1567s [00:52:47.499] Early signaling: FALSE 1567s [00:52:47.499] Owner process: 50289bf5-8c9f-f501-15c6-3ca1fa8d82cf 1567s [00:52:47.499] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1567s [00:52:47.501] Chunk #1 of 1 ... DONE 1567s [00:52:47.501] Launching 1 futures (chunks) ... DONE 1567s [00:52:47.501] Resolving 1 futures (chunks) ... 1567s [00:52:47.501] resolve() on list ... 1567s [00:52:47.502] recursive: 0 1567s [00:52:47.502] length: 1 1567s [00:52:47.502] 1567s [00:52:47.502] resolved() for ‘SequentialFuture’ ... 1567s [00:52:47.502] - state: ‘finished’ 1567s [00:52:47.502] - run: TRUE 1567s [00:52:47.502] - result: ‘FutureResult’ 1567s [00:52:47.503] resolved() for ‘SequentialFuture’ ... done 1567s [00:52:47.503] Future #1 1567s [00:52:47.503] signalConditionsASAP(SequentialFuture, pos=1) ... 1567s [00:52:47.503] - nx: 1 1567s [00:52:47.503] - relay: TRUE 1567s [00:52:47.503] - stdout: TRUE 1567s [00:52:47.504] - signal: TRUE 1567s [00:52:47.504] - resignal: FALSE 1567s [00:52:47.504] - force: TRUE 1567s [00:52:47.504] - relayed: [n=1] FALSE 1567s [00:52:47.504] - queued futures: [n=1] FALSE 1567s [00:52:47.504] - until=1 1567s [00:52:47.504] - relaying element #1 1567s [00:52:47.505] - relayed: [n=1] TRUE 1567s [00:52:47.505] - queued futures: [n=1] TRUE 1567s [00:52:47.505] signalConditionsASAP(SequentialFuture, pos=1) ... done 1567s [00:52:47.505] length: 0 (resolved future 1) 1567s [00:52:47.505] Relaying remaining futures 1567s [00:52:47.505] signalConditionsASAP(NULL, pos=0) ... 1567s [00:52:47.506] - nx: 1 1567s [00:52:47.506] - relay: TRUE 1567s [00:52:47.506] - stdout: TRUE 1567s [00:52:47.506] - signal: TRUE 1567s [00:52:47.506] - resignal: FALSE 1567s [00:52:47.506] - force: TRUE 1567s [00:52:47.506] - relayed: [n=1] TRUE 1567s [00:52:47.506] - queued futures: [n=1] TRUE 1567s - flush all 1567s [00:52:47.507] - relayed: [n=1] TRUE 1567s [00:52:47.507] - queued futures: [n=1] TRUE 1567s [00:52:47.507] signalConditionsASAP(NULL, pos=0) ... done 1567s [00:52:47.507] resolve() on list ... DONE 1567s [00:52:47.507] - Number of value chunks collected: 1 1567s [00:52:47.507] Resolving 1 futures (chunks) ... DONE 1567s [00:52:47.508] Reducing values from 1 chunks ... 1567s [00:52:47.508] - Number of values collected after concatenation: 5 1567s [00:52:47.508] - Number of values expected: 5 1567s [00:52:47.508] Reducing values from 1 chunks ... DONE 1567s [00:52:47.508] future_lapply() ... DONE 1567s - example(replicate) ... 1567s [00:52:47.509] future_lapply() ... 1567s [00:52:47.509] Generating random seeds ... 1567s [00:52:47.509] Generating random seed streams for 5 elements ... 1567s [00:52:47.510] Generating random seed streams for 5 elements ... DONE 1567s [00:52:47.510] Generating random seeds ... DONE 1567s [00:52:47.510] Will set RNG state on exit: 10403, 8, 133210212, 1945833034, 115858357, -364452081, -390319082, 926195392, 2057013379, -803887967, -1078998384, 705296750, -1682614503, 830917547, -331376230, 1352842588, 1960957023, 1997081653, 374446028, 1510359842, 1146109309, -1295266185, -1545472098, 1268700760, 1627111355, -855092903, -215790872, -1958931690, 1906054289, -782874301, -399096750, -1740777756, 1763676455, -832683651, 1369376884, 430697050, 1699587749, -1503628097, 856180550, -242424368, -2127251469, 505777937, 257347392, -856180962, 886024169, -1464480485, -1512233174, -1985955764, -425390065, -589669563, 381897980, -790840494, 1136483533, -1535370105, -607934610, 1641470280, -1050403509, 1965932713, 362996216, 1596838182, -1829498303, -1824465965, 1872669058, -417374796, -1713346249, 1818328109, -1284085436, -1981489558, 1940543701, 1673049711, -1514495114, 467096736, 943410531, -1431020031, 1115626864, 965475598, -1718567047, -793788661, -1133789126, -80588996, 2018258047, 1866186709, 42791404, -1823521982, -1345991523, -1672661737, -180777858, -452713416, 1448313627, -1459492743, -600706872, -909649674, -2081822415, -1697455773, 1517613874, -820020092, 188336327, -1149897827, -475203820, -368005702, 204442629, 437854687, 1163191398, -760699920, 104455443, 819708593, 1129180512, 48636670, 1066049161, 398150075, -852036726, -906028436, -1265740817, -1824646107, -2126068516, 1815435954, -146408019, -860012185, -682500466, 1443186536, 1789394795, -1078204151, 809467800, 1514112710, -1097673695, 919601331, -331916766, 795008020, 1042337943, -371219827, 1558967204, 1563528586, -2133607947, -1904454577, -264006826, 770017792, 153477955, 1189667553, -363253680, 1882362030, 967246937, -793119637, -1401964070, 2129232540, -542810977, -1277899019, -377097332, -406748574, -1722157507, -1577740105, -455170210, 372239000, -1535936005, -1332632679, -1623884760, -359633706, 935827793, 1357445123, 997040018, -1506538204, -147930137, -166569923, -2103753036, 1366641946, 30482021, 1876964095, 2008557446, 657856784, -103814733, 774877777, -486350336, -555057442, -1821756119, -963495717, 853311466, 1671241612, -942337841, 409538693, 1992831804, 489867794, 357105933, -1611412921, -1119334354, -1521015416, -2041922421, 2048874089, -700216776, 1651628774, -10471807, 736942611, 380607938, -1742088588, 1124231287, 1232111981, -1801753084, -1608606422, -1172096363, 1420874031, -1210473418, -18317216, -571709789, 1107403201, 1952554416, 1991660750, -442973639, 581522507, -430787078, 1105375484, -1481218753, -748152299, -641535700, 679371266, -591318819, -104578089, -172818754, -1321694984, -98191653, 1709083961, -344680312, -159571914, 581309553, -63938909, 76420082, 951019332, -1797740537, 1291470301, -2079866156, -332493318, -1978392251, -1691039632, 388791868, -1101109484, -1365177662, 321737440, 1812890748, -133313328, -1252731998, 2044530216, 1263927564, 325388220, 520794418, 1449646272, 87560756, -87565624, 426345146, -699970416, 240322284, -1074080172, -1536268654, 1338615584, 478476236, -1933154080, -192786750, 1559942184, -1178330196, -687617348, -1701912078, 352314928, -999229532, -2052800072, -1913644198, -1345416048, 1816730492, -1570431212, -269427390, -2122969344, -520963140, 1398087504, 264692002, -1682658744, -1422452724, -1601893284, -66383406, 1443075584, -456249004, 943694056, -1493184262, -1943836976, -590788308, -405505804, -1796837998, 1991543136, 1170376716, 1707420384, 1899700834, -1643595096, 47299148, 1274857340, -1205842638, -1938479504, -1773978812, 532695000, 1306451834, 258403888, -284747844, -1780705708, 1621936194, 1129070752, 540946108, -294270512, -1426480286, -356302104, 349847756, 1849803260, -1299125774, 511654528, -1259964940, -1879857528, 535666490, -2020097200, -1460751252, 1201879444, -1459788718, 447195616, -730891060, -1875530592, -2146183806, 193274088, -1224605972, 1616153916, -1896973198, -420945808, -1997735900, -1838404552, -413698278, 1984019664, -1760209092, -1288743020, 392579970, -1382567488, -1295004100, -33348208, 1536615970, -428761848, 643368588, -1596336356, 1797431442, 352422272, -1043800556, 60591912, -1115663814, 1043682768, 521144684, 4793268, -1924265966, 978890208, 370048972, -1607474976, -1443637214, -632405720, 691912204, 166321980, 942193650, 751741680, 689743428, -18455976, -1946329286, -1619184144, 239341244, 371382548, -2069808446, 154176608, 385987452, -385611824, 1967391010, 2140654248, 1720087436, -1591007044, -1612486862, 1295747648, 1726784692, 597326408, -973152838, 628505104, -1089631508, 3230036, -593837806, 244006304, 1357912780, 1839234656, -1357570110, 1896595240, -2066952276, -1724304580, 986188146, -1200604368, -279100124, 131128120, -1088465190, 596533136, 170602236, -1051262060, 215660610, -686217984, 444449852, 769655120, 236357794, 181393736, -13334772, 644690652, -1969263278, -2107982720, 1429553236, 794236904, 1997299962, -458224816, 904978220, -537093772, -842839150, 1828989024, -679303796, 1396292448, 76319202, 1896098728, 418430156, 2005956604, 1370351026, -1178923536, -1154073660, -1218863784, 89928058, 816597936, -1141767748, 1579714644, 1343385538, 371259424, -245180228, 365724240, 1606388706, -823678872, 1281309772, 1395210492, 1217887218, 1420531968, 1349501300, 271647752, -69959750, 360452560, 1565334508, 1956526484, -930709038, 1961808224, -1745916084, 443656480, 1990137730, 694374120, -1050566420, -1365842884, -438961294, -1851472272, 614534180, 1401930552, 3652762, 1928284880, -1637703492, 26107540, -132725907, -371944998, -1311388776, 8516097, 741008307, -1149566252, -1802640414, 2019636855, 1587818433, -151040698, 1598381188, -205462987, 1911327, -1382519432, -594809770, -2146766621, -2013964635, -965534910, -2077626064, 1964788057, 1821395659, -1953549508, -719348886, 1442511263, 1969287209, 1754221246, -442299476, 1981692157, 113456199, 1587794736, -1811033010, 1149417595, -1760887843, -1426021878, -1285634264, 1507547537, -1114120317, 1897370756, 1142575794, -375814649, -1661041071, 881081814, -548925260, 2073840837, 1156484623, 2011334280, 1107815334, 969024339, -55972683, 2006780434, -1486403616, 1698650697, 1813794939, -1717763764, 1268815066, -1200630577, -773717863, -12215122, 1354639804, 1213207085, -978295337, 340143136, 485429630, -568148149, 1257440589, 930106234, -883274312, -1632538783, 894748435, -1592959180, -596177598, 120963415, -1174532959, -561474202, 1438545764, 1429911189, 1075965887, 367866712, -892333706, -485158013, -682634811, 963344098, 2110199632, 1990767225, 1348335019, 269581084, -2040640438, 1453561919, 853952649, 1195494558, 1614051660, 2040242461, -1604604761, 1421229008, -1268333714, 174113307, 2044969853, 190112106, -998776824, -2070476623, -2099222749, 1141171236, -146426158, -1797385433, -1129376399, -1496589386, -419561644, -613549595, 1243456495, 451212072, 1923543942, 1146113971, 93579029, -397504142, 597218752, 459048489, 1447221915, -272948372, -373834886, 934888623, -2099351623, -1672042034, 193924380, -704518003, 781993207, -258875392, -1853783458, 1315003691, -41214419, -59447654, 1203745368, 426003905, 452670067, -1092079724, -1765622238, -1882554057, 1278087169, -1994822394, -124954300, 1994460277, 1816829407, -1568282312, 1563616022, 1255996195, 1702121701, 1784032514, 1842995056, 748060441, 1432229643, -1905232900, 2016890922, 1403944031, 351712233, 1338932478, -1359366932, -803018691, -1551885305, 248629232, 1839395726, 1411789243, 840085405, -1849000630, -669518488, -1453417647, -1527179197, -377159356, 1674525170, -313742393, 865377681, -1127426242 1567s [00:52:47.515] Number of chunks: 1 1567s [00:52:47.515] getGlobalsAndPackagesXApply() ... 1567s [00:52:47.515] - future.globals: TRUE 1567s [00:52:47.515] getGlobalsAndPackages() ... 1567s [00:52:47.516] Searching for globals... 1567s [00:52:47.518] - globals found: [4] ‘FUN’, ‘foo’, ‘x’, ‘c’ 1567s [00:52:47.518] Searching for globals ... DONE 1567s [00:52:47.518] Resolving globals: FALSE 1567s [00:52:47.519] The total size of the 3 globals is 2.15 KiB (2200 bytes) 1567s [00:52:47.519] The total size of the 3 globals exported for future expression (‘FUN()’) is 2.15 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are three globals: ‘foo’ (1.60 KiB of class ‘function’), ‘FUN’ (504 bytes of class ‘function’) and ‘x’ (56 bytes of class ‘numeric’) 1567s [00:52:47.520] - globals: [3] ‘FUN’, ‘foo’, ‘x’ 1567s [00:52:47.520] 1567s [00:52:47.520] getGlobalsAndPackages() ... DONE 1567s [00:52:47.520] - globals found/used: [n=3] ‘FUN’, ‘foo’, ‘x’ 1567s [00:52:47.520] - needed namespaces: [n=0] 1567s [00:52:47.520] Finding globals ... DONE 1567s [00:52:47.521] - use_args: TRUE 1567s [00:52:47.521] - Getting '...' globals ... 1567s [00:52:47.522] resolve() on list ... 1567s [00:52:47.522] recursive: 0 1567s [00:52:47.522] length: 1 1567s [00:52:47.522] elements: ‘...’ 1567s [00:52:47.522] length: 0 (resolved future 1) 1567s [00:52:47.522] resolve() on list ... DONE 1567s [00:52:47.522] - '...' content: [n=0] 1567s [00:52:47.523] List of 1 1567s [00:52:47.523] $ ...: list() 1567s [00:52:47.523] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1567s [00:52:47.523] - attr(*, "where")=List of 1 1567s [00:52:47.523] ..$ ...: 1567s [00:52:47.523] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1567s [00:52:47.523] - attr(*, "resolved")= logi TRUE 1567s [00:52:47.523] - attr(*, "total_size")= num NA 1567s [00:52:47.526] - Getting '...' globals ... DONE 1567s [00:52:47.526] Globals to be used in all futures (chunks): [n=4] ‘...future.FUN’, ‘foo’, ‘x’, ‘...’ 1567s [00:52:47.526] List of 4 1567s [00:52:47.526] $ ...future.FUN:function (...) 1567s [00:52:47.526] $ foo :function (x = 1, y = 2) 1567s [00:52:47.526] $ x : num 3 1567s [00:52:47.526] $ ... : list() 1567s [00:52:47.526] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1567s [00:52:47.526] - attr(*, "where")=List of 4 1567s [00:52:47.526] ..$ ...future.FUN: 1567s [00:52:47.526] ..$ foo : 1567s [00:52:47.526] ..$ x : 1567s [00:52:47.526] ..$ ... : 1567s [00:52:47.526] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1567s [00:52:47.526] - attr(*, "resolved")= logi FALSE 1567s [00:52:47.526] - attr(*, "total_size")= num 2200 1567s [00:52:47.533] Packages to be attached in all futures: [n=0] 1567s [00:52:47.533] getGlobalsAndPackagesXApply() ... DONE 1567s [00:52:47.533] Number of futures (= number of chunks): 1 1567s [00:52:47.533] Launching 1 futures (chunks) ... 1567s [00:52:47.533] Chunk #1 of 1 ... 1567s [00:52:47.533] - Finding globals in 'X' for chunk #1 ... 1567s [00:52:47.534] getGlobalsAndPackages() ... 1567s [00:52:47.534] Searching for globals... 1567s [00:52:47.534] 1567s [00:52:47.535] Searching for globals ... DONE 1567s [00:52:47.535] - globals: [0] 1567s [00:52:47.535] getGlobalsAndPackages() ... DONE 1567s [00:52:47.535] + additional globals found: [n=0] 1567s [00:52:47.535] + additional namespaces needed: [n=0] 1567s [00:52:47.535] - Finding globals in 'X' for chunk #1 ... DONE 1567s [00:52:47.535] - seeds: [5] 1567s [00:52:47.536] - All globals exported: [n=7] ‘...future.FUN’, ‘foo’, ‘x’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1567s [00:52:47.536] getGlobalsAndPackages() ... 1567s [00:52:47.536] - globals passed as-is: [7] ‘...future.FUN’, ‘foo’, ‘x’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1567s [00:52:47.536] Resolving globals: FALSE 1567s [00:52:47.536] Tweak future expression to call with '...' arguments ... 1567s [00:52:47.536] { 1567s [00:52:47.536] do.call(function(...) { 1567s [00:52:47.536] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1567s [00:52:47.536] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1567s [00:52:47.536] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1567s [00:52:47.536] on.exit(options(oopts), add = TRUE) 1567s [00:52:47.536] } 1567s [00:52:47.536] { 1567s [00:52:47.536] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1567s [00:52:47.536] ...future.X_jj <- ...future.elements_ii[[jj]] 1567s [00:52:47.536] assign(".Random.seed", ...future.seeds_ii[[jj]], 1567s [00:52:47.536] envir = globalenv(), inherits = FALSE) 1567s [00:52:47.536] ...future.FUN(...future.X_jj, ...) 1567s [00:52:47.536] }) 1567s [00:52:47.536] } 1567s [00:52:47.536] }, args = future.call.arguments) 1567s [00:52:47.536] } 1567s [00:52:47.537] Tweak future expression to call with '...' arguments ... DONE 1567s [00:52:47.538] - globals: [7] ‘...future.FUN’, ‘foo’, ‘x’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1567s [00:52:47.538] 1567s [00:52:47.538] getGlobalsAndPackages() ... DONE 1567s [00:52:47.538] run() for ‘Future’ ... 1567s [00:52:47.538] - state: ‘created’ 1567s [00:52:47.539] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1567s [00:52:47.542] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1567s [00:52:47.542] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1567s [00:52:47.542] - Field: ‘label’ 1567s [00:52:47.542] - Field: ‘local’ 1567s [00:52:47.542] - Field: ‘owner’ 1567s [00:52:47.543] - Field: ‘envir’ 1567s [00:52:47.543] - Field: ‘packages’ 1567s [00:52:47.543] - Field: ‘gc’ 1567s [00:52:47.543] - Field: ‘conditions’ 1567s [00:52:47.543] - Field: ‘expr’ 1567s [00:52:47.543] - Field: ‘uuid’ 1567s [00:52:47.543] - Field: ‘seed’ 1567s [00:52:47.543] - Field: ‘version’ 1567s [00:52:47.544] - Field: ‘result’ 1567s [00:52:47.544] - Field: ‘asynchronous’ 1567s [00:52:47.544] - Field: ‘calls’ 1567s [00:52:47.544] - Field: ‘globals’ 1567s [00:52:47.544] - Field: ‘stdout’ 1567s [00:52:47.544] - Field: ‘earlySignal’ 1567s [00:52:47.544] - Field: ‘lazy’ 1567s [00:52:47.544] - Field: ‘state’ 1567s [00:52:47.544] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1567s [00:52:47.545] - Launch lazy future ... 1567s [00:52:47.545] Packages needed by the future expression (n = 0): 1567s [00:52:47.545] Packages needed by future strategies (n = 0): 1567s [00:52:47.545] { 1567s [00:52:47.545] { 1567s [00:52:47.545] { 1567s [00:52:47.545] ...future.startTime <- base::Sys.time() 1567s [00:52:47.545] { 1567s [00:52:47.545] { 1567s [00:52:47.545] { 1567s [00:52:47.545] base::local({ 1567s [00:52:47.545] has_future <- base::requireNamespace("future", 1567s [00:52:47.545] quietly = TRUE) 1567s [00:52:47.545] if (has_future) { 1567s [00:52:47.545] ns <- base::getNamespace("future") 1567s [00:52:47.545] version <- ns[[".package"]][["version"]] 1567s [00:52:47.545] if (is.null(version)) 1567s [00:52:47.545] version <- utils::packageVersion("future") 1567s [00:52:47.545] } 1567s [00:52:47.545] else { 1567s [00:52:47.545] version <- NULL 1567s [00:52:47.545] } 1567s [00:52:47.545] if (!has_future || version < "1.8.0") { 1567s [00:52:47.545] info <- base::c(r_version = base::gsub("R version ", 1567s [00:52:47.545] "", base::R.version$version.string), 1567s [00:52:47.545] platform = base::sprintf("%s (%s-bit)", 1567s [00:52:47.545] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1567s [00:52:47.545] os = base::paste(base::Sys.info()[base::c("sysname", 1567s [00:52:47.545] "release", "version")], collapse = " "), 1567s [00:52:47.545] hostname = base::Sys.info()[["nodename"]]) 1567s [00:52:47.545] info <- base::sprintf("%s: %s", base::names(info), 1567s [00:52:47.545] info) 1567s [00:52:47.545] info <- base::paste(info, collapse = "; ") 1567s [00:52:47.545] if (!has_future) { 1567s [00:52:47.545] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1567s [00:52:47.545] info) 1567s [00:52:47.545] } 1567s [00:52:47.545] else { 1567s [00:52:47.545] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1567s [00:52:47.545] info, version) 1567s [00:52:47.545] } 1567s [00:52:47.545] base::stop(msg) 1567s [00:52:47.545] } 1567s [00:52:47.545] }) 1567s [00:52:47.545] } 1567s [00:52:47.545] options(future.plan = NULL) 1567s [00:52:47.545] Sys.unsetenv("R_FUTURE_PLAN") 1567s [00:52:47.545] future::plan("default", .cleanup = FALSE, .init = FALSE) 1567s [00:52:47.545] } 1567s [00:52:47.545] ...future.workdir <- getwd() 1567s [00:52:47.545] } 1567s [00:52:47.545] ...future.oldOptions <- base::as.list(base::.Options) 1567s [00:52:47.545] ...future.oldEnvVars <- base::Sys.getenv() 1567s [00:52:47.545] } 1567s [00:52:47.545] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1567s [00:52:47.545] future.globals.maxSize = NULL, future.globals.method = NULL, 1567s [00:52:47.545] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1567s [00:52:47.545] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1567s [00:52:47.545] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1567s [00:52:47.545] future.stdout.windows.reencode = NULL, width = 80L) 1567s [00:52:47.545] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1567s [00:52:47.545] base::names(...future.oldOptions)) 1567s [00:52:47.545] } 1567s [00:52:47.545] if (FALSE) { 1567s [00:52:47.545] } 1567s [00:52:47.545] else { 1567s [00:52:47.545] if (TRUE) { 1567s [00:52:47.545] ...future.stdout <- base::rawConnection(base::raw(0L), 1567s [00:52:47.545] open = "w") 1567s [00:52:47.545] } 1567s [00:52:47.545] else { 1567s [00:52:47.545] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1567s [00:52:47.545] windows = "NUL", "/dev/null"), open = "w") 1567s [00:52:47.545] } 1567s [00:52:47.545] base::sink(...future.stdout, type = "output", split = FALSE) 1567s [00:52:47.545] base::on.exit(if (!base::is.null(...future.stdout)) { 1567s [00:52:47.545] base::sink(type = "output", split = FALSE) 1567s [00:52:47.545] base::close(...future.stdout) 1567s [00:52:47.545] }, add = TRUE) 1567s [00:52:47.545] } 1567s [00:52:47.545] ...future.frame <- base::sys.nframe() 1567s [00:52:47.545] ...future.conditions <- base::list() 1567s [00:52:47.545] ...future.rng <- base::globalenv()$.Random.seed 1567s [00:52:47.545] if (FALSE) { 1567s [00:52:47.545] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1567s [00:52:47.545] "...future.value", "...future.globalenv.names", ".Random.seed") 1567s [00:52:47.545] } 1567s [00:52:47.545] ...future.result <- base::tryCatch({ 1567s [00:52:47.545] base::withCallingHandlers({ 1567s [00:52:47.545] ...future.value <- base::withVisible(base::local({ 1567s [00:52:47.545] do.call(function(...) { 1567s [00:52:47.545] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1567s [00:52:47.545] if (!identical(...future.globals.maxSize.org, 1567s [00:52:47.545] ...future.globals.maxSize)) { 1567s [00:52:47.545] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1567s [00:52:47.545] on.exit(options(oopts), add = TRUE) 1567s [00:52:47.545] } 1567s [00:52:47.545] { 1567s [00:52:47.545] lapply(seq_along(...future.elements_ii), 1567s [00:52:47.545] FUN = function(jj) { 1567s [00:52:47.545] ...future.X_jj <- ...future.elements_ii[[jj]] 1567s [00:52:47.545] assign(".Random.seed", ...future.seeds_ii[[jj]], 1567s [00:52:47.545] envir = globalenv(), inherits = FALSE) 1567s [00:52:47.545] ...future.FUN(...future.X_jj, ...) 1567s [00:52:47.545] }) 1567s [00:52:47.545] } 1567s [00:52:47.545] }, args = future.call.arguments) 1567s [00:52:47.545] })) 1567s [00:52:47.545] future::FutureResult(value = ...future.value$value, 1567s [00:52:47.545] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1567s [00:52:47.545] ...future.rng), globalenv = if (FALSE) 1567s [00:52:47.545] list(added = base::setdiff(base::names(base::.GlobalEnv), 1567s [00:52:47.545] ...future.globalenv.names)) 1567s [00:52:47.545] else NULL, started = ...future.startTime, version = "1.8") 1567s [00:52:47.545] }, condition = base::local({ 1567s [00:52:47.545] c <- base::c 1567s [00:52:47.545] inherits <- base::inherits 1567s [00:52:47.545] invokeRestart <- base::invokeRestart 1567s [00:52:47.545] length <- base::length 1567s [00:52:47.545] list <- base::list 1567s [00:52:47.545] seq.int <- base::seq.int 1567s [00:52:47.545] signalCondition <- base::signalCondition 1567s [00:52:47.545] sys.calls <- base::sys.calls 1567s [00:52:47.545] `[[` <- base::`[[` 1567s [00:52:47.545] `+` <- base::`+` 1567s [00:52:47.545] `<<-` <- base::`<<-` 1567s [00:52:47.545] sysCalls <- function(calls = sys.calls(), from = 1L) { 1567s [00:52:47.545] calls[seq.int(from = from + 12L, to = length(calls) - 1567s [00:52:47.545] 3L)] 1567s [00:52:47.545] } 1567s [00:52:47.545] function(cond) { 1567s [00:52:47.545] is_error <- inherits(cond, "error") 1567s [00:52:47.545] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1567s [00:52:47.545] NULL) 1567s [00:52:47.545] if (is_error) { 1567s [00:52:47.545] sessionInformation <- function() { 1567s [00:52:47.545] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1567s [00:52:47.545] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1567s [00:52:47.545] search = base::search(), system = base::Sys.info()) 1567s [00:52:47.545] } 1567s [00:52:47.545] ...future.conditions[[length(...future.conditions) + 1567s [00:52:47.545] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1567s [00:52:47.545] cond$call), session = sessionInformation(), 1567s [00:52:47.545] timestamp = base::Sys.time(), signaled = 0L) 1567s [00:52:47.545] signalCondition(cond) 1567s [00:52:47.545] } 1567s [00:52:47.545] else if (!ignore && TRUE && inherits(cond, c("condition", 1567s [00:52:47.545] "immediateCondition"))) { 1567s [00:52:47.545] signal <- TRUE && inherits(cond, "immediateCondition") 1567s [00:52:47.545] ...future.conditions[[length(...future.conditions) + 1567s [00:52:47.545] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1567s [00:52:47.545] if (TRUE && !signal) { 1567s [00:52:47.545] muffleCondition <- function (cond, pattern = "^muffle") 1567s [00:52:47.545] { 1567s [00:52:47.545] inherits <- base::inherits 1567s [00:52:47.545] invokeRestart <- base::invokeRestart 1567s [00:52:47.545] is.null <- base::is.null 1567s [00:52:47.545] muffled <- FALSE 1567s [00:52:47.545] if (inherits(cond, "message")) { 1567s [00:52:47.545] muffled <- grepl(pattern, "muffleMessage") 1567s [00:52:47.545] if (muffled) 1567s [00:52:47.545] invokeRestart("muffleMessage") 1567s [00:52:47.545] } 1567s [00:52:47.545] else if (inherits(cond, "warning")) { 1567s [00:52:47.545] muffled <- grepl(pattern, "muffleWarning") 1567s [00:52:47.545] if (muffled) 1567s [00:52:47.545] invokeRestart("muffleWarning") 1567s [00:52:47.545] } 1567s [00:52:47.545] else if (inherits(cond, "condition")) { 1567s [00:52:47.545] if (!is.null(pattern)) { 1567s [00:52:47.545] computeRestarts <- base::computeRestarts 1567s [00:52:47.545] grepl <- base::grepl 1567s [00:52:47.545] restarts <- computeRestarts(cond) 1567s [00:52:47.545] for (restart in restarts) { 1567s [00:52:47.545] name <- restart$name 1567s [00:52:47.545] if (is.null(name)) 1567s [00:52:47.545] next 1567s [00:52:47.545] if (!grepl(pattern, name)) 1567s [00:52:47.545] next 1567s [00:52:47.545] invokeRestart(restart) 1567s [00:52:47.545] muffled <- TRUE 1567s [00:52:47.545] break 1567s [00:52:47.545] } 1567s [00:52:47.545] } 1567s [00:52:47.545] } 1567s [00:52:47.545] invisible(muffled) 1567s [00:52:47.545] } 1567s [00:52:47.545] muffleCondition(cond, pattern = "^muffle") 1567s [00:52:47.545] } 1567s [00:52:47.545] } 1567s [00:52:47.545] else { 1567s [00:52:47.545] if (TRUE) { 1567s [00:52:47.545] muffleCondition <- function (cond, pattern = "^muffle") 1567s [00:52:47.545] { 1567s [00:52:47.545] inherits <- base::inherits 1567s [00:52:47.545] invokeRestart <- base::invokeRestart 1567s [00:52:47.545] is.null <- base::is.null 1567s [00:52:47.545] muffled <- FALSE 1567s [00:52:47.545] if (inherits(cond, "message")) { 1567s [00:52:47.545] muffled <- grepl(pattern, "muffleMessage") 1567s [00:52:47.545] if (muffled) 1567s [00:52:47.545] invokeRestart("muffleMessage") 1567s [00:52:47.545] } 1567s [00:52:47.545] else if (inherits(cond, "warning")) { 1567s [00:52:47.545] muffled <- grepl(pattern, "muffleWarning") 1567s [00:52:47.545] if (muffled) 1567s [00:52:47.545] invokeRestart("muffleWarning") 1567s [00:52:47.545] } 1567s [00:52:47.545] else if (inherits(cond, "condition")) { 1567s [00:52:47.545] if (!is.null(pattern)) { 1567s [00:52:47.545] computeRestarts <- base::computeRestarts 1567s [00:52:47.545] grepl <- base::grepl 1567s [00:52:47.545] restarts <- computeRestarts(cond) 1567s [00:52:47.545] for (restart in restarts) { 1567s [00:52:47.545] name <- restart$name 1567s [00:52:47.545] if (is.null(name)) 1567s [00:52:47.545] next 1567s [00:52:47.545] if (!grepl(pattern, name)) 1567s [00:52:47.545] next 1567s [00:52:47.545] invokeRestart(restart) 1567s [00:52:47.545] muffled <- TRUE 1567s [00:52:47.545] break 1567s [00:52:47.545] } 1567s [00:52:47.545] } 1567s [00:52:47.545] } 1567s [00:52:47.545] invisible(muffled) 1567s [00:52:47.545] } 1567s [00:52:47.545] muffleCondition(cond, pattern = "^muffle") 1567s [00:52:47.545] } 1567s [00:52:47.545] } 1567s [00:52:47.545] } 1567s [00:52:47.545] })) 1567s [00:52:47.545] }, error = function(ex) { 1567s [00:52:47.545] base::structure(base::list(value = NULL, visible = NULL, 1567s [00:52:47.545] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1567s [00:52:47.545] ...future.rng), started = ...future.startTime, 1567s [00:52:47.545] finished = Sys.time(), session_uuid = NA_character_, 1567s [00:52:47.545] version = "1.8"), class = "FutureResult") 1567s [00:52:47.545] }, finally = { 1567s [00:52:47.545] if (!identical(...future.workdir, getwd())) 1567s [00:52:47.545] setwd(...future.workdir) 1567s [00:52:47.545] { 1567s [00:52:47.545] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1567s [00:52:47.545] ...future.oldOptions$nwarnings <- NULL 1567s [00:52:47.545] } 1567s [00:52:47.545] base::options(...future.oldOptions) 1567s [00:52:47.545] if (.Platform$OS.type == "windows") { 1567s [00:52:47.545] old_names <- names(...future.oldEnvVars) 1567s [00:52:47.545] envs <- base::Sys.getenv() 1567s [00:52:47.545] names <- names(envs) 1567s [00:52:47.545] common <- intersect(names, old_names) 1567s [00:52:47.545] added <- setdiff(names, old_names) 1567s [00:52:47.545] removed <- setdiff(old_names, names) 1567s [00:52:47.545] changed <- common[...future.oldEnvVars[common] != 1567s [00:52:47.545] envs[common]] 1567s [00:52:47.545] NAMES <- toupper(changed) 1567s [00:52:47.545] args <- list() 1567s [00:52:47.545] for (kk in seq_along(NAMES)) { 1567s [00:52:47.545] name <- changed[[kk]] 1567s [00:52:47.545] NAME <- NAMES[[kk]] 1567s [00:52:47.545] if (name != NAME && is.element(NAME, old_names)) 1567s [00:52:47.545] next 1567s [00:52:47.545] args[[name]] <- ...future.oldEnvVars[[name]] 1567s [00:52:47.545] } 1567s [00:52:47.545] NAMES <- toupper(added) 1567s [00:52:47.545] for (kk in seq_along(NAMES)) { 1567s [00:52:47.545] name <- added[[kk]] 1567s [00:52:47.545] NAME <- NAMES[[kk]] 1567s [00:52:47.545] if (name != NAME && is.element(NAME, old_names)) 1567s [00:52:47.545] next 1567s [00:52:47.545] args[[name]] <- "" 1567s [00:52:47.545] } 1567s [00:52:47.545] NAMES <- toupper(removed) 1567s [00:52:47.545] for (kk in seq_along(NAMES)) { 1567s [00:52:47.545] name <- removed[[kk]] 1567s [00:52:47.545] NAME <- NAMES[[kk]] 1567s [00:52:47.545] if (name != NAME && is.element(NAME, old_names)) 1567s [00:52:47.545] next 1567s [00:52:47.545] args[[name]] <- ...future.oldEnvVars[[name]] 1567s [00:52:47.545] } 1567s [00:52:47.545] if (length(args) > 0) 1567s [00:52:47.545] base::do.call(base::Sys.setenv, args = args) 1567s [00:52:47.545] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1567s [00:52:47.545] } 1567s [00:52:47.545] else { 1567s [00:52:47.545] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1567s [00:52:47.545] } 1567s [00:52:47.545] { 1567s [00:52:47.545] if (base::length(...future.futureOptionsAdded) > 1567s [00:52:47.545] 0L) { 1567s [00:52:47.545] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1567s [00:52:47.545] base::names(opts) <- ...future.futureOptionsAdded 1567s [00:52:47.545] base::options(opts) 1567s [00:52:47.545] } 1567s [00:52:47.545] { 1567s [00:52:47.545] { 1567s [00:52:47.545] base::assign(".Random.seed", c(10403L, 8L, 1567s [00:52:47.545] 133210212L, 1945833034L, 115858357L, -364452081L, 1567s [00:52:47.545] -390319082L, 926195392L, 2057013379L, -803887967L, 1567s [00:52:47.545] -1078998384L, 705296750L, -1682614503L, 830917547L, 1567s [00:52:47.545] -331376230L, 1352842588L, 1960957023L, 1997081653L, 1567s [00:52:47.545] 374446028L, 1510359842L, 1146109309L, -1295266185L, 1567s [00:52:47.545] -1545472098L, 1268700760L, 1627111355L, -855092903L, 1567s [00:52:47.545] -215790872L, -1958931690L, 1906054289L, -782874301L, 1567s [00:52:47.545] -399096750L, -1740777756L, 1763676455L, -832683651L, 1567s [00:52:47.545] 1369376884L, 430697050L, 1699587749L, -1503628097L, 1567s [00:52:47.545] 856180550L, -242424368L, -2127251469L, 505777937L, 1567s [00:52:47.545] 257347392L, -856180962L, 886024169L, -1464480485L, 1567s [00:52:47.545] -1512233174L, -1985955764L, -425390065L, 1567s [00:52:47.545] -589669563L, 381897980L, -790840494L, 1136483533L, 1567s [00:52:47.545] -1535370105L, -607934610L, 1641470280L, -1050403509L, 1567s [00:52:47.545] 1965932713L, 362996216L, 1596838182L, -1829498303L, 1567s [00:52:47.545] -1824465965L, 1872669058L, -417374796L, -1713346249L, 1567s [00:52:47.545] 1818328109L, -1284085436L, -1981489558L, 1567s [00:52:47.545] 1940543701L, 1673049711L, -1514495114L, 467096736L, 1567s [00:52:47.545] 943410531L, -1431020031L, 1115626864L, 965475598L, 1567s [00:52:47.545] -1718567047L, -793788661L, -1133789126L, 1567s [00:52:47.545] -80588996L, 2018258047L, 1866186709L, 42791404L, 1567s [00:52:47.545] -1823521982L, -1345991523L, -1672661737L, 1567s [00:52:47.545] -180777858L, -452713416L, 1448313627L, -1459492743L, 1567s [00:52:47.545] -600706872L, -909649674L, -2081822415L, -1697455773L, 1567s [00:52:47.545] 1517613874L, -820020092L, 188336327L, -1149897827L, 1567s [00:52:47.545] -475203820L, -368005702L, 204442629L, 437854687L, 1567s [00:52:47.545] 1163191398L, -760699920L, 104455443L, 819708593L, 1567s [00:52:47.545] 1129180512L, 48636670L, 1066049161L, 398150075L, 1567s [00:52:47.545] -852036726L, -906028436L, -1265740817L, -1824646107L, 1567s [00:52:47.545] -2126068516L, 1815435954L, -146408019L, -860012185L, 1567s [00:52:47.545] -682500466L, 1443186536L, 1789394795L, -1078204151L, 1567s [00:52:47.545] 809467800L, 1514112710L, -1097673695L, 919601331L, 1567s [00:52:47.545] -331916766L, 795008020L, 1042337943L, -371219827L, 1567s [00:52:47.545] 1558967204L, 1563528586L, -2133607947L, -1904454577L, 1567s [00:52:47.545] -264006826L, 770017792L, 153477955L, 1189667553L, 1567s [00:52:47.545] -363253680L, 1882362030L, 967246937L, -793119637L, 1567s [00:52:47.545] -1401964070L, 2129232540L, -542810977L, -1277899019L, 1567s [00:52:47.545] -377097332L, -406748574L, -1722157507L, -1577740105L, 1567s [00:52:47.545] -455170210L, 372239000L, -1535936005L, -1332632679L, 1567s [00:52:47.545] -1623884760L, -359633706L, 935827793L, 1357445123L, 1567s [00:52:47.545] 997040018L, -1506538204L, -147930137L, -166569923L, 1567s [00:52:47.545] -2103753036L, 1366641946L, 30482021L, 1876964095L, 1567s [00:52:47.545] 2008557446L, 657856784L, -103814733L, 774877777L, 1567s [00:52:47.545] -486350336L, -555057442L, -1821756119L, -963495717L, 1567s [00:52:47.545] 853311466L, 1671241612L, -942337841L, 409538693L, 1567s [00:52:47.545] 1992831804L, 489867794L, 357105933L, -1611412921L, 1567s [00:52:47.545] -1119334354L, -1521015416L, -2041922421L, 1567s [00:52:47.545] 2048874089L, -700216776L, 1651628774L, -10471807L, 1567s [00:52:47.545] 736942611L, 380607938L, -1742088588L, 1124231287L, 1567s [00:52:47.545] 1232111981L, -1801753084L, -1608606422L, 1567s [00:52:47.545] -1172096363L, 1420874031L, -1210473418L, 1567s [00:52:47.545] -18317216L, -571709789L, 1107403201L, 1952554416L, 1567s [00:52:47.545] 1991660750L, -442973639L, 581522507L, -430787078L, 1567s [00:52:47.545] 1105375484L, -1481218753L, -748152299L, -641535700L, 1567s [00:52:47.545] 679371266L, -591318819L, -104578089L, -172818754L, 1567s [00:52:47.545] -1321694984L, -98191653L, 1709083961L, -344680312L, 1567s [00:52:47.545] -159571914L, 581309553L, -63938909L, 76420082L, 1567s [00:52:47.545] 951019332L, -1797740537L, 1291470301L, -2079866156L, 1567s [00:52:47.545] -332493318L, -1978392251L, -1691039632L, 1567s [00:52:47.545] 388791868L, -1101109484L, -1365177662L, 321737440L, 1567s [00:52:47.545] 1812890748L, -133313328L, -1252731998L, 2044530216L, 1567s [00:52:47.545] 1263927564L, 325388220L, 520794418L, 1449646272L, 1567s [00:52:47.545] 87560756L, -87565624L, 426345146L, -699970416L, 1567s [00:52:47.545] 240322284L, -1074080172L, -1536268654L, 1338615584L, 1567s [00:52:47.545] 478476236L, -1933154080L, -192786750L, 1559942184L, 1567s [00:52:47.545] -1178330196L, -687617348L, -1701912078L, 1567s [00:52:47.545] 352314928L, -999229532L, -2052800072L, -1913644198L, 1567s [00:52:47.545] -1345416048L, 1816730492L, -1570431212L, 1567s [00:52:47.545] -269427390L, -2122969344L, -520963140L, 1398087504L, 1567s [00:52:47.545] 264692002L, -1682658744L, -1422452724L, -1601893284L, 1567s [00:52:47.545] -66383406L, 1443075584L, -456249004L, 943694056L, 1567s [00:52:47.545] -1493184262L, -1943836976L, -590788308L, 1567s [00:52:47.545] -405505804L, -1796837998L, 1991543136L, 1170376716L, 1567s [00:52:47.545] 1707420384L, 1899700834L, -1643595096L, 47299148L, 1567s [00:52:47.545] 1274857340L, -1205842638L, -1938479504L, 1567s [00:52:47.545] -1773978812L, 532695000L, 1306451834L, 258403888L, 1567s [00:52:47.545] -284747844L, -1780705708L, 1621936194L, 1129070752L, 1567s [00:52:47.545] 540946108L, -294270512L, -1426480286L, -356302104L, 1567s [00:52:47.545] 349847756L, 1849803260L, -1299125774L, 511654528L, 1567s [00:52:47.545] -1259964940L, -1879857528L, 535666490L, -2020097200L, 1567s [00:52:47.545] -1460751252L, 1201879444L, -1459788718L, 1567s [00:52:47.545] 447195616L, -730891060L, -1875530592L, -2146183806L, 1567s [00:52:47.545] 193274088L, -1224605972L, 1616153916L, -1896973198L, 1567s [00:52:47.545] -420945808L, -1997735900L, -1838404552L, 1567s [00:52:47.545] -413698278L, 1984019664L, -1760209092L, -1288743020L, 1567s [00:52:47.545] 392579970L, -1382567488L, -1295004100L, -33348208L, 1567s [00:52:47.545] 1536615970L, -428761848L, 643368588L, -1596336356L, 1567s [00:52:47.545] 1797431442L, 352422272L, -1043800556L, 60591912L, 1567s [00:52:47.545] -1115663814L, 1043682768L, 521144684L, 4793268L, 1567s [00:52:47.545] -1924265966L, 978890208L, 370048972L, -1607474976L, 1567s [00:52:47.545] -1443637214L, -632405720L, 691912204L, 166321980L, 1567s [00:52:47.545] 942193650L, 751741680L, 689743428L, -18455976L, 1567s [00:52:47.545] -1946329286L, -1619184144L, 239341244L, 371382548L, 1567s [00:52:47.545] -2069808446L, 154176608L, 385987452L, -385611824L, 1567s [00:52:47.545] 1967391010L, 2140654248L, 1720087436L, -1591007044L, 1567s [00:52:47.545] -1612486862L, 1295747648L, 1726784692L, 597326408L, 1567s [00:52:47.545] -973152838L, 628505104L, -1089631508L, 3230036L, 1567s [00:52:47.545] -593837806L, 244006304L, 1357912780L, 1839234656L, 1567s [00:52:47.545] -1357570110L, 1896595240L, -2066952276L, 1567s [00:52:47.545] -1724304580L, 986188146L, -1200604368L, -279100124L, 1567s [00:52:47.545] 131128120L, -1088465190L, 596533136L, 170602236L, 1567s [00:52:47.545] -1051262060L, 215660610L, -686217984L, 444449852L, 1567s [00:52:47.545] 769655120L, 236357794L, 181393736L, -13334772L, 1567s [00:52:47.545] 644690652L, -1969263278L, -2107982720L, 1429553236L, 1567s [00:52:47.545] 794236904L, 1997299962L, -458224816L, 904978220L, 1567s [00:52:47.545] -537093772L, -842839150L, 1828989024L, -679303796L, 1567s [00:52:47.545] 1396292448L, 76319202L, 1896098728L, 418430156L, 1567s [00:52:47.545] 2005956604L, 1370351026L, -1178923536L, -1154073660L, 1567s [00:52:47.545] -1218863784L, 89928058L, 816597936L, -1141767748L, 1567s [00:52:47.545] 1579714644L, 1343385538L, 371259424L, -245180228L, 1567s [00:52:47.545] 365724240L, 1606388706L, -823678872L, 1281309772L, 1567s [00:52:47.545] 1395210492L, 1217887218L, 1420531968L, 1349501300L, 1567s [00:52:47.545] 271647752L, -69959750L, 360452560L, 1565334508L, 1567s [00:52:47.545] 1956526484L, -930709038L, 1961808224L, -1745916084L, 1567s [00:52:47.545] 443656480L, 1990137730L, 694374120L, -1050566420L, 1567s [00:52:47.545] -1365842884L, -438961294L, -1851472272L, 1567s [00:52:47.545] 614534180L, 1401930552L, 3652762L, 1928284880L, 1567s [00:52:47.545] -1637703492L, 26107540L, -132725907L, -371944998L, 1567s [00:52:47.545] -1311388776L, 8516097L, 741008307L, -1149566252L, 1567s [00:52:47.545] -1802640414L, 2019636855L, 1587818433L, -151040698L, 1567s [00:52:47.545] 1598381188L, -205462987L, 1911327L, -1382519432L, 1567s [00:52:47.545] -594809770L, -2146766621L, -2013964635L, 1567s [00:52:47.545] -965534910L, -2077626064L, 1964788057L, 1821395659L, 1567s [00:52:47.545] -1953549508L, -719348886L, 1442511263L, 1969287209L, 1567s [00:52:47.545] 1754221246L, -442299476L, 1981692157L, 113456199L, 1567s [00:52:47.545] 1587794736L, -1811033010L, 1149417595L, -1760887843L, 1567s [00:52:47.545] -1426021878L, -1285634264L, 1507547537L, 1567s [00:52:47.545] -1114120317L, 1897370756L, 1142575794L, -375814649L, 1567s [00:52:47.545] -1661041071L, 881081814L, -548925260L, 2073840837L, 1567s [00:52:47.545] 1156484623L, 2011334280L, 1107815334L, 969024339L, 1567s [00:52:47.545] -55972683L, 2006780434L, -1486403616L, 1698650697L, 1567s [00:52:47.545] 1813794939L, -1717763764L, 1268815066L, -1200630577L, 1567s [00:52:47.545] -773717863L, -12215122L, 1354639804L, 1213207085L, 1567s [00:52:47.545] -978295337L, 340143136L, 485429630L, -568148149L, 1567s [00:52:47.545] 1257440589L, 930106234L, -883274312L, -1632538783L, 1567s [00:52:47.545] 894748435L, -1592959180L, -596177598L, 120963415L, 1567s [00:52:47.545] -1174532959L, -561474202L, 1438545764L, 1429911189L, 1567s [00:52:47.545] 1075965887L, 367866712L, -892333706L, -485158013L, 1567s [00:52:47.545] -682634811L, 963344098L, 2110199632L, 1990767225L, 1567s [00:52:47.545] 1348335019L, 269581084L, -2040640438L, 1453561919L, 1567s [00:52:47.545] 853952649L, 1195494558L, 1614051660L, 2040242461L, 1567s [00:52:47.545] -1604604761L, 1421229008L, -1268333714L, 1567s [00:52:47.545] 174113307L, 2044969853L, 190112106L, -998776824L, 1567s [00:52:47.545] -2070476623L, -2099222749L, 1141171236L, 1567s [00:52:47.545] -146426158L, -1797385433L, -1129376399L, 1567s [00:52:47.545] -1496589386L, -419561644L, -613549595L, 1243456495L, 1567s [00:52:47.545] 451212072L, 1923543942L, 1146113971L, 93579029L, 1567s [00:52:47.545] -397504142L, 597218752L, 459048489L, 1447221915L, 1567s [00:52:47.545] -272948372L, -373834886L, 934888623L, -2099351623L, 1567s [00:52:47.545] -1672042034L, 193924380L, -704518003L, 781993207L, 1567s [00:52:47.545] -258875392L, -1853783458L, 1315003691L, -41214419L, 1567s [00:52:47.545] -59447654L, 1203745368L, 426003905L, 452670067L, 1567s [00:52:47.545] -1092079724L, -1765622238L, -1882554057L, 1567s [00:52:47.545] 1278087169L, -1994822394L, -124954300L, 1994460277L, 1567s [00:52:47.545] 1816829407L, -1568282312L, 1563616022L, 1255996195L, 1567s [00:52:47.545] 1702121701L, 1784032514L, 1842995056L, 748060441L, 1567s [00:52:47.545] 1432229643L, -1905232900L, 2016890922L, 1403944031L, 1567s [00:52:47.545] 351712233L, 1338932478L, -1359366932L, -803018691L, 1567s [00:52:47.545] -1551885305L, 248629232L, 1839395726L, 1411789243L, 1567s [00:52:47.545] 840085405L, -1849000630L, -669518488L, -1453417647L, 1567s [00:52:47.545] -1527179197L, -377159356L, 1674525170L, -313742393L, 1567s [00:52:47.545] 865377681L, -1127426242L), envir = base::globalenv(), 1567s [00:52:47.545] inherits = FALSE) 1567s [00:52:47.545] NULL 1567s [00:52:47.545] } 1567s [00:52:47.545] options(future.plan = NULL) 1567s [00:52:47.545] if (is.na(NA_character_)) 1567s [00:52:47.545] Sys.unsetenv("R_FUTURE_PLAN") 1567s [00:52:47.545] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1567s [00:52:47.545] future::plan(list(function (..., workers = availableCores(), 1567s [00:52:47.545] lazy = FALSE, rscript_libs = .libPaths(), 1567s [00:52:47.545] envir = parent.frame()) 1567s [00:52:47.545] { 1567s [00:52:47.545] if (is.function(workers)) 1567s [00:52:47.545] workers <- workers() 1567s [00:52:47.545] workers <- structure(as.integer(workers), 1567s [00:52:47.545] class = class(workers)) 1567s [00:52:47.545] stop_if_not(length(workers) == 1, is.finite(workers), 1567s [00:52:47.545] workers >= 1) 1567s [00:52:47.545] if (workers == 1L && !inherits(workers, "AsIs")) { 1567s [00:52:47.545] return(sequential(..., lazy = TRUE, envir = envir)) 1567s [00:52:47.545] } 1567s [00:52:47.545] future <- MultisessionFuture(..., workers = workers, 1567s [00:52:47.545] lazy = lazy, rscript_libs = rscript_libs, 1567s [00:52:47.545] envir = envir) 1567s [00:52:47.545] if (!future$lazy) 1567s [00:52:47.545] future <- run(future) 1567s [00:52:47.545] invisible(future) 1567s [00:52:47.545] }), .cleanup = FALSE, .init = FALSE) 1567s [00:52:47.545] } 1567s [00:52:47.545] } 1567s [00:52:47.545] } 1567s [00:52:47.545] }) 1567s [00:52:47.545] if (TRUE) { 1567s [00:52:47.545] base::sink(type = "output", split = FALSE) 1567s [00:52:47.545] if (TRUE) { 1567s [00:52:47.545] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1567s [00:52:47.545] } 1567s [00:52:47.545] else { 1567s [00:52:47.545] ...future.result["stdout"] <- base::list(NULL) 1567s [00:52:47.545] } 1567s [00:52:47.545] base::close(...future.stdout) 1567s [00:52:47.545] ...future.stdout <- NULL 1567s [00:52:47.545] } 1567s [00:52:47.545] ...future.result$conditions <- ...future.conditions 1567s [00:52:47.545] ...future.result$finished <- base::Sys.time() 1567s [00:52:47.545] ...future.result 1567s [00:52:47.545] } 1567s [00:52:47.555] assign_globals() ... 1567s [00:52:47.555] List of 7 1567s [00:52:47.555] $ ...future.FUN :function (...) 1567s [00:52:47.555] $ foo :function (x = 1, y = 2) 1567s [00:52:47.555] $ x : num 3 1567s [00:52:47.555] $ future.call.arguments : list() 1567s [00:52:47.555] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1567s [00:52:47.555] $ ...future.elements_ii :List of 5 1567s [00:52:47.555] ..$ : int 0 1567s [00:52:47.555] ..$ : int 0 1567s [00:52:47.555] ..$ : int 0 1567s [00:52:47.555] ..$ : int 0 1567s [00:52:47.555] ..$ : int 0 1567s [00:52:47.555] $ ...future.seeds_ii :List of 5 1567s [00:52:47.555] ..$ : int [1:7] 10407 2118672648 973015440 1612380474 -529784560 -1301423278 1609721430 1567s [00:52:47.555] ..$ : int [1:7] 10407 -919798402 -1810630142 -850731864 -613657701 1060945587 1656143537 1567s [00:52:47.555] ..$ : int [1:7] 10407 1666123668 -918032954 1563303830 744861469 2009520167 369843810 1567s [00:52:47.555] ..$ : int [1:7] 10407 1310441948 2080683693 652639441 1795850730 1953532141 354730309 1567s [00:52:47.555] ..$ : int [1:7] 10407 -346794781 -526954742 61882141 1694204077 -404066420 2102686045 1567s [00:52:47.555] $ ...future.globals.maxSize: NULL 1567s [00:52:47.555] - attr(*, "where")=List of 7 1567s [00:52:47.555] ..$ ...future.FUN : 1567s [00:52:47.555] ..$ foo : 1567s [00:52:47.555] ..$ x : 1567s [00:52:47.555] ..$ future.call.arguments : 1567s [00:52:47.555] ..$ ...future.elements_ii : 1567s [00:52:47.555] ..$ ...future.seeds_ii : 1567s [00:52:47.555] ..$ ...future.globals.maxSize: 1567s [00:52:47.555] - attr(*, "resolved")= logi FALSE 1567s [00:52:47.555] - attr(*, "total_size")= num 2200 1567s [00:52:47.555] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1567s [00:52:47.555] - attr(*, "already-done")= logi TRUE 1567s [00:52:47.566] - reassign environment for ‘...future.FUN’ 1567s [00:52:47.566] - copied ‘...future.FUN’ to environment 1567s [00:52:47.566] - reassign environment for ‘foo’ 1567s [00:52:47.566] - copied ‘foo’ to environment 1567s [00:52:47.566] - copied ‘x’ to environment 1567s [00:52:47.566] - copied ‘future.call.arguments’ to environment 1567s [00:52:47.566] - copied ‘...future.elements_ii’ to environment 1567s [00:52:47.567] - copied ‘...future.seeds_ii’ to environment 1567s [00:52:47.567] - copied ‘...future.globals.maxSize’ to environment 1567s [00:52:47.567] assign_globals() ... done 1567s [00:52:47.567] plan(): Setting new future strategy stack: 1567s [00:52:47.567] List of future strategies: 1567s [00:52:47.567] 1. sequential: 1567s [00:52:47.567] - args: function (..., envir = parent.frame()) 1567s [00:52:47.567] - tweaked: FALSE 1567s [00:52:47.567] - call: NULL 1567s [00:52:47.568] plan(): nbrOfWorkers() = 1 1567s [00:52:47.570] plan(): Setting new future strategy stack: 1567s [00:52:47.570] List of future strategies: 1567s [00:52:47.570] 1. multisession: 1567s [00:52:47.570] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1567s [00:52:47.570] - tweaked: FALSE 1567s [00:52:47.570] - call: plan(strategy) 1567s [00:52:47.573] plan(): nbrOfWorkers() = 1 1567s [00:52:47.574] SequentialFuture started (and completed) 1567s [00:52:47.574] - Launch lazy future ... done 1567s [00:52:47.574] run() for ‘SequentialFuture’ ... done 1567s [00:52:47.574] Created future: 1567s [00:52:47.574] SequentialFuture: 1567s [00:52:47.574] Label: ‘future_replicate-1’ 1567s [00:52:47.574] Expression: 1567s [00:52:47.574] { 1567s [00:52:47.574] do.call(function(...) { 1567s [00:52:47.574] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1567s [00:52:47.574] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1567s [00:52:47.574] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1567s [00:52:47.574] on.exit(options(oopts), add = TRUE) 1567s [00:52:47.574] } 1567s [00:52:47.574] { 1567s [00:52:47.574] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1567s [00:52:47.574] ...future.X_jj <- ...future.elements_ii[[jj]] 1567s [00:52:47.574] assign(".Random.seed", ...future.seeds_ii[[jj]], 1567s [00:52:47.574] envir = globalenv(), inherits = FALSE) 1567s [00:52:47.574] ...future.FUN(...future.X_jj, ...) 1567s [00:52:47.574] }) 1567s [00:52:47.574] } 1567s [00:52:47.574] }, args = future.call.arguments) 1567s [00:52:47.574] } 1567s [00:52:47.574] Lazy evaluation: FALSE 1567s [00:52:47.574] Asynchronous evaluation: FALSE 1567s [00:52:47.574] Local evaluation: TRUE 1567s [00:52:47.574] Environment: 0x2aa2bedb3f0 1567s [00:52:47.574] Capture standard output: TRUE 1567s [00:52:47.574] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1567s [00:52:47.574] Globals: 7 objects totaling 2.81 KiB (function ‘...future.FUN’ of 504 bytes, function ‘foo’ of 1.60 KiB, numeric ‘x’ of 56 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 280 bytes, ...) 1567s [00:52:47.574] Packages: 1567s [00:52:47.574] L'Ecuyer-CMRG RNG seed: (seed = NULL) 1567s [00:52:47.574] Resolved: TRUE 1567s [00:52:47.574] Value: 320 bytes of class ‘list’ 1567s [00:52:47.574] Early signaling: FALSE 1567s [00:52:47.574] Owner process: 50289bf5-8c9f-f501-15c6-3ca1fa8d82cf 1567s [00:52:47.574] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1567s [00:52:47.576] Chunk #1 of 1 ... DONE 1567s [00:52:47.577] Launching 1 futures (chunks) ... DONE 1567s [00:52:47.577] Resolving 1 futures (chunks) ... 1567s [00:52:47.577] resolve() on list ... 1567s [00:52:47.577] recursive: 0 1567s [00:52:47.577] length: 1 1567s [00:52:47.577] 1567s [00:52:47.577] resolved() for ‘SequentialFuture’ ... 1567s [00:52:47.578] - state: ‘finished’ 1567s [00:52:47.578] - run: TRUE 1567s [00:52:47.578] - result: ‘FutureResult’ 1567s [00:52:47.578] resolved() for ‘SequentialFuture’ ... done 1567s [00:52:47.578] Future #1 1567s [00:52:47.578] signalConditionsASAP(SequentialFuture, pos=1) ... 1567s [00:52:47.579] - nx: 1 1567s [00:52:47.579] - relay: TRUE 1567s [00:52:47.579] - stdout: TRUE 1567s [00:52:47.579] - signal: TRUE 1567s [00:52:47.579] - resignal: FALSE 1567s [00:52:47.580] - force: TRUE 1567s [00:52:47.580] - relayed: [n=1] FALSE 1567s [00:52:47.580] - queued futures: [n=1] FALSE 1567s [00:52:47.580] - until=1 1567s [00:52:47.581] - relaying element #1 1567s [00:52:47.581] - relayed: [n=1] TRUE 1567s [00:52:47.582] - queued futures: [n=1] TRUE 1567s [00:52:47.582] signalConditionsASAP(SequentialFuture, pos=1) ... done 1567s [00:52:47.583] length: 0 (resolved future 1) 1567s [00:52:47.583] Relaying remaining futures 1567s [00:52:47.583] signalConditionsASAP(NULL, pos=0) ... 1567s [00:52:47.583] - nx: 1 1567s [00:52:47.583] - relay: TRUE 1567s [00:52:47.584] - stdout: TRUE 1567s [00:52:47.584] - signal: TRUE 1567s [00:52:47.584] - resignal: FALSE 1567s [00:52:47.584] - force: TRUE 1567s [00:52:47.584] - relayed: [n=1] TRUE 1567s [00:52:47.584] - queued futures: [n=1] TRUE 1567s - flush all 1567s [00:52:47.585] - relayed: [n=1] TRUE 1567s [00:52:47.585] - queued futures: [n=1] TRUE 1567s [00:52:47.585] signalConditionsASAP(NULL, pos=0) ... done 1567s [00:52:47.585] resolve() on list ... DONE 1567s [00:52:47.585] - Number of value chunks collected: 1 1567s [00:52:47.586] Resolving 1 futures (chunks) ... DONE 1567s [00:52:47.586] Reducing values from 1 chunks ... 1567s [00:52:47.586] - Number of values collected after concatenation: 5 1567s [00:52:47.586] - Number of values expected: 5 1567s [00:52:47.586] Reducing values from 1 chunks ... DONE 1567s [00:52:47.586] future_lapply() ... DONE 1567s [00:52:47.587] plan(): Setting new future strategy stack: 1567s [00:52:47.587] List of future strategies: 1567s [00:52:47.587] 1. sequential: 1567s [00:52:47.587] - args: function (..., envir = parent.frame()) 1567s [00:52:47.587] - tweaked: FALSE 1567s [00:52:47.587] - call: plan(sequential) 1567s [00:52:47.587] plan(): nbrOfWorkers() = 1 1567s *** strategy = ‘multisession’ ... done 1567s *** future_replicate() ... DONE 1567s > 1567s > message("*** future_replicate() ... DONE") 1567s > 1567s > source("incl/end.R") 1567s [00:52:47.589] plan(): Setting new future strategy stack: 1567s [00:52:47.589] List of future strategies: 1567s [00:52:47.589] 1. FutureStrategy: 1567s [00:52:47.589] - args: function (..., envir = parent.frame()) 1567s [00:52:47.589] - tweaked: FALSE 1567s [00:52:47.589] - call: future::plan(oplan) 1567s [00:52:47.589] plan(): nbrOfWorkers() = 1 1567s > 1567s BEGIN TEST future_sapply.R 1567s 1567s R version 4.3.3 (2024-02-29) -- "Angel Food Cake" 1567s Copyright (C) 2024 The R Foundation for Statistical Computing 1567s Platform: s390x-ibm-linux-gnu (64-bit) 1567s 1567s R is free software and comes with ABSOLUTELY NO WARRANTY. 1567s You are welcome to redistribute it under certain conditions. 1567s Type 'license()' or 'licence()' for distribution details. 1567s 1567s R is a collaborative project with many contributors. 1567s Type 'contributors()' for more information and 1567s 'citation()' on how to cite R or R packages in publications. 1567s 1567s Type 'demo()' for some demos, 'help()' for on-line help, or 1567s 'help.start()' for an HTML browser interface to help. 1567s Type 'q()' to quit R. 1567s 1567s > source("incl/start.R") 1567s Loading required package: future 1568s [00:52:47.923] plan(): Setting new future strategy stack: 1568s > [00:52:47.924] List of future strategies: 1568s [00:52:47.924] 1. sequential: 1568s [00:52:47.924] - args: function (..., envir = parent.frame()) 1568s [00:52:47.924] - tweaked: FALSE 1568s [00:52:47.924] - call: future::plan("sequential") 1568s [00:52:47.942] plan(): nbrOfWorkers() = 1 1568s *** future_sapply() ... 1568s *** strategy = ‘sequential’ ... 1568s [00:52:47.984] plan(): Setting new future strategy stack: 1568s [00:52:47.984] List of future strategies: 1568s [00:52:47.984] 1. sequential: 1568s [00:52:47.984] - args: function (..., envir = parent.frame()) 1568s [00:52:47.984] - tweaked: FALSE 1568s [00:52:47.984] - call: plan(strategy) 1568s [00:52:47.999] plan(): nbrOfWorkers() = 1 1568s [00:52:48.000] future_lapply() ... 1568s [00:52:48.004] Number of chunks: 1 1568s [00:52:48.005] getGlobalsAndPackagesXApply() ... 1568s [00:52:48.005] - future.globals: TRUE 1568s [00:52:48.006] getGlobalsAndPackages() ... 1568s [00:52:48.006] Searching for globals... 1568s [00:52:48.011] - globals found: [1] ‘FUN’ 1568s [00:52:48.012] Searching for globals ... DONE 1568s [00:52:48.012] Resolving globals: FALSE 1568s [00:52:48.013] The total size of the 1 globals is 848 bytes (848 bytes) 1568s [00:52:48.014] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1568s [00:52:48.014] - globals: [1] ‘FUN’ 1568s [00:52:48.015] 1568s [00:52:48.015] getGlobalsAndPackages() ... DONE 1568s [00:52:48.015] - globals found/used: [n=1] ‘FUN’ 1568s [00:52:48.015] - needed namespaces: [n=0] 1568s [00:52:48.015] Finding globals ... DONE 1568s [00:52:48.015] - use_args: TRUE 1568s [00:52:48.015] - Getting '...' globals ... 1568s [00:52:48.017] resolve() on list ... 1568s [00:52:48.017] recursive: 0 1568s [00:52:48.017] length: 1 1568s [00:52:48.017] elements: ‘...’ 1568s [00:52:48.017] length: 0 (resolved future 1) 1568s [00:52:48.018] resolve() on list ... DONE 1568s [00:52:48.018] - '...' content: [n=0] 1568s [00:52:48.018] List of 1 1568s [00:52:48.018] $ ...: list() 1568s [00:52:48.018] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1568s [00:52:48.018] - attr(*, "where")=List of 1 1568s [00:52:48.018] ..$ ...: 1568s [00:52:48.018] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1568s [00:52:48.018] - attr(*, "resolved")= logi TRUE 1568s [00:52:48.018] - attr(*, "total_size")= num NA 1568s [00:52:48.025] - Getting '...' globals ... DONE 1568s [00:52:48.025] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1568s [00:52:48.025] List of 2 1568s [00:52:48.025] $ ...future.FUN:function (x) 1568s [00:52:48.025] $ ... : list() 1568s [00:52:48.025] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1568s [00:52:48.025] - attr(*, "where")=List of 2 1568s [00:52:48.025] ..$ ...future.FUN: 1568s [00:52:48.025] ..$ ... : 1568s [00:52:48.025] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1568s [00:52:48.025] - attr(*, "resolved")= logi FALSE 1568s [00:52:48.025] - attr(*, "total_size")= num 848 1568s [00:52:48.029] Packages to be attached in all futures: [n=0] 1568s [00:52:48.029] getGlobalsAndPackagesXApply() ... DONE 1568s [00:52:48.030] Number of futures (= number of chunks): 1 1568s [00:52:48.030] Launching 1 futures (chunks) ... 1568s [00:52:48.030] Chunk #1 of 1 ... 1568s [00:52:48.031] - Finding globals in 'X' for chunk #1 ... 1568s [00:52:48.031] getGlobalsAndPackages() ... 1568s [00:52:48.031] Searching for globals... 1568s [00:52:48.034] 1568s [00:52:48.034] Searching for globals ... DONE 1568s [00:52:48.034] - globals: [0] 1568s [00:52:48.034] getGlobalsAndPackages() ... DONE 1568s [00:52:48.034] + additional globals found: [n=0] 1568s [00:52:48.034] + additional namespaces needed: [n=0] 1568s [00:52:48.035] - Finding globals in 'X' for chunk #1 ... DONE 1568s [00:52:48.035] - seeds: 1568s [00:52:48.035] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1568s [00:52:48.035] getGlobalsAndPackages() ... 1568s [00:52:48.035] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1568s [00:52:48.036] Resolving globals: FALSE 1568s [00:52:48.036] Tweak future expression to call with '...' arguments ... 1568s [00:52:48.036] { 1568s [00:52:48.036] do.call(function(...) { 1568s [00:52:48.036] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1568s [00:52:48.036] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1568s [00:52:48.036] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1568s [00:52:48.036] on.exit(options(oopts), add = TRUE) 1568s [00:52:48.036] } 1568s [00:52:48.036] { 1568s [00:52:48.036] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1568s [00:52:48.036] ...future.X_jj <- ...future.elements_ii[[jj]] 1568s [00:52:48.036] ...future.FUN(...future.X_jj, ...) 1568s [00:52:48.036] }) 1568s [00:52:48.036] } 1568s [00:52:48.036] }, args = future.call.arguments) 1568s [00:52:48.036] } 1568s [00:52:48.036] Tweak future expression to call with '...' arguments ... DONE 1568s [00:52:48.037] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1568s [00:52:48.037] 1568s [00:52:48.037] getGlobalsAndPackages() ... DONE 1568s [00:52:48.038] run() for ‘Future’ ... 1568s [00:52:48.038] - state: ‘created’ 1568s [00:52:48.038] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1568s [00:52:48.039] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1568s [00:52:48.039] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1568s [00:52:48.039] - Field: ‘label’ 1568s [00:52:48.039] - Field: ‘local’ 1568s [00:52:48.039] - Field: ‘owner’ 1568s [00:52:48.040] - Field: ‘envir’ 1568s [00:52:48.040] - Field: ‘packages’ 1568s [00:52:48.040] - Field: ‘gc’ 1568s [00:52:48.040] - Field: ‘conditions’ 1568s [00:52:48.040] - Field: ‘expr’ 1568s [00:52:48.040] - Field: ‘uuid’ 1568s [00:52:48.041] - Field: ‘seed’ 1568s [00:52:48.041] - Field: ‘version’ 1568s [00:52:48.041] - Field: ‘result’ 1568s [00:52:48.041] - Field: ‘asynchronous’ 1568s [00:52:48.041] - Field: ‘calls’ 1568s [00:52:48.041] - Field: ‘globals’ 1568s [00:52:48.041] - Field: ‘stdout’ 1568s [00:52:48.042] - Field: ‘earlySignal’ 1568s [00:52:48.042] - Field: ‘lazy’ 1568s [00:52:48.042] - Field: ‘state’ 1568s [00:52:48.042] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1568s [00:52:48.042] - Launch lazy future ... 1568s [00:52:48.043] Packages needed by the future expression (n = 0): 1568s [00:52:48.044] Packages needed by future strategies (n = 0): 1568s [00:52:48.045] { 1568s [00:52:48.045] { 1568s [00:52:48.045] { 1568s [00:52:48.045] ...future.startTime <- base::Sys.time() 1568s [00:52:48.045] { 1568s [00:52:48.045] { 1568s [00:52:48.045] { 1568s [00:52:48.045] base::local({ 1568s [00:52:48.045] has_future <- base::requireNamespace("future", 1568s [00:52:48.045] quietly = TRUE) 1568s [00:52:48.045] if (has_future) { 1568s [00:52:48.045] ns <- base::getNamespace("future") 1568s [00:52:48.045] version <- ns[[".package"]][["version"]] 1568s [00:52:48.045] if (is.null(version)) 1568s [00:52:48.045] version <- utils::packageVersion("future") 1568s [00:52:48.045] } 1568s [00:52:48.045] else { 1568s [00:52:48.045] version <- NULL 1568s [00:52:48.045] } 1568s [00:52:48.045] if (!has_future || version < "1.8.0") { 1568s [00:52:48.045] info <- base::c(r_version = base::gsub("R version ", 1568s [00:52:48.045] "", base::R.version$version.string), 1568s [00:52:48.045] platform = base::sprintf("%s (%s-bit)", 1568s [00:52:48.045] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1568s [00:52:48.045] os = base::paste(base::Sys.info()[base::c("sysname", 1568s [00:52:48.045] "release", "version")], collapse = " "), 1568s [00:52:48.045] hostname = base::Sys.info()[["nodename"]]) 1568s [00:52:48.045] info <- base::sprintf("%s: %s", base::names(info), 1568s [00:52:48.045] info) 1568s [00:52:48.045] info <- base::paste(info, collapse = "; ") 1568s [00:52:48.045] if (!has_future) { 1568s [00:52:48.045] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1568s [00:52:48.045] info) 1568s [00:52:48.045] } 1568s [00:52:48.045] else { 1568s [00:52:48.045] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1568s [00:52:48.045] info, version) 1568s [00:52:48.045] } 1568s [00:52:48.045] base::stop(msg) 1568s [00:52:48.045] } 1568s [00:52:48.045] }) 1568s [00:52:48.045] } 1568s [00:52:48.045] options(future.plan = NULL) 1568s [00:52:48.045] Sys.unsetenv("R_FUTURE_PLAN") 1568s [00:52:48.045] future::plan("default", .cleanup = FALSE, .init = FALSE) 1568s [00:52:48.045] } 1568s [00:52:48.045] ...future.workdir <- getwd() 1568s [00:52:48.045] } 1568s [00:52:48.045] ...future.oldOptions <- base::as.list(base::.Options) 1568s [00:52:48.045] ...future.oldEnvVars <- base::Sys.getenv() 1568s [00:52:48.045] } 1568s [00:52:48.045] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1568s [00:52:48.045] future.globals.maxSize = NULL, future.globals.method = NULL, 1568s [00:52:48.045] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1568s [00:52:48.045] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1568s [00:52:48.045] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1568s [00:52:48.045] future.stdout.windows.reencode = NULL, width = 80L) 1568s [00:52:48.045] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1568s [00:52:48.045] base::names(...future.oldOptions)) 1568s [00:52:48.045] } 1568s [00:52:48.045] if (FALSE) { 1568s [00:52:48.045] } 1568s [00:52:48.045] else { 1568s [00:52:48.045] if (TRUE) { 1568s [00:52:48.045] ...future.stdout <- base::rawConnection(base::raw(0L), 1568s [00:52:48.045] open = "w") 1568s [00:52:48.045] } 1568s [00:52:48.045] else { 1568s [00:52:48.045] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1568s [00:52:48.045] windows = "NUL", "/dev/null"), open = "w") 1568s [00:52:48.045] } 1568s [00:52:48.045] base::sink(...future.stdout, type = "output", split = FALSE) 1568s [00:52:48.045] base::on.exit(if (!base::is.null(...future.stdout)) { 1568s [00:52:48.045] base::sink(type = "output", split = FALSE) 1568s [00:52:48.045] base::close(...future.stdout) 1568s [00:52:48.045] }, add = TRUE) 1568s [00:52:48.045] } 1568s [00:52:48.045] ...future.frame <- base::sys.nframe() 1568s [00:52:48.045] ...future.conditions <- base::list() 1568s [00:52:48.045] ...future.rng <- base::globalenv()$.Random.seed 1568s [00:52:48.045] if (FALSE) { 1568s [00:52:48.045] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1568s [00:52:48.045] "...future.value", "...future.globalenv.names", ".Random.seed") 1568s [00:52:48.045] } 1568s [00:52:48.045] ...future.result <- base::tryCatch({ 1568s [00:52:48.045] base::withCallingHandlers({ 1568s [00:52:48.045] ...future.value <- base::withVisible(base::local({ 1568s [00:52:48.045] do.call(function(...) { 1568s [00:52:48.045] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1568s [00:52:48.045] if (!identical(...future.globals.maxSize.org, 1568s [00:52:48.045] ...future.globals.maxSize)) { 1568s [00:52:48.045] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1568s [00:52:48.045] on.exit(options(oopts), add = TRUE) 1568s [00:52:48.045] } 1568s [00:52:48.045] { 1568s [00:52:48.045] lapply(seq_along(...future.elements_ii), 1568s [00:52:48.045] FUN = function(jj) { 1568s [00:52:48.045] ...future.X_jj <- ...future.elements_ii[[jj]] 1568s [00:52:48.045] ...future.FUN(...future.X_jj, ...) 1568s [00:52:48.045] }) 1568s [00:52:48.045] } 1568s [00:52:48.045] }, args = future.call.arguments) 1568s [00:52:48.045] })) 1568s [00:52:48.045] future::FutureResult(value = ...future.value$value, 1568s [00:52:48.045] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1568s [00:52:48.045] ...future.rng), globalenv = if (FALSE) 1568s [00:52:48.045] list(added = base::setdiff(base::names(base::.GlobalEnv), 1568s [00:52:48.045] ...future.globalenv.names)) 1568s [00:52:48.045] else NULL, started = ...future.startTime, version = "1.8") 1568s [00:52:48.045] }, condition = base::local({ 1568s [00:52:48.045] c <- base::c 1568s [00:52:48.045] inherits <- base::inherits 1568s [00:52:48.045] invokeRestart <- base::invokeRestart 1568s [00:52:48.045] length <- base::length 1568s [00:52:48.045] list <- base::list 1568s [00:52:48.045] seq.int <- base::seq.int 1568s [00:52:48.045] signalCondition <- base::signalCondition 1568s [00:52:48.045] sys.calls <- base::sys.calls 1568s [00:52:48.045] `[[` <- base::`[[` 1568s [00:52:48.045] `+` <- base::`+` 1568s [00:52:48.045] `<<-` <- base::`<<-` 1568s [00:52:48.045] sysCalls <- function(calls = sys.calls(), from = 1L) { 1568s [00:52:48.045] calls[seq.int(from = from + 12L, to = length(calls) - 1568s [00:52:48.045] 3L)] 1568s [00:52:48.045] } 1568s [00:52:48.045] function(cond) { 1568s [00:52:48.045] is_error <- inherits(cond, "error") 1568s [00:52:48.045] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1568s [00:52:48.045] NULL) 1568s [00:52:48.045] if (is_error) { 1568s [00:52:48.045] sessionInformation <- function() { 1568s [00:52:48.045] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1568s [00:52:48.045] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1568s [00:52:48.045] search = base::search(), system = base::Sys.info()) 1568s [00:52:48.045] } 1568s [00:52:48.045] ...future.conditions[[length(...future.conditions) + 1568s [00:52:48.045] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1568s [00:52:48.045] cond$call), session = sessionInformation(), 1568s [00:52:48.045] timestamp = base::Sys.time(), signaled = 0L) 1568s [00:52:48.045] signalCondition(cond) 1568s [00:52:48.045] } 1568s [00:52:48.045] else if (!ignore && TRUE && inherits(cond, c("condition", 1568s [00:52:48.045] "immediateCondition"))) { 1568s [00:52:48.045] signal <- TRUE && inherits(cond, "immediateCondition") 1568s [00:52:48.045] ...future.conditions[[length(...future.conditions) + 1568s [00:52:48.045] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1568s [00:52:48.045] if (TRUE && !signal) { 1568s [00:52:48.045] muffleCondition <- function (cond, pattern = "^muffle") 1568s [00:52:48.045] { 1568s [00:52:48.045] inherits <- base::inherits 1568s [00:52:48.045] invokeRestart <- base::invokeRestart 1568s [00:52:48.045] is.null <- base::is.null 1568s [00:52:48.045] muffled <- FALSE 1568s [00:52:48.045] if (inherits(cond, "message")) { 1568s [00:52:48.045] muffled <- grepl(pattern, "muffleMessage") 1568s [00:52:48.045] if (muffled) 1568s [00:52:48.045] invokeRestart("muffleMessage") 1568s [00:52:48.045] } 1568s [00:52:48.045] else if (inherits(cond, "warning")) { 1568s [00:52:48.045] muffled <- grepl(pattern, "muffleWarning") 1568s [00:52:48.045] if (muffled) 1568s [00:52:48.045] invokeRestart("muffleWarning") 1568s [00:52:48.045] } 1568s [00:52:48.045] else if (inherits(cond, "condition")) { 1568s [00:52:48.045] if (!is.null(pattern)) { 1568s [00:52:48.045] computeRestarts <- base::computeRestarts 1568s [00:52:48.045] grepl <- base::grepl 1568s [00:52:48.045] restarts <- computeRestarts(cond) 1568s [00:52:48.045] for (restart in restarts) { 1568s [00:52:48.045] name <- restart$name 1568s [00:52:48.045] if (is.null(name)) 1568s [00:52:48.045] next 1568s [00:52:48.045] if (!grepl(pattern, name)) 1568s [00:52:48.045] next 1568s [00:52:48.045] invokeRestart(restart) 1568s [00:52:48.045] muffled <- TRUE 1568s [00:52:48.045] break 1568s [00:52:48.045] } 1568s [00:52:48.045] } 1568s [00:52:48.045] } 1568s [00:52:48.045] invisible(muffled) 1568s [00:52:48.045] } 1568s [00:52:48.045] muffleCondition(cond, pattern = "^muffle") 1568s [00:52:48.045] } 1568s [00:52:48.045] } 1568s [00:52:48.045] else { 1568s [00:52:48.045] if (TRUE) { 1568s [00:52:48.045] muffleCondition <- function (cond, pattern = "^muffle") 1568s [00:52:48.045] { 1568s [00:52:48.045] inherits <- base::inherits 1568s [00:52:48.045] invokeRestart <- base::invokeRestart 1568s [00:52:48.045] is.null <- base::is.null 1568s [00:52:48.045] muffled <- FALSE 1568s [00:52:48.045] if (inherits(cond, "message")) { 1568s [00:52:48.045] muffled <- grepl(pattern, "muffleMessage") 1568s [00:52:48.045] if (muffled) 1568s [00:52:48.045] invokeRestart("muffleMessage") 1568s [00:52:48.045] } 1568s [00:52:48.045] else if (inherits(cond, "warning")) { 1568s [00:52:48.045] muffled <- grepl(pattern, "muffleWarning") 1568s [00:52:48.045] if (muffled) 1568s [00:52:48.045] invokeRestart("muffleWarning") 1568s [00:52:48.045] } 1568s [00:52:48.045] else if (inherits(cond, "condition")) { 1568s [00:52:48.045] if (!is.null(pattern)) { 1568s [00:52:48.045] computeRestarts <- base::computeRestarts 1568s [00:52:48.045] grepl <- base::grepl 1568s [00:52:48.045] restarts <- computeRestarts(cond) 1568s [00:52:48.045] for (restart in restarts) { 1568s [00:52:48.045] name <- restart$name 1568s [00:52:48.045] if (is.null(name)) 1568s [00:52:48.045] next 1568s [00:52:48.045] if (!grepl(pattern, name)) 1568s [00:52:48.045] next 1568s [00:52:48.045] invokeRestart(restart) 1568s [00:52:48.045] muffled <- TRUE 1568s [00:52:48.045] break 1568s [00:52:48.045] } 1568s [00:52:48.045] } 1568s [00:52:48.045] } 1568s [00:52:48.045] invisible(muffled) 1568s [00:52:48.045] } 1568s [00:52:48.045] muffleCondition(cond, pattern = "^muffle") 1568s [00:52:48.045] } 1568s [00:52:48.045] } 1568s [00:52:48.045] } 1568s [00:52:48.045] })) 1568s [00:52:48.045] }, error = function(ex) { 1568s [00:52:48.045] base::structure(base::list(value = NULL, visible = NULL, 1568s [00:52:48.045] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1568s [00:52:48.045] ...future.rng), started = ...future.startTime, 1568s [00:52:48.045] finished = Sys.time(), session_uuid = NA_character_, 1568s [00:52:48.045] version = "1.8"), class = "FutureResult") 1568s [00:52:48.045] }, finally = { 1568s [00:52:48.045] if (!identical(...future.workdir, getwd())) 1568s [00:52:48.045] setwd(...future.workdir) 1568s [00:52:48.045] { 1568s [00:52:48.045] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1568s [00:52:48.045] ...future.oldOptions$nwarnings <- NULL 1568s [00:52:48.045] } 1568s [00:52:48.045] base::options(...future.oldOptions) 1568s [00:52:48.045] if (.Platform$OS.type == "windows") { 1568s [00:52:48.045] old_names <- names(...future.oldEnvVars) 1568s [00:52:48.045] envs <- base::Sys.getenv() 1568s [00:52:48.045] names <- names(envs) 1568s [00:52:48.045] common <- intersect(names, old_names) 1568s [00:52:48.045] added <- setdiff(names, old_names) 1568s [00:52:48.045] removed <- setdiff(old_names, names) 1568s [00:52:48.045] changed <- common[...future.oldEnvVars[common] != 1568s [00:52:48.045] envs[common]] 1568s [00:52:48.045] NAMES <- toupper(changed) 1568s [00:52:48.045] args <- list() 1568s [00:52:48.045] for (kk in seq_along(NAMES)) { 1568s [00:52:48.045] name <- changed[[kk]] 1568s [00:52:48.045] NAME <- NAMES[[kk]] 1568s [00:52:48.045] if (name != NAME && is.element(NAME, old_names)) 1568s [00:52:48.045] next 1568s [00:52:48.045] args[[name]] <- ...future.oldEnvVars[[name]] 1568s [00:52:48.045] } 1568s [00:52:48.045] NAMES <- toupper(added) 1568s [00:52:48.045] for (kk in seq_along(NAMES)) { 1568s [00:52:48.045] name <- added[[kk]] 1568s [00:52:48.045] NAME <- NAMES[[kk]] 1568s [00:52:48.045] if (name != NAME && is.element(NAME, old_names)) 1568s [00:52:48.045] next 1568s [00:52:48.045] args[[name]] <- "" 1568s [00:52:48.045] } 1568s [00:52:48.045] NAMES <- toupper(removed) 1568s [00:52:48.045] for (kk in seq_along(NAMES)) { 1568s [00:52:48.045] name <- removed[[kk]] 1568s [00:52:48.045] NAME <- NAMES[[kk]] 1568s [00:52:48.045] if (name != NAME && is.element(NAME, old_names)) 1568s [00:52:48.045] next 1568s [00:52:48.045] args[[name]] <- ...future.oldEnvVars[[name]] 1568s [00:52:48.045] } 1568s [00:52:48.045] if (length(args) > 0) 1568s [00:52:48.045] base::do.call(base::Sys.setenv, args = args) 1568s [00:52:48.045] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1568s [00:52:48.045] } 1568s [00:52:48.045] else { 1568s [00:52:48.045] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1568s [00:52:48.045] } 1568s [00:52:48.045] { 1568s [00:52:48.045] if (base::length(...future.futureOptionsAdded) > 1568s [00:52:48.045] 0L) { 1568s [00:52:48.045] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1568s [00:52:48.045] base::names(opts) <- ...future.futureOptionsAdded 1568s [00:52:48.045] base::options(opts) 1568s [00:52:48.045] } 1568s [00:52:48.045] { 1568s [00:52:48.045] { 1568s [00:52:48.045] NULL 1568s [00:52:48.045] RNGkind("Mersenne-Twister") 1568s [00:52:48.045] base::rm(list = ".Random.seed", envir = base::globalenv(), 1568s [00:52:48.045] inherits = FALSE) 1568s [00:52:48.045] } 1568s [00:52:48.045] options(future.plan = NULL) 1568s [00:52:48.045] if (is.na(NA_character_)) 1568s [00:52:48.045] Sys.unsetenv("R_FUTURE_PLAN") 1568s [00:52:48.045] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1568s [00:52:48.045] future::plan(list(function (..., envir = parent.frame()) 1568s [00:52:48.045] { 1568s [00:52:48.045] future <- SequentialFuture(..., envir = envir) 1568s [00:52:48.045] if (!future$lazy) 1568s [00:52:48.045] future <- run(future) 1568s [00:52:48.045] invisible(future) 1568s [00:52:48.045] }), .cleanup = FALSE, .init = FALSE) 1568s [00:52:48.045] } 1568s [00:52:48.045] } 1568s [00:52:48.045] } 1568s [00:52:48.045] }) 1568s [00:52:48.045] if (TRUE) { 1568s [00:52:48.045] base::sink(type = "output", split = FALSE) 1568s [00:52:48.045] if (TRUE) { 1568s [00:52:48.045] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1568s [00:52:48.045] } 1568s [00:52:48.045] else { 1568s [00:52:48.045] ...future.result["stdout"] <- base::list(NULL) 1568s [00:52:48.045] } 1568s [00:52:48.045] base::close(...future.stdout) 1568s [00:52:48.045] ...future.stdout <- NULL 1568s [00:52:48.045] } 1568s [00:52:48.045] ...future.result$conditions <- ...future.conditions 1568s [00:52:48.045] ...future.result$finished <- base::Sys.time() 1568s [00:52:48.045] ...future.result 1568s [00:52:48.045] } 1568s [00:52:48.049] assign_globals() ... 1568s [00:52:48.049] List of 5 1568s [00:52:48.049] $ ...future.FUN :function (x) 1568s [00:52:48.049] $ future.call.arguments : list() 1568s [00:52:48.049] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1568s [00:52:48.049] $ ...future.elements_ii :List of 3 1568s [00:52:48.049] ..$ a: num 1 1568s [00:52:48.049] ..$ b: num 2 1568s [00:52:48.049] ..$ c: num 3 1568s [00:52:48.049] $ ...future.seeds_ii : NULL 1568s [00:52:48.049] $ ...future.globals.maxSize: NULL 1568s [00:52:48.049] - attr(*, "where")=List of 5 1568s [00:52:48.049] ..$ ...future.FUN : 1568s [00:52:48.049] ..$ future.call.arguments : 1568s [00:52:48.049] ..$ ...future.elements_ii : 1568s [00:52:48.049] ..$ ...future.seeds_ii : 1568s [00:52:48.049] ..$ ...future.globals.maxSize: 1568s [00:52:48.049] - attr(*, "resolved")= logi FALSE 1568s [00:52:48.049] - attr(*, "total_size")= num 848 1568s [00:52:48.049] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1568s [00:52:48.049] - attr(*, "already-done")= logi TRUE 1568s [00:52:48.055] - copied ‘...future.FUN’ to environment 1568s [00:52:48.056] - copied ‘future.call.arguments’ to environment 1568s [00:52:48.056] - copied ‘...future.elements_ii’ to environment 1568s [00:52:48.056] - copied ‘...future.seeds_ii’ to environment 1568s [00:52:48.056] - copied ‘...future.globals.maxSize’ to environment 1568s [00:52:48.056] assign_globals() ... done 1568s [00:52:48.057] plan(): Setting new future strategy stack: 1568s [00:52:48.057] List of future strategies: 1568s [00:52:48.057] 1. sequential: 1568s [00:52:48.057] - args: function (..., envir = parent.frame()) 1568s [00:52:48.057] - tweaked: FALSE 1568s [00:52:48.057] - call: NULL 1568s [00:52:48.057] plan(): nbrOfWorkers() = 1 1568s [00:52:48.058] plan(): Setting new future strategy stack: 1568s [00:52:48.058] List of future strategies: 1568s [00:52:48.058] 1. sequential: 1568s [00:52:48.058] - args: function (..., envir = parent.frame()) 1568s [00:52:48.058] - tweaked: FALSE 1568s [00:52:48.058] - call: plan(strategy) 1568s [00:52:48.059] plan(): nbrOfWorkers() = 1 1568s [00:52:48.059] SequentialFuture started (and completed) 1568s [00:52:48.060] - Launch lazy future ... done 1568s [00:52:48.060] run() for ‘SequentialFuture’ ... done 1568s [00:52:48.060] Created future: 1568s [00:52:48.060] SequentialFuture: 1568s [00:52:48.060] Label: ‘future_sapply-1’ 1568s [00:52:48.060] Expression: 1568s [00:52:48.060] { 1568s [00:52:48.060] do.call(function(...) { 1568s [00:52:48.060] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1568s [00:52:48.060] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1568s [00:52:48.060] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1568s [00:52:48.060] on.exit(options(oopts), add = TRUE) 1568s [00:52:48.060] } 1568s [00:52:48.060] { 1568s [00:52:48.060] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1568s [00:52:48.060] ...future.X_jj <- ...future.elements_ii[[jj]] 1568s [00:52:48.060] ...future.FUN(...future.X_jj, ...) 1568s [00:52:48.060] }) 1568s [00:52:48.060] } 1568s [00:52:48.060] }, args = future.call.arguments) 1568s [00:52:48.060] } 1568s [00:52:48.060] Lazy evaluation: FALSE 1568s [00:52:48.060] Asynchronous evaluation: FALSE 1568s [00:52:48.060] Local evaluation: TRUE 1568s [00:52:48.060] Environment: R_GlobalEnv 1568s [00:52:48.060] Capture standard output: TRUE 1568s [00:52:48.060] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1568s [00:52:48.060] Globals: 5 objects totaling 0.99 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1568s [00:52:48.060] Packages: 1568s [00:52:48.060] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1568s [00:52:48.060] Resolved: TRUE 1568s [00:52:48.060] Value: 168 bytes of class ‘list’ 1568s [00:52:48.060] Early signaling: FALSE 1568s [00:52:48.060] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1568s [00:52:48.060] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1568s [00:52:48.063] Chunk #1 of 1 ... DONE 1568s [00:52:48.063] Launching 1 futures (chunks) ... DONE 1568s [00:52:48.063] Resolving 1 futures (chunks) ... 1568s [00:52:48.063] resolve() on list ... 1568s [00:52:48.063] recursive: 0 1568s [00:52:48.063] length: 1 1568s [00:52:48.063] 1568s [00:52:48.064] resolved() for ‘SequentialFuture’ ... 1568s [00:52:48.064] - state: ‘finished’ 1568s [00:52:48.064] - run: TRUE 1568s [00:52:48.064] - result: ‘FutureResult’ 1568s [00:52:48.064] resolved() for ‘SequentialFuture’ ... done 1568s [00:52:48.064] Future #1 1568s [00:52:48.065] signalConditionsASAP(SequentialFuture, pos=1) ... 1568s [00:52:48.065] - nx: 1 1568s [00:52:48.065] - relay: TRUE 1568s [00:52:48.065] - stdout: TRUE 1568s [00:52:48.066] - signal: TRUE 1568s [00:52:48.066] - resignal: FALSE 1568s [00:52:48.066] - force: TRUE 1568s [00:52:48.066] - relayed: [n=1] FALSE 1568s [00:52:48.066] - queued futures: [n=1] FALSE 1568s [00:52:48.066] - until=1 1568s [00:52:48.066] - relaying element #1 1568s [00:52:48.066] - relayed: [n=1] TRUE 1568s [00:52:48.067] - queued futures: [n=1] TRUE 1568s [00:52:48.067] signalConditionsASAP(SequentialFuture, pos=1) ... done 1568s [00:52:48.067] length: 0 (resolved future 1) 1568s [00:52:48.067] Relaying remaining futures 1568s [00:52:48.067] signalConditionsASAP(NULL, pos=0) ... 1568s [00:52:48.067] - nx: 1 1568s [00:52:48.067] - relay: TRUE 1568s [00:52:48.067] - stdout: TRUE 1568s [00:52:48.068] - signal: TRUE 1568s [00:52:48.068] - resignal: FALSE 1568s [00:52:48.068] - force: TRUE 1568s [00:52:48.068] - relayed: [n=1] TRUE 1568s [00:52:48.068] - queued futures: [n=1] TRUE 1568s - flush all 1568s [00:52:48.068] - relayed: [n=1] TRUE 1568s [00:52:48.068] - queued futures: [n=1] TRUE 1568s [00:52:48.068] signalConditionsASAP(NULL, pos=0) ... done 1568s [00:52:48.068] resolve() on list ... DONE 1568s [00:52:48.069] - Number of value chunks collected: 1 1568s [00:52:48.069] Resolving 1 futures (chunks) ... DONE 1568s [00:52:48.069] Reducing values from 1 chunks ... 1568s [00:52:48.069] - Number of values collected after concatenation: 3 1568s [00:52:48.069] - Number of values expected: 3 1568s [00:52:48.069] Reducing values from 1 chunks ... DONE 1568s [00:52:48.069] future_lapply() ... DONE 1568s [00:52:48.080] future_lapply() ... 1568s [00:52:48.081] Number of chunks: 1 1568s [00:52:48.081] getGlobalsAndPackagesXApply() ... 1568s [00:52:48.081] - future.globals: TRUE 1568s [00:52:48.082] getGlobalsAndPackages() ... 1568s [00:52:48.082] Searching for globals... 1568s [00:52:48.084] - globals found: [2] ‘FUN’, ‘UseMethod’ 1568s [00:52:48.085] Searching for globals ... DONE 1568s [00:52:48.086] Resolving globals: FALSE 1568s [00:52:48.087] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1568s [00:52:48.087] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1568s [00:52:48.087] - globals: [1] ‘FUN’ 1568s [00:52:48.088] 1568s [00:52:48.088] getGlobalsAndPackages() ... DONE 1568s [00:52:48.088] - globals found/used: [n=1] ‘FUN’ 1568s [00:52:48.088] - needed namespaces: [n=0] 1568s [00:52:48.088] Finding globals ... DONE 1568s [00:52:48.088] - use_args: TRUE 1568s [00:52:48.089] - Getting '...' globals ... 1568s [00:52:48.090] resolve() on list ... 1568s [00:52:48.090] recursive: 0 1568s [00:52:48.090] length: 1 1568s [00:52:48.090] elements: ‘...’ 1568s [00:52:48.091] length: 0 (resolved future 1) 1568s [00:52:48.091] resolve() on list ... DONE 1568s [00:52:48.091] - '...' content: [n=0] 1568s [00:52:48.091] List of 1 1568s [00:52:48.091] $ ...: list() 1568s [00:52:48.091] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1568s [00:52:48.091] - attr(*, "where")=List of 1 1568s [00:52:48.091] ..$ ...: 1568s [00:52:48.091] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1568s [00:52:48.091] - attr(*, "resolved")= logi TRUE 1568s [00:52:48.091] - attr(*, "total_size")= num NA 1568s [00:52:48.095] - Getting '...' globals ... DONE 1568s [00:52:48.096] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1568s [00:52:48.096] List of 2 1568s [00:52:48.096] $ ...future.FUN:function (x, ...) 1568s [00:52:48.096] $ ... : list() 1568s [00:52:48.096] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1568s [00:52:48.096] - attr(*, "where")=List of 2 1568s [00:52:48.096] ..$ ...future.FUN: 1568s [00:52:48.096] ..$ ... : 1568s [00:52:48.096] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1568s [00:52:48.096] - attr(*, "resolved")= logi FALSE 1568s [00:52:48.096] - attr(*, "total_size")= num 1248 1568s [00:52:48.101] Packages to be attached in all futures: [n=0] 1568s [00:52:48.101] getGlobalsAndPackagesXApply() ... DONE 1568s [00:52:48.102] Number of futures (= number of chunks): 1 1568s [00:52:48.102] Launching 1 futures (chunks) ... 1568s [00:52:48.102] Chunk #1 of 1 ... 1568s [00:52:48.102] - Finding globals in 'X' for chunk #1 ... 1568s [00:52:48.102] getGlobalsAndPackages() ... 1568s [00:52:48.102] Searching for globals... 1568s [00:52:48.103] 1568s [00:52:48.103] Searching for globals ... DONE 1568s [00:52:48.103] - globals: [0] 1568s [00:52:48.103] getGlobalsAndPackages() ... DONE 1568s [00:52:48.103] + additional globals found: [n=0] 1568s [00:52:48.103] + additional namespaces needed: [n=0] 1568s [00:52:48.103] - Finding globals in 'X' for chunk #1 ... DONE 1568s [00:52:48.104] - seeds: 1568s [00:52:48.104] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1568s [00:52:48.104] getGlobalsAndPackages() ... 1568s [00:52:48.104] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1568s [00:52:48.104] Resolving globals: FALSE 1568s [00:52:48.104] Tweak future expression to call with '...' arguments ... 1568s [00:52:48.104] { 1568s [00:52:48.104] do.call(function(...) { 1568s [00:52:48.104] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1568s [00:52:48.104] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1568s [00:52:48.104] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1568s [00:52:48.104] on.exit(options(oopts), add = TRUE) 1568s [00:52:48.104] } 1568s [00:52:48.104] { 1568s [00:52:48.104] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1568s [00:52:48.104] ...future.X_jj <- ...future.elements_ii[[jj]] 1568s [00:52:48.104] ...future.FUN(...future.X_jj, ...) 1568s [00:52:48.104] }) 1568s [00:52:48.104] } 1568s [00:52:48.104] }, args = future.call.arguments) 1568s [00:52:48.104] } 1568s [00:52:48.105] Tweak future expression to call with '...' arguments ... DONE 1568s [00:52:48.105] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1568s [00:52:48.105] 1568s [00:52:48.105] getGlobalsAndPackages() ... DONE 1568s [00:52:48.106] run() for ‘Future’ ... 1568s [00:52:48.106] - state: ‘created’ 1568s [00:52:48.106] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1568s [00:52:48.106] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1568s [00:52:48.107] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1568s [00:52:48.107] - Field: ‘label’ 1568s [00:52:48.107] - Field: ‘local’ 1568s [00:52:48.107] - Field: ‘owner’ 1568s [00:52:48.107] - Field: ‘envir’ 1568s [00:52:48.107] - Field: ‘packages’ 1568s [00:52:48.107] - Field: ‘gc’ 1568s [00:52:48.107] - Field: ‘conditions’ 1568s [00:52:48.107] - Field: ‘expr’ 1568s [00:52:48.108] - Field: ‘uuid’ 1568s [00:52:48.108] - Field: ‘seed’ 1568s [00:52:48.108] - Field: ‘version’ 1568s [00:52:48.108] - Field: ‘result’ 1568s [00:52:48.108] - Field: ‘asynchronous’ 1568s [00:52:48.108] - Field: ‘calls’ 1568s [00:52:48.108] - Field: ‘globals’ 1568s [00:52:48.109] - Field: ‘stdout’ 1568s [00:52:48.109] - Field: ‘earlySignal’ 1568s [00:52:48.109] - Field: ‘lazy’ 1568s [00:52:48.109] - Field: ‘state’ 1568s [00:52:48.109] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1568s [00:52:48.109] - Launch lazy future ... 1568s [00:52:48.109] Packages needed by the future expression (n = 0): 1568s [00:52:48.110] Packages needed by future strategies (n = 0): 1568s [00:52:48.110] { 1568s [00:52:48.110] { 1568s [00:52:48.110] { 1568s [00:52:48.110] ...future.startTime <- base::Sys.time() 1568s [00:52:48.110] { 1568s [00:52:48.110] { 1568s [00:52:48.110] { 1568s [00:52:48.110] base::local({ 1568s [00:52:48.110] has_future <- base::requireNamespace("future", 1568s [00:52:48.110] quietly = TRUE) 1568s [00:52:48.110] if (has_future) { 1568s [00:52:48.110] ns <- base::getNamespace("future") 1568s [00:52:48.110] version <- ns[[".package"]][["version"]] 1568s [00:52:48.110] if (is.null(version)) 1568s [00:52:48.110] version <- utils::packageVersion("future") 1568s [00:52:48.110] } 1568s [00:52:48.110] else { 1568s [00:52:48.110] version <- NULL 1568s [00:52:48.110] } 1568s [00:52:48.110] if (!has_future || version < "1.8.0") { 1568s [00:52:48.110] info <- base::c(r_version = base::gsub("R version ", 1568s [00:52:48.110] "", base::R.version$version.string), 1568s [00:52:48.110] platform = base::sprintf("%s (%s-bit)", 1568s [00:52:48.110] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1568s [00:52:48.110] os = base::paste(base::Sys.info()[base::c("sysname", 1568s [00:52:48.110] "release", "version")], collapse = " "), 1568s [00:52:48.110] hostname = base::Sys.info()[["nodename"]]) 1568s [00:52:48.110] info <- base::sprintf("%s: %s", base::names(info), 1568s [00:52:48.110] info) 1568s [00:52:48.110] info <- base::paste(info, collapse = "; ") 1568s [00:52:48.110] if (!has_future) { 1568s [00:52:48.110] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1568s [00:52:48.110] info) 1568s [00:52:48.110] } 1568s [00:52:48.110] else { 1568s [00:52:48.110] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1568s [00:52:48.110] info, version) 1568s [00:52:48.110] } 1568s [00:52:48.110] base::stop(msg) 1568s [00:52:48.110] } 1568s [00:52:48.110] }) 1568s [00:52:48.110] } 1568s [00:52:48.110] options(future.plan = NULL) 1568s [00:52:48.110] Sys.unsetenv("R_FUTURE_PLAN") 1568s [00:52:48.110] future::plan("default", .cleanup = FALSE, .init = FALSE) 1568s [00:52:48.110] } 1568s [00:52:48.110] ...future.workdir <- getwd() 1568s [00:52:48.110] } 1568s [00:52:48.110] ...future.oldOptions <- base::as.list(base::.Options) 1568s [00:52:48.110] ...future.oldEnvVars <- base::Sys.getenv() 1568s [00:52:48.110] } 1568s [00:52:48.110] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1568s [00:52:48.110] future.globals.maxSize = NULL, future.globals.method = NULL, 1568s [00:52:48.110] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1568s [00:52:48.110] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1568s [00:52:48.110] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1568s [00:52:48.110] future.stdout.windows.reencode = NULL, width = 80L) 1568s [00:52:48.110] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1568s [00:52:48.110] base::names(...future.oldOptions)) 1568s [00:52:48.110] } 1568s [00:52:48.110] if (FALSE) { 1568s [00:52:48.110] } 1568s [00:52:48.110] else { 1568s [00:52:48.110] if (TRUE) { 1568s [00:52:48.110] ...future.stdout <- base::rawConnection(base::raw(0L), 1568s [00:52:48.110] open = "w") 1568s [00:52:48.110] } 1568s [00:52:48.110] else { 1568s [00:52:48.110] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1568s [00:52:48.110] windows = "NUL", "/dev/null"), open = "w") 1568s [00:52:48.110] } 1568s [00:52:48.110] base::sink(...future.stdout, type = "output", split = FALSE) 1568s [00:52:48.110] base::on.exit(if (!base::is.null(...future.stdout)) { 1568s [00:52:48.110] base::sink(type = "output", split = FALSE) 1568s [00:52:48.110] base::close(...future.stdout) 1568s [00:52:48.110] }, add = TRUE) 1568s [00:52:48.110] } 1568s [00:52:48.110] ...future.frame <- base::sys.nframe() 1568s [00:52:48.110] ...future.conditions <- base::list() 1568s [00:52:48.110] ...future.rng <- base::globalenv()$.Random.seed 1568s [00:52:48.110] if (FALSE) { 1568s [00:52:48.110] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1568s [00:52:48.110] "...future.value", "...future.globalenv.names", ".Random.seed") 1568s [00:52:48.110] } 1568s [00:52:48.110] ...future.result <- base::tryCatch({ 1568s [00:52:48.110] base::withCallingHandlers({ 1568s [00:52:48.110] ...future.value <- base::withVisible(base::local({ 1568s [00:52:48.110] do.call(function(...) { 1568s [00:52:48.110] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1568s [00:52:48.110] if (!identical(...future.globals.maxSize.org, 1568s [00:52:48.110] ...future.globals.maxSize)) { 1568s [00:52:48.110] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1568s [00:52:48.110] on.exit(options(oopts), add = TRUE) 1568s [00:52:48.110] } 1568s [00:52:48.110] { 1568s [00:52:48.110] lapply(seq_along(...future.elements_ii), 1568s [00:52:48.110] FUN = function(jj) { 1568s [00:52:48.110] ...future.X_jj <- ...future.elements_ii[[jj]] 1568s [00:52:48.110] ...future.FUN(...future.X_jj, ...) 1568s [00:52:48.110] }) 1568s [00:52:48.110] } 1568s [00:52:48.110] }, args = future.call.arguments) 1568s [00:52:48.110] })) 1568s [00:52:48.110] future::FutureResult(value = ...future.value$value, 1568s [00:52:48.110] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1568s [00:52:48.110] ...future.rng), globalenv = if (FALSE) 1568s [00:52:48.110] list(added = base::setdiff(base::names(base::.GlobalEnv), 1568s [00:52:48.110] ...future.globalenv.names)) 1568s [00:52:48.110] else NULL, started = ...future.startTime, version = "1.8") 1568s [00:52:48.110] }, condition = base::local({ 1568s [00:52:48.110] c <- base::c 1568s [00:52:48.110] inherits <- base::inherits 1568s [00:52:48.110] invokeRestart <- base::invokeRestart 1568s [00:52:48.110] length <- base::length 1568s [00:52:48.110] list <- base::list 1568s [00:52:48.110] seq.int <- base::seq.int 1568s [00:52:48.110] signalCondition <- base::signalCondition 1568s [00:52:48.110] sys.calls <- base::sys.calls 1568s [00:52:48.110] `[[` <- base::`[[` 1568s [00:52:48.110] `+` <- base::`+` 1568s [00:52:48.110] `<<-` <- base::`<<-` 1568s [00:52:48.110] sysCalls <- function(calls = sys.calls(), from = 1L) { 1568s [00:52:48.110] calls[seq.int(from = from + 12L, to = length(calls) - 1568s [00:52:48.110] 3L)] 1568s [00:52:48.110] } 1568s [00:52:48.110] function(cond) { 1568s [00:52:48.110] is_error <- inherits(cond, "error") 1568s [00:52:48.110] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1568s [00:52:48.110] NULL) 1568s [00:52:48.110] if (is_error) { 1568s [00:52:48.110] sessionInformation <- function() { 1568s [00:52:48.110] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1568s [00:52:48.110] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1568s [00:52:48.110] search = base::search(), system = base::Sys.info()) 1568s [00:52:48.110] } 1568s [00:52:48.110] ...future.conditions[[length(...future.conditions) + 1568s [00:52:48.110] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1568s [00:52:48.110] cond$call), session = sessionInformation(), 1568s [00:52:48.110] timestamp = base::Sys.time(), signaled = 0L) 1568s [00:52:48.110] signalCondition(cond) 1568s [00:52:48.110] } 1568s [00:52:48.110] else if (!ignore && TRUE && inherits(cond, c("condition", 1568s [00:52:48.110] "immediateCondition"))) { 1568s [00:52:48.110] signal <- TRUE && inherits(cond, "immediateCondition") 1568s [00:52:48.110] ...future.conditions[[length(...future.conditions) + 1568s [00:52:48.110] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1568s [00:52:48.110] if (TRUE && !signal) { 1568s [00:52:48.110] muffleCondition <- function (cond, pattern = "^muffle") 1568s [00:52:48.110] { 1568s [00:52:48.110] inherits <- base::inherits 1568s [00:52:48.110] invokeRestart <- base::invokeRestart 1568s [00:52:48.110] is.null <- base::is.null 1568s [00:52:48.110] muffled <- FALSE 1568s [00:52:48.110] if (inherits(cond, "message")) { 1568s [00:52:48.110] muffled <- grepl(pattern, "muffleMessage") 1568s [00:52:48.110] if (muffled) 1568s [00:52:48.110] invokeRestart("muffleMessage") 1568s [00:52:48.110] } 1568s [00:52:48.110] else if (inherits(cond, "warning")) { 1568s [00:52:48.110] muffled <- grepl(pattern, "muffleWarning") 1568s [00:52:48.110] if (muffled) 1568s [00:52:48.110] invokeRestart("muffleWarning") 1568s [00:52:48.110] } 1568s [00:52:48.110] else if (inherits(cond, "condition")) { 1568s [00:52:48.110] if (!is.null(pattern)) { 1568s [00:52:48.110] computeRestarts <- base::computeRestarts 1568s [00:52:48.110] grepl <- base::grepl 1568s [00:52:48.110] restarts <- computeRestarts(cond) 1568s [00:52:48.110] for (restart in restarts) { 1568s [00:52:48.110] name <- restart$name 1568s [00:52:48.110] if (is.null(name)) 1568s [00:52:48.110] next 1568s [00:52:48.110] if (!grepl(pattern, name)) 1568s [00:52:48.110] next 1568s [00:52:48.110] invokeRestart(restart) 1568s [00:52:48.110] muffled <- TRUE 1568s [00:52:48.110] break 1568s [00:52:48.110] } 1568s [00:52:48.110] } 1568s [00:52:48.110] } 1568s [00:52:48.110] invisible(muffled) 1568s [00:52:48.110] } 1568s [00:52:48.110] muffleCondition(cond, pattern = "^muffle") 1568s [00:52:48.110] } 1568s [00:52:48.110] } 1568s [00:52:48.110] else { 1568s [00:52:48.110] if (TRUE) { 1568s [00:52:48.110] muffleCondition <- function (cond, pattern = "^muffle") 1568s [00:52:48.110] { 1568s [00:52:48.110] inherits <- base::inherits 1568s [00:52:48.110] invokeRestart <- base::invokeRestart 1568s [00:52:48.110] is.null <- base::is.null 1568s [00:52:48.110] muffled <- FALSE 1568s [00:52:48.110] if (inherits(cond, "message")) { 1568s [00:52:48.110] muffled <- grepl(pattern, "muffleMessage") 1568s [00:52:48.110] if (muffled) 1568s [00:52:48.110] invokeRestart("muffleMessage") 1568s [00:52:48.110] } 1568s [00:52:48.110] else if (inherits(cond, "warning")) { 1568s [00:52:48.110] muffled <- grepl(pattern, "muffleWarning") 1568s [00:52:48.110] if (muffled) 1568s [00:52:48.110] invokeRestart("muffleWarning") 1568s [00:52:48.110] } 1568s [00:52:48.110] else if (inherits(cond, "condition")) { 1568s [00:52:48.110] if (!is.null(pattern)) { 1568s [00:52:48.110] computeRestarts <- base::computeRestarts 1568s [00:52:48.110] grepl <- base::grepl 1568s [00:52:48.110] restarts <- computeRestarts(cond) 1568s [00:52:48.110] for (restart in restarts) { 1568s [00:52:48.110] name <- restart$name 1568s [00:52:48.110] if (is.null(name)) 1568s [00:52:48.110] next 1568s [00:52:48.110] if (!grepl(pattern, name)) 1568s [00:52:48.110] next 1568s [00:52:48.110] invokeRestart(restart) 1568s [00:52:48.110] muffled <- TRUE 1568s [00:52:48.110] break 1568s [00:52:48.110] } 1568s [00:52:48.110] } 1568s [00:52:48.110] } 1568s [00:52:48.110] invisible(muffled) 1568s [00:52:48.110] } 1568s [00:52:48.110] muffleCondition(cond, pattern = "^muffle") 1568s [00:52:48.110] } 1568s [00:52:48.110] } 1568s [00:52:48.110] } 1568s [00:52:48.110] })) 1568s [00:52:48.110] }, error = function(ex) { 1568s [00:52:48.110] base::structure(base::list(value = NULL, visible = NULL, 1568s [00:52:48.110] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1568s [00:52:48.110] 1568s > message("*** future_sapply() ...") 1568s > 1568s > xs <- list( 1568s + A = c(a = 1, b = 2, c = 3), 1568s + B = c(a = 1:2, b = 2:3, c = 3:4), 1568s + C = letters[1:3], 1568s + D = structure(10 * 5:8, names = LETTERS[1:4]) 1568s + ) 1568s > 1568s > FUNS <- list( 1568s + a = identity, 1568s + b = as.matrix, 1568s + c = function(x, y = 2 * 1:5) outer(rep(x, length.out = 3L), y) 1568s + ) 1568s > 1568s > for (strategy in supportedStrategies()) { 1568s + message(sprintf("*** strategy = %s ...", sQuote(strategy))) 1568s + plan(strategy) 1568s + 1568s + for (x in xs) { 1568s + FUNS_x <- FUNS 1568s + if (!is.numeric(x)) FUNS_x[["c"]] <- NULL 1568s + 1568s + for (USE.NAMES in list(FALSE, TRUE)) { 1568s + for (simplify in list(FALSE, TRUE, "array")) { 1568s + for (FUN in FUNS_x) { 1568s + y0 <- sapply(x, FUN = FUN, 1568s + USE.NAMES = USE.NAMES, simplify = simplify) 1568s + y1 <- future_sapply(x, FUN = FUN, 1568s + USE.NAMES = USE.NAMES, simplify = simplify) 1568s + str(list(y0 = y0, y1 = y1)) 1568s + stopifnot(identical(y1, y0)) 1568s + if (identical(simplify, FALSE)) { 1568s + y2 <- lapply(x, FUN = FUN) 1568s + str(list(y0 = y0, y2 = y2)) 1568s + stopifnot(identical(unname(y2), unname(y0))) 1568s + } 1568s + } 1568s + } 1568s + } 1568s + } 1568s + 1568s + y0 <- sapply(1:3, FUN = "sqrt") 1568s + y1 <- future_sapply(1:3, FUN = "sqrt") 1568s + stopifnot(identical(y1, y0)) 1568s + 1568s + ## https://github.com/HenrikBengtsson/future.apply/issues/61 1568s + compute <- function(a, x_vec) a + x_vec 1568s + call_compute <- function(..., x_vec = 1:2){ 1568s + compute_with_dots <- function(x) compute(..., x_vec = x) 1568s + future_sapply(x_vec, FUN = compute_with_dots) 1568s + } 1568s + y <- call_compute(0L) 1568s + print(y) 1568s + stopifnot(identical(y, 1:2)) 1568s + 1568s + plan(sequential) 1568s + message(sprintf("*** strategy = %s ... done", sQuote(strategy))) 1568s + } ## for (strategy in ...) 1568s List of 2 1568s $ y0:List of 3 1568s ..$ a: num 1 1568s ..$ b: num 2 1568s ..$ c: num 3 1568s $ y1:List of 3 1568s ..$ a: num 1 1568s ..$ b: num 2 1568s ..$ c: num 3 1568s List of 2 1568s $ y0:List of 3 1568s ..$ a: num 1 1568s ..$ b: num 2 1568s ..$ c: num 3 1568s $ y2:List of 3 1568s ..$ a: num 1 1568s ..$ b: num 2 1568s ..$ c: num 3 1568s ...future.rng), started = ...future.startTime, 1568s [00:52:48.110] finished = Sys.time(), session_uuid = NA_character_, 1568s [00:52:48.110] version = "1.8"), class = "FutureResult") 1568s [00:52:48.110] }, finally = { 1568s [00:52:48.110] if (!identical(...future.workdir, getwd())) 1568s [00:52:48.110] setwd(...future.workdir) 1568s [00:52:48.110] { 1568s [00:52:48.110] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1568s [00:52:48.110] ...future.oldOptions$nwarnings <- NULL 1568s [00:52:48.110] } 1568s [00:52:48.110] base::options(...future.oldOptions) 1568s [00:52:48.110] if (.Platform$OS.type == "windows") { 1568s [00:52:48.110] old_names <- names(...future.oldEnvVars) 1568s [00:52:48.110] envs <- base::Sys.getenv() 1568s [00:52:48.110] names <- names(envs) 1568s [00:52:48.110] common <- intersect(names, old_names) 1568s [00:52:48.110] added <- setdiff(names, old_names) 1568s [00:52:48.110] removed <- setdiff(old_names, names) 1568s [00:52:48.110] changed <- common[...future.oldEnvVars[common] != 1568s [00:52:48.110] envs[common]] 1568s [00:52:48.110] NAMES <- toupper(changed) 1568s [00:52:48.110] args <- list() 1568s [00:52:48.110] for (kk in seq_along(NAMES)) { 1568s [00:52:48.110] name <- changed[[kk]] 1568s [00:52:48.110] NAME <- NAMES[[kk]] 1568s [00:52:48.110] if (name != NAME && is.element(NAME, old_names)) 1568s [00:52:48.110] next 1568s [00:52:48.110] args[[name]] <- ...future.oldEnvVars[[name]] 1568s [00:52:48.110] } 1568s [00:52:48.110] NAMES <- toupper(added) 1568s [00:52:48.110] for (kk in seq_along(NAMES)) { 1568s [00:52:48.110] name <- added[[kk]] 1568s [00:52:48.110] NAME <- NAMES[[kk]] 1568s [00:52:48.110] if (name != NAME && is.element(NAME, old_names)) 1568s [00:52:48.110] next 1568s [00:52:48.110] args[[name]] <- "" 1568s [00:52:48.110] } 1568s [00:52:48.110] NAMES <- toupper(removed) 1568s [00:52:48.110] for (kk in seq_along(NAMES)) { 1568s [00:52:48.110] name <- removed[[kk]] 1568s [00:52:48.110] NAME <- NAMES[[kk]] 1568s [00:52:48.110] if (name != NAME && is.element(NAME, old_names)) 1568s [00:52:48.110] next 1568s [00:52:48.110] args[[name]] <- ...future.oldEnvVars[[name]] 1568s [00:52:48.110] } 1568s [00:52:48.110] if (length(args) > 0) 1568s [00:52:48.110] base::do.call(base::Sys.setenv, args = args) 1568s [00:52:48.110] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1568s [00:52:48.110] } 1568s [00:52:48.110] else { 1568s [00:52:48.110] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1568s [00:52:48.110] } 1568s [00:52:48.110] { 1568s [00:52:48.110] if (base::length(...future.futureOptionsAdded) > 1568s [00:52:48.110] 0L) { 1568s [00:52:48.110] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1568s [00:52:48.110] base::names(opts) <- ...future.futureOptionsAdded 1568s [00:52:48.110] base::options(opts) 1568s [00:52:48.110] } 1568s [00:52:48.110] { 1568s [00:52:48.110] { 1568s [00:52:48.110] NULL 1568s [00:52:48.110] RNGkind("Mersenne-Twister") 1568s [00:52:48.110] base::rm(list = ".Random.seed", envir = base::globalenv(), 1568s [00:52:48.110] inherits = FALSE) 1568s [00:52:48.110] } 1568s [00:52:48.110] options(future.plan = NULL) 1568s [00:52:48.110] if (is.na(NA_character_)) 1568s [00:52:48.110] Sys.unsetenv("R_FUTURE_PLAN") 1568s [00:52:48.110] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1568s [00:52:48.110] future::plan(list(function (..., envir = parent.frame()) 1568s [00:52:48.110] { 1568s [00:52:48.110] future <- SequentialFuture(..., envir = envir) 1568s [00:52:48.110] if (!future$lazy) 1568s [00:52:48.110] future <- run(future) 1568s [00:52:48.110] invisible(future) 1568s [00:52:48.110] }), .cleanup = FALSE, .init = FALSE) 1568s [00:52:48.110] } 1568s [00:52:48.110] } 1568s [00:52:48.110] } 1568s [00:52:48.110] }) 1568s [00:52:48.110] if (TRUE) { 1568s [00:52:48.110] base::sink(type = "output", split = FALSE) 1568s [00:52:48.110] if (TRUE) { 1568s [00:52:48.110] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1568s [00:52:48.110] } 1568s [00:52:48.110] else { 1568s [00:52:48.110] ...future.result["stdout"] <- base::list(NULL) 1568s [00:52:48.110] } 1568s [00:52:48.110] base::close(...future.stdout) 1568s [00:52:48.110] ...future.stdout <- NULL 1568s [00:52:48.110] } 1568s [00:52:48.110] ...future.result$conditions <- ...future.conditions 1568s [00:52:48.110] ...future.result$finished <- base::Sys.time() 1568s [00:52:48.110] ...future.result 1568s [00:52:48.110] } 1568s [00:52:48.119] assign_globals() ... 1568s [00:52:48.120] List of 5 1568s [00:52:48.120] $ ...future.FUN :function (x, ...) 1568s [00:52:48.120] $ future.call.arguments : list() 1568s [00:52:48.120] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1568s [00:52:48.120] $ ...future.elements_ii :List of 3 1568s [00:52:48.120] ..$ a: num 1 1568s [00:52:48.120] ..$ b: num 2 1568s [00:52:48.120] ..$ c: num 3 1568s [00:52:48.120] $ ...future.seeds_ii : NULL 1568s [00:52:48.120] $ ...future.globals.maxSize: NULL 1568s [00:52:48.120] - attr(*, "where")=List of 5 1568s [00:52:48.120] ..$ ...future.FUN : 1568s [00:52:48.120] ..$ future.call.arguments : 1568s [00:52:48.120] ..$ ...future.elements_ii : 1568s [00:52:48.120] ..$ ...future.seeds_ii : 1568s [00:52:48.120] ..$ ...future.globals.maxSize: 1568s [00:52:48.120] - attr(*, "resolved")= logi FALSE 1568s [00:52:48.120] - attr(*, "total_size")= num 1248 1568s [00:52:48.120] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1568s [00:52:48.120] - attr(*, "already-done")= logi TRUE 1568s [00:52:48.130] - copied ‘...future.FUN’ to environment 1568s [00:52:48.130] - copied ‘future.call.arguments’ to environment 1568s [00:52:48.130] - copied ‘...future.elements_ii’ to environment 1568s [00:52:48.130] - copied ‘...future.seeds_ii’ to environment 1568s [00:52:48.131] - copied ‘...future.globals.maxSize’ to environment 1568s [00:52:48.131] assign_globals() ... done 1568s [00:52:48.131] plan(): Setting new future strategy stack: 1568s [00:52:48.131] List of future strategies: 1568s [00:52:48.131] 1. sequential: 1568s [00:52:48.131] - args: function (..., envir = parent.frame()) 1568s [00:52:48.131] - tweaked: FALSE 1568s [00:52:48.131] - call: NULL 1568s [00:52:48.132] plan(): nbrOfWorkers() = 1 1568s [00:52:48.134] plan(): Setting new future strategy stack: 1568s [00:52:48.134] List of future strategies: 1568s [00:52:48.134] 1. sequential: 1568s [00:52:48.134] - args: function (..., envir = parent.frame()) 1568s [00:52:48.134] - tweaked: FALSE 1568s [00:52:48.134] - call: plan(strategy) 1568s [00:52:48.135] plan(): nbrOfWorkers() = 1 1568s [00:52:48.135] SequentialFuture started (and completed) 1568s [00:52:48.135] - Launch lazy future ... done 1568s [00:52:48.136] run() for ‘SequentialFuture’ ... done 1568s [00:52:48.136] Created future: 1568s [00:52:48.136] SequentialFuture: 1568s [00:52:48.136] Label: ‘future_sapply-1’ 1568s [00:52:48.136] Expression: 1568s [00:52:48.136] { 1568s [00:52:48.136] do.call(function(...) { 1568s [00:52:48.136] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1568s [00:52:48.136] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1568s [00:52:48.136] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1568s [00:52:48.136] on.exit(options(oopts), add = TRUE) 1568s [00:52:48.136] } 1568s [00:52:48.136] { 1568s [00:52:48.136] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1568s [00:52:48.136] ...future.X_jj <- ...future.elements_ii[[jj]] 1568s [00:52:48.136] ...future.FUN(...future.X_jj, ...) 1568s [00:52:48.136] }) 1568s [00:52:48.136] } 1568s [00:52:48.136] }, args = future.call.arguments) 1568s [00:52:48.136] } 1568s [00:52:48.136] Lazy evaluation: FALSE 1568s [00:52:48.136] Asynchronous evaluation: FALSE 1568s [00:52:48.136] Local evaluation: TRUE 1568s [00:52:48.136] Environment: R_GlobalEnv 1568s [00:52:48.136] Capture standard output: TRUE 1568s [00:52:48.136] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1568s [00:52:48.136] Globals: 5 objects totaling 1.38 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1568s [00:52:48.136] Packages: 1568s [00:52:48.136] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1568s [00:52:48.136] Resolved: TRUE 1568s [00:52:48.136] Value: 672 bytes of class ‘list’ 1568s [00:52:48.136] Early signaling: FALSE 1568s [00:52:48.136] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1568s [00:52:48.136] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1568s [00:52:48.139] Chunk #1 of 1 ... DONE 1568s [00:52:48.139] Launching 1 futures (chunks) ... DONE 1568s [00:52:48.139] Resolving 1 futures (chunks) ... 1568s [00:52:48.140] resolve() on list ... 1568s [00:52:48.140] recursive: 0 1568s [00:52:48.140] length: 1 1568s [00:52:48.140] 1568s [00:52:48.141] resolved() for ‘SequentialFuture’ ... 1568s [00:52:48.141] - state: ‘finished’ 1568s [00:52:48.141] - run: TRUE 1568s [00:52:48.142] - result: ‘FutureResult’ 1568s [00:52:48.142] resolved() for ‘SequentialFuture’ ... done 1568s [00:52:48.142] Future #1 1568s [00:52:48.143] signalConditionsASAP(SequentialFuture, pos=1) ... 1568s [00:52:48.143] - nx: 1 1568s [00:52:48.143] - relay: TRUE 1568s [00:52:48.143] - stdout: TRUE 1568s [00:52:48.143] - signal: TRUE 1568s [00:52:48.143] - resignal: FALSE 1568s [00:52:48.144] - force: TRUE 1568s [00:52:48.144] - relayed: [n=1] FALSE 1568s [00:52:48.144] - queued futures: [n=1] FALSE 1568s [00:52:48.144] - until=1 1568s [00:52:48.144] - relaying element #1 1568s [00:52:48.145] - relayed: [n=1] TRUE 1568s [00:52:48.145] - queued futures: [n=1] TRUE 1568s [00:52:48.145] signalConditionsASAP(SequentialFuture, pos=1) ... done 1568s [00:52:48.145] length: 0 (resolved future 1) 1568s [00:52:48.146] Relaying remaining futures 1568s [00:52:48.146] signalConditionsASAP(NULL, pos=0) ... 1568s [00:52:48.146] - nx: 1 1568s [00:52:48.146] - relay: TRUE 1568s [00:52:48.146] - stdout: TRUE 1568s [00:52:48.147] - signal: TRUE 1568s [00:52:48.147] - resignal: FALSE 1568s [00:52:48.147] - force: TRUE 1568s [00:52:48.147] - relayed: [n=1] TRUE 1568s [00:52:48.147] - queued futures: [n=1] TRUE 1568s - flush all 1568s [00:52:48.147] - relayed: [n=1] TRUE 1568s [00:52:48.148] - queued futures: [n=1] TRUE 1568s [00:52:48.148] signalConditionsASAP(NULL, pos=0) ... done 1568s [00:52:48.148] resolve() on list ... DONE 1568s [00:52:48.148] - Number of value chunks collected: 1 1568s [00:52:48.149] Resolving 1 futures (chunks) ... DONE 1568s [00:52:48.149] Reducing values from 1 chunks ... 1568s [00:52:48.149] - Number of values collected after concatenation: 3 1568s [00:52:48.150] - Number of values expected: 3 1568s [00:52:48.150] Reducing values from 1 chunks ... DONE 1568s [00:52:48.150] future_lapply() ... DONE 1568s [00:52:48.163] future_lapply() ... 1568s [00:52:48.166] Number of chunks: 1 1568s [00:52:48.167] getGlobalsAndPackagesXApply() ... 1568s [00:52:48.167] - future.globals: TRUE 1568s [00:52:48.167] getGlobalsAndPackages() ... 1568s [00:52:48.167] Searching for globals... 1568s [00:52:48.169] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1568s [00:52:48.169] Searching for globals ... DONE 1568s [00:52:48.169] Resolving globals: FALSE 1568s [00:52:48.170] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1568s [00:52:48.170] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1568s [00:52:48.171] - globals: [1] ‘FUN’ 1568s [00:52:48.171] 1568s [00:52:48.171] getGlobalsAndPackages() ... DONE 1568s [00:52:48.171] - globals found/used: [n=1] ‘FUN’ 1568s [00:52:48.171] - needed namespaces: [n=0] 1568s [00:52:48.171] Finding globals ... DONE 1568s [00:52:48.171] - use_args: TRUE 1568s [00:52:48.172] - Getting '...' globals ... 1568s [00:52:48.173] resolve() on list ... 1568s [00:52:48.173] recursive: 0 1568s [00:52:48.174] length: 1 1568s [00:52:48.174] elements: ‘...’ 1568s [00:52:48.174] length: 0 (resolved future 1) 1568s [00:52:48.174] resolve() on list ... DONE 1568s [00:52:48.174] - '...' content: [n=0] 1568s [00:52:48.174] List of 1 1568s [00:52:48.174] $ ...: list() 1568s [00:52:48.174] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1568s [00:52:48.174] - attr(*, "where")=List of 1 1568s [00:52:48.174] ..$ ...: 1568s [00:52:48.174] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1568s [00:52:48.174] - attr(*, "resolved")= logi TRUE 1568s [00:52:48.174] - attr(*, "total_size")= num NA 1568s [00:52:48.177] - Getting '...' globals ... DONE 1568s [00:52:48.178] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1568s [00:52:48.178] List of 2 1568s [00:52:48.178] $ ...future.FUN:function (x, y = 2 * 1:5) 1568s [00:52:48.178] $ ... : list() 1568s [00:52:48.178] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1568s [00:52:48.178] - attr(*, "where")=List of 2 1568s [00:52:48.178] ..$ ...future.FUN: 1568s [00:52:48.178] ..$ ... : 1568s [00:52:48.178] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1568s [00:52:48.178] - attr(*, "resolved")= logi FALSE 1568s [00:52:48.178] - attr(*, "total_size")= num 4728 1568s [00:52:48.181] Packages to be attached in all futures: [n=0] 1568s [00:52:48.181] getGlobalsAndPackagesXApply() ... DONE 1568s [00:52:48.182] Number of futures (= number of chunks): 1 1568s [00:52:48.182] Launching 1 futures (chunks) ... 1568s [00:52:48.182] Chunk #1 of 1 ... 1568s [00:52:48.182] - Finding globals in 'X' for chunk #1 ... 1568s [00:52:48.182] getGlobalsAndPackages() ... 1568s [00:52:48.182] Searching for globals... 1568s [00:52:48.183] 1568s [00:52:48.183] Searching for globals ... DONE 1568s [00:52:48.183] - globals: [0] 1568s [00:52:48.183] getGlobalsAndPackages() ... DONE 1568s [00:52:48.183] + additional globals found: [n=0] 1568s [00:52:48.183] + additional namespaces needed: [n=0] 1568s [00:52:48.184] - Finding globals in 'X' for chunk #1 ... DONE 1568s [00:52:48.184] - seeds: 1568s [00:52:48.184] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1568s [00:52:48.184] getGlobalsAndPackages() ... 1568s [00:52:48.184] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1568s [00:52:48.185] Resolving globals: FALSE 1568s [00:52:48.185] Tweak future expression to call with '...' arguments ... 1568s [00:52:48.185] { 1568s [00:52:48.185] do.call(function(...) { 1568s [00:52:48.185] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1568s [00:52:48.185] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1568s [00:52:48.185] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1568s [00:52:48.185] on.exit(options(oopts), add = TRUE) 1568s [00:52:48.185] } 1568s [00:52:48.185] { 1568s [00:52:48.185] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1568s [00:52:48.185] ...future.X_jj <- ...future.elements_ii[[jj]] 1568s [00:52:48.185] ...future.FUN(...future.X_jj, ...) 1568s [00:52:48.185] }) 1568s [00:52:48.185] } 1568s [00:52:48.185] }, args = future.call.arguments) 1568s [00:52:48.185] } 1568s [00:52:48.185] Tweak future expression to call with '...' arguments ... DONE 1568s [00:52:48.186] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1568s [00:52:48.186] 1568s [00:52:48.186] getGlobalsAndPackages() ... DONE 1568s [00:52:48.187] run() for ‘Future’ ... 1568s [00:52:48.187] - state: ‘created’ 1568s [00:52:48.187] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1568s [00:52:48.187] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1568s [00:52:48.187] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1568s [00:52:48.188] - Field: ‘label’ 1568s [00:52:48.188] - Field: ‘local’ 1568s [00:52:48.188] - Field: ‘owner’ 1568s [00:52:48.188] - Field: ‘envir’ 1568s [00:52:48.188] - Field: ‘packages’ 1568s [00:52:48.188] - Field: ‘gc’ 1568s [00:52:48.188] - Field: ‘conditions’ 1568s [00:52:48.189] - Field: ‘expr’ 1568s [00:52:48.189] - Field: ‘uuid’ 1568s [00:52:48.189] - Field: ‘seed’ 1568s [00:52:48.189] - Field: ‘version’ 1568s [00:52:48.189] - Field: ‘result’ 1568s [00:52:48.190] - Field: ‘asynchronous’ 1568s [00:52:48.190] - Field: ‘calls’ 1568s [00:52:48.190] - Field: ‘globals’ 1568s [00:52:48.190] - Field: ‘stdout’ 1568s [00:52:48.190] - Field: ‘earlySignal’ 1568s [00:52:48.191] - Field: ‘lazy’ 1568s [00:52:48.191] - Field: ‘state’ 1568s [00:52:48.191] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1568s [00:52:48.191] - Launch lazy future ... 1568s [00:52:48.191] Packages needed by the future expression (n = 0): 1568s [00:52:48.192] Packages needed by future strategies (n = 0): 1568s [00:52:48.192] { 1568s [00:52:48.192] { 1568s [00:52:48.192] { 1568s [00:52:48.192] ...future.startTime <- base::Sys.time() 1568s [00:52:48.192] { 1568s [00:52:48.192] { 1568s [00:52:48.192] { 1568s [00:52:48.192] base::local({ 1568s [00:52:48.192] has_future <- base::requireNamespace("future", 1568s [00:52:48.192] quietly = TRUE) 1568s [00:52:48.192] if (has_future) { 1568s [00:52:48.192] ns <- base::getNamespace("future") 1568s [00:52:48.192] version <- ns[[".package"]][["version"]] 1568s [00:52:48.192] if (is.null(version)) 1568s [00:52:48.192] version <- utils::packageVersion("future") 1568s [00:52:48.192] } 1568s [00:52:48.192] else { 1568s [00:52:48.192] version <- NULL 1568s [00:52:48.192] } 1568s [00:52:48.192] if (!has_future || version < "1.8.0") { 1568s [00:52:48.192] info <- base::c(r_version = base::gsub("R version ", 1568s [00:52:48.192] "", base::R.version$version.string), 1568s [00:52:48.192] platform = base::sprintf("%s (%s-bit)", 1568s [00:52:48.192] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1568s [00:52:48.192] os = base::paste(base::Sys.info()[base::c("sysname", 1568s [00:52:48.192] "release", "version")], collapse = " "), 1568s [00:52:48.192] hostname = base::Sys.info()[["nodename"]]) 1568s [00:52:48.192] info <- base::sprintf("%s: %s", base::names(info), 1568s [00:52:48.192] info) 1568s [00:52:48.192] info <- base::paste(info, collapse = "; ") 1568s [00:52:48.192] if (!has_future) { 1568s [00:52:48.192] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1568s [00:52:48.192] info) 1568s [00:52:48.192] } 1568s [00:52:48.192] else { 1568s [00:52:48.192] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1568s [00:52:48.192] info, version) 1568s [00:52:48.192] } 1568s [00:52:48.192] base::stop(msg) 1568s [00:52:48.192] } 1568s [00:52:48.192] }) 1568s [00:52:48.192] } 1568s [00:52:48.192] options(future.plan = NULL) 1568s [00:52:48.192] Sys.unsetenv("R_FUTURE_PLAN") 1568s [00:52:48.192] future::plan("default", .cleanup = FALSE, .init = FALSE) 1568s [00:52:48.192] } 1568s [00:52:48.192] ...future.workdir <- getwd() 1568s [00:52:48.192] } 1568s [00:52:48.192] ...future.oldOptions <- base::as.list(base::.Options) 1568s [00:52:48.192] ...future.oldEnvVars <- base::Sys.getenv() 1568s [00:52:48.192] } 1568s [00:52:48.192] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1568s [00:52:48.192] future.globals.maxSize = NULL, future.globals.method = NULL, 1568s [00:52:48.192] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1568s [00:52:48.192] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1568s [00:52:48.192] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1568s [00:52:48.192] future.stdout.windows.reencode = NULL, width = 80L) 1568s [00:52:48.192] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1568s [00:52:48.192] base::names(...future.oldOptions)) 1568s [00:52:48.192] } 1568s [00:52:48.192] if (FALSE) { 1568s [00:52:48.192] } 1568s [00:52:48.192] else { 1568s [00:52:48.192] if (TRUE) { 1568s [00:52:48.192] ...future.stdout <- base::rawConnection(base::raw(0L), 1568s [00:52:48.192] open = "w") 1568s [00:52:48.192] } 1568s [00:52:48.192] else { 1568s [00:52:48.192] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1568s [00:52:48.192] windows = "NUL", "/dev/null"), open = "w") 1568s [00:52:48.192] } 1568s [00:52:48.192] base::sink(...future.stdout, type = "output", split = FALSE) 1568s [00:52:48.192] base::on.exit(if (!base::is.null(...future.stdout)) { 1568s [00:52:48.192] base::sink(type = "output", split = FALSE) 1568s [00:52:48.192] base::close(...future.stdout) 1568s [00:52:48.192] }, add = TRUE) 1568s [00:52:48.192] } 1568s [00:52:48.192] ...future.frame <- base::sys.nframe() 1568s [00:52:48.192] ...future.conditions <- base::list() 1568s [00:52:48.192] ...future.rng <- base::globalenv()$.Random.seed 1568s [00:52:48.192] if (FALSE) { 1568s [00:52:48.192] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1568s [00:52:48.192] "...future.value", "...future.globalenv.names", ".Random.seed") 1568s [00:52:48.192] } 1568s [00:52:48.192] ...future.result <- base::tryCatch({ 1568s [00:52:48.192] base::withCallingHandlers({ 1568s [00:52:48.192] ...future.value <- base::withVisible(base::local({ 1568s [00:52:48.192] do.call(function(...) { 1568s [00:52:48.192] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1568s [00:52:48.192] if (!identical(...future.globals.maxSize.org, 1568s [00:52:48.192] ...future.globals.maxSize)) { 1568s [00:52:48.192] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1568s [00:52:48.192] on.exit(options(oopts), add = TRUE) 1568s [00:52:48.192] } 1568s [00:52:48.192] { 1568s [00:52:48.192] lapply(seq_along(...future.elements_ii), 1568s [00:52:48.192] FUN = function(jj) { 1568s [00:52:48.192] ...future.X_jj <- ...future.elements_ii[[jj]] 1568s [00:52:48.192] ...future.FUN(...future.X_jj, ...) 1568s [00:52:48.192] }) 1568s [00:52:48.192] } 1568s [00:52:48.192] }, args = future.call.arguments) 1568s [00:52:48.192] })) 1568s [00:52:48.192] future::FutureResult(value = ...future.value$value, 1568s [00:52:48.192] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1568s [00:52:48.192] ...future.rng), globalenv = if (FALSE) 1568s [00:52:48.192] list(added = base::setdiff(base::names(base::.GlobalEnv), 1568s [00:52:48.192] ...future.globalenv.names)) 1568s [00:52:48.192] else NULL, started = ...future.startTime, version = "1.8") 1568s [00:52:48.192] }, condition = base::local({ 1568s [00:52:48.192] c <- base::c 1568s [00:52:48.192] inherits <- base::inherits 1568s [00:52:48.192] invokeRestart <- base::invokeRestart 1568s [00:52:48.192] length <- base::length 1568s [00:52:48.192] list <- base::list 1568s [00:52:48.192] seq.int <- base::seq.int 1568s [00:52:48.192] signalCondition <- base::signalCondition 1568s [00:52:48.192] sys.calls <- base::sys.calls 1568s [00:52:48.192] `[[` <- base::`[[` 1568s [00:52:48.192] `+` <- base::`+` 1568s [00:52:48.192] `<<-` <- base::`<<-` 1568s [00:52:48.192] sysCalls <- function(calls = sys.calls(), from = 1L) { 1568s [00:52:48.192] calls[seq.int(from = from + 12L, to = length(calls) - 1568s [00:52:48.192] 3L)] 1568s [00:52:48.192] } 1568s [00:52:48.192] function(cond) { 1568s [00:52:48.192] is_error <- inherits(cond, "error") 1568s [00:52:48.192] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1568s [00:52:48.192] NULL) 1568s [00:52:48.192] if (is_error) { 1568s [00:52:48.192] sessionInformation <- function() { 1568s [00:52:48.192] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1568s [00:52:48.192] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1568s [00:52:48.192] search = base::search(), system = base::Sys.info()) 1568s [00:52:48.192] } 1568s [00:52:48.192] ...future.conditions[[length(...future.conditions) + 1568s [00:52:48.192] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1568s [00:52:48.192] cond$call), session = sessionInformation(), 1568s [00:52:48.192] timestamp = base::Sys.time(), signaled = 0L) 1568s [00:52:48.192] signalCondition(cond) 1568s [00:52:48.192] } 1568s [00:52:48.192] else if (!ignore && TRUE && inherits(cond, c("condition", 1568s [00:52:48.192] "immediateCondition"))) { 1568s [00:52:48.192] signal <- TRUE && inherits(cond, "immediateCondition") 1568s [00:52:48.192] ...future.conditions[[length(...future.conditions) + 1568s [00:52:48.192] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1568s [00:52:48.192] if (TRUE && !signal) { 1568s [00:52:48.192] muffleCondition <- function (cond, pattern = "^muffle") 1568s [00:52:48.192] { 1568s [00:52:48.192] inherits <- base::inherits 1568s [00:52:48.192] invokeRestart <- base::invokeRestart 1568s [00:52:48.192] is.null <- base::is.null 1568s [00:52:48.192] muffled <- FALSE 1568s [00:52:48.192] if (inherits(cond, "message")) { 1568s [00:52:48.192] muffled <- grepl(pattern, "muffleMessage") 1568s [00:52:48.192] if (muffled) 1568s [00:52:48.192] invokeRestart("muffleMessage") 1568s [00:52:48.192] } 1568s [00:52:48.192] else if (inherits(cond, "warning")) { 1568s [00:52:48.192] muffled <- grepl(pattern, "muffleWarning") 1568s [00:52:48.192] if (muffled) 1568s [00:52:48.192] invokeRestart("muffleWarning") 1568s [00:52:48.192] } 1568s [00:52:48.192] else if (inherits(cond, "condition")) { 1568s [00:52:48.192] if (!is.null(pattern)) { 1568s [00:52:48.192] computeRestarts <- base::computeRestarts 1568s [00:52:48.192] grepl <- base::grepl 1568s [00:52:48.192] restarts <- computeRestarts(cond) 1568s [00:52:48.192] for (restart in restarts) { 1568s [00:52:48.192] name <- restart$name 1568s [00:52:48.192] if (is.null(name)) 1568s [00:52:48.192] next 1568s [00:52:48.192] List of 2 1568s $ y0:List of 3 1568s ..$ a: num [1, 1] 1 1568s ..$ b: num [1, 1] 2 1568s ..$ c: num [1, 1] 3 1568s $ y1:List of 3 1568s ..$ a: num [1, 1] 1 1568s ..$ b: num [1, 1] 2 1568s ..$ c: num [1, 1] 3 1568s List of 2 1568s $ y0:List of 3 1568s ..$ a: num [1, 1] 1 1568s ..$ b: num [1, 1] 2 1568s ..$ c: num [1, 1] 3 1568s $ y2:List of 3 1568s ..$ a: num [1, 1] 1 1568s ..$ b: num [1, 1] 2 1568s ..$ c: num [1, 1] 3 1568s List of 2 1568s $ y0:List of 3 1568s ..$ a: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1568s ..$ b: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1568s ..$ c: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1568s $ y1:List of 3 1568s ..$ a: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1568s ..$ b: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1568s ..$ c: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1568s List of 2 1568s $ y0:List of 3 1568s ..$ a: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1568s ..$ b: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1568s ..$ c: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1568s $ y2:List of 3 1568s ..$ a: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1568s ..$ b: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1568s ..$ c: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1568s List of 2 1568s $ y0: Named num [1:3] 1 2 3 1568s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1568s $ y1: Named num [1:3] 1 2 3 1568s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1568s List of 2 1568s $ y0: Named num [1:3] 1 2 3 1568s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1568s $ y1: Named num [1:3] 1 2 3 1568s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1568s List of 2 1568s $ y0: num [1:15, 1:3] 2 2 2 4 4 4 6 6 6 8 ... 1568s ..- attr(*, "dimnames")=List of 2 1568s .. ..$ : NULL 1568s .. ..$ : chr [1:3] "a" "b" "c" 1568s $ y1: num [1:15, 1:3] 2 2 2 4 4 4 6 6 6 8 ... 1568s ..- attr(*, "dimnames")=List of 2 1568s .. ..$ : NULL 1568s .. ..$ : chr [1:3] "a" "b" "c" 1568s List of 2 1568s $ y0: Named num [1:3] 1 2 3 1568s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1568s $ y1: Named num [1:3] 1 2 3 1568s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1568s if (!grepl(pattern, name)) 1568s [00:52:48.192] next 1568s [00:52:48.192] invokeRestart(restart) 1568s [00:52:48.192] muffled <- TRUE 1568s [00:52:48.192] break 1568s [00:52:48.192] } 1568s [00:52:48.192] } 1568s [00:52:48.192] } 1568s [00:52:48.192] invisible(muffled) 1568s [00:52:48.192] } 1568s [00:52:48.192] muffleCondition(cond, pattern = "^muffle") 1568s [00:52:48.192] } 1568s [00:52:48.192] } 1568s [00:52:48.192] else { 1568s [00:52:48.192] if (TRUE) { 1568s [00:52:48.192] muffleCondition <- function (cond, pattern = "^muffle") 1568s [00:52:48.192] { 1568s [00:52:48.192] inherits <- base::inherits 1568s [00:52:48.192] invokeRestart <- base::invokeRestart 1568s [00:52:48.192] is.null <- base::is.null 1568s [00:52:48.192] muffled <- FALSE 1568s [00:52:48.192] if (inherits(cond, "message")) { 1568s [00:52:48.192] muffled <- grepl(pattern, "muffleMessage") 1568s [00:52:48.192] if (muffled) 1568s [00:52:48.192] invokeRestart("muffleMessage") 1568s [00:52:48.192] } 1568s [00:52:48.192] else if (inherits(cond, "warning")) { 1568s [00:52:48.192] muffled <- grepl(pattern, "muffleWarning") 1568s [00:52:48.192] if (muffled) 1568s [00:52:48.192] invokeRestart("muffleWarning") 1568s [00:52:48.192] } 1568s [00:52:48.192] else if (inherits(cond, "condition")) { 1568s [00:52:48.192] if (!is.null(pattern)) { 1568s [00:52:48.192] computeRestarts <- base::computeRestarts 1568s [00:52:48.192] grepl <- base::grepl 1568s [00:52:48.192] restarts <- computeRestarts(cond) 1568s [00:52:48.192] for (restart in restarts) { 1568s [00:52:48.192] name <- restart$name 1568s [00:52:48.192] if (is.null(name)) 1568s [00:52:48.192] next 1568s [00:52:48.192] if (!grepl(pattern, name)) 1568s [00:52:48.192] next 1568s [00:52:48.192] invokeRestart(restart) 1568s [00:52:48.192] muffled <- TRUE 1568s [00:52:48.192] break 1568s [00:52:48.192] } 1568s [00:52:48.192] } 1568s [00:52:48.192] } 1568s [00:52:48.192] invisible(muffled) 1568s [00:52:48.192] } 1568s [00:52:48.192] muffleCondition(cond, pattern = "^muffle") 1568s [00:52:48.192] } 1568s [00:52:48.192] } 1568s [00:52:48.192] } 1568s [00:52:48.192] })) 1568s [00:52:48.192] }, error = function(ex) { 1568s [00:52:48.192] base::structure(base::list(value = NULL, visible = NULL, 1568s [00:52:48.192] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1568s [00:52:48.192] ...future.rng), started = ...future.startTime, 1568s [00:52:48.192] finished = Sys.time(), session_uuid = NA_character_, 1568s [00:52:48.192] version = "1.8"), class = "FutureResult") 1568s [00:52:48.192] }, finally = { 1568s [00:52:48.192] if (!identical(...future.workdir, getwd())) 1568s [00:52:48.192] setwd(...future.workdir) 1568s [00:52:48.192] { 1568s [00:52:48.192] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1568s [00:52:48.192] ...future.oldOptions$nwarnings <- NULL 1568s [00:52:48.192] } 1568s [00:52:48.192] base::options(...future.oldOptions) 1568s [00:52:48.192] if (.Platform$OS.type == "windows") { 1568s [00:52:48.192] old_names <- names(...future.oldEnvVars) 1568s [00:52:48.192] envs <- base::Sys.getenv() 1568s [00:52:48.192] names <- names(envs) 1568s [00:52:48.192] common <- intersect(names, old_names) 1568s [00:52:48.192] added <- setdiff(names, old_names) 1568s [00:52:48.192] removed <- setdiff(old_names, names) 1568s [00:52:48.192] changed <- common[...future.oldEnvVars[common] != 1568s [00:52:48.192] envs[common]] 1568s [00:52:48.192] NAMES <- toupper(changed) 1568s [00:52:48.192] args <- list() 1568s [00:52:48.192] for (kk in seq_along(NAMES)) { 1568s [00:52:48.192] name <- changed[[kk]] 1568s [00:52:48.192] NAME <- NAMES[[kk]] 1568s [00:52:48.192] if (name != NAME && is.element(NAME, old_names)) 1568s [00:52:48.192] next 1568s [00:52:48.192] args[[name]] <- ...future.oldEnvVars[[name]] 1568s [00:52:48.192] } 1568s [00:52:48.192] NAMES <- toupper(added) 1568s [00:52:48.192] for (kk in seq_along(NAMES)) { 1568s [00:52:48.192] name <- added[[kk]] 1568s [00:52:48.192] NAME <- NAMES[[kk]] 1568s [00:52:48.192] if (name != NAME && is.element(NAME, old_names)) 1568s [00:52:48.192] next 1568s [00:52:48.192] args[[name]] <- "" 1568s [00:52:48.192] } 1568s [00:52:48.192] NAMES <- toupper(removed) 1568s [00:52:48.192] for (kk in seq_along(NAMES)) { 1568s [00:52:48.192] name <- removed[[kk]] 1568s [00:52:48.192] NAME <- NAMES[[kk]] 1568s [00:52:48.192] if (name != NAME && is.element(NAME, old_names)) 1568s [00:52:48.192] next 1568s [00:52:48.192] args[[name]] <- ...future.oldEnvVars[[name]] 1568s [00:52:48.192] } 1568s [00:52:48.192] if (length(args) > 0) 1568s [00:52:48.192] base::do.call(base::Sys.setenv, args = args) 1568s [00:52:48.192] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1568s [00:52:48.192] } 1568s [00:52:48.192] else { 1568s [00:52:48.192] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1568s [00:52:48.192] } 1568s [00:52:48.192] { 1568s [00:52:48.192] if (base::length(...future.futureOptionsAdded) > 1568s [00:52:48.192] 0L) { 1568s [00:52:48.192] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1568s [00:52:48.192] base::names(opts) <- ...future.futureOptionsAdded 1568s [00:52:48.192] base::options(opts) 1568s [00:52:48.192] } 1568s [00:52:48.192] { 1568s [00:52:48.192] { 1568s [00:52:48.192] NULL 1568s [00:52:48.192] RNGkind("Mersenne-Twister") 1568s [00:52:48.192] base::rm(list = ".Random.seed", envir = base::globalenv(), 1568s [00:52:48.192] inherits = FALSE) 1568s [00:52:48.192] } 1568s [00:52:48.192] options(future.plan = NULL) 1568s [00:52:48.192] if (is.na(NA_character_)) 1568s [00:52:48.192] Sys.unsetenv("R_FUTURE_PLAN") 1568s [00:52:48.192] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1568s [00:52:48.192] future::plan(list(function (..., envir = parent.frame()) 1568s [00:52:48.192] { 1568s [00:52:48.192] future <- SequentialFuture(..., envir = envir) 1568s [00:52:48.192] if (!future$lazy) 1568s [00:52:48.192] future <- run(future) 1568s [00:52:48.192] invisible(future) 1568s [00:52:48.192] }), .cleanup = FALSE, .init = FALSE) 1568s [00:52:48.192] } 1568s [00:52:48.192] } 1568s [00:52:48.192] } 1568s [00:52:48.192] }) 1568s [00:52:48.192] if (TRUE) { 1568s [00:52:48.192] base::sink(type = "output", split = FALSE) 1568s [00:52:48.192] if (TRUE) { 1568s [00:52:48.192] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1568s [00:52:48.192] } 1568s [00:52:48.192] else { 1568s [00:52:48.192] ...future.result["stdout"] <- base::list(NULL) 1568s [00:52:48.192] } 1568s [00:52:48.192] base::close(...future.stdout) 1568s [00:52:48.192] ...future.stdout <- NULL 1568s [00:52:48.192] } 1568s [00:52:48.192] ...future.result$conditions <- ...future.conditions 1568s [00:52:48.192] ...future.result$finished <- base::Sys.time() 1568s [00:52:48.192] ...future.result 1568s [00:52:48.192] } 1568s [00:52:48.196] assign_globals() ... 1568s [00:52:48.196] List of 5 1568s [00:52:48.196] $ ...future.FUN :function (x, y = 2 * 1:5) 1568s [00:52:48.196] $ future.call.arguments : list() 1568s [00:52:48.196] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1568s [00:52:48.196] $ ...future.elements_ii :List of 3 1568s [00:52:48.196] ..$ a: num 1 1568s [00:52:48.196] ..$ b: num 2 1568s [00:52:48.196] ..$ c: num 3 1568s [00:52:48.196] $ ...future.seeds_ii : NULL 1568s [00:52:48.196] $ ...future.globals.maxSize: NULL 1568s [00:52:48.196] - attr(*, "where")=List of 5 1568s [00:52:48.196] ..$ ...future.FUN : 1568s [00:52:48.196] ..$ future.call.arguments : 1568s [00:52:48.196] ..$ ...future.elements_ii : 1568s [00:52:48.196] ..$ ...future.seeds_ii : 1568s [00:52:48.196] ..$ ...future.globals.maxSize: 1568s [00:52:48.196] - attr(*, "resolved")= logi FALSE 1568s [00:52:48.196] - attr(*, "total_size")= num 4728 1568s [00:52:48.196] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1568s [00:52:48.196] - attr(*, "already-done")= logi TRUE 1568s [00:52:48.203] - reassign environment for ‘...future.FUN’ 1568s [00:52:48.204] - copied ‘...future.FUN’ to environment 1568s [00:52:48.204] - copied ‘future.call.arguments’ to environment 1568s [00:52:48.204] - copied ‘...future.elements_ii’ to environment 1568s [00:52:48.204] - copied ‘...future.seeds_ii’ to environment 1568s [00:52:48.204] - copied ‘...future.globals.maxSize’ to environment 1568s [00:52:48.204] assign_globals() ... done 1568s [00:52:48.205] plan(): Setting new future strategy stack: 1568s [00:52:48.205] List of future strategies: 1568s [00:52:48.205] 1. sequential: 1568s [00:52:48.205] - args: function (..., envir = parent.frame()) 1568s [00:52:48.205] - tweaked: FALSE 1568s [00:52:48.205] - call: NULL 1568s [00:52:48.205] plan(): nbrOfWorkers() = 1 1568s [00:52:48.206] plan(): Setting new future strategy stack: 1568s [00:52:48.206] List of future strategies: 1568s [00:52:48.206] 1. sequential: 1568s [00:52:48.206] - args: function (..., envir = parent.frame()) 1568s [00:52:48.206] - tweaked: FALSE 1568s [00:52:48.206] - call: plan(strategy) 1568s [00:52:48.207] plan(): nbrOfWorkers() = 1 1568s [00:52:48.207] SequentialFuture started (and completed) 1568s [00:52:48.207] - Launch lazy future ... done 1568s [00:52:48.207] run() for ‘SequentialFuture’ ... done 1568s [00:52:48.207] Created future: 1568s [00:52:48.208] SequentialFuture: 1568s [00:52:48.208] Label: ‘future_sapply-1’ 1568s [00:52:48.208] Expression: 1568s [00:52:48.208] { 1568s [00:52:48.208] do.call(function(...) { 1568s [00:52:48.208] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1568s [00:52:48.208] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1568s [00:52:48.208] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1568s [00:52:48.208] on.exit(options(oopts), add = TRUE) 1568s [00:52:48.208] } 1568s [00:52:48.208] { 1568s [00:52:48.208] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1568s [00:52:48.208] ...future.X_jj <- ...future.elements_ii[[jj]] 1568s [00:52:48.208] ...future.FUN(...future.X_jj, ...) 1568s [00:52:48.208] }) 1568s [00:52:48.208] } 1568s [00:52:48.208] }, args = future.call.arguments) 1568s [00:52:48.208] } 1568s [00:52:48.208] Lazy evaluation: FALSE 1568s [00:52:48.208] Asynchronous evaluation: FALSE 1568s [00:52:48.208] Local evaluation: TRUE 1568s [00:52:48.208] Environment: R_GlobalEnv 1568s [00:52:48.208] Capture standard output: TRUE 1568s [00:52:48.208] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1568s [00:52:48.208] Globals: 5 objects totaling 4.78 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1568s [00:52:48.208] Packages: 1568s [00:52:48.208] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1568s [00:52:48.208] Resolved: TRUE 1568s [00:52:48.208] Value: 1.01 KiB of class ‘list’ 1568s [00:52:48.208] Early signaling: FALSE 1568s [00:52:48.208] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1568s [00:52:48.208] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1568s [00:52:48.209] Chunk #1 of 1 ... DONE 1568s [00:52:48.209] Launching 1 futures (chunks) ... DONE 1568s [00:52:48.209] Resolving 1 futures (chunks) ... 1568s [00:52:48.209] resolve() on list ... 1568s [00:52:48.209] recursive: 0 1568s [00:52:48.211] length: 1 1568s [00:52:48.211] 1568s [00:52:48.211] resolved() for ‘SequentialFuture’ ... 1568s [00:52:48.211] - state: ‘finished’ 1568s [00:52:48.211] - run: TRUE 1568s [00:52:48.211] - result: ‘FutureResult’ 1568s [00:52:48.212] resolved() for ‘SequentialFuture’ ... done 1568s [00:52:48.212] Future #1 1568s [00:52:48.212] signalConditionsASAP(SequentialFuture, pos=1) ... 1568s [00:52:48.212] - nx: 1 1568s [00:52:48.212] - relay: TRUE 1568s [00:52:48.212] - stdout: TRUE 1568s [00:52:48.213] - signal: TRUE 1568s [00:52:48.213] - resignal: FALSE 1568s [00:52:48.213] - force: TRUE 1568s [00:52:48.213] - relayed: [n=1] FALSE 1568s [00:52:48.213] - queued futures: [n=1] FALSE 1568s [00:52:48.213] - until=1 1568s [00:52:48.213] - relaying element #1 1568s [00:52:48.214] - relayed: [n=1] TRUE 1568s [00:52:48.214] - queued futures: [n=1] TRUE 1568s [00:52:48.214] signalConditionsASAP(SequentialFuture, pos=1) ... done 1568s [00:52:48.214] length: 0 (resolved future 1) 1568s [00:52:48.214] Relaying remaining futures 1568s [00:52:48.214] signalConditionsASAP(NULL, pos=0) ... 1568s [00:52:48.215] - nx: 1 1568s [00:52:48.215] - relay: TRUE 1568s [00:52:48.215] - stdout: TRUE 1568s [00:52:48.215] - signal: TRUE 1568s [00:52:48.215] - resignal: FALSE 1568s [00:52:48.215] - force: TRUE 1568s [00:52:48.215] - relayed: [n=1] TRUE 1568s [00:52:48.216] - queued futures: [n=1] TRUE 1568s - flush all 1568s [00:52:48.216] - relayed: [n=1] TRUE 1568s [00:52:48.216] - queued futures: [n=1] TRUE 1568s [00:52:48.216] signalConditionsASAP(NULL, pos=0) ... done 1568s [00:52:48.216] resolve() on list ... DONE 1568s [00:52:48.216] - Number of value chunks collected: 1 1568s [00:52:48.217] Resolving 1 futures (chunks) ... DONE 1568s [00:52:48.217] Reducing values from 1 chunks ... 1568s [00:52:48.217] - Number of values collected after concatenation: 3 1568s [00:52:48.217] - Number of values expected: 3 1568s [00:52:48.217] Reducing values from 1 chunks ... DONE 1568s [00:52:48.217] future_lapply() ... DONE 1568s [00:52:48.225] future_lapply() ... 1568s [00:52:48.227] Number of chunks: 1 1568s [00:52:48.227] getGlobalsAndPackagesXApply() ... 1568s [00:52:48.227] - future.globals: TRUE 1568s [00:52:48.228] getGlobalsAndPackages() ... 1568s [00:52:48.228] Searching for globals... 1568s [00:52:48.229] - globals found: [1] ‘FUN’ 1568s [00:52:48.229] Searching for globals ... DONE 1568s [00:52:48.229] Resolving globals: FALSE 1568s [00:52:48.230] The total size of the 1 globals is 848 bytes (848 bytes) 1568s [00:52:48.230] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1568s [00:52:48.231] - globals: [1] ‘FUN’ 1568s [00:52:48.231] 1568s [00:52:48.231] getGlobalsAndPackages() ... DONE 1568s [00:52:48.231] - globals found/used: [n=1] ‘FUN’ 1568s [00:52:48.231] - needed namespaces: [n=0] 1568s [00:52:48.232] Finding globals ... DONE 1568s [00:52:48.232] - use_args: TRUE 1568s [00:52:48.232] - Getting '...' globals ... 1568s [00:52:48.232] resolve() on list ... 1568s [00:52:48.233] recursive: 0 1568s [00:52:48.233] length: 1 1568s [00:52:48.233] elements: ‘...’ 1568s [00:52:48.233] length: 0 (resolved future 1) 1568s [00:52:48.233] resolve() on list ... DONE 1568s [00:52:48.233] - '...' content: [n=0] 1568s [00:52:48.233] List of 1 1568s [00:52:48.233] $ ...: list() 1568s [00:52:48.233] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1568s [00:52:48.233] - attr(*, "where")=List of 1 1568s [00:52:48.233] ..$ ...: 1568s [00:52:48.233] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1568s [00:52:48.233] - attr(*, "resolved")= logi TRUE 1568s [00:52:48.233] - attr(*, "total_size")= num NA 1568s [00:52:48.237] - Getting '...' globals ... DONE 1568s [00:52:48.237] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1568s [00:52:48.237] List of 2 1568s [00:52:48.237] $ ...future.FUN:function (x) 1568s [00:52:48.237] $ ... : list() 1568s [00:52:48.237] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1568s [00:52:48.237] - attr(*, "where")=List of 2 1568s [00:52:48.237] ..$ ...future.FUN: 1568s [00:52:48.237] ..$ ... : 1568s [00:52:48.237] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1568s [00:52:48.237] - attr(*, "resolved")= logi FALSE 1568s [00:52:48.237] - attr(*, "total_size")= num 848 1568s [00:52:48.241] Packages to be attached in all futures: [n=0] 1568s [00:52:48.241] getGlobalsAndPackagesXApply() ... DONE 1568s [00:52:48.241] Number of futures (= number of chunks): 1 1568s [00:52:48.241] Launching 1 futures (chunks) ... 1568s [00:52:48.241] Chunk #1 of 1 ... 1568s [00:52:48.242] - Finding globals in 'X' for chunk #1 ... 1568s [00:52:48.242] getGlobalsAndPackages() ... 1568s [00:52:48.242] Searching for globals... 1568s [00:52:48.242] 1568s [00:52:48.242] Searching for globals ... DONE 1568s [00:52:48.242] - globals: [0] 1568s [00:52:48.243] getGlobalsAndPackages() ... DONE 1568s [00:52:48.243] + additional globals found: [n=0] 1568s [00:52:48.243] + additional namespaces needed: [n=0] 1568s [00:52:48.243] - Finding globals in 'X' for chunk #1 ... DONE 1568s [00:52:48.243] - seeds: 1568s [00:52:48.243] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1568s [00:52:48.243] getGlobalsAndPackages() ... 1568s [00:52:48.243] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1568s [00:52:48.244] Resolving globals: FALSE 1568s [00:52:48.244] Tweak future expression to call with '...' arguments ... 1568s [00:52:48.244] { 1568s [00:52:48.244] do.call(function(...) { 1568s [00:52:48.244] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1568s [00:52:48.244] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1568s [00:52:48.244] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1568s [00:52:48.244] on.exit(options(oopts), add = TRUE) 1568s [00:52:48.244] } 1568s [00:52:48.244] { 1568s [00:52:48.244] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1568s [00:52:48.244] ...future.X_jj <- ...future.elements_ii[[jj]] 1568s [00:52:48.244] ...future.FUN(...future.X_jj, ...) 1568s [00:52:48.244] }) 1568s [00:52:48.244] } 1568s [00:52:48.244] }, args = future.call.arguments) 1568s [00:52:48.244] } 1568s [00:52:48.244] Tweak future expression to call with '...' arguments ... DONE 1568s [00:52:48.246] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1568s [00:52:48.246] 1568s [00:52:48.246] getGlobalsAndPackages() ... DONE 1568s [00:52:48.246] run() for ‘Future’ ... 1568s [00:52:48.246] - state: ‘created’ 1568s [00:52:48.247] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1568s [00:52:48.247] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1568s [00:52:48.247] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1568s [00:52:48.247] - Field: ‘label’ 1568s [00:52:48.247] - Field: ‘local’ 1568s [00:52:48.247] - Field: ‘owner’ 1568s [00:52:48.248] - Field: ‘envir’ 1568s [00:52:48.248] - Field: ‘packages’ 1568s [00:52:48.248] - Field: ‘gc’ 1568s [00:52:48.248] - Field: ‘conditions’ 1568s [00:52:48.248] - Field: ‘expr’ 1568s [00:52:48.248] - Field: ‘uuid’ 1568s [00:52:48.248] - Field: ‘seed’ 1568s [00:52:48.248] - Field: ‘version’ 1568s [00:52:48.248] - Field: ‘result’ 1568s [00:52:48.249] - Field: ‘asynchronous’ 1568s [00:52:48.249] - Field: ‘calls’ 1568s [00:52:48.249] - Field: ‘globals’ 1568s [00:52:48.249] - Field: ‘stdout’ 1568s [00:52:48.249] - Field: ‘earlySignal’ 1568s [00:52:48.249] - Field: ‘lazy’ 1568s [00:52:48.249] - Field: ‘state’ 1568s [00:52:48.249] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1568s [00:52:48.250] - Launch lazy future ... 1568s [00:52:48.250] Packages needed by the future expression (n = 0): 1568s [00:52:48.250] Packages needed by future strategies (n = 0): 1568s [00:52:48.251] { 1568s [00:52:48.251] { 1568s [00:52:48.251] { 1568s [00:52:48.251] ...future.startTime <- base::Sys.time() 1568s [00:52:48.251] { 1568s [00:52:48.251] { 1568s [00:52:48.251] { 1568s [00:52:48.251] base::local({ 1568s [00:52:48.251] has_future <- base::requireNamespace("future", 1568s [00:52:48.251] quietly = TRUE) 1568s [00:52:48.251] if (has_future) { 1568s [00:52:48.251] ns <- base::getNamespace("future") 1568s [00:52:48.251] version <- ns[[".package"]][["version"]] 1568s [00:52:48.251] if (is.null(version)) 1568s [00:52:48.251] version <- utils::packageVersion("future") 1568s [00:52:48.251] } 1568s [00:52:48.251] else { 1568s [00:52:48.251] version <- NULL 1568s [00:52:48.251] } 1568s [00:52:48.251] if (!has_future || version < "1.8.0") { 1568s [00:52:48.251] info <- base::c(r_version = base::gsub("R version ", 1568s [00:52:48.251] "", base::R.version$version.string), 1568s [00:52:48.251] platform = base::sprintf("%s (%s-bit)", 1568s [00:52:48.251] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1568s [00:52:48.251] os = base::paste(base::Sys.info()[base::c("sysname", 1568s [00:52:48.251] "release", "version")], collapse = " "), 1568s [00:52:48.251] hostname = base::Sys.info()[["nodename"]]) 1568s [00:52:48.251] info <- base::sprintf("%s: %s", base::names(info), 1568s [00:52:48.251] info) 1568s [00:52:48.251] info <- base::paste(info, collapse = "; ") 1568s [00:52:48.251] if (!has_future) { 1568s [00:52:48.251] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1568s [00:52:48.251] info) 1568s [00:52:48.251] } 1568s [00:52:48.251] else { 1568s [00:52:48.251] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1568s [00:52:48.251] info, version) 1568s [00:52:48.251] } 1568s [00:52:48.251] base::stop(msg) 1568s [00:52:48.251] } 1568s [00:52:48.251] }) 1568s [00:52:48.251] } 1568s [00:52:48.251] options(future.plan = NULL) 1568s [00:52:48.251] Sys.unsetenv("R_FUTURE_PLAN") 1568s [00:52:48.251] future::plan("default", .cleanup = FALSE, .init = FALSE) 1568s [00:52:48.251] } 1568s [00:52:48.251] ...future.workdir <- getwd() 1568s [00:52:48.251] } 1568s [00:52:48.251] ...future.oldOptions <- base::as.list(base::.Options) 1568s [00:52:48.251] ...future.oldEnvVars <- base::Sys.getenv() 1568s [00:52:48.251] } 1568s [00:52:48.251] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1568s [00:52:48.251] future.globals.maxSize = NULL, future.globals.method = NULL, 1568s [00:52:48.251] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1568s [00:52:48.251] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1568s [00:52:48.251] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1568s [00:52:48.251] future.stdout.windows.reencode = NULL, width = 80L) 1568s [00:52:48.251] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1568s [00:52:48.251] base::names(...future.oldOptions)) 1568s [00:52:48.251] } 1568s [00:52:48.251] if (FALSE) { 1568s [00:52:48.251] } 1568s [00:52:48.251] else { 1568s [00:52:48.251] if (TRUE) { 1568s [00:52:48.251] ...future.stdout <- base::rawConnection(base::raw(0L), 1568s [00:52:48.251] open = "w") 1568s [00:52:48.251] } 1568s [00:52:48.251] else { 1568s [00:52:48.251] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1568s [00:52:48.251] windows = "NUL", "/dev/null"), open = "w") 1568s [00:52:48.251] } 1568s [00:52:48.251] base::sink(...future.stdout, type = "output", split = FALSE) 1568s [00:52:48.251] base::on.exit(if (!base::is.null(...future.stdout)) { 1568s [00:52:48.251] base::sink(type = "output", split = FALSE) 1568s [00:52:48.251] base::close(...future.stdout) 1568s [00:52:48.251] }, add = TRUE) 1568s [00:52:48.251] } 1568s [00:52:48.251] ...future.frame <- base::sys.nframe() 1568s [00:52:48.251] ...future.conditions <- base::list() 1568s [00:52:48.251] ...future.rng <- base::globalenv()$.Random.seed 1568s [00:52:48.251] if (FALSE) { 1568s [00:52:48.251] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1568s [00:52:48.251] "...future.value", "...future.globalenv.names", ".Random.seed") 1568s [00:52:48.251] } 1568s [00:52:48.251] ...future.result <- base::tryCatch({ 1568s [00:52:48.251] base::withCallingHandlers({ 1568s [00:52:48.251] ...future.value <- base::withVisible(base::local({ 1568s [00:52:48.251] do.call(function(...) { 1568s [00:52:48.251] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1568s [00:52:48.251] if (!identical(...future.globals.maxSize.org, 1568s [00:52:48.251] ...future.globals.maxSize)) { 1568s [00:52:48.251] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1568s [00:52:48.251] on.exit(options(oopts), add = TRUE) 1568s [00:52:48.251] } 1568s [00:52:48.251] { 1568s [00:52:48.251] lapply(seq_along(...future.elements_ii), 1568s [00:52:48.251] FUN = function(jj) { 1568s [00:52:48.251] ...future.X_jj <- ...future.elements_ii[[jj]] 1568s [00:52:48.251] ...future.FUN(...future.X_jj, ...) 1568s [00:52:48.251] }) 1568s [00:52:48.251] } 1568s [00:52:48.251] }, args = future.call.arguments) 1568s [00:52:48.251] })) 1568s [00:52:48.251] future::FutureResult(value = ...future.value$value, 1568s [00:52:48.251] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1568s [00:52:48.251] ...future.rng), globalenv = if (FALSE) 1568s [00:52:48.251] list(added = base::setdiff(base::names(base::.GlobalEnv), 1568s [00:52:48.251] ...future.globalenv.names)) 1568s [00:52:48.251] else NULL, started = ...future.startTime, version = "1.8") 1568s [00:52:48.251] }, condition = base::local({ 1568s [00:52:48.251] c <- base::c 1568s [00:52:48.251] inherits <- base::inherits 1568s [00:52:48.251] invokeRestart <- base::invokeRestart 1568s [00:52:48.251] length <- base::length 1568s [00:52:48.251] list <- base::list 1568s [00:52:48.251] seq.int <- base::seq.int 1568s [00:52:48.251] signalCondition <- base::signalCondition 1568s [00:52:48.251] sys.calls <- base::sys.calls 1568s [00:52:48.251] `[[` <- base::`[[` 1568s [00:52:48.251] `+` <- base::`+` 1568s [00:52:48.251] `<<-` <- base::`<<-` 1568s [00:52:48.251] sysCalls <- function(calls = sys.calls(), from = 1L) { 1568s [00:52:48.251] calls[seq.int(from = from + 12L, to = length(calls) - 1568s [00:52:48.251] 3L)] 1568s [00:52:48.251] } 1568s [00:52:48.251] function(cond) { 1568s [00:52:48.251] is_error <- inherits(cond, "error") 1568s [00:52:48.251] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1568s [00:52:48.251] NULL) 1568s [00:52:48.251] if (is_error) { 1568s [00:52:48.251] sessionInformation <- function() { 1568s [00:52:48.251] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1568s [00:52:48.251] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1568s [00:52:48.251] search = base::search(), system = base::Sys.info()) 1568s [00:52:48.251] } 1568s [00:52:48.251] ...future.conditions[[length(...future.conditions) + 1568s [00:52:48.251] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1568s [00:52:48.251] cond$call), session = sessionInformation(), 1568s [00:52:48.251] timestamp = base::Sys.time(), signaled = 0L) 1568s [00:52:48.251] signalCondition(cond) 1568s [00:52:48.251] } 1568s [00:52:48.251] else if (!ignore && TRUE && inherits(cond, c("condition", 1568s [00:52:48.251] "immediateCondition"))) { 1568s [00:52:48.251] signal <- TRUE && inherits(cond, "immediateCondition") 1568s [00:52:48.251] ...future.conditions[[length(...future.conditions) + 1568s [00:52:48.251] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1568s [00:52:48.251] if (TRUE && !signal) { 1568s [00:52:48.251] muffleCondition <- function (cond, pattern = "^muffle") 1568s [00:52:48.251] { 1568s [00:52:48.251] inherits <- base::inherits 1568s [00:52:48.251] invokeRestart <- base::invokeRestart 1568s [00:52:48.251] is.null <- base::is.null 1568s [00:52:48.251] muffled <- FALSE 1568s [00:52:48.251] if (inherits(cond, "message")) { 1568s [00:52:48.251] muffled <- grepl(pattern, "muffleMessage") 1568s [00:52:48.251] if (muffled) 1568s [00:52:48.251] invokeRestart("muffleMessage") 1568s [00:52:48.251] } 1568s [00:52:48.251] else if (inherits(cond, "warning")) { 1568s [00:52:48.251] muffled <- grepl(pattern, "muffleWarning") 1568s [00:52:48.251] if (muffled) 1568s [00:52:48.251] invokeRestart("muffleWarning") 1568s [00:52:48.251] } 1568s [00:52:48.251] else if (inherits(cond, "condition")) { 1568s [00:52:48.251] if (!is.null(pattern)) { 1568s [00:52:48.251] computeRestarts <- base::computeRestarts 1568s [00:52:48.251] grepl <- base::grepl 1568s [00:52:48.251] restarts <- computeRestarts(cond) 1568s [00:52:48.251] for (restart in restarts) { 1568s [00:52:48.251] name <- restart$name 1568s [00:52:48.251] if (is.null(name)) 1568s [00:52:48.251] next 1568s [00:52:48.251] if (!grepl(pattern, name)) 1568s [00:52:48.251] next 1568s [00:52:48.251] invokeRestart(restart) 1568s [00:52:48.251] muffled <- TRUE 1568s [00:52:48.251] break 1568s [00:52:48.251] } 1568s [00:52:48.251] } 1568s [00:52:48.251] } 1568s [00:52:48.251] invisible(muffled) 1568s [00:52:48.251] } 1568s [00:52:48.251] muffleCondition(cond, pattern = "^muffle") 1568s [00:52:48.251] } 1568s [00:52:48.251] } 1568s [00:52:48.251] else { 1568s [00:52:48.251] if (TRUE) { 1568s [00:52:48.251] muffleCondition <- function (cond, pattern = "^muffle") 1568s [00:52:48.251] { 1568s [00:52:48.251] inherits <- base::inherits 1568s [00:52:48.251] invokeRestart <- base::invokeRestart 1568s [00:52:48.251] is.null <- base::is.null 1568s [00:52:48.251] muffled <- FALSE 1568s [00:52:48.251] if (inherits(cond, "message")) { 1568s [00:52:48.251] muffled <- grepl(pattern, "muffleMessage") 1568s [00:52:48.251] if (muffled) 1568s [00:52:48.251] invokeRestart("muffleMessage") 1568s [00:52:48.251] } 1568s [00:52:48.251] else if (inherits(cond, "warning")) { 1568s [00:52:48.251] muffled <- grepl(pattern, "muffleWarning") 1568s [00:52:48.251] if (muffled) 1568s [00:52:48.251] invokeRestart("muffleWarning") 1568s [00:52:48.251] } 1568s [00:52:48.251] else if (inherits(cond, "condition")) { 1568s [00:52:48.251] if (!is.null(pattern)) { 1568s [00:52:48.251] computeRestarts <- base::computeRestarts 1568s [00:52:48.251] grepl <- base::grepl 1568s [00:52:48.251] restarts <- computeRestarts(cond) 1568s [00:52:48.251] for (restart in restarts) { 1568s [00:52:48.251] name <- restart$name 1568s [00:52:48.251] if (is.null(name)) 1568s [00:52:48.251] next 1568s [00:52:48.251] if (!grepl(pattern, name)) 1568s [00:52:48.251] next 1568s [00:52:48.251] invokeRestart(restart) 1568s [00:52:48.251] muffled <- TRUE 1568s [00:52:48.251] break 1568s [00:52:48.251] } 1568s [00:52:48.251] } 1568s [00:52:48.251] } 1568s [00:52:48.251] invisible(muffled) 1568s [00:52:48.251] } 1568s [00:52:48.251] muffleCondition(cond, pattern = "^muffle") 1568s [00:52:48.251] } 1568s [00:52:48.251] } 1568s [00:52:48.251] } 1568s [00:52:48.251] })) 1568s [00:52:48.251] }, error = function(ex) { 1568s [00:52:48.251] base::structure(base::list(value = NULL, visible = NULL, 1568s [00:52:48.251] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1568s [00:52:48.251] ...future.rng), started = ...future.startTime, 1568s [00:52:48.251] finished = Sys.time(), session_uuid = NA_character_, 1568s [00:52:48.251] version = "1.8"), class = "FutureResult") 1568s [00:52:48.251] }, finally = { 1568s [00:52:48.251] if (!identical(...future.workdir, getwd())) 1568s [00:52:48.251] setwd(...future.workdir) 1568s [00:52:48.251] { 1568s [00:52:48.251] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1568s [00:52:48.251] ...future.oldOptions$nwarnings <- NULL 1568s [00:52:48.251] } 1568s [00:52:48.251] base::options(...future.oldOptions) 1568s [00:52:48.251] if (.Platform$OS.type == "windows") { 1568s [00:52:48.251] old_names <- names(...future.oldEnvVars) 1568s [00:52:48.251] envs <- base::Sys.getenv() 1568s [00:52:48.251] names <- names(envs) 1568s [00:52:48.251] common <- intersect(names, old_names) 1568s [00:52:48.251] added <- setdiff(names, old_names) 1568s [00:52:48.251] removed <- setdiff(old_names, names) 1568s [00:52:48.251] changed <- common[...future.oldEnvVars[common] != 1568s [00:52:48.251] envs[common]] 1568s [00:52:48.251] NAMES <- toupper(changed) 1568s [00:52:48.251] args <- list() 1568s [00:52:48.251] for (kk in seq_along(NAMES)) { 1568s [00:52:48.251] name <- changed[[kk]] 1568s [00:52:48.251] NAME <- NAMES[[kk]] 1568s [00:52:48.251] if (name != NAME && is.element(NAME, old_names)) 1568s [00:52:48.251] next 1568s [00:52:48.251] args[[name]] <- ...future.oldEnvVars[[name]] 1568s [00:52:48.251] } 1568s [00:52:48.251] NAMES <- toupper(added) 1568s [00:52:48.251] for (kk in seq_along(NAMES)) { 1568s [00:52:48.251] name <- added[[kk]] 1568s [00:52:48.251] NAME <- NAMES[[kk]] 1568s [00:52:48.251] if (name != NAME && is.element(NAME, old_names)) 1568s [00:52:48.251] next 1568s [00:52:48.251] args[[name]] <- "" 1568s [00:52:48.251] } 1568s [00:52:48.251] NAMES <- toupper(removed) 1568s [00:52:48.251] for (kk in seq_along(NAMES)) { 1568s [00:52:48.251] name <- removed[[kk]] 1568s [00:52:48.251] NAME <- NAMES[[kk]] 1568s [00:52:48.251] if (name != NAME && is.element(NAME, old_names)) 1568s [00:52:48.251] next 1568s [00:52:48.251] args[[name]] <- ...future.oldEnvVars[[name]] 1568s [00:52:48.251] } 1568s [00:52:48.251] if (length(args) > 0) 1568s [00:52:48.251] base::do.call(base::Sys.setenv, args = args) 1568s [00:52:48.251] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1568s [00:52:48.251] } 1568s [00:52:48.251] else { 1568s [00:52:48.251] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1568s [00:52:48.251] } 1568s [00:52:48.251] { 1568s [00:52:48.251] if (base::length(...future.futureOptionsAdded) > 1568s [00:52:48.251] 0L) { 1568s [00:52:48.251] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1568s [00:52:48.251] base::names(opts) <- ...future.futureOptionsAdded 1568s [00:52:48.251] base::options(opts) 1568s [00:52:48.251] } 1568s [00:52:48.251] { 1568s [00:52:48.251] { 1568s [00:52:48.251] NULL 1568s [00:52:48.251] RNGkind("Mersenne-Twister") 1568s [00:52:48.251] base::rm(list = ".Random.seed", envir = base::globalenv(), 1568s [00:52:48.251] inherits = FALSE) 1568s [00:52:48.251] } 1568s [00:52:48.251] options(future.plan = NULL) 1568s [00:52:48.251] if (is.na(NA_character_)) 1568s [00:52:48.251] Sys.unsetenv("R_FUTURE_PLAN") 1568s [00:52:48.251] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1568s [00:52:48.251] future::plan(list(function (..., envir = parent.frame()) 1568s [00:52:48.251] { 1568s [00:52:48.251] future <- SequentialFuture(..., envir = envir) 1568s [00:52:48.251] if (!future$lazy) 1568s [00:52:48.251] future <- run(future) 1568s [00:52:48.251] invisible(future) 1568s [00:52:48.251] }), .cleanup = FALSE, .init = FALSE) 1568s [00:52:48.251] } 1568s [00:52:48.251] } 1568s [00:52:48.251] } 1568s [00:52:48.251] }) 1568s [00:52:48.251] if (TRUE) { 1568s [00:52:48.251] base::sink(type = "output", split = FALSE) 1568s [00:52:48.251] if (TRUE) { 1568s [00:52:48.251] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1568s [00:52:48.251] } 1568s [00:52:48.251] else { 1568s [00:52:48.251] ...future.result["stdout"] <- base::list(NULL) 1568s [00:52:48.251] } 1568s [00:52:48.251] base::close(...future.stdout) 1568s [00:52:48.251] ...future.stdout <- NULL 1568s [00:52:48.251] } 1568s [00:52:48.251] ...future.result$conditions <- ...future.conditions 1568s [00:52:48.251] ...future.result$finished <- base::Sys.time() 1568s [00:52:48.251] ...future.result 1568s [00:52:48.251] } 1568s [00:52:48.253] assign_globals() ... 1568s [00:52:48.253] List of 5 1568s [00:52:48.253] $ ...future.FUN :function (x) 1568s [00:52:48.253] $ future.call.arguments : list() 1568s [00:52:48.253] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1568s [00:52:48.253] $ ...future.elements_ii :List of 3 1568s [00:52:48.253] ..$ a: num 1 1568s [00:52:48.253] ..$ b: num 2 1568s [00:52:48.253] ..$ c: num 3 1568s [00:52:48.253] $ ...future.seeds_ii : NULL 1568s [00:52:48.253] $ ...future.globals.maxSize: NULL 1568s [00:52:48.253] - attr(*, "where")=List of 5 1568s [00:52:48.253] ..$ ...future.FUN : 1568s [00:52:48.253] ..$ future.call.arguments : 1568s [00:52:48.253] ..$ ...future.elements_ii : 1568s [00:52:48.253] ..$ ...future.seeds_ii : 1568s [00:52:48.253] ..$ ...future.globals.maxSize: 1568s [00:52:48.253] - attr(*, "resolved")= logi FALSE 1568s [00:52:48.253] - attr(*, "total_size")= num 848 1568s [00:52:48.253] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1568s [00:52:48.253] - attr(*, "already-done")= logi TRUE 1568s [00:52:48.259] - copied ‘...future.FUN’ to environment 1568s [00:52:48.260] - copied ‘future.call.arguments’ to environment 1568s [00:52:48.260] - copied ‘...future.elements_ii’ to environment 1568s [00:52:48.260] - copied ‘...future.seeds_ii’ to environment 1568s [00:52:48.260] - copied ‘...future.globals.maxSize’ to environment 1568s [00:52:48.260] assign_globals() ... done 1568s [00:52:48.261] plan(): Setting new future strategy stack: 1568s [00:52:48.261] List of future strategies: 1568s [00:52:48.261] 1. sequential: 1568s [00:52:48.261] - args: function (..., envir = parent.frame()) 1568s [00:52:48.261] - tweaked: FALSE 1568s [00:52:48.261] - call: NULL 1568s [00:52:48.261] plan(): nbrOfWorkers() = 1 1568s [00:52:48.262] plan(): Setting new future strategy stack: 1568s [00:52:48.262] List of future strategies: 1568s [00:52:48.262] 1. sequential: 1568s [00:52:48.262] - args: function (..., envir = parent.frame()) 1568s [00:52:48.262] - tweaked: FALSE 1568s [00:52:48.262] - call: plan(strategy) 1568s [00:52:48.263] plan(): nbrOfWorkers() = 1 1568s [00:52:48.263] SequentialFuture started (and completed) 1568s [00:52:48.263] - Launch lazy future ... done 1568s [00:52:48.263] run() for ‘SequentialFuture’ ... done 1568s [00:52:48.263] Created future: 1568s [00:52:48.263] SequentialFuture: 1568s [00:52:48.263] Label: ‘future_sapply-1’ 1568s [00:52:48.263] Expression: 1568s [00:52:48.263] { 1568s [00:52:48.263] do.call(function(...) { 1568s [00:52:48.263] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1568s [00:52:48.263] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1568s [00:52:48.263] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1568s [00:52:48.263] on.exit(options(oopts), add = TRUE) 1568s [00:52:48.263] } 1568s [00:52:48.263] { 1568s [00:52:48.263] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1568s [00:52:48.263] ...future.X_jj <- ...future.elements_ii[[jj]] 1568s [00:52:48.263] ...future.FUN(...future.X_jj, ...) 1568s [00:52:48.263] }) 1568s [00:52:48.263] } 1568s [00:52:48.263] }, args = future.call.arguments) 1568s [00:52:48.263] } 1568s [00:52:48.263] Lazy evaluation: FALSE 1568s [00:52:48.263] Asynchronous evaluation: FALSE 1568s [00:52:48.263] Local evaluation: TRUE 1568s [00:52:48.263] Environment: R_GlobalEnv 1568s [00:52:48.263] Capture standard output: TRUE 1568s [00:52:48.263] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1568s [00:52:48.263] Globals: 5 objects totaling 0.99 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1568s [00:52:48.263] Packages: 1568s [00:52:48.263] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1568s [00:52:48.263] Resolved: TRUE 1568s [00:52:48.263] Value: 168 bytes of class ‘list’ 1568s [00:52:48.263] Early signaling: FALSE 1568s [00:52:48.263] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1568s [00:52:48.263] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1568s [00:52:48.265] Chunk #1 of 1 ... DONE 1568s [00:52:48.265] Launching 1 futures (chunks) ... DONE 1568s [00:52:48.265] Resolving 1 futures (chunks) ... 1568s [00:52:48.265] resolve() on list ... 1568s [00:52:48.266] recursive: 0 1568s [00:52:48.266] length: 1 1568s [00:52:48.266] 1568s [00:52:48.266] resolved() for ‘SequentialFuture’ ... 1568s [00:52:48.266] - state: ‘finished’ 1568s [00:52:48.266] - run: TRUE 1568s [00:52:48.266] - result: ‘FutureResult’ 1568s [00:52:48.267] resolved() for ‘SequentialFuture’ ... done 1568s [00:52:48.267] Future #1 1568s [00:52:48.267] signalConditionsASAP(SequentialFuture, pos=1) ... 1568s [00:52:48.267] - nx: 1 1568s [00:52:48.267] - relay: TRUE 1568s [00:52:48.267] - stdout: TRUE 1568s [00:52:48.267] - signal: TRUE 1568s [00:52:48.268] - resignal: FALSE 1568s [00:52:48.268] - force: TRUE 1568s [00:52:48.268] - relayed: [n=1] FALSE 1568s [00:52:48.268] - queued futures: [n=1] FALSE 1568s [00:52:48.268] - until=1 1568s [00:52:48.268] - relaying element #1 1568s [00:52:48.269] - relayed: [n=1] TRUE 1568s [00:52:48.269] - queued futures: [n=1] TRUE 1568s [00:52:48.269] signalConditionsASAP(SequentialFuture, pos=1) ... done 1568s [00:52:48.269] length: 0 (resolved future 1) 1568s [00:52:48.269] Relaying remaining futures 1568s [00:52:48.269] signalConditionsASAP(NULL, pos=0) ... 1568s [00:52:48.269] - nx: 1 1568s [00:52:48.270] - relay: TRUE 1568s [00:52:48.270] - stdout: TRUE 1568s [00:52:48.270] - signal: TRUE 1568s [00:52:48.270] - resignal: FALSE 1568s [00:52:48.270] - force: TRUE 1568s [00:52:48.270] - relayed: [n=1] TRUE 1568s [00:52:48.270] - queued futures: [n=1] TRUE 1568s - flush all 1568s [00:52:48.271] - relayed: [n=1] TRUE 1568s [00:52:48.271] - queued futures: [n=1] TRUE 1568s [00:52:48.271] signalConditionsASAP(NULL, pos=0) ... done 1568s [00:52:48.271] resolve() on list ... DONE 1568s [00:52:48.271] - Number of value chunks collected: 1 1568s [00:52:48.271] Resolving 1 futures (chunks) ... DONE 1568s [00:52:48.272] Reducing values from 1 chunks ... 1568s [00:52:48.272] - Number of values collected after concatenation: 3 1568s [00:52:48.272] - Number of values expected: 3 1568s [00:52:48.272] Reducing values from 1 chunks ... DONE 1568s [00:52:48.272] future_lapply() ... DONE 1568s [00:52:48.275] future_lapply() ... 1568s [00:52:48.275] Number of chunks: 1 1568s [00:52:48.276] getGlobalsAndPackagesXApply() ... 1568s [00:52:48.276] - future.globals: TRUE 1568s [00:52:48.276] getGlobalsAndPackages() ... 1568s [00:52:48.276] Searching for globals... 1568s [00:52:48.278] - globals found: [2] ‘FUN’, ‘UseMethod’ 1568s [00:52:48.278] Searching for globals ... DONE 1568s [00:52:48.278] Resolving globals: FALSE 1568s [00:52:48.279] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1568s [00:52:48.279] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1568s [00:52:48.279] - globals: [1] ‘FUN’ 1568s [00:52:48.280] 1568s [00:52:48.280] getGlobalsAndPackages() ... DONE 1568s [00:52:48.280] - globals found/used: [n=1] ‘FUN’ 1568s [00:52:48.280] - needed namespaces: [n=0] 1568s [00:52:48.280] Finding globals ... DONE 1568s [00:52:48.282] - use_args: TRUE 1568s [00:52:48.282] - Getting '...' globals ... 1568s [00:52:48.283] resolve() on list ... 1568s [00:52:48.283] recursive: 0 1568s [00:52:48.283] length: 1 1568s [00:52:48.283] elements: ‘...’ 1568s [00:52:48.283] length: 0 (resolved future 1) 1568s [00:52:48.284] resolve() on list ... DONE 1568s [00:52:48.284] - '...' content: [n=0] 1568s [00:52:48.284] List of 1 1568s [00:52:48.284] $ ...: list() 1568s [00:52:48.284] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1568s [00:52:48.284] - attr(*, "where")=List of 1 1568s [00:52:48.284] ..$ ...: 1568s [00:52:48.284] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1568s [00:52:48.284] - attr(*, "resolved")= logi TRUE 1568s [00:52:48.284] - attr(*, "total_size")= num NA 1568s [00:52:48.292] - Getting '...' globals ... DONE 1568s [00:52:48.293] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1568s [00:52:48.293] List of 2 1568s [00:52:48.293] $ ...future.FUN:function (x, ...) 1568s [00:52:48.293] $ ... : list() 1568s [00:52:48.293] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1568s [00:52:48.293] - attr(*, "where")=List of 2 1568s [00:52:48.293] ..$ ...future.FUN: 1568s [00:52:48.293] ..$ ... : 1568s [00:52:48.293] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1568s [00:52:48.293] - attr(*, "resolved")= logi FALSE 1568s [00:52:48.293] - attr(*, "total_size")= num 1248 1568s [00:52:48.298] Packages to be attached in all futures: [n=0] 1568s [00:52:48.298] getGlobalsAndPackagesXApply() ... DONE 1568s [00:52:48.299] Number of futures (= number of chunks): 1 1568s [00:52:48.299] Launching 1 futures (chunks) ... 1568s [00:52:48.299] Chunk #1 of 1 ... 1568s [00:52:48.299] - Finding globals in 'X' for chunk #1 ... 1568s [00:52:48.299] getGlobalsAndPackages() ... 1568s [00:52:48.299] Searching for globals... 1568s [00:52:48.300] 1568s [00:52:48.300] Searching for globals ... DONE 1568s [00:52:48.300] - globals: [0] 1568s [00:52:48.300] getGlobalsAndPackages() ... DONE 1568s [00:52:48.300] + additional globals found: [n=0] 1568s [00:52:48.301] + additional namespaces needed: [n=0] 1568s [00:52:48.301] - Finding globals in 'X' for chunk #1 ... DONE 1568s [00:52:48.301] - seeds: 1568s [00:52:48.301] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1568s [00:52:48.301] getGlobalsAndPackages() ... 1568s [00:52:48.301] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1568s [00:52:48.302] Resolving globals: FALSE 1568s [00:52:48.302] Tweak future expression to call with '...' arguments ... 1568s [00:52:48.302] { 1568s [00:52:48.302] do.call(function(...) { 1568s [00:52:48.302] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1568s [00:52:48.302] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1568s [00:52:48.302] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1568s [00:52:48.302] on.exit(options(oopts), add = TRUE) 1568s [00:52:48.302] } 1568s [00:52:48.302] { 1568s [00:52:48.302] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1568s [00:52:48.302] ...future.X_jj <- ...future.elements_ii[[jj]] 1568s [00:52:48.302] ...future.FUN(...future.X_jj, ...) 1568s [00:52:48.302] }) 1568s [00:52:48.302] } 1568s [00:52:48.302] }, args = future.call.arguments) 1568s [00:52:48.302] } 1568s [00:52:48.303] Tweak future expression to call with '...' arguments ... DONE 1568s [00:52:48.303] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1568s [00:52:48.303] 1568s [00:52:48.304] getGlobalsAndPackages() ... DONE 1568s [00:52:48.304] run() for ‘Future’ ... 1568s [00:52:48.304] - state: ‘created’ 1568s [00:52:48.304] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1568s [00:52:48.305] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1568s [00:52:48.305] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1568s [00:52:48.305] - Field: ‘label’ 1568s [00:52:48.305] - Field: ‘local’ 1568s [00:52:48.305] - Field: ‘owner’ 1568s [00:52:48.306] - Field: ‘envir’ 1568s [00:52:48.306] - Field: ‘packages’ 1568s [00:52:48.306] - Field: ‘gc’ 1568s [00:52:48.306] - Field: ‘conditions’ 1568s [00:52:48.306] - Field: ‘expr’ 1568s [00:52:48.306] - Field: ‘uuid’ 1568s [00:52:48.307] - Field: ‘seed’ 1568s [00:52:48.307] - Field: ‘version’ 1568s [00:52:48.307] - Field: ‘result’ 1568s [00:52:48.307] - Field: ‘asynchronous’ 1568s [00:52:48.307] - Field: ‘calls’ 1568s [00:52:48.307] - Field: ‘globals’ 1568s [00:52:48.307] - Field: ‘stdout’ 1568s [00:52:48.308] - Field: ‘earlySignal’ 1568s [00:52:48.308] - Field: ‘lazy’ 1568s [00:52:48.308] - Field: ‘state’ 1568s [00:52:48.308] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1568s [00:52:48.308] - Launch lazy future ... 1568s [00:52:48.308] Packages needed by the future expression (n = 0): 1568s [00:52:48.309] Packages needed by future strategies (n = 0): 1568s [00:52:48.309] { 1568s [00:52:48.309] { 1568s [00:52:48.309] { 1568s [00:52:48.309] ...future.startTime <- base::Sys.time() 1568s [00:52:48.309] { 1568s [00:52:48.309] { 1568s [00:52:48.309] { 1568s [00:52:48.309] base::local({ 1568s [00:52:48.309] has_future <- base::requireNamespace("future", 1568s [00:52:48.309] quietly = TRUE) 1568s [00:52:48.309] if (has_future) { 1568s [00:52:48.309] ns <- base::getNamespace("future") 1568s [00:52:48.309] version <- ns[[".package"]][["version"]] 1568s [00:52:48.309] if (is.null(version)) 1568s [00:52:48.309] version <- utils::packageVersion("future") 1568s [00:52:48.309] } 1568s [00:52:48.309] else { 1568s [00:52:48.309] version <- NULL 1568s [00:52:48.309] } 1568s [00:52:48.309] if (!has_future || version < "1.8.0") { 1568s [00:52:48.309] info <- base::c(r_version = base::gsub("R version ", 1568s [00:52:48.309] "", base::R.version$version.string), 1568s [00:52:48.309] platform = base::sprintf("%s (%s-bit)", 1568s [00:52:48.309] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1568s [00:52:48.309] os = base::paste(base::Sys.info()[base::c("sysname", 1568s [00:52:48.309] "release", "version")], collapse = " "), 1568s [00:52:48.309] hostname = base::Sys.info()[["nodename"]]) 1568s [00:52:48.309] info <- base::sprintf("%s: %s", base::names(info), 1568s [00:52:48.309] info) 1568s [00:52:48.309] info <- base::paste(info, collapse = "; ") 1568s [00:52:48.309] if (!has_future) { 1568s [00:52:48.309] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1568s [00:52:48.309] info) 1568s [00:52:48.309] } 1568s [00:52:48.309] else { 1568s [00:52:48.309] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1568s [00:52:48.309] info, version) 1568s [00:52:48.309] } 1568s [00:52:48.309] base::stop(msg) 1568s [00:52:48.309] } 1568s [00:52:48.309] }) 1568s [00:52:48.309] } 1568s [00:52:48.309] options(future.plan = NULL) 1568s [00:52:48.309] Sys.unsetenv("R_FUTURE_PLAN") 1568s [00:52:48.309] future::plan("default", .cleanup = FALSE, .init = FALSE) 1568s [00:52:48.309] } 1568s [00:52:48.309] ...future.workdir <- getwd() 1568s [00:52:48.309] } 1568s [00:52:48.309] ...future.oldOptions <- base::as.list(base::.Options) 1568s [00:52:48.309] ...future.oldEnvVars <- base::Sys.getenv() 1568s [00:52:48.309] } 1568s [00:52:48.309] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1568s [00:52:48.309] future.globals.maxSize = NULL, future.globals.method = NULL, 1568s [00:52:48.309] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1568s [00:52:48.309] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1568s [00:52:48.309] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1568s [00:52:48.309] future.stdout.windows.reencode = NULL, width = 80L) 1568s [00:52:48.309] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1568s [00:52:48.309] base::names(...future.oldOptions)) 1568s [00:52:48.309] } 1568s [00:52:48.309] if (FALSE) { 1568s [00:52:48.309] } 1568s [00:52:48.309] else { 1568s [00:52:48.309] if (TRUE) { 1568s [00:52:48.309] ...future.stdout <- base::rawConnection(base::raw(0L), 1568s [00:52:48.309] open = "w") 1568s [00:52:48.309] } 1568s [00:52:48.309] else { 1568s [00:52:48.309] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1568s [00:52:48.309] windows = "NUL", "/dev/null"), open = "w") 1568s [00:52:48.309] } 1568s [00:52:48.309] base::sink(...future.stdout, type = "output", split = FALSE) 1568s [00:52:48.309] base::on.exit(if (!base::is.null(...future.stdout)) { 1568s [00:52:48.309] base::sink(type = "output", split = FALSE) 1568s [00:52:48.309] base::close(...future.stdout) 1568s [00:52:48.309] }, add = TRUE) 1568s [00:52:48.309] } 1568s [00:52:48.309] ...future.frame <- base::sys.nframe() 1568s [00:52:48.309] ...future.conditions <- base::list() 1568s [00:52:48.309] ...future.rng <- base::globalenv()$.Random.seed 1568s [00:52:48.309] if (FALSE) { 1568s [00:52:48.309] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1568s [00:52:48.309] "...future.value", "...future.globalenv.names", ".Random.seed") 1568s [00:52:48.309] } 1568s [00:52:48.309] ...future.result <- base::tryCatch({ 1568s [00:52:48.309] base::withCallingHandlers({ 1568s [00:52:48.309] ...future.value <- base::withVisible(base::local({ 1568s [00:52:48.309] do.call(function(...) { 1568s [00:52:48.309] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1568s [00:52:48.309] if (!identical(...future.globals.maxSize.org, 1568s [00:52:48.309] ...future.globals.maxSize)) { 1568s [00:52:48.309] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1568s [00:52:48.309] on.exit(options(oopts), add = TRUE) 1568s [00:52:48.309] } 1568s [00:52:48.309] { 1568s [00:52:48.309] lapply(seq_along(...future.elements_ii), 1568s [00:52:48.309] FUN = function(jj) { 1568s [00:52:48.309] ...future.X_jj <- ...future.elements_ii[[jj]] 1568s [00:52:48.309] ...future.FUN(...future.X_jj, ...) 1568s [00:52:48.309] }) 1568s [00:52:48.309] } 1568s [00:52:48.309] }, args = future.call.arguments) 1568s [00:52:48.309] })) 1568s [00:52:48.309] future::FutureResult(value = ...future.value$value, 1568s [00:52:48.309] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1568s [00:52:48.309] ...future.rng), globalenv = if (FALSE) 1568s [00:52:48.309] list(added = base::setdiff(base::names(base::.GlobalEnv), 1568s [00:52:48.309] ...future.globalenv.names)) 1568s [00:52:48.309] else NULL, started = ...future.startTime, version = "1.8") 1568s [00:52:48.309] }, condition = base::local({ 1568s [00:52:48.309] c <- base::c 1568s [00:52:48.309] inherits <- base::inherits 1568s [00:52:48.309] invokeRestart <- base::invokeRestart 1568s [00:52:48.309] length <- base::length 1568s [00:52:48.309] list <- base::list 1568s [00:52:48.309] seq.int <- base::seq.int 1568s [00:52:48.309] signalCondition <- base::signalCondition 1568s [00:52:48.309] sys.calls <- base::sys.calls 1568s [00:52:48.309] `[[` <- base::`[[` 1568s [00:52:48.309] `+` <- base::`+` 1568s [00:52:48.309] `<<-` <- base::`<<-` 1568s [00:52:48.309] sysCalls <- function(calls = sys.calls(), from = 1L) { 1568s [00:52:48.309] calls[seq.int(from = from + 12L, to = length(calls) - 1568s [00:52:48.309] 3L)] 1568s [00:52:48.309] } 1568s [00:52:48.309] function(cond) { 1568s [00:52:48.309] is_error <- inherits(cond, "error") 1568s [00:52:48.309] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1568s [00:52:48.309] NULL) 1568s [00:52:48.309] if (is_error) { 1568s [00:52:48.309] sessionInformation <- function() { 1568s [00:52:48.309] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1568s [00:52:48.309] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1568s [00:52:48.309] search = base::search(), system = base::Sys.info()) 1568s [00:52:48.309] } 1568s [00:52:48.309] ...future.conditions[[length(...future.conditions) + 1568s [00:52:48.309] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1568s [00:52:48.309] cond$call), session = sessionInformation(), 1568s [00:52:48.309] timestamp = base::Sys.time(), signaled = 0L) 1568s [00:52:48.309] signalCondition(cond) 1568s [00:52:48.309] } 1568s [00:52:48.309] else if (!ignore && TRUE && inherits(cond, c("condition", 1568s [00:52:48.309] "immediateCondition"))) { 1568s [00:52:48.309] signal <- TRUE && inherits(cond, "immediateCondition") 1568s [00:52:48.309] ...future.conditions[[length(...future.conditions) + 1568s [00:52:48.309] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1568s [00:52:48.309] if (TRUE && !signal) { 1568s [00:52:48.309] muffleCondition <- function (cond, pattern = "^muffle") 1568s [00:52:48.309] { 1568s [00:52:48.309] inherits <- base::inherits 1568s [00:52:48.309] invokeRestart <- base::invokeRestart 1568s [00:52:48.309] is.null <- base::is.null 1568s [00:52:48.309] muffled <- FALSE 1568s [00:52:48.309] if (inherits(cond, "message")) { 1568s [00:52:48.309] muffled <- grepl(pattern, "muffleMessage") 1568s [00:52:48.309] if (muffled) 1568s [00:52:48.309] invokeRestart("muffleMessage") 1568s [00:52:48.309] } 1568s [00:52:48.309] else if (inherits(cond, "warning")) { 1568s [00:52:48.309] muffled <- grepl(pattern, "muffleWarning") 1568s [00:52:48.309] if (muffled) 1568s [00:52:48.309] invokeRestart("muffleWarning") 1568s [00:52:48.309] } 1568s [00:52:48.309] else if (inherits(cond, "condition")) { 1568s [00:52:48.309] if (!is.null(pattern)) { 1568s [00:52:48.309] computeRestarts <- base::computeRestarts 1568s [00:52:48.309] grepl <- base::grepl 1568s [00:52:48.309] restarts <- computeRestarts(cond) 1568s [00:52:48.309] for (restart in restarts) { 1568s [00:52:48.309] name <- restart$name 1568s [00:52:48.309] if (is.null(name)) 1568s [00:52:48.309] next 1568s [00:52:48.309] if (!grepl(pattern, name)) 1568s [00:52:48.309] next 1568s [00:52:48.309] invokeRestart(restart) 1568s [00:52:48.309] muffled <- TRUE 1568s [00:52:48.309] break 1568s [00:52:48.309] } 1568s [00:52:48.309] } 1568s [00:52:48.309] } 1568s [00:52:48.309] invisible(muffled) 1568s [00:52:48.309] } 1568s [00:52:48.309] muffleCondition(cond, pattern = "^muffle") 1568s [00:52:48.309] } 1568s [00:52:48.309] } 1568s [00:52:48.309] else { 1568s [00:52:48.309] if (TRUE) { 1568s [00:52:48.309] muffleCondition <- function (cond, pattern = "^muffle") 1568s [00:52:48.309] { 1568s [00:52:48.309] inherits <- base::inherits 1568s [00:52:48.309] invokeRestart <- base::invokeRestart 1568s [00:52:48.309] is.null <- base::is.null 1568s [00:52:48.309] muffled <- FALSE 1568s [00:52:48.309] if (inherits(cond, "message")) { 1568s [00:52:48.309] muffled <- grepl(pattern, "muffleMessage") 1568s [00:52:48.309] if (muffled) 1568s [00:52:48.309] invokeRestart("muffleMessage") 1568s [00:52:48.309] } 1568s [00:52:48.309] else if (inherits(cond, "warning")) { 1568s [00:52:48.309] muffled <- grepl(pattern, "muffleWarning") 1568s [00:52:48.309] if (muffled) 1568s [00:52:48.309] invokeRestart("muffleWarning") 1568s [00:52:48.309] } 1568s [00:52:48.309] else if (inherits(cond, "condition")) { 1568s [00:52:48.309] if (!is.null(pattern)) { 1568s [00:52:48.309] computeRestarts <- base::computeRestarts 1568s [00:52:48.309] grepl <- base::grepl 1568s [00:52:48.309] restarts <- computeRestarts(cond) 1568s [00:52:48.309] for (restart in restarts) { 1568s [00:52:48.309] name <- restart$name 1568s [00:52:48.309] if (is.null(name)) 1568s [00:52:48.309] next 1568s [00:52:48.309] if (!grepl(pattern, name)) 1568s [00:52:48.309] next 1568s [00:52:48.309] invokeRestart(restart) 1568s [00:52:48.309] muffled <- TRUE 1568s [00:52:48.309] break 1568s [00:52:48.309] } 1568s [00:52:48.309] } 1568s [00:52:48.309] } 1568s [00:52:48.309] invisible(muffled) 1568s [00:52:48.309] } 1568s [00:52:48.309] muffleCondition(cond, pattern = "^muffle") 1568s [00:52:48.309] } 1568s [00:52:48.309] } 1568s [00:52:48.309] } 1568s [00:52:48.309] })) 1568s [00:52:48.309] }, error = function(ex) { 1568s [00:52:48.309] base::structure(base::list(value = NULL, visible = NULL, 1568s [00:52:48.309] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1568s [00:52:48.309] ...future.rng), started = ...future.startTime, 1568s [00:52:48.309] finished = Sys.time(), session_uuid = NA_character_, 1568s [00:52:48.309] version = "1.8"), class = "FutureResult") 1568s [00:52:48.309] }, finally = { 1568s [00:52:48.309] if (!identical(...future.workdir, getwd())) 1568s [00:52:48.309] setwd(...future.workdir) 1568s [00:52:48.309] { 1568s [00:52:48.309] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1568s [00:52:48.309] ...future.oldOptions$nwarnings <- NULL 1568s [00:52:48.309] } 1568s [00:52:48.309] base::options(...future.oldOptions) 1568s [00:52:48.309] if (.Platform$OS.type == "windows") { 1568s [00:52:48.309] old_names <- names(...future.oldEnvVars) 1568s [00:52:48.309] envs <- base::Sys.getenv() 1568s [00:52:48.309] names <- names(envs) 1568s [00:52:48.309] common <- intersect(names, old_names) 1568s [00:52:48.309] added <- setdiff(names, old_names) 1568s [00:52:48.309] removed <- setdiff(old_names, names) 1568s [00:52:48.309] changed <- common[...future.oldEnvVars[common] != 1568s [00:52:48.309] envs[common]] 1568s [00:52:48.309] NAMES <- toupper(changed) 1568s [00:52:48.309] args <- list() 1568s [00:52:48.309] for (kk in seq_along(NAMES)) { 1568s [00:52:48.309] name <- changed[[kk]] 1568s [00:52:48.309] NAME <- NAMES[[kk]] 1568s [00:52:48.309] if (name != NAME && is.element(NAME, old_names)) 1568s [00:52:48.309] next 1568s [00:52:48.309] args[[name]] <- ...future.oldEnvVars[[name]] 1568s [00:52:48.309] } 1568s [00:52:48.309] NAMES <- toupper(added) 1568s [00:52:48.309] for (kk in seq_along(NAMES)) { 1568s [00:52:48.309] name <- added[[kk]] 1568s [00:52:48.309] NAME <- NAMES[[kk]] 1568s [00:52:48.309] if (name != NAME && is.element(NAME, old_names)) 1568s [00:52:48.309] next 1568s [00:52:48.309] args[[name]] <- "" 1568s [00:52:48.309] } 1568s [00:52:48.309] NAMES <- toupper(removed) 1568s [00:52:48.309] for (kk in seq_along(NAMES)) { 1568s [00:52:48.309] name <- removed[[kk]] 1568s [00:52:48.309] NAME <- NAMES[[kk]] 1568s [00:52:48.309] if (name != NAME && is.element(NAME, old_names)) 1568s [00:52:48.309] next 1568s [00:52:48.309] args[[name]] <- ...future.oldEnvVars[[name]] 1568s [00:52:48.309] } 1568s [00:52:48.309] if (length(args) > 0) 1568s [00:52:48.309] base::do.call(base::Sys.setenv, args = args) 1568s [00:52:48.309] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1568s [00:52:48.309] } 1568s [00:52:48.309] else { 1568s [00:52:48.309] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1568s [00:52:48.309] } 1568s [00:52:48.309] { 1568s [00:52:48.309] if (base::length(...future.futureOptionsAdded) > 1568s [00:52:48.309] 0L) { 1568s [00:52:48.309] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1568s [00:52:48.309] base::names(opts) <- ...future.futureOptionsAdded 1568s [00:52:48.309] base::options(opts) 1568s [00:52:48.309] } 1568s [00:52:48.309] { 1568s [00:52:48.309] { 1568s [00:52:48.309] NULL 1568s [00:52:48.309] RNGkind("Mersenne-Twister") 1568s [00:52:48.309] base::rm(list = ".Random.seed", envir = base::globalenv(), 1568s [00:52:48.309] inherits = FALSE) 1568s [00:52:48.309] } 1568s [00:52:48.309] options(future.plan = NULL) 1568s [00:52:48.309] if (is.na(NA_character_)) 1568s [00:52:48.309] Sys.unsetenv("R_FUTURE_PLAN") 1568s [00:52:48.309] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1568s [00:52:48.309] future::plan(list(function (..., envir = parent.frame()) 1568s [00:52:48.309] { 1568s [00:52:48.309] future <- SequentialFuture(..., envir = envir) 1568s [00:52:48.309] if (!future$lazy) 1568s [00:52:48.309] future <- run(future) 1568s [00:52:48.309] invisible(future) 1568s [00:52:48.309] }), .cleanup = FALSE, .init = FALSE) 1568s [00:52:48.309] } 1568s [00:52:48.309] } 1568s [00:52:48.309] } 1568s [00:52:48.309] }) 1568s [00:52:48.309] if (TRUE) { 1568s [00:52:48.309] base::sink(type = "output", split = FALSE) 1568s [00:52:48.309] if (TRUE) { 1568s [00:52:48.309] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1568s [00:52:48.309] } 1568s [00:52:48.309] else { 1568s [00:52:48.309] ...future.result["stdout"] <- base::list(NULL) 1568s [00:52:48.309] } 1568s [00:52:48.309] base::close(...future.stdout) 1568s [00:52:48.309] ...future.stdout <- NULL 1568s [00:52:48.309] } 1568s [00:52:48.309] ...future.result$conditions <- ...future.conditions 1568s [00:52:48.309] ...future.result$finished <- base::Sys.time() 1568s [00:52:48.309] ...future.result 1568s [00:52:48.309] } 1568s [00:52:48.313] assign_globals() ... 1568s [00:52:48.313] List of 5 1568s [00:52:48.313] $ ...future.FUN :function (x, ...) 1568s [00:52:48.313] $ future.call.arguments : list() 1568s [00:52:48.313] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1568s [00:52:48.313] $ ...future.elements_ii :List of 3 1568s [00:52:48.313] ..$ a: num 1 1568s [00:52:48.313] ..$ b: num 2 1568s [00:52:48.313] ..$ c: num 3 1568s [00:52:48.313] $ ...future.seeds_ii : NULL 1568s [00:52:48.313] $ ...future.globals.maxSize: NULL 1568s [00:52:48.313] - attr(*, "where")=List of 5 1568s [00:52:48.313] ..$ ...future.FUN : 1568s [00:52:48.313] ..$ future.call.arguments : 1568s [00:52:48.313] ..$ ...future.elements_ii : 1568s [00:52:48.313] ..$ ...future.seeds_ii : 1568s [00:52:48.313] ..$ ...future.globals.maxSize: 1568s [00:52:48.313] - attr(*, "resolved")= logi FALSE 1568s [00:52:48.313] - attr(*, "total_size")= num 1248 1568s [00:52:48.313] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1568s [00:52:48.313] - attr(*, "already-done")= logi TRUE 1568s [00:52:48.319] - copied ‘...future.FUN’ to environment 1568s [00:52:48.319] - copied ‘future.call.arguments’ to environment 1568s [00:52:48.319] - copied ‘...future.elements_ii’ to environment 1568s [00:52:48.319] - copied ‘...future.seeds_ii’ to environment 1568s [00:52:48.320] - copied ‘...future.globals.maxSize’ to environment 1568s [00:52:48.320] assign_globals() ... done 1568s [00:52:48.320] plan(): Setting new future strategy stack: 1568s [00:52:48.320] List of future strategies: 1568s [00:52:48.320] 1. sequential: 1568s [00:52:48.320] - args: function (..., envir = parent.frame()) 1568s [00:52:48.320] - tweaked: FALSE 1568s [00:52:48.320] - call: NULL 1568s [00:52:48.321] plan(): nbrOfWorkers() = 1 1568s [00:52:48.322] plan(): Setting new future strategy stack: 1568s [00:52:48.322] List of future strategies: 1568s [00:52:48.322] 1. sequential: 1568s [00:52:48.322] - args: function (..., envir = parent.frame()) 1568s [00:52:48.322] - tweaked: FALSE 1568s [00:52:48.322] - call: plan(strategy) 1568s [00:52:48.322] plan(): nbrOfWorkers() = 1 1568s [00:52:48.323] SequentialFuture started (and completed) 1568s [00:52:48.323] - Launch lazy future ... done 1568s [00:52:48.323] run() for ‘SequentialFuture’ ... done 1568s [00:52:48.323] Created future: 1568s [00:52:48.323] SequentialFuture: 1568s [00:52:48.323] Label: ‘future_sapply-1’ 1568s [00:52:48.323] Expression: 1568s [00:52:48.323] { 1568s [00:52:48.323] do.call(function(...) { 1568s [00:52:48.323] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1568s [00:52:48.323] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1568s [00:52:48.323] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1568s [00:52:48.323] on.exit(options(oopts), add = TRUE) 1568s [00:52:48.323] } 1568s [00:52:48.323] { 1568s [00:52:48.323] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1568s [00:52:48.323] ...future.X_jj <- ...future.elements_ii[[jj]] 1568s [00:52:48.323] ...future.FUN(...future.X_jj, ...) 1568s [00:52:48.323] }) 1568s [00:52:48.323] } 1568s [00:52:48.323] }, args = future.call.arguments) 1568s [00:52:48.323] } 1568s [00:52:48.323] Lazy evaluation: FALSE 1568s [00:52:48.323] Asynchronous evaluation: FALSE 1568s [00:52:48.323] Local evaluation: TRUE 1568s [00:52:48.323] Environment: R_GlobalEnv 1568s [00:52:48.323] Capture standard output: TRUE 1568s [00:52:48.323] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1568s [00:52:48.323] Globals: 5 objects totaling 1.38 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1568s [00:52:48.323] Packages: 1568s [00:52:48.323] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1568s [00:52:48.323] Resolved: TRUE 1568s [00:52:48.323] Value: 672 bytes of class ‘list’ 1568s [00:52:48.323] Early signaling: FALSE 1568s [00:52:48.323] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1568s [00:52:48.323] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1568s [00:52:48.326] Chunk #1 of 1 ... DONE 1568s [00:52:48.326] Launching 1 futures (chunks) ... DONE 1568s [00:52:48.326] Resolving 1 futures (chunks) ... 1568s [00:52:48.326] resolve() on list ... 1568s [00:52:48.326] recursive: 0 1568s [00:52:48.327] length: 1 1568s [00:52:48.327] 1568s [00:52:48.327] resolved() for ‘SequentialFuture’ ... 1568s [00:52:48.327] - state: ‘finished’ 1568s [00:52:48.327] - run: TRUE 1568s [00:52:48.327] - result: ‘FutureResult’ 1568s [00:52:48.327] resolved() for ‘SequentialFuture’ ... done 1568s [00:52:48.328] Future #1 1568s [00:52:48.328] signalConditionsASAP(SequentialFuture, pos=1) ... 1568s [00:52:48.328] - nx: 1 1568s [00:52:48.328] - relay: TRUE 1568s [00:52:48.328] - stdout: TRUE 1568s [00:52:48.328] - signal: TRUE 1568s [00:52:48.328] - resignal: FALSE 1568s [00:52:48.328] - force: TRUE 1568s [00:52:48.329] - relayed: [n=1] FALSE 1568s [00:52:48.329] - queued futures: [n=1] FALSE 1568s [00:52:48.329] - until=1 1568s [00:52:48.329] - relaying element #1 1568s [00:52:48.329] - relayed: [n=1] TRUE 1568s [00:52:48.329] - queued futures: [n=1] TRUE 1568s [00:52:48.329] signalConditionsASAP(SequentialFuture, pos=1) ... done 1568s [00:52:48.330] length: 0 (resolved future 1) 1568s [00:52:48.330] Relaying remaining futures 1568s [00:52:48.330] signalConditionsASAP(NULL, pos=0) ... 1568s [00:52:48.330] - nx: 1 1568s [00:52:48.330] - relay: TRUE 1568s [00:52:48.331] - stdout: TRUE 1568s [00:52:48.331] - signal: TRUE 1568s [00:52:48.331] - resignal: FALSE 1568s [00:52:48.331] - force: TRUE 1568s [00:52:48.331] - relayed: [n=1] TRUE 1568s [00:52:48.331] - queued futures: [n=1] TRUE 1568s - flush all 1568s [00:52:48.331] - relayed: [n=1] TRUE 1568s [00:52:48.332] - queued futures: [n=1] TRUE 1568s [00:52:48.332] signalConditionsASAP(NULL, pos=0) ... done 1568s [00:52:48.332] resolve() on list ... DONE 1568s [00:52:48.332] - Number of value chunks collected: 1 1568s [00:52:48.332] Resolving 1 futures (chunks) ... DONE 1568s [00:52:48.333] Reducing values from 1 chunks ... 1568s [00:52:48.333] - Number of values collected after concatenation: 3 1568s [00:52:48.333] - Number of values expected: 3 1568s [00:52:48.333] Reducing values from 1 chunks ... DONE 1568s [00:52:48.333] future_lapply() ... DONE 1568s [00:52:48.336] future_lapply() ... 1568s [00:52:48.337] Number of chunks: 1 1568s [00:52:48.337] getGlobalsAndPackagesXApply() ... 1568s [00:52:48.337] - future.globals: TRUE 1568s [00:52:48.337] getGlobalsAndPackages() ... 1568s [00:52:48.337] Searching for globals... 1568s [00:52:48.339] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1568s [00:52:48.339] Searching for globals ... DONE 1568s [00:52:48.339] Resolving globals: FALSE 1568s [00:52:48.340] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1568s [00:52:48.340] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1568s [00:52:48.340] - globals: [1] ‘FUN’ 1568s [00:52:48.340] 1568s [00:52:48.341] getGlobalsAndPackages() ... DONE 1568s [00:52:48.341] - globals found/used: [n=1] ‘FUN’ 1568s [00:52:48.341] - needed namespaces: [n=0] 1568s [00:52:48.341] Finding globals ... DONE 1568s [00:52:48.341] - use_args: TRUE 1568s [00:52:48.341] - Getting '...' globals ... 1568s [00:52:48.342] resolve() on list ... 1568s [00:52:48.342] recursive: 0 1568s [00:52:48.342] length: 1 1568s [00:52:48.342] elements: ‘...’ 1568s [00:52:48.342] length: 0 (resolved future 1) 1568s [00:52:48.342] resolve() on list ... DONE 1568s [00:52:48.342] - '...' content: [n=0] 1568s [00:52:48.343] List of 1 1568s [00:52:48.343] $ ...: list() 1568s [00:52:48.343] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1568s [00:52:48.343] - attr(*, "where")=List of 1 1568s [00:52:48.343] ..$ ...: 1568s [00:52:48.343] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1568s [00:52:48.343] - attr(*, "resolved")= logi TRUE 1568s [00:52:48.343] - attr(*, "total_size")= num NA 1568s [00:52:48.346] - Getting '...' globals ... DONE 1568s [00:52:48.346] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1568s [00:52:48.346] List of 2 1568s [00:52:48.346] $ ...future.FUN:function (x, y = 2 * 1:5) 1568s [00:52:48.346] $ ... : list() 1568s [00:52:48.346] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1568s [00:52:48.346] - attr(*, "where")=List of 2 1568s [00:52:48.346] ..$ ...future.FUN: 1568s [00:52:48.346] ..$ ... : 1568s [00:52:48.346] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1568s [00:52:48.346] - attr(*, "resolved")= logi FALSE 1568s [00:52:48.346] - attr(*, "total_size")= num 4728 1568s [00:52:48.350] Packages to be attached in all futures: [n=0] 1568s [00:52:48.350] getGlobalsAndPackagesXApply() ... DONE 1568s [00:52:48.350] Number of futures (= number of chunks): 1 1568s [00:52:48.350] Launching 1 futures (chunks) ... 1568s [00:52:48.350] Chunk #1 of 1 ... 1568s [00:52:48.351] - Finding globals in 'X' for chunk #1 ... 1568s [00:52:48.351] getGlobalsAndPackages() ... 1568s [00:52:48.351] Searching for globals... 1568s [00:52:48.351] 1568s [00:52:48.351] Searching for globals ... DONE 1568s [00:52:48.351] - globals: [0] 1568s [00:52:48.352] getGlobalsAndPackages() ... DONE 1568s [00:52:48.352] + additional globals found: [n=0] 1568s [00:52:48.352] + additional namespaces needed: [n=0] 1568s [00:52:48.352] - Finding globals in 'X' for chunk #1 ... DONE 1568s [00:52:48.352] - seeds: 1568s [00:52:48.352] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1568s [00:52:48.352] getGlobalsAndPackages() ... 1568s [00:52:48.353] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1568s [00:52:48.353] Resolving globals: FALSE 1568s [00:52:48.353] Tweak future expression to call with '...' arguments ... 1568s [00:52:48.353] { 1568s [00:52:48.353] do.call(function(...) { 1568s [00:52:48.353] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1568s [00:52:48.353] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1568s [00:52:48.353] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1568s [00:52:48.353] on.exit(options(oopts), add = TRUE) 1568s [00:52:48.353] } 1568s [00:52:48.353] { 1568s [00:52:48.353] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1568s [00:52:48.353] ...future.X_jj <- ...future.elements_ii[[jj]] 1568s [00:52:48.353] ...future.FUN(...future.X_jj, ...) 1568s [00:52:48.353] }) 1568s [00:52:48.353] } 1568s [00:52:48.353] }, args = future.call.arguments) 1568s [00:52:48.353] } 1568s [00:52:48.354] Tweak future expression to call with '...' arguments ... DONE 1568s [00:52:48.354] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1568s [00:52:48.354] 1568s [00:52:48.355] getGlobalsAndPackages() ... DONE 1568s [00:52:48.355] run() for ‘Future’ ... 1568s [00:52:48.355] - state: ‘created’ 1568s [00:52:48.355] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1568s [00:52:48.356] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1568s [00:52:48.356] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1568s [00:52:48.356] - Field: ‘label’ 1568s [00:52:48.356] - Field: ‘local’ 1568s [00:52:48.356] - Field: ‘owner’ 1568s [00:52:48.356] - Field: ‘envir’ 1568s [00:52:48.356] - Field: ‘packages’ 1568s [00:52:48.356] - Field: ‘gc’ 1568s [00:52:48.357] - Field: ‘conditions’ 1568s [00:52:48.357] - Field: ‘expr’ 1568s [00:52:48.357] - Field: ‘uuid’ 1568s [00:52:48.357] - Field: ‘seed’ 1568s [00:52:48.357] - Field: ‘version’ 1568s [00:52:48.357] - Field: ‘result’ 1568s [00:52:48.357] - Field: ‘asynchronous’ 1568s [00:52:48.357] - Field: ‘calls’ 1568s [00:52:48.359] - Field: ‘globals’ 1568s [00:52:48.359] - Field: ‘stdout’ 1568s [00:52:48.359] - Field: ‘earlySignal’ 1568s [00:52:48.359] - Field: ‘lazy’ 1568s [00:52:48.359] - Field: ‘state’ 1568s [00:52:48.359] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1568s [00:52:48.359] - Launch lazy future ... 1568s [00:52:48.360] Packages needed by the future expression (n = 0): 1568s [00:52:48.360] Packages needed by future strategies (n = 0): 1568s [00:52:48.360] { 1568s [00:52:48.360] { 1568s [00:52:48.360] { 1568s [00:52:48.360] ...future.startTime <- base::Sys.time() 1568s [00:52:48.360] { 1568s [00:52:48.360] { 1568s [00:52:48.360] { 1568s [00:52:48.360] base::local({ 1568s [00:52:48.360] has_future <- base::requireNamespace("future", 1568s [00:52:48.360] quietly = TRUE) 1568s [00:52:48.360] if (has_future) { 1568s [00:52:48.360] ns <- base::getNamespace("future") 1568s [00:52:48.360] version <- ns[[".package"]][["version"]] 1568s [00:52:48.360] if (is.null(version)) 1568s [00:52:48.360] version <- utils::packageVersion("future") 1568s [00:52:48.360] } 1568s [00:52:48.360] else { 1568s [00:52:48.360] version <- NULL 1568s [00:52:48.360] } 1568s [00:52:48.360] if (!has_future || version < "1.8.0") { 1568s [00:52:48.360] info <- base::c(r_version = base::gsub("R version ", 1568s [00:52:48.360] "", base::R.version$version.string), 1568s [00:52:48.360] platform = base::sprintf("%s (%s-bit)", 1568s [00:52:48.360] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1568s [00:52:48.360] os = base::paste(base::Sys.info()[base::c("sysname", 1568s [00:52:48.360] "release", "version")], collapse = " "), 1568s [00:52:48.360] hostname = base::Sys.info()[["nodename"]]) 1568s [00:52:48.360] info <- base::sprintf("%s: %s", base::names(info), 1568s [00:52:48.360] info) 1568s [00:52:48.360] info <- base::paste(info, collapse = "; ") 1568s [00:52:48.360] if (!has_future) { 1568s [00:52:48.360] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1568s [00:52:48.360] info) 1568s [00:52:48.360] } 1568s [00:52:48.360] else { 1568s [00:52:48.360] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1568s [00:52:48.360] info, version) 1568s [00:52:48.360] } 1568s [00:52:48.360] base::stop(msg) 1568s [00:52:48.360] } 1568s [00:52:48.360] }) 1568s [00:52:48.360] } 1568s [00:52:48.360] options(future.plan = NULL) 1568s [00:52:48.360] Sys.unsetenv("R_FUTURE_PLAN") 1568s [00:52:48.360] future::plan("default", .cleanup = FALSE, .init = FALSE) 1568s [00:52:48.360] } 1568s [00:52:48.360] ...future.workdir <- getwd() 1568s [00:52:48.360] } 1568s [00:52:48.360] ...future.oldOptions <- base::as.list(base::.Options) 1568s [00:52:48.360] ...future.oldEnvVars <- base::Sys.getenv() 1568s [00:52:48.360] } 1568s [00:52:48.360] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1568s [00:52:48.360] future.globals.maxSize = NULL, future.globals.method = NULL, 1568s [00:52:48.360] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1568s [00:52:48.360] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1568s [00:52:48.360] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1568s [00:52:48.360] future.stdout.windows.reencode = NULL, width = 80L) 1568s [00:52:48.360] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1568s [00:52:48.360] base::names(...future.oldOptions)) 1568s [00:52:48.360] } 1568s [00:52:48.360] if (FALSE) { 1568s [00:52:48.360] } 1568s [00:52:48.360] else { 1568s [00:52:48.360] if (TRUE) { 1568s [00:52:48.360] ...future.stdout <- base::rawConnection(base::raw(0L), 1568s [00:52:48.360] open = "w") 1568s [00:52:48.360] } 1568s [00:52:48.360] else { 1568s [00:52:48.360] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1568s [00:52:48.360] windows = "NUL", "/dev/null"), open = "w") 1568s [00:52:48.360] } 1568s [00:52:48.360] base::sink(...future.stdout, type = "output", split = FALSE) 1568s [00:52:48.360] base::on.exit(if (!base::is.null(...future.stdout)) { 1568s [00:52:48.360] base::sink(type = "output", split = FALSE) 1568s [00:52:48.360] base::close(...future.stdout) 1568s [00:52:48.360] }, add = TRUE) 1568s [00:52:48.360] } 1568s [00:52:48.360] ...future.frame <- base::sys.nframe() 1568s [00:52:48.360] ...future.conditions <- base::list() 1568s [00:52:48.360] ...future.rng <- base::globalenv()$.Random.seed 1568s [00:52:48.360] if (FALSE) { 1568s [00:52:48.360] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1568s [00:52:48.360] "...future.value", "...future.globalenv.names", ".Random.seed") 1568s [00:52:48.360] } 1568s [00:52:48.360] ...future.result <- base::tryCatch({ 1568s [00:52:48.360] base::withCallingHandlers({ 1568s [00:52:48.360] ...future.value <- base::withVisible(base::local({ 1568s [00:52:48.360] do.call(function(...) { 1568s [00:52:48.360] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1568s [00:52:48.360] if (!identical(...future.globals.maxSize.org, 1568s [00:52:48.360] ...future.globals.maxSize)) { 1568s [00:52:48.360] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1568s [00:52:48.360] on.exit(options(oopts), add = TRUE) 1568s [00:52:48.360] } 1568s [00:52:48.360] { 1568s [00:52:48.360] lapply(seq_along(...future.elements_ii), 1568s [00:52:48.360] FUN = function(jj) { 1568s [00:52:48.360] ...future.X_jj <- ...future.elements_ii[[jj]] 1568s [00:52:48.360] ...future.FUN(...future.X_jj, ...) 1568s [00:52:48.360] }) 1568s [00:52:48.360] } 1568s [00:52:48.360] }, args = future.call.arguments) 1568s [00:52:48.360] })) 1568s [00:52:48.360] future::FutureResult(value = ...future.value$value, 1568s [00:52:48.360] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1568s [00:52:48.360] ...future.rng), globalenv = if (FALSE) 1568s [00:52:48.360] list(added = base::setdiff(base::names(base::.GlobalEnv), 1568s [00:52:48.360] ...future.globalenv.names)) 1568s [00:52:48.360] else NULL, started = ...future.startTime, version = "1.8") 1568s [00:52:48.360] }, condition = base::local({ 1568s [00:52:48.360] c <- base::c 1568s [00:52:48.360] inherits <- base::inherits 1568s [00:52:48.360] invokeRestart <- base::invokeRestart 1568s [00:52:48.360] length <- base::length 1568s [00:52:48.360] list <- base::list 1568s [00:52:48.360] seq.int <- base::seq.int 1568s [00:52:48.360] signalCondition <- base::signalCondition 1568s [00:52:48.360] sys.calls <- base::sys.calls 1568s [00:52:48.360] `[[` <- base::`[[` 1568s [00:52:48.360] `+` <- base::`+` 1568s [00:52:48.360] `<<-` <- base::`<<-` 1568s [00:52:48.360] sysCalls <- function(calls = sys.calls(), from = 1L) { 1568s [00:52:48.360] calls[seq.int(from = from + 12L, to = length(calls) - 1568s [00:52:48.360] 3L)] 1568s [00:52:48.360] } 1568s [00:52:48.360] function(cond) { 1568s [00:52:48.360] is_error <- inherits(cond, "error") 1568s [00:52:48.360] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1568s [00:52:48.360] NULL) 1568s [00:52:48.360] if (is_error) { 1568s [00:52:48.360] sessionInformation <- function() { 1568s [00:52:48.360] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1568s [00:52:48.360] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1568s [00:52:48.360] search = base::search(), system = base::Sys.info()) 1568s [00:52:48.360] } 1568s [00:52:48.360] ...future.conditions[[length(...future.conditions) + 1568s [00:52:48.360] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1568s [00:52:48.360] cond$call), session = sessionInformation(), 1568s [00:52:48.360] timestamp = base::Sys.time(), signaled = 0L) 1568s [00:52:48.360] signalCondition(cond) 1568s [00:52:48.360] } 1568s [00:52:48.360] else if (!ignore && TRUE && inherits(cond, c("condition", 1568s [00:52:48.360] "immediateCondition"))) { 1568s [00:52:48.360] signal <- TRUE && inherits(cond, "immediateCondition") 1568s [00:52:48.360] ...future.conditions[[length(...future.conditions) + 1568s [00:52:48.360] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1568s [00:52:48.360] if (TRUE && !signal) { 1568s [00:52:48.360] muffleCondition <- function (cond, pattern = "^muffle") 1568s [00:52:48.360] { 1568s [00:52:48.360] inherits <- base::inherits 1568s [00:52:48.360] invokeRestart <- base::invokeRestart 1568s [00:52:48.360] is.null <- base::is.null 1568s [00:52:48.360] muffled <- FALSE 1568s [00:52:48.360] if (inherits(cond, "message")) { 1568s [00:52:48.360] muffled <- grepl(pattern, "muffleMessage") 1568s [00:52:48.360] if (muffled) 1568s [00:52:48.360] invokeRestart("muffleMessage") 1568s [00:52:48.360] } 1568s [00:52:48.360] else if (inherits(cond, "warning")) { 1568s [00:52:48.360] muffled <- grepl(pattern, "muffleWarning") 1568s [00:52:48.360] if (muffled) 1568s [00:52:48.360] invokeRestart("muffleWarning") 1568s [00:52:48.360] } 1568s [00:52:48.360] else if (inherits(cond, "condition")) { 1568s [00:52:48.360] if (!is.null(pattern)) { 1568s [00:52:48.360] computeRestarts <- base::computeRestarts 1568s [00:52:48.360] grepl <- base::grepl 1568s [00:52:48.360] restarts <- computeRestarts(cond) 1568s [00:52:48.360] for (restart in restarts) { 1568s [00:52:48.360] name <- restart$name 1568s [00:52:48.360] if (is.null(name)) 1568s [00:52:48.360] next 1568s [00:52:48.360] if (!grepl(pattern, name)) 1568s [00:52:48.360] next 1568s [00:52:48.360] invokeRestart(restart) 1568s [00:52:48.360] muffled <- TRUE 1568s [00:52:48.360] break 1568s [00:52:48.360] } 1568s [00:52:48.360] } 1568s [00:52:48.360] } 1568s [00:52:48.360] invisible(muffled) 1568s [00:52:48.360] } 1568s [00:52:48.360] muffleCondition(cond, pattern = "^muffle") 1568s [00:52:48.360] } 1568s [00:52:48.360] } 1568s [00:52:48.360] else { 1568s [00:52:48.360] if (TRUE) { 1568s [00:52:48.360] muffleCondition <- function (cond, pattern = "^muffle") 1568s [00:52:48.360] { 1568s [00:52:48.360] inherits <- base::inherits 1568s [00:52:48.360] invokeRestart <- base::invokeRestart 1568s [00:52:48.360] is.null <- base::is.null 1568s [00:52:48.360] muffled <- FALSE 1568s [00:52:48.360] if (inherits(cond, "message")) { 1568s [00:52:48.360] muffled <- grepl(pattern, "muffleMessage") 1568s [00:52:48.360] if (muffled) 1568s [00:52:48.360] invokeRestart("muffleMessage") 1568s [00:52:48.360] } 1568s [00:52:48.360] else if (inherits(cond, "warning")) { 1568s [00:52:48.360] muffled <- grepl(pattern, "muffleWarning") 1568s [00:52:48.360] if (muffled) 1568s [00:52:48.360] invokeRestart("muffleWarning") 1568s [00:52:48.360] } 1568s [00:52:48.360] else if (inherits(cond, "condition")) { 1568s [00:52:48.360] if (!is.null(pattern)) { 1568s [00:52:48.360] computeRestarts <- base::computeRestarts 1568s [00:52:48.360] grepl <- base::grepl 1568s [00:52:48.360] restarts <- computeRestarts(cond) 1568s [00:52:48.360] for (restart in restarts) { 1568s [00:52:48.360] name <- restart$name 1568s [00:52:48.360] if (is.null(name)) 1568s [00:52:48.360] next 1568s [00:52:48.360] if (!grepl(pattern, name)) 1568s [00:52:48.360] next 1568s [00:52:48.360] invokeRestart(restart) 1568s [00:52:48.360] muffled <- TRUE 1568s [00:52:48.360] break 1568s [00:52:48.360] } 1568s [00:52:48.360] } 1568s [00:52:48.360] } 1568s [00:52:48.360] invisible(muffled) 1568s [00:52:48.360] } 1568s [00:52:48.360] muffleCondition(cond, pattern = "^muffle") 1568s [00:52:48.360] } 1568s [00:52:48.360] } 1568s [00:52:48.360] } 1568s [00:52:48.360] })) 1568s [00:52:48.360] }, error = function(ex) { 1568s [00:52:48.360] base::structure(base::list(value = NULL, visible = NULL, 1568s [00:52:48.360] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1568s [00:52:48.360] ...future.rng), started = ...future.startTime, 1568s [00:52:48.360] finished = Sys.time(), session_uuid = NA_character_, 1568s [00:52:48.360] version = "1.8"), class = "FutureResult") 1568s [00:52:48.360] }, finally = { 1568s [00:52:48.360] if (!identical(...future.workdir, getwd())) 1568s [00:52:48.360] setwd(...future.workdir) 1568s [00:52:48.360] { 1568s [00:52:48.360] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1568s [00:52:48.360] ...future.oldOptions$nwarnings <- NULL 1568s [00:52:48.360] } 1568s [00:52:48.360] base::options(...future.oldOptions) 1568s [00:52:48.360] if (.Platform$OS.type == "windows") { 1568s [00:52:48.360] old_names <- names(...future.oldEnvVars) 1568s [00:52:48.360] envs <- base::Sys.getenv() 1568s [00:52:48.360] names <- names(envs) 1568s [00:52:48.360] common <- intersect(names, old_names) 1568s [00:52:48.360] added <- setdiff(names, old_names) 1568s [00:52:48.360] removed <- setdiff(old_names, names) 1568s [00:52:48.360] changed <- common[...future.oldEnvVars[common] != 1568s [00:52:48.360] envs[common]] 1568s [00:52:48.360] NAMES <- toupper(changed) 1568s [00:52:48.360] args <- list() 1568s [00:52:48.360] for (kk in seq_along(NAMES)) { 1568s [00:52:48.360] name <- changed[[kk]] 1568s [00:52:48.360] NAME <- NAMES[[kk]] 1568s [00:52:48.360] if (name != NAME && is.element(NAME, old_names)) 1568s [00:52:48.360] next 1568s [00:52:48.360] args[[name]] <- ...future.oldEnvVars[[name]] 1568s [00:52:48.360] } 1568s [00:52:48.360] NAMES <- toupper(added) 1568s [00:52:48.360] for (kk in seq_along(NAMES)) { 1568s [00:52:48.360] name <- added[[kk]] 1568s [00:52:48.360] NAME <- NAMES[[kk]] 1568s [00:52:48.360] if (name != NAME && is.element(NAME, old_names)) 1568s [00:52:48.360] next 1568s [00:52:48.360] args[[name]] <- "" 1568s [00:52:48.360] } 1568s [00:52:48.360] NAMES <- toupper(removed) 1568s [00:52:48.360] for (kk in seq_along(NAMES)) { 1568s [00:52:48.360] name <- removed[[kk]] 1568s [00:52:48.360] NAME <- NAMES[[kk]] 1568s [00:52:48.360] if (name != NAME && is.element(NAME, old_names)) 1568s [00:52:48.360] next 1568s [00:52:48.360] args[[name]] <- ...future.oldEnvVars[[name]] 1568s [00:52:48.360] } 1568s [00:52:48.360] if (length(args) > 0) 1568s [00:52:48.360] base::do.call(base::Sys.setenv, args = args) 1568s [00:52:48.360] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1568s [00:52:48.360] } 1568s [00:52:48.360] else { 1568s [00:52:48.360] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1568s [00:52:48.360] } 1568s [00:52:48.360] { 1568s [00:52:48.360] if (base::length(...future.futureOptionsAdded) > 1568s [00:52:48.360] 0L) { 1568s [00:52:48.360] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1568s [00:52:48.360] base::names(opts) <- ...future.futureOptionsAdded 1568s [00:52:48.360] base::options(opts) 1568s [00:52:48.360] } 1568s [00:52:48.360] { 1568s [00:52:48.360] { 1568s [00:52:48.360] NULL 1568s [00:52:48.360] RNGkind("Mersenne-Twister") 1568s [00:52:48.360] base::rm(list = ".Random.seed", envir = base::globalenv(), 1568s [00:52:48.360] inherits = FALSE) 1568s [00:52:48.360] } 1568s [00:52:48.360] options(future.plan = NULL) 1568s [00:52:48.360] if (is.na(NA_character_)) 1568s [00:52:48.360] Sys.unsetenv("R_FUTURE_PLAN") 1568s [00:52:48.360] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1568s [00:52:48.360] future::plan(list(function (..., envir = parent.frame()) 1568s [00:52:48.360] { 1568s [00:52:48.360] future <- SequentialFuture(..., envir = envir) 1568s [00:52:48.360] if (!future$lazy) 1568s [00:52:48.360] future <- run(future) 1568s [00:52:48.360] invisible(future) 1568s [00:52:48.360] }), .cleanup = FALSE, .init = FALSE) 1568s [00:52:48.360] } 1568s [00:52:48.360] } 1568s [00:52:48.360] } 1568s [00:52:48.360] }) 1568s [00:52:48.360] if (TRUE) { 1568s [00:52:48.360] base::sink(type = "output", split = FALSE) 1568s [00:52:48.360] if (TRUE) { 1568s [00:52:48.360] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1568s [00:52:48.360] } 1568s [00:52:48.360] else { 1568s [00:52:48.360] ...future.result["stdout"] <- base::list(NULL) 1568s [00:52:48.360] } 1568s [00:52:48.360] base::close(...future.stdout) 1568s [00:52:48.360] ...future.stdout <- NULL 1568s [00:52:48.360] } 1568s [00:52:48.360] ...future.result$conditions <- ...future.conditions 1568s [00:52:48.360] ...future.result$finished <- base::Sys.time() 1568s [00:52:48.360] ...future.result 1568s [00:52:48.360] } 1568s [00:52:48.365] assign_globals() ... 1568s [00:52:48.365] List of 5 1568s [00:52:48.365] $ ...future.FUN :function (x, y = 2 * 1:5) 1568s [00:52:48.365] $ future.call.arguments : list() 1568s [00:52:48.365] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1568s [00:52:48.365] $ ...future.elements_ii :List of 3 1568s [00:52:48.365] ..$ a: num 1 1568s [00:52:48.365] ..$ b: num 2 1568s [00:52:48.365] ..$ c: num 3 1568s [00:52:48.365] $ ...future.seeds_ii : NULL 1568s [00:52:48.365] $ ...future.globals.maxSize: NULL 1568s [00:52:48.365] - attr(*, "where")=List of 5 1568s [00:52:48.365] ..$ ...future.FUN : 1568s [00:52:48.365] ..$ future.call.arguments : 1568s [00:52:48.365] ..$ ...future.elements_ii : 1568s [00:52:48.365] ..$ ...future.seeds_ii : 1568s [00:52:48.365] ..$ ...future.globals.maxSize: 1568s [00:52:48.365] - attr(*, "resolved")= logi FALSE 1568s [00:52:48.365] - attr(*, "total_size")= num 4728 1568s [00:52:48.365] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1568s [00:52:48.365] - attr(*, "already-done")= logi TRUE 1568s [00:52:48.372] - reassign environment for ‘...future.FUN’ 1568s [00:52:48.372] - copied ‘...future.FUN’ to environment 1568s [00:52:48.372] - copied ‘future.call.arguments’ to environment 1568s [00:52:48.372] - copied ‘...future.elements_ii’ to environment 1568s [00:52:48.372] - copied ‘...future.seeds_ii’ to environment 1568s [00:52:48.373] - copied ‘...future.globals.maxSize’ to environment 1568s [00:52:48.373] assign_globals() ... done 1568s [00:52:48.373] plan(): Setting new future strategy stack: 1568s [00:52:48.373] List of future strategies: 1568s [00:52:48.373] 1. sequential: 1568s [00:52:48.373] - args: function (..., envir = parent.frame()) 1568s [00:52:48.373] - tweaked: FALSE 1568s [00:52:48.373] - call: NULL 1568s [00:52:48.374] plan(): nbrOfWorkers() = 1 1568s [00:52:48.374] plan(): Setting new future strategy stack: 1568s [00:52:48.374] List of future strategies: 1568s [00:52:48.374] 1. sequential: 1568s [00:52:48.374] - args: function (..., envir = parent.frame()) 1568s [00:52:48.374] - tweaked: FALSE 1568s [00:52:48.374] - call: plan(strategy) 1568s [00:52:48.375] plan(): nbrOfWorkers() = 1 1568s [00:52:48.375] SequentialFuture started (and completed) 1568s [00:52:48.375] - Launch lazy future ... done 1568s [00:52:48.375] run() for ‘SequentialFuture’ ... done 1568s [00:52:48.376] Created future: 1568s [00:52:48.376] SequentialFuture: 1568s [00:52:48.376] Label: ‘future_sapply-1’ 1568s [00:52:48.376] Expression: 1568s [00:52:48.376] { 1568s [00:52:48.376] do.call(function(...) { 1568s [00:52:48.376] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1568s [00:52:48.376] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1568s [00:52:48.376] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1568s [00:52:48.376] on.exit(options(oopts), add = TRUE) 1568s [00:52:48.376] } 1568s [00:52:48.376] { 1568s [00:52:48.376] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1568s [00:52:48.376] ...future.X_jj <- ...future.elements_ii[[jj]] 1568s [00:52:48.376] ...future.FUN(...future.X_jj, ...) 1568s [00:52:48.376] }) 1568s [00:52:48.376] } 1568s [00:52:48.376] }, args = future.call.arguments) 1568s [00:52:48.376] } 1568s [00:52:48.376] Lazy evaluation: FALSE 1568s [00:52:48.376] Asynchronous evaluation: FALSE 1568s [00:52:48.376] Local evaluation: TRUE 1568s [00:52:48.376] Environment: R_GlobalEnv 1568s [00:52:48.376] Capture standard output: TRUE 1568s [00:52:48.376] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1568s [00:52:48.376] Globals: 5 objects totaling 4.78 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1568s [00:52:48.376] Packages: 1568s [00:52:48.376] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1568s [00:52:48.376] Resolved: TRUE 1568s [00:52:48.376] Value: 1.01 KiB of class ‘list’ 1568s [00:52:48.376] Early signaling: FALSE 1568s [00:52:48.376] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1568s [00:52:48.376] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1568s [00:52:48.377] Chunk #1 of 1 ... DONE 1568s [00:52:48.377] Launching 1 futures (chunks) ... DONE 1568s [00:52:48.378] Resolving 1 futures (chunks) ... 1568s [00:52:48.378] resolve() on list ... 1568s [00:52:48.378] recursive: 0 1568s [00:52:48.378] length: 1 1568s [00:52:48.378] 1568s [00:52:48.378] resolved() for ‘SequentialFuture’ ... 1568s [00:52:48.378] - state: ‘finished’ 1568s [00:52:48.379] - run: TRUE 1568s [00:52:48.379] - result: ‘FutureResult’ 1568s [00:52:48.379] resolved() for ‘SequentialFuture’ ... done 1568s [00:52:48.379] Future #1 1568s [00:52:48.379] signalConditionsASAP(SequentialFuture, pos=1) ... 1568s [00:52:48.379] - nx: 1 1568s [00:52:48.379] - relay: TRUE 1568s [00:52:48.380] - stdout: TRUE 1568s [00:52:48.380] - signal: TRUE 1568s [00:52:48.380] - resignal: FALSE 1568s [00:52:48.380] - force: TRUE 1568s [00:52:48.380] - relayed: [n=1] FALSE 1568s [00:52:48.380] - queued futures: [n=1] FALSE 1568s [00:52:48.380] - until=1 1568s [00:52:48.380] - relaying element #1 1568s [00:52:48.381] - relayed: [n=1] TRUE 1568s [00:52:48.381] - queued futures: [n=1] TRUE 1568s [00:52:48.381] signalConditionsASAP(SequentialFuture, pos=1) ... done 1568s [00:52:48.381] length: 0 (resolved future 1) 1568s [00:52:48.381] Relaying remaining futures 1568s [00:52:48.381] signalConditionsASAP(NULL, pos=0) ... 1568s [00:52:48.382] - nx: 1 1568s [00:52:48.382] - relay: TRUE 1568s [00:52:48.382] - stdout: TRUE 1568s [00:52:48.382] - signal: TRUE 1568s [00:52:48.382] - resignal: FALSE 1568s [00:52:48.382] - force: TRUE 1568s [00:52:48.382] - relayed: [n=1] TRUE 1568s [00:52:48.383] - queued futures: [n=1] TRUE 1568s - flush all 1568s [00:52:48.383] - relayed: [n=1] TRUE 1568s [00:52:48.383] - queued futures: [n=1] TRUE 1568s [00:52:48.383] signalConditionsASAP(NULL, pos=0) ... done 1568s [00:52:48.383] resolve() on list ... DONE 1568s [00:52:48.383] - Number of value chunks collected: 1 1568s [00:52:48.384] Resolving 1 futures (chunks) ... DONE 1568s [00:52:48.384] Reducing values from 1 chunks ... 1568s [00:52:48.384] - Number of values collected after concatenation: 3 1568s [00:52:48.384] - Number of values expected: 3 1568s [00:52:48.384] Reducing values from 1 chunks ... DONE 1568s [00:52:48.384] future_lapply() ... DONE 1568s [00:52:48.389] future_lapply() ... 1568s [00:52:48.389] Number of chunks: 1 1568s [00:52:48.389] getGlobalsAndPackagesXApply() ... 1568s [00:52:48.389] - future.globals: TRUE 1568s [00:52:48.390] getGlobalsAndPackages() ... 1568s [00:52:48.390] Searching for globals... 1568s [00:52:48.391] - globals found: [1] ‘FUN’ 1568s [00:52:48.391] Searching for globals ... DONE 1568s [00:52:48.391] Resolving globals: FALSE 1568s [00:52:48.391] The total size of the 1 globals is 848 bytes (848 bytes) 1568s [00:52:48.392] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1568s [00:52:48.392] - globals: [1] ‘FUN’ 1568s [00:52:48.392] 1568s [00:52:48.392] getGlobalsAndPackages() ... DONE 1568s [00:52:48.392] - globals found/used: [n=1] ‘FUN’ 1568s [00:52:48.392] - needed namespaces: [n=0] 1568s [00:52:48.393] Finding globals ... DONE 1568s [00:52:48.393] - use_args: TRUE 1568s [00:52:48.393] - Getting '...' globals ... 1568s [00:52:48.393] resolve() on list ... 1568s [00:52:48.393] recursive: 0 1568s [00:52:48.394] length: 1 1568s [00:52:48.394] elements: ‘...’ 1568s [00:52:48.394] length: 0 (resolved future 1) 1568s [00:52:48.394] resolve() on list ... DONE 1568s [00:52:48.394] - '...' content: [n=0] 1568s [00:52:48.394] List of 1 1568s [00:52:48.394] $ ...: list() 1568s [00:52:48.394] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1568s [00:52:48.394] - attr(*, "where")=List of 1 1568s [00:52:48.394] ..$ ...: 1568s [00:52:48.394] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1568s [00:52:48.394] - attr(*, "resolved")= logi TRUE 1568s [00:52:48.394] - attr(*, "total_size")= num NA 1568s [00:52:48.398] - Getting '...' globals ... DONE 1568s [00:52:48.399] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1568s [00:52:48.399] List of 2 1568s [00:52:48.399] $ ...future.FUN:function (x) 1568s [00:52:48.399] $ ... : list() 1568s [00:52:48.399] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1568s [00:52:48.399] - attr(*, "where")=List of 2 1568s [00:52:48.399] ..$ ...future.FUN: 1568s [00:52:48.399] ..$ ... : 1568s [00:52:48.399] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1568s [00:52:48.399] - attr(*, "resolved")= logi FALSE 1568s [00:52:48.399] - attr(*, "total_size")= num 848 1568s [00:52:48.402] Packages to be attached in all futures: [n=0] 1568s [00:52:48.403] getGlobalsAndPackagesXApply() ... DONE 1568s [00:52:48.403] Number of futures (= number of chunks): 1 1568s [00:52:48.403] Launching 1 futures (chunks) ... 1568s [00:52:48.403] Chunk #1 of 1 ... 1568s [00:52:48.403] - Finding globals in 'X' for chunk #1 ... 1568s [00:52:48.403] getGlobalsAndPackages() ... 1568s [00:52:48.403] Searching for globals... 1568s [00:52:48.404] 1568s [00:52:48.404] Searching for globals ... DONE 1568s [00:52:48.404] - globals: [0] 1568s [00:52:48.404] getGlobalsAndPackages() ... DONE 1568s [00:52:48.404] + additional globals found: [n=0] 1568s [00:52:48.404] + additional namespaces needed: [n=0] 1568s [00:52:48.405] - Finding globals in 'X' for chunk #1 ... DONE 1568s [00:52:48.405] - seeds: 1568s [00:52:48.405] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1568s [00:52:48.405] getGlobalsAndPackages() ... 1568s [00:52:48.405] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1568s [00:52:48.405] Resolving globals: FALSE 1568s [00:52:48.406] Tweak future expression to call with '...' arguments ... 1568s [00:52:48.406] { 1568s [00:52:48.406] do.call(function(...) { 1568s [00:52:48.406] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1568s [00:52:48.406] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1568s [00:52:48.406] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1568s [00:52:48.406] on.exit(options(oopts), add = TRUE) 1568s [00:52:48.406] } 1568s [00:52:48.406] { 1568s [00:52:48.406] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1568s [00:52:48.406] ...future.X_jj <- ...future.elements_ii[[jj]] 1568s [00:52:48.406] ...future.FUN(...future.X_jj, ...) 1568s [00:52:48.406] }) 1568s [00:52:48.406] } 1568s [00:52:48.406] }, args = future.call.arguments) 1568s [00:52:48.406] } 1568s [00:52:48.406] Tweak future expression to call with '...' arguments ... DONE 1568s [00:52:48.407] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1568s [00:52:48.407] 1568s [00:52:48.407] getGlobalsAndPackages() ... DONE 1568s [00:52:48.407] run() for ‘Future’ ... 1568s [00:52:48.407] - state: ‘created’ 1568s [00:52:48.408] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1568s [00:52:48.408] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1568s [00:52:48.408] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1568s [00:52:48.408] - Field: ‘label’ 1568s [00:52:48.408] - Field: ‘local’ 1568s [00:52:48.408] - Field: ‘owner’ 1568s [00:52:48.409] - Field: ‘envir’ 1568s [00:52:48.409] - Field: ‘packages’ 1568s [00:52:48.409] - Field: ‘gc’ 1568s [00:52:48.409] - Field: ‘conditions’ 1568s [00:52:48.409] - Field: ‘expr’ 1568s [00:52:48.409] - Field: ‘uuid’ 1568s [00:52:48.409] - Field: ‘seed’ 1568s [00:52:48.410] - Field: ‘version’ 1568s [00:52:48.410] - Field: ‘result’ 1568s [00:52:48.410] - Field: ‘asynchronous’ 1568s [00:52:48.410] - Field: ‘calls’ 1568s [00:52:48.410] - Field: ‘globals’ 1568s [00:52:48.410] - Field: ‘stdout’ 1568s [00:52:48.410] - Field: ‘earlySignal’ 1568s [00:52:48.411] - Field: ‘lazy’ 1568s [00:52:48.411] - Field: ‘state’ 1568s [00:52:48.411] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1568s [00:52:48.411] - Launch lazy future ... 1568s [00:52:48.411] Packages needed by the future expression (n = 0): 1568s [00:52:48.411] Packages needed by future strategies (n = 0): 1568s [00:52:48.412] { 1568s [00:52:48.412] { 1568s [00:52:48.412] { 1568s [00:52:48.412] ...future.startTime <- base::Sys.time() 1568s [00:52:48.412] { 1568s [00:52:48.412] { 1568s [00:52:48.412] { 1568s [00:52:48.412] base::local({ 1568s [00:52:48.412] has_future <- base::requireNamespace("future", 1568s [00:52:48.412] quietly = TRUE) 1568s [00:52:48.412] if (has_future) { 1568s [00:52:48.412] ns <- base::getNamespace("future") 1568s [00:52:48.412] version <- ns[[".package"]][["version"]] 1568s [00:52:48.412] if (is.null(version)) 1568s [00:52:48.412] version <- utils::packageVersion("future") 1568s [00:52:48.412] } 1568s [00:52:48.412] else { 1568s [00:52:48.412] version <- NULL 1568s [00:52:48.412] } 1568s [00:52:48.412] if (!has_future || version < "1.8.0") { 1568s [00:52:48.412] info <- base::c(r_version = base::gsub("R version ", 1568s [00:52:48.412] "", base::R.version$version.string), 1568s [00:52:48.412] platform = base::sprintf("%s (%s-bit)", 1568s [00:52:48.412] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1568s [00:52:48.412] os = base::paste(base::Sys.info()[base::c("sysname", 1568s [00:52:48.412] "release", "version")], collapse = " "), 1568s [00:52:48.412] hostname = base::Sys.info()[["nodename"]]) 1568s [00:52:48.412] info <- base::sprintf("%s: %s", base::names(info), 1568s [00:52:48.412] info) 1568s [00:52:48.412] info <- base::paste(info, collapse = "; ") 1568s [00:52:48.412] if (!has_future) { 1568s [00:52:48.412] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1568s [00:52:48.412] info) 1568s [00:52:48.412] } 1568s [00:52:48.412] else { 1568s [00:52:48.412] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1568s [00:52:48.412] info, version) 1568s [00:52:48.412] } 1568s [00:52:48.412] base::stop(msg) 1568s [00:52:48.412] } 1568s [00:52:48.412] }) 1568s [00:52:48.412] } 1568s [00:52:48.412] options(future.plan = NULL) 1568s [00:52:48.412] Sys.unsetenv("R_FUTURE_PLAN") 1568s [00:52:48.412] future::plan("default", .cleanup = FALSE, .init = FALSE) 1568s [00:52:48.412] } 1568s [00:52:48.412] ...future.workdir <- getwd() 1568s [00:52:48.412] } 1568s [00:52:48.412] ...future.oldOptions <- base::as.list(base::.Options) 1568s [00:52:48.412] ...future.oldEnvVars <- base::Sys.getenv() 1568s [00:52:48.412] } 1568s [00:52:48.412] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1568s [00:52:48.412] future.globals.maxSize = NULL, future.globals.method = NULL, 1568s [00:52:48.412] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1568s [00:52:48.412] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1568s [00:52:48.412] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1568s [00:52:48.412] future.stdout.windows.reencode = NULL, width = 80L) 1568s [00:52:48.412] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1568s [00:52:48.412] base::names(...future.oldOptions)) 1568s [00:52:48.412] } 1568s [00:52:48.412] if (FALSE) { 1568s [00:52:48.412] } 1568s [00:52:48.412] else { 1568s [00:52:48.412] if (TRUE) { 1568s [00:52:48.412] ...future.stdout <- base::rawConnection(base::raw(0L), 1568s [00:52:48.412] open = "w") 1568s [00:52:48.412] } 1568s [00:52:48.412] else { 1568s [00:52:48.412] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1568s [00:52:48.412] windows = "NUL", "/dev/null"), open = "w") 1568s [00:52:48.412] } 1568s [00:52:48.412] base::sink(...future.stdout, type = "output", split = FALSE) 1568s [00:52:48.412] base::on.exit(if (!base::is.null(...future.stdout)) { 1568s [00:52:48.412] base::sink(type = "output", split = FALSE) 1568s [00:52:48.412] base::close(...future.stdout) 1568s [00:52:48.412] }, add = TRUE) 1568s [00:52:48.412] } 1568s [00:52:48.412] ...future.frame <- base::sys.nframe() 1568s [00:52:48.412] ...future.conditions <- base::list() 1568s [00:52:48.412] ...future.rng <- base::globalenv()$.Random.seed 1568s [00:52:48.412] if (FALSE) { 1568s [00:52:48.412] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1568s [00:52:48.412] "...future.value", "...future.globalenv.names", ".Random.seed") 1568s [00:52:48.412] } 1568s [00:52:48.412] ...future.result <- base::tryCatch({ 1568s [00:52:48.412] base::withCallingHandlers({ 1568s [00:52:48.412] ...future.value <- base::withVisible(base::local({ 1568s [00:52:48.412] do.call(function(...) { 1568s [00:52:48.412] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1568s [00:52:48.412] if (!identical(...future.globals.maxSize.org, 1568s [00:52:48.412] ...future.globals.maxSize)) { 1568s [00:52:48.412] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1568s [00:52:48.412] on.exit(options(oopts), add = TRUE) 1568s [00:52:48.412] } 1568s [00:52:48.412] { 1568s [00:52:48.412] lapply(seq_along(...future.elements_ii), 1568s [00:52:48.412] FUN = function(jj) { 1568s [00:52:48.412] ...future.X_jj <- ...future.elements_ii[[jj]] 1568s [00:52:48.412] ...future.FUN(...future.X_jj, ...) 1568s [00:52:48.412] }) 1568s [00:52:48.412] } 1568s [00:52:48.412] }, args = future.call.arguments) 1568s [00:52:48.412] })) 1568s [00:52:48.412] future::FutureResult(value = ...future.value$value, 1568s [00:52:48.412] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1568s [00:52:48.412] ...future.rng), globalenv = if (FALSE) 1568s [00:52:48.412] list(added = base::setdiff(base::names(base::.GlobalEnv), 1568s [00:52:48.412] ...future.globalenv.names)) 1568s [00:52:48.412] else NULL, started = ...future.startTime, version = "1.8") 1568s [00:52:48.412] }, condition = base::local({ 1568s [00:52:48.412] c <- base::c 1568s [00:52:48.412] inherits <- base::inherits 1568s [00:52:48.412] invokeRestart <- base::invokeRestart 1568s [00:52:48.412] length <- base::length 1568s [00:52:48.412] list <- base::list 1568s [00:52:48.412] seq.int <- base::seq.int 1568s [00:52:48.412] signalCondition <- base::signalCondition 1568s [00:52:48.412] sys.calls <- base::sys.calls 1568s [00:52:48.412] `[[` <- base::`[[` 1568s [00:52:48.412] `+` <- base::`+` 1568s [00:52:48.412] `<<-` <- base::`<<-` 1568s [00:52:48.412] sysCalls <- function(calls = sys.calls(), from = 1L) { 1568s [00:52:48.412] calls[seq.int(from = from + 12L, to = length(calls) - 1568s [00:52:48.412] 3L)] 1568s [00:52:48.412] } 1568s [00:52:48.412] function(cond) { 1568s [00:52:48.412] is_error <- inherits(cond, "error") 1568s [00:52:48.412] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1568s [00:52:48.412] NULL) 1568s [00:52:48.412] if (is_error) { 1568s [00:52:48.412] sessionInformation <- function() { 1568s [00:52:48.412] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1568s [00:52:48.412] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1568s [00:52:48.412] search = base::search(), system = base::Sys.info()) 1568s [00:52:48.412] } 1568s [00:52:48.412] ...future.conditions[[length(...future.conditions) + 1568s [00:52:48.412] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1568s [00:52:48.412] cond$call), session = sessionInformation(), 1568s [00:52:48.412] timestamp = base::Sys.time(), signaled = 0L) 1568s [00:52:48.412] signalCondition(cond) 1568s [00:52:48.412] } 1568s [00:52:48.412] else if (!ignore && TRUE && inherits(cond, c("condition", 1568s [00:52:48.412] "immediateCondition"))) { 1568s [00:52:48.412] signal <- TRUE && inherits(cond, "immediateCondition") 1568s [00:52:48.412] ...future.conditions[[length(...future.conditions) + 1568s [00:52:48.412] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1568s [00:52:48.412] if (TRUE && !signal) { 1568s [00:52:48.412] muffleCondition <- function (cond, pattern = "^muffle") 1568s [00:52:48.412] { 1568s [00:52:48.412] inherits <- base::inherits 1568s [00:52:48.412] invokeRestart <- base::invokeRestart 1568s [00:52:48.412] is.null <- base::is.null 1568s [00:52:48.412] muffled <- FALSE 1568s [00:52:48.412] if (inherits(cond, "message")) { 1568s [00:52:48.412] muffled <- grepl(pattern, "muffleMessage") 1568s [00:52:48.412] if (muffled) 1568s [00:52:48.412] invokeRestart("muffleMessage") 1568s [00:52:48.412] } 1568s [00:52:48.412] else if (inherits(cond, "warning")) { 1568s [00:52:48.412] muffled <- grepl(pattern, "muffleWarning") 1568s [00:52:48.412] if (muffled) 1568s [00:52:48.412] invokeRestart("muffleWarning") 1568s [00:52:48.412] } 1568s [00:52:48.412] else if (inherits(cond, "condition")) { 1568s [00:52:48.412] if (!is.null(pattern)) { 1568s [00:52:48.412] computeRestarts <- base::computeRestarts 1568s [00:52:48.412] grepl <- base::grepl 1568s [00:52:48.412] restarts <- computeRestarts(cond) 1568s [00:52:48.412] for (restart in restarts) { 1568s [00:52:48.412] name <- restart$name 1568s [00:52:48.412] if (is.null(name)) 1568s [00:52:48.412] next 1568s [00:52:48.412] if (!grepl(pattern, name)) 1568s [00:52:48.412] next 1568s [00:52:48.412] invokeRestart(restart) 1568s [00:52:48.412] muffled <- TRUE 1568s [00:52:48.412] break 1568s [00:52:48.412] } 1568s [00:52:48.412] } 1568s [00:52:48.412] } 1568s [00:52:48.412] invisible(muffled) 1568s [00:52:48.412] } 1568s [00:52:48.412] muffleCondition(cond, pattern = "^muffle") 1568s [00:52:48.412] } 1568s [00:52:48.412] } 1568s [00:52:48.412] else { 1568s [00:52:48.412] if (TRUE) { 1568s [00:52:48.412] muffleCondition <- function (cond, pattern = "^muffle") 1568s [00:52:48.412] { 1568s [00:52:48.412] inherits <- base::inherits 1568s [00:52:48.412] invokeRestart <- base::invokeRestart 1568s [00:52:48.412] is.null <- base::is.null 1568s [00:52:48.412] muffled <- FALSE 1568s [00:52:48.412] if (inherits(cond, "message")) { 1568s [00:52:48.412] muffled <- grepl(pattern, "muffleMessage") 1568s [00:52:48.412] if (muffled) 1568s [00:52:48.412] invokeRestart("muffleMessage") 1568s [00:52:48.412] } 1568s [00:52:48.412] else if (inherits(cond, "warning")) { 1568s [00:52:48.412] muffled <- grepl(pattern, "muffleWarning") 1568s [00:52:48.412] if (muffled) 1568s [00:52:48.412] invokeRestart("muffleWarning") 1568s [00:52:48.412] } 1568s [00:52:48.412] else if (inherits(cond, "condition")) { 1568s [00:52:48.412] if (!is.null(pattern)) { 1568s [00:52:48.412] computeRestarts <- base::computeRestarts 1568s [00:52:48.412] grepl <- base::grepl 1568s [00:52:48.412] restarts <- computeRestarts(cond) 1568s [00:52:48.412] for (restart in restarts) { 1568s [00:52:48.412] name <- restart$name 1568s [00:52:48.412] if (is.null(name)) 1568s [00:52:48.412] next 1568s [00:52:48.412] if (!grepl(pattern, name)) 1568s [00:52:48.412] next 1568s [00:52:48.412] invokeRestart(restart) 1568s [00:52:48.412] muffled <- TRUE 1568s [00:52:48.412] break 1568s [00:52:48.412] } 1568s [00:52:48.412] } 1568s [00:52:48.412] } 1568s [00:52:48.412] invisible(muffled) 1568s [00:52:48.412] } 1568s [00:52:48.412] muffleCondition(cond, pattern = "^muffle") 1568s [00:52:48.412] } 1568s [00:52:48.412] } 1568s [00:52:48.412] } 1568s [00:52:48.412] })) 1568s [00:52:48.412] }, error = function(ex) { 1568s [00:52:48.412] base::structure(base::list(vList of 2 1568s $ y0: Named num [1:3] 1 2 3 1568s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1568s $ y1: Named num [1:3] 1 2 3 1568s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1568s alue = NULL, visible = NULL, 1568s [00:52:48.412] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1568s [00:52:48.412] ...future.rng), started = ...future.startTime, 1568s [00:52:48.412] finished = Sys.time(), session_uuid = NA_character_, 1568s [00:52:48.412] version = "1.8"), class = "FutureResult") 1568s [00:52:48.412] }, finally = { 1568s [00:52:48.412] if (!identical(...future.workdir, getwd())) 1568s [00:52:48.412] setwd(...future.workdir) 1568s [00:52:48.412] { 1568s [00:52:48.412] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1568s [00:52:48.412] ...future.oldOptions$nwarnings <- NULL 1568s [00:52:48.412] } 1568s [00:52:48.412] base::options(...future.oldOptions) 1568s [00:52:48.412] if (.Platform$OS.type == "windows") { 1568s [00:52:48.412] old_names <- names(...future.oldEnvVars) 1568s [00:52:48.412] envs <- base::Sys.getenv() 1568s [00:52:48.412] names <- names(envs) 1568s [00:52:48.412] common <- intersect(names, old_names) 1568s [00:52:48.412] added <- setdiff(names, old_names) 1568s [00:52:48.412] removed <- setdiff(old_names, names) 1568s [00:52:48.412] changed <- common[...future.oldEnvVars[common] != 1568s [00:52:48.412] envs[common]] 1568s [00:52:48.412] NAMES <- toupper(changed) 1568s [00:52:48.412] args <- list() 1568s [00:52:48.412] for (kk in seq_along(NAMES)) { 1568s [00:52:48.412] name <- changed[[kk]] 1568s [00:52:48.412] NAME <- NAMES[[kk]] 1568s [00:52:48.412] if (name != NAME && is.element(NAME, old_names)) 1568s [00:52:48.412] next 1568s [00:52:48.412] args[[name]] <- ...future.oldEnvVars[[name]] 1568s [00:52:48.412] } 1568s [00:52:48.412] NAMES <- toupper(added) 1568s [00:52:48.412] for (kk in seq_along(NAMES)) { 1568s [00:52:48.412] name <- added[[kk]] 1568s [00:52:48.412] NAME <- NAMES[[kk]] 1568s [00:52:48.412] if (name != NAME && is.element(NAME, old_names)) 1568s [00:52:48.412] next 1568s [00:52:48.412] args[[name]] <- "" 1568s [00:52:48.412] } 1568s [00:52:48.412] NAMES <- toupper(removed) 1568s [00:52:48.412] for (kk in seq_along(NAMES)) { 1568s [00:52:48.412] name <- removed[[kk]] 1568s [00:52:48.412] NAME <- NAMES[[kk]] 1568s [00:52:48.412] if (name != NAME && is.element(NAME, old_names)) 1568s [00:52:48.412] next 1568s [00:52:48.412] args[[name]] <- ...future.oldEnvVars[[name]] 1568s [00:52:48.412] } 1568s [00:52:48.412] if (length(args) > 0) 1568s [00:52:48.412] base::do.call(base::Sys.setenv, args = args) 1568s [00:52:48.412] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1568s [00:52:48.412] } 1568s [00:52:48.412] else { 1568s [00:52:48.412] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1568s [00:52:48.412] } 1568s [00:52:48.412] { 1568s [00:52:48.412] if (base::length(...future.futureOptionsAdded) > 1568s [00:52:48.412] 0L) { 1568s [00:52:48.412] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1568s [00:52:48.412] base::names(opts) <- ...future.futureOptionsAdded 1568s [00:52:48.412] base::options(opts) 1568s [00:52:48.412] } 1568s [00:52:48.412] { 1568s [00:52:48.412] { 1568s [00:52:48.412] NULL 1568s [00:52:48.412] RNGkind("Mersenne-Twister") 1568s [00:52:48.412] base::rm(list = ".Random.seed", envir = base::globalenv(), 1568s [00:52:48.412] inherits = FALSE) 1568s [00:52:48.412] } 1568s [00:52:48.412] options(future.plan = NULL) 1568s [00:52:48.412] if (is.na(NA_character_)) 1568s [00:52:48.412] Sys.unsetenv("R_FUTURE_PLAN") 1568s [00:52:48.412] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1568s [00:52:48.412] future::plan(list(function (..., envir = parent.frame()) 1568s [00:52:48.412] { 1568s [00:52:48.412] future <- SequentialFuture(..., envir = envir) 1568s [00:52:48.412] if (!future$lazy) 1568s [00:52:48.412] future <- run(future) 1568s [00:52:48.412] invisible(future) 1568s [00:52:48.412] }), .cleanup = FALSE, .init = FALSE) 1568s [00:52:48.412] } 1568s [00:52:48.412] } 1568s [00:52:48.412] } 1568s [00:52:48.412] }) 1568s [00:52:48.412] if (TRUE) { 1568s [00:52:48.412] base::sink(type = "output", split = FALSE) 1568s [00:52:48.412] if (TRUE) { 1568s [00:52:48.412] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1568s [00:52:48.412] } 1568s [00:52:48.412] else { 1568s [00:52:48.412] ...future.result["stdout"] <- base::list(NULL) 1568s [00:52:48.412] } 1568s [00:52:48.412] base::close(...future.stdout) 1568s [00:52:48.412] ...future.stdout <- NULL 1568s [00:52:48.412] } 1568s [00:52:48.412] ...future.result$conditions <- ...future.conditions 1568s [00:52:48.412] ...future.result$finished <- base::Sys.time() 1568s [00:52:48.412] ...future.result 1568s [00:52:48.412] } 1568s [00:52:48.418] assign_globals() ... 1568s [00:52:48.418] List of 5 1568s [00:52:48.418] $ ...future.FUN :function (x) 1568s [00:52:48.418] $ future.call.arguments : list() 1568s [00:52:48.418] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1568s [00:52:48.418] $ ...future.elements_ii :List of 3 1568s [00:52:48.418] ..$ a: num 1 1568s [00:52:48.418] ..$ b: num 2 1568s [00:52:48.418] ..$ c: num 3 1568s [00:52:48.418] $ ...future.seeds_ii : NULL 1568s [00:52:48.418] $ ...future.globals.maxSize: NULL 1568s [00:52:48.418] - attr(*, "where")=List of 5 1568s [00:52:48.418] ..$ ...future.FUN : 1568s [00:52:48.418] ..$ future.call.arguments : 1568s [00:52:48.418] ..$ ...future.elements_ii : 1568s [00:52:48.418] ..$ ...future.seeds_ii : 1568s [00:52:48.418] ..$ ...future.globals.maxSize: 1568s [00:52:48.418] - attr(*, "resolved")= logi FALSE 1568s [00:52:48.418] - attr(*, "total_size")= num 848 1568s [00:52:48.418] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1568s [00:52:48.418] - attr(*, "already-done")= logi TRUE 1568s [00:52:48.425] - copied ‘...future.FUN’ to environment 1568s [00:52:48.425] - copied ‘future.call.arguments’ to environment 1568s [00:52:48.425] - copied ‘...future.elements_ii’ to environment 1568s [00:52:48.425] - copied ‘...future.seeds_ii’ to environment 1568s [00:52:48.425] - copied ‘...future.globals.maxSize’ to environment 1568s [00:52:48.425] assign_globals() ... done 1568s [00:52:48.426] plan(): Setting new future strategy stack: 1568s [00:52:48.426] List of future strategies: 1568s [00:52:48.426] 1. sequential: 1568s [00:52:48.426] - args: function (..., envir = parent.frame()) 1568s [00:52:48.426] - tweaked: FALSE 1568s [00:52:48.426] - call: NULL 1568s [00:52:48.426] plan(): nbrOfWorkers() = 1 1568s [00:52:48.427] plan(): Setting new future strategy stack: 1568s [00:52:48.427] List of future strategies: 1568s [00:52:48.427] 1. sequential: 1568s [00:52:48.427] - args: function (..., envir = parent.frame()) 1568s [00:52:48.427] - tweaked: FALSE 1568s [00:52:48.427] - call: plan(strategy) 1568s [00:52:48.427] plan(): nbrOfWorkers() = 1 1568s [00:52:48.428] SequentialFuture started (and completed) 1568s [00:52:48.428] - Launch lazy future ... done 1568s [00:52:48.428] run() for ‘SequentialFuture’ ... done 1568s [00:52:48.428] Created future: 1568s [00:52:48.428] SequentialFuture: 1568s [00:52:48.428] Label: ‘future_sapply-1’ 1568s [00:52:48.428] Expression: 1568s [00:52:48.428] { 1568s [00:52:48.428] do.call(function(...) { 1568s [00:52:48.428] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1568s [00:52:48.428] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1568s [00:52:48.428] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1568s [00:52:48.428] on.exit(options(oopts), add = TRUE) 1568s [00:52:48.428] } 1568s [00:52:48.428] { 1568s [00:52:48.428] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1568s [00:52:48.428] ...future.X_jj <- ...future.elements_ii[[jj]] 1568s [00:52:48.428] ...future.FUN(...future.X_jj, ...) 1568s [00:52:48.428] }) 1568s [00:52:48.428] } 1568s [00:52:48.428] }, args = future.call.arguments) 1568s [00:52:48.428] } 1568s [00:52:48.428] Lazy evaluation: FALSE 1568s [00:52:48.428] Asynchronous evaluation: FALSE 1568s [00:52:48.428] Local evaluation: TRUE 1568s [00:52:48.428] Environment: R_GlobalEnv 1568s [00:52:48.428] Capture standard output: TRUE 1568s [00:52:48.428] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1568s [00:52:48.428] Globals: 5 objects totaling 0.99 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1568s [00:52:48.428] Packages: 1568s [00:52:48.428] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1568s [00:52:48.428] Resolved: TRUE 1568s [00:52:48.428] Value: 168 bytes of class ‘list’ 1568s [00:52:48.428] Early signaling: FALSE 1568s [00:52:48.428] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1568s [00:52:48.428] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1568s [00:52:48.430] Chunk #1 of 1 ... DONE 1568s [00:52:48.430] Launching 1 futures (chunks) ... DONE 1568s [00:52:48.430] Resolving 1 futures (chunks) ... 1568s [00:52:48.430] resolve() on list ... 1568s [00:52:48.431] recursive: 0 1568s [00:52:48.431] length: 1 1568s [00:52:48.431] 1568s [00:52:48.431] resolved() for ‘SequentialFuture’ ... 1568s [00:52:48.431] - state: ‘finished’ 1568s [00:52:48.431] - run: TRUE 1568s [00:52:48.433] - result: ‘FutureResult’ 1568s [00:52:48.433] resolved() for ‘SequentialFuture’ ... done 1568s [00:52:48.433] Future #1 1568s [00:52:48.433] signalConditionsASAP(SequentialFuture, pos=1) ... 1568s [00:52:48.433] - nx: 1 1568s [00:52:48.433] - relay: TRUE 1568s [00:52:48.433] - stdout: TRUE 1568s [00:52:48.434] - signal: TRUE 1568s [00:52:48.434] - resignal: FALSE 1568s [00:52:48.434] - force: TRUE 1568s [00:52:48.434] - relayed: [n=1] FALSE 1568s [00:52:48.434] - queued futures: [n=1] FALSE 1568s [00:52:48.434] - until=1 1568s [00:52:48.434] - relaying element #1 1568s [00:52:48.434] - relayed: [n=1] TRUE 1568s [00:52:48.434] - queued futures: [n=1] TRUE 1568s [00:52:48.435] signalConditionsASAP(SequentialFuture, pos=1) ... done 1568s [00:52:48.435] length: 0 (resolved future 1) 1568s [00:52:48.435] Relaying remaining futures 1568s [00:52:48.435] signalConditionsASAP(NULL, pos=0) ... 1568s [00:52:48.435] - nx: 1 1568s [00:52:48.435] - relay: TRUE 1568s [00:52:48.435] - stdout: TRUE 1568s [00:52:48.435] - signal: TRUE 1568s [00:52:48.435] - resignal: FALSE 1568s [00:52:48.435] - force: TRUE 1568s [00:52:48.436] - relayed: [n=1] TRUE 1568s [00:52:48.436] - queued futures: [n=1] TRUE 1568s - flush all 1568s [00:52:48.436] - relayed: [n=1] TRUE 1568s [00:52:48.436] - queued futures: [n=1] TRUE 1568s [00:52:48.436] signalConditionsASAP(NULL, pos=0) ... done 1568s [00:52:48.436] resolve() on list ... DONE 1568s [00:52:48.436] - Number of value chunks collected: 1 1568s [00:52:48.436] Resolving 1 futures (chunks) ... DONE 1568s [00:52:48.437] Reducing values from 1 chunks ... 1568s [00:52:48.437] - Number of values collected after concatenation: 3 1568s [00:52:48.437] - Number of values expected: 3 1568s [00:52:48.437] Reducing values from 1 chunks ... DONE 1568s [00:52:48.437] future_lapply() ... DONE 1568s [00:52:48.440] future_lapply() ... 1568s [00:52:48.440] Number of chunks: 1 1568s [00:52:48.440] getGlobalsAndPackagesXApply() ... 1568s [00:52:48.440] - future.globals: TRUE 1568s [00:52:48.441] getGlobalsAndPackages() ... 1568s [00:52:48.441] Searching for globals... 1568s [00:52:48.442] - globals found: [2] ‘FUN’, ‘UseMethod’ 1568s [00:52:48.442] Searching for globals ... DONE 1568s [00:52:48.442] Resolving globals: FALSE 1568s [00:52:48.443] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1568s [00:52:48.443] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1568s [00:52:48.444] - globals: [1] ‘FUN’ 1568s [00:52:48.444] 1568s [00:52:48.444] getGlobalsAndPackages() ... DONE 1568s [00:52:48.444] - globals found/used: [n=1] ‘FUN’ 1568s [00:52:48.444] - needed namespaces: [n=0] 1568s [00:52:48.444] Finding globals ... DONE 1568s [00:52:48.445] - use_args: TRUE 1568s [00:52:48.445] - Getting '...' globals ... 1568s [00:52:48.445] resolve() on list ... 1568s [00:52:48.445] recursive: 0 1568s [00:52:48.446] length: 1 1568s [00:52:48.446] elements: ‘...’ 1568s [00:52:48.446] length: 0 (resolved future 1) 1568s [00:52:48.446] resolve() on list ... DONE 1568s [00:52:48.446] - '...' content: [n=0] 1568s [00:52:48.446] List of 1 1568s [00:52:48.446] $ ...: list() 1568s [00:52:48.446] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1568s [00:52:48.446] - attr(*, "where")=List of 1 1568s [00:52:48.446] ..$ ...: 1568s [00:52:48.446] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1568s [00:52:48.446] - attr(*, "resolved")= logi TRUE 1568s [00:52:48.446] - attr(*, "total_size")= num NA 1568s [00:52:48.450] - Getting '...' globals ... DONE 1568s [00:52:48.450] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1568s [00:52:48.450] List of 2 1568s [00:52:48.450] $ ...future.FUN:function (x, ...) 1568s [00:52:48.450] $ ... : list() 1568s [00:52:48.450] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1568s [00:52:48.450] - attr(*, "where")=List of 2 1568s [00:52:48.450] ..$ ...future.FUN: 1568s [00:52:48.450] ..$ ... : 1568s [00:52:48.450] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1568s [00:52:48.450] - attr(*, "resolved")= logi FALSE 1568s [00:52:48.450] - attr(*, "total_size")= num 1248 1568s [00:52:48.453] Packages to be attached in all futures: [n=0] 1568s [00:52:48.454] getGlobalsAndPackagesXApply() ... DONE 1568s [00:52:48.454] Number of futures (= number of chunks): 1 1568s [00:52:48.454] Launching 1 futures (chunks) ... 1568s [00:52:48.454] Chunk #1 of 1 ... 1568s [00:52:48.454] - Finding globals in 'X' for chunk #1 ... 1568s [00:52:48.454] getGlobalsAndPackages() ... 1568s [00:52:48.455] Searching for globals... 1568s [00:52:48.455] 1568s [00:52:48.455] Searching for globals ... DONE 1568s [00:52:48.455] - globals: [0] 1568s [00:52:48.455] getGlobalsAndPackages() ... DONE 1568s [00:52:48.456] + additional globals found: [n=0] 1568s [00:52:48.456] + additional namespaces needed: [n=0] 1568s [00:52:48.456] - Finding globals in 'X' for chunk #1 ... DONE 1568s [00:52:48.456] - seeds: 1568s [00:52:48.456] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1568s [00:52:48.457] getGlobalsAndPackages() ... 1568s [00:52:48.457] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1568s [00:52:48.457] Resolving globals: FALSE 1568s [00:52:48.457] Tweak future expression to call with '...' arguments ... 1568s [00:52:48.457] { 1568s [00:52:48.457] do.call(function(...) { 1568s [00:52:48.457] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1568s [00:52:48.457] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1568s [00:52:48.457] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1568s [00:52:48.457] on.exit(options(oopts), add = TRUE) 1568s [00:52:48.457] } 1568s [00:52:48.457] { 1568s [00:52:48.457] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1568s [00:52:48.457] ...future.X_jj <- ...future.elements_ii[[jj]] 1568s [00:52:48.457] ...future.FUN(...future.X_jj, ...) 1568s [00:52:48.457] }) 1568s [00:52:48.457] } 1568s [00:52:48.457] }, args = future.call.arguments) 1568s [00:52:48.457] } 1568s [00:52:48.458] Tweak future expression to call with '...' arguments ... DONE 1568s [00:52:48.458] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1568s [00:52:48.458] 1568s [00:52:48.459] getGlobalsAndPackages() ... DONE 1568s [00:52:48.459] run() for ‘Future’ ... 1568s [00:52:48.459] - state: ‘created’ 1568s [00:52:48.459] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1568s [00:52:48.460] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1568s [00:52:48.460] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1568s [00:52:48.460] - Field: ‘label’ 1568s [00:52:48.460] - Field: ‘local’ 1568s [00:52:48.460] - Field: ‘owner’ 1568s [00:52:48.460] - Field: ‘envir’ 1568s [00:52:48.461] - Field: ‘packages’ 1568s [00:52:48.461] - Field: ‘gc’ 1568s [00:52:48.461] - Field: ‘conditions’ 1568s [00:52:48.461] - Field: ‘expr’ 1568s [00:52:48.461] - Field: ‘uuid’ 1568s [00:52:48.461] - Field: ‘seed’ 1568s [00:52:48.461] - Field: ‘version’ 1568s [00:52:48.462] - Field: ‘result’ 1568s [00:52:48.462] - Field: ‘asynchronous’ 1568s [00:52:48.462] - Field: ‘calls’ 1568s [00:52:48.462] - Field: ‘globals’ 1568s [00:52:48.462] - Field: ‘stdout’ 1568s [00:52:48.462] - Field: ‘earlySignal’ 1568s [00:52:48.462] - Field: ‘lazy’ 1568s [00:52:48.462] - Field: ‘state’ 1568s [00:52:48.463] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1568s [00:52:48.463] - Launch lazy future ... 1568s [00:52:48.463] Packages needed by the future expression (n = 0): 1568s [00:52:48.463] Packages needed by future strategies (n = 0): 1568s [00:52:48.464] { 1568s [00:52:48.464] { 1568s [00:52:48.464] { 1568s [00:52:48.464] ...future.startTime <- base::Sys.time() 1568s [00:52:48.464] { 1568s [00:52:48.464] { 1568s [00:52:48.464] { 1568s [00:52:48.464] base::local({ 1568s [00:52:48.464] has_future <- base::requireNamespace("future", 1568s [00:52:48.464] quietly = TRUE) 1568s [00:52:48.464] if (has_future) { 1568s [00:52:48.464] ns <- base::getNamespace("future") 1568s [00:52:48.464] version <- ns[[".package"]][["version"]] 1568s [00:52:48.464] if (is.null(version)) 1568s [00:52:48.464] version <- utils::packageVersion("future") 1568s [00:52:48.464] } 1568s [00:52:48.464] else { 1568s [00:52:48.464] version <- NULL 1568s [00:52:48.464] } 1568s [00:52:48.464] if (!has_future || version < "1.8.0") { 1568s [00:52:48.464] info <- base::c(r_version = base::gsub("R version ", 1568s [00:52:48.464] "", base::R.version$version.string), 1568s [00:52:48.464] platform = base::sprintf("%s (%s-bit)", 1568s [00:52:48.464] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1568s [00:52:48.464] os = base::paste(base::Sys.info()[base::c("sysname", 1568s [00:52:48.464] "release", "version")], collapse = " "), 1568s [00:52:48.464] hostname = base::Sys.info()[["nodename"]]) 1568s [00:52:48.464] info <- base::sprintf("%s: %s", base::names(info), 1568s [00:52:48.464] info) 1568s [00:52:48.464] info <- base::paste(info, collapse = "; ") 1568s [00:52:48.464] if (!has_future) { 1568s [00:52:48.464] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1568s [00:52:48.464] info) 1568s [00:52:48.464] } 1568s [00:52:48.464] else { 1568s [00:52:48.464] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1568s [00:52:48.464] info, version) 1568s [00:52:48.464] } 1568s [00:52:48.464] base::stop(msg) 1568s [00:52:48.464] } 1568s [00:52:48.464] }) 1568s [00:52:48.464] } 1568s [00:52:48.464] options(future.plan = NULL) 1568s [00:52:48.464] Sys.unsetenv("R_FUTURE_PLAN") 1568s [00:52:48.464] future::plan("default", .cleanup = FALSE, .init = FALSE) 1568s [00:52:48.464] } 1568s [00:52:48.464] ...future.workdir <- getwd() 1568s [00:52:48.464] } 1568s [00:52:48.464] ...future.oldOptions <- base::as.list(base::.Options) 1568s [00:52:48.464] ...future.oldEnvVars <- base::Sys.getenv() 1568s [00:52:48.464] } 1568s [00:52:48.464] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1568s [00:52:48.464] future.globals.maxSize = NULL, future.globals.method = NULL, 1568s [00:52:48.464] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1568s [00:52:48.464] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1568s [00:52:48.464] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1568s [00:52:48.464] future.stdout.windows.reencode = NULL, width = 80L) 1568s [00:52:48.464] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1568s [00:52:48.464] base::names(...future.oldOptions)) 1568s [00:52:48.464] } 1568s [00:52:48.464] if (FALSE) { 1568s [00:52:48.464] } 1568s [00:52:48.464] else { 1568s [00:52:48.464] if (TRUE) { 1568s [00:52:48.464] ...future.stdout <- base::rawConnection(base::raw(0L), 1568s [00:52:48.464] open = "w") 1568s [00:52:48.464] } 1568s [00:52:48.464] else { 1568s [00:52:48.464] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1568s [00:52:48.464] windows = "NUL", "/dev/null"), open = "w") 1568s [00:52:48.464] } 1568s [00:52:48.464] base::sink(...future.stdout, type = "output", split = FALSE) 1568s [00:52:48.464] base::on.exit(if (!base::is.null(...future.stdout)) { 1568s [00:52:48.464] base::sink(type = "output", split = FALSE) 1568s [00:52:48.464] base::close(...future.stdout) 1568s [00:52:48.464] }, add = TRUE) 1568s [00:52:48.464] } 1568s [00:52:48.464] ...future.frame <- base::sys.nframe() 1568s [00:52:48.464] ...future.conditions <- base::list() 1568s [00:52:48.464] ...future.rng <- base::globalenv()$.Random.seed 1568s [00:52:48.464] if (FALSE) { 1568s [00:52:48.464] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1568s [00:52:48.464] "...future.value", "...future.globalenv.names", ".Random.seed") 1568s [00:52:48.464] } 1568s [00:52:48.464] ...future.result <- base::tryCatch({ 1568s [00:52:48.464] base::withCallingHandlers({ 1568s [00:52:48.464] ...future.value <- base::withVisible(base::local({ 1568s [00:52:48.464] do.call(function(...) { 1568s [00:52:48.464] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1568s [00:52:48.464] if (!identical(...future.globals.maxSize.org, 1568s [00:52:48.464] ...future.globals.maxSize)) { 1568s [00:52:48.464] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1568s [00:52:48.464] on.exit(options(oopts), add = TRUE) 1568s [00:52:48.464] } 1568s [00:52:48.464] { 1568s [00:52:48.464] lapply(seq_along(...future.elements_ii), 1568s [00:52:48.464] FUN = function(jj) { 1568s [00:52:48.464] ...future.X_jj <- ...future.elements_ii[[jj]] 1568s [00:52:48.464] ...future.FUN(...future.X_jj, ...) 1568s [00:52:48.464] }) 1568s [00:52:48.464] } 1568s [00:52:48.464] }, args = future.call.arguments) 1568s [00:52:48.464] })) 1568s [00:52:48.464] future::FutureResult(value = ...future.value$value, 1568s [00:52:48.464] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1568s [00:52:48.464] ...future.rng), globalenv = if (FALSE) 1568s [00:52:48.464] list(added = base::setdiff(base::names(base::.GlobalEnv), 1568s [00:52:48.464] ...future.globalenv.names)) 1568s [00:52:48.464] else NULL, started = ...future.startTime, version = "1.8") 1568s [00:52:48.464] }, condition = base::local({ 1568s [00:52:48.464] c <- base::c 1568s [00:52:48.464] inherits <- base::inherits 1568s [00:52:48.464] invokeRestart <- base::invokeRestart 1568s [00:52:48.464] length <- base::length 1568s [00:52:48.464] list <- base::list 1568s [00:52:48.464] seq.int <- base::seq.int 1568s [00:52:48.464] signalCondition <- base::signalCondition 1568s [00:52:48.464] sys.calls <- base::sys.calls 1568s [00:52:48.464] `[[` <- base::`[[` 1568s [00:52:48.464] `+` <- base::`+` 1568s [00:52:48.464] `<<-` <- base::`<<-` 1568s [00:52:48.464] sysCalls <- function(calls = sys.calls(), from = 1L) { 1568s [00:52:48.464] calls[seq.int(from = from + 12L, to = length(calls) - 1568s [00:52:48.464] 3L)] 1568s [00:52:48.464] } 1568s [00:52:48.464] function(cond) { 1568s [00:52:48.464] is_error <- inherits(cond, "error") 1568s [00:52:48.464] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1568s [00:52:48.464] NULL) 1568s [00:52:48.464] if (is_error) { 1568s [00:52:48.464] sessionInformation <- function() { 1568s [00:52:48.464] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1568s [00:52:48.464] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1568s [00:52:48.464] search = base::search(), system = base::Sys.info()) 1568s [00:52:48.464] } 1568s [00:52:48.464] ...future.conditions[[length(...future.conditions) + 1568s [00:52:48.464] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1568s [00:52:48.464] cond$call), session = sessionInformation(), 1568s [00:52:48.464] timestamp = base::Sys.time(), signaled = 0L) 1568s [00:52:48.464] signalCondition(cond) 1568s [00:52:48.464] } 1568s [00:52:48.464] else if (!ignore && TRUE && inherits(cond, c("condition", 1568s [00:52:48.464] "immediateCondition"))) { 1568s [00:52:48.464] signal <- TRUE && inherits(cond, "immediateCondition") 1568s [00:52:48.464] ...future.conditions[[length(...future.conditions) + 1568s [00:52:48.464] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1568s [00:52:48.464] if (TRUE && !signal) { 1568s [00:52:48.464] muffleCondition <- function (cond, pattern = "^muffle") 1568s [00:52:48.464] { 1568s [00:52:48.464] inherits <- base::inherits 1568s [00:52:48.464] invokeRestart <- base::invokeRestart 1568s [00:52:48.464] is.null <- base::is.null 1568s [00:52:48.464] muffled <- FALSE 1568s [00:52:48.464] if (inherits(cond, "message")) { 1568s [00:52:48.464] muffled <- grepl(pattern, "muffleMessage") 1568s [00:52:48.464] if (muffled) 1568s [00:52:48.464] invokeRestart("muffleMessage") 1568s [00:52:48.464] } 1568s [00:52:48.464] else if (inherits(cond, "warning")) { 1568s [00:52:48.464] muffled <- grepl(pattern, "muffleWarning") 1568s [00:52:48.464] if (muffled) 1568s [00:52:48.464] invokeRestart("muffleWarning") 1568s [00:52:48.464] } 1568s [00:52:48.464] else if (inherits(cond, "condition")) { 1568s [00:52:48.464] if (!is.null(pattern)) { 1568s [00:52:48.464] computeRestarts <- base::computeRestarts 1568s [00:52:48.464] grepl <- base::grepl 1568s [00:52:48.464] restarts <- computeRestarts(cond) 1568s [00:52:48.464] for (restart in restarts) { 1568s [00:52:48.464] name <- restart$name 1568s [00:52:48.464] if (is.null(name)) 1568s [00:52:48.464] next 1568s [00:52:48.464] if (!grepl(pattern, name)) 1568s [00:52:48.464] next 1568s [00:52:48.464] invokeRestart(restart) 1568s [00:52:48.464] muffled <- TRUE 1568s [00:52:48.464] break 1568s [00:52:48.464] } 1568s [00:52:48.464] } 1568s [00:52:48.464] } 1568s [00:52:48.464] invisible(muffled) 1568s [00:52:48.464] } 1568s [00:52:48.464] muffleCondition(cond, pattern = "^muffle") 1568s [00:52:48.464] } 1568s [00:52:48.464] } 1568s [00:52:48.464] else { 1568s [00:52:48.464] if (TRUE) { 1568s [00:52:48.464] muffleCondition <- function (cond, pattern = "^muffle") 1568s [00:52:48.464] { 1568s [00:52:48.464] inherits <- base::inherits 1568s [00:52:48.464] invokeRestart <- base::invokeRestart 1568s [00:52:48.464] is.null <- base::is.null 1568s [00:52:48.464] muffled <- FALSE 1568s [00:52:48.464] if (inherits(cond, "message")) { 1568s [00:52:48.464] muffled <- grepl(pattern, "muffleMessage") 1568s [00:52:48.464] if (muffled) 1568s [00:52:48.464] invokeRestart("muffleMessage") 1568s [00:52:48.464] } 1568s [00:52:48.464] else if (inherits(cond, "warning")) { 1568s [00:52:48.464] muffled <- grepl(pattern, "muffleWarning") 1568s [00:52:48.464] if (muffled) 1568s [00:52:48.464] invokeRestart("muffleWarning") 1568s [00:52:48.464] } 1568s [00:52:48.464] else if (inherits(cond, "condition")) { 1568s [00:52:48.464] if (!is.null(pattern)) { 1568s [00:52:48.464] computeRestarts <- base::computeRestarts 1568s [00:52:48.464] grepl <- base::grepl 1568s [00:52:48.464] restarts <- computeRestarts(cond) 1568s [00:52:48.464] for (restart in restarts) { 1568s [00:52:48.464] name <- restart$name 1568s [00:52:48.464] if (is.null(name)) 1568s [00:52:48.464] next 1568s [00:52:48.464] if (!grepl(pattern, name)) 1568s [00:52:48.464] next 1568s [00:52:48.464] invokeRestart(restart) 1568s [00:52:48.464] muffled <- TRUE 1568s [00:52:48.464] break 1568s [00:52:48.464] } 1568s [00:52:48.464] } 1568s [00:52:48.464] } 1568s [00:52:48.464] invisible(muffled) 1568s [00:52:48.464] } 1568s [00:52:48.464] muffleCondition(cond, pattern = "^muffle") 1568s [00:52:48.464] } 1568s [00:52:48.464] } 1568s [00:52:48.464] } 1568s [00:52:48.464] })) 1568s [00:52:48.464] }, error = function(ex) { 1568s [00:52:48.464] base::structure(base::list(value = NULL, visible = NULL, 1568s [00:52:48.464] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1568s [00:52:48.464] ...future.rng), started = ...future.startTime, 1568s [00:52:48.464] finished = Sys.time(), session_uuid = NA_character_, 1568s [00:52:48.464] version = "1.8"), class = "FutureResult") 1568s [00:52:48.464] }, finally = { 1568s [00:52:48.464] if (!identical(...future.workdir, getwd())) 1568s [00:52:48.464] setwd(...future.workdir) 1568s [00:52:48.464] { 1568s [00:52:48.464] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1568s [00:52:48.464] ...future.oldOptions$nwarnings <- NULL 1568s [00:52:48.464] } 1568s [00:52:48.464] base::options(...future.oldOptions) 1568s [00:52:48.464] if (.Platform$OS.type == "windows") { 1568s [00:52:48.464] old_names <- names(...future.oldEnvVars) 1568s [00:52:48.464] envs <- base::Sys.getenv() 1568s [00:52:48.464] names <- names(envs) 1568s [00:52:48.464] common <- intersect(names, old_names) 1568s [00:52:48.464] added <- setdiff(names, old_names) 1568s [00:52:48.464] removed <- setdiff(old_names, names) 1568s [00:52:48.464] changed <- common[...future.oldEnvVars[common] != 1568s [00:52:48.464] envs[common]] 1568s [00:52:48.464] NAMES <- toupper(changed) 1568s [00:52:48.464] args <- list() 1568s [00:52:48.464] for (kk in seq_along(NAMES)) { 1568s [00:52:48.464] name <- changed[[kk]] 1568s [00:52:48.464] NAME <- NAMES[[kk]] 1568s [00:52:48.464] if (name != NAME && is.element(NAME, old_names)) 1568s [00:52:48.464] next 1568s [00:52:48.464] args[[name]] <- ...future.oldEnvVars[[name]] 1568s [00:52:48.464] } 1568s [00:52:48.464] NAMES <- toupper(added) 1568s [00:52:48.464] for (kk in seq_along(NAMES)) { 1568s [00:52:48.464] name <- added[[kk]] 1568s [00:52:48.464] NAME <- NAMES[[kk]] 1568s [00:52:48.464] if (name != NAME && is.element(NAME, old_names)) 1568s [00:52:48.464] next 1568s [00:52:48.464] args[[name]] <- "" 1568s [00:52:48.464] } 1568s [00:52:48.464] NAMES <- toupper(removed) 1568s [00:52:48.464] for (kk in seq_along(NAMES)) { 1568s [00:52:48.464] name <- removed[[kk]] 1568s [00:52:48.464] NAME <- NAMES[[kk]] 1568s [00:52:48.464] if (name != NAME && is.element(NAME, old_names)) 1568s [00:52:48.464] next 1568s [00:52:48.464] args[[name]] <- ...future.oldEnvVars[[name]] 1568s [00:52:48.464] } 1568s [00:52:48.464] if (length(args) > 0) 1568s [00:52:48.464] base::do.call(base::Sys.setenv, args = args) 1568s [00:52:48.464] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1568s [00:52:48.464] } 1568s [00:52:48.464] else { 1568s [00:52:48.464] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1568s [00:52:48.464] } 1568s [00:52:48.464] { 1568s [00:52:48.464] if (base::length(...future.futureOptionsAdded) > 1568s [00:52:48.464] 0L) { 1568s [00:52:48.464] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1568s [00:52:48.464] base::names(opts) <- ...future.futureOptionsAdded 1568s [00:52:48.464] base::options(opts) 1568s [00:52:48.464] } 1568s [00:52:48.464] { 1568s [00:52:48.464] { 1568s [00:52:48.464] NULL 1568s [00:52:48.464] RNGkind("Mersenne-Twister") 1568s [00:52:48.464] base::rm(list = ".Random.seed", envir = base::globalenv(), 1568s [00:52:48.464] inherits = FALSE) 1568s [00:52:48.464] } 1568s [00:52:48.464] options(future.plan = NULL) 1568s [00:52:48.464] if (is.na(NA_character_)) 1568s [00:52:48.464] Sys.unsetenv("R_FUTURE_PLAN") 1568s [00:52:48.464] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1568s [00:52:48.464] future::plan(list(function (..., envir = parent.frame()) 1568s [00:52:48.464] { 1568s [00:52:48.464] future <- SequentialFuture(..., envir = envir) 1568s [00:52:48.464] if (!future$lazy) 1568s [00:52:48.464] future <- run(future) 1568s [00:52:48.464] invisible(future) 1568s [00:52:48.464] }), .cleanup = FALSE, .init = FALSE) 1568s [00:52:48.464] } 1568s [00:52:48.464] } 1568s [00:52:48.464] } 1568s [00:52:48.464] }) 1568s [00:52:48.464] if (TRUE) { 1568s [00:52:48.464] base::sink(type = "output", split = FALSE) 1568s [00:52:48.464] if (TRUE) { 1568s [00:52:48.464] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1568s [00:52:48.464] } 1568s [00:52:48.464] else { 1568s [00:52:48.464] ...future.result["stdout"] <- base::list(NULL) 1568s [00:52:48.464] } 1568s [00:52:48.464] base::close(...future.stdout) 1568s [00:52:48.464] ...future.stdout <- NULL 1568s [00:52:48.464] } 1568s [00:52:48.464] ...future.result$conditions <- ...future.conditions 1568s [00:52:48.464] ...future.result$finished <- base::Sys.time() 1568s [00:52:48.464] ...future.result 1568s [00:52:48.464] } 1568s [00:52:48.469] assign_globals() ... 1568s [00:52:48.469] List of 5 1568s [00:52:48.469] $ ...future.FUN :function (x, ...) 1568s [00:52:48.469] $ future.call.arguments : list() 1568s [00:52:48.469] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1568s [00:52:48.469] $ ...future.elements_ii :List of 3 1568s [00:52:48.469] ..$ a: num 1 1568s [00:52:48.469] ..$ b: num 2 1568s [00:52:48.469] ..$ c: num 3 1568s [00:52:48.469] $ ...future.seeds_ii : NULL 1568s [00:52:48.469] $ ...future.globals.maxSize: NULL 1568s [00:52:48.469] - attr(*, "where")=List of 5 1568s [00:52:48.469] ..$ ...future.FUN : 1568s [00:52:48.469] ..$ future.call.arguments : 1568s [00:52:48.469] ..$ ...future.elements_ii : 1568s [00:52:48.469] ..$ ...future.seeds_ii : 1568s [00:52:48.469] ..$ ...future.globals.maxSize: 1568s [00:52:48.469] - attr(*, "resolved")= logi FALSE 1568s [00:52:48.469] - attr(*, "total_size")= num 1248 1568s [00:52:48.469] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1568s [00:52:48.469] - attr(*, "already-done")= logi TRUE 1568s [00:52:48.476] - copied ‘...future.FUN’ to environment 1568s [00:52:48.476] - copied ‘future.call.arguments’ to environment 1568s [00:52:48.476] - copied ‘...future.elements_ii’ to environment 1568s [00:52:48.476] - copied ‘...future.seeds_ii’ to environment 1568s [00:52:48.476] - copied ‘...future.globals.maxSize’ to environment 1568s [00:52:48.477] assign_globals() ... done 1568s [00:52:48.477] plan(): Setting new future strategy stack: 1568s [00:52:48.477] List of future strategies: 1568s [00:52:48.477] 1. sequential: 1568s [00:52:48.477] - args: function (..., envir = parent.frame()) 1568s [00:52:48.477] - tweaked: FALSE 1568s [00:52:48.477] - call: NULL 1568s [00:52:48.477] plan(): nbrOfWorkers() = 1 1568s [00:52:48.478] plan(): Setting new future strategy stack: 1568s [00:52:48.478] List of future strategies: 1568s [00:52:48.478] 1. sequential: 1568s [00:52:48.478] - args: function (..., envir = parent.frame()) 1568s [00:52:48.478] - tweaked: FALSE 1568s [00:52:48.478] - call: plan(strategy) 1568s [00:52:48.479] plan(): nbrOfWorkers() = 1 1568s [00:52:48.479] SequentialFuture started (and completed) 1568s [00:52:48.479] - Launch lazy future ... done 1568s [00:52:48.479] run() for ‘SequentialFuture’ ... done 1568s [00:52:48.479] Created future: 1568s [00:52:48.480] SequentialFuture: 1568s [00:52:48.480] Label: ‘future_sapply-1’ 1568s [00:52:48.480] Expression: 1568s [00:52:48.480] { 1568s [00:52:48.480] do.call(function(...) { 1568s [00:52:48.480] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1568s [00:52:48.480] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1568s [00:52:48.480] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1568s [00:52:48.480] on.exit(options(oopts), add = TRUE) 1568s [00:52:48.480] } 1568s [00:52:48.480] { 1568s [00:52:48.480] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1568s [00:52:48.480] ...future.X_jj <- ...future.elements_ii[[jj]] 1568s [00:52:48.480] ...future.FUN(...future.X_jj, ...) 1568s [00:52:48.480] }) 1568s [00:52:48.480] } 1568s [00:52:48.480] }, args = future.call.arguments) 1568s [00:52:48.480] } 1568s [00:52:48.480] Lazy evaluation: FALSE 1568s [00:52:48.480] Asynchronous evaluation: FALSE 1568s [00:52:48.480] Local evaluation: TRUE 1568s [00:52:48.480] Environment: R_GlobalEnv 1568s [00:52:48.480] Capture standard output: TRUE 1568s [00:52:48.480] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1568s [00:52:48.480] Globals: 5 objects totaling 1.38 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1568s [00:52:48.480] Packages: 1568s [00:52:48.480] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1568s [00:52:48.480] Resolved: TRUE 1568s [00:52:48.480] Value: 672 bytes of class ‘list’ 1568s [00:52:48.480] Early signaling: FALSE 1568s [00:52:48.480] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1568s [00:52:48.480] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1568s [00:52:48.482] Chunk #1 of 1 ... DONE 1568s [00:52:48.482] Launching 1 futures (chunks) ... DONE 1568s [00:52:48.482] Resolving 1 futures (chunks) ... 1568s [00:52:48.482] resolve() on list ... 1568s [00:52:48.482] recursive: 0 1568s [00:52:48.483] length: 1 1568s [00:52:48.483] 1568s [00:52:48.483] resolved() for ‘SequentialFuture’ ... 1568s [00:52:48.483] - state: ‘finished’ 1568s [00:52:48.483] - run: TRUE 1568s [00:52:48.483] - result: ‘FutureResult’ 1568s [00:52:48.483] resolved() for ‘SequentialFuture’ ... done 1568s [00:52:48.483] Future #1 1568s [00:52:48.484] signalConditionsASAP(SequentialFuture, pos=1) ... 1568s [00:52:48.484] - nx: 1 1568s [00:52:48.484] - relay: TRUE 1568s [00:52:48.484] - stdout: TRUE 1568s [00:52:48.484] - signal: TRUE 1568s [00:52:48.484] - resignal: FALSE 1568s [00:52:48.484] - force: TRUE 1568s [00:52:48.484] - relayed: [n=1] FALSE 1568s [00:52:48.484] - queued futures: [n=1] FALSE 1568s [00:52:48.485] - until=1 1568s [00:52:48.485] - relaying element #1 1568s [00:52:48.485] - relayed: [n=1] TRUE 1568s [00:52:48.485] - queued futures: [n=1] TRUE 1568s [00:52:48.485] signalConditionsASAP(SequentialFuture, pos=1) ... done 1568s [00:52:48.485] length: 0 (resolved future 1) 1568s [00:52:48.485] Relaying remaining futures 1568s [00:52:48.485] signalConditionsASAP(NULL, pos=0) ... 1568s [00:52:48.486] - nx: 1 1568s [00:52:48.486] - relay: TRUE 1568s [00:52:48.486] - stdout: TRUE 1568s [00:52:48.486] - signal: TRUE 1568s [00:52:48.486] - resignal: FALSE 1568s [00:52:48.486] - force: TRUE 1568s [00:52:48.486] - relayed: [n=1] TRUE 1568s [00:52:48.486] - queued futures: [n=1] TRUE 1568s - flush all 1568s [00:52:48.486] - relayed: [n=1] TRUE 1568s [00:52:48.486] - queued futures: [n=1] TRUE 1568s [00:52:48.487] signalConditionsASAP(NULL, pos=0) ... done 1568s [00:52:48.487] resolve() on list ... DONE 1568s [00:52:48.487] - Number of value chunks collected: 1 1568s [00:52:48.487] Resolving 1 futures (chunks) ... DONE 1568s [00:52:48.487] Reducing values from 1 chunks ... 1568s [00:52:48.487] - Number of values collected after concatenation: 3 1568s [00:52:48.487] - Number of values expected: 3 1568s [00:52:48.487] Reducing values from 1 chunks ... DONE 1568s [00:52:48.488] future_lapply() ... DONE 1568s [00:52:48.490] future_lapply() ... 1568s [00:52:48.491] Number of chunks: 1 1568s [00:52:48.491] getGlobalsAndPackagesXApply() ... 1568s [00:52:48.491] - future.globals: TRUE 1568s [00:52:48.492] getGlobalsAndPackages() ... 1568s [00:52:48.492] Searching for globals... 1568s [00:52:48.494] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1568s [00:52:48.494] Searching for globals ... DONE 1568s [00:52:48.494] Resolving globals: FALSE 1568s [00:52:48.494] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1568s [00:52:48.495] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1568s [00:52:48.495] - globals: [1] ‘FUN’ 1568s [00:52:48.495] 1568s [00:52:48.495] getGlobalsAndPackages() ... DONE 1568s [00:52:48.496] - globals found/used: [n=1] ‘FUN’ 1568s [00:52:48.496] - needed namespaces: [n=0] 1568s [00:52:48.496] Finding globals ... DONE 1568s [00:52:48.496] - use_args: TRUE 1568s [00:52:48.496] - Getting '...' globals ... 1568s [00:52:48.496] resolve() on list ... 1568s [00:52:48.497] recursive: 0 1568s [00:52:48.497] length: 1 1568s [00:52:48.497] elements: ‘...’ 1568s [00:52:48.497] length: 0 (resolved future 1) 1568s [00:52:48.497] resolve() on list ... DONE 1568s [00:52:48.498] - '...' content: [n=0] 1568s [00:52:48.498] List of 1 1568s [00:52:48.498] $ ...: list() 1568s [00:52:48.498] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1568s [00:52:48.498] - attr(*, "where")=List of 1 1568s [00:52:48.498] ..$ ...: 1568s [00:52:48.498] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1568s [00:52:48.498] - attr(*, "resolved")= logi TRUE 1568s [00:52:48.498] - attr(*, "total_size")= num NA 1568s [00:52:48.502] - Getting '...' globals ... DONE 1568s [00:52:48.502] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1568s [00:52:48.503] List of 2 1568s [00:52:48.503] $ ...future.FUN:function (x, y = 2 * 1:5) 1568s [00:52:48.503] $ ... : list() 1568s [00:52:48.503] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1568s [00:52:48.503] - attr(*, "where")=List of 2 1568s [00:52:48.503] ..$ ...future.FUN: 1568s [00:52:48.503] ..$ ... : 1568s [00:52:48.503] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1568s [00:52:48.503] - attr(*, "resolved")= logi FALSE 1568s [00:52:48.503] - attr(*, "total_size")= num 4728 1568s [00:52:48.506] Packages to be attached in all futures: [n=0] 1568s [00:52:48.506] getGlobalsAndPackagesXApply() ... DONE 1568s [00:52:48.507] Number of futures (= number of chunks): 1 1568s [00:52:48.507] Launching 1 futures (chunks) ... 1568s [00:52:48.507] Chunk #1 of 1 ... 1568s [00:52:48.507] - Finding globals in 'X' for chunk #1 ... 1568s [00:52:48.507] getGlobalsAndPackages() ... 1568s [00:52:48.507] Searching for globals... 1568s [00:52:48.508] 1568s [00:52:48.508] Searching for globals ... DONE 1568s [00:52:48.508] - globals: [0] 1568s [00:52:48.508] getGlobalsAndPackages() ... DONE 1568s [00:52:48.508] + additional globals found: [n=0] 1568s [00:52:48.508] + additional namespaces needed: [n=0] 1568s [00:52:48.508] - Finding globals in 'X' for chunk #1 ... DONE 1568s [00:52:48.509] - seeds: 1568s [00:52:48.509] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1568s [00:52:48.509] getGlobalsAndPackages() ... 1568s [00:52:48.509] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1568s [00:52:48.509] Resolving globals: FALSE 1568s [00:52:48.509] Tweak future expression to call with '...' arguments ... 1568s [00:52:48.510] { 1568s [00:52:48.510] do.call(function(...) { 1568s [00:52:48.510] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1568s [00:52:48.510] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1568s [00:52:48.510] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1568s [00:52:48.510] on.exit(options(oopts), add = TRUE) 1568s [00:52:48.510] } 1568s [00:52:48.510] { 1568s [00:52:48.510] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1568s [00:52:48.510] ...future.X_jj <- ...future.elements_ii[[jj]] 1568s [00:52:48.510] ...future.FUN(...future.X_jj, ...) 1568s [00:52:48.510] }) 1568s [00:52:48.510] } 1568s [00:52:48.510] }, args = future.call.arguments) 1568s [00:52:48.510] } 1568s [00:52:48.510] Tweak future expression to call with '...' arguments ... DONE 1568s [00:52:48.511] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1568s [00:52:48.511] 1568s [00:52:48.512] getGlobalsAndPackages() ... DONE 1568s [00:52:48.512] run() for ‘Future’ ... 1568s [00:52:48.512] - state: ‘created’ 1568s [00:52:48.512] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1568s [00:52:48.513] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1568s [00:52:48.513] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1568s [00:52:48.513] - Field: ‘label’ 1568s [00:52:48.513] - Field: ‘local’ 1568s [00:52:48.513] - Field: ‘owner’ 1568s [00:52:48.513] - Field: ‘envir’ 1568s [00:52:48.514] - Field: ‘packages’ 1568s [00:52:48.514] - Field: ‘gc’ 1568s [00:52:48.514] - Field: ‘conditions’ 1568s [00:52:48.514] - Field: ‘expr’ 1568s [00:52:48.514] - Field: ‘uuid’ 1568s [00:52:48.514] - Field: ‘seed’ 1568s [00:52:48.514] - Field: ‘version’ 1568s [00:52:48.515] - Field: ‘result’ 1568s [00:52:48.515] - Field: ‘asynchronous’ 1568s [00:52:48.515] - Field: ‘calls’ 1568s [00:52:48.515] - Field: ‘globals’ 1568s [00:52:48.515] - Field: ‘stdout’ 1568s [00:52:48.515] - Field: ‘earlySignal’ 1568s [00:52:48.515] - Field: ‘lazy’ 1568s [00:52:48.516] - Field: ‘state’ 1568s [00:52:48.516] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1568s [00:52:48.516] - Launch lazy future ... 1568s [00:52:48.516] Packages needed by the future expression (n = 0): 1568s [00:52:48.516] Packages needed by future strategies (n = 0): 1568s [00:52:48.517] { 1568s [00:52:48.517] { 1568s [00:52:48.517] { 1568s [00:52:48.517] ...future.startTime <- base::Sys.time() 1568s [00:52:48.517] { 1568s [00:52:48.517] { 1568s [00:52:48.517] { 1568s [00:52:48.517] base::local({ 1568s [00:52:48.517] has_future <- base::requireNamespace("future", 1568s [00:52:48.517] quietly = TRUE) 1568s [00:52:48.517] if (has_future) { 1568s [00:52:48.517] ns <- base::getNamespace("future") 1568s [00:52:48.517] version <- ns[[".package"]][["version"]] 1568s [00:52:48.517] if (is.null(version)) 1568s [00:52:48.517] version <- utils::packageVersion("future") 1568s [00:52:48.517] } 1568s [00:52:48.517] else { 1568s [00:52:48.517] version <- NULL 1568s [00:52:48.517] } 1568s [00:52:48.517] if (!has_future || version < "1.8.0") { 1568s [00:52:48.517] info <- base::c(r_version = base::gsub("R version ", 1568s [00:52:48.517] "", base::R.version$version.string), 1568s [00:52:48.517] platform = base::sprintf("%s (%s-bit)", 1568s [00:52:48.517] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1568s [00:52:48.517] os = base::paste(base::Sys.info()[base::c("sysname", 1568s [00:52:48.517] "release", "version")], collapse = " "), 1568s [00:52:48.517] hostname = base::Sys.info()[["nodename"]]) 1568s [00:52:48.517] info <- base::sprintf("%s: %s", base::names(info), 1568s [00:52:48.517] info) 1568s [00:52:48.517] info <- base::paste(info, collapse = "; ") 1568s [00:52:48.517] if (!has_future) { 1568s [00:52:48.517] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1568s [00:52:48.517] info) 1568s [00:52:48.517] } 1568s [00:52:48.517] else { 1568s [00:52:48.517] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1568s [00:52:48.517] info, version) 1568s [00:52:48.517] } 1568s [00:52:48.517] base::stop(msg) 1568s [00:52:48.517] } 1568s [00:52:48.517] }) 1568s [00:52:48.517] } 1568s [00:52:48.517] options(future.plan = NULL) 1568s [00:52:48.517] Sys.unsetenv("R_FUTURE_PLAN") 1568s [00:52:48.517] future::plan("default", .cleanup = FALSE, .init = FALSE) 1568s [00:52:48.517] } 1568s [00:52:48.517] ...future.workdir <- getwd() 1568s [00:52:48.517] } 1568s [00:52:48.517] ...future.oldOptions <- base::as.list(base::.Options) 1568s [00:52:48.517] ...future.oldEnvVars <- base::Sys.getenv() 1568s [00:52:48.517] } 1568s [00:52:48.517] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1568s [00:52:48.517] future.globals.maxSize = NULL, future.globals.method = NULL, 1568s [00:52:48.517] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1568s [00:52:48.517] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1568s [00:52:48.517] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1568s [00:52:48.517] future.stdout.windows.reencode = NULL, width = 80L) 1568s [00:52:48.517] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1568s [00:52:48.517] base::names(...future.oldOptions)) 1568s [00:52:48.517] } 1568s [00:52:48.517] if (FALSE) { 1568s [00:52:48.517] } 1568s [00:52:48.517] else { 1568s [00:52:48.517] if (TRUE) { 1568s [00:52:48.517] ...future.stdout <- base::rawConnection(base::raw(0L), 1568s [00:52:48.517] open = "w") 1568s [00:52:48.517] } 1568s [00:52:48.517] else { 1568s [00:52:48.517] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1568s [00:52:48.517] windows = "NUL", "/dev/null"), open = "w") 1568s [00:52:48.517] } 1568s [00:52:48.517] base::sink(...future.stdout, type = "output", split = FALSE) 1568s [00:52:48.517] base::on.exit(if (!base::is.null(...future.stdout)) { 1568s [00:52:48.517] base::sink(type = "output", split = FALSE) 1568s [00:52:48.517] base::close(...future.stdout) 1568s [00:52:48.517] }, add = TRUE) 1568s [00:52:48.517] } 1568s [00:52:48.517] ...future.frame <- base::sys.nframe() 1568s [00:52:48.517] ...future.conditions <- base::list() 1568s [00:52:48.517] ...future.rng <- base::globalenv()$.Random.seed 1568s [00:52:48.517] if (FALSE) { 1568s [00:52:48.517] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1568s [00:52:48.517] "...future.value", "...future.globalenv.names", ".Random.seed") 1568s [00:52:48.517] } 1568s [00:52:48.517] ...future.result <- base::tryCatch({ 1568s [00:52:48.517] base::withCallingHandlers({ 1568s [00:52:48.517] ...future.value <- base::withVisible(base::local({ 1568s [00:52:48.517] do.call(function(...) { 1568s [00:52:48.517] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1568s [00:52:48.517] if (!identical(...future.globals.maxSize.org, 1568s [00:52:48.517] ...future.globals.maxSize)) { 1568s [00:52:48.517] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1568s [00:52:48.517] on.exit(options(oopts), add = TRUE) 1568s [00:52:48.517] } 1568s [00:52:48.517] { 1568s [00:52:48.517] lapply(seq_along(...future.elements_ii), 1568s [00:52:48.517] FUN = function(jj) { 1568s [00:52:48.517] ...future.X_jj <- ...future.elements_ii[[jj]] 1568s [00:52:48.517] ...future.FUN(...future.X_jj, ...) 1568s [00:52:48.517] }) 1568s [00:52:48.517] } 1568s [00:52:48.517] }, args = future.call.arguments) 1568s [00:52:48.517] })) 1568s [00:52:48.517] future::FutureResult(value = ...future.value$value, 1568s [00:52:48.517] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1568s [00:52:48.517] ...future.rng), globalenv = if (FALSE) 1568s [00:52:48.517] list(added = base::setdiff(base::names(base::.GlobalEnv), 1568s [00:52:48.517] ...future.globalenv.names)) 1568s [00:52:48.517] else NULL, started = ...future.startTime, version = "1.8") 1568s [00:52:48.517] }, condition = base::local({ 1568s [00:52:48.517] c <- base::c 1568s [00:52:48.517] inherits <- base::inherits 1568s [00:52:48.517] invokeRestart <- base::invokeRestart 1568s [00:52:48.517] length <- base::length 1568s [00:52:48.517] list <- base::list 1568s [00:52:48.517] seq.int <- base::seq.int 1568s [00:52:48.517] signalCondition <- base::signalCondition 1568s [00:52:48.517] sys.calls <- base::sys.calls 1568s [00:52:48.517] `[[` <- base::`[[` 1568s [00:52:48.517] `+` <- base::`+` 1568s [00:52:48.517] `<<-` <- base::`<<-` 1568s [00:52:48.517] sysCalls <- function(calls = sys.calls(), from = 1L) { 1568s [00:52:48.517] calls[seq.int(from = from + 12L, to = length(calls) - 1568s [00:52:48.517] 3L)] 1568s [00:52:48.517] } 1568s [00:52:48.517] function(cond) { 1568s [00:52:48.517] is_error <- inherits(cond, "error") 1568s [00:52:48.517] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1568s [00:52:48.517] NULL) 1568s [00:52:48.517] if (is_error) { 1568s [00:52:48.517] sessionInformation <- function() { 1568s [00:52:48.517] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1568s [00:52:48.517] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1568s [00:52:48.517] search = base::search(), system = base::Sys.info()) 1568s [00:52:48.517] } 1568s [00:52:48.517] ...future.conditions[[length(...future.conditions) + 1568s [00:52:48.517] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1568s [00:52:48.517] cond$call), session = sessionInformation(), 1568s [00:52:48.517] timestamp = base::Sys.time(), signaled = 0L) 1568s [00:52:48.517] signalCondition(cond) 1568s [00:52:48.517] } 1568s [00:52:48.517] else if (!ignore && TRUE && inherits(cond, c("condition", 1568s [00:52:48.517] "immediateCondition"))) { 1568s [00:52:48.517] signal <- TRUE && inherits(cond, "immediateCondition") 1568s [00:52:48.517] ...future.conditions[[length(...future.conditions) + 1568s [00:52:48.517] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1568s [00:52:48.517] if (TRUE && !signal) { 1568s [00:52:48.517] muffleCondition <- function (cond, pattern = "^muffle") 1568s [00:52:48.517] { 1568s [00:52:48.517] inherits <- base::inherits 1568s [00:52:48.517] invokeRestart <- base::invokeRestart 1568s [00:52:48.517] is.null <- base::is.null 1568s [00:52:48.517] muffled <- FALSE 1568s [00:52:48.517] if (inherits(cond, "message")) { 1568s [00:52:48.517] muffled <- grepl(pattern, "muffleMessage") 1568s [00:52:48.517] if (muffled) 1568s [00:52:48.517] invokeRestart("muffleMessage") 1568s [00:52:48.517] } 1568s [00:52:48.517] else if (inherits(cond, "warning")) { 1568s [00:52:48.517] muffled <- grepl(pattern, "muffleWarning") 1568s [00:52:48.517] if (muffled) 1568s [00:52:48.517] invokeRestart("muffleWarning") 1568s [00:52:48.517] } 1568s [00:52:48.517] else if (inherits(cond, "condition")) { 1568s [00:52:48.517] if (!is.null(pattern)) { 1568s [00:52:48.517] computeRestarts <- base::computeRestarts 1568s [00:52:48.517] grepl <- base::grepl 1568s [00:52:48.517] restarts <- computeRestarts(cond) 1568s [00:52:48.517] for (restart in restarts) { 1568s [00:52:48.517] name <- restart$name 1568s [00:52:48.517] if (is.null(name)) 1568s [00:52:48.517] next 1568s [00:52:48.517] if (!grepl(pattern, name)) 1568s [00:52:48.517] next 1568s [00:52:48.517] invokeRestart(restart) 1568s [00:52:48.517] muffled <- TRUE 1568s [00:52:48.517] break 1568s [00:52:48.517] } 1568s [00:52:48.517] } 1568s [00:52:48.517] } 1568s [00:52:48.517] invisible(muffled) 1568s [00:52:48.517] } 1568s [00:52:48.517] muffleCondition(cond, pattern = "^muffle") 1568s [00:52:48.517] } 1568s [00:52:48.517] } 1568s [00:52:48.517] else { 1568s [00:52:48.517] if (TRUE) { 1568s [00:52:48.517] muffleCondition <- function (cond, pattern = "^muffle") 1568s [00:52:48.517] { 1568s [00:52:48.517] inherits <- base::inherits 1568s [00:52:48.517] invokeRestart <- base::invokeRestart 1568s [00:52:48.517] is.null <- base::is.null 1568s [00:52:48.517] muffled <- FALSE 1568s [00:52:48.517] if (inherits(cond, "message")) { 1568s [00:52:48.517] muffled <- grepl(pattern, "muffleMessage") 1568s [00:52:48.517] if (muffled) 1568s [00:52:48.517] invokeRestart("muffleMessage") 1568s [00:52:48.517] } 1568s [00:52:48.517] else if (inherits(cond, "warning")) { 1568s [00:52:48.517] muffled <- grepl(pattern, "muffleWarning") 1568s [00:52:48.517] if (muffled) 1568s [00:52:48.517] invokeRestart("muffleWarning") 1568s [00:52:48.517] } 1568s [00:52:48.517] else if (inherits(cond, "condition")) { 1568s [00:52:48.517] if (!is.null(pattern)) { 1568s [00:52:48.517] computeRestarts <- base::computeRestarts 1568s [00:52:48.517] grepl <- base::grepl 1568s [00:52:48.517] restarts <- computeRestarts(cond) 1568s [00:52:48.517] for (restart in restarts) { 1568s [00:52:48.517] name <- restart$name 1568s [00:52:48.517] if (is.null(name)) 1568s [00:52:48.517] next 1568s [00:52:48.517] if (!grepl(pattern, name)) 1568s [00:52:48.517] next 1568s [00:52:48.517] invokeRestart(restart) 1568s [00:52:48.517] muffled <- TRUE 1568s [00:52:48.517] break 1568s [00:52:48.517] } 1568s [00:52:48.517] } 1568s [00:52:48.517] } 1568s [00:52:48.517] invisible(muffled) 1568s [00:52:48.517] } 1568s [00:52:48.517] muffleCondition(cond, pattern = "^muffle") 1568s [00:52:48.517] } 1568s [00:52:48.517] } 1568s [00:52:48.517] } 1568s [00:52:48.517] })) 1568s [00:52:48.517] }, error = function(ex) { 1568s [00:52:48.517] base::structure(base::list(value = NULL, visible = NULL, 1568s [00:52:48.517] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1568s [00:52:48.517] ...future.rng), started = ...future.startTime, 1568s [00:52:48.517] finished = Sys.time(), session_uuid = NA_character_, 1568s [00:52:48.517] version = "1.8"), class = "FutureResult") 1568s [00:52:48.517] }, finally = { 1568s [00:52:48.517] if (!identical(...future.workdir, getwd())) 1568s [00:52:48.517] setwd(...future.workdir) 1568s [00:52:48.517] { 1568s [00:52:48.517] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1568s [00:52:48.517] ...future.oldOptions$nwarnings <- NULL 1568s [00:52:48.517] } 1568s [00:52:48.517] base::options(...future.oldOptions) 1568s [00:52:48.517] if (.Platform$OS.type == "windows") { 1568s [00:52:48.517] old_names <- names(...future.oldEnvVars) 1568s [00:52:48.517] envs <- base::Sys.getenv() 1568s [00:52:48.517] names <- names(envs) 1568s [00:52:48.517] common <- intersect(names, old_names) 1568s [00:52:48.517] added <- setdiff(names, old_names) 1568s [00:52:48.517] removed <- setdiff(old_names, names) 1568s [00:52:48.517] changed <- common[...future.oldEnvVars[common] != 1568s [00:52:48.517] envs[common]] 1568s [00:52:48.517] NAMES <- toupper(changed) 1568s [00:52:48.517] args <- list() 1568s [00:52:48.517] for (kk in seq_along(NAMES)) { 1568s [00:52:48.517] name <- changed[[kk]] 1568s [00:52:48.517] NAME <- NAMES[[kk]] 1568s [00:52:48.517] if (name != NAME && is.element(NAME, old_names)) 1568s [00:52:48.517] next 1568s [00:52:48.517] args[[name]] <- ...future.oldEnvVars[[name]] 1568s [00:52:48.517] } 1568s [00:52:48.517] NAMES <- toupper(added) 1568s [00:52:48.517] for (kk in seq_along(NAMES)) { 1568s [00:52:48.517] name <- added[[kk]] 1568s [00:52:48.517] NAME <- NAMES[[kk]] 1568s [00:52:48.517] if (name != NAME && is.element(NAME, old_names)) 1568s [00:52:48.517] next 1568s [00:52:48.517] args[[name]] <- "" 1568s [00:52:48.517] } 1568s [00:52:48.517] NAMES <- toupper(removed) 1568s [00:52:48.517] for (kk in seq_along(NAMES)) { 1568s [00:52:48.517] name <- removed[[kk]] 1568s [00:52:48.517] NAME <- NAMES[[kk]] 1568s [00:52:48.517] if (name != NAME && is.element(NAME, old_names)) 1568s [00:52:48.517] next 1568s [00:52:48.517] args[[name]] <- ...future.oldEnvVars[[name]] 1568s [00:52:48.517] } 1568s [00:52:48.517] if (length(args) > 0) 1568s [00:52:48.517] base::do.call(base::Sys.setenv, args = args) 1568s [00:52:48.517] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1568s [00:52:48.517] } 1568s [00:52:48.517] else { 1568s [00:52:48.517] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1568s [00:52:48.517] } 1568s [00:52:48.517] { 1568s [00:52:48.517] if (base::length(...future.futureOptionsAdded) > 1568s [00:52:48.517] 0L) { 1568s [00:52:48.517] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1568s [00:52:48.517] base::names(opts) <- ...future.futureOptionsAdded 1568s [00:52:48.517] base::options(opts) 1568s [00:52:48.517] } 1568s [00:52:48.517] { 1568s [00:52:48.517] { 1568s [00:52:48.517] NULL 1568s [00:52:48.517] RNGkind("Mersenne-Twister") 1568s [00:52:48.517] base::rm(list = ".Random.seed", envir = base::globalenv(), 1568s [00:52:48.517] inherits = FALSE) 1568s [00:52:48.517] } 1568s [00:52:48.517] options(future.plan = NULL) 1568s [00:52:48.517] if (is.na(NA_character_)) 1568s [00:52:48.517] Sys.unsetenv("R_FUTURE_PLAN") 1568s [00:52:48.517] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1568s [00:52:48.517] future::plan(list(function (..., envir = parent.frame()) 1568s [00:52:48.517] { 1568s [00:52:48.517] future <- SequentialFuture(..., envir = envir) 1568s [00:52:48.517] if (!future$lazy) 1568s [00:52:48.517] future <- run(future) 1568s [00:52:48.517] invisible(future) 1568s [00:52:48.517] }), .cleanup = FALSE, .init = FALSE) 1568s [00:52:48.517] } 1568s [00:52:48.517] } 1568s [00:52:48.517] } 1568s [00:52:48.517] }) 1568s [00:52:48.517] if (TRUE) { 1568s [00:52:48.517] base::sink(type = "output", split = FALSE) 1568s [00:52:48.517] if (TRUE) { 1568s [00:52:48.517] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1568s [00:52:48.517] } 1568s [00:52:48.517] else { 1568s [00:52:48.517] ...future.result["stdout"] <- base::list(NULL) 1568s [00:52:48.517] } 1568s [00:52:48.517] base::close(...future.stdout) 1568s [00:52:48.517] ...future.stdout <- NULL 1568s [00:52:48.517] } 1568s [00:52:48.517] ...future.result$conditions <- ...future.conditions 1568s [00:52:48.517] ...future.result$finished <- base::Sys.time() 1568s [00:52:48.517] ...future.result 1568s [00:52:48.517] } 1568s [00:52:48.521] assign_globals() ... 1568s [00:52:48.521] List of 5 1568s [00:52:48.521] $ ...future.FUN :function (x, y = 2 * 1:5) 1568s [00:52:48.521] $ future.call.arguments : list() 1568s [00:52:48.521] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1568s [00:52:48.521] $ ...future.elements_ii :List of 3 1568s [00:52:48.521] ..$ a: num 1 1568s [00:52:48.521] ..$ b: num 2 1568s [00:52:48.521] ..$ c: num 3 1568s [00:52:48.521] $ ...future.seeds_ii : NULL 1568s [00:52:48.521] $ ...future.globals.maxSize: NULL 1568s [00:52:48.521] - attr(*, "where")=List of 5 1568s [00:52:48.521] ..$ ...future.FUN : 1568s [00:52:48.521] ..$ future.call.arguments : 1568s [00:52:48.521] ..$ ...future.elements_ii : 1568s [00:52:48.521] ..$ ...future.seeds_ii : 1568s [00:52:48.521] ..$ ...future.globals.maxSize: 1568s [00:52:48.521] - attr(*, "resolved")= logi FALSE 1568s [00:52:48.521] - attr(*, "total_size")= num 4728 1568s [00:52:48.521] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1568s [00:52:48.521] - attr(*, "already-done")= logi TRUE 1568s [00:52:48.528] - reassign environment for ‘...future.FUN’ 1568s [00:52:48.528] - copied ‘...future.FUN’ to environment 1568s [00:52:48.528] - copied ‘future.call.arguments’ to environment 1568s [00:52:48.528] - copied ‘...future.elements_ii’ to environment 1568s [00:52:48.529] - copied ‘...future.seeds_ii’ to environment 1568s [00:52:48.529] - copied ‘...future.globals.maxSize’ to environment 1568s [00:52:48.529] assign_globals() ... done 1568s [00:52:48.529] plan(): Setting new future strategy stack: 1568s [00:52:48.529] List of future strategies: 1568s [00:52:48.529] 1. sequential: 1568s [00:52:48.529] - args: function (..., envir = parent.frame()) 1568s [00:52:48.529] - tweaked: FALSE 1568s [00:52:48.529] - call: NULL 1568s [00:52:48.529] plan(): nbrOfWorkers() = 1 1568s [00:52:48.530] plan(): Setting new future strategy stack: 1568s [00:52:48.531] List of future strategies: 1568s [00:52:48.531] 1. sequential: 1568s [00:52:48.531] - args: function (..., envir = parent.frame()) 1568s [00:52:48.531] - tweaked: FALSE 1568s [00:52:48.531] - call: plan(strategy) 1568s [00:52:48.531] plan(): nbrOfWorkers() = 1 1568s [00:52:48.531] SequentialFuture started (and completed) 1568s [00:52:48.531] - Launch lazy future ... done 1568s [00:52:48.532] run() for ‘SequentialFuture’ ... done 1568s [00:52:48.532] Created future: 1568s [00:52:48.532] SequentialFuture: 1568s [00:52:48.532] Label: ‘future_sapply-1’ 1568s [00:52:48.532] Expression: 1568s [00:52:48.532] { 1568s [00:52:48.532] do.call(function(...) { 1568s [00:52:48.532] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1568s [00:52:48.532] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1568s [00:52:48.532] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1568s [00:52:48.532] on.exit(options(oopts), add = TRUE) 1568s [00:52:48.532] } 1568s [00:52:48.532] { 1568s [00:52:48.532] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1568s [00:52:48.532] ...future.X_jj <- ...future.elements_ii[[jj]] 1568s [00:52:48.532] ...future.FUN(...future.X_jj, ...) 1568s [00:52:48.532] }) 1568s [00:52:48.532] } 1568s [00:52:48.532] }, args = future.call.arguments) 1568s [00:52:48.532] } 1568s [00:52:48.532] Lazy evaluation: FALSE 1568s [00:52:48.532] Asynchronous evaluation: FALSE 1568s [00:52:48.532] Local evaluation: TRUE 1568s [00:52:48.532] Environment: R_GlobalEnv 1568s [00:52:48.532] Capture standard output: TRUE 1568s [00:52:48.532] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1568s [00:52:48.532] Globals: 5 objects totaling 4.78 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1568s [00:52:48.532] Packages: 1568s [00:52:48.532] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1568s [00:52:48.532] Resolved: TRUE 1568s [00:52:48.532] Value: 1.01 KiB of class ‘list’ 1568s [00:52:48.532] Early signaling: FALSE 1568s [00:52:48.532] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1568s [00:52:48.532] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1568s [00:52:48.533] Chunk #1 of 1 ... DONE 1568s [00:52:48.533] Launching 1 futures (chunks) ... DONE 1568s [00:52:48.534] Resolving 1 futures (chunks) ... 1568s [00:52:48.534] resolve() on list ... 1568s [00:52:48.534] recursive: 0 1568s [00:52:48.534] length: 1 1568s [00:52:48.534] 1568s [00:52:48.534] resolved() for ‘SequentialFuture’ ... 1568s [00:52:48.534] - state: ‘finished’ 1568s [00:52:48.535] - run: TRUE 1568s [00:52:48.535] - result: ‘FutureResult’ 1568s [00:52:48.535] resolved() for ‘SequentialFuture’ ... done 1568s [00:52:48.535] Future #1 1568s [00:52:48.536] signalConditionsASAP(SequentialFuture, pos=1) ... 1568s [00:52:48.538] - nx: 1 1568s [00:52:48.538] - relay: TRUE 1568s [00:52:48.538] - stdout: TRUE 1568s [00:52:48.538] - signal: TRUE 1568s [00:52:48.538] - resignal: FALSE 1568s [00:52:48.539] - force: TRUE 1568s [00:52:48.539] - relayed: [n=1] FALSE 1568s [00:52:48.539] - queued futures: [n=1] FALSE 1568s [00:52:48.539] - until=1 1568s [00:52:48.539] - relaying element #1 1568s [00:52:48.539] - relayed: [n=1] TRUE 1568s [00:52:48.540] - queued futures: [n=1] TRUE 1568s [00:52:48.540] signalConditionsASAP(SequentialFuture, pos=1) ... done 1568s [00:52:48.540] length: 0 (resolved future 1) 1568s [00:52:48.540] Relaying remaining futures 1568s [00:52:48.540] signalConditionsASAP(NULL, pos=0) ... 1568s [00:52:48.540] - nx: 1 1568s [00:52:48.540] - relay: TRUE 1568s [00:52:48.541] - stdout: TRUE 1568s [00:52:48.541] - signal: TRUE 1568s [00:52:48.541] - resignal: FALSE 1568s [00:52:48.541] - force: TRUE 1568s [00:52:48.541] - relayed: [n=1] TRUE 1568s [00:52:48.541] - queued futures: [n=1] TRUE 1568s - flush all 1568s [00:52:48.542] - relayed: [n=1] TRUE 1568s [00:52:48.542] - queued futures: [n=1] TRUE 1568s [00:52:48.542] signalConditionsASAP(NULL, pos=0) ... done 1568s [00:52:48.542] resolve() on list ... DONE 1568s [00:52:48.543] - Number of value chunks collected: 1 1568s [00:52:48.543] Resolving 1 futures (chunks) ... DONE 1568s [00:52:48.543] Reducing values from 1 chunks ... 1568s [00:52:48.543] - Number of values collected after concatenation: 3 1568s [00:52:48.543] - Number of values expected: 3 1568s [00:52:48.543] Reducing values from 1 chunks ... DONE 1568s [00:52:48.543] future_lapply() ... DONE 1568s List of 2 1568s $ y0: num [1:3, 1:5, 1:3] 2 2 2 4 4 4 6 6 6 8 ... 1568s ..- attr(*, "dimnames")=List of 3 1568s .. ..$ : NULL 1568s .. ..$ : NULL 1568s .. ..$ : chr [1:3] "a" "b" "c" 1568s $ y1: num [1:3, 1:5, 1:3] 2 2 2 4 4 4 6 6 6 8 ... 1568s ..- attr(*, "dimnames")=List of 3 1568s .. ..$ : NULL 1568s .. ..$ : NULL 1568s .. ..$ [00:52:48.549] future_lapply() ... 1568s : chr [1:3] "a" "b" "c" 1568s [00:52:48.549] Number of chunks: 1 1568s [00:52:48.549] getGlobalsAndPackagesXApply() ... 1568s [00:52:48.550] - future.globals: TRUE 1568s [00:52:48.550] getGlobalsAndPackages() ... 1568s [00:52:48.550] Searching for globals... 1568s [00:52:48.551] - globals found: [1] ‘FUN’ 1568s [00:52:48.551] Searching for globals ... DONE 1568s [00:52:48.551] Resolving globals: FALSE 1568s [00:52:48.552] The total size of the 1 globals is 848 bytes (848 bytes) 1568s [00:52:48.552] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1568s [00:52:48.553] - globals: [1] ‘FUN’ 1568s [00:52:48.553] 1568s [00:52:48.553] getGlobalsAndPackages() ... DONE 1568s [00:52:48.553] - globals found/used: [n=1] ‘FUN’ 1568s [00:52:48.553] - needed namespaces: [n=0] 1568s [00:52:48.553] Finding globals ... DONE 1568s [00:52:48.553] - use_args: TRUE 1568s [00:52:48.554] - Getting '...' globals ... 1568s [00:52:48.554] resolve() on list ... 1568s [00:52:48.554] recursive: 0 1568s [00:52:48.554] length: 1 1568s [00:52:48.554] elements: ‘...’ 1568s [00:52:48.555] length: 0 (resolved future 1) 1568s [00:52:48.555] resolve() on list ... DONE 1568s [00:52:48.555] - '...' content: [n=0] 1568s [00:52:48.555] List of 1 1568s [00:52:48.555] $ ...: list() 1568s [00:52:48.555] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1568s [00:52:48.555] - attr(*, "where")=List of 1 1568s [00:52:48.555] ..$ ...: 1568s [00:52:48.555] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1568s [00:52:48.555] - attr(*, "resolved")= logi TRUE 1568s [00:52:48.555] - attr(*, "total_size")= num NA 1568s [00:52:48.558] - Getting '...' globals ... DONE 1568s [00:52:48.558] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1568s [00:52:48.558] List of 2 1568s [00:52:48.558] $ ...future.FUN:function (x) 1568s [00:52:48.558] $ ... : list() 1568s [00:52:48.558] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1568s [00:52:48.558] - attr(*, "where")=List of 2 1568s [00:52:48.558] ..$ ...future.FUN: 1568s [00:52:48.558] ..$ ... : 1568s [00:52:48.558] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1568s [00:52:48.558] - attr(*, "resolved")= logi FALSE 1568s [00:52:48.558] - attr(*, "total_size")= num 848 1568s [00:52:48.561] Packages to be attached in all futures: [n=0] 1568s [00:52:48.562] getGlobalsAndPackagesXApply() ... DONE 1568s [00:52:48.562] Number of futures (= number of chunks): 1 1568s [00:52:48.562] Launching 1 futures (chunks) ... 1568s [00:52:48.562] Chunk #1 of 1 ... 1568s [00:52:48.562] - Finding globals in 'X' for chunk #1 ... 1568s [00:52:48.562] getGlobalsAndPackages() ... 1568s [00:52:48.562] Searching for globals... 1568s [00:52:48.563] 1568s [00:52:48.563] Searching for globals ... DONE 1568s [00:52:48.563] - globals: [0] 1568s [00:52:48.563] getGlobalsAndPackages() ... DONE 1568s [00:52:48.563] + additional globals found: [n=0] 1568s [00:52:48.563] + additional namespaces needed: [n=0] 1568s [00:52:48.563] - Finding globals in 'X' for chunk #1 ... DONE 1568s [00:52:48.563] - seeds: 1568s [00:52:48.563] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1568s [00:52:48.564] getGlobalsAndPackages() ... 1568s [00:52:48.564] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1568s [00:52:48.564] Resolving globals: FALSE 1568s [00:52:48.564] Tweak future expression to call with '...' arguments ... 1568s [00:52:48.564] { 1568s [00:52:48.564] do.call(function(...) { 1568s [00:52:48.564] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1568s [00:52:48.564] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1568s [00:52:48.564] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1568s [00:52:48.564] on.exit(options(oopts), add = TRUE) 1568s [00:52:48.564] } 1568s [00:52:48.564] { 1568s [00:52:48.564] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1568s [00:52:48.564] ...future.X_jj <- ...future.elements_ii[[jj]] 1568s [00:52:48.564] ...future.FUN(...future.X_jj, ...) 1568s [00:52:48.564] }) 1568s [00:52:48.564] } 1568s [00:52:48.564] }, args = future.call.arguments) 1568s [00:52:48.564] } 1568s [00:52:48.564] Tweak future expression to call with '...' arguments ... DONE 1568s [00:52:48.565] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1568s [00:52:48.565] 1568s [00:52:48.565] getGlobalsAndPackages() ... DONE 1568s [00:52:48.565] run() for ‘Future’ ... 1568s [00:52:48.565] - state: ‘created’ 1568s [00:52:48.566] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1568s [00:52:48.566] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1568s [00:52:48.566] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1568s [00:52:48.566] - Field: ‘label’ 1568s [00:52:48.566] - Field: ‘local’ 1568s [00:52:48.566] - Field: ‘owner’ 1568s [00:52:48.566] - Field: ‘envir’ 1568s [00:52:48.567] - Field: ‘packages’ 1568s [00:52:48.567] - Field: ‘gc’ 1568s [00:52:48.567] - Field: ‘conditions’ 1568s [00:52:48.567] - Field: ‘expr’ 1568s [00:52:48.567] - Field: ‘uuid’ 1568s [00:52:48.567] - Field: ‘seed’ 1568s [00:52:48.567] - Field: ‘version’ 1568s [00:52:48.567] - Field: ‘result’ 1568s [00:52:48.567] - Field: ‘asynchronous’ 1568s [00:52:48.568] - Field: ‘calls’ 1568s [00:52:48.568] - Field: ‘globals’ 1568s [00:52:48.568] - Field: ‘stdout’ 1568s [00:52:48.568] - Field: ‘earlySignal’ 1568s [00:52:48.570] - Field: ‘lazy’ 1568s [00:52:48.570] - Field: ‘state’ 1568s [00:52:48.570] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1568s [00:52:48.570] - Launch lazy future ... 1568s [00:52:48.570] Packages needed by the future expression (n = 0): 1568s [00:52:48.571] Packages needed by future strategies (n = 0): 1568s [00:52:48.571] { 1568s [00:52:48.571] { 1568s [00:52:48.571] { 1568s [00:52:48.571] ...future.startTime <- base::Sys.time() 1568s [00:52:48.571] { 1568s [00:52:48.571] { 1568s [00:52:48.571] { 1568s [00:52:48.571] base::local({ 1568s [00:52:48.571] has_future <- base::requireNamespace("future", 1568s [00:52:48.571] quietly = TRUE) 1568s [00:52:48.571] if (has_future) { 1568s [00:52:48.571] ns <- base::getNamespace("future") 1568s [00:52:48.571] version <- ns[[".package"]][["version"]] 1568s [00:52:48.571] if (is.null(version)) 1568s [00:52:48.571] version <- utils::packageVersion("future") 1568s [00:52:48.571] } 1568s [00:52:48.571] else { 1568s [00:52:48.571] version <- NULL 1568s [00:52:48.571] } 1568s [00:52:48.571] if (!has_future || version < "1.8.0") { 1568s [00:52:48.571] info <- base::c(r_version = base::gsub("R version ", 1568s [00:52:48.571] "", base::R.version$version.string), 1568s [00:52:48.571] platform = base::sprintf("%s (%s-bit)", 1568s [00:52:48.571] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1568s [00:52:48.571] os = base::paste(base::Sys.info()[base::c("sysname", 1568s [00:52:48.571] "release", "version")], collapse = " "), 1568s [00:52:48.571] hostname = base::Sys.info()[["nodename"]]) 1568s [00:52:48.571] info <- base::sprintf("%s: %s", base::names(info), 1568s [00:52:48.571] info) 1568s [00:52:48.571] info <- base::paste(info, collapse = "; ") 1568s [00:52:48.571] if (!has_future) { 1568s [00:52:48.571] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1568s [00:52:48.571] info) 1568s [00:52:48.571] } 1568s [00:52:48.571] else { 1568s [00:52:48.571] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1568s [00:52:48.571] info, version) 1568s [00:52:48.571] } 1568s [00:52:48.571] base::stop(msg) 1568s [00:52:48.571] } 1568s [00:52:48.571] }) 1568s [00:52:48.571] } 1568s [00:52:48.571] options(future.plan = NULL) 1568s [00:52:48.571] Sys.unsetenv("R_FUTURE_PLAN") 1568s [00:52:48.571] future::plan("default", .cleanup = FALSE, .init = FALSE) 1568s [00:52:48.571] } 1568s [00:52:48.571] ...future.workdir <- getwd() 1568s [00:52:48.571] } 1568s [00:52:48.571] ...future.oldOptions <- base::as.list(base::.Options) 1568s [00:52:48.571] ...future.oldEnvVars <- base::Sys.getenv() 1568s [00:52:48.571] } 1568s [00:52:48.571] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1568s [00:52:48.571] future.globals.maxSize = NULL, future.globals.method = NULL, 1568s [00:52:48.571] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1568s [00:52:48.571] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1568s [00:52:48.571] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1568s [00:52:48.571] future.stdout.windows.reencode = NULL, width = 80L) 1568s [00:52:48.571] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1568s [00:52:48.571] base::names(...future.oldOptions)) 1568s [00:52:48.571] } 1568s [00:52:48.571] if (FALSE) { 1568s [00:52:48.571] } 1568s [00:52:48.571] else { 1568s [00:52:48.571] if (TRUE) { 1568s [00:52:48.571] ...future.stdout <- base::rawConnection(base::raw(0L), 1568s [00:52:48.571] open = "w") 1568s [00:52:48.571] } 1568s [00:52:48.571] else { 1568s [00:52:48.571] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1568s [00:52:48.571] windows = "NUL", "/dev/null"), open = "w") 1568s [00:52:48.571] } 1568s [00:52:48.571] base::sink(...future.stdout, type = "output", split = FALSE) 1568s [00:52:48.571] base::on.exit(if (!base::is.null(...future.stdout)) { 1568s [00:52:48.571] base::sink(type = "output", split = FALSE) 1568s [00:52:48.571] base::close(...future.stdout) 1568s [00:52:48.571] }, add = TRUE) 1568s [00:52:48.571] } 1568s [00:52:48.571] ...future.frame <- base::sys.nframe() 1568s [00:52:48.571] ...future.conditions <- base::list() 1568s [00:52:48.571] ...future.rng <- base::globalenv()$.Random.seed 1568s [00:52:48.571] if (FALSE) { 1568s [00:52:48.571] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1568s [00:52:48.571] "...future.value", "...future.globalenv.names", ".Random.seed") 1568s [00:52:48.571] } 1568s [00:52:48.571] ...future.result <- base::tryCatch({ 1568s [00:52:48.571] base::withCallingHandlers({ 1568s [00:52:48.571] ...future.value <- base::withVisible(base::local({ 1568s [00:52:48.571] do.call(function(...) { 1568s [00:52:48.571] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1568s [00:52:48.571] if (!identical(...future.globals.maxSize.org, 1568s [00:52:48.571] ...future.globals.maxSize)) { 1568s [00:52:48.571] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1568s [00:52:48.571] on.exit(options(oopts), add = TRUE) 1568s [00:52:48.571] } 1568s [00:52:48.571] { 1568s [00:52:48.571] lapply(seq_along(...future.elements_ii), 1568s [00:52:48.571] FUN = function(jj) { 1568s [00:52:48.571] ...future.X_jj <- ...future.elements_ii[[jj]] 1568s [00:52:48.571] ...future.FUN(...future.X_jj, ...) 1568s [00:52:48.571] }) 1568s [00:52:48.571] } 1568s [00:52:48.571] }, args = future.call.arguments) 1568s [00:52:48.571] })) 1568s [00:52:48.571] future::FutureResult(value = ...future.value$value, 1568s [00:52:48.571] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1568s [00:52:48.571] ...future.rng), globalenv = if (FALSE) 1568s [00:52:48.571] list(added = base::setdiff(base::names(base::.GlobalEnv), 1568s [00:52:48.571] ...future.globalenv.names)) 1568s [00:52:48.571] else NULL, started = ...future.startTime, version = "1.8") 1568s [00:52:48.571] }, condition = base::local({ 1568s [00:52:48.571] c <- base::c 1568s [00:52:48.571] inherits <- base::inherits 1568s [00:52:48.571] invokeRestart <- base::invokeRestart 1568s [00:52:48.571] length <- base::length 1568s [00:52:48.571] list <- base::list 1568s [00:52:48.571] seq.int <- base::seq.int 1568s [00:52:48.571] signalCondition <- base::signalCondition 1568s [00:52:48.571] sys.calls <- base::sys.calls 1568s [00:52:48.571] `[[` <- base::`[[` 1568s [00:52:48.571] `+` <- base::`+` 1568s [00:52:48.571] `<<-` <- base::`<<-` 1568s [00:52:48.571] sysCalls <- function(calls = sys.calls(), from = 1L) { 1568s [00:52:48.571] calls[seq.int(from = from + 12L, to = length(calls) - 1568s [00:52:48.571] 3L)] 1568s [00:52:48.571] } 1568s [00:52:48.571] function(cond) { 1568s [00:52:48.571] is_error <- inherits(cond, "error") 1568s [00:52:48.571] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1568s [00:52:48.571] NULL) 1568s [00:52:48.571] if (is_error) { 1568s [00:52:48.571] sessionInformation <- function() { 1568s [00:52:48.571] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1568s [00:52:48.571] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1568s [00:52:48.571] search = base::search(), system = base::Sys.info()) 1568s [00:52:48.571] } 1568s [00:52:48.571] ...future.conditions[[length(...future.conditions) + 1568s [00:52:48.571] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1568s [00:52:48.571] cond$call), session = sessionInformation(), 1568s [00:52:48.571] timestamp = base::Sys.time(), signaled = 0L) 1568s [00:52:48.571] signalCondition(cond) 1568s [00:52:48.571] } 1568s [00:52:48.571] else if (!ignore && TRUE && inherits(cond, c("condition", 1568s [00:52:48.571] "immediateCondition"))) { 1568s [00:52:48.571] signal <- TRUE && inherits(cond, "immediateCondition") 1568s [00:52:48.571] ...future.conditions[[length(...future.conditions) + 1568s [00:52:48.571] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1568s [00:52:48.571] if (TRUE && !signal) { 1568s [00:52:48.571] muffleCondition <- function (cond, pattern = "^muffle") 1568s [00:52:48.571] { 1568s [00:52:48.571] inherits <- base::inherits 1568s [00:52:48.571] invokeRestart <- base::invokeRestart 1568s [00:52:48.571] is.null <- base::is.null 1568s [00:52:48.571] muffled <- FALSE 1568s [00:52:48.571] if (inherits(cond, "message")) { 1568s [00:52:48.571] muffled <- grepl(pattern, "muffleMessage") 1568s [00:52:48.571] if (muffled) 1568s [00:52:48.571] invokeRestart("muffleMessage") 1568s [00:52:48.571] } 1568s [00:52:48.571] else if (inherits(cond, "warning")) { 1568s [00:52:48.571] muffled <- grepl(pattern, "muffleWarning") 1568s [00:52:48.571] if (muffled) 1568s [00:52:48.571] invokeRestart("muffleWarning") 1568s [00:52:48.571] } 1568s [00:52:48.571] else if (inherits(cond, "condition")) { 1568s [00:52:48.571] if (!is.null(pattern)) { 1568s [00:52:48.571] computeRestarts <- base::computeRestarts 1568s [00:52:48.571] grepl <- base::grepl 1568s [00:52:48.571] restarts <- computeRestarts(cond) 1568s [00:52:48.571] for (restart in restarts) { 1568s [00:52:48.571] name <- restart$name 1568s [00:52:48.571] if (is.null(name)) 1568s [00:52:48.571] next 1568s [00:52:48.571] if (!grepl(pattern, name)) 1568s [00:52:48.571] next 1568s [00:52:48.571] invokeRestart(restart) 1568s [00:52:48.571] muffled <- TRUE 1568s [00:52:48.571] break 1568s [00:52:48.571] } 1568s [00:52:48.571] } 1568s [00:52:48.571] } 1568s [00:52:48.571] invisible(muffled) 1568s [00:52:48.571] } 1568s [00:52:48.571] muffleCondition(cond, pattern = "^muffle") 1568s [00:52:48.571] } 1568s [00:52:48.571] } 1568s [00:52:48.571] else { 1568s [00:52:48.571] if (TRUE) { 1568s [00:52:48.571] muffleCondition <- function (cond, pattern = "^muffle") 1568s [00:52:48.571] { 1568s [00:52:48.571] inherits <- base::inherits 1568s [00:52:48.571] invokeRestart <- base::invokeRestart 1568s [00:52:48.571] is.null <- base::is.null 1568s [00:52:48.571] muffled <- FALSE 1568s [00:52:48.571] if (inherits(cond, "message")) { 1568s [00:52:48.571] muffled <- grepl(pattern, "muffleMessage") 1568s [00:52:48.571] if (muffled) 1568s [00:52:48.571] invokeRestart("muffleMessage") 1568s [00:52:48.571] } 1568s [00:52:48.571] else if (inherits(cond, "warning")) { 1568s [00:52:48.571] muffled <- grepl(pattern, "muffleWarning") 1568s [00:52:48.571] if (muffled) 1568s [00:52:48.571] invokeRestart("muffleWarning") 1568s [00:52:48.571] } 1568s [00:52:48.571] else if (inherits(cond, "condition")) { 1568s [00:52:48.571] if (!is.null(pattern)) { 1568s [00:52:48.571] computeRestarts <- base::computeRestarts 1568s [00:52:48.571] grepl <- base::grepl 1568s [00:52:48.571] restarts <- computeRestarts(cond) 1568s [00:52:48.571] for (restart in restarts) { 1568s [00:52:48.571] name <- restart$name 1568s [00:52:48.571] if (is.null(name)) 1568s [00:52:48.571] next 1568s [00:52:48.571] if (!grepl(pattern, name)) 1568s [00:52:48.571] next 1568s [00:52:48.571] invokeRestart(restart) 1568s [00:52:48.571] muffled <- TRUE 1568s [00:52:48.571] break 1568s [00:52:48.571] } 1568s [00:52:48.571] } 1568s [00:52:48.571] } 1568s [00:52:48.571] invisible(muffled) 1568s [00:52:48.571] } 1568s [00:52:48.571] muffleCondition(cond, pattern = "^muffle") 1568s [00:52:48.571] } 1568s [00:52:48.571] } 1568s [00:52:48.571] } 1568s [00:52:48.571] })) 1568s [00:52:48.571] }, error = function(ex) { 1568s [00:52:48.571] base::structure(base::list(value = NULL, visible = NULL, 1568s [00:52:48.571] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1568s [00:52:48.571] ...future.rng), started = ...future.startTime, 1568s [00:52:48.571] finished = Sys.time(), session_uuid = NA_character_, 1568s [00:52:48.571] version = "1.8"), class = "FutureResult") 1568s [00:52:48.571] }, finally = { 1568s [00:52:48.571] if (!identical(...future.workdir, getwd())) 1568s [00:52:48.571] setwd(...future.workdir) 1568s [00:52:48.571] { 1568s [00:52:48.571] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1568s [00:52:48.571] ...future.oldOptions$nwarnings <- NULL 1568s [00:52:48.571] } 1568s [00:52:48.571] base::options(...future.oldOptions) 1568s [00:52:48.571] if (.Platform$OS.type == "windows") { 1568s [00:52:48.571] old_names <- names(...future.oldEnvVars) 1568s [00:52:48.571] envs <- base::Sys.getenv() 1568s [00:52:48.571] names <- names(envs) 1568s [00:52:48.571] common <- intersect(names, old_names) 1568s [00:52:48.571] added <- setdiff(names, old_names) 1568s [00:52:48.571] removed <- setdiff(old_names, names) 1568s [00:52:48.571] changed <- common[...future.oldEnvVars[common] != 1568s [00:52:48.571] envs[common]] 1568s [00:52:48.571] NAMES <- toupper(changed) 1568s [00:52:48.571] args <- list() 1568s [00:52:48.571] for (kk in seq_along(NAMES)) { 1568s [00:52:48.571] name <- changed[[kk]] 1568s [00:52:48.571] NAME <- NAMES[[kk]] 1568s [00:52:48.571] if (name != NAME && is.element(NAME, old_names)) 1568s [00:52:48.571] next 1568s [00:52:48.571] args[[name]] <- ...future.oldEnvVars[[name]] 1568s [00:52:48.571] } 1568s [00:52:48.571] NAMES <- toupper(added) 1568s [00:52:48.571] for (kk in seq_along(NAMES)) { 1568s [00:52:48.571] name <- added[[kk]] 1568s [00:52:48.571] NAME <- NAMES[[kk]] 1568s [00:52:48.571] if (name != NAME && is.element(NAME, old_names)) 1568s [00:52:48.571] next 1568s [00:52:48.571] args[[name]] <- "" 1568s [00:52:48.571] } 1568s [00:52:48.571] NAMES <- toupper(removed) 1568s [00:52:48.571] for (kk in seq_along(NAMES)) { 1568s [00:52:48.571] name <- removed[[kk]] 1568s [00:52:48.571] NAME <- NAMES[[kk]] 1568s [00:52:48.571] if (name != NAME && is.element(NAME, old_names)) 1568s [00:52:48.571] next 1568s [00:52:48.571] args[[name]] <- ...future.oldEnvVars[[name]] 1568s [00:52:48.571] } 1568s [00:52:48.571] if (length(args) > 0) 1568s [00:52:48.571] base::do.call(base::Sys.setenv, args = args) 1568s [00:52:48.571] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1568s [00:52:48.571] } 1568s [00:52:48.571] else { 1568s [00:52:48.571] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1568s [00:52:48.571] } 1568s [00:52:48.571] { 1568s [00:52:48.571] if (base::length(...future.futureOptionsAdded) > 1568s [00:52:48.571] 0L) { 1568s [00:52:48.571] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1568s [00:52:48.571] base::names(opts) <- ...future.futureOptionsAdded 1568s [00:52:48.571] base::options(opts) 1568s [00:52:48.571] } 1568s [00:52:48.571] { 1568s [00:52:48.571] { 1568s [00:52:48.571] NULL 1568s [00:52:48.571] RNGkind("Mersenne-Twister") 1568s [00:52:48.571] base::rm(list = ".Random.seed", envir = base::globalenv(), 1568s [00:52:48.571] inherits = FALSE) 1568s [00:52:48.571] } 1568s [00:52:48.571] options(future.plan = NULL) 1568s [00:52:48.571] if (is.na(NA_character_)) 1568s [00:52:48.571] Sys.unsetenv("R_FUTURE_PLAN") 1568s [00:52:48.571] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1568s [00:52:48.571] future::plan(list(function (..., envir = parent.frame()) 1568s [00:52:48.571] { 1568s [00:52:48.571] future <- SequentialFuture(..., envir = envir) 1568s [00:52:48.571] if (!future$lazy) 1568s [00:52:48.571] future <- run(future) 1568s [00:52:48.571] invisible(future) 1568s [00:52:48.571] }), .cleanup = FALSE, .init = FALSE) 1568s [00:52:48.571] } 1568s [00:52:48.571] } 1568s [00:52:48.571] } 1568s [00:52:48.571] }) 1568s [00:52:48.571] if (TRUE) { 1568s [00:52:48.571] base::sink(type = "output", split = FALSE) 1568s [00:52:48.571] if (TRUE) { 1568s [00:52:48.571] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1568s [00:52:48.571] } 1568s [00:52:48.571] else { 1568s [00:52:48.571] ...future.result["stdout"] <- base::list(NULL) 1568s [00:52:48.571] } 1568s [00:52:48.571] base::close(...future.stdout) 1568s [00:52:48.571] ...future.stdout <- NULL 1568s [00:52:48.571] } 1568s [00:52:48.571] ...future.result$conditions <- ...future.conditions 1568s [00:52:48.571] ...future.result$finished <- base::Sys.time() 1568s [00:52:48.571] ...future.result 1568s [00:52:48.571] } 1568s [00:52:48.580] assign_globals() ... 1568s [00:52:48.580] List of 5 1568s [00:52:48.580] $ ...future.FUN :function (x) 1568s [00:52:48.580] $ future.call.arguments : list() 1568s [00:52:48.580] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1568s [00:52:48.580] $ ...future.elements_ii :List of 3 1568s [00:52:48.580] ..$ a: num 1 1568s [00:52:48.580] ..$ b: num 2 1568s [00:52:48.580] ..$ c: num 3 1568s [00:52:48.580] $ ...future.seeds_ii : NULL 1568s [00:52:48.580] $ ...future.globals.maxSize: NULL 1568s [00:52:48.580] - attr(*, "where")=List of 5 1568s [00:52:48.580] ..$ ...future.FUN : 1568s [00:52:48.580] ..$ future.call.arguments : 1568s [00:52:48.580] ..$ ...future.elements_ii : 1568s [00:52:48.580] ..$ ...future.seeds_ii : 1568s [00:52:48.580] ..$ ...future.globals.maxSize: 1568s [00:52:48.580] - attr(*, "resolved")= logi FALSE 1568s [00:52:48.580] - attr(*, "total_size")= num 848 1568s [00:52:48.580] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1568s [00:52:48.580] - attr(*, "already-done")= logi TRUE 1568s [00:52:48.589] - copied ‘...future.FUN’ to environment 1568s [00:52:48.590] - copied ‘future.call.arguments’ to environment 1568s [00:52:48.590] - copied ‘...future.elements_ii’ to environment 1568s [00:52:48.590] - copied ‘...future.seeds_ii’ to environment 1568s [00:52:48.590] - copied ‘...future.globals.maxSize’ to environment 1568s [00:52:48.590] assign_globals() ... done 1568s [00:52:48.591] plan(): Setting new future strategy stack: 1568s [00:52:48.591] List of future strategies: 1568s [00:52:48.591] 1. sequential: 1568s [00:52:48.591] - args: function (..., envir = parent.frame()) 1568s [00:52:48.591] - tweaked: FALSE 1568s [00:52:48.591] - call: NULL 1568s [00:52:48.591] plan(): nbrOfWorkers() = 1 1568s [00:52:48.592] plan(): Setting new future strategy stack: 1568s [00:52:48.592] List of future strategies: 1568s [00:52:48.592] 1. sequential: 1568s [00:52:48.592] - args: function (..., envir = parent.frame()) 1568s [00:52:48.592] - tweaked: FALSE 1568s [00:52:48.592] - call: plan(strategy) 1568s [00:52:48.592] plan(): nbrOfWorkers() = 1 1568s [00:52:48.593] SequentialFuture started (and completed) 1568s [00:52:48.593] - Launch lazy future ... done 1568s [00:52:48.593] run() for ‘SequentialFuture’ ... done 1568s [00:52:48.593] Created future: 1568s [00:52:48.593] SequentialFuture: 1568s [00:52:48.593] Label: ‘future_sapply-1’ 1568s [00:52:48.593] Expression: 1568s [00:52:48.593] { 1568s [00:52:48.593] do.call(function(...) { 1568s [00:52:48.593] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1568s [00:52:48.593] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1568s [00:52:48.593] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1568s [00:52:48.593] on.exit(options(oopts), add = TRUE) 1568s [00:52:48.593] } 1568s [00:52:48.593] { 1568s [00:52:48.593] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1568s [00:52:48.593] ...future.X_jj <- ...future.elements_ii[[jj]] 1568s [00:52:48.593] ...future.FUN(...future.X_jj, ...) 1568s [00:52:48.593] }) 1568s [00:52:48.593] } 1568s [00:52:48.593] }, args = future.call.arguments) 1568s [00:52:48.593] } 1568s [00:52:48.593] Lazy evaluation: FALSE 1568s [00:52:48.593] Asynchronous evaluation: FALSE 1568s [00:52:48.593] Local evaluation: TRUE 1568s [00:52:48.593] Environment: R_GlobalEnv 1568s [00:52:48.593] Capture standard output: TRUE 1568s [00:52:48.593] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1568s [00:52:48.593] Globals: 5 objects totaling 0.99 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1568s [00:52:48.593] Packages: 1568s [00:52:48.593] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1568s [00:52:48.593] Resolved: TRUE 1568s [00:52:48.593] Value: 168 bytes of class ‘list’ 1568s [00:52:48.593] Early signaling: FALSE 1568s [00:52:48.593] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1568s [00:52:48.593] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1568s [00:52:48.595] Chunk #1 of 1 ... DONE 1568s [00:52:48.595] Launching 1 futures (chunks) ... DONE 1568s [00:52:48.595] Resolving 1 futures (chunks) ... 1568s [00:52:48.595] resolve() on list ... 1568s [00:52:48.595] recursive: 0 1568s [00:52:48.596] length: 1 1568s [00:52:48.596] 1568s [00:52:48.596] resolved() for ‘SequentialFuture’ ... 1568s [00:52:48.596] - state: ‘finished’ 1568s [00:52:48.596] - run: TRUE 1568s [00:52:48.596] - result: ‘FutureResult’ 1568s [00:52:48.596] resolved() for ‘SequentialFuture’ ... done 1568s [00:52:48.597] Future #1 1568s [00:52:48.597] signalConditionsASAP(SequentialFuture, pos=1) ... 1568s [00:52:48.597] - nx: 1 1568s [00:52:48.597] - relay: TRUE 1568s [00:52:48.597] - stdout: TRUE 1568s [00:52:48.597] - signal: TRUE 1568s [00:52:48.597] - resignal: FALSE 1568s [00:52:48.598] - force: TRUE 1568s [00:52:48.598] - relayed: [n=1] FALSE 1568s [00:52:48.598] - queued futures: [n=1] FALSE 1568s [00:52:48.598] - until=1 1568s [00:52:48.598] - relaying element #1 1568s [00:52:48.598] - relayed: [n=1] TRUE 1568s [00:52:48.599] - queued futures: [n=1] TRUE 1568s [00:52:48.599] signalConditionsASAP(SequentialFuture, pos=1) ... done 1568s [00:52:48.599] length: 0 (resolved future 1) 1568s [00:52:48.599] Relaying remaining futures 1568s [00:52:48.599] signalConditionsASAP(NULL, pos=0) ... 1568s [00:52:48.599] - nx: 1 1568s [00:52:48.599] - relay: TRUE 1568s [00:52:48.599] - stdout: TRUE 1568s [00:52:48.600] - signal: TRUE 1568s [00:52:48.600] - resignal: FALSE 1568s [00:52:48.600] - force: TRUE 1568s [00:52:48.600] - relayed: [n=1] TRUE 1568s [00:52:48.600] - queued futures: [n=1] TRUE 1568s - flush all 1568s [00:52:48.601] - relayed: [n=1] TRUE 1568s [00:52:48.601] - queued futures: [n=1] TRUE 1568s [00:52:48.601] signalConditionsASAP(NULL, pos=0) ... done 1568s [00:52:48.601] resolve() on list ... DONE 1568s [00:52:48.601] - Number of value chunks collected: 1 1568s [00:52:48.601] Resolving 1 futures (chunks) ... DONE 1568s [00:52:48.602] Reducing values from 1 chunks ... 1568s [00:52:48.602] - Number of values collected after concatenation: 3 1568s [00:52:48.602] - Number of values expected: 3 1568s [00:52:48.602] Reducing values from 1 chunks ... DONE 1568s [00:52:48.602] future_lapply() ... DONE 1568s List of 2 1568s $ y0:List of [00:52:48.608] future_lapply() ... 1568s 3 1568s ..$ a: num 1 1568s ..$ b: num 2 1568s ..$ c: num 3 1568s $ y1:List of 3 1568s ..$ a: num 1 1568s ..$ b: num 2 1568s ..$ c: num 3 1568s List of 2 1568s $ y0:List of 3 1568s ..$ a: num 1 1568s ..$ b: num 2 1568s ..$ c: num 3 1568s $ y2:List of 3 1568s ..$ a: num 1 1568s ..$ b: num 2 1568s ..$ c: num 3 1568s [00:52:48.609] Number of chunks: 1 1568s [00:52:48.609] getGlobalsAndPackagesXApply() ... 1568s [00:52:48.609] - future.globals: TRUE 1568s [00:52:48.609] getGlobalsAndPackages() ... 1568s [00:52:48.609] Searching for globals... 1568s [00:52:48.612] - globals found: [2] ‘FUN’, ‘UseMethod’ 1568s [00:52:48.612] Searching for globals ... DONE 1568s [00:52:48.613] Resolving globals: FALSE 1568s [00:52:48.613] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1568s [00:52:48.613] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1568s [00:52:48.614] - globals: [1] ‘FUN’ 1568s [00:52:48.614] 1568s [00:52:48.614] getGlobalsAndPackages() ... DONE 1568s [00:52:48.614] - globals found/used: [n=1] ‘FUN’ 1568s [00:52:48.614] - needed namespaces: [n=0] 1568s [00:52:48.614] Finding globals ... DONE 1568s [00:52:48.615] - use_args: TRUE 1568s [00:52:48.615] - Getting '...' globals ... 1568s [00:52:48.615] resolve() on list ... 1568s [00:52:48.615] recursive: 0 1568s [00:52:48.615] length: 1 1568s [00:52:48.616] elements: ‘...’ 1568s [00:52:48.616] length: 0 (resolved future 1) 1568s [00:52:48.616] resolve() on list ... DONE 1568s [00:52:48.616] - '...' content: [n=0] 1568s [00:52:48.616] List of 1 1568s [00:52:48.616] $ ...: list() 1568s [00:52:48.616] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1568s [00:52:48.616] - attr(*, "where")=List of 1 1568s [00:52:48.616] ..$ ...: 1568s [00:52:48.616] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1568s [00:52:48.616] - attr(*, "resolved")= logi TRUE 1568s [00:52:48.616] - attr(*, "total_size")= num NA 1568s [00:52:48.619] - Getting '...' globals ... DONE 1568s [00:52:48.619] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1568s [00:52:48.620] List of 2 1568s [00:52:48.620] $ ...future.FUN:function (x, ...) 1568s [00:52:48.620] $ ... : list() 1568s [00:52:48.620] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1568s [00:52:48.620] - attr(*, "where")=List of 2 1568s [00:52:48.620] ..$ ...future.FUN: 1568s [00:52:48.620] ..$ ... : 1568s [00:52:48.620] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1568s [00:52:48.620] - attr(*, "resolved")= logi FALSE 1568s [00:52:48.620] - attr(*, "total_size")= num 1248 1568s [00:52:48.623] Packages to be attached in all futures: [n=0] 1568s [00:52:48.623] getGlobalsAndPackagesXApply() ... DONE 1568s [00:52:48.624] Number of futures (= number of chunks): 1 1568s [00:52:48.624] Launching 1 futures (chunks) ... 1568s [00:52:48.624] Chunk #1 of 1 ... 1568s [00:52:48.624] - Finding globals in 'X' for chunk #1 ... 1568s [00:52:48.624] getGlobalsAndPackages() ... 1568s [00:52:48.624] Searching for globals... 1568s [00:52:48.625] 1568s [00:52:48.625] Searching for globals ... DONE 1568s [00:52:48.625] - globals: [0] 1568s [00:52:48.625] getGlobalsAndPackages() ... DONE 1568s [00:52:48.625] + additional globals found: [n=0] 1568s [00:52:48.625] + additional namespaces needed: [n=0] 1568s [00:52:48.626] - Finding globals in 'X' for chunk #1 ... DONE 1568s [00:52:48.626] - seeds: 1568s [00:52:48.626] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1568s [00:52:48.626] getGlobalsAndPackages() ... 1568s [00:52:48.626] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1568s [00:52:48.626] Resolving globals: FALSE 1568s [00:52:48.626] Tweak future expression to call with '...' arguments ... 1568s [00:52:48.627] { 1568s [00:52:48.627] do.call(function(...) { 1568s [00:52:48.627] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1568s [00:52:48.627] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1568s [00:52:48.627] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1568s [00:52:48.627] on.exit(options(oopts), add = TRUE) 1568s [00:52:48.627] } 1568s [00:52:48.627] { 1568s [00:52:48.627] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1568s [00:52:48.627] ...future.X_jj <- ...future.elements_ii[[jj]] 1568s [00:52:48.627] ...future.FUN(...future.X_jj, ...) 1568s [00:52:48.627] }) 1568s [00:52:48.627] } 1568s [00:52:48.627] }, args = future.call.arguments) 1568s [00:52:48.627] } 1568s [00:52:48.627] Tweak future expression to call with '...' arguments ... DONE 1568s [00:52:48.628] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1568s [00:52:48.628] 1568s [00:52:48.628] getGlobalsAndPackages() ... DONE 1568s [00:52:48.628] run() for ‘Future’ ... 1568s [00:52:48.628] - state: ‘created’ 1568s [00:52:48.628] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1568s [00:52:48.629] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1568s [00:52:48.629] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1568s [00:52:48.629] - Field: ‘label’ 1568s [00:52:48.629] - Field: ‘local’ 1568s [00:52:48.629] - Field: ‘owner’ 1568s [00:52:48.629] - Field: ‘envir’ 1568s [00:52:48.629] - Field: ‘packages’ 1568s [00:52:48.629] - Field: ‘gc’ 1568s [00:52:48.630] - Field: ‘conditions’ 1568s [00:52:48.630] - Field: ‘expr’ 1568s [00:52:48.630] - Field: ‘uuid’ 1568s [00:52:48.630] - Field: ‘seed’ 1568s [00:52:48.630] - Field: ‘version’ 1568s [00:52:48.630] - Field: ‘result’ 1568s [00:52:48.631] - Field: ‘asynchronous’ 1568s [00:52:48.631] - Field: ‘calls’ 1568s [00:52:48.631] - Field: ‘globals’ 1568s [00:52:48.632] - Field: ‘stdout’ 1568s [00:52:48.632] - Field: ‘earlySignal’ 1568s [00:52:48.632] - Field: ‘lazy’ 1568s [00:52:48.632] - Field: ‘state’ 1568s [00:52:48.632] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1568s [00:52:48.632] - Launch lazy future ... 1568s [00:52:48.633] Packages needed by the future expression (n = 0): 1568s [00:52:48.633] Packages needed by future strategies (n = 0): 1568s [00:52:48.633] { 1568s [00:52:48.633] { 1568s [00:52:48.633] { 1568s [00:52:48.633] ...future.startTime <- base::Sys.time() 1568s [00:52:48.633] { 1568s [00:52:48.633] { 1568s [00:52:48.633] { 1568s [00:52:48.633] base::local({ 1568s [00:52:48.633] has_future <- base::requireNamespace("future", 1568s [00:52:48.633] quietly = TRUE) 1568s [00:52:48.633] if (has_future) { 1568s [00:52:48.633] ns <- base::getNamespace("future") 1568s [00:52:48.633] version <- ns[[".package"]][["version"]] 1568s [00:52:48.633] if (is.null(version)) 1568s [00:52:48.633] version <- utils::packageVersion("future") 1568s [00:52:48.633] } 1568s [00:52:48.633] else { 1568s [00:52:48.633] version <- NULL 1568s [00:52:48.633] } 1568s [00:52:48.633] if (!has_future || version < "1.8.0") { 1568s [00:52:48.633] info <- base::c(r_version = base::gsub("R version ", 1568s [00:52:48.633] "", base::R.version$version.string), 1568s [00:52:48.633] platform = base::sprintf("%s (%s-bit)", 1568s [00:52:48.633] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1568s [00:52:48.633] os = base::paste(base::Sys.info()[base::c("sysname", 1568s [00:52:48.633] "release", "version")], collapse = " "), 1568s [00:52:48.633] hostname = base::Sys.info()[["nodename"]]) 1568s [00:52:48.633] info <- base::sprintf("%s: %s", base::names(info), 1568s [00:52:48.633] info) 1568s [00:52:48.633] info <- base::paste(info, collapse = "; ") 1568s [00:52:48.633] if (!has_future) { 1568s [00:52:48.633] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1568s [00:52:48.633] info) 1568s [00:52:48.633] } 1568s [00:52:48.633] else { 1568s [00:52:48.633] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1568s [00:52:48.633] info, version) 1568s [00:52:48.633] } 1568s [00:52:48.633] base::stop(msg) 1568s [00:52:48.633] } 1568s [00:52:48.633] }) 1568s [00:52:48.633] } 1568s [00:52:48.633] options(future.plan = NULL) 1568s [00:52:48.633] Sys.unsetenv("R_FUTURE_PLAN") 1568s [00:52:48.633] future::plan("default", .cleanup = FALSE, .init = FALSE) 1568s [00:52:48.633] } 1568s [00:52:48.633] ...future.workdir <- getwd() 1568s [00:52:48.633] } 1568s [00:52:48.633] ...future.oldOptions <- base::as.list(base::.Options) 1568s [00:52:48.633] ...future.oldEnvVars <- base::Sys.getenv() 1568s [00:52:48.633] } 1568s [00:52:48.633] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1568s [00:52:48.633] future.globals.maxSize = NULL, future.globals.method = NULL, 1568s [00:52:48.633] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1568s [00:52:48.633] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1568s [00:52:48.633] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1568s [00:52:48.633] future.stdout.windows.reencode = NULL, width = 80L) 1568s [00:52:48.633] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1568s [00:52:48.633] base::names(...future.oldOptions)) 1568s [00:52:48.633] } 1568s [00:52:48.633] if (FALSE) { 1568s [00:52:48.633] } 1568s [00:52:48.633] else { 1568s [00:52:48.633] if (TRUE) { 1568s [00:52:48.633] ...future.stdout <- base::rawConnection(base::raw(0L), 1568s [00:52:48.633] open = "w") 1568s [00:52:48.633] } 1568s [00:52:48.633] else { 1568s [00:52:48.633] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1568s [00:52:48.633] windows = "NUL", "/dev/null"), open = "w") 1568s [00:52:48.633] } 1568s [00:52:48.633] base::sink(...future.stdout, type = "output", split = FALSE) 1568s [00:52:48.633] base::on.exit(if (!base::is.null(...future.stdout)) { 1568s [00:52:48.633] base::sink(type = "output", split = FALSE) 1568s [00:52:48.633] base::close(...future.stdout) 1568s [00:52:48.633] }, add = TRUE) 1568s [00:52:48.633] } 1568s [00:52:48.633] ...future.frame <- base::sys.nframe() 1568s [00:52:48.633] ...future.conditions <- base::list() 1568s [00:52:48.633] ...future.rng <- base::globalenv()$.Random.seed 1568s [00:52:48.633] if (FALSE) { 1568s [00:52:48.633] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1568s [00:52:48.633] "...future.value", "...future.globalenv.names", ".Random.seed") 1568s [00:52:48.633] } 1568s [00:52:48.633] ...future.result <- base::tryCatch({ 1568s [00:52:48.633] base::withCallingHandlers({ 1568s [00:52:48.633] ...future.value <- base::withVisible(base::local({ 1568s [00:52:48.633] do.call(function(...) { 1568s [00:52:48.633] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1568s [00:52:48.633] if (!identical(...future.globals.maxSize.org, 1568s [00:52:48.633] ...future.globals.maxSize)) { 1568s [00:52:48.633] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1568s [00:52:48.633] on.exit(options(oopts), add = TRUE) 1568s [00:52:48.633] } 1568s [00:52:48.633] { 1568s [00:52:48.633] lapply(seq_along(...future.elements_ii), 1568s [00:52:48.633] FUN = function(jj) { 1568s [00:52:48.633] ...future.X_jj <- ...future.elements_ii[[jj]] 1568s [00:52:48.633] ...future.FUN(...future.X_jj, ...) 1568s [00:52:48.633] }) 1568s [00:52:48.633] } 1568s [00:52:48.633] }, args = future.call.arguments) 1568s [00:52:48.633] })) 1568s [00:52:48.633] future::FutureResult(value = ...future.value$value, 1568s [00:52:48.633] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1568s [00:52:48.633] ...future.rng), globalenv = if (FALSE) 1568s [00:52:48.633] list(added = base::setdiff(base::names(base::.GlobalEnv), 1568s [00:52:48.633] ...future.globalenv.names)) 1568s [00:52:48.633] else NULL, started = ...future.startTime, version = "1.8") 1568s [00:52:48.633] }, condition = base::local({ 1568s [00:52:48.633] c <- base::c 1568s [00:52:48.633] inherits <- base::inherits 1568s [00:52:48.633] invokeRestart <- base::invokeRestart 1568s [00:52:48.633] length <- base::length 1568s [00:52:48.633] list <- base::list 1568s [00:52:48.633] seq.int <- base::seq.int 1568s [00:52:48.633] signalCondition <- base::signalCondition 1568s [00:52:48.633] sys.calls <- base::sys.calls 1568s [00:52:48.633] `[[` <- base::`[[` 1568s [00:52:48.633] `+` <- base::`+` 1568s [00:52:48.633] `<<-` <- base::`<<-` 1568s [00:52:48.633] sysCalls <- function(calls = sys.calls(), from = 1L) { 1568s [00:52:48.633] calls[seq.int(from = from + 12L, to = length(calls) - 1568s [00:52:48.633] 3L)] 1568s [00:52:48.633] } 1568s [00:52:48.633] function(cond) { 1568s [00:52:48.633] is_error <- inherits(cond, "error") 1568s [00:52:48.633] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1568s [00:52:48.633] NULL) 1568s [00:52:48.633] if (is_error) { 1568s [00:52:48.633] sessionInformation <- function() { 1568s [00:52:48.633] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1568s [00:52:48.633] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1568s [00:52:48.633] search = base::search(), system = base::Sys.info()) 1568s [00:52:48.633] } 1568s [00:52:48.633] ...future.conditions[[length(...future.conditions) + 1568s [00:52:48.633] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1568s [00:52:48.633] cond$call), session = sessionInformation(), 1568s [00:52:48.633] timestamp = base::Sys.time(), signaled = 0L) 1568s [00:52:48.633] signalCondition(cond) 1568s [00:52:48.633] } 1568s [00:52:48.633] else if (!ignore && TRUE && inherits(cond, c("condition", 1568s [00:52:48.633] "immediateCondition"))) { 1568s [00:52:48.633] signal <- TRUE && inherits(cond, "immediateCondition") 1568s [00:52:48.633] ...future.conditions[[length(...future.conditions) + 1568s [00:52:48.633] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1568s [00:52:48.633] if (TRUE && !signal) { 1568s [00:52:48.633] muffleCondition <- function (cond, pattern = "^muffle") 1568s [00:52:48.633] { 1568s [00:52:48.633] inherits <- base::inherits 1568s [00:52:48.633] invokeRestart <- base::invokeRestart 1568s [00:52:48.633] is.null <- base::is.null 1568s [00:52:48.633] muffled <- FALSE 1568s [00:52:48.633] if (inherits(cond, "message")) { 1568s [00:52:48.633] muffled <- grepl(pattern, "muffleMessage") 1568s [00:52:48.633] if (muffled) 1568s [00:52:48.633] invokeRestart("muffleMessage") 1568s [00:52:48.633] } 1568s [00:52:48.633] else if (inherits(cond, "warning")) { 1568s [00:52:48.633] muffled <- grepl(pattern, "muffleWarning") 1568s [00:52:48.633] if (muffled) 1568s [00:52:48.633] invokeRestart("muffleWarning") 1568s [00:52:48.633] } 1568s [00:52:48.633] else if (inherits(cond, "condition")) { 1568s [00:52:48.633] if (!is.null(pattern)) { 1568s [00:52:48.633] computeRestarts <- base::computeRestarts 1568s [00:52:48.633] grepl <- base::grepl 1568s [00:52:48.633] restarts <- computeRestarts(cond) 1568s [00:52:48.633] for (restart in restarts) { 1568s [00:52:48.633] name <- restart$name 1568s [00:52:48.633] if (is.null(name)) 1568s [00:52:48.633] next 1568s [00:52:48.633] if (!grepl(pattern, name)) 1568s [00:52:48.633] next 1568s [00:52:48.633] invokeRestart(restart) 1568s [00:52:48.633] muffled <- TRUE 1568s [00:52:48.633] break 1568s [00:52:48.633] } 1568s [00:52:48.633] } 1568s [00:52:48.633] } 1568s [00:52:48.633] invisible(muffled) 1568s [00:52:48.633] } 1568s [00:52:48.633] muffleCondition(cond, pattern = "^muffle") 1568s [00:52:48.633] } 1568s [00:52:48.633] } 1568s [00:52:48.633] else { 1568s [00:52:48.633] if (TRUE) { 1568s [00:52:48.633] muffleCondition <- function (cond, pattern = "^muffle") 1568s [00:52:48.633] { 1568s [00:52:48.633] inherits <- base::inherits 1568s [00:52:48.633] invokeRestart <- base::invokeRestart 1568s [00:52:48.633] is.null <- base::is.null 1568s [00:52:48.633] muffled <- FALSE 1568s [00:52:48.633] if (inherits(cond, "message")) { 1568s [00:52:48.633] muffled <- grepl(pattern, "muffleMessage") 1568s [00:52:48.633] if (muffled) 1568s [00:52:48.633] invokeRestart("muffleMessage") 1568s [00:52:48.633] } 1568s [00:52:48.633] else if (inherits(cond, "warning")) { 1568s [00:52:48.633] muffled <- grepl(pattern, "muffleWarning") 1568s [00:52:48.633] if (muffled) 1568s [00:52:48.633] invokeRestart("muffleWarning") 1568s [00:52:48.633] } 1568s [00:52:48.633] else if (inherits(cond, "condition")) { 1568s [00:52:48.633] if (!is.null(pattern)) { 1568s [00:52:48.633] computeRestarts <- base::computeRestarts 1568s [00:52:48.633] grepl <- base::grepl 1568s [00:52:48.633] restarts <- computeRestarts(cond) 1568s [00:52:48.633] for (restart in restarts) { 1568s [00:52:48.633] name <- restart$name 1568s [00:52:48.633] if (is.null(name)) 1568s [00:52:48.633] next 1568s [00:52:48.633] if (!grepl(pattern, name)) 1568s [00:52:48.633] next 1568s [00:52:48.633] invokeRestart(restart) 1568s [00:52:48.633] muffled <- TRUE 1568s [00:52:48.633] break 1568s [00:52:48.633] } 1568s [00:52:48.633] } 1568s [00:52:48.633] } 1568s [00:52:48.633] invisible(muffled) 1568s [00:52:48.633] } 1568s [00:52:48.633] muffleCondition(cond, pattern = "^muffle") 1568s [00:52:48.633] } 1568s [00:52:48.633] } 1568s [00:52:48.633] } 1568s [00:52:48.633] })) 1568s [00:52:48.633] }, error = function(ex) { 1568s [00:52:48.633] base::structure(base::list(value = NULL, visible = NULL, 1568s [00:52:48.633] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1568s [00:52:48.633] ...future.rng), started = ...future.startTime, 1568s [00:52:48.633] finished = Sys.time(), session_uuid = NA_character_, 1568s [00:52:48.633] version = "1.8"), class = "FutureResult") 1568s [00:52:48.633] }, finally = { 1568s [00:52:48.633] if (!identical(...future.workdir, getwd())) 1568s [00:52:48.633] setwd(...future.workdir) 1568s [00:52:48.633] { 1568s [00:52:48.633] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1568s [00:52:48.633] ...future.oldOptions$nwarnings <- NULL 1568s [00:52:48.633] } 1568s [00:52:48.633] base::options(...future.oldOptions) 1568s [00:52:48.633] if (.Platform$OS.type == "windows") { 1568s [00:52:48.633] old_names <- names(...future.oldEnvVars) 1568s [00:52:48.633] envs <- base::Sys.getenv() 1568s [00:52:48.633] names <- names(envs) 1568s [00:52:48.633] common <- intersect(names, old_names) 1568s [00:52:48.633] added <- setdiff(names, old_names) 1568s [00:52:48.633] removed <- setdiff(old_names, names) 1568s [00:52:48.633] changed <- common[...future.oldEnvVars[common] != 1568s [00:52:48.633] envs[common]] 1568s [00:52:48.633] NAMES <- toupper(changed) 1568s [00:52:48.633] args <- list() 1568s [00:52:48.633] for (kk in seq_along(NAMES)) { 1568s [00:52:48.633] name <- changed[[kk]] 1568s [00:52:48.633] NAME <- NAMES[[kk]] 1568s [00:52:48.633] if (name != NAME && is.element(NAME, old_names)) 1568s [00:52:48.633] next 1568s [00:52:48.633] args[[name]] <- ...future.oldEnvVars[[name]] 1568s [00:52:48.633] } 1568s [00:52:48.633] NAMES <- toupper(added) 1568s [00:52:48.633] for (kk in seq_along(NAMES)) { 1568s [00:52:48.633] name <- added[[kk]] 1568s [00:52:48.633] NAME <- NAMES[[kk]] 1568s [00:52:48.633] if (name != NAME && is.element(NAME, old_names)) 1568s [00:52:48.633] next 1568s [00:52:48.633] args[[name]] <- "" 1568s [00:52:48.633] } 1568s [00:52:48.633] NAMES <- toupper(removed) 1568s [00:52:48.633] for (kk in seq_along(NAMES)) { 1568s [00:52:48.633] name <- removed[[kk]] 1568s [00:52:48.633] NAME <- NAMES[[kk]] 1568s [00:52:48.633] if (name != NAME && is.element(NAME, old_names)) 1568s [00:52:48.633] next 1568s [00:52:48.633] args[[name]] <- ...future.oldEnvVars[[name]] 1568s [00:52:48.633] } 1568s [00:52:48.633] if (length(args) > 0) 1568s [00:52:48.633] base::do.call(base::Sys.setenv, args = args) 1568s [00:52:48.633] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1568s [00:52:48.633] } 1568s [00:52:48.633] else { 1568s [00:52:48.633] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1568s [00:52:48.633] } 1568s [00:52:48.633] { 1568s [00:52:48.633] if (base::length(...future.futureOptionsAdded) > 1568s [00:52:48.633] 0L) { 1568s [00:52:48.633] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1568s [00:52:48.633] base::names(opts) <- ...future.futureOptionsAdded 1568s [00:52:48.633] base::options(opts) 1568s [00:52:48.633] } 1568s [00:52:48.633] { 1568s [00:52:48.633] { 1568s [00:52:48.633] NULL 1568s [00:52:48.633] RNGkind("Mersenne-Twister") 1568s [00:52:48.633] base::rm(list = ".Random.seed", envir = base::globalenv(), 1568s [00:52:48.633] inherits = FALSE) 1568s [00:52:48.633] } 1568s [00:52:48.633] options(future.plan = NULL) 1568s [00:52:48.633] if (is.na(NA_character_)) 1568s [00:52:48.633] Sys.unsetenv("R_FUTURE_PLAN") 1568s [00:52:48.633] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1568s [00:52:48.633] future::plan(list(function (..., envir = parent.frame()) 1568s [00:52:48.633] { 1568s [00:52:48.633] future <- SequentialFuture(..., envir = envir) 1568s [00:52:48.633] if (!future$lazy) 1568s [00:52:48.633] future <- run(future) 1568s [00:52:48.633] invisible(future) 1568s [00:52:48.633] }), .cleanup = FALSE, .init = FALSE) 1568s [00:52:48.633] } 1568s [00:52:48.633] } 1568s [00:52:48.633] } 1568s [00:52:48.633] }) 1568s [00:52:48.633] if (TRUE) { 1568s [00:52:48.633] base::sink(type = "output", split = FALSE) 1568s [00:52:48.633] if (TRUE) { 1568s [00:52:48.633] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1568s [00:52:48.633] } 1568s [00:52:48.633] else { 1568s [00:52:48.633] ...future.result["stdout"] <- base::list(NULL) 1568s [00:52:48.633] } 1568s [00:52:48.633] base::close(...future.stdout) 1568s [00:52:48.633] ...future.stdout <- NULL 1568s [00:52:48.633] } 1568s [00:52:48.633] ...future.result$conditions <- ...future.conditions 1568s [00:52:48.633] ...future.result$finished <- base::Sys.time() 1568s [00:52:48.633] ...future.result 1568s [00:52:48.633] } 1568s [00:52:48.636] assign_globals() ... 1568s [00:52:48.637] List of 5 1568s [00:52:48.637] $ ...future.FUN :function (x, ...) 1568s [00:52:48.637] $ future.call.arguments : list() 1568s [00:52:48.637] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1568s [00:52:48.637] $ ...future.elements_ii :List of 3 1568s [00:52:48.637] ..$ a: num 1 1568s [00:52:48.637] ..$ b: num 2 1568s [00:52:48.637] ..$ c: num 3 1568s [00:52:48.637] $ ...future.seeds_ii : NULL 1568s [00:52:48.637] $ ...future.globals.maxSize: NULL 1568s [00:52:48.637] - attr(*, "where")=List of 5 1568s [00:52:48.637] ..$ ...future.FUN : 1568s [00:52:48.637] ..$ future.call.arguments : 1568s [00:52:48.637] ..$ ...future.elements_ii : 1568s [00:52:48.637] ..$ ...future.seeds_ii : 1568s [00:52:48.637] ..$ ...future.globals.maxSize: 1568s [00:52:48.637] - attr(*, "resolved")= logi FALSE 1568s [00:52:48.637] - attr(*, "total_size")= num 1248 1568s [00:52:48.637] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1568s [00:52:48.637] - attr(*, "already-done")= logi TRUE 1568s [00:52:48.647] - copied ‘...future.FUN’ to environment 1568s [00:52:48.648] - copied ‘future.call.arguments’ to environment 1568s [00:52:48.648] - copied ‘...future.elements_ii’ to environment 1568s [00:52:48.648] - copied ‘...future.seeds_ii’ to environment 1568s [00:52:48.648] - copied ‘...future.globals.maxSize’ to environment 1568s [00:52:48.648] assign_globals() ... done 1568s [00:52:48.649] plan(): Setting new future strategy stack: 1568s [00:52:48.649] List of future strategies: 1568s [00:52:48.649] 1. sequential: 1568s [00:52:48.649] - args: function (..., envir = parent.frame()) 1568s [00:52:48.649] - tweaked: FALSE 1568s [00:52:48.649] - call: NULL 1568s [00:52:48.649] plan(): nbrOfWorkers() = 1 1568s [00:52:48.650] plan(): Setting new future strategy stack: 1568s [00:52:48.650] List of future strategies: 1568s [00:52:48.650] 1. sequential: 1568s [00:52:48.650] - args: function (..., envir = parent.frame()) 1568s [00:52:48.650] - tweaked: FALSE 1568s [00:52:48.650] - call: plan(strategy) 1568s [00:52:48.651] plan(): nbrOfWorkers() = 1 1568s [00:52:48.651] SequentialFuture started (and completed) 1568s [00:52:48.652] - Launch lazy future ... done 1568s [00:52:48.652] run() for ‘SequentialFuture’ ... done 1568s [00:52:48.652] Created future: 1568s [00:52:48.652] SequentialFuture: 1568s [00:52:48.652] Label: ‘future_sapply-1’ 1568s [00:52:48.652] Expression: 1568s [00:52:48.652] { 1568s [00:52:48.652] do.call(function(...) { 1568s [00:52:48.652] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1568s [00:52:48.652] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1568s [00:52:48.652] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1568s [00:52:48.652] on.exit(options(oopts), add = TRUE) 1568s [00:52:48.652] } 1568s [00:52:48.652] { 1568s [00:52:48.652] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1568s [00:52:48.652] ...future.X_jj <- ...future.elements_ii[[jj]] 1568s [00:52:48.652] ...future.FUN(...future.X_jj, ...) 1568s [00:52:48.652] }) 1568s [00:52:48.652] } 1568s [00:52:48.652] }, args = future.call.arguments) 1568s [00:52:48.652] } 1568s [00:52:48.652] Lazy evaluation: FALSE 1568s [00:52:48.652] Asynchronous evaluation: FALSE 1568s [00:52:48.652] Local evaluation: TRUE 1568s [00:52:48.652] Environment: R_GlobalEnv 1568s [00:52:48.652] Capture standard output: TRUE 1568s [00:52:48.652] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1568s [00:52:48.652] Globals: 5 objects totaling 1.38 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1568s [00:52:48.652] Packages: 1568s [00:52:48.652] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1568s [00:52:48.652] Resolved: TRUE 1568s [00:52:48.652] Value: 672 bytes of class ‘list’ 1568s [00:52:48.652] Early signaling: FALSE 1568s [00:52:48.652] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1568s [00:52:48.652] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1568s [00:52:48.654] Chunk #1 of 1 ... DONE 1568s [00:52:48.654] Launching 1 futures (chunks) ... DONE 1568s [00:52:48.654] Resolving 1 futures (chunks) ... 1568s [00:52:48.654] resolve() on list ... 1568s [00:52:48.654] recursive: 0 1568s [00:52:48.655] length: 1 1568s [00:52:48.655] 1568s [00:52:48.655] resolved() for ‘SequentialFuture’ ... 1568s [00:52:48.655] - state: ‘finished’ 1568s [00:52:48.655] - run: TRUE 1568s [00:52:48.655] - result: ‘FutureResult’ 1568s [00:52:48.655] resolved() for ‘SequentialFuture’ ... done 1568s [00:52:48.655] Future #1 1568s [00:52:48.656] signalConditionsASAP(SequentialFuture, pos=1) ... 1568s [00:52:48.656] - nx: 1 1568s [00:52:48.656] - relay: TRUE 1568s [00:52:48.656] - stdout: TRUE 1568s [00:52:48.656] - signal: TRUE 1568s [00:52:48.656] - resignal: FALSE 1568s [00:52:48.656] - force: TRUE 1568s [00:52:48.656] - relayed: [n=1] FALSE 1568s [00:52:48.656] - queued futures: [n=1] FALSE 1568s [00:52:48.656] - until=1 1568s [00:52:48.657] - relaying element #1 1568s [00:52:48.657] - relayed: [n=1] TRUE 1568s [00:52:48.657] - queued futures: [n=1] TRUE 1568s [00:52:48.657] signalConditionsASAP(SequentialFuture, pos=1) ... done 1568s [00:52:48.657] length: 0 (resolved future 1) 1568s [00:52:48.657] Relaying remaining futures 1568s [00:52:48.657] signalConditionsASAP(NULL, pos=0) ... 1568s [00:52:48.657] - nx: 1 1568s [00:52:48.658] - relay: TRUE 1568s [00:52:48.658] - stdout: TRUE 1568s [00:52:48.658] - signal: TRUE 1568s [00:52:48.658] - resignal: FALSE 1568s [00:52:48.658] - force: TRUE 1568s [00:52:48.658] - relayed: [n=1] TRUE 1568s [00:52:48.658] - queued futures: [n=1] TRUE 1568s - flush all 1568s [00:52:48.658] - relayed: [n=1] TRUE 1568s [00:52:48.658] - queued futures: [n=1] TRUE 1568s [00:52:48.658] signalConditionsASAP(NULL, pos=0) ... done 1568s [00:52:48.659] resolve() on list ... DONE 1568s [00:52:48.659] - Number of value chunks collected: 1 1568s [00:52:48.659] Resolving 1 futures (chunks) ... DONE 1568s [00:52:48.659] Reducing values from 1 chunks ... 1568s [00:52:48.659] - Number of values collected after concatenation: 3 1568s [00:52:48.659] - Number of values expected: 3 1568s [00:52:48.659] Reducing values from 1 chunks ... DONE 1568s [00:52:48.659] future_lapply() ... DONE 1568s List of 2 1568s $ y0:List of 3 1568s ..$ a: num [1, 1] 1 1568s ..$ b: num [1, 1] 2 1568s ..$ c: num [1, 1] 3 1568s $ y1:List of 3 1568s ..$ a: num [1, 1] 1 1568s ..$ b: num [1, 1] 2 1568s ..$ c: num [1, 1] 3 1568s List of 2 1568s $ y0:List of 3 1568s ..$ a: num [1, 1] 1 1568s ..$ b: num [1, 1] 2 1568s ..$ c: num [1, 1] 3 1568s $ y2:List of 3 1568s ..$ a: num [1, 1] 1 1568s ..$ b: num [1, 1] 2 1568s ..$ c: num [1, 1] 3 1568s [00:52:48.672] future_lapply() ... 1568s [00:52:48.673] Number of chunks: 1 1568s [00:52:48.673] getGlobalsAndPackagesXApply() ... 1568s [00:52:48.673] - future.globals: TRUE 1568s [00:52:48.673] getGlobalsAndPackages() ... 1568s [00:52:48.673] Searching for globals... 1568s [00:52:48.675] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1568s [00:52:48.675] Searching for globals ... DONE 1568s [00:52:48.675] Resolving globals: FALSE 1568s [00:52:48.676] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1568s [00:52:48.677] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1568s [00:52:48.677] - globals: [1] ‘FUN’ 1568s [00:52:48.677] 1568s [00:52:48.678] getGlobalsAndPackages() ... DONE 1568s [00:52:48.678] - globals found/used: [n=1] ‘FUN’ 1568s [00:52:48.678] - needed namespaces: [n=0] 1568s [00:52:48.678] Finding globals ... DONE 1568s [00:52:48.679] - use_args: TRUE 1568s [00:52:48.680] - Getting '...' globals ... 1568s [00:52:48.681] resolve() on list ... 1568s [00:52:48.681] recursive: 0 1568s [00:52:48.681] length: 1 1568s [00:52:48.682] elements: ‘...’ 1568s [00:52:48.682] length: 0 (resolved future 1) 1568s [00:52:48.682] resolve() on list ... DONE 1568s [00:52:48.682] - '...' content: [n=0] 1568s [00:52:48.683] List of 1 1568s [00:52:48.683] $ ...: list() 1568s [00:52:48.683] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1568s [00:52:48.683] - attr(*, "where")=List of 1 1568s [00:52:48.683] ..$ ...: 1568s [00:52:48.683] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1568s [00:52:48.683] - attr(*, "resolved")= logi TRUE 1568s [00:52:48.683] - attr(*, "total_size")= num NA 1568s [00:52:48.729] - Getting '...' globals ... DONE 1568s [00:52:48.730] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1568s [00:52:48.730] List of 2 1568s [00:52:48.730] $ ...future.FUN:function (x, y = 2 * 1:5) 1568s [00:52:48.730] $ ... : list() 1568s [00:52:48.730] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1568s [00:52:48.730] - attr(*, "where")=List of 2 1568s [00:52:48.730] ..$ ...future.FUN: 1568s [00:52:48.730] ..$ ... : 1568s [00:52:48.730] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1568s [00:52:48.730] - attr(*, "resolved")= logi FALSE 1568s [00:52:48.730] - attr(*, "total_size")= num 4728 1568s [00:52:48.736] Packages to be attached in all futures: [n=0] 1568s [00:52:48.737] getGlobalsAndPackagesXApply() ... DONE 1568s [00:52:48.737] Number of futures (= number of chunks): 1 1568s [00:52:48.737] Launching 1 futures (chunks) ... 1568s [00:52:48.737] Chunk #1 of 1 ... 1568s [00:52:48.738] - Finding globals in 'X' for chunk #1 ... 1568s [00:52:48.738] getGlobalsAndPackages() ... 1568s [00:52:48.738] Searching for globals... 1568s [00:52:48.738] 1568s [00:52:48.739] Searching for globals ... DONE 1568s [00:52:48.739] - globals: [0] 1568s [00:52:48.739] getGlobalsAndPackages() ... DONE 1568s [00:52:48.739] + additional globals found: [n=0] 1568s [00:52:48.739] + additional namespaces needed: [n=0] 1568s [00:52:48.740] - Finding globals in 'X' for chunk #1 ... DONE 1568s [00:52:48.741] - seeds: 1568s [00:52:48.741] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1568s [00:52:48.742] getGlobalsAndPackages() ... 1568s [00:52:48.742] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1568s [00:52:48.743] Resolving globals: FALSE 1568s [00:52:48.743] Tweak future expression to call with '...' arguments ... 1568s [00:52:48.743] { 1568s [00:52:48.743] do.call(function(...) { 1568s [00:52:48.743] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1568s [00:52:48.743] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1568s [00:52:48.743] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1568s [00:52:48.743] on.exit(options(oopts), add = TRUE) 1568s [00:52:48.743] } 1568s [00:52:48.743] { 1568s [00:52:48.743] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1568s [00:52:48.743] ...future.X_jj <- ...future.elements_ii[[jj]] 1568s [00:52:48.743] ...future.FUN(...future.X_jj, ...) 1568s [00:52:48.743] }) 1568s [00:52:48.743] } 1568s [00:52:48.743] }, args = future.call.arguments) 1568s [00:52:48.743] } 1568s [00:52:48.744] Tweak future expression to call with '...' arguments ... DONE 1568s [00:52:48.745] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1568s [00:52:48.745] 1568s [00:52:48.746] getGlobalsAndPackages() ... DONE 1568s [00:52:48.746] run() for ‘Future’ ... 1568s [00:52:48.746] - state: ‘created’ 1568s [00:52:48.746] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1568s [00:52:48.747] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1568s [00:52:48.748] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1568s [00:52:48.748] - Field: ‘label’ 1568s [00:52:48.748] - Field: ‘local’ 1568s [00:52:48.748] - Field: ‘owner’ 1568s [00:52:48.749] - Field: ‘envir’ 1568s [00:52:48.749] - Field: ‘packages’ 1568s [00:52:48.749] - Field: ‘gc’ 1568s [00:52:48.750] - Field: ‘conditions’ 1568s [00:52:48.750] - Field: ‘expr’ 1568s [00:52:48.750] - Field: ‘uuid’ 1568s [00:52:48.751] - Field: ‘seed’ 1568s [00:52:48.751] - Field: ‘version’ 1568s [00:52:48.751] - Field: ‘result’ 1568s [00:52:48.752] - Field: ‘asynchronous’ 1568s [00:52:48.752] - Field: ‘calls’ 1568s [00:52:48.752] - Field: ‘globals’ 1568s [00:52:48.752] - Field: ‘stdout’ 1568s [00:52:48.752] - Field: ‘earlySignal’ 1568s [00:52:48.753] - Field: ‘lazy’ 1568s [00:52:48.753] - Field: ‘state’ 1568s [00:52:48.753] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1568s [00:52:48.754] - Launch lazy future ... 1568s [00:52:48.754] Packages needed by the future expression (n = 0): 1568s [00:52:48.754] Packages needed by future strategies (n = 0): 1568s [00:52:48.755] { 1568s [00:52:48.755] { 1568s [00:52:48.755] { 1568s [00:52:48.755] ...future.startTime <- base::Sys.time() 1568s [00:52:48.755] { 1568s [00:52:48.755] { 1568s [00:52:48.755] { 1568s [00:52:48.755] base::local({ 1568s [00:52:48.755] has_future <- base::requireNamespace("future", 1568s [00:52:48.755] quietly = TRUE) 1568s [00:52:48.755] if (has_future) { 1568s [00:52:48.755] ns <- base::getNamespace("future") 1568s [00:52:48.755] version <- ns[[".package"]][["version"]] 1568s [00:52:48.755] if (is.null(version)) 1568s [00:52:48.755] version <- utils::packageVersion("future") 1568s [00:52:48.755] } 1568s [00:52:48.755] else { 1568s [00:52:48.755] version <- NULL 1568s [00:52:48.755] } 1568s [00:52:48.755] if (!has_future || version < "1.8.0") { 1568s [00:52:48.755] info <- base::c(r_version = base::gsub("R version ", 1568s [00:52:48.755] "", base::R.version$version.string), 1568s [00:52:48.755] platform = base::sprintf("%s (%s-bit)", 1568s [00:52:48.755] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1568s [00:52:48.755] os = base::paste(base::Sys.info()[base::c("sysname", 1568s [00:52:48.755] "release", "version")], collapse = " "), 1568s [00:52:48.755] hostname = base::Sys.info()[["nodename"]]) 1568s [00:52:48.755] info <- base::sprintf("%s: %s", base::names(info), 1568s [00:52:48.755] info) 1568s [00:52:48.755] info <- base::paste(info, collapse = "; ") 1568s [00:52:48.755] if (!has_future) { 1568s [00:52:48.755] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1568s [00:52:48.755] info) 1568s [00:52:48.755] } 1568s [00:52:48.755] else { 1568s [00:52:48.755] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1568s [00:52:48.755] info, version) 1568s [00:52:48.755] } 1568s [00:52:48.755] base::stop(msg) 1568s [00:52:48.755] } 1568s [00:52:48.755] }) 1568s [00:52:48.755] } 1568s [00:52:48.755] options(future.plan = NULL) 1568s [00:52:48.755] Sys.unsetenv("R_FUTURE_PLAN") 1568s [00:52:48.755] future::plan("default", .cleanup = FALSE, .init = FALSE) 1568s [00:52:48.755] } 1568s [00:52:48.755] ...future.workdir <- getwd() 1568s [00:52:48.755] } 1568s [00:52:48.755] ...future.oldOptions <- base::as.list(base::.Options) 1568s [00:52:48.755] ...future.oldEnvVars <- base::Sys.getenv() 1568s [00:52:48.755] } 1568s [00:52:48.755] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1568s [00:52:48.755] future.globals.maxSize = NULL, future.globals.method = NULL, 1568s [00:52:48.755] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1568s [00:52:48.755] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1568s [00:52:48.755] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1568s [00:52:48.755] future.stdout.windows.reencode = NULL, width = 80L) 1568s [00:52:48.755] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1568s [00:52:48.755] base::names(...future.oldOptions)) 1568s [00:52:48.755] } 1568s [00:52:48.755] if (FALSE) { 1568s [00:52:48.755] } 1568s [00:52:48.755] else { 1568s [00:52:48.755] if (TRUE) { 1568s [00:52:48.755] ...future.stdout <- base::rawConnection(base::raw(0L), 1568s [00:52:48.755] open = "w") 1568s [00:52:48.755] } 1568s [00:52:48.755] else { 1568s [00:52:48.755] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1568s [00:52:48.755] windows = "NUL", "/dev/null"), open = "w") 1568s [00:52:48.755] } 1568s [00:52:48.755] base::sink(...future.stdout, type = "output", split = FALSE) 1568s [00:52:48.755] base::on.exit(if (!base::is.null(...future.stdout)) { 1568s [00:52:48.755] base::sink(type = "output", split = FALSE) 1568s [00:52:48.755] base::close(...future.stdout) 1568s [00:52:48.755] }, add = TRUE) 1568s [00:52:48.755] } 1568s [00:52:48.755] ...future.frame <- base::sys.nframe() 1568s [00:52:48.755] ...future.conditions <- base::list() 1568s [00:52:48.755] ...future.rng <- base::globalenv()$.Random.seed 1568s [00:52:48.755] if (FALSE) { 1568s [00:52:48.755] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1568s [00:52:48.755] "...future.value", "...future.globalenv.names", ".Random.seed") 1568s [00:52:48.755] } 1568s [00:52:48.755] ...future.result <- base::tryCatch({ 1568s [00:52:48.755] base::withCallingHandlers({ 1568s [00:52:48.755] ...future.value <- base::withVisible(base::local({ 1568s [00:52:48.755] do.call(function(...) { 1568s [00:52:48.755] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1568s [00:52:48.755] if (!identical(...future.globals.maxSize.org, 1568s [00:52:48.755] ...future.globals.maxSize)) { 1568s [00:52:48.755] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1568s [00:52:48.755] on.exit(options(oopts), add = TRUE) 1568s [00:52:48.755] } 1568s [00:52:48.755] { 1568s [00:52:48.755] lapply(seq_along(...future.elements_ii), 1568s [00:52:48.755] FUN = function(jj) { 1568s [00:52:48.755] ...future.X_jj <- ...future.elements_ii[[jj]] 1568s [00:52:48.755] ...future.FUN(...future.X_jj, ...) 1568s [00:52:48.755] }) 1568s [00:52:48.755] } 1568s [00:52:48.755] }, args = future.call.arguments) 1568s [00:52:48.755] })) 1568s [00:52:48.755] future::FutureResult(value = ...future.value$value, 1568s [00:52:48.755] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1568s [00:52:48.755] ...future.rng), globalenv = if (FALSE) 1568s [00:52:48.755] list(added = base::setdiff(base::names(base::.GlobalEnv), 1568s [00:52:48.755] ...future.globalenv.names)) 1568s [00:52:48.755] else NULL, started = ...future.startTime, version = "1.8") 1568s [00:52:48.755] }, condition = base::local({ 1568s [00:52:48.755] c <- base::c 1568s [00:52:48.755] inherits <- base::inherits 1568s [00:52:48.755] invokeRestart <- base::invokeRestart 1568s [00:52:48.755] length <- base::length 1568s [00:52:48.755] list <- base::list 1568s [00:52:48.755] seq.int <- base::seq.int 1568s [00:52:48.755] signalCondition <- base::signalCondition 1568s [00:52:48.755] sys.calls <- base::sys.calls 1568s [00:52:48.755] `[[` <- base::`[[` 1568s [00:52:48.755] `+` <- base::`+` 1568s [00:52:48.755] `<<-` <- base::`<<-` 1568s [00:52:48.755] sysCalls <- function(calls = sys.calls(), from = 1L) { 1568s [00:52:48.755] calls[seq.int(from = from + 12L, to = length(calls) - 1568s [00:52:48.755] 3L)] 1568s [00:52:48.755] } 1568s [00:52:48.755] function(cond) { 1568s [00:52:48.755] is_error <- inherits(cond, "error") 1568s [00:52:48.755] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1568s [00:52:48.755] NULL) 1568s [00:52:48.755] if (is_error) { 1568s [00:52:48.755] sessionInformation <- function() { 1568s [00:52:48.755] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1568s [00:52:48.755] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1568s [00:52:48.755] search = base::search(), system = base::Sys.info()) 1568s [00:52:48.755] } 1568s [00:52:48.755] ...future.conditions[[length(...future.conditions) + 1568s [00:52:48.755] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1568s [00:52:48.755] cond$call), session = sessionInformation(), 1568s [00:52:48.755] timestamp = base::Sys.time(), signaled = 0L) 1568s [00:52:48.755] signalCondition(cond) 1568s [00:52:48.755] } 1568s [00:52:48.755] else if (!ignore && TRUE && inherits(cond, c("condition", 1568s [00:52:48.755] "immediateCondition"))) { 1568s [00:52:48.755] signal <- TRUE && inherits(cond, "immediateCondition") 1568s [00:52:48.755] ...future.conditions[[length(...future.conditions) + 1568s [00:52:48.755] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1568s [00:52:48.755] if (TRUE && !signal) { 1568s [00:52:48.755] muffleCondition <- function (cond, pattern = "^muffle") 1568s [00:52:48.755] { 1568s [00:52:48.755] inherits <- base::inherits 1568s [00:52:48.755] invokeRestart <- base::invokeRestart 1568s [00:52:48.755] is.null <- base::is.null 1568s [00:52:48.755] muffled <- FALSE 1568s [00:52:48.755] if (inherits(cond, "message")) { 1568s [00:52:48.755] muffled <- grepl(pattern, "muffleMessage") 1568s [00:52:48.755] if (muffled) 1568s [00:52:48.755] invokeRestart("muffleMessage") 1568s [00:52:48.755] } 1568s [00:52:48.755] else if (inherits(cond, "warning")) { 1568s [00:52:48.755] muffled <- grepl(pattern, "muffleWarning") 1568s [00:52:48.755] if (muffled) 1568s [00:52:48.755] invokeRestart("muffleWarning") 1568s [00:52:48.755] } 1568s [00:52:48.755] else if (inherits(cond, "condition")) { 1568s [00:52:48.755] if (!is.null(pattern)) { 1568s [00:52:48.755] computeRestarts <- base::computeRestarts 1568s [00:52:48.755] grepl <- base::grepl 1568s [00:52:48.755] restarts <- computeRestarts(cond) 1568s [00:52:48.755] for (restart in restarts) { 1568s [00:52:48.755] name <- restart$name 1568s [00:52:48.755] if (is.null(name)) 1568s [00:52:48.755] next 1568s [00:52:48.755] if (!grepl(pattern, name)) 1568s [00:52:48.755] next 1568s [00:52:48.755] invokeRestart(restart) 1568s [00:52:48.755] muffled <- TRUE 1568s [00:52:48.755] break 1568s [00:52:48.755] } 1568s [00:52:48.755] } 1568s [00:52:48.755] } 1568s [00:52:48.755] invisible(muffled) 1568s [00:52:48.755] } 1568s [00:52:48.755] muffleCondition(cond, pattern = "^muffle") 1568s [00:52:48.755] } 1568s [00:52:48.755] } 1568s [00:52:48.755] else { 1568s [00:52:48.755] if (TRUE) { 1568s [00:52:48.755] muffleCondition <- function (cond, pattern = "^muffle") 1568s [00:52:48.755] { 1568s [00:52:48.755] inherits <- base::inherits 1568s [00:52:48.755] invokeRestart <- base::invokeRestart 1568s [00:52:48.755] is.null <- base::is.null 1568s [00:52:48.755] muffled <- FALSE 1568s [00:52:48.755] if (inherits(cond, "message")) { 1568s [00:52:48.755] muffled <- grepl(pattern, "muffleMessage") 1568s [00:52:48.755] if (muffled) 1568s [00:52:48.755] invokeRestart("muffleMessage") 1568s [00:52:48.755] } 1568s [00:52:48.755] else if (inherits(cond, "warning")) { 1568s [00:52:48.755] muffled <- grepl(pattern, "muffleWarning") 1568s [00:52:48.755] if (muffled) 1568s [00:52:48.755] invokeRestart("muffleWarning") 1568s [00:52:48.755] } 1568s [00:52:48.755] else if (inherits(cond, "condition")) { 1568s [00:52:48.755] if (!is.null(pattern)) { 1568s [00:52:48.755] computeRestarts <- base::computeRestarts 1568s [00:52:48.755] grepl <- base::grepl 1568s [00:52:48.755] restarts <- computeRestarts(cond) 1568s [00:52:48.755] for (restart in restarts) { 1568s [00:52:48.755] name <- restart$name 1568s [00:52:48.755] if (is.null(name)) 1568s [00:52:48.755] next 1568s [00:52:48.755] if (!grepl(pattern, name)) 1568s [00:52:48.755] next 1568s [00:52:48.755] invokeRestart(restart) 1568s [00:52:48.755] muffled <- TRUE 1568s [00:52:48.755] break 1568s [00:52:48.755] } 1568s [00:52:48.755] } 1568s [00:52:48.755] } 1568s [00:52:48.755] invisible(muffled) 1568s [00:52:48.755] } 1568s [00:52:48.755] muffleCondition(cond, pattern = "^muffle") 1568s [00:52:48.755] } 1568s [00:52:48.755] } 1568s [00:52:48.755] } 1568s [00:52:48.755] })) 1568s [00:52:48.755] }, error = function(ex) { 1568s [00:52:48.755] base::structure(base::list(value = NULL, visible = NULL, 1568s [00:52:48.755] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1568s [00:52:48.755] ...future.rng), started = ...future.startTime, 1568s [00:52:48.755] finished = Sys.time(), session_uuid = NA_character_, 1568s [00:52:48.755] version = "1.8"), class = "FutureResult") 1568s [00:52:48.755] }, finally = { 1568s [00:52:48.755] if (!identical(...future.workdir, getwd())) 1568s [00:52:48.755] setwd(...future.workdir) 1568s [00:52:48.755] { 1568s [00:52:48.755] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1568s [00:52:48.755] ...future.oldOptions$nwarnings <- NULL 1568s [00:52:48.755] } 1568s [00:52:48.755] base::options(...future.oldOptions) 1568s [00:52:48.755] if (.Platform$OS.type == "windows") { 1568s [00:52:48.755] old_names <- names(...future.oldEnvVars) 1568s [00:52:48.755] envs <- base::Sys.getenv() 1568s [00:52:48.755] names <- names(envs) 1568s [00:52:48.755] common <- intersect(names, old_names) 1568s [00:52:48.755] added <- setdiff(names, old_names) 1568s [00:52:48.755] removed <- setdiff(old_names, names) 1568s [00:52:48.755] changed <- common[...future.oldEnvVars[common] != 1568s [00:52:48.755] envs[common]] 1568s [00:52:48.755] NAMES <- toupper(changed) 1568s [00:52:48.755] args <- list() 1568s [00:52:48.755] for (kk in seq_along(NAMES)) { 1568s [00:52:48.755] name <- changed[[kk]] 1568s [00:52:48.755] NAME <- NAMES[[kk]] 1568s [00:52:48.755] if (name != NAME && is.element(NAME, old_names)) 1568s [00:52:48.755] next 1568s [00:52:48.755] args[[name]] <- ...future.oldEnvVars[[name]] 1568s [00:52:48.755] } 1568s [00:52:48.755] NAMES <- toupper(added) 1568s [00:52:48.755] for (kk in seq_along(NAMES)) { 1568s [00:52:48.755] name <- added[[kk]] 1568s [00:52:48.755] NAME <- NAMES[[kk]] 1568s [00:52:48.755] if (name != NAME && is.element(NAME, old_names)) 1568s [00:52:48.755] next 1568s [00:52:48.755] args[[name]] <- "" 1568s [00:52:48.755] } 1568s [00:52:48.755] NAMES <- toupper(removed) 1568s [00:52:48.755] for (kk in seq_along(NAMES)) { 1568s [00:52:48.755] name <- removed[[kk]] 1568s [00:52:48.755] NAME <- NAMES[[kk]] 1568s [00:52:48.755] if (name != NAME && is.element(NAME, old_names)) 1568s [00:52:48.755] next 1568s [00:52:48.755] args[[name]] <- ...future.oldEnvVars[[name]] 1568s [00:52:48.755] } 1568s [00:52:48.755] if (length(args) > 0) 1568s [00:52:48.755] base::do.call(base::Sys.setenv, args = args) 1568s [00:52:48.755] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1568s [00:52:48.755] } 1568s [00:52:48.755] else { 1568s [00:52:48.755] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1568s [00:52:48.755] } 1568s [00:52:48.755] { 1568s [00:52:48.755] if (base::length(...future.futureOptionsAdded) > 1568s [00:52:48.755] 0L) { 1568s [00:52:48.755] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1568s [00:52:48.755] base::names(opts) <- ...future.futureOptionsAdded 1568s [00:52:48.755] base::options(opts) 1568s [00:52:48.755] } 1568s [00:52:48.755] { 1568s [00:52:48.755] { 1568s [00:52:48.755] NULL 1568s [00:52:48.755] RNGkind("Mersenne-Twister") 1568s [00:52:48.755] base::rm(list = ".Random.seed", envir = base::globalenv(), 1568s [00:52:48.755] inherits = FALSE) 1568s [00:52:48.755] } 1568s [00:52:48.755] options(future.plan = NULL) 1568s [00:52:48.755] if (is.na(NA_character_)) 1568s [00:52:48.755] Sys.unsetenv("R_FUTURE_PLAN") 1568s [00:52:48.755] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1568s [00:52:48.755] future::plan(list(function (..., envir = parent.frame()) 1568s [00:52:48.755] { 1568s [00:52:48.755] future <- SequentialFuture(..., envir = envir) 1568s [00:52:48.755] if (!future$lazy) 1568s [00:52:48.755] future <- run(future) 1568s [00:52:48.755] invisible(future) 1568s [00:52:48.755] }), .cleanup = FALSE, .init = FALSE) 1568s [00:52:48.755] } 1568s [00:52:48.755] } 1568s [00:52:48.755] } 1568s [00:52:48.755] }) 1568s [00:52:48.755] if (TRUE) { 1568s [00:52:48.755] base::sink(type = "output", split = FALSE) 1568s [00:52:48.755] if (TRUE) { 1568s [00:52:48.755] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1568s [00:52:48.755] } 1568s [00:52:48.755] else { 1568s [00:52:48.755] ...future.result["stdout"] <- base::list(NULL) 1568s [00:52:48.755] } 1568s [00:52:48.755] base::close(...future.stdout) 1568s [00:52:48.755] ...future.stdout <- NULL 1568s [00:52:48.755] } 1568s [00:52:48.755] ...future.result$conditions <- ...future.conditions 1568s [00:52:48.755] ...future.result$finished <- base::Sys.time() 1568s [00:52:48.755] ...future.result 1568s [00:52:48.755] } 1568s [00:52:48.759] assign_globals() ... 1568s [00:52:48.760] List of 5 1568s [00:52:48.760] $ ...future.FUN :function (x, y = 2 * 1:5) 1568s [00:52:48.760] $ future.call.arguments : list() 1568s [00:52:48.760] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1568s [00:52:48.760] $ ...future.elements_ii :List of 3 1568s [00:52:48.760] ..$ a: num 1 1568s [00:52:48.760] ..$ b: num 2 1568s [00:52:48.760] ..$ c: num 3 1568s [00:52:48.760] $ ...future.seeds_ii : NULL 1568s [00:52:48.760] $ ...future.globals.maxSize: NULL 1568s [00:52:48.760] - attr(*, "where")=List of 5 1568s [00:52:48.760] ..$ ...future.FUN : 1568s [00:52:48.760] ..$ future.call.arguments : 1568s [00:52:48.760] ..$ ...future.elements_ii : 1568s [00:52:48.760] ..$ ...future.seeds_ii : 1568s [00:52:48.760] ..$ ...future.globals.maxSize: 1568s [00:52:48.760] - attr(*, "resolved")= logi FALSE 1568s [00:52:48.760] - attr(*, "total_size")= num 4728 1568s [00:52:48.760] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1568s [00:52:48.760] - attr(*, "already-done")= logi TRUE 1568s [00:52:48.771] - reassign environment for ‘...future.FUN’ 1568s [00:52:48.771] - copied ‘...future.FUN’ to environment 1568s [00:52:48.771] - copied ‘future.call.arguments’ to environment 1568s [00:52:48.772] - copied ‘...future.elements_ii’ to environment 1568s [00:52:48.772] - copied ‘...future.seeds_ii’ to environment 1568s [00:52:48.772] - copied ‘...future.globals.maxSize’ to environment 1568s [00:52:48.773] assign_globals() ... done 1568s [00:52:48.773] plan(): Setting new future strategy stack: 1568s [00:52:48.773] List of future strategies: 1568s [00:52:48.773] 1. sequential: 1568s [00:52:48.773] - args: function (..., envir = parent.frame()) 1568s [00:52:48.773] - tweaked: FALSE 1568s [00:52:48.773] - call: NULL 1568s [00:52:48.774] plan(): nbrOfWorkers() = 1 1568s [00:52:48.776] plan(): Setting new future strategy stack: 1568s [00:52:48.776] List of future strategies: 1568s [00:52:48.776] 1. sequential: 1568s [00:52:48.776] - args: function (..., envir = parent.frame()) 1568s [00:52:48.776] - tweaked: FALSE 1568s [00:52:48.776] - call: plan(strategy) 1568s [00:52:48.777] plan(): nbrOfWorkers() = 1 1568s [00:52:48.777] SequentialFuture started (and completed) 1568s [00:52:48.777] - Launch lazy future ... done 1568s [00:52:48.777] run() for ‘SequentialFuture’ ... done 1568s [00:52:48.778] Created future: 1568s [00:52:48.778] SequentialFuture: 1568s [00:52:48.778] Label: ‘future_sapply-1’ 1568s [00:52:48.778] Expression: 1568s [00:52:48.778] { 1568s [00:52:48.778] do.call(function(...) { 1568s [00:52:48.778] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1568s [00:52:48.778] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1568s [00:52:48.778] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1568s [00:52:48.778] on.exit(options(oopts), add = TRUE) 1568s [00:52:48.778] } 1568s [00:52:48.778] { 1568s [00:52:48.778] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1568s [00:52:48.778] ...future.X_jj <- ...future.elements_ii[[jj]] 1568s [00:52:48.778] ...future.FUN(...future.X_jj, ...) 1568s [00:52:48.778] }) 1568s [00:52:48.778] } 1568s [00:52:48.778] }, args = future.call.arguments) 1568s [00:52:48.778] } 1568s [00:52:48.778] Lazy evaluation: FALSE 1568s [00:52:48.778] Asynchronous evaluation: FALSE 1568s [00:52:48.778] Local evaluation: TRUE 1568s [00:52:48.778] Environment: R_GlobalEnv 1568s [00:52:48.778] Capture standard output: TRUE 1568s [00:52:48.778] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1568s [00:52:48.778] Globals: 5 objects totaling 4.78 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1568s [00:52:48.778] Packages: 1568s [00:52:48.778] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1568s [00:52:48.778] Resolved: TRUE 1568s [00:52:48.778] Value: 1.01 KiB of class ‘list’ 1568s [00:52:48.778] Early signaling: FALSE 1568s [00:52:48.778] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1568s [00:52:48.778] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1568s [00:52:48.780] Chunk #1 of 1 ... DONE 1568s [00:52:48.780] Launching 1 futures (chunks) ... DONE 1568s [00:52:48.781] Resolving 1 futures (chunks) ... 1568s [00:52:48.781] resolve() on list ... 1568s [00:52:48.781] recursive: 0 1568s [00:52:48.781] length: 1 1568s [00:52:48.781] 1568s [00:52:48.782] resolved() for ‘SequentialFuture’ ... 1568s [00:52:48.782] - state: ‘finished’ 1568s [00:52:48.782] - run: TRUE 1568s [00:52:48.783] - result: ‘FutureResult’ 1568s [00:52:48.783] resolved() for ‘SequentialFuture’ ... done 1568s [00:52:48.783] Future #1 1568s [00:52:48.783] signalConditionsASAP(SequentialFuture, pos=1) ... 1568s [00:52:48.783] - nx: 1 1568s [00:52:48.783] - relay: TRUE 1568s [00:52:48.783] - stdout: TRUE 1568s [00:52:48.784] - signal: TRUE 1568s [00:52:48.784] - resignal: FALSE 1568s [00:52:48.784] - force: TRUE 1568s [00:52:48.784] - relayed: [n=1] FALSE 1568s [00:52:48.784] - queued futures: [n=1] FALSE 1568s [00:52:48.784] - until=1 1568s [00:52:48.785] - relaying element #1 1568s [00:52:48.785] - relayed: [n=1] TRUE 1568s [00:52:48.785] - queued futures: [n=1] TRUE 1568s [00:52:48.785] signalConditionsASAP(SequentialFuture, pos=1) ... done 1568s [00:52:48.786] length: 0 (resolved future 1) 1568s [00:52:48.786] Relaying remaining futures 1568s [00:52:48.786] signalConditionsASAP(NULL, pos=0) ... 1568s [00:52:48.786] - nx: 1 1568s [00:52:48.786] - relay: TRUE 1568s [00:52:48.786] - stdout: TRUE 1568s [00:52:48.786] - signal: TRUE 1568s [00:52:48.787] - resignal: FALSE 1568s [00:52:48.787] - force: TRUE 1568s [00:52:48.787] - relayed: [n=1] TRUE 1568s [00:52:48.787] - queued futures: [n=1] TRUE 1568s - flush all 1568s [00:52:48.787] - relayed: [n=1] TRUE 1568s [00:52:48.787] - queued futures: [n=1] TRUE 1568s [00:52:48.787] signalConditionsASAP(NULL, pos=0) ... done 1568s [00:52:48.789] resolve() on list ... DONE 1568s [00:52:48.790] - Number of value chunks collected: 1 1568s List[00:52:48.790] Resolving 1 futures (chunks) ... DONE 1568s [00:52:48.790] Reducing values from 1 chunks ... 1568s [00:52:48.790] - Number of values collected after concatenation: 3 1568s [00:52:48.791] - Number of values expected: 3 1568s [00:52:48.791] Reducing values from 1 chunks ... DONE 1568s [00:52:48.791] future_lapply() ... DONE 1568s of 2 1568s $ y0:List of 3 1568s ..$ a: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1568s ..$ b: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1568s ..$ c: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1568s $ y1:List of 3 1568s ..$ a: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1568s ..$ b: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1568s ..$ c: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1568s List of 2 1568s $ y0:List of 3 1568s ..$ a: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1568s ..$ b: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1568s ..$ c: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1568s $ y2:List of 3 1568s ..$ a: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1568s ..$ b: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1568s ..$ [00:52:48.808] future_lapply() ... 1568s c: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1568s [00:52:48.809] Number of chunks: 1 1568s [00:52:48.810] getGlobalsAndPackagesXApply() ... 1568s [00:52:48.810] - future.globals: TRUE 1568s [00:52:48.811] getGlobalsAndPackages() ... 1568s [00:52:48.812] Searching for globals... 1568s [00:52:48.815] - globals found: [1] ‘FUN’ 1568s [00:52:48.816] Searching for globals ... DONE 1568s [00:52:48.816] Resolving globals: FALSE 1568s [00:52:48.816] The total size of the 1 globals is 848 bytes (848 bytes) 1568s [00:52:48.818] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1568s [00:52:48.818] - globals: [1] ‘FUN’ 1568s [00:52:48.819] 1568s [00:52:48.819] getGlobalsAndPackages() ... DONE 1568s [00:52:48.820] - globals found/used: [n=1] ‘FUN’ 1568s [00:52:48.820] - needed namespaces: [n=0] 1568s [00:52:48.821] Finding globals ... DONE 1568s [00:52:48.821] - use_args: TRUE 1568s [00:52:48.821] - Getting '...' globals ... 1568s [00:52:48.822] resolve() on list ... 1568s [00:52:48.822] recursive: 0 1568s [00:52:48.823] length: 1 1568s [00:52:48.823] elements: ‘...’ 1568s [00:52:48.824] length: 0 (resolved future 1) 1568s [00:52:48.824] resolve() on list ... DONE 1568s [00:52:48.824] - '...' content: [n=0] 1568s [00:52:48.825] List of 1 1568s [00:52:48.825] $ ...: list() 1568s [00:52:48.825] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1568s [00:52:48.825] - attr(*, "where")=List of 1 1568s [00:52:48.825] ..$ ...: 1568s [00:52:48.825] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1568s [00:52:48.825] - attr(*, "resolved")= logi TRUE 1568s [00:52:48.825] - attr(*, "total_size")= num NA 1568s [00:52:48.833] - Getting '...' globals ... DONE 1568s [00:52:48.833] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1568s [00:52:48.833] List of 2 1568s [00:52:48.833] $ ...future.FUN:function (x) 1568s [00:52:48.833] $ ... : list() 1568s [00:52:48.833] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1568s [00:52:48.833] - attr(*, "where")=List of 2 1568s [00:52:48.833] ..$ ...future.FUN: 1568s [00:52:48.833] ..$ ... : 1568s [00:52:48.833] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1568s [00:52:48.833] - attr(*, "resolved")= logi FALSE 1568s [00:52:48.833] - attr(*, "total_size")= num 848 1568s [00:52:48.837] Packages to be attached in all futures: [n=0] 1568s [00:52:48.837] getGlobalsAndPackagesXApply() ... DONE 1568s [00:52:48.837] Number of futures (= number of chunks): 1 1568s [00:52:48.838] Launching 1 futures (chunks) ... 1568s [00:52:48.838] Chunk #1 of 1 ... 1568s [00:52:48.838] - Finding globals in 'X' for chunk #1 ... 1568s [00:52:48.838] getGlobalsAndPackages() ... 1568s [00:52:48.838] Searching for globals... 1568s [00:52:48.838] 1568s [00:52:48.839] Searching for globals ... DONE 1568s [00:52:48.839] - globals: [0] 1568s [00:52:48.839] getGlobalsAndPackages() ... DONE 1568s [00:52:48.839] + additional globals found: [n=0] 1568s [00:52:48.839] + additional namespaces needed: [n=0] 1568s [00:52:48.839] - Finding globals in 'X' for chunk #1 ... DONE 1568s [00:52:48.839] - seeds: 1568s [00:52:48.839] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1568s [00:52:48.839] getGlobalsAndPackages() ... 1568s [00:52:48.840] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1568s [00:52:48.840] Resolving globals: FALSE 1568s [00:52:48.840] Tweak future expression to call with '...' arguments ... 1568s [00:52:48.840] { 1568s [00:52:48.840] do.call(function(...) { 1568s [00:52:48.840] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1568s [00:52:48.840] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1568s [00:52:48.840] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1568s [00:52:48.840] on.exit(options(oopts), add = TRUE) 1568s [00:52:48.840] } 1568s [00:52:48.840] { 1568s [00:52:48.840] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1568s [00:52:48.840] ...future.X_jj <- ...future.elements_ii[[jj]] 1568s [00:52:48.840] ...future.FUN(...future.X_jj, ...) 1568s [00:52:48.840] }) 1568s [00:52:48.840] } 1568s [00:52:48.840] }, args = future.call.arguments) 1568s [00:52:48.840] } 1568s [00:52:48.841] Tweak future expression to call with '...' arguments ... DONE 1568s [00:52:48.841] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1568s [00:52:48.842] 1568s [00:52:48.842] getGlobalsAndPackages() ... DONE 1568s [00:52:48.842] run() for ‘Future’ ... 1568s [00:52:48.842] - state: ‘created’ 1568s [00:52:48.842] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1568s [00:52:48.843] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1568s [00:52:48.843] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1568s [00:52:48.843] - Field: ‘label’ 1568s [00:52:48.843] - Field: ‘local’ 1568s [00:52:48.844] - Field: ‘owner’ 1568s [00:52:48.844] - Field: ‘envir’ 1568s [00:52:48.844] - Field: ‘packages’ 1568s [00:52:48.844] - Field: ‘gc’ 1568s [00:52:48.844] - Field: ‘conditions’ 1568s [00:52:48.844] - Field: ‘expr’ 1568s [00:52:48.845] - Field: ‘uuid’ 1568s [00:52:48.847] - Field: ‘seed’ 1568s [00:52:48.847] - Field: ‘version’ 1568s [00:52:48.847] - Field: ‘result’ 1568s [00:52:48.847] - Field: ‘asynchronous’ 1568s [00:52:48.848] - Field: ‘calls’ 1568s [00:52:48.848] - Field: ‘globals’ 1568s [00:52:48.848] - Field: ‘stdout’ 1568s [00:52:48.848] - Field: ‘earlySignal’ 1568s [00:52:48.848] - Field: ‘lazy’ 1568s [00:52:48.848] - Field: ‘state’ 1568s [00:52:48.849] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1568s [00:52:48.849] - Launch lazy future ... 1568s [00:52:48.849] Packages needed by the future expression (n = 0): 1568s [00:52:48.849] Packages needed by future strategies (n = 0): 1568s [00:52:48.850] { 1568s [00:52:48.850] { 1568s [00:52:48.850] { 1568s [00:52:48.850] ...future.startTime <- base::Sys.time() 1568s [00:52:48.850] { 1568s [00:52:48.850] { 1568s [00:52:48.850] { 1568s [00:52:48.850] base::local({ 1568s [00:52:48.850] has_future <- base::requireNamespace("future", 1568s [00:52:48.850] quietly = TRUE) 1568s [00:52:48.850] if (has_future) { 1568s [00:52:48.850] ns <- base::getNamespace("future") 1568s [00:52:48.850] version <- ns[[".package"]][["version"]] 1568s [00:52:48.850] if (is.null(version)) 1568s [00:52:48.850] version <- utils::packageVersion("future") 1568s [00:52:48.850] } 1568s [00:52:48.850] else { 1568s [00:52:48.850] version <- NULL 1568s [00:52:48.850] } 1568s [00:52:48.850] if (!has_future || version < "1.8.0") { 1568s [00:52:48.850] info <- base::c(r_version = base::gsub("R version ", 1568s [00:52:48.850] "", base::R.version$version.string), 1568s [00:52:48.850] platform = base::sprintf("%s (%s-bit)", 1568s [00:52:48.850] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1568s [00:52:48.850] os = base::paste(base::Sys.info()[base::c("sysname", 1568s [00:52:48.850] "release", "version")], collapse = " "), 1568s [00:52:48.850] hostname = base::Sys.info()[["nodename"]]) 1568s [00:52:48.850] info <- base::sprintf("%s: %s", base::names(info), 1568s [00:52:48.850] info) 1568s [00:52:48.850] info <- base::paste(info, collapse = "; ") 1568s [00:52:48.850] if (!has_future) { 1568s [00:52:48.850] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1568s [00:52:48.850] info) 1568s [00:52:48.850] } 1568s [00:52:48.850] else { 1568s [00:52:48.850] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1568s [00:52:48.850] info, version) 1568s [00:52:48.850] } 1568s [00:52:48.850] base::stop(msg) 1568s [00:52:48.850] } 1568s [00:52:48.850] }) 1568s [00:52:48.850] } 1568s [00:52:48.850] options(future.plan = NULL) 1568s [00:52:48.850] Sys.unsetenv("R_FUTURE_PLAN") 1568s [00:52:48.850] future::plan("default", .cleanup = FALSE, .init = FALSE) 1568s [00:52:48.850] } 1568s [00:52:48.850] ...future.workdir <- getwd() 1568s [00:52:48.850] } 1568s [00:52:48.850] ...future.oldOptions <- base::as.list(base::.Options) 1568s [00:52:48.850] ...future.oldEnvVars <- base::Sys.getenv() 1568s [00:52:48.850] } 1568s [00:52:48.850] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1568s [00:52:48.850] future.globals.maxSize = NULL, future.globals.method = NULL, 1568s [00:52:48.850] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1568s [00:52:48.850] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1568s [00:52:48.850] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1568s [00:52:48.850] future.stdout.windows.reencode = NULL, width = 80L) 1568s [00:52:48.850] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1568s [00:52:48.850] base::names(...future.oldOptions)) 1568s [00:52:48.850] } 1568s [00:52:48.850] if (FALSE) { 1568s [00:52:48.850] } 1568s [00:52:48.850] else { 1568s [00:52:48.850] if (TRUE) { 1568s [00:52:48.850] ...future.stdout <- base::rawConnection(base::raw(0L), 1568s [00:52:48.850] open = "w") 1568s [00:52:48.850] } 1568s [00:52:48.850] else { 1568s [00:52:48.850] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1568s [00:52:48.850] windows = "NUL", "/dev/null"), open = "w") 1568s [00:52:48.850] } 1568s [00:52:48.850] base::sink(...future.stdout, type = "output", split = FALSE) 1568s [00:52:48.850] base::on.exit(if (!base::is.null(...future.stdout)) { 1568s [00:52:48.850] base::sink(type = "output", split = FALSE) 1568s [00:52:48.850] base::close(...future.stdout) 1568s [00:52:48.850] }, add = TRUE) 1568s [00:52:48.850] } 1568s [00:52:48.850] ...future.frame <- base::sys.nframe() 1568s [00:52:48.850] ...future.conditions <- base::list() 1568s [00:52:48.850] ...future.rng <- base::globalenv()$.Random.seed 1568s [00:52:48.850] if (FALSE) { 1568s [00:52:48.850] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1568s [00:52:48.850] "...future.value", "...future.globalenv.names", ".Random.seed") 1568s [00:52:48.850] } 1568s [00:52:48.850] ...future.result <- base::tryCatch({ 1568s [00:52:48.850] base::withCallingHandlers({ 1568s [00:52:48.850] ...future.value <- base::withVisible(base::local({ 1568s [00:52:48.850] do.call(function(...) { 1568s [00:52:48.850] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1568s [00:52:48.850] if (!identical(...future.globals.maxSize.org, 1568s [00:52:48.850] ...future.globals.maxSize)) { 1568s [00:52:48.850] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1568s [00:52:48.850] on.exit(options(oopts), add = TRUE) 1568s [00:52:48.850] } 1568s [00:52:48.850] { 1568s [00:52:48.850] lapply(seq_along(...future.elements_ii), 1568s [00:52:48.850] FUN = function(jj) { 1568s [00:52:48.850] ...future.X_jj <- ...future.elements_ii[[jj]] 1568s [00:52:48.850] ...future.FUN(...future.X_jj, ...) 1568s [00:52:48.850] }) 1568s [00:52:48.850] } 1568s [00:52:48.850] }, args = future.call.arguments) 1568s [00:52:48.850] })) 1568s [00:52:48.850] future::FutureResult(value = ...future.value$value, 1568s [00:52:48.850] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1568s [00:52:48.850] ...future.rng), globalenv = if (FALSE) 1568s [00:52:48.850] list(added = base::setdiff(base::names(base::.GlobalEnv), 1568s [00:52:48.850] ...future.globalenv.names)) 1568s [00:52:48.850] else NULL, started = ...future.startTime, version = "1.8") 1568s [00:52:48.850] }, condition = base::local({ 1568s [00:52:48.850] c <- base::c 1568s [00:52:48.850] inherits <- base::inherits 1568s [00:52:48.850] invokeRestart <- base::invokeRestart 1568s [00:52:48.850] length <- base::length 1568s [00:52:48.850] list <- base::list 1568s [00:52:48.850] seq.int <- base::seq.int 1568s [00:52:48.850] signalCondition <- base::signalCondition 1568s [00:52:48.850] sys.calls <- base::sys.calls 1568s [00:52:48.850] `[[` <- base::`[[` 1568s [00:52:48.850] `+` <- base::`+` 1568s [00:52:48.850] `<<-` <- base::`<<-` 1568s [00:52:48.850] sysCalls <- function(calls = sys.calls(), from = 1L) { 1568s [00:52:48.850] calls[seq.int(from = from + 12L, to = length(calls) - 1568s [00:52:48.850] 3L)] 1568s [00:52:48.850] } 1568s [00:52:48.850] function(cond) { 1568s [00:52:48.850] is_error <- inherits(cond, "error") 1568s [00:52:48.850] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1568s [00:52:48.850] NULL) 1568s [00:52:48.850] if (is_error) { 1568s [00:52:48.850] sessionInformation <- function() { 1568s [00:52:48.850] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1568s [00:52:48.850] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1568s [00:52:48.850] search = base::search(), system = base::Sys.info()) 1568s [00:52:48.850] } 1568s [00:52:48.850] ...future.conditions[[length(...future.conditions) + 1568s [00:52:48.850] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1568s [00:52:48.850] cond$call), session = sessionInformation(), 1568s [00:52:48.850] timestamp = base::Sys.time(), signaled = 0L) 1568s [00:52:48.850] signalCondition(cond) 1568s [00:52:48.850] } 1568s [00:52:48.850] else if (!ignore && TRUE && inherits(cond, c("condition", 1568s [00:52:48.850] "immediateCondition"))) { 1568s [00:52:48.850] signal <- TRUE && inherits(cond, "immediateCondition") 1568s [00:52:48.850] ...future.conditions[[length(...future.conditions) + 1568s [00:52:48.850] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1568s [00:52:48.850] if (TRUE && !signal) { 1568s [00:52:48.850] muffleCondition <- function (cond, pattern = "^muffle") 1568s [00:52:48.850] { 1568s [00:52:48.850] inherits <- base::inherits 1568s [00:52:48.850] invokeRestart <- base::invokeRestart 1568s [00:52:48.850] is.null <- base::is.null 1568s [00:52:48.850] muffled <- FALSE 1568s [00:52:48.850] if (inherits(cond, "message")) { 1568s [00:52:48.850] muffled <- grepl(pattern, "muffleMessage") 1568s [00:52:48.850] if (muffled) 1568s [00:52:48.850] invokeRestart("muffleMessage") 1568s [00:52:48.850] } 1568s [00:52:48.850] else if (inherits(cond, "warning")) { 1568s [00:52:48.850] muffled <- grepl(pattern, "muffleWarning") 1568s [00:52:48.850] if (muffled) 1568s [00:52:48.850] invokeRestart("muffleWarning") 1568s [00:52:48.850] } 1568s [00:52:48.850] else if (inherits(cond, "condition")) { 1568s [00:52:48.850] if (!is.null(pattern)) { 1568s [00:52:48.850] computeRestarts <- base::computeRestarts 1568s [00:52:48.850] grepl <- base::grepl 1568s [00:52:48.850] restarts <- computeRestarts(cond) 1568s [00:52:48.850] for (restart in restarts) { 1568s [00:52:48.850] name <- restart$name 1568s [00:52:48.850] if (is.null(name)) 1568s [00:52:48.850] next 1568s [00:52:48.850] if (!grepl(pattern, name)) 1568s [00:52:48.850] next 1568s [00:52:48.850] invokeRestart(restart) 1568s [00:52:48.850] muffled <- TRUE 1568s [00:52:48.850] break 1568s [00:52:48.850] } 1568s [00:52:48.850] } 1568s [00:52:48.850] } 1568s [00:52:48.850] invisible(muffled) 1568s [00:52:48.850] } 1568s [00:52:48.850] muffleCondition(cond, pattern = "^muffle") 1568s [00:52:48.850] } 1568s [00:52:48.850] } 1568s [00:52:48.850] else { 1568s [00:52:48.850] if (TRUE) { 1568s [00:52:48.850] muffleCondition <- function (cond, pattern = "^muffle") 1568s [00:52:48.850] { 1568s [00:52:48.850] inherits <- base::inherits 1568s [00:52:48.850] invokeRestart <- base::invokeRestart 1568s [00:52:48.850] is.null <- base::is.null 1568s [00:52:48.850] muffled <- FALSE 1568s [00:52:48.850] if (inherits(cond, "message")) { 1568s [00:52:48.850] muffled <- grepl(pattern, "muffleMessage") 1568s [00:52:48.850] if (muffled) 1568s [00:52:48.850] invokeRestart("muffleMessage") 1568s [00:52:48.850] } 1568s [00:52:48.850] else if (inherits(cond, "warning")) { 1568s [00:52:48.850] muffled <- grepl(pattern, "muffleWarning") 1568s [00:52:48.850] if (muffled) 1568s [00:52:48.850] invokeRestart("muffleWarning") 1568s [00:52:48.850] } 1568s [00:52:48.850] else if (inherits(cond, "condition")) { 1568s [00:52:48.850] if (!is.null(pattern)) { 1568s [00:52:48.850] computeRestarts <- base::computeRestarts 1568s [00:52:48.850] grepl <- base::grepl 1568s [00:52:48.850] restarts <- computeRestarts(cond) 1568s [00:52:48.850] for (restart in restarts) { 1568s [00:52:48.850] name <- restart$name 1568s [00:52:48.850] if (is.null(name)) 1568s [00:52:48.850] next 1568s [00:52:48.850] if (!grepl(pattern, name)) 1568s [00:52:48.850] next 1568s [00:52:48.850] invokeRestart(restart) 1568s [00:52:48.850] muffled <- TRUE 1568s [00:52:48.850] break 1568s [00:52:48.850] } 1568s [00:52:48.850] } 1568s [00:52:48.850] } 1568s [00:52:48.850] invisible(muffled) 1568s [00:52:48.850] } 1568s [00:52:48.850] muffleCondition(cond, pattern = "^muffle") 1568s [00:52:48.850] } 1568s [00:52:48.850] } 1568s [00:52:48.850] } 1568s [00:52:48.850] })) 1568s [00:52:48.850] }, error = function(ex) { 1568s [00:52:48.850] base::structure(base::list(value = NULL, visible = NULL, 1568s [00:52:48.850] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1568s [00:52:48.850] ...future.rng), started = ...future.startTime, 1568s [00:52:48.850] finished = Sys.time(), session_uuid = NA_character_, 1568s [00:52:48.850] version = "1.8"), class = "FutureResult") 1568s [00:52:48.850] }, finally = { 1568s [00:52:48.850] if (!identical(...future.workdir, getwd())) 1568s [00:52:48.850] setwd(...future.workdir) 1568s [00:52:48.850] { 1568s [00:52:48.850] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1568s [00:52:48.850] ...future.oldOptions$nwarnings <- NULL 1568s [00:52:48.850] } 1568s [00:52:48.850] base::options(...future.oldOptions) 1568s [00:52:48.850] if (.Platform$OS.type == "windows") { 1568s [00:52:48.850] old_names <- names(...future.oldEnvVars) 1568s [00:52:48.850] envs <- base::Sys.getenv() 1568s [00:52:48.850] names <- names(envs) 1568s [00:52:48.850] common <- intersect(names, old_names) 1568s [00:52:48.850] added <- setdiff(names, old_names) 1568s [00:52:48.850] removed <- setdiff(old_names, names) 1568s [00:52:48.850] changed <- common[...future.oldEnvVars[common] != 1568s [00:52:48.850] envs[common]] 1568s [00:52:48.850] NAMES <- toupper(changed) 1568s [00:52:48.850] args <- list() 1568s [00:52:48.850] for (kk in seq_along(NAMES)) { 1568s [00:52:48.850] name <- changed[[kk]] 1568s [00:52:48.850] NAME <- NAMES[[kk]] 1568s [00:52:48.850] if (name != NAME && is.element(NAME, old_names)) 1568s [00:52:48.850] next 1568s [00:52:48.850] args[[name]] <- ...future.oldEnvVars[[name]] 1568s [00:52:48.850] } 1568s [00:52:48.850] NAMES <- toupper(added) 1568s [00:52:48.850] for (kk in seq_along(NAMES)) { 1568s [00:52:48.850] name <- added[[kk]] 1568s [00:52:48.850] NAME <- NAMES[[kk]] 1568s [00:52:48.850] if (name != NAME && is.element(NAME, old_names)) 1568s [00:52:48.850] next 1568s [00:52:48.850] args[[name]] <- "" 1568s [00:52:48.850] } 1568s [00:52:48.850] NAMES <- toupper(removed) 1568s [00:52:48.850] for (kk in seq_along(NAMES)) { 1568s [00:52:48.850] name <- removed[[kk]] 1568s [00:52:48.850] NAME <- NAMES[[kk]] 1568s [00:52:48.850] if (name != NAME && is.element(NAME, old_names)) 1568s [00:52:48.850] next 1568s [00:52:48.850] args[[name]] <- ...future.oldEnvVars[[name]] 1568s [00:52:48.850] } 1568s [00:52:48.850] if (length(args) > 0) 1568s [00:52:48.850] base::do.call(base::Sys.setenv, args = args) 1568s [00:52:48.850] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1568s [00:52:48.850] } 1568s [00:52:48.850] else { 1568s [00:52:48.850] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1568s [00:52:48.850] } 1568s [00:52:48.850] { 1568s [00:52:48.850] if (base::length(...future.futureOptionsAdded) > 1568s [00:52:48.850] 0L) { 1568s [00:52:48.850] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1568s [00:52:48.850] base::names(opts) <- ...future.futureOptionsAdded 1568s [00:52:48.850] base::options(opts) 1568s [00:52:48.850] } 1568s [00:52:48.850] { 1568s [00:52:48.850] { 1568s [00:52:48.850] NULL 1568s [00:52:48.850] RNGkind("Mersenne-Twister") 1568s [00:52:48.850] base::rm(list = ".Random.seed", envir = base::globalenv(), 1568s [00:52:48.850] inherits = FALSE) 1568s [00:52:48.850] } 1568s [00:52:48.850] options(future.plan = NULL) 1568s [00:52:48.850] if (is.na(NA_character_)) 1568s [00:52:48.850] Sys.unsetenv("R_FUTURE_PLAN") 1568s [00:52:48.850] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1568s [00:52:48.850] future::plan(list(function (..., envir = parent.frame()) 1568s [00:52:48.850] { 1568s [00:52:48.850] future <- SequentialFuture(..., envir = envir) 1568s [00:52:48.850] if (!future$lazy) 1568s [00:52:48.850] future <- run(future) 1568s [00:52:48.850] invisible(future) 1568s [00:52:48.850] }), .cleanup = FALSE, .init = FALSE) 1568s [00:52:48.850] } 1568s [00:52:48.850] } 1568s [00:52:48.850] } 1568s [00:52:48.850] }) 1568s [00:52:48.850] if (TRUE) { 1568s [00:52:48.850] base::sink(type = "output", split = FALSE) 1568s [00:52:48.850] if (TRUE) { 1568s [00:52:48.850] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1568s [00:52:48.850] } 1568s [00:52:48.850] else { 1568s [00:52:48.850] ...future.result["stdout"] <- base::list(NULL) 1568s [00:52:48.850] } 1568s [00:52:48.850] base::close(...future.stdout) 1568s [00:52:48.850] ...future.stdout <- NULL 1568s [00:52:48.850] } 1568s [00:52:48.850] ...future.result$conditions <- ...future.conditions 1568s [00:52:48.850] ...future.result$finished <- base::Sys.time() 1568s [00:52:48.850] ...future.result 1568s [00:52:48.850] } 1568s [00:52:48.857] assign_globals() ... 1568s [00:52:48.857] List of 5 1568s [00:52:48.857] $ ...future.FUN :function (x) 1568s [00:52:48.857] $ future.call.arguments : list() 1568s [00:52:48.857] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1568s [00:52:48.857] $ ...future.elements_ii :List of 3 1568s [00:52:48.857] ..$ a: num 1 1568s [00:52:48.857] ..$ b: num 2 1568s [00:52:48.857] ..$ c: num 3 1568s [00:52:48.857] $ ...future.seeds_ii : NULL 1568s [00:52:48.857] $ ...future.globals.maxSize: NULL 1568s [00:52:48.857] - attr(*, "where")=List of 5 1568s [00:52:48.857] ..$ ...future.FUN : 1568s [00:52:48.857] ..$ future.call.arguments : 1568s [00:52:48.857] ..$ ...future.elements_ii : 1568s [00:52:48.857] ..$ ...future.seeds_ii : 1568s [00:52:48.857] ..$ ...future.globals.maxSize: 1568s [00:52:48.857] - attr(*, "resolved")= logi FALSE 1568s [00:52:48.857] - attr(*, "total_size")= num 848 1568s [00:52:48.857] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1568s [00:52:48.857] - attr(*, "already-done")= logi TRUE 1568s [00:52:48.873] - copied ‘...future.FUN’ to environment 1568s [00:52:48.874] - copied ‘future.call.arguments’ to environment 1568s [00:52:48.874] - copied ‘...future.elements_ii’ to environment 1568s [00:52:48.874] - copied ‘...future.seeds_ii’ to environment 1568s [00:52:48.875] - copied ‘...future.globals.maxSize’ to environment 1568s [00:52:48.875] assign_globals() ... done 1568s [00:52:48.876] plan(): Setting new future strategy stack: 1568s [00:52:48.876] List of future strategies: 1568s [00:52:48.876] 1. sequential: 1568s [00:52:48.876] - args: function (..., envir = parent.frame()) 1568s [00:52:48.876] - tweaked: FALSE 1568s [00:52:48.876] - call: NULL 1568s [00:52:48.876] plan(): nbrOfWorkers() = 1 1568s [00:52:48.878] plan(): Setting new future strategy stack: 1568s [00:52:48.878] List of future strategies: 1568s [00:52:48.878] 1. sequential: 1568s [00:52:48.878] - args: function (..., envir = parent.frame()) 1568s [00:52:48.878] - tweaked: FALSE 1568s [00:52:48.878] - call: plan(strategy) 1568s [00:52:48.878] plan(): nbrOfWorkers() = 1 1568s [00:52:48.879] SequentialFuture started (and completed) 1568s [00:52:48.879] - Launch lazy future ... done 1568s [00:52:48.879] run() for ‘SequentialFuture’ ... done 1568s [00:52:48.879] Created future: 1568s [00:52:48.879] SequentialFuture: 1568s [00:52:48.879] Label: ‘future_sapply-1’ 1568s [00:52:48.879] Expression: 1568s [00:52:48.879] { 1568s [00:52:48.879] do.call(function(...) { 1568s [00:52:48.879] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1568s [00:52:48.879] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1568s [00:52:48.879] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1568s [00:52:48.879] on.exit(options(oopts), add = TRUE) 1568s [00:52:48.879] } 1568s [00:52:48.879] { 1568s [00:52:48.879] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1568s [00:52:48.879] ...future.X_jj <- ...future.elements_ii[[jj]] 1568s [00:52:48.879] ...future.FUN(...future.X_jj, ...) 1568s [00:52:48.879] }) 1568s [00:52:48.879] } 1568s [00:52:48.879] }, args = future.call.arguments) 1568s [00:52:48.879] } 1568s [00:52:48.879] Lazy evaluation: FALSE 1568s [00:52:48.879] Asynchronous evaluation: FALSE 1568s [00:52:48.879] Local evaluation: TRUE 1568s [00:52:48.879] Environment: R_GlobalEnv 1568s [00:52:48.879] Capture standard output: TRUE 1568s [00:52:48.879] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1568s [00:52:48.879] Globals: 5 objects totaling 0.99 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1568s [00:52:48.879] Packages: 1568s [00:52:48.879] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1568s [00:52:48.879] Resolved: TRUE 1568s [00:52:48.879] Value: 168 bytes of class ‘list’ 1568s [00:52:48.879] Early signaling: FALSE 1568s [00:52:48.879] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1568s [00:52:48.879] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1568s [00:52:48.882] Chunk #1 of 1 ... DONE 1568s [00:52:48.882] Launching 1 futures (chunks) ... DONE 1568s [00:52:48.882] Resolving 1 futures (chunks) ... 1568s [00:52:48.882] resolve() on list ... 1568s [00:52:48.882] recursive: 0 1568s [00:52:48.883] length: 1 1568s [00:52:48.883] 1568s [00:52:48.883] resolved() for ‘SequentialFuture’ ... 1568s [00:52:48.883] - state: ‘finished’ 1568s [00:52:48.883] - run: TRUE 1568s [00:52:48.884] - result: ‘FutureResult’ 1568s [00:52:48.884] resolved() for ‘SequentialFuture’ ... done 1568s [00:52:48.884] Future #1 1568s [00:52:48.884] signalConditionsASAP(SequentialFuture, pos=1) ... 1568s [00:52:48.884] - nx: 1 1568s [00:52:48.885] - relay: TRUE 1568s [00:52:48.885] - stdout: TRUE 1568s [00:52:48.885] - signal: TRUE 1568s [00:52:48.885] - resignal: FALSE 1568s [00:52:48.885] - force: TRUE 1568s [00:52:48.886] - relayed: [n=1] FALSE 1568s [00:52:48.886] - queued futures: [n=1] FALSE 1568s [00:52:48.886] - until=1 1568s [00:52:48.886] - relaying element #1 1568s [00:52:48.886] - relayed: [n=1] TRUE 1568s [00:52:48.887] - queued futures: [n=1] TRUE 1568s [00:52:48.887] signalConditionsASAP(SequentialFuture, pos=1) ... done 1568s [00:52:48.887] length: 0 (resolved future 1) 1568s [00:52:48.887] Relaying remaining futures 1568s [00:52:48.887] signalConditionsASAP(NULL, pos=0) ... 1568s [00:52:48.887] - nx: 1 1568s [00:52:48.887] - relay: TRUE 1568s [00:52:48.888] - stdout: TRUE 1568s [00:52:48.888] - signal: TRUE 1568s [00:52:48.888] - resignal: FALSE 1568s [00:52:48.888] - force: TRUE 1568s [00:52:48.888] - relayed: [n=1] TRUE 1568s [00:52:48.888] - queued futures: [n=1] TRUE 1568s - flush all 1568s [00:52:48.889] - relayed: [n=1] TRUE 1568s [00:52:48.889] - queued futures: [n=1] TRUE 1568s [00:52:48.889] signalConditionsASAP(NULL, pos=0) ... done 1568s [00:52:48.891] resolve() on list ... DONE 1568s [00:52:48.892] - Number of value chunks collected: 1 1568s [00:52:48.892] Resolving 1 futures (chunks) ... DONE 1568s [00:52:48.893] Reducing values from 1 chunks ... 1568s [00:52:48.894] - Number of values collected after concatenation: 3 1568s [00:52:48.895] - Number of values expected: 3 1568s [00:52:48.896] Reducing values from 1 chunks ... DONE 1568s [00:52:48.896] future_lapply() ... DONE 1568s List of 2 1568s $ y0: Named num [1:3] 1 2 3 1568s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1568s $ y1: Named num [1:3] 1 2 3 1568s ..- attr(*, "names")= chr [1:3] [00:52:48.904] future_lapply() ... 1568s "a" "b" "c" 1568s [00:52:48.905] Number of chunks: 1 1568s [00:52:48.906] getGlobalsAndPackagesXApply() ... 1568s [00:52:48.906] - future.globals: TRUE 1568s [00:52:48.906] getGlobalsAndPackages() ... 1568s [00:52:48.907] Searching for globals... 1568s [00:52:48.909] - globals found: [2] ‘FUN’, ‘UseMethod’ 1568s [00:52:48.910] Searching for globals ... DONE 1568s [00:52:48.910] Resolving globals: FALSE 1568s [00:52:48.911] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1568s [00:52:48.913] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1568s [00:52:48.913] - globals: [1] ‘FUN’ 1568s [00:52:48.914] 1568s [00:52:48.915] getGlobalsAndPackages() ... DONE 1568s [00:52:48.915] - globals found/used: [n=1] ‘FUN’ 1568s [00:52:48.916] - needed namespaces: [n=0] 1568s [00:52:48.916] Finding globals ... DONE 1568s [00:52:48.916] - use_args: TRUE 1568s [00:52:48.916] - Getting '...' globals ... 1568s [00:52:48.917] resolve() on list ... 1568s [00:52:48.917] recursive: 0 1568s [00:52:48.917] length: 1 1568s [00:52:48.917] elements: ‘...’ 1568s [00:52:48.918] length: 0 (resolved future 1) 1568s [00:52:48.918] resolve() on list ... DONE 1568s [00:52:48.918] - '...' content: [n=0] 1568s [00:52:48.918] List of 1 1568s [00:52:48.918] $ ...: list() 1568s [00:52:48.918] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1568s [00:52:48.918] - attr(*, "where")=List of 1 1568s [00:52:48.918] ..$ ...: 1568s [00:52:48.918] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1568s [00:52:48.918] - attr(*, "resolved")= logi TRUE 1568s [00:52:48.918] - attr(*, "total_size")= num NA 1568s [00:52:48.924] - Getting '...' globals ... DONE 1568s [00:52:48.924] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1568s [00:52:48.924] List of 2 1568s [00:52:48.924] $ ...future.FUN:function (x, ...) 1568s [00:52:48.924] $ ... : list() 1568s [00:52:48.924] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1568s [00:52:48.924] - attr(*, "where")=List of 2 1568s [00:52:48.924] ..$ ...future.FUN: 1568s [00:52:48.924] ..$ ... : 1568s [00:52:48.924] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1568s [00:52:48.924] - attr(*, "resolved")= logi FALSE 1568s [00:52:48.924] - attr(*, "total_size")= num 1248 1568s [00:52:48.932] Packages to be attached in all futures: [n=0] 1568s [00:52:48.932] getGlobalsAndPackagesXApply() ... DONE 1568s [00:52:48.933] Number of futures (= number of chunks): 1 1568s [00:52:48.933] Launching 1 futures (chunks) ... 1568s [00:52:48.933] Chunk #1 of 1 ... 1568s [00:52:48.933] - Finding globals in 'X' for chunk #1 ... 1568s [00:52:48.934] getGlobalsAndPackages() ... 1568s [00:52:48.934] Searching for globals... 1568s [00:52:48.934] 1568s [00:52:48.934] Searching for globals ... DONE 1568s [00:52:48.934] - globals: [0] 1568s [00:52:48.935] getGlobalsAndPackages() ... DONE 1568s [00:52:48.935] + additional globals found: [n=0] 1568s [00:52:48.935] + additional namespaces needed: [n=0] 1568s [00:52:48.935] - Finding globals in 'X' for chunk #1 ... DONE 1568s [00:52:48.935] - seeds: 1568s [00:52:48.936] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1568s [00:52:48.936] getGlobalsAndPackages() ... 1568s [00:52:48.936] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1568s [00:52:48.936] Resolving globals: FALSE 1568s [00:52:48.937] Tweak future expression to call with '...' arguments ... 1568s [00:52:48.937] { 1568s [00:52:48.937] do.call(function(...) { 1568s [00:52:48.937] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1568s [00:52:48.937] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1568s [00:52:48.937] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1568s [00:52:48.937] on.exit(options(oopts), add = TRUE) 1568s [00:52:48.937] } 1568s [00:52:48.937] { 1568s [00:52:48.937] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1568s [00:52:48.937] ...future.X_jj <- ...future.elements_ii[[jj]] 1568s [00:52:48.937] ...future.FUN(...future.X_jj, ...) 1568s [00:52:48.937] }) 1568s [00:52:48.937] } 1568s [00:52:48.937] }, args = future.call.arguments) 1568s [00:52:48.937] } 1568s [00:52:48.937] Tweak future expression to call with '...' arguments ... DONE 1568s [00:52:48.938] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1568s [00:52:48.938] 1568s [00:52:48.938] getGlobalsAndPackages() ... DONE 1568s [00:52:48.939] run() for ‘Future’ ... 1568s [00:52:48.939] - state: ‘created’ 1568s [00:52:48.939] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1568s [00:52:48.939] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1568s [00:52:48.940] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1568s [00:52:48.940] - Field: ‘label’ 1568s [00:52:48.940] - Field: ‘local’ 1568s [00:52:48.940] - Field: ‘owner’ 1568s [00:52:48.941] - Field: ‘envir’ 1568s [00:52:48.941] - Field: ‘packages’ 1568s [00:52:48.941] - Field: ‘gc’ 1568s [00:52:48.941] - Field: ‘conditions’ 1568s [00:52:48.942] - Field: ‘expr’ 1568s [00:52:48.942] - Field: ‘uuid’ 1568s [00:52:48.942] - Field: ‘seed’ 1568s [00:52:48.942] - Field: ‘version’ 1568s [00:52:48.942] - Field: ‘result’ 1568s [00:52:48.942] - Field: ‘asynchronous’ 1568s [00:52:48.943] - Field: ‘calls’ 1568s [00:52:48.943] - Field: ‘globals’ 1568s [00:52:48.943] - Field: ‘stdout’ 1568s [00:52:48.943] - Field: ‘earlySignal’ 1568s [00:52:48.943] - Field: ‘lazy’ 1568s [00:52:48.944] - Field: ‘state’ 1568s [00:52:48.944] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1568s [00:52:48.944] - Launch lazy future ... 1568s [00:52:48.944] Packages needed by the future expression (n = 0): 1568s [00:52:48.944] Packages needed by future strategies (n = 0): 1568s [00:52:48.945] { 1568s [00:52:48.945] { 1568s [00:52:48.945] { 1568s [00:52:48.945] ...future.startTime <- base::Sys.time() 1568s [00:52:48.945] { 1568s [00:52:48.945] { 1568s [00:52:48.945] { 1568s [00:52:48.945] base::local({ 1568s [00:52:48.945] has_future <- base::requireNamespace("future", 1568s [00:52:48.945] quietly = TRUE) 1568s [00:52:48.945] if (has_future) { 1568s [00:52:48.945] ns <- base::getNamespace("future") 1568s [00:52:48.945] version <- ns[[".package"]][["version"]] 1568s [00:52:48.945] if (is.null(version)) 1568s [00:52:48.945] version <- utils::packageVersion("future") 1568s [00:52:48.945] } 1568s [00:52:48.945] else { 1568s [00:52:48.945] version <- NULL 1568s [00:52:48.945] } 1568s [00:52:48.945] if (!has_future || version < "1.8.0") { 1568s [00:52:48.945] info <- base::c(r_version = base::gsub("R version ", 1568s [00:52:48.945] "", base::R.version$version.string), 1568s [00:52:48.945] platform = base::sprintf("%s (%s-bit)", 1568s [00:52:48.945] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1568s [00:52:48.945] os = base::paste(base::Sys.info()[base::c("sysname", 1568s [00:52:48.945] "release", "version")], collapse = " "), 1568s [00:52:48.945] hostname = base::Sys.info()[["nodename"]]) 1568s [00:52:48.945] info <- base::sprintf("%s: %s", base::names(info), 1568s [00:52:48.945] info) 1568s [00:52:48.945] info <- base::paste(info, collapse = "; ") 1568s [00:52:48.945] if (!has_future) { 1568s [00:52:48.945] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1568s [00:52:48.945] info) 1568s [00:52:48.945] } 1568s [00:52:48.945] else { 1568s [00:52:48.945] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1568s [00:52:48.945] info, version) 1568s [00:52:48.945] } 1568s [00:52:48.945] base::stop(msg) 1568s [00:52:48.945] } 1568s [00:52:48.945] }) 1568s [00:52:48.945] } 1568s [00:52:48.945] options(future.plan = NULL) 1568s [00:52:48.945] Sys.unsetenv("R_FUTURE_PLAN") 1568s [00:52:48.945] future::plan("default", .cleanup = FALSE, .init = FALSE) 1568s [00:52:48.945] } 1568s [00:52:48.945] ...future.workdir <- getwd() 1568s [00:52:48.945] } 1568s [00:52:48.945] ...future.oldOptions <- base::as.list(base::.Options) 1568s [00:52:48.945] ...future.oldEnvVars <- base::Sys.getenv() 1568s [00:52:48.945] } 1568s [00:52:48.945] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1568s [00:52:48.945] future.globals.maxSize = NULL, future.globals.method = NULL, 1568s [00:52:48.945] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1568s [00:52:48.945] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1568s [00:52:48.945] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1568s [00:52:48.945] future.stdout.windows.reencode = NULL, width = 80L) 1568s [00:52:48.945] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1568s [00:52:48.945] base::names(...future.oldOptions)) 1568s [00:52:48.945] } 1568s [00:52:48.945] if (FALSE) { 1568s [00:52:48.945] } 1568s [00:52:48.945] else { 1568s [00:52:48.945] if (TRUE) { 1568s [00:52:48.945] ...future.stdout <- base::rawConnection(base::raw(0L), 1568s [00:52:48.945] open = "w") 1568s [00:52:48.945] } 1568s [00:52:48.945] else { 1568s [00:52:48.945] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1568s [00:52:48.945] windows = "NUL", "/dev/null"), open = "w") 1568s [00:52:48.945] } 1568s [00:52:48.945] base::sink(...future.stdout, type = "output", split = FALSE) 1568s [00:52:48.945] base::on.exit(if (!base::is.null(...future.stdout)) { 1568s [00:52:48.945] base::sink(type = "output", split = FALSE) 1568s [00:52:48.945] base::close(...future.stdout) 1568s [00:52:48.945] }, add = TRUE) 1568s [00:52:48.945] } 1568s [00:52:48.945] ...future.frame <- base::sys.nframe() 1568s [00:52:48.945] ...future.conditions <- base::list() 1568s [00:52:48.945] ...future.rng <- base::globalenv()$.Random.seed 1568s [00:52:48.945] if (FALSE) { 1568s [00:52:48.945] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1568s [00:52:48.945] "...future.value", "...future.globalenv.names", ".Random.seed") 1568s [00:52:48.945] } 1568s [00:52:48.945] ...future.result <- base::tryCatch({ 1568s [00:52:48.945] base::withCallingHandlers({ 1568s [00:52:48.945] ...future.value <- base::withVisible(base::local({ 1568s [00:52:48.945] do.call(function(...) { 1568s [00:52:48.945] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1568s [00:52:48.945] if (!identical(...future.globals.maxSize.org, 1568s [00:52:48.945] ...future.globals.maxSize)) { 1568s [00:52:48.945] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1568s [00:52:48.945] on.exit(options(oopts), add = TRUE) 1568s [00:52:48.945] } 1568s [00:52:48.945] { 1568s [00:52:48.945] lapply(seq_along(...future.elements_ii), 1568s [00:52:48.945] FUN = function(jj) { 1568s [00:52:48.945] ...future.X_jj <- ...future.elements_ii[[jj]] 1568s [00:52:48.945] ...future.FUN(...future.X_jj, ...) 1568s [00:52:48.945] }) 1568s [00:52:48.945] } 1568s [00:52:48.945] }, args = future.call.arguments) 1568s [00:52:48.945] })) 1568s [00:52:48.945] future::FutureResult(value = ...future.value$value, 1568s [00:52:48.945] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1568s [00:52:48.945] ...future.rng), globalenv = if (FALSE) 1568s [00:52:48.945] list(added = base::setdiff(base::names(base::.GlobalEnv), 1568s [00:52:48.945] ...future.globalenv.names)) 1568s [00:52:48.945] else NULL, started = ...future.startTime, version = "1.8") 1568s [00:52:48.945] }, condition = base::local({ 1568s [00:52:48.945] c <- base::c 1568s [00:52:48.945] inherits <- base::inherits 1568s [00:52:48.945] invokeRestart <- base::invokeRestart 1568s [00:52:48.945] length <- base::length 1568s [00:52:48.945] list <- base::list 1568s [00:52:48.945] seq.int <- base::seq.int 1568s [00:52:48.945] signalCondition <- base::signalCondition 1568s [00:52:48.945] sys.calls <- base::sys.calls 1568s [00:52:48.945] `[[` <- base::`[[` 1568s [00:52:48.945] `+` <- base::`+` 1568s [00:52:48.945] `<<-` <- base::`<<-` 1568s [00:52:48.945] sysCalls <- function(calls = sys.calls(), from = 1L) { 1568s [00:52:48.945] calls[seq.int(from = from + 12L, to = length(calls) - 1568s [00:52:48.945] 3L)] 1568s [00:52:48.945] } 1568s [00:52:48.945] function(cond) { 1568s [00:52:48.945] is_error <- inherits(cond, "error") 1568s [00:52:48.945] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1568s [00:52:48.945] NULL) 1568s [00:52:48.945] if (is_error) { 1568s [00:52:48.945] sessionInformation <- function() { 1568s [00:52:48.945] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1568s [00:52:48.945] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1568s [00:52:48.945] search = base::search(), system = base::Sys.info()) 1568s [00:52:48.945] } 1568s [00:52:48.945] ...future.conditions[[length(...future.conditions) + 1568s [00:52:48.945] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1568s [00:52:48.945] cond$call), session = sessionInformation(), 1568s [00:52:48.945] timestamp = base::Sys.time(), signaled = 0L) 1568s [00:52:48.945] signalCondition(cond) 1568s [00:52:48.945] } 1568s [00:52:48.945] else if (!ignore && TRUE && inherits(cond, c("condition", 1568s [00:52:48.945] "immediateCondition"))) { 1568s [00:52:48.945] signal <- TRUE && inherits(cond, "immediateCondition") 1568s [00:52:48.945] ...future.conditions[[length(...future.conditions) + 1568s [00:52:48.945] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1568s [00:52:48.945] if (TRUE && !signal) { 1568s [00:52:48.945] muffleCondition <- function (cond, pattern = "^muffle") 1568s [00:52:48.945] { 1568s [00:52:48.945] inherits <- base::inherits 1568s [00:52:48.945] invokeRestart <- base::invokeRestart 1568s [00:52:48.945] is.null <- base::is.null 1568s [00:52:48.945] muffled <- FALSE 1568s [00:52:48.945] if (inherits(cond, "message")) { 1568s [00:52:48.945] muffled <- grepl(pattern, "muffleMessage") 1568s [00:52:48.945] if (muffled) 1568s [00:52:48.945] invokeRestart("muffleMessage") 1568s [00:52:48.945] } 1568s [00:52:48.945] else if (inherits(cond, "warning")) { 1568s [00:52:48.945] muffled <- grepl(pattern, "muffleWarning") 1568s [00:52:48.945] if (muffled) 1568s [00:52:48.945] invokeRestart("muffleWarning") 1568s [00:52:48.945] } 1568s [00:52:48.945] else if (inherits(cond, "condition")) { 1568s [00:52:48.945] if (!is.null(pattern)) { 1568s [00:52:48.945] computeRestarts <- base::computeRestarts 1568s [00:52:48.945] grepl <- base::grepl 1568s [00:52:48.945] restarts <- computeRestarts(cond) 1568s [00:52:48.945] for (restart in restarts) { 1568s [00:52:48.945] name <- restart$name 1568s [00:52:48.945] if (is.null(name)) 1568s [00:52:48.945] next 1568s [00:52:48.945] if (!grepl(pattern, name)) 1568s [00:52:48.945] next 1568s [00:52:48.945] invokeRestart(restart) 1568s [00:52:48.945] muffled <- TRUE 1568s [00:52:48.945] break 1568s [00:52:48.945] } 1568s [00:52:48.945] } 1568s [00:52:48.945] } 1568s [00:52:48.945] invisible(muffled) 1568s [00:52:48.945] } 1568s [00:52:48.945] muffleCondition(cond, pattern = "^muffle") 1568s [00:52:48.945] } 1568s [00:52:48.945] } 1568s [00:52:48.945] else { 1568s [00:52:48.945] if (TRUE) { 1568s [00:52:48.945] muffleCondition <- function (cond, pattern = "^muffle") 1568s [00:52:48.945] { 1568s [00:52:48.945] inherits <- base::inherits 1568s [00:52:48.945] invokeRestart <- base::invokeRestart 1568s [00:52:48.945] is.null <- base::is.null 1568s [00:52:48.945] muffled <- FALSE 1568s [00:52:48.945] if (inherits(cond, "message")) { 1568s [00:52:48.945] muffled <- grepl(pattern, "muffleMessage") 1568s [00:52:48.945] if (muffled) 1568s [00:52:48.945] invokeRestart("muffleMessage") 1568s [00:52:48.945] } 1568s [00:52:48.945] else if (inherits(cond, "warning")) { 1568s [00:52:48.945] muffled <- grepl(pattern, "muffleWarning") 1568s [00:52:48.945] if (muffled) 1568s [00:52:48.945] invokeRestart("muffleWarning") 1568s [00:52:48.945] } 1568s [00:52:48.945] else if (inherits(cond, "condition")) { 1568s [00:52:48.945] if (!is.null(pattern)) { 1568s [00:52:48.945] computeRestarts <- base::computeRestarts 1568s [00:52:48.945] grepl <- base::grepl 1568s [00:52:48.945] restarts <- computeRestarts(cond) 1568s [00:52:48.945] for (restart in restarts) { 1568s [00:52:48.945] name <- restart$name 1568s [00:52:48.945] if (is.null(name)) 1568s [00:52:48.945] next 1568s [00:52:48.945] if (!grepl(pattern, name)) 1568s [00:52:48.945] next 1568s [00:52:48.945] invokeRestart(restart) 1568s [00:52:48.945] muffled <- TRUE 1568s [00:52:48.945] break 1568s [00:52:48.945] } 1568s [00:52:48.945] } 1568s [00:52:48.945] } 1568s [00:52:48.945] invisible(muffled) 1568s [00:52:48.945] } 1568s [00:52:48.945] muffleCondition(cond, pattern = "^muffle") 1568s [00:52:48.945] } 1568s [00:52:48.945] } 1568s [00:52:48.945] } 1568s [00:52:48.945] })) 1568s [00:52:48.945] }, error = function(ex) { 1568s [00:52:48.945] base::structure(base::list(value = NULL, visible = NULL, 1568s [00:52:48.945] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1568s [00:52:48.945] ...future.rng), started = ...future.startTime, 1568s [00:52:48.945] finished = Sys.time(), session_uuid = NA_character_, 1568s [00:52:48.945] version = "1.8"), class = "FutureResult") 1568s [00:52:48.945] }, finally = { 1568s [00:52:48.945] if (!identical(...future.workdir, getwd())) 1568s [00:52:48.945] setwd(...future.workdir) 1568s [00:52:48.945] { 1568s [00:52:48.945] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1568s [00:52:48.945] ...future.oldOptions$nwarnings <- NULL 1568s [00:52:48.945] } 1568s [00:52:48.945] base::options(...future.oldOptions) 1568s [00:52:48.945] if (.Platform$OS.type == "windows") { 1568s [00:52:48.945] old_names <- names(...future.oldEnvVars) 1568s [00:52:48.945] envs <- base::Sys.getenv() 1568s [00:52:48.945] names <- names(envs) 1568s [00:52:48.945] common <- intersect(names, old_names) 1568s [00:52:48.945] added <- setdiff(names, old_names) 1568s [00:52:48.945] removed <- setdiff(old_names, names) 1568s [00:52:48.945] changed <- common[...future.oldEnvVars[common] != 1568s [00:52:48.945] envs[common]] 1568s [00:52:48.945] NAMES <- toupper(changed) 1568s [00:52:48.945] args <- list() 1568s [00:52:48.945] for (kk in seq_along(NAMES)) { 1568s [00:52:48.945] name <- changed[[kk]] 1568s [00:52:48.945] NAME <- NAMES[[kk]] 1568s [00:52:48.945] if (name != NAME && is.element(NAME, old_names)) 1568s [00:52:48.945] next 1568s [00:52:48.945] args[[name]] <- ...future.oldEnvVars[[name]] 1568s [00:52:48.945] } 1568s [00:52:48.945] NAMES <- toupper(added) 1568s [00:52:48.945] for (kk in seq_along(NAMES)) { 1568s [00:52:48.945] name <- added[[kk]] 1568s [00:52:48.945] NAME <- NAMES[[kk]] 1568s [00:52:48.945] if (name != NAME && is.element(NAME, old_names)) 1568s [00:52:48.945] next 1568s [00:52:48.945] args[[name]] <- "" 1568s [00:52:48.945] } 1568s [00:52:48.945] NAMES <- toupper(removed) 1568s [00:52:48.945] for (kk in seq_along(NAMES)) { 1568s [00:52:48.945] name <- removed[[kk]] 1568s [00:52:48.945] NAME <- NAMES[[kk]] 1568s [00:52:48.945] if (name != NAME && is.element(NAME, old_names)) 1568s [00:52:48.945] next 1568s [00:52:48.945] args[[name]] <- ...future.oldEnvVars[[name]] 1568s [00:52:48.945] } 1568s [00:52:48.945] if (length(args) > 0) 1568s [00:52:48.945] base::do.call(base::Sys.setenv, args = args) 1568s [00:52:48.945] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1568s [00:52:48.945] } 1568s [00:52:48.945] else { 1568s [00:52:48.945] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1568s [00:52:48.945] } 1568s [00:52:48.945] { 1568s [00:52:48.945] if (base::length(...future.futureOptionsAdded) > 1568s [00:52:48.945] 0L) { 1568s [00:52:48.945] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1568s [00:52:48.945] base::names(opts) <- ...future.futureOptionsAdded 1568s [00:52:48.945] base::options(opts) 1568s [00:52:48.945] } 1568s [00:52:48.945] { 1568s [00:52:48.945] { 1568s [00:52:48.945] NULL 1568s [00:52:48.945] RNGkind("Mersenne-Twister") 1568s [00:52:48.945] base::rm(list = ".Random.seed", envir = base::globalenv(), 1568s [00:52:48.945] inherits = FALSE) 1568s [00:52:48.945] } 1568s [00:52:48.945] options(future.plan = NULL) 1568s [00:52:48.945] if (is.na(NA_character_)) 1568s [00:52:48.945] Sys.unsetenv("R_FUTURE_PLAN") 1568s [00:52:48.945] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1568s [00:52:48.945] future::plan(list(function (..., envir = parent.frame()) 1568s [00:52:48.945] { 1568s [00:52:48.945] future <- SequentialFuture(..., envir = envir) 1568s [00:52:48.945] if (!future$lazy) 1568s [00:52:48.945] future <- run(future) 1568s [00:52:48.945] invisible(future) 1568s [00:52:48.945] }), .cleanup = FALSE, .init = FALSE) 1568s [00:52:48.945] } 1568s [00:52:48.945] } 1568s [00:52:48.945] } 1568s [00:52:48.945] }) 1568s [00:52:48.945] if (TRUE) { 1568s [00:52:48.945] base::sink(type = "output", split = FALSE) 1568s [00:52:48.945] if (TRUE) { 1568s [00:52:48.945] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1568s [00:52:48.945] } 1568s [00:52:48.945] else { 1568s [00:52:48.945] ...future.result["stdout"] <- base::list(NULL) 1568s [00:52:48.945] } 1568s [00:52:48.945] base::close(...future.stdout) 1568s [00:52:48.945] ...future.stdout <- NULL 1568s [00:52:48.945] } 1568s [00:52:48.945] ...future.result$conditions <- ...future.conditions 1568s [00:52:48.945] ...future.result$finished <- base::Sys.time() 1568s [00:52:48.945] ...future.result 1568s [00:52:48.945] } 1568s [00:52:48.948] assign_globals() ... 1568s [00:52:48.949] List of 5 1568s [00:52:48.949] $ ...future.FUN :function (x, ...) 1568s [00:52:48.949] $ future.call.arguments : list() 1568s [00:52:48.949] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1568s [00:52:48.949] $ ...future.elements_ii :List of 3 1568s [00:52:48.949] ..$ a: num 1 1568s [00:52:48.949] ..$ b: num 2 1568s [00:52:48.949] ..$ c: num 3 1568s [00:52:48.949] $ ...future.seeds_ii : NULL 1568s [00:52:48.949] $ ...future.globals.maxSize: NULL 1568s [00:52:48.949] - attr(*, "where")=List of 5 1568s [00:52:48.949] ..$ ...future.FUN : 1568s [00:52:48.949] ..$ future.call.arguments : 1568s [00:52:48.949] ..$ ...future.elements_ii : 1568s [00:52:48.949] ..$ ...future.seeds_ii : 1568s [00:52:48.949] ..$ ...future.globals.maxSize: 1568s [00:52:48.949] - attr(*, "resolved")= logi FALSE 1568s [00:52:48.949] - attr(*, "total_size")= num 1248 1568s [00:52:48.949] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1568s [00:52:48.949] - attr(*, "already-done")= logi TRUE 1568s [00:52:48.957] - copied ‘...future.FUN’ to environment 1568s [00:52:48.957] - copied ‘future.call.arguments’ to environment 1568s [00:52:48.957] - copied ‘...future.elements_ii’ to environment 1568s [00:52:48.957] - copied ‘...future.seeds_ii’ to environment 1568s [00:52:48.958] - copied ‘...future.globals.maxSize’ to environment 1568s [00:52:48.958] assign_globals() ... done 1568s [00:52:48.958] plan(): Setting new future strategy stack: 1568s [00:52:48.958] List of future strategies: 1568s [00:52:48.958] 1. sequential: 1568s [00:52:48.958] - args: function (..., envir = parent.frame()) 1568s [00:52:48.958] - tweaked: FALSE 1568s [00:52:48.958] - call: NULL 1568s [00:52:48.959] plan(): nbrOfWorkers() = 1 1568s [00:52:48.960] plan(): Setting new future strategy stack: 1568s [00:52:48.960] List of future strategies: 1568s [00:52:48.960] 1. sequential: 1568s [00:52:48.960] - args: function (..., envir = parent.frame()) 1568s [00:52:48.960] - tweaked: FALSE 1568s [00:52:48.960] - call: plan(strategy) 1568s [00:52:48.960] plan(): nbrOfWorkers() = 1 1568s [00:52:48.961] SequentialFuture started (and completed) 1568s [00:52:48.961] - Launch lazy future ... done 1568s [00:52:48.961] run() for ‘SequentialFuture’ ... done 1568s [00:52:48.962] Created future: 1568s [00:52:48.962] SequentialFuture: 1568s [00:52:48.962] Label: ‘future_sapply-1’ 1568s [00:52:48.962] Expression: 1568s [00:52:48.962] { 1568s [00:52:48.962] do.call(function(...) { 1568s [00:52:48.962] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1568s [00:52:48.962] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1568s [00:52:48.962] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:48.962] on.exit(options(oopts), add = TRUE) 1569s [00:52:48.962] } 1569s [00:52:48.962] { 1569s [00:52:48.962] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1569s [00:52:48.962] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:48.962] ...future.FUN(...future.X_jj, ...) 1569s [00:52:48.962] }) 1569s [00:52:48.962] } 1569s [00:52:48.962] }, args = future.call.arguments) 1569s [00:52:48.962] } 1569s [00:52:48.962] Lazy evaluation: FALSE 1569s [00:52:48.962] Asynchronous evaluation: FALSE 1569s [00:52:48.962] Local evaluation: TRUE 1569s [00:52:48.962] Environment: R_GlobalEnv 1569s [00:52:48.962] Capture standard output: TRUE 1569s [00:52:48.962] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1569s [00:52:48.962] Globals: 5 objects totaling 1.38 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1569s [00:52:48.962] Packages: 1569s [00:52:48.962] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1569s [00:52:48.962] Resolved: TRUE 1569s [00:52:48.962] Value: 672 bytes of class ‘list’ 1569s [00:52:48.962] Early signaling: FALSE 1569s [00:52:48.962] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1569s [00:52:48.962] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1569s [00:52:48.963] Chunk #1 of 1 ... DONE 1569s [00:52:48.963] Launching 1 futures (chunks) ... DONE 1569s [00:52:48.963] Resolving 1 futures (chunks) ... 1569s [00:52:48.963] resolve() on list ... 1569s [00:52:48.964] recursive: 0 1569s [00:52:48.964] length: 1 1569s [00:52:48.964] 1569s [00:52:48.964] resolved() for ‘SequentialFuture’ ... 1569s [00:52:48.964] - state: ‘finished’ 1569s [00:52:48.964] - run: TRUE 1569s [00:52:48.964] - result: ‘FutureResult’ 1569s [00:52:48.964] resolved() for ‘SequentialFuture’ ... done 1569s [00:52:48.965] Future #1 1569s [00:52:48.965] signalConditionsASAP(SequentialFuture, pos=1) ... 1569s [00:52:48.965] - nx: 1 1569s [00:52:48.965] - relay: TRUE 1569s [00:52:48.965] - stdout: TRUE 1569s [00:52:48.965] - signal: TRUE 1569s [00:52:48.965] - resignal: FALSE 1569s [00:52:48.965] - force: TRUE 1569s [00:52:48.965] - relayed: [n=1] FALSE 1569s [00:52:48.966] - queued futures: [n=1] FALSE 1569s [00:52:48.966] - until=1 1569s [00:52:48.966] - relaying element #1 1569s [00:52:48.966] - relayed: [n=1] TRUE 1569s [00:52:48.966] - queued futures: [n=1] TRUE 1569s [00:52:48.966] signalConditionsASAP(SequentialFuture, pos=1) ... done 1569s [00:52:48.966] length: 0 (resolved future 1) 1569s [00:52:48.966] Relaying remaining futures 1569s [00:52:48.967] signalConditionsASAP(NULL, pos=0) ... 1569s [00:52:48.967] - nx: 1 1569s [00:52:48.967] - relay: TRUE 1569s [00:52:48.967] - stdout: TRUE 1569s [00:52:48.967] - signal: TRUE 1569s [00:52:48.967] - resignal: FALSE 1569s [00:52:48.967] - force: TRUE 1569s [00:52:48.967] - relayed: [n=1] TRUE 1569s [00:52:48.967] - queued futures: [n=1] TRUE 1569s - flush all 1569s [00:52:48.968] - relayed: [n=1] TRUE 1569s [00:52:48.968] - queued futures: [n=1] TRUE 1569s [00:52:48.968] signalConditionsASAP(NULL, pos=0) ... done 1569s [00:52:48.968] resolve() on list ... DONE 1569s [00:52:48.968] - Number of value chunks collected: 1 1569s [00:52:48.968] Resolving 1 futures (chunks) ... DONE 1569s [00:52:48.968] Reducing values from 1 chunks ... 1569s [00:52:48.969] - Number of values collected after concatenation: 3 1569s [00:52:48.969] - Number of values expected: 3 1569s [00:52:48.969] Reducing values from 1 chunks ... DONE 1569s [00:52:48.969] future_lapply() ... DONE 1569s List of 2 1569s $ y0: Named num [1:3] 1 2 3 1569s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1569s $ y1: Named num [1:3] 1 2 3 1569s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1569s [00:52:48.974] future_lapply() ... 1569s [00:52:48.975] Number of chunks: 1 1569s [00:52:48.975] getGlobalsAndPackagesXApply() ... 1569s [00:52:48.976] - future.globals: TRUE 1569s [00:52:48.976] getGlobalsAndPackages() ... 1569s [00:52:48.976] Searching for globals... 1569s [00:52:48.978] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1569s [00:52:48.979] Searching for globals ... DONE 1569s [00:52:48.979] Resolving globals: FALSE 1569s [00:52:48.979] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1569s [00:52:48.980] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1569s [00:52:48.980] - globals: [1] ‘FUN’ 1569s [00:52:48.981] 1569s [00:52:48.981] getGlobalsAndPackages() ... DONE 1569s [00:52:48.981] - globals found/used: [n=1] ‘FUN’ 1569s [00:52:48.981] - needed namespaces: [n=0] 1569s [00:52:48.981] Finding globals ... DONE 1569s [00:52:48.982] - use_args: TRUE 1569s [00:52:48.982] - Getting '...' globals ... 1569s [00:52:48.982] resolve() on list ... 1569s [00:52:48.982] recursive: 0 1569s [00:52:48.982] length: 1 1569s [00:52:48.983] elements: ‘...’ 1569s [00:52:48.983] length: 0 (resolved future 1) 1569s [00:52:48.983] resolve() on list ... DONE 1569s [00:52:48.983] - '...' content: [n=0] 1569s [00:52:48.983] List of 1 1569s [00:52:48.983] $ ...: list() 1569s [00:52:48.983] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:48.983] - attr(*, "where")=List of 1 1569s [00:52:48.983] ..$ ...: 1569s [00:52:48.983] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:48.983] - attr(*, "resolved")= logi TRUE 1569s [00:52:48.983] - attr(*, "total_size")= num NA 1569s [00:52:48.987] - Getting '...' globals ... DONE 1569s [00:52:48.988] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1569s [00:52:48.988] List of 2 1569s [00:52:48.988] $ ...future.FUN:function (x, y = 2 * 1:5) 1569s [00:52:48.988] $ ... : list() 1569s [00:52:48.988] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:48.988] - attr(*, "where")=List of 2 1569s [00:52:48.988] ..$ ...future.FUN: 1569s [00:52:48.988] ..$ ... : 1569s [00:52:48.988] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:48.988] - attr(*, "resolved")= logi FALSE 1569s [00:52:48.988] - attr(*, "total_size")= num 4728 1569s [00:52:48.991] Packages to be attached in all futures: [n=0] 1569s [00:52:48.992] getGlobalsAndPackagesXApply() ... DONE 1569s [00:52:48.992] Number of futures (= number of chunks): 1 1569s [00:52:48.992] Launching 1 futures (chunks) ... 1569s [00:52:48.992] Chunk #1 of 1 ... 1569s [00:52:48.992] - Finding globals in 'X' for chunk #1 ... 1569s [00:52:48.993] getGlobalsAndPackages() ... 1569s [00:52:48.993] Searching for globals... 1569s [00:52:48.993] 1569s [00:52:48.993] Searching for globals ... DONE 1569s [00:52:48.993] - globals: [0] 1569s [00:52:48.994] getGlobalsAndPackages() ... DONE 1569s [00:52:48.994] + additional globals found: [n=0] 1569s [00:52:48.994] + additional namespaces needed: [n=0] 1569s [00:52:48.994] - Finding globals in 'X' for chunk #1 ... DONE 1569s [00:52:48.994] - seeds: 1569s [00:52:48.995] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:48.995] getGlobalsAndPackages() ... 1569s [00:52:48.995] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:48.995] Resolving globals: FALSE 1569s [00:52:48.995] Tweak future expression to call with '...' arguments ... 1569s [00:52:48.995] { 1569s [00:52:48.995] do.call(function(...) { 1569s [00:52:48.995] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:48.995] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1569s [00:52:48.995] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:48.995] on.exit(options(oopts), add = TRUE) 1569s [00:52:48.995] } 1569s [00:52:48.995] { 1569s [00:52:48.995] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1569s [00:52:48.995] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:48.995] ...future.FUN(...future.X_jj, ...) 1569s [00:52:48.995] }) 1569s [00:52:48.995] } 1569s [00:52:48.995] }, args = future.call.arguments) 1569s [00:52:48.995] } 1569s [00:52:48.996] Tweak future expression to call with '...' arguments ... DONE 1569s [00:52:48.997] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:48.997] 1569s [00:52:48.997] getGlobalsAndPackages() ... DONE 1569s [00:52:48.998] run() for ‘Future’ ... 1569s [00:52:48.998] - state: ‘created’ 1569s [00:52:48.998] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1569s [00:52:48.998] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1569s [00:52:48.999] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1569s [00:52:48.999] - Field: ‘label’ 1569s [00:52:48.999] - Field: ‘local’ 1569s [00:52:48.999] - Field: ‘owner’ 1569s [00:52:49.000] - Field: ‘envir’ 1569s [00:52:49.000] - Field: ‘packages’ 1569s [00:52:49.000] - Field: ‘gc’ 1569s [00:52:49.000] - Field: ‘conditions’ 1569s [00:52:49.000] - Field: ‘expr’ 1569s [00:52:49.001] - Field: ‘uuid’ 1569s [00:52:49.001] - Field: ‘seed’ 1569s [00:52:49.002] - Field: ‘version’ 1569s [00:52:49.002] - Field: ‘result’ 1569s [00:52:49.002] - Field: ‘asynchronous’ 1569s [00:52:49.002] - Field: ‘calls’ 1569s [00:52:49.003] - Field: ‘globals’ 1569s [00:52:49.003] - Field: ‘stdout’ 1569s [00:52:49.003] - Field: ‘earlySignal’ 1569s [00:52:49.003] - Field: ‘lazy’ 1569s [00:52:49.004] - Field: ‘state’ 1569s [00:52:49.004] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1569s [00:52:49.004] - Launch lazy future ... 1569s [00:52:49.005] Packages needed by the future expression (n = 0): 1569s [00:52:49.005] Packages needed by future strategies (n = 0): 1569s [00:52:49.006] { 1569s [00:52:49.006] { 1569s [00:52:49.006] { 1569s [00:52:49.006] ...future.startTime <- base::Sys.time() 1569s [00:52:49.006] { 1569s [00:52:49.006] { 1569s [00:52:49.006] { 1569s [00:52:49.006] base::local({ 1569s [00:52:49.006] has_future <- base::requireNamespace("future", 1569s [00:52:49.006] quietly = TRUE) 1569s [00:52:49.006] if (has_future) { 1569s [00:52:49.006] ns <- base::getNamespace("future") 1569s [00:52:49.006] version <- ns[[".package"]][["version"]] 1569s [00:52:49.006] if (is.null(version)) 1569s [00:52:49.006] version <- utils::packageVersion("future") 1569s [00:52:49.006] } 1569s [00:52:49.006] else { 1569s [00:52:49.006] version <- NULL 1569s [00:52:49.006] } 1569s [00:52:49.006] if (!has_future || version < "1.8.0") { 1569s [00:52:49.006] info <- base::c(r_version = base::gsub("R version ", 1569s [00:52:49.006] "", base::R.version$version.string), 1569s [00:52:49.006] platform = base::sprintf("%s (%s-bit)", 1569s [00:52:49.006] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1569s [00:52:49.006] os = base::paste(base::Sys.info()[base::c("sysname", 1569s [00:52:49.006] "release", "version")], collapse = " "), 1569s [00:52:49.006] hostname = base::Sys.info()[["nodename"]]) 1569s [00:52:49.006] info <- base::sprintf("%s: %s", base::names(info), 1569s [00:52:49.006] info) 1569s [00:52:49.006] info <- base::paste(info, collapse = "; ") 1569s [00:52:49.006] if (!has_future) { 1569s [00:52:49.006] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1569s [00:52:49.006] info) 1569s [00:52:49.006] } 1569s [00:52:49.006] else { 1569s [00:52:49.006] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1569s [00:52:49.006] info, version) 1569s [00:52:49.006] } 1569s [00:52:49.006] base::stop(msg) 1569s [00:52:49.006] } 1569s [00:52:49.006] }) 1569s [00:52:49.006] } 1569s [00:52:49.006] options(future.plan = NULL) 1569s [00:52:49.006] Sys.unsetenv("R_FUTURE_PLAN") 1569s [00:52:49.006] future::plan("default", .cleanup = FALSE, .init = FALSE) 1569s [00:52:49.006] } 1569s [00:52:49.006] ...future.workdir <- getwd() 1569s [00:52:49.006] } 1569s [00:52:49.006] ...future.oldOptions <- base::as.list(base::.Options) 1569s [00:52:49.006] ...future.oldEnvVars <- base::Sys.getenv() 1569s [00:52:49.006] } 1569s [00:52:49.006] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1569s [00:52:49.006] future.globals.maxSize = NULL, future.globals.method = NULL, 1569s [00:52:49.006] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1569s [00:52:49.006] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1569s [00:52:49.006] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1569s [00:52:49.006] future.stdout.windows.reencode = NULL, width = 80L) 1569s [00:52:49.006] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1569s [00:52:49.006] base::names(...future.oldOptions)) 1569s [00:52:49.006] } 1569s [00:52:49.006] if (FALSE) { 1569s [00:52:49.006] } 1569s [00:52:49.006] else { 1569s [00:52:49.006] if (TRUE) { 1569s [00:52:49.006] ...future.stdout <- base::rawConnection(base::raw(0L), 1569s [00:52:49.006] open = "w") 1569s [00:52:49.006] } 1569s [00:52:49.006] else { 1569s [00:52:49.006] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1569s [00:52:49.006] windows = "NUL", "/dev/null"), open = "w") 1569s [00:52:49.006] } 1569s [00:52:49.006] base::sink(...future.stdout, type = "output", split = FALSE) 1569s [00:52:49.006] base::on.exit(if (!base::is.null(...future.stdout)) { 1569s [00:52:49.006] base::sink(type = "output", split = FALSE) 1569s [00:52:49.006] base::close(...future.stdout) 1569s [00:52:49.006] }, add = TRUE) 1569s [00:52:49.006] } 1569s [00:52:49.006] ...future.frame <- base::sys.nframe() 1569s [00:52:49.006] ...future.conditions <- base::list() 1569s [00:52:49.006] ...future.rng <- base::globalenv()$.Random.seed 1569s [00:52:49.006] if (FALSE) { 1569s [00:52:49.006] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1569s [00:52:49.006] "...future.value", "...future.globalenv.names", ".Random.seed") 1569s [00:52:49.006] } 1569s [00:52:49.006] ...future.result <- base::tryCatch({ 1569s [00:52:49.006] base::withCallingHandlers({ 1569s [00:52:49.006] ...future.value <- base::withVisible(base::local({ 1569s [00:52:49.006] do.call(function(...) { 1569s [00:52:49.006] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.006] if (!identical(...future.globals.maxSize.org, 1569s [00:52:49.006] ...future.globals.maxSize)) { 1569s [00:52:49.006] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.006] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.006] } 1569s [00:52:49.006] { 1569s [00:52:49.006] lapply(seq_along(...future.elements_ii), 1569s [00:52:49.006] FUN = function(jj) { 1569s [00:52:49.006] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.006] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.006] }) 1569s [00:52:49.006] } 1569s [00:52:49.006] }, args = future.call.arguments) 1569s [00:52:49.006] })) 1569s [00:52:49.006] future::FutureResult(value = ...future.value$value, 1569s [00:52:49.006] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1569s [00:52:49.006] ...future.rng), globalenv = if (FALSE) 1569s [00:52:49.006] list(added = base::setdiff(base::names(base::.GlobalEnv), 1569s [00:52:49.006] ...future.globalenv.names)) 1569s [00:52:49.006] else NULL, started = ...future.startTime, version = "1.8") 1569s [00:52:49.006] }, condition = base::local({ 1569s [00:52:49.006] c <- base::c 1569s [00:52:49.006] inherits <- base::inherits 1569s [00:52:49.006] invokeRestart <- base::invokeRestart 1569s [00:52:49.006] length <- base::length 1569s [00:52:49.006] list <- base::list 1569s [00:52:49.006] seq.int <- base::seq.int 1569s [00:52:49.006] signalCondition <- base::signalCondition 1569s [00:52:49.006] sys.calls <- base::sys.calls 1569s [00:52:49.006] `[[` <- base::`[[` 1569s [00:52:49.006] `+` <- base::`+` 1569s [00:52:49.006] `<<-` <- base::`<<-` 1569s [00:52:49.006] sysCalls <- function(calls = sys.calls(), from = 1L) { 1569s [00:52:49.006] calls[seq.int(from = from + 12L, to = length(calls) - 1569s [00:52:49.006] 3L)] 1569s [00:52:49.006] } 1569s [00:52:49.006] function(cond) { 1569s [00:52:49.006] is_error <- inherits(cond, "error") 1569s [00:52:49.006] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1569s [00:52:49.006] NULL) 1569s [00:52:49.006] if (is_error) { 1569s [00:52:49.006] sessionInformation <- function() { 1569s [00:52:49.006] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1569s [00:52:49.006] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1569s [00:52:49.006] search = base::search(), system = base::Sys.info()) 1569s [00:52:49.006] } 1569s [00:52:49.006] ...future.conditions[[length(...future.conditions) + 1569s [00:52:49.006] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1569s [00:52:49.006] cond$call), session = sessionInformation(), 1569s [00:52:49.006] timestamp = base::Sys.time(), signaled = 0L) 1569s [00:52:49.006] signalCondition(cond) 1569s [00:52:49.006] } 1569s [00:52:49.006] else if (!ignore && TRUE && inherits(cond, c("condition", 1569s [00:52:49.006] "immediateCondition"))) { 1569s [00:52:49.006] signal <- TRUE && inherits(cond, "immediateCondition") 1569s [00:52:49.006] ...future.conditions[[length(...future.conditions) + 1569s [00:52:49.006] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1569s [00:52:49.006] if (TRUE && !signal) { 1569s [00:52:49.006] muffleCondition <- function (cond, pattern = "^muffle") 1569s [00:52:49.006] { 1569s [00:52:49.006] inherits <- base::inherits 1569s [00:52:49.006] invokeRestart <- base::invokeRestart 1569s [00:52:49.006] is.null <- base::is.null 1569s [00:52:49.006] muffled <- FALSE 1569s [00:52:49.006] if (inherits(cond, "message")) { 1569s [00:52:49.006] muffled <- grepl(pattern, "muffleMessage") 1569s [00:52:49.006] if (muffled) 1569s [00:52:49.006] invokeRestart("muffleMessage") 1569s [00:52:49.006] } 1569s [00:52:49.006] else if (inherits(cond, "warning")) { 1569s [00:52:49.006] muffled <- grepl(pattern, "muffleWarning") 1569s [00:52:49.006] if (muffled) 1569s [00:52:49.006] invokeRestart("muffleWarning") 1569s [00:52:49.006] } 1569s [00:52:49.006] else if (inherits(cond, "condition")) { 1569s [00:52:49.006] if (!is.null(pattern)) { 1569s [00:52:49.006] computeRestarts <- base::computeRestarts 1569s [00:52:49.006] grepl <- base::grepl 1569s [00:52:49.006] restarts <- computeRestarts(cond) 1569s [00:52:49.006] for (restart in restarts) { 1569s [00:52:49.006] name <- restart$name 1569s [00:52:49.006] if (is.null(name)) 1569s [00:52:49.006] next 1569s [00:52:49.006] if (!grepl(pattern, name)) 1569s [00:52:49.006] next 1569s [00:52:49.006] invokeRestart(restart) 1569s [00:52:49.006] muffled <- TRUE 1569s [00:52:49.006] break 1569s [00:52:49.006] } 1569s [00:52:49.006] } 1569s [00:52:49.006] } 1569s [00:52:49.006] invisible(muffled) 1569s [00:52:49.006] } 1569s [00:52:49.006] muffleCondition(cond, pattern = "^muffle") 1569s [00:52:49.006] } 1569s [00:52:49.006] } 1569s [00:52:49.006] else { 1569s [00:52:49.006] if (TRUE) { 1569s [00:52:49.006] muffleCondition <- function (cond, pattern = "^muffle") 1569s [00:52:49.006] { 1569s [00:52:49.006] inherits <- base::inherits 1569s [00:52:49.006] invokeRestart <- base::invokeRestart 1569s [00:52:49.006] is.null <- base::is.null 1569s [00:52:49.006] muffled <- FALSE 1569s [00:52:49.006] if (inherits(cond, "message")) { 1569s [00:52:49.006] muffled <- grepl(pattern, "muffleMessage") 1569s [00:52:49.006] if (muffled) 1569s [00:52:49.006] invokeRestart("muffleMessage") 1569s [00:52:49.006] } 1569s [00:52:49.006] else if (inherits(cond, "warning")) { 1569s [00:52:49.006] muffled <- grepl(pattern, "muffleWarning") 1569s [00:52:49.006] if (muffled) 1569s [00:52:49.006] invokeRestart("muffleWarning") 1569s [00:52:49.006] } 1569s [00:52:49.006] else if (inherits(cond, "condition")) { 1569s [00:52:49.006] if (!is.null(pattern)) { 1569s [00:52:49.006] computeRestarts <- base::computeRestarts 1569s [00:52:49.006] grepl <- base::grepl 1569s [00:52:49.006] restarts <- computeRestarts(cond) 1569s [00:52:49.006] for (restart in restarts) { 1569s [00:52:49.006] name <- restart$name 1569s [00:52:49.006] if (is.null(name)) 1569s [00:52:49.006] next 1569s [00:52:49.006] if (!grepl(pattern, name)) 1569s [00:52:49.006] next 1569s [00:52:49.006] invokeRestart(restart) 1569s [00:52:49.006] muffled <- TRUE 1569s [00:52:49.006] break 1569s [00:52:49.006] } 1569s [00:52:49.006] } 1569s [00:52:49.006] } 1569s [00:52:49.006] invisible(muffled) 1569s [00:52:49.006] } 1569s [00:52:49.006] muffleCondition(cond, pattern = "^muffle") 1569s [00:52:49.006] } 1569s [00:52:49.006] } 1569s [00:52:49.006] } 1569s [00:52:49.006] })) 1569s [00:52:49.006] }, error = function(ex) { 1569s [00:52:49.006] base::structure(base::list(value = NULL, visible = NULL, 1569s [00:52:49.006] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1569s [00:52:49.006] ...future.rng), started = ...future.startTime, 1569s [00:52:49.006] finished = Sys.time(), session_uuid = NA_character_, 1569s [00:52:49.006] version = "1.8"), class = "FutureResult") 1569s [00:52:49.006] }, finally = { 1569s [00:52:49.006] if (!identical(...future.workdir, getwd())) 1569s [00:52:49.006] setwd(...future.workdir) 1569s [00:52:49.006] { 1569s [00:52:49.006] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1569s [00:52:49.006] ...future.oldOptions$nwarnings <- NULL 1569s [00:52:49.006] } 1569s [00:52:49.006] base::options(...future.oldOptions) 1569s [00:52:49.006] if (.Platform$OS.type == "windows") { 1569s [00:52:49.006] old_names <- names(...future.oldEnvVars) 1569s [00:52:49.006] envs <- base::Sys.getenv() 1569s [00:52:49.006] names <- names(envs) 1569s [00:52:49.006] common <- intersect(names, old_names) 1569s [00:52:49.006] added <- setdiff(names, old_names) 1569s [00:52:49.006] removed <- setdiff(old_names, names) 1569s [00:52:49.006] changed <- common[...future.oldEnvVars[common] != 1569s [00:52:49.006] envs[common]] 1569s [00:52:49.006] NAMES <- toupper(changed) 1569s [00:52:49.006] args <- list() 1569s [00:52:49.006] for (kk in seq_along(NAMES)) { 1569s [00:52:49.006] name <- changed[[kk]] 1569s [00:52:49.006] NAME <- NAMES[[kk]] 1569s [00:52:49.006] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.006] next 1569s [00:52:49.006] args[[name]] <- ...future.oldEnvVars[[name]] 1569s [00:52:49.006] } 1569s [00:52:49.006] NAMES <- toupper(added) 1569s [00:52:49.006] for (kk in seq_along(NAMES)) { 1569s [00:52:49.006] name <- added[[kk]] 1569s [00:52:49.006] NAME <- NAMES[[kk]] 1569s [00:52:49.006] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.006] next 1569s [00:52:49.006] args[[name]] <- "" 1569s [00:52:49.006] } 1569s [00:52:49.006] NAMES <- toupper(removed) 1569s [00:52:49.006] for (kk in seq_along(NAMES)) { 1569s [00:52:49.006] name <- removed[[kk]] 1569s [00:52:49.006] NAME <- NAMES[[kk]] 1569s [00:52:49.006] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.006] next 1569s [00:52:49.006] args[[name]] <- ...future.oldEnvVars[[name]] 1569s [00:52:49.006] } 1569s [00:52:49.006] if (length(args) > 0) 1569s [00:52:49.006] base::do.call(base::Sys.setenv, args = args) 1569s [00:52:49.006] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1569s [00:52:49.006] } 1569s [00:52:49.006] else { 1569s [00:52:49.006] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1569s [00:52:49.006] } 1569s [00:52:49.006] { 1569s [00:52:49.006] if (base::length(...future.futureOptionsAdded) > 1569s [00:52:49.006] 0L) { 1569s [00:52:49.006] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1569s [00:52:49.006] base::names(opts) <- ...future.futureOptionsAdded 1569s [00:52:49.006] base::options(opts) 1569s [00:52:49.006] } 1569s [00:52:49.006] { 1569s [00:52:49.006] { 1569s [00:52:49.006] NULL 1569s [00:52:49.006] RNGkind("Mersenne-Twister") 1569s [00:52:49.006] base::rm(list = ".Random.seed", envir = base::globalenv(), 1569s [00:52:49.006] inherits = FALSE) 1569s [00:52:49.006] } 1569s [00:52:49.006] options(future.plan = NULL) 1569s [00:52:49.006] if (is.na(NA_character_)) 1569s [00:52:49.006] Sys.unsetenv("R_FUTURE_PLAN") 1569s [00:52:49.006] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1569s [00:52:49.006] future::plan(list(function (..., envir = parent.frame()) 1569s [00:52:49.006] { 1569s [00:52:49.006] future <- SequentialFuture(..., envir = envir) 1569s [00:52:49.006] if (!future$lazy) 1569s [00:52:49.006] future <- run(future) 1569s [00:52:49.006] invisible(future) 1569s [00:52:49.006] }), .cleanup = FALSE, .init = FALSE) 1569s [00:52:49.006] } 1569s [00:52:49.006] } 1569s [00:52:49.006] } 1569s [00:52:49.006] }) 1569s [00:52:49.006] if (TRUE) { 1569s [00:52:49.006] base::sink(type = "output", split = FALSE) 1569s [00:52:49.006] if (TRUE) { 1569s [00:52:49.006] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1569s [00:52:49.006] } 1569s [00:52:49.006] else { 1569s [00:52:49.006] ...future.result["stdout"] <- base::list(NULL) 1569s [00:52:49.006] } 1569s [00:52:49.006] base::close(...future.stdout) 1569s [00:52:49.006] ...future.stdout <- NULL 1569s [00:52:49.006] } 1569s [00:52:49.006] ...future.result$conditions <- ...future.conditions 1569s [00:52:49.006] ...future.result$finished <- base::Sys.time() 1569s [00:52:49.006] ...future.result 1569s [00:52:49.006] } 1569s [00:52:49.010] assign_globals() ... 1569s [00:52:49.010] List of 5 1569s [00:52:49.010] $ ...future.FUN :function (x, y = 2 * 1:5) 1569s [00:52:49.010] $ future.call.arguments : list() 1569s [00:52:49.010] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.010] $ ...future.elements_ii :List of 3 1569s [00:52:49.010] ..$ a: num 1 1569s [00:52:49.010] ..$ b: num 2 1569s [00:52:49.010] ..$ c: num 3 1569s [00:52:49.010] $ ...future.seeds_ii : NULL 1569s [00:52:49.010] $ ...future.globals.maxSize: NULL 1569s [00:52:49.010] - attr(*, "where")=List of 5 1569s [00:52:49.010] ..$ ...future.FUN : 1569s [00:52:49.010] ..$ future.call.arguments : 1569s [00:52:49.010] ..$ ...future.elements_ii : 1569s [00:52:49.010] ..$ ...future.seeds_ii : 1569s [00:52:49.010] ..$ ...future.globals.maxSize: 1569s [00:52:49.010] - attr(*, "resolved")= logi FALSE 1569s [00:52:49.010] - attr(*, "total_size")= num 4728 1569s [00:52:49.010] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.010] - attr(*, "already-done")= logi TRUE 1569s [00:52:49.019] - reassign environment for ‘...future.FUN’ 1569s [00:52:49.020] - copied ‘...future.FUN’ to environment 1569s [00:52:49.020] - copied ‘future.call.arguments’ to environment 1569s [00:52:49.020] - copied ‘...future.elements_ii’ to environment 1569s [00:52:49.021] - copied ‘...future.seeds_ii’ to environment 1569s [00:52:49.021] - copied ‘...future.globals.maxSize’ to environment 1569s [00:52:49.021] assign_globals() ... done 1569s [00:52:49.021] plan(): Setting new future strategy stack: 1569s [00:52:49.022] List of future strategies: 1569s [00:52:49.022] 1. sequential: 1569s [00:52:49.022] - args: function (..., envir = parent.frame()) 1569s [00:52:49.022] - tweaked: FALSE 1569s [00:52:49.022] - call: NULL 1569s [00:52:49.022] plan(): nbrOfWorkers() = 1 1569s [00:52:49.024] plan(): Setting new future strategy stack: 1569s [00:52:49.024] List of future strategies: 1569s [00:52:49.024] 1. sequential: 1569s [00:52:49.024] - args: function (..., envir = parent.frame()) 1569s [00:52:49.024] - tweaked: FALSE 1569s [00:52:49.024] - call: plan(strategy) 1569s [00:52:49.024] plan(): nbrOfWorkers() = 1 1569s [00:52:49.025] SequentialFuture started (and completed) 1569s [00:52:49.025] - Launch lazy future ... done 1569s [00:52:49.025] run() for ‘SequentialFuture’ ... done 1569s [00:52:49.025] Created future: 1569s [00:52:49.025] SequentialFuture: 1569s [00:52:49.025] Label: ‘future_sapply-1’ 1569s [00:52:49.025] Expression: 1569s [00:52:49.025] { 1569s [00:52:49.025] do.call(function(...) { 1569s [00:52:49.025] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.025] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1569s [00:52:49.025] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.025] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.025] } 1569s [00:52:49.025] { 1569s [00:52:49.025] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1569s [00:52:49.025] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.025] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.025] }) 1569s [00:52:49.025] } 1569s [00:52:49.025] }, args = future.call.arguments) 1569s [00:52:49.025] } 1569s [00:52:49.025] Lazy evaluation: FALSE 1569s [00:52:49.025] Asynchronous evaluation: FALSE 1569s [00:52:49.025] Local evaluation: TRUE 1569s [00:52:49.025] Environment: R_GlobalEnv 1569s [00:52:49.025] Capture standard output: TRUE 1569s [00:52:49.025] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1569s [00:52:49.025] Globals: 5 objects totaling 4.78 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1569s [00:52:49.025] Packages: 1569s [00:52:49.025] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1569s [00:52:49.025] Resolved: TRUE 1569s [00:52:49.025] Value: 1.01 KiB of class ‘list’ 1569s [00:52:49.025] Early signaling: FALSE 1569s [00:52:49.025] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1569s [00:52:49.025] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1569s [00:52:49.027] Chunk #1 of 1 ... DONE 1569s [00:52:49.027] Launching 1 futures (chunks) ... DONE 1569s [00:52:49.027] Resolving 1 futures (chunks) ... 1569s [00:52:49.027] resolve() on list ... 1569s [00:52:49.028] recursive: 0 1569s [00:52:49.028] length: 1 1569s [00:52:49.028] 1569s [00:52:49.028] resolved() for ‘SequentialFuture’ ... 1569s [00:52:49.028] - state: ‘finished’ 1569s [00:52:49.028] - run: TRUE 1569s [00:52:49.029] - result: ‘FutureResult’ 1569s [00:52:49.029] resolved() for ‘SequentialFuture’ ... done 1569s [00:52:49.029] Future #1 1569s [00:52:49.030] signalConditionsASAP(SequentialFuture, pos=1) ... 1569s [00:52:49.030] - nx: 1 1569s [00:52:49.030] - relay: TRUE 1569s [00:52:49.030] - stdout: TRUE 1569s [00:52:49.030] - signal: TRUE 1569s [00:52:49.030] - resignal: FALSE 1569s [00:52:49.031] - force: TRUE 1569s [00:52:49.031] - relayed: [n=1] FALSE 1569s [00:52:49.031] - queued futures: [n=1] FALSE 1569s [00:52:49.031] - until=1 1569s [00:52:49.031] - relaying element #1 1569s [00:52:49.032] - relayed: [n=1] TRUE 1569s [00:52:49.032] - queued futures: [n=1] TRUE 1569s [00:52:49.032] signalConditionsASAP(SequentialFuture, pos=1) ... done 1569s [00:52:49.032] length: 0 (resolved future 1) 1569s [00:52:49.032] Relaying remaining futures 1569s [00:52:49.032] signalConditionsASAP(NULL, pos=0) ... 1569s [00:52:49.033] - nx: 1 1569s [00:52:49.033] - relay: TRUE 1569s [00:52:49.033] - stdout: TRUE 1569s [00:52:49.033] - signal: TRUE 1569s [00:52:49.033] - resignal: FALSE 1569s [00:52:49.034] - force: TRUE 1569s [00:52:49.034] - relayed: [n=1] TRUE 1569s [00:52:49.034] - queued futures: [n=1] TRUE 1569s - flush all 1569s [00:52:49.034] - relayed: [n=1] TRUE 1569s [00:52:49.034] - queued futures: [n=1] TRUE 1569s [00:52:49.034] signalConditionsASAP(NULL, pos=0) ... done 1569s [00:52:49.035] resolve() on list ... DONE 1569s [00:52:49.035] - Number of value chunks collected: 1 1569s [00:52:49.035] Resolving 1 futures (chunks) ... DONE 1569s [00:52:49.035] Reducing values from 1 chunks ... 1569s [00:52:49.035] - Number of values collected after concatenation: 3 1569s [00:52:49.035] - Number of values expected: 3 1569s [00:52:49.036] Reducing values from 1 chunks ... DONE 1569s [00:52:49.036] future_lapply() ... DONE 1569s List of 2 1569s $ y0: num [1:15, 1:3] [00:52:49.039] future_lapply() ... 1569s 2 2 2 4 4 4 6 6 6 8 ... 1569s ..- attr(*, "dimnames")=List of 2 1569s .. ..$ : NULL 1569s .. ..$ : chr [1:3] "a" "b" "c" 1569s $ y1: num [1:15, 1:3] 2 2 2 4 4 4 6 6 6 8 ... 1569s ..- attr(*, "dimnames")=List of 2 1569s .. ..$ : NULL 1569s .. ..$ : chr [1:3] "a" "b" "c" 1569s [00:52:49.039] Number of chunks: 1 1569s [00:52:49.040] getGlobalsAndPackagesXApply() ... 1569s [00:52:49.040] - future.globals: TRUE 1569s [00:52:49.040] getGlobalsAndPackages() ... 1569s [00:52:49.040] Searching for globals... 1569s [00:52:49.041] - globals found: [1] ‘FUN’ 1569s [00:52:49.042] Searching for globals ... DONE 1569s [00:52:49.042] Resolving globals: FALSE 1569s [00:52:49.042] The total size of the 1 globals is 848 bytes (848 bytes) 1569s [00:52:49.043] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1569s [00:52:49.043] - globals: [1] ‘FUN’ 1569s [00:52:49.043] 1569s [00:52:49.043] getGlobalsAndPackages() ... DONE 1569s [00:52:49.044] - globals found/used: [n=1] ‘FUN’ 1569s [00:52:49.044] - needed namespaces: [n=0] 1569s [00:52:49.044] Finding globals ... DONE 1569s [00:52:49.044] - use_args: TRUE 1569s [00:52:49.044] - Getting '...' globals ... 1569s [00:52:49.045] resolve() on list ... 1569s [00:52:49.045] recursive: 0 1569s [00:52:49.045] length: 1 1569s [00:52:49.045] elements: ‘...’ 1569s [00:52:49.045] length: 0 (resolved future 1) 1569s [00:52:49.045] resolve() on list ... DONE 1569s [00:52:49.046] - '...' content: [n=0] 1569s [00:52:49.046] List of 1 1569s [00:52:49.046] $ ...: list() 1569s [00:52:49.046] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.046] - attr(*, "where")=List of 1 1569s [00:52:49.046] ..$ ...: 1569s [00:52:49.046] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.046] - attr(*, "resolved")= logi TRUE 1569s [00:52:49.046] - attr(*, "total_size")= num NA 1569s [00:52:49.049] - Getting '...' globals ... DONE 1569s [00:52:49.050] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1569s [00:52:49.050] List of 2 1569s [00:52:49.050] $ ...future.FUN:function (x) 1569s [00:52:49.050] $ ... : list() 1569s [00:52:49.050] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.050] - attr(*, "where")=List of 2 1569s [00:52:49.050] ..$ ...future.FUN: 1569s [00:52:49.050] ..$ ... : 1569s [00:52:49.050] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.050] - attr(*, "resolved")= logi FALSE 1569s [00:52:49.050] - attr(*, "total_size")= num 848 1569s [00:52:49.054] Packages to be attached in all futures: [n=0] 1569s [00:52:49.054] getGlobalsAndPackagesXApply() ... DONE 1569s [00:52:49.054] Number of futures (= number of chunks): 1 1569s [00:52:49.054] Launching 1 futures (chunks) ... 1569s [00:52:49.055] Chunk #1 of 1 ... 1569s [00:52:49.055] - Finding globals in 'X' for chunk #1 ... 1569s [00:52:49.055] getGlobalsAndPackages() ... 1569s [00:52:49.055] Searching for globals... 1569s [00:52:49.055] 1569s [00:52:49.056] Searching for globals ... DONE 1569s [00:52:49.056] - globals: [0] 1569s [00:52:49.056] getGlobalsAndPackages() ... DONE 1569s [00:52:49.056] + additional globals found: [n=0] 1569s [00:52:49.056] + additional namespaces needed: [n=0] 1569s [00:52:49.056] - Finding globals in 'X' for chunk #1 ... DONE 1569s [00:52:49.057] - seeds: 1569s [00:52:49.057] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:49.057] getGlobalsAndPackages() ... 1569s [00:52:49.058] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:49.059] Resolving globals: FALSE 1569s [00:52:49.059] Tweak future expression to call with '...' arguments ... 1569s [00:52:49.059] { 1569s [00:52:49.059] do.call(function(...) { 1569s [00:52:49.059] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.059] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1569s [00:52:49.059] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.059] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.059] } 1569s [00:52:49.059] { 1569s [00:52:49.059] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1569s [00:52:49.059] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.059] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.059] }) 1569s [00:52:49.059] } 1569s [00:52:49.059] }, args = future.call.arguments) 1569s [00:52:49.059] } 1569s [00:52:49.060] Tweak future expression to call with '...' arguments ... DONE 1569s [00:52:49.060] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:49.061] 1569s [00:52:49.061] getGlobalsAndPackages() ... DONE 1569s [00:52:49.061] run() for ‘Future’ ... 1569s [00:52:49.062] - state: ‘created’ 1569s [00:52:49.062] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1569s [00:52:49.062] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1569s [00:52:49.062] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1569s [00:52:49.063] - Field: ‘label’ 1569s [00:52:49.063] - Field: ‘local’ 1569s [00:52:49.063] - Field: ‘owner’ 1569s [00:52:49.063] - Field: ‘envir’ 1569s [00:52:49.063] - Field: ‘packages’ 1569s [00:52:49.063] - Field: ‘gc’ 1569s [00:52:49.064] - Field: ‘conditions’ 1569s [00:52:49.064] - Field: ‘expr’ 1569s [00:52:49.064] - Field: ‘uuid’ 1569s [00:52:49.064] - Field: ‘seed’ 1569s [00:52:49.064] - Field: ‘version’ 1569s [00:52:49.064] - Field: ‘result’ 1569s [00:52:49.064] - Field: ‘asynchronous’ 1569s [00:52:49.065] - Field: ‘calls’ 1569s [00:52:49.065] - Field: ‘globals’ 1569s [00:52:49.065] - Field: ‘stdout’ 1569s [00:52:49.065] - Field: ‘earlySignal’ 1569s [00:52:49.065] - Field: ‘lazy’ 1569s [00:52:49.065] - Field: ‘state’ 1569s [00:52:49.066] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1569s [00:52:49.066] - Launch lazy future ... 1569s [00:52:49.066] Packages needed by the future expression (n = 0): 1569s [00:52:49.066] Packages needed by future strategies (n = 0): 1569s [00:52:49.067] { 1569s [00:52:49.067] { 1569s [00:52:49.067] { 1569s [00:52:49.067] ...future.startTime <- base::Sys.time() 1569s [00:52:49.067] { 1569s [00:52:49.067] { 1569s [00:52:49.067] { 1569s [00:52:49.067] base::local({ 1569s [00:52:49.067] has_future <- base::requireNamespace("future", 1569s [00:52:49.067] quietly = TRUE) 1569s [00:52:49.067] if (has_future) { 1569s [00:52:49.067] ns <- base::getNamespace("future") 1569s [00:52:49.067] version <- ns[[".package"]][["version"]] 1569s [00:52:49.067] if (is.null(version)) 1569s [00:52:49.067] version <- utils::packageVersion("future") 1569s [00:52:49.067] } 1569s [00:52:49.067] else { 1569s [00:52:49.067] version <- NULL 1569s [00:52:49.067] } 1569s [00:52:49.067] if (!has_future || version < "1.8.0") { 1569s [00:52:49.067] info <- base::c(r_version = base::gsub("R version ", 1569s [00:52:49.067] "", base::R.version$version.string), 1569s [00:52:49.067] platform = base::sprintf("%s (%s-bit)", 1569s [00:52:49.067] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1569s [00:52:49.067] os = base::paste(base::Sys.info()[base::c("sysname", 1569s [00:52:49.067] "release", "version")], collapse = " "), 1569s [00:52:49.067] hostname = base::Sys.info()[["nodename"]]) 1569s [00:52:49.067] info <- base::sprintf("%s: %s", base::names(info), 1569s [00:52:49.067] info) 1569s [00:52:49.067] info <- base::paste(info, collapse = "; ") 1569s [00:52:49.067] if (!has_future) { 1569s [00:52:49.067] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1569s [00:52:49.067] info) 1569s [00:52:49.067] } 1569s [00:52:49.067] else { 1569s [00:52:49.067] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1569s [00:52:49.067] info, version) 1569s [00:52:49.067] } 1569s [00:52:49.067] base::stop(msg) 1569s [00:52:49.067] } 1569s [00:52:49.067] }) 1569s [00:52:49.067] } 1569s [00:52:49.067] options(future.plan = NULL) 1569s [00:52:49.067] Sys.unsetenv("R_FUTURE_PLAN") 1569s [00:52:49.067] future::plan("default", .cleanup = FALSE, .init = FALSE) 1569s [00:52:49.067] } 1569s [00:52:49.067] ...future.workdir <- getwd() 1569s [00:52:49.067] } 1569s [00:52:49.067] ...future.oldOptions <- base::as.list(base::.Options) 1569s [00:52:49.067] ...future.oldEnvVars <- base::Sys.getenv() 1569s [00:52:49.067] } 1569s [00:52:49.067] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1569s [00:52:49.067] future.globals.maxSize = NULL, future.globals.method = NULL, 1569s [00:52:49.067] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1569s [00:52:49.067] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1569s [00:52:49.067] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1569s [00:52:49.067] future.stdout.windows.reencode = NULL, width = 80L) 1569s [00:52:49.067] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1569s [00:52:49.067] base::names(...future.oldOptions)) 1569s [00:52:49.067] } 1569s [00:52:49.067] if (FALSE) { 1569s [00:52:49.067] } 1569s [00:52:49.067] else { 1569s [00:52:49.067] if (TRUE) { 1569s [00:52:49.067] ...future.stdout <- base::rawConnection(base::raw(0L), 1569s [00:52:49.067] open = "w") 1569s [00:52:49.067] } 1569s [00:52:49.067] else { 1569s [00:52:49.067] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1569s [00:52:49.067] windows = "NUL", "/dev/null"), open = "w") 1569s [00:52:49.067] } 1569s [00:52:49.067] base::sink(...future.stdout, type = "output", split = FALSE) 1569s [00:52:49.067] base::on.exit(if (!base::is.null(...future.stdout)) { 1569s [00:52:49.067] base::sink(type = "output", split = FALSE) 1569s [00:52:49.067] base::close(...future.stdout) 1569s [00:52:49.067] }, add = TRUE) 1569s [00:52:49.067] } 1569s [00:52:49.067] ...future.frame <- base::sys.nframe() 1569s [00:52:49.067] ...future.conditions <- base::list() 1569s [00:52:49.067] ...future.rng <- base::globalenv()$.Random.seed 1569s [00:52:49.067] if (FALSE) { 1569s [00:52:49.067] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1569s [00:52:49.067] "...future.value", "...future.globalenv.names", ".Random.seed") 1569s [00:52:49.067] } 1569s [00:52:49.067] ...future.result <- base::tryCatch({ 1569s [00:52:49.067] base::withCallingHandlers({ 1569s [00:52:49.067] ...future.value <- base::withVisible(base::local({ 1569s [00:52:49.067] do.call(function(...) { 1569s [00:52:49.067] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.067] if (!identical(...future.globals.maxSize.org, 1569s [00:52:49.067] ...future.globals.maxSize)) { 1569s [00:52:49.067] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.067] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.067] } 1569s [00:52:49.067] { 1569s [00:52:49.067] lapply(seq_along(...future.elements_ii), 1569s [00:52:49.067] FUN = function(jj) { 1569s [00:52:49.067] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.067] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.067] }) 1569s [00:52:49.067] } 1569s [00:52:49.067] }, args = future.call.arguments) 1569s [00:52:49.067] })) 1569s [00:52:49.067] future::FutureResult(value = ...future.value$value, 1569s [00:52:49.067] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1569s [00:52:49.067] ...future.rng), globalenv = if (FALSE) 1569s [00:52:49.067] list(added = base::setdiff(base::names(base::.GlobalEnv), 1569s [00:52:49.067] ...future.globalenv.names)) 1569s [00:52:49.067] else NULL, started = ...future.startTime, version = "1.8") 1569s [00:52:49.067] }, condition = base::local({ 1569s [00:52:49.067] c <- base::c 1569s [00:52:49.067] inherits <- base::inherits 1569s [00:52:49.067] invokeRestart <- base::invokeRestart 1569s [00:52:49.067] length <- base::length 1569s [00:52:49.067] list <- base::list 1569s [00:52:49.067] seq.int <- base::seq.int 1569s [00:52:49.067] signalCondition <- base::signalCondition 1569s [00:52:49.067] sys.calls <- base::sys.calls 1569s [00:52:49.067] `[[` <- base::`[[` 1569s [00:52:49.067] `+` <- base::`+` 1569s [00:52:49.067] `<<-` <- base::`<<-` 1569s [00:52:49.067] sysCalls <- function(calls = sys.calls(), from = 1L) { 1569s [00:52:49.067] calls[seq.int(from = from + 12L, to = length(calls) - 1569s [00:52:49.067] 3L)] 1569s [00:52:49.067] } 1569s [00:52:49.067] function(cond) { 1569s [00:52:49.067] is_error <- inherits(cond, "error") 1569s [00:52:49.067] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1569s [00:52:49.067] NULL) 1569s [00:52:49.067] if (is_error) { 1569s [00:52:49.067] sessionInformation <- function() { 1569s [00:52:49.067] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1569s [00:52:49.067] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1569s [00:52:49.067] search = base::search(), system = base::Sys.info()) 1569s [00:52:49.067] } 1569s [00:52:49.067] ...future.conditions[[length(...future.conditions) + 1569s [00:52:49.067] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1569s [00:52:49.067] cond$call), session = sessionInformation(), 1569s [00:52:49.067] timestamp = base::Sys.time(), signaled = 0L) 1569s [00:52:49.067] signalCondition(cond) 1569s [00:52:49.067] } 1569s [00:52:49.067] else if (!ignore && TRUE && inherits(cond, c("condition", 1569s [00:52:49.067] "immediateCondition"))) { 1569s [00:52:49.067] signal <- TRUE && inherits(cond, "immediateCondition") 1569s [00:52:49.067] ...future.conditions[[length(...future.conditions) + 1569s [00:52:49.067] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1569s [00:52:49.067] if (TRUE && !signal) { 1569s [00:52:49.067] muffleCondition <- function (cond, pattern = "^muffle") 1569s [00:52:49.067] { 1569s [00:52:49.067] inherits <- base::inherits 1569s [00:52:49.067] invokeRestart <- base::invokeRestart 1569s [00:52:49.067] is.null <- base::is.null 1569s [00:52:49.067] muffled <- FALSE 1569s [00:52:49.067] if (inherits(cond, "message")) { 1569s [00:52:49.067] muffled <- grepl(pattern, "muffleMessage") 1569s [00:52:49.067] if (muffled) 1569s [00:52:49.067] invokeRestart("muffleMessage") 1569s [00:52:49.067] } 1569s [00:52:49.067] else if (inherits(cond, "warning")) { 1569s [00:52:49.067] muffled <- grepl(pattern, "muffleWarning") 1569s [00:52:49.067] if (muffled) 1569s [00:52:49.067] invokeRestart("muffleWarning") 1569s [00:52:49.067] } 1569s [00:52:49.067] else if (inherits(cond, "condition")) { 1569s [00:52:49.067] if (!is.null(pattern)) { 1569s [00:52:49.067] computeRestarts <- base::computeRestarts 1569s [00:52:49.067] grepl <- base::grepl 1569s [00:52:49.067] restarts <- computeRestarts(cond) 1569s [00:52:49.067] for (restart in restarts) { 1569s [00:52:49.067] name <- restart$name 1569s [00:52:49.067] if (is.null(name)) 1569s [00:52:49.067] next 1569s [00:52:49.067] if (!grepl(pattern, name)) 1569s [00:52:49.067] next 1569s [00:52:49.067] invokeRestart(restart) 1569s [00:52:49.067] muffled <- TRUE 1569s [00:52:49.067] break 1569s [00:52:49.067] } 1569s [00:52:49.067] } 1569s [00:52:49.067] } 1569s [00:52:49.067] invisible(muffled) 1569s [00:52:49.067] } 1569s [00:52:49.067] muffleCondition(cond, pattern = "^muffle") 1569s [00:52:49.067] } 1569s [00:52:49.067] } 1569s [00:52:49.067] else { 1569s [00:52:49.067] if (TRUE) { 1569s [00:52:49.067] muffleCondition <- function (cond, pattern = "^muffle") 1569s [00:52:49.067] { 1569s [00:52:49.067] inherits <- base::inherits 1569s [00:52:49.067] invokeRestart <- base::invokeRestart 1569s [00:52:49.067] is.null <- base::is.null 1569s [00:52:49.067] muffled <- FALSE 1569s [00:52:49.067] if (inherits(cond, "message")) { 1569s [00:52:49.067] muffled <- grepl(pattern, "muffleMessage") 1569s [00:52:49.067] if (muffled) 1569s [00:52:49.067] invokeRestart("muffleMessage") 1569s [00:52:49.067] } 1569s [00:52:49.067] else if (inherits(cond, "warning")) { 1569s [00:52:49.067] muffled <- grepl(pattern, "muffleWarning") 1569s [00:52:49.067] if (muffled) 1569s [00:52:49.067] invokeRestart("muffleWarning") 1569s [00:52:49.067] } 1569s [00:52:49.067] else if (inherits(cond, "condition")) { 1569s [00:52:49.067] if (!is.null(pattern)) { 1569s [00:52:49.067] computeRestarts <- base::computeRestarts 1569s [00:52:49.067] grepl <- base::grepl 1569s [00:52:49.067] restarts <- computeRestarts(cond) 1569s [00:52:49.067] for (restart in restarts) { 1569s [00:52:49.067] name <- restart$name 1569s [00:52:49.067] if (is.null(name)) 1569s [00:52:49.067] next 1569s [00:52:49.067] if (!grepl(pattern, name)) 1569s [00:52:49.067] next 1569s [00:52:49.067] invokeRestart(restart) 1569s [00:52:49.067] muffled <- TRUE 1569s [00:52:49.067] break 1569s [00:52:49.067] } 1569s [00:52:49.067] } 1569s [00:52:49.067] } 1569s [00:52:49.067] invisible(muffled) 1569s [00:52:49.067] } 1569s [00:52:49.067] muffleCondition(cond, pattern = "^muffle") 1569s [00:52:49.067] } 1569s [00:52:49.067] } 1569s [00:52:49.067] } 1569s [00:52:49.067] })) 1569s [00:52:49.067] }, error = function(ex) { 1569s [00:52:49.067] base::structure(base::list(value = NULL, visible = NULL, 1569s [00:52:49.067] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1569s [00:52:49.067] ...future.rng), started = ...future.startTime, 1569s [00:52:49.067] finished = Sys.time(), session_uuid = NA_character_, 1569s [00:52:49.067] version = "1.8"), class = "FutureResult") 1569s [00:52:49.067] }, finally = { 1569s [00:52:49.067] if (!identical(...future.workdir, getwd())) 1569s [00:52:49.067] setwd(...future.workdir) 1569s [00:52:49.067] { 1569s [00:52:49.067] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1569s [00:52:49.067] ...future.oldOptions$nwarnings <- NULL 1569s [00:52:49.067] } 1569s [00:52:49.067] base::options(...future.oldOptions) 1569s [00:52:49.067] if (.Platform$OS.type == "windows") { 1569s [00:52:49.067] old_names <- names(...future.oldEnvVars) 1569s [00:52:49.067] envs <- base::Sys.getenv() 1569s [00:52:49.067] names <- names(envs) 1569s [00:52:49.067] common <- intersect(names, old_names) 1569s [00:52:49.067] added <- setdiff(names, old_names) 1569s [00:52:49.067] removed <- setdiff(old_names, names) 1569s [00:52:49.067] changed <- common[...future.oldEnvVars[common] != 1569s [00:52:49.067] envs[common]] 1569s [00:52:49.067] NAMES <- toupper(changed) 1569s [00:52:49.067] args <- list() 1569s [00:52:49.067] for (kk in seq_along(NAMES)) { 1569s [00:52:49.067] name <- changed[[kk]] 1569s [00:52:49.067] NAME <- NAMES[[kk]] 1569s [00:52:49.067] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.067] next 1569s [00:52:49.067] args[[name]] <- ...future.oldEnvVars[[name]] 1569s [00:52:49.067] } 1569s [00:52:49.067] NAMES <- toupper(added) 1569s [00:52:49.067] for (kk in seq_along(NAMES)) { 1569s [00:52:49.067] name <- added[[kk]] 1569s [00:52:49.067] NAME <- NAMES[[kk]] 1569s [00:52:49.067] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.067] next 1569s [00:52:49.067] args[[name]] <- "" 1569s [00:52:49.067] } 1569s [00:52:49.067] NAMES <- toupper(removed) 1569s [00:52:49.067] for (kk in seq_along(NAMES)) { 1569s [00:52:49.067] name <- removed[[kk]] 1569s [00:52:49.067] NAME <- NAMES[[kk]] 1569s [00:52:49.067] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.067] next 1569s [00:52:49.067] args[[name]] <- ...future.oldEnvVars[[name]] 1569s [00:52:49.067] } 1569s [00:52:49.067] if (length(args) > 0) 1569s [00:52:49.067] base::do.call(base::Sys.setenv, args = args) 1569s [00:52:49.067] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1569s [00:52:49.067] } 1569s [00:52:49.067] else { 1569s [00:52:49.067] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1569s [00:52:49.067] } 1569s [00:52:49.067] { 1569s [00:52:49.067] if (base::length(...future.futureOptionsAdded) > 1569s [00:52:49.067] 0L) { 1569s [00:52:49.067] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1569s [00:52:49.067] base::names(opts) <- ...future.futureOptionsAdded 1569s [00:52:49.067] base::options(opts) 1569s [00:52:49.067] } 1569s [00:52:49.067] { 1569s [00:52:49.067] { 1569s [00:52:49.067] NULL 1569s [00:52:49.067] RNGkind("Mersenne-Twister") 1569s [00:52:49.067] base::rm(list = ".Random.seed", envir = base::globalenv(), 1569s [00:52:49.067] inherits = FALSE) 1569s [00:52:49.067] } 1569s [00:52:49.067] options(future.plan = NULL) 1569s [00:52:49.067] if (is.na(NA_character_)) 1569s [00:52:49.067] Sys.unsetenv("R_FUTURE_PLAN") 1569s [00:52:49.067] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1569s [00:52:49.067] future::plan(list(function (..., envir = parent.frame()) 1569s [00:52:49.067] { 1569s [00:52:49.067] future <- SequentialFuture(..., envir = envir) 1569s [00:52:49.067] if (!future$lazy) 1569s [00:52:49.067] future <- run(future) 1569s [00:52:49.067] invisible(future) 1569s [00:52:49.067] }), .cleanup = FALSE, .init = FALSE) 1569s [00:52:49.067] } 1569s [00:52:49.067] } 1569s [00:52:49.067] } 1569s [00:52:49.067] }) 1569s [00:52:49.067] if (TRUE) { 1569s [00:52:49.067] base::sink(type = "output", split = FALSE) 1569s [00:52:49.067] if (TRUE) { 1569s [00:52:49.067] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1569s [00:52:49.067] } 1569s [00:52:49.067] else { 1569s [00:52:49.067] ...future.result["stdout"] <- base::list(NULL) 1569s [00:52:49.067] } 1569s [00:52:49.067] base::close(...future.stdout) 1569s [00:52:49.067] ...future.stdout <- NULL 1569s [00:52:49.067] } 1569s [00:52:49.067] ...future.result$conditions <- ...future.conditions 1569s [00:52:49.067] ...future.result$finished <- base::Sys.time() 1569s [00:52:49.067] ...future.result 1569s [00:52:49.067] } 1569s [00:52:49.074] assign_globals() ... 1569s [00:52:49.074] List of 5 1569s [00:52:49.074] $ ...future.FUN :function (x) 1569s [00:52:49.074] $ future.call.arguments : list() 1569s [00:52:49.074] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.074] $ ...future.elements_ii :List of 3 1569s [00:52:49.074] ..$ a: num 1 1569s [00:52:49.074] ..$ b: num 2 1569s [00:52:49.074] ..$ c: num 3 1569s [00:52:49.074] $ ...future.seeds_ii : NULL 1569s [00:52:49.074] $ ...future.globals.maxSize: NULL 1569s [00:52:49.074] - attr(*, "where")=List of 5 1569s [00:52:49.074] ..$ ...future.FUN : 1569s [00:52:49.074] ..$ future.call.arguments : 1569s [00:52:49.074] ..$ ...future.elements_ii : 1569s [00:52:49.074] ..$ ...future.seeds_ii : 1569s [00:52:49.074] ..$ ...future.globals.maxSize: 1569s [00:52:49.074] - attr(*, "resolved")= logi FALSE 1569s [00:52:49.074] - attr(*, "total_size")= num 848 1569s [00:52:49.074] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.074] - attr(*, "already-done")= logi TRUE 1569s [00:52:49.089] - copied ‘...future.FUN’ to environment 1569s [00:52:49.089] - copied ‘future.call.arguments’ to environment 1569s [00:52:49.089] - copied ‘...future.elements_ii’ to environment 1569s [00:52:49.090] - copied ‘...future.seeds_ii’ to environment 1569s [00:52:49.090] - copied ‘...future.globals.maxSize’ to environment 1569s [00:52:49.091] assign_globals() ... done 1569s [00:52:49.091] plan(): Setting new future strategy stack: 1569s [00:52:49.092] List of future strategies: 1569s [00:52:49.092] 1. sequential: 1569s [00:52:49.092] - args: function (..., envir = parent.frame()) 1569s [00:52:49.092] - tweaked: FALSE 1569s [00:52:49.092] - call: NULL 1569s [00:52:49.093] plan(): nbrOfWorkers() = 1 1569s [00:52:49.094] plan(): Setting new future strategy stack: 1569s [00:52:49.095] List of future strategies: 1569s [00:52:49.095] 1. sequential: 1569s [00:52:49.095] - args: function (..., envir = parent.frame()) 1569s [00:52:49.095] - tweaked: FALSE 1569s [00:52:49.095] - call: plan(strategy) 1569s [00:52:49.095] plan(): nbrOfWorkers() = 1 1569s [00:52:49.096] SequentialFuture started (and completed) 1569s [00:52:49.096] - Launch lazy future ... done 1569s [00:52:49.096] run() for ‘SequentialFuture’ ... done 1569s [00:52:49.097] Created future: 1569s [00:52:49.097] SequentialFuture: 1569s [00:52:49.097] Label: ‘future_sapply-1’ 1569s [00:52:49.097] Expression: 1569s [00:52:49.097] { 1569s [00:52:49.097] do.call(function(...) { 1569s [00:52:49.097] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.097] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1569s [00:52:49.097] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.097] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.097] } 1569s [00:52:49.097] { 1569s [00:52:49.097] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1569s [00:52:49.097] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.097] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.097] }) 1569s [00:52:49.097] } 1569s [00:52:49.097] }, args = future.call.arguments) 1569s [00:52:49.097] } 1569s [00:52:49.097] Lazy evaluation: FALSE 1569s [00:52:49.097] Asynchronous evaluation: FALSE 1569s [00:52:49.097] Local evaluation: TRUE 1569s [00:52:49.097] Environment: R_GlobalEnv 1569s [00:52:49.097] Capture standard output: TRUE 1569s [00:52:49.097] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1569s [00:52:49.097] Globals: 5 objects totaling 0.99 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1569s [00:52:49.097] Packages: 1569s [00:52:49.097] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1569s [00:52:49.097] Resolved: TRUE 1569s [00:52:49.097] Value: 168 bytes of class ‘list’ 1569s [00:52:49.097] Early signaling: FALSE 1569s [00:52:49.097] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1569s [00:52:49.097] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1569s [00:52:49.100] Chunk #1 of 1 ... DONE 1569s [00:52:49.101] Launching 1 futures (chunks) ... DONE 1569s [00:52:49.101] Resolving 1 futures (chunks) ... 1569s [00:52:49.101] resolve() on list ... 1569s [00:52:49.102] recursive: 0 1569s [00:52:49.102] length: 1 1569s [00:52:49.102] 1569s [00:52:49.103] resolved() for ‘SequentialFuture’ ... 1569s [00:52:49.103] - state: ‘finished’ 1569s [00:52:49.104] - run: TRUE 1569s [00:52:49.104] - result: ‘FutureResult’ 1569s [00:52:49.104] resolved() for ‘SequentialFuture’ ... done 1569s [00:52:49.105] Future #1 1569s [00:52:49.105] signalConditionsASAP(SequentialFuture, pos=1) ... 1569s [00:52:49.105] - nx: 1 1569s [00:52:49.105] - relay: TRUE 1569s [00:52:49.105] - stdout: TRUE 1569s [00:52:49.106] - signal: TRUE 1569s [00:52:49.106] - resignal: FALSE 1569s [00:52:49.106] - force: TRUE 1569s [00:52:49.106] - relayed: [n=1] FALSE 1569s [00:52:49.106] - queued futures: [n=1] FALSE 1569s [00:52:49.106] - until=1 1569s [00:52:49.106] - relaying element #1 1569s [00:52:49.106] - relayed: [n=1] TRUE 1569s [00:52:49.107] - queued futures: [n=1] TRUE 1569s [00:52:49.107] signalConditionsASAP(SequentialFuture, pos=1) ... done 1569s [00:52:49.108] length: 0 (resolved future 1) 1569s [00:52:49.108] Relaying remaining futures 1569s [00:52:49.108] signalConditionsASAP(NULL, pos=0) ... 1569s [00:52:49.108] - nx: 1 1569s [00:52:49.109] - relay: TRUE 1569s [00:52:49.109] - stdout: TRUE 1569s [00:52:49.109] - signal: TRUE 1569s [00:52:49.109] - resignal: FALSE 1569s [00:52:49.109] - force: TRUE 1569s [00:52:49.109] - relayed: [n=1] TRUE 1569s [00:52:49.109] - queued futures: [n=1] TRUE 1569s - flush all 1569s [00:52:49.110] - relayed: [n=1] TRUE 1569s [00:52:49.111] - queued futures: [n=1] TRUE 1569s [00:52:49.111] signalConditionsASAP(NULL, pos=0) ... done 1569s [00:52:49.111] resolve() on list ... DONE 1569s List of 2 1569s $ y0:[00:52:49.112] - Number of value chunks collected: 1 1569s [00:52:49.112] Resolving 1 futures (chunks) ... DONE 1569s [00:52:49.113] Reducing values from 1 chunks ... 1569s [00:52:49.113] - Number of values collected after concatenation: 3 1569s [00:52:49.113] - Number of values expected: 3 1569s [00:52:49.113] Reducing values from 1 chunks ... DONE 1569s [00:52:49.114] future_lapply() ... DONE 1569s Named num [1:3] 1 2 3 1569s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1569s $ y1: Named num [1:3] 1 2 3 1569s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1569s [00:52:49.119] future_lapply() ... 1569s [00:52:49.121] Number of chunks: 1 1569s [00:52:49.121] getGlobalsAndPackagesXApply() ... 1569s [00:52:49.121] - future.globals: TRUE 1569s [00:52:49.122] getGlobalsAndPackages() ... 1569s [00:52:49.122] Searching for globals... 1569s [00:52:49.123] - globals found: [2] ‘FUN’, ‘UseMethod’ 1569s [00:52:49.123] Searching for globals ... DONE 1569s [00:52:49.123] Resolving globals: FALSE 1569s [00:52:49.124] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1569s [00:52:49.124] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1569s [00:52:49.124] - globals: [1] ‘FUN’ 1569s [00:52:49.127] 1569s [00:52:49.128] getGlobalsAndPackages() ... DONE 1569s [00:52:49.128] - globals found/used: [n=1] ‘FUN’ 1569s [00:52:49.128] - needed namespaces: [n=0] 1569s [00:52:49.128] Finding globals ... DONE 1569s [00:52:49.128] - use_args: TRUE 1569s [00:52:49.129] - Getting '...' globals ... 1569s [00:52:49.129] resolve() on list ... 1569s [00:52:49.129] recursive: 0 1569s [00:52:49.130] length: 1 1569s [00:52:49.130] elements: ‘...’ 1569s [00:52:49.130] length: 0 (resolved future 1) 1569s [00:52:49.131] resolve() on list ... DONE 1569s [00:52:49.131] - '...' content: [n=0] 1569s [00:52:49.131] List of 1 1569s [00:52:49.131] $ ...: list() 1569s [00:52:49.131] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.131] - attr(*, "where")=List of 1 1569s [00:52:49.131] ..$ ...: 1569s [00:52:49.131] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.131] - attr(*, "resolved")= logi TRUE 1569s [00:52:49.131] - attr(*, "total_size")= num NA 1569s [00:52:49.136] - Getting '...' globals ... DONE 1569s [00:52:49.136] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1569s [00:52:49.136] List of 2 1569s [00:52:49.136] $ ...future.FUN:function (x, ...) 1569s [00:52:49.136] $ ... : list() 1569s [00:52:49.136] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.136] - attr(*, "where")=List of 2 1569s [00:52:49.136] ..$ ...future.FUN: 1569s [00:52:49.136] ..$ ... : 1569s [00:52:49.136] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.136] - attr(*, "resolved")= logi FALSE 1569s [00:52:49.136] - attr(*, "total_size")= num 1248 1569s [00:52:49.142] Packages to be attached in all futures: [n=0] 1569s [00:52:49.142] getGlobalsAndPackagesXApply() ... DONE 1569s [00:52:49.143] Number of futures (= number of chunks): 1 1569s [00:52:49.143] Launching 1 futures (chunks) ... 1569s [00:52:49.143] Chunk #1 of 1 ... 1569s [00:52:49.144] - Finding globals in 'X' for chunk #1 ... 1569s [00:52:49.144] getGlobalsAndPackages() ... 1569s [00:52:49.144] Searching for globals... 1569s [00:52:49.145] 1569s [00:52:49.145] Searching for globals ... DONE 1569s [00:52:49.145] - globals: [0] 1569s [00:52:49.145] getGlobalsAndPackages() ... DONE 1569s [00:52:49.145] + additional globals found: [n=0] 1569s [00:52:49.145] + additional namespaces needed: [n=0] 1569s [00:52:49.145] - Finding globals in 'X' for chunk #1 ... DONE 1569s [00:52:49.146] - seeds: 1569s [00:52:49.146] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:49.146] getGlobalsAndPackages() ... 1569s [00:52:49.146] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:49.146] Resolving globals: FALSE 1569s [00:52:49.146] Tweak future expression to call with '...' arguments ... 1569s [00:52:49.146] { 1569s [00:52:49.146] do.call(function(...) { 1569s [00:52:49.146] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.146] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1569s [00:52:49.146] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.146] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.146] } 1569s [00:52:49.146] { 1569s [00:52:49.146] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1569s [00:52:49.146] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.146] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.146] }) 1569s [00:52:49.146] } 1569s [00:52:49.146] }, args = future.call.arguments) 1569s [00:52:49.146] } 1569s [00:52:49.147] Tweak future expression to call with '...' arguments ... DONE 1569s [00:52:49.147] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:49.147] 1569s [00:52:49.148] getGlobalsAndPackages() ... DONE 1569s [00:52:49.148] run() for ‘Future’ ... 1569s [00:52:49.148] - state: ‘created’ 1569s [00:52:49.149] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1569s [00:52:49.149] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1569s [00:52:49.149] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1569s [00:52:49.149] - Field: ‘label’ 1569s [00:52:49.149] - Field: ‘local’ 1569s [00:52:49.149] - Field: ‘owner’ 1569s [00:52:49.150] - Field: ‘envir’ 1569s [00:52:49.150] - Field: ‘packages’ 1569s [00:52:49.151] - Field: ‘gc’ 1569s [00:52:49.151] - Field: ‘conditions’ 1569s [00:52:49.151] - Field: ‘expr’ 1569s [00:52:49.151] - Field: ‘uuid’ 1569s [00:52:49.152] - Field: ‘seed’ 1569s [00:52:49.152] - Field: ‘version’ 1569s [00:52:49.152] - Field: ‘result’ 1569s [00:52:49.152] - Field: ‘asynchronous’ 1569s [00:52:49.152] - Field: ‘calls’ 1569s [00:52:49.152] - Field: ‘globals’ 1569s [00:52:49.153] - Field: ‘stdout’ 1569s [00:52:49.153] - Field: ‘earlySignal’ 1569s [00:52:49.153] - Field: ‘lazy’ 1569s [00:52:49.153] - Field: ‘state’ 1569s [00:52:49.154] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1569s [00:52:49.154] - Launch lazy future ... 1569s [00:52:49.154] Packages needed by the future expression (n = 0): 1569s [00:52:49.155] Packages needed by future strategies (n = 0): 1569s [00:52:49.155] { 1569s [00:52:49.155] { 1569s [00:52:49.155] { 1569s [00:52:49.155] ...future.startTime <- base::Sys.time() 1569s [00:52:49.155] { 1569s [00:52:49.155] { 1569s [00:52:49.155] { 1569s [00:52:49.155] base::local({ 1569s [00:52:49.155] has_future <- base::requireNamespace("future", 1569s [00:52:49.155] quietly = TRUE) 1569s [00:52:49.155] if (has_future) { 1569s [00:52:49.155] ns <- base::getNamespace("future") 1569s [00:52:49.155] version <- ns[[".package"]][["version"]] 1569s [00:52:49.155] if (is.null(version)) 1569s [00:52:49.155] version <- utils::packageVersion("future") 1569s [00:52:49.155] } 1569s [00:52:49.155] else { 1569s [00:52:49.155] version <- NULL 1569s [00:52:49.155] } 1569s [00:52:49.155] if (!has_future || version < "1.8.0") { 1569s [00:52:49.155] info <- base::c(r_version = base::gsub("R version ", 1569s [00:52:49.155] "", base::R.version$version.string), 1569s [00:52:49.155] platform = base::sprintf("%s (%s-bit)", 1569s [00:52:49.155] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1569s [00:52:49.155] os = base::paste(base::Sys.info()[base::c("sysname", 1569s [00:52:49.155] "release", "version")], collapse = " "), 1569s [00:52:49.155] hostname = base::Sys.info()[["nodename"]]) 1569s [00:52:49.155] info <- base::sprintf("%s: %s", base::names(info), 1569s [00:52:49.155] info) 1569s [00:52:49.155] info <- base::paste(info, collapse = "; ") 1569s [00:52:49.155] if (!has_future) { 1569s [00:52:49.155] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1569s [00:52:49.155] info) 1569s [00:52:49.155] } 1569s [00:52:49.155] else { 1569s [00:52:49.155] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1569s [00:52:49.155] info, version) 1569s [00:52:49.155] } 1569s [00:52:49.155] base::stop(msg) 1569s [00:52:49.155] } 1569s [00:52:49.155] }) 1569s [00:52:49.155] } 1569s [00:52:49.155] options(future.plan = NULL) 1569s [00:52:49.155] Sys.unsetenv("R_FUTURE_PLAN") 1569s [00:52:49.155] future::plan("default", .cleanup = FALSE, .init = FALSE) 1569s [00:52:49.155] } 1569s [00:52:49.155] ...future.workdir <- getwd() 1569s [00:52:49.155] } 1569s [00:52:49.155] ...future.oldOptions <- base::as.list(base::.Options) 1569s [00:52:49.155] ...future.oldEnvVars <- base::Sys.getenv() 1569s [00:52:49.155] } 1569s [00:52:49.155] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1569s [00:52:49.155] future.globals.maxSize = NULL, future.globals.method = NULL, 1569s [00:52:49.155] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1569s [00:52:49.155] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1569s [00:52:49.155] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1569s [00:52:49.155] future.stdout.windows.reencode = NULL, width = 80L) 1569s [00:52:49.155] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1569s [00:52:49.155] base::names(...future.oldOptions)) 1569s [00:52:49.155] } 1569s [00:52:49.155] if (FALSE) { 1569s [00:52:49.155] } 1569s [00:52:49.155] else { 1569s [00:52:49.155] if (TRUE) { 1569s [00:52:49.155] ...future.stdout <- base::rawConnection(base::raw(0L), 1569s [00:52:49.155] open = "w") 1569s [00:52:49.155] } 1569s [00:52:49.155] else { 1569s [00:52:49.155] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1569s [00:52:49.155] windows = "NUL", "/dev/null"), open = "w") 1569s [00:52:49.155] } 1569s [00:52:49.155] base::sink(...future.stdout, type = "output", split = FALSE) 1569s [00:52:49.155] base::on.exit(if (!base::is.null(...future.stdout)) { 1569s [00:52:49.155] base::sink(type = "output", split = FALSE) 1569s [00:52:49.155] base::close(...future.stdout) 1569s [00:52:49.155] }, add = TRUE) 1569s [00:52:49.155] } 1569s [00:52:49.155] ...future.frame <- base::sys.nframe() 1569s [00:52:49.155] ...future.conditions <- base::list() 1569s [00:52:49.155] ...future.rng <- base::globalenv()$.Random.seed 1569s [00:52:49.155] if (FALSE) { 1569s [00:52:49.155] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1569s [00:52:49.155] "...future.value", "...future.globalenv.names", ".Random.seed") 1569s [00:52:49.155] } 1569s [00:52:49.155] ...future.result <- base::tryCatch({ 1569s [00:52:49.155] base::withCallingHandlers({ 1569s [00:52:49.155] ...future.value <- base::withVisible(base::local({ 1569s [00:52:49.155] do.call(function(...) { 1569s [00:52:49.155] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.155] if (!identical(...future.globals.maxSize.org, 1569s [00:52:49.155] ...future.globals.maxSize)) { 1569s [00:52:49.155] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.155] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.155] } 1569s [00:52:49.155] { 1569s [00:52:49.155] lapply(seq_along(...future.elements_ii), 1569s [00:52:49.155] FUN = function(jj) { 1569s [00:52:49.155] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.155] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.155] }) 1569s [00:52:49.155] } 1569s [00:52:49.155] }, args = future.call.arguments) 1569s [00:52:49.155] })) 1569s [00:52:49.155] future::FutureResult(value = ...future.value$value, 1569s [00:52:49.155] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1569s [00:52:49.155] ...future.rng), globalenv = if (FALSE) 1569s [00:52:49.155] list(added = base::setdiff(base::names(base::.GlobalEnv), 1569s [00:52:49.155] ...future.globalenv.names)) 1569s [00:52:49.155] else NULL, started = ...future.startTime, version = "1.8") 1569s [00:52:49.155] }, condition = base::local({ 1569s [00:52:49.155] c <- base::c 1569s [00:52:49.155] inherits <- base::inherits 1569s [00:52:49.155] invokeRestart <- base::invokeRestart 1569s [00:52:49.155] length <- base::length 1569s [00:52:49.155] list <- base::list 1569s [00:52:49.155] seq.int <- base::seq.int 1569s [00:52:49.155] signalCondition <- base::signalCondition 1569s [00:52:49.155] sys.calls <- base::sys.calls 1569s [00:52:49.155] `[[` <- base::`[[` 1569s [00:52:49.155] `+` <- base::`+` 1569s [00:52:49.155] `<<-` <- base::`<<-` 1569s [00:52:49.155] sysCalls <- function(calls = sys.calls(), from = 1L) { 1569s [00:52:49.155] calls[seq.int(from = from + 12L, to = length(calls) - 1569s [00:52:49.155] 3L)] 1569s [00:52:49.155] } 1569s [00:52:49.155] function(cond) { 1569s [00:52:49.155] is_error <- inherits(cond, "error") 1569s [00:52:49.155] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1569s [00:52:49.155] NULL) 1569s [00:52:49.155] if (is_error) { 1569s [00:52:49.155] sessionInformation <- function() { 1569s [00:52:49.155] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1569s [00:52:49.155] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1569s [00:52:49.155] search = base::search(), system = base::Sys.info()) 1569s [00:52:49.155] } 1569s [00:52:49.155] ...future.conditions[[length(...future.conditions) + 1569s [00:52:49.155] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1569s [00:52:49.155] cond$call), session = sessionInformation(), 1569s [00:52:49.155] timestamp = base::Sys.time(), signaled = 0L) 1569s [00:52:49.155] signalCondition(cond) 1569s [00:52:49.155] } 1569s [00:52:49.155] else if (!ignore && TRUE && inherits(cond, c("condition", 1569s [00:52:49.155] "immediateCondition"))) { 1569s [00:52:49.155] signal <- TRUE && inherits(cond, "immediateCondition") 1569s [00:52:49.155] ...future.conditions[[length(...future.conditions) + 1569s [00:52:49.155] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1569s [00:52:49.155] if (TRUE && !signal) { 1569s [00:52:49.155] muffleCondition <- function (cond, pattern = "^muffle") 1569s [00:52:49.155] { 1569s [00:52:49.155] inherits <- base::inherits 1569s [00:52:49.155] invokeRestart <- base::invokeRestart 1569s [00:52:49.155] is.null <- base::is.null 1569s [00:52:49.155] muffled <- FALSE 1569s [00:52:49.155] if (inherits(cond, "message")) { 1569s [00:52:49.155] muffled <- grepl(pattern, "muffleMessage") 1569s [00:52:49.155] if (muffled) 1569s [00:52:49.155] invokeRestart("muffleMessage") 1569s [00:52:49.155] } 1569s [00:52:49.155] else if (inherits(cond, "warning")) { 1569s [00:52:49.155] muffled <- grepl(pattern, "muffleWarning") 1569s [00:52:49.155] if (muffled) 1569s [00:52:49.155] invokeRestart("muffleWarning") 1569s [00:52:49.155] } 1569s [00:52:49.155] else if (inherits(cond, "condition")) { 1569s [00:52:49.155] if (!is.null(pattern)) { 1569s [00:52:49.155] computeRestarts <- base::computeRestarts 1569s [00:52:49.155] grepl <- base::grepl 1569s [00:52:49.155] restarts <- computeRestarts(cond) 1569s [00:52:49.155] for (restart in restarts) { 1569s [00:52:49.155] name <- restart$name 1569s [00:52:49.155] if (is.null(name)) 1569s [00:52:49.155] next 1569s [00:52:49.155] if (!grepl(pattern, name)) 1569s [00:52:49.155] next 1569s [00:52:49.155] invokeRestart(restart) 1569s [00:52:49.155] muffled <- TRUE 1569s [00:52:49.155] break 1569s [00:52:49.155] } 1569s [00:52:49.155] } 1569s [00:52:49.155] } 1569s [00:52:49.155] invisible(muffled) 1569s [00:52:49.155] } 1569s [00:52:49.155] muffleCondition(cond, pattern = "^muffle") 1569s [00:52:49.155] } 1569s [00:52:49.155] } 1569s [00:52:49.155] else { 1569s [00:52:49.155] if (TRUE) { 1569s [00:52:49.155] muffleCondition <- function (cond, pattern = "^muffle") 1569s [00:52:49.155] { 1569s [00:52:49.155] inherits <- base::inherits 1569s [00:52:49.155] invokeRestart <- base::invokeRestart 1569s [00:52:49.155] is.null <- base::is.null 1569s [00:52:49.155] muffled <- FALSE 1569s [00:52:49.155] if (inherits(cond, "message")) { 1569s [00:52:49.155] muffled <- grepl(pattern, "muffleMessage") 1569s [00:52:49.155] if (muffled) 1569s [00:52:49.155] invokeRestart("muffleMessage") 1569s [00:52:49.155] } 1569s [00:52:49.155] else if (inherits(cond, "warning")) { 1569s [00:52:49.155] muffled <- grepl(pattern, "muffleWarning") 1569s [00:52:49.155] if (muffled) 1569s [00:52:49.155] invokeRestart("muffleWarning") 1569s [00:52:49.155] } 1569s [00:52:49.155] else if (inherits(cond, "condition")) { 1569s [00:52:49.155] if (!is.null(pattern)) { 1569s [00:52:49.155] computeRestarts <- base::computeRestarts 1569s [00:52:49.155] grepl <- base::grepl 1569s [00:52:49.155] restarts <- computeRestarts(cond) 1569s [00:52:49.155] for (restart in restarts) { 1569s [00:52:49.155] name <- restart$name 1569s [00:52:49.155] if (is.null(name)) 1569s [00:52:49.155] next 1569s [00:52:49.155] if (!grepl(pattern, name)) 1569s [00:52:49.155] next 1569s [00:52:49.155] invokeRestart(restart) 1569s [00:52:49.155] muffled <- TRUE 1569s [00:52:49.155] break 1569s [00:52:49.155] } 1569s [00:52:49.155] } 1569s [00:52:49.155] } 1569s [00:52:49.155] invisible(muffled) 1569s [00:52:49.155] } 1569s [00:52:49.155] muffleCondition(cond, pattern = "^muffle") 1569s [00:52:49.155] } 1569s [00:52:49.155] } 1569s [00:52:49.155] } 1569s [00:52:49.155] })) 1569s [00:52:49.155] }, error = function(ex) { 1569s [00:52:49.155] base::structure(base::list(value = NULL, visible = NULL, 1569s [00:52:49.155] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1569s [00:52:49.155] ...future.rng), started = ...future.startTime, 1569s [00:52:49.155] finished = Sys.time(), session_uuid = NA_character_, 1569s [00:52:49.155] version = "1.8"), class = "FutureResult") 1569s [00:52:49.155] }, finally = { 1569s [00:52:49.155] if (!identical(...future.workdir, getwd())) 1569s [00:52:49.155] setwd(...future.workdir) 1569s [00:52:49.155] { 1569s [00:52:49.155] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1569s [00:52:49.155] ...future.oldOptions$nwarnings <- NULL 1569s [00:52:49.155] } 1569s [00:52:49.155] base::options(...future.oldOptions) 1569s [00:52:49.155] if (.Platform$OS.type == "windows") { 1569s [00:52:49.155] old_names <- names(...future.oldEnvVars) 1569s [00:52:49.155] envs <- base::Sys.getenv() 1569s [00:52:49.155] names <- names(envs) 1569s [00:52:49.155] common <- intersect(names, old_names) 1569s [00:52:49.155] added <- setdiff(names, old_names) 1569s [00:52:49.155] removed <- setdiff(old_names, names) 1569s [00:52:49.155] changed <- common[...future.oldEnvVars[common] != 1569s [00:52:49.155] envs[common]] 1569s [00:52:49.155] NAMES <- toupper(changed) 1569s [00:52:49.155] args <- list() 1569s [00:52:49.155] for (kk in seq_along(NAMES)) { 1569s [00:52:49.155] name <- changed[[kk]] 1569s [00:52:49.155] NAME <- NAMES[[kk]] 1569s [00:52:49.155] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.155] next 1569s [00:52:49.155] args[[name]] <- ...future.oldEnvVars[[name]] 1569s [00:52:49.155] } 1569s [00:52:49.155] NAMES <- toupper(added) 1569s [00:52:49.155] for (kk in seq_along(NAMES)) { 1569s [00:52:49.155] name <- added[[kk]] 1569s [00:52:49.155] NAME <- NAMES[[kk]] 1569s [00:52:49.155] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.155] next 1569s [00:52:49.155] args[[name]] <- "" 1569s [00:52:49.155] } 1569s [00:52:49.155] NAMES <- toupper(removed) 1569s [00:52:49.155] for (kk in seq_along(NAMES)) { 1569s [00:52:49.155] name <- removed[[kk]] 1569s [00:52:49.155] NAME <- NAMES[[kk]] 1569s [00:52:49.155] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.155] next 1569s [00:52:49.155] args[[name]] <- ...future.oldEnvVars[[name]] 1569s [00:52:49.155] } 1569s [00:52:49.155] if (length(args) > 0) 1569s [00:52:49.155] base::do.call(base::Sys.setenv, args = args) 1569s [00:52:49.155] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1569s [00:52:49.155] } 1569s [00:52:49.155] else { 1569s [00:52:49.155] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1569s [00:52:49.155] } 1569s [00:52:49.155] { 1569s [00:52:49.155] if (base::length(...future.futureOptionsAdded) > 1569s [00:52:49.155] 0L) { 1569s [00:52:49.155] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1569s [00:52:49.155] base::names(opts) <- ...future.futureOptionsAdded 1569s [00:52:49.155] base::options(opts) 1569s [00:52:49.155] } 1569s [00:52:49.155] { 1569s [00:52:49.155] { 1569s [00:52:49.155] NULL 1569s [00:52:49.155] RNGkind("Mersenne-Twister") 1569s [00:52:49.155] base::rm(list = ".Random.seed", envir = base::globalenv(), 1569s [00:52:49.155] inherits = FALSE) 1569s [00:52:49.155] } 1569s [00:52:49.155] options(future.plan = NULL) 1569s [00:52:49.155] if (is.na(NA_character_)) 1569s [00:52:49.155] Sys.unsetenv("R_FUTURE_PLAN") 1569s [00:52:49.155] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1569s [00:52:49.155] future::plan(list(function (..., envir = parent.frame()) 1569s [00:52:49.155] { 1569s [00:52:49.155] future <- SequentialFuture(..., envir = envir) 1569s [00:52:49.155] if (!future$lazy) 1569s [00:52:49.155] future <- run(future) 1569s [00:52:49.155] invisible(future) 1569s [00:52:49.155] }), .cleanup = FALSE, .init = FALSE) 1569s [00:52:49.155] } 1569s [00:52:49.155] } 1569s [00:52:49.155] } 1569s [00:52:49.155] }) 1569s [00:52:49.155] if (TRUE) { 1569s [00:52:49.155] base::sink(type = "output", split = FALSE) 1569s [00:52:49.155] if (TRUE) { 1569s [00:52:49.155] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1569s [00:52:49.155] } 1569s [00:52:49.155] else { 1569s [00:52:49.155] ...future.result["stdout"] <- base::list(NULL) 1569s [00:52:49.155] } 1569s [00:52:49.155] base::close(...future.stdout) 1569s [00:52:49.155] ...future.stdout <- NULL 1569s [00:52:49.155] } 1569s [00:52:49.155] ...future.result$conditions <- ...future.conditions 1569s [00:52:49.155] ...future.result$finished <- base::Sys.time() 1569s [00:52:49.155] ...future.result 1569s [00:52:49.155] } 1569s [00:52:49.159] assign_globals() ... 1569s [00:52:49.159] List of 5 1569s [00:52:49.159] $ ...future.FUN :function (x, ...) 1569s [00:52:49.159] $ future.call.arguments : list() 1569s [00:52:49.159] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.159] $ ...future.elements_ii :List of 3 1569s [00:52:49.159] ..$ a: num 1 1569s [00:52:49.159] ..$ b: num 2 1569s [00:52:49.159] ..$ c: num 3 1569s [00:52:49.159] $ ...future.seeds_ii : NULL 1569s [00:52:49.159] $ ...future.globals.maxSize: NULL 1569s [00:52:49.159] - attr(*, "where")=List of 5 1569s [00:52:49.159] ..$ ...future.FUN : 1569s [00:52:49.159] ..$ future.call.arguments : 1569s [00:52:49.159] ..$ ...future.elements_ii : 1569s [00:52:49.159] ..$ ...future.seeds_ii : 1569s [00:52:49.159] ..$ ...future.globals.maxSize: 1569s [00:52:49.159] - attr(*, "resolved")= logi FALSE 1569s [00:52:49.159] - attr(*, "total_size")= num 1248 1569s [00:52:49.159] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.159] - attr(*, "already-done")= logi TRUE 1569s [00:52:49.167] - copied ‘...future.FUN’ to environment 1569s [00:52:49.167] - copied ‘future.call.arguments’ to environment 1569s [00:52:49.167] - copied ‘...future.elements_ii’ to environment 1569s [00:52:49.167] - copied ‘...future.seeds_ii’ to environment 1569s [00:52:49.167] - copied ‘...future.globals.maxSize’ to environment 1569s [00:52:49.168] assign_globals() ... done 1569s [00:52:49.168] plan(): Setting new future strategy stack: 1569s [00:52:49.169] List of future strategies: 1569s [00:52:49.169] 1. sequential: 1569s [00:52:49.169] - args: function (..., envir = parent.frame()) 1569s [00:52:49.169] - tweaked: FALSE 1569s [00:52:49.169] - call: NULL 1569s [00:52:49.169] plan(): nbrOfWorkers() = 1 1569s [00:52:49.170] plan(): Setting new future strategy stack: 1569s [00:52:49.171] List of future strategies: 1569s [00:52:49.171] 1. sequential: 1569s [00:52:49.171] - args: function (..., envir = parent.frame()) 1569s [00:52:49.171] - tweaked: FALSE 1569s [00:52:49.171] - call: plan(strategy) 1569s [00:52:49.171] plan(): nbrOfWorkers() = 1 1569s [00:52:49.172] SequentialFuture started (and completed) 1569s [00:52:49.172] - Launch lazy future ... done 1569s [00:52:49.172] run() for ‘SequentialFuture’ ... done 1569s [00:52:49.172] Created future: 1569s [00:52:49.173] SequentialFuture: 1569s [00:52:49.173] Label: ‘future_sapply-1’ 1569s [00:52:49.173] Expression: 1569s [00:52:49.173] { 1569s [00:52:49.173] do.call(function(...) { 1569s [00:52:49.173] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.173] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1569s [00:52:49.173] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.173] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.173] } 1569s [00:52:49.173] { 1569s [00:52:49.173] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1569s [00:52:49.173] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.173] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.173] }) 1569s [00:52:49.173] } 1569s [00:52:49.173] }, args = future.call.arguments) 1569s [00:52:49.173] } 1569s [00:52:49.173] Lazy evaluation: FALSE 1569s [00:52:49.173] Asynchronous evaluation: FALSE 1569s [00:52:49.173] Local evaluation: TRUE 1569s [00:52:49.173] Environment: R_GlobalEnv 1569s [00:52:49.173] Capture standard output: TRUE 1569s [00:52:49.173] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1569s [00:52:49.173] Globals: 5 objects totaling 1.38 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1569s [00:52:49.173] Packages: 1569s [00:52:49.173] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1569s [00:52:49.173] Resolved: TRUE 1569s [00:52:49.173] Value: 672 bytes of class ‘list’ 1569s [00:52:49.173] Early signaling: FALSE 1569s [00:52:49.173] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1569s [00:52:49.173] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1569s [00:52:49.177] Chunk #1 of 1 ... DONE 1569s [00:52:49.177] Launching 1 futures (chunks) ... DONE 1569s [00:52:49.177] Resolving 1 futures (chunks) ... 1569s [00:52:49.178] resolve() on list ... 1569s [00:52:49.178] recursive: 0 1569s [00:52:49.178] length: 1 1569s [00:52:49.178] 1569s [00:52:49.178] resolved() for ‘SequentialFuture’ ... 1569s [00:52:49.179] - state: ‘finished’ 1569s [00:52:49.179] - run: TRUE 1569s [00:52:49.179] - result: ‘FutureResult’ 1569s [00:52:49.179] resolved() for ‘SequentialFuture’ ... done 1569s [00:52:49.179] Future #1 1569s [00:52:49.180] signalConditionsASAP(SequentialFuture, pos=1) ... 1569s [00:52:49.180] - nx: 1 1569s [00:52:49.180] - relay: TRUE 1569s [00:52:49.180] - stdout: TRUE 1569s [00:52:49.181] - signal: TRUE 1569s [00:52:49.181] - resignal: FALSE 1569s [00:52:49.181] - force: TRUE 1569s [00:52:49.181] - relayed: [n=1] FALSE 1569s [00:52:49.181] - queued futures: [n=1] FALSE 1569s [00:52:49.181] - until=1 1569s [00:52:49.181] - relaying element #1 1569s [00:52:49.181] - relayed: [n=1] TRUE 1569s [00:52:49.182] - queued futures: [n=1] TRUE 1569s [00:52:49.182] signalConditionsASAP(SequentialFuture, pos=1) ... done 1569s [00:52:49.182] length: 0 (resolved future 1) 1569s [00:52:49.182] Relaying remaining futures 1569s [00:52:49.182] signalConditionsASAP(NULL, pos=0) ... 1569s [00:52:49.182] - nx: 1 1569s [00:52:49.182] - relay: TRUE 1569s [00:52:49.182] - stdout: TRUE 1569s [00:52:49.182] - signal: TRUE 1569s [00:52:49.183] - resignal: FALSE 1569s [00:52:49.183] - force: TRUE 1569s [00:52:49.183] - relayed: [n=1] TRUE 1569s [00:52:49.183] - queued futures: [n=1] TRUE 1569s - flush all 1569s [00:52:49.184] - relayed: [n=1] TRUE 1569s [00:52:49.184] - queued futures: [n=1] TRUE 1569s [00:52:49.184] signalConditionsASAP(NULL, pos=0) ... done 1569s [00:52:49.184] resolve() on list ... DONE 1569s [00:52:49.184] - Number of value chunks collected: 1 1569s [00:52:49.184] Resolving 1 futures (chunks) ... DONE 1569s [00:52:49.185] Reducing values from 1 chunks ... 1569s [00:52:49.185] - Number of values collected after concatenation: 3 1569s [00:52:49.185] - Number of values expected: 3 1569s [00:52:49.185] Reducing values from 1 chunks ... DONE 1569s [00:52:49.185] future_lapply() ... DONE 1569s List of 2 1569s $ y0: Named num [1:3] 1 2 3 1569s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1569s $ y1: Named num [1:3] 1 2 3 1569s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1569s [00:52:49.188] future_lapply() ... 1569s [00:52:49.190] Number of chunks: 1 1569s [00:52:49.190] getGlobalsAndPackagesXApply() ... 1569s [00:52:49.191] - future.globals: TRUE 1569s [00:52:49.191] getGlobalsAndPackages() ... 1569s [00:52:49.191] Searching for globals... 1569s [00:52:49.193] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1569s [00:52:49.193] Searching for globals ... DONE 1569s [00:52:49.193] Resolving globals: FALSE 1569s [00:52:49.194] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1569s [00:52:49.194] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1569s [00:52:49.195] - globals: [1] ‘FUN’ 1569s [00:52:49.195] 1569s [00:52:49.195] getGlobalsAndPackages() ... DONE 1569s [00:52:49.195] - globals found/used: [n=1] ‘FUN’ 1569s [00:52:49.195] - needed namespaces: [n=0] 1569s [00:52:49.195] Finding globals ... DONE 1569s [00:52:49.196] - use_args: TRUE 1569s [00:52:49.196] - Getting '...' globals ... 1569s [00:52:49.196] resolve() on list ... 1569s [00:52:49.196] recursive: 0 1569s [00:52:49.196] length: 1 1569s [00:52:49.197] elements: ‘...’ 1569s [00:52:49.197] length: 0 (resolved future 1) 1569s [00:52:49.197] resolve() on list ... DONE 1569s [00:52:49.197] - '...' content: [n=0] 1569s [00:52:49.198] List of 1 1569s [00:52:49.198] $ ...: list() 1569s [00:52:49.198] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.198] - attr(*, "where")=List of 1 1569s [00:52:49.198] ..$ ...: 1569s [00:52:49.198] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.198] - attr(*, "resolved")= logi TRUE 1569s [00:52:49.198] - attr(*, "total_size")= num NA 1569s [00:52:49.202] - Getting '...' globals ... DONE 1569s [00:52:49.202] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1569s [00:52:49.202] List of 2 1569s [00:52:49.202] $ ...future.FUN:function (x, y = 2 * 1:5) 1569s [00:52:49.202] $ ... : list() 1569s [00:52:49.202] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.202] - attr(*, "where")=List of 2 1569s [00:52:49.202] ..$ ...future.FUN: 1569s [00:52:49.202] ..$ ... : 1569s [00:52:49.202] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.202] - attr(*, "resolved")= logi FALSE 1569s [00:52:49.202] - attr(*, "total_size")= num 4728 1569s [00:52:49.206] Packages to be attached in all futures: [n=0] 1569s [00:52:49.206] getGlobalsAndPackagesXApply() ... DONE 1569s [00:52:49.206] Number of futures (= number of chunks): 1 1569s [00:52:49.206] Launching 1 futures (chunks) ... 1569s [00:52:49.206] Chunk #1 of 1 ... 1569s [00:52:49.207] - Finding globals in 'X' for chunk #1 ... 1569s [00:52:49.207] getGlobalsAndPackages() ... 1569s [00:52:49.207] Searching for globals... 1569s [00:52:49.207] 1569s [00:52:49.207] Searching for globals ... DONE 1569s [00:52:49.208] - globals: [0] 1569s [00:52:49.208] getGlobalsAndPackages() ... DONE 1569s [00:52:49.208] + additional globals found: [n=0] 1569s [00:52:49.208] + additional namespaces needed: [n=0] 1569s [00:52:49.208] - Finding globals in 'X' for chunk #1 ... DONE 1569s [00:52:49.208] - seeds: 1569s [00:52:49.208] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:49.209] getGlobalsAndPackages() ... 1569s [00:52:49.209] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:49.209] Resolving globals: FALSE 1569s [00:52:49.209] Tweak future expression to call with '...' arguments ... 1569s [00:52:49.210] { 1569s [00:52:49.210] do.call(function(...) { 1569s [00:52:49.210] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.210] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1569s [00:52:49.210] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.210] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.210] } 1569s [00:52:49.210] { 1569s [00:52:49.210] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1569s [00:52:49.210] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.210] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.210] }) 1569s [00:52:49.210] } 1569s [00:52:49.210] }, args = future.call.arguments) 1569s [00:52:49.210] } 1569s [00:52:49.210] Tweak future expression to call with '...' arguments ... DONE 1569s [00:52:49.211] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:49.211] 1569s [00:52:49.211] getGlobalsAndPackages() ... DONE 1569s [00:52:49.211] run() for ‘Future’ ... 1569s [00:52:49.212] - state: ‘created’ 1569s [00:52:49.212] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1569s [00:52:49.212] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1569s [00:52:49.212] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1569s [00:52:49.213] - Field: ‘label’ 1569s [00:52:49.213] - Field: ‘local’ 1569s [00:52:49.213] - Field: ‘owner’ 1569s [00:52:49.213] - Field: ‘envir’ 1569s [00:52:49.213] - Field: ‘packages’ 1569s [00:52:49.213] - Field: ‘gc’ 1569s [00:52:49.213] - Field: ‘conditions’ 1569s [00:52:49.214] - Field: ‘expr’ 1569s [00:52:49.214] - Field: ‘uuid’ 1569s [00:52:49.214] - Field: ‘seed’ 1569s [00:52:49.214] - Field: ‘version’ 1569s [00:52:49.214] - Field: ‘result’ 1569s [00:52:49.214] - Field: ‘asynchronous’ 1569s [00:52:49.214] - Field: ‘calls’ 1569s [00:52:49.216] - Field: ‘globals’ 1569s [00:52:49.216] - Field: ‘stdout’ 1569s [00:52:49.217] - Field: ‘earlySignal’ 1569s [00:52:49.217] - Field: ‘lazy’ 1569s [00:52:49.217] - Field: ‘state’ 1569s [00:52:49.217] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1569s [00:52:49.217] - Launch lazy future ... 1569s [00:52:49.218] Packages needed by the future expression (n = 0): 1569s [00:52:49.218] Packages needed by future strategies (n = 0): 1569s [00:52:49.218] { 1569s [00:52:49.218] { 1569s [00:52:49.218] { 1569s [00:52:49.218] ...future.startTime <- base::Sys.time() 1569s [00:52:49.218] { 1569s [00:52:49.218] { 1569s [00:52:49.218] { 1569s [00:52:49.218] base::local({ 1569s [00:52:49.218] has_future <- base::requireNamespace("future", 1569s [00:52:49.218] quietly = TRUE) 1569s [00:52:49.218] if (has_future) { 1569s [00:52:49.218] ns <- base::getNamespace("future") 1569s [00:52:49.218] version <- ns[[".package"]][["version"]] 1569s [00:52:49.218] if (is.null(version)) 1569s [00:52:49.218] version <- utils::packageVersion("future") 1569s [00:52:49.218] } 1569s [00:52:49.218] else { 1569s [00:52:49.218] version <- NULL 1569s [00:52:49.218] } 1569s [00:52:49.218] if (!has_future || version < "1.8.0") { 1569s [00:52:49.218] info <- base::c(r_version = base::gsub("R version ", 1569s [00:52:49.218] "", base::R.version$version.string), 1569s [00:52:49.218] platform = base::sprintf("%s (%s-bit)", 1569s [00:52:49.218] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1569s [00:52:49.218] os = base::paste(base::Sys.info()[base::c("sysname", 1569s [00:52:49.218] "release", "version")], collapse = " "), 1569s [00:52:49.218] hostname = base::Sys.info()[["nodename"]]) 1569s [00:52:49.218] info <- base::sprintf("%s: %s", base::names(info), 1569s [00:52:49.218] info) 1569s [00:52:49.218] info <- base::paste(info, collapse = "; ") 1569s [00:52:49.218] if (!has_future) { 1569s [00:52:49.218] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1569s [00:52:49.218] info) 1569s [00:52:49.218] } 1569s [00:52:49.218] else { 1569s [00:52:49.218] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1569s [00:52:49.218] info, version) 1569s [00:52:49.218] } 1569s [00:52:49.218] base::stop(msg) 1569s [00:52:49.218] } 1569s [00:52:49.218] }) 1569s [00:52:49.218] } 1569s [00:52:49.218] options(future.plan = NULL) 1569s [00:52:49.218] Sys.unsetenv("R_FUTURE_PLAN") 1569s [00:52:49.218] future::plan("default", .cleanup = FALSE, .init = FALSE) 1569s [00:52:49.218] } 1569s [00:52:49.218] ...future.workdir <- getwd() 1569s [00:52:49.218] } 1569s [00:52:49.218] ...future.oldOptions <- base::as.list(base::.Options) 1569s [00:52:49.218] ...future.oldEnvVars <- base::Sys.getenv() 1569s [00:52:49.218] } 1569s [00:52:49.218] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1569s [00:52:49.218] future.globals.maxSize = NULL, future.globals.method = NULL, 1569s [00:52:49.218] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1569s [00:52:49.218] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1569s [00:52:49.218] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1569s [00:52:49.218] future.stdout.windows.reencode = NULL, width = 80L) 1569s [00:52:49.218] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1569s [00:52:49.218] base::names(...future.oldOptions)) 1569s [00:52:49.218] } 1569s [00:52:49.218] if (FALSE) { 1569s [00:52:49.218] } 1569s [00:52:49.218] else { 1569s [00:52:49.218] if (TRUE) { 1569s [00:52:49.218] ...future.stdout <- base::rawConnection(base::raw(0L), 1569s [00:52:49.218] open = "w") 1569s [00:52:49.218] } 1569s [00:52:49.218] else { 1569s [00:52:49.218] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1569s [00:52:49.218] windows = "NUL", "/dev/null"), open = "w") 1569s [00:52:49.218] } 1569s [00:52:49.218] base::sink(...future.stdout, type = "output", split = FALSE) 1569s [00:52:49.218] base::on.exit(if (!base::is.null(...future.stdout)) { 1569s [00:52:49.218] base::sink(type = "output", split = FALSE) 1569s [00:52:49.218] base::close(...future.stdout) 1569s [00:52:49.218] }, add = TRUE) 1569s [00:52:49.218] } 1569s [00:52:49.218] ...future.frame <- base::sys.nframe() 1569s [00:52:49.218] ...future.conditions <- base::list() 1569s [00:52:49.218] ...future.rng <- base::globalenv()$.Random.seed 1569s [00:52:49.218] if (FALSE) { 1569s [00:52:49.218] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1569s [00:52:49.218] "...future.value", "...future.globalenv.names", ".Random.seed") 1569s [00:52:49.218] } 1569s [00:52:49.218] ...future.result <- base::tryCatch({ 1569s [00:52:49.218] base::withCallingHandlers({ 1569s [00:52:49.218] ...future.value <- base::withVisible(base::local({ 1569s [00:52:49.218] do.call(function(...) { 1569s [00:52:49.218] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.218] if (!identical(...future.globals.maxSize.org, 1569s [00:52:49.218] ...future.globals.maxSize)) { 1569s [00:52:49.218] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.218] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.218] } 1569s [00:52:49.218] { 1569s [00:52:49.218] lapply(seq_along(...future.elements_ii), 1569s [00:52:49.218] FUN = function(jj) { 1569s [00:52:49.218] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.218] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.218] }) 1569s [00:52:49.218] } 1569s [00:52:49.218] }, args = future.call.arguments) 1569s [00:52:49.218] })) 1569s [00:52:49.218] future::FutureResult(value = ...future.value$value, 1569s [00:52:49.218] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1569s [00:52:49.218] ...future.rng), globalenv = if (FALSE) 1569s [00:52:49.218] list(added = base::setdiff(base::names(base::.GlobalEnv), 1569s [00:52:49.218] ...future.globalenv.names)) 1569s [00:52:49.218] else NULL, started = ...future.startTime, version = "1.8") 1569s [00:52:49.218] }, condition = base::local({ 1569s [00:52:49.218] c <- base::c 1569s [00:52:49.218] inherits <- base::inherits 1569s [00:52:49.218] invokeRestart <- base::invokeRestart 1569s [00:52:49.218] length <- base::length 1569s [00:52:49.218] list <- base::list 1569s [00:52:49.218] seq.int <- base::seq.int 1569s [00:52:49.218] signalCondition <- base::signalCondition 1569s [00:52:49.218] sys.calls <- base::sys.calls 1569s [00:52:49.218] `[[` <- base::`[[` 1569s [00:52:49.218] `+` <- base::`+` 1569s [00:52:49.218] `<<-` <- base::`<<-` 1569s [00:52:49.218] sysCalls <- function(calls = sys.calls(), from = 1L) { 1569s [00:52:49.218] calls[seq.int(from = from + 12L, to = length(calls) - 1569s [00:52:49.218] 3L)] 1569s [00:52:49.218] } 1569s [00:52:49.218] function(cond) { 1569s [00:52:49.218] is_error <- inherits(cond, "error") 1569s [00:52:49.218] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1569s [00:52:49.218] NULL) 1569s [00:52:49.218] if (is_error) { 1569s [00:52:49.218] sessionInformation <- function() { 1569s [00:52:49.218] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1569s [00:52:49.218] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1569s [00:52:49.218] search = base::search(), system = base::Sys.info()) 1569s [00:52:49.218] } 1569s [00:52:49.218] ...future.conditions[[length(...future.conditions) + 1569s [00:52:49.218] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1569s [00:52:49.218] cond$call), session = sessionInformation(), 1569s [00:52:49.218] timestamp = base::Sys.time(), signaled = 0L) 1569s [00:52:49.218] signalCondition(cond) 1569s [00:52:49.218] } 1569s [00:52:49.218] else if (!ignore && TRUE && inherits(cond, c("condition", 1569s [00:52:49.218] "immediateCondition"))) { 1569s [00:52:49.218] signal <- TRUE && inherits(cond, "immediateCondition") 1569s [00:52:49.218] ...future.conditions[[length(...future.conditions) + 1569s [00:52:49.218] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1569s [00:52:49.218] if (TRUE && !signal) { 1569s [00:52:49.218] muffleCondition <- function (cond, pattern = "^muffle") 1569s [00:52:49.218] { 1569s [00:52:49.218] inherits <- base::inherits 1569s [00:52:49.218] invokeRestart <- base::invokeRestart 1569s [00:52:49.218] is.null <- base::is.null 1569s [00:52:49.218] muffled <- FALSE 1569s [00:52:49.218] if (inherits(cond, "message")) { 1569s [00:52:49.218] muffled <- grepl(pattern, "muffleMessage") 1569s [00:52:49.218] if (muffled) 1569s [00:52:49.218] invokeRestart("muffleMessage") 1569s [00:52:49.218] } 1569s [00:52:49.218] else if (inherits(cond, "warning")) { 1569s [00:52:49.218] muffled <- grepl(pattern, "muffleWarning") 1569s [00:52:49.218] if (muffled) 1569s [00:52:49.218] invokeRestart("muffleWarning") 1569s [00:52:49.218] } 1569s [00:52:49.218] else if (inherits(cond, "condition")) { 1569s [00:52:49.218] if (!is.null(pattern)) { 1569s [00:52:49.218] computeRestarts <- base::computeRestarts 1569s [00:52:49.218] grepl <- base::grepl 1569s [00:52:49.218] restarts <- computeRestarts(cond) 1569s [00:52:49.218] for (restart in restarts) { 1569s [00:52:49.218] name <- restart$name 1569s [00:52:49.218] if (is.null(name)) 1569s [00:52:49.218] next 1569s [00:52:49.218] if (!grepl(pattern, name)) 1569s [00:52:49.218] next 1569s [00:52:49.218] invokeRestart(restart) 1569s [00:52:49.218] muffled <- TRUE 1569s [00:52:49.218] break 1569s [00:52:49.218] } 1569s [00:52:49.218] } 1569s [00:52:49.218] } 1569s [00:52:49.218] invisible(muffled) 1569s [00:52:49.218] } 1569s [00:52:49.218] muffleCondition(cond, pattern = "^muffle") 1569s [00:52:49.218] } 1569s [00:52:49.218] } 1569s [00:52:49.218] else { 1569s [00:52:49.218] if (TRUE) { 1569s [00:52:49.218] muffleCondition <- function (cond, pattern = "^muffle") 1569s [00:52:49.218] { 1569s [00:52:49.218] inherits <- base::inherits 1569s [00:52:49.218] invokeRestart <- base::invokeRestart 1569s [00:52:49.218] is.null <- base::is.null 1569s [00:52:49.218] muffled <- FALSE 1569s [00:52:49.218] if (inherits(cond, "message")) { 1569s [00:52:49.218] muffled <- grepl(pattern, "muffleMessage") 1569s [00:52:49.218] if (muffled) 1569s [00:52:49.218] invokeRestart("muffleMessage") 1569s [00:52:49.218] } 1569s [00:52:49.218] else if (inherits(cond, "warning")) { 1569s [00:52:49.218] muffled <- grepl(pattern, "muffleWarning") 1569s [00:52:49.218] if (muffled) 1569s [00:52:49.218] invokeRestart("muffleWarning") 1569s [00:52:49.218] } 1569s [00:52:49.218] else if (inherits(cond, "condition")) { 1569s [00:52:49.218] if (!is.null(pattern)) { 1569s [00:52:49.218] computeRestarts <- base::computeRestarts 1569s [00:52:49.218] grepl <- base::grepl 1569s [00:52:49.218] restarts <- computeRestarts(cond) 1569s [00:52:49.218] for (restart in restarts) { 1569s [00:52:49.218] name <- restart$name 1569s [00:52:49.218] if (is.null(name)) 1569s [00:52:49.218] next 1569s [00:52:49.218] if (!grepl(pattern, name)) 1569s [00:52:49.218] next 1569s [00:52:49.218] invokeRestart(restart) 1569s [00:52:49.218] muffled <- TRUE 1569s [00:52:49.218] break 1569s [00:52:49.218] } 1569s [00:52:49.218] } 1569s [00:52:49.218] } 1569s [00:52:49.218] invisible(muffled) 1569s [00:52:49.218] } 1569s [00:52:49.218] muffleCondition(cond, pattern = "^muffle") 1569s [00:52:49.218] } 1569s [00:52:49.218] } 1569s [00:52:49.218] } 1569s [00:52:49.218] })) 1569s [00:52:49.218] }, error = function(ex) { 1569s [00:52:49.218] base::structure(base::list(value = NULL, visible = NULL, 1569s [00:52:49.218] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1569s [00:52:49.218] ...future.rng), started = ...future.startTime, 1569s [00:52:49.218] finished = Sys.time(), session_uuid = NA_character_, 1569s [00:52:49.218] version = "1.8"), class = "FutureResult") 1569s [00:52:49.218] }, finally = { 1569s [00:52:49.218] if (!identical(...future.workdir, getwd())) 1569s [00:52:49.218] setwd(...future.workdir) 1569s [00:52:49.218] { 1569s [00:52:49.218] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1569s [00:52:49.218] ...future.oldOptions$nwarnings <- NULL 1569s [00:52:49.218] } 1569s [00:52:49.218] base::options(...future.oldOptions) 1569s [00:52:49.218] if (.Platform$OS.type == "windows") { 1569s [00:52:49.218] old_names <- names(...future.oldEnvVars) 1569s [00:52:49.218] envs <- base::Sys.getenv() 1569s [00:52:49.218] names <- names(envs) 1569s [00:52:49.218] common <- intersect(names, old_names) 1569s [00:52:49.218] added <- setdiff(names, old_names) 1569s [00:52:49.218] removed <- setdiff(old_names, names) 1569s [00:52:49.218] changed <- common[...future.oldEnvVars[common] != 1569s [00:52:49.218] envs[common]] 1569s [00:52:49.218] NAMES <- toupper(changed) 1569s [00:52:49.218] args <- list() 1569s [00:52:49.218] for (kk in seq_along(NAMES)) { 1569s [00:52:49.218] name <- changed[[kk]] 1569s [00:52:49.218] NAME <- NAMES[[kk]] 1569s [00:52:49.218] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.218] next 1569s [00:52:49.218] args[[name]] <- ...future.oldEnvVars[[name]] 1569s [00:52:49.218] } 1569s [00:52:49.218] NAMES <- toupper(added) 1569s [00:52:49.218] for (kk in seq_along(NAMES)) { 1569s [00:52:49.218] name <- added[[kk]] 1569s [00:52:49.218] NAME <- NAMES[[kk]] 1569s [00:52:49.218] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.218] next 1569s [00:52:49.218] args[[name]] <- "" 1569s [00:52:49.218] } 1569s [00:52:49.218] NAMES <- toupper(removed) 1569s [00:52:49.218] for (kk in seq_along(NAMES)) { 1569s [00:52:49.218] name <- removed[[kk]] 1569s [00:52:49.218] NAME <- NAMES[[kk]] 1569s [00:52:49.218] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.218] next 1569s [00:52:49.218] args[[name]] <- ...future.oldEnvVars[[name]] 1569s [00:52:49.218] } 1569s [00:52:49.218] if (length(args) > 0) 1569s [00:52:49.218] base::do.call(base::Sys.setenv, args = args) 1569s [00:52:49.218] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1569s [00:52:49.218] } 1569s [00:52:49.218] else { 1569s [00:52:49.218] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1569s [00:52:49.218] } 1569s [00:52:49.218] { 1569s [00:52:49.218] if (base::length(...future.futureOptionsAdded) > 1569s [00:52:49.218] 0L) { 1569s [00:52:49.218] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1569s [00:52:49.218] base::names(opts) <- ...future.futureOptionsAdded 1569s [00:52:49.218] base::options(opts) 1569s [00:52:49.218] } 1569s [00:52:49.218] { 1569s [00:52:49.218] { 1569s [00:52:49.218] NULL 1569s [00:52:49.218] RNGkind("Mersenne-Twister") 1569s [00:52:49.218] base::rm(list = ".Random.seed", envir = base::globalenv(), 1569s [00:52:49.218] inherits = FALSE) 1569s [00:52:49.218] } 1569s [00:52:49.218] options(future.plan = NULL) 1569s [00:52:49.218] if (is.na(NA_character_)) 1569s [00:52:49.218] Sys.unsetenv("R_FUTURE_PLAN") 1569s [00:52:49.218] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1569s [00:52:49.218] future::plan(list(function (..., envir = parent.frame()) 1569s [00:52:49.218] { 1569s [00:52:49.218] future <- SequentialFuture(..., envir = envir) 1569s [00:52:49.218] if (!future$lazy) 1569s [00:52:49.218] future <- run(future) 1569s [00:52:49.218] invisible(future) 1569s [00:52:49.218] }), .cleanup = FALSE, .init = FALSE) 1569s [00:52:49.218] } 1569s [00:52:49.218] } 1569s [00:52:49.218] } 1569s [00:52:49.218] }) 1569s [00:52:49.218] if (TRUE) { 1569s [00:52:49.218] base::sink(type = "output", split = FALSE) 1569s [00:52:49.218] if (TRUE) { 1569s [00:52:49.218] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1569s [00:52:49.218] } 1569s [00:52:49.218] else { 1569s [00:52:49.218] ...future.result["stdout"] <- base::list(NULL) 1569s [00:52:49.218] } 1569s [00:52:49.218] base::close(...future.stdout) 1569s [00:52:49.218] ...future.stdout <- NULL 1569s [00:52:49.218] } 1569s [00:52:49.218] ...future.result$conditions <- ...future.conditions 1569s [00:52:49.218] ...future.result$finished <- base::Sys.time() 1569s [00:52:49.218] ...future.result 1569s [00:52:49.218] } 1569s [00:52:49.226] assign_globals() ... 1569s [00:52:49.226] List of 5 1569s [00:52:49.226] $ ...future.FUN :function (x, y = 2 * 1:5) 1569s [00:52:49.226] $ future.call.arguments : list() 1569s [00:52:49.226] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.226] $ ...future.elements_ii :List of 3 1569s [00:52:49.226] ..$ a: num 1 1569s [00:52:49.226] ..$ b: num 2 1569s [00:52:49.226] ..$ c: num 3 1569s [00:52:49.226] $ ...future.seeds_ii : NULL 1569s [00:52:49.226] $ ...future.globals.maxSize: NULL 1569s [00:52:49.226] - attr(*, "where")=List of 5 1569s [00:52:49.226] ..$ ...future.FUN : 1569s [00:52:49.226] ..$ future.call.arguments : 1569s [00:52:49.226] ..$ ...future.elements_ii : 1569s [00:52:49.226] ..$ ...future.seeds_ii : 1569s [00:52:49.226] ..$ ...future.globals.maxSize: 1569s [00:52:49.226] - attr(*, "resolved")= logi FALSE 1569s [00:52:49.226] - attr(*, "total_size")= num 4728 1569s [00:52:49.226] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.226] - attr(*, "already-done")= logi TRUE 1569s [00:52:49.233] - reassign environment for ‘...future.FUN’ 1569s [00:52:49.233] - copied ‘...future.FUN’ to environment 1569s [00:52:49.233] - copied ‘future.call.arguments’ to environment 1569s [00:52:49.234] - copied ‘...future.elements_ii’ to environment 1569s [00:52:49.234] - copied ‘...future.seeds_ii’ to environment 1569s [00:52:49.234] - copied ‘...future.globals.maxSize’ to environment 1569s [00:52:49.234] assign_globals() ... done 1569s [00:52:49.234] plan(): Setting new future strategy stack: 1569s [00:52:49.235] List of future strategies: 1569s [00:52:49.235] 1. sequential: 1569s [00:52:49.235] - args: function (..., envir = parent.frame()) 1569s [00:52:49.235] - tweaked: FALSE 1569s [00:52:49.235] - call: NULL 1569s [00:52:49.235] plan(): nbrOfWorkers() = 1 1569s [00:52:49.236] plan(): Setting new future strategy stack: 1569s [00:52:49.236] List of future strategies: 1569s [00:52:49.236] 1. sequential: 1569s [00:52:49.236] - args: function (..., envir = parent.frame()) 1569s [00:52:49.236] - tweaked: FALSE 1569s [00:52:49.236] - call: plan(strategy) 1569s [00:52:49.236] plan(): nbrOfWorkers() = 1 1569s [00:52:49.237] SequentialFuture started (and completed) 1569s [00:52:49.237] - Launch lazy future ... done 1569s [00:52:49.237] run() for ‘SequentialFuture’ ... done 1569s [00:52:49.237] Created future: 1569s [00:52:49.237] SequentialFuture: 1569s [00:52:49.237] Label: ‘future_sapply-1’ 1569s [00:52:49.237] Expression: 1569s [00:52:49.237] { 1569s [00:52:49.237] do.call(function(...) { 1569s [00:52:49.237] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.237] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1569s [00:52:49.237] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.237] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.237] } 1569s [00:52:49.237] { 1569s [00:52:49.237] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1569s [00:52:49.237] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.237] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.237] }) 1569s [00:52:49.237] } 1569s [00:52:49.237] }, args = future.call.arguments) 1569s [00:52:49.237] } 1569s [00:52:49.237] Lazy evaluation: FALSE 1569s [00:52:49.237] Asynchronous evaluation: FALSE 1569s [00:52:49.237] Local evaluation: TRUE 1569s [00:52:49.237] Environment: R_GlobalEnv 1569s [00:52:49.237] Capture standard output: TRUE 1569s [00:52:49.237] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1569s [00:52:49.237] Globals: 5 objects totaling 4.78 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1569s [00:52:49.237] Packages: 1569s [00:52:49.237] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1569s [00:52:49.237] Resolved: TRUE 1569s [00:52:49.237] Value: 1.01 KiB of class ‘list’ 1569s [00:52:49.237] Early signaling: FALSE 1569s [00:52:49.237] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1569s [00:52:49.237] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1569s [00:52:49.239] Chunk #1 of 1 ... DONE 1569s [00:52:49.239] Launching 1 futures (chunks) ... DONE 1569s [00:52:49.239] Resolving 1 futures (chunks) ... 1569s [00:52:49.239] resolve() on list ... 1569s [00:52:49.239] recursive: 0 1569s [00:52:49.239] length: 1 1569s [00:52:49.239] 1569s [00:52:49.240] resolved() for ‘SequentialFuture’ ... 1569s [00:52:49.240] - state: ‘finished’ 1569s [00:52:49.240] - run: TRUE 1569s [00:52:49.240] - result: ‘FutureResult’ 1569s [00:52:49.240] resolved() for ‘SequentialFuture’ ... done 1569s [00:52:49.240] Future #1 1569s [00:52:49.241] signalConditionsASAP(SequentialFuture, pos=1) ... 1569s [00:52:49.241] - nx: 1 1569s [00:52:49.241] - relay: TRUE 1569s [00:52:49.241] - stdout: TRUE 1569s [00:52:49.241] - signal: TRUE 1569s [00:52:49.241] - resignal: FALSE 1569s [00:52:49.241] - force: TRUE 1569s [00:52:49.242] - relayed: [n=1] FALSE 1569s [00:52:49.242] - queued futures: [n=1] FALSE 1569s [00:52:49.242] - until=1 1569s [00:52:49.242] - relaying element #1 1569s [00:52:49.242] - relayed: [n=1] TRUE 1569s [00:52:49.242] - queued futures: [n=1] TRUE 1569s [00:52:49.243] signalConditionsASAP(SequentialFuture, pos=1) ... done 1569s [00:52:49.243] length: 0 (resolved future 1) 1569s [00:52:49.243] Relaying remaining futures 1569s [00:52:49.243] signalConditionsASAP(NULL, pos=0) ... 1569s [00:52:49.243] - nx: 1 1569s [00:52:49.243] - relay: TRUE 1569s [00:52:49.243] - stdout: TRUE 1569s [00:52:49.244] - signal: TRUE 1569s [00:52:49.244] - resignal: FALSE 1569s [00:52:49.244] - force: TRUE 1569s [00:52:49.244] - relayed: [n=1] TRUE 1569s [00:52:49.244] - queued futures: [n=1] TRUE 1569s - flush all 1569s [00:52:49.244] - relayed: [n=1] TRUE 1569s [00:52:49.245] - queued futures: [n=1] TRUE 1569s [00:52:49.245] signalConditionsASAP(NULL, pos=0) ... done 1569s [00:52:49.245] resolve() on list ... DONE 1569s [00:52:49.245] - Number of value chunks collected: 1 1569s [00:52:49.245] Resolving 1 futures (chunks) ... DONE 1569s [00:52:49.245] Reducing values from 1 chunks ... 1569s [00:52:49.245] - Number of values collected after concatenation: 3 1569s [00:52:49.245] - Number of values expected: 3 1569s [00:52:49.245] Reducing values from 1 chunks ... DONE 1569s [00:52:49.246] future_lapply() ... DONE 1569s List of 2 1569s $ y0: num [1:3, 1:5, 1:3] 2 2 2 4 4 4 6 6 6 8 ... 1569s ..- attr(*, "dimnames")=List of 3 1569s .. ..$ : NULL 1569s .. ..$ : NULL 1569s .. ..$ : chr [1:3] "a" "b" "c" 1569s $ y1: num [1:3, 1:5, 1:3] 2 2 2 4 4 4 6 6 6 8 ... 1569s ..- attr(*, "dimnames")=List of 3 1569s .. ..$ : NULL 1569s .. ..$ : NULL 1569s .. ..$ : chr [1:3] "a" "b" "c" 1569s [00:52:49.249] future_lapply() ... 1569s [00:52:49.250] Number of chunks: 1 1569s [00:52:49.250] getGlobalsAndPackagesXApply() ... 1569s [00:52:49.251] - future.globals: TRUE 1569s [00:52:49.251] getGlobalsAndPackages() ... 1569s [00:52:49.251] Searching for globals... 1569s [00:52:49.252] - globals found: [1] ‘FUN’ 1569s [00:52:49.252] Searching for globals ... DONE 1569s [00:52:49.252] Resolving globals: FALSE 1569s [00:52:49.253] The total size of the 1 globals is 848 bytes (848 bytes) 1569s [00:52:49.253] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1569s [00:52:49.253] - globals: [1] ‘FUN’ 1569s [00:52:49.253] 1569s [00:52:49.253] getGlobalsAndPackages() ... DONE 1569s [00:52:49.254] - globals found/used: [n=1] ‘FUN’ 1569s [00:52:49.254] - needed namespaces: [n=0] 1569s [00:52:49.254] Finding globals ... DONE 1569s [00:52:49.254] - use_args: TRUE 1569s [00:52:49.254] - Getting '...' globals ... 1569s [00:52:49.255] resolve() on list ... 1569s [00:52:49.255] recursive: 0 1569s [00:52:49.255] length: 1 1569s [00:52:49.255] elements: ‘...’ 1569s [00:52:49.255] length: 0 (resolved future 1) 1569s [00:52:49.255] resolve() on list ... DONE 1569s [00:52:49.256] - '...' content: [n=0] 1569s [00:52:49.257] List of 1 1569s [00:52:49.257] $ ...: list() 1569s [00:52:49.257] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.257] - attr(*, "where")=List of 1 1569s [00:52:49.257] ..$ ...: 1569s [00:52:49.257] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.257] - attr(*, "resolved")= logi TRUE 1569s [00:52:49.257] - attr(*, "total_size")= num NA 1569s [00:52:49.261] - Getting '...' globals ... DONE 1569s [00:52:49.261] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1569s [00:52:49.261] List of 2 1569s [00:52:49.261] $ ...future.FUN:function (x) 1569s [00:52:49.261] $ ... : list() 1569s [00:52:49.261] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.261] - attr(*, "where")=List of 2 1569s [00:52:49.261] ..$ ...future.FUN: 1569s [00:52:49.261] ..$ ... : 1569s [00:52:49.261] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.261] - attr(*, "resolved")= logi FALSE 1569s [00:52:49.261] - attr(*, "total_size")= num 848 1569s [00:52:49.266] Packages to be attached in all futures: [n=0] 1569s [00:52:49.266] getGlobalsAndPackagesXApply() ... DONE 1569s [00:52:49.266] Number of futures (= number of chunks): 1 1569s [00:52:49.266] Launching 1 futures (chunks) ... 1569s [00:52:49.266] Chunk #1 of 1 ... 1569s [00:52:49.267] - Finding globals in 'X' for chunk #1 ... 1569s [00:52:49.267] getGlobalsAndPackages() ... 1569s [00:52:49.267] Searching for globals... 1569s [00:52:49.267] 1569s [00:52:49.268] Searching for globals ... DONE 1569s [00:52:49.268] - globals: [0] 1569s [00:52:49.268] getGlobalsAndPackages() ... DONE 1569s [00:52:49.268] + additional globals found: [n=0] 1569s [00:52:49.268] + additional namespaces needed: [n=0] 1569s [00:52:49.268] - Finding globals in 'X' for chunk #1 ... DONE 1569s [00:52:49.268] - seeds: 1569s [00:52:49.268] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:49.269] getGlobalsAndPackages() ... 1569s [00:52:49.269] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:49.269] Resolving globals: FALSE 1569s [00:52:49.269] Tweak future expression to call with '...' arguments ... 1569s [00:52:49.269] { 1569s [00:52:49.269] do.call(function(...) { 1569s [00:52:49.269] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.269] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1569s [00:52:49.269] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.269] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.269] } 1569s [00:52:49.269] { 1569s [00:52:49.269] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1569s [00:52:49.269] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.269] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.269] }) 1569s [00:52:49.269] } 1569s [00:52:49.269] }, args = future.call.arguments) 1569s [00:52:49.269] } 1569s [00:52:49.270] Tweak future expression to call with '...' arguments ... DONE 1569s [00:52:49.270] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:49.270] 1569s [00:52:49.271] getGlobalsAndPackages() ... DONE 1569s [00:52:49.271] run() for ‘Future’ ... 1569s [00:52:49.271] - state: ‘created’ 1569s [00:52:49.271] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1569s [00:52:49.272] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1569s [00:52:49.272] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1569s [00:52:49.272] - Field: ‘label’ 1569s [00:52:49.272] - Field: ‘local’ 1569s [00:52:49.273] - Field: ‘owner’ 1569s [00:52:49.273] - Field: ‘envir’ 1569s [00:52:49.273] - Field: ‘packages’ 1569s [00:52:49.273] - Field: ‘gc’ 1569s [00:52:49.273] - Field: ‘conditions’ 1569s [00:52:49.273] - Field: ‘expr’ 1569s [00:52:49.274] - Field: ‘uuid’ 1569s [00:52:49.274] - Field: ‘seed’ 1569s [00:52:49.274] - Field: ‘version’ 1569s [00:52:49.274] - Field: ‘result’ 1569s [00:52:49.274] - Field: ‘asynchronous’ 1569s [00:52:49.274] - Field: ‘calls’ 1569s [00:52:49.274] - Field: ‘globals’ 1569s [00:52:49.275] - Field: ‘stdout’ 1569s [00:52:49.275] - Field: ‘earlySignal’ 1569s [00:52:49.275] - Field: ‘lazy’ 1569s [00:52:49.275] - Field: ‘state’ 1569s [00:52:49.275] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1569s [00:52:49.275] - Launch lazy future ... 1569s [00:52:49.276] Packages needed by the future expression (n = 0): 1569s [00:52:49.276] Packages needed by future strategies (n = 0): 1569s [00:52:49.276] { 1569s [00:52:49.276] { 1569s [00:52:49.276] { 1569s [00:52:49.276] ...future.startTime <- base::Sys.time() 1569s [00:52:49.276] { 1569s [00:52:49.276] { 1569s [00:52:49.276] { 1569s [00:52:49.276] base::local({ 1569s [00:52:49.276] has_future <- base::requireNamespace("future", 1569s [00:52:49.276] quietly = TRUE) 1569s [00:52:49.276] if (has_future) { 1569s [00:52:49.276] ns <- base::getNamespace("future") 1569s [00:52:49.276] version <- ns[[".package"]][["version"]] 1569s [00:52:49.276] if (is.null(version)) 1569s [00:52:49.276] version <- utils::packageVersion("future") 1569s [00:52:49.276] } 1569s [00:52:49.276] else { 1569s [00:52:49.276] version <- NULL 1569s [00:52:49.276] } 1569s [00:52:49.276] if (!has_future || version < "1.8.0") { 1569s [00:52:49.276] info <- base::c(r_version = base::gsub("R version ", 1569s [00:52:49.276] "", base::R.version$version.string), 1569s [00:52:49.276] platform = base::sprintf("%s (%s-bit)", 1569s [00:52:49.276] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1569s [00:52:49.276] os = base::paste(base::Sys.info()[base::c("sysname", 1569s [00:52:49.276] "release", "version")], collapse = " "), 1569s [00:52:49.276] hostname = base::Sys.info()[["nodename"]]) 1569s [00:52:49.276] info <- base::sprintf("%s: %s", base::names(info), 1569s [00:52:49.276] info) 1569s [00:52:49.276] info <- base::paste(info, collapse = "; ") 1569s [00:52:49.276] if (!has_future) { 1569s [00:52:49.276] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1569s [00:52:49.276] info) 1569s [00:52:49.276] } 1569s [00:52:49.276] else { 1569s [00:52:49.276] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1569s [00:52:49.276] info, version) 1569s [00:52:49.276] } 1569s [00:52:49.276] base::stop(msg) 1569s [00:52:49.276] } 1569s [00:52:49.276] }) 1569s [00:52:49.276] } 1569s [00:52:49.276] options(future.plan = NULL) 1569s [00:52:49.276] Sys.unsetenv("R_FUTURE_PLAN") 1569s [00:52:49.276] future::plan("default", .cleanup = FALSE, .init = FALSE) 1569s [00:52:49.276] } 1569s [00:52:49.276] ...future.workdir <- getwd() 1569s [00:52:49.276] } 1569s [00:52:49.276] ...future.oldOptions <- base::as.list(base::.Options) 1569s [00:52:49.276] ...future.oldEnvVars <- base::Sys.getenv() 1569s [00:52:49.276] } 1569s [00:52:49.276] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1569s [00:52:49.276] future.globals.maxSize = NULL, future.globals.method = NULL, 1569s [00:52:49.276] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1569s [00:52:49.276] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1569s [00:52:49.276] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1569s [00:52:49.276] future.stdout.windows.reencode = NULL, width = 80L) 1569s [00:52:49.276] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1569s [00:52:49.276] base::names(...future.oldOptions)) 1569s [00:52:49.276] } 1569s [00:52:49.276] if (FALSE) { 1569s [00:52:49.276] } 1569s [00:52:49.276] else { 1569s [00:52:49.276] if (TRUE) { 1569s [00:52:49.276] ...future.stdout <- base::rawConnection(base::raw(0L), 1569s [00:52:49.276] open = "w") 1569s [00:52:49.276] } 1569s [00:52:49.276] else { 1569s [00:52:49.276] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1569s [00:52:49.276] windows = "NUL", "/dev/null"), open = "w") 1569s [00:52:49.276] } 1569s [00:52:49.276] base::sink(...future.stdout, type = "output", split = FALSE) 1569s [00:52:49.276] base::on.exit(if (!base::is.null(...future.stdout)) { 1569s [00:52:49.276] base::sink(type = "output", split = FALSE) 1569s [00:52:49.276] base::close(...future.stdout) 1569s [00:52:49.276] }, add = TRUE) 1569s [00:52:49.276] } 1569s [00:52:49.276] ...future.frame <- base::sys.nframe() 1569s [00:52:49.276] ...future.conditions <- base::list() 1569s [00:52:49.276] ...future.rng <- base::globalenv()$.Random.seed 1569s [00:52:49.276] if (FALSE) { 1569s [00:52:49.276] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1569s [00:52:49.276] "...future.value", "...future.globalenv.names", ".Random.seed") 1569s [00:52:49.276] } 1569s [00:52:49.276] ...future.result <- base::tryCatch({ 1569s [00:52:49.276] base::withCallingHandlers({ 1569s [00:52:49.276] ...future.value <- base::withVisible(base::local({ 1569s [00:52:49.276] do.call(function(...) { 1569s [00:52:49.276] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.276] if (!identical(...future.globals.maxSize.org, 1569s [00:52:49.276] ...future.globals.maxSize)) { 1569s [00:52:49.276] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.276] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.276] } 1569s [00:52:49.276] { 1569s [00:52:49.276] lapply(seq_along(...future.elements_ii), 1569s [00:52:49.276] FUN = function(jj) { 1569s [00:52:49.276] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.276] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.276] }) 1569s [00:52:49.276] } 1569s [00:52:49.276] }, args = future.call.arguments) 1569s [00:52:49.276] })) 1569s [00:52:49.276] future::FutureResult(value = ...future.value$value, 1569s [00:52:49.276] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1569s [00:52:49.276] ...future.rng), globalenv = if (FALSE) 1569s [00:52:49.276] list(added = base::setdiff(base::names(base::.GlobalEnv), 1569s [00:52:49.276] ...future.globalenv.names)) 1569s [00:52:49.276] else NULL, started = ...future.startTime, version = "1.8") 1569s [00:52:49.276] }, condition = base::local({ 1569s [00:52:49.276] c <- base::c 1569s [00:52:49.276] inherits <- base::inherits 1569s [00:52:49.276] invokeRestart <- base::invokeRestart 1569s [00:52:49.276] length <- base::length 1569s [00:52:49.276] list <- base::list 1569s [00:52:49.276] seq.int <- base::seq.int 1569s [00:52:49.276] signalCondition <- base::signalCondition 1569s [00:52:49.276] sys.calls <- base::sys.calls 1569s [00:52:49.276] `[[` <- base::`[[` 1569s [00:52:49.276] `+` <- base::`+` 1569s [00:52:49.276] `<<-` <- base::`<<-` 1569s [00:52:49.276] sysCalls <- function(calls = sys.calls(), from = 1L) { 1569s [00:52:49.276] calls[seq.int(from = from + 12L, to = length(calls) - 1569s [00:52:49.276] 3L)] 1569s [00:52:49.276] } 1569s [00:52:49.276] function(cond) { 1569s [00:52:49.276] is_error <- inherits(cond, "error") 1569s [00:52:49.276] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1569s [00:52:49.276] NULL) 1569s [00:52:49.276] if (is_error) { 1569s [00:52:49.276] sessionInformation <- function() { 1569s [00:52:49.276] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1569s [00:52:49.276] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1569s [00:52:49.276] search = base::search(), system = base::Sys.info()) 1569s [00:52:49.276] } 1569s [00:52:49.276] ...future.conditions[[length(...future.conditions) + 1569s [00:52:49.276] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1569s [00:52:49.276] cond$call), session = sessionInformation(), 1569s [00:52:49.276] timestamp = base::Sys.time(), signaled = 0L) 1569s [00:52:49.276] signalCondition(cond) 1569s [00:52:49.276] } 1569s [00:52:49.276] else if (!ignore && TRUE && inherits(cond, c("condition", 1569s [00:52:49.276] "immediateCondition"))) { 1569s [00:52:49.276] signal <- TRUE && inherits(cond, "immediateCondition") 1569s [00:52:49.276] ...future.conditions[[length(...future.conditions) + 1569s [00:52:49.276] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1569s [00:52:49.276] if (TRUE && !signal) { 1569s [00:52:49.276] muffleCondition <- function (cond, pattern = "^muffle") 1569s [00:52:49.276] { 1569s [00:52:49.276] inherits <- base::inherits 1569s [00:52:49.276] invokeRestart <- base::invokeRestart 1569s [00:52:49.276] is.null <- base::is.null 1569s [00:52:49.276] muffled <- FALSE 1569s [00:52:49.276] if (inherits(cond, "message")) { 1569s [00:52:49.276] muffled <- grepl(pattern, "muffleMessage") 1569s [00:52:49.276] if (muffled) 1569s [00:52:49.276] invokeRestart("muffleMessage") 1569s [00:52:49.276] } 1569s [00:52:49.276] else if (inherits(cond, "warning")) { 1569s [00:52:49.276] muffled <- grepl(pattern, "muffleWarning") 1569s [00:52:49.276] if (muffled) 1569s [00:52:49.276] invokeRestart("muffleWarning") 1569s [00:52:49.276] } 1569s [00:52:49.276] else if (inherits(cond, "condition")) { 1569s [00:52:49.276] if (!is.null(pattern)) { 1569s [00:52:49.276] computeRestarts <- base::computeRestarts 1569s [00:52:49.276] grepl <- base::grepl 1569s [00:52:49.276] restarts <- computeRestarts(cond) 1569s [00:52:49.276] for (restart in restarts) { 1569s [00:52:49.276] name <- restart$name 1569s [00:52:49.276] if (is.null(name)) 1569s [00:52:49.276] next 1569s [00:52:49.276] if (!grepl(pattern, name)) 1569s [00:52:49.276] next 1569s [00:52:49.276] invokeRestart(restart) 1569s [00:52:49.276] muffled <- TRUE 1569s [00:52:49.276] break 1569s [00:52:49.276] } 1569s [00:52:49.276] } 1569s [00:52:49.276] } 1569s [00:52:49.276] invisible(muffled) 1569s [00:52:49.276] } 1569s [00:52:49.276] muffleCondition(cond, pattern = "^muffle") 1569s [00:52:49.276] } 1569s [00:52:49.276] } 1569s [00:52:49.276] else { 1569s [00:52:49.276] if (TRUE) { 1569s [00:52:49.276] muffleCondition <- function (cond, pattern = "^muffle") 1569s [00:52:49.276] { 1569s [00:52:49.276] inherits <- base::inherits 1569s [00:52:49.276] invokeRestart <- base::invokeRestart 1569s [00:52:49.276] is.null <- base::is.null 1569s [00:52:49.276] muffled <- FALSE 1569s [00:52:49.276] if (inherits(cond, "message")) { 1569s [00:52:49.276] muffled <- grepl(pattern, "muffleMessage") 1569s [00:52:49.276] if (muffled) 1569s [00:52:49.276] invokeRestart("muffleMessage") 1569s [00:52:49.276] } 1569s [00:52:49.276] else if (inherits(cond, "warning")) { 1569s [00:52:49.276] muffled <- grepl(pattern, "muffleWarning") 1569s [00:52:49.276] if (muffled) 1569s [00:52:49.276] invokeRestart("muffleWarning") 1569s [00:52:49.276] } 1569s [00:52:49.276] else if (inherits(cond, "condition")) { 1569s [00:52:49.276] if (!is.null(pattern)) { 1569s [00:52:49.276] computeRestarts <- base::computeRestarts 1569s [00:52:49.276] grepl <- base::grepl 1569s [00:52:49.276] restarts <- computeRestarts(cond) 1569s [00:52:49.276] for (restart in restarts) { 1569s [00:52:49.276] name <- restart$name 1569s [00:52:49.276] if (is.null(name)) 1569s [00:52:49.276] next 1569s [00:52:49.276] if (!grepl(pattern, name)) 1569s [00:52:49.276] next 1569s [00:52:49.276] invokeRestart(restart) 1569s [00:52:49.276] muffled <- TRUE 1569s [00:52:49.276] break 1569s [00:52:49.276] } 1569s [00:52:49.276] } 1569s [00:52:49.276] } 1569s [00:52:49.276] invisible(muffled) 1569s [00:52:49.276] } 1569s [00:52:49.276] muffleCondition(cond, pattern = "^muffle") 1569s [00:52:49.276] } 1569s [00:52:49.276] } 1569s [00:52:49.276] } 1569s [00:52:49.276] })) 1569s [00:52:49.276] }, error = function(ex) { 1569s [00:52:49.276] base::structure(base::list(value = NULL, visible = NULL, 1569s [00:52:49.276] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1569s [00:52:49.276] ...future.rng), started = ...future.startTime, 1569s [00:52:49.276] finished = Sys.time(), session_uuid = NA_character_, 1569s [00:52:49.276] version = "1.8"), class = "FutureResult") 1569s [00:52:49.276] }, finally = { 1569s [00:52:49.276] if (!identical(...future.workdir, getwd())) 1569s [00:52:49.276] setwd(...future.workdir) 1569s [00:52:49.276] { 1569s [00:52:49.276] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1569s [00:52:49.276] ...future.oldOptions$nwarnings <- NULL 1569s [00:52:49.276] } 1569s [00:52:49.276] base::options(...future.oldOptions) 1569s [00:52:49.276] if (.Platform$OS.type == "windows") { 1569s [00:52:49.276] old_names <- names(...future.oldEnvVars) 1569s [00:52:49.276] envs <- base::Sys.getenv() 1569s [00:52:49.276] names <- names(envs) 1569s [00:52:49.276] common <- intersect(names, old_names) 1569s [00:52:49.276] added <- setdiff(names, old_names) 1569s [00:52:49.276] removed <- setdiff(old_names, names) 1569s [00:52:49.276] changed <- common[...future.oldEnvVars[common] != 1569s [00:52:49.276] envs[common]] 1569s [00:52:49.276] NAMES <- toupper(changed) 1569s [00:52:49.276] args <- list() 1569s [00:52:49.276] for (kk in seq_along(NAMES)) { 1569s [00:52:49.276] name <- changed[[kk]] 1569s [00:52:49.276] NAME <- NAMES[[kk]] 1569s [00:52:49.276] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.276] next 1569s [00:52:49.276] args[[name]] <- ...future.oldEnvVars[[name]] 1569s [00:52:49.276] } 1569s [00:52:49.276] NAMES <- toupper(added) 1569s [00:52:49.276] for (kk in seq_along(NAMES)) { 1569s [00:52:49.276] name <- added[[kk]] 1569s [00:52:49.276] NAME <- NAMES[[kk]] 1569s [00:52:49.276] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.276] next 1569s [00:52:49.276] args[[name]] <- "" 1569s [00:52:49.276] } 1569s [00:52:49.276] NAMES <- toupper(removed) 1569s [00:52:49.276] for (kk in seq_along(NAMES)) { 1569s [00:52:49.276] name <- removed[[kk]] 1569s [00:52:49.276] NAME <- NAMES[[kk]] 1569s [00:52:49.276] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.276] next 1569s [00:52:49.276] args[[name]] <- ...future.oldEnvVars[[name]] 1569s [00:52:49.276] } 1569s [00:52:49.276] if (length(args) > 0) 1569s [00:52:49.276] base::do.call(base::Sys.setenv, args = args) 1569s [00:52:49.276] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1569s [00:52:49.276] } 1569s [00:52:49.276] else { 1569s [00:52:49.276] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1569s [00:52:49.276] } 1569s [00:52:49.276] { 1569s [00:52:49.276] if (base::length(...future.futureOptionsAdded) > 1569s [00:52:49.276] 0L) { 1569s [00:52:49.276] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1569s [00:52:49.276] base::names(opts) <- ...future.futureOptionsAdded 1569s [00:52:49.276] base::options(opts) 1569s [00:52:49.276] } 1569s [00:52:49.276] { 1569s [00:52:49.276] { 1569s [00:52:49.276] NULL 1569s [00:52:49.276] RNGkind("Mersenne-Twister") 1569s [00:52:49.276] base::rm(list = ".Random.seed", envir = base::globalenv(), 1569s [00:52:49.276] inherits = FALSE) 1569s [00:52:49.276] } 1569s [00:52:49.276] options(future.plan = NULL) 1569s [00:52:49.276] if (is.na(NA_character_)) 1569s [00:52:49.276] Sys.unsetenv("R_FUTURE_PLAN") 1569s [00:52:49.276] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1569s [00:52:49.276] future::plan(list(function (..., envir = parent.frame()) 1569s [00:52:49.276] { 1569s [00:52:49.276] future <- SequentialFuture(..., envir = envir) 1569s [00:52:49.276] if (!future$lazy) 1569s [00:52:49.276] future <- run(future) 1569s [00:52:49.276] invisible(future) 1569s [00:52:49.276] }), .cleanup = FALSE, .init = FALSE) 1569s [00:52:49.276] } 1569s [00:52:49.276] } 1569s [00:52:49.276] } 1569s [00:52:49.276] }) 1569s [00:52:49.276] if (TRUE) { 1569s [00:52:49.276] base::sink(type = "output", split = FALSE) 1569s [00:52:49.276] if (TRUE) { 1569s [00:52:49.276] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1569s [00:52:49.276] } 1569s [00:52:49.276] else { 1569s [00:52:49.276] ...future.result["stdout"] <- base::list(NULL) 1569s [00:52:49.276] } 1569s [00:52:49.276] base::close(...future.stdout) 1569s [00:52:49.276] ...future.stdout <- NULL 1569s [00:52:49.276] } 1569s [00:52:49.276] ...future.result$conditions <- ...future.conditions 1569s [00:52:49.276] ...future.result$finished <- base::Sys.time() 1569s [00:52:49.276] ...future.result 1569s [00:52:49.276] } 1569s [00:52:49.280] assign_globals() ... 1569s [00:52:49.280] List of 5 1569s [00:52:49.280] $ ...future.FUN :function (x) 1569s [00:52:49.280] $ future.call.arguments : list() 1569s [00:52:49.280] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.280] $ ...future.elements_ii :List of 6 1569s [00:52:49.280] ..$ a1: int 1 1569s [00:52:49.280] ..$ a2: int 2 1569s [00:52:49.280] ..$ b1: int 2 1569s [00:52:49.280] ..$ b2: int 3 1569s [00:52:49.280] ..$ c1: int 3 1569s [00:52:49.280] ..$ c2: int 4 1569s [00:52:49.280] $ ...future.seeds_ii : NULL 1569s [00:52:49.280] $ ...future.globals.maxSize: NULL 1569s [00:52:49.280] - attr(*, "where")=List of 5 1569s [00:52:49.280] ..$ ...future.FUN : 1569s [00:52:49.280] ..$ future.call.arguments : 1569s [00:52:49.280] ..$ ...future.elements_ii : 1569s [00:52:49.280] ..$ ...future.seeds_ii : 1569s [00:52:49.280] ..$ ...future.globals.maxSize: 1569s [00:52:49.280] - attr(*, "resolved")= logi FALSE 1569s [00:52:49.280] - attr(*, "total_size")= num 848 1569s [00:52:49.280] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.280] - attr(*, "already-done")= logi TRUE 1569s [00:52:49.288] - copied ‘...future.FUN’ to environment 1569s [00:52:49.288] - copied ‘future.call.arguments’ to environment 1569s [00:52:49.288] - copied ‘...future.elements_ii’ to environment 1569s [00:52:49.288] - copied ‘...future.seeds_ii’ to environment 1569s [00:52:49.288] - copied ‘...future.globals.maxSize’ to environment 1569s [00:52:49.288] assign_globals() ... done 1569s [00:52:49.288] plan(): Setting new future strategy stack: 1569s [00:52:49.289] List of future strategies: 1569s [00:52:49.289] 1. sequential: 1569s [00:52:49.289] - args: function (..., envir = parent.frame()) 1569s [00:52:49.289] - tweaked: FALSE 1569s [00:52:49.289] - call: NULL 1569s [00:52:49.289] plan(): nbrOfWorkers() = 1 1569s [00:52:49.290] plan(): Setting new future strategy stack: 1569s [00:52:49.290] List of future strategies: 1569s [00:52:49.290] 1. sequential: 1569s [00:52:49.290] - args: function (..., envir = parent.frame()) 1569s [00:52:49.290] - tweaked: FALSE 1569s [00:52:49.290] - call: plan(strategy) 1569s [00:52:49.290] plan(): nbrOfWorkers() = 1 1569s [00:52:49.291] SequentialFuture started (and completed) 1569s [00:52:49.291] - Launch lazy future ... done 1569s [00:52:49.291] run() for ‘SequentialFuture’ ... done 1569s [00:52:49.291] Created future: 1569s [00:52:49.291] SequentialFuture: 1569s [00:52:49.291] Label: ‘future_sapply-1’ 1569s [00:52:49.291] Expression: 1569s [00:52:49.291] { 1569s [00:52:49.291] do.call(function(...) { 1569s [00:52:49.291] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.291] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1569s [00:52:49.291] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.291] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.291] } 1569s [00:52:49.291] { 1569s [00:52:49.291] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1569s [00:52:49.291] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.291] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.291] }) 1569s [00:52:49.291] } 1569s [00:52:49.291] }, args = future.call.arguments) 1569s [00:52:49.291] } 1569s [00:52:49.291] Lazy evaluation: FALSE 1569s [00:52:49.291] Asynchronous evaluation: FALSE 1569s [00:52:49.291] Local evaluation: TRUE 1569s [00:52:49.291] Environment: R_GlobalEnv 1569s [00:52:49.291] Capture standard output: TRUE 1569s [00:52:49.291] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1569s [00:52:49.291] Globals: 5 objects totaling 1.16 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1569s [00:52:49.291] Packages: 1569s [00:52:49.291] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1569s [00:52:49.291] Resolved: TRUE 1569s [00:52:49.291] Value: 336 bytes of class ‘list’ 1569s [00:52:49.291] Early signaling: FALSE 1569s [00:52:49.291] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1569s [00:52:49.291] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1569s [00:52:49.294] Chunk #1 of 1 ... DONE 1569s [00:52:49.294] Launching 1 futures (chunks) ... DONE 1569s [00:52:49.295] Resolving 1 futures (chunks) ... 1569s [00:52:49.295] resolve() on list ... 1569s [00:52:49.295] recursive: 0 1569s [00:52:49.295] length: 1 1569s [00:52:49.296] 1569s [00:52:49.296] resolved() for ‘SequentialFuture’ ... 1569s [00:52:49.296] - state: ‘finished’ 1569s [00:52:49.297] - run: TRUE 1569s [00:52:49.297] - result: ‘FutureResult’ 1569s [00:52:49.297] resolved() for ‘SequentialFuture’ ... done 1569s [00:52:49.297] Future #1 1569s [00:52:49.298] signalConditionsASAP(SequentialFuture, pos=1) ... 1569s [00:52:49.298] - nx: 1 1569s [00:52:49.298] - relay: TRUE 1569s [00:52:49.298] - stdout: TRUE 1569s [00:52:49.298] - signal: TRUE 1569s [00:52:49.298] - resignal: FALSE 1569s [00:52:49.299] - force: TRUE 1569s [00:52:49.299] - relayed: [n=1] FALSE 1569s [00:52:49.299] - queued futures: [n=1] FALSE 1569s [00:52:49.299] - until=1 1569s [00:52:49.299] - relaying element #1 1569s [00:52:49.300] - relayed: [n=1] TRUE 1569s [00:52:49.300] - queued futures: [n=1] TRUE 1569s [00:52:49.300] signalConditionsASAP(SequentialFuture, pos=1) ... done 1569s [00:52:49.300] length: 0 (resolved future 1) 1569s [00:52:49.301] Relaying remaining futures 1569s [00:52:49.301] signalConditionsASAP(NULL, pos=0) ... 1569s [00:52:49.301] - nx: 1 1569s [00:52:49.301] - relay: TRUE 1569s [00:52:49.301] - stdout: TRUE 1569s [00:52:49.301] - signal: TRUE 1569s [00:52:49.301] - resignal: FALSE 1569s [00:52:49.302] - force: TRUE 1569s [00:52:49.302] - relayed: [n=1] TRUE 1569s [00:52:49.302] - queued futures: [n=1] TRUE 1569s - flush all 1569s [00:52:49.302] - relayed: [n=1] TRUE 1569s [00:52:49.303] - queued futures: [n=1] TRUE 1569s [00:52:49.303] signalConditionsASAP(NULL, pos=0) ... done 1569s [00:52:49.303] resolve() on list ... DONE 1569s [00:52:49.303] - Number of value chunks collected: 1 1569s [00:52:49.303] Resolving 1 futures (chunks) ... DONE 1569s [00:52:49.303] Reducing values from 1 chunks ... 1569s [00:52:49.304] - Number of values collected after concatenation: 6 1569s [00:52:49.304] - Number of values expected: 6 1569s [00:52:49.304] Reducing values from 1 chunks ... DONE 1569s [00:52:49.304] future_lapply() ... DONE 1569s List of 2 1569s $ y0:List of 6 1569s ..$ a1: int 1 1569s ..$ a2: int 2 1569s ..$ b1: int 2 1569s ..$ b2: int 3 1569s ..$ c1: int 3 1569s ..$ c2: int 4 1569s $ y1:List of 6 1569s ..$ a1: int 1 1569s ..$ a2: int 2 1569s ..$ b1: int 2 1569s ..$ b2: int 3 1569s ..$ c1: int 3 1569s ..$ c2: int 4 1569s List of 2 1569s $ y0:List of 6 1569s ..$ a1: int 1 1569s ..$ a2: int 2 1569s ..$ b1: int 2 1569s ..$ b2: int 3 1569s ..$ c1: int 3 1569s ..$ c2: int 4 1569s $ y2:List of 6 1569s ..$ a1: int 1 1569s ..$ a2: int 2 1569s ..$ b1: int 2 1569s ..$ b2: int 3 1569s ..$ c1: int 3 1569s ..$ c2: int 4 1569s [00:52:49.321] future_lapply() ... 1569s [00:52:49.322] Number of chunks: 1 1569s [00:52:49.322] getGlobalsAndPackagesXApply() ... 1569s [00:52:49.322] - future.globals: TRUE 1569s [00:52:49.322] getGlobalsAndPackages() ... 1569s [00:52:49.322] Searching for globals... 1569s [00:52:49.323] - globals found: [2] ‘FUN’, ‘UseMethod’ 1569s [00:52:49.324] Searching for globals ... DONE 1569s [00:52:49.324] Resolving globals: FALSE 1569s [00:52:49.324] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1569s [00:52:49.325] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1569s [00:52:49.325] - globals: [1] ‘FUN’ 1569s [00:52:49.325] 1569s [00:52:49.325] getGlobalsAndPackages() ... DONE 1569s [00:52:49.325] - globals found/used: [n=1] ‘FUN’ 1569s [00:52:49.325] - needed namespaces: [n=0] 1569s [00:52:49.326] Finding globals ... DONE 1569s [00:52:49.326] - use_args: TRUE 1569s [00:52:49.326] - Getting '...' globals ... 1569s [00:52:49.326] resolve() on list ... 1569s [00:52:49.326] recursive: 0 1569s [00:52:49.327] length: 1 1569s [00:52:49.327] elements: ‘...’ 1569s [00:52:49.327] length: 0 (resolved future 1) 1569s [00:52:49.327] resolve() on list ... DONE 1569s [00:52:49.327] - '...' content: [n=0] 1569s [00:52:49.327] List of 1 1569s [00:52:49.327] $ ...: list() 1569s [00:52:49.327] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.327] - attr(*, "where")=List of 1 1569s [00:52:49.327] ..$ ...: 1569s [00:52:49.327] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.327] - attr(*, "resolved")= logi TRUE 1569s [00:52:49.327] - attr(*, "total_size")= num NA 1569s [00:52:49.331] - Getting '...' globals ... DONE 1569s [00:52:49.331] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1569s [00:52:49.331] List of 2 1569s [00:52:49.331] $ ...future.FUN:function (x, ...) 1569s [00:52:49.331] $ ... : list() 1569s [00:52:49.331] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.331] - attr(*, "where")=List of 2 1569s [00:52:49.331] ..$ ...future.FUN: 1569s [00:52:49.331] ..$ ... : 1569s [00:52:49.331] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.331] - attr(*, "resolved")= logi FALSE 1569s [00:52:49.331] - attr(*, "total_size")= num 1248 1569s [00:52:49.336] Packages to be attached in all futures: [n=0] 1569s [00:52:49.336] getGlobalsAndPackagesXApply() ... DONE 1569s [00:52:49.337] Number of futures (= number of chunks): 1 1569s [00:52:49.337] Launching 1 futures (chunks) ... 1569s [00:52:49.337] Chunk #1 of 1 ... 1569s [00:52:49.337] - Finding globals in 'X' for chunk #1 ... 1569s [00:52:49.337] getGlobalsAndPackages() ... 1569s [00:52:49.337] Searching for globals... 1569s [00:52:49.338] 1569s [00:52:49.338] Searching for globals ... DONE 1569s [00:52:49.338] - globals: [0] 1569s [00:52:49.338] getGlobalsAndPackages() ... DONE 1569s [00:52:49.338] + additional globals found: [n=0] 1569s [00:52:49.338] + additional namespaces needed: [n=0] 1569s [00:52:49.339] - Finding globals in 'X' for chunk #1 ... DONE 1569s [00:52:49.339] - seeds: 1569s [00:52:49.339] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:49.339] getGlobalsAndPackages() ... 1569s [00:52:49.339] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:49.339] Resolving globals: FALSE 1569s [00:52:49.340] Tweak future expression to call with '...' arguments ... 1569s [00:52:49.340] { 1569s [00:52:49.340] do.call(function(...) { 1569s [00:52:49.340] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.340] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1569s [00:52:49.340] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.340] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.340] } 1569s [00:52:49.340] { 1569s [00:52:49.340] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1569s [00:52:49.340] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.340] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.340] }) 1569s [00:52:49.340] } 1569s [00:52:49.340] }, args = future.call.arguments) 1569s [00:52:49.340] } 1569s [00:52:49.340] Tweak future expression to call with '...' arguments ... DONE 1569s [00:52:49.341] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:49.341] 1569s [00:52:49.341] getGlobalsAndPackages() ... DONE 1569s [00:52:49.341] run() for ‘Future’ ... 1569s [00:52:49.342] - state: ‘created’ 1569s [00:52:49.342] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1569s [00:52:49.342] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1569s [00:52:49.342] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1569s [00:52:49.343] - Field: ‘label’ 1569s [00:52:49.343] - Field: ‘local’ 1569s [00:52:49.343] - Field: ‘owner’ 1569s [00:52:49.343] - Field: ‘envir’ 1569s [00:52:49.343] - Field: ‘packages’ 1569s [00:52:49.343] - Field: ‘gc’ 1569s [00:52:49.344] - Field: ‘conditions’ 1569s [00:52:49.344] - Field: ‘expr’ 1569s [00:52:49.344] - Field: ‘uuid’ 1569s [00:52:49.344] - Field: ‘seed’ 1569s [00:52:49.344] - Field: ‘version’ 1569s [00:52:49.344] - Field: ‘result’ 1569s [00:52:49.344] - Field: ‘asynchronous’ 1569s [00:52:49.345] - Field: ‘calls’ 1569s [00:52:49.345] - Field: ‘globals’ 1569s [00:52:49.345] - Field: ‘stdout’ 1569s [00:52:49.345] - Field: ‘earlySignal’ 1569s [00:52:49.345] - Field: ‘lazy’ 1569s [00:52:49.345] - Field: ‘state’ 1569s [00:52:49.345] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1569s [00:52:49.346] - Launch lazy future ... 1569s [00:52:49.346] Packages needed by the future expression (n = 0): 1569s [00:52:49.346] Packages needed by future strategies (n = 0): 1569s [00:52:49.347] { 1569s [00:52:49.347] { 1569s [00:52:49.347] { 1569s [00:52:49.347] ...future.startTime <- base::Sys.time() 1569s [00:52:49.347] { 1569s [00:52:49.347] { 1569s [00:52:49.347] { 1569s [00:52:49.347] base::local({ 1569s [00:52:49.347] has_future <- base::requireNamespace("future", 1569s [00:52:49.347] quietly = TRUE) 1569s [00:52:49.347] if (has_future) { 1569s [00:52:49.347] ns <- base::getNamespace("future") 1569s [00:52:49.347] version <- ns[[".package"]][["version"]] 1569s [00:52:49.347] if (is.null(version)) 1569s [00:52:49.347] version <- utils::packageVersion("future") 1569s [00:52:49.347] } 1569s [00:52:49.347] else { 1569s [00:52:49.347] version <- NULL 1569s [00:52:49.347] } 1569s [00:52:49.347] if (!has_future || version < "1.8.0") { 1569s [00:52:49.347] info <- base::c(r_version = base::gsub("R version ", 1569s [00:52:49.347] "", base::R.version$version.string), 1569s [00:52:49.347] platform = base::sprintf("%s (%s-bit)", 1569s [00:52:49.347] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1569s [00:52:49.347] os = base::paste(base::Sys.info()[base::c("sysname", 1569s [00:52:49.347] "release", "version")], collapse = " "), 1569s [00:52:49.347] hostname = base::Sys.info()[["nodename"]]) 1569s [00:52:49.347] info <- base::sprintf("%s: %s", base::names(info), 1569s [00:52:49.347] info) 1569s [00:52:49.347] info <- base::paste(info, collapse = "; ") 1569s [00:52:49.347] if (!has_future) { 1569s [00:52:49.347] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1569s [00:52:49.347] info) 1569s [00:52:49.347] } 1569s [00:52:49.347] else { 1569s [00:52:49.347] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1569s [00:52:49.347] info, version) 1569s [00:52:49.347] } 1569s [00:52:49.347] base::stop(msg) 1569s [00:52:49.347] } 1569s [00:52:49.347] }) 1569s [00:52:49.347] } 1569s [00:52:49.347] options(future.plan = NULL) 1569s [00:52:49.347] Sys.unsetenv("R_FUTURE_PLAN") 1569s [00:52:49.347] future::plan("default", .cleanup = FALSE, .init = FALSE) 1569s [00:52:49.347] } 1569s [00:52:49.347] ...future.workdir <- getwd() 1569s [00:52:49.347] } 1569s [00:52:49.347] ...future.oldOptions <- base::as.list(base::.Options) 1569s [00:52:49.347] ...future.oldEnvVars <- base::Sys.getenv() 1569s [00:52:49.347] } 1569s [00:52:49.347] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1569s [00:52:49.347] future.globals.maxSize = NULL, future.globals.method = NULL, 1569s [00:52:49.347] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1569s [00:52:49.347] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1569s [00:52:49.347] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1569s [00:52:49.347] future.stdout.windows.reencode = NULL, width = 80L) 1569s [00:52:49.347] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1569s [00:52:49.347] base::names(...future.oldOptions)) 1569s [00:52:49.347] } 1569s [00:52:49.347] if (FALSE) { 1569s [00:52:49.347] } 1569s [00:52:49.347] else { 1569s [00:52:49.347] if (TRUE) { 1569s [00:52:49.347] ...future.stdout <- base::rawConnection(base::raw(0L), 1569s [00:52:49.347] open = "w") 1569s [00:52:49.347] } 1569s [00:52:49.347] else { 1569s [00:52:49.347] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1569s [00:52:49.347] windows = "NUL", "/dev/null"), open = "w") 1569s [00:52:49.347] } 1569s [00:52:49.347] base::sink(...future.stdout, type = "output", split = FALSE) 1569s [00:52:49.347] base::on.exit(if (!base::is.null(...future.stdout)) { 1569s [00:52:49.347] base::sink(type = "output", split = FALSE) 1569s [00:52:49.347] base::close(...future.stdout) 1569s [00:52:49.347] }, add = TRUE) 1569s [00:52:49.347] } 1569s [00:52:49.347] ...future.frame <- base::sys.nframe() 1569s [00:52:49.347] ...future.conditions <- base::list() 1569s [00:52:49.347] ...future.rng <- base::globalenv()$.Random.seed 1569s [00:52:49.347] if (FALSE) { 1569s [00:52:49.347] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1569s [00:52:49.347] "...future.value", "...future.globalenv.names", ".Random.seed") 1569s [00:52:49.347] } 1569s [00:52:49.347] ...future.result <- base::tryCatch({ 1569s [00:52:49.347] base::withCallingHandlers({ 1569s [00:52:49.347] ...future.value <- base::withVisible(base::local({ 1569s [00:52:49.347] do.call(function(...) { 1569s [00:52:49.347] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.347] if (!identical(...future.globals.maxSize.org, 1569s [00:52:49.347] ...future.globals.maxSize)) { 1569s [00:52:49.347] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.347] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.347] } 1569s [00:52:49.347] { 1569s [00:52:49.347] lapply(seq_along(...future.elements_ii), 1569s [00:52:49.347] FUN = function(jj) { 1569s [00:52:49.347] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.347] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.347] }) 1569s [00:52:49.347] } 1569s [00:52:49.347] }, args = future.call.arguments) 1569s [00:52:49.347] })) 1569s [00:52:49.347] future::FutureResult(value = ...future.value$value, 1569s [00:52:49.347] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1569s [00:52:49.347] ...future.rng), globalenv = if (FALSE) 1569s [00:52:49.347] list(added = base::setdiff(base::names(base::.GlobalEnv), 1569s [00:52:49.347] ...future.globalenv.names)) 1569s [00:52:49.347] else NULL, started = ...future.startTime, version = "1.8") 1569s [00:52:49.347] }, condition = base::local({ 1569s [00:52:49.347] c <- base::c 1569s [00:52:49.347] inherits <- base::inherits 1569s [00:52:49.347] invokeRestart <- base::invokeRestart 1569s [00:52:49.347] length <- base::length 1569s [00:52:49.347] list <- base::list 1569s [00:52:49.347] seq.int <- base::seq.int 1569s [00:52:49.347] signalCondition <- base::signalCondition 1569s [00:52:49.347] sys.calls <- base::sys.calls 1569s [00:52:49.347] `[[` <- base::`[[` 1569s [00:52:49.347] `+` <- base::`+` 1569s [00:52:49.347] `<<-` <- base::`<<-` 1569s [00:52:49.347] sysCalls <- function(calls = sys.calls(), from = 1L) { 1569s [00:52:49.347] calls[seq.int(from = from + 12L, to = length(calls) - 1569s [00:52:49.347] 3L)] 1569s [00:52:49.347] } 1569s [00:52:49.347] function(cond) { 1569s [00:52:49.347] is_error <- inherits(cond, "error") 1569s [00:52:49.347] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1569s [00:52:49.347] NULL) 1569s [00:52:49.347] if (is_error) { 1569s [00:52:49.347] sessionInformation <- function() { 1569s [00:52:49.347] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1569s [00:52:49.347] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1569s [00:52:49.347] search = base::search(), system = base::Sys.info()) 1569s [00:52:49.347] } 1569s [00:52:49.347] ...future.conditions[[length(...future.conditions) + 1569s [00:52:49.347] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1569s [00:52:49.347] cond$call), session = sessionInformation(), 1569s [00:52:49.347] timestamp = base::Sys.time(), signaled = 0L) 1569s [00:52:49.347] signalCondition(cond) 1569s [00:52:49.347] } 1569s [00:52:49.347] else if (!ignore && TRUE && inherits(cond, c("condition", 1569s [00:52:49.347] "immediateCondition"))) { 1569s [00:52:49.347] signal <- TRUE && inherits(cond, "immediateCondition") 1569s [00:52:49.347] ...future.conditions[[length(...future.conditions) + 1569s [00:52:49.347] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1569s [00:52:49.347] if (TRUE && !signal) { 1569s [00:52:49.347] muffleCondition <- function (cond, pattern = "^muffle") 1569s [00:52:49.347] { 1569s [00:52:49.347] inherits <- base::inherits 1569s [00:52:49.347] invokeRestart <- base::invokeRestart 1569s [00:52:49.347] is.null <- base::is.null 1569s [00:52:49.347] muffled <- FALSE 1569s [00:52:49.347] if (inherits(cond, "message")) { 1569s [00:52:49.347] muffled <- grepl(pattern, "muffleMessage") 1569s [00:52:49.347] if (muffled) 1569s [00:52:49.347] invokeRestart("muffleMessage") 1569s [00:52:49.347] } 1569s [00:52:49.347] else if (inherits(cond, "warning")) { 1569s [00:52:49.347] muffled <- grepl(pattern, "muffleWarning") 1569s [00:52:49.347] if (muffled) 1569s [00:52:49.347] invokeRestart("muffleWarning") 1569s [00:52:49.347] } 1569s [00:52:49.347] else if (inherits(cond, "condition")) { 1569s [00:52:49.347] if (!is.null(pattern)) { 1569s [00:52:49.347] computeRestarts <- base::computeRestarts 1569s [00:52:49.347] grepl <- base::grepl 1569s [00:52:49.347] restarts <- computeRestarts(cond) 1569s [00:52:49.347] for (restart in restarts) { 1569s [00:52:49.347] name <- restart$name 1569s [00:52:49.347] if (is.null(name)) 1569s [00:52:49.347] next 1569s [00:52:49.347] if (!grepl(pattern, name)) 1569s [00:52:49.347] next 1569s [00:52:49.347] invokeRestart(restart) 1569s [00:52:49.347] muffled <- TRUE 1569s [00:52:49.347] break 1569s [00:52:49.347] } 1569s [00:52:49.347] } 1569s [00:52:49.347] } 1569s [00:52:49.347] invisible(muffled) 1569s [00:52:49.347] } 1569s [00:52:49.347] muffleCondition(cond, pattern = "^muffle") 1569s [00:52:49.347] } 1569s [00:52:49.347] } 1569s [00:52:49.347] else { 1569s [00:52:49.347] if (TRUE) { 1569s [00:52:49.347] muffleCondition <- function (cond, pattern = "^muffle") 1569s [00:52:49.347] { 1569s [00:52:49.347] inherits <- base::inherits 1569s [00:52:49.347] invokeRestart <- base::invokeRestart 1569s [00:52:49.347] is.null <- base::is.null 1569s [00:52:49.347] muffled <- FALSE 1569s [00:52:49.347] if (inherits(cond, "message")) { 1569s [00:52:49.347] muffled <- grepl(pattern, "muffleMessage") 1569s [00:52:49.347] if (muffled) 1569s [00:52:49.347] invokeRestart("muffleMessage") 1569s [00:52:49.347] } 1569s [00:52:49.347] else if (inherits(cond, "warning")) { 1569s [00:52:49.347] muffled <- grepl(pattern, "muffleWarning") 1569s [00:52:49.347] if (muffled) 1569s [00:52:49.347] invokeRestart("muffleWarning") 1569s [00:52:49.347] } 1569s [00:52:49.347] else if (inherits(cond, "condition")) { 1569s [00:52:49.347] if (!is.null(pattern)) { 1569s [00:52:49.347] computeRestarts <- base::computeRestarts 1569s [00:52:49.347] grepl <- base::grepl 1569s [00:52:49.347] restarts <- computeRestarts(cond) 1569s [00:52:49.347] for (restart in restarts) { 1569s [00:52:49.347] name <- restart$name 1569s [00:52:49.347] if (is.null(name)) 1569s [00:52:49.347] next 1569s [00:52:49.347] if (!grepl(pattern, name)) 1569s [00:52:49.347] next 1569s [00:52:49.347] invokeRestart(restart) 1569s [00:52:49.347] muffled <- TRUE 1569s [00:52:49.347] break 1569s [00:52:49.347] } 1569s [00:52:49.347] } 1569s [00:52:49.347] } 1569s [00:52:49.347] invisible(muffled) 1569s [00:52:49.347] } 1569s [00:52:49.347] muffleCondition(cond, pattern = "^muffle") 1569s [00:52:49.347] } 1569s [00:52:49.347] } 1569s [00:52:49.347] } 1569s [00:52:49.347] })) 1569s [00:52:49.347] }, error = function(ex) { 1569s [00:52:49.347] base::structure(base::list(value = NULL, visible = NULL, 1569s [00:52:49.347] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1569s [00:52:49.347] ...future.rng), started = ...future.startTime, 1569s [00:52:49.347] finished = Sys.time(), session_uuid = NA_character_, 1569s [00:52:49.347] version = "1.8"), class = "FutureResult") 1569s [00:52:49.347] }, finally = { 1569s [00:52:49.347] if (!identical(...future.workdir, getwd())) 1569s [00:52:49.347] setwd(...future.workdir) 1569s [00:52:49.347] { 1569s [00:52:49.347] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1569s [00:52:49.347] ...future.oldOptions$nwarnings <- NULL 1569s [00:52:49.347] } 1569s [00:52:49.347] base::options(...future.oldOptions) 1569s [00:52:49.347] if (.Platform$OS.type == "windows") { 1569s [00:52:49.347] old_names <- names(...future.oldEnvVars) 1569s [00:52:49.347] envs <- base::Sys.getenv() 1569s [00:52:49.347] names <- names(envs) 1569s [00:52:49.347] common <- intersect(names, old_names) 1569s [00:52:49.347] added <- setdiff(names, old_names) 1569s [00:52:49.347] removed <- setdiff(old_names, names) 1569s [00:52:49.347] changed <- common[...future.oldEnvVars[common] != 1569s [00:52:49.347] envs[common]] 1569s [00:52:49.347] NAMES <- toupper(changed) 1569s [00:52:49.347] args <- list() 1569s [00:52:49.347] for (kk in seq_along(NAMES)) { 1569s [00:52:49.347] name <- changed[[kk]] 1569s [00:52:49.347] NAME <- NAMES[[kk]] 1569s [00:52:49.347] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.347] next 1569s [00:52:49.347] args[[name]] <- ...future.oldEnvVars[[name]] 1569s [00:52:49.347] } 1569s [00:52:49.347] NAMES <- toupper(added) 1569s [00:52:49.347] for (kk in seq_along(NAMES)) { 1569s [00:52:49.347] name <- added[[kk]] 1569s [00:52:49.347] NAME <- NAMES[[kk]] 1569s [00:52:49.347] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.347] next 1569s [00:52:49.347] args[[name]] <- "" 1569s [00:52:49.347] } 1569s [00:52:49.347] NAMES <- toupper(removed) 1569s [00:52:49.347] for (kk in seq_along(NAMES)) { 1569s [00:52:49.347] name <- removed[[kk]] 1569s [00:52:49.347] NAME <- NAMES[[kk]] 1569s [00:52:49.347] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.347] next 1569s [00:52:49.347] args[[name]] <- ...future.oldEnvVars[[name]] 1569s [00:52:49.347] } 1569s [00:52:49.347] if (length(args) > 0) 1569s [00:52:49.347] base::do.call(base::Sys.setenv, args = args) 1569s [00:52:49.347] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1569s [00:52:49.347] } 1569s [00:52:49.347] else { 1569s [00:52:49.347] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1569s [00:52:49.347] } 1569s [00:52:49.347] { 1569s [00:52:49.347] if (base::length(...future.futureOptionsAdded) > 1569s [00:52:49.347] 0L) { 1569s [00:52:49.347] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1569s [00:52:49.347] base::names(opts) <- ...future.futureOptionsAdded 1569s [00:52:49.347] base::options(opts) 1569s [00:52:49.347] } 1569s [00:52:49.347] { 1569s [00:52:49.347] { 1569s [00:52:49.347] NULL 1569s [00:52:49.347] RNGkind("Mersenne-Twister") 1569s [00:52:49.347] base::rm(list = ".Random.seed", envir = base::globalenv(), 1569s [00:52:49.347] inherits = FALSE) 1569s [00:52:49.347] } 1569s [00:52:49.347] options(future.plan = NULL) 1569s [00:52:49.347] if (is.na(NA_character_)) 1569s [00:52:49.347] Sys.unsetenv("R_FUTURE_PLAN") 1569s [00:52:49.347] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1569s [00:52:49.347] future::plan(list(function (..., envir = parent.frame()) 1569s [00:52:49.347] { 1569s [00:52:49.347] future <- SequentialFuture(..., envir = envir) 1569s [00:52:49.347] if (!future$lazy) 1569s [00:52:49.347] future <- run(future) 1569s [00:52:49.347] invisible(future) 1569s [00:52:49.347] }), .cleanup = FALSE, .init = FALSE) 1569s [00:52:49.347] } 1569s [00:52:49.347] } 1569s [00:52:49.347] } 1569s [00:52:49.347] }) 1569s [00:52:49.347] if (TRUE) { 1569s [00:52:49.347] base::sink(type = "output", split = FALSE) 1569s [00:52:49.347] if (TRUE) { 1569s [00:52:49.347] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1569s [00:52:49.347] } 1569s [00:52:49.347] else { 1569s [00:52:49.347] ...future.result["stdout"] <- base::list(NULL) 1569s [00:52:49.347] } 1569s [00:52:49.347] base::close(...future.stdout) 1569s [00:52:49.347] ...future.stdout <- NULL 1569s [00:52:49.347] } 1569s [00:52:49.347] ...future.result$conditions <- ...future.conditions 1569s [00:52:49.347] ...future.result$finished <- base::Sys.time() 1569s [00:52:49.347] ...future.result 1569s [00:52:49.347] } 1569s [00:52:49.349] assign_globals() ... 1569s [00:52:49.349] List of 5 1569s [00:52:49.349] $ ...future.FUN :function (x, ...) 1569s [00:52:49.349] $ future.call.arguments : list() 1569s [00:52:49.349] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.349] $ ...future.elements_ii :List of 6 1569s [00:52:49.349] ..$ a1: int 1 1569s [00:52:49.349] ..$ a2: int 2 1569s [00:52:49.349] ..$ b1: int 2 1569s [00:52:49.349] ..$ b2: int 3 1569s [00:52:49.349] ..$ c1: int 3 1569s [00:52:49.349] ..$ c2: int 4 1569s [00:52:49.349] $ ...future.seeds_ii : NULL 1569s [00:52:49.349] $ ...future.globals.maxSize: NULL 1569s [00:52:49.349] - attr(*, "where")=List of 5 1569s [00:52:49.349] ..$ ...future.FUN : 1569s [00:52:49.349] ..$ future.call.arguments : 1569s [00:52:49.349] ..$ ...future.elements_ii : 1569s [00:52:49.349] ..$ ...future.seeds_ii : 1569s [00:52:49.349] ..$ ...future.globals.maxSize: 1569s [00:52:49.349] - attr(*, "resolved")= logi FALSE 1569s [00:52:49.349] - attr(*, "total_size")= num 1248 1569s [00:52:49.349] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.349] - attr(*, "already-done")= logi TRUE 1569s [00:52:49.356] - copied ‘...future.FUN’ to environment 1569s [00:52:49.356] - copied ‘future.call.arguments’ to environment 1569s [00:52:49.357] - copied ‘...future.elements_ii’ to environment 1569s [00:52:49.357] - copied ‘...future.seeds_ii’ to environment 1569s [00:52:49.357] - copied ‘...future.globals.maxSize’ to environment 1569s [00:52:49.357] assign_globals() ... done 1569s [00:52:49.357] plan(): Setting new future strategy stack: 1569s [00:52:49.357] List of future strategies: 1569s [00:52:49.357] 1. sequential: 1569s [00:52:49.357] - args: function (..., envir = parent.frame()) 1569s [00:52:49.357] - tweaked: FALSE 1569s [00:52:49.357] - call: NULL 1569s [00:52:49.358] plan(): nbrOfWorkers() = 1 1569s [00:52:49.358] plan(): Setting new future strategy stack: 1569s [00:52:49.358] List of future strategies: 1569s [00:52:49.358] 1. sequential: 1569s [00:52:49.358] - args: function (..., envir = parent.frame()) 1569s [00:52:49.358] - tweaked: FALSE 1569s [00:52:49.358] - call: plan(strategy) 1569s [00:52:49.359] plan(): nbrOfWorkers() = 1 1569s [00:52:49.359] SequentialFuture started (and completed) 1569s [00:52:49.359] - Launch lazy future ... done 1569s [00:52:49.359] run() for ‘SequentialFuture’ ... done 1569s [00:52:49.359] Created future: 1569s [00:52:49.359] SequentialFuture: 1569s [00:52:49.359] Label: ‘future_sapply-1’ 1569s [00:52:49.359] Expression: 1569s [00:52:49.359] { 1569s [00:52:49.359] do.call(function(...) { 1569s [00:52:49.359] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.359] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1569s [00:52:49.359] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.359] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.359] } 1569s [00:52:49.359] { 1569s [00:52:49.359] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1569s [00:52:49.359] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.359] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.359] }) 1569s [00:52:49.359] } 1569s [00:52:49.359] }, args = future.call.arguments) 1569s [00:52:49.359] } 1569s [00:52:49.359] Lazy evaluation: FALSE 1569s [00:52:49.359] Asynchronous evaluation: FALSE 1569s [00:52:49.359] Local evaluation: TRUE 1569s [00:52:49.359] Environment: R_GlobalEnv 1569s [00:52:49.359] Capture standard output: TRUE 1569s [00:52:49.359] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1569s [00:52:49.359] Globals: 5 objects totaling 1.55 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1569s [00:52:49.359] Packages: 1569s [00:52:49.359] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1569s [00:52:49.359] Resolved: TRUE 1569s [00:52:49.359] Value: 1.31 KiB of class ‘list’ 1569s [00:52:49.359] Early signaling: FALSE 1569s [00:52:49.359] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1569s [00:52:49.359] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1569s [00:52:49.362] Chunk #1 of 1 ... DONE 1569s [00:52:49.362] Launching 1 futures (chunks) ... DONE 1569s [00:52:49.362] Resolving 1 futures (chunks) ... 1569s [00:52:49.362] resolve() on list ... 1569s [00:52:49.362] recursive: 0 1569s [00:52:49.362] length: 1 1569s [00:52:49.363] 1569s [00:52:49.363] resolved() for ‘SequentialFuture’ ... 1569s [00:52:49.363] - state: ‘finished’ 1569s [00:52:49.363] - run: TRUE 1569s [00:52:49.364] - result: ‘FutureResult’ 1569s [00:52:49.364] resolved() for ‘SequentialFuture’ ... done 1569s [00:52:49.364] Future #1 1569s [00:52:49.364] signalConditionsASAP(SequentialFuture, pos=1) ... 1569s [00:52:49.364] - nx: 1 1569s [00:52:49.364] - relay: TRUE 1569s [00:52:49.364] - stdout: TRUE 1569s [00:52:49.365] - signal: TRUE 1569s [00:52:49.365] - resignal: FALSE 1569s [00:52:49.365] - force: TRUE 1569s [00:52:49.365] - relayed: [n=1] FALSE 1569s [00:52:49.365] - queued futures: [n=1] FALSE 1569s [00:52:49.365] - until=1 1569s [00:52:49.365] - relaying element #1 1569s [00:52:49.366] - relayed: [n=1] TRUE 1569s [00:52:49.366] - queued futures: [n=1] TRUE 1569s [00:52:49.366] signalConditionsASAP(SequentialFuture, pos=1) ... done 1569s [00:52:49.366] length: 0 (resolved future 1) 1569s [00:52:49.366] Relaying remaining futures 1569s [00:52:49.366] signalConditionsASAP(NULL, pos=0) ... 1569s [00:52:49.367] - nx: 1 1569s [00:52:49.367] - relay: TRUE 1569s [00:52:49.367] - stdout: TRUE 1569s [00:52:49.367] - signal: TRUE 1569s [00:52:49.368] - resignal: FALSE 1569s [00:52:49.369] - force: TRUE 1569s [00:52:49.369] - relayed: [n=1] TRUE 1569s [00:52:49.369] - queued futures: [n=1] TRUE 1569s - flush all 1569s [00:52:49.370] - relayed: [n=1] TRUE 1569s List of 2 1569s $ y0:List of 6 1569s ..$ a1: int [1, 1] 1 1569s ..$ a2:[00:52:49.370] - queued futures: [n=1] TRUE 1569s [00:52:49.370] signalConditionsASAP(NULL, pos=0) ... done 1569s [00:52:49.370] resolve() on list ... DONE 1569s [00:52:49.371] - Number of value chunks collected: 1 1569s [00:52:49.371] Resolving 1 futures (chunks) ... DONE 1569s [00:52:49.371] Reducing values from 1 chunks ... 1569s [00:52:49.371] - Number of values collected after concatenation: 6 1569s [00:52:49.371] - Number of values expected: 6 1569s [00:52:49.372] Reducing values from 1 chunks ... DONE 1569s [00:52:49.372] future_lapply() ... DONE 1569s int [1, 1] 2 1569s ..$ b1: int [1, 1] 2 1569s ..$ b2: int [1, 1] 3 1569s ..$ c1: int [1, 1] 3 1569s ..$ c2: int [1, 1] 4 1569s $ y1:List of 6 1569s ..$ a1: int [1, 1] 1 1569s ..$ a2: int [1, 1] 2 1569s ..$ b1: int [1, 1] 2 1569s ..$ b2: int [1, 1] 3 1569s ..$ c1: int [1, 1] 3 1569s ..$ c2: int [1, 1] 4 1569s List of 2 1569s $ y0:List of 6 1569s ..$ a1: int [1, 1] 1 1569s ..$ a2: int [1, 1] 2 1569s ..$ b1: int [1, 1] 2 1569s ..$ b2: int [1, 1] 3 1569s ..$ c1: int [1, 1] 3 1569s ..$ c2: int [1, 1] 4 1569s $ y2:List of 6 1569s ..$ a1: int [1, 1] 1 1569s ..$ a2: int [1, 1] 2 1569s ..$ b1: int [1, 1] 2 1569s ..$ b2: int [1, 1] 3 1569s ..$ c1: int [1, 1] 3 1569s ..$ c2: int [1, 1] 4 1569s [00:52:49.389] future_lapply() ... 1569s [00:52:49.390] Number of chunks: 1 1569s [00:52:49.390] getGlobalsAndPackagesXApply() ... 1569s [00:52:49.390] - future.globals: TRUE 1569s [00:52:49.390] getGlobalsAndPackages() ... 1569s [00:52:49.390] Searching for globals... 1569s [00:52:49.392] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1569s [00:52:49.392] Searching for globals ... DONE 1569s [00:52:49.392] Resolving globals: FALSE 1569s [00:52:49.393] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1569s [00:52:49.393] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1569s [00:52:49.393] - globals: [1] ‘FUN’ 1569s [00:52:49.394] 1569s [00:52:49.394] getGlobalsAndPackages() ... DONE 1569s [00:52:49.394] - globals found/used: [n=1] ‘FUN’ 1569s [00:52:49.394] - needed namespaces: [n=0] 1569s [00:52:49.394] Finding globals ... DONE 1569s [00:52:49.394] - use_args: TRUE 1569s [00:52:49.394] - Getting '...' globals ... 1569s [00:52:49.395] resolve() on list ... 1569s [00:52:49.395] recursive: 0 1569s [00:52:49.395] length: 1 1569s [00:52:49.395] elements: ‘...’ 1569s [00:52:49.396] length: 0 (resolved future 1) 1569s [00:52:49.396] resolve() on list ... DONE 1569s [00:52:49.396] - '...' content: [n=0] 1569s [00:52:49.396] List of 1 1569s [00:52:49.396] $ ...: list() 1569s [00:52:49.396] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.396] - attr(*, "where")=List of 1 1569s [00:52:49.396] ..$ ...: 1569s [00:52:49.396] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.396] - attr(*, "resolved")= logi TRUE 1569s [00:52:49.396] - attr(*, "total_size")= num NA 1569s [00:52:49.399] - Getting '...' globals ... DONE 1569s [00:52:49.399] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1569s [00:52:49.399] List of 2 1569s [00:52:49.399] $ ...future.FUN:function (x, y = 2 * 1:5) 1569s [00:52:49.399] $ ... : list() 1569s [00:52:49.399] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.399] - attr(*, "where")=List of 2 1569s [00:52:49.399] ..$ ...future.FUN: 1569s [00:52:49.399] ..$ ... : 1569s [00:52:49.399] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.399] - attr(*, "resolved")= logi FALSE 1569s [00:52:49.399] - attr(*, "total_size")= num 4728 1569s [00:52:49.404] Packages to be attached in all futures: [n=0] 1569s [00:52:49.404] getGlobalsAndPackagesXApply() ... DONE 1569s [00:52:49.404] Number of futures (= number of chunks): 1 1569s [00:52:49.404] Launching 1 futures (chunks) ... 1569s [00:52:49.405] Chunk #1 of 1 ... 1569s [00:52:49.405] - Finding globals in 'X' for chunk #1 ... 1569s [00:52:49.405] getGlobalsAndPackages() ... 1569s [00:52:49.405] Searching for globals... 1569s [00:52:49.405] 1569s [00:52:49.406] Searching for globals ... DONE 1569s [00:52:49.406] - globals: [0] 1569s [00:52:49.406] getGlobalsAndPackages() ... DONE 1569s [00:52:49.406] + additional globals found: [n=0] 1569s [00:52:49.406] + additional namespaces needed: [n=0] 1569s [00:52:49.406] - Finding globals in 'X' for chunk #1 ... DONE 1569s [00:52:49.406] - seeds: 1569s [00:52:49.407] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:49.407] getGlobalsAndPackages() ... 1569s [00:52:49.407] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:49.407] Resolving globals: FALSE 1569s [00:52:49.407] Tweak future expression to call with '...' arguments ... 1569s [00:52:49.407] { 1569s [00:52:49.407] do.call(function(...) { 1569s [00:52:49.407] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.407] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1569s [00:52:49.407] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.407] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.407] } 1569s [00:52:49.407] { 1569s [00:52:49.407] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1569s [00:52:49.407] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.407] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.407] }) 1569s [00:52:49.407] } 1569s [00:52:49.407] }, args = future.call.arguments) 1569s [00:52:49.407] } 1569s [00:52:49.408] Tweak future expression to call with '...' arguments ... DONE 1569s [00:52:49.408] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:49.408] 1569s [00:52:49.409] getGlobalsAndPackages() ... DONE 1569s [00:52:49.409] run() for ‘Future’ ... 1569s [00:52:49.409] - state: ‘created’ 1569s [00:52:49.409] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1569s [00:52:49.410] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1569s [00:52:49.410] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1569s [00:52:49.410] - Field: ‘label’ 1569s [00:52:49.410] - Field: ‘local’ 1569s [00:52:49.410] - Field: ‘owner’ 1569s [00:52:49.410] - Field: ‘envir’ 1569s [00:52:49.411] - Field: ‘packages’ 1569s [00:52:49.411] - Field: ‘gc’ 1569s [00:52:49.411] - Field: ‘conditions’ 1569s [00:52:49.411] - Field: ‘expr’ 1569s [00:52:49.411] - Field: ‘uuid’ 1569s [00:52:49.411] - Field: ‘seed’ 1569s [00:52:49.412] - Field: ‘version’ 1569s [00:52:49.412] - Field: ‘result’ 1569s [00:52:49.412] - Field: ‘asynchronous’ 1569s [00:52:49.412] - Field: ‘calls’ 1569s [00:52:49.412] - Field: ‘globals’ 1569s [00:52:49.412] - Field: ‘stdout’ 1569s [00:52:49.412] - Field: ‘earlySignal’ 1569s [00:52:49.413] - Field: ‘lazy’ 1569s [00:52:49.413] - Field: ‘state’ 1569s [00:52:49.413] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1569s [00:52:49.413] - Launch lazy future ... 1569s [00:52:49.413] Packages needed by the future expression (n = 0): 1569s [00:52:49.413] Packages needed by future strategies (n = 0): 1569s [00:52:49.414] { 1569s [00:52:49.414] { 1569s [00:52:49.414] { 1569s [00:52:49.414] ...future.startTime <- base::Sys.time() 1569s [00:52:49.414] { 1569s [00:52:49.414] { 1569s [00:52:49.414] { 1569s [00:52:49.414] base::local({ 1569s [00:52:49.414] has_future <- base::requireNamespace("future", 1569s [00:52:49.414] quietly = TRUE) 1569s [00:52:49.414] if (has_future) { 1569s [00:52:49.414] ns <- base::getNamespace("future") 1569s [00:52:49.414] version <- ns[[".package"]][["version"]] 1569s [00:52:49.414] if (is.null(version)) 1569s [00:52:49.414] version <- utils::packageVersion("future") 1569s [00:52:49.414] } 1569s [00:52:49.414] else { 1569s [00:52:49.414] version <- NULL 1569s [00:52:49.414] } 1569s [00:52:49.414] if (!has_future || version < "1.8.0") { 1569s [00:52:49.414] info <- base::c(r_version = base::gsub("R version ", 1569s [00:52:49.414] "", base::R.version$version.string), 1569s [00:52:49.414] platform = base::sprintf("%s (%s-bit)", 1569s [00:52:49.414] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1569s [00:52:49.414] os = base::paste(base::Sys.info()[base::c("sysname", 1569s [00:52:49.414] "release", "version")], collapse = " "), 1569s [00:52:49.414] hostname = base::Sys.info()[["nodename"]]) 1569s [00:52:49.414] info <- base::sprintf("%s: %s", base::names(info), 1569s [00:52:49.414] info) 1569s [00:52:49.414] info <- base::paste(info, collapse = "; ") 1569s [00:52:49.414] if (!has_future) { 1569s [00:52:49.414] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1569s [00:52:49.414] info) 1569s [00:52:49.414] } 1569s [00:52:49.414] else { 1569s [00:52:49.414] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1569s [00:52:49.414] info, version) 1569s [00:52:49.414] } 1569s [00:52:49.414] base::stop(msg) 1569s [00:52:49.414] } 1569s [00:52:49.414] }) 1569s [00:52:49.414] } 1569s [00:52:49.414] options(future.plan = NULL) 1569s [00:52:49.414] Sys.unsetenv("R_FUTURE_PLAN") 1569s [00:52:49.414] future::plan("default", .cleanup = FALSE, .init = FALSE) 1569s [00:52:49.414] } 1569s [00:52:49.414] ...future.workdir <- getwd() 1569s [00:52:49.414] } 1569s [00:52:49.414] ...future.oldOptions <- base::as.list(base::.Options) 1569s [00:52:49.414] ...future.oldEnvVars <- base::Sys.getenv() 1569s [00:52:49.414] } 1569s [00:52:49.414] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1569s [00:52:49.414] future.globals.maxSize = NULL, future.globals.method = NULL, 1569s [00:52:49.414] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1569s [00:52:49.414] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1569s [00:52:49.414] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1569s [00:52:49.414] future.stdout.windows.reencode = NULL, width = 80L) 1569s [00:52:49.414] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1569s [00:52:49.414] base::names(...future.oldOptions)) 1569s [00:52:49.414] } 1569s [00:52:49.414] if (FALSE) { 1569s [00:52:49.414] } 1569s [00:52:49.414] else { 1569s [00:52:49.414] if (TRUE) { 1569s [00:52:49.414] ...future.stdout <- base::rawConnection(base::raw(0L), 1569s [00:52:49.414] open = "w") 1569s [00:52:49.414] } 1569s [00:52:49.414] else { 1569s [00:52:49.414] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1569s [00:52:49.414] windows = "NUL", "/dev/null"), open = "w") 1569s [00:52:49.414] } 1569s [00:52:49.414] base::sink(...future.stdout, type = "output", split = FALSE) 1569s [00:52:49.414] base::on.exit(if (!base::is.null(...future.stdout)) { 1569s [00:52:49.414] base::sink(type = "output", split = FALSE) 1569s [00:52:49.414] base::close(...future.stdout) 1569s [00:52:49.414] }, add = TRUE) 1569s [00:52:49.414] } 1569s [00:52:49.414] ...future.frame <- base::sys.nframe() 1569s [00:52:49.414] ...future.conditions <- base::list() 1569s [00:52:49.414] ...future.rng <- base::globalenv()$.Random.seed 1569s [00:52:49.414] if (FALSE) { 1569s [00:52:49.414] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1569s [00:52:49.414] "...future.value", "...future.globalenv.names", ".Random.seed") 1569s [00:52:49.414] } 1569s [00:52:49.414] ...future.result <- base::tryCatch({ 1569s [00:52:49.414] base::withCallingHandlers({ 1569s [00:52:49.414] ...future.value <- base::withVisible(base::local({ 1569s [00:52:49.414] do.call(function(...) { 1569s [00:52:49.414] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.414] if (!identical(...future.globals.maxSize.org, 1569s [00:52:49.414] ...future.globals.maxSize)) { 1569s [00:52:49.414] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.414] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.414] } 1569s [00:52:49.414] { 1569s [00:52:49.414] lapply(seq_along(...future.elements_ii), 1569s [00:52:49.414] FUN = function(jj) { 1569s [00:52:49.414] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.414] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.414] }) 1569s [00:52:49.414] } 1569s [00:52:49.414] }, args = future.call.arguments) 1569s [00:52:49.414] })) 1569s [00:52:49.414] future::FutureResult(value = ...future.value$value, 1569s [00:52:49.414] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1569s [00:52:49.414] ...future.rng), globalenv = if (FALSE) 1569s [00:52:49.414] list(added = base::setdiff(base::names(base::.GlobalEnv), 1569s [00:52:49.414] ...future.globalenv.names)) 1569s [00:52:49.414] else NULL, started = ...future.startTime, version = "1.8") 1569s [00:52:49.414] }, condition = base::local({ 1569s [00:52:49.414] c <- base::c 1569s [00:52:49.414] inherits <- base::inherits 1569s [00:52:49.414] invokeRestart <- base::invokeRestart 1569s [00:52:49.414] length <- base::length 1569s [00:52:49.414] list <- base::list 1569s [00:52:49.414] seq.int <- base::seq.int 1569s [00:52:49.414] signalCondition <- base::signalCondition 1569s [00:52:49.414] sys.calls <- base::sys.calls 1569s [00:52:49.414] `[[` <- base::`[[` 1569s [00:52:49.414] `+` <- base::`+` 1569s [00:52:49.414] `<<-` <- base::`<<-` 1569s [00:52:49.414] sysCalls <- function(calls = sys.calls(), from = 1L) { 1569s [00:52:49.414] calls[seq.int(from = from + 12L, to = length(calls) - 1569s [00:52:49.414] 3L)] 1569s [00:52:49.414] } 1569s [00:52:49.414] function(cond) { 1569s [00:52:49.414] is_error <- inherits(cond, "error") 1569s [00:52:49.414] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1569s [00:52:49.414] NULL) 1569s [00:52:49.414] if (is_error) { 1569s [00:52:49.414] sessionInformation <- function() { 1569s [00:52:49.414] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1569s [00:52:49.414] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1569s [00:52:49.414] search = base::search(), system = base::Sys.info()) 1569s [00:52:49.414] } 1569s [00:52:49.414] ...future.conditions[[length(...future.conditions) + 1569s [00:52:49.414] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1569s [00:52:49.414] cond$call), session = sessionInformation(), 1569s [00:52:49.414] timestamp = base::Sys.time(), signaled = 0L) 1569s [00:52:49.414] signalCondition(cond) 1569s [00:52:49.414] } 1569s [00:52:49.414] else if (!ignore && TRUE && inherits(cond, c("condition", 1569s [00:52:49.414] "immediateCondition"))) { 1569s [00:52:49.414] signal <- TRUE && inherits(cond, "immediateCondition") 1569s [00:52:49.414] ...future.conditions[[length(...future.conditions) + 1569s [00:52:49.414] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1569s [00:52:49.414] if (TRUE && !signal) { 1569s [00:52:49.414] muffleCondition <- function (cond, pattern = "^muffle") 1569s [00:52:49.414] { 1569s [00:52:49.414] inherits <- base::inherits 1569s [00:52:49.414] invokeRestart <- base::invokeRestart 1569s [00:52:49.414] is.null <- base::is.null 1569s [00:52:49.414] muffled <- FALSE 1569s [00:52:49.414] if (inherits(cond, "message")) { 1569s [00:52:49.414] muffled <- grepl(pattern, "muffleMessage") 1569s [00:52:49.414] if (muffled) 1569s [00:52:49.414] invokeRestart("muffleMessage") 1569s [00:52:49.414] } 1569s [00:52:49.414] else if (inherits(cond, "warning")) { 1569s [00:52:49.414] muffled <- grepl(pattern, "muffleWarning") 1569s [00:52:49.414] if (muffled) 1569s [00:52:49.414] invokeRestart("muffleWarning") 1569s [00:52:49.414] } 1569s [00:52:49.414] else if (inherits(cond, "condition")) { 1569s [00:52:49.414] if (!is.null(pattern)) { 1569s [00:52:49.414] computeRestarts <- base::computeRestarts 1569s [00:52:49.414] grepl <- base::grepl 1569s [00:52:49.414] restarts <- computeRestarts(cond) 1569s [00:52:49.414] for (restart in restarts) { 1569s [00:52:49.414] name <- restart$name 1569s [00:52:49.414] if (is.null(name)) 1569s [00:52:49.414] next 1569s [00:52:49.414] if (!grepl(pattern, name)) 1569s [00:52:49.414] next 1569s [00:52:49.414] invokeRestart(restart) 1569s [00:52:49.414] muffled <- TRUE 1569s [00:52:49.414] break 1569s [00:52:49.414] } 1569s [00:52:49.414] } 1569s [00:52:49.414] } 1569s [00:52:49.414] invisible(muffled) 1569s [00:52:49.414] } 1569s [00:52:49.414] muffleCondition(cond, pattern = "^muffle") 1569s [00:52:49.414] } 1569s [00:52:49.414] } 1569s [00:52:49.414] else { 1569s [00:52:49.414] if (TRUE) { 1569s [00:52:49.414] muffleCondition <- function (cond, pattern = "^muffle") 1569s [00:52:49.414] { 1569s [00:52:49.414] inherits <- base::inherits 1569s [00:52:49.414] invokeRestart <- base::invokeRestart 1569s [00:52:49.414] is.null <- base::is.null 1569s [00:52:49.414] muffled <- FALSE 1569s [00:52:49.414] if (inherits(cond, "message")) { 1569s [00:52:49.414] muffled <- grepl(pattern, "muffleMessage") 1569s [00:52:49.414] if (muffled) 1569s [00:52:49.414] invokeRestart("muffleMessage") 1569s [00:52:49.414] } 1569s [00:52:49.414] else if (inherits(cond, "warning")) { 1569s [00:52:49.414] muffled <- grepl(pattern, "muffleWarning") 1569s [00:52:49.414] if (muffled) 1569s [00:52:49.414] invokeRestart("muffleWarning") 1569s [00:52:49.414] } 1569s [00:52:49.414] else if (inherits(cond, "condition")) { 1569s [00:52:49.414] if (!is.null(pattern)) { 1569s [00:52:49.414] computeRestarts <- base::computeRestarts 1569s [00:52:49.414] grepl <- base::grepl 1569s [00:52:49.414] restarts <- computeRestarts(cond) 1569s [00:52:49.414] for (restart in restarts) { 1569s [00:52:49.414] name <- restart$name 1569s [00:52:49.414] if (is.null(name)) 1569s [00:52:49.414] next 1569s [00:52:49.414] if (!grepl(pattern, name)) 1569s [00:52:49.414] next 1569s [00:52:49.414] invokeRestart(restart) 1569s [00:52:49.414] muffled <- TRUE 1569s [00:52:49.414] break 1569s [00:52:49.414] } 1569s [00:52:49.414] } 1569s [00:52:49.414] } 1569s [00:52:49.414] invisible(muffled) 1569s [00:52:49.414] } 1569s [00:52:49.414] muffleCondition(cond, pattern = "^muffle") 1569s [00:52:49.414] } 1569s [00:52:49.414] } 1569s [00:52:49.414] } 1569s [00:52:49.414] })) 1569s [00:52:49.414] }, error = function(ex) { 1569s [00:52:49.414] base::structure(base::list(value = NULL, visible = NULL, 1569s [00:52:49.414] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1569s [00:52:49.414] ...future.rng), started = ...future.startTime, 1569s [00:52:49.414] finished = Sys.time(), session_uuid = NA_character_, 1569s [00:52:49.414] version = "1.8"), class = "FutureResult") 1569s [00:52:49.414] }, finally = { 1569s [00:52:49.414] if (!identical(...future.workdir, getwd())) 1569s [00:52:49.414] setwd(...future.workdir) 1569s [00:52:49.414] { 1569s [00:52:49.414] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1569s [00:52:49.414] ...future.oldOptions$nwarnings <- NULL 1569s [00:52:49.414] } 1569s [00:52:49.414] base::options(...future.oldOptions) 1569s [00:52:49.414] if (.Platform$OS.type == "windows") { 1569s [00:52:49.414] old_names <- names(...future.oldEnvVars) 1569s [00:52:49.414] envs <- base::Sys.getenv() 1569s [00:52:49.414] names <- names(envs) 1569s [00:52:49.414] common <- intersect(names, old_names) 1569s [00:52:49.414] added <- setdiff(names, old_names) 1569s [00:52:49.414] removed <- setdiff(old_names, names) 1569s [00:52:49.414] changed <- common[...future.oldEnvVars[common] != 1569s [00:52:49.414] envs[common]] 1569s [00:52:49.414] NAMES <- toupper(changed) 1569s [00:52:49.414] args <- list() 1569s [00:52:49.414] for (kk in seq_along(NAMES)) { 1569s [00:52:49.414] name <- changed[[kk]] 1569s [00:52:49.414] NAME <- NAMES[[kk]] 1569s [00:52:49.414] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.414] next 1569s [00:52:49.414] args[[name]] <- ...future.oldEnvVars[[name]] 1569s [00:52:49.414] } 1569s [00:52:49.414] NAMES <- toupper(added) 1569s [00:52:49.414] for (kk in seq_along(NAMES)) { 1569s [00:52:49.414] name <- added[[kk]] 1569s [00:52:49.414] NAME <- NAMES[[kk]] 1569s [00:52:49.414] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.414] next 1569s [00:52:49.414] args[[name]] <- "" 1569s [00:52:49.414] } 1569s [00:52:49.414] NAMES <- toupper(removed) 1569s [00:52:49.414] for (kk in seq_along(NAMES)) { 1569s [00:52:49.414] name <- removed[[kk]] 1569s [00:52:49.414] NAME <- NAMES[[kk]] 1569s [00:52:49.414] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.414] next 1569s [00:52:49.414] args[[name]] <- ...future.oldEnvVars[[name]] 1569s [00:52:49.414] } 1569s [00:52:49.414] if (length(args) > 0) 1569s [00:52:49.414] base::do.call(base::Sys.setenv, args = args) 1569s [00:52:49.414] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1569s [00:52:49.414] } 1569s [00:52:49.414] else { 1569s [00:52:49.414] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1569s [00:52:49.414] } 1569s [00:52:49.414] { 1569s [00:52:49.414] if (base::length(...future.futureOptionsAdded) > 1569s [00:52:49.414] 0L) { 1569s [00:52:49.414] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1569s [00:52:49.414] base::names(opts) <- ...future.futureOptionsAdded 1569s [00:52:49.414] base::options(opts) 1569s [00:52:49.414] } 1569s [00:52:49.414] { 1569s [00:52:49.414] { 1569s [00:52:49.414] NULL 1569s [00:52:49.414] RNGkind("Mersenne-Twister") 1569s [00:52:49.414] base::rm(list = ".Random.seed", envir = base::globalenv(), 1569s [00:52:49.414] inherits = FALSE) 1569s [00:52:49.414] } 1569s [00:52:49.414] options(future.plan = NULL) 1569s [00:52:49.414] if (is.na(NA_character_)) 1569s [00:52:49.414] Sys.unsetenv("R_FUTURE_PLAN") 1569s [00:52:49.414] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1569s [00:52:49.414] future::plan(list(function (..., envir = parent.frame()) 1569s [00:52:49.414] { 1569s [00:52:49.414] future <- SequentialFuture(..., envir = envir) 1569s [00:52:49.414] if (!future$lazy) 1569s [00:52:49.414] future <- run(future) 1569s [00:52:49.414] invisible(future) 1569s [00:52:49.414] }), .cleanup = FALSE, .init = FALSE) 1569s [00:52:49.414] } 1569s [00:52:49.414] } 1569s [00:52:49.414] } 1569s [00:52:49.414] }) 1569s [00:52:49.414] if (TRUE) { 1569s [00:52:49.414] base::sink(type = "output", split = FALSE) 1569s [00:52:49.414] if (TRUE) { 1569s [00:52:49.414] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1569s [00:52:49.414] } 1569s [00:52:49.414] else { 1569s [00:52:49.414] ...future.result["stdout"] <- base::list(NULL) 1569s [00:52:49.414] } 1569s [00:52:49.414] base::close(...future.stdout) 1569s [00:52:49.414] ...future.stdout <- NULL 1569s [00:52:49.414] } 1569s [00:52:49.414] ...future.result$conditions <- ...future.conditions 1569s [00:52:49.414] ...future.result$finished <- base::Sys.time() 1569s [00:52:49.414] ...future.result 1569s [00:52:49.414] } 1569s [00:52:49.419] assign_globals() ... 1569s [00:52:49.419] List of 5 1569s [00:52:49.419] $ ...future.FUN :function (x, y = 2 * 1:5) 1569s [00:52:49.419] $ future.call.arguments : list() 1569s [00:52:49.419] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.419] $ ...future.elements_ii :List of 6 1569s [00:52:49.419] ..$ a1: int 1 1569s [00:52:49.419] ..$ a2: int 2 1569s [00:52:49.419] ..$ b1: int 2 1569s [00:52:49.419] ..$ b2: int 3 1569s [00:52:49.419] ..$ c1: int 3 1569s [00:52:49.419] ..$ c2: int 4 1569s [00:52:49.419] $ ...future.seeds_ii : NULL 1569s [00:52:49.419] $ ...future.globals.maxSize: NULL 1569s [00:52:49.419] - attr(*, "where")=List of 5 1569s [00:52:49.419] ..$ ...future.FUN : 1569s [00:52:49.419] ..$ future.call.arguments : 1569s [00:52:49.419] ..$ ...future.elements_ii : 1569s [00:52:49.419] ..$ ...future.seeds_ii : 1569s [00:52:49.419] ..$ ...future.globals.maxSize: 1569s [00:52:49.419] - attr(*, "resolved")= logi FALSE 1569s [00:52:49.419] - attr(*, "total_size")= num 4728 1569s [00:52:49.419] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.419] - attr(*, "already-done")= logi TRUE 1569s [00:52:49.428] - reassign environment for ‘...future.FUN’ 1569s [00:52:49.428] - copied ‘...future.FUN’ to environment 1569s [00:52:49.429] - copied ‘future.call.arguments’ to environment 1569s [00:52:49.429] - copied ‘...future.elements_ii’ to environment 1569s [00:52:49.429] - copied ‘...future.seeds_ii’ to environment 1569s [00:52:49.429] - copied ‘...future.globals.maxSize’ to environment 1569s [00:52:49.429] assign_globals() ... done 1569s [00:52:49.429] plan(): Setting new future strategy stack: 1569s [00:52:49.430] List of future strategies: 1569s [00:52:49.430] 1. sequential: 1569s [00:52:49.430] - args: function (..., envir = parent.frame()) 1569s [00:52:49.430] - tweaked: FALSE 1569s [00:52:49.430] - call: NULL 1569s [00:52:49.430] plan(): nbrOfWorkers() = 1 1569s [00:52:49.431] plan(): Setting new future strategy stack: 1569s [00:52:49.431] List of future strategies: 1569s [00:52:49.431] 1. sequential: 1569s [00:52:49.431] - args: function (..., envir = parent.frame()) 1569s [00:52:49.431] - tweaked: FALSE 1569s [00:52:49.431] - call: plan(strategy) 1569s [00:52:49.431] plan(): nbrOfWorkers() = 1 1569s [00:52:49.432] SequentialFuture started (and completed) 1569s [00:52:49.432] - Launch lazy future ... done 1569s [00:52:49.432] run() for ‘SequentialFuture’ ... done 1569s [00:52:49.432] Created future: 1569s [00:52:49.432] SequentialFuture: 1569s [00:52:49.432] Label: ‘future_sapply-1’ 1569s [00:52:49.432] Expression: 1569s [00:52:49.432] { 1569s [00:52:49.432] do.call(function(...) { 1569s [00:52:49.432] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.432] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1569s [00:52:49.432] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.432] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.432] } 1569s [00:52:49.432] { 1569s [00:52:49.432] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1569s [00:52:49.432] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.432] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.432] }) 1569s [00:52:49.432] } 1569s [00:52:49.432] }, args = future.call.arguments) 1569s [00:52:49.432] } 1569s [00:52:49.432] Lazy evaluation: FALSE 1569s [00:52:49.432] Asynchronous evaluation: FALSE 1569s [00:52:49.432] Local evaluation: TRUE 1569s [00:52:49.432] Environment: R_GlobalEnv 1569s [00:52:49.432] Capture standard output: TRUE 1569s [00:52:49.432] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1569s [00:52:49.432] Globals: 5 objects totaling 4.95 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1569s [00:52:49.432] Packages: 1569s [00:52:49.432] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1569s [00:52:49.432] Resolved: TRUE 1569s [00:52:49.432] Value: 2.02 KiB of class ‘list’ 1569s [00:52:49.432] Early signaling: FALSE 1569s [00:52:49.432] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1569s [00:52:49.432] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1569s [00:52:49.434] Chunk #1 of 1 ... DONE 1569s [00:52:49.434] Launching 1 futures (chunks) ... DONE 1569s [00:52:49.434] Resolving 1 futures (chunks) ... 1569s [00:52:49.434] resolve() on list ... 1569s [00:52:49.434] recursive: 0 1569s [00:52:49.435] length: 1 1569s [00:52:49.435] 1569s [00:52:49.435] resolved() for ‘SequentialFuture’ ... 1569s [00:52:49.435] - state: ‘finished’ 1569s [00:52:49.435] - run: TRUE 1569s [00:52:49.435] - result: ‘FutureResult’ 1569s [00:52:49.436] resolved() for ‘SequentialFuture’ ... done 1569s [00:52:49.436] Future #1 1569s [00:52:49.436] signalConditionsASAP(SequentialFuture, pos=1) ... 1569s [00:52:49.436] - nx: 1 1569s [00:52:49.436] - relay: TRUE 1569s [00:52:49.436] - stdout: TRUE 1569s [00:52:49.436] - signal: TRUE 1569s [00:52:49.436] - resignal: FALSE 1569s [00:52:49.436] - force: TRUE 1569s [00:52:49.437] - relayed: [n=1] FALSE 1569s [00:52:49.437] - queued futures: [n=1] FALSE 1569s [00:52:49.437] - until=1 1569s [00:52:49.437] - relaying element #1 1569s [00:52:49.437] - relayed: [n=1] TRUE 1569s [00:52:49.437] - queued futures: [n=1] TRUE 1569s [00:52:49.437] signalConditionsASAP(SequentialFuture, pos=1) ... done 1569s [00:52:49.437] length: 0 (resolved future 1) 1569s [00:52:49.437] Relaying remaining futures 1569s [00:52:49.438] signalConditionsASAP(NULL, pos=0) ... 1569s [00:52:49.438] - nx: 1 1569s [00:52:49.438] - relay: TRUE 1569s [00:52:49.438] - stdout: TRUE 1569s [00:52:49.438] - signal: TRUE 1569s [00:52:49.438] - resignal: FALSE 1569s [00:52:49.438] - force: TRUE 1569s [00:52:49.438] - relayed: [n=1] TRUE 1569s [00:52:49.438] - queued futures: [n=1] TRUE 1569s - flush all 1569s [00:52:49.439] - relayed: [n=1] TRUE 1569s [00:52:49.439] - queued futures: [n=1] TRUE 1569s [00:52:49.439] signalConditionsASAP(NULL, pos=0) ... done 1569s [00:52:49.439] resolve() on list ... DONE 1569s [00:52:49.439] - Number of value chunks collected: 1 1569s [00:52:49.439] Resolving 1 futures (chunks) ... DONE 1569s [00:52:49.441] Reducing values from 1 chunks ... 1569s [00:52:49.441] - Number of values collected after concatenation: 6 1569s [00:52:49.441] - Number of values expected: 6 1569s [00:52:49.441] Reducing values from 1 chunks ... DONE 1569s [00:52:49.441] future_lapply() ... DONE 1569s List of 2 1569s $ y0:List of 6 1569s ..$ a1: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1569s ..$ a2: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1569s ..$ b1: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1569s ..$ b2: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1569s ..$ c1: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1569s ..$ c2: num [1:3, 1:5] 8 8 8 16 16 16 24 24 24 32 ... 1569s $ y1:List of 6 1569s ..$ a1: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1569s ..$ a2: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1569s ..$ b1: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ...[00:52:49.457] future_lapply() ... 1569s 1569s ..$ b2: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1569s ..$ c1: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1569s ..$ c2: num [1:3, 1:5] 8 8 8 16 16 16 24 24 24 32 ... 1569s List of 2 1569s $ y0:List of 6 1569s ..$ a1: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1569s ..$ a2: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1569s ..$ b1: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1569s ..$ b2: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1569s ..$ c1: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1569s ..$ c2: num [1:3, 1:5] 8 8 8 16 16 16 24 24 24 32 ... 1569s $ y2:List of 6 1569s ..$ a1: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1569s ..$ a2: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1569s ..$ b1: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1569s ..$ b2: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1569s ..$ c1: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1569s ..$ c2: num [1:3, 1:5] 8 8 8 16 16 16 24 24 24 32 ... 1569s [00:52:49.458] Number of chunks: 1 1569s [00:52:49.458] getGlobalsAndPackagesXApply() ... 1569s [00:52:49.459] - future.globals: TRUE 1569s [00:52:49.459] getGlobalsAndPackages() ... 1569s [00:52:49.459] Searching for globals... 1569s [00:52:49.460] - globals found: [1] ‘FUN’ 1569s [00:52:49.461] Searching for globals ... DONE 1569s [00:52:49.461] Resolving globals: FALSE 1569s [00:52:49.461] The total size of the 1 globals is 848 bytes (848 bytes) 1569s [00:52:49.462] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1569s [00:52:49.462] - globals: [1] ‘FUN’ 1569s [00:52:49.462] 1569s [00:52:49.462] getGlobalsAndPackages() ... DONE 1569s [00:52:49.462] - globals found/used: [n=1] ‘FUN’ 1569s [00:52:49.462] - needed namespaces: [n=0] 1569s [00:52:49.463] Finding globals ... DONE 1569s [00:52:49.463] - use_args: TRUE 1569s [00:52:49.463] - Getting '...' globals ... 1569s [00:52:49.463] resolve() on list ... 1569s [00:52:49.463] recursive: 0 1569s [00:52:49.464] length: 1 1569s [00:52:49.464] elements: ‘...’ 1569s [00:52:49.464] length: 0 (resolved future 1) 1569s [00:52:49.464] resolve() on list ... DONE 1569s [00:52:49.464] - '...' content: [n=0] 1569s [00:52:49.464] List of 1 1569s [00:52:49.464] $ ...: list() 1569s [00:52:49.464] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.464] - attr(*, "where")=List of 1 1569s [00:52:49.464] ..$ ...: 1569s [00:52:49.464] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.464] - attr(*, "resolved")= logi TRUE 1569s [00:52:49.464] - attr(*, "total_size")= num NA 1569s [00:52:49.467] - Getting '...' globals ... DONE 1569s [00:52:49.467] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1569s [00:52:49.468] List of 2 1569s [00:52:49.468] $ ...future.FUN:function (x) 1569s [00:52:49.468] $ ... : list() 1569s [00:52:49.468] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.468] - attr(*, "where")=List of 2 1569s [00:52:49.468] ..$ ...future.FUN: 1569s [00:52:49.468] ..$ ... : 1569s [00:52:49.468] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.468] - attr(*, "resolved")= logi FALSE 1569s [00:52:49.468] - attr(*, "total_size")= num 848 1569s [00:52:49.472] Packages to be attached in all futures: [n=0] 1569s [00:52:49.472] getGlobalsAndPackagesXApply() ... DONE 1569s [00:52:49.473] Number of futures (= number of chunks): 1 1569s [00:52:49.473] Launching 1 futures (chunks) ... 1569s [00:52:49.473] Chunk #1 of 1 ... 1569s [00:52:49.473] - Finding globals in 'X' for chunk #1 ... 1569s [00:52:49.473] getGlobalsAndPackages() ... 1569s [00:52:49.474] Searching for globals... 1569s [00:52:49.476] 1569s [00:52:49.476] Searching for globals ... DONE 1569s [00:52:49.477] - globals: [0] 1569s [00:52:49.477] getGlobalsAndPackages() ... DONE 1569s [00:52:49.477] + additional globals found: [n=0] 1569s [00:52:49.477] + additional namespaces needed: [n=0] 1569s [00:52:49.477] - Finding globals in 'X' for chunk #1 ... DONE 1569s [00:52:49.478] - seeds: 1569s [00:52:49.478] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:49.478] getGlobalsAndPackages() ... 1569s [00:52:49.478] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:49.478] Resolving globals: FALSE 1569s [00:52:49.479] Tweak future expression to call with '...' arguments ... 1569s [00:52:49.479] { 1569s [00:52:49.479] do.call(function(...) { 1569s [00:52:49.479] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.479] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1569s [00:52:49.479] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.479] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.479] } 1569s [00:52:49.479] { 1569s [00:52:49.479] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1569s [00:52:49.479] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.479] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.479] }) 1569s [00:52:49.479] } 1569s [00:52:49.479] }, args = future.call.arguments) 1569s [00:52:49.479] } 1569s [00:52:49.479] Tweak future expression to call with '...' arguments ... DONE 1569s [00:52:49.480] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:49.480] 1569s [00:52:49.480] getGlobalsAndPackages() ... DONE 1569s [00:52:49.481] run() for ‘Future’ ... 1569s [00:52:49.481] - state: ‘created’ 1569s [00:52:49.481] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1569s [00:52:49.482] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1569s [00:52:49.482] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1569s [00:52:49.482] - Field: ‘label’ 1569s [00:52:49.482] - Field: ‘local’ 1569s [00:52:49.482] - Field: ‘owner’ 1569s [00:52:49.482] - Field: ‘envir’ 1569s [00:52:49.483] - Field: ‘packages’ 1569s [00:52:49.483] - Field: ‘gc’ 1569s [00:52:49.483] - Field: ‘conditions’ 1569s [00:52:49.483] - Field: ‘expr’ 1569s [00:52:49.483] - Field: ‘uuid’ 1569s [00:52:49.483] - Field: ‘seed’ 1569s [00:52:49.484] - Field: ‘version’ 1569s [00:52:49.484] - Field: ‘result’ 1569s [00:52:49.484] - Field: ‘asynchronous’ 1569s [00:52:49.484] - Field: ‘calls’ 1569s [00:52:49.484] - Field: ‘globals’ 1569s [00:52:49.484] - Field: ‘stdout’ 1569s [00:52:49.484] - Field: ‘earlySignal’ 1569s [00:52:49.485] - Field: ‘lazy’ 1569s [00:52:49.485] - Field: ‘state’ 1569s [00:52:49.485] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1569s [00:52:49.485] - Launch lazy future ... 1569s [00:52:49.485] Packages needed by the future expression (n = 0): 1569s [00:52:49.486] Packages needed by future strategies (n = 0): 1569s [00:52:49.486] { 1569s [00:52:49.486] { 1569s [00:52:49.486] { 1569s [00:52:49.486] ...future.startTime <- base::Sys.time() 1569s [00:52:49.486] { 1569s [00:52:49.486] { 1569s [00:52:49.486] { 1569s [00:52:49.486] base::local({ 1569s [00:52:49.486] has_future <- base::requireNamespace("future", 1569s [00:52:49.486] quietly = TRUE) 1569s [00:52:49.486] if (has_future) { 1569s [00:52:49.486] ns <- base::getNamespace("future") 1569s [00:52:49.486] version <- ns[[".package"]][["version"]] 1569s [00:52:49.486] if (is.null(version)) 1569s [00:52:49.486] version <- utils::packageVersion("future") 1569s [00:52:49.486] } 1569s [00:52:49.486] else { 1569s [00:52:49.486] version <- NULL 1569s [00:52:49.486] } 1569s [00:52:49.486] if (!has_future || version < "1.8.0") { 1569s [00:52:49.486] info <- base::c(r_version = base::gsub("R version ", 1569s [00:52:49.486] "", base::R.version$version.string), 1569s [00:52:49.486] platform = base::sprintf("%s (%s-bit)", 1569s [00:52:49.486] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1569s [00:52:49.486] os = base::paste(base::Sys.info()[base::c("sysname", 1569s [00:52:49.486] "release", "version")], collapse = " "), 1569s [00:52:49.486] hostname = base::Sys.info()[["nodename"]]) 1569s [00:52:49.486] info <- base::sprintf("%s: %s", base::names(info), 1569s [00:52:49.486] info) 1569s [00:52:49.486] info <- base::paste(info, collapse = "; ") 1569s [00:52:49.486] if (!has_future) { 1569s [00:52:49.486] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1569s [00:52:49.486] info) 1569s [00:52:49.486] } 1569s [00:52:49.486] else { 1569s [00:52:49.486] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1569s [00:52:49.486] info, version) 1569s [00:52:49.486] } 1569s [00:52:49.486] base::stop(msg) 1569s [00:52:49.486] } 1569s [00:52:49.486] }) 1569s [00:52:49.486] } 1569s [00:52:49.486] options(future.plan = NULL) 1569s [00:52:49.486] Sys.unsetenv("R_FUTURE_PLAN") 1569s [00:52:49.486] future::plan("default", .cleanup = FALSE, .init = FALSE) 1569s [00:52:49.486] } 1569s [00:52:49.486] ...future.workdir <- getwd() 1569s [00:52:49.486] } 1569s [00:52:49.486] ...future.oldOptions <- base::as.list(base::.Options) 1569s [00:52:49.486] ...future.oldEnvVars <- base::Sys.getenv() 1569s [00:52:49.486] } 1569s [00:52:49.486] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1569s [00:52:49.486] future.globals.maxSize = NULL, future.globals.method = NULL, 1569s [00:52:49.486] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1569s [00:52:49.486] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1569s [00:52:49.486] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1569s [00:52:49.486] future.stdout.windows.reencode = NULL, width = 80L) 1569s [00:52:49.486] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1569s [00:52:49.486] base::names(...future.oldOptions)) 1569s [00:52:49.486] } 1569s [00:52:49.486] if (FALSE) { 1569s [00:52:49.486] } 1569s [00:52:49.486] else { 1569s [00:52:49.486] if (TRUE) { 1569s [00:52:49.486] ...future.stdout <- base::rawConnection(base::raw(0L), 1569s [00:52:49.486] open = "w") 1569s [00:52:49.486] } 1569s [00:52:49.486] else { 1569s [00:52:49.486] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1569s [00:52:49.486] windows = "NUL", "/dev/null"), open = "w") 1569s [00:52:49.486] } 1569s [00:52:49.486] base::sink(...future.stdout, type = "output", split = FALSE) 1569s [00:52:49.486] base::on.exit(if (!base::is.null(...future.stdout)) { 1569s [00:52:49.486] base::sink(type = "output", split = FALSE) 1569s [00:52:49.486] base::close(...future.stdout) 1569s [00:52:49.486] }, add = TRUE) 1569s [00:52:49.486] } 1569s [00:52:49.486] ...future.frame <- base::sys.nframe() 1569s [00:52:49.486] ...future.conditions <- base::list() 1569s [00:52:49.486] ...future.rng <- base::globalenv()$.Random.seed 1569s [00:52:49.486] if (FALSE) { 1569s [00:52:49.486] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1569s [00:52:49.486] "...future.value", "...future.globalenv.names", ".Random.seed") 1569s [00:52:49.486] } 1569s [00:52:49.486] ...future.result <- base::tryCatch({ 1569s [00:52:49.486] base::withCallingHandlers({ 1569s [00:52:49.486] ...future.value <- base::withVisible(base::local({ 1569s [00:52:49.486] do.call(function(...) { 1569s [00:52:49.486] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.486] if (!identical(...future.globals.maxSize.org, 1569s [00:52:49.486] ...future.globals.maxSize)) { 1569s [00:52:49.486] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.486] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.486] } 1569s [00:52:49.486] { 1569s [00:52:49.486] lapply(seq_along(...future.elements_ii), 1569s [00:52:49.486] FUN = function(jj) { 1569s [00:52:49.486] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.486] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.486] }) 1569s [00:52:49.486] } 1569s [00:52:49.486] }, args = future.call.arguments) 1569s [00:52:49.486] })) 1569s [00:52:49.486] future::FutureResult(value = ...future.value$value, 1569s [00:52:49.486] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1569s [00:52:49.486] ...future.rng), globalenv = if (FALSE) 1569s [00:52:49.486] list(added = base::setdiff(base::names(base::.GlobalEnv), 1569s [00:52:49.486] ...future.globalenv.names)) 1569s [00:52:49.486] else NULL, started = ...future.startTime, version = "1.8") 1569s [00:52:49.486] }, condition = base::local({ 1569s [00:52:49.486] c <- base::c 1569s [00:52:49.486] inherits <- base::inherits 1569s [00:52:49.486] invokeRestart <- base::invokeRestart 1569s [00:52:49.486] length <- base::length 1569s [00:52:49.486] list <- base::list 1569s [00:52:49.486] seq.int <- base::seq.int 1569s [00:52:49.486] signalCondition <- base::signalCondition 1569s [00:52:49.486] sys.calls <- base::sys.calls 1569s [00:52:49.486] `[[` <- base::`[[` 1569s [00:52:49.486] `+` <- base::`+` 1569s [00:52:49.486] `<<-` <- base::`<<-` 1569s [00:52:49.486] sysCalls <- function(calls = sys.calls(), from = 1L) { 1569s [00:52:49.486] calls[seq.int(from = from + 12L, to = length(calls) - 1569s [00:52:49.486] 3L)] 1569s [00:52:49.486] } 1569s [00:52:49.486] function(cond) { 1569s [00:52:49.486] is_error <- inherits(cond, "error") 1569s [00:52:49.486] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1569s [00:52:49.486] NULL) 1569s [00:52:49.486] if (is_error) { 1569s [00:52:49.486] sessionInformation <- function() { 1569s [00:52:49.486] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1569s [00:52:49.486] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1569s [00:52:49.486] search = base::search(), system = base::Sys.info()) 1569s [00:52:49.486] } 1569s [00:52:49.486] ...future.conditions[[length(...future.conditions) + 1569s [00:52:49.486] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1569s [00:52:49.486] cond$call), session = sessionInformation(), 1569s [00:52:49.486] timestamp = base::Sys.time(), signaled = 0L) 1569s [00:52:49.486] signalCondition(cond) 1569s [00:52:49.486] } 1569s [00:52:49.486] else if (!ignore && TRUE && inherits(cond, c("condition", 1569s [00:52:49.486] "immediateCondition"))) { 1569s [00:52:49.486] signal <- TRUE && inherits(cond, "immediateCondition") 1569s [00:52:49.486] ...future.conditions[[length(...future.conditions) + 1569s [00:52:49.486] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1569s [00:52:49.486] if (TRUE && !signal) { 1569s [00:52:49.486] muffleCondition <- function (cond, pattern = "^muffle") 1569s [00:52:49.486] { 1569s [00:52:49.486] inherits <- base::inherits 1569s [00:52:49.486] invokeRestart <- base::invokeRestart 1569s [00:52:49.486] is.null <- base::is.null 1569s [00:52:49.486] muffled <- FALSE 1569s [00:52:49.486] if (inherits(cond, "message")) { 1569s [00:52:49.486] muffled <- grepl(pattern, "muffleMessage") 1569s [00:52:49.486] if (muffled) 1569s [00:52:49.486] invokeRestart("muffleMessage") 1569s [00:52:49.486] } 1569s [00:52:49.486] else if (inherits(cond, "warning")) { 1569s [00:52:49.486] muffled <- grepl(pattern, "muffleWarning") 1569s [00:52:49.486] if (muffled) 1569s [00:52:49.486] invokeRestart("muffleWarning") 1569s [00:52:49.486] } 1569s [00:52:49.486] else if (inherits(cond, "condition")) { 1569s [00:52:49.486] if (!is.null(pattern)) { 1569s [00:52:49.486] computeRestarts <- base::computeRestarts 1569s [00:52:49.486] grepl <- base::grepl 1569s [00:52:49.486] restarts <- computeRestarts(cond) 1569s [00:52:49.486] for (restart in restarts) { 1569s [00:52:49.486] name <- restart$name 1569s [00:52:49.486] if (is.null(name)) 1569s [00:52:49.486] next 1569s [00:52:49.486] if (!grepl(pattern, name)) 1569s [00:52:49.486] next 1569s [00:52:49.486] invokeRestart(restart) 1569s [00:52:49.486] muffled <- TRUE 1569s [00:52:49.486] break 1569s [00:52:49.486] } 1569s [00:52:49.486] } 1569s [00:52:49.486] } 1569s [00:52:49.486] invisible(muffled) 1569s [00:52:49.486] } 1569s [00:52:49.486] muffleCondition(cond, pattern = "^muffle") 1569s [00:52:49.486] } 1569s [00:52:49.486] } 1569s [00:52:49.486] else { 1569s [00:52:49.486] if (TRUE) { 1569s [00:52:49.486] muffleCondition <- function (cond, pattern = "^muffle") 1569s [00:52:49.486] { 1569s [00:52:49.486] inherits <- base::inherits 1569s [00:52:49.486] invokeRestart <- base::invokeRestart 1569s [00:52:49.486] is.null <- base::is.null 1569s [00:52:49.486] muffled <- FALSE 1569s [00:52:49.486] if (inherits(cond, "message")) { 1569s [00:52:49.486] muffled <- grepl(pattern, "muffleMessage") 1569s [00:52:49.486] if (muffled) 1569s [00:52:49.486] invokeRestart("muffleMessage") 1569s [00:52:49.486] } 1569s [00:52:49.486] else if (inherits(cond, "warning")) { 1569s [00:52:49.486] muffled <- grepl(pattern, "muffleWarning") 1569s [00:52:49.486] if (muffled) 1569s [00:52:49.486] invokeRestart("muffleWarning") 1569s [00:52:49.486] } 1569s [00:52:49.486] else if (inherits(cond, "condition")) { 1569s [00:52:49.486] if (!is.null(pattern)) { 1569s [00:52:49.486] computeRestarts <- base::computeRestarts 1569s [00:52:49.486] grepl <- base::grepl 1569s [00:52:49.486] restarts <- computeRestarts(cond) 1569s [00:52:49.486] for (restart in restarts) { 1569s [00:52:49.486] name <- restart$name 1569s [00:52:49.486] if (is.null(name)) 1569s [00:52:49.486] next 1569s [00:52:49.486] if (!grepl(pattern, name)) 1569s [00:52:49.486] next 1569s [00:52:49.486] invokeRestart(restart) 1569s [00:52:49.486] muffled <- TRUE 1569s [00:52:49.486] break 1569s [00:52:49.486] } 1569s [00:52:49.486] } 1569s [00:52:49.486] } 1569s [00:52:49.486] invisible(muffled) 1569s [00:52:49.486] } 1569s [00:52:49.486] muffleCondition(cond, pattern = "^muffle") 1569s [00:52:49.486] } 1569s [00:52:49.486] } 1569s [00:52:49.486] } 1569s [00:52:49.486] })) 1569s [00:52:49.486] }, error = function(ex) { 1569s [00:52:49.486] base::structure(base::list(value = NULL, visible = NULL, 1569s [00:52:49.486] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1569s [00:52:49.486] ...future.rng), started = ...future.startTime, 1569s [00:52:49.486] finished = Sys.time(), session_uuid = NA_character_, 1569s [00:52:49.486] version = "1.8"), class = "FutureResult") 1569s [00:52:49.486] }, finally = { 1569s [00:52:49.486] if (!identical(...future.workdir, getwd())) 1569s [00:52:49.486] setwd(...future.workdir) 1569s [00:52:49.486] { 1569s [00:52:49.486] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1569s [00:52:49.486] ...future.oldOptions$nwarnings <- NULL 1569s [00:52:49.486] } 1569s [00:52:49.486] base::options(...future.oldOptions) 1569s [00:52:49.486] if (.Platform$OS.type == "windows") { 1569s [00:52:49.486] old_names <- names(...future.oldEnvVars) 1569s [00:52:49.486] envs <- base::Sys.getenv() 1569s [00:52:49.486] names <- names(envs) 1569s [00:52:49.486] common <- intersect(names, old_names) 1569s [00:52:49.486] added <- setdiff(names, old_names) 1569s [00:52:49.486] removed <- setdiff(old_names, names) 1569s [00:52:49.486] changed <- common[...future.oldEnvVars[common] != 1569s [00:52:49.486] envs[common]] 1569s [00:52:49.486] NAMES <- toupper(changed) 1569s [00:52:49.486] args <- list() 1569s [00:52:49.486] for (kk in seq_along(NAMES)) { 1569s [00:52:49.486] name <- changed[[kk]] 1569s [00:52:49.486] NAME <- NAMES[[kk]] 1569s [00:52:49.486] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.486] next 1569s [00:52:49.486] args[[name]] <- ...future.oldEnvVars[[name]] 1569s [00:52:49.486] } 1569s [00:52:49.486] NAMES <- toupper(added) 1569s [00:52:49.486] for (kk in seq_along(NAMES)) { 1569s [00:52:49.486] name <- added[[kk]] 1569s [00:52:49.486] NAME <- NAMES[[kk]] 1569s [00:52:49.486] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.486] next 1569s [00:52:49.486] args[[name]] <- "" 1569s [00:52:49.486] } 1569s [00:52:49.486] NAMES <- toupper(removed) 1569s [00:52:49.486] for (kk in seq_along(NAMES)) { 1569s [00:52:49.486] name <- removed[[kk]] 1569s [00:52:49.486] NAME <- NAMES[[kk]] 1569s [00:52:49.486] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.486] next 1569s [00:52:49.486] args[[name]] <- ...future.oldEnvVars[[name]] 1569s [00:52:49.486] } 1569s [00:52:49.486] if (length(args) > 0) 1569s [00:52:49.486] base::do.call(base::Sys.setenv, args = args) 1569s [00:52:49.486] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1569s [00:52:49.486] } 1569s [00:52:49.486] else { 1569s [00:52:49.486] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1569s [00:52:49.486] } 1569s [00:52:49.486] { 1569s [00:52:49.486] if (base::length(...future.futureOptionsAdded) > 1569s [00:52:49.486] 0L) { 1569s [00:52:49.486] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1569s [00:52:49.486] base::names(opts) <- ...future.futureOptionsAdded 1569s [00:52:49.486] base::options(opts) 1569s [00:52:49.486] } 1569s [00:52:49.486] { 1569s [00:52:49.486] { 1569s [00:52:49.486] NULL 1569s [00:52:49.486] RNGkind("Mersenne-Twister") 1569s [00:52:49.486] base::rm(list = ".Random.seed", envir = base::globalenv(), 1569s [00:52:49.486] inherits = FALSE) 1569s [00:52:49.486] } 1569s [00:52:49.486] options(future.plan = NULL) 1569s [00:52:49.486] if (is.na(NA_character_)) 1569s [00:52:49.486] Sys.unsetenv("R_FUTURE_PLAN") 1569s [00:52:49.486] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1569s [00:52:49.486] future::plan(list(function (..., envir = parent.frame()) 1569s [00:52:49.486] { 1569s [00:52:49.486] future <- SequentialFuture(..., envir = envir) 1569s [00:52:49.486] if (!future$lazy) 1569s [00:52:49.486] future <- run(future) 1569s [00:52:49.486] invisible(future) 1569s [00:52:49.486] }), .cleanup = FALSE, .init = FALSE) 1569s [00:52:49.486] } 1569s [00:52:49.486] } 1569s [00:52:49.486] } 1569s [00:52:49.486] }) 1569s [00:52:49.486] if (TRUE) { 1569s [00:52:49.486] base::sink(type = "output", split = FALSE) 1569s [00:52:49.486] if (TRUE) { 1569s [00:52:49.486] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1569s [00:52:49.486] } 1569s [00:52:49.486] else { 1569s [00:52:49.486] ...future.result["stdout"] <- base::list(NULL) 1569s [00:52:49.486] } 1569s [00:52:49.486] base::close(...future.stdout) 1569s [00:52:49.486] ...future.stdout <- NULL 1569s [00:52:49.486] } 1569s [00:52:49.486] ...future.result$conditions <- ...future.conditions 1569s [00:52:49.486] ...future.result$finished <- base::Sys.time() 1569s [00:52:49.486] ...future.result 1569s [00:52:49.486] } 1569s [00:52:49.489] assign_globals() ... 1569s [00:52:49.490] List of 5 1569s [00:52:49.490] $ ...future.FUN :function (x) 1569s [00:52:49.490] $ future.call.arguments : list() 1569s [00:52:49.490] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.490] $ ...future.elements_ii :List of 6 1569s [00:52:49.490] ..$ a1: int 1 1569s [00:52:49.490] ..$ a2: int 2 1569s [00:52:49.490] ..$ b1: int 2 1569s [00:52:49.490] ..$ b2: int 3 1569s [00:52:49.490] ..$ c1: int 3 1569s [00:52:49.490] ..$ c2: int 4 1569s [00:52:49.490] $ ...future.seeds_ii : NULL 1569s [00:52:49.490] $ ...future.globals.maxSize: NULL 1569s [00:52:49.490] - attr(*, "where")=List of 5 1569s [00:52:49.490] ..$ ...future.FUN : 1569s [00:52:49.490] ..$ future.call.arguments : 1569s [00:52:49.490] ..$ ...future.elements_ii : 1569s [00:52:49.490] ..$ ...future.seeds_ii : 1569s [00:52:49.490] ..$ ...future.globals.maxSize: 1569s [00:52:49.490] - attr(*, "resolved")= logi FALSE 1569s [00:52:49.490] - attr(*, "total_size")= num 848 1569s [00:52:49.490] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.490] - attr(*, "already-done")= logi TRUE 1569s [00:52:49.498] - copied ‘...future.FUN’ to environment 1569s [00:52:49.498] - copied ‘future.call.arguments’ to environment 1569s [00:52:49.498] - copied ‘...future.elements_ii’ to environment 1569s [00:52:49.498] - copied ‘...future.seeds_ii’ to environment 1569s [00:52:49.498] - copied ‘...future.globals.maxSize’ to environment 1569s [00:52:49.498] assign_globals() ... done 1569s [00:52:49.499] plan(): Setting new future strategy stack: 1569s [00:52:49.499] List of future strategies: 1569s [00:52:49.499] 1. sequential: 1569s [00:52:49.499] - args: function (..., envir = parent.frame()) 1569s [00:52:49.499] - tweaked: FALSE 1569s [00:52:49.499] - call: NULL 1569s [00:52:49.499] plan(): nbrOfWorkers() = 1 1569s [00:52:49.500] plan(): Setting new future strategy stack: 1569s [00:52:49.500] List of future strategies: 1569s [00:52:49.500] 1. sequential: 1569s [00:52:49.500] - args: function (..., envir = parent.frame()) 1569s [00:52:49.500] - tweaked: FALSE 1569s [00:52:49.500] - call: plan(strategy) 1569s [00:52:49.501] plan(): nbrOfWorkers() = 1 1569s [00:52:49.501] SequentialFuture started (and completed) 1569s [00:52:49.501] - Launch lazy future ... done 1569s [00:52:49.501] run() for ‘SequentialFuture’ ... done 1569s [00:52:49.502] Created future: 1569s [00:52:49.502] SequentialFuture: 1569s [00:52:49.502] Label: ‘future_sapply-1’ 1569s [00:52:49.502] Expression: 1569s [00:52:49.502] { 1569s [00:52:49.502] do.call(function(...) { 1569s [00:52:49.502] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.502] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1569s [00:52:49.502] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.502] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.502] } 1569s [00:52:49.502] { 1569s [00:52:49.502] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1569s [00:52:49.502] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.502] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.502] }) 1569s [00:52:49.502] } 1569s [00:52:49.502] }, args = future.call.arguments) 1569s [00:52:49.502] } 1569s [00:52:49.502] Lazy evaluation: FALSE 1569s [00:52:49.502] Asynchronous evaluation: FALSE 1569s [00:52:49.502] Local evaluation: TRUE 1569s [00:52:49.502] Environment: R_GlobalEnv 1569s [00:52:49.502] Capture standard output: TRUE 1569s [00:52:49.502] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1569s [00:52:49.502] Globals: 5 objects totaling 1.16 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1569s [00:52:49.502] Packages: 1569s [00:52:49.502] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1569s [00:52:49.502] Resolved: TRUE 1569s [00:52:49.502] Value: 336 bytes of class ‘list’ 1569s [00:52:49.502] Early signaling: FALSE 1569s [00:52:49.502] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1569s [00:52:49.502] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1569s [00:52:49.503] Chunk #1 of 1 ... DONE 1569s [00:52:49.503] Launching 1 futures (chunks) ... DONE 1569s [00:52:49.504] Resolving 1 futures (chunks) ... 1569s [00:52:49.504] resolve() on list ... 1569s [00:52:49.504] recursive: 0 1569s [00:52:49.504] length: 1 1569s [00:52:49.504] 1569s [00:52:49.504] resolved() for ‘SequentialFuture’ ... 1569s [00:52:49.505] - state: ‘finished’ 1569s [00:52:49.505] - run: TRUE 1569s [00:52:49.505] - result: ‘FutureResult’ 1569s [00:52:49.505] resolved() for ‘SequentialFuture’ ... done 1569s [00:52:49.505] Future #1 1569s [00:52:49.505] signalConditionsASAP(SequentialFuture, pos=1) ... 1569s [00:52:49.506] - nx: 1 1569s [00:52:49.506] - relay: TRUE 1569s [00:52:49.506] - stdout: TRUE 1569s [00:52:49.506] - signal: TRUE 1569s [00:52:49.506] - resignal: FALSE 1569s [00:52:49.506] - force: TRUE 1569s [00:52:49.506] - relayed: [n=1] FALSE 1569s [00:52:49.507] - queued futures: [n=1] FALSE 1569s [00:52:49.507] - until=1 1569s [00:52:49.507] - relaying element #1 1569s [00:52:49.507] - relayed: [n=1] TRUE 1569s [00:52:49.507] - queued futures: [n=1] TRUE 1569s [00:52:49.507] signalConditionsASAP(SequentialFuture, pos=1) ... done 1569s [00:52:49.508] length: 0 (resolved future 1) 1569s [00:52:49.508] Relaying remaining futures 1569s [00:52:49.508] signalConditionsASAP(NULL, pos=0) ... 1569s [00:52:49.508] - nx: 1 1569s [00:52:49.508] - relay: TRUE 1569s [00:52:49.508] - stdout: TRUE 1569s [00:52:49.509] - signal: TRUE 1569s [00:52:49.509] - resignal: FALSE 1569s [00:52:49.509] - force: TRUE 1569s [00:52:49.509] - relayed: [n=1] TRUE 1569s [00:52:49.509] - queued futures: [n=1] TRUE 1569s - flush all 1569s [00:52:49.509] - relayed: [n=1] TRUE 1569s [00:52:49.510] - queued futures: [n=1] TRUE 1569s [00:52:49.510] signalConditionsASAP(NULL, pos=0) ... done 1569s [00:52:49.510] resolve() on list ... DONE 1569s [00:52:49.510] - Number of value chunks collected: 1 1569s [00:52:49.510] Resolving 1 futures (chunks) ... DONE 1569s [00:52:49.510] Reducing values from 1 chunks ... 1569s [00:52:49.511] - Number of values collected after concatenation: 6 1569s [00:52:49.511] - Number of values expected: 6 1569s [00:52:49.511] Reducing values from 1 chunks ... DONE 1569s [00:52:49.511] future_lapply() ... DONE 1569s List of 2 1569s $ y0: Named int [1:6] 1 2 2 3 3 4 1569s ..- attr(*, "names")= chr [1:6] "a1" "a2" "b1" "b2" ... 1569s $ y1: Named int [1:6] 1 2 2 3 3 4 1569s ..- attr(*, "names")= chr [1:6] "a1" "a2" "b1" "b2" ... 1569s [00:52:49.515] future_lapply() ... 1569s [00:52:49.516] Number of chunks: 1 1569s [00:52:49.516] getGlobalsAndPackagesXApply() ... 1569s [00:52:49.516] - future.globals: TRUE 1569s [00:52:49.517] getGlobalsAndPackages() ... 1569s [00:52:49.517] Searching for globals... 1569s [00:52:49.518] - globals found: [2] ‘FUN’, ‘UseMethod’ 1569s [00:52:49.518] Searching for globals ... DONE 1569s [00:52:49.518] Resolving globals: FALSE 1569s [00:52:49.519] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1569s [00:52:49.519] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1569s [00:52:49.519] - globals: [1] ‘FUN’ 1569s [00:52:49.520] 1569s [00:52:49.520] getGlobalsAndPackages() ... DONE 1569s [00:52:49.520] - globals found/used: [n=1] ‘FUN’ 1569s [00:52:49.520] - needed namespaces: [n=0] 1569s [00:52:49.520] Finding globals ... DONE 1569s [00:52:49.520] - use_args: TRUE 1569s [00:52:49.520] - Getting '...' globals ... 1569s [00:52:49.521] resolve() on list ... 1569s [00:52:49.521] recursive: 0 1569s [00:52:49.521] length: 1 1569s [00:52:49.521] elements: ‘...’ 1569s [00:52:49.522] length: 0 (resolved future 1) 1569s [00:52:49.522] resolve() on list ... DONE 1569s [00:52:49.522] - '...' content: [n=0] 1569s [00:52:49.522] List of 1 1569s [00:52:49.522] $ ...: list() 1569s [00:52:49.522] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.522] - attr(*, "where")=List of 1 1569s [00:52:49.522] ..$ ...: 1569s [00:52:49.522] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.522] - attr(*, "resolved")= logi TRUE 1569s [00:52:49.522] - attr(*, "total_size")= num NA 1569s [00:52:49.525] - Getting '...' globals ... DONE 1569s [00:52:49.526] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1569s [00:52:49.526] List of 2 1569s [00:52:49.526] $ ...future.FUN:function (x, ...) 1569s [00:52:49.526] $ ... : list() 1569s [00:52:49.526] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.526] - attr(*, "where")=List of 2 1569s [00:52:49.526] ..$ ...future.FUN: 1569s [00:52:49.526] ..$ ... : 1569s [00:52:49.526] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.526] - attr(*, "resolved")= logi FALSE 1569s [00:52:49.526] - attr(*, "total_size")= num 1248 1569s [00:52:49.529] Packages to be attached in all futures: [n=0] 1569s [00:52:49.529] getGlobalsAndPackagesXApply() ... DONE 1569s [00:52:49.529] Number of futures (= number of chunks): 1 1569s [00:52:49.530] Launching 1 futures (chunks) ... 1569s [00:52:49.530] Chunk #1 of 1 ... 1569s [00:52:49.530] - Finding globals in 'X' for chunk #1 ... 1569s [00:52:49.530] getGlobalsAndPackages() ... 1569s [00:52:49.530] Searching for globals... 1569s [00:52:49.530] 1569s [00:52:49.531] Searching for globals ... DONE 1569s [00:52:49.531] - globals: [0] 1569s [00:52:49.531] getGlobalsAndPackages() ... DONE 1569s [00:52:49.531] + additional globals found: [n=0] 1569s [00:52:49.531] + additional namespaces needed: [n=0] 1569s [00:52:49.531] - Finding globals in 'X' for chunk #1 ... DONE 1569s [00:52:49.531] - seeds: 1569s [00:52:49.531] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:49.531] getGlobalsAndPackages() ... 1569s [00:52:49.532] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:49.532] Resolving globals: FALSE 1569s [00:52:49.532] Tweak future expression to call with '...' arguments ... 1569s [00:52:49.532] { 1569s [00:52:49.532] do.call(function(...) { 1569s [00:52:49.532] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.532] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1569s [00:52:49.532] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.532] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.532] } 1569s [00:52:49.532] { 1569s [00:52:49.532] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1569s [00:52:49.532] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.532] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.532] }) 1569s [00:52:49.532] } 1569s [00:52:49.532] }, args = future.call.arguments) 1569s [00:52:49.532] } 1569s [00:52:49.532] Tweak future expression to call with '...' arguments ... DONE 1569s [00:52:49.533] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:49.533] 1569s [00:52:49.533] getGlobalsAndPackages() ... DONE 1569s [00:52:49.533] run() for ‘Future’ ... 1569s [00:52:49.533] - state: ‘created’ 1569s [00:52:49.533] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1569s [00:52:49.534] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1569s [00:52:49.534] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1569s [00:52:49.534] - Field: ‘label’ 1569s [00:52:49.534] - Field: ‘local’ 1569s [00:52:49.534] - Field: ‘owner’ 1569s [00:52:49.534] - Field: ‘envir’ 1569s [00:52:49.534] - Field: ‘packages’ 1569s [00:52:49.534] - Field: ‘gc’ 1569s [00:52:49.535] - Field: ‘conditions’ 1569s [00:52:49.535] - Field: ‘expr’ 1569s [00:52:49.535] - Field: ‘uuid’ 1569s [00:52:49.535] - Field: ‘seed’ 1569s [00:52:49.535] - Field: ‘version’ 1569s [00:52:49.535] - Field: ‘result’ 1569s [00:52:49.535] - Field: ‘asynchronous’ 1569s [00:52:49.535] - Field: ‘calls’ 1569s [00:52:49.535] - Field: ‘globals’ 1569s [00:52:49.536] - Field: ‘stdout’ 1569s [00:52:49.536] - Field: ‘earlySignal’ 1569s [00:52:49.536] - Field: ‘lazy’ 1569s [00:52:49.536] - Field: ‘state’ 1569s [00:52:49.536] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1569s [00:52:49.536] - Launch lazy future ... 1569s [00:52:49.536] Packages needed by the future expression (n = 0): 1569s [00:52:49.536] Packages needed by future strategies (n = 0): 1569s [00:52:49.537] { 1569s [00:52:49.537] { 1569s [00:52:49.537] { 1569s [00:52:49.537] ...future.startTime <- base::Sys.time() 1569s [00:52:49.537] { 1569s [00:52:49.537] { 1569s [00:52:49.537] { 1569s [00:52:49.537] base::local({ 1569s [00:52:49.537] has_future <- base::requireNamespace("future", 1569s [00:52:49.537] quietly = TRUE) 1569s [00:52:49.537] if (has_future) { 1569s [00:52:49.537] ns <- base::getNamespace("future") 1569s [00:52:49.537] version <- ns[[".package"]][["version"]] 1569s [00:52:49.537] if (is.null(version)) 1569s [00:52:49.537] version <- utils::packageVersion("future") 1569s [00:52:49.537] } 1569s [00:52:49.537] else { 1569s [00:52:49.537] version <- NULL 1569s [00:52:49.537] } 1569s [00:52:49.537] if (!has_future || version < "1.8.0") { 1569s [00:52:49.537] info <- base::c(r_version = base::gsub("R version ", 1569s [00:52:49.537] "", base::R.version$version.string), 1569s [00:52:49.537] platform = base::sprintf("%s (%s-bit)", 1569s [00:52:49.537] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1569s [00:52:49.537] os = base::paste(base::Sys.info()[base::c("sysname", 1569s [00:52:49.537] "release", "version")], collapse = " "), 1569s [00:52:49.537] hostname = base::Sys.info()[["nodename"]]) 1569s [00:52:49.537] info <- base::sprintf("%s: %s", base::names(info), 1569s [00:52:49.537] info) 1569s [00:52:49.537] info <- base::paste(info, collapse = "; ") 1569s [00:52:49.537] if (!has_future) { 1569s [00:52:49.537] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1569s [00:52:49.537] info) 1569s [00:52:49.537] } 1569s [00:52:49.537] else { 1569s [00:52:49.537] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1569s [00:52:49.537] info, version) 1569s [00:52:49.537] } 1569s [00:52:49.537] base::stop(msg) 1569s [00:52:49.537] } 1569s [00:52:49.537] }) 1569s [00:52:49.537] } 1569s [00:52:49.537] options(future.plan = NULL) 1569s [00:52:49.537] Sys.unsetenv("R_FUTURE_PLAN") 1569s [00:52:49.537] future::plan("default", .cleanup = FALSE, .init = FALSE) 1569s [00:52:49.537] } 1569s [00:52:49.537] ...future.workdir <- getwd() 1569s [00:52:49.537] } 1569s [00:52:49.537] ...future.oldOptions <- base::as.list(base::.Options) 1569s [00:52:49.537] ...future.oldEnvVars <- base::Sys.getenv() 1569s [00:52:49.537] } 1569s [00:52:49.537] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1569s [00:52:49.537] future.globals.maxSize = NULL, future.globals.method = NULL, 1569s [00:52:49.537] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1569s [00:52:49.537] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1569s [00:52:49.537] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1569s [00:52:49.537] future.stdout.windows.reencode = NULL, width = 80L) 1569s [00:52:49.537] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1569s [00:52:49.537] base::names(...future.oldOptions)) 1569s [00:52:49.537] } 1569s [00:52:49.537] if (FALSE) { 1569s [00:52:49.537] } 1569s [00:52:49.537] else { 1569s [00:52:49.537] if (TRUE) { 1569s [00:52:49.537] ...future.stdout <- base::rawConnection(base::raw(0L), 1569s [00:52:49.537] open = "w") 1569s [00:52:49.537] } 1569s [00:52:49.537] else { 1569s [00:52:49.537] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1569s [00:52:49.537] windows = "NUL", "/dev/null"), open = "w") 1569s [00:52:49.537] } 1569s [00:52:49.537] base::sink(...future.stdout, type = "output", split = FALSE) 1569s [00:52:49.537] base::on.exit(if (!base::is.null(...future.stdout)) { 1569s [00:52:49.537] base::sink(type = "output", split = FALSE) 1569s [00:52:49.537] base::close(...future.stdout) 1569s [00:52:49.537] }, add = TRUE) 1569s [00:52:49.537] } 1569s [00:52:49.537] ...future.frame <- base::sys.nframe() 1569s [00:52:49.537] ...future.conditions <- base::list() 1569s [00:52:49.537] ...future.rng <- base::globalenv()$.Random.seed 1569s [00:52:49.537] if (FALSE) { 1569s [00:52:49.537] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1569s [00:52:49.537] "...future.value", "...future.globalenv.names", ".Random.seed") 1569s [00:52:49.537] } 1569s [00:52:49.537] ...future.result <- base::tryCatch({ 1569s [00:52:49.537] base::withCallingHandlers({ 1569s [00:52:49.537] ...future.value <- base::withVisible(base::local({ 1569s [00:52:49.537] do.call(function(...) { 1569s [00:52:49.537] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.537] if (!identical(...future.globals.maxSize.org, 1569s [00:52:49.537] ...future.globals.maxSize)) { 1569s [00:52:49.537] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.537] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.537] } 1569s [00:52:49.537] { 1569s [00:52:49.537] lapply(seq_along(...future.elements_ii), 1569s [00:52:49.537] FUN = function(jj) { 1569s [00:52:49.537] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.537] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.537] }) 1569s [00:52:49.537] } 1569s [00:52:49.537] }, args = future.call.arguments) 1569s [00:52:49.537] })) 1569s [00:52:49.537] future::FutureResult(value = ...future.value$value, 1569s [00:52:49.537] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1569s [00:52:49.537] ...future.rng), globalenv = if (FALSE) 1569s [00:52:49.537] list(added = base::setdiff(base::names(base::.GlobalEnv), 1569s [00:52:49.537] ...future.globalenv.names)) 1569s [00:52:49.537] else NULL, started = ...future.startTime, version = "1.8") 1569s [00:52:49.537] }, condition = base::local({ 1569s [00:52:49.537] c <- base::c 1569s [00:52:49.537] inherits <- base::inherits 1569s [00:52:49.537] invokeRestart <- base::invokeRestart 1569s [00:52:49.537] length <- base::length 1569s [00:52:49.537] list <- base::list 1569s [00:52:49.537] seq.int <- base::seq.int 1569s [00:52:49.537] signalCondition <- base::signalCondition 1569s [00:52:49.537] sys.calls <- base::sys.calls 1569s [00:52:49.537] `[[` <- base::`[[` 1569s [00:52:49.537] `+` <- base::`+` 1569s [00:52:49.537] `<<-` <- base::`<<-` 1569s [00:52:49.537] sysCalls <- function(calls = sys.calls(), from = 1L) { 1569s [00:52:49.537] calls[seq.int(from = from + 12L, to = length(calls) - 1569s [00:52:49.537] 3L)] 1569s [00:52:49.537] } 1569s [00:52:49.537] function(cond) { 1569s [00:52:49.537] is_error <- inherits(cond, "error") 1569s [00:52:49.537] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1569s [00:52:49.537] NULL) 1569s [00:52:49.537] if (is_error) { 1569s [00:52:49.537] sessionInformation <- function() { 1569s [00:52:49.537] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1569s [00:52:49.537] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1569s [00:52:49.537] search = base::search(), system = base::Sys.info()) 1569s [00:52:49.537] } 1569s [00:52:49.537] ...future.conditions[[length(...future.conditions) + 1569s [00:52:49.537] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1569s [00:52:49.537] cond$call), session = sessionInformation(), 1569s [00:52:49.537] timestamp = base::Sys.time(), signaled = 0L) 1569s [00:52:49.537] signalCondition(cond) 1569s [00:52:49.537] } 1569s [00:52:49.537] else if (!ignore && TRUE && inherits(cond, c("condition", 1569s [00:52:49.537] "immediateCondition"))) { 1569s [00:52:49.537] signal <- TRUE && inherits(cond, "immediateCondition") 1569s [00:52:49.537] ...future.conditions[[length(...future.conditions) + 1569s [00:52:49.537] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1569s [00:52:49.537] if (TRUE && !signal) { 1569s [00:52:49.537] muffleCondition <- function (cond, pattern = "^muffle") 1569s [00:52:49.537] { 1569s [00:52:49.537] inherits <- base::inherits 1569s [00:52:49.537] invokeRestart <- base::invokeRestart 1569s [00:52:49.537] is.null <- base::is.null 1569s [00:52:49.537] muffled <- FALSE 1569s [00:52:49.537] if (inherits(cond, "message")) { 1569s [00:52:49.537] muffled <- grepl(pattern, "muffleMessage") 1569s [00:52:49.537] if (muffled) 1569s [00:52:49.537] invokeRestart("muffleMessage") 1569s [00:52:49.537] } 1569s [00:52:49.537] else if (inherits(cond, "warning")) { 1569s [00:52:49.537] muffled <- grepl(pattern, "muffleWarning") 1569s [00:52:49.537] if (muffled) 1569s [00:52:49.537] invokeRestart("muffleWarning") 1569s [00:52:49.537] } 1569s [00:52:49.537] else if (inherits(cond, "condition")) { 1569s [00:52:49.537] if (!is.null(pattern)) { 1569s [00:52:49.537] computeRestarts <- base::computeRestarts 1569s [00:52:49.537] grepl <- base::grepl 1569s [00:52:49.537] restarts <- computeRestarts(cond) 1569s [00:52:49.537] for (restart in restarts) { 1569s [00:52:49.537] name <- restart$name 1569s [00:52:49.537] if (is.null(name)) 1569s [00:52:49.537] next 1569s [00:52:49.537] if (!grepl(pattern, name)) 1569s [00:52:49.537] next 1569s [00:52:49.537] invokeRestart(restart) 1569s [00:52:49.537] muffled <- TRUE 1569s [00:52:49.537] break 1569s [00:52:49.537] } 1569s [00:52:49.537] } 1569s [00:52:49.537] } 1569s [00:52:49.537] invisible(muffled) 1569s [00:52:49.537] } 1569s [00:52:49.537] muffleCondition(cond, pattern = "^muffle") 1569s [00:52:49.537] } 1569s [00:52:49.537] } 1569s [00:52:49.537] else { 1569s [00:52:49.537] if (TRUE) { 1569s [00:52:49.537] muffleCondition <- function (cond, pattern = "^muffle") 1569s [00:52:49.537] { 1569s [00:52:49.537] inherits <- base::inherits 1569s [00:52:49.537] invokeRestart <- base::invokeRestart 1569s [00:52:49.537] is.null <- base::is.null 1569s [00:52:49.537] muffled <- FALSE 1569s [00:52:49.537] if (inherits(cond, "message")) { 1569s [00:52:49.537] muffled <- grepl(pattern, "muffleMessage") 1569s [00:52:49.537] if (muffled) 1569s [00:52:49.537] invokeRestart("muffleMessage") 1569s [00:52:49.537] } 1569s [00:52:49.537] else if (inherits(cond, "warning")) { 1569s [00:52:49.537] muffled <- grepl(pattern, "muffleWarning") 1569s [00:52:49.537] if (muffled) 1569s [00:52:49.537] invokeRestart("muffleWarning") 1569s [00:52:49.537] } 1569s [00:52:49.537] else if (inherits(cond, "condition")) { 1569s [00:52:49.537] if (!is.null(pattern)) { 1569s [00:52:49.537] computeRestarts <- base::computeRestarts 1569s [00:52:49.537] grepl <- base::grepl 1569s [00:52:49.537] restarts <- computeRestarts(cond) 1569s [00:52:49.537] for (restart in restarts) { 1569s [00:52:49.537] name <- restart$name 1569s [00:52:49.537] if (is.null(name)) 1569s [00:52:49.537] next 1569s [00:52:49.537] if (!grepl(pattern, name)) 1569s [00:52:49.537] next 1569s [00:52:49.537] invokeRestart(restart) 1569s [00:52:49.537] muffled <- TRUE 1569s [00:52:49.537] break 1569s [00:52:49.537] } 1569s [00:52:49.537] } 1569s [00:52:49.537] } 1569s [00:52:49.537] invisible(muffled) 1569s [00:52:49.537] } 1569s [00:52:49.537] muffleCondition(cond, pattern = "^muffle") 1569s [00:52:49.537] } 1569s [00:52:49.537] } 1569s [00:52:49.537] } 1569s [00:52:49.537] })) 1569s [00:52:49.537] }, error = function(ex) { 1569s [00:52:49.537] base::structure(base::list(value = NULL, visible = NULL, 1569s [00:52:49.537] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1569s [00:52:49.537] ...future.rng), started = ...future.startTime, 1569s [00:52:49.537] finished = Sys.time(), session_uuid = NA_character_, 1569s [00:52:49.537] version = "1.8"), class = "FutureResult") 1569s [00:52:49.537] }, finally = { 1569s [00:52:49.537] if (!identical(...future.workdir, getwd())) 1569s [00:52:49.537] setwd(...future.workdir) 1569s [00:52:49.537] { 1569s [00:52:49.537] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1569s [00:52:49.537] ...future.oldOptions$nwarnings <- NULL 1569s [00:52:49.537] } 1569s [00:52:49.537] base::options(...future.oldOptions) 1569s [00:52:49.537] if (.Platform$OS.type == "windows") { 1569s [00:52:49.537] old_names <- names(...future.oldEnvVars) 1569s [00:52:49.537] envs <- base::Sys.getenv() 1569s [00:52:49.537] names <- names(envs) 1569s [00:52:49.537] common <- intersect(names, old_names) 1569s [00:52:49.537] added <- setdiff(names, old_names) 1569s [00:52:49.537] removed <- setdiff(old_names, names) 1569s [00:52:49.537] changed <- common[...future.oldEnvVars[common] != 1569s [00:52:49.537] envs[common]] 1569s [00:52:49.537] NAMES <- toupper(changed) 1569s [00:52:49.537] args <- list() 1569s [00:52:49.537] for (kk in seq_along(NAMES)) { 1569s [00:52:49.537] name <- changed[[kk]] 1569s [00:52:49.537] NAME <- NAMES[[kk]] 1569s [00:52:49.537] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.537] next 1569s [00:52:49.537] args[[name]] <- ...future.oldEnvVars[[name]] 1569s [00:52:49.537] } 1569s [00:52:49.537] NAMES <- toupper(added) 1569s [00:52:49.537] for (kk in seq_along(NAMES)) { 1569s [00:52:49.537] name <- added[[kk]] 1569s [00:52:49.537] NAME <- NAMES[[kk]] 1569s [00:52:49.537] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.537] next 1569s [00:52:49.537] args[[name]] <- "" 1569s [00:52:49.537] } 1569s [00:52:49.537] NAMES <- toupper(removed) 1569s [00:52:49.537] for (kk in seq_along(NAMES)) { 1569s [00:52:49.537] name <- removed[[kk]] 1569s [00:52:49.537] NAME <- NAMES[[kk]] 1569s [00:52:49.537] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.537] next 1569s [00:52:49.537] args[[name]] <- ...future.oldEnvVars[[name]] 1569s [00:52:49.537] } 1569s [00:52:49.537] if (length(args) > 0) 1569s [00:52:49.537] base::do.call(base::Sys.setenv, args = args) 1569s [00:52:49.537] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1569s [00:52:49.537] } 1569s [00:52:49.537] else { 1569s [00:52:49.537] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1569s [00:52:49.537] } 1569s [00:52:49.537] { 1569s [00:52:49.537] if (base::length(...future.futureOptionsAdded) > 1569s [00:52:49.537] 0L) { 1569s [00:52:49.537] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1569s [00:52:49.537] base::names(opts) <- ...future.futureOptionsAdded 1569s [00:52:49.537] base::options(opts) 1569s [00:52:49.537] } 1569s [00:52:49.537] { 1569s [00:52:49.537] { 1569s [00:52:49.537] NULL 1569s [00:52:49.537] RNGkind("Mersenne-Twister") 1569s [00:52:49.537] base::rm(list = ".Random.seed", envir = base::globalenv(), 1569s [00:52:49.537] inherits = FALSE) 1569s [00:52:49.537] } 1569s [00:52:49.537] options(future.plan = NULL) 1569s [00:52:49.537] if (is.na(NA_character_)) 1569s [00:52:49.537] Sys.unsetenv("R_FUTURE_PLAN") 1569s [00:52:49.537] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1569s [00:52:49.537] future::plan(list(function (..., envir = parent.frame()) 1569s [00:52:49.537] { 1569s [00:52:49.537] future <- SequentialFuture(..., envir = envir) 1569s [00:52:49.537] if (!future$lazy) 1569s [00:52:49.537] future <- run(future) 1569s [00:52:49.537] invisible(future) 1569s [00:52:49.537] }), .cleanup = FALSE, .init = FALSE) 1569s [00:52:49.537] } 1569s [00:52:49.537] } 1569s [00:52:49.537] } 1569s [00:52:49.537] }) 1569s [00:52:49.537] if (TRUE) { 1569s [00:52:49.537] base::sink(type = "output", split = FALSE) 1569s [00:52:49.537] if (TRUE) { 1569s [00:52:49.537] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1569s [00:52:49.537] } 1569s [00:52:49.537] else { 1569s [00:52:49.537] ...future.result["stdout"] <- base::list(NULL) 1569s [00:52:49.537] } 1569s [00:52:49.537] base::close(...future.stdout) 1569s [00:52:49.537] ...future.stdout <- NULL 1569s [00:52:49.537] } 1569s [00:52:49.537] ...future.result$conditions <- ...future.conditions 1569s [00:52:49.537] ...future.result$finished <- base::Sys.time() 1569s [00:52:49.537] ...future.result 1569s [00:52:49.537] } 1569s [00:52:49.539] assign_globals() ... 1569s [00:52:49.540] List of 5 1569s [00:52:49.540] $ ...future.FUN :function (x, ...) 1569s [00:52:49.540] $ future.call.arguments : list() 1569s [00:52:49.540] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.540] $ ...future.elements_ii :List of 6 1569s [00:52:49.540] ..$ a1: int 1 1569s [00:52:49.540] ..$ a2: int 2 1569s [00:52:49.540] ..$ b1: int 2 1569s [00:52:49.540] ..$ b2: int 3 1569s [00:52:49.540] ..$ c1: int 3 1569s [00:52:49.540] ..$ c2: int 4 1569s [00:52:49.540] $ ...future.seeds_ii : NULL 1569s [00:52:49.540] $ ...future.globals.maxSize: NULL 1569s [00:52:49.540] - attr(*, "where")=List of 5 1569s [00:52:49.540] ..$ ...future.FUN : 1569s [00:52:49.540] ..$ future.call.arguments : 1569s [00:52:49.540] ..$ ...future.elements_ii : 1569s [00:52:49.540] ..$ ...future.seeds_ii : 1569s [00:52:49.540] ..$ ...future.globals.maxSize: 1569s [00:52:49.540] - attr(*, "resolved")= logi FALSE 1569s [00:52:49.540] - attr(*, "total_size")= num 1248 1569s [00:52:49.540] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.540] - attr(*, "already-done")= logi TRUE 1569s [00:52:49.549] - copied ‘...future.FUN’ to environment 1569s [00:52:49.549] - copied ‘future.call.arguments’ to environment 1569s [00:52:49.549] - copied ‘...future.elements_ii’ to environment 1569s [00:52:49.549] - copied ‘...future.seeds_ii’ to environment 1569s [00:52:49.549] - copied ‘...future.globals.maxSize’ to environment 1569s [00:52:49.549] assign_globals() ... done 1569s [00:52:49.550] plan(): Setting new future strategy stack: 1569s [00:52:49.550] List of future strategies: 1569s [00:52:49.550] 1. sequential: 1569s [00:52:49.550] - args: function (..., envir = parent.frame()) 1569s [00:52:49.550] - tweaked: FALSE 1569s [00:52:49.550] - call: NULL 1569s [00:52:49.550] plan(): nbrOfWorkers() = 1 1569s [00:52:49.551] plan(): Setting new future strategy stack: 1569s [00:52:49.551] List of future strategies: 1569s [00:52:49.551] 1. sequential: 1569s [00:52:49.551] - args: function (..., envir = parent.frame()) 1569s [00:52:49.551] - tweaked: FALSE 1569s [00:52:49.551] - call: plan(strategy) 1569s [00:52:49.552] plan(): nbrOfWorkers() = 1 1569s [00:52:49.552] SequentialFuture started (and completed) 1569s [00:52:49.552] - Launch lazy future ... done 1569s [00:52:49.552] run() for ‘SequentialFuture’ ... done 1569s [00:52:49.552] Created future: 1569s [00:52:49.552] SequentialFuture: 1569s [00:52:49.552] Label: ‘future_sapply-1’ 1569s [00:52:49.552] Expression: 1569s [00:52:49.552] { 1569s [00:52:49.552] do.call(function(...) { 1569s [00:52:49.552] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.552] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1569s [00:52:49.552] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.552] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.552] } 1569s [00:52:49.552] { 1569s [00:52:49.552] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1569s [00:52:49.552] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.552] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.552] }) 1569s [00:52:49.552] } 1569s [00:52:49.552] }, args = future.call.arguments) 1569s [00:52:49.552] } 1569s [00:52:49.552] Lazy evaluation: FALSE 1569s [00:52:49.552] Asynchronous evaluation: FALSE 1569s [00:52:49.552] Local evaluation: TRUE 1569s [00:52:49.552] Environment: R_GlobalEnv 1569s [00:52:49.552] Capture standard output: TRUE 1569s [00:52:49.552] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1569s [00:52:49.552] Globals: 5 objects totaling 1.55 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1569s [00:52:49.552] Packages: 1569s [00:52:49.552] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1569s [00:52:49.552] Resolved: TRUE 1569s [00:52:49.552] Value: 1.31 KiB of class ‘list’ 1569s [00:52:49.552] Early signaling: FALSE 1569s [00:52:49.552] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1569s [00:52:49.552] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1569s [00:52:49.554] Chunk #1 of 1 ... DONE 1569s [00:52:49.554] Launching 1 futures (chunks) ... DONE 1569s [00:52:49.554] Resolving 1 futures (chunks) ... 1569s [00:52:49.554] resolve() on list ... 1569s [00:52:49.555] recursive: 0 1569s [00:52:49.555] length: 1 1569s [00:52:49.555] 1569s [00:52:49.555] resolved() for ‘SequentialFuture’ ... 1569s [00:52:49.555] - state: ‘finished’ 1569s [00:52:49.555] - run: TRUE 1569s [00:52:49.555] - result: ‘FutureResult’ 1569s [00:52:49.556] resolved() for ‘SequentialFuture’ ... done 1569s [00:52:49.556] Future #1 1569s [00:52:49.556] signalConditionsASAP(SequentialFuture, pos=1) ... 1569s [00:52:49.556] - nx: 1 1569s [00:52:49.556] - relay: TRUE 1569s [00:52:49.556] - stdout: TRUE 1569s [00:52:49.556] - signal: TRUE 1569s [00:52:49.557] - resignal: FALSE 1569s [00:52:49.557] - force: TRUE 1569s [00:52:49.557] - relayed: [n=1] FALSE 1569s [00:52:49.557] - queued futures: [n=1] FALSE 1569s [00:52:49.557] - until=1 1569s [00:52:49.557] - relaying element #1 1569s [00:52:49.558] - relayed: [n=1] TRUE 1569s [00:52:49.558] - queued futures: [n=1] TRUE 1569s [00:52:49.558] signalConditionsASAP(SequentialFuture, pos=1) ... done 1569s List of 2 1569s [00:52:49.558] length: 0 (resolved future 1) 1569s [00:52:49.558] Relaying remaining futures 1569s [00:52:49.558] signalConditionsASAP(NULL, pos=0) ... 1569s [00:52:49.558] - nx: 1 1569s [00:52:49.559] - relay: TRUE 1569s [00:52:49.559] - stdout: TRUE 1569s [00:52:49.559] - signal: TRUE 1569s [00:52:49.559] - resignal: FALSE 1569s [00:52:49.559] - force: TRUE 1569s [00:52:49.559] - relayed: [n=1] TRUE 1569s [00:52:49.559] - queued futures: [n=1] TRUE 1569s - flush all 1569s [00:52:49.560] - relayed: [n=1] TRUE 1569s [00:52:49.560] - queued futures: [n=1] TRUE 1569s [00:52:49.560] signalConditionsASAP(NULL, pos=0) ... done 1569s [00:52:49.560] resolve() on list ... DONE 1569s [00:52:49.560] - Number of value chunks collected: 1 1569s [00:52:49.560] Resolving 1 futures (chunks) ... DONE 1569s [00:52:49.561] Reducing values from 1 chunks ... 1569s [00:52:49.561] - Number of values collected after concatenation: 6 1569s [00:52:49.561] - Number of values expected: 6 1569s [00:52:49.561] Reducing values from 1 chunks ... DONE 1569s [00:52:49.561] future_lapply() ... DONE 1569s $ y0: Named int [1:6] 1 2 2 3 3 4 1569s ..- attr(*, "names")= chr [1:6] "a1" "a2" "b1" "b2" ... 1569s $ y1: Named int [1:6] 1 2 2 3 3 4 1569s ..- attr(*, "names")= chr [1:6] "a1" "a2" "b1" "b2" ... 1569s [00:52:49.564] future_lapply() ... 1569s [00:52:49.565] Number of chunks: 1 1569s [00:52:49.565] getGlobalsAndPackagesXApply() ... 1569s [00:52:49.565] - future.globals: TRUE 1569s [00:52:49.565] getGlobalsAndPackages() ... 1569s [00:52:49.565] Searching for globals... 1569s [00:52:49.567] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1569s [00:52:49.567] Searching for globals ... DONE 1569s [00:52:49.567] Resolving globals: FALSE 1569s [00:52:49.568] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1569s [00:52:49.568] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1569s [00:52:49.568] - globals: [1] ‘FUN’ 1569s [00:52:49.569] 1569s [00:52:49.569] getGlobalsAndPackages() ... DONE 1569s [00:52:49.569] - globals found/used: [n=1] ‘FUN’ 1569s [00:52:49.569] - needed namespaces: [n=0] 1569s [00:52:49.569] Finding globals ... DONE 1569s [00:52:49.569] - use_args: TRUE 1569s [00:52:49.570] - Getting '...' globals ... 1569s [00:52:49.570] resolve() on list ... 1569s [00:52:49.570] recursive: 0 1569s [00:52:49.570] length: 1 1569s [00:52:49.570] elements: ‘...’ 1569s [00:52:49.571] length: 0 (resolved future 1) 1569s [00:52:49.571] resolve() on list ... DONE 1569s [00:52:49.571] - '...' content: [n=0] 1569s [00:52:49.571] List of 1 1569s [00:52:49.571] $ ...: list() 1569s [00:52:49.571] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.571] - attr(*, "where")=List of 1 1569s [00:52:49.571] ..$ ...: 1569s [00:52:49.571] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.571] - attr(*, "resolved")= logi TRUE 1569s [00:52:49.571] - attr(*, "total_size")= num NA 1569s [00:52:49.574] - Getting '...' globals ... DONE 1569s [00:52:49.574] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1569s [00:52:49.574] List of 2 1569s [00:52:49.574] $ ...future.FUN:function (x, y = 2 * 1:5) 1569s [00:52:49.574] $ ... : list() 1569s [00:52:49.574] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.574] - attr(*, "where")=List of 2 1569s [00:52:49.574] ..$ ...future.FUN: 1569s [00:52:49.574] ..$ ... : 1569s [00:52:49.574] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.574] - attr(*, "resolved")= logi FALSE 1569s [00:52:49.574] - attr(*, "total_size")= num 4728 1569s [00:52:49.579] Packages to be attached in all futures: [n=0] 1569s [00:52:49.579] getGlobalsAndPackagesXApply() ... DONE 1569s [00:52:49.579] Number of futures (= number of chunks): 1 1569s [00:52:49.579] Launching 1 futures (chunks) ... 1569s [00:52:49.579] Chunk #1 of 1 ... 1569s [00:52:49.579] - Finding globals in 'X' for chunk #1 ... 1569s [00:52:49.579] getGlobalsAndPackages() ... 1569s [00:52:49.580] Searching for globals... 1569s [00:52:49.580] 1569s [00:52:49.580] Searching for globals ... DONE 1569s [00:52:49.580] - globals: [0] 1569s [00:52:49.580] getGlobalsAndPackages() ... DONE 1569s [00:52:49.580] + additional globals found: [n=0] 1569s [00:52:49.581] + additional namespaces needed: [n=0] 1569s [00:52:49.581] - Finding globals in 'X' for chunk #1 ... DONE 1569s [00:52:49.581] - seeds: 1569s [00:52:49.581] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:49.581] getGlobalsAndPackages() ... 1569s [00:52:49.581] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:49.582] Resolving globals: FALSE 1569s [00:52:49.582] Tweak future expression to call with '...' arguments ... 1569s [00:52:49.582] { 1569s [00:52:49.582] do.call(function(...) { 1569s [00:52:49.582] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.582] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1569s [00:52:49.582] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.582] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.582] } 1569s [00:52:49.582] { 1569s [00:52:49.582] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1569s [00:52:49.582] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.582] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.582] }) 1569s [00:52:49.582] } 1569s [00:52:49.582] }, args = future.call.arguments) 1569s [00:52:49.582] } 1569s [00:52:49.582] Tweak future expression to call with '...' arguments ... DONE 1569s [00:52:49.583] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:49.583] 1569s [00:52:49.583] getGlobalsAndPackages() ... DONE 1569s [00:52:49.584] run() for ‘Future’ ... 1569s [00:52:49.584] - state: ‘created’ 1569s [00:52:49.584] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1569s [00:52:49.584] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1569s [00:52:49.584] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1569s [00:52:49.585] - Field: ‘label’ 1569s [00:52:49.585] - Field: ‘local’ 1569s [00:52:49.585] - Field: ‘owner’ 1569s [00:52:49.585] - Field: ‘envir’ 1569s [00:52:49.585] - Field: ‘packages’ 1569s [00:52:49.585] - Field: ‘gc’ 1569s [00:52:49.585] - Field: ‘conditions’ 1569s [00:52:49.586] - Field: ‘expr’ 1569s [00:52:49.586] - Field: ‘uuid’ 1569s [00:52:49.586] - Field: ‘seed’ 1569s [00:52:49.586] - Field: ‘version’ 1569s [00:52:49.586] - Field: ‘result’ 1569s [00:52:49.586] - Field: ‘asynchronous’ 1569s [00:52:49.586] - Field: ‘calls’ 1569s [00:52:49.587] - Field: ‘globals’ 1569s [00:52:49.587] - Field: ‘stdout’ 1569s [00:52:49.587] - Field: ‘earlySignal’ 1569s [00:52:49.587] - Field: ‘lazy’ 1569s [00:52:49.587] - Field: ‘state’ 1569s [00:52:49.588] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1569s [00:52:49.588] - Launch lazy future ... 1569s [00:52:49.588] Packages needed by the future expression (n = 0): 1569s [00:52:49.588] Packages needed by future strategies (n = 0): 1569s [00:52:49.589] { 1569s [00:52:49.589] { 1569s [00:52:49.589] { 1569s [00:52:49.589] ...future.startTime <- base::Sys.time() 1569s [00:52:49.589] { 1569s [00:52:49.589] { 1569s [00:52:49.589] { 1569s [00:52:49.589] base::local({ 1569s [00:52:49.589] has_future <- base::requireNamespace("future", 1569s [00:52:49.589] quietly = TRUE) 1569s [00:52:49.589] if (has_future) { 1569s [00:52:49.589] ns <- base::getNamespace("future") 1569s [00:52:49.589] version <- ns[[".package"]][["version"]] 1569s [00:52:49.589] if (is.null(version)) 1569s [00:52:49.589] version <- utils::packageVersion("future") 1569s [00:52:49.589] } 1569s [00:52:49.589] else { 1569s [00:52:49.589] version <- NULL 1569s [00:52:49.589] } 1569s [00:52:49.589] if (!has_future || version < "1.8.0") { 1569s [00:52:49.589] info <- base::c(r_version = base::gsub("R version ", 1569s [00:52:49.589] "", base::R.version$version.string), 1569s [00:52:49.589] platform = base::sprintf("%s (%s-bit)", 1569s [00:52:49.589] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1569s [00:52:49.589] os = base::paste(base::Sys.info()[base::c("sysname", 1569s [00:52:49.589] "release", "version")], collapse = " "), 1569s [00:52:49.589] hostname = base::Sys.info()[["nodename"]]) 1569s [00:52:49.589] info <- base::sprintf("%s: %s", base::names(info), 1569s [00:52:49.589] info) 1569s [00:52:49.589] info <- base::paste(info, collapse = "; ") 1569s [00:52:49.589] if (!has_future) { 1569s [00:52:49.589] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1569s [00:52:49.589] info) 1569s [00:52:49.589] } 1569s [00:52:49.589] else { 1569s [00:52:49.589] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1569s [00:52:49.589] info, version) 1569s [00:52:49.589] } 1569s [00:52:49.589] base::stop(msg) 1569s [00:52:49.589] } 1569s [00:52:49.589] }) 1569s [00:52:49.589] } 1569s [00:52:49.589] options(future.plan = NULL) 1569s [00:52:49.589] Sys.unsetenv("R_FUTURE_PLAN") 1569s [00:52:49.589] future::plan("default", .cleanup = FALSE, .init = FALSE) 1569s [00:52:49.589] } 1569s [00:52:49.589] ...future.workdir <- getwd() 1569s [00:52:49.589] } 1569s [00:52:49.589] ...future.oldOptions <- base::as.list(base::.Options) 1569s [00:52:49.589] ...future.oldEnvVars <- base::Sys.getenv() 1569s [00:52:49.589] } 1569s [00:52:49.589] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1569s [00:52:49.589] future.globals.maxSize = NULL, future.globals.method = NULL, 1569s [00:52:49.589] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1569s [00:52:49.589] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1569s [00:52:49.589] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1569s [00:52:49.589] future.stdout.windows.reencode = NULL, width = 80L) 1569s [00:52:49.589] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1569s [00:52:49.589] base::names(...future.oldOptions)) 1569s [00:52:49.589] } 1569s [00:52:49.589] if (FALSE) { 1569s [00:52:49.589] } 1569s [00:52:49.589] else { 1569s [00:52:49.589] if (TRUE) { 1569s [00:52:49.589] ...future.stdout <- base::rawConnection(base::raw(0L), 1569s [00:52:49.589] open = "w") 1569s [00:52:49.589] } 1569s [00:52:49.589] else { 1569s [00:52:49.589] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1569s [00:52:49.589] windows = "NUL", "/dev/null"), open = "w") 1569s [00:52:49.589] } 1569s [00:52:49.589] base::sink(...future.stdout, type = "output", split = FALSE) 1569s [00:52:49.589] base::on.exit(if (!base::is.null(...future.stdout)) { 1569s [00:52:49.589] base::sink(type = "output", split = FALSE) 1569s [00:52:49.589] base::close(...future.stdout) 1569s [00:52:49.589] }, add = TRUE) 1569s [00:52:49.589] } 1569s [00:52:49.589] ...future.frame <- base::sys.nframe() 1569s [00:52:49.589] ...future.conditions <- base::list() 1569s [00:52:49.589] ...future.rng <- base::globalenv()$.Random.seed 1569s [00:52:49.589] if (FALSE) { 1569s [00:52:49.589] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1569s [00:52:49.589] "...future.value", "...future.globalenv.names", ".Random.seed") 1569s [00:52:49.589] } 1569s [00:52:49.589] ...future.result <- base::tryCatch({ 1569s [00:52:49.589] base::withCallingHandlers({ 1569s [00:52:49.589] ...future.value <- base::withVisible(base::local({ 1569s [00:52:49.589] do.call(function(...) { 1569s [00:52:49.589] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.589] if (!identical(...future.globals.maxSize.org, 1569s [00:52:49.589] ...future.globals.maxSize)) { 1569s [00:52:49.589] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.589] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.589] } 1569s [00:52:49.589] { 1569s [00:52:49.589] lapply(seq_along(...future.elements_ii), 1569s [00:52:49.589] FUN = function(jj) { 1569s [00:52:49.589] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.589] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.589] }) 1569s [00:52:49.589] } 1569s [00:52:49.589] }, args = future.call.arguments) 1569s [00:52:49.589] })) 1569s [00:52:49.589] future::FutureResult(value = ...future.value$value, 1569s [00:52:49.589] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1569s [00:52:49.589] ...future.rng), globalenv = if (FALSE) 1569s [00:52:49.589] list(added = base::setdiff(base::names(base::.GlobalEnv), 1569s [00:52:49.589] ...future.globalenv.names)) 1569s [00:52:49.589] else NULL, started = ...future.startTime, version = "1.8") 1569s [00:52:49.589] }, condition = base::local({ 1569s [00:52:49.589] c <- base::c 1569s [00:52:49.589] inherits <- base::inherits 1569s [00:52:49.589] invokeRestart <- base::invokeRestart 1569s [00:52:49.589] length <- base::length 1569s [00:52:49.589] list <- base::list 1569s [00:52:49.589] seq.int <- base::seq.int 1569s [00:52:49.589] signalCondition <- base::signalCondition 1569s [00:52:49.589] sys.calls <- base::sys.calls 1569s [00:52:49.589] `[[` <- base::`[[` 1569s [00:52:49.589] `+` <- base::`+` 1569s [00:52:49.589] `<<-` <- base::`<<-` 1569s [00:52:49.589] sysCalls <- function(calls = sys.calls(), from = 1L) { 1569s [00:52:49.589] calls[seq.int(from = from + 12L, to = length(calls) - 1569s [00:52:49.589] 3L)] 1569s [00:52:49.589] } 1569s [00:52:49.589] function(cond) { 1569s [00:52:49.589] is_error <- inherits(cond, "error") 1569s [00:52:49.589] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1569s [00:52:49.589] NULL) 1569s [00:52:49.589] if (is_error) { 1569s [00:52:49.589] sessionInformation <- function() { 1569s [00:52:49.589] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1569s [00:52:49.589] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1569s [00:52:49.589] search = base::search(), system = base::Sys.info()) 1569s [00:52:49.589] } 1569s [00:52:49.589] ...future.conditions[[length(...future.conditions) + 1569s [00:52:49.589] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1569s [00:52:49.589] cond$call), session = sessionInformation(), 1569s [00:52:49.589] timestamp = base::Sys.time(), signaled = 0L) 1569s [00:52:49.589] signalCondition(cond) 1569s [00:52:49.589] } 1569s [00:52:49.589] else if (!ignore && TRUE && inherits(cond, c("condition", 1569s [00:52:49.589] "immediateCondition"))) { 1569s [00:52:49.589] signal <- TRUE && inherits(cond, "immediateCondition") 1569s [00:52:49.589] ...future.conditions[[length(...future.conditions) + 1569s [00:52:49.589] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1569s [00:52:49.589] if (TRUE && !signal) { 1569s [00:52:49.589] muffleCondition <- function (cond, pattern = "^muffle") 1569s [00:52:49.589] { 1569s [00:52:49.589] inherits <- base::inherits 1569s [00:52:49.589] invokeRestart <- base::invokeRestart 1569s [00:52:49.589] is.null <- base::is.null 1569s [00:52:49.589] muffled <- FALSE 1569s [00:52:49.589] if (inherits(cond, "message")) { 1569s [00:52:49.589] muffled <- grepl(pattern, "muffleMessage") 1569s [00:52:49.589] if (muffled) 1569s [00:52:49.589] invokeRestart("muffleMessage") 1569s [00:52:49.589] } 1569s [00:52:49.589] else if (inherits(cond, "warning")) { 1569s [00:52:49.589] muffled <- grepl(pattern, "muffleWarning") 1569s [00:52:49.589] if (muffled) 1569s [00:52:49.589] invokeRestart("muffleWarning") 1569s [00:52:49.589] } 1569s [00:52:49.589] else if (inherits(cond, "condition")) { 1569s [00:52:49.589] if (!is.null(pattern)) { 1569s [00:52:49.589] computeRestarts <- base::computeRestarts 1569s [00:52:49.589] grepl <- base::grepl 1569s [00:52:49.589] restarts <- computeRestarts(cond) 1569s [00:52:49.589] for (restart in restarts) { 1569s [00:52:49.589] name <- restart$name 1569s [00:52:49.589] if (is.null(name)) 1569s [00:52:49.589] next 1569s [00:52:49.589] if (!grepl(pattern, name)) 1569s [00:52:49.589] next 1569s [00:52:49.589] invokeRestart(restart) 1569s [00:52:49.589] muffled <- TRUE 1569s [00:52:49.589] break 1569s [00:52:49.589] } 1569s [00:52:49.589] } 1569s [00:52:49.589] } 1569s [00:52:49.589] invisible(muffled) 1569s [00:52:49.589] } 1569s [00:52:49.589] muffleCondition(cond, pattern = "^muffle") 1569s [00:52:49.589] } 1569s [00:52:49.589] } 1569s [00:52:49.589] else { 1569s [00:52:49.589] if (TRUE) { 1569s [00:52:49.589] muffleCondition <- function (cond, pattern = "^muffle") 1569s [00:52:49.589] { 1569s [00:52:49.589] inherits <- base::inherits 1569s [00:52:49.589] invokeRestart <- base::invokeRestart 1569s [00:52:49.589] is.null <- base::is.null 1569s [00:52:49.589] muffled <- FALSE 1569s [00:52:49.589] if (inherits(cond, "message")) { 1569s [00:52:49.589] muffled <- grepl(pattern, "muffleMessage") 1569s [00:52:49.589] if (muffled) 1569s [00:52:49.589] invokeRestart("muffleMessage") 1569s [00:52:49.589] } 1569s [00:52:49.589] else if (inherits(cond, "warning")) { 1569s [00:52:49.589] muffled <- grepl(pattern, "muffleWarning") 1569s [00:52:49.589] if (muffled) 1569s [00:52:49.589] invokeRestart("muffleWarning") 1569s [00:52:49.589] } 1569s [00:52:49.589] else if (inherits(cond, "condition")) { 1569s [00:52:49.589] if (!is.null(pattern)) { 1569s [00:52:49.589] computeRestarts <- base::computeRestarts 1569s [00:52:49.589] grepl <- base::grepl 1569s [00:52:49.589] restarts <- computeRestarts(cond) 1569s [00:52:49.589] for (restart in restarts) { 1569s [00:52:49.589] name <- restart$name 1569s [00:52:49.589] if (is.null(name)) 1569s [00:52:49.589] next 1569s [00:52:49.589] if (!grepl(pattern, name)) 1569s [00:52:49.589] next 1569s [00:52:49.589] invokeRestart(restart) 1569s [00:52:49.589] muffled <- TRUE 1569s [00:52:49.589] break 1569s [00:52:49.589] } 1569s [00:52:49.589] } 1569s [00:52:49.589] } 1569s [00:52:49.589] invisible(muffled) 1569s [00:52:49.589] } 1569s [00:52:49.589] muffleCondition(cond, pattern = "^muffle") 1569s [00:52:49.589] } 1569s [00:52:49.589] } 1569s [00:52:49.589] } 1569s [00:52:49.589] })) 1569s [00:52:49.589] }, error = function(ex) { 1569s [00:52:49.589] base::structure(base::list(value = NULL, visible = NULL, 1569s [00:52:49.589] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1569s [00:52:49.589] ...future.rng), started = ...future.startTime, 1569s [00:52:49.589] finished = Sys.time(), session_uuid = NA_character_, 1569s [00:52:49.589] version = "1.8"), class = "FutureResult") 1569s [00:52:49.589] }, finally = { 1569s [00:52:49.589] if (!identical(...future.workdir, getwd())) 1569s [00:52:49.589] setwd(...future.workdir) 1569s [00:52:49.589] { 1569s [00:52:49.589] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1569s [00:52:49.589] ...future.oldOptions$nwarnings <- NULL 1569s [00:52:49.589] } 1569s [00:52:49.589] base::options(...future.oldOptions) 1569s [00:52:49.589] if (.Platform$OS.type == "windows") { 1569s [00:52:49.589] old_names <- names(...future.oldEnvVars) 1569s [00:52:49.589] envs <- base::Sys.getenv() 1569s [00:52:49.589] names <- names(envs) 1569s [00:52:49.589] common <- intersect(names, old_names) 1569s [00:52:49.589] added <- setdiff(names, old_names) 1569s [00:52:49.589] removed <- setdiff(old_names, names) 1569s [00:52:49.589] changed <- common[...future.oldEnvVars[common] != 1569s [00:52:49.589] envs[common]] 1569s [00:52:49.589] NAMES <- toupper(changed) 1569s [00:52:49.589] args <- list() 1569s [00:52:49.589] for (kk in seq_along(NAMES)) { 1569s [00:52:49.589] name <- changed[[kk]] 1569s [00:52:49.589] NAME <- NAMES[[kk]] 1569s [00:52:49.589] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.589] next 1569s [00:52:49.589] args[[name]] <- ...future.oldEnvVars[[name]] 1569s [00:52:49.589] } 1569s [00:52:49.589] NAMES <- toupper(added) 1569s [00:52:49.589] for (kk in seq_along(NAMES)) { 1569s [00:52:49.589] name <- added[[kk]] 1569s [00:52:49.589] NAME <- NAMES[[kk]] 1569s [00:52:49.589] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.589] next 1569s [00:52:49.589] args[[name]] <- "" 1569s [00:52:49.589] } 1569s [00:52:49.589] NAMES <- toupper(removed) 1569s [00:52:49.589] for (kk in seq_along(NAMES)) { 1569s [00:52:49.589] name <- removed[[kk]] 1569s [00:52:49.589] NAME <- NAMES[[kk]] 1569s [00:52:49.589] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.589] next 1569s [00:52:49.589] args[[name]] <- ...future.oldEnvVars[[name]] 1569s [00:52:49.589] } 1569s [00:52:49.589] if (length(args) > 0) 1569s [00:52:49.589] base::do.call(base::Sys.setenv, args = args) 1569s [00:52:49.589] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1569s [00:52:49.589] } 1569s [00:52:49.589] else { 1569s [00:52:49.589] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1569s [00:52:49.589] } 1569s [00:52:49.589] { 1569s [00:52:49.589] if (base::length(...future.futureOptionsAdded) > 1569s [00:52:49.589] 0L) { 1569s [00:52:49.589] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1569s [00:52:49.589] base::names(opts) <- ...future.futureOptionsAdded 1569s [00:52:49.589] base::options(opts) 1569s [00:52:49.589] } 1569s [00:52:49.589] { 1569s [00:52:49.589] { 1569s [00:52:49.589] NULL 1569s [00:52:49.589] RNGkind("Mersenne-Twister") 1569s [00:52:49.589] base::rm(list = ".Random.seed", envir = base::globalenv(), 1569s [00:52:49.589] inherits = FALSE) 1569s [00:52:49.589] } 1569s [00:52:49.589] options(future.plan = NULL) 1569s [00:52:49.589] if (is.na(NA_character_)) 1569s [00:52:49.589] Sys.unsetenv("R_FUTURE_PLAN") 1569s [00:52:49.589] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1569s [00:52:49.589] future::plan(list(function (..., envir = parent.frame()) 1569s [00:52:49.589] { 1569s [00:52:49.589] future <- SequentialFuture(..., envir = envir) 1569s [00:52:49.589] if (!future$lazy) 1569s [00:52:49.589] future <- run(future) 1569s [00:52:49.589] invisible(future) 1569s [00:52:49.589] }), .cleanup = FALSE, .init = FALSE) 1569s [00:52:49.589] } 1569s [00:52:49.589] } 1569s [00:52:49.589] } 1569s [00:52:49.589] }) 1569s [00:52:49.589] if (TRUE) { 1569s [00:52:49.589] base::sink(type = "output", split = FALSE) 1569s [00:52:49.589] if (TRUE) { 1569s [00:52:49.589] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1569s [00:52:49.589] } 1569s [00:52:49.589] else { 1569s [00:52:49.589] ...future.result["stdout"] <- base::list(NULL) 1569s [00:52:49.589] } 1569s [00:52:49.589] base::close(...future.stdout) 1569s [00:52:49.589] ...future.stdout <- NULL 1569s [00:52:49.589] } 1569s [00:52:49.589] ...future.result$conditions <- ...future.conditions 1569s [00:52:49.589] ...future.result$finished <- base::Sys.time() 1569s [00:52:49.589] ...future.result 1569s [00:52:49.589] } 1569s [00:52:49.596] assign_globals() ... 1569s [00:52:49.596] List of 5 1569s [00:52:49.596] $ ...future.FUN :function (x, y = 2 * 1:5) 1569s [00:52:49.596] $ future.call.arguments : list() 1569s [00:52:49.596] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.596] $ ...future.elements_ii :List of 6 1569s [00:52:49.596] ..$ a1: int 1 1569s [00:52:49.596] ..$ a2: int 2 1569s [00:52:49.596] ..$ b1: int 2 1569s [00:52:49.596] ..$ b2: int 3 1569s [00:52:49.596] ..$ c1: int 3 1569s [00:52:49.596] ..$ c2: int 4 1569s [00:52:49.596] $ ...future.seeds_ii : NULL 1569s [00:52:49.596] $ ...future.globals.maxSize: NULL 1569s [00:52:49.596] - attr(*, "where")=List of 5 1569s [00:52:49.596] ..$ ...future.FUN : 1569s [00:52:49.596] ..$ future.call.arguments : 1569s [00:52:49.596] ..$ ...future.elements_ii : 1569s [00:52:49.596] ..$ ...future.seeds_ii : 1569s [00:52:49.596] ..$ ...future.globals.maxSize: 1569s [00:52:49.596] - attr(*, "resolved")= logi FALSE 1569s [00:52:49.596] - attr(*, "total_size")= num 4728 1569s [00:52:49.596] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.596] - attr(*, "already-done")= logi TRUE 1569s [00:52:49.603] - reassign environment for ‘...future.FUN’ 1569s [00:52:49.603] - copied ‘...future.FUN’ to environment 1569s [00:52:49.603] - copied ‘future.call.arguments’ to environment 1569s [00:52:49.603] - copied ‘...future.elements_ii’ to environment 1569s [00:52:49.604] - copied ‘...future.seeds_ii’ to environment 1569s [00:52:49.604] - copied ‘...future.globals.maxSize’ to environment 1569s [00:52:49.604] assign_globals() ... done 1569s [00:52:49.604] plan(): Setting new future strategy stack: 1569s [00:52:49.605] List of future strategies: 1569s [00:52:49.605] 1. sequential: 1569s [00:52:49.605] - args: function (..., envir = parent.frame()) 1569s [00:52:49.605] - tweaked: FALSE 1569s [00:52:49.605] - call: NULL 1569s [00:52:49.605] plan(): nbrOfWorkers() = 1 1569s [00:52:49.606] plan(): Setting new future strategy stack: 1569s [00:52:49.606] List of future strategies: 1569s [00:52:49.606] 1. sequential: 1569s [00:52:49.606] - args: function (..., envir = parent.frame()) 1569s [00:52:49.606] - tweaked: FALSE 1569s [00:52:49.606] - call: plan(strategy) 1569s [00:52:49.606] plan(): nbrOfWorkers() = 1 1569s [00:52:49.607] SequentialFuture started (and completed) 1569s [00:52:49.607] - Launch lazy future ... done 1569s [00:52:49.607] run() for ‘SequentialFuture’ ... done 1569s [00:52:49.607] Created future: 1569s [00:52:49.607] SequentialFuture: 1569s [00:52:49.607] Label: ‘future_sapply-1’ 1569s [00:52:49.607] Expression: 1569s [00:52:49.607] { 1569s [00:52:49.607] do.call(function(...) { 1569s [00:52:49.607] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.607] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1569s [00:52:49.607] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.607] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.607] } 1569s [00:52:49.607] { 1569s [00:52:49.607] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1569s [00:52:49.607] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.607] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.607] }) 1569s [00:52:49.607] } 1569s [00:52:49.607] }, args = future.call.arguments) 1569s [00:52:49.607] } 1569s [00:52:49.607] Lazy evaluation: FALSE 1569s [00:52:49.607] Asynchronous evaluation: FALSE 1569s [00:52:49.607] Local evaluation: TRUE 1569s [00:52:49.607] Environment: R_GlobalEnv 1569s [00:52:49.607] Capture standard output: TRUE 1569s [00:52:49.607] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1569s [00:52:49.607] Globals: 5 objects totaling 4.95 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1569s [00:52:49.607] Packages: 1569s [00:52:49.607] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1569s [00:52:49.607] Resolved: TRUE 1569s [00:52:49.607] Value: 2.02 KiB of class ‘list’ 1569s [00:52:49.607] Early signaling: FALSE 1569s [00:52:49.607] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1569s [00:52:49.607] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1569s [00:52:49.609] Chunk #1 of 1 ... DONE 1569s [00:52:49.609] Launching 1 futures (chunks) ... DONE 1569s [00:52:49.609] Resolving 1 futures (chunks) ... 1569s [00:52:49.609] resolve() on list ... 1569s [00:52:49.609] recursive: 0 1569s [00:52:49.609] length: 1 1569s [00:52:49.610] 1569s [00:52:49.610] resolved() for ‘SequentialFuture’ ... 1569s [00:52:49.610] - state: ‘finished’ 1569s [00:52:49.610] - run: TRUE 1569s [00:52:49.610] - result: ‘FutureResult’ 1569s [00:52:49.610] resolved() for ‘SequentialFuture’ ... done 1569s [00:52:49.611] Future #1 1569s [00:52:49.611] signalConditionsASAP(SequentialFuture, pos=1) ... 1569s [00:52:49.611] - nx: 1 1569s [00:52:49.611] - relay: TRUE 1569s [00:52:49.611] - stdout: TRUE 1569s [00:52:49.611] - signal: TRUE 1569s [00:52:49.611] - resignal: FALSE 1569s [00:52:49.612] - force: TRUE 1569s [00:52:49.612] - relayed: [n=1] FALSE 1569s [00:52:49.612] - queued futures: [n=1] FALSE 1569s [00:52:49.612] - until=1 1569s [00:52:49.612] - relaying element #1 1569s [00:52:49.612] - relayed: [n=1] TRUE 1569s [00:52:49.612] - queued futures: [n=1] TRUE 1569s [00:52:49.613] signalConditionsASAP(SequentialFuture, pos=1) ... done 1569s [00:52:49.614] length: 0 (resolved future 1) 1569s [00:52:49.614] Relaying remaining futures 1569s [00:52:49.614] signalConditionsASAP(NULL, pos=0) ... 1569s [00:52:49.614] - nx: 1 1569s [00:52:49.615] - relay: TRUE 1569s [00:52:49.615] - stdout: TRUE 1569s [00:52:49.615] - signal: TRUE 1569s [00:52:49.615] - resignal: FALSE 1569s [00:52:49.615] - force: TRUE 1569s [00:52:49.615] - relayed: [n=1] TRUE 1569s [00:52:49.615] - queued futures: [n=1] TRUE 1569s - flush all 1569s [00:52:49.615] - relayed: [n=1] TRUE 1569s [00:52:49.615] - queued futures: [n=1] TRUE 1569s [00:52:49.616] signalConditionsASAP(NULL, pos=0) ... done 1569s [00:52:49.616] resolve() on list ... DONE 1569s [00:52:49.616] - Number of value chunks collected: 1 1569s [00:52:49.616] Resolving 1 futures (chunks) ... DONE 1569s [00:52:49.616] Reducing values from 1 chunks ... 1569s [00:52:49.616] - Number of values collected after concatenation: 6 1569s [00:52:49.616] - Number of values expected: 6 1569s [00:52:49.616] Reducing values from 1 chunks ... DONE 1569s [00:52:49.616] future_lapply() ... DONE 1569s List of 2 1569s $ y0: num [1:15, 1:6] 2 2 2 4 4 4 6 6 6 8 ... 1569s ..- attr(*, "dimnames")=List of 2 1569s .. ..$ : NULL 1569s .. ..$ : chr [1:6] "a1" "a2" "b1" "b2" ... 1569s $ y1: num [1:15, 1:6] 2 2 2 4 4 4 6 6 6 8 ... 1569s ..- attr(*, "dimnames")=List of 2 1569s .. ..$ : NULL 1569s .. ..$ : chr [1:6] [00:52:49.621] future_lapply() ... 1569s "a1" "a2" "b1" "b2" ... 1569s [00:52:49.621] Number of chunks: 1 1569s [00:52:49.622] getGlobalsAndPackagesXApply() ... 1569s [00:52:49.622] - future.globals: TRUE 1569s [00:52:49.622] getGlobalsAndPackages() ... 1569s [00:52:49.622] Searching for globals... 1569s [00:52:49.623] - globals found: [1] ‘FUN’ 1569s [00:52:49.623] Searching for globals ... DONE 1569s [00:52:49.623] Resolving globals: FALSE 1569s [00:52:49.624] The total size of the 1 globals is 848 bytes (848 bytes) 1569s [00:52:49.624] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1569s [00:52:49.624] - globals: [1] ‘FUN’ 1569s [00:52:49.625] 1569s [00:52:49.625] getGlobalsAndPackages() ... DONE 1569s [00:52:49.625] - globals found/used: [n=1] ‘FUN’ 1569s [00:52:49.625] - needed namespaces: [n=0] 1569s [00:52:49.625] Finding globals ... DONE 1569s [00:52:49.625] - use_args: TRUE 1569s [00:52:49.625] - Getting '...' globals ... 1569s [00:52:49.626] resolve() on list ... 1569s [00:52:49.626] recursive: 0 1569s [00:52:49.626] length: 1 1569s [00:52:49.626] elements: ‘...’ 1569s [00:52:49.626] length: 0 (resolved future 1) 1569s [00:52:49.626] resolve() on list ... DONE 1569s [00:52:49.627] - '...' content: [n=0] 1569s [00:52:49.627] List of 1 1569s [00:52:49.627] $ ...: list() 1569s [00:52:49.627] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.627] - attr(*, "where")=List of 1 1569s [00:52:49.627] ..$ ...: 1569s [00:52:49.627] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.627] - attr(*, "resolved")= logi TRUE 1569s [00:52:49.627] - attr(*, "total_size")= num NA 1569s [00:52:49.629] - Getting '...' globals ... DONE 1569s [00:52:49.630] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1569s [00:52:49.630] List of 2 1569s [00:52:49.630] $ ...future.FUN:function (x) 1569s [00:52:49.630] $ ... : list() 1569s [00:52:49.630] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.630] - attr(*, "where")=List of 2 1569s [00:52:49.630] ..$ ...future.FUN: 1569s [00:52:49.630] ..$ ... : 1569s [00:52:49.630] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.630] - attr(*, "resolved")= logi FALSE 1569s [00:52:49.630] - attr(*, "total_size")= num 848 1569s [00:52:49.633] Packages to be attached in all futures: [n=0] 1569s [00:52:49.633] getGlobalsAndPackagesXApply() ... DONE 1569s [00:52:49.633] Number of futures (= number of chunks): 1 1569s [00:52:49.634] Launching 1 futures (chunks) ... 1569s [00:52:49.634] Chunk #1 of 1 ... 1569s [00:52:49.634] - Finding globals in 'X' for chunk #1 ... 1569s [00:52:49.634] getGlobalsAndPackages() ... 1569s [00:52:49.634] Searching for globals... 1569s [00:52:49.634] 1569s [00:52:49.635] Searching for globals ... DONE 1569s [00:52:49.635] - globals: [0] 1569s [00:52:49.635] getGlobalsAndPackages() ... DONE 1569s [00:52:49.635] + additional globals found: [n=0] 1569s [00:52:49.635] + additional namespaces needed: [n=0] 1569s [00:52:49.635] - Finding globals in 'X' for chunk #1 ... DONE 1569s [00:52:49.635] - seeds: 1569s [00:52:49.635] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:49.635] getGlobalsAndPackages() ... 1569s [00:52:49.636] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:49.636] Resolving globals: FALSE 1569s [00:52:49.636] Tweak future expression to call with '...' arguments ... 1569s [00:52:49.636] { 1569s [00:52:49.636] do.call(function(...) { 1569s [00:52:49.636] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.636] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1569s [00:52:49.636] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.636] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.636] } 1569s [00:52:49.636] { 1569s [00:52:49.636] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1569s [00:52:49.636] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.636] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.636] }) 1569s [00:52:49.636] } 1569s [00:52:49.636] }, args = future.call.arguments) 1569s [00:52:49.636] } 1569s [00:52:49.636] Tweak future expression to call with '...' arguments ... DONE 1569s [00:52:49.637] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:49.637] 1569s [00:52:49.637] getGlobalsAndPackages() ... DONE 1569s [00:52:49.637] run() for ‘Future’ ... 1569s [00:52:49.637] - state: ‘created’ 1569s [00:52:49.637] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1569s [00:52:49.638] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1569s [00:52:49.638] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1569s [00:52:49.638] - Field: ‘label’ 1569s [00:52:49.638] - Field: ‘local’ 1569s [00:52:49.638] - Field: ‘owner’ 1569s [00:52:49.638] - Field: ‘envir’ 1569s [00:52:49.639] - Field: ‘packages’ 1569s [00:52:49.639] - Field: ‘gc’ 1569s [00:52:49.639] - Field: ‘conditions’ 1569s [00:52:49.639] - Field: ‘expr’ 1569s [00:52:49.639] - Field: ‘uuid’ 1569s [00:52:49.639] - Field: ‘seed’ 1569s [00:52:49.640] - Field: ‘version’ 1569s [00:52:49.640] - Field: ‘result’ 1569s [00:52:49.640] - Field: ‘asynchronous’ 1569s [00:52:49.640] - Field: ‘calls’ 1569s [00:52:49.640] - Field: ‘globals’ 1569s [00:52:49.641] - Field: ‘stdout’ 1569s [00:52:49.641] - Field: ‘earlySignal’ 1569s [00:52:49.641] - Field: ‘lazy’ 1569s [00:52:49.641] - Field: ‘state’ 1569s [00:52:49.642] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1569s [00:52:49.642] - Launch lazy future ... 1569s [00:52:49.642] Packages needed by the future expression (n = 0): 1569s [00:52:49.642] Packages needed by future strategies (n = 0): 1569s [00:52:49.643] { 1569s [00:52:49.643] { 1569s [00:52:49.643] { 1569s [00:52:49.643] ...future.startTime <- base::Sys.time() 1569s [00:52:49.643] { 1569s [00:52:49.643] { 1569s [00:52:49.643] { 1569s [00:52:49.643] base::local({ 1569s [00:52:49.643] has_future <- base::requireNamespace("future", 1569s [00:52:49.643] quietly = TRUE) 1569s [00:52:49.643] if (has_future) { 1569s [00:52:49.643] ns <- base::getNamespace("future") 1569s [00:52:49.643] version <- ns[[".package"]][["version"]] 1569s [00:52:49.643] if (is.null(version)) 1569s [00:52:49.643] version <- utils::packageVersion("future") 1569s [00:52:49.643] } 1569s [00:52:49.643] else { 1569s [00:52:49.643] version <- NULL 1569s [00:52:49.643] } 1569s [00:52:49.643] if (!has_future || version < "1.8.0") { 1569s [00:52:49.643] info <- base::c(r_version = base::gsub("R version ", 1569s [00:52:49.643] "", base::R.version$version.string), 1569s [00:52:49.643] platform = base::sprintf("%s (%s-bit)", 1569s [00:52:49.643] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1569s [00:52:49.643] os = base::paste(base::Sys.info()[base::c("sysname", 1569s [00:52:49.643] "release", "version")], collapse = " "), 1569s [00:52:49.643] hostname = base::Sys.info()[["nodename"]]) 1569s [00:52:49.643] info <- base::sprintf("%s: %s", base::names(info), 1569s [00:52:49.643] info) 1569s [00:52:49.643] info <- base::paste(info, collapse = "; ") 1569s [00:52:49.643] if (!has_future) { 1569s [00:52:49.643] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1569s [00:52:49.643] info) 1569s [00:52:49.643] } 1569s [00:52:49.643] else { 1569s [00:52:49.643] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1569s [00:52:49.643] info, version) 1569s [00:52:49.643] } 1569s [00:52:49.643] base::stop(msg) 1569s [00:52:49.643] } 1569s [00:52:49.643] }) 1569s [00:52:49.643] } 1569s [00:52:49.643] options(future.plan = NULL) 1569s [00:52:49.643] Sys.unsetenv("R_FUTURE_PLAN") 1569s [00:52:49.643] future::plan("default", .cleanup = FALSE, .init = FALSE) 1569s [00:52:49.643] } 1569s [00:52:49.643] ...future.workdir <- getwd() 1569s [00:52:49.643] } 1569s [00:52:49.643] ...future.oldOptions <- base::as.list(base::.Options) 1569s [00:52:49.643] ...future.oldEnvVars <- base::Sys.getenv() 1569s [00:52:49.643] } 1569s [00:52:49.643] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1569s [00:52:49.643] future.globals.maxSize = NULL, future.globals.method = NULL, 1569s [00:52:49.643] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1569s [00:52:49.643] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1569s [00:52:49.643] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1569s [00:52:49.643] future.stdout.windows.reencode = NULL, width = 80L) 1569s [00:52:49.643] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1569s [00:52:49.643] base::names(...future.oldOptions)) 1569s [00:52:49.643] } 1569s [00:52:49.643] if (FALSE) { 1569s [00:52:49.643] } 1569s [00:52:49.643] else { 1569s [00:52:49.643] if (TRUE) { 1569s [00:52:49.643] ...future.stdout <- base::rawConnection(base::raw(0L), 1569s [00:52:49.643] open = "w") 1569s [00:52:49.643] } 1569s [00:52:49.643] else { 1569s [00:52:49.643] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1569s [00:52:49.643] windows = "NUL", "/dev/null"), open = "w") 1569s [00:52:49.643] } 1569s [00:52:49.643] base::sink(...future.stdout, type = "output", split = FALSE) 1569s [00:52:49.643] base::on.exit(if (!base::is.null(...future.stdout)) { 1569s [00:52:49.643] base::sink(type = "output", split = FALSE) 1569s [00:52:49.643] base::close(...future.stdout) 1569s [00:52:49.643] }, add = TRUE) 1569s [00:52:49.643] } 1569s [00:52:49.643] ...future.frame <- base::sys.nframe() 1569s [00:52:49.643] ...future.conditions <- base::list() 1569s [00:52:49.643] ...future.rng <- base::globalenv()$.Random.seed 1569s [00:52:49.643] if (FALSE) { 1569s [00:52:49.643] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1569s [00:52:49.643] "...future.value", "...future.globalenv.names", ".Random.seed") 1569s [00:52:49.643] } 1569s [00:52:49.643] ...future.result <- base::tryCatch({ 1569s [00:52:49.643] base::withCallingHandlers({ 1569s [00:52:49.643] ...future.value <- base::withVisible(base::local({ 1569s [00:52:49.643] do.call(function(...) { 1569s [00:52:49.643] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.643] if (!identical(...future.globals.maxSize.org, 1569s [00:52:49.643] ...future.globals.maxSize)) { 1569s [00:52:49.643] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.643] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.643] } 1569s [00:52:49.643] { 1569s [00:52:49.643] lapply(seq_along(...future.elements_ii), 1569s [00:52:49.643] FUN = function(jj) { 1569s [00:52:49.643] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.643] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.643] }) 1569s [00:52:49.643] } 1569s [00:52:49.643] }, args = future.call.arguments) 1569s [00:52:49.643] })) 1569s [00:52:49.643] future::FutureResult(value = ...future.value$value, 1569s [00:52:49.643] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1569s [00:52:49.643] ...future.rng), globalenv = if (FALSE) 1569s [00:52:49.643] list(added = base::setdiff(base::names(base::.GlobalEnv), 1569s [00:52:49.643] ...future.globalenv.names)) 1569s [00:52:49.643] else NULL, started = ...future.startTime, version = "1.8") 1569s [00:52:49.643] }, condition = base::local({ 1569s [00:52:49.643] c <- base::c 1569s [00:52:49.643] inherits <- base::inherits 1569s [00:52:49.643] invokeRestart <- base::invokeRestart 1569s [00:52:49.643] length <- base::length 1569s [00:52:49.643] list <- base::list 1569s [00:52:49.643] seq.int <- base::seq.int 1569s [00:52:49.643] signalCondition <- base::signalCondition 1569s [00:52:49.643] sys.calls <- base::sys.calls 1569s [00:52:49.643] `[[` <- base::`[[` 1569s [00:52:49.643] `+` <- base::`+` 1569s [00:52:49.643] `<<-` <- base::`<<-` 1569s [00:52:49.643] sysCalls <- function(calls = sys.calls(), from = 1L) { 1569s [00:52:49.643] calls[seq.int(from = from + 12L, to = length(calls) - 1569s [00:52:49.643] 3L)] 1569s [00:52:49.643] } 1569s [00:52:49.643] function(cond) { 1569s [00:52:49.643] is_error <- inherits(cond, "error") 1569s [00:52:49.643] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1569s [00:52:49.643] NULL) 1569s [00:52:49.643] if (is_error) { 1569s [00:52:49.643] sessionInformation <- function() { 1569s [00:52:49.643] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1569s [00:52:49.643] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1569s [00:52:49.643] search = base::search(), system = base::Sys.info()) 1569s [00:52:49.643] } 1569s [00:52:49.643] ...future.conditions[[length(...future.conditions) + 1569s [00:52:49.643] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1569s [00:52:49.643] cond$call), session = sessionInformation(), 1569s [00:52:49.643] timestamp = base::Sys.time(), signaled = 0L) 1569s [00:52:49.643] signalCondition(cond) 1569s [00:52:49.643] } 1569s [00:52:49.643] else if (!ignore && TRUE && inherits(cond, c("condition", 1569s [00:52:49.643] "immediateCondition"))) { 1569s [00:52:49.643] signal <- TRUE && inherits(cond, "immediateCondition") 1569s [00:52:49.643] ...future.conditions[[length(...future.conditions) + 1569s [00:52:49.643] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1569s [00:52:49.643] if (TRUE && !signal) { 1569s [00:52:49.643] muffleCondition <- function (cond, pattern = "^muffle") 1569s [00:52:49.643] { 1569s [00:52:49.643] inherits <- base::inherits 1569s [00:52:49.643] invokeRestart <- base::invokeRestart 1569s [00:52:49.643] is.null <- base::is.null 1569s [00:52:49.643] muffled <- FALSE 1569s [00:52:49.643] if (inherits(cond, "message")) { 1569s [00:52:49.643] muffled <- grepl(pattern, "muffleMessage") 1569s [00:52:49.643] if (muffled) 1569s [00:52:49.643] invokeRestart("muffleMessage") 1569s [00:52:49.643] } 1569s [00:52:49.643] else if (inherits(cond, "warning")) { 1569s [00:52:49.643] muffled <- grepl(pattern, "muffleWarning") 1569s [00:52:49.643] if (muffled) 1569s [00:52:49.643] invokeRestart("muffleWarning") 1569s [00:52:49.643] } 1569s [00:52:49.643] else if (inherits(cond, "condition")) { 1569s [00:52:49.643] if (!is.null(pattern)) { 1569s [00:52:49.643] computeRestarts <- base::computeRestarts 1569s [00:52:49.643] grepl <- base::grepl 1569s [00:52:49.643] restarts <- computeRestarts(cond) 1569s [00:52:49.643] for (restart in restarts) { 1569s [00:52:49.643] name <- restart$name 1569s [00:52:49.643] if (is.null(name)) 1569s [00:52:49.643] next 1569s [00:52:49.643] if (!grepl(pattern, name)) 1569s [00:52:49.643] next 1569s [00:52:49.643] invokeRestart(restart) 1569s [00:52:49.643] muffled <- TRUE 1569s [00:52:49.643] break 1569s [00:52:49.643] } 1569s [00:52:49.643] } 1569s [00:52:49.643] } 1569s [00:52:49.643] invisible(muffled) 1569s [00:52:49.643] } 1569s [00:52:49.643] muffleCondition(cond, pattern = "^muffle") 1569s [00:52:49.643] } 1569s [00:52:49.643] } 1569s [00:52:49.643] else { 1569s [00:52:49.643] if (TRUE) { 1569s [00:52:49.643] muffleCondition <- function (cond, pattern = "^muffle") 1569s [00:52:49.643] { 1569s [00:52:49.643] inherits <- base::inherits 1569s [00:52:49.643] invokeRestart <- base::invokeRestart 1569s [00:52:49.643] is.null <- base::is.null 1569s [00:52:49.643] muffled <- FALSE 1569s [00:52:49.643] if (inherits(cond, "message")) { 1569s [00:52:49.643] muffled <- grepl(pattern, "muffleMessage") 1569s [00:52:49.643] if (muffled) 1569s [00:52:49.643] invokeRestart("muffleMessage") 1569s [00:52:49.643] } 1569s [00:52:49.643] else if (inherits(cond, "warning")) { 1569s [00:52:49.643] muffled <- grepl(pattern, "muffleWarning") 1569s [00:52:49.643] if (muffled) 1569s [00:52:49.643] invokeRestart("muffleWarning") 1569s [00:52:49.643] } 1569s [00:52:49.643] else if (inherits(cond, "condition")) { 1569s [00:52:49.643] if (!is.null(pattern)) { 1569s [00:52:49.643] computeRestarts <- base::computeRestarts 1569s [00:52:49.643] grepl <- base::grepl 1569s [00:52:49.643] restarts <- computeRestarts(cond) 1569s [00:52:49.643] for (restart in restarts) { 1569s [00:52:49.643] name <- restart$name 1569s [00:52:49.643] if (is.null(name)) 1569s [00:52:49.643] next 1569s [00:52:49.643] if (!grepl(pattern, name)) 1569s [00:52:49.643] next 1569s [00:52:49.643] invokeRestart(restart) 1569s [00:52:49.643] muffled <- TRUE 1569s [00:52:49.643] break 1569s [00:52:49.643] } 1569s [00:52:49.643] } 1569s [00:52:49.643] } 1569s [00:52:49.643] invisible(muffled) 1569s [00:52:49.643] } 1569s [00:52:49.643] muffleCondition(cond, pattern = "^muffle") 1569s [00:52:49.643] } 1569s [00:52:49.643] } 1569s [00:52:49.643] } 1569s [00:52:49.643] })) 1569s [00:52:49.643] }, error = function(ex) { 1569s [00:52:49.643] base::structure(base::list(value = NULL, visible = NULL, 1569s [00:52:49.643] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1569s [00:52:49.643] ...future.rng), started = ...future.startTime, 1569s [00:52:49.643] finished = Sys.time(), session_uuid = NA_character_, 1569s [00:52:49.643] version = "1.8"), class = "FutureResult") 1569s [00:52:49.643] }, finally = { 1569s [00:52:49.643] if (!identical(...future.workdir, getwd())) 1569s [00:52:49.643] setwd(...future.workdir) 1569s [00:52:49.643] { 1569s [00:52:49.643] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1569s [00:52:49.643] ...future.oldOptions$nwarnings <- NULL 1569s [00:52:49.643] } 1569s [00:52:49.643] base::options(...future.oldOptions) 1569s [00:52:49.643] if (.Platform$OS.type == "windows") { 1569s [00:52:49.643] old_names <- names(...future.oldEnvVars) 1569s [00:52:49.643] envs <- base::Sys.getenv() 1569s [00:52:49.643] names <- names(envs) 1569s [00:52:49.643] common <- intersect(names, old_names) 1569s [00:52:49.643] added <- setdiff(names, old_names) 1569s [00:52:49.643] removed <- setdiff(old_names, names) 1569s [00:52:49.643] changed <- common[...future.oldEnvVars[common] != 1569s [00:52:49.643] envs[common]] 1569s [00:52:49.643] NAMES <- toupper(changed) 1569s [00:52:49.643] args <- list() 1569s [00:52:49.643] for (kk in seq_along(NAMES)) { 1569s [00:52:49.643] name <- changed[[kk]] 1569s [00:52:49.643] NAME <- NAMES[[kk]] 1569s [00:52:49.643] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.643] next 1569s [00:52:49.643] args[[name]] <- ...future.oldEnvVars[[name]] 1569s [00:52:49.643] } 1569s [00:52:49.643] NAMES <- toupper(added) 1569s [00:52:49.643] for (kk in seq_along(NAMES)) { 1569s [00:52:49.643] name <- added[[kk]] 1569s [00:52:49.643] NAME <- NAMES[[kk]] 1569s [00:52:49.643] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.643] next 1569s [00:52:49.643] args[[name]] <- "" 1569s [00:52:49.643] } 1569s [00:52:49.643] NAMES <- toupper(removed) 1569s [00:52:49.643] for (kk in seq_along(NAMES)) { 1569s [00:52:49.643] name <- removed[[kk]] 1569s [00:52:49.643] NAME <- NAMES[[kk]] 1569s [00:52:49.643] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.643] next 1569s [00:52:49.643] args[[name]] <- ...future.oldEnvVars[[name]] 1569s [00:52:49.643] } 1569s [00:52:49.643] if (length(args) > 0) 1569s [00:52:49.643] base::do.call(base::Sys.setenv, args = args) 1569s [00:52:49.643] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1569s [00:52:49.643] } 1569s [00:52:49.643] else { 1569s [00:52:49.643] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1569s [00:52:49.643] } 1569s [00:52:49.643] { 1569s [00:52:49.643] if (base::length(...future.futureOptionsAdded) > 1569s [00:52:49.643] 0L) { 1569s [00:52:49.643] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1569s [00:52:49.643] base::names(opts) <- ...future.futureOptionsAdded 1569s [00:52:49.643] base::options(opts) 1569s [00:52:49.643] } 1569s [00:52:49.643] { 1569s [00:52:49.643] { 1569s [00:52:49.643] NULL 1569s [00:52:49.643] RNGkind("Mersenne-Twister") 1569s [00:52:49.643] base::rm(list = ".Random.seed", envir = base::globalenv(), 1569s [00:52:49.643] inherits = FALSE) 1569s [00:52:49.643] } 1569s [00:52:49.643] options(future.plan = NULL) 1569s [00:52:49.643] if (is.na(NA_character_)) 1569s [00:52:49.643] Sys.unsetenv("R_FUTURE_PLAN") 1569s [00:52:49.643] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1569s [00:52:49.643] future::plan(list(function (..., envir = parent.frame()) 1569s [00:52:49.643] { 1569s [00:52:49.643] future <- SequentialFuture(..., envir = envir) 1569s [00:52:49.643] if (!future$lazy) 1569s [00:52:49.643] future <- run(future) 1569s [00:52:49.643] invisible(future) 1569s [00:52:49.643] }), .cleanup = FALSE, .init = FALSE) 1569s [00:52:49.643] } 1569s [00:52:49.643] } 1569s [00:52:49.643] } 1569s [00:52:49.643] }) 1569s [00:52:49.643] if (TRUE) { 1569s [00:52:49.643] base::sink(type = "output", split = FALSE) 1569s [00:52:49.643] if (TRUE) { 1569s [00:52:49.643] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1569s [00:52:49.643] } 1569s [00:52:49.643] else { 1569s [00:52:49.643] ...future.result["stdout"] <- base::list(NULL) 1569s [00:52:49.643] } 1569s [00:52:49.643] base::close(...future.stdout) 1569s [00:52:49.643] ...future.stdout <- NULL 1569s [00:52:49.643] } 1569s [00:52:49.643] ...future.result$conditions <- ...future.conditions 1569s [00:52:49.643] ...future.result$finished <- base::Sys.time() 1569s [00:52:49.643] ...future.result 1569s [00:52:49.643] } 1569s [00:52:49.652] assign_globals() ... 1569s [00:52:49.653] List of 5 1569s [00:52:49.653] $ ...future.FUN :function (x) 1569s [00:52:49.653] $ future.call.arguments : list() 1569s [00:52:49.653] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.653] $ ...future.elements_ii :List of 6 1569s [00:52:49.653] ..$ a1: int 1 1569s [00:52:49.653] ..$ a2: int 2 1569s [00:52:49.653] ..$ b1: int 2 1569s [00:52:49.653] ..$ b2: int 3 1569s [00:52:49.653] ..$ c1: int 3 1569s [00:52:49.653] ..$ c2: int 4 1569s [00:52:49.653] $ ...future.seeds_ii : NULL 1569s [00:52:49.653] $ ...future.globals.maxSize: NULL 1569s [00:52:49.653] - attr(*, "where")=List of 5 1569s [00:52:49.653] ..$ ...future.FUN : 1569s [00:52:49.653] ..$ future.call.arguments : 1569s [00:52:49.653] ..$ ...future.elements_ii : 1569s [00:52:49.653] ..$ ...future.seeds_ii : 1569s [00:52:49.653] ..$ ...future.globals.maxSize: 1569s [00:52:49.653] - attr(*, "resolved")= logi FALSE 1569s [00:52:49.653] - attr(*, "total_size")= num 848 1569s [00:52:49.653] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.653] - attr(*, "already-done")= logi TRUE 1569s [00:52:49.660] - copied ‘...future.FUN’ to environment 1569s [00:52:49.660] - copied ‘future.call.arguments’ to environment 1569s [00:52:49.661] - copied ‘...future.elements_ii’ to environment 1569s [00:52:49.661] - copied ‘...future.seeds_ii’ to environment 1569s [00:52:49.661] - copied ‘...future.globals.maxSize’ to environment 1569s [00:52:49.661] assign_globals() ... done 1569s [00:52:49.661] plan(): Setting new future strategy stack: 1569s [00:52:49.661] List of future strategies: 1569s [00:52:49.661] 1. sequential: 1569s [00:52:49.661] - args: function (..., envir = parent.frame()) 1569s [00:52:49.661] - tweaked: FALSE 1569s [00:52:49.661] - call: NULL 1569s [00:52:49.662] plan(): nbrOfWorkers() = 1 1569s [00:52:49.663] plan(): Setting new future strategy stack: 1569s [00:52:49.663] List of future strategies: 1569s [00:52:49.663] 1. sequential: 1569s [00:52:49.663] - args: function (..., envir = parent.frame()) 1569s [00:52:49.663] - tweaked: FALSE 1569s [00:52:49.663] - call: plan(strategy) 1569s [00:52:49.663] plan(): nbrOfWorkers() = 1 1569s [00:52:49.663] SequentialFuture started (and completed) 1569s [00:52:49.664] - Launch lazy future ... done 1569s [00:52:49.664] run() for ‘SequentialFuture’ ... done 1569s [00:52:49.664] Created future: 1569s [00:52:49.664] SequentialFuture: 1569s [00:52:49.664] Label: ‘future_sapply-1’ 1569s [00:52:49.664] Expression: 1569s [00:52:49.664] { 1569s [00:52:49.664] do.call(function(...) { 1569s [00:52:49.664] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.664] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1569s [00:52:49.664] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.664] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.664] } 1569s [00:52:49.664] { 1569s [00:52:49.664] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1569s [00:52:49.664] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.664] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.664] }) 1569s [00:52:49.664] } 1569s [00:52:49.664] }, args = future.call.arguments) 1569s [00:52:49.664] } 1569s [00:52:49.664] Lazy evaluation: FALSE 1569s [00:52:49.664] Asynchronous evaluation: FALSE 1569s [00:52:49.664] Local evaluation: TRUE 1569s [00:52:49.664] Environment: R_GlobalEnv 1569s [00:52:49.664] Capture standard output: TRUE 1569s [00:52:49.664] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1569s [00:52:49.664] Globals: 5 objects totaling 1.16 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1569s [00:52:49.664] Packages: 1569s [00:52:49.664] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1569s [00:52:49.664] Resolved: TRUE 1569s [00:52:49.664] Value: 336 bytes of class ‘list’ 1569s [00:52:49.664] Early signaling: FALSE 1569s [00:52:49.664] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1569s [00:52:49.664] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1569s [00:52:49.666] Chunk #1 of 1 ... DONE 1569s [00:52:49.666] Launching 1 futures (chunks) ... DONE 1569s [00:52:49.667] Resolving 1 futures (chunks) ... 1569s [00:52:49.667] resolve() on list ... 1569s [00:52:49.667] recursive: 0 1569s [00:52:49.667] length: 1 1569s [00:52:49.667] 1569s [00:52:49.667] resolved() for ‘SequentialFuture’ ... 1569s [00:52:49.668] - state: ‘finished’ 1569s [00:52:49.668] - run: TRUE 1569s [00:52:49.668] - result: ‘FutureResult’ 1569s [00:52:49.668] resolved() for ‘SequentialFuture’ ... done 1569s [00:52:49.668] Future #1 1569s [00:52:49.668] signalConditionsASAP(SequentialFuture, pos=1) ... 1569s [00:52:49.668] - nx: 1 1569s [00:52:49.669] - relay: TRUE 1569s [00:52:49.669] - stdout: TRUE 1569s [00:52:49.669] - signal: TRUE 1569s [00:52:49.669] - resignal: FALSE 1569s [00:52:49.669] - force: TRUE 1569s [00:52:49.669] - relayed: [n=1] FALSE 1569s [00:52:49.669] - queued futures: [n=1] FALSE 1569s [00:52:49.670] - until=1 1569s [00:52:49.670] - relaying element #1 1569s [00:52:49.670] - relayed: [n=1] TRUE 1569s [00:52:49.670] - queued futures: [n=1] TRUE 1569s [00:52:49.670] signalConditionsASAP(SequentialFuture, pos=1) ... done 1569s [00:52:49.670] length: 0 (resolved future 1) 1569s [00:52:49.671] Relaying remaining futures 1569s [00:52:49.671] signalConditionsASAP(NULL, pos=0) ... 1569s [00:52:49.671] - nx: 1 1569s [00:52:49.671] - relay: TRUE 1569s [00:52:49.671] - stdout: TRUE 1569s [00:52:49.671] - signal: TRUE 1569s [00:52:49.671] - resignal: FALSE 1569s [00:52:49.671] - force: TRUE 1569s [00:52:49.672] - relayed: [n=1] TRUE 1569s [00:52:49.672] - queued futures: [n=1] TRUE 1569s - flush all 1569s [00:52:49.672] - relayed: [n=1] TRUE 1569s [00:52:49.672] - queued futures: [n=1] TRUE 1569s [00:52:49.672] signalConditionsASAP(NULL, pos=0) ... done 1569s [00:52:49.672] resolve() on list ... DONE 1569s [00:52:49.673] - Number of value chunks collected: 1 1569s [00:52:49.673] Resolving 1 futures (chunks) ... DONE 1569s [00:52:49.673] Reducing values from 1 chunks ... 1569s [00:52:49.673] - Number of values collected after concatenation: 6 1569s [00:52:49.673] - Number of values expected: 6 1569s [00:52:49.673] Reducing values from 1 chunks ... DONE 1569s [00:52:49.673] future_lapply() ... DONE 1569s List of 2 1569s $ y0: Named int [1:6] 1 2 2 3 3 4 1569s ..- attr(*, "names")= chr [1:6] "a1" "a2" "b1" "b2" ... 1569s $ y1: Named int [1:6] 1 2 2 3 3 4 1569s ..- attr(*, "names")=[00:52:49.676] future_lapply() ... 1569s chr [1:6] "a1" "a2" "b1" "b2" ... 1569s [00:52:49.677] Number of chunks: 1 1569s [00:52:49.677] getGlobalsAndPackagesXApply() ... 1569s [00:52:49.677] - future.globals: TRUE 1569s [00:52:49.677] getGlobalsAndPackages() ... 1569s [00:52:49.677] Searching for globals... 1569s [00:52:49.678] - globals found: [2] ‘FUN’, ‘UseMethod’ 1569s [00:52:49.679] Searching for globals ... DONE 1569s [00:52:49.679] Resolving globals: FALSE 1569s [00:52:49.679] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1569s [00:52:49.679] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1569s [00:52:49.680] - globals: [1] ‘FUN’ 1569s [00:52:49.680] 1569s [00:52:49.680] getGlobalsAndPackages() ... DONE 1569s [00:52:49.680] - globals found/used: [n=1] ‘FUN’ 1569s [00:52:49.680] - needed namespaces: [n=0] 1569s [00:52:49.680] Finding globals ... DONE 1569s [00:52:49.681] - use_args: TRUE 1569s [00:52:49.681] - Getting '...' globals ... 1569s [00:52:49.681] resolve() on list ... 1569s [00:52:49.681] recursive: 0 1569s [00:52:49.681] length: 1 1569s [00:52:49.682] elements: ‘...’ 1569s [00:52:49.682] length: 0 (resolved future 1) 1569s [00:52:49.682] resolve() on list ... DONE 1569s [00:52:49.682] - '...' content: [n=0] 1569s [00:52:49.682] List of 1 1569s [00:52:49.682] $ ...: list() 1569s [00:52:49.682] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.682] - attr(*, "where")=List of 1 1569s [00:52:49.682] ..$ ...: 1569s [00:52:49.682] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.682] - attr(*, "resolved")= logi TRUE 1569s [00:52:49.682] - attr(*, "total_size")= num NA 1569s [00:52:49.687] - Getting '...' globals ... DONE 1569s [00:52:49.687] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1569s [00:52:49.687] List of 2 1569s [00:52:49.687] $ ...future.FUN:function (x, ...) 1569s [00:52:49.687] $ ... : list() 1569s [00:52:49.687] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.687] - attr(*, "where")=List of 2 1569s [00:52:49.687] ..$ ...future.FUN: 1569s [00:52:49.687] ..$ ... : 1569s [00:52:49.687] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.687] - attr(*, "resolved")= logi FALSE 1569s [00:52:49.687] - attr(*, "total_size")= num 1248 1569s [00:52:49.690] Packages to be attached in all futures: [n=0] 1569s [00:52:49.691] getGlobalsAndPackagesXApply() ... DONE 1569s [00:52:49.691] Number of futures (= number of chunks): 1 1569s [00:52:49.691] Launching 1 futures (chunks) ... 1569s [00:52:49.691] Chunk #1 of 1 ... 1569s [00:52:49.691] - Finding globals in 'X' for chunk #1 ... 1569s [00:52:49.691] getGlobalsAndPackages() ... 1569s [00:52:49.692] Searching for globals... 1569s [00:52:49.692] 1569s [00:52:49.692] Searching for globals ... DONE 1569s [00:52:49.692] - globals: [0] 1569s [00:52:49.692] getGlobalsAndPackages() ... DONE 1569s [00:52:49.692] + additional globals found: [n=0] 1569s [00:52:49.693] + additional namespaces needed: [n=0] 1569s [00:52:49.693] - Finding globals in 'X' for chunk #1 ... DONE 1569s [00:52:49.693] - seeds: 1569s [00:52:49.693] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:49.693] getGlobalsAndPackages() ... 1569s [00:52:49.693] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:49.694] Resolving globals: FALSE 1569s [00:52:49.694] Tweak future expression to call with '...' arguments ... 1569s [00:52:49.694] { 1569s [00:52:49.694] do.call(function(...) { 1569s [00:52:49.694] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.694] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1569s [00:52:49.694] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.694] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.694] } 1569s [00:52:49.694] { 1569s [00:52:49.694] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1569s [00:52:49.694] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.694] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.694] }) 1569s [00:52:49.694] } 1569s [00:52:49.694] }, args = future.call.arguments) 1569s [00:52:49.694] } 1569s [00:52:49.694] Tweak future expression to call with '...' arguments ... DONE 1569s [00:52:49.695] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:49.695] 1569s [00:52:49.695] getGlobalsAndPackages() ... DONE 1569s [00:52:49.696] run() for ‘Future’ ... 1569s [00:52:49.696] - state: ‘created’ 1569s [00:52:49.696] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1569s [00:52:49.696] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1569s [00:52:49.696] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1569s [00:52:49.697] - Field: ‘label’ 1569s [00:52:49.697] - Field: ‘local’ 1569s [00:52:49.697] - Field: ‘owner’ 1569s [00:52:49.697] - Field: ‘envir’ 1569s [00:52:49.697] - Field: ‘packages’ 1569s [00:52:49.697] - Field: ‘gc’ 1569s [00:52:49.697] - Field: ‘conditions’ 1569s [00:52:49.698] - Field: ‘expr’ 1569s [00:52:49.698] - Field: ‘uuid’ 1569s [00:52:49.698] - Field: ‘seed’ 1569s [00:52:49.698] - Field: ‘version’ 1569s [00:52:49.698] - Field: ‘result’ 1569s [00:52:49.698] - Field: ‘asynchronous’ 1569s [00:52:49.698] - Field: ‘calls’ 1569s [00:52:49.699] - Field: ‘globals’ 1569s [00:52:49.699] - Field: ‘stdout’ 1569s [00:52:49.699] - Field: ‘earlySignal’ 1569s [00:52:49.699] - Field: ‘lazy’ 1569s [00:52:49.699] - Field: ‘state’ 1569s [00:52:49.699] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1569s [00:52:49.700] - Launch lazy future ... 1569s [00:52:49.700] Packages needed by the future expression (n = 0): 1569s [00:52:49.700] Packages needed by future strategies (n = 0): 1569s [00:52:49.700] { 1569s [00:52:49.700] { 1569s [00:52:49.700] { 1569s [00:52:49.700] ...future.startTime <- base::Sys.time() 1569s [00:52:49.700] { 1569s [00:52:49.700] { 1569s [00:52:49.700] { 1569s [00:52:49.700] base::local({ 1569s [00:52:49.700] has_future <- base::requireNamespace("future", 1569s [00:52:49.700] quietly = TRUE) 1569s [00:52:49.700] if (has_future) { 1569s [00:52:49.700] ns <- base::getNamespace("future") 1569s [00:52:49.700] version <- ns[[".package"]][["version"]] 1569s [00:52:49.700] if (is.null(version)) 1569s [00:52:49.700] version <- utils::packageVersion("future") 1569s [00:52:49.700] } 1569s [00:52:49.700] else { 1569s [00:52:49.700] version <- NULL 1569s [00:52:49.700] } 1569s [00:52:49.700] if (!has_future || version < "1.8.0") { 1569s [00:52:49.700] info <- base::c(r_version = base::gsub("R version ", 1569s [00:52:49.700] "", base::R.version$version.string), 1569s [00:52:49.700] platform = base::sprintf("%s (%s-bit)", 1569s [00:52:49.700] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1569s [00:52:49.700] os = base::paste(base::Sys.info()[base::c("sysname", 1569s [00:52:49.700] "release", "version")], collapse = " "), 1569s [00:52:49.700] hostname = base::Sys.info()[["nodename"]]) 1569s [00:52:49.700] info <- base::sprintf("%s: %s", base::names(info), 1569s [00:52:49.700] info) 1569s [00:52:49.700] info <- base::paste(info, collapse = "; ") 1569s [00:52:49.700] if (!has_future) { 1569s [00:52:49.700] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1569s [00:52:49.700] info) 1569s [00:52:49.700] } 1569s [00:52:49.700] else { 1569s [00:52:49.700] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1569s [00:52:49.700] info, version) 1569s [00:52:49.700] } 1569s [00:52:49.700] base::stop(msg) 1569s [00:52:49.700] } 1569s [00:52:49.700] }) 1569s [00:52:49.700] } 1569s [00:52:49.700] options(future.plan = NULL) 1569s [00:52:49.700] Sys.unsetenv("R_FUTURE_PLAN") 1569s [00:52:49.700] future::plan("default", .cleanup = FALSE, .init = FALSE) 1569s [00:52:49.700] } 1569s [00:52:49.700] ...future.workdir <- getwd() 1569s [00:52:49.700] } 1569s [00:52:49.700] ...future.oldOptions <- base::as.list(base::.Options) 1569s [00:52:49.700] ...future.oldEnvVars <- base::Sys.getenv() 1569s [00:52:49.700] } 1569s [00:52:49.700] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1569s [00:52:49.700] future.globals.maxSize = NULL, future.globals.method = NULL, 1569s [00:52:49.700] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1569s [00:52:49.700] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1569s [00:52:49.700] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1569s [00:52:49.700] future.stdout.windows.reencode = NULL, width = 80L) 1569s [00:52:49.700] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1569s [00:52:49.700] base::names(...future.oldOptions)) 1569s [00:52:49.700] } 1569s [00:52:49.700] if (FALSE) { 1569s [00:52:49.700] } 1569s [00:52:49.700] else { 1569s [00:52:49.700] if (TRUE) { 1569s [00:52:49.700] ...future.stdout <- base::rawConnection(base::raw(0L), 1569s [00:52:49.700] open = "w") 1569s [00:52:49.700] } 1569s [00:52:49.700] else { 1569s [00:52:49.700] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1569s [00:52:49.700] windows = "NUL", "/dev/null"), open = "w") 1569s [00:52:49.700] } 1569s [00:52:49.700] base::sink(...future.stdout, type = "output", split = FALSE) 1569s [00:52:49.700] base::on.exit(if (!base::is.null(...future.stdout)) { 1569s [00:52:49.700] base::sink(type = "output", split = FALSE) 1569s [00:52:49.700] base::close(...future.stdout) 1569s [00:52:49.700] }, add = TRUE) 1569s [00:52:49.700] } 1569s [00:52:49.700] ...future.frame <- base::sys.nframe() 1569s [00:52:49.700] ...future.conditions <- base::list() 1569s [00:52:49.700] ...future.rng <- base::globalenv()$.Random.seed 1569s [00:52:49.700] if (FALSE) { 1569s [00:52:49.700] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1569s [00:52:49.700] "...future.value", "...future.globalenv.names", ".Random.seed") 1569s [00:52:49.700] } 1569s [00:52:49.700] ...future.result <- base::tryCatch({ 1569s [00:52:49.700] base::withCallingHandlers({ 1569s [00:52:49.700] ...future.value <- base::withVisible(base::local({ 1569s [00:52:49.700] do.call(function(...) { 1569s [00:52:49.700] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.700] if (!identical(...future.globals.maxSize.org, 1569s [00:52:49.700] ...future.globals.maxSize)) { 1569s [00:52:49.700] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.700] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.700] } 1569s [00:52:49.700] { 1569s [00:52:49.700] lapply(seq_along(...future.elements_ii), 1569s [00:52:49.700] FUN = function(jj) { 1569s [00:52:49.700] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.700] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.700] }) 1569s [00:52:49.700] } 1569s [00:52:49.700] }, args = future.call.arguments) 1569s [00:52:49.700] })) 1569s [00:52:49.700] future::FutureResult(value = ...future.value$value, 1569s [00:52:49.700] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1569s [00:52:49.700] ...future.rng), globalenv = if (FALSE) 1569s [00:52:49.700] list(added = base::setdiff(base::names(base::.GlobalEnv), 1569s [00:52:49.700] ...future.globalenv.names)) 1569s [00:52:49.700] else NULL, started = ...future.startTime, version = "1.8") 1569s [00:52:49.700] }, condition = base::local({ 1569s [00:52:49.700] c <- base::c 1569s [00:52:49.700] inherits <- base::inherits 1569s [00:52:49.700] invokeRestart <- base::invokeRestart 1569s [00:52:49.700] length <- base::length 1569s [00:52:49.700] list <- base::list 1569s [00:52:49.700] seq.int <- base::seq.int 1569s [00:52:49.700] signalCondition <- base::signalCondition 1569s [00:52:49.700] sys.calls <- base::sys.calls 1569s [00:52:49.700] `[[` <- base::`[[` 1569s [00:52:49.700] `+` <- base::`+` 1569s [00:52:49.700] `<<-` <- base::`<<-` 1569s [00:52:49.700] sysCalls <- function(calls = sys.calls(), from = 1L) { 1569s [00:52:49.700] calls[seq.int(from = from + 12L, to = length(calls) - 1569s [00:52:49.700] 3L)] 1569s [00:52:49.700] } 1569s [00:52:49.700] function(cond) { 1569s [00:52:49.700] is_error <- inherits(cond, "error") 1569s [00:52:49.700] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1569s [00:52:49.700] NULL) 1569s [00:52:49.700] if (is_error) { 1569s [00:52:49.700] sessionInformation <- function() { 1569s [00:52:49.700] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1569s [00:52:49.700] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1569s [00:52:49.700] search = base::search(), system = base::Sys.info()) 1569s [00:52:49.700] } 1569s [00:52:49.700] ...future.conditions[[length(...future.conditions) + 1569s [00:52:49.700] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1569s [00:52:49.700] cond$call), session = sessionInformation(), 1569s [00:52:49.700] timestamp = base::Sys.time(), signaled = 0L) 1569s [00:52:49.700] signalCondition(cond) 1569s [00:52:49.700] } 1569s [00:52:49.700] else if (!ignore && TRUE && inherits(cond, c("condition", 1569s [00:52:49.700] "immediateCondition"))) { 1569s [00:52:49.700] signal <- TRUE && inherits(cond, "immediateCondition") 1569s [00:52:49.700] ...future.conditions[[length(...future.conditions) + 1569s [00:52:49.700] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1569s [00:52:49.700] if (TRUE && !signal) { 1569s [00:52:49.700] muffleCondition <- function (cond, pattern = "^muffle") 1569s [00:52:49.700] { 1569s [00:52:49.700] inherits <- base::inherits 1569s [00:52:49.700] invokeRestart <- base::invokeRestart 1569s [00:52:49.700] is.null <- base::is.null 1569s [00:52:49.700] muffled <- FALSE 1569s [00:52:49.700] if (inherits(cond, "message")) { 1569s [00:52:49.700] muffled <- grepl(pattern, "muffleMessage") 1569s [00:52:49.700] if (muffled) 1569s [00:52:49.700] invokeRestart("muffleMessage") 1569s [00:52:49.700] } 1569s [00:52:49.700] else if (inherits(cond, "warning")) { 1569s [00:52:49.700] muffled <- grepl(pattern, "muffleWarning") 1569s [00:52:49.700] if (muffled) 1569s [00:52:49.700] invokeRestart("muffleWarning") 1569s [00:52:49.700] } 1569s [00:52:49.700] else if (inherits(cond, "condition")) { 1569s [00:52:49.700] if (!is.null(pattern)) { 1569s [00:52:49.700] computeRestarts <- base::computeRestarts 1569s [00:52:49.700] grepl <- base::grepl 1569s [00:52:49.700] restarts <- computeRestarts(cond) 1569s [00:52:49.700] for (restart in restarts) { 1569s [00:52:49.700] name <- restart$name 1569s [00:52:49.700] if (is.null(name)) 1569s [00:52:49.700] next 1569s [00:52:49.700] if (!grepl(pattern, name)) 1569s [00:52:49.700] next 1569s [00:52:49.700] invokeRestart(restart) 1569s [00:52:49.700] muffled <- TRUE 1569s [00:52:49.700] break 1569s [00:52:49.700] } 1569s [00:52:49.700] } 1569s [00:52:49.700] } 1569s [00:52:49.700] invisible(muffled) 1569s [00:52:49.700] } 1569s [00:52:49.700] muffleCondition(cond, pattern = "^muffle") 1569s [00:52:49.700] } 1569s [00:52:49.700] } 1569s [00:52:49.700] else { 1569s [00:52:49.700] if (TRUE) { 1569s [00:52:49.700] muffleCondition <- function (cond, pattern = "^muffle") 1569s [00:52:49.700] { 1569s [00:52:49.700] inherits <- base::inherits 1569s [00:52:49.700] invokeRestart <- base::invokeRestart 1569s [00:52:49.700] is.null <- base::is.null 1569s [00:52:49.700] muffled <- FALSE 1569s [00:52:49.700] if (inherits(cond, "message")) { 1569s [00:52:49.700] muffled <- grepl(pattern, "muffleMessage") 1569s [00:52:49.700] if (muffled) 1569s [00:52:49.700] invokeRestart("muffleMessage") 1569s [00:52:49.700] } 1569s [00:52:49.700] else if (inherits(cond, "warning")) { 1569s [00:52:49.700] muffled <- grepl(pattern, "muffleWarning") 1569s [00:52:49.700] if (muffled) 1569s [00:52:49.700] invokeRestart("muffleWarning") 1569s [00:52:49.700] } 1569s [00:52:49.700] else if (inherits(cond, "condition")) { 1569s [00:52:49.700] if (!is.null(pattern)) { 1569s [00:52:49.700] computeRestarts <- base::computeRestarts 1569s [00:52:49.700] grepl <- base::grepl 1569s [00:52:49.700] restarts <- computeRestarts(cond) 1569s [00:52:49.700] for (restart in restarts) { 1569s [00:52:49.700] name <- restart$name 1569s [00:52:49.700] if (is.null(name)) 1569s [00:52:49.700] next 1569s [00:52:49.700] if (!grepl(pattern, name)) 1569s [00:52:49.700] next 1569s [00:52:49.700] invokeRestart(restart) 1569s [00:52:49.700] muffled <- TRUE 1569s [00:52:49.700] break 1569s [00:52:49.700] } 1569s [00:52:49.700] } 1569s [00:52:49.700] } 1569s [00:52:49.700] invisible(muffled) 1569s [00:52:49.700] } 1569s [00:52:49.700] muffleCondition(cond, pattern = "^muffle") 1569s [00:52:49.700] } 1569s [00:52:49.700] } 1569s [00:52:49.700] } 1569s [00:52:49.700] })) 1569s [00:52:49.700] }, error = function(ex) { 1569s [00:52:49.700] base::structure(base::list(value = NULL, visible = NULL, 1569s [00:52:49.700] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1569s [00:52:49.700] ...future.rng), started = ...future.startTime, 1569s [00:52:49.700] finished = Sys.time(), session_uuid = NA_character_, 1569s [00:52:49.700] version = "1.8"), class = "FutureResult") 1569s [00:52:49.700] }, finally = { 1569s [00:52:49.700] if (!identical(...future.workdir, getwd())) 1569s [00:52:49.700] setwd(...future.workdir) 1569s [00:52:49.700] { 1569s [00:52:49.700] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1569s [00:52:49.700] ...future.oldOptions$nwarnings <- NULL 1569s [00:52:49.700] } 1569s [00:52:49.700] base::options(...future.oldOptions) 1569s [00:52:49.700] if (.Platform$OS.type == "windows") { 1569s [00:52:49.700] old_names <- names(...future.oldEnvVars) 1569s [00:52:49.700] envs <- base::Sys.getenv() 1569s [00:52:49.700] names <- names(envs) 1569s [00:52:49.700] common <- intersect(names, old_names) 1569s [00:52:49.700] added <- setdiff(names, old_names) 1569s [00:52:49.700] removed <- setdiff(old_names, names) 1569s [00:52:49.700] changed <- common[...future.oldEnvVars[common] != 1569s [00:52:49.700] envs[common]] 1569s [00:52:49.700] NAMES <- toupper(changed) 1569s [00:52:49.700] args <- list() 1569s [00:52:49.700] for (kk in seq_along(NAMES)) { 1569s [00:52:49.700] name <- changed[[kk]] 1569s [00:52:49.700] NAME <- NAMES[[kk]] 1569s [00:52:49.700] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.700] next 1569s [00:52:49.700] args[[name]] <- ...future.oldEnvVars[[name]] 1569s [00:52:49.700] } 1569s [00:52:49.700] NAMES <- toupper(added) 1569s [00:52:49.700] for (kk in seq_along(NAMES)) { 1569s [00:52:49.700] name <- added[[kk]] 1569s [00:52:49.700] NAME <- NAMES[[kk]] 1569s [00:52:49.700] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.700] next 1569s [00:52:49.700] args[[name]] <- "" 1569s [00:52:49.700] } 1569s [00:52:49.700] NAMES <- toupper(removed) 1569s [00:52:49.700] for (kk in seq_along(NAMES)) { 1569s [00:52:49.700] name <- removed[[kk]] 1569s [00:52:49.700] NAME <- NAMES[[kk]] 1569s [00:52:49.700] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.700] next 1569s [00:52:49.700] args[[name]] <- ...future.oldEnvVars[[name]] 1569s [00:52:49.700] } 1569s [00:52:49.700] if (length(args) > 0) 1569s [00:52:49.700] base::do.call(base::Sys.setenv, args = args) 1569s [00:52:49.700] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1569s [00:52:49.700] } 1569s [00:52:49.700] else { 1569s [00:52:49.700] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1569s [00:52:49.700] } 1569s [00:52:49.700] { 1569s [00:52:49.700] if (base::length(...future.futureOptionsAdded) > 1569s [00:52:49.700] 0L) { 1569s [00:52:49.700] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1569s [00:52:49.700] base::names(opts) <- ...future.futureOptionsAdded 1569s [00:52:49.700] base::options(opts) 1569s [00:52:49.700] } 1569s [00:52:49.700] { 1569s [00:52:49.700] { 1569s [00:52:49.700] NULL 1569s [00:52:49.700] RNGkind("Mersenne-Twister") 1569s [00:52:49.700] base::rm(list = ".Random.seed", envir = base::globalenv(), 1569s [00:52:49.700] inherits = FALSE) 1569s [00:52:49.700] } 1569s [00:52:49.700] options(future.plan = NULL) 1569s [00:52:49.700] if (is.na(NA_character_)) 1569s [00:52:49.700] Sys.unsetenv("R_FUTURE_PLAN") 1569s [00:52:49.700] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1569s [00:52:49.700] future::plan(list(function (..., envir = parent.frame()) 1569s [00:52:49.700] { 1569s [00:52:49.700] future <- SequentialFuture(..., envir = envir) 1569s [00:52:49.700] if (!future$lazy) 1569s [00:52:49.700] future <- run(future) 1569s [00:52:49.700] invisible(future) 1569s [00:52:49.700] }), .cleanup = FALSE, .init = FALSE) 1569s [00:52:49.700] } 1569s [00:52:49.700] } 1569s [00:52:49.700] } 1569s [00:52:49.700] }) 1569s [00:52:49.700] if (TRUE) { 1569s [00:52:49.700] base::sink(type = "output", split = FALSE) 1569s [00:52:49.700] if (TRUE) { 1569s [00:52:49.700] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1569s [00:52:49.700] } 1569s [00:52:49.700] else { 1569s [00:52:49.700] ...future.result["stdout"] <- base::list(NULL) 1569s [00:52:49.700] } 1569s [00:52:49.700] base::close(...future.stdout) 1569s [00:52:49.700] ...future.stdout <- NULL 1569s [00:52:49.700] } 1569s [00:52:49.700] ...future.result$conditions <- ...future.conditions 1569s [00:52:49.700] ...future.result$finished <- base::Sys.time() 1569s [00:52:49.700] ...future.result 1569s [00:52:49.700] } 1569s [00:52:49.704] assign_globals() ... 1569s [00:52:49.704] List of 5 1569s [00:52:49.704] $ ...future.FUN :function (x, ...) 1569s [00:52:49.704] $ future.call.arguments : list() 1569s [00:52:49.704] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.704] $ ...future.elements_ii :List of 6 1569s [00:52:49.704] ..$ a1: int 1 1569s [00:52:49.704] ..$ a2: int 2 1569s [00:52:49.704] ..$ b1: int 2 1569s [00:52:49.704] ..$ b2: int 3 1569s [00:52:49.704] ..$ c1: int 3 1569s [00:52:49.704] ..$ c2: int 4 1569s [00:52:49.704] $ ...future.seeds_ii : NULL 1569s [00:52:49.704] $ ...future.globals.maxSize: NULL 1569s [00:52:49.704] - attr(*, "where")=List of 5 1569s [00:52:49.704] ..$ ...future.FUN : 1569s [00:52:49.704] ..$ future.call.arguments : 1569s [00:52:49.704] ..$ ...future.elements_ii : 1569s [00:52:49.704] ..$ ...future.seeds_ii : 1569s [00:52:49.704] ..$ ...future.globals.maxSize: 1569s [00:52:49.704] - attr(*, "resolved")= logi FALSE 1569s [00:52:49.704] - attr(*, "total_size")= num 1248 1569s [00:52:49.704] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.704] - attr(*, "already-done")= logi TRUE 1569s [00:52:49.711] - copied ‘...future.FUN’ to environment 1569s [00:52:49.711] - copied ‘future.call.arguments’ to environment 1569s [00:52:49.712] - copied ‘...future.elements_ii’ to environment 1569s [00:52:49.712] - copied ‘...future.seeds_ii’ to environment 1569s [00:52:49.712] - copied ‘...future.globals.maxSize’ to environment 1569s [00:52:49.712] assign_globals() ... done 1569s [00:52:49.712] plan(): Setting new future strategy stack: 1569s [00:52:49.712] List of future strategies: 1569s [00:52:49.712] 1. sequential: 1569s [00:52:49.712] - args: function (..., envir = parent.frame()) 1569s [00:52:49.712] - tweaked: FALSE 1569s [00:52:49.712] - call: NULL 1569s [00:52:49.713] plan(): nbrOfWorkers() = 1 1569s [00:52:49.714] plan(): Setting new future strategy stack: 1569s [00:52:49.714] List of future strategies: 1569s [00:52:49.714] 1. sequential: 1569s [00:52:49.714] - args: function (..., envir = parent.frame()) 1569s [00:52:49.714] - tweaked: FALSE 1569s [00:52:49.714] - call: plan(strategy) 1569s [00:52:49.714] plan(): nbrOfWorkers() = 1 1569s [00:52:49.715] SequentialFuture started (and completed) 1569s [00:52:49.715] - Launch lazy future ... done 1569s [00:52:49.715] run() for ‘SequentialFuture’ ... done 1569s [00:52:49.715] Created future: 1569s [00:52:49.715] SequentialFuture: 1569s [00:52:49.715] Label: ‘future_sapply-1’ 1569s [00:52:49.715] Expression: 1569s [00:52:49.715] { 1569s [00:52:49.715] do.call(function(...) { 1569s [00:52:49.715] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.715] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1569s [00:52:49.715] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.715] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.715] } 1569s [00:52:49.715] { 1569s [00:52:49.715] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1569s [00:52:49.715] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.715] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.715] }) 1569s [00:52:49.715] } 1569s [00:52:49.715] }, args = future.call.arguments) 1569s [00:52:49.715] } 1569s [00:52:49.715] Lazy evaluation: FALSE 1569s [00:52:49.715] Asynchronous evaluation: FALSE 1569s [00:52:49.715] Local evaluation: TRUE 1569s [00:52:49.715] Environment: R_GlobalEnv 1569s [00:52:49.715] Capture standard output: TRUE 1569s [00:52:49.715] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1569s [00:52:49.715] Globals: 5 objects totaling 1.55 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1569s [00:52:49.715] Packages: 1569s [00:52:49.715] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1569s [00:52:49.715] Resolved: TRUE 1569s [00:52:49.715] Value: 1.31 KiB of class ‘list’ 1569s [00:52:49.715] Early signaling: FALSE 1569s [00:52:49.715] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1569s [00:52:49.715] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1569s [00:52:49.717] Chunk #1 of 1 ... DONE 1569s [00:52:49.717] Launching 1 futures (chunks) ... DONE 1569s [00:52:49.717] Resolving 1 futures (chunks) ... 1569s [00:52:49.717] resolve() on list ... 1569s [00:52:49.717] recursive: 0 1569s [00:52:49.718] length: 1 1569s [00:52:49.718] 1569s [00:52:49.718] resolved() for ‘SequentialFuture’ ... 1569s [00:52:49.718] - state: ‘finished’ 1569s [00:52:49.718] - run: TRUE 1569s [00:52:49.718] - result: ‘FutureResult’ 1569s [00:52:49.718] resolved() for ‘SequentialFuture’ ... done 1569s [00:52:49.719] Future #1 1569s [00:52:49.719] signalConditionsASAP(SequentialFuture, pos=1) ... 1569s [00:52:49.719] - nx: 1 1569s [00:52:49.719] - relay: TRUE 1569s [00:52:49.719] - stdout: TRUE 1569s [00:52:49.719] - signal: TRUE 1569s [00:52:49.720] - resignal: FALSE 1569s [00:52:49.720] - force: TRUE 1569s [00:52:49.720] - relayed: [n=1] FALSE 1569s [00:52:49.720] - queued futures: [n=1] FALSE 1569s [00:52:49.722] - until=1 1569s [00:52:49.722] - relaying element #1 1569s [00:52:49.722] - relayed: [n=1] TRUE 1569s [00:52:49.722] - queued futures: [n=1] TRUE 1569s [00:52:49.723] signalConditionsASAP(SequentialFuture, pos=1) ... done 1569s [00:52:49.723] length: 0 (resolved future 1) 1569s [00:52:49.723] Relaying remaining futures 1569s [00:52:49.723] signalConditionsASAP(NULL, pos=0) ... 1569s [00:52:49.723] - nx: 1 1569s [00:52:49.723] - relay: TRUE 1569s [00:52:49.723] - stdout: TRUE 1569s [00:52:49.724] - signal: TRUE 1569s [00:52:49.724] - resignal: FALSE 1569s [00:52:49.724] - force: TRUE 1569s [00:52:49.724] - relayed: [n=1] TRUE 1569s [00:52:49.724] - queued futures: [n=1] TRUE 1569s - flush all 1569s [00:52:49.724] - relayed: [n=1] TRUE 1569s [00:52:49.724] - queued futures: [n=1] TRUE 1569s [00:52:49.725] signalConditionsASAP(NULL, pos=0) ... done 1569s [00:52:49.725] resolve() on list ... DONE 1569s [00:52:49.725] - Number of value chunks collected: 1 1569s [00:52:49.725] Resolving 1 futures (chunks) ... DONE 1569s [00:52:49.725] Reducing values from 1 chunks ... 1569s [00:52:49.725] - Number of values collected after concatenation: 6 1569s [00:52:49.726] - Number of values expected: 6 1569s [00:52:49.726] Reducing values from 1 chunks ... DONE 1569s [00:52:49.726] future_lapply() ... DONE 1569s List of 2 1569s $ y0: Named int [1:6] 1 2 2 3 3 4 1569s ..- attr(*, "names")= chr [1:6] "a1" "a2" "b1" "b2" ... 1569s $ y1: Named int [1:6] 1 2 2 3 3 4 1569s ..- attr(*, "names")= chr [1:6] "a1" "a2" "b1" "b2" ...[00:52:49.729] future_lapply() ... 1569s 1569s [00:52:49.730] Number of chunks: 1 1569s [00:52:49.730] getGlobalsAndPackagesXApply() ... 1569s [00:52:49.730] - future.globals: TRUE 1569s [00:52:49.730] getGlobalsAndPackages() ... 1569s [00:52:49.730] Searching for globals... 1569s [00:52:49.732] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1569s [00:52:49.732] Searching for globals ... DONE 1569s [00:52:49.732] Resolving globals: FALSE 1569s [00:52:49.733] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1569s [00:52:49.733] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1569s [00:52:49.733] - globals: [1] ‘FUN’ 1569s [00:52:49.734] 1569s [00:52:49.734] getGlobalsAndPackages() ... DONE 1569s [00:52:49.734] - globals found/used: [n=1] ‘FUN’ 1569s [00:52:49.734] - needed namespaces: [n=0] 1569s [00:52:49.734] Finding globals ... DONE 1569s [00:52:49.734] - use_args: TRUE 1569s [00:52:49.734] - Getting '...' globals ... 1569s [00:52:49.735] resolve() on list ... 1569s [00:52:49.735] recursive: 0 1569s [00:52:49.735] length: 1 1569s [00:52:49.735] elements: ‘...’ 1569s [00:52:49.735] length: 0 (resolved future 1) 1569s [00:52:49.735] resolve() on list ... DONE 1569s [00:52:49.736] - '...' content: [n=0] 1569s [00:52:49.736] List of 1 1569s [00:52:49.736] $ ...: list() 1569s [00:52:49.736] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.736] - attr(*, "where")=List of 1 1569s [00:52:49.736] ..$ ...: 1569s [00:52:49.736] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.736] - attr(*, "resolved")= logi TRUE 1569s [00:52:49.736] - attr(*, "total_size")= num NA 1569s [00:52:49.739] - Getting '...' globals ... DONE 1569s [00:52:49.739] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1569s [00:52:49.739] List of 2 1569s [00:52:49.739] $ ...future.FUN:function (x, y = 2 * 1:5) 1569s [00:52:49.739] $ ... : list() 1569s [00:52:49.739] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.739] - attr(*, "where")=List of 2 1569s [00:52:49.739] ..$ ...future.FUN: 1569s [00:52:49.739] ..$ ... : 1569s [00:52:49.739] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.739] - attr(*, "resolved")= logi FALSE 1569s [00:52:49.739] - attr(*, "total_size")= num 4728 1569s [00:52:49.742] Packages to be attached in all futures: [n=0] 1569s [00:52:49.742] getGlobalsAndPackagesXApply() ... DONE 1569s [00:52:49.743] Number of futures (= number of chunks): 1 1569s [00:52:49.743] Launching 1 futures (chunks) ... 1569s [00:52:49.743] Chunk #1 of 1 ... 1569s [00:52:49.743] - Finding globals in 'X' for chunk #1 ... 1569s [00:52:49.743] getGlobalsAndPackages() ... 1569s [00:52:49.743] Searching for globals... 1569s [00:52:49.744] 1569s [00:52:49.744] Searching for globals ... DONE 1569s [00:52:49.744] - globals: [0] 1569s [00:52:49.744] getGlobalsAndPackages() ... DONE 1569s [00:52:49.744] + additional globals found: [n=0] 1569s [00:52:49.744] + additional namespaces needed: [n=0] 1569s [00:52:49.744] - Finding globals in 'X' for chunk #1 ... DONE 1569s [00:52:49.744] - seeds: 1569s [00:52:49.745] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:49.745] getGlobalsAndPackages() ... 1569s [00:52:49.745] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:49.745] Resolving globals: FALSE 1569s [00:52:49.745] Tweak future expression to call with '...' arguments ... 1569s [00:52:49.745] { 1569s [00:52:49.745] do.call(function(...) { 1569s [00:52:49.745] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.745] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1569s [00:52:49.745] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.745] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.745] } 1569s [00:52:49.745] { 1569s [00:52:49.745] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1569s [00:52:49.745] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.745] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.745] }) 1569s [00:52:49.745] } 1569s [00:52:49.745] }, args = future.call.arguments) 1569s [00:52:49.745] } 1569s [00:52:49.746] Tweak future expression to call with '...' arguments ... DONE 1569s [00:52:49.746] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:49.746] 1569s [00:52:49.746] getGlobalsAndPackages() ... DONE 1569s [00:52:49.747] run() for ‘Future’ ... 1569s [00:52:49.747] - state: ‘created’ 1569s [00:52:49.747] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1569s [00:52:49.747] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1569s [00:52:49.747] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1569s [00:52:49.747] - Field: ‘label’ 1569s [00:52:49.747] - Field: ‘local’ 1569s [00:52:49.748] - Field: ‘owner’ 1569s [00:52:49.748] - Field: ‘envir’ 1569s [00:52:49.748] - Field: ‘packages’ 1569s [00:52:49.748] - Field: ‘gc’ 1569s [00:52:49.748] - Field: ‘conditions’ 1569s [00:52:49.748] - Field: ‘expr’ 1569s [00:52:49.748] - Field: ‘uuid’ 1569s [00:52:49.748] - Field: ‘seed’ 1569s [00:52:49.749] - Field: ‘version’ 1569s [00:52:49.749] - Field: ‘result’ 1569s [00:52:49.749] - Field: ‘asynchronous’ 1569s [00:52:49.749] - Field: ‘calls’ 1569s [00:52:49.749] - Field: ‘globals’ 1569s [00:52:49.749] - Field: ‘stdout’ 1569s [00:52:49.749] - Field: ‘earlySignal’ 1569s [00:52:49.749] - Field: ‘lazy’ 1569s [00:52:49.749] - Field: ‘state’ 1569s [00:52:49.750] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1569s [00:52:49.750] - Launch lazy future ... 1569s [00:52:49.750] Packages needed by the future expression (n = 0): 1569s [00:52:49.750] Packages needed by future strategies (n = 0): 1569s [00:52:49.751] { 1569s [00:52:49.751] { 1569s [00:52:49.751] { 1569s [00:52:49.751] ...future.startTime <- base::Sys.time() 1569s [00:52:49.751] { 1569s [00:52:49.751] { 1569s [00:52:49.751] { 1569s [00:52:49.751] base::local({ 1569s [00:52:49.751] has_future <- base::requireNamespace("future", 1569s [00:52:49.751] quietly = TRUE) 1569s [00:52:49.751] if (has_future) { 1569s [00:52:49.751] ns <- base::getNamespace("future") 1569s [00:52:49.751] version <- ns[[".package"]][["version"]] 1569s [00:52:49.751] if (is.null(version)) 1569s [00:52:49.751] version <- utils::packageVersion("future") 1569s [00:52:49.751] } 1569s [00:52:49.751] else { 1569s [00:52:49.751] version <- NULL 1569s [00:52:49.751] } 1569s [00:52:49.751] if (!has_future || version < "1.8.0") { 1569s [00:52:49.751] info <- base::c(r_version = base::gsub("R version ", 1569s [00:52:49.751] "", base::R.version$version.string), 1569s [00:52:49.751] platform = base::sprintf("%s (%s-bit)", 1569s [00:52:49.751] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1569s [00:52:49.751] os = base::paste(base::Sys.info()[base::c("sysname", 1569s [00:52:49.751] "release", "version")], collapse = " "), 1569s [00:52:49.751] hostname = base::Sys.info()[["nodename"]]) 1569s [00:52:49.751] info <- base::sprintf("%s: %s", base::names(info), 1569s [00:52:49.751] info) 1569s [00:52:49.751] info <- base::paste(info, collapse = "; ") 1569s [00:52:49.751] if (!has_future) { 1569s [00:52:49.751] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1569s [00:52:49.751] info) 1569s [00:52:49.751] } 1569s [00:52:49.751] else { 1569s [00:52:49.751] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1569s [00:52:49.751] info, version) 1569s [00:52:49.751] } 1569s [00:52:49.751] base::stop(msg) 1569s [00:52:49.751] } 1569s [00:52:49.751] }) 1569s [00:52:49.751] } 1569s [00:52:49.751] options(future.plan = NULL) 1569s [00:52:49.751] Sys.unsetenv("R_FUTURE_PLAN") 1569s [00:52:49.751] future::plan("default", .cleanup = FALSE, .init = FALSE) 1569s [00:52:49.751] } 1569s [00:52:49.751] ...future.workdir <- getwd() 1569s [00:52:49.751] } 1569s [00:52:49.751] ...future.oldOptions <- base::as.list(base::.Options) 1569s [00:52:49.751] ...future.oldEnvVars <- base::Sys.getenv() 1569s [00:52:49.751] } 1569s [00:52:49.751] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1569s [00:52:49.751] future.globals.maxSize = NULL, future.globals.method = NULL, 1569s [00:52:49.751] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1569s [00:52:49.751] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1569s [00:52:49.751] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1569s [00:52:49.751] future.stdout.windows.reencode = NULL, width = 80L) 1569s [00:52:49.751] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1569s [00:52:49.751] base::names(...future.oldOptions)) 1569s [00:52:49.751] } 1569s [00:52:49.751] if (FALSE) { 1569s [00:52:49.751] } 1569s [00:52:49.751] else { 1569s [00:52:49.751] if (TRUE) { 1569s [00:52:49.751] ...future.stdout <- base::rawConnection(base::raw(0L), 1569s [00:52:49.751] open = "w") 1569s [00:52:49.751] } 1569s [00:52:49.751] else { 1569s [00:52:49.751] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1569s [00:52:49.751] windows = "NUL", "/dev/null"), open = "w") 1569s [00:52:49.751] } 1569s [00:52:49.751] base::sink(...future.stdout, type = "output", split = FALSE) 1569s [00:52:49.751] base::on.exit(if (!base::is.null(...future.stdout)) { 1569s [00:52:49.751] base::sink(type = "output", split = FALSE) 1569s [00:52:49.751] base::close(...future.stdout) 1569s [00:52:49.751] }, add = TRUE) 1569s [00:52:49.751] } 1569s [00:52:49.751] ...future.frame <- base::sys.nframe() 1569s [00:52:49.751] ...future.conditions <- base::list() 1569s [00:52:49.751] ...future.rng <- base::globalenv()$.Random.seed 1569s [00:52:49.751] if (FALSE) { 1569s [00:52:49.751] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1569s [00:52:49.751] "...future.value", "...future.globalenv.names", ".Random.seed") 1569s [00:52:49.751] } 1569s [00:52:49.751] ...future.result <- base::tryCatch({ 1569s [00:52:49.751] base::withCallingHandlers({ 1569s [00:52:49.751] ...future.value <- base::withVisible(base::local({ 1569s [00:52:49.751] do.call(function(...) { 1569s [00:52:49.751] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.751] if (!identical(...future.globals.maxSize.org, 1569s [00:52:49.751] ...future.globals.maxSize)) { 1569s [00:52:49.751] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.751] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.751] } 1569s [00:52:49.751] { 1569s [00:52:49.751] lapply(seq_along(...future.elements_ii), 1569s [00:52:49.751] FUN = function(jj) { 1569s [00:52:49.751] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.751] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.751] }) 1569s [00:52:49.751] } 1569s [00:52:49.751] }, args = future.call.arguments) 1569s [00:52:49.751] })) 1569s [00:52:49.751] future::FutureResult(value = ...future.value$value, 1569s [00:52:49.751] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1569s [00:52:49.751] ...future.rng), globalenv = if (FALSE) 1569s [00:52:49.751] list(added = base::setdiff(base::names(base::.GlobalEnv), 1569s [00:52:49.751] ...future.globalenv.names)) 1569s [00:52:49.751] else NULL, started = ...future.startTime, version = "1.8") 1569s [00:52:49.751] }, condition = base::local({ 1569s [00:52:49.751] c <- base::c 1569s [00:52:49.751] inherits <- base::inherits 1569s [00:52:49.751] invokeRestart <- base::invokeRestart 1569s [00:52:49.751] length <- base::length 1569s [00:52:49.751] list <- base::list 1569s [00:52:49.751] seq.int <- base::seq.int 1569s [00:52:49.751] signalCondition <- base::signalCondition 1569s [00:52:49.751] sys.calls <- base::sys.calls 1569s [00:52:49.751] `[[` <- base::`[[` 1569s [00:52:49.751] `+` <- base::`+` 1569s [00:52:49.751] `<<-` <- base::`<<-` 1569s [00:52:49.751] sysCalls <- function(calls = sys.calls(), from = 1L) { 1569s [00:52:49.751] calls[seq.int(from = from + 12L, to = length(calls) - 1569s [00:52:49.751] 3L)] 1569s [00:52:49.751] } 1569s [00:52:49.751] function(cond) { 1569s [00:52:49.751] is_error <- inherits(cond, "error") 1569s [00:52:49.751] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1569s [00:52:49.751] NULL) 1569s [00:52:49.751] if (is_error) { 1569s [00:52:49.751] sessionInformation <- function() { 1569s [00:52:49.751] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1569s [00:52:49.751] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1569s [00:52:49.751] search = base::search(), system = base::Sys.info()) 1569s [00:52:49.751] } 1569s [00:52:49.751] ...future.conditions[[length(...future.conditions) + 1569s [00:52:49.751] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1569s [00:52:49.751] cond$call), session = sessionInformation(), 1569s [00:52:49.751] timestamp = base::Sys.time(), signaled = 0L) 1569s [00:52:49.751] signalCondition(cond) 1569s [00:52:49.751] } 1569s [00:52:49.751] else if (!ignore && TRUE && inherits(cond, c("condition", 1569s [00:52:49.751] "immediateCondition"))) { 1569s [00:52:49.751] signal <- TRUE && inherits(cond, "immediateCondition") 1569s [00:52:49.751] ...future.conditions[[length(...future.conditions) + 1569s [00:52:49.751] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1569s [00:52:49.751] if (TRUE && !signal) { 1569s [00:52:49.751] muffleCondition <- function (cond, pattern = "^muffle") 1569s [00:52:49.751] { 1569s [00:52:49.751] inherits <- base::inherits 1569s [00:52:49.751] invokeRestart <- base::invokeRestart 1569s [00:52:49.751] is.null <- base::is.null 1569s [00:52:49.751] muffled <- FALSE 1569s [00:52:49.751] if (inherits(cond, "message")) { 1569s [00:52:49.751] muffled <- grepl(pattern, "muffleMessage") 1569s [00:52:49.751] if (muffled) 1569s [00:52:49.751] invokeRestart("muffleMessage") 1569s [00:52:49.751] } 1569s [00:52:49.751] else if (inherits(cond, "warning")) { 1569s [00:52:49.751] muffled <- grepl(pattern, "muffleWarning") 1569s [00:52:49.751] if (muffled) 1569s [00:52:49.751] invokeRestart("muffleWarning") 1569s [00:52:49.751] } 1569s [00:52:49.751] else if (inherits(cond, "condition")) { 1569s [00:52:49.751] if (!is.null(pattern)) { 1569s [00:52:49.751] computeRestarts <- base::computeRestarts 1569s [00:52:49.751] grepl <- base::grepl 1569s [00:52:49.751] restarts <- computeRestarts(cond) 1569s [00:52:49.751] for (restart in restarts) { 1569s [00:52:49.751] name <- restart$name 1569s [00:52:49.751] if (is.null(name)) 1569s [00:52:49.751] next 1569s [00:52:49.751] if (!grepl(pattern, name)) 1569s [00:52:49.751] next 1569s [00:52:49.751] invokeRestart(restart) 1569s [00:52:49.751] muffled <- TRUE 1569s [00:52:49.751] break 1569s [00:52:49.751] } 1569s [00:52:49.751] } 1569s [00:52:49.751] } 1569s [00:52:49.751] invisible(muffled) 1569s [00:52:49.751] } 1569s [00:52:49.751] muffleCondition(cond, pattern = "^muffle") 1569s [00:52:49.751] } 1569s [00:52:49.751] } 1569s [00:52:49.751] else { 1569s [00:52:49.751] if (TRUE) { 1569s [00:52:49.751] muffleCondition <- function (cond, pattern = "^muffle") 1569s [00:52:49.751] { 1569s [00:52:49.751] inherits <- base::inherits 1569s [00:52:49.751] invokeRestart <- base::invokeRestart 1569s [00:52:49.751] is.null <- base::is.null 1569s [00:52:49.751] muffled <- FALSE 1569s [00:52:49.751] if (inherits(cond, "message")) { 1569s [00:52:49.751] muffled <- grepl(pattern, "muffleMessage") 1569s [00:52:49.751] if (muffled) 1569s [00:52:49.751] invokeRestart("muffleMessage") 1569s [00:52:49.751] } 1569s [00:52:49.751] else if (inherits(cond, "warning")) { 1569s [00:52:49.751] muffled <- grepl(pattern, "muffleWarning") 1569s [00:52:49.751] if (muffled) 1569s [00:52:49.751] invokeRestart("muffleWarning") 1569s [00:52:49.751] } 1569s [00:52:49.751] else if (inherits(cond, "condition")) { 1569s [00:52:49.751] if (!is.null(pattern)) { 1569s [00:52:49.751] computeRestarts <- base::computeRestarts 1569s [00:52:49.751] grepl <- base::grepl 1569s [00:52:49.751] restarts <- computeRestarts(cond) 1569s [00:52:49.751] for (restart in restarts) { 1569s [00:52:49.751] name <- restart$name 1569s [00:52:49.751] if (is.null(name)) 1569s [00:52:49.751] next 1569s [00:52:49.751] if (!grepl(pattern, name)) 1569s [00:52:49.751] next 1569s [00:52:49.751] invokeRestart(restart) 1569s [00:52:49.751] muffled <- TRUE 1569s [00:52:49.751] break 1569s [00:52:49.751] } 1569s [00:52:49.751] } 1569s [00:52:49.751] } 1569s [00:52:49.751] invisible(muffled) 1569s [00:52:49.751] } 1569s [00:52:49.751] muffleCondition(cond, pattern = "^muffle") 1569s [00:52:49.751] } 1569s [00:52:49.751] } 1569s [00:52:49.751] } 1569s [00:52:49.751] })) 1569s [00:52:49.751] }, error = function(ex) { 1569s [00:52:49.751] base::structure(base::list(value = NULL, visible = NULL, 1569s [00:52:49.751] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1569s [00:52:49.751] ...future.rng), started = ...future.startTime, 1569s [00:52:49.751] finished = Sys.time(), session_uuid = NA_character_, 1569s [00:52:49.751] version = "1.8"), class = "FutureResult") 1569s [00:52:49.751] }, finally = { 1569s [00:52:49.751] if (!identical(...future.workdir, getwd())) 1569s [00:52:49.751] setwd(...future.workdir) 1569s [00:52:49.751] { 1569s [00:52:49.751] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1569s [00:52:49.751] ...future.oldOptions$nwarnings <- NULL 1569s [00:52:49.751] } 1569s [00:52:49.751] base::options(...future.oldOptions) 1569s [00:52:49.751] if (.Platform$OS.type == "windows") { 1569s [00:52:49.751] old_names <- names(...future.oldEnvVars) 1569s [00:52:49.751] envs <- base::Sys.getenv() 1569s [00:52:49.751] names <- names(envs) 1569s [00:52:49.751] common <- intersect(names, old_names) 1569s [00:52:49.751] added <- setdiff(names, old_names) 1569s [00:52:49.751] removed <- setdiff(old_names, names) 1569s [00:52:49.751] changed <- common[...future.oldEnvVars[common] != 1569s [00:52:49.751] envs[common]] 1569s [00:52:49.751] NAMES <- toupper(changed) 1569s [00:52:49.751] args <- list() 1569s [00:52:49.751] for (kk in seq_along(NAMES)) { 1569s [00:52:49.751] name <- changed[[kk]] 1569s [00:52:49.751] NAME <- NAMES[[kk]] 1569s [00:52:49.751] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.751] next 1569s [00:52:49.751] args[[name]] <- ...future.oldEnvVars[[name]] 1569s [00:52:49.751] } 1569s [00:52:49.751] NAMES <- toupper(added) 1569s [00:52:49.751] for (kk in seq_along(NAMES)) { 1569s [00:52:49.751] name <- added[[kk]] 1569s [00:52:49.751] NAME <- NAMES[[kk]] 1569s [00:52:49.751] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.751] next 1569s [00:52:49.751] args[[name]] <- "" 1569s [00:52:49.751] } 1569s [00:52:49.751] NAMES <- toupper(removed) 1569s [00:52:49.751] for (kk in seq_along(NAMES)) { 1569s [00:52:49.751] name <- removed[[kk]] 1569s [00:52:49.751] NAME <- NAMES[[kk]] 1569s [00:52:49.751] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.751] next 1569s [00:52:49.751] args[[name]] <- ...future.oldEnvVars[[name]] 1569s [00:52:49.751] } 1569s [00:52:49.751] if (length(args) > 0) 1569s [00:52:49.751] base::do.call(base::Sys.setenv, args = args) 1569s [00:52:49.751] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1569s [00:52:49.751] } 1569s [00:52:49.751] else { 1569s [00:52:49.751] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1569s [00:52:49.751] } 1569s [00:52:49.751] { 1569s [00:52:49.751] if (base::length(...future.futureOptionsAdded) > 1569s [00:52:49.751] 0L) { 1569s [00:52:49.751] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1569s [00:52:49.751] base::names(opts) <- ...future.futureOptionsAdded 1569s [00:52:49.751] base::options(opts) 1569s [00:52:49.751] } 1569s [00:52:49.751] { 1569s [00:52:49.751] { 1569s [00:52:49.751] NULL 1569s [00:52:49.751] RNGkind("Mersenne-Twister") 1569s [00:52:49.751] base::rm(list = ".Random.seed", envir = base::globalenv(), 1569s [00:52:49.751] inherits = FALSE) 1569s [00:52:49.751] } 1569s [00:52:49.751] options(future.plan = NULL) 1569s [00:52:49.751] if (is.na(NA_character_)) 1569s [00:52:49.751] Sys.unsetenv("R_FUTURE_PLAN") 1569s [00:52:49.751] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1569s [00:52:49.751] future::plan(list(function (..., envir = parent.frame()) 1569s [00:52:49.751] { 1569s [00:52:49.751] future <- SequentialFuture(..., envir = envir) 1569s [00:52:49.751] if (!future$lazy) 1569s [00:52:49.751] future <- run(future) 1569s [00:52:49.751] invisible(future) 1569s [00:52:49.751] }), .cleanup = FALSE, .init = FALSE) 1569s [00:52:49.751] } 1569s [00:52:49.751] } 1569s [00:52:49.751] } 1569s [00:52:49.751] }) 1569s [00:52:49.751] if (TRUE) { 1569s [00:52:49.751] base::sink(type = "output", split = FALSE) 1569s [00:52:49.751] if (TRUE) { 1569s [00:52:49.751] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1569s [00:52:49.751] } 1569s [00:52:49.751] else { 1569s [00:52:49.751] ...future.result["stdout"] <- base::list(NULL) 1569s [00:52:49.751] } 1569s [00:52:49.751] base::close(...future.stdout) 1569s [00:52:49.751] ...future.stdout <- NULL 1569s [00:52:49.751] } 1569s [00:52:49.751] ...future.result$conditions <- ...future.conditions 1569s [00:52:49.751] ...future.result$finished <- base::Sys.time() 1569s [00:52:49.751] ...future.result 1569s [00:52:49.751] } 1569s [00:52:49.755] assign_globals() ... 1569s [00:52:49.755] List of 5 1569s [00:52:49.755] $ ...future.FUN :function (x, y = 2 * 1:5) 1569s [00:52:49.755] $ future.call.arguments : list() 1569s [00:52:49.755] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.755] $ ...future.elements_ii :List of 6 1569s [00:52:49.755] ..$ a1: int 1 1569s [00:52:49.755] ..$ a2: int 2 1569s [00:52:49.755] ..$ b1: int 2 1569s [00:52:49.755] ..$ b2: int 3 1569s [00:52:49.755] ..$ c1: int 3 1569s [00:52:49.755] ..$ c2: int 4 1569s [00:52:49.755] $ ...future.seeds_ii : NULL 1569s [00:52:49.755] $ ...future.globals.maxSize: NULL 1569s [00:52:49.755] - attr(*, "where")=List of 5 1569s [00:52:49.755] ..$ ...future.FUN : 1569s [00:52:49.755] ..$ future.call.arguments : 1569s [00:52:49.755] ..$ ...future.elements_ii : 1569s [00:52:49.755] ..$ ...future.seeds_ii : 1569s [00:52:49.755] ..$ ...future.globals.maxSize: 1569s [00:52:49.755] - attr(*, "resolved")= logi FALSE 1569s [00:52:49.755] - attr(*, "total_size")= num 4728 1569s [00:52:49.755] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.755] - attr(*, "already-done")= logi TRUE 1569s [00:52:49.764] - reassign environment for ‘...future.FUN’ 1569s [00:52:49.764] - copied ‘...future.FUN’ to environment 1569s [00:52:49.765] - copied ‘future.call.arguments’ to environment 1569s [00:52:49.765] - copied ‘...future.elements_ii’ to environment 1569s [00:52:49.765] - copied ‘...future.seeds_ii’ to environment 1569s [00:52:49.765] - copied ‘...future.globals.maxSize’ to environment 1569s [00:52:49.765] assign_globals() ... done 1569s [00:52:49.766] plan(): Setting new future strategy stack: 1569s [00:52:49.766] List of future strategies: 1569s [00:52:49.766] 1. sequential: 1569s [00:52:49.766] - args: function (..., envir = parent.frame()) 1569s [00:52:49.766] - tweaked: FALSE 1569s [00:52:49.766] - call: NULL 1569s [00:52:49.766] plan(): nbrOfWorkers() = 1 1569s [00:52:49.767] plan(): Setting new future strategy stack: 1569s [00:52:49.767] List of future strategies: 1569s [00:52:49.767] 1. sequential: 1569s [00:52:49.767] - args: function (..., envir = parent.frame()) 1569s [00:52:49.767] - tweaked: FALSE 1569s [00:52:49.767] - call: plan(strategy) 1569s [00:52:49.767] plan(): nbrOfWorkers() = 1 1569s [00:52:49.768] SequentialFuture started (and completed) 1569s [00:52:49.768] - Launch lazy future ... done 1569s [00:52:49.768] run() for ‘SequentialFuture’ ... done 1569s [00:52:49.768] Created future: 1569s [00:52:49.769] SequentialFuture: 1569s [00:52:49.769] Label: ‘future_sapply-1’ 1569s [00:52:49.769] Expression: 1569s [00:52:49.769] { 1569s [00:52:49.769] do.call(function(...) { 1569s [00:52:49.769] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.769] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1569s [00:52:49.769] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.769] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.769] } 1569s [00:52:49.769] { 1569s [00:52:49.769] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1569s [00:52:49.769] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.769] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.769] }) 1569s [00:52:49.769] } 1569s [00:52:49.769] }, args = future.call.arguments) 1569s [00:52:49.769] } 1569s [00:52:49.769] Lazy evaluation: FALSE 1569s [00:52:49.769] Asynchronous evaluation: FALSE 1569s [00:52:49.769] Local evaluation: TRUE 1569s [00:52:49.769] Environment: R_GlobalEnv 1569s [00:52:49.769] Capture standard output: TRUE 1569s [00:52:49.769] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1569s [00:52:49.769] Globals: 5 objects totaling 4.95 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1569s [00:52:49.769] Packages: 1569s [00:52:49.769] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1569s [00:52:49.769] Resolved: TRUE 1569s [00:52:49.769] Value: 2.02 KiB of class ‘list’ 1569s [00:52:49.769] Early signaling: FALSE 1569s [00:52:49.769] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1569s [00:52:49.769] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1569s [00:52:49.770] Chunk #1 of 1 ... DONE 1569s [00:52:49.770] Launching 1 futures (chunks) ... DONE 1569s [00:52:49.770] Resolving 1 futures (chunks) ... 1569s [00:52:49.771] resolve() on list ... 1569s [00:52:49.771] recursive: 0 1569s [00:52:49.771] length: 1 1569s [00:52:49.771] 1569s [00:52:49.771] resolved() for ‘SequentialFuture’ ... 1569s [00:52:49.771] - state: ‘finished’ 1569s [00:52:49.772] - run: TRUE 1569s [00:52:49.772] - result: ‘FutureResult’ 1569s [00:52:49.772] resolved() for ‘SequentialFuture’ ... done 1569s [00:52:49.772] Future #1 1569s [00:52:49.772] signalConditionsASAP(SequentialFuture, pos=1) ... 1569s [00:52:49.772] - nx: 1 1569s [00:52:49.772] - relay: TRUE 1569s [00:52:49.773] - stdout: TRUE 1569s [00:52:49.773] - signal: TRUE 1569s [00:52:49.773] - resignal: FALSE 1569s [00:52:49.773] - force: TRUE 1569s [00:52:49.773] - relayed: [n=1] FALSE 1569s [00:52:49.773] - queued futures: [n=1] FALSE 1569s [00:52:49.773] - until=1 1569s [00:52:49.773] - relaying element #1 1569s [00:52:49.774] - relayed: [n=1] TRUE 1569s [00:52:49.774] - queued futures: [n=1] TRUE 1569s [00:52:49.774] signalConditionsASAP(SequentialFuture, pos=1) ... done 1569s [00:52:49.774] length: 0 (resolved future 1) 1569s [00:52:49.774] Relaying remaining futures 1569s [00:52:49.774] signalConditionsASAP(NULL, pos=0) ... 1569s [00:52:49.775] - nx: 1 1569s [00:52:49.775] - relay: TRUE 1569s [00:52:49.775] - stdout: TRUE 1569s [00:52:49.775] - signal: TRUE 1569s [00:52:49.775] - resignal: FALSE 1569s [00:52:49.775] - force: TRUE 1569s [00:52:49.775] - relayed: [n=1] TRUE 1569s [00:52:49.776] - queued futures: [n=1] TRUE 1569s - flush all 1569s [00:52:49.776] - relayed: [n=1] TRUE 1569s [00:52:49.776] - queued futures: [n=1] TRUE 1569s [00:52:49.776] signalConditionsASAP(NULL, pos=0) ... done 1569s [00:52:49.776] resolve() on list ... DONE 1569s [00:52:49.776] - Number of value chunks collected: 1 1569s [00:52:49.777] Resolving 1 futures (chunks) ... DONE 1569s [00:52:49.777] Reducing values from 1 chunks ... 1569s [00:52:49.777] - Number of values collected after concatenation: 6 1569s [00:52:49.777] - Number of values expected: 6 1569s [00:52:49.777] Reducing values from 1 chunks ... DONE 1569s [00:52:49.777] future_lapply() ... DONE 1569s List of 2 1569s $ y0: num [1:3, 1:5, 1:6] 2 2 2 4 4 4 6 6 6 8 ... 1569s ..- attr(*, "dimnames")=List of 3 1569s .. ..$ : NULL 1569s .. ..$ : NULL 1569s .. ..$ : chr [1:6] "a1" "a2" "b1" "b2" ... 1569s $ y1: num [1:3, 1:5, 1:6] 2 2 2 4 4 4 6 6 6 8 ... 1569s ..- attr(*, "dimnames")=List of 3 1569s .. ..$ : NULL 1569s .. ..$ : NULL 1569s .. ..$ : chr [1:6] "a1" "a2" "b1" "b2" ... 1569s [00:52:49.781] future_lapply() ... 1569s [00:52:49.782] Number of chunks: 1 1569s [00:52:49.782] getGlobalsAndPackagesXApply() ... 1569s [00:52:49.782] - future.globals: TRUE 1569s [00:52:49.782] getGlobalsAndPackages() ... 1569s [00:52:49.782] Searching for globals... 1569s [00:52:49.783] - globals found: [1] ‘FUN’ 1569s [00:52:49.784] Searching for globals ... DONE 1569s [00:52:49.784] Resolving globals: FALSE 1569s [00:52:49.784] The total size of the 1 globals is 848 bytes (848 bytes) 1569s [00:52:49.785] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1569s [00:52:49.785] - globals: [1] ‘FUN’ 1569s [00:52:49.785] 1569s [00:52:49.785] getGlobalsAndPackages() ... DONE 1569s [00:52:49.785] - globals found/used: [n=1] ‘FUN’ 1569s [00:52:49.786] - needed namespaces: [n=0] 1569s [00:52:49.786] Finding globals ... DONE 1569s [00:52:49.786] - use_args: TRUE 1569s [00:52:49.786] - Getting '...' globals ... 1569s [00:52:49.786] resolve() on list ... 1569s [00:52:49.786] recursive: 0 1569s [00:52:49.787] length: 1 1569s [00:52:49.787] elements: ‘...’ 1569s [00:52:49.787] length: 0 (resolved future 1) 1569s [00:52:49.787] resolve() on list ... DONE 1569s [00:52:49.787] - '...' content: [n=0] 1569s [00:52:49.787] List of 1 1569s [00:52:49.787] $ ...: list() 1569s [00:52:49.787] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.787] - attr(*, "where")=List of 1 1569s [00:52:49.787] ..$ ...: 1569s [00:52:49.787] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.787] - attr(*, "resolved")= logi TRUE 1569s [00:52:49.787] - attr(*, "total_size")= num NA 1569s [00:52:49.792] - Getting '...' globals ... DONE 1569s [00:52:49.792] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1569s [00:52:49.793] List of 2 1569s [00:52:49.793] $ ...future.FUN:function (x) 1569s [00:52:49.793] $ ... : list() 1569s [00:52:49.793] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.793] - attr(*, "where")=List of 2 1569s [00:52:49.793] ..$ ...future.FUN: 1569s [00:52:49.793] ..$ ... : 1569s [00:52:49.793] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.793] - attr(*, "resolved")= logi FALSE 1569s [00:52:49.793] - attr(*, "total_size")= num 848 1569s [00:52:49.796] Packages to be attached in all futures: [n=0] 1569s [00:52:49.796] getGlobalsAndPackagesXApply() ... DONE 1569s [00:52:49.797] Number of futures (= number of chunks): 1 1569s [00:52:49.797] Launching 1 futures (chunks) ... 1569s [00:52:49.797] Chunk #1 of 1 ... 1569s [00:52:49.797] - Finding globals in 'X' for chunk #1 ... 1569s [00:52:49.797] getGlobalsAndPackages() ... 1569s [00:52:49.797] Searching for globals... 1569s [00:52:49.798] 1569s [00:52:49.798] Searching for globals ... DONE 1569s [00:52:49.798] - globals: [0] 1569s [00:52:49.798] getGlobalsAndPackages() ... DONE 1569s [00:52:49.798] + additional globals found: [n=0] 1569s [00:52:49.798] + additional namespaces needed: [n=0] 1569s [00:52:49.799] - Finding globals in 'X' for chunk #1 ... DONE 1569s [00:52:49.799] - seeds: 1569s [00:52:49.799] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:49.799] getGlobalsAndPackages() ... 1569s [00:52:49.799] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:49.799] Resolving globals: FALSE 1569s [00:52:49.800] Tweak future expression to call with '...' arguments ... 1569s [00:52:49.800] { 1569s [00:52:49.800] do.call(function(...) { 1569s [00:52:49.800] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.800] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1569s [00:52:49.800] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.800] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.800] } 1569s [00:52:49.800] { 1569s [00:52:49.800] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1569s [00:52:49.800] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.800] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.800] }) 1569s [00:52:49.800] } 1569s [00:52:49.800] }, args = future.call.arguments) 1569s [00:52:49.800] } 1569s [00:52:49.800] Tweak future expression to call with '...' arguments ... DONE 1569s [00:52:49.801] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:49.801] 1569s [00:52:49.801] getGlobalsAndPackages() ... DONE 1569s [00:52:49.801] run() for ‘Future’ ... 1569s [00:52:49.802] - state: ‘created’ 1569s [00:52:49.802] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1569s [00:52:49.802] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1569s [00:52:49.802] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1569s [00:52:49.802] - Field: ‘label’ 1569s [00:52:49.803] - Field: ‘local’ 1569s [00:52:49.803] - Field: ‘owner’ 1569s [00:52:49.803] - Field: ‘envir’ 1569s [00:52:49.803] - Field: ‘packages’ 1569s [00:52:49.803] - Field: ‘gc’ 1569s [00:52:49.803] - Field: ‘conditions’ 1569s [00:52:49.804] - Field: ‘expr’ 1569s [00:52:49.804] - Field: ‘uuid’ 1569s [00:52:49.804] - Field: ‘seed’ 1569s [00:52:49.804] - Field: ‘version’ 1569s [00:52:49.804] - Field: ‘result’ 1569s [00:52:49.804] - Field: ‘asynchronous’ 1569s [00:52:49.805] - Field: ‘calls’ 1569s [00:52:49.805] - Field: ‘globals’ 1569s [00:52:49.805] - Field: ‘stdout’ 1569s [00:52:49.805] - Field: ‘earlySignal’ 1569s [00:52:49.805] - Field: ‘lazy’ 1569s [00:52:49.805] - Field: ‘state’ 1569s [00:52:49.805] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1569s [00:52:49.806] - Launch lazy future ... 1569s [00:52:49.806] Packages needed by the future expression (n = 0): 1569s [00:52:49.806] Packages needed by future strategies (n = 0): 1569s [00:52:49.807] { 1569s [00:52:49.807] { 1569s [00:52:49.807] { 1569s [00:52:49.807] ...future.startTime <- base::Sys.time() 1569s [00:52:49.807] { 1569s [00:52:49.807] { 1569s [00:52:49.807] { 1569s [00:52:49.807] base::local({ 1569s [00:52:49.807] has_future <- base::requireNamespace("future", 1569s [00:52:49.807] quietly = TRUE) 1569s [00:52:49.807] if (has_future) { 1569s [00:52:49.807] ns <- base::getNamespace("future") 1569s [00:52:49.807] version <- ns[[".package"]][["version"]] 1569s [00:52:49.807] if (is.null(version)) 1569s [00:52:49.807] version <- utils::packageVersion("future") 1569s [00:52:49.807] } 1569s [00:52:49.807] else { 1569s [00:52:49.807] version <- NULL 1569s [00:52:49.807] } 1569s [00:52:49.807] if (!has_future || version < "1.8.0") { 1569s [00:52:49.807] info <- base::c(r_version = base::gsub("R version ", 1569s [00:52:49.807] "", base::R.version$version.string), 1569s [00:52:49.807] platform = base::sprintf("%s (%s-bit)", 1569s [00:52:49.807] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1569s [00:52:49.807] os = base::paste(base::Sys.info()[base::c("sysname", 1569s [00:52:49.807] "release", "version")], collapse = " "), 1569s [00:52:49.807] hostname = base::Sys.info()[["nodename"]]) 1569s [00:52:49.807] info <- base::sprintf("%s: %s", base::names(info), 1569s [00:52:49.807] info) 1569s [00:52:49.807] info <- base::paste(info, collapse = "; ") 1569s [00:52:49.807] if (!has_future) { 1569s [00:52:49.807] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1569s [00:52:49.807] info) 1569s [00:52:49.807] } 1569s [00:52:49.807] else { 1569s [00:52:49.807] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1569s [00:52:49.807] info, version) 1569s [00:52:49.807] } 1569s [00:52:49.807] base::stop(msg) 1569s [00:52:49.807] } 1569s [00:52:49.807] }) 1569s [00:52:49.807] } 1569s [00:52:49.807] options(future.plan = NULL) 1569s [00:52:49.807] Sys.unsetenv("R_FUTURE_PLAN") 1569s [00:52:49.807] future::plan("default", .cleanup = FALSE, .init = FALSE) 1569s [00:52:49.807] } 1569s [00:52:49.807] ...future.workdir <- getwd() 1569s [00:52:49.807] } 1569s [00:52:49.807] ...future.oldOptions <- base::as.list(base::.Options) 1569s [00:52:49.807] ...future.oldEnvVars <- base::Sys.getenv() 1569s [00:52:49.807] } 1569s [00:52:49.807] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1569s [00:52:49.807] future.globals.maxSize = NULL, future.globals.method = NULL, 1569s [00:52:49.807] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1569s [00:52:49.807] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1569s [00:52:49.807] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1569s [00:52:49.807] future.stdout.windows.reencode = NULL, width = 80L) 1569s [00:52:49.807] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1569s [00:52:49.807] base::names(...future.oldOptions)) 1569s [00:52:49.807] } 1569s [00:52:49.807] if (FALSE) { 1569s [00:52:49.807] } 1569s [00:52:49.807] else { 1569s [00:52:49.807] if (TRUE) { 1569s [00:52:49.807] ...future.stdout <- base::rawConnection(base::raw(0L), 1569s [00:52:49.807] open = "w") 1569s [00:52:49.807] } 1569s [00:52:49.807] else { 1569s [00:52:49.807] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1569s [00:52:49.807] windows = "NUL", "/dev/null"), open = "w") 1569s [00:52:49.807] } 1569s [00:52:49.807] base::sink(...future.stdout, type = "output", split = FALSE) 1569s [00:52:49.807] base::on.exit(if (!base::is.null(...future.stdout)) { 1569s [00:52:49.807] base::sink(type = "output", split = FALSE) 1569s [00:52:49.807] base::close(...future.stdout) 1569s [00:52:49.807] }, add = TRUE) 1569s [00:52:49.807] } 1569s [00:52:49.807] ...future.frame <- base::sys.nframe() 1569s [00:52:49.807] ...future.conditions <- base::list() 1569s [00:52:49.807] ...future.rng <- base::globalenv()$.Random.seed 1569s [00:52:49.807] if (FALSE) { 1569s [00:52:49.807] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1569s [00:52:49.807] "...future.value", "...future.globalenv.names", ".Random.seed") 1569s [00:52:49.807] } 1569s [00:52:49.807] ...future.result <- base::tryCatch({ 1569s [00:52:49.807] base::withCallingHandlers({ 1569s [00:52:49.807] ...future.value <- base::withVisible(base::local({ 1569s [00:52:49.807] do.call(function(...) { 1569s [00:52:49.807] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.807] if (!identical(...future.globals.maxSize.org, 1569s [00:52:49.807] ...future.globals.maxSize)) { 1569s [00:52:49.807] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.807] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.807] } 1569s [00:52:49.807] { 1569s [00:52:49.807] lapply(seq_along(...future.elements_ii), 1569s [00:52:49.807] FUN = function(jj) { 1569s [00:52:49.807] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.807] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.807] }) 1569s [00:52:49.807] } 1569s [00:52:49.807] }, args = future.call.arguments) 1569s [00:52:49.807] })) 1569s [00:52:49.807] future::FutureResult(value = ...future.value$value, 1569s [00:52:49.807] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1569s [00:52:49.807] ...future.rng), globalenv = if (FALSE) 1569s [00:52:49.807] list(added = base::setdiff(base::names(base::.GlobalEnv), 1569s [00:52:49.807] ...future.globalenv.names)) 1569s [00:52:49.807] else NULL, started = ...future.startTime, version = "1.8") 1569s [00:52:49.807] }, condition = base::local({ 1569s [00:52:49.807] c <- base::c 1569s [00:52:49.807] inherits <- base::inherits 1569s [00:52:49.807] invokeRestart <- base::invokeRestart 1569s [00:52:49.807] length <- base::length 1569s [00:52:49.807] list <- base::list 1569s [00:52:49.807] seq.int <- base::seq.int 1569s [00:52:49.807] signalCondition <- base::signalCondition 1569s [00:52:49.807] sys.calls <- base::sys.calls 1569s [00:52:49.807] `[[` <- base::`[[` 1569s [00:52:49.807] `+` <- base::`+` 1569s [00:52:49.807] `<<-` <- base::`<<-` 1569s [00:52:49.807] sysCalls <- function(calls = sys.calls(), from = 1L) { 1569s [00:52:49.807] calls[seq.int(from = from + 12L, to = length(calls) - 1569s [00:52:49.807] 3L)] 1569s [00:52:49.807] } 1569s [00:52:49.807] function(cond) { 1569s [00:52:49.807] is_error <- inherits(cond, "error") 1569s [00:52:49.807] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1569s [00:52:49.807] NULL) 1569s [00:52:49.807] if (is_error) { 1569s [00:52:49.807] sessionInformation <- function() { 1569s [00:52:49.807] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1569s [00:52:49.807] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1569s [00:52:49.807] search = base::search(), system = base::Sys.info()) 1569s [00:52:49.807] } 1569s [00:52:49.807] ...future.conditions[[length(...future.conditions) + 1569s [00:52:49.807] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1569s [00:52:49.807] cond$call), session = sessionInformation(), 1569s [00:52:49.807] timestamp = base::Sys.time(), signaled = 0L) 1569s [00:52:49.807] signalCondition(cond) 1569s [00:52:49.807] } 1569s [00:52:49.807] else if (!ignore && TRUE && inherits(cond, c("condition", 1569s [00:52:49.807] "immediateCondition"))) { 1569s [00:52:49.807] signal <- TRUE && inherits(cond, "immediateCondition") 1569s [00:52:49.807] ...future.conditions[[length(...future.conditions) + 1569s [00:52:49.807] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1569s [00:52:49.807] if (TRUE && !signal) { 1569s [00:52:49.807] muffleCondition <- function (cond, pattern = "^muffle") 1569s [00:52:49.807] { 1569s [00:52:49.807] inherits <- base::inherits 1569s [00:52:49.807] invokeRestart <- base::invokeRestart 1569s [00:52:49.807] is.null <- base::is.null 1569s [00:52:49.807] muffled <- FALSE 1569s [00:52:49.807] if (inherits(cond, "message")) { 1569s [00:52:49.807] muffled <- grepl(pattern, "muffleMessage") 1569s [00:52:49.807] if (muffled) 1569s [00:52:49.807] invokeRestart("muffleMessage") 1569s [00:52:49.807] } 1569s [00:52:49.807] else if (inherits(cond, "warning")) { 1569s [00:52:49.807] muffled <- grepl(pattern, "muffleWarning") 1569s [00:52:49.807] if (muffled) 1569s [00:52:49.807] invokeRestart("muffleWarning") 1569s [00:52:49.807] } 1569s [00:52:49.807] else if (inherits(cond, "condition")) { 1569s [00:52:49.807] if (!is.null(pattern)) { 1569s [00:52:49.807] computeRestarts <- base::computeRestarts 1569s [00:52:49.807] grepl <- base::grepl 1569s [00:52:49.807] restarts <- computeRestarts(cond) 1569s [00:52:49.807] for (restart in restarts) { 1569s [00:52:49.807] name <- restart$name 1569s [00:52:49.807] if (is.null(name)) 1569s [00:52:49.807] next 1569s [00:52:49.807] if (!grepl(pattern, name)) 1569s [00:52:49.807] next 1569s [00:52:49.807] invokeRestart(restart) 1569s [00:52:49.807] muffled <- TRUE 1569s [00:52:49.807] break 1569s [00:52:49.807] } 1569s [00:52:49.807] } 1569s [00:52:49.807] } 1569s [00:52:49.807] invisible(muffled) 1569s [00:52:49.807] } 1569s [00:52:49.807] muffleCondition(cond, pattern = "^muffle") 1569s [00:52:49.807] } 1569s [00:52:49.807] } 1569s [00:52:49.807] else { 1569s [00:52:49.807] if (TRUE) { 1569s [00:52:49.807] muffleCondition <- function (cond, pattern = "^muffle") 1569s [00:52:49.807] { 1569s [00:52:49.807] inherits <- base::inherits 1569s [00:52:49.807] invokeRestart <- base::invokeRestart 1569s [00:52:49.807] is.null <- base::is.null 1569s [00:52:49.807] muffled <- FALSE 1569s [00:52:49.807] if (inherits(cond, "message")) { 1569s [00:52:49.807] muffled <- grepl(pattern, "muffleMessage") 1569s [00:52:49.807] if (muffled) 1569s [00:52:49.807] invokeRestart("muffleMessage") 1569s [00:52:49.807] } 1569s [00:52:49.807] else if (inherits(cond, "warning")) { 1569s [00:52:49.807] muffled <- grepl(pattern, "muffleWarning") 1569s [00:52:49.807] if (muffled) 1569s [00:52:49.807] invokeRestart("muffleWarning") 1569s [00:52:49.807] } 1569s [00:52:49.807] else if (inherits(cond, "condition")) { 1569s [00:52:49.807] if (!is.null(pattern)) { 1569s [00:52:49.807] computeRestarts <- base::computeRestarts 1569s [00:52:49.807] grepl <- base::grepl 1569s [00:52:49.807] restarts <- computeRestarts(cond) 1569s [00:52:49.807] for (restart in restarts) { 1569s [00:52:49.807] name <- restart$name 1569s [00:52:49.807] if (is.null(name)) 1569s [00:52:49.807] next 1569s [00:52:49.807] if (!grepl(pattern, name)) 1569s [00:52:49.807] next 1569s [00:52:49.807] invokeRestart(restart) 1569s [00:52:49.807] muffled <- TRUE 1569s [00:52:49.807] break 1569s [00:52:49.807] } 1569s [00:52:49.807] } 1569s [00:52:49.807] } 1569s [00:52:49.807] invisible(muffled) 1569s [00:52:49.807] } 1569s [00:52:49.807] muffleCondition(cond, pattern = "^muffle") 1569s [00:52:49.807] } 1569s [00:52:49.807] } 1569s [00:52:49.807] } 1569s [00:52:49.807] })) 1569s [00:52:49.807] }, error = function(ex) { 1569s [00:52:49.807] base::structure(base::list(value = NULL, visible = NULL, 1569s [00:52:49.807] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1569s [00:52:49.807] ...future.rng), started = ...future.startTime, 1569s [00:52:49.807] finished = Sys.time(), session_uuid = NA_character_, 1569s [00:52:49.807] version = "1.8"), class = "FutureResult") 1569s [00:52:49.807] }, finally = { 1569s [00:52:49.807] if (!identical(...future.workdir, getwd())) 1569s [00:52:49.807] setwd(...future.workdir) 1569s [00:52:49.807] { 1569s [00:52:49.807] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1569s [00:52:49.807] ...future.oldOptions$nwarnings <- NULL 1569s [00:52:49.807] } 1569s [00:52:49.807] base::options(...future.oldOptions) 1569s [00:52:49.807] if (.Platform$OS.type == "windows") { 1569s [00:52:49.807] old_names <- names(...future.oldEnvVars) 1569s [00:52:49.807] envs <- base::Sys.getenv() 1569s [00:52:49.807] names <- names(envs) 1569s [00:52:49.807] common <- intersect(names, old_names) 1569s [00:52:49.807] added <- setdiff(names, old_names) 1569s [00:52:49.807] removed <- setdiff(old_names, names) 1569s [00:52:49.807] changed <- common[...future.oldEnvVars[common] != 1569s [00:52:49.807] envs[common]] 1569s [00:52:49.807] NAMES <- toupper(changed) 1569s [00:52:49.807] args <- list() 1569s [00:52:49.807] for (kk in seq_along(NAMES)) { 1569s [00:52:49.807] name <- changed[[kk]] 1569s [00:52:49.807] NAME <- NAMES[[kk]] 1569s [00:52:49.807] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.807] next 1569s [00:52:49.807] args[[name]] <- ...future.oldEnvVars[[name]] 1569s [00:52:49.807] } 1569s [00:52:49.807] NAMES <- toupper(added) 1569s [00:52:49.807] for (kk in seq_along(NAMES)) { 1569s [00:52:49.807] name <- added[[kk]] 1569s [00:52:49.807] NAME <- NAMES[[kk]] 1569s [00:52:49.807] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.807] next 1569s [00:52:49.807] args[[name]] <- "" 1569s [00:52:49.807] } 1569s [00:52:49.807] NAMES <- toupper(removed) 1569s [00:52:49.807] for (kk in seq_along(NAMES)) { 1569s [00:52:49.807] name <- removed[[kk]] 1569s [00:52:49.807] NAME <- NAMES[[kk]] 1569s [00:52:49.807] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.807] next 1569s [00:52:49.807] args[[name]] <- ...future.oldEnvVars[[name]] 1569s [00:52:49.807] } 1569s [00:52:49.807] if (length(args) > 0) 1569s [00:52:49.807] base::do.call(base::Sys.setenv, args = args) 1569s [00:52:49.807] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1569s [00:52:49.807] } 1569s [00:52:49.807] else { 1569s [00:52:49.807] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1569s [00:52:49.807] } 1569s [00:52:49.807] { 1569s [00:52:49.807] if (base::length(...future.futureOptionsAdded) > 1569s [00:52:49.807] 0L) { 1569s [00:52:49.807] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1569s [00:52:49.807] base::names(opts) <- ...future.futureOptionsAdded 1569s [00:52:49.807] base::options(opts) 1569s [00:52:49.807] } 1569s [00:52:49.807] { 1569s [00:52:49.807] { 1569s [00:52:49.807] NULL 1569s [00:52:49.807] RNGkind("Mersenne-Twister") 1569s [00:52:49.807] base::rm(list = ".Random.seed", envir = base::globalenv(), 1569s [00:52:49.807] inherits = FALSE) 1569s [00:52:49.807] } 1569s [00:52:49.807] options(future.plan = NULL) 1569s [00:52:49.807] if (is.na(NA_character_)) 1569s [00:52:49.807] Sys.unsetenv("R_FUTURE_PLAN") 1569s [00:52:49.807] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1569s [00:52:49.807] future::plan(list(function (..., envir = parent.frame()) 1569s [00:52:49.807] { 1569s [00:52:49.807] future <- SequentialFuture(..., envir = envir) 1569s [00:52:49.807] if (!future$lazy) 1569s [00:52:49.807] future <- run(future) 1569s [00:52:49.807] invisible(future) 1569s [00:52:49.807] }), .cleanup = FALSE, .init = FALSE) 1569s [00:52:49.807] } 1569s [00:52:49.807] } 1569s [00:52:49.807] } 1569s [00:52:49.807] }) 1569s [00:52:49.807] if (TRUE) { 1569s [00:52:49.807] base::sink(type = "output", split = FALSE) 1569s [00:52:49.807] if (TRUE) { 1569s [00:52:49.807] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1569s [00:52:49.807] } 1569s [00:52:49.807] else { 1569s [00:52:49.807] ...future.result["stdout"] <- base::list(NULL) 1569s [00:52:49.807] } 1569s [00:52:49.807] base::close(...future.stdout) 1569s [00:52:49.807] ...future.stdout <- NULL 1569s [00:52:49.807] } 1569s [00:52:49.807] ...future.result$conditions <- ...future.conditions 1569s [00:52:49.807] ...future.result$finished <- base::Sys.time() 1569s [00:52:49.807] ...future.result 1569s [00:52:49.807] } 1569s [00:52:49.809] assign_globals() ... 1569s [00:52:49.810] List of 5 1569s [00:52:49.810] $ ...future.FUN :function (x) 1569s [00:52:49.810] $ future.call.arguments : list() 1569s [00:52:49.810] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.810] $ ...future.elements_ii :List of 6 1569s [00:52:49.810] ..$ a1: int 1 1569s [00:52:49.810] ..$ a2: int 2 1569s [00:52:49.810] ..$ b1: int 2 1569s [00:52:49.810] ..$ b2: int 3 1569s [00:52:49.810] ..$ c1: int 3 1569s [00:52:49.810] ..$ c2: int 4 1569s [00:52:49.810] $ ...future.seeds_ii : NULL 1569s [00:52:49.810] $ ...future.globals.maxSize: NULL 1569s [00:52:49.810] - attr(*, "where")=List of 5 1569s [00:52:49.810] ..$ ...future.FUN : 1569s [00:52:49.810] ..$ future.call.arguments : 1569s [00:52:49.810] ..$ ...future.elements_ii : 1569s [00:52:49.810] ..$ ...future.seeds_ii : 1569s [00:52:49.810] ..$ ...future.globals.maxSize: 1569s [00:52:49.810] - attr(*, "resolved")= logi FALSE 1569s [00:52:49.810] - attr(*, "total_size")= num 848 1569s [00:52:49.810] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.810] - attr(*, "already-done")= logi TRUE 1569s [00:52:49.817] - copied ‘...future.FUN’ to environment 1569s [00:52:49.817] - copied ‘future.call.arguments’ to environment 1569s [00:52:49.817] - copied ‘...future.elements_ii’ to environment 1569s [00:52:49.817] - copied ‘...future.seeds_ii’ to environment 1569s [00:52:49.817] - copied ‘...future.globals.maxSize’ to environment 1569s [00:52:49.817] assign_globals() ... done 1569s [00:52:49.818] plan(): Setting new future strategy stack: 1569s [00:52:49.818] List of future strategies: 1569s [00:52:49.818] 1. sequential: 1569s [00:52:49.818] - args: function (..., envir = parent.frame()) 1569s [00:52:49.818] - tweaked: FALSE 1569s [00:52:49.818] - call: NULL 1569s [00:52:49.818] plan(): nbrOfWorkers() = 1 1569s [00:52:49.819] plan(): Setting new future strategy stack: 1569s [00:52:49.819] List of future strategies: 1569s [00:52:49.819] 1. sequential: 1569s [00:52:49.819] - args: function (..., envir = parent.frame()) 1569s [00:52:49.819] - tweaked: FALSE 1569s [00:52:49.819] - call: plan(strategy) 1569s [00:52:49.819] plan(): nbrOfWorkers() = 1 1569s [00:52:49.820] SequentialFuture started (and completed) 1569s [00:52:49.820] - Launch lazy future ... done 1569s [00:52:49.820] run() for ‘SequentialFuture’ ... done 1569s [00:52:49.820] Created future: 1569s [00:52:49.820] SequentialFuture: 1569s [00:52:49.820] Label: ‘future_sapply-1’ 1569s [00:52:49.820] Expression: 1569s [00:52:49.820] { 1569s [00:52:49.820] do.call(function(...) { 1569s [00:52:49.820] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.820] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1569s [00:52:49.820] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.820] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.820] } 1569s [00:52:49.820] { 1569s [00:52:49.820] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1569s [00:52:49.820] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.820] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.820] }) 1569s [00:52:49.820] } 1569s [00:52:49.820] }, args = future.call.arguments) 1569s [00:52:49.820] } 1569s [00:52:49.820] Lazy evaluation: FALSE 1569s [00:52:49.820] Asynchronous evaluation: FALSE 1569s [00:52:49.820] Local evaluation: TRUE 1569s [00:52:49.820] Environment: R_GlobalEnv 1569s [00:52:49.820] Capture standard output: TRUE 1569s [00:52:49.820] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1569s [00:52:49.820] Globals: 5 objects totaling 1.16 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1569s [00:52:49.820] Packages: 1569s [00:52:49.820] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1569s [00:52:49.820] Resolved: TRUE 1569s [00:52:49.820] Value: 336 bytes of class ‘list’ 1569s [00:52:49.820] Early signaling: FALSE 1569s [00:52:49.820] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1569s [00:52:49.820] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1569s [00:52:49.822] Chunk #1 of 1 ... DONE 1569s [00:52:49.822] Launching 1 futures (chunks) ... DONE 1569s [00:52:49.822] Resolving 1 futures (chunks) ... 1569s [00:52:49.824] resolve() on list ... 1569s [00:52:49.824] recursive: 0 1569s [00:52:49.825] length: 1 1569s [00:52:49.825] 1569s [00:52:49.825] resolved() for ‘SequentialFuture’ ... 1569s [00:52:49.825] - state: ‘finished’ 1569s [00:52:49.825] - run: TRUE 1569s [00:52:49.825] - result: ‘FutureResult’ 1569s [00:52:49.826] resolved() for ‘SequentialFuture’ ... done 1569s [00:52:49.826] Future #1 1569s [00:52:49.826] signalConditionsASAP(SequentialFuture, pos=1) ... 1569s [00:52:49.826] - nx: 1 1569s [00:52:49.826] - relay: TRUE 1569s [00:52:49.826] - stdout: TRUE 1569s [00:52:49.826] - signal: TRUE 1569s [00:52:49.827] - resignal: FALSE 1569s [00:52:49.827] - force: TRUE 1569s [00:52:49.828] - relayed: [n=1] FALSE 1569s [00:52:49.828] - queued futures: [n=1] FALSE 1569s [00:52:49.828] - until=1 1569s [00:52:49.828] - relaying element #1 1569s [00:52:49.828] - relayed: [n=1] TRUE 1569s [00:52:49.828] - queued futures: [n=1] TRUE 1569s [00:52:49.829] signalConditionsASAP(SequentialFuture, pos=1) ... done 1569s [00:52:49.829] length: 0 (resolved future 1) 1569s [00:52:49.829] Relaying remaining futures 1569s [00:52:49.829] signalConditionsASAP(NULL, pos=0) ... 1569s [00:52:49.829] - nx: 1 1569s [00:52:49.829] - relay: TRUE 1569s [00:52:49.829] - stdout: TRUE 1569s [00:52:49.830] - signal: TRUE 1569s [00:52:49.830] - resignal: FALSE 1569s [00:52:49.830] - force: TRUE 1569s [00:52:49.830] - relayed: [n=1] TRUE 1569s [00:52:49.830] - queued futures: [n=1] TRUE 1569s - flush all 1569s [00:52:49.830] - relayed: [n=1] TRUE 1569s [00:52:49.831] - queued futures: [n=1] TRUE 1569s [00:52:49.831] signalConditionsASAP(NULL, pos=0) ... done 1569s [00:52:49.831] resolve() on list ... DONE 1569s [00:52:49.831] - Number of value chunks collected: 1 1569s [00:52:49.831] Resolving 1 futures (chunks) ... DONE 1569s [00:52:49.831] Reducing values from 1 chunks ... 1569s [00:52:49.832] - Number of values collected after concatenation: 6 1569s [00:52:49.832] - Number of values expected: 6 1569s [00:52:49.832] Reducing values from 1 chunks ... DONE 1569s [00:52:49.832] future_lapply() ... DONE 1569s List of 2 1569s $ y0:List of 6 1569s ..$ a1: int 1 1569s ..$ a2: int 2 1569s ..$ b1: int 2 1569s ..$ b2: int 3 1569s ..$ c1: int 3 1569s ..$ c2: int 4 1569s $ y1:List of 6 1569s ..$ a1: int 1 1569s ..$ a2: int 2 1569s ..$ b1: int 2 1569s ..$ b2: int 3 1569s ..$ c1: int 3 1569s ..$ c2: int 4 1569s List of 2 1569s $ y0:List of 6 1569s ..$ a1: int 1 1569s ..$ a2: int 2 1569s ..$ b1: int 2 1569s ..$ b2: int 3 1569s ..$ c1: int 3 1569s ..$ c2: int 4 1569s $ y2:List of 6 1569s ..$ a1: int 1 1569s ..$ a2: int 2 1569s ..$ b1: int 2 1569s ..$ b2: int 3 1569s ..$ c1: int 3 1569s ..$ c2: int 4 1569s [00:52:49.844] future_lapply() ... 1569s [00:52:49.845] Number of chunks: 1 1569s [00:52:49.845] getGlobalsAndPackagesXApply() ... 1569s [00:52:49.845] - future.globals: TRUE 1569s [00:52:49.845] getGlobalsAndPackages() ... 1569s [00:52:49.845] Searching for globals... 1569s [00:52:49.847] - globals found: [2] ‘FUN’, ‘UseMethod’ 1569s [00:52:49.847] Searching for globals ... DONE 1569s [00:52:49.847] Resolving globals: FALSE 1569s [00:52:49.847] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1569s [00:52:49.848] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1569s [00:52:49.848] - globals: [1] ‘FUN’ 1569s [00:52:49.848] 1569s [00:52:49.848] getGlobalsAndPackages() ... DONE 1569s [00:52:49.848] - globals found/used: [n=1] ‘FUN’ 1569s [00:52:49.848] - needed namespaces: [n=0] 1569s [00:52:49.849] Finding globals ... DONE 1569s [00:52:49.849] - use_args: TRUE 1569s [00:52:49.849] - Getting '...' globals ... 1569s [00:52:49.849] resolve() on list ... 1569s [00:52:49.849] recursive: 0 1569s [00:52:49.850] length: 1 1569s [00:52:49.850] elements: ‘...’ 1569s [00:52:49.850] length: 0 (resolved future 1) 1569s [00:52:49.850] resolve() on list ... DONE 1569s [00:52:49.850] - '...' content: [n=0] 1569s [00:52:49.850] List of 1 1569s [00:52:49.850] $ ...: list() 1569s [00:52:49.850] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.850] - attr(*, "where")=List of 1 1569s [00:52:49.850] ..$ ...: 1569s [00:52:49.850] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.850] - attr(*, "resolved")= logi TRUE 1569s [00:52:49.850] - attr(*, "total_size")= num NA 1569s [00:52:49.854] - Getting '...' globals ... DONE 1569s [00:52:49.854] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1569s [00:52:49.854] List of 2 1569s [00:52:49.854] $ ...future.FUN:function (x, ...) 1569s [00:52:49.854] $ ... : list() 1569s [00:52:49.854] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.854] - attr(*, "where")=List of 2 1569s [00:52:49.854] ..$ ...future.FUN: 1569s [00:52:49.854] ..$ ... : 1569s [00:52:49.854] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.854] - attr(*, "resolved")= logi FALSE 1569s [00:52:49.854] - attr(*, "total_size")= num 1248 1569s [00:52:49.859] Packages to be attached in all futures: [n=0] 1569s [00:52:49.859] getGlobalsAndPackagesXApply() ... DONE 1569s [00:52:49.859] Number of futures (= number of chunks): 1 1569s [00:52:49.859] Launching 1 futures (chunks) ... 1569s [00:52:49.860] Chunk #1 of 1 ... 1569s [00:52:49.860] - Finding globals in 'X' for chunk #1 ... 1569s [00:52:49.860] getGlobalsAndPackages() ... 1569s [00:52:49.860] Searching for globals... 1569s [00:52:49.860] 1569s [00:52:49.861] Searching for globals ... DONE 1569s [00:52:49.861] - globals: [0] 1569s [00:52:49.861] getGlobalsAndPackages() ... DONE 1569s [00:52:49.861] + additional globals found: [n=0] 1569s [00:52:49.861] + additional namespaces needed: [n=0] 1569s [00:52:49.861] - Finding globals in 'X' for chunk #1 ... DONE 1569s [00:52:49.861] - seeds: 1569s [00:52:49.862] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:49.862] getGlobalsAndPackages() ... 1569s [00:52:49.862] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:49.862] Resolving globals: FALSE 1569s [00:52:49.862] Tweak future expression to call with '...' arguments ... 1569s [00:52:49.862] { 1569s [00:52:49.862] do.call(function(...) { 1569s [00:52:49.862] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.862] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1569s [00:52:49.862] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.862] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.862] } 1569s [00:52:49.862] { 1569s [00:52:49.862] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1569s [00:52:49.862] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.862] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.862] }) 1569s [00:52:49.862] } 1569s [00:52:49.862] }, args = future.call.arguments) 1569s [00:52:49.862] } 1569s [00:52:49.863] Tweak future expression to call with '...' arguments ... DONE 1569s [00:52:49.863] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:49.864] 1569s [00:52:49.864] getGlobalsAndPackages() ... DONE 1569s [00:52:49.864] run() for ‘Future’ ... 1569s [00:52:49.864] - state: ‘created’ 1569s [00:52:49.865] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1569s [00:52:49.865] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1569s [00:52:49.865] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1569s [00:52:49.865] - Field: ‘label’ 1569s [00:52:49.865] - Field: ‘local’ 1569s [00:52:49.866] - Field: ‘owner’ 1569s [00:52:49.866] - Field: ‘envir’ 1569s [00:52:49.866] - Field: ‘packages’ 1569s [00:52:49.866] - Field: ‘gc’ 1569s [00:52:49.866] - Field: ‘conditions’ 1569s [00:52:49.866] - Field: ‘expr’ 1569s [00:52:49.866] - Field: ‘uuid’ 1569s [00:52:49.867] - Field: ‘seed’ 1569s [00:52:49.867] - Field: ‘version’ 1569s [00:52:49.867] - Field: ‘result’ 1569s [00:52:49.867] - Field: ‘asynchronous’ 1569s [00:52:49.867] - Field: ‘calls’ 1569s [00:52:49.867] - Field: ‘globals’ 1569s [00:52:49.867] - Field: ‘stdout’ 1569s [00:52:49.868] - Field: ‘earlySignal’ 1569s [00:52:49.868] - Field: ‘lazy’ 1569s [00:52:49.868] - Field: ‘state’ 1569s [00:52:49.868] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1569s [00:52:49.868] - Launch lazy future ... 1569s [00:52:49.869] Packages needed by the future expression (n = 0): 1569s [00:52:49.869] Packages needed by future strategies (n = 0): 1569s [00:52:49.869] { 1569s [00:52:49.869] { 1569s [00:52:49.869] { 1569s [00:52:49.869] ...future.startTime <- base::Sys.time() 1569s [00:52:49.869] { 1569s [00:52:49.869] { 1569s [00:52:49.869] { 1569s [00:52:49.869] base::local({ 1569s [00:52:49.869] has_future <- base::requireNamespace("future", 1569s [00:52:49.869] quietly = TRUE) 1569s [00:52:49.869] if (has_future) { 1569s [00:52:49.869] ns <- base::getNamespace("future") 1569s [00:52:49.869] version <- ns[[".package"]][["version"]] 1569s [00:52:49.869] if (is.null(version)) 1569s [00:52:49.869] version <- utils::packageVersion("future") 1569s [00:52:49.869] } 1569s [00:52:49.869] else { 1569s [00:52:49.869] version <- NULL 1569s [00:52:49.869] } 1569s [00:52:49.869] if (!has_future || version < "1.8.0") { 1569s [00:52:49.869] info <- base::c(r_version = base::gsub("R version ", 1569s [00:52:49.869] "", base::R.version$version.string), 1569s [00:52:49.869] platform = base::sprintf("%s (%s-bit)", 1569s [00:52:49.869] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1569s [00:52:49.869] os = base::paste(base::Sys.info()[base::c("sysname", 1569s [00:52:49.869] "release", "version")], collapse = " "), 1569s [00:52:49.869] hostname = base::Sys.info()[["nodename"]]) 1569s [00:52:49.869] info <- base::sprintf("%s: %s", base::names(info), 1569s [00:52:49.869] info) 1569s [00:52:49.869] info <- base::paste(info, collapse = "; ") 1569s [00:52:49.869] if (!has_future) { 1569s [00:52:49.869] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1569s [00:52:49.869] info) 1569s [00:52:49.869] } 1569s [00:52:49.869] else { 1569s [00:52:49.869] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1569s [00:52:49.869] info, version) 1569s [00:52:49.869] } 1569s [00:52:49.869] base::stop(msg) 1569s [00:52:49.869] } 1569s [00:52:49.869] }) 1569s [00:52:49.869] } 1569s [00:52:49.869] options(future.plan = NULL) 1569s [00:52:49.869] Sys.unsetenv("R_FUTURE_PLAN") 1569s [00:52:49.869] future::plan("default", .cleanup = FALSE, .init = FALSE) 1569s [00:52:49.869] } 1569s [00:52:49.869] ...future.workdir <- getwd() 1569s [00:52:49.869] } 1569s [00:52:49.869] ...future.oldOptions <- base::as.list(base::.Options) 1569s [00:52:49.869] ...future.oldEnvVars <- base::Sys.getenv() 1569s [00:52:49.869] } 1569s [00:52:49.869] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1569s [00:52:49.869] future.globals.maxSize = NULL, future.globals.method = NULL, 1569s [00:52:49.869] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1569s [00:52:49.869] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1569s [00:52:49.869] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1569s [00:52:49.869] future.stdout.windows.reencode = NULL, width = 80L) 1569s [00:52:49.869] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1569s [00:52:49.869] base::names(...future.oldOptions)) 1569s [00:52:49.869] } 1569s [00:52:49.869] if (FALSE) { 1569s [00:52:49.869] } 1569s [00:52:49.869] else { 1569s [00:52:49.869] if (TRUE) { 1569s [00:52:49.869] ...future.stdout <- base::rawConnection(base::raw(0L), 1569s [00:52:49.869] open = "w") 1569s [00:52:49.869] } 1569s [00:52:49.869] else { 1569s [00:52:49.869] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1569s [00:52:49.869] windows = "NUL", "/dev/null"), open = "w") 1569s [00:52:49.869] } 1569s [00:52:49.869] base::sink(...future.stdout, type = "output", split = FALSE) 1569s [00:52:49.869] base::on.exit(if (!base::is.null(...future.stdout)) { 1569s [00:52:49.869] base::sink(type = "output", split = FALSE) 1569s [00:52:49.869] base::close(...future.stdout) 1569s [00:52:49.869] }, add = TRUE) 1569s [00:52:49.869] } 1569s [00:52:49.869] ...future.frame <- base::sys.nframe() 1569s [00:52:49.869] ...future.conditions <- base::list() 1569s [00:52:49.869] ...future.rng <- base::globalenv()$.Random.seed 1569s [00:52:49.869] if (FALSE) { 1569s [00:52:49.869] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1569s [00:52:49.869] "...future.value", "...future.globalenv.names", ".Random.seed") 1569s [00:52:49.869] } 1569s [00:52:49.869] ...future.result <- base::tryCatch({ 1569s [00:52:49.869] base::withCallingHandlers({ 1569s [00:52:49.869] ...future.value <- base::withVisible(base::local({ 1569s [00:52:49.869] do.call(function(...) { 1569s [00:52:49.869] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.869] if (!identical(...future.globals.maxSize.org, 1569s [00:52:49.869] ...future.globals.maxSize)) { 1569s [00:52:49.869] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.869] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.869] } 1569s [00:52:49.869] { 1569s [00:52:49.869] lapply(seq_along(...future.elements_ii), 1569s [00:52:49.869] FUN = function(jj) { 1569s [00:52:49.869] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.869] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.869] }) 1569s [00:52:49.869] } 1569s [00:52:49.869] }, args = future.call.arguments) 1569s [00:52:49.869] })) 1569s [00:52:49.869] future::FutureResult(value = ...future.value$value, 1569s [00:52:49.869] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1569s [00:52:49.869] ...future.rng), globalenv = if (FALSE) 1569s [00:52:49.869] list(added = base::setdiff(base::names(base::.GlobalEnv), 1569s [00:52:49.869] ...future.globalenv.names)) 1569s [00:52:49.869] else NULL, started = ...future.startTime, version = "1.8") 1569s [00:52:49.869] }, condition = base::local({ 1569s [00:52:49.869] c <- base::c 1569s [00:52:49.869] inherits <- base::inherits 1569s [00:52:49.869] invokeRestart <- base::invokeRestart 1569s [00:52:49.869] length <- base::length 1569s [00:52:49.869] list <- base::list 1569s [00:52:49.869] seq.int <- base::seq.int 1569s [00:52:49.869] signalCondition <- base::signalCondition 1569s [00:52:49.869] sys.calls <- base::sys.calls 1569s [00:52:49.869] `[[` <- base::`[[` 1569s [00:52:49.869] `+` <- base::`+` 1569s [00:52:49.869] `<<-` <- base::`<<-` 1569s [00:52:49.869] sysCalls <- function(calls = sys.calls(), from = 1L) { 1569s [00:52:49.869] calls[seq.int(from = from + 12L, to = length(calls) - 1569s [00:52:49.869] 3L)] 1569s [00:52:49.869] } 1569s [00:52:49.869] function(cond) { 1569s [00:52:49.869] is_error <- inherits(cond, "error") 1569s [00:52:49.869] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1569s [00:52:49.869] NULL) 1569s [00:52:49.869] if (is_error) { 1569s [00:52:49.869] sessionInformation <- function() { 1569s [00:52:49.869] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1569s [00:52:49.869] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1569s [00:52:49.869] search = base::search(), system = base::Sys.info()) 1569s [00:52:49.869] } 1569s [00:52:49.869] ...future.conditions[[length(...future.conditions) + 1569s [00:52:49.869] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1569s [00:52:49.869] cond$call), session = sessionInformation(), 1569s [00:52:49.869] timestamp = base::Sys.time(), signaled = 0L) 1569s [00:52:49.869] signalCondition(cond) 1569s [00:52:49.869] } 1569s [00:52:49.869] else if (!ignore && TRUE && inherits(cond, c("condition", 1569s [00:52:49.869] "immediateCondition"))) { 1569s [00:52:49.869] signal <- TRUE && inherits(cond, "immediateCondition") 1569s [00:52:49.869] ...future.conditions[[length(...future.conditions) + 1569s [00:52:49.869] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1569s [00:52:49.869] if (TRUE && !signal) { 1569s [00:52:49.869] muffleCondition <- function (cond, pattern = "^muffle") 1569s [00:52:49.869] { 1569s [00:52:49.869] inherits <- base::inherits 1569s [00:52:49.869] invokeRestart <- base::invokeRestart 1569s [00:52:49.869] is.null <- base::is.null 1569s [00:52:49.869] muffled <- FALSE 1569s [00:52:49.869] if (inherits(cond, "message")) { 1569s [00:52:49.869] muffled <- grepl(pattern, "muffleMessage") 1569s [00:52:49.869] if (muffled) 1569s [00:52:49.869] invokeRestart("muffleMessage") 1569s [00:52:49.869] } 1569s [00:52:49.869] else if (inherits(cond, "warning")) { 1569s [00:52:49.869] muffled <- grepl(pattern, "muffleWarning") 1569s [00:52:49.869] if (muffled) 1569s [00:52:49.869] invokeRestart("muffleWarning") 1569s [00:52:49.869] } 1569s [00:52:49.869] else if (inherits(cond, "condition")) { 1569s [00:52:49.869] if (!is.null(pattern)) { 1569s [00:52:49.869] computeRestarts <- base::computeRestarts 1569s [00:52:49.869] grepl <- base::grepl 1569s [00:52:49.869] restarts <- computeRestarts(cond) 1569s [00:52:49.869] for (restart in restarts) { 1569s [00:52:49.869] name <- restart$name 1569s [00:52:49.869] if (is.null(name)) 1569s [00:52:49.869] next 1569s [00:52:49.869] if (!grepl(pattern, name)) 1569s [00:52:49.869] next 1569s [00:52:49.869] invokeRestart(restart) 1569s [00:52:49.869] muffled <- TRUE 1569s [00:52:49.869] break 1569s [00:52:49.869] } 1569s [00:52:49.869] } 1569s [00:52:49.869] } 1569s [00:52:49.869] invisible(muffled) 1569s [00:52:49.869] } 1569s [00:52:49.869] muffleCondition(cond, pattern = "^muffle") 1569s [00:52:49.869] } 1569s [00:52:49.869] } 1569s [00:52:49.869] else { 1569s [00:52:49.869] if (TRUE) { 1569s [00:52:49.869] muffleCondition <- function (cond, pattern = "^muffle") 1569s [00:52:49.869] { 1569s [00:52:49.869] inherits <- base::inherits 1569s [00:52:49.869] invokeRestart <- base::invokeRestart 1569s [00:52:49.869] is.null <- base::is.null 1569s [00:52:49.869] muffled <- FALSE 1569s [00:52:49.869] if (inherits(cond, "message")) { 1569s [00:52:49.869] muffled <- grepl(pattern, "muffleMessage") 1569s [00:52:49.869] if (muffled) 1569s [00:52:49.869] invokeRestart("muffleMessage") 1569s [00:52:49.869] } 1569s [00:52:49.869] else if (inherits(cond, "warning")) { 1569s [00:52:49.869] muffled <- grepl(pattern, "muffleWarning") 1569s [00:52:49.869] if (muffled) 1569s [00:52:49.869] invokeRestart("muffleWarning") 1569s [00:52:49.869] } 1569s [00:52:49.869] else if (inherits(cond, "condition")) { 1569s [00:52:49.869] if (!is.null(pattern)) { 1569s [00:52:49.869] computeRestarts <- base::computeRestarts 1569s [00:52:49.869] grepl <- base::grepl 1569s [00:52:49.869] restarts <- computeRestarts(cond) 1569s [00:52:49.869] for (restart in restarts) { 1569s [00:52:49.869] name <- restart$name 1569s [00:52:49.869] if (is.null(name)) 1569s [00:52:49.869] next 1569s [00:52:49.869] if (!grepl(pattern, name)) 1569s [00:52:49.869] next 1569s [00:52:49.869] invokeRestart(restart) 1569s [00:52:49.869] muffled <- TRUE 1569s [00:52:49.869] break 1569s [00:52:49.869] } 1569s [00:52:49.869] } 1569s [00:52:49.869] } 1569s [00:52:49.869] invisible(muffled) 1569s [00:52:49.869] } 1569s [00:52:49.869] muffleCondition(cond, pattern = "^muffle") 1569s [00:52:49.869] } 1569s [00:52:49.869] } 1569s [00:52:49.869] } 1569s [00:52:49.869] })) 1569s [00:52:49.869] }, error = function(ex) { 1569s [00:52:49.869] base::structure(base::list(value = NULL, visible = NULL, 1569s [00:52:49.869] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1569s [00:52:49.869] ...future.rng), started = ...future.startTime, 1569s [00:52:49.869] finished = Sys.time(), session_uuid = NA_character_, 1569s [00:52:49.869] version = "1.8"), class = "FutureResult") 1569s [00:52:49.869] }, finally = { 1569s [00:52:49.869] if (!identical(...future.workdir, getwd())) 1569s [00:52:49.869] setwd(...future.workdir) 1569s [00:52:49.869] { 1569s [00:52:49.869] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1569s [00:52:49.869] ...future.oldOptions$nwarnings <- NULL 1569s [00:52:49.869] } 1569s [00:52:49.869] base::options(...future.oldOptions) 1569s [00:52:49.869] if (.Platform$OS.type == "windows") { 1569s [00:52:49.869] old_names <- names(...future.oldEnvVars) 1569s [00:52:49.869] envs <- base::Sys.getenv() 1569s [00:52:49.869] names <- names(envs) 1569s [00:52:49.869] common <- intersect(names, old_names) 1569s [00:52:49.869] added <- setdiff(names, old_names) 1569s [00:52:49.869] removed <- setdiff(old_names, names) 1569s [00:52:49.869] changed <- common[...future.oldEnvVars[common] != 1569s [00:52:49.869] envs[common]] 1569s [00:52:49.869] NAMES <- toupper(changed) 1569s [00:52:49.869] args <- list() 1569s [00:52:49.869] for (kk in seq_along(NAMES)) { 1569s [00:52:49.869] name <- changed[[kk]] 1569s [00:52:49.869] NAME <- NAMES[[kk]] 1569s [00:52:49.869] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.869] next 1569s [00:52:49.869] args[[name]] <- ...future.oldEnvVars[[name]] 1569s [00:52:49.869] } 1569s [00:52:49.869] NAMES <- toupper(added) 1569s [00:52:49.869] for (kk in seq_along(NAMES)) { 1569s [00:52:49.869] name <- added[[kk]] 1569s [00:52:49.869] NAME <- NAMES[[kk]] 1569s [00:52:49.869] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.869] next 1569s [00:52:49.869] args[[name]] <- "" 1569s [00:52:49.869] } 1569s [00:52:49.869] NAMES <- toupper(removed) 1569s [00:52:49.869] for (kk in seq_along(NAMES)) { 1569s [00:52:49.869] name <- removed[[kk]] 1569s [00:52:49.869] NAME <- NAMES[[kk]] 1569s [00:52:49.869] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.869] next 1569s [00:52:49.869] args[[name]] <- ...future.oldEnvVars[[name]] 1569s [00:52:49.869] } 1569s [00:52:49.869] if (length(args) > 0) 1569s [00:52:49.869] base::do.call(base::Sys.setenv, args = args) 1569s [00:52:49.869] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1569s [00:52:49.869] } 1569s [00:52:49.869] else { 1569s [00:52:49.869] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1569s [00:52:49.869] } 1569s [00:52:49.869] { 1569s [00:52:49.869] if (base::length(...future.futureOptionsAdded) > 1569s [00:52:49.869] 0L) { 1569s [00:52:49.869] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1569s [00:52:49.869] base::names(opts) <- ...future.futureOptionsAdded 1569s [00:52:49.869] base::options(opts) 1569s [00:52:49.869] } 1569s [00:52:49.869] { 1569s [00:52:49.869] { 1569s [00:52:49.869] NULL 1569s [00:52:49.869] RNGkind("Mersenne-Twister") 1569s [00:52:49.869] base::rm(list = ".Random.seed", envir = base::globalenv(), 1569s [00:52:49.869] inherits = FALSE) 1569s [00:52:49.869] } 1569s [00:52:49.869] options(future.plan = NULL) 1569s [00:52:49.869] if (is.na(NA_character_)) 1569s [00:52:49.869] Sys.unsetenv("R_FUTURE_PLAN") 1569s [00:52:49.869] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1569s [00:52:49.869] future::plan(list(function (..., envir = parent.frame()) 1569s [00:52:49.869] { 1569s [00:52:49.869] future <- SequentialFuture(..., envir = envir) 1569s [00:52:49.869] if (!future$lazy) 1569s [00:52:49.869] future <- run(future) 1569s [00:52:49.869] invisible(future) 1569s [00:52:49.869] }), .cleanup = FALSE, .init = FALSE) 1569s [00:52:49.869] } 1569s [00:52:49.869] } 1569s [00:52:49.869] } 1569s [00:52:49.869] }) 1569s [00:52:49.869] if (TRUE) { 1569s [00:52:49.869] base::sink(type = "output", split = FALSE) 1569s [00:52:49.869] if (TRUE) { 1569s [00:52:49.869] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1569s [00:52:49.869] } 1569s [00:52:49.869] else { 1569s [00:52:49.869] ...future.result["stdout"] <- base::list(NULL) 1569s [00:52:49.869] } 1569s [00:52:49.869] base::close(...future.stdout) 1569s [00:52:49.869] ...future.stdout <- NULL 1569s [00:52:49.869] } 1569s [00:52:49.869] ...future.result$conditions <- ...future.conditions 1569s [00:52:49.869] ...future.result$finished <- base::Sys.time() 1569s [00:52:49.869] ...future.result 1569s [00:52:49.869] } 1569s [00:52:49.876] assign_globals() ... 1569s [00:52:49.876] List of 5 1569s [00:52:49.876] $ ...future.FUN :function (x, ...) 1569s [00:52:49.876] $ future.call.arguments : list() 1569s [00:52:49.876] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.876] $ ...future.elements_ii :List of 6 1569s [00:52:49.876] ..$ a1: int 1 1569s [00:52:49.876] ..$ a2: int 2 1569s [00:52:49.876] ..$ b1: int 2 1569s [00:52:49.876] ..$ b2: int 3 1569s [00:52:49.876] ..$ c1: int 3 1569s [00:52:49.876] ..$ c2: int 4 1569s [00:52:49.876] $ ...future.seeds_ii : NULL 1569s [00:52:49.876] $ ...future.globals.maxSize: NULL 1569s [00:52:49.876] - attr(*, "where")=List of 5 1569s [00:52:49.876] ..$ ...future.FUN : 1569s [00:52:49.876] ..$ future.call.arguments : 1569s [00:52:49.876] ..$ ...future.elements_ii : 1569s [00:52:49.876] ..$ ...future.seeds_ii : 1569s [00:52:49.876] ..$ ...future.globals.maxSize: 1569s [00:52:49.876] - attr(*, "resolved")= logi FALSE 1569s [00:52:49.876] - attr(*, "total_size")= num 1248 1569s [00:52:49.876] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.876] - attr(*, "already-done")= logi TRUE 1569s [00:52:49.883] - copied ‘...future.FUN’ to environment 1569s [00:52:49.883] - copied ‘future.call.arguments’ to environment 1569s [00:52:49.884] - copied ‘...future.elements_ii’ to environment 1569s [00:52:49.884] - copied ‘...future.seeds_ii’ to environment 1569s [00:52:49.884] - copied ‘...future.globals.maxSize’ to environment 1569s [00:52:49.884] assign_globals() ... done 1569s [00:52:49.884] plan(): Setting new future strategy stack: 1569s [00:52:49.885] List of future strategies: 1569s [00:52:49.885] 1. sequential: 1569s [00:52:49.885] - args: function (..., envir = parent.frame()) 1569s [00:52:49.885] - tweaked: FALSE 1569s [00:52:49.885] - call: NULL 1569s [00:52:49.885] plan(): nbrOfWorkers() = 1 1569s [00:52:49.886] plan(): Setting new future strategy stack: 1569s [00:52:49.886] List of future strategies: 1569s [00:52:49.886] 1. sequential: 1569s [00:52:49.886] - args: function (..., envir = parent.frame()) 1569s [00:52:49.886] - tweaked: FALSE 1569s [00:52:49.886] - call: plan(strategy) 1569s [00:52:49.886] plan(): nbrOfWorkers() = 1 1569s [00:52:49.887] SequentialFuture started (and completed) 1569s [00:52:49.887] - Launch lazy future ... done 1569s [00:52:49.887] run() for ‘SequentialFuture’ ... done 1569s [00:52:49.887] Created future: 1569s [00:52:49.887] SequentialFuture: 1569s [00:52:49.887] Label: ‘future_sapply-1’ 1569s [00:52:49.887] Expression: 1569s [00:52:49.887] { 1569s [00:52:49.887] do.call(function(...) { 1569s [00:52:49.887] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.887] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1569s [00:52:49.887] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.887] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.887] } 1569s [00:52:49.887] { 1569s [00:52:49.887] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1569s [00:52:49.887] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.887] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.887] }) 1569s [00:52:49.887] } 1569s [00:52:49.887] }, args = future.call.arguments) 1569s [00:52:49.887] } 1569s [00:52:49.887] Lazy evaluation: FALSE 1569s [00:52:49.887] Asynchronous evaluation: FALSE 1569s [00:52:49.887] Local evaluation: TRUE 1569s [00:52:49.887] Environment: R_GlobalEnv 1569s [00:52:49.887] Capture standard output: TRUE 1569s [00:52:49.887] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1569s [00:52:49.887] Globals: 5 objects totaling 1.55 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1569s [00:52:49.887] Packages: 1569s [00:52:49.887] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1569s [00:52:49.887] Resolved: TRUE 1569s [00:52:49.887] Value: 1.31 KiB of class ‘list’ 1569s [00:52:49.887] Early signaling: FALSE 1569s [00:52:49.887] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1569s [00:52:49.887] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1569s [00:52:49.888] Chunk #1 of 1 ... DONE 1569s [00:52:49.889] Launching 1 futures (chunks) ... DONE 1569s [00:52:49.889] Resolving 1 futures (chunks) ... 1569s [00:52:49.889] resolve() on list ... 1569s [00:52:49.889] recursive: 0 1569s [00:52:49.889] length: 1 1569s [00:52:49.889] 1569s [00:52:49.889] resolved() for ‘SequentialFuture’ ... 1569s [00:52:49.889] - state: ‘finished’ 1569s [00:52:49.889] - run: TRUE 1569s [00:52:49.890] - result: ‘FutureResult’ 1569s [00:52:49.890] resolved() for ‘SequentialFuture’ ... done 1569s [00:52:49.890] Future #1 1569s [00:52:49.890] signalConditionsASAP(SequentialFuture, pos=1) ... 1569s [00:52:49.890] - nx: 1 1569s [00:52:49.890] - relay: TRUE 1569s [00:52:49.890] - stdout: TRUE 1569s [00:52:49.891] - signal: TRUE 1569s [00:52:49.891] - resignal: FALSE 1569s [00:52:49.891] - force: TRUE 1569s [00:52:49.891] - relayed: [n=1] FALSE 1569s [00:52:49.891] - queued futures: [n=1] FALSE 1569s [00:52:49.891] - until=1 1569s [00:52:49.891] - relaying element #1 1569s [00:52:49.892] - relayed: [n=1] TRUE 1569s [00:52:49.892] - queued futures: [n=1] TRUE 1569s [00:52:49.892] signalConditionsASAP(SequentialFuture, pos=1) ... done 1569s [00:52:49.892] length: 0 (resolved future 1) 1569s [00:52:49.892] Relaying remaining futures 1569s [00:52:49.892] signalConditionsASAP(NULL, pos=0) ... 1569s [00:52:49.892] - nx: 1 1569s [00:52:49.892] - relay: TRUE 1569s [00:52:49.894] - stdout: TRUE 1569s [00:52:49.894] - signal: TRUE 1569s [00:52:49.895] - resignal: FALSE 1569s [00:52:49.895] - force: TRUE 1569s [00:52:49.895] - relayed: [n=1] TRUE 1569s [00:52:49.895] - queued futures: [n=1] TRUE 1569s - flush all 1569s [00:52:49.895] - relayed: [n=1] TRUE 1569s [00:52:49.895] - queued futures: [n=1] TRUE 1569s [00:52:49.895] signalConditionsASAP(NULL, pos=0) ... done 1569s [00:52:49.895] resolve() on list ... DONE 1569s [00:52:49.896] - Number of value chunks collected: 1 1569s [00:52:49.896] Resolving 1 futures (chunks) ... DONE 1569s [00:52:49.896] Reducing values from 1 chunks ... 1569s [00:52:49.896] - Number of values collected after concatenation: 6 1569s [00:52:49.896] - Number of values expected: 6 1569s [00:52:49.896] Reducing values from 1 chunks ... DONE 1569s [00:52:49.897] future_lapply() ... DONE 1569s List of 2 1569s $ y0:List of 6 1569s ..$ a1: int [1, 1] 1 1569s ..$ a2: int [1, 1] 2 1569s ..$ b1: int [1, 1] 2 1569s ..$ b2: int [1, 1] 3 1569s ..$ c1: int [1, 1] 3 1569s ..$ c2: int [1, 1] 4 1569s $ y1:List of 6 1569s ..$ a1: int [1, 1] 1 1569s ..$ a2: int [1, 1] 2 1569s ..$ b1: int [1, 1] 2 1569s ..$ b2: int [1, 1] 3 1569s ..$ c1: int [1, 1] 3 1569s ..$ c2: int [1, 1] 4 1569s List of 2 1569s $ y0:List of 6 1569s ..$ a1: int [1, 1] 1 1569s ..$ a2: int [1, 1] 2 1569s ..$ b1: int [1, 1] 2 1569s ..$ b2: int [1, 1] 3 1569s ..$ c1: int [1, 1] 3 1569s ..$ c2: int [1, 1] 4 1569s $ y2[00:52:49.914] future_lapply() ... 1569s :List of 6 1569s ..$ a1: int [1, 1] 1 1569s ..$ a2: int [1, 1] 2 1569s ..$ b1: int [1, 1] 2 1569s ..$ b2: int [1, 1] 3 1569s ..$ c1: int [1, 1] 3 1569s ..$ c2: int [1, 1] 4 1569s [00:52:49.915] Number of chunks: 1 1569s [00:52:49.915] getGlobalsAndPackagesXApply() ... 1569s [00:52:49.915] - future.globals: TRUE 1569s [00:52:49.915] getGlobalsAndPackages() ... 1569s [00:52:49.915] Searching for globals... 1569s [00:52:49.917] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1569s [00:52:49.917] Searching for globals ... DONE 1569s [00:52:49.917] Resolving globals: FALSE 1569s [00:52:49.918] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1569s [00:52:49.918] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1569s [00:52:49.918] - globals: [1] ‘FUN’ 1569s [00:52:49.919] 1569s [00:52:49.919] getGlobalsAndPackages() ... DONE 1569s [00:52:49.919] - globals found/used: [n=1] ‘FUN’ 1569s [00:52:49.919] - needed namespaces: [n=0] 1569s [00:52:49.919] Finding globals ... DONE 1569s [00:52:49.919] - use_args: TRUE 1569s [00:52:49.919] - Getting '...' globals ... 1569s [00:52:49.920] resolve() on list ... 1569s [00:52:49.921] recursive: 0 1569s [00:52:49.921] length: 1 1569s [00:52:49.921] elements: ‘...’ 1569s [00:52:49.921] length: 0 (resolved future 1) 1569s [00:52:49.921] resolve() on list ... DONE 1569s [00:52:49.921] - '...' content: [n=0] 1569s [00:52:49.921] List of 1 1569s [00:52:49.921] $ ...: list() 1569s [00:52:49.921] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.921] - attr(*, "where")=List of 1 1569s [00:52:49.921] ..$ ...: 1569s [00:52:49.921] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.921] - attr(*, "resolved")= logi TRUE 1569s [00:52:49.921] - attr(*, "total_size")= num NA 1569s [00:52:49.925] - Getting '...' globals ... DONE 1569s [00:52:49.925] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1569s [00:52:49.925] List of 2 1569s [00:52:49.925] $ ...future.FUN:function (x, y = 2 * 1:5) 1569s [00:52:49.925] $ ... : list() 1569s [00:52:49.925] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.925] - attr(*, "where")=List of 2 1569s [00:52:49.925] ..$ ...future.FUN: 1569s [00:52:49.925] ..$ ... : 1569s [00:52:49.925] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.925] - attr(*, "resolved")= logi FALSE 1569s [00:52:49.925] - attr(*, "total_size")= num 4728 1569s [00:52:49.930] Packages to be attached in all futures: [n=0] 1569s [00:52:49.931] getGlobalsAndPackagesXApply() ... DONE 1569s [00:52:49.931] Number of futures (= number of chunks): 1 1569s [00:52:49.931] Launching 1 futures (chunks) ... 1569s [00:52:49.932] Chunk #1 of 1 ... 1569s [00:52:49.932] - Finding globals in 'X' for chunk #1 ... 1569s [00:52:49.932] getGlobalsAndPackages() ... 1569s [00:52:49.932] Searching for globals... 1569s [00:52:49.933] 1569s [00:52:49.933] Searching for globals ... DONE 1569s [00:52:49.933] - globals: [0] 1569s [00:52:49.934] getGlobalsAndPackages() ... DONE 1569s [00:52:49.934] + additional globals found: [n=0] 1569s [00:52:49.934] + additional namespaces needed: [n=0] 1569s [00:52:49.934] - Finding globals in 'X' for chunk #1 ... DONE 1569s [00:52:49.934] - seeds: 1569s [00:52:49.934] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:49.935] getGlobalsAndPackages() ... 1569s [00:52:49.935] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:49.935] Resolving globals: FALSE 1569s [00:52:49.936] Tweak future expression to call with '...' arguments ... 1569s [00:52:49.936] { 1569s [00:52:49.936] do.call(function(...) { 1569s [00:52:49.936] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.936] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1569s [00:52:49.936] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.936] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.936] } 1569s [00:52:49.936] { 1569s [00:52:49.936] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1569s [00:52:49.936] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.936] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.936] }) 1569s [00:52:49.936] } 1569s [00:52:49.936] }, args = future.call.arguments) 1569s [00:52:49.936] } 1569s [00:52:49.936] Tweak future expression to call with '...' arguments ... DONE 1569s [00:52:49.937] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1569s [00:52:49.937] 1569s [00:52:49.937] getGlobalsAndPackages() ... DONE 1569s [00:52:49.938] run() for ‘Future’ ... 1569s [00:52:49.938] - state: ‘created’ 1569s [00:52:49.938] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1569s [00:52:49.938] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1569s [00:52:49.939] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1569s [00:52:49.939] - Field: ‘label’ 1569s [00:52:49.939] - Field: ‘local’ 1569s [00:52:49.939] - Field: ‘owner’ 1569s [00:52:49.939] - Field: ‘envir’ 1569s [00:52:49.939] - Field: ‘packages’ 1569s [00:52:49.940] - Field: ‘gc’ 1569s [00:52:49.940] - Field: ‘conditions’ 1569s [00:52:49.940] - Field: ‘expr’ 1569s [00:52:49.940] - Field: ‘uuid’ 1569s [00:52:49.940] - Field: ‘seed’ 1569s [00:52:49.940] - Field: ‘version’ 1569s [00:52:49.941] - Field: ‘result’ 1569s [00:52:49.941] - Field: ‘asynchronous’ 1569s [00:52:49.941] - Field: ‘calls’ 1569s [00:52:49.941] - Field: ‘globals’ 1569s [00:52:49.941] - Field: ‘stdout’ 1569s [00:52:49.941] - Field: ‘earlySignal’ 1569s [00:52:49.942] - Field: ‘lazy’ 1569s [00:52:49.942] - Field: ‘state’ 1569s [00:52:49.942] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1569s [00:52:49.942] - Launch lazy future ... 1569s [00:52:49.943] Packages needed by the future expression (n = 0): 1569s [00:52:49.943] Packages needed by future strategies (n = 0): 1569s [00:52:49.944] { 1569s [00:52:49.944] { 1569s [00:52:49.944] { 1569s [00:52:49.944] ...future.startTime <- base::Sys.time() 1569s [00:52:49.944] { 1569s [00:52:49.944] { 1569s [00:52:49.944] { 1569s [00:52:49.944] base::local({ 1569s [00:52:49.944] has_future <- base::requireNamespace("future", 1569s [00:52:49.944] quietly = TRUE) 1569s [00:52:49.944] if (has_future) { 1569s [00:52:49.944] ns <- base::getNamespace("future") 1569s [00:52:49.944] version <- ns[[".package"]][["version"]] 1569s [00:52:49.944] if (is.null(version)) 1569s [00:52:49.944] version <- utils::packageVersion("future") 1569s [00:52:49.944] } 1569s [00:52:49.944] else { 1569s [00:52:49.944] version <- NULL 1569s [00:52:49.944] } 1569s [00:52:49.944] if (!has_future || version < "1.8.0") { 1569s [00:52:49.944] info <- base::c(r_version = base::gsub("R version ", 1569s [00:52:49.944] "", base::R.version$version.string), 1569s [00:52:49.944] platform = base::sprintf("%s (%s-bit)", 1569s [00:52:49.944] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1569s [00:52:49.944] os = base::paste(base::Sys.info()[base::c("sysname", 1569s [00:52:49.944] "release", "version")], collapse = " "), 1569s [00:52:49.944] hostname = base::Sys.info()[["nodename"]]) 1569s [00:52:49.944] info <- base::sprintf("%s: %s", base::names(info), 1569s [00:52:49.944] info) 1569s [00:52:49.944] info <- base::paste(info, collapse = "; ") 1569s [00:52:49.944] if (!has_future) { 1569s [00:52:49.944] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1569s [00:52:49.944] info) 1569s [00:52:49.944] } 1569s [00:52:49.944] else { 1569s [00:52:49.944] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1569s [00:52:49.944] info, version) 1569s [00:52:49.944] } 1569s [00:52:49.944] base::stop(msg) 1569s [00:52:49.944] } 1569s [00:52:49.944] }) 1569s [00:52:49.944] } 1569s [00:52:49.944] options(future.plan = NULL) 1569s [00:52:49.944] Sys.unsetenv("R_FUTURE_PLAN") 1569s [00:52:49.944] future::plan("default", .cleanup = FALSE, .init = FALSE) 1569s [00:52:49.944] } 1569s [00:52:49.944] ...future.workdir <- getwd() 1569s [00:52:49.944] } 1569s [00:52:49.944] ...future.oldOptions <- base::as.list(base::.Options) 1569s [00:52:49.944] ...future.oldEnvVars <- base::Sys.getenv() 1569s [00:52:49.944] } 1569s [00:52:49.944] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1569s [00:52:49.944] future.globals.maxSize = NULL, future.globals.method = NULL, 1569s [00:52:49.944] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1569s [00:52:49.944] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1569s [00:52:49.944] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1569s [00:52:49.944] future.stdout.windows.reencode = NULL, width = 80L) 1569s [00:52:49.944] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1569s [00:52:49.944] base::names(...future.oldOptions)) 1569s [00:52:49.944] } 1569s [00:52:49.944] if (FALSE) { 1569s [00:52:49.944] } 1569s [00:52:49.944] else { 1569s [00:52:49.944] if (TRUE) { 1569s [00:52:49.944] ...future.stdout <- base::rawConnection(base::raw(0L), 1569s [00:52:49.944] open = "w") 1569s [00:52:49.944] } 1569s [00:52:49.944] else { 1569s [00:52:49.944] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1569s [00:52:49.944] windows = "NUL", "/dev/null"), open = "w") 1569s [00:52:49.944] } 1569s [00:52:49.944] base::sink(...future.stdout, type = "output", split = FALSE) 1569s [00:52:49.944] base::on.exit(if (!base::is.null(...future.stdout)) { 1569s [00:52:49.944] base::sink(type = "output", split = FALSE) 1569s [00:52:49.944] base::close(...future.stdout) 1569s [00:52:49.944] }, add = TRUE) 1569s [00:52:49.944] } 1569s [00:52:49.944] ...future.frame <- base::sys.nframe() 1569s [00:52:49.944] ...future.conditions <- base::list() 1569s [00:52:49.944] ...future.rng <- base::globalenv()$.Random.seed 1569s [00:52:49.944] if (FALSE) { 1569s [00:52:49.944] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1569s [00:52:49.944] "...future.value", "...future.globalenv.names", ".Random.seed") 1569s [00:52:49.944] } 1569s [00:52:49.944] ...future.result <- base::tryCatch({ 1569s [00:52:49.944] base::withCallingHandlers({ 1569s [00:52:49.944] ...future.value <- base::withVisible(base::local({ 1569s [00:52:49.944] do.call(function(...) { 1569s [00:52:49.944] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.944] if (!identical(...future.globals.maxSize.org, 1569s [00:52:49.944] ...future.globals.maxSize)) { 1569s [00:52:49.944] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.944] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.944] } 1569s [00:52:49.944] { 1569s [00:52:49.944] lapply(seq_along(...future.elements_ii), 1569s [00:52:49.944] FUN = function(jj) { 1569s [00:52:49.944] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.944] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.944] }) 1569s [00:52:49.944] } 1569s [00:52:49.944] }, args = future.call.arguments) 1569s [00:52:49.944] })) 1569s [00:52:49.944] future::FutureResult(value = ...future.value$value, 1569s [00:52:49.944] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1569s [00:52:49.944] ...future.rng), globalenv = if (FALSE) 1569s [00:52:49.944] list(added = base::setdiff(base::names(base::.GlobalEnv), 1569s [00:52:49.944] ...future.globalenv.names)) 1569s [00:52:49.944] else NULL, started = ...future.startTime, version = "1.8") 1569s [00:52:49.944] }, condition = base::local({ 1569s [00:52:49.944] c <- base::c 1569s [00:52:49.944] inherits <- base::inherits 1569s [00:52:49.944] invokeRestart <- base::invokeRestart 1569s [00:52:49.944] length <- base::length 1569s [00:52:49.944] list <- base::list 1569s [00:52:49.944] seq.int <- base::seq.int 1569s [00:52:49.944] signalCondition <- base::signalCondition 1569s [00:52:49.944] sys.calls <- base::sys.calls 1569s [00:52:49.944] `[[` <- base::`[[` 1569s [00:52:49.944] `+` <- base::`+` 1569s [00:52:49.944] `<<-` <- base::`<<-` 1569s [00:52:49.944] sysCalls <- function(calls = sys.calls(), from = 1L) { 1569s [00:52:49.944] calls[seq.int(from = from + 12L, to = length(calls) - 1569s [00:52:49.944] 3L)] 1569s [00:52:49.944] } 1569s [00:52:49.944] function(cond) { 1569s [00:52:49.944] is_error <- inherits(cond, "error") 1569s [00:52:49.944] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1569s [00:52:49.944] NULL) 1569s [00:52:49.944] if (is_error) { 1569s [00:52:49.944] sessionInformation <- function() { 1569s [00:52:49.944] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1569s [00:52:49.944] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1569s [00:52:49.944] search = base::search(), system = base::Sys.info()) 1569s [00:52:49.944] } 1569s [00:52:49.944] ...future.conditions[[length(...future.conditions) + 1569s [00:52:49.944] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1569s [00:52:49.944] cond$call), session = sessionInformation(), 1569s [00:52:49.944] timestamp = base::Sys.time(), signaled = 0L) 1569s [00:52:49.944] signalCondition(cond) 1569s [00:52:49.944] } 1569s [00:52:49.944] else if (!ignore && TRUE && inherits(cond, c("condition", 1569s [00:52:49.944] "immediateCondition"))) { 1569s [00:52:49.944] signal <- TRUE && inherits(cond, "immediateCondition") 1569s [00:52:49.944] ...future.conditions[[length(...future.conditions) + 1569s [00:52:49.944] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1569s [00:52:49.944] if (TRUE && !signal) { 1569s [00:52:49.944] muffleCondition <- function (cond, pattern = "^muffle") 1569s [00:52:49.944] { 1569s [00:52:49.944] inherits <- base::inherits 1569s [00:52:49.944] invokeRestart <- base::invokeRestart 1569s [00:52:49.944] is.null <- base::is.null 1569s [00:52:49.944] muffled <- FALSE 1569s [00:52:49.944] if (inherits(cond, "message")) { 1569s [00:52:49.944] muffled <- grepl(pattern, "muffleMessage") 1569s [00:52:49.944] if (muffled) 1569s [00:52:49.944] invokeRestart("muffleMessage") 1569s [00:52:49.944] } 1569s [00:52:49.944] else if (inherits(cond, "warning")) { 1569s [00:52:49.944] muffled <- grepl(pattern, "muffleWarning") 1569s [00:52:49.944] if (muffled) 1569s [00:52:49.944] invokeRestart("muffleWarning") 1569s [00:52:49.944] } 1569s [00:52:49.944] else if (inherits(cond, "condition")) { 1569s [00:52:49.944] if (!is.null(pattern)) { 1569s [00:52:49.944] computeRestarts <- base::computeRestarts 1569s [00:52:49.944] grepl <- base::grepl 1569s [00:52:49.944] restarts <- computeRestarts(cond) 1569s [00:52:49.944] for (restart in restarts) { 1569s [00:52:49.944] name <- restart$name 1569s [00:52:49.944] if (is.null(name)) 1569s [00:52:49.944] next 1569s [00:52:49.944] if (!grepl(pattern, name)) 1569s [00:52:49.944] next 1569s [00:52:49.944] invokeRestart(restart) 1569s [00:52:49.944] muffled <- TRUE 1569s [00:52:49.944] break 1569s [00:52:49.944] } 1569s [00:52:49.944] } 1569s [00:52:49.944] } 1569s [00:52:49.944] invisible(muffled) 1569s [00:52:49.944] } 1569s [00:52:49.944] muffleCondition(cond, pattern = "^muffle") 1569s [00:52:49.944] } 1569s [00:52:49.944] } 1569s [00:52:49.944] else { 1569s [00:52:49.944] if (TRUE) { 1569s [00:52:49.944] muffleCondition <- function (cond, pattern = "^muffle") 1569s [00:52:49.944] { 1569s [00:52:49.944] inherits <- base::inherits 1569s [00:52:49.944] invokeRestart <- base::invokeRestart 1569s [00:52:49.944] is.null <- base::is.null 1569s [00:52:49.944] muffled <- FALSE 1569s [00:52:49.944] if (inherits(cond, "message")) { 1569s [00:52:49.944] muffled <- grepl(pattern, "muffleMessage") 1569s [00:52:49.944] if (muffled) 1569s [00:52:49.944] invokeRestart("muffleMessage") 1569s [00:52:49.944] } 1569s [00:52:49.944] else if (inherits(cond, "warning")) { 1569s [00:52:49.944] muffled <- grepl(pattern, "muffleWarning") 1569s [00:52:49.944] if (muffled) 1569s [00:52:49.944] invokeRestart("muffleWarning") 1569s [00:52:49.944] } 1569s [00:52:49.944] else if (inherits(cond, "condition")) { 1569s [00:52:49.944] if (!is.null(pattern)) { 1569s [00:52:49.944] computeRestarts <- base::computeRestarts 1569s [00:52:49.944] grepl <- base::grepl 1569s [00:52:49.944] restarts <- computeRestarts(cond) 1569s [00:52:49.944] for (restart in restarts) { 1569s [00:52:49.944] name <- restart$name 1569s [00:52:49.944] if (is.null(name)) 1569s [00:52:49.944] next 1569s [00:52:49.944] if (!grepl(pattern, name)) 1569s [00:52:49.944] next 1569s [00:52:49.944] invokeRestart(restart) 1569s [00:52:49.944] muffled <- TRUE 1569s [00:52:49.944] break 1569s [00:52:49.944] } 1569s [00:52:49.944] } 1569s [00:52:49.944] } 1569s [00:52:49.944] invisible(muffled) 1569s [00:52:49.944] } 1569s [00:52:49.944] muffleCondition(cond, pattern = "^muffle") 1569s [00:52:49.944] } 1569s [00:52:49.944] } 1569s [00:52:49.944] } 1569s [00:52:49.944] })) 1569s [00:52:49.944] }, error = function(ex) { 1569s [00:52:49.944] base::structure(base::list(value = NULL, visible = NULL, 1569s [00:52:49.944] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1569s [00:52:49.944] ...future.rng), started = ...future.startTime, 1569s [00:52:49.944] finished = Sys.time(), session_uuid = NA_character_, 1569s [00:52:49.944] version = "1.8"), class = "FutureResult") 1569s [00:52:49.944] }, finally = { 1569s [00:52:49.944] if (!identical(...future.workdir, getwd())) 1569s [00:52:49.944] setwd(...future.workdir) 1569s [00:52:49.944] { 1569s [00:52:49.944] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1569s [00:52:49.944] ...future.oldOptions$nwarnings <- NULL 1569s [00:52:49.944] } 1569s [00:52:49.944] base::options(...future.oldOptions) 1569s [00:52:49.944] if (.Platform$OS.type == "windows") { 1569s [00:52:49.944] old_names <- names(...future.oldEnvVars) 1569s [00:52:49.944] envs <- base::Sys.getenv() 1569s [00:52:49.944] names <- names(envs) 1569s [00:52:49.944] common <- intersect(names, old_names) 1569s [00:52:49.944] added <- setdiff(names, old_names) 1569s [00:52:49.944] removed <- setdiff(old_names, names) 1569s [00:52:49.944] changed <- common[...future.oldEnvVars[common] != 1569s [00:52:49.944] envs[common]] 1569s [00:52:49.944] NAMES <- toupper(changed) 1569s [00:52:49.944] args <- list() 1569s [00:52:49.944] for (kk in seq_along(NAMES)) { 1569s [00:52:49.944] name <- changed[[kk]] 1569s [00:52:49.944] NAME <- NAMES[[kk]] 1569s [00:52:49.944] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.944] next 1569s [00:52:49.944] args[[name]] <- ...future.oldEnvVars[[name]] 1569s [00:52:49.944] } 1569s [00:52:49.944] NAMES <- toupper(added) 1569s [00:52:49.944] for (kk in seq_along(NAMES)) { 1569s [00:52:49.944] name <- added[[kk]] 1569s [00:52:49.944] NAME <- NAMES[[kk]] 1569s [00:52:49.944] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.944] next 1569s [00:52:49.944] args[[name]] <- "" 1569s [00:52:49.944] } 1569s [00:52:49.944] NAMES <- toupper(removed) 1569s [00:52:49.944] for (kk in seq_along(NAMES)) { 1569s [00:52:49.944] name <- removed[[kk]] 1569s [00:52:49.944] NAME <- NAMES[[kk]] 1569s [00:52:49.944] if (name != NAME && is.element(NAME, old_names)) 1569s [00:52:49.944] next 1569s [00:52:49.944] args[[name]] <- ...future.oldEnvVars[[name]] 1569s [00:52:49.944] } 1569s [00:52:49.944] if (length(args) > 0) 1569s [00:52:49.944] base::do.call(base::Sys.setenv, args = args) 1569s [00:52:49.944] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1569s [00:52:49.944] } 1569s [00:52:49.944] else { 1569s [00:52:49.944] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1569s [00:52:49.944] } 1569s [00:52:49.944] { 1569s [00:52:49.944] if (base::length(...future.futureOptionsAdded) > 1569s [00:52:49.944] 0L) { 1569s [00:52:49.944] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1569s [00:52:49.944] base::names(opts) <- ...future.futureOptionsAdded 1569s [00:52:49.944] base::options(opts) 1569s [00:52:49.944] } 1569s [00:52:49.944] { 1569s [00:52:49.944] { 1569s [00:52:49.944] NULL 1569s [00:52:49.944] RNGkind("Mersenne-Twister") 1569s [00:52:49.944] base::rm(list = ".Random.seed", envir = base::globalenv(), 1569s [00:52:49.944] inherits = FALSE) 1569s [00:52:49.944] } 1569s [00:52:49.944] options(future.plan = NULL) 1569s [00:52:49.944] if (is.na(NA_character_)) 1569s [00:52:49.944] Sys.unsetenv("R_FUTURE_PLAN") 1569s [00:52:49.944] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1569s [00:52:49.944] future::plan(list(function (..., envir = parent.frame()) 1569s [00:52:49.944] { 1569s [00:52:49.944] future <- SequentialFuture(..., envir = envir) 1569s [00:52:49.944] if (!future$lazy) 1569s [00:52:49.944] future <- run(future) 1569s [00:52:49.944] invisible(future) 1569s [00:52:49.944] }), .cleanup = FALSE, .init = FALSE) 1569s [00:52:49.944] } 1569s [00:52:49.944] } 1569s [00:52:49.944] } 1569s [00:52:49.944] }) 1569s [00:52:49.944] if (TRUE) { 1569s [00:52:49.944] base::sink(type = "output", split = FALSE) 1569s [00:52:49.944] if (TRUE) { 1569s [00:52:49.944] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1569s [00:52:49.944] } 1569s [00:52:49.944] else { 1569s [00:52:49.944] ...future.result["stdout"] <- base::list(NULL) 1569s [00:52:49.944] } 1569s [00:52:49.944] base::close(...future.stdout) 1569s [00:52:49.944] ...future.stdout <- NULL 1569s [00:52:49.944] } 1569s [00:52:49.944] ...future.result$conditions <- ...future.conditions 1569s [00:52:49.944] ...future.result$finished <- base::Sys.time() 1569s [00:52:49.944] ...future.result 1569s [00:52:49.944] } 1569s [00:52:49.948] assign_globals() ... 1569s [00:52:49.949] List of 5 1569s [00:52:49.949] $ ...future.FUN :function (x, y = 2 * 1:5) 1569s [00:52:49.949] $ future.call.arguments : list() 1569s [00:52:49.949] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1569s [00:52:49.949] $ ...future.elements_ii :List of 6 1569s [00:52:49.949] ..$ a1: int 1 1569s [00:52:49.949] ..$ a2: int 2 1569s [00:52:49.949] ..$ b1: int 2 1569s [00:52:49.949] ..$ b2: int 3 1569s [00:52:49.949] ..$ c1: int 3 1569s [00:52:49.949] ..$ c2: int 4 1569s [00:52:49.949] $ ...future.seeds_ii : NULL 1569s [00:52:49.949] $ ...future.globals.maxSize: NULL 1569s [00:52:49.949] - attr(*, "where")=List of 5 1569s [00:52:49.949] ..$ ...future.FUN : 1569s [00:52:49.949] ..$ future.call.arguments : 1569s [00:52:49.949] ..$ ...future.elements_ii : 1569s [00:52:49.949] ..$ ...future.seeds_ii : 1569s [00:52:49.949] ..$ ...future.globals.maxSize: 1569s [00:52:49.949] - attr(*, "resolved")= logi FALSE 1569s [00:52:49.949] - attr(*, "total_size")= num 4728 1569s [00:52:49.949] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1569s [00:52:49.949] - attr(*, "already-done")= logi TRUE 1569s [00:52:49.957] - reassign environment for ‘...future.FUN’ 1569s [00:52:49.957] - copied ‘...future.FUN’ to environment 1569s [00:52:49.958] - copied ‘future.call.arguments’ to environment 1569s [00:52:49.958] - copied ‘...future.elements_ii’ to environment 1569s [00:52:49.958] - copied ‘...future.seeds_ii’ to environment 1569s [00:52:49.958] - copied ‘...future.globals.maxSize’ to environment 1569s [00:52:49.958] assign_globals() ... done 1569s [00:52:49.958] plan(): Setting new future strategy stack: 1569s [00:52:49.959] List of future strategies: 1569s [00:52:49.959] 1. sequential: 1569s [00:52:49.959] - args: function (..., envir = parent.frame()) 1569s [00:52:49.959] - tweaked: FALSE 1569s [00:52:49.959] - call: NULL 1569s [00:52:49.959] plan(): nbrOfWorkers() = 1 1569s [00:52:49.960] plan(): Setting new future strategy stack: 1569s [00:52:49.960] List of future strategies: 1569s [00:52:49.960] 1. sequential: 1569s [00:52:49.960] - args: function (..., envir = parent.frame()) 1569s [00:52:49.960] - tweaked: FALSE 1569s [00:52:49.960] - call: plan(strategy) 1569s [00:52:49.961] plan(): nbrOfWorkers() = 1 1569s [00:52:49.961] SequentialFuture started (and completed) 1569s [00:52:49.961] - Launch lazy future ... done 1569s [00:52:49.961] run() for ‘SequentialFuture’ ... done 1569s [00:52:49.961] Created future: 1569s [00:52:49.962] SequentialFuture: 1569s [00:52:49.962] Label: ‘future_sapply-1’ 1569s [00:52:49.962] Expression: 1569s [00:52:49.962] { 1569s [00:52:49.962] do.call(function(...) { 1569s [00:52:49.962] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1569s [00:52:49.962] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1569s [00:52:49.962] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1569s [00:52:49.962] on.exit(options(oopts), add = TRUE) 1569s [00:52:49.962] } 1569s [00:52:49.962] { 1569s [00:52:49.962] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1569s [00:52:49.962] ...future.X_jj <- ...future.elements_ii[[jj]] 1569s [00:52:49.962] ...future.FUN(...future.X_jj, ...) 1569s [00:52:49.962] }) 1569s [00:52:49.962] } 1569s [00:52:49.962] }, args = future.call.arguments) 1569s [00:52:49.962] } 1569s [00:52:49.962] Lazy evaluation: FALSE 1569s [00:52:49.962] Asynchronous evaluation: FALSE 1569s [00:52:49.962] Local evaluation: TRUE 1569s [00:52:49.962] Environment: R_GlobalEnv 1569s [00:52:49.962] Capture standard output: TRUE 1569s [00:52:49.962] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1569s [00:52:49.962] Globals: 5 objects totaling 4.95 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1569s [00:52:49.962] Packages: 1569s [00:52:49.962] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1569s [00:52:49.962] Resolved: TRUE 1569s [00:52:49.962] Value: 2.02 KiB of class ‘list’ 1569s [00:52:49.962] Early signaling: FALSE 1569s [00:52:49.962] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1569s [00:52:49.962] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1569s [00:52:49.964] Chunk #1 of 1 ... DONE 1569s [00:52:49.964] Launching 1 futures (chunks) ... DONE 1569s [00:52:49.964] Resolving 1 futures (chunks) ... 1569s [00:52:49.964] resolve() on list ... 1569s [00:52:49.965] recursive: 0 1569s [00:52:49.965] length: 1 1569s [00:52:49.965] 1569s [00:52:49.965] resolved() for ‘SequentialFuture’ ... 1569s [00:52:49.965] - state: ‘finished’ 1569s [00:52:49.965] - run: TRUE 1569s [00:52:49.965] - result: ‘FutureResult’ 1569s [00:52:49.966] resolved() for ‘SequentialFuture’ ... done 1569s [00:52:49.966] Future #1 1569s [00:52:49.966] signalConditionsASAP(SequentialFuture, pos=1) ... 1569s [00:52:49.966] - nx: 1 1569s [00:52:49.966] - relay: TRUE 1569s [00:52:49.966] - stdout: TRUE 1569s [00:52:49.967] - signal: TRUE 1569s [00:52:49.967] - resignal: FALSE 1569s [00:52:49.967] - force: TRUE 1569s [00:52:49.967] - relayed: [n=1] FALSE 1569s [00:52:49.967] - queued futures: [n=1] FALSE 1569s [00:52:49.967] - until=1 1570s [00:52:49.967] - relaying element #1 1570s [00:52:49.968] - relayed: [n=1] TRUE 1570s [00:52:49.968] - queued futures: [n=1] TRUE 1570s [00:52:49.968] signalConditionsASAP(SequentialFuture, pos=1) ... done 1570s [00:52:49.968] length: 0 (resolved future 1) 1570s [00:52:49.969] Relaying remaining futures 1570s [00:52:49.969] signalConditionsASAP(NULL, pos=0) ... 1570s [00:52:49.969] - nx: 1 1570s [00:52:49.969] - relay: TRUE 1570s [00:52:49.969] - stdout: TRUE 1570s [00:52:49.970] - signal: TRUE 1570s [00:52:49.970] - resignal: FALSE 1570s [00:52:49.972] - force: TRUE 1570s [00:52:49.972] - relayed: [n=1] TRUE 1570s [00:52:49.972] - queued futures: [n=1] TRUE 1570s - flush all 1570s [00:52:49.973] - relayed: [n=1] TRUE 1570s [00:52:49.973] - queued futures: [n=1] TRUE 1570s [00:52:49.973] signalConditionsASAP(NULL, pos=0) ... done 1570s [00:52:49.973] resolve() on list ... DONE 1570s [00:52:49.974] - Number of value chunks collected: 1 1570s [00:52:49.974] Resolving 1 futures (chunks) ... DONE 1570s [00:52:49.974] Reducing values from 1 chunks ... 1570s [00:52:49.974] - Number of values collected after concatenation: 6 1570s [00:52:49.974] - Number of values expected: 6 1570s [00:52:49.974] Reducing values from 1 chunks ... DONE 1570s [00:52:49.975] future_lapply() ... DONE 1570s List of 2 1570s $ y0:List of 6 1570s ..$ a1: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1570s ..$ a2: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1570s ..$ b1: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1570s ..$ b2: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1570s ..$ c1: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1570s ..$ c2: num [1:3, 1:5] 8 8 8 16 16 16 24 24 24 32 ... 1570s $ y1:List of 6 1570s ..$ a1: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1570s ..$ a2: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1570s ..$ b1: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1570s ..$ b2: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1570s ..$ c1: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1570s ..$ c2: num [1:3, 1:5] 8 8 8 16 16 16 24 24 24 32 ... 1570s List of 2 1570s $ y0:List of 6 1570s ..$ a1: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1570s ..$ a2: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1570s ..$ b1: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1570s ..$ b2: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1570s ..$ c1: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1570s ..$ c2: num [1:3, 1:5] 8 8 8 16 16 16 24 24 24 32 ... 1570s $ y2:List of 6 1570s ..$ a1: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1570s ..$ a2: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1570s ..$ b1: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1570s ..$ b2: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1570s ..$ c1: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1570s ..$ c2: num [1:3, 1:5] 8 8 8 16 16 16 24 24 24 32 ... 1570s [00:52:49.990] future_lapply() ... 1570s [00:52:49.990] Number of chunks: 1 1570s [00:52:49.991] getGlobalsAndPackagesXApply() ... 1570s [00:52:49.991] - future.globals: TRUE 1570s [00:52:49.991] getGlobalsAndPackages() ... 1570s [00:52:49.991] Searching for globals... 1570s [00:52:49.992] - globals found: [1] ‘FUN’ 1570s [00:52:49.992] Searching for globals ... DONE 1570s [00:52:49.992] Resolving globals: FALSE 1570s [00:52:49.993] The total size of the 1 globals is 848 bytes (848 bytes) 1570s [00:52:49.993] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1570s [00:52:49.994] - globals: [1] ‘FUN’ 1570s [00:52:49.994] 1570s [00:52:49.994] getGlobalsAndPackages() ... DONE 1570s [00:52:49.994] - globals found/used: [n=1] ‘FUN’ 1570s [00:52:49.994] - needed namespaces: [n=0] 1570s [00:52:49.994] Finding globals ... DONE 1570s [00:52:49.995] - use_args: TRUE 1570s [00:52:49.995] - Getting '...' globals ... 1570s [00:52:49.995] resolve() on list ... 1570s [00:52:49.996] recursive: 0 1570s [00:52:49.996] length: 1 1570s [00:52:49.996] elements: ‘...’ 1570s [00:52:49.996] length: 0 (resolved future 1) 1570s [00:52:49.996] resolve() on list ... DONE 1570s [00:52:49.996] - '...' content: [n=0] 1570s [00:52:49.997] List of 1 1570s [00:52:49.997] $ ...: list() 1570s [00:52:49.997] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1570s [00:52:49.997] - attr(*, "where")=List of 1 1570s [00:52:49.997] ..$ ...: 1570s [00:52:49.997] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1570s [00:52:49.997] - attr(*, "resolved")= logi TRUE 1570s [00:52:49.997] - attr(*, "total_size")= num NA 1570s [00:52:50.001] - Getting '...' globals ... DONE 1570s [00:52:50.001] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1570s [00:52:50.001] List of 2 1570s [00:52:50.001] $ ...future.FUN:function (x) 1570s [00:52:50.001] $ ... : list() 1570s [00:52:50.001] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1570s [00:52:50.001] - attr(*, "where")=List of 2 1570s [00:52:50.001] ..$ ...future.FUN: 1570s [00:52:50.001] ..$ ... : 1570s [00:52:50.001] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1570s [00:52:50.001] - attr(*, "resolved")= logi FALSE 1570s [00:52:50.001] - attr(*, "total_size")= num 848 1570s [00:52:50.008] Packages to be attached in all futures: [n=0] 1570s [00:52:50.008] getGlobalsAndPackagesXApply() ... DONE 1570s [00:52:50.008] Number of futures (= number of chunks): 1 1570s [00:52:50.008] Launching 1 futures (chunks) ... 1570s [00:52:50.008] Chunk #1 of 1 ... 1570s [00:52:50.009] - Finding globals in 'X' for chunk #1 ... 1570s [00:52:50.009] getGlobalsAndPackages() ... 1570s [00:52:50.009] Searching for globals... 1570s [00:52:50.009] 1570s [00:52:50.009] Searching for globals ... DONE 1570s [00:52:50.010] - globals: [0] 1570s [00:52:50.010] getGlobalsAndPackages() ... DONE 1570s [00:52:50.010] + additional globals found: [n=0] 1570s [00:52:50.010] + additional namespaces needed: [n=0] 1570s [00:52:50.010] - Finding globals in 'X' for chunk #1 ... DONE 1570s [00:52:50.011] - seeds: 1570s [00:52:50.011] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1570s [00:52:50.011] getGlobalsAndPackages() ... 1570s [00:52:50.011] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1570s [00:52:50.012] Resolving globals: FALSE 1570s [00:52:50.012] Tweak future expression to call with '...' arguments ... 1570s [00:52:50.012] { 1570s [00:52:50.012] do.call(function(...) { 1570s [00:52:50.012] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1570s [00:52:50.012] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1570s [00:52:50.012] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1570s [00:52:50.012] on.exit(options(oopts), add = TRUE) 1570s [00:52:50.012] } 1570s [00:52:50.012] { 1570s [00:52:50.012] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1570s [00:52:50.012] ...future.X_jj <- ...future.elements_ii[[jj]] 1570s [00:52:50.012] ...future.FUN(...future.X_jj, ...) 1570s [00:52:50.012] }) 1570s [00:52:50.012] } 1570s [00:52:50.012] }, args = future.call.arguments) 1570s [00:52:50.012] } 1570s [00:52:50.012] Tweak future expression to call with '...' arguments ... DONE 1570s [00:52:50.012] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1570s [00:52:50.013] 1570s [00:52:50.013] getGlobalsAndPackages() ... DONE 1570s [00:52:50.013] run() for ‘Future’ ... 1570s [00:52:50.013] - state: ‘created’ 1570s [00:52:50.013] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1570s [00:52:50.014] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1570s [00:52:50.014] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1570s [00:52:50.014] - Field: ‘label’ 1570s [00:52:50.014] - Field: ‘local’ 1570s [00:52:50.014] - Field: ‘owner’ 1570s [00:52:50.014] - Field: ‘envir’ 1570s [00:52:50.014] - Field: ‘packages’ 1570s [00:52:50.014] - Field: ‘gc’ 1570s [00:52:50.015] - Field: ‘conditions’ 1570s [00:52:50.015] - Field: ‘expr’ 1570s [00:52:50.015] - Field: ‘uuid’ 1570s [00:52:50.015] - Field: ‘seed’ 1570s [00:52:50.015] - Field: ‘version’ 1570s [00:52:50.015] - Field: ‘result’ 1570s [00:52:50.015] - Field: ‘asynchronous’ 1570s [00:52:50.015] - Field: ‘calls’ 1570s [00:52:50.016] - Field: ‘globals’ 1570s [00:52:50.016] - Field: ‘stdout’ 1570s [00:52:50.016] - Field: ‘earlySignal’ 1570s [00:52:50.016] - Field: ‘lazy’ 1570s [00:52:50.016] - Field: ‘state’ 1570s [00:52:50.016] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1570s [00:52:50.016] - Launch lazy future ... 1570s [00:52:50.016] Packages needed by the future expression (n = 0): 1570s [00:52:50.017] Packages needed by future strategies (n = 0): 1570s [00:52:50.017] { 1570s [00:52:50.017] { 1570s [00:52:50.017] { 1570s [00:52:50.017] ...future.startTime <- base::Sys.time() 1570s [00:52:50.017] { 1570s [00:52:50.017] { 1570s [00:52:50.017] { 1570s [00:52:50.017] base::local({ 1570s [00:52:50.017] has_future <- base::requireNamespace("future", 1570s [00:52:50.017] quietly = TRUE) 1570s [00:52:50.017] if (has_future) { 1570s [00:52:50.017] ns <- base::getNamespace("future") 1570s [00:52:50.017] version <- ns[[".package"]][["version"]] 1570s [00:52:50.017] if (is.null(version)) 1570s [00:52:50.017] version <- utils::packageVersion("future") 1570s [00:52:50.017] } 1570s [00:52:50.017] else { 1570s [00:52:50.017] version <- NULL 1570s [00:52:50.017] } 1570s [00:52:50.017] if (!has_future || version < "1.8.0") { 1570s [00:52:50.017] info <- base::c(r_version = base::gsub("R version ", 1570s [00:52:50.017] "", base::R.version$version.string), 1570s [00:52:50.017] platform = base::sprintf("%s (%s-bit)", 1570s [00:52:50.017] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1570s [00:52:50.017] os = base::paste(base::Sys.info()[base::c("sysname", 1570s [00:52:50.017] "release", "version")], collapse = " "), 1570s [00:52:50.017] hostname = base::Sys.info()[["nodename"]]) 1570s [00:52:50.017] info <- base::sprintf("%s: %s", base::names(info), 1570s [00:52:50.017] info) 1570s [00:52:50.017] info <- base::paste(info, collapse = "; ") 1570s [00:52:50.017] if (!has_future) { 1570s [00:52:50.017] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1570s [00:52:50.017] info) 1570s [00:52:50.017] } 1570s [00:52:50.017] else { 1570s [00:52:50.017] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1570s [00:52:50.017] info, version) 1570s [00:52:50.017] } 1570s [00:52:50.017] base::stop(msg) 1570s [00:52:50.017] } 1570s [00:52:50.017] }) 1570s [00:52:50.017] } 1570s [00:52:50.017] options(future.plan = NULL) 1570s [00:52:50.017] Sys.unsetenv("R_FUTURE_PLAN") 1570s [00:52:50.017] future::plan("default", .cleanup = FALSE, .init = FALSE) 1570s [00:52:50.017] } 1570s [00:52:50.017] ...future.workdir <- getwd() 1570s [00:52:50.017] } 1570s [00:52:50.017] ...future.oldOptions <- base::as.list(base::.Options) 1570s [00:52:50.017] ...future.oldEnvVars <- base::Sys.getenv() 1570s [00:52:50.017] } 1570s [00:52:50.017] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1570s [00:52:50.017] future.globals.maxSize = NULL, future.globals.method = NULL, 1570s [00:52:50.017] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1570s [00:52:50.017] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1570s [00:52:50.017] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1570s [00:52:50.017] future.stdout.windows.reencode = NULL, width = 80L) 1570s [00:52:50.017] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1570s [00:52:50.017] base::names(...future.oldOptions)) 1570s [00:52:50.017] } 1570s [00:52:50.017] if (FALSE) { 1570s [00:52:50.017] } 1570s [00:52:50.017] else { 1570s [00:52:50.017] if (TRUE) { 1570s [00:52:50.017] ...future.stdout <- base::rawConnection(base::raw(0L), 1570s [00:52:50.017] open = "w") 1570s [00:52:50.017] } 1570s [00:52:50.017] else { 1570s [00:52:50.017] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1570s [00:52:50.017] windows = "NUL", "/dev/null"), open = "w") 1570s [00:52:50.017] } 1570s [00:52:50.017] base::sink(...future.stdout, type = "output", split = FALSE) 1570s [00:52:50.017] base::on.exit(if (!base::is.null(...future.stdout)) { 1570s [00:52:50.017] base::sink(type = "output", split = FALSE) 1570s [00:52:50.017] base::close(...future.stdout) 1570s [00:52:50.017] }, add = TRUE) 1570s [00:52:50.017] } 1570s [00:52:50.017] ...future.frame <- base::sys.nframe() 1570s [00:52:50.017] ...future.conditions <- base::list() 1570s [00:52:50.017] ...future.rng <- base::globalenv()$.Random.seed 1570s [00:52:50.017] if (FALSE) { 1570s [00:52:50.017] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1570s [00:52:50.017] "...future.value", "...future.globalenv.names", ".Random.seed") 1570s [00:52:50.017] } 1570s [00:52:50.017] ...future.result <- base::tryCatch({ 1570s [00:52:50.017] base::withCallingHandlers({ 1570s [00:52:50.017] ...future.value <- base::withVisible(base::local({ 1570s [00:52:50.017] do.call(function(...) { 1570s [00:52:50.017] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1570s [00:52:50.017] if (!identical(...future.globals.maxSize.org, 1570s [00:52:50.017] ...future.globals.maxSize)) { 1570s [00:52:50.017] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1570s [00:52:50.017] on.exit(options(oopts), add = TRUE) 1570s [00:52:50.017] } 1570s [00:52:50.017] { 1570s [00:52:50.017] lapply(seq_along(...future.elements_ii), 1570s [00:52:50.017] FUN = function(jj) { 1570s [00:52:50.017] ...future.X_jj <- ...future.elements_ii[[jj]] 1570s [00:52:50.017] ...future.FUN(...future.X_jj, ...) 1570s [00:52:50.017] }) 1570s [00:52:50.017] } 1570s [00:52:50.017] }, args = future.call.arguments) 1570s [00:52:50.017] })) 1570s [00:52:50.017] future::FutureResult(value = ...future.value$value, 1570s [00:52:50.017] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1570s [00:52:50.017] ...future.rng), globalenv = if (FALSE) 1570s [00:52:50.017] list(added = base::setdiff(base::names(base::.GlobalEnv), 1570s [00:52:50.017] ...future.globalenv.names)) 1570s [00:52:50.017] else NULL, started = ...future.startTime, version = "1.8") 1570s [00:52:50.017] }, condition = base::local({ 1570s [00:52:50.017] c <- base::c 1570s [00:52:50.017] inherits <- base::inherits 1570s [00:52:50.017] invokeRestart <- base::invokeRestart 1570s [00:52:50.017] length <- base::length 1570s [00:52:50.017] list <- base::list 1570s [00:52:50.017] seq.int <- base::seq.int 1570s [00:52:50.017] signalCondition <- base::signalCondition 1570s [00:52:50.017] sys.calls <- base::sys.calls 1570s [00:52:50.017] `[[` <- base::`[[` 1570s [00:52:50.017] `+` <- base::`+` 1570s [00:52:50.017] `<<-` <- base::`<<-` 1570s [00:52:50.017] sysCalls <- function(calls = sys.calls(), from = 1L) { 1570s [00:52:50.017] calls[seq.int(from = from + 12L, to = length(calls) - 1570s [00:52:50.017] 3L)] 1570s [00:52:50.017] } 1570s [00:52:50.017] function(cond) { 1570s [00:52:50.017] is_error <- inherits(cond, "error") 1570s [00:52:50.017] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1570s [00:52:50.017] NULL) 1570s [00:52:50.017] if (is_error) { 1570s [00:52:50.017] sessionInformation <- function() { 1570s [00:52:50.017] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1570s [00:52:50.017] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1570s [00:52:50.017] search = base::search(), system = base::Sys.info()) 1570s [00:52:50.017] } 1570s [00:52:50.017] ...future.conditions[[length(...future.conditions) + 1570s [00:52:50.017] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1570s [00:52:50.017] cond$call), session = sessionInformation(), 1570s [00:52:50.017] timestamp = base::Sys.time(), signaled = 0L) 1570s [00:52:50.017] signalCondition(cond) 1570s [00:52:50.017] } 1570s [00:52:50.017] else if (!ignore && TRUE && inherits(cond, c("condition", 1570s [00:52:50.017] "immediateCondition"))) { 1570s [00:52:50.017] signal <- TRUE && inherits(cond, "immediateCondition") 1570s [00:52:50.017] ...future.conditions[[length(...future.conditions) + 1570s [00:52:50.017] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1570s [00:52:50.017] if (TRUE && !signal) { 1570s [00:52:50.017] muffleCondition <- function (cond, pattern = "^muffle") 1570s [00:52:50.017] { 1570s [00:52:50.017] inherits <- base::inherits 1570s [00:52:50.017] invokeRestart <- base::invokeRestart 1570s [00:52:50.017] is.null <- base::is.null 1570s [00:52:50.017] muffled <- FALSE 1570s [00:52:50.017] if (inherits(cond, "message")) { 1570s [00:52:50.017] muffled <- grepl(pattern, "muffleMessage") 1570s [00:52:50.017] if (muffled) 1570s [00:52:50.017] invokeRestart("muffleMessage") 1570s [00:52:50.017] } 1570s [00:52:50.017] else if (inherits(cond, "warning")) { 1570s [00:52:50.017] muffled <- grepl(pattern, "muffleWarning") 1570s [00:52:50.017] if (muffled) 1570s [00:52:50.017] invokeRestart("muffleWarning") 1570s [00:52:50.017] } 1570s [00:52:50.017] else if (inherits(cond, "condition")) { 1570s [00:52:50.017] if (!is.null(pattern)) { 1570s [00:52:50.017] computeRestarts <- base::computeRestarts 1570s [00:52:50.017] grepl <- base::grepl 1570s [00:52:50.017] restarts <- computeRestarts(cond) 1570s [00:52:50.017] for (restart in restarts) { 1570s [00:52:50.017] name <- restart$name 1570s [00:52:50.017] if (is.null(name)) 1570s [00:52:50.017] next 1570s [00:52:50.017] if (!grepl(pattern, name)) 1570s [00:52:50.017] next 1570s [00:52:50.017] invokeRestart(restart) 1570s [00:52:50.017] muffled <- TRUE 1570s [00:52:50.017] break 1570s [00:52:50.017] } 1570s [00:52:50.017] } 1570s [00:52:50.017] } 1570s [00:52:50.017] invisible(muffled) 1570s [00:52:50.017] } 1570s [00:52:50.017] muffleCondition(cond, pattern = "^muffle") 1570s [00:52:50.017] } 1570s [00:52:50.017] } 1570s [00:52:50.017] else { 1570s [00:52:50.017] if (TRUE) { 1570s [00:52:50.017] muffleCondition <- function (cond, pattern = "^muffle") 1570s [00:52:50.017] { 1570s [00:52:50.017] inherits <- base::inherits 1570s [00:52:50.017] invokeRestart <- base::invokeRestart 1570s [00:52:50.017] is.null <- base::is.null 1570s [00:52:50.017] muffled <- FALSE 1570s [00:52:50.017] if (inherits(cond, "message")) { 1570s [00:52:50.017] muffled <- grepl(pattern, "muffleMessage") 1570s [00:52:50.017] if (muffled) 1570s [00:52:50.017] invokeRestart("muffleMessage") 1570s [00:52:50.017] } 1570s [00:52:50.017] else if (inherits(cond, "warning")) { 1570s [00:52:50.017] muffled <- grepl(pattern, "muffleWarning") 1570s [00:52:50.017] if (muffled) 1570s [00:52:50.017] invokeRestart("muffleWarning") 1570s [00:52:50.017] } 1570s [00:52:50.017] else if (inherits(cond, "condition")) { 1570s [00:52:50.017] if (!is.null(pattern)) { 1570s [00:52:50.017] computeRestarts <- base::computeRestarts 1570s [00:52:50.017] grepl <- base::grepl 1570s [00:52:50.017] restarts <- computeRestarts(cond) 1570s [00:52:50.017] for (restart in restarts) { 1570s [00:52:50.017] name <- restart$name 1570s [00:52:50.017] if (is.null(name)) 1570s [00:52:50.017] next 1570s [00:52:50.017] if (!grepl(pattern, name)) 1570s [00:52:50.017] next 1570s [00:52:50.017] invokeRestart(restart) 1570s [00:52:50.017] muffled <- TRUE 1570s [00:52:50.017] break 1570s [00:52:50.017] } 1570s [00:52:50.017] } 1570s [00:52:50.017] } 1570s [00:52:50.017] invisible(muffled) 1570s [00:52:50.017] } 1570s [00:52:50.017] muffleCondition(cond, pattern = "^muffle") 1570s [00:52:50.017] } 1570s [00:52:50.017] } 1570s [00:52:50.017] } 1570s [00:52:50.017] })) 1570s [00:52:50.017] }, error = function(ex) { 1570s [00:52:50.017] base::structure(base::list(value = NULL, visible = NULL, 1570s [00:52:50.017] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1570s [00:52:50.017] ...future.rng), started = ...future.startTime, 1570s [00:52:50.017] finished = Sys.time(), session_uuid = NA_character_, 1570s [00:52:50.017] version = "1.8"), class = "FutureResult") 1570s [00:52:50.017] }, finally = { 1570s [00:52:50.017] if (!identical(...future.workdir, getwd())) 1570s [00:52:50.017] setwd(...future.workdir) 1570s [00:52:50.017] { 1570s [00:52:50.017] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1570s [00:52:50.017] ...future.oldOptions$nwarnings <- NULL 1570s [00:52:50.017] } 1570s [00:52:50.017] base::options(...future.oldOptions) 1570s [00:52:50.017] if (.Platform$OS.type == "windows") { 1570s [00:52:50.017] old_names <- names(...future.oldEnvVars) 1570s [00:52:50.017] envs <- base::Sys.getenv() 1570s [00:52:50.017] names <- names(envs) 1570s [00:52:50.017] common <- intersect(names, old_names) 1570s [00:52:50.017] added <- setdiff(names, old_names) 1570s [00:52:50.017] removed <- setdiff(old_names, names) 1570s [00:52:50.017] changed <- common[...future.oldEnvVars[common] != 1570s [00:52:50.017] envs[common]] 1570s [00:52:50.017] NAMES <- toupper(changed) 1570s [00:52:50.017] args <- list() 1570s [00:52:50.017] for (kk in seq_along(NAMES)) { 1570s [00:52:50.017] name <- changed[[kk]] 1570s [00:52:50.017] NAME <- NAMES[[kk]] 1570s [00:52:50.017] if (name != NAME && is.element(NAME, old_names)) 1570s [00:52:50.017] next 1570s [00:52:50.017] args[[name]] <- ...future.oldEnvVars[[name]] 1570s [00:52:50.017] } 1570s [00:52:50.017] NAMES <- toupper(added) 1570s [00:52:50.017] for (kk in seq_along(NAMES)) { 1570s [00:52:50.017] name <- added[[kk]] 1570s [00:52:50.017] NAME <- NAMES[[kk]] 1570s [00:52:50.017] if (name != NAME && is.element(NAME, old_names)) 1570s [00:52:50.017] next 1570s [00:52:50.017] args[[name]] <- "" 1570s [00:52:50.017] } 1570s [00:52:50.017] NAMES <- toupper(removed) 1570s [00:52:50.017] for (kk in seq_along(NAMES)) { 1570s [00:52:50.017] name <- removed[[kk]] 1570s [00:52:50.017] NAME <- NAMES[[kk]] 1570s [00:52:50.017] if (name != NAME && is.element(NAME, old_names)) 1570s [00:52:50.017] next 1570s [00:52:50.017] args[[name]] <- ...future.oldEnvVars[[name]] 1570s [00:52:50.017] } 1570s [00:52:50.017] if (length(args) > 0) 1570s [00:52:50.017] base::do.call(base::Sys.setenv, args = args) 1570s [00:52:50.017] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1570s [00:52:50.017] } 1570s [00:52:50.017] else { 1570s [00:52:50.017] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1570s [00:52:50.017] } 1570s [00:52:50.017] { 1570s [00:52:50.017] if (base::length(...future.futureOptionsAdded) > 1570s [00:52:50.017] 0L) { 1570s [00:52:50.017] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1570s [00:52:50.017] base::names(opts) <- ...future.futureOptionsAdded 1570s [00:52:50.017] base::options(opts) 1570s [00:52:50.017] } 1570s [00:52:50.017] { 1570s [00:52:50.017] { 1570s [00:52:50.017] NULL 1570s [00:52:50.017] RNGkind("Mersenne-Twister") 1570s [00:52:50.017] base::rm(list = ".Random.seed", envir = base::globalenv(), 1570s [00:52:50.017] inherits = FALSE) 1570s [00:52:50.017] } 1570s [00:52:50.017] options(future.plan = NULL) 1570s [00:52:50.017] if (is.na(NA_character_)) 1570s [00:52:50.017] Sys.unsetenv("R_FUTURE_PLAN") 1570s [00:52:50.017] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1570s [00:52:50.017] future::plan(list(function (..., envir = parent.frame()) 1570s [00:52:50.017] { 1570s [00:52:50.017] future <- SequentialFuture(..., envir = envir) 1570s [00:52:50.017] if (!future$lazy) 1570s [00:52:50.017] future <- run(future) 1570s [00:52:50.017] invisible(future) 1570s [00:52:50.017] }), .cleanup = FALSE, .init = FALSE) 1570s [00:52:50.017] } 1570s [00:52:50.017] } 1570s [00:52:50.017] } 1570s [00:52:50.017] }) 1570s [00:52:50.017] if (TRUE) { 1570s [00:52:50.017] base::sink(type = "output", split = FALSE) 1570s [00:52:50.017] if (TRUE) { 1570s [00:52:50.017] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1570s [00:52:50.017] } 1570s [00:52:50.017] else { 1570s [00:52:50.017] ...future.result["stdout"] <- base::list(NULL) 1570s [00:52:50.017] } 1570s [00:52:50.017] base::close(...future.stdout) 1570s [00:52:50.017] ...future.stdout <- NULL 1570s [00:52:50.017] } 1570s [00:52:50.017] ...future.result$conditions <- ...future.conditions 1570s [00:52:50.017] ...future.result$finished <- base::Sys.time() 1570s [00:52:50.017] ...future.result 1570s [00:52:50.017] } 1570s [00:52:50.020] assign_globals() ... 1570s [00:52:50.020] List of 5 1570s [00:52:50.020] $ ...future.FUN :function (x) 1570s [00:52:50.020] $ future.call.arguments : list() 1570s [00:52:50.020] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1570s [00:52:50.020] $ ...future.elements_ii :List of 6 1570s [00:52:50.020] ..$ a1: int 1 1570s [00:52:50.020] ..$ a2: int 2 1570s [00:52:50.020] ..$ b1: int 2 1570s [00:52:50.020] ..$ b2: int 3 1570s [00:52:50.020] ..$ c1: int 3 1570s [00:52:50.020] ..$ c2: int 4 1570s [00:52:50.020] $ ...future.seeds_ii : NULL 1570s [00:52:50.020] $ ...future.globals.maxSize: NULL 1570s [00:52:50.020] - attr(*, "where")=List of 5 1570s [00:52:50.020] ..$ ...future.FUN : 1570s [00:52:50.020] ..$ future.call.arguments : 1570s [00:52:50.020] ..$ ...future.elements_ii : 1570s [00:52:50.020] ..$ ...future.seeds_ii : 1570s [00:52:50.020] ..$ ...future.globals.maxSize: 1570s [00:52:50.020] - attr(*, "resolved")= logi FALSE 1570s [00:52:50.020] - attr(*, "total_size")= num 848 1570s [00:52:50.020] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1570s [00:52:50.020] - attr(*, "already-done")= logi TRUE 1570s [00:52:50.030] - copied ‘...future.FUN’ to environment 1570s [00:52:50.030] - copied ‘future.call.arguments’ to environment 1570s [00:52:50.030] - copied ‘...future.elements_ii’ to environment 1570s [00:52:50.031] - copied ‘...future.seeds_ii’ to environment 1570s [00:52:50.033] - copied ‘...future.globals.maxSize’ to environment 1570s [00:52:50.033] assign_globals() ... done 1570s [00:52:50.034] plan(): Setting new future strategy stack: 1570s [00:52:50.034] List of future strategies: 1570s [00:52:50.034] 1. sequential: 1570s [00:52:50.034] - args: function (..., envir = parent.frame()) 1570s [00:52:50.034] - tweaked: FALSE 1570s [00:52:50.034] - call: NULL 1570s [00:52:50.035] plan(): nbrOfWorkers() = 1 1570s [00:52:50.036] plan(): Setting new future strategy stack: 1570s [00:52:50.036] List of future strategies: 1570s [00:52:50.036] 1. sequential: 1570s [00:52:50.036] - args: function (..., envir = parent.frame()) 1570s [00:52:50.036] - tweaked: FALSE 1570s [00:52:50.036] - call: plan(strategy) 1570s [00:52:50.037] plan(): nbrOfWorkers() = 1 1570s [00:52:50.038] SequentialFuture started (and completed) 1570s [00:52:50.038] - Launch lazy future ... done 1570s [00:52:50.038] run() for ‘SequentialFuture’ ... done 1570s [00:52:50.038] Created future: 1570s [00:52:50.038] SequentialFuture: 1570s [00:52:50.038] Label: ‘future_sapply-1’ 1570s [00:52:50.038] Expression: 1570s [00:52:50.038] { 1570s [00:52:50.038] do.call(function(...) { 1570s [00:52:50.038] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1570s [00:52:50.038] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1570s [00:52:50.038] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1570s [00:52:50.038] on.exit(options(oopts), add = TRUE) 1570s [00:52:50.038] } 1570s [00:52:50.038] { 1570s [00:52:50.038] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1570s [00:52:50.038] ...future.X_jj <- ...future.elements_ii[[jj]] 1570s [00:52:50.038] ...future.FUN(...future.X_jj, ...) 1570s [00:52:50.038] }) 1570s [00:52:50.038] } 1570s [00:52:50.038] }, args = future.call.arguments) 1570s [00:52:50.038] } 1570s [00:52:50.038] Lazy evaluation: FALSE 1570s [00:52:50.038] Asynchronous evaluation: FALSE 1570s [00:52:50.038] Local evaluation: TRUE 1570s [00:52:50.038] Environment: R_GlobalEnv 1570s [00:52:50.038] Capture standard output: TRUE 1570s [00:52:50.038] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1570s [00:52:50.038] Globals: 5 objects totaling 1.16 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1570s [00:52:50.038] Packages: 1570s [00:52:50.038] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1570s [00:52:50.038] Resolved: TRUE 1570s [00:52:50.038] Value: 336 bytes of class ‘list’ 1570s [00:52:50.038] Early signaling: FALSE 1570s [00:52:50.038] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1570s [00:52:50.038] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1570s [00:52:50.042] Chunk #1 of 1 ... DONE 1570s [00:52:50.042] Launching 1 futures (chunks) ... DONE 1570s [00:52:50.043] Resolving 1 futures (chunks) ... 1570s [00:52:50.043] resolve() on list ... 1570s [00:52:50.044] recursive: 0 1570s [00:52:50.044] length: 1 1570s [00:52:50.045] 1570s [00:52:50.046] resolved() for ‘SequentialFuture’ ... 1570s [00:52:50.046] - state: ‘finished’ 1570s [00:52:50.046] - run: TRUE 1570s [00:52:50.046] - result: ‘FutureResult’ 1570s [00:52:50.046] resolved() for ‘SequentialFuture’ ... done 1570s [00:52:50.046] Future #1 1570s [00:52:50.047] signalConditionsASAP(SequentialFuture, pos=1) ... 1570s [00:52:50.047] - nx: 1 1570s [00:52:50.047] - relay: TRUE 1570s [00:52:50.047] - stdout: TRUE 1570s [00:52:50.047] - signal: TRUE 1570s [00:52:50.047] - resignal: FALSE 1570s [00:52:50.048] - force: TRUE 1570s [00:52:50.048] - relayed: [n=1] FALSE 1570s [00:52:50.048] - queued futures: [n=1] FALSE 1570s [00:52:50.048] - until=1 1570s [00:52:50.048] - relaying element #1 1570s [00:52:50.049] - relayed: [n=1] TRUE 1570s [00:52:50.049] - queued futures: [n=1] TRUE 1570s [00:52:50.049] signalConditionsASAP(SequentialFuture, pos=1) ... done 1570s [00:52:50.049] length: 0 (resolved future 1) 1570s [00:52:50.049] Relaying remaining futures 1570s [00:52:50.049] signalConditionsASAP(NULL, pos=0) ... 1570s [00:52:50.050] - nx: 1 1570s [00:52:50.050] - relay: TRUE 1570s [00:52:50.050] - stdout: TRUE 1570s [00:52:50.050] - signal: TRUE 1570s [00:52:50.050] - resignal: FALSE 1570s [00:52:50.050] - force: TRUE 1570s [00:52:50.051] - relayed: [n=1] TRUE 1570s [00:52:50.051] - queued futures: [n=1] TRUE 1570s - flush all 1570s [00:52:50.051] - relayed: [n=1] TRUE 1570s [00:52:50.051] - queued futures: [n=1] TRUE 1570s [00:52:50.051] signalConditionsASAP(NULL, pos=0) ... done 1570s [00:52:50.054] resolve() on list ... DONE 1570s [00:52:50.054] - Number of value chunks collected: 1 1570s [00:52:50.054] Resolving 1 futures (chunks) ... DONE 1570s [00:52:50.054] Reducing values from 1 chunks ... 1570s [00:52:50.055] - Number of values collected after concatenation: 6 1570s [00:52:50.055] - Number of values expected: 6 1570s [00:52:50.055] Reducing values from 1 chunks ... DONE 1570s [00:52:50.055] future_lapply() ... DONE 1570s List of 2 1570s $ y0: Named int [1:6] 1 2 2 3 3 4 1570s ..- attr(*, "names")= chr [1:6] "a1" "a2" "b1" "b2" ... 1570s $ y1: Named int [1:6] 1 2 2 3 3 4 1570s ..- attr(*, "names")= chr [1:6] "a1" "a2" "b1" "b2" ... 1570s [00:52:50.063] future_lapply() ... 1570s [00:52:50.064] Number of chunks: 1 1570s [00:52:50.064] getGlobalsAndPackagesXApply() ... 1570s [00:52:50.064] - future.globals: TRUE 1570s [00:52:50.064] getGlobalsAndPackages() ... 1570s [00:52:50.064] Searching for globals... 1570s [00:52:50.066] - globals found: [2] ‘FUN’, ‘UseMethod’ 1570s [00:52:50.067] Searching for globals ... DONE 1570s [00:52:50.067] Resolving globals: FALSE 1570s [00:52:50.067] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1570s [00:52:50.068] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1570s [00:52:50.068] - globals: [1] ‘FUN’ 1570s [00:52:50.068] 1570s [00:52:50.068] getGlobalsAndPackages() ... DONE 1570s [00:52:50.068] - globals found/used: [n=1] ‘FUN’ 1570s [00:52:50.068] - needed namespaces: [n=0] 1570s [00:52:50.068] Finding globals ... DONE 1570s [00:52:50.068] - use_args: TRUE 1570s [00:52:50.069] - Getting '...' globals ... 1570s [00:52:50.069] resolve() on list ... 1570s [00:52:50.069] recursive: 0 1570s [00:52:50.069] length: 1 1570s [00:52:50.069] elements: ‘...’ 1570s [00:52:50.070] length: 0 (resolved future 1) 1570s [00:52:50.070] resolve() on list ... DONE 1570s [00:52:50.070] - '...' content: [n=0] 1570s [00:52:50.070] List of 1 1570s [00:52:50.070] $ ...: list() 1570s [00:52:50.070] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1570s [00:52:50.070] - attr(*, "where")=List of 1 1570s [00:52:50.070] ..$ ...: 1570s [00:52:50.070] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1570s [00:52:50.070] - attr(*, "resolved")= logi TRUE 1570s [00:52:50.070] - attr(*, "total_size")= num NA 1570s [00:52:50.073] - Getting '...' globals ... DONE 1570s [00:52:50.073] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1570s [00:52:50.074] List of 2 1570s [00:52:50.074] $ ...future.FUN:function (x, ...) 1570s [00:52:50.074] $ ... : list() 1570s [00:52:50.074] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1570s [00:52:50.074] - attr(*, "where")=List of 2 1570s [00:52:50.074] ..$ ...future.FUN: 1570s [00:52:50.074] ..$ ... : 1570s [00:52:50.074] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1570s [00:52:50.074] - attr(*, "resolved")= logi FALSE 1570s [00:52:50.074] - attr(*, "total_size")= num 1248 1570s [00:52:50.077] Packages to be attached in all futures: [n=0] 1570s [00:52:50.077] getGlobalsAndPackagesXApply() ... DONE 1570s [00:52:50.077] Number of futures (= number of chunks): 1 1570s [00:52:50.078] Launching 1 futures (chunks) ... 1570s [00:52:50.078] Chunk #1 of 1 ... 1570s [00:52:50.078] - Finding globals in 'X' for chunk #1 ... 1570s [00:52:50.078] getGlobalsAndPackages() ... 1570s [00:52:50.078] Searching for globals... 1570s [00:52:50.079] 1570s [00:52:50.080] Searching for globals ... DONE 1570s [00:52:50.080] - globals: [0] 1570s [00:52:50.080] getGlobalsAndPackages() ... DONE 1570s [00:52:50.081] + additional globals found: [n=0] 1570s [00:52:50.081] + additional namespaces needed: [n=0] 1570s [00:52:50.081] - Finding globals in 'X' for chunk #1 ... DONE 1570s [00:52:50.081] - seeds: 1570s [00:52:50.081] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1570s [00:52:50.081] getGlobalsAndPackages() ... 1570s [00:52:50.082] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1570s [00:52:50.082] Resolving globals: FALSE 1570s [00:52:50.082] Tweak future expression to call with '...' arguments ... 1570s [00:52:50.082] { 1570s [00:52:50.082] do.call(function(...) { 1570s [00:52:50.082] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1570s [00:52:50.082] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1570s [00:52:50.082] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1570s [00:52:50.082] on.exit(options(oopts), add = TRUE) 1570s [00:52:50.082] } 1570s [00:52:50.082] { 1570s [00:52:50.082] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1570s [00:52:50.082] ...future.X_jj <- ...future.elements_ii[[jj]] 1570s [00:52:50.082] ...future.FUN(...future.X_jj, ...) 1570s [00:52:50.082] }) 1570s [00:52:50.082] } 1570s [00:52:50.082] }, args = future.call.arguments) 1570s [00:52:50.082] } 1570s [00:52:50.083] Tweak future expression to call with '...' arguments ... DONE 1570s [00:52:50.083] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1570s [00:52:50.083] 1570s [00:52:50.084] getGlobalsAndPackages() ... DONE 1570s [00:52:50.084] run() for ‘Future’ ... 1570s [00:52:50.084] - state: ‘created’ 1570s [00:52:50.084] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1570s [00:52:50.085] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1570s [00:52:50.085] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1570s [00:52:50.085] - Field: ‘label’ 1570s [00:52:50.085] - Field: ‘local’ 1570s [00:52:50.087] - Field: ‘owner’ 1570s [00:52:50.087] - Field: ‘envir’ 1570s [00:52:50.087] - Field: ‘packages’ 1570s [00:52:50.090] - Field: ‘gc’ 1570s [00:52:50.090] - Field: ‘conditions’ 1570s [00:52:50.090] - Field: ‘expr’ 1570s [00:52:50.090] - Field: ‘uuid’ 1570s [00:52:50.090] - Field: ‘seed’ 1570s [00:52:50.090] - Field: ‘version’ 1570s [00:52:50.091] - Field: ‘result’ 1570s [00:52:50.091] - Field: ‘asynchronous’ 1570s [00:52:50.091] - Field: ‘calls’ 1570s [00:52:50.091] - Field: ‘globals’ 1570s [00:52:50.091] - Field: ‘stdout’ 1570s [00:52:50.091] - Field: ‘earlySignal’ 1570s [00:52:50.092] - Field: ‘lazy’ 1570s [00:52:50.092] - Field: ‘state’ 1570s [00:52:50.092] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1570s [00:52:50.092] - Launch lazy future ... 1570s [00:52:50.092] Packages needed by the future expression (n = 0): 1570s [00:52:50.093] Packages needed by future strategies (n = 0): 1570s [00:52:50.093] { 1570s [00:52:50.093] { 1570s [00:52:50.093] { 1570s [00:52:50.093] ...future.startTime <- base::Sys.time() 1570s [00:52:50.093] { 1570s [00:52:50.093] { 1570s [00:52:50.093] { 1570s [00:52:50.093] base::local({ 1570s [00:52:50.093] has_future <- base::requireNamespace("future", 1570s [00:52:50.093] quietly = TRUE) 1570s [00:52:50.093] if (has_future) { 1570s [00:52:50.093] ns <- base::getNamespace("future") 1570s [00:52:50.093] version <- ns[[".package"]][["version"]] 1570s [00:52:50.093] if (is.null(version)) 1570s [00:52:50.093] version <- utils::packageVersion("future") 1570s [00:52:50.093] } 1570s [00:52:50.093] else { 1570s [00:52:50.093] version <- NULL 1570s [00:52:50.093] } 1570s [00:52:50.093] if (!has_future || version < "1.8.0") { 1570s [00:52:50.093] info <- base::c(r_version = base::gsub("R version ", 1570s [00:52:50.093] "", base::R.version$version.string), 1570s [00:52:50.093] platform = base::sprintf("%s (%s-bit)", 1570s [00:52:50.093] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1570s [00:52:50.093] os = base::paste(base::Sys.info()[base::c("sysname", 1570s [00:52:50.093] "release", "version")], collapse = " "), 1570s [00:52:50.093] hostname = base::Sys.info()[["nodename"]]) 1570s [00:52:50.093] info <- base::sprintf("%s: %s", base::names(info), 1570s [00:52:50.093] info) 1570s [00:52:50.093] info <- base::paste(info, collapse = "; ") 1570s [00:52:50.093] if (!has_future) { 1570s [00:52:50.093] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1570s [00:52:50.093] info) 1570s [00:52:50.093] } 1570s [00:52:50.093] else { 1570s [00:52:50.093] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1570s [00:52:50.093] info, version) 1570s [00:52:50.093] } 1570s [00:52:50.093] base::stop(msg) 1570s [00:52:50.093] } 1570s [00:52:50.093] }) 1570s [00:52:50.093] } 1570s [00:52:50.093] options(future.plan = NULL) 1570s [00:52:50.093] Sys.unsetenv("R_FUTURE_PLAN") 1570s [00:52:50.093] future::plan("default", .cleanup = FALSE, .init = FALSE) 1570s [00:52:50.093] } 1570s [00:52:50.093] ...future.workdir <- getwd() 1570s [00:52:50.093] } 1570s [00:52:50.093] ...future.oldOptions <- base::as.list(base::.Options) 1570s [00:52:50.093] ...future.oldEnvVars <- base::Sys.getenv() 1570s [00:52:50.093] } 1570s [00:52:50.093] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1570s [00:52:50.093] future.globals.maxSize = NULL, future.globals.method = NULL, 1570s [00:52:50.093] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1570s [00:52:50.093] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1570s [00:52:50.093] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1570s [00:52:50.093] future.stdout.windows.reencode = NULL, width = 80L) 1570s [00:52:50.093] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1570s [00:52:50.093] base::names(...future.oldOptions)) 1570s [00:52:50.093] } 1570s [00:52:50.093] if (FALSE) { 1570s [00:52:50.093] } 1570s [00:52:50.093] else { 1570s [00:52:50.093] if (TRUE) { 1570s [00:52:50.093] ...future.stdout <- base::rawConnection(base::raw(0L), 1570s [00:52:50.093] open = "w") 1570s [00:52:50.093] } 1570s [00:52:50.093] else { 1570s [00:52:50.093] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1570s [00:52:50.093] windows = "NUL", "/dev/null"), open = "w") 1570s [00:52:50.093] } 1570s [00:52:50.093] base::sink(...future.stdout, type = "output", split = FALSE) 1570s [00:52:50.093] base::on.exit(if (!base::is.null(...future.stdout)) { 1570s [00:52:50.093] base::sink(type = "output", split = FALSE) 1570s [00:52:50.093] base::close(...future.stdout) 1570s [00:52:50.093] }, add = TRUE) 1570s [00:52:50.093] } 1570s [00:52:50.093] ...future.frame <- base::sys.nframe() 1570s [00:52:50.093] ...future.conditions <- base::list() 1570s [00:52:50.093] ...future.rng <- base::globalenv()$.Random.seed 1570s [00:52:50.093] if (FALSE) { 1570s [00:52:50.093] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1570s [00:52:50.093] "...future.value", "...future.globalenv.names", ".Random.seed") 1570s [00:52:50.093] } 1570s [00:52:50.093] ...future.result <- base::tryCatch({ 1570s [00:52:50.093] base::withCallingHandlers({ 1570s [00:52:50.093] ...future.value <- base::withVisible(base::local({ 1570s [00:52:50.093] do.call(function(...) { 1570s [00:52:50.093] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1570s [00:52:50.093] if (!identical(...future.globals.maxSize.org, 1570s [00:52:50.093] ...future.globals.maxSize)) { 1570s [00:52:50.093] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1570s [00:52:50.093] on.exit(options(oopts), add = TRUE) 1570s [00:52:50.093] } 1570s [00:52:50.093] { 1570s [00:52:50.093] lapply(seq_along(...future.elements_ii), 1570s [00:52:50.093] FUN = function(jj) { 1570s [00:52:50.093] ...future.X_jj <- ...future.elements_ii[[jj]] 1570s [00:52:50.093] ...future.FUN(...future.X_jj, ...) 1570s [00:52:50.093] }) 1570s [00:52:50.093] } 1570s [00:52:50.093] }, args = future.call.arguments) 1570s [00:52:50.093] })) 1570s [00:52:50.093] future::FutureResult(value = ...future.value$value, 1570s [00:52:50.093] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1570s [00:52:50.093] ...future.rng), globalenv = if (FALSE) 1570s [00:52:50.093] list(added = base::setdiff(base::names(base::.GlobalEnv), 1570s [00:52:50.093] ...future.globalenv.names)) 1570s [00:52:50.093] else NULL, started = ...future.startTime, version = "1.8") 1570s [00:52:50.093] }, condition = base::local({ 1570s [00:52:50.093] c <- base::c 1570s [00:52:50.093] inherits <- base::inherits 1570s [00:52:50.093] invokeRestart <- base::invokeRestart 1570s [00:52:50.093] length <- base::length 1570s [00:52:50.093] list <- base::list 1570s [00:52:50.093] seq.int <- base::seq.int 1570s [00:52:50.093] signalCondition <- base::signalCondition 1570s [00:52:50.093] sys.calls <- base::sys.calls 1570s [00:52:50.093] `[[` <- base::`[[` 1570s [00:52:50.093] `+` <- base::`+` 1570s [00:52:50.093] `<<-` <- base::`<<-` 1570s [00:52:50.093] sysCalls <- function(calls = sys.calls(), from = 1L) { 1570s [00:52:50.093] calls[seq.int(from = from + 12L, to = length(calls) - 1570s [00:52:50.093] 3L)] 1570s [00:52:50.093] } 1570s [00:52:50.093] function(cond) { 1570s [00:52:50.093] is_error <- inherits(cond, "error") 1570s [00:52:50.093] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1570s [00:52:50.093] NULL) 1570s [00:52:50.093] if (is_error) { 1570s [00:52:50.093] sessionInformation <- function() { 1570s [00:52:50.093] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1570s [00:52:50.093] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1570s [00:52:50.093] search = base::search(), system = base::Sys.info()) 1570s [00:52:50.093] } 1570s [00:52:50.093] ...future.conditions[[length(...future.conditions) + 1570s [00:52:50.093] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1570s [00:52:50.093] cond$call), session = sessionInformation(), 1570s [00:52:50.093] timestamp = base::Sys.time(), signaled = 0L) 1570s [00:52:50.093] signalCondition(cond) 1570s [00:52:50.093] } 1570s [00:52:50.093] else if (!ignore && TRUE && inherits(cond, c("condition", 1570s [00:52:50.093] "immediateCondition"))) { 1570s [00:52:50.093] signal <- TRUE && inherits(cond, "immediateCondition") 1570s [00:52:50.093] ...future.conditions[[length(...future.conditions) + 1570s [00:52:50.093] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1570s [00:52:50.093] if (TRUE && !signal) { 1570s [00:52:50.093] muffleCondition <- function (cond, pattern = "^muffle") 1570s [00:52:50.093] { 1570s [00:52:50.093] inherits <- base::inherits 1570s [00:52:50.093] invokeRestart <- base::invokeRestart 1570s [00:52:50.093] is.null <- base::is.null 1570s [00:52:50.093] muffled <- FALSE 1570s [00:52:50.093] if (inherits(cond, "message")) { 1570s [00:52:50.093] muffled <- grepl(pattern, "muffleMessage") 1570s [00:52:50.093] if (muffled) 1570s [00:52:50.093] invokeRestart("muffleMessage") 1570s [00:52:50.093] } 1570s [00:52:50.093] else if (inherits(cond, "warning")) { 1570s [00:52:50.093] muffled <- grepl(pattern, "muffleWarning") 1570s [00:52:50.093] if (muffled) 1570s [00:52:50.093] invokeRestart("muffleWarning") 1570s [00:52:50.093] } 1570s [00:52:50.093] else if (inherits(cond, "condition")) { 1570s [00:52:50.093] if (!is.null(pattern)) { 1570s [00:52:50.093] computeRestarts <- base::computeRestarts 1570s [00:52:50.093] grepl <- base::grepl 1570s [00:52:50.093] restarts <- computeRestarts(cond) 1570s [00:52:50.093] for (restart in restarts) { 1570s [00:52:50.093] name <- restart$name 1570s [00:52:50.093] if (is.null(name)) 1570s [00:52:50.093] next 1570s [00:52:50.093] if (!grepl(pattern, name)) 1570s [00:52:50.093] next 1570s [00:52:50.093] invokeRestart(restart) 1570s [00:52:50.093] muffled <- TRUE 1570s [00:52:50.093] break 1570s [00:52:50.093] } 1570s [00:52:50.093] } 1570s [00:52:50.093] } 1570s [00:52:50.093] invisible(muffled) 1570s [00:52:50.093] } 1570s [00:52:50.093] muffleCondition(cond, pattern = "^muffle") 1570s [00:52:50.093] } 1570s [00:52:50.093] } 1570s [00:52:50.093] else { 1570s [00:52:50.093] if (TRUE) { 1570s [00:52:50.093] muffleCondition <- function (cond, pattern = "^muffle") 1570s [00:52:50.093] { 1570s [00:52:50.093] inherits <- base::inherits 1570s [00:52:50.093] invokeRestart <- base::invokeRestart 1570s [00:52:50.093] is.null <- base::is.null 1570s [00:52:50.093] muffled <- FALSE 1570s [00:52:50.093] if (inherits(cond, "message")) { 1570s [00:52:50.093] muffled <- grepl(pattern, "muffleMessage") 1570s [00:52:50.093] if (muffled) 1570s [00:52:50.093] invokeRestart("muffleMessage") 1570s [00:52:50.093] } 1570s [00:52:50.093] else if (inherits(cond, "warning")) { 1570s [00:52:50.093] muffled <- grepl(pattern, "muffleWarning") 1570s [00:52:50.093] if (muffled) 1570s [00:52:50.093] invokeRestart("muffleWarning") 1570s [00:52:50.093] } 1570s [00:52:50.093] else if (inherits(cond, "condition")) { 1570s [00:52:50.093] if (!is.null(pattern)) { 1570s [00:52:50.093] computeRestarts <- base::computeRestarts 1570s [00:52:50.093] grepl <- base::grepl 1570s [00:52:50.093] restarts <- computeRestarts(cond) 1570s [00:52:50.093] for (restart in restarts) { 1570s [00:52:50.093] name <- restart$name 1570s [00:52:50.093] if (is.null(name)) 1570s [00:52:50.093] next 1570s [00:52:50.093] if (!grepl(pattern, name)) 1570s [00:52:50.093] next 1570s [00:52:50.093] invokeRestart(restart) 1570s [00:52:50.093] muffled <- TRUE 1570s [00:52:50.093] break 1570s [00:52:50.093] } 1570s [00:52:50.093] } 1570s [00:52:50.093] } 1570s [00:52:50.093] invisible(muffled) 1570s [00:52:50.093] } 1570s [00:52:50.093] muffleCondition(cond, pattern = "^muffle") 1570s [00:52:50.093] } 1570s [00:52:50.093] } 1570s [00:52:50.093] } 1570s [00:52:50.093] })) 1570s [00:52:50.093] }, error = function(ex) { 1570s [00:52:50.093] base::structure(base::list(value = NULL, visible = NULL, 1570s [00:52:50.093] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1570s [00:52:50.093] ...future.rng), started = ...future.startTime, 1570s [00:52:50.093] finished = Sys.time(), session_uuid = NA_character_, 1570s [00:52:50.093] version = "1.8"), class = "FutureResult") 1570s [00:52:50.093] }, finally = { 1570s [00:52:50.093] if (!identical(...future.workdir, getwd())) 1570s [00:52:50.093] setwd(...future.workdir) 1570s [00:52:50.093] { 1570s [00:52:50.093] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1570s [00:52:50.093] ...future.oldOptions$nwarnings <- NULL 1570s [00:52:50.093] } 1570s [00:52:50.093] base::options(...future.oldOptions) 1570s [00:52:50.093] if (.Platform$OS.type == "windows") { 1570s [00:52:50.093] old_names <- names(...future.oldEnvVars) 1570s [00:52:50.093] envs <- base::Sys.getenv() 1570s [00:52:50.093] names <- names(envs) 1570s [00:52:50.093] common <- intersect(names, old_names) 1570s [00:52:50.093] added <- setdiff(names, old_names) 1570s [00:52:50.093] removed <- setdiff(old_names, names) 1570s [00:52:50.093] changed <- common[...future.oldEnvVars[common] != 1570s [00:52:50.093] envs[common]] 1570s [00:52:50.093] NAMES <- toupper(changed) 1570s [00:52:50.093] args <- list() 1570s [00:52:50.093] for (kk in seq_along(NAMES)) { 1570s [00:52:50.093] name <- changed[[kk]] 1570s [00:52:50.093] NAME <- NAMES[[kk]] 1570s [00:52:50.093] if (name != NAME && is.element(NAME, old_names)) 1570s [00:52:50.093] next 1570s [00:52:50.093] args[[name]] <- ...future.oldEnvVars[[name]] 1570s [00:52:50.093] } 1570s [00:52:50.093] NAMES <- toupper(added) 1570s [00:52:50.093] for (kk in seq_along(NAMES)) { 1570s [00:52:50.093] name <- added[[kk]] 1570s [00:52:50.093] NAME <- NAMES[[kk]] 1570s [00:52:50.093] if (name != NAME && is.element(NAME, old_names)) 1570s [00:52:50.093] next 1570s [00:52:50.093] args[[name]] <- "" 1570s [00:52:50.093] } 1570s [00:52:50.093] NAMES <- toupper(removed) 1570s [00:52:50.093] for (kk in seq_along(NAMES)) { 1570s [00:52:50.093] name <- removed[[kk]] 1570s [00:52:50.093] NAME <- NAMES[[kk]] 1570s [00:52:50.093] if (name != NAME && is.element(NAME, old_names)) 1570s [00:52:50.093] next 1570s [00:52:50.093] args[[name]] <- ...future.oldEnvVars[[name]] 1570s [00:52:50.093] } 1570s [00:52:50.093] if (length(args) > 0) 1570s [00:52:50.093] base::do.call(base::Sys.setenv, args = args) 1570s [00:52:50.093] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1570s [00:52:50.093] } 1570s [00:52:50.093] else { 1570s [00:52:50.093] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1570s [00:52:50.093] } 1570s [00:52:50.093] { 1570s [00:52:50.093] if (base::length(...future.futureOptionsAdded) > 1570s [00:52:50.093] 0L) { 1570s [00:52:50.093] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1570s [00:52:50.093] base::names(opts) <- ...future.futureOptionsAdded 1570s [00:52:50.093] base::options(opts) 1570s [00:52:50.093] } 1570s [00:52:50.093] { 1570s [00:52:50.093] { 1570s [00:52:50.093] NULL 1570s [00:52:50.093] RNGkind("Mersenne-Twister") 1570s [00:52:50.093] base::rm(list = ".Random.seed", envir = base::globalenv(), 1570s [00:52:50.093] inherits = FALSE) 1570s [00:52:50.093] } 1570s [00:52:50.093] options(future.plan = NULL) 1570s [00:52:50.093] if (is.na(NA_character_)) 1570s [00:52:50.093] Sys.unsetenv("R_FUTURE_PLAN") 1570s [00:52:50.093] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1570s [00:52:50.093] future::plan(list(function (..., envir = parent.frame()) 1570s [00:52:50.093] { 1570s [00:52:50.093] future <- SequentialFuture(..., envir = envir) 1570s [00:52:50.093] if (!future$lazy) 1570s [00:52:50.093] future <- run(future) 1570s [00:52:50.093] invisible(future) 1570s [00:52:50.093] }), .cleanup = FALSE, .init = FALSE) 1570s [00:52:50.093] } 1570s [00:52:50.093] } 1570s [00:52:50.093] } 1570s [00:52:50.093] }) 1570s [00:52:50.093] if (TRUE) { 1570s [00:52:50.093] base::sink(type = "output", split = FALSE) 1570s [00:52:50.093] if (TRUE) { 1570s [00:52:50.093] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1570s [00:52:50.093] } 1570s [00:52:50.093] else { 1570s [00:52:50.093] ...future.result["stdout"] <- base::list(NULL) 1570s [00:52:50.093] } 1570s [00:52:50.093] base::close(...future.stdout) 1570s [00:52:50.093] ...future.stdout <- NULL 1570s [00:52:50.093] } 1570s [00:52:50.093] ...future.result$conditions <- ...future.conditions 1570s [00:52:50.093] ...future.result$finished <- base::Sys.time() 1570s [00:52:50.093] ...future.result 1570s [00:52:50.093] } 1570s [00:52:50.097] assign_globals() ... 1570s [00:52:50.097] List of 5 1570s [00:52:50.097] $ ...future.FUN :function (x, ...) 1570s [00:52:50.097] $ future.call.arguments : list() 1570s [00:52:50.097] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1570s [00:52:50.097] $ ...future.elements_ii :List of 6 1570s [00:52:50.097] ..$ a1: int 1 1570s [00:52:50.097] ..$ a2: int 2 1570s [00:52:50.097] ..$ b1: int 2 1570s [00:52:50.097] ..$ b2: int 3 1570s [00:52:50.097] ..$ c1: int 3 1570s [00:52:50.097] ..$ c2: int 4 1570s [00:52:50.097] $ ...future.seeds_ii : NULL 1570s [00:52:50.097] $ ...future.globals.maxSize: NULL 1570s [00:52:50.097] - attr(*, "where")=List of 5 1570s [00:52:50.097] ..$ ...future.FUN : 1570s [00:52:50.097] ..$ future.call.arguments : 1570s [00:52:50.097] ..$ ...future.elements_ii : 1570s [00:52:50.097] ..$ ...future.seeds_ii : 1570s [00:52:50.097] ..$ ...future.globals.maxSize: 1570s [00:52:50.097] - attr(*, "resolved")= logi FALSE 1570s [00:52:50.097] - attr(*, "total_size")= num 1248 1570s [00:52:50.097] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1570s [00:52:50.097] - attr(*, "already-done")= logi TRUE 1570s [00:52:50.113] - copied ‘...future.FUN’ to environment 1570s [00:52:50.113] - copied ‘future.call.arguments’ to environment 1570s [00:52:50.113] - copied ‘...future.elements_ii’ to environment 1570s [00:52:50.113] - copied ‘...future.seeds_ii’ to environment 1570s [00:52:50.113] - copied ‘...future.globals.maxSize’ to environment 1570s [00:52:50.113] assign_globals() ... done 1570s [00:52:50.114] plan(): Setting new future strategy stack: 1570s [00:52:50.114] List of future strategies: 1570s [00:52:50.114] 1. sequential: 1570s [00:52:50.114] - args: function (..., envir = parent.frame()) 1570s [00:52:50.114] - tweaked: FALSE 1570s [00:52:50.114] - call: NULL 1570s [00:52:50.114] plan(): nbrOfWorkers() = 1 1570s [00:52:50.115] plan(): Setting new future strategy stack: 1570s [00:52:50.115] List of future strategies: 1570s [00:52:50.115] 1. sequential: 1570s [00:52:50.115] - args: function (..., envir = parent.frame()) 1570s [00:52:50.115] - tweaked: FALSE 1570s [00:52:50.115] - call: plan(strategy) 1570s [00:52:50.115] plan(): nbrOfWorkers() = 1 1570s [00:52:50.116] SequentialFuture started (and completed) 1570s [00:52:50.116] - Launch lazy future ... done 1570s [00:52:50.116] run() for ‘SequentialFuture’ ... done 1570s [00:52:50.116] Created future: 1570s [00:52:50.116] SequentialFuture: 1570s [00:52:50.116] Label: ‘future_sapply-1’ 1570s [00:52:50.116] Expression: 1570s [00:52:50.116] { 1570s [00:52:50.116] do.call(function(...) { 1570s [00:52:50.116] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1570s [00:52:50.116] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1570s [00:52:50.116] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1570s [00:52:50.116] on.exit(options(oopts), add = TRUE) 1570s [00:52:50.116] } 1570s [00:52:50.116] { 1570s [00:52:50.116] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1570s [00:52:50.116] ...future.X_jj <- ...future.elements_ii[[jj]] 1570s [00:52:50.116] ...future.FUN(...future.X_jj, ...) 1570s [00:52:50.116] }) 1570s [00:52:50.116] } 1570s [00:52:50.116] }, args = future.call.arguments) 1570s [00:52:50.116] } 1570s [00:52:50.116] Lazy evaluation: FALSE 1570s [00:52:50.116] Asynchronous evaluation: FALSE 1570s [00:52:50.116] Local evaluation: TRUE 1570s [00:52:50.116] Environment: R_GlobalEnv 1570s [00:52:50.116] Capture standard output: TRUE 1570s [00:52:50.116] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1570s [00:52:50.116] Globals: 5 objects totaling 1.55 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1570s [00:52:50.116] Packages: 1570s [00:52:50.116] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1570s [00:52:50.116] Resolved: TRUE 1570s [00:52:50.116] Value: 1.31 KiB of class ‘list’ 1570s [00:52:50.116] Early signaling: FALSE 1570s [00:52:50.116] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1570s [00:52:50.116] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1570s [00:52:50.117] Chunk #1 of 1 ... DONE 1570s [00:52:50.117] Launching 1 futures (chunks) ... DONE 1570s [00:52:50.118] Resolving 1 futures (chunks) ... 1570s [00:52:50.118] resolve() on list ... 1570s [00:52:50.118] recursive: 0 1570s [00:52:50.118] length: 1 1570s [00:52:50.118] 1570s [00:52:50.118] resolved() for ‘SequentialFuture’ ... 1570s [00:52:50.118] - state: ‘finished’ 1570s [00:52:50.118] - run: TRUE 1570s [00:52:50.118] - result: ‘FutureResult’ 1570s [00:52:50.119] resolved() for ‘SequentialFuture’ ... done 1570s [00:52:50.119] Future #1 1570s [00:52:50.119] signalConditionsASAP(SequentialFuture, pos=1) ... 1570s [00:52:50.119] - nx: 1 1570s [00:52:50.119] - relay: TRUE 1570s [00:52:50.119] - stdout: TRUE 1570s [00:52:50.119] - signal: TRUE 1570s [00:52:50.119] - resignal: FALSE 1570s [00:52:50.119] - force: TRUE 1570s [00:52:50.120] - relayed: [n=1] FALSE 1570s [00:52:50.120] - queued futures: [n=1] FALSE 1570s [00:52:50.120] - until=1 1570s [00:52:50.120] - relaying element #1 1570s [00:52:50.120] - relayed: [n=1] TRUE 1570s [00:52:50.120] - queued futures: [n=1] TRUE 1570s [00:52:50.121] signalConditionsASAP(SequentialFuture, pos=1) ... done 1570s [00:52:50.121] length: 0 (resolved future 1) 1570s [00:52:50.121] Relaying remaining futures 1570s [00:52:50.121] signalConditionsASAP(NULL, pos=0) ... 1570s [00:52:50.121] - nx: 1 1570s [00:52:50.121] - relay: TRUE 1570s [00:52:50.122] - stdout: TRUE 1570s [00:52:50.122] - signal: TRUE 1570s [00:52:50.122] - resignal: FALSE 1570s [00:52:50.122] - force: TRUE 1570s [00:52:50.122] - relayed: [n=1] TRUE 1570s [00:52:50.122] - queued futures: [n=1] TRUE 1570s - flush all 1570s [00:52:50.128] - relayed: [n=1] TRUE 1570s [00:52:50.129] - queued futures: [n=1] TRUE 1570s [00:52:50.129] signalConditionsASAP(NULL, pos=0) ... done 1570s [00:52:50.129] resolve() on list ... DONE 1570s [00:52:50.129] - Number of value chunks collected: 1 1570s [00:52:50.129] Resolving 1 futures (chunks) ... DONE 1570s [00:52:50.129] Reducing values from 1 chunks ... 1570s [00:52:50.130] - Number of values collected after concatenation: 6 1570s [00:52:50.130] - Number of values expected: 6 1570s [00:52:50.130] Reducing values from 1 chunks ... DONE 1570s [00:52:50.130] future_lapply() ... DONE 1570s List[00:52:50.132] future_lapply() ... 1570s of 2 1570s $ y0: Named int [1:6] 1 2 2 3 3 4 1570s ..- attr(*, "names")= chr [1:6] "a1" "a2" "b1" "b2" ... 1570s $ y1: Named int [1:6] 1 2 2 3 3 4 1570s ..- attr(*, "names")= chr [1:6] "a1" "a2" "b1" "b2" ... 1570s [00:52:50.133] Number of chunks: 1 1570s [00:52:50.133] getGlobalsAndPackagesXApply() ... 1570s [00:52:50.133] - future.globals: TRUE 1570s [00:52:50.134] getGlobalsAndPackages() ... 1570s [00:52:50.134] Searching for globals... 1570s [00:52:50.136] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1570s [00:52:50.136] Searching for globals ... DONE 1570s [00:52:50.136] Resolving globals: FALSE 1570s [00:52:50.137] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1570s [00:52:50.137] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1570s [00:52:50.137] - globals: [1] ‘FUN’ 1570s [00:52:50.137] 1570s [00:52:50.137] getGlobalsAndPackages() ... DONE 1570s [00:52:50.138] - globals found/used: [n=1] ‘FUN’ 1570s [00:52:50.138] - needed namespaces: [n=0] 1570s [00:52:50.138] Finding globals ... DONE 1570s [00:52:50.138] - use_args: TRUE 1570s [00:52:50.138] - Getting '...' globals ... 1570s [00:52:50.139] resolve() on list ... 1570s [00:52:50.139] recursive: 0 1570s [00:52:50.139] length: 1 1570s [00:52:50.139] elements: ‘...’ 1570s [00:52:50.139] length: 0 (resolved future 1) 1570s [00:52:50.139] resolve() on list ... DONE 1570s [00:52:50.139] - '...' content: [n=0] 1570s [00:52:50.139] List of 1 1570s [00:52:50.139] $ ...: list() 1570s [00:52:50.139] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1570s [00:52:50.139] - attr(*, "where")=List of 1 1570s [00:52:50.139] ..$ ...: 1570s [00:52:50.139] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1570s [00:52:50.139] - attr(*, "resolved")= logi TRUE 1570s [00:52:50.139] - attr(*, "total_size")= num NA 1570s [00:52:50.147] - Getting '...' globals ... DONE 1570s [00:52:50.147] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1570s [00:52:50.147] List of 2 1570s [00:52:50.147] $ ...future.FUN:function (x, y = 2 * 1:5) 1570s [00:52:50.147] $ ... : list() 1570s [00:52:50.147] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1570s [00:52:50.147] - attr(*, "where")=List of 2 1570s [00:52:50.147] ..$ ...future.FUN: 1570s [00:52:50.147] ..$ ... : 1570s [00:52:50.147] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1570s [00:52:50.147] - attr(*, "resolved")= logi FALSE 1570s [00:52:50.147] - attr(*, "total_size")= num 4728 1570s [00:52:50.151] Packages to be attached in all futures: [n=0] 1570s [00:52:50.151] getGlobalsAndPackagesXApply() ... DONE 1570s [00:52:50.152] Number of futures (= number of chunks): 1 1570s [00:52:50.152] Launching 1 futures (chunks) ... 1570s [00:52:50.152] Chunk #1 of 1 ... 1570s [00:52:50.152] - Finding globals in 'X' for chunk #1 ... 1570s [00:52:50.152] getGlobalsAndPackages() ... 1570s [00:52:50.152] Searching for globals... 1570s [00:52:50.153] 1570s [00:52:50.153] Searching for globals ... DONE 1570s [00:52:50.153] - globals: [0] 1570s [00:52:50.153] getGlobalsAndPackages() ... DONE 1570s [00:52:50.153] + additional globals found: [n=0] 1570s [00:52:50.153] + additional namespaces needed: [n=0] 1570s [00:52:50.154] - Finding globals in 'X' for chunk #1 ... DONE 1570s [00:52:50.154] - seeds: 1570s [00:52:50.154] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1570s [00:52:50.154] getGlobalsAndPackages() ... 1570s [00:52:50.154] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1570s [00:52:50.155] Resolving globals: FALSE 1570s [00:52:50.155] Tweak future expression to call with '...' arguments ... 1570s [00:52:50.155] { 1570s [00:52:50.155] do.call(function(...) { 1570s [00:52:50.155] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1570s [00:52:50.155] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1570s [00:52:50.155] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1570s [00:52:50.155] on.exit(options(oopts), add = TRUE) 1570s [00:52:50.155] } 1570s [00:52:50.155] { 1570s [00:52:50.155] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1570s [00:52:50.155] ...future.X_jj <- ...future.elements_ii[[jj]] 1570s [00:52:50.155] ...future.FUN(...future.X_jj, ...) 1570s [00:52:50.155] }) 1570s [00:52:50.155] } 1570s [00:52:50.155] }, args = future.call.arguments) 1570s [00:52:50.155] } 1570s [00:52:50.155] Tweak future expression to call with '...' arguments ... DONE 1570s [00:52:50.156] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1570s [00:52:50.156] 1570s [00:52:50.156] getGlobalsAndPackages() ... DONE 1570s [00:52:50.157] run() for ‘Future’ ... 1570s [00:52:50.157] - state: ‘created’ 1570s [00:52:50.157] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1570s [00:52:50.157] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1570s [00:52:50.158] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1570s [00:52:50.158] - Field: ‘label’ 1570s [00:52:50.158] - Field: ‘local’ 1570s [00:52:50.158] - Field: ‘owner’ 1570s [00:52:50.158] - Field: ‘envir’ 1570s [00:52:50.158] - Field: ‘packages’ 1570s [00:52:50.159] - Field: ‘gc’ 1570s [00:52:50.159] - Field: ‘conditions’ 1570s [00:52:50.161] - Field: ‘expr’ 1570s [00:52:50.161] - Field: ‘uuid’ 1570s [00:52:50.161] - Field: ‘seed’ 1570s [00:52:50.161] - Field: ‘version’ 1570s [00:52:50.161] - Field: ‘result’ 1570s [00:52:50.161] - Field: ‘asynchronous’ 1570s [00:52:50.162] - Field: ‘calls’ 1570s [00:52:50.162] - Field: ‘globals’ 1570s [00:52:50.162] - Field: ‘stdout’ 1570s [00:52:50.162] - Field: ‘earlySignal’ 1570s [00:52:50.162] - Field: ‘lazy’ 1570s [00:52:50.162] - Field: ‘state’ 1570s [00:52:50.163] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1570s [00:52:50.163] - Launch lazy future ... 1570s [00:52:50.163] Packages needed by the future expression (n = 0): 1570s [00:52:50.163] Packages needed by future strategies (n = 0): 1570s [00:52:50.164] { 1570s [00:52:50.164] { 1570s [00:52:50.164] { 1570s [00:52:50.164] ...future.startTime <- base::Sys.time() 1570s [00:52:50.164] { 1570s [00:52:50.164] { 1570s [00:52:50.164] { 1570s [00:52:50.164] base::local({ 1570s [00:52:50.164] has_future <- base::requireNamespace("future", 1570s [00:52:50.164] quietly = TRUE) 1570s [00:52:50.164] if (has_future) { 1570s [00:52:50.164] ns <- base::getNamespace("future") 1570s [00:52:50.164] version <- ns[[".package"]][["version"]] 1570s [00:52:50.164] if (is.null(version)) 1570s [00:52:50.164] version <- utils::packageVersion("future") 1570s [00:52:50.164] } 1570s [00:52:50.164] else { 1570s [00:52:50.164] version <- NULL 1570s [00:52:50.164] } 1570s [00:52:50.164] if (!has_future || version < "1.8.0") { 1570s [00:52:50.164] info <- base::c(r_version = base::gsub("R version ", 1570s [00:52:50.164] "", base::R.version$version.string), 1570s [00:52:50.164] platform = base::sprintf("%s (%s-bit)", 1570s [00:52:50.164] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1570s [00:52:50.164] os = base::paste(base::Sys.info()[base::c("sysname", 1570s [00:52:50.164] "release", "version")], collapse = " "), 1570s [00:52:50.164] hostname = base::Sys.info()[["nodename"]]) 1570s [00:52:50.164] info <- base::sprintf("%s: %s", base::names(info), 1570s [00:52:50.164] info) 1570s [00:52:50.164] info <- base::paste(info, collapse = "; ") 1570s [00:52:50.164] if (!has_future) { 1570s [00:52:50.164] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1570s [00:52:50.164] info) 1570s [00:52:50.164] } 1570s [00:52:50.164] else { 1570s [00:52:50.164] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1570s [00:52:50.164] info, version) 1570s [00:52:50.164] } 1570s [00:52:50.164] base::stop(msg) 1570s [00:52:50.164] } 1570s [00:52:50.164] }) 1570s [00:52:50.164] } 1570s [00:52:50.164] options(future.plan = NULL) 1570s [00:52:50.164] Sys.unsetenv("R_FUTURE_PLAN") 1570s [00:52:50.164] future::plan("default", .cleanup = FALSE, .init = FALSE) 1570s [00:52:50.164] } 1570s [00:52:50.164] ...future.workdir <- getwd() 1570s [00:52:50.164] } 1570s [00:52:50.164] ...future.oldOptions <- base::as.list(base::.Options) 1570s [00:52:50.164] ...future.oldEnvVars <- base::Sys.getenv() 1570s [00:52:50.164] } 1570s [00:52:50.164] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1570s [00:52:50.164] future.globals.maxSize = NULL, future.globals.method = NULL, 1570s [00:52:50.164] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1570s [00:52:50.164] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1570s [00:52:50.164] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1570s [00:52:50.164] future.stdout.windows.reencode = NULL, width = 80L) 1570s [00:52:50.164] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1570s [00:52:50.164] base::names(...future.oldOptions)) 1570s [00:52:50.164] } 1570s [00:52:50.164] if (FALSE) { 1570s [00:52:50.164] } 1570s [00:52:50.164] else { 1570s [00:52:50.164] if (TRUE) { 1570s [00:52:50.164] ...future.stdout <- base::rawConnection(base::raw(0L), 1570s [00:52:50.164] open = "w") 1570s [00:52:50.164] } 1570s [00:52:50.164] else { 1570s [00:52:50.164] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1570s [00:52:50.164] windows = "NUL", "/dev/null"), open = "w") 1570s [00:52:50.164] } 1570s [00:52:50.164] base::sink(...future.stdout, type = "output", split = FALSE) 1570s [00:52:50.164] base::on.exit(if (!base::is.null(...future.stdout)) { 1570s [00:52:50.164] base::sink(type = "output", split = FALSE) 1570s [00:52:50.164] base::close(...future.stdout) 1570s [00:52:50.164] }, add = TRUE) 1570s [00:52:50.164] } 1570s [00:52:50.164] ...future.frame <- base::sys.nframe() 1570s [00:52:50.164] ...future.conditions <- base::list() 1570s [00:52:50.164] ...future.rng <- base::globalenv()$.Random.seed 1570s [00:52:50.164] if (FALSE) { 1570s [00:52:50.164] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1570s [00:52:50.164] "...future.value", "...future.globalenv.names", ".Random.seed") 1570s [00:52:50.164] } 1570s [00:52:50.164] ...future.result <- base::tryCatch({ 1570s [00:52:50.164] base::withCallingHandlers({ 1570s [00:52:50.164] ...future.value <- base::withVisible(base::local({ 1570s [00:52:50.164] do.call(function(...) { 1570s [00:52:50.164] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1570s [00:52:50.164] if (!identical(...future.globals.maxSize.org, 1570s [00:52:50.164] ...future.globals.maxSize)) { 1570s [00:52:50.164] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1570s [00:52:50.164] on.exit(options(oopts), add = TRUE) 1570s [00:52:50.164] } 1570s [00:52:50.164] { 1570s [00:52:50.164] lapply(seq_along(...future.elements_ii), 1570s [00:52:50.164] FUN = function(jj) { 1570s [00:52:50.164] ...future.X_jj <- ...future.elements_ii[[jj]] 1570s [00:52:50.164] ...future.FUN(...future.X_jj, ...) 1570s [00:52:50.164] }) 1570s [00:52:50.164] } 1570s [00:52:50.164] }, args = future.call.arguments) 1570s [00:52:50.164] })) 1570s [00:52:50.164] future::FutureResult(value = ...future.value$value, 1570s [00:52:50.164] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1570s [00:52:50.164] ...future.rng), globalenv = if (FALSE) 1570s [00:52:50.164] list(added = base::setdiff(base::names(base::.GlobalEnv), 1570s [00:52:50.164] ...future.globalenv.names)) 1570s [00:52:50.164] else NULL, started = ...future.startTime, version = "1.8") 1570s [00:52:50.164] }, condition = base::local({ 1570s [00:52:50.164] c <- base::c 1570s [00:52:50.164] inherits <- base::inherits 1570s [00:52:50.164] invokeRestart <- base::invokeRestart 1570s [00:52:50.164] length <- base::length 1570s [00:52:50.164] list <- base::list 1570s [00:52:50.164] seq.int <- base::seq.int 1570s [00:52:50.164] signalCondition <- base::signalCondition 1570s [00:52:50.164] sys.calls <- base::sys.calls 1570s [00:52:50.164] `[[` <- base::`[[` 1570s [00:52:50.164] `+` <- base::`+` 1570s [00:52:50.164] `<<-` <- base::`<<-` 1570s [00:52:50.164] sysCalls <- function(calls = sys.calls(), from = 1L) { 1570s [00:52:50.164] calls[seq.int(from = from + 12L, to = length(calls) - 1570s [00:52:50.164] 3L)] 1570s [00:52:50.164] } 1570s [00:52:50.164] function(cond) { 1570s [00:52:50.164] is_error <- inherits(cond, "error") 1570s [00:52:50.164] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1570s [00:52:50.164] NULL) 1570s [00:52:50.164] if (is_error) { 1570s [00:52:50.164] sessionInformation <- function() { 1570s [00:52:50.164] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1570s [00:52:50.164] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1570s [00:52:50.164] search = base::search(), system = base::Sys.info()) 1570s [00:52:50.164] } 1570s [00:52:50.164] ...future.conditions[[length(...future.conditions) + 1570s [00:52:50.164] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1570s [00:52:50.164] cond$call), session = sessionInformation(), 1570s [00:52:50.164] timestamp = base::Sys.time(), signaled = 0L) 1570s [00:52:50.164] signalCondition(cond) 1570s [00:52:50.164] } 1570s [00:52:50.164] else if (!ignore && TRUE && inherits(cond, c("condition", 1570s [00:52:50.164] "immediateCondition"))) { 1570s [00:52:50.164] signal <- TRUE && inherits(cond, "immediateCondition") 1570s [00:52:50.164] ...future.conditions[[length(...future.conditions) + 1570s [00:52:50.164] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1570s [00:52:50.164] if (TRUE && !signal) { 1570s [00:52:50.164] muffleCondition <- function (cond, pattern = "^muffle") 1570s [00:52:50.164] { 1570s [00:52:50.164] inherits <- base::inherits 1570s [00:52:50.164] invokeRestart <- base::invokeRestart 1570s [00:52:50.164] is.null <- base::is.null 1570s [00:52:50.164] muffled <- FALSE 1570s [00:52:50.164] if (inherits(cond, "message")) { 1570s [00:52:50.164] muffled <- grepl(pattern, "muffleMessage") 1570s [00:52:50.164] if (muffled) 1570s [00:52:50.164] invokeRestart("muffleMessage") 1570s [00:52:50.164] } 1570s [00:52:50.164] else if (inherits(cond, "warning")) { 1570s [00:52:50.164] muffled <- grepl(pattern, "muffleWarning") 1570s [00:52:50.164] if (muffled) 1570s [00:52:50.164] invokeRestart("muffleWarning") 1570s [00:52:50.164] } 1570s [00:52:50.164] else if (inherits(cond, "condition")) { 1570s [00:52:50.164] if (!is.null(pattern)) { 1570s [00:52:50.164] computeRestarts <- base::computeRestarts 1570s [00:52:50.164] grepl <- base::grepl 1570s [00:52:50.164] restarts <- computeRestarts(cond) 1570s [00:52:50.164] for (restart in restarts) { 1570s [00:52:50.164] name <- restart$name 1570s [00:52:50.164] if (is.null(name)) 1570s [00:52:50.164] next 1570s [00:52:50.164] if (!grepl(pattern, name)) 1570s [00:52:50.164] next 1570s [00:52:50.164] invokeRestart(restart) 1570s [00:52:50.164] muffled <- TRUE 1570s [00:52:50.164] break 1570s [00:52:50.164] } 1570s [00:52:50.164] } 1570s [00:52:50.164] } 1570s [00:52:50.164] invisible(muffled) 1570s [00:52:50.164] } 1570s [00:52:50.164] muffleCondition(cond, pattern = "^muffle") 1570s [00:52:50.164] } 1570s [00:52:50.164] } 1570s [00:52:50.164] else { 1570s [00:52:50.164] if (TRUE) { 1570s [00:52:50.164] muffleCondition <- function (cond, pattern = "^muffle") 1570s [00:52:50.164] { 1570s [00:52:50.164] inherits <- base::inherits 1570s [00:52:50.164] invokeRestart <- base::invokeRestart 1570s [00:52:50.164] is.null <- base::is.null 1570s [00:52:50.164] muffled <- FALSE 1570s [00:52:50.164] if (inherits(cond, "message")) { 1570s [00:52:50.164] muffled <- grepl(pattern, "muffleMessage") 1570s [00:52:50.164] if (muffled) 1570s [00:52:50.164] invokeRestart("muffleMessage") 1570s [00:52:50.164] } 1570s [00:52:50.164] else if (inherits(cond, "warning")) { 1570s [00:52:50.164] muffled <- grepl(pattern, "muffleWarning") 1570s [00:52:50.164] if (muffled) 1570s [00:52:50.164] invokeRestart("muffleWarning") 1570s [00:52:50.164] } 1570s [00:52:50.164] else if (inherits(cond, "condition")) { 1570s [00:52:50.164] if (!is.null(pattern)) { 1570s [00:52:50.164] computeRestarts <- base::computeRestarts 1570s [00:52:50.164] grepl <- base::grepl 1570s [00:52:50.164] restarts <- computeRestarts(cond) 1570s [00:52:50.164] for (restart in restarts) { 1570s [00:52:50.164] name <- restart$name 1570s [00:52:50.164] if (is.null(name)) 1570s [00:52:50.164] next 1570s [00:52:50.164] if (!grepl(pattern, name)) 1570s [00:52:50.164] next 1570s [00:52:50.164] invokeRestart(restart) 1570s [00:52:50.164] muffled <- TRUE 1570s [00:52:50.164] break 1570s [00:52:50.164] } 1570s [00:52:50.164] } 1570s [00:52:50.164] } 1570s [00:52:50.164] invisible(muffled) 1570s [00:52:50.164] } 1570s [00:52:50.164] muffleCondition(cond, pattern = "^muffle") 1570s [00:52:50.164] } 1570s [00:52:50.164] } 1570s [00:52:50.164] } 1570s [00:52:50.164] })) 1570s [00:52:50.164] }, error = function(ex) { 1570s [00:52:50.164] base::structure(base::list(value = NULL, visible = NULL, 1570s [00:52:50.164] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1570s [00:52:50.164] ...future.rng), started = ...future.startTime, 1570s [00:52:50.164] finished = Sys.time(), session_uuid = NA_character_, 1570s [00:52:50.164] version = "1.8"), class = "FutureResult") 1570s [00:52:50.164] }, finally = { 1570s [00:52:50.164] if (!identical(...future.workdir, getwd())) 1570s [00:52:50.164] setwd(...future.workdir) 1570s [00:52:50.164] { 1570s [00:52:50.164] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1570s [00:52:50.164] ...future.oldOptions$nwarnings <- NULL 1570s [00:52:50.164] } 1570s [00:52:50.164] base::options(...future.oldOptions) 1570s [00:52:50.164] if (.Platform$OS.type == "windows") { 1570s [00:52:50.164] old_names <- names(...future.oldEnvVars) 1570s [00:52:50.164] envs <- base::Sys.getenv() 1570s [00:52:50.164] names <- names(envs) 1570s [00:52:50.164] common <- intersect(names, old_names) 1570s [00:52:50.164] added <- setdiff(names, old_names) 1570s [00:52:50.164] removed <- setdiff(old_names, names) 1570s [00:52:50.164] changed <- common[...future.oldEnvVars[common] != 1570s [00:52:50.164] envs[common]] 1570s [00:52:50.164] NAMES <- toupper(changed) 1570s [00:52:50.164] args <- list() 1570s [00:52:50.164] for (kk in seq_along(NAMES)) { 1570s [00:52:50.164] name <- changed[[kk]] 1570s [00:52:50.164] NAME <- NAMES[[kk]] 1570s [00:52:50.164] if (name != NAME && is.element(NAME, old_names)) 1570s [00:52:50.164] next 1570s [00:52:50.164] args[[name]] <- ...future.oldEnvVars[[name]] 1570s [00:52:50.164] } 1570s [00:52:50.164] NAMES <- toupper(added) 1570s [00:52:50.164] for (kk in seq_along(NAMES)) { 1570s [00:52:50.164] name <- added[[kk]] 1570s [00:52:50.164] NAME <- NAMES[[kk]] 1570s [00:52:50.164] if (name != NAME && is.element(NAME, old_names)) 1570s [00:52:50.164] next 1570s [00:52:50.164] args[[name]] <- "" 1570s [00:52:50.164] } 1570s [00:52:50.164] NAMES <- toupper(removed) 1570s [00:52:50.164] for (kk in seq_along(NAMES)) { 1570s [00:52:50.164] name <- removed[[kk]] 1570s [00:52:50.164] NAME <- NAMES[[kk]] 1570s [00:52:50.164] if (name != NAME && is.element(NAME, old_names)) 1570s [00:52:50.164] next 1570s [00:52:50.164] args[[name]] <- ...future.oldEnvVars[[name]] 1570s [00:52:50.164] } 1570s [00:52:50.164] if (length(args) > 0) 1570s [00:52:50.164] base::do.call(base::Sys.setenv, args = args) 1570s [00:52:50.164] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1570s [00:52:50.164] } 1570s [00:52:50.164] else { 1570s [00:52:50.164] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1570s [00:52:50.164] } 1570s [00:52:50.164] { 1570s [00:52:50.164] if (base::length(...future.futureOptionsAdded) > 1570s [00:52:50.164] 0L) { 1570s [00:52:50.164] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1570s [00:52:50.164] base::names(opts) <- ...future.futureOptionsAdded 1570s [00:52:50.164] base::options(opts) 1570s [00:52:50.164] } 1570s [00:52:50.164] { 1570s [00:52:50.164] { 1570s [00:52:50.164] NULL 1570s [00:52:50.164] RNGkind("Mersenne-Twister") 1570s [00:52:50.164] base::rm(list = ".Random.seed", envir = base::globalenv(), 1570s [00:52:50.164] inherits = FALSE) 1570s [00:52:50.164] } 1570s [00:52:50.164] options(future.plan = NULL) 1570s [00:52:50.164] if (is.na(NA_character_)) 1570s [00:52:50.164] Sys.unsetenv("R_FUTURE_PLAN") 1570s [00:52:50.164] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1570s [00:52:50.164] future::plan(list(function (..., envir = parent.frame()) 1570s [00:52:50.164] { 1570s [00:52:50.164] future <- SequentialFuture(..., envir = envir) 1570s [00:52:50.164] if (!future$lazy) 1570s [00:52:50.164] future <- run(future) 1570s [00:52:50.164] invisible(future) 1570s [00:52:50.164] }), .cleanup = FALSE, .init = FALSE) 1570s [00:52:50.164] } 1570s [00:52:50.164] } 1570s [00:52:50.164] } 1570s [00:52:50.164] }) 1570s [00:52:50.164] if (TRUE) { 1570s [00:52:50.164] base::sink(type = "output", split = FALSE) 1570s [00:52:50.164] if (TRUE) { 1570s [00:52:50.164] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1570s [00:52:50.164] } 1570s [00:52:50.164] else { 1570s [00:52:50.164] ...future.result["stdout"] <- base::list(NULL) 1570s [00:52:50.164] } 1570s [00:52:50.164] base::close(...future.stdout) 1570s [00:52:50.164] ...future.stdout <- NULL 1570s [00:52:50.164] } 1570s [00:52:50.164] ...future.result$conditions <- ...future.conditions 1570s [00:52:50.164] ...future.result$finished <- base::Sys.time() 1570s [00:52:50.164] ...future.result 1570s [00:52:50.164] } 1570s [00:52:50.169] assign_globals() ... 1570s [00:52:50.169] List of 5 1570s [00:52:50.169] $ ...future.FUN :function (x, y = 2 * 1:5) 1570s [00:52:50.169] $ future.call.arguments : list() 1570s [00:52:50.169] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1570s [00:52:50.169] $ ...future.elements_ii :List of 6 1570s [00:52:50.169] ..$ a1: int 1 1570s [00:52:50.169] ..$ a2: int 2 1570s [00:52:50.169] ..$ b1: int 2 1570s [00:52:50.169] ..$ b2: int 3 1570s [00:52:50.169] ..$ c1: int 3 1570s [00:52:50.169] ..$ c2: int 4 1570s [00:52:50.169] $ ...future.seeds_ii : NULL 1570s [00:52:50.169] $ ...future.globals.maxSize: NULL 1570s [00:52:50.169] - attr(*, "where")=List of 5 1570s [00:52:50.169] ..$ ...future.FUN : 1570s [00:52:50.169] ..$ future.call.arguments : 1570s [00:52:50.169] ..$ ...future.elements_ii : 1570s [00:52:50.169] ..$ ...future.seeds_ii : 1570s [00:52:50.169] ..$ ...future.globals.maxSize: 1570s [00:52:50.169] - attr(*, "resolved")= logi FALSE 1570s [00:52:50.169] - attr(*, "total_size")= num 4728 1570s [00:52:50.169] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1570s [00:52:50.169] - attr(*, "already-done")= logi TRUE 1570s [00:52:50.184] - reassign environment for ‘...future.FUN’ 1570s [00:52:50.184] - copied ‘...future.FUN’ to environment 1570s [00:52:50.184] - copied ‘future.call.arguments’ to environment 1570s [00:52:50.185] - copied ‘...future.elements_ii’ to environment 1570s [00:52:50.185] - copied ‘...future.seeds_ii’ to environment 1570s [00:52:50.185] - copied ‘...future.globals.maxSize’ to environment 1570s [00:52:50.185] assign_globals() ... done 1570s [00:52:50.185] plan(): Setting new future strategy stack: 1570s [00:52:50.185] List of future strategies: 1570s [00:52:50.185] 1. sequential: 1570s [00:52:50.185] - args: function (..., envir = parent.frame()) 1570s [00:52:50.185] - tweaked: FALSE 1570s [00:52:50.185] - call: NULL 1570s [00:52:50.186] plan(): nbrOfWorkers() = 1 1570s [00:52:50.186] plan(): Setting new future strategy stack: 1570s [00:52:50.186] List of future strategies: 1570s [00:52:50.186] 1. sequential: 1570s [00:52:50.186] - args: function (..., envir = parent.frame()) 1570s [00:52:50.186] - tweaked: FALSE 1570s [00:52:50.186] - call: plan(strategy) 1570s [00:52:50.187] plan(): nbrOfWorkers() = 1 1570s [00:52:50.187] SequentialFuture started (and completed) 1570s [00:52:50.187] - Launch lazy future ... done 1570s [00:52:50.187] run() for ‘SequentialFuture’ ... done 1570s [00:52:50.187] Created future: 1570s [00:52:50.187] SequentialFuture: 1570s [00:52:50.187] Label: ‘future_sapply-1’ 1570s [00:52:50.187] Expression: 1570s [00:52:50.187] { 1570s [00:52:50.187] do.call(function(...) { 1570s [00:52:50.187] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1570s [00:52:50.187] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1570s [00:52:50.187] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1570s [00:52:50.187] on.exit(options(oopts), add = TRUE) 1570s [00:52:50.187] } 1570s [00:52:50.187] { 1570s [00:52:50.187] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1570s [00:52:50.187] ...future.X_jj <- ...future.elements_ii[[jj]] 1570s [00:52:50.187] ...future.FUN(...future.X_jj, ...) 1570s [00:52:50.187] }) 1570s [00:52:50.187] } 1570s [00:52:50.187] }, args = future.call.arguments) 1570s [00:52:50.187] } 1570s [00:52:50.187] Lazy evaluation: FALSE 1570s [00:52:50.187] Asynchronous evaluation: FALSE 1570s [00:52:50.187] Local evaluation: TRUE 1570s [00:52:50.187] Environment: R_GlobalEnv 1570s [00:52:50.187] Capture standard output: TRUE 1570s [00:52:50.187] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1570s [00:52:50.187] Globals: 5 objects totaling 4.95 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1570s [00:52:50.187] Packages: 1570s [00:52:50.187] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1570s [00:52:50.187] Resolved: TRUE 1570s [00:52:50.187] Value: 2.02 KiB of class ‘list’ 1570s [00:52:50.187] Early signaling: FALSE 1570s [00:52:50.187] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1570s [00:52:50.187] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1570s [00:52:50.191] Chunk #1 of 1 ... DONE 1570s [00:52:50.191] Launching 1 futures (chunks) ... DONE 1570s [00:52:50.191] Resolving 1 futures (chunks) ... 1570s [00:52:50.191] resolve() on list ... 1570s [00:52:50.191] recursive: 0 1570s [00:52:50.191] length: 1 1570s [00:52:50.192] 1570s [00:52:50.192] resolved() for ‘SequentialFuture’ ... 1570s [00:52:50.192] - state: ‘finished’ 1570s [00:52:50.192] - run: TRUE 1570s [00:52:50.192] - result: ‘FutureResult’ 1570s [00:52:50.192] resolved() for ‘SequentialFuture’ ... done 1570s [00:52:50.192] Future #1 1570s [00:52:50.193] signalConditionsASAP(SequentialFuture, pos=1) ... 1570s [00:52:50.193] - nx: 1 1570s [00:52:50.193] - relay: TRUE 1570s [00:52:50.193] - stdout: TRUE 1570s [00:52:50.193] - signal: TRUE 1570s [00:52:50.196] - resignal: FALSE 1570s [00:52:50.198] - force: TRUE 1570s [00:52:50.201] - relayed: [n=1] FALSE 1570s [00:52:50.202] - queued futures: [n=1] FALSE 1570s [00:52:50.202] - until=1 1570s [00:52:50.202] - relaying element #1 1570s [00:52:50.203] - relayed: [n=1] TRUE 1570s [00:52:50.203] - queued futures: [n=1] TRUE 1570s [00:52:50.203] signalConditionsASAP(SequentialFuture, pos=1) ... done 1570s [00:52:50.203] length: 0 (resolved future 1) 1570s [00:52:50.203] Relaying remaining futures 1570s [00:52:50.203] signalConditionsASAP(NULL, pos=0) ... 1570s [00:52:50.204] - nx: 1 1570s [00:52:50.204] - relay: TRUE 1570s [00:52:50.205] - stdout: TRUE 1570s [00:52:50.205] - signal: TRUE 1570s [00:52:50.206] - resignal: FALSE 1570s [00:52:50.206] - force: TRUE 1570s [00:52:50.206] - relayed: [n=1] TRUE 1570s [00:52:50.207] - queued futures: [n=1] TRUE 1570s - flush all 1570s [00:52:50.207] - relayed: [n=1] TRUE 1570s [00:52:50.208] - queued futures: [n=1] TRUE 1570s [00:52:50.209] signalConditionsASAP(NULL, pos=0) ... done 1570s [00:52:50.209] resolve() on list ... DONE 1570s [00:52:50.209] - Number of value chunks collected: 1 1570s [00:52:50.209] Resolving 1 futures (chunks) ... DONE 1570s [00:52:50.209] Reducing values from 1 chunks ... 1570s [00:52:50.210] - Number of values collected after concatenation: 6 1570s [00:52:50.210] - Number of values expected: 6 1570s [00:52:50.211] Reducing values from 1 chunks ... DONE 1570s [00:52:50.211] future_lapply() ... DONE 1570s List of 2 1570s $ y0: num [1:15, 1:6] 2 2 2 4 4 4 6 6 6 8 ... 1570s ..- attr(*, "dimnames")=List of 2 1570s .. ..[00:52:50.217] future_lapply() ... 1570s $ : NULL 1570s .. ..$ : chr [1:6] "a1" "a2" "b1" "b2" ... 1570s $ y1: num [1:15, 1:6] 2 2 2 4 4 4 6 6 6 8 ... 1570s ..- attr(*, "dimnames")=List of 2 1570s .. ..$ : NULL 1570s .. ..$ : chr [1:6] "a1" "a2" "b1" "b2" ... 1570s [00:52:50.218] Number of chunks: 1 1570s [00:52:50.218] getGlobalsAndPackagesXApply() ... 1570s [00:52:50.218] - future.globals: TRUE 1570s [00:52:50.219] getGlobalsAndPackages() ... 1570s [00:52:50.220] Searching for globals... 1570s [00:52:50.224] - globals found: [1] ‘FUN’ 1570s [00:52:50.224] Searching for globals ... DONE 1570s [00:52:50.224] Resolving globals: FALSE 1570s [00:52:50.224] The total size of the 1 globals is 848 bytes (848 bytes) 1570s [00:52:50.225] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1570s [00:52:50.225] - globals: [1] ‘FUN’ 1570s [00:52:50.225] 1570s [00:52:50.226] getGlobalsAndPackages() ... DONE 1570s [00:52:50.226] - globals found/used: [n=1] ‘FUN’ 1570s [00:52:50.226] - needed namespaces: [n=0] 1570s [00:52:50.226] Finding globals ... DONE 1570s [00:52:50.227] - use_args: TRUE 1570s [00:52:50.227] - Getting '...' globals ... 1570s [00:52:50.227] resolve() on list ... 1570s [00:52:50.228] recursive: 0 1570s [00:52:50.228] length: 1 1570s [00:52:50.228] elements: ‘...’ 1570s [00:52:50.228] length: 0 (resolved future 1) 1570s [00:52:50.228] resolve() on list ... DONE 1570s [00:52:50.228] - '...' content: [n=0] 1570s [00:52:50.229] List of 1 1570s [00:52:50.229] $ ...: list() 1570s [00:52:50.229] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1570s [00:52:50.229] - attr(*, "where")=List of 1 1570s [00:52:50.229] ..$ ...: 1570s [00:52:50.229] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1570s [00:52:50.229] - attr(*, "resolved")= logi TRUE 1570s [00:52:50.229] - attr(*, "total_size")= num NA 1570s [00:52:50.236] - Getting '...' globals ... DONE 1570s [00:52:50.236] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1570s [00:52:50.236] List of 2 1570s [00:52:50.236] $ ...future.FUN:function (x) 1570s [00:52:50.236] $ ... : list() 1570s [00:52:50.236] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1570s [00:52:50.236] - attr(*, "where")=List of 2 1570s [00:52:50.236] ..$ ...future.FUN: 1570s [00:52:50.236] ..$ ... : 1570s [00:52:50.236] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1570s [00:52:50.236] - attr(*, "resolved")= logi FALSE 1570s [00:52:50.236] - attr(*, "total_size")= num 848 1570s [00:52:50.242] Packages to be attached in all futures: [n=0] 1570s [00:52:50.242] getGlobalsAndPackagesXApply() ... DONE 1570s [00:52:50.242] Number of futures (= number of chunks): 1 1570s [00:52:50.242] Launching 1 futures (chunks) ... 1570s [00:52:50.243] Chunk #1 of 1 ... 1570s [00:52:50.243] - Finding globals in 'X' for chunk #1 ... 1570s [00:52:50.243] getGlobalsAndPackages() ... 1570s [00:52:50.243] Searching for globals... 1570s [00:52:50.244] 1570s [00:52:50.244] Searching for globals ... DONE 1570s [00:52:50.244] - globals: [0] 1570s [00:52:50.244] getGlobalsAndPackages() ... DONE 1570s [00:52:50.245] + additional globals found: [n=0] 1570s [00:52:50.245] + additional namespaces needed: [n=0] 1570s [00:52:50.245] - Finding globals in 'X' for chunk #1 ... DONE 1570s [00:52:50.245] - seeds: 1570s [00:52:50.245] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1570s [00:52:50.246] getGlobalsAndPackages() ... 1570s [00:52:50.246] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1570s [00:52:50.246] Resolving globals: FALSE 1570s [00:52:50.246] Tweak future expression to call with '...' arguments ... 1570s [00:52:50.247] { 1570s [00:52:50.247] do.call(function(...) { 1570s [00:52:50.247] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1570s [00:52:50.247] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1570s [00:52:50.247] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1570s [00:52:50.247] on.exit(options(oopts), add = TRUE) 1570s [00:52:50.247] } 1570s [00:52:50.247] { 1570s [00:52:50.247] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1570s [00:52:50.247] ...future.X_jj <- ...future.elements_ii[[jj]] 1570s [00:52:50.247] ...future.FUN(...future.X_jj, ...) 1570s [00:52:50.247] }) 1570s [00:52:50.247] } 1570s [00:52:50.247] }, args = future.call.arguments) 1570s [00:52:50.247] } 1570s [00:52:50.247] Tweak future expression to call with '...' arguments ... DONE 1570s [00:52:50.248] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1570s [00:52:50.248] 1570s [00:52:50.248] getGlobalsAndPackages() ... DONE 1570s [00:52:50.249] run() for ‘Future’ ... 1570s [00:52:50.252] - state: ‘created’ 1570s [00:52:50.253] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1570s [00:52:50.253] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1570s [00:52:50.253] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1570s [00:52:50.253] - Field: ‘label’ 1570s [00:52:50.254] - Field: ‘local’ 1570s [00:52:50.254] - Field: ‘owner’ 1570s [00:52:50.254] - Field: ‘envir’ 1570s [00:52:50.254] - Field: ‘packages’ 1570s [00:52:50.255] - Field: ‘gc’ 1570s [00:52:50.255] - Field: ‘conditions’ 1570s [00:52:50.255] - Field: ‘expr’ 1570s [00:52:50.255] - Field: ‘uuid’ 1570s [00:52:50.255] - Field: ‘seed’ 1570s [00:52:50.256] - Field: ‘version’ 1570s [00:52:50.256] - Field: ‘result’ 1570s [00:52:50.256] - Field: ‘asynchronous’ 1570s [00:52:50.256] - Field: ‘calls’ 1570s [00:52:50.256] - Field: ‘globals’ 1570s [00:52:50.257] - Field: ‘stdout’ 1570s [00:52:50.257] - Field: ‘earlySignal’ 1570s [00:52:50.257] - Field: ‘lazy’ 1570s [00:52:50.257] - Field: ‘state’ 1570s [00:52:50.257] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1570s [00:52:50.258] - Launch lazy future ... 1570s [00:52:50.258] Packages needed by the future expression (n = 0): 1570s [00:52:50.258] Packages needed by future strategies (n = 0): 1570s [00:52:50.259] { 1570s [00:52:50.259] { 1570s [00:52:50.259] { 1570s [00:52:50.259] ...future.startTime <- base::Sys.time() 1570s [00:52:50.259] { 1570s [00:52:50.259] { 1570s [00:52:50.259] { 1570s [00:52:50.259] base::local({ 1570s [00:52:50.259] has_future <- base::requireNamespace("future", 1570s [00:52:50.259] quietly = TRUE) 1570s [00:52:50.259] if (has_future) { 1570s [00:52:50.259] ns <- base::getNamespace("future") 1570s [00:52:50.259] version <- ns[[".package"]][["version"]] 1570s [00:52:50.259] if (is.null(version)) 1570s [00:52:50.259] version <- utils::packageVersion("future") 1570s [00:52:50.259] } 1570s [00:52:50.259] else { 1570s [00:52:50.259] version <- NULL 1570s [00:52:50.259] } 1570s [00:52:50.259] if (!has_future || version < "1.8.0") { 1570s [00:52:50.259] info <- base::c(r_version = base::gsub("R version ", 1570s [00:52:50.259] "", base::R.version$version.string), 1570s [00:52:50.259] platform = base::sprintf("%s (%s-bit)", 1570s [00:52:50.259] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1570s [00:52:50.259] os = base::paste(base::Sys.info()[base::c("sysname", 1570s [00:52:50.259] "release", "version")], collapse = " "), 1570s [00:52:50.259] hostname = base::Sys.info()[["nodename"]]) 1570s [00:52:50.259] info <- base::sprintf("%s: %s", base::names(info), 1570s [00:52:50.259] info) 1570s [00:52:50.259] info <- base::paste(info, collapse = "; ") 1570s [00:52:50.259] if (!has_future) { 1570s [00:52:50.259] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1570s [00:52:50.259] info) 1570s [00:52:50.259] } 1570s [00:52:50.259] else { 1570s [00:52:50.259] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1570s [00:52:50.259] info, version) 1570s [00:52:50.259] } 1570s [00:52:50.259] base::stop(msg) 1570s [00:52:50.259] } 1570s [00:52:50.259] }) 1570s [00:52:50.259] } 1570s [00:52:50.259] options(future.plan = NULL) 1570s [00:52:50.259] Sys.unsetenv("R_FUTURE_PLAN") 1570s [00:52:50.259] future::plan("default", .cleanup = FALSE, .init = FALSE) 1570s [00:52:50.259] } 1570s [00:52:50.259] ...future.workdir <- getwd() 1570s [00:52:50.259] } 1570s [00:52:50.259] ...future.oldOptions <- base::as.list(base::.Options) 1570s [00:52:50.259] ...future.oldEnvVars <- base::Sys.getenv() 1570s [00:52:50.259] } 1570s [00:52:50.259] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1570s [00:52:50.259] future.globals.maxSize = NULL, future.globals.method = NULL, 1570s [00:52:50.259] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1570s [00:52:50.259] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1570s [00:52:50.259] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1570s [00:52:50.259] future.stdout.windows.reencode = NULL, width = 80L) 1570s [00:52:50.259] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1570s [00:52:50.259] base::names(...future.oldOptions)) 1570s [00:52:50.259] } 1570s [00:52:50.259] if (FALSE) { 1570s [00:52:50.259] } 1570s [00:52:50.259] else { 1570s [00:52:50.259] if (TRUE) { 1570s [00:52:50.259] ...future.stdout <- base::rawConnection(base::raw(0L), 1570s [00:52:50.259] open = "w") 1570s [00:52:50.259] } 1570s [00:52:50.259] else { 1570s [00:52:50.259] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1570s [00:52:50.259] windows = "NUL", "/dev/null"), open = "w") 1570s [00:52:50.259] } 1570s [00:52:50.259] base::sink(...future.stdout, type = "output", split = FALSE) 1570s [00:52:50.259] base::on.exit(if (!base::is.null(...future.stdout)) { 1570s [00:52:50.259] base::sink(type = "output", split = FALSE) 1570s [00:52:50.259] base::close(...future.stdout) 1570s [00:52:50.259] }, add = TRUE) 1570s [00:52:50.259] } 1570s [00:52:50.259] ...future.frame <- base::sys.nframe() 1570s [00:52:50.259] ...future.conditions <- base::list() 1570s [00:52:50.259] ...future.rng <- base::globalenv()$.Random.seed 1570s [00:52:50.259] if (FALSE) { 1570s [00:52:50.259] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1570s [00:52:50.259] "...future.value", "...future.globalenv.names", ".Random.seed") 1570s [00:52:50.259] } 1570s [00:52:50.259] ...future.result <- base::tryCatch({ 1570s [00:52:50.259] base::withCallingHandlers({ 1570s [00:52:50.259] ...future.value <- base::withVisible(base::local({ 1570s [00:52:50.259] do.call(function(...) { 1570s [00:52:50.259] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1570s [00:52:50.259] if (!identical(...future.globals.maxSize.org, 1570s [00:52:50.259] ...future.globals.maxSize)) { 1570s [00:52:50.259] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1570s [00:52:50.259] on.exit(options(oopts), add = TRUE) 1570s [00:52:50.259] } 1570s [00:52:50.259] { 1570s [00:52:50.259] lapply(seq_along(...future.elements_ii), 1570s [00:52:50.259] FUN = function(jj) { 1570s [00:52:50.259] ...future.X_jj <- ...future.elements_ii[[jj]] 1570s [00:52:50.259] ...future.FUN(...future.X_jj, ...) 1570s [00:52:50.259] }) 1570s [00:52:50.259] } 1570s [00:52:50.259] }, args = future.call.arguments) 1570s [00:52:50.259] })) 1570s [00:52:50.259] future::FutureResult(value = ...future.value$value, 1570s [00:52:50.259] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1570s [00:52:50.259] ...future.rng), globalenv = if (FALSE) 1570s [00:52:50.259] list(added = base::setdiff(base::names(base::.GlobalEnv), 1570s [00:52:50.259] ...future.globalenv.names)) 1570s [00:52:50.259] else NULL, started = ...future.startTime, version = "1.8") 1570s [00:52:50.259] }, condition = base::local({ 1570s [00:52:50.259] c <- base::c 1570s [00:52:50.259] inherits <- base::inherits 1570s [00:52:50.259] invokeRestart <- base::invokeRestart 1570s [00:52:50.259] length <- base::length 1570s [00:52:50.259] list <- base::list 1570s [00:52:50.259] seq.int <- base::seq.int 1570s [00:52:50.259] signalCondition <- base::signalCondition 1570s [00:52:50.259] sys.calls <- base::sys.calls 1570s [00:52:50.259] `[[` <- base::`[[` 1570s [00:52:50.259] `+` <- base::`+` 1570s [00:52:50.259] `<<-` <- base::`<<-` 1570s [00:52:50.259] sysCalls <- function(calls = sys.calls(), from = 1L) { 1570s [00:52:50.259] calls[seq.int(from = from + 12L, to = length(calls) - 1570s [00:52:50.259] 3L)] 1570s [00:52:50.259] } 1570s [00:52:50.259] function(cond) { 1570s [00:52:50.259] is_error <- inherits(cond, "error") 1570s [00:52:50.259] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1570s [00:52:50.259] NULL) 1570s [00:52:50.259] if (is_error) { 1570s [00:52:50.259] sessionInformation <- function() { 1570s [00:52:50.259] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1570s [00:52:50.259] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1570s [00:52:50.259] search = base::search(), system = base::Sys.info()) 1570s [00:52:50.259] } 1570s [00:52:50.259] ...future.conditions[[length(...future.conditions) + 1570s [00:52:50.259] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1570s [00:52:50.259] cond$call), session = sessionInformation(), 1570s [00:52:50.259] timestamp = base::Sys.time(), signaled = 0L) 1570s [00:52:50.259] signalCondition(cond) 1570s [00:52:50.259] } 1570s [00:52:50.259] else if (!ignore && TRUE && inherits(cond, c("condition", 1570s [00:52:50.259] "immediateCondition"))) { 1570s [00:52:50.259] signal <- TRUE && inherits(cond, "immediateCondition") 1570s [00:52:50.259] ...future.conditions[[length(...future.conditions) + 1570s [00:52:50.259] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1570s [00:52:50.259] if (TRUE && !signal) { 1570s [00:52:50.259] muffleCondition <- function (cond, pattern = "^muffle") 1570s [00:52:50.259] { 1570s [00:52:50.259] inherits <- base::inherits 1570s [00:52:50.259] invokeRestart <- base::invokeRestart 1570s [00:52:50.259] is.null <- base::is.null 1570s [00:52:50.259] muffled <- FALSE 1570s [00:52:50.259] if (inherits(cond, "message")) { 1570s [00:52:50.259] muffled <- grepl(pattern, "muffleMessage") 1570s [00:52:50.259] if (muffled) 1570s [00:52:50.259] invokeRestart("muffleMessage") 1570s [00:52:50.259] } 1570s [00:52:50.259] else if (inherits(cond, "warning")) { 1570s [00:52:50.259] muffled <- grepl(pattern, "muffleWarning") 1570s [00:52:50.259] if (muffled) 1570s [00:52:50.259] invokeRestart("muffleWarning") 1570s [00:52:50.259] } 1570s [00:52:50.259] else if (inherits(cond, "condition")) { 1570s [00:52:50.259] if (!is.null(pattern)) { 1570s [00:52:50.259] computeRestarts <- base::computeRestarts 1570s [00:52:50.259] grepl <- base::grepl 1570s [00:52:50.259] restarts <- computeRestarts(cond) 1570s [00:52:50.259] for (restart in restarts) { 1570s [00:52:50.259] name <- restart$name 1570s [00:52:50.259] if (is.null(name)) 1570s [00:52:50.259] next 1570s [00:52:50.259] if (!grepl(pattern, name)) 1570s [00:52:50.259] next 1570s [00:52:50.259] invokeRestart(restart) 1570s [00:52:50.259] muffled <- TRUE 1570s [00:52:50.259] break 1570s [00:52:50.259] } 1570s [00:52:50.259] } 1570s [00:52:50.259] } 1570s [00:52:50.259] invisible(muffled) 1570s [00:52:50.259] } 1570s [00:52:50.259] muffleCondition(cond, pattern = "^muffle") 1570s [00:52:50.259] } 1570s [00:52:50.259] } 1570s [00:52:50.259] else { 1570s [00:52:50.259] if (TRUE) { 1570s [00:52:50.259] muffleCondition <- function (cond, pattern = "^muffle") 1570s [00:52:50.259] { 1570s [00:52:50.259] inherits <- base::inherits 1570s [00:52:50.259] invokeRestart <- base::invokeRestart 1570s [00:52:50.259] is.null <- base::is.null 1570s [00:52:50.259] muffled <- FALSE 1570s [00:52:50.259] if (inherits(cond, "message")) { 1570s [00:52:50.259] muffled <- grepl(pattern, "muffleMessage") 1570s [00:52:50.259] if (muffled) 1570s [00:52:50.259] invokeRestart("muffleMessage") 1570s [00:52:50.259] } 1570s [00:52:50.259] else if (inherits(cond, "warning")) { 1570s [00:52:50.259] muffled <- grepl(pattern, "muffleWarning") 1570s [00:52:50.259] if (muffled) 1570s [00:52:50.259] invokeRestart("muffleWarning") 1570s [00:52:50.259] } 1570s [00:52:50.259] else if (inherits(cond, "condition")) { 1570s [00:52:50.259] if (!is.null(pattern)) { 1570s [00:52:50.259] computeRestarts <- base::computeRestarts 1570s [00:52:50.259] grepl <- base::grepl 1570s [00:52:50.259] restarts <- computeRestarts(cond) 1570s [00:52:50.259] for (restart in restarts) { 1570s [00:52:50.259] name <- restart$name 1570s [00:52:50.259] if (is.null(name)) 1570s [00:52:50.259] next 1570s [00:52:50.259] if (!grepl(pattern, name)) 1570s [00:52:50.259] next 1570s [00:52:50.259] invokeRestart(restart) 1570s [00:52:50.259] muffled <- TRUE 1570s [00:52:50.259] break 1570s [00:52:50.259] } 1570s [00:52:50.259] } 1570s [00:52:50.259] } 1570s [00:52:50.259] invisible(muffled) 1570s [00:52:50.259] } 1570s [00:52:50.259] muffleCondition(cond, pattern = "^muffle") 1570s [00:52:50.259] } 1570s [00:52:50.259] } 1570s [00:52:50.259] } 1570s [00:52:50.259] })) 1570s [00:52:50.259] }, error = function(ex) { 1570s [00:52:50.259] base::structure(base::list(value = NULL, visible = NULL, 1570s [00:52:50.259] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1570s [00:52:50.259] ...future.rng), started = ...future.startTime, 1570s [00:52:50.259] finished = Sys.time(), session_uuid = NA_character_, 1570s [00:52:50.259] version = "1.8"), class = "FutureResult") 1570s [00:52:50.259] }, finally = { 1570s [00:52:50.259] if (!identical(...future.workdir, getwd())) 1570s [00:52:50.259] setwd(...future.workdir) 1570s [00:52:50.259] { 1570s [00:52:50.259] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1570s [00:52:50.259] ...future.oldOptions$nwarnings <- NULL 1570s [00:52:50.259] } 1570s [00:52:50.259] base::options(...future.oldOptions) 1570s [00:52:50.259] if (.Platform$OS.type == "windows") { 1570s [00:52:50.259] old_names <- names(...future.oldEnvVars) 1570s [00:52:50.259] envs <- base::Sys.getenv() 1570s [00:52:50.259] names <- names(envs) 1570s [00:52:50.259] common <- intersect(names, old_names) 1570s [00:52:50.259] added <- setdiff(names, old_names) 1570s [00:52:50.259] removed <- setdiff(old_names, names) 1570s [00:52:50.259] changed <- common[...future.oldEnvVars[common] != 1570s [00:52:50.259] envs[common]] 1570s [00:52:50.259] NAMES <- toupper(changed) 1570s [00:52:50.259] args <- list() 1570s [00:52:50.259] for (kk in seq_along(NAMES)) { 1570s [00:52:50.259] name <- changed[[kk]] 1570s [00:52:50.259] NAME <- NAMES[[kk]] 1570s [00:52:50.259] if (name != NAME && is.element(NAME, old_names)) 1570s [00:52:50.259] next 1570s [00:52:50.259] args[[name]] <- ...future.oldEnvVars[[name]] 1570s [00:52:50.259] } 1570s [00:52:50.259] NAMES <- toupper(added) 1570s [00:52:50.259] for (kk in seq_along(NAMES)) { 1570s [00:52:50.259] name <- added[[kk]] 1570s [00:52:50.259] NAME <- NAMES[[kk]] 1570s [00:52:50.259] if (name != NAME && is.element(NAME, old_names)) 1570s [00:52:50.259] next 1570s [00:52:50.259] args[[name]] <- "" 1570s [00:52:50.259] } 1570s [00:52:50.259] NAMES <- toupper(removed) 1570s [00:52:50.259] for (kk in seq_along(NAMES)) { 1570s [00:52:50.259] name <- removed[[kk]] 1570s [00:52:50.259] NAME <- NAMES[[kk]] 1570s [00:52:50.259] if (name != NAME && is.element(NAME, old_names)) 1570s [00:52:50.259] next 1570s [00:52:50.259] args[[name]] <- ...future.oldEnvVars[[name]] 1570s [00:52:50.259] } 1570s [00:52:50.259] if (length(args) > 0) 1570s [00:52:50.259] base::do.call(base::Sys.setenv, args = args) 1570s [00:52:50.259] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1570s [00:52:50.259] } 1570s [00:52:50.259] else { 1570s [00:52:50.259] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1570s [00:52:50.259] } 1570s [00:52:50.259] { 1570s [00:52:50.259] if (base::length(...future.futureOptionsAdded) > 1570s [00:52:50.259] 0L) { 1570s [00:52:50.259] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1570s [00:52:50.259] base::names(opts) <- ...future.futureOptionsAdded 1570s [00:52:50.259] base::options(opts) 1570s [00:52:50.259] } 1570s [00:52:50.259] { 1570s [00:52:50.259] { 1570s [00:52:50.259] NULL 1570s [00:52:50.259] RNGkind("Mersenne-Twister") 1570s [00:52:50.259] base::rm(list = ".Random.seed", envir = base::globalenv(), 1570s [00:52:50.259] inherits = FALSE) 1570s [00:52:50.259] } 1570s [00:52:50.259] options(future.plan = NULL) 1570s [00:52:50.259] if (is.na(NA_character_)) 1570s [00:52:50.259] Sys.unsetenv("R_FUTURE_PLAN") 1570s [00:52:50.259] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1570s [00:52:50.259] future::plan(list(function (..., envir = parent.frame()) 1570s [00:52:50.259] { 1570s [00:52:50.259] future <- SequentialFuture(..., envir = envir) 1570s [00:52:50.259] if (!future$lazy) 1570s [00:52:50.259] future <- run(future) 1570s [00:52:50.259] invisible(future) 1570s [00:52:50.259] }), .cleanup = FALSE, .init = FALSE) 1570s [00:52:50.259] } 1570s [00:52:50.259] } 1570s [00:52:50.259] } 1570s [00:52:50.259] }) 1570s [00:52:50.259] if (TRUE) { 1570s [00:52:50.259] base::sink(type = "output", split = FALSE) 1570s [00:52:50.259] if (TRUE) { 1570s [00:52:50.259] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1570s [00:52:50.259] } 1570s [00:52:50.259] else { 1570s [00:52:50.259] ...future.result["stdout"] <- base::list(NULL) 1570s [00:52:50.259] } 1570s [00:52:50.259] base::close(...future.stdout) 1570s [00:52:50.259] ...future.stdout <- NULL 1570s [00:52:50.259] } 1570s [00:52:50.259] ...future.result$conditions <- ...future.conditions 1570s [00:52:50.259] ...future.result$finished <- base::Sys.time() 1570s [00:52:50.259] ...future.result 1570s [00:52:50.259] } 1570s [00:52:50.263] assign_globals() ... 1570s [00:52:50.263] List of 5 1570s [00:52:50.263] $ ...future.FUN :function (x) 1570s [00:52:50.263] $ future.call.arguments : list() 1570s [00:52:50.263] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1570s [00:52:50.263] $ ...future.elements_ii :List of 6 1570s [00:52:50.263] ..$ a1: int 1 1570s [00:52:50.263] ..$ a2: int 2 1570s [00:52:50.263] ..$ b1: int 2 1570s [00:52:50.263] ..$ b2: int 3 1570s [00:52:50.263] ..$ c1: int 3 1570s [00:52:50.263] ..$ c2: int 4 1570s [00:52:50.263] $ ...future.seeds_ii : NULL 1570s [00:52:50.263] $ ...future.globals.maxSize: NULL 1570s [00:52:50.263] - attr(*, "where")=List of 5 1570s [00:52:50.263] ..$ ...future.FUN : 1570s [00:52:50.263] ..$ future.call.arguments : 1570s [00:52:50.263] ..$ ...future.elements_ii : 1570s [00:52:50.263] ..$ ...future.seeds_ii : 1570s [00:52:50.263] ..$ ...future.globals.maxSize: 1570s [00:52:50.263] - attr(*, "resolved")= logi FALSE 1570s [00:52:50.263] - attr(*, "total_size")= num 848 1570s [00:52:50.263] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1570s [00:52:50.263] - attr(*, "already-done")= logi TRUE 1570s [00:52:50.276] - copied ‘...future.FUN’ to environment 1570s [00:52:50.276] - copied ‘future.call.arguments’ to environment 1570s [00:52:50.276] - copied ‘...future.elements_ii’ to environment 1570s [00:52:50.276] - copied ‘...future.seeds_ii’ to environment 1570s [00:52:50.276] - copied ‘...future.globals.maxSize’ to environment 1570s [00:52:50.276] assign_globals() ... done 1570s [00:52:50.277] plan(): Setting new future strategy stack: 1570s [00:52:50.277] List of future strategies: 1570s [00:52:50.277] 1. sequential: 1570s [00:52:50.277] - args: function (..., envir = parent.frame()) 1570s [00:52:50.277] - tweaked: FALSE 1570s [00:52:50.277] - call: NULL 1570s [00:52:50.277] plan(): nbrOfWorkers() = 1 1570s [00:52:50.278] plan(): Setting new future strategy stack: 1570s [00:52:50.279] List of future strategies: 1570s [00:52:50.279] 1. sequential: 1570s [00:52:50.279] - args: function (..., envir = parent.frame()) 1570s [00:52:50.279] - tweaked: FALSE 1570s [00:52:50.279] - call: plan(strategy) 1570s [00:52:50.279] plan(): nbrOfWorkers() = 1 1570s [00:52:50.280] SequentialFuture started (and completed) 1570s [00:52:50.280] - Launch lazy future ... done 1570s [00:52:50.280] run() for ‘SequentialFuture’ ... done 1570s [00:52:50.280] Created future: 1570s [00:52:50.280] SequentialFuture: 1570s [00:52:50.280] Label: ‘future_sapply-1’ 1570s [00:52:50.280] Expression: 1570s [00:52:50.280] { 1570s [00:52:50.280] do.call(function(...) { 1570s [00:52:50.280] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1570s [00:52:50.280] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1570s [00:52:50.280] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1570s [00:52:50.280] on.exit(options(oopts), add = TRUE) 1570s [00:52:50.280] } 1570s [00:52:50.280] { 1570s [00:52:50.280] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1570s [00:52:50.280] ...future.X_jj <- ...future.elements_ii[[jj]] 1570s [00:52:50.280] ...future.FUN(...future.X_jj, ...) 1570s [00:52:50.280] }) 1570s [00:52:50.280] } 1570s [00:52:50.280] }, args = future.call.arguments) 1570s [00:52:50.280] } 1570s [00:52:50.280] Lazy evaluation: FALSE 1570s [00:52:50.280] Asynchronous evaluation: FALSE 1570s [00:52:50.280] Local evaluation: TRUE 1570s [00:52:50.280] Environment: R_GlobalEnv 1570s [00:52:50.280] Capture standard output: TRUE 1570s [00:52:50.280] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1570s [00:52:50.280] Globals: 5 objects totaling 1.16 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1570s [00:52:50.280] Packages: 1570s [00:52:50.280] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1570s [00:52:50.280] Resolved: TRUE 1570s [00:52:50.280] Value: 336 bytes of class ‘list’ 1570s [00:52:50.280] Early signaling: FALSE 1570s [00:52:50.280] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1570s [00:52:50.280] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1570s [00:52:50.282] Chunk #1 of 1 ... DONE 1570s [00:52:50.282] Launching 1 futures (chunks) ... DONE 1570s [00:52:50.283] Resolving 1 futures (chunks) ... 1570s [00:52:50.283] resolve() on list ... 1570s [00:52:50.283] recursive: 0 1570s [00:52:50.283] length: 1 1570s [00:52:50.283] 1570s [00:52:50.284] resolved() for ‘SequentialFuture’ ... 1570s [00:52:50.284] - state: ‘finished’ 1570s [00:52:50.284] - run: TRUE 1570s [00:52:50.284] - result: ‘FutureResult’ 1570s [00:52:50.285] resolved() for ‘SequentialFuture’ ... done 1570s [00:52:50.285] Future #1 1570s [00:52:50.285] signalConditionsASAP(SequentialFuture, pos=1) ... 1570s [00:52:50.286] - nx: 1 1570s [00:52:50.286] - relay: TRUE 1570s [00:52:50.286] - stdout: TRUE 1570s [00:52:50.286] - signal: TRUE 1570s [00:52:50.286] - resignal: FALSE 1570s [00:52:50.286] - force: TRUE 1570s [00:52:50.286] - relayed: [n=1] FALSE 1570s [00:52:50.287] - queued futures: [n=1] FALSE 1570s [00:52:50.287] - until=1 1570s [00:52:50.287] - relaying element #1 1570s [00:52:50.287] - relayed: [n=1] TRUE 1570s [00:52:50.287] - queued futures: [n=1] TRUE 1570s [00:52:50.287] signalConditionsASAP(SequentialFuture, pos=1) ... done 1570s [00:52:50.288] length: 0 (resolved future 1) 1570s [00:52:50.288] Relaying remaining futures 1570s [00:52:50.288] signalConditionsASAP(NULL, pos=0) ... 1570s [00:52:50.288] - nx: 1 1570s [00:52:50.288] - relay: TRUE 1570s [00:52:50.288] - stdout: TRUE 1570s [00:52:50.288] - signal: TRUE 1570s [00:52:50.289] - resignal: FALSE 1570s [00:52:50.289] - force: TRUE 1570s [00:52:50.289] - relayed: [n=1] TRUE 1570s [00:52:50.289] - queued futures: [n=1] TRUE 1570s - flush all 1570s [00:52:50.289] - relayed: [n=1] TRUE 1570s [00:52:50.289] - queued futures: [n=1] TRUE 1570s [00:52:50.289] signalConditionsASAP(NULL, pos=0) ... done 1570s [00:52:50.290] resolve() on list ... DONE 1570s [00:52:50.290] - Number of value chunks collected: 1 1570s [00:52:50.290] Resolving 1 futures (chunks) ... DONE 1570s [00:52:50.290] Reducing values from 1 chunks ... 1570s [00:52:50.290] - Number of values collected after concatenation: 6 1570s [00:52:50.290] - Number of values expected: 6 1570s [00:52:50.291] Reducing values from 1 chunks ... DONE 1570s [00:52:50.291] future_lapply() ... DONE 1570s List of 2 1570s $ y0: Named int [1:6] 1 2 2 3 3 4 1570s ..- attr(*, "names")= chr [1:6] "a1" "a2" "b1" "b2" ... 1570s $ y1: Named int [1:6] 1 2 2 3 3 4 1570s ..- attr(*, "names")= chr [1:6] "a1" "a2" "b1" "b2" ... 1570s [00:52:50.294] future_lapply() ... 1570s [00:52:50.295] Number of chunks: 1 1570s [00:52:50.295] getGlobalsAndPackagesXApply() ... 1570s [00:52:50.298] - future.globals: TRUE 1570s [00:52:50.298] getGlobalsAndPackages() ... 1570s [00:52:50.299] Searching for globals... 1570s [00:52:50.301] - globals found: [2] ‘FUN’, ‘UseMethod’ 1570s [00:52:50.302] Searching for globals ... DONE 1570s [00:52:50.302] Resolving globals: FALSE 1570s [00:52:50.302] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1570s [00:52:50.303] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1570s [00:52:50.304] - globals: [1] ‘FUN’ 1570s [00:52:50.304] 1570s [00:52:50.304] getGlobalsAndPackages() ... DONE 1570s [00:52:50.304] - globals found/used: [n=1] ‘FUN’ 1570s [00:52:50.305] - needed namespaces: [n=0] 1570s [00:52:50.305] Finding globals ... DONE 1570s [00:52:50.305] - use_args: TRUE 1570s [00:52:50.305] - Getting '...' globals ... 1570s [00:52:50.306] resolve() on list ... 1570s [00:52:50.306] recursive: 0 1570s [00:52:50.307] length: 1 1570s [00:52:50.307] elements: ‘...’ 1570s [00:52:50.307] length: 0 (resolved future 1) 1570s [00:52:50.308] resolve() on list ... DONE 1570s [00:52:50.308] - '...' content: [n=0] 1570s [00:52:50.308] List of 1 1570s [00:52:50.308] $ ...: list() 1570s [00:52:50.308] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1570s [00:52:50.308] - attr(*, "where")=List of 1 1570s [00:52:50.308] ..$ ...: 1570s [00:52:50.308] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1570s [00:52:50.308] - attr(*, "resolved")= logi TRUE 1570s [00:52:50.308] - attr(*, "total_size")= num NA 1570s [00:52:50.313] - Getting '...' globals ... DONE 1570s [00:52:50.313] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1570s [00:52:50.313] List of 2 1570s [00:52:50.313] $ ...future.FUN:function (x, ...) 1570s [00:52:50.313] $ ... : list() 1570s [00:52:50.313] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1570s [00:52:50.313] - attr(*, "where")=List of 2 1570s [00:52:50.313] ..$ ...future.FUN: 1570s [00:52:50.313] ..$ ... : 1570s [00:52:50.313] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1570s [00:52:50.313] - attr(*, "resolved")= logi FALSE 1570s [00:52:50.313] - attr(*, "total_size")= num 1248 1570s [00:52:50.317] Packages to be attached in all futures: [n=0] 1570s [00:52:50.317] getGlobalsAndPackagesXApply() ... DONE 1570s [00:52:50.317] Number of futures (= number of chunks): 1 1570s [00:52:50.318] Launching 1 futures (chunks) ... 1570s [00:52:50.318] Chunk #1 of 1 ... 1570s [00:52:50.318] - Finding globals in 'X' for chunk #1 ... 1570s [00:52:50.318] getGlobalsAndPackages() ... 1570s [00:52:50.318] Searching for globals... 1570s [00:52:50.319] 1570s [00:52:50.319] Searching for globals ... DONE 1570s [00:52:50.320] - globals: [0] 1570s [00:52:50.320] getGlobalsAndPackages() ... DONE 1570s [00:52:50.320] + additional globals found: [n=0] 1570s [00:52:50.320] + additional namespaces needed: [n=0] 1570s [00:52:50.321] - Finding globals in 'X' for chunk #1 ... DONE 1570s [00:52:50.321] - seeds: 1570s [00:52:50.321] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1570s [00:52:50.321] getGlobalsAndPackages() ... 1570s [00:52:50.322] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1570s [00:52:50.322] Resolving globals: FALSE 1570s [00:52:50.322] Tweak future expression to call with '...' arguments ... 1570s [00:52:50.322] { 1570s [00:52:50.322] do.call(function(...) { 1570s [00:52:50.322] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1570s [00:52:50.322] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1570s [00:52:50.322] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1570s [00:52:50.322] on.exit(options(oopts), add = TRUE) 1570s [00:52:50.322] } 1570s [00:52:50.322] { 1570s [00:52:50.322] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1570s [00:52:50.322] ...future.X_jj <- ...future.elements_ii[[jj]] 1570s [00:52:50.322] ...future.FUN(...future.X_jj, ...) 1570s [00:52:50.322] }) 1570s [00:52:50.322] } 1570s [00:52:50.322] }, args = future.call.arguments) 1570s [00:52:50.322] } 1570s [00:52:50.323] Tweak future expression to call with '...' arguments ... DONE 1570s [00:52:50.323] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1570s [00:52:50.324] 1570s [00:52:50.324] getGlobalsAndPackages() ... DONE 1570s [00:52:50.324] run() for ‘Future’ ... 1570s [00:52:50.324] - state: ‘created’ 1570s [00:52:50.325] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1570s [00:52:50.325] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1570s [00:52:50.325] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1570s [00:52:50.325] - Field: ‘label’ 1570s [00:52:50.326] - Field: ‘local’ 1570s [00:52:50.326] - Field: ‘owner’ 1570s [00:52:50.326] - Field: ‘envir’ 1570s [00:52:50.326] - Field: ‘packages’ 1570s [00:52:50.326] - Field: ‘gc’ 1570s [00:52:50.327] - Field: ‘conditions’ 1570s [00:52:50.327] - Field: ‘expr’ 1570s [00:52:50.327] - Field: ‘uuid’ 1570s [00:52:50.327] - Field: ‘seed’ 1570s [00:52:50.327] - Field: ‘version’ 1570s [00:52:50.327] - Field: ‘result’ 1570s [00:52:50.328] - Field: ‘asynchronous’ 1570s [00:52:50.328] - Field: ‘calls’ 1570s [00:52:50.328] - Field: ‘globals’ 1570s [00:52:50.328] - Field: ‘stdout’ 1570s [00:52:50.328] - Field: ‘earlySignal’ 1570s [00:52:50.328] - Field: ‘lazy’ 1570s [00:52:50.329] - Field: ‘state’ 1570s [00:52:50.329] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1570s [00:52:50.329] - Launch lazy future ... 1570s [00:52:50.329] Packages needed by the future expression (n = 0): 1570s [00:52:50.329] Packages needed by future strategies (n = 0): 1570s [00:52:50.330] { 1570s [00:52:50.330] { 1570s [00:52:50.330] { 1570s [00:52:50.330] ...future.startTime <- base::Sys.time() 1570s [00:52:50.330] { 1570s [00:52:50.330] { 1570s [00:52:50.330] { 1570s [00:52:50.330] base::local({ 1570s [00:52:50.330] has_future <- base::requireNamespace("future", 1570s [00:52:50.330] quietly = TRUE) 1570s [00:52:50.330] if (has_future) { 1570s [00:52:50.330] ns <- base::getNamespace("future") 1570s [00:52:50.330] version <- ns[[".package"]][["version"]] 1570s [00:52:50.330] if (is.null(version)) 1570s [00:52:50.330] version <- utils::packageVersion("future") 1570s [00:52:50.330] } 1570s [00:52:50.330] else { 1570s [00:52:50.330] version <- NULL 1570s [00:52:50.330] } 1570s [00:52:50.330] if (!has_future || version < "1.8.0") { 1570s [00:52:50.330] info <- base::c(r_version = base::gsub("R version ", 1570s [00:52:50.330] "", base::R.version$version.string), 1570s [00:52:50.330] platform = base::sprintf("%s (%s-bit)", 1570s [00:52:50.330] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1570s [00:52:50.330] os = base::paste(base::Sys.info()[base::c("sysname", 1570s [00:52:50.330] "release", "version")], collapse = " "), 1570s [00:52:50.330] hostname = base::Sys.info()[["nodename"]]) 1570s [00:52:50.330] info <- base::sprintf("%s: %s", base::names(info), 1570s [00:52:50.330] info) 1570s [00:52:50.330] info <- base::paste(info, collapse = "; ") 1570s [00:52:50.330] if (!has_future) { 1570s [00:52:50.330] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1570s [00:52:50.330] info) 1570s [00:52:50.330] } 1570s [00:52:50.330] else { 1570s [00:52:50.330] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1570s [00:52:50.330] info, version) 1570s [00:52:50.330] } 1570s [00:52:50.330] base::stop(msg) 1570s [00:52:50.330] } 1570s [00:52:50.330] }) 1570s [00:52:50.330] } 1570s [00:52:50.330] options(future.plan = NULL) 1570s [00:52:50.330] Sys.unsetenv("R_FUTURE_PLAN") 1570s [00:52:50.330] future::plan("default", .cleanup = FALSE, .init = FALSE) 1570s [00:52:50.330] } 1570s [00:52:50.330] ...future.workdir <- getwd() 1570s [00:52:50.330] } 1570s [00:52:50.330] ...future.oldOptions <- base::as.list(base::.Options) 1570s [00:52:50.330] ...future.oldEnvVars <- base::Sys.getenv() 1570s [00:52:50.330] } 1570s [00:52:50.330] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1570s [00:52:50.330] future.globals.maxSize = NULL, future.globals.method = NULL, 1570s [00:52:50.330] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1570s [00:52:50.330] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1570s [00:52:50.330] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1570s [00:52:50.330] future.stdout.windows.reencode = NULL, width = 80L) 1570s [00:52:50.330] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1570s [00:52:50.330] base::names(...future.oldOptions)) 1570s [00:52:50.330] } 1570s [00:52:50.330] if (FALSE) { 1570s [00:52:50.330] } 1570s [00:52:50.330] else { 1570s [00:52:50.330] if (TRUE) { 1570s [00:52:50.330] ...future.stdout <- base::rawConnection(base::raw(0L), 1570s [00:52:50.330] open = "w") 1570s [00:52:50.330] } 1570s [00:52:50.330] else { 1570s [00:52:50.330] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1570s [00:52:50.330] windows = "NUL", "/dev/null"), open = "w") 1570s [00:52:50.330] } 1570s [00:52:50.330] base::sink(...future.stdout, type = "output", split = FALSE) 1570s [00:52:50.330] base::on.exit(if (!base::is.null(...future.stdout)) { 1570s [00:52:50.330] base::sink(type = "output", split = FALSE) 1570s [00:52:50.330] base::close(...future.stdout) 1570s [00:52:50.330] }, add = TRUE) 1570s [00:52:50.330] } 1570s [00:52:50.330] ...future.frame <- base::sys.nframe() 1570s [00:52:50.330] ...future.conditions <- base::list() 1570s [00:52:50.330] ...future.rng <- base::globalenv()$.Random.seed 1570s [00:52:50.330] if (FALSE) { 1570s [00:52:50.330] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1570s [00:52:50.330] "...future.value", "...future.globalenv.names", ".Random.seed") 1570s [00:52:50.330] } 1570s [00:52:50.330] ...future.result <- base::tryCatch({ 1570s [00:52:50.330] base::withCallingHandlers({ 1570s [00:52:50.330] ...future.value <- base::withVisible(base::local({ 1570s [00:52:50.330] do.call(function(...) { 1570s [00:52:50.330] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1570s [00:52:50.330] if (!identical(...future.globals.maxSize.org, 1570s [00:52:50.330] ...future.globals.maxSize)) { 1570s [00:52:50.330] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1570s [00:52:50.330] on.exit(options(oopts), add = TRUE) 1570s [00:52:50.330] } 1570s [00:52:50.330] { 1570s [00:52:50.330] lapply(seq_along(...future.elements_ii), 1570s [00:52:50.330] FUN = function(jj) { 1570s [00:52:50.330] ...future.X_jj <- ...future.elements_ii[[jj]] 1570s [00:52:50.330] ...future.FUN(...future.X_jj, ...) 1570s [00:52:50.330] }) 1570s [00:52:50.330] } 1570s [00:52:50.330] }, args = future.call.arguments) 1570s [00:52:50.330] })) 1570s [00:52:50.330] future::FutureResult(value = ...future.value$value, 1570s [00:52:50.330] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1570s [00:52:50.330] ...future.rng), globalenv = if (FALSE) 1570s [00:52:50.330] list(added = base::setdiff(base::names(base::.GlobalEnv), 1570s [00:52:50.330] ...future.globalenv.names)) 1570s [00:52:50.330] else NULL, started = ...future.startTime, version = "1.8") 1570s [00:52:50.330] }, condition = base::local({ 1570s [00:52:50.330] c <- base::c 1570s [00:52:50.330] inherits <- base::inherits 1570s [00:52:50.330] invokeRestart <- base::invokeRestart 1570s [00:52:50.330] length <- base::length 1570s [00:52:50.330] list <- base::list 1570s [00:52:50.330] seq.int <- base::seq.int 1570s [00:52:50.330] signalCondition <- base::signalCondition 1570s [00:52:50.330] sys.calls <- base::sys.calls 1570s [00:52:50.330] `[[` <- base::`[[` 1570s [00:52:50.330] `+` <- base::`+` 1570s [00:52:50.330] `<<-` <- base::`<<-` 1570s [00:52:50.330] sysCalls <- function(calls = sys.calls(), from = 1L) { 1570s [00:52:50.330] calls[seq.int(from = from + 12L, to = length(calls) - 1570s [00:52:50.330] 3L)] 1570s [00:52:50.330] } 1570s [00:52:50.330] function(cond) { 1570s [00:52:50.330] is_error <- inherits(cond, "error") 1570s [00:52:50.330] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1570s [00:52:50.330] NULL) 1570s [00:52:50.330] if (is_error) { 1570s [00:52:50.330] sessionInformation <- function() { 1570s [00:52:50.330] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1570s [00:52:50.330] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1570s [00:52:50.330] search = base::search(), system = base::Sys.info()) 1570s [00:52:50.330] } 1570s [00:52:50.330] ...future.conditions[[length(...future.conditions) + 1570s [00:52:50.330] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1570s [00:52:50.330] cond$call), session = sessionInformation(), 1570s [00:52:50.330] timestamp = base::Sys.time(), signaled = 0L) 1570s [00:52:50.330] signalCondition(cond) 1570s [00:52:50.330] } 1570s [00:52:50.330] else if (!ignore && TRUE && inherits(cond, c("condition", 1570s [00:52:50.330] "immediateCondition"))) { 1570s [00:52:50.330] signal <- TRUE && inherits(cond, "immediateCondition") 1570s [00:52:50.330] ...future.conditions[[length(...future.conditions) + 1570s [00:52:50.330] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1570s [00:52:50.330] if (TRUE && !signal) { 1570s [00:52:50.330] muffleCondition <- function (cond, pattern = "^muffle") 1570s [00:52:50.330] { 1570s [00:52:50.330] inherits <- base::inherits 1570s [00:52:50.330] invokeRestart <- base::invokeRestart 1570s [00:52:50.330] is.null <- base::is.null 1570s [00:52:50.330] muffled <- FALSE 1570s [00:52:50.330] if (inherits(cond, "message")) { 1570s [00:52:50.330] muffled <- grepl(pattern, "muffleMessage") 1570s [00:52:50.330] if (muffled) 1570s [00:52:50.330] invokeRestart("muffleMessage") 1570s [00:52:50.330] } 1570s [00:52:50.330] else if (inherits(cond, "warning")) { 1570s [00:52:50.330] muffled <- grepl(pattern, "muffleWarning") 1570s [00:52:50.330] if (muffled) 1570s [00:52:50.330] invokeRestart("muffleWarning") 1570s [00:52:50.330] } 1570s [00:52:50.330] else if (inherits(cond, "condition")) { 1570s [00:52:50.330] if (!is.null(pattern)) { 1570s [00:52:50.330] computeRestarts <- base::computeRestarts 1570s [00:52:50.330] grepl <- base::grepl 1570s [00:52:50.330] restarts <- computeRestarts(cond) 1570s [00:52:50.330] for (restart in restarts) { 1570s [00:52:50.330] name <- restart$name 1570s [00:52:50.330] if (is.null(name)) 1570s [00:52:50.330] next 1570s [00:52:50.330] if (!grepl(pattern, name)) 1570s [00:52:50.330] next 1570s [00:52:50.330] invokeRestart(restart) 1570s [00:52:50.330] muffled <- TRUE 1570s [00:52:50.330] break 1570s [00:52:50.330] } 1570s [00:52:50.330] } 1570s [00:52:50.330] } 1570s [00:52:50.330] invisible(muffled) 1570s [00:52:50.330] } 1570s [00:52:50.330] muffleCondition(cond, pattern = "^muffle") 1570s [00:52:50.330] } 1570s [00:52:50.330] } 1570s [00:52:50.330] else { 1570s [00:52:50.330] if (TRUE) { 1570s [00:52:50.330] muffleCondition <- function (cond, pattern = "^muffle") 1570s [00:52:50.330] { 1570s [00:52:50.330] inherits <- base::inherits 1570s [00:52:50.330] invokeRestart <- base::invokeRestart 1570s [00:52:50.330] is.null <- base::is.null 1570s [00:52:50.330] muffled <- FALSE 1570s [00:52:50.330] if (inherits(cond, "message")) { 1570s [00:52:50.330] muffled <- grepl(pattern, "muffleMessage") 1570s [00:52:50.330] if (muffled) 1570s [00:52:50.330] invokeRestart("muffleMessage") 1570s [00:52:50.330] } 1570s [00:52:50.330] else if (inherits(cond, "warning")) { 1570s [00:52:50.330] muffled <- grepl(pattern, "muffleWarning") 1570s [00:52:50.330] if (muffled) 1570s [00:52:50.330] invokeRestart("muffleWarning") 1570s [00:52:50.330] } 1570s [00:52:50.330] else if (inherits(cond, "condition")) { 1570s [00:52:50.330] if (!is.null(pattern)) { 1570s [00:52:50.330] computeRestarts <- base::computeRestarts 1570s [00:52:50.330] grepl <- base::grepl 1570s [00:52:50.330] restarts <- computeRestarts(cond) 1570s [00:52:50.330] for (restart in restarts) { 1570s [00:52:50.330] name <- restart$name 1570s [00:52:50.330] if (is.null(name)) 1570s [00:52:50.330] next 1570s [00:52:50.330] if (!grepl(pattern, name)) 1570s [00:52:50.330] next 1570s [00:52:50.330] invokeRestart(restart) 1570s [00:52:50.330] muffled <- TRUE 1570s [00:52:50.330] break 1570s [00:52:50.330] } 1570s [00:52:50.330] } 1570s [00:52:50.330] } 1570s [00:52:50.330] invisible(muffled) 1570s [00:52:50.330] } 1570s [00:52:50.330] muffleCondition(cond, pattern = "^muffle") 1570s [00:52:50.330] } 1570s [00:52:50.330] } 1570s [00:52:50.330] } 1570s [00:52:50.330] })) 1570s [00:52:50.330] }, error = function(ex) { 1570s [00:52:50.330] base::structure(base::list(value = NULL, visible = NULL, 1570s [00:52:50.330] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1570s [00:52:50.330] ...future.rng), started = ...future.startTime, 1570s [00:52:50.330] finished = Sys.time(), session_uuid = NA_character_, 1570s [00:52:50.330] version = "1.8"), class = "FutureResult") 1570s [00:52:50.330] }, finally = { 1570s [00:52:50.330] if (!identical(...future.workdir, getwd())) 1570s [00:52:50.330] setwd(...future.workdir) 1570s [00:52:50.330] { 1570s [00:52:50.330] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1570s [00:52:50.330] ...future.oldOptions$nwarnings <- NULL 1570s [00:52:50.330] } 1570s [00:52:50.330] base::options(...future.oldOptions) 1570s [00:52:50.330] if (.Platform$OS.type == "windows") { 1570s [00:52:50.330] old_names <- names(...future.oldEnvVars) 1570s [00:52:50.330] envs <- base::Sys.getenv() 1570s [00:52:50.330] names <- names(envs) 1570s [00:52:50.330] common <- intersect(names, old_names) 1570s [00:52:50.330] added <- setdiff(names, old_names) 1570s [00:52:50.330] removed <- setdiff(old_names, names) 1570s [00:52:50.330] changed <- common[...future.oldEnvVars[common] != 1570s [00:52:50.330] envs[common]] 1570s [00:52:50.330] NAMES <- toupper(changed) 1570s [00:52:50.330] args <- list() 1570s [00:52:50.330] for (kk in seq_along(NAMES)) { 1570s [00:52:50.330] name <- changed[[kk]] 1570s [00:52:50.330] NAME <- NAMES[[kk]] 1570s [00:52:50.330] if (name != NAME && is.element(NAME, old_names)) 1570s [00:52:50.330] next 1570s [00:52:50.330] args[[name]] <- ...future.oldEnvVars[[name]] 1570s [00:52:50.330] } 1570s [00:52:50.330] NAMES <- toupper(added) 1570s [00:52:50.330] for (kk in seq_along(NAMES)) { 1570s [00:52:50.330] name <- added[[kk]] 1570s [00:52:50.330] NAME <- NAMES[[kk]] 1570s [00:52:50.330] if (name != NAME && is.element(NAME, old_names)) 1570s [00:52:50.330] next 1570s [00:52:50.330] args[[name]] <- "" 1570s [00:52:50.330] } 1570s [00:52:50.330] NAMES <- toupper(removed) 1570s [00:52:50.330] for (kk in seq_along(NAMES)) { 1570s [00:52:50.330] name <- removed[[kk]] 1570s [00:52:50.330] NAME <- NAMES[[kk]] 1570s [00:52:50.330] if (name != NAME && is.element(NAME, old_names)) 1570s [00:52:50.330] next 1570s [00:52:50.330] args[[name]] <- ...future.oldEnvVars[[name]] 1570s [00:52:50.330] } 1570s [00:52:50.330] if (length(args) > 0) 1570s [00:52:50.330] base::do.call(base::Sys.setenv, args = args) 1570s [00:52:50.330] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1570s [00:52:50.330] } 1570s [00:52:50.330] else { 1570s [00:52:50.330] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1570s [00:52:50.330] } 1570s [00:52:50.330] { 1570s [00:52:50.330] if (base::length(...future.futureOptionsAdded) > 1570s [00:52:50.330] 0L) { 1570s [00:52:50.330] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1570s [00:52:50.330] base::names(opts) <- ...future.futureOptionsAdded 1570s [00:52:50.330] base::options(opts) 1570s [00:52:50.330] } 1570s [00:52:50.330] { 1570s [00:52:50.330] { 1570s [00:52:50.330] NULL 1570s [00:52:50.330] RNGkind("Mersenne-Twister") 1570s [00:52:50.330] base::rm(list = ".Random.seed", envir = base::globalenv(), 1570s [00:52:50.330] inherits = FALSE) 1570s [00:52:50.330] } 1570s [00:52:50.330] options(future.plan = NULL) 1570s [00:52:50.330] if (is.na(NA_character_)) 1570s [00:52:50.330] Sys.unsetenv("R_FUTURE_PLAN") 1570s [00:52:50.330] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1570s [00:52:50.330] future::plan(list(function (..., envir = parent.frame()) 1570s [00:52:50.330] { 1570s [00:52:50.330] future <- SequentialFuture(..., envir = envir) 1570s [00:52:50.330] if (!future$lazy) 1570s [00:52:50.330] future <- run(future) 1570s [00:52:50.330] invisible(future) 1570s [00:52:50.330] }), .cleanup = FALSE, .init = FALSE) 1570s [00:52:50.330] } 1570s [00:52:50.330] } 1570s [00:52:50.330] } 1570s [00:52:50.330] }) 1570s [00:52:50.330] if (TRUE) { 1570s [00:52:50.330] base::sink(type = "output", split = FALSE) 1570s [00:52:50.330] if (TRUE) { 1570s [00:52:50.330] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1570s [00:52:50.330] } 1570s [00:52:50.330] else { 1570s [00:52:50.330] ...future.result["stdout"] <- base::list(NULL) 1570s [00:52:50.330] } 1570s [00:52:50.330] base::close(...future.stdout) 1570s [00:52:50.330] ...future.stdout <- NULL 1570s [00:52:50.330] } 1570s [00:52:50.330] ...future.result$conditions <- ...future.conditions 1570s [00:52:50.330] ...future.result$finished <- base::Sys.time() 1570s [00:52:50.330] ...future.result 1570s [00:52:50.330] } 1570s [00:52:50.334] assign_globals() ... 1570s [00:52:50.334] List of 5 1570s [00:52:50.334] $ ...future.FUN :function (x, ...) 1570s [00:52:50.334] $ future.call.arguments : list() 1570s [00:52:50.334] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1570s [00:52:50.334] $ ...future.elements_ii :List of 6 1570s [00:52:50.334] ..$ a1: int 1 1570s [00:52:50.334] ..$ a2: int 2 1570s [00:52:50.334] ..$ b1: int 2 1570s [00:52:50.334] ..$ b2: int 3 1570s [00:52:50.334] ..$ c1: int 3 1570s [00:52:50.334] ..$ c2: int 4 1570s [00:52:50.334] $ ...future.seeds_ii : NULL 1570s [00:52:50.334] $ ...future.globals.maxSize: NULL 1570s [00:52:50.334] - attr(*, "where")=List of 5 1570s [00:52:50.334] ..$ ...future.FUN : 1570s [00:52:50.334] ..$ future.call.arguments : 1570s [00:52:50.334] ..$ ...future.elements_ii : 1570s [00:52:50.334] ..$ ...future.seeds_ii : 1570s [00:52:50.334] ..$ ...future.globals.maxSize: 1570s [00:52:50.334] - attr(*, "resolved")= logi FALSE 1570s [00:52:50.334] - attr(*, "total_size")= num 1248 1570s [00:52:50.334] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1570s [00:52:50.334] - attr(*, "already-done")= logi TRUE 1570s [00:52:50.348] - copied ‘...future.FUN’ to environment 1570s [00:52:50.348] - copied ‘future.call.arguments’ to environment 1570s [00:52:50.348] - copied ‘...future.elements_ii’ to environment 1570s [00:52:50.348] - copied ‘...future.seeds_ii’ to environment 1570s [00:52:50.348] - copied ‘...future.globals.maxSize’ to environment 1570s [00:52:50.349] assign_globals() ... done 1570s [00:52:50.349] plan(): Setting new future strategy stack: 1570s [00:52:50.349] List of future strategies: 1570s [00:52:50.349] 1. sequential: 1570s [00:52:50.349] - args: function (..., envir = parent.frame()) 1570s [00:52:50.349] - tweaked: FALSE 1570s [00:52:50.349] - call: NULL 1570s [00:52:50.350] plan(): nbrOfWorkers() = 1 1570s [00:52:50.351] plan(): Setting new future strategy stack: 1570s [00:52:50.351] List of future strategies: 1570s [00:52:50.351] 1. sequential: 1570s [00:52:50.351] - args: function (..., envir = parent.frame()) 1570s [00:52:50.351] - tweaked: FALSE 1570s [00:52:50.351] - call: plan(strategy) 1570s [00:52:50.353] plan(): nbrOfWorkers() = 1 1570s [00:52:50.353] SequentialFuture started (and completed) 1570s [00:52:50.353] - Launch lazy future ... done 1570s [00:52:50.353] run() for ‘SequentialFuture’ ... done 1570s [00:52:50.353] Created future: 1570s [00:52:50.353] SequentialFuture: 1570s [00:52:50.353] Label: ‘future_sapply-1’ 1570s [00:52:50.353] Expression: 1570s [00:52:50.353] { 1570s [00:52:50.353] do.call(function(...) { 1570s [00:52:50.353] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1570s [00:52:50.353] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1570s [00:52:50.353] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1570s [00:52:50.353] on.exit(options(oopts), add = TRUE) 1570s [00:52:50.353] } 1570s [00:52:50.353] { 1570s [00:52:50.353] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1570s [00:52:50.353] ...future.X_jj <- ...future.elements_ii[[jj]] 1570s [00:52:50.353] ...future.FUN(...future.X_jj, ...) 1570s [00:52:50.353] }) 1570s [00:52:50.353] } 1570s [00:52:50.353] }, args = future.call.arguments) 1570s [00:52:50.353] } 1570s [00:52:50.353] Lazy evaluation: FALSE 1570s [00:52:50.353] Asynchronous evaluation: FALSE 1570s [00:52:50.353] Local evaluation: TRUE 1570s [00:52:50.353] Environment: R_GlobalEnv 1570s [00:52:50.353] Capture standard output: TRUE 1570s [00:52:50.353] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1570s [00:52:50.353] Globals: 5 objects totaling 1.55 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1570s [00:52:50.353] Packages: 1570s [00:52:50.353] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1570s [00:52:50.353] Resolved: TRUE 1570s [00:52:50.353] Value: 1.31 KiB of class ‘list’ 1570s [00:52:50.353] Early signaling: FALSE 1570s [00:52:50.353] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1570s [00:52:50.353] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1570s [00:52:50.356] Chunk #1 of 1 ... DONE 1570s [00:52:50.356] Launching 1 futures (chunks) ... DONE 1570s [00:52:50.356] Resolving 1 futures (chunks) ... 1570s [00:52:50.356] resolve() on list ... 1570s [00:52:50.357] recursive: 0 1570s [00:52:50.357] length: 1 1570s [00:52:50.357] 1570s [00:52:50.357] resolved() for ‘SequentialFuture’ ... 1570s [00:52:50.357] - state: ‘finished’ 1570s [00:52:50.358] - run: TRUE 1570s [00:52:50.358] - result: ‘FutureResult’ 1570s [00:52:50.358] resolved() for ‘SequentialFuture’ ... done 1570s [00:52:50.359] Future #1 1570s [00:52:50.359] signalConditionsASAP(SequentialFuture, pos=1) ... 1570s [00:52:50.359] - nx: 1 1570s [00:52:50.359] - relay: TRUE 1570s [00:52:50.359] - stdout: TRUE 1570s [00:52:50.360] - signal: TRUE 1570s [00:52:50.360] - resignal: FALSE 1570s [00:52:50.360] - force: TRUE 1570s [00:52:50.361] - relayed: [n=1] FALSE 1570s [00:52:50.361] - queued futures: [n=1] FALSE 1570s [00:52:50.361] - until=1 1570s [00:52:50.361] - relaying element #1 1570s [00:52:50.362] - relayed: [n=1] TRUE 1570s [00:52:50.362] - queued futures: [n=1] TRUE 1570s [00:52:50.363] signalConditionsASAP(SequentialFuture, pos=1) ... done 1570s [00:52:50.363] length: 0 (resolved future 1) 1570s [00:52:50.363] Relaying remaining futures 1570s [00:52:50.363] signalConditionsASAP(NULL, pos=0) ... 1570s [00:52:50.363] - nx: 1 1570s [00:52:50.363] - relay: TRUE 1570s [00:52:50.363] - stdout: TRUE 1570s [00:52:50.364] - signal: TRUE 1570s [00:52:50.364] - resignal: FALSE 1570s [00:52:50.364] - force: TRUE 1570s [00:52:50.365] - relayed: [n=1] TRUE 1570s [00:52:50.365] - queued futures: [n=1] TRUE 1570s - flush all 1570s [00:52:50.365] - relayed: [n=1] TRUE 1570s [00:52:50.366] - queued futures: [n=1] TRUE 1570s [00:52:50.366] signalConditionsASAP(NULL, pos=0) ... done 1570s [00:52:50.366] resolve() on list ... DONE 1570s [00:52:50.366] - Number of value chunks collected: 1 1570s [00:52:50.366] Resolving 1 futures (chunks) ... DONE 1570s [00:52:50.366] Reducing values from 1 chunks ... 1570s [00:52:50.367] - Number of values collected after concatenation: 6 1570s [00:52:50.367] - Number of values expected: 6 1570s [00:52:50.367] Reducing values from 1 chunks ... DONE 1570s [00:52:50.367] future_lapply() ... DONE 1570s List of 2 1570s $ y0: Named int [1:6] 1 2 2 3 3 4 1570s ..- attr(*, "names")= chr [1:6] "a1" "a2" "b1" "b2" ... 1570s $ y1: Named int [1:6] 1 2 2 3 3 4 1570s ..- attr(*, "names")= chr [1:6] "a1" "a2" "b1" "b2" ... 1570s [00:52:50.371] future_lapply() ... 1570s [00:52:50.372] Number of chunks: 1 1570s [00:52:50.373] getGlobalsAndPackagesXApply() ... 1570s [00:52:50.373] - future.globals: TRUE 1570s [00:52:50.373] getGlobalsAndPackages() ... 1570s [00:52:50.373] Searching for globals... 1570s [00:52:50.375] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1570s [00:52:50.376] Searching for globals ... DONE 1570s [00:52:50.376] Resolving globals: FALSE 1570s [00:52:50.377] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1570s [00:52:50.377] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1570s [00:52:50.378] - globals: [1] ‘FUN’ 1570s [00:52:50.378] 1570s [00:52:50.378] getGlobalsAndPackages() ... DONE 1570s [00:52:50.378] - globals found/used: [n=1] ‘FUN’ 1570s [00:52:50.378] - needed namespaces: [n=0] 1570s [00:52:50.378] Finding globals ... DONE 1570s [00:52:50.379] - use_args: TRUE 1570s [00:52:50.379] - Getting '...' globals ... 1570s [00:52:50.379] resolve() on list ... 1570s [00:52:50.379] recursive: 0 1570s [00:52:50.379] length: 1 1570s [00:52:50.380] elements: ‘...’ 1570s [00:52:50.380] length: 0 (resolved future 1) 1570s [00:52:50.380] resolve() on list ... DONE 1570s [00:52:50.381] - '...' content: [n=0] 1570s [00:52:50.381] List of 1 1570s [00:52:50.381] $ ...: list() 1570s [00:52:50.381] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1570s [00:52:50.381] - attr(*, "where")=List of 1 1570s [00:52:50.381] ..$ ...: 1570s [00:52:50.381] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1570s [00:52:50.381] - attr(*, "resolved")= logi TRUE 1570s [00:52:50.381] - attr(*, "total_size")= num NA 1570s [00:52:50.385] - Getting '...' globals ... DONE 1570s [00:52:50.386] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1570s [00:52:50.386] List of 2 1570s [00:52:50.386] $ ...future.FUN:function (x, y = 2 * 1:5) 1570s [00:52:50.386] $ ... : list() 1570s [00:52:50.386] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1570s [00:52:50.386] - attr(*, "where")=List of 2 1570s [00:52:50.386] ..$ ...future.FUN: 1570s [00:52:50.386] ..$ ... : 1570s [00:52:50.386] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1570s [00:52:50.386] - attr(*, "resolved")= logi FALSE 1570s [00:52:50.386] - attr(*, "total_size")= num 4728 1570s [00:52:50.393] Packages to be attached in all futures: [n=0] 1570s [00:52:50.393] getGlobalsAndPackagesXApply() ... DONE 1570s [00:52:50.393] Number of futures (= number of chunks): 1 1570s [00:52:50.394] Launching 1 futures (chunks) ... 1570s [00:52:50.394] Chunk #1 of 1 ... 1570s [00:52:50.394] - Finding globals in 'X' for chunk #1 ... 1570s [00:52:50.394] getGlobalsAndPackages() ... 1570s [00:52:50.395] Searching for globals... 1570s [00:52:50.395] 1570s [00:52:50.395] Searching for globals ... DONE 1570s [00:52:50.395] - globals: [0] 1570s [00:52:50.395] getGlobalsAndPackages() ... DONE 1570s [00:52:50.396] + additional globals found: [n=0] 1570s [00:52:50.396] + additional namespaces needed: [n=0] 1570s [00:52:50.396] - Finding globals in 'X' for chunk #1 ... DONE 1570s [00:52:50.396] - seeds: 1570s [00:52:50.396] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1570s [00:52:50.396] getGlobalsAndPackages() ... 1570s [00:52:50.397] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1570s [00:52:50.397] Resolving globals: FALSE 1570s [00:52:50.397] Tweak future expression to call with '...' arguments ... 1570s [00:52:50.397] { 1570s [00:52:50.397] do.call(function(...) { 1570s [00:52:50.397] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1570s [00:52:50.397] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1570s [00:52:50.397] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1570s [00:52:50.397] on.exit(options(oopts), add = TRUE) 1570s [00:52:50.397] } 1570s [00:52:50.397] { 1570s [00:52:50.397] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1570s [00:52:50.397] ...future.X_jj <- ...future.elements_ii[[jj]] 1570s [00:52:50.397] ...future.FUN(...future.X_jj, ...) 1570s [00:52:50.397] }) 1570s [00:52:50.397] } 1570s [00:52:50.397] }, args = future.call.arguments) 1570s [00:52:50.397] } 1570s [00:52:50.398] Tweak future expression to call with '...' arguments ... DONE 1570s [00:52:50.398] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1570s [00:52:50.398] 1570s [00:52:50.399] getGlobalsAndPackages() ... DONE 1570s [00:52:50.399] run() for ‘Future’ ... 1570s [00:52:50.399] - state: ‘created’ 1570s [00:52:50.399] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1570s [00:52:50.400] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1570s [00:52:50.400] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1570s [00:52:50.400] - Field: ‘label’ 1570s [00:52:50.401] - Field: ‘local’ 1570s [00:52:50.401] - Field: ‘owner’ 1570s [00:52:50.401] - Field: ‘envir’ 1570s [00:52:50.401] - Field: ‘packages’ 1570s [00:52:50.401] - Field: ‘gc’ 1570s [00:52:50.401] - Field: ‘conditions’ 1570s [00:52:50.401] - Field: ‘expr’ 1570s [00:52:50.402] - Field: ‘uuid’ 1570s [00:52:50.402] - Field: ‘seed’ 1570s [00:52:50.402] - Field: ‘version’ 1570s [00:52:50.402] - Field: ‘result’ 1570s [00:52:50.402] - Field: ‘asynchronous’ 1570s [00:52:50.403] - Field: ‘calls’ 1570s [00:52:50.403] - Field: ‘globals’ 1570s [00:52:50.403] - Field: ‘stdout’ 1570s [00:52:50.403] - Field: ‘earlySignal’ 1570s [00:52:50.403] - Field: ‘lazy’ 1570s [00:52:50.403] - Field: ‘state’ 1570s [00:52:50.403] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1570s [00:52:50.404] - Launch lazy future ... 1570s [00:52:50.404] Packages needed by the future expression (n = 0): 1570s [00:52:50.404] Packages needed by future strategies (n = 0): 1570s [00:52:50.405] { 1570s [00:52:50.405] { 1570s [00:52:50.405] { 1570s [00:52:50.405] ...future.startTime <- base::Sys.time() 1570s [00:52:50.405] { 1570s [00:52:50.405] { 1570s [00:52:50.405] { 1570s [00:52:50.405] base::local({ 1570s [00:52:50.405] has_future <- base::requireNamespace("future", 1570s [00:52:50.405] quietly = TRUE) 1570s [00:52:50.405] if (has_future) { 1570s [00:52:50.405] ns <- base::getNamespace("future") 1570s [00:52:50.405] version <- ns[[".package"]][["version"]] 1570s [00:52:50.405] if (is.null(version)) 1570s [00:52:50.405] version <- utils::packageVersion("future") 1570s [00:52:50.405] } 1570s [00:52:50.405] else { 1570s [00:52:50.405] version <- NULL 1570s [00:52:50.405] } 1570s [00:52:50.405] if (!has_future || version < "1.8.0") { 1570s [00:52:50.405] info <- base::c(r_version = base::gsub("R version ", 1570s [00:52:50.405] "", base::R.version$version.string), 1570s [00:52:50.405] platform = base::sprintf("%s (%s-bit)", 1570s [00:52:50.405] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1570s [00:52:50.405] os = base::paste(base::Sys.info()[base::c("sysname", 1570s [00:52:50.405] "release", "version")], collapse = " "), 1570s [00:52:50.405] hostname = base::Sys.info()[["nodename"]]) 1570s [00:52:50.405] info <- base::sprintf("%s: %s", base::names(info), 1570s [00:52:50.405] info) 1570s [00:52:50.405] info <- base::paste(info, collapse = "; ") 1570s [00:52:50.405] if (!has_future) { 1570s [00:52:50.405] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1570s [00:52:50.405] info) 1570s [00:52:50.405] } 1570s [00:52:50.405] else { 1570s [00:52:50.405] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1570s [00:52:50.405] info, version) 1570s [00:52:50.405] } 1570s [00:52:50.405] base::stop(msg) 1570s [00:52:50.405] } 1570s [00:52:50.405] }) 1570s [00:52:50.405] } 1570s [00:52:50.405] options(future.plan = NULL) 1570s [00:52:50.405] Sys.unsetenv("R_FUTURE_PLAN") 1570s [00:52:50.405] future::plan("default", .cleanup = FALSE, .init = FALSE) 1570s [00:52:50.405] } 1570s [00:52:50.405] ...future.workdir <- getwd() 1570s [00:52:50.405] } 1570s [00:52:50.405] ...future.oldOptions <- base::as.list(base::.Options) 1570s [00:52:50.405] ...future.oldEnvVars <- base::Sys.getenv() 1570s [00:52:50.405] } 1570s [00:52:50.405] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1570s [00:52:50.405] future.globals.maxSize = NULL, future.globals.method = NULL, 1570s [00:52:50.405] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1570s [00:52:50.405] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1570s [00:52:50.405] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1570s [00:52:50.405] future.stdout.windows.reencode = NULL, width = 80L) 1570s [00:52:50.405] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1570s [00:52:50.405] base::names(...future.oldOptions)) 1570s [00:52:50.405] } 1570s [00:52:50.405] if (FALSE) { 1570s [00:52:50.405] } 1570s [00:52:50.405] else { 1570s [00:52:50.405] if (TRUE) { 1570s [00:52:50.405] ...future.stdout <- base::rawConnection(base::raw(0L), 1570s [00:52:50.405] open = "w") 1570s [00:52:50.405] } 1570s [00:52:50.405] else { 1570s [00:52:50.405] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1570s [00:52:50.405] windows = "NUL", "/dev/null"), open = "w") 1570s [00:52:50.405] } 1570s [00:52:50.405] base::sink(...future.stdout, type = "output", split = FALSE) 1570s [00:52:50.405] base::on.exit(if (!base::is.null(...future.stdout)) { 1570s [00:52:50.405] base::sink(type = "output", split = FALSE) 1570s [00:52:50.405] base::close(...future.stdout) 1570s [00:52:50.405] }, add = TRUE) 1570s [00:52:50.405] } 1570s [00:52:50.405] ...future.frame <- base::sys.nframe() 1570s [00:52:50.405] ...future.conditions <- base::list() 1570s [00:52:50.405] ...future.rng <- base::globalenv()$.Random.seed 1570s [00:52:50.405] if (FALSE) { 1570s [00:52:50.405] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1570s [00:52:50.405] "...future.value", "...future.globalenv.names", ".Random.seed") 1570s [00:52:50.405] } 1570s [00:52:50.405] ...future.result <- base::tryCatch({ 1570s [00:52:50.405] base::withCallingHandlers({ 1570s [00:52:50.405] ...future.value <- base::withVisible(base::local({ 1570s [00:52:50.405] do.call(function(...) { 1570s [00:52:50.405] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1570s [00:52:50.405] if (!identical(...future.globals.maxSize.org, 1570s [00:52:50.405] ...future.globals.maxSize)) { 1570s [00:52:50.405] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1570s [00:52:50.405] on.exit(options(oopts), add = TRUE) 1570s [00:52:50.405] } 1570s [00:52:50.405] { 1570s [00:52:50.405] lapply(seq_along(...future.elements_ii), 1570s [00:52:50.405] FUN = function(jj) { 1570s [00:52:50.405] ...future.X_jj <- ...future.elements_ii[[jj]] 1570s [00:52:50.405] ...future.FUN(...future.X_jj, ...) 1570s [00:52:50.405] }) 1570s [00:52:50.405] } 1570s [00:52:50.405] }, args = future.call.arguments) 1570s [00:52:50.405] })) 1570s [00:52:50.405] future::FutureResult(value = ...future.value$value, 1570s [00:52:50.405] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1570s [00:52:50.405] ...future.rng), globalenv = if (FALSE) 1570s [00:52:50.405] list(added = base::setdiff(base::names(base::.GlobalEnv), 1570s [00:52:50.405] ...future.globalenv.names)) 1570s [00:52:50.405] else NULL, started = ...future.startTime, version = "1.8") 1570s [00:52:50.405] }, condition = base::local({ 1570s [00:52:50.405] c <- base::c 1570s [00:52:50.405] inherits <- base::inherits 1570s [00:52:50.405] invokeRestart <- base::invokeRestart 1570s [00:52:50.405] length <- base::length 1570s [00:52:50.405] list <- base::list 1570s [00:52:50.405] seq.int <- base::seq.int 1570s [00:52:50.405] signalCondition <- base::signalCondition 1570s [00:52:50.405] sys.calls <- base::sys.calls 1570s [00:52:50.405] `[[` <- base::`[[` 1570s [00:52:50.405] `+` <- base::`+` 1570s [00:52:50.405] `<<-` <- base::`<<-` 1570s [00:52:50.405] sysCalls <- function(calls = sys.calls(), from = 1L) { 1570s [00:52:50.405] calls[seq.int(from = from + 12L, to = length(calls) - 1570s [00:52:50.405] 3L)] 1570s [00:52:50.405] } 1570s [00:52:50.405] function(cond) { 1570s [00:52:50.405] is_error <- inherits(cond, "error") 1570s [00:52:50.405] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1570s [00:52:50.405] NULL) 1570s [00:52:50.405] if (is_error) { 1570s [00:52:50.405] sessionInformation <- function() { 1570s [00:52:50.405] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1570s [00:52:50.405] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1570s [00:52:50.405] search = base::search(), system = base::Sys.info()) 1570s [00:52:50.405] } 1570s [00:52:50.405] ...future.conditions[[length(...future.conditions) + 1570s [00:52:50.405] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1570s [00:52:50.405] cond$call), session = sessionInformation(), 1570s [00:52:50.405] timestamp = base::Sys.time(), signaled = 0L) 1570s [00:52:50.405] signalCondition(cond) 1570s [00:52:50.405] } 1570s [00:52:50.405] else if (!ignore && TRUE && inherits(cond, c("condition", 1570s [00:52:50.405] "immediateCondition"))) { 1570s [00:52:50.405] signal <- TRUE && inherits(cond, "immediateCondition") 1570s [00:52:50.405] ...future.conditions[[length(...future.conditions) + 1570s [00:52:50.405] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1570s [00:52:50.405] if (TRUE && !signal) { 1570s [00:52:50.405] muffleCondition <- function (cond, pattern = "^muffle") 1570s [00:52:50.405] { 1570s [00:52:50.405] inherits <- base::inherits 1570s [00:52:50.405] invokeRestart <- base::invokeRestart 1570s [00:52:50.405] is.null <- base::is.null 1570s [00:52:50.405] muffled <- FALSE 1570s [00:52:50.405] if (inherits(cond, "message")) { 1570s [00:52:50.405] muffled <- grepl(pattern, "muffleMessage") 1570s [00:52:50.405] if (muffled) 1570s [00:52:50.405] invokeRestart("muffleMessage") 1570s [00:52:50.405] } 1570s [00:52:50.405] else if (inherits(cond, "warning")) { 1570s [00:52:50.405] muffled <- grepl(pattern, "muffleWarning") 1570s [00:52:50.405] if (muffled) 1570s [00:52:50.405] invokeRestart("muffleWarning") 1570s [00:52:50.405] } 1570s [00:52:50.405] else if (inherits(cond, "condition")) { 1570s [00:52:50.405] if (!is.null(pattern)) { 1570s [00:52:50.405] computeRestarts <- base::computeRestarts 1570s [00:52:50.405] grepl <- base::grepl 1570s [00:52:50.405] restarts <- computeRestarts(cond) 1570s [00:52:50.405] for (restart in restarts) { 1570s [00:52:50.405] name <- restart$name 1570s [00:52:50.405] if (is.null(name)) 1570s [00:52:50.405] next 1570s [00:52:50.405] if (!grepl(pattern, name)) 1570s [00:52:50.405] next 1570s [00:52:50.405] invokeRestart(restart) 1570s [00:52:50.405] muffled <- TRUE 1570s [00:52:50.405] break 1570s [00:52:50.405] } 1570s [00:52:50.405] } 1570s [00:52:50.405] } 1570s [00:52:50.405] invisible(muffled) 1570s [00:52:50.405] } 1570s [00:52:50.405] muffleCondition(cond, pattern = "^muffle") 1570s [00:52:50.405] } 1570s [00:52:50.405] } 1570s [00:52:50.405] else { 1570s [00:52:50.405] if (TRUE) { 1570s [00:52:50.405] muffleCondition <- function (cond, pattern = "^muffle") 1570s [00:52:50.405] { 1570s [00:52:50.405] inherits <- base::inherits 1570s [00:52:50.405] invokeRestart <- base::invokeRestart 1570s [00:52:50.405] is.null <- base::is.null 1570s [00:52:50.405] muffled <- FALSE 1570s [00:52:50.405] if (inherits(cond, "message")) { 1570s [00:52:50.405] muffled <- grepl(pattern, "muffleMessage") 1570s [00:52:50.405] if (muffled) 1570s [00:52:50.405] invokeRestart("muffleMessage") 1570s [00:52:50.405] } 1570s [00:52:50.405] else if (inherits(cond, "warning")) { 1570s [00:52:50.405] muffled <- grepl(pattern, "muffleWarning") 1570s [00:52:50.405] if (muffled) 1570s [00:52:50.405] invokeRestart("muffleWarning") 1570s [00:52:50.405] } 1570s [00:52:50.405] else if (inherits(cond, "condition")) { 1570s [00:52:50.405] if (!is.null(pattern)) { 1570s [00:52:50.405] computeRestarts <- base::computeRestarts 1570s [00:52:50.405] grepl <- base::grepl 1570s [00:52:50.405] restarts <- computeRestarts(cond) 1570s [00:52:50.405] for (restart in restarts) { 1570s [00:52:50.405] name <- restart$name 1570s [00:52:50.405] if (is.null(name)) 1570s [00:52:50.405] next 1570s [00:52:50.405] if (!grepl(pattern, name)) 1570s [00:52:50.405] next 1570s [00:52:50.405] invokeRestart(restart) 1570s [00:52:50.405] muffled <- TRUE 1570s [00:52:50.405] break 1570s [00:52:50.405] } 1570s [00:52:50.405] } 1570s [00:52:50.405] } 1570s [00:52:50.405] invisible(muffled) 1570s [00:52:50.405] } 1570s [00:52:50.405] muffleCondition(cond, pattern = "^muffle") 1570s [00:52:50.405] } 1570s [00:52:50.405] } 1570s [00:52:50.405] } 1570s [00:52:50.405] })) 1570s [00:52:50.405] }, error = function(ex) { 1570s [00:52:50.405] base::structure(base::list(value = NULL, visible = NULL, 1570s [00:52:50.405] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1570s [00:52:50.405] ...future.rng), started = ...future.startTime, 1570s [00:52:50.405] finished = Sys.time(), session_uuid = NA_character_, 1570s [00:52:50.405] version = "1.8"), class = "FutureResult") 1570s [00:52:50.405] }, finally = { 1570s [00:52:50.405] if (!identical(...future.workdir, getwd())) 1570s [00:52:50.405] setwd(...future.workdir) 1570s [00:52:50.405] { 1570s [00:52:50.405] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1570s [00:52:50.405] ...future.oldOptions$nwarnings <- NULL 1570s [00:52:50.405] } 1570s [00:52:50.405] base::options(...future.oldOptions) 1570s [00:52:50.405] if (.Platform$OS.type == "windows") { 1570s [00:52:50.405] old_names <- names(...future.oldEnvVars) 1570s [00:52:50.405] envs <- base::Sys.getenv() 1570s [00:52:50.405] names <- names(envs) 1570s [00:52:50.405] common <- intersect(names, old_names) 1570s [00:52:50.405] added <- setdiff(names, old_names) 1570s [00:52:50.405] removed <- setdiff(old_names, names) 1570s [00:52:50.405] changed <- common[...future.oldEnvVars[common] != 1570s [00:52:50.405] envs[common]] 1570s [00:52:50.405] NAMES <- toupper(changed) 1570s [00:52:50.405] args <- list() 1570s [00:52:50.405] for (kk in seq_along(NAMES)) { 1570s [00:52:50.405] name <- changed[[kk]] 1570s [00:52:50.405] NAME <- NAMES[[kk]] 1570s [00:52:50.405] if (name != NAME && is.element(NAME, old_names)) 1570s [00:52:50.405] next 1570s [00:52:50.405] args[[name]] <- ...future.oldEnvVars[[name]] 1570s [00:52:50.405] } 1570s [00:52:50.405] NAMES <- toupper(added) 1570s [00:52:50.405] for (kk in seq_along(NAMES)) { 1570s [00:52:50.405] name <- added[[kk]] 1570s [00:52:50.405] NAME <- NAMES[[kk]] 1570s [00:52:50.405] if (name != NAME && is.element(NAME, old_names)) 1570s [00:52:50.405] next 1570s [00:52:50.405] args[[name]] <- "" 1570s [00:52:50.405] } 1570s [00:52:50.405] NAMES <- toupper(removed) 1570s [00:52:50.405] for (kk in seq_along(NAMES)) { 1570s [00:52:50.405] name <- removed[[kk]] 1570s [00:52:50.405] NAME <- NAMES[[kk]] 1570s [00:52:50.405] if (name != NAME && is.element(NAME, old_names)) 1570s [00:52:50.405] next 1570s [00:52:50.405] args[[name]] <- ...future.oldEnvVars[[name]] 1570s [00:52:50.405] } 1570s [00:52:50.405] if (length(args) > 0) 1570s [00:52:50.405] base::do.call(base::Sys.setenv, args = args) 1570s [00:52:50.405] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1570s [00:52:50.405] } 1570s [00:52:50.405] else { 1570s [00:52:50.405] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1570s [00:52:50.405] } 1570s [00:52:50.405] { 1570s [00:52:50.405] if (base::length(...future.futureOptionsAdded) > 1570s [00:52:50.405] 0L) { 1570s [00:52:50.405] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1570s [00:52:50.405] base::names(opts) <- ...future.futureOptionsAdded 1570s [00:52:50.405] base::options(opts) 1570s [00:52:50.405] } 1570s [00:52:50.405] { 1570s [00:52:50.405] { 1570s [00:52:50.405] NULL 1570s [00:52:50.405] RNGkind("Mersenne-Twister") 1570s [00:52:50.405] base::rm(list = ".Random.seed", envir = base::globalenv(), 1570s [00:52:50.405] inherits = FALSE) 1570s [00:52:50.405] } 1570s [00:52:50.405] options(future.plan = NULL) 1570s [00:52:50.405] if (is.na(NA_character_)) 1570s [00:52:50.405] Sys.unsetenv("R_FUTURE_PLAN") 1570s [00:52:50.405] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1570s [00:52:50.405] future::plan(list(function (..., envir = parent.frame()) 1570s [00:52:50.405] { 1570s [00:52:50.405] future <- SequentialFuture(..., envir = envir) 1570s [00:52:50.405] if (!future$lazy) 1570s [00:52:50.405] future <- run(future) 1570s [00:52:50.405] invisible(future) 1570s [00:52:50.405] }), .cleanup = FALSE, .init = FALSE) 1570s [00:52:50.405] } 1570s [00:52:50.405] } 1570s [00:52:50.405] } 1570s [00:52:50.405] }) 1570s [00:52:50.405] if (TRUE) { 1570s [00:52:50.405] base::sink(type = "output", split = FALSE) 1570s [00:52:50.405] if (TRUE) { 1570s [00:52:50.405] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1570s [00:52:50.405] } 1570s [00:52:50.405] else { 1570s [00:52:50.405] ...future.result["stdout"] <- base::list(NULL) 1570s [00:52:50.405] } 1570s [00:52:50.405] base::close(...future.stdout) 1570s [00:52:50.405] ...future.stdout <- NULL 1570s [00:52:50.405] } 1570s [00:52:50.405] ...future.result$conditions <- ...future.conditions 1570s [00:52:50.405] ...future.result$finished <- base::Sys.time() 1570s [00:52:50.405] ...future.result 1570s [00:52:50.405] } 1570s [00:52:50.408] assign_globals() ... 1570s [00:52:50.408] List of 5 1570s [00:52:50.408] $ ...future.FUN :function (x, y = 2 * 1:5) 1570s [00:52:50.408] $ future.call.arguments : list() 1570s [00:52:50.408] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1570s [00:52:50.408] $ ...future.elements_ii :List of 6 1570s [00:52:50.408] ..$ a1: int 1 1570s [00:52:50.408] ..$ a2: int 2 1570s [00:52:50.408] ..$ b1: int 2 1570s [00:52:50.408] ..$ b2: int 3 1570s [00:52:50.408] ..$ c1: int 3 1570s [00:52:50.408] ..$ c2: int 4 1570s [00:52:50.408] $ ...future.seeds_ii : NULL 1570s [00:52:50.408] $ ...future.globals.maxSize: NULL 1570s [00:52:50.408] - attr(*, "where")=List of 5 1570s [00:52:50.408] ..$ ...future.FUN : 1570s [00:52:50.408] ..$ future.call.arguments : 1570s [00:52:50.408] ..$ ...future.elements_ii : 1570s [00:52:50.408] ..$ ...future.seeds_ii : 1570s [00:52:50.408] ..$ ...future.globals.maxSize: 1570s [00:52:50.408] - attr(*, "resolved")= logi FALSE 1570s [00:52:50.408] - attr(*, "total_size")= num 4728 1570s [00:52:50.408] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1570s [00:52:50.408] - attr(*, "already-done")= logi TRUE 1570s [00:52:50.417] - reassign environment for ‘...future.FUN’ 1570s [00:52:50.417] - copied ‘...future.FUN’ to environment 1570s [00:52:50.418] - copied ‘future.call.arguments’ to environment 1570s [00:52:50.418] - copied ‘...future.elements_ii’ to environment 1570s [00:52:50.418] - copied ‘...future.seeds_ii’ to environment 1570s [00:52:50.418] - copied ‘...future.globals.maxSize’ to environment 1570s [00:52:50.418] assign_globals() ... done 1570s [00:52:50.419] plan(): Setting new future strategy stack: 1570s [00:52:50.419] List of future strategies: 1570s [00:52:50.419] 1. sequential: 1570s [00:52:50.419] - args: function (..., envir = parent.frame()) 1570s [00:52:50.419] - tweaked: FALSE 1570s [00:52:50.419] - call: NULL 1570s [00:52:50.419] plan(): nbrOfWorkers() = 1 1570s [00:52:50.421] plan(): Setting new future strategy stack: 1570s [00:52:50.421] List of future strategies: 1570s [00:52:50.421] 1. sequential: 1570s [00:52:50.421] - args: function (..., envir = parent.frame()) 1570s [00:52:50.421] - tweaked: FALSE 1570s [00:52:50.421] - call: plan(strategy) 1570s [00:52:50.422] plan(): nbrOfWorkers() = 1 1570s [00:52:50.422] SequentialFuture started (and completed) 1570s [00:52:50.423] - Launch lazy future ... done 1570s [00:52:50.423] run() for ‘SequentialFuture’ ... done 1570s [00:52:50.423] Created future: 1570s [00:52:50.424] SequentialFuture: 1570s [00:52:50.424] Label: ‘future_sapply-1’ 1570s [00:52:50.424] Expression: 1570s [00:52:50.424] { 1570s [00:52:50.424] do.call(function(...) { 1570s [00:52:50.424] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1570s [00:52:50.424] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1570s [00:52:50.424] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1570s [00:52:50.424] on.exit(options(oopts), add = TRUE) 1570s [00:52:50.424] } 1570s [00:52:50.424] { 1570s [00:52:50.424] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1570s [00:52:50.424] ...future.X_jj <- ...future.elements_ii[[jj]] 1570s [00:52:50.424] ...future.FUN(...future.X_jj, ...) 1570s [00:52:50.424] }) 1570s [00:52:50.424] } 1570s [00:52:50.424] }, args = future.call.arguments) 1570s [00:52:50.424] } 1570s [00:52:50.424] Lazy evaluation: FALSE 1570s [00:52:50.424] Asynchronous evaluation: FALSE 1570s [00:52:50.424] Local evaluation: TRUE 1570s [00:52:50.424] Environment: R_GlobalEnv 1570s [00:52:50.424] Capture standard output: TRUE 1570s [00:52:50.424] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1570s [00:52:50.424] Globals: 5 objects totaling 4.95 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1570s [00:52:50.424] Packages: 1570s [00:52:50.424] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1570s [00:52:50.424] Resolved: TRUE 1570s [00:52:50.424] Value: 2.02 KiB of class ‘list’ 1570s [00:52:50.424] Early signaling: FALSE 1570s [00:52:50.424] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1570s [00:52:50.424] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1570s [00:52:50.426] Chunk #1 of 1 ... DONE 1570s [00:52:50.426] Launching 1 futures (chunks) ... DONE 1570s [00:52:50.427] Resolving 1 futures (chunks) ... 1570s [00:52:50.427] resolve() on list ... 1570s [00:52:50.427] recursive: 0 1570s [00:52:50.429] length: 1 1570s [00:52:50.429] 1570s [00:52:50.429] resolved() for ‘SequentialFuture’ ... 1570s [00:52:50.429] - state: ‘finished’ 1570s [00:52:50.429] - run: TRUE 1570s [00:52:50.430] - result: ‘FutureResult’ 1570s [00:52:50.430] resolved() for ‘SequentialFuture’ ... done 1570s [00:52:50.430] Future #1 1570s [00:52:50.431] signalConditionsASAP(SequentialFuture, pos=1) ... 1570s [00:52:50.431] - nx: 1 1570s [00:52:50.431] - relay: TRUE 1570s [00:52:50.431] - stdout: TRUE 1570s [00:52:50.432] - signal: TRUE 1570s [00:52:50.432] - resignal: FALSE 1570s [00:52:50.432] - force: TRUE 1570s [00:52:50.433] - relayed: [n=1] FALSE 1570s [00:52:50.433] - queued futures: [n=1] FALSE 1570s [00:52:50.433] - until=1 1570s [00:52:50.434] - relaying element #1 1570s [00:52:50.434] - relayed: [n=1] TRUE 1570s [00:52:50.434] - queued futures: [n=1] TRUE 1570s [00:52:50.434] signalConditionsASAP(SequentialFuture, pos=1) ... done 1570s [00:52:50.435] length: 0 (resolved future 1) 1570s [00:52:50.435] Relaying remaining futures 1570s [00:52:50.435] signalConditionsASAP(NULL, pos=0) ... 1570s [00:52:50.436] - nx: 1 1570s [00:52:50.436] - relay: TRUE 1570s [00:52:50.436] - stdout: TRUE 1570s [00:52:50.437] - signal: TRUE 1570s [00:52:50.437] - resignal: FALSE 1570s [00:52:50.437] - force: TRUE 1570s [00:52:50.437] - relayed: [n=1] TRUE 1570s [00:52:50.437] - queued futures: [n=1] TRUE 1570s - flush all 1570s [00:52:50.438] - relayed: [n=1] TRUE 1570s [00:52:50.438] - queued futures: [n=1] TRUE 1570s [00:52:50.438] signalConditionsASAP(NULL, pos=0) ... done 1570s [00:52:50.438] resolve() on list ... DONE 1570s [00:52:50.439] - Number of value chunks collected: 1 1570s [00:52:50.439] Resolving 1 futures (chunks) ... DONE 1570s [00:52:50.439] Reducing values from 1 chunks ... 1570s [00:52:50.439] - Number of values collected after concatenation: 6 1570s [00:52:50.440] - Number of values expected: 6 1570s [00:52:50.440] Reducing values from 1 chunks ... DONE 1570s [00:52:50.441] future_lapply() ... DONE 1570s List of 2 1570s $ y0: num [1:3, 1:5, 1:6] 2 2 2 4 4 4 6 6 6 8 ... 1570s ..- attr(*, "dimnames")=List of 3 1570s .. ..$ : NULL 1570s .. ..$ : NULL 1570s .. ..$ : chr [1:6] "a1" "a2" "b1" "b2" ... 1570s $ y1: num [1:3, 1:5, 1:6] 2 2 2 4 4 4 6 6 6 8 ... 1570s ..- attr(*, "dimnames")=List of 3 1570s .. ..$ : NULL 1570s .. ..$ : NULL 1570s .. ..$ : chr [1:6] "a1" "a2" "b1" "b2" ... 1570s [00:52:50.448] future_lapply() ... 1570s [00:52:50.449] Number of chunks: 1 1570s [00:52:50.449] getGlobalsAndPackagesXApply() ... 1570s [00:52:50.449] - future.globals: TRUE 1570s [00:52:50.449] getGlobalsAndPackages() ... 1570s [00:52:50.450] Searching for globals... 1570s [00:52:50.452] - globals found: [1] ‘FUN’ 1570s [00:52:50.452] Searching for globals ... DONE 1570s [00:52:50.453] Resolving globals: FALSE 1570s [00:52:50.454] The total size of the 1 globals is 848 bytes (848 bytes) 1570s [00:52:50.455] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1570s [00:52:50.455] - globals: [1] ‘FUN’ 1570s [00:52:50.455] 1570s [00:52:50.455] getGlobalsAndPackages() ... DONE 1570s [00:52:50.455] - globals found/used: [n=1] ‘FUN’ 1570s [00:52:50.455] - needed namespaces: [n=0] 1570s [00:52:50.455] Finding globals ... DONE 1570s [00:52:50.455] - use_args: TRUE 1570s [00:52:50.456] - Getting '...' globals ... 1570s [00:52:50.456] resolve() on list ... 1570s [00:52:50.456] recursive: 0 1570s [00:52:50.456] length: 1 1570s [00:52:50.456] elements: ‘...’ 1570s [00:52:50.456] length: 0 (resolved future 1) 1570s [00:52:50.457] resolve() on list ... DONE 1570s [00:52:50.457] - '...' content: [n=0] 1570s [00:52:50.457] List of 1 1570s [00:52:50.457] $ ...: list() 1570s [00:52:50.457] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1570s [00:52:50.457] - attr(*, "where")=List of 1 1570s [00:52:50.457] ..$ ...: 1570s [00:52:50.457] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1570s [00:52:50.457] - attr(*, "resolved")= logi TRUE 1570s [00:52:50.457] - attr(*, "total_size")= num NA 1570s [00:52:50.460] - Getting '...' globals ... DONE 1570s [00:52:50.460] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1570s [00:52:50.460] List of 2 1570s [00:52:50.460] $ ...future.FUN:function (x) 1570s [00:52:50.460] $ ... : list() 1570s [00:52:50.460] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1570s [00:52:50.460] - attr(*, "where")=List of 2 1570s [00:52:50.460] ..$ ...future.FUN: 1570s [00:52:50.460] ..$ ... : 1570s [00:52:50.460] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1570s [00:52:50.460] - attr(*, "resolved")= logi FALSE 1570s [00:52:50.460] - attr(*, "total_size")= num 848 1570s [00:52:50.464] Packages to be attached in all futures: [n=0] 1570s [00:52:50.464] getGlobalsAndPackagesXApply() ... DONE 1570s [00:52:50.464] Number of futures (= number of chunks): 1 1570s [00:52:50.464] Launching 1 futures (chunks) ... 1570s [00:52:50.465] Chunk #1 of 1 ... 1570s [00:52:50.465] - Finding globals in 'X' for chunk #1 ... 1570s [00:52:50.465] getGlobalsAndPackages() ... 1570s [00:52:50.465] Searching for globals... 1570s [00:52:50.465] 1570s [00:52:50.466] Searching for globals ... DONE 1570s [00:52:50.466] - globals: [0] 1570s [00:52:50.466] getGlobalsAndPackages() ... DONE 1570s [00:52:50.467] + additional globals found: [n=0] 1570s [00:52:50.469] + additional namespaces needed: [n=0] 1570s [00:52:50.470] - Finding globals in 'X' for chunk #1 ... DONE 1570s [00:52:50.472] - seeds: 1570s [00:52:50.473] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1570s [00:52:50.474] getGlobalsAndPackages() ... 1570s [00:52:50.474] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1570s [00:52:50.474] Resolving globals: FALSE 1570s [00:52:50.475] Tweak future expression to call with '...' arguments ... 1570s [00:52:50.475] { 1570s [00:52:50.475] do.call(function(...) { 1570s [00:52:50.475] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1570s [00:52:50.475] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1570s [00:52:50.475] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1570s [00:52:50.475] on.exit(options(oopts), add = TRUE) 1570s [00:52:50.475] } 1570s [00:52:50.475] { 1570s [00:52:50.475] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1570s [00:52:50.475] ...future.X_jj <- ...future.elements_ii[[jj]] 1570s [00:52:50.475] ...future.FUN(...future.X_jj, ...) 1570s [00:52:50.475] }) 1570s [00:52:50.475] } 1570s [00:52:50.475] }, args = future.call.arguments) 1570s [00:52:50.475] } 1570s [00:52:50.475] Tweak future expression to call with '...' arguments ... DONE 1570s [00:52:50.476] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1570s [00:52:50.476] 1570s [00:52:50.476] getGlobalsAndPackages() ... DONE 1570s [00:52:50.479] run() for ‘Future’ ... 1570s [00:52:50.480] - state: ‘created’ 1570s [00:52:50.480] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1570s [00:52:50.481] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1570s [00:52:50.481] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1570s [00:52:50.481] - Field: ‘label’ 1570s [00:52:50.481] - Field: ‘local’ 1570s [00:52:50.482] - Field: ‘owner’ 1570s [00:52:50.482] - Field: ‘envir’ 1570s [00:52:50.482] - Field: ‘packages’ 1570s [00:52:50.482] - Field: ‘gc’ 1570s [00:52:50.482] - Field: ‘conditions’ 1570s [00:52:50.483] - Field: ‘expr’ 1570s [00:52:50.483] - Field: ‘uuid’ 1570s [00:52:50.483] - Field: ‘seed’ 1570s [00:52:50.484] - Field: ‘version’ 1570s [00:52:50.484] - Field: ‘result’ 1570s [00:52:50.484] - Field: ‘asynchronous’ 1570s [00:52:50.484] - Field: ‘calls’ 1570s [00:52:50.485] - Field: ‘globals’ 1570s [00:52:50.485] - Field: ‘stdout’ 1570s [00:52:50.485] - Field: ‘earlySignal’ 1570s [00:52:50.486] - Field: ‘lazy’ 1570s [00:52:50.486] - Field: ‘state’ 1570s [00:52:50.486] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1570s [00:52:50.486] - Launch lazy future ... 1570s [00:52:50.487] Packages needed by the future expression (n = 0): 1570s [00:52:50.487] Packages needed by future strategies (n = 0): 1570s [00:52:50.488] { 1570s [00:52:50.488] { 1570s [00:52:50.488] { 1570s [00:52:50.488] ...future.startTime <- base::Sys.time() 1570s [00:52:50.488] { 1570s [00:52:50.488] { 1570s [00:52:50.488] { 1570s [00:52:50.488] base::local({ 1570s [00:52:50.488] has_future <- base::requireNamespace("future", 1570s [00:52:50.488] quietly = TRUE) 1570s [00:52:50.488] if (has_future) { 1570s [00:52:50.488] ns <- base::getNamespace("future") 1570s [00:52:50.488] version <- ns[[".package"]][["version"]] 1570s [00:52:50.488] if (is.null(version)) 1570s [00:52:50.488] version <- utils::packageVersion("future") 1570s [00:52:50.488] } 1570s [00:52:50.488] else { 1570s [00:52:50.488] version <- NULL 1570s [00:52:50.488] } 1570s [00:52:50.488] if (!has_future || version < "1.8.0") { 1570s [00:52:50.488] info <- base::c(r_version = base::gsub("R version ", 1570s [00:52:50.488] "", base::R.version$version.string), 1570s [00:52:50.488] platform = base::sprintf("%s (%s-bit)", 1570s [00:52:50.488] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1570s [00:52:50.488] os = base::paste(base::Sys.info()[base::c("sysname", 1570s [00:52:50.488] "release", "version")], collapse = " "), 1570s [00:52:50.488] hostname = base::Sys.info()[["nodename"]]) 1570s [00:52:50.488] info <- base::sprintf("%s: %s", base::names(info), 1570s [00:52:50.488] info) 1570s [00:52:50.488] info <- base::paste(info, collapse = "; ") 1570s [00:52:50.488] if (!has_future) { 1570s [00:52:50.488] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1570s [00:52:50.488] info) 1570s [00:52:50.488] } 1570s [00:52:50.488] else { 1570s [00:52:50.488] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1570s [00:52:50.488] info, version) 1570s [00:52:50.488] } 1570s [00:52:50.488] base::stop(msg) 1570s [00:52:50.488] } 1570s [00:52:50.488] }) 1570s [00:52:50.488] } 1570s [00:52:50.488] options(future.plan = NULL) 1570s [00:52:50.488] Sys.unsetenv("R_FUTURE_PLAN") 1570s [00:52:50.488] future::plan("default", .cleanup = FALSE, .init = FALSE) 1570s [00:52:50.488] } 1570s [00:52:50.488] ...future.workdir <- getwd() 1570s [00:52:50.488] } 1570s [00:52:50.488] ...future.oldOptions <- base::as.list(base::.Options) 1570s [00:52:50.488] ...future.oldEnvVars <- base::Sys.getenv() 1570s [00:52:50.488] } 1570s [00:52:50.488] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1570s [00:52:50.488] future.globals.maxSize = NULL, future.globals.method = NULL, 1570s [00:52:50.488] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1570s [00:52:50.488] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1570s [00:52:50.488] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1570s [00:52:50.488] future.stdout.windows.reencode = NULL, width = 80L) 1570s [00:52:50.488] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1570s [00:52:50.488] base::names(...future.oldOptions)) 1570s [00:52:50.488] } 1570s [00:52:50.488] if (FALSE) { 1570s [00:52:50.488] } 1570s [00:52:50.488] else { 1570s [00:52:50.488] if (TRUE) { 1570s [00:52:50.488] ...future.stdout <- base::rawConnection(base::raw(0L), 1570s [00:52:50.488] open = "w") 1570s [00:52:50.488] } 1570s [00:52:50.488] else { 1570s [00:52:50.488] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1570s [00:52:50.488] windows = "NUL", "/dev/null"), open = "w") 1570s [00:52:50.488] } 1570s [00:52:50.488] base::sink(...future.stdout, type = "output", split = FALSE) 1570s [00:52:50.488] base::on.exit(if (!base::is.null(...future.stdout)) { 1570s [00:52:50.488] base::sink(type = "output", split = FALSE) 1570s [00:52:50.488] base::close(...future.stdout) 1570s [00:52:50.488] }, add = TRUE) 1570s [00:52:50.488] } 1570s [00:52:50.488] ...future.frame <- base::sys.nframe() 1570s [00:52:50.488] ...future.conditions <- base::list() 1570s [00:52:50.488] ...future.rng <- base::globalenv()$.Random.seed 1570s [00:52:50.488] if (FALSE) { 1570s [00:52:50.488] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1570s [00:52:50.488] "...future.value", "...future.globalenv.names", ".Random.seed") 1570s [00:52:50.488] } 1570s [00:52:50.488] ...future.result <- base::tryCatch({ 1570s [00:52:50.488] base::withCallingHandlers({ 1570s [00:52:50.488] ...future.value <- base::withVisible(base::local({ 1570s [00:52:50.488] do.call(function(...) { 1570s [00:52:50.488] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1570s [00:52:50.488] if (!identical(...future.globals.maxSize.org, 1570s [00:52:50.488] ...future.globals.maxSize)) { 1570s [00:52:50.488] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1570s [00:52:50.488] on.exit(options(oopts), add = TRUE) 1570s [00:52:50.488] } 1570s [00:52:50.488] { 1570s [00:52:50.488] lapply(seq_along(...future.elements_ii), 1570s [00:52:50.488] FUN = function(jj) { 1570s [00:52:50.488] ...future.X_jj <- ...future.elements_ii[[jj]] 1570s [00:52:50.488] ...future.FUN(...future.X_jj, ...) 1570s [00:52:50.488] }) 1570s [00:52:50.488] } 1570s [00:52:50.488] }, args = future.call.arguments) 1570s [00:52:50.488] })) 1570s [00:52:50.488] future::FutureResult(value = ...future.value$value, 1570s [00:52:50.488] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1570s [00:52:50.488] ...future.rng), globalenv = if (FALSE) 1570s [00:52:50.488] list(added = base::setdiff(base::names(base::.GlobalEnv), 1570s [00:52:50.488] ...future.globalenv.names)) 1570s [00:52:50.488] else NULL, started = ...future.startTime, version = "1.8") 1570s [00:52:50.488] }, condition = base::local({ 1570s [00:52:50.488] c <- base::c 1570s [00:52:50.488] inherits <- base::inherits 1570s [00:52:50.488] invokeRestart <- base::invokeRestart 1570s [00:52:50.488] length <- base::length 1570s [00:52:50.488] list <- base::list 1570s [00:52:50.488] seq.int <- base::seq.int 1570s [00:52:50.488] signalCondition <- base::signalCondition 1570s [00:52:50.488] sys.calls <- base::sys.calls 1570s [00:52:50.488] `[[` <- base::`[[` 1570s [00:52:50.488] `+` <- base::`+` 1570s [00:52:50.488] `<<-` <- base::`<<-` 1570s [00:52:50.488] sysCalls <- function(calls = sys.calls(), from = 1L) { 1570s [00:52:50.488] calls[seq.int(from = from + 12L, to = length(calls) - 1570s [00:52:50.488] 3L)] 1570s [00:52:50.488] } 1570s [00:52:50.488] function(cond) { 1570s [00:52:50.488] is_error <- inherits(cond, "error") 1570s [00:52:50.488] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1570s [00:52:50.488] NULL) 1570s [00:52:50.488] if (is_error) { 1570s [00:52:50.488] sessionInformation <- function() { 1570s [00:52:50.488] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1570s [00:52:50.488] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1570s [00:52:50.488] search = base::search(), system = base::Sys.info()) 1570s [00:52:50.488] } 1570s [00:52:50.488] ...future.conditions[[length(...future.conditions) + 1570s [00:52:50.488] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1570s [00:52:50.488] cond$call), session = sessionInformation(), 1570s [00:52:50.488] timestamp = base::Sys.time(), signaled = 0L) 1570s [00:52:50.488] signalCondition(cond) 1570s [00:52:50.488] } 1570s [00:52:50.488] else if (!ignore && TRUE && inherits(cond, c("condition", 1570s [00:52:50.488] "immediateCondition"))) { 1570s [00:52:50.488] signal <- TRUE && inherits(cond, "immediateCondition") 1570s [00:52:50.488] ...future.conditions[[length(...future.conditions) + 1570s [00:52:50.488] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1570s [00:52:50.488] if (TRUE && !signal) { 1570s [00:52:50.488] muffleCondition <- function (cond, pattern = "^muffle") 1570s [00:52:50.488] { 1570s [00:52:50.488] inherits <- base::inherits 1570s [00:52:50.488] invokeRestart <- base::invokeRestart 1570s [00:52:50.488] is.null <- base::is.null 1570s [00:52:50.488] muffled <- FALSE 1570s [00:52:50.488] if (inherits(cond, "message")) { 1570s [00:52:50.488] muffled <- grepl(pattern, "muffleMessage") 1570s [00:52:50.488] if (muffled) 1570s [00:52:50.488] invokeRestart("muffleMessage") 1570s [00:52:50.488] } 1570s [00:52:50.488] else if (inherits(cond, "warning")) { 1570s [00:52:50.488] muffled <- grepl(pattern, "muffleWarning") 1570s [00:52:50.488] if (muffled) 1570s [00:52:50.488] invokeRestart("muffleWarning") 1570s [00:52:50.488] } 1570s [00:52:50.488] else if (inherits(cond, "condition")) { 1570s [00:52:50.488] if (!is.null(pattern)) { 1570s [00:52:50.488] computeRestarts <- base::computeRestarts 1570s [00:52:50.488] grepl <- base::grepl 1570s [00:52:50.488] restarts <- computeRestarts(cond) 1570s [00:52:50.488] for (restart in restarts) { 1570s [00:52:50.488] name <- restart$name 1570s [00:52:50.488] if (is.null(name)) 1570s [00:52:50.488] next 1570s [00:52:50.488] if (!grepl(pattern, name)) 1570s [00:52:50.488] next 1570s [00:52:50.488] invokeRestart(restart) 1570s [00:52:50.488] muffled <- TRUE 1570s [00:52:50.488] break 1570s [00:52:50.488] } 1570s [00:52:50.488] } 1570s [00:52:50.488] } 1570s [00:52:50.488] invisible(muffled) 1570s [00:52:50.488] } 1570s [00:52:50.488] muffleCondition(cond, pattern = "^muffle") 1570s [00:52:50.488] } 1570s [00:52:50.488] } 1570s [00:52:50.488] else { 1570s [00:52:50.488] if (TRUE) { 1570s [00:52:50.488] muffleCondition <- function (cond, pattern = "^muffle") 1570s [00:52:50.488] { 1570s [00:52:50.488] inherits <- base::inherits 1570s [00:52:50.488] invokeRestart <- base::invokeRestart 1570s [00:52:50.488] is.null <- base::is.null 1570s [00:52:50.488] muffled <- FALSE 1570s [00:52:50.488] if (inherits(cond, "message")) { 1570s [00:52:50.488] muffled <- grepl(pattern, "muffleMessage") 1570s [00:52:50.488] if (muffled) 1570s [00:52:50.488] invokeRestart("muffleMessage") 1570s [00:52:50.488] } 1570s [00:52:50.488] else if (inherits(cond, "warning")) { 1570s [00:52:50.488] muffled <- grepl(pattern, "muffleWarning") 1570s [00:52:50.488] if (muffled) 1570s [00:52:50.488] invokeRestart("muffleWarning") 1570s [00:52:50.488] } 1570s [00:52:50.488] else if (inherits(cond, "condition")) { 1570s [00:52:50.488] if (!is.null(pattern)) { 1570s [00:52:50.488] computeRestarts <- base::computeRestarts 1570s [00:52:50.488] grepl <- base::grepl 1570s [00:52:50.488] restarts <- computeRestarts(cond) 1570s [00:52:50.488] for (restart in restarts) { 1570s [00:52:50.488] name <- restart$name 1570s [00:52:50.488] if (is.null(name)) 1570s [00:52:50.488] next 1570s [00:52:50.488] if (!grepl(pattern, name)) 1570s [00:52:50.488] next 1570s [00:52:50.488] invokeRestart(restart) 1570s [00:52:50.488] muffled <- TRUE 1570s [00:52:50.488] break 1570s [00:52:50.488] } 1570s [00:52:50.488] } 1570s [00:52:50.488] } 1570s [00:52:50.488] invisible(muffled) 1570s [00:52:50.488] } 1570s [00:52:50.488] muffleCondition(cond, pattern = "^muffle") 1570s [00:52:50.488] } 1570s [00:52:50.488] } 1570s [00:52:50.488] } 1570s [00:52:50.488] })) 1570s [00:52:50.488] }, error = function(ex) { 1570s [00:52:50.488] base::structure(base::list(value = NULL, visible = NULL, 1570s [00:52:50.488] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1570s [00:52:50.488] ...future.rng), started = ...future.startTime, 1570s [00:52:50.488] finished = Sys.time(), session_uuid = NA_character_, 1570s [00:52:50.488] version = "1.8"), class = "FutureResult") 1570s [00:52:50.488] }, finally = { 1570s [00:52:50.488] if (!identical(...future.workdir, getwd())) 1570s [00:52:50.488] setwd(...future.workdir) 1570s [00:52:50.488] { 1570s [00:52:50.488] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1570s [00:52:50.488] ...future.oldOptions$nwarnings <- NULL 1570s [00:52:50.488] } 1570s [00:52:50.488] base::options(...future.oldOptions) 1570s [00:52:50.488] if (.Platform$OS.type == "windows") { 1570s [00:52:50.488] old_names <- names(...future.oldEnvVars) 1570s [00:52:50.488] envs <- base::Sys.getenv() 1570s [00:52:50.488] names <- names(envs) 1570s [00:52:50.488] common <- intersect(names, old_names) 1570s [00:52:50.488] added <- setdiff(names, old_names) 1570s [00:52:50.488] removed <- setdiff(old_names, names) 1570s [00:52:50.488] changed <- common[...future.oldEnvVars[common] != 1570s [00:52:50.488] envs[common]] 1570s [00:52:50.488] NAMES <- toupper(changed) 1570s [00:52:50.488] args <- list() 1570s [00:52:50.488] for (kk in seq_along(NAMES)) { 1570s [00:52:50.488] name <- changed[[kk]] 1570s [00:52:50.488] NAME <- NAMES[[kk]] 1570s [00:52:50.488] if (name != NAME && is.element(NAME, old_names)) 1570s [00:52:50.488] next 1570s [00:52:50.488] args[[name]] <- ...future.oldEnvVars[[name]] 1570s [00:52:50.488] } 1570s [00:52:50.488] NAMES <- toupper(added) 1570s [00:52:50.488] for (kk in seq_along(NAMES)) { 1570s [00:52:50.488] name <- added[[kk]] 1570s [00:52:50.488] NAME <- NAMES[[kk]] 1570s [00:52:50.488] if (name != NAME && is.element(NAME, old_names)) 1570s [00:52:50.488] next 1570s [00:52:50.488] args[[name]] <- "" 1570s [00:52:50.488] } 1570s [00:52:50.488] NAMES <- toupper(removed) 1570s [00:52:50.488] for (kk in seq_along(NAMES)) { 1570s [00:52:50.488] name <- removed[[kk]] 1570s [00:52:50.488] NAME <- NAMES[[kk]] 1570s [00:52:50.488] if (name != NAME && is.element(NAME, old_names)) 1570s [00:52:50.488] next 1570s [00:52:50.488] args[[name]] <- ...future.oldEnvVars[[name]] 1570s [00:52:50.488] } 1570s [00:52:50.488] if (length(args) > 0) 1570s [00:52:50.488] base::do.call(base::Sys.setenv, args = args) 1570s [00:52:50.488] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1570s [00:52:50.488] } 1570s [00:52:50.488] else { 1570s [00:52:50.488] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1570s [00:52:50.488] } 1570s [00:52:50.488] { 1570s [00:52:50.488] if (base::length(...future.futureOptionsAdded) > 1570s [00:52:50.488] 0L) { 1570s [00:52:50.488] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1570s [00:52:50.488] base::names(opts) <- ...future.futureOptionsAdded 1570s [00:52:50.488] base::options(opts) 1570s [00:52:50.488] } 1570s [00:52:50.488] { 1570s [00:52:50.488] { 1570s [00:52:50.488] NULL 1570s [00:52:50.488] RNGkind("Mersenne-Twister") 1570s [00:52:50.488] base::rm(list = ".Random.seed", envir = base::globalenv(), 1570s [00:52:50.488] inherits = FALSE) 1570s [00:52:50.488] } 1570s [00:52:50.488] options(future.plan = NULL) 1570s [00:52:50.488] if (is.na(NA_character_)) 1570s [00:52:50.488] Sys.unsetenv("R_FUTURE_PLAN") 1570s [00:52:50.488] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1570s [00:52:50.488] future::plan(list(function (..., envir = parent.frame()) 1570s [00:52:50.488] { 1570s [00:52:50.488] future <- SequentialFuture(..., envir = envir) 1570s [00:52:50.488] if (!future$lazy) 1570s [00:52:50.488] future <- run(future) 1570s [00:52:50.488] invisible(future) 1570s [00:52:50.488] }), .cleanup = FALSE, .init = FALSE) 1570s [00:52:50.488] } 1570s [00:52:50.488] } 1570s [00:52:50.488] } 1570s [00:52:50.488] }) 1570s [00:52:50.488] if (TRUE) { 1570s [00:52:50.488] base::sink(type = "output", split = FALSE) 1570s [00:52:50.488] if (TRUE) { 1570s [00:52:50.488] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1570s [00:52:50.488] } 1570s [00:52:50.488] else { 1570s [00:52:50.488] ...future.result["stdout"] <- base::list(NULL) 1570s [00:52:50.488] } 1570s [00:52:50.488] base::close(...future.stdout) 1570s [00:52:50.488] ...future.stdout <- NULL 1570s [00:52:50.488] } 1570s [00:52:50.488] ...future.result$conditions <- ...future.conditions 1570s [00:52:50.488] ...future.result$finished <- base::Sys.time() 1570s [00:52:50.488] ...future.result 1570s [00:52:50.488] } 1570s [00:52:50.494] assign_globals() ... 1570s [00:52:50.494] List of 5 1570s [00:52:50.494] $ ...future.FUN :function (x) 1570s [00:52:50.494] $ future.call.arguments : list() 1570s [00:52:50.494] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1570s [00:52:50.494] $ ...future.elements_ii :List of 3 1570s [00:52:50.494] ..$ : chr "a" 1570s [00:52:50.494] ..$ : chr "b" 1570s [00:52:50.494] ..$ : chr "c" 1570s [00:52:50.494] $ ...future.seeds_ii : NULL 1570s [00:52:50.494] $ ...future.globals.maxSize: NULL 1570s [00:52:50.494] - attr(*, "where")=List of 5 1570s [00:52:50.494] ..$ ...future.FUN : 1570s [00:52:50.494] ..$ future.call.arguments : 1570s [00:52:50.494] ..$ ...future.elements_ii : 1570s [00:52:50.494] ..$ ...future.seeds_ii : 1570s [00:52:50.494] ..$ ...future.globals.maxSize: 1570s [00:52:50.494] - attr(*, "resolved")= logi FALSE 1570s [00:52:50.494] - attr(*, "total_size")= num 848 1570s [00:52:50.494] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1570s [00:52:50.494] - attr(*, "already-done")= logi TRUE 1570s [00:52:50.502] - copied ‘...future.FUN’ to environment 1570s [00:52:50.502] - copied ‘future.call.arguments’ to environment 1570s [00:52:50.502] - copied ‘...future.elements_ii’ to environment 1570s [00:52:50.502] - copied ‘...future.seeds_ii’ to environment 1570s [00:52:50.502] - copied ‘...future.globals.maxSize’ to environment 1570s [00:52:50.502] assign_globals() ... done 1570s [00:52:50.503] plan(): Setting new future strategy stack: 1570s [00:52:50.503] List of future strategies: 1570s [00:52:50.503] 1. sequential: 1570s [00:52:50.503] - args: function (..., envir = parent.frame()) 1570s [00:52:50.503] - tweaked: FALSE 1570s [00:52:50.503] - call: NULL 1570s [00:52:50.503] plan(): nbrOfWorkers() = 1 1570s [00:52:50.504] plan(): Setting new future strategy stack: 1570s [00:52:50.504] List of future strategies: 1570s [00:52:50.504] 1. sequential: 1570s [00:52:50.504] - args: function (..., envir = parent.frame()) 1570s [00:52:50.504] - tweaked: FALSE 1570s [00:52:50.504] - call: plan(strategy) 1570s [00:52:50.504] plan(): nbrOfWorkers() = 1 1570s [00:52:50.505] SequentialFuture started (and completed) 1570s [00:52:50.505] - Launch lazy future ... done 1570s [00:52:50.505] run() for ‘SequentialFuture’ ... done 1570s [00:52:50.505] Created future: 1570s [00:52:50.505] SequentialFuture: 1570s [00:52:50.505] Label: ‘future_sapply-1’ 1570s [00:52:50.505] Expression: 1570s [00:52:50.505] { 1570s [00:52:50.505] do.call(function(...) { 1570s [00:52:50.505] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1570s [00:52:50.505] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1570s [00:52:50.505] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1570s [00:52:50.505] on.exit(options(oopts), add = TRUE) 1570s [00:52:50.505] } 1570s [00:52:50.505] { 1570s [00:52:50.505] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1570s [00:52:50.505] ...future.X_jj <- ...future.elements_ii[[jj]] 1570s [00:52:50.505] ...future.FUN(...future.X_jj, ...) 1570s [00:52:50.505] }) 1570s [00:52:50.505] } 1570s [00:52:50.505] }, args = future.call.arguments) 1570s [00:52:50.505] } 1570s [00:52:50.505] Lazy evaluation: FALSE 1570s [00:52:50.505] Asynchronous evaluation: FALSE 1570s [00:52:50.505] Local evaluation: TRUE 1570s [00:52:50.505] Environment: R_GlobalEnv 1570s [00:52:50.505] Capture standard output: TRUE 1570s [00:52:50.505] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1570s [00:52:50.505] Globals: 5 objects totaling 1.16 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1570s [00:52:50.505] Packages: 1570s [00:52:50.505] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1570s [00:52:50.505] Resolved: TRUE 1570s [00:52:50.505] Value: 336 bytes of class ‘list’ 1570s [00:52:50.505] Early signaling: FALSE 1570s [00:52:50.505] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1570s [00:52:50.505] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1570s [00:52:50.507] Chunk #1 of 1 ... DONE 1570s [00:52:50.507] Launching 1 futures (chunks) ... DONE 1570s [00:52:50.507] Resolving 1 futures (chunks) ... 1570s [00:52:50.507] resolve() on list ... 1570s [00:52:50.507] recursive: 0 1570s [00:52:50.508] length: 1 1570s [00:52:50.508] 1570s [00:52:50.508] resolved() for ‘SequentialFuture’ ... 1570s [00:52:50.508] - state: ‘finished’ 1570s [00:52:50.508] - run: TRUE 1570s [00:52:50.508] - result: ‘FutureResult’ 1570s [00:52:50.509] resolved() for ‘SequentialFuture’ ... done 1570s [00:52:50.509] Future #1 1570s [00:52:50.509] signalConditionsASAP(SequentialFuture, pos=1) ... 1570s [00:52:50.509] - nx: 1 1570s [00:52:50.509] - relay: TRUE 1570s [00:52:50.509] - stdout: TRUE 1570s [00:52:50.509] - signal: TRUE 1570s [00:52:50.509] - resignal: FALSE 1570s [00:52:50.510] - force: TRUE 1570s [00:52:50.510] - relayed: [n=1] FALSE 1570s [00:52:50.510] - queued futures: [n=1] FALSE 1570s [00:52:50.510] - until=1 1570s [00:52:50.510] - relaying element #1 1570s [00:52:50.511] - relayed: [n=1] TRUE 1570s [00:52:50.511] - queued futures: [n=1] TRUE 1570s [00:52:50.511] signalConditionsASAP(SequentialFuture, pos=1) ... done 1570s [00:52:50.511] length: 0 (resolved future 1) 1570s [00:52:50.511] Relaying remaining futures 1570s [00:52:50.512] signalConditionsASAP(NULL, pos=0) ... 1570s [00:52:50.512] - nx: 1 1570s [00:52:50.512] - relay: TRUE 1570s [00:52:50.512] - stdout: TRUE 1570s [00:52:50.512] - signal: TRUE 1570s [00:52:50.512] - resignal: FALSE 1570s [00:52:50.513] - force: TRUE 1570s [00:52:50.513] - relayed: [n=1] TRUE 1570s [00:52:50.513] - queued futures: [n=1] TRUE 1570s - flush all 1570s [00:52:50.513] - relayed: [n=1] TRUE 1570s [00:52:50.513] - queued futures: [n=1] TRUE 1570s [00:52:50.513] signalConditionsASAP(NULL, pos=0) ... done 1570s [00:52:50.514] resolve() on list ... DONE 1570s [00:52:50.514] - Number of value chunks collected: 1 1570s [00:52:50.514] Resolving 1 futures (chunks) ... DONE 1570s [00:52:50.514] Reducing values from 1 chunks ... 1570s [00:52:50.514] - Number of values collected after concatenation: 3 1570s [00:52:50.515] - Number of values expected: 3 1570s [00:52:50.515] Reducing values from 1 chunks ... DONE 1570s [00:52:50.515] future_lapply() ... DONE 1570s List of 2 1570s $ y0:List of 3 1570s ..$ : chr "a" 1570s ..$ : chr "b" 1570s ..$ : chr "c" 1570s $ y1:List of 3 1570s ..$ : chr "a" 1570s ..$ : chr "b" 1570s ..$ : chr "c" 1570s List of 2 1570s $ y0:List of 3 1570s ..$ : chr "a" 1570s ..$ : chr "b" 1570s ..$ : chr "c" 1570s $ y2:List of 3 1570s ..$ : chr "a" 1570s ..$ : chr "b" 1570s ..$ : chr "c" 1570s [00:52:50.529] future_lapply() ... 1570s [00:52:50.530] Number of chunks: 1 1570s [00:52:50.530] getGlobalsAndPackagesXApply() ... 1570s [00:52:50.530] - future.globals: TRUE 1570s [00:52:50.530] getGlobalsAndPackages() ... 1570s [00:52:50.531] Searching for globals... 1570s [00:52:50.532] - globals found: [2] ‘FUN’, ‘UseMethod’ 1570s [00:52:50.532] Searching for globals ... DONE 1570s [00:52:50.532] Resolving globals: FALSE 1570s [00:52:50.533] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1570s [00:52:50.534] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1570s [00:52:50.534] - globals: [1] ‘FUN’ 1570s [00:52:50.534] 1570s [00:52:50.534] getGlobalsAndPackages() ... DONE 1570s [00:52:50.535] - globals found/used: [n=1] ‘FUN’ 1570s [00:52:50.535] - needed namespaces: [n=0] 1570s [00:52:50.535] Finding globals ... DONE 1570s [00:52:50.535] - use_args: TRUE 1570s [00:52:50.535] - Getting '...' globals ... 1570s [00:52:50.536] resolve() on list ... 1570s [00:52:50.536] recursive: 0 1570s [00:52:50.536] length: 1 1570s [00:52:50.536] elements: ‘...’ 1570s [00:52:50.537] length: 0 (resolved future 1) 1570s [00:52:50.537] resolve() on list ... DONE 1570s [00:52:50.537] - '...' content: [n=0] 1570s [00:52:50.537] List of 1 1570s [00:52:50.537] $ ...: list() 1570s [00:52:50.537] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1570s [00:52:50.537] - attr(*, "where")=List of 1 1570s [00:52:50.537] ..$ ...: 1570s [00:52:50.537] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1570s [00:52:50.537] - attr(*, "resolved")= logi TRUE 1570s [00:52:50.537] - attr(*, "total_size")= num NA 1570s [00:52:50.542] - Getting '...' globals ... DONE 1570s [00:52:50.542] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1570s [00:52:50.542] List of 2 1570s [00:52:50.542] $ ...future.FUN:function (x, ...) 1570s [00:52:50.542] $ ... : list() 1570s [00:52:50.542] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1570s [00:52:50.542] - attr(*, "where")=List of 2 1570s [00:52:50.542] ..$ ...future.FUN: 1570s [00:52:50.542] ..$ ... : 1570s [00:52:50.542] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1570s [00:52:50.542] - attr(*, "resolved")= logi FALSE 1570s [00:52:50.542] - attr(*, "total_size")= num 1248 1570s [00:52:50.546] Packages to be attached in all futures: [n=0] 1570s [00:52:50.547] getGlobalsAndPackagesXApply() ... DONE 1570s [00:52:50.547] Number of futures (= number of chunks): 1 1570s [00:52:50.547] Launching 1 futures (chunks) ... 1570s [00:52:50.547] Chunk #1 of 1 ... 1570s [00:52:50.548] - Finding globals in 'X' for chunk #1 ... 1570s [00:52:50.548] getGlobalsAndPackages() ... 1570s [00:52:50.548] Searching for globals... 1570s [00:52:50.548] 1570s [00:52:50.548] Searching for globals ... DONE 1570s [00:52:50.549] - globals: [0] 1570s [00:52:50.549] getGlobalsAndPackages() ... DONE 1570s [00:52:50.549] + additional globals found: [n=0] 1570s [00:52:50.549] + additional namespaces needed: [n=0] 1570s [00:52:50.549] - Finding globals in 'X' for chunk #1 ... DONE 1570s [00:52:50.549] - seeds: 1570s [00:52:50.550] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1570s [00:52:50.550] getGlobalsAndPackages() ... 1570s [00:52:50.550] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1570s [00:52:50.550] Resolving globals: FALSE 1570s [00:52:50.550] Tweak future expression to call with '...' arguments ... 1570s [00:52:50.551] { 1570s [00:52:50.551] do.call(function(...) { 1570s [00:52:50.551] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1570s [00:52:50.551] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1570s [00:52:50.551] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1570s [00:52:50.551] on.exit(options(oopts), add = TRUE) 1570s [00:52:50.551] } 1570s [00:52:50.551] { 1570s [00:52:50.551] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1570s [00:52:50.551] ...future.X_jj <- ...future.elements_ii[[jj]] 1570s [00:52:50.551] ...future.FUN(...future.X_jj, ...) 1570s [00:52:50.551] }) 1570s [00:52:50.551] } 1570s [00:52:50.551] }, args = future.call.arguments) 1570s [00:52:50.551] } 1570s [00:52:50.551] Tweak future expression to call with '...' arguments ... DONE 1570s [00:52:50.552] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1570s [00:52:50.552] 1570s [00:52:50.552] getGlobalsAndPackages() ... DONE 1570s [00:52:50.552] run() for ‘Future’ ... 1570s [00:52:50.552] - state: ‘created’ 1570s [00:52:50.553] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1570s [00:52:50.553] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1570s [00:52:50.554] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1570s [00:52:50.554] - Field: ‘label’ 1570s [00:52:50.554] - Field: ‘local’ 1570s [00:52:50.554] - Field: ‘owner’ 1570s [00:52:50.554] - Field: ‘envir’ 1570s [00:52:50.554] - Field: ‘packages’ 1570s [00:52:50.554] - Field: ‘gc’ 1570s [00:52:50.555] - Field: ‘conditions’ 1570s [00:52:50.555] - Field: ‘expr’ 1570s [00:52:50.555] - Field: ‘uuid’ 1570s [00:52:50.555] - Field: ‘seed’ 1570s [00:52:50.556] - Field: ‘version’ 1570s [00:52:50.556] - Field: ‘result’ 1570s [00:52:50.556] - Field: ‘asynchronous’ 1570s [00:52:50.557] - Field: ‘calls’ 1570s [00:52:50.557] - Field: ‘globals’ 1570s [00:52:50.557] - Field: ‘stdout’ 1570s [00:52:50.557] - Field: ‘earlySignal’ 1570s [00:52:50.558] - Field: ‘lazy’ 1570s [00:52:50.558] - Field: ‘state’ 1570s [00:52:50.558] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1570s [00:52:50.559] - Launch lazy future ... 1570s [00:52:50.559] Packages needed by the future expression (n = 0): 1570s [00:52:50.559] Packages needed by future strategies (n = 0): 1570s [00:52:50.560] { 1570s [00:52:50.560] { 1570s [00:52:50.560] { 1570s [00:52:50.560] ...future.startTime <- base::Sys.time() 1570s [00:52:50.560] { 1570s [00:52:50.560] { 1570s [00:52:50.560] { 1570s [00:52:50.560] base::local({ 1570s [00:52:50.560] has_future <- base::requireNamespace("future", 1570s [00:52:50.560] quietly = TRUE) 1570s [00:52:50.560] if (has_future) { 1570s [00:52:50.560] ns <- base::getNamespace("future") 1570s [00:52:50.560] version <- ns[[".package"]][["version"]] 1570s [00:52:50.560] if (is.null(version)) 1570s [00:52:50.560] version <- utils::packageVersion("future") 1570s [00:52:50.560] } 1570s [00:52:50.560] else { 1570s [00:52:50.560] version <- NULL 1570s [00:52:50.560] } 1570s [00:52:50.560] if (!has_future || version < "1.8.0") { 1570s [00:52:50.560] info <- base::c(r_version = base::gsub("R version ", 1570s [00:52:50.560] "", base::R.version$version.string), 1570s [00:52:50.560] platform = base::sprintf("%s (%s-bit)", 1570s [00:52:50.560] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1570s [00:52:50.560] os = base::paste(base::Sys.info()[base::c("sysname", 1570s [00:52:50.560] "release", "version")], collapse = " "), 1570s [00:52:50.560] hostname = base::Sys.info()[["nodename"]]) 1570s [00:52:50.560] info <- base::sprintf("%s: %s", base::names(info), 1570s [00:52:50.560] info) 1570s [00:52:50.560] info <- base::paste(info, collapse = "; ") 1570s [00:52:50.560] if (!has_future) { 1570s [00:52:50.560] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1570s [00:52:50.560] info) 1570s [00:52:50.560] } 1570s [00:52:50.560] else { 1570s [00:52:50.560] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1570s [00:52:50.560] info, version) 1570s [00:52:50.560] } 1570s [00:52:50.560] base::stop(msg) 1570s [00:52:50.560] } 1570s [00:52:50.560] }) 1570s [00:52:50.560] } 1570s [00:52:50.560] options(future.plan = NULL) 1570s [00:52:50.560] Sys.unsetenv("R_FUTURE_PLAN") 1570s [00:52:50.560] future::plan("default", .cleanup = FALSE, .init = FALSE) 1570s [00:52:50.560] } 1570s [00:52:50.560] ...future.workdir <- getwd() 1570s [00:52:50.560] } 1570s [00:52:50.560] ...future.oldOptions <- base::as.list(base::.Options) 1570s [00:52:50.560] ...future.oldEnvVars <- base::Sys.getenv() 1570s [00:52:50.560] } 1570s [00:52:50.560] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1570s [00:52:50.560] future.globals.maxSize = NULL, future.globals.method = NULL, 1570s [00:52:50.560] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1570s [00:52:50.560] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1570s [00:52:50.560] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1570s [00:52:50.560] future.stdout.windows.reencode = NULL, width = 80L) 1570s [00:52:50.560] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1570s [00:52:50.560] base::names(...future.oldOptions)) 1570s [00:52:50.560] } 1570s [00:52:50.560] if (FALSE) { 1570s [00:52:50.560] } 1570s [00:52:50.560] else { 1570s [00:52:50.560] if (TRUE) { 1570s [00:52:50.560] ...future.stdout <- base::rawConnection(base::raw(0L), 1570s [00:52:50.560] open = "w") 1570s [00:52:50.560] } 1570s [00:52:50.560] else { 1570s [00:52:50.560] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1570s [00:52:50.560] windows = "NUL", "/dev/null"), open = "w") 1570s [00:52:50.560] } 1570s [00:52:50.560] base::sink(...future.stdout, type = "output", split = FALSE) 1570s [00:52:50.560] base::on.exit(if (!base::is.null(...future.stdout)) { 1570s [00:52:50.560] base::sink(type = "output", split = FALSE) 1570s [00:52:50.560] base::close(...future.stdout) 1570s [00:52:50.560] }, add = TRUE) 1570s [00:52:50.560] } 1570s [00:52:50.560] ...future.frame <- base::sys.nframe() 1570s [00:52:50.560] ...future.conditions <- base::list() 1570s [00:52:50.560] ...future.rng <- base::globalenv()$.Random.seed 1570s [00:52:50.560] if (FALSE) { 1570s [00:52:50.560] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1570s [00:52:50.560] "...future.value", "...future.globalenv.names", ".Random.seed") 1570s [00:52:50.560] } 1570s [00:52:50.560] ...future.result <- base::tryCatch({ 1570s [00:52:50.560] base::withCallingHandlers({ 1570s [00:52:50.560] ...future.value <- base::withVisible(base::local({ 1570s [00:52:50.560] do.call(function(...) { 1570s [00:52:50.560] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1570s [00:52:50.560] if (!identical(...future.globals.maxSize.org, 1570s [00:52:50.560] ...future.globals.maxSize)) { 1570s [00:52:50.560] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1570s [00:52:50.560] on.exit(options(oopts), add = TRUE) 1570s [00:52:50.560] } 1570s [00:52:50.560] { 1570s [00:52:50.560] lapply(seq_along(...future.elements_ii), 1570s [00:52:50.560] FUN = function(jj) { 1570s [00:52:50.560] ...future.X_jj <- ...future.elements_ii[[jj]] 1570s [00:52:50.560] ...future.FUN(...future.X_jj, ...) 1570s [00:52:50.560] }) 1570s [00:52:50.560] } 1570s [00:52:50.560] }, args = future.call.arguments) 1570s [00:52:50.560] })) 1570s [00:52:50.560] future::FutureResult(value = ...future.value$value, 1570s [00:52:50.560] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1570s [00:52:50.560] ...future.rng), globalenv = if (FALSE) 1570s [00:52:50.560] list(added = base::setdiff(base::names(base::.GlobalEnv), 1570s [00:52:50.560] ...future.globalenv.names)) 1570s [00:52:50.560] else NULL, started = ...future.startTime, version = "1.8") 1570s [00:52:50.560] }, condition = base::local({ 1570s [00:52:50.560] c <- base::c 1570s [00:52:50.560] inherits <- base::inherits 1570s [00:52:50.560] invokeRestart <- base::invokeRestart 1570s [00:52:50.560] length <- base::length 1570s [00:52:50.560] list <- base::list 1570s [00:52:50.560] seq.int <- base::seq.int 1570s [00:52:50.560] signalCondition <- base::signalCondition 1570s [00:52:50.560] sys.calls <- base::sys.calls 1570s [00:52:50.560] `[[` <- base::`[[` 1570s [00:52:50.560] `+` <- base::`+` 1570s [00:52:50.560] `<<-` <- base::`<<-` 1570s [00:52:50.560] sysCalls <- function(calls = sys.calls(), from = 1L) { 1570s [00:52:50.560] calls[seq.int(from = from + 12L, to = length(calls) - 1570s [00:52:50.560] 3L)] 1570s [00:52:50.560] } 1570s [00:52:50.560] function(cond) { 1570s [00:52:50.560] is_error <- inherits(cond, "error") 1570s [00:52:50.560] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1570s [00:52:50.560] NULL) 1570s [00:52:50.560] if (is_error) { 1570s [00:52:50.560] sessionInformation <- function() { 1570s [00:52:50.560] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1570s [00:52:50.560] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1570s [00:52:50.560] search = base::search(), system = base::Sys.info()) 1570s [00:52:50.560] } 1570s [00:52:50.560] ...future.conditions[[length(...future.conditions) + 1570s [00:52:50.560] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1570s [00:52:50.560] cond$call), session = sessionInformation(), 1570s [00:52:50.560] timestamp = base::Sys.time(), signaled = 0L) 1570s [00:52:50.560] signalCondition(cond) 1570s [00:52:50.560] } 1570s [00:52:50.560] else if (!ignore && TRUE && inherits(cond, c("condition", 1570s [00:52:50.560] "immediateCondition"))) { 1570s [00:52:50.560] signal <- TRUE && inherits(cond, "immediateCondition") 1570s [00:52:50.560] ...future.conditions[[length(...future.conditions) + 1570s [00:52:50.560] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1570s [00:52:50.560] if (TRUE && !signal) { 1570s [00:52:50.560] muffleCondition <- function (cond, pattern = "^muffle") 1570s [00:52:50.560] { 1570s [00:52:50.560] inherits <- base::inherits 1570s [00:52:50.560] invokeRestart <- base::invokeRestart 1570s [00:52:50.560] is.null <- base::is.null 1570s [00:52:50.560] muffled <- FALSE 1570s [00:52:50.560] if (inherits(cond, "message")) { 1570s [00:52:50.560] muffled <- grepl(pattern, "muffleMessage") 1570s [00:52:50.560] if (muffled) 1570s [00:52:50.560] invokeRestart("muffleMessage") 1570s [00:52:50.560] } 1570s [00:52:50.560] else if (inherits(cond, "warning")) { 1570s [00:52:50.560] muffled <- grepl(pattern, "muffleWarning") 1570s [00:52:50.560] if (muffled) 1570s [00:52:50.560] invokeRestart("muffleWarning") 1570s [00:52:50.560] } 1570s [00:52:50.560] else if (inherits(cond, "condition")) { 1570s [00:52:50.560] if (!is.null(pattern)) { 1570s [00:52:50.560] computeRestarts <- base::computeRestarts 1570s [00:52:50.560] grepl <- base::grepl 1570s [00:52:50.560] restarts <- computeRestarts(cond) 1570s [00:52:50.560] for (restart in restarts) { 1570s [00:52:50.560] name <- restart$name 1570s [00:52:50.560] if (is.null(name)) 1570s [00:52:50.560] next 1570s [00:52:50.560] if (!grepl(pattern, name)) 1570s [00:52:50.560] next 1570s [00:52:50.560] invokeRestart(restart) 1570s [00:52:50.560] muffled <- TRUE 1570s [00:52:50.560] break 1570s [00:52:50.560] } 1570s [00:52:50.560] } 1570s [00:52:50.560] } 1570s [00:52:50.560] invisible(muffled) 1570s [00:52:50.560] } 1570s [00:52:50.560] muffleCondition(cond, pattern = "^muffle") 1570s [00:52:50.560] } 1570s [00:52:50.560] } 1570s [00:52:50.560] else { 1570s [00:52:50.560] if (TRUE) { 1570s [00:52:50.560] muffleCondition <- function (cond, pattern = "^muffle") 1570s [00:52:50.560] { 1570s [00:52:50.560] inherits <- base::inherits 1570s [00:52:50.560] invokeRestart <- base::invokeRestart 1570s [00:52:50.560] is.null <- base::is.null 1570s [00:52:50.560] muffled <- FALSE 1570s [00:52:50.560] if (inherits(cond, "message")) { 1570s [00:52:50.560] muffled <- grepl(pattern, "muffleMessage") 1570s [00:52:50.560] if (muffled) 1570s [00:52:50.560] invokeRestart("muffleMessage") 1570s [00:52:50.560] } 1570s [00:52:50.560] else if (inherits(cond, "warning")) { 1570s [00:52:50.560] muffled <- grepl(pattern, "muffleWarning") 1570s [00:52:50.560] if (muffled) 1570s [00:52:50.560] invokeRestart("muffleWarning") 1570s [00:52:50.560] } 1570s [00:52:50.560] else if (inherits(cond, "condition")) { 1570s [00:52:50.560] if (!is.null(pattern)) { 1570s [00:52:50.560] computeRestarts <- base::computeRestarts 1570s [00:52:50.560] grepl <- base::grepl 1570s [00:52:50.560] restarts <- computeRestarts(cond) 1570s [00:52:50.560] for (restart in restarts) { 1570s [00:52:50.560] name <- restart$name 1570s [00:52:50.560] if (is.null(name)) 1570s [00:52:50.560] next 1570s [00:52:50.560] if (!grepl(pattern, name)) 1570s [00:52:50.560] next 1570s [00:52:50.560] invokeRestart(restart) 1570s [00:52:50.560] muffled <- TRUE 1570s [00:52:50.560] break 1570s [00:52:50.560] } 1570s [00:52:50.560] } 1570s [00:52:50.560] } 1570s [00:52:50.560] invisible(muffled) 1570s [00:52:50.560] } 1570s [00:52:50.560] muffleCondition(cond, pattern = "^muffle") 1570s [00:52:50.560] } 1570s [00:52:50.560] } 1570s [00:52:50.560] } 1570s [00:52:50.560] })) 1570s [00:52:50.560] }, error = function(ex) { 1570s [00:52:50.560] base::structure(base::list(value = NULL, visible = NULL, 1570s [00:52:50.560] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1570s [00:52:50.560] ...future.rng), started = ...future.startTime, 1570s [00:52:50.560] finished = Sys.time(), session_uuid = NA_character_, 1570s [00:52:50.560] version = "1.8"), class = "FutureResult") 1570s [00:52:50.560] }, finally = { 1570s [00:52:50.560] if (!identical(...future.workdir, getwd())) 1570s [00:52:50.560] setwd(...future.workdir) 1570s [00:52:50.560] { 1570s [00:52:50.560] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1570s [00:52:50.560] ...future.oldOptions$nwarnings <- NULL 1570s [00:52:50.560] } 1570s [00:52:50.560] base::options(...future.oldOptions) 1570s [00:52:50.560] if (.Platform$OS.type == "windows") { 1570s [00:52:50.560] old_names <- names(...future.oldEnvVars) 1570s [00:52:50.560] envs <- base::Sys.getenv() 1570s [00:52:50.560] names <- names(envs) 1570s [00:52:50.560] common <- intersect(names, old_names) 1570s [00:52:50.560] added <- setdiff(names, old_names) 1570s [00:52:50.560] removed <- setdiff(old_names, names) 1570s [00:52:50.560] changed <- common[...future.oldEnvVars[common] != 1570s [00:52:50.560] envs[common]] 1570s [00:52:50.560] NAMES <- toupper(changed) 1570s [00:52:50.560] args <- list() 1570s [00:52:50.560] for (kk in seq_along(NAMES)) { 1570s [00:52:50.560] name <- changed[[kk]] 1570s [00:52:50.560] NAME <- NAMES[[kk]] 1570s [00:52:50.560] if (name != NAME && is.element(NAME, old_names)) 1570s [00:52:50.560] next 1570s [00:52:50.560] args[[name]] <- ...future.oldEnvVars[[name]] 1570s [00:52:50.560] } 1570s [00:52:50.560] NAMES <- toupper(added) 1570s [00:52:50.560] for (kk in seq_along(NAMES)) { 1570s [00:52:50.560] name <- added[[kk]] 1570s [00:52:50.560] NAME <- NAMES[[kk]] 1570s [00:52:50.560] if (name != NAME && is.element(NAME, old_names)) 1570s [00:52:50.560] next 1570s [00:52:50.560] args[[name]] <- "" 1570s [00:52:50.560] } 1570s [00:52:50.560] NAMES <- toupper(removed) 1570s [00:52:50.560] for (kk in seq_along(NAMES)) { 1570s [00:52:50.560] name <- removed[[kk]] 1570s [00:52:50.560] NAME <- NAMES[[kk]] 1570s [00:52:50.560] if (name != NAME && is.element(NAME, old_names)) 1570s [00:52:50.560] next 1570s [00:52:50.560] args[[name]] <- ...future.oldEnvVars[[name]] 1570s [00:52:50.560] } 1570s [00:52:50.560] if (length(args) > 0) 1570s [00:52:50.560] base::do.call(base::Sys.setenv, args = args) 1570s [00:52:50.560] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1570s [00:52:50.560] } 1570s [00:52:50.560] else { 1570s [00:52:50.560] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1570s [00:52:50.560] } 1570s [00:52:50.560] { 1570s [00:52:50.560] if (base::length(...future.futureOptionsAdded) > 1570s [00:52:50.560] 0L) { 1570s [00:52:50.560] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1570s [00:52:50.560] base::names(opts) <- ...future.futureOptionsAdded 1570s [00:52:50.560] base::options(opts) 1570s [00:52:50.560] } 1570s [00:52:50.560] { 1570s [00:52:50.560] { 1570s [00:52:50.560] NULL 1570s [00:52:50.560] RNGkind("Mersenne-Twister") 1570s [00:52:50.560] base::rm(list = ".Random.seed", envir = base::globalenv(), 1570s [00:52:50.560] inherits = FALSE) 1570s [00:52:50.560] } 1570s [00:52:50.560] options(future.plan = NULL) 1570s [00:52:50.560] if (is.na(NA_character_)) 1570s [00:52:50.560] Sys.unsetenv("R_FUTURE_PLAN") 1570s [00:52:50.560] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1570s [00:52:50.560] future::plan(list(function (..., envir = parent.frame()) 1570s [00:52:50.560] { 1570s [00:52:50.560] future <- SequentialFuture(..., envir = envir) 1570s [00:52:50.560] if (!future$lazy) 1570s [00:52:50.560] future <- run(future) 1570s [00:52:50.560] invisible(future) 1570s [00:52:50.560] }), .cleanup = FALSE, .init = FALSE) 1570s [00:52:50.560] } 1570s [00:52:50.560] } 1570s [00:52:50.560] } 1570s [00:52:50.560] }) 1570s [00:52:50.560] if (TRUE) { 1570s [00:52:50.560] base::sink(type = "output", split = FALSE) 1570s [00:52:50.560] if (TRUE) { 1570s [00:52:50.560] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1570s [00:52:50.560] } 1570s [00:52:50.560] else { 1570s [00:52:50.560] ...future.result["stdout"] <- base::list(NULL) 1570s [00:52:50.560] } 1570s [00:52:50.560] base::close(...future.stdout) 1570s [00:52:50.560] ...future.stdout <- NULL 1570s [00:52:50.560] } 1570s [00:52:50.560] ...future.result$conditions <- ...future.conditions 1570s [00:52:50.560] ...future.result$finished <- base::Sys.time() 1570s [00:52:50.560] ...future.result 1570s [00:52:50.560] } 1570s [00:52:50.563] assign_globals() ... 1570s [00:52:50.563] List of 5 1570s [00:52:50.563] $ ...future.FUN :function (x, ...) 1570s [00:52:50.563] $ future.call.arguments : list() 1570s [00:52:50.563] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1570s [00:52:50.563] $ ...future.elements_ii :List of 3 1570s [00:52:50.563] ..$ : chr "a" 1570s [00:52:50.563] ..$ : chr "b" 1570s [00:52:50.563] ..$ : chr "c" 1570s [00:52:50.563] $ ...future.seeds_ii : NULL 1570s [00:52:50.563] $ ...future.globals.maxSize: NULL 1570s [00:52:50.563] - attr(*, "where")=List of 5 1570s [00:52:50.563] ..$ ...future.FUN : 1570s [00:52:50.563] ..$ future.call.arguments : 1570s [00:52:50.563] ..$ ...future.elements_ii : 1570s [00:52:50.563] ..$ ...future.seeds_ii : 1570s [00:52:50.563] ..$ ...future.globals.maxSize: 1570s [00:52:50.563] - attr(*, "resolved")= logi FALSE 1570s [00:52:50.563] - attr(*, "total_size")= num 1248 1570s [00:52:50.563] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1570s [00:52:50.563] - attr(*, "already-done")= logi TRUE 1570s [00:52:50.574] - copied ‘...future.FUN’ to environment 1570s [00:52:50.574] - copied ‘future.call.arguments’ to environment 1570s [00:52:50.574] - copied ‘...future.elements_ii’ to environment 1570s [00:52:50.574] - copied ‘...future.seeds_ii’ to environment 1570s [00:52:50.575] - copied ‘...future.globals.maxSize’ to environment 1570s [00:52:50.575] assign_globals() ... done 1570s [00:52:50.575] plan(): Setting new future strategy stack: 1570s [00:52:50.575] List of future strategies: 1570s [00:52:50.575] 1. sequential: 1570s [00:52:50.575] - args: function (..., envir = parent.frame()) 1570s [00:52:50.575] - tweaked: FALSE 1570s [00:52:50.575] - call: NULL 1570s [00:52:50.576] plan(): nbrOfWorkers() = 1 1570s [00:52:50.577] plan(): Setting new future strategy stack: 1570s [00:52:50.577] List of future strategies: 1570s [00:52:50.577] 1. sequential: 1570s [00:52:50.577] - args: function (..., envir = parent.frame()) 1570s [00:52:50.577] - tweaked: FALSE 1570s [00:52:50.577] - call: plan(strategy) 1570s [00:52:50.578] plan(): nbrOfWorkers() = 1 1570s [00:52:50.579] SequentialFuture started (and completed) 1570s [00:52:50.579] - Launch lazy future ... done 1570s [00:52:50.579] run() for ‘SequentialFuture’ ... done 1570s List of 2 1570s $ y0:List[00:52:50.579] Created future: 1570s [00:52:50.579] SequentialFuture: 1570s [00:52:50.579] Label: ‘future_sapply-1’ 1570s [00:52:50.579] Expression: 1570s [00:52:50.579] { 1570s [00:52:50.579] do.call(function(...) { 1570s [00:52:50.579] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1570s [00:52:50.579] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1570s [00:52:50.579] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1570s [00:52:50.579] on.exit(options(oopts), add = TRUE) 1570s [00:52:50.579] } 1570s [00:52:50.579] { 1570s [00:52:50.579] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1570s [00:52:50.579] ...future.X_jj <- ...future.elements_ii[[jj]] 1570s [00:52:50.579] ...future.FUN(...future.X_jj, ...) 1570s [00:52:50.579] }) 1570s [00:52:50.579] } 1570s [00:52:50.579] }, args = future.call.arguments) 1570s [00:52:50.579] } 1570s [00:52:50.579] Lazy evaluation: FALSE 1570s [00:52:50.579] Asynchronous evaluation: FALSE 1570s [00:52:50.579] Local evaluation: TRUE 1570s [00:52:50.579] Environment: R_GlobalEnv 1570s [00:52:50.579] Capture standard output: TRUE 1570s [00:52:50.579] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1570s [00:52:50.579] Globals: 5 objects totaling 1.55 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1570s [00:52:50.579] Packages: 1570s [00:52:50.579] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1570s [00:52:50.579] Resolved: TRUE 1570s [00:52:50.579] Value: 840 bytes of class ‘list’ 1570s [00:52:50.579] Early signaling: FALSE 1570s [00:52:50.579] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1570s [00:52:50.579] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1570s [00:52:50.581] Chunk #1 of 1 ... DONE 1570s [00:52:50.581] Launching 1 futures (chunks) ... DONE 1570s [00:52:50.581] Resolving 1 futures (chunks) ... 1570s [00:52:50.581] resolve() on list ... 1570s [00:52:50.582] recursive: 0 1570s [00:52:50.582] length: 1 1570s [00:52:50.582] 1570s [00:52:50.582] resolved() for ‘SequentialFuture’ ... 1570s [00:52:50.582] - state: ‘finished’ 1570s [00:52:50.582] - run: TRUE 1570s [00:52:50.582] - result: ‘FutureResult’ 1570s [00:52:50.582] resolved() for ‘SequentialFuture’ ... done 1570s [00:52:50.583] Future #1 1570s [00:52:50.583] signalConditionsASAP(SequentialFuture, pos=1) ... 1570s [00:52:50.583] - nx: 1 1570s [00:52:50.583] - relay: TRUE 1570s [00:52:50.583] - stdout: TRUE 1570s [00:52:50.583] - signal: TRUE 1570s [00:52:50.583] - resignal: FALSE 1570s [00:52:50.583] - force: TRUE 1570s [00:52:50.583] - relayed: [n=1] FALSE 1570s [00:52:50.584] - queued futures: [n=1] FALSE 1570s [00:52:50.584] - until=1 1570s [00:52:50.584] - relaying element #1 1570s [00:52:50.584] - relayed: [n=1] TRUE 1570s [00:52:50.584] - queued futures: [n=1] TRUE 1570s [00:52:50.584] signalConditionsASAP(SequentialFuture, pos=1) ... done 1570s [00:52:50.584] length: 0 (resolved future 1) 1570s [00:52:50.584] Relaying remaining futures 1570s [00:52:50.585] signalConditionsASAP(NULL, pos=0) ... 1570s [00:52:50.585] - nx: 1 1570s [00:52:50.585] - relay: TRUE 1570s [00:52:50.585] - stdout: TRUE 1570s [00:52:50.585] - signal: TRUE 1570s [00:52:50.585] - resignal: FALSE 1570s [00:52:50.585] - force: TRUE 1570s [00:52:50.585] - relayed: [n=1] TRUE 1570s [00:52:50.585] - queued futures: [n=1] TRUE 1570s - flush all 1570s [00:52:50.586] - relayed: [n=1] TRUE 1570s [00:52:50.586] - queued futures: [n=1] TRUE 1570s [00:52:50.586] signalConditionsASAP(NULL, pos=0) ... done 1570s [00:52:50.586] resolve() on list ... DONE 1570s [00:52:50.586] - Number of value chunks collected: 1 1570s [00:52:50.586] Resolving 1 futures (chunks) ... DONE 1570s [00:52:50.586] Reducing values from 1 chunks ... 1570s [00:52:50.586] - Number of values collected after concatenation: 3 1570s [00:52:50.586] - Number of values expected: 3 1570s [00:52:50.587] Reducing values from 1 chunks ... DONE 1570s [00:52:50.587] future_lapply() ... DONE 1570s of 3 1570s ..$ : chr [1, 1] "a" 1570s ..$ : chr [1, 1] "b" 1570s ..$ : chr [1, 1] "c" 1570s $ y1:List of 3 1570s ..$ : chr [1, 1] "a" 1570s ..$ : chr [1, 1] "b" 1570s ..$ : chr [1, 1] "c" 1570s List of 2 1570s $ y0:List of 3 1570s ..$ : chr [1, 1] "a" 1570s ..$ : chr [1, 1] "b" 1570s ..$ : chr [1, 1] "c" 1570s $ y2:List of 3 1570s ..$ : chr [1, 1] "a" 1570s ..$ : chr [1, 1] "b" 1570s ..$ : chr [1, 1] "c" 1570s [00:52:50.597] future_lapply() ... 1570s [00:52:50.597] Number of chunks: 1 1570s [00:52:50.598] getGlobalsAndPackagesXApply() ... 1570s [00:52:50.598] - future.globals: TRUE 1570s [00:52:50.598] getGlobalsAndPackages() ... 1570s [00:52:50.598] Searching for globals... 1570s [00:52:50.599] - globals found: [1] ‘FUN’ 1570s [00:52:50.599] Searching for globals ... DONE 1570s [00:52:50.599] Resolving globals: FALSE 1570s [00:52:50.600] The total size of the 1 globals is 848 bytes (848 bytes) 1570s [00:52:50.601] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1570s [00:52:50.601] - globals: [1] ‘FUN’ 1570s [00:52:50.601] 1570s [00:52:50.601] getGlobalsAndPackages() ... DONE 1570s [00:52:50.602] - globals found/used: [n=1] ‘FUN’ 1570s [00:52:50.602] - needed namespaces: [n=0] 1570s [00:52:50.602] Finding globals ... DONE 1570s [00:52:50.602] - use_args: TRUE 1570s [00:52:50.602] - Getting '...' globals ... 1570s [00:52:50.603] resolve() on list ... 1570s [00:52:50.603] recursive: 0 1570s [00:52:50.603] length: 1 1570s [00:52:50.603] elements: ‘...’ 1570s [00:52:50.603] length: 0 (resolved future 1) 1570s [00:52:50.603] resolve() on list ... DONE 1570s [00:52:50.604] - '...' content: [n=0] 1570s [00:52:50.604] List of 1 1570s [00:52:50.604] $ ...: list() 1570s [00:52:50.604] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1570s [00:52:50.604] - attr(*, "where")=List of 1 1570s [00:52:50.604] ..$ ...: 1570s [00:52:50.604] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1570s [00:52:50.604] - attr(*, "resolved")= logi TRUE 1570s [00:52:50.604] - attr(*, "total_size")= num NA 1570s [00:52:50.610] - Getting '...' globals ... DONE 1570s [00:52:50.610] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1570s [00:52:50.611] List of 2 1570s [00:52:50.611] $ ...future.FUN:function (x) 1570s [00:52:50.611] $ ... : list() 1570s [00:52:50.611] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1570s [00:52:50.611] - attr(*, "where")=List of 2 1570s [00:52:50.611] ..$ ...future.FUN: 1570s [00:52:50.611] ..$ ... : 1570s [00:52:50.611] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1570s [00:52:50.611] - attr(*, "resolved")= logi FALSE 1570s [00:52:50.611] - attr(*, "total_size")= num 848 1570s [00:52:50.616] Packages to be attached in all futures: [n=0] 1570s [00:52:50.616] getGlobalsAndPackagesXApply() ... DONE 1570s [00:52:50.617] Number of futures (= number of chunks): 1 1570s [00:52:50.617] Launching 1 futures (chunks) ... 1570s [00:52:50.617] Chunk #1 of 1 ... 1570s [00:52:50.617] - Finding globals in 'X' for chunk #1 ... 1570s [00:52:50.617] getGlobalsAndPackages() ... 1570s [00:52:50.617] Searching for globals... 1570s [00:52:50.618] 1570s [00:52:50.618] Searching for globals ... DONE 1570s [00:52:50.618] - globals: [0] 1570s [00:52:50.618] getGlobalsAndPackages() ... DONE 1570s [00:52:50.618] + additional globals found: [n=0] 1570s [00:52:50.619] + additional namespaces needed: [n=0] 1570s [00:52:50.619] - Finding globals in 'X' for chunk #1 ... DONE 1570s [00:52:50.619] - seeds: 1570s [00:52:50.619] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1570s [00:52:50.620] getGlobalsAndPackages() ... 1570s [00:52:50.620] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1570s [00:52:50.620] Resolving globals: FALSE 1570s [00:52:50.620] Tweak future expression to call with '...' arguments ... 1570s [00:52:50.620] { 1570s [00:52:50.620] do.call(function(...) { 1570s [00:52:50.620] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1570s [00:52:50.620] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1570s [00:52:50.620] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1570s [00:52:50.620] on.exit(options(oopts), add = TRUE) 1570s [00:52:50.620] } 1570s [00:52:50.620] { 1570s [00:52:50.620] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1570s [00:52:50.620] ...future.X_jj <- ...future.elements_ii[[jj]] 1570s [00:52:50.620] ...future.FUN(...future.X_jj, ...) 1570s [00:52:50.620] }) 1570s [00:52:50.620] } 1570s [00:52:50.620] }, args = future.call.arguments) 1570s [00:52:50.620] } 1570s [00:52:50.621] Tweak future expression to call with '...' arguments ... DONE 1570s [00:52:50.622] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1570s [00:52:50.622] 1570s [00:52:50.622] getGlobalsAndPackages() ... DONE 1570s [00:52:50.622] run() for ‘Future’ ... 1570s [00:52:50.623] - state: ‘created’ 1570s [00:52:50.623] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1570s [00:52:50.624] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1570s [00:52:50.624] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1570s [00:52:50.624] - Field: ‘label’ 1570s [00:52:50.624] - Field: ‘local’ 1570s [00:52:50.624] - Field: ‘owner’ 1570s [00:52:50.624] - Field: ‘envir’ 1570s [00:52:50.625] - Field: ‘packages’ 1570s [00:52:50.625] - Field: ‘gc’ 1570s [00:52:50.625] - Field: ‘conditions’ 1570s [00:52:50.625] - Field: ‘expr’ 1570s [00:52:50.626] - Field: ‘uuid’ 1570s [00:52:50.626] - Field: ‘seed’ 1570s [00:52:50.626] - Field: ‘version’ 1570s [00:52:50.626] - Field: ‘result’ 1570s [00:52:50.626] - Field: ‘asynchronous’ 1570s [00:52:50.626] - Field: ‘calls’ 1570s [00:52:50.627] - Field: ‘globals’ 1570s [00:52:50.627] - Field: ‘stdout’ 1570s [00:52:50.627] - Field: ‘earlySignal’ 1570s [00:52:50.627] - Field: ‘lazy’ 1570s [00:52:50.628] - Field: ‘state’ 1570s [00:52:50.628] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1570s [00:52:50.628] - Launch lazy future ... 1570s [00:52:50.628] Packages needed by the future expression (n = 0): 1570s [00:52:50.628] Packages needed by future strategies (n = 0): 1570s [00:52:50.629] { 1570s [00:52:50.629] { 1570s [00:52:50.629] { 1570s [00:52:50.629] ...future.startTime <- base::Sys.time() 1570s [00:52:50.629] { 1570s [00:52:50.629] { 1570s [00:52:50.629] { 1570s [00:52:50.629] base::local({ 1570s [00:52:50.629] has_future <- base::requireNamespace("future", 1570s [00:52:50.629] quietly = TRUE) 1570s [00:52:50.629] if (has_future) { 1570s [00:52:50.629] ns <- base::getNamespace("future") 1570s [00:52:50.629] version <- ns[[".package"]][["version"]] 1570s [00:52:50.629] if (is.null(version)) 1570s [00:52:50.629] version <- utils::packageVersion("future") 1570s [00:52:50.629] } 1570s [00:52:50.629] else { 1570s [00:52:50.629] version <- NULL 1570s [00:52:50.629] } 1570s [00:52:50.629] if (!has_future || version < "1.8.0") { 1570s [00:52:50.629] info <- base::c(r_version = base::gsub("R version ", 1570s [00:52:50.629] "", base::R.version$version.string), 1570s [00:52:50.629] platform = base::sprintf("%s (%s-bit)", 1570s [00:52:50.629] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1570s [00:52:50.629] os = base::paste(base::Sys.info()[base::c("sysname", 1570s [00:52:50.629] "release", "version")], collapse = " "), 1570s [00:52:50.629] hostname = base::Sys.info()[["nodename"]]) 1570s [00:52:50.629] info <- base::sprintf("%s: %s", base::names(info), 1570s [00:52:50.629] info) 1570s [00:52:50.629] info <- base::paste(info, collapse = "; ") 1570s [00:52:50.629] if (!has_future) { 1570s [00:52:50.629] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1570s [00:52:50.629] info) 1570s [00:52:50.629] } 1570s [00:52:50.629] else { 1570s [00:52:50.629] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1570s [00:52:50.629] info, version) 1570s [00:52:50.629] } 1570s [00:52:50.629] base::stop(msg) 1570s [00:52:50.629] } 1570s [00:52:50.629] }) 1570s [00:52:50.629] } 1570s [00:52:50.629] options(future.plan = NULL) 1570s [00:52:50.629] Sys.unsetenv("R_FUTURE_PLAN") 1570s [00:52:50.629] future::plan("default", .cleanup = FALSE, .init = FALSE) 1570s [00:52:50.629] } 1570s [00:52:50.629] ...future.workdir <- getwd() 1570s [00:52:50.629] } 1570s [00:52:50.629] ...future.oldOptions <- base::as.list(base::.Options) 1570s [00:52:50.629] ...future.oldEnvVars <- base::Sys.getenv() 1570s [00:52:50.629] } 1570s [00:52:50.629] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1570s [00:52:50.629] future.globals.maxSize = NULL, future.globals.method = NULL, 1570s [00:52:50.629] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1570s [00:52:50.629] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1570s [00:52:50.629] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1570s [00:52:50.629] future.stdout.windows.reencode = NULL, width = 80L) 1570s [00:52:50.629] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1570s [00:52:50.629] base::names(...future.oldOptions)) 1570s [00:52:50.629] } 1570s [00:52:50.629] if (FALSE) { 1570s [00:52:50.629] } 1570s [00:52:50.629] else { 1570s [00:52:50.629] if (TRUE) { 1570s [00:52:50.629] ...future.stdout <- base::rawConnection(base::raw(0L), 1570s [00:52:50.629] open = "w") 1570s [00:52:50.629] } 1570s [00:52:50.629] else { 1570s [00:52:50.629] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1570s [00:52:50.629] windows = "NUL", "/dev/null"), open = "w") 1570s [00:52:50.629] } 1570s [00:52:50.629] base::sink(...future.stdout, type = "output", split = FALSE) 1570s [00:52:50.629] base::on.exit(if (!base::is.null(...future.stdout)) { 1570s [00:52:50.629] base::sink(type = "output", split = FALSE) 1570s [00:52:50.629] base::close(...future.stdout) 1570s [00:52:50.629] }, add = TRUE) 1570s [00:52:50.629] } 1570s [00:52:50.629] ...future.frame <- base::sys.nframe() 1570s [00:52:50.629] ...future.conditions <- base::list() 1570s [00:52:50.629] ...future.rng <- base::globalenv()$.Random.seed 1570s [00:52:50.629] if (FALSE) { 1570s [00:52:50.629] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1570s [00:52:50.629] "...future.value", "...future.globalenv.names", ".Random.seed") 1570s [00:52:50.629] } 1570s [00:52:50.629] ...future.result <- base::tryCatch({ 1570s [00:52:50.629] base::withCallingHandlers({ 1570s [00:52:50.629] ...future.value <- base::withVisible(base::local({ 1570s [00:52:50.629] do.call(function(...) { 1570s [00:52:50.629] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1570s [00:52:50.629] if (!identical(...future.globals.maxSize.org, 1570s [00:52:50.629] ...future.globals.maxSize)) { 1570s [00:52:50.629] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1570s [00:52:50.629] on.exit(options(oopts), add = TRUE) 1570s [00:52:50.629] } 1570s [00:52:50.629] { 1570s [00:52:50.629] lapply(seq_along(...future.elements_ii), 1570s [00:52:50.629] FUN = function(jj) { 1570s [00:52:50.629] ...future.X_jj <- ...future.elements_ii[[jj]] 1570s [00:52:50.629] ...future.FUN(...future.X_jj, ...) 1570s [00:52:50.629] }) 1570s [00:52:50.629] } 1570s [00:52:50.629] }, args = future.call.arguments) 1570s [00:52:50.629] })) 1570s [00:52:50.629] future::FutureResult(value = ...future.value$value, 1570s [00:52:50.629] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1570s [00:52:50.629] ...future.rng), globalenv = if (FALSE) 1570s [00:52:50.629] list(added = base::setdiff(base::names(base::.GlobalEnv), 1570s [00:52:50.629] ...future.globalenv.names)) 1570s [00:52:50.629] else NULL, started = ...future.startTime, version = "1.8") 1570s [00:52:50.629] }, condition = base::local({ 1570s [00:52:50.629] c <- base::c 1570s [00:52:50.629] inherits <- base::inherits 1570s [00:52:50.629] invokeRestart <- base::invokeRestart 1570s [00:52:50.629] length <- base::length 1570s [00:52:50.629] list <- base::list 1570s [00:52:50.629] seq.int <- base::seq.int 1570s [00:52:50.629] signalCondition <- base::signalCondition 1570s [00:52:50.629] sys.calls <- base::sys.calls 1570s [00:52:50.629] `[[` <- base::`[[` 1570s [00:52:50.629] `+` <- base::`+` 1570s [00:52:50.629] `<<-` <- base::`<<-` 1570s [00:52:50.629] sysCalls <- function(calls = sys.calls(), from = 1L) { 1570s [00:52:50.629] calls[seq.int(from = from + 12L, to = length(calls) - 1570s [00:52:50.629] 3L)] 1570s [00:52:50.629] } 1570s [00:52:50.629] function(cond) { 1570s [00:52:50.629] is_error <- inherits(cond, "error") 1570s [00:52:50.629] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1570s [00:52:50.629] NULL) 1570s [00:52:50.629] if (is_error) { 1570s [00:52:50.629] sessionInformation <- function() { 1570s [00:52:50.629] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1570s [00:52:50.629] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1570s [00:52:50.629] search = base::search(), system = base::Sys.info()) 1570s [00:52:50.629] } 1570s [00:52:50.629] ...future.conditions[[length(...future.conditions) + 1570s [00:52:50.629] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1570s [00:52:50.629] cond$call), session = sessionInformation(), 1570s [00:52:50.629] timestamp = base::Sys.time(), signaled = 0L) 1570s [00:52:50.629] signalCondition(cond) 1570s [00:52:50.629] } 1570s [00:52:50.629] else if (!ignore && TRUE && inherits(cond, c("condition", 1570s [00:52:50.629] "immediateCondition"))) { 1570s [00:52:50.629] signal <- TRUE && inherits(cond, "immediateCondition") 1570s [00:52:50.629] ...future.conditions[[length(...future.conditions) + 1570s [00:52:50.629] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1570s [00:52:50.629] if (TRUE && !signal) { 1570s [00:52:50.629] muffleCondition <- function (cond, pattern = "^muffle") 1570s [00:52:50.629] { 1570s [00:52:50.629] inherits <- base::inherits 1570s [00:52:50.629] invokeRestart <- base::invokeRestart 1570s [00:52:50.629] is.null <- base::is.null 1570s [00:52:50.629] muffled <- FALSE 1570s [00:52:50.629] if (inherits(cond, "message")) { 1570s [00:52:50.629] muffled <- grepl(pattern, "muffleMessage") 1570s [00:52:50.629] if (muffled) 1570s [00:52:50.629] invokeRestart("muffleMessage") 1570s [00:52:50.629] } 1570s [00:52:50.629] else if (inherits(cond, "warning")) { 1570s [00:52:50.629] muffled <- grepl(pattern, "muffleWarning") 1570s [00:52:50.629] if (muffled) 1570s [00:52:50.629] invokeRestart("muffleWarning") 1570s [00:52:50.629] } 1570s [00:52:50.629] else if (inherits(cond, "condition")) { 1570s [00:52:50.629] if (!is.null(pattern)) { 1570s [00:52:50.629] computeRestarts <- base::computeRestarts 1570s [00:52:50.629] grepl <- base::grepl 1570s [00:52:50.629] restarts <- computeRestarts(cond) 1570s [00:52:50.629] for (restart in restarts) { 1570s [00:52:50.629] name <- restart$name 1570s [00:52:50.629] if (is.null(name)) 1570s [00:52:50.629] next 1570s [00:52:50.629] if (!grepl(pattern, name)) 1570s [00:52:50.629] next 1570s [00:52:50.629] invokeRestart(restart) 1570s [00:52:50.629] muffled <- TRUE 1570s [00:52:50.629] break 1570s [00:52:50.629] } 1570s [00:52:50.629] } 1570s [00:52:50.629] } 1570s [00:52:50.629] invisible(muffled) 1570s [00:52:50.629] } 1570s [00:52:50.629] muffleCondition(cond, pattern = "^muffle") 1570s [00:52:50.629] } 1570s [00:52:50.629] } 1570s [00:52:50.629] else { 1570s [00:52:50.629] if (TRUE) { 1570s [00:52:50.629] muffleCondition <- function (cond, pattern = "^muffle") 1570s [00:52:50.629] { 1570s [00:52:50.629] inherits <- base::inherits 1570s [00:52:50.629] invokeRestart <- base::invokeRestart 1570s [00:52:50.629] is.null <- base::is.null 1570s [00:52:50.629] muffled <- FALSE 1570s [00:52:50.629] if (inherits(cond, "message")) { 1570s [00:52:50.629] muffled <- grepl(pattern, "muffleMessage") 1570s [00:52:50.629] if (muffled) 1570s [00:52:50.629] invokeRestart("muffleMessage") 1570s [00:52:50.629] } 1570s [00:52:50.629] else if (inherits(cond, "warning")) { 1570s [00:52:50.629] muffled <- grepl(pattern, "muffleWarning") 1570s [00:52:50.629] if (muffled) 1570s [00:52:50.629] invokeRestart("muffleWarning") 1570s [00:52:50.629] } 1570s [00:52:50.629] else if (inherits(cond, "condition")) { 1570s [00:52:50.629] if (!is.null(pattern)) { 1570s [00:52:50.629] computeRestarts <- base::computeRestarts 1570s [00:52:50.629] grepl <- base::grepl 1570s [00:52:50.629] restarts <- computeRestarts(cond) 1570s [00:52:50.629] for (restart in restarts) { 1570s [00:52:50.629] name <- restart$name 1570s [00:52:50.629] if (is.null(name)) 1570s [00:52:50.629] next 1570s [00:52:50.629] if (!grepl(pattern, name)) 1570s [00:52:50.629] next 1570s [00:52:50.629] invokeRestart(restart) 1570s [00:52:50.629] muffled <- TRUE 1570s [00:52:50.629] break 1570s [00:52:50.629] } 1570s [00:52:50.629] } 1570s [00:52:50.629] } 1570s [00:52:50.629] invisible(muffled) 1570s [00:52:50.629] } 1570s [00:52:50.629] muffleCondition(cond, pattern = "^muffle") 1570s [00:52:50.629] } 1570s [00:52:50.629] } 1570s [00:52:50.629] } 1570s [00:52:50.629] })) 1570s [00:52:50.629] }, error = function(ex) { 1570s [00:52:50.629] base::structure(base::list(value = NULL, visible = NULL, 1570s [00:52:50.629] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1570s [00:52:50.629] ...future.rng), started = ...future.startTime, 1570s [00:52:50.629] finished = Sys.time(), session_uuid = NA_character_, 1570s [00:52:50.629] version = "1.8"), class = "FutureResult") 1570s [00:52:50.629] }, finally = { 1570s [00:52:50.629] if (!identical(...future.workdir, getwd())) 1570s [00:52:50.629] setwd(...future.workdir) 1570s [00:52:50.629] { 1570s [00:52:50.629] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1570s [00:52:50.629] ...future.oldOptions$nwarnings <- NULL 1570s [00:52:50.629] } 1570s [00:52:50.629] base::options(...future.oldOptions) 1570s [00:52:50.629] if (.Platform$OS.type == "windows") { 1570s [00:52:50.629] old_names <- names(...future.oldEnvVars) 1570s [00:52:50.629] envs <- base::Sys.getenv() 1570s [00:52:50.629] names <- names(envs) 1570s [00:52:50.629] common <- intersect(names, old_names) 1570s [00:52:50.629] added <- setdiff(names, old_names) 1570s [00:52:50.629] removed <- setdiff(old_names, names) 1570s [00:52:50.629] changed <- common[...future.oldEnvVars[common] != 1570s [00:52:50.629] envs[common]] 1570s [00:52:50.629] NAMES <- toupper(changed) 1570s [00:52:50.629] args <- list() 1570s [00:52:50.629] for (kk in seq_along(NAMES)) { 1570s [00:52:50.629] name <- changed[[kk]] 1570s [00:52:50.629] NAME <- NAMES[[kk]] 1570s [00:52:50.629] if (name != NAME && is.element(NAME, old_names)) 1570s [00:52:50.629] next 1570s [00:52:50.629] args[[name]] <- ...future.oldEnvVars[[name]] 1570s [00:52:50.629] } 1570s [00:52:50.629] NAMES <- toupper(added) 1570s [00:52:50.629] for (kk in seq_along(NAMES)) { 1570s [00:52:50.629] name <- added[[kk]] 1570s [00:52:50.629] NAME <- NAMES[[kk]] 1570s [00:52:50.629] if (name != NAME && is.element(NAME, old_names)) 1570s [00:52:50.629] next 1570s [00:52:50.629] args[[name]] <- "" 1570s [00:52:50.629] } 1570s [00:52:50.629] NAMES <- toupper(removed) 1570s [00:52:50.629] for (kk in seq_along(NAMES)) { 1570s [00:52:50.629] name <- removed[[kk]] 1570s [00:52:50.629] NAME <- NAMES[[kk]] 1570s [00:52:50.629] if (name != NAME && is.element(NAME, old_names)) 1570s [00:52:50.629] next 1570s [00:52:50.629] args[[name]] <- ...future.oldEnvVars[[name]] 1570s [00:52:50.629] } 1570s [00:52:50.629] if (length(args) > 0) 1570s [00:52:50.629] base::do.call(base::Sys.setenv, args = args) 1570s [00:52:50.629] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1570s [00:52:50.629] } 1570s [00:52:50.629] else { 1570s [00:52:50.629] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1570s [00:52:50.629] } 1570s [00:52:50.629] { 1570s [00:52:50.629] if (base::length(...future.futureOptionsAdded) > 1570s [00:52:50.629] 0L) { 1570s [00:52:50.629] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1570s [00:52:50.629] base::names(opts) <- ...future.futureOptionsAdded 1570s [00:52:50.629] base::options(opts) 1570s [00:52:50.629] } 1570s [00:52:50.629] { 1570s [00:52:50.629] { 1570s [00:52:50.629] NULL 1570s [00:52:50.629] RNGkind("Mersenne-Twister") 1570s [00:52:50.629] base::rm(list = ".Random.seed", envir = base::globalenv(), 1570s [00:52:50.629] inherits = FALSE) 1570s [00:52:50.629] } 1570s [00:52:50.629] options(future.plan = NULL) 1570s [00:52:50.629] if (is.na(NA_character_)) 1570s [00:52:50.629] Sys.unsetenv("R_FUTURE_PLAN") 1570s [00:52:50.629] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1570s [00:52:50.629] future::plan(list(function (..., envir = parent.frame()) 1570s [00:52:50.629] { 1570s [00:52:50.629] future <- SequentialFuture(..., envir = envir) 1570s [00:52:50.629] if (!future$lazy) 1570s [00:52:50.629] future <- run(future) 1570s [00:52:50.629] invisible(future) 1570s [00:52:50.629] }), .cleanup = FALSE, .init = FALSE) 1570s [00:52:50.629] } 1570s [00:52:50.629] } 1570s [00:52:50.629] } 1570s [00:52:50.629] }) 1570s [00:52:50.629] if (TRUE) { 1570s [00:52:50.629] base::sink(type = "output", split = FALSE) 1570s [00:52:50.629] if (TRUE) { 1570s [00:52:50.629] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1570s [00:52:50.629] } 1570s [00:52:50.629] else { 1570s [00:52:50.629] ...future.result["stdout"] <- base::list(NULL) 1570s [00:52:50.629] } 1570s [00:52:50.629] base::close(...future.stdout) 1570s [00:52:50.629] ...future.stdout <- NULL 1570s [00:52:50.629] } 1570s [00:52:50.629] ...future.result$conditions <- ...future.conditions 1570s [00:52:50.629] ...future.result$finished <- base::Sys.time() 1570s [00:52:50.629] ...future.result 1570s [00:52:50.629] } 1570s [00:52:50.635] assign_globals() ... 1570s [00:52:50.635] List of 5 1570s [00:52:50.635] $ ...future.FUN :function (x) 1570s [00:52:50.635] $ future.call.arguments : list() 1570s [00:52:50.635] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1570s [00:52:50.635] $ ...future.elements_ii :List of 3 1570s [00:52:50.635] ..$ : chr "a" 1570s [00:52:50.635] ..$ : chr "b" 1570s [00:52:50.635] ..$ : chr "c" 1570s [00:52:50.635] $ ...future.seeds_ii : NULL 1570s [00:52:50.635] $ ...future.globals.maxSize: NULL 1570s [00:52:50.635] - attr(*, "where")=List of 5 1570s [00:52:50.635] ..$ ...future.FUN : 1570s [00:52:50.635] ..$ future.call.arguments : 1570s [00:52:50.635] ..$ ...future.elements_ii : 1570s [00:52:50.635] ..$ ...future.seeds_ii : 1570s [00:52:50.635] ..$ ...future.globals.maxSize: 1570s [00:52:50.635] - attr(*, "resolved")= logi FALSE 1570s [00:52:50.635] - attr(*, "total_size")= num 848 1570s [00:52:50.635] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1570s [00:52:50.635] - attr(*, "already-done")= logi TRUE 1570s [00:52:50.643] - copied ‘...future.FUN’ to environment 1570s [00:52:50.643] - copied ‘future.call.arguments’ to environment 1570s [00:52:50.643] - copied ‘...future.elements_ii’ to environment 1570s [00:52:50.644] - copied ‘...future.seeds_ii’ to environment 1570s [00:52:50.644] - copied ‘...future.globals.maxSize’ to environment 1570s [00:52:50.644] assign_globals() ... done 1570s [00:52:50.644] plan(): Setting new future strategy stack: 1570s [00:52:50.644] List of future strategies: 1570s [00:52:50.644] 1. sequential: 1570s [00:52:50.644] - args: function (..., envir = parent.frame()) 1570s [00:52:50.644] - tweaked: FALSE 1570s [00:52:50.644] - call: NULL 1570s [00:52:50.645] plan(): nbrOfWorkers() = 1 1570s [00:52:50.646] plan(): Setting new future strategy stack: 1570s [00:52:50.646] List of future strategies: 1570s [00:52:50.646] 1. sequential: 1570s [00:52:50.646] - args: function (..., envir = parent.frame()) 1570s [00:52:50.646] - tweaked: FALSE 1570s [00:52:50.646] - call: plan(strategy) 1570s [00:52:50.647] plan(): nbrOfWorkers() = 1 1570s [00:52:50.647] SequentialFuture started (and completed) 1570s [00:52:50.647] - Launch lazy future ... done 1570s [00:52:50.647] run() for ‘SequentialFuture’ ... done 1570s [00:52:50.647] Created future: 1570s [00:52:50.647] SequentialFuture: 1570s [00:52:50.647] Label: ‘future_sapply-1’ 1570s [00:52:50.647] Expression: 1570s [00:52:50.647] { 1570s [00:52:50.647] do.call(function(...) { 1570s [00:52:50.647] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1570s [00:52:50.647] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1570s [00:52:50.647] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1570s [00:52:50.647] on.exit(options(oopts), add = TRUE) 1570s [00:52:50.647] } 1570s [00:52:50.647] { 1570s [00:52:50.647] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1570s [00:52:50.647] ...future.X_jj <- ...future.elements_ii[[jj]] 1570s [00:52:50.647] ...future.FUN(...future.X_jj, ...) 1570s [00:52:50.647] }) 1570s [00:52:50.647] } 1570s [00:52:50.647] }, args = future.call.arguments) 1570s [00:52:50.647] } 1570s [00:52:50.647] Lazy evaluation: FALSE 1570s [00:52:50.647] Asynchronous evaluation: FALSE 1570s [00:52:50.647] Local evaluation: TRUE 1570s [00:52:50.647] Environment: R_GlobalEnv 1570s [00:52:50.647] Capture standard output: TRUE 1570s [00:52:50.647] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1570s [00:52:50.647] Globals: 5 objects totaling 1.16 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1570s [00:52:50.647] Packages: 1570s [00:52:50.647] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1570s [00:52:50.647] Resolved: TRUE 1570s [00:52:50.647] Value: 336 bytes of class ‘list’ 1570s [00:52:50.647] Early signaling: FALSE 1570s [00:52:50.647] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1570s [00:52:50.647] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1570s [00:52:50.649] Chunk #1 of 1 ... DONE 1570s [00:52:50.649] Launching 1 futures (chunks) ... DONE 1570s [00:52:50.649] Resolving 1 futures (chunks) ... 1570s [00:52:50.649] resolve() on list ... 1570s [00:52:50.649] recursive: 0 1570s [00:52:50.649] length: 1 1570s [00:52:50.649] 1570s [00:52:50.649] resolved() for ‘SequentialFuture’ ... 1570s [00:52:50.650] - state: ‘finished’ 1570s [00:52:50.650] - run: TRUE 1570s [00:52:50.650] - result: ‘FutureResult’ 1570s List of 2 1570s $ y0: chr [1:3] [00:52:50.650] resolved() for ‘SequentialFuture’ ... done 1570s [00:52:50.651] Future #1 1570s [00:52:50.651] signalConditionsASAP(SequentialFuture, pos=1) ... 1570s [00:52:50.651] - nx: 1 1570s [00:52:50.651] - relay: TRUE 1570s [00:52:50.651] - stdout: TRUE 1570s [00:52:50.651] - signal: TRUE 1570s [00:52:50.652] - resignal: FALSE 1570s [00:52:50.652] - force: TRUE 1570s [00:52:50.654] - relayed: [n=1] FALSE 1570s [00:52:50.654] - queued futures: [n=1] FALSE 1570s [00:52:50.654] - until=1 1570s [00:52:50.654] - relaying element #1 1570s [00:52:50.655] - relayed: [n=1] TRUE 1570s [00:52:50.655] - queued futures: [n=1] TRUE 1570s [00:52:50.655] signalConditionsASAP(SequentialFuture, pos=1) ... done 1570s [00:52:50.655] length: 0 (resolved future 1) 1570s [00:52:50.655] Relaying remaining futures 1570s [00:52:50.655] signalConditionsASAP(NULL, pos=0) ... 1570s [00:52:50.656] - nx: 1 1570s [00:52:50.656] - relay: TRUE 1570s [00:52:50.656] - stdout: TRUE 1570s [00:52:50.656] - signal: TRUE 1570s [00:52:50.656] - resignal: FALSE 1570s [00:52:50.656] - force: TRUE 1570s [00:52:50.656] - relayed: [n=1] TRUE 1570s [00:52:50.656] - queued futures: [n=1] TRUE 1570s - flush all 1570s [00:52:50.657] - relayed: [n=1] TRUE 1570s [00:52:50.657] - queued futures: [n=1] TRUE 1570s [00:52:50.657] signalConditionsASAP(NULL, pos=0) ... done 1570s [00:52:50.657] resolve() on list ... DONE 1570s [00:52:50.657] - Number of value chunks collected: 1 1570s [00:52:50.657] Resolving 1 futures (chunks) ... DONE 1570s [00:52:50.657] Reducing values from 1 chunks ... 1570s [00:52:50.658] - Number of values collected after concatenation: 3 1570s [00:52:50.658] - Number of values expected: 3 1570s [00:52:50.658] Reducing values from 1 chunks ... DONE 1570s [00:52:50.658] future_lapply() ... DONE 1570s "a" "b" "c" 1570s $ y1: chr [1:3] [00:52:50.661] future_lapply() ... 1570s "a" "b" "c" 1570s [00:52:50.662] Number of chunks: 1 1570s [00:52:50.662] getGlobalsAndPackagesXApply() ... 1570s [00:52:50.662] - future.globals: TRUE 1570s [00:52:50.662] getGlobalsAndPackages() ... 1570s [00:52:50.662] Searching for globals... 1570s [00:52:50.664] - globals found: [2] ‘FUN’, ‘UseMethod’ 1570s [00:52:50.664] Searching for globals ... DONE 1570s [00:52:50.664] Resolving globals: FALSE 1570s [00:52:50.665] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1570s [00:52:50.666] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1570s [00:52:50.666] - globals: [1] ‘FUN’ 1570s [00:52:50.666] 1570s [00:52:50.666] getGlobalsAndPackages() ... DONE 1570s [00:52:50.667] - globals found/used: [n=1] ‘FUN’ 1570s [00:52:50.667] - needed namespaces: [n=0] 1570s [00:52:50.667] Finding globals ... DONE 1570s [00:52:50.667] - use_args: TRUE 1570s [00:52:50.667] - Getting '...' globals ... 1570s [00:52:50.668] resolve() on list ... 1570s [00:52:50.668] recursive: 0 1570s [00:52:50.668] length: 1 1570s [00:52:50.669] elements: ‘...’ 1570s [00:52:50.669] length: 0 (resolved future 1) 1570s [00:52:50.669] resolve() on list ... DONE 1570s [00:52:50.669] - '...' content: [n=0] 1570s [00:52:50.670] List of 1 1570s [00:52:50.670] $ ...: list() 1570s [00:52:50.670] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1570s [00:52:50.670] - attr(*, "where")=List of 1 1570s [00:52:50.670] ..$ ...: 1570s [00:52:50.670] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1570s [00:52:50.670] - attr(*, "resolved")= logi TRUE 1570s [00:52:50.670] - attr(*, "total_size")= num NA 1570s [00:52:50.673] - Getting '...' globals ... DONE 1570s [00:52:50.674] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1570s [00:52:50.674] List of 2 1570s [00:52:50.674] $ ...future.FUN:function (x, ...) 1570s [00:52:50.674] $ ... : list() 1570s [00:52:50.674] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1570s [00:52:50.674] - attr(*, "where")=List of 2 1570s [00:52:50.674] ..$ ...future.FUN: 1570s [00:52:50.674] ..$ ... : 1570s [00:52:50.674] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1570s [00:52:50.674] - attr(*, "resolved")= logi FALSE 1570s [00:52:50.674] - attr(*, "total_size")= num 1248 1570s [00:52:50.678] Packages to be attached in all futures: [n=0] 1570s [00:52:50.678] getGlobalsAndPackagesXApply() ... DONE 1570s [00:52:50.678] Number of futures (= number of chunks): 1 1570s [00:52:50.679] Launching 1 futures (chunks) ... 1570s [00:52:50.679] Chunk #1 of 1 ... 1570s [00:52:50.679] - Finding globals in 'X' for chunk #1 ... 1570s [00:52:50.679] getGlobalsAndPackages() ... 1570s [00:52:50.679] Searching for globals... 1570s [00:52:50.680] 1570s [00:52:50.680] Searching for globals ... DONE 1570s [00:52:50.680] - globals: [0] 1570s [00:52:50.680] getGlobalsAndPackages() ... DONE 1570s [00:52:50.680] + additional globals found: [n=0] 1570s [00:52:50.680] + additional namespaces needed: [n=0] 1570s [00:52:50.681] - Finding globals in 'X' for chunk #1 ... DONE 1570s [00:52:50.681] - seeds: 1570s [00:52:50.681] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1570s [00:52:50.681] getGlobalsAndPackages() ... 1570s [00:52:50.681] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1570s [00:52:50.681] Resolving globals: FALSE 1570s [00:52:50.682] Tweak future expression to call with '...' arguments ... 1570s [00:52:50.682] { 1570s [00:52:50.682] do.call(function(...) { 1570s [00:52:50.682] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1570s [00:52:50.682] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1570s [00:52:50.682] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1570s [00:52:50.682] on.exit(options(oopts), add = TRUE) 1570s [00:52:50.682] } 1570s [00:52:50.682] { 1570s [00:52:50.682] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1570s [00:52:50.682] ...future.X_jj <- ...future.elements_ii[[jj]] 1570s [00:52:50.682] ...future.FUN(...future.X_jj, ...) 1570s [00:52:50.682] }) 1570s [00:52:50.682] } 1570s [00:52:50.682] }, args = future.call.arguments) 1570s [00:52:50.682] } 1570s [00:52:50.682] Tweak future expression to call with '...' arguments ... DONE 1570s [00:52:50.683] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1570s [00:52:50.683] 1570s [00:52:50.683] getGlobalsAndPackages() ... DONE 1570s [00:52:50.684] run() for ‘Future’ ... 1570s [00:52:50.684] - state: ‘created’ 1570s [00:52:50.684] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1570s [00:52:50.684] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1570s [00:52:50.684] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1570s [00:52:50.685] - Field: ‘label’ 1570s [00:52:50.685] - Field: ‘local’ 1570s [00:52:50.685] - Field: ‘owner’ 1570s [00:52:50.685] - Field: ‘envir’ 1570s [00:52:50.685] - Field: ‘packages’ 1570s [00:52:50.685] - Field: ‘gc’ 1570s [00:52:50.686] - Field: ‘conditions’ 1570s [00:52:50.686] - Field: ‘expr’ 1570s [00:52:50.686] - Field: ‘uuid’ 1570s [00:52:50.686] - Field: ‘seed’ 1570s [00:52:50.686] - Field: ‘version’ 1570s [00:52:50.686] - Field: ‘result’ 1570s [00:52:50.686] - Field: ‘asynchronous’ 1570s [00:52:50.687] - Field: ‘calls’ 1570s [00:52:50.687] - Field: ‘globals’ 1570s [00:52:50.687] - Field: ‘stdout’ 1570s [00:52:50.687] - Field: ‘earlySignal’ 1570s [00:52:50.687] - Field: ‘lazy’ 1570s [00:52:50.687] - Field: ‘state’ 1570s [00:52:50.688] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1570s [00:52:50.688] - Launch lazy future ... 1570s [00:52:50.688] Packages needed by the future expression (n = 0): 1570s [00:52:50.688] Packages needed by future strategies (n = 0): 1570s [00:52:50.689] { 1570s [00:52:50.689] { 1570s [00:52:50.689] { 1570s [00:52:50.689] ...future.startTime <- base::Sys.time() 1570s [00:52:50.689] { 1570s [00:52:50.689] { 1570s [00:52:50.689] { 1570s [00:52:50.689] base::local({ 1570s [00:52:50.689] has_future <- base::requireNamespace("future", 1570s [00:52:50.689] quietly = TRUE) 1570s [00:52:50.689] if (has_future) { 1570s [00:52:50.689] ns <- base::getNamespace("future") 1570s [00:52:50.689] version <- ns[[".package"]][["version"]] 1570s [00:52:50.689] if (is.null(version)) 1570s [00:52:50.689] version <- utils::packageVersion("future") 1570s [00:52:50.689] } 1570s [00:52:50.689] else { 1570s [00:52:50.689] version <- NULL 1570s [00:52:50.689] } 1570s [00:52:50.689] if (!has_future || version < "1.8.0") { 1570s [00:52:50.689] info <- base::c(r_version = base::gsub("R version ", 1570s [00:52:50.689] "", base::R.version$version.string), 1570s [00:52:50.689] platform = base::sprintf("%s (%s-bit)", 1570s [00:52:50.689] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1570s [00:52:50.689] os = base::paste(base::Sys.info()[base::c("sysname", 1570s [00:52:50.689] "release", "version")], collapse = " "), 1570s [00:52:50.689] hostname = base::Sys.info()[["nodename"]]) 1570s [00:52:50.689] info <- base::sprintf("%s: %s", base::names(info), 1570s [00:52:50.689] info) 1570s [00:52:50.689] info <- base::paste(info, collapse = "; ") 1570s [00:52:50.689] if (!has_future) { 1570s [00:52:50.689] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1570s [00:52:50.689] info) 1570s [00:52:50.689] } 1570s [00:52:50.689] else { 1570s [00:52:50.689] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1570s [00:52:50.689] info, version) 1570s [00:52:50.689] } 1570s [00:52:50.689] base::stop(msg) 1570s [00:52:50.689] } 1570s [00:52:50.689] }) 1570s [00:52:50.689] } 1570s [00:52:50.689] options(future.plan = NULL) 1570s [00:52:50.689] Sys.unsetenv("R_FUTURE_PLAN") 1570s [00:52:50.689] future::plan("default", .cleanup = FALSE, .init = FALSE) 1570s [00:52:50.689] } 1570s [00:52:50.689] ...future.workdir <- getwd() 1570s [00:52:50.689] } 1570s [00:52:50.689] ...future.oldOptions <- base::as.list(base::.Options) 1570s [00:52:50.689] ...future.oldEnvVars <- base::Sys.getenv() 1570s [00:52:50.689] } 1570s [00:52:50.689] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1570s [00:52:50.689] future.globals.maxSize = NULL, future.globals.method = NULL, 1570s [00:52:50.689] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1570s [00:52:50.689] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1570s [00:52:50.689] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1570s [00:52:50.689] future.stdout.windows.reencode = NULL, width = 80L) 1570s [00:52:50.689] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1570s [00:52:50.689] base::names(...future.oldOptions)) 1570s [00:52:50.689] } 1570s [00:52:50.689] if (FALSE) { 1570s [00:52:50.689] } 1570s [00:52:50.689] else { 1570s [00:52:50.689] if (TRUE) { 1570s [00:52:50.689] ...future.stdout <- base::rawConnection(base::raw(0L), 1570s [00:52:50.689] open = "w") 1570s [00:52:50.689] } 1570s [00:52:50.689] else { 1570s [00:52:50.689] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1570s [00:52:50.689] windows = "NUL", "/dev/null"), open = "w") 1570s [00:52:50.689] } 1570s [00:52:50.689] base::sink(...future.stdout, type = "output", split = FALSE) 1570s [00:52:50.689] base::on.exit(if (!base::is.null(...future.stdout)) { 1570s [00:52:50.689] base::sink(type = "output", split = FALSE) 1570s [00:52:50.689] base::close(...future.stdout) 1570s [00:52:50.689] }, add = TRUE) 1570s [00:52:50.689] } 1570s [00:52:50.689] ...future.frame <- base::sys.nframe() 1570s [00:52:50.689] ...future.conditions <- base::list() 1570s [00:52:50.689] ...future.rng <- base::globalenv()$.Random.seed 1570s [00:52:50.689] if (FALSE) { 1570s [00:52:50.689] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1570s [00:52:50.689] "...future.value", "...future.globalenv.names", ".Random.seed") 1570s [00:52:50.689] } 1570s [00:52:50.689] ...future.result <- base::tryCatch({ 1570s [00:52:50.689] base::withCallingHandlers({ 1570s [00:52:50.689] ...future.value <- base::withVisible(base::local({ 1570s [00:52:50.689] do.call(function(...) { 1570s [00:52:50.689] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1570s [00:52:50.689] if (!identical(...future.globals.maxSize.org, 1570s [00:52:50.689] ...future.globals.maxSize)) { 1570s [00:52:50.689] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1570s [00:52:50.689] on.exit(options(oopts), add = TRUE) 1570s [00:52:50.689] } 1570s [00:52:50.689] { 1570s [00:52:50.689] lapply(seq_along(...future.elements_ii), 1570s [00:52:50.689] FUN = function(jj) { 1570s [00:52:50.689] ...future.X_jj <- ...future.elements_ii[[jj]] 1570s [00:52:50.689] ...future.FUN(...future.X_jj, ...) 1570s [00:52:50.689] }) 1570s [00:52:50.689] } 1570s [00:52:50.689] }, args = future.call.arguments) 1570s [00:52:50.689] })) 1570s [00:52:50.689] future::FutureResult(value = ...future.value$value, 1570s [00:52:50.689] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1570s [00:52:50.689] ...future.rng), globalenv = if (FALSE) 1570s [00:52:50.689] list(added = base::setdiff(base::names(base::.GlobalEnv), 1570s [00:52:50.689] ...future.globalenv.names)) 1570s [00:52:50.689] else NULL, started = ...future.startTime, version = "1.8") 1570s [00:52:50.689] }, condition = base::local({ 1570s [00:52:50.689] c <- base::c 1570s [00:52:50.689] inherits <- base::inherits 1570s [00:52:50.689] invokeRestart <- base::invokeRestart 1570s [00:52:50.689] length <- base::length 1570s [00:52:50.689] list <- base::list 1570s [00:52:50.689] seq.int <- base::seq.int 1570s [00:52:50.689] signalCondition <- base::signalCondition 1570s [00:52:50.689] sys.calls <- base::sys.calls 1570s [00:52:50.689] `[[` <- base::`[[` 1570s [00:52:50.689] `+` <- base::`+` 1570s [00:52:50.689] `<<-` <- base::`<<-` 1570s [00:52:50.689] sysCalls <- function(calls = sys.calls(), from = 1L) { 1570s [00:52:50.689] calls[seq.int(from = from + 12L, to = length(calls) - 1570s [00:52:50.689] 3L)] 1570s [00:52:50.689] } 1570s [00:52:50.689] function(cond) { 1570s [00:52:50.689] is_error <- inherits(cond, "error") 1570s [00:52:50.689] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1570s [00:52:50.689] NULL) 1570s [00:52:50.689] if (is_error) { 1570s [00:52:50.689] sessionInformation <- function() { 1570s [00:52:50.689] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1570s [00:52:50.689] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1570s [00:52:50.689] search = base::search(), system = base::Sys.info()) 1570s [00:52:50.689] } 1570s [00:52:50.689] ...future.conditions[[length(...future.conditions) + 1570s [00:52:50.689] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1570s [00:52:50.689] cond$call), session = sessionInformation(), 1570s [00:52:50.689] timestamp = base::Sys.time(), signaled = 0L) 1570s [00:52:50.689] signalCondition(cond) 1570s [00:52:50.689] } 1570s [00:52:50.689] else if (!ignore && TRUE && inherits(cond, c("condition", 1570s [00:52:50.689] "immediateCondition"))) { 1570s [00:52:50.689] signal <- TRUE && inherits(cond, "immediateCondition") 1570s [00:52:50.689] ...future.conditions[[length(...future.conditions) + 1570s [00:52:50.689] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1570s [00:52:50.689] if (TRUE && !signal) { 1570s [00:52:50.689] muffleCondition <- function (cond, pattern = "^muffle") 1570s [00:52:50.689] { 1570s [00:52:50.689] inherits <- base::inherits 1570s [00:52:50.689] invokeRestart <- base::invokeRestart 1570s [00:52:50.689] is.null <- base::is.null 1570s [00:52:50.689] muffled <- FALSE 1570s [00:52:50.689] if (inherits(cond, "message")) { 1570s [00:52:50.689] muffled <- grepl(pattern, "muffleMessage") 1570s [00:52:50.689] if (muffled) 1570s [00:52:50.689] invokeRestart("muffleMessage") 1570s [00:52:50.689] } 1570s [00:52:50.689] else if (inherits(cond, "warning")) { 1570s [00:52:50.689] muffled <- grepl(pattern, "muffleWarning") 1570s [00:52:50.689] if (muffled) 1570s [00:52:50.689] invokeRestart("muffleWarning") 1570s [00:52:50.689] } 1570s [00:52:50.689] else if (inherits(cond, "condition")) { 1570s [00:52:50.689] if (!is.null(pattern)) { 1570s [00:52:50.689] computeRestarts <- base::computeRestarts 1570s [00:52:50.689] grepl <- base::grepl 1570s [00:52:50.689] restarts <- computeRestarts(cond) 1570s [00:52:50.689] for (restart in restarts) { 1570s [00:52:50.689] name <- restart$name 1570s [00:52:50.689] if (is.null(name)) 1570s [00:52:50.689] next 1570s [00:52:50.689] if (!grepl(pattern, name)) 1570s [00:52:50.689] next 1570s [00:52:50.689] invokeRestart(restart) 1570s [00:52:50.689] muffled <- TRUE 1570s [00:52:50.689] break 1570s [00:52:50.689] } 1570s [00:52:50.689] } 1570s [00:52:50.689] } 1570s [00:52:50.689] invisible(muffled) 1570s [00:52:50.689] } 1570s [00:52:50.689] muffleCondition(cond, pattern = "^muffle") 1570s [00:52:50.689] } 1570s [00:52:50.689] } 1570s [00:52:50.689] else { 1570s [00:52:50.689] if (TRUE) { 1570s [00:52:50.689] muffleCondition <- function (cond, pattern = "^muffle") 1570s [00:52:50.689] { 1570s [00:52:50.689] inherits <- base::inherits 1570s [00:52:50.689] invokeRestart <- base::invokeRestart 1570s [00:52:50.689] is.null <- base::is.null 1570s [00:52:50.689] muffled <- FALSE 1570s [00:52:50.689] if (inherits(cond, "message")) { 1570s [00:52:50.689] muffled <- grepl(pattern, "muffleMessage") 1570s [00:52:50.689] if (muffled) 1570s [00:52:50.689] invokeRestart("muffleMessage") 1570s [00:52:50.689] } 1570s [00:52:50.689] else if (inherits(cond, "warning")) { 1570s [00:52:50.689] muffled <- grepl(pattern, "muffleWarning") 1570s [00:52:50.689] if (muffled) 1570s [00:52:50.689] invokeRestart("muffleWarning") 1570s [00:52:50.689] } 1570s [00:52:50.689] else if (inherits(cond, "condition")) { 1570s [00:52:50.689] if (!is.null(pattern)) { 1570s [00:52:50.689] computeRestarts <- base::computeRestarts 1570s [00:52:50.689] grepl <- base::grepl 1570s [00:52:50.689] restarts <- computeRestarts(cond) 1570s [00:52:50.689] for (restart in restarts) { 1570s [00:52:50.689] name <- restart$name 1570s [00:52:50.689] if (is.null(name)) 1570s [00:52:50.689] next 1570s [00:52:50.689] if (!grepl(pattern, name)) 1570s [00:52:50.689] next 1570s [00:52:50.689] invokeRestart(restart) 1570s [00:52:50.689] muffled <- TRUE 1570s [00:52:50.689] break 1570s [00:52:50.689] } 1570s [00:52:50.689] } 1570s [00:52:50.689] } 1570s [00:52:50.689] invisible(muffled) 1570s [00:52:50.689] } 1570s [00:52:50.689] muffleCondition(cond, pattern = "^muffle") 1570s [00:52:50.689] } 1570s [00:52:50.689] } 1570s [00:52:50.689] } 1570s [00:52:50.689] })) 1570s [00:52:50.689] }, error = function(ex) { 1570s [00:52:50.689] base::structure(base::list(value = NULL, visible = NULL, 1570s [00:52:50.689] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1570s [00:52:50.689] ...future.rng), started = ...future.startTime, 1570s [00:52:50.689] finished = Sys.time(), session_uuid = NA_character_, 1570s [00:52:50.689] version = "1.8"), class = "FutureResult") 1570s [00:52:50.689] }, finally = { 1570s [00:52:50.689] if (!identical(...future.workdir, getwd())) 1570s [00:52:50.689] setwd(...future.workdir) 1570s [00:52:50.689] { 1570s [00:52:50.689] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1570s [00:52:50.689] ...future.oldOptions$nwarnings <- NULL 1570s [00:52:50.689] } 1570s [00:52:50.689] base::options(...future.oldOptions) 1570s [00:52:50.689] if (.Platform$OS.type == "windows") { 1570s [00:52:50.689] old_names <- names(...future.oldEnvVars) 1570s [00:52:50.689] envs <- base::Sys.getenv() 1570s [00:52:50.689] names <- names(envs) 1570s [00:52:50.689] common <- intersect(names, old_names) 1570s [00:52:50.689] added <- setdiff(names, old_names) 1570s [00:52:50.689] removed <- setdiff(old_names, names) 1570s [00:52:50.689] changed <- common[...future.oldEnvVars[common] != 1570s [00:52:50.689] envs[common]] 1570s [00:52:50.689] NAMES <- toupper(changed) 1570s [00:52:50.689] args <- list() 1570s [00:52:50.689] for (kk in seq_along(NAMES)) { 1570s [00:52:50.689] name <- changed[[kk]] 1570s [00:52:50.689] NAME <- NAMES[[kk]] 1570s [00:52:50.689] if (name != NAME && is.element(NAME, old_names)) 1570s [00:52:50.689] next 1570s [00:52:50.689] args[[name]] <- ...future.oldEnvVars[[name]] 1570s [00:52:50.689] } 1570s [00:52:50.689] NAMES <- toupper(added) 1570s [00:52:50.689] for (kk in seq_along(NAMES)) { 1570s [00:52:50.689] name <- added[[kk]] 1570s [00:52:50.689] NAME <- NAMES[[kk]] 1570s [00:52:50.689] if (name != NAME && is.element(NAME, old_names)) 1570s [00:52:50.689] next 1570s [00:52:50.689] args[[name]] <- "" 1570s [00:52:50.689] } 1570s [00:52:50.689] NAMES <- toupper(removed) 1570s [00:52:50.689] for (kk in seq_along(NAMES)) { 1570s [00:52:50.689] name <- removed[[kk]] 1570s [00:52:50.689] NAME <- NAMES[[kk]] 1570s [00:52:50.689] if (name != NAME && is.element(NAME, old_names)) 1570s [00:52:50.689] next 1570s [00:52:50.689] args[[name]] <- ...future.oldEnvVars[[name]] 1570s [00:52:50.689] } 1570s [00:52:50.689] if (length(args) > 0) 1570s [00:52:50.689] base::do.call(base::Sys.setenv, args = args) 1570s [00:52:50.689] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1570s [00:52:50.689] } 1570s [00:52:50.689] else { 1570s [00:52:50.689] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1570s [00:52:50.689] } 1570s [00:52:50.689] { 1570s [00:52:50.689] if (base::length(...future.futureOptionsAdded) > 1570s [00:52:50.689] 0L) { 1570s [00:52:50.689] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1570s [00:52:50.689] base::names(opts) <- ...future.futureOptionsAdded 1570s [00:52:50.689] base::options(opts) 1570s [00:52:50.689] } 1570s [00:52:50.689] { 1570s [00:52:50.689] { 1570s [00:52:50.689] NULL 1570s [00:52:50.689] RNGkind("Mersenne-Twister") 1570s [00:52:50.689] base::rm(list = ".Random.seed", envir = base::globalenv(), 1570s [00:52:50.689] inherits = FALSE) 1570s [00:52:50.689] } 1570s [00:52:50.689] options(future.plan = NULL) 1570s [00:52:50.689] if (is.na(NA_character_)) 1570s [00:52:50.689] Sys.unsetenv("R_FUTURE_PLAN") 1570s [00:52:50.689] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1570s [00:52:50.689] future::plan(list(function (..., envir = parent.frame()) 1570s [00:52:50.689] { 1570s [00:52:50.689] future <- SequentialFuture(..., envir = envir) 1570s [00:52:50.689] if (!future$lazy) 1570s [00:52:50.689] future <- run(future) 1570s [00:52:50.689] invisible(future) 1570s [00:52:50.689] }), .cleanup = FALSE, .init = FALSE) 1570s [00:52:50.689] } 1570s [00:52:50.689] } 1570s [00:52:50.689] } 1570s [00:52:50.689] }) 1570s [00:52:50.689] if (TRUE) { 1570s [00:52:50.689] base::sink(type = "output", split = FALSE) 1570s [00:52:50.689] if (TRUE) { 1570s [00:52:50.689] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1570s [00:52:50.689] } 1570s [00:52:50.689] else { 1570s [00:52:50.689] ...future.result["stdout"] <- base::list(NULL) 1570s [00:52:50.689] } 1570s [00:52:50.689] base::close(...future.stdout) 1570s [00:52:50.689] ...future.stdout <- NULL 1570s [00:52:50.689] } 1570s [00:52:50.689] ...future.result$conditions <- ...future.conditions 1570s [00:52:50.689] ...future.result$finished <- base::Sys.time() 1570s [00:52:50.689] ...future.result 1570s [00:52:50.689] } 1570s [00:52:50.696] assign_globals() ... 1570s [00:52:50.697] List of 5 1570s [00:52:50.697] $ ...future.FUN :function (x, ...) 1570s [00:52:50.697] $ future.call.arguments : list() 1570s [00:52:50.697] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1570s [00:52:50.697] $ ...future.elements_ii :List of 3 1570s [00:52:50.697] ..$ : chr "a" 1570s [00:52:50.697] ..$ : chr "b" 1570s [00:52:50.697] ..$ : chr "c" 1570s [00:52:50.697] $ ...future.seeds_ii : NULL 1570s [00:52:50.697] $ ...future.globals.maxSize: NULL 1570s [00:52:50.697] - attr(*, "where")=List of 5 1570s [00:52:50.697] ..$ ...future.FUN : 1570s [00:52:50.697] ..$ future.call.arguments : 1570s [00:52:50.697] ..$ ...future.elements_ii : 1570s [00:52:50.697] ..$ ...future.seeds_ii : 1570s [00:52:50.697] ..$ ...future.globals.maxSize: 1570s [00:52:50.697] - attr(*, "resolved")= logi FALSE 1570s [00:52:50.697] - attr(*, "total_size")= num 1248 1570s [00:52:50.697] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1570s [00:52:50.697] - attr(*, "already-done")= logi TRUE 1570s [00:52:50.708] - copied ‘...future.FUN’ to environment 1570s [00:52:50.708] - copied ‘future.call.arguments’ to environment 1570s [00:52:50.708] - copied ‘...future.elements_ii’ to environment 1570s [00:52:50.708] - copied ‘...future.seeds_ii’ to environment 1570s [00:52:50.708] - copied ‘...future.globals.maxSize’ to environment 1570s [00:52:50.709] assign_globals() ... done 1570s [00:52:50.709] plan(): Setting new future strategy stack: 1570s [00:52:50.709] List of future strategies: 1570s [00:52:50.709] 1. sequential: 1570s [00:52:50.709] - args: function (..., envir = parent.frame()) 1570s [00:52:50.709] - tweaked: FALSE 1570s [00:52:50.709] - call: NULL 1570s [00:52:50.709] plan(): nbrOfWorkers() = 1 1570s [00:52:50.710] plan(): Setting new future strategy stack: 1570s [00:52:50.710] List of future strategies: 1570s [00:52:50.710] 1. sequential: 1570s [00:52:50.710] - args: function (..., envir = parent.frame()) 1570s [00:52:50.710] - tweaked: FALSE 1570s [00:52:50.710] - call: plan(strategy) 1570s [00:52:50.711] plan(): nbrOfWorkers() = 1 1570s [00:52:50.711] SequentialFuture started (and completed) 1570s [00:52:50.711] - Launch lazy future ... done 1570s [00:52:50.712] run() for ‘SequentialFuture’ ... done 1570s [00:52:50.712] Created future: 1570s [00:52:50.712] SequentialFuture: 1570s [00:52:50.712] Label: ‘future_sapply-1’ 1570s [00:52:50.712] Expression: 1570s [00:52:50.712] { 1570s [00:52:50.712] do.call(function(...) { 1570s [00:52:50.712] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1570s [00:52:50.712] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1570s [00:52:50.712] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1570s [00:52:50.712] on.exit(options(oopts), add = TRUE) 1570s [00:52:50.712] } 1570s [00:52:50.712] { 1570s [00:52:50.712] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1570s [00:52:50.712] ...future.X_jj <- ...future.elements_ii[[jj]] 1570s [00:52:50.712] ...future.FUN(...future.X_jj, ...) 1570s [00:52:50.712] }) 1570s [00:52:50.712] } 1570s [00:52:50.712] }, args = future.call.arguments) 1570s [00:52:50.712] } 1570s [00:52:50.712] Lazy evaluation: FALSE 1570s [00:52:50.712] Asynchronous evaluation: FALSE 1570s [00:52:50.712] Local evaluation: TRUE 1570s [00:52:50.712] Environment: R_GlobalEnv 1570s [00:52:50.712] Capture standard output: TRUE 1570s [00:52:50.712] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1570s [00:52:50.712] Globals: 5 objects totaling 1.55 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1570s [00:52:50.712] Packages: 1570s [00:52:50.712] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1570s [00:52:50.712] Resolved: TRUE 1570s [00:52:50.712] Value: 840 bytes of class ‘list’ 1570s [00:52:50.712] Early signaling: FALSE 1570s [00:52:50.712] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1570s [00:52:50.712] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1570s [00:52:50.714] Chunk #1 of 1 ... DONE 1570s [00:52:50.714] Launching 1 futures (chunks) ... DONE 1570s [00:52:50.714] Resolving 1 futures (chunks) ... 1570s [00:52:50.714] resolve() on list ... 1570s [00:52:50.714] recursive: 0 1570s [00:52:50.715] length: 1 1570s [00:52:50.715] 1570s [00:52:50.715] resolved() for ‘SequentialFuture’ ... 1570s [00:52:50.715] - state: ‘finished’ 1570s [00:52:50.715] - run: TRUE 1570s [00:52:50.716] - result: ‘FutureResult’ 1570s [00:52:50.716] resolved() for ‘SequentialFuture’ ... done 1570s [00:52:50.716] Future #1 1570s [00:52:50.716] signalConditionsASAP(SequentialFuture, pos=1) ... 1570s [00:52:50.716] - nx: 1 1570s [00:52:50.716] - relay: TRUE 1570s [00:52:50.716] - stdout: TRUE 1570s [00:52:50.716] - signal: TRUE 1570s [00:52:50.717] - resignal: FALSE 1570s [00:52:50.717] - force: TRUE 1570s [00:52:50.717] - relayed: [n=1] FALSE 1570s [00:52:50.717] - queued futures: [n=1] FALSE 1570s [00:52:50.717] - until=1 1570s [00:52:50.717] - relaying element #1 1570s [00:52:50.717] - relayed: [n=1] TRUE 1570s [00:52:50.718] - queued futures: [n=1] TRUE 1570s [00:52:50.718] signalConditionsASAP(SequentialFuture, pos=1) ... done 1570s [00:52:50.718] length: 0 (resolved future 1) 1570s [00:52:50.718] Relaying remaining futures 1570s [00:52:50.718] signalConditionsASAP(NULL, pos=0) ... 1570s [00:52:50.718] - nx: 1 1570s [00:52:50.718] - relay: TRUE 1570s [00:52:50.718] - stdout: TRUE 1570s [00:52:50.718] - signal: TRUE 1570s [00:52:50.718] - resignal: FALSE 1570s [00:52:50.719] - force: TRUE 1570s [00:52:50.719] - relayed: [n=1] TRUE 1570s [00:52:50.719] - queued futures: [n=1] TRUE 1570s - flush all 1570s [00:52:50.719] - relayed: [n=1] TRUE 1570s [00:52:50.719] - queued futures: [n=1] TRUE 1570s [00:52:50.719] signalConditionsASAP(NULL, pos=0) ... done 1570s [00:52:50.720] resolve() on list ... DONE 1570s [00:52:50.720] - Number of value chunks collected: 1 1570s [00:52:50.720] Resolving 1 futures (chunks) ... DONE 1570s [00:52:50.720] Reducing values from 1 chunks ... 1570s [00:52:50.721] - Number of values collected after concatenation: 3 1570s [00:52:50.721] - Number of values expected: 3 1570s [00:52:50.721] Reducing values from 1 chunks ... DONE 1570s [00:52:50.721] future_lapply() ... DONE 1570s List of 2 1570s $ y0: chr [1:3] "a" "b" "c" 1570s $ y1: chr [1:3] "a" "b" "c" 1570s [00:52:50.723] future_lapply() ... 1570s [00:52:50.724] Number of chunks: 1 1570s [00:52:50.724] getGlobalsAndPackagesXApply() ... 1570s [00:52:50.724] - future.globals: TRUE 1570s [00:52:50.724] getGlobalsAndPackages() ... 1570s [00:52:50.724] Searching for globals... 1570s [00:52:50.726] - globals found: [1] ‘FUN’ 1570s [00:52:50.726] Searching for globals ... DONE 1570s [00:52:50.726] Resolving globals: FALSE 1570s [00:52:50.727] The total size of the 1 globals is 848 bytes (848 bytes) 1570s [00:52:50.727] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1570s [00:52:50.727] - globals: [1] ‘FUN’ 1570s [00:52:50.727] 1570s [00:52:50.727] getGlobalsAndPackages() ... DONE 1570s [00:52:50.728] - globals found/used: [n=1] ‘FUN’ 1570s [00:52:50.728] - needed namespaces: [n=0] 1570s [00:52:50.728] Finding globals ... DONE 1570s [00:52:50.728] - use_args: TRUE 1570s [00:52:50.728] - Getting '...' globals ... 1570s [00:52:50.729] resolve() on list ... 1570s [00:52:50.729] recursive: 0 1570s [00:52:50.729] length: 1 1570s [00:52:50.729] elements: ‘...’ 1570s [00:52:50.729] length: 0 (resolved future 1) 1570s [00:52:50.729] resolve() on list ... DONE 1570s [00:52:50.730] - '...' content: [n=0] 1570s [00:52:50.730] List of 1 1570s [00:52:50.730] $ ...: list() 1570s [00:52:50.730] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1570s [00:52:50.730] - attr(*, "where")=List of 1 1570s [00:52:50.730] ..$ ...: 1570s [00:52:50.730] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1570s [00:52:50.730] - attr(*, "resolved")= logi TRUE 1570s [00:52:50.730] - attr(*, "total_size")= num NA 1570s [00:52:50.734] - Getting '...' globals ... DONE 1570s [00:52:50.734] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1570s [00:52:50.734] List of 2 1570s [00:52:50.734] $ ...future.FUN:function (x) 1570s [00:52:50.734] $ ... : list() 1570s [00:52:50.734] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1570s [00:52:50.734] - attr(*, "where")=List of 2 1570s [00:52:50.734] ..$ ...future.FUN: 1570s [00:52:50.734] ..$ ... : 1570s [00:52:50.734] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1570s [00:52:50.734] - attr(*, "resolved")= logi FALSE 1570s [00:52:50.734] - attr(*, "total_size")= num 848 1570s [00:52:50.741] Packages to be attached in all futures: [n=0] 1570s [00:52:50.742] getGlobalsAndPackagesXApply() ... DONE 1570s [00:52:50.742] Number of futures (= number of chunks): 1 1570s [00:52:50.742] Launching 1 futures (chunks) ... 1570s [00:52:50.742] Chunk #1 of 1 ... 1570s [00:52:50.742] - Finding globals in 'X' for chunk #1 ... 1570s [00:52:50.742] getGlobalsAndPackages() ... 1570s [00:52:50.743] Searching for globals... 1570s [00:52:50.743] 1570s [00:52:50.743] Searching for globals ... DONE 1570s [00:52:50.743] - globals: [0] 1570s [00:52:50.743] getGlobalsAndPackages() ... DONE 1570s [00:52:50.743] + additional globals found: [n=0] 1570s [00:52:50.743] + additional namespaces needed: [n=0] 1570s [00:52:50.744] - Finding globals in 'X' for chunk #1 ... DONE 1570s [00:52:50.744] - seeds: 1570s [00:52:50.744] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1570s [00:52:50.744] getGlobalsAndPackages() ... 1570s [00:52:50.745] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1570s [00:52:50.745] Resolving globals: FALSE 1570s [00:52:50.745] Tweak future expression to call with '...' arguments ... 1570s [00:52:50.745] { 1570s [00:52:50.745] do.call(function(...) { 1570s [00:52:50.745] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1570s [00:52:50.745] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1570s [00:52:50.745] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1570s [00:52:50.745] on.exit(options(oopts), add = TRUE) 1570s [00:52:50.745] } 1570s [00:52:50.745] { 1570s [00:52:50.745] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1570s [00:52:50.745] ...future.X_jj <- ...future.elements_ii[[jj]] 1570s [00:52:50.745] ...future.FUN(...future.X_jj, ...) 1570s [00:52:50.745] }) 1570s [00:52:50.745] } 1570s [00:52:50.745] }, args = future.call.arguments) 1570s [00:52:50.745] } 1570s [00:52:50.745] Tweak future expression to call with '...' arguments ... DONE 1570s [00:52:50.746] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1570s [00:52:50.746] 1570s [00:52:50.746] getGlobalsAndPackages() ... DONE 1570s [00:52:50.747] run() for ‘Future’ ... 1570s [00:52:50.747] - state: ‘created’ 1570s [00:52:50.747] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1570s [00:52:50.747] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1570s [00:52:50.747] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1570s [00:52:50.748] - Field: ‘label’ 1570s [00:52:50.748] - Field: ‘local’ 1570s [00:52:50.748] - Field: ‘owner’ 1570s [00:52:50.748] - Field: ‘envir’ 1570s [00:52:50.748] - Field: ‘packages’ 1570s [00:52:50.749] - Field: ‘gc’ 1570s [00:52:50.749] - Field: ‘conditions’ 1570s [00:52:50.749] - Field: ‘expr’ 1570s [00:52:50.749] - Field: ‘uuid’ 1570s [00:52:50.749] - Field: ‘seed’ 1570s [00:52:50.749] - Field: ‘version’ 1570s [00:52:50.749] - Field: ‘result’ 1570s [00:52:50.749] - Field: ‘asynchronous’ 1570s [00:52:50.750] - Field: ‘calls’ 1570s [00:52:50.750] - Field: ‘globals’ 1570s [00:52:50.750] - Field: ‘stdout’ 1570s [00:52:50.750] - Field: ‘earlySignal’ 1570s [00:52:50.750] - Field: ‘lazy’ 1570s [00:52:50.750] - Field: ‘state’ 1570s [00:52:50.750] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1570s [00:52:50.751] - Launch lazy future ... 1570s [00:52:50.751] Packages needed by the future expression (n = 0): 1570s [00:52:50.751] Packages needed by future strategies (n = 0): 1570s [00:52:50.752] { 1570s [00:52:50.752] { 1570s [00:52:50.752] { 1570s [00:52:50.752] ...future.startTime <- base::Sys.time() 1570s [00:52:50.752] { 1570s [00:52:50.752] { 1570s [00:52:50.752] { 1570s [00:52:50.752] base::local({ 1570s [00:52:50.752] has_future <- base::requireNamespace("future", 1570s [00:52:50.752] quietly = TRUE) 1570s [00:52:50.752] if (has_future) { 1570s [00:52:50.752] ns <- base::getNamespace("future") 1570s [00:52:50.752] version <- ns[[".package"]][["version"]] 1570s [00:52:50.752] if (is.null(version)) 1570s [00:52:50.752] version <- utils::packageVersion("future") 1570s [00:52:50.752] } 1570s [00:52:50.752] else { 1570s [00:52:50.752] version <- NULL 1570s [00:52:50.752] } 1570s [00:52:50.752] if (!has_future || version < "1.8.0") { 1570s [00:52:50.752] info <- base::c(r_version = base::gsub("R version ", 1570s [00:52:50.752] "", base::R.version$version.string), 1570s [00:52:50.752] platform = base::sprintf("%s (%s-bit)", 1570s [00:52:50.752] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1570s [00:52:50.752] os = base::paste(base::Sys.info()[base::c("sysname", 1570s [00:52:50.752] "release", "version")], collapse = " "), 1570s [00:52:50.752] hostname = base::Sys.info()[["nodename"]]) 1570s [00:52:50.752] info <- base::sprintf("%s: %s", base::names(info), 1570s [00:52:50.752] info) 1570s [00:52:50.752] info <- base::paste(info, collapse = "; ") 1570s [00:52:50.752] if (!has_future) { 1570s [00:52:50.752] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1570s [00:52:50.752] info) 1570s [00:52:50.752] } 1570s [00:52:50.752] else { 1570s [00:52:50.752] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1570s [00:52:50.752] info, version) 1570s [00:52:50.752] } 1570s [00:52:50.752] base::stop(msg) 1570s [00:52:50.752] } 1570s [00:52:50.752] }) 1570s [00:52:50.752] } 1570s [00:52:50.752] options(future.plan = NULL) 1570s [00:52:50.752] Sys.unsetenv("R_FUTURE_PLAN") 1570s [00:52:50.752] future::plan("default", .cleanup = FALSE, .init = FALSE) 1570s [00:52:50.752] } 1570s [00:52:50.752] ...future.workdir <- getwd() 1570s [00:52:50.752] } 1570s [00:52:50.752] ...future.oldOptions <- base::as.list(base::.Options) 1570s [00:52:50.752] ...future.oldEnvVars <- base::Sys.getenv() 1570s [00:52:50.752] } 1570s [00:52:50.752] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1570s [00:52:50.752] future.globals.maxSize = NULL, future.globals.method = NULL, 1570s [00:52:50.752] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1570s [00:52:50.752] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1570s [00:52:50.752] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1570s [00:52:50.752] future.stdout.windows.reencode = NULL, width = 80L) 1570s [00:52:50.752] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1570s [00:52:50.752] base::names(...future.oldOptions)) 1570s [00:52:50.752] } 1570s [00:52:50.752] if (FALSE) { 1570s [00:52:50.752] } 1570s [00:52:50.752] else { 1570s [00:52:50.752] if (TRUE) { 1570s [00:52:50.752] ...future.stdout <- base::rawConnection(base::raw(0L), 1570s [00:52:50.752] open = "w") 1570s [00:52:50.752] } 1570s [00:52:50.752] else { 1570s [00:52:50.752] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1570s [00:52:50.752] windows = "NUL", "/dev/null"), open = "w") 1570s [00:52:50.752] } 1570s [00:52:50.752] base::sink(...future.stdout, type = "output", split = FALSE) 1570s [00:52:50.752] base::on.exit(if (!base::is.null(...future.stdout)) { 1570s [00:52:50.752] base::sink(type = "output", split = FALSE) 1570s [00:52:50.752] base::close(...future.stdout) 1570s [00:52:50.752] }, add = TRUE) 1570s [00:52:50.752] } 1570s [00:52:50.752] ...future.frame <- base::sys.nframe() 1570s [00:52:50.752] ...future.conditions <- base::list() 1570s [00:52:50.752] ...future.rng <- base::globalenv()$.Random.seed 1570s [00:52:50.752] if (FALSE) { 1570s [00:52:50.752] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1570s [00:52:50.752] "...future.value", "...future.globalenv.names", ".Random.seed") 1570s [00:52:50.752] } 1570s [00:52:50.752] ...future.result <- base::tryCatch({ 1570s [00:52:50.752] base::withCallingHandlers({ 1570s [00:52:50.752] ...future.value <- base::withVisible(base::local({ 1570s [00:52:50.752] do.call(function(...) { 1570s [00:52:50.752] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1570s [00:52:50.752] if (!identical(...future.globals.maxSize.org, 1570s [00:52:50.752] ...future.globals.maxSize)) { 1570s [00:52:50.752] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1570s [00:52:50.752] on.exit(options(oopts), add = TRUE) 1570s [00:52:50.752] } 1570s [00:52:50.752] { 1570s [00:52:50.752] lapply(seq_along(...future.elements_ii), 1570s [00:52:50.752] FUN = function(jj) { 1570s [00:52:50.752] ...future.X_jj <- ...future.elements_ii[[jj]] 1570s [00:52:50.752] ...future.FUN(...future.X_jj, ...) 1570s [00:52:50.752] }) 1570s [00:52:50.752] } 1570s [00:52:50.752] }, args = future.call.arguments) 1570s [00:52:50.752] })) 1570s [00:52:50.752] future::FutureResult(value = ...future.value$value, 1570s [00:52:50.752] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1570s [00:52:50.752] ...future.rng), globalenv = if (FALSE) 1570s [00:52:50.752] list(added = base::setdiff(base::names(base::.GlobalEnv), 1570s [00:52:50.752] ...future.globalenv.names)) 1570s [00:52:50.752] else NULL, started = ...future.startTime, version = "1.8") 1570s [00:52:50.752] }, condition = base::local({ 1570s [00:52:50.752] c <- base::c 1570s [00:52:50.752] inherits <- base::inherits 1570s [00:52:50.752] invokeRestart <- base::invokeRestart 1570s [00:52:50.752] length <- base::length 1570s [00:52:50.752] list <- base::list 1570s [00:52:50.752] seq.int <- base::seq.int 1570s [00:52:50.752] signalCondition <- base::signalCondition 1570s [00:52:50.752] sys.calls <- base::sys.calls 1570s [00:52:50.752] `[[` <- base::`[[` 1570s [00:52:50.752] `+` <- base::`+` 1570s [00:52:50.752] `<<-` <- base::`<<-` 1570s [00:52:50.752] sysCalls <- function(calls = sys.calls(), from = 1L) { 1570s [00:52:50.752] calls[seq.int(from = from + 12L, to = length(calls) - 1570s [00:52:50.752] 3L)] 1570s [00:52:50.752] } 1570s [00:52:50.752] function(cond) { 1570s [00:52:50.752] is_error <- inherits(cond, "error") 1570s [00:52:50.752] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1570s [00:52:50.752] NULL) 1570s [00:52:50.752] if (is_error) { 1570s [00:52:50.752] sessionInformation <- function() { 1570s [00:52:50.752] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1570s [00:52:50.752] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1570s [00:52:50.752] search = base::search(), system = base::Sys.info()) 1570s [00:52:50.752] } 1570s [00:52:50.752] ...future.conditions[[length(...future.conditions) + 1570s [00:52:50.752] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1570s [00:52:50.752] cond$call), session = sessionInformation(), 1570s [00:52:50.752] timestamp = base::Sys.time(), signaled = 0L) 1570s [00:52:50.752] signalCondition(cond) 1570s [00:52:50.752] } 1570s [00:52:50.752] else if (!ignore && TRUE && inherits(cond, c("condition", 1570s [00:52:50.752] "immediateCondition"))) { 1570s [00:52:50.752] signal <- TRUE && inherits(cond, "immediateCondition") 1570s [00:52:50.752] ...future.conditions[[length(...future.conditions) + 1570s [00:52:50.752] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1570s [00:52:50.752] if (TRUE && !signal) { 1570s [00:52:50.752] muffleCondition <- function (cond, pattern = "^muffle") 1570s [00:52:50.752] { 1570s [00:52:50.752] inherits <- base::inherits 1570s [00:52:50.752] invokeRestart <- base::invokeRestart 1570s [00:52:50.752] is.null <- base::is.null 1570s [00:52:50.752] muffled <- FALSE 1570s [00:52:50.752] if (inherits(cond, "message")) { 1570s [00:52:50.752] muffled <- grepl(pattern, "muffleMessage") 1570s [00:52:50.752] if (muffled) 1570s [00:52:50.752] invokeRestart("muffleMessage") 1570s [00:52:50.752] } 1570s [00:52:50.752] else if (inherits(cond, "warning")) { 1570s [00:52:50.752] muffled <- grepl(pattern, "muffleWarning") 1570s [00:52:50.752] if (muffled) 1570s [00:52:50.752] invokeRestart("muffleWarning") 1570s [00:52:50.752] } 1570s [00:52:50.752] else if (inherits(cond, "condition")) { 1570s [00:52:50.752] if (!is.null(pattern)) { 1570s [00:52:50.752] computeRestarts <- base::computeRestarts 1570s [00:52:50.752] grepl <- base::grepl 1570s [00:52:50.752] restarts <- computeRestarts(cond) 1570s [00:52:50.752] for (restart in restarts) { 1570s [00:52:50.752] name <- restart$name 1570s [00:52:50.752] if (is.null(name)) 1570s [00:52:50.752] next 1570s [00:52:50.752] if (!grepl(pattern, name)) 1570s [00:52:50.752] next 1570s [00:52:50.752] invokeRestart(restart) 1570s [00:52:50.752] muffled <- TRUE 1570s [00:52:50.752] break 1570s [00:52:50.752] } 1570s [00:52:50.752] } 1570s [00:52:50.752] } 1570s [00:52:50.752] invisible(muffled) 1570s [00:52:50.752] } 1570s [00:52:50.752] muffleCondition(cond, pattern = "^muffle") 1570s [00:52:50.752] } 1570s [00:52:50.752] } 1570s [00:52:50.752] else { 1570s [00:52:50.752] if (TRUE) { 1570s [00:52:50.752] muffleCondition <- function (cond, pattern = "^muffle") 1570s [00:52:50.752] { 1570s [00:52:50.752] inherits <- base::inherits 1570s [00:52:50.752] invokeRestart <- base::invokeRestart 1570s [00:52:50.752] is.null <- base::is.null 1570s [00:52:50.752] muffled <- FALSE 1570s [00:52:50.752] if (inherits(cond, "message")) { 1570s [00:52:50.752] muffled <- grepl(pattern, "muffleMessage") 1570s [00:52:50.752] if (muffled) 1570s [00:52:50.752] invokeRestart("muffleMessage") 1570s [00:52:50.752] } 1570s [00:52:50.752] else if (inherits(cond, "warning")) { 1570s [00:52:50.752] muffled <- grepl(pattern, "muffleWarning") 1570s [00:52:50.752] if (muffled) 1570s [00:52:50.752] invokeRestart("muffleWarning") 1570s [00:52:50.752] } 1570s [00:52:50.752] else if (inherits(cond, "condition")) { 1570s [00:52:50.752] if (!is.null(pattern)) { 1570s [00:52:50.752] computeRestarts <- base::computeRestarts 1570s [00:52:50.752] grepl <- base::grepl 1570s [00:52:50.752] restarts <- computeRestarts(cond) 1570s [00:52:50.752] for (restart in restarts) { 1570s [00:52:50.752] name <- restart$name 1570s [00:52:50.752] if (is.null(name)) 1570s [00:52:50.752] next 1570s [00:52:50.752] if (!grepl(pattern, name)) 1570s [00:52:50.752] next 1570s [00:52:50.752] invokeRestart(restart) 1570s [00:52:50.752] muffled <- TRUE 1570s [00:52:50.752] break 1570s [00:52:50.752] } 1570s [00:52:50.752] } 1570s [00:52:50.752] } 1570s [00:52:50.752] invisible(muffled) 1570s [00:52:50.752] } 1570s [00:52:50.752] muffleCondition(cond, pattern = "^muffle") 1570s [00:52:50.752] } 1570s [00:52:50.752] } 1570s [00:52:50.752] } 1570s [00:52:50.752] })) 1570s [00:52:50.752] }, error = function(ex) { 1570s [00:52:50.752] base::structure(base::list(value = NULL, visible = NULL, 1570s [00:52:50.752] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1570s [00:52:50.752] ...future.rng), started = ...future.startTime, 1570s [00:52:50.752] finished = Sys.time(), session_uuid = NA_character_, 1570s [00:52:50.752] version = "1.8"), class = "FutureResult") 1570s [00:52:50.752] }, finally = { 1570s [00:52:50.752] if (!identical(...future.workdir, getwd())) 1570s [00:52:50.752] setwd(...future.workdir) 1570s [00:52:50.752] { 1570s [00:52:50.752] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1570s [00:52:50.752] ...future.oldOptions$nwarnings <- NULL 1570s [00:52:50.752] } 1570s [00:52:50.752] base::options(...future.oldOptions) 1570s [00:52:50.752] if (.Platform$OS.type == "windows") { 1570s [00:52:50.752] old_names <- names(...future.oldEnvVars) 1570s [00:52:50.752] envs <- base::Sys.getenv() 1570s [00:52:50.752] names <- names(envs) 1570s [00:52:50.752] common <- intersect(names, old_names) 1570s [00:52:50.752] added <- setdiff(names, old_names) 1570s [00:52:50.752] removed <- setdiff(old_names, names) 1570s [00:52:50.752] changed <- common[...future.oldEnvVars[common] != 1570s [00:52:50.752] envs[common]] 1570s [00:52:50.752] NAMES <- toupper(changed) 1570s [00:52:50.752] args <- list() 1570s [00:52:50.752] for (kk in seq_along(NAMES)) { 1570s [00:52:50.752] name <- changed[[kk]] 1570s [00:52:50.752] NAME <- NAMES[[kk]] 1570s [00:52:50.752] if (name != NAME && is.element(NAME, old_names)) 1570s [00:52:50.752] next 1570s [00:52:50.752] args[[name]] <- ...future.oldEnvVars[[name]] 1570s [00:52:50.752] } 1570s [00:52:50.752] NAMES <- toupper(added) 1570s [00:52:50.752] for (kk in seq_along(NAMES)) { 1570s [00:52:50.752] name <- added[[kk]] 1570s [00:52:50.752] NAME <- NAMES[[kk]] 1570s [00:52:50.752] if (name != NAME && is.element(NAME, old_names)) 1570s [00:52:50.752] next 1570s [00:52:50.752] args[[name]] <- "" 1570s [00:52:50.752] } 1570s [00:52:50.752] NAMES <- toupper(removed) 1570s [00:52:50.752] for (kk in seq_along(NAMES)) { 1570s [00:52:50.752] name <- removed[[kk]] 1570s [00:52:50.752] NAME <- NAMES[[kk]] 1570s [00:52:50.752] if (name != NAME && is.element(NAME, old_names)) 1570s [00:52:50.752] next 1570s [00:52:50.752] args[[name]] <- ...future.oldEnvVars[[name]] 1570s [00:52:50.752] } 1570s [00:52:50.752] if (length(args) > 0) 1570s [00:52:50.752] base::do.call(base::Sys.setenv, args = args) 1570s [00:52:50.752] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1570s [00:52:50.752] } 1570s [00:52:50.752] else { 1570s [00:52:50.752] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1570s [00:52:50.752] } 1570s [00:52:50.752] { 1570s [00:52:50.752] if (base::length(...future.futureOptionsAdded) > 1570s [00:52:50.752] 0L) { 1570s [00:52:50.752] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1570s [00:52:50.752] base::names(opts) <- ...future.futureOptionsAdded 1570s [00:52:50.752] base::options(opts) 1570s [00:52:50.752] } 1570s [00:52:50.752] { 1570s [00:52:50.752] { 1570s [00:52:50.752] NULL 1570s [00:52:50.752] RNGkind("Mersenne-Twister") 1570s [00:52:50.752] base::rm(list = ".Random.seed", envir = base::globalenv(), 1570s [00:52:50.752] inherits = FALSE) 1570s [00:52:50.752] } 1570s [00:52:50.752] options(future.plan = NULL) 1570s [00:52:50.752] if (is.na(NA_character_)) 1570s [00:52:50.752] Sys.unsetenv("R_FUTURE_PLAN") 1570s [00:52:50.752] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1570s [00:52:50.752] future::plan(list(function (..., envir = parent.frame()) 1570s [00:52:50.752] { 1570s [00:52:50.752] future <- SequentialFuture(..., envir = envir) 1570s [00:52:50.752] if (!future$lazy) 1570s [00:52:50.752] future <- run(future) 1570s [00:52:50.752] invisible(future) 1570s [00:52:50.752] }), .cleanup = FALSE, .init = FALSE) 1570s [00:52:50.752] } 1570s [00:52:50.752] } 1570s [00:52:50.752] } 1570s [00:52:50.752] }) 1570s [00:52:50.752] if (TRUE) { 1570s [00:52:50.752] base::sink(type = "output", split = FALSE) 1570s [00:52:50.752] if (TRUE) { 1570s [00:52:50.752] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1570s [00:52:50.752] } 1570s [00:52:50.752] else { 1570s [00:52:50.752] ...future.result["stdout"] <- base::list(NULL) 1570s [00:52:50.752] } 1570s [00:52:50.752] base::close(...future.stdout) 1570s [00:52:50.752] ...future.stdout <- NULL 1570s [00:52:50.752] } 1570s [00:52:50.752] ...future.result$conditions <- ...future.conditions 1570s [00:52:50.752] ...future.result$finished <- base::Sys.time() 1570s [00:52:50.752] ...future.result 1570s [00:52:50.752] } 1570s [00:52:50.755] assign_globals() ... 1570s [00:52:50.755] List of 5 1570s [00:52:50.755] $ ...future.FUN :function (x) 1570s [00:52:50.755] $ future.call.arguments : list() 1570s [00:52:50.755] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1570s [00:52:50.755] $ ...future.elements_ii :List of 3 1570s [00:52:50.755] ..$ : chr "a" 1570s [00:52:50.755] ..$ : chr "b" 1570s [00:52:50.755] ..$ : chr "c" 1570s [00:52:50.755] $ ...future.seeds_ii : NULL 1570s [00:52:50.755] $ ...future.globals.maxSize: NULL 1570s [00:52:50.755] - attr(*, "where")=List of 5 1570s [00:52:50.755] ..$ ...future.FUN : 1570s [00:52:50.755] ..$ future.call.arguments : 1570s [00:52:50.755] ..$ ...future.elements_ii : 1570s [00:52:50.755] ..$ ...future.seeds_ii : 1570s [00:52:50.755] ..$ ...future.globals.maxSize: 1570s [00:52:50.755] - attr(*, "resolved")= logi FALSE 1570s [00:52:50.755] - attr(*, "total_size")= num 848 1570s [00:52:50.755] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1570s [00:52:50.755] - attr(*, "already-done")= logi TRUE 1570s [00:52:50.763] - copied ‘...future.FUN’ to environment 1570s [00:52:50.763] - copied ‘future.call.arguments’ to environment 1570s [00:52:50.763] - copied ‘...future.elements_ii’ to environment 1570s [00:52:50.764] - copied ‘...future.seeds_ii’ to environment 1570s [00:52:50.764] - copied ‘...future.globals.maxSize’ to environment 1570s [00:52:50.764] assign_globals() ... done 1570s [00:52:50.764] plan(): Setting new future strategy stack: 1570s [00:52:50.764] List of future strategies: 1570s [00:52:50.764] 1. sequential: 1570s [00:52:50.764] - args: function (..., envir = parent.frame()) 1570s [00:52:50.764] - tweaked: FALSE 1570s [00:52:50.764] - call: NULL 1570s [00:52:50.765] plan(): nbrOfWorkers() = 1 1570s [00:52:50.766] plan(): Setting new future strategy stack: 1570s [00:52:50.766] List of future strategies: 1570s [00:52:50.766] 1. sequential: 1570s [00:52:50.766] - args: function (..., envir = parent.frame()) 1570s [00:52:50.766] - tweaked: FALSE 1570s [00:52:50.766] - call: plan(strategy) 1570s [00:52:50.767] plan(): nbrOfWorkers() = 1 1570s [00:52:50.767] SequentialFuture started (and completed) 1570s [00:52:50.767] - Launch lazy future ... done 1570s [00:52:50.767] run() for ‘SequentialFuture’ ... done 1570s [00:52:50.767] Created future: 1570s [00:52:50.768] SequentialFuture: 1570s [00:52:50.768] Label: ‘future_sapply-1’ 1570s [00:52:50.768] Expression: 1570s [00:52:50.768] { 1570s [00:52:50.768] do.call(function(...) { 1570s [00:52:50.768] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1570s [00:52:50.768] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1570s [00:52:50.768] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1570s [00:52:50.768] on.exit(options(oopts), add = TRUE) 1570s [00:52:50.768] } 1570s [00:52:50.768] { 1570s [00:52:50.768] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1570s [00:52:50.768] ...future.X_jj <- ...future.elements_ii[[jj]] 1570s [00:52:50.768] ...future.FUN(...future.X_jj, ...) 1570s [00:52:50.768] }) 1570s [00:52:50.768] } 1570s [00:52:50.768] }, args = future.call.arguments) 1570s [00:52:50.768] } 1570s [00:52:50.768] Lazy evaluation: FALSE 1570s [00:52:50.768] Asynchronous evaluation: FALSE 1570s [00:52:50.768] Local evaluation: TRUE 1570s [00:52:50.768] Environment: R_GlobalEnv 1570s [00:52:50.768] Capture standard output: TRUE 1570s [00:52:50.768] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1570s [00:52:50.768] Globals: 5 objects totaling 1.16 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1570s [00:52:50.768] Packages: 1570s [00:52:50.768] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1570s [00:52:50.768] Resolved: TRUE 1570s [00:52:50.768] Value: 336 bytes of class ‘list’ 1570s [00:52:50.768] Early signaling: FALSE 1570s [00:52:50.768] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1570s [00:52:50.768] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1570s [00:52:50.769] Chunk #1 of 1 ... DONE 1570s [00:52:50.769] Launching 1 futures (chunks) ... DONE 1570s [00:52:50.770] Resolving 1 futures (chunks) ... 1570s [00:52:50.770] resolve() on list ... 1570s [00:52:50.770] recursive: 0 1570s [00:52:50.770] length: 1 1570s [00:52:50.770] 1570s [00:52:50.770] resolved() for ‘SequentialFuture’ ... 1570s [00:52:50.770] - state: ‘finished’ 1570s [00:52:50.771] - run: TRUE 1570s [00:52:50.771] - result: ‘FutureResult’ 1570s [00:52:50.771] resolved() for ‘SequentialFuture’ ... done 1570s [00:52:50.771] Future #1 1570s [00:52:50.771] signalConditionsASAP(SequentialFuture, pos=1) ... 1570s [00:52:50.771] - nx: 1 1570s [00:52:50.771] - relay: TRUE 1570s [00:52:50.772] - stdout: TRUE 1570s [00:52:50.772] - signal: TRUE 1570s [00:52:50.772] - resignal: FALSE 1570s [00:52:50.772] - force: TRUE 1570s [00:52:50.772] - relayed: [n=1] FALSE 1570s [00:52:50.772] - queued futures: [n=1] FALSE 1570s [00:52:50.772] - until=1 1570s [00:52:50.773] - relaying element #1 1570s [00:52:50.773] - relayed: [n=1] TRUE 1570s [00:52:50.773] - queued futures: [n=1] TRUE 1570s [00:52:50.773] signalConditionsASAP(SequentialFuture, pos=1) ... done 1570s [00:52:50.773] length: 0 (resolved future 1) 1570s [00:52:50.773] Relaying remaining futures 1570s [00:52:50.774] signalConditionsASAP(NULL, pos=0) ... 1570s [00:52:50.774] - nx: 1 1570s [00:52:50.774] - relay: TRUE 1570s [00:52:50.776] - stdout: TRUE 1570s [00:52:50.776] - signal: TRUE 1570s [00:52:50.776] - resignal: FALSE 1570s [00:52:50.776] - force: TRUE 1570s [00:52:50.776] - relayed: [n=1] TRUE 1570s [00:52:50.777] - queued futures: [n=1] TRUE 1570s - flush all 1570s [00:52:50.777] - relayed: [n=1] TRUE 1570s [00:52:50.777] - queued futures: [n=1] TRUE 1570s [00:52:50.778] signalConditionsASAP(NULL, pos=0) ... done 1570s [00:52:50.778] resolve() on list ... DONE 1570s [00:52:50.778] - Number of value chunks collected: 1 1570s [00:52:50.778] Resolving 1 futures (chunks) ... DONE 1570s [00:52:50.778] Reducing values from 1 chunks ... 1570s [00:52:50.779] - Number of values collected after concatenation: 3 1570s [00:52:50.779] - Number of values expected: 3 1570s [00:52:50.779] Reducing values from 1 chunks ... DONE 1570s [00:52:50.779] future_lapply() ... DONE 1570s List of 2 1570s $ y0: chr [1:3] "a" "b" "c" 1570s $ y1: chr [1:3] "a" "b" "c"[00:52:50.781] future_lapply() ... 1570s 1570s [00:52:50.781] Number of chunks: 1 1570s [00:52:50.781] getGlobalsAndPackagesXApply() ... 1570s [00:52:50.782] - future.globals: TRUE 1570s [00:52:50.782] getGlobalsAndPackages() ... 1570s [00:52:50.782] Searching for globals... 1570s [00:52:50.783] - globals found: [2] ‘FUN’, ‘UseMethod’ 1570s [00:52:50.783] Searching for globals ... DONE 1570s [00:52:50.783] Resolving globals: FALSE 1570s [00:52:50.784] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1570s [00:52:50.784] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1570s [00:52:50.784] - globals: [1] ‘FUN’ 1570s [00:52:50.784] 1570s [00:52:50.785] getGlobalsAndPackages() ... DONE 1570s [00:52:50.785] - globals found/used: [n=1] ‘FUN’ 1570s [00:52:50.785] - needed namespaces: [n=0] 1570s [00:52:50.785] Finding globals ... DONE 1570s [00:52:50.785] - use_args: TRUE 1570s [00:52:50.785] - Getting '...' globals ... 1570s [00:52:50.786] resolve() on list ... 1570s [00:52:50.786] recursive: 0 1570s [00:52:50.786] length: 1 1570s [00:52:50.786] elements: ‘...’ 1570s [00:52:50.786] length: 0 (resolved future 1) 1570s [00:52:50.786] resolve() on list ... DONE 1570s [00:52:50.787] - '...' content: [n=0] 1570s [00:52:50.787] List of 1 1570s [00:52:50.787] $ ...: list() 1570s [00:52:50.787] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1570s [00:52:50.787] - attr(*, "where")=List of 1 1570s [00:52:50.787] ..$ ...: 1570s [00:52:50.787] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1570s [00:52:50.787] - attr(*, "resolved")= logi TRUE 1570s [00:52:50.787] - attr(*, "total_size")= num NA 1570s [00:52:50.790] - Getting '...' globals ... DONE 1570s [00:52:50.790] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1570s [00:52:50.790] List of 2 1570s [00:52:50.790] $ ...future.FUN:function (x, ...) 1570s [00:52:50.790] $ ... : list() 1570s [00:52:50.790] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1570s [00:52:50.790] - attr(*, "where")=List of 2 1570s [00:52:50.790] ..$ ...future.FUN: 1570s [00:52:50.790] ..$ ... : 1570s [00:52:50.790] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1570s [00:52:50.790] - attr(*, "resolved")= logi FALSE 1570s [00:52:50.790] - attr(*, "total_size")= num 1248 1570s [00:52:50.794] Packages to be attached in all futures: [n=0] 1570s [00:52:50.794] getGlobalsAndPackagesXApply() ... DONE 1570s [00:52:50.795] Number of futures (= number of chunks): 1 1570s [00:52:50.795] Launching 1 futures (chunks) ... 1570s [00:52:50.795] Chunk #1 of 1 ... 1570s [00:52:50.795] - Finding globals in 'X' for chunk #1 ... 1570s [00:52:50.796] getGlobalsAndPackages() ... 1570s [00:52:50.796] Searching for globals... 1570s [00:52:50.796] 1570s [00:52:50.796] Searching for globals ... DONE 1570s [00:52:50.796] - globals: [0] 1570s [00:52:50.797] getGlobalsAndPackages() ... DONE 1570s [00:52:50.797] + additional globals found: [n=0] 1570s [00:52:50.797] + additional namespaces needed: [n=0] 1570s [00:52:50.797] - Finding globals in 'X' for chunk #1 ... DONE 1570s [00:52:50.797] - seeds: 1570s [00:52:50.797] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1570s [00:52:50.798] getGlobalsAndPackages() ... 1570s [00:52:50.798] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1570s [00:52:50.798] Resolving globals: FALSE 1570s [00:52:50.798] Tweak future expression to call with '...' arguments ... 1570s [00:52:50.798] { 1570s [00:52:50.798] do.call(function(...) { 1570s [00:52:50.798] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1570s [00:52:50.798] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1570s [00:52:50.798] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1570s [00:52:50.798] on.exit(options(oopts), add = TRUE) 1570s [00:52:50.798] } 1570s [00:52:50.798] { 1570s [00:52:50.798] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1570s [00:52:50.798] ...future.X_jj <- ...future.elements_ii[[jj]] 1570s [00:52:50.798] ...future.FUN(...future.X_jj, ...) 1570s [00:52:50.798] }) 1570s [00:52:50.798] } 1570s [00:52:50.798] }, args = future.call.arguments) 1570s [00:52:50.798] } 1570s [00:52:50.799] Tweak future expression to call with '...' arguments ... DONE 1570s [00:52:50.799] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1570s [00:52:50.800] 1570s [00:52:50.800] getGlobalsAndPackages() ... DONE 1570s [00:52:50.800] run() for ‘Future’ ... 1570s [00:52:50.800] - state: ‘created’ 1570s [00:52:50.801] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1570s [00:52:50.801] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1570s [00:52:50.801] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1570s [00:52:50.801] - Field: ‘label’ 1570s [00:52:50.802] - Field: ‘local’ 1570s [00:52:50.802] - Field: ‘owner’ 1570s [00:52:50.802] - Field: ‘envir’ 1570s [00:52:50.802] - Field: ‘packages’ 1570s [00:52:50.802] - Field: ‘gc’ 1570s [00:52:50.802] - Field: ‘conditions’ 1570s [00:52:50.802] - Field: ‘expr’ 1570s [00:52:50.803] - Field: ‘uuid’ 1570s [00:52:50.803] - Field: ‘seed’ 1570s [00:52:50.803] - Field: ‘version’ 1570s [00:52:50.803] - Field: ‘result’ 1570s [00:52:50.803] - Field: ‘asynchronous’ 1570s [00:52:50.803] - Field: ‘calls’ 1570s [00:52:50.803] - Field: ‘globals’ 1570s [00:52:50.804] - Field: ‘stdout’ 1570s [00:52:50.804] - Field: ‘earlySignal’ 1570s [00:52:50.804] - Field: ‘lazy’ 1570s [00:52:50.804] - Field: ‘state’ 1570s [00:52:50.804] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1570s [00:52:50.804] - Launch lazy future ... 1570s [00:52:50.805] Packages needed by the future expression (n = 0): 1570s [00:52:50.805] Packages needed by future strategies (n = 0): 1570s [00:52:50.805] { 1570s [00:52:50.805] { 1570s [00:52:50.805] { 1570s [00:52:50.805] ...future.startTime <- base::Sys.time() 1570s [00:52:50.805] { 1570s [00:52:50.805] { 1570s [00:52:50.805] { 1570s [00:52:50.805] base::local({ 1570s [00:52:50.805] has_future <- base::requireNamespace("future", 1570s [00:52:50.805] quietly = TRUE) 1570s [00:52:50.805] if (has_future) { 1570s [00:52:50.805] ns <- base::getNamespace("future") 1570s [00:52:50.805] version <- ns[[".package"]][["version"]] 1570s [00:52:50.805] if (is.null(version)) 1570s [00:52:50.805] version <- utils::packageVersion("future") 1570s [00:52:50.805] } 1570s [00:52:50.805] else { 1570s [00:52:50.805] version <- NULL 1570s [00:52:50.805] } 1570s [00:52:50.805] if (!has_future || version < "1.8.0") { 1570s [00:52:50.805] info <- base::c(r_version = base::gsub("R version ", 1570s [00:52:50.805] "", base::R.version$version.string), 1570s [00:52:50.805] platform = base::sprintf("%s (%s-bit)", 1570s [00:52:50.805] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1570s [00:52:50.805] os = base::paste(base::Sys.info()[base::c("sysname", 1570s [00:52:50.805] "release", "version")], collapse = " "), 1570s [00:52:50.805] hostname = base::Sys.info()[["nodename"]]) 1570s [00:52:50.805] info <- base::sprintf("%s: %s", base::names(info), 1570s [00:52:50.805] info) 1570s [00:52:50.805] info <- base::paste(info, collapse = "; ") 1570s [00:52:50.805] if (!has_future) { 1570s [00:52:50.805] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1570s [00:52:50.805] info) 1570s [00:52:50.805] } 1570s [00:52:50.805] else { 1570s [00:52:50.805] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1570s [00:52:50.805] info, version) 1570s [00:52:50.805] } 1570s [00:52:50.805] base::stop(msg) 1570s [00:52:50.805] } 1570s [00:52:50.805] }) 1570s [00:52:50.805] } 1570s [00:52:50.805] options(future.plan = NULL) 1570s [00:52:50.805] Sys.unsetenv("R_FUTURE_PLAN") 1570s [00:52:50.805] future::plan("default", .cleanup = FALSE, .init = FALSE) 1570s [00:52:50.805] } 1570s [00:52:50.805] ...future.workdir <- getwd() 1570s [00:52:50.805] } 1570s [00:52:50.805] ...future.oldOptions <- base::as.list(base::.Options) 1570s [00:52:50.805] ...future.oldEnvVars <- base::Sys.getenv() 1570s [00:52:50.805] } 1570s [00:52:50.805] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1570s [00:52:50.805] future.globals.maxSize = NULL, future.globals.method = NULL, 1570s [00:52:50.805] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1570s [00:52:50.805] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1570s [00:52:50.805] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1570s [00:52:50.805] future.stdout.windows.reencode = NULL, width = 80L) 1570s [00:52:50.805] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1570s [00:52:50.805] base::names(...future.oldOptions)) 1570s [00:52:50.805] } 1570s [00:52:50.805] if (FALSE) { 1570s [00:52:50.805] } 1570s [00:52:50.805] else { 1570s [00:52:50.805] if (TRUE) { 1570s [00:52:50.805] ...future.stdout <- base::rawConnection(base::raw(0L), 1570s [00:52:50.805] open = "w") 1570s [00:52:50.805] } 1570s [00:52:50.805] else { 1570s [00:52:50.805] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1570s [00:52:50.805] windows = "NUL", "/dev/null"), open = "w") 1570s [00:52:50.805] } 1570s [00:52:50.805] base::sink(...future.stdout, type = "output", split = FALSE) 1570s [00:52:50.805] base::on.exit(if (!base::is.null(...future.stdout)) { 1570s [00:52:50.805] base::sink(type = "output", split = FALSE) 1570s [00:52:50.805] base::close(...future.stdout) 1570s [00:52:50.805] }, add = TRUE) 1570s [00:52:50.805] } 1570s [00:52:50.805] ...future.frame <- base::sys.nframe() 1570s [00:52:50.805] ...future.conditions <- base::list() 1570s [00:52:50.805] ...future.rng <- base::globalenv()$.Random.seed 1570s [00:52:50.805] if (FALSE) { 1570s [00:52:50.805] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1570s [00:52:50.805] "...future.value", "...future.globalenv.names", ".Random.seed") 1570s [00:52:50.805] } 1570s [00:52:50.805] ...future.result <- base::tryCatch({ 1570s [00:52:50.805] base::withCallingHandlers({ 1570s [00:52:50.805] ...future.value <- base::withVisible(base::local({ 1570s [00:52:50.805] do.call(function(...) { 1570s [00:52:50.805] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1570s [00:52:50.805] if (!identical(...future.globals.maxSize.org, 1570s [00:52:50.805] ...future.globals.maxSize)) { 1570s [00:52:50.805] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1570s [00:52:50.805] on.exit(options(oopts), add = TRUE) 1570s [00:52:50.805] } 1570s [00:52:50.805] { 1570s [00:52:50.805] lapply(seq_along(...future.elements_ii), 1570s [00:52:50.805] FUN = function(jj) { 1570s [00:52:50.805] ...future.X_jj <- ...future.elements_ii[[jj]] 1570s [00:52:50.805] ...future.FUN(...future.X_jj, ...) 1570s [00:52:50.805] }) 1570s [00:52:50.805] } 1570s [00:52:50.805] }, args = future.call.arguments) 1570s [00:52:50.805] })) 1570s [00:52:50.805] future::FutureResult(value = ...future.value$value, 1570s [00:52:50.805] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1570s [00:52:50.805] ...future.rng), globalenv = if (FALSE) 1570s [00:52:50.805] list(added = base::setdiff(base::names(base::.GlobalEnv), 1570s [00:52:50.805] ...future.globalenv.names)) 1570s [00:52:50.805] else NULL, started = ...future.startTime, version = "1.8") 1570s [00:52:50.805] }, condition = base::local({ 1570s [00:52:50.805] c <- base::c 1570s [00:52:50.805] inherits <- base::inherits 1570s [00:52:50.805] invokeRestart <- base::invokeRestart 1570s [00:52:50.805] length <- base::length 1570s [00:52:50.805] list <- base::list 1570s [00:52:50.805] seq.int <- base::seq.int 1570s [00:52:50.805] signalCondition <- base::signalCondition 1570s [00:52:50.805] sys.calls <- base::sys.calls 1570s [00:52:50.805] `[[` <- base::`[[` 1570s [00:52:50.805] `+` <- base::`+` 1570s [00:52:50.805] `<<-` <- base::`<<-` 1570s [00:52:50.805] sysCalls <- function(calls = sys.calls(), from = 1L) { 1570s [00:52:50.805] calls[seq.int(from = from + 12L, to = length(calls) - 1570s [00:52:50.805] 3L)] 1570s [00:52:50.805] } 1570s [00:52:50.805] function(cond) { 1570s [00:52:50.805] is_error <- inherits(cond, "error") 1570s [00:52:50.805] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1570s [00:52:50.805] NULL) 1570s [00:52:50.805] if (is_error) { 1570s [00:52:50.805] sessionInformation <- function() { 1570s [00:52:50.805] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1570s [00:52:50.805] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1570s [00:52:50.805] search = base::search(), system = base::Sys.info()) 1570s [00:52:50.805] } 1570s [00:52:50.805] ...future.conditions[[length(...future.conditions) + 1570s [00:52:50.805] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1570s [00:52:50.805] cond$call), session = sessionInformation(), 1570s [00:52:50.805] timestamp = base::Sys.time(), signaled = 0L) 1570s [00:52:50.805] signalCondition(cond) 1570s [00:52:50.805] } 1570s [00:52:50.805] else if (!ignore && TRUE && inherits(cond, c("condition", 1570s [00:52:50.805] "immediateCondition"))) { 1570s [00:52:50.805] signal <- TRUE && inherits(cond, "immediateCondition") 1570s [00:52:50.805] ...future.conditions[[length(...future.conditions) + 1570s [00:52:50.805] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1570s [00:52:50.805] if (TRUE && !signal) { 1570s [00:52:50.805] muffleCondition <- function (cond, pattern = "^muffle") 1570s [00:52:50.805] { 1570s [00:52:50.805] inherits <- base::inherits 1570s [00:52:50.805] invokeRestart <- base::invokeRestart 1570s [00:52:50.805] is.null <- base::is.null 1570s [00:52:50.805] muffled <- FALSE 1570s [00:52:50.805] if (inherits(cond, "message")) { 1570s [00:52:50.805] muffled <- grepl(pattern, "muffleMessage") 1570s [00:52:50.805] if (muffled) 1570s [00:52:50.805] invokeRestart("muffleMessage") 1570s [00:52:50.805] } 1570s [00:52:50.805] else if (inherits(cond, "warning")) { 1570s [00:52:50.805] muffled <- grepl(pattern, "muffleWarning") 1570s [00:52:50.805] if (muffled) 1570s [00:52:50.805] invokeRestart("muffleWarning") 1570s [00:52:50.805] } 1570s [00:52:50.805] else if (inherits(cond, "condition")) { 1570s [00:52:50.805] if (!is.null(pattern)) { 1570s [00:52:50.805] computeRestarts <- base::computeRestarts 1570s [00:52:50.805] grepl <- base::grepl 1570s [00:52:50.805] restarts <- computeRestarts(cond) 1570s [00:52:50.805] for (restart in restarts) { 1570s [00:52:50.805] name <- restart$name 1570s [00:52:50.805] if (is.null(name)) 1570s [00:52:50.805] next 1570s [00:52:50.805] if (!grepl(pattern, name)) 1570s [00:52:50.805] next 1570s [00:52:50.805] invokeRestart(restart) 1570s [00:52:50.805] muffled <- TRUE 1570s [00:52:50.805] break 1570s [00:52:50.805] } 1570s [00:52:50.805] } 1570s [00:52:50.805] } 1570s [00:52:50.805] invisible(muffled) 1570s [00:52:50.805] } 1570s [00:52:50.805] muffleCondition(cond, pattern = "^muffle") 1570s [00:52:50.805] } 1570s [00:52:50.805] } 1570s [00:52:50.805] else { 1570s [00:52:50.805] if (TRUE) { 1570s [00:52:50.805] muffleCondition <- function (cond, pattern = "^muffle") 1570s [00:52:50.805] { 1570s [00:52:50.805] inherits <- base::inherits 1570s [00:52:50.805] invokeRestart <- base::invokeRestart 1570s [00:52:50.805] is.null <- base::is.null 1570s [00:52:50.805] muffled <- FALSE 1570s [00:52:50.805] if (inherits(cond, "message")) { 1570s [00:52:50.805] muffled <- grepl(pattern, "muffleMessage") 1570s [00:52:50.805] if (muffled) 1570s [00:52:50.805] invokeRestart("muffleMessage") 1570s [00:52:50.805] } 1570s [00:52:50.805] else if (inherits(cond, "warning")) { 1570s [00:52:50.805] muffled <- grepl(pattern, "muffleWarning") 1570s [00:52:50.805] if (muffled) 1570s [00:52:50.805] invokeRestart("muffleWarning") 1570s [00:52:50.805] } 1570s [00:52:50.805] else if (inherits(cond, "condition")) { 1570s [00:52:50.805] if (!is.null(pattern)) { 1570s [00:52:50.805] computeRestarts <- base::computeRestarts 1570s [00:52:50.805] grepl <- base::grepl 1570s [00:52:50.805] restarts <- computeRestarts(cond) 1570s [00:52:50.805] for (restart in restarts) { 1570s [00:52:50.805] name <- restart$name 1570s [00:52:50.805] if (is.null(name)) 1570s [00:52:50.805] next 1570s [00:52:50.805] if (!grepl(pattern, name)) 1570s [00:52:50.805] next 1570s [00:52:50.805] invokeRestart(restart) 1570s [00:52:50.805] muffled <- TRUE 1570s [00:52:50.805] break 1570s [00:52:50.805] } 1570s [00:52:50.805] } 1570s [00:52:50.805] } 1570s [00:52:50.805] invisible(muffled) 1570s [00:52:50.805] } 1570s [00:52:50.805] muffleCondition(cond, pattern = "^muffle") 1570s [00:52:50.805] } 1570s [00:52:50.805] } 1570s [00:52:50.805] } 1570s [00:52:50.805] })) 1570s [00:52:50.805] }, error = function(ex) { 1570s [00:52:50.805] base::structure(base::list(value = NULL, visible = NULL, 1570s [00:52:50.805] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1570s [00:52:50.805] ...future.rng), started = ...future.startTime, 1570s [00:52:50.805] finished = Sys.time(), session_uuid = NA_character_, 1570s [00:52:50.805] version = "1.8"), class = "FutureResult") 1570s [00:52:50.805] }, finally = { 1570s [00:52:50.805] if (!identical(...future.workdir, getwd())) 1570s [00:52:50.805] setwd(...future.workdir) 1570s [00:52:50.805] { 1570s [00:52:50.805] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1570s [00:52:50.805] ...future.oldOptions$nwarnings <- NULL 1570s [00:52:50.805] } 1570s [00:52:50.805] base::options(...future.oldOptions) 1570s [00:52:50.805] if (.Platform$OS.type == "windows") { 1570s [00:52:50.805] old_names <- names(...future.oldEnvVars) 1570s [00:52:50.805] envs <- base::Sys.getenv() 1570s [00:52:50.805] names <- names(envs) 1570s [00:52:50.805] common <- intersect(names, old_names) 1570s [00:52:50.805] added <- setdiff(names, old_names) 1570s [00:52:50.805] removed <- setdiff(old_names, names) 1570s [00:52:50.805] changed <- common[...future.oldEnvVars[common] != 1570s [00:52:50.805] envs[common]] 1570s [00:52:50.805] NAMES <- toupper(changed) 1570s [00:52:50.805] args <- list() 1570s [00:52:50.805] for (kk in seq_along(NAMES)) { 1570s [00:52:50.805] name <- changed[[kk]] 1570s [00:52:50.805] NAME <- NAMES[[kk]] 1570s [00:52:50.805] if (name != NAME && is.element(NAME, old_names)) 1570s [00:52:50.805] next 1570s [00:52:50.805] args[[name]] <- ...future.oldEnvVars[[name]] 1570s [00:52:50.805] } 1570s [00:52:50.805] NAMES <- toupper(added) 1570s [00:52:50.805] for (kk in seq_along(NAMES)) { 1570s [00:52:50.805] name <- added[[kk]] 1570s [00:52:50.805] NAME <- NAMES[[kk]] 1570s [00:52:50.805] if (name != NAME && is.element(NAME, old_names)) 1570s [00:52:50.805] next 1570s [00:52:50.805] args[[name]] <- "" 1570s [00:52:50.805] } 1570s [00:52:50.805] NAMES <- toupper(removed) 1570s [00:52:50.805] for (kk in seq_along(NAMES)) { 1570s [00:52:50.805] name <- removed[[kk]] 1570s [00:52:50.805] NAME <- NAMES[[kk]] 1570s [00:52:50.805] if (name != NAME && is.element(NAME, old_names)) 1570s [00:52:50.805] next 1570s [00:52:50.805] args[[name]] <- ...future.oldEnvVars[[name]] 1570s [00:52:50.805] } 1570s [00:52:50.805] if (length(args) > 0) 1570s [00:52:50.805] base::do.call(base::Sys.setenv, args = args) 1570s [00:52:50.805] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1570s [00:52:50.805] } 1570s [00:52:50.805] else { 1570s [00:52:50.805] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1570s [00:52:50.805] } 1570s [00:52:50.805] { 1570s [00:52:50.805] if (base::length(...future.futureOptionsAdded) > 1570s [00:52:50.805] 0L) { 1570s [00:52:50.805] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1570s [00:52:50.805] base::names(opts) <- ...future.futureOptionsAdded 1570s [00:52:50.805] base::options(opts) 1570s [00:52:50.805] } 1570s [00:52:50.805] { 1570s [00:52:50.805] { 1570s [00:52:50.805] NULL 1570s [00:52:50.805] RNGkind("Mersenne-Twister") 1570s [00:52:50.805] base::rm(list = ".Random.seed", envir = base::globalenv(), 1570s [00:52:50.805] inherits = FALSE) 1570s [00:52:50.805] } 1570s [00:52:50.805] options(future.plan = NULL) 1570s [00:52:50.805] if (is.na(NA_character_)) 1570s [00:52:50.805] Sys.unsetenv("R_FUTURE_PLAN") 1570s [00:52:50.805] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1570s [00:52:50.805] future::plan(list(function (..., envir = parent.frame()) 1570s [00:52:50.805] { 1570s [00:52:50.805] future <- SequentialFuture(..., envir = envir) 1570s [00:52:50.805] if (!future$lazy) 1570s [00:52:50.805] future <- run(future) 1570s [00:52:50.805] invisible(future) 1570s [00:52:50.805] }), .cleanup = FALSE, .init = FALSE) 1570s [00:52:50.805] } 1570s [00:52:50.805] } 1570s [00:52:50.805] } 1570s [00:52:50.805] }) 1570s [00:52:50.805] if (TRUE) { 1570s [00:52:50.805] base::sink(type = "output", split = FALSE) 1570s [00:52:50.805] if (TRUE) { 1570s [00:52:50.805] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1570s [00:52:50.805] } 1570s [00:52:50.805] else { 1570s [00:52:50.805] ...future.result["stdout"] <- base::list(NULL) 1570s [00:52:50.805] } 1570s [00:52:50.805] base::close(...future.stdout) 1570s [00:52:50.805] ...future.stdout <- NULL 1570s [00:52:50.805] } 1570s [00:52:50.805] ...future.result$conditions <- ...future.conditions 1570s [00:52:50.805] ...future.result$finished <- base::Sys.time() 1570s [00:52:50.805] ...future.result 1570s [00:52:50.805] } 1570s [00:52:50.808] assign_globals() ... 1570s [00:52:50.808] List of 5 1570s [00:52:50.808] $ ...future.FUN :function (x, ...) 1570s [00:52:50.808] $ future.call.arguments : list() 1570s [00:52:50.808] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1570s [00:52:50.808] $ ...future.elements_ii :List of 3 1570s [00:52:50.808] ..$ : chr "a" 1570s [00:52:50.808] ..$ : chr "b" 1570s [00:52:50.808] ..$ : chr "c" 1570s [00:52:50.808] $ ...future.seeds_ii : NULL 1570s [00:52:50.808] $ ...future.globals.maxSize: NULL 1570s [00:52:50.808] - attr(*, "where")=List of 5 1570s [00:52:50.808] ..$ ...future.FUN : 1570s [00:52:50.808] ..$ future.call.arguments : 1570s [00:52:50.808] ..$ ...future.elements_ii : 1570s [00:52:50.808] ..$ ...future.seeds_ii : 1570s [00:52:50.808] ..$ ...future.globals.maxSize: 1570s [00:52:50.808] - attr(*, "resolved")= logi FALSE 1570s [00:52:50.808] - attr(*, "total_size")= num 1248 1570s [00:52:50.808] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1570s [00:52:50.808] - attr(*, "already-done")= logi TRUE 1570s [00:52:50.818] - copied ‘...future.FUN’ to environment 1570s [00:52:50.818] - copied ‘future.call.arguments’ to environment 1570s [00:52:50.819] - copied ‘...future.elements_ii’ to environment 1570s [00:52:50.819] - copied ‘...future.seeds_ii’ to environment 1570s [00:52:50.819] - copied ‘...future.globals.maxSize’ to environment 1570s [00:52:50.819] assign_globals() ... done 1570s [00:52:50.820] plan(): Setting new future strategy stack: 1570s [00:52:50.820] List of future strategies: 1570s [00:52:50.820] 1. sequential: 1570s [00:52:50.820] - args: function (..., envir = parent.frame()) 1570s [00:52:50.820] - tweaked: FALSE 1570s [00:52:50.820] - call: NULL 1570s [00:52:50.820] plan(): nbrOfWorkers() = 1 1570s [00:52:50.821] plan(): Setting new future strategy stack: 1570s [00:52:50.821] List of future strategies: 1570s [00:52:50.821] 1. sequential: 1570s [00:52:50.821] - args: function (..., envir = parent.frame()) 1570s [00:52:50.821] - tweaked: FALSE 1570s [00:52:50.821] - call: plan(strategy) 1570s [00:52:50.822] plan(): nbrOfWorkers() = 1 1570s [00:52:50.823] SequentialFuture started (and completed) 1570s [00:52:50.823] - Launch lazy future ... done 1570s [00:52:50.823] run() for ‘SequentialFuture’ ... done 1570s [00:52:50.823] Created future: 1570s [00:52:50.823] SequentialFuture: 1570s [00:52:50.823] Label: ‘future_sapply-1’ 1570s [00:52:50.823] Expression: 1570s [00:52:50.823] { 1570s [00:52:50.823] do.call(function(...) { 1570s [00:52:50.823] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1570s [00:52:50.823] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1570s [00:52:50.823] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1570s [00:52:50.823] on.exit(options(oopts), add = TRUE) 1570s [00:52:50.823] } 1570s [00:52:50.823] { 1570s [00:52:50.823] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1570s [00:52:50.823] ...future.X_jj <- ...future.elements_ii[[jj]] 1570s [00:52:50.823] ...future.FUN(...future.X_jj, ...) 1570s [00:52:50.823] }) 1570s [00:52:50.823] } 1570s [00:52:50.823] }, args = future.call.arguments) 1570s [00:52:50.823] } 1570s [00:52:50.823] Lazy evaluation: FALSE 1570s [00:52:50.823] Asynchronous evaluation: FALSE 1570s [00:52:50.823] Local evaluation: TRUE 1570s [00:52:50.823] Environment: R_GlobalEnv 1570s [00:52:50.823] Capture standard output: TRUE 1570s [00:52:50.823] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1570s [00:52:50.823] Globals: 5 objects totaling 1.55 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1570s [00:52:50.823] Packages: 1570s [00:52:50.823] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1570s [00:52:50.823] Resolved: TRUE 1570s [00:52:50.823] Value: 840 bytes of class ‘list’ 1570s [00:52:50.823] Early signaling: FALSE 1570s [00:52:50.823] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1570s [00:52:50.823] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1570s [00:52:50.825] Chunk #1 of 1 ... DONE 1570s [00:52:50.825] Launching 1 futures (chunks) ... DONE 1570s [00:52:50.825] Resolving 1 futures (chunks) ... 1570s [00:52:50.826] resolve() on list ... 1570s [00:52:50.826] recursive: 0 1570s [00:52:50.826] length: 1 1570s [00:52:50.826] 1570s [00:52:50.826] resolved() for ‘SequentialFuture’ ... 1570s [00:52:50.826] - state: ‘finished’ 1570s [00:52:50.827] - run: TRUE 1570s [00:52:50.827] - result: ‘FutureResult’ 1570s [00:52:50.827] resolved() for ‘SequentialFuture’ ... done 1570s [00:52:50.827] Future #1 1570s [00:52:50.827] signalConditionsASAP(SequentialFuture, pos=1) ... 1570s [00:52:50.827] - nx: 1 1570s [00:52:50.827] - relay: TRUE 1570s [00:52:50.828] - stdout: TRUE 1570s [00:52:50.828] - signal: TRUE 1570s [00:52:50.828] - resignal: FALSE 1570s [00:52:50.828] - force: TRUE 1570s [00:52:50.828] - relayed: [n=1] FALSE 1570s [00:52:50.828] - queued futures: [n=1] FALSE 1570s [00:52:50.828] - until=1 1570s [00:52:50.829] - relaying element #1 1570s [00:52:50.829] - relayed: [n=1] TRUE 1570s [00:52:50.829] - queued futures: [n=1] TRUE 1570s [00:52:50.829] signalConditionsASAP(SequentialFuture, pos=1) ... done 1570s [00:52:50.829] length: 0 (resolved future 1) 1570s [00:52:50.829] Relaying remaining futures 1570s [00:52:50.830] signalConditionsASAP(NULL, pos=0) ... 1570s [00:52:50.830] - nx: 1 1570s [00:52:50.830] - relay: TRUE 1570s [00:52:50.830] - stdout: TRUE 1570s [00:52:50.830] - signal: TRUE 1570s [00:52:50.830] - resignal: FALSE 1570s [00:52:50.830] - force: TRUE 1570s [00:52:50.831] - relayed: [n=1] TRUE 1570s [00:52:50.831] - queued futures: [n=1] TRUE 1570s - flush all 1570s [00:52:50.831] - relayed: [n=1] TRUE 1570s [00:52:50.831] - queued futures: [n=1] TRUE 1570s [00:52:50.832] signalConditionsASAP(NULL, pos=0) ... done 1570s List of 2 1570s $ y0: chr [1:3] "a" "b" "c" 1570s $ y1: chr [1:3] "a" "b" "c" 1570s [00:52:50.832] resolve() on list ... DONE 1570s [00:52:50.832] - Number of value chunks collected: 1 1570s [00:52:50.832] Resolving 1 futures (chunks) ... DONE 1570s [00:52:50.832] Reducing values from 1 chunks ... 1570s [00:52:50.833] - Number of values collected after concatenation: 3 1570s [00:52:50.833] - Number of values expected: 3 1570s [00:52:50.833] Reducing values from 1 chunks ... DONE 1570s [00:52:50.833] future_lapply() ... DONE 1570s [00:52:50.835] future_lapply() ... 1570s [00:52:50.836] Number of chunks: 1 1570s [00:52:50.836] getGlobalsAndPackagesXApply() ... 1570s [00:52:50.836] - future.globals: TRUE 1570s [00:52:50.836] getGlobalsAndPackages() ... 1570s [00:52:50.836] Searching for globals... 1570s [00:52:50.838] - globals found: [1] ‘FUN’ 1570s [00:52:50.838] Searching for globals ... DONE 1570s [00:52:50.838] Resolving globals: FALSE 1570s [00:52:50.839] The total size of the 1 globals is 848 bytes (848 bytes) 1570s [00:52:50.839] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1570s [00:52:50.839] - globals: [1] ‘FUN’ 1570s [00:52:50.840] 1570s [00:52:50.840] getGlobalsAndPackages() ... DONE 1570s [00:52:50.840] - globals found/used: [n=1] ‘FUN’ 1570s [00:52:50.840] - needed namespaces: [n=0] 1570s [00:52:50.840] Finding globals ... DONE 1570s [00:52:50.840] - use_args: TRUE 1570s [00:52:50.841] - Getting '...' globals ... 1570s [00:52:50.841] resolve() on list ... 1570s [00:52:50.841] recursive: 0 1570s [00:52:50.841] length: 1 1570s [00:52:50.841] elements: ‘...’ 1570s [00:52:50.842] length: 0 (resolved future 1) 1570s [00:52:50.842] resolve() on list ... DONE 1570s [00:52:50.842] - '...' content: [n=0] 1570s [00:52:50.842] List of 1 1570s [00:52:50.842] $ ...: list() 1570s [00:52:50.842] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1570s [00:52:50.842] - attr(*, "where")=List of 1 1570s [00:52:50.842] ..$ ...: 1570s [00:52:50.842] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1570s [00:52:50.842] - attr(*, "resolved")= logi TRUE 1570s [00:52:50.842] - attr(*, "total_size")= num NA 1570s [00:52:50.846] - Getting '...' globals ... DONE 1570s [00:52:50.846] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1570s [00:52:50.846] List of 2 1570s [00:52:50.846] $ ...future.FUN:function (x) 1570s [00:52:50.846] $ ... : list() 1570s [00:52:50.846] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1570s [00:52:50.846] - attr(*, "where")=List of 2 1570s [00:52:50.846] ..$ ...future.FUN: 1570s [00:52:50.846] ..$ ... : 1570s [00:52:50.846] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1570s [00:52:50.846] - attr(*, "resolved")= logi FALSE 1570s [00:52:50.846] - attr(*, "total_size")= num 848 1570s [00:52:50.852] Packages to be attached in all futures: [n=0] 1570s [00:52:50.852] getGlobalsAndPackagesXApply() ... DONE 1570s [00:52:50.852] Number of futures (= number of chunks): 1 1570s [00:52:50.852] Launching 1 futures (chunks) ... 1570s [00:52:50.852] Chunk #1 of 1 ... 1570s [00:52:50.853] - Finding globals in 'X' for chunk #1 ... 1570s [00:52:50.853] getGlobalsAndPackages() ... 1570s [00:52:50.853] Searching for globals... 1570s [00:52:50.853] 1570s [00:52:50.853] Searching for globals ... DONE 1570s [00:52:50.854] - globals: [0] 1570s [00:52:50.854] getGlobalsAndPackages() ... DONE 1570s [00:52:50.854] + additional globals found: [n=0] 1570s [00:52:50.854] + additional namespaces needed: [n=0] 1570s [00:52:50.855] - Finding globals in 'X' for chunk #1 ... DONE 1570s [00:52:50.855] - seeds: 1570s [00:52:50.855] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1570s [00:52:50.855] getGlobalsAndPackages() ... 1570s [00:52:50.855] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1570s [00:52:50.855] Resolving globals: FALSE 1570s [00:52:50.856] Tweak future expression to call with '...' arguments ... 1570s [00:52:50.856] { 1570s [00:52:50.856] do.call(function(...) { 1570s [00:52:50.856] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1570s [00:52:50.856] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1570s [00:52:50.856] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1570s [00:52:50.856] on.exit(options(oopts), add = TRUE) 1570s [00:52:50.856] } 1570s [00:52:50.856] { 1570s [00:52:50.856] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1570s [00:52:50.856] ...future.X_jj <- ...future.elements_ii[[jj]] 1570s [00:52:50.856] ...future.FUN(...future.X_jj, ...) 1570s [00:52:50.856] }) 1570s [00:52:50.856] } 1570s [00:52:50.856] }, args = future.call.arguments) 1570s [00:52:50.856] } 1570s [00:52:50.856] Tweak future expression to call with '...' arguments ... DONE 1570s [00:52:50.857] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1570s [00:52:50.857] 1570s [00:52:50.857] getGlobalsAndPackages() ... DONE 1570s [00:52:50.857] run() for ‘Future’ ... 1570s [00:52:50.858] - state: ‘created’ 1570s [00:52:50.858] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1570s [00:52:50.858] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1570s [00:52:50.858] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1570s [00:52:50.858] - Field: ‘label’ 1570s [00:52:50.859] - Field: ‘local’ 1570s [00:52:50.859] - Field: ‘owner’ 1570s [00:52:50.859] - Field: ‘envir’ 1570s [00:52:50.859] - Field: ‘packages’ 1570s [00:52:50.859] - Field: ‘gc’ 1570s [00:52:50.859] - Field: ‘conditions’ 1570s [00:52:50.859] - Field: ‘expr’ 1570s [00:52:50.860] - Field: ‘uuid’ 1570s [00:52:50.860] - Field: ‘seed’ 1570s [00:52:50.860] - Field: ‘version’ 1570s [00:52:50.860] - Field: ‘result’ 1570s [00:52:50.860] - Field: ‘asynchronous’ 1570s [00:52:50.860] - Field: ‘calls’ 1570s [00:52:50.861] - Field: ‘globals’ 1570s [00:52:50.861] - Field: ‘stdout’ 1570s [00:52:50.861] - Field: ‘earlySignal’ 1570s [00:52:50.861] - Field: ‘lazy’ 1570s [00:52:50.861] - Field: ‘state’ 1570s [00:52:50.861] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1570s [00:52:50.861] - Launch lazy future ... 1570s [00:52:50.862] Packages needed by the future expression (n = 0): 1570s [00:52:50.862] Packages needed by future strategies (n = 0): 1570s [00:52:50.862] { 1570s [00:52:50.862] { 1570s [00:52:50.862] { 1570s [00:52:50.862] ...future.startTime <- base::Sys.time() 1570s [00:52:50.862] { 1570s [00:52:50.862] { 1570s [00:52:50.862] { 1570s [00:52:50.862] base::local({ 1570s [00:52:50.862] has_future <- base::requireNamespace("future", 1570s [00:52:50.862] quietly = TRUE) 1570s [00:52:50.862] if (has_future) { 1570s [00:52:50.862] ns <- base::getNamespace("future") 1570s [00:52:50.862] version <- ns[[".package"]][["version"]] 1570s [00:52:50.862] if (is.null(version)) 1570s [00:52:50.862] version <- utils::packageVersion("future") 1570s [00:52:50.862] } 1570s [00:52:50.862] else { 1570s [00:52:50.862] version <- NULL 1570s [00:52:50.862] } 1570s [00:52:50.862] if (!has_future || version < "1.8.0") { 1570s [00:52:50.862] info <- base::c(r_version = base::gsub("R version ", 1570s [00:52:50.862] "", base::R.version$version.string), 1570s [00:52:50.862] platform = base::sprintf("%s (%s-bit)", 1570s [00:52:50.862] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1570s [00:52:50.862] os = base::paste(base::Sys.info()[base::c("sysname", 1570s [00:52:50.862] "release", "version")], collapse = " "), 1570s [00:52:50.862] hostname = base::Sys.info()[["nodename"]]) 1570s [00:52:50.862] info <- base::sprintf("%s: %s", base::names(info), 1570s [00:52:50.862] info) 1570s [00:52:50.862] info <- base::paste(info, collapse = "; ") 1570s [00:52:50.862] if (!has_future) { 1570s [00:52:50.862] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1570s [00:52:50.862] info) 1570s [00:52:50.862] } 1570s [00:52:50.862] else { 1570s [00:52:50.862] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1570s [00:52:50.862] info, version) 1570s [00:52:50.862] } 1570s [00:52:50.862] base::stop(msg) 1570s [00:52:50.862] } 1570s [00:52:50.862] }) 1570s [00:52:50.862] } 1570s [00:52:50.862] options(future.plan = NULL) 1570s [00:52:50.862] Sys.unsetenv("R_FUTURE_PLAN") 1570s [00:52:50.862] future::plan("default", .cleanup = FALSE, .init = FALSE) 1570s [00:52:50.862] } 1570s [00:52:50.862] ...future.workdir <- getwd() 1570s [00:52:50.862] } 1570s [00:52:50.862] ...future.oldOptions <- base::as.list(base::.Options) 1570s [00:52:50.862] ...future.oldEnvVars <- base::Sys.getenv() 1570s [00:52:50.862] } 1570s [00:52:50.862] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1570s [00:52:50.862] future.globals.maxSize = NULL, future.globals.method = NULL, 1570s [00:52:50.862] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1570s [00:52:50.862] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1570s [00:52:50.862] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1570s [00:52:50.862] future.stdout.windows.reencode = NULL, width = 80L) 1570s [00:52:50.862] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1570s [00:52:50.862] base::names(...future.oldOptions)) 1570s [00:52:50.862] } 1570s [00:52:50.862] if (FALSE) { 1570s [00:52:50.862] } 1570s [00:52:50.862] else { 1570s [00:52:50.862] if (TRUE) { 1570s [00:52:50.862] ...future.stdout <- base::rawConnection(base::raw(0L), 1570s [00:52:50.862] open = "w") 1570s [00:52:50.862] } 1570s [00:52:50.862] else { 1570s [00:52:50.862] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1570s [00:52:50.862] windows = "NUL", "/dev/null"), open = "w") 1570s [00:52:50.862] } 1570s [00:52:50.862] base::sink(...future.stdout, type = "output", split = FALSE) 1570s [00:52:50.862] base::on.exit(if (!base::is.null(...future.stdout)) { 1570s [00:52:50.862] base::sink(type = "output", split = FALSE) 1570s [00:52:50.862] base::close(...future.stdout) 1570s [00:52:50.862] }, add = TRUE) 1570s [00:52:50.862] } 1570s [00:52:50.862] ...future.frame <- base::sys.nframe() 1570s [00:52:50.862] ...future.conditions <- base::list() 1570s [00:52:50.862] ...future.rng <- base::globalenv()$.Random.seed 1570s [00:52:50.862] if (FALSE) { 1570s [00:52:50.862] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1570s [00:52:50.862] "...future.value", "...future.globalenv.names", ".Random.seed") 1570s [00:52:50.862] } 1570s [00:52:50.862] ...future.result <- base::tryCatch({ 1570s [00:52:50.862] base::withCallingHandlers({ 1570s [00:52:50.862] ...future.value <- base::withVisible(base::local({ 1570s [00:52:50.862] do.call(function(...) { 1570s [00:52:50.862] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1570s [00:52:50.862] if (!identical(...future.globals.maxSize.org, 1570s [00:52:50.862] ...future.globals.maxSize)) { 1570s [00:52:50.862] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1570s [00:52:50.862] on.exit(options(oopts), add = TRUE) 1570s [00:52:50.862] } 1570s [00:52:50.862] { 1570s [00:52:50.862] lapply(seq_along(...future.elements_ii), 1570s [00:52:50.862] FUN = function(jj) { 1570s [00:52:50.862] ...future.X_jj <- ...future.elements_ii[[jj]] 1570s [00:52:50.862] ...future.FUN(...future.X_jj, ...) 1570s [00:52:50.862] }) 1570s [00:52:50.862] } 1570s [00:52:50.862] }, args = future.call.arguments) 1570s [00:52:50.862] })) 1570s [00:52:50.862] future::FutureResult(value = ...future.value$value, 1570s [00:52:50.862] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1570s [00:52:50.862] ...future.rng), globalenv = if (FALSE) 1570s [00:52:50.862] list(added = base::setdiff(base::names(base::.GlobalEnv), 1570s [00:52:50.862] ...future.globalenv.names)) 1570s [00:52:50.862] else NULL, started = ...future.startTime, version = "1.8") 1570s [00:52:50.862] }, condition = base::local({ 1570s [00:52:50.862] c <- base::c 1570s [00:52:50.862] inherits <- base::inherits 1570s [00:52:50.862] invokeRestart <- base::invokeRestart 1570s [00:52:50.862] length <- base::length 1570s [00:52:50.862] list <- base::list 1570s [00:52:50.862] seq.int <- base::seq.int 1570s [00:52:50.862] signalCondition <- base::signalCondition 1570s [00:52:50.862] sys.calls <- base::sys.calls 1570s [00:52:50.862] `[[` <- base::`[[` 1570s [00:52:50.862] `+` <- base::`+` 1570s [00:52:50.862] `<<-` <- base::`<<-` 1570s [00:52:50.862] sysCalls <- function(calls = sys.calls(), from = 1L) { 1570s [00:52:50.862] calls[seq.int(from = from + 12L, to = length(calls) - 1570s [00:52:50.862] 3L)] 1570s [00:52:50.862] } 1570s [00:52:50.862] function(cond) { 1570s [00:52:50.862] is_error <- inherits(cond, "error") 1570s [00:52:50.862] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1570s [00:52:50.862] NULL) 1570s [00:52:50.862] if (is_error) { 1570s [00:52:50.862] sessionInformation <- function() { 1570s [00:52:50.862] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1570s [00:52:50.862] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1570s [00:52:50.862] search = base::search(), system = base::Sys.info()) 1570s [00:52:50.862] } 1570s [00:52:50.862] ...future.conditions[[length(...future.conditions) + 1570s [00:52:50.862] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1570s [00:52:50.862] cond$call), session = sessionInformation(), 1570s [00:52:50.862] timestamp = base::Sys.time(), signaled = 0L) 1570s [00:52:50.862] signalCondition(cond) 1570s [00:52:50.862] } 1570s [00:52:50.862] else if (!ignore && TRUE && inherits(cond, c("condition", 1570s [00:52:50.862] "immediateCondition"))) { 1570s [00:52:50.862] signal <- TRUE && inherits(cond, "immediateCondition") 1570s [00:52:50.862] ...future.conditions[[length(...future.conditions) + 1570s [00:52:50.862] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1570s [00:52:50.862] if (TRUE && !signal) { 1570s [00:52:50.862] muffleCondition <- function (cond, pattern = "^muffle") 1570s [00:52:50.862] { 1570s [00:52:50.862] inherits <- base::inherits 1570s [00:52:50.862] invokeRestart <- base::invokeRestart 1570s [00:52:50.862] is.null <- base::is.null 1570s [00:52:50.862] muffled <- FALSE 1570s [00:52:50.862] if (inherits(cond, "message")) { 1570s [00:52:50.862] muffled <- grepl(pattern, "muffleMessage") 1570s [00:52:50.862] if (muffled) 1570s [00:52:50.862] invokeRestart("muffleMessage") 1570s [00:52:50.862] } 1570s [00:52:50.862] else if (inherits(cond, "warning")) { 1570s [00:52:50.862] muffled <- grepl(pattern, "muffleWarning") 1570s [00:52:50.862] if (muffled) 1570s [00:52:50.862] invokeRestart("muffleWarning") 1570s [00:52:50.862] } 1570s [00:52:50.862] else if (inherits(cond, "condition")) { 1570s [00:52:50.862] if (!is.null(pattern)) { 1570s [00:52:50.862] computeRestarts <- base::computeRestarts 1570s [00:52:50.862] grepl <- base::grepl 1570s [00:52:50.862] restarts <- computeRestarts(cond) 1570s [00:52:50.862] for (restart in restarts) { 1570s [00:52:50.862] name <- restart$name 1570s [00:52:50.862] if (is.null(name)) 1570s [00:52:50.862] next 1570s [00:52:50.862] if (!grepl(pattern, name)) 1570s [00:52:50.862] next 1570s [00:52:50.862] invokeRestart(restart) 1570s [00:52:50.862] muffled <- TRUE 1570s [00:52:50.862] break 1570s [00:52:50.862] } 1570s [00:52:50.862] } 1570s [00:52:50.862] } 1570s [00:52:50.862] invisible(muffled) 1570s [00:52:50.862] } 1570s [00:52:50.862] muffleCondition(cond, pattern = "^muffle") 1570s [00:52:50.862] } 1570s [00:52:50.862] } 1570s [00:52:50.862] else { 1570s [00:52:50.862] if (TRUE) { 1570s [00:52:50.862] muffleCondition <- function (cond, pattern = "^muffle") 1570s [00:52:50.862] { 1570s [00:52:50.862] inherits <- base::inherits 1570s [00:52:50.862] invokeRestart <- base::invokeRestart 1570s [00:52:50.862] is.null <- base::is.null 1570s [00:52:50.862] muffled <- FALSE 1570s [00:52:50.862] if (inherits(cond, "message")) { 1570s [00:52:50.862] muffled <- grepl(pattern, "muffleMessage") 1570s [00:52:50.862] if (muffled) 1570s [00:52:50.862] invokeRestart("muffleMessage") 1570s [00:52:50.862] } 1570s [00:52:50.862] else if (inherits(cond, "warning")) { 1570s [00:52:50.862] muffled <- grepl(pattern, "muffleWarning") 1570s [00:52:50.862] if (muffled) 1570s [00:52:50.862] invokeRestart("muffleWarning") 1570s [00:52:50.862] } 1570s [00:52:50.862] else if (inherits(cond, "condition")) { 1570s [00:52:50.862] if (!is.null(pattern)) { 1570s [00:52:50.862] computeRestarts <- base::computeRestarts 1570s [00:52:50.862] grepl <- base::grepl 1570s [00:52:50.862] restarts <- computeRestarts(cond) 1570s [00:52:50.862] for (restart in restarts) { 1570s [00:52:50.862] name <- restart$name 1570s [00:52:50.862] if (is.null(name)) 1570s [00:52:50.862] next 1570s [00:52:50.862] if (!grepl(pattern, name)) 1570s [00:52:50.862] next 1570s [00:52:50.862] invokeRestart(restart) 1570s [00:52:50.862] muffled <- TRUE 1570s [00:52:50.862] break 1570s [00:52:50.862] } 1570s [00:52:50.862] } 1570s [00:52:50.862] } 1570s [00:52:50.862] invisible(muffled) 1570s [00:52:50.862] } 1570s [00:52:50.862] muffleCondition(cond, pattern = "^muffle") 1570s [00:52:50.862] } 1570s [00:52:50.862] } 1570s [00:52:50.862] } 1570s [00:52:50.862] })) 1570s [00:52:50.862] }, error = function(ex) { 1570s [00:52:50.862] base::structure(base::list(value = NULL, visible = NULL, 1570s [00:52:50.862] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1570s [00:52:50.862] ...future.rng), started = ...future.startTime, 1570s [00:52:50.862] finished = Sys.time(), session_uuid = NA_character_, 1570s [00:52:50.862] version = "1.8"), class = "FutureResult") 1570s [00:52:50.862] }, finally = { 1570s [00:52:50.862] if (!identical(...future.workdir, getwd())) 1570s [00:52:50.862] setwd(...future.workdir) 1570s [00:52:50.862] { 1570s [00:52:50.862] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1570s [00:52:50.862] ...future.oldOptions$nwarnings <- NULL 1570s [00:52:50.862] } 1570s [00:52:50.862] base::options(...future.oldOptions) 1570s [00:52:50.862] if (.Platform$OS.type == "windows") { 1570s [00:52:50.862] old_names <- names(...future.oldEnvVars) 1570s [00:52:50.862] envs <- base::Sys.getenv() 1570s [00:52:50.862] names <- names(envs) 1570s [00:52:50.862] common <- intersect(names, old_names) 1570s [00:52:50.862] added <- setdiff(names, old_names) 1570s [00:52:50.862] removed <- setdiff(old_names, names) 1570s [00:52:50.862] changed <- common[...future.oldEnvVars[common] != 1570s [00:52:50.862] envs[common]] 1570s [00:52:50.862] NAMES <- toupper(changed) 1570s [00:52:50.862] args <- list() 1570s [00:52:50.862] for (kk in seq_along(NAMES)) { 1570s [00:52:50.862] name <- changed[[kk]] 1570s [00:52:50.862] NAME <- NAMES[[kk]] 1570s [00:52:50.862] if (name != NAME && is.element(NAME, old_names)) 1570s [00:52:50.862] next 1570s [00:52:50.862] args[[name]] <- ...future.oldEnvVars[[name]] 1570s [00:52:50.862] } 1570s [00:52:50.862] NAMES <- toupper(added) 1570s [00:52:50.862] for (kk in seq_along(NAMES)) { 1570s [00:52:50.862] name <- added[[kk]] 1570s [00:52:50.862] NAME <- NAMES[[kk]] 1570s [00:52:50.862] if (name != NAME && is.element(NAME, old_names)) 1570s [00:52:50.862] next 1570s [00:52:50.862] args[[name]] <- "" 1570s [00:52:50.862] } 1570s [00:52:50.862] NAMES <- toupper(removed) 1570s [00:52:50.862] for (kk in seq_along(NAMES)) { 1570s [00:52:50.862] name <- removed[[kk]] 1570s [00:52:50.862] NAME <- NAMES[[kk]] 1570s [00:52:50.862] if (name != NAME && is.element(NAME, old_names)) 1570s [00:52:50.862] next 1570s [00:52:50.862] args[[name]] <- ...future.oldEnvVars[[name]] 1570s [00:52:50.862] } 1570s [00:52:50.862] if (length(args) > 0) 1570s [00:52:50.862] base::do.call(base::Sys.setenv, args = args) 1570s [00:52:50.862] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1570s [00:52:50.862] } 1570s [00:52:50.862] else { 1570s [00:52:50.862] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1570s [00:52:50.862] } 1570s [00:52:50.862] { 1570s [00:52:50.862] if (base::length(...future.futureOptionsAdded) > 1570s [00:52:50.862] 0L) { 1570s [00:52:50.862] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1570s [00:52:50.862] base::names(opts) <- ...future.futureOptionsAdded 1570s [00:52:50.862] base::options(opts) 1570s [00:52:50.862] } 1570s [00:52:50.862] { 1570s [00:52:50.862] { 1570s [00:52:50.862] NULL 1570s [00:52:50.862] RNGkind("Mersenne-Twister") 1570s [00:52:50.862] base::rm(list = ".Random.seed", envir = base::globalenv(), 1570s [00:52:50.862] inherits = FALSE) 1570s [00:52:50.862] } 1570s [00:52:50.862] options(future.plan = NULL) 1570s [00:52:50.862] if (is.na(NA_character_)) 1570s [00:52:50.862] Sys.unsetenv("R_FUTURE_PLAN") 1570s [00:52:50.862] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1570s [00:52:50.862] future::plan(list(function (..., envir = parent.frame()) 1570s [00:52:50.862] { 1570s [00:52:50.862] future <- SequentialFuture(..., envir = envir) 1570s [00:52:50.862] if (!future$lazy) 1570s [00:52:50.862] future <- run(future) 1570s [00:52:50.862] invisible(future) 1570s [00:52:50.862] }), .cleanup = FALSE, .init = FALSE) 1570s [00:52:50.862] } 1570s [00:52:50.862] } 1570s [00:52:50.862] } 1570s [00:52:50.862] }) 1570s [00:52:50.862] if (TRUE) { 1570s [00:52:50.862] base::sink(type = "output", split = FALSE) 1570s [00:52:50.862] if (TRUE) { 1570s [00:52:50.862] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1570s [00:52:50.862] } 1570s [00:52:50.862] else { 1570s [00:52:50.862] ...future.result["stdout"] <- base::list(NULL) 1570s [00:52:50.862] } 1570s [00:52:50.862] base::close(...future.stdout) 1570s [00:52:50.862] ...future.stdout <- NULL 1570s [00:52:50.862] } 1570s [00:52:50.862] ...future.result$conditions <- ...future.conditions 1570s [00:52:50.862] ...future.result$finished <- base::Sys.time() 1570s [00:52:50.862] ...future.result 1570s [00:52:50.862] } 1570s [00:52:50.865] assign_globals() ... 1570s [00:52:50.865] List of 5 1570s [00:52:50.865] $ ...future.FUN :function (x) 1570s [00:52:50.865] $ future.call.arguments : list() 1570s [00:52:50.865] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1570s [00:52:50.865] $ ...future.elements_ii :List of 3 1570s [00:52:50.865] ..$ : chr "a" 1570s [00:52:50.865] ..$ : chr "b" 1570s [00:52:50.865] ..$ : chr "c" 1570s [00:52:50.865] $ ...future.seeds_ii : NULL 1570s [00:52:50.865] $ ...future.globals.maxSize: NULL 1570s [00:52:50.865] - attr(*, "where")=List of 5 1570s [00:52:50.865] ..$ ...future.FUN : 1570s [00:52:50.865] ..$ future.call.arguments : 1570s [00:52:50.865] ..$ ...future.elements_ii : 1570s [00:52:50.865] ..$ ...future.seeds_ii : 1570s [00:52:50.865] ..$ ...future.globals.maxSize: 1570s [00:52:50.865] - attr(*, "resolved")= logi FALSE 1570s [00:52:50.865] - attr(*, "total_size")= num 848 1570s [00:52:50.865] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1570s [00:52:50.865] - attr(*, "already-done")= logi TRUE 1570s [00:52:50.872] - copied ‘...future.FUN’ to environment 1570s [00:52:50.872] - copied ‘future.call.arguments’ to environment 1570s [00:52:50.873] - copied ‘...future.elements_ii’ to environment 1570s [00:52:50.873] - copied ‘...future.seeds_ii’ to environment 1570s [00:52:50.873] - copied ‘...future.globals.maxSize’ to environment 1570s [00:52:50.874] assign_globals() ... done 1570s [00:52:50.874] plan(): Setting new future strategy stack: 1570s [00:52:50.874] List of future strategies: 1570s [00:52:50.874] 1. sequential: 1570s [00:52:50.874] - args: function (..., envir = parent.frame()) 1570s [00:52:50.874] - tweaked: FALSE 1570s [00:52:50.874] - call: NULL 1570s [00:52:50.875] plan(): nbrOfWorkers() = 1 1570s [00:52:50.876] plan(): Setting new future strategy stack: 1570s [00:52:50.876] List of future strategies: 1570s [00:52:50.876] 1. sequential: 1570s [00:52:50.876] - args: function (..., envir = parent.frame()) 1570s [00:52:50.876] - tweaked: FALSE 1570s [00:52:50.876] - call: plan(strategy) 1570s [00:52:50.877] plan(): nbrOfWorkers() = 1 1570s [00:52:50.877] SequentialFuture started (and completed) 1570s [00:52:50.877] - Launch lazy future ... done 1570s [00:52:50.878] run() for ‘SequentialFuture’ ... done 1570s [00:52:50.878] Created future: 1570s [00:52:50.878] SequentialFuture: 1570s [00:52:50.878] Label: ‘future_sapply-1’ 1570s [00:52:50.878] Expression: 1570s [00:52:50.878] { 1570s [00:52:50.878] do.call(function(...) { 1570s [00:52:50.878] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1570s [00:52:50.878] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1570s [00:52:50.878] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1570s [00:52:50.878] on.exit(options(oopts), add = TRUE) 1570s [00:52:50.878] } 1570s [00:52:50.878] { 1570s [00:52:50.878] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1570s [00:52:50.878] ...future.X_jj <- ...future.elements_ii[[jj]] 1570s [00:52:50.878] ...future.FUN(...future.X_jj, ...) 1570s [00:52:50.878] }) 1570s [00:52:50.878] } 1570s [00:52:50.878] }, args = future.call.arguments) 1570s [00:52:50.878] } 1570s [00:52:50.878] Lazy evaluation: FALSE 1570s [00:52:50.878] Asynchronous evaluation: FALSE 1570s [00:52:50.878] Local evaluation: TRUE 1570s [00:52:50.878] Environment: R_GlobalEnv 1570s [00:52:50.878] Capture standard output: TRUE 1570s [00:52:50.878] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1570s [00:52:50.878] Globals: 5 objects totaling 1.16 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1570s [00:52:50.878] Packages: 1570s [00:52:50.878] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1570s [00:52:50.878] Resolved: TRUE 1570s [00:52:50.878] Value: 336 bytes of class ‘list’ 1570s [00:52:50.878] Early signaling: FALSE 1570s [00:52:50.878] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1570s [00:52:50.878] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1570s [00:52:50.880] Chunk #1 of 1 ... DONE 1570s [00:52:50.880] Launching 1 futures (chunks) ... DONE 1570s [00:52:50.880] Resolving 1 futures (chunks) ... 1570s [00:52:50.880] resolve() on list ... 1570s [00:52:50.880] recursive: 0 1570s [00:52:50.881] length: 1 1570s [00:52:50.881] 1570s [00:52:50.881] resolved() for ‘SequentialFuture’ ... 1570s [00:52:50.881] - state: ‘finished’ 1570s [00:52:50.881] - run: TRUE 1570s [00:52:50.881] - result: ‘FutureResult’ 1570s [00:52:50.881] resolved() for ‘SequentialFuture’ ... done 1570s [00:52:50.882] Future #1 1570s [00:52:50.882] signalConditionsASAP(SequentialFuture, pos=1) ... 1570s [00:52:50.882] - nx: 1 1570s [00:52:50.882] - relay: TRUE 1570s [00:52:50.882] - stdout: TRUE 1570s [00:52:50.882] - signal: TRUE 1570s [00:52:50.882] - resignal: FALSE 1570s [00:52:50.883] - force: TRUE 1570s [00:52:50.883] - relayed: [n=1] FALSE 1570s [00:52:50.883] - queued futures: [n=1] FALSE 1570s [00:52:50.883] - until=1 1570s [00:52:50.883] - relaying element #1 1570s [00:52:50.884] - relayed: [n=1] TRUE 1570s [00:52:50.884] - queued futures: [n=1] TRUE 1570s [00:52:50.884] signalConditionsASAP(SequentialFuture, pos=1) ... done 1570s [00:52:50.884] length: 0 (resolved future 1) 1570s [00:52:50.884] Relaying remaining futures 1570s [00:52:50.886] signalConditionsASAP(NULL, pos=0) ... 1570s [00:52:50.886] - nx: 1 1570s [00:52:50.886] - relay: TRUE 1570s [00:52:50.886] - stdout: TRUE 1570s [00:52:50.887] - signal: TRUE 1570s [00:52:50.887] - resignal: FALSE 1570s [00:52:50.887] - force: TRUE 1570s [00:52:50.887] - relayed: [n=1] TRUE 1570s [00:52:50.887] - queued futures: [n=1] TRUE 1570s - flush all 1570s [00:52:50.887] - relayed: [n=1] TRUE 1570s [00:52:50.888] - queued futures: [n=1] TRUE 1570s [00:52:50.888] signalConditionsASAP(NULL, pos=0) ... done 1570s [00:52:50.888] resolve() on list ... DONE 1570s [00:52:50.888] - Number of value chunks collected: 1 1570s [00:52:50.888] Resolving 1 futures (chunks) ... DONE 1570s [00:52:50.888] Reducing values from 1 chunks ... 1570s [00:52:50.888] - Number of values collected after concatenation: 3 1570s [00:52:50.889] - Number of values expected: 3 1570s [00:52:50.889] Reducing values from 1 chunks ... DONE 1570s [00:52:50.889] future_lapply() ... DONE 1570s List of 2 1570s $ y0:List of 3 1570s ..$ a: chr "a" 1570s ..$ b: chr "b" 1570s ..$ c: chr "c" 1570s $ y1:List of 3 1570s ..$ a: chr "a" 1570s ..$ b: chr "b" 1570s ..$ c: chr "c" 1570s List of 2 1570s $ y0:List of [00:52:50.896] future_lapply() ... 1570s [00:52:50.897] Number of chunks: 1 1570s [00:52:50.897] getGlobalsAndPackagesXApply() ... 1570s [00:52:50.897] - future.globals: TRUE 1570s [00:52:50.897] getGlobalsAndPackages() ... 1570s 3 1570s ..$ a: chr "a" 1570s ..$ b: chr "b" 1570s ..$ c: chr "c" 1570s $ y2:List of 3 1570s ..$ : chr "a" 1570s ..$ : chr "b" 1570s ..$ : chr "c" 1570s [00:52:50.897] Searching for globals... 1570s [00:52:50.899] - globals found: [2] ‘FUN’, ‘UseMethod’ 1570s [00:52:50.899] Searching for globals ... DONE 1570s [00:52:50.899] Resolving globals: FALSE 1570s [00:52:50.900] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1570s [00:52:50.900] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1570s [00:52:50.900] - globals: [1] ‘FUN’ 1570s [00:52:50.900] 1570s [00:52:50.901] getGlobalsAndPackages() ... DONE 1570s [00:52:50.901] - globals found/used: [n=1] ‘FUN’ 1570s [00:52:50.901] - needed namespaces: [n=0] 1570s [00:52:50.901] Finding globals ... DONE 1570s [00:52:50.901] - use_args: TRUE 1570s [00:52:50.901] - Getting '...' globals ... 1570s [00:52:50.902] resolve() on list ... 1570s [00:52:50.902] recursive: 0 1570s [00:52:50.902] length: 1 1570s [00:52:50.902] elements: ‘...’ 1570s [00:52:50.902] length: 0 (resolved future 1) 1570s [00:52:50.902] resolve() on list ... DONE 1570s [00:52:50.902] - '...' content: [n=0] 1570s [00:52:50.903] List of 1 1570s [00:52:50.903] $ ...: list() 1570s [00:52:50.903] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1570s [00:52:50.903] - attr(*, "where")=List of 1 1570s [00:52:50.903] ..$ ...: 1570s [00:52:50.903] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1570s [00:52:50.903] - attr(*, "resolved")= logi TRUE 1570s [00:52:50.903] - attr(*, "total_size")= num NA 1570s [00:52:50.906] - Getting '...' globals ... DONE 1570s [00:52:50.906] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1570s [00:52:50.906] List of 2 1570s [00:52:50.906] $ ...future.FUN:function (x, ...) 1570s [00:52:50.906] $ ... : list() 1570s [00:52:50.906] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1570s [00:52:50.906] - attr(*, "where")=List of 2 1570s [00:52:50.906] ..$ ...future.FUN: 1570s [00:52:50.906] ..$ ... : 1570s [00:52:50.906] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1570s [00:52:50.906] - attr(*, "resolved")= logi FALSE 1570s [00:52:50.906] - attr(*, "total_size")= num 1248 1570s [00:52:50.909] Packages to be attached in all futures: [n=0] 1570s [00:52:50.909] getGlobalsAndPackagesXApply() ... DONE 1570s [00:52:50.910] Number of futures (= number of chunks): 1 1570s [00:52:50.910] Launching 1 futures (chunks) ... 1570s [00:52:50.910] Chunk #1 of 1 ... 1570s [00:52:50.910] - Finding globals in 'X' for chunk #1 ... 1570s [00:52:50.910] getGlobalsAndPackages() ... 1570s [00:52:50.910] Searching for globals... 1570s [00:52:50.911] 1570s [00:52:50.911] Searching for globals ... DONE 1570s [00:52:50.911] - globals: [0] 1570s [00:52:50.911] getGlobalsAndPackages() ... DONE 1570s [00:52:50.911] + additional globals found: [n=0] 1570s [00:52:50.911] + additional namespaces needed: [n=0] 1570s [00:52:50.911] - Finding globals in 'X' for chunk #1 ... DONE 1570s [00:52:50.912] - seeds: 1570s [00:52:50.912] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1570s [00:52:50.912] getGlobalsAndPackages() ... 1570s [00:52:50.912] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1570s [00:52:50.912] Resolving globals: FALSE 1570s [00:52:50.912] Tweak future expression to call with '...' arguments ... 1570s [00:52:50.912] { 1570s [00:52:50.912] do.call(function(...) { 1570s [00:52:50.912] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1570s [00:52:50.912] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1570s [00:52:50.912] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1570s [00:52:50.912] on.exit(options(oopts), add = TRUE) 1570s [00:52:50.912] } 1570s [00:52:50.912] { 1570s [00:52:50.912] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1570s [00:52:50.912] ...future.X_jj <- ...future.elements_ii[[jj]] 1570s [00:52:50.912] ...future.FUN(...future.X_jj, ...) 1570s [00:52:50.912] }) 1570s [00:52:50.912] } 1570s [00:52:50.912] }, args = future.call.arguments) 1570s [00:52:50.912] } 1570s [00:52:50.913] Tweak future expression to call with '...' arguments ... DONE 1570s [00:52:50.913] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1570s [00:52:50.913] 1570s [00:52:50.913] getGlobalsAndPackages() ... DONE 1570s [00:52:50.914] run() for ‘Future’ ... 1570s [00:52:50.914] - state: ‘created’ 1570s [00:52:50.914] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1570s [00:52:50.914] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1570s [00:52:50.916] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1570s [00:52:50.916] - Field: ‘label’ 1570s [00:52:50.916] - Field: ‘local’ 1570s [00:52:50.916] - Field: ‘owner’ 1570s [00:52:50.916] - Field: ‘envir’ 1570s [00:52:50.917] - Field: ‘packages’ 1570s [00:52:50.917] - Field: ‘gc’ 1570s [00:52:50.917] - Field: ‘conditions’ 1570s [00:52:50.917] - Field: ‘expr’ 1570s [00:52:50.917] - Field: ‘uuid’ 1570s [00:52:50.917] - Field: ‘seed’ 1570s [00:52:50.917] - Field: ‘version’ 1570s [00:52:50.917] - Field: ‘result’ 1570s [00:52:50.917] - Field: ‘asynchronous’ 1570s [00:52:50.918] - Field: ‘calls’ 1570s [00:52:50.918] - Field: ‘globals’ 1570s [00:52:50.918] - Field: ‘stdout’ 1570s [00:52:50.918] - Field: ‘earlySignal’ 1570s [00:52:50.918] - Field: ‘lazy’ 1570s [00:52:50.918] - Field: ‘state’ 1570s [00:52:50.918] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1570s [00:52:50.918] - Launch lazy future ... 1570s [00:52:50.919] Packages needed by the future expression (n = 0): 1570s [00:52:50.919] Packages needed by future strategies (n = 0): 1570s [00:52:50.919] { 1570s [00:52:50.919] { 1570s [00:52:50.919] { 1570s [00:52:50.919] ...future.startTime <- base::Sys.time() 1570s [00:52:50.919] { 1570s [00:52:50.919] { 1570s [00:52:50.919] { 1570s [00:52:50.919] base::local({ 1570s [00:52:50.919] has_future <- base::requireNamespace("future", 1570s [00:52:50.919] quietly = TRUE) 1570s [00:52:50.919] if (has_future) { 1570s [00:52:50.919] ns <- base::getNamespace("future") 1570s [00:52:50.919] version <- ns[[".package"]][["version"]] 1570s [00:52:50.919] if (is.null(version)) 1570s [00:52:50.919] version <- utils::packageVersion("future") 1570s [00:52:50.919] } 1570s [00:52:50.919] else { 1570s [00:52:50.919] version <- NULL 1570s [00:52:50.919] } 1570s [00:52:50.919] if (!has_future || version < "1.8.0") { 1570s [00:52:50.919] info <- base::c(r_version = base::gsub("R version ", 1570s [00:52:50.919] "", base::R.version$version.string), 1570s [00:52:50.919] platform = base::sprintf("%s (%s-bit)", 1570s [00:52:50.919] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1570s [00:52:50.919] os = base::paste(base::Sys.info()[base::c("sysname", 1570s [00:52:50.919] "release", "version")], collapse = " "), 1570s [00:52:50.919] hostname = base::Sys.info()[["nodename"]]) 1570s [00:52:50.919] info <- base::sprintf("%s: %s", base::names(info), 1570s [00:52:50.919] info) 1570s [00:52:50.919] info <- base::paste(info, collapse = "; ") 1570s [00:52:50.919] if (!has_future) { 1570s [00:52:50.919] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1570s [00:52:50.919] info) 1570s [00:52:50.919] } 1570s [00:52:50.919] else { 1570s [00:52:50.919] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1570s [00:52:50.919] info, version) 1570s [00:52:50.919] } 1570s [00:52:50.919] base::stop(msg) 1570s [00:52:50.919] } 1570s [00:52:50.919] }) 1570s [00:52:50.919] } 1570s [00:52:50.919] options(future.plan = NULL) 1570s [00:52:50.919] Sys.unsetenv("R_FUTURE_PLAN") 1570s [00:52:50.919] future::plan("default", .cleanup = FALSE, .init = FALSE) 1570s [00:52:50.919] } 1570s [00:52:50.919] ...future.workdir <- getwd() 1570s [00:52:50.919] } 1570s [00:52:50.919] ...future.oldOptions <- base::as.list(base::.Options) 1570s [00:52:50.919] ...future.oldEnvVars <- base::Sys.getenv() 1570s [00:52:50.919] } 1570s [00:52:50.919] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1570s [00:52:50.919] future.globals.maxSize = NULL, future.globals.method = NULL, 1570s [00:52:50.919] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1570s [00:52:50.919] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1570s [00:52:50.919] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1570s [00:52:50.919] future.stdout.windows.reencode = NULL, width = 80L) 1570s [00:52:50.919] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1570s [00:52:50.919] base::names(...future.oldOptions)) 1570s [00:52:50.919] } 1570s [00:52:50.919] if (FALSE) { 1570s [00:52:50.919] } 1570s [00:52:50.919] else { 1570s [00:52:50.919] if (TRUE) { 1570s [00:52:50.919] ...future.stdout <- base::rawConnection(base::raw(0L), 1570s [00:52:50.919] open = "w") 1570s [00:52:50.919] } 1570s [00:52:50.919] else { 1570s [00:52:50.919] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1570s [00:52:50.919] windows = "NUL", "/dev/null"), open = "w") 1570s [00:52:50.919] } 1570s [00:52:50.919] base::sink(...future.stdout, type = "output", split = FALSE) 1570s [00:52:50.919] base::on.exit(if (!base::is.null(...future.stdout)) { 1570s [00:52:50.919] base::sink(type = "output", split = FALSE) 1570s [00:52:50.919] base::close(...future.stdout) 1570s [00:52:50.919] }, add = TRUE) 1570s [00:52:50.919] } 1570s [00:52:50.919] ...future.frame <- base::sys.nframe() 1570s [00:52:50.919] ...future.conditions <- base::list() 1570s [00:52:50.919] ...future.rng <- base::globalenv()$.Random.seed 1570s [00:52:50.919] if (FALSE) { 1570s [00:52:50.919] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1570s [00:52:50.919] "...future.value", "...future.globalenv.names", ".Random.seed") 1570s [00:52:50.919] } 1570s [00:52:50.919] ...future.result <- base::tryCatch({ 1570s [00:52:50.919] base::withCallingHandlers({ 1570s [00:52:50.919] ...future.value <- base::withVisible(base::local({ 1570s [00:52:50.919] do.call(function(...) { 1570s [00:52:50.919] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1570s [00:52:50.919] if (!identical(...future.globals.maxSize.org, 1570s [00:52:50.919] ...future.globals.maxSize)) { 1570s [00:52:50.919] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1570s [00:52:50.919] on.exit(options(oopts), add = TRUE) 1570s [00:52:50.919] } 1570s [00:52:50.919] { 1570s [00:52:50.919] lapply(seq_along(...future.elements_ii), 1570s [00:52:50.919] FUN = function(jj) { 1570s [00:52:50.919] ...future.X_jj <- ...future.elements_ii[[jj]] 1570s [00:52:50.919] ...future.FUN(...future.X_jj, ...) 1570s [00:52:50.919] }) 1570s [00:52:50.919] } 1570s [00:52:50.919] }, args = future.call.arguments) 1570s [00:52:50.919] })) 1570s [00:52:50.919] future::FutureResult(value = ...future.value$value, 1570s [00:52:50.919] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1570s [00:52:50.919] ...future.rng), globalenv = if (FALSE) 1570s [00:52:50.919] list(added = base::setdiff(base::names(base::.GlobalEnv), 1570s [00:52:50.919] ...future.globalenv.names)) 1570s [00:52:50.919] else NULL, started = ...future.startTime, version = "1.8") 1570s [00:52:50.919] }, condition = base::local({ 1570s [00:52:50.919] c <- base::c 1570s [00:52:50.919] inherits <- base::inherits 1570s [00:52:50.919] invokeRestart <- base::invokeRestart 1570s [00:52:50.919] length <- base::length 1570s [00:52:50.919] list <- base::list 1570s [00:52:50.919] seq.int <- base::seq.int 1570s [00:52:50.919] signalCondition <- base::signalCondition 1570s [00:52:50.919] sys.calls <- base::sys.calls 1570s [00:52:50.919] `[[` <- base::`[[` 1570s [00:52:50.919] `+` <- base::`+` 1570s [00:52:50.919] `<<-` <- base::`<<-` 1570s [00:52:50.919] sysCalls <- function(calls = sys.calls(), from = 1L) { 1570s [00:52:50.919] calls[seq.int(from = from + 12L, to = length(calls) - 1570s [00:52:50.919] 3L)] 1570s [00:52:50.919] } 1570s [00:52:50.919] function(cond) { 1570s [00:52:50.919] is_error <- inherits(cond, "error") 1570s [00:52:50.919] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1570s [00:52:50.919] NULL) 1570s [00:52:50.919] if (is_error) { 1570s [00:52:50.919] sessionInformation <- function() { 1570s [00:52:50.919] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1570s [00:52:50.919] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1570s [00:52:50.919] search = base::search(), system = base::Sys.info()) 1570s [00:52:50.919] } 1570s [00:52:50.919] ...future.conditions[[length(...future.conditions) + 1570s [00:52:50.919] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1570s [00:52:50.919] cond$call), session = sessionInformation(), 1570s [00:52:50.919] timestamp = base::Sys.time(), signaled = 0L) 1570s [00:52:50.919] signalCondition(cond) 1570s [00:52:50.919] } 1570s [00:52:50.919] else if (!ignore && TRUE && inherits(cond, c("condition", 1570s [00:52:50.919] "immediateCondition"))) { 1570s [00:52:50.919] signal <- TRUE && inherits(cond, "immediateCondition") 1570s [00:52:50.919] ...future.conditions[[length(...future.conditions) + 1570s [00:52:50.919] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1570s [00:52:50.919] if (TRUE && !signal) { 1570s [00:52:50.919] muffleCondition <- function (cond, pattern = "^muffle") 1570s [00:52:50.919] { 1570s [00:52:50.919] inherits <- base::inherits 1570s [00:52:50.919] invokeRestart <- base::invokeRestart 1570s [00:52:50.919] is.null <- base::is.null 1570s [00:52:50.919] muffled <- FALSE 1570s [00:52:50.919] if (inherits(cond, "message")) { 1570s [00:52:50.919] muffled <- grepl(pattern, "muffleMessage") 1570s [00:52:50.919] if (muffled) 1570s [00:52:50.919] invokeRestart("muffleMessage") 1570s [00:52:50.919] } 1570s [00:52:50.919] else if (inherits(cond, "warning")) { 1570s [00:52:50.919] muffled <- grepl(pattern, "muffleWarning") 1570s [00:52:50.919] if (muffled) 1570s [00:52:50.919] invokeRestart("muffleWarning") 1570s [00:52:50.919] } 1570s [00:52:50.919] else if (inherits(cond, "condition")) { 1570s [00:52:50.919] if (!is.null(pattern)) { 1570s [00:52:50.919] computeRestarts <- base::computeRestarts 1570s [00:52:50.919] grepl <- base::grepl 1570s [00:52:50.919] restarts <- computeRestarts(cond) 1570s [00:52:50.919] for (restart in restarts) { 1570s [00:52:50.919] name <- restart$name 1570s [00:52:50.919] if (is.null(name)) 1570s [00:52:50.919] next 1570s [00:52:50.919] if (!grepl(pattern, name)) 1570s [00:52:50.919] next 1570s [00:52:50.919] invokeRestart(restart) 1570s [00:52:50.919] muffled <- TRUE 1570s [00:52:50.919] break 1570s [00:52:50.919] } 1570s [00:52:50.919] } 1570s [00:52:50.919] } 1570s [00:52:50.919] invisible(muffled) 1570s [00:52:50.919] } 1570s [00:52:50.919] muffleCondition(cond, pattern = "^muffle") 1570s [00:52:50.919] } 1570s [00:52:50.919] } 1570s [00:52:50.919] else { 1570s [00:52:50.919] if (TRUE) { 1570s [00:52:50.919] muffleCondition <- function (cond, pattern = "^muffle") 1570s [00:52:50.919] { 1570s [00:52:50.919] inherits <- base::inherits 1570s [00:52:50.919] invokeRestart <- base::invokeRestart 1570s [00:52:50.919] is.null <- base::is.null 1570s [00:52:50.919] muffled <- FALSE 1570s [00:52:50.919] if (inherits(cond, "message")) { 1570s [00:52:50.919] muffled <- grepl(pattern, "muffleMessage") 1570s [00:52:50.919] if (muffled) 1570s [00:52:50.919] invokeRestart("muffleMessage") 1570s [00:52:50.919] } 1570s [00:52:50.919] else if (inherits(cond, "warning")) { 1570s [00:52:50.919] muffled <- grepl(pattern, "muffleWarning") 1570s [00:52:50.919] if (muffled) 1570s [00:52:50.919] invokeRestart("muffleWarning") 1570s [00:52:50.919] } 1570s [00:52:50.919] else if (inherits(cond, "condition")) { 1570s [00:52:50.919] if (!is.null(pattern)) { 1570s [00:52:50.919] computeRestarts <- base::computeRestarts 1570s [00:52:50.919] grepl <- base::grepl 1570s [00:52:50.919] restarts <- computeRestarts(cond) 1570s [00:52:50.919] for (restart in restarts) { 1570s [00:52:50.919] name <- restart$name 1570s [00:52:50.919] if (is.null(name)) 1570s [00:52:50.919] next 1570s [00:52:50.919] if (!grepl(pattern, name)) 1570s [00:52:50.919] next 1570s [00:52:50.919] invokeRestart(restart) 1570s [00:52:50.919] muffled <- TRUE 1570s [00:52:50.919] break 1570s [00:52:50.919] } 1570s [00:52:50.919] } 1570s [00:52:50.919] } 1570s [00:52:50.919] invisible(muffled) 1570s [00:52:50.919] } 1570s [00:52:50.919] muffleCondition(cond, pattern = "^muffle") 1570s [00:52:50.919] } 1570s [00:52:50.919] } 1570s [00:52:50.919] } 1570s [00:52:50.919] })) 1570s [00:52:50.919] }, error = function(ex) { 1570s [00:52:50.919] base::structure(base::list(value = NULL, visible = NULL, 1570s [00:52:50.919] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1570s [00:52:50.919] ...future.rng), started = ...future.startTime, 1570s [00:52:50.919] finished = Sys.time(), session_uuid = NA_character_, 1570s [00:52:50.919] version = "1.8"), class = "FutureResult") 1570s [00:52:50.919] }, finally = { 1570s [00:52:50.919] if (!identical(...future.workdir, getwd())) 1570s [00:52:50.919] setwd(...future.workdir) 1570s [00:52:50.919] { 1570s [00:52:50.919] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1570s [00:52:50.919] ...future.oldOptions$nwarnings <- NULL 1570s [00:52:50.919] } 1570s [00:52:50.919] base::options(...future.oldOptions) 1570s [00:52:50.919] if (.Platform$OS.type == "windows") { 1570s [00:52:50.919] old_names <- names(...future.oldEnvVars) 1570s [00:52:50.919] envs <- base::Sys.getenv() 1570s [00:52:50.919] names <- names(envs) 1570s [00:52:50.919] common <- intersect(names, old_names) 1570s [00:52:50.919] added <- setdiff(names, old_names) 1570s [00:52:50.919] removed <- setdiff(old_names, names) 1570s [00:52:50.919] changed <- common[...future.oldEnvVars[common] != 1570s [00:52:50.919] envs[common]] 1570s [00:52:50.919] NAMES <- toupper(changed) 1570s [00:52:50.919] args <- list() 1570s [00:52:50.919] for (kk in seq_along(NAMES)) { 1570s [00:52:50.919] name <- changed[[kk]] 1570s [00:52:50.919] NAME <- NAMES[[kk]] 1570s [00:52:50.919] if (name != NAME && is.element(NAME, old_names)) 1570s [00:52:50.919] next 1570s [00:52:50.919] args[[name]] <- ...future.oldEnvVars[[name]] 1570s [00:52:50.919] } 1570s [00:52:50.919] NAMES <- toupper(added) 1570s [00:52:50.919] for (kk in seq_along(NAMES)) { 1570s [00:52:50.919] name <- added[[kk]] 1570s [00:52:50.919] NAME <- NAMES[[kk]] 1570s [00:52:50.919] if (name != NAME && is.element(NAME, old_names)) 1570s [00:52:50.919] next 1570s [00:52:50.919] args[[name]] <- "" 1570s [00:52:50.919] } 1570s [00:52:50.919] NAMES <- toupper(removed) 1570s [00:52:50.919] for (kk in seq_along(NAMES)) { 1570s [00:52:50.919] name <- removed[[kk]] 1570s [00:52:50.919] NAME <- NAMES[[kk]] 1570s [00:52:50.919] if (name != NAME && is.element(NAME, old_names)) 1570s [00:52:50.919] next 1570s [00:52:50.919] args[[name]] <- ...future.oldEnvVars[[name]] 1570s [00:52:50.919] } 1570s [00:52:50.919] if (length(args) > 0) 1570s [00:52:50.919] base::do.call(base::Sys.setenv, args = args) 1570s [00:52:50.919] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1570s [00:52:50.919] } 1570s [00:52:50.919] else { 1570s [00:52:50.919] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1570s [00:52:50.919] } 1570s [00:52:50.919] { 1570s [00:52:50.919] if (base::length(...future.futureOptionsAdded) > 1570s [00:52:50.919] 0L) { 1570s [00:52:50.919] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1570s [00:52:50.919] base::names(opts) <- ...future.futureOptionsAdded 1570s [00:52:50.919] base::options(opts) 1570s [00:52:50.919] } 1570s [00:52:50.919] { 1570s [00:52:50.919] { 1570s [00:52:50.919] NULL 1570s [00:52:50.919] RNGkind("Mersenne-Twister") 1570s [00:52:50.919] base::rm(list = ".Random.seed", envir = base::globalenv(), 1570s [00:52:50.919] inherits = FALSE) 1570s [00:52:50.919] } 1570s [00:52:50.919] options(future.plan = NULL) 1570s [00:52:50.919] if (is.na(NA_character_)) 1570s [00:52:50.919] Sys.unsetenv("R_FUTURE_PLAN") 1570s [00:52:50.919] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1570s [00:52:50.919] future::plan(list(function (..., envir = parent.frame()) 1570s [00:52:50.919] { 1570s [00:52:50.919] future <- SequentialFuture(..., envir = envir) 1570s [00:52:50.919] if (!future$lazy) 1570s [00:52:50.919] future <- run(future) 1570s [00:52:50.919] invisible(future) 1570s [00:52:50.919] }), .cleanup = FALSE, .init = FALSE) 1570s [00:52:50.919] } 1570s [00:52:50.919] } 1570s [00:52:50.919] } 1570s [00:52:50.919] }) 1570s [00:52:50.919] if (TRUE) { 1570s [00:52:50.919] base::sink(type = "output", split = FALSE) 1570s [00:52:50.919] if (TRUE) { 1570s [00:52:50.919] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1570s [00:52:50.919] } 1570s [00:52:50.919] else { 1570s [00:52:50.919] ...future.result["stdout"] <- base::list(NULL) 1570s [00:52:50.919] } 1570s [00:52:50.919] base::close(...future.stdout) 1570s [00:52:50.919] ...future.stdout <- NULL 1570s [00:52:50.919] } 1570s [00:52:50.919] ...future.result$conditions <- ...future.conditions 1570s [00:52:50.919] ...future.result$finished <- base::Sys.time() 1570s [00:52:50.919] ...future.result 1570s [00:52:50.919] } 1570s [00:52:50.926] assign_globals() ... 1570s [00:52:50.926] List of 5 1570s [00:52:50.926] $ ...future.FUN :function (x, ...) 1570s [00:52:50.926] $ future.call.arguments : list() 1570s [00:52:50.926] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1570s [00:52:50.926] $ ...future.elements_ii :List of 3 1570s [00:52:50.926] ..$ : chr "a" 1570s [00:52:50.926] ..$ : chr "b" 1570s [00:52:50.926] ..$ : chr "c" 1570s [00:52:50.926] $ ...future.seeds_ii : NULL 1570s [00:52:50.926] $ ...future.globals.maxSize: NULL 1570s [00:52:50.926] - attr(*, "where")=List of 5 1570s [00:52:50.926] ..$ ...future.FUN : 1570s [00:52:50.926] ..$ future.call.arguments : 1570s [00:52:50.926] ..$ ...future.elements_ii : 1570s [00:52:50.926] ..$ ...future.seeds_ii : 1570s [00:52:50.926] ..$ ...future.globals.maxSize: 1570s [00:52:50.926] - attr(*, "resolved")= logi FALSE 1570s [00:52:50.926] - attr(*, "total_size")= num 1248 1570s [00:52:50.926] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1570s [00:52:50.926] - attr(*, "already-done")= logi TRUE 1570s [00:52:50.932] - copied ‘...future.FUN’ to environment 1570s [00:52:50.933] - copied ‘future.call.arguments’ to environment 1570s [00:52:50.933] - copied ‘...future.elements_ii’ to environment 1570s [00:52:50.933] - copied ‘...future.seeds_ii’ to environment 1570s [00:52:50.933] - copied ‘...future.globals.maxSize’ to environment 1570s [00:52:50.933] assign_globals() ... done 1570s [00:52:50.934] plan(): Setting new future strategy stack: 1570s [00:52:50.934] List of future strategies: 1570s [00:52:50.934] 1. sequential: 1570s [00:52:50.934] - args: function (..., envir = parent.frame()) 1570s [00:52:50.934] - tweaked: FALSE 1570s [00:52:50.934] - call: NULL 1570s [00:52:50.935] plan(): nbrOfWorkers() = 1 1570s [00:52:50.936] plan(): Setting new future strategy stack: 1570s [00:52:50.936] List of future strategies: 1570s [00:52:50.936] 1. sequential: 1570s [00:52:50.936] - args: function (..., envir = parent.frame()) 1570s [00:52:50.936] - tweaked: FALSE 1570s [00:52:50.936] - call: plan(strategy) 1570s [00:52:50.936] plan(): nbrOfWorkers() = 1 1570s [00:52:50.937] SequentialFuture started (and completed) 1570s [00:52:50.937] - Launch lazy future ... done 1570s [00:52:50.937] run() for ‘SequentialFuture’ ... done 1570s [00:52:50.938] Created future: 1570s [00:52:50.938] SequentialFuture: 1570s [00:52:50.938] Label: ‘future_sapply-1’ 1570s [00:52:50.938] Expression: 1570s [00:52:50.938] { 1570s [00:52:50.938] do.call(function(...) { 1570s [00:52:50.938] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1570s [00:52:50.938] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1570s [00:52:50.938] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1570s [00:52:50.938] on.exit(options(oopts), add = TRUE) 1570s [00:52:50.938] } 1570s [00:52:50.938] { 1570s [00:52:50.938] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1570s [00:52:50.938] ...future.X_jj <- ...future.elements_ii[[jj]] 1570s [00:52:50.938] ...future.FUN(...future.X_jj, ...) 1570s [00:52:50.938] }) 1570s [00:52:50.938] } 1570s [00:52:50.938] }, args = future.call.arguments) 1570s [00:52:50.938] } 1570s [00:52:50.938] Lazy evaluation: FALSE 1570s [00:52:50.938] Asynchronous evaluation: FALSE 1570s [00:52:50.938] Local evaluation: TRUE 1570s [00:52:50.938] Environment: R_GlobalEnv 1570s [00:52:50.938] Capture standard output: TRUE 1570s [00:52:50.938] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1570s [00:52:50.938] Globals: 5 objects totaling 1.55 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1570s [00:52:50.938] Packages: 1570s [00:52:50.938] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1570s [00:52:50.938] Resolved: TRUE 1570s [00:52:50.938] Value: 840 bytes of class ‘list’ 1570s [00:52:50.938] Early signaling: FALSE 1570s [00:52:50.938] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1570s [00:52:50.938] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1570s [00:52:50.940] Chunk #1 of 1 ... DONE 1570s [00:52:50.940] Launching 1 futures (chunks) ... DONE 1570s [00:52:50.940] Resolving 1 futures (chunks) ... 1570s [00:52:50.940] resolve() on list ... 1570s [00:52:50.940] recursive: 0 1570s [00:52:50.940] length: 1 1570s [00:52:50.941] 1570s [00:52:50.941] resolved() for ‘SequentialFuture’ ... 1570s [00:52:50.941] - state: ‘finished’ 1570s [00:52:50.941] - run: TRUE 1570s [00:52:50.942] - result: ‘FutureResult’ 1570s [00:52:50.942] resolved() for ‘SequentialFuture’ ... done 1570s [00:52:50.942] Future #1 1570s [00:52:50.942] signalConditionsASAP(SequentialFuture, pos=1) ... 1570s [00:52:50.942] - nx: 1 1570s [00:52:50.942] - relay: TRUE 1570s [00:52:50.943] - stdout: TRUE 1570s [00:52:50.943] - signal: TRUE 1570s [00:52:50.943] - resignal: FALSE 1570s [00:52:50.943] - force: TRUE 1570s [00:52:50.943] - relayed: [n=1] FALSE 1570s [00:52:50.943] - queued futures: [n=1] FALSE 1570s [00:52:50.943] - until=1 1570s [00:52:50.944] - relaying element #1 1570s [00:52:50.944] - relayed: [n=1] TRUE 1570s [00:52:50.944] - queued futures: [n=1] TRUE 1570s [00:52:50.944] signalConditionsASAP(SequentialFuture, pos=1) ... done 1570s [00:52:50.944] length: 0 (resolved future 1) 1570s [00:52:50.944] Relaying remaining futures 1570s [00:52:50.945] signalConditionsASAP(NULL, pos=0) ... 1570s [00:52:50.945] - nx: 1 1570s [00:52:50.945] - relay: TRUE 1570s [00:52:50.945] - stdout: TRUE 1570s [00:52:50.945] - signal: TRUE 1570s [00:52:50.946] - resignal: FALSE 1570s [00:52:50.946] - force: TRUE 1570s [00:52:50.946] - relayed: [n=1] TRUE 1570s [00:52:50.946] - queued futures: [n=1] TRUE 1570s - flush all 1570s [00:52:50.947] - relayed: [n=1] TRUE 1570s [00:52:50.947] - queued futures: [n=1] TRUE 1570s [00:52:50.947] signalConditionsASAP(NULL, pos=0) ... done 1570s [00:52:50.948] resolve() on list ... DONE 1570s [00:52:50.948] - Number of value chunks collected: 1 1570s [00:52:50.948] Resolving 1 futures (chunks) ... DONE 1570s [00:52:50.948] Reducing values from 1 chunks ... 1570s [00:52:50.949] - Number of values collected after concatenation: 3 1570s [00:52:50.949] - Number of values expected: 3 1570s [00:52:50.949] Reducing values from 1 chunks ... DONE 1570s [00:52:50.949] future_lapply() ... DONE 1570s List of 2 1570s $ y0:List of 3 1570s ..$ a: chr [1, 1] "a" 1570s ..$ b: chr [1, 1] "b" 1570s ..$ c: chr [1, 1] "c" 1570s $ y1:List of 3 1570s ..$ a: chr [1, 1] "a" 1570s ..$ b: chr [1, 1] "b" 1570s ..$ c: chr [1, 1] "c" 1570s List of 2 1570s $ y0:List of 3 1570s ..$ a: chr [1, 1] "a" 1570s ..$ b: chr [1, 1] "b" 1570s ..$ c: chr [1, 1] "c" 1570s $ y2:List of 3 1570s ..$ : chr [1, 1] "a" 1570s ..$ : chr [1, 1] "b" 1570s ..$ : chr [1, 1] "c" 1570s [00:52:50.958] future_lapply() ... 1570s [00:52:50.958] Number of chunks: 1 1570s [00:52:50.959] getGlobalsAndPackagesXApply() ... 1570s [00:52:50.959] - future.globals: TRUE 1570s [00:52:50.959] getGlobalsAndPackages() ... 1570s [00:52:50.959] Searching for globals... 1570s [00:52:50.960] - globals found: [1] ‘FUN’ 1570s [00:52:50.960] Searching for globals ... DONE 1570s [00:52:50.961] Resolving globals: FALSE 1570s [00:52:50.961] The total size of the 1 globals is 848 bytes (848 bytes) 1570s [00:52:50.962] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1570s [00:52:50.962] - globals: [1] ‘FUN’ 1570s [00:52:50.962] 1570s [00:52:50.962] getGlobalsAndPackages() ... DONE 1570s [00:52:50.962] - globals found/used: [n=1] ‘FUN’ 1570s [00:52:50.963] - needed namespaces: [n=0] 1570s [00:52:50.963] Finding globals ... DONE 1570s [00:52:50.963] - use_args: TRUE 1570s [00:52:50.963] - Getting '...' globals ... 1570s [00:52:50.964] resolve() on list ... 1570s [00:52:50.964] recursive: 0 1570s [00:52:50.964] length: 1 1570s [00:52:50.964] elements: ‘...’ 1570s [00:52:50.964] length: 0 (resolved future 1) 1570s [00:52:50.964] resolve() on list ... DONE 1570s [00:52:50.965] - '...' content: [n=0] 1571s [00:52:50.965] List of 1 1571s [00:52:50.965] $ ...: list() 1571s [00:52:50.965] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1571s [00:52:50.965] - attr(*, "where")=List of 1 1571s [00:52:50.965] ..$ ...: 1571s [00:52:50.965] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1571s [00:52:50.965] - attr(*, "resolved")= logi TRUE 1571s [00:52:50.965] - attr(*, "total_size")= num NA 1571s [00:52:50.969] - Getting '...' globals ... DONE 1571s [00:52:50.969] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1571s [00:52:50.969] List of 2 1571s [00:52:50.969] $ ...future.FUN:function (x) 1571s [00:52:50.969] $ ... : list() 1571s [00:52:50.969] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1571s [00:52:50.969] - attr(*, "where")=List of 2 1571s [00:52:50.969] ..$ ...future.FUN: 1571s [00:52:50.969] ..$ ... : 1571s [00:52:50.969] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1571s [00:52:50.969] - attr(*, "resolved")= logi FALSE 1571s [00:52:50.969] - attr(*, "total_size")= num 848 1571s [00:52:50.973] Packages to be attached in all futures: [n=0] 1571s [00:52:50.973] getGlobalsAndPackagesXApply() ... DONE 1571s [00:52:50.974] Number of futures (= number of chunks): 1 1571s [00:52:50.974] Launching 1 futures (chunks) ... 1571s [00:52:50.974] Chunk #1 of 1 ... 1571s [00:52:50.974] - Finding globals in 'X' for chunk #1 ... 1571s [00:52:50.974] getGlobalsAndPackages() ... 1571s [00:52:50.974] Searching for globals... 1571s [00:52:50.975] 1571s [00:52:50.975] Searching for globals ... DONE 1571s [00:52:50.975] - globals: [0] 1571s [00:52:50.975] getGlobalsAndPackages() ... DONE 1571s [00:52:50.975] + additional globals found: [n=0] 1571s [00:52:50.976] + additional namespaces needed: [n=0] 1571s [00:52:50.976] - Finding globals in 'X' for chunk #1 ... DONE 1571s [00:52:50.976] - seeds: 1571s [00:52:50.976] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1571s [00:52:50.976] getGlobalsAndPackages() ... 1571s [00:52:50.977] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1571s [00:52:50.977] Resolving globals: FALSE 1571s [00:52:50.977] Tweak future expression to call with '...' arguments ... 1571s [00:52:50.978] { 1571s [00:52:50.978] do.call(function(...) { 1571s [00:52:50.978] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1571s [00:52:50.978] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1571s [00:52:50.978] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1571s [00:52:50.978] on.exit(options(oopts), add = TRUE) 1571s [00:52:50.978] } 1571s [00:52:50.978] { 1571s [00:52:50.978] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1571s [00:52:50.978] ...future.X_jj <- ...future.elements_ii[[jj]] 1571s [00:52:50.978] ...future.FUN(...future.X_jj, ...) 1571s [00:52:50.978] }) 1571s [00:52:50.978] } 1571s [00:52:50.978] }, args = future.call.arguments) 1571s [00:52:50.978] } 1571s [00:52:50.979] Tweak future expression to call with '...' arguments ... DONE 1571s [00:52:50.980] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1571s [00:52:50.980] 1571s [00:52:50.980] getGlobalsAndPackages() ... DONE 1571s [00:52:50.981] run() for ‘Future’ ... 1571s [00:52:50.981] - state: ‘created’ 1571s [00:52:50.981] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1571s [00:52:50.982] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1571s [00:52:50.982] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1571s [00:52:50.982] - Field: ‘label’ 1571s [00:52:50.982] - Field: ‘local’ 1571s [00:52:50.982] - Field: ‘owner’ 1571s [00:52:50.982] - Field: ‘envir’ 1571s [00:52:50.983] - Field: ‘packages’ 1571s [00:52:50.983] - Field: ‘gc’ 1571s [00:52:50.983] - Field: ‘conditions’ 1571s [00:52:50.983] - Field: ‘expr’ 1571s [00:52:50.983] - Field: ‘uuid’ 1571s [00:52:50.983] - Field: ‘seed’ 1571s [00:52:50.984] - Field: ‘version’ 1571s [00:52:50.984] - Field: ‘result’ 1571s [00:52:50.984] - Field: ‘asynchronous’ 1571s [00:52:50.984] - Field: ‘calls’ 1571s [00:52:50.985] - Field: ‘globals’ 1571s [00:52:50.985] - Field: ‘stdout’ 1571s [00:52:50.985] - Field: ‘earlySignal’ 1571s [00:52:50.985] - Field: ‘lazy’ 1571s [00:52:50.985] - Field: ‘state’ 1571s [00:52:50.985] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1571s [00:52:50.986] - Launch lazy future ... 1571s [00:52:50.986] Packages needed by the future expression (n = 0): 1571s [00:52:50.986] Packages needed by future strategies (n = 0): 1571s [00:52:50.987] { 1571s [00:52:50.987] { 1571s [00:52:50.987] { 1571s [00:52:50.987] ...future.startTime <- base::Sys.time() 1571s [00:52:50.987] { 1571s [00:52:50.987] { 1571s [00:52:50.987] { 1571s [00:52:50.987] base::local({ 1571s [00:52:50.987] has_future <- base::requireNamespace("future", 1571s [00:52:50.987] quietly = TRUE) 1571s [00:52:50.987] if (has_future) { 1571s [00:52:50.987] ns <- base::getNamespace("future") 1571s [00:52:50.987] version <- ns[[".package"]][["version"]] 1571s [00:52:50.987] if (is.null(version)) 1571s [00:52:50.987] version <- utils::packageVersion("future") 1571s [00:52:50.987] } 1571s [00:52:50.987] else { 1571s [00:52:50.987] version <- NULL 1571s [00:52:50.987] } 1571s [00:52:50.987] if (!has_future || version < "1.8.0") { 1571s [00:52:50.987] info <- base::c(r_version = base::gsub("R version ", 1571s [00:52:50.987] "", base::R.version$version.string), 1571s [00:52:50.987] platform = base::sprintf("%s (%s-bit)", 1571s [00:52:50.987] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1571s [00:52:50.987] os = base::paste(base::Sys.info()[base::c("sysname", 1571s [00:52:50.987] "release", "version")], collapse = " "), 1571s [00:52:50.987] hostname = base::Sys.info()[["nodename"]]) 1571s [00:52:50.987] info <- base::sprintf("%s: %s", base::names(info), 1571s [00:52:50.987] info) 1571s [00:52:50.987] info <- base::paste(info, collapse = "; ") 1571s [00:52:50.987] if (!has_future) { 1571s [00:52:50.987] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1571s [00:52:50.987] info) 1571s [00:52:50.987] } 1571s [00:52:50.987] else { 1571s [00:52:50.987] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1571s [00:52:50.987] info, version) 1571s [00:52:50.987] } 1571s [00:52:50.987] base::stop(msg) 1571s [00:52:50.987] } 1571s [00:52:50.987] }) 1571s [00:52:50.987] } 1571s [00:52:50.987] options(future.plan = NULL) 1571s [00:52:50.987] Sys.unsetenv("R_FUTURE_PLAN") 1571s [00:52:50.987] future::plan("default", .cleanup = FALSE, .init = FALSE) 1571s [00:52:50.987] } 1571s [00:52:50.987] ...future.workdir <- getwd() 1571s [00:52:50.987] } 1571s [00:52:50.987] ...future.oldOptions <- base::as.list(base::.Options) 1571s [00:52:50.987] ...future.oldEnvVars <- base::Sys.getenv() 1571s [00:52:50.987] } 1571s [00:52:50.987] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1571s [00:52:50.987] future.globals.maxSize = NULL, future.globals.method = NULL, 1571s [00:52:50.987] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1571s [00:52:50.987] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1571s [00:52:50.987] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1571s [00:52:50.987] future.stdout.windows.reencode = NULL, width = 80L) 1571s [00:52:50.987] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1571s [00:52:50.987] base::names(...future.oldOptions)) 1571s [00:52:50.987] } 1571s [00:52:50.987] if (FALSE) { 1571s [00:52:50.987] } 1571s [00:52:50.987] else { 1571s [00:52:50.987] if (TRUE) { 1571s [00:52:50.987] ...future.stdout <- base::rawConnection(base::raw(0L), 1571s [00:52:50.987] open = "w") 1571s [00:52:50.987] } 1571s [00:52:50.987] else { 1571s [00:52:50.987] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1571s [00:52:50.987] windows = "NUL", "/dev/null"), open = "w") 1571s [00:52:50.987] } 1571s [00:52:50.987] base::sink(...future.stdout, type = "output", split = FALSE) 1571s [00:52:50.987] base::on.exit(if (!base::is.null(...future.stdout)) { 1571s [00:52:50.987] base::sink(type = "output", split = FALSE) 1571s [00:52:50.987] base::close(...future.stdout) 1571s [00:52:50.987] }, add = TRUE) 1571s [00:52:50.987] } 1571s [00:52:50.987] ...future.frame <- base::sys.nframe() 1571s [00:52:50.987] ...future.conditions <- base::list() 1571s [00:52:50.987] ...future.rng <- base::globalenv()$.Random.seed 1571s [00:52:50.987] if (FALSE) { 1571s [00:52:50.987] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1571s [00:52:50.987] "...future.value", "...future.globalenv.names", ".Random.seed") 1571s [00:52:50.987] } 1571s [00:52:50.987] ...future.result <- base::tryCatch({ 1571s [00:52:50.987] base::withCallingHandlers({ 1571s [00:52:50.987] ...future.value <- base::withVisible(base::local({ 1571s [00:52:50.987] do.call(function(...) { 1571s [00:52:50.987] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1571s [00:52:50.987] if (!identical(...future.globals.maxSize.org, 1571s [00:52:50.987] ...future.globals.maxSize)) { 1571s [00:52:50.987] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1571s [00:52:50.987] on.exit(options(oopts), add = TRUE) 1571s [00:52:50.987] } 1571s [00:52:50.987] { 1571s [00:52:50.987] lapply(seq_along(...future.elements_ii), 1571s [00:52:50.987] FUN = function(jj) { 1571s [00:52:50.987] ...future.X_jj <- ...future.elements_ii[[jj]] 1571s [00:52:50.987] ...future.FUN(...future.X_jj, ...) 1571s [00:52:50.987] }) 1571s [00:52:50.987] } 1571s [00:52:50.987] }, args = future.call.arguments) 1571s [00:52:50.987] })) 1571s [00:52:50.987] future::FutureResult(value = ...future.value$value, 1571s [00:52:50.987] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1571s [00:52:50.987] ...future.rng), globalenv = if (FALSE) 1571s [00:52:50.987] list(added = base::setdiff(base::names(base::.GlobalEnv), 1571s [00:52:50.987] ...future.globalenv.names)) 1571s [00:52:50.987] else NULL, started = ...future.startTime, version = "1.8") 1571s [00:52:50.987] }, condition = base::local({ 1571s [00:52:50.987] c <- base::c 1571s [00:52:50.987] inherits <- base::inherits 1571s [00:52:50.987] invokeRestart <- base::invokeRestart 1571s [00:52:50.987] length <- base::length 1571s [00:52:50.987] list <- base::list 1571s [00:52:50.987] seq.int <- base::seq.int 1571s [00:52:50.987] signalCondition <- base::signalCondition 1571s [00:52:50.987] sys.calls <- base::sys.calls 1571s [00:52:50.987] `[[` <- base::`[[` 1571s [00:52:50.987] `+` <- base::`+` 1571s [00:52:50.987] `<<-` <- base::`<<-` 1571s [00:52:50.987] sysCalls <- function(calls = sys.calls(), from = 1L) { 1571s [00:52:50.987] calls[seq.int(from = from + 12L, to = length(calls) - 1571s [00:52:50.987] 3L)] 1571s [00:52:50.987] } 1571s [00:52:50.987] function(cond) { 1571s [00:52:50.987] is_error <- inherits(cond, "error") 1571s [00:52:50.987] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1571s [00:52:50.987] NULL) 1571s [00:52:50.987] if (is_error) { 1571s [00:52:50.987] sessionInformation <- function() { 1571s [00:52:50.987] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1571s [00:52:50.987] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1571s [00:52:50.987] search = base::search(), system = base::Sys.info()) 1571s [00:52:50.987] } 1571s [00:52:50.987] ...future.conditions[[length(...future.conditions) + 1571s [00:52:50.987] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1571s [00:52:50.987] cond$call), session = sessionInformation(), 1571s [00:52:50.987] timestamp = base::Sys.time(), signaled = 0L) 1571s [00:52:50.987] signalCondition(cond) 1571s [00:52:50.987] } 1571s [00:52:50.987] else if (!ignore && TRUE && inherits(cond, c("condition", 1571s [00:52:50.987] "immediateCondition"))) { 1571s [00:52:50.987] signal <- TRUE && inherits(cond, "immediateCondition") 1571s [00:52:50.987] ...future.conditions[[length(...future.conditions) + 1571s [00:52:50.987] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1571s [00:52:50.987] if (TRUE && !signal) { 1571s [00:52:50.987] muffleCondition <- function (cond, pattern = "^muffle") 1571s [00:52:50.987] { 1571s [00:52:50.987] inherits <- base::inherits 1571s [00:52:50.987] invokeRestart <- base::invokeRestart 1571s [00:52:50.987] is.null <- base::is.null 1571s [00:52:50.987] muffled <- FALSE 1571s [00:52:50.987] if (inherits(cond, "message")) { 1571s [00:52:50.987] muffled <- grepl(pattern, "muffleMessage") 1571s [00:52:50.987] if (muffled) 1571s [00:52:50.987] invokeRestart("muffleMessage") 1571s [00:52:50.987] } 1571s [00:52:50.987] else if (inherits(cond, "warning")) { 1571s [00:52:50.987] muffled <- grepl(pattern, "muffleWarning") 1571s [00:52:50.987] if (muffled) 1571s [00:52:50.987] invokeRestart("muffleWarning") 1571s [00:52:50.987] } 1571s [00:52:50.987] else if (inherits(cond, "condition")) { 1571s [00:52:50.987] if (!is.null(pattern)) { 1571s [00:52:50.987] computeRestarts <- base::computeRestarts 1571s [00:52:50.987] grepl <- base::grepl 1571s [00:52:50.987] restarts <- computeRestarts(cond) 1571s [00:52:50.987] for (restart in restarts) { 1571s [00:52:50.987] name <- restart$name 1571s [00:52:50.987] if (is.null(name)) 1571s [00:52:50.987] next 1571s [00:52:50.987] if (!grepl(pattern, name)) 1571s [00:52:50.987] next 1571s [00:52:50.987] invokeRestart(restart) 1571s [00:52:50.987] muffled <- TRUE 1571s [00:52:50.987] break 1571s [00:52:50.987] } 1571s [00:52:50.987] } 1571s [00:52:50.987] } 1571s [00:52:50.987] invisible(muffled) 1571s [00:52:50.987] } 1571s [00:52:50.987] muffleCondition(cond, pattern = "^muffle") 1571s [00:52:50.987] } 1571s [00:52:50.987] } 1571s [00:52:50.987] else { 1571s [00:52:50.987] if (TRUE) { 1571s [00:52:50.987] muffleCondition <- function (cond, pattern = "^muffle") 1571s [00:52:50.987] { 1571s [00:52:50.987] inherits <- base::inherits 1571s [00:52:50.987] invokeRestart <- base::invokeRestart 1571s [00:52:50.987] is.null <- base::is.null 1571s [00:52:50.987] muffled <- FALSE 1571s [00:52:50.987] if (inherits(cond, "message")) { 1571s [00:52:50.987] muffled <- grepl(pattern, "muffleMessage") 1571s [00:52:50.987] if (muffled) 1571s [00:52:50.987] invokeRestart("muffleMessage") 1571s [00:52:50.987] } 1571s [00:52:50.987] else if (inherits(cond, "warning")) { 1571s [00:52:50.987] muffled <- grepl(pattern, "muffleWarning") 1571s [00:52:50.987] if (muffled) 1571s [00:52:50.987] invokeRestart("muffleWarning") 1571s [00:52:50.987] } 1571s [00:52:50.987] else if (inherits(cond, "condition")) { 1571s [00:52:50.987] if (!is.null(pattern)) { 1571s [00:52:50.987] computeRestarts <- base::computeRestarts 1571s [00:52:50.987] grepl <- base::grepl 1571s [00:52:50.987] restarts <- computeRestarts(cond) 1571s [00:52:50.987] for (restart in restarts) { 1571s [00:52:50.987] name <- restart$name 1571s [00:52:50.987] if (is.null(name)) 1571s [00:52:50.987] next 1571s [00:52:50.987] if (!grepl(pattern, name)) 1571s [00:52:50.987] next 1571s [00:52:50.987] invokeRestart(restart) 1571s [00:52:50.987] muffled <- TRUE 1571s [00:52:50.987] break 1571s [00:52:50.987] } 1571s [00:52:50.987] } 1571s [00:52:50.987] } 1571s [00:52:50.987] invisible(muffled) 1571s [00:52:50.987] } 1571s [00:52:50.987] muffleCondition(cond, pattern = "^muffle") 1571s [00:52:50.987] } 1571s [00:52:50.987] } 1571s [00:52:50.987] } 1571s [00:52:50.987] })) 1571s [00:52:50.987] }, error = function(ex) { 1571s [00:52:50.987] base::structure(base::list(value = NULL, visible = NULL, 1571s [00:52:50.987] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1571s [00:52:50.987] ...future.rng), started = ...future.startTime, 1571s [00:52:50.987] finished = Sys.time(), session_uuid = NA_character_, 1571s [00:52:50.987] version = "1.8"), class = "FutureResult") 1571s [00:52:50.987] }, finally = { 1571s [00:52:50.987] if (!identical(...future.workdir, getwd())) 1571s [00:52:50.987] setwd(...future.workdir) 1571s [00:52:50.987] { 1571s [00:52:50.987] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1571s [00:52:50.987] ...future.oldOptions$nwarnings <- NULL 1571s [00:52:50.987] } 1571s [00:52:50.987] base::options(...future.oldOptions) 1571s [00:52:50.987] if (.Platform$OS.type == "windows") { 1571s [00:52:50.987] old_names <- names(...future.oldEnvVars) 1571s [00:52:50.987] envs <- base::Sys.getenv() 1571s [00:52:50.987] names <- names(envs) 1571s [00:52:50.987] common <- intersect(names, old_names) 1571s [00:52:50.987] added <- setdiff(names, old_names) 1571s [00:52:50.987] removed <- setdiff(old_names, names) 1571s [00:52:50.987] changed <- common[...future.oldEnvVars[common] != 1571s [00:52:50.987] envs[common]] 1571s [00:52:50.987] NAMES <- toupper(changed) 1571s [00:52:50.987] args <- list() 1571s [00:52:50.987] for (kk in seq_along(NAMES)) { 1571s [00:52:50.987] name <- changed[[kk]] 1571s [00:52:50.987] NAME <- NAMES[[kk]] 1571s [00:52:50.987] if (name != NAME && is.element(NAME, old_names)) 1571s [00:52:50.987] next 1571s [00:52:50.987] args[[name]] <- ...future.oldEnvVars[[name]] 1571s [00:52:50.987] } 1571s [00:52:50.987] NAMES <- toupper(added) 1571s [00:52:50.987] for (kk in seq_along(NAMES)) { 1571s [00:52:50.987] name <- added[[kk]] 1571s [00:52:50.987] NAME <- NAMES[[kk]] 1571s [00:52:50.987] if (name != NAME && is.element(NAME, old_names)) 1571s [00:52:50.987] next 1571s [00:52:50.987] args[[name]] <- "" 1571s [00:52:50.987] } 1571s [00:52:50.987] NAMES <- toupper(removed) 1571s [00:52:50.987] for (kk in seq_along(NAMES)) { 1571s [00:52:50.987] name <- removed[[kk]] 1571s [00:52:50.987] NAME <- NAMES[[kk]] 1571s [00:52:50.987] if (name != NAME && is.element(NAME, old_names)) 1571s [00:52:50.987] next 1571s [00:52:50.987] args[[name]] <- ...future.oldEnvVars[[name]] 1571s [00:52:50.987] } 1571s [00:52:50.987] if (length(args) > 0) 1571s [00:52:50.987] base::do.call(base::Sys.setenv, args = args) 1571s [00:52:50.987] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1571s [00:52:50.987] } 1571s [00:52:50.987] else { 1571s [00:52:50.987] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1571s [00:52:50.987] } 1571s [00:52:50.987] { 1571s [00:52:50.987] if (base::length(...future.futureOptionsAdded) > 1571s [00:52:50.987] 0L) { 1571s [00:52:50.987] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1571s [00:52:50.987] base::names(opts) <- ...future.futureOptionsAdded 1571s [00:52:50.987] base::options(opts) 1571s [00:52:50.987] } 1571s [00:52:50.987] { 1571s [00:52:50.987] { 1571s [00:52:50.987] NULL 1571s [00:52:50.987] RNGkind("Mersenne-Twister") 1571s [00:52:50.987] base::rm(list = ".Random.seed", envir = base::globalenv(), 1571s [00:52:50.987] inherits = FALSE) 1571s [00:52:50.987] } 1571s [00:52:50.987] options(future.plan = NULL) 1571s [00:52:50.987] if (is.na(NA_character_)) 1571s [00:52:50.987] Sys.unsetenv("R_FUTURE_PLAN") 1571s [00:52:50.987] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1571s [00:52:50.987] future::plan(list(function (..., envir = parent.frame()) 1571s [00:52:50.987] { 1571s [00:52:50.987] future <- SequentialFuture(..., envir = envir) 1571s [00:52:50.987] if (!future$lazy) 1571s [00:52:50.987] future <- run(future) 1571s [00:52:50.987] invisible(future) 1571s [00:52:50.987] }), .cleanup = FALSE, .init = FALSE) 1571s [00:52:50.987] } 1571s [00:52:50.987] } 1571s [00:52:50.987] } 1571s [00:52:50.987] }) 1571s [00:52:50.987] if (TRUE) { 1571s [00:52:50.987] base::sink(type = "output", split = FALSE) 1571s [00:52:50.987] if (TRUE) { 1571s [00:52:50.987] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1571s [00:52:50.987] } 1571s [00:52:50.987] else { 1571s [00:52:50.987] ...future.result["stdout"] <- base::list(NULL) 1571s [00:52:50.987] } 1571s [00:52:50.987] base::close(...future.stdout) 1571s [00:52:50.987] ...future.stdout <- NULL 1571s [00:52:50.987] } 1571s [00:52:50.987] ...future.result$conditions <- ...future.conditions 1571s [00:52:50.987] ...future.result$finished <- base::Sys.time() 1571s [00:52:50.987] ...future.result 1571s [00:52:50.987] } 1571s [00:52:50.991] assign_globals() ... 1571s [00:52:50.991] List of 5 1571s [00:52:50.991] $ ...future.FUN :function (x) 1571s [00:52:50.991] $ future.call.arguments : list() 1571s [00:52:50.991] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1571s [00:52:50.991] $ ...future.elements_ii :List of 3 1571s [00:52:50.991] ..$ : chr "a" 1571s [00:52:50.991] ..$ : chr "b" 1571s [00:52:50.991] ..$ : chr "c" 1571s [00:52:50.991] $ ...future.seeds_ii : NULL 1571s [00:52:50.991] $ ...future.globals.maxSize: NULL 1571s [00:52:50.991] - attr(*, "where")=List of 5 1571s [00:52:50.991] ..$ ...future.FUN : 1571s [00:52:50.991] ..$ future.call.arguments : 1571s [00:52:50.991] ..$ ...future.elements_ii : 1571s [00:52:50.991] ..$ ...future.seeds_ii : 1571s [00:52:50.991] ..$ ...future.globals.maxSize: 1571s [00:52:50.991] - attr(*, "resolved")= logi FALSE 1571s [00:52:50.991] - attr(*, "total_size")= num 848 1571s [00:52:50.991] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1571s [00:52:50.991] - attr(*, "already-done")= logi TRUE 1571s [00:52:51.003] - copied ‘...future.FUN’ to environment 1571s [00:52:51.003] - copied ‘future.call.arguments’ to environment 1571s [00:52:51.003] - copied ‘...future.elements_ii’ to environment 1571s [00:52:51.004] - copied ‘...future.seeds_ii’ to environment 1571s [00:52:51.004] - copied ‘...future.globals.maxSize’ to environment 1571s [00:52:51.004] assign_globals() ... done 1571s [00:52:51.004] plan(): Setting new future strategy stack: 1571s [00:52:51.004] List of future strategies: 1571s [00:52:51.004] 1. sequential: 1571s [00:52:51.004] - args: function (..., envir = parent.frame()) 1571s [00:52:51.004] - tweaked: FALSE 1571s [00:52:51.004] - call: NULL 1571s [00:52:51.005] plan(): nbrOfWorkers() = 1 1571s [00:52:51.006] plan(): Setting new future strategy stack: 1571s [00:52:51.006] List of future strategies: 1571s [00:52:51.006] 1. sequential: 1571s [00:52:51.006] - args: function (..., envir = parent.frame()) 1571s [00:52:51.006] - tweaked: FALSE 1571s [00:52:51.006] - call: plan(strategy) 1571s [00:52:51.007] plan(): nbrOfWorkers() = 1 1571s [00:52:51.007] SequentialFuture started (and completed) 1571s [00:52:51.007] - Launch lazy future ... done 1571s [00:52:51.008] run() for ‘SequentialFuture’ ... done 1571s [00:52:51.008] Created future: 1571s [00:52:51.008] SequentialFuture: 1571s [00:52:51.008] Label: ‘future_sapply-1’ 1571s [00:52:51.008] Expression: 1571s [00:52:51.008] { 1571s [00:52:51.008] do.call(function(...) { 1571s [00:52:51.008] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1571s [00:52:51.008] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1571s [00:52:51.008] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1571s [00:52:51.008] on.exit(options(oopts), add = TRUE) 1571s [00:52:51.008] } 1571s [00:52:51.008] { 1571s [00:52:51.008] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1571s [00:52:51.008] ...future.X_jj <- ...future.elements_ii[[jj]] 1571s [00:52:51.008] ...future.FUN(...future.X_jj, ...) 1571s [00:52:51.008] }) 1571s [00:52:51.008] } 1571s [00:52:51.008] }, args = future.call.arguments) 1571s [00:52:51.008] } 1571s [00:52:51.008] Lazy evaluation: FALSE 1571s [00:52:51.008] Asynchronous evaluation: FALSE 1571s [00:52:51.008] Local evaluation: TRUE 1571s [00:52:51.008] Environment: R_GlobalEnv 1571s [00:52:51.008] Capture standard output: TRUE 1571s [00:52:51.008] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1571s [00:52:51.008] Globals: 5 objects totaling 1.16 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1571s [00:52:51.008] Packages: 1571s [00:52:51.008] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1571s [00:52:51.008] Resolved: TRUE 1571s [00:52:51.008] Value: 336 bytes of class ‘list’ 1571s [00:52:51.008] Early signaling: FALSE 1571s [00:52:51.008] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1571s [00:52:51.008] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1571s [00:52:51.010] Chunk #1 of 1 ... DONE 1571s [00:52:51.010] Launching 1 futures (chunks) ... DONE 1571s [00:52:51.010] Resolving 1 futures (chunks) ... 1571s [00:52:51.010] resolve() on list ... 1571s [00:52:51.011] recursive: 0 1571s [00:52:51.011] length: 1 1571s [00:52:51.011] 1571s [00:52:51.011] resolved() for ‘SequentialFuture’ ... 1571s [00:52:51.011] - state: ‘finished’ 1571s [00:52:51.011] - run: TRUE 1571s [00:52:51.012] - result: ‘FutureResult’ 1571s [00:52:51.012] resolved() for ‘SequentialFuture’ ... done 1571s [00:52:51.012] Future #1 1571s [00:52:51.012] signalConditionsASAP(SequentialFuture, pos=1) ... 1571s [00:52:51.012] - nx: 1 1571s [00:52:51.012] - relay: TRUE 1571s [00:52:51.013] - stdout: TRUE 1571s [00:52:51.013] - signal: TRUE 1571s [00:52:51.013] - resignal: FALSE 1571s [00:52:51.013] - force: TRUE 1571s [00:52:51.013] - relayed: [n=1] FALSE 1571s [00:52:51.013] - queued futures: [n=1] FALSE 1571s [00:52:51.013] - until=1 1571s [00:52:51.014] - relaying element #1 1571s [00:52:51.014] - relayed: [n=1] TRUE 1571s [00:52:51.014] - queued futures: [n=1] TRUE 1571s [00:52:51.014] signalConditionsASAP(SequentialFuture, pos=1) ... done 1571s [00:52:51.014] length: 0 (resolved future 1) 1571s [00:52:51.015] Relaying remaining futures 1571s [00:52:51.015] signalConditionsASAP(NULL, pos=0) ... 1571s [00:52:51.015] - nx: 1 1571s [00:52:51.015] - relay: TRUE 1571s [00:52:51.015] - stdout: TRUE 1571s [00:52:51.015] - signal: TRUE 1571s [00:52:51.015] - resignal: FALSE 1571s [00:52:51.015] - force: TRUE 1571s [00:52:51.016] - relayed: [n=1] TRUE 1571s [00:52:51.016] - queued futures: [n=1] TRUE 1571s - flush all 1571s [00:52:51.016] - relayed: [n=1] TRUE 1571s [00:52:51.016] - queued futures: [n=1] TRUE 1571s [00:52:51.016] signalConditionsASAP(NULL, pos=0) ... done 1571s [00:52:51.016] resolve() on list ... DONE 1571s [00:52:51.017] - Number of value chunks collected: 1 1571s [00:52:51.017] Resolving 1 futures (chunks) ... DONE 1571s [00:52:51.017] Reducing values from 1 chunks ... 1571s [00:52:51.017] - Number of values collected after concatenation: 3 1571s [00:52:51.017] - Number of values expected: 3 1571s [00:52:51.017] Reducing values from 1 chunks ... DONE 1571s [00:52:51.018] future_lapply() ... DONE 1571s List of 2 1571s $ y0: Named chr [1:3] "a" "b" "c" 1571s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1571s $ y1: Named chr [1:3] "a" "b" "c" 1571s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1571s [00:52:51.021] future_lapply() ... 1571s [00:52:51.022] Number of chunks: 1 1571s [00:52:51.022] getGlobalsAndPackagesXApply() ... 1571s [00:52:51.022] - future.globals: TRUE 1571s [00:52:51.022] getGlobalsAndPackages() ... 1571s [00:52:51.022] Searching for globals... 1571s [00:52:51.024] - globals found: [2] ‘FUN’, ‘UseMethod’ 1571s [00:52:51.024] Searching for globals ... DONE 1571s [00:52:51.024] Resolving globals: FALSE 1571s [00:52:51.024] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1571s [00:52:51.025] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1571s [00:52:51.025] - globals: [1] ‘FUN’ 1571s [00:52:51.026] 1571s [00:52:51.026] getGlobalsAndPackages() ... DONE 1571s [00:52:51.026] - globals found/used: [n=1] ‘FUN’ 1571s [00:52:51.026] - needed namespaces: [n=0] 1571s [00:52:51.026] Finding globals ... DONE 1571s [00:52:51.026] - use_args: TRUE 1571s [00:52:51.026] - Getting '...' globals ... 1571s [00:52:51.027] resolve() on list ... 1571s [00:52:51.027] recursive: 0 1571s [00:52:51.027] length: 1 1571s [00:52:51.027] elements: ‘...’ 1571s [00:52:51.027] length: 0 (resolved future 1) 1571s [00:52:51.028] resolve() on list ... DONE 1571s [00:52:51.028] - '...' content: [n=0] 1571s [00:52:51.028] List of 1 1571s [00:52:51.028] $ ...: list() 1571s [00:52:51.028] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1571s [00:52:51.028] - attr(*, "where")=List of 1 1571s [00:52:51.028] ..$ ...: 1571s [00:52:51.028] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1571s [00:52:51.028] - attr(*, "resolved")= logi TRUE 1571s [00:52:51.028] - attr(*, "total_size")= num NA 1571s [00:52:51.034] - Getting '...' globals ... DONE 1571s [00:52:51.035] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1571s [00:52:51.035] List of 2 1571s [00:52:51.035] $ ...future.FUN:function (x, ...) 1571s [00:52:51.035] $ ... : list() 1571s [00:52:51.035] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1571s [00:52:51.035] - attr(*, "where")=List of 2 1571s [00:52:51.035] ..$ ...future.FUN: 1571s [00:52:51.035] ..$ ... : 1571s [00:52:51.035] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1571s [00:52:51.035] - attr(*, "resolved")= logi FALSE 1571s [00:52:51.035] - attr(*, "total_size")= num 1248 1571s [00:52:51.039] Packages to be attached in all futures: [n=0] 1571s [00:52:51.039] getGlobalsAndPackagesXApply() ... DONE 1571s [00:52:51.039] Number of futures (= number of chunks): 1 1571s [00:52:51.039] Launching 1 futures (chunks) ... 1571s [00:52:51.039] Chunk #1 of 1 ... 1571s [00:52:51.040] - Finding globals in 'X' for chunk #1 ... 1571s [00:52:51.040] getGlobalsAndPackages() ... 1571s [00:52:51.040] Searching for globals... 1571s [00:52:51.040] 1571s [00:52:51.040] Searching for globals ... DONE 1571s [00:52:51.040] - globals: [0] 1571s [00:52:51.041] getGlobalsAndPackages() ... DONE 1571s [00:52:51.041] + additional globals found: [n=0] 1571s [00:52:51.041] + additional namespaces needed: [n=0] 1571s [00:52:51.041] - Finding globals in 'X' for chunk #1 ... DONE 1571s [00:52:51.041] - seeds: 1571s [00:52:51.042] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1571s [00:52:51.042] getGlobalsAndPackages() ... 1571s [00:52:51.042] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1571s [00:52:51.042] Resolving globals: FALSE 1571s [00:52:51.042] Tweak future expression to call with '...' arguments ... 1571s [00:52:51.042] { 1571s [00:52:51.042] do.call(function(...) { 1571s [00:52:51.042] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1571s [00:52:51.042] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1571s [00:52:51.042] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1571s [00:52:51.042] on.exit(options(oopts), add = TRUE) 1571s [00:52:51.042] } 1571s [00:52:51.042] { 1571s [00:52:51.042] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1571s [00:52:51.042] ...future.X_jj <- ...future.elements_ii[[jj]] 1571s [00:52:51.042] ...future.FUN(...future.X_jj, ...) 1571s [00:52:51.042] }) 1571s [00:52:51.042] } 1571s [00:52:51.042] }, args = future.call.arguments) 1571s [00:52:51.042] } 1571s [00:52:51.043] Tweak future expression to call with '...' arguments ... DONE 1571s [00:52:51.043] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1571s [00:52:51.044] 1571s [00:52:51.044] getGlobalsAndPackages() ... DONE 1571s [00:52:51.044] run() for ‘Future’ ... 1571s [00:52:51.044] - state: ‘created’ 1571s [00:52:51.044] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1571s [00:52:51.045] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1571s [00:52:51.045] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1571s [00:52:51.045] - Field: ‘label’ 1571s [00:52:51.045] - Field: ‘local’ 1571s [00:52:51.045] - Field: ‘owner’ 1571s [00:52:51.045] - Field: ‘envir’ 1571s [00:52:51.046] - Field: ‘packages’ 1571s [00:52:51.046] - Field: ‘gc’ 1571s [00:52:51.046] - Field: ‘conditions’ 1571s [00:52:51.046] - Field: ‘expr’ 1571s [00:52:51.046] - Field: ‘uuid’ 1571s [00:52:51.046] - Field: ‘seed’ 1571s [00:52:51.046] - Field: ‘version’ 1571s [00:52:51.046] - Field: ‘result’ 1571s [00:52:51.046] - Field: ‘asynchronous’ 1571s [00:52:51.047] - Field: ‘calls’ 1571s [00:52:51.047] - Field: ‘globals’ 1571s [00:52:51.047] - Field: ‘stdout’ 1571s [00:52:51.047] - Field: ‘earlySignal’ 1571s [00:52:51.047] - Field: ‘lazy’ 1571s [00:52:51.047] - Field: ‘state’ 1571s [00:52:51.047] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1571s [00:52:51.047] - Launch lazy future ... 1571s [00:52:51.048] Packages needed by the future expression (n = 0): 1571s [00:52:51.048] Packages needed by future strategies (n = 0): 1571s [00:52:51.048] { 1571s [00:52:51.048] { 1571s [00:52:51.048] { 1571s [00:52:51.048] ...future.startTime <- base::Sys.time() 1571s [00:52:51.048] { 1571s [00:52:51.048] { 1571s [00:52:51.048] { 1571s [00:52:51.048] base::local({ 1571s [00:52:51.048] has_future <- base::requireNamespace("future", 1571s [00:52:51.048] quietly = TRUE) 1571s [00:52:51.048] if (has_future) { 1571s [00:52:51.048] ns <- base::getNamespace("future") 1571s [00:52:51.048] version <- ns[[".package"]][["version"]] 1571s [00:52:51.048] if (is.null(version)) 1571s [00:52:51.048] version <- utils::packageVersion("future") 1571s [00:52:51.048] } 1571s [00:52:51.048] else { 1571s [00:52:51.048] version <- NULL 1571s [00:52:51.048] } 1571s [00:52:51.048] if (!has_future || version < "1.8.0") { 1571s [00:52:51.048] info <- base::c(r_version = base::gsub("R version ", 1571s [00:52:51.048] "", base::R.version$version.string), 1571s [00:52:51.048] platform = base::sprintf("%s (%s-bit)", 1571s [00:52:51.048] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1571s [00:52:51.048] os = base::paste(base::Sys.info()[base::c("sysname", 1571s [00:52:51.048] "release", "version")], collapse = " "), 1571s [00:52:51.048] hostname = base::Sys.info()[["nodename"]]) 1571s [00:52:51.048] info <- base::sprintf("%s: %s", base::names(info), 1571s [00:52:51.048] info) 1571s [00:52:51.048] info <- base::paste(info, collapse = "; ") 1571s [00:52:51.048] if (!has_future) { 1571s [00:52:51.048] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1571s [00:52:51.048] info) 1571s [00:52:51.048] } 1571s [00:52:51.048] else { 1571s [00:52:51.048] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1571s [00:52:51.048] info, version) 1571s [00:52:51.048] } 1571s [00:52:51.048] base::stop(msg) 1571s [00:52:51.048] } 1571s [00:52:51.048] }) 1571s [00:52:51.048] } 1571s [00:52:51.048] options(future.plan = NULL) 1571s [00:52:51.048] Sys.unsetenv("R_FUTURE_PLAN") 1571s [00:52:51.048] future::plan("default", .cleanup = FALSE, .init = FALSE) 1571s [00:52:51.048] } 1571s [00:52:51.048] ...future.workdir <- getwd() 1571s [00:52:51.048] } 1571s [00:52:51.048] ...future.oldOptions <- base::as.list(base::.Options) 1571s [00:52:51.048] ...future.oldEnvVars <- base::Sys.getenv() 1571s [00:52:51.048] } 1571s [00:52:51.048] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1571s [00:52:51.048] future.globals.maxSize = NULL, future.globals.method = NULL, 1571s [00:52:51.048] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1571s [00:52:51.048] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1571s [00:52:51.048] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1571s [00:52:51.048] future.stdout.windows.reencode = NULL, width = 80L) 1571s [00:52:51.048] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1571s [00:52:51.048] base::names(...future.oldOptions)) 1571s [00:52:51.048] } 1571s [00:52:51.048] if (FALSE) { 1571s [00:52:51.048] } 1571s [00:52:51.048] else { 1571s [00:52:51.048] if (TRUE) { 1571s [00:52:51.048] ...future.stdout <- base::rawConnection(base::raw(0L), 1571s [00:52:51.048] open = "w") 1571s [00:52:51.048] } 1571s [00:52:51.048] else { 1571s [00:52:51.048] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1571s [00:52:51.048] windows = "NUL", "/dev/null"), open = "w") 1571s [00:52:51.048] } 1571s [00:52:51.048] base::sink(...future.stdout, type = "output", split = FALSE) 1571s [00:52:51.048] base::on.exit(if (!base::is.null(...future.stdout)) { 1571s [00:52:51.048] base::sink(type = "output", split = FALSE) 1571s [00:52:51.048] base::close(...future.stdout) 1571s [00:52:51.048] }, add = TRUE) 1571s [00:52:51.048] } 1571s [00:52:51.048] ...future.frame <- base::sys.nframe() 1571s [00:52:51.048] ...future.conditions <- base::list() 1571s [00:52:51.048] ...future.rng <- base::globalenv()$.Random.seed 1571s [00:52:51.048] if (FALSE) { 1571s [00:52:51.048] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1571s [00:52:51.048] "...future.value", "...future.globalenv.names", ".Random.seed") 1571s [00:52:51.048] } 1571s [00:52:51.048] ...future.result <- base::tryCatch({ 1571s [00:52:51.048] base::withCallingHandlers({ 1571s [00:52:51.048] ...future.value <- base::withVisible(base::local({ 1571s [00:52:51.048] do.call(function(...) { 1571s [00:52:51.048] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1571s [00:52:51.048] if (!identical(...future.globals.maxSize.org, 1571s [00:52:51.048] ...future.globals.maxSize)) { 1571s [00:52:51.048] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1571s [00:52:51.048] on.exit(options(oopts), add = TRUE) 1571s [00:52:51.048] } 1571s [00:52:51.048] { 1571s [00:52:51.048] lapply(seq_along(...future.elements_ii), 1571s [00:52:51.048] FUN = function(jj) { 1571s [00:52:51.048] ...future.X_jj <- ...future.elements_ii[[jj]] 1571s [00:52:51.048] ...future.FUN(...future.X_jj, ...) 1571s [00:52:51.048] }) 1571s [00:52:51.048] } 1571s [00:52:51.048] }, args = future.call.arguments) 1571s [00:52:51.048] })) 1571s [00:52:51.048] future::FutureResult(value = ...future.value$value, 1571s [00:52:51.048] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1571s [00:52:51.048] ...future.rng), globalenv = if (FALSE) 1571s [00:52:51.048] list(added = base::setdiff(base::names(base::.GlobalEnv), 1571s [00:52:51.048] ...future.globalenv.names)) 1571s [00:52:51.048] else NULL, started = ...future.startTime, version = "1.8") 1571s [00:52:51.048] }, condition = base::local({ 1571s [00:52:51.048] c <- base::c 1571s [00:52:51.048] inherits <- base::inherits 1571s [00:52:51.048] invokeRestart <- base::invokeRestart 1571s [00:52:51.048] length <- base::length 1571s [00:52:51.048] list <- base::list 1571s [00:52:51.048] seq.int <- base::seq.int 1571s [00:52:51.048] signalCondition <- base::signalCondition 1571s [00:52:51.048] sys.calls <- base::sys.calls 1571s [00:52:51.048] `[[` <- base::`[[` 1571s [00:52:51.048] `+` <- base::`+` 1571s [00:52:51.048] `<<-` <- base::`<<-` 1571s [00:52:51.048] sysCalls <- function(calls = sys.calls(), from = 1L) { 1571s [00:52:51.048] calls[seq.int(from = from + 12L, to = length(calls) - 1571s [00:52:51.048] 3L)] 1571s [00:52:51.048] } 1571s [00:52:51.048] function(cond) { 1571s [00:52:51.048] is_error <- inherits(cond, "error") 1571s [00:52:51.048] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1571s [00:52:51.048] NULL) 1571s [00:52:51.048] if (is_error) { 1571s [00:52:51.048] sessionInformation <- function() { 1571s [00:52:51.048] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1571s [00:52:51.048] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1571s [00:52:51.048] search = base::search(), system = base::Sys.info()) 1571s [00:52:51.048] } 1571s [00:52:51.048] ...future.conditions[[length(...future.conditions) + 1571s [00:52:51.048] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1571s [00:52:51.048] cond$call), session = sessionInformation(), 1571s [00:52:51.048] timestamp = base::Sys.time(), signaled = 0L) 1571s [00:52:51.048] signalCondition(cond) 1571s [00:52:51.048] } 1571s [00:52:51.048] else if (!ignore && TRUE && inherits(cond, c("condition", 1571s [00:52:51.048] "immediateCondition"))) { 1571s [00:52:51.048] signal <- TRUE && inherits(cond, "immediateCondition") 1571s [00:52:51.048] ...future.conditions[[length(...future.conditions) + 1571s [00:52:51.048] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1571s [00:52:51.048] if (TRUE && !signal) { 1571s [00:52:51.048] muffleCondition <- function (cond, pattern = "^muffle") 1571s [00:52:51.048] { 1571s [00:52:51.048] inherits <- base::inherits 1571s [00:52:51.048] invokeRestart <- base::invokeRestart 1571s [00:52:51.048] is.null <- base::is.null 1571s [00:52:51.048] muffled <- FALSE 1571s [00:52:51.048] if (inherits(cond, "message")) { 1571s [00:52:51.048] muffled <- grepl(pattern, "muffleMessage") 1571s [00:52:51.048] if (muffled) 1571s [00:52:51.048] invokeRestart("muffleMessage") 1571s [00:52:51.048] } 1571s [00:52:51.048] else if (inherits(cond, "warning")) { 1571s [00:52:51.048] muffled <- grepl(pattern, "muffleWarning") 1571s [00:52:51.048] if (muffled) 1571s [00:52:51.048] invokeRestart("muffleWarning") 1571s [00:52:51.048] } 1571s [00:52:51.048] else if (inherits(cond, "condition")) { 1571s [00:52:51.048] if (!is.null(pattern)) { 1571s [00:52:51.048] computeRestarts <- base::computeRestarts 1571s [00:52:51.048] grepl <- base::grepl 1571s [00:52:51.048] restarts <- computeRestarts(cond) 1571s [00:52:51.048] for (restart in restarts) { 1571s [00:52:51.048] name <- restart$name 1571s [00:52:51.048] if (is.null(name)) 1571s [00:52:51.048] next 1571s [00:52:51.048] if (!grepl(pattern, name)) 1571s [00:52:51.048] next 1571s [00:52:51.048] invokeRestart(restart) 1571s [00:52:51.048] muffled <- TRUE 1571s [00:52:51.048] break 1571s [00:52:51.048] } 1571s [00:52:51.048] } 1571s [00:52:51.048] } 1571s [00:52:51.048] invisible(muffled) 1571s [00:52:51.048] } 1571s [00:52:51.048] muffleCondition(cond, pattern = "^muffle") 1571s [00:52:51.048] } 1571s [00:52:51.048] } 1571s [00:52:51.048] else { 1571s [00:52:51.048] if (TRUE) { 1571s [00:52:51.048] muffleCondition <- function (cond, pattern = "^muffle") 1571s [00:52:51.048] { 1571s [00:52:51.048] inherits <- base::inherits 1571s [00:52:51.048] invokeRestart <- base::invokeRestart 1571s [00:52:51.048] is.null <- base::is.null 1571s [00:52:51.048] muffled <- FALSE 1571s [00:52:51.048] if (inherits(cond, "message")) { 1571s [00:52:51.048] muffled <- grepl(pattern, "muffleMessage") 1571s [00:52:51.048] if (muffled) 1571s [00:52:51.048] invokeRestart("muffleMessage") 1571s [00:52:51.048] } 1571s [00:52:51.048] else if (inherits(cond, "warning")) { 1571s [00:52:51.048] muffled <- grepl(pattern, "muffleWarning") 1571s [00:52:51.048] if (muffled) 1571s [00:52:51.048] invokeRestart("muffleWarning") 1571s [00:52:51.048] } 1571s [00:52:51.048] else if (inherits(cond, "condition")) { 1571s [00:52:51.048] if (!is.null(pattern)) { 1571s [00:52:51.048] computeRestarts <- base::computeRestarts 1571s [00:52:51.048] grepl <- base::grepl 1571s [00:52:51.048] restarts <- computeRestarts(cond) 1571s [00:52:51.048] for (restart in restarts) { 1571s [00:52:51.048] name <- restart$name 1571s [00:52:51.048] if (is.null(name)) 1571s [00:52:51.048] next 1571s [00:52:51.048] if (!grepl(pattern, name)) 1571s [00:52:51.048] next 1571s [00:52:51.048] invokeRestart(restart) 1571s [00:52:51.048] muffled <- TRUE 1571s [00:52:51.048] break 1571s [00:52:51.048] } 1571s [00:52:51.048] } 1571s [00:52:51.048] } 1571s [00:52:51.048] invisible(muffled) 1571s [00:52:51.048] } 1571s [00:52:51.048] muffleCondition(cond, pattern = "^muffle") 1571s [00:52:51.048] } 1571s [00:52:51.048] } 1571s [00:52:51.048] } 1571s [00:52:51.048] })) 1571s [00:52:51.048] }, error = function(ex) { 1571s [00:52:51.048] base::structure(base::list(value = NULL, visible = NULL, 1571s [00:52:51.048] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1571s [00:52:51.048] ...future.rng), started = ...future.startTime, 1571s [00:52:51.048] finished = Sys.time(), session_uuid = NA_character_, 1571s [00:52:51.048] version = "1.8"), class = "FutureResult") 1571s [00:52:51.048] }, finally = { 1571s [00:52:51.048] if (!identical(...future.workdir, getwd())) 1571s [00:52:51.048] setwd(...future.workdir) 1571s [00:52:51.048] { 1571s [00:52:51.048] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1571s [00:52:51.048] ...future.oldOptions$nwarnings <- NULL 1571s [00:52:51.048] } 1571s [00:52:51.048] base::options(...future.oldOptions) 1571s [00:52:51.048] if (.Platform$OS.type == "windows") { 1571s [00:52:51.048] old_names <- names(...future.oldEnvVars) 1571s [00:52:51.048] envs <- base::Sys.getenv() 1571s [00:52:51.048] names <- names(envs) 1571s [00:52:51.048] common <- intersect(names, old_names) 1571s [00:52:51.048] added <- setdiff(names, old_names) 1571s [00:52:51.048] removed <- setdiff(old_names, names) 1571s [00:52:51.048] changed <- common[...future.oldEnvVars[common] != 1571s [00:52:51.048] envs[common]] 1571s [00:52:51.048] NAMES <- toupper(changed) 1571s [00:52:51.048] args <- list() 1571s [00:52:51.048] for (kk in seq_along(NAMES)) { 1571s [00:52:51.048] name <- changed[[kk]] 1571s [00:52:51.048] NAME <- NAMES[[kk]] 1571s [00:52:51.048] if (name != NAME && is.element(NAME, old_names)) 1571s [00:52:51.048] next 1571s [00:52:51.048] args[[name]] <- ...future.oldEnvVars[[name]] 1571s [00:52:51.048] } 1571s [00:52:51.048] NAMES <- toupper(added) 1571s [00:52:51.048] for (kk in seq_along(NAMES)) { 1571s [00:52:51.048] name <- added[[kk]] 1571s [00:52:51.048] NAME <- NAMES[[kk]] 1571s [00:52:51.048] if (name != NAME && is.element(NAME, old_names)) 1571s [00:52:51.048] next 1571s [00:52:51.048] args[[name]] <- "" 1571s [00:52:51.048] } 1571s [00:52:51.048] NAMES <- toupper(removed) 1571s [00:52:51.048] for (kk in seq_along(NAMES)) { 1571s [00:52:51.048] name <- removed[[kk]] 1571s [00:52:51.048] NAME <- NAMES[[kk]] 1571s [00:52:51.048] if (name != NAME && is.element(NAME, old_names)) 1571s [00:52:51.048] next 1571s [00:52:51.048] args[[name]] <- ...future.oldEnvVars[[name]] 1571s [00:52:51.048] } 1571s [00:52:51.048] if (length(args) > 0) 1571s [00:52:51.048] base::do.call(base::Sys.setenv, args = args) 1571s [00:52:51.048] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1571s [00:52:51.048] } 1571s [00:52:51.048] else { 1571s [00:52:51.048] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1571s [00:52:51.048] } 1571s [00:52:51.048] { 1571s [00:52:51.048] if (base::length(...future.futureOptionsAdded) > 1571s [00:52:51.048] 0L) { 1571s [00:52:51.048] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1571s [00:52:51.048] base::names(opts) <- ...future.futureOptionsAdded 1571s [00:52:51.048] base::options(opts) 1571s [00:52:51.048] } 1571s [00:52:51.048] { 1571s [00:52:51.048] { 1571s [00:52:51.048] NULL 1571s [00:52:51.048] RNGkind("Mersenne-Twister") 1571s [00:52:51.048] base::rm(list = ".Random.seed", envir = base::globalenv(), 1571s [00:52:51.048] inherits = FALSE) 1571s [00:52:51.048] } 1571s [00:52:51.048] options(future.plan = NULL) 1571s [00:52:51.048] if (is.na(NA_character_)) 1571s [00:52:51.048] Sys.unsetenv("R_FUTURE_PLAN") 1571s [00:52:51.048] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1571s [00:52:51.048] future::plan(list(function (..., envir = parent.frame()) 1571s [00:52:51.048] { 1571s [00:52:51.048] future <- SequentialFuture(..., envir = envir) 1571s [00:52:51.048] if (!future$lazy) 1571s [00:52:51.048] future <- run(future) 1571s [00:52:51.048] invisible(future) 1571s [00:52:51.048] }), .cleanup = FALSE, .init = FALSE) 1571s [00:52:51.048] } 1571s [00:52:51.048] } 1571s [00:52:51.048] } 1571s [00:52:51.048] }) 1571s [00:52:51.048] if (TRUE) { 1571s [00:52:51.048] base::sink(type = "output", split = FALSE) 1571s [00:52:51.048] if (TRUE) { 1571s [00:52:51.048] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1571s [00:52:51.048] } 1571s [00:52:51.048] else { 1571s [00:52:51.048] ...future.result["stdout"] <- base::list(NULL) 1571s [00:52:51.048] } 1571s [00:52:51.048] base::close(...future.stdout) 1571s [00:52:51.048] ...future.stdout <- NULL 1571s [00:52:51.048] } 1571s [00:52:51.048] ...future.result$conditions <- ...future.conditions 1571s [00:52:51.048] ...future.result$finished <- base::Sys.time() 1571s [00:52:51.048] ...future.result 1571s [00:52:51.048] } 1571s [00:52:51.055] assign_globals() ... 1571s [00:52:51.055] List of 5 1571s [00:52:51.055] $ ...future.FUN :function (x, ...) 1571s [00:52:51.055] $ future.call.arguments : list() 1571s [00:52:51.055] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1571s [00:52:51.055] $ ...future.elements_ii :List of 3 1571s [00:52:51.055] ..$ : chr "a" 1571s [00:52:51.055] ..$ : chr "b" 1571s [00:52:51.055] ..$ : chr "c" 1571s [00:52:51.055] $ ...future.seeds_ii : NULL 1571s [00:52:51.055] $ ...future.globals.maxSize: NULL 1571s [00:52:51.055] - attr(*, "where")=List of 5 1571s [00:52:51.055] ..$ ...future.FUN : 1571s [00:52:51.055] ..$ future.call.arguments : 1571s [00:52:51.055] ..$ ...future.elements_ii : 1571s [00:52:51.055] ..$ ...future.seeds_ii : 1571s [00:52:51.055] ..$ ...future.globals.maxSize: 1571s [00:52:51.055] - attr(*, "resolved")= logi FALSE 1571s [00:52:51.055] - attr(*, "total_size")= num 1248 1571s [00:52:51.055] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1571s [00:52:51.055] - attr(*, "already-done")= logi TRUE 1571s [00:52:51.062] - copied ‘...future.FUN’ to environment 1571s [00:52:51.062] - copied ‘future.call.arguments’ to environment 1571s [00:52:51.062] - copied ‘...future.elements_ii’ to environment 1571s [00:52:51.062] - copied ‘...future.seeds_ii’ to environment 1571s [00:52:51.062] - copied ‘...future.globals.maxSize’ to environment 1571s [00:52:51.062] assign_globals() ... done 1571s [00:52:51.063] plan(): Setting new future strategy stack: 1571s [00:52:51.063] List of future strategies: 1571s [00:52:51.063] 1. sequential: 1571s [00:52:51.063] - args: function (..., envir = parent.frame()) 1571s [00:52:51.063] - tweaked: FALSE 1571s [00:52:51.063] - call: NULL 1571s [00:52:51.063] plan(): nbrOfWorkers() = 1 1571s [00:52:51.064] plan(): Setting new future strategy stack: 1571s [00:52:51.064] List of future strategies: 1571s [00:52:51.064] 1. sequential: 1571s [00:52:51.064] - args: function (..., envir = parent.frame()) 1571s [00:52:51.064] - tweaked: FALSE 1571s [00:52:51.064] - call: plan(strategy) 1571s [00:52:51.065] plan(): nbrOfWorkers() = 1 1571s [00:52:51.065] SequentialFuture started (and completed) 1571s [00:52:51.065] - Launch lazy future ... done 1571s [00:52:51.065] run() for ‘SequentialFuture’ ... done 1571s [00:52:51.066] Created future: 1571s [00:52:51.066] SequentialFuture: 1571s [00:52:51.066] Label: ‘future_sapply-1’ 1571s [00:52:51.066] Expression: 1571s [00:52:51.066] { 1571s [00:52:51.066] do.call(function(...) { 1571s [00:52:51.066] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1571s [00:52:51.066] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1571s [00:52:51.066] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1571s [00:52:51.066] on.exit(options(oopts), add = TRUE) 1571s [00:52:51.066] } 1571s [00:52:51.066] { 1571s [00:52:51.066] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1571s [00:52:51.066] ...future.X_jj <- ...future.elements_ii[[jj]] 1571s [00:52:51.066] ...future.FUN(...future.X_jj, ...) 1571s [00:52:51.066] }) 1571s [00:52:51.066] } 1571s [00:52:51.066] }, args = future.call.arguments) 1571s [00:52:51.066] } 1571s [00:52:51.066] Lazy evaluation: FALSE 1571s [00:52:51.066] Asynchronous evaluation: FALSE 1571s [00:52:51.066] Local evaluation: TRUE 1571s [00:52:51.066] Environment: R_GlobalEnv 1571s [00:52:51.066] Capture standard output: TRUE 1571s [00:52:51.066] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1571s [00:52:51.066] Globals: 5 objects totaling 1.55 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1571s [00:52:51.066] Packages: 1571s [00:52:51.066] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1571s [00:52:51.066] Resolved: TRUE 1571s [00:52:51.066] Value: 840 bytes of class ‘list’ 1571s [00:52:51.066] Early signaling: FALSE 1571s [00:52:51.066] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1571s [00:52:51.066] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1571s [00:52:51.068] Chunk #1 of 1 ... DONE 1571s [00:52:51.068] Launching 1 futures (chunks) ... DONE 1571s [00:52:51.068] Resolving 1 futures (chunks) ... 1571s [00:52:51.068] resolve() on list ... 1571s [00:52:51.069] recursive: 0 1571s [00:52:51.069] length: 1 1571s [00:52:51.069] 1571s [00:52:51.069] resolved() for ‘SequentialFuture’ ... 1571s [00:52:51.073] - state: ‘finished’ 1571s [00:52:51.073] - run: TRUE 1571s [00:52:51.073] - result: ‘FutureResult’ 1571s [00:52:51.074] resolved() for ‘SequentialFuture’ ... done 1571s [00:52:51.074] Future #1 1571s [00:52:51.074] signalConditionsASAP(SequentialFuture, pos=1) ... 1571s [00:52:51.074] - nx: 1 1571s [00:52:51.075] - relay: TRUE 1571s [00:52:51.075] - stdout: TRUE 1571s [00:52:51.075] - signal: TRUE 1571s [00:52:51.075] - resignal: FALSE 1571s [00:52:51.076] - force: TRUE 1571s [00:52:51.076] - relayed: [n=1] FALSE 1571s [00:52:51.076] - queued futures: [n=1] FALSE 1571s [00:52:51.077] - until=1 1571s [00:52:51.077] - relaying element #1 1571s [00:52:51.077] - relayed: [n=1] TRUE 1571s [00:52:51.077] - queued futures: [n=1] TRUE 1571s [00:52:51.078] signalConditionsASAP(SequentialFuture, pos=1) ... done 1571s [00:52:51.078] length: 0 (resolved future 1) 1571s [00:52:51.078] Relaying remaining futures 1571s [00:52:51.078] signalConditionsASAP(NULL, pos=0) ... 1571s [00:52:51.078] - nx: 1 1571s [00:52:51.078] - relay: TRUE 1571s [00:52:51.079] - stdout: TRUE 1571s [00:52:51.079] - signal: TRUE 1571s [00:52:51.079] - resignal: FALSE 1571s [00:52:51.079] - force: TRUE 1571s [00:52:51.079] - relayed: [n=1] TRUE 1571s [00:52:51.079] - queued futures: [n=1] TRUE 1571s - flush all 1571s [00:52:51.079] - relayed: [n=1] TRUE 1571s [00:52:51.080] - queued futures: [n=1] TRUE 1571s [00:52:51.080] signalConditionsASAP(NULL, pos=0) ... done 1571s [00:52:51.080] resolve() on list ... DONE 1571s [00:52:51.081] - Number of value chunks collected: 1 1571s [00:52:51.081] Resolving 1 futures (chunks) ... DONE 1571s [00:52:51.081] Reducing values from 1 chunks ... 1571s [00:52:51.082] - Number of values collected after concatenation: 3 1571s [00:52:51.082] - Number of values expected: 3 1571s [00:52:51.082] Reducing values from 1 chunks ... DONE 1571s [00:52:51.082] future_lapply() ... DONE 1571s List of 2 1571s $ y0: Named chr [1:3] "a" "b" "c" 1571s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1571s $ y1: Named chr [1:3] "a" "b" "c" 1571s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1571s [00:52:51.086] future_lapply() ... 1571s [00:52:51.087] Number of chunks: 1 1571s [00:52:51.088] getGlobalsAndPackagesXApply() ... 1571s [00:52:51.089] - future.globals: TRUE 1571s [00:52:51.089] getGlobalsAndPackages() ... 1571s [00:52:51.089] Searching for globals... 1571s [00:52:51.093] - globals found: [1] ‘FUN’ 1571s [00:52:51.093] Searching for globals ... DONE 1571s [00:52:51.094] Resolving globals: FALSE 1571s [00:52:51.094] The total size of the 1 globals is 848 bytes (848 bytes) 1571s [00:52:51.095] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1571s [00:52:51.095] - globals: [1] ‘FUN’ 1571s [00:52:51.096] 1571s [00:52:51.097] getGlobalsAndPackages() ... DONE 1571s [00:52:51.098] - globals found/used: [n=1] ‘FUN’ 1571s [00:52:51.098] - needed namespaces: [n=0] 1571s [00:52:51.099] Finding globals ... DONE 1571s [00:52:51.099] - use_args: TRUE 1571s [00:52:51.100] - Getting '...' globals ... 1571s [00:52:51.100] resolve() on list ... 1571s [00:52:51.100] recursive: 0 1571s [00:52:51.100] length: 1 1571s [00:52:51.101] elements: ‘...’ 1571s [00:52:51.101] length: 0 (resolved future 1) 1571s [00:52:51.101] resolve() on list ... DONE 1571s [00:52:51.101] - '...' content: [n=0] 1571s [00:52:51.101] List of 1 1571s [00:52:51.101] $ ...: list() 1571s [00:52:51.101] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1571s [00:52:51.101] - attr(*, "where")=List of 1 1571s [00:52:51.101] ..$ ...: 1571s [00:52:51.101] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1571s [00:52:51.101] - attr(*, "resolved")= logi TRUE 1571s [00:52:51.101] - attr(*, "total_size")= num NA 1571s [00:52:51.107] - Getting '...' globals ... DONE 1571s [00:52:51.107] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1571s [00:52:51.107] List of 2 1571s [00:52:51.107] $ ...future.FUN:function (x) 1571s [00:52:51.107] $ ... : list() 1571s [00:52:51.107] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1571s [00:52:51.107] - attr(*, "where")=List of 2 1571s [00:52:51.107] ..$ ...future.FUN: 1571s [00:52:51.107] ..$ ... : 1571s [00:52:51.107] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1571s [00:52:51.107] - attr(*, "resolved")= logi FALSE 1571s [00:52:51.107] - attr(*, "total_size")= num 848 1571s [00:52:51.113] Packages to be attached in all futures: [n=0] 1571s [00:52:51.113] getGlobalsAndPackagesXApply() ... DONE 1571s [00:52:51.114] Number of futures (= number of chunks): 1 1571s [00:52:51.114] Launching 1 futures (chunks) ... 1571s [00:52:51.114] Chunk #1 of 1 ... 1571s [00:52:51.115] - Finding globals in 'X' for chunk #1 ... 1571s [00:52:51.115] getGlobalsAndPackages() ... 1571s [00:52:51.115] Searching for globals... 1571s [00:52:51.116] 1571s [00:52:51.116] Searching for globals ... DONE 1571s [00:52:51.116] - globals: [0] 1571s [00:52:51.116] getGlobalsAndPackages() ... DONE 1571s [00:52:51.117] + additional globals found: [n=0] 1571s [00:52:51.117] + additional namespaces needed: [n=0] 1571s [00:52:51.117] - Finding globals in 'X' for chunk #1 ... DONE 1571s [00:52:51.117] - seeds: 1571s [00:52:51.117] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1571s [00:52:51.118] getGlobalsAndPackages() ... 1571s [00:52:51.118] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1571s [00:52:51.118] Resolving globals: FALSE 1571s [00:52:51.118] Tweak future expression to call with '...' arguments ... 1571s [00:52:51.119] { 1571s [00:52:51.119] do.call(function(...) { 1571s [00:52:51.119] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1571s [00:52:51.119] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1571s [00:52:51.119] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1571s [00:52:51.119] on.exit(options(oopts), add = TRUE) 1571s [00:52:51.119] } 1571s [00:52:51.119] { 1571s [00:52:51.119] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1571s [00:52:51.119] ...future.X_jj <- ...future.elements_ii[[jj]] 1571s [00:52:51.119] ...future.FUN(...future.X_jj, ...) 1571s [00:52:51.119] }) 1571s [00:52:51.119] } 1571s [00:52:51.119] }, args = future.call.arguments) 1571s [00:52:51.119] } 1571s [00:52:51.120] Tweak future expression to call with '...' arguments ... DONE 1571s [00:52:51.121] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1571s [00:52:51.121] 1571s [00:52:51.121] getGlobalsAndPackages() ... DONE 1571s [00:52:51.122] run() for ‘Future’ ... 1571s [00:52:51.122] - state: ‘created’ 1571s [00:52:51.123] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1571s [00:52:51.124] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1571s [00:52:51.124] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1571s [00:52:51.125] - Field: ‘label’ 1571s [00:52:51.126] - Field: ‘local’ 1571s [00:52:51.127] - Field: ‘owner’ 1571s [00:52:51.127] - Field: ‘envir’ 1571s [00:52:51.127] - Field: ‘packages’ 1571s [00:52:51.130] - Field: ‘gc’ 1571s [00:52:51.130] - Field: ‘conditions’ 1571s [00:52:51.131] - Field: ‘expr’ 1571s [00:52:51.131] - Field: ‘uuid’ 1571s [00:52:51.131] - Field: ‘seed’ 1571s [00:52:51.131] - Field: ‘version’ 1571s [00:52:51.131] - Field: ‘result’ 1571s [00:52:51.131] - Field: ‘asynchronous’ 1571s [00:52:51.132] - Field: ‘calls’ 1571s [00:52:51.132] - Field: ‘globals’ 1571s [00:52:51.132] - Field: ‘stdout’ 1571s [00:52:51.132] - Field: ‘earlySignal’ 1571s [00:52:51.132] - Field: ‘lazy’ 1571s [00:52:51.133] - Field: ‘state’ 1571s [00:52:51.133] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1571s [00:52:51.133] - Launch lazy future ... 1571s [00:52:51.133] Packages needed by the future expression (n = 0): 1571s [00:52:51.133] Packages needed by future strategies (n = 0): 1571s [00:52:51.134] { 1571s [00:52:51.134] { 1571s [00:52:51.134] { 1571s [00:52:51.134] ...future.startTime <- base::Sys.time() 1571s [00:52:51.134] { 1571s [00:52:51.134] { 1571s [00:52:51.134] { 1571s [00:52:51.134] base::local({ 1571s [00:52:51.134] has_future <- base::requireNamespace("future", 1571s [00:52:51.134] quietly = TRUE) 1571s [00:52:51.134] if (has_future) { 1571s [00:52:51.134] ns <- base::getNamespace("future") 1571s [00:52:51.134] version <- ns[[".package"]][["version"]] 1571s [00:52:51.134] if (is.null(version)) 1571s [00:52:51.134] version <- utils::packageVersion("future") 1571s [00:52:51.134] } 1571s [00:52:51.134] else { 1571s [00:52:51.134] version <- NULL 1571s [00:52:51.134] } 1571s [00:52:51.134] if (!has_future || version < "1.8.0") { 1571s [00:52:51.134] info <- base::c(r_version = base::gsub("R version ", 1571s [00:52:51.134] "", base::R.version$version.string), 1571s [00:52:51.134] platform = base::sprintf("%s (%s-bit)", 1571s [00:52:51.134] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1571s [00:52:51.134] os = base::paste(base::Sys.info()[base::c("sysname", 1571s [00:52:51.134] "release", "version")], collapse = " "), 1571s [00:52:51.134] hostname = base::Sys.info()[["nodename"]]) 1571s [00:52:51.134] info <- base::sprintf("%s: %s", base::names(info), 1571s [00:52:51.134] info) 1571s [00:52:51.134] info <- base::paste(info, collapse = "; ") 1571s [00:52:51.134] if (!has_future) { 1571s [00:52:51.134] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1571s [00:52:51.134] info) 1571s [00:52:51.134] } 1571s [00:52:51.134] else { 1571s [00:52:51.134] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1571s [00:52:51.134] info, version) 1571s [00:52:51.134] } 1571s [00:52:51.134] base::stop(msg) 1571s [00:52:51.134] } 1571s [00:52:51.134] }) 1571s [00:52:51.134] } 1571s [00:52:51.134] options(future.plan = NULL) 1571s [00:52:51.134] Sys.unsetenv("R_FUTURE_PLAN") 1571s [00:52:51.134] future::plan("default", .cleanup = FALSE, .init = FALSE) 1571s [00:52:51.134] } 1571s [00:52:51.134] ...future.workdir <- getwd() 1571s [00:52:51.134] } 1571s [00:52:51.134] ...future.oldOptions <- base::as.list(base::.Options) 1571s [00:52:51.134] ...future.oldEnvVars <- base::Sys.getenv() 1571s [00:52:51.134] } 1571s [00:52:51.134] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1571s [00:52:51.134] future.globals.maxSize = NULL, future.globals.method = NULL, 1571s [00:52:51.134] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1571s [00:52:51.134] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1571s [00:52:51.134] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1571s [00:52:51.134] future.stdout.windows.reencode = NULL, width = 80L) 1571s [00:52:51.134] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1571s [00:52:51.134] base::names(...future.oldOptions)) 1571s [00:52:51.134] } 1571s [00:52:51.134] if (FALSE) { 1571s [00:52:51.134] } 1571s [00:52:51.134] else { 1571s [00:52:51.134] if (TRUE) { 1571s [00:52:51.134] ...future.stdout <- base::rawConnection(base::raw(0L), 1571s [00:52:51.134] open = "w") 1571s [00:52:51.134] } 1571s [00:52:51.134] else { 1571s [00:52:51.134] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1571s [00:52:51.134] windows = "NUL", "/dev/null"), open = "w") 1571s [00:52:51.134] } 1571s [00:52:51.134] base::sink(...future.stdout, type = "output", split = FALSE) 1571s [00:52:51.134] base::on.exit(if (!base::is.null(...future.stdout)) { 1571s [00:52:51.134] base::sink(type = "output", split = FALSE) 1571s [00:52:51.134] base::close(...future.stdout) 1571s [00:52:51.134] }, add = TRUE) 1571s [00:52:51.134] } 1571s [00:52:51.134] ...future.frame <- base::sys.nframe() 1571s [00:52:51.134] ...future.conditions <- base::list() 1571s [00:52:51.134] ...future.rng <- base::globalenv()$.Random.seed 1571s [00:52:51.134] if (FALSE) { 1571s [00:52:51.134] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1571s [00:52:51.134] "...future.value", "...future.globalenv.names", ".Random.seed") 1571s [00:52:51.134] } 1571s [00:52:51.134] ...future.result <- base::tryCatch({ 1571s [00:52:51.134] base::withCallingHandlers({ 1571s [00:52:51.134] ...future.value <- base::withVisible(base::local({ 1571s [00:52:51.134] do.call(function(...) { 1571s [00:52:51.134] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1571s [00:52:51.134] if (!identical(...future.globals.maxSize.org, 1571s [00:52:51.134] ...future.globals.maxSize)) { 1571s [00:52:51.134] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1571s [00:52:51.134] on.exit(options(oopts), add = TRUE) 1571s [00:52:51.134] } 1571s [00:52:51.134] { 1571s [00:52:51.134] lapply(seq_along(...future.elements_ii), 1571s [00:52:51.134] FUN = function(jj) { 1571s [00:52:51.134] ...future.X_jj <- ...future.elements_ii[[jj]] 1571s [00:52:51.134] ...future.FUN(...future.X_jj, ...) 1571s [00:52:51.134] }) 1571s [00:52:51.134] } 1571s [00:52:51.134] }, args = future.call.arguments) 1571s [00:52:51.134] })) 1571s [00:52:51.134] future::FutureResult(value = ...future.value$value, 1571s [00:52:51.134] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1571s [00:52:51.134] ...future.rng), globalenv = if (FALSE) 1571s [00:52:51.134] list(added = base::setdiff(base::names(base::.GlobalEnv), 1571s [00:52:51.134] ...future.globalenv.names)) 1571s [00:52:51.134] else NULL, started = ...future.startTime, version = "1.8") 1571s [00:52:51.134] }, condition = base::local({ 1571s [00:52:51.134] c <- base::c 1571s [00:52:51.134] inherits <- base::inherits 1571s [00:52:51.134] invokeRestart <- base::invokeRestart 1571s [00:52:51.134] length <- base::length 1571s [00:52:51.134] list <- base::list 1571s [00:52:51.134] seq.int <- base::seq.int 1571s [00:52:51.134] signalCondition <- base::signalCondition 1571s [00:52:51.134] sys.calls <- base::sys.calls 1571s [00:52:51.134] `[[` <- base::`[[` 1571s [00:52:51.134] `+` <- base::`+` 1571s [00:52:51.134] `<<-` <- base::`<<-` 1571s [00:52:51.134] sysCalls <- function(calls = sys.calls(), from = 1L) { 1571s [00:52:51.134] calls[seq.int(from = from + 12L, to = length(calls) - 1571s [00:52:51.134] 3L)] 1571s [00:52:51.134] } 1571s [00:52:51.134] function(cond) { 1571s [00:52:51.134] is_error <- inherits(cond, "error") 1571s [00:52:51.134] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1571s [00:52:51.134] NULL) 1571s [00:52:51.134] if (is_error) { 1571s [00:52:51.134] sessionInformation <- function() { 1571s [00:52:51.134] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1571s [00:52:51.134] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1571s [00:52:51.134] search = base::search(), system = base::Sys.info()) 1571s [00:52:51.134] } 1571s [00:52:51.134] ...future.conditions[[length(...future.conditions) + 1571s [00:52:51.134] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1571s [00:52:51.134] cond$call), session = sessionInformation(), 1571s [00:52:51.134] timestamp = base::Sys.time(), signaled = 0L) 1571s [00:52:51.134] signalCondition(cond) 1571s [00:52:51.134] } 1571s [00:52:51.134] else if (!ignore && TRUE && inherits(cond, c("condition", 1571s [00:52:51.134] "immediateCondition"))) { 1571s [00:52:51.134] signal <- TRUE && inherits(cond, "immediateCondition") 1571s [00:52:51.134] ...future.conditions[[length(...future.conditions) + 1571s [00:52:51.134] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1571s [00:52:51.134] if (TRUE && !signal) { 1571s [00:52:51.134] muffleCondition <- function (cond, pattern = "^muffle") 1571s [00:52:51.134] { 1571s [00:52:51.134] inherits <- base::inherits 1571s [00:52:51.134] invokeRestart <- base::invokeRestart 1571s [00:52:51.134] is.null <- base::is.null 1571s [00:52:51.134] muffled <- FALSE 1571s [00:52:51.134] if (inherits(cond, "message")) { 1571s [00:52:51.134] muffled <- grepl(pattern, "muffleMessage") 1571s [00:52:51.134] if (muffled) 1571s [00:52:51.134] invokeRestart("muffleMessage") 1571s [00:52:51.134] } 1571s [00:52:51.134] else if (inherits(cond, "warning")) { 1571s [00:52:51.134] muffled <- grepl(pattern, "muffleWarning") 1571s [00:52:51.134] if (muffled) 1571s [00:52:51.134] invokeRestart("muffleWarning") 1571s [00:52:51.134] } 1571s [00:52:51.134] else if (inherits(cond, "condition")) { 1571s [00:52:51.134] if (!is.null(pattern)) { 1571s [00:52:51.134] computeRestarts <- base::computeRestarts 1571s [00:52:51.134] grepl <- base::grepl 1571s [00:52:51.134] restarts <- computeRestarts(cond) 1571s [00:52:51.134] for (restart in restarts) { 1571s [00:52:51.134] name <- restart$name 1571s [00:52:51.134] if (is.null(name)) 1571s [00:52:51.134] next 1571s [00:52:51.134] if (!grepl(pattern, name)) 1571s [00:52:51.134] next 1571s [00:52:51.134] invokeRestart(restart) 1571s [00:52:51.134] muffled <- TRUE 1571s [00:52:51.134] break 1571s [00:52:51.134] } 1571s [00:52:51.134] } 1571s [00:52:51.134] } 1571s [00:52:51.134] invisible(muffled) 1571s [00:52:51.134] } 1571s [00:52:51.134] muffleCondition(cond, pattern = "^muffle") 1571s [00:52:51.134] } 1571s [00:52:51.134] } 1571s [00:52:51.134] else { 1571s [00:52:51.134] if (TRUE) { 1571s [00:52:51.134] muffleCondition <- function (cond, pattern = "^muffle") 1571s [00:52:51.134] { 1571s [00:52:51.134] inherits <- base::inherits 1571s [00:52:51.134] invokeRestart <- base::invokeRestart 1571s [00:52:51.134] is.null <- base::is.null 1571s [00:52:51.134] muffled <- FALSE 1571s [00:52:51.134] if (inherits(cond, "message")) { 1571s [00:52:51.134] muffled <- grepl(pattern, "muffleMessage") 1571s [00:52:51.134] if (muffled) 1571s [00:52:51.134] invokeRestart("muffleMessage") 1571s [00:52:51.134] } 1571s [00:52:51.134] else if (inherits(cond, "warning")) { 1571s [00:52:51.134] muffled <- grepl(pattern, "muffleWarning") 1571s [00:52:51.134] if (muffled) 1571s [00:52:51.134] invokeRestart("muffleWarning") 1571s [00:52:51.134] } 1571s [00:52:51.134] else if (inherits(cond, "condition")) { 1571s [00:52:51.134] if (!is.null(pattern)) { 1571s [00:52:51.134] computeRestarts <- base::computeRestarts 1571s [00:52:51.134] grepl <- base::grepl 1571s [00:52:51.134] restarts <- computeRestarts(cond) 1571s [00:52:51.134] for (restart in restarts) { 1571s [00:52:51.134] name <- restart$name 1571s [00:52:51.134] if (is.null(name)) 1571s [00:52:51.134] next 1571s [00:52:51.134] if (!grepl(pattern, name)) 1571s [00:52:51.134] next 1571s [00:52:51.134] invokeRestart(restart) 1571s [00:52:51.134] muffled <- TRUE 1571s [00:52:51.134] break 1571s [00:52:51.134] } 1571s [00:52:51.134] } 1571s [00:52:51.134] } 1571s [00:52:51.134] invisible(muffled) 1571s [00:52:51.134] } 1571s [00:52:51.134] muffleCondition(cond, pattern = "^muffle") 1571s [00:52:51.134] } 1571s [00:52:51.134] } 1571s [00:52:51.134] } 1571s [00:52:51.134] })) 1571s [00:52:51.134] }, error = function(ex) { 1571s [00:52:51.134] base::structure(base::list(value = NULL, visible = NULL, 1571s [00:52:51.134] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1571s [00:52:51.134] ...future.rng), started = ...future.startTime, 1571s [00:52:51.134] finished = Sys.time(), session_uuid = NA_character_, 1571s [00:52:51.134] version = "1.8"), class = "FutureResult") 1571s [00:52:51.134] }, finally = { 1571s [00:52:51.134] if (!identical(...future.workdir, getwd())) 1571s [00:52:51.134] setwd(...future.workdir) 1571s [00:52:51.134] { 1571s [00:52:51.134] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1571s [00:52:51.134] ...future.oldOptions$nwarnings <- NULL 1571s [00:52:51.134] } 1571s [00:52:51.134] base::options(...future.oldOptions) 1571s [00:52:51.134] if (.Platform$OS.type == "windows") { 1571s [00:52:51.134] old_names <- names(...future.oldEnvVars) 1571s [00:52:51.134] envs <- base::Sys.getenv() 1571s [00:52:51.134] names <- names(envs) 1571s [00:52:51.134] common <- intersect(names, old_names) 1571s [00:52:51.134] added <- setdiff(names, old_names) 1571s [00:52:51.134] removed <- setdiff(old_names, names) 1571s [00:52:51.134] changed <- common[...future.oldEnvVars[common] != 1571s [00:52:51.134] envs[common]] 1571s [00:52:51.134] NAMES <- toupper(changed) 1571s [00:52:51.134] args <- list() 1571s [00:52:51.134] for (kk in seq_along(NAMES)) { 1571s [00:52:51.134] name <- changed[[kk]] 1571s [00:52:51.134] NAME <- NAMES[[kk]] 1571s [00:52:51.134] if (name != NAME && is.element(NAME, old_names)) 1571s [00:52:51.134] next 1571s [00:52:51.134] args[[name]] <- ...future.oldEnvVars[[name]] 1571s [00:52:51.134] } 1571s [00:52:51.134] NAMES <- toupper(added) 1571s [00:52:51.134] for (kk in seq_along(NAMES)) { 1571s [00:52:51.134] name <- added[[kk]] 1571s [00:52:51.134] NAME <- NAMES[[kk]] 1571s [00:52:51.134] if (name != NAME && is.element(NAME, old_names)) 1571s [00:52:51.134] next 1571s [00:52:51.134] args[[name]] <- "" 1571s [00:52:51.134] } 1571s [00:52:51.134] NAMES <- toupper(removed) 1571s [00:52:51.134] for (kk in seq_along(NAMES)) { 1571s [00:52:51.134] name <- removed[[kk]] 1571s [00:52:51.134] NAME <- NAMES[[kk]] 1571s [00:52:51.134] if (name != NAME && is.element(NAME, old_names)) 1571s [00:52:51.134] next 1571s [00:52:51.134] args[[name]] <- ...future.oldEnvVars[[name]] 1571s [00:52:51.134] } 1571s [00:52:51.134] if (length(args) > 0) 1571s [00:52:51.134] base::do.call(base::Sys.setenv, args = args) 1571s [00:52:51.134] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1571s [00:52:51.134] } 1571s [00:52:51.134] else { 1571s [00:52:51.134] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1571s [00:52:51.134] } 1571s [00:52:51.134] { 1571s [00:52:51.134] if (base::length(...future.futureOptionsAdded) > 1571s [00:52:51.134] 0L) { 1571s [00:52:51.134] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1571s [00:52:51.134] base::names(opts) <- ...future.futureOptionsAdded 1571s [00:52:51.134] base::options(opts) 1571s [00:52:51.134] } 1571s [00:52:51.134] { 1571s [00:52:51.134] { 1571s [00:52:51.134] NULL 1571s [00:52:51.134] RNGkind("Mersenne-Twister") 1571s [00:52:51.134] base::rm(list = ".Random.seed", envir = base::globalenv(), 1571s [00:52:51.134] inherits = FALSE) 1571s [00:52:51.134] } 1571s [00:52:51.134] options(future.plan = NULL) 1571s [00:52:51.134] if (is.na(NA_character_)) 1571s [00:52:51.134] Sys.unsetenv("R_FUTURE_PLAN") 1571s [00:52:51.134] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1571s [00:52:51.134] future::plan(list(function (..., envir = parent.frame()) 1571s [00:52:51.134] { 1571s [00:52:51.134] future <- SequentialFuture(..., envir = envir) 1571s [00:52:51.134] if (!future$lazy) 1571s [00:52:51.134] future <- run(future) 1571s [00:52:51.134] invisible(future) 1571s [00:52:51.134] }), .cleanup = FALSE, .init = FALSE) 1571s [00:52:51.134] } 1571s [00:52:51.134] } 1571s [00:52:51.134] } 1571s [00:52:51.134] }) 1571s [00:52:51.134] if (TRUE) { 1571s [00:52:51.134] base::sink(type = "output", split = FALSE) 1571s [00:52:51.134] if (TRUE) { 1571s [00:52:51.134] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1571s [00:52:51.134] } 1571s [00:52:51.134] else { 1571s [00:52:51.134] ...future.result["stdout"] <- base::list(NULL) 1571s [00:52:51.134] } 1571s [00:52:51.134] base::close(...future.stdout) 1571s [00:52:51.134] ...future.stdout <- NULL 1571s [00:52:51.134] } 1571s [00:52:51.134] ...future.result$conditions <- ...future.conditions 1571s [00:52:51.134] ...future.result$finished <- base::Sys.time() 1571s [00:52:51.134] ...future.result 1571s [00:52:51.134] } 1571s [00:52:51.137] assign_globals() ... 1571s [00:52:51.137] List of 5 1571s [00:52:51.137] $ ...future.FUN :function (x) 1571s [00:52:51.137] $ future.call.arguments : list() 1571s [00:52:51.137] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1571s [00:52:51.137] $ ...future.elements_ii :List of 3 1571s [00:52:51.137] ..$ : chr "a" 1571s [00:52:51.137] ..$ : chr "b" 1571s [00:52:51.137] ..$ : chr "c" 1571s [00:52:51.137] $ ...future.seeds_ii : NULL 1571s [00:52:51.137] $ ...future.globals.maxSize: NULL 1571s [00:52:51.137] - attr(*, "where")=List of 5 1571s [00:52:51.137] ..$ ...future.FUN : 1571s [00:52:51.137] ..$ future.call.arguments : 1571s [00:52:51.137] ..$ ...future.elements_ii : 1571s [00:52:51.137] ..$ ...future.seeds_ii : 1571s [00:52:51.137] ..$ ...future.globals.maxSize: 1571s [00:52:51.137] - attr(*, "resolved")= logi FALSE 1571s [00:52:51.137] - attr(*, "total_size")= num 848 1571s [00:52:51.137] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1571s [00:52:51.137] - attr(*, "already-done")= logi TRUE 1571s [00:52:51.147] - copied ‘...future.FUN’ to environment 1571s [00:52:51.147] - copied ‘future.call.arguments’ to environment 1571s [00:52:51.147] - copied ‘...future.elements_ii’ to environment 1571s [00:52:51.148] - copied ‘...future.seeds_ii’ to environment 1571s [00:52:51.148] - copied ‘...future.globals.maxSize’ to environment 1571s [00:52:51.148] assign_globals() ... done 1571s [00:52:51.149] plan(): Setting new future strategy stack: 1571s [00:52:51.149] List of future strategies: 1571s [00:52:51.149] 1. sequential: 1571s [00:52:51.149] - args: function (..., envir = parent.frame()) 1571s [00:52:51.149] - tweaked: FALSE 1571s [00:52:51.149] - call: NULL 1571s [00:52:51.150] plan(): nbrOfWorkers() = 1 1571s [00:52:51.151] plan(): Setting new future strategy stack: 1571s [00:52:51.151] List of future strategies: 1571s [00:52:51.151] 1. sequential: 1571s [00:52:51.151] - args: function (..., envir = parent.frame()) 1571s [00:52:51.151] - tweaked: FALSE 1571s [00:52:51.151] - call: plan(strategy) 1571s [00:52:51.151] plan(): nbrOfWorkers() = 1 1571s [00:52:51.152] SequentialFuture started (and completed) 1571s [00:52:51.152] - Launch lazy future ... done 1571s [00:52:51.152] run() for ‘SequentialFuture’ ... done 1571s [00:52:51.152] Created future: 1571s [00:52:51.153] SequentialFuture: 1571s [00:52:51.153] Label: ‘future_sapply-1’ 1571s [00:52:51.153] Expression: 1571s [00:52:51.153] { 1571s [00:52:51.153] do.call(function(...) { 1571s [00:52:51.153] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1571s [00:52:51.153] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1571s [00:52:51.153] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1571s [00:52:51.153] on.exit(options(oopts), add = TRUE) 1571s [00:52:51.153] } 1571s [00:52:51.153] { 1571s [00:52:51.153] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1571s [00:52:51.153] ...future.X_jj <- ...future.elements_ii[[jj]] 1571s [00:52:51.153] ...future.FUN(...future.X_jj, ...) 1571s [00:52:51.153] }) 1571s [00:52:51.153] } 1571s [00:52:51.153] }, args = future.call.arguments) 1571s [00:52:51.153] } 1571s [00:52:51.153] Lazy evaluation: FALSE 1571s [00:52:51.153] Asynchronous evaluation: FALSE 1571s [00:52:51.153] Local evaluation: TRUE 1571s [00:52:51.153] Environment: R_GlobalEnv 1571s [00:52:51.153] Capture standard output: TRUE 1571s [00:52:51.153] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1571s [00:52:51.153] Globals: 5 objects totaling 1.16 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1571s [00:52:51.153] Packages: 1571s [00:52:51.153] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1571s [00:52:51.153] Resolved: TRUE 1571s [00:52:51.153] Value: 336 bytes of class ‘list’ 1571s [00:52:51.153] Early signaling: FALSE 1571s [00:52:51.153] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1571s [00:52:51.153] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1571s [00:52:51.155] Chunk #1 of 1 ... DONE 1571s [00:52:51.155] Launching 1 futures (chunks) ... DONE 1571s [00:52:51.155] Resolving 1 futures (chunks) ... 1571s [00:52:51.155] resolve() on list ... 1571s [00:52:51.155] recursive: 0 1571s [00:52:51.156] length: 1 1571s [00:52:51.156] 1571s [00:52:51.156] resolved() for ‘SequentialFuture’ ... 1571s [00:52:51.156] - state: ‘finished’ 1571s [00:52:51.156] - run: TRUE 1571s [00:52:51.156] - result: ‘FutureResult’ 1571s [00:52:51.156] resolved() for ‘SequentialFuture’ ... done 1571s [00:52:51.157] Future #1 1571s [00:52:51.157] signalConditionsASAP(SequentialFuture, pos=1) ... 1571s [00:52:51.157] - nx: 1 1571s [00:52:51.158] - relay: TRUE 1571s [00:52:51.158] - stdout: TRUE 1571s [00:52:51.158] - signal: TRUE 1571s [00:52:51.158] - resignal: FALSE 1571s [00:52:51.158] - force: TRUE 1571s [00:52:51.158] - relayed: [n=1] FALSE 1571s [00:52:51.158] - queued futures: [n=1] FALSE 1571s [00:52:51.159] - until=1 1571s [00:52:51.159] - relaying element #1 1571s [00:52:51.159] - relayed: [n=1] TRUE 1571s [00:52:51.159] - queued futures: [n=1] TRUE 1571s [00:52:51.159] signalConditionsASAP(SequentialFuture, pos=1) ... done 1571s [00:52:51.160] length: 0 (resolved future 1) 1571s [00:52:51.160] Relaying remaining futures 1571s [00:52:51.160] signalConditionsASAP(NULL, pos=0) ... 1571s [00:52:51.160] - nx: 1 1571s [00:52:51.160] - relay: TRUE 1571s [00:52:51.160] - stdout: TRUE 1571s [00:52:51.161] - signal: TRUE 1571s [00:52:51.161] - resignal: FALSE 1571s [00:52:51.161] - force: TRUE 1571s [00:52:51.161] - relayed: [n=1] TRUE 1571s [00:52:51.161] - queued futures: [n=1] TRUE 1571s - flush all 1571s [00:52:51.162] - relayed: [n=1] TRUE 1571s [00:52:51.162] - queued futures: [n=1] TRUE 1571s [00:52:51.162] signalConditionsASAP(NULL, pos=0) ... done 1571s [00:52:51.162] resolve() on list ... DONE 1571s [00:52:51.162] - Number of value chunks collected: 1 1571s [00:52:51.162] Resolving 1 futures (chunks) ... DONE 1571s [00:52:51.163] Reducing values from 1 chunks ... 1571s [00:52:51.163] - Number of values collected after concatenation: 3 1571s [00:52:51.163] - Number of values expected: 3 1571s [00:52:51.163] Reducing values from 1 chunks ... DONE 1571s [00:52:51.163] future_lapply() ... DONE 1571s List of 2 1571s $ y0: Named chr [1:3] "a" "b" "c" 1571s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1571s $ y1: Named chr [1:3] "a" "b" "c" 1571s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1571s [00:52:51.166] future_lapply() ... 1571s [00:52:51.166] Number of chunks: 1 1571s [00:52:51.166] getGlobalsAndPackagesXApply() ... 1571s [00:52:51.167] - future.globals: TRUE 1571s [00:52:51.167] getGlobalsAndPackages() ... 1571s [00:52:51.167] Searching for globals... 1571s [00:52:51.168] - globals found: [2] ‘FUN’, ‘UseMethod’ 1571s [00:52:51.168] Searching for globals ... DONE 1571s [00:52:51.168] Resolving globals: FALSE 1571s [00:52:51.172] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1571s [00:52:51.172] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1571s [00:52:51.173] - globals: [1] ‘FUN’ 1571s [00:52:51.173] 1571s [00:52:51.173] getGlobalsAndPackages() ... DONE 1571s [00:52:51.173] - globals found/used: [n=1] ‘FUN’ 1571s [00:52:51.173] - needed namespaces: [n=0] 1571s [00:52:51.173] Finding globals ... DONE 1571s [00:52:51.174] - use_args: TRUE 1571s [00:52:51.174] - Getting '...' globals ... 1571s [00:52:51.174] resolve() on list ... 1571s [00:52:51.175] recursive: 0 1571s [00:52:51.175] length: 1 1571s [00:52:51.175] elements: ‘...’ 1571s [00:52:51.175] length: 0 (resolved future 1) 1571s [00:52:51.176] resolve() on list ... DONE 1571s [00:52:51.176] - '...' content: [n=0] 1571s [00:52:51.176] List of 1 1571s [00:52:51.176] $ ...: list() 1571s [00:52:51.176] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1571s [00:52:51.176] - attr(*, "where")=List of 1 1571s [00:52:51.176] ..$ ...: 1571s [00:52:51.176] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1571s [00:52:51.176] - attr(*, "resolved")= logi TRUE 1571s [00:52:51.176] - attr(*, "total_size")= num NA 1571s [00:52:51.181] - Getting '...' globals ... DONE 1571s [00:52:51.182] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1571s [00:52:51.182] List of 2 1571s [00:52:51.182] $ ...future.FUN:function (x, ...) 1571s [00:52:51.182] $ ... : list() 1571s [00:52:51.182] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1571s [00:52:51.182] - attr(*, "where")=List of 2 1571s [00:52:51.182] ..$ ...future.FUN: 1571s [00:52:51.182] ..$ ... : 1571s [00:52:51.182] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1571s [00:52:51.182] - attr(*, "resolved")= logi FALSE 1571s [00:52:51.182] - attr(*, "total_size")= num 1248 1571s [00:52:51.186] Packages to be attached in all futures: [n=0] 1571s [00:52:51.186] getGlobalsAndPackagesXApply() ... DONE 1571s [00:52:51.187] Number of futures (= number of chunks): 1 1571s [00:52:51.187] Launching 1 futures (chunks) ... 1571s [00:52:51.187] Chunk #1 of 1 ... 1571s [00:52:51.187] - Finding globals in 'X' for chunk #1 ... 1571s [00:52:51.187] getGlobalsAndPackages() ... 1571s [00:52:51.187] Searching for globals... 1571s [00:52:51.187] 1571s [00:52:51.188] Searching for globals ... DONE 1571s [00:52:51.188] - globals: [0] 1571s [00:52:51.188] getGlobalsAndPackages() ... DONE 1571s [00:52:51.188] + additional globals found: [n=0] 1571s [00:52:51.188] + additional namespaces needed: [n=0] 1571s [00:52:51.189] - Finding globals in 'X' for chunk #1 ... DONE 1571s [00:52:51.189] - seeds: 1571s [00:52:51.189] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1571s [00:52:51.189] getGlobalsAndPackages() ... 1571s [00:52:51.189] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1571s [00:52:51.189] Resolving globals: FALSE 1571s [00:52:51.190] Tweak future expression to call with '...' arguments ... 1571s [00:52:51.190] { 1571s [00:52:51.190] do.call(function(...) { 1571s [00:52:51.190] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1571s [00:52:51.190] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1571s [00:52:51.190] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1571s [00:52:51.190] on.exit(options(oopts), add = TRUE) 1571s [00:52:51.190] } 1571s [00:52:51.190] { 1571s [00:52:51.190] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1571s [00:52:51.190] ...future.X_jj <- ...future.elements_ii[[jj]] 1571s [00:52:51.190] ...future.FUN(...future.X_jj, ...) 1571s [00:52:51.190] }) 1571s [00:52:51.190] } 1571s [00:52:51.190] }, args = future.call.arguments) 1571s [00:52:51.190] } 1571s [00:52:51.191] Tweak future expression to call with '...' arguments ... DONE 1571s [00:52:51.191] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1571s [00:52:51.191] 1571s [00:52:51.192] getGlobalsAndPackages() ... DONE 1571s [00:52:51.192] run() for ‘Future’ ... 1571s [00:52:51.192] - state: ‘created’ 1571s [00:52:51.192] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1571s [00:52:51.193] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1571s [00:52:51.193] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1571s [00:52:51.193] - Field: ‘label’ 1571s [00:52:51.193] - Field: ‘local’ 1571s [00:52:51.193] - Field: ‘owner’ 1571s [00:52:51.194] - Field: ‘envir’ 1571s [00:52:51.194] - Field: ‘packages’ 1571s [00:52:51.194] - Field: ‘gc’ 1571s [00:52:51.194] - Field: ‘conditions’ 1571s [00:52:51.194] - Field: ‘expr’ 1571s [00:52:51.194] - Field: ‘uuid’ 1571s [00:52:51.194] - Field: ‘seed’ 1571s [00:52:51.195] - Field: ‘version’ 1571s [00:52:51.195] - Field: ‘result’ 1571s [00:52:51.195] - Field: ‘asynchronous’ 1571s [00:52:51.195] - Field: ‘calls’ 1571s [00:52:51.195] - Field: ‘globals’ 1571s [00:52:51.195] - Field: ‘stdout’ 1571s [00:52:51.195] - Field: ‘earlySignal’ 1571s [00:52:51.196] - Field: ‘lazy’ 1571s [00:52:51.196] - Field: ‘state’ 1571s [00:52:51.196] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1571s [00:52:51.196] - Launch lazy future ... 1571s [00:52:51.196] Packages needed by the future expression (n = 0): 1571s [00:52:51.196] Packages needed by future strategies (n = 0): 1571s [00:52:51.197] { 1571s [00:52:51.197] { 1571s [00:52:51.197] { 1571s [00:52:51.197] ...future.startTime <- base::Sys.time() 1571s [00:52:51.197] { 1571s [00:52:51.197] { 1571s [00:52:51.197] { 1571s [00:52:51.197] base::local({ 1571s [00:52:51.197] has_future <- base::requireNamespace("future", 1571s [00:52:51.197] quietly = TRUE) 1571s [00:52:51.197] if (has_future) { 1571s [00:52:51.197] ns <- base::getNamespace("future") 1571s [00:52:51.197] version <- ns[[".package"]][["version"]] 1571s [00:52:51.197] if (is.null(version)) 1571s [00:52:51.197] version <- utils::packageVersion("future") 1571s [00:52:51.197] } 1571s [00:52:51.197] else { 1571s [00:52:51.197] version <- NULL 1571s [00:52:51.197] } 1571s [00:52:51.197] if (!has_future || version < "1.8.0") { 1571s [00:52:51.197] info <- base::c(r_version = base::gsub("R version ", 1571s [00:52:51.197] "", base::R.version$version.string), 1571s [00:52:51.197] platform = base::sprintf("%s (%s-bit)", 1571s [00:52:51.197] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1571s [00:52:51.197] os = base::paste(base::Sys.info()[base::c("sysname", 1571s [00:52:51.197] "release", "version")], collapse = " "), 1571s [00:52:51.197] hostname = base::Sys.info()[["nodename"]]) 1571s [00:52:51.197] info <- base::sprintf("%s: %s", base::names(info), 1571s [00:52:51.197] info) 1571s [00:52:51.197] info <- base::paste(info, collapse = "; ") 1571s [00:52:51.197] if (!has_future) { 1571s [00:52:51.197] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1571s [00:52:51.197] info) 1571s [00:52:51.197] } 1571s [00:52:51.197] else { 1571s [00:52:51.197] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1571s [00:52:51.197] info, version) 1571s [00:52:51.197] } 1571s [00:52:51.197] base::stop(msg) 1571s [00:52:51.197] } 1571s [00:52:51.197] }) 1571s [00:52:51.197] } 1571s [00:52:51.197] options(future.plan = NULL) 1571s [00:52:51.197] Sys.unsetenv("R_FUTURE_PLAN") 1571s [00:52:51.197] future::plan("default", .cleanup = FALSE, .init = FALSE) 1571s [00:52:51.197] } 1571s [00:52:51.197] ...future.workdir <- getwd() 1571s [00:52:51.197] } 1571s [00:52:51.197] ...future.oldOptions <- base::as.list(base::.Options) 1571s [00:52:51.197] ...future.oldEnvVars <- base::Sys.getenv() 1571s [00:52:51.197] } 1571s [00:52:51.197] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1571s [00:52:51.197] future.globals.maxSize = NULL, future.globals.method = NULL, 1571s [00:52:51.197] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1571s [00:52:51.197] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1571s [00:52:51.197] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1571s [00:52:51.197] future.stdout.windows.reencode = NULL, width = 80L) 1571s [00:52:51.197] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1571s [00:52:51.197] base::names(...future.oldOptions)) 1571s [00:52:51.197] } 1571s [00:52:51.197] if (FALSE) { 1571s [00:52:51.197] } 1571s [00:52:51.197] else { 1571s [00:52:51.197] if (TRUE) { 1571s [00:52:51.197] ...future.stdout <- base::rawConnection(base::raw(0L), 1571s [00:52:51.197] open = "w") 1571s [00:52:51.197] } 1571s [00:52:51.197] else { 1571s [00:52:51.197] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1571s [00:52:51.197] windows = "NUL", "/dev/null"), open = "w") 1571s [00:52:51.197] } 1571s [00:52:51.197] base::sink(...future.stdout, type = "output", split = FALSE) 1571s [00:52:51.197] base::on.exit(if (!base::is.null(...future.stdout)) { 1571s [00:52:51.197] base::sink(type = "output", split = FALSE) 1571s [00:52:51.197] base::close(...future.stdout) 1571s [00:52:51.197] }, add = TRUE) 1571s [00:52:51.197] } 1571s [00:52:51.197] ...future.frame <- base::sys.nframe() 1571s [00:52:51.197] ...future.conditions <- base::list() 1571s [00:52:51.197] ...future.rng <- base::globalenv()$.Random.seed 1571s [00:52:51.197] if (FALSE) { 1571s [00:52:51.197] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1571s [00:52:51.197] "...future.value", "...future.globalenv.names", ".Random.seed") 1571s [00:52:51.197] } 1571s [00:52:51.197] ...future.result <- base::tryCatch({ 1571s [00:52:51.197] base::withCallingHandlers({ 1571s [00:52:51.197] ...future.value <- base::withVisible(base::local({ 1571s [00:52:51.197] do.call(function(...) { 1571s [00:52:51.197] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1571s [00:52:51.197] if (!identical(...future.globals.maxSize.org, 1571s [00:52:51.197] ...future.globals.maxSize)) { 1571s [00:52:51.197] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1571s [00:52:51.197] on.exit(options(oopts), add = TRUE) 1571s [00:52:51.197] } 1571s [00:52:51.197] { 1571s [00:52:51.197] lapply(seq_along(...future.elements_ii), 1571s [00:52:51.197] FUN = function(jj) { 1571s [00:52:51.197] ...future.X_jj <- ...future.elements_ii[[jj]] 1571s [00:52:51.197] ...future.FUN(...future.X_jj, ...) 1571s [00:52:51.197] }) 1571s [00:52:51.197] } 1571s [00:52:51.197] }, args = future.call.arguments) 1571s [00:52:51.197] })) 1571s [00:52:51.197] future::FutureResult(value = ...future.value$value, 1571s [00:52:51.197] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1571s [00:52:51.197] ...future.rng), globalenv = if (FALSE) 1571s [00:52:51.197] list(added = base::setdiff(base::names(base::.GlobalEnv), 1571s [00:52:51.197] ...future.globalenv.names)) 1571s [00:52:51.197] else NULL, started = ...future.startTime, version = "1.8") 1571s [00:52:51.197] }, condition = base::local({ 1571s [00:52:51.197] c <- base::c 1571s [00:52:51.197] inherits <- base::inherits 1571s [00:52:51.197] invokeRestart <- base::invokeRestart 1571s [00:52:51.197] length <- base::length 1571s [00:52:51.197] list <- base::list 1571s [00:52:51.197] seq.int <- base::seq.int 1571s [00:52:51.197] signalCondition <- base::signalCondition 1571s [00:52:51.197] sys.calls <- base::sys.calls 1571s [00:52:51.197] `[[` <- base::`[[` 1571s [00:52:51.197] `+` <- base::`+` 1571s [00:52:51.197] `<<-` <- base::`<<-` 1571s [00:52:51.197] sysCalls <- function(calls = sys.calls(), from = 1L) { 1571s [00:52:51.197] calls[seq.int(from = from + 12L, to = length(calls) - 1571s [00:52:51.197] 3L)] 1571s [00:52:51.197] } 1571s [00:52:51.197] function(cond) { 1571s [00:52:51.197] is_error <- inherits(cond, "error") 1571s [00:52:51.197] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1571s [00:52:51.197] NULL) 1571s [00:52:51.197] if (is_error) { 1571s [00:52:51.197] sessionInformation <- function() { 1571s [00:52:51.197] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1571s [00:52:51.197] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1571s [00:52:51.197] search = base::search(), system = base::Sys.info()) 1571s [00:52:51.197] } 1571s [00:52:51.197] ...future.conditions[[length(...future.conditions) + 1571s [00:52:51.197] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1571s [00:52:51.197] cond$call), session = sessionInformation(), 1571s [00:52:51.197] timestamp = base::Sys.time(), signaled = 0L) 1571s [00:52:51.197] signalCondition(cond) 1571s [00:52:51.197] } 1571s [00:52:51.197] else if (!ignore && TRUE && inherits(cond, c("condition", 1571s [00:52:51.197] "immediateCondition"))) { 1571s [00:52:51.197] signal <- TRUE && inherits(cond, "immediateCondition") 1571s [00:52:51.197] ...future.conditions[[length(...future.conditions) + 1571s [00:52:51.197] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1571s [00:52:51.197] if (TRUE && !signal) { 1571s [00:52:51.197] muffleCondition <- function (cond, pattern = "^muffle") 1571s [00:52:51.197] { 1571s [00:52:51.197] inherits <- base::inherits 1571s [00:52:51.197] invokeRestart <- base::invokeRestart 1571s [00:52:51.197] is.null <- base::is.null 1571s [00:52:51.197] muffled <- FALSE 1571s [00:52:51.197] if (inherits(cond, "message")) { 1571s [00:52:51.197] muffled <- grepl(pattern, "muffleMessage") 1571s [00:52:51.197] if (muffled) 1571s [00:52:51.197] invokeRestart("muffleMessage") 1571s [00:52:51.197] } 1571s [00:52:51.197] else if (inherits(cond, "warning")) { 1571s [00:52:51.197] muffled <- grepl(pattern, "muffleWarning") 1571s [00:52:51.197] if (muffled) 1571s [00:52:51.197] invokeRestart("muffleWarning") 1571s [00:52:51.197] } 1571s [00:52:51.197] else if (inherits(cond, "condition")) { 1571s [00:52:51.197] if (!is.null(pattern)) { 1571s [00:52:51.197] computeRestarts <- base::computeRestarts 1571s [00:52:51.197] grepl <- base::grepl 1571s [00:52:51.197] restarts <- computeRestarts(cond) 1571s [00:52:51.197] for (restart in restarts) { 1571s [00:52:51.197] name <- restart$name 1571s [00:52:51.197] if (is.null(name)) 1571s [00:52:51.197] next 1571s [00:52:51.197] if (!grepl(pattern, name)) 1571s [00:52:51.197] next 1571s [00:52:51.197] invokeRestart(restart) 1571s [00:52:51.197] muffled <- TRUE 1571s [00:52:51.197] break 1571s [00:52:51.197] } 1571s [00:52:51.197] } 1571s [00:52:51.197] } 1571s [00:52:51.197] invisible(muffled) 1571s [00:52:51.197] } 1571s [00:52:51.197] muffleCondition(cond, pattern = "^muffle") 1571s [00:52:51.197] } 1571s [00:52:51.197] } 1571s [00:52:51.197] else { 1571s [00:52:51.197] if (TRUE) { 1571s [00:52:51.197] muffleCondition <- function (cond, pattern = "^muffle") 1571s [00:52:51.197] { 1571s [00:52:51.197] inherits <- base::inherits 1571s [00:52:51.197] invokeRestart <- base::invokeRestart 1571s [00:52:51.197] is.null <- base::is.null 1571s [00:52:51.197] muffled <- FALSE 1571s [00:52:51.197] if (inherits(cond, "message")) { 1571s [00:52:51.197] muffled <- grepl(pattern, "muffleMessage") 1571s [00:52:51.197] if (muffled) 1571s [00:52:51.197] invokeRestart("muffleMessage") 1571s [00:52:51.197] } 1571s [00:52:51.197] else if (inherits(cond, "warning")) { 1571s [00:52:51.197] muffled <- grepl(pattern, "muffleWarning") 1571s [00:52:51.197] if (muffled) 1571s [00:52:51.197] invokeRestart("muffleWarning") 1571s [00:52:51.197] } 1571s [00:52:51.197] else if (inherits(cond, "condition")) { 1571s [00:52:51.197] if (!is.null(pattern)) { 1571s [00:52:51.197] computeRestarts <- base::computeRestarts 1571s [00:52:51.197] grepl <- base::grepl 1571s [00:52:51.197] restarts <- computeRestarts(cond) 1571s [00:52:51.197] for (restart in restarts) { 1571s [00:52:51.197] name <- restart$name 1571s [00:52:51.197] if (is.null(name)) 1571s [00:52:51.197] next 1571s [00:52:51.197] if (!grepl(pattern, name)) 1571s [00:52:51.197] next 1571s [00:52:51.197] invokeRestart(restart) 1571s [00:52:51.197] muffled <- TRUE 1571s [00:52:51.197] break 1571s [00:52:51.197] } 1571s [00:52:51.197] } 1571s [00:52:51.197] } 1571s [00:52:51.197] invisible(muffled) 1571s [00:52:51.197] } 1571s [00:52:51.197] muffleCondition(cond, pattern = "^muffle") 1571s [00:52:51.197] } 1571s [00:52:51.197] } 1571s [00:52:51.197] } 1571s [00:52:51.197] })) 1571s [00:52:51.197] }, error = function(ex) { 1571s [00:52:51.197] base::structure(base::list(value = NULL, visible = NULL, 1571s [00:52:51.197] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1571s [00:52:51.197] ...future.rng), started = ...future.startTime, 1571s [00:52:51.197] finished = Sys.time(), session_uuid = NA_character_, 1571s [00:52:51.197] version = "1.8"), class = "FutureResult") 1571s [00:52:51.197] }, finally = { 1571s [00:52:51.197] if (!identical(...future.workdir, getwd())) 1571s [00:52:51.197] setwd(...future.workdir) 1571s [00:52:51.197] { 1571s [00:52:51.197] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1571s [00:52:51.197] ...future.oldOptions$nwarnings <- NULL 1571s [00:52:51.197] } 1571s [00:52:51.197] base::options(...future.oldOptions) 1571s [00:52:51.197] if (.Platform$OS.type == "windows") { 1571s [00:52:51.197] old_names <- names(...future.oldEnvVars) 1571s [00:52:51.197] envs <- base::Sys.getenv() 1571s [00:52:51.197] names <- names(envs) 1571s [00:52:51.197] common <- intersect(names, old_names) 1571s [00:52:51.197] added <- setdiff(names, old_names) 1571s [00:52:51.197] removed <- setdiff(old_names, names) 1571s [00:52:51.197] changed <- common[...future.oldEnvVars[common] != 1571s [00:52:51.197] envs[common]] 1571s [00:52:51.197] NAMES <- toupper(changed) 1571s [00:52:51.197] args <- list() 1571s [00:52:51.197] for (kk in seq_along(NAMES)) { 1571s [00:52:51.197] name <- changed[[kk]] 1571s [00:52:51.197] NAME <- NAMES[[kk]] 1571s [00:52:51.197] if (name != NAME && is.element(NAME, old_names)) 1571s [00:52:51.197] next 1571s [00:52:51.197] args[[name]] <- ...future.oldEnvVars[[name]] 1571s [00:52:51.197] } 1571s [00:52:51.197] NAMES <- toupper(added) 1571s [00:52:51.197] for (kk in seq_along(NAMES)) { 1571s [00:52:51.197] name <- added[[kk]] 1571s [00:52:51.197] NAME <- NAMES[[kk]] 1571s [00:52:51.197] if (name != NAME && is.element(NAME, old_names)) 1571s [00:52:51.197] next 1571s [00:52:51.197] args[[name]] <- "" 1571s [00:52:51.197] } 1571s [00:52:51.197] NAMES <- toupper(removed) 1571s [00:52:51.197] for (kk in seq_along(NAMES)) { 1571s [00:52:51.197] name <- removed[[kk]] 1571s [00:52:51.197] NAME <- NAMES[[kk]] 1571s [00:52:51.197] if (name != NAME && is.element(NAME, old_names)) 1571s [00:52:51.197] next 1571s [00:52:51.197] args[[name]] <- ...future.oldEnvVars[[name]] 1571s [00:52:51.197] } 1571s [00:52:51.197] if (length(args) > 0) 1571s [00:52:51.197] base::do.call(base::Sys.setenv, args = args) 1571s [00:52:51.197] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1571s [00:52:51.197] } 1571s [00:52:51.197] else { 1571s [00:52:51.197] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1571s [00:52:51.197] } 1571s [00:52:51.197] { 1571s [00:52:51.197] if (base::length(...future.futureOptionsAdded) > 1571s [00:52:51.197] 0L) { 1571s [00:52:51.197] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1571s [00:52:51.197] base::names(opts) <- ...future.futureOptionsAdded 1571s [00:52:51.197] base::options(opts) 1571s [00:52:51.197] } 1571s [00:52:51.197] { 1571s [00:52:51.197] { 1571s [00:52:51.197] NULL 1571s [00:52:51.197] RNGkind("Mersenne-Twister") 1571s [00:52:51.197] base::rm(list = ".Random.seed", envir = base::globalenv(), 1571s [00:52:51.197] inherits = FALSE) 1571s [00:52:51.197] } 1571s [00:52:51.197] options(future.plan = NULL) 1571s [00:52:51.197] if (is.na(NA_character_)) 1571s [00:52:51.197] Sys.unsetenv("R_FUTURE_PLAN") 1571s [00:52:51.197] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1571s [00:52:51.197] future::plan(list(function (..., envir = parent.frame()) 1571s [00:52:51.197] { 1571s [00:52:51.197] future <- SequentialFuture(..., envir = envir) 1571s [00:52:51.197] if (!future$lazy) 1571s [00:52:51.197] future <- run(future) 1571s [00:52:51.197] invisible(future) 1571s [00:52:51.197] }), .cleanup = FALSE, .init = FALSE) 1571s [00:52:51.197] } 1571s [00:52:51.197] } 1571s [00:52:51.197] } 1571s [00:52:51.197] }) 1571s [00:52:51.197] if (TRUE) { 1571s [00:52:51.197] base::sink(type = "output", split = FALSE) 1571s [00:52:51.197] if (TRUE) { 1571s [00:52:51.197] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1571s [00:52:51.197] } 1571s [00:52:51.197] else { 1571s [00:52:51.197] ...future.result["stdout"] <- base::list(NULL) 1571s [00:52:51.197] } 1571s [00:52:51.197] base::close(...future.stdout) 1571s [00:52:51.197] ...future.stdout <- NULL 1571s [00:52:51.197] } 1571s [00:52:51.197] ...future.result$conditions <- ...future.conditions 1571s [00:52:51.197] ...future.result$finished <- base::Sys.time() 1571s [00:52:51.197] ...future.result 1571s [00:52:51.197] } 1571s [00:52:51.203] assign_globals() ... 1571s [00:52:51.204] List of 5 1571s [00:52:51.204] $ ...future.FUN :function (x, ...) 1571s [00:52:51.204] $ future.call.arguments : list() 1571s [00:52:51.204] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1571s [00:52:51.204] $ ...future.elements_ii :List of 3 1571s [00:52:51.204] ..$ : chr "a" 1571s [00:52:51.204] ..$ : chr "b" 1571s [00:52:51.204] ..$ : chr "c" 1571s [00:52:51.204] $ ...future.seeds_ii : NULL 1571s [00:52:51.204] $ ...future.globals.maxSize: NULL 1571s [00:52:51.204] - attr(*, "where")=List of 5 1571s [00:52:51.204] ..$ ...future.FUN : 1571s [00:52:51.204] ..$ future.call.arguments : 1571s [00:52:51.204] ..$ ...future.elements_ii : 1571s [00:52:51.204] ..$ ...future.seeds_ii : 1571s [00:52:51.204] ..$ ...future.globals.maxSize: 1571s [00:52:51.204] - attr(*, "resolved")= logi FALSE 1571s [00:52:51.204] - attr(*, "total_size")= num 1248 1571s [00:52:51.204] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1571s [00:52:51.204] - attr(*, "already-done")= logi TRUE 1571s [00:52:51.213] - copied ‘...future.FUN’ to environment 1571s [00:52:51.213] - copied ‘future.call.arguments’ to environment 1571s [00:52:51.214] - copied ‘...future.elements_ii’ to environment 1571s [00:52:51.214] - copied ‘...future.seeds_ii’ to environment 1571s [00:52:51.214] - copied ‘...future.globals.maxSize’ to environment 1571s [00:52:51.214] assign_globals() ... done 1571s [00:52:51.214] plan(): Setting new future strategy stack: 1571s [00:52:51.215] List of future strategies: 1571s [00:52:51.215] 1. sequential: 1571s [00:52:51.215] - args: function (..., envir = parent.frame()) 1571s [00:52:51.215] - tweaked: FALSE 1571s [00:52:51.215] - call: NULL 1571s [00:52:51.215] plan(): nbrOfWorkers() = 1 1571s [00:52:51.216] plan(): Setting new future strategy stack: 1571s [00:52:51.216] List of future strategies: 1571s [00:52:51.216] 1. sequential: 1571s [00:52:51.216] - args: function (..., envir = parent.frame()) 1571s [00:52:51.216] - tweaked: FALSE 1571s [00:52:51.216] - call: plan(strategy) 1571s [00:52:51.217] plan(): nbrOfWorkers() = 1 1571s [00:52:51.217] SequentialFuture started (and completed) 1571s [00:52:51.217] - Launch lazy future ... done 1571s [00:52:51.217] run() for ‘SequentialFuture’ ... done 1571s [00:52:51.217] Created future: 1571s [00:52:51.217] SequentialFuture: 1571s [00:52:51.217] Label: ‘future_sapply-1’ 1571s [00:52:51.217] Expression: 1571s [00:52:51.217] { 1571s [00:52:51.217] do.call(function(...) { 1571s [00:52:51.217] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1571s [00:52:51.217] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1571s [00:52:51.217] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1571s [00:52:51.217] on.exit(options(oopts), add = TRUE) 1571s [00:52:51.217] } 1571s [00:52:51.217] { 1571s [00:52:51.217] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1571s [00:52:51.217] ...future.X_jj <- ...future.elements_ii[[jj]] 1571s [00:52:51.217] ...future.FUN(...future.X_jj, ...) 1571s [00:52:51.217] }) 1571s [00:52:51.217] } 1571s [00:52:51.217] }, args = future.call.arguments) 1571s [00:52:51.217] } 1571s [00:52:51.217] Lazy evaluation: FALSE 1571s [00:52:51.217] Asynchronous evaluation: FALSE 1571s [00:52:51.217] Local evaluation: TRUE 1571s [00:52:51.217] Environment: R_GlobalEnv 1571s [00:52:51.217] Capture standard output: TRUE 1571s [00:52:51.217] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1571s [00:52:51.217] Globals: 5 objects totaling 1.55 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1571s [00:52:51.217] Packages: 1571s [00:52:51.217] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1571s [00:52:51.217] Resolved: TRUE 1571s [00:52:51.217] Value: 840 bytes of class ‘list’ 1571s [00:52:51.217] Early signaling: FALSE 1571s [00:52:51.217] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1571s [00:52:51.217] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1571s [00:52:51.219] Chunk #1 of 1 ... DONE 1571s [00:52:51.219] Launching 1 futures (chunks) ... DONE 1571s [00:52:51.219] Resolving 1 futures (chunks) ... 1571s [00:52:51.220] resolve() on list ... 1571s [00:52:51.220] recursive: 0 1571s [00:52:51.221] length: 1 1571s [00:52:51.221] 1571s [00:52:51.221] resolved() for ‘SequentialFuture’ ... 1571s [00:52:51.221] - state: ‘finished’ 1571s [00:52:51.221] - run: TRUE 1571s [00:52:51.221] - result: ‘FutureResult’ 1571s [00:52:51.222] resolved() for ‘SequentialFuture’ ... done 1571s [00:52:51.222] Future #1 1571s [00:52:51.222] signalConditionsASAP(SequentialFuture, pos=1) ... 1571s [00:52:51.222] - nx: 1 1571s [00:52:51.222] - relay: TRUE 1571s [00:52:51.222] - stdout: TRUE 1571s [00:52:51.222] - signal: TRUE 1571s [00:52:51.223] - resignal: FALSE 1571s [00:52:51.223] - force: TRUE 1571s [00:52:51.223] - relayed: [n=1] FALSE 1571s [00:52:51.223] - queued futures: [n=1] FALSE 1571s [00:52:51.223] - until=1 1571s [00:52:51.223] - relaying element #1 1571s [00:52:51.224] - relayed: [n=1] TRUE 1571s [00:52:51.224] - queued futures: [n=1] TRUE 1571s [00:52:51.224] signalConditionsASAP(SequentialFuture, pos=1) ... done 1571s [00:52:51.224] length: 0 (resolved future 1) 1571s [00:52:51.224] Relaying remaining futures 1571s [00:52:51.224] signalConditionsASAP(NULL, pos=0) ... 1571s [00:52:51.225] - nx: 1 1571s [00:52:51.225] - relay: TRUE 1571s [00:52:51.225] - stdout: TRUE 1571s [00:52:51.225] - signal: TRUE 1571s [00:52:51.225] - resignal: FALSE 1571s [00:52:51.225] - force: TRUE 1571s [00:52:51.225] - relayed: [n=1] TRUE 1571s [00:52:51.225] - queued futures: [n=1] TRUE 1571s - flush all 1571s [00:52:51.226] - relayed: [n=1] TRUE 1571s [00:52:51.226] - queued futures: [n=1] TRUE 1571s [00:52:51.226] signalConditionsASAP(NULL, pos=0) ... done 1571s [00:52:51.226] resolve() on list ... DONE 1571s [00:52:51.226] - Number of value chunks collected: 1 1571s [00:52:51.226] Resolving 1 futures (chunks) ... DONE 1571s [00:52:51.227] Reducing values from 1 chunks ... 1571s [00:52:51.227] - Number of values collected after concatenation: 3 1571s [00:52:51.227] - Number of values expected: 3 1571s [00:52:51.227] Reducing values from 1 chunks ... DONE 1571s [00:52:51.227] future_lapply() ... DONE 1571s List of 2 1571s $ y0: Named chr [1:3] "a" "b" "c" 1571s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1571s $ y1: Named chr [1:3] "a" "b" "c" 1571s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1571s [00:52:51.230] future_lapply() ... 1571s [00:52:51.230] Number of chunks: 1 1571s [00:52:51.230] getGlobalsAndPackagesXApply() ... 1571s [00:52:51.230] - future.globals: TRUE 1571s [00:52:51.231] getGlobalsAndPackages() ... 1571s [00:52:51.231] Searching for globals... 1571s [00:52:51.232] - globals found: [1] ‘FUN’ 1571s [00:52:51.232] Searching for globals ... DONE 1571s [00:52:51.232] Resolving globals: FALSE 1571s [00:52:51.233] The total size of the 1 globals is 848 bytes (848 bytes) 1571s [00:52:51.234] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1571s [00:52:51.234] - globals: [1] ‘FUN’ 1571s [00:52:51.234] 1571s [00:52:51.234] getGlobalsAndPackages() ... DONE 1571s [00:52:51.234] - globals found/used: [n=1] ‘FUN’ 1571s [00:52:51.234] - needed namespaces: [n=0] 1571s [00:52:51.234] Finding globals ... DONE 1571s [00:52:51.234] - use_args: TRUE 1571s [00:52:51.235] - Getting '...' globals ... 1571s [00:52:51.235] resolve() on list ... 1571s [00:52:51.235] recursive: 0 1571s [00:52:51.235] length: 1 1571s [00:52:51.235] elements: ‘...’ 1571s [00:52:51.235] length: 0 (resolved future 1) 1571s [00:52:51.236] resolve() on list ... DONE 1571s [00:52:51.236] - '...' content: [n=0] 1571s [00:52:51.236] List of 1 1571s [00:52:51.236] $ ...: list() 1571s [00:52:51.236] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1571s [00:52:51.236] - attr(*, "where")=List of 1 1571s [00:52:51.236] ..$ ...: 1571s [00:52:51.236] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1571s [00:52:51.236] - attr(*, "resolved")= logi TRUE 1571s [00:52:51.236] - attr(*, "total_size")= num NA 1571s [00:52:51.239] - Getting '...' globals ... DONE 1571s [00:52:51.239] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1571s [00:52:51.239] List of 2 1571s [00:52:51.239] $ ...future.FUN:function (x) 1571s [00:52:51.239] $ ... : list() 1571s [00:52:51.239] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1571s [00:52:51.239] - attr(*, "where")=List of 2 1571s [00:52:51.239] ..$ ...future.FUN: 1571s [00:52:51.239] ..$ ... : 1571s [00:52:51.239] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1571s [00:52:51.239] - attr(*, "resolved")= logi FALSE 1571s [00:52:51.239] - attr(*, "total_size")= num 848 1571s [00:52:51.245] Packages to be attached in all futures: [n=0] 1571s [00:52:51.245] getGlobalsAndPackagesXApply() ... DONE 1571s [00:52:51.245] Number of futures (= number of chunks): 1 1571s [00:52:51.246] Launching 1 futures (chunks) ... 1571s [00:52:51.246] Chunk #1 of 1 ... 1571s [00:52:51.246] - Finding globals in 'X' for chunk #1 ... 1571s [00:52:51.246] getGlobalsAndPackages() ... 1571s [00:52:51.246] Searching for globals... 1571s [00:52:51.247] 1571s [00:52:51.247] Searching for globals ... DONE 1571s [00:52:51.247] - globals: [0] 1571s [00:52:51.248] getGlobalsAndPackages() ... DONE 1571s [00:52:51.248] + additional globals found: [n=0] 1571s [00:52:51.248] + additional namespaces needed: [n=0] 1571s [00:52:51.248] - Finding globals in 'X' for chunk #1 ... DONE 1571s [00:52:51.249] - seeds: 1571s [00:52:51.249] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1571s [00:52:51.249] getGlobalsAndPackages() ... 1571s [00:52:51.249] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1571s [00:52:51.250] Resolving globals: FALSE 1571s [00:52:51.250] Tweak future expression to call with '...' arguments ... 1571s [00:52:51.250] { 1571s [00:52:51.250] do.call(function(...) { 1571s [00:52:51.250] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1571s [00:52:51.250] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1571s [00:52:51.250] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1571s [00:52:51.250] on.exit(options(oopts), add = TRUE) 1571s [00:52:51.250] } 1571s [00:52:51.250] { 1571s [00:52:51.250] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1571s [00:52:51.250] ...future.X_jj <- ...future.elements_ii[[jj]] 1571s [00:52:51.250] ...future.FUN(...future.X_jj, ...) 1571s [00:52:51.250] }) 1571s [00:52:51.250] } 1571s [00:52:51.250] }, args = future.call.arguments) 1571s [00:52:51.250] } 1571s [00:52:51.251] Tweak future expression to call with '...' arguments ... DONE 1571s [00:52:51.251] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1571s [00:52:51.252] 1571s [00:52:51.252] getGlobalsAndPackages() ... DONE 1571s [00:52:51.252] run() for ‘Future’ ... 1571s [00:52:51.252] - state: ‘created’ 1571s [00:52:51.253] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1571s [00:52:51.253] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1571s [00:52:51.253] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1571s [00:52:51.254] - Field: ‘label’ 1571s [00:52:51.254] - Field: ‘local’ 1571s [00:52:51.254] - Field: ‘owner’ 1571s [00:52:51.254] - Field: ‘envir’ 1571s [00:52:51.254] - Field: ‘packages’ 1571s [00:52:51.255] - Field: ‘gc’ 1571s [00:52:51.255] - Field: ‘conditions’ 1571s [00:52:51.255] - Field: ‘expr’ 1571s [00:52:51.255] - Field: ‘uuid’ 1571s [00:52:51.255] - Field: ‘seed’ 1571s [00:52:51.255] - Field: ‘version’ 1571s [00:52:51.255] - Field: ‘result’ 1571s [00:52:51.256] - Field: ‘asynchronous’ 1571s [00:52:51.256] - Field: ‘calls’ 1571s [00:52:51.256] - Field: ‘globals’ 1571s [00:52:51.256] - Field: ‘stdout’ 1571s [00:52:51.256] - Field: ‘earlySignal’ 1571s [00:52:51.256] - Field: ‘lazy’ 1571s [00:52:51.257] - Field: ‘state’ 1571s [00:52:51.257] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1571s [00:52:51.257] - Launch lazy future ... 1571s [00:52:51.257] Packages needed by the future expression (n = 0): 1571s [00:52:51.257] Packages needed by future strategies (n = 0): 1571s [00:52:51.258] { 1571s [00:52:51.258] { 1571s [00:52:51.258] { 1571s [00:52:51.258] ...future.startTime <- base::Sys.time() 1571s [00:52:51.258] { 1571s [00:52:51.258] { 1571s [00:52:51.258] { 1571s [00:52:51.258] base::local({ 1571s [00:52:51.258] has_future <- base::requireNamespace("future", 1571s [00:52:51.258] quietly = TRUE) 1571s [00:52:51.258] if (has_future) { 1571s [00:52:51.258] ns <- base::getNamespace("future") 1571s [00:52:51.258] version <- ns[[".package"]][["version"]] 1571s [00:52:51.258] if (is.null(version)) 1571s [00:52:51.258] version <- utils::packageVersion("future") 1571s [00:52:51.258] } 1571s [00:52:51.258] else { 1571s [00:52:51.258] version <- NULL 1571s [00:52:51.258] } 1571s [00:52:51.258] if (!has_future || version < "1.8.0") { 1571s [00:52:51.258] info <- base::c(r_version = base::gsub("R version ", 1571s [00:52:51.258] "", base::R.version$version.string), 1571s [00:52:51.258] platform = base::sprintf("%s (%s-bit)", 1571s [00:52:51.258] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1571s [00:52:51.258] os = base::paste(base::Sys.info()[base::c("sysname", 1571s [00:52:51.258] "release", "version")], collapse = " "), 1571s [00:52:51.258] hostname = base::Sys.info()[["nodename"]]) 1571s [00:52:51.258] info <- base::sprintf("%s: %s", base::names(info), 1571s [00:52:51.258] info) 1571s [00:52:51.258] info <- base::paste(info, collapse = "; ") 1571s [00:52:51.258] if (!has_future) { 1571s [00:52:51.258] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1571s [00:52:51.258] info) 1571s [00:52:51.258] } 1571s [00:52:51.258] else { 1571s [00:52:51.258] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1571s [00:52:51.258] info, version) 1571s [00:52:51.258] } 1571s [00:52:51.258] base::stop(msg) 1571s [00:52:51.258] } 1571s [00:52:51.258] }) 1571s [00:52:51.258] } 1571s [00:52:51.258] options(future.plan = NULL) 1571s [00:52:51.258] Sys.unsetenv("R_FUTURE_PLAN") 1571s [00:52:51.258] future::plan("default", .cleanup = FALSE, .init = FALSE) 1571s [00:52:51.258] } 1571s [00:52:51.258] ...future.workdir <- getwd() 1571s [00:52:51.258] } 1571s [00:52:51.258] ...future.oldOptions <- base::as.list(base::.Options) 1571s [00:52:51.258] ...future.oldEnvVars <- base::Sys.getenv() 1571s [00:52:51.258] } 1571s [00:52:51.258] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1571s [00:52:51.258] future.globals.maxSize = NULL, future.globals.method = NULL, 1571s [00:52:51.258] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1571s [00:52:51.258] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1571s [00:52:51.258] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1571s [00:52:51.258] future.stdout.windows.reencode = NULL, width = 80L) 1571s [00:52:51.258] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1571s [00:52:51.258] base::names(...future.oldOptions)) 1571s [00:52:51.258] } 1571s [00:52:51.258] if (FALSE) { 1571s [00:52:51.258] } 1571s [00:52:51.258] else { 1571s [00:52:51.258] if (TRUE) { 1571s [00:52:51.258] ...future.stdout <- base::rawConnection(base::raw(0L), 1571s [00:52:51.258] open = "w") 1571s [00:52:51.258] } 1571s [00:52:51.258] else { 1571s [00:52:51.258] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1571s [00:52:51.258] windows = "NUL", "/dev/null"), open = "w") 1571s [00:52:51.258] } 1571s [00:52:51.258] base::sink(...future.stdout, type = "output", split = FALSE) 1571s [00:52:51.258] base::on.exit(if (!base::is.null(...future.stdout)) { 1571s [00:52:51.258] base::sink(type = "output", split = FALSE) 1571s [00:52:51.258] base::close(...future.stdout) 1571s [00:52:51.258] }, add = TRUE) 1571s [00:52:51.258] } 1571s [00:52:51.258] ...future.frame <- base::sys.nframe() 1571s [00:52:51.258] ...future.conditions <- base::list() 1571s [00:52:51.258] ...future.rng <- base::globalenv()$.Random.seed 1571s [00:52:51.258] if (FALSE) { 1571s [00:52:51.258] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1571s [00:52:51.258] "...future.value", "...future.globalenv.names", ".Random.seed") 1571s [00:52:51.258] } 1571s [00:52:51.258] ...future.result <- base::tryCatch({ 1571s [00:52:51.258] base::withCallingHandlers({ 1571s [00:52:51.258] ...future.value <- base::withVisible(base::local({ 1571s [00:52:51.258] do.call(function(...) { 1571s [00:52:51.258] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1571s [00:52:51.258] if (!identical(...future.globals.maxSize.org, 1571s [00:52:51.258] ...future.globals.maxSize)) { 1571s [00:52:51.258] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1571s [00:52:51.258] on.exit(options(oopts), add = TRUE) 1571s [00:52:51.258] } 1571s [00:52:51.258] { 1571s [00:52:51.258] lapply(seq_along(...future.elements_ii), 1571s [00:52:51.258] FUN = function(jj) { 1571s [00:52:51.258] ...future.X_jj <- ...future.elements_ii[[jj]] 1571s [00:52:51.258] ...future.FUN(...future.X_jj, ...) 1571s [00:52:51.258] }) 1571s [00:52:51.258] } 1571s [00:52:51.258] }, args = future.call.arguments) 1571s [00:52:51.258] })) 1571s [00:52:51.258] future::FutureResult(value = ...future.value$value, 1571s [00:52:51.258] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1571s [00:52:51.258] ...future.rng), globalenv = if (FALSE) 1571s [00:52:51.258] list(added = base::setdiff(base::names(base::.GlobalEnv), 1571s [00:52:51.258] ...future.globalenv.names)) 1571s [00:52:51.258] else NULL, started = ...future.startTime, version = "1.8") 1571s [00:52:51.258] }, condition = base::local({ 1571s [00:52:51.258] c <- base::c 1571s [00:52:51.258] inherits <- base::inherits 1571s [00:52:51.258] invokeRestart <- base::invokeRestart 1571s [00:52:51.258] length <- base::length 1571s [00:52:51.258] list <- base::list 1571s [00:52:51.258] seq.int <- base::seq.int 1571s [00:52:51.258] signalCondition <- base::signalCondition 1571s [00:52:51.258] sys.calls <- base::sys.calls 1571s [00:52:51.258] `[[` <- base::`[[` 1571s [00:52:51.258] `+` <- base::`+` 1571s [00:52:51.258] `<<-` <- base::`<<-` 1571s [00:52:51.258] sysCalls <- function(calls = sys.calls(), from = 1L) { 1571s [00:52:51.258] calls[seq.int(from = from + 12L, to = length(calls) - 1571s [00:52:51.258] 3L)] 1571s [00:52:51.258] } 1571s [00:52:51.258] function(cond) { 1571s [00:52:51.258] is_error <- inherits(cond, "error") 1571s [00:52:51.258] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1571s [00:52:51.258] NULL) 1571s [00:52:51.258] if (is_error) { 1571s [00:52:51.258] sessionInformation <- function() { 1571s [00:52:51.258] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1571s [00:52:51.258] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1571s [00:52:51.258] search = base::search(), system = base::Sys.info()) 1571s [00:52:51.258] } 1571s [00:52:51.258] ...future.conditions[[length(...future.conditions) + 1571s [00:52:51.258] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1571s [00:52:51.258] cond$call), session = sessionInformation(), 1571s [00:52:51.258] timestamp = base::Sys.time(), signaled = 0L) 1571s [00:52:51.258] signalCondition(cond) 1571s [00:52:51.258] } 1571s [00:52:51.258] else if (!ignore && TRUE && inherits(cond, c("condition", 1571s [00:52:51.258] "immediateCondition"))) { 1571s [00:52:51.258] signal <- TRUE && inherits(cond, "immediateCondition") 1571s [00:52:51.258] ...future.conditions[[length(...future.conditions) + 1571s [00:52:51.258] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1571s [00:52:51.258] if (TRUE && !signal) { 1571s [00:52:51.258] muffleCondition <- function (cond, pattern = "^muffle") 1571s [00:52:51.258] { 1571s [00:52:51.258] inherits <- base::inherits 1571s [00:52:51.258] invokeRestart <- base::invokeRestart 1571s [00:52:51.258] is.null <- base::is.null 1571s [00:52:51.258] muffled <- FALSE 1571s [00:52:51.258] if (inherits(cond, "message")) { 1571s [00:52:51.258] muffled <- grepl(pattern, "muffleMessage") 1571s [00:52:51.258] if (muffled) 1571s [00:52:51.258] invokeRestart("muffleMessage") 1571s [00:52:51.258] } 1571s [00:52:51.258] else if (inherits(cond, "warning")) { 1571s [00:52:51.258] muffled <- grepl(pattern, "muffleWarning") 1571s [00:52:51.258] if (muffled) 1571s [00:52:51.258] invokeRestart("muffleWarning") 1571s [00:52:51.258] } 1571s [00:52:51.258] else if (inherits(cond, "condition")) { 1571s [00:52:51.258] if (!is.null(pattern)) { 1571s [00:52:51.258] computeRestarts <- base::computeRestarts 1571s [00:52:51.258] grepl <- base::grepl 1571s [00:52:51.258] restarts <- computeRestarts(cond) 1571s [00:52:51.258] for (restart in restarts) { 1571s [00:52:51.258] name <- restart$name 1571s [00:52:51.258] if (is.null(name)) 1571s [00:52:51.258] next 1571s [00:52:51.258] if (!grepl(pattern, name)) 1571s [00:52:51.258] next 1571s [00:52:51.258] invokeRestart(restart) 1571s [00:52:51.258] muffled <- TRUE 1571s [00:52:51.258] break 1571s [00:52:51.258] } 1571s [00:52:51.258] } 1571s [00:52:51.258] } 1571s [00:52:51.258] invisible(muffled) 1571s [00:52:51.258] } 1571s [00:52:51.258] muffleCondition(cond, pattern = "^muffle") 1571s [00:52:51.258] } 1571s [00:52:51.258] } 1571s [00:52:51.258] else { 1571s [00:52:51.258] if (TRUE) { 1571s [00:52:51.258] muffleCondition <- function (cond, pattern = "^muffle") 1571s [00:52:51.258] { 1571s [00:52:51.258] inherits <- base::inherits 1571s [00:52:51.258] invokeRestart <- base::invokeRestart 1571s [00:52:51.258] is.null <- base::is.null 1571s [00:52:51.258] muffled <- FALSE 1571s [00:52:51.258] if (inherits(cond, "message")) { 1571s [00:52:51.258] muffled <- grepl(pattern, "muffleMessage") 1571s [00:52:51.258] if (muffled) 1571s [00:52:51.258] invokeRestart("muffleMessage") 1571s [00:52:51.258] } 1571s [00:52:51.258] else if (inherits(cond, "warning")) { 1571s [00:52:51.258] muffled <- grepl(pattern, "muffleWarning") 1571s [00:52:51.258] if (muffled) 1571s [00:52:51.258] invokeRestart("muffleWarning") 1571s [00:52:51.258] } 1571s [00:52:51.258] else if (inherits(cond, "condition")) { 1571s [00:52:51.258] if (!is.null(pattern)) { 1571s [00:52:51.258] computeRestarts <- base::computeRestarts 1571s [00:52:51.258] grepl <- base::grepl 1571s [00:52:51.258] restarts <- computeRestarts(cond) 1571s [00:52:51.258] for (restart in restarts) { 1571s [00:52:51.258] name <- restart$name 1571s [00:52:51.258] if (is.null(name)) 1571s [00:52:51.258] next 1571s [00:52:51.258] if (!grepl(pattern, name)) 1571s [00:52:51.258] next 1571s [00:52:51.258] invokeRestart(restart) 1571s [00:52:51.258] muffled <- TRUE 1571s [00:52:51.258] break 1571s [00:52:51.258] } 1571s [00:52:51.258] } 1571s [00:52:51.258] } 1571s [00:52:51.258] invisible(muffled) 1571s [00:52:51.258] } 1571s [00:52:51.258] muffleCondition(cond, pattern = "^muffle") 1571s [00:52:51.258] } 1571s [00:52:51.258] } 1571s [00:52:51.258] } 1571s [00:52:51.258] })) 1571s [00:52:51.258] }, error = function(ex) { 1571s [00:52:51.258] base::structure(base::list(value = NULL, visible = NULL, 1571s [00:52:51.258] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1571s [00:52:51.258] ...future.rng), started = ...future.startTime, 1571s [00:52:51.258] finished = Sys.time(), session_uuid = NA_character_, 1571s [00:52:51.258] version = "1.8"), class = "FutureResult") 1571s [00:52:51.258] }, finally = { 1571s [00:52:51.258] if (!identical(...future.workdir, getwd())) 1571s [00:52:51.258] setwd(...future.workdir) 1571s [00:52:51.258] { 1571s [00:52:51.258] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1571s [00:52:51.258] ...future.oldOptions$nwarnings <- NULL 1571s [00:52:51.258] } 1571s [00:52:51.258] base::options(...future.oldOptions) 1571s [00:52:51.258] if (.Platform$OS.type == "windows") { 1571s [00:52:51.258] old_names <- names(...future.oldEnvVars) 1571s [00:52:51.258] envs <- base::Sys.getenv() 1571s [00:52:51.258] names <- names(envs) 1571s [00:52:51.258] common <- intersect(names, old_names) 1571s [00:52:51.258] added <- setdiff(names, old_names) 1571s [00:52:51.258] removed <- setdiff(old_names, names) 1571s [00:52:51.258] changed <- common[...future.oldEnvVars[common] != 1571s [00:52:51.258] envs[common]] 1571s [00:52:51.258] NAMES <- toupper(changed) 1571s [00:52:51.258] args <- list() 1571s [00:52:51.258] for (kk in seq_along(NAMES)) { 1571s [00:52:51.258] name <- changed[[kk]] 1571s [00:52:51.258] NAME <- NAMES[[kk]] 1571s [00:52:51.258] if (name != NAME && is.element(NAME, old_names)) 1571s [00:52:51.258] next 1571s [00:52:51.258] args[[name]] <- ...future.oldEnvVars[[name]] 1571s [00:52:51.258] } 1571s [00:52:51.258] NAMES <- toupper(added) 1571s [00:52:51.258] for (kk in seq_along(NAMES)) { 1571s [00:52:51.258] name <- added[[kk]] 1571s [00:52:51.258] NAME <- NAMES[[kk]] 1571s [00:52:51.258] if (name != NAME && is.element(NAME, old_names)) 1571s [00:52:51.258] next 1571s [00:52:51.258] args[[name]] <- "" 1571s [00:52:51.258] } 1571s [00:52:51.258] NAMES <- toupper(removed) 1571s [00:52:51.258] for (kk in seq_along(NAMES)) { 1571s [00:52:51.258] name <- removed[[kk]] 1571s [00:52:51.258] NAME <- NAMES[[kk]] 1571s [00:52:51.258] if (name != NAME && is.element(NAME, old_names)) 1571s [00:52:51.258] next 1571s [00:52:51.258] args[[name]] <- ...future.oldEnvVars[[name]] 1571s [00:52:51.258] } 1571s [00:52:51.258] if (length(args) > 0) 1571s [00:52:51.258] base::do.call(base::Sys.setenv, args = args) 1571s [00:52:51.258] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1571s [00:52:51.258] } 1571s [00:52:51.258] else { 1571s [00:52:51.258] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1571s [00:52:51.258] } 1571s [00:52:51.258] { 1571s [00:52:51.258] if (base::length(...future.futureOptionsAdded) > 1571s [00:52:51.258] 0L) { 1571s [00:52:51.258] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1571s [00:52:51.258] base::names(opts) <- ...future.futureOptionsAdded 1571s [00:52:51.258] base::options(opts) 1571s [00:52:51.258] } 1571s [00:52:51.258] { 1571s [00:52:51.258] { 1571s [00:52:51.258] NULL 1571s [00:52:51.258] RNGkind("Mersenne-Twister") 1571s [00:52:51.258] base::rm(list = ".Random.seed", envir = base::globalenv(), 1571s [00:52:51.258] inherits = FALSE) 1571s [00:52:51.258] } 1571s [00:52:51.258] options(future.plan = NULL) 1571s [00:52:51.258] if (is.na(NA_character_)) 1571s [00:52:51.258] Sys.unsetenv("R_FUTURE_PLAN") 1571s [00:52:51.258] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1571s [00:52:51.258] future::plan(list(function (..., envir = parent.frame()) 1571s [00:52:51.258] { 1571s [00:52:51.258] future <- SequentialFuture(..., envir = envir) 1571s [00:52:51.258] if (!future$lazy) 1571s [00:52:51.258] future <- run(future) 1571s [00:52:51.258] invisible(future) 1571s [00:52:51.258] }), .cleanup = FALSE, .init = FALSE) 1571s [00:52:51.258] } 1571s [00:52:51.258] } 1571s [00:52:51.258] } 1571s [00:52:51.258] }) 1571s [00:52:51.258] if (TRUE) { 1571s [00:52:51.258] base::sink(type = "output", split = FALSE) 1571s [00:52:51.258] if (TRUE) { 1571s [00:52:51.258] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1571s [00:52:51.258] } 1571s [00:52:51.258] else { 1571s [00:52:51.258] ...future.result["stdout"] <- base::list(NULL) 1571s [00:52:51.258] } 1571s [00:52:51.258] base::close(...future.stdout) 1571s [00:52:51.258] ...future.stdout <- NULL 1571s [00:52:51.258] } 1571s [00:52:51.258] ...future.result$conditions <- ...future.conditions 1571s [00:52:51.258] ...future.result$finished <- base::Sys.time() 1571s [00:52:51.258] ...future.result 1571s [00:52:51.258] } 1571s [00:52:51.262] assign_globals() ... 1571s [00:52:51.262] List of 5 1571s [00:52:51.262] $ ...future.FUN :function (x) 1571s [00:52:51.262] $ future.call.arguments : list() 1571s [00:52:51.262] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1571s [00:52:51.262] $ ...future.elements_ii :List of 4 1571s [00:52:51.262] ..$ A: num 50 1571s [00:52:51.262] ..$ B: num 60 1571s [00:52:51.262] ..$ C: num 70 1571s [00:52:51.262] ..$ D: num 80 1571s [00:52:51.262] $ ...future.seeds_ii : NULL 1571s [00:52:51.262] $ ...future.globals.maxSize: NULL 1571s [00:52:51.262] - attr(*, "where")=List of 5 1571s [00:52:51.262] ..$ ...future.FUN : 1571s [00:52:51.262] ..$ future.call.arguments : 1571s [00:52:51.262] ..$ ...future.elements_ii : 1571s [00:52:51.262] ..$ ...future.seeds_ii : 1571s [00:52:51.262] ..$ ...future.globals.maxSize: 1571s [00:52:51.262] - attr(*, "resolved")= logi FALSE 1571s [00:52:51.262] - attr(*, "total_size")= num 848 1571s [00:52:51.262] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1571s [00:52:51.262] - attr(*, "already-done")= logi TRUE 1571s [00:52:51.272] - copied ‘...future.FUN’ to environment 1571s [00:52:51.272] - copied ‘future.call.arguments’ to environment 1571s [00:52:51.272] - copied ‘...future.elements_ii’ to environment 1571s [00:52:51.273] - copied ‘...future.seeds_ii’ to environment 1571s [00:52:51.273] - copied ‘...future.globals.maxSize’ to environment 1571s [00:52:51.273] assign_globals() ... done 1571s [00:52:51.273] plan(): Setting new future strategy stack: 1571s [00:52:51.273] List of future strategies: 1571s [00:52:51.273] 1. sequential: 1571s [00:52:51.273] - args: function (..., envir = parent.frame()) 1571s [00:52:51.273] - tweaked: FALSE 1571s [00:52:51.273] - call: NULL 1571s [00:52:51.274] plan(): nbrOfWorkers() = 1 1571s [00:52:51.275] plan(): Setting new future strategy stack: 1571s [00:52:51.275] List of future strategies: 1571s [00:52:51.275] 1. sequential: 1571s [00:52:51.275] - args: function (..., envir = parent.frame()) 1571s [00:52:51.275] - tweaked: FALSE 1571s [00:52:51.275] - call: plan(strategy) 1571s [00:52:51.275] plan(): nbrOfWorkers() = 1 1571s [00:52:51.276] SequentialFuture started (and completed) 1571s [00:52:51.276] - Launch lazy future ... done 1571s [00:52:51.276] run() for ‘SequentialFuture’ ... done 1571s [00:52:51.276] Created future: 1571s [00:52:51.276] SequentialFuture: 1571s [00:52:51.276] Label: ‘future_sapply-1’ 1571s [00:52:51.276] Expression: 1571s [00:52:51.276] { 1571s [00:52:51.276] do.call(function(...) { 1571s [00:52:51.276] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1571s [00:52:51.276] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1571s [00:52:51.276] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1571s [00:52:51.276] on.exit(options(oopts), add = TRUE) 1571s [00:52:51.276] } 1571s [00:52:51.276] { 1571s [00:52:51.276] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1571s [00:52:51.276] ...future.X_jj <- ...future.elements_ii[[jj]] 1571s [00:52:51.276] ...future.FUN(...future.X_jj, ...) 1571s [00:52:51.276] }) 1571s [00:52:51.276] } 1571s [00:52:51.276] }, args = future.call.arguments) 1571s [00:52:51.276] } 1571s [00:52:51.276] Lazy evaluation: FALSE 1571s [00:52:51.276] Asynchronous evaluation: FALSE 1571s [00:52:51.276] Local evaluation: TRUE 1571s [00:52:51.276] Environment: R_GlobalEnv 1571s [00:52:51.276] Capture standard output: TRUE 1571s [00:52:51.276] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1571s [00:52:51.276] Globals: 5 objects totaling 1.05 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1571s [00:52:51.276] Packages: 1571s [00:52:51.276] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1571s [00:52:51.276] Resolved: TRUE 1571s [00:52:51.276] Value: 224 bytes of class ‘list’ 1571s [00:52:51.276] Early signaling: FALSE 1571s [00:52:51.276] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1571s [00:52:51.276] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1571s [00:52:51.278] Chunk #1 of 1 ... DONE 1571s [00:52:51.278] Launching 1 futures (chunks) ... DONE 1571s [00:52:51.278] Resolving 1 futures (chunks) ... 1571s [00:52:51.278] resolve() on list ... 1571s [00:52:51.278] recursive: 0 1571s [00:52:51.279] length: 1 1571s [00:52:51.279] 1571s [00:52:51.279] resolved() for ‘SequentialFuture’ ... 1571s [00:52:51.279] - state: ‘finished’ 1571s [00:52:51.279] - run: TRUE 1571s [00:52:51.280] - result: ‘FutureResult’ 1571s [00:52:51.280] resolved() for ‘SequentialFuture’ ... done 1571s [00:52:51.280] Future #1 1571s [00:52:51.281] signalConditionsASAP(SequentialFuture, pos=1) ... 1571s [00:52:51.281] - nx: 1 1571s [00:52:51.281] - relay: TRUE 1571s [00:52:51.281] - stdout: TRUE 1571s [00:52:51.281] - signal: TRUE 1571s [00:52:51.282] - resignal: FALSE 1571s [00:52:51.282] - force: TRUE 1571s [00:52:51.282] - relayed: [n=1] FALSE 1571s [00:52:51.285] - queued futures: [n=1] FALSE 1571s [00:52:51.285] - until=1 1571s [00:52:51.285] - relaying element #1 1571s [00:52:51.285] - relayed: [n=1] TRUE 1571s [00:52:51.286] - queued futures: [n=1] TRUE 1571s [00:52:51.286] signalConditionsASAP(SequentialFuture, pos=1) ... done 1571s [00:52:51.286] length: 0 (resolved future 1) 1571s [00:52:51.286] Relaying remaining futures 1571s [00:52:51.286] signalConditionsASAP(NULL, pos=0) ... 1571s [00:52:51.286] - nx: 1 1571s [00:52:51.287] - relay: TRUE 1571s [00:52:51.287] - stdout: TRUE 1571s [00:52:51.287] - signal: TRUE 1571s [00:52:51.287] - resignal: FALSE 1571s [00:52:51.287] - force: TRUE 1571s [00:52:51.287] - relayed: [n=1] TRUE 1571s [00:52:51.287] - queued futures: [n=1] TRUE 1571s - flush all 1571s [00:52:51.288] - relayed: [n=1] TRUE 1571s [00:52:51.288] - queued futures: [n=1] TRUE 1571s [00:52:51.288] signalConditionsASAP(NULL, pos=0) ... done 1571s [00:52:51.288] resolve() on list ... DONE 1571s [00:52:51.288] - Number of value chunks collected: 1 1571s [00:52:51.289] Resolving 1 futures (chunks) ... DONE 1571s [00:52:51.289] Reducing values from 1 chunks ... 1571s [00:52:51.289] - Number of values collected after concatenation: 4 1571s [00:52:51.289] - Number of values expected: 4 1571s [00:52:51.289] Reducing values from 1 chunks ... DONE 1571s [00:52:51.289] future_lapply() ... DONE 1571s List of 2 1571s $ y0:List of 4 1571s ..$ A: num 50 1571s ..$ B: num 60 1571s ..$ C: num 70 1571s ..$ D: num 80 1571s $ y1:List of 4 1571s ..$ A: num 50 1571s ..$ B: num 60 1571s ..$ C: num 70 1571s ..$ D: num 80 1571s List of 2 1571s $ y0:List of 4 1571s ..$ A: num 50 1571s ..$ B: num 60 1571s ..$ C: num 70 1571s ..$ D: num 80 1571s $ y2:List of 4 1571s ..$ A: num 50 1571s ..$ B: num 60 1571s ..$ C: num 70 1571s ..$ D: num 80 1571s [00:52:51.300] future_lapply() ... 1571s [00:52:51.301] Number of chunks: 1 1571s [00:52:51.301] getGlobalsAndPackagesXApply() ... 1571s [00:52:51.301] - future.globals: TRUE 1571s [00:52:51.301] getGlobalsAndPackages() ... 1571s [00:52:51.302] Searching for globals... 1571s [00:52:51.303] - globals found: [2] ‘FUN’, ‘UseMethod’ 1571s [00:52:51.303] Searching for globals ... DONE 1571s [00:52:51.303] Resolving globals: FALSE 1571s [00:52:51.304] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1571s [00:52:51.304] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1571s [00:52:51.305] - globals: [1] ‘FUN’ 1571s [00:52:51.305] 1571s [00:52:51.305] getGlobalsAndPackages() ... DONE 1571s [00:52:51.305] - globals found/used: [n=1] ‘FUN’ 1571s [00:52:51.305] - needed namespaces: [n=0] 1571s [00:52:51.306] Finding globals ... DONE 1571s [00:52:51.306] - use_args: TRUE 1571s [00:52:51.306] - Getting '...' globals ... 1571s [00:52:51.307] resolve() on list ... 1571s [00:52:51.307] recursive: 0 1571s [00:52:51.307] length: 1 1571s [00:52:51.307] elements: ‘...’ 1571s [00:52:51.307] length: 0 (resolved future 1) 1571s [00:52:51.307] resolve() on list ... DONE 1571s [00:52:51.307] - '...' content: [n=0] 1571s [00:52:51.308] List of 1 1571s [00:52:51.308] $ ...: list() 1571s [00:52:51.308] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1571s [00:52:51.308] - attr(*, "where")=List of 1 1571s [00:52:51.308] ..$ ...: 1571s [00:52:51.308] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1571s [00:52:51.308] - attr(*, "resolved")= logi TRUE 1571s [00:52:51.308] - attr(*, "total_size")= num NA 1571s [00:52:51.311] - Getting '...' globals ... DONE 1571s [00:52:51.312] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1571s [00:52:51.312] List of 2 1571s [00:52:51.312] $ ...future.FUN:function (x, ...) 1571s [00:52:51.312] $ ... : list() 1571s [00:52:51.312] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1571s [00:52:51.312] - attr(*, "where")=List of 2 1571s [00:52:51.312] ..$ ...future.FUN: 1571s [00:52:51.312] ..$ ... : 1571s [00:52:51.312] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1571s [00:52:51.312] - attr(*, "resolved")= logi FALSE 1571s [00:52:51.312] - attr(*, "total_size")= num 1248 1571s [00:52:51.319] Packages to be attached in all futures: [n=0] 1571s [00:52:51.319] getGlobalsAndPackagesXApply() ... DONE 1571s [00:52:51.319] Number of futures (= number of chunks): 1 1571s [00:52:51.319] Launching 1 futures (chunks) ... 1571s [00:52:51.319] Chunk #1 of 1 ... 1571s [00:52:51.320] - Finding globals in 'X' for chunk #1 ... 1571s [00:52:51.320] getGlobalsAndPackages() ... 1571s [00:52:51.320] Searching for globals... 1571s [00:52:51.320] 1571s [00:52:51.320] Searching for globals ... DONE 1571s [00:52:51.321] - globals: [0] 1571s [00:52:51.321] getGlobalsAndPackages() ... DONE 1571s [00:52:51.321] + additional globals found: [n=0] 1571s [00:52:51.321] + additional namespaces needed: [n=0] 1571s [00:52:51.321] - Finding globals in 'X' for chunk #1 ... DONE 1571s [00:52:51.321] - seeds: 1571s [00:52:51.322] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1571s [00:52:51.322] getGlobalsAndPackages() ... 1571s [00:52:51.322] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1571s [00:52:51.322] Resolving globals: FALSE 1571s [00:52:51.322] Tweak future expression to call with '...' arguments ... 1571s [00:52:51.322] { 1571s [00:52:51.322] do.call(function(...) { 1571s [00:52:51.322] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1571s [00:52:51.322] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1571s [00:52:51.322] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1571s [00:52:51.322] on.exit(options(oopts), add = TRUE) 1571s [00:52:51.322] } 1571s [00:52:51.322] { 1571s [00:52:51.322] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1571s [00:52:51.322] ...future.X_jj <- ...future.elements_ii[[jj]] 1571s [00:52:51.322] ...future.FUN(...future.X_jj, ...) 1571s [00:52:51.322] }) 1571s [00:52:51.322] } 1571s [00:52:51.322] }, args = future.call.arguments) 1571s [00:52:51.322] } 1571s [00:52:51.323] Tweak future expression to call with '...' arguments ... DONE 1571s [00:52:51.324] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1571s [00:52:51.324] 1571s [00:52:51.324] getGlobalsAndPackages() ... DONE 1571s [00:52:51.324] run() for ‘Future’ ... 1571s [00:52:51.324] - state: ‘created’ 1571s [00:52:51.325] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1571s [00:52:51.325] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1571s [00:52:51.325] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1571s [00:52:51.325] - Field: ‘label’ 1571s [00:52:51.325] - Field: ‘local’ 1571s [00:52:51.326] - Field: ‘owner’ 1571s [00:52:51.326] - Field: ‘envir’ 1571s [00:52:51.326] - Field: ‘packages’ 1571s [00:52:51.326] - Field: ‘gc’ 1571s [00:52:51.326] - Field: ‘conditions’ 1571s [00:52:51.327] - Field: ‘expr’ 1571s [00:52:51.327] - Field: ‘uuid’ 1571s [00:52:51.327] - Field: ‘seed’ 1571s [00:52:51.327] - Field: ‘version’ 1571s [00:52:51.327] - Field: ‘result’ 1571s [00:52:51.327] - Field: ‘asynchronous’ 1571s [00:52:51.328] - Field: ‘calls’ 1571s [00:52:51.328] - Field: ‘globals’ 1571s [00:52:51.328] - Field: ‘stdout’ 1571s [00:52:51.328] - Field: ‘earlySignal’ 1571s [00:52:51.328] - Field: ‘lazy’ 1571s [00:52:51.328] - Field: ‘state’ 1571s [00:52:51.328] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1571s [00:52:51.329] - Launch lazy future ... 1571s [00:52:51.329] Packages needed by the future expression (n = 0): 1571s [00:52:51.329] Packages needed by future strategies (n = 0): 1571s [00:52:51.330] { 1571s [00:52:51.330] { 1571s [00:52:51.330] { 1571s [00:52:51.330] ...future.startTime <- base::Sys.time() 1571s [00:52:51.330] { 1571s [00:52:51.330] { 1571s [00:52:51.330] { 1571s [00:52:51.330] base::local({ 1571s [00:52:51.330] has_future <- base::requireNamespace("future", 1571s [00:52:51.330] quietly = TRUE) 1571s [00:52:51.330] if (has_future) { 1571s [00:52:51.330] ns <- base::getNamespace("future") 1571s [00:52:51.330] version <- ns[[".package"]][["version"]] 1571s [00:52:51.330] if (is.null(version)) 1571s [00:52:51.330] version <- utils::packageVersion("future") 1571s [00:52:51.330] } 1571s [00:52:51.330] else { 1571s [00:52:51.330] version <- NULL 1571s [00:52:51.330] } 1571s [00:52:51.330] if (!has_future || version < "1.8.0") { 1571s [00:52:51.330] info <- base::c(r_version = base::gsub("R version ", 1571s [00:52:51.330] "", base::R.version$version.string), 1571s [00:52:51.330] platform = base::sprintf("%s (%s-bit)", 1571s [00:52:51.330] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1571s [00:52:51.330] os = base::paste(base::Sys.info()[base::c("sysname", 1571s [00:52:51.330] "release", "version")], collapse = " "), 1571s [00:52:51.330] hostname = base::Sys.info()[["nodename"]]) 1571s [00:52:51.330] info <- base::sprintf("%s: %s", base::names(info), 1571s [00:52:51.330] info) 1571s [00:52:51.330] info <- base::paste(info, collapse = "; ") 1571s [00:52:51.330] if (!has_future) { 1571s [00:52:51.330] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1571s [00:52:51.330] info) 1571s [00:52:51.330] } 1571s [00:52:51.330] else { 1571s [00:52:51.330] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1571s [00:52:51.330] info, version) 1571s [00:52:51.330] } 1571s [00:52:51.330] base::stop(msg) 1571s [00:52:51.330] } 1571s [00:52:51.330] }) 1571s [00:52:51.330] } 1571s [00:52:51.330] options(future.plan = NULL) 1571s [00:52:51.330] Sys.unsetenv("R_FUTURE_PLAN") 1571s [00:52:51.330] future::plan("default", .cleanup = FALSE, .init = FALSE) 1571s [00:52:51.330] } 1571s [00:52:51.330] ...future.workdir <- getwd() 1571s [00:52:51.330] } 1571s [00:52:51.330] ...future.oldOptions <- base::as.list(base::.Options) 1571s [00:52:51.330] ...future.oldEnvVars <- base::Sys.getenv() 1571s [00:52:51.330] } 1571s [00:52:51.330] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1571s [00:52:51.330] future.globals.maxSize = NULL, future.globals.method = NULL, 1571s [00:52:51.330] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1571s [00:52:51.330] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1571s [00:52:51.330] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1571s [00:52:51.330] future.stdout.windows.reencode = NULL, width = 80L) 1571s [00:52:51.330] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1571s [00:52:51.330] base::names(...future.oldOptions)) 1571s [00:52:51.330] } 1571s [00:52:51.330] if (FALSE) { 1571s [00:52:51.330] } 1571s [00:52:51.330] else { 1571s [00:52:51.330] if (TRUE) { 1571s [00:52:51.330] ...future.stdout <- base::rawConnection(base::raw(0L), 1571s [00:52:51.330] open = "w") 1571s [00:52:51.330] } 1571s [00:52:51.330] else { 1571s [00:52:51.330] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1571s [00:52:51.330] windows = "NUL", "/dev/null"), open = "w") 1571s [00:52:51.330] } 1571s [00:52:51.330] base::sink(...future.stdout, type = "output", split = FALSE) 1571s [00:52:51.330] base::on.exit(if (!base::is.null(...future.stdout)) { 1571s [00:52:51.330] base::sink(type = "output", split = FALSE) 1571s [00:52:51.330] base::close(...future.stdout) 1571s [00:52:51.330] }, add = TRUE) 1571s [00:52:51.330] } 1571s [00:52:51.330] ...future.frame <- base::sys.nframe() 1571s [00:52:51.330] ...future.conditions <- base::list() 1571s [00:52:51.330] ...future.rng <- base::globalenv()$.Random.seed 1571s [00:52:51.330] if (FALSE) { 1571s [00:52:51.330] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1571s [00:52:51.330] "...future.value", "...future.globalenv.names", ".Random.seed") 1571s [00:52:51.330] } 1571s [00:52:51.330] ...future.result <- base::tryCatch({ 1571s [00:52:51.330] base::withCallingHandlers({ 1571s [00:52:51.330] ...future.value <- base::withVisible(base::local({ 1571s [00:52:51.330] do.call(function(...) { 1571s [00:52:51.330] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1571s [00:52:51.330] if (!identical(...future.globals.maxSize.org, 1571s [00:52:51.330] ...future.globals.maxSize)) { 1571s [00:52:51.330] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1571s [00:52:51.330] on.exit(options(oopts), add = TRUE) 1571s [00:52:51.330] } 1571s [00:52:51.330] { 1571s [00:52:51.330] lapply(seq_along(...future.elements_ii), 1571s [00:52:51.330] FUN = function(jj) { 1571s [00:52:51.330] ...future.X_jj <- ...future.elements_ii[[jj]] 1571s [00:52:51.330] ...future.FUN(...future.X_jj, ...) 1571s [00:52:51.330] }) 1571s [00:52:51.330] } 1571s [00:52:51.330] }, args = future.call.arguments) 1571s [00:52:51.330] })) 1571s [00:52:51.330] future::FutureResult(value = ...future.value$value, 1571s [00:52:51.330] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1571s [00:52:51.330] ...future.rng), globalenv = if (FALSE) 1571s [00:52:51.330] list(added = base::setdiff(base::names(base::.GlobalEnv), 1571s [00:52:51.330] ...future.globalenv.names)) 1571s [00:52:51.330] else NULL, started = ...future.startTime, version = "1.8") 1571s [00:52:51.330] }, condition = base::local({ 1571s [00:52:51.330] c <- base::c 1571s [00:52:51.330] inherits <- base::inherits 1571s [00:52:51.330] invokeRestart <- base::invokeRestart 1571s [00:52:51.330] length <- base::length 1571s [00:52:51.330] list <- base::list 1571s [00:52:51.330] seq.int <- base::seq.int 1571s [00:52:51.330] signalCondition <- base::signalCondition 1571s [00:52:51.330] sys.calls <- base::sys.calls 1571s [00:52:51.330] `[[` <- base::`[[` 1571s [00:52:51.330] `+` <- base::`+` 1571s [00:52:51.330] `<<-` <- base::`<<-` 1571s [00:52:51.330] sysCalls <- function(calls = sys.calls(), from = 1L) { 1571s [00:52:51.330] calls[seq.int(from = from + 12L, to = length(calls) - 1571s [00:52:51.330] 3L)] 1571s [00:52:51.330] } 1571s [00:52:51.330] function(cond) { 1571s [00:52:51.330] is_error <- inherits(cond, "error") 1571s [00:52:51.330] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1571s [00:52:51.330] NULL) 1571s [00:52:51.330] if (is_error) { 1571s [00:52:51.330] sessionInformation <- function() { 1571s [00:52:51.330] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1571s [00:52:51.330] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1571s [00:52:51.330] search = base::search(), system = base::Sys.info()) 1571s [00:52:51.330] } 1571s [00:52:51.330] ...future.conditions[[length(...future.conditions) + 1571s [00:52:51.330] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1571s [00:52:51.330] cond$call), session = sessionInformation(), 1571s [00:52:51.330] timestamp = base::Sys.time(), signaled = 0L) 1571s [00:52:51.330] signalCondition(cond) 1571s [00:52:51.330] } 1571s [00:52:51.330] else if (!ignore && TRUE && inherits(cond, c("condition", 1571s [00:52:51.330] "immediateCondition"))) { 1571s [00:52:51.330] signal <- TRUE && inherits(cond, "immediateCondition") 1571s [00:52:51.330] ...future.conditions[[length(...future.conditions) + 1571s [00:52:51.330] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1571s [00:52:51.330] if (TRUE && !signal) { 1571s [00:52:51.330] muffleCondition <- function (cond, pattern = "^muffle") 1571s [00:52:51.330] { 1571s [00:52:51.330] inherits <- base::inherits 1571s [00:52:51.330] invokeRestart <- base::invokeRestart 1571s [00:52:51.330] is.null <- base::is.null 1571s [00:52:51.330] muffled <- FALSE 1571s [00:52:51.330] if (inherits(cond, "message")) { 1571s [00:52:51.330] muffled <- grepl(pattern, "muffleMessage") 1571s [00:52:51.330] if (muffled) 1571s [00:52:51.330] invokeRestart("muffleMessage") 1571s [00:52:51.330] } 1571s [00:52:51.330] else if (inherits(cond, "warning")) { 1571s [00:52:51.330] muffled <- grepl(pattern, "muffleWarning") 1571s [00:52:51.330] if (muffled) 1571s [00:52:51.330] invokeRestart("muffleWarning") 1571s [00:52:51.330] } 1571s [00:52:51.330] else if (inherits(cond, "condition")) { 1571s [00:52:51.330] if (!is.null(pattern)) { 1571s [00:52:51.330] computeRestarts <- base::computeRestarts 1571s [00:52:51.330] grepl <- base::grepl 1571s [00:52:51.330] restarts <- computeRestarts(cond) 1571s [00:52:51.330] for (restart in restarts) { 1571s [00:52:51.330] name <- restart$name 1571s [00:52:51.330] if (is.null(name)) 1571s [00:52:51.330] next 1571s [00:52:51.330] if (!grepl(pattern, name)) 1571s [00:52:51.330] next 1571s [00:52:51.330] invokeRestart(restart) 1571s [00:52:51.330] muffled <- TRUE 1571s [00:52:51.330] break 1571s [00:52:51.330] } 1571s [00:52:51.330] } 1571s [00:52:51.330] } 1571s [00:52:51.330] invisible(muffled) 1571s [00:52:51.330] } 1571s [00:52:51.330] muffleCondition(cond, pattern = "^muffle") 1571s [00:52:51.330] } 1571s [00:52:51.330] } 1571s [00:52:51.330] else { 1571s [00:52:51.330] if (TRUE) { 1571s [00:52:51.330] muffleCondition <- function (cond, pattern = "^muffle") 1571s [00:52:51.330] { 1571s [00:52:51.330] inherits <- base::inherits 1571s [00:52:51.330] invokeRestart <- base::invokeRestart 1571s [00:52:51.330] is.null <- base::is.null 1571s [00:52:51.330] muffled <- FALSE 1571s [00:52:51.330] if (inherits(cond, "message")) { 1571s [00:52:51.330] muffled <- grepl(pattern, "muffleMessage") 1571s [00:52:51.330] if (muffled) 1571s [00:52:51.330] invokeRestart("muffleMessage") 1571s [00:52:51.330] } 1571s [00:52:51.330] else if (inherits(cond, "warning")) { 1571s [00:52:51.330] muffled <- grepl(pattern, "muffleWarning") 1571s [00:52:51.330] if (muffled) 1571s [00:52:51.330] invokeRestart("muffleWarning") 1571s [00:52:51.330] } 1571s [00:52:51.330] else if (inherits(cond, "condition")) { 1571s [00:52:51.330] if (!is.null(pattern)) { 1571s [00:52:51.330] computeRestarts <- base::computeRestarts 1571s [00:52:51.330] grepl <- base::grepl 1571s [00:52:51.330] restarts <- computeRestarts(cond) 1571s [00:52:51.330] for (restart in restarts) { 1571s [00:52:51.330] name <- restart$name 1571s [00:52:51.330] if (is.null(name)) 1571s [00:52:51.330] next 1571s [00:52:51.330] if (!grepl(pattern, name)) 1571s [00:52:51.330] next 1571s [00:52:51.330] invokeRestart(restart) 1571s [00:52:51.330] muffled <- TRUE 1571s [00:52:51.330] break 1571s [00:52:51.330] } 1571s [00:52:51.330] } 1571s [00:52:51.330] } 1571s [00:52:51.330] invisible(muffled) 1571s [00:52:51.330] } 1571s [00:52:51.330] muffleCondition(cond, pattern = "^muffle") 1571s [00:52:51.330] } 1571s [00:52:51.330] } 1571s [00:52:51.330] } 1571s [00:52:51.330] })) 1571s [00:52:51.330] }, error = function(ex) { 1571s [00:52:51.330] base::structure(base::list(value = NULL, visible = NULL, 1571s [00:52:51.330] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1571s [00:52:51.330] ...future.rng), started = ...future.startTime, 1571s [00:52:51.330] finished = Sys.time(), session_uuid = NA_character_, 1571s [00:52:51.330] version = "1.8"), class = "FutureResult") 1571s [00:52:51.330] }, finally = { 1571s [00:52:51.330] if (!identical(...future.workdir, getwd())) 1571s [00:52:51.330] setwd(...future.workdir) 1571s [00:52:51.330] { 1571s [00:52:51.330] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1571s [00:52:51.330] ...future.oldOptions$nwarnings <- NULL 1571s [00:52:51.330] } 1571s [00:52:51.330] base::options(...future.oldOptions) 1571s [00:52:51.330] if (.Platform$OS.type == "windows") { 1571s [00:52:51.330] old_names <- names(...future.oldEnvVars) 1571s [00:52:51.330] envs <- base::Sys.getenv() 1571s [00:52:51.330] names <- names(envs) 1571s [00:52:51.330] common <- intersect(names, old_names) 1571s [00:52:51.330] added <- setdiff(names, old_names) 1571s [00:52:51.330] removed <- setdiff(old_names, names) 1571s [00:52:51.330] changed <- common[...future.oldEnvVars[common] != 1571s [00:52:51.330] envs[common]] 1571s [00:52:51.330] NAMES <- toupper(changed) 1571s [00:52:51.330] args <- list() 1571s [00:52:51.330] for (kk in seq_along(NAMES)) { 1571s [00:52:51.330] name <- changed[[kk]] 1571s [00:52:51.330] NAME <- NAMES[[kk]] 1571s [00:52:51.330] if (name != NAME && is.element(NAME, old_names)) 1571s [00:52:51.330] next 1571s [00:52:51.330] args[[name]] <- ...future.oldEnvVars[[name]] 1571s [00:52:51.330] } 1571s [00:52:51.330] NAMES <- toupper(added) 1571s [00:52:51.330] for (kk in seq_along(NAMES)) { 1571s [00:52:51.330] name <- added[[kk]] 1571s [00:52:51.330] NAME <- NAMES[[kk]] 1571s [00:52:51.330] if (name != NAME && is.element(NAME, old_names)) 1571s [00:52:51.330] next 1571s [00:52:51.330] args[[name]] <- "" 1571s [00:52:51.330] } 1571s [00:52:51.330] NAMES <- toupper(removed) 1571s [00:52:51.330] for (kk in seq_along(NAMES)) { 1571s [00:52:51.330] name <- removed[[kk]] 1571s [00:52:51.330] NAME <- NAMES[[kk]] 1571s [00:52:51.330] if (name != NAME && is.element(NAME, old_names)) 1571s [00:52:51.330] next 1571s [00:52:51.330] args[[name]] <- ...future.oldEnvVars[[name]] 1571s [00:52:51.330] } 1571s [00:52:51.330] if (length(args) > 0) 1571s [00:52:51.330] base::do.call(base::Sys.setenv, args = args) 1571s [00:52:51.330] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1571s [00:52:51.330] } 1571s [00:52:51.330] else { 1571s [00:52:51.330] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1571s [00:52:51.330] } 1571s [00:52:51.330] { 1571s [00:52:51.330] if (base::length(...future.futureOptionsAdded) > 1571s [00:52:51.330] 0L) { 1571s [00:52:51.330] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1571s [00:52:51.330] base::names(opts) <- ...future.futureOptionsAdded 1571s [00:52:51.330] base::options(opts) 1571s [00:52:51.330] } 1571s [00:52:51.330] { 1571s [00:52:51.330] { 1571s [00:52:51.330] NULL 1571s [00:52:51.330] RNGkind("Mersenne-Twister") 1571s [00:52:51.330] base::rm(list = ".Random.seed", envir = base::globalenv(), 1571s [00:52:51.330] inherits = FALSE) 1571s [00:52:51.330] } 1571s [00:52:51.330] options(future.plan = NULL) 1571s [00:52:51.330] if (is.na(NA_character_)) 1571s [00:52:51.330] Sys.unsetenv("R_FUTURE_PLAN") 1571s [00:52:51.330] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1571s [00:52:51.330] future::plan(list(function (..., envir = parent.frame()) 1571s [00:52:51.330] { 1571s [00:52:51.330] future <- SequentialFuture(..., envir = envir) 1571s [00:52:51.330] if (!future$lazy) 1571s [00:52:51.330] future <- run(future) 1571s [00:52:51.330] invisible(future) 1571s [00:52:51.330] }), .cleanup = FALSE, .init = FALSE) 1571s [00:52:51.330] } 1571s [00:52:51.330] } 1571s [00:52:51.330] } 1571s [00:52:51.330] }) 1571s [00:52:51.330] if (TRUE) { 1571s [00:52:51.330] base::sink(type = "output", split = FALSE) 1571s [00:52:51.330] if (TRUE) { 1571s [00:52:51.330] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1571s [00:52:51.330] } 1571s [00:52:51.330] else { 1571s [00:52:51.330] ...future.result["stdout"] <- base::list(NULL) 1571s [00:52:51.330] } 1571s [00:52:51.330] base::close(...future.stdout) 1571s [00:52:51.330] ...future.stdout <- NULL 1571s [00:52:51.330] } 1571s [00:52:51.330] ...future.result$conditions <- ...future.conditions 1571s [00:52:51.330] ...future.result$finished <- base::Sys.time() 1571s [00:52:51.330] ...future.result 1571s [00:52:51.330] } 1571s [00:52:51.335] assign_globals() ... 1571s [00:52:51.335] List of 5 1571s [00:52:51.335] $ ...future.FUN :function (x, ...) 1571s [00:52:51.335] $ future.call.arguments : list() 1571s [00:52:51.335] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1571s [00:52:51.335] $ ...future.elements_ii :List of 4 1571s [00:52:51.335] ..$ A: num 50 1571s [00:52:51.335] ..$ B: num 60 1571s [00:52:51.335] ..$ C: num 70 1571s [00:52:51.335] ..$ D: num 80 1571s [00:52:51.335] $ ...future.seeds_ii : NULL 1571s [00:52:51.335] $ ...future.globals.maxSize: NULL 1571s [00:52:51.335] - attr(*, "where")=List of 5 1571s [00:52:51.335] ..$ ...future.FUN : 1571s [00:52:51.335] ..$ future.call.arguments : 1571s [00:52:51.335] ..$ ...future.elements_ii : 1571s [00:52:51.335] ..$ ...future.seeds_ii : 1571s [00:52:51.335] ..$ ...future.globals.maxSize: 1571s [00:52:51.335] - attr(*, "resolved")= logi FALSE 1571s [00:52:51.335] - attr(*, "total_size")= num 1248 1571s [00:52:51.335] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1571s [00:52:51.335] - attr(*, "already-done")= logi TRUE 1571s [00:52:51.343] - copied ‘...future.FUN’ to environment 1571s [00:52:51.343] - copied ‘future.call.arguments’ to environment 1571s [00:52:51.343] - copied ‘...future.elements_ii’ to environment 1571s [00:52:51.343] - copied ‘...future.seeds_ii’ to environment 1571s [00:52:51.343] - copied ‘...future.globals.maxSize’ to environment 1571s [00:52:51.343] assign_globals() ... done 1571s [00:52:51.344] plan(): Setting new future strategy stack: 1571s [00:52:51.344] List of future strategies: 1571s [00:52:51.344] 1. sequential: 1571s [00:52:51.344] - args: function (..., envir = parent.frame()) 1571s [00:52:51.344] - tweaked: FALSE 1571s [00:52:51.344] - call: NULL 1571s [00:52:51.345] plan(): nbrOfWorkers() = 1 1571s [00:52:51.345] plan(): Setting new future strategy stack: 1571s [00:52:51.346] List of future strategies: 1571s [00:52:51.346] 1. sequential: 1571s [00:52:51.346] - args: function (..., envir = parent.frame()) 1571s [00:52:51.346] - tweaked: FALSE 1571s [00:52:51.346] - call: plan(strategy) 1571s [00:52:51.346] plan(): nbrOfWorkers() = 1 1571s [00:52:51.346] SequentialFuture started (and completed) 1571s [00:52:51.346] - Launch lazy future ... done 1571s [00:52:51.347] run() for ‘SequentialFuture’ ... done 1571s [00:52:51.347] Created future: 1571s [00:52:51.347] SequentialFuture: 1571s [00:52:51.347] Label: ‘future_sapply-1’ 1571s [00:52:51.347] Expression: 1571s [00:52:51.347] { 1571s [00:52:51.347] do.call(function(...) { 1571s [00:52:51.347] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1571s [00:52:51.347] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1571s [00:52:51.347] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1571s [00:52:51.347] on.exit(options(oopts), add = TRUE) 1571s [00:52:51.347] } 1571s [00:52:51.347] { 1571s [00:52:51.347] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1571s [00:52:51.347] ...future.X_jj <- ...future.elements_ii[[jj]] 1571s [00:52:51.347] ...future.FUN(...future.X_jj, ...) 1571s [00:52:51.347] }) 1571s [00:52:51.347] } 1571s [00:52:51.347] }, args = future.call.arguments) 1571s [00:52:51.347] } 1571s [00:52:51.347] Lazy evaluation: FALSE 1571s [00:52:51.347] Asynchronous evaluation: FALSE 1571s [00:52:51.347] Local evaluation: TRUE 1571s [00:52:51.347] Environment: R_GlobalEnv 1571s [00:52:51.347] Capture standard output: TRUE 1571s [00:52:51.347] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1571s [00:52:51.347] Globals: 5 objects totaling 1.44 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1571s [00:52:51.347] Packages: 1571s [00:52:51.347] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1571s [00:52:51.347] Resolved: TRUE 1571s [00:52:51.347] Value: 896 bytes of class ‘list’ 1571s [00:52:51.347] Early signaling: FALSE 1571s [00:52:51.347] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1571s [00:52:51.347] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1571s [00:52:51.349] Chunk #1 of 1 ... DONE 1571s [00:52:51.349] Launching 1 futures (chunks) ... DONE 1571s [00:52:51.349] Resolving 1 futures (chunks) ... 1571s [00:52:51.349] resolve() on list ... 1571s [00:52:51.349] recursive: 0 1571s [00:52:51.349] length: 1 1571s [00:52:51.350] 1571s [00:52:51.350] resolved() for ‘SequentialFuture’ ... 1571s [00:52:51.350] - state: ‘finished’ 1571s [00:52:51.350] - run: TRUE 1571s [00:52:51.350] - result: ‘FutureResult’ 1571s [00:52:51.350] resolved() for ‘SequentialFuture’ ... done 1571s [00:52:51.351] Future #1 1571s [00:52:51.351] signalConditionsASAP(SequentialFuture, pos=1) ... 1571s [00:52:51.351] - nx: 1 1571s [00:52:51.351] - relay: TRUE 1571s [00:52:51.351] - stdout: TRUE 1571s [00:52:51.352] - signal: TRUE 1571s [00:52:51.352] - resignal: FALSE 1571s [00:52:51.352] - force: TRUE 1571s [00:52:51.352] - relayed: [n=1] FALSE 1571s [00:52:51.356] - queued futures: [n=1] FALSE 1571s [00:52:51.356] - until=1 1571s [00:52:51.356] - relaying element #1 1571s [00:52:51.356] - relayed: [n=1] TRUE 1571s [00:52:51.356] - queued futures: [n=1] TRUE 1571s [00:52:51.357] signalConditionsASAP(SequentialFuture, pos=1) ... done 1571s [00:52:51.357] length: 0 (resolved future 1) 1571s [00:52:51.357] Relaying remaining futures 1571s [00:52:51.357] signalConditionsASAP(NULL, pos=0) ... 1571s [00:52:51.357] - nx: 1 1571s [00:52:51.357] - relay: TRUE 1571s [00:52:51.357] - stdout: TRUE 1571s [00:52:51.358] - signal: TRUE 1571s [00:52:51.358] - resignal: FALSE 1571s [00:52:51.358] - force: TRUE 1571s [00:52:51.358] - relayed: [n=1] TRUE 1571s [00:52:51.358] - queued futures: [n=1] TRUE 1571s - flush all 1571s [00:52:51.358] - relayed: [n=1] TRUE 1571s [00:52:51.358] - queued futures: [n=1] TRUE 1571s [00:52:51.359] signalConditionsASAP(NULL, pos=0) ... done 1571s [00:52:51.359] resolve() on list ... DONE 1571s [00:52:51.359] - Number of value chunks collected: 1 1571s [00:52:51.360] Resolving 1 futures (chunks) ... DONE 1571s [00:52:51.360] Reducing values from 1 chunks ... 1571s [00:52:51.360] - Number of values collected after concatenation: 4 1571s [00:52:51.361] - Number of values expected: 4 1571s [00:52:51.361] Reducing values from 1 chunks ... DONE 1571s [00:52:51.361] future_lapply() ... DONE 1571s List of 2 1571s $ y0:List of 4 1571s ..$ A: num [1, 1] 50 1571s ..$ B: num [1, 1] 60 1571s ..$ C: num [1, 1] 70 1571s ..$ D: num [1, 1] 80 1571s $ y1:List of 4 1571s ..$ A: num [1, 1] 50 1571s ..$ B: num [1, 1] 60 1571s ..$ C: num [1, 1] 70 1571s ..$ D: num [1, 1] 80 1571s List of 2 1571s $ y0:List of 4 1571s ..$ A: num [1, 1] 50 1571s ..$ B: num [1, 1] 60 1571s ..$ C: num [1, 1] 70 1571s ..$ D: num [1, 1] 80 1571s $ y2:List of 4 1571s ..$ A: num [1, 1] 50 1571s ..$ B: num [1, 1] 60 1571s ..$ C: num [1, 1] 70 1571s ..$ D: num [1, 1] 80 1571s [00:52:51.373] future_lapply() ... 1571s [00:52:51.375] Number of chunks: 1 1571s [00:52:51.375] getGlobalsAndPackagesXApply() ... 1571s [00:52:51.375] - future.globals: TRUE 1571s [00:52:51.375] getGlobalsAndPackages() ... 1571s [00:52:51.375] Searching for globals... 1571s [00:52:51.377] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1571s [00:52:51.377] Searching for globals ... DONE 1571s [00:52:51.377] Resolving globals: FALSE 1571s [00:52:51.378] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1571s [00:52:51.378] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1571s [00:52:51.378] - globals: [1] ‘FUN’ 1571s [00:52:51.378] 1571s [00:52:51.379] getGlobalsAndPackages() ... DONE 1571s [00:52:51.379] - globals found/used: [n=1] ‘FUN’ 1571s [00:52:51.379] - needed namespaces: [n=0] 1571s [00:52:51.379] Finding globals ... DONE 1571s [00:52:51.379] - use_args: TRUE 1571s [00:52:51.379] - Getting '...' globals ... 1571s [00:52:51.379] resolve() on list ... 1571s [00:52:51.380] recursive: 0 1571s [00:52:51.380] length: 1 1571s [00:52:51.380] elements: ‘...’ 1571s [00:52:51.380] length: 0 (resolved future 1) 1571s [00:52:51.380] resolve() on list ... DONE 1571s [00:52:51.380] - '...' content: [n=0] 1571s [00:52:51.380] List of 1 1571s [00:52:51.380] $ ...: list() 1571s [00:52:51.380] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1571s [00:52:51.380] - attr(*, "where")=List of 1 1571s [00:52:51.380] ..$ ...: 1571s [00:52:51.380] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1571s [00:52:51.380] - attr(*, "resolved")= logi TRUE 1571s [00:52:51.380] - attr(*, "total_size")= num NA 1571s [00:52:51.384] - Getting '...' globals ... DONE 1571s [00:52:51.384] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1571s [00:52:51.384] List of 2 1571s [00:52:51.384] $ ...future.FUN:function (x, y = 2 * 1:5) 1571s [00:52:51.384] $ ... : list() 1571s [00:52:51.384] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1571s [00:52:51.384] - attr(*, "where")=List of 2 1571s [00:52:51.384] ..$ ...future.FUN: 1571s [00:52:51.384] ..$ ... : 1571s [00:52:51.384] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1571s [00:52:51.384] - attr(*, "resolved")= logi FALSE 1571s [00:52:51.384] - attr(*, "total_size")= num 4728 1571s [00:52:51.390] Packages to be attached in all futures: [n=0] 1571s [00:52:51.391] getGlobalsAndPackagesXApply() ... DONE 1571s [00:52:51.391] Number of futures (= number of chunks): 1 1571s [00:52:51.391] Launching 1 futures (chunks) ... 1571s [00:52:51.391] Chunk #1 of 1 ... 1571s [00:52:51.391] - Finding globals in 'X' for chunk #1 ... 1571s [00:52:51.392] getGlobalsAndPackages() ... 1571s [00:52:51.392] Searching for globals... 1571s [00:52:51.392] 1571s [00:52:51.392] Searching for globals ... DONE 1571s [00:52:51.392] - globals: [0] 1571s [00:52:51.393] getGlobalsAndPackages() ... DONE 1571s [00:52:51.393] + additional globals found: [n=0] 1571s [00:52:51.393] + additional namespaces needed: [n=0] 1571s [00:52:51.393] - Finding globals in 'X' for chunk #1 ... DONE 1571s [00:52:51.394] - seeds: 1571s [00:52:51.394] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1571s [00:52:51.394] getGlobalsAndPackages() ... 1571s [00:52:51.394] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1571s [00:52:51.395] Resolving globals: FALSE 1571s [00:52:51.395] Tweak future expression to call with '...' arguments ... 1571s [00:52:51.395] { 1571s [00:52:51.395] do.call(function(...) { 1571s [00:52:51.395] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1571s [00:52:51.395] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1571s [00:52:51.395] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1571s [00:52:51.395] on.exit(options(oopts), add = TRUE) 1571s [00:52:51.395] } 1571s [00:52:51.395] { 1571s [00:52:51.395] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1571s [00:52:51.395] ...future.X_jj <- ...future.elements_ii[[jj]] 1571s [00:52:51.395] ...future.FUN(...future.X_jj, ...) 1571s [00:52:51.395] }) 1571s [00:52:51.395] } 1571s [00:52:51.395] }, args = future.call.arguments) 1571s [00:52:51.395] } 1571s [00:52:51.395] Tweak future expression to call with '...' arguments ... DONE 1571s [00:52:51.396] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1571s [00:52:51.397] 1571s [00:52:51.397] getGlobalsAndPackages() ... DONE 1571s [00:52:51.397] run() for ‘Future’ ... 1571s [00:52:51.397] - state: ‘created’ 1571s [00:52:51.398] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1571s [00:52:51.398] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1571s [00:52:51.399] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1571s [00:52:51.399] - Field: ‘label’ 1571s [00:52:51.399] - Field: ‘local’ 1571s [00:52:51.399] - Field: ‘owner’ 1571s [00:52:51.399] - Field: ‘envir’ 1571s [00:52:51.399] - Field: ‘packages’ 1571s [00:52:51.400] - Field: ‘gc’ 1571s [00:52:51.400] - Field: ‘conditions’ 1571s [00:52:51.400] - Field: ‘expr’ 1571s [00:52:51.400] - Field: ‘uuid’ 1571s [00:52:51.401] - Field: ‘seed’ 1571s [00:52:51.401] - Field: ‘version’ 1571s [00:52:51.401] - Field: ‘result’ 1571s [00:52:51.401] - Field: ‘asynchronous’ 1571s [00:52:51.401] - Field: ‘calls’ 1571s [00:52:51.401] - Field: ‘globals’ 1571s [00:52:51.402] - Field: ‘stdout’ 1571s [00:52:51.402] - Field: ‘earlySignal’ 1571s [00:52:51.402] - Field: ‘lazy’ 1571s [00:52:51.402] - Field: ‘state’ 1571s [00:52:51.402] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1571s [00:52:51.402] - Launch lazy future ... 1571s [00:52:51.403] Packages needed by the future expression (n = 0): 1571s [00:52:51.403] Packages needed by future strategies (n = 0): 1571s [00:52:51.403] { 1571s [00:52:51.403] { 1571s [00:52:51.403] { 1571s [00:52:51.403] ...future.startTime <- base::Sys.time() 1571s [00:52:51.403] { 1571s [00:52:51.403] { 1571s [00:52:51.403] { 1571s [00:52:51.403] base::local({ 1571s [00:52:51.403] has_future <- base::requireNamespace("future", 1571s [00:52:51.403] quietly = TRUE) 1571s [00:52:51.403] if (has_future) { 1571s [00:52:51.403] ns <- base::getNamespace("future") 1571s [00:52:51.403] version <- ns[[".package"]][["version"]] 1571s [00:52:51.403] if (is.null(version)) 1571s [00:52:51.403] version <- utils::packageVersion("future") 1571s [00:52:51.403] } 1571s [00:52:51.403] else { 1571s [00:52:51.403] version <- NULL 1571s [00:52:51.403] } 1571s [00:52:51.403] if (!has_future || version < "1.8.0") { 1571s [00:52:51.403] info <- base::c(r_version = base::gsub("R version ", 1571s [00:52:51.403] "", base::R.version$version.string), 1571s [00:52:51.403] platform = base::sprintf("%s (%s-bit)", 1571s [00:52:51.403] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1571s [00:52:51.403] os = base::paste(base::Sys.info()[base::c("sysname", 1571s [00:52:51.403] "release", "version")], collapse = " "), 1571s [00:52:51.403] hostname = base::Sys.info()[["nodename"]]) 1571s [00:52:51.403] info <- base::sprintf("%s: %s", base::names(info), 1571s [00:52:51.403] info) 1571s [00:52:51.403] info <- base::paste(info, collapse = "; ") 1571s [00:52:51.403] if (!has_future) { 1571s [00:52:51.403] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1571s [00:52:51.403] info) 1571s [00:52:51.403] } 1571s [00:52:51.403] else { 1571s [00:52:51.403] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1571s [00:52:51.403] info, version) 1571s [00:52:51.403] } 1571s [00:52:51.403] base::stop(msg) 1571s [00:52:51.403] } 1571s [00:52:51.403] }) 1571s [00:52:51.403] } 1571s [00:52:51.403] options(future.plan = NULL) 1571s [00:52:51.403] Sys.unsetenv("R_FUTURE_PLAN") 1571s [00:52:51.403] future::plan("default", .cleanup = FALSE, .init = FALSE) 1571s [00:52:51.403] } 1571s [00:52:51.403] ...future.workdir <- getwd() 1571s [00:52:51.403] } 1571s [00:52:51.403] ...future.oldOptions <- base::as.list(base::.Options) 1571s [00:52:51.403] ...future.oldEnvVars <- base::Sys.getenv() 1571s [00:52:51.403] } 1571s [00:52:51.403] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1571s [00:52:51.403] future.globals.maxSize = NULL, future.globals.method = NULL, 1571s [00:52:51.403] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1571s [00:52:51.403] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1571s [00:52:51.403] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1571s [00:52:51.403] future.stdout.windows.reencode = NULL, width = 80L) 1571s [00:52:51.403] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1571s [00:52:51.403] base::names(...future.oldOptions)) 1571s [00:52:51.403] } 1571s [00:52:51.403] if (FALSE) { 1571s [00:52:51.403] } 1571s [00:52:51.403] else { 1571s [00:52:51.403] if (TRUE) { 1571s [00:52:51.403] ...future.stdout <- base::rawConnection(base::raw(0L), 1571s [00:52:51.403] open = "w") 1571s [00:52:51.403] } 1571s [00:52:51.403] else { 1571s [00:52:51.403] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1571s [00:52:51.403] windows = "NUL", "/dev/null"), open = "w") 1571s [00:52:51.403] } 1571s [00:52:51.403] base::sink(...future.stdout, type = "output", split = FALSE) 1571s [00:52:51.403] base::on.exit(if (!base::is.null(...future.stdout)) { 1571s [00:52:51.403] base::sink(type = "output", split = FALSE) 1571s [00:52:51.403] base::close(...future.stdout) 1571s [00:52:51.403] }, add = TRUE) 1571s [00:52:51.403] } 1571s [00:52:51.403] ...future.frame <- base::sys.nframe() 1571s [00:52:51.403] ...future.conditions <- base::list() 1571s [00:52:51.403] ...future.rng <- base::globalenv()$.Random.seed 1571s [00:52:51.403] if (FALSE) { 1571s [00:52:51.403] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1571s [00:52:51.403] "...future.value", "...future.globalenv.names", ".Random.seed") 1571s [00:52:51.403] } 1571s [00:52:51.403] ...future.result <- base::tryCatch({ 1571s [00:52:51.403] base::withCallingHandlers({ 1571s [00:52:51.403] ...future.value <- base::withVisible(base::local({ 1571s [00:52:51.403] do.call(function(...) { 1571s [00:52:51.403] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1571s [00:52:51.403] if (!identical(...future.globals.maxSize.org, 1571s [00:52:51.403] ...future.globals.maxSize)) { 1571s [00:52:51.403] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1571s [00:52:51.403] on.exit(options(oopts), add = TRUE) 1571s [00:52:51.403] } 1571s [00:52:51.403] { 1571s [00:52:51.403] lapply(seq_along(...future.elements_ii), 1571s [00:52:51.403] FUN = function(jj) { 1571s [00:52:51.403] ...future.X_jj <- ...future.elements_ii[[jj]] 1571s [00:52:51.403] ...future.FUN(...future.X_jj, ...) 1571s [00:52:51.403] }) 1571s [00:52:51.403] } 1571s [00:52:51.403] }, args = future.call.arguments) 1571s [00:52:51.403] })) 1571s [00:52:51.403] future::FutureResult(value = ...future.value$value, 1571s [00:52:51.403] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1571s [00:52:51.403] ...future.rng), globalenv = if (FALSE) 1571s [00:52:51.403] list(added = base::setdiff(base::names(base::.GlobalEnv), 1571s [00:52:51.403] ...future.globalenv.names)) 1571s [00:52:51.403] else NULL, started = ...future.startTime, version = "1.8") 1571s [00:52:51.403] }, condition = base::local({ 1571s [00:52:51.403] c <- base::c 1571s [00:52:51.403] inherits <- base::inherits 1571s [00:52:51.403] invokeRestart <- base::invokeRestart 1571s [00:52:51.403] length <- base::length 1571s [00:52:51.403] list <- base::list 1571s [00:52:51.403] seq.int <- base::seq.int 1571s [00:52:51.403] signalCondition <- base::signalCondition 1571s [00:52:51.403] sys.calls <- base::sys.calls 1571s [00:52:51.403] `[[` <- base::`[[` 1571s [00:52:51.403] `+` <- base::`+` 1571s [00:52:51.403] `<<-` <- base::`<<-` 1571s [00:52:51.403] sysCalls <- function(calls = sys.calls(), from = 1L) { 1571s [00:52:51.403] calls[seq.int(from = from + 12L, to = length(calls) - 1571s [00:52:51.403] 3L)] 1571s [00:52:51.403] } 1571s [00:52:51.403] function(cond) { 1571s [00:52:51.403] is_error <- inherits(cond, "error") 1571s [00:52:51.403] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1571s [00:52:51.403] NULL) 1571s [00:52:51.403] if (is_error) { 1571s [00:52:51.403] sessionInformation <- function() { 1571s [00:52:51.403] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1571s [00:52:51.403] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1571s [00:52:51.403] search = base::search(), system = base::Sys.info()) 1571s [00:52:51.403] } 1571s [00:52:51.403] ...future.conditions[[length(...future.conditions) + 1571s [00:52:51.403] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1571s [00:52:51.403] cond$call), session = sessionInformation(), 1571s [00:52:51.403] timestamp = base::Sys.time(), signaled = 0L) 1571s [00:52:51.403] signalCondition(cond) 1571s [00:52:51.403] } 1571s [00:52:51.403] else if (!ignore && TRUE && inherits(cond, c("condition", 1571s [00:52:51.403] "immediateCondition"))) { 1571s [00:52:51.403] signal <- TRUE && inherits(cond, "immediateCondition") 1571s [00:52:51.403] ...future.conditions[[length(...future.conditions) + 1571s [00:52:51.403] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1571s [00:52:51.403] if (TRUE && !signal) { 1571s [00:52:51.403] muffleCondition <- function (cond, pattern = "^muffle") 1571s [00:52:51.403] { 1571s [00:52:51.403] inherits <- base::inherits 1571s [00:52:51.403] invokeRestart <- base::invokeRestart 1571s [00:52:51.403] is.null <- base::is.null 1571s [00:52:51.403] muffled <- FALSE 1571s [00:52:51.403] if (inherits(cond, "message")) { 1571s [00:52:51.403] muffled <- grepl(pattern, "muffleMessage") 1571s [00:52:51.403] if (muffled) 1571s [00:52:51.403] invokeRestart("muffleMessage") 1571s [00:52:51.403] } 1571s [00:52:51.403] else if (inherits(cond, "warning")) { 1571s [00:52:51.403] muffled <- grepl(pattern, "muffleWarning") 1571s [00:52:51.403] if (muffled) 1571s [00:52:51.403] invokeRestart("muffleWarning") 1571s [00:52:51.403] } 1571s [00:52:51.403] else if (inherits(cond, "condition")) { 1571s [00:52:51.403] if (!is.null(pattern)) { 1571s [00:52:51.403] computeRestarts <- base::computeRestarts 1571s [00:52:51.403] grepl <- base::grepl 1571s [00:52:51.403] restarts <- computeRestarts(cond) 1571s [00:52:51.403] for (restart in restarts) { 1571s [00:52:51.403] name <- restart$name 1571s [00:52:51.403] if (is.null(name)) 1571s [00:52:51.403] next 1571s [00:52:51.403] if (!grepl(pattern, name)) 1571s [00:52:51.403] next 1571s [00:52:51.403] invokeRestart(restart) 1571s [00:52:51.403] muffled <- TRUE 1571s [00:52:51.403] break 1571s [00:52:51.403] } 1571s [00:52:51.403] } 1571s [00:52:51.403] } 1571s [00:52:51.403] invisible(muffled) 1571s [00:52:51.403] } 1571s [00:52:51.403] muffleCondition(cond, pattern = "^muffle") 1571s [00:52:51.403] } 1571s [00:52:51.403] } 1571s [00:52:51.403] else { 1571s [00:52:51.403] if (TRUE) { 1571s [00:52:51.403] muffleCondition <- function (cond, pattern = "^muffle") 1571s [00:52:51.403] { 1571s [00:52:51.403] inherits <- base::inherits 1571s [00:52:51.403] invokeRestart <- base::invokeRestart 1571s [00:52:51.403] is.null <- base::is.null 1571s [00:52:51.403] muffled <- FALSE 1571s [00:52:51.403] if (inherits(cond, "message")) { 1571s [00:52:51.403] muffled <- grepl(pattern, "muffleMessage") 1571s [00:52:51.403] if (muffled) 1571s [00:52:51.403] invokeRestart("muffleMessage") 1571s [00:52:51.403] } 1571s [00:52:51.403] else if (inherits(cond, "warning")) { 1571s [00:52:51.403] muffled <- grepl(pattern, "muffleWarning") 1571s [00:52:51.403] if (muffled) 1571s [00:52:51.403] invokeRestart("muffleWarning") 1571s [00:52:51.403] } 1571s [00:52:51.403] else if (inherits(cond, "condition")) { 1571s [00:52:51.403] if (!is.null(pattern)) { 1571s [00:52:51.403] computeRestarts <- base::computeRestarts 1571s [00:52:51.403] grepl <- base::grepl 1571s [00:52:51.403] restarts <- computeRestarts(cond) 1571s [00:52:51.403] for (restart in restarts) { 1571s [00:52:51.403] name <- restart$name 1571s [00:52:51.403] if (is.null(name)) 1571s [00:52:51.403] next 1571s [00:52:51.403] if (!grepl(pattern, name)) 1571s [00:52:51.403] next 1571s [00:52:51.403] invokeRestart(restart) 1571s [00:52:51.403] muffled <- TRUE 1571s [00:52:51.403] break 1571s [00:52:51.403] } 1571s [00:52:51.403] } 1571s [00:52:51.403] } 1571s [00:52:51.403] invisible(muffled) 1571s [00:52:51.403] } 1571s [00:52:51.403] muffleCondition(cond, pattern = "^muffle") 1571s [00:52:51.403] } 1571s [00:52:51.403] } 1571s [00:52:51.403] } 1571s [00:52:51.403] })) 1571s [00:52:51.403] }, error = function(ex) { 1571s [00:52:51.403] base::structure(base::list(value = NULL, visible = NULL, 1571s [00:52:51.403] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1571s [00:52:51.403] ...future.rng), started = ...future.startTime, 1571s [00:52:51.403] finished = Sys.time(), session_uuid = NA_character_, 1571s [00:52:51.403] version = "1.8"), class = "FutureResult") 1571s [00:52:51.403] }, finally = { 1571s [00:52:51.403] if (!identical(...future.workdir, getwd())) 1571s [00:52:51.403] setwd(...future.workdir) 1571s [00:52:51.403] { 1571s [00:52:51.403] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1571s [00:52:51.403] ...future.oldOptions$nwarnings <- NULL 1571s [00:52:51.403] } 1571s [00:52:51.403] base::options(...future.oldOptions) 1571s [00:52:51.403] if (.Platform$OS.type == "windows") { 1571s [00:52:51.403] old_names <- names(...future.oldEnvVars) 1571s [00:52:51.403] envs <- base::Sys.getenv() 1571s [00:52:51.403] names <- names(envs) 1571s [00:52:51.403] common <- intersect(names, old_names) 1571s [00:52:51.403] added <- setdiff(names, old_names) 1571s [00:52:51.403] removed <- setdiff(old_names, names) 1571s [00:52:51.403] changed <- common[...future.oldEnvVars[common] != 1571s [00:52:51.403] envs[common]] 1571s [00:52:51.403] NAMES <- toupper(changed) 1571s [00:52:51.403] args <- list() 1571s [00:52:51.403] for (kk in seq_along(NAMES)) { 1571s [00:52:51.403] name <- changed[[kk]] 1571s [00:52:51.403] NAME <- NAMES[[kk]] 1571s [00:52:51.403] if (name != NAME && is.element(NAME, old_names)) 1571s [00:52:51.403] next 1571s [00:52:51.403] args[[name]] <- ...future.oldEnvVars[[name]] 1571s [00:52:51.403] } 1571s [00:52:51.403] NAMES <- toupper(added) 1571s [00:52:51.403] for (kk in seq_along(NAMES)) { 1571s [00:52:51.403] name <- added[[kk]] 1571s [00:52:51.403] NAME <- NAMES[[kk]] 1571s [00:52:51.403] if (name != NAME && is.element(NAME, old_names)) 1571s [00:52:51.403] next 1571s [00:52:51.403] args[[name]] <- "" 1571s [00:52:51.403] } 1571s [00:52:51.403] NAMES <- toupper(removed) 1571s [00:52:51.403] for (kk in seq_along(NAMES)) { 1571s [00:52:51.403] name <- removed[[kk]] 1571s [00:52:51.403] NAME <- NAMES[[kk]] 1571s [00:52:51.403] if (name != NAME && is.element(NAME, old_names)) 1571s [00:52:51.403] next 1571s [00:52:51.403] args[[name]] <- ...future.oldEnvVars[[name]] 1571s [00:52:51.403] } 1571s [00:52:51.403] if (length(args) > 0) 1571s [00:52:51.403] base::do.call(base::Sys.setenv, args = args) 1571s [00:52:51.403] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1571s [00:52:51.403] } 1571s [00:52:51.403] else { 1571s [00:52:51.403] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1571s [00:52:51.403] } 1571s [00:52:51.403] { 1571s [00:52:51.403] if (base::length(...future.futureOptionsAdded) > 1571s [00:52:51.403] 0L) { 1571s [00:52:51.403] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1571s [00:52:51.403] base::names(opts) <- ...future.futureOptionsAdded 1571s [00:52:51.403] base::options(opts) 1571s [00:52:51.403] } 1571s [00:52:51.403] { 1571s [00:52:51.403] { 1571s [00:52:51.403] NULL 1571s [00:52:51.403] RNGkind("Mersenne-Twister") 1571s [00:52:51.403] base::rm(list = ".Random.seed", envir = base::globalenv(), 1571s [00:52:51.403] inherits = FALSE) 1571s [00:52:51.403] } 1571s [00:52:51.403] options(future.plan = NULL) 1571s [00:52:51.403] if (is.na(NA_character_)) 1571s [00:52:51.403] Sys.unsetenv("R_FUTURE_PLAN") 1571s [00:52:51.403] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1571s [00:52:51.403] future::plan(list(function (..., envir = parent.frame()) 1571s [00:52:51.403] { 1571s [00:52:51.403] future <- SequentialFuture(..., envir = envir) 1571s [00:52:51.403] if (!future$lazy) 1571s [00:52:51.403] future <- run(future) 1571s [00:52:51.403] invisible(future) 1571s [00:52:51.403] }), .cleanup = FALSE, .init = FALSE) 1571s [00:52:51.403] } 1571s [00:52:51.403] } 1571s [00:52:51.403] } 1571s [00:52:51.403] }) 1571s [00:52:51.403] if (TRUE) { 1571s [00:52:51.403] base::sink(type = "output", split = FALSE) 1571s [00:52:51.403] if (TRUE) { 1571s [00:52:51.403] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1571s [00:52:51.403] } 1571s [00:52:51.403] else { 1571s [00:52:51.403] ...future.result["stdout"] <- base::list(NULL) 1571s [00:52:51.403] } 1571s [00:52:51.403] base::close(...future.stdout) 1571s [00:52:51.403] ...future.stdout <- NULL 1571s [00:52:51.403] } 1571s [00:52:51.403] ...future.result$conditions <- ...future.conditions 1571s [00:52:51.403] ...future.result$finished <- base::Sys.time() 1571s [00:52:51.403] ...future.result 1571s [00:52:51.403] } 1571s [00:52:51.406] assign_globals() ... 1571s [00:52:51.406] List of 5 1571s [00:52:51.406] $ ...future.FUN :function (x, y = 2 * 1:5) 1571s [00:52:51.406] $ future.call.arguments : list() 1571s [00:52:51.406] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1571s [00:52:51.406] $ ...future.elements_ii :List of 4 1571s [00:52:51.406] ..$ A: num 50 1571s [00:52:51.406] ..$ B: num 60 1571s [00:52:51.406] ..$ C: num 70 1571s [00:52:51.406] ..$ D: num 80 1571s [00:52:51.406] $ ...future.seeds_ii : NULL 1571s [00:52:51.406] $ ...future.globals.maxSize: NULL 1571s [00:52:51.406] - attr(*, "where")=List of 5 1571s [00:52:51.406] ..$ ...future.FUN : 1571s [00:52:51.406] ..$ future.call.arguments : 1571s [00:52:51.406] ..$ ...future.elements_ii : 1571s [00:52:51.406] ..$ ...future.seeds_ii : 1571s [00:52:51.406] ..$ ...future.globals.maxSize: 1571s [00:52:51.406] - attr(*, "resolved")= logi FALSE 1571s [00:52:51.406] - attr(*, "total_size")= num 4728 1571s [00:52:51.406] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1571s [00:52:51.406] - attr(*, "already-done")= logi TRUE 1571s [00:52:51.414] - reassign environment for ‘...future.FUN’ 1571s [00:52:51.414] - copied ‘...future.FUN’ to environment 1571s [00:52:51.414] - copied ‘future.call.arguments’ to environment 1571s [00:52:51.415] - copied ‘...future.elements_ii’ to environment 1571s [00:52:51.415] - copied ‘...future.seeds_ii’ to environment 1571s [00:52:51.415] - copied ‘...future.globals.maxSize’ to environment 1571s [00:52:51.415] assign_globals() ... done 1571s [00:52:51.415] plan(): Setting new future strategy stack: 1571s [00:52:51.416] List of future strategies: 1571s [00:52:51.416] 1. sequential: 1571s [00:52:51.416] - args: function (..., envir = parent.frame()) 1571s [00:52:51.416] - tweaked: FALSE 1571s [00:52:51.416] - call: NULL 1571s [00:52:51.416] plan(): nbrOfWorkers() = 1 1571s [00:52:51.417] plan(): Setting new future strategy stack: 1571s [00:52:51.417] List of future strategies: 1571s [00:52:51.417] 1. sequential: 1571s [00:52:51.417] - args: function (..., envir = parent.frame()) 1571s [00:52:51.417] - tweaked: FALSE 1571s [00:52:51.417] - call: plan(strategy) 1571s [00:52:51.418] plan(): nbrOfWorkers() = 1 1571s [00:52:51.418] SequentialFuture started (and completed) 1571s [00:52:51.418] - Launch lazy future ... done 1571s [00:52:51.418] run() for ‘SequentialFuture’ ... done 1571s [00:52:51.418] Created future: 1571s [00:52:51.419] SequentialFuture: 1571s [00:52:51.419] Label: ‘future_sapply-1’ 1571s [00:52:51.419] Expression: 1571s [00:52:51.419] { 1571s [00:52:51.419] do.call(function(...) { 1571s [00:52:51.419] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1571s [00:52:51.419] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1571s [00:52:51.419] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1571s [00:52:51.419] on.exit(options(oopts), add = TRUE) 1571s [00:52:51.419] } 1571s [00:52:51.419] { 1571s [00:52:51.419] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1571s [00:52:51.419] ...future.X_jj <- ...future.elements_ii[[jj]] 1571s [00:52:51.419] ...future.FUN(...future.X_jj, ...) 1571s [00:52:51.419] }) 1571s [00:52:51.419] } 1571s [00:52:51.419] }, args = future.call.arguments) 1571s [00:52:51.419] } 1571s [00:52:51.419] Lazy evaluation: FALSE 1571s [00:52:51.419] Asynchronous evaluation: FALSE 1571s [00:52:51.419] Local evaluation: TRUE 1571s [00:52:51.419] Environment: R_GlobalEnv 1571s [00:52:51.419] Capture standard output: TRUE 1571s [00:52:51.419] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1571s [00:52:51.419] Globals: 5 objects totaling 4.84 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1571s [00:52:51.419] Packages: 1571s [00:52:51.419] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1571s [00:52:51.419] Resolved: TRUE 1571s [00:52:51.419] Value: 1.34 KiB of class ‘list’ 1571s [00:52:51.419] Early signaling: FALSE 1571s [00:52:51.419] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1571s [00:52:51.419] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1571s [00:52:51.420] Chunk #1 of 1 ... DONE 1571s [00:52:51.420] Launching 1 futures (chunks) ... DONE 1571s [00:52:51.421] Resolving 1 futures (chunks) ... 1571s [00:52:51.421] resolve() on list ... 1571s [00:52:51.421] recursive: 0 1571s [00:52:51.421] length: 1 1571s [00:52:51.421] 1571s [00:52:51.421] resolved() for ‘SequentialFuture’ ... 1571s [00:52:51.421] - state: ‘finished’ 1571s [00:52:51.422] - run: TRUE 1571s [00:52:51.422] - result: ‘FutureResult’ 1571s [00:52:51.422] resolved() for ‘SequentialFuture’ ... done 1571s [00:52:51.422] Future #1 1571s [00:52:51.422] signalConditionsASAP(SequentialFuture, pos=1) ... 1571s [00:52:51.422] - nx: 1 1571s [00:52:51.423] - relay: TRUE 1571s [00:52:51.423] - stdout: TRUE 1571s [00:52:51.423] - signal: TRUE 1571s [00:52:51.423] - resignal: FALSE 1571s [00:52:51.424] - force: TRUE 1571s [00:52:51.424] - relayed: [n=1] FALSE 1571s [00:52:51.424] - queued futures: [n=1] FALSE 1571s [00:52:51.424] - until=1 1571s [00:52:51.424] - relaying element #1 1571s [00:52:51.425] - relayed: [n=1] TRUE 1571s [00:52:51.425] - queued futures: [n=1] TRUE 1571s [00:52:51.425] signalConditionsASAP(SequentialFuture, pos=1) ... done 1571s [00:52:51.425] length: 0 (resolved future 1) 1571s [00:52:51.425] Relaying remaining futures 1571s [00:52:51.426] signalConditionsASAP(NULL, pos=0) ... 1571s [00:52:51.426] - nx: 1 1571s [00:52:51.426] - relay: TRUE 1571s [00:52:51.426] - stdout: TRUE 1571s [00:52:51.426] - signal: TRUE 1571s [00:52:51.426] - resignal: FALSE 1571s [00:52:51.426] - force: TRUE 1571s [00:52:51.427] - relayed: [n=1] TRUE 1571s [00:52:51.427] - queued futures: [n=1] TRUE 1571s - flush all 1571s [00:52:51.427] - relayed: [n=1] TRUE 1571s [00:52:51.427] - queued futures: [n=1] TRUE 1571s [00:52:51.427] signalConditionsASAP(NULL, pos=0) ... done 1571s [00:52:51.427] resolve() on list ... DONE 1571s [00:52:51.428] - Number of value chunks collected: 1 1571s [00:52:51.430] Resolving 1 futures (chunks) ... DONE 1571s [00:52:51.430] Reducing values from 1 chunks ... 1571s [00:52:51.430] - Number of values collected after concatenation: 4 1571s [00:52:51.430] - Number of values expected: 4 1571s [00:52:51.430] Reducing values from 1 chunks ... DONE 1571s [00:52:51.431] future_lapply() ... DONE 1571s List of 2 1571s $ y0:List of 4 1571s ..$ A: num [1:3, 1:5] 100 100 100 200 200 200 300 300 300 400 ... 1571s ..$ B: num [1:3, 1:5] 120 120 120 240 240 240 360 360 360 480 ... 1571s ..$ C: num [1:3, 1:5] 140 140 140 280 280 280 420 420 420 560 ... 1571s ..$ D: num [1:3, 1:5] 160 160 160 320 320 320 480 480 480 640 ... 1571s $ y1:List of 4 1571s ..$ A: num [1:3, 1:5] 100 100 100 200 200 200 300 300 300 400 ... 1571s ..$ B: num [1:3, 1:5] 120 120 120 240 240 240 360 360 360 480 ... 1571s ..$ C: num [1:3, 1:5] 140 140 140 280 280 280 420 420 420 560 ... 1571s ..$ D: num [1:3, 1:5] 160 160 160 320 320 320 480 480 480 640 ... 1571s List of 2 1571s $ y0:List of 4 1571s ..$ A: num [1:3, 1:5] 100 100 100 200 200 200 300 300 300 400 ... 1571s ..$ B: num [1:3, 1:5] 120 120 120 240 240 240 360 360 360 480 ... 1571s ..$ C: num [1:3, 1:5] 140 140 140 280 280 280 420 420 420 560 ... 1571s ..$ D: num [1:3, 1:5] 160 160 160 320 320 320 480 480 480 640 ... 1571s $ y2:List of 4 1571s ..$ A: num [1:3, 1:5] 100 100 100 200 200 200 300 300 300 400 ... 1571s ..$ B: num [1:3, 1:5] 120 120 120 240 240 240 360 360 360 480 ... 1571s ..$ C: num [1:3, 1:5] 140 140 140 280 280 280 420 420 420 560 ... 1571s ..$ D: num [1:3, 1:5] 160 160 160 320 320 320 480 480 480 640 ... 1571s [00:52:51.440] future_lapply() ... 1571s [00:52:51.441] Number of chunks: 1 1571s [00:52:51.441] getGlobalsAndPackagesXApply() ... 1571s [00:52:51.441] - future.globals: TRUE 1571s [00:52:51.441] getGlobalsAndPackages() ... 1571s [00:52:51.442] Searching for globals... 1571s [00:52:51.443] - globals found: [1] ‘FUN’ 1571s [00:52:51.443] Searching for globals ... DONE 1571s [00:52:51.443] Resolving globals: FALSE 1571s [00:52:51.443] The total size of the 1 globals is 848 bytes (848 bytes) 1571s [00:52:51.444] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1571s [00:52:51.444] - globals: [1] ‘FUN’ 1571s [00:52:51.444] 1571s [00:52:51.444] getGlobalsAndPackages() ... DONE 1571s [00:52:51.444] - globals found/used: [n=1] ‘FUN’ 1571s [00:52:51.445] - needed namespaces: [n=0] 1571s [00:52:51.445] Finding globals ... DONE 1571s [00:52:51.445] - use_args: TRUE 1571s [00:52:51.445] - Getting '...' globals ... 1571s [00:52:51.445] resolve() on list ... 1571s [00:52:51.445] recursive: 0 1571s [00:52:51.446] length: 1 1571s [00:52:51.446] elements: ‘...’ 1571s [00:52:51.446] length: 0 (resolved future 1) 1571s [00:52:51.446] resolve() on list ... DONE 1571s [00:52:51.446] - '...' content: [n=0] 1571s [00:52:51.446] List of 1 1571s [00:52:51.446] $ ...: list() 1571s [00:52:51.446] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1571s [00:52:51.446] - attr(*, "where")=List of 1 1571s [00:52:51.446] ..$ ...: 1571s [00:52:51.446] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1571s [00:52:51.446] - attr(*, "resolved")= logi TRUE 1571s [00:52:51.446] - attr(*, "total_size")= num NA 1571s [00:52:51.449] - Getting '...' globals ... DONE 1571s [00:52:51.449] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1571s [00:52:51.450] List of 2 1571s [00:52:51.450] $ ...future.FUN:function (x) 1571s [00:52:51.450] $ ... : list() 1571s [00:52:51.450] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1571s [00:52:51.450] - attr(*, "where")=List of 2 1571s [00:52:51.450] ..$ ...future.FUN: 1571s [00:52:51.450] ..$ ... : 1571s [00:52:51.450] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1571s [00:52:51.450] - attr(*, "resolved")= logi FALSE 1571s [00:52:51.450] - attr(*, "total_size")= num 848 1571s [00:52:51.453] Packages to be attached in all futures: [n=0] 1571s [00:52:51.454] getGlobalsAndPackagesXApply() ... DONE 1571s [00:52:51.454] Number of futures (= number of chunks): 1 1571s [00:52:51.454] Launching 1 futures (chunks) ... 1571s [00:52:51.454] Chunk #1 of 1 ... 1571s [00:52:51.454] - Finding globals in 'X' for chunk #1 ... 1571s [00:52:51.455] getGlobalsAndPackages() ... 1571s [00:52:51.455] Searching for globals... 1571s [00:52:51.455] 1571s [00:52:51.455] Searching for globals ... DONE 1571s [00:52:51.455] - globals: [0] 1571s [00:52:51.456] getGlobalsAndPackages() ... DONE 1571s [00:52:51.456] + additional globals found: [n=0] 1571s [00:52:51.456] + additional namespaces needed: [n=0] 1571s [00:52:51.456] - Finding globals in 'X' for chunk #1 ... DONE 1571s [00:52:51.456] - seeds: 1571s [00:52:51.456] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1571s [00:52:51.457] getGlobalsAndPackages() ... 1571s [00:52:51.457] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1571s [00:52:51.457] Resolving globals: FALSE 1571s [00:52:51.457] Tweak future expression to call with '...' arguments ... 1571s [00:52:51.457] { 1571s [00:52:51.457] do.call(function(...) { 1571s [00:52:51.457] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1571s [00:52:51.457] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1571s [00:52:51.457] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1571s [00:52:51.457] on.exit(options(oopts), add = TRUE) 1571s [00:52:51.457] } 1571s [00:52:51.457] { 1571s [00:52:51.457] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1571s [00:52:51.457] ...future.X_jj <- ...future.elements_ii[[jj]] 1571s [00:52:51.457] ...future.FUN(...future.X_jj, ...) 1571s [00:52:51.457] }) 1571s [00:52:51.457] } 1571s [00:52:51.457] }, args = future.call.arguments) 1571s [00:52:51.457] } 1571s [00:52:51.458] Tweak future expression to call with '...' arguments ... DONE 1571s [00:52:51.462] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1571s [00:52:51.462] 1571s [00:52:51.462] getGlobalsAndPackages() ... DONE 1571s [00:52:51.463] run() for ‘Future’ ... 1571s [00:52:51.463] - state: ‘created’ 1571s [00:52:51.463] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1571s [00:52:51.464] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1571s [00:52:51.464] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1571s [00:52:51.464] - Field: ‘label’ 1571s [00:52:51.464] - Field: ‘local’ 1571s [00:52:51.464] - Field: ‘owner’ 1571s [00:52:51.465] - Field: ‘envir’ 1571s [00:52:51.465] - Field: ‘packages’ 1571s [00:52:51.465] - Field: ‘gc’ 1571s [00:52:51.465] - Field: ‘conditions’ 1571s [00:52:51.465] - Field: ‘expr’ 1571s [00:52:51.465] - Field: ‘uuid’ 1571s [00:52:51.465] - Field: ‘seed’ 1571s [00:52:51.466] - Field: ‘version’ 1571s [00:52:51.466] - Field: ‘result’ 1571s [00:52:51.466] - Field: ‘asynchronous’ 1571s [00:52:51.466] - Field: ‘calls’ 1571s [00:52:51.466] - Field: ‘globals’ 1571s [00:52:51.467] - Field: ‘stdout’ 1571s [00:52:51.467] - Field: ‘earlySignal’ 1571s [00:52:51.467] - Field: ‘lazy’ 1571s [00:52:51.467] - Field: ‘state’ 1571s [00:52:51.467] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1571s [00:52:51.467] - Launch lazy future ... 1571s [00:52:51.468] Packages needed by the future expression (n = 0): 1571s [00:52:51.468] Packages needed by future strategies (n = 0): 1571s [00:52:51.469] { 1571s [00:52:51.469] { 1571s [00:52:51.469] { 1571s [00:52:51.469] ...future.startTime <- base::Sys.time() 1571s [00:52:51.469] { 1571s [00:52:51.469] { 1571s [00:52:51.469] { 1571s [00:52:51.469] base::local({ 1571s [00:52:51.469] has_future <- base::requireNamespace("future", 1571s [00:52:51.469] quietly = TRUE) 1571s [00:52:51.469] if (has_future) { 1571s [00:52:51.469] ns <- base::getNamespace("future") 1571s [00:52:51.469] version <- ns[[".package"]][["version"]] 1571s [00:52:51.469] if (is.null(version)) 1571s [00:52:51.469] version <- utils::packageVersion("future") 1571s [00:52:51.469] } 1571s [00:52:51.469] else { 1571s [00:52:51.469] version <- NULL 1571s [00:52:51.469] } 1571s [00:52:51.469] if (!has_future || version < "1.8.0") { 1571s [00:52:51.469] info <- base::c(r_version = base::gsub("R version ", 1571s [00:52:51.469] "", base::R.version$version.string), 1571s [00:52:51.469] platform = base::sprintf("%s (%s-bit)", 1571s [00:52:51.469] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1571s [00:52:51.469] os = base::paste(base::Sys.info()[base::c("sysname", 1571s [00:52:51.469] "release", "version")], collapse = " "), 1571s [00:52:51.469] hostname = base::Sys.info()[["nodename"]]) 1571s [00:52:51.469] info <- base::sprintf("%s: %s", base::names(info), 1571s [00:52:51.469] info) 1571s [00:52:51.469] info <- base::paste(info, collapse = "; ") 1571s [00:52:51.469] if (!has_future) { 1571s [00:52:51.469] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1571s [00:52:51.469] info) 1571s [00:52:51.469] } 1571s [00:52:51.469] else { 1571s [00:52:51.469] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1571s [00:52:51.469] info, version) 1571s [00:52:51.469] } 1571s [00:52:51.469] base::stop(msg) 1571s [00:52:51.469] } 1571s [00:52:51.469] }) 1571s [00:52:51.469] } 1571s [00:52:51.469] options(future.plan = NULL) 1571s [00:52:51.469] Sys.unsetenv("R_FUTURE_PLAN") 1571s [00:52:51.469] future::plan("default", .cleanup = FALSE, .init = FALSE) 1571s [00:52:51.469] } 1571s [00:52:51.469] ...future.workdir <- getwd() 1571s [00:52:51.469] } 1571s [00:52:51.469] ...future.oldOptions <- base::as.list(base::.Options) 1571s [00:52:51.469] ...future.oldEnvVars <- base::Sys.getenv() 1571s [00:52:51.469] } 1571s [00:52:51.469] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1571s [00:52:51.469] future.globals.maxSize = NULL, future.globals.method = NULL, 1571s [00:52:51.469] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1571s [00:52:51.469] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1571s [00:52:51.469] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1571s [00:52:51.469] future.stdout.windows.reencode = NULL, width = 80L) 1571s [00:52:51.469] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1571s [00:52:51.469] base::names(...future.oldOptions)) 1571s [00:52:51.469] } 1571s [00:52:51.469] if (FALSE) { 1571s [00:52:51.469] } 1571s [00:52:51.469] else { 1571s [00:52:51.469] if (TRUE) { 1571s [00:52:51.469] ...future.stdout <- base::rawConnection(base::raw(0L), 1571s [00:52:51.469] open = "w") 1571s [00:52:51.469] } 1571s [00:52:51.469] else { 1571s [00:52:51.469] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1571s [00:52:51.469] windows = "NUL", "/dev/null"), open = "w") 1571s [00:52:51.469] } 1571s [00:52:51.469] base::sink(...future.stdout, type = "output", split = FALSE) 1571s [00:52:51.469] base::on.exit(if (!base::is.null(...future.stdout)) { 1571s [00:52:51.469] base::sink(type = "output", split = FALSE) 1571s [00:52:51.469] base::close(...future.stdout) 1571s [00:52:51.469] }, add = TRUE) 1571s [00:52:51.469] } 1571s [00:52:51.469] ...future.frame <- base::sys.nframe() 1571s [00:52:51.469] ...future.conditions <- base::list() 1571s [00:52:51.469] ...future.rng <- base::globalenv()$.Random.seed 1571s [00:52:51.469] if (FALSE) { 1571s [00:52:51.469] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1571s [00:52:51.469] "...future.value", "...future.globalenv.names", ".Random.seed") 1571s [00:52:51.469] } 1571s [00:52:51.469] ...future.result <- base::tryCatch({ 1571s [00:52:51.469] base::withCallingHandlers({ 1571s [00:52:51.469] ...future.value <- base::withVisible(base::local({ 1571s [00:52:51.469] do.call(function(...) { 1571s [00:52:51.469] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1571s [00:52:51.469] if (!identical(...future.globals.maxSize.org, 1571s [00:52:51.469] ...future.globals.maxSize)) { 1571s [00:52:51.469] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1571s [00:52:51.469] on.exit(options(oopts), add = TRUE) 1571s [00:52:51.469] } 1571s [00:52:51.469] { 1571s [00:52:51.469] lapply(seq_along(...future.elements_ii), 1571s [00:52:51.469] FUN = function(jj) { 1571s [00:52:51.469] ...future.X_jj <- ...future.elements_ii[[jj]] 1571s [00:52:51.469] ...future.FUN(...future.X_jj, ...) 1571s [00:52:51.469] }) 1571s [00:52:51.469] } 1571s [00:52:51.469] }, args = future.call.arguments) 1571s [00:52:51.469] })) 1571s [00:52:51.469] future::FutureResult(value = ...future.value$value, 1571s [00:52:51.469] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1571s [00:52:51.469] ...future.rng), globalenv = if (FALSE) 1571s [00:52:51.469] list(added = base::setdiff(base::names(base::.GlobalEnv), 1571s [00:52:51.469] ...future.globalenv.names)) 1571s [00:52:51.469] else NULL, started = ...future.startTime, version = "1.8") 1571s [00:52:51.469] }, condition = base::local({ 1571s [00:52:51.469] c <- base::c 1571s [00:52:51.469] inherits <- base::inherits 1571s [00:52:51.469] invokeRestart <- base::invokeRestart 1571s [00:52:51.469] length <- base::length 1571s [00:52:51.469] list <- base::list 1571s [00:52:51.469] seq.int <- base::seq.int 1571s [00:52:51.469] signalCondition <- base::signalCondition 1571s [00:52:51.469] sys.calls <- base::sys.calls 1571s [00:52:51.469] `[[` <- base::`[[` 1571s [00:52:51.469] `+` <- base::`+` 1571s [00:52:51.469] `<<-` <- base::`<<-` 1571s [00:52:51.469] sysCalls <- function(calls = sys.calls(), from = 1L) { 1571s [00:52:51.469] calls[seq.int(from = from + 12L, to = length(calls) - 1571s [00:52:51.469] 3L)] 1571s [00:52:51.469] } 1571s [00:52:51.469] function(cond) { 1571s [00:52:51.469] is_error <- inherits(cond, "error") 1571s [00:52:51.469] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1571s [00:52:51.469] NULL) 1571s [00:52:51.469] if (is_error) { 1571s [00:52:51.469] sessionInformation <- function() { 1571s [00:52:51.469] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1571s [00:52:51.469] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1571s [00:52:51.469] search = base::search(), system = base::Sys.info()) 1571s [00:52:51.469] } 1571s [00:52:51.469] ...future.conditions[[length(...future.conditions) + 1571s [00:52:51.469] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1571s [00:52:51.469] cond$call), session = sessionInformation(), 1571s [00:52:51.469] timestamp = base::Sys.time(), signaled = 0L) 1571s [00:52:51.469] signalCondition(cond) 1571s [00:52:51.469] } 1571s [00:52:51.469] else if (!ignore && TRUE && inherits(cond, c("condition", 1571s [00:52:51.469] "immediateCondition"))) { 1571s [00:52:51.469] signal <- TRUE && inherits(cond, "immediateCondition") 1571s [00:52:51.469] ...future.conditions[[length(...future.conditions) + 1571s [00:52:51.469] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1571s [00:52:51.469] if (TRUE && !signal) { 1571s [00:52:51.469] muffleCondition <- function (cond, pattern = "^muffle") 1571s [00:52:51.469] { 1571s [00:52:51.469] inherits <- base::inherits 1571s [00:52:51.469] invokeRestart <- base::invokeRestart 1571s [00:52:51.469] is.null <- base::is.null 1571s [00:52:51.469] muffled <- FALSE 1571s [00:52:51.469] if (inherits(cond, "message")) { 1571s [00:52:51.469] muffled <- grepl(pattern, "muffleMessage") 1571s [00:52:51.469] if (muffled) 1571s [00:52:51.469] invokeRestart("muffleMessage") 1571s [00:52:51.469] } 1571s [00:52:51.469] else if (inherits(cond, "warning")) { 1571s [00:52:51.469] muffled <- grepl(pattern, "muffleWarning") 1571s [00:52:51.469] if (muffled) 1571s [00:52:51.469] invokeRestart("muffleWarning") 1571s [00:52:51.469] } 1571s [00:52:51.469] else if (inherits(cond, "condition")) { 1571s [00:52:51.469] if (!is.null(pattern)) { 1571s [00:52:51.469] computeRestarts <- base::computeRestarts 1571s [00:52:51.469] grepl <- base::grepl 1571s [00:52:51.469] restarts <- computeRestarts(cond) 1571s [00:52:51.469] for (restart in restarts) { 1571s [00:52:51.469] name <- restart$name 1571s [00:52:51.469] if (is.null(name)) 1571s [00:52:51.469] next 1571s [00:52:51.469] if (!grepl(pattern, name)) 1571s [00:52:51.469] next 1571s [00:52:51.469] invokeRestart(restart) 1571s [00:52:51.469] muffled <- TRUE 1571s [00:52:51.469] break 1571s [00:52:51.469] } 1571s [00:52:51.469] } 1571s [00:52:51.469] } 1571s [00:52:51.469] invisible(muffled) 1571s [00:52:51.469] } 1571s [00:52:51.469] muffleCondition(cond, pattern = "^muffle") 1571s [00:52:51.469] } 1571s [00:52:51.469] } 1571s [00:52:51.469] else { 1571s [00:52:51.469] if (TRUE) { 1571s [00:52:51.469] muffleCondition <- function (cond, pattern = "^muffle") 1571s [00:52:51.469] { 1571s [00:52:51.469] inherits <- base::inherits 1571s [00:52:51.469] invokeRestart <- base::invokeRestart 1571s [00:52:51.469] is.null <- base::is.null 1571s [00:52:51.469] muffled <- FALSE 1571s [00:52:51.469] if (inherits(cond, "message")) { 1571s [00:52:51.469] muffled <- grepl(pattern, "muffleMessage") 1571s [00:52:51.469] if (muffled) 1571s [00:52:51.469] invokeRestart("muffleMessage") 1571s [00:52:51.469] } 1571s [00:52:51.469] else if (inherits(cond, "warning")) { 1571s [00:52:51.469] muffled <- grepl(pattern, "muffleWarning") 1571s [00:52:51.469] if (muffled) 1571s [00:52:51.469] invokeRestart("muffleWarning") 1571s [00:52:51.469] } 1571s [00:52:51.469] else if (inherits(cond, "condition")) { 1571s [00:52:51.469] if (!is.null(pattern)) { 1571s [00:52:51.469] computeRestarts <- base::computeRestarts 1571s [00:52:51.469] grepl <- base::grepl 1571s [00:52:51.469] restarts <- computeRestarts(cond) 1571s [00:52:51.469] for (restart in restarts) { 1571s [00:52:51.469] name <- restart$name 1571s [00:52:51.469] if (is.null(name)) 1571s [00:52:51.469] next 1571s [00:52:51.469] if (!grepl(pattern, name)) 1571s [00:52:51.469] next 1571s [00:52:51.469] invokeRestart(restart) 1571s [00:52:51.469] muffled <- TRUE 1571s [00:52:51.469] break 1571s [00:52:51.469] } 1571s [00:52:51.469] } 1571s [00:52:51.469] } 1571s [00:52:51.469] invisible(muffled) 1571s [00:52:51.469] } 1571s [00:52:51.469] muffleCondition(cond, pattern = "^muffle") 1571s [00:52:51.469] } 1571s [00:52:51.469] } 1571s [00:52:51.469] } 1571s [00:52:51.469] })) 1571s [00:52:51.469] }, error = function(ex) { 1571s [00:52:51.469] base::structure(base::list(value = NULL, visible = NULL, 1571s [00:52:51.469] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1571s [00:52:51.469] ...future.rng), started = ...future.startTime, 1571s [00:52:51.469] finished = Sys.time(), session_uuid = NA_character_, 1571s [00:52:51.469] version = "1.8"), class = "FutureResult") 1571s [00:52:51.469] }, finally = { 1571s [00:52:51.469] if (!identical(...future.workdir, getwd())) 1571s [00:52:51.469] setwd(...future.workdir) 1571s [00:52:51.469] { 1571s [00:52:51.469] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1571s [00:52:51.469] ...future.oldOptions$nwarnings <- NULL 1571s [00:52:51.469] } 1571s [00:52:51.469] base::options(...future.oldOptions) 1571s [00:52:51.469] if (.Platform$OS.type == "windows") { 1571s [00:52:51.469] old_names <- names(...future.oldEnvVars) 1571s [00:52:51.469] envs <- base::Sys.getenv() 1571s [00:52:51.469] names <- names(envs) 1571s [00:52:51.469] common <- intersect(names, old_names) 1571s [00:52:51.469] added <- setdiff(names, old_names) 1571s [00:52:51.469] removed <- setdiff(old_names, names) 1571s [00:52:51.469] changed <- common[...future.oldEnvVars[common] != 1571s [00:52:51.469] envs[common]] 1571s [00:52:51.469] NAMES <- toupper(changed) 1571s [00:52:51.469] args <- list() 1571s [00:52:51.469] for (kk in seq_along(NAMES)) { 1571s [00:52:51.469] name <- changed[[kk]] 1571s [00:52:51.469] NAME <- NAMES[[kk]] 1571s [00:52:51.469] if (name != NAME && is.element(NAME, old_names)) 1571s [00:52:51.469] next 1571s [00:52:51.469] args[[name]] <- ...future.oldEnvVars[[name]] 1571s [00:52:51.469] } 1571s [00:52:51.469] NAMES <- toupper(added) 1571s [00:52:51.469] for (kk in seq_along(NAMES)) { 1571s [00:52:51.469] name <- added[[kk]] 1571s [00:52:51.469] NAME <- NAMES[[kk]] 1571s [00:52:51.469] if (name != NAME && is.element(NAME, old_names)) 1571s [00:52:51.469] next 1571s [00:52:51.469] args[[name]] <- "" 1571s [00:52:51.469] } 1571s [00:52:51.469] NAMES <- toupper(removed) 1571s [00:52:51.469] for (kk in seq_along(NAMES)) { 1571s [00:52:51.469] name <- removed[[kk]] 1571s [00:52:51.469] NAME <- NAMES[[kk]] 1571s [00:52:51.469] if (name != NAME && is.element(NAME, old_names)) 1571s [00:52:51.469] next 1571s [00:52:51.469] args[[name]] <- ...future.oldEnvVars[[name]] 1571s [00:52:51.469] } 1571s [00:52:51.469] if (length(args) > 0) 1571s [00:52:51.469] base::do.call(base::Sys.setenv, args = args) 1571s [00:52:51.469] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1571s [00:52:51.469] } 1571s [00:52:51.469] else { 1571s [00:52:51.469] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1571s [00:52:51.469] } 1571s [00:52:51.469] { 1571s [00:52:51.469] if (base::length(...future.futureOptionsAdded) > 1571s [00:52:51.469] 0L) { 1571s [00:52:51.469] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1571s [00:52:51.469] base::names(opts) <- ...future.futureOptionsAdded 1571s [00:52:51.469] base::options(opts) 1571s [00:52:51.469] } 1571s [00:52:51.469] { 1571s [00:52:51.469] { 1571s [00:52:51.469] NULL 1571s [00:52:51.469] RNGkind("Mersenne-Twister") 1571s [00:52:51.469] base::rm(list = ".Random.seed", envir = base::globalenv(), 1571s [00:52:51.469] inherits = FALSE) 1571s [00:52:51.469] } 1571s [00:52:51.469] options(future.plan = NULL) 1571s [00:52:51.469] if (is.na(NA_character_)) 1571s [00:52:51.469] Sys.unsetenv("R_FUTURE_PLAN") 1571s [00:52:51.469] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1571s [00:52:51.469] future::plan(list(function (..., envir = parent.frame()) 1571s [00:52:51.469] { 1571s [00:52:51.469] future <- SequentialFuture(..., envir = envir) 1571s [00:52:51.469] if (!future$lazy) 1571s [00:52:51.469] future <- run(future) 1571s [00:52:51.469] invisible(future) 1571s [00:52:51.469] }), .cleanup = FALSE, .init = FALSE) 1571s [00:52:51.469] } 1571s [00:52:51.469] } 1571s [00:52:51.469] } 1571s [00:52:51.469] }) 1571s [00:52:51.469] if (TRUE) { 1571s [00:52:51.469] base::sink(type = "output", split = FALSE) 1571s [00:52:51.469] if (TRUE) { 1571s [00:52:51.469] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1571s [00:52:51.469] } 1571s [00:52:51.469] else { 1571s [00:52:51.469] ...future.result["stdout"] <- base::list(NULL) 1571s [00:52:51.469] } 1571s [00:52:51.469] base::close(...future.stdout) 1571s [00:52:51.469] ...future.stdout <- NULL 1571s [00:52:51.469] } 1571s [00:52:51.469] ...future.result$conditions <- ...future.conditions 1571s [00:52:51.469] ...future.result$finished <- base::Sys.time() 1571s [00:52:51.469] ...future.result 1571s [00:52:51.469] } 1571s [00:52:51.472] assign_globals() ... 1571s [00:52:51.472] List of 5 1571s [00:52:51.472] $ ...future.FUN :function (x) 1571s [00:52:51.472] $ future.call.arguments : list() 1571s [00:52:51.472] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1571s [00:52:51.472] $ ...future.elements_ii :List of 4 1571s [00:52:51.472] ..$ A: num 50 1571s [00:52:51.472] ..$ B: num 60 1571s [00:52:51.472] ..$ C: num 70 1571s [00:52:51.472] ..$ D: num 80 1571s [00:52:51.472] $ ...future.seeds_ii : NULL 1571s [00:52:51.472] $ ...future.globals.maxSize: NULL 1571s [00:52:51.472] - attr(*, "where")=List of 5 1571s [00:52:51.472] ..$ ...future.FUN : 1571s [00:52:51.472] ..$ future.call.arguments : 1571s [00:52:51.472] ..$ ...future.elements_ii : 1571s [00:52:51.472] ..$ ...future.seeds_ii : 1571s [00:52:51.472] ..$ ...future.globals.maxSize: 1571s [00:52:51.472] - attr(*, "resolved")= logi FALSE 1571s [00:52:51.472] - attr(*, "total_size")= num 848 1571s [00:52:51.472] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1571s [00:52:51.472] - attr(*, "already-done")= logi TRUE 1571s [00:52:51.480] - copied ‘...future.FUN’ to environment 1571s [00:52:51.480] - copied ‘future.call.arguments’ to environment 1571s [00:52:51.480] - copied ‘...future.elements_ii’ to environment 1571s [00:52:51.480] - copied ‘...future.seeds_ii’ to environment 1571s [00:52:51.481] - copied ‘...future.globals.maxSize’ to environment 1571s [00:52:51.481] assign_globals() ... done 1571s [00:52:51.481] plan(): Setting new future strategy stack: 1571s [00:52:51.481] List of future strategies: 1571s [00:52:51.481] 1. sequential: 1571s [00:52:51.481] - args: function (..., envir = parent.frame()) 1571s [00:52:51.481] - tweaked: FALSE 1571s [00:52:51.481] - call: NULL 1571s [00:52:51.482] plan(): nbrOfWorkers() = 1 1571s [00:52:51.483] plan(): Setting new future strategy stack: 1571s [00:52:51.483] List of future strategies: 1571s [00:52:51.483] 1. sequential: 1571s [00:52:51.483] - args: function (..., envir = parent.frame()) 1571s [00:52:51.483] - tweaked: FALSE 1571s [00:52:51.483] - call: plan(strategy) 1571s [00:52:51.483] plan(): nbrOfWorkers() = 1 1571s [00:52:51.484] SequentialFuture started (and completed) 1571s [00:52:51.484] - Launch lazy future ... done 1571s [00:52:51.484] run() for ‘SequentialFuture’ ... done 1571s [00:52:51.484] Created future: 1571s [00:52:51.484] SequentialFuture: 1571s [00:52:51.484] Label: ‘future_sapply-1’ 1571s [00:52:51.484] Expression: 1571s [00:52:51.484] { 1571s [00:52:51.484] do.call(function(...) { 1571s [00:52:51.484] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1571s [00:52:51.484] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1571s [00:52:51.484] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1571s [00:52:51.484] on.exit(options(oopts), add = TRUE) 1571s [00:52:51.484] } 1571s [00:52:51.484] { 1571s [00:52:51.484] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1571s [00:52:51.484] ...future.X_jj <- ...future.elements_ii[[jj]] 1571s [00:52:51.484] ...future.FUN(...future.X_jj, ...) 1571s [00:52:51.484] }) 1571s [00:52:51.484] } 1571s [00:52:51.484] }, args = future.call.arguments) 1571s [00:52:51.484] } 1571s [00:52:51.484] Lazy evaluation: FALSE 1571s [00:52:51.484] Asynchronous evaluation: FALSE 1571s [00:52:51.484] Local evaluation: TRUE 1571s [00:52:51.484] Environment: R_GlobalEnv 1571s [00:52:51.484] Capture standard output: TRUE 1571s [00:52:51.484] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1571s [00:52:51.484] Globals: 5 objects totaling 1.05 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1571s [00:52:51.484] Packages: 1571s [00:52:51.484] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1571s [00:52:51.484] Resolved: TRUE 1571s [00:52:51.484] Value: 224 bytes of class ‘list’ 1571s [00:52:51.484] Early signaling: FALSE 1571s [00:52:51.484] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1571s [00:52:51.484] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1571s [00:52:51.486] Chunk #1 of 1 ... DONE 1571s [00:52:51.486] Launching 1 futures (chunks) ... DONE 1571s [00:52:51.486] Resolving 1 futures (chunks) ... 1571s [00:52:51.486] resolve() on list ... 1571s [00:52:51.486] recursive: 0 1571s [00:52:51.487] length: 1 1571s [00:52:51.487] 1571s [00:52:51.487] resolved() for ‘SequentialFuture’ ... 1571s [00:52:51.487] - state: ‘finished’ 1571s [00:52:51.487] - run: TRUE 1571s [00:52:51.487] - result: ‘FutureResult’ 1571s [00:52:51.487] resolved() for ‘SequentialFuture’ ... done 1571s [00:52:51.488] Future #1 1571s [00:52:51.488] signalConditionsASAP(SequentialFuture, pos=1) ... 1571s [00:52:51.488] - nx: 1 1571s [00:52:51.488] - relay: TRUE 1571s [00:52:51.488] - stdout: TRUE 1571s [00:52:51.488] - signal: TRUE 1571s [00:52:51.488] - resignal: FALSE 1571s [00:52:51.489] - force: TRUE 1571s [00:52:51.489] - relayed: [n=1] FALSE 1571s [00:52:51.489] - queued futures: [n=1] FALSE 1571s [00:52:51.489] - until=1 1571s [00:52:51.489] - relaying element #1 1571s [00:52:51.490] - relayed: [n=1] TRUE 1571s [00:52:51.490] - queued futures: [n=1] TRUE 1571s [00:52:51.490] signalConditionsASAP(SequentialFuture, pos=1) ... done 1571s [00:52:51.490] length: 0 (resolved future 1) 1571s [00:52:51.490] Relaying remaining futures 1571s [00:52:51.490] signalConditionsASAP(NULL, pos=0) ... 1571s [00:52:51.490] - nx: 1 1571s [00:52:51.491] - relay: TRUE 1571s [00:52:51.491] - stdout: TRUE 1571s [00:52:51.491] - signal: TRUE 1571s [00:52:51.491] - resignal: FALSE 1571s [00:52:51.491] - force: TRUE 1571s [00:52:51.491] - relayed: [n=1] TRUE 1571s [00:52:51.491] - queued futures: [n=1] TRUE 1571s - flush all 1571s [00:52:51.492] - relayed: [n=1] TRUE 1571s [00:52:51.492] - queued futures: [n=1] TRUE 1571s [00:52:51.492] signalConditionsASAP(NULL, pos=0) ... done 1571s [00:52:51.492] resolve() on list ... DONE 1571s [00:52:51.492] - Number of value chunks collected: 1 1571s [00:52:51.492] Resolving 1 futures (chunks) ... DONE 1571s [00:52:51.493] Reducing values from 1 chunks ... 1571s [00:52:51.493] - Number of values collected after concatenation: 4 1571s [00:52:51.493] - Number of values expected: 4 1571s [00:52:51.493] Reducing values from 1 chunks ... DONE 1571s [00:52:51.493] future_lapply() ... DONE 1571s List of 2 1571s $ y0: Named num [1:4] 50 60 70 80 1571s ..- attr(*, "names")= chr [1:4] "A" "B" "C" "D" 1571s $ y1: Named num [1:4] 50 60 70 80 1571s ..- attr(*, "names")= chr [1:4] "A" "B" "C" "D" 1571s [00:52:51.496] future_lapply() ... 1571s [00:52:51.497] Number of chunks: 1 1571s [00:52:51.497] getGlobalsAndPackagesXApply() ... 1571s [00:52:51.497] - future.globals: TRUE 1571s [00:52:51.500] getGlobalsAndPackages() ... 1571s [00:52:51.500] Searching for globals... 1571s [00:52:51.502] - globals found: [2] ‘FUN’, ‘UseMethod’ 1571s [00:52:51.502] Searching for globals ... DONE 1571s [00:52:51.503] Resolving globals: FALSE 1571s [00:52:51.503] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1571s [00:52:51.504] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1571s [00:52:51.504] - globals: [1] ‘FUN’ 1571s [00:52:51.504] 1571s [00:52:51.505] getGlobalsAndPackages() ... DONE 1571s [00:52:51.505] - globals found/used: [n=1] ‘FUN’ 1571s [00:52:51.505] - needed namespaces: [n=0] 1571s [00:52:51.506] Finding globals ... DONE 1571s [00:52:51.506] - use_args: TRUE 1571s [00:52:51.506] - Getting '...' globals ... 1571s [00:52:51.506] resolve() on list ... 1571s [00:52:51.507] recursive: 0 1571s [00:52:51.507] length: 1 1571s [00:52:51.507] elements: ‘...’ 1571s [00:52:51.507] length: 0 (resolved future 1) 1571s [00:52:51.507] resolve() on list ... DONE 1571s [00:52:51.507] - '...' content: [n=0] 1571s [00:52:51.507] List of 1 1571s [00:52:51.507] $ ...: list() 1571s [00:52:51.507] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1571s [00:52:51.507] - attr(*, "where")=List of 1 1571s [00:52:51.507] ..$ ...: 1571s [00:52:51.507] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1571s [00:52:51.507] - attr(*, "resolved")= logi TRUE 1571s [00:52:51.507] - attr(*, "total_size")= num NA 1571s [00:52:51.512] - Getting '...' globals ... DONE 1571s [00:52:51.513] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1571s [00:52:51.513] List of 2 1571s [00:52:51.513] $ ...future.FUN:function (x, ...) 1571s [00:52:51.513] $ ... : list() 1571s [00:52:51.513] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1571s [00:52:51.513] - attr(*, "where")=List of 2 1571s [00:52:51.513] ..$ ...future.FUN: 1571s [00:52:51.513] ..$ ... : 1571s [00:52:51.513] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1571s [00:52:51.513] - attr(*, "resolved")= logi FALSE 1571s [00:52:51.513] - attr(*, "total_size")= num 1248 1571s [00:52:51.516] Packages to be attached in all futures: [n=0] 1571s [00:52:51.517] getGlobalsAndPackagesXApply() ... DONE 1571s [00:52:51.517] Number of futures (= number of chunks): 1 1571s [00:52:51.517] Launching 1 futures (chunks) ... 1571s [00:52:51.518] Chunk #1 of 1 ... 1571s [00:52:51.518] - Finding globals in 'X' for chunk #1 ... 1571s [00:52:51.518] getGlobalsAndPackages() ... 1571s [00:52:51.518] Searching for globals... 1571s [00:52:51.518] 1571s [00:52:51.519] Searching for globals ... DONE 1571s [00:52:51.519] - globals: [0] 1571s [00:52:51.519] getGlobalsAndPackages() ... DONE 1571s [00:52:51.519] + additional globals found: [n=0] 1571s [00:52:51.519] + additional namespaces needed: [n=0] 1571s [00:52:51.519] - Finding globals in 'X' for chunk #1 ... DONE 1571s [00:52:51.520] - seeds: 1571s [00:52:51.520] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1571s [00:52:51.520] getGlobalsAndPackages() ... 1571s [00:52:51.520] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1571s [00:52:51.520] Resolving globals: FALSE 1571s [00:52:51.520] Tweak future expression to call with '...' arguments ... 1571s [00:52:51.520] { 1571s [00:52:51.520] do.call(function(...) { 1571s [00:52:51.520] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1571s [00:52:51.520] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1571s [00:52:51.520] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1571s [00:52:51.520] on.exit(options(oopts), add = TRUE) 1571s [00:52:51.520] } 1571s [00:52:51.520] { 1571s [00:52:51.520] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1571s [00:52:51.520] ...future.X_jj <- ...future.elements_ii[[jj]] 1571s [00:52:51.520] ...future.FUN(...future.X_jj, ...) 1571s [00:52:51.520] }) 1571s [00:52:51.520] } 1571s [00:52:51.520] }, args = future.call.arguments) 1571s [00:52:51.520] } 1571s [00:52:51.521] Tweak future expression to call with '...' arguments ... DONE 1571s [00:52:51.521] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1571s [00:52:51.522] 1571s [00:52:51.522] getGlobalsAndPackages() ... DONE 1571s [00:52:51.522] run() for ‘Future’ ... 1571s [00:52:51.522] - state: ‘created’ 1571s [00:52:51.522] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1571s [00:52:51.523] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1571s [00:52:51.523] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1571s [00:52:51.523] - Field: ‘label’ 1571s [00:52:51.523] - Field: ‘local’ 1571s [00:52:51.523] - Field: ‘owner’ 1571s [00:52:51.524] - Field: ‘envir’ 1571s [00:52:51.524] - Field: ‘packages’ 1571s [00:52:51.524] - Field: ‘gc’ 1571s [00:52:51.524] - Field: ‘conditions’ 1571s [00:52:51.524] - Field: ‘expr’ 1571s [00:52:51.524] - Field: ‘uuid’ 1571s [00:52:51.524] - Field: ‘seed’ 1571s [00:52:51.525] - Field: ‘version’ 1571s [00:52:51.525] - Field: ‘result’ 1571s [00:52:51.525] - Field: ‘asynchronous’ 1571s [00:52:51.525] - Field: ‘calls’ 1571s [00:52:51.525] - Field: ‘globals’ 1571s [00:52:51.525] - Field: ‘stdout’ 1571s [00:52:51.525] - Field: ‘earlySignal’ 1571s [00:52:51.525] - Field: ‘lazy’ 1571s [00:52:51.525] - Field: ‘state’ 1571s [00:52:51.526] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1571s [00:52:51.526] - Launch lazy future ... 1571s [00:52:51.526] Packages needed by the future expression (n = 0): 1571s [00:52:51.526] Packages needed by future strategies (n = 0): 1571s [00:52:51.527] { 1571s [00:52:51.527] { 1571s [00:52:51.527] { 1571s [00:52:51.527] ...future.startTime <- base::Sys.time() 1571s [00:52:51.527] { 1571s [00:52:51.527] { 1571s [00:52:51.527] { 1571s [00:52:51.527] base::local({ 1571s [00:52:51.527] has_future <- base::requireNamespace("future", 1571s [00:52:51.527] quietly = TRUE) 1571s [00:52:51.527] if (has_future) { 1571s [00:52:51.527] ns <- base::getNamespace("future") 1571s [00:52:51.527] version <- ns[[".package"]][["version"]] 1571s [00:52:51.527] if (is.null(version)) 1571s [00:52:51.527] version <- utils::packageVersion("future") 1571s [00:52:51.527] } 1571s [00:52:51.527] else { 1571s [00:52:51.527] version <- NULL 1571s [00:52:51.527] } 1571s [00:52:51.527] if (!has_future || version < "1.8.0") { 1571s [00:52:51.527] info <- base::c(r_version = base::gsub("R version ", 1571s [00:52:51.527] "", base::R.version$version.string), 1571s [00:52:51.527] platform = base::sprintf("%s (%s-bit)", 1571s [00:52:51.527] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1571s [00:52:51.527] os = base::paste(base::Sys.info()[base::c("sysname", 1571s [00:52:51.527] "release", "version")], collapse = " "), 1571s [00:52:51.527] hostname = base::Sys.info()[["nodename"]]) 1571s [00:52:51.527] info <- base::sprintf("%s: %s", base::names(info), 1571s [00:52:51.527] info) 1571s [00:52:51.527] info <- base::paste(info, collapse = "; ") 1571s [00:52:51.527] if (!has_future) { 1571s [00:52:51.527] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1571s [00:52:51.527] info) 1571s [00:52:51.527] } 1571s [00:52:51.527] else { 1571s [00:52:51.527] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1571s [00:52:51.527] info, version) 1571s [00:52:51.527] } 1571s [00:52:51.527] base::stop(msg) 1571s [00:52:51.527] } 1571s [00:52:51.527] }) 1571s [00:52:51.527] } 1571s [00:52:51.527] options(future.plan = NULL) 1571s [00:52:51.527] Sys.unsetenv("R_FUTURE_PLAN") 1571s [00:52:51.527] future::plan("default", .cleanup = FALSE, .init = FALSE) 1571s [00:52:51.527] } 1571s [00:52:51.527] ...future.workdir <- getwd() 1571s [00:52:51.527] } 1571s [00:52:51.527] ...future.oldOptions <- base::as.list(base::.Options) 1571s [00:52:51.527] ...future.oldEnvVars <- base::Sys.getenv() 1571s [00:52:51.527] } 1571s [00:52:51.527] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1571s [00:52:51.527] future.globals.maxSize = NULL, future.globals.method = NULL, 1571s [00:52:51.527] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1571s [00:52:51.527] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1571s [00:52:51.527] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1571s [00:52:51.527] future.stdout.windows.reencode = NULL, width = 80L) 1571s [00:52:51.527] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1571s [00:52:51.527] base::names(...future.oldOptions)) 1571s [00:52:51.527] } 1571s [00:52:51.527] if (FALSE) { 1571s [00:52:51.527] } 1571s [00:52:51.527] else { 1571s [00:52:51.527] if (TRUE) { 1571s [00:52:51.527] ...future.stdout <- base::rawConnection(base::raw(0L), 1571s [00:52:51.527] open = "w") 1571s [00:52:51.527] } 1571s [00:52:51.527] else { 1571s [00:52:51.527] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1571s [00:52:51.527] windows = "NUL", "/dev/null"), open = "w") 1571s [00:52:51.527] } 1571s [00:52:51.527] base::sink(...future.stdout, type = "output", split = FALSE) 1571s [00:52:51.527] base::on.exit(if (!base::is.null(...future.stdout)) { 1571s [00:52:51.527] base::sink(type = "output", split = FALSE) 1571s [00:52:51.527] base::close(...future.stdout) 1571s [00:52:51.527] }, add = TRUE) 1571s [00:52:51.527] } 1571s [00:52:51.527] ...future.frame <- base::sys.nframe() 1571s [00:52:51.527] ...future.conditions <- base::list() 1571s [00:52:51.527] ...future.rng <- base::globalenv()$.Random.seed 1571s [00:52:51.527] if (FALSE) { 1571s [00:52:51.527] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1571s [00:52:51.527] "...future.value", "...future.globalenv.names", ".Random.seed") 1571s [00:52:51.527] } 1571s [00:52:51.527] ...future.result <- base::tryCatch({ 1571s [00:52:51.527] base::withCallingHandlers({ 1571s [00:52:51.527] ...future.value <- base::withVisible(base::local({ 1571s [00:52:51.527] do.call(function(...) { 1571s [00:52:51.527] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1571s [00:52:51.527] if (!identical(...future.globals.maxSize.org, 1571s [00:52:51.527] ...future.globals.maxSize)) { 1571s [00:52:51.527] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1571s [00:52:51.527] on.exit(options(oopts), add = TRUE) 1571s [00:52:51.527] } 1571s [00:52:51.527] { 1571s [00:52:51.527] lapply(seq_along(...future.elements_ii), 1571s [00:52:51.527] FUN = function(jj) { 1571s [00:52:51.527] ...future.X_jj <- ...future.elements_ii[[jj]] 1571s [00:52:51.527] ...future.FUN(...future.X_jj, ...) 1571s [00:52:51.527] }) 1571s [00:52:51.527] } 1571s [00:52:51.527] }, args = future.call.arguments) 1571s [00:52:51.527] })) 1571s [00:52:51.527] future::FutureResult(value = ...future.value$value, 1571s [00:52:51.527] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1571s [00:52:51.527] ...future.rng), globalenv = if (FALSE) 1571s [00:52:51.527] list(added = base::setdiff(base::names(base::.GlobalEnv), 1571s [00:52:51.527] ...future.globalenv.names)) 1571s [00:52:51.527] else NULL, started = ...future.startTime, version = "1.8") 1571s [00:52:51.527] }, condition = base::local({ 1571s [00:52:51.527] c <- base::c 1571s [00:52:51.527] inherits <- base::inherits 1571s [00:52:51.527] invokeRestart <- base::invokeRestart 1571s [00:52:51.527] length <- base::length 1571s [00:52:51.527] list <- base::list 1571s [00:52:51.527] seq.int <- base::seq.int 1571s [00:52:51.527] signalCondition <- base::signalCondition 1571s [00:52:51.527] sys.calls <- base::sys.calls 1571s [00:52:51.527] `[[` <- base::`[[` 1571s [00:52:51.527] `+` <- base::`+` 1571s [00:52:51.527] `<<-` <- base::`<<-` 1571s [00:52:51.527] sysCalls <- function(calls = sys.calls(), from = 1L) { 1571s [00:52:51.527] calls[seq.int(from = from + 12L, to = length(calls) - 1571s [00:52:51.527] 3L)] 1571s [00:52:51.527] } 1571s [00:52:51.527] function(cond) { 1571s [00:52:51.527] is_error <- inherits(cond, "error") 1571s [00:52:51.527] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1571s [00:52:51.527] NULL) 1571s [00:52:51.527] if (is_error) { 1571s [00:52:51.527] sessionInformation <- function() { 1571s [00:52:51.527] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1571s [00:52:51.527] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1571s [00:52:51.527] search = base::search(), system = base::Sys.info()) 1571s [00:52:51.527] } 1571s [00:52:51.527] ...future.conditions[[length(...future.conditions) + 1571s [00:52:51.527] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1571s [00:52:51.527] cond$call), session = sessionInformation(), 1571s [00:52:51.527] timestamp = base::Sys.time(), signaled = 0L) 1571s [00:52:51.527] signalCondition(cond) 1571s [00:52:51.527] } 1571s [00:52:51.527] else if (!ignore && TRUE && inherits(cond, c("condition", 1571s [00:52:51.527] "immediateCondition"))) { 1571s [00:52:51.527] signal <- TRUE && inherits(cond, "immediateCondition") 1571s [00:52:51.527] ...future.conditions[[length(...future.conditions) + 1571s [00:52:51.527] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1571s [00:52:51.527] if (TRUE && !signal) { 1571s [00:52:51.527] muffleCondition <- function (cond, pattern = "^muffle") 1571s [00:52:51.527] { 1571s [00:52:51.527] inherits <- base::inherits 1571s [00:52:51.527] invokeRestart <- base::invokeRestart 1571s [00:52:51.527] is.null <- base::is.null 1571s [00:52:51.527] muffled <- FALSE 1571s [00:52:51.527] if (inherits(cond, "message")) { 1571s [00:52:51.527] muffled <- grepl(pattern, "muffleMessage") 1571s [00:52:51.527] if (muffled) 1571s [00:52:51.527] invokeRestart("muffleMessage") 1571s [00:52:51.527] } 1571s [00:52:51.527] else if (inherits(cond, "warning")) { 1571s [00:52:51.527] muffled <- grepl(pattern, "muffleWarning") 1571s [00:52:51.527] if (muffled) 1571s [00:52:51.527] invokeRestart("muffleWarning") 1571s [00:52:51.527] } 1571s [00:52:51.527] else if (inherits(cond, "condition")) { 1571s [00:52:51.527] if (!is.null(pattern)) { 1571s [00:52:51.527] computeRestarts <- base::computeRestarts 1571s [00:52:51.527] grepl <- base::grepl 1571s [00:52:51.527] restarts <- computeRestarts(cond) 1571s [00:52:51.527] for (restart in restarts) { 1571s [00:52:51.527] name <- restart$name 1571s [00:52:51.527] if (is.null(name)) 1571s [00:52:51.527] next 1571s [00:52:51.527] if (!grepl(pattern, name)) 1571s [00:52:51.527] next 1571s [00:52:51.527] invokeRestart(restart) 1571s [00:52:51.527] muffled <- TRUE 1571s [00:52:51.527] break 1571s [00:52:51.527] } 1571s [00:52:51.527] } 1571s [00:52:51.527] } 1571s [00:52:51.527] invisible(muffled) 1571s [00:52:51.527] } 1571s [00:52:51.527] muffleCondition(cond, pattern = "^muffle") 1571s [00:52:51.527] } 1571s [00:52:51.527] } 1571s [00:52:51.527] else { 1571s [00:52:51.527] if (TRUE) { 1571s [00:52:51.527] muffleCondition <- function (cond, pattern = "^muffle") 1571s [00:52:51.527] { 1571s [00:52:51.527] inherits <- base::inherits 1571s [00:52:51.527] invokeRestart <- base::invokeRestart 1571s [00:52:51.527] is.null <- base::is.null 1571s [00:52:51.527] muffled <- FALSE 1571s [00:52:51.527] if (inherits(cond, "message")) { 1571s [00:52:51.527] muffled <- grepl(pattern, "muffleMessage") 1571s [00:52:51.527] if (muffled) 1571s [00:52:51.527] invokeRestart("muffleMessage") 1571s [00:52:51.527] } 1571s [00:52:51.527] else if (inherits(cond, "warning")) { 1571s [00:52:51.527] muffled <- grepl(pattern, "muffleWarning") 1571s [00:52:51.527] if (muffled) 1571s [00:52:51.527] invokeRestart("muffleWarning") 1571s [00:52:51.527] } 1571s [00:52:51.527] else if (inherits(cond, "condition")) { 1571s [00:52:51.527] if (!is.null(pattern)) { 1571s [00:52:51.527] computeRestarts <- base::computeRestarts 1571s [00:52:51.527] grepl <- base::grepl 1571s [00:52:51.527] restarts <- computeRestarts(cond) 1571s [00:52:51.527] for (restart in restarts) { 1571s [00:52:51.527] name <- restart$name 1571s [00:52:51.527] if (is.null(name)) 1571s [00:52:51.527] next 1571s [00:52:51.527] if (!grepl(pattern, name)) 1571s [00:52:51.527] next 1571s [00:52:51.527] invokeRestart(restart) 1571s [00:52:51.527] muffled <- TRUE 1571s [00:52:51.527] break 1571s [00:52:51.527] } 1571s [00:52:51.527] } 1571s [00:52:51.527] } 1571s [00:52:51.527] invisible(muffled) 1571s [00:52:51.527] } 1571s [00:52:51.527] muffleCondition(cond, pattern = "^muffle") 1571s [00:52:51.527] } 1571s [00:52:51.527] } 1571s [00:52:51.527] } 1571s [00:52:51.527] })) 1571s [00:52:51.527] }, error = function(ex) { 1571s [00:52:51.527] base::structure(base::list(value = NULL, visible = NULL, 1571s [00:52:51.527] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1571s [00:52:51.527] ...future.rng), started = ...future.startTime, 1571s [00:52:51.527] finished = Sys.time(), session_uuid = NA_character_, 1571s [00:52:51.527] version = "1.8"), class = "FutureResult") 1571s [00:52:51.527] }, finally = { 1571s [00:52:51.527] if (!identical(...future.workdir, getwd())) 1571s [00:52:51.527] setwd(...future.workdir) 1571s [00:52:51.527] { 1571s [00:52:51.527] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1571s [00:52:51.527] ...future.oldOptions$nwarnings <- NULL 1571s [00:52:51.527] } 1571s [00:52:51.527] base::options(...future.oldOptions) 1571s [00:52:51.527] if (.Platform$OS.type == "windows") { 1571s [00:52:51.527] old_names <- names(...future.oldEnvVars) 1571s [00:52:51.527] envs <- base::Sys.getenv() 1571s [00:52:51.527] names <- names(envs) 1571s [00:52:51.527] common <- intersect(names, old_names) 1571s [00:52:51.527] added <- setdiff(names, old_names) 1571s [00:52:51.527] removed <- setdiff(old_names, names) 1571s [00:52:51.527] changed <- common[...future.oldEnvVars[common] != 1571s [00:52:51.527] envs[common]] 1571s [00:52:51.527] NAMES <- toupper(changed) 1571s [00:52:51.527] args <- list() 1571s [00:52:51.527] for (kk in seq_along(NAMES)) { 1571s [00:52:51.527] name <- changed[[kk]] 1571s [00:52:51.527] NAME <- NAMES[[kk]] 1571s [00:52:51.527] if (name != NAME && is.element(NAME, old_names)) 1571s [00:52:51.527] next 1571s [00:52:51.527] args[[name]] <- ...future.oldEnvVars[[name]] 1571s [00:52:51.527] } 1571s [00:52:51.527] NAMES <- toupper(added) 1571s [00:52:51.527] for (kk in seq_along(NAMES)) { 1571s [00:52:51.527] name <- added[[kk]] 1571s [00:52:51.527] NAME <- NAMES[[kk]] 1571s [00:52:51.527] if (name != NAME && is.element(NAME, old_names)) 1571s [00:52:51.527] next 1571s [00:52:51.527] args[[name]] <- "" 1571s [00:52:51.527] } 1571s [00:52:51.527] NAMES <- toupper(removed) 1571s [00:52:51.527] for (kk in seq_along(NAMES)) { 1571s [00:52:51.527] name <- removed[[kk]] 1571s [00:52:51.527] NAME <- NAMES[[kk]] 1571s [00:52:51.527] if (name != NAME && is.element(NAME, old_names)) 1571s [00:52:51.527] next 1571s [00:52:51.527] args[[name]] <- ...future.oldEnvVars[[name]] 1571s [00:52:51.527] } 1571s [00:52:51.527] if (length(args) > 0) 1571s [00:52:51.527] base::do.call(base::Sys.setenv, args = args) 1571s [00:52:51.527] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1571s [00:52:51.527] } 1571s [00:52:51.527] else { 1571s [00:52:51.527] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1571s [00:52:51.527] } 1571s [00:52:51.527] { 1571s [00:52:51.527] if (base::length(...future.futureOptionsAdded) > 1571s [00:52:51.527] 0L) { 1571s [00:52:51.527] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1571s [00:52:51.527] base::names(opts) <- ...future.futureOptionsAdded 1571s [00:52:51.527] base::options(opts) 1571s [00:52:51.527] } 1571s [00:52:51.527] { 1571s [00:52:51.527] { 1571s [00:52:51.527] NULL 1571s [00:52:51.527] RNGkind("Mersenne-Twister") 1571s [00:52:51.527] base::rm(list = ".Random.seed", envir = base::globalenv(), 1571s [00:52:51.527] inherits = FALSE) 1571s [00:52:51.527] } 1571s [00:52:51.527] options(future.plan = NULL) 1571s [00:52:51.527] if (is.na(NA_character_)) 1571s [00:52:51.527] Sys.unsetenv("R_FUTURE_PLAN") 1571s [00:52:51.527] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1571s [00:52:51.527] future::plan(list(function (..., envir = parent.frame()) 1571s [00:52:51.527] { 1571s [00:52:51.527] future <- SequentialFuture(..., envir = envir) 1571s [00:52:51.527] if (!future$lazy) 1571s [00:52:51.527] future <- run(future) 1571s [00:52:51.527] invisible(future) 1571s [00:52:51.527] }), .cleanup = FALSE, .init = FALSE) 1571s [00:52:51.527] } 1571s [00:52:51.527] } 1571s [00:52:51.527] } 1571s [00:52:51.527] }) 1571s [00:52:51.527] if (TRUE) { 1571s [00:52:51.527] base::sink(type = "output", split = FALSE) 1571s [00:52:51.527] if (TRUE) { 1571s [00:52:51.527] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1571s [00:52:51.527] } 1571s [00:52:51.527] else { 1571s [00:52:51.527] ...future.result["stdout"] <- base::list(NULL) 1571s [00:52:51.527] } 1571s [00:52:51.527] base::close(...future.stdout) 1571s [00:52:51.527] ...future.stdout <- NULL 1571s [00:52:51.527] } 1571s [00:52:51.527] ...future.result$conditions <- ...future.conditions 1571s [00:52:51.527] ...future.result$finished <- base::Sys.time() 1571s [00:52:51.527] ...future.result 1571s [00:52:51.527] } 1571s [00:52:51.529] assign_globals() ... 1571s [00:52:51.529] List of 5 1571s [00:52:51.529] $ ...future.FUN :function (x, ...) 1571s [00:52:51.529] $ future.call.arguments : list() 1571s [00:52:51.529] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1571s [00:52:51.529] $ ...future.elements_ii :List of 4 1571s [00:52:51.529] ..$ A: num 50 1571s [00:52:51.529] ..$ B: num 60 1571s [00:52:51.529] ..$ C: num 70 1571s [00:52:51.529] ..$ D: num 80 1571s [00:52:51.529] $ ...future.seeds_ii : NULL 1571s [00:52:51.529] $ ...future.globals.maxSize: NULL 1571s [00:52:51.529] - attr(*, "where")=List of 5 1571s [00:52:51.529] ..$ ...future.FUN : 1571s [00:52:51.529] ..$ future.call.arguments : 1571s [00:52:51.529] ..$ ...future.elements_ii : 1571s [00:52:51.529] ..$ ...future.seeds_ii : 1571s [00:52:51.529] ..$ ...future.globals.maxSize: 1571s [00:52:51.529] - attr(*, "resolved")= logi FALSE 1571s [00:52:51.529] - attr(*, "total_size")= num 1248 1571s [00:52:51.529] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1571s [00:52:51.529] - attr(*, "already-done")= logi TRUE 1571s [00:52:51.541] - copied ‘...future.FUN’ to environment 1571s [00:52:51.541] - copied ‘future.call.arguments’ to environment 1571s [00:52:51.541] - copied ‘...future.elements_ii’ to environment 1571s [00:52:51.541] - copied ‘...future.seeds_ii’ to environment 1571s [00:52:51.541] - copied ‘...future.globals.maxSize’ to environment 1571s [00:52:51.542] assign_globals() ... done 1571s [00:52:51.542] plan(): Setting new future strategy stack: 1571s [00:52:51.542] List of future strategies: 1571s [00:52:51.542] 1. sequential: 1571s [00:52:51.542] - args: function (..., envir = parent.frame()) 1571s [00:52:51.542] - tweaked: FALSE 1571s [00:52:51.542] - call: NULL 1571s [00:52:51.543] plan(): nbrOfWorkers() = 1 1571s [00:52:51.543] plan(): Setting new future strategy stack: 1571s [00:52:51.544] List of future strategies: 1571s [00:52:51.544] 1. sequential: 1571s [00:52:51.544] - args: function (..., envir = parent.frame()) 1571s [00:52:51.544] - tweaked: FALSE 1571s [00:52:51.544] - call: plan(strategy) 1571s [00:52:51.544] plan(): nbrOfWorkers() = 1 1571s [00:52:51.544] SequentialFuture started (and completed) 1571s [00:52:51.545] - Launch lazy future ... done 1571s [00:52:51.545] run() for ‘SequentialFuture’ ... done 1571s [00:52:51.545] Created future: 1571s [00:52:51.545] SequentialFuture: 1571s [00:52:51.545] Label: ‘future_sapply-1’ 1571s [00:52:51.545] Expression: 1571s [00:52:51.545] { 1571s [00:52:51.545] do.call(function(...) { 1571s [00:52:51.545] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1571s [00:52:51.545] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1571s [00:52:51.545] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1571s [00:52:51.545] on.exit(options(oopts), add = TRUE) 1571s [00:52:51.545] } 1571s [00:52:51.545] { 1571s [00:52:51.545] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1571s [00:52:51.545] ...future.X_jj <- ...future.elements_ii[[jj]] 1571s [00:52:51.545] ...future.FUN(...future.X_jj, ...) 1571s [00:52:51.545] }) 1571s [00:52:51.545] } 1571s [00:52:51.545] }, args = future.call.arguments) 1571s [00:52:51.545] } 1571s [00:52:51.545] Lazy evaluation: FALSE 1571s [00:52:51.545] Asynchronous evaluation: FALSE 1571s [00:52:51.545] Local evaluation: TRUE 1571s [00:52:51.545] Environment: R_GlobalEnv 1571s [00:52:51.545] Capture standard output: TRUE 1571s [00:52:51.545] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1571s [00:52:51.545] Globals: 5 objects totaling 1.44 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1571s [00:52:51.545] Packages: 1571s [00:52:51.545] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1571s [00:52:51.545] Resolved: TRUE 1571s [00:52:51.545] Value: 896 bytes of class ‘list’ 1571s [00:52:51.545] Early signaling: FALSE 1571s [00:52:51.545] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1571s [00:52:51.545] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1571s [00:52:51.547] Chunk #1 of 1 ... DONE 1571s [00:52:51.547] Launching 1 futures (chunks) ... DONE 1571s [00:52:51.548] Resolving 1 futures (chunks) ... 1571s [00:52:51.548] resolve() on list ... 1571s [00:52:51.548] recursive: 0 1571s [00:52:51.548] length: 1 1571s [00:52:51.548] 1571s [00:52:51.548] resolved() for ‘SequentialFuture’ ... 1571s [00:52:51.549] - state: ‘finished’ 1571s [00:52:51.549] - run: TRUE 1571s [00:52:51.549] - result: ‘FutureResult’ 1571s [00:52:51.549] resolved() for ‘SequentialFuture’ ... done 1571s [00:52:51.549] Future #1 1571s [00:52:51.549] signalConditionsASAP(SequentialFuture, pos=1) ... 1571s [00:52:51.550] - nx: 1 1571s [00:52:51.550] - relay: TRUE 1571s [00:52:51.550] - stdout: TRUE 1571s [00:52:51.550] - signal: TRUE 1571s [00:52:51.551] - resignal: FALSE 1571s [00:52:51.551] - force: TRUE 1571s [00:52:51.551] - relayed: [n=1] FALSE 1571s [00:52:51.551] - queued futures: [n=1] FALSE 1571s [00:52:51.551] - until=1 1571s [00:52:51.552] - relaying element #1 1571s [00:52:51.552] - relayed: [n=1] TRUE 1571s [00:52:51.552] - queued futures: [n=1] TRUE 1571s [00:52:51.552] signalConditionsASAP(SequentialFuture, pos=1) ... done 1571s [00:52:51.553] length: 0 (resolved future 1) 1571s [00:52:51.553] Relaying remaining futures 1571s [00:52:51.553] signalConditionsASAP(NULL, pos=0) ... 1571s [00:52:51.553] - nx: 1 1571s [00:52:51.553] - relay: TRUE 1571s [00:52:51.554] - stdout: TRUE 1571s [00:52:51.554] - signal: TRUE 1571s [00:52:51.554] - resignal: FALSE 1571s [00:52:51.554] - force: TRUE 1571s [00:52:51.554] - relayed: [n=1] TRUE 1571s [00:52:51.554] - queued futures: [n=1] TRUE 1571s - flush all 1571s [00:52:51.554] - relayed: [n=1] TRUE 1571s [00:52:51.555] - queued futures: [n=1] TRUE 1571s [00:52:51.555] signalConditionsASAP(NULL, pos=0) ... done 1571s [00:52:51.555] resolve() on list ... DONE 1571s [00:52:51.555] - Number of value chunks collected: 1 1571s [00:52:51.555] Resolving 1 futures (chunks) ... DONE 1571s [00:52:51.555] Reducing values from 1 chunks ... 1571s [00:52:51.556] - Number of values collected after concatenation: 4 1571s List of 2 1571s $ [00:52:51.556] - Number of values expected: 4 1571s [00:52:51.556] Reducing values from 1 chunks ... DONE 1571s [00:52:51.556] future_lapply() ... DONE 1571s y0: Named num [1:4] 50 60 70 80 1571s ..- attr(*, "names")= chr [1:4] "A" "B" "C" "D" 1571s $ y1: Named num [1:4] 50 60 70 80 1571s ..- attr(*, "names")= chr [1:4] "A" "B" "C" "D" 1571s [00:52:51.559] future_lapply() ... 1571s [00:52:51.560] Number of chunks: 1 1571s [00:52:51.560] getGlobalsAndPackagesXApply() ... 1571s [00:52:51.561] - future.globals: TRUE 1571s [00:52:51.561] getGlobalsAndPackages() ... 1571s [00:52:51.561] Searching for globals... 1571s [00:52:51.563] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1571s [00:52:51.563] Searching for globals ... DONE 1571s [00:52:51.563] Resolving globals: FALSE 1571s [00:52:51.564] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1571s [00:52:51.564] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1571s [00:52:51.564] - globals: [1] ‘FUN’ 1571s [00:52:51.564] 1571s [00:52:51.565] getGlobalsAndPackages() ... DONE 1571s [00:52:51.565] - globals found/used: [n=1] ‘FUN’ 1571s [00:52:51.565] - needed namespaces: [n=0] 1571s [00:52:51.565] Finding globals ... DONE 1571s [00:52:51.565] - use_args: TRUE 1571s [00:52:51.565] - Getting '...' globals ... 1571s [00:52:51.566] resolve() on list ... 1571s [00:52:51.566] recursive: 0 1571s [00:52:51.566] length: 1 1571s [00:52:51.566] elements: ‘...’ 1571s [00:52:51.566] length: 0 (resolved future 1) 1571s [00:52:51.566] resolve() on list ... DONE 1571s [00:52:51.567] - '...' content: [n=0] 1571s [00:52:51.567] List of 1 1571s [00:52:51.567] $ ...: list() 1571s [00:52:51.567] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1571s [00:52:51.567] - attr(*, "where")=List of 1 1571s [00:52:51.567] ..$ ...: 1571s [00:52:51.567] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1571s [00:52:51.567] - attr(*, "resolved")= logi TRUE 1571s [00:52:51.567] - attr(*, "total_size")= num NA 1571s [00:52:51.571] - Getting '...' globals ... DONE 1571s [00:52:51.571] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1571s [00:52:51.571] List of 2 1571s [00:52:51.571] $ ...future.FUN:function (x, y = 2 * 1:5) 1571s [00:52:51.571] $ ... : list() 1571s [00:52:51.571] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1571s [00:52:51.571] - attr(*, "where")=List of 2 1571s [00:52:51.571] ..$ ...future.FUN: 1571s [00:52:51.571] ..$ ... : 1571s [00:52:51.571] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1571s [00:52:51.571] - attr(*, "resolved")= logi FALSE 1571s [00:52:51.571] - attr(*, "total_size")= num 4728 1571s [00:52:51.578] Packages to be attached in all futures: [n=0] 1571s [00:52:51.578] getGlobalsAndPackagesXApply() ... DONE 1571s [00:52:51.579] Number of futures (= number of chunks): 1 1571s [00:52:51.579] Launching 1 futures (chunks) ... 1571s [00:52:51.579] Chunk #1 of 1 ... 1571s [00:52:51.579] - Finding globals in 'X' for chunk #1 ... 1571s [00:52:51.579] getGlobalsAndPackages() ... 1571s [00:52:51.579] Searching for globals... 1571s [00:52:51.580] 1571s [00:52:51.580] Searching for globals ... DONE 1571s [00:52:51.580] - globals: [0] 1571s [00:52:51.581] getGlobalsAndPackages() ... DONE 1571s [00:52:51.581] + additional globals found: [n=0] 1571s [00:52:51.581] + additional namespaces needed: [n=0] 1571s [00:52:51.581] - Finding globals in 'X' for chunk #1 ... DONE 1571s [00:52:51.581] - seeds: 1571s [00:52:51.582] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1571s [00:52:51.582] getGlobalsAndPackages() ... 1571s [00:52:51.582] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1571s [00:52:51.582] Resolving globals: FALSE 1571s [00:52:51.582] Tweak future expression to call with '...' arguments ... 1571s [00:52:51.583] { 1571s [00:52:51.583] do.call(function(...) { 1571s [00:52:51.583] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1571s [00:52:51.583] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1571s [00:52:51.583] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1571s [00:52:51.583] on.exit(options(oopts), add = TRUE) 1571s [00:52:51.583] } 1571s [00:52:51.583] { 1571s [00:52:51.583] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1571s [00:52:51.583] ...future.X_jj <- ...future.elements_ii[[jj]] 1571s [00:52:51.583] ...future.FUN(...future.X_jj, ...) 1571s [00:52:51.583] }) 1571s [00:52:51.583] } 1571s [00:52:51.583] }, args = future.call.arguments) 1571s [00:52:51.583] } 1571s [00:52:51.584] Tweak future expression to call with '...' arguments ... DONE 1571s [00:52:51.584] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1571s [00:52:51.585] 1571s [00:52:51.585] getGlobalsAndPackages() ... DONE 1571s [00:52:51.585] run() for ‘Future’ ... 1571s [00:52:51.585] - state: ‘created’ 1571s [00:52:51.585] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1571s [00:52:51.586] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1571s [00:52:51.586] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1571s [00:52:51.586] - Field: ‘label’ 1571s [00:52:51.586] - Field: ‘local’ 1571s [00:52:51.587] - Field: ‘owner’ 1571s [00:52:51.587] - Field: ‘envir’ 1571s [00:52:51.587] - Field: ‘packages’ 1571s [00:52:51.587] - Field: ‘gc’ 1571s [00:52:51.587] - Field: ‘conditions’ 1571s [00:52:51.587] - Field: ‘expr’ 1571s [00:52:51.588] - Field: ‘uuid’ 1571s [00:52:51.588] - Field: ‘seed’ 1571s [00:52:51.588] - Field: ‘version’ 1571s [00:52:51.589] - Field: ‘result’ 1571s [00:52:51.589] - Field: ‘asynchronous’ 1571s [00:52:51.589] - Field: ‘calls’ 1571s [00:52:51.589] - Field: ‘globals’ 1571s [00:52:51.589] - Field: ‘stdout’ 1571s [00:52:51.589] - Field: ‘earlySignal’ 1571s [00:52:51.590] - Field: ‘lazy’ 1571s [00:52:51.590] - Field: ‘state’ 1571s [00:52:51.590] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1571s [00:52:51.590] - Launch lazy future ... 1571s [00:52:51.590] Packages needed by the future expression (n = 0): 1571s [00:52:51.591] Packages needed by future strategies (n = 0): 1571s [00:52:51.591] { 1571s [00:52:51.591] { 1571s [00:52:51.591] { 1571s [00:52:51.591] ...future.startTime <- base::Sys.time() 1571s [00:52:51.591] { 1571s [00:52:51.591] { 1571s [00:52:51.591] { 1571s [00:52:51.591] base::local({ 1571s [00:52:51.591] has_future <- base::requireNamespace("future", 1571s [00:52:51.591] quietly = TRUE) 1571s [00:52:51.591] if (has_future) { 1571s [00:52:51.591] ns <- base::getNamespace("future") 1571s [00:52:51.591] version <- ns[[".package"]][["version"]] 1571s [00:52:51.591] if (is.null(version)) 1571s [00:52:51.591] version <- utils::packageVersion("future") 1571s [00:52:51.591] } 1571s [00:52:51.591] else { 1571s [00:52:51.591] version <- NULL 1571s [00:52:51.591] } 1571s [00:52:51.591] if (!has_future || version < "1.8.0") { 1571s [00:52:51.591] info <- base::c(r_version = base::gsub("R version ", 1571s [00:52:51.591] "", base::R.version$version.string), 1571s [00:52:51.591] platform = base::sprintf("%s (%s-bit)", 1571s [00:52:51.591] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1571s [00:52:51.591] os = base::paste(base::Sys.info()[base::c("sysname", 1571s [00:52:51.591] "release", "version")], collapse = " "), 1571s [00:52:51.591] hostname = base::Sys.info()[["nodename"]]) 1571s [00:52:51.591] info <- base::sprintf("%s: %s", base::names(info), 1571s [00:52:51.591] info) 1571s [00:52:51.591] info <- base::paste(info, collapse = "; ") 1571s [00:52:51.591] if (!has_future) { 1571s [00:52:51.591] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1571s [00:52:51.591] info) 1571s [00:52:51.591] } 1571s [00:52:51.591] else { 1571s [00:52:51.591] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1571s [00:52:51.591] info, version) 1571s [00:52:51.591] } 1571s [00:52:51.591] base::stop(msg) 1571s [00:52:51.591] } 1571s [00:52:51.591] }) 1571s [00:52:51.591] } 1571s [00:52:51.591] options(future.plan = NULL) 1571s [00:52:51.591] Sys.unsetenv("R_FUTURE_PLAN") 1571s [00:52:51.591] future::plan("default", .cleanup = FALSE, .init = FALSE) 1571s [00:52:51.591] } 1571s [00:52:51.591] ...future.workdir <- getwd() 1571s [00:52:51.591] } 1571s [00:52:51.591] ...future.oldOptions <- base::as.list(base::.Options) 1571s [00:52:51.591] ...future.oldEnvVars <- base::Sys.getenv() 1571s [00:52:51.591] } 1571s [00:52:51.591] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1571s [00:52:51.591] future.globals.maxSize = NULL, future.globals.method = NULL, 1571s [00:52:51.591] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1571s [00:52:51.591] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1571s [00:52:51.591] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1571s [00:52:51.591] future.stdout.windows.reencode = NULL, width = 80L) 1571s [00:52:51.591] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1571s [00:52:51.591] base::names(...future.oldOptions)) 1571s [00:52:51.591] } 1571s [00:52:51.591] if (FALSE) { 1571s [00:52:51.591] } 1571s [00:52:51.591] else { 1571s [00:52:51.591] if (TRUE) { 1571s [00:52:51.591] ...future.stdout <- base::rawConnection(base::raw(0L), 1571s [00:52:51.591] open = "w") 1571s [00:52:51.591] } 1571s [00:52:51.591] else { 1571s [00:52:51.591] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1571s [00:52:51.591] windows = "NUL", "/dev/null"), open = "w") 1571s [00:52:51.591] } 1571s [00:52:51.591] base::sink(...future.stdout, type = "output", split = FALSE) 1571s [00:52:51.591] base::on.exit(if (!base::is.null(...future.stdout)) { 1571s [00:52:51.591] base::sink(type = "output", split = FALSE) 1571s [00:52:51.591] base::close(...future.stdout) 1571s [00:52:51.591] }, add = TRUE) 1571s [00:52:51.591] } 1571s [00:52:51.591] ...future.frame <- base::sys.nframe() 1571s [00:52:51.591] ...future.conditions <- base::list() 1571s [00:52:51.591] ...future.rng <- base::globalenv()$.Random.seed 1571s [00:52:51.591] if (FALSE) { 1571s [00:52:51.591] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1571s [00:52:51.591] "...future.value", "...future.globalenv.names", ".Random.seed") 1571s [00:52:51.591] } 1571s [00:52:51.591] ...future.result <- base::tryCatch({ 1571s [00:52:51.591] base::withCallingHandlers({ 1571s [00:52:51.591] ...future.value <- base::withVisible(base::local({ 1571s [00:52:51.591] do.call(function(...) { 1571s [00:52:51.591] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1571s [00:52:51.591] if (!identical(...future.globals.maxSize.org, 1571s [00:52:51.591] ...future.globals.maxSize)) { 1571s [00:52:51.591] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1571s [00:52:51.591] on.exit(options(oopts), add = TRUE) 1571s [00:52:51.591] } 1571s [00:52:51.591] { 1571s [00:52:51.591] lapply(seq_along(...future.elements_ii), 1571s [00:52:51.591] FUN = function(jj) { 1571s [00:52:51.591] ...future.X_jj <- ...future.elements_ii[[jj]] 1571s [00:52:51.591] ...future.FUN(...future.X_jj, ...) 1571s [00:52:51.591] }) 1571s [00:52:51.591] } 1571s [00:52:51.591] }, args = future.call.arguments) 1571s [00:52:51.591] })) 1571s [00:52:51.591] future::FutureResult(value = ...future.value$value, 1571s [00:52:51.591] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1571s [00:52:51.591] ...future.rng), globalenv = if (FALSE) 1571s [00:52:51.591] list(added = base::setdiff(base::names(base::.GlobalEnv), 1571s [00:52:51.591] ...future.globalenv.names)) 1571s [00:52:51.591] else NULL, started = ...future.startTime, version = "1.8") 1571s [00:52:51.591] }, condition = base::local({ 1571s [00:52:51.591] c <- base::c 1571s [00:52:51.591] inherits <- base::inherits 1571s [00:52:51.591] invokeRestart <- base::invokeRestart 1571s [00:52:51.591] length <- base::length 1571s [00:52:51.591] list <- base::list 1571s [00:52:51.591] seq.int <- base::seq.int 1571s [00:52:51.591] signalCondition <- base::signalCondition 1571s [00:52:51.591] sys.calls <- base::sys.calls 1571s [00:52:51.591] `[[` <- base::`[[` 1571s [00:52:51.591] `+` <- base::`+` 1571s [00:52:51.591] `<<-` <- base::`<<-` 1571s [00:52:51.591] sysCalls <- function(calls = sys.calls(), from = 1L) { 1571s [00:52:51.591] calls[seq.int(from = from + 12L, to = length(calls) - 1571s [00:52:51.591] 3L)] 1571s [00:52:51.591] } 1571s [00:52:51.591] function(cond) { 1571s [00:52:51.591] is_error <- inherits(cond, "error") 1571s [00:52:51.591] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1571s [00:52:51.591] NULL) 1571s [00:52:51.591] if (is_error) { 1571s [00:52:51.591] sessionInformation <- function() { 1571s [00:52:51.591] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1571s [00:52:51.591] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1571s [00:52:51.591] search = base::search(), system = base::Sys.info()) 1571s [00:52:51.591] } 1571s [00:52:51.591] ...future.conditions[[length(...future.conditions) + 1571s [00:52:51.591] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1571s [00:52:51.591] cond$call), session = sessionInformation(), 1571s [00:52:51.591] timestamp = base::Sys.time(), signaled = 0L) 1571s [00:52:51.591] signalCondition(cond) 1571s [00:52:51.591] } 1571s [00:52:51.591] else if (!ignore && TRUE && inherits(cond, c("condition", 1571s [00:52:51.591] "immediateCondition"))) { 1571s [00:52:51.591] signal <- TRUE && inherits(cond, "immediateCondition") 1571s [00:52:51.591] ...future.conditions[[length(...future.conditions) + 1571s [00:52:51.591] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1571s [00:52:51.591] if (TRUE && !signal) { 1571s [00:52:51.591] muffleCondition <- function (cond, pattern = "^muffle") 1571s [00:52:51.591] { 1571s [00:52:51.591] inherits <- base::inherits 1571s [00:52:51.591] invokeRestart <- base::invokeRestart 1571s [00:52:51.591] is.null <- base::is.null 1571s [00:52:51.591] muffled <- FALSE 1571s [00:52:51.591] if (inherits(cond, "message")) { 1571s [00:52:51.591] muffled <- grepl(pattern, "muffleMessage") 1571s [00:52:51.591] if (muffled) 1571s [00:52:51.591] invokeRestart("muffleMessage") 1571s [00:52:51.591] } 1571s [00:52:51.591] else if (inherits(cond, "warning")) { 1571s [00:52:51.591] muffled <- grepl(pattern, "muffleWarning") 1571s [00:52:51.591] if (muffled) 1571s [00:52:51.591] invokeRestart("muffleWarning") 1571s [00:52:51.591] } 1571s [00:52:51.591] else if (inherits(cond, "condition")) { 1571s [00:52:51.591] if (!is.null(pattern)) { 1571s [00:52:51.591] computeRestarts <- base::computeRestarts 1571s [00:52:51.591] grepl <- base::grepl 1571s [00:52:51.591] restarts <- computeRestarts(cond) 1571s [00:52:51.591] for (restart in restarts) { 1571s [00:52:51.591] name <- restart$name 1571s [00:52:51.591] if (is.null(name)) 1571s [00:52:51.591] next 1571s [00:52:51.591] if (!grepl(pattern, name)) 1571s [00:52:51.591] next 1571s [00:52:51.591] invokeRestart(restart) 1571s [00:52:51.591] muffled <- TRUE 1571s [00:52:51.591] break 1571s [00:52:51.591] } 1571s [00:52:51.591] } 1571s [00:52:51.591] } 1571s [00:52:51.591] invisible(muffled) 1571s [00:52:51.591] } 1571s [00:52:51.591] muffleCondition(cond, pattern = "^muffle") 1571s [00:52:51.591] } 1571s [00:52:51.591] } 1571s [00:52:51.591] else { 1571s [00:52:51.591] if (TRUE) { 1571s [00:52:51.591] muffleCondition <- function (cond, pattern = "^muffle") 1571s [00:52:51.591] { 1571s [00:52:51.591] inherits <- base::inherits 1571s [00:52:51.591] invokeRestart <- base::invokeRestart 1571s [00:52:51.591] is.null <- base::is.null 1571s [00:52:51.591] muffled <- FALSE 1571s [00:52:51.591] if (inherits(cond, "message")) { 1571s [00:52:51.591] muffled <- grepl(pattern, "muffleMessage") 1571s [00:52:51.591] if (muffled) 1571s [00:52:51.591] invokeRestart("muffleMessage") 1571s [00:52:51.591] } 1571s [00:52:51.591] else if (inherits(cond, "warning")) { 1571s [00:52:51.591] muffled <- grepl(pattern, "muffleWarning") 1571s [00:52:51.591] if (muffled) 1571s [00:52:51.591] invokeRestart("muffleWarning") 1571s [00:52:51.591] } 1571s [00:52:51.591] else if (inherits(cond, "condition")) { 1571s [00:52:51.591] if (!is.null(pattern)) { 1571s [00:52:51.591] computeRestarts <- base::computeRestarts 1571s [00:52:51.591] grepl <- base::grepl 1571s [00:52:51.591] restarts <- computeRestarts(cond) 1571s [00:52:51.591] for (restart in restarts) { 1571s [00:52:51.591] name <- restart$name 1571s [00:52:51.591] if (is.null(name)) 1571s [00:52:51.591] next 1571s [00:52:51.591] if (!grepl(pattern, name)) 1571s [00:52:51.591] next 1571s [00:52:51.591] invokeRestart(restart) 1571s [00:52:51.591] muffled <- TRUE 1571s [00:52:51.591] break 1571s [00:52:51.591] } 1571s [00:52:51.591] } 1571s [00:52:51.591] } 1571s [00:52:51.591] invisible(muffled) 1571s [00:52:51.591] } 1571s [00:52:51.591] muffleCondition(cond, pattern = "^muffle") 1571s [00:52:51.591] } 1571s [00:52:51.591] } 1571s [00:52:51.591] } 1571s [00:52:51.591] })) 1571s [00:52:51.591] }, error = function(ex) { 1571s [00:52:51.591] base::structure(base::list(value = NULL, visible = NULL, 1571s [00:52:51.591] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1571s [00:52:51.591] ...future.rng), started = ...future.startTime, 1571s [00:52:51.591] finished = Sys.time(), session_uuid = NA_character_, 1571s [00:52:51.591] version = "1.8"), class = "FutureResult") 1571s [00:52:51.591] }, finally = { 1571s [00:52:51.591] if (!identical(...future.workdir, getwd())) 1571s [00:52:51.591] setwd(...future.workdir) 1571s [00:52:51.591] { 1571s [00:52:51.591] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1571s [00:52:51.591] ...future.oldOptions$nwarnings <- NULL 1571s [00:52:51.591] } 1571s [00:52:51.591] base::options(...future.oldOptions) 1571s [00:52:51.591] if (.Platform$OS.type == "windows") { 1571s [00:52:51.591] old_names <- names(...future.oldEnvVars) 1571s [00:52:51.591] envs <- base::Sys.getenv() 1571s [00:52:51.591] names <- names(envs) 1571s [00:52:51.591] common <- intersect(names, old_names) 1571s [00:52:51.591] added <- setdiff(names, old_names) 1571s [00:52:51.591] removed <- setdiff(old_names, names) 1571s [00:52:51.591] changed <- common[...future.oldEnvVars[common] != 1571s [00:52:51.591] envs[common]] 1571s [00:52:51.591] NAMES <- toupper(changed) 1571s [00:52:51.591] args <- list() 1571s [00:52:51.591] for (kk in seq_along(NAMES)) { 1571s [00:52:51.591] name <- changed[[kk]] 1571s [00:52:51.591] NAME <- NAMES[[kk]] 1571s [00:52:51.591] if (name != NAME && is.element(NAME, old_names)) 1571s [00:52:51.591] next 1571s [00:52:51.591] args[[name]] <- ...future.oldEnvVars[[name]] 1571s [00:52:51.591] } 1571s [00:52:51.591] NAMES <- toupper(added) 1571s [00:52:51.591] for (kk in seq_along(NAMES)) { 1571s [00:52:51.591] name <- added[[kk]] 1571s [00:52:51.591] NAME <- NAMES[[kk]] 1571s [00:52:51.591] if (name != NAME && is.element(NAME, old_names)) 1571s [00:52:51.591] next 1571s [00:52:51.591] args[[name]] <- "" 1571s [00:52:51.591] } 1571s [00:52:51.591] NAMES <- toupper(removed) 1571s [00:52:51.591] for (kk in seq_along(NAMES)) { 1571s [00:52:51.591] name <- removed[[kk]] 1571s [00:52:51.591] NAME <- NAMES[[kk]] 1571s [00:52:51.591] if (name != NAME && is.element(NAME, old_names)) 1571s [00:52:51.591] next 1571s [00:52:51.591] args[[name]] <- ...future.oldEnvVars[[name]] 1571s [00:52:51.591] } 1571s [00:52:51.591] if (length(args) > 0) 1571s [00:52:51.591] base::do.call(base::Sys.setenv, args = args) 1571s [00:52:51.591] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1571s [00:52:51.591] } 1571s [00:52:51.591] else { 1571s [00:52:51.591] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1571s [00:52:51.591] } 1571s [00:52:51.591] { 1571s [00:52:51.591] if (base::length(...future.futureOptionsAdded) > 1571s [00:52:51.591] 0L) { 1571s [00:52:51.591] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1571s [00:52:51.591] base::names(opts) <- ...future.futureOptionsAdded 1571s [00:52:51.591] base::options(opts) 1571s [00:52:51.591] } 1571s [00:52:51.591] { 1571s [00:52:51.591] { 1571s [00:52:51.591] NULL 1571s [00:52:51.591] RNGkind("Mersenne-Twister") 1571s [00:52:51.591] base::rm(list = ".Random.seed", envir = base::globalenv(), 1571s [00:52:51.591] inherits = FALSE) 1571s [00:52:51.591] } 1571s [00:52:51.591] options(future.plan = NULL) 1571s [00:52:51.591] if (is.na(NA_character_)) 1571s [00:52:51.591] Sys.unsetenv("R_FUTURE_PLAN") 1571s [00:52:51.591] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1571s [00:52:51.591] future::plan(list(function (..., envir = parent.frame()) 1571s [00:52:51.591] { 1571s [00:52:51.591] future <- SequentialFuture(..., envir = envir) 1571s [00:52:51.591] if (!future$lazy) 1571s [00:52:51.591] future <- run(future) 1571s [00:52:51.591] invisible(future) 1571s [00:52:51.591] }), .cleanup = FALSE, .init = FALSE) 1571s [00:52:51.591] } 1571s [00:52:51.591] } 1571s [00:52:51.591] } 1571s [00:52:51.591] }) 1571s [00:52:51.591] if (TRUE) { 1571s [00:52:51.591] base::sink(type = "output", split = FALSE) 1571s [00:52:51.591] if (TRUE) { 1571s [00:52:51.591] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1571s [00:52:51.591] } 1571s [00:52:51.591] else { 1571s [00:52:51.591] ...future.result["stdout"] <- base::list(NULL) 1571s [00:52:51.591] } 1571s [00:52:51.591] base::close(...future.stdout) 1571s [00:52:51.591] ...future.stdout <- NULL 1571s [00:52:51.591] } 1571s [00:52:51.591] ...future.result$conditions <- ...future.conditions 1571s [00:52:51.591] ...future.result$finished <- base::Sys.time() 1571s [00:52:51.591] ...future.result 1571s [00:52:51.591] } 1571s [00:52:51.596] assign_globals() ... 1571s [00:52:51.596] List of 5 1571s [00:52:51.596] $ ...future.FUN :function (x, y = 2 * 1:5) 1571s [00:52:51.596] $ future.call.arguments : list() 1571s [00:52:51.596] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1571s [00:52:51.596] $ ...future.elements_ii :List of 4 1571s [00:52:51.596] ..$ A: num 50 1571s [00:52:51.596] ..$ B: num 60 1571s [00:52:51.596] ..$ C: num 70 1571s [00:52:51.596] ..$ D: num 80 1571s [00:52:51.596] $ ...future.seeds_ii : NULL 1571s [00:52:51.596] $ ...future.globals.maxSize: NULL 1571s [00:52:51.596] - attr(*, "where")=List of 5 1571s [00:52:51.596] ..$ ...future.FUN : 1571s [00:52:51.596] ..$ future.call.arguments : 1571s [00:52:51.596] ..$ ...future.elements_ii : 1571s [00:52:51.596] ..$ ...future.seeds_ii : 1571s [00:52:51.596] ..$ ...future.globals.maxSize: 1571s [00:52:51.596] - attr(*, "resolved")= logi FALSE 1571s [00:52:51.596] - attr(*, "total_size")= num 4728 1571s [00:52:51.596] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1571s [00:52:51.596] - attr(*, "already-done")= logi TRUE 1571s [00:52:51.605] - reassign environment for ‘...future.FUN’ 1571s [00:52:51.606] - copied ‘...future.FUN’ to environment 1571s [00:52:51.606] - copied ‘future.call.arguments’ to environment 1571s [00:52:51.606] - copied ‘...future.elements_ii’ to environment 1571s [00:52:51.606] - copied ‘...future.seeds_ii’ to environment 1571s [00:52:51.606] - copied ‘...future.globals.maxSize’ to environment 1571s [00:52:51.606] assign_globals() ... done 1571s [00:52:51.607] plan(): Setting new future strategy stack: 1571s [00:52:51.607] List of future strategies: 1571s [00:52:51.607] 1. sequential: 1571s [00:52:51.607] - args: function (..., envir = parent.frame()) 1571s [00:52:51.607] - tweaked: FALSE 1571s [00:52:51.607] - call: NULL 1571s [00:52:51.607] plan(): nbrOfWorkers() = 1 1571s [00:52:51.608] plan(): Setting new future strategy stack: 1571s [00:52:51.608] List of future strategies: 1571s [00:52:51.608] 1. sequential: 1571s [00:52:51.608] - args: function (..., envir = parent.frame()) 1571s [00:52:51.608] - tweaked: FALSE 1571s [00:52:51.608] - call: plan(strategy) 1571s [00:52:51.609] plan(): nbrOfWorkers() = 1 1571s [00:52:51.609] SequentialFuture started (and completed) 1571s [00:52:51.609] - Launch lazy future ... done 1571s [00:52:51.610] run() for ‘SequentialFuture’ ... done 1571s [00:52:51.610] Created future: 1571s [00:52:51.610] SequentialFuture: 1571s [00:52:51.610] Label: ‘future_sapply-1’ 1571s [00:52:51.610] Expression: 1571s [00:52:51.610] { 1571s [00:52:51.610] do.call(function(...) { 1571s [00:52:51.610] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1571s [00:52:51.610] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1571s [00:52:51.610] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1571s [00:52:51.610] on.exit(options(oopts), add = TRUE) 1571s [00:52:51.610] } 1571s [00:52:51.610] { 1571s [00:52:51.610] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1571s [00:52:51.610] ...future.X_jj <- ...future.elements_ii[[jj]] 1571s [00:52:51.610] ...future.FUN(...future.X_jj, ...) 1571s [00:52:51.610] }) 1571s [00:52:51.610] } 1571s [00:52:51.610] }, args = future.call.arguments) 1571s [00:52:51.610] } 1571s [00:52:51.610] Lazy evaluation: FALSE 1571s [00:52:51.610] Asynchronous evaluation: FALSE 1571s [00:52:51.610] Local evaluation: TRUE 1571s [00:52:51.610] Environment: R_GlobalEnv 1571s [00:52:51.610] Capture standard output: TRUE 1571s [00:52:51.610] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1571s [00:52:51.610] Globals: 5 objects totaling 4.84 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1571s [00:52:51.610] Packages: 1571s [00:52:51.610] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1571s [00:52:51.610] Resolved: TRUE 1571s [00:52:51.610] Value: 1.34 KiB of class ‘list’ 1571s [00:52:51.610] Early signaling: FALSE 1571s [00:52:51.610] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1571s [00:52:51.610] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1571s [00:52:51.612] Chunk #1 of 1 ... DONE 1571s [00:52:51.612] Launching 1 futures (chunks) ... DONE 1571s [00:52:51.612] Resolving 1 futures (chunks) ... 1571s [00:52:51.613] resolve() on list ... 1571s [00:52:51.613] recursive: 0 1571s [00:52:51.613] length: 1 1571s [00:52:51.613] 1571s [00:52:51.613] resolved() for ‘SequentialFuture’ ... 1571s [00:52:51.613] - state: ‘finished’ 1571s [00:52:51.614] - run: TRUE 1571s [00:52:51.614] - result: ‘FutureResult’ 1571s [00:52:51.615] resolved() for ‘SequentialFuture’ ... done 1571s [00:52:51.615] Future #1 1571s [00:52:51.615] signalConditionsASAP(SequentialFuture, pos=1) ... 1571s [00:52:51.616] - nx: 1 1571s [00:52:51.616] - relay: TRUE 1571s [00:52:51.619] - stdout: TRUE 1571s [00:52:51.619] - signal: TRUE 1571s [00:52:51.620] - resignal: FALSE 1571s [00:52:51.620] - force: TRUE 1571s [00:52:51.620] - relayed: [n=1] FALSE 1571s [00:52:51.621] - queued futures: [n=1] FALSE 1571s [00:52:51.621] - until=1 1571s [00:52:51.621] - relaying element #1 1571s [00:52:51.622] - relayed: [n=1] TRUE 1571s [00:52:51.622] - queued futures: [n=1] TRUE 1571s [00:52:51.622] signalConditionsASAP(SequentialFuture, pos=1) ... done 1571s [00:52:51.623] length: 0 (resolved future 1) 1571s [00:52:51.623] Relaying remaining futures 1571s [00:52:51.623] signalConditionsASAP(NULL, pos=0) ... 1571s [00:52:51.623] - nx: 1 1571s [00:52:51.623] - relay: TRUE 1571s [00:52:51.623] - stdout: TRUE 1571s [00:52:51.624] - signal: TRUE 1571s [00:52:51.624] - resignal: FALSE 1571s [00:52:51.624] - force: TRUE 1571s [00:52:51.624] - relayed: [n=1] TRUE 1571s [00:52:51.624] - queued futures: [n=1] TRUE 1571s - flush all 1571s [00:52:51.624] - relayed: [n=1] TRUE 1571s [00:52:51.625] - queued futures: [n=1] TRUE 1571s [00:52:51.625] signalConditionsASAP(NULL, pos=0) ... done 1571s [00:52:51.625] resolve() on list ... DONE 1571s [00:52:51.626] - Number of value chunks collected: 1 1571s [00:52:51.626] Resolving 1 futures (chunks) ... DONE 1571s [00:52:51.626] Reducing values from 1 chunks ... 1571s [00:52:51.626] - Number of values collected after concatenation: 4 1571s [00:52:51.627] - Number of values expected: 4 1571s [00:52:51.627] Reducing values from 1 chunks ... DONE 1571s [00:52:51.627] future_lapply() ... DONE 1571s List of 2 1571s $ y0: num [1:15, 1:4] 100 100 100 200 200 200 300 300 300 400 ... 1571s ..- attr(*, "dimnames")=List of 2 1571s .. ..$ : NULL 1571s .. ..$ : chr [1:4] "A" "B" "C" "D" 1571s $ y1: num [1:15, 1:4] 100 100 100 200 200 200 300 300 300 400 ... 1571s ..- attr(*, "dimnames")=List of 2 1571s .. ..$ : NULL 1571s .. ..$ : chr [1:4] "A" "B" "C" "D" 1571s [00:52:51.632] future_lapply() ... 1571s [00:52:51.633] Number of chunks: 1 1571s [00:52:51.633] getGlobalsAndPackagesXApply() ... 1571s [00:52:51.634] - future.globals: TRUE 1571s [00:52:51.634] getGlobalsAndPackages() ... 1571s [00:52:51.634] Searching for globals... 1571s [00:52:51.635] - globals found: [1] ‘FUN’ 1571s [00:52:51.635] Searching for globals ... DONE 1571s [00:52:51.635] Resolving globals: FALSE 1571s [00:52:51.636] The total size of the 1 globals is 848 bytes (848 bytes) 1571s [00:52:51.636] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1571s [00:52:51.636] - globals: [1] ‘FUN’ 1571s [00:52:51.636] 1571s [00:52:51.637] getGlobalsAndPackages() ... DONE 1571s [00:52:51.637] - globals found/used: [n=1] ‘FUN’ 1571s [00:52:51.637] - needed namespaces: [n=0] 1571s [00:52:51.637] Finding globals ... DONE 1571s [00:52:51.637] - use_args: TRUE 1571s [00:52:51.637] - Getting '...' globals ... 1571s [00:52:51.637] resolve() on list ... 1571s [00:52:51.638] recursive: 0 1571s [00:52:51.638] length: 1 1571s [00:52:51.638] elements: ‘...’ 1571s [00:52:51.638] length: 0 (resolved future 1) 1571s [00:52:51.638] resolve() on list ... DONE 1571s [00:52:51.638] - '...' content: [n=0] 1571s [00:52:51.639] List of 1 1571s [00:52:51.639] $ ...: list() 1571s [00:52:51.639] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1571s [00:52:51.639] - attr(*, "where")=List of 1 1571s [00:52:51.639] ..$ ...: 1571s [00:52:51.639] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1571s [00:52:51.639] - attr(*, "resolved")= logi TRUE 1571s [00:52:51.639] - attr(*, "total_size")= num NA 1571s [00:52:51.644] - Getting '...' globals ... DONE 1571s [00:52:51.645] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1571s [00:52:51.645] List of 2 1571s [00:52:51.645] $ ...future.FUN:function (x) 1571s [00:52:51.645] $ ... : list() 1571s [00:52:51.645] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1571s [00:52:51.645] - attr(*, "where")=List of 2 1571s [00:52:51.645] ..$ ...future.FUN: 1571s [00:52:51.645] ..$ ... : 1571s [00:52:51.645] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1571s [00:52:51.645] - attr(*, "resolved")= logi FALSE 1571s [00:52:51.645] - attr(*, "total_size")= num 848 1571s [00:52:51.649] Packages to be attached in all futures: [n=0] 1571s [00:52:51.649] getGlobalsAndPackagesXApply() ... DONE 1571s [00:52:51.649] Number of futures (= number of chunks): 1 1571s [00:52:51.650] Launching 1 futures (chunks) ... 1571s [00:52:51.650] Chunk #1 of 1 ... 1571s [00:52:51.650] - Finding globals in 'X' for chunk #1 ... 1571s [00:52:51.651] getGlobalsAndPackages() ... 1571s [00:52:51.651] Searching for globals... 1571s [00:52:51.652] 1571s [00:52:51.652] Searching for globals ... DONE 1571s [00:52:51.652] - globals: [0] 1571s [00:52:51.653] getGlobalsAndPackages() ... DONE 1571s [00:52:51.653] + additional globals found: [n=0] 1571s [00:52:51.653] + additional namespaces needed: [n=0] 1571s [00:52:51.653] - Finding globals in 'X' for chunk #1 ... DONE 1571s [00:52:51.653] - seeds: 1571s [00:52:51.653] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1571s [00:52:51.654] getGlobalsAndPackages() ... 1571s [00:52:51.654] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1571s [00:52:51.654] Resolving globals: FALSE 1571s [00:52:51.654] Tweak future expression to call with '...' arguments ... 1571s [00:52:51.654] { 1571s [00:52:51.654] do.call(function(...) { 1571s [00:52:51.654] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1571s [00:52:51.654] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1571s [00:52:51.654] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1571s [00:52:51.654] on.exit(options(oopts), add = TRUE) 1571s [00:52:51.654] } 1571s [00:52:51.654] { 1571s [00:52:51.654] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1571s [00:52:51.654] ...future.X_jj <- ...future.elements_ii[[jj]] 1571s [00:52:51.654] ...future.FUN(...future.X_jj, ...) 1571s [00:52:51.654] }) 1571s [00:52:51.654] } 1571s [00:52:51.654] }, args = future.call.arguments) 1571s [00:52:51.654] } 1571s [00:52:51.655] Tweak future expression to call with '...' arguments ... DONE 1571s [00:52:51.655] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1571s [00:52:51.656] 1571s [00:52:51.656] getGlobalsAndPackages() ... DONE 1571s [00:52:51.656] run() for ‘Future’ ... 1571s [00:52:51.656] - state: ‘created’ 1571s [00:52:51.657] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1571s [00:52:51.657] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1571s [00:52:51.657] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1571s [00:52:51.657] - Field: ‘label’ 1571s [00:52:51.657] - Field: ‘local’ 1571s [00:52:51.657] - Field: ‘owner’ 1571s [00:52:51.658] - Field: ‘envir’ 1571s [00:52:51.658] - Field: ‘packages’ 1571s [00:52:51.658] - Field: ‘gc’ 1571s [00:52:51.661] - Field: ‘conditions’ 1571s [00:52:51.661] - Field: ‘expr’ 1571s [00:52:51.661] - Field: ‘uuid’ 1571s [00:52:51.662] - Field: ‘seed’ 1571s [00:52:51.662] - Field: ‘version’ 1571s [00:52:51.662] - Field: ‘result’ 1571s [00:52:51.662] - Field: ‘asynchronous’ 1571s [00:52:51.662] - Field: ‘calls’ 1571s [00:52:51.663] - Field: ‘globals’ 1571s [00:52:51.663] - Field: ‘stdout’ 1571s [00:52:51.663] - Field: ‘earlySignal’ 1571s [00:52:51.663] - Field: ‘lazy’ 1571s [00:52:51.664] - Field: ‘state’ 1571s [00:52:51.664] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1571s [00:52:51.664] - Launch lazy future ... 1571s [00:52:51.664] Packages needed by the future expression (n = 0): 1571s [00:52:51.664] Packages needed by future strategies (n = 0): 1571s [00:52:51.665] { 1571s [00:52:51.665] { 1571s [00:52:51.665] { 1571s [00:52:51.665] ...future.startTime <- base::Sys.time() 1571s [00:52:51.665] { 1571s [00:52:51.665] { 1571s [00:52:51.665] { 1571s [00:52:51.665] base::local({ 1571s [00:52:51.665] has_future <- base::requireNamespace("future", 1571s [00:52:51.665] quietly = TRUE) 1571s [00:52:51.665] if (has_future) { 1571s [00:52:51.665] ns <- base::getNamespace("future") 1571s [00:52:51.665] version <- ns[[".package"]][["version"]] 1571s [00:52:51.665] if (is.null(version)) 1571s [00:52:51.665] version <- utils::packageVersion("future") 1571s [00:52:51.665] } 1571s [00:52:51.665] else { 1571s [00:52:51.665] version <- NULL 1571s [00:52:51.665] } 1571s [00:52:51.665] if (!has_future || version < "1.8.0") { 1571s [00:52:51.665] info <- base::c(r_version = base::gsub("R version ", 1571s [00:52:51.665] "", base::R.version$version.string), 1571s [00:52:51.665] platform = base::sprintf("%s (%s-bit)", 1571s [00:52:51.665] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1571s [00:52:51.665] os = base::paste(base::Sys.info()[base::c("sysname", 1571s [00:52:51.665] "release", "version")], collapse = " "), 1571s [00:52:51.665] hostname = base::Sys.info()[["nodename"]]) 1571s [00:52:51.665] info <- base::sprintf("%s: %s", base::names(info), 1571s [00:52:51.665] info) 1571s [00:52:51.665] info <- base::paste(info, collapse = "; ") 1571s [00:52:51.665] if (!has_future) { 1571s [00:52:51.665] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1571s [00:52:51.665] info) 1571s [00:52:51.665] } 1571s [00:52:51.665] else { 1571s [00:52:51.665] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1571s [00:52:51.665] info, version) 1571s [00:52:51.665] } 1571s [00:52:51.665] base::stop(msg) 1571s [00:52:51.665] } 1571s [00:52:51.665] }) 1571s [00:52:51.665] } 1571s [00:52:51.665] options(future.plan = NULL) 1571s [00:52:51.665] Sys.unsetenv("R_FUTURE_PLAN") 1571s [00:52:51.665] future::plan("default", .cleanup = FALSE, .init = FALSE) 1571s [00:52:51.665] } 1571s [00:52:51.665] ...future.workdir <- getwd() 1571s [00:52:51.665] } 1571s [00:52:51.665] ...future.oldOptions <- base::as.list(base::.Options) 1571s [00:52:51.665] ...future.oldEnvVars <- base::Sys.getenv() 1571s [00:52:51.665] } 1571s [00:52:51.665] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1571s [00:52:51.665] future.globals.maxSize = NULL, future.globals.method = NULL, 1571s [00:52:51.665] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1571s [00:52:51.665] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1571s [00:52:51.665] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1571s [00:52:51.665] future.stdout.windows.reencode = NULL, width = 80L) 1571s [00:52:51.665] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1571s [00:52:51.665] base::names(...future.oldOptions)) 1571s [00:52:51.665] } 1571s [00:52:51.665] if (FALSE) { 1571s [00:52:51.665] } 1571s [00:52:51.665] else { 1571s [00:52:51.665] if (TRUE) { 1571s [00:52:51.665] ...future.stdout <- base::rawConnection(base::raw(0L), 1571s [00:52:51.665] open = "w") 1571s [00:52:51.665] } 1571s [00:52:51.665] else { 1571s [00:52:51.665] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1571s [00:52:51.665] windows = "NUL", "/dev/null"), open = "w") 1571s [00:52:51.665] } 1571s [00:52:51.665] base::sink(...future.stdout, type = "output", split = FALSE) 1571s [00:52:51.665] base::on.exit(if (!base::is.null(...future.stdout)) { 1571s [00:52:51.665] base::sink(type = "output", split = FALSE) 1571s [00:52:51.665] base::close(...future.stdout) 1571s [00:52:51.665] }, add = TRUE) 1571s [00:52:51.665] } 1571s [00:52:51.665] ...future.frame <- base::sys.nframe() 1571s [00:52:51.665] ...future.conditions <- base::list() 1571s [00:52:51.665] ...future.rng <- base::globalenv()$.Random.seed 1571s [00:52:51.665] if (FALSE) { 1571s [00:52:51.665] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1571s [00:52:51.665] "...future.value", "...future.globalenv.names", ".Random.seed") 1571s [00:52:51.665] } 1571s [00:52:51.665] ...future.result <- base::tryCatch({ 1571s [00:52:51.665] base::withCallingHandlers({ 1571s [00:52:51.665] ...future.value <- base::withVisible(base::local({ 1571s [00:52:51.665] do.call(function(...) { 1571s [00:52:51.665] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1571s [00:52:51.665] if (!identical(...future.globals.maxSize.org, 1571s [00:52:51.665] ...future.globals.maxSize)) { 1571s [00:52:51.665] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1571s [00:52:51.665] on.exit(options(oopts), add = TRUE) 1571s [00:52:51.665] } 1571s [00:52:51.665] { 1571s [00:52:51.665] lapply(seq_along(...future.elements_ii), 1571s [00:52:51.665] FUN = function(jj) { 1571s [00:52:51.665] ...future.X_jj <- ...future.elements_ii[[jj]] 1571s [00:52:51.665] ...future.FUN(...future.X_jj, ...) 1571s [00:52:51.665] }) 1571s [00:52:51.665] } 1571s [00:52:51.665] }, args = future.call.arguments) 1571s [00:52:51.665] })) 1571s [00:52:51.665] future::FutureResult(value = ...future.value$value, 1571s [00:52:51.665] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1571s [00:52:51.665] ...future.rng), globalenv = if (FALSE) 1571s [00:52:51.665] list(added = base::setdiff(base::names(base::.GlobalEnv), 1571s [00:52:51.665] ...future.globalenv.names)) 1571s [00:52:51.665] else NULL, started = ...future.startTime, version = "1.8") 1571s [00:52:51.665] }, condition = base::local({ 1571s [00:52:51.665] c <- base::c 1571s [00:52:51.665] inherits <- base::inherits 1571s [00:52:51.665] invokeRestart <- base::invokeRestart 1571s [00:52:51.665] length <- base::length 1571s [00:52:51.665] list <- base::list 1571s [00:52:51.665] seq.int <- base::seq.int 1571s [00:52:51.665] signalCondition <- base::signalCondition 1571s [00:52:51.665] sys.calls <- base::sys.calls 1571s [00:52:51.665] `[[` <- base::`[[` 1571s [00:52:51.665] `+` <- base::`+` 1571s [00:52:51.665] `<<-` <- base::`<<-` 1571s [00:52:51.665] sysCalls <- function(calls = sys.calls(), from = 1L) { 1571s [00:52:51.665] calls[seq.int(from = from + 12L, to = length(calls) - 1571s [00:52:51.665] 3L)] 1571s [00:52:51.665] } 1571s [00:52:51.665] function(cond) { 1571s [00:52:51.665] is_error <- inherits(cond, "error") 1571s [00:52:51.665] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1571s [00:52:51.665] NULL) 1571s [00:52:51.665] if (is_error) { 1571s [00:52:51.665] sessionInformation <- function() { 1571s [00:52:51.665] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1571s [00:52:51.665] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1571s [00:52:51.665] search = base::search(), system = base::Sys.info()) 1571s [00:52:51.665] } 1571s [00:52:51.665] ...future.conditions[[length(...future.conditions) + 1571s [00:52:51.665] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1571s [00:52:51.665] cond$call), session = sessionInformation(), 1571s [00:52:51.665] timestamp = base::Sys.time(), signaled = 0L) 1571s [00:52:51.665] signalCondition(cond) 1571s [00:52:51.665] } 1571s [00:52:51.665] else if (!ignore && TRUE && inherits(cond, c("condition", 1571s [00:52:51.665] "immediateCondition"))) { 1571s [00:52:51.665] signal <- TRUE && inherits(cond, "immediateCondition") 1571s [00:52:51.665] ...future.conditions[[length(...future.conditions) + 1571s [00:52:51.665] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1571s [00:52:51.665] if (TRUE && !signal) { 1571s [00:52:51.665] muffleCondition <- function (cond, pattern = "^muffle") 1571s [00:52:51.665] { 1571s [00:52:51.665] inherits <- base::inherits 1571s [00:52:51.665] invokeRestart <- base::invokeRestart 1571s [00:52:51.665] is.null <- base::is.null 1571s [00:52:51.665] muffled <- FALSE 1571s [00:52:51.665] if (inherits(cond, "message")) { 1571s [00:52:51.665] muffled <- grepl(pattern, "muffleMessage") 1571s [00:52:51.665] if (muffled) 1571s [00:52:51.665] invokeRestart("muffleMessage") 1571s [00:52:51.665] } 1571s [00:52:51.665] else if (inherits(cond, "warning")) { 1571s [00:52:51.665] muffled <- grepl(pattern, "muffleWarning") 1571s [00:52:51.665] if (muffled) 1571s [00:52:51.665] invokeRestart("muffleWarning") 1571s [00:52:51.665] } 1571s [00:52:51.665] else if (inherits(cond, "condition")) { 1571s [00:52:51.665] if (!is.null(pattern)) { 1571s [00:52:51.665] computeRestarts <- base::computeRestarts 1571s [00:52:51.665] grepl <- base::grepl 1571s [00:52:51.665] restarts <- computeRestarts(cond) 1571s [00:52:51.665] for (restart in restarts) { 1571s [00:52:51.665] name <- restart$name 1571s [00:52:51.665] if (is.null(name)) 1571s [00:52:51.665] next 1571s [00:52:51.665] if (!grepl(pattern, name)) 1571s [00:52:51.665] next 1571s [00:52:51.665] invokeRestart(restart) 1571s [00:52:51.665] muffled <- TRUE 1571s [00:52:51.665] break 1571s [00:52:51.665] } 1571s [00:52:51.665] } 1571s [00:52:51.665] } 1571s [00:52:51.665] invisible(muffled) 1571s [00:52:51.665] } 1571s [00:52:51.665] muffleCondition(cond, pattern = "^muffle") 1571s [00:52:51.665] } 1571s [00:52:51.665] } 1571s [00:52:51.665] else { 1571s [00:52:51.665] if (TRUE) { 1571s [00:52:51.665] muffleCondition <- function (cond, pattern = "^muffle") 1571s [00:52:51.665] { 1571s [00:52:51.665] inherits <- base::inherits 1571s [00:52:51.665] invokeRestart <- base::invokeRestart 1571s [00:52:51.665] is.null <- base::is.null 1571s [00:52:51.665] muffled <- FALSE 1571s [00:52:51.665] if (inherits(cond, "message")) { 1571s [00:52:51.665] muffled <- grepl(pattern, "muffleMessage") 1571s [00:52:51.665] if (muffled) 1571s [00:52:51.665] invokeRestart("muffleMessage") 1571s [00:52:51.665] } 1571s [00:52:51.665] else if (inherits(cond, "warning")) { 1571s [00:52:51.665] muffled <- grepl(pattern, "muffleWarning") 1571s [00:52:51.665] if (muffled) 1571s [00:52:51.665] invokeRestart("muffleWarning") 1571s [00:52:51.665] } 1571s [00:52:51.665] else if (inherits(cond, "condition")) { 1571s [00:52:51.665] if (!is.null(pattern)) { 1571s [00:52:51.665] computeRestarts <- base::computeRestarts 1571s [00:52:51.665] grepl <- base::grepl 1571s [00:52:51.665] restarts <- computeRestarts(cond) 1571s [00:52:51.665] for (restart in restarts) { 1571s [00:52:51.665] name <- restart$name 1571s [00:52:51.665] if (is.null(name)) 1571s [00:52:51.665] next 1571s [00:52:51.665] if (!grepl(pattern, name)) 1571s [00:52:51.665] next 1571s [00:52:51.665] invokeRestart(restart) 1571s [00:52:51.665] muffled <- TRUE 1571s [00:52:51.665] break 1571s [00:52:51.665] } 1571s [00:52:51.665] } 1571s [00:52:51.665] } 1571s [00:52:51.665] invisible(muffled) 1571s [00:52:51.665] } 1571s [00:52:51.665] muffleCondition(cond, pattern = "^muffle") 1571s [00:52:51.665] } 1571s [00:52:51.665] } 1571s [00:52:51.665] } 1571s [00:52:51.665] })) 1571s [00:52:51.665] }, error = function(ex) { 1571s [00:52:51.665] base::structure(base::list(value = NULL, visible = NULL, 1571s [00:52:51.665] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1571s [00:52:51.665] ...future.rng), started = ...future.startTime, 1571s [00:52:51.665] finished = Sys.time(), session_uuid = NA_character_, 1571s [00:52:51.665] version = "1.8"), class = "FutureResult") 1571s [00:52:51.665] }, finally = { 1571s [00:52:51.665] if (!identical(...future.workdir, getwd())) 1571s [00:52:51.665] setwd(...future.workdir) 1571s [00:52:51.665] { 1571s [00:52:51.665] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1571s [00:52:51.665] ...future.oldOptions$nwarnings <- NULL 1571s [00:52:51.665] } 1571s [00:52:51.665] base::options(...future.oldOptions) 1571s [00:52:51.665] if (.Platform$OS.type == "windows") { 1571s [00:52:51.665] old_names <- names(...future.oldEnvVars) 1571s [00:52:51.665] envs <- base::Sys.getenv() 1571s [00:52:51.665] names <- names(envs) 1571s [00:52:51.665] common <- intersect(names, old_names) 1571s [00:52:51.665] added <- setdiff(names, old_names) 1571s [00:52:51.665] removed <- setdiff(old_names, names) 1571s [00:52:51.665] changed <- common[...future.oldEnvVars[common] != 1571s [00:52:51.665] envs[common]] 1571s [00:52:51.665] NAMES <- toupper(changed) 1571s [00:52:51.665] args <- list() 1571s [00:52:51.665] for (kk in seq_along(NAMES)) { 1571s [00:52:51.665] name <- changed[[kk]] 1571s [00:52:51.665] NAME <- NAMES[[kk]] 1571s [00:52:51.665] if (name != NAME && is.element(NAME, old_names)) 1571s [00:52:51.665] next 1571s [00:52:51.665] args[[name]] <- ...future.oldEnvVars[[name]] 1571s [00:52:51.665] } 1571s [00:52:51.665] NAMES <- toupper(added) 1571s [00:52:51.665] for (kk in seq_along(NAMES)) { 1571s [00:52:51.665] name <- added[[kk]] 1571s [00:52:51.665] NAME <- NAMES[[kk]] 1571s [00:52:51.665] if (name != NAME && is.element(NAME, old_names)) 1571s [00:52:51.665] next 1571s [00:52:51.665] args[[name]] <- "" 1571s [00:52:51.665] } 1571s [00:52:51.665] NAMES <- toupper(removed) 1571s [00:52:51.665] for (kk in seq_along(NAMES)) { 1571s [00:52:51.665] name <- removed[[kk]] 1571s [00:52:51.665] NAME <- NAMES[[kk]] 1571s [00:52:51.665] if (name != NAME && is.element(NAME, old_names)) 1571s [00:52:51.665] next 1571s [00:52:51.665] args[[name]] <- ...future.oldEnvVars[[name]] 1571s [00:52:51.665] } 1571s [00:52:51.665] if (length(args) > 0) 1571s [00:52:51.665] base::do.call(base::Sys.setenv, args = args) 1571s [00:52:51.665] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1571s [00:52:51.665] } 1571s [00:52:51.665] else { 1571s [00:52:51.665] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1571s [00:52:51.665] } 1571s [00:52:51.665] { 1571s [00:52:51.665] if (base::length(...future.futureOptionsAdded) > 1571s [00:52:51.665] 0L) { 1571s [00:52:51.665] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1571s [00:52:51.665] base::names(opts) <- ...future.futureOptionsAdded 1571s [00:52:51.665] base::options(opts) 1571s [00:52:51.665] } 1571s [00:52:51.665] { 1571s [00:52:51.665] { 1571s [00:52:51.665] NULL 1571s [00:52:51.665] RNGkind("Mersenne-Twister") 1571s [00:52:51.665] base::rm(list = ".Random.seed", envir = base::globalenv(), 1571s [00:52:51.665] inherits = FALSE) 1571s [00:52:51.665] } 1571s [00:52:51.665] options(future.plan = NULL) 1571s [00:52:51.665] if (is.na(NA_character_)) 1571s [00:52:51.665] Sys.unsetenv("R_FUTURE_PLAN") 1571s [00:52:51.665] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1571s [00:52:51.665] future::plan(list(function (..., envir = parent.frame()) 1571s [00:52:51.665] { 1571s [00:52:51.665] future <- SequentialFuture(..., envir = envir) 1571s [00:52:51.665] if (!future$lazy) 1571s [00:52:51.665] future <- run(future) 1571s [00:52:51.665] invisible(future) 1571s [00:52:51.665] }), .cleanup = FALSE, .init = FALSE) 1571s [00:52:51.665] } 1571s [00:52:51.665] } 1571s [00:52:51.665] } 1571s [00:52:51.665] }) 1571s [00:52:51.665] if (TRUE) { 1571s [00:52:51.665] base::sink(type = "output", split = FALSE) 1571s [00:52:51.665] if (TRUE) { 1571s [00:52:51.665] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1571s [00:52:51.665] } 1571s [00:52:51.665] else { 1571s [00:52:51.665] ...future.result["stdout"] <- base::list(NULL) 1571s [00:52:51.665] } 1571s [00:52:51.665] base::close(...future.stdout) 1571s [00:52:51.665] ...future.stdout <- NULL 1571s [00:52:51.665] } 1571s [00:52:51.665] ...future.result$conditions <- ...future.conditions 1571s [00:52:51.665] ...future.result$finished <- base::Sys.time() 1571s [00:52:51.665] ...future.result 1571s [00:52:51.665] } 1571s [00:52:51.668] assign_globals() ... 1571s [00:52:51.669] List of 5 1571s [00:52:51.669] $ ...future.FUN :function (x) 1571s [00:52:51.669] $ future.call.arguments : list() 1571s [00:52:51.669] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1571s [00:52:51.669] $ ...future.elements_ii :List of 4 1571s [00:52:51.669] ..$ A: num 50 1571s [00:52:51.669] ..$ B: num 60 1571s [00:52:51.669] ..$ C: num 70 1571s [00:52:51.669] ..$ D: num 80 1571s [00:52:51.669] $ ...future.seeds_ii : NULL 1571s [00:52:51.669] $ ...future.globals.maxSize: NULL 1571s [00:52:51.669] - attr(*, "where")=List of 5 1571s [00:52:51.669] ..$ ...future.FUN : 1571s [00:52:51.669] ..$ future.call.arguments : 1571s [00:52:51.669] ..$ ...future.elements_ii : 1571s [00:52:51.669] ..$ ...future.seeds_ii : 1571s [00:52:51.669] ..$ ...future.globals.maxSize: 1571s [00:52:51.669] - attr(*, "resolved")= logi FALSE 1571s [00:52:51.669] - attr(*, "total_size")= num 848 1571s [00:52:51.669] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1571s [00:52:51.669] - attr(*, "already-done")= logi TRUE 1571s [00:52:51.677] - copied ‘...future.FUN’ to environment 1571s [00:52:51.677] - copied ‘future.call.arguments’ to environment 1571s [00:52:51.677] - copied ‘...future.elements_ii’ to environment 1571s [00:52:51.677] - copied ‘...future.seeds_ii’ to environment 1571s [00:52:51.678] - copied ‘...future.globals.maxSize’ to environment 1571s [00:52:51.678] assign_globals() ... done 1571s [00:52:51.678] plan(): Setting new future strategy stack: 1571s [00:52:51.678] List of future strategies: 1571s [00:52:51.678] 1. sequential: 1571s [00:52:51.678] - args: function (..., envir = parent.frame()) 1571s [00:52:51.678] - tweaked: FALSE 1571s [00:52:51.678] - call: NULL 1571s [00:52:51.679] plan(): nbrOfWorkers() = 1 1571s [00:52:51.680] plan(): Setting new future strategy stack: 1571s [00:52:51.680] List of future strategies: 1571s [00:52:51.680] 1. sequential: 1571s [00:52:51.680] - args: function (..., envir = parent.frame()) 1571s [00:52:51.680] - tweaked: FALSE 1571s [00:52:51.680] - call: plan(strategy) 1571s [00:52:51.681] plan(): nbrOfWorkers() = 1 1571s [00:52:51.681] SequentialFuture started (and completed) 1571s [00:52:51.681] - Launch lazy future ... done 1571s [00:52:51.681] run() for ‘SequentialFuture’ ... done 1571s [00:52:51.681] Created future: 1571s [00:52:51.681] SequentialFuture: 1571s [00:52:51.681] Label: ‘future_sapply-1’ 1571s [00:52:51.681] Expression: 1571s [00:52:51.681] { 1571s [00:52:51.681] do.call(function(...) { 1571s [00:52:51.681] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1571s [00:52:51.681] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1571s [00:52:51.681] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1571s [00:52:51.681] on.exit(options(oopts), add = TRUE) 1571s [00:52:51.681] } 1571s [00:52:51.681] { 1571s [00:52:51.681] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1571s [00:52:51.681] ...future.X_jj <- ...future.elements_ii[[jj]] 1571s [00:52:51.681] ...future.FUN(...future.X_jj, ...) 1571s [00:52:51.681] }) 1571s [00:52:51.681] } 1571s [00:52:51.681] }, args = future.call.arguments) 1571s [00:52:51.681] } 1571s [00:52:51.681] Lazy evaluation: FALSE 1571s [00:52:51.681] Asynchronous evaluation: FALSE 1571s [00:52:51.681] Local evaluation: TRUE 1571s [00:52:51.681] Environment: R_GlobalEnv 1571s [00:52:51.681] Capture standard output: TRUE 1571s [00:52:51.681] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1571s [00:52:51.681] Globals: 5 objects totaling 1.05 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1571s [00:52:51.681] Packages: 1571s [00:52:51.681] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1571s [00:52:51.681] Resolved: TRUE 1571s [00:52:51.681] Value: 224 bytes of class ‘list’ 1571s [00:52:51.681] Early signaling: FALSE 1571s [00:52:51.681] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1571s [00:52:51.681] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1571s [00:52:51.683] Chunk #1 of 1 ... DONE 1571s [00:52:51.684] Launching 1 futures (chunks) ... DONE 1571s [00:52:51.684] Resolving 1 futures (chunks) ... 1571s [00:52:51.684] resolve() on list ... 1571s [00:52:51.684] recursive: 0 1571s [00:52:51.684] length: 1 1571s [00:52:51.684] 1571s [00:52:51.684] resolved() for ‘SequentialFuture’ ... 1571s [00:52:51.684] - state: ‘finished’ 1571s [00:52:51.685] - run: TRUE 1571s [00:52:51.685] - result: ‘FutureResult’ 1571s [00:52:51.685] resolved() for ‘SequentialFuture’ ... done 1571s [00:52:51.685] Future #1 1571s [00:52:51.685] signalConditionsASAP(SequentialFuture, pos=1) ... 1571s [00:52:51.685] - nx: 1 1571s [00:52:51.685] - relay: TRUE 1571s [00:52:51.685] - stdout: TRUE 1571s [00:52:51.685] - signal: TRUE 1571s [00:52:51.686] - resignal: FALSE 1571s [00:52:51.686] - force: TRUE 1571s [00:52:51.686] - relayed: [n=1] FALSE 1571s [00:52:51.686] - queued futures: [n=1] FALSE 1571s [00:52:51.686] - until=1 1571s [00:52:51.686] - relaying element #1 1571s [00:52:51.686] - relayed: [n=1] TRUE 1571s [00:52:51.686] - queued futures: [n=1] TRUE 1571s [00:52:51.686] signalConditionsASAP(SequentialFuture, pos=1) ... done 1571s [00:52:51.687] length: 0 (resolved future 1) 1571s [00:52:51.687] Relaying remaining futures 1571s [00:52:51.687] signalConditionsASAP(NULL, pos=0) ... 1571s [00:52:51.687] - nx: 1 1571s [00:52:51.687] - relay: TRUE 1571s [00:52:51.687] - stdout: TRUE 1571s [00:52:51.687] - signal: TRUE 1571s [00:52:51.687] - resignal: FALSE 1571s [00:52:51.687] - force: TRUE 1571s [00:52:51.688] - relayed: [n=1] TRUE 1571s [00:52:51.688] - queued futures: [n=1] TRUE 1571s - flush all 1571s [00:52:51.688] - relayed: [n=1] TRUE 1571s [00:52:51.688] - queued futures: [n=1] TRUE 1571s [00:52:51.688] signalConditionsASAP(NULL, pos=0) ... done 1571s [00:52:51.688] resolve() on list ... DONE 1571s [00:52:51.688] - Number of value chunks collected: 1 1571s [00:52:51.688] Resolving 1 futures (chunks) ... DONE 1571s [00:52:51.689] Reducing values from 1 chunks ... 1571s [00:52:51.689] - Number of values collected after concatenation: 4 1571s [00:52:51.689] - Number of values expected: 4 1571s [00:52:51.689] Reducing values from 1 chunks ... DONE 1571s [00:52:51.689] future_lapply() ... DONE 1571s List of 2 1571s $ y0: Named num [1:4] 50 60 70 80 1571s ..- attr(*, "names")= chr [1:4] "A" "B" "C" "D" 1571s $ y1: Named num [1:4] 50 60 70 80 1571s ..- attr(*, "names")= chr [1:4] "A" "B" "C" "D" 1571s [00:52:51.692] future_lapply() ... 1571s [00:52:51.692] Number of chunks: 1 1571s [00:52:51.692] getGlobalsAndPackagesXApply() ... 1571s [00:52:51.693] - future.globals: TRUE 1571s [00:52:51.693] getGlobalsAndPackages() ... 1571s [00:52:51.693] Searching for globals... 1571s [00:52:51.696] - globals found: [2] ‘FUN’, ‘UseMethod’ 1571s [00:52:51.696] Searching for globals ... DONE 1571s [00:52:51.696] Resolving globals: FALSE 1571s [00:52:51.697] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1571s [00:52:51.697] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1571s [00:52:51.698] - globals: [1] ‘FUN’ 1571s [00:52:51.698] 1571s [00:52:51.698] getGlobalsAndPackages() ... DONE 1571s [00:52:51.698] - globals found/used: [n=1] ‘FUN’ 1571s [00:52:51.698] - needed namespaces: [n=0] 1571s [00:52:51.698] Finding globals ... DONE 1571s [00:52:51.698] - use_args: TRUE 1571s [00:52:51.699] - Getting '...' globals ... 1571s [00:52:51.699] resolve() on list ... 1571s [00:52:51.699] recursive: 0 1571s [00:52:51.699] length: 1 1571s [00:52:51.699] elements: ‘...’ 1571s [00:52:51.700] length: 0 (resolved future 1) 1571s [00:52:51.700] resolve() on list ... DONE 1571s [00:52:51.700] - '...' content: [n=0] 1571s [00:52:51.700] List of 1 1571s [00:52:51.700] $ ...: list() 1571s [00:52:51.700] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1571s [00:52:51.700] - attr(*, "where")=List of 1 1571s [00:52:51.700] ..$ ...: 1571s [00:52:51.700] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1571s [00:52:51.700] - attr(*, "resolved")= logi TRUE 1571s [00:52:51.700] - attr(*, "total_size")= num NA 1571s [00:52:51.703] - Getting '...' globals ... DONE 1571s [00:52:51.703] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1571s [00:52:51.704] List of 2 1571s [00:52:51.704] $ ...future.FUN:function (x, ...) 1571s [00:52:51.704] $ ... : list() 1571s [00:52:51.704] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1571s [00:52:51.704] - attr(*, "where")=List of 2 1571s [00:52:51.704] ..$ ...future.FUN: 1571s [00:52:51.704] ..$ ... : 1571s [00:52:51.704] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1571s [00:52:51.704] - attr(*, "resolved")= logi FALSE 1571s [00:52:51.704] - attr(*, "total_size")= num 1248 1571s [00:52:51.707] Packages to be attached in all futures: [n=0] 1571s [00:52:51.707] getGlobalsAndPackagesXApply() ... DONE 1571s [00:52:51.707] Number of futures (= number of chunks): 1 1571s [00:52:51.708] Launching 1 futures (chunks) ... 1571s [00:52:51.708] Chunk #1 of 1 ... 1571s [00:52:51.708] - Finding globals in 'X' for chunk #1 ... 1571s [00:52:51.708] getGlobalsAndPackages() ... 1571s [00:52:51.708] Searching for globals... 1571s [00:52:51.708] 1571s [00:52:51.709] Searching for globals ... DONE 1571s [00:52:51.709] - globals: [0] 1571s [00:52:51.709] getGlobalsAndPackages() ... DONE 1571s [00:52:51.709] + additional globals found: [n=0] 1571s [00:52:51.709] + additional namespaces needed: [n=0] 1571s [00:52:51.709] - Finding globals in 'X' for chunk #1 ... DONE 1571s [00:52:51.709] - seeds: 1571s [00:52:51.710] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1571s [00:52:51.710] getGlobalsAndPackages() ... 1571s [00:52:51.710] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1571s [00:52:51.710] Resolving globals: FALSE 1571s [00:52:51.710] Tweak future expression to call with '...' arguments ... 1571s [00:52:51.711] { 1571s [00:52:51.711] do.call(function(...) { 1571s [00:52:51.711] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1571s [00:52:51.711] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1571s [00:52:51.711] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1571s [00:52:51.711] on.exit(options(oopts), add = TRUE) 1571s [00:52:51.711] } 1571s [00:52:51.711] { 1571s [00:52:51.711] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1571s [00:52:51.711] ...future.X_jj <- ...future.elements_ii[[jj]] 1571s [00:52:51.711] ...future.FUN(...future.X_jj, ...) 1571s [00:52:51.711] }) 1571s [00:52:51.711] } 1571s [00:52:51.711] }, args = future.call.arguments) 1571s [00:52:51.711] } 1571s [00:52:51.711] Tweak future expression to call with '...' arguments ... DONE 1571s [00:52:51.712] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1571s [00:52:51.712] 1571s [00:52:51.712] getGlobalsAndPackages() ... DONE 1571s [00:52:51.712] run() for ‘Future’ ... 1571s [00:52:51.712] - state: ‘created’ 1571s [00:52:51.713] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1571s [00:52:51.713] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1571s [00:52:51.713] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1571s [00:52:51.713] - Field: ‘label’ 1571s [00:52:51.714] - Field: ‘local’ 1571s [00:52:51.714] - Field: ‘owner’ 1571s [00:52:51.714] - Field: ‘envir’ 1571s [00:52:51.714] - Field: ‘packages’ 1571s [00:52:51.714] - Field: ‘gc’ 1571s [00:52:51.714] - Field: ‘conditions’ 1571s [00:52:51.714] - Field: ‘expr’ 1571s [00:52:51.715] - Field: ‘uuid’ 1571s [00:52:51.715] - Field: ‘seed’ 1571s [00:52:51.715] - Field: ‘version’ 1571s [00:52:51.715] - Field: ‘result’ 1571s [00:52:51.715] - Field: ‘asynchronous’ 1571s [00:52:51.715] - Field: ‘calls’ 1571s [00:52:51.716] - Field: ‘globals’ 1571s [00:52:51.716] - Field: ‘stdout’ 1571s [00:52:51.716] - Field: ‘earlySignal’ 1571s [00:52:51.716] - Field: ‘lazy’ 1571s [00:52:51.716] - Field: ‘state’ 1571s [00:52:51.716] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1571s [00:52:51.716] - Launch lazy future ... 1571s [00:52:51.717] Packages needed by the future expression (n = 0): 1571s [00:52:51.717] Packages needed by future strategies (n = 0): 1571s [00:52:51.717] { 1571s [00:52:51.717] { 1571s [00:52:51.717] { 1571s [00:52:51.717] ...future.startTime <- base::Sys.time() 1571s [00:52:51.717] { 1571s [00:52:51.717] { 1571s [00:52:51.717] { 1571s [00:52:51.717] base::local({ 1571s [00:52:51.717] has_future <- base::requireNamespace("future", 1571s [00:52:51.717] quietly = TRUE) 1571s [00:52:51.717] if (has_future) { 1571s [00:52:51.717] ns <- base::getNamespace("future") 1571s [00:52:51.717] version <- ns[[".package"]][["version"]] 1571s [00:52:51.717] if (is.null(version)) 1571s [00:52:51.717] version <- utils::packageVersion("future") 1571s [00:52:51.717] } 1571s [00:52:51.717] else { 1571s [00:52:51.717] version <- NULL 1571s [00:52:51.717] } 1571s [00:52:51.717] if (!has_future || version < "1.8.0") { 1571s [00:52:51.717] info <- base::c(r_version = base::gsub("R version ", 1571s [00:52:51.717] "", base::R.version$version.string), 1571s [00:52:51.717] platform = base::sprintf("%s (%s-bit)", 1571s [00:52:51.717] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1571s [00:52:51.717] os = base::paste(base::Sys.info()[base::c("sysname", 1571s [00:52:51.717] "release", "version")], collapse = " "), 1571s [00:52:51.717] hostname = base::Sys.info()[["nodename"]]) 1571s [00:52:51.717] info <- base::sprintf("%s: %s", base::names(info), 1571s [00:52:51.717] info) 1571s [00:52:51.717] info <- base::paste(info, collapse = "; ") 1571s [00:52:51.717] if (!has_future) { 1571s [00:52:51.717] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1571s [00:52:51.717] info) 1571s [00:52:51.717] } 1571s [00:52:51.717] else { 1571s [00:52:51.717] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1571s [00:52:51.717] info, version) 1571s [00:52:51.717] } 1571s [00:52:51.717] base::stop(msg) 1571s [00:52:51.717] } 1571s [00:52:51.717] }) 1571s [00:52:51.717] } 1571s [00:52:51.717] options(future.plan = NULL) 1571s [00:52:51.717] Sys.unsetenv("R_FUTURE_PLAN") 1571s [00:52:51.717] future::plan("default", .cleanup = FALSE, .init = FALSE) 1571s [00:52:51.717] } 1571s [00:52:51.717] ...future.workdir <- getwd() 1571s [00:52:51.717] } 1571s [00:52:51.717] ...future.oldOptions <- base::as.list(base::.Options) 1571s [00:52:51.717] ...future.oldEnvVars <- base::Sys.getenv() 1571s [00:52:51.717] } 1571s [00:52:51.717] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1571s [00:52:51.717] future.globals.maxSize = NULL, future.globals.method = NULL, 1571s [00:52:51.717] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1571s [00:52:51.717] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1571s [00:52:51.717] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1571s [00:52:51.717] future.stdout.windows.reencode = NULL, width = 80L) 1571s [00:52:51.717] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1571s [00:52:51.717] base::names(...future.oldOptions)) 1571s [00:52:51.717] } 1571s [00:52:51.717] if (FALSE) { 1571s [00:52:51.717] } 1571s [00:52:51.717] else { 1571s [00:52:51.717] if (TRUE) { 1571s [00:52:51.717] ...future.stdout <- base::rawConnection(base::raw(0L), 1571s [00:52:51.717] open = "w") 1571s [00:52:51.717] } 1571s [00:52:51.717] else { 1571s [00:52:51.717] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1571s [00:52:51.717] windows = "NUL", "/dev/null"), open = "w") 1571s [00:52:51.717] } 1571s [00:52:51.717] base::sink(...future.stdout, type = "output", split = FALSE) 1571s [00:52:51.717] base::on.exit(if (!base::is.null(...future.stdout)) { 1571s [00:52:51.717] base::sink(type = "output", split = FALSE) 1571s [00:52:51.717] base::close(...future.stdout) 1571s [00:52:51.717] }, add = TRUE) 1571s [00:52:51.717] } 1571s [00:52:51.717] ...future.frame <- base::sys.nframe() 1571s [00:52:51.717] ...future.conditions <- base::list() 1571s [00:52:51.717] ...future.rng <- base::globalenv()$.Random.seed 1571s [00:52:51.717] if (FALSE) { 1571s [00:52:51.717] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1571s [00:52:51.717] "...future.value", "...future.globalenv.names", ".Random.seed") 1571s [00:52:51.717] } 1571s [00:52:51.717] ...future.result <- base::tryCatch({ 1571s [00:52:51.717] base::withCallingHandlers({ 1571s [00:52:51.717] ...future.value <- base::withVisible(base::local({ 1571s [00:52:51.717] do.call(function(...) { 1571s [00:52:51.717] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1571s [00:52:51.717] if (!identical(...future.globals.maxSize.org, 1571s [00:52:51.717] ...future.globals.maxSize)) { 1571s [00:52:51.717] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1571s [00:52:51.717] on.exit(options(oopts), add = TRUE) 1571s [00:52:51.717] } 1571s [00:52:51.717] { 1571s [00:52:51.717] lapply(seq_along(...future.elements_ii), 1571s [00:52:51.717] FUN = function(jj) { 1571s [00:52:51.717] ...future.X_jj <- ...future.elements_ii[[jj]] 1571s [00:52:51.717] ...future.FUN(...future.X_jj, ...) 1571s [00:52:51.717] }) 1571s [00:52:51.717] } 1571s [00:52:51.717] }, args = future.call.arguments) 1571s [00:52:51.717] })) 1571s [00:52:51.717] future::FutureResult(value = ...future.value$value, 1571s [00:52:51.717] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1571s [00:52:51.717] ...future.rng), globalenv = if (FALSE) 1571s [00:52:51.717] list(added = base::setdiff(base::names(base::.GlobalEnv), 1571s [00:52:51.717] ...future.globalenv.names)) 1571s [00:52:51.717] else NULL, started = ...future.startTime, version = "1.8") 1571s [00:52:51.717] }, condition = base::local({ 1571s [00:52:51.717] c <- base::c 1571s [00:52:51.717] inherits <- base::inherits 1571s [00:52:51.717] invokeRestart <- base::invokeRestart 1571s [00:52:51.717] length <- base::length 1571s [00:52:51.717] list <- base::list 1571s [00:52:51.717] seq.int <- base::seq.int 1571s [00:52:51.717] signalCondition <- base::signalCondition 1571s [00:52:51.717] sys.calls <- base::sys.calls 1571s [00:52:51.717] `[[` <- base::`[[` 1571s [00:52:51.717] `+` <- base::`+` 1571s [00:52:51.717] `<<-` <- base::`<<-` 1571s [00:52:51.717] sysCalls <- function(calls = sys.calls(), from = 1L) { 1571s [00:52:51.717] calls[seq.int(from = from + 12L, to = length(calls) - 1571s [00:52:51.717] 3L)] 1571s [00:52:51.717] } 1571s [00:52:51.717] function(cond) { 1571s [00:52:51.717] is_error <- inherits(cond, "error") 1571s [00:52:51.717] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1571s [00:52:51.717] NULL) 1571s [00:52:51.717] if (is_error) { 1571s [00:52:51.717] sessionInformation <- function() { 1571s [00:52:51.717] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1571s [00:52:51.717] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1571s [00:52:51.717] search = base::search(), system = base::Sys.info()) 1571s [00:52:51.717] } 1571s [00:52:51.717] ...future.conditions[[length(...future.conditions) + 1571s [00:52:51.717] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1571s [00:52:51.717] cond$call), session = sessionInformation(), 1571s [00:52:51.717] timestamp = base::Sys.time(), signaled = 0L) 1571s [00:52:51.717] signalCondition(cond) 1571s [00:52:51.717] } 1571s [00:52:51.717] else if (!ignore && TRUE && inherits(cond, c("condition", 1571s [00:52:51.717] "immediateCondition"))) { 1571s [00:52:51.717] signal <- TRUE && inherits(cond, "immediateCondition") 1571s [00:52:51.717] ...future.conditions[[length(...future.conditions) + 1571s [00:52:51.717] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1571s [00:52:51.717] if (TRUE && !signal) { 1571s [00:52:51.717] muffleCondition <- function (cond, pattern = "^muffle") 1571s [00:52:51.717] { 1571s [00:52:51.717] inherits <- base::inherits 1571s [00:52:51.717] invokeRestart <- base::invokeRestart 1571s [00:52:51.717] is.null <- base::is.null 1571s [00:52:51.717] muffled <- FALSE 1571s [00:52:51.717] if (inherits(cond, "message")) { 1571s [00:52:51.717] muffled <- grepl(pattern, "muffleMessage") 1571s [00:52:51.717] if (muffled) 1571s [00:52:51.717] invokeRestart("muffleMessage") 1571s [00:52:51.717] } 1571s [00:52:51.717] else if (inherits(cond, "warning")) { 1571s [00:52:51.717] muffled <- grepl(pattern, "muffleWarning") 1571s [00:52:51.717] if (muffled) 1571s [00:52:51.717] invokeRestart("muffleWarning") 1571s [00:52:51.717] } 1571s [00:52:51.717] else if (inherits(cond, "condition")) { 1571s [00:52:51.717] if (!is.null(pattern)) { 1571s [00:52:51.717] computeRestarts <- base::computeRestarts 1571s [00:52:51.717] grepl <- base::grepl 1571s [00:52:51.717] restarts <- computeRestarts(cond) 1571s [00:52:51.717] for (restart in restarts) { 1571s [00:52:51.717] name <- restart$name 1571s [00:52:51.717] if (is.null(name)) 1571s [00:52:51.717] next 1571s [00:52:51.717] if (!grepl(pattern, name)) 1571s [00:52:51.717] next 1571s [00:52:51.717] invokeRestart(restart) 1571s [00:52:51.717] muffled <- TRUE 1571s [00:52:51.717] break 1571s [00:52:51.717] } 1571s [00:52:51.717] } 1571s [00:52:51.717] } 1571s [00:52:51.717] invisible(muffled) 1571s [00:52:51.717] } 1571s [00:52:51.717] muffleCondition(cond, pattern = "^muffle") 1571s [00:52:51.717] } 1571s [00:52:51.717] } 1571s [00:52:51.717] else { 1571s [00:52:51.717] if (TRUE) { 1571s [00:52:51.717] muffleCondition <- function (cond, pattern = "^muffle") 1571s [00:52:51.717] { 1571s [00:52:51.717] inherits <- base::inherits 1571s [00:52:51.717] invokeRestart <- base::invokeRestart 1571s [00:52:51.717] is.null <- base::is.null 1571s [00:52:51.717] muffled <- FALSE 1571s [00:52:51.717] if (inherits(cond, "message")) { 1571s [00:52:51.717] muffled <- grepl(pattern, "muffleMessage") 1571s [00:52:51.717] if (muffled) 1571s [00:52:51.717] invokeRestart("muffleMessage") 1571s [00:52:51.717] } 1571s [00:52:51.717] else if (inherits(cond, "warning")) { 1571s [00:52:51.717] muffled <- grepl(pattern, "muffleWarning") 1571s [00:52:51.717] if (muffled) 1571s [00:52:51.717] invokeRestart("muffleWarning") 1571s [00:52:51.717] } 1571s [00:52:51.717] else if (inherits(cond, "condition")) { 1571s [00:52:51.717] if (!is.null(pattern)) { 1571s [00:52:51.717] computeRestarts <- base::computeRestarts 1571s [00:52:51.717] grepl <- base::grepl 1571s [00:52:51.717] restarts <- computeRestarts(cond) 1571s [00:52:51.717] for (restart in restarts) { 1571s [00:52:51.717] name <- restart$name 1571s [00:52:51.717] if (is.null(name)) 1571s [00:52:51.717] next 1571s [00:52:51.717] if (!grepl(pattern, name)) 1571s [00:52:51.717] next 1571s [00:52:51.717] invokeRestart(restart) 1571s [00:52:51.717] muffled <- TRUE 1571s [00:52:51.717] break 1571s [00:52:51.717] } 1571s [00:52:51.717] } 1571s [00:52:51.717] } 1571s [00:52:51.717] invisible(muffled) 1571s [00:52:51.717] } 1571s [00:52:51.717] muffleCondition(cond, pattern = "^muffle") 1571s [00:52:51.717] } 1571s [00:52:51.717] } 1571s [00:52:51.717] } 1571s [00:52:51.717] })) 1571s [00:52:51.717] }, error = function(ex) { 1571s [00:52:51.717] base::structure(base::list(value = NULL, visible = NULL, 1571s [00:52:51.717] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1571s [00:52:51.717] ...future.rng), started = ...future.startTime, 1571s [00:52:51.717] finished = Sys.time(), session_uuid = NA_character_, 1571s [00:52:51.717] version = "1.8"), class = "FutureResult") 1571s [00:52:51.717] }, finally = { 1571s [00:52:51.717] if (!identical(...future.workdir, getwd())) 1571s [00:52:51.717] setwd(...future.workdir) 1571s [00:52:51.717] { 1571s [00:52:51.717] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1571s [00:52:51.717] ...future.oldOptions$nwarnings <- NULL 1571s [00:52:51.717] } 1571s [00:52:51.717] base::options(...future.oldOptions) 1571s [00:52:51.717] if (.Platform$OS.type == "windows") { 1571s [00:52:51.717] old_names <- names(...future.oldEnvVars) 1571s [00:52:51.717] envs <- base::Sys.getenv() 1571s [00:52:51.717] names <- names(envs) 1571s [00:52:51.717] common <- intersect(names, old_names) 1571s [00:52:51.717] added <- setdiff(names, old_names) 1571s [00:52:51.717] removed <- setdiff(old_names, names) 1571s [00:52:51.717] changed <- common[...future.oldEnvVars[common] != 1571s [00:52:51.717] envs[common]] 1571s [00:52:51.717] NAMES <- toupper(changed) 1571s [00:52:51.717] args <- list() 1571s [00:52:51.717] for (kk in seq_along(NAMES)) { 1571s [00:52:51.717] name <- changed[[kk]] 1571s [00:52:51.717] NAME <- NAMES[[kk]] 1571s [00:52:51.717] if (name != NAME && is.element(NAME, old_names)) 1571s [00:52:51.717] next 1571s [00:52:51.717] args[[name]] <- ...future.oldEnvVars[[name]] 1571s [00:52:51.717] } 1571s [00:52:51.717] NAMES <- toupper(added) 1571s [00:52:51.717] for (kk in seq_along(NAMES)) { 1571s [00:52:51.717] name <- added[[kk]] 1571s [00:52:51.717] NAME <- NAMES[[kk]] 1571s [00:52:51.717] if (name != NAME && is.element(NAME, old_names)) 1571s [00:52:51.717] next 1571s [00:52:51.717] args[[name]] <- "" 1571s [00:52:51.717] } 1571s [00:52:51.717] NAMES <- toupper(removed) 1571s [00:52:51.717] for (kk in seq_along(NAMES)) { 1571s [00:52:51.717] name <- removed[[kk]] 1571s [00:52:51.717] NAME <- NAMES[[kk]] 1571s [00:52:51.717] if (name != NAME && is.element(NAME, old_names)) 1571s [00:52:51.717] next 1571s [00:52:51.717] args[[name]] <- ...future.oldEnvVars[[name]] 1571s [00:52:51.717] } 1571s [00:52:51.717] if (length(args) > 0) 1571s [00:52:51.717] base::do.call(base::Sys.setenv, args = args) 1571s [00:52:51.717] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1571s [00:52:51.717] } 1571s [00:52:51.717] else { 1571s [00:52:51.717] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1571s [00:52:51.717] } 1571s [00:52:51.717] { 1571s [00:52:51.717] if (base::length(...future.futureOptionsAdded) > 1571s [00:52:51.717] 0L) { 1571s [00:52:51.717] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1571s [00:52:51.717] base::names(opts) <- ...future.futureOptionsAdded 1571s [00:52:51.717] base::options(opts) 1571s [00:52:51.717] } 1571s [00:52:51.717] { 1571s [00:52:51.717] { 1571s [00:52:51.717] NULL 1571s [00:52:51.717] RNGkind("Mersenne-Twister") 1571s [00:52:51.717] base::rm(list = ".Random.seed", envir = base::globalenv(), 1571s [00:52:51.717] inherits = FALSE) 1571s [00:52:51.717] } 1571s [00:52:51.717] options(future.plan = NULL) 1571s [00:52:51.717] if (is.na(NA_character_)) 1571s [00:52:51.717] Sys.unsetenv("R_FUTURE_PLAN") 1571s [00:52:51.717] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1571s [00:52:51.717] future::plan(list(function (..., envir = parent.frame()) 1571s [00:52:51.717] { 1571s [00:52:51.717] future <- SequentialFuture(..., envir = envir) 1571s [00:52:51.717] if (!future$lazy) 1571s [00:52:51.717] future <- run(future) 1571s [00:52:51.717] invisible(future) 1571s [00:52:51.717] }), .cleanup = FALSE, .init = FALSE) 1571s [00:52:51.717] } 1571s [00:52:51.717] } 1571s [00:52:51.717] } 1571s [00:52:51.717] }) 1571s [00:52:51.717] if (TRUE) { 1571s [00:52:51.717] base::sink(type = "output", split = FALSE) 1571s [00:52:51.717] if (TRUE) { 1571s [00:52:51.717] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1571s [00:52:51.717] } 1571s [00:52:51.717] else { 1571s [00:52:51.717] ...future.result["stdout"] <- base::list(NULL) 1571s [00:52:51.717] } 1571s [00:52:51.717] base::close(...future.stdout) 1571s [00:52:51.717] ...future.stdout <- NULL 1571s [00:52:51.717] } 1571s [00:52:51.717] ...future.result$conditions <- ...future.conditions 1571s [00:52:51.717] ...future.result$finished <- base::Sys.time() 1571s [00:52:51.717] ...future.result 1571s [00:52:51.717] } 1571s [00:52:51.722] assign_globals() ... 1571s [00:52:51.722] List of 5 1571s [00:52:51.722] $ ...future.FUN :function (x, ...) 1571s [00:52:51.722] $ future.call.arguments : list() 1571s [00:52:51.722] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1571s [00:52:51.722] $ ...future.elements_ii :List of 4 1571s [00:52:51.722] ..$ A: num 50 1571s [00:52:51.722] ..$ B: num 60 1571s [00:52:51.722] ..$ C: num 70 1571s [00:52:51.722] ..$ D: num 80 1571s [00:52:51.722] $ ...future.seeds_ii : NULL 1571s [00:52:51.722] $ ...future.globals.maxSize: NULL 1571s [00:52:51.722] - attr(*, "where")=List of 5 1571s [00:52:51.722] ..$ ...future.FUN : 1571s [00:52:51.722] ..$ future.call.arguments : 1571s [00:52:51.722] ..$ ...future.elements_ii : 1571s [00:52:51.722] ..$ ...future.seeds_ii : 1571s [00:52:51.722] ..$ ...future.globals.maxSize: 1571s [00:52:51.722] - attr(*, "resolved")= logi FALSE 1571s [00:52:51.722] - attr(*, "total_size")= num 1248 1571s [00:52:51.722] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1571s [00:52:51.722] - attr(*, "already-done")= logi TRUE 1571s [00:52:51.731] - copied ‘...future.FUN’ to environment 1571s [00:52:51.731] - copied ‘future.call.arguments’ to environment 1571s [00:52:51.731] - copied ‘...future.elements_ii’ to environment 1571s [00:52:51.731] - copied ‘...future.seeds_ii’ to environment 1571s [00:52:51.732] - copied ‘...future.globals.maxSize’ to environment 1571s [00:52:51.732] assign_globals() ... done 1571s [00:52:51.732] plan(): Setting new future strategy stack: 1571s [00:52:51.732] List of future strategies: 1571s [00:52:51.732] 1. sequential: 1571s [00:52:51.732] - args: function (..., envir = parent.frame()) 1571s [00:52:51.732] - tweaked: FALSE 1571s [00:52:51.732] - call: NULL 1571s [00:52:51.733] plan(): nbrOfWorkers() = 1 1571s [00:52:51.734] plan(): Setting new future strategy stack: 1571s [00:52:51.734] List of future strategies: 1571s [00:52:51.734] 1. sequential: 1571s [00:52:51.734] - args: function (..., envir = parent.frame()) 1571s [00:52:51.734] - tweaked: FALSE 1571s [00:52:51.734] - call: plan(strategy) 1571s [00:52:51.735] plan(): nbrOfWorkers() = 1 1571s [00:52:51.735] SequentialFuture started (and completed) 1571s [00:52:51.736] - Launch lazy future ... done 1571s [00:52:51.736] run() for ‘SequentialFuture’ ... done 1571s [00:52:51.736] Created future: 1571s [00:52:51.736] SequentialFuture: 1571s [00:52:51.736] Label: ‘future_sapply-1’ 1571s [00:52:51.736] Expression: 1571s [00:52:51.736] { 1571s [00:52:51.736] do.call(function(...) { 1571s [00:52:51.736] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1571s [00:52:51.736] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1571s [00:52:51.736] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1571s [00:52:51.736] on.exit(options(oopts), add = TRUE) 1571s [00:52:51.736] } 1571s [00:52:51.736] { 1571s [00:52:51.736] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1571s [00:52:51.736] ...future.X_jj <- ...future.elements_ii[[jj]] 1571s [00:52:51.736] ...future.FUN(...future.X_jj, ...) 1571s [00:52:51.736] }) 1571s [00:52:51.736] } 1571s [00:52:51.736] }, args = future.call.arguments) 1571s [00:52:51.736] } 1571s [00:52:51.736] Lazy evaluation: FALSE 1571s [00:52:51.736] Asynchronous evaluation: FALSE 1571s [00:52:51.736] Local evaluation: TRUE 1571s [00:52:51.736] Environment: R_GlobalEnv 1571s [00:52:51.736] Capture standard output: TRUE 1571s [00:52:51.736] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1571s [00:52:51.736] Globals: 5 objects totaling 1.44 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1571s [00:52:51.736] Packages: 1571s [00:52:51.736] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1571s [00:52:51.736] Resolved: TRUE 1571s [00:52:51.736] Value: 896 bytes of class ‘list’ 1571s [00:52:51.736] Early signaling: FALSE 1571s [00:52:51.736] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1571s [00:52:51.736] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1571s [00:52:51.738] Chunk #1 of 1 ... DONE 1571s [00:52:51.739] Launching 1 futures (chunks) ... DONE 1571s [00:52:51.739] Resolving 1 futures (chunks) ... 1571s [00:52:51.739] resolve() on list ... 1571s [00:52:51.739] recursive: 0 1571s [00:52:51.739] length: 1 1571s [00:52:51.739] 1571s [00:52:51.740] resolved() for ‘SequentialFuture’ ... 1571s [00:52:51.740] - state: ‘finished’ 1571s [00:52:51.740] - run: TRUE 1571s [00:52:51.740] - result: ‘FutureResult’ 1571s [00:52:51.740] resolved() for ‘SequentialFuture’ ... done 1571s [00:52:51.741] Future #1 1571s [00:52:51.741] signalConditionsASAP(SequentialFuture, pos=1) ... 1571s [00:52:51.741] - nx: 1 1571s [00:52:51.741] - relay: TRUE 1571s [00:52:51.741] - stdout: TRUE 1571s [00:52:51.742] - signal: TRUE 1571s [00:52:51.742] - resignal: FALSE 1571s [00:52:51.742] - force: TRUE 1571s [00:52:51.742] - relayed: [n=1] FALSE 1571s [00:52:51.742] - queued futures: [n=1] FALSE 1571s [00:52:51.742] - until=1 1571s [00:52:51.743] - relaying element #1 1571s [00:52:51.743] - relayed: [n=1] TRUE 1571s [00:52:51.743] - queued futures: [n=1] TRUE 1571s [00:52:51.743] signalConditionsASAP(SequentialFuture, pos=1) ... done 1571s [00:52:51.743] length: 0 (resolved future 1) 1571s [00:52:51.743] Relaying remaining futures 1571s [00:52:51.744] signalConditionsASAP(NULL, pos=0) ... 1571s List of 2 1571s $ y0: Named num [1:4] 50 60 70 80 1571s ..- attr(*, "names")=[00:52:51.744] - nx: 1 1571s [00:52:51.744] - relay: TRUE 1571s [00:52:51.744] - stdout: TRUE 1571s [00:52:51.744] - signal: TRUE 1571s [00:52:51.744] - resignal: FALSE 1571s [00:52:51.744] - force: TRUE 1571s [00:52:51.745] - relayed: [n=1] TRUE 1571s [00:52:51.745] - queued futures: [n=1] TRUE 1571s - flush all 1571s [00:52:51.745] - relayed: [n=1] TRUE 1571s [00:52:51.745] - queued futures: [n=1] TRUE 1571s [00:52:51.746] signalConditionsASAP(NULL, pos=0) ... done 1571s [00:52:51.746] resolve() on list ... DONE 1571s [00:52:51.746] - Number of value chunks collected: 1 1571s [00:52:51.746] Resolving 1 futures (chunks) ... DONE 1571s [00:52:51.746] Reducing values from 1 chunks ... 1571s [00:52:51.747] - Number of values collected after concatenation: 4 1571s [00:52:51.747] - Number of values expected: 4 1571s [00:52:51.747] Reducing values from 1 chunks ... DONE 1571s [00:52:51.747] future_lapply() ... DONE 1571s chr [1:4] "A" "B" "C" "D" 1571s $ y1: Named num [1:4] 50 60 70 80 1571s ..- attr(*, "names")= chr [1:4] "A" "B" "C" "D" 1571s [00:52:51.750] future_lapply() ... 1571s [00:52:51.752] Number of chunks: 1 1571s [00:52:51.752] getGlobalsAndPackagesXApply() ... 1571s [00:52:51.752] - future.globals: TRUE 1571s [00:52:51.752] getGlobalsAndPackages() ... 1571s [00:52:51.752] Searching for globals... 1571s [00:52:51.754] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1571s [00:52:51.755] Searching for globals ... DONE 1571s [00:52:51.755] Resolving globals: FALSE 1571s [00:52:51.755] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1571s [00:52:51.756] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1571s [00:52:51.756] - globals: [1] ‘FUN’ 1571s [00:52:51.757] 1571s [00:52:51.757] getGlobalsAndPackages() ... DONE 1571s [00:52:51.757] - globals found/used: [n=1] ‘FUN’ 1571s [00:52:51.757] - needed namespaces: [n=0] 1571s [00:52:51.757] Finding globals ... DONE 1571s [00:52:51.757] - use_args: TRUE 1571s [00:52:51.757] - Getting '...' globals ... 1571s [00:52:51.758] resolve() on list ... 1571s [00:52:51.758] recursive: 0 1571s [00:52:51.758] length: 1 1571s [00:52:51.758] elements: ‘...’ 1571s [00:52:51.759] length: 0 (resolved future 1) 1571s [00:52:51.759] resolve() on list ... DONE 1571s [00:52:51.759] - '...' content: [n=0] 1571s [00:52:51.759] List of 1 1571s [00:52:51.759] $ ...: list() 1571s [00:52:51.759] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1571s [00:52:51.759] - attr(*, "where")=List of 1 1571s [00:52:51.759] ..$ ...: 1571s [00:52:51.759] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1571s [00:52:51.759] - attr(*, "resolved")= logi TRUE 1571s [00:52:51.759] - attr(*, "total_size")= num NA 1571s [00:52:51.763] - Getting '...' globals ... DONE 1571s [00:52:51.763] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1571s [00:52:51.763] List of 2 1571s [00:52:51.763] $ ...future.FUN:function (x, y = 2 * 1:5) 1571s [00:52:51.763] $ ... : list() 1571s [00:52:51.763] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1571s [00:52:51.763] - attr(*, "where")=List of 2 1571s [00:52:51.763] ..$ ...future.FUN: 1571s [00:52:51.763] ..$ ... : 1571s [00:52:51.763] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1571s [00:52:51.763] - attr(*, "resolved")= logi FALSE 1571s [00:52:51.763] - attr(*, "total_size")= num 4728 1571s [00:52:51.769] Packages to be attached in all futures: [n=0] 1571s [00:52:51.769] getGlobalsAndPackagesXApply() ... DONE 1571s [00:52:51.769] Number of futures (= number of chunks): 1 1571s [00:52:51.769] Launching 1 futures (chunks) ... 1571s [00:52:51.769] Chunk #1 of 1 ... 1571s [00:52:51.770] - Finding globals in 'X' for chunk #1 ... 1571s [00:52:51.770] getGlobalsAndPackages() ... 1571s [00:52:51.770] Searching for globals... 1571s [00:52:51.771] 1571s [00:52:51.771] Searching for globals ... DONE 1571s [00:52:51.771] - globals: [0] 1571s [00:52:51.771] getGlobalsAndPackages() ... DONE 1571s [00:52:51.771] + additional globals found: [n=0] 1571s [00:52:51.771] + additional namespaces needed: [n=0] 1571s [00:52:51.771] - Finding globals in 'X' for chunk #1 ... DONE 1571s [00:52:51.772] - seeds: 1571s [00:52:51.772] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1571s [00:52:51.772] getGlobalsAndPackages() ... 1571s [00:52:51.773] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1571s [00:52:51.773] Resolving globals: FALSE 1571s [00:52:51.773] Tweak future expression to call with '...' arguments ... 1571s [00:52:51.774] { 1571s [00:52:51.774] do.call(function(...) { 1571s [00:52:51.774] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1571s [00:52:51.774] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1571s [00:52:51.774] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1571s [00:52:51.774] on.exit(options(oopts), add = TRUE) 1571s [00:52:51.774] } 1571s [00:52:51.774] { 1571s [00:52:51.774] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1571s [00:52:51.774] ...future.X_jj <- ...future.elements_ii[[jj]] 1571s [00:52:51.774] ...future.FUN(...future.X_jj, ...) 1571s [00:52:51.774] }) 1571s [00:52:51.774] } 1571s [00:52:51.774] }, args = future.call.arguments) 1571s [00:52:51.774] } 1571s [00:52:51.774] Tweak future expression to call with '...' arguments ... DONE 1571s [00:52:51.775] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1571s [00:52:51.775] 1571s [00:52:51.775] getGlobalsAndPackages() ... DONE 1571s [00:52:51.775] run() for ‘Future’ ... 1571s [00:52:51.775] - state: ‘created’ 1571s [00:52:51.776] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1571s [00:52:51.776] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1571s [00:52:51.776] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1571s [00:52:51.776] - Field: ‘label’ 1571s [00:52:51.777] - Field: ‘local’ 1571s [00:52:51.777] - Field: ‘owner’ 1571s [00:52:51.777] - Field: ‘envir’ 1571s [00:52:51.777] - Field: ‘packages’ 1571s [00:52:51.777] - Field: ‘gc’ 1571s [00:52:51.777] - Field: ‘conditions’ 1571s [00:52:51.777] - Field: ‘expr’ 1571s [00:52:51.778] - Field: ‘uuid’ 1571s [00:52:51.778] - Field: ‘seed’ 1571s [00:52:51.778] - Field: ‘version’ 1571s [00:52:51.778] - Field: ‘result’ 1571s [00:52:51.778] - Field: ‘asynchronous’ 1571s [00:52:51.778] - Field: ‘calls’ 1571s [00:52:51.778] - Field: ‘globals’ 1571s [00:52:51.779] - Field: ‘stdout’ 1571s [00:52:51.779] - Field: ‘earlySignal’ 1571s [00:52:51.779] - Field: ‘lazy’ 1571s [00:52:51.779] - Field: ‘state’ 1571s [00:52:51.779] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1571s [00:52:51.780] - Launch lazy future ... 1571s [00:52:51.780] Packages needed by the future expression (n = 0): 1571s [00:52:51.780] Packages needed by future strategies (n = 0): 1571s [00:52:51.781] { 1571s [00:52:51.781] { 1571s [00:52:51.781] { 1571s [00:52:51.781] ...future.startTime <- base::Sys.time() 1571s [00:52:51.781] { 1571s [00:52:51.781] { 1571s [00:52:51.781] { 1571s [00:52:51.781] base::local({ 1571s [00:52:51.781] has_future <- base::requireNamespace("future", 1571s [00:52:51.781] quietly = TRUE) 1571s [00:52:51.781] if (has_future) { 1571s [00:52:51.781] ns <- base::getNamespace("future") 1571s [00:52:51.781] version <- ns[[".package"]][["version"]] 1571s [00:52:51.781] if (is.null(version)) 1571s [00:52:51.781] version <- utils::packageVersion("future") 1571s [00:52:51.781] } 1571s [00:52:51.781] else { 1571s [00:52:51.781] version <- NULL 1571s [00:52:51.781] } 1571s [00:52:51.781] if (!has_future || version < "1.8.0") { 1571s [00:52:51.781] info <- base::c(r_version = base::gsub("R version ", 1571s [00:52:51.781] "", base::R.version$version.string), 1571s [00:52:51.781] platform = base::sprintf("%s (%s-bit)", 1571s [00:52:51.781] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1571s [00:52:51.781] os = base::paste(base::Sys.info()[base::c("sysname", 1571s [00:52:51.781] "release", "version")], collapse = " "), 1571s [00:52:51.781] hostname = base::Sys.info()[["nodename"]]) 1571s [00:52:51.781] info <- base::sprintf("%s: %s", base::names(info), 1571s [00:52:51.781] info) 1571s [00:52:51.781] info <- base::paste(info, collapse = "; ") 1571s [00:52:51.781] if (!has_future) { 1571s [00:52:51.781] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1571s [00:52:51.781] info) 1571s [00:52:51.781] } 1571s [00:52:51.781] else { 1571s [00:52:51.781] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1571s [00:52:51.781] info, version) 1571s [00:52:51.781] } 1571s [00:52:51.781] base::stop(msg) 1571s [00:52:51.781] } 1571s [00:52:51.781] }) 1571s [00:52:51.781] } 1571s [00:52:51.781] options(future.plan = NULL) 1571s [00:52:51.781] Sys.unsetenv("R_FUTURE_PLAN") 1571s [00:52:51.781] future::plan("default", .cleanup = FALSE, .init = FALSE) 1571s [00:52:51.781] } 1571s [00:52:51.781] ...future.workdir <- getwd() 1571s [00:52:51.781] } 1571s [00:52:51.781] ...future.oldOptions <- base::as.list(base::.Options) 1571s [00:52:51.781] ...future.oldEnvVars <- base::Sys.getenv() 1571s [00:52:51.781] } 1571s [00:52:51.781] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1571s [00:52:51.781] future.globals.maxSize = NULL, future.globals.method = NULL, 1571s [00:52:51.781] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1571s [00:52:51.781] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1571s [00:52:51.781] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1571s [00:52:51.781] future.stdout.windows.reencode = NULL, width = 80L) 1571s [00:52:51.781] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1571s [00:52:51.781] base::names(...future.oldOptions)) 1571s [00:52:51.781] } 1571s [00:52:51.781] if (FALSE) { 1571s [00:52:51.781] } 1571s [00:52:51.781] else { 1571s [00:52:51.781] if (TRUE) { 1571s [00:52:51.781] ...future.stdout <- base::rawConnection(base::raw(0L), 1571s [00:52:51.781] open = "w") 1571s [00:52:51.781] } 1571s [00:52:51.781] else { 1571s [00:52:51.781] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1571s [00:52:51.781] windows = "NUL", "/dev/null"), open = "w") 1571s [00:52:51.781] } 1571s [00:52:51.781] base::sink(...future.stdout, type = "output", split = FALSE) 1571s [00:52:51.781] base::on.exit(if (!base::is.null(...future.stdout)) { 1571s [00:52:51.781] base::sink(type = "output", split = FALSE) 1571s [00:52:51.781] base::close(...future.stdout) 1571s [00:52:51.781] }, add = TRUE) 1571s [00:52:51.781] } 1571s [00:52:51.781] ...future.frame <- base::sys.nframe() 1571s [00:52:51.781] ...future.conditions <- base::list() 1571s [00:52:51.781] ...future.rng <- base::globalenv()$.Random.seed 1571s [00:52:51.781] if (FALSE) { 1571s [00:52:51.781] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1571s [00:52:51.781] "...future.value", "...future.globalenv.names", ".Random.seed") 1571s [00:52:51.781] } 1571s [00:52:51.781] ...future.result <- base::tryCatch({ 1571s [00:52:51.781] base::withCallingHandlers({ 1571s [00:52:51.781] ...future.value <- base::withVisible(base::local({ 1571s [00:52:51.781] do.call(function(...) { 1571s [00:52:51.781] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1571s [00:52:51.781] if (!identical(...future.globals.maxSize.org, 1571s [00:52:51.781] ...future.globals.maxSize)) { 1571s [00:52:51.781] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1571s [00:52:51.781] on.exit(options(oopts), add = TRUE) 1571s [00:52:51.781] } 1571s [00:52:51.781] { 1571s [00:52:51.781] lapply(seq_along(...future.elements_ii), 1571s [00:52:51.781] FUN = function(jj) { 1571s [00:52:51.781] ...future.X_jj <- ...future.elements_ii[[jj]] 1571s [00:52:51.781] ...future.FUN(...future.X_jj, ...) 1571s [00:52:51.781] }) 1571s [00:52:51.781] } 1571s [00:52:51.781] }, args = future.call.arguments) 1571s [00:52:51.781] })) 1571s [00:52:51.781] future::FutureResult(value = ...future.value$value, 1571s [00:52:51.781] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1571s [00:52:51.781] ...future.rng), globalenv = if (FALSE) 1571s [00:52:51.781] list(added = base::setdiff(base::names(base::.GlobalEnv), 1571s [00:52:51.781] ...future.globalenv.names)) 1571s [00:52:51.781] else NULL, started = ...future.startTime, version = "1.8") 1571s [00:52:51.781] }, condition = base::local({ 1571s [00:52:51.781] c <- base::c 1571s [00:52:51.781] inherits <- base::inherits 1571s [00:52:51.781] invokeRestart <- base::invokeRestart 1571s [00:52:51.781] length <- base::length 1571s [00:52:51.781] list <- base::list 1571s [00:52:51.781] seq.int <- base::seq.int 1571s [00:52:51.781] signalCondition <- base::signalCondition 1571s [00:52:51.781] sys.calls <- base::sys.calls 1571s [00:52:51.781] `[[` <- base::`[[` 1571s [00:52:51.781] `+` <- base::`+` 1571s [00:52:51.781] `<<-` <- base::`<<-` 1571s [00:52:51.781] sysCalls <- function(calls = sys.calls(), from = 1L) { 1571s [00:52:51.781] calls[seq.int(from = from + 12L, to = length(calls) - 1571s [00:52:51.781] 3L)] 1571s [00:52:51.781] } 1571s [00:52:51.781] function(cond) { 1571s [00:52:51.781] is_error <- inherits(cond, "error") 1571s [00:52:51.781] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1571s [00:52:51.781] NULL) 1571s [00:52:51.781] if (is_error) { 1571s [00:52:51.781] sessionInformation <- function() { 1571s [00:52:51.781] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1571s [00:52:51.781] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1571s [00:52:51.781] search = base::search(), system = base::Sys.info()) 1571s [00:52:51.781] } 1571s [00:52:51.781] ...future.conditions[[length(...future.conditions) + 1571s [00:52:51.781] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1571s [00:52:51.781] cond$call), session = sessionInformation(), 1571s [00:52:51.781] timestamp = base::Sys.time(), signaled = 0L) 1571s [00:52:51.781] signalCondition(cond) 1571s [00:52:51.781] } 1571s [00:52:51.781] else if (!ignore && TRUE && inherits(cond, c("condition", 1571s [00:52:51.781] "immediateCondition"))) { 1571s [00:52:51.781] signal <- TRUE && inherits(cond, "immediateCondition") 1571s [00:52:51.781] ...future.conditions[[length(...future.conditions) + 1571s [00:52:51.781] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1571s [00:52:51.781] if (TRUE && !signal) { 1571s [00:52:51.781] muffleCondition <- function (cond, pattern = "^muffle") 1571s [00:52:51.781] { 1571s [00:52:51.781] inherits <- base::inherits 1571s [00:52:51.781] invokeRestart <- base::invokeRestart 1571s [00:52:51.781] is.null <- base::is.null 1571s [00:52:51.781] muffled <- FALSE 1571s [00:52:51.781] if (inherits(cond, "message")) { 1571s [00:52:51.781] muffled <- grepl(pattern, "muffleMessage") 1571s [00:52:51.781] if (muffled) 1571s [00:52:51.781] invokeRestart("muffleMessage") 1571s [00:52:51.781] } 1571s [00:52:51.781] else if (inherits(cond, "warning")) { 1571s [00:52:51.781] muffled <- grepl(pattern, "muffleWarning") 1571s [00:52:51.781] if (muffled) 1571s [00:52:51.781] invokeRestart("muffleWarning") 1571s [00:52:51.781] } 1571s [00:52:51.781] else if (inherits(cond, "condition")) { 1571s [00:52:51.781] if (!is.null(pattern)) { 1571s [00:52:51.781] computeRestarts <- base::computeRestarts 1571s [00:52:51.781] grepl <- base::grepl 1571s [00:52:51.781] restarts <- computeRestarts(cond) 1571s [00:52:51.781] for (restart in restarts) { 1571s [00:52:51.781] name <- restart$name 1571s [00:52:51.781] if (is.null(name)) 1571s [00:52:51.781] next 1571s [00:52:51.781] if (!grepl(pattern, name)) 1571s [00:52:51.781] next 1571s [00:52:51.781] invokeRestart(restart) 1571s [00:52:51.781] muffled <- TRUE 1571s [00:52:51.781] break 1571s [00:52:51.781] } 1571s [00:52:51.781] } 1571s [00:52:51.781] } 1571s [00:52:51.781] invisible(muffled) 1571s [00:52:51.781] } 1571s [00:52:51.781] muffleCondition(cond, pattern = "^muffle") 1571s [00:52:51.781] } 1571s [00:52:51.781] } 1571s [00:52:51.781] else { 1571s [00:52:51.781] if (TRUE) { 1571s [00:52:51.781] muffleCondition <- function (cond, pattern = "^muffle") 1571s [00:52:51.781] { 1571s [00:52:51.781] inherits <- base::inherits 1571s [00:52:51.781] invokeRestart <- base::invokeRestart 1571s [00:52:51.781] is.null <- base::is.null 1571s [00:52:51.781] muffled <- FALSE 1571s [00:52:51.781] if (inherits(cond, "message")) { 1571s [00:52:51.781] muffled <- grepl(pattern, "muffleMessage") 1571s [00:52:51.781] if (muffled) 1571s [00:52:51.781] invokeRestart("muffleMessage") 1571s [00:52:51.781] } 1571s [00:52:51.781] else if (inherits(cond, "warning")) { 1571s [00:52:51.781] muffled <- grepl(pattern, "muffleWarning") 1571s [00:52:51.781] if (muffled) 1571s [00:52:51.781] invokeRestart("muffleWarning") 1571s [00:52:51.781] } 1571s [00:52:51.781] else if (inherits(cond, "condition")) { 1571s [00:52:51.781] if (!is.null(pattern)) { 1571s [00:52:51.781] computeRestarts <- base::computeRestarts 1571s [00:52:51.781] grepl <- base::grepl 1571s [00:52:51.781] restarts <- computeRestarts(cond) 1571s [00:52:51.781] for (restart in restarts) { 1571s [00:52:51.781] name <- restart$name 1571s [00:52:51.781] if (is.null(name)) 1571s [00:52:51.781] next 1571s [00:52:51.781] if (!grepl(pattern, name)) 1571s [00:52:51.781] next 1571s [00:52:51.781] invokeRestart(restart) 1571s [00:52:51.781] muffled <- TRUE 1571s [00:52:51.781] break 1571s [00:52:51.781] } 1571s [00:52:51.781] } 1571s [00:52:51.781] } 1571s [00:52:51.781] invisible(muffled) 1571s [00:52:51.781] } 1571s [00:52:51.781] muffleCondition(cond, pattern = "^muffle") 1571s [00:52:51.781] } 1571s [00:52:51.781] } 1571s [00:52:51.781] } 1571s [00:52:51.781] })) 1571s [00:52:51.781] }, error = function(ex) { 1571s [00:52:51.781] base::structure(base::list(value = NULL, visible = NULL, 1571s [00:52:51.781] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1571s [00:52:51.781] ...future.rng), started = ...future.startTime, 1571s [00:52:51.781] finished = Sys.time(), session_uuid = NA_character_, 1571s [00:52:51.781] version = "1.8"), class = "FutureResult") 1571s [00:52:51.781] }, finally = { 1571s [00:52:51.781] if (!identical(...future.workdir, getwd())) 1571s [00:52:51.781] setwd(...future.workdir) 1571s [00:52:51.781] { 1571s [00:52:51.781] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1571s [00:52:51.781] ...future.oldOptions$nwarnings <- NULL 1571s [00:52:51.781] } 1571s [00:52:51.781] base::options(...future.oldOptions) 1571s [00:52:51.781] if (.Platform$OS.type == "windows") { 1571s [00:52:51.781] old_names <- names(...future.oldEnvVars) 1571s [00:52:51.781] envs <- base::Sys.getenv() 1571s [00:52:51.781] names <- names(envs) 1571s [00:52:51.781] common <- intersect(names, old_names) 1571s [00:52:51.781] added <- setdiff(names, old_names) 1571s [00:52:51.781] removed <- setdiff(old_names, names) 1571s [00:52:51.781] changed <- common[...future.oldEnvVars[common] != 1571s [00:52:51.781] envs[common]] 1571s [00:52:51.781] NAMES <- toupper(changed) 1571s [00:52:51.781] args <- list() 1571s [00:52:51.781] for (kk in seq_along(NAMES)) { 1571s [00:52:51.781] name <- changed[[kk]] 1571s [00:52:51.781] NAME <- NAMES[[kk]] 1571s [00:52:51.781] if (name != NAME && is.element(NAME, old_names)) 1571s [00:52:51.781] next 1571s [00:52:51.781] args[[name]] <- ...future.oldEnvVars[[name]] 1571s [00:52:51.781] } 1571s [00:52:51.781] NAMES <- toupper(added) 1571s [00:52:51.781] for (kk in seq_along(NAMES)) { 1571s [00:52:51.781] name <- added[[kk]] 1571s [00:52:51.781] NAME <- NAMES[[kk]] 1571s [00:52:51.781] if (name != NAME && is.element(NAME, old_names)) 1571s [00:52:51.781] next 1571s [00:52:51.781] args[[name]] <- "" 1571s [00:52:51.781] } 1571s [00:52:51.781] NAMES <- toupper(removed) 1571s [00:52:51.781] for (kk in seq_along(NAMES)) { 1571s [00:52:51.781] name <- removed[[kk]] 1571s [00:52:51.781] NAME <- NAMES[[kk]] 1571s [00:52:51.781] if (name != NAME && is.element(NAME, old_names)) 1571s [00:52:51.781] next 1571s [00:52:51.781] args[[name]] <- ...future.oldEnvVars[[name]] 1571s [00:52:51.781] } 1571s [00:52:51.781] if (length(args) > 0) 1571s [00:52:51.781] base::do.call(base::Sys.setenv, args = args) 1571s [00:52:51.781] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1571s [00:52:51.781] } 1571s [00:52:51.781] else { 1571s [00:52:51.781] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1571s [00:52:51.781] } 1571s [00:52:51.781] { 1571s [00:52:51.781] if (base::length(...future.futureOptionsAdded) > 1571s [00:52:51.781] 0L) { 1571s [00:52:51.781] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1571s [00:52:51.781] base::names(opts) <- ...future.futureOptionsAdded 1571s [00:52:51.781] base::options(opts) 1571s [00:52:51.781] } 1571s [00:52:51.781] { 1571s [00:52:51.781] { 1571s [00:52:51.781] NULL 1571s [00:52:51.781] RNGkind("Mersenne-Twister") 1571s [00:52:51.781] base::rm(list = ".Random.seed", envir = base::globalenv(), 1571s [00:52:51.781] inherits = FALSE) 1571s [00:52:51.781] } 1571s [00:52:51.781] options(future.plan = NULL) 1571s [00:52:51.781] if (is.na(NA_character_)) 1571s [00:52:51.781] Sys.unsetenv("R_FUTURE_PLAN") 1571s [00:52:51.781] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1571s [00:52:51.781] future::plan(list(function (..., envir = parent.frame()) 1571s [00:52:51.781] { 1571s [00:52:51.781] future <- SequentialFuture(..., envir = envir) 1571s [00:52:51.781] if (!future$lazy) 1571s [00:52:51.781] future <- run(future) 1571s [00:52:51.781] invisible(future) 1571s [00:52:51.781] }), .cleanup = FALSE, .init = FALSE) 1571s [00:52:51.781] } 1571s [00:52:51.781] } 1571s [00:52:51.781] } 1571s [00:52:51.781] }) 1571s [00:52:51.781] if (TRUE) { 1571s [00:52:51.781] base::sink(type = "output", split = FALSE) 1571s [00:52:51.781] if (TRUE) { 1571s [00:52:51.781] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1571s [00:52:51.781] } 1571s [00:52:51.781] else { 1571s [00:52:51.781] ...future.result["stdout"] <- base::list(NULL) 1571s [00:52:51.781] } 1571s [00:52:51.781] base::close(...future.stdout) 1571s [00:52:51.781] ...future.stdout <- NULL 1571s [00:52:51.781] } 1571s [00:52:51.781] ...future.result$conditions <- ...future.conditions 1571s [00:52:51.781] ...future.result$finished <- base::Sys.time() 1571s [00:52:51.781] ...future.result 1571s [00:52:51.781] } 1571s [00:52:51.785] assign_globals() ... 1571s [00:52:51.785] List of 5 1571s [00:52:51.785] $ ...future.FUN :function (x, y = 2 * 1:5) 1571s [00:52:51.785] $ future.call.arguments : list() 1571s [00:52:51.785] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1571s [00:52:51.785] $ ...future.elements_ii :List of 4 1571s [00:52:51.785] ..$ A: num 50 1571s [00:52:51.785] ..$ B: num 60 1571s [00:52:51.785] ..$ C: num 70 1571s [00:52:51.785] ..$ D: num 80 1571s [00:52:51.785] $ ...future.seeds_ii : NULL 1571s [00:52:51.785] $ ...future.globals.maxSize: NULL 1571s [00:52:51.785] - attr(*, "where")=List of 5 1571s [00:52:51.785] ..$ ...future.FUN : 1571s [00:52:51.785] ..$ future.call.arguments : 1571s [00:52:51.785] ..$ ...future.elements_ii : 1571s [00:52:51.785] ..$ ...future.seeds_ii : 1571s [00:52:51.785] ..$ ...future.globals.maxSize: 1571s [00:52:51.785] - attr(*, "resolved")= logi FALSE 1571s [00:52:51.785] - attr(*, "total_size")= num 4728 1571s [00:52:51.785] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1571s [00:52:51.785] - attr(*, "already-done")= logi TRUE 1571s [00:52:51.795] - reassign environment for ‘...future.FUN’ 1571s [00:52:51.795] - copied ‘...future.FUN’ to environment 1571s [00:52:51.796] - copied ‘future.call.arguments’ to environment 1571s [00:52:51.796] - copied ‘...future.elements_ii’ to environment 1571s [00:52:51.796] - copied ‘...future.seeds_ii’ to environment 1571s [00:52:51.796] - copied ‘...future.globals.maxSize’ to environment 1571s [00:52:51.796] assign_globals() ... done 1571s [00:52:51.796] plan(): Setting new future strategy stack: 1571s [00:52:51.796] List of future strategies: 1571s [00:52:51.796] 1. sequential: 1571s [00:52:51.796] - args: function (..., envir = parent.frame()) 1571s [00:52:51.796] - tweaked: FALSE 1571s [00:52:51.796] - call: NULL 1571s [00:52:51.797] plan(): nbrOfWorkers() = 1 1571s [00:52:51.798] plan(): Setting new future strategy stack: 1571s [00:52:51.798] List of future strategies: 1571s [00:52:51.798] 1. sequential: 1571s [00:52:51.798] - args: function (..., envir = parent.frame()) 1571s [00:52:51.798] - tweaked: FALSE 1571s [00:52:51.798] - call: plan(strategy) 1571s [00:52:51.798] plan(): nbrOfWorkers() = 1 1571s [00:52:51.799] SequentialFuture started (and completed) 1571s [00:52:51.799] - Launch lazy future ... done 1571s [00:52:51.799] run() for ‘SequentialFuture’ ... done 1571s [00:52:51.799] Created future: 1571s [00:52:51.799] SequentialFuture: 1571s [00:52:51.799] Label: ‘future_sapply-1’ 1571s [00:52:51.799] Expression: 1571s [00:52:51.799] { 1571s [00:52:51.799] do.call(function(...) { 1571s [00:52:51.799] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1571s [00:52:51.799] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1571s [00:52:51.799] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1571s [00:52:51.799] on.exit(options(oopts), add = TRUE) 1571s [00:52:51.799] } 1571s [00:52:51.799] { 1571s [00:52:51.799] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1571s [00:52:51.799] ...future.X_jj <- ...future.elements_ii[[jj]] 1571s [00:52:51.799] ...future.FUN(...future.X_jj, ...) 1571s [00:52:51.799] }) 1571s [00:52:51.799] } 1571s [00:52:51.799] }, args = future.call.arguments) 1571s [00:52:51.799] } 1571s [00:52:51.799] Lazy evaluation: FALSE 1571s [00:52:51.799] Asynchronous evaluation: FALSE 1571s [00:52:51.799] Local evaluation: TRUE 1571s [00:52:51.799] Environment: R_GlobalEnv 1571s [00:52:51.799] Capture standard output: TRUE 1571s [00:52:51.799] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1571s [00:52:51.799] Globals: 5 objects totaling 4.84 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1571s [00:52:51.799] Packages: 1571s [00:52:51.799] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1571s [00:52:51.799] Resolved: TRUE 1571s [00:52:51.799] Value: 1.34 KiB of class ‘list’ 1571s [00:52:51.799] Early signaling: FALSE 1571s [00:52:51.799] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1571s [00:52:51.799] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1571s [00:52:51.804] Chunk #1 of 1 ... DONE 1571s [00:52:51.804] Launching 1 futures (chunks) ... DONE 1571s [00:52:51.805] Resolving 1 futures (chunks) ... 1571s [00:52:51.805] resolve() on list ... 1571s [00:52:51.806] recursive: 0 1571s [00:52:51.806] length: 1 1571s [00:52:51.806] 1571s [00:52:51.807] resolved() for ‘SequentialFuture’ ... 1571s [00:52:51.811] - state: ‘finished’ 1571s [00:52:51.811] - run: TRUE 1571s [00:52:51.812] - result: ‘FutureResult’ 1571s [00:52:51.813] resolved() for ‘SequentialFuture’ ... done 1571s [00:52:51.813] Future #1 1571s [00:52:51.814] signalConditionsASAP(SequentialFuture, pos=1) ... 1571s [00:52:51.814] - nx: 1 1571s [00:52:51.814] - relay: TRUE 1571s [00:52:51.814] - stdout: TRUE 1571s [00:52:51.814] - signal: TRUE 1571s [00:52:51.815] - resignal: FALSE 1571s [00:52:51.815] - force: TRUE 1571s [00:52:51.815] - relayed: [n=1] FALSE 1571s [00:52:51.815] - queued futures: [n=1] FALSE 1571s [00:52:51.815] - until=1 1571s [00:52:51.816] - relaying element #1 1571s [00:52:51.816] - relayed: [n=1] TRUE 1571s [00:52:51.817] - queued futures: [n=1] TRUE 1571s [00:52:51.817] signalConditionsASAP(SequentialFuture, pos=1) ... done 1571s [00:52:51.818] length: 0 (resolved future 1) 1571s [00:52:51.818] Relaying remaining futures 1571s [00:52:51.818] signalConditionsASAP(NULL, pos=0) ... 1571s [00:52:51.818] - nx: 1 1571s [00:52:51.818] - relay: TRUE 1571s [00:52:51.818] - stdout: TRUE 1571s [00:52:51.819] - signal: TRUE 1571s [00:52:51.819] - resignal: FALSE 1571s [00:52:51.819] - force: TRUE 1571s [00:52:51.819] - relayed: [n=1] TRUE 1571s [00:52:51.820] - queued futures: [n=1] TRUE 1571s - flush all 1571s [00:52:51.820] - relayed: [n=1] TRUE 1571s [00:52:51.820] - queued futures: [n=1] TRUE 1571s [00:52:51.820] signalConditionsASAP(NULL, pos=0) ... done 1571s [00:52:51.821] resolve() on list ... DONE 1571s [00:52:51.821] - Number of value chunks collected: 1 1571s [00:52:51.821] Resolving 1 futures (chunks) ... DONE 1571s [00:52:51.822] Reducing values from 1 chunks ... 1571s [00:52:51.822] - Number of values collected after concatenation: 4 1571s [00:52:51.822] - Number of values expected: 4 1571s [00:52:51.822] Reducing values from 1 chunks ... DONE 1571s [00:52:51.822] future_lapply() ... DONE 1571s List of 2 1571s $ y0: num [1:3, 1:5, 1:4] 100 100 100 200 200 200 300 300 300 400 ... 1571s ..- attr(*, "dimnames")=List of 3 1571s .. ..$ : NULL 1571s .. ..$ : NULL 1571s .. ..$ : chr [1:4] "A" "B" "C" "D" 1571s $ y1: num [1:3, 1:5, 1:4] 100 100 100 200 200 200 300 300 300 400 ... 1571s ..- attr(*, "dimnames")=List of 3 1571s .. ..$ : NULL 1571s .. ..$ : NULL 1571s .. ..$ : chr [1:4] "A" "B" "C" "D" 1571s [00:52:51.827] future_lapply() ... 1571s [00:52:51.828] Number of chunks: 1 1571s [00:52:51.829] getGlobalsAndPackagesXApply() ... 1571s [00:52:51.829] - future.globals: TRUE 1571s [00:52:51.829] getGlobalsAndPackages() ... 1571s [00:52:51.829] Searching for globals... 1571s [00:52:51.832] - globals found: [1] ‘FUN’ 1571s [00:52:51.832] Searching for globals ... DONE 1571s [00:52:51.832] Resolving globals: FALSE 1571s [00:52:51.833] The total size of the 1 globals is 848 bytes (848 bytes) 1571s [00:52:51.834] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1571s [00:52:51.834] - globals: [1] ‘FUN’ 1571s [00:52:51.834] 1571s [00:52:51.834] getGlobalsAndPackages() ... DONE 1571s [00:52:51.834] - globals found/used: [n=1] ‘FUN’ 1571s [00:52:51.835] - needed namespaces: [n=0] 1571s [00:52:51.835] Finding globals ... DONE 1571s [00:52:51.835] - use_args: TRUE 1571s [00:52:51.835] - Getting '...' globals ... 1571s [00:52:51.836] resolve() on list ... 1571s [00:52:51.836] recursive: 0 1571s [00:52:51.836] length: 1 1571s [00:52:51.836] elements: ‘...’ 1571s [00:52:51.836] length: 0 (resolved future 1) 1571s [00:52:51.836] resolve() on list ... DONE 1571s [00:52:51.836] - '...' content: [n=0] 1571s [00:52:51.837] List of 1 1571s [00:52:51.837] $ ...: list() 1571s [00:52:51.837] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1571s [00:52:51.837] - attr(*, "where")=List of 1 1571s [00:52:51.837] ..$ ...: 1571s [00:52:51.837] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1571s [00:52:51.837] - attr(*, "resolved")= logi TRUE 1571s [00:52:51.837] - attr(*, "total_size")= num NA 1571s [00:52:51.841] - Getting '...' globals ... DONE 1571s [00:52:51.841] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1571s [00:52:51.841] List of 2 1571s [00:52:51.841] $ ...future.FUN:function (x) 1571s [00:52:51.841] $ ... : list() 1571s [00:52:51.841] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1571s [00:52:51.841] - attr(*, "where")=List of 2 1571s [00:52:51.841] ..$ ...future.FUN: 1571s [00:52:51.841] ..$ ... : 1571s [00:52:51.841] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1571s [00:52:51.841] - attr(*, "resolved")= logi FALSE 1571s [00:52:51.841] - attr(*, "total_size")= num 848 1571s [00:52:51.845] Packages to be attached in all futures: [n=0] 1571s [00:52:51.845] getGlobalsAndPackagesXApply() ... DONE 1571s [00:52:51.845] Number of futures (= number of chunks): 1 1571s [00:52:51.845] Launching 1 futures (chunks) ... 1571s [00:52:51.846] Chunk #1 of 1 ... 1571s [00:52:51.846] - Finding globals in 'X' for chunk #1 ... 1571s [00:52:51.846] getGlobalsAndPackages() ... 1571s [00:52:51.846] Searching for globals... 1571s [00:52:51.846] 1571s [00:52:51.847] Searching for globals ... DONE 1571s [00:52:51.847] - globals: [0] 1571s [00:52:51.847] getGlobalsAndPackages() ... DONE 1571s [00:52:51.847] + additional globals found: [n=0] 1571s [00:52:51.847] + additional namespaces needed: [n=0] 1571s [00:52:51.847] - Finding globals in 'X' for chunk #1 ... DONE 1571s [00:52:51.847] - seeds: 1571s [00:52:51.848] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1571s [00:52:51.848] getGlobalsAndPackages() ... 1571s [00:52:51.848] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1571s [00:52:51.848] Resolving globals: FALSE 1571s [00:52:51.848] Tweak future expression to call with '...' arguments ... 1571s [00:52:51.848] { 1571s [00:52:51.848] do.call(function(...) { 1571s [00:52:51.848] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1571s [00:52:51.848] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1571s [00:52:51.848] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1571s [00:52:51.848] on.exit(options(oopts), add = TRUE) 1571s [00:52:51.848] } 1571s [00:52:51.848] { 1571s [00:52:51.848] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1571s [00:52:51.848] ...future.X_jj <- ...future.elements_ii[[jj]] 1571s [00:52:51.848] ...future.FUN(...future.X_jj, ...) 1571s [00:52:51.848] }) 1571s [00:52:51.848] } 1571s [00:52:51.848] }, args = future.call.arguments) 1571s [00:52:51.848] } 1571s [00:52:51.849] Tweak future expression to call with '...' arguments ... DONE 1571s [00:52:51.852] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1571s [00:52:51.852] 1571s [00:52:51.852] getGlobalsAndPackages() ... DONE 1571s [00:52:51.852] run() for ‘Future’ ... 1571s [00:52:51.853] - state: ‘created’ 1571s [00:52:51.853] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1571s [00:52:51.853] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1571s [00:52:51.853] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1571s [00:52:51.854] - Field: ‘label’ 1571s [00:52:51.854] - Field: ‘local’ 1571s [00:52:51.854] - Field: ‘owner’ 1571s [00:52:51.854] - Field: ‘envir’ 1571s [00:52:51.855] - Field: ‘packages’ 1571s [00:52:51.855] - Field: ‘gc’ 1571s [00:52:51.855] - Field: ‘conditions’ 1571s [00:52:51.856] - Field: ‘expr’ 1571s [00:52:51.856] - Field: ‘uuid’ 1571s [00:52:51.856] - Field: ‘seed’ 1571s [00:52:51.856] - Field: ‘version’ 1571s [00:52:51.856] - Field: ‘result’ 1571s [00:52:51.856] - Field: ‘asynchronous’ 1571s [00:52:51.857] - Field: ‘calls’ 1571s [00:52:51.857] - Field: ‘globals’ 1571s [00:52:51.857] - Field: ‘stdout’ 1571s [00:52:51.857] - Field: ‘earlySignal’ 1571s [00:52:51.857] - Field: ‘lazy’ 1571s [00:52:51.858] - Field: ‘state’ 1571s [00:52:51.858] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1571s [00:52:51.858] - Launch lazy future ... 1571s [00:52:51.858] Packages needed by the future expression (n = 0): 1571s [00:52:51.859] Packages needed by future strategies (n = 0): 1571s [00:52:51.859] { 1571s [00:52:51.859] { 1571s [00:52:51.859] { 1571s [00:52:51.859] ...future.startTime <- base::Sys.time() 1571s [00:52:51.859] { 1571s [00:52:51.859] { 1571s [00:52:51.859] { 1571s [00:52:51.859] base::local({ 1571s [00:52:51.859] has_future <- base::requireNamespace("future", 1571s [00:52:51.859] quietly = TRUE) 1571s [00:52:51.859] if (has_future) { 1571s [00:52:51.859] ns <- base::getNamespace("future") 1571s [00:52:51.859] version <- ns[[".package"]][["version"]] 1571s [00:52:51.859] if (is.null(version)) 1571s [00:52:51.859] version <- utils::packageVersion("future") 1571s [00:52:51.859] } 1571s [00:52:51.859] else { 1571s [00:52:51.859] version <- NULL 1571s [00:52:51.859] } 1571s [00:52:51.859] if (!has_future || version < "1.8.0") { 1571s [00:52:51.859] info <- base::c(r_version = base::gsub("R version ", 1571s [00:52:51.859] "", base::R.version$version.string), 1571s [00:52:51.859] platform = base::sprintf("%s (%s-bit)", 1571s [00:52:51.859] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1571s [00:52:51.859] os = base::paste(base::Sys.info()[base::c("sysname", 1571s [00:52:51.859] "release", "version")], collapse = " "), 1571s [00:52:51.859] hostname = base::Sys.info()[["nodename"]]) 1571s [00:52:51.859] info <- base::sprintf("%s: %s", base::names(info), 1571s [00:52:51.859] info) 1571s [00:52:51.859] info <- base::paste(info, collapse = "; ") 1571s [00:52:51.859] if (!has_future) { 1571s [00:52:51.859] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1571s [00:52:51.859] info) 1571s [00:52:51.859] } 1571s [00:52:51.859] else { 1571s [00:52:51.859] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1571s [00:52:51.859] info, version) 1571s [00:52:51.859] } 1571s [00:52:51.859] base::stop(msg) 1571s [00:52:51.859] } 1571s [00:52:51.859] }) 1571s [00:52:51.859] } 1571s [00:52:51.859] options(future.plan = NULL) 1571s [00:52:51.859] Sys.unsetenv("R_FUTURE_PLAN") 1571s [00:52:51.859] future::plan("default", .cleanup = FALSE, .init = FALSE) 1571s [00:52:51.859] } 1571s [00:52:51.859] ...future.workdir <- getwd() 1571s [00:52:51.859] } 1571s [00:52:51.859] ...future.oldOptions <- base::as.list(base::.Options) 1571s [00:52:51.859] ...future.oldEnvVars <- base::Sys.getenv() 1571s [00:52:51.859] } 1571s [00:52:51.859] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1571s [00:52:51.859] future.globals.maxSize = NULL, future.globals.method = NULL, 1571s [00:52:51.859] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1571s [00:52:51.859] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1571s [00:52:51.859] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1571s [00:52:51.859] future.stdout.windows.reencode = NULL, width = 80L) 1571s [00:52:51.859] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1571s [00:52:51.859] base::names(...future.oldOptions)) 1571s [00:52:51.859] } 1571s [00:52:51.859] if (FALSE) { 1571s [00:52:51.859] } 1571s [00:52:51.859] else { 1571s [00:52:51.859] if (TRUE) { 1571s [00:52:51.859] ...future.stdout <- base::rawConnection(base::raw(0L), 1571s [00:52:51.859] open = "w") 1571s [00:52:51.859] } 1571s [00:52:51.859] else { 1571s [00:52:51.859] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1571s [00:52:51.859] windows = "NUL", "/dev/null"), open = "w") 1571s [00:52:51.859] } 1571s [00:52:51.859] base::sink(...future.stdout, type = "output", split = FALSE) 1571s [00:52:51.859] base::on.exit(if (!base::is.null(...future.stdout)) { 1571s [00:52:51.859] base::sink(type = "output", split = FALSE) 1571s [00:52:51.859] base::close(...future.stdout) 1571s [00:52:51.859] }, add = TRUE) 1571s [00:52:51.859] } 1571s [00:52:51.859] ...future.frame <- base::sys.nframe() 1571s [00:52:51.859] ...future.conditions <- base::list() 1571s [00:52:51.859] ...future.rng <- base::globalenv()$.Random.seed 1571s [00:52:51.859] if (FALSE) { 1571s [00:52:51.859] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1571s [00:52:51.859] "...future.value", "...future.globalenv.names", ".Random.seed") 1571s [00:52:51.859] } 1571s [00:52:51.859] ...future.result <- base::tryCatch({ 1571s [00:52:51.859] base::withCallingHandlers({ 1571s [00:52:51.859] ...future.value <- base::withVisible(base::local({ 1571s [00:52:51.859] do.call(function(...) { 1571s [00:52:51.859] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1571s [00:52:51.859] if (!identical(...future.globals.maxSize.org, 1571s [00:52:51.859] ...future.globals.maxSize)) { 1571s [00:52:51.859] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1571s [00:52:51.859] on.exit(options(oopts), add = TRUE) 1571s [00:52:51.859] } 1571s [00:52:51.859] { 1571s [00:52:51.859] lapply(seq_along(...future.elements_ii), 1571s [00:52:51.859] FUN = function(jj) { 1571s [00:52:51.859] ...future.X_jj <- ...future.elements_ii[[jj]] 1571s [00:52:51.859] ...future.FUN(...future.X_jj, ...) 1571s [00:52:51.859] }) 1571s [00:52:51.859] } 1571s [00:52:51.859] }, args = future.call.arguments) 1571s [00:52:51.859] })) 1571s [00:52:51.859] future::FutureResult(value = ...future.value$value, 1571s [00:52:51.859] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1571s [00:52:51.859] ...future.rng), globalenv = if (FALSE) 1571s [00:52:51.859] list(added = base::setdiff(base::names(base::.GlobalEnv), 1571s [00:52:51.859] ...future.globalenv.names)) 1571s [00:52:51.859] else NULL, started = ...future.startTime, version = "1.8") 1571s [00:52:51.859] }, condition = base::local({ 1571s [00:52:51.859] c <- base::c 1571s [00:52:51.859] inherits <- base::inherits 1571s [00:52:51.859] invokeRestart <- base::invokeRestart 1571s [00:52:51.859] length <- base::length 1571s [00:52:51.859] list <- base::list 1571s [00:52:51.859] seq.int <- base::seq.int 1571s [00:52:51.859] signalCondition <- base::signalCondition 1571s [00:52:51.859] sys.calls <- base::sys.calls 1571s [00:52:51.859] `[[` <- base::`[[` 1571s [00:52:51.859] `+` <- base::`+` 1571s [00:52:51.859] `<<-` <- base::`<<-` 1571s [00:52:51.859] sysCalls <- function(calls = sys.calls(), from = 1L) { 1571s [00:52:51.859] calls[seq.int(from = from + 12L, to = length(calls) - 1571s [00:52:51.859] 3L)] 1571s [00:52:51.859] } 1571s [00:52:51.859] function(cond) { 1571s [00:52:51.859] is_error <- inherits(cond, "error") 1571s [00:52:51.859] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1571s [00:52:51.859] NULL) 1571s [00:52:51.859] if (is_error) { 1571s [00:52:51.859] sessionInformation <- function() { 1571s [00:52:51.859] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1571s [00:52:51.859] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1571s [00:52:51.859] search = base::search(), system = base::Sys.info()) 1571s [00:52:51.859] } 1571s [00:52:51.859] ...future.conditions[[length(...future.conditions) + 1571s [00:52:51.859] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1571s [00:52:51.859] cond$call), session = sessionInformation(), 1571s [00:52:51.859] timestamp = base::Sys.time(), signaled = 0L) 1571s [00:52:51.859] signalCondition(cond) 1571s [00:52:51.859] } 1571s [00:52:51.859] else if (!ignore && TRUE && inherits(cond, c("condition", 1571s [00:52:51.859] "immediateCondition"))) { 1571s [00:52:51.859] signal <- TRUE && inherits(cond, "immediateCondition") 1571s [00:52:51.859] ...future.conditions[[length(...future.conditions) + 1571s [00:52:51.859] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1571s [00:52:51.859] if (TRUE && !signal) { 1571s [00:52:51.859] muffleCondition <- function (cond, pattern = "^muffle") 1571s [00:52:51.859] { 1571s [00:52:51.859] inherits <- base::inherits 1571s [00:52:51.859] invokeRestart <- base::invokeRestart 1571s [00:52:51.859] is.null <- base::is.null 1571s [00:52:51.859] muffled <- FALSE 1571s [00:52:51.859] if (inherits(cond, "message")) { 1571s [00:52:51.859] muffled <- grepl(pattern, "muffleMessage") 1571s [00:52:51.859] if (muffled) 1571s [00:52:51.859] invokeRestart("muffleMessage") 1571s [00:52:51.859] } 1571s [00:52:51.859] else if (inherits(cond, "warning")) { 1571s [00:52:51.859] muffled <- grepl(pattern, "muffleWarning") 1571s [00:52:51.859] if (muffled) 1571s [00:52:51.859] invokeRestart("muffleWarning") 1571s [00:52:51.859] } 1571s [00:52:51.859] else if (inherits(cond, "condition")) { 1571s [00:52:51.859] if (!is.null(pattern)) { 1571s [00:52:51.859] computeRestarts <- base::computeRestarts 1571s [00:52:51.859] grepl <- base::grepl 1571s [00:52:51.859] restarts <- computeRestarts(cond) 1571s [00:52:51.859] for (restart in restarts) { 1571s [00:52:51.859] name <- restart$name 1571s [00:52:51.859] if (is.null(name)) 1571s [00:52:51.859] next 1571s [00:52:51.859] if (!grepl(pattern, name)) 1571s [00:52:51.859] next 1571s [00:52:51.859] invokeRestart(restart) 1571s [00:52:51.859] muffled <- TRUE 1571s [00:52:51.859] break 1571s [00:52:51.859] } 1571s [00:52:51.859] } 1571s [00:52:51.859] } 1571s [00:52:51.859] invisible(muffled) 1571s [00:52:51.859] } 1571s [00:52:51.859] muffleCondition(cond, pattern = "^muffle") 1571s [00:52:51.859] } 1571s [00:52:51.859] } 1571s [00:52:51.859] else { 1571s [00:52:51.859] if (TRUE) { 1571s [00:52:51.859] muffleCondition <- function (cond, pattern = "^muffle") 1571s [00:52:51.859] { 1571s [00:52:51.859] inherits <- base::inherits 1571s [00:52:51.859] invokeRestart <- base::invokeRestart 1571s [00:52:51.859] is.null <- base::is.null 1571s [00:52:51.859] muffled <- FALSE 1571s [00:52:51.859] if (inherits(cond, "message")) { 1571s [00:52:51.859] muffled <- grepl(pattern, "muffleMessage") 1571s [00:52:51.859] if (muffled) 1571s [00:52:51.859] invokeRestart("muffleMessage") 1571s [00:52:51.859] } 1571s [00:52:51.859] else if (inherits(cond, "warning")) { 1571s [00:52:51.859] muffled <- grepl(pattern, "muffleWarning") 1571s [00:52:51.859] if (muffled) 1571s [00:52:51.859] invokeRestart("muffleWarning") 1571s [00:52:51.859] } 1571s [00:52:51.859] else if (inherits(cond, "condition")) { 1571s [00:52:51.859] if (!is.null(pattern)) { 1571s [00:52:51.859] computeRestarts <- base::computeRestarts 1571s [00:52:51.859] grepl <- base::grepl 1571s [00:52:51.859] restarts <- computeRestarts(cond) 1571s [00:52:51.859] for (restart in restarts) { 1571s [00:52:51.859] name <- restart$name 1571s [00:52:51.859] if (is.null(name)) 1571s [00:52:51.859] next 1571s [00:52:51.859] if (!grepl(pattern, name)) 1571s [00:52:51.859] next 1571s [00:52:51.859] invokeRestart(restart) 1571s [00:52:51.859] muffled <- TRUE 1571s [00:52:51.859] break 1571s [00:52:51.859] } 1571s [00:52:51.859] } 1571s [00:52:51.859] } 1571s [00:52:51.859] invisible(muffled) 1571s [00:52:51.859] } 1571s [00:52:51.859] muffleCondition(cond, pattern = "^muffle") 1571s [00:52:51.859] } 1571s [00:52:51.859] } 1571s [00:52:51.859] } 1571s [00:52:51.859] })) 1571s [00:52:51.859] }, error = function(ex) { 1571s [00:52:51.859] base::structure(base::list(value = NULL, visible = NULL, 1571s [00:52:51.859] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1571s [00:52:51.859] ...future.rng), started = ...future.startTime, 1571s [00:52:51.859] finished = Sys.time(), session_uuid = NA_character_, 1571s [00:52:51.859] version = "1.8"), class = "FutureResult") 1571s [00:52:51.859] }, finally = { 1571s [00:52:51.859] if (!identical(...future.workdir, getwd())) 1571s [00:52:51.859] setwd(...future.workdir) 1571s [00:52:51.859] { 1571s [00:52:51.859] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1571s [00:52:51.859] ...future.oldOptions$nwarnings <- NULL 1571s [00:52:51.859] } 1571s [00:52:51.859] base::options(...future.oldOptions) 1571s [00:52:51.859] if (.Platform$OS.type == "windows") { 1571s [00:52:51.859] old_names <- names(...future.oldEnvVars) 1571s [00:52:51.859] envs <- base::Sys.getenv() 1571s [00:52:51.859] names <- names(envs) 1571s [00:52:51.859] common <- intersect(names, old_names) 1571s [00:52:51.859] added <- setdiff(names, old_names) 1571s [00:52:51.859] removed <- setdiff(old_names, names) 1571s [00:52:51.859] changed <- common[...future.oldEnvVars[common] != 1571s [00:52:51.859] envs[common]] 1571s [00:52:51.859] NAMES <- toupper(changed) 1571s [00:52:51.859] args <- list() 1571s [00:52:51.859] for (kk in seq_along(NAMES)) { 1571s [00:52:51.859] name <- changed[[kk]] 1571s [00:52:51.859] NAME <- NAMES[[kk]] 1571s [00:52:51.859] if (name != NAME && is.element(NAME, old_names)) 1571s [00:52:51.859] next 1571s [00:52:51.859] args[[name]] <- ...future.oldEnvVars[[name]] 1571s [00:52:51.859] } 1571s [00:52:51.859] NAMES <- toupper(added) 1571s [00:52:51.859] for (kk in seq_along(NAMES)) { 1571s [00:52:51.859] name <- added[[kk]] 1571s [00:52:51.859] NAME <- NAMES[[kk]] 1571s [00:52:51.859] if (name != NAME && is.element(NAME, old_names)) 1571s [00:52:51.859] next 1571s [00:52:51.859] args[[name]] <- "" 1571s [00:52:51.859] } 1571s [00:52:51.859] NAMES <- toupper(removed) 1571s [00:52:51.859] for (kk in seq_along(NAMES)) { 1571s [00:52:51.859] name <- removed[[kk]] 1571s [00:52:51.859] NAME <- NAMES[[kk]] 1571s [00:52:51.859] if (name != NAME && is.element(NAME, old_names)) 1571s [00:52:51.859] next 1571s [00:52:51.859] args[[name]] <- ...future.oldEnvVars[[name]] 1571s [00:52:51.859] } 1571s [00:52:51.859] if (length(args) > 0) 1571s [00:52:51.859] base::do.call(base::Sys.setenv, args = args) 1571s [00:52:51.859] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1571s [00:52:51.859] } 1571s [00:52:51.859] else { 1571s [00:52:51.859] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1571s [00:52:51.859] } 1571s [00:52:51.859] { 1571s [00:52:51.859] if (base::length(...future.futureOptionsAdded) > 1571s [00:52:51.859] 0L) { 1571s [00:52:51.859] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1571s [00:52:51.859] base::names(opts) <- ...future.futureOptionsAdded 1571s [00:52:51.859] base::options(opts) 1571s [00:52:51.859] } 1571s [00:52:51.859] { 1571s [00:52:51.859] { 1571s [00:52:51.859] NULL 1571s [00:52:51.859] RNGkind("Mersenne-Twister") 1571s [00:52:51.859] base::rm(list = ".Random.seed", envir = base::globalenv(), 1571s [00:52:51.859] inherits = FALSE) 1571s [00:52:51.859] } 1571s [00:52:51.859] options(future.plan = NULL) 1571s [00:52:51.859] if (is.na(NA_character_)) 1571s [00:52:51.859] Sys.unsetenv("R_FUTURE_PLAN") 1571s [00:52:51.859] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1571s [00:52:51.859] future::plan(list(function (..., envir = parent.frame()) 1571s [00:52:51.859] { 1571s [00:52:51.859] future <- SequentialFuture(..., envir = envir) 1571s [00:52:51.859] if (!future$lazy) 1571s [00:52:51.859] future <- run(future) 1571s [00:52:51.859] invisible(future) 1571s [00:52:51.859] }), .cleanup = FALSE, .init = FALSE) 1571s [00:52:51.859] } 1571s [00:52:51.859] } 1571s [00:52:51.859] } 1571s [00:52:51.859] }) 1571s [00:52:51.859] if (TRUE) { 1571s [00:52:51.859] base::sink(type = "output", split = FALSE) 1571s [00:52:51.859] if (TRUE) { 1571s [00:52:51.859] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1571s [00:52:51.859] } 1571s [00:52:51.859] else { 1571s [00:52:51.859] ...future.result["stdout"] <- base::list(NULL) 1571s [00:52:51.859] } 1571s [00:52:51.859] base::close(...future.stdout) 1571s [00:52:51.859] ...future.stdout <- NULL 1571s [00:52:51.859] } 1571s [00:52:51.859] ...future.result$conditions <- ...future.conditions 1571s [00:52:51.859] ...future.result$finished <- base::Sys.time() 1571s [00:52:51.859] ...future.result 1571s [00:52:51.859] } 1571s [00:52:51.864] assign_globals() ... 1571s [00:52:51.865] List of 5 1571s [00:52:51.865] $ ...future.FUN :function (x) 1571s [00:52:51.865] $ future.call.arguments : list() 1571s [00:52:51.865] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1571s [00:52:51.865] $ ...future.elements_ii :List of 4 1571s [00:52:51.865] ..$ A: num 50 1571s [00:52:51.865] ..$ B: num 60 1571s [00:52:51.865] ..$ C: num 70 1571s [00:52:51.865] ..$ D: num 80 1571s [00:52:51.865] $ ...future.seeds_ii : NULL 1571s [00:52:51.865] $ ...future.globals.maxSize: NULL 1571s [00:52:51.865] - attr(*, "where")=List of 5 1571s [00:52:51.865] ..$ ...future.FUN : 1571s [00:52:51.865] ..$ future.call.arguments : 1571s [00:52:51.865] ..$ ...future.elements_ii : 1571s [00:52:51.865] ..$ ...future.seeds_ii : 1571s [00:52:51.865] ..$ ...future.globals.maxSize: 1571s [00:52:51.865] - attr(*, "resolved")= logi FALSE 1571s [00:52:51.865] - attr(*, "total_size")= num 848 1571s [00:52:51.865] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1571s [00:52:51.865] - attr(*, "already-done")= logi TRUE 1571s [00:52:51.872] - copied ‘...future.FUN’ to environment 1571s [00:52:51.872] - copied ‘future.call.arguments’ to environment 1571s [00:52:51.873] - copied ‘...future.elements_ii’ to environment 1571s [00:52:51.873] - copied ‘...future.seeds_ii’ to environment 1571s [00:52:51.873] - copied ‘...future.globals.maxSize’ to environment 1571s [00:52:51.873] assign_globals() ... done 1571s [00:52:51.874] plan(): Setting new future strategy stack: 1571s [00:52:51.874] List of future strategies: 1571s [00:52:51.874] 1. sequential: 1571s [00:52:51.874] - args: function (..., envir = parent.frame()) 1571s [00:52:51.874] - tweaked: FALSE 1571s [00:52:51.874] - call: NULL 1571s [00:52:51.875] plan(): nbrOfWorkers() = 1 1571s [00:52:51.876] plan(): Setting new future strategy stack: 1571s [00:52:51.876] List of future strategies: 1571s [00:52:51.876] 1. sequential: 1571s [00:52:51.876] - args: function (..., envir = parent.frame()) 1571s [00:52:51.876] - tweaked: FALSE 1571s [00:52:51.876] - call: plan(strategy) 1571s [00:52:51.876] plan(): nbrOfWorkers() = 1 1571s [00:52:51.877] SequentialFuture started (and completed) 1571s [00:52:51.877] - Launch lazy future ... done 1571s [00:52:51.877] run() for ‘SequentialFuture’ ... done 1571s [00:52:51.877] Created future: 1571s [00:52:51.877] SequentialFuture: 1571s [00:52:51.877] Label: ‘future_sapply-1’ 1571s [00:52:51.877] Expression: 1571s [00:52:51.877] { 1571s [00:52:51.877] do.call(function(...) { 1571s [00:52:51.877] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1571s [00:52:51.877] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1571s [00:52:51.877] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1571s [00:52:51.877] on.exit(options(oopts), add = TRUE) 1571s [00:52:51.877] } 1571s [00:52:51.877] { 1571s [00:52:51.877] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1571s [00:52:51.877] ...future.X_jj <- ...future.elements_ii[[jj]] 1571s [00:52:51.877] ...future.FUN(...future.X_jj, ...) 1571s [00:52:51.877] }) 1571s [00:52:51.877] } 1571s [00:52:51.877] }, args = future.call.arguments) 1571s [00:52:51.877] } 1571s [00:52:51.877] Lazy evaluation: FALSE 1571s [00:52:51.877] Asynchronous evaluation: FALSE 1571s [00:52:51.877] Local evaluation: TRUE 1571s [00:52:51.877] Environment: R_GlobalEnv 1571s [00:52:51.877] Capture standard output: TRUE 1571s [00:52:51.877] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1571s [00:52:51.877] Globals: 5 objects totaling 1.05 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1571s [00:52:51.877] Packages: 1571s [00:52:51.877] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1571s [00:52:51.877] Resolved: TRUE 1571s [00:52:51.877] Value: 224 bytes of class ‘list’ 1571s [00:52:51.877] Early signaling: FALSE 1571s [00:52:51.877] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1571s [00:52:51.877] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1571s [00:52:51.879] Chunk #1 of 1 ... DONE 1571s [00:52:51.879] Launching 1 futures (chunks) ... DONE 1571s [00:52:51.880] Resolving 1 futures (chunks) ... 1571s [00:52:51.880] resolve() on list ... 1571s [00:52:51.880] recursive: 0 1571s [00:52:51.880] length: 1 1571s [00:52:51.881] 1571s [00:52:51.881] resolved() for ‘SequentialFuture’ ... 1571s [00:52:51.881] - state: ‘finished’ 1571s [00:52:51.881] - run: TRUE 1571s [00:52:51.881] - result: ‘FutureResult’ 1571s [00:52:51.882] resolved() for ‘SequentialFuture’ ... done 1571s [00:52:51.882] Future #1 1571s [00:52:51.882] signalConditionsASAP(SequentialFuture, pos=1) ... 1571s [00:52:51.882] - nx: 1 1571s [00:52:51.882] - relay: TRUE 1571s [00:52:51.882] - stdout: TRUE 1571s [00:52:51.882] - signal: TRUE 1571s [00:52:51.883] - resignal: FALSE 1571s [00:52:51.883] - force: TRUE 1571s [00:52:51.883] - relayed: [n=1] FALSE 1571s [00:52:51.883] - queued futures: [n=1] FALSE 1571s [00:52:51.883] - until=1 1571s [00:52:51.883] - relaying element #1 1571s [00:52:51.884] - relayed: [n=1] TRUE 1571s [00:52:51.884] - queued futures: [n=1] TRUE 1571s [00:52:51.884] signalConditionsASAP(SequentialFuture, pos=1) ... done 1571s [00:52:51.884] length: 0 (resolved future 1) 1571s [00:52:51.884] Relaying remaining futures 1571s [00:52:51.884] signalConditionsASAP(NULL, pos=0) ... 1571s [00:52:51.884] - nx: 1 1571s [00:52:51.885] - relay: TRUE 1571s [00:52:51.885] - stdout: TRUE 1571s [00:52:51.885] - signal: TRUE 1571s [00:52:51.885] - resignal: FALSE 1571s [00:52:51.885] - force: TRUE 1571s [00:52:51.885] - relayed: [n=1] TRUE 1571s [00:52:51.885] - queued futures: [n=1] TRUE 1571s - flush all 1571s [00:52:51.886] - relayed: [n=1] TRUE 1571s [00:52:51.886] - queued futures: [n=1] TRUE 1571s [00:52:51.886] signalConditionsASAP(NULL, pos=0) ... done 1571s [00:52:51.886] resolve() on list ... DONE 1571s [00:52:51.886] - Number of value chunks collected: 1 1571s [00:52:51.887] Resolving 1 futures (chunks) ... DONE 1571s [00:52:51.887] Reducing values from 1 chunks ... 1571s [00:52:51.888] - Number of values collected after concatenation: 4 1571s [00:52:51.888] - Number of values expected: 4 1571s [00:52:51.888] Reducing values from 1 chunks ... DONE 1571s [00:52:51.888] future_lapply() ... DONE 1571s List of 2 1571s $ y0:List of 4 1571s ..$ A: num 50 1571s ..$ B: num 60 1571s ..$ C: num 70 1571s ..$ D: num 80 1571s $ y1:List of 4 1571s ..$ A: num 50 1571s ..$ B: num 60 1571s ..$ C: num 70 1571s ..$ D: num 80 1571s List of 2 1571s $ y0:List of 4 1571s ..$ A: num 50 1571s ..$ B: num 60 1571s ..$ C: num 70 1571s ..$ D: num 80 1571s $ y2:List of 4 1571s ..$ A: num 50 1571s ..$ B: num 60 1571s ..$ C: num 70 1571s ..$ D: num 80 1571s [00:52:51.910] future_lapply() ... 1571s [00:52:51.911] Number of chunks: 1 1571s [00:52:51.911] getGlobalsAndPackagesXApply() ... 1571s [00:52:51.911] - future.globals: TRUE 1571s [00:52:51.912] getGlobalsAndPackages() ... 1571s [00:52:51.912] Searching for globals... 1571s [00:52:51.914] - globals found: [2] ‘FUN’, ‘UseMethod’ 1571s [00:52:51.914] Searching for globals ... DONE 1571s [00:52:51.914] Resolving globals: FALSE 1571s [00:52:51.914] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1571s [00:52:51.915] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1571s [00:52:51.916] - globals: [1] ‘FUN’ 1571s [00:52:51.916] 1571s [00:52:51.916] getGlobalsAndPackages() ... DONE 1571s [00:52:51.917] - globals found/used: [n=1] ‘FUN’ 1571s [00:52:51.917] - needed namespaces: [n=0] 1571s [00:52:51.917] Finding globals ... DONE 1571s [00:52:51.917] - use_args: TRUE 1571s [00:52:51.917] - Getting '...' globals ... 1571s [00:52:51.919] resolve() on list ... 1571s [00:52:51.919] recursive: 0 1571s [00:52:51.919] length: 1 1571s [00:52:51.919] elements: ‘...’ 1571s [00:52:51.920] length: 0 (resolved future 1) 1571s [00:52:51.920] resolve() on list ... DONE 1571s [00:52:51.920] - '...' content: [n=0] 1571s [00:52:51.920] List of 1 1571s [00:52:51.920] $ ...: list() 1571s [00:52:51.920] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1571s [00:52:51.920] - attr(*, "where")=List of 1 1571s [00:52:51.920] ..$ ...: 1571s [00:52:51.920] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1571s [00:52:51.920] - attr(*, "resolved")= logi TRUE 1571s [00:52:51.920] - attr(*, "total_size")= num NA 1571s [00:52:51.927] - Getting '...' globals ... DONE 1571s [00:52:51.927] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1571s [00:52:51.927] List of 2 1571s [00:52:51.927] $ ...future.FUN:function (x, ...) 1571s [00:52:51.927] $ ... : list() 1571s [00:52:51.927] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1571s [00:52:51.927] - attr(*, "where")=List of 2 1571s [00:52:51.927] ..$ ...future.FUN: 1571s [00:52:51.927] ..$ ... : 1571s [00:52:51.927] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1571s [00:52:51.927] - attr(*, "resolved")= logi FALSE 1571s [00:52:51.927] - attr(*, "total_size")= num 1248 1571s [00:52:51.931] Packages to be attached in all futures: [n=0] 1571s [00:52:51.931] getGlobalsAndPackagesXApply() ... DONE 1571s [00:52:51.932] Number of futures (= number of chunks): 1 1571s [00:52:51.932] Launching 1 futures (chunks) ... 1571s [00:52:51.932] Chunk #1 of 1 ... 1571s [00:52:51.932] - Finding globals in 'X' for chunk #1 ... 1571s [00:52:51.932] getGlobalsAndPackages() ... 1571s [00:52:51.932] Searching for globals... 1571s [00:52:51.933] 1571s [00:52:51.933] Searching for globals ... DONE 1571s [00:52:51.933] - globals: [0] 1571s [00:52:51.933] getGlobalsAndPackages() ... DONE 1571s [00:52:51.933] + additional globals found: [n=0] 1571s [00:52:51.933] + additional namespaces needed: [n=0] 1571s [00:52:51.933] - Finding globals in 'X' for chunk #1 ... DONE 1571s [00:52:51.934] - seeds: 1571s [00:52:51.934] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1571s [00:52:51.934] getGlobalsAndPackages() ... 1571s [00:52:51.934] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1571s [00:52:51.934] Resolving globals: FALSE 1571s [00:52:51.934] Tweak future expression to call with '...' arguments ... 1571s [00:52:51.935] { 1571s [00:52:51.935] do.call(function(...) { 1571s [00:52:51.935] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1571s [00:52:51.935] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1571s [00:52:51.935] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1571s [00:52:51.935] on.exit(options(oopts), add = TRUE) 1571s [00:52:51.935] } 1571s [00:52:51.935] { 1571s [00:52:51.935] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1571s [00:52:51.935] ...future.X_jj <- ...future.elements_ii[[jj]] 1571s [00:52:51.935] ...future.FUN(...future.X_jj, ...) 1571s [00:52:51.935] }) 1571s [00:52:51.935] } 1571s [00:52:51.935] }, args = future.call.arguments) 1571s [00:52:51.935] } 1571s [00:52:51.936] Tweak future expression to call with '...' arguments ... DONE 1571s [00:52:51.937] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1571s [00:52:51.937] 1571s [00:52:51.938] getGlobalsAndPackages() ... DONE 1571s [00:52:51.941] run() for ‘Future’ ... 1571s [00:52:51.941] - state: ‘created’ 1571s [00:52:51.941] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1571s [00:52:51.942] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1571s [00:52:51.943] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1571s [00:52:51.943] - Field: ‘label’ 1571s [00:52:51.943] - Field: ‘local’ 1571s [00:52:51.943] - Field: ‘owner’ 1571s [00:52:51.943] - Field: ‘envir’ 1571s [00:52:51.944] - Field: ‘packages’ 1571s [00:52:51.944] - Field: ‘gc’ 1571s [00:52:51.944] - Field: ‘conditions’ 1571s [00:52:51.945] - Field: ‘expr’ 1571s [00:52:51.945] - Field: ‘uuid’ 1571s [00:52:51.945] - Field: ‘seed’ 1571s [00:52:51.945] - Field: ‘version’ 1571s [00:52:51.946] - Field: ‘result’ 1571s [00:52:51.946] - Field: ‘asynchronous’ 1571s [00:52:51.946] - Field: ‘calls’ 1571s [00:52:51.947] - Field: ‘globals’ 1571s [00:52:51.948] - Field: ‘stdout’ 1571s [00:52:51.948] - Field: ‘earlySignal’ 1571s [00:52:51.948] - Field: ‘lazy’ 1571s [00:52:51.948] - Field: ‘state’ 1571s [00:52:51.948] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1571s [00:52:51.949] - Launch lazy future ... 1571s [00:52:51.949] Packages needed by the future expression (n = 0): 1571s [00:52:51.949] Packages needed by future strategies (n = 0): 1571s [00:52:51.951] { 1571s [00:52:51.951] { 1571s [00:52:51.951] { 1571s [00:52:51.951] ...future.startTime <- base::Sys.time() 1571s [00:52:51.951] { 1571s [00:52:51.951] { 1571s [00:52:51.951] { 1571s [00:52:51.951] base::local({ 1571s [00:52:51.951] has_future <- base::requireNamespace("future", 1571s [00:52:51.951] quietly = TRUE) 1571s [00:52:51.951] if (has_future) { 1571s [00:52:51.951] ns <- base::getNamespace("future") 1571s [00:52:51.951] version <- ns[[".package"]][["version"]] 1571s [00:52:51.951] if (is.null(version)) 1571s [00:52:51.951] version <- utils::packageVersion("future") 1571s [00:52:51.951] } 1571s [00:52:51.951] else { 1571s [00:52:51.951] version <- NULL 1571s [00:52:51.951] } 1571s [00:52:51.951] if (!has_future || version < "1.8.0") { 1571s [00:52:51.951] info <- base::c(r_version = base::gsub("R version ", 1571s [00:52:51.951] "", base::R.version$version.string), 1571s [00:52:51.951] platform = base::sprintf("%s (%s-bit)", 1571s [00:52:51.951] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1571s [00:52:51.951] os = base::paste(base::Sys.info()[base::c("sysname", 1571s [00:52:51.951] "release", "version")], collapse = " "), 1571s [00:52:51.951] hostname = base::Sys.info()[["nodename"]]) 1571s [00:52:51.951] info <- base::sprintf("%s: %s", base::names(info), 1571s [00:52:51.951] info) 1571s [00:52:51.951] info <- base::paste(info, collapse = "; ") 1571s [00:52:51.951] if (!has_future) { 1571s [00:52:51.951] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1571s [00:52:51.951] info) 1571s [00:52:51.951] } 1571s [00:52:51.951] else { 1571s [00:52:51.951] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1571s [00:52:51.951] info, version) 1571s [00:52:51.951] } 1571s [00:52:51.951] base::stop(msg) 1571s [00:52:51.951] } 1571s [00:52:51.951] }) 1571s [00:52:51.951] } 1571s [00:52:51.951] options(future.plan = NULL) 1571s [00:52:51.951] Sys.unsetenv("R_FUTURE_PLAN") 1571s [00:52:51.951] future::plan("default", .cleanup = FALSE, .init = FALSE) 1571s [00:52:51.951] } 1571s [00:52:51.951] ...future.workdir <- getwd() 1571s [00:52:51.951] } 1571s [00:52:51.951] ...future.oldOptions <- base::as.list(base::.Options) 1571s [00:52:51.951] ...future.oldEnvVars <- base::Sys.getenv() 1571s [00:52:51.951] } 1571s [00:52:51.951] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1571s [00:52:51.951] future.globals.maxSize = NULL, future.globals.method = NULL, 1571s [00:52:51.951] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1571s [00:52:51.951] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1571s [00:52:51.951] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1571s [00:52:51.951] future.stdout.windows.reencode = NULL, width = 80L) 1571s [00:52:51.951] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1571s [00:52:51.951] base::names(...future.oldOptions)) 1571s [00:52:51.951] } 1571s [00:52:51.951] if (FALSE) { 1571s [00:52:51.951] } 1571s [00:52:51.951] else { 1571s [00:52:51.951] if (TRUE) { 1571s [00:52:51.951] ...future.stdout <- base::rawConnection(base::raw(0L), 1571s [00:52:51.951] open = "w") 1571s [00:52:51.951] } 1571s [00:52:51.951] else { 1571s [00:52:51.951] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1571s [00:52:51.951] windows = "NUL", "/dev/null"), open = "w") 1571s [00:52:51.951] } 1571s [00:52:51.951] base::sink(...future.stdout, type = "output", split = FALSE) 1571s [00:52:51.951] base::on.exit(if (!base::is.null(...future.stdout)) { 1571s [00:52:51.951] base::sink(type = "output", split = FALSE) 1571s [00:52:51.951] base::close(...future.stdout) 1571s [00:52:51.951] }, add = TRUE) 1571s [00:52:51.951] } 1571s [00:52:51.951] ...future.frame <- base::sys.nframe() 1571s [00:52:51.951] ...future.conditions <- base::list() 1571s [00:52:51.951] ...future.rng <- base::globalenv()$.Random.seed 1571s [00:52:51.951] if (FALSE) { 1571s [00:52:51.951] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1571s [00:52:51.951] "...future.value", "...future.globalenv.names", ".Random.seed") 1571s [00:52:51.951] } 1571s [00:52:51.951] ...future.result <- base::tryCatch({ 1571s [00:52:51.951] base::withCallingHandlers({ 1571s [00:52:51.951] ...future.value <- base::withVisible(base::local({ 1571s [00:52:51.951] do.call(function(...) { 1571s [00:52:51.951] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1571s [00:52:51.951] if (!identical(...future.globals.maxSize.org, 1571s [00:52:51.951] ...future.globals.maxSize)) { 1571s [00:52:51.951] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1571s [00:52:51.951] on.exit(options(oopts), add = TRUE) 1571s [00:52:51.951] } 1571s [00:52:51.951] { 1571s [00:52:51.951] lapply(seq_along(...future.elements_ii), 1571s [00:52:51.951] FUN = function(jj) { 1571s [00:52:51.951] ...future.X_jj <- ...future.elements_ii[[jj]] 1571s [00:52:51.951] ...future.FUN(...future.X_jj, ...) 1571s [00:52:51.951] }) 1571s [00:52:51.951] } 1571s [00:52:51.951] }, args = future.call.arguments) 1571s [00:52:51.951] })) 1571s [00:52:51.951] future::FutureResult(value = ...future.value$value, 1571s [00:52:51.951] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1571s [00:52:51.951] ...future.rng), globalenv = if (FALSE) 1571s [00:52:51.951] list(added = base::setdiff(base::names(base::.GlobalEnv), 1571s [00:52:51.951] ...future.globalenv.names)) 1571s [00:52:51.951] else NULL, started = ...future.startTime, version = "1.8") 1571s [00:52:51.951] }, condition = base::local({ 1571s [00:52:51.951] c <- base::c 1571s [00:52:51.951] inherits <- base::inherits 1571s [00:52:51.951] invokeRestart <- base::invokeRestart 1571s [00:52:51.951] length <- base::length 1571s [00:52:51.951] list <- base::list 1571s [00:52:51.951] seq.int <- base::seq.int 1571s [00:52:51.951] signalCondition <- base::signalCondition 1571s [00:52:51.951] sys.calls <- base::sys.calls 1571s [00:52:51.951] `[[` <- base::`[[` 1571s [00:52:51.951] `+` <- base::`+` 1571s [00:52:51.951] `<<-` <- base::`<<-` 1571s [00:52:51.951] sysCalls <- function(calls = sys.calls(), from = 1L) { 1571s [00:52:51.951] calls[seq.int(from = from + 12L, to = length(calls) - 1571s [00:52:51.951] 3L)] 1571s [00:52:51.951] } 1571s [00:52:51.951] function(cond) { 1571s [00:52:51.951] is_error <- inherits(cond, "error") 1571s [00:52:51.951] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1571s [00:52:51.951] NULL) 1571s [00:52:51.951] if (is_error) { 1571s [00:52:51.951] sessionInformation <- function() { 1571s [00:52:51.951] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1571s [00:52:51.951] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1571s [00:52:51.951] search = base::search(), system = base::Sys.info()) 1571s [00:52:51.951] } 1571s [00:52:51.951] ...future.conditions[[length(...future.conditions) + 1571s [00:52:51.951] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1571s [00:52:51.951] cond$call), session = sessionInformation(), 1571s [00:52:51.951] timestamp = base::Sys.time(), signaled = 0L) 1571s [00:52:51.951] signalCondition(cond) 1571s [00:52:51.951] } 1571s [00:52:51.951] else if (!ignore && TRUE && inherits(cond, c("condition", 1571s [00:52:51.951] "immediateCondition"))) { 1571s [00:52:51.951] signal <- TRUE && inherits(cond, "immediateCondition") 1571s [00:52:51.951] ...future.conditions[[length(...future.conditions) + 1571s [00:52:51.951] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1571s [00:52:51.951] if (TRUE && !signal) { 1571s [00:52:51.951] muffleCondition <- function (cond, pattern = "^muffle") 1571s [00:52:51.951] { 1571s [00:52:51.951] inherits <- base::inherits 1571s [00:52:51.951] invokeRestart <- base::invokeRestart 1571s [00:52:51.951] is.null <- base::is.null 1571s [00:52:51.951] muffled <- FALSE 1571s [00:52:51.951] if (inherits(cond, "message")) { 1571s [00:52:51.951] muffled <- grepl(pattern, "muffleMessage") 1571s [00:52:51.951] if (muffled) 1571s [00:52:51.951] invokeRestart("muffleMessage") 1571s [00:52:51.951] } 1571s [00:52:51.951] else if (inherits(cond, "warning")) { 1571s [00:52:51.951] muffled <- grepl(pattern, "muffleWarning") 1571s [00:52:51.951] if (muffled) 1571s [00:52:51.951] invokeRestart("muffleWarning") 1571s [00:52:51.951] } 1571s [00:52:51.951] else if (inherits(cond, "condition")) { 1571s [00:52:51.951] if (!is.null(pattern)) { 1571s [00:52:51.951] computeRestarts <- base::computeRestarts 1571s [00:52:51.951] grepl <- base::grepl 1571s [00:52:51.951] restarts <- computeRestarts(cond) 1571s [00:52:51.951] for (restart in restarts) { 1571s [00:52:51.951] name <- restart$name 1571s [00:52:51.951] if (is.null(name)) 1571s [00:52:51.951] next 1571s [00:52:51.951] if (!grepl(pattern, name)) 1571s [00:52:51.951] next 1571s [00:52:51.951] invokeRestart(restart) 1571s [00:52:51.951] muffled <- TRUE 1571s [00:52:51.951] break 1571s [00:52:51.951] } 1571s [00:52:51.951] } 1571s [00:52:51.951] } 1571s [00:52:51.951] invisible(muffled) 1571s [00:52:51.951] } 1571s [00:52:51.951] muffleCondition(cond, pattern = "^muffle") 1571s [00:52:51.951] } 1571s [00:52:51.951] } 1571s [00:52:51.951] else { 1571s [00:52:51.951] if (TRUE) { 1571s [00:52:51.951] muffleCondition <- function (cond, pattern = "^muffle") 1571s [00:52:51.951] { 1571s [00:52:51.951] inherits <- base::inherits 1571s [00:52:51.951] invokeRestart <- base::invokeRestart 1571s [00:52:51.951] is.null <- base::is.null 1571s [00:52:51.951] muffled <- FALSE 1571s [00:52:51.951] if (inherits(cond, "message")) { 1571s [00:52:51.951] muffled <- grepl(pattern, "muffleMessage") 1571s [00:52:51.951] if (muffled) 1571s [00:52:51.951] invokeRestart("muffleMessage") 1571s [00:52:51.951] } 1571s [00:52:51.951] else if (inherits(cond, "warning")) { 1571s [00:52:51.951] muffled <- grepl(pattern, "muffleWarning") 1571s [00:52:51.951] if (muffled) 1571s [00:52:51.951] invokeRestart("muffleWarning") 1571s [00:52:51.951] } 1571s [00:52:51.951] else if (inherits(cond, "condition")) { 1571s [00:52:51.951] if (!is.null(pattern)) { 1571s [00:52:51.951] computeRestarts <- base::computeRestarts 1571s [00:52:51.951] grepl <- base::grepl 1571s [00:52:51.951] restarts <- computeRestarts(cond) 1571s [00:52:51.951] for (restart in restarts) { 1571s [00:52:51.951] name <- restart$name 1571s [00:52:51.951] if (is.null(name)) 1571s [00:52:51.951] next 1571s [00:52:51.951] if (!grepl(pattern, name)) 1571s [00:52:51.951] next 1571s [00:52:51.951] invokeRestart(restart) 1571s [00:52:51.951] muffled <- TRUE 1571s [00:52:51.951] break 1571s [00:52:51.951] } 1571s [00:52:51.951] } 1571s [00:52:51.951] } 1571s [00:52:51.951] invisible(muffled) 1571s [00:52:51.951] } 1571s [00:52:51.951] muffleCondition(cond, pattern = "^muffle") 1571s [00:52:51.951] } 1571s [00:52:51.951] } 1571s [00:52:51.951] } 1571s [00:52:51.951] })) 1571s [00:52:51.951] }, error = function(ex) { 1571s [00:52:51.951] base::structure(base::list(value = NULL, visible = NULL, 1571s [00:52:51.951] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1571s [00:52:51.951] ...future.rng), started = ...future.startTime, 1571s [00:52:51.951] finished = Sys.time(), session_uuid = NA_character_, 1571s [00:52:51.951] version = "1.8"), class = "FutureResult") 1571s [00:52:51.951] }, finally = { 1571s [00:52:51.951] if (!identical(...future.workdir, getwd())) 1571s [00:52:51.951] setwd(...future.workdir) 1571s [00:52:51.951] { 1571s [00:52:51.951] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1571s [00:52:51.951] ...future.oldOptions$nwarnings <- NULL 1571s [00:52:51.951] } 1571s [00:52:51.951] base::options(...future.oldOptions) 1571s [00:52:51.951] if (.Platform$OS.type == "windows") { 1571s [00:52:51.951] old_names <- names(...future.oldEnvVars) 1571s [00:52:51.951] envs <- base::Sys.getenv() 1571s [00:52:51.951] names <- names(envs) 1571s [00:52:51.951] common <- intersect(names, old_names) 1571s [00:52:51.951] added <- setdiff(names, old_names) 1571s [00:52:51.951] removed <- setdiff(old_names, names) 1571s [00:52:51.951] changed <- common[...future.oldEnvVars[common] != 1571s [00:52:51.951] envs[common]] 1571s [00:52:51.951] NAMES <- toupper(changed) 1571s [00:52:51.951] args <- list() 1571s [00:52:51.951] for (kk in seq_along(NAMES)) { 1571s [00:52:51.951] name <- changed[[kk]] 1571s [00:52:51.951] NAME <- NAMES[[kk]] 1571s [00:52:51.951] if (name != NAME && is.element(NAME, old_names)) 1571s [00:52:51.951] next 1571s [00:52:51.951] args[[name]] <- ...future.oldEnvVars[[name]] 1571s [00:52:51.951] } 1571s [00:52:51.951] NAMES <- toupper(added) 1571s [00:52:51.951] for (kk in seq_along(NAMES)) { 1571s [00:52:51.951] name <- added[[kk]] 1571s [00:52:51.951] NAME <- NAMES[[kk]] 1571s [00:52:51.951] if (name != NAME && is.element(NAME, old_names)) 1571s [00:52:51.951] next 1571s [00:52:51.951] args[[name]] <- "" 1571s [00:52:51.951] } 1571s [00:52:51.951] NAMES <- toupper(removed) 1571s [00:52:51.951] for (kk in seq_along(NAMES)) { 1571s [00:52:51.951] name <- removed[[kk]] 1571s [00:52:51.951] NAME <- NAMES[[kk]] 1571s [00:52:51.951] if (name != NAME && is.element(NAME, old_names)) 1571s [00:52:51.951] next 1571s [00:52:51.951] args[[name]] <- ...future.oldEnvVars[[name]] 1571s [00:52:51.951] } 1571s [00:52:51.951] if (length(args) > 0) 1571s [00:52:51.951] base::do.call(base::Sys.setenv, args = args) 1571s [00:52:51.951] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1571s [00:52:51.951] } 1571s [00:52:51.951] else { 1571s [00:52:51.951] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1571s [00:52:51.951] } 1571s [00:52:51.951] { 1571s [00:52:51.951] if (base::length(...future.futureOptionsAdded) > 1571s [00:52:51.951] 0L) { 1571s [00:52:51.951] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1571s [00:52:51.951] base::names(opts) <- ...future.futureOptionsAdded 1571s [00:52:51.951] base::options(opts) 1571s [00:52:51.951] } 1571s [00:52:51.951] { 1571s [00:52:51.951] { 1571s [00:52:51.951] NULL 1571s [00:52:51.951] RNGkind("Mersenne-Twister") 1571s [00:52:51.951] base::rm(list = ".Random.seed", envir = base::globalenv(), 1571s [00:52:51.951] inherits = FALSE) 1571s [00:52:51.951] } 1571s [00:52:51.951] options(future.plan = NULL) 1571s [00:52:51.951] if (is.na(NA_character_)) 1571s [00:52:51.951] Sys.unsetenv("R_FUTURE_PLAN") 1571s [00:52:51.951] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1571s [00:52:51.951] future::plan(list(function (..., envir = parent.frame()) 1571s [00:52:51.951] { 1571s [00:52:51.951] future <- SequentialFuture(..., envir = envir) 1571s [00:52:51.951] if (!future$lazy) 1571s [00:52:51.951] future <- run(future) 1571s [00:52:51.951] invisible(future) 1571s [00:52:51.951] }), .cleanup = FALSE, .init = FALSE) 1571s [00:52:51.951] } 1571s [00:52:51.951] } 1571s [00:52:51.951] } 1571s [00:52:51.951] }) 1571s [00:52:51.951] if (TRUE) { 1571s [00:52:51.951] base::sink(type = "output", split = FALSE) 1571s [00:52:51.951] if (TRUE) { 1571s [00:52:51.951] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1571s [00:52:51.951] } 1571s [00:52:51.951] else { 1571s [00:52:51.951] ...future.result["stdout"] <- base::list(NULL) 1571s [00:52:51.951] } 1571s [00:52:51.951] base::close(...future.stdout) 1571s [00:52:51.951] ...future.stdout <- NULL 1571s [00:52:51.951] } 1571s [00:52:51.951] ...future.result$conditions <- ...future.conditions 1571s [00:52:51.951] ...future.result$finished <- base::Sys.time() 1571s [00:52:51.951] ...future.result 1571s [00:52:51.951] } 1571s [00:52:51.958] assign_globals() ... 1572s [00:52:51.958] List of 5 1572s [00:52:51.958] $ ...future.FUN :function (x, ...) 1572s [00:52:51.958] $ future.call.arguments : list() 1572s [00:52:51.958] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1572s [00:52:51.958] $ ...future.elements_ii :List of 4 1572s [00:52:51.958] ..$ A: num 50 1572s [00:52:51.958] ..$ B: num 60 1572s [00:52:51.958] ..$ C: num 70 1572s [00:52:51.958] ..$ D: num 80 1572s [00:52:51.958] $ ...future.seeds_ii : NULL 1572s [00:52:51.958] $ ...future.globals.maxSize: NULL 1572s [00:52:51.958] - attr(*, "where")=List of 5 1572s [00:52:51.958] ..$ ...future.FUN : 1572s [00:52:51.958] ..$ future.call.arguments : 1572s [00:52:51.958] ..$ ...future.elements_ii : 1572s [00:52:51.958] ..$ ...future.seeds_ii : 1572s [00:52:51.958] ..$ ...future.globals.maxSize: 1572s [00:52:51.958] - attr(*, "resolved")= logi FALSE 1572s [00:52:51.958] - attr(*, "total_size")= num 1248 1572s [00:52:51.958] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1572s [00:52:51.958] - attr(*, "already-done")= logi TRUE 1572s [00:52:51.969] - copied ‘...future.FUN’ to environment 1572s [00:52:51.969] - copied ‘future.call.arguments’ to environment 1572s [00:52:51.969] - copied ‘...future.elements_ii’ to environment 1572s [00:52:51.969] - copied ‘...future.seeds_ii’ to environment 1572s [00:52:51.970] - copied ‘...future.globals.maxSize’ to environment 1572s [00:52:51.970] assign_globals() ... done 1572s [00:52:51.971] plan(): Setting new future strategy stack: 1572s [00:52:51.971] List of future strategies: 1572s [00:52:51.971] 1. sequential: 1572s [00:52:51.971] - args: function (..., envir = parent.frame()) 1572s [00:52:51.971] - tweaked: FALSE 1572s [00:52:51.971] - call: NULL 1572s [00:52:51.972] plan(): nbrOfWorkers() = 1 1572s [00:52:51.973] plan(): Setting new future strategy stack: 1572s [00:52:51.974] List of future strategies: 1572s [00:52:51.974] 1. sequential: 1572s [00:52:51.974] - args: function (..., envir = parent.frame()) 1572s [00:52:51.974] - tweaked: FALSE 1572s [00:52:51.974] - call: plan(strategy) 1572s [00:52:51.974] plan(): nbrOfWorkers() = 1 1572s [00:52:51.975] SequentialFuture started (and completed) 1572s [00:52:51.975] - Launch lazy future ... done 1572s [00:52:51.975] run() for ‘SequentialFuture’ ... done 1572s [00:52:51.975] Created future: 1572s [00:52:51.975] SequentialFuture: 1572s [00:52:51.975] Label: ‘future_sapply-1’ 1572s [00:52:51.975] Expression: 1572s [00:52:51.975] { 1572s [00:52:51.975] do.call(function(...) { 1572s [00:52:51.975] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1572s [00:52:51.975] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1572s [00:52:51.975] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1572s [00:52:51.975] on.exit(options(oopts), add = TRUE) 1572s [00:52:51.975] } 1572s [00:52:51.975] { 1572s [00:52:51.975] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1572s [00:52:51.975] ...future.X_jj <- ...future.elements_ii[[jj]] 1572s [00:52:51.975] ...future.FUN(...future.X_jj, ...) 1572s [00:52:51.975] }) 1572s [00:52:51.975] } 1572s [00:52:51.975] }, args = future.call.arguments) 1572s [00:52:51.975] } 1572s [00:52:51.975] Lazy evaluation: FALSE 1572s [00:52:51.975] Asynchronous evaluation: FALSE 1572s [00:52:51.975] Local evaluation: TRUE 1572s [00:52:51.975] Environment: R_GlobalEnv 1572s [00:52:51.975] Capture standard output: TRUE 1572s [00:52:51.975] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1572s [00:52:51.975] Globals: 5 objects totaling 1.44 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1572s [00:52:51.975] Packages: 1572s [00:52:51.975] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1572s [00:52:51.975] Resolved: TRUE 1572s [00:52:51.975] Value: 896 bytes of class ‘list’ 1572s [00:52:51.975] Early signaling: FALSE 1572s [00:52:51.975] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1572s [00:52:51.975] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1572s [00:52:51.977] Chunk #1 of 1 ... DONE 1572s [00:52:51.978] Launching 1 futures (chunks) ... DONE 1572s [00:52:51.978] Resolving 1 futures (chunks) ... 1572s [00:52:51.978] resolve() on list ... 1572s [00:52:51.978] recursive: 0 1572s [00:52:51.979] length: 1 1572s [00:52:51.979] 1572s [00:52:51.979] resolved() for ‘SequentialFuture’ ... 1572s [00:52:51.979] - state: ‘finished’ 1572s [00:52:51.979] - run: TRUE 1572s [00:52:51.979] - result: ‘FutureResult’ 1572s [00:52:51.980] resolved() for ‘SequentialFuture’ ... done 1572s [00:52:51.980] Future #1 1572s [00:52:51.980] signalConditionsASAP(SequentialFuture, pos=1) ... 1572s [00:52:51.981] - nx: 1 1572s [00:52:51.981] - relay: TRUE 1572s [00:52:51.981] - stdout: TRUE 1572s [00:52:51.981] - signal: TRUE 1572s [00:52:51.982] - resignal: FALSE 1572s [00:52:51.982] - force: TRUE 1572s [00:52:51.982] - relayed: [n=1] FALSE 1572s [00:52:51.982] - queued futures: [n=1] FALSE 1572s [00:52:51.982] - until=1 1572s [00:52:51.983] - relaying element #1 1572s [00:52:51.983] - relayed: [n=1] TRUE 1572s [00:52:51.983] - queued futures: [n=1] TRUE 1572s [00:52:51.983] signalConditionsASAP(SequentialFuture, pos=1) ... done 1572s [00:52:51.983] length: 0 (resolved future 1) 1572s [00:52:51.983] Relaying remaining futures 1572s [00:52:51.984] signalConditionsASAP(NULL, pos=0) ... 1572s [00:52:51.984] - nx: 1 1572s [00:52:51.984] - relay: TRUE 1572s [00:52:51.984] - stdout: TRUE 1572s [00:52:51.984] - signal: TRUE 1572s [00:52:51.985] - resignal: FALSE 1572s [00:52:51.985] - force: TRUE 1572s [00:52:51.985] - relayed: [n=1] TRUE 1572s [00:52:51.985] - queued futures: [n=1] TRUE 1572s - flush all 1572s [00:52:51.985] - relayed: [n=1] TRUE 1572s [00:52:51.985] - queued futures: [n=1] TRUE 1572s [00:52:51.985] signalConditionsASAP(NULL, pos=0) ... done 1572s [00:52:51.986] resolve() on list ... DONE 1572s [00:52:51.986] - Number of value chunks collected: 1 1572s [00:52:51.986] Resolving 1 futures (chunks) ... DONE 1572s [00:52:51.987] Reducing values from 1 chunks ... 1572s [00:52:51.987] - Number of values collected after concatenation: 4 1572s List of 2 1572s $ y0:List of 4 1572s ..$ A: num [1, 1] 50 1572s ..$ [00:52:51.987] - Number of values expected: 4 1572s [00:52:51.987] Reducing values from 1 chunks ... DONE 1572s [00:52:51.987] future_lapply() ... DONE 1572s B: num [1, 1] 60 1572s ..$ C: num [1, 1] 70 1572s ..$ D: num [1, 1] 80 1572s $ y1:List of 4 1572s ..$ A: num [1, 1] 50 1572s ..$ B: num [1, 1] 60 1572s ..$ C: num [1, 1] 70 1572s ..$ D: num [1, 1] 80 1572s List of 2 1572s $ y0:List of 4 1572s ..$ A: num [1, 1] 50 1572s ..$ B: num [1, 1] 60 1572s ..$ C: num [1, 1] 70 1572s ..$ D: num [1, 1] 80 1572s $ y2:List of 4 1572s ..$ A: num [1, 1] 50 1572s ..$ B: num [1, 1] 60 1572s ..$ C: num [1, 1] 70 1572s ..$ D: num [1, 1] 80 1572s [00:52:52.012] future_lapply() ... 1572s [00:52:52.013] Number of chunks: 1 1572s [00:52:52.013] getGlobalsAndPackagesXApply() ... 1572s [00:52:52.014] - future.globals: TRUE 1572s [00:52:52.014] getGlobalsAndPackages() ... 1572s [00:52:52.014] Searching for globals... 1572s [00:52:52.016] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1572s [00:52:52.016] Searching for globals ... DONE 1572s [00:52:52.017] Resolving globals: FALSE 1572s [00:52:52.017] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1572s [00:52:52.018] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1572s [00:52:52.018] - globals: [1] ‘FUN’ 1572s [00:52:52.018] 1572s [00:52:52.019] getGlobalsAndPackages() ... DONE 1572s [00:52:52.019] - globals found/used: [n=1] ‘FUN’ 1572s [00:52:52.019] - needed namespaces: [n=0] 1572s [00:52:52.019] Finding globals ... DONE 1572s [00:52:52.019] - use_args: TRUE 1572s [00:52:52.020] - Getting '...' globals ... 1572s [00:52:52.020] resolve() on list ... 1572s [00:52:52.020] recursive: 0 1572s [00:52:52.021] length: 1 1572s [00:52:52.021] elements: ‘...’ 1572s [00:52:52.021] length: 0 (resolved future 1) 1572s [00:52:52.021] resolve() on list ... DONE 1572s [00:52:52.021] - '...' content: [n=0] 1572s [00:52:52.021] List of 1 1572s [00:52:52.021] $ ...: list() 1572s [00:52:52.021] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1572s [00:52:52.021] - attr(*, "where")=List of 1 1572s [00:52:52.021] ..$ ...: 1572s [00:52:52.021] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1572s [00:52:52.021] - attr(*, "resolved")= logi TRUE 1572s [00:52:52.021] - attr(*, "total_size")= num NA 1572s [00:52:52.025] - Getting '...' globals ... DONE 1572s [00:52:52.025] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1572s [00:52:52.025] List of 2 1572s [00:52:52.025] $ ...future.FUN:function (x, y = 2 * 1:5) 1572s [00:52:52.025] $ ... : list() 1572s [00:52:52.025] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1572s [00:52:52.025] - attr(*, "where")=List of 2 1572s [00:52:52.025] ..$ ...future.FUN: 1572s [00:52:52.025] ..$ ... : 1572s [00:52:52.025] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1572s [00:52:52.025] - attr(*, "resolved")= logi FALSE 1572s [00:52:52.025] - attr(*, "total_size")= num 4728 1572s [00:52:52.029] Packages to be attached in all futures: [n=0] 1572s [00:52:52.029] getGlobalsAndPackagesXApply() ... DONE 1572s [00:52:52.029] Number of futures (= number of chunks): 1 1572s [00:52:52.030] Launching 1 futures (chunks) ... 1572s [00:52:52.030] Chunk #1 of 1 ... 1572s [00:52:52.030] - Finding globals in 'X' for chunk #1 ... 1572s [00:52:52.030] getGlobalsAndPackages() ... 1572s [00:52:52.030] Searching for globals... 1572s [00:52:52.031] 1572s [00:52:52.031] Searching for globals ... DONE 1572s [00:52:52.031] - globals: [0] 1572s [00:52:52.031] getGlobalsAndPackages() ... DONE 1572s [00:52:52.032] + additional globals found: [n=0] 1572s [00:52:52.035] + additional namespaces needed: [n=0] 1572s [00:52:52.036] - Finding globals in 'X' for chunk #1 ... DONE 1572s [00:52:52.036] - seeds: 1572s [00:52:52.036] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1572s [00:52:52.036] getGlobalsAndPackages() ... 1572s [00:52:52.036] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1572s [00:52:52.037] Resolving globals: FALSE 1572s [00:52:52.037] Tweak future expression to call with '...' arguments ... 1572s [00:52:52.037] { 1572s [00:52:52.037] do.call(function(...) { 1572s [00:52:52.037] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1572s [00:52:52.037] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1572s [00:52:52.037] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1572s [00:52:52.037] on.exit(options(oopts), add = TRUE) 1572s [00:52:52.037] } 1572s [00:52:52.037] { 1572s [00:52:52.037] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1572s [00:52:52.037] ...future.X_jj <- ...future.elements_ii[[jj]] 1572s [00:52:52.037] ...future.FUN(...future.X_jj, ...) 1572s [00:52:52.037] }) 1572s [00:52:52.037] } 1572s [00:52:52.037] }, args = future.call.arguments) 1572s [00:52:52.037] } 1572s [00:52:52.038] Tweak future expression to call with '...' arguments ... DONE 1572s [00:52:52.038] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1572s [00:52:52.039] 1572s [00:52:52.039] getGlobalsAndPackages() ... DONE 1572s [00:52:52.039] run() for ‘Future’ ... 1572s [00:52:52.039] - state: ‘created’ 1572s [00:52:52.040] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1572s [00:52:52.040] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1572s [00:52:52.040] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1572s [00:52:52.041] - Field: ‘label’ 1572s [00:52:52.041] - Field: ‘local’ 1572s [00:52:52.041] - Field: ‘owner’ 1572s [00:52:52.041] - Field: ‘envir’ 1572s [00:52:52.041] - Field: ‘packages’ 1572s [00:52:52.042] - Field: ‘gc’ 1572s [00:52:52.042] - Field: ‘conditions’ 1572s [00:52:52.042] - Field: ‘expr’ 1572s [00:52:52.042] - Field: ‘uuid’ 1572s [00:52:52.042] - Field: ‘seed’ 1572s [00:52:52.042] - Field: ‘version’ 1572s [00:52:52.043] - Field: ‘result’ 1572s [00:52:52.043] - Field: ‘asynchronous’ 1572s [00:52:52.043] - Field: ‘calls’ 1572s [00:52:52.043] - Field: ‘globals’ 1572s [00:52:52.043] - Field: ‘stdout’ 1572s [00:52:52.043] - Field: ‘earlySignal’ 1572s [00:52:52.043] - Field: ‘lazy’ 1572s [00:52:52.044] - Field: ‘state’ 1572s [00:52:52.044] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1572s [00:52:52.044] - Launch lazy future ... 1572s [00:52:52.044] Packages needed by the future expression (n = 0): 1572s [00:52:52.044] Packages needed by future strategies (n = 0): 1572s [00:52:52.045] { 1572s [00:52:52.045] { 1572s [00:52:52.045] { 1572s [00:52:52.045] ...future.startTime <- base::Sys.time() 1572s [00:52:52.045] { 1572s [00:52:52.045] { 1572s [00:52:52.045] { 1572s [00:52:52.045] base::local({ 1572s [00:52:52.045] has_future <- base::requireNamespace("future", 1572s [00:52:52.045] quietly = TRUE) 1572s [00:52:52.045] if (has_future) { 1572s [00:52:52.045] ns <- base::getNamespace("future") 1572s [00:52:52.045] version <- ns[[".package"]][["version"]] 1572s [00:52:52.045] if (is.null(version)) 1572s [00:52:52.045] version <- utils::packageVersion("future") 1572s [00:52:52.045] } 1572s [00:52:52.045] else { 1572s [00:52:52.045] version <- NULL 1572s [00:52:52.045] } 1572s [00:52:52.045] if (!has_future || version < "1.8.0") { 1572s [00:52:52.045] info <- base::c(r_version = base::gsub("R version ", 1572s [00:52:52.045] "", base::R.version$version.string), 1572s [00:52:52.045] platform = base::sprintf("%s (%s-bit)", 1572s [00:52:52.045] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1572s [00:52:52.045] os = base::paste(base::Sys.info()[base::c("sysname", 1572s [00:52:52.045] "release", "version")], collapse = " "), 1572s [00:52:52.045] hostname = base::Sys.info()[["nodename"]]) 1572s [00:52:52.045] info <- base::sprintf("%s: %s", base::names(info), 1572s [00:52:52.045] info) 1572s [00:52:52.045] info <- base::paste(info, collapse = "; ") 1572s [00:52:52.045] if (!has_future) { 1572s [00:52:52.045] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1572s [00:52:52.045] info) 1572s [00:52:52.045] } 1572s [00:52:52.045] else { 1572s [00:52:52.045] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1572s [00:52:52.045] info, version) 1572s [00:52:52.045] } 1572s [00:52:52.045] base::stop(msg) 1572s [00:52:52.045] } 1572s [00:52:52.045] }) 1572s [00:52:52.045] } 1572s [00:52:52.045] options(future.plan = NULL) 1572s [00:52:52.045] Sys.unsetenv("R_FUTURE_PLAN") 1572s [00:52:52.045] future::plan("default", .cleanup = FALSE, .init = FALSE) 1572s [00:52:52.045] } 1572s [00:52:52.045] ...future.workdir <- getwd() 1572s [00:52:52.045] } 1572s [00:52:52.045] ...future.oldOptions <- base::as.list(base::.Options) 1572s [00:52:52.045] ...future.oldEnvVars <- base::Sys.getenv() 1572s [00:52:52.045] } 1572s [00:52:52.045] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1572s [00:52:52.045] future.globals.maxSize = NULL, future.globals.method = NULL, 1572s [00:52:52.045] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1572s [00:52:52.045] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1572s [00:52:52.045] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1572s [00:52:52.045] future.stdout.windows.reencode = NULL, width = 80L) 1572s [00:52:52.045] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1572s [00:52:52.045] base::names(...future.oldOptions)) 1572s [00:52:52.045] } 1572s [00:52:52.045] if (FALSE) { 1572s [00:52:52.045] } 1572s [00:52:52.045] else { 1572s [00:52:52.045] if (TRUE) { 1572s [00:52:52.045] ...future.stdout <- base::rawConnection(base::raw(0L), 1572s [00:52:52.045] open = "w") 1572s [00:52:52.045] } 1572s [00:52:52.045] else { 1572s [00:52:52.045] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1572s [00:52:52.045] windows = "NUL", "/dev/null"), open = "w") 1572s [00:52:52.045] } 1572s [00:52:52.045] base::sink(...future.stdout, type = "output", split = FALSE) 1572s [00:52:52.045] base::on.exit(if (!base::is.null(...future.stdout)) { 1572s [00:52:52.045] base::sink(type = "output", split = FALSE) 1572s [00:52:52.045] base::close(...future.stdout) 1572s [00:52:52.045] }, add = TRUE) 1572s [00:52:52.045] } 1572s [00:52:52.045] ...future.frame <- base::sys.nframe() 1572s [00:52:52.045] ...future.conditions <- base::list() 1572s [00:52:52.045] ...future.rng <- base::globalenv()$.Random.seed 1572s [00:52:52.045] if (FALSE) { 1572s [00:52:52.045] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1572s [00:52:52.045] "...future.value", "...future.globalenv.names", ".Random.seed") 1572s [00:52:52.045] } 1572s [00:52:52.045] ...future.result <- base::tryCatch({ 1572s [00:52:52.045] base::withCallingHandlers({ 1572s [00:52:52.045] ...future.value <- base::withVisible(base::local({ 1572s [00:52:52.045] do.call(function(...) { 1572s [00:52:52.045] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1572s [00:52:52.045] if (!identical(...future.globals.maxSize.org, 1572s [00:52:52.045] ...future.globals.maxSize)) { 1572s [00:52:52.045] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1572s [00:52:52.045] on.exit(options(oopts), add = TRUE) 1572s [00:52:52.045] } 1572s [00:52:52.045] { 1572s [00:52:52.045] lapply(seq_along(...future.elements_ii), 1572s [00:52:52.045] FUN = function(jj) { 1572s [00:52:52.045] ...future.X_jj <- ...future.elements_ii[[jj]] 1572s [00:52:52.045] ...future.FUN(...future.X_jj, ...) 1572s [00:52:52.045] }) 1572s [00:52:52.045] } 1572s [00:52:52.045] }, args = future.call.arguments) 1572s [00:52:52.045] })) 1572s [00:52:52.045] future::FutureResult(value = ...future.value$value, 1572s [00:52:52.045] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1572s [00:52:52.045] ...future.rng), globalenv = if (FALSE) 1572s [00:52:52.045] list(added = base::setdiff(base::names(base::.GlobalEnv), 1572s [00:52:52.045] ...future.globalenv.names)) 1572s [00:52:52.045] else NULL, started = ...future.startTime, version = "1.8") 1572s [00:52:52.045] }, condition = base::local({ 1572s [00:52:52.045] c <- base::c 1572s [00:52:52.045] inherits <- base::inherits 1572s [00:52:52.045] invokeRestart <- base::invokeRestart 1572s [00:52:52.045] length <- base::length 1572s [00:52:52.045] list <- base::list 1572s [00:52:52.045] seq.int <- base::seq.int 1572s [00:52:52.045] signalCondition <- base::signalCondition 1572s [00:52:52.045] sys.calls <- base::sys.calls 1572s [00:52:52.045] `[[` <- base::`[[` 1572s [00:52:52.045] `+` <- base::`+` 1572s [00:52:52.045] `<<-` <- base::`<<-` 1572s [00:52:52.045] sysCalls <- function(calls = sys.calls(), from = 1L) { 1572s [00:52:52.045] calls[seq.int(from = from + 12L, to = length(calls) - 1572s [00:52:52.045] 3L)] 1572s [00:52:52.045] } 1572s [00:52:52.045] function(cond) { 1572s [00:52:52.045] is_error <- inherits(cond, "error") 1572s [00:52:52.045] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1572s [00:52:52.045] NULL) 1572s [00:52:52.045] if (is_error) { 1572s [00:52:52.045] sessionInformation <- function() { 1572s [00:52:52.045] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1572s [00:52:52.045] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1572s [00:52:52.045] search = base::search(), system = base::Sys.info()) 1572s [00:52:52.045] } 1572s [00:52:52.045] ...future.conditions[[length(...future.conditions) + 1572s [00:52:52.045] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1572s [00:52:52.045] cond$call), session = sessionInformation(), 1572s [00:52:52.045] timestamp = base::Sys.time(), signaled = 0L) 1572s [00:52:52.045] signalCondition(cond) 1572s [00:52:52.045] } 1572s [00:52:52.045] else if (!ignore && TRUE && inherits(cond, c("condition", 1572s [00:52:52.045] "immediateCondition"))) { 1572s [00:52:52.045] signal <- TRUE && inherits(cond, "immediateCondition") 1572s [00:52:52.045] ...future.conditions[[length(...future.conditions) + 1572s [00:52:52.045] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1572s [00:52:52.045] if (TRUE && !signal) { 1572s [00:52:52.045] muffleCondition <- function (cond, pattern = "^muffle") 1572s [00:52:52.045] { 1572s [00:52:52.045] inherits <- base::inherits 1572s [00:52:52.045] invokeRestart <- base::invokeRestart 1572s [00:52:52.045] is.null <- base::is.null 1572s [00:52:52.045] muffled <- FALSE 1572s [00:52:52.045] if (inherits(cond, "message")) { 1572s [00:52:52.045] muffled <- grepl(pattern, "muffleMessage") 1572s [00:52:52.045] if (muffled) 1572s [00:52:52.045] invokeRestart("muffleMessage") 1572s [00:52:52.045] } 1572s [00:52:52.045] else if (inherits(cond, "warning")) { 1572s [00:52:52.045] muffled <- grepl(pattern, "muffleWarning") 1572s [00:52:52.045] if (muffled) 1572s [00:52:52.045] invokeRestart("muffleWarning") 1572s [00:52:52.045] } 1572s [00:52:52.045] else if (inherits(cond, "condition")) { 1572s [00:52:52.045] if (!is.null(pattern)) { 1572s [00:52:52.045] computeRestarts <- base::computeRestarts 1572s [00:52:52.045] grepl <- base::grepl 1572s [00:52:52.045] restarts <- computeRestarts(cond) 1572s [00:52:52.045] for (restart in restarts) { 1572s [00:52:52.045] name <- restart$name 1572s [00:52:52.045] if (is.null(name)) 1572s [00:52:52.045] next 1572s [00:52:52.045] if (!grepl(pattern, name)) 1572s [00:52:52.045] next 1572s [00:52:52.045] invokeRestart(restart) 1572s [00:52:52.045] muffled <- TRUE 1572s [00:52:52.045] break 1572s [00:52:52.045] } 1572s [00:52:52.045] } 1572s [00:52:52.045] } 1572s [00:52:52.045] invisible(muffled) 1572s [00:52:52.045] } 1572s [00:52:52.045] muffleCondition(cond, pattern = "^muffle") 1572s [00:52:52.045] } 1572s [00:52:52.045] } 1572s [00:52:52.045] else { 1572s [00:52:52.045] if (TRUE) { 1572s [00:52:52.045] muffleCondition <- function (cond, pattern = "^muffle") 1572s [00:52:52.045] { 1572s [00:52:52.045] inherits <- base::inherits 1572s [00:52:52.045] invokeRestart <- base::invokeRestart 1572s [00:52:52.045] is.null <- base::is.null 1572s [00:52:52.045] muffled <- FALSE 1572s [00:52:52.045] if (inherits(cond, "message")) { 1572s [00:52:52.045] muffled <- grepl(pattern, "muffleMessage") 1572s [00:52:52.045] if (muffled) 1572s [00:52:52.045] invokeRestart("muffleMessage") 1572s [00:52:52.045] } 1572s [00:52:52.045] else if (inherits(cond, "warning")) { 1572s [00:52:52.045] muffled <- grepl(pattern, "muffleWarning") 1572s [00:52:52.045] if (muffled) 1572s [00:52:52.045] invokeRestart("muffleWarning") 1572s [00:52:52.045] } 1572s [00:52:52.045] else if (inherits(cond, "condition")) { 1572s [00:52:52.045] if (!is.null(pattern)) { 1572s [00:52:52.045] computeRestarts <- base::computeRestarts 1572s [00:52:52.045] grepl <- base::grepl 1572s [00:52:52.045] restarts <- computeRestarts(cond) 1572s [00:52:52.045] for (restart in restarts) { 1572s [00:52:52.045] name <- restart$name 1572s [00:52:52.045] if (is.null(name)) 1572s [00:52:52.045] next 1572s [00:52:52.045] if (!grepl(pattern, name)) 1572s [00:52:52.045] next 1572s [00:52:52.045] invokeRestart(restart) 1572s [00:52:52.045] muffled <- TRUE 1572s [00:52:52.045] break 1572s [00:52:52.045] } 1572s [00:52:52.045] } 1572s [00:52:52.045] } 1572s [00:52:52.045] invisible(muffled) 1572s [00:52:52.045] } 1572s [00:52:52.045] muffleCondition(cond, pattern = "^muffle") 1572s [00:52:52.045] } 1572s [00:52:52.045] } 1572s [00:52:52.045] } 1572s [00:52:52.045] })) 1572s [00:52:52.045] }, error = function(ex) { 1572s [00:52:52.045] base::structure(base::list(value = NULL, visible = NULL, 1572s [00:52:52.045] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1572s [00:52:52.045] ...future.rng), started = ...future.startTime, 1572s [00:52:52.045] finished = Sys.time(), session_uuid = NA_character_, 1572s [00:52:52.045] version = "1.8"), class = "FutureResult") 1572s [00:52:52.045] }, finally = { 1572s [00:52:52.045] if (!identical(...future.workdir, getwd())) 1572s [00:52:52.045] setwd(...future.workdir) 1572s [00:52:52.045] { 1572s [00:52:52.045] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1572s [00:52:52.045] ...future.oldOptions$nwarnings <- NULL 1572s [00:52:52.045] } 1572s [00:52:52.045] base::options(...future.oldOptions) 1572s [00:52:52.045] if (.Platform$OS.type == "windows") { 1572s [00:52:52.045] old_names <- names(...future.oldEnvVars) 1572s [00:52:52.045] envs <- base::Sys.getenv() 1572s [00:52:52.045] names <- names(envs) 1572s [00:52:52.045] common <- intersect(names, old_names) 1572s [00:52:52.045] added <- setdiff(names, old_names) 1572s [00:52:52.045] removed <- setdiff(old_names, names) 1572s [00:52:52.045] changed <- common[...future.oldEnvVars[common] != 1572s [00:52:52.045] envs[common]] 1572s [00:52:52.045] NAMES <- toupper(changed) 1572s [00:52:52.045] args <- list() 1572s [00:52:52.045] for (kk in seq_along(NAMES)) { 1572s [00:52:52.045] name <- changed[[kk]] 1572s [00:52:52.045] NAME <- NAMES[[kk]] 1572s [00:52:52.045] if (name != NAME && is.element(NAME, old_names)) 1572s [00:52:52.045] next 1572s [00:52:52.045] args[[name]] <- ...future.oldEnvVars[[name]] 1572s [00:52:52.045] } 1572s [00:52:52.045] NAMES <- toupper(added) 1572s [00:52:52.045] for (kk in seq_along(NAMES)) { 1572s [00:52:52.045] name <- added[[kk]] 1572s [00:52:52.045] NAME <- NAMES[[kk]] 1572s [00:52:52.045] if (name != NAME && is.element(NAME, old_names)) 1572s [00:52:52.045] next 1572s [00:52:52.045] args[[name]] <- "" 1572s [00:52:52.045] } 1572s [00:52:52.045] NAMES <- toupper(removed) 1572s [00:52:52.045] for (kk in seq_along(NAMES)) { 1572s [00:52:52.045] name <- removed[[kk]] 1572s [00:52:52.045] NAME <- NAMES[[kk]] 1572s [00:52:52.045] if (name != NAME && is.element(NAME, old_names)) 1572s [00:52:52.045] next 1572s [00:52:52.045] args[[name]] <- ...future.oldEnvVars[[name]] 1572s [00:52:52.045] } 1572s [00:52:52.045] if (length(args) > 0) 1572s [00:52:52.045] base::do.call(base::Sys.setenv, args = args) 1572s [00:52:52.045] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1572s [00:52:52.045] } 1572s [00:52:52.045] else { 1572s [00:52:52.045] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1572s [00:52:52.045] } 1572s [00:52:52.045] { 1572s [00:52:52.045] if (base::length(...future.futureOptionsAdded) > 1572s [00:52:52.045] 0L) { 1572s [00:52:52.045] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1572s [00:52:52.045] base::names(opts) <- ...future.futureOptionsAdded 1572s [00:52:52.045] base::options(opts) 1572s [00:52:52.045] } 1572s [00:52:52.045] { 1572s [00:52:52.045] { 1572s [00:52:52.045] NULL 1572s [00:52:52.045] RNGkind("Mersenne-Twister") 1572s [00:52:52.045] base::rm(list = ".Random.seed", envir = base::globalenv(), 1572s [00:52:52.045] inherits = FALSE) 1572s [00:52:52.045] } 1572s [00:52:52.045] options(future.plan = NULL) 1572s [00:52:52.045] if (is.na(NA_character_)) 1572s [00:52:52.045] Sys.unsetenv("R_FUTURE_PLAN") 1572s [00:52:52.045] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1572s [00:52:52.045] future::plan(list(function (..., envir = parent.frame()) 1572s [00:52:52.045] { 1572s [00:52:52.045] future <- SequentialFuture(..., envir = envir) 1572s [00:52:52.045] if (!future$lazy) 1572s [00:52:52.045] future <- run(future) 1572s [00:52:52.045] invisible(future) 1572s [00:52:52.045] }), .cleanup = FALSE, .init = FALSE) 1572s [00:52:52.045] } 1572s [00:52:52.045] } 1572s [00:52:52.045] } 1572s [00:52:52.045] }) 1572s [00:52:52.045] if (TRUE) { 1572s [00:52:52.045] base::sink(type = "output", split = FALSE) 1572s [00:52:52.045] if (TRUE) { 1572s [00:52:52.045] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1572s [00:52:52.045] } 1572s [00:52:52.045] else { 1572s [00:52:52.045] ...future.result["stdout"] <- base::list(NULL) 1572s [00:52:52.045] } 1572s [00:52:52.045] base::close(...future.stdout) 1572s [00:52:52.045] ...future.stdout <- NULL 1572s [00:52:52.045] } 1572s [00:52:52.045] ...future.result$conditions <- ...future.conditions 1572s [00:52:52.045] ...future.result$finished <- base::Sys.time() 1572s [00:52:52.045] ...future.result 1572s [00:52:52.045] } 1572s [00:52:52.048] assign_globals() ... 1572s [00:52:52.048] List of 5 1572s [00:52:52.048] $ ...future.FUN :function (x, y = 2 * 1:5) 1572s [00:52:52.048] $ future.call.arguments : list() 1572s [00:52:52.048] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1572s [00:52:52.048] $ ...future.elements_ii :List of 4 1572s [00:52:52.048] ..$ A: num 50 1572s [00:52:52.048] ..$ B: num 60 1572s [00:52:52.048] ..$ C: num 70 1572s [00:52:52.048] ..$ D: num 80 1572s [00:52:52.048] $ ...future.seeds_ii : NULL 1572s [00:52:52.048] $ ...future.globals.maxSize: NULL 1572s [00:52:52.048] - attr(*, "where")=List of 5 1572s [00:52:52.048] ..$ ...future.FUN : 1572s [00:52:52.048] ..$ future.call.arguments : 1572s [00:52:52.048] ..$ ...future.elements_ii : 1572s [00:52:52.048] ..$ ...future.seeds_ii : 1572s [00:52:52.048] ..$ ...future.globals.maxSize: 1572s [00:52:52.048] - attr(*, "resolved")= logi FALSE 1572s [00:52:52.048] - attr(*, "total_size")= num 4728 1572s [00:52:52.048] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1572s [00:52:52.048] - attr(*, "already-done")= logi TRUE 1572s [00:52:52.057] - reassign environment for ‘...future.FUN’ 1572s [00:52:52.057] - copied ‘...future.FUN’ to environment 1572s [00:52:52.057] - copied ‘future.call.arguments’ to environment 1572s [00:52:52.057] - copied ‘...future.elements_ii’ to environment 1572s [00:52:52.058] - copied ‘...future.seeds_ii’ to environment 1572s [00:52:52.058] - copied ‘...future.globals.maxSize’ to environment 1572s [00:52:52.058] assign_globals() ... done 1572s [00:52:52.058] plan(): Setting new future strategy stack: 1572s [00:52:52.058] List of future strategies: 1572s [00:52:52.058] 1. sequential: 1572s [00:52:52.058] - args: function (..., envir = parent.frame()) 1572s [00:52:52.058] - tweaked: FALSE 1572s [00:52:52.058] - call: NULL 1572s [00:52:52.059] plan(): nbrOfWorkers() = 1 1572s [00:52:52.060] plan(): Setting new future strategy stack: 1572s [00:52:52.060] List of future strategies: 1572s [00:52:52.060] 1. sequential: 1572s [00:52:52.060] - args: function (..., envir = parent.frame()) 1572s [00:52:52.060] - tweaked: FALSE 1572s [00:52:52.060] - call: plan(strategy) 1572s [00:52:52.061] plan(): nbrOfWorkers() = 1 1572s [00:52:52.061] SequentialFuture started (and completed) 1572s [00:52:52.062] - Launch lazy future ... done 1572s [00:52:52.062] run() for ‘SequentialFuture’ ... done 1572s [00:52:52.062] Created future: 1572s [00:52:52.062] SequentialFuture: 1572s [00:52:52.062] Label: ‘future_sapply-1’ 1572s [00:52:52.062] Expression: 1572s [00:52:52.062] { 1572s [00:52:52.062] do.call(function(...) { 1572s [00:52:52.062] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1572s [00:52:52.062] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1572s [00:52:52.062] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1572s [00:52:52.062] on.exit(options(oopts), add = TRUE) 1572s [00:52:52.062] } 1572s [00:52:52.062] { 1572s [00:52:52.062] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1572s [00:52:52.062] ...future.X_jj <- ...future.elements_ii[[jj]] 1572s [00:52:52.062] ...future.FUN(...future.X_jj, ...) 1572s [00:52:52.062] }) 1572s [00:52:52.062] } 1572s [00:52:52.062] }, args = future.call.arguments) 1572s [00:52:52.062] } 1572s [00:52:52.062] Lazy evaluation: FALSE 1572s [00:52:52.062] Asynchronous evaluation: FALSE 1572s [00:52:52.062] Local evaluation: TRUE 1572s [00:52:52.062] Environment: R_GlobalEnv 1572s [00:52:52.062] Capture standard output: TRUE 1572s [00:52:52.062] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1572s [00:52:52.062] Globals: 5 objects totaling 4.84 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1572s [00:52:52.062] Packages: 1572s [00:52:52.062] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1572s [00:52:52.062] Resolved: TRUE 1572s [00:52:52.062] Value: 1.34 KiB of class ‘list’ 1572s [00:52:52.062] Early signaling: FALSE 1572s [00:52:52.062] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1572s [00:52:52.062] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1572s [00:52:52.064] Chunk #1 of 1 ... DONE 1572s [00:52:52.064] Launching 1 futures (chunks) ... DONE 1572s [00:52:52.064] Resolving 1 futures (chunks) ... 1572s [00:52:52.065] resolve() on list ... 1572s [00:52:52.065] recursive: 0 1572s [00:52:52.065] length: 1 1572s [00:52:52.065] 1572s [00:52:52.065] resolved() for ‘SequentialFuture’ ... 1572s [00:52:52.065] - state: ‘finished’ 1572s [00:52:52.065] - run: TRUE 1572s [00:52:52.066] - result: ‘FutureResult’ 1572s [00:52:52.066] resolved() for ‘SequentialFuture’ ... done 1572s [00:52:52.066] Future #1 1572s [00:52:52.066] signalConditionsASAP(SequentialFuture, pos=1) ... 1572s [00:52:52.066] - nx: 1 1572s [00:52:52.066] - relay: TRUE 1572s [00:52:52.067] - stdout: TRUE 1572s [00:52:52.067] - signal: TRUE 1572s [00:52:52.067] - resignal: FALSE 1572s [00:52:52.067] - force: TRUE 1572s [00:52:52.067] - relayed: [n=1] FALSE 1572s [00:52:52.067] - queued futures: [n=1] FALSE 1572s [00:52:52.067] - until=1 1572s [00:52:52.067] - relaying element #1 1572s [00:52:52.068] - relayed: [n=1] TRUE 1572s [00:52:52.068] - queued futures: [n=1] TRUE 1572s [00:52:52.068] signalConditionsASAP(SequentialFuture, pos=1) ... done 1572s [00:52:52.068] length: 0 (resolved future 1) 1572s [00:52:52.068] Relaying remaining futures 1572s [00:52:52.069] signalConditionsASAP(NULL, pos=0) ... 1572s [00:52:52.069] - nx: 1 1572s [00:52:52.069] - relay: TRUE 1572s [00:52:52.069] - stdout: TRUE 1572s [00:52:52.069] - signal: TRUE 1572s [00:52:52.069] - resignal: FALSE 1572s [00:52:52.069] - force: TRUE 1572s [00:52:52.069] - relayed: [n=1] TRUE 1572s [00:52:52.070] - queued futures: [n=1] TRUE 1572s - flush all 1572s [00:52:52.070] - relayed: [n=1] TRUE 1572s [00:52:52.070] - queued futures: [n=1] TRUE 1572s [00:52:52.073] signalConditionsASAP(NULL, pos=0) ... done 1572s [00:52:52.074] resolve() on list ... DONE 1572s [00:52:52.074] - Number of value chunks collected: 1 1572s [00:52:52.074] Resolving 1 futures (chunks) ... DONE 1572s [00:52:52.074] Reducing values from 1 chunks ... 1572s [00:52:52.075] - Number of values collected after concatenation: 4 1572s [00:52:52.075] - Number of values expected: 4 1572s [00:52:52.075] Reducing values from 1 chunks ... DONE 1572s [00:52:52.075] future_lapply() ... DONE 1572s List of 2 1572s $ y0:List of 4 1572s ..$ A: num [1:3, 1:5] 100 100 100 200 200 200 300 300 300 400 ... 1572s ..$ B: num [1:3, 1:5] 120 120 120 240 240 240 360 360 360 480 ... 1572s ..$ C: num [1:3, 1:5] 140 140 140 280 280 280 420 420 420 560 ... 1572s ..$ D: num [1:3, 1:5] 160 160 160 320 320 320 480 480 480 640 ... 1572s $ y1:List of 4 1572s ..$ A: num [1:3, 1:5] 100 100 100 200 200 200 300 300 300 400 ... 1572s ..$ B: num [1:3, 1:5] 120 120 120 240 240 240 360 360 360 480 ... 1572s ..$ C: num [1:3, 1:5] 140 140 140 280 280 280 420 420 420 560 ... 1572s ..$ D: num [1:3, 1:5] 160 160 160 320 320 320 480 480 480 640 ... 1572s List of 2 1572s $ y0:List of 4 1572s ..$ A: num [1:3, 1:5] 100 100 100 200 200 200 300 300 300 400 ... 1572s ..$ B: num [1:3, 1:5] 120 120 120 240 240 240 360 360 360 480 ... 1572s ..$ C: num [1:3, 1:5] 140 140 140 280 280 280 420 420 420 560 ... 1572s ..$ D: num [1:3, 1:5] 160 160 160 320 320 320 480 480 480 640 ... 1572s $ y2:List of 4 1572s ..$ A: num [1:3, 1:5] 100 100 100 200 200 200 300 300 300 400 ... 1572s ..$ B: num [1:3, 1:5] 120 120 120 240 240 240 360 360 360 480 ... 1572s ..$ C: num [1:3, 1:5] 140 140 140 280 280 280 420 420 420 560 ... 1572s ..$ D:[00:52:52.097] future_lapply() ... 1572s num [1:3, 1:5] 160 160 160 320 320 320 480 480 480 640 ... 1572s [00:52:52.098] Number of chunks: 1 1572s [00:52:52.098] getGlobalsAndPackagesXApply() ... 1572s [00:52:52.098] - future.globals: TRUE 1572s [00:52:52.099] getGlobalsAndPackages() ... 1572s [00:52:52.099] Searching for globals... 1572s [00:52:52.101] - globals found: [1] ‘FUN’ 1572s [00:52:52.102] Searching for globals ... DONE 1572s [00:52:52.102] Resolving globals: FALSE 1572s [00:52:52.103] The total size of the 1 globals is 848 bytes (848 bytes) 1572s [00:52:52.104] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1572s [00:52:52.104] - globals: [1] ‘FUN’ 1572s [00:52:52.105] 1572s [00:52:52.105] getGlobalsAndPackages() ... DONE 1572s [00:52:52.105] - globals found/used: [n=1] ‘FUN’ 1572s [00:52:52.105] - needed namespaces: [n=0] 1572s [00:52:52.106] Finding globals ... DONE 1572s [00:52:52.106] - use_args: TRUE 1572s [00:52:52.106] - Getting '...' globals ... 1572s [00:52:52.106] resolve() on list ... 1572s [00:52:52.107] recursive: 0 1572s [00:52:52.107] length: 1 1572s [00:52:52.107] elements: ‘...’ 1572s [00:52:52.107] length: 0 (resolved future 1) 1572s [00:52:52.108] resolve() on list ... DONE 1572s [00:52:52.108] - '...' content: [n=0] 1572s [00:52:52.108] List of 1 1572s [00:52:52.108] $ ...: list() 1572s [00:52:52.108] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1572s [00:52:52.108] - attr(*, "where")=List of 1 1572s [00:52:52.108] ..$ ...: 1572s [00:52:52.108] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1572s [00:52:52.108] - attr(*, "resolved")= logi TRUE 1572s [00:52:52.108] - attr(*, "total_size")= num NA 1572s [00:52:52.115] - Getting '...' globals ... DONE 1572s [00:52:52.115] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1572s [00:52:52.115] List of 2 1572s [00:52:52.115] $ ...future.FUN:function (x) 1572s [00:52:52.115] $ ... : list() 1572s [00:52:52.115] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1572s [00:52:52.115] - attr(*, "where")=List of 2 1572s [00:52:52.115] ..$ ...future.FUN: 1572s [00:52:52.115] ..$ ... : 1572s [00:52:52.115] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1572s [00:52:52.115] - attr(*, "resolved")= logi FALSE 1572s [00:52:52.115] - attr(*, "total_size")= num 848 1572s [00:52:52.121] Packages to be attached in all futures: [n=0] 1572s [00:52:52.121] getGlobalsAndPackagesXApply() ... DONE 1572s [00:52:52.126] Number of futures (= number of chunks): 1 1572s [00:52:52.126] Launching 1 futures (chunks) ... 1572s [00:52:52.126] Chunk #1 of 1 ... 1572s [00:52:52.127] - Finding globals in 'X' for chunk #1 ... 1572s [00:52:52.127] getGlobalsAndPackages() ... 1572s [00:52:52.127] Searching for globals... 1572s [00:52:52.127] 1572s [00:52:52.128] Searching for globals ... DONE 1572s [00:52:52.128] - globals: [0] 1572s [00:52:52.129] getGlobalsAndPackages() ... DONE 1572s [00:52:52.129] + additional globals found: [n=0] 1572s [00:52:52.130] + additional namespaces needed: [n=0] 1572s [00:52:52.130] - Finding globals in 'X' for chunk #1 ... DONE 1572s [00:52:52.130] - seeds: 1572s [00:52:52.131] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1572s [00:52:52.131] getGlobalsAndPackages() ... 1572s [00:52:52.131] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1572s [00:52:52.132] Resolving globals: FALSE 1572s [00:52:52.132] Tweak future expression to call with '...' arguments ... 1572s [00:52:52.132] { 1572s [00:52:52.132] do.call(function(...) { 1572s [00:52:52.132] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1572s [00:52:52.132] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1572s [00:52:52.132] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1572s [00:52:52.132] on.exit(options(oopts), add = TRUE) 1572s [00:52:52.132] } 1572s [00:52:52.132] { 1572s [00:52:52.132] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1572s [00:52:52.132] ...future.X_jj <- ...future.elements_ii[[jj]] 1572s [00:52:52.132] ...future.FUN(...future.X_jj, ...) 1572s [00:52:52.132] }) 1572s [00:52:52.132] } 1572s [00:52:52.132] }, args = future.call.arguments) 1572s [00:52:52.132] } 1572s [00:52:52.133] Tweak future expression to call with '...' arguments ... DONE 1572s [00:52:52.134] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1572s [00:52:52.135] 1572s [00:52:52.135] getGlobalsAndPackages() ... DONE 1572s [00:52:52.136] run() for ‘Future’ ... 1572s [00:52:52.136] - state: ‘created’ 1572s [00:52:52.136] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1572s [00:52:52.136] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1572s [00:52:52.136] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1572s [00:52:52.137] - Field: ‘label’ 1572s [00:52:52.137] - Field: ‘local’ 1572s [00:52:52.137] - Field: ‘owner’ 1572s [00:52:52.137] - Field: ‘envir’ 1572s [00:52:52.138] - Field: ‘packages’ 1572s [00:52:52.138] - Field: ‘gc’ 1572s [00:52:52.138] - Field: ‘conditions’ 1572s [00:52:52.138] - Field: ‘expr’ 1572s [00:52:52.138] - Field: ‘uuid’ 1572s [00:52:52.138] - Field: ‘seed’ 1572s [00:52:52.138] - Field: ‘version’ 1572s [00:52:52.139] - Field: ‘result’ 1572s [00:52:52.139] - Field: ‘asynchronous’ 1572s [00:52:52.139] - Field: ‘calls’ 1572s [00:52:52.139] - Field: ‘globals’ 1572s [00:52:52.139] - Field: ‘stdout’ 1572s [00:52:52.140] - Field: ‘earlySignal’ 1572s [00:52:52.140] - Field: ‘lazy’ 1572s [00:52:52.140] - Field: ‘state’ 1572s [00:52:52.140] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1572s [00:52:52.141] - Launch lazy future ... 1572s [00:52:52.141] Packages needed by the future expression (n = 0): 1572s [00:52:52.141] Packages needed by future strategies (n = 0): 1572s [00:52:52.142] { 1572s [00:52:52.142] { 1572s [00:52:52.142] { 1572s [00:52:52.142] ...future.startTime <- base::Sys.time() 1572s [00:52:52.142] { 1572s [00:52:52.142] { 1572s [00:52:52.142] { 1572s [00:52:52.142] base::local({ 1572s [00:52:52.142] has_future <- base::requireNamespace("future", 1572s [00:52:52.142] quietly = TRUE) 1572s [00:52:52.142] if (has_future) { 1572s [00:52:52.142] ns <- base::getNamespace("future") 1572s [00:52:52.142] version <- ns[[".package"]][["version"]] 1572s [00:52:52.142] if (is.null(version)) 1572s [00:52:52.142] version <- utils::packageVersion("future") 1572s [00:52:52.142] } 1572s [00:52:52.142] else { 1572s [00:52:52.142] version <- NULL 1572s [00:52:52.142] } 1572s [00:52:52.142] if (!has_future || version < "1.8.0") { 1572s [00:52:52.142] info <- base::c(r_version = base::gsub("R version ", 1572s [00:52:52.142] "", base::R.version$version.string), 1572s [00:52:52.142] platform = base::sprintf("%s (%s-bit)", 1572s [00:52:52.142] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1572s [00:52:52.142] os = base::paste(base::Sys.info()[base::c("sysname", 1572s [00:52:52.142] "release", "version")], collapse = " "), 1572s [00:52:52.142] hostname = base::Sys.info()[["nodename"]]) 1572s [00:52:52.142] info <- base::sprintf("%s: %s", base::names(info), 1572s [00:52:52.142] info) 1572s [00:52:52.142] info <- base::paste(info, collapse = "; ") 1572s [00:52:52.142] if (!has_future) { 1572s [00:52:52.142] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1572s [00:52:52.142] info) 1572s [00:52:52.142] } 1572s [00:52:52.142] else { 1572s [00:52:52.142] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1572s [00:52:52.142] info, version) 1572s [00:52:52.142] } 1572s [00:52:52.142] base::stop(msg) 1572s [00:52:52.142] } 1572s [00:52:52.142] }) 1572s [00:52:52.142] } 1572s [00:52:52.142] options(future.plan = NULL) 1572s [00:52:52.142] Sys.unsetenv("R_FUTURE_PLAN") 1572s [00:52:52.142] future::plan("default", .cleanup = FALSE, .init = FALSE) 1572s [00:52:52.142] } 1572s [00:52:52.142] ...future.workdir <- getwd() 1572s [00:52:52.142] } 1572s [00:52:52.142] ...future.oldOptions <- base::as.list(base::.Options) 1572s [00:52:52.142] ...future.oldEnvVars <- base::Sys.getenv() 1572s [00:52:52.142] } 1572s [00:52:52.142] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1572s [00:52:52.142] future.globals.maxSize = NULL, future.globals.method = NULL, 1572s [00:52:52.142] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1572s [00:52:52.142] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1572s [00:52:52.142] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1572s [00:52:52.142] future.stdout.windows.reencode = NULL, width = 80L) 1572s [00:52:52.142] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1572s [00:52:52.142] base::names(...future.oldOptions)) 1572s [00:52:52.142] } 1572s [00:52:52.142] if (FALSE) { 1572s [00:52:52.142] } 1572s [00:52:52.142] else { 1572s [00:52:52.142] if (TRUE) { 1572s [00:52:52.142] ...future.stdout <- base::rawConnection(base::raw(0L), 1572s [00:52:52.142] open = "w") 1572s [00:52:52.142] } 1572s [00:52:52.142] else { 1572s [00:52:52.142] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1572s [00:52:52.142] windows = "NUL", "/dev/null"), open = "w") 1572s [00:52:52.142] } 1572s [00:52:52.142] base::sink(...future.stdout, type = "output", split = FALSE) 1572s [00:52:52.142] base::on.exit(if (!base::is.null(...future.stdout)) { 1572s [00:52:52.142] base::sink(type = "output", split = FALSE) 1572s [00:52:52.142] base::close(...future.stdout) 1572s [00:52:52.142] }, add = TRUE) 1572s [00:52:52.142] } 1572s [00:52:52.142] ...future.frame <- base::sys.nframe() 1572s [00:52:52.142] ...future.conditions <- base::list() 1572s [00:52:52.142] ...future.rng <- base::globalenv()$.Random.seed 1572s [00:52:52.142] if (FALSE) { 1572s [00:52:52.142] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1572s [00:52:52.142] "...future.value", "...future.globalenv.names", ".Random.seed") 1572s [00:52:52.142] } 1572s [00:52:52.142] ...future.result <- base::tryCatch({ 1572s [00:52:52.142] base::withCallingHandlers({ 1572s [00:52:52.142] ...future.value <- base::withVisible(base::local({ 1572s [00:52:52.142] do.call(function(...) { 1572s [00:52:52.142] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1572s [00:52:52.142] if (!identical(...future.globals.maxSize.org, 1572s [00:52:52.142] ...future.globals.maxSize)) { 1572s [00:52:52.142] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1572s [00:52:52.142] on.exit(options(oopts), add = TRUE) 1572s [00:52:52.142] } 1572s [00:52:52.142] { 1572s [00:52:52.142] lapply(seq_along(...future.elements_ii), 1572s [00:52:52.142] FUN = function(jj) { 1572s [00:52:52.142] ...future.X_jj <- ...future.elements_ii[[jj]] 1572s [00:52:52.142] ...future.FUN(...future.X_jj, ...) 1572s [00:52:52.142] }) 1572s [00:52:52.142] } 1572s [00:52:52.142] }, args = future.call.arguments) 1572s [00:52:52.142] })) 1572s [00:52:52.142] future::FutureResult(value = ...future.value$value, 1572s [00:52:52.142] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1572s [00:52:52.142] ...future.rng), globalenv = if (FALSE) 1572s [00:52:52.142] list(added = base::setdiff(base::names(base::.GlobalEnv), 1572s [00:52:52.142] ...future.globalenv.names)) 1572s [00:52:52.142] else NULL, started = ...future.startTime, version = "1.8") 1572s [00:52:52.142] }, condition = base::local({ 1572s [00:52:52.142] c <- base::c 1572s [00:52:52.142] inherits <- base::inherits 1572s [00:52:52.142] invokeRestart <- base::invokeRestart 1572s [00:52:52.142] length <- base::length 1572s [00:52:52.142] list <- base::list 1572s [00:52:52.142] seq.int <- base::seq.int 1572s [00:52:52.142] signalCondition <- base::signalCondition 1572s [00:52:52.142] sys.calls <- base::sys.calls 1572s [00:52:52.142] `[[` <- base::`[[` 1572s [00:52:52.142] `+` <- base::`+` 1572s [00:52:52.142] `<<-` <- base::`<<-` 1572s [00:52:52.142] sysCalls <- function(calls = sys.calls(), from = 1L) { 1572s [00:52:52.142] calls[seq.int(from = from + 12L, to = length(calls) - 1572s [00:52:52.142] 3L)] 1572s [00:52:52.142] } 1572s [00:52:52.142] function(cond) { 1572s [00:52:52.142] is_error <- inherits(cond, "error") 1572s [00:52:52.142] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1572s [00:52:52.142] NULL) 1572s [00:52:52.142] if (is_error) { 1572s [00:52:52.142] sessionInformation <- function() { 1572s [00:52:52.142] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1572s [00:52:52.142] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1572s [00:52:52.142] search = base::search(), system = base::Sys.info()) 1572s [00:52:52.142] } 1572s [00:52:52.142] ...future.conditions[[length(...future.conditions) + 1572s [00:52:52.142] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1572s [00:52:52.142] cond$call), session = sessionInformation(), 1572s [00:52:52.142] timestamp = base::Sys.time(), signaled = 0L) 1572s [00:52:52.142] signalCondition(cond) 1572s [00:52:52.142] } 1572s [00:52:52.142] else if (!ignore && TRUE && inherits(cond, c("condition", 1572s [00:52:52.142] "immediateCondition"))) { 1572s [00:52:52.142] signal <- TRUE && inherits(cond, "immediateCondition") 1572s [00:52:52.142] ...future.conditions[[length(...future.conditions) + 1572s [00:52:52.142] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1572s [00:52:52.142] if (TRUE && !signal) { 1572s [00:52:52.142] muffleCondition <- function (cond, pattern = "^muffle") 1572s [00:52:52.142] { 1572s [00:52:52.142] inherits <- base::inherits 1572s [00:52:52.142] invokeRestart <- base::invokeRestart 1572s [00:52:52.142] is.null <- base::is.null 1572s [00:52:52.142] muffled <- FALSE 1572s [00:52:52.142] if (inherits(cond, "message")) { 1572s [00:52:52.142] muffled <- grepl(pattern, "muffleMessage") 1572s [00:52:52.142] if (muffled) 1572s [00:52:52.142] invokeRestart("muffleMessage") 1572s [00:52:52.142] } 1572s [00:52:52.142] else if (inherits(cond, "warning")) { 1572s [00:52:52.142] muffled <- grepl(pattern, "muffleWarning") 1572s [00:52:52.142] if (muffled) 1572s [00:52:52.142] invokeRestart("muffleWarning") 1572s [00:52:52.142] } 1572s [00:52:52.142] else if (inherits(cond, "condition")) { 1572s [00:52:52.142] if (!is.null(pattern)) { 1572s [00:52:52.142] computeRestarts <- base::computeRestarts 1572s [00:52:52.142] grepl <- base::grepl 1572s [00:52:52.142] restarts <- computeRestarts(cond) 1572s [00:52:52.142] for (restart in restarts) { 1572s [00:52:52.142] name <- restart$name 1572s [00:52:52.142] if (is.null(name)) 1572s [00:52:52.142] next 1572s [00:52:52.142] if (!grepl(pattern, name)) 1572s [00:52:52.142] next 1572s [00:52:52.142] invokeRestart(restart) 1572s [00:52:52.142] muffled <- TRUE 1572s [00:52:52.142] break 1572s [00:52:52.142] } 1572s [00:52:52.142] } 1572s [00:52:52.142] } 1572s [00:52:52.142] invisible(muffled) 1572s [00:52:52.142] } 1572s [00:52:52.142] muffleCondition(cond, pattern = "^muffle") 1572s [00:52:52.142] } 1572s [00:52:52.142] } 1572s [00:52:52.142] else { 1572s [00:52:52.142] if (TRUE) { 1572s [00:52:52.142] muffleCondition <- function (cond, pattern = "^muffle") 1572s [00:52:52.142] { 1572s [00:52:52.142] inherits <- base::inherits 1572s [00:52:52.142] invokeRestart <- base::invokeRestart 1572s [00:52:52.142] is.null <- base::is.null 1572s [00:52:52.142] muffled <- FALSE 1572s [00:52:52.142] if (inherits(cond, "message")) { 1572s [00:52:52.142] muffled <- grepl(pattern, "muffleMessage") 1572s [00:52:52.142] if (muffled) 1572s [00:52:52.142] invokeRestart("muffleMessage") 1572s [00:52:52.142] } 1572s [00:52:52.142] else if (inherits(cond, "warning")) { 1572s [00:52:52.142] muffled <- grepl(pattern, "muffleWarning") 1572s [00:52:52.142] if (muffled) 1572s [00:52:52.142] invokeRestart("muffleWarning") 1572s [00:52:52.142] } 1572s [00:52:52.142] else if (inherits(cond, "condition")) { 1572s [00:52:52.142] if (!is.null(pattern)) { 1572s [00:52:52.142] computeRestarts <- base::computeRestarts 1572s [00:52:52.142] grepl <- base::grepl 1572s [00:52:52.142] restarts <- computeRestarts(cond) 1572s [00:52:52.142] for (restart in restarts) { 1572s [00:52:52.142] name <- restart$name 1572s [00:52:52.142] if (is.null(name)) 1572s [00:52:52.142] next 1572s [00:52:52.142] if (!grepl(pattern, name)) 1572s [00:52:52.142] next 1572s [00:52:52.142] invokeRestart(restart) 1572s [00:52:52.142] muffled <- TRUE 1572s [00:52:52.142] break 1572s [00:52:52.142] } 1572s [00:52:52.142] } 1572s [00:52:52.142] } 1572s [00:52:52.142] invisible(muffled) 1572s [00:52:52.142] } 1572s [00:52:52.142] muffleCondition(cond, pattern = "^muffle") 1572s [00:52:52.142] } 1572s [00:52:52.142] } 1572s [00:52:52.142] } 1572s [00:52:52.142] })) 1572s [00:52:52.142] }, error = function(ex) { 1572s [00:52:52.142] base::structure(base::list(value = NULL, visible = NULL, 1572s [00:52:52.142] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1572s [00:52:52.142] ...future.rng), started = ...future.startTime, 1572s [00:52:52.142] finished = Sys.time(), session_uuid = NA_character_, 1572s [00:52:52.142] version = "1.8"), class = "FutureResult") 1572s [00:52:52.142] }, finally = { 1572s [00:52:52.142] if (!identical(...future.workdir, getwd())) 1572s [00:52:52.142] setwd(...future.workdir) 1572s [00:52:52.142] { 1572s [00:52:52.142] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1572s [00:52:52.142] ...future.oldOptions$nwarnings <- NULL 1572s [00:52:52.142] } 1572s [00:52:52.142] base::options(...future.oldOptions) 1572s [00:52:52.142] if (.Platform$OS.type == "windows") { 1572s [00:52:52.142] old_names <- names(...future.oldEnvVars) 1572s [00:52:52.142] envs <- base::Sys.getenv() 1572s [00:52:52.142] names <- names(envs) 1572s [00:52:52.142] common <- intersect(names, old_names) 1572s [00:52:52.142] added <- setdiff(names, old_names) 1572s [00:52:52.142] removed <- setdiff(old_names, names) 1572s [00:52:52.142] changed <- common[...future.oldEnvVars[common] != 1572s [00:52:52.142] envs[common]] 1572s [00:52:52.142] NAMES <- toupper(changed) 1572s [00:52:52.142] args <- list() 1572s [00:52:52.142] for (kk in seq_along(NAMES)) { 1572s [00:52:52.142] name <- changed[[kk]] 1572s [00:52:52.142] NAME <- NAMES[[kk]] 1572s [00:52:52.142] if (name != NAME && is.element(NAME, old_names)) 1572s [00:52:52.142] next 1572s [00:52:52.142] args[[name]] <- ...future.oldEnvVars[[name]] 1572s [00:52:52.142] } 1572s [00:52:52.142] NAMES <- toupper(added) 1572s [00:52:52.142] for (kk in seq_along(NAMES)) { 1572s [00:52:52.142] name <- added[[kk]] 1572s [00:52:52.142] NAME <- NAMES[[kk]] 1572s [00:52:52.142] if (name != NAME && is.element(NAME, old_names)) 1572s [00:52:52.142] next 1572s [00:52:52.142] args[[name]] <- "" 1572s [00:52:52.142] } 1572s [00:52:52.142] NAMES <- toupper(removed) 1572s [00:52:52.142] for (kk in seq_along(NAMES)) { 1572s [00:52:52.142] name <- removed[[kk]] 1572s [00:52:52.142] NAME <- NAMES[[kk]] 1572s [00:52:52.142] if (name != NAME && is.element(NAME, old_names)) 1572s [00:52:52.142] next 1572s [00:52:52.142] args[[name]] <- ...future.oldEnvVars[[name]] 1572s [00:52:52.142] } 1572s [00:52:52.142] if (length(args) > 0) 1572s [00:52:52.142] base::do.call(base::Sys.setenv, args = args) 1572s [00:52:52.142] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1572s [00:52:52.142] } 1572s [00:52:52.142] else { 1572s [00:52:52.142] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1572s [00:52:52.142] } 1572s [00:52:52.142] { 1572s [00:52:52.142] if (base::length(...future.futureOptionsAdded) > 1572s [00:52:52.142] 0L) { 1572s [00:52:52.142] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1572s [00:52:52.142] base::names(opts) <- ...future.futureOptionsAdded 1572s [00:52:52.142] base::options(opts) 1572s [00:52:52.142] } 1572s [00:52:52.142] { 1572s [00:52:52.142] { 1572s [00:52:52.142] NULL 1572s [00:52:52.142] RNGkind("Mersenne-Twister") 1572s [00:52:52.142] base::rm(list = ".Random.seed", envir = base::globalenv(), 1572s [00:52:52.142] inherits = FALSE) 1572s [00:52:52.142] } 1572s [00:52:52.142] options(future.plan = NULL) 1572s [00:52:52.142] if (is.na(NA_character_)) 1572s [00:52:52.142] Sys.unsetenv("R_FUTURE_PLAN") 1572s [00:52:52.142] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1572s [00:52:52.142] future::plan(list(function (..., envir = parent.frame()) 1572s [00:52:52.142] { 1572s [00:52:52.142] future <- SequentialFuture(..., envir = envir) 1572s [00:52:52.142] if (!future$lazy) 1572s [00:52:52.142] future <- run(future) 1572s [00:52:52.142] invisible(future) 1572s [00:52:52.142] }), .cleanup = FALSE, .init = FALSE) 1572s [00:52:52.142] } 1572s [00:52:52.142] } 1572s [00:52:52.142] } 1572s [00:52:52.142] }) 1572s [00:52:52.142] if (TRUE) { 1572s [00:52:52.142] base::sink(type = "output", split = FALSE) 1572s [00:52:52.142] if (TRUE) { 1572s [00:52:52.142] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1572s [00:52:52.142] } 1572s [00:52:52.142] else { 1572s [00:52:52.142] ...future.result["stdout"] <- base::list(NULL) 1572s [00:52:52.142] } 1572s [00:52:52.142] base::close(...future.stdout) 1572s [00:52:52.142] ...future.stdout <- NULL 1572s [00:52:52.142] } 1572s [00:52:52.142] ...future.result$conditions <- ...future.conditions 1572s [00:52:52.142] ...future.result$finished <- base::Sys.time() 1572s [00:52:52.142] ...future.result 1572s [00:52:52.142] } 1572s [00:52:52.151] assign_globals() ... 1572s [00:52:52.151] List of 5 1572s [00:52:52.151] $ ...future.FUN :function (x) 1572s [00:52:52.151] $ future.call.arguments : list() 1572s [00:52:52.151] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1572s [00:52:52.151] $ ...future.elements_ii :List of 4 1572s [00:52:52.151] ..$ A: num 50 1572s [00:52:52.151] ..$ B: num 60 1572s [00:52:52.151] ..$ C: num 70 1572s [00:52:52.151] ..$ D: num 80 1572s [00:52:52.151] $ ...future.seeds_ii : NULL 1572s [00:52:52.151] $ ...future.globals.maxSize: NULL 1572s [00:52:52.151] - attr(*, "where")=List of 5 1572s [00:52:52.151] ..$ ...future.FUN : 1572s [00:52:52.151] ..$ future.call.arguments : 1572s [00:52:52.151] ..$ ...future.elements_ii : 1572s [00:52:52.151] ..$ ...future.seeds_ii : 1572s [00:52:52.151] ..$ ...future.globals.maxSize: 1572s [00:52:52.151] - attr(*, "resolved")= logi FALSE 1572s [00:52:52.151] - attr(*, "total_size")= num 848 1572s [00:52:52.151] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1572s [00:52:52.151] - attr(*, "already-done")= logi TRUE 1572s [00:52:52.166] - copied ‘...future.FUN’ to environment 1572s [00:52:52.166] - copied ‘future.call.arguments’ to environment 1572s [00:52:52.166] - copied ‘...future.elements_ii’ to environment 1572s [00:52:52.167] - copied ‘...future.seeds_ii’ to environment 1572s [00:52:52.167] - copied ‘...future.globals.maxSize’ to environment 1572s [00:52:52.167] assign_globals() ... done 1572s [00:52:52.167] plan(): Setting new future strategy stack: 1572s [00:52:52.168] List of future strategies: 1572s [00:52:52.168] 1. sequential: 1572s [00:52:52.168] - args: function (..., envir = parent.frame()) 1572s [00:52:52.168] - tweaked: FALSE 1572s [00:52:52.168] - call: NULL 1572s [00:52:52.170] plan(): nbrOfWorkers() = 1 1572s [00:52:52.171] plan(): Setting new future strategy stack: 1572s [00:52:52.171] List of future strategies: 1572s [00:52:52.171] 1. sequential: 1572s [00:52:52.171] - args: function (..., envir = parent.frame()) 1572s [00:52:52.171] - tweaked: FALSE 1572s [00:52:52.171] - call: plan(strategy) 1572s [00:52:52.173] plan(): nbrOfWorkers() = 1 1572s [00:52:52.173] SequentialFuture started (and completed) 1572s [00:52:52.173] - Launch lazy future ... done 1572s [00:52:52.173] run() for ‘SequentialFuture’ ... done 1572s [00:52:52.173] Created future: 1572s [00:52:52.174] SequentialFuture: 1572s [00:52:52.174] Label: ‘future_sapply-1’ 1572s [00:52:52.174] Expression: 1572s [00:52:52.174] { 1572s [00:52:52.174] do.call(function(...) { 1572s [00:52:52.174] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1572s [00:52:52.174] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1572s [00:52:52.174] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1572s [00:52:52.174] on.exit(options(oopts), add = TRUE) 1572s [00:52:52.174] } 1572s [00:52:52.174] { 1572s [00:52:52.174] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1572s [00:52:52.174] ...future.X_jj <- ...future.elements_ii[[jj]] 1572s [00:52:52.174] ...future.FUN(...future.X_jj, ...) 1572s [00:52:52.174] }) 1572s [00:52:52.174] } 1572s [00:52:52.174] }, args = future.call.arguments) 1572s [00:52:52.174] } 1572s [00:52:52.174] Lazy evaluation: FALSE 1572s [00:52:52.174] Asynchronous evaluation: FALSE 1572s [00:52:52.174] Local evaluation: TRUE 1572s [00:52:52.174] Environment: R_GlobalEnv 1572s [00:52:52.174] Capture standard output: TRUE 1572s [00:52:52.174] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1572s [00:52:52.174] Globals: 5 objects totaling 1.05 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1572s [00:52:52.174] Packages: 1572s [00:52:52.174] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1572s [00:52:52.174] Resolved: TRUE 1572s [00:52:52.174] Value: 224 bytes of class ‘list’ 1572s [00:52:52.174] Early signaling: FALSE 1572s [00:52:52.174] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1572s [00:52:52.174] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1572s [00:52:52.177] Chunk #1 of 1 ... DONE 1572s [00:52:52.177] Launching 1 futures (chunks) ... DONE 1572s [00:52:52.177] Resolving 1 futures (chunks) ... 1572s [00:52:52.178] resolve() on list ... 1572s [00:52:52.178] recursive: 0 1572s [00:52:52.178] length: 1 1572s [00:52:52.179] 1572s [00:52:52.179] resolved() for ‘SequentialFuture’ ... 1572s [00:52:52.179] - state: ‘finished’ 1572s [00:52:52.180] - run: TRUE 1572s [00:52:52.180] - result: ‘FutureResult’ 1572s [00:52:52.180] resolved() for ‘SequentialFuture’ ... done 1572s [00:52:52.181] Future #1 1572s [00:52:52.181] signalConditionsASAP(SequentialFuture, pos=1) ... 1572s [00:52:52.181] - nx: 1 1572s [00:52:52.181] - relay: TRUE 1572s [00:52:52.182] - stdout: TRUE 1572s [00:52:52.182] - signal: TRUE 1572s [00:52:52.182] - resignal: FALSE 1572s [00:52:52.182] - force: TRUE 1572s [00:52:52.182] - relayed: [n=1] FALSE 1572s [00:52:52.182] - queued futures: [n=1] FALSE 1572s [00:52:52.183] - until=1 1572s [00:52:52.183] - relaying element #1 1572s [00:52:52.184] - relayed: [n=1] TRUE 1572s [00:52:52.184] - queued futures: [n=1] TRUE 1572s [00:52:52.185] signalConditionsASAP(SequentialFuture, pos=1) ... done 1572s [00:52:52.188] length: 0 (resolved future 1) 1572s [00:52:52.189] Relaying remaining futures 1572s [00:52:52.189] signalConditionsASAP(NULL, pos=0) ... 1572s [00:52:52.189] - nx: 1 1572s [00:52:52.190] - relay: TRUE 1572s [00:52:52.190] - stdout: TRUE 1572s [00:52:52.190] - signal: TRUE 1572s [00:52:52.190] - resignal: FALSE 1572s [00:52:52.191] - force: TRUE 1572s [00:52:52.191] - relayed: [n=1] TRUE 1572s [00:52:52.192] - queued futures: [n=1] TRUE 1572s - flush all 1572s [00:52:52.192] - relayed: [n=1] TRUE 1572s [00:52:52.193] - queued futures: [n=1] TRUE 1572s [00:52:52.194] signalConditionsASAP(NULL, pos=0) ... done 1572s [00:52:52.194] resolve() on list ... DONE 1572s [00:52:52.194] - Number of value chunks collected: 1 1572s [00:52:52.195] Resolving 1 futures (chunks) ... DONE 1572s [00:52:52.196] Reducing values from 1 chunks ... 1572s [00:52:52.196] - Number of values collected after concatenation: 4 1572s [00:52:52.197] - Number of values expected: 4 1572s [00:52:52.197] Reducing values from 1 chunks ... DONE 1572s [00:52:52.198] future_lapply() ... DONE 1572s List of 2 1572s $ y0: Named num [1:4] 50 60 70 80 1572s ..- attr(*, "names")=[00:52:52.202] future_lapply() ... 1572s chr [1:4] "A" "B" "C" "D" 1572s $ y1: Named num [1:4] 50 60 70 80 1572s ..- attr(*, "names")= chr [1:4] "A" "B" "C" "D" 1572s [00:52:52.203] Number of chunks: 1 1572s [00:52:52.203] getGlobalsAndPackagesXApply() ... 1572s [00:52:52.204] - future.globals: TRUE 1572s [00:52:52.204] getGlobalsAndPackages() ... 1572s [00:52:52.204] Searching for globals... 1572s [00:52:52.206] - globals found: [2] ‘FUN’, ‘UseMethod’ 1572s [00:52:52.206] Searching for globals ... DONE 1572s [00:52:52.206] Resolving globals: FALSE 1572s [00:52:52.207] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1572s [00:52:52.207] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1572s [00:52:52.207] - globals: [1] ‘FUN’ 1572s [00:52:52.208] 1572s [00:52:52.208] getGlobalsAndPackages() ... DONE 1572s [00:52:52.208] - globals found/used: [n=1] ‘FUN’ 1572s [00:52:52.208] - needed namespaces: [n=0] 1572s [00:52:52.209] Finding globals ... DONE 1572s [00:52:52.209] - use_args: TRUE 1572s [00:52:52.209] - Getting '...' globals ... 1572s [00:52:52.210] resolve() on list ... 1572s [00:52:52.210] recursive: 0 1572s [00:52:52.210] length: 1 1572s [00:52:52.210] elements: ‘...’ 1572s [00:52:52.211] length: 0 (resolved future 1) 1572s [00:52:52.211] resolve() on list ... DONE 1572s [00:52:52.211] - '...' content: [n=0] 1572s [00:52:52.211] List of 1 1572s [00:52:52.211] $ ...: list() 1572s [00:52:52.211] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1572s [00:52:52.211] - attr(*, "where")=List of 1 1572s [00:52:52.211] ..$ ...: 1572s [00:52:52.211] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1572s [00:52:52.211] - attr(*, "resolved")= logi TRUE 1572s [00:52:52.211] - attr(*, "total_size")= num NA 1572s [00:52:52.214] - Getting '...' globals ... DONE 1572s [00:52:52.214] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1572s [00:52:52.215] List of 2 1572s [00:52:52.215] $ ...future.FUN:function (x, ...) 1572s [00:52:52.215] $ ... : list() 1572s [00:52:52.215] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1572s [00:52:52.215] - attr(*, "where")=List of 2 1572s [00:52:52.215] ..$ ...future.FUN: 1572s [00:52:52.215] ..$ ... : 1572s [00:52:52.215] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1572s [00:52:52.215] - attr(*, "resolved")= logi FALSE 1572s [00:52:52.215] - attr(*, "total_size")= num 1248 1572s [00:52:52.218] Packages to be attached in all futures: [n=0] 1572s [00:52:52.218] getGlobalsAndPackagesXApply() ... DONE 1572s [00:52:52.218] Number of futures (= number of chunks): 1 1572s [00:52:52.218] Launching 1 futures (chunks) ... 1572s [00:52:52.218] Chunk #1 of 1 ... 1572s [00:52:52.218] - Finding globals in 'X' for chunk #1 ... 1572s [00:52:52.219] getGlobalsAndPackages() ... 1572s [00:52:52.219] Searching for globals... 1572s [00:52:52.219] 1572s [00:52:52.219] Searching for globals ... DONE 1572s [00:52:52.219] - globals: [0] 1572s [00:52:52.219] getGlobalsAndPackages() ... DONE 1572s [00:52:52.220] + additional globals found: [n=0] 1572s [00:52:52.220] + additional namespaces needed: [n=0] 1572s [00:52:52.220] - Finding globals in 'X' for chunk #1 ... DONE 1572s [00:52:52.220] - seeds: 1572s [00:52:52.220] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1572s [00:52:52.221] getGlobalsAndPackages() ... 1572s [00:52:52.221] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1572s [00:52:52.221] Resolving globals: FALSE 1572s [00:52:52.222] Tweak future expression to call with '...' arguments ... 1572s [00:52:52.222] { 1572s [00:52:52.222] do.call(function(...) { 1572s [00:52:52.222] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1572s [00:52:52.222] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1572s [00:52:52.222] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1572s [00:52:52.222] on.exit(options(oopts), add = TRUE) 1572s [00:52:52.222] } 1572s [00:52:52.222] { 1572s [00:52:52.222] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1572s [00:52:52.222] ...future.X_jj <- ...future.elements_ii[[jj]] 1572s [00:52:52.222] ...future.FUN(...future.X_jj, ...) 1572s [00:52:52.222] }) 1572s [00:52:52.222] } 1572s [00:52:52.222] }, args = future.call.arguments) 1572s [00:52:52.222] } 1572s [00:52:52.223] Tweak future expression to call with '...' arguments ... DONE 1572s [00:52:52.223] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1572s [00:52:52.224] 1572s [00:52:52.224] getGlobalsAndPackages() ... DONE 1572s [00:52:52.224] run() for ‘Future’ ... 1572s [00:52:52.224] - state: ‘created’ 1572s [00:52:52.225] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1572s [00:52:52.226] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1572s [00:52:52.226] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1572s [00:52:52.226] - Field: ‘label’ 1572s [00:52:52.226] - Field: ‘local’ 1572s [00:52:52.226] - Field: ‘owner’ 1572s [00:52:52.226] - Field: ‘envir’ 1572s [00:52:52.227] - Field: ‘packages’ 1572s [00:52:52.227] - Field: ‘gc’ 1572s [00:52:52.227] - Field: ‘conditions’ 1572s [00:52:52.227] - Field: ‘expr’ 1572s [00:52:52.227] - Field: ‘uuid’ 1572s [00:52:52.228] - Field: ‘seed’ 1572s [00:52:52.232] - Field: ‘version’ 1572s [00:52:52.232] - Field: ‘result’ 1572s [00:52:52.233] - Field: ‘asynchronous’ 1572s [00:52:52.233] - Field: ‘calls’ 1572s [00:52:52.233] - Field: ‘globals’ 1572s [00:52:52.233] - Field: ‘stdout’ 1572s [00:52:52.234] - Field: ‘earlySignal’ 1572s [00:52:52.234] - Field: ‘lazy’ 1572s [00:52:52.234] - Field: ‘state’ 1572s [00:52:52.234] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1572s [00:52:52.234] - Launch lazy future ... 1572s [00:52:52.235] Packages needed by the future expression (n = 0): 1572s [00:52:52.235] Packages needed by future strategies (n = 0): 1572s [00:52:52.236] { 1572s [00:52:52.236] { 1572s [00:52:52.236] { 1572s [00:52:52.236] ...future.startTime <- base::Sys.time() 1572s [00:52:52.236] { 1572s [00:52:52.236] { 1572s [00:52:52.236] { 1572s [00:52:52.236] base::local({ 1572s [00:52:52.236] has_future <- base::requireNamespace("future", 1572s [00:52:52.236] quietly = TRUE) 1572s [00:52:52.236] if (has_future) { 1572s [00:52:52.236] ns <- base::getNamespace("future") 1572s [00:52:52.236] version <- ns[[".package"]][["version"]] 1572s [00:52:52.236] if (is.null(version)) 1572s [00:52:52.236] version <- utils::packageVersion("future") 1572s [00:52:52.236] } 1572s [00:52:52.236] else { 1572s [00:52:52.236] version <- NULL 1572s [00:52:52.236] } 1572s [00:52:52.236] if (!has_future || version < "1.8.0") { 1572s [00:52:52.236] info <- base::c(r_version = base::gsub("R version ", 1572s [00:52:52.236] "", base::R.version$version.string), 1572s [00:52:52.236] platform = base::sprintf("%s (%s-bit)", 1572s [00:52:52.236] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1572s [00:52:52.236] os = base::paste(base::Sys.info()[base::c("sysname", 1572s [00:52:52.236] "release", "version")], collapse = " "), 1572s [00:52:52.236] hostname = base::Sys.info()[["nodename"]]) 1572s [00:52:52.236] info <- base::sprintf("%s: %s", base::names(info), 1572s [00:52:52.236] info) 1572s [00:52:52.236] info <- base::paste(info, collapse = "; ") 1572s [00:52:52.236] if (!has_future) { 1572s [00:52:52.236] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1572s [00:52:52.236] info) 1572s [00:52:52.236] } 1572s [00:52:52.236] else { 1572s [00:52:52.236] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1572s [00:52:52.236] info, version) 1572s [00:52:52.236] } 1572s [00:52:52.236] base::stop(msg) 1572s [00:52:52.236] } 1572s [00:52:52.236] }) 1572s [00:52:52.236] } 1572s [00:52:52.236] options(future.plan = NULL) 1572s [00:52:52.236] Sys.unsetenv("R_FUTURE_PLAN") 1572s [00:52:52.236] future::plan("default", .cleanup = FALSE, .init = FALSE) 1572s [00:52:52.236] } 1572s [00:52:52.236] ...future.workdir <- getwd() 1572s [00:52:52.236] } 1572s [00:52:52.236] ...future.oldOptions <- base::as.list(base::.Options) 1572s [00:52:52.236] ...future.oldEnvVars <- base::Sys.getenv() 1572s [00:52:52.236] } 1572s [00:52:52.236] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1572s [00:52:52.236] future.globals.maxSize = NULL, future.globals.method = NULL, 1572s [00:52:52.236] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1572s [00:52:52.236] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1572s [00:52:52.236] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1572s [00:52:52.236] future.stdout.windows.reencode = NULL, width = 80L) 1572s [00:52:52.236] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1572s [00:52:52.236] base::names(...future.oldOptions)) 1572s [00:52:52.236] } 1572s [00:52:52.236] if (FALSE) { 1572s [00:52:52.236] } 1572s [00:52:52.236] else { 1572s [00:52:52.236] if (TRUE) { 1572s [00:52:52.236] ...future.stdout <- base::rawConnection(base::raw(0L), 1572s [00:52:52.236] open = "w") 1572s [00:52:52.236] } 1572s [00:52:52.236] else { 1572s [00:52:52.236] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1572s [00:52:52.236] windows = "NUL", "/dev/null"), open = "w") 1572s [00:52:52.236] } 1572s [00:52:52.236] base::sink(...future.stdout, type = "output", split = FALSE) 1572s [00:52:52.236] base::on.exit(if (!base::is.null(...future.stdout)) { 1572s [00:52:52.236] base::sink(type = "output", split = FALSE) 1572s [00:52:52.236] base::close(...future.stdout) 1572s [00:52:52.236] }, add = TRUE) 1572s [00:52:52.236] } 1572s [00:52:52.236] ...future.frame <- base::sys.nframe() 1572s [00:52:52.236] ...future.conditions <- base::list() 1572s [00:52:52.236] ...future.rng <- base::globalenv()$.Random.seed 1572s [00:52:52.236] if (FALSE) { 1572s [00:52:52.236] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1572s [00:52:52.236] "...future.value", "...future.globalenv.names", ".Random.seed") 1572s [00:52:52.236] } 1572s [00:52:52.236] ...future.result <- base::tryCatch({ 1572s [00:52:52.236] base::withCallingHandlers({ 1572s [00:52:52.236] ...future.value <- base::withVisible(base::local({ 1572s [00:52:52.236] do.call(function(...) { 1572s [00:52:52.236] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1572s [00:52:52.236] if (!identical(...future.globals.maxSize.org, 1572s [00:52:52.236] ...future.globals.maxSize)) { 1572s [00:52:52.236] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1572s [00:52:52.236] on.exit(options(oopts), add = TRUE) 1572s [00:52:52.236] } 1572s [00:52:52.236] { 1572s [00:52:52.236] lapply(seq_along(...future.elements_ii), 1572s [00:52:52.236] FUN = function(jj) { 1572s [00:52:52.236] ...future.X_jj <- ...future.elements_ii[[jj]] 1572s [00:52:52.236] ...future.FUN(...future.X_jj, ...) 1572s [00:52:52.236] }) 1572s [00:52:52.236] } 1572s [00:52:52.236] }, args = future.call.arguments) 1572s [00:52:52.236] })) 1572s [00:52:52.236] future::FutureResult(value = ...future.value$value, 1572s [00:52:52.236] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1572s [00:52:52.236] ...future.rng), globalenv = if (FALSE) 1572s [00:52:52.236] list(added = base::setdiff(base::names(base::.GlobalEnv), 1572s [00:52:52.236] ...future.globalenv.names)) 1572s [00:52:52.236] else NULL, started = ...future.startTime, version = "1.8") 1572s [00:52:52.236] }, condition = base::local({ 1572s [00:52:52.236] c <- base::c 1572s [00:52:52.236] inherits <- base::inherits 1572s [00:52:52.236] invokeRestart <- base::invokeRestart 1572s [00:52:52.236] length <- base::length 1572s [00:52:52.236] list <- base::list 1572s [00:52:52.236] seq.int <- base::seq.int 1572s [00:52:52.236] signalCondition <- base::signalCondition 1572s [00:52:52.236] sys.calls <- base::sys.calls 1572s [00:52:52.236] `[[` <- base::`[[` 1572s [00:52:52.236] `+` <- base::`+` 1572s [00:52:52.236] `<<-` <- base::`<<-` 1572s [00:52:52.236] sysCalls <- function(calls = sys.calls(), from = 1L) { 1572s [00:52:52.236] calls[seq.int(from = from + 12L, to = length(calls) - 1572s [00:52:52.236] 3L)] 1572s [00:52:52.236] } 1572s [00:52:52.236] function(cond) { 1572s [00:52:52.236] is_error <- inherits(cond, "error") 1572s [00:52:52.236] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1572s [00:52:52.236] NULL) 1572s [00:52:52.236] if (is_error) { 1572s [00:52:52.236] sessionInformation <- function() { 1572s [00:52:52.236] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1572s [00:52:52.236] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1572s [00:52:52.236] search = base::search(), system = base::Sys.info()) 1572s [00:52:52.236] } 1572s [00:52:52.236] ...future.conditions[[length(...future.conditions) + 1572s [00:52:52.236] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1572s [00:52:52.236] cond$call), session = sessionInformation(), 1572s [00:52:52.236] timestamp = base::Sys.time(), signaled = 0L) 1572s [00:52:52.236] signalCondition(cond) 1572s [00:52:52.236] } 1572s [00:52:52.236] else if (!ignore && TRUE && inherits(cond, c("condition", 1572s [00:52:52.236] "immediateCondition"))) { 1572s [00:52:52.236] signal <- TRUE && inherits(cond, "immediateCondition") 1572s [00:52:52.236] ...future.conditions[[length(...future.conditions) + 1572s [00:52:52.236] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1572s [00:52:52.236] if (TRUE && !signal) { 1572s [00:52:52.236] muffleCondition <- function (cond, pattern = "^muffle") 1572s [00:52:52.236] { 1572s [00:52:52.236] inherits <- base::inherits 1572s [00:52:52.236] invokeRestart <- base::invokeRestart 1572s [00:52:52.236] is.null <- base::is.null 1572s [00:52:52.236] muffled <- FALSE 1572s [00:52:52.236] if (inherits(cond, "message")) { 1572s [00:52:52.236] muffled <- grepl(pattern, "muffleMessage") 1572s [00:52:52.236] if (muffled) 1572s [00:52:52.236] invokeRestart("muffleMessage") 1572s [00:52:52.236] } 1572s [00:52:52.236] else if (inherits(cond, "warning")) { 1572s [00:52:52.236] muffled <- grepl(pattern, "muffleWarning") 1572s [00:52:52.236] if (muffled) 1572s [00:52:52.236] invokeRestart("muffleWarning") 1572s [00:52:52.236] } 1572s [00:52:52.236] else if (inherits(cond, "condition")) { 1572s [00:52:52.236] if (!is.null(pattern)) { 1572s [00:52:52.236] computeRestarts <- base::computeRestarts 1572s [00:52:52.236] grepl <- base::grepl 1572s [00:52:52.236] restarts <- computeRestarts(cond) 1572s [00:52:52.236] for (restart in restarts) { 1572s [00:52:52.236] name <- restart$name 1572s [00:52:52.236] if (is.null(name)) 1572s [00:52:52.236] next 1572s [00:52:52.236] if (!grepl(pattern, name)) 1572s [00:52:52.236] next 1572s [00:52:52.236] invokeRestart(restart) 1572s [00:52:52.236] muffled <- TRUE 1572s [00:52:52.236] break 1572s [00:52:52.236] } 1572s [00:52:52.236] } 1572s [00:52:52.236] } 1572s [00:52:52.236] invisible(muffled) 1572s [00:52:52.236] } 1572s [00:52:52.236] muffleCondition(cond, pattern = "^muffle") 1572s [00:52:52.236] } 1572s [00:52:52.236] } 1572s [00:52:52.236] else { 1572s [00:52:52.236] if (TRUE) { 1572s [00:52:52.236] muffleCondition <- function (cond, pattern = "^muffle") 1572s [00:52:52.236] { 1572s [00:52:52.236] inherits <- base::inherits 1572s [00:52:52.236] invokeRestart <- base::invokeRestart 1572s [00:52:52.236] is.null <- base::is.null 1572s [00:52:52.236] muffled <- FALSE 1572s [00:52:52.236] if (inherits(cond, "message")) { 1572s [00:52:52.236] muffled <- grepl(pattern, "muffleMessage") 1572s [00:52:52.236] if (muffled) 1572s [00:52:52.236] invokeRestart("muffleMessage") 1572s [00:52:52.236] } 1572s [00:52:52.236] else if (inherits(cond, "warning")) { 1572s [00:52:52.236] muffled <- grepl(pattern, "muffleWarning") 1572s [00:52:52.236] if (muffled) 1572s [00:52:52.236] invokeRestart("muffleWarning") 1572s [00:52:52.236] } 1572s [00:52:52.236] else if (inherits(cond, "condition")) { 1572s [00:52:52.236] if (!is.null(pattern)) { 1572s [00:52:52.236] computeRestarts <- base::computeRestarts 1572s [00:52:52.236] grepl <- base::grepl 1572s [00:52:52.236] restarts <- computeRestarts(cond) 1572s [00:52:52.236] for (restart in restarts) { 1572s [00:52:52.236] name <- restart$name 1572s [00:52:52.236] if (is.null(name)) 1572s [00:52:52.236] next 1572s [00:52:52.236] if (!grepl(pattern, name)) 1572s [00:52:52.236] next 1572s [00:52:52.236] invokeRestart(restart) 1572s [00:52:52.236] muffled <- TRUE 1572s [00:52:52.236] break 1572s [00:52:52.236] } 1572s [00:52:52.236] } 1572s [00:52:52.236] } 1572s [00:52:52.236] invisible(muffled) 1572s [00:52:52.236] } 1572s [00:52:52.236] muffleCondition(cond, pattern = "^muffle") 1572s [00:52:52.236] } 1572s [00:52:52.236] } 1572s [00:52:52.236] } 1572s [00:52:52.236] })) 1572s [00:52:52.236] }, error = function(ex) { 1572s [00:52:52.236] base::structure(base::list(value = NULL, visible = NULL, 1572s [00:52:52.236] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1572s [00:52:52.236] ...future.rng), started = ...future.startTime, 1572s [00:52:52.236] finished = Sys.time(), session_uuid = NA_character_, 1572s [00:52:52.236] version = "1.8"), class = "FutureResult") 1572s [00:52:52.236] }, finally = { 1572s [00:52:52.236] if (!identical(...future.workdir, getwd())) 1572s [00:52:52.236] setwd(...future.workdir) 1572s [00:52:52.236] { 1572s [00:52:52.236] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1572s [00:52:52.236] ...future.oldOptions$nwarnings <- NULL 1572s [00:52:52.236] } 1572s [00:52:52.236] base::options(...future.oldOptions) 1572s [00:52:52.236] if (.Platform$OS.type == "windows") { 1572s [00:52:52.236] old_names <- names(...future.oldEnvVars) 1572s [00:52:52.236] envs <- base::Sys.getenv() 1572s [00:52:52.236] names <- names(envs) 1572s [00:52:52.236] common <- intersect(names, old_names) 1572s [00:52:52.236] added <- setdiff(names, old_names) 1572s [00:52:52.236] removed <- setdiff(old_names, names) 1572s [00:52:52.236] changed <- common[...future.oldEnvVars[common] != 1572s [00:52:52.236] envs[common]] 1572s [00:52:52.236] NAMES <- toupper(changed) 1572s [00:52:52.236] args <- list() 1572s [00:52:52.236] for (kk in seq_along(NAMES)) { 1572s [00:52:52.236] name <- changed[[kk]] 1572s [00:52:52.236] NAME <- NAMES[[kk]] 1572s [00:52:52.236] if (name != NAME && is.element(NAME, old_names)) 1572s [00:52:52.236] next 1572s [00:52:52.236] args[[name]] <- ...future.oldEnvVars[[name]] 1572s [00:52:52.236] } 1572s [00:52:52.236] NAMES <- toupper(added) 1572s [00:52:52.236] for (kk in seq_along(NAMES)) { 1572s [00:52:52.236] name <- added[[kk]] 1572s [00:52:52.236] NAME <- NAMES[[kk]] 1572s [00:52:52.236] if (name != NAME && is.element(NAME, old_names)) 1572s [00:52:52.236] next 1572s [00:52:52.236] args[[name]] <- "" 1572s [00:52:52.236] } 1572s [00:52:52.236] NAMES <- toupper(removed) 1572s [00:52:52.236] for (kk in seq_along(NAMES)) { 1572s [00:52:52.236] name <- removed[[kk]] 1572s [00:52:52.236] NAME <- NAMES[[kk]] 1572s [00:52:52.236] if (name != NAME && is.element(NAME, old_names)) 1572s [00:52:52.236] next 1572s [00:52:52.236] args[[name]] <- ...future.oldEnvVars[[name]] 1572s [00:52:52.236] } 1572s [00:52:52.236] if (length(args) > 0) 1572s [00:52:52.236] base::do.call(base::Sys.setenv, args = args) 1572s [00:52:52.236] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1572s [00:52:52.236] } 1572s [00:52:52.236] else { 1572s [00:52:52.236] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1572s [00:52:52.236] } 1572s [00:52:52.236] { 1572s [00:52:52.236] if (base::length(...future.futureOptionsAdded) > 1572s [00:52:52.236] 0L) { 1572s [00:52:52.236] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1572s [00:52:52.236] base::names(opts) <- ...future.futureOptionsAdded 1572s [00:52:52.236] base::options(opts) 1572s [00:52:52.236] } 1572s [00:52:52.236] { 1572s [00:52:52.236] { 1572s [00:52:52.236] NULL 1572s [00:52:52.236] RNGkind("Mersenne-Twister") 1572s [00:52:52.236] base::rm(list = ".Random.seed", envir = base::globalenv(), 1572s [00:52:52.236] inherits = FALSE) 1572s [00:52:52.236] } 1572s [00:52:52.236] options(future.plan = NULL) 1572s [00:52:52.236] if (is.na(NA_character_)) 1572s [00:52:52.236] Sys.unsetenv("R_FUTURE_PLAN") 1572s [00:52:52.236] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1572s [00:52:52.236] future::plan(list(function (..., envir = parent.frame()) 1572s [00:52:52.236] { 1572s [00:52:52.236] future <- SequentialFuture(..., envir = envir) 1572s [00:52:52.236] if (!future$lazy) 1572s [00:52:52.236] future <- run(future) 1572s [00:52:52.236] invisible(future) 1572s [00:52:52.236] }), .cleanup = FALSE, .init = FALSE) 1572s [00:52:52.236] } 1572s [00:52:52.236] } 1572s [00:52:52.236] } 1572s [00:52:52.236] }) 1572s [00:52:52.236] if (TRUE) { 1572s [00:52:52.236] base::sink(type = "output", split = FALSE) 1572s [00:52:52.236] if (TRUE) { 1572s [00:52:52.236] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1572s [00:52:52.236] } 1572s [00:52:52.236] else { 1572s [00:52:52.236] ...future.result["stdout"] <- base::list(NULL) 1572s [00:52:52.236] } 1572s [00:52:52.236] base::close(...future.stdout) 1572s [00:52:52.236] ...future.stdout <- NULL 1572s [00:52:52.236] } 1572s [00:52:52.236] ...future.result$conditions <- ...future.conditions 1572s [00:52:52.236] ...future.result$finished <- base::Sys.time() 1572s [00:52:52.236] ...future.result 1572s [00:52:52.236] } 1572s [00:52:52.239] assign_globals() ... 1572s [00:52:52.240] List of 5 1572s [00:52:52.240] $ ...future.FUN :function (x, ...) 1572s [00:52:52.240] $ future.call.arguments : list() 1572s [00:52:52.240] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1572s [00:52:52.240] $ ...future.elements_ii :List of 4 1572s [00:52:52.240] ..$ A: num 50 1572s [00:52:52.240] ..$ B: num 60 1572s [00:52:52.240] ..$ C: num 70 1572s [00:52:52.240] ..$ D: num 80 1572s [00:52:52.240] $ ...future.seeds_ii : NULL 1572s [00:52:52.240] $ ...future.globals.maxSize: NULL 1572s [00:52:52.240] - attr(*, "where")=List of 5 1572s [00:52:52.240] ..$ ...future.FUN : 1572s [00:52:52.240] ..$ future.call.arguments : 1572s [00:52:52.240] ..$ ...future.elements_ii : 1572s [00:52:52.240] ..$ ...future.seeds_ii : 1572s [00:52:52.240] ..$ ...future.globals.maxSize: 1572s [00:52:52.240] - attr(*, "resolved")= logi FALSE 1572s [00:52:52.240] - attr(*, "total_size")= num 1248 1572s [00:52:52.240] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1572s [00:52:52.240] - attr(*, "already-done")= logi TRUE 1572s [00:52:52.249] - copied ‘...future.FUN’ to environment 1572s [00:52:52.250] - copied ‘future.call.arguments’ to environment 1572s [00:52:52.250] - copied ‘...future.elements_ii’ to environment 1572s [00:52:52.250] - copied ‘...future.seeds_ii’ to environment 1572s [00:52:52.250] - copied ‘...future.globals.maxSize’ to environment 1572s [00:52:52.250] assign_globals() ... done 1572s [00:52:52.251] plan(): Setting new future strategy stack: 1572s [00:52:52.251] List of future strategies: 1572s [00:52:52.251] 1. sequential: 1572s [00:52:52.251] - args: function (..., envir = parent.frame()) 1572s [00:52:52.251] - tweaked: FALSE 1572s [00:52:52.251] - call: NULL 1572s [00:52:52.252] plan(): nbrOfWorkers() = 1 1572s [00:52:52.253] plan(): Setting new future strategy stack: 1572s [00:52:52.253] List of future strategies: 1572s [00:52:52.253] 1. sequential: 1572s [00:52:52.253] - args: function (..., envir = parent.frame()) 1572s [00:52:52.253] - tweaked: FALSE 1572s [00:52:52.253] - call: plan(strategy) 1572s [00:52:52.253] plan(): nbrOfWorkers() = 1 1572s [00:52:52.254] SequentialFuture started (and completed) 1572s [00:52:52.254] - Launch lazy future ... done 1572s [00:52:52.254] run() for ‘SequentialFuture’ ... done 1572s [00:52:52.254] Created future: 1572s [00:52:52.254] SequentialFuture: 1572s [00:52:52.254] Label: ‘future_sapply-1’ 1572s [00:52:52.254] Expression: 1572s [00:52:52.254] { 1572s [00:52:52.254] do.call(function(...) { 1572s [00:52:52.254] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1572s [00:52:52.254] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1572s [00:52:52.254] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1572s [00:52:52.254] on.exit(options(oopts), add = TRUE) 1572s [00:52:52.254] } 1572s [00:52:52.254] { 1572s [00:52:52.254] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1572s [00:52:52.254] ...future.X_jj <- ...future.elements_ii[[jj]] 1572s [00:52:52.254] ...future.FUN(...future.X_jj, ...) 1572s [00:52:52.254] }) 1572s [00:52:52.254] } 1572s [00:52:52.254] }, args = future.call.arguments) 1572s [00:52:52.254] } 1572s [00:52:52.254] Lazy evaluation: FALSE 1572s [00:52:52.254] Asynchronous evaluation: FALSE 1572s [00:52:52.254] Local evaluation: TRUE 1572s [00:52:52.254] Environment: R_GlobalEnv 1572s [00:52:52.254] Capture standard output: TRUE 1572s [00:52:52.254] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1572s [00:52:52.254] Globals: 5 objects totaling 1.44 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1572s [00:52:52.254] Packages: 1572s [00:52:52.254] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1572s [00:52:52.254] Resolved: TRUE 1572s [00:52:52.254] Value: 896 bytes of class ‘list’ 1572s [00:52:52.254] Early signaling: FALSE 1572s [00:52:52.254] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1572s [00:52:52.254] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1572s [00:52:52.256] Chunk #1 of 1 ... DONE 1572s [00:52:52.256] Launching 1 futures (chunks) ... DONE 1572s [00:52:52.256] Resolving 1 futures (chunks) ... 1572s [00:52:52.256] resolve() on list ... 1572s [00:52:52.257] recursive: 0 1572s [00:52:52.257] length: 1 1572s [00:52:52.257] 1572s [00:52:52.257] resolved() for ‘SequentialFuture’ ... 1572s [00:52:52.257] - state: ‘finished’ 1572s [00:52:52.257] - run: TRUE 1572s [00:52:52.257] - result: ‘FutureResult’ 1572s [00:52:52.258] resolved() for ‘SequentialFuture’ ... done 1572s [00:52:52.258] Future #1 1572s [00:52:52.258] signalConditionsASAP(SequentialFuture, pos=1) ... 1572s [00:52:52.258] - nx: 1 1572s [00:52:52.258] - relay: TRUE 1572s [00:52:52.259] - stdout: TRUE 1572s [00:52:52.259] - signal: TRUE 1572s [00:52:52.259] - resignal: FALSE 1572s [00:52:52.259] - force: TRUE 1572s [00:52:52.259] - relayed: [n=1] FALSE 1572s [00:52:52.259] - queued futures: [n=1] FALSE 1572s [00:52:52.260] - until=1 1572s [00:52:52.260] - relaying element #1 1572s [00:52:52.260] - relayed: [n=1] TRUE 1572s [00:52:52.260] - queued futures: [n=1] TRUE 1572s [00:52:52.260] signalConditionsASAP(SequentialFuture, pos=1) ... done 1572s [00:52:52.260] length: 0 (resolved future 1) 1572s [00:52:52.261] Relaying remaining futures 1572s [00:52:52.261] signalConditionsASAP(NULL, pos=0) ... 1572s [00:52:52.261] - nx: 1 1572s [00:52:52.261] - relay: TRUE 1572s [00:52:52.261] - stdout: TRUE 1572s [00:52:52.262] - signal: TRUE 1572s [00:52:52.262] - resignal: FALSE 1572s [00:52:52.262] - force: TRUE 1572s [00:52:52.262] - relayed: [n=1] TRUE 1572s [00:52:52.262] - queued futures: [n=1] TRUE 1572s - flush all 1572s [00:52:52.263] - relayed: [n=1] TRUE 1572s [00:52:52.263] - queued futures: [n=1] TRUE 1572s [00:52:52.263] signalConditionsASAP(NULL, pos=0) ... done 1572s [00:52:52.263] resolve() on list ... DONE 1572s [00:52:52.264] - Number of value chunks collected: 1 1572s [00:52:52.264] Resolving 1 futures (chunks) ... DONE 1572s [00:52:52.264] Reducing values from 1 chunks ... 1572s [00:52:52.264] - Number of values collected after concatenation: 4 1572s [00:52:52.265] - Number of values expected: 4 1572s [00:52:52.265] Reducing values from 1 chunks ... DONE 1572s [00:52:52.265] future_lapply() ... DONE 1572s List of 2 1572s $ y0: Named num [1:4] 50 60 70 80 1572s ..- attr(*, "names")= chr [1:4] "A" "B" "C" "D" 1572s $ y1: Named num [1:4] 50 60 70 80 1572s ..- attr(*, "names")= chr [1:4] "A" "B" "C" "D" 1572s [00:52:52.268] future_lapply() ... 1572s [00:52:52.269] Number of chunks: 1 1572s [00:52:52.269] getGlobalsAndPackagesXApply() ... 1572s [00:52:52.270] - future.globals: TRUE 1572s [00:52:52.270] getGlobalsAndPackages() ... 1572s [00:52:52.270] Searching for globals... 1572s [00:52:52.274] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1572s [00:52:52.274] Searching for globals ... DONE 1572s [00:52:52.274] Resolving globals: FALSE 1572s [00:52:52.275] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1572s [00:52:52.275] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1572s [00:52:52.276] - globals: [1] ‘FUN’ 1572s [00:52:52.276] 1572s [00:52:52.276] getGlobalsAndPackages() ... DONE 1572s [00:52:52.276] - globals found/used: [n=1] ‘FUN’ 1572s [00:52:52.277] - needed namespaces: [n=0] 1572s [00:52:52.277] Finding globals ... DONE 1572s [00:52:52.277] - use_args: TRUE 1572s [00:52:52.278] - Getting '...' globals ... 1572s [00:52:52.278] resolve() on list ... 1572s [00:52:52.279] recursive: 0 1572s [00:52:52.279] length: 1 1572s [00:52:52.279] elements: ‘...’ 1572s [00:52:52.279] length: 0 (resolved future 1) 1572s [00:52:52.279] resolve() on list ... DONE 1572s [00:52:52.280] - '...' content: [n=0] 1572s [00:52:52.280] List of 1 1572s [00:52:52.280] $ ...: list() 1572s [00:52:52.280] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1572s [00:52:52.280] - attr(*, "where")=List of 1 1572s [00:52:52.280] ..$ ...: 1572s [00:52:52.280] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1572s [00:52:52.280] - attr(*, "resolved")= logi TRUE 1572s [00:52:52.280] - attr(*, "total_size")= num NA 1572s [00:52:52.284] - Getting '...' globals ... DONE 1572s [00:52:52.284] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1572s [00:52:52.284] List of 2 1572s [00:52:52.284] $ ...future.FUN:function (x, y = 2 * 1:5) 1572s [00:52:52.284] $ ... : list() 1572s [00:52:52.284] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1572s [00:52:52.284] - attr(*, "where")=List of 2 1572s [00:52:52.284] ..$ ...future.FUN: 1572s [00:52:52.284] ..$ ... : 1572s [00:52:52.284] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1572s [00:52:52.284] - attr(*, "resolved")= logi FALSE 1572s [00:52:52.284] - attr(*, "total_size")= num 4728 1572s [00:52:52.288] Packages to be attached in all futures: [n=0] 1572s [00:52:52.288] getGlobalsAndPackagesXApply() ... DONE 1572s [00:52:52.288] Number of futures (= number of chunks): 1 1572s [00:52:52.288] Launching 1 futures (chunks) ... 1572s [00:52:52.288] Chunk #1 of 1 ... 1572s [00:52:52.289] - Finding globals in 'X' for chunk #1 ... 1572s [00:52:52.289] getGlobalsAndPackages() ... 1572s [00:52:52.289] Searching for globals... 1572s [00:52:52.289] 1572s [00:52:52.289] Searching for globals ... DONE 1572s [00:52:52.290] - globals: [0] 1572s [00:52:52.290] getGlobalsAndPackages() ... DONE 1572s [00:52:52.290] + additional globals found: [n=0] 1572s [00:52:52.290] + additional namespaces needed: [n=0] 1572s [00:52:52.290] - Finding globals in 'X' for chunk #1 ... DONE 1572s [00:52:52.290] - seeds: 1572s [00:52:52.290] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1572s [00:52:52.291] getGlobalsAndPackages() ... 1572s [00:52:52.291] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1572s [00:52:52.291] Resolving globals: FALSE 1572s [00:52:52.291] Tweak future expression to call with '...' arguments ... 1572s [00:52:52.291] { 1572s [00:52:52.291] do.call(function(...) { 1572s [00:52:52.291] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1572s [00:52:52.291] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1572s [00:52:52.291] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1572s [00:52:52.291] on.exit(options(oopts), add = TRUE) 1572s [00:52:52.291] } 1572s [00:52:52.291] { 1572s [00:52:52.291] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1572s [00:52:52.291] ...future.X_jj <- ...future.elements_ii[[jj]] 1572s [00:52:52.291] ...future.FUN(...future.X_jj, ...) 1572s [00:52:52.291] }) 1572s [00:52:52.291] } 1572s [00:52:52.291] }, args = future.call.arguments) 1572s [00:52:52.291] } 1572s [00:52:52.292] Tweak future expression to call with '...' arguments ... DONE 1572s [00:52:52.292] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1572s [00:52:52.292] 1572s [00:52:52.292] getGlobalsAndPackages() ... DONE 1572s [00:52:52.293] run() for ‘Future’ ... 1572s [00:52:52.293] - state: ‘created’ 1572s [00:52:52.293] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1572s [00:52:52.293] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1572s [00:52:52.293] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1572s [00:52:52.294] - Field: ‘label’ 1572s [00:52:52.294] - Field: ‘local’ 1572s [00:52:52.294] - Field: ‘owner’ 1572s [00:52:52.294] - Field: ‘envir’ 1572s [00:52:52.294] - Field: ‘packages’ 1572s [00:52:52.294] - Field: ‘gc’ 1572s [00:52:52.294] - Field: ‘conditions’ 1572s [00:52:52.294] - Field: ‘expr’ 1572s [00:52:52.294] - Field: ‘uuid’ 1572s [00:52:52.295] - Field: ‘seed’ 1572s [00:52:52.295] - Field: ‘version’ 1572s [00:52:52.295] - Field: ‘result’ 1572s [00:52:52.295] - Field: ‘asynchronous’ 1572s [00:52:52.295] - Field: ‘calls’ 1572s [00:52:52.295] - Field: ‘globals’ 1572s [00:52:52.295] - Field: ‘stdout’ 1572s [00:52:52.295] - Field: ‘earlySignal’ 1572s [00:52:52.295] - Field: ‘lazy’ 1572s [00:52:52.296] - Field: ‘state’ 1572s [00:52:52.296] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1572s [00:52:52.296] - Launch lazy future ... 1572s [00:52:52.296] Packages needed by the future expression (n = 0): 1572s [00:52:52.296] Packages needed by future strategies (n = 0): 1572s [00:52:52.297] { 1572s [00:52:52.297] { 1572s [00:52:52.297] { 1572s [00:52:52.297] ...future.startTime <- base::Sys.time() 1572s [00:52:52.297] { 1572s [00:52:52.297] { 1572s [00:52:52.297] { 1572s [00:52:52.297] base::local({ 1572s [00:52:52.297] has_future <- base::requireNamespace("future", 1572s [00:52:52.297] quietly = TRUE) 1572s [00:52:52.297] if (has_future) { 1572s [00:52:52.297] ns <- base::getNamespace("future") 1572s [00:52:52.297] version <- ns[[".package"]][["version"]] 1572s [00:52:52.297] if (is.null(version)) 1572s [00:52:52.297] version <- utils::packageVersion("future") 1572s [00:52:52.297] } 1572s [00:52:52.297] else { 1572s [00:52:52.297] version <- NULL 1572s [00:52:52.297] } 1572s [00:52:52.297] if (!has_future || version < "1.8.0") { 1572s [00:52:52.297] info <- base::c(r_version = base::gsub("R version ", 1572s [00:52:52.297] "", base::R.version$version.string), 1572s [00:52:52.297] platform = base::sprintf("%s (%s-bit)", 1572s [00:52:52.297] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1572s [00:52:52.297] os = base::paste(base::Sys.info()[base::c("sysname", 1572s [00:52:52.297] "release", "version")], collapse = " "), 1572s [00:52:52.297] hostname = base::Sys.info()[["nodename"]]) 1572s [00:52:52.297] info <- base::sprintf("%s: %s", base::names(info), 1572s [00:52:52.297] info) 1572s [00:52:52.297] info <- base::paste(info, collapse = "; ") 1572s [00:52:52.297] if (!has_future) { 1572s [00:52:52.297] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1572s [00:52:52.297] info) 1572s [00:52:52.297] } 1572s [00:52:52.297] else { 1572s [00:52:52.297] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1572s [00:52:52.297] info, version) 1572s [00:52:52.297] } 1572s [00:52:52.297] base::stop(msg) 1572s [00:52:52.297] } 1572s [00:52:52.297] }) 1572s [00:52:52.297] } 1572s [00:52:52.297] options(future.plan = NULL) 1572s [00:52:52.297] Sys.unsetenv("R_FUTURE_PLAN") 1572s [00:52:52.297] future::plan("default", .cleanup = FALSE, .init = FALSE) 1572s [00:52:52.297] } 1572s [00:52:52.297] ...future.workdir <- getwd() 1572s [00:52:52.297] } 1572s [00:52:52.297] ...future.oldOptions <- base::as.list(base::.Options) 1572s [00:52:52.297] ...future.oldEnvVars <- base::Sys.getenv() 1572s [00:52:52.297] } 1572s [00:52:52.297] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1572s [00:52:52.297] future.globals.maxSize = NULL, future.globals.method = NULL, 1572s [00:52:52.297] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1572s [00:52:52.297] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1572s [00:52:52.297] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1572s [00:52:52.297] future.stdout.windows.reencode = NULL, width = 80L) 1572s [00:52:52.297] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1572s [00:52:52.297] base::names(...future.oldOptions)) 1572s [00:52:52.297] } 1572s [00:52:52.297] if (FALSE) { 1572s [00:52:52.297] } 1572s [00:52:52.297] else { 1572s [00:52:52.297] if (TRUE) { 1572s [00:52:52.297] ...future.stdout <- base::rawConnection(base::raw(0L), 1572s [00:52:52.297] open = "w") 1572s [00:52:52.297] } 1572s [00:52:52.297] else { 1572s [00:52:52.297] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1572s [00:52:52.297] windows = "NUL", "/dev/null"), open = "w") 1572s [00:52:52.297] } 1572s [00:52:52.297] base::sink(...future.stdout, type = "output", split = FALSE) 1572s [00:52:52.297] base::on.exit(if (!base::is.null(...future.stdout)) { 1572s [00:52:52.297] base::sink(type = "output", split = FALSE) 1572s [00:52:52.297] base::close(...future.stdout) 1572s [00:52:52.297] }, add = TRUE) 1572s [00:52:52.297] } 1572s [00:52:52.297] ...future.frame <- base::sys.nframe() 1572s [00:52:52.297] ...future.conditions <- base::list() 1572s [00:52:52.297] ...future.rng <- base::globalenv()$.Random.seed 1572s [00:52:52.297] if (FALSE) { 1572s [00:52:52.297] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1572s [00:52:52.297] "...future.value", "...future.globalenv.names", ".Random.seed") 1572s [00:52:52.297] } 1572s [00:52:52.297] ...future.result <- base::tryCatch({ 1572s [00:52:52.297] base::withCallingHandlers({ 1572s [00:52:52.297] ...future.value <- base::withVisible(base::local({ 1572s [00:52:52.297] do.call(function(...) { 1572s [00:52:52.297] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1572s [00:52:52.297] if (!identical(...future.globals.maxSize.org, 1572s [00:52:52.297] ...future.globals.maxSize)) { 1572s [00:52:52.297] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1572s [00:52:52.297] on.exit(options(oopts), add = TRUE) 1572s [00:52:52.297] } 1572s [00:52:52.297] { 1572s [00:52:52.297] lapply(seq_along(...future.elements_ii), 1572s [00:52:52.297] FUN = function(jj) { 1572s [00:52:52.297] ...future.X_jj <- ...future.elements_ii[[jj]] 1572s [00:52:52.297] ...future.FUN(...future.X_jj, ...) 1572s [00:52:52.297] }) 1572s [00:52:52.297] } 1572s [00:52:52.297] }, args = future.call.arguments) 1572s [00:52:52.297] })) 1572s [00:52:52.297] future::FutureResult(value = ...future.value$value, 1572s [00:52:52.297] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1572s [00:52:52.297] ...future.rng), globalenv = if (FALSE) 1572s [00:52:52.297] list(added = base::setdiff(base::names(base::.GlobalEnv), 1572s [00:52:52.297] ...future.globalenv.names)) 1572s [00:52:52.297] else NULL, started = ...future.startTime, version = "1.8") 1572s [00:52:52.297] }, condition = base::local({ 1572s [00:52:52.297] c <- base::c 1572s [00:52:52.297] inherits <- base::inherits 1572s [00:52:52.297] invokeRestart <- base::invokeRestart 1572s [00:52:52.297] length <- base::length 1572s [00:52:52.297] list <- base::list 1572s [00:52:52.297] seq.int <- base::seq.int 1572s [00:52:52.297] signalCondition <- base::signalCondition 1572s [00:52:52.297] sys.calls <- base::sys.calls 1572s [00:52:52.297] `[[` <- base::`[[` 1572s [00:52:52.297] `+` <- base::`+` 1572s [00:52:52.297] `<<-` <- base::`<<-` 1572s [00:52:52.297] sysCalls <- function(calls = sys.calls(), from = 1L) { 1572s [00:52:52.297] calls[seq.int(from = from + 12L, to = length(calls) - 1572s [00:52:52.297] 3L)] 1572s [00:52:52.297] } 1572s [00:52:52.297] function(cond) { 1572s [00:52:52.297] is_error <- inherits(cond, "error") 1572s [00:52:52.297] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1572s [00:52:52.297] NULL) 1572s [00:52:52.297] if (is_error) { 1572s [00:52:52.297] sessionInformation <- function() { 1572s [00:52:52.297] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1572s [00:52:52.297] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1572s [00:52:52.297] search = base::search(), system = base::Sys.info()) 1572s [00:52:52.297] } 1572s [00:52:52.297] ...future.conditions[[length(...future.conditions) + 1572s [00:52:52.297] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1572s [00:52:52.297] cond$call), session = sessionInformation(), 1572s [00:52:52.297] timestamp = base::Sys.time(), signaled = 0L) 1572s [00:52:52.297] signalCondition(cond) 1572s [00:52:52.297] } 1572s [00:52:52.297] else if (!ignore && TRUE && inherits(cond, c("condition", 1572s [00:52:52.297] "immediateCondition"))) { 1572s [00:52:52.297] signal <- TRUE && inherits(cond, "immediateCondition") 1572s [00:52:52.297] ...future.conditions[[length(...future.conditions) + 1572s [00:52:52.297] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1572s [00:52:52.297] if (TRUE && !signal) { 1572s [00:52:52.297] muffleCondition <- function (cond, pattern = "^muffle") 1572s [00:52:52.297] { 1572s [00:52:52.297] inherits <- base::inherits 1572s [00:52:52.297] invokeRestart <- base::invokeRestart 1572s [00:52:52.297] is.null <- base::is.null 1572s [00:52:52.297] muffled <- FALSE 1572s [00:52:52.297] if (inherits(cond, "message")) { 1572s [00:52:52.297] muffled <- grepl(pattern, "muffleMessage") 1572s [00:52:52.297] if (muffled) 1572s [00:52:52.297] invokeRestart("muffleMessage") 1572s [00:52:52.297] } 1572s [00:52:52.297] else if (inherits(cond, "warning")) { 1572s [00:52:52.297] muffled <- grepl(pattern, "muffleWarning") 1572s [00:52:52.297] if (muffled) 1572s [00:52:52.297] invokeRestart("muffleWarning") 1572s [00:52:52.297] } 1572s [00:52:52.297] else if (inherits(cond, "condition")) { 1572s [00:52:52.297] if (!is.null(pattern)) { 1572s [00:52:52.297] computeRestarts <- base::computeRestarts 1572s [00:52:52.297] grepl <- base::grepl 1572s [00:52:52.297] restarts <- computeRestarts(cond) 1572s [00:52:52.297] for (restart in restarts) { 1572s [00:52:52.297] name <- restart$name 1572s [00:52:52.297] if (is.null(name)) 1572s [00:52:52.297] next 1572s [00:52:52.297] if (!grepl(pattern, name)) 1572s [00:52:52.297] next 1572s [00:52:52.297] invokeRestart(restart) 1572s [00:52:52.297] muffled <- TRUE 1572s [00:52:52.297] break 1572s [00:52:52.297] } 1572s [00:52:52.297] } 1572s [00:52:52.297] } 1572s [00:52:52.297] invisible(muffled) 1572s [00:52:52.297] } 1572s [00:52:52.297] muffleCondition(cond, pattern = "^muffle") 1572s [00:52:52.297] } 1572s [00:52:52.297] } 1572s [00:52:52.297] else { 1572s [00:52:52.297] if (TRUE) { 1572s [00:52:52.297] muffleCondition <- function (cond, pattern = "^muffle") 1572s [00:52:52.297] { 1572s [00:52:52.297] inherits <- base::inherits 1572s [00:52:52.297] invokeRestart <- base::invokeRestart 1572s [00:52:52.297] is.null <- base::is.null 1572s [00:52:52.297] muffled <- FALSE 1572s [00:52:52.297] if (inherits(cond, "message")) { 1572s [00:52:52.297] muffled <- grepl(pattern, "muffleMessage") 1572s [00:52:52.297] if (muffled) 1572s [00:52:52.297] invokeRestart("muffleMessage") 1572s [00:52:52.297] } 1572s [00:52:52.297] else if (inherits(cond, "warning")) { 1572s [00:52:52.297] muffled <- grepl(pattern, "muffleWarning") 1572s [00:52:52.297] if (muffled) 1572s [00:52:52.297] invokeRestart("muffleWarning") 1572s [00:52:52.297] } 1572s [00:52:52.297] else if (inherits(cond, "condition")) { 1572s [00:52:52.297] if (!is.null(pattern)) { 1572s [00:52:52.297] computeRestarts <- base::computeRestarts 1572s [00:52:52.297] grepl <- base::grepl 1572s [00:52:52.297] restarts <- computeRestarts(cond) 1572s [00:52:52.297] for (restart in restarts) { 1572s [00:52:52.297] name <- restart$name 1572s [00:52:52.297] if (is.null(name)) 1572s [00:52:52.297] next 1572s [00:52:52.297] if (!grepl(pattern, name)) 1572s [00:52:52.297] next 1572s [00:52:52.297] invokeRestart(restart) 1572s [00:52:52.297] muffled <- TRUE 1572s [00:52:52.297] break 1572s [00:52:52.297] } 1572s [00:52:52.297] } 1572s [00:52:52.297] } 1572s [00:52:52.297] invisible(muffled) 1572s [00:52:52.297] } 1572s [00:52:52.297] muffleCondition(cond, pattern = "^muffle") 1572s [00:52:52.297] } 1572s [00:52:52.297] } 1572s [00:52:52.297] } 1572s [00:52:52.297] })) 1572s [00:52:52.297] }, error = function(ex) { 1572s [00:52:52.297] base::structure(base::list(value = NULL, visible = NULL, 1572s [00:52:52.297] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1572s [00:52:52.297] ...future.rng), started = ...future.startTime, 1572s [00:52:52.297] finished = Sys.time(), session_uuid = NA_character_, 1572s [00:52:52.297] version = "1.8"), class = "FutureResult") 1572s [00:52:52.297] }, finally = { 1572s [00:52:52.297] if (!identical(...future.workdir, getwd())) 1572s [00:52:52.297] setwd(...future.workdir) 1572s [00:52:52.297] { 1572s [00:52:52.297] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1572s [00:52:52.297] ...future.oldOptions$nwarnings <- NULL 1572s [00:52:52.297] } 1572s [00:52:52.297] base::options(...future.oldOptions) 1572s [00:52:52.297] if (.Platform$OS.type == "windows") { 1572s [00:52:52.297] old_names <- names(...future.oldEnvVars) 1572s [00:52:52.297] envs <- base::Sys.getenv() 1572s [00:52:52.297] names <- names(envs) 1572s [00:52:52.297] common <- intersect(names, old_names) 1572s [00:52:52.297] added <- setdiff(names, old_names) 1572s [00:52:52.297] removed <- setdiff(old_names, names) 1572s [00:52:52.297] changed <- common[...future.oldEnvVars[common] != 1572s [00:52:52.297] envs[common]] 1572s [00:52:52.297] NAMES <- toupper(changed) 1572s [00:52:52.297] args <- list() 1572s [00:52:52.297] for (kk in seq_along(NAMES)) { 1572s [00:52:52.297] name <- changed[[kk]] 1572s [00:52:52.297] NAME <- NAMES[[kk]] 1572s [00:52:52.297] if (name != NAME && is.element(NAME, old_names)) 1572s [00:52:52.297] next 1572s [00:52:52.297] args[[name]] <- ...future.oldEnvVars[[name]] 1572s [00:52:52.297] } 1572s [00:52:52.297] NAMES <- toupper(added) 1572s [00:52:52.297] for (kk in seq_along(NAMES)) { 1572s [00:52:52.297] name <- added[[kk]] 1572s [00:52:52.297] NAME <- NAMES[[kk]] 1572s [00:52:52.297] if (name != NAME && is.element(NAME, old_names)) 1572s [00:52:52.297] next 1572s [00:52:52.297] args[[name]] <- "" 1572s [00:52:52.297] } 1572s [00:52:52.297] NAMES <- toupper(removed) 1572s [00:52:52.297] for (kk in seq_along(NAMES)) { 1572s [00:52:52.297] name <- removed[[kk]] 1572s [00:52:52.297] NAME <- NAMES[[kk]] 1572s [00:52:52.297] if (name != NAME && is.element(NAME, old_names)) 1572s [00:52:52.297] next 1572s [00:52:52.297] args[[name]] <- ...future.oldEnvVars[[name]] 1572s [00:52:52.297] } 1572s [00:52:52.297] if (length(args) > 0) 1572s [00:52:52.297] base::do.call(base::Sys.setenv, args = args) 1572s [00:52:52.297] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1572s [00:52:52.297] } 1572s [00:52:52.297] else { 1572s [00:52:52.297] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1572s [00:52:52.297] } 1572s [00:52:52.297] { 1572s [00:52:52.297] if (base::length(...future.futureOptionsAdded) > 1572s [00:52:52.297] 0L) { 1572s [00:52:52.297] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1572s [00:52:52.297] base::names(opts) <- ...future.futureOptionsAdded 1572s [00:52:52.297] base::options(opts) 1572s [00:52:52.297] } 1572s [00:52:52.297] { 1572s [00:52:52.297] { 1572s [00:52:52.297] NULL 1572s [00:52:52.297] RNGkind("Mersenne-Twister") 1572s [00:52:52.297] base::rm(list = ".Random.seed", envir = base::globalenv(), 1572s [00:52:52.297] inherits = FALSE) 1572s [00:52:52.297] } 1572s [00:52:52.297] options(future.plan = NULL) 1572s [00:52:52.297] if (is.na(NA_character_)) 1572s [00:52:52.297] Sys.unsetenv("R_FUTURE_PLAN") 1572s [00:52:52.297] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1572s [00:52:52.297] future::plan(list(function (..., envir = parent.frame()) 1572s [00:52:52.297] { 1572s [00:52:52.297] future <- SequentialFuture(..., envir = envir) 1572s [00:52:52.297] if (!future$lazy) 1572s [00:52:52.297] future <- run(future) 1572s [00:52:52.297] invisible(future) 1572s [00:52:52.297] }), .cleanup = FALSE, .init = FALSE) 1572s [00:52:52.297] } 1572s [00:52:52.297] } 1572s [00:52:52.297] } 1572s [00:52:52.297] }) 1572s [00:52:52.297] if (TRUE) { 1572s [00:52:52.297] base::sink(type = "output", split = FALSE) 1572s [00:52:52.297] if (TRUE) { 1572s [00:52:52.297] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1572s [00:52:52.297] } 1572s [00:52:52.297] else { 1572s [00:52:52.297] ...future.result["stdout"] <- base::list(NULL) 1572s [00:52:52.297] } 1572s [00:52:52.297] base::close(...future.stdout) 1572s [00:52:52.297] ...future.stdout <- NULL 1572s [00:52:52.297] } 1572s [00:52:52.297] ...future.result$conditions <- ...future.conditions 1572s [00:52:52.297] ...future.result$finished <- base::Sys.time() 1572s [00:52:52.297] ...future.result 1572s [00:52:52.297] } 1572s [00:52:52.299] assign_globals() ... 1572s [00:52:52.299] List of 5 1572s [00:52:52.299] $ ...future.FUN :function (x, y = 2 * 1:5) 1572s [00:52:52.299] $ future.call.arguments : list() 1572s [00:52:52.299] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1572s [00:52:52.299] $ ...future.elements_ii :List of 4 1572s [00:52:52.299] ..$ A: num 50 1572s [00:52:52.299] ..$ B: num 60 1572s [00:52:52.299] ..$ C: num 70 1572s [00:52:52.299] ..$ D: num 80 1572s [00:52:52.299] $ ...future.seeds_ii : NULL 1572s [00:52:52.299] $ ...future.globals.maxSize: NULL 1572s [00:52:52.299] - attr(*, "where")=List of 5 1572s [00:52:52.299] ..$ ...future.FUN : 1572s [00:52:52.299] ..$ future.call.arguments : 1572s [00:52:52.299] ..$ ...future.elements_ii : 1572s [00:52:52.299] ..$ ...future.seeds_ii : 1572s [00:52:52.299] ..$ ...future.globals.maxSize: 1572s [00:52:52.299] - attr(*, "resolved")= logi FALSE 1572s [00:52:52.299] - attr(*, "total_size")= num 4728 1572s [00:52:52.299] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1572s [00:52:52.299] - attr(*, "already-done")= logi TRUE 1572s [00:52:52.311] - reassign environment for ‘...future.FUN’ 1572s [00:52:52.311] - copied ‘...future.FUN’ to environment 1572s [00:52:52.312] - copied ‘future.call.arguments’ to environment 1572s [00:52:52.312] - copied ‘...future.elements_ii’ to environment 1572s [00:52:52.312] - copied ‘...future.seeds_ii’ to environment 1572s [00:52:52.312] - copied ‘...future.globals.maxSize’ to environment 1572s [00:52:52.313] assign_globals() ... done 1572s [00:52:52.313] plan(): Setting new future strategy stack: 1572s [00:52:52.313] List of future strategies: 1572s [00:52:52.313] 1. sequential: 1572s [00:52:52.313] - args: function (..., envir = parent.frame()) 1572s [00:52:52.313] - tweaked: FALSE 1572s [00:52:52.313] - call: NULL 1572s [00:52:52.314] plan(): nbrOfWorkers() = 1 1572s [00:52:52.315] plan(): Setting new future strategy stack: 1572s [00:52:52.315] List of future strategies: 1572s [00:52:52.315] 1. sequential: 1572s [00:52:52.315] - args: function (..., envir = parent.frame()) 1572s [00:52:52.315] - tweaked: FALSE 1572s [00:52:52.315] - call: plan(strategy) 1572s [00:52:52.315] plan(): nbrOfWorkers() = 1 1572s [00:52:52.315] SequentialFuture started (and completed) 1572s [00:52:52.316] - Launch lazy future ... done 1572s [00:52:52.316] run() for ‘SequentialFuture’ ... done 1572s [00:52:52.316] Created future: 1572s [00:52:52.316] SequentialFuture: 1572s [00:52:52.316] Label: ‘future_sapply-1’ 1572s [00:52:52.316] Expression: 1572s [00:52:52.316] { 1572s [00:52:52.316] do.call(function(...) { 1572s [00:52:52.316] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1572s [00:52:52.316] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1572s [00:52:52.316] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1572s [00:52:52.316] on.exit(options(oopts), add = TRUE) 1572s [00:52:52.316] } 1572s [00:52:52.316] { 1572s [00:52:52.316] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1572s [00:52:52.316] ...future.X_jj <- ...future.elements_ii[[jj]] 1572s [00:52:52.316] ...future.FUN(...future.X_jj, ...) 1572s [00:52:52.316] }) 1572s [00:52:52.316] } 1572s [00:52:52.316] }, args = future.call.arguments) 1572s [00:52:52.316] } 1572s [00:52:52.316] Lazy evaluation: FALSE 1572s [00:52:52.316] Asynchronous evaluation: FALSE 1572s [00:52:52.316] Local evaluation: TRUE 1572s [00:52:52.316] Environment: R_GlobalEnv 1572s [00:52:52.316] Capture standard output: TRUE 1572s [00:52:52.316] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1572s [00:52:52.316] Globals: 5 objects totaling 4.84 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1572s [00:52:52.316] Packages: 1572s [00:52:52.316] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1572s [00:52:52.316] Resolved: TRUE 1572s [00:52:52.316] Value: 1.34 KiB of class ‘list’ 1572s [00:52:52.316] Early signaling: FALSE 1572s [00:52:52.316] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1572s [00:52:52.316] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1572s [00:52:52.318] Chunk #1 of 1 ... DONE 1572s [00:52:52.318] Launching 1 futures (chunks) ... DONE 1572s [00:52:52.318] Resolving 1 futures (chunks) ... 1572s [00:52:52.318] resolve() on list ... 1572s [00:52:52.318] recursive: 0 1572s [00:52:52.319] length: 1 1572s [00:52:52.319] 1572s [00:52:52.319] resolved() for ‘SequentialFuture’ ... 1572s [00:52:52.319] - state: ‘finished’ 1572s [00:52:52.319] - run: TRUE 1572s [00:52:52.319] - result: ‘FutureResult’ 1572s [00:52:52.320] resolved() for ‘SequentialFuture’ ... done 1572s [00:52:52.320] Future #1 1572s [00:52:52.320] signalConditionsASAP(SequentialFuture, pos=1) ... 1572s [00:52:52.320] - nx: 1 1572s [00:52:52.320] - relay: TRUE 1572s [00:52:52.320] - stdout: TRUE 1572s [00:52:52.321] - signal: TRUE 1572s [00:52:52.321] - resignal: FALSE 1572s [00:52:52.321] - force: TRUE 1572s [00:52:52.321] - relayed: [n=1] FALSE 1572s [00:52:52.321] - queued futures: [n=1] FALSE 1572s [00:52:52.321] - until=1 1572s [00:52:52.321] - relaying element #1 1572s [00:52:52.322] - relayed: [n=1] TRUE 1572s [00:52:52.322] - queued futures: [n=1] TRUE 1572s [00:52:52.322] signalConditionsASAP(SequentialFuture, pos=1) ... done 1572s [00:52:52.323] length: 0 (resolved future 1) 1572s [00:52:52.323] Relaying remaining futures 1572s [00:52:52.323] signalConditionsASAP(NULL, pos=0) ... 1572s [00:52:52.323] - nx: 1 1572s [00:52:52.323] - relay: TRUE 1572s [00:52:52.323] - stdout: TRUE 1572s [00:52:52.324] - signal: TRUE 1572s [00:52:52.324] - resignal: FALSE 1572s [00:52:52.324] - force: TRUE 1572s [00:52:52.324] - relayed: [n=1] TRUE 1572s [00:52:52.324] - queued futures: [n=1] TRUE 1572s - flush all 1572s [00:52:52.324] - relayed: [n=1] TRUE 1572s [00:52:52.325] - queued futures: [n=1] TRUE 1572s [00:52:52.325] signalConditionsASAP(NULL, pos=0) ... done 1572s [00:52:52.325] resolve() on list ... DONE 1572s [00:52:52.325] - Number of value chunks collected: 1 1572s [00:52:52.325] Resolving 1 futures (chunks) ... DONE 1572s [00:52:52.325] Reducing values from 1 chunks ... 1572s [00:52:52.325] - Number of values collected after concatenation: 4 1572s [00:52:52.326] - Number of values expected: 4 1572s [00:52:52.326] Reducing values from 1 chunks ... DONE 1572s [00:52:52.326] future_lapply() ... DONE 1572s List of 2 1572s $ y0: num [1:15, 1:4] 100 100 100 200 200 200 300 300 300 400 ... 1572s ..- attr(*, "dimnames")=List of 2 1572s .. ..$ : NULL 1572s .. ..$ : chr [1:4] "A" "B" "C" "D" 1572s $ y1: num [1:15, 1:4] 100 100 100 200 200 200 300 300 300 400 ... 1572s ..- attr(*, "dimnames")=List of 2 1572s .. ..$ : NULL 1572s .. ..$ : chr [1:4] "A" "B" "C" "D" 1572s [00:52:52.331] future_lapply() ... 1572s [00:52:52.331] Number of chunks: 1 1572s [00:52:52.332] getGlobalsAndPackagesXApply() ... 1572s [00:52:52.332] - future.globals: TRUE 1572s [00:52:52.332] getGlobalsAndPackages() ... 1572s [00:52:52.332] Searching for globals... 1572s [00:52:52.334] - globals found: [1] ‘FUN’ 1572s [00:52:52.334] Searching for globals ... DONE 1572s [00:52:52.334] Resolving globals: FALSE 1572s [00:52:52.334] The total size of the 1 globals is 848 bytes (848 bytes) 1572s [00:52:52.335] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1572s [00:52:52.335] - globals: [1] ‘FUN’ 1572s [00:52:52.335] 1572s [00:52:52.336] getGlobalsAndPackages() ... DONE 1572s [00:52:52.336] - globals found/used: [n=1] ‘FUN’ 1572s [00:52:52.336] - needed namespaces: [n=0] 1572s [00:52:52.336] Finding globals ... DONE 1572s [00:52:52.336] - use_args: TRUE 1572s [00:52:52.336] - Getting '...' globals ... 1572s [00:52:52.337] resolve() on list ... 1572s [00:52:52.337] recursive: 0 1572s [00:52:52.337] length: 1 1572s [00:52:52.337] elements: ‘...’ 1572s [00:52:52.338] length: 0 (resolved future 1) 1572s [00:52:52.338] resolve() on list ... DONE 1572s [00:52:52.338] - '...' content: [n=0] 1572s [00:52:52.338] List of 1 1572s [00:52:52.338] $ ...: list() 1572s [00:52:52.338] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1572s [00:52:52.338] - attr(*, "where")=List of 1 1572s [00:52:52.338] ..$ ...: 1572s [00:52:52.338] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1572s [00:52:52.338] - attr(*, "resolved")= logi TRUE 1572s [00:52:52.338] - attr(*, "total_size")= num NA 1572s [00:52:52.342] - Getting '...' globals ... DONE 1572s [00:52:52.342] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1572s [00:52:52.345] List of 2 1572s [00:52:52.345] $ ...future.FUN:function (x) 1572s [00:52:52.345] $ ... : list() 1572s [00:52:52.345] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1572s [00:52:52.345] - attr(*, "where")=List of 2 1572s [00:52:52.345] ..$ ...future.FUN: 1572s [00:52:52.345] ..$ ... : 1572s [00:52:52.345] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1572s [00:52:52.345] - attr(*, "resolved")= logi FALSE 1572s [00:52:52.345] - attr(*, "total_size")= num 848 1572s [00:52:52.350] Packages to be attached in all futures: [n=0] 1572s [00:52:52.350] getGlobalsAndPackagesXApply() ... DONE 1572s [00:52:52.350] Number of futures (= number of chunks): 1 1572s [00:52:52.351] Launching 1 futures (chunks) ... 1572s [00:52:52.351] Chunk #1 of 1 ... 1572s [00:52:52.351] - Finding globals in 'X' for chunk #1 ... 1572s [00:52:52.351] getGlobalsAndPackages() ... 1572s [00:52:52.351] Searching for globals... 1572s [00:52:52.352] 1572s [00:52:52.352] Searching for globals ... DONE 1572s [00:52:52.352] - globals: [0] 1572s [00:52:52.352] getGlobalsAndPackages() ... DONE 1572s [00:52:52.352] + additional globals found: [n=0] 1572s [00:52:52.353] + additional namespaces needed: [n=0] 1572s [00:52:52.353] - Finding globals in 'X' for chunk #1 ... DONE 1572s [00:52:52.353] - seeds: 1572s [00:52:52.353] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1572s [00:52:52.353] getGlobalsAndPackages() ... 1572s [00:52:52.353] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1572s [00:52:52.354] Resolving globals: FALSE 1572s [00:52:52.354] Tweak future expression to call with '...' arguments ... 1572s [00:52:52.354] { 1572s [00:52:52.354] do.call(function(...) { 1572s [00:52:52.354] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1572s [00:52:52.354] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1572s [00:52:52.354] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1572s [00:52:52.354] on.exit(options(oopts), add = TRUE) 1572s [00:52:52.354] } 1572s [00:52:52.354] { 1572s [00:52:52.354] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1572s [00:52:52.354] ...future.X_jj <- ...future.elements_ii[[jj]] 1572s [00:52:52.354] ...future.FUN(...future.X_jj, ...) 1572s [00:52:52.354] }) 1572s [00:52:52.354] } 1572s [00:52:52.354] }, args = future.call.arguments) 1572s [00:52:52.354] } 1572s [00:52:52.355] Tweak future expression to call with '...' arguments ... DONE 1572s [00:52:52.355] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1572s [00:52:52.355] 1572s [00:52:52.356] getGlobalsAndPackages() ... DONE 1572s [00:52:52.356] run() for ‘Future’ ... 1572s [00:52:52.356] - state: ‘created’ 1572s [00:52:52.356] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1572s [00:52:52.357] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1572s [00:52:52.357] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1572s [00:52:52.357] - Field: ‘label’ 1572s [00:52:52.357] - Field: ‘local’ 1572s [00:52:52.357] - Field: ‘owner’ 1572s [00:52:52.357] - Field: ‘envir’ 1572s [00:52:52.357] - Field: ‘packages’ 1572s [00:52:52.357] - Field: ‘gc’ 1572s [00:52:52.358] - Field: ‘conditions’ 1572s [00:52:52.358] - Field: ‘expr’ 1572s [00:52:52.358] - Field: ‘uuid’ 1572s [00:52:52.358] - Field: ‘seed’ 1572s [00:52:52.358] - Field: ‘version’ 1572s [00:52:52.358] - Field: ‘result’ 1572s [00:52:52.358] - Field: ‘asynchronous’ 1572s [00:52:52.359] - Field: ‘calls’ 1572s [00:52:52.359] - Field: ‘globals’ 1572s [00:52:52.359] - Field: ‘stdout’ 1572s [00:52:52.359] - Field: ‘earlySignal’ 1572s [00:52:52.359] - Field: ‘lazy’ 1572s [00:52:52.359] - Field: ‘state’ 1572s [00:52:52.360] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1572s [00:52:52.360] - Launch lazy future ... 1572s [00:52:52.361] Packages needed by the future expression (n = 0): 1572s [00:52:52.361] Packages needed by future strategies (n = 0): 1572s [00:52:52.362] { 1572s [00:52:52.362] { 1572s [00:52:52.362] { 1572s [00:52:52.362] ...future.startTime <- base::Sys.time() 1572s [00:52:52.362] { 1572s [00:52:52.362] { 1572s [00:52:52.362] { 1572s [00:52:52.362] base::local({ 1572s [00:52:52.362] has_future <- base::requireNamespace("future", 1572s [00:52:52.362] quietly = TRUE) 1572s [00:52:52.362] if (has_future) { 1572s [00:52:52.362] ns <- base::getNamespace("future") 1572s [00:52:52.362] version <- ns[[".package"]][["version"]] 1572s [00:52:52.362] if (is.null(version)) 1572s [00:52:52.362] version <- utils::packageVersion("future") 1572s [00:52:52.362] } 1572s [00:52:52.362] else { 1572s [00:52:52.362] version <- NULL 1572s [00:52:52.362] } 1572s [00:52:52.362] if (!has_future || version < "1.8.0") { 1572s [00:52:52.362] info <- base::c(r_version = base::gsub("R version ", 1572s [00:52:52.362] "", base::R.version$version.string), 1572s [00:52:52.362] platform = base::sprintf("%s (%s-bit)", 1572s [00:52:52.362] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1572s [00:52:52.362] os = base::paste(base::Sys.info()[base::c("sysname", 1572s [00:52:52.362] "release", "version")], collapse = " "), 1572s [00:52:52.362] hostname = base::Sys.info()[["nodename"]]) 1572s [00:52:52.362] info <- base::sprintf("%s: %s", base::names(info), 1572s [00:52:52.362] info) 1572s [00:52:52.362] info <- base::paste(info, collapse = "; ") 1572s [00:52:52.362] if (!has_future) { 1572s [00:52:52.362] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1572s [00:52:52.362] info) 1572s [00:52:52.362] } 1572s [00:52:52.362] else { 1572s [00:52:52.362] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1572s [00:52:52.362] info, version) 1572s [00:52:52.362] } 1572s [00:52:52.362] base::stop(msg) 1572s [00:52:52.362] } 1572s [00:52:52.362] }) 1572s [00:52:52.362] } 1572s [00:52:52.362] options(future.plan = NULL) 1572s [00:52:52.362] Sys.unsetenv("R_FUTURE_PLAN") 1572s [00:52:52.362] future::plan("default", .cleanup = FALSE, .init = FALSE) 1572s [00:52:52.362] } 1572s [00:52:52.362] ...future.workdir <- getwd() 1572s [00:52:52.362] } 1572s [00:52:52.362] ...future.oldOptions <- base::as.list(base::.Options) 1572s [00:52:52.362] ...future.oldEnvVars <- base::Sys.getenv() 1572s [00:52:52.362] } 1572s [00:52:52.362] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1572s [00:52:52.362] future.globals.maxSize = NULL, future.globals.method = NULL, 1572s [00:52:52.362] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1572s [00:52:52.362] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1572s [00:52:52.362] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1572s [00:52:52.362] future.stdout.windows.reencode = NULL, width = 80L) 1572s [00:52:52.362] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1572s [00:52:52.362] base::names(...future.oldOptions)) 1572s [00:52:52.362] } 1572s [00:52:52.362] if (FALSE) { 1572s [00:52:52.362] } 1572s [00:52:52.362] else { 1572s [00:52:52.362] if (TRUE) { 1572s [00:52:52.362] ...future.stdout <- base::rawConnection(base::raw(0L), 1572s [00:52:52.362] open = "w") 1572s [00:52:52.362] } 1572s [00:52:52.362] else { 1572s [00:52:52.362] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1572s [00:52:52.362] windows = "NUL", "/dev/null"), open = "w") 1572s [00:52:52.362] } 1572s [00:52:52.362] base::sink(...future.stdout, type = "output", split = FALSE) 1572s [00:52:52.362] base::on.exit(if (!base::is.null(...future.stdout)) { 1572s [00:52:52.362] base::sink(type = "output", split = FALSE) 1572s [00:52:52.362] base::close(...future.stdout) 1572s [00:52:52.362] }, add = TRUE) 1572s [00:52:52.362] } 1572s [00:52:52.362] ...future.frame <- base::sys.nframe() 1572s [00:52:52.362] ...future.conditions <- base::list() 1572s [00:52:52.362] ...future.rng <- base::globalenv()$.Random.seed 1572s [00:52:52.362] if (FALSE) { 1572s [00:52:52.362] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1572s [00:52:52.362] "...future.value", "...future.globalenv.names", ".Random.seed") 1572s [00:52:52.362] } 1572s [00:52:52.362] ...future.result <- base::tryCatch({ 1572s [00:52:52.362] base::withCallingHandlers({ 1572s [00:52:52.362] ...future.value <- base::withVisible(base::local({ 1572s [00:52:52.362] do.call(function(...) { 1572s [00:52:52.362] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1572s [00:52:52.362] if (!identical(...future.globals.maxSize.org, 1572s [00:52:52.362] ...future.globals.maxSize)) { 1572s [00:52:52.362] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1572s [00:52:52.362] on.exit(options(oopts), add = TRUE) 1572s [00:52:52.362] } 1572s [00:52:52.362] { 1572s [00:52:52.362] lapply(seq_along(...future.elements_ii), 1572s [00:52:52.362] FUN = function(jj) { 1572s [00:52:52.362] ...future.X_jj <- ...future.elements_ii[[jj]] 1572s [00:52:52.362] ...future.FUN(...future.X_jj, ...) 1572s [00:52:52.362] }) 1572s [00:52:52.362] } 1572s [00:52:52.362] }, args = future.call.arguments) 1572s [00:52:52.362] })) 1572s [00:52:52.362] future::FutureResult(value = ...future.value$value, 1572s [00:52:52.362] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1572s [00:52:52.362] ...future.rng), globalenv = if (FALSE) 1572s [00:52:52.362] list(added = base::setdiff(base::names(base::.GlobalEnv), 1572s [00:52:52.362] ...future.globalenv.names)) 1572s [00:52:52.362] else NULL, started = ...future.startTime, version = "1.8") 1572s [00:52:52.362] }, condition = base::local({ 1572s [00:52:52.362] c <- base::c 1572s [00:52:52.362] inherits <- base::inherits 1572s [00:52:52.362] invokeRestart <- base::invokeRestart 1572s [00:52:52.362] length <- base::length 1572s [00:52:52.362] list <- base::list 1572s [00:52:52.362] seq.int <- base::seq.int 1572s [00:52:52.362] signalCondition <- base::signalCondition 1572s [00:52:52.362] sys.calls <- base::sys.calls 1572s [00:52:52.362] `[[` <- base::`[[` 1572s [00:52:52.362] `+` <- base::`+` 1572s [00:52:52.362] `<<-` <- base::`<<-` 1572s [00:52:52.362] sysCalls <- function(calls = sys.calls(), from = 1L) { 1572s [00:52:52.362] calls[seq.int(from = from + 12L, to = length(calls) - 1572s [00:52:52.362] 3L)] 1572s [00:52:52.362] } 1572s [00:52:52.362] function(cond) { 1572s [00:52:52.362] is_error <- inherits(cond, "error") 1572s [00:52:52.362] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1572s [00:52:52.362] NULL) 1572s [00:52:52.362] if (is_error) { 1572s [00:52:52.362] sessionInformation <- function() { 1572s [00:52:52.362] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1572s [00:52:52.362] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1572s [00:52:52.362] search = base::search(), system = base::Sys.info()) 1572s [00:52:52.362] } 1572s [00:52:52.362] ...future.conditions[[length(...future.conditions) + 1572s [00:52:52.362] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1572s [00:52:52.362] cond$call), session = sessionInformation(), 1572s [00:52:52.362] timestamp = base::Sys.time(), signaled = 0L) 1572s [00:52:52.362] signalCondition(cond) 1572s [00:52:52.362] } 1572s [00:52:52.362] else if (!ignore && TRUE && inherits(cond, c("condition", 1572s [00:52:52.362] "immediateCondition"))) { 1572s [00:52:52.362] signal <- TRUE && inherits(cond, "immediateCondition") 1572s [00:52:52.362] ...future.conditions[[length(...future.conditions) + 1572s [00:52:52.362] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1572s [00:52:52.362] if (TRUE && !signal) { 1572s [00:52:52.362] muffleCondition <- function (cond, pattern = "^muffle") 1572s [00:52:52.362] { 1572s [00:52:52.362] inherits <- base::inherits 1572s [00:52:52.362] invokeRestart <- base::invokeRestart 1572s [00:52:52.362] is.null <- base::is.null 1572s [00:52:52.362] muffled <- FALSE 1572s [00:52:52.362] if (inherits(cond, "message")) { 1572s [00:52:52.362] muffled <- grepl(pattern, "muffleMessage") 1572s [00:52:52.362] if (muffled) 1572s [00:52:52.362] invokeRestart("muffleMessage") 1572s [00:52:52.362] } 1572s [00:52:52.362] else if (inherits(cond, "warning")) { 1572s [00:52:52.362] muffled <- grepl(pattern, "muffleWarning") 1572s [00:52:52.362] if (muffled) 1572s [00:52:52.362] invokeRestart("muffleWarning") 1572s [00:52:52.362] } 1572s [00:52:52.362] else if (inherits(cond, "condition")) { 1572s [00:52:52.362] if (!is.null(pattern)) { 1572s [00:52:52.362] computeRestarts <- base::computeRestarts 1572s [00:52:52.362] grepl <- base::grepl 1572s [00:52:52.362] restarts <- computeRestarts(cond) 1572s [00:52:52.362] for (restart in restarts) { 1572s [00:52:52.362] name <- restart$name 1572s [00:52:52.362] if (is.null(name)) 1572s [00:52:52.362] next 1572s [00:52:52.362] if (!grepl(pattern, name)) 1572s [00:52:52.362] next 1572s [00:52:52.362] invokeRestart(restart) 1572s [00:52:52.362] muffled <- TRUE 1572s [00:52:52.362] break 1572s [00:52:52.362] } 1572s [00:52:52.362] } 1572s [00:52:52.362] } 1572s [00:52:52.362] invisible(muffled) 1572s [00:52:52.362] } 1572s [00:52:52.362] muffleCondition(cond, pattern = "^muffle") 1572s [00:52:52.362] } 1572s [00:52:52.362] } 1572s [00:52:52.362] else { 1572s [00:52:52.362] if (TRUE) { 1572s [00:52:52.362] muffleCondition <- function (cond, pattern = "^muffle") 1572s [00:52:52.362] { 1572s [00:52:52.362] inherits <- base::inherits 1572s [00:52:52.362] invokeRestart <- base::invokeRestart 1572s [00:52:52.362] is.null <- base::is.null 1572s [00:52:52.362] muffled <- FALSE 1572s [00:52:52.362] if (inherits(cond, "message")) { 1572s [00:52:52.362] muffled <- grepl(pattern, "muffleMessage") 1572s [00:52:52.362] if (muffled) 1572s [00:52:52.362] invokeRestart("muffleMessage") 1572s [00:52:52.362] } 1572s [00:52:52.362] else if (inherits(cond, "warning")) { 1572s [00:52:52.362] muffled <- grepl(pattern, "muffleWarning") 1572s [00:52:52.362] if (muffled) 1572s [00:52:52.362] invokeRestart("muffleWarning") 1572s [00:52:52.362] } 1572s [00:52:52.362] else if (inherits(cond, "condition")) { 1572s [00:52:52.362] if (!is.null(pattern)) { 1572s [00:52:52.362] computeRestarts <- base::computeRestarts 1572s [00:52:52.362] grepl <- base::grepl 1572s [00:52:52.362] restarts <- computeRestarts(cond) 1572s [00:52:52.362] for (restart in restarts) { 1572s [00:52:52.362] name <- restart$name 1572s [00:52:52.362] if (is.null(name)) 1572s [00:52:52.362] next 1572s [00:52:52.362] if (!grepl(pattern, name)) 1572s [00:52:52.362] next 1572s [00:52:52.362] invokeRestart(restart) 1572s [00:52:52.362] muffled <- TRUE 1572s [00:52:52.362] break 1572s [00:52:52.362] } 1572s [00:52:52.362] } 1572s [00:52:52.362] } 1572s [00:52:52.362] invisible(muffled) 1572s [00:52:52.362] } 1572s [00:52:52.362] muffleCondition(cond, pattern = "^muffle") 1572s [00:52:52.362] } 1572s [00:52:52.362] } 1572s [00:52:52.362] } 1572s [00:52:52.362] })) 1572s [00:52:52.362] }, error = function(ex) { 1572s [00:52:52.362] base::structure(base::list(value = NULL, visible = NULL, 1572s [00:52:52.362] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1572s [00:52:52.362] ...future.rng), started = ...future.startTime, 1572s [00:52:52.362] finished = Sys.time(), session_uuid = NA_character_, 1572s [00:52:52.362] version = "1.8"), class = "FutureResult") 1572s [00:52:52.362] }, finally = { 1572s [00:52:52.362] if (!identical(...future.workdir, getwd())) 1572s [00:52:52.362] setwd(...future.workdir) 1572s [00:52:52.362] { 1572s [00:52:52.362] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1572s [00:52:52.362] ...future.oldOptions$nwarnings <- NULL 1572s [00:52:52.362] } 1572s [00:52:52.362] base::options(...future.oldOptions) 1572s [00:52:52.362] if (.Platform$OS.type == "windows") { 1572s [00:52:52.362] old_names <- names(...future.oldEnvVars) 1572s [00:52:52.362] envs <- base::Sys.getenv() 1572s [00:52:52.362] names <- names(envs) 1572s [00:52:52.362] common <- intersect(names, old_names) 1572s [00:52:52.362] added <- setdiff(names, old_names) 1572s [00:52:52.362] removed <- setdiff(old_names, names) 1572s [00:52:52.362] changed <- common[...future.oldEnvVars[common] != 1572s [00:52:52.362] envs[common]] 1572s [00:52:52.362] NAMES <- toupper(changed) 1572s [00:52:52.362] args <- list() 1572s [00:52:52.362] for (kk in seq_along(NAMES)) { 1572s [00:52:52.362] name <- changed[[kk]] 1572s [00:52:52.362] NAME <- NAMES[[kk]] 1572s [00:52:52.362] if (name != NAME && is.element(NAME, old_names)) 1572s [00:52:52.362] next 1572s [00:52:52.362] args[[name]] <- ...future.oldEnvVars[[name]] 1572s [00:52:52.362] } 1572s [00:52:52.362] NAMES <- toupper(added) 1572s [00:52:52.362] for (kk in seq_along(NAMES)) { 1572s [00:52:52.362] name <- added[[kk]] 1572s [00:52:52.362] NAME <- NAMES[[kk]] 1572s [00:52:52.362] if (name != NAME && is.element(NAME, old_names)) 1572s [00:52:52.362] next 1572s [00:52:52.362] args[[name]] <- "" 1572s [00:52:52.362] } 1572s [00:52:52.362] NAMES <- toupper(removed) 1572s [00:52:52.362] for (kk in seq_along(NAMES)) { 1572s [00:52:52.362] name <- removed[[kk]] 1572s [00:52:52.362] NAME <- NAMES[[kk]] 1572s [00:52:52.362] if (name != NAME && is.element(NAME, old_names)) 1572s [00:52:52.362] next 1572s [00:52:52.362] args[[name]] <- ...future.oldEnvVars[[name]] 1572s [00:52:52.362] } 1572s [00:52:52.362] if (length(args) > 0) 1572s [00:52:52.362] base::do.call(base::Sys.setenv, args = args) 1572s [00:52:52.362] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1572s [00:52:52.362] } 1572s [00:52:52.362] else { 1572s [00:52:52.362] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1572s [00:52:52.362] } 1572s [00:52:52.362] { 1572s [00:52:52.362] if (base::length(...future.futureOptionsAdded) > 1572s [00:52:52.362] 0L) { 1572s [00:52:52.362] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1572s [00:52:52.362] base::names(opts) <- ...future.futureOptionsAdded 1572s [00:52:52.362] base::options(opts) 1572s [00:52:52.362] } 1572s [00:52:52.362] { 1572s [00:52:52.362] { 1572s [00:52:52.362] NULL 1572s [00:52:52.362] RNGkind("Mersenne-Twister") 1572s [00:52:52.362] base::rm(list = ".Random.seed", envir = base::globalenv(), 1572s [00:52:52.362] inherits = FALSE) 1572s [00:52:52.362] } 1572s [00:52:52.362] options(future.plan = NULL) 1572s [00:52:52.362] if (is.na(NA_character_)) 1572s [00:52:52.362] Sys.unsetenv("R_FUTURE_PLAN") 1572s [00:52:52.362] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1572s [00:52:52.362] future::plan(list(function (..., envir = parent.frame()) 1572s [00:52:52.362] { 1572s [00:52:52.362] future <- SequentialFuture(..., envir = envir) 1572s [00:52:52.362] if (!future$lazy) 1572s [00:52:52.362] future <- run(future) 1572s [00:52:52.362] invisible(future) 1572s [00:52:52.362] }), .cleanup = FALSE, .init = FALSE) 1572s [00:52:52.362] } 1572s [00:52:52.362] } 1572s [00:52:52.362] } 1572s [00:52:52.362] }) 1572s [00:52:52.362] if (TRUE) { 1572s [00:52:52.362] base::sink(type = "output", split = FALSE) 1572s [00:52:52.362] if (TRUE) { 1572s [00:52:52.362] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1572s [00:52:52.362] } 1572s [00:52:52.362] else { 1572s [00:52:52.362] ...future.result["stdout"] <- base::list(NULL) 1572s [00:52:52.362] } 1572s [00:52:52.362] base::close(...future.stdout) 1572s [00:52:52.362] ...future.stdout <- NULL 1572s [00:52:52.362] } 1572s [00:52:52.362] ...future.result$conditions <- ...future.conditions 1572s [00:52:52.362] ...future.result$finished <- base::Sys.time() 1572s [00:52:52.362] ...future.result 1572s [00:52:52.362] } 1572s [00:52:52.369] assign_globals() ... 1572s [00:52:52.370] List of 5 1572s [00:52:52.370] $ ...future.FUN :function (x) 1572s [00:52:52.370] $ future.call.arguments : list() 1572s [00:52:52.370] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1572s [00:52:52.370] $ ...future.elements_ii :List of 4 1572s [00:52:52.370] ..$ A: num 50 1572s [00:52:52.370] ..$ B: num 60 1572s [00:52:52.370] ..$ C: num 70 1572s [00:52:52.370] ..$ D: num 80 1572s [00:52:52.370] $ ...future.seeds_ii : NULL 1572s [00:52:52.370] $ ...future.globals.maxSize: NULL 1572s [00:52:52.370] - attr(*, "where")=List of 5 1572s [00:52:52.370] ..$ ...future.FUN : 1572s [00:52:52.370] ..$ future.call.arguments : 1572s [00:52:52.370] ..$ ...future.elements_ii : 1572s [00:52:52.370] ..$ ...future.seeds_ii : 1572s [00:52:52.370] ..$ ...future.globals.maxSize: 1572s [00:52:52.370] - attr(*, "resolved")= logi FALSE 1572s [00:52:52.370] - attr(*, "total_size")= num 848 1572s [00:52:52.370] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1572s [00:52:52.370] - attr(*, "already-done")= logi TRUE 1572s [00:52:52.379] - copied ‘...future.FUN’ to environment 1572s [00:52:52.379] - copied ‘future.call.arguments’ to environment 1572s [00:52:52.380] - copied ‘...future.elements_ii’ to environment 1572s [00:52:52.380] - copied ‘...future.seeds_ii’ to environment 1572s [00:52:52.380] - copied ‘...future.globals.maxSize’ to environment 1572s [00:52:52.381] assign_globals() ... done 1572s [00:52:52.381] plan(): Setting new future strategy stack: 1572s [00:52:52.381] List of future strategies: 1572s [00:52:52.381] 1. sequential: 1572s [00:52:52.381] - args: function (..., envir = parent.frame()) 1572s [00:52:52.381] - tweaked: FALSE 1572s [00:52:52.381] - call: NULL 1572s [00:52:52.382] plan(): nbrOfWorkers() = 1 1572s [00:52:52.383] plan(): Setting new future strategy stack: 1572s [00:52:52.383] List of future strategies: 1572s [00:52:52.383] 1. sequential: 1572s [00:52:52.383] - args: function (..., envir = parent.frame()) 1572s [00:52:52.383] - tweaked: FALSE 1572s [00:52:52.383] - call: plan(strategy) 1572s [00:52:52.383] plan(): nbrOfWorkers() = 1 1572s [00:52:52.383] SequentialFuture started (and completed) 1572s [00:52:52.384] - Launch lazy future ... done 1572s [00:52:52.384] run() for ‘SequentialFuture’ ... done 1572s [00:52:52.384] Created future: 1572s [00:52:52.384] SequentialFuture: 1572s [00:52:52.384] Label: ‘future_sapply-1’ 1572s [00:52:52.384] Expression: 1572s [00:52:52.384] { 1572s [00:52:52.384] do.call(function(...) { 1572s [00:52:52.384] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1572s [00:52:52.384] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1572s [00:52:52.384] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1572s [00:52:52.384] on.exit(options(oopts), add = TRUE) 1572s [00:52:52.384] } 1572s [00:52:52.384] { 1572s [00:52:52.384] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1572s [00:52:52.384] ...future.X_jj <- ...future.elements_ii[[jj]] 1572s [00:52:52.384] ...future.FUN(...future.X_jj, ...) 1572s [00:52:52.384] }) 1572s [00:52:52.384] } 1572s [00:52:52.384] }, args = future.call.arguments) 1572s [00:52:52.384] } 1572s [00:52:52.384] Lazy evaluation: FALSE 1572s [00:52:52.384] Asynchronous evaluation: FALSE 1572s [00:52:52.384] Local evaluation: TRUE 1572s [00:52:52.384] Environment: R_GlobalEnv 1572s [00:52:52.384] Capture standard output: TRUE 1572s [00:52:52.384] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1572s [00:52:52.384] Globals: 5 objects totaling 1.05 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1572s [00:52:52.384] Packages: 1572s [00:52:52.384] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1572s [00:52:52.384] Resolved: TRUE 1572s [00:52:52.384] Value: 224 bytes of class ‘list’ 1572s [00:52:52.384] Early signaling: FALSE 1572s [00:52:52.384] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1572s [00:52:52.384] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1572s [00:52:52.386] Chunk #1 of 1 ... DONE 1572s [00:52:52.386] Launching 1 futures (chunks) ... DONE 1572s [00:52:52.386] Resolving 1 futures (chunks) ... 1572s [00:52:52.387] resolve() on list ... 1572s [00:52:52.389] recursive: 0 1572s [00:52:52.389] length: 1 1572s [00:52:52.389] 1572s [00:52:52.389] resolved() for ‘SequentialFuture’ ... 1572s [00:52:52.389] - state: ‘finished’ 1572s [00:52:52.389] - run: TRUE 1572s [00:52:52.390] - result: ‘FutureResult’ 1572s [00:52:52.390] resolved() for ‘SequentialFuture’ ... done 1572s [00:52:52.390] Future #1 1572s [00:52:52.390] signalConditionsASAP(SequentialFuture, pos=1) ... 1572s [00:52:52.391] - nx: 1 1572s [00:52:52.391] - relay: TRUE 1572s [00:52:52.391] - stdout: TRUE 1572s [00:52:52.391] - signal: TRUE 1572s [00:52:52.391] - resignal: FALSE 1572s [00:52:52.392] - force: TRUE 1572s [00:52:52.392] - relayed: [n=1] FALSE 1572s [00:52:52.392] - queued futures: [n=1] FALSE 1572s [00:52:52.392] - until=1 1572s [00:52:52.392] - relaying element #1 1572s [00:52:52.393] - relayed: [n=1] TRUE 1572s [00:52:52.393] - queued futures: [n=1] TRUE 1572s [00:52:52.393] signalConditionsASAP(SequentialFuture, pos=1) ... done 1572s [00:52:52.393] length: 0 (resolved future 1) 1572s [00:52:52.394] Relaying remaining futures 1572s [00:52:52.394] signalConditionsASAP(NULL, pos=0) ... 1572s [00:52:52.394] - nx: 1 1572s [00:52:52.394] - relay: TRUE 1572s [00:52:52.394] - stdout: TRUE 1572s [00:52:52.395] - signal: TRUE 1572s [00:52:52.395] - resignal: FALSE 1572s [00:52:52.395] - force: TRUE 1572s [00:52:52.395] - relayed: [n=1] TRUE 1572s [00:52:52.395] - queued futures: [n=1] TRUE 1572s - flush all 1572s [00:52:52.396] - relayed: [n=1] TRUE 1572s [00:52:52.396] - queued futures: [n=1] TRUE 1572s [00:52:52.396] signalConditionsASAP(NULL, pos=0) ... done 1572s [00:52:52.396] resolve() on list ... DONE 1572s [00:52:52.396] - Number of value chunks collected: 1 1572s [00:52:52.397] Resolving 1 futures (chunks) ... DONE 1572s [00:52:52.397] Reducing values from 1 chunks ... 1572s [00:52:52.397] - Number of values collected after concatenation: 4 1572s [00:52:52.397] - Number of values expected: 4 1572s [00:52:52.397] Reducing values from 1 chunks ... DONE 1572s List[00:52:52.397] future_lapply() ... DONE 1572s of 2 1572s $ y0: Named num [1:4] 50 60 70 80 1572s ..- attr(*, "names")= chr [1:4] [00:52:52.401] future_lapply() ... 1572s [00:52:52.402] Number of chunks: 1 1572s [00:52:52.402] getGlobalsAndPackagesXApply() ... 1572s [00:52:52.402] - future.globals: TRUE 1572s [00:52:52.403] getGlobalsAndPackages() ... 1572s [00:52:52.403] Searching for globals... 1572s "A" "B" "C" "D" 1572s $ y1: Named num [1:4] 50 60 70 80 1572s ..- attr(*, "names")= chr [1:4] "A" "B" "C" "D" 1572s [00:52:52.404] - globals found: [2] ‘FUN’, ‘UseMethod’ 1572s [00:52:52.404] Searching for globals ... DONE 1572s [00:52:52.404] Resolving globals: FALSE 1572s [00:52:52.405] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1572s [00:52:52.406] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1572s [00:52:52.406] - globals: [1] ‘FUN’ 1572s [00:52:52.406] 1572s [00:52:52.406] getGlobalsAndPackages() ... DONE 1572s [00:52:52.406] - globals found/used: [n=1] ‘FUN’ 1572s [00:52:52.407] - needed namespaces: [n=0] 1572s [00:52:52.407] Finding globals ... DONE 1572s [00:52:52.407] - use_args: TRUE 1572s [00:52:52.407] - Getting '...' globals ... 1572s [00:52:52.408] resolve() on list ... 1572s [00:52:52.408] recursive: 0 1572s [00:52:52.408] length: 1 1572s [00:52:52.408] elements: ‘...’ 1572s [00:52:52.408] length: 0 (resolved future 1) 1572s [00:52:52.409] resolve() on list ... DONE 1572s [00:52:52.409] - '...' content: [n=0] 1572s [00:52:52.409] List of 1 1572s [00:52:52.409] $ ...: list() 1572s [00:52:52.409] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1572s [00:52:52.409] - attr(*, "where")=List of 1 1572s [00:52:52.409] ..$ ...: 1572s [00:52:52.409] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1572s [00:52:52.409] - attr(*, "resolved")= logi TRUE 1572s [00:52:52.409] - attr(*, "total_size")= num NA 1572s [00:52:52.413] - Getting '...' globals ... DONE 1572s [00:52:52.413] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1572s [00:52:52.413] List of 2 1572s [00:52:52.413] $ ...future.FUN:function (x, ...) 1572s [00:52:52.413] $ ... : list() 1572s [00:52:52.413] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1572s [00:52:52.413] - attr(*, "where")=List of 2 1572s [00:52:52.413] ..$ ...future.FUN: 1572s [00:52:52.413] ..$ ... : 1572s [00:52:52.413] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1572s [00:52:52.413] - attr(*, "resolved")= logi FALSE 1572s [00:52:52.413] - attr(*, "total_size")= num 1248 1572s [00:52:52.416] Packages to be attached in all futures: [n=0] 1572s [00:52:52.417] getGlobalsAndPackagesXApply() ... DONE 1572s [00:52:52.417] Number of futures (= number of chunks): 1 1572s [00:52:52.417] Launching 1 futures (chunks) ... 1572s [00:52:52.417] Chunk #1 of 1 ... 1572s [00:52:52.417] - Finding globals in 'X' for chunk #1 ... 1572s [00:52:52.417] getGlobalsAndPackages() ... 1572s [00:52:52.417] Searching for globals... 1572s [00:52:52.418] 1572s [00:52:52.418] Searching for globals ... DONE 1572s [00:52:52.418] - globals: [0] 1572s [00:52:52.418] getGlobalsAndPackages() ... DONE 1572s [00:52:52.418] + additional globals found: [n=0] 1572s [00:52:52.418] + additional namespaces needed: [n=0] 1572s [00:52:52.418] - Finding globals in 'X' for chunk #1 ... DONE 1572s [00:52:52.418] - seeds: 1572s [00:52:52.419] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1572s [00:52:52.419] getGlobalsAndPackages() ... 1572s [00:52:52.419] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1572s [00:52:52.419] Resolving globals: FALSE 1572s [00:52:52.419] Tweak future expression to call with '...' arguments ... 1572s [00:52:52.419] { 1572s [00:52:52.419] do.call(function(...) { 1572s [00:52:52.419] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1572s [00:52:52.419] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1572s [00:52:52.419] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1572s [00:52:52.419] on.exit(options(oopts), add = TRUE) 1572s [00:52:52.419] } 1572s [00:52:52.419] { 1572s [00:52:52.419] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1572s [00:52:52.419] ...future.X_jj <- ...future.elements_ii[[jj]] 1572s [00:52:52.419] ...future.FUN(...future.X_jj, ...) 1572s [00:52:52.419] }) 1572s [00:52:52.419] } 1572s [00:52:52.419] }, args = future.call.arguments) 1572s [00:52:52.419] } 1572s [00:52:52.420] Tweak future expression to call with '...' arguments ... DONE 1572s [00:52:52.420] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1572s [00:52:52.420] 1572s [00:52:52.421] getGlobalsAndPackages() ... DONE 1572s [00:52:52.421] run() for ‘Future’ ... 1572s [00:52:52.421] - state: ‘created’ 1572s [00:52:52.425] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1572s [00:52:52.426] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1572s [00:52:52.426] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1572s [00:52:52.426] - Field: ‘label’ 1572s [00:52:52.426] - Field: ‘local’ 1572s [00:52:52.426] - Field: ‘owner’ 1572s [00:52:52.427] - Field: ‘envir’ 1572s [00:52:52.427] - Field: ‘packages’ 1572s [00:52:52.427] - Field: ‘gc’ 1572s [00:52:52.427] - Field: ‘conditions’ 1572s [00:52:52.427] - Field: ‘expr’ 1572s [00:52:52.428] - Field: ‘uuid’ 1572s [00:52:52.428] - Field: ‘seed’ 1572s [00:52:52.428] - Field: ‘version’ 1572s [00:52:52.428] - Field: ‘result’ 1572s [00:52:52.428] - Field: ‘asynchronous’ 1572s [00:52:52.428] - Field: ‘calls’ 1572s [00:52:52.428] - Field: ‘globals’ 1572s [00:52:52.429] - Field: ‘stdout’ 1572s [00:52:52.429] - Field: ‘earlySignal’ 1572s [00:52:52.429] - Field: ‘lazy’ 1572s [00:52:52.429] - Field: ‘state’ 1572s [00:52:52.429] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1572s [00:52:52.429] - Launch lazy future ... 1572s [00:52:52.430] Packages needed by the future expression (n = 0): 1572s [00:52:52.430] Packages needed by future strategies (n = 0): 1572s [00:52:52.431] { 1572s [00:52:52.431] { 1572s [00:52:52.431] { 1572s [00:52:52.431] ...future.startTime <- base::Sys.time() 1572s [00:52:52.431] { 1572s [00:52:52.431] { 1572s [00:52:52.431] { 1572s [00:52:52.431] base::local({ 1572s [00:52:52.431] has_future <- base::requireNamespace("future", 1572s [00:52:52.431] quietly = TRUE) 1572s [00:52:52.431] if (has_future) { 1572s [00:52:52.431] ns <- base::getNamespace("future") 1572s [00:52:52.431] version <- ns[[".package"]][["version"]] 1572s [00:52:52.431] if (is.null(version)) 1572s [00:52:52.431] version <- utils::packageVersion("future") 1572s [00:52:52.431] } 1572s [00:52:52.431] else { 1572s [00:52:52.431] version <- NULL 1572s [00:52:52.431] } 1572s [00:52:52.431] if (!has_future || version < "1.8.0") { 1572s [00:52:52.431] info <- base::c(r_version = base::gsub("R version ", 1572s [00:52:52.431] "", base::R.version$version.string), 1572s [00:52:52.431] platform = base::sprintf("%s (%s-bit)", 1572s [00:52:52.431] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1572s [00:52:52.431] os = base::paste(base::Sys.info()[base::c("sysname", 1572s [00:52:52.431] "release", "version")], collapse = " "), 1572s [00:52:52.431] hostname = base::Sys.info()[["nodename"]]) 1572s [00:52:52.431] info <- base::sprintf("%s: %s", base::names(info), 1572s [00:52:52.431] info) 1572s [00:52:52.431] info <- base::paste(info, collapse = "; ") 1572s [00:52:52.431] if (!has_future) { 1572s [00:52:52.431] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1572s [00:52:52.431] info) 1572s [00:52:52.431] } 1572s [00:52:52.431] else { 1572s [00:52:52.431] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1572s [00:52:52.431] info, version) 1572s [00:52:52.431] } 1572s [00:52:52.431] base::stop(msg) 1572s [00:52:52.431] } 1572s [00:52:52.431] }) 1572s [00:52:52.431] } 1572s [00:52:52.431] options(future.plan = NULL) 1572s [00:52:52.431] Sys.unsetenv("R_FUTURE_PLAN") 1572s [00:52:52.431] future::plan("default", .cleanup = FALSE, .init = FALSE) 1572s [00:52:52.431] } 1572s [00:52:52.431] ...future.workdir <- getwd() 1572s [00:52:52.431] } 1572s [00:52:52.431] ...future.oldOptions <- base::as.list(base::.Options) 1572s [00:52:52.431] ...future.oldEnvVars <- base::Sys.getenv() 1572s [00:52:52.431] } 1572s [00:52:52.431] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1572s [00:52:52.431] future.globals.maxSize = NULL, future.globals.method = NULL, 1572s [00:52:52.431] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1572s [00:52:52.431] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1572s [00:52:52.431] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1572s [00:52:52.431] future.stdout.windows.reencode = NULL, width = 80L) 1572s [00:52:52.431] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1572s [00:52:52.431] base::names(...future.oldOptions)) 1572s [00:52:52.431] } 1572s [00:52:52.431] if (FALSE) { 1572s [00:52:52.431] } 1572s [00:52:52.431] else { 1572s [00:52:52.431] if (TRUE) { 1572s [00:52:52.431] ...future.stdout <- base::rawConnection(base::raw(0L), 1572s [00:52:52.431] open = "w") 1572s [00:52:52.431] } 1572s [00:52:52.431] else { 1572s [00:52:52.431] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1572s [00:52:52.431] windows = "NUL", "/dev/null"), open = "w") 1572s [00:52:52.431] } 1572s [00:52:52.431] base::sink(...future.stdout, type = "output", split = FALSE) 1572s [00:52:52.431] base::on.exit(if (!base::is.null(...future.stdout)) { 1572s [00:52:52.431] base::sink(type = "output", split = FALSE) 1572s [00:52:52.431] base::close(...future.stdout) 1572s [00:52:52.431] }, add = TRUE) 1572s [00:52:52.431] } 1572s [00:52:52.431] ...future.frame <- base::sys.nframe() 1572s [00:52:52.431] ...future.conditions <- base::list() 1572s [00:52:52.431] ...future.rng <- base::globalenv()$.Random.seed 1572s [00:52:52.431] if (FALSE) { 1572s [00:52:52.431] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1572s [00:52:52.431] "...future.value", "...future.globalenv.names", ".Random.seed") 1572s [00:52:52.431] } 1572s [00:52:52.431] ...future.result <- base::tryCatch({ 1572s [00:52:52.431] base::withCallingHandlers({ 1572s [00:52:52.431] ...future.value <- base::withVisible(base::local({ 1572s [00:52:52.431] do.call(function(...) { 1572s [00:52:52.431] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1572s [00:52:52.431] if (!identical(...future.globals.maxSize.org, 1572s [00:52:52.431] ...future.globals.maxSize)) { 1572s [00:52:52.431] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1572s [00:52:52.431] on.exit(options(oopts), add = TRUE) 1572s [00:52:52.431] } 1572s [00:52:52.431] { 1572s [00:52:52.431] lapply(seq_along(...future.elements_ii), 1572s [00:52:52.431] FUN = function(jj) { 1572s [00:52:52.431] ...future.X_jj <- ...future.elements_ii[[jj]] 1572s [00:52:52.431] ...future.FUN(...future.X_jj, ...) 1572s [00:52:52.431] }) 1572s [00:52:52.431] } 1572s [00:52:52.431] }, args = future.call.arguments) 1572s [00:52:52.431] })) 1572s [00:52:52.431] future::FutureResult(value = ...future.value$value, 1572s [00:52:52.431] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1572s [00:52:52.431] ...future.rng), globalenv = if (FALSE) 1572s [00:52:52.431] list(added = base::setdiff(base::names(base::.GlobalEnv), 1572s [00:52:52.431] ...future.globalenv.names)) 1572s [00:52:52.431] else NULL, started = ...future.startTime, version = "1.8") 1572s [00:52:52.431] }, condition = base::local({ 1572s [00:52:52.431] c <- base::c 1572s [00:52:52.431] inherits <- base::inherits 1572s [00:52:52.431] invokeRestart <- base::invokeRestart 1572s [00:52:52.431] length <- base::length 1572s [00:52:52.431] list <- base::list 1572s [00:52:52.431] seq.int <- base::seq.int 1572s [00:52:52.431] signalCondition <- base::signalCondition 1572s [00:52:52.431] sys.calls <- base::sys.calls 1572s [00:52:52.431] `[[` <- base::`[[` 1572s [00:52:52.431] `+` <- base::`+` 1572s [00:52:52.431] `<<-` <- base::`<<-` 1572s [00:52:52.431] sysCalls <- function(calls = sys.calls(), from = 1L) { 1572s [00:52:52.431] calls[seq.int(from = from + 12L, to = length(calls) - 1572s [00:52:52.431] 3L)] 1572s [00:52:52.431] } 1572s [00:52:52.431] function(cond) { 1572s [00:52:52.431] is_error <- inherits(cond, "error") 1572s [00:52:52.431] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1572s [00:52:52.431] NULL) 1572s [00:52:52.431] if (is_error) { 1572s [00:52:52.431] sessionInformation <- function() { 1572s [00:52:52.431] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1572s [00:52:52.431] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1572s [00:52:52.431] search = base::search(), system = base::Sys.info()) 1572s [00:52:52.431] } 1572s [00:52:52.431] ...future.conditions[[length(...future.conditions) + 1572s [00:52:52.431] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1572s [00:52:52.431] cond$call), session = sessionInformation(), 1572s [00:52:52.431] timestamp = base::Sys.time(), signaled = 0L) 1572s [00:52:52.431] signalCondition(cond) 1572s [00:52:52.431] } 1572s [00:52:52.431] else if (!ignore && TRUE && inherits(cond, c("condition", 1572s [00:52:52.431] "immediateCondition"))) { 1572s [00:52:52.431] signal <- TRUE && inherits(cond, "immediateCondition") 1572s [00:52:52.431] ...future.conditions[[length(...future.conditions) + 1572s [00:52:52.431] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1572s [00:52:52.431] if (TRUE && !signal) { 1572s [00:52:52.431] muffleCondition <- function (cond, pattern = "^muffle") 1572s [00:52:52.431] { 1572s [00:52:52.431] inherits <- base::inherits 1572s [00:52:52.431] invokeRestart <- base::invokeRestart 1572s [00:52:52.431] is.null <- base::is.null 1572s [00:52:52.431] muffled <- FALSE 1572s [00:52:52.431] if (inherits(cond, "message")) { 1572s [00:52:52.431] muffled <- grepl(pattern, "muffleMessage") 1572s [00:52:52.431] if (muffled) 1572s [00:52:52.431] invokeRestart("muffleMessage") 1572s [00:52:52.431] } 1572s [00:52:52.431] else if (inherits(cond, "warning")) { 1572s [00:52:52.431] muffled <- grepl(pattern, "muffleWarning") 1572s [00:52:52.431] if (muffled) 1572s [00:52:52.431] invokeRestart("muffleWarning") 1572s [00:52:52.431] } 1572s [00:52:52.431] else if (inherits(cond, "condition")) { 1572s [00:52:52.431] if (!is.null(pattern)) { 1572s [00:52:52.431] computeRestarts <- base::computeRestarts 1572s [00:52:52.431] grepl <- base::grepl 1572s [00:52:52.431] restarts <- computeRestarts(cond) 1572s [00:52:52.431] for (restart in restarts) { 1572s [00:52:52.431] name <- restart$name 1572s [00:52:52.431] if (is.null(name)) 1572s [00:52:52.431] next 1572s [00:52:52.431] if (!grepl(pattern, name)) 1572s [00:52:52.431] next 1572s [00:52:52.431] invokeRestart(restart) 1572s [00:52:52.431] muffled <- TRUE 1572s [00:52:52.431] break 1572s [00:52:52.431] } 1572s [00:52:52.431] } 1572s [00:52:52.431] } 1572s [00:52:52.431] invisible(muffled) 1572s [00:52:52.431] } 1572s [00:52:52.431] muffleCondition(cond, pattern = "^muffle") 1572s [00:52:52.431] } 1572s [00:52:52.431] } 1572s [00:52:52.431] else { 1572s [00:52:52.431] if (TRUE) { 1572s [00:52:52.431] muffleCondition <- function (cond, pattern = "^muffle") 1572s [00:52:52.431] { 1572s [00:52:52.431] inherits <- base::inherits 1572s [00:52:52.431] invokeRestart <- base::invokeRestart 1572s [00:52:52.431] is.null <- base::is.null 1572s [00:52:52.431] muffled <- FALSE 1572s [00:52:52.431] if (inherits(cond, "message")) { 1572s [00:52:52.431] muffled <- grepl(pattern, "muffleMessage") 1572s [00:52:52.431] if (muffled) 1572s [00:52:52.431] invokeRestart("muffleMessage") 1572s [00:52:52.431] } 1572s [00:52:52.431] else if (inherits(cond, "warning")) { 1572s [00:52:52.431] muffled <- grepl(pattern, "muffleWarning") 1572s [00:52:52.431] if (muffled) 1572s [00:52:52.431] invokeRestart("muffleWarning") 1572s [00:52:52.431] } 1572s [00:52:52.431] else if (inherits(cond, "condition")) { 1572s [00:52:52.431] if (!is.null(pattern)) { 1572s [00:52:52.431] computeRestarts <- base::computeRestarts 1572s [00:52:52.431] grepl <- base::grepl 1572s [00:52:52.431] restarts <- computeRestarts(cond) 1572s [00:52:52.431] for (restart in restarts) { 1572s [00:52:52.431] name <- restart$name 1572s [00:52:52.431] if (is.null(name)) 1572s [00:52:52.431] next 1572s [00:52:52.431] if (!grepl(pattern, name)) 1572s [00:52:52.431] next 1572s [00:52:52.431] invokeRestart(restart) 1572s [00:52:52.431] muffled <- TRUE 1572s [00:52:52.431] break 1572s [00:52:52.431] } 1572s [00:52:52.431] } 1572s [00:52:52.431] } 1572s [00:52:52.431] invisible(muffled) 1572s [00:52:52.431] } 1572s [00:52:52.431] muffleCondition(cond, pattern = "^muffle") 1572s [00:52:52.431] } 1572s [00:52:52.431] } 1572s [00:52:52.431] } 1572s [00:52:52.431] })) 1572s [00:52:52.431] }, error = function(ex) { 1572s [00:52:52.431] base::structure(base::list(value = NULL, visible = NULL, 1572s [00:52:52.431] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1572s [00:52:52.431] ...future.rng), started = ...future.startTime, 1572s [00:52:52.431] finished = Sys.time(), session_uuid = NA_character_, 1572s [00:52:52.431] version = "1.8"), class = "FutureResult") 1572s [00:52:52.431] }, finally = { 1572s [00:52:52.431] if (!identical(...future.workdir, getwd())) 1572s [00:52:52.431] setwd(...future.workdir) 1572s [00:52:52.431] { 1572s [00:52:52.431] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1572s [00:52:52.431] ...future.oldOptions$nwarnings <- NULL 1572s [00:52:52.431] } 1572s [00:52:52.431] base::options(...future.oldOptions) 1572s [00:52:52.431] if (.Platform$OS.type == "windows") { 1572s [00:52:52.431] old_names <- names(...future.oldEnvVars) 1572s [00:52:52.431] envs <- base::Sys.getenv() 1572s [00:52:52.431] names <- names(envs) 1572s [00:52:52.431] common <- intersect(names, old_names) 1572s [00:52:52.431] added <- setdiff(names, old_names) 1572s [00:52:52.431] removed <- setdiff(old_names, names) 1572s [00:52:52.431] changed <- common[...future.oldEnvVars[common] != 1572s [00:52:52.431] envs[common]] 1572s [00:52:52.431] NAMES <- toupper(changed) 1572s [00:52:52.431] args <- list() 1572s [00:52:52.431] for (kk in seq_along(NAMES)) { 1572s [00:52:52.431] name <- changed[[kk]] 1572s [00:52:52.431] NAME <- NAMES[[kk]] 1572s [00:52:52.431] if (name != NAME && is.element(NAME, old_names)) 1572s [00:52:52.431] next 1572s [00:52:52.431] args[[name]] <- ...future.oldEnvVars[[name]] 1572s [00:52:52.431] } 1572s [00:52:52.431] NAMES <- toupper(added) 1572s [00:52:52.431] for (kk in seq_along(NAMES)) { 1572s [00:52:52.431] name <- added[[kk]] 1572s [00:52:52.431] NAME <- NAMES[[kk]] 1572s [00:52:52.431] if (name != NAME && is.element(NAME, old_names)) 1572s [00:52:52.431] next 1572s [00:52:52.431] args[[name]] <- "" 1572s [00:52:52.431] } 1572s [00:52:52.431] NAMES <- toupper(removed) 1572s [00:52:52.431] for (kk in seq_along(NAMES)) { 1572s [00:52:52.431] name <- removed[[kk]] 1572s [00:52:52.431] NAME <- NAMES[[kk]] 1572s [00:52:52.431] if (name != NAME && is.element(NAME, old_names)) 1572s [00:52:52.431] next 1572s [00:52:52.431] args[[name]] <- ...future.oldEnvVars[[name]] 1572s [00:52:52.431] } 1572s [00:52:52.431] if (length(args) > 0) 1572s [00:52:52.431] base::do.call(base::Sys.setenv, args = args) 1572s [00:52:52.431] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1572s [00:52:52.431] } 1572s [00:52:52.431] else { 1572s [00:52:52.431] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1572s [00:52:52.431] } 1572s [00:52:52.431] { 1572s [00:52:52.431] if (base::length(...future.futureOptionsAdded) > 1572s [00:52:52.431] 0L) { 1572s [00:52:52.431] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1572s [00:52:52.431] base::names(opts) <- ...future.futureOptionsAdded 1572s [00:52:52.431] base::options(opts) 1572s [00:52:52.431] } 1572s [00:52:52.431] { 1572s [00:52:52.431] { 1572s [00:52:52.431] NULL 1572s [00:52:52.431] RNGkind("Mersenne-Twister") 1572s [00:52:52.431] base::rm(list = ".Random.seed", envir = base::globalenv(), 1572s [00:52:52.431] inherits = FALSE) 1572s [00:52:52.431] } 1572s [00:52:52.431] options(future.plan = NULL) 1572s [00:52:52.431] if (is.na(NA_character_)) 1572s [00:52:52.431] Sys.unsetenv("R_FUTURE_PLAN") 1572s [00:52:52.431] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1572s [00:52:52.431] future::plan(list(function (..., envir = parent.frame()) 1572s [00:52:52.431] { 1572s [00:52:52.431] future <- SequentialFuture(..., envir = envir) 1572s [00:52:52.431] if (!future$lazy) 1572s [00:52:52.431] future <- run(future) 1572s [00:52:52.431] invisible(future) 1572s [00:52:52.431] }), .cleanup = FALSE, .init = FALSE) 1572s [00:52:52.431] } 1572s [00:52:52.431] } 1572s [00:52:52.431] } 1572s [00:52:52.431] }) 1572s [00:52:52.431] if (TRUE) { 1572s [00:52:52.431] base::sink(type = "output", split = FALSE) 1572s [00:52:52.431] if (TRUE) { 1572s [00:52:52.431] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1572s [00:52:52.431] } 1572s [00:52:52.431] else { 1572s [00:52:52.431] ...future.result["stdout"] <- base::list(NULL) 1572s [00:52:52.431] } 1572s [00:52:52.431] base::close(...future.stdout) 1572s [00:52:52.431] ...future.stdout <- NULL 1572s [00:52:52.431] } 1572s [00:52:52.431] ...future.result$conditions <- ...future.conditions 1572s [00:52:52.431] ...future.result$finished <- base::Sys.time() 1572s [00:52:52.431] ...future.result 1572s [00:52:52.431] } 1572s [00:52:52.435] assign_globals() ... 1572s [00:52:52.436] List of 5 1572s [00:52:52.436] $ ...future.FUN :function (x, ...) 1572s [00:52:52.436] $ future.call.arguments : list() 1572s [00:52:52.436] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1572s [00:52:52.436] $ ...future.elements_ii :List of 4 1572s [00:52:52.436] ..$ A: num 50 1572s [00:52:52.436] ..$ B: num 60 1572s [00:52:52.436] ..$ C: num 70 1572s [00:52:52.436] ..$ D: num 80 1572s [00:52:52.436] $ ...future.seeds_ii : NULL 1572s [00:52:52.436] $ ...future.globals.maxSize: NULL 1572s [00:52:52.436] - attr(*, "where")=List of 5 1572s [00:52:52.436] ..$ ...future.FUN : 1572s [00:52:52.436] ..$ future.call.arguments : 1572s [00:52:52.436] ..$ ...future.elements_ii : 1572s [00:52:52.436] ..$ ...future.seeds_ii : 1572s [00:52:52.436] ..$ ...future.globals.maxSize: 1572s [00:52:52.436] - attr(*, "resolved")= logi FALSE 1572s [00:52:52.436] - attr(*, "total_size")= num 1248 1572s [00:52:52.436] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1572s [00:52:52.436] - attr(*, "already-done")= logi TRUE 1572s [00:52:52.445] - copied ‘...future.FUN’ to environment 1572s [00:52:52.446] - copied ‘future.call.arguments’ to environment 1572s [00:52:52.446] - copied ‘...future.elements_ii’ to environment 1572s [00:52:52.446] - copied ‘...future.seeds_ii’ to environment 1572s [00:52:52.446] - copied ‘...future.globals.maxSize’ to environment 1572s [00:52:52.446] assign_globals() ... done 1572s [00:52:52.447] plan(): Setting new future strategy stack: 1572s [00:52:52.447] List of future strategies: 1572s [00:52:52.447] 1. sequential: 1572s [00:52:52.447] - args: function (..., envir = parent.frame()) 1572s [00:52:52.447] - tweaked: FALSE 1572s [00:52:52.447] - call: NULL 1572s [00:52:52.447] plan(): nbrOfWorkers() = 1 1572s [00:52:52.448] plan(): Setting new future strategy stack: 1572s [00:52:52.448] List of future strategies: 1572s [00:52:52.448] 1. sequential: 1572s [00:52:52.448] - args: function (..., envir = parent.frame()) 1572s [00:52:52.448] - tweaked: FALSE 1572s [00:52:52.448] - call: plan(strategy) 1572s [00:52:52.449] plan(): nbrOfWorkers() = 1 1572s [00:52:52.449] SequentialFuture started (and completed) 1572s [00:52:52.449] - Launch lazy future ... done 1572s [00:52:52.449] run() for ‘SequentialFuture’ ... done 1572s [00:52:52.449] Created future: 1572s [00:52:52.450] SequentialFuture: 1572s [00:52:52.450] Label: ‘future_sapply-1’ 1572s [00:52:52.450] Expression: 1572s [00:52:52.450] { 1572s [00:52:52.450] do.call(function(...) { 1572s [00:52:52.450] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1572s [00:52:52.450] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1572s [00:52:52.450] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1572s [00:52:52.450] on.exit(options(oopts), add = TRUE) 1572s [00:52:52.450] } 1572s [00:52:52.450] { 1572s [00:52:52.450] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1572s [00:52:52.450] ...future.X_jj <- ...future.elements_ii[[jj]] 1572s [00:52:52.450] ...future.FUN(...future.X_jj, ...) 1572s [00:52:52.450] }) 1572s [00:52:52.450] } 1572s [00:52:52.450] }, args = future.call.arguments) 1572s [00:52:52.450] } 1572s [00:52:52.450] Lazy evaluation: FALSE 1572s [00:52:52.450] Asynchronous evaluation: FALSE 1572s [00:52:52.450] Local evaluation: TRUE 1572s [00:52:52.450] Environment: R_GlobalEnv 1572s [00:52:52.450] Capture standard output: TRUE 1572s [00:52:52.450] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1572s [00:52:52.450] Globals: 5 objects totaling 1.44 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1572s [00:52:52.450] Packages: 1572s [00:52:52.450] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1572s [00:52:52.450] Resolved: TRUE 1572s [00:52:52.450] Value: 896 bytes of class ‘list’ 1572s [00:52:52.450] Early signaling: FALSE 1572s [00:52:52.450] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1572s [00:52:52.450] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1572s [00:52:52.451] Chunk #1 of 1 ... DONE 1572s [00:52:52.451] Launching 1 futures (chunks) ... DONE 1572s [00:52:52.451] Resolving 1 futures (chunks) ... 1572s [00:52:52.452] resolve() on list ... 1572s [00:52:52.452] recursive: 0 1572s [00:52:52.452] length: 1 1572s [00:52:52.452] 1572s [00:52:52.452] resolved() for ‘SequentialFuture’ ... 1572s [00:52:52.452] - state: ‘finished’ 1572s [00:52:52.452] - run: TRUE 1572s [00:52:52.453] - result: ‘FutureResult’ 1572s [00:52:52.453] resolved() for ‘SequentialFuture’ ... done 1572s [00:52:52.453] Future #1 1572s [00:52:52.453] signalConditionsASAP(SequentialFuture, pos=1) ... 1572s [00:52:52.453] - nx: 1 1572s [00:52:52.453] - relay: TRUE 1572s [00:52:52.453] - stdout: TRUE 1572s [00:52:52.454] - signal: TRUE 1572s [00:52:52.454] - resignal: FALSE 1572s [00:52:52.454] - force: TRUE 1572s [00:52:52.454] - relayed: [n=1] FALSE 1572s [00:52:52.454] - queued futures: [n=1] FALSE 1572s [00:52:52.454] - until=1 1572s [00:52:52.454] - relaying element #1 1572s [00:52:52.455] - relayed: [n=1] TRUE 1572s [00:52:52.455] - queued futures: [n=1] TRUE 1572s [00:52:52.455] signalConditionsASAP(SequentialFuture, pos=1) ... done 1572s [00:52:52.455] length: 0 (resolved future 1) 1572s [00:52:52.455] Relaying remaining futures 1572s [00:52:52.456] signalConditionsASAP(NULL, pos=0) ... 1572s [00:52:52.456] - nx: 1 1572s [00:52:52.456] - relay: TRUE 1572s [00:52:52.456] - stdout: TRUE 1572s [00:52:52.456] - signal: TRUE 1572s [00:52:52.456] - resignal: FALSE 1572s [00:52:52.457] - force: TRUE 1572s [00:52:52.457] - relayed: [n=1] TRUE 1572s [00:52:52.457] - queued futures: [n=1] TRUE 1572s - flush all 1572s [00:52:52.457] - relayed: [n=1] TRUE 1572s [00:52:52.457] - queued futures: [n=1] TRUE 1572s [00:52:52.457] signalConditionsASAP(NULL, pos=0) ... done 1572s [00:52:52.457] resolve() on list ... DONE 1572s [00:52:52.458] - Number of value chunks collected: 1 1572s [00:52:52.458] Resolving 1 futures (chunks) ... DONE 1572s [00:52:52.458] Reducing values from 1 chunks ... 1572s [00:52:52.458] - Number of values collected after concatenation: 4 1572s [00:52:52.458] - Number of values expected: 4 1572s [00:52:52.458] Reducing values from 1 chunks ... DONE 1572s [00:52:52.458] future_lapply() ... DONE 1572s [00:52:52.462] future_lapply() ... 1572s [00:52:52.466] Number of chunks: 1 1572s [00:52:52.466] getGlobalsAndPackagesXApply() ... 1572s [00:52:52.466] - future.globals: TRUE 1572s [00:52:52.467] getGlobalsAndPackages() ... 1572s [00:52:52.467] Searching for globals... 1572s List of 2 1572s $ y0: Named num [1:4] 50 60 70 80 1572s ..- attr(*, "names")= chr [1:4] "A" "B" "C" "D" 1572s $ y1: Named num [1:4] 50 60 70 80 1572s ..- attr(*, "names")= chr [1:4] "A" "B" "C" "D" 1572s [00:52:52.469] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1572s [00:52:52.470] Searching for globals ... DONE 1572s [00:52:52.470] Resolving globals: FALSE 1572s [00:52:52.471] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1572s [00:52:52.471] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1572s [00:52:52.471] - globals: [1] ‘FUN’ 1572s [00:52:52.472] 1572s [00:52:52.472] getGlobalsAndPackages() ... DONE 1572s [00:52:52.472] - globals found/used: [n=1] ‘FUN’ 1572s [00:52:52.472] - needed namespaces: [n=0] 1572s [00:52:52.472] Finding globals ... DONE 1572s [00:52:52.472] - use_args: TRUE 1572s [00:52:52.472] - Getting '...' globals ... 1572s [00:52:52.473] resolve() on list ... 1572s [00:52:52.473] recursive: 0 1572s [00:52:52.473] length: 1 1572s [00:52:52.473] elements: ‘...’ 1572s [00:52:52.474] length: 0 (resolved future 1) 1572s [00:52:52.474] resolve() on list ... DONE 1572s [00:52:52.474] - '...' content: [n=0] 1572s [00:52:52.474] List of 1 1572s [00:52:52.474] $ ...: list() 1572s [00:52:52.474] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1572s [00:52:52.474] - attr(*, "where")=List of 1 1572s [00:52:52.474] ..$ ...: 1572s [00:52:52.474] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1572s [00:52:52.474] - attr(*, "resolved")= logi TRUE 1572s [00:52:52.474] - attr(*, "total_size")= num NA 1572s [00:52:52.478] - Getting '...' globals ... DONE 1572s [00:52:52.478] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1572s [00:52:52.479] List of 2 1572s [00:52:52.479] $ ...future.FUN:function (x, y = 2 * 1:5) 1572s [00:52:52.479] $ ... : list() 1572s [00:52:52.479] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1572s [00:52:52.479] - attr(*, "where")=List of 2 1572s [00:52:52.479] ..$ ...future.FUN: 1572s [00:52:52.479] ..$ ... : 1572s [00:52:52.479] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1572s [00:52:52.479] - attr(*, "resolved")= logi FALSE 1572s [00:52:52.479] - attr(*, "total_size")= num 4728 1572s [00:52:52.483] Packages to be attached in all futures: [n=0] 1572s [00:52:52.484] getGlobalsAndPackagesXApply() ... DONE 1572s [00:52:52.484] Number of futures (= number of chunks): 1 1572s [00:52:52.484] Launching 1 futures (chunks) ... 1572s [00:52:52.484] Chunk #1 of 1 ... 1572s [00:52:52.484] - Finding globals in 'X' for chunk #1 ... 1572s [00:52:52.484] getGlobalsAndPackages() ... 1572s [00:52:52.485] Searching for globals... 1572s [00:52:52.485] 1572s [00:52:52.485] Searching for globals ... DONE 1572s [00:52:52.485] - globals: [0] 1572s [00:52:52.485] getGlobalsAndPackages() ... DONE 1572s [00:52:52.485] + additional globals found: [n=0] 1572s [00:52:52.486] + additional namespaces needed: [n=0] 1572s [00:52:52.486] - Finding globals in 'X' for chunk #1 ... DONE 1572s [00:52:52.486] - seeds: 1572s [00:52:52.486] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1572s [00:52:52.486] getGlobalsAndPackages() ... 1572s [00:52:52.486] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1572s [00:52:52.487] Resolving globals: FALSE 1572s [00:52:52.487] Tweak future expression to call with '...' arguments ... 1572s [00:52:52.487] { 1572s [00:52:52.487] do.call(function(...) { 1572s [00:52:52.487] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1572s [00:52:52.487] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1572s [00:52:52.487] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1572s [00:52:52.487] on.exit(options(oopts), add = TRUE) 1572s [00:52:52.487] } 1572s [00:52:52.487] { 1572s [00:52:52.487] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1572s [00:52:52.487] ...future.X_jj <- ...future.elements_ii[[jj]] 1572s [00:52:52.487] ...future.FUN(...future.X_jj, ...) 1572s [00:52:52.487] }) 1572s [00:52:52.487] } 1572s [00:52:52.487] }, args = future.call.arguments) 1572s [00:52:52.487] } 1572s [00:52:52.487] Tweak future expression to call with '...' arguments ... DONE 1572s [00:52:52.488] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1572s [00:52:52.488] 1572s [00:52:52.488] getGlobalsAndPackages() ... DONE 1572s [00:52:52.488] run() for ‘Future’ ... 1572s [00:52:52.489] - state: ‘created’ 1572s [00:52:52.489] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1572s [00:52:52.489] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1572s [00:52:52.490] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1572s [00:52:52.490] - Field: ‘label’ 1572s [00:52:52.490] - Field: ‘local’ 1572s [00:52:52.490] - Field: ‘owner’ 1572s [00:52:52.490] - Field: ‘envir’ 1572s [00:52:52.490] - Field: ‘packages’ 1572s [00:52:52.491] - Field: ‘gc’ 1572s [00:52:52.491] - Field: ‘conditions’ 1572s [00:52:52.491] - Field: ‘expr’ 1572s [00:52:52.491] - Field: ‘uuid’ 1572s [00:52:52.491] - Field: ‘seed’ 1572s [00:52:52.491] - Field: ‘version’ 1572s [00:52:52.491] - Field: ‘result’ 1572s [00:52:52.492] - Field: ‘asynchronous’ 1572s [00:52:52.492] - Field: ‘calls’ 1572s [00:52:52.492] - Field: ‘globals’ 1572s [00:52:52.492] - Field: ‘stdout’ 1572s [00:52:52.492] - Field: ‘earlySignal’ 1572s [00:52:52.492] - Field: ‘lazy’ 1572s [00:52:52.492] - Field: ‘state’ 1572s [00:52:52.493] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1572s [00:52:52.493] - Launch lazy future ... 1572s [00:52:52.493] Packages needed by the future expression (n = 0): 1572s [00:52:52.493] Packages needed by future strategies (n = 0): 1572s [00:52:52.494] { 1572s [00:52:52.494] { 1572s [00:52:52.494] { 1572s [00:52:52.494] ...future.startTime <- base::Sys.time() 1572s [00:52:52.494] { 1572s [00:52:52.494] { 1572s [00:52:52.494] { 1572s [00:52:52.494] base::local({ 1572s [00:52:52.494] has_future <- base::requireNamespace("future", 1572s [00:52:52.494] quietly = TRUE) 1572s [00:52:52.494] if (has_future) { 1572s [00:52:52.494] ns <- base::getNamespace("future") 1572s [00:52:52.494] version <- ns[[".package"]][["version"]] 1572s [00:52:52.494] if (is.null(version)) 1572s [00:52:52.494] version <- utils::packageVersion("future") 1572s [00:52:52.494] } 1572s [00:52:52.494] else { 1572s [00:52:52.494] version <- NULL 1572s [00:52:52.494] } 1572s [00:52:52.494] if (!has_future || version < "1.8.0") { 1572s [00:52:52.494] info <- base::c(r_version = base::gsub("R version ", 1572s [00:52:52.494] "", base::R.version$version.string), 1572s [00:52:52.494] platform = base::sprintf("%s (%s-bit)", 1572s [00:52:52.494] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1572s [00:52:52.494] os = base::paste(base::Sys.info()[base::c("sysname", 1572s [00:52:52.494] "release", "version")], collapse = " "), 1572s [00:52:52.494] hostname = base::Sys.info()[["nodename"]]) 1572s [00:52:52.494] info <- base::sprintf("%s: %s", base::names(info), 1572s [00:52:52.494] info) 1572s [00:52:52.494] info <- base::paste(info, collapse = "; ") 1572s [00:52:52.494] if (!has_future) { 1572s [00:52:52.494] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1572s [00:52:52.494] info) 1572s [00:52:52.494] } 1572s [00:52:52.494] else { 1572s [00:52:52.494] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1572s [00:52:52.494] info, version) 1572s [00:52:52.494] } 1572s [00:52:52.494] base::stop(msg) 1572s [00:52:52.494] } 1572s [00:52:52.494] }) 1572s [00:52:52.494] } 1572s [00:52:52.494] options(future.plan = NULL) 1572s [00:52:52.494] Sys.unsetenv("R_FUTURE_PLAN") 1572s [00:52:52.494] future::plan("default", .cleanup = FALSE, .init = FALSE) 1572s [00:52:52.494] } 1572s [00:52:52.494] ...future.workdir <- getwd() 1572s [00:52:52.494] } 1572s [00:52:52.494] ...future.oldOptions <- base::as.list(base::.Options) 1572s [00:52:52.494] ...future.oldEnvVars <- base::Sys.getenv() 1572s [00:52:52.494] } 1572s [00:52:52.494] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1572s [00:52:52.494] future.globals.maxSize = NULL, future.globals.method = NULL, 1572s [00:52:52.494] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1572s [00:52:52.494] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1572s [00:52:52.494] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1572s [00:52:52.494] future.stdout.windows.reencode = NULL, width = 80L) 1572s [00:52:52.494] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1572s [00:52:52.494] base::names(...future.oldOptions)) 1572s [00:52:52.494] } 1572s [00:52:52.494] if (FALSE) { 1572s [00:52:52.494] } 1572s [00:52:52.494] else { 1572s [00:52:52.494] if (TRUE) { 1572s [00:52:52.494] ...future.stdout <- base::rawConnection(base::raw(0L), 1572s [00:52:52.494] open = "w") 1572s [00:52:52.494] } 1572s [00:52:52.494] else { 1572s [00:52:52.494] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1572s [00:52:52.494] windows = "NUL", "/dev/null"), open = "w") 1572s [00:52:52.494] } 1572s [00:52:52.494] base::sink(...future.stdout, type = "output", split = FALSE) 1572s [00:52:52.494] base::on.exit(if (!base::is.null(...future.stdout)) { 1572s [00:52:52.494] base::sink(type = "output", split = FALSE) 1572s [00:52:52.494] base::close(...future.stdout) 1572s [00:52:52.494] }, add = TRUE) 1572s [00:52:52.494] } 1572s [00:52:52.494] ...future.frame <- base::sys.nframe() 1572s [00:52:52.494] ...future.conditions <- base::list() 1572s [00:52:52.494] ...future.rng <- base::globalenv()$.Random.seed 1572s [00:52:52.494] if (FALSE) { 1572s [00:52:52.494] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1572s [00:52:52.494] "...future.value", "...future.globalenv.names", ".Random.seed") 1572s [00:52:52.494] } 1572s [00:52:52.494] ...future.result <- base::tryCatch({ 1572s [00:52:52.494] base::withCallingHandlers({ 1572s [00:52:52.494] ...future.value <- base::withVisible(base::local({ 1572s [00:52:52.494] do.call(function(...) { 1572s [00:52:52.494] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1572s [00:52:52.494] if (!identical(...future.globals.maxSize.org, 1572s [00:52:52.494] ...future.globals.maxSize)) { 1572s [00:52:52.494] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1572s [00:52:52.494] on.exit(options(oopts), add = TRUE) 1572s [00:52:52.494] } 1572s [00:52:52.494] { 1572s [00:52:52.494] lapply(seq_along(...future.elements_ii), 1572s [00:52:52.494] FUN = function(jj) { 1572s [00:52:52.494] ...future.X_jj <- ...future.elements_ii[[jj]] 1572s [00:52:52.494] ...future.FUN(...future.X_jj, ...) 1572s [00:52:52.494] }) 1572s [00:52:52.494] } 1572s [00:52:52.494] }, args = future.call.arguments) 1572s [00:52:52.494] })) 1572s [00:52:52.494] future::FutureResult(value = ...future.value$value, 1572s [00:52:52.494] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1572s [00:52:52.494] ...future.rng), globalenv = if (FALSE) 1572s [00:52:52.494] list(added = base::setdiff(base::names(base::.GlobalEnv), 1572s [00:52:52.494] ...future.globalenv.names)) 1572s [00:52:52.494] else NULL, started = ...future.startTime, version = "1.8") 1572s [00:52:52.494] }, condition = base::local({ 1572s [00:52:52.494] c <- base::c 1572s [00:52:52.494] inherits <- base::inherits 1572s [00:52:52.494] invokeRestart <- base::invokeRestart 1572s [00:52:52.494] length <- base::length 1572s [00:52:52.494] list <- base::list 1572s [00:52:52.494] seq.int <- base::seq.int 1572s [00:52:52.494] signalCondition <- base::signalCondition 1572s [00:52:52.494] sys.calls <- base::sys.calls 1572s [00:52:52.494] `[[` <- base::`[[` 1572s [00:52:52.494] `+` <- base::`+` 1572s [00:52:52.494] `<<-` <- base::`<<-` 1572s [00:52:52.494] sysCalls <- function(calls = sys.calls(), from = 1L) { 1572s [00:52:52.494] calls[seq.int(from = from + 12L, to = length(calls) - 1572s [00:52:52.494] 3L)] 1572s [00:52:52.494] } 1572s [00:52:52.494] function(cond) { 1572s [00:52:52.494] is_error <- inherits(cond, "error") 1572s [00:52:52.494] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1572s [00:52:52.494] NULL) 1572s [00:52:52.494] if (is_error) { 1572s [00:52:52.494] sessionInformation <- function() { 1572s [00:52:52.494] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1572s [00:52:52.494] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1572s [00:52:52.494] search = base::search(), system = base::Sys.info()) 1572s [00:52:52.494] } 1572s [00:52:52.494] ...future.conditions[[length(...future.conditions) + 1572s [00:52:52.494] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1572s [00:52:52.494] cond$call), session = sessionInformation(), 1572s [00:52:52.494] timestamp = base::Sys.time(), signaled = 0L) 1572s [00:52:52.494] signalCondition(cond) 1572s [00:52:52.494] } 1572s [00:52:52.494] else if (!ignore && TRUE && inherits(cond, c("condition", 1572s [00:52:52.494] "immediateCondition"))) { 1572s [00:52:52.494] signal <- TRUE && inherits(cond, "immediateCondition") 1572s [00:52:52.494] ...future.conditions[[length(...future.conditions) + 1572s [00:52:52.494] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1572s [00:52:52.494] if (TRUE && !signal) { 1572s [00:52:52.494] muffleCondition <- function (cond, pattern = "^muffle") 1572s [00:52:52.494] { 1572s [00:52:52.494] inherits <- base::inherits 1572s [00:52:52.494] invokeRestart <- base::invokeRestart 1572s [00:52:52.494] is.null <- base::is.null 1572s [00:52:52.494] muffled <- FALSE 1572s [00:52:52.494] if (inherits(cond, "message")) { 1572s [00:52:52.494] muffled <- grepl(pattern, "muffleMessage") 1572s [00:52:52.494] if (muffled) 1572s [00:52:52.494] invokeRestart("muffleMessage") 1572s [00:52:52.494] } 1572s [00:52:52.494] else if (inherits(cond, "warning")) { 1572s [00:52:52.494] muffled <- grepl(pattern, "muffleWarning") 1572s [00:52:52.494] if (muffled) 1572s [00:52:52.494] invokeRestart("muffleWarning") 1572s [00:52:52.494] } 1572s [00:52:52.494] else if (inherits(cond, "condition")) { 1572s [00:52:52.494] if (!is.null(pattern)) { 1572s [00:52:52.494] computeRestarts <- base::computeRestarts 1572s [00:52:52.494] grepl <- base::grepl 1572s [00:52:52.494] restarts <- computeRestarts(cond) 1572s [00:52:52.494] for (restart in restarts) { 1572s [00:52:52.494] name <- restart$name 1572s [00:52:52.494] if (is.null(name)) 1572s [00:52:52.494] next 1572s [00:52:52.494] if (!grepl(pattern, name)) 1572s [00:52:52.494] next 1572s [00:52:52.494] invokeRestart(restart) 1572s [00:52:52.494] muffled <- TRUE 1572s [00:52:52.494] break 1572s [00:52:52.494] } 1572s [00:52:52.494] } 1572s [00:52:52.494] } 1572s [00:52:52.494] invisible(muffled) 1572s [00:52:52.494] } 1572s [00:52:52.494] muffleCondition(cond, pattern = "^muffle") 1572s [00:52:52.494] } 1572s [00:52:52.494] } 1572s [00:52:52.494] else { 1572s [00:52:52.494] if (TRUE) { 1572s [00:52:52.494] muffleCondition <- function (cond, pattern = "^muffle") 1572s [00:52:52.494] { 1572s [00:52:52.494] inherits <- base::inherits 1572s [00:52:52.494] invokeRestart <- base::invokeRestart 1572s [00:52:52.494] is.null <- base::is.null 1572s [00:52:52.494] muffled <- FALSE 1572s [00:52:52.494] if (inherits(cond, "message")) { 1572s [00:52:52.494] muffled <- grepl(pattern, "muffleMessage") 1572s [00:52:52.494] if (muffled) 1572s [00:52:52.494] invokeRestart("muffleMessage") 1572s [00:52:52.494] } 1572s [00:52:52.494] else if (inherits(cond, "warning")) { 1572s [00:52:52.494] muffled <- grepl(pattern, "muffleWarning") 1572s [00:52:52.494] if (muffled) 1572s [00:52:52.494] invokeRestart("muffleWarning") 1572s [00:52:52.494] } 1572s [00:52:52.494] else if (inherits(cond, "condition")) { 1572s [00:52:52.494] if (!is.null(pattern)) { 1572s [00:52:52.494] computeRestarts <- base::computeRestarts 1572s [00:52:52.494] grepl <- base::grepl 1572s [00:52:52.494] restarts <- computeRestarts(cond) 1572s [00:52:52.494] for (restart in restarts) { 1572s [00:52:52.494] name <- restart$name 1572s [00:52:52.494] if (is.null(name)) 1572s [00:52:52.494] next 1572s [00:52:52.494] if (!grepl(pattern, name)) 1572s [00:52:52.494] next 1572s [00:52:52.494] invokeRestart(restart) 1572s [00:52:52.494] muffled <- TRUE 1572s [00:52:52.494] break 1572s [00:52:52.494] } 1572s [00:52:52.494] } 1572s [00:52:52.494] } 1572s [00:52:52.494] invisible(muffled) 1572s [00:52:52.494] } 1572s [00:52:52.494] muffleCondition(cond, pattern = "^muffle") 1572s [00:52:52.494] } 1572s [00:52:52.494] } 1572s [00:52:52.494] } 1572s [00:52:52.494] })) 1572s [00:52:52.494] }, error = function(ex) { 1572s [00:52:52.494] base::structure(base::list(value = NULL, visible = NULL, 1572s [00:52:52.494] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1572s [00:52:52.494] ...future.rng), started = ...future.startTime, 1572s [00:52:52.494] finished = Sys.time(), session_uuid = NA_character_, 1572s [00:52:52.494] version = "1.8"), class = "FutureResult") 1572s [00:52:52.494] }, finally = { 1572s [00:52:52.494] if (!identical(...future.workdir, getwd())) 1572s [00:52:52.494] setwd(...future.workdir) 1572s [00:52:52.494] { 1572s [00:52:52.494] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1572s [00:52:52.494] ...future.oldOptions$nwarnings <- NULL 1572s [00:52:52.494] } 1572s [00:52:52.494] base::options(...future.oldOptions) 1572s [00:52:52.494] if (.Platform$OS.type == "windows") { 1572s [00:52:52.494] old_names <- names(...future.oldEnvVars) 1572s [00:52:52.494] envs <- base::Sys.getenv() 1572s [00:52:52.494] names <- names(envs) 1572s [00:52:52.494] common <- intersect(names, old_names) 1572s [00:52:52.494] added <- setdiff(names, old_names) 1572s [00:52:52.494] removed <- setdiff(old_names, names) 1572s [00:52:52.494] changed <- common[...future.oldEnvVars[common] != 1572s [00:52:52.494] envs[common]] 1572s [00:52:52.494] NAMES <- toupper(changed) 1572s [00:52:52.494] args <- list() 1572s [00:52:52.494] for (kk in seq_along(NAMES)) { 1572s [00:52:52.494] name <- changed[[kk]] 1572s [00:52:52.494] NAME <- NAMES[[kk]] 1572s [00:52:52.494] if (name != NAME && is.element(NAME, old_names)) 1572s [00:52:52.494] next 1572s [00:52:52.494] args[[name]] <- ...future.oldEnvVars[[name]] 1572s [00:52:52.494] } 1572s [00:52:52.494] NAMES <- toupper(added) 1572s [00:52:52.494] for (kk in seq_along(NAMES)) { 1572s [00:52:52.494] name <- added[[kk]] 1572s [00:52:52.494] NAME <- NAMES[[kk]] 1572s [00:52:52.494] if (name != NAME && is.element(NAME, old_names)) 1572s [00:52:52.494] next 1572s [00:52:52.494] args[[name]] <- "" 1572s [00:52:52.494] } 1572s [00:52:52.494] NAMES <- toupper(removed) 1572s [00:52:52.494] for (kk in seq_along(NAMES)) { 1572s [00:52:52.494] name <- removed[[kk]] 1572s [00:52:52.494] NAME <- NAMES[[kk]] 1572s [00:52:52.494] if (name != NAME && is.element(NAME, old_names)) 1572s [00:52:52.494] next 1572s [00:52:52.494] args[[name]] <- ...future.oldEnvVars[[name]] 1572s [00:52:52.494] } 1572s [00:52:52.494] if (length(args) > 0) 1572s [00:52:52.494] base::do.call(base::Sys.setenv, args = args) 1572s [00:52:52.494] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1572s [00:52:52.494] } 1572s [00:52:52.494] else { 1572s [00:52:52.494] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1572s [00:52:52.494] } 1572s [00:52:52.494] { 1572s [00:52:52.494] if (base::length(...future.futureOptionsAdded) > 1572s [00:52:52.494] 0L) { 1572s [00:52:52.494] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1572s [00:52:52.494] base::names(opts) <- ...future.futureOptionsAdded 1572s [00:52:52.494] base::options(opts) 1572s [00:52:52.494] } 1572s [00:52:52.494] { 1572s [00:52:52.494] { 1572s [00:52:52.494] NULL 1572s [00:52:52.494] RNGkind("Mersenne-Twister") 1572s [00:52:52.494] base::rm(list = ".Random.seed", envir = base::globalenv(), 1572s [00:52:52.494] inherits = FALSE) 1572s [00:52:52.494] } 1572s [00:52:52.494] options(future.plan = NULL) 1572s [00:52:52.494] if (is.na(NA_character_)) 1572s [00:52:52.494] Sys.unsetenv("R_FUTURE_PLAN") 1572s [00:52:52.494] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1572s [00:52:52.494] future::plan(list(function (..., envir = parent.frame()) 1572s [00:52:52.494] { 1572s [00:52:52.494] future <- SequentialFuture(..., envir = envir) 1572s [00:52:52.494] if (!future$lazy) 1572s [00:52:52.494] future <- run(future) 1572s [00:52:52.494] invisible(future) 1572s [00:52:52.494] }), .cleanup = FALSE, .init = FALSE) 1572s [00:52:52.494] } 1572s [00:52:52.494] } 1572s [00:52:52.494] } 1572s [00:52:52.494] }) 1572s [00:52:52.494] if (TRUE) { 1572s [00:52:52.494] base::sink(type = "output", split = FALSE) 1572s [00:52:52.494] if (TRUE) { 1572s [00:52:52.494] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1572s [00:52:52.494] } 1572s [00:52:52.494] else { 1572s [00:52:52.494] ...future.result["stdout"] <- base::list(NULL) 1572s [00:52:52.494] } 1572s [00:52:52.494] base::close(...future.stdout) 1572s [00:52:52.494] ...future.stdout <- NULL 1572s [00:52:52.494] } 1572s [00:52:52.494] ...future.result$conditions <- ...future.conditions 1572s [00:52:52.494] ...future.result$finished <- base::Sys.time() 1572s [00:52:52.494] ...future.result 1572s [00:52:52.494] } 1572s [00:52:52.500] assign_globals() ... 1572s [00:52:52.500] List of 5 1572s [00:52:52.500] $ ...future.FUN :function (x, y = 2 * 1:5) 1572s [00:52:52.500] $ future.call.arguments : list() 1572s [00:52:52.500] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1572s [00:52:52.500] $ ...future.elements_ii :List of 4 1572s [00:52:52.500] ..$ A: num 50 1572s [00:52:52.500] ..$ B: num 60 1572s [00:52:52.500] ..$ C: num 70 1572s [00:52:52.500] ..$ D: num 80 1572s [00:52:52.500] $ ...future.seeds_ii : NULL 1572s [00:52:52.500] $ ...future.globals.maxSize: NULL 1572s [00:52:52.500] - attr(*, "where")=List of 5 1572s [00:52:52.500] ..$ ...future.FUN : 1572s [00:52:52.500] ..$ future.call.arguments : 1572s [00:52:52.500] ..$ ...future.elements_ii : 1572s [00:52:52.500] ..$ ...future.seeds_ii : 1572s [00:52:52.500] ..$ ...future.globals.maxSize: 1572s [00:52:52.500] - attr(*, "resolved")= logi FALSE 1572s [00:52:52.500] - attr(*, "total_size")= num 4728 1572s [00:52:52.500] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1572s [00:52:52.500] - attr(*, "already-done")= logi TRUE 1572s [00:52:52.514] - reassign environment for ‘...future.FUN’ 1572s [00:52:52.514] - copied ‘...future.FUN’ to environment 1572s [00:52:52.515] - copied ‘future.call.arguments’ to environment 1572s [00:52:52.515] - copied ‘...future.elements_ii’ to environment 1572s [00:52:52.515] - copied ‘...future.seeds_ii’ to environment 1572s [00:52:52.516] - copied ‘...future.globals.maxSize’ to environment 1572s [00:52:52.516] assign_globals() ... done 1572s [00:52:52.517] plan(): Setting new future strategy stack: 1572s [00:52:52.517] List of future strategies: 1572s [00:52:52.517] 1. sequential: 1572s [00:52:52.517] - args: function (..., envir = parent.frame()) 1572s [00:52:52.517] - tweaked: FALSE 1572s [00:52:52.517] - call: NULL 1572s [00:52:52.518] plan(): nbrOfWorkers() = 1 1572s [00:52:52.520] plan(): Setting new future strategy stack: 1572s [00:52:52.520] List of future strategies: 1572s [00:52:52.520] 1. sequential: 1572s [00:52:52.520] - args: function (..., envir = parent.frame()) 1572s [00:52:52.520] - tweaked: FALSE 1572s [00:52:52.520] - call: plan(strategy) 1572s [00:52:52.521] plan(): nbrOfWorkers() = 1 1572s [00:52:52.521] SequentialFuture started (and completed) 1572s [00:52:52.522] - Launch lazy future ... done 1572s [00:52:52.522] run() for ‘SequentialFuture’ ... done 1572s [00:52:52.522] Created future: 1572s [00:52:52.523] SequentialFuture: 1572s [00:52:52.523] Label: ‘future_sapply-1’ 1572s [00:52:52.523] Expression: 1572s [00:52:52.523] { 1572s [00:52:52.523] do.call(function(...) { 1572s [00:52:52.523] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1572s [00:52:52.523] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1572s [00:52:52.523] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1572s [00:52:52.523] on.exit(options(oopts), add = TRUE) 1572s [00:52:52.523] } 1572s [00:52:52.523] { 1572s [00:52:52.523] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1572s [00:52:52.523] ...future.X_jj <- ...future.elements_ii[[jj]] 1572s [00:52:52.523] ...future.FUN(...future.X_jj, ...) 1572s [00:52:52.523] }) 1572s [00:52:52.523] } 1572s [00:52:52.523] }, args = future.call.arguments) 1572s [00:52:52.523] } 1572s [00:52:52.523] Lazy evaluation: FALSE 1572s [00:52:52.523] Asynchronous evaluation: FALSE 1572s [00:52:52.523] Local evaluation: TRUE 1572s [00:52:52.523] Environment: R_GlobalEnv 1572s [00:52:52.523] Capture standard output: TRUE 1572s [00:52:52.523] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1572s [00:52:52.523] Globals: 5 objects totaling 4.84 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1572s [00:52:52.523] Packages: 1572s [00:52:52.523] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1572s [00:52:52.523] Resolved: TRUE 1572s [00:52:52.523] Value: 1.34 KiB of class ‘list’ 1572s [00:52:52.523] Early signaling: FALSE 1572s [00:52:52.523] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1572s [00:52:52.523] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1572s [00:52:52.525] Chunk #1 of 1 ... DONE 1572s [00:52:52.526] Launching 1 futures (chunks) ... DONE 1572s [00:52:52.526] Resolving 1 futures (chunks) ... 1572s [00:52:52.526] resolve() on list ... 1572s [00:52:52.526] recursive: 0 1572s [00:52:52.526] length: 1 1572s [00:52:52.526] 1572s [00:52:52.526] resolved() for ‘SequentialFuture’ ... 1572s [00:52:52.527] - state: ‘finished’ 1572s [00:52:52.527] - run: TRUE 1572s [00:52:52.527] - result: ‘FutureResult’ 1572s [00:52:52.527] resolved() for ‘SequentialFuture’ ... done 1572s [00:52:52.527] Future #1 1572s [00:52:52.528] signalConditionsASAP(SequentialFuture, pos=1) ... 1572s [00:52:52.528] - nx: 1 1572s [00:52:52.528] - relay: TRUE 1572s [00:52:52.528] - stdout: TRUE 1572s [00:52:52.528] - signal: TRUE 1572s [00:52:52.528] - resignal: FALSE 1572s [00:52:52.529] - force: TRUE 1572s [00:52:52.529] - relayed: [n=1] FALSE 1572s [00:52:52.529] - queued futures: [n=1] FALSE 1572s [00:52:52.530] - until=1 1572s [00:52:52.530] - relaying element #1 1572s [00:52:52.530] - relayed: [n=1] TRUE 1572s [00:52:52.531] - queued futures: [n=1] TRUE 1572s [00:52:52.531] signalConditionsASAP(SequentialFuture, pos=1) ... done 1572s [00:52:52.531] length: 0 (resolved future 1) 1572s [00:52:52.531] Relaying remaining futures 1572s [00:52:52.531] signalConditionsASAP(NULL, pos=0) ... 1572s [00:52:52.532] - nx: 1 1572s [00:52:52.532] - relay: TRUE 1572s [00:52:52.532] - stdout: TRUE 1572s [00:52:52.532] - signal: TRUE 1572s [00:52:52.532] - resignal: FALSE 1572s [00:52:52.533] - force: TRUE 1572s [00:52:52.533] - relayed: [n=1] TRUE 1572s [00:52:52.533] - queued futures: [n=1] TRUE 1572s - flush all 1572s [00:52:52.533] - relayed: [n=1] TRUE 1572s [00:52:52.533] - queued futures: [n=1] TRUE 1572s [00:52:52.533] signalConditionsASAP(NULL, pos=0) ... done 1572s [00:52:52.534] resolve() on list ... DONE 1572s [00:52:52.534] - Number of value chunks collected: 1 1572s [00:52:52.534] Resolving 1 futures (chunks) ... DONE 1572s [00:52:52.534] Reducing values from 1 chunks ... 1572s [00:52:52.535] - Number of values collected after concatenation: 4 1572s [00:52:52.535] - Number of values expected: 4 1572s [00:52:52.535] Reducing values from 1 chunks ... DONE 1572s [00:52:52.535] future_lapply() ... DONE 1572s List[00:52:52.539] future_lapply() ... 1572s [00:52:52.539] Number of chunks: 1 1572s [00:52:52.539] getGlobalsAndPackagesXApply() ... 1572s [00:52:52.539] - future.globals: TRUE 1572s [00:52:52.540] getGlobalsAndPackages() ... 1572s [00:52:52.540] Searching for globals... 1572s of 2 1572s $ y0: num [1:3, 1:5, 1:4] 100 100 100 200 200 200 300 300 300 400 ... 1572s ..- attr(*, "dimnames")=List of 3 1572s .. ..$ : NULL 1572s .. ..$ : NULL 1572s .. ..$ : chr [1:4] "A" "B" "C" "D" 1572s $ y1: num [1:3, 1:5, 1:4] 100 100 100 200 200 200 300 300 300 400 ... 1572s ..- attr(*, "dimnames")=List of 3 1572s .. ..$ : NULL 1572s .. ..$ : NULL 1572s .. ..$ : chr [1:4] "A" "B" "C" "D" 1572s [00:52:52.541] - globals found: [1] ‘FUN’ 1572s [00:52:52.541] Searching for globals ... DONE 1572s [00:52:52.541] Resolving globals: FALSE 1572s [00:52:52.541] The total size of the 1 globals is 56 bytes (56 bytes) 1572s [00:52:52.542] The total size of the 1 globals exported for future expression (‘FUN()’) is 56 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (56 bytes of class ‘function’) 1572s [00:52:52.542] - globals: [1] ‘FUN’ 1572s [00:52:52.542] 1572s [00:52:52.542] getGlobalsAndPackages() ... DONE 1572s [00:52:52.542] - globals found/used: [n=1] ‘FUN’ 1572s [00:52:52.542] - needed namespaces: [n=0] 1572s [00:52:52.543] Finding globals ... DONE 1572s [00:52:52.543] - use_args: TRUE 1572s [00:52:52.543] - Getting '...' globals ... 1572s [00:52:52.543] resolve() on list ... 1572s [00:52:52.544] recursive: 0 1572s [00:52:52.544] length: 1 1572s [00:52:52.547] elements: ‘...’ 1572s [00:52:52.547] length: 0 (resolved future 1) 1572s [00:52:52.548] resolve() on list ... DONE 1572s [00:52:52.548] - '...' content: [n=0] 1572s [00:52:52.548] List of 1 1572s [00:52:52.548] $ ...: list() 1572s [00:52:52.548] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1572s [00:52:52.548] - attr(*, "where")=List of 1 1572s [00:52:52.548] ..$ ...: 1572s [00:52:52.548] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1572s [00:52:52.548] - attr(*, "resolved")= logi TRUE 1572s [00:52:52.548] - attr(*, "total_size")= num NA 1572s [00:52:52.552] - Getting '...' globals ... DONE 1572s [00:52:52.553] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1572s [00:52:52.553] List of 2 1572s [00:52:52.553] $ ...future.FUN:function (x) 1572s [00:52:52.553] $ ... : list() 1572s [00:52:52.553] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1572s [00:52:52.553] - attr(*, "where")=List of 2 1572s [00:52:52.553] ..$ ...future.FUN: 1572s [00:52:52.553] ..$ ... : 1572s [00:52:52.553] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1572s [00:52:52.553] - attr(*, "resolved")= logi FALSE 1572s [00:52:52.553] - attr(*, "total_size")= num 56 1572s [00:52:52.556] Packages to be attached in all futures: [n=0] 1572s [00:52:52.557] getGlobalsAndPackagesXApply() ... DONE 1572s [00:52:52.557] Number of futures (= number of chunks): 1 1572s [00:52:52.557] Launching 1 futures (chunks) ... 1572s [00:52:52.557] Chunk #1 of 1 ... 1572s [00:52:52.558] - Finding globals in 'X' for chunk #1 ... 1572s [00:52:52.558] getGlobalsAndPackages() ... 1572s [00:52:52.558] Searching for globals... 1572s [00:52:52.559] 1572s [00:52:52.559] Searching for globals ... DONE 1572s [00:52:52.559] - globals: [0] 1572s [00:52:52.559] getGlobalsAndPackages() ... DONE 1572s [00:52:52.559] + additional globals found: [n=0] 1572s [00:52:52.560] + additional namespaces needed: [n=0] 1572s [00:52:52.560] - Finding globals in 'X' for chunk #1 ... DONE 1572s [00:52:52.560] - seeds: 1572s [00:52:52.560] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1572s [00:52:52.560] getGlobalsAndPackages() ... 1572s [00:52:52.561] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1572s [00:52:52.561] Resolving globals: FALSE 1572s [00:52:52.561] Tweak future expression to call with '...' arguments ... 1572s [00:52:52.561] { 1572s [00:52:52.561] do.call(function(...) { 1572s [00:52:52.561] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1572s [00:52:52.561] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1572s [00:52:52.561] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1572s [00:52:52.561] on.exit(options(oopts), add = TRUE) 1572s [00:52:52.561] } 1572s [00:52:52.561] { 1572s [00:52:52.561] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1572s [00:52:52.561] ...future.X_jj <- ...future.elements_ii[[jj]] 1572s [00:52:52.561] ...future.FUN(...future.X_jj, ...) 1572s [00:52:52.561] }) 1572s [00:52:52.561] } 1572s [00:52:52.561] }, args = future.call.arguments) 1572s [00:52:52.561] } 1572s [00:52:52.562] Tweak future expression to call with '...' arguments ... DONE 1572s [00:52:52.562] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1572s [00:52:52.562] 1572s [00:52:52.562] getGlobalsAndPackages() ... DONE 1572s [00:52:52.563] run() for ‘Future’ ... 1572s [00:52:52.563] - state: ‘created’ 1572s [00:52:52.563] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1572s [00:52:52.564] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1572s [00:52:52.564] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1572s [00:52:52.564] - Field: ‘label’ 1572s [00:52:52.564] - Field: ‘local’ 1572s [00:52:52.564] - Field: ‘owner’ 1572s [00:52:52.564] - Field: ‘envir’ 1572s [00:52:52.565] - Field: ‘packages’ 1572s [00:52:52.565] - Field: ‘gc’ 1572s [00:52:52.565] - Field: ‘conditions’ 1572s [00:52:52.565] - Field: ‘expr’ 1572s [00:52:52.565] - Field: ‘uuid’ 1572s [00:52:52.565] - Field: ‘seed’ 1572s [00:52:52.565] - Field: ‘version’ 1572s [00:52:52.566] - Field: ‘result’ 1572s [00:52:52.566] - Field: ‘asynchronous’ 1572s [00:52:52.566] - Field: ‘calls’ 1572s [00:52:52.566] - Field: ‘globals’ 1572s [00:52:52.566] - Field: ‘stdout’ 1572s [00:52:52.566] - Field: ‘earlySignal’ 1572s [00:52:52.567] - Field: ‘lazy’ 1572s [00:52:52.567] - Field: ‘state’ 1572s [00:52:52.567] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1572s [00:52:52.567] - Launch lazy future ... 1572s [00:52:52.567] Packages needed by the future expression (n = 0): 1572s [00:52:52.567] Packages needed by future strategies (n = 0): 1572s [00:52:52.568] { 1572s [00:52:52.568] { 1572s [00:52:52.568] { 1572s [00:52:52.568] ...future.startTime <- base::Sys.time() 1572s [00:52:52.568] { 1572s [00:52:52.568] { 1572s [00:52:52.568] { 1572s [00:52:52.568] base::local({ 1572s [00:52:52.568] has_future <- base::requireNamespace("future", 1572s [00:52:52.568] quietly = TRUE) 1572s [00:52:52.568] if (has_future) { 1572s [00:52:52.568] ns <- base::getNamespace("future") 1572s [00:52:52.568] version <- ns[[".package"]][["version"]] 1572s [00:52:52.568] if (is.null(version)) 1572s [00:52:52.568] version <- utils::packageVersion("future") 1572s [00:52:52.568] } 1572s [00:52:52.568] else { 1572s [00:52:52.568] version <- NULL 1572s [00:52:52.568] } 1572s [00:52:52.568] if (!has_future || version < "1.8.0") { 1572s [00:52:52.568] info <- base::c(r_version = base::gsub("R version ", 1572s [00:52:52.568] "", base::R.version$version.string), 1572s [00:52:52.568] platform = base::sprintf("%s (%s-bit)", 1572s [00:52:52.568] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1572s [00:52:52.568] os = base::paste(base::Sys.info()[base::c("sysname", 1572s [00:52:52.568] "release", "version")], collapse = " "), 1572s [00:52:52.568] hostname = base::Sys.info()[["nodename"]]) 1572s [00:52:52.568] info <- base::sprintf("%s: %s", base::names(info), 1572s [00:52:52.568] info) 1572s [00:52:52.568] info <- base::paste(info, collapse = "; ") 1572s [00:52:52.568] if (!has_future) { 1572s [00:52:52.568] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1572s [00:52:52.568] info) 1572s [00:52:52.568] } 1572s [00:52:52.568] else { 1572s [00:52:52.568] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1572s [00:52:52.568] info, version) 1572s [00:52:52.568] } 1572s [00:52:52.568] base::stop(msg) 1572s [00:52:52.568] } 1572s [00:52:52.568] }) 1572s [00:52:52.568] } 1572s [00:52:52.568] options(future.plan = NULL) 1572s [00:52:52.568] Sys.unsetenv("R_FUTURE_PLAN") 1572s [00:52:52.568] future::plan("default", .cleanup = FALSE, .init = FALSE) 1572s [00:52:52.568] } 1572s [00:52:52.568] ...future.workdir <- getwd() 1572s [00:52:52.568] } 1572s [00:52:52.568] ...future.oldOptions <- base::as.list(base::.Options) 1572s [00:52:52.568] ...future.oldEnvVars <- base::Sys.getenv() 1572s [00:52:52.568] } 1572s [00:52:52.568] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1572s [00:52:52.568] future.globals.maxSize = NULL, future.globals.method = NULL, 1572s [00:52:52.568] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1572s [00:52:52.568] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1572s [00:52:52.568] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1572s [00:52:52.568] future.stdout.windows.reencode = NULL, width = 80L) 1572s [00:52:52.568] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1572s [00:52:52.568] base::names(...future.oldOptions)) 1572s [00:52:52.568] } 1572s [00:52:52.568] if (FALSE) { 1572s [00:52:52.568] } 1572s [00:52:52.568] else { 1572s [00:52:52.568] if (TRUE) { 1572s [00:52:52.568] ...future.stdout <- base::rawConnection(base::raw(0L), 1572s [00:52:52.568] open = "w") 1572s [00:52:52.568] } 1572s [00:52:52.568] else { 1572s [00:52:52.568] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1572s [00:52:52.568] windows = "NUL", "/dev/null"), open = "w") 1572s [00:52:52.568] } 1572s [00:52:52.568] base::sink(...future.stdout, type = "output", split = FALSE) 1572s [00:52:52.568] base::on.exit(if (!base::is.null(...future.stdout)) { 1572s [00:52:52.568] base::sink(type = "output", split = FALSE) 1572s [00:52:52.568] base::close(...future.stdout) 1572s [00:52:52.568] }, add = TRUE) 1572s [00:52:52.568] } 1572s [00:52:52.568] ...future.frame <- base::sys.nframe() 1572s [00:52:52.568] ...future.conditions <- base::list() 1572s [00:52:52.568] ...future.rng <- base::globalenv()$.Random.seed 1572s [00:52:52.568] if (FALSE) { 1572s [00:52:52.568] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1572s [00:52:52.568] "...future.value", "...future.globalenv.names", ".Random.seed") 1572s [00:52:52.568] } 1572s [00:52:52.568] ...future.result <- base::tryCatch({ 1572s [00:52:52.568] base::withCallingHandlers({ 1572s [00:52:52.568] ...future.value <- base::withVisible(base::local({ 1572s [00:52:52.568] do.call(function(...) { 1572s [00:52:52.568] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1572s [00:52:52.568] if (!identical(...future.globals.maxSize.org, 1572s [00:52:52.568] ...future.globals.maxSize)) { 1572s [00:52:52.568] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1572s [00:52:52.568] on.exit(options(oopts), add = TRUE) 1572s [00:52:52.568] } 1572s [00:52:52.568] { 1572s [00:52:52.568] lapply(seq_along(...future.elements_ii), 1572s [00:52:52.568] FUN = function(jj) { 1572s [00:52:52.568] ...future.X_jj <- ...future.elements_ii[[jj]] 1572s [00:52:52.568] ...future.FUN(...future.X_jj, ...) 1572s [00:52:52.568] }) 1572s [00:52:52.568] } 1572s [00:52:52.568] }, args = future.call.arguments) 1572s [00:52:52.568] })) 1572s [00:52:52.568] future::FutureResult(value = ...future.value$value, 1572s [00:52:52.568] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1572s [00:52:52.568] ...future.rng), globalenv = if (FALSE) 1572s [00:52:52.568] list(added = base::setdiff(base::names(base::.GlobalEnv), 1572s [00:52:52.568] ...future.globalenv.names)) 1572s [00:52:52.568] else NULL, started = ...future.startTime, version = "1.8") 1572s [00:52:52.568] }, condition = base::local({ 1572s [00:52:52.568] c <- base::c 1572s [00:52:52.568] inherits <- base::inherits 1572s [00:52:52.568] invokeRestart <- base::invokeRestart 1572s [00:52:52.568] length <- base::length 1572s [00:52:52.568] list <- base::list 1572s [00:52:52.568] seq.int <- base::seq.int 1572s [00:52:52.568] signalCondition <- base::signalCondition 1572s [00:52:52.568] sys.calls <- base::sys.calls 1572s [00:52:52.568] `[[` <- base::`[[` 1572s [00:52:52.568] `+` <- base::`+` 1572s [00:52:52.568] `<<-` <- base::`<<-` 1572s [00:52:52.568] sysCalls <- function(calls = sys.calls(), from = 1L) { 1572s [00:52:52.568] calls[seq.int(from = from + 12L, to = length(calls) - 1572s [00:52:52.568] 3L)] 1572s [00:52:52.568] } 1572s [00:52:52.568] function(cond) { 1572s [00:52:52.568] is_error <- inherits(cond, "error") 1572s [00:52:52.568] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1572s [00:52:52.568] NULL) 1572s [00:52:52.568] if (is_error) { 1572s [00:52:52.568] sessionInformation <- function() { 1572s [00:52:52.568] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1572s [00:52:52.568] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1572s [00:52:52.568] search = base::search(), system = base::Sys.info()) 1572s [00:52:52.568] } 1572s [00:52:52.568] ...future.conditions[[length(...future.conditions) + 1572s [00:52:52.568] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1572s [00:52:52.568] cond$call), session = sessionInformation(), 1572s [00:52:52.568] timestamp = base::Sys.time(), signaled = 0L) 1572s [00:52:52.568] signalCondition(cond) 1572s [00:52:52.568] } 1572s [00:52:52.568] else if (!ignore && TRUE && inherits(cond, c("condition", 1572s [00:52:52.568] "immediateCondition"))) { 1572s [00:52:52.568] signal <- TRUE && inherits(cond, "immediateCondition") 1572s [00:52:52.568] ...future.conditions[[length(...future.conditions) + 1572s [00:52:52.568] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1572s [00:52:52.568] if (TRUE && !signal) { 1572s [00:52:52.568] muffleCondition <- function (cond, pattern = "^muffle") 1572s [00:52:52.568] { 1572s [00:52:52.568] inherits <- base::inherits 1572s [00:52:52.568] invokeRestart <- base::invokeRestart 1572s [00:52:52.568] is.null <- base::is.null 1572s [00:52:52.568] muffled <- FALSE 1572s [00:52:52.568] if (inherits(cond, "message")) { 1572s [00:52:52.568] muffled <- grepl(pattern, "muffleMessage") 1572s [00:52:52.568] if (muffled) 1572s [00:52:52.568] invokeRestart("muffleMessage") 1572s [00:52:52.568] } 1572s [00:52:52.568] else if (inherits(cond, "warning")) { 1572s [00:52:52.568] muffled <- grepl(pattern, "muffleWarning") 1572s [00:52:52.568] if (muffled) 1572s [00:52:52.568] invokeRestart("muffleWarning") 1572s [00:52:52.568] } 1572s [00:52:52.568] else if (inherits(cond, "condition")) { 1572s [00:52:52.568] if (!is.null(pattern)) { 1572s [00:52:52.568] computeRestarts <- base::computeRestarts 1572s [00:52:52.568] grepl <- base::grepl 1572s [00:52:52.568] restarts <- computeRestarts(cond) 1572s [00:52:52.568] for (restart in restarts) { 1572s [00:52:52.568] name <- restart$name 1572s [00:52:52.568] if (is.null(name)) 1572s [00:52:52.568] next 1572s [00:52:52.568] if (!grepl(pattern, name)) 1572s [00:52:52.568] next 1572s [00:52:52.568] invokeRestart(restart) 1572s [00:52:52.568] muffled <- TRUE 1572s [00:52:52.568] break 1572s [00:52:52.568] } 1572s [00:52:52.568] } 1572s [00:52:52.568] } 1572s [00:52:52.568] invisible(muffled) 1572s [00:52:52.568] } 1572s [00:52:52.568] muffleCondition(cond, pattern = "^muffle") 1572s [00:52:52.568] } 1572s [00:52:52.568] } 1572s [00:52:52.568] else { 1572s [00:52:52.568] if (TRUE) { 1572s [00:52:52.568] muffleCondition <- function (cond, pattern = "^muffle") 1572s [00:52:52.568] { 1572s [00:52:52.568] inherits <- base::inherits 1572s [00:52:52.568] invokeRestart <- base::invokeRestart 1572s [00:52:52.568] is.null <- base::is.null 1572s [00:52:52.568] muffled <- FALSE 1572s [00:52:52.568] if (inherits(cond, "message")) { 1572s [00:52:52.568] muffled <- grepl(pattern, "muffleMessage") 1572s [00:52:52.568] if (muffled) 1572s [00:52:52.568] invokeRestart("muffleMessage") 1572s [00:52:52.568] } 1572s [00:52:52.568] else if (inherits(cond, "warning")) { 1572s [00:52:52.568] muffled <- grepl(pattern, "muffleWarning") 1572s [00:52:52.568] if (muffled) 1572s [00:52:52.568] invokeRestart("muffleWarning") 1572s [00:52:52.568] } 1572s [00:52:52.568] else if (inherits(cond, "condition")) { 1572s [00:52:52.568] if (!is.null(pattern)) { 1572s [00:52:52.568] computeRestarts <- base::computeRestarts 1572s [00:52:52.568] grepl <- base::grepl 1572s [00:52:52.568] restarts <- computeRestarts(cond) 1572s [00:52:52.568] for (restart in restarts) { 1572s [00:52:52.568] name <- restart$name 1572s [00:52:52.568] if (is.null(name)) 1572s [00:52:52.568] next 1572s [00:52:52.568] if (!grepl(pattern, name)) 1572s [00:52:52.568] next 1572s [00:52:52.568] invokeRestart(restart) 1572s [00:52:52.568] muffled <- TRUE 1572s [00:52:52.568] break 1572s [00:52:52.568] } 1572s [00:52:52.568] } 1572s [00:52:52.568] } 1572s [00:52:52.568] invisible(muffled) 1572s [00:52:52.568] } 1572s [00:52:52.568] muffleCondition(cond, pattern = "^muffle") 1572s [00:52:52.568] } 1572s [00:52:52.568] } 1572s [00:52:52.568] } 1572s [00:52:52.568] })) 1572s [00:52:52.568] }, error = function(ex) { 1572s [00:52:52.568] base::structure(base::list(value = NULL, visible = NULL, 1572s [00:52:52.568] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1572s [00:52:52.568] ...future.rng), started = ...future.startTime, 1572s [00:52:52.568] finished = Sys.time(), session_uuid = NA_character_, 1572s [00:52:52.568] version = "1.8"), class = "FutureResult") 1572s [00:52:52.568] }, finally = { 1572s [00:52:52.568] if (!identical(...future.workdir, getwd())) 1572s [00:52:52.568] setwd(...future.workdir) 1572s [00:52:52.568] { 1572s [00:52:52.568] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1572s [00:52:52.568] ...future.oldOptions$nwarnings <- NULL 1572s [00:52:52.568] } 1572s [00:52:52.568] base::options(...future.oldOptions) 1572s [00:52:52.568] if (.Platform$OS.type == "windows") { 1572s [00:52:52.568] old_names <- names(...future.oldEnvVars) 1572s [00:52:52.568] envs <- base::Sys.getenv() 1572s [00:52:52.568] names <- names(envs) 1572s [00:52:52.568] common <- intersect(names, old_names) 1572s [00:52:52.568] added <- setdiff(names, old_names) 1572s [00:52:52.568] removed <- setdiff(old_names, names) 1572s [00:52:52.568] changed <- common[...future.oldEnvVars[common] != 1572s [00:52:52.568] envs[common]] 1572s [00:52:52.568] NAMES <- toupper(changed) 1572s [00:52:52.568] args <- list() 1572s [00:52:52.568] for (kk in seq_along(NAMES)) { 1572s [00:52:52.568] name <- changed[[kk]] 1572s [00:52:52.568] NAME <- NAMES[[kk]] 1572s [00:52:52.568] if (name != NAME && is.element(NAME, old_names)) 1572s [00:52:52.568] next 1572s [00:52:52.568] args[[name]] <- ...future.oldEnvVars[[name]] 1572s [00:52:52.568] } 1572s [00:52:52.568] NAMES <- toupper(added) 1572s [00:52:52.568] for (kk in seq_along(NAMES)) { 1572s [00:52:52.568] name <- added[[kk]] 1572s [00:52:52.568] NAME <- NAMES[[kk]] 1572s [00:52:52.568] if (name != NAME && is.element(NAME, old_names)) 1572s [00:52:52.568] next 1572s [00:52:52.568] args[[name]] <- "" 1572s [00:52:52.568] } 1572s [00:52:52.568] NAMES <- toupper(removed) 1572s [00:52:52.568] for (kk in seq_along(NAMES)) { 1572s [00:52:52.568] name <- removed[[kk]] 1572s [00:52:52.568] NAME <- NAMES[[kk]] 1572s [00:52:52.568] if (name != NAME && is.element(NAME, old_names)) 1572s [00:52:52.568] next 1572s [00:52:52.568] args[[name]] <- ...future.oldEnvVars[[name]] 1572s [00:52:52.568] } 1572s [00:52:52.568] if (length(args) > 0) 1572s [00:52:52.568] base::do.call(base::Sys.setenv, args = args) 1572s [00:52:52.568] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1572s [00:52:52.568] } 1572s [00:52:52.568] else { 1572s [00:52:52.568] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1572s [00:52:52.568] } 1572s [00:52:52.568] { 1572s [00:52:52.568] if (base::length(...future.futureOptionsAdded) > 1572s [00:52:52.568] 0L) { 1572s [00:52:52.568] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1572s [00:52:52.568] base::names(opts) <- ...future.futureOptionsAdded 1572s [00:52:52.568] base::options(opts) 1572s [00:52:52.568] } 1572s [00:52:52.568] { 1572s [00:52:52.568] { 1572s [00:52:52.568] NULL 1572s [00:52:52.568] RNGkind("Mersenne-Twister") 1572s [00:52:52.568] base::rm(list = ".Random.seed", envir = base::globalenv(), 1572s [00:52:52.568] inherits = FALSE) 1572s [00:52:52.568] } 1572s [00:52:52.568] options(future.plan = NULL) 1572s [00:52:52.568] if (is.na(NA_character_)) 1572s [00:52:52.568] Sys.unsetenv("R_FUTURE_PLAN") 1572s [00:52:52.568] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1572s [00:52:52.568] future::plan(list(function (..., envir = parent.frame()) 1572s [00:52:52.568] { 1572s [00:52:52.568] future <- SequentialFuture(..., envir = envir) 1572s [00:52:52.568] if (!future$lazy) 1572s [00:52:52.568] future <- run(future) 1572s [00:52:52.568] invisible(future) 1572s [00:52:52.568] }), .cleanup = FALSE, .init = FALSE) 1572s [00:52:52.568] } 1572s [00:52:52.568] } 1572s [00:52:52.568] } 1572s [00:52:52.568] }) 1572s [00:52:52.568] if (TRUE) { 1572s [00:52:52.568] base::sink(type = "output", split = FALSE) 1572s [00:52:52.568] if (TRUE) { 1572s [00:52:52.568] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1572s [00:52:52.568] } 1572s [00:52:52.568] else { 1572s [00:52:52.568] ...future.result["stdout"] <- base::list(NULL) 1572s [00:52:52.568] } 1572s [00:52:52.568] base::close(...future.stdout) 1572s [00:52:52.568] ...future.stdout <- NULL 1572s [00:52:52.568] } 1572s [00:52:52.568] ...future.result$conditions <- ...future.conditions 1572s [00:52:52.568] ...future.result$finished <- base::Sys.time() 1572s [00:52:52.568] ...future.result 1572s [00:52:52.568] } 1572s [00:52:52.574] assign_globals() ... 1572s [00:52:52.574] List of 5 1572s [00:52:52.574] $ ...future.FUN :function (x) 1572s [00:52:52.574] $ future.call.arguments : list() 1572s [00:52:52.574] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1572s [00:52:52.574] $ ...future.elements_ii :List of 3 1572s [00:52:52.574] ..$ : int 1 1572s [00:52:52.574] ..$ : int 2 1572s [00:52:52.574] ..$ : int 3 1572s [00:52:52.574] $ ...future.seeds_ii : NULL 1572s [00:52:52.574] $ ...future.globals.maxSize: NULL 1572s [00:52:52.574] - attr(*, "where")=List of 5 1572s [00:52:52.574] ..$ ...future.FUN : 1572s [00:52:52.574] ..$ future.call.arguments : 1572s [00:52:52.574] ..$ ...future.elements_ii : 1572s [00:52:52.574] ..$ ...future.seeds_ii : 1572s [00:52:52.574] ..$ ...future.globals.maxSize: 1572s [00:52:52.574] - attr(*, "resolved")= logi FALSE 1572s [00:52:52.574] - attr(*, "total_size")= num 56 1572s [00:52:52.574] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1572s [00:52:52.574] - attr(*, "already-done")= logi TRUE 1572s [00:52:52.581] - copied ‘...future.FUN’ to environment 1572s [00:52:52.581] - copied ‘future.call.arguments’ to environment 1572s [00:52:52.584] - copied ‘...future.elements_ii’ to environment 1572s [00:52:52.584] - copied ‘...future.seeds_ii’ to environment 1572s [00:52:52.584] - copied ‘...future.globals.maxSize’ to environment 1572s [00:52:52.585] assign_globals() ... done 1572s [00:52:52.585] plan(): Setting new future strategy stack: 1572s [00:52:52.585] List of future strategies: 1572s [00:52:52.585] 1. sequential: 1572s [00:52:52.585] - args: function (..., envir = parent.frame()) 1572s [00:52:52.585] - tweaked: FALSE 1572s [00:52:52.585] - call: NULL 1572s [00:52:52.586] plan(): nbrOfWorkers() = 1 1572s [00:52:52.587] plan(): Setting new future strategy stack: 1572s [00:52:52.587] List of future strategies: 1572s [00:52:52.587] 1. sequential: 1572s [00:52:52.587] - args: function (..., envir = parent.frame()) 1572s [00:52:52.587] - tweaked: FALSE 1572s [00:52:52.587] - call: plan(strategy) 1572s [00:52:52.587] plan(): nbrOfWorkers() = 1 1572s [00:52:52.587] SequentialFuture started (and completed) 1572s [00:52:52.588] - Launch lazy future ... done 1572s [00:52:52.588] run() for ‘SequentialFuture’ ... done 1572s [00:52:52.588] Created future: 1572s [00:52:52.588] SequentialFuture: 1572s [00:52:52.588] Label: ‘future_sapply-1’ 1572s [00:52:52.588] Expression: 1572s [00:52:52.588] { 1572s [00:52:52.588] do.call(function(...) { 1572s [00:52:52.588] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1572s [00:52:52.588] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1572s [00:52:52.588] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1572s [00:52:52.588] on.exit(options(oopts), add = TRUE) 1572s [00:52:52.588] } 1572s [00:52:52.588] { 1572s [00:52:52.588] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1572s [00:52:52.588] ...future.X_jj <- ...future.elements_ii[[jj]] 1572s [00:52:52.588] ...future.FUN(...future.X_jj, ...) 1572s [00:52:52.588] }) 1572s [00:52:52.588] } 1572s [00:52:52.588] }, args = future.call.arguments) 1572s [00:52:52.588] } 1572s [00:52:52.588] Lazy evaluation: FALSE 1572s [00:52:52.588] Asynchronous evaluation: FALSE 1572s [00:52:52.588] Local evaluation: TRUE 1572s [00:52:52.588] Environment: R_GlobalEnv 1572s [00:52:52.588] Capture standard output: TRUE 1572s [00:52:52.588] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1572s [00:52:52.588] Globals: 5 objects totaling 224 bytes (function ‘...future.FUN’ of 56 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1572s [00:52:52.588] Packages: 1572s [00:52:52.588] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1572s [00:52:52.588] Resolved: TRUE 1572s [00:52:52.588] Value: 168 bytes of class ‘list’ 1572s [00:52:52.588] Early signaling: FALSE 1572s [00:52:52.588] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1572s [00:52:52.588] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1572s [00:52:52.590] Chunk #1 of 1 ... DONE 1572s [00:52:52.591] Launching 1 futures (chunks) ... DONE 1572s [00:52:52.591] Resolving 1 futures (chunks) ... 1572s [00:52:52.591] resolve() on list ... 1572s [00:52:52.591] recursive: 0 1572s [00:52:52.591] length: 1 1572s [00:52:52.591] 1572s [00:52:52.591] resolved() for ‘SequentialFuture’ ... 1572s [00:52:52.592] - state: ‘finished’ 1572s [00:52:52.592] - run: TRUE 1572s [00:52:52.592] - result: ‘FutureResult’ 1572s [00:52:52.592] resolved() for ‘SequentialFuture’ ... done 1572s [00:52:52.592] Future #1 1572s [00:52:52.592] signalConditionsASAP(SequentialFuture, pos=1) ... 1572s [00:52:52.592] - nx: 1 1572s [00:52:52.593] - relay: TRUE 1572s [00:52:52.593] - stdout: TRUE 1572s [00:52:52.593] - signal: TRUE 1572s [00:52:52.593] - resignal: FALSE 1572s [00:52:52.593] - force: TRUE 1572s [00:52:52.593] - relayed: [n=1] FALSE 1572s [00:52:52.593] - queued futures: [n=1] FALSE 1572s [00:52:52.593] - until=1 1572s [00:52:52.594] - relaying element #1 1572s [00:52:52.594] - relayed: [n=1] TRUE 1572s [00:52:52.594] - queued futures: [n=1] TRUE 1572s [00:52:52.594] signalConditionsASAP(SequentialFuture, pos=1) ... done 1572s [00:52:52.594] length: 0 (resolved future 1) 1572s [00:52:52.594] Relaying remaining futures 1572s [00:52:52.595] signalConditionsASAP(NULL, pos=0) ... 1572s [00:52:52.595] - nx: 1 1572s [00:52:52.595] - relay: TRUE 1572s [00:52:52.595] - stdout: TRUE 1572s [00:52:52.595] - signal: TRUE 1572s [00:52:52.595] - resignal: FALSE 1572s [00:52:52.595] - force: TRUE 1572s [00:52:52.595] - relayed: [n=1] TRUE 1572s [00:52:52.595] - queued futures: [n=1] TRUE 1572s - flush all 1572s [00:52:52.596] - relayed: [n=1] TRUE 1572s [00:52:52.596] - queued futures: [n=1] TRUE 1572s [00:52:52.596] signalConditionsASAP(NULL, pos=0) ... done 1572s [00:52:52.596] resolve() on list ... DONE 1572s [00:52:52.596] - Number of value chunks collected: 1 1572s [00:52:52.596] Resolving 1 futures (chunks) ... DONE 1572s [00:52:52.596] Reducing values from 1 chunks ... 1572s [00:52:52.597] - Number of values collected after concatenation: 3 1572s [00:52:52.597] - Number of values expected: 3 1572s [00:52:52.597] Reducing values from 1 chunks ... DONE 1572s [00:52:52.597] future_lapply() ... DONE 1572s [00:52:52.597] future_lapply() ... 1572s [00:52:52.598] Number of chunks: 1 1572s [00:52:52.599] getGlobalsAndPackagesXApply() ... 1572s [00:52:52.599] - future.globals: TRUE 1572s [00:52:52.599] getGlobalsAndPackages() ... 1572s [00:52:52.599] Searching for globals... 1572s [00:52:52.601] - globals found: [4] ‘FUN’, ‘compute’, ‘...’, ‘+’ 1572s [00:52:52.602] Searching for globals ... DONE 1572s [00:52:52.602] Resolving globals: FALSE 1572s [00:52:52.602] Tweak future expression to call with '...' arguments ... 1572s [00:52:52.602] { 1572s [00:52:52.602] do.call(function(...) FUN(), args = future.call.arguments) 1572s [00:52:52.602] } 1572s [00:52:52.603] Tweak future expression to call with '...' arguments ... DONE 1572s [00:52:52.604] The total size of the 3 globals is 3.92 KiB (4016 bytes) 1572s [00:52:52.604] The total size of the 3 globals exported for future expression (‘FUN()’) is 3.92 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are three globals: ‘FUN’ (2.43 KiB of class ‘function’), ‘compute’ (1.44 KiB of class ‘function’) and ‘future.call.arguments’ (56 bytes of class ‘list’) 1572s [00:52:52.604] - globals: [3] ‘FUN’, ‘compute’, ‘future.call.arguments’ 1572s [00:52:52.604] 1572s [00:52:52.605] getGlobalsAndPackages() ... DONE 1572s [00:52:52.605] - globals found/used: [n=3] ‘FUN’, ‘compute’, ‘future.call.arguments’ 1572s [00:52:52.605] - needed namespaces: [n=0] 1572s [00:52:52.605] Finding globals ... DONE 1572s [00:52:52.605] - use_args: TRUE 1572s [00:52:52.606] - Getting '...' globals ... 1572s [00:52:52.606] resolve() on list ... 1572s [00:52:52.606] recursive: 0 1572s [00:52:52.606] length: 1 1572s [00:52:52.606] elements: ‘...’ 1572s [00:52:52.607] length: 0 (resolved future 1) 1572s [00:52:52.607] resolve() on list ... DONE 1572s [00:52:52.607] - '...' content: [n=0] 1572s [00:52:52.607] List of 1 1572s [00:52:52.607] $ ...: list() 1572s [00:52:52.607] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1572s [00:52:52.607] - attr(*, "where")=List of 1 1572s [00:52:52.607] ..$ ...: 1572s [00:52:52.607] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1572s [00:52:52.607] - attr(*, "resolved")= logi TRUE 1572s [00:52:52.607] - attr(*, "total_size")= num NA 1572s [00:52:52.611] - Getting '...' globals ... DONE 1572s [00:52:52.611] Globals to be used in all futures (chunks): [n=4] ‘...future.FUN’, ‘compute’, ‘future.call.arguments’, ‘...’ 1572s [00:52:52.611] List of 4 1572s [00:52:52.611] $ ...future.FUN :function (x) 1572s [00:52:52.611] $ compute :function (a, x_vec) 1572s [00:52:52.611] $ future.call.arguments:List of 1 1572s [00:52:52.611] ..$ : int 0 1572s [00:52:52.611] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1572s [00:52:52.611] $ ... : list() 1572s [00:52:52.611] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1572s [00:52:52.611] - attr(*, "where")=List of 4 1572s [00:52:52.611] ..$ ...future.FUN : 1572s [00:52:52.611] ..$ compute : 1572s [00:52:52.611] ..$ future.call.arguments: 1572s [00:52:52.611] ..$ ... : 1572s [00:52:52.611] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1572s [00:52:52.611] - attr(*, "resolved")= logi FALSE 1572s [00:52:52.611] - attr(*, "total_size")= num 4016 1572s [00:52:52.621] Packages to be attached in all futures: [n=0] 1572s [00:52:52.621] getGlobalsAndPackagesXApply() ... DONE 1572s [00:52:52.621] Number of futures (= number of chunks): 1 1572s [00:52:52.622] Launching 1 futures (chunks) ... 1572s [00:52:52.622] Chunk #1 of 1 ... 1572s [00:52:52.622] - Finding globals in 'X' for chunk #1 ... 1572s [00:52:52.622] getGlobalsAndPackages() ... 1572s [00:52:52.622] Searching for globals... 1572s [00:52:52.623] 1572s [00:52:52.623] Searching for globals ... DONE 1572s [00:52:52.623] - globals: [0] 1572s [00:52:52.623] getGlobalsAndPackages() ... DONE 1572s [00:52:52.623] + additional globals found: [n=0] 1572s [00:52:52.623] + additional namespaces needed: [n=0] 1572s [00:52:52.624] - Finding globals in 'X' for chunk #1 ... DONE 1572s [00:52:52.624] - seeds: 1572s [00:52:52.624] - All globals exported: [n=7] ‘...future.FUN’, ‘compute’, ‘future.call.arguments’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1572s [00:52:52.624] getGlobalsAndPackages() ... 1572s [00:52:52.625] - globals passed as-is: [7] ‘...future.FUN’, ‘compute’, ‘future.call.arguments’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1572s [00:52:52.625] Resolving globals: FALSE 1572s [00:52:52.625] Tweak future expression to call with '...' arguments ... 1572s [00:52:52.626] - Detected 2 'future.call.arguments' global entries: 1572s [00:52:52.626] List of 2 1572s [00:52:52.626] $ future.call.arguments:List of 1 1572s [00:52:52.626] ..$ : int 0 1572s [00:52:52.626] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1572s [00:52:52.626] $ future.call.arguments: list() 1572s [00:52:52.626] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1572s [00:52:52.626] - attr(*, "where")=List of 2 1572s [00:52:52.626] ..$ future.call.arguments: 1572s [00:52:52.626] ..$ future.call.arguments: 1572s [00:52:52.626] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1572s [00:52:52.626] - attr(*, "resolved")= logi FALSE 1572s [00:52:52.626] - attr(*, "total_size")= num 4016 1572s [00:52:52.631] future.call.arguments future.call.arguments 1572s [00:52:52.631] 1 0 1572s [00:52:52.631] - 'future.call.arguments' global entries: 1572s [00:52:52.631] List of 2 1572s [00:52:52.631] $ future.call.arguments:List of 1 1572s [00:52:52.631] ..$ : int 0 1572s [00:52:52.631] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1572s [00:52:52.631] $ ...future.elements_ii:List of 2 1572s [00:52:52.631] ..$ : int 1 1572s [00:52:52.631] ..$ : int 2 1572s [00:52:52.631] - attr(*, "where")=List of 2 1572s [00:52:52.631] ..$ future.call.arguments: 1572s [00:52:52.631] ..$ ...future.elements_ii: 1572s [00:52:52.631] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1572s [00:52:52.631] - attr(*, "resolved")= logi FALSE 1572s [00:52:52.631] - attr(*, "total_size")= num 4016 1572s [00:52:52.636] { 1572s [00:52:52.636] do.call(function(...) { 1572s [00:52:52.636] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1572s [00:52:52.636] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1572s [00:52:52.636] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1572s [00:52:52.636] on.exit(options(oopts), add = TRUE) 1572s [00:52:52.636] } 1572s [00:52:52.636] { 1572s [00:52:52.636] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1572s [00:52:52.636] ...future.X_jj <- ...future.elements_ii[[jj]] 1572s [00:52:52.636] ...future.FUN(...future.X_jj) 1572s [00:52:52.636] }) 1572s [00:52:52.636] } 1572s [00:52:52.636] }, args = future.call.arguments) 1572s [00:52:52.636] } 1572s [00:52:52.637] Tweak future expression to call with '...' arguments ... DONE 1572s [00:52:52.637] - globals: [6] ‘...future.FUN’, ‘compute’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1572s [00:52:52.638] 1572s [00:52:52.638] getGlobalsAndPackages() ... DONE 1572s [00:52:52.638] run() for ‘Future’ ... 1572s [00:52:52.638] - state: ‘created’ 1572s [00:52:52.639] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1572s [00:52:52.639] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1572s [00:52:52.639] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1572s [00:52:52.639] - Field: ‘label’ 1572s [00:52:52.639] - Field: ‘local’ 1572s [00:52:52.640] - Field: ‘owner’ 1572s [00:52:52.640] - Field: ‘envir’ 1572s [00:52:52.640] - Field: ‘packages’ 1572s [00:52:52.640] - Field: ‘gc’ 1572s [00:52:52.640] - Field: ‘conditions’ 1572s [00:52:52.640] - Field: ‘expr’ 1572s [00:52:52.641] - Field: ‘uuid’ 1572s [00:52:52.641] - Field: ‘seed’ 1572s [00:52:52.641] - Field: ‘version’ 1572s [00:52:52.641] - Field: ‘result’ 1572s [00:52:52.641] - Field: ‘asynchronous’ 1572s [00:52:52.642] - Field: ‘calls’ 1572s [00:52:52.642] - Field: ‘globals’ 1572s [00:52:52.642] - Field: ‘stdout’ 1572s [00:52:52.642] - Field: ‘earlySignal’ 1572s [00:52:52.643] - Field: ‘lazy’ 1572s [00:52:52.643] - Field: ‘state’ 1572s [00:52:52.643] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1572s [00:52:52.643] - Launch lazy future ... 1572s [00:52:52.643] Packages needed by the future expression (n = 0): 1572s [00:52:52.644] Packages needed by future strategies (n = 0): 1572s [00:52:52.644] { 1572s [00:52:52.644] { 1572s [00:52:52.644] { 1572s [00:52:52.644] ...future.startTime <- base::Sys.time() 1572s [00:52:52.644] { 1572s [00:52:52.644] { 1572s [00:52:52.644] { 1572s [00:52:52.644] base::local({ 1572s [00:52:52.644] has_future <- base::requireNamespace("future", 1572s [00:52:52.644] quietly = TRUE) 1572s [00:52:52.644] if (has_future) { 1572s [00:52:52.644] ns <- base::getNamespace("future") 1572s [00:52:52.644] version <- ns[[".package"]][["version"]] 1572s [00:52:52.644] if (is.null(version)) 1572s [00:52:52.644] version <- utils::packageVersion("future") 1572s [00:52:52.644] } 1572s [00:52:52.644] else { 1572s [00:52:52.644] version <- NULL 1572s [00:52:52.644] } 1572s [00:52:52.644] if (!has_future || version < "1.8.0") { 1572s [00:52:52.644] info <- base::c(r_version = base::gsub("R version ", 1572s [00:52:52.644] "", base::R.version$version.string), 1572s [00:52:52.644] platform = base::sprintf("%s (%s-bit)", 1572s [00:52:52.644] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1572s [00:52:52.644] os = base::paste(base::Sys.info()[base::c("sysname", 1572s [00:52:52.644] "release", "version")], collapse = " "), 1572s [00:52:52.644] hostname = base::Sys.info()[["nodename"]]) 1572s [00:52:52.644] info <- base::sprintf("%s: %s", base::names(info), 1572s [00:52:52.644] info) 1572s [00:52:52.644] info <- base::paste(info, collapse = "; ") 1572s [00:52:52.644] if (!has_future) { 1572s [00:52:52.644] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1572s [00:52:52.644] info) 1572s [00:52:52.644] } 1572s [00:52:52.644] else { 1572s [00:52:52.644] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1572s [00:52:52.644] info, version) 1572s [00:52:52.644] } 1572s [00:52:52.644] base::stop(msg) 1572s [00:52:52.644] } 1572s [00:52:52.644] }) 1572s [00:52:52.644] } 1572s [00:52:52.644] options(future.plan = NULL) 1572s [00:52:52.644] Sys.unsetenv("R_FUTURE_PLAN") 1572s [00:52:52.644] future::plan("default", .cleanup = FALSE, .init = FALSE) 1572s [00:52:52.644] } 1572s [00:52:52.644] ...future.workdir <- getwd() 1572s [00:52:52.644] } 1572s [00:52:52.644] ...future.oldOptions <- base::as.list(base::.Options) 1572s [00:52:52.644] ...future.oldEnvVars <- base::Sys.getenv() 1572s [00:52:52.644] } 1572s [00:52:52.644] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1572s [00:52:52.644] future.globals.maxSize = NULL, future.globals.method = NULL, 1572s [00:52:52.644] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1572s [00:52:52.644] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1572s [00:52:52.644] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1572s [00:52:52.644] future.stdout.windows.reencode = NULL, width = 80L) 1572s [00:52:52.644] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1572s [00:52:52.644] base::names(...future.oldOptions)) 1572s [00:52:52.644] } 1572s [00:52:52.644] if (FALSE) { 1572s [00:52:52.644] } 1572s [00:52:52.644] else { 1572s [00:52:52.644] if (TRUE) { 1572s [00:52:52.644] ...future.stdout <- base::rawConnection(base::raw(0L), 1572s [00:52:52.644] open = "w") 1572s [00:52:52.644] } 1572s [00:52:52.644] else { 1572s [00:52:52.644] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1572s [00:52:52.644] windows = "NUL", "/dev/null"), open = "w") 1572s [00:52:52.644] } 1572s [00:52:52.644] base::sink(...future.stdout, type = "output", split = FALSE) 1572s [00:52:52.644] base::on.exit(if (!base::is.null(...future.stdout)) { 1572s [00:52:52.644] base::sink(type = "output", split = FALSE) 1572s [00:52:52.644] base::close(...future.stdout) 1572s [00:52:52.644] }, add = TRUE) 1572s [00:52:52.644] } 1572s [00:52:52.644] ...future.frame <- base::sys.nframe() 1572s [00:52:52.644] ...future.conditions <- base::list() 1572s [00:52:52.644] ...future.rng <- base::globalenv()$.Random.seed 1572s [00:52:52.644] if (FALSE) { 1572s [00:52:52.644] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1572s [00:52:52.644] "...future.value", "...future.globalenv.names", ".Random.seed") 1572s [00:52:52.644] } 1572s [00:52:52.644] ...future.result <- base::tryCatch({ 1572s [00:52:52.644] base::withCallingHandlers({ 1572s [00:52:52.644] ...future.value <- base::withVisible(base::local({ 1572s [00:52:52.644] do.call(function(...) { 1572s [00:52:52.644] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1572s [00:52:52.644] if (!identical(...future.globals.maxSize.org, 1572s [00:52:52.644] ...future.globals.maxSize)) { 1572s [00:52:52.644] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1572s [00:52:52.644] on.exit(options(oopts), add = TRUE) 1572s [00:52:52.644] } 1572s [00:52:52.644] { 1572s [00:52:52.644] lapply(seq_along(...future.elements_ii), 1572s [00:52:52.644] FUN = function(jj) { 1572s [00:52:52.644] ...future.X_jj <- ...future.elements_ii[[jj]] 1572s [00:52:52.644] ...future.FUN(...future.X_jj) 1572s [00:52:52.644] }) 1572s [00:52:52.644] } 1572s [00:52:52.644] }, args = future.call.arguments) 1572s [00:52:52.644] })) 1572s [00:52:52.644] future::FutureResult(value = ...future.value$value, 1572s [00:52:52.644] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1572s [00:52:52.644] ...future.rng), globalenv = if (FALSE) 1572s [00:52:52.644] list(added = base::setdiff(base::names(base::.GlobalEnv), 1572s [00:52:52.644] ...future.globalenv.names)) 1572s [00:52:52.644] else NULL, started = ...future.startTime, version = "1.8") 1572s [00:52:52.644] }, condition = base::local({ 1572s [00:52:52.644] c <- base::c 1572s [00:52:52.644] inherits <- base::inherits 1572s [00:52:52.644] invokeRestart <- base::invokeRestart 1572s [00:52:52.644] length <- base::length 1572s [00:52:52.644] list <- base::list 1572s [00:52:52.644] seq.int <- base::seq.int 1572s [00:52:52.644] signalCondition <- base::signalCondition 1572s [00:52:52.644] sys.calls <- base::sys.calls 1572s [00:52:52.644] `[[` <- base::`[[` 1572s [00:52:52.644] `+` <- base::`+` 1572s [00:52:52.644] `<<-` <- base::`<<-` 1572s [00:52:52.644] sysCalls <- function(calls = sys.calls(), from = 1L) { 1572s [00:52:52.644] calls[seq.int(from = from + 12L, to = length(calls) - 1572s [00:52:52.644] 3L)] 1572s [00:52:52.644] } 1572s [00:52:52.644] function(cond) { 1572s [00:52:52.644] is_error <- inherits(cond, "error") 1572s [00:52:52.644] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1572s [00:52:52.644] NULL) 1572s [00:52:52.644] if (is_error) { 1572s [00:52:52.644] sessionInformation <- function() { 1572s [00:52:52.644] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1572s [00:52:52.644] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1572s [00:52:52.644] search = base::search(), system = base::Sys.info()) 1572s [00:52:52.644] } 1572s [00:52:52.644] ...future.conditions[[length(...future.conditions) + 1572s [00:52:52.644] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1572s [00:52:52.644] cond$call), session = sessionInformation(), 1572s [00:52:52.644] timestamp = base::Sys.time(), signaled = 0L) 1572s [00:52:52.644] signalCondition(cond) 1572s [00:52:52.644] } 1572s [00:52:52.644] else if (!ignore && TRUE && inherits(cond, c("condition", 1572s [00:52:52.644] "immediateCondition"))) { 1572s [00:52:52.644] signal <- TRUE && inherits(cond, "immediateCondition") 1572s [00:52:52.644] ...future.conditions[[length(...future.conditions) + 1572s [00:52:52.644] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1572s [00:52:52.644] if (TRUE && !signal) { 1572s [00:52:52.644] muffleCondition <- function (cond, pattern = "^muffle") 1572s [00:52:52.644] { 1572s [00:52:52.644] inherits <- base::inherits 1572s [00:52:52.644] invokeRestart <- base::invokeRestart 1572s [00:52:52.644] is.null <- base::is.null 1572s [00:52:52.644] muffled <- FALSE 1572s [00:52:52.644] if (inherits(cond, "message")) { 1572s [00:52:52.644] muffled <- grepl(pattern, "muffleMessage") 1572s [00:52:52.644] if (muffled) 1572s [00:52:52.644] invokeRestart("muffleMessage") 1572s [00:52:52.644] } 1572s [00:52:52.644] else if (inherits(cond, "warning")) { 1572s [00:52:52.644] muffled <- grepl(pattern, "muffleWarning") 1572s [00:52:52.644] if (muffled) 1572s [00:52:52.644] invokeRestart("muffleWarning") 1572s [00:52:52.644] } 1572s [00:52:52.644] else if (inherits(cond, "condition")) { 1572s [00:52:52.644] if (!is.null(pattern)) { 1572s [00:52:52.644] computeRestarts <- base::computeRestarts 1572s [00:52:52.644] grepl <- base::grepl 1572s [00:52:52.644] restarts <- computeRestarts(cond) 1572s [00:52:52.644] for (restart in restarts) { 1572s [00:52:52.644] name <- restart$name 1572s [00:52:52.644] if (is.null(name)) 1572s [00:52:52.644] next 1572s [00:52:52.644] if (!grepl(pattern, name)) 1572s [00:52:52.644] next 1572s [00:52:52.644] invokeRestart(restart) 1572s [00:52:52.644] muffled <- TRUE 1572s [00:52:52.644] break 1572s [00:52:52.644] } 1572s [00:52:52.644] } 1572s [00:52:52.644] } 1572s [00:52:52.644] invisible(muffled) 1572s [00:52:52.644] } 1572s [00:52:52.644] muffleCondition(cond, pattern = "^muffle") 1572s [00:52:52.644] } 1572s [00:52:52.644] } 1572s [00:52:52.644] else { 1572s [00:52:52.644] if (TRUE) { 1572s [00:52:52.644] muffleCondition <- function (cond, pattern = "^muffle") 1572s [00:52:52.644] { 1572s [00:52:52.644] inherits <- base::inherits 1572s [00:52:52.644] invokeRestart <- base::invokeRestart 1572s [00:52:52.644] is.null <- base::is.null 1572s [00:52:52.644] muffled <- FALSE 1572s [00:52:52.644] if (inherits(cond, "message")) { 1572s [00:52:52.644] muffled <- grepl(pattern, "muffleMessage") 1572s [00:52:52.644] if (muffled) 1572s [00:52:52.644] invokeRestart("muffleMessage") 1572s [00:52:52.644] } 1572s [00:52:52.644] else if (inherits(cond, "warning")) { 1572s [00:52:52.644] muffled <- grepl(pattern, "muffleWarning") 1572s [00:52:52.644] if (muffled) 1572s [00:52:52.644] invokeRestart("muffleWarning") 1572s [00:52:52.644] } 1572s [00:52:52.644] else if (inherits(cond, "condition")) { 1572s [00:52:52.644] if (!is.null(pattern)) { 1572s [00:52:52.644] computeRestarts <- base::computeRestarts 1572s [00:52:52.644] grepl <- base::grepl 1572s [00:52:52.644] restarts <- computeRestarts(cond) 1572s [00:52:52.644] for (restart in restarts) { 1572s [00:52:52.644] name <- restart$name 1572s [00:52:52.644] if (is.null(name)) 1572s [00:52:52.644] next 1572s [00:52:52.644] if (!grepl(pattern, name)) 1572s [00:52:52.644] next 1572s [00:52:52.644] invokeRestart(restart) 1572s [00:52:52.644] muffled <- TRUE 1572s [00:52:52.644] break 1572s [00:52:52.644] } 1572s [00:52:52.644] } 1572s [00:52:52.644] } 1572s [00:52:52.644] invisible(muffled) 1572s [00:52:52.644] } 1572s [00:52:52.644] muffleCondition(cond, pattern = "^muffle") 1572s [00:52:52.644] } 1572s [00:52:52.644] } 1572s [00:52:52.644] } 1572s [00:52:52.644] })) 1572s [00:52:52.644] }, error = function(ex) { 1572s [00:52:52.644] base::structure(base::list(value = NULL, visible = NULL, 1572s [00:52:52.644] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1572s [00:52:52.644] ...future.rng), started = ...future.startTime, 1572s [00:52:52.644] finished = Sys.time(), session_uuid = NA_character_, 1572s [00:52:52.644] version = "1.8"), class = "FutureResult") 1572s [00:52:52.644] }, finally = { 1572s [00:52:52.644] if (!identical(...future.workdir, getwd())) 1572s [00:52:52.644] setwd(...future.workdir) 1572s [00:52:52.644] { 1572s [00:52:52.644] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1572s [00:52:52.644] ...future.oldOptions$nwarnings <- NULL 1572s [00:52:52.644] } 1572s [00:52:52.644] base::options(...future.oldOptions) 1572s [00:52:52.644] if (.Platform$OS.type == "windows") { 1572s [00:52:52.644] old_names <- names(...future.oldEnvVars) 1572s [00:52:52.644] envs <- base::Sys.getenv() 1572s [00:52:52.644] names <- names(envs) 1572s [00:52:52.644] common <- intersect(names, old_names) 1572s [00:52:52.644] added <- setdiff(names, old_names) 1572s [00:52:52.644] removed <- setdiff(old_names, names) 1572s [00:52:52.644] changed <- common[...future.oldEnvVars[common] != 1572s [00:52:52.644] envs[common]] 1572s [00:52:52.644] NAMES <- toupper(changed) 1572s [00:52:52.644] args <- list() 1572s [00:52:52.644] for (kk in seq_along(NAMES)) { 1572s [00:52:52.644] name <- changed[[kk]] 1572s [00:52:52.644] NAME <- NAMES[[kk]] 1572s [00:52:52.644] if (name != NAME && is.element(NAME, old_names)) 1572s [00:52:52.644] next 1572s [00:52:52.644] args[[name]] <- ...future.oldEnvVars[[name]] 1572s [00:52:52.644] } 1572s [00:52:52.644] NAMES <- toupper(added) 1572s [00:52:52.644] for (kk in seq_along(NAMES)) { 1572s [00:52:52.644] name <- added[[kk]] 1572s [00:52:52.644] NAME <- NAMES[[kk]] 1572s [00:52:52.644] if (name != NAME && is.element(NAME, old_names)) 1572s [00:52:52.644] next 1572s [00:52:52.644] args[[name]] <- "" 1572s [00:52:52.644] } 1572s [00:52:52.644] NAMES <- toupper(removed) 1572s [00:52:52.644] for (kk in seq_along(NAMES)) { 1572s [00:52:52.644] name <- removed[[kk]] 1572s [00:52:52.644] NAME <- NAMES[[kk]] 1572s [00:52:52.644] if (name != NAME && is.element(NAME, old_names)) 1572s [00:52:52.644] next 1572s [00:52:52.644] args[[name]] <- ...future.oldEnvVars[[name]] 1572s [00:52:52.644] } 1572s [00:52:52.644] if (length(args) > 0) 1572s [00:52:52.644] base::do.call(base::Sys.setenv, args = args) 1572s [00:52:52.644] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1572s [00:52:52.644] } 1572s [00:52:52.644] else { 1572s [00:52:52.644] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1572s [00:52:52.644] } 1572s [00:52:52.644] { 1572s [00:52:52.644] if (base::length(...future.futureOptionsAdded) > 1572s [00:52:52.644] 0L) { 1572s [00:52:52.644] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1572s [00:52:52.644] base::names(opts) <- ...future.futureOptionsAdded 1572s [00:52:52.644] base::options(opts) 1572s [00:52:52.644] } 1572s [00:52:52.644] { 1572s [00:52:52.644] { 1572s [00:52:52.644] NULL 1572s [00:52:52.644] RNGkind("Mersenne-Twister") 1572s [00:52:52.644] base::rm(list = ".Random.seed", envir = base::globalenv(), 1572s [00:52:52.644] inherits = FALSE) 1572s [00:52:52.644] } 1572s [00:52:52.644] options(future.plan = NULL) 1572s [00:52:52.644] if (is.na(NA_character_)) 1572s [00:52:52.644] Sys.unsetenv("R_FUTURE_PLAN") 1572s [00:52:52.644] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1572s [00:52:52.644] future::plan(list(function (..., envir = parent.frame()) 1572s [00:52:52.644] { 1572s [00:52:52.644] future <- SequentialFuture(..., envir = envir) 1572s [00:52:52.644] if (!future$lazy) 1572s [00:52:52.644] future <- run(future) 1572s [00:52:52.644] invisible(future) 1572s [00:52:52.644] }), .cleanup = FALSE, .init = FALSE) 1572s [00:52:52.644] } 1572s [00:52:52.644] } 1572s [00:52:52.644] } 1572s [00:52:52.644] }) 1572s [00:52:52.644] if (TRUE) { 1572s [00:52:52.644] base::sink(type = "output", split = FALSE) 1572s [00:52:52.644] if (TRUE) { 1572s [00:52:52.644] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1572s [00:52:52.644] } 1572s [00:52:52.644] else { 1572s [00:52:52.644] ...future.result["stdout"] <- base::list(NULL) 1572s [00:52:52.644] } 1572s [00:52:52.644] base::close(...future.stdout) 1572s [00:52:52.644] ...future.stdout <- NULL 1572s [00:52:52.644] } 1572s [00:52:52.644] ...future.result$conditions <- ...future.conditions 1572s [00:52:52.644] ...future.result$finished <- base::Sys.time() 1572s [00:52:52.644] ...future.result 1572s [00:52:52.644] } 1572s [00:52:52.651] assign_globals() ... 1572s [00:52:52.651] List of 6 1572s [00:52:52.651] $ ...future.FUN :function (x) 1572s [00:52:52.651] $ compute :function (a, x_vec) 1572s [00:52:52.651] $ future.call.arguments :List of 1 1572s [00:52:52.651] ..$ : int 0 1572s [00:52:52.651] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1572s [00:52:52.651] $ ...future.elements_ii :List of 2 1572s [00:52:52.651] ..$ : int 1 1572s [00:52:52.651] ..$ : int 2 1572s [00:52:52.651] $ ...future.seeds_ii : NULL 1572s [00:52:52.651] $ ...future.globals.maxSize: NULL 1572s [00:52:52.651] - attr(*, "where")=List of 6 1572s [00:52:52.651] ..$ ...future.FUN : 1572s [00:52:52.651] ..$ compute : 1572s [00:52:52.651] ..$ future.call.arguments : 1572s [00:52:52.651] ..$ ...future.elements_ii : 1572s [00:52:52.651] ..$ ...future.seeds_ii : 1572s [00:52:52.651] ..$ ...future.globals.maxSize: 1572s [00:52:52.651] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1572s [00:52:52.651] - attr(*, "resolved")= logi FALSE 1572s [00:52:52.651] - attr(*, "total_size")= num 4016 1572s [00:52:52.651] - attr(*, "already-done")= logi TRUE 1572s [00:52:52.665] - reassign environment for ‘...future.FUN’ 1572s [00:52:52.665] - copied ‘...future.FUN’ to environment 1572s [00:52:52.666] - reassign environment for ‘compute’ 1572s [00:52:52.666] - copied ‘compute’ to environment 1572s [00:52:52.666] - copied ‘future.call.arguments’ to environment 1572s [00:52:52.666] - copied ‘...future.elements_ii’ to environment 1572s [00:52:52.666] - copied ‘...future.seeds_ii’ to environment 1572s [00:52:52.666] - copied ‘...future.globals.maxSize’ to environment 1572s [00:52:52.667] assign_globals() ... done 1572s [00:52:52.667] plan(): Setting new future strategy stack: 1572s [00:52:52.667] List of future strategies: 1572s [00:52:52.667] 1. sequential: 1572s [00:52:52.667] - args: function (..., envir = parent.frame()) 1572s [00:52:52.667] - tweaked: FALSE 1572s [00:52:52.667] - call: NULL 1572s [00:52:52.668] plan(): nbrOfWorkers() = 1 1572s [00:52:52.669] plan(): Setting new future strategy stack: 1572s [00:52:52.669] List of future strategies: 1572s [00:52:52.669] 1. sequential: 1572s [00:52:52.669] - args: function (..., envir = parent.frame()) 1572s [00:52:52.669] - tweaked: FALSE 1572s [00:52:52.669] - call: plan(strategy) 1572s [00:52:52.670] plan(): nbrOfWorkers() = 1 1572s [00:52:52.671] SequentialFuture started (and completed) 1572s [00:52:52.671] - Launch lazy future ... done 1572s [00:52:52.671] run() for ‘SequentialFuture’ ... done 1572s [00:52:52.671] Created future: 1572s [00:52:52.672] SequentialFuture: 1572s [00:52:52.672] Label: ‘future_sapply-1’ 1572s [00:52:52.672] Expression: 1572s [00:52:52.672] { 1572s [00:52:[1] 1 252.672] do.call(function(...) { 1572s [00:52:52.672] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1572s [00:52:52.672] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1572s [00:52:52.672] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1572s [00:52:52.672] on.exit(options(oopts), add = TRUE) 1572s [00:52:52.672] } 1572s [00:52:52.672] { 1572s [00:52:52.672] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1572s [00:52:52.672] ...future.X_jj <- ...future.elements_ii[[jj]] 1572s [00:52:52.672] ...future.FUN(...future.X_jj) 1572s [00:52:52.672] }) 1572s [00:52:52.672] } 1572s [00:52:52.672] }, args = future.call.arguments) 1572s [00:52:52.672] } 1572s [00:52:52.672] Lazy evaluation: FALSE 1572s [00:52:52.672] Asynchronous evaluation: FALSE 1572s [00:52:52.672] Local evaluation: TRUE 1572s [00:52:52.672] Environment: 0x2aa3a5a2578 1572s [00:52:52.672] Capture standard output: TRUE 1572s [00:52:52.672] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1572s [00:52:52.672] Globals: 6 objects totaling 4.03 KiB (function ‘...future.FUN’ of 2.43 KiB, function ‘compute’ of 1.44 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, ...) 1572s [00:52:52.672] Packages: 1572s [00:52:52.672] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1572s [00:52:52.672] Resolved: TRUE 1572s [00:52:52.672] Value: 112 bytes of class ‘list’ 1572s [00:52:52.672] Early signaling: FALSE 1572s [00:52:52.672] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1572s [00:52:52.672] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1572s [00:52:52.674] Chunk #1 of 1 ... DONE 1572s [00:52:52.674] Launching 1 futures (chunks) ... DONE 1572s [00:52:52.674] Resolving 1 futures (chunks) ... 1572s [00:52:52.674] resolve() on list ... 1572s [00:52:52.674] recursive: 0 1572s [00:52:52.675] length: 1 1572s [00:52:52.675] 1572s [00:52:52.675] resolved() for ‘SequentialFuture’ ... 1572s [00:52:52.675] - state: ‘finished’ 1572s [00:52:52.675] - run: TRUE 1572s [00:52:52.675] - result: ‘FutureResult’ 1572s [00:52:52.675] resolved() for ‘SequentialFuture’ ... done 1572s [00:52:52.675] Future #1 1572s [00:52:52.676] signalConditionsASAP(SequentialFuture, pos=1) ... 1572s [00:52:52.676] - nx: 1 1572s [00:52:52.676] - relay: TRUE 1572s [00:52:52.676] - stdout: TRUE 1572s [00:52:52.676] - signal: TRUE 1572s [00:52:52.676] - resignal: FALSE 1572s [00:52:52.676] - force: TRUE 1572s [00:52:52.676] - relayed: [n=1] FALSE 1572s [00:52:52.676] - queued futures: [n=1] FALSE 1572s [00:52:52.677] - until=1 1572s [00:52:52.677] - relaying element #1 1572s [00:52:52.677] - relayed: [n=1] TRUE 1572s [00:52:52.677] - queued futures: [n=1] TRUE 1572s [00:52:52.677] signalConditionsASAP(SequentialFuture, pos=1) ... done 1572s [00:52:52.677] length: 0 (resolved future 1) 1572s [00:52:52.677] Relaying remaining futures 1572s [00:52:52.678] signalConditionsASAP(NULL, pos=0) ... 1572s [00:52:52.678] - nx: 1 1572s [00:52:52.678] - relay: TRUE 1572s [00:52:52.678] - stdout: TRUE 1572s [00:52:52.678] - signal: TRUE 1572s [00:52:52.678] - resignal: FALSE 1572s [00:52:52.678] - force: TRUE 1572s [00:52:52.678] - relayed: [n=1] TRUE 1572s [00:52:52.678] - queued futures: [n=1] TRUE 1572s - flush all 1572s [00:52:52.678] - relayed: [n=1] TRUE 1572s [00:52:52.679] - queued futures: [n=1] TRUE 1572s [00:52:52.679] signalConditionsASAP(NULL, pos=0) ... done 1572s [00:52:52.679] resolve() on list ... DONE 1572s [00:52:52.679] - Number of value chunks collected: 1 1572s [00:52:52.679] Resolving 1 futures (chunks) ... DONE 1572s [00:52:52.679] Reducing values from 1 chunks ... 1572s [00:52:52.679] - Number of values collected after concatenation: 2 1572s [00:52:52.680] - Number of values expected: 2 1572s [00:52:52.680] Reducing values from 1 chunks ... DONE 1572s [00:52:52.680] future_lapply() ... DONE 1572s 1572s [00:52:52.681] plan(): Setting new future strategy stack: 1572s [00:52:52.681] List of future strategies: 1572s [00:52:52.681] 1. sequential: 1572s [00:52:52.681] - args: function (..., envir = parent.frame()) 1572s [00:52:52.681] - tweaked: FALSE 1572s [00:52:52.681] - call: plan(sequential) 1572s [00:52:52.681] plan(): nbrOfWorkers() = 1 1572s *** strategy = ‘sequential’ ... done 1572s *** strategy = ‘multicore’ ... 1572s [00:52:52.682] plan(): Setting new future strategy stack: 1572s [00:52:52.682] List of future strategies: 1572s [00:52:52.682] 1. multicore: 1572s [00:52:52.682] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1572s [00:52:52.682] - tweaked: FALSE 1572s [00:52:52.682] - call: plan(strategy) 1572s [00:52:52.686] plan(): nbrOfWorkers() = 1 1572s [00:52:52.687] future_lapply() ... 1572s [00:52:52.691] Number of chunks: 1 1572s [00:52:52.692] getGlobalsAndPackagesXApply() ... 1572s [00:52:52.692] - future.globals: TRUE 1572s [00:52:52.693] getGlobalsAndPackages() ... 1572s [00:52:52.693] Searching for globals... 1572s [00:52:52.698] - globals found: [1] ‘FUN’ 1572s [00:52:52.698] Searching for globals ... DONE 1572s [00:52:52.699] Resolving globals: FALSE 1572s [00:52:52.699] The total size of the 1 globals is 848 bytes (848 bytes) 1572s [00:52:52.700] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1572s [00:52:52.700] - globals: [1] ‘FUN’ 1572s [00:52:52.700] 1572s [00:52:52.700] getGlobalsAndPackages() ... DONE 1572s [00:52:52.701] - globals found/used: [n=1] ‘FUN’ 1572s [00:52:52.701] - needed namespaces: [n=0] 1572s [00:52:52.701] Finding globals ... DONE 1572s [00:52:52.701] - use_args: TRUE 1572s [00:52:52.701] - Getting '...' globals ... 1572s [00:52:52.702] resolve() on list ... 1572s [00:52:52.702] recursive: 0 1572s [00:52:52.702] length: 1 1572s [00:52:52.703] elements: ‘...’ 1572s [00:52:52.703] length: 0 (resolved future 1) 1572s [00:52:52.703] resolve() on list ... DONE 1572s [00:52:52.703] - '...' content: [n=0] 1572s [00:52:52.703] List of 1 1572s [00:52:52.703] $ ...: list() 1572s [00:52:52.703] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1572s [00:52:52.703] - attr(*, "where")=List of 1 1572s [00:52:52.703] ..$ ...: 1572s [00:52:52.703] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1572s [00:52:52.703] - attr(*, "resolved")= logi TRUE 1572s [00:52:52.703] - attr(*, "total_size")= num NA 1572s [00:52:52.708] - Getting '...' globals ... DONE 1572s [00:52:52.708] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1572s [00:52:52.709] List of 2 1572s [00:52:52.709] $ ...future.FUN:function (x) 1572s [00:52:52.709] $ ... : list() 1572s [00:52:52.709] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1572s [00:52:52.709] - attr(*, "where")=List of 2 1572s [00:52:52.709] ..$ ...future.FUN: 1572s [00:52:52.709] ..$ ... : 1572s [00:52:52.709] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1572s [00:52:52.709] - attr(*, "resolved")= logi FALSE 1572s [00:52:52.709] - attr(*, "total_size")= num 848 1572s [00:52:52.716] Packages to be attached in all futures: [n=0] 1572s [00:52:52.716] getGlobalsAndPackagesXApply() ... DONE 1572s [00:52:52.717] Number of futures (= number of chunks): 1 1572s [00:52:52.717] Launching 1 futures (chunks) ... 1572s [00:52:52.717] Chunk #1 of 1 ... 1572s [00:52:52.718] - Finding globals in 'X' for chunk #1 ... 1572s [00:52:52.718] getGlobalsAndPackages() ... 1572s [00:52:52.718] Searching for globals... 1572s [00:52:52.719] 1572s [00:52:52.719] Searching for globals ... DONE 1572s [00:52:52.719] - globals: [0] 1572s [00:52:52.720] getGlobalsAndPackages() ... DONE 1572s [00:52:52.720] + additional globals found: [n=0] 1572s [00:52:52.720] + additional namespaces needed: [n=0] 1572s [00:52:52.720] - Finding globals in 'X' for chunk #1 ... DONE 1572s [00:52:52.721] - seeds: 1572s [00:52:52.721] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1572s [00:52:52.722] getGlobalsAndPackages() ... 1572s [00:52:52.722] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1572s [00:52:52.723] Resolving globals: FALSE 1572s [00:52:52.723] Tweak future expression to call with '...' arguments ... 1572s [00:52:52.723] { 1572s [00:52:52.723] do.call(function(...) { 1572s [00:52:52.723] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1572s [00:52:52.723] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1572s [00:52:52.723] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1572s [00:52:52.723] on.exit(options(oopts), add = TRUE) 1572s [00:52:52.723] } 1572s [00:52:52.723] { 1572s [00:52:52.723] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1572s [00:52:52.723] ...future.X_jj <- ...future.elements_ii[[jj]] 1572s [00:52:52.723] ...future.FUN(...future.X_jj, ...) 1572s [00:52:52.723] }) 1572s [00:52:52.723] } 1572s [00:52:52.723] }, args = future.call.arguments) 1572s [00:52:52.723] } 1572s [00:52:52.724] Tweak future expression to call with '...' arguments ... DONE 1572s [00:52:52.725] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1572s [00:52:52.725] 1572s [00:52:52.725] getGlobalsAndPackages() ... DONE 1572s [00:52:52.726] run() for ‘Future’ ... 1572s [00:52:52.726] - state: ‘created’ 1572s [00:52:52.726] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1572s [00:52:52.731] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1572s [00:52:52.731] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1572s [00:52:52.731] - Field: ‘label’ 1572s [00:52:52.732] - Field: ‘local’ 1572s [00:52:52.732] - Field: ‘owner’ 1572s [00:52:52.732] - Field: ‘envir’ 1572s [00:52:52.732] - Field: ‘packages’ 1572s [00:52:52.732] - Field: ‘gc’ 1572s [00:52:52.733] - Field: ‘conditions’ 1572s [00:52:52.733] - Field: ‘expr’ 1572s [00:52:52.733] - Field: ‘uuid’ 1572s [00:52:52.733] - Field: ‘seed’ 1572s [00:52:52.734] - Field: ‘version’ 1572s [00:52:52.734] - Field: ‘result’ 1572s [00:52:52.734] - Field: ‘asynchronous’ 1572s [00:52:52.734] - Field: ‘calls’ 1572s [00:52:52.734] - Field: ‘globals’ 1572s [00:52:52.734] - Field: ‘stdout’ 1572s [00:52:52.735] - Field: ‘earlySignal’ 1572s [00:52:52.735] - Field: ‘lazy’ 1572s [00:52:52.735] - Field: ‘state’ 1572s [00:52:52.735] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1572s [00:52:52.736] - Launch lazy future ... 1572s [00:52:52.736] Packages needed by the future expression (n = 0): 1572s [00:52:52.736] Packages needed by future strategies (n = 0): 1572s [00:52:52.737] { 1572s [00:52:52.737] { 1572s [00:52:52.737] { 1572s [00:52:52.737] ...future.startTime <- base::Sys.time() 1572s [00:52:52.737] { 1572s [00:52:52.737] { 1572s [00:52:52.737] { 1572s [00:52:52.737] base::local({ 1572s [00:52:52.737] has_future <- base::requireNamespace("future", 1572s [00:52:52.737] quietly = TRUE) 1572s [00:52:52.737] if (has_future) { 1572s [00:52:52.737] ns <- base::getNamespace("future") 1572s [00:52:52.737] version <- ns[[".package"]][["version"]] 1572s [00:52:52.737] if (is.null(version)) 1572s [00:52:52.737] version <- utils::packageVersion("future") 1572s [00:52:52.737] } 1572s [00:52:52.737] else { 1572s [00:52:52.737] version <- NULL 1572s [00:52:52.737] } 1572s [00:52:52.737] if (!has_future || version < "1.8.0") { 1572s [00:52:52.737] info <- base::c(r_version = base::gsub("R version ", 1572s [00:52:52.737] "", base::R.version$version.string), 1572s [00:52:52.737] platform = base::sprintf("%s (%s-bit)", 1572s [00:52:52.737] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1572s [00:52:52.737] os = base::paste(base::Sys.info()[base::c("sysname", 1572s [00:52:52.737] "release", "version")], collapse = " "), 1572s [00:52:52.737] hostname = base::Sys.info()[["nodename"]]) 1572s [00:52:52.737] info <- base::sprintf("%s: %s", base::names(info), 1572s [00:52:52.737] info) 1572s [00:52:52.737] info <- base::paste(info, collapse = "; ") 1572s [00:52:52.737] if (!has_future) { 1572s [00:52:52.737] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1572s [00:52:52.737] info) 1572s [00:52:52.737] } 1572s [00:52:52.737] else { 1572s [00:52:52.737] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1572s [00:52:52.737] info, version) 1572s [00:52:52.737] } 1572s [00:52:52.737] base::stop(msg) 1572s [00:52:52.737] } 1572s [00:52:52.737] }) 1572s [00:52:52.737] } 1572s [00:52:52.737] options(future.plan = NULL) 1572s [00:52:52.737] Sys.unsetenv("R_FUTURE_PLAN") 1572s [00:52:52.737] future::plan("default", .cleanup = FALSE, .init = FALSE) 1572s [00:52:52.737] } 1572s [00:52:52.737] ...future.workdir <- getwd() 1572s [00:52:52.737] } 1572s [00:52:52.737] ...future.oldOptions <- base::as.list(base::.Options) 1572s [00:52:52.737] ...future.oldEnvVars <- base::Sys.getenv() 1572s [00:52:52.737] } 1572s [00:52:52.737] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1572s [00:52:52.737] future.globals.maxSize = NULL, future.globals.method = NULL, 1572s [00:52:52.737] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1572s [00:52:52.737] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1572s [00:52:52.737] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1572s [00:52:52.737] future.stdout.windows.reencode = NULL, width = 80L) 1572s [00:52:52.737] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1572s [00:52:52.737] base::names(...future.oldOptions)) 1572s [00:52:52.737] } 1572s [00:52:52.737] if (FALSE) { 1572s [00:52:52.737] } 1572s [00:52:52.737] else { 1572s [00:52:52.737] if (TRUE) { 1572s [00:52:52.737] ...future.stdout <- base::rawConnection(base::raw(0L), 1572s [00:52:52.737] open = "w") 1572s [00:52:52.737] } 1572s [00:52:52.737] else { 1572s [00:52:52.737] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1572s [00:52:52.737] windows = "NUL", "/dev/null"), open = "w") 1572s [00:52:52.737] } 1572s [00:52:52.737] base::sink(...future.stdout, type = "output", split = FALSE) 1572s [00:52:52.737] base::on.exit(if (!base::is.null(...future.stdout)) { 1572s [00:52:52.737] base::sink(type = "output", split = FALSE) 1572s [00:52:52.737] base::close(...future.stdout) 1572s [00:52:52.737] }, add = TRUE) 1572s [00:52:52.737] } 1572s [00:52:52.737] ...future.frame <- base::sys.nframe() 1572s [00:52:52.737] ...future.conditions <- base::list() 1572s [00:52:52.737] ...future.rng <- base::globalenv()$.Random.seed 1572s [00:52:52.737] if (FALSE) { 1572s [00:52:52.737] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1572s [00:52:52.737] "...future.value", "...future.globalenv.names", ".Random.seed") 1572s [00:52:52.737] } 1572s [00:52:52.737] ...future.result <- base::tryCatch({ 1572s [00:52:52.737] base::withCallingHandlers({ 1572s [00:52:52.737] ...future.value <- base::withVisible(base::local({ 1572s [00:52:52.737] do.call(function(...) { 1572s [00:52:52.737] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1572s [00:52:52.737] if (!identical(...future.globals.maxSize.org, 1572s [00:52:52.737] ...future.globals.maxSize)) { 1572s [00:52:52.737] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1572s [00:52:52.737] on.exit(options(oopts), add = TRUE) 1572s [00:52:52.737] } 1572s [00:52:52.737] { 1572s [00:52:52.737] lapply(seq_along(...future.elements_ii), 1572s [00:52:52.737] FUN = function(jj) { 1572s [00:52:52.737] ...future.X_jj <- ...future.elements_ii[[jj]] 1572s [00:52:52.737] ...future.FUN(...future.X_jj, ...) 1572s [00:52:52.737] }) 1572s [00:52:52.737] } 1572s [00:52:52.737] }, args = future.call.arguments) 1572s [00:52:52.737] })) 1572s [00:52:52.737] future::FutureResult(value = ...future.value$value, 1572s [00:52:52.737] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1572s [00:52:52.737] ...future.rng), globalenv = if (FALSE) 1572s [00:52:52.737] list(added = base::setdiff(base::names(base::.GlobalEnv), 1572s [00:52:52.737] ...future.globalenv.names)) 1572s [00:52:52.737] else NULL, started = ...future.startTime, version = "1.8") 1572s [00:52:52.737] }, condition = base::local({ 1572s [00:52:52.737] c <- base::c 1572s [00:52:52.737] inherits <- base::inherits 1572s [00:52:52.737] invokeRestart <- base::invokeRestart 1572s [00:52:52.737] length <- base::length 1572s [00:52:52.737] list <- base::list 1572s [00:52:52.737] seq.int <- base::seq.int 1572s [00:52:52.737] signalCondition <- base::signalCondition 1572s [00:52:52.737] sys.calls <- base::sys.calls 1572s [00:52:52.737] `[[` <- base::`[[` 1572s [00:52:52.737] `+` <- base::`+` 1572s [00:52:52.737] `<<-` <- base::`<<-` 1572s [00:52:52.737] sysCalls <- function(calls = sys.calls(), from = 1L) { 1572s [00:52:52.737] calls[seq.int(from = from + 12L, to = length(calls) - 1572s [00:52:52.737] 3L)] 1572s [00:52:52.737] } 1572s [00:52:52.737] function(cond) { 1572s [00:52:52.737] is_error <- inherits(cond, "error") 1572s [00:52:52.737] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1572s [00:52:52.737] NULL) 1572s [00:52:52.737] if (is_error) { 1572s [00:52:52.737] sessionInformation <- function() { 1572s [00:52:52.737] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1572s [00:52:52.737] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1572s [00:52:52.737] search = base::search(), system = base::Sys.info()) 1572s [00:52:52.737] } 1572s [00:52:52.737] ...future.conditions[[length(...future.conditions) + 1572s [00:52:52.737] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1572s [00:52:52.737] cond$call), session = sessionInformation(), 1572s [00:52:52.737] timestamp = base::Sys.time(), signaled = 0L) 1572s [00:52:52.737] signalCondition(cond) 1572s [00:52:52.737] } 1572s [00:52:52.737] else if (!ignore && TRUE && inherits(cond, c("condition", 1572s [00:52:52.737] "immediateCondition"))) { 1572s [00:52:52.737] signal <- TRUE && inherits(cond, "immediateCondition") 1572s [00:52:52.737] ...future.conditions[[length(...future.conditions) + 1572s [00:52:52.737] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1572s [00:52:52.737] if (TRUE && !signal) { 1572s [00:52:52.737] muffleCondition <- function (cond, pattern = "^muffle") 1572s [00:52:52.737] { 1572s [00:52:52.737] inherits <- base::inherits 1572s [00:52:52.737] invokeRestart <- base::invokeRestart 1572s [00:52:52.737] is.null <- base::is.null 1572s [00:52:52.737] muffled <- FALSE 1572s [00:52:52.737] if (inherits(cond, "message")) { 1572s [00:52:52.737] muffled <- grepl(pattern, "muffleMessage") 1572s [00:52:52.737] if (muffled) 1572s [00:52:52.737] invokeRestart("muffleMessage") 1572s [00:52:52.737] } 1572s [00:52:52.737] else if (inherits(cond, "warning")) { 1572s [00:52:52.737] muffled <- grepl(pattern, "muffleWarning") 1572s [00:52:52.737] if (muffled) 1572s [00:52:52.737] invokeRestart("muffleWarning") 1572s [00:52:52.737] } 1572s [00:52:52.737] else if (inherits(cond, "condition")) { 1572s [00:52:52.737] if (!is.null(pattern)) { 1572s [00:52:52.737] computeRestarts <- base::computeRestarts 1572s [00:52:52.737] grepl <- base::grepl 1572s [00:52:52.737] restarts <- computeRestarts(cond) 1572s [00:52:52.737] for (restart in restarts) { 1572s [00:52:52.737] name <- restart$name 1572s [00:52:52.737] if (is.null(name)) 1572s [00:52:52.737] next 1572s [00:52:52.737] if (!grepl(pattern, name)) 1572s [00:52:52.737] next 1572s [00:52:52.737] invokeRestart(restart) 1572s [00:52:52.737] muffled <- TRUE 1572s [00:52:52.737] break 1572s [00:52:52.737] } 1572s [00:52:52.737] } 1572s [00:52:52.737] } 1572s [00:52:52.737] invisible(muffled) 1572s [00:52:52.737] } 1572s [00:52:52.737] muffleCondition(cond, pattern = "^muffle") 1572s [00:52:52.737] } 1572s [00:52:52.737] } 1572s [00:52:52.737] else { 1572s [00:52:52.737] if (TRUE) { 1572s [00:52:52.737] muffleCondition <- function (cond, pattern = "^muffle") 1572s [00:52:52.737] { 1572s [00:52:52.737] inherits <- base::inherits 1572s [00:52:52.737] invokeRestart <- base::invokeRestart 1572s [00:52:52.737] is.null <- base::is.null 1572s [00:52:52.737] muffled <- FALSE 1572s [00:52:52.737] if (inherits(cond, "message")) { 1572s [00:52:52.737] muffled <- grepl(pattern, "muffleMessage") 1572s [00:52:52.737] if (muffled) 1572s [00:52:52.737] invokeRestart("muffleMessage") 1572s [00:52:52.737] } 1572s [00:52:52.737] else if (inherits(cond, "warning")) { 1572s [00:52:52.737] muffled <- grepl(pattern, "muffleWarning") 1572s [00:52:52.737] if (muffled) 1572s [00:52:52.737] invokeRestart("muffleWarning") 1572s [00:52:52.737] } 1572s [00:52:52.737] else if (inherits(cond, "condition")) { 1572s [00:52:52.737] if (!is.null(pattern)) { 1572s [00:52:52.737] computeRestarts <- base::computeRestarts 1572s [00:52:52.737] grepl <- base::grepl 1572s [00:52:52.737] restarts <- computeRestarts(cond) 1572s [00:52:52.737] for (restart in restarts) { 1572s [00:52:52.737] name <- restart$name 1572s [00:52:52.737] if (is.null(name)) 1572s [00:52:52.737] next 1572s [00:52:52.737] if (!grepl(pattern, name)) 1572s [00:52:52.737] next 1572s [00:52:52.737] invokeRestart(restart) 1572s [00:52:52.737] muffled <- TRUE 1572s [00:52:52.737] break 1572s [00:52:52.737] } 1572s [00:52:52.737] } 1572s [00:52:52.737] } 1572s [00:52:52.737] invisible(muffled) 1572s [00:52:52.737] } 1572s [00:52:52.737] muffleCondition(cond, pattern = "^muffle") 1572s [00:52:52.737] } 1572s [00:52:52.737] } 1572s [00:52:52.737] } 1572s [00:52:52.737] })) 1572s [00:52:52.737] }, error = function(ex) { 1572s [00:52:52.737] base::structure(base::list(value = NULL, visible = NULL, 1572s [00:52:52.737] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1572s [00:52:52.737] ...future.rng), started = ...future.startTime, 1572s [00:52:52.737] finished = Sys.time(), session_uuid = NA_character_, 1572s [00:52:52.737] version = "1.8"), class = "FutureResult") 1572s [00:52:52.737] }, finally = { 1572s [00:52:52.737] if (!identical(...future.workdir, getwd())) 1572s [00:52:52.737] setwd(...future.workdir) 1572s [00:52:52.737] { 1572s [00:52:52.737] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1572s [00:52:52.737] ...future.oldOptions$nwarnings <- NULL 1572s [00:52:52.737] } 1572s [00:52:52.737] base::options(...future.oldOptions) 1572s [00:52:52.737] if (.Platform$OS.type == "windows") { 1572s [00:52:52.737] old_names <- names(...future.oldEnvVars) 1572s [00:52:52.737] envs <- base::Sys.getenv() 1572s [00:52:52.737] names <- names(envs) 1572s [00:52:52.737] common <- intersect(names, old_names) 1572s [00:52:52.737] added <- setdiff(names, old_names) 1572s [00:52:52.737] removed <- setdiff(old_names, names) 1572s [00:52:52.737] changed <- common[...future.oldEnvVars[common] != 1572s [00:52:52.737] envs[common]] 1572s [00:52:52.737] NAMES <- toupper(changed) 1572s [00:52:52.737] args <- list() 1572s [00:52:52.737] for (kk in seq_along(NAMES)) { 1572s [00:52:52.737] name <- changed[[kk]] 1572s [00:52:52.737] NAME <- NAMES[[kk]] 1572s [00:52:52.737] if (name != NAME && is.element(NAME, old_names)) 1572s [00:52:52.737] next 1572s [00:52:52.737] args[[name]] <- ...future.oldEnvVars[[name]] 1572s [00:52:52.737] } 1572s [00:52:52.737] NAMES <- toupper(added) 1572s [00:52:52.737] for (kk in seq_along(NAMES)) { 1572s [00:52:52.737] name <- added[[kk]] 1572s [00:52:52.737] NAME <- NAMES[[kk]] 1572s [00:52:52.737] if (name != NAME && is.element(NAME, old_names)) 1572s [00:52:52.737] next 1572s [00:52:52.737] args[[name]] <- "" 1572s [00:52:52.737] } 1572s [00:52:52.737] NAMES <- toupper(removed) 1572s [00:52:52.737] for (kk in seq_along(NAMES)) { 1572s [00:52:52.737] name <- removed[[kk]] 1572s [00:52:52.737] NAME <- NAMES[[kk]] 1572s [00:52:52.737] if (name != NAME && is.element(NAME, old_names)) 1572s [00:52:52.737] next 1572s [00:52:52.737] args[[name]] <- ...future.oldEnvVars[[name]] 1572s [00:52:52.737] } 1572s [00:52:52.737] if (length(args) > 0) 1572s [00:52:52.737] base::do.call(base::Sys.setenv, args = args) 1572s [00:52:52.737] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1572s [00:52:52.737] } 1572s [00:52:52.737] else { 1572s [00:52:52.737] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1572s [00:52:52.737] } 1572s [00:52:52.737] { 1572s [00:52:52.737] if (base::length(...future.futureOptionsAdded) > 1572s [00:52:52.737] 0L) { 1572s [00:52:52.737] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1572s [00:52:52.737] base::names(opts) <- ...future.futureOptionsAdded 1572s [00:52:52.737] base::options(opts) 1572s [00:52:52.737] } 1572s [00:52:52.737] { 1572s [00:52:52.737] { 1572s [00:52:52.737] NULL 1572s [00:52:52.737] RNGkind("Mersenne-Twister") 1572s [00:52:52.737] base::rm(list = ".Random.seed", envir = base::globalenv(), 1572s [00:52:52.737] inherits = FALSE) 1572s [00:52:52.737] } 1572s [00:52:52.737] options(future.plan = NULL) 1572s [00:52:52.737] if (is.na(NA_character_)) 1572s [00:52:52.737] Sys.unsetenv("R_FUTURE_PLAN") 1572s [00:52:52.737] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1572s [00:52:52.737] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1572s [00:52:52.737] envir = parent.frame()) 1572s [00:52:52.737] { 1572s [00:52:52.737] default_workers <- missing(workers) 1572s [00:52:52.737] if (is.function(workers)) 1572s [00:52:52.737] workers <- workers() 1572s [00:52:52.737] workers <- structure(as.integer(workers), 1572s [00:52:52.737] class = class(workers)) 1572s [00:52:52.737] stop_if_not(is.finite(workers), workers >= 1572s [00:52:52.737] 1L) 1572s [00:52:52.737] if ((workers == 1L && !inherits(workers, 1572s [00:52:52.737] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1572s [00:52:52.737] if (default_workers) 1572s [00:52:52.737] supportsMulticore(warn = TRUE) 1572s [00:52:52.737] return(sequential(..., envir = envir)) 1572s [00:52:52.737] } 1572s [00:52:52.737] oopts <- options(mc.cores = workers) 1572s [00:52:52.737] on.exit(options(oopts)) 1572s [00:52:52.737] future <- MulticoreFuture(..., workers = workers, 1572s [00:52:52.737] envir = envir) 1572s [00:52:52.737] if (!future$lazy) 1572s [00:52:52.737] future <- run(future) 1572s [00:52:52.737] invisible(future) 1572s [00:52:52.737] }), .cleanup = FALSE, .init = FALSE) 1572s [00:52:52.737] } 1572s [00:52:52.737] } 1572s [00:52:52.737] } 1572s [00:52:52.737] }) 1572s [00:52:52.737] if (TRUE) { 1572s [00:52:52.737] base::sink(type = "output", split = FALSE) 1572s [00:52:52.737] if (TRUE) { 1572s [00:52:52.737] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1572s [00:52:52.737] } 1572s [00:52:52.737] else { 1572s [00:52:52.737] ...future.result["stdout"] <- base::list(NULL) 1572s [00:52:52.737] } 1572s [00:52:52.737] base::close(...future.stdout) 1572s [00:52:52.737] ...future.stdout <- NULL 1572s [00:52:52.737] } 1572s [00:52:52.737] ...future.result$conditions <- ...future.conditions 1572s [00:52:52.737] ...future.result$finished <- base::Sys.time() 1572s [00:52:52.737] ...future.result 1572s [00:52:52.737] } 1572s [00:52:52.743] assign_globals() ... 1572s [00:52:52.743] List of 5 1572s [00:52:52.743] $ ...future.FUN :function (x) 1572s [00:52:52.743] $ future.call.arguments : list() 1572s [00:52:52.743] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1572s [00:52:52.743] $ ...future.elements_ii :List of 3 1572s [00:52:52.743] ..$ a: num 1 1572s [00:52:52.743] ..$ b: num 2 1572s [00:52:52.743] ..$ c: num 3 1572s [00:52:52.743] $ ...future.seeds_ii : NULL 1572s [00:52:52.743] $ ...future.globals.maxSize: NULL 1572s [00:52:52.743] - attr(*, "where")=List of 5 1572s [00:52:52.743] ..$ ...future.FUN : 1572s [00:52:52.743] ..$ future.call.arguments : 1572s [00:52:52.743] ..$ ...future.elements_ii : 1572s [00:52:52.743] ..$ ...future.seeds_ii : 1572s [00:52:52.743] ..$ ...future.globals.maxSize: 1572s [00:52:52.743] - attr(*, "resolved")= logi FALSE 1572s [00:52:52.743] - attr(*, "total_size")= num 848 1572s [00:52:52.743] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1572s [00:52:52.743] - attr(*, "already-done")= logi TRUE 1572s [00:52:52.760] - copied ‘...future.FUN’ to environment 1572s [00:52:52.760] - copied ‘future.call.arguments’ to environment 1572s [00:52:52.760] - copied ‘...future.elements_ii’ to environment 1572s [00:52:52.760] - copied ‘...future.seeds_ii’ to environment 1572s [00:52:52.761] - copied ‘...future.globals.maxSize’ to environment 1572s [00:52:52.761] assign_globals() ... done 1572s [00:52:52.762] plan(): Setting new future strategy stack: 1572s [00:52:52.762] List of future strategies: 1572s [00:52:52.762] 1. sequential: 1572s [00:52:52.762] - args: function (..., envir = parent.frame()) 1572s [00:52:52.762] - tweaked: FALSE 1572s [00:52:52.762] - call: NULL 1572s [00:52:52.762] plan(): nbrOfWorkers() = 1 1572s [00:52:52.763] plan(): Setting new future strategy stack: 1572s [00:52:52.764] List of future strategies: 1572s [00:52:52.764] 1. multicore: 1572s [00:52:52.764] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1572s [00:52:52.764] - tweaked: FALSE 1572s [00:52:52.764] - call: plan(strategy) 1572s [00:52:52.768] plan(): nbrOfWorkers() = 1 1572s [00:52:52.768] SequentialFuture started (and completed) 1572s [00:52:52.769] - Launch lazy future ... done 1572s [00:52:52.769] run() for ‘SequentialFuture’ ... done 1572s [00:52:52.770] Created future: 1572s [00:52:52.770] SequentialFuture: 1572s [00:52:52.770] Label: ‘future_sapply-1’ 1572s [00:52:52.770] Expression: 1572s [00:52:52.770] { 1572s [00:52:52.770] do.call(function(...) { 1572s [00:52:52.770] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1572s [00:52:52.770] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1572s [00:52:52.770] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1572s [00:52:52.770] on.exit(options(oopts), add = TRUE) 1572s [00:52:52.770] } 1572s [00:52:52.770] { 1572s [00:52:52.770] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1572s [00:52:52.770] ...future.X_jj <- ...future.elements_ii[[jj]] 1572s [00:52:52.770] ...future.FUN(...future.X_jj, ...) 1572s [00:52:52.770] }) 1572s [00:52:52.770] } 1572s [00:52:52.770] }, args = future.call.arguments) 1572s [00:52:52.770] } 1572s [00:52:52.770] Lazy evaluation: FALSE 1572s [00:52:52.770] Asynchronous evaluation: FALSE 1572s [00:52:52.770] Local evaluation: TRUE 1572s [00:52:52.770] Environment: R_GlobalEnv 1572s [00:52:52.770] Capture standard output: TRUE 1572s [00:52:52.770] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1572s [00:52:52.770] Globals: 5 objects totaling 0.99 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1572s [00:52:52.770] Packages: 1572s [00:52:52.770] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1572s [00:52:52.770] Resolved: TRUE 1572s [00:52:52.770] Value: 168 bytes of class ‘list’ 1572s [00:52:52.770] Early signaling: FALSE 1572s [00:52:52.770] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1572s [00:52:52.770] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1572s [00:52:52.772] Chunk #1 of 1 ... DONE 1572s [00:52:52.773] Launching 1 futures (chunks) ... DONE 1572s [00:52:52.773] Resolving 1 futures (chunks) ... 1572s [00:52:52.773] resolve() on list ... 1572s [00:52:52.773] recursive: 0 1572s [00:52:52.773] length: 1 1572s [00:52:52.773] 1572s [00:52:52.774] resolved() for ‘SequentialFuture’ ... 1572s [00:52:52.774] - state: ‘finished’ 1572s [00:52:52.774] - run: TRUE 1572s [00:52:52.774] - result: ‘FutureResult’ 1572s [00:52:52.774] resolved() for ‘SequentialFuture’ ... done 1572s [00:52:52.775] Future #1 1572s [00:52:52.775] signalConditionsASAP(SequentialFuture, pos=1) ... 1572s [00:52:52.775] - nx: 1 1572s [00:52:52.775] - relay: TRUE 1572s [00:52:52.776] - stdout: TRUE 1572s [00:52:52.776] - signal: TRUE 1572s [00:52:52.776] - resignal: FALSE 1572s [00:52:52.776] - force: TRUE 1572s [00:52:52.776] - relayed: [n=1] FALSE 1572s [00:52:52.776] - queued futures: [n=1] FALSE 1572s [00:52:52.776] - until=1 1572s [00:52:52.776] - relaying element #1 1572s [00:52:52.777] - relayed: [n=1] TRUE 1572s [00:52:52.777] - queued futures: [n=1] TRUE 1572s [00:52:52.777] signalConditionsASAP(SequentialFuture, pos=1) ... done 1572s [00:52:52.777] length: 0 (resolved future 1) 1572s [00:52:52.777] Relaying remaining futures 1572s [00:52:52.778] signalConditionsASAP(NULL, pos=0) ... 1572s [00:52:52.778] - nx: 1 1572s [00:52:52.778] - relay: TRUE 1572s [00:52:52.778] - stdout: TRUE 1572s [00:52:52.778] - signal: TRUE 1572s [00:52:52.778] - resignal: FALSE 1572s [00:52:52.778] - force: TRUE 1572s [00:52:52.778] - relayed: [n=1] TRUE 1572s [00:52:52.778] - queued futures: [n=1] TRUE 1572s - flush all 1572s [00:52:52.779] - relayed: [n=1] TRUE 1572s [00:52:52.779] - queued futures: [n=1] TRUE 1572s [00:52:52.779] signalConditionsASAP(NULL, pos=0) ... done 1572s [00:52:52.779] resolve() on list ... DONE 1572s [00:52:52.779] - Number of value chunks collected: 1 1572s [00:52:52.779] Resolving 1 futures (chunks) ... DONE 1572s [00:52:52.779] Reducing values from 1 chunks ... 1572s [00:52:52.780] - Number of values collected after concatenation: 3 1572s [00:52:52.780] - Number of values expected: 3 1572s [00:52:52.780] Reducing values from 1 chunks ... DONE 1572s [00:52:52.780] future_lapply() ... DONE 1572s List of 2 1572s $ y0:List of 3 1572s ..$ a: num 1 1572s ..$ b: num 2 1572s ..$ c: num 3 1572s $ y1:List of 3 1572s ..$ a: num 1 1572s ..$ b: num 2 1572s ..$ c: num 3 1572s List of 2 1572s $ y0:List of 3 1572s ..$ a: num 1 1572s ..$ b: num 2 1572s ..$ c: num 3 1572s $ y2:List of 3 1572s ..$ a: num 1 1572s ..$ b: num 2 1572s ..$ c: num 3 1572s [00:52:52.794] future_lapply() ... 1572s [00:52:52.799] Number of chunks: 1 1572s [00:52:52.799] getGlobalsAndPackagesXApply() ... 1572s [00:52:52.799] - future.globals: TRUE 1572s [00:52:52.800] getGlobalsAndPackages() ... 1572s [00:52:52.800] Searching for globals... 1572s [00:52:52.803] - globals found: [2] ‘FUN’, ‘UseMethod’ 1572s [00:52:52.803] Searching for globals ... DONE 1572s [00:52:52.803] Resolving globals: FALSE 1572s [00:52:52.804] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1572s [00:52:52.804] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1572s [00:52:52.805] - globals: [1] ‘FUN’ 1572s [00:52:52.805] 1572s [00:52:52.805] getGlobalsAndPackages() ... DONE 1572s [00:52:52.805] - globals found/used: [n=1] ‘FUN’ 1572s [00:52:52.806] - needed namespaces: [n=0] 1572s [00:52:52.806] Finding globals ... DONE 1572s [00:52:52.806] - use_args: TRUE 1572s [00:52:52.806] - Getting '...' globals ... 1572s [00:52:52.807] resolve() on list ... 1572s [00:52:52.807] recursive: 0 1572s [00:52:52.807] length: 1 1572s [00:52:52.807] elements: ‘...’ 1572s [00:52:52.807] length: 0 (resolved future 1) 1572s [00:52:52.807] resolve() on list ... DONE 1572s [00:52:52.808] - '...' content: [n=0] 1572s [00:52:52.808] List of 1 1572s [00:52:52.808] $ ...: list() 1572s [00:52:52.808] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1572s [00:52:52.808] - attr(*, "where")=List of 1 1572s [00:52:52.808] ..$ ...: 1572s [00:52:52.808] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1572s [00:52:52.808] - attr(*, "resolved")= logi TRUE 1572s [00:52:52.808] - attr(*, "total_size")= num NA 1572s [00:52:52.813] - Getting '...' globals ... DONE 1572s [00:52:52.814] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1572s [00:52:52.814] List of 2 1572s [00:52:52.814] $ ...future.FUN:function (x, ...) 1572s [00:52:52.814] $ ... : list() 1572s [00:52:52.814] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1572s [00:52:52.814] - attr(*, "where")=List of 2 1572s [00:52:52.814] ..$ ...future.FUN: 1572s [00:52:52.814] ..$ ... : 1572s [00:52:52.814] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1572s [00:52:52.814] - attr(*, "resolved")= logi FALSE 1572s [00:52:52.814] - attr(*, "total_size")= num 1248 1572s [00:52:52.819] Packages to be attached in all futures: [n=0] 1572s [00:52:52.819] getGlobalsAndPackagesXApply() ... DONE 1572s [00:52:52.820] Number of futures (= number of chunks): 1 1572s [00:52:52.820] Launching 1 futures (chunks) ... 1572s [00:52:52.820] Chunk #1 of 1 ... 1572s [00:52:52.820] - Finding globals in 'X' for chunk #1 ... 1572s [00:52:52.820] getGlobalsAndPackages() ... 1572s [00:52:52.820] Searching for globals... 1572s [00:52:52.821] 1572s [00:52:52.821] Searching for globals ... DONE 1572s [00:52:52.821] - globals: [0] 1572s [00:52:52.822] getGlobalsAndPackages() ... DONE 1572s [00:52:52.822] + additional globals found: [n=0] 1572s [00:52:52.822] + additional namespaces needed: [n=0] 1572s [00:52:52.822] - Finding globals in 'X' for chunk #1 ... DONE 1572s [00:52:52.822] - seeds: 1572s [00:52:52.823] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1572s [00:52:52.823] getGlobalsAndPackages() ... 1572s [00:52:52.823] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1572s [00:52:52.823] Resolving globals: FALSE 1572s [00:52:52.823] Tweak future expression to call with '...' arguments ... 1572s [00:52:52.824] { 1572s [00:52:52.824] do.call(function(...) { 1572s [00:52:52.824] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1572s [00:52:52.824] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1572s [00:52:52.824] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1572s [00:52:52.824] on.exit(options(oopts), add = TRUE) 1572s [00:52:52.824] } 1572s [00:52:52.824] { 1572s [00:52:52.824] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1572s [00:52:52.824] ...future.X_jj <- ...future.elements_ii[[jj]] 1572s [00:52:52.824] ...future.FUN(...future.X_jj, ...) 1572s [00:52:52.824] }) 1572s [00:52:52.824] } 1572s [00:52:52.824] }, args = future.call.arguments) 1572s [00:52:52.824] } 1572s [00:52:52.824] Tweak future expression to call with '...' arguments ... DONE 1572s [00:52:52.825] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1572s [00:52:52.825] 1572s [00:52:52.825] getGlobalsAndPackages() ... DONE 1572s [00:52:52.825] run() for ‘Future’ ... 1572s [00:52:52.826] - state: ‘created’ 1572s [00:52:52.826] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1572s [00:52:52.830] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1572s [00:52:52.831] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1572s [00:52:52.831] - Field: ‘label’ 1572s [00:52:52.831] - Field: ‘local’ 1572s [00:52:52.832] - Field: ‘owner’ 1572s [00:52:52.832] - Field: ‘envir’ 1572s [00:52:52.833] - Field: ‘packages’ 1572s [00:52:52.834] - Field: ‘gc’ 1572s [00:52:52.834] - Field: ‘conditions’ 1572s [00:52:52.834] - Field: ‘expr’ 1572s [00:52:52.834] - Field: ‘uuid’ 1572s [00:52:52.834] - Field: ‘seed’ 1572s [00:52:52.834] - Field: ‘version’ 1572s [00:52:52.835] - Field: ‘result’ 1572s [00:52:52.835] - Field: ‘asynchronous’ 1572s [00:52:52.835] - Field: ‘calls’ 1572s [00:52:52.835] - Field: ‘globals’ 1572s [00:52:52.835] - Field: ‘stdout’ 1572s [00:52:52.839] - Field: ‘earlySignal’ 1572s [00:52:52.840] - Field: ‘lazy’ 1572s [00:52:52.840] - Field: ‘state’ 1572s [00:52:52.841] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1572s [00:52:52.841] - Launch lazy future ... 1572s [00:52:52.842] Packages needed by the future expression (n = 0): 1572s [00:52:52.842] Packages needed by future strategies (n = 0): 1572s [00:52:52.843] { 1572s [00:52:52.843] { 1572s [00:52:52.843] { 1572s [00:52:52.843] ...future.startTime <- base::Sys.time() 1572s [00:52:52.843] { 1572s [00:52:52.843] { 1572s [00:52:52.843] { 1572s [00:52:52.843] base::local({ 1572s [00:52:52.843] has_future <- base::requireNamespace("future", 1572s [00:52:52.843] quietly = TRUE) 1572s [00:52:52.843] if (has_future) { 1572s [00:52:52.843] ns <- base::getNamespace("future") 1572s [00:52:52.843] version <- ns[[".package"]][["version"]] 1572s [00:52:52.843] if (is.null(version)) 1572s [00:52:52.843] version <- utils::packageVersion("future") 1572s [00:52:52.843] } 1572s [00:52:52.843] else { 1572s [00:52:52.843] version <- NULL 1572s [00:52:52.843] } 1572s [00:52:52.843] if (!has_future || version < "1.8.0") { 1572s [00:52:52.843] info <- base::c(r_version = base::gsub("R version ", 1572s [00:52:52.843] "", base::R.version$version.string), 1572s [00:52:52.843] platform = base::sprintf("%s (%s-bit)", 1572s [00:52:52.843] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1572s [00:52:52.843] os = base::paste(base::Sys.info()[base::c("sysname", 1572s [00:52:52.843] "release", "version")], collapse = " "), 1572s [00:52:52.843] hostname = base::Sys.info()[["nodename"]]) 1572s [00:52:52.843] info <- base::sprintf("%s: %s", base::names(info), 1572s [00:52:52.843] info) 1572s [00:52:52.843] info <- base::paste(info, collapse = "; ") 1572s [00:52:52.843] if (!has_future) { 1572s [00:52:52.843] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1572s [00:52:52.843] info) 1572s [00:52:52.843] } 1572s [00:52:52.843] else { 1572s [00:52:52.843] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1572s [00:52:52.843] info, version) 1572s [00:52:52.843] } 1572s [00:52:52.843] base::stop(msg) 1572s [00:52:52.843] } 1572s [00:52:52.843] }) 1572s [00:52:52.843] } 1572s [00:52:52.843] options(future.plan = NULL) 1572s [00:52:52.843] Sys.unsetenv("R_FUTURE_PLAN") 1572s [00:52:52.843] future::plan("default", .cleanup = FALSE, .init = FALSE) 1572s [00:52:52.843] } 1572s [00:52:52.843] ...future.workdir <- getwd() 1572s [00:52:52.843] } 1572s [00:52:52.843] ...future.oldOptions <- base::as.list(base::.Options) 1572s [00:52:52.843] ...future.oldEnvVars <- base::Sys.getenv() 1572s [00:52:52.843] } 1572s [00:52:52.843] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1572s [00:52:52.843] future.globals.maxSize = NULL, future.globals.method = NULL, 1572s [00:52:52.843] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1572s [00:52:52.843] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1572s [00:52:52.843] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1572s [00:52:52.843] future.stdout.windows.reencode = NULL, width = 80L) 1572s [00:52:52.843] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1572s [00:52:52.843] base::names(...future.oldOptions)) 1572s [00:52:52.843] } 1572s [00:52:52.843] if (FALSE) { 1572s [00:52:52.843] } 1572s [00:52:52.843] else { 1572s [00:52:52.843] if (TRUE) { 1572s [00:52:52.843] ...future.stdout <- base::rawConnection(base::raw(0L), 1572s [00:52:52.843] open = "w") 1572s [00:52:52.843] } 1572s [00:52:52.843] else { 1572s [00:52:52.843] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1572s [00:52:52.843] windows = "NUL", "/dev/null"), open = "w") 1572s [00:52:52.843] } 1572s [00:52:52.843] base::sink(...future.stdout, type = "output", split = FALSE) 1572s [00:52:52.843] base::on.exit(if (!base::is.null(...future.stdout)) { 1572s [00:52:52.843] base::sink(type = "output", split = FALSE) 1572s [00:52:52.843] base::close(...future.stdout) 1572s [00:52:52.843] }, add = TRUE) 1572s [00:52:52.843] } 1572s [00:52:52.843] ...future.frame <- base::sys.nframe() 1572s [00:52:52.843] ...future.conditions <- base::list() 1572s [00:52:52.843] ...future.rng <- base::globalenv()$.Random.seed 1572s [00:52:52.843] if (FALSE) { 1572s [00:52:52.843] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1572s [00:52:52.843] "...future.value", "...future.globalenv.names", ".Random.seed") 1572s [00:52:52.843] } 1572s [00:52:52.843] ...future.result <- base::tryCatch({ 1572s [00:52:52.843] base::withCallingHandlers({ 1572s [00:52:52.843] ...future.value <- base::withVisible(base::local({ 1572s [00:52:52.843] do.call(function(...) { 1572s [00:52:52.843] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1572s [00:52:52.843] if (!identical(...future.globals.maxSize.org, 1572s [00:52:52.843] ...future.globals.maxSize)) { 1572s [00:52:52.843] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1572s [00:52:52.843] on.exit(options(oopts), add = TRUE) 1572s [00:52:52.843] } 1572s [00:52:52.843] { 1572s [00:52:52.843] lapply(seq_along(...future.elements_ii), 1572s [00:52:52.843] FUN = function(jj) { 1572s [00:52:52.843] ...future.X_jj <- ...future.elements_ii[[jj]] 1572s [00:52:52.843] ...future.FUN(...future.X_jj, ...) 1572s [00:52:52.843] }) 1572s [00:52:52.843] } 1572s [00:52:52.843] }, args = future.call.arguments) 1572s [00:52:52.843] })) 1572s [00:52:52.843] future::FutureResult(value = ...future.value$value, 1572s [00:52:52.843] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1572s [00:52:52.843] ...future.rng), globalenv = if (FALSE) 1572s [00:52:52.843] list(added = base::setdiff(base::names(base::.GlobalEnv), 1572s [00:52:52.843] ...future.globalenv.names)) 1572s [00:52:52.843] else NULL, started = ...future.startTime, version = "1.8") 1572s [00:52:52.843] }, condition = base::local({ 1572s [00:52:52.843] c <- base::c 1572s [00:52:52.843] inherits <- base::inherits 1572s [00:52:52.843] invokeRestart <- base::invokeRestart 1572s [00:52:52.843] length <- base::length 1572s [00:52:52.843] list <- base::list 1572s [00:52:52.843] seq.int <- base::seq.int 1572s [00:52:52.843] signalCondition <- base::signalCondition 1572s [00:52:52.843] sys.calls <- base::sys.calls 1572s [00:52:52.843] `[[` <- base::`[[` 1572s [00:52:52.843] `+` <- base::`+` 1572s [00:52:52.843] `<<-` <- base::`<<-` 1572s [00:52:52.843] sysCalls <- function(calls = sys.calls(), from = 1L) { 1572s [00:52:52.843] calls[seq.int(from = from + 12L, to = length(calls) - 1572s [00:52:52.843] 3L)] 1572s [00:52:52.843] } 1572s [00:52:52.843] function(cond) { 1572s [00:52:52.843] is_error <- inherits(cond, "error") 1572s [00:52:52.843] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1572s [00:52:52.843] NULL) 1572s [00:52:52.843] if (is_error) { 1572s [00:52:52.843] sessionInformation <- function() { 1572s [00:52:52.843] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1572s [00:52:52.843] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1572s [00:52:52.843] search = base::search(), system = base::Sys.info()) 1572s [00:52:52.843] } 1572s [00:52:52.843] ...future.conditions[[length(...future.conditions) + 1572s [00:52:52.843] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1572s [00:52:52.843] cond$call), session = sessionInformation(), 1572s [00:52:52.843] timestamp = base::Sys.time(), signaled = 0L) 1572s [00:52:52.843] signalCondition(cond) 1572s [00:52:52.843] } 1572s [00:52:52.843] else if (!ignore && TRUE && inherits(cond, c("condition", 1572s [00:52:52.843] "immediateCondition"))) { 1572s [00:52:52.843] signal <- TRUE && inherits(cond, "immediateCondition") 1572s [00:52:52.843] ...future.conditions[[length(...future.conditions) + 1572s [00:52:52.843] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1572s [00:52:52.843] if (TRUE && !signal) { 1572s [00:52:52.843] muffleCondition <- function (cond, pattern = "^muffle") 1572s [00:52:52.843] { 1572s [00:52:52.843] inherits <- base::inherits 1572s [00:52:52.843] invokeRestart <- base::invokeRestart 1572s [00:52:52.843] is.null <- base::is.null 1572s [00:52:52.843] muffled <- FALSE 1572s [00:52:52.843] if (inherits(cond, "message")) { 1572s [00:52:52.843] muffled <- grepl(pattern, "muffleMessage") 1572s [00:52:52.843] if (muffled) 1572s [00:52:52.843] invokeRestart("muffleMessage") 1572s [00:52:52.843] } 1572s [00:52:52.843] else if (inherits(cond, "warning")) { 1572s [00:52:52.843] muffled <- grepl(pattern, "muffleWarning") 1572s [00:52:52.843] if (muffled) 1572s [00:52:52.843] invokeRestart("muffleWarning") 1572s [00:52:52.843] } 1572s [00:52:52.843] else if (inherits(cond, "condition")) { 1572s [00:52:52.843] if (!is.null(pattern)) { 1572s [00:52:52.843] computeRestarts <- base::computeRestarts 1572s [00:52:52.843] grepl <- base::grepl 1572s [00:52:52.843] restarts <- computeRestarts(cond) 1572s [00:52:52.843] for (restart in restarts) { 1572s [00:52:52.843] name <- restart$name 1572s [00:52:52.843] if (is.null(name)) 1572s [00:52:52.843] next 1572s [00:52:52.843] if (!grepl(pattern, name)) 1572s [00:52:52.843] next 1572s [00:52:52.843] invokeRestart(restart) 1572s [00:52:52.843] muffled <- TRUE 1572s [00:52:52.843] break 1572s [00:52:52.843] } 1572s [00:52:52.843] } 1572s [00:52:52.843] } 1572s [00:52:52.843] invisible(muffled) 1572s [00:52:52.843] } 1572s [00:52:52.843] muffleCondition(cond, pattern = "^muffle") 1572s [00:52:52.843] } 1572s [00:52:52.843] } 1572s [00:52:52.843] else { 1572s [00:52:52.843] if (TRUE) { 1572s [00:52:52.843] muffleCondition <- function (cond, pattern = "^muffle") 1572s [00:52:52.843] { 1572s [00:52:52.843] inherits <- base::inherits 1572s [00:52:52.843] invokeRestart <- base::invokeRestart 1572s [00:52:52.843] is.null <- base::is.null 1572s [00:52:52.843] muffled <- FALSE 1572s [00:52:52.843] if (inherits(cond, "message")) { 1572s [00:52:52.843] muffled <- grepl(pattern, "muffleMessage") 1572s [00:52:52.843] if (muffled) 1572s [00:52:52.843] invokeRestart("muffleMessage") 1572s [00:52:52.843] } 1572s [00:52:52.843] else if (inherits(cond, "warning")) { 1572s [00:52:52.843] muffled <- grepl(pattern, "muffleWarning") 1572s [00:52:52.843] if (muffled) 1572s [00:52:52.843] invokeRestart("muffleWarning") 1572s [00:52:52.843] } 1572s [00:52:52.843] else if (inherits(cond, "condition")) { 1572s [00:52:52.843] if (!is.null(pattern)) { 1572s [00:52:52.843] computeRestarts <- base::computeRestarts 1572s [00:52:52.843] grepl <- base::grepl 1572s [00:52:52.843] restarts <- computeRestarts(cond) 1572s [00:52:52.843] for (restart in restarts) { 1572s [00:52:52.843] name <- restart$name 1572s [00:52:52.843] if (is.null(name)) 1572s [00:52:52.843] next 1572s [00:52:52.843] if (!grepl(pattern, name)) 1572s [00:52:52.843] next 1572s [00:52:52.843] invokeRestart(restart) 1572s [00:52:52.843] muffled <- TRUE 1572s [00:52:52.843] break 1572s [00:52:52.843] } 1572s [00:52:52.843] } 1572s [00:52:52.843] } 1572s [00:52:52.843] invisible(muffled) 1572s [00:52:52.843] } 1572s [00:52:52.843] muffleCondition(cond, pattern = "^muffle") 1572s [00:52:52.843] } 1572s [00:52:52.843] } 1572s [00:52:52.843] } 1572s [00:52:52.843] })) 1572s [00:52:52.843] }, error = function(ex) { 1572s [00:52:52.843] base::structure(base::list(value = NULL, visible = NULL, 1572s [00:52:52.843] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1572s [00:52:52.843] ...future.rng), started = ...future.startTime, 1572s [00:52:52.843] finished = Sys.time(), session_uuid = NA_character_, 1572s [00:52:52.843] version = "1.8"), class = "FutureResult") 1572s [00:52:52.843] }, finally = { 1572s [00:52:52.843] if (!identical(...future.workdir, getwd())) 1572s [00:52:52.843] setwd(...future.workdir) 1572s [00:52:52.843] { 1572s [00:52:52.843] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1572s [00:52:52.843] ...future.oldOptions$nwarnings <- NULL 1572s [00:52:52.843] } 1572s [00:52:52.843] base::options(...future.oldOptions) 1572s [00:52:52.843] if (.Platform$OS.type == "windows") { 1572s [00:52:52.843] old_names <- names(...future.oldEnvVars) 1572s [00:52:52.843] envs <- base::Sys.getenv() 1572s [00:52:52.843] names <- names(envs) 1572s [00:52:52.843] common <- intersect(names, old_names) 1572s [00:52:52.843] added <- setdiff(names, old_names) 1572s [00:52:52.843] removed <- setdiff(old_names, names) 1572s [00:52:52.843] changed <- common[...future.oldEnvVars[common] != 1572s [00:52:52.843] envs[common]] 1572s [00:52:52.843] NAMES <- toupper(changed) 1572s [00:52:52.843] args <- list() 1572s [00:52:52.843] for (kk in seq_along(NAMES)) { 1572s [00:52:52.843] name <- changed[[kk]] 1572s [00:52:52.843] NAME <- NAMES[[kk]] 1572s [00:52:52.843] if (name != NAME && is.element(NAME, old_names)) 1572s [00:52:52.843] next 1572s [00:52:52.843] args[[name]] <- ...future.oldEnvVars[[name]] 1572s [00:52:52.843] } 1572s [00:52:52.843] NAMES <- toupper(added) 1572s [00:52:52.843] for (kk in seq_along(NAMES)) { 1572s [00:52:52.843] name <- added[[kk]] 1572s [00:52:52.843] NAME <- NAMES[[kk]] 1572s [00:52:52.843] if (name != NAME && is.element(NAME, old_names)) 1572s [00:52:52.843] next 1572s [00:52:52.843] args[[name]] <- "" 1572s [00:52:52.843] } 1572s [00:52:52.843] NAMES <- toupper(removed) 1572s [00:52:52.843] for (kk in seq_along(NAMES)) { 1572s [00:52:52.843] name <- removed[[kk]] 1572s [00:52:52.843] NAME <- NAMES[[kk]] 1572s [00:52:52.843] if (name != NAME && is.element(NAME, old_names)) 1572s [00:52:52.843] next 1572s [00:52:52.843] args[[name]] <- ...future.oldEnvVars[[name]] 1572s [00:52:52.843] } 1572s [00:52:52.843] if (length(args) > 0) 1572s [00:52:52.843] base::do.call(base::Sys.setenv, args = args) 1572s [00:52:52.843] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1572s [00:52:52.843] } 1572s [00:52:52.843] else { 1572s [00:52:52.843] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1572s [00:52:52.843] } 1572s [00:52:52.843] { 1572s [00:52:52.843] if (base::length(...future.futureOptionsAdded) > 1572s [00:52:52.843] 0L) { 1572s [00:52:52.843] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1572s [00:52:52.843] base::names(opts) <- ...future.futureOptionsAdded 1572s [00:52:52.843] base::options(opts) 1572s [00:52:52.843] } 1572s [00:52:52.843] { 1572s [00:52:52.843] { 1572s [00:52:52.843] NULL 1572s [00:52:52.843] RNGkind("Mersenne-Twister") 1572s [00:52:52.843] base::rm(list = ".Random.seed", envir = base::globalenv(), 1572s [00:52:52.843] inherits = FALSE) 1572s [00:52:52.843] } 1572s [00:52:52.843] options(future.plan = NULL) 1572s [00:52:52.843] if (is.na(NA_character_)) 1572s [00:52:52.843] Sys.unsetenv("R_FUTURE_PLAN") 1572s [00:52:52.843] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1572s [00:52:52.843] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1572s [00:52:52.843] envir = parent.frame()) 1572s [00:52:52.843] { 1572s [00:52:52.843] default_workers <- missing(workers) 1572s [00:52:52.843] if (is.function(workers)) 1572s [00:52:52.843] workers <- workers() 1572s [00:52:52.843] workers <- structure(as.integer(workers), 1572s [00:52:52.843] class = class(workers)) 1572s [00:52:52.843] stop_if_not(is.finite(workers), workers >= 1572s [00:52:52.843] 1L) 1572s [00:52:52.843] if ((workers == 1L && !inherits(workers, 1572s [00:52:52.843] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1572s [00:52:52.843] if (default_workers) 1572s [00:52:52.843] supportsMulticore(warn = TRUE) 1572s [00:52:52.843] return(sequential(..., envir = envir)) 1572s [00:52:52.843] } 1572s [00:52:52.843] oopts <- options(mc.cores = workers) 1572s [00:52:52.843] on.exit(options(oopts)) 1572s [00:52:52.843] future <- MulticoreFuture(..., workers = workers, 1572s [00:52:52.843] envir = envir) 1572s [00:52:52.843] if (!future$lazy) 1572s [00:52:52.843] future <- run(future) 1572s [00:52:52.843] invisible(future) 1572s [00:52:52.843] }), .cleanup = FALSE, .init = FALSE) 1572s [00:52:52.843] } 1572s [00:52:52.843] } 1572s [00:52:52.843] } 1572s [00:52:52.843] }) 1572s [00:52:52.843] if (TRUE) { 1572s [00:52:52.843] base::sink(type = "output", split = FALSE) 1572s [00:52:52.843] if (TRUE) { 1572s [00:52:52.843] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1572s [00:52:52.843] } 1572s [00:52:52.843] else { 1572s [00:52:52.843] ...future.result["stdout"] <- base::list(NULL) 1572s [00:52:52.843] } 1572s [00:52:52.843] base::close(...future.stdout) 1572s [00:52:52.843] ...future.stdout <- NULL 1572s [00:52:52.843] } 1572s [00:52:52.843] ...future.result$conditions <- ...future.conditions 1572s [00:52:52.843] ...future.result$finished <- base::Sys.time() 1572s [00:52:52.843] ...future.result 1572s [00:52:52.843] } 1572s [00:52:52.847] assign_globals() ... 1572s [00:52:52.847] List of 5 1572s [00:52:52.847] $ ...future.FUN :function (x, ...) 1572s [00:52:52.847] $ future.call.arguments : list() 1572s [00:52:52.847] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1572s [00:52:52.847] $ ...future.elements_ii :List of 3 1572s [00:52:52.847] ..$ a: num 1 1572s [00:52:52.847] ..$ b: num 2 1572s [00:52:52.847] ..$ c: num 3 1572s [00:52:52.847] $ ...future.seeds_ii : NULL 1572s [00:52:52.847] $ ...future.globals.maxSize: NULL 1572s [00:52:52.847] - attr(*, "where")=List of 5 1572s [00:52:52.847] ..$ ...future.FUN : 1572s [00:52:52.847] ..$ future.call.arguments : 1572s [00:52:52.847] ..$ ...future.elements_ii : 1572s [00:52:52.847] ..$ ...future.seeds_ii : 1572s [00:52:52.847] ..$ ...future.globals.maxSize: 1572s [00:52:52.847] - attr(*, "resolved")= logi FALSE 1572s [00:52:52.847] - attr(*, "total_size")= num 1248 1572s [00:52:52.847] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1572s [00:52:52.847] - attr(*, "already-done")= logi TRUE 1572s [00:52:52.857] - copied ‘...future.FUN’ to environment 1572s [00:52:52.857] - copied ‘future.call.arguments’ to environment 1572s [00:52:52.857] - copied ‘...future.elements_ii’ to environment 1572s [00:52:52.858] - copied ‘...future.seeds_ii’ to environment 1572s [00:52:52.858] - copied ‘...future.globals.maxSize’ to environment 1572s [00:52:52.858] assign_globals() ... done 1572s [00:52:52.858] plan(): Setting new future strategy stack: 1572s [00:52:52.859] List of future strategies: 1572s [00:52:52.859] 1. sequential: 1572s [00:52:52.859] - args: function (..., envir = parent.frame()) 1572s [00:52:52.859] - tweaked: FALSE 1572s [00:52:52.859] - call: NULL 1572s [00:52:52.859] plan(): nbrOfWorkers() = 1 1572s [00:52:52.861] plan(): Setting new future strategy stack: 1572s [00:52:52.861] List of future strategies: 1572s [00:52:52.861] 1. multicore: 1572s [00:52:52.861] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1572s [00:52:52.861] - tweaked: FALSE 1572s [00:52:52.861] - call: plan(strategy) 1572s [00:52:52.869] plan(): nbrOfWorkers() = 1 1572s [00:52:52.869] SequentialFuture started (and completed) 1572s [00:52:52.870] - Launch lazy future ... done 1572s [00:52:52.870] run() for ‘SequentialFuture’ ... done 1572s [00:52:52.870] Created future: 1572s [00:52:52.870] SequentialFuture: 1572s [00:52:52.870] Label: ‘future_sapply-1’ 1572s [00:52:52.870] Expression: 1572s [00:52:52.870] { 1572s [00:52:52.870] do.call(function(...) { 1572s [00:52:52.870] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1572s [00:52:52.870] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1572s [00:52:52.870] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1572s [00:52:52.870] on.exit(options(oopts), add = TRUE) 1572s [00:52:52.870] } 1572s [00:52:52.870] { 1572s [00:52:52.870] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1572s [00:52:52.870] ...future.X_jj <- ...future.elements_ii[[jj]] 1572s [00:52:52.870] ...future.FUN(...future.X_jj, ...) 1572s [00:52:52.870] }) 1572s [00:52:52.870] } 1572s [00:52:52.870] }, args = future.call.arguments) 1572s [00:52:52.870] } 1572s [00:52:52.870] Lazy evaluation: FALSE 1572s [00:52:52.870] Asynchronous evaluation: FALSE 1572s [00:52:52.870] Local evaluation: TRUE 1572s [00:52:52.870] Environment: R_GlobalEnv 1572s [00:52:52.870] Capture standard output: TRUE 1572s [00:52:52.870] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1572s [00:52:52.870] Globals: 5 objects totaling 1.38 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1572s [00:52:52.870] Packages: 1572s [00:52:52.870] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1572s [00:52:52.870] Resolved: TRUE 1572s [00:52:52.870] Value: 672 bytes of class ‘list’ 1572s [00:52:52.870] Early signaling: FALSE 1572s [00:52:52.870] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1572s [00:52:52.870] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1572s [00:52:52.872] Chunk #1 of 1 ... DONE 1572s [00:52:52.872] Launching 1 futures (chunks) ... DONE 1572s [00:52:52.873] Resolving 1 futures (chunks) ... 1572s [00:52:52.873] resolve() on list ... 1572s [00:52:52.873] recursive: 0 1572s [00:52:52.873] length: 1 1572s [00:52:52.873] 1572s [00:52:52.874] resolved() for ‘SequentialFuture’ ... 1572s [00:52:52.874] - state: ‘finished’ 1572s [00:52:52.874] - run: TRUE 1572s [00:52:52.874] - result: ‘FutureResult’ 1572s [00:52:52.874] resolved() for ‘SequentialFuture’ ... done 1572s [00:52:52.874] Future #1 1572s [00:52:52.875] signalConditionsASAP(SequentialFuture, pos=1) ... 1572s [00:52:52.875] - nx: 1 1572s [00:52:52.875] - relay: TRUE 1572s [00:52:52.875] - stdout: TRUE 1572s [00:52:52.875] - signal: TRUE 1572s [00:52:52.875] - resignal: FALSE 1572s [00:52:52.875] - force: TRUE 1572s [00:52:52.876] - relayed: [n=1] FALSE 1572s [00:52:52.876] - queued futures: [n=1] FALSE 1572s [00:52:52.876] - until=1 1572s [00:52:52.876] - relaying element #1 1572s [00:52:52.876] - relayed: [n=1] TRUE 1572s [00:52:52.876] - queued futures: [n=1] TRUE 1572s [00:52:52.877] signalConditionsASAP(SequentialFuture, pos=1) ... done 1572s [00:52:52.877] length: 0 (resolved future 1) 1572s [00:52:52.877] Relaying remaining futures 1572s [00:52:52.877] signalConditionsASAP(NULL, pos=0) ... 1572s [00:52:52.877] - nx: 1 1572s [00:52:52.877] - relay: TRUE 1572s [00:52:52.878] - stdout: TRUE 1572s [00:52:52.878] - signal: TRUE 1572s [00:52:52.878] - resignal: FALSE 1572s [00:52:52.878] - force: TRUE 1572s [00:52:52.878] - relayed: [n=1] TRUE 1572s [00:52:52.878] - queued futures: [n=1] TRUE 1572s - flush all 1572s [00:52:52.879] - relayed: [n=1] TRUE 1572s [00:52:52.879] - queued futures: [n=1] TRUE 1572s [00:52:52.879] signalConditionsASAP(NULL, pos=0) ... done 1572s [00:52:52.879] resolve() on list ... DONE 1572s [00:52:52.879] - Number of value chunks collected: 1 1572s [00:52:52.879] Resolving 1 futures (chunks) ... DONE 1572s [00:52:52.880] Reducing values from 1 chunks ... 1572s [00:52:52.880] - Number of values collected after concatenation: 3 1572s [00:52:52.880] - Number of values expected: 3 1572s [00:52:52.880] Reducing values from 1 chunks ... DONE 1572s [00:52:52.880] future_lapply() ... DONE 1572s List of 2 1572s $ y0:List of 3 1572s ..$ a: num [1, 1] 1 1572s ..$ b: num [1, 1] 2 1572s ..$ c: num [1, 1] 3 1572s $ y1:List of 3 1572s ..$ a: num [1, 1] 1 1572s ..$ b: num [1, 1] 2 1572s ..$ c: num [1, 1] 3 1572s List of 2 1572s $ y0:List of 3 1572s ..$ a: num [1, 1] 1 1572s ..$ b: num [1, 1] 2 1572s ..$ c: num [1, 1] 3 1572s $ y2:List of 3 1572s ..$ a: num [1, 1] 1 1572s ..$ b: num [1, 1] 2 1572s ..$ c: num [1, 1] 3 1572s [00:52:52.894] future_lapply() ... 1572s [00:52:52.898] Number of chunks: 1 1572s [00:52:52.898] getGlobalsAndPackagesXApply() ... 1572s [00:52:52.898] - future.globals: TRUE 1572s [00:52:52.899] getGlobalsAndPackages() ... 1572s [00:52:52.899] Searching for globals... 1572s [00:52:52.901] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1572s [00:52:52.901] Searching for globals ... DONE 1572s [00:52:52.902] Resolving globals: FALSE 1572s [00:52:52.903] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1572s [00:52:52.903] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1572s [00:52:52.904] - globals: [1] ‘FUN’ 1572s [00:52:52.904] 1572s [00:52:52.904] getGlobalsAndPackages() ... DONE 1572s [00:52:52.904] - globals found/used: [n=1] ‘FUN’ 1572s [00:52:52.904] - needed namespaces: [n=0] 1572s [00:52:52.905] Finding globals ... DONE 1572s [00:52:52.905] - use_args: TRUE 1572s [00:52:52.905] - Getting '...' globals ... 1572s [00:52:52.906] resolve() on list ... 1572s [00:52:52.906] recursive: 0 1572s [00:52:52.906] length: 1 1572s [00:52:52.906] elements: ‘...’ 1572s [00:52:52.907] length: 0 (resolved future 1) 1572s [00:52:52.907] resolve() on list ... DONE 1572s [00:52:52.907] - '...' content: [n=0] 1572s [00:52:52.907] List of 1 1572s [00:52:52.907] $ ...: list() 1572s [00:52:52.907] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1572s [00:52:52.907] - attr(*, "where")=List of 1 1572s [00:52:52.907] ..$ ...: 1572s [00:52:52.907] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1572s [00:52:52.907] - attr(*, "resolved")= logi TRUE 1572s [00:52:52.907] - attr(*, "total_size")= num NA 1572s [00:52:52.911] - Getting '...' globals ... DONE 1572s [00:52:52.912] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1572s [00:52:52.912] List of 2 1572s [00:52:52.912] $ ...future.FUN:function (x, y = 2 * 1:5) 1572s [00:52:52.912] $ ... : list() 1572s [00:52:52.912] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1572s [00:52:52.912] - attr(*, "where")=List of 2 1572s [00:52:52.912] ..$ ...future.FUN: 1572s [00:52:52.912] ..$ ... : 1572s [00:52:52.912] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1572s [00:52:52.912] - attr(*, "resolved")= logi FALSE 1572s [00:52:52.912] - attr(*, "total_size")= num 4728 1572s [00:52:52.916] Packages to be attached in all futures: [n=0] 1572s [00:52:52.916] getGlobalsAndPackagesXApply() ... DONE 1572s [00:52:52.917] Number of futures (= number of chunks): 1 1572s [00:52:52.917] Launching 1 futures (chunks) ... 1572s [00:52:52.917] Chunk #1 of 1 ... 1572s [00:52:52.917] - Finding globals in 'X' for chunk #1 ... 1572s [00:52:52.918] getGlobalsAndPackages() ... 1572s [00:52:52.918] Searching for globals... 1572s [00:52:52.918] 1572s [00:52:52.918] Searching for globals ... DONE 1572s [00:52:52.919] - globals: [0] 1572s [00:52:52.919] getGlobalsAndPackages() ... DONE 1572s [00:52:52.919] + additional globals found: [n=0] 1572s [00:52:52.922] + additional namespaces needed: [n=0] 1572s [00:52:52.923] - Finding globals in 'X' for chunk #1 ... DONE 1572s [00:52:52.923] - seeds: 1572s [00:52:52.923] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1572s [00:52:52.924] getGlobalsAndPackages() ... 1572s [00:52:52.924] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1572s [00:52:52.924] Resolving globals: FALSE 1572s [00:52:52.924] Tweak future expression to call with '...' arguments ... 1572s [00:52:52.925] { 1572s [00:52:52.925] do.call(function(...) { 1572s [00:52:52.925] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1572s [00:52:52.925] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1572s [00:52:52.925] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1572s [00:52:52.925] on.exit(options(oopts), add = TRUE) 1572s [00:52:52.925] } 1572s [00:52:52.925] { 1572s [00:52:52.925] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1572s [00:52:52.925] ...future.X_jj <- ...future.elements_ii[[jj]] 1572s [00:52:52.925] ...future.FUN(...future.X_jj, ...) 1572s [00:52:52.925] }) 1572s [00:52:52.925] } 1572s [00:52:52.925] }, args = future.call.arguments) 1572s [00:52:52.925] } 1572s [00:52:52.926] Tweak future expression to call with '...' arguments ... DONE 1572s [00:52:52.927] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1572s [00:52:52.927] 1572s [00:52:52.927] getGlobalsAndPackages() ... DONE 1572s [00:52:52.927] run() for ‘Future’ ... 1572s [00:52:52.928] - state: ‘created’ 1572s [00:52:52.928] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1572s [00:52:52.933] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1572s [00:52:52.934] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1572s [00:52:52.934] - Field: ‘label’ 1572s [00:52:52.934] - Field: ‘local’ 1572s [00:52:52.935] - Field: ‘owner’ 1572s [00:52:52.935] - Field: ‘envir’ 1572s [00:52:52.935] - Field: ‘packages’ 1572s [00:52:52.935] - Field: ‘gc’ 1572s [00:52:52.936] - Field: ‘conditions’ 1572s [00:52:52.936] - Field: ‘expr’ 1572s [00:52:52.936] - Field: ‘uuid’ 1572s [00:52:52.937] - Field: ‘seed’ 1572s [00:52:52.937] - Field: ‘version’ 1572s [00:52:52.937] - Field: ‘result’ 1572s [00:52:52.937] - Field: ‘asynchronous’ 1572s [00:52:52.938] - Field: ‘calls’ 1572s [00:52:52.938] - Field: ‘globals’ 1572s [00:52:52.938] - Field: ‘stdout’ 1572s [00:52:52.938] - Field: ‘earlySignal’ 1572s [00:52:52.938] - Field: ‘lazy’ 1572s [00:52:52.938] - Field: ‘state’ 1572s [00:52:52.938] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1572s [00:52:52.938] - Launch lazy future ... 1572s [00:52:52.939] Packages needed by the future expression (n = 0): 1572s [00:52:52.939] Packages needed by future strategies (n = 0): 1572s [00:52:52.940] { 1572s [00:52:52.940] { 1572s [00:52:52.940] { 1572s [00:52:52.940] ...future.startTime <- base::Sys.time() 1572s [00:52:52.940] { 1572s [00:52:52.940] { 1572s [00:52:52.940] { 1572s [00:52:52.940] base::local({ 1572s [00:52:52.940] has_future <- base::requireNamespace("future", 1572s [00:52:52.940] quietly = TRUE) 1572s [00:52:52.940] if (has_future) { 1572s [00:52:52.940] ns <- base::getNamespace("future") 1572s [00:52:52.940] version <- ns[[".package"]][["version"]] 1572s [00:52:52.940] if (is.null(version)) 1572s [00:52:52.940] version <- utils::packageVersion("future") 1572s [00:52:52.940] } 1572s [00:52:52.940] else { 1572s [00:52:52.940] version <- NULL 1572s [00:52:52.940] } 1572s [00:52:52.940] if (!has_future || version < "1.8.0") { 1572s [00:52:52.940] info <- base::c(r_version = base::gsub("R version ", 1572s [00:52:52.940] "", base::R.version$version.string), 1572s [00:52:52.940] platform = base::sprintf("%s (%s-bit)", 1572s [00:52:52.940] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1572s [00:52:52.940] os = base::paste(base::Sys.info()[base::c("sysname", 1572s [00:52:52.940] "release", "version")], collapse = " "), 1572s [00:52:52.940] hostname = base::Sys.info()[["nodename"]]) 1572s [00:52:52.940] info <- base::sprintf("%s: %s", base::names(info), 1572s [00:52:52.940] info) 1572s [00:52:52.940] info <- base::paste(info, collapse = "; ") 1572s [00:52:52.940] if (!has_future) { 1572s [00:52:52.940] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1572s [00:52:52.940] info) 1572s [00:52:52.940] } 1572s [00:52:52.940] else { 1572s [00:52:52.940] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1572s [00:52:52.940] info, version) 1572s [00:52:52.940] } 1572s [00:52:52.940] base::stop(msg) 1572s [00:52:52.940] } 1572s [00:52:52.940] }) 1572s [00:52:52.940] } 1572s [00:52:52.940] options(future.plan = NULL) 1572s [00:52:52.940] Sys.unsetenv("R_FUTURE_PLAN") 1572s [00:52:52.940] future::plan("default", .cleanup = FALSE, .init = FALSE) 1572s [00:52:52.940] } 1572s [00:52:52.940] ...future.workdir <- getwd() 1572s [00:52:52.940] } 1572s [00:52:52.940] ...future.oldOptions <- base::as.list(base::.Options) 1572s [00:52:52.940] ...future.oldEnvVars <- base::Sys.getenv() 1572s [00:52:52.940] } 1572s [00:52:52.940] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1572s [00:52:52.940] future.globals.maxSize = NULL, future.globals.method = NULL, 1572s [00:52:52.940] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1572s [00:52:52.940] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1572s [00:52:52.940] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1572s [00:52:52.940] future.stdout.windows.reencode = NULL, width = 80L) 1572s [00:52:52.940] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1572s [00:52:52.940] base::names(...future.oldOptions)) 1572s [00:52:52.940] } 1572s [00:52:52.940] if (FALSE) { 1572s [00:52:52.940] } 1572s [00:52:52.940] else { 1572s [00:52:52.940] if (TRUE) { 1572s [00:52:52.940] ...future.stdout <- base::rawConnection(base::raw(0L), 1572s [00:52:52.940] open = "w") 1572s [00:52:52.940] } 1572s [00:52:52.940] else { 1572s [00:52:52.940] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1572s [00:52:52.940] windows = "NUL", "/dev/null"), open = "w") 1572s [00:52:52.940] } 1572s [00:52:52.940] base::sink(...future.stdout, type = "output", split = FALSE) 1572s [00:52:52.940] base::on.exit(if (!base::is.null(...future.stdout)) { 1572s [00:52:52.940] base::sink(type = "output", split = FALSE) 1572s [00:52:52.940] base::close(...future.stdout) 1572s [00:52:52.940] }, add = TRUE) 1572s [00:52:52.940] } 1572s [00:52:52.940] ...future.frame <- base::sys.nframe() 1572s [00:52:52.940] ...future.conditions <- base::list() 1572s [00:52:52.940] ...future.rng <- base::globalenv()$.Random.seed 1572s [00:52:52.940] if (FALSE) { 1572s [00:52:52.940] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1572s [00:52:52.940] "...future.value", "...future.globalenv.names", ".Random.seed") 1572s [00:52:52.940] } 1572s [00:52:52.940] ...future.result <- base::tryCatch({ 1572s [00:52:52.940] base::withCallingHandlers({ 1572s [00:52:52.940] ...future.value <- base::withVisible(base::local({ 1572s [00:52:52.940] do.call(function(...) { 1572s [00:52:52.940] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1572s [00:52:52.940] if (!identical(...future.globals.maxSize.org, 1572s [00:52:52.940] ...future.globals.maxSize)) { 1572s [00:52:52.940] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1572s [00:52:52.940] on.exit(options(oopts), add = TRUE) 1572s [00:52:52.940] } 1572s [00:52:52.940] { 1572s [00:52:52.940] lapply(seq_along(...future.elements_ii), 1572s [00:52:52.940] FUN = function(jj) { 1572s [00:52:52.940] ...future.X_jj <- ...future.elements_ii[[jj]] 1572s [00:52:52.940] ...future.FUN(...future.X_jj, ...) 1572s [00:52:52.940] }) 1572s [00:52:52.940] } 1572s [00:52:52.940] }, args = future.call.arguments) 1572s [00:52:52.940] })) 1572s [00:52:52.940] future::FutureResult(value = ...future.value$value, 1572s [00:52:52.940] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1572s [00:52:52.940] ...future.rng), globalenv = if (FALSE) 1572s [00:52:52.940] list(added = base::setdiff(base::names(base::.GlobalEnv), 1572s [00:52:52.940] ...future.globalenv.names)) 1572s [00:52:52.940] else NULL, started = ...future.startTime, version = "1.8") 1572s [00:52:52.940] }, condition = base::local({ 1572s [00:52:52.940] c <- base::c 1572s [00:52:52.940] inherits <- base::inherits 1572s [00:52:52.940] invokeRestart <- base::invokeRestart 1572s [00:52:52.940] length <- base::length 1572s [00:52:52.940] list <- base::list 1572s [00:52:52.940] seq.int <- base::seq.int 1572s [00:52:52.940] signalCondition <- base::signalCondition 1572s [00:52:52.940] sys.calls <- base::sys.calls 1572s [00:52:52.940] `[[` <- base::`[[` 1572s [00:52:52.940] `+` <- base::`+` 1572s [00:52:52.940] `<<-` <- base::`<<-` 1572s [00:52:52.940] sysCalls <- function(calls = sys.calls(), from = 1L) { 1572s [00:52:52.940] calls[seq.int(from = from + 12L, to = length(calls) - 1572s [00:52:52.940] 3L)] 1572s [00:52:52.940] } 1572s [00:52:52.940] function(cond) { 1572s [00:52:52.940] is_error <- inherits(cond, "error") 1572s [00:52:52.940] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1572s [00:52:52.940] NULL) 1572s [00:52:52.940] if (is_error) { 1572s [00:52:52.940] sessionInformation <- function() { 1572s [00:52:52.940] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1572s [00:52:52.940] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1572s [00:52:52.940] search = base::search(), system = base::Sys.info()) 1572s [00:52:52.940] } 1572s [00:52:52.940] ...future.conditions[[length(...future.conditions) + 1572s [00:52:52.940] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1572s [00:52:52.940] cond$call), session = sessionInformation(), 1572s [00:52:52.940] timestamp = base::Sys.time(), signaled = 0L) 1572s [00:52:52.940] signalCondition(cond) 1572s [00:52:52.940] } 1572s [00:52:52.940] else if (!ignore && TRUE && inherits(cond, c("condition", 1572s [00:52:52.940] "immediateCondition"))) { 1572s [00:52:52.940] signal <- TRUE && inherits(cond, "immediateCondition") 1572s [00:52:52.940] ...future.conditions[[length(...future.conditions) + 1572s [00:52:52.940] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1572s [00:52:52.940] if (TRUE && !signal) { 1572s [00:52:52.940] muffleCondition <- function (cond, pattern = "^muffle") 1572s [00:52:52.940] { 1572s [00:52:52.940] inherits <- base::inherits 1572s [00:52:52.940] invokeRestart <- base::invokeRestart 1572s [00:52:52.940] is.null <- base::is.null 1572s [00:52:52.940] muffled <- FALSE 1572s [00:52:52.940] if (inherits(cond, "message")) { 1572s [00:52:52.940] muffled <- grepl(pattern, "muffleMessage") 1572s [00:52:52.940] if (muffled) 1572s [00:52:52.940] invokeRestart("muffleMessage") 1572s [00:52:52.940] } 1572s [00:52:52.940] else if (inherits(cond, "warning")) { 1572s [00:52:52.940] muffled <- grepl(pattern, "muffleWarning") 1572s [00:52:52.940] if (muffled) 1572s [00:52:52.940] invokeRestart("muffleWarning") 1572s [00:52:52.940] } 1572s [00:52:52.940] else if (inherits(cond, "condition")) { 1572s [00:52:52.940] if (!is.null(pattern)) { 1572s [00:52:52.940] computeRestarts <- base::computeRestarts 1572s [00:52:52.940] grepl <- base::grepl 1572s [00:52:52.940] restarts <- computeRestarts(cond) 1572s [00:52:52.940] for (restart in restarts) { 1572s [00:52:52.940] name <- restart$name 1572s [00:52:52.940] if (is.null(name)) 1572s [00:52:52.940] next 1572s [00:52:52.940] if (!grepl(pattern, name)) 1572s [00:52:52.940] next 1572s [00:52:52.940] invokeRestart(restart) 1572s [00:52:52.940] muffled <- TRUE 1572s [00:52:52.940] break 1572s [00:52:52.940] } 1572s [00:52:52.940] } 1572s [00:52:52.940] } 1572s [00:52:52.940] invisible(muffled) 1572s [00:52:52.940] } 1572s [00:52:52.940] muffleCondition(cond, pattern = "^muffle") 1572s [00:52:52.940] } 1572s [00:52:52.940] } 1572s [00:52:52.940] else { 1572s [00:52:52.940] if (TRUE) { 1572s [00:52:52.940] muffleCondition <- function (cond, pattern = "^muffle") 1572s [00:52:52.940] { 1572s [00:52:52.940] inherits <- base::inherits 1572s [00:52:52.940] invokeRestart <- base::invokeRestart 1572s [00:52:52.940] is.null <- base::is.null 1572s [00:52:52.940] muffled <- FALSE 1572s [00:52:52.940] if (inherits(cond, "message")) { 1572s [00:52:52.940] muffled <- grepl(pattern, "muffleMessage") 1572s [00:52:52.940] if (muffled) 1572s [00:52:52.940] invokeRestart("muffleMessage") 1572s [00:52:52.940] } 1572s [00:52:52.940] else if (inherits(cond, "warning")) { 1572s [00:52:52.940] muffled <- grepl(pattern, "muffleWarning") 1572s [00:52:52.940] if (muffled) 1572s [00:52:52.940] invokeRestart("muffleWarning") 1572s [00:52:52.940] } 1572s [00:52:52.940] else if (inherits(cond, "condition")) { 1572s [00:52:52.940] if (!is.null(pattern)) { 1572s [00:52:52.940] computeRestarts <- base::computeRestarts 1572s [00:52:52.940] grepl <- base::grepl 1572s [00:52:52.940] restarts <- computeRestarts(cond) 1572s [00:52:52.940] for (restart in restarts) { 1572s [00:52:52.940] name <- restart$name 1572s [00:52:52.940] if (is.null(name)) 1572s [00:52:52.940] next 1572s [00:52:52.940] if (!grepl(pattern, name)) 1572s [00:52:52.940] next 1572s [00:52:52.940] invokeRestart(restart) 1572s [00:52:52.940] muffled <- TRUE 1572s [00:52:52.940] break 1572s [00:52:52.940] } 1572s [00:52:52.940] } 1572s [00:52:52.940] } 1572s [00:52:52.940] invisible(muffled) 1572s [00:52:52.940] } 1572s [00:52:52.940] muffleCondition(cond, pattern = "^muffle") 1572s [00:52:52.940] } 1572s [00:52:52.940] } 1572s [00:52:52.940] } 1572s [00:52:52.940] })) 1572s [00:52:52.940] }, error = function(ex) { 1572s [00:52:52.940] base::structure(base::list(value = NULL, visible = NULL, 1572s [00:52:52.940] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1572s [00:52:52.940] ...future.rng), started = ...future.startTime, 1572s [00:52:52.940] finished = Sys.time(), session_uuid = NA_character_, 1572s [00:52:52.940] version = "1.8"), class = "FutureResult") 1572s [00:52:52.940] }, finally = { 1572s [00:52:52.940] if (!identical(...future.workdir, getwd())) 1572s [00:52:52.940] setwd(...future.workdir) 1572s [00:52:52.940] { 1572s [00:52:52.940] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1572s [00:52:52.940] ...future.oldOptions$nwarnings <- NULL 1572s [00:52:52.940] } 1572s [00:52:52.940] base::options(...future.oldOptions) 1572s [00:52:52.940] if (.Platform$OS.type == "windows") { 1572s [00:52:52.940] old_names <- names(...future.oldEnvVars) 1572s [00:52:52.940] envs <- base::Sys.getenv() 1572s [00:52:52.940] names <- names(envs) 1572s [00:52:52.940] common <- intersect(names, old_names) 1572s [00:52:52.940] added <- setdiff(names, old_names) 1572s [00:52:52.940] removed <- setdiff(old_names, names) 1572s [00:52:52.940] changed <- common[...future.oldEnvVars[common] != 1572s [00:52:52.940] envs[common]] 1572s [00:52:52.940] NAMES <- toupper(changed) 1572s [00:52:52.940] args <- list() 1572s [00:52:52.940] for (kk in seq_along(NAMES)) { 1572s [00:52:52.940] name <- changed[[kk]] 1572s [00:52:52.940] NAME <- NAMES[[kk]] 1572s [00:52:52.940] if (name != NAME && is.element(NAME, old_names)) 1572s [00:52:52.940] next 1572s [00:52:52.940] args[[name]] <- ...future.oldEnvVars[[name]] 1572s [00:52:52.940] } 1572s [00:52:52.940] NAMES <- toupper(added) 1572s [00:52:52.940] for (kk in seq_along(NAMES)) { 1572s [00:52:52.940] name <- added[[kk]] 1572s [00:52:52.940] NAME <- NAMES[[kk]] 1572s [00:52:52.940] if (name != NAME && is.element(NAME, old_names)) 1572s [00:52:52.940] next 1572s [00:52:52.940] args[[name]] <- "" 1572s [00:52:52.940] } 1572s [00:52:52.940] NAMES <- toupper(removed) 1572s [00:52:52.940] for (kk in seq_along(NAMES)) { 1572s [00:52:52.940] name <- removed[[kk]] 1572s [00:52:52.940] NAME <- NAMES[[kk]] 1572s [00:52:52.940] if (name != NAME && is.element(NAME, old_names)) 1572s [00:52:52.940] next 1572s [00:52:52.940] args[[name]] <- ...future.oldEnvVars[[name]] 1572s [00:52:52.940] } 1572s [00:52:52.940] if (length(args) > 0) 1572s [00:52:52.940] base::do.call(base::Sys.setenv, args = args) 1572s [00:52:52.940] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1572s [00:52:52.940] } 1572s [00:52:52.940] else { 1572s [00:52:52.940] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1572s [00:52:52.940] } 1572s [00:52:52.940] { 1572s [00:52:52.940] if (base::length(...future.futureOptionsAdded) > 1572s [00:52:52.940] 0L) { 1572s [00:52:52.940] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1572s [00:52:52.940] base::names(opts) <- ...future.futureOptionsAdded 1572s [00:52:52.940] base::options(opts) 1572s [00:52:52.940] } 1572s [00:52:52.940] { 1572s [00:52:52.940] { 1572s [00:52:52.940] NULL 1572s [00:52:52.940] RNGkind("Mersenne-Twister") 1572s [00:52:52.940] base::rm(list = ".Random.seed", envir = base::globalenv(), 1572s [00:52:52.940] inherits = FALSE) 1572s [00:52:52.940] } 1572s [00:52:52.940] options(future.plan = NULL) 1572s [00:52:52.940] if (is.na(NA_character_)) 1572s [00:52:52.940] Sys.unsetenv("R_FUTURE_PLAN") 1572s [00:52:52.940] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1572s [00:52:52.940] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1572s [00:52:52.940] envir = parent.frame()) 1572s [00:52:52.940] { 1572s [00:52:52.940] default_workers <- missing(workers) 1572s [00:52:52.940] if (is.function(workers)) 1572s [00:52:52.940] workers <- workers() 1572s [00:52:52.940] workers <- structure(as.integer(workers), 1572s [00:52:52.940] class = class(workers)) 1572s [00:52:52.940] stop_if_not(is.finite(workers), workers >= 1572s [00:52:52.940] 1L) 1572s [00:52:52.940] if ((workers == 1L && !inherits(workers, 1572s [00:52:52.940] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1572s [00:52:52.940] if (default_workers) 1572s [00:52:52.940] supportsMulticore(warn = TRUE) 1572s [00:52:52.940] return(sequential(..., envir = envir)) 1572s [00:52:52.940] } 1572s [00:52:52.940] oopts <- options(mc.cores = workers) 1572s [00:52:52.940] on.exit(options(oopts)) 1572s [00:52:52.940] future <- MulticoreFuture(..., workers = workers, 1572s [00:52:52.940] envir = envir) 1572s [00:52:52.940] if (!future$lazy) 1572s [00:52:52.940] future <- run(future) 1572s [00:52:52.940] invisible(future) 1572s [00:52:52.940] }), .cleanup = FALSE, .init = FALSE) 1572s [00:52:52.940] } 1572s [00:52:52.940] } 1572s [00:52:52.940] } 1572s [00:52:52.940] }) 1572s [00:52:52.940] if (TRUE) { 1572s [00:52:52.940] base::sink(type = "output", split = FALSE) 1572s [00:52:52.940] if (TRUE) { 1572s [00:52:52.940] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1572s [00:52:52.940] } 1572s [00:52:52.940] else { 1572s [00:52:52.940] ...future.result["stdout"] <- base::list(NULL) 1572s [00:52:52.940] } 1572s [00:52:52.940] base::close(...future.stdout) 1572s [00:52:52.940] ...future.stdout <- NULL 1572s [00:52:52.940] } 1572s [00:52:52.940] ...future.result$conditions <- ...future.conditions 1572s [00:52:52.940] ...future.result$finished <- base::Sys.time() 1572s [00:52:52.940] ...future.result 1572s [00:52:52.940] } 1572s [00:52:52.947] assign_globals() ... 1572s [00:52:52.947] List of 5 1572s [00:52:52.947] $ ...future.FUN :function (x, y = 2 * 1:5) 1572s [00:52:52.947] $ future.call.arguments : list() 1572s [00:52:52.947] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1572s [00:52:52.947] $ ...future.elements_ii :List of 3 1572s [00:52:52.947] ..$ a: num 1 1572s [00:52:52.947] ..$ b: num 2 1572s [00:52:52.947] ..$ c: num 3 1572s [00:52:52.947] $ ...future.seeds_ii : NULL 1572s [00:52:52.947] $ ...future.globals.maxSize: NULL 1572s [00:52:52.947] - attr(*, "where")=List of 5 1572s [00:52:52.947] ..$ ...future.FUN : 1572s [00:52:52.947] ..$ future.call.arguments : 1572s [00:52:52.947] ..$ ...future.elements_ii : 1572s [00:52:52.947] ..$ ...future.seeds_ii : 1572s [00:52:52.947] ..$ ...future.globals.maxSize: 1572s [00:52:52.947] - attr(*, "resolved")= logi FALSE 1572s [00:52:52.947] - attr(*, "total_size")= num 4728 1572s [00:52:52.947] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1572s [00:52:52.947] - attr(*, "already-done")= logi TRUE 1572s [00:52:52.956] - reassign environment for ‘...future.FUN’ 1572s [00:52:52.956] - copied ‘...future.FUN’ to environment 1572s [00:52:52.956] - copied ‘future.call.arguments’ to environment 1572s [00:52:52.956] - copied ‘...future.elements_ii’ to environment 1572s [00:52:52.957] - copied ‘...future.seeds_ii’ to environment 1572s [00:52:52.957] - copied ‘...future.globals.maxSize’ to environment 1572s [00:52:52.957] assign_globals() ... done 1572s [00:52:52.958] plan(): Setting new future strategy stack: 1572s [00:52:52.958] List of future strategies: 1572s [00:52:52.958] 1. sequential: 1572s [00:52:52.958] - args: function (..., envir = parent.frame()) 1572s [00:52:52.958] - tweaked: FALSE 1572s [00:52:52.958] - call: NULL 1572s [00:52:52.958] plan(): nbrOfWorkers() = 1 1572s [00:52:52.959] plan(): Setting new future strategy stack: 1572s [00:52:52.959] List of future strategies: 1572s [00:52:52.959] 1. multicore: 1572s [00:52:52.959] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1572s [00:52:52.959] - tweaked: FALSE 1572s [00:52:52.959] - call: plan(strategy) 1572s [00:52:52.963] plan(): nbrOfWorkers() = 1 1572s [00:52:52.964] SequentialFuture started (and completed) 1572s [00:52:52.964] - Launch lazy future ... done 1572s [00:52:52.964] run() for ‘SequentialFuture’ ... done 1572s [00:52:52.964] Created future: 1572s [00:52:52.964] SequentialFuture: 1572s [00:52:52.964] Label: ‘future_sapply-1’ 1572s [00:52:52.964] Expression: 1572s [00:52:52.964] { 1572s [00:52:52.964] do.call(function(...) { 1572s [00:52:52.964] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1572s [00:52:52.964] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1572s [00:52:52.964] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1572s [00:52:52.964] on.exit(options(oopts), add = TRUE) 1572s [00:52:52.964] } 1572s [00:52:52.964] { 1572s [00:52:52.964] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1572s [00:52:52.964] ...future.X_jj <- ...future.elements_ii[[jj]] 1572s [00:52:52.964] ...future.FUN(...future.X_jj, ...) 1572s [00:52:52.964] }) 1572s [00:52:52.964] } 1572s [00:52:52.964] }, args = future.call.arguments) 1572s [00:52:52.964] } 1572s [00:52:52.964] Lazy evaluation: FALSE 1572s [00:52:52.964] Asynchronous evaluation: FALSE 1573s [00:52:52.964] Local evaluation: TRUE 1573s [00:52:52.964] Environment: R_GlobalEnv 1573s [00:52:52.964] Capture standard output: TRUE 1573s [00:52:52.964] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1573s [00:52:52.964] Globals: 5 objects totaling 4.78 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1573s [00:52:52.964] Packages: 1573s [00:52:52.964] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1573s [00:52:52.964] Resolved: TRUE 1573s [00:52:52.964] Value: 1.01 KiB of class ‘list’ 1573s [00:52:52.964] Early signaling: FALSE 1573s [00:52:52.964] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1573s [00:52:52.964] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1573s [00:52:52.966] Chunk #1 of 1 ... DONE 1573s [00:52:52.967] Launching 1 futures (chunks) ... DONE 1573s [00:52:52.967] Resolving 1 futures (chunks) ... 1573s [00:52:52.967] resolve() on list ... 1573s [00:52:52.967] recursive: 0 1573s [00:52:52.967] length: 1 1573s [00:52:52.967] 1573s [00:52:52.967] resolved() for ‘SequentialFuture’ ... 1573s [00:52:52.968] - state: ‘finished’ 1573s [00:52:52.968] - run: TRUE 1573s [00:52:52.968] - result: ‘FutureResult’ 1573s [00:52:52.968] resolved() for ‘SequentialFuture’ ... done 1573s [00:52:52.972] Future #1 1573s [00:52:52.973] signalConditionsASAP(SequentialFuture, pos=1) ... 1573s [00:52:52.973] - nx: 1 1573s [00:52:52.973] - relay: TRUE 1573s [00:52:52.973] - stdout: TRUE 1573s [00:52:52.973] - signal: TRUE 1573s [00:52:52.973] - resignal: FALSE 1573s [00:52:52.973] - force: TRUE 1573s [00:52:52.974] - relayed: [n=1] FALSE 1573s [00:52:52.974] - queued futures: [n=1] FALSE 1573s [00:52:52.974] - until=1 1573s [00:52:52.974] - relaying element #1 1573s [00:52:52.974] - relayed: [n=1] TRUE 1573s [00:52:52.975] - queued futures: [n=1] TRUE 1573s [00:52:52.975] signalConditionsASAP(SequentialFuture, pos=1) ... done 1573s [00:52:52.976] length: 0 (resolved future 1) 1573s [00:52:52.976] Relaying remaining futures 1573s [00:52:52.976] signalConditionsASAP(NULL, pos=0) ... 1573s [00:52:52.976] - nx: 1 1573s [00:52:52.976] - relay: TRUE 1573s [00:52:52.977] - stdout: TRUE 1573s [00:52:52.977] - signal: TRUE 1573s [00:52:52.977] - resignal: FALSE 1573s [00:52:52.977] - force: TRUE 1573s [00:52:52.977] - relayed: [n=1] TRUE 1573s [00:52:52.977] - queued futures: [n=1] TRUE 1573s - flush all 1573s [00:52:52.978] - relayed: [n=1] TRUE 1573s [00:52:52.978] - queued futures: [n=1] TRUE 1573s [00:52:52.978] signalConditionsASAP(NULL, pos=0) ... done 1573s [00:52:52.978] resolve() on list ... DONE 1573s [00:52:52.979] - Number of value chunks collected: 1 1573s [00:52:52.979] Resolving 1 futures (chunks) ... DONE 1573s [00:52:52.979] Reducing values from 1 chunks ... 1573s [00:52:52.979] - Number of values collected after concatenation: 3 1573s [00:52:52.979] - Number of values expected: 3 1573s [00:52:52.979] Reducing values from 1 chunks ... DONE 1573s [00:52:52.980] future_lapply() ... DONE 1573s List of 2 1573s $ y0:List of 3 1573s ..$ a: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1573s ..$ b: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1573s ..$ c: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1573s $ y1:List of 3 1573s ..$ a: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1573s ..$ b: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1573s ..$ c: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1573s List of 2 1573s $ y0:List of 3 1573s ..$ a: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1573s ..$ b: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1573s ..$ c: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1573s $ y2:List of 3 1573s ..$ a: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1573s ..$ b: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1573s ..$ c: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1573s [00:52:52.992] future_lapply() ... 1573s [00:52:52.996] Number of chunks: 1 1573s [00:52:52.996] getGlobalsAndPackagesXApply() ... 1573s [00:52:52.996] - future.globals: TRUE 1573s [00:52:52.996] getGlobalsAndPackages() ... 1573s [00:52:52.997] Searching for globals... 1573s [00:52:52.998] - globals found: [1] ‘FUN’ 1573s [00:52:52.998] Searching for globals ... DONE 1573s [00:52:52.998] Resolving globals: FALSE 1573s [00:52:52.999] The total size of the 1 globals is 848 bytes (848 bytes) 1573s [00:52:52.999] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1573s [00:52:53.000] - globals: [1] ‘FUN’ 1573s [00:52:53.000] 1573s [00:52:53.000] getGlobalsAndPackages() ... DONE 1573s [00:52:53.000] - globals found/used: [n=1] ‘FUN’ 1573s [00:52:53.000] - needed namespaces: [n=0] 1573s [00:52:53.000] Finding globals ... DONE 1573s [00:52:53.000] - use_args: TRUE 1573s [00:52:53.000] - Getting '...' globals ... 1573s [00:52:53.001] resolve() on list ... 1573s [00:52:53.001] recursive: 0 1573s [00:52:53.001] length: 1 1573s [00:52:53.001] elements: ‘...’ 1573s [00:52:53.001] length: 0 (resolved future 1) 1573s [00:52:53.001] resolve() on list ... DONE 1573s [00:52:53.001] - '...' content: [n=0] 1573s [00:52:53.002] List of 1 1573s [00:52:53.002] $ ...: list() 1573s [00:52:53.002] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1573s [00:52:53.002] - attr(*, "where")=List of 1 1573s [00:52:53.002] ..$ ...: 1573s [00:52:53.002] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1573s [00:52:53.002] - attr(*, "resolved")= logi TRUE 1573s [00:52:53.002] - attr(*, "total_size")= num NA 1573s [00:52:53.005] - Getting '...' globals ... DONE 1573s [00:52:53.008] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1573s [00:52:53.008] List of 2 1573s [00:52:53.008] $ ...future.FUN:function (x) 1573s [00:52:53.008] $ ... : list() 1573s [00:52:53.008] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1573s [00:52:53.008] - attr(*, "where")=List of 2 1573s [00:52:53.008] ..$ ...future.FUN: 1573s [00:52:53.008] ..$ ... : 1573s [00:52:53.008] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1573s [00:52:53.008] - attr(*, "resolved")= logi FALSE 1573s [00:52:53.008] - attr(*, "total_size")= num 848 1573s [00:52:53.014] Packages to be attached in all futures: [n=0] 1573s [00:52:53.014] getGlobalsAndPackagesXApply() ... DONE 1573s [00:52:53.014] Number of futures (= number of chunks): 1 1573s [00:52:53.015] Launching 1 futures (chunks) ... 1573s [00:52:53.015] Chunk #1 of 1 ... 1573s [00:52:53.015] - Finding globals in 'X' for chunk #1 ... 1573s [00:52:53.015] getGlobalsAndPackages() ... 1573s [00:52:53.016] Searching for globals... 1573s [00:52:53.016] 1573s [00:52:53.016] Searching for globals ... DONE 1573s [00:52:53.016] - globals: [0] 1573s [00:52:53.017] getGlobalsAndPackages() ... DONE 1573s [00:52:53.017] + additional globals found: [n=0] 1573s [00:52:53.017] + additional namespaces needed: [n=0] 1573s [00:52:53.017] - Finding globals in 'X' for chunk #1 ... DONE 1573s [00:52:53.018] - seeds: 1573s [00:52:53.018] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1573s [00:52:53.018] getGlobalsAndPackages() ... 1573s [00:52:53.018] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1573s [00:52:53.018] Resolving globals: FALSE 1573s [00:52:53.019] Tweak future expression to call with '...' arguments ... 1573s [00:52:53.019] { 1573s [00:52:53.019] do.call(function(...) { 1573s [00:52:53.019] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1573s [00:52:53.019] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1573s [00:52:53.019] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1573s [00:52:53.019] on.exit(options(oopts), add = TRUE) 1573s [00:52:53.019] } 1573s [00:52:53.019] { 1573s [00:52:53.019] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1573s [00:52:53.019] ...future.X_jj <- ...future.elements_ii[[jj]] 1573s [00:52:53.019] ...future.FUN(...future.X_jj, ...) 1573s [00:52:53.019] }) 1573s [00:52:53.019] } 1573s [00:52:53.019] }, args = future.call.arguments) 1573s [00:52:53.019] } 1573s [00:52:53.019] Tweak future expression to call with '...' arguments ... DONE 1573s [00:52:53.020] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1573s [00:52:53.020] 1573s [00:52:53.020] getGlobalsAndPackages() ... DONE 1573s [00:52:53.021] run() for ‘Future’ ... 1573s [00:52:53.021] - state: ‘created’ 1573s [00:52:53.021] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1573s [00:52:53.026] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1573s [00:52:53.026] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1573s [00:52:53.026] - Field: ‘label’ 1573s [00:52:53.026] - Field: ‘local’ 1573s [00:52:53.027] - Field: ‘owner’ 1573s [00:52:53.027] - Field: ‘envir’ 1573s [00:52:53.027] - Field: ‘packages’ 1573s [00:52:53.027] - Field: ‘gc’ 1573s [00:52:53.027] - Field: ‘conditions’ 1573s [00:52:53.028] - Field: ‘expr’ 1573s [00:52:53.028] - Field: ‘uuid’ 1573s [00:52:53.028] - Field: ‘seed’ 1573s [00:52:53.028] - Field: ‘version’ 1573s [00:52:53.028] - Field: ‘result’ 1573s [00:52:53.029] - Field: ‘asynchronous’ 1573s [00:52:53.029] - Field: ‘calls’ 1573s [00:52:53.029] - Field: ‘globals’ 1573s [00:52:53.029] - Field: ‘stdout’ 1573s [00:52:53.029] - Field: ‘earlySignal’ 1573s [00:52:53.029] - Field: ‘lazy’ 1573s [00:52:53.030] - Field: ‘state’ 1573s [00:52:53.030] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1573s [00:52:53.030] - Launch lazy future ... 1573s [00:52:53.030] Packages needed by the future expression (n = 0): 1573s [00:52:53.030] Packages needed by future strategies (n = 0): 1573s [00:52:53.031] { 1573s [00:52:53.031] { 1573s [00:52:53.031] { 1573s [00:52:53.031] ...future.startTime <- base::Sys.time() 1573s [00:52:53.031] { 1573s [00:52:53.031] { 1573s [00:52:53.031] { 1573s [00:52:53.031] base::local({ 1573s [00:52:53.031] has_future <- base::requireNamespace("future", 1573s [00:52:53.031] quietly = TRUE) 1573s [00:52:53.031] if (has_future) { 1573s [00:52:53.031] ns <- base::getNamespace("future") 1573s [00:52:53.031] version <- ns[[".package"]][["version"]] 1573s [00:52:53.031] if (is.null(version)) 1573s [00:52:53.031] version <- utils::packageVersion("future") 1573s [00:52:53.031] } 1573s [00:52:53.031] else { 1573s [00:52:53.031] version <- NULL 1573s [00:52:53.031] } 1573s [00:52:53.031] if (!has_future || version < "1.8.0") { 1573s [00:52:53.031] info <- base::c(r_version = base::gsub("R version ", 1573s [00:52:53.031] "", base::R.version$version.string), 1573s [00:52:53.031] platform = base::sprintf("%s (%s-bit)", 1573s [00:52:53.031] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1573s [00:52:53.031] os = base::paste(base::Sys.info()[base::c("sysname", 1573s [00:52:53.031] "release", "version")], collapse = " "), 1573s [00:52:53.031] hostname = base::Sys.info()[["nodename"]]) 1573s [00:52:53.031] info <- base::sprintf("%s: %s", base::names(info), 1573s [00:52:53.031] info) 1573s [00:52:53.031] info <- base::paste(info, collapse = "; ") 1573s [00:52:53.031] if (!has_future) { 1573s [00:52:53.031] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1573s [00:52:53.031] info) 1573s [00:52:53.031] } 1573s [00:52:53.031] else { 1573s [00:52:53.031] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1573s [00:52:53.031] info, version) 1573s [00:52:53.031] } 1573s [00:52:53.031] base::stop(msg) 1573s [00:52:53.031] } 1573s [00:52:53.031] }) 1573s [00:52:53.031] } 1573s [00:52:53.031] options(future.plan = NULL) 1573s [00:52:53.031] Sys.unsetenv("R_FUTURE_PLAN") 1573s [00:52:53.031] future::plan("default", .cleanup = FALSE, .init = FALSE) 1573s [00:52:53.031] } 1573s [00:52:53.031] ...future.workdir <- getwd() 1573s [00:52:53.031] } 1573s [00:52:53.031] ...future.oldOptions <- base::as.list(base::.Options) 1573s [00:52:53.031] ...future.oldEnvVars <- base::Sys.getenv() 1573s [00:52:53.031] } 1573s [00:52:53.031] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1573s [00:52:53.031] future.globals.maxSize = NULL, future.globals.method = NULL, 1573s [00:52:53.031] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1573s [00:52:53.031] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1573s [00:52:53.031] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1573s [00:52:53.031] future.stdout.windows.reencode = NULL, width = 80L) 1573s [00:52:53.031] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1573s [00:52:53.031] base::names(...future.oldOptions)) 1573s [00:52:53.031] } 1573s [00:52:53.031] if (FALSE) { 1573s [00:52:53.031] } 1573s [00:52:53.031] else { 1573s [00:52:53.031] if (TRUE) { 1573s [00:52:53.031] ...future.stdout <- base::rawConnection(base::raw(0L), 1573s [00:52:53.031] open = "w") 1573s [00:52:53.031] } 1573s [00:52:53.031] else { 1573s [00:52:53.031] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1573s [00:52:53.031] windows = "NUL", "/dev/null"), open = "w") 1573s [00:52:53.031] } 1573s [00:52:53.031] base::sink(...future.stdout, type = "output", split = FALSE) 1573s [00:52:53.031] base::on.exit(if (!base::is.null(...future.stdout)) { 1573s [00:52:53.031] base::sink(type = "output", split = FALSE) 1573s [00:52:53.031] base::close(...future.stdout) 1573s [00:52:53.031] }, add = TRUE) 1573s [00:52:53.031] } 1573s [00:52:53.031] ...future.frame <- base::sys.nframe() 1573s [00:52:53.031] ...future.conditions <- base::list() 1573s [00:52:53.031] ...future.rng <- base::globalenv()$.Random.seed 1573s [00:52:53.031] if (FALSE) { 1573s [00:52:53.031] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1573s [00:52:53.031] "...future.value", "...future.globalenv.names", ".Random.seed") 1573s [00:52:53.031] } 1573s [00:52:53.031] ...future.result <- base::tryCatch({ 1573s [00:52:53.031] base::withCallingHandlers({ 1573s [00:52:53.031] ...future.value <- base::withVisible(base::local({ 1573s [00:52:53.031] do.call(function(...) { 1573s [00:52:53.031] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1573s [00:52:53.031] if (!identical(...future.globals.maxSize.org, 1573s [00:52:53.031] ...future.globals.maxSize)) { 1573s [00:52:53.031] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1573s [00:52:53.031] on.exit(options(oopts), add = TRUE) 1573s [00:52:53.031] } 1573s [00:52:53.031] { 1573s [00:52:53.031] lapply(seq_along(...future.elements_ii), 1573s [00:52:53.031] FUN = function(jj) { 1573s [00:52:53.031] ...future.X_jj <- ...future.elements_ii[[jj]] 1573s [00:52:53.031] ...future.FUN(...future.X_jj, ...) 1573s [00:52:53.031] }) 1573s [00:52:53.031] } 1573s [00:52:53.031] }, args = future.call.arguments) 1573s [00:52:53.031] })) 1573s [00:52:53.031] future::FutureResult(value = ...future.value$value, 1573s [00:52:53.031] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1573s [00:52:53.031] ...future.rng), globalenv = if (FALSE) 1573s [00:52:53.031] list(added = base::setdiff(base::names(base::.GlobalEnv), 1573s [00:52:53.031] ...future.globalenv.names)) 1573s [00:52:53.031] else NULL, started = ...future.startTime, version = "1.8") 1573s [00:52:53.031] }, condition = base::local({ 1573s [00:52:53.031] c <- base::c 1573s [00:52:53.031] inherits <- base::inherits 1573s [00:52:53.031] invokeRestart <- base::invokeRestart 1573s [00:52:53.031] length <- base::length 1573s [00:52:53.031] list <- base::list 1573s [00:52:53.031] seq.int <- base::seq.int 1573s [00:52:53.031] signalCondition <- base::signalCondition 1573s [00:52:53.031] sys.calls <- base::sys.calls 1573s [00:52:53.031] `[[` <- base::`[[` 1573s [00:52:53.031] `+` <- base::`+` 1573s [00:52:53.031] `<<-` <- base::`<<-` 1573s [00:52:53.031] sysCalls <- function(calls = sys.calls(), from = 1L) { 1573s [00:52:53.031] calls[seq.int(from = from + 12L, to = length(calls) - 1573s [00:52:53.031] 3L)] 1573s [00:52:53.031] } 1573s [00:52:53.031] function(cond) { 1573s [00:52:53.031] is_error <- inherits(cond, "error") 1573s [00:52:53.031] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1573s [00:52:53.031] NULL) 1573s [00:52:53.031] if (is_error) { 1573s [00:52:53.031] sessionInformation <- function() { 1573s [00:52:53.031] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1573s [00:52:53.031] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1573s [00:52:53.031] search = base::search(), system = base::Sys.info()) 1573s [00:52:53.031] } 1573s [00:52:53.031] ...future.conditions[[length(...future.conditions) + 1573s [00:52:53.031] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1573s [00:52:53.031] cond$call), session = sessionInformation(), 1573s [00:52:53.031] timestamp = base::Sys.time(), signaled = 0L) 1573s [00:52:53.031] signalCondition(cond) 1573s [00:52:53.031] } 1573s [00:52:53.031] else if (!ignore && TRUE && inherits(cond, c("condition", 1573s [00:52:53.031] "immediateCondition"))) { 1573s [00:52:53.031] signal <- TRUE && inherits(cond, "immediateCondition") 1573s [00:52:53.031] ...future.conditions[[length(...future.conditions) + 1573s [00:52:53.031] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1573s [00:52:53.031] if (TRUE && !signal) { 1573s [00:52:53.031] muffleCondition <- function (cond, pattern = "^muffle") 1573s [00:52:53.031] { 1573s [00:52:53.031] inherits <- base::inherits 1573s [00:52:53.031] invokeRestart <- base::invokeRestart 1573s [00:52:53.031] is.null <- base::is.null 1573s [00:52:53.031] muffled <- FALSE 1573s [00:52:53.031] if (inherits(cond, "message")) { 1573s [00:52:53.031] muffled <- grepl(pattern, "muffleMessage") 1573s [00:52:53.031] if (muffled) 1573s [00:52:53.031] invokeRestart("muffleMessage") 1573s [00:52:53.031] } 1573s [00:52:53.031] else if (inherits(cond, "warning")) { 1573s [00:52:53.031] muffled <- grepl(pattern, "muffleWarning") 1573s [00:52:53.031] if (muffled) 1573s [00:52:53.031] invokeRestart("muffleWarning") 1573s [00:52:53.031] } 1573s [00:52:53.031] else if (inherits(cond, "condition")) { 1573s [00:52:53.031] if (!is.null(pattern)) { 1573s [00:52:53.031] computeRestarts <- base::computeRestarts 1573s [00:52:53.031] grepl <- base::grepl 1573s [00:52:53.031] restarts <- computeRestarts(cond) 1573s [00:52:53.031] for (restart in restarts) { 1573s [00:52:53.031] name <- restart$name 1573s [00:52:53.031] if (is.null(name)) 1573s [00:52:53.031] next 1573s [00:52:53.031] if (!grepl(pattern, name)) 1573s [00:52:53.031] next 1573s [00:52:53.031] invokeRestart(restart) 1573s [00:52:53.031] muffled <- TRUE 1573s [00:52:53.031] break 1573s [00:52:53.031] } 1573s [00:52:53.031] } 1573s [00:52:53.031] } 1573s [00:52:53.031] invisible(muffled) 1573s [00:52:53.031] } 1573s [00:52:53.031] muffleCondition(cond, pattern = "^muffle") 1573s [00:52:53.031] } 1573s [00:52:53.031] } 1573s [00:52:53.031] else { 1573s [00:52:53.031] if (TRUE) { 1573s [00:52:53.031] muffleCondition <- function (cond, pattern = "^muffle") 1573s [00:52:53.031] { 1573s [00:52:53.031] inherits <- base::inherits 1573s [00:52:53.031] invokeRestart <- base::invokeRestart 1573s [00:52:53.031] is.null <- base::is.null 1573s [00:52:53.031] muffled <- FALSE 1573s [00:52:53.031] if (inherits(cond, "message")) { 1573s [00:52:53.031] muffled <- grepl(pattern, "muffleMessage") 1573s [00:52:53.031] if (muffled) 1573s [00:52:53.031] invokeRestart("muffleMessage") 1573s [00:52:53.031] } 1573s [00:52:53.031] else if (inherits(cond, "warning")) { 1573s [00:52:53.031] muffled <- grepl(pattern, "muffleWarning") 1573s [00:52:53.031] if (muffled) 1573s [00:52:53.031] invokeRestart("muffleWarning") 1573s [00:52:53.031] } 1573s [00:52:53.031] else if (inherits(cond, "condition")) { 1573s [00:52:53.031] if (!is.null(pattern)) { 1573s [00:52:53.031] computeRestarts <- base::computeRestarts 1573s [00:52:53.031] grepl <- base::grepl 1573s [00:52:53.031] restarts <- computeRestarts(cond) 1573s [00:52:53.031] for (restart in restarts) { 1573s [00:52:53.031] name <- restart$name 1573s [00:52:53.031] if (is.null(name)) 1573s [00:52:53.031] next 1573s [00:52:53.031] if (!grepl(pattern, name)) 1573s [00:52:53.031] next 1573s [00:52:53.031] invokeRestart(restart) 1573s [00:52:53.031] muffled <- TRUE 1573s [00:52:53.031] break 1573s [00:52:53.031] } 1573s [00:52:53.031] } 1573s [00:52:53.031] } 1573s [00:52:53.031] invisible(muffled) 1573s [00:52:53.031] } 1573s [00:52:53.031] muffleCondition(cond, pattern = "^muffle") 1573s [00:52:53.031] } 1573s [00:52:53.031] } 1573s [00:52:53.031] } 1573s [00:52:53.031] })) 1573s [00:52:53.031] }, error = function(ex) { 1573s [00:52:53.031] base::structure(base::list(value = NULL, visible = NULL, 1573s [00:52:53.031] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1573s [00:52:53.031] ...future.rng), started = ...future.startTime, 1573s [00:52:53.031] finished = Sys.time(), session_uuid = NA_character_, 1573s [00:52:53.031] version = "1.8"), class = "FutureResult") 1573s [00:52:53.031] }, finally = { 1573s [00:52:53.031] if (!identical(...future.workdir, getwd())) 1573s [00:52:53.031] setwd(...future.workdir) 1573s [00:52:53.031] { 1573s [00:52:53.031] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1573s [00:52:53.031] ...future.oldOptions$nwarnings <- NULL 1573s [00:52:53.031] } 1573s [00:52:53.031] base::options(...future.oldOptions) 1573s [00:52:53.031] if (.Platform$OS.type == "windows") { 1573s [00:52:53.031] old_names <- names(...future.oldEnvVars) 1573s [00:52:53.031] envs <- base::Sys.getenv() 1573s [00:52:53.031] names <- names(envs) 1573s [00:52:53.031] common <- intersect(names, old_names) 1573s [00:52:53.031] added <- setdiff(names, old_names) 1573s [00:52:53.031] removed <- setdiff(old_names, names) 1573s [00:52:53.031] changed <- common[...future.oldEnvVars[common] != 1573s [00:52:53.031] envs[common]] 1573s [00:52:53.031] NAMES <- toupper(changed) 1573s [00:52:53.031] args <- list() 1573s [00:52:53.031] for (kk in seq_along(NAMES)) { 1573s [00:52:53.031] name <- changed[[kk]] 1573s [00:52:53.031] NAME <- NAMES[[kk]] 1573s [00:52:53.031] if (name != NAME && is.element(NAME, old_names)) 1573s [00:52:53.031] next 1573s [00:52:53.031] args[[name]] <- ...future.oldEnvVars[[name]] 1573s [00:52:53.031] } 1573s [00:52:53.031] NAMES <- toupper(added) 1573s [00:52:53.031] for (kk in seq_along(NAMES)) { 1573s [00:52:53.031] name <- added[[kk]] 1573s [00:52:53.031] NAME <- NAMES[[kk]] 1573s [00:52:53.031] if (name != NAME && is.element(NAME, old_names)) 1573s [00:52:53.031] next 1573s [00:52:53.031] args[[name]] <- "" 1573s [00:52:53.031] } 1573s [00:52:53.031] NAMES <- toupper(removed) 1573s [00:52:53.031] for (kk in seq_along(NAMES)) { 1573s [00:52:53.031] name <- removed[[kk]] 1573s [00:52:53.031] NAME <- NAMES[[kk]] 1573s [00:52:53.031] if (name != NAME && is.element(NAME, old_names)) 1573s [00:52:53.031] next 1573s [00:52:53.031] args[[name]] <- ...future.oldEnvVars[[name]] 1573s [00:52:53.031] } 1573s [00:52:53.031] if (length(args) > 0) 1573s [00:52:53.031] base::do.call(base::Sys.setenv, args = args) 1573s [00:52:53.031] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1573s [00:52:53.031] } 1573s [00:52:53.031] else { 1573s [00:52:53.031] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1573s [00:52:53.031] } 1573s [00:52:53.031] { 1573s [00:52:53.031] if (base::length(...future.futureOptionsAdded) > 1573s [00:52:53.031] 0L) { 1573s [00:52:53.031] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1573s [00:52:53.031] base::names(opts) <- ...future.futureOptionsAdded 1573s [00:52:53.031] base::options(opts) 1573s [00:52:53.031] } 1573s [00:52:53.031] { 1573s [00:52:53.031] { 1573s [00:52:53.031] NULL 1573s [00:52:53.031] RNGkind("Mersenne-Twister") 1573s [00:52:53.031] base::rm(list = ".Random.seed", envir = base::globalenv(), 1573s [00:52:53.031] inherits = FALSE) 1573s [00:52:53.031] } 1573s [00:52:53.031] options(future.plan = NULL) 1573s [00:52:53.031] if (is.na(NA_character_)) 1573s [00:52:53.031] Sys.unsetenv("R_FUTURE_PLAN") 1573s [00:52:53.031] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1573s [00:52:53.031] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1573s [00:52:53.031] envir = parent.frame()) 1573s [00:52:53.031] { 1573s [00:52:53.031] default_workers <- missing(workers) 1573s [00:52:53.031] if (is.function(workers)) 1573s [00:52:53.031] workers <- workers() 1573s [00:52:53.031] workers <- structure(as.integer(workers), 1573s [00:52:53.031] class = class(workers)) 1573s [00:52:53.031] stop_if_not(is.finite(workers), workers >= 1573s [00:52:53.031] 1L) 1573s [00:52:53.031] if ((workers == 1L && !inherits(workers, 1573s [00:52:53.031] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1573s [00:52:53.031] if (default_workers) 1573s [00:52:53.031] supportsMulticore(warn = TRUE) 1573s [00:52:53.031] return(sequential(..., envir = envir)) 1573s [00:52:53.031] } 1573s [00:52:53.031] oopts <- options(mc.cores = workers) 1573s [00:52:53.031] on.exit(options(oopts)) 1573s [00:52:53.031] future <- MulticoreFuture(..., workers = workers, 1573s [00:52:53.031] envir = envir) 1573s [00:52:53.031] if (!future$lazy) 1573s [00:52:53.031] future <- run(future) 1573s [00:52:53.031] invisible(future) 1573s [00:52:53.031] }), .cleanup = FALSE, .init = FALSE) 1573s [00:52:53.031] } 1573s [00:52:53.031] } 1573s [00:52:53.031] } 1573s [00:52:53.031] }) 1573s [00:52:53.031] if (TRUE) { 1573s [00:52:53.031] base::sink(type = "output", split = FALSE) 1573s [00:52:53.031] if (TRUE) { 1573s [00:52:53.031] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1573s [00:52:53.031] } 1573s [00:52:53.031] else { 1573s [00:52:53.031] ...future.result["stdout"] <- base::list(NULL) 1573s [00:52:53.031] } 1573s [00:52:53.031] base::close(...future.stdout) 1573s [00:52:53.031] ...future.stdout <- NULL 1573s [00:52:53.031] } 1573s [00:52:53.031] ...future.result$conditions <- ...future.conditions 1573s [00:52:53.031] ...future.result$finished <- base::Sys.time() 1573s [00:52:53.031] ...future.result 1573s [00:52:53.031] } 1573s [00:52:53.041] assign_globals() ... 1573s [00:52:53.042] List of 5 1573s [00:52:53.042] $ ...future.FUN :function (x) 1573s [00:52:53.042] $ future.call.arguments : list() 1573s [00:52:53.042] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1573s [00:52:53.042] $ ...future.elements_ii :List of 3 1573s [00:52:53.042] ..$ a: num 1 1573s [00:52:53.042] ..$ b: num 2 1573s [00:52:53.042] ..$ c: num 3 1573s [00:52:53.042] $ ...future.seeds_ii : NULL 1573s [00:52:53.042] $ ...future.globals.maxSize: NULL 1573s [00:52:53.042] - attr(*, "where")=List of 5 1573s [00:52:53.042] ..$ ...future.FUN : 1573s [00:52:53.042] ..$ future.call.arguments : 1573s [00:52:53.042] ..$ ...future.elements_ii : 1573s [00:52:53.042] ..$ ...future.seeds_ii : 1573s [00:52:53.042] ..$ ...future.globals.maxSize: 1573s [00:52:53.042] - attr(*, "resolved")= logi FALSE 1573s [00:52:53.042] - attr(*, "total_size")= num 848 1573s [00:52:53.042] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1573s [00:52:53.042] - attr(*, "already-done")= logi TRUE 1573s [00:52:53.050] - copied ‘...future.FUN’ to environment 1573s [00:52:53.050] - copied ‘future.call.arguments’ to environment 1573s [00:52:53.050] - copied ‘...future.elements_ii’ to environment 1573s [00:52:53.051] - copied ‘...future.seeds_ii’ to environment 1573s [00:52:53.051] - copied ‘...future.globals.maxSize’ to environment 1573s [00:52:53.051] assign_globals() ... done 1573s [00:52:53.052] plan(): Setting new future strategy stack: 1573s [00:52:53.052] List of future strategies: 1573s [00:52:53.052] 1. sequential: 1573s [00:52:53.052] - args: function (..., envir = parent.frame()) 1573s [00:52:53.052] - tweaked: FALSE 1573s [00:52:53.052] - call: NULL 1573s [00:52:53.057] plan(): nbrOfWorkers() = 1 1573s [00:52:53.058] plan(): Setting new future strategy stack: 1573s [00:52:53.058] List of future strategies: 1573s [00:52:53.058] 1. multicore: 1573s [00:52:53.058] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1573s [00:52:53.058] - tweaked: FALSE 1573s [00:52:53.058] - call: plan(strategy) 1573s [00:52:53.064] plan(): nbrOfWorkers() = 1 1573s [00:52:53.064] SequentialFuture started (and completed) 1573s [00:52:53.064] - Launch lazy future ... done 1573s [00:52:53.065] run() for ‘SequentialFuture’ ... done 1573s [00:52:53.065] Created future: 1573s [00:52:53.065] SequentialFuture: 1573s [00:52:53.065] Label: ‘future_sapply-1’ 1573s [00:52:53.065] Expression: 1573s [00:52:53.065] { 1573s [00:52:53.065] do.call(function(...) { 1573s [00:52:53.065] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1573s [00:52:53.065] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1573s [00:52:53.065] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1573s [00:52:53.065] on.exit(options(oopts), add = TRUE) 1573s [00:52:53.065] } 1573s [00:52:53.065] { 1573s [00:52:53.065] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1573s [00:52:53.065] ...future.X_jj <- ...future.elements_ii[[jj]] 1573s [00:52:53.065] ...future.FUN(...future.X_jj, ...) 1573s [00:52:53.065] }) 1573s [00:52:53.065] } 1573s [00:52:53.065] }, args = future.call.arguments) 1573s [00:52:53.065] } 1573s [00:52:53.065] Lazy evaluation: FALSE 1573s [00:52:53.065] Asynchronous evaluation: FALSE 1573s [00:52:53.065] Local evaluation: TRUE 1573s [00:52:53.065] Environment: R_GlobalEnv 1573s [00:52:53.065] Capture standard output: TRUE 1573s [00:52:53.065] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1573s [00:52:53.065] Globals: 5 objects totaling 0.99 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1573s [00:52:53.065] Packages: 1573s [00:52:53.065] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1573s [00:52:53.065] Resolved: TRUE 1573s [00:52:53.065] Value: 168 bytes of class ‘list’ 1573s [00:52:53.065] Early signaling: FALSE 1573s [00:52:53.065] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1573s [00:52:53.065] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1573s [00:52:53.067] Chunk #1 of 1 ... DONE 1573s [00:52:53.067] Launching 1 futures (chunks) ... DONE 1573s [00:52:53.067] Resolving 1 futures (chunks) ... 1573s [00:52:53.067] resolve() on list ... 1573s [00:52:53.068] recursive: 0 1573s [00:52:53.068] length: 1 1573s [00:52:53.068] 1573s [00:52:53.068] resolved() for ‘SequentialFuture’ ... 1573s [00:52:53.068] - state: ‘finished’ 1573s [00:52:53.068] - run: TRUE 1573s [00:52:53.068] - result: ‘FutureResult’ 1573s [00:52:53.069] resolved() for ‘SequentialFuture’ ... done 1573s [00:52:53.069] Future #1 1573s [00:52:53.069] signalConditionsASAP(SequentialFuture, pos=1) ... 1573s [00:52:53.069] - nx: 1 1573s [00:52:53.070] - relay: TRUE 1573s [00:52:53.070] - stdout: TRUE 1573s [00:52:53.070] - signal: TRUE 1573s [00:52:53.070] - resignal: FALSE 1573s [00:52:53.071] - force: TRUE 1573s [00:52:53.071] - relayed: [n=1] FALSE 1573s [00:52:53.072] - queued futures: [n=1] FALSE 1573s [00:52:53.072] - until=1 1573s [00:52:53.072] - relaying element #1 1573s [00:52:53.072] - relayed: [n=1] TRUE 1573s [00:52:53.072] - queued futures: [n=1] TRUE 1573s [00:52:53.073] signalConditionsASAP(SequentialFuture, pos=1) ... done 1573s [00:52:53.073] length: 0 (resolved future 1) 1573s [00:52:53.073] Relaying remaining futures 1573s [00:52:53.073] signalConditionsASAP(NULL, pos=0) ... 1573s [00:52:53.074] - nx: 1 1573s [00:52:53.074] - relay: TRUE 1573s [00:52:53.074] - stdout: TRUE 1573s [00:52:53.074] - signal: TRUE 1573s [00:52:53.074] - resignal: FALSE 1573s [00:52:53.074] - force: TRUE 1573s [00:52:53.075] - relayed: [n=1] TRUE 1573s [00:52:53.075] - queued futures: [n=1] TRUE 1573s - flush all 1573s [00:52:53.076] - relayed: [n=1] TRUE 1573s [00:52:53.076] - queued futures: [n=1] TRUE 1573s [00:52:53.076] signalConditionsASAP(NULL, pos=0) ... done 1573s [00:52:53.076] resolve() on list ... DONE 1573s [00:52:53.076] - Number of value chunks collected: 1 1573s [00:52:53.076] Resolving 1 futures (chunks) ... DONE 1573s [00:52:53.077] Reducing values from 1 chunks ... 1573s [00:52:53.077] - Number of values collected after concatenation: 3 1573s [00:52:53.077] - Number of values expected: 3 1573s [00:52:53.077] Reducing values from 1 chunks ... DONE 1573s [00:52:53.078] future_lapply() ... DONE 1573s List of 2 1573s $ y0: Named num [1:3] 1 2 3 1573s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1573s $ y1: Named num [1:3] 1 2 3[00:52:53.087] future_lapply() ... 1573s 1573s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1573s [00:52:53.096] Number of chunks: 1 1573s [00:52:53.096] getGlobalsAndPackagesXApply() ... 1573s [00:52:53.096] - future.globals: TRUE 1573s [00:52:53.097] getGlobalsAndPackages() ... 1573s [00:52:53.097] Searching for globals... 1573s [00:52:53.100] - globals found: [2] ‘FUN’, ‘UseMethod’ 1573s [00:52:53.100] Searching for globals ... DONE 1573s [00:52:53.101] Resolving globals: FALSE 1573s [00:52:53.101] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1573s [00:52:53.102] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1573s [00:52:53.103] - globals: [1] ‘FUN’ 1573s [00:52:53.103] 1573s [00:52:53.104] getGlobalsAndPackages() ... DONE 1573s [00:52:53.104] - globals found/used: [n=1] ‘FUN’ 1573s [00:52:53.104] - needed namespaces: [n=0] 1573s [00:52:53.104] Finding globals ... DONE 1573s [00:52:53.104] - use_args: TRUE 1573s [00:52:53.105] - Getting '...' globals ... 1573s [00:52:53.106] resolve() on list ... 1573s [00:52:53.106] recursive: 0 1573s [00:52:53.106] length: 1 1573s [00:52:53.107] elements: ‘...’ 1573s [00:52:53.107] length: 0 (resolved future 1) 1573s [00:52:53.107] resolve() on list ... DONE 1573s [00:52:53.107] - '...' content: [n=0] 1573s [00:52:53.108] List of 1 1573s [00:52:53.108] $ ...: list() 1573s [00:52:53.108] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1573s [00:52:53.108] - attr(*, "where")=List of 1 1573s [00:52:53.108] ..$ ...: 1573s [00:52:53.108] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1573s [00:52:53.108] - attr(*, "resolved")= logi TRUE 1573s [00:52:53.108] - attr(*, "total_size")= num NA 1573s [00:52:53.173] - Getting '...' globals ... DONE 1573s [00:52:53.174] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1573s [00:52:53.174] List of 2 1573s [00:52:53.174] $ ...future.FUN:function (x, ...) 1573s [00:52:53.174] $ ... : list() 1573s [00:52:53.174] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1573s [00:52:53.174] - attr(*, "where")=List of 2 1573s [00:52:53.174] ..$ ...future.FUN: 1573s [00:52:53.174] ..$ ... : 1573s [00:52:53.174] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1573s [00:52:53.174] - attr(*, "resolved")= logi FALSE 1573s [00:52:53.174] - attr(*, "total_size")= num 1248 1573s [00:52:53.179] Packages to be attached in all futures: [n=0] 1573s [00:52:53.179] getGlobalsAndPackagesXApply() ... DONE 1573s [00:52:53.179] Number of futures (= number of chunks): 1 1573s [00:52:53.180] Launching 1 futures (chunks) ... 1573s [00:52:53.180] Chunk #1 of 1 ... 1573s [00:52:53.180] - Finding globals in 'X' for chunk #1 ... 1573s [00:52:53.180] getGlobalsAndPackages() ... 1573s [00:52:53.181] Searching for globals... 1573s [00:52:53.181] 1573s [00:52:53.182] Searching for globals ... DONE 1573s [00:52:53.182] - globals: [0] 1573s [00:52:53.182] getGlobalsAndPackages() ... DONE 1573s [00:52:53.182] + additional globals found: [n=0] 1573s [00:52:53.183] + additional namespaces needed: [n=0] 1573s [00:52:53.183] - Finding globals in 'X' for chunk #1 ... DONE 1573s [00:52:53.183] - seeds: 1573s [00:52:53.183] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1573s [00:52:53.184] getGlobalsAndPackages() ... 1573s [00:52:53.184] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1573s [00:52:53.184] Resolving globals: FALSE 1573s [00:52:53.184] Tweak future expression to call with '...' arguments ... 1573s [00:52:53.185] { 1573s [00:52:53.185] do.call(function(...) { 1573s [00:52:53.185] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1573s [00:52:53.185] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1573s [00:52:53.185] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1573s [00:52:53.185] on.exit(options(oopts), add = TRUE) 1573s [00:52:53.185] } 1573s [00:52:53.185] { 1573s [00:52:53.185] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1573s [00:52:53.185] ...future.X_jj <- ...future.elements_ii[[jj]] 1573s [00:52:53.185] ...future.FUN(...future.X_jj, ...) 1573s [00:52:53.185] }) 1573s [00:52:53.185] } 1573s [00:52:53.185] }, args = future.call.arguments) 1573s [00:52:53.185] } 1573s [00:52:53.185] Tweak future expression to call with '...' arguments ... DONE 1573s [00:52:53.186] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1573s [00:52:53.186] 1573s [00:52:53.187] getGlobalsAndPackages() ... DONE 1573s [00:52:53.187] run() for ‘Future’ ... 1573s [00:52:53.187] - state: ‘created’ 1573s [00:52:53.188] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1573s [00:52:53.193] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1573s [00:52:53.193] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1573s [00:52:53.194] - Field: ‘label’ 1573s [00:52:53.194] - Field: ‘local’ 1573s [00:52:53.195] - Field: ‘owner’ 1573s [00:52:53.195] - Field: ‘envir’ 1573s [00:52:53.195] - Field: ‘packages’ 1573s [00:52:53.195] - Field: ‘gc’ 1573s [00:52:53.196] - Field: ‘conditions’ 1573s [00:52:53.197] - Field: ‘expr’ 1573s [00:52:53.197] - Field: ‘uuid’ 1573s [00:52:53.197] - Field: ‘seed’ 1573s [00:52:53.197] - Field: ‘version’ 1573s [00:52:53.198] - Field: ‘result’ 1573s [00:52:53.198] - Field: ‘asynchronous’ 1573s [00:52:53.198] - Field: ‘calls’ 1573s [00:52:53.198] - Field: ‘globals’ 1573s [00:52:53.199] - Field: ‘stdout’ 1573s [00:52:53.199] - Field: ‘earlySignal’ 1573s [00:52:53.200] - Field: ‘lazy’ 1573s [00:52:53.200] - Field: ‘state’ 1573s [00:52:53.201] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1573s [00:52:53.201] - Launch lazy future ... 1573s [00:52:53.202] Packages needed by the future expression (n = 0): 1573s [00:52:53.202] Packages needed by future strategies (n = 0): 1573s [00:52:53.203] { 1573s [00:52:53.203] { 1573s [00:52:53.203] { 1573s [00:52:53.203] ...future.startTime <- base::Sys.time() 1573s [00:52:53.203] { 1573s [00:52:53.203] { 1573s [00:52:53.203] { 1573s [00:52:53.203] base::local({ 1573s [00:52:53.203] has_future <- base::requireNamespace("future", 1573s [00:52:53.203] quietly = TRUE) 1573s [00:52:53.203] if (has_future) { 1573s [00:52:53.203] ns <- base::getNamespace("future") 1573s [00:52:53.203] version <- ns[[".package"]][["version"]] 1573s [00:52:53.203] if (is.null(version)) 1573s [00:52:53.203] version <- utils::packageVersion("future") 1573s [00:52:53.203] } 1573s [00:52:53.203] else { 1573s [00:52:53.203] version <- NULL 1573s [00:52:53.203] } 1573s [00:52:53.203] if (!has_future || version < "1.8.0") { 1573s [00:52:53.203] info <- base::c(r_version = base::gsub("R version ", 1573s [00:52:53.203] "", base::R.version$version.string), 1573s [00:52:53.203] platform = base::sprintf("%s (%s-bit)", 1573s [00:52:53.203] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1573s [00:52:53.203] os = base::paste(base::Sys.info()[base::c("sysname", 1573s [00:52:53.203] "release", "version")], collapse = " "), 1573s [00:52:53.203] hostname = base::Sys.info()[["nodename"]]) 1573s [00:52:53.203] info <- base::sprintf("%s: %s", base::names(info), 1573s [00:52:53.203] info) 1573s [00:52:53.203] info <- base::paste(info, collapse = "; ") 1573s [00:52:53.203] if (!has_future) { 1573s [00:52:53.203] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1573s [00:52:53.203] info) 1573s [00:52:53.203] } 1573s [00:52:53.203] else { 1573s [00:52:53.203] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1573s [00:52:53.203] info, version) 1573s [00:52:53.203] } 1573s [00:52:53.203] base::stop(msg) 1573s [00:52:53.203] } 1573s [00:52:53.203] }) 1573s [00:52:53.203] } 1573s [00:52:53.203] options(future.plan = NULL) 1573s [00:52:53.203] Sys.unsetenv("R_FUTURE_PLAN") 1573s [00:52:53.203] future::plan("default", .cleanup = FALSE, .init = FALSE) 1573s [00:52:53.203] } 1573s [00:52:53.203] ...future.workdir <- getwd() 1573s [00:52:53.203] } 1573s [00:52:53.203] ...future.oldOptions <- base::as.list(base::.Options) 1573s [00:52:53.203] ...future.oldEnvVars <- base::Sys.getenv() 1573s [00:52:53.203] } 1573s [00:52:53.203] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1573s [00:52:53.203] future.globals.maxSize = NULL, future.globals.method = NULL, 1573s [00:52:53.203] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1573s [00:52:53.203] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1573s [00:52:53.203] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1573s [00:52:53.203] future.stdout.windows.reencode = NULL, width = 80L) 1573s [00:52:53.203] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1573s [00:52:53.203] base::names(...future.oldOptions)) 1573s [00:52:53.203] } 1573s [00:52:53.203] if (FALSE) { 1573s [00:52:53.203] } 1573s [00:52:53.203] else { 1573s [00:52:53.203] if (TRUE) { 1573s [00:52:53.203] ...future.stdout <- base::rawConnection(base::raw(0L), 1573s [00:52:53.203] open = "w") 1573s [00:52:53.203] } 1573s [00:52:53.203] else { 1573s [00:52:53.203] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1573s [00:52:53.203] windows = "NUL", "/dev/null"), open = "w") 1573s [00:52:53.203] } 1573s [00:52:53.203] base::sink(...future.stdout, type = "output", split = FALSE) 1573s [00:52:53.203] base::on.exit(if (!base::is.null(...future.stdout)) { 1573s [00:52:53.203] base::sink(type = "output", split = FALSE) 1573s [00:52:53.203] base::close(...future.stdout) 1573s [00:52:53.203] }, add = TRUE) 1573s [00:52:53.203] } 1573s [00:52:53.203] ...future.frame <- base::sys.nframe() 1573s [00:52:53.203] ...future.conditions <- base::list() 1573s [00:52:53.203] ...future.rng <- base::globalenv()$.Random.seed 1573s [00:52:53.203] if (FALSE) { 1573s [00:52:53.203] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1573s [00:52:53.203] "...future.value", "...future.globalenv.names", ".Random.seed") 1573s [00:52:53.203] } 1573s [00:52:53.203] ...future.result <- base::tryCatch({ 1573s [00:52:53.203] base::withCallingHandlers({ 1573s [00:52:53.203] ...future.value <- base::withVisible(base::local({ 1573s [00:52:53.203] do.call(function(...) { 1573s [00:52:53.203] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1573s [00:52:53.203] if (!identical(...future.globals.maxSize.org, 1573s [00:52:53.203] ...future.globals.maxSize)) { 1573s [00:52:53.203] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1573s [00:52:53.203] on.exit(options(oopts), add = TRUE) 1573s [00:52:53.203] } 1573s [00:52:53.203] { 1573s [00:52:53.203] lapply(seq_along(...future.elements_ii), 1573s [00:52:53.203] FUN = function(jj) { 1573s [00:52:53.203] ...future.X_jj <- ...future.elements_ii[[jj]] 1573s [00:52:53.203] ...future.FUN(...future.X_jj, ...) 1573s [00:52:53.203] }) 1573s [00:52:53.203] } 1573s [00:52:53.203] }, args = future.call.arguments) 1573s [00:52:53.203] })) 1573s [00:52:53.203] future::FutureResult(value = ...future.value$value, 1573s [00:52:53.203] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1573s [00:52:53.203] ...future.rng), globalenv = if (FALSE) 1573s [00:52:53.203] list(added = base::setdiff(base::names(base::.GlobalEnv), 1573s [00:52:53.203] ...future.globalenv.names)) 1573s [00:52:53.203] else NULL, started = ...future.startTime, version = "1.8") 1573s [00:52:53.203] }, condition = base::local({ 1573s [00:52:53.203] c <- base::c 1573s [00:52:53.203] inherits <- base::inherits 1573s [00:52:53.203] invokeRestart <- base::invokeRestart 1573s [00:52:53.203] length <- base::length 1573s [00:52:53.203] list <- base::list 1573s [00:52:53.203] seq.int <- base::seq.int 1573s [00:52:53.203] signalCondition <- base::signalCondition 1573s [00:52:53.203] sys.calls <- base::sys.calls 1573s [00:52:53.203] `[[` <- base::`[[` 1573s [00:52:53.203] `+` <- base::`+` 1573s [00:52:53.203] `<<-` <- base::`<<-` 1573s [00:52:53.203] sysCalls <- function(calls = sys.calls(), from = 1L) { 1573s [00:52:53.203] calls[seq.int(from = from + 12L, to = length(calls) - 1573s [00:52:53.203] 3L)] 1573s [00:52:53.203] } 1573s [00:52:53.203] function(cond) { 1573s [00:52:53.203] is_error <- inherits(cond, "error") 1573s [00:52:53.203] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1573s [00:52:53.203] NULL) 1573s [00:52:53.203] if (is_error) { 1573s [00:52:53.203] sessionInformation <- function() { 1573s [00:52:53.203] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1573s [00:52:53.203] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1573s [00:52:53.203] search = base::search(), system = base::Sys.info()) 1573s [00:52:53.203] } 1573s [00:52:53.203] ...future.conditions[[length(...future.conditions) + 1573s [00:52:53.203] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1573s [00:52:53.203] cond$call), session = sessionInformation(), 1573s [00:52:53.203] timestamp = base::Sys.time(), signaled = 0L) 1573s [00:52:53.203] signalCondition(cond) 1573s [00:52:53.203] } 1573s [00:52:53.203] else if (!ignore && TRUE && inherits(cond, c("condition", 1573s [00:52:53.203] "immediateCondition"))) { 1573s [00:52:53.203] signal <- TRUE && inherits(cond, "immediateCondition") 1573s [00:52:53.203] ...future.conditions[[length(...future.conditions) + 1573s [00:52:53.203] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1573s [00:52:53.203] if (TRUE && !signal) { 1573s [00:52:53.203] muffleCondition <- function (cond, pattern = "^muffle") 1573s [00:52:53.203] { 1573s [00:52:53.203] inherits <- base::inherits 1573s [00:52:53.203] invokeRestart <- base::invokeRestart 1573s [00:52:53.203] is.null <- base::is.null 1573s [00:52:53.203] muffled <- FALSE 1573s [00:52:53.203] if (inherits(cond, "message")) { 1573s [00:52:53.203] muffled <- grepl(pattern, "muffleMessage") 1573s [00:52:53.203] if (muffled) 1573s [00:52:53.203] invokeRestart("muffleMessage") 1573s [00:52:53.203] } 1573s [00:52:53.203] else if (inherits(cond, "warning")) { 1573s [00:52:53.203] muffled <- grepl(pattern, "muffleWarning") 1573s [00:52:53.203] if (muffled) 1573s [00:52:53.203] invokeRestart("muffleWarning") 1573s [00:52:53.203] } 1573s [00:52:53.203] else if (inherits(cond, "condition")) { 1573s [00:52:53.203] if (!is.null(pattern)) { 1573s [00:52:53.203] computeRestarts <- base::computeRestarts 1573s [00:52:53.203] grepl <- base::grepl 1573s [00:52:53.203] restarts <- computeRestarts(cond) 1573s [00:52:53.203] for (restart in restarts) { 1573s [00:52:53.203] name <- restart$name 1573s [00:52:53.203] if (is.null(name)) 1573s [00:52:53.203] next 1573s [00:52:53.203] if (!grepl(pattern, name)) 1573s [00:52:53.203] next 1573s [00:52:53.203] invokeRestart(restart) 1573s [00:52:53.203] muffled <- TRUE 1573s [00:52:53.203] break 1573s [00:52:53.203] } 1573s [00:52:53.203] } 1573s [00:52:53.203] } 1573s [00:52:53.203] invisible(muffled) 1573s [00:52:53.203] } 1573s [00:52:53.203] muffleCondition(cond, pattern = "^muffle") 1573s [00:52:53.203] } 1573s [00:52:53.203] } 1573s [00:52:53.203] else { 1573s [00:52:53.203] if (TRUE) { 1573s [00:52:53.203] muffleCondition <- function (cond, pattern = "^muffle") 1573s [00:52:53.203] { 1573s [00:52:53.203] inherits <- base::inherits 1573s [00:52:53.203] invokeRestart <- base::invokeRestart 1573s [00:52:53.203] is.null <- base::is.null 1573s [00:52:53.203] muffled <- FALSE 1573s [00:52:53.203] if (inherits(cond, "message")) { 1573s [00:52:53.203] muffled <- grepl(pattern, "muffleMessage") 1573s [00:52:53.203] if (muffled) 1573s [00:52:53.203] invokeRestart("muffleMessage") 1573s [00:52:53.203] } 1573s [00:52:53.203] else if (inherits(cond, "warning")) { 1573s [00:52:53.203] muffled <- grepl(pattern, "muffleWarning") 1573s [00:52:53.203] if (muffled) 1573s [00:52:53.203] invokeRestart("muffleWarning") 1573s [00:52:53.203] } 1573s [00:52:53.203] else if (inherits(cond, "condition")) { 1573s [00:52:53.203] if (!is.null(pattern)) { 1573s [00:52:53.203] computeRestarts <- base::computeRestarts 1573s [00:52:53.203] grepl <- base::grepl 1573s [00:52:53.203] restarts <- computeRestarts(cond) 1573s [00:52:53.203] for (restart in restarts) { 1573s [00:52:53.203] name <- restart$name 1573s [00:52:53.203] if (is.null(name)) 1573s [00:52:53.203] next 1573s [00:52:53.203] if (!grepl(pattern, name)) 1573s [00:52:53.203] next 1573s [00:52:53.203] invokeRestart(restart) 1573s [00:52:53.203] muffled <- TRUE 1573s [00:52:53.203] break 1573s [00:52:53.203] } 1573s [00:52:53.203] } 1573s [00:52:53.203] } 1573s [00:52:53.203] invisible(muffled) 1573s [00:52:53.203] } 1573s [00:52:53.203] muffleCondition(cond, pattern = "^muffle") 1573s [00:52:53.203] } 1573s [00:52:53.203] } 1573s [00:52:53.203] } 1573s [00:52:53.203] })) 1573s [00:52:53.203] }, error = function(ex) { 1573s [00:52:53.203] base::structure(base::list(value = NULL, visible = NULL, 1573s [00:52:53.203] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1573s [00:52:53.203] ...future.rng), started = ...future.startTime, 1573s [00:52:53.203] finished = Sys.time(), session_uuid = NA_character_, 1573s [00:52:53.203] version = "1.8"), class = "FutureResult") 1573s [00:52:53.203] }, finally = { 1573s [00:52:53.203] if (!identical(...future.workdir, getwd())) 1573s [00:52:53.203] setwd(...future.workdir) 1573s [00:52:53.203] { 1573s [00:52:53.203] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1573s [00:52:53.203] ...future.oldOptions$nwarnings <- NULL 1573s [00:52:53.203] } 1573s [00:52:53.203] base::options(...future.oldOptions) 1573s [00:52:53.203] if (.Platform$OS.type == "windows") { 1573s [00:52:53.203] old_names <- names(...future.oldEnvVars) 1573s [00:52:53.203] envs <- base::Sys.getenv() 1573s [00:52:53.203] names <- names(envs) 1573s [00:52:53.203] common <- intersect(names, old_names) 1573s [00:52:53.203] added <- setdiff(names, old_names) 1573s [00:52:53.203] removed <- setdiff(old_names, names) 1573s [00:52:53.203] changed <- common[...future.oldEnvVars[common] != 1573s [00:52:53.203] envs[common]] 1573s [00:52:53.203] NAMES <- toupper(changed) 1573s [00:52:53.203] args <- list() 1573s [00:52:53.203] for (kk in seq_along(NAMES)) { 1573s [00:52:53.203] name <- changed[[kk]] 1573s [00:52:53.203] NAME <- NAMES[[kk]] 1573s [00:52:53.203] if (name != NAME && is.element(NAME, old_names)) 1573s [00:52:53.203] next 1573s [00:52:53.203] args[[name]] <- ...future.oldEnvVars[[name]] 1573s [00:52:53.203] } 1573s [00:52:53.203] NAMES <- toupper(added) 1573s [00:52:53.203] for (kk in seq_along(NAMES)) { 1573s [00:52:53.203] name <- added[[kk]] 1573s [00:52:53.203] NAME <- NAMES[[kk]] 1573s [00:52:53.203] if (name != NAME && is.element(NAME, old_names)) 1573s [00:52:53.203] next 1573s [00:52:53.203] args[[name]] <- "" 1573s [00:52:53.203] } 1573s [00:52:53.203] NAMES <- toupper(removed) 1573s [00:52:53.203] for (kk in seq_along(NAMES)) { 1573s [00:52:53.203] name <- removed[[kk]] 1573s [00:52:53.203] NAME <- NAMES[[kk]] 1573s [00:52:53.203] if (name != NAME && is.element(NAME, old_names)) 1573s [00:52:53.203] next 1573s [00:52:53.203] args[[name]] <- ...future.oldEnvVars[[name]] 1573s [00:52:53.203] } 1573s [00:52:53.203] if (length(args) > 0) 1573s [00:52:53.203] base::do.call(base::Sys.setenv, args = args) 1573s [00:52:53.203] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1573s [00:52:53.203] } 1573s [00:52:53.203] else { 1573s [00:52:53.203] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1573s [00:52:53.203] } 1573s [00:52:53.203] { 1573s [00:52:53.203] if (base::length(...future.futureOptionsAdded) > 1573s [00:52:53.203] 0L) { 1573s [00:52:53.203] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1573s [00:52:53.203] base::names(opts) <- ...future.futureOptionsAdded 1573s [00:52:53.203] base::options(opts) 1573s [00:52:53.203] } 1573s [00:52:53.203] { 1573s [00:52:53.203] { 1573s [00:52:53.203] NULL 1573s [00:52:53.203] RNGkind("Mersenne-Twister") 1573s [00:52:53.203] base::rm(list = ".Random.seed", envir = base::globalenv(), 1573s [00:52:53.203] inherits = FALSE) 1573s [00:52:53.203] } 1573s [00:52:53.203] options(future.plan = NULL) 1573s [00:52:53.203] if (is.na(NA_character_)) 1573s [00:52:53.203] Sys.unsetenv("R_FUTURE_PLAN") 1573s [00:52:53.203] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1573s [00:52:53.203] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1573s [00:52:53.203] envir = parent.frame()) 1573s [00:52:53.203] { 1573s [00:52:53.203] default_workers <- missing(workers) 1573s [00:52:53.203] if (is.function(workers)) 1573s [00:52:53.203] workers <- workers() 1573s [00:52:53.203] workers <- structure(as.integer(workers), 1573s [00:52:53.203] class = class(workers)) 1573s [00:52:53.203] stop_if_not(is.finite(workers), workers >= 1573s [00:52:53.203] 1L) 1573s [00:52:53.203] if ((workers == 1L && !inherits(workers, 1573s [00:52:53.203] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1573s [00:52:53.203] if (default_workers) 1573s [00:52:53.203] supportsMulticore(warn = TRUE) 1573s [00:52:53.203] return(sequential(..., envir = envir)) 1573s [00:52:53.203] } 1573s [00:52:53.203] oopts <- options(mc.cores = workers) 1573s [00:52:53.203] on.exit(options(oopts)) 1573s [00:52:53.203] future <- MulticoreFuture(..., workers = workers, 1573s [00:52:53.203] envir = envir) 1573s [00:52:53.203] if (!future$lazy) 1573s [00:52:53.203] future <- run(future) 1573s [00:52:53.203] invisible(future) 1573s [00:52:53.203] }), .cleanup = FALSE, .init = FALSE) 1573s [00:52:53.203] } 1573s [00:52:53.203] } 1573s [00:52:53.203] } 1573s [00:52:53.203] }) 1573s [00:52:53.203] if (TRUE) { 1573s [00:52:53.203] base::sink(type = "output", split = FALSE) 1573s [00:52:53.203] if (TRUE) { 1573s [00:52:53.203] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1573s [00:52:53.203] } 1573s [00:52:53.203] else { 1573s [00:52:53.203] ...future.result["stdout"] <- base::list(NULL) 1573s [00:52:53.203] } 1573s [00:52:53.203] base::close(...future.stdout) 1573s [00:52:53.203] ...future.stdout <- NULL 1573s [00:52:53.203] } 1573s [00:52:53.203] ...future.result$conditions <- ...future.conditions 1573s [00:52:53.203] ...future.result$finished <- base::Sys.time() 1573s [00:52:53.203] ...future.result 1573s [00:52:53.203] } 1573s [00:52:53.207] assign_globals() ... 1573s [00:52:53.207] List of 5 1573s [00:52:53.207] $ ...future.FUN :function (x, ...) 1573s [00:52:53.207] $ future.call.arguments : list() 1573s [00:52:53.207] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1573s [00:52:53.207] $ ...future.elements_ii :List of 3 1573s [00:52:53.207] ..$ a: num 1 1573s [00:52:53.207] ..$ b: num 2 1573s [00:52:53.207] ..$ c: num 3 1573s [00:52:53.207] $ ...future.seeds_ii : NULL 1573s [00:52:53.207] $ ...future.globals.maxSize: NULL 1573s [00:52:53.207] - attr(*, "where")=List of 5 1573s [00:52:53.207] ..$ ...future.FUN : 1573s [00:52:53.207] ..$ future.call.arguments : 1573s [00:52:53.207] ..$ ...future.elements_ii : 1573s [00:52:53.207] ..$ ...future.seeds_ii : 1573s [00:52:53.207] ..$ ...future.globals.maxSize: 1573s [00:52:53.207] - attr(*, "resolved")= logi FALSE 1573s [00:52:53.207] - attr(*, "total_size")= num 1248 1573s [00:52:53.207] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1573s [00:52:53.207] - attr(*, "already-done")= logi TRUE 1573s [00:52:53.216] - copied ‘...future.FUN’ to environment 1573s [00:52:53.216] - copied ‘future.call.arguments’ to environment 1573s [00:52:53.216] - copied ‘...future.elements_ii’ to environment 1573s [00:52:53.217] - copied ‘...future.seeds_ii’ to environment 1573s [00:52:53.217] - copied ‘...future.globals.maxSize’ to environment 1573s [00:52:53.217] assign_globals() ... done 1573s [00:52:53.218] plan(): Setting new future strategy stack: 1573s [00:52:53.218] List of future strategies: 1573s [00:52:53.218] 1. sequential: 1573s [00:52:53.218] - args: function (..., envir = parent.frame()) 1573s [00:52:53.218] - tweaked: FALSE 1573s [00:52:53.218] - call: NULL 1573s [00:52:53.218] plan(): nbrOfWorkers() = 1 1573s [00:52:53.220] plan(): Setting new future strategy stack: 1573s [00:52:53.220] List of future strategies: 1573s [00:52:53.220] 1. multicore: 1573s [00:52:53.220] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1573s [00:52:53.220] - tweaked: FALSE 1573s [00:52:53.220] - call: plan(strategy) 1573s [00:52:53.226] plan(): nbrOfWorkers() = 1 1573s [00:52:53.226] SequentialFuture started (and completed) 1573s [00:52:53.226] - Launch lazy future ... done 1573s [00:52:53.227] run() for ‘SequentialFuture’ ... done 1573s [00:52:53.227] Created future: 1573s [00:52:53.227] SequentialFuture: 1573s [00:52:53.227] Label: ‘future_sapply-1’ 1573s [00:52:53.227] Expression: 1573s [00:52:53.227] { 1573s [00:52:53.227] do.call(function(...) { 1573s [00:52:53.227] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1573s [00:52:53.227] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1573s [00:52:53.227] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1573s [00:52:53.227] on.exit(options(oopts), add = TRUE) 1573s [00:52:53.227] } 1573s [00:52:53.227] { 1573s [00:52:53.227] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1573s [00:52:53.227] ...future.X_jj <- ...future.elements_ii[[jj]] 1573s [00:52:53.227] ...future.FUN(...future.X_jj, ...) 1573s [00:52:53.227] }) 1573s [00:52:53.227] } 1573s [00:52:53.227] }, args = future.call.arguments) 1573s [00:52:53.227] } 1573s [00:52:53.227] Lazy evaluation: FALSE 1573s [00:52:53.227] Asynchronous evaluation: FALSE 1573s [00:52:53.227] Local evaluation: TRUE 1573s [00:52:53.227] Environment: R_GlobalEnv 1573s [00:52:53.227] Capture standard output: TRUE 1573s [00:52:53.227] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1573s [00:52:53.227] Globals: 5 objects totaling 1.38 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1573s [00:52:53.227] Packages: 1573s [00:52:53.227] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1573s [00:52:53.227] Resolved: TRUE 1573s [00:52:53.227] Value: 672 bytes of class ‘list’ 1573s [00:52:53.227] Early signaling: FALSE 1573s [00:52:53.227] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1573s [00:52:53.227] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1573s [00:52:53.229] Chunk #1 of 1 ... DONE 1573s [00:52:53.230] Launching 1 futures (chunks) ... DONE 1573s [00:52:53.230] Resolving 1 futures (chunks) ... 1573s [00:52:53.230] resolve() on list ... 1573s [00:52:53.231] recursive: 0 1573s [00:52:53.231] length: 1 1573s [00:52:53.231] 1573s [00:52:53.231] resolved() for ‘SequentialFuture’ ... 1573s [00:52:53.232] - state: ‘finished’ 1573s [00:52:53.232] - run: TRUE 1573s [00:52:53.232] - result: ‘FutureResult’ 1573s [00:52:53.232] resolved() for ‘SequentialFuture’ ... done 1573s [00:52:53.232] Future #1 1573s [00:52:53.233] signalConditionsASAP(SequentialFuture, pos=1) ... 1573s [00:52:53.233] - nx: 1 1573s [00:52:53.233] - relay: TRUE 1573s [00:52:53.233] - stdout: TRUE 1573s [00:52:53.233] - signal: TRUE 1573s [00:52:53.234] - resignal: FALSE 1573s List of 2 1573s $ y0:[00:52:53.234] - force: TRUE 1573s [00:52:53.235] - relayed: [n=1] FALSE 1573s [00:52:53.235] - queued futures: [n=1] FALSE 1573s [00:52:53.235] - until=1 1573s [00:52:53.236] - relaying element #1 1573s [00:52:53.236] - relayed: [n=1] TRUE 1573s [00:52:53.236] - queued futures: [n=1] TRUE 1573s [00:52:53.236] signalConditionsASAP(SequentialFuture, pos=1) ... done 1573s [00:52:53.236] length: 0 (resolved future 1) 1573s [00:52:53.236] Relaying remaining futures 1573s [00:52:53.237] signalConditionsASAP(NULL, pos=0) ... 1573s [00:52:53.237] - nx: 1 1573s [00:52:53.237] - relay: TRUE 1573s [00:52:53.237] - stdout: TRUE 1573s [00:52:53.237] - signal: TRUE 1573s [00:52:53.237] - resignal: FALSE 1573s [00:52:53.237] - force: TRUE 1573s [00:52:53.238] - relayed: [n=1] TRUE 1573s [00:52:53.238] - queued futures: [n=1] TRUE 1573s - flush all 1573s [00:52:53.238] - relayed: [n=1] TRUE 1573s [00:52:53.238] - queued futures: [n=1] TRUE 1573s [00:52:53.238] signalConditionsASAP(NULL, pos=0) ... done 1573s [00:52:53.238] resolve() on list ... DONE 1573s [00:52:53.239] - Number of value chunks collected: 1 1573s [00:52:53.239] Resolving 1 futures (chunks) ... DONE 1573s [00:52:53.239] Reducing values from 1 chunks ... 1573s [00:52:53.239] - Number of values collected after concatenation: 3 1573s [00:52:53.239] - Number of values expected: 3 1573s [00:52:53.239] Reducing values from 1 chunks ... DONE 1573s [00:52:53.239] future_lapply() ... DONE 1573s Named num [1:3] 1 2 3 1573s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1573s $ y1: Named num [1:3] 1 2 3 1573s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1573s [00:52:53.243] future_lapply() ... 1573s [00:52:53.249] Number of chunks: 1 1573s [00:52:53.249] getGlobalsAndPackagesXApply() ... 1573s [00:52:53.249] - future.globals: TRUE 1573s [00:52:53.249] getGlobalsAndPackages() ... 1573s [00:52:53.250] Searching for globals... 1573s [00:52:53.252] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1573s [00:52:53.252] Searching for globals ... DONE 1573s [00:52:53.252] Resolving globals: FALSE 1573s [00:52:53.253] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1573s [00:52:53.254] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1573s [00:52:53.255] - globals: [1] ‘FUN’ 1573s [00:52:53.255] 1573s [00:52:53.255] getGlobalsAndPackages() ... DONE 1573s [00:52:53.256] - globals found/used: [n=1] ‘FUN’ 1573s [00:52:53.256] - needed namespaces: [n=0] 1573s [00:52:53.256] Finding globals ... DONE 1573s [00:52:53.256] - use_args: TRUE 1573s [00:52:53.256] - Getting '...' globals ... 1573s [00:52:53.257] resolve() on list ... 1573s [00:52:53.257] recursive: 0 1573s [00:52:53.257] length: 1 1573s [00:52:53.257] elements: ‘...’ 1573s [00:52:53.257] length: 0 (resolved future 1) 1573s [00:52:53.257] resolve() on list ... DONE 1573s [00:52:53.258] - '...' content: [n=0] 1573s [00:52:53.258] List of 1 1573s [00:52:53.258] $ ...: list() 1573s [00:52:53.258] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1573s [00:52:53.258] - attr(*, "where")=List of 1 1573s [00:52:53.258] ..$ ...: 1573s [00:52:53.258] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1573s [00:52:53.258] - attr(*, "resolved")= logi TRUE 1573s [00:52:53.258] - attr(*, "total_size")= num NA 1573s [00:52:53.263] - Getting '...' globals ... DONE 1573s [00:52:53.263] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1573s [00:52:53.264] List of 2 1573s [00:52:53.264] $ ...future.FUN:function (x, y = 2 * 1:5) 1573s [00:52:53.264] $ ... : list() 1573s [00:52:53.264] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1573s [00:52:53.264] - attr(*, "where")=List of 2 1573s [00:52:53.264] ..$ ...future.FUN: 1573s [00:52:53.264] ..$ ... : 1573s [00:52:53.264] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1573s [00:52:53.264] - attr(*, "resolved")= logi FALSE 1573s [00:52:53.264] - attr(*, "total_size")= num 4728 1573s [00:52:53.269] Packages to be attached in all futures: [n=0] 1573s [00:52:53.269] getGlobalsAndPackagesXApply() ... DONE 1573s [00:52:53.269] Number of futures (= number of chunks): 1 1573s [00:52:53.270] Launching 1 futures (chunks) ... 1573s [00:52:53.270] Chunk #1 of 1 ... 1573s [00:52:53.271] - Finding globals in 'X' for chunk #1 ... 1573s [00:52:53.271] getGlobalsAndPackages() ... 1573s [00:52:53.271] Searching for globals... 1573s [00:52:53.272] 1573s [00:52:53.273] Searching for globals ... DONE 1573s [00:52:53.273] - globals: [0] 1573s [00:52:53.273] getGlobalsAndPackages() ... DONE 1573s [00:52:53.273] + additional globals found: [n=0] 1573s [00:52:53.273] + additional namespaces needed: [n=0] 1573s [00:52:53.273] - Finding globals in 'X' for chunk #1 ... DONE 1573s [00:52:53.274] - seeds: 1573s [00:52:53.274] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1573s [00:52:53.274] getGlobalsAndPackages() ... 1573s [00:52:53.274] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1573s [00:52:53.275] Resolving globals: FALSE 1573s [00:52:53.275] Tweak future expression to call with '...' arguments ... 1573s [00:52:53.275] { 1573s [00:52:53.275] do.call(function(...) { 1573s [00:52:53.275] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1573s [00:52:53.275] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1573s [00:52:53.275] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1573s [00:52:53.275] on.exit(options(oopts), add = TRUE) 1573s [00:52:53.275] } 1573s [00:52:53.275] { 1573s [00:52:53.275] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1573s [00:52:53.275] ...future.X_jj <- ...future.elements_ii[[jj]] 1573s [00:52:53.275] ...future.FUN(...future.X_jj, ...) 1573s [00:52:53.275] }) 1573s [00:52:53.275] } 1573s [00:52:53.275] }, args = future.call.arguments) 1573s [00:52:53.275] } 1573s [00:52:53.276] Tweak future expression to call with '...' arguments ... DONE 1573s [00:52:53.276] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1573s [00:52:53.277] 1573s [00:52:53.277] getGlobalsAndPackages() ... DONE 1573s [00:52:53.277] run() for ‘Future’ ... 1573s [00:52:53.277] - state: ‘created’ 1573s [00:52:53.278] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1573s [00:52:53.282] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1573s [00:52:53.283] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1573s [00:52:53.283] - Field: ‘label’ 1573s [00:52:53.283] - Field: ‘local’ 1573s [00:52:53.283] - Field: ‘owner’ 1573s [00:52:53.284] - Field: ‘envir’ 1573s [00:52:53.284] - Field: ‘packages’ 1573s [00:52:53.284] - Field: ‘gc’ 1573s [00:52:53.284] - Field: ‘conditions’ 1573s [00:52:53.284] - Field: ‘expr’ 1573s [00:52:53.284] - Field: ‘uuid’ 1573s [00:52:53.285] - Field: ‘seed’ 1573s [00:52:53.285] - Field: ‘version’ 1573s [00:52:53.285] - Field: ‘result’ 1573s [00:52:53.285] - Field: ‘asynchronous’ 1573s [00:52:53.285] - Field: ‘calls’ 1573s [00:52:53.286] - Field: ‘globals’ 1573s [00:52:53.286] - Field: ‘stdout’ 1573s [00:52:53.286] - Field: ‘earlySignal’ 1573s [00:52:53.286] - Field: ‘lazy’ 1573s [00:52:53.287] - Field: ‘state’ 1573s [00:52:53.287] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1573s [00:52:53.287] - Launch lazy future ... 1573s [00:52:53.287] Packages needed by the future expression (n = 0): 1573s [00:52:53.287] Packages needed by future strategies (n = 0): 1573s [00:52:53.288] { 1573s [00:52:53.288] { 1573s [00:52:53.288] { 1573s [00:52:53.288] ...future.startTime <- base::Sys.time() 1573s [00:52:53.288] { 1573s [00:52:53.288] { 1573s [00:52:53.288] { 1573s [00:52:53.288] base::local({ 1573s [00:52:53.288] has_future <- base::requireNamespace("future", 1573s [00:52:53.288] quietly = TRUE) 1573s [00:52:53.288] if (has_future) { 1573s [00:52:53.288] ns <- base::getNamespace("future") 1573s [00:52:53.288] version <- ns[[".package"]][["version"]] 1573s [00:52:53.288] if (is.null(version)) 1573s [00:52:53.288] version <- utils::packageVersion("future") 1573s [00:52:53.288] } 1573s [00:52:53.288] else { 1573s [00:52:53.288] version <- NULL 1573s [00:52:53.288] } 1573s [00:52:53.288] if (!has_future || version < "1.8.0") { 1573s [00:52:53.288] info <- base::c(r_version = base::gsub("R version ", 1573s [00:52:53.288] "", base::R.version$version.string), 1573s [00:52:53.288] platform = base::sprintf("%s (%s-bit)", 1573s [00:52:53.288] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1573s [00:52:53.288] os = base::paste(base::Sys.info()[base::c("sysname", 1573s [00:52:53.288] "release", "version")], collapse = " "), 1573s [00:52:53.288] hostname = base::Sys.info()[["nodename"]]) 1573s [00:52:53.288] info <- base::sprintf("%s: %s", base::names(info), 1573s [00:52:53.288] info) 1573s [00:52:53.288] info <- base::paste(info, collapse = "; ") 1573s [00:52:53.288] if (!has_future) { 1573s [00:52:53.288] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1573s [00:52:53.288] info) 1573s [00:52:53.288] } 1573s [00:52:53.288] else { 1573s [00:52:53.288] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1573s [00:52:53.288] info, version) 1573s [00:52:53.288] } 1573s [00:52:53.288] base::stop(msg) 1573s [00:52:53.288] } 1573s [00:52:53.288] }) 1573s [00:52:53.288] } 1573s [00:52:53.288] options(future.plan = NULL) 1573s [00:52:53.288] Sys.unsetenv("R_FUTURE_PLAN") 1573s [00:52:53.288] future::plan("default", .cleanup = FALSE, .init = FALSE) 1573s [00:52:53.288] } 1573s [00:52:53.288] ...future.workdir <- getwd() 1573s [00:52:53.288] } 1573s [00:52:53.288] ...future.oldOptions <- base::as.list(base::.Options) 1573s [00:52:53.288] ...future.oldEnvVars <- base::Sys.getenv() 1573s [00:52:53.288] } 1573s [00:52:53.288] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1573s [00:52:53.288] future.globals.maxSize = NULL, future.globals.method = NULL, 1573s [00:52:53.288] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1573s [00:52:53.288] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1573s [00:52:53.288] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1573s [00:52:53.288] future.stdout.windows.reencode = NULL, width = 80L) 1573s [00:52:53.288] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1573s [00:52:53.288] base::names(...future.oldOptions)) 1573s [00:52:53.288] } 1573s [00:52:53.288] if (FALSE) { 1573s [00:52:53.288] } 1573s [00:52:53.288] else { 1573s [00:52:53.288] if (TRUE) { 1573s [00:52:53.288] ...future.stdout <- base::rawConnection(base::raw(0L), 1573s [00:52:53.288] open = "w") 1573s [00:52:53.288] } 1573s [00:52:53.288] else { 1573s [00:52:53.288] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1573s [00:52:53.288] windows = "NUL", "/dev/null"), open = "w") 1573s [00:52:53.288] } 1573s [00:52:53.288] base::sink(...future.stdout, type = "output", split = FALSE) 1573s [00:52:53.288] base::on.exit(if (!base::is.null(...future.stdout)) { 1573s [00:52:53.288] base::sink(type = "output", split = FALSE) 1573s [00:52:53.288] base::close(...future.stdout) 1573s [00:52:53.288] }, add = TRUE) 1573s [00:52:53.288] } 1573s [00:52:53.288] ...future.frame <- base::sys.nframe() 1573s [00:52:53.288] ...future.conditions <- base::list() 1573s [00:52:53.288] ...future.rng <- base::globalenv()$.Random.seed 1573s [00:52:53.288] if (FALSE) { 1573s [00:52:53.288] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1573s [00:52:53.288] "...future.value", "...future.globalenv.names", ".Random.seed") 1573s [00:52:53.288] } 1573s [00:52:53.288] ...future.result <- base::tryCatch({ 1573s [00:52:53.288] base::withCallingHandlers({ 1573s [00:52:53.288] ...future.value <- base::withVisible(base::local({ 1573s [00:52:53.288] do.call(function(...) { 1573s [00:52:53.288] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1573s [00:52:53.288] if (!identical(...future.globals.maxSize.org, 1573s [00:52:53.288] ...future.globals.maxSize)) { 1573s [00:52:53.288] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1573s [00:52:53.288] on.exit(options(oopts), add = TRUE) 1573s [00:52:53.288] } 1573s [00:52:53.288] { 1573s [00:52:53.288] lapply(seq_along(...future.elements_ii), 1573s [00:52:53.288] FUN = function(jj) { 1573s [00:52:53.288] ...future.X_jj <- ...future.elements_ii[[jj]] 1573s [00:52:53.288] ...future.FUN(...future.X_jj, ...) 1573s [00:52:53.288] }) 1573s [00:52:53.288] } 1573s [00:52:53.288] }, args = future.call.arguments) 1573s [00:52:53.288] })) 1573s [00:52:53.288] future::FutureResult(value = ...future.value$value, 1573s [00:52:53.288] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1573s [00:52:53.288] ...future.rng), globalenv = if (FALSE) 1573s [00:52:53.288] list(added = base::setdiff(base::names(base::.GlobalEnv), 1573s [00:52:53.288] ...future.globalenv.names)) 1573s [00:52:53.288] else NULL, started = ...future.startTime, version = "1.8") 1573s [00:52:53.288] }, condition = base::local({ 1573s [00:52:53.288] c <- base::c 1573s [00:52:53.288] inherits <- base::inherits 1573s [00:52:53.288] invokeRestart <- base::invokeRestart 1573s [00:52:53.288] length <- base::length 1573s [00:52:53.288] list <- base::list 1573s [00:52:53.288] seq.int <- base::seq.int 1573s [00:52:53.288] signalCondition <- base::signalCondition 1573s [00:52:53.288] sys.calls <- base::sys.calls 1573s [00:52:53.288] `[[` <- base::`[[` 1573s [00:52:53.288] `+` <- base::`+` 1573s [00:52:53.288] `<<-` <- base::`<<-` 1573s [00:52:53.288] sysCalls <- function(calls = sys.calls(), from = 1L) { 1573s [00:52:53.288] calls[seq.int(from = from + 12L, to = length(calls) - 1573s [00:52:53.288] 3L)] 1573s [00:52:53.288] } 1573s [00:52:53.288] function(cond) { 1573s [00:52:53.288] is_error <- inherits(cond, "error") 1573s [00:52:53.288] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1573s [00:52:53.288] NULL) 1573s [00:52:53.288] if (is_error) { 1573s [00:52:53.288] sessionInformation <- function() { 1573s [00:52:53.288] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1573s [00:52:53.288] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1573s [00:52:53.288] search = base::search(), system = base::Sys.info()) 1573s [00:52:53.288] } 1573s [00:52:53.288] ...future.conditions[[length(...future.conditions) + 1573s [00:52:53.288] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1573s [00:52:53.288] cond$call), session = sessionInformation(), 1573s [00:52:53.288] timestamp = base::Sys.time(), signaled = 0L) 1573s [00:52:53.288] signalCondition(cond) 1573s [00:52:53.288] } 1573s [00:52:53.288] else if (!ignore && TRUE && inherits(cond, c("condition", 1573s [00:52:53.288] "immediateCondition"))) { 1573s [00:52:53.288] signal <- TRUE && inherits(cond, "immediateCondition") 1573s [00:52:53.288] ...future.conditions[[length(...future.conditions) + 1573s [00:52:53.288] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1573s [00:52:53.288] if (TRUE && !signal) { 1573s [00:52:53.288] muffleCondition <- function (cond, pattern = "^muffle") 1573s [00:52:53.288] { 1573s [00:52:53.288] inherits <- base::inherits 1573s [00:52:53.288] invokeRestart <- base::invokeRestart 1573s [00:52:53.288] is.null <- base::is.null 1573s [00:52:53.288] muffled <- FALSE 1573s [00:52:53.288] if (inherits(cond, "message")) { 1573s [00:52:53.288] muffled <- grepl(pattern, "muffleMessage") 1573s [00:52:53.288] if (muffled) 1573s [00:52:53.288] invokeRestart("muffleMessage") 1573s [00:52:53.288] } 1573s [00:52:53.288] else if (inherits(cond, "warning")) { 1573s [00:52:53.288] muffled <- grepl(pattern, "muffleWarning") 1573s [00:52:53.288] if (muffled) 1573s [00:52:53.288] invokeRestart("muffleWarning") 1573s [00:52:53.288] } 1573s [00:52:53.288] else if (inherits(cond, "condition")) { 1573s [00:52:53.288] if (!is.null(pattern)) { 1573s [00:52:53.288] computeRestarts <- base::computeRestarts 1573s [00:52:53.288] grepl <- base::grepl 1573s [00:52:53.288] restarts <- computeRestarts(cond) 1573s [00:52:53.288] for (restart in restarts) { 1573s [00:52:53.288] name <- restart$name 1573s [00:52:53.288] if (is.null(name)) 1573s [00:52:53.288] next 1573s [00:52:53.288] if (!grepl(pattern, name)) 1573s [00:52:53.288] next 1573s [00:52:53.288] invokeRestart(restart) 1573s [00:52:53.288] muffled <- TRUE 1573s [00:52:53.288] break 1573s [00:52:53.288] } 1573s [00:52:53.288] } 1573s [00:52:53.288] } 1573s [00:52:53.288] invisible(muffled) 1573s [00:52:53.288] } 1573s [00:52:53.288] muffleCondition(cond, pattern = "^muffle") 1573s [00:52:53.288] } 1573s [00:52:53.288] } 1573s [00:52:53.288] else { 1573s [00:52:53.288] if (TRUE) { 1573s [00:52:53.288] muffleCondition <- function (cond, pattern = "^muffle") 1573s [00:52:53.288] { 1573s [00:52:53.288] inherits <- base::inherits 1573s [00:52:53.288] invokeRestart <- base::invokeRestart 1573s [00:52:53.288] is.null <- base::is.null 1573s [00:52:53.288] muffled <- FALSE 1573s [00:52:53.288] if (inherits(cond, "message")) { 1573s [00:52:53.288] muffled <- grepl(pattern, "muffleMessage") 1573s [00:52:53.288] if (muffled) 1573s [00:52:53.288] invokeRestart("muffleMessage") 1573s [00:52:53.288] } 1573s [00:52:53.288] else if (inherits(cond, "warning")) { 1573s [00:52:53.288] muffled <- grepl(pattern, "muffleWarning") 1573s [00:52:53.288] if (muffled) 1573s [00:52:53.288] invokeRestart("muffleWarning") 1573s [00:52:53.288] } 1573s [00:52:53.288] else if (inherits(cond, "condition")) { 1573s [00:52:53.288] if (!is.null(pattern)) { 1573s [00:52:53.288] computeRestarts <- base::computeRestarts 1573s [00:52:53.288] grepl <- base::grepl 1573s [00:52:53.288] restarts <- computeRestarts(cond) 1573s [00:52:53.288] for (restart in restarts) { 1573s [00:52:53.288] name <- restart$name 1573s [00:52:53.288] if (is.null(name)) 1573s [00:52:53.288] next 1573s [00:52:53.288] if (!grepl(pattern, name)) 1573s [00:52:53.288] next 1573s [00:52:53.288] invokeRestart(restart) 1573s [00:52:53.288] muffled <- TRUE 1573s [00:52:53.288] break 1573s [00:52:53.288] } 1573s [00:52:53.288] } 1573s [00:52:53.288] } 1573s [00:52:53.288] invisible(muffled) 1573s [00:52:53.288] } 1573s [00:52:53.288] muffleCondition(cond, pattern = "^muffle") 1573s [00:52:53.288] } 1573s [00:52:53.288] } 1573s [00:52:53.288] } 1573s [00:52:53.288] })) 1573s [00:52:53.288] }, error = function(ex) { 1573s [00:52:53.288] base::structure(base::list(value = NULL, visible = NULL, 1573s [00:52:53.288] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1573s [00:52:53.288] ...future.rng), started = ...future.startTime, 1573s [00:52:53.288] finished = Sys.time(), session_uuid = NA_character_, 1573s [00:52:53.288] version = "1.8"), class = "FutureResult") 1573s [00:52:53.288] }, finally = { 1573s [00:52:53.288] if (!identical(...future.workdir, getwd())) 1573s [00:52:53.288] setwd(...future.workdir) 1573s [00:52:53.288] { 1573s [00:52:53.288] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1573s [00:52:53.288] ...future.oldOptions$nwarnings <- NULL 1573s [00:52:53.288] } 1573s [00:52:53.288] base::options(...future.oldOptions) 1573s [00:52:53.288] if (.Platform$OS.type == "windows") { 1573s [00:52:53.288] old_names <- names(...future.oldEnvVars) 1573s [00:52:53.288] envs <- base::Sys.getenv() 1573s [00:52:53.288] names <- names(envs) 1573s [00:52:53.288] common <- intersect(names, old_names) 1573s [00:52:53.288] added <- setdiff(names, old_names) 1573s [00:52:53.288] removed <- setdiff(old_names, names) 1573s [00:52:53.288] changed <- common[...future.oldEnvVars[common] != 1573s [00:52:53.288] envs[common]] 1573s [00:52:53.288] NAMES <- toupper(changed) 1573s [00:52:53.288] args <- list() 1573s [00:52:53.288] for (kk in seq_along(NAMES)) { 1573s [00:52:53.288] name <- changed[[kk]] 1573s [00:52:53.288] NAME <- NAMES[[kk]] 1573s [00:52:53.288] if (name != NAME && is.element(NAME, old_names)) 1573s [00:52:53.288] next 1573s [00:52:53.288] args[[name]] <- ...future.oldEnvVars[[name]] 1573s [00:52:53.288] } 1573s [00:52:53.288] NAMES <- toupper(added) 1573s [00:52:53.288] for (kk in seq_along(NAMES)) { 1573s [00:52:53.288] name <- added[[kk]] 1573s [00:52:53.288] NAME <- NAMES[[kk]] 1573s [00:52:53.288] if (name != NAME && is.element(NAME, old_names)) 1573s [00:52:53.288] next 1573s [00:52:53.288] args[[name]] <- "" 1573s [00:52:53.288] } 1573s [00:52:53.288] NAMES <- toupper(removed) 1573s [00:52:53.288] for (kk in seq_along(NAMES)) { 1573s [00:52:53.288] name <- removed[[kk]] 1573s [00:52:53.288] NAME <- NAMES[[kk]] 1573s [00:52:53.288] if (name != NAME && is.element(NAME, old_names)) 1573s [00:52:53.288] next 1573s [00:52:53.288] args[[name]] <- ...future.oldEnvVars[[name]] 1573s [00:52:53.288] } 1573s [00:52:53.288] if (length(args) > 0) 1573s [00:52:53.288] base::do.call(base::Sys.setenv, args = args) 1573s [00:52:53.288] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1573s [00:52:53.288] } 1573s [00:52:53.288] else { 1573s [00:52:53.288] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1573s [00:52:53.288] } 1573s [00:52:53.288] { 1573s [00:52:53.288] if (base::length(...future.futureOptionsAdded) > 1573s [00:52:53.288] 0L) { 1573s [00:52:53.288] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1573s [00:52:53.288] base::names(opts) <- ...future.futureOptionsAdded 1573s [00:52:53.288] base::options(opts) 1573s [00:52:53.288] } 1573s [00:52:53.288] { 1573s [00:52:53.288] { 1573s [00:52:53.288] NULL 1573s [00:52:53.288] RNGkind("Mersenne-Twister") 1573s [00:52:53.288] base::rm(list = ".Random.seed", envir = base::globalenv(), 1573s [00:52:53.288] inherits = FALSE) 1573s [00:52:53.288] } 1573s [00:52:53.288] options(future.plan = NULL) 1573s [00:52:53.288] if (is.na(NA_character_)) 1573s [00:52:53.288] Sys.unsetenv("R_FUTURE_PLAN") 1573s [00:52:53.288] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1573s [00:52:53.288] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1573s [00:52:53.288] envir = parent.frame()) 1573s [00:52:53.288] { 1573s [00:52:53.288] default_workers <- missing(workers) 1573s [00:52:53.288] if (is.function(workers)) 1573s [00:52:53.288] workers <- workers() 1573s [00:52:53.288] workers <- structure(as.integer(workers), 1573s [00:52:53.288] class = class(workers)) 1573s [00:52:53.288] stop_if_not(is.finite(workers), workers >= 1573s [00:52:53.288] 1L) 1573s [00:52:53.288] if ((workers == 1L && !inherits(workers, 1573s [00:52:53.288] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1573s [00:52:53.288] if (default_workers) 1573s [00:52:53.288] supportsMulticore(warn = TRUE) 1573s [00:52:53.288] return(sequential(..., envir = envir)) 1573s [00:52:53.288] } 1573s [00:52:53.288] oopts <- options(mc.cores = workers) 1573s [00:52:53.288] on.exit(options(oopts)) 1573s [00:52:53.288] future <- MulticoreFuture(..., workers = workers, 1573s [00:52:53.288] envir = envir) 1573s [00:52:53.288] if (!future$lazy) 1573s [00:52:53.288] future <- run(future) 1573s [00:52:53.288] invisible(future) 1573s [00:52:53.288] }), .cleanup = FALSE, .init = FALSE) 1573s [00:52:53.288] } 1573s [00:52:53.288] } 1573s [00:52:53.288] } 1573s [00:52:53.288] }) 1573s [00:52:53.288] if (TRUE) { 1573s [00:52:53.288] base::sink(type = "output", split = FALSE) 1573s [00:52:53.288] if (TRUE) { 1573s [00:52:53.288] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1573s [00:52:53.288] } 1573s [00:52:53.288] else { 1573s [00:52:53.288] ...future.result["stdout"] <- base::list(NULL) 1573s [00:52:53.288] } 1573s [00:52:53.288] base::close(...future.stdout) 1573s [00:52:53.288] ...future.stdout <- NULL 1573s [00:52:53.288] } 1573s [00:52:53.288] ...future.result$conditions <- ...future.conditions 1573s [00:52:53.288] ...future.result$finished <- base::Sys.time() 1573s [00:52:53.288] ...future.result 1573s [00:52:53.288] } 1573s [00:52:53.292] assign_globals() ... 1573s [00:52:53.293] List of 5 1573s [00:52:53.293] $ ...future.FUN :function (x, y = 2 * 1:5) 1573s [00:52:53.293] $ future.call.arguments : list() 1573s [00:52:53.293] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1573s [00:52:53.293] $ ...future.elements_ii :List of 3 1573s [00:52:53.293] ..$ a: num 1 1573s [00:52:53.293] ..$ b: num 2 1573s [00:52:53.293] ..$ c: num 3 1573s [00:52:53.293] $ ...future.seeds_ii : NULL 1573s [00:52:53.293] $ ...future.globals.maxSize: NULL 1573s [00:52:53.293] - attr(*, "where")=List of 5 1573s [00:52:53.293] ..$ ...future.FUN : 1573s [00:52:53.293] ..$ future.call.arguments : 1573s [00:52:53.293] ..$ ...future.elements_ii : 1573s [00:52:53.293] ..$ ...future.seeds_ii : 1573s [00:52:53.293] ..$ ...future.globals.maxSize: 1573s [00:52:53.293] - attr(*, "resolved")= logi FALSE 1573s [00:52:53.293] - attr(*, "total_size")= num 4728 1573s [00:52:53.293] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1573s [00:52:53.293] - attr(*, "already-done")= logi TRUE 1573s [00:52:53.303] - reassign environment for ‘...future.FUN’ 1573s [00:52:53.303] - copied ‘...future.FUN’ to environment 1573s [00:52:53.303] - copied ‘future.call.arguments’ to environment 1573s [00:52:53.304] - copied ‘...future.elements_ii’ to environment 1573s [00:52:53.304] - copied ‘...future.seeds_ii’ to environment 1573s [00:52:53.304] - copied ‘...future.globals.maxSize’ to environment 1573s [00:52:53.304] assign_globals() ... done 1573s [00:52:53.305] plan(): Setting new future strategy stack: 1573s [00:52:53.305] List of future strategies: 1573s [00:52:53.305] 1. sequential: 1573s [00:52:53.305] - args: function (..., envir = parent.frame()) 1573s [00:52:53.305] - tweaked: FALSE 1573s [00:52:53.305] - call: NULL 1573s [00:52:53.306] plan(): nbrOfWorkers() = 1 1573s [00:52:53.306] plan(): Setting new future strategy stack: 1573s [00:52:53.307] List of future strategies: 1573s [00:52:53.307] 1. multicore: 1573s [00:52:53.307] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1573s [00:52:53.307] - tweaked: FALSE 1573s [00:52:53.307] - call: plan(strategy) 1573s [00:52:53.311] plan(): nbrOfWorkers() = 1 1573s [00:52:53.311] SequentialFuture started (and completed) 1573s [00:52:53.312] - Launch lazy future ... done 1573s [00:52:53.312] run() for ‘SequentialFuture’ ... done 1573s [00:52:53.313] Created future: 1573s [00:52:53.313] SequentialFuture: 1573s [00:52:53.313] Label: ‘future_sapply-1’ 1573s [00:52:53.313] Expression: 1573s [00:52:53.313] { 1573s [00:52:53.313] do.call(function(...) { 1573s [00:52:53.313] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1573s [00:52:53.313] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1573s [00:52:53.313] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1573s [00:52:53.313] on.exit(options(oopts), add = TRUE) 1573s [00:52:53.313] } 1573s [00:52:53.313] { 1573s [00:52:53.313] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1573s [00:52:53.313] ...future.X_jj <- ...future.elements_ii[[jj]] 1573s [00:52:53.313] ...future.FUN(...future.X_jj, ...) 1573s [00:52:53.313] }) 1573s [00:52:53.313] } 1573s [00:52:53.313] }, args = future.call.arguments) 1573s [00:52:53.313] } 1573s [00:52:53.313] Lazy evaluation: FALSE 1573s [00:52:53.313] Asynchronous evaluation: FALSE 1573s [00:52:53.313] Local evaluation: TRUE 1573s [00:52:53.313] Environment: R_GlobalEnv 1573s [00:52:53.313] Capture standard output: TRUE 1573s [00:52:53.313] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1573s [00:52:53.313] Globals: 5 objects totaling 4.78 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1573s [00:52:53.313] Packages: 1573s [00:52:53.313] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1573s [00:52:53.313] Resolved: TRUE 1573s [00:52:53.313] Value: 1.01 KiB of class ‘list’ 1573s [00:52:53.313] Early signaling: FALSE 1573s [00:52:53.313] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1573s [00:52:53.313] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1573s [00:52:53.316] Chunk #1 of 1 ... DONE 1573s [00:52:53.316] Launching 1 futures (chunks) ... DONE 1573s [00:52:53.316] Resolving 1 futures (chunks) ... 1573s [00:52:53.316] resolve() on list ... 1573s [00:52:53.316] recursive: 0 1573s [00:52:53.317] length: 1 1573s [00:52:53.317] 1573s [00:52:53.317] resolved() for ‘SequentialFuture’ ... 1573s [00:52:53.318] - state: ‘finished’ 1573s [00:52:53.318] - run: TRUE 1573s [00:52:53.318] - result: ‘FutureResult’ 1573s [00:52:53.318] resolved() for ‘SequentialFuture’ ... done 1573s [00:52:53.318] Future #1 1573s [00:52:53.319] signalConditionsASAP(SequentialFuture, pos=1) ... 1573s [00:52:53.319] - nx: 1 1573s [00:52:53.320] - relay: TRUE 1573s [00:52:53.320] - stdout: TRUE 1573s [00:52:53.320] - signal: TRUE 1573s [00:52:53.320] - resignal: FALSE 1573s [00:52:53.320] - force: TRUE 1573s [00:52:53.321] - relayed: [n=1] FALSE 1573s [00:52:53.321] - queued futures: [n=1] FALSE 1573s [00:52:53.321] - until=1 1573s [00:52:53.321] - relaying element #1 1573s [00:52:53.322] - relayed: [n=1] TRUE 1573s [00:52:53.322] - queued futures: [n=1] TRUE 1573s [00:52:53.322] signalConditionsASAP(SequentialFuture, pos=1) ... done 1573s [00:52:53.323] length: 0 (resolved future 1) 1573s [00:52:53.323] Relaying remaining futures 1573s [00:52:53.323] signalConditionsASAP(NULL, pos=0) ... 1573s [00:52:53.323] - nx: 1 1573s [00:52:53.324] - relay: TRUE 1573s [00:52:53.324] - stdout: TRUE 1573s [00:52:53.324] - signal: TRUE 1573s [00:52:53.324] - resignal: FALSE 1573s [00:52:53.324] - force: TRUE 1573s [00:52:53.324] - relayed: [n=1] TRUE 1573s [00:52:53.325] - queued futures: [n=1] TRUE 1573s - flush all 1573s [00:52:53.325] - relayed: [n=1] TRUE 1573s [00:52:53.325] - queued futures: [n=1] TRUE 1573s [00:52:53.325] signalConditionsASAP(NULL, pos=0) ... done 1573s [00:52:53.325] resolve() on list ... DONE 1573s [00:52:53.326] - Number of value chunks collected: 1 1573s [00:52:53.326] Resolving 1 futures (chunks) ... DONE 1573s [00:52:53.326] Reducing values from 1 chunks ... 1573s [00:52:53.326] - Number of values collected after concatenation: 3 1573s [00:52:53.327] - Number of values expected: 3 1573s [00:52:53.327] Reducing values from 1 chunks ... DONE 1573s [00:52:53.327] future_lapply() ... DONE 1573s List of 2 1573s $ y0: num [1:15, 1:3] 2 2 2 4 4 4 6 6 6 8 ... 1573s ..- attr(*, "dimnames")=List of 2 1573s .. ..$ : NULL 1573s .. ..$ : chr [1:3] "a" "b" "c" 1573s $ y1: num [1:15, 1:3] 2 2 2 4 4 4 6 6 6 8 ... 1573s ..- attr(*, "dimnames")=List of 2 1573s .. ..$ : NULL 1573s .. ..$ : chr [1:3] "a" "b" "c" 1573s [00:52:53.334] future_lapply() ... 1573s [00:52:53.342] Number of chunks: 1 1573s [00:52:53.342] getGlobalsAndPackagesXApply() ... 1573s [00:52:53.343] - future.globals: TRUE 1573s [00:52:53.343] getGlobalsAndPackages() ... 1573s [00:52:53.343] Searching for globals... 1573s [00:52:53.345] - globals found: [1] ‘FUN’ 1573s [00:52:53.345] Searching for globals ... DONE 1573s [00:52:53.345] Resolving globals: FALSE 1573s [00:52:53.346] The total size of the 1 globals is 848 bytes (848 bytes) 1573s [00:52:53.346] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1573s [00:52:53.346] - globals: [1] ‘FUN’ 1573s [00:52:53.347] 1573s [00:52:53.347] getGlobalsAndPackages() ... DONE 1573s [00:52:53.347] - globals found/used: [n=1] ‘FUN’ 1573s [00:52:53.347] - needed namespaces: [n=0] 1573s [00:52:53.347] Finding globals ... DONE 1573s [00:52:53.347] - use_args: TRUE 1573s [00:52:53.347] - Getting '...' globals ... 1573s [00:52:53.348] resolve() on list ... 1573s [00:52:53.348] recursive: 0 1573s [00:52:53.349] length: 1 1573s [00:52:53.349] elements: ‘...’ 1573s [00:52:53.349] length: 0 (resolved future 1) 1573s [00:52:53.349] resolve() on list ... DONE 1573s [00:52:53.350] - '...' content: [n=0] 1573s [00:52:53.350] List of 1 1573s [00:52:53.350] $ ...: list() 1573s [00:52:53.350] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1573s [00:52:53.350] - attr(*, "where")=List of 1 1573s [00:52:53.350] ..$ ...: 1573s [00:52:53.350] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1573s [00:52:53.350] - attr(*, "resolved")= logi TRUE 1573s [00:52:53.350] - attr(*, "total_size")= num NA 1573s [00:52:53.354] - Getting '...' globals ... DONE 1573s [00:52:53.354] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1573s [00:52:53.355] List of 2 1573s [00:52:53.355] $ ...future.FUN:function (x) 1573s [00:52:53.355] $ ... : list() 1573s [00:52:53.355] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1573s [00:52:53.355] - attr(*, "where")=List of 2 1573s [00:52:53.355] ..$ ...future.FUN: 1573s [00:52:53.355] ..$ ... : 1573s [00:52:53.355] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1573s [00:52:53.355] - attr(*, "resolved")= logi FALSE 1573s [00:52:53.355] - attr(*, "total_size")= num 848 1573s [00:52:53.359] Packages to be attached in all futures: [n=0] 1573s [00:52:53.360] getGlobalsAndPackagesXApply() ... DONE 1573s [00:52:53.360] Number of futures (= number of chunks): 1 1573s [00:52:53.361] Launching 1 futures (chunks) ... 1573s [00:52:53.361] Chunk #1 of 1 ... 1573s [00:52:53.361] - Finding globals in 'X' for chunk #1 ... 1573s [00:52:53.362] getGlobalsAndPackages() ... 1573s [00:52:53.362] Searching for globals... 1573s [00:52:53.362] 1573s [00:52:53.362] Searching for globals ... DONE 1573s [00:52:53.363] - globals: [0] 1573s [00:52:53.363] getGlobalsAndPackages() ... DONE 1573s [00:52:53.363] + additional globals found: [n=0] 1573s [00:52:53.363] + additional namespaces needed: [n=0] 1573s [00:52:53.363] - Finding globals in 'X' for chunk #1 ... DONE 1573s [00:52:53.363] - seeds: 1573s [00:52:53.363] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1573s [00:52:53.364] getGlobalsAndPackages() ... 1573s [00:52:53.364] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1573s [00:52:53.364] Resolving globals: FALSE 1573s [00:52:53.365] Tweak future expression to call with '...' arguments ... 1573s [00:52:53.365] { 1573s [00:52:53.365] do.call(function(...) { 1573s [00:52:53.365] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1573s [00:52:53.365] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1573s [00:52:53.365] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1573s [00:52:53.365] on.exit(options(oopts), add = TRUE) 1573s [00:52:53.365] } 1573s [00:52:53.365] { 1573s [00:52:53.365] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1573s [00:52:53.365] ...future.X_jj <- ...future.elements_ii[[jj]] 1573s [00:52:53.365] ...future.FUN(...future.X_jj, ...) 1573s [00:52:53.365] }) 1573s [00:52:53.365] } 1573s [00:52:53.365] }, args = future.call.arguments) 1573s [00:52:53.365] } 1573s [00:52:53.365] Tweak future expression to call with '...' arguments ... DONE 1573s [00:52:53.366] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1573s [00:52:53.366] 1573s [00:52:53.366] getGlobalsAndPackages() ... DONE 1573s [00:52:53.367] run() for ‘Future’ ... 1573s [00:52:53.367] - state: ‘created’ 1573s [00:52:53.367] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1573s [00:52:53.370] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1573s [00:52:53.371] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1573s [00:52:53.371] - Field: ‘label’ 1573s [00:52:53.371] - Field: ‘local’ 1573s [00:52:53.371] - Field: ‘owner’ 1573s [00:52:53.371] - Field: ‘envir’ 1573s [00:52:53.371] - Field: ‘packages’ 1573s [00:52:53.372] - Field: ‘gc’ 1573s [00:52:53.372] - Field: ‘conditions’ 1573s [00:52:53.372] - Field: ‘expr’ 1573s [00:52:53.372] - Field: ‘uuid’ 1573s [00:52:53.372] - Field: ‘seed’ 1573s [00:52:53.373] - Field: ‘version’ 1573s [00:52:53.373] - Field: ‘result’ 1573s [00:52:53.373] - Field: ‘asynchronous’ 1573s [00:52:53.373] - Field: ‘calls’ 1573s [00:52:53.373] - Field: ‘globals’ 1573s [00:52:53.373] - Field: ‘stdout’ 1573s [00:52:53.374] - Field: ‘earlySignal’ 1573s [00:52:53.374] - Field: ‘lazy’ 1573s [00:52:53.374] - Field: ‘state’ 1573s [00:52:53.374] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1573s [00:52:53.374] - Launch lazy future ... 1573s [00:52:53.374] Packages needed by the future expression (n = 0): 1573s [00:52:53.375] Packages needed by future strategies (n = 0): 1573s [00:52:53.375] { 1573s [00:52:53.375] { 1573s [00:52:53.375] { 1573s [00:52:53.375] ...future.startTime <- base::Sys.time() 1573s [00:52:53.375] { 1573s [00:52:53.375] { 1573s [00:52:53.375] { 1573s [00:52:53.375] base::local({ 1573s [00:52:53.375] has_future <- base::requireNamespace("future", 1573s [00:52:53.375] quietly = TRUE) 1573s [00:52:53.375] if (has_future) { 1573s [00:52:53.375] ns <- base::getNamespace("future") 1573s [00:52:53.375] version <- ns[[".package"]][["version"]] 1573s [00:52:53.375] if (is.null(version)) 1573s [00:52:53.375] version <- utils::packageVersion("future") 1573s [00:52:53.375] } 1573s [00:52:53.375] else { 1573s [00:52:53.375] version <- NULL 1573s [00:52:53.375] } 1573s [00:52:53.375] if (!has_future || version < "1.8.0") { 1573s [00:52:53.375] info <- base::c(r_version = base::gsub("R version ", 1573s [00:52:53.375] "", base::R.version$version.string), 1573s [00:52:53.375] platform = base::sprintf("%s (%s-bit)", 1573s [00:52:53.375] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1573s [00:52:53.375] os = base::paste(base::Sys.info()[base::c("sysname", 1573s [00:52:53.375] "release", "version")], collapse = " "), 1573s [00:52:53.375] hostname = base::Sys.info()[["nodename"]]) 1573s [00:52:53.375] info <- base::sprintf("%s: %s", base::names(info), 1573s [00:52:53.375] info) 1573s [00:52:53.375] info <- base::paste(info, collapse = "; ") 1573s [00:52:53.375] if (!has_future) { 1573s [00:52:53.375] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1573s [00:52:53.375] info) 1573s [00:52:53.375] } 1573s [00:52:53.375] else { 1573s [00:52:53.375] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1573s [00:52:53.375] info, version) 1573s [00:52:53.375] } 1573s [00:52:53.375] base::stop(msg) 1573s [00:52:53.375] } 1573s [00:52:53.375] }) 1573s [00:52:53.375] } 1573s [00:52:53.375] options(future.plan = NULL) 1573s [00:52:53.375] Sys.unsetenv("R_FUTURE_PLAN") 1573s [00:52:53.375] future::plan("default", .cleanup = FALSE, .init = FALSE) 1573s [00:52:53.375] } 1573s [00:52:53.375] ...future.workdir <- getwd() 1573s [00:52:53.375] } 1573s [00:52:53.375] ...future.oldOptions <- base::as.list(base::.Options) 1573s [00:52:53.375] ...future.oldEnvVars <- base::Sys.getenv() 1573s [00:52:53.375] } 1573s [00:52:53.375] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1573s [00:52:53.375] future.globals.maxSize = NULL, future.globals.method = NULL, 1573s [00:52:53.375] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1573s [00:52:53.375] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1573s [00:52:53.375] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1573s [00:52:53.375] future.stdout.windows.reencode = NULL, width = 80L) 1573s [00:52:53.375] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1573s [00:52:53.375] base::names(...future.oldOptions)) 1573s [00:52:53.375] } 1573s [00:52:53.375] if (FALSE) { 1573s [00:52:53.375] } 1573s [00:52:53.375] else { 1573s [00:52:53.375] if (TRUE) { 1573s [00:52:53.375] ...future.stdout <- base::rawConnection(base::raw(0L), 1573s [00:52:53.375] open = "w") 1573s [00:52:53.375] } 1573s [00:52:53.375] else { 1573s [00:52:53.375] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1573s [00:52:53.375] windows = "NUL", "/dev/null"), open = "w") 1573s [00:52:53.375] } 1573s [00:52:53.375] base::sink(...future.stdout, type = "output", split = FALSE) 1573s [00:52:53.375] base::on.exit(if (!base::is.null(...future.stdout)) { 1573s [00:52:53.375] base::sink(type = "output", split = FALSE) 1573s [00:52:53.375] base::close(...future.stdout) 1573s [00:52:53.375] }, add = TRUE) 1573s [00:52:53.375] } 1573s [00:52:53.375] ...future.frame <- base::sys.nframe() 1573s [00:52:53.375] ...future.conditions <- base::list() 1573s [00:52:53.375] ...future.rng <- base::globalenv()$.Random.seed 1573s [00:52:53.375] if (FALSE) { 1573s [00:52:53.375] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1573s [00:52:53.375] "...future.value", "...future.globalenv.names", ".Random.seed") 1573s [00:52:53.375] } 1573s [00:52:53.375] ...future.result <- base::tryCatch({ 1573s [00:52:53.375] base::withCallingHandlers({ 1573s [00:52:53.375] ...future.value <- base::withVisible(base::local({ 1573s [00:52:53.375] do.call(function(...) { 1573s [00:52:53.375] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1573s [00:52:53.375] if (!identical(...future.globals.maxSize.org, 1573s [00:52:53.375] ...future.globals.maxSize)) { 1573s [00:52:53.375] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1573s [00:52:53.375] on.exit(options(oopts), add = TRUE) 1573s [00:52:53.375] } 1573s [00:52:53.375] { 1573s [00:52:53.375] lapply(seq_along(...future.elements_ii), 1573s [00:52:53.375] FUN = function(jj) { 1573s [00:52:53.375] ...future.X_jj <- ...future.elements_ii[[jj]] 1573s [00:52:53.375] ...future.FUN(...future.X_jj, ...) 1573s [00:52:53.375] }) 1573s [00:52:53.375] } 1573s [00:52:53.375] }, args = future.call.arguments) 1573s [00:52:53.375] })) 1573s [00:52:53.375] future::FutureResult(value = ...future.value$value, 1573s [00:52:53.375] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1573s [00:52:53.375] ...future.rng), globalenv = if (FALSE) 1573s [00:52:53.375] list(added = base::setdiff(base::names(base::.GlobalEnv), 1573s [00:52:53.375] ...future.globalenv.names)) 1573s [00:52:53.375] else NULL, started = ...future.startTime, version = "1.8") 1573s [00:52:53.375] }, condition = base::local({ 1573s [00:52:53.375] c <- base::c 1573s [00:52:53.375] inherits <- base::inherits 1573s [00:52:53.375] invokeRestart <- base::invokeRestart 1573s [00:52:53.375] length <- base::length 1573s [00:52:53.375] list <- base::list 1573s [00:52:53.375] seq.int <- base::seq.int 1573s [00:52:53.375] signalCondition <- base::signalCondition 1573s [00:52:53.375] sys.calls <- base::sys.calls 1573s [00:52:53.375] `[[` <- base::`[[` 1573s [00:52:53.375] `+` <- base::`+` 1573s [00:52:53.375] `<<-` <- base::`<<-` 1573s [00:52:53.375] sysCalls <- function(calls = sys.calls(), from = 1L) { 1573s [00:52:53.375] calls[seq.int(from = from + 12L, to = length(calls) - 1573s [00:52:53.375] 3L)] 1573s [00:52:53.375] } 1573s [00:52:53.375] function(cond) { 1573s [00:52:53.375] is_error <- inherits(cond, "error") 1573s [00:52:53.375] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1573s [00:52:53.375] NULL) 1573s [00:52:53.375] if (is_error) { 1573s [00:52:53.375] sessionInformation <- function() { 1573s [00:52:53.375] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1573s [00:52:53.375] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1573s [00:52:53.375] search = base::search(), system = base::Sys.info()) 1573s [00:52:53.375] } 1573s [00:52:53.375] ...future.conditions[[length(...future.conditions) + 1573s [00:52:53.375] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1573s [00:52:53.375] cond$call), session = sessionInformation(), 1573s [00:52:53.375] timestamp = base::Sys.time(), signaled = 0L) 1573s [00:52:53.375] signalCondition(cond) 1573s [00:52:53.375] } 1573s [00:52:53.375] else if (!ignore && TRUE && inherits(cond, c("condition", 1573s [00:52:53.375] "immediateCondition"))) { 1573s [00:52:53.375] signal <- TRUE && inherits(cond, "immediateCondition") 1573s [00:52:53.375] ...future.conditions[[length(...future.conditions) + 1573s [00:52:53.375] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1573s [00:52:53.375] if (TRUE && !signal) { 1573s [00:52:53.375] muffleCondition <- function (cond, pattern = "^muffle") 1573s [00:52:53.375] { 1573s [00:52:53.375] inherits <- base::inherits 1573s [00:52:53.375] invokeRestart <- base::invokeRestart 1573s [00:52:53.375] is.null <- base::is.null 1573s [00:52:53.375] muffled <- FALSE 1573s [00:52:53.375] if (inherits(cond, "message")) { 1573s [00:52:53.375] muffled <- grepl(pattern, "muffleMessage") 1573s [00:52:53.375] if (muffled) 1573s [00:52:53.375] invokeRestart("muffleMessage") 1573s [00:52:53.375] } 1573s [00:52:53.375] else if (inherits(cond, "warning")) { 1573s [00:52:53.375] muffled <- grepl(pattern, "muffleWarning") 1573s [00:52:53.375] if (muffled) 1573s [00:52:53.375] invokeRestart("muffleWarning") 1573s [00:52:53.375] } 1573s [00:52:53.375] else if (inherits(cond, "condition")) { 1573s [00:52:53.375] if (!is.null(pattern)) { 1573s [00:52:53.375] computeRestarts <- base::computeRestarts 1573s [00:52:53.375] grepl <- base::grepl 1573s [00:52:53.375] restarts <- computeRestarts(cond) 1573s [00:52:53.375] for (restart in restarts) { 1573s [00:52:53.375] name <- restart$name 1573s [00:52:53.375] if (is.null(name)) 1573s [00:52:53.375] next 1573s [00:52:53.375] if (!grepl(pattern, name)) 1573s [00:52:53.375] next 1573s [00:52:53.375] invokeRestart(restart) 1573s [00:52:53.375] muffled <- TRUE 1573s [00:52:53.375] break 1573s [00:52:53.375] } 1573s [00:52:53.375] } 1573s [00:52:53.375] } 1573s [00:52:53.375] invisible(muffled) 1573s [00:52:53.375] } 1573s [00:52:53.375] muffleCondition(cond, pattern = "^muffle") 1573s [00:52:53.375] } 1573s [00:52:53.375] } 1573s [00:52:53.375] else { 1573s [00:52:53.375] if (TRUE) { 1573s [00:52:53.375] muffleCondition <- function (cond, pattern = "^muffle") 1573s [00:52:53.375] { 1573s [00:52:53.375] inherits <- base::inherits 1573s [00:52:53.375] invokeRestart <- base::invokeRestart 1573s [00:52:53.375] is.null <- base::is.null 1573s [00:52:53.375] muffled <- FALSE 1573s [00:52:53.375] if (inherits(cond, "message")) { 1573s [00:52:53.375] muffled <- grepl(pattern, "muffleMessage") 1573s [00:52:53.375] if (muffled) 1573s [00:52:53.375] invokeRestart("muffleMessage") 1573s [00:52:53.375] } 1573s [00:52:53.375] else if (inherits(cond, "warning")) { 1573s [00:52:53.375] muffled <- grepl(pattern, "muffleWarning") 1573s [00:52:53.375] if (muffled) 1573s [00:52:53.375] invokeRestart("muffleWarning") 1573s [00:52:53.375] } 1573s [00:52:53.375] else if (inherits(cond, "condition")) { 1573s [00:52:53.375] if (!is.null(pattern)) { 1573s [00:52:53.375] computeRestarts <- base::computeRestarts 1573s [00:52:53.375] grepl <- base::grepl 1573s [00:52:53.375] restarts <- computeRestarts(cond) 1573s [00:52:53.375] for (restart in restarts) { 1573s [00:52:53.375] name <- restart$name 1573s [00:52:53.375] if (is.null(name)) 1573s [00:52:53.375] next 1573s [00:52:53.375] if (!grepl(pattern, name)) 1573s [00:52:53.375] next 1573s [00:52:53.375] invokeRestart(restart) 1573s [00:52:53.375] muffled <- TRUE 1573s [00:52:53.375] break 1573s [00:52:53.375] } 1573s [00:52:53.375] } 1573s [00:52:53.375] } 1573s [00:52:53.375] invisible(muffled) 1573s [00:52:53.375] } 1573s [00:52:53.375] muffleCondition(cond, pattern = "^muffle") 1573s [00:52:53.375] } 1573s [00:52:53.375] } 1573s [00:52:53.375] } 1573s [00:52:53.375] })) 1573s [00:52:53.375] }, error = function(ex) { 1573s [00:52:53.375] base::structure(base::list(value = NULL, visible = NULL, 1573s [00:52:53.375] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1573s [00:52:53.375] ...future.rng), started = ...future.startTime, 1573s [00:52:53.375] finished = Sys.time(), session_uuid = NA_character_, 1573s [00:52:53.375] version = "1.8"), class = "FutureResult") 1573s [00:52:53.375] }, finally = { 1573s [00:52:53.375] if (!identical(...future.workdir, getwd())) 1573s [00:52:53.375] setwd(...future.workdir) 1573s [00:52:53.375] { 1573s [00:52:53.375] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1573s [00:52:53.375] ...future.oldOptions$nwarnings <- NULL 1573s [00:52:53.375] } 1573s [00:52:53.375] base::options(...future.oldOptions) 1573s [00:52:53.375] if (.Platform$OS.type == "windows") { 1573s [00:52:53.375] old_names <- names(...future.oldEnvVars) 1573s [00:52:53.375] envs <- base::Sys.getenv() 1573s [00:52:53.375] names <- names(envs) 1573s [00:52:53.375] common <- intersect(names, old_names) 1573s [00:52:53.375] added <- setdiff(names, old_names) 1573s [00:52:53.375] removed <- setdiff(old_names, names) 1573s [00:52:53.375] changed <- common[...future.oldEnvVars[common] != 1573s [00:52:53.375] envs[common]] 1573s [00:52:53.375] NAMES <- toupper(changed) 1573s [00:52:53.375] args <- list() 1573s [00:52:53.375] for (kk in seq_along(NAMES)) { 1573s [00:52:53.375] name <- changed[[kk]] 1573s [00:52:53.375] NAME <- NAMES[[kk]] 1573s [00:52:53.375] if (name != NAME && is.element(NAME, old_names)) 1573s [00:52:53.375] next 1573s [00:52:53.375] args[[name]] <- ...future.oldEnvVars[[name]] 1573s [00:52:53.375] } 1573s [00:52:53.375] NAMES <- toupper(added) 1573s [00:52:53.375] for (kk in seq_along(NAMES)) { 1573s [00:52:53.375] name <- added[[kk]] 1573s [00:52:53.375] NAME <- NAMES[[kk]] 1573s [00:52:53.375] if (name != NAME && is.element(NAME, old_names)) 1573s [00:52:53.375] next 1573s [00:52:53.375] args[[name]] <- "" 1573s [00:52:53.375] } 1573s [00:52:53.375] NAMES <- toupper(removed) 1573s [00:52:53.375] for (kk in seq_along(NAMES)) { 1573s [00:52:53.375] name <- removed[[kk]] 1573s [00:52:53.375] NAME <- NAMES[[kk]] 1573s [00:52:53.375] if (name != NAME && is.element(NAME, old_names)) 1573s [00:52:53.375] next 1573s [00:52:53.375] args[[name]] <- ...future.oldEnvVars[[name]] 1573s [00:52:53.375] } 1573s [00:52:53.375] if (length(args) > 0) 1573s [00:52:53.375] base::do.call(base::Sys.setenv, args = args) 1573s [00:52:53.375] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1573s [00:52:53.375] } 1573s [00:52:53.375] else { 1573s [00:52:53.375] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1573s [00:52:53.375] } 1573s [00:52:53.375] { 1573s [00:52:53.375] if (base::length(...future.futureOptionsAdded) > 1573s [00:52:53.375] 0L) { 1573s [00:52:53.375] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1573s [00:52:53.375] base::names(opts) <- ...future.futureOptionsAdded 1573s [00:52:53.375] base::options(opts) 1573s [00:52:53.375] } 1573s [00:52:53.375] { 1573s [00:52:53.375] { 1573s [00:52:53.375] NULL 1573s [00:52:53.375] RNGkind("Mersenne-Twister") 1573s [00:52:53.375] base::rm(list = ".Random.seed", envir = base::globalenv(), 1573s [00:52:53.375] inherits = FALSE) 1573s [00:52:53.375] } 1573s [00:52:53.375] options(future.plan = NULL) 1573s [00:52:53.375] if (is.na(NA_character_)) 1573s [00:52:53.375] Sys.unsetenv("R_FUTURE_PLAN") 1573s [00:52:53.375] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1573s [00:52:53.375] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1573s [00:52:53.375] envir = parent.frame()) 1573s [00:52:53.375] { 1573s [00:52:53.375] default_workers <- missing(workers) 1573s [00:52:53.375] if (is.function(workers)) 1573s [00:52:53.375] workers <- workers() 1573s [00:52:53.375] workers <- structure(as.integer(workers), 1573s [00:52:53.375] class = class(workers)) 1573s [00:52:53.375] stop_if_not(is.finite(workers), workers >= 1573s [00:52:53.375] 1L) 1573s [00:52:53.375] if ((workers == 1L && !inherits(workers, 1573s [00:52:53.375] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1573s [00:52:53.375] if (default_workers) 1573s [00:52:53.375] supportsMulticore(warn = TRUE) 1573s [00:52:53.375] return(sequential(..., envir = envir)) 1573s [00:52:53.375] } 1573s [00:52:53.375] oopts <- options(mc.cores = workers) 1573s [00:52:53.375] on.exit(options(oopts)) 1573s [00:52:53.375] future <- MulticoreFuture(..., workers = workers, 1573s [00:52:53.375] envir = envir) 1573s [00:52:53.375] if (!future$lazy) 1573s [00:52:53.375] future <- run(future) 1573s [00:52:53.375] invisible(future) 1573s [00:52:53.375] }), .cleanup = FALSE, .init = FALSE) 1573s [00:52:53.375] } 1573s [00:52:53.375] } 1573s [00:52:53.375] } 1573s [00:52:53.375] }) 1573s [00:52:53.375] if (TRUE) { 1573s [00:52:53.375] base::sink(type = "output", split = FALSE) 1573s [00:52:53.375] if (TRUE) { 1573s [00:52:53.375] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1573s [00:52:53.375] } 1573s [00:52:53.375] else { 1573s [00:52:53.375] ...future.result["stdout"] <- base::list(NULL) 1573s [00:52:53.375] } 1573s [00:52:53.375] base::close(...future.stdout) 1573s [00:52:53.375] ...future.stdout <- NULL 1573s [00:52:53.375] } 1573s [00:52:53.375] ...future.result$conditions <- ...future.conditions 1573s [00:52:53.375] ...future.result$finished <- base::Sys.time() 1573s [00:52:53.375] ...future.result 1573s [00:52:53.375] } 1573s [00:52:53.378] assign_globals() ... 1573s [00:52:53.379] List of 5 1573s [00:52:53.379] $ ...future.FUN :function (x) 1573s [00:52:53.379] $ future.call.arguments : list() 1573s [00:52:53.379] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1573s [00:52:53.379] $ ...future.elements_ii :List of 3 1573s [00:52:53.379] ..$ a: num 1 1573s [00:52:53.379] ..$ b: num 2 1573s [00:52:53.379] ..$ c: num 3 1573s [00:52:53.379] $ ...future.seeds_ii : NULL 1573s [00:52:53.379] $ ...future.globals.maxSize: NULL 1573s [00:52:53.379] - attr(*, "where")=List of 5 1573s [00:52:53.379] ..$ ...future.FUN : 1573s [00:52:53.379] ..$ future.call.arguments : 1573s [00:52:53.379] ..$ ...future.elements_ii : 1573s [00:52:53.379] ..$ ...future.seeds_ii : 1573s [00:52:53.379] ..$ ...future.globals.maxSize: 1573s [00:52:53.379] - attr(*, "resolved")= logi FALSE 1573s [00:52:53.379] - attr(*, "total_size")= num 848 1573s [00:52:53.379] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1573s [00:52:53.379] - attr(*, "already-done")= logi TRUE 1573s [00:52:53.387] - copied ‘...future.FUN’ to environment 1573s [00:52:53.387] - copied ‘future.call.arguments’ to environment 1573s [00:52:53.387] - copied ‘...future.elements_ii’ to environment 1573s [00:52:53.387] - copied ‘...future.seeds_ii’ to environment 1573s [00:52:53.388] - copied ‘...future.globals.maxSize’ to environment 1573s [00:52:53.388] assign_globals() ... done 1573s [00:52:53.388] plan(): Setting new future strategy stack: 1573s [00:52:53.388] List of future strategies: 1573s [00:52:53.388] 1. sequential: 1573s [00:52:53.388] - args: function (..., envir = parent.frame()) 1573s [00:52:53.388] - tweaked: FALSE 1573s [00:52:53.388] - call: NULL 1573s [00:52:53.389] plan(): nbrOfWorkers() = 1 1573s [00:52:53.390] plan(): Setting new future strategy stack: 1573s [00:52:53.390] List of future strategies: 1573s [00:52:53.390] 1. multicore: 1573s [00:52:53.390] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1573s [00:52:53.390] - tweaked: FALSE 1573s [00:52:53.390] - call: plan(strategy) 1573s [00:52:53.393] plan(): nbrOfWorkers() = 1 1573s [00:52:53.394] SequentialFuture started (and completed) 1573s [00:52:53.394] - Launch lazy future ... done 1573s [00:52:53.394] run() for ‘SequentialFuture’ ... done 1573s [00:52:53.394] Created future: 1573s [00:52:53.394] SequentialFuture: 1573s [00:52:53.394] Label: ‘future_sapply-1’ 1573s [00:52:53.394] Expression: 1573s [00:52:53.394] { 1573s [00:52:53.394] do.call(function(...) { 1573s [00:52:53.394] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1573s [00:52:53.394] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1573s [00:52:53.394] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1573s [00:52:53.394] on.exit(options(oopts), add = TRUE) 1573s [00:52:53.394] } 1573s [00:52:53.394] { 1573s [00:52:53.394] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1573s [00:52:53.394] ...future.X_jj <- ...future.elements_ii[[jj]] 1573s [00:52:53.394] ...future.FUN(...future.X_jj, ...) 1573s [00:52:53.394] }) 1573s [00:52:53.394] } 1573s [00:52:53.394] }, args = future.call.arguments) 1573s [00:52:53.394] } 1573s [00:52:53.394] Lazy evaluation: FALSE 1573s [00:52:53.394] Asynchronous evaluation: FALSE 1573s [00:52:53.394] Local evaluation: TRUE 1573s [00:52:53.394] Environment: R_GlobalEnv 1573s [00:52:53.394] Capture standard output: TRUE 1573s [00:52:53.394] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1573s [00:52:53.394] Globals: 5 objects totaling 0.99 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1573s [00:52:53.394] Packages: 1573s [00:52:53.394] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1573s [00:52:53.394] Resolved: TRUE 1573s [00:52:53.394] Value: 168 bytes of class ‘list’ 1573s [00:52:53.394] Early signaling: FALSE 1573s [00:52:53.394] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1573s [00:52:53.394] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1573s [00:52:53.397] Chunk #1 of 1 ... DONE 1573s [00:52:53.397] Launching 1 futures (chunks) ... DONE 1573s [00:52:53.397] Resolving 1 futures (chunks) ... 1573s [00:52:53.397] resolve() on list ... 1573s [00:52:53.398] recursive: 0 1573s [00:52:53.398] length: 1 1573s [00:52:53.398] 1573s [00:52:53.398] resolved() for ‘SequentialFuture’ ... 1573s [00:52:53.398] - state: ‘finished’ 1573s [00:52:53.398] - run: TRUE 1573s [00:52:53.399] - result: ‘FutureResult’ 1573s [00:52:53.399] resolved() for ‘SequentialFuture’ ... done 1573s [00:52:53.399] Future #1 1573s [00:52:53.399] signalConditionsASAP(SequentialFuture, pos=1) ... 1573s [00:52:53.399] - nx: 1 1573s [00:52:53.399] - relay: TRUE 1573s [00:52:53.399] - stdout: TRUE 1573s [00:52:53.400] - signal: TRUE 1573s [00:52:53.400] - resignal: FALSE 1573s [00:52:53.400] - force: TRUE 1573s [00:52:53.400] - relayed: [n=1] FALSE 1573s [00:52:53.400] - queued futures: [n=1] FALSE 1573s [00:52:53.400] - until=1 1573s [00:52:53.400] - relaying element #1 1573s [00:52:53.401] - relayed: [n=1] TRUE 1573s [00:52:53.401] - queued futures: [n=1] TRUE 1573s [00:52:53.401] signalConditionsASAP(SequentialFuture, pos=1) ... done 1573s [00:52:53.401] length: 0 (resolved future 1) 1573s [00:52:53.402] Relaying remaining futures 1573s [00:52:53.402] signalConditionsASAP(NULL, pos=0) ... 1573s [00:52:53.402] - nx: 1 1573s [00:52:53.402] - relay: TRUE 1573s [00:52:53.402] - stdout: TRUE 1573s [00:52:53.402] - signal: TRUE 1573s List[00:52:53.403] - resignal: FALSE 1573s [00:52:53.403] - force: TRUE 1573s [00:52:53.403] - relayed: [n=1] TRUE 1573s [00:52:53.403] - queued futures: [n=1] TRUE 1573s - flush all 1573s [00:52:53.403] - relayed: [n=1] TRUE 1573s [00:52:53.403] - queued futures: [n=1] TRUE 1573s [00:52:53.404] signalConditionsASAP(NULL, pos=0) ... done 1573s [00:52:53.404] resolve() on list ... DONE 1573s [00:52:53.404] - Number of value chunks collected: 1 1573s [00:52:53.404] Resolving 1 futures (chunks) ... DONE 1573s [00:52:53.404] Reducing values from 1 chunks ... 1573s [00:52:53.404] - Number of values collected after concatenation: 3 1573s [00:52:53.405] - Number of values expected: 3 1573s [00:52:53.405] Reducing values from 1 chunks ... DONE 1573s [00:52:53.405] future_lapply() ... DONE 1573s of 2 1573s $ y0: Named num [1:3] 1 2 3 1573s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1573s $ y1: Named num [1:3] 1 2 3 1573s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1573s [00:52:53.407] future_lapply() ... 1573s [00:52:53.412] Number of chunks: 1 1573s [00:52:53.412] getGlobalsAndPackagesXApply() ... 1573s [00:52:53.412] - future.globals: TRUE 1573s [00:52:53.413] getGlobalsAndPackages() ... 1573s [00:52:53.413] Searching for globals... 1573s [00:52:53.414] - globals found: [2] ‘FUN’, ‘UseMethod’ 1573s [00:52:53.414] Searching for globals ... DONE 1573s [00:52:53.415] Resolving globals: FALSE 1573s [00:52:53.415] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1573s [00:52:53.415] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1573s [00:52:53.416] - globals: [1] ‘FUN’ 1573s [00:52:53.416] 1573s [00:52:53.416] getGlobalsAndPackages() ... DONE 1573s [00:52:53.416] - globals found/used: [n=1] ‘FUN’ 1573s [00:52:53.417] - needed namespaces: [n=0] 1573s [00:52:53.417] Finding globals ... DONE 1573s [00:52:53.417] - use_args: TRUE 1573s [00:52:53.417] - Getting '...' globals ... 1573s [00:52:53.418] resolve() on list ... 1573s [00:52:53.418] recursive: 0 1573s [00:52:53.418] length: 1 1573s [00:52:53.418] elements: ‘...’ 1573s [00:52:53.419] length: 0 (resolved future 1) 1573s [00:52:53.419] resolve() on list ... DONE 1573s [00:52:53.419] - '...' content: [n=0] 1573s [00:52:53.420] List of 1 1573s [00:52:53.420] $ ...: list() 1573s [00:52:53.420] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1573s [00:52:53.420] - attr(*, "where")=List of 1 1573s [00:52:53.420] ..$ ...: 1573s [00:52:53.420] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1573s [00:52:53.420] - attr(*, "resolved")= logi TRUE 1573s [00:52:53.420] - attr(*, "total_size")= num NA 1573s [00:52:53.424] - Getting '...' globals ... DONE 1573s [00:52:53.424] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1573s [00:52:53.424] List of 2 1573s [00:52:53.424] $ ...future.FUN:function (x, ...) 1573s [00:52:53.424] $ ... : list() 1573s [00:52:53.424] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1573s [00:52:53.424] - attr(*, "where")=List of 2 1573s [00:52:53.424] ..$ ...future.FUN: 1573s [00:52:53.424] ..$ ... : 1573s [00:52:53.424] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1573s [00:52:53.424] - attr(*, "resolved")= logi FALSE 1573s [00:52:53.424] - attr(*, "total_size")= num 1248 1573s [00:52:53.428] Packages to be attached in all futures: [n=0] 1573s [00:52:53.429] getGlobalsAndPackagesXApply() ... DONE 1573s [00:52:53.429] Number of futures (= number of chunks): 1 1573s [00:52:53.429] Launching 1 futures (chunks) ... 1573s [00:52:53.429] Chunk #1 of 1 ... 1573s [00:52:53.429] - Finding globals in 'X' for chunk #1 ... 1573s [00:52:53.429] getGlobalsAndPackages() ... 1573s [00:52:53.429] Searching for globals... 1573s [00:52:53.430] 1573s [00:52:53.430] Searching for globals ... DONE 1573s [00:52:53.430] - globals: [0] 1573s [00:52:53.430] getGlobalsAndPackages() ... DONE 1573s [00:52:53.431] + additional globals found: [n=0] 1573s [00:52:53.431] + additional namespaces needed: [n=0] 1573s [00:52:53.432] - Finding globals in 'X' for chunk #1 ... DONE 1573s [00:52:53.432] - seeds: 1573s [00:52:53.432] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1573s [00:52:53.432] getGlobalsAndPackages() ... 1573s [00:52:53.432] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1573s [00:52:53.432] Resolving globals: FALSE 1573s [00:52:53.433] Tweak future expression to call with '...' arguments ... 1573s [00:52:53.433] { 1573s [00:52:53.433] do.call(function(...) { 1573s [00:52:53.433] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1573s [00:52:53.433] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1573s [00:52:53.433] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1573s [00:52:53.433] on.exit(options(oopts), add = TRUE) 1573s [00:52:53.433] } 1573s [00:52:53.433] { 1573s [00:52:53.433] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1573s [00:52:53.433] ...future.X_jj <- ...future.elements_ii[[jj]] 1573s [00:52:53.433] ...future.FUN(...future.X_jj, ...) 1573s [00:52:53.433] }) 1573s [00:52:53.433] } 1573s [00:52:53.433] }, args = future.call.arguments) 1573s [00:52:53.433] } 1573s [00:52:53.433] Tweak future expression to call with '...' arguments ... DONE 1573s [00:52:53.433] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1573s [00:52:53.434] 1573s [00:52:53.434] getGlobalsAndPackages() ... DONE 1573s [00:52:53.434] run() for ‘Future’ ... 1573s [00:52:53.434] - state: ‘created’ 1573s [00:52:53.434] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1573s [00:52:53.438] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1573s [00:52:53.439] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1573s [00:52:53.439] - Field: ‘label’ 1573s [00:52:53.439] - Field: ‘local’ 1573s [00:52:53.439] - Field: ‘owner’ 1573s [00:52:53.439] - Field: ‘envir’ 1573s [00:52:53.440] - Field: ‘packages’ 1573s [00:52:53.440] - Field: ‘gc’ 1573s [00:52:53.440] - Field: ‘conditions’ 1573s [00:52:53.440] - Field: ‘expr’ 1573s [00:52:53.440] - Field: ‘uuid’ 1573s [00:52:53.441] - Field: ‘seed’ 1573s [00:52:53.441] - Field: ‘version’ 1573s [00:52:53.441] - Field: ‘result’ 1573s [00:52:53.441] - Field: ‘asynchronous’ 1573s [00:52:53.442] - Field: ‘calls’ 1573s [00:52:53.442] - Field: ‘globals’ 1573s [00:52:53.442] - Field: ‘stdout’ 1573s [00:52:53.442] - Field: ‘earlySignal’ 1573s [00:52:53.442] - Field: ‘lazy’ 1573s [00:52:53.443] - Field: ‘state’ 1573s [00:52:53.443] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1573s [00:52:53.443] - Launch lazy future ... 1573s [00:52:53.444] Packages needed by the future expression (n = 0): 1573s [00:52:53.444] Packages needed by future strategies (n = 0): 1573s [00:52:53.445] { 1573s [00:52:53.445] { 1573s [00:52:53.445] { 1573s [00:52:53.445] ...future.startTime <- base::Sys.time() 1573s [00:52:53.445] { 1573s [00:52:53.445] { 1573s [00:52:53.445] { 1573s [00:52:53.445] base::local({ 1573s [00:52:53.445] has_future <- base::requireNamespace("future", 1573s [00:52:53.445] quietly = TRUE) 1573s [00:52:53.445] if (has_future) { 1573s [00:52:53.445] ns <- base::getNamespace("future") 1573s [00:52:53.445] version <- ns[[".package"]][["version"]] 1573s [00:52:53.445] if (is.null(version)) 1573s [00:52:53.445] version <- utils::packageVersion("future") 1573s [00:52:53.445] } 1573s [00:52:53.445] else { 1573s [00:52:53.445] version <- NULL 1573s [00:52:53.445] } 1573s [00:52:53.445] if (!has_future || version < "1.8.0") { 1573s [00:52:53.445] info <- base::c(r_version = base::gsub("R version ", 1573s [00:52:53.445] "", base::R.version$version.string), 1573s [00:52:53.445] platform = base::sprintf("%s (%s-bit)", 1573s [00:52:53.445] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1573s [00:52:53.445] os = base::paste(base::Sys.info()[base::c("sysname", 1573s [00:52:53.445] "release", "version")], collapse = " "), 1573s [00:52:53.445] hostname = base::Sys.info()[["nodename"]]) 1573s [00:52:53.445] info <- base::sprintf("%s: %s", base::names(info), 1573s [00:52:53.445] info) 1573s [00:52:53.445] info <- base::paste(info, collapse = "; ") 1573s [00:52:53.445] if (!has_future) { 1573s [00:52:53.445] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1573s [00:52:53.445] info) 1573s [00:52:53.445] } 1573s [00:52:53.445] else { 1573s [00:52:53.445] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1573s [00:52:53.445] info, version) 1573s [00:52:53.445] } 1573s [00:52:53.445] base::stop(msg) 1573s [00:52:53.445] } 1573s [00:52:53.445] }) 1573s [00:52:53.445] } 1573s [00:52:53.445] options(future.plan = NULL) 1573s [00:52:53.445] Sys.unsetenv("R_FUTURE_PLAN") 1573s [00:52:53.445] future::plan("default", .cleanup = FALSE, .init = FALSE) 1573s [00:52:53.445] } 1573s [00:52:53.445] ...future.workdir <- getwd() 1573s [00:52:53.445] } 1573s [00:52:53.445] ...future.oldOptions <- base::as.list(base::.Options) 1573s [00:52:53.445] ...future.oldEnvVars <- base::Sys.getenv() 1573s [00:52:53.445] } 1573s [00:52:53.445] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1573s [00:52:53.445] future.globals.maxSize = NULL, future.globals.method = NULL, 1573s [00:52:53.445] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1573s [00:52:53.445] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1573s [00:52:53.445] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1573s [00:52:53.445] future.stdout.windows.reencode = NULL, width = 80L) 1573s [00:52:53.445] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1573s [00:52:53.445] base::names(...future.oldOptions)) 1573s [00:52:53.445] } 1573s [00:52:53.445] if (FALSE) { 1573s [00:52:53.445] } 1573s [00:52:53.445] else { 1573s [00:52:53.445] if (TRUE) { 1573s [00:52:53.445] ...future.stdout <- base::rawConnection(base::raw(0L), 1573s [00:52:53.445] open = "w") 1573s [00:52:53.445] } 1573s [00:52:53.445] else { 1573s [00:52:53.445] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1573s [00:52:53.445] windows = "NUL", "/dev/null"), open = "w") 1573s [00:52:53.445] } 1573s [00:52:53.445] base::sink(...future.stdout, type = "output", split = FALSE) 1573s [00:52:53.445] base::on.exit(if (!base::is.null(...future.stdout)) { 1573s [00:52:53.445] base::sink(type = "output", split = FALSE) 1573s [00:52:53.445] base::close(...future.stdout) 1573s [00:52:53.445] }, add = TRUE) 1573s [00:52:53.445] } 1573s [00:52:53.445] ...future.frame <- base::sys.nframe() 1573s [00:52:53.445] ...future.conditions <- base::list() 1573s [00:52:53.445] ...future.rng <- base::globalenv()$.Random.seed 1573s [00:52:53.445] if (FALSE) { 1573s [00:52:53.445] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1573s [00:52:53.445] "...future.value", "...future.globalenv.names", ".Random.seed") 1573s [00:52:53.445] } 1573s [00:52:53.445] ...future.result <- base::tryCatch({ 1573s [00:52:53.445] base::withCallingHandlers({ 1573s [00:52:53.445] ...future.value <- base::withVisible(base::local({ 1573s [00:52:53.445] do.call(function(...) { 1573s [00:52:53.445] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1573s [00:52:53.445] if (!identical(...future.globals.maxSize.org, 1573s [00:52:53.445] ...future.globals.maxSize)) { 1573s [00:52:53.445] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1573s [00:52:53.445] on.exit(options(oopts), add = TRUE) 1573s [00:52:53.445] } 1573s [00:52:53.445] { 1573s [00:52:53.445] lapply(seq_along(...future.elements_ii), 1573s [00:52:53.445] FUN = function(jj) { 1573s [00:52:53.445] ...future.X_jj <- ...future.elements_ii[[jj]] 1573s [00:52:53.445] ...future.FUN(...future.X_jj, ...) 1573s [00:52:53.445] }) 1573s [00:52:53.445] } 1573s [00:52:53.445] }, args = future.call.arguments) 1573s [00:52:53.445] })) 1573s [00:52:53.445] future::FutureResult(value = ...future.value$value, 1573s [00:52:53.445] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1573s [00:52:53.445] ...future.rng), globalenv = if (FALSE) 1573s [00:52:53.445] list(added = base::setdiff(base::names(base::.GlobalEnv), 1573s [00:52:53.445] ...future.globalenv.names)) 1573s [00:52:53.445] else NULL, started = ...future.startTime, version = "1.8") 1573s [00:52:53.445] }, condition = base::local({ 1573s [00:52:53.445] c <- base::c 1573s [00:52:53.445] inherits <- base::inherits 1573s [00:52:53.445] invokeRestart <- base::invokeRestart 1573s [00:52:53.445] length <- base::length 1573s [00:52:53.445] list <- base::list 1573s [00:52:53.445] seq.int <- base::seq.int 1573s [00:52:53.445] signalCondition <- base::signalCondition 1573s [00:52:53.445] sys.calls <- base::sys.calls 1573s [00:52:53.445] `[[` <- base::`[[` 1573s [00:52:53.445] `+` <- base::`+` 1573s [00:52:53.445] `<<-` <- base::`<<-` 1573s [00:52:53.445] sysCalls <- function(calls = sys.calls(), from = 1L) { 1573s [00:52:53.445] calls[seq.int(from = from + 12L, to = length(calls) - 1573s [00:52:53.445] 3L)] 1573s [00:52:53.445] } 1573s [00:52:53.445] function(cond) { 1573s [00:52:53.445] is_error <- inherits(cond, "error") 1573s [00:52:53.445] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1573s [00:52:53.445] NULL) 1573s [00:52:53.445] if (is_error) { 1573s [00:52:53.445] sessionInformation <- function() { 1573s [00:52:53.445] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1573s [00:52:53.445] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1573s [00:52:53.445] search = base::search(), system = base::Sys.info()) 1573s [00:52:53.445] } 1573s [00:52:53.445] ...future.conditions[[length(...future.conditions) + 1573s [00:52:53.445] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1573s [00:52:53.445] cond$call), session = sessionInformation(), 1573s [00:52:53.445] timestamp = base::Sys.time(), signaled = 0L) 1573s [00:52:53.445] signalCondition(cond) 1573s [00:52:53.445] } 1573s [00:52:53.445] else if (!ignore && TRUE && inherits(cond, c("condition", 1573s [00:52:53.445] "immediateCondition"))) { 1573s [00:52:53.445] signal <- TRUE && inherits(cond, "immediateCondition") 1573s [00:52:53.445] ...future.conditions[[length(...future.conditions) + 1573s [00:52:53.445] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1573s [00:52:53.445] if (TRUE && !signal) { 1573s [00:52:53.445] muffleCondition <- function (cond, pattern = "^muffle") 1573s [00:52:53.445] { 1573s [00:52:53.445] inherits <- base::inherits 1573s [00:52:53.445] invokeRestart <- base::invokeRestart 1573s [00:52:53.445] is.null <- base::is.null 1573s [00:52:53.445] muffled <- FALSE 1573s [00:52:53.445] if (inherits(cond, "message")) { 1573s [00:52:53.445] muffled <- grepl(pattern, "muffleMessage") 1573s [00:52:53.445] if (muffled) 1573s [00:52:53.445] invokeRestart("muffleMessage") 1573s [00:52:53.445] } 1573s [00:52:53.445] else if (inherits(cond, "warning")) { 1573s [00:52:53.445] muffled <- grepl(pattern, "muffleWarning") 1573s [00:52:53.445] if (muffled) 1573s [00:52:53.445] invokeRestart("muffleWarning") 1573s [00:52:53.445] } 1573s [00:52:53.445] else if (inherits(cond, "condition")) { 1573s [00:52:53.445] if (!is.null(pattern)) { 1573s [00:52:53.445] computeRestarts <- base::computeRestarts 1573s [00:52:53.445] grepl <- base::grepl 1573s [00:52:53.445] restarts <- computeRestarts(cond) 1573s [00:52:53.445] for (restart in restarts) { 1573s [00:52:53.445] name <- restart$name 1573s [00:52:53.445] if (is.null(name)) 1573s [00:52:53.445] next 1573s [00:52:53.445] if (!grepl(pattern, name)) 1573s [00:52:53.445] next 1573s [00:52:53.445] invokeRestart(restart) 1573s [00:52:53.445] muffled <- TRUE 1573s [00:52:53.445] break 1573s [00:52:53.445] } 1573s [00:52:53.445] } 1573s [00:52:53.445] } 1573s [00:52:53.445] invisible(muffled) 1573s [00:52:53.445] } 1573s [00:52:53.445] muffleCondition(cond, pattern = "^muffle") 1573s [00:52:53.445] } 1573s [00:52:53.445] } 1573s [00:52:53.445] else { 1573s [00:52:53.445] if (TRUE) { 1573s [00:52:53.445] muffleCondition <- function (cond, pattern = "^muffle") 1573s [00:52:53.445] { 1573s [00:52:53.445] inherits <- base::inherits 1573s [00:52:53.445] invokeRestart <- base::invokeRestart 1573s [00:52:53.445] is.null <- base::is.null 1573s [00:52:53.445] muffled <- FALSE 1573s [00:52:53.445] if (inherits(cond, "message")) { 1573s [00:52:53.445] muffled <- grepl(pattern, "muffleMessage") 1573s [00:52:53.445] if (muffled) 1573s [00:52:53.445] invokeRestart("muffleMessage") 1573s [00:52:53.445] } 1573s [00:52:53.445] else if (inherits(cond, "warning")) { 1573s [00:52:53.445] muffled <- grepl(pattern, "muffleWarning") 1573s [00:52:53.445] if (muffled) 1573s [00:52:53.445] invokeRestart("muffleWarning") 1573s [00:52:53.445] } 1573s [00:52:53.445] else if (inherits(cond, "condition")) { 1573s [00:52:53.445] if (!is.null(pattern)) { 1573s [00:52:53.445] computeRestarts <- base::computeRestarts 1573s [00:52:53.445] grepl <- base::grepl 1573s [00:52:53.445] restarts <- computeRestarts(cond) 1573s [00:52:53.445] for (restart in restarts) { 1573s [00:52:53.445] name <- restart$name 1573s [00:52:53.445] if (is.null(name)) 1573s [00:52:53.445] next 1573s [00:52:53.445] if (!grepl(pattern, name)) 1573s [00:52:53.445] next 1573s [00:52:53.445] invokeRestart(restart) 1573s [00:52:53.445] muffled <- TRUE 1573s [00:52:53.445] break 1573s [00:52:53.445] } 1573s [00:52:53.445] } 1573s [00:52:53.445] } 1573s [00:52:53.445] invisible(muffled) 1573s [00:52:53.445] } 1573s [00:52:53.445] muffleCondition(cond, pattern = "^muffle") 1573s [00:52:53.445] } 1573s [00:52:53.445] } 1573s [00:52:53.445] } 1573s [00:52:53.445] })) 1573s [00:52:53.445] }, error = function(ex) { 1573s [00:52:53.445] base::structure(base::list(value = NULL, visible = NULL, 1573s [00:52:53.445] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1573s [00:52:53.445] ...future.rng), started = ...future.startTime, 1573s [00:52:53.445] finished = Sys.time(), session_uuid = NA_character_, 1573s [00:52:53.445] version = "1.8"), class = "FutureResult") 1573s [00:52:53.445] }, finally = { 1573s [00:52:53.445] if (!identical(...future.workdir, getwd())) 1573s [00:52:53.445] setwd(...future.workdir) 1573s [00:52:53.445] { 1573s [00:52:53.445] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1573s [00:52:53.445] ...future.oldOptions$nwarnings <- NULL 1573s [00:52:53.445] } 1573s [00:52:53.445] base::options(...future.oldOptions) 1573s [00:52:53.445] if (.Platform$OS.type == "windows") { 1573s [00:52:53.445] old_names <- names(...future.oldEnvVars) 1573s [00:52:53.445] envs <- base::Sys.getenv() 1573s [00:52:53.445] names <- names(envs) 1573s [00:52:53.445] common <- intersect(names, old_names) 1573s [00:52:53.445] added <- setdiff(names, old_names) 1573s [00:52:53.445] removed <- setdiff(old_names, names) 1573s [00:52:53.445] changed <- common[...future.oldEnvVars[common] != 1573s [00:52:53.445] envs[common]] 1573s [00:52:53.445] NAMES <- toupper(changed) 1573s [00:52:53.445] args <- list() 1573s [00:52:53.445] for (kk in seq_along(NAMES)) { 1573s [00:52:53.445] name <- changed[[kk]] 1573s [00:52:53.445] NAME <- NAMES[[kk]] 1573s [00:52:53.445] if (name != NAME && is.element(NAME, old_names)) 1573s [00:52:53.445] next 1573s [00:52:53.445] args[[name]] <- ...future.oldEnvVars[[name]] 1573s [00:52:53.445] } 1573s [00:52:53.445] NAMES <- toupper(added) 1573s [00:52:53.445] for (kk in seq_along(NAMES)) { 1573s [00:52:53.445] name <- added[[kk]] 1573s [00:52:53.445] NAME <- NAMES[[kk]] 1573s [00:52:53.445] if (name != NAME && is.element(NAME, old_names)) 1573s [00:52:53.445] next 1573s [00:52:53.445] args[[name]] <- "" 1573s [00:52:53.445] } 1573s [00:52:53.445] NAMES <- toupper(removed) 1573s [00:52:53.445] for (kk in seq_along(NAMES)) { 1573s [00:52:53.445] name <- removed[[kk]] 1573s [00:52:53.445] NAME <- NAMES[[kk]] 1573s [00:52:53.445] if (name != NAME && is.element(NAME, old_names)) 1573s [00:52:53.445] next 1573s [00:52:53.445] args[[name]] <- ...future.oldEnvVars[[name]] 1573s [00:52:53.445] } 1573s [00:52:53.445] if (length(args) > 0) 1573s [00:52:53.445] base::do.call(base::Sys.setenv, args = args) 1573s [00:52:53.445] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1573s [00:52:53.445] } 1573s [00:52:53.445] else { 1573s [00:52:53.445] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1573s [00:52:53.445] } 1573s [00:52:53.445] { 1573s [00:52:53.445] if (base::length(...future.futureOptionsAdded) > 1573s [00:52:53.445] 0L) { 1573s [00:52:53.445] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1573s [00:52:53.445] base::names(opts) <- ...future.futureOptionsAdded 1573s [00:52:53.445] base::options(opts) 1573s [00:52:53.445] } 1573s [00:52:53.445] { 1573s [00:52:53.445] { 1573s [00:52:53.445] NULL 1573s [00:52:53.445] RNGkind("Mersenne-Twister") 1573s [00:52:53.445] base::rm(list = ".Random.seed", envir = base::globalenv(), 1573s [00:52:53.445] inherits = FALSE) 1573s [00:52:53.445] } 1573s [00:52:53.445] options(future.plan = NULL) 1573s [00:52:53.445] if (is.na(NA_character_)) 1573s [00:52:53.445] Sys.unsetenv("R_FUTURE_PLAN") 1573s [00:52:53.445] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1573s [00:52:53.445] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1573s [00:52:53.445] envir = parent.frame()) 1573s [00:52:53.445] { 1573s [00:52:53.445] default_workers <- missing(workers) 1573s [00:52:53.445] if (is.function(workers)) 1573s [00:52:53.445] workers <- workers() 1573s [00:52:53.445] workers <- structure(as.integer(workers), 1573s [00:52:53.445] class = class(workers)) 1573s [00:52:53.445] stop_if_not(is.finite(workers), workers >= 1573s [00:52:53.445] 1L) 1573s [00:52:53.445] if ((workers == 1L && !inherits(workers, 1573s [00:52:53.445] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1573s [00:52:53.445] if (default_workers) 1573s [00:52:53.445] supportsMulticore(warn = TRUE) 1573s [00:52:53.445] return(sequential(..., envir = envir)) 1573s [00:52:53.445] } 1573s [00:52:53.445] oopts <- options(mc.cores = workers) 1573s [00:52:53.445] on.exit(options(oopts)) 1573s [00:52:53.445] future <- MulticoreFuture(..., workers = workers, 1573s [00:52:53.445] envir = envir) 1573s [00:52:53.445] if (!future$lazy) 1573s [00:52:53.445] future <- run(future) 1573s [00:52:53.445] invisible(future) 1573s [00:52:53.445] }), .cleanup = FALSE, .init = FALSE) 1573s [00:52:53.445] } 1573s [00:52:53.445] } 1573s [00:52:53.445] } 1573s [00:52:53.445] }) 1573s [00:52:53.445] if (TRUE) { 1573s [00:52:53.445] base::sink(type = "output", split = FALSE) 1573s [00:52:53.445] if (TRUE) { 1573s [00:52:53.445] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1573s [00:52:53.445] } 1573s [00:52:53.445] else { 1573s [00:52:53.445] ...future.result["stdout"] <- base::list(NULL) 1573s [00:52:53.445] } 1573s [00:52:53.445] base::close(...future.stdout) 1573s [00:52:53.445] ...future.stdout <- NULL 1573s [00:52:53.445] } 1573s [00:52:53.445] ...future.result$conditions <- ...future.conditions 1573s [00:52:53.445] ...future.result$finished <- base::Sys.time() 1573s [00:52:53.445] ...future.result 1573s [00:52:53.445] } 1573s [00:52:53.449] assign_globals() ... 1573s [00:52:53.449] List of 5 1573s [00:52:53.449] $ ...future.FUN :function (x, ...) 1573s [00:52:53.449] $ future.call.arguments : list() 1573s [00:52:53.449] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1573s [00:52:53.449] $ ...future.elements_ii :List of 3 1573s [00:52:53.449] ..$ a: num 1 1573s [00:52:53.449] ..$ b: num 2 1573s [00:52:53.449] ..$ c: num 3 1573s [00:52:53.449] $ ...future.seeds_ii : NULL 1573s [00:52:53.449] $ ...future.globals.maxSize: NULL 1573s [00:52:53.449] - attr(*, "where")=List of 5 1573s [00:52:53.449] ..$ ...future.FUN : 1573s [00:52:53.449] ..$ future.call.arguments : 1573s [00:52:53.449] ..$ ...future.elements_ii : 1573s [00:52:53.449] ..$ ...future.seeds_ii : 1573s [00:52:53.449] ..$ ...future.globals.maxSize: 1573s [00:52:53.449] - attr(*, "resolved")= logi FALSE 1573s [00:52:53.449] - attr(*, "total_size")= num 1248 1573s [00:52:53.449] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1573s [00:52:53.449] - attr(*, "already-done")= logi TRUE 1573s [00:52:53.459] - copied ‘...future.FUN’ to environment 1573s [00:52:53.459] - copied ‘future.call.arguments’ to environment 1573s [00:52:53.459] - copied ‘...future.elements_ii’ to environment 1573s [00:52:53.459] - copied ‘...future.seeds_ii’ to environment 1573s [00:52:53.459] - copied ‘...future.globals.maxSize’ to environment 1573s [00:52:53.460] assign_globals() ... done 1573s [00:52:53.460] plan(): Setting new future strategy stack: 1573s [00:52:53.460] List of future strategies: 1573s [00:52:53.460] 1. sequential: 1573s [00:52:53.460] - args: function (..., envir = parent.frame()) 1573s [00:52:53.460] - tweaked: FALSE 1573s [00:52:53.460] - call: NULL 1573s [00:52:53.461] plan(): nbrOfWorkers() = 1 1573s [00:52:53.462] plan(): Setting new future strategy stack: 1573s [00:52:53.463] List of future strategies: 1573s [00:52:53.463] 1. multicore: 1573s [00:52:53.463] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1573s [00:52:53.463] - tweaked: FALSE 1573s [00:52:53.463] - call: plan(strategy) 1573s [00:52:53.466] plan(): nbrOfWorkers() = 1 1573s [00:52:53.466] SequentialFuture started (and completed) 1573s [00:52:53.467] - Launch lazy future ... done 1573s [00:52:53.467] run() for ‘SequentialFuture’ ... done 1573s [00:52:53.467] Created future: 1573s [00:52:53.467] SequentialFuture: 1573s [00:52:53.467] Label: ‘future_sapply-1’ 1573s [00:52:53.467] Expression: 1573s [00:52:53.467] { 1573s [00:52:53.467] do.call(function(...) { 1573s [00:52:53.467] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1573s [00:52:53.467] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1573s [00:52:53.467] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1573s [00:52:53.467] on.exit(options(oopts), add = TRUE) 1573s [00:52:53.467] } 1573s [00:52:53.467] { 1573s [00:52:53.467] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1573s [00:52:53.467] ...future.X_jj <- ...future.elements_ii[[jj]] 1573s [00:52:53.467] ...future.FUN(...future.X_jj, ...) 1573s [00:52:53.467] }) 1573s [00:52:53.467] } 1573s [00:52:53.467] }, args = future.call.arguments) 1573s [00:52:53.467] } 1573s [00:52:53.467] Lazy evaluation: FALSE 1573s [00:52:53.467] Asynchronous evaluation: FALSE 1573s [00:52:53.467] Local evaluation: TRUE 1573s [00:52:53.467] Environment: R_GlobalEnv 1573s [00:52:53.467] Capture standard output: TRUE 1573s [00:52:53.467] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1573s [00:52:53.467] Globals: 5 objects totaling 1.38 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1573s [00:52:53.467] Packages: 1573s [00:52:53.467] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1573s [00:52:53.467] Resolved: TRUE 1573s [00:52:53.467] Value: 672 bytes of class ‘list’ 1573s [00:52:53.467] Early signaling: FALSE 1573s [00:52:53.467] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1573s [00:52:53.467] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1573s [00:52:53.469] Chunk #1 of 1 ... DONE 1573s [00:52:53.469] Launching 1 futures (chunks) ... DONE 1573s [00:52:53.469] Resolving 1 futures (chunks) ... 1573s [00:52:53.469] resolve() on list ... 1573s [00:52:53.470] recursive: 0 1573s [00:52:53.470] length: 1 1573s [00:52:53.470] 1573s [00:52:53.470] resolved() for ‘SequentialFuture’ ... 1573s [00:52:53.470] - state: ‘finished’ 1573s [00:52:53.470] - run: TRUE 1573s [00:52:53.471] - result: ‘FutureResult’ 1573s [00:52:53.471] resolved() for ‘SequentialFuture’ ... done 1573s [00:52:53.471] Future #1 1573s [00:52:53.471] signalConditionsASAP(SequentialFuture, pos=1) ... 1573s [00:52:53.472] - nx: 1 1573s [00:52:53.472] - relay: TRUE 1573s [00:52:53.472] - stdout: TRUE 1573s [00:52:53.472] - signal: TRUE 1573s [00:52:53.472] - resignal: FALSE 1573s [00:52:53.472] - force: TRUE 1573s [00:52:53.472] - relayed: [n=1] FALSE 1573s [00:52:53.473] - queued futures: [n=1] FALSE 1573s [00:52:53.473] - until=1 1573s [00:52:53.473] - relaying element #1 1573s [00:52:53.473] - relayed: [n=1] TRUE 1573s [00:52:53.473] - queued futures: [n=1] TRUE 1573s [00:52:53.473] signalConditionsASAP(SequentialFuture, pos=1) ... done 1573s [00:52:53.474] length: 0 (resolved future 1) 1573s [00:52:53.474] Relaying remaining futures 1573s [00:52:53.474] signalConditionsASAP(NULL, pos=0) ... 1573s [00:52:53.474] - nx: 1 1573s [00:52:53.474] - relay: TRUE 1573s [00:52:53.475] - stdout: TRUE 1573s [00:52:53.475] - signal: TRUE 1573s [00:52:53.477] - resignal: FALSE 1573s [00:52:53.477] - force: TRUE 1573s [00:52:53.477] - relayed: [n=1] TRUE 1573s [00:52:53.477] - queued futures: [n=1] TRUE 1573s - flush all 1573s [00:52:53.478] - relayed: [n=1] TRUE 1573s [00:52:53.478] - queued futures: [n=1] TRUE 1573s [00:52:53.478] signalConditionsASAP(NULL, pos=0) ... done 1573s [00:52:53.478] resolve() on list ... DONE 1573s [00:52:53.479] - Number of value chunks collected: 1 1573s [00:52:53.479] Resolving 1 futures (chunks) ... DONE 1573s [00:52:53.479] Reducing values from 1 chunks ... 1573s [00:52:53.479] - Number of values collected after concatenation: 3 1573s [00:52:53.479] - Number of values expected: 3 1573s [00:52:53.480] Reducing values from 1 chunks ... DONE 1573s [00:52:53.480] future_lapply() ... DONE 1573s List of 2 1573s $ y0: Named num [1:3] 1 2 3 1573s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1573s $ y1: Named num [1:3] 1 2 3 1573s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1573s [00:52:53.484] future_lapply() ... 1573s [00:52:53.490] Number of chunks: 1 1573s [00:52:53.490] getGlobalsAndPackagesXApply() ... 1573s [00:52:53.490] - future.globals: TRUE 1573s [00:52:53.490] getGlobalsAndPackages() ... 1573s [00:52:53.490] Searching for globals... 1573s [00:52:53.493] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1573s [00:52:53.493] Searching for globals ... DONE 1573s [00:52:53.493] Resolving globals: FALSE 1573s [00:52:53.494] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1573s [00:52:53.495] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1573s [00:52:53.495] - globals: [1] ‘FUN’ 1573s [00:52:53.495] 1573s [00:52:53.495] getGlobalsAndPackages() ... DONE 1573s [00:52:53.495] - globals found/used: [n=1] ‘FUN’ 1573s [00:52:53.495] - needed namespaces: [n=0] 1573s [00:52:53.496] Finding globals ... DONE 1573s [00:52:53.496] - use_args: TRUE 1573s [00:52:53.496] - Getting '...' globals ... 1573s [00:52:53.496] resolve() on list ... 1573s [00:52:53.496] recursive: 0 1573s [00:52:53.497] length: 1 1573s [00:52:53.497] elements: ‘...’ 1573s [00:52:53.497] length: 0 (resolved future 1) 1573s [00:52:53.497] resolve() on list ... DONE 1573s [00:52:53.497] - '...' content: [n=0] 1573s [00:52:53.498] List of 1 1573s [00:52:53.498] $ ...: list() 1573s [00:52:53.498] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1573s [00:52:53.498] - attr(*, "where")=List of 1 1573s [00:52:53.498] ..$ ...: 1573s [00:52:53.498] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1573s [00:52:53.498] - attr(*, "resolved")= logi TRUE 1573s [00:52:53.498] - attr(*, "total_size")= num NA 1573s [00:52:53.502] - Getting '...' globals ... DONE 1573s [00:52:53.503] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1573s [00:52:53.503] List of 2 1573s [00:52:53.503] $ ...future.FUN:function (x, y = 2 * 1:5) 1573s [00:52:53.503] $ ... : list() 1573s [00:52:53.503] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1573s [00:52:53.503] - attr(*, "where")=List of 2 1573s [00:52:53.503] ..$ ...future.FUN: 1573s [00:52:53.503] ..$ ... : 1573s [00:52:53.503] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1573s [00:52:53.503] - attr(*, "resolved")= logi FALSE 1573s [00:52:53.503] - attr(*, "total_size")= num 4728 1573s [00:52:53.507] Packages to be attached in all futures: [n=0] 1573s [00:52:53.508] getGlobalsAndPackagesXApply() ... DONE 1573s [00:52:53.508] Number of futures (= number of chunks): 1 1573s [00:52:53.509] Launching 1 futures (chunks) ... 1573s [00:52:53.509] Chunk #1 of 1 ... 1573s [00:52:53.509] - Finding globals in 'X' for chunk #1 ... 1573s [00:52:53.509] getGlobalsAndPackages() ... 1573s [00:52:53.509] Searching for globals... 1573s [00:52:53.510] 1573s [00:52:53.510] Searching for globals ... DONE 1573s [00:52:53.510] - globals: [0] 1573s [00:52:53.511] getGlobalsAndPackages() ... DONE 1573s [00:52:53.511] + additional globals found: [n=0] 1573s [00:52:53.511] + additional namespaces needed: [n=0] 1573s [00:52:53.511] - Finding globals in 'X' for chunk #1 ... DONE 1573s [00:52:53.512] - seeds: 1573s [00:52:53.512] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1573s [00:52:53.512] getGlobalsAndPackages() ... 1573s [00:52:53.512] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1573s [00:52:53.513] Resolving globals: FALSE 1573s [00:52:53.513] Tweak future expression to call with '...' arguments ... 1573s [00:52:53.514] { 1573s [00:52:53.514] do.call(function(...) { 1573s [00:52:53.514] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1573s [00:52:53.514] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1573s [00:52:53.514] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1573s [00:52:53.514] on.exit(options(oopts), add = TRUE) 1573s [00:52:53.514] } 1573s [00:52:53.514] { 1573s [00:52:53.514] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1573s [00:52:53.514] ...future.X_jj <- ...future.elements_ii[[jj]] 1573s [00:52:53.514] ...future.FUN(...future.X_jj, ...) 1573s [00:52:53.514] }) 1573s [00:52:53.514] } 1573s [00:52:53.514] }, args = future.call.arguments) 1573s [00:52:53.514] } 1573s [00:52:53.514] Tweak future expression to call with '...' arguments ... DONE 1573s [00:52:53.515] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1573s [00:52:53.516] 1573s [00:52:53.516] getGlobalsAndPackages() ... DONE 1573s [00:52:53.516] run() for ‘Future’ ... 1573s [00:52:53.517] - state: ‘created’ 1573s [00:52:53.517] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1573s [00:52:53.523] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1573s [00:52:53.523] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1573s [00:52:53.523] - Field: ‘label’ 1573s [00:52:53.523] - Field: ‘local’ 1573s [00:52:53.524] - Field: ‘owner’ 1573s [00:52:53.524] - Field: ‘envir’ 1573s [00:52:53.524] - Field: ‘packages’ 1573s [00:52:53.524] - Field: ‘gc’ 1573s [00:52:53.525] - Field: ‘conditions’ 1573s [00:52:53.525] - Field: ‘expr’ 1573s [00:52:53.525] - Field: ‘uuid’ 1573s [00:52:53.525] - Field: ‘seed’ 1573s [00:52:53.526] - Field: ‘version’ 1573s [00:52:53.526] - Field: ‘result’ 1573s [00:52:53.526] - Field: ‘asynchronous’ 1573s [00:52:53.527] - Field: ‘calls’ 1573s [00:52:53.527] - Field: ‘globals’ 1573s [00:52:53.527] - Field: ‘stdout’ 1573s [00:52:53.527] - Field: ‘earlySignal’ 1573s [00:52:53.528] - Field: ‘lazy’ 1573s [00:52:53.528] - Field: ‘state’ 1573s [00:52:53.528] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1573s [00:52:53.528] - Launch lazy future ... 1573s [00:52:53.529] Packages needed by the future expression (n = 0): 1573s [00:52:53.529] Packages needed by future strategies (n = 0): 1573s [00:52:53.529] { 1573s [00:52:53.529] { 1573s [00:52:53.529] { 1573s [00:52:53.529] ...future.startTime <- base::Sys.time() 1573s [00:52:53.529] { 1573s [00:52:53.529] { 1573s [00:52:53.529] { 1573s [00:52:53.529] base::local({ 1573s [00:52:53.529] has_future <- base::requireNamespace("future", 1573s [00:52:53.529] quietly = TRUE) 1573s [00:52:53.529] if (has_future) { 1573s [00:52:53.529] ns <- base::getNamespace("future") 1573s [00:52:53.529] version <- ns[[".package"]][["version"]] 1573s [00:52:53.529] if (is.null(version)) 1573s [00:52:53.529] version <- utils::packageVersion("future") 1573s [00:52:53.529] } 1573s [00:52:53.529] else { 1573s [00:52:53.529] version <- NULL 1573s [00:52:53.529] } 1573s [00:52:53.529] if (!has_future || version < "1.8.0") { 1573s [00:52:53.529] info <- base::c(r_version = base::gsub("R version ", 1573s [00:52:53.529] "", base::R.version$version.string), 1573s [00:52:53.529] platform = base::sprintf("%s (%s-bit)", 1573s [00:52:53.529] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1573s [00:52:53.529] os = base::paste(base::Sys.info()[base::c("sysname", 1573s [00:52:53.529] "release", "version")], collapse = " "), 1573s [00:52:53.529] hostname = base::Sys.info()[["nodename"]]) 1573s [00:52:53.529] info <- base::sprintf("%s: %s", base::names(info), 1573s [00:52:53.529] info) 1573s [00:52:53.529] info <- base::paste(info, collapse = "; ") 1573s [00:52:53.529] if (!has_future) { 1573s [00:52:53.529] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1573s [00:52:53.529] info) 1573s [00:52:53.529] } 1573s [00:52:53.529] else { 1573s [00:52:53.529] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1573s [00:52:53.529] info, version) 1573s [00:52:53.529] } 1573s [00:52:53.529] base::stop(msg) 1573s [00:52:53.529] } 1573s [00:52:53.529] }) 1573s [00:52:53.529] } 1573s [00:52:53.529] options(future.plan = NULL) 1573s [00:52:53.529] Sys.unsetenv("R_FUTURE_PLAN") 1573s [00:52:53.529] future::plan("default", .cleanup = FALSE, .init = FALSE) 1573s [00:52:53.529] } 1573s [00:52:53.529] ...future.workdir <- getwd() 1573s [00:52:53.529] } 1573s [00:52:53.529] ...future.oldOptions <- base::as.list(base::.Options) 1573s [00:52:53.529] ...future.oldEnvVars <- base::Sys.getenv() 1573s [00:52:53.529] } 1573s [00:52:53.529] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1573s [00:52:53.529] future.globals.maxSize = NULL, future.globals.method = NULL, 1573s [00:52:53.529] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1573s [00:52:53.529] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1573s [00:52:53.529] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1573s [00:52:53.529] future.stdout.windows.reencode = NULL, width = 80L) 1573s [00:52:53.529] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1573s [00:52:53.529] base::names(...future.oldOptions)) 1573s [00:52:53.529] } 1573s [00:52:53.529] if (FALSE) { 1573s [00:52:53.529] } 1573s [00:52:53.529] else { 1573s [00:52:53.529] if (TRUE) { 1573s [00:52:53.529] ...future.stdout <- base::rawConnection(base::raw(0L), 1573s [00:52:53.529] open = "w") 1573s [00:52:53.529] } 1573s [00:52:53.529] else { 1573s [00:52:53.529] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1573s [00:52:53.529] windows = "NUL", "/dev/null"), open = "w") 1573s [00:52:53.529] } 1573s [00:52:53.529] base::sink(...future.stdout, type = "output", split = FALSE) 1573s [00:52:53.529] base::on.exit(if (!base::is.null(...future.stdout)) { 1573s [00:52:53.529] base::sink(type = "output", split = FALSE) 1573s [00:52:53.529] base::close(...future.stdout) 1573s [00:52:53.529] }, add = TRUE) 1573s [00:52:53.529] } 1573s [00:52:53.529] ...future.frame <- base::sys.nframe() 1573s [00:52:53.529] ...future.conditions <- base::list() 1573s [00:52:53.529] ...future.rng <- base::globalenv()$.Random.seed 1573s [00:52:53.529] if (FALSE) { 1573s [00:52:53.529] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1573s [00:52:53.529] "...future.value", "...future.globalenv.names", ".Random.seed") 1573s [00:52:53.529] } 1573s [00:52:53.529] ...future.result <- base::tryCatch({ 1573s [00:52:53.529] base::withCallingHandlers({ 1573s [00:52:53.529] ...future.value <- base::withVisible(base::local({ 1573s [00:52:53.529] do.call(function(...) { 1573s [00:52:53.529] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1573s [00:52:53.529] if (!identical(...future.globals.maxSize.org, 1573s [00:52:53.529] ...future.globals.maxSize)) { 1573s [00:52:53.529] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1573s [00:52:53.529] on.exit(options(oopts), add = TRUE) 1573s [00:52:53.529] } 1573s [00:52:53.529] { 1573s [00:52:53.529] lapply(seq_along(...future.elements_ii), 1573s [00:52:53.529] FUN = function(jj) { 1573s [00:52:53.529] ...future.X_jj <- ...future.elements_ii[[jj]] 1573s [00:52:53.529] ...future.FUN(...future.X_jj, ...) 1573s [00:52:53.529] }) 1573s [00:52:53.529] } 1573s [00:52:53.529] }, args = future.call.arguments) 1573s [00:52:53.529] })) 1573s [00:52:53.529] future::FutureResult(value = ...future.value$value, 1573s [00:52:53.529] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1573s [00:52:53.529] ...future.rng), globalenv = if (FALSE) 1573s [00:52:53.529] list(added = base::setdiff(base::names(base::.GlobalEnv), 1573s [00:52:53.529] ...future.globalenv.names)) 1573s [00:52:53.529] else NULL, started = ...future.startTime, version = "1.8") 1573s [00:52:53.529] }, condition = base::local({ 1573s [00:52:53.529] c <- base::c 1573s [00:52:53.529] inherits <- base::inherits 1573s [00:52:53.529] invokeRestart <- base::invokeRestart 1573s [00:52:53.529] length <- base::length 1573s [00:52:53.529] list <- base::list 1573s [00:52:53.529] seq.int <- base::seq.int 1573s [00:52:53.529] signalCondition <- base::signalCondition 1573s [00:52:53.529] sys.calls <- base::sys.calls 1573s [00:52:53.529] `[[` <- base::`[[` 1573s [00:52:53.529] `+` <- base::`+` 1573s [00:52:53.529] `<<-` <- base::`<<-` 1573s [00:52:53.529] sysCalls <- function(calls = sys.calls(), from = 1L) { 1573s [00:52:53.529] calls[seq.int(from = from + 12L, to = length(calls) - 1573s [00:52:53.529] 3L)] 1573s [00:52:53.529] } 1573s [00:52:53.529] function(cond) { 1573s [00:52:53.529] is_error <- inherits(cond, "error") 1573s [00:52:53.529] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1573s [00:52:53.529] NULL) 1573s [00:52:53.529] if (is_error) { 1573s [00:52:53.529] sessionInformation <- function() { 1573s [00:52:53.529] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1573s [00:52:53.529] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1573s [00:52:53.529] search = base::search(), system = base::Sys.info()) 1573s [00:52:53.529] } 1573s [00:52:53.529] ...future.conditions[[length(...future.conditions) + 1573s [00:52:53.529] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1573s [00:52:53.529] cond$call), session = sessionInformation(), 1573s [00:52:53.529] timestamp = base::Sys.time(), signaled = 0L) 1573s [00:52:53.529] signalCondition(cond) 1573s [00:52:53.529] } 1573s [00:52:53.529] else if (!ignore && TRUE && inherits(cond, c("condition", 1573s [00:52:53.529] "immediateCondition"))) { 1573s [00:52:53.529] signal <- TRUE && inherits(cond, "immediateCondition") 1573s [00:52:53.529] ...future.conditions[[length(...future.conditions) + 1573s [00:52:53.529] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1573s [00:52:53.529] if (TRUE && !signal) { 1573s [00:52:53.529] muffleCondition <- function (cond, pattern = "^muffle") 1573s [00:52:53.529] { 1573s [00:52:53.529] inherits <- base::inherits 1573s [00:52:53.529] invokeRestart <- base::invokeRestart 1573s [00:52:53.529] is.null <- base::is.null 1573s [00:52:53.529] muffled <- FALSE 1573s [00:52:53.529] if (inherits(cond, "message")) { 1573s [00:52:53.529] muffled <- grepl(pattern, "muffleMessage") 1573s [00:52:53.529] if (muffled) 1573s [00:52:53.529] invokeRestart("muffleMessage") 1573s [00:52:53.529] } 1573s [00:52:53.529] else if (inherits(cond, "warning")) { 1573s [00:52:53.529] muffled <- grepl(pattern, "muffleWarning") 1573s [00:52:53.529] if (muffled) 1573s [00:52:53.529] invokeRestart("muffleWarning") 1573s [00:52:53.529] } 1573s [00:52:53.529] else if (inherits(cond, "condition")) { 1573s [00:52:53.529] if (!is.null(pattern)) { 1573s [00:52:53.529] computeRestarts <- base::computeRestarts 1573s [00:52:53.529] grepl <- base::grepl 1573s [00:52:53.529] restarts <- computeRestarts(cond) 1573s [00:52:53.529] for (restart in restarts) { 1573s [00:52:53.529] name <- restart$name 1573s [00:52:53.529] if (is.null(name)) 1573s [00:52:53.529] next 1573s [00:52:53.529] if (!grepl(pattern, name)) 1573s [00:52:53.529] next 1573s [00:52:53.529] invokeRestart(restart) 1573s [00:52:53.529] muffled <- TRUE 1573s [00:52:53.529] break 1573s [00:52:53.529] } 1573s [00:52:53.529] } 1573s [00:52:53.529] } 1573s [00:52:53.529] invisible(muffled) 1573s [00:52:53.529] } 1573s [00:52:53.529] muffleCondition(cond, pattern = "^muffle") 1573s [00:52:53.529] } 1573s [00:52:53.529] } 1573s [00:52:53.529] else { 1573s [00:52:53.529] if (TRUE) { 1573s [00:52:53.529] muffleCondition <- function (cond, pattern = "^muffle") 1573s [00:52:53.529] { 1573s [00:52:53.529] inherits <- base::inherits 1573s [00:52:53.529] invokeRestart <- base::invokeRestart 1573s [00:52:53.529] is.null <- base::is.null 1573s [00:52:53.529] muffled <- FALSE 1573s [00:52:53.529] if (inherits(cond, "message")) { 1573s [00:52:53.529] muffled <- grepl(pattern, "muffleMessage") 1573s [00:52:53.529] if (muffled) 1573s [00:52:53.529] invokeRestart("muffleMessage") 1573s [00:52:53.529] } 1573s [00:52:53.529] else if (inherits(cond, "warning")) { 1573s [00:52:53.529] muffled <- grepl(pattern, "muffleWarning") 1573s [00:52:53.529] if (muffled) 1573s [00:52:53.529] invokeRestart("muffleWarning") 1573s [00:52:53.529] } 1573s [00:52:53.529] else if (inherits(cond, "condition")) { 1573s [00:52:53.529] if (!is.null(pattern)) { 1573s [00:52:53.529] computeRestarts <- base::computeRestarts 1573s [00:52:53.529] grepl <- base::grepl 1573s [00:52:53.529] restarts <- computeRestarts(cond) 1573s [00:52:53.529] for (restart in restarts) { 1573s [00:52:53.529] name <- restart$name 1573s [00:52:53.529] if (is.null(name)) 1573s [00:52:53.529] next 1573s [00:52:53.529] if (!grepl(pattern, name)) 1573s [00:52:53.529] next 1573s [00:52:53.529] invokeRestart(restart) 1573s [00:52:53.529] muffled <- TRUE 1573s [00:52:53.529] break 1573s [00:52:53.529] } 1573s [00:52:53.529] } 1573s [00:52:53.529] } 1573s [00:52:53.529] invisible(muffled) 1573s [00:52:53.529] } 1573s [00:52:53.529] muffleCondition(cond, pattern = "^muffle") 1573s [00:52:53.529] } 1573s [00:52:53.529] } 1573s [00:52:53.529] } 1573s [00:52:53.529] })) 1573s [00:52:53.529] }, error = function(ex) { 1573s [00:52:53.529] base::structure(base::list(value = NULL, visible = NULL, 1573s [00:52:53.529] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1573s [00:52:53.529] ...future.rng), started = ...future.startTime, 1573s [00:52:53.529] finished = Sys.time(), session_uuid = NA_character_, 1573s [00:52:53.529] version = "1.8"), class = "FutureResult") 1573s [00:52:53.529] }, finally = { 1573s [00:52:53.529] if (!identical(...future.workdir, getwd())) 1573s [00:52:53.529] setwd(...future.workdir) 1573s [00:52:53.529] { 1573s [00:52:53.529] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1573s [00:52:53.529] ...future.oldOptions$nwarnings <- NULL 1573s [00:52:53.529] } 1573s [00:52:53.529] base::options(...future.oldOptions) 1573s [00:52:53.529] if (.Platform$OS.type == "windows") { 1573s [00:52:53.529] old_names <- names(...future.oldEnvVars) 1573s [00:52:53.529] envs <- base::Sys.getenv() 1573s [00:52:53.529] names <- names(envs) 1573s [00:52:53.529] common <- intersect(names, old_names) 1573s [00:52:53.529] added <- setdiff(names, old_names) 1573s [00:52:53.529] removed <- setdiff(old_names, names) 1573s [00:52:53.529] changed <- common[...future.oldEnvVars[common] != 1573s [00:52:53.529] envs[common]] 1573s [00:52:53.529] NAMES <- toupper(changed) 1573s [00:52:53.529] args <- list() 1573s [00:52:53.529] for (kk in seq_along(NAMES)) { 1573s [00:52:53.529] name <- changed[[kk]] 1573s [00:52:53.529] NAME <- NAMES[[kk]] 1573s [00:52:53.529] if (name != NAME && is.element(NAME, old_names)) 1573s [00:52:53.529] next 1573s [00:52:53.529] args[[name]] <- ...future.oldEnvVars[[name]] 1573s [00:52:53.529] } 1573s [00:52:53.529] NAMES <- toupper(added) 1573s [00:52:53.529] for (kk in seq_along(NAMES)) { 1573s [00:52:53.529] name <- added[[kk]] 1573s [00:52:53.529] NAME <- NAMES[[kk]] 1573s [00:52:53.529] if (name != NAME && is.element(NAME, old_names)) 1573s [00:52:53.529] next 1573s [00:52:53.529] args[[name]] <- "" 1573s [00:52:53.529] } 1573s [00:52:53.529] NAMES <- toupper(removed) 1573s [00:52:53.529] for (kk in seq_along(NAMES)) { 1573s [00:52:53.529] name <- removed[[kk]] 1573s [00:52:53.529] NAME <- NAMES[[kk]] 1573s [00:52:53.529] if (name != NAME && is.element(NAME, old_names)) 1573s [00:52:53.529] next 1573s [00:52:53.529] args[[name]] <- ...future.oldEnvVars[[name]] 1573s [00:52:53.529] } 1573s [00:52:53.529] if (length(args) > 0) 1573s [00:52:53.529] base::do.call(base::Sys.setenv, args = args) 1573s [00:52:53.529] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1573s [00:52:53.529] } 1573s [00:52:53.529] else { 1573s [00:52:53.529] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1573s [00:52:53.529] } 1573s [00:52:53.529] { 1573s [00:52:53.529] if (base::length(...future.futureOptionsAdded) > 1573s [00:52:53.529] 0L) { 1573s [00:52:53.529] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1573s [00:52:53.529] base::names(opts) <- ...future.futureOptionsAdded 1573s [00:52:53.529] base::options(opts) 1573s [00:52:53.529] } 1573s [00:52:53.529] { 1573s [00:52:53.529] { 1573s [00:52:53.529] NULL 1573s [00:52:53.529] RNGkind("Mersenne-Twister") 1573s [00:52:53.529] base::rm(list = ".Random.seed", envir = base::globalenv(), 1573s [00:52:53.529] inherits = FALSE) 1573s [00:52:53.529] } 1573s [00:52:53.529] options(future.plan = NULL) 1573s [00:52:53.529] if (is.na(NA_character_)) 1573s [00:52:53.529] Sys.unsetenv("R_FUTURE_PLAN") 1573s [00:52:53.529] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1573s [00:52:53.529] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1573s [00:52:53.529] envir = parent.frame()) 1573s [00:52:53.529] { 1573s [00:52:53.529] default_workers <- missing(workers) 1573s [00:52:53.529] if (is.function(workers)) 1573s [00:52:53.529] workers <- workers() 1573s [00:52:53.529] workers <- structure(as.integer(workers), 1573s [00:52:53.529] class = class(workers)) 1573s [00:52:53.529] stop_if_not(is.finite(workers), workers >= 1573s [00:52:53.529] 1L) 1573s [00:52:53.529] if ((workers == 1L && !inherits(workers, 1573s [00:52:53.529] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1573s [00:52:53.529] if (default_workers) 1573s [00:52:53.529] supportsMulticore(warn = TRUE) 1573s [00:52:53.529] return(sequential(..., envir = envir)) 1573s [00:52:53.529] } 1573s [00:52:53.529] oopts <- options(mc.cores = workers) 1573s [00:52:53.529] on.exit(options(oopts)) 1573s [00:52:53.529] future <- MulticoreFuture(..., workers = workers, 1573s [00:52:53.529] envir = envir) 1573s [00:52:53.529] if (!future$lazy) 1573s [00:52:53.529] future <- run(future) 1573s [00:52:53.529] invisible(future) 1573s [00:52:53.529] }), .cleanup = FALSE, .init = FALSE) 1573s [00:52:53.529] } 1573s [00:52:53.529] } 1573s [00:52:53.529] } 1573s [00:52:53.529] }) 1573s [00:52:53.529] if (TRUE) { 1573s [00:52:53.529] base::sink(type = "output", split = FALSE) 1573s [00:52:53.529] if (TRUE) { 1573s [00:52:53.529] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1573s [00:52:53.529] } 1573s [00:52:53.529] else { 1573s [00:52:53.529] ...future.result["stdout"] <- base::list(NULL) 1573s [00:52:53.529] } 1573s [00:52:53.529] base::close(...future.stdout) 1573s [00:52:53.529] ...future.stdout <- NULL 1573s [00:52:53.529] } 1573s [00:52:53.529] ...future.result$conditions <- ...future.conditions 1573s [00:52:53.529] ...future.result$finished <- base::Sys.time() 1573s [00:52:53.529] ...future.result 1573s [00:52:53.529] } 1573s [00:52:53.534] assign_globals() ... 1573s [00:52:53.535] List of 5 1573s [00:52:53.535] $ ...future.FUN :function (x, y = 2 * 1:5) 1573s [00:52:53.535] $ future.call.arguments : list() 1573s [00:52:53.535] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1573s [00:52:53.535] $ ...future.elements_ii :List of 3 1573s [00:52:53.535] ..$ a: num 1 1573s [00:52:53.535] ..$ b: num 2 1573s [00:52:53.535] ..$ c: num 3 1573s [00:52:53.535] $ ...future.seeds_ii : NULL 1573s [00:52:53.535] $ ...future.globals.maxSize: NULL 1573s [00:52:53.535] - attr(*, "where")=List of 5 1573s [00:52:53.535] ..$ ...future.FUN : 1573s [00:52:53.535] ..$ future.call.arguments : 1573s [00:52:53.535] ..$ ...future.elements_ii : 1573s [00:52:53.535] ..$ ...future.seeds_ii : 1573s [00:52:53.535] ..$ ...future.globals.maxSize: 1573s [00:52:53.535] - attr(*, "resolved")= logi FALSE 1573s [00:52:53.535] - attr(*, "total_size")= num 4728 1573s [00:52:53.535] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1573s [00:52:53.535] - attr(*, "already-done")= logi TRUE 1573s [00:52:53.545] - reassign environment for ‘...future.FUN’ 1573s [00:52:53.546] - copied ‘...future.FUN’ to environment 1573s [00:52:53.546] - copied ‘future.call.arguments’ to environment 1573s [00:52:53.546] - copied ‘...future.elements_ii’ to environment 1573s [00:52:53.546] - copied ‘...future.seeds_ii’ to environment 1573s [00:52:53.546] - copied ‘...future.globals.maxSize’ to environment 1573s [00:52:53.546] assign_globals() ... done 1573s [00:52:53.547] plan(): Setting new future strategy stack: 1573s [00:52:53.547] List of future strategies: 1573s [00:52:53.547] 1. sequential: 1573s [00:52:53.547] - args: function (..., envir = parent.frame()) 1573s [00:52:53.547] - tweaked: FALSE 1573s [00:52:53.547] - call: NULL 1573s [00:52:53.548] plan(): nbrOfWorkers() = 1 1573s [00:52:53.548] plan(): Setting new future strategy stack: 1573s [00:52:53.549] List of future strategies: 1573s [00:52:53.549] 1. multicore: 1573s [00:52:53.549] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1573s [00:52:53.549] - tweaked: FALSE 1573s [00:52:53.549] - call: plan(strategy) 1573s [00:52:53.553] plan(): nbrOfWorkers() = 1 1573s [00:52:53.554] SequentialFuture started (and completed) 1573s [00:52:53.554] - Launch lazy future ... done 1573s [00:52:53.554] run() for ‘SequentialFuture’ ... done 1573s [00:52:53.555] Created future: 1573s [00:52:53.555] SequentialFuture: 1573s [00:52:53.555] Label: ‘future_sapply-1’ 1573s [00:52:53.555] Expression: 1573s [00:52:53.555] { 1573s [00:52:53.555] do.call(function(...) { 1573s [00:52:53.555] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1573s [00:52:53.555] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1573s [00:52:53.555] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1573s [00:52:53.555] on.exit(options(oopts), add = TRUE) 1573s [00:52:53.555] } 1573s [00:52:53.555] { 1573s [00:52:53.555] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1573s [00:52:53.555] ...future.X_jj <- ...future.elements_ii[[jj]] 1573s [00:52:53.555] ...future.FUN(...future.X_jj, ...) 1573s [00:52:53.555] }) 1573s [00:52:53.555] } 1573s [00:52:53.555] }, args = future.call.arguments) 1573s [00:52:53.555] } 1573s [00:52:53.555] Lazy evaluation: FALSE 1573s [00:52:53.555] Asynchronous evaluation: FALSE 1573s [00:52:53.555] Local evaluation: TRUE 1573s [00:52:53.555] Environment: R_GlobalEnv 1573s [00:52:53.555] Capture standard output: TRUE 1573s [00:52:53.555] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1573s [00:52:53.555] Globals: 5 objects totaling 4.78 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1573s [00:52:53.555] Packages: 1573s [00:52:53.555] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1573s [00:52:53.555] Resolved: TRUE 1573s [00:52:53.555] Value: 1.01 KiB of class ‘list’ 1573s [00:52:53.555] Early signaling: FALSE 1573s [00:52:53.555] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1573s [00:52:53.555] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1573s [00:52:53.557] Chunk #1 of 1 ... DONE 1573s [00:52:53.557] Launching 1 futures (chunks) ... DONE 1573s [00:52:53.557] Resolving 1 futures (chunks) ... 1573s [00:52:53.557] resolve() on list ... 1573s [00:52:53.557] recursive: 0 1573s [00:52:53.557] length: 1 1573s [00:52:53.557] 1573s [00:52:53.558] resolved() for ‘SequentialFuture’ ... 1573s [00:52:53.558] - state: ‘finished’ 1573s [00:52:53.558] - run: TRUE 1573s [00:52:53.558] - result: ‘FutureResult’ 1573s [00:52:53.558] resolved() for ‘SequentialFuture’ ... done 1573s [00:52:53.559] Future #1 1573s [00:52:53.559] signalConditionsASAP(SequentialFuture, pos=1) ... 1573s [00:52:53.560] - nx: 1 1573s [00:52:53.560] - relay: TRUE 1573s [00:52:53.561] - stdout: TRUE 1573s [00:52:53.561] - signal: TRUE 1573s [00:52:53.561] - resignal: FALSE 1573s [00:52:53.561] - force: TRUE 1573s [00:52:53.561] - relayed: [n=1] FALSE 1573s [00:52:53.562] - queued futures: [n=1] FALSE 1573s [00:52:53.562] - until=1 1573s [00:52:53.562] - relaying element #1 1573s [00:52:53.562] - relayed: [n=1] TRUE 1573s [00:52:53.563] - queued futures: [n=1] TRUE 1573s [00:52:53.563] signalConditionsASAP(SequentialFuture, pos=1) ... done 1573s [00:52:53.563] length: 0 (resolved future 1) 1573s [00:52:53.563] Relaying remaining futures 1573s [00:52:53.563] signalConditionsASAP(NULL, pos=0) ... 1573s [00:52:53.563] - nx: 1 1573s [00:52:53.564] - relay: TRUE 1573s [00:52:53.564] - stdout: TRUE 1573s [00:52:53.564] - signal: TRUE 1573s [00:52:53.564] - resignal: FALSE 1573s [00:52:53.564] - force: TRUE 1573s [00:52:53.565] - relayed: [n=1] TRUE 1573s [00:52:53.565] - queued futures: [n=1] TRUE 1573s - flush all 1573s [00:52:53.565] - relayed: [n=1] TRUE 1573s [00:52:53.565] - queued futures: [n=1] TRUE 1573s [00:52:53.565] signalConditionsASAP(NULL, pos=0) ... done 1573s [00:52:53.565] resolve() on list ... DONE 1573s [00:52:53.566] - Number of value chunks collected: 1 1573s [00:52:53.566] Resolving 1 futures (chunks) ... DONE 1573s [00:52:53.566] Reducing values from 1 chunks ... 1573s [00:52:53.566] - Number of values collected after concatenation: 3 1573s [00:52:53.566] - Number of values expected: 3 1573s [00:52:53.566] Reducing values from 1 chunks ... DONE 1573s [00:52:53.567] future_lapply() ... DONE 1573s List of 2 1573s $ y0: num [1:3, 1:5, 1:3] 2 2 2 4 4 4 6 6 6 8 ... 1573s ..- attr(*, "dimnames")=List of 3 1573s .. ..$ : NULL 1573s .. ..$ : NULL 1573s .. ..$ : chr [1:3] "a" "b" "c" 1573s $ y1: num [1:3, 1:5, 1:3] 2 2 2 4 4 4 6 6 6 8 ... 1573s ..- attr(*, "dimnames")=List of 3 1573s .. ..$ : NULL 1573s .. ..$ : NULL 1573s .. ..$ : chr [1:3] "a" "b" "c" 1573s [00:52:53.574] future_lapply() ... 1573s [00:52:53.579] Number of chunks: 1 1573s [00:52:53.580] getGlobalsAndPackagesXApply() ... 1573s [00:52:53.580] - future.globals: TRUE 1573s [00:52:53.580] getGlobalsAndPackages() ... 1573s [00:52:53.580] Searching for globals... 1573s [00:52:53.582] - globals found: [1] ‘FUN’ 1573s [00:52:53.582] Searching for globals ... DONE 1573s [00:52:53.582] Resolving globals: FALSE 1573s [00:52:53.583] The total size of the 1 globals is 848 bytes (848 bytes) 1573s [00:52:53.583] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1573s [00:52:53.583] - globals: [1] ‘FUN’ 1573s [00:52:53.583] 1573s [00:52:53.584] getGlobalsAndPackages() ... DONE 1573s [00:52:53.584] - globals found/used: [n=1] ‘FUN’ 1573s [00:52:53.584] - needed namespaces: [n=0] 1573s [00:52:53.584] Finding globals ... DONE 1573s [00:52:53.584] - use_args: TRUE 1573s [00:52:53.584] - Getting '...' globals ... 1573s [00:52:53.585] resolve() on list ... 1573s [00:52:53.585] recursive: 0 1573s [00:52:53.585] length: 1 1573s [00:52:53.585] elements: ‘...’ 1573s [00:52:53.585] length: 0 (resolved future 1) 1573s [00:52:53.585] resolve() on list ... DONE 1573s [00:52:53.586] - '...' content: [n=0] 1573s [00:52:53.586] List of 1 1573s [00:52:53.586] $ ...: list() 1573s [00:52:53.586] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1573s [00:52:53.586] - attr(*, "where")=List of 1 1573s [00:52:53.586] ..$ ...: 1573s [00:52:53.586] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1573s [00:52:53.586] - attr(*, "resolved")= logi TRUE 1573s [00:52:53.586] - attr(*, "total_size")= num NA 1573s [00:52:53.590] - Getting '...' globals ... DONE 1573s [00:52:53.590] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1573s [00:52:53.590] List of 2 1573s [00:52:53.590] $ ...future.FUN:function (x) 1573s [00:52:53.590] $ ... : list() 1573s [00:52:53.590] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1573s [00:52:53.590] - attr(*, "where")=List of 2 1573s [00:52:53.590] ..$ ...future.FUN: 1573s [00:52:53.590] ..$ ... : 1573s [00:52:53.590] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1573s [00:52:53.590] - attr(*, "resolved")= logi FALSE 1573s [00:52:53.590] - attr(*, "total_size")= num 848 1573s [00:52:53.595] Packages to be attached in all futures: [n=0] 1573s [00:52:53.595] getGlobalsAndPackagesXApply() ... DONE 1573s [00:52:53.596] Number of futures (= number of chunks): 1 1573s [00:52:53.596] Launching 1 futures (chunks) ... 1573s [00:52:53.596] Chunk #1 of 1 ... 1573s [00:52:53.596] - Finding globals in 'X' for chunk #1 ... 1573s [00:52:53.596] getGlobalsAndPackages() ... 1573s [00:52:53.596] Searching for globals... 1573s [00:52:53.597] 1573s [00:52:53.597] Searching for globals ... DONE 1573s [00:52:53.597] - globals: [0] 1573s [00:52:53.597] getGlobalsAndPackages() ... DONE 1573s [00:52:53.598] + additional globals found: [n=0] 1573s [00:52:53.598] + additional namespaces needed: [n=0] 1573s [00:52:53.598] - Finding globals in 'X' for chunk #1 ... DONE 1573s [00:52:53.598] - seeds: 1573s [00:52:53.598] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1573s [00:52:53.598] getGlobalsAndPackages() ... 1573s [00:52:53.599] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1573s [00:52:53.599] Resolving globals: FALSE 1573s [00:52:53.599] Tweak future expression to call with '...' arguments ... 1573s [00:52:53.599] { 1573s [00:52:53.599] do.call(function(...) { 1573s [00:52:53.599] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1573s [00:52:53.599] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1573s [00:52:53.599] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1573s [00:52:53.599] on.exit(options(oopts), add = TRUE) 1573s [00:52:53.599] } 1573s [00:52:53.599] { 1573s [00:52:53.599] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1573s [00:52:53.599] ...future.X_jj <- ...future.elements_ii[[jj]] 1573s [00:52:53.599] ...future.FUN(...future.X_jj, ...) 1573s [00:52:53.599] }) 1573s [00:52:53.599] } 1573s [00:52:53.599] }, args = future.call.arguments) 1573s [00:52:53.599] } 1573s [00:52:53.600] Tweak future expression to call with '...' arguments ... DONE 1573s [00:52:53.600] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1573s [00:52:53.601] 1573s [00:52:53.601] getGlobalsAndPackages() ... DONE 1573s [00:52:53.601] run() for ‘Future’ ... 1573s [00:52:53.601] - state: ‘created’ 1573s [00:52:53.602] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1573s [00:52:53.605] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1573s [00:52:53.605] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1573s [00:52:53.605] - Field: ‘label’ 1573s [00:52:53.606] - Field: ‘local’ 1573s [00:52:53.606] - Field: ‘owner’ 1573s [00:52:53.606] - Field: ‘envir’ 1573s [00:52:53.606] - Field: ‘packages’ 1573s [00:52:53.606] - Field: ‘gc’ 1573s [00:52:53.606] - Field: ‘conditions’ 1573s [00:52:53.606] - Field: ‘expr’ 1573s [00:52:53.607] - Field: ‘uuid’ 1573s [00:52:53.607] - Field: ‘seed’ 1573s [00:52:53.607] - Field: ‘version’ 1573s [00:52:53.607] - Field: ‘result’ 1573s [00:52:53.607] - Field: ‘asynchronous’ 1573s [00:52:53.607] - Field: ‘calls’ 1573s [00:52:53.608] - Field: ‘globals’ 1573s [00:52:53.608] - Field: ‘stdout’ 1573s [00:52:53.608] - Field: ‘earlySignal’ 1573s [00:52:53.608] - Field: ‘lazy’ 1573s [00:52:53.608] - Field: ‘state’ 1573s [00:52:53.608] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1573s [00:52:53.608] - Launch lazy future ... 1573s [00:52:53.609] Packages needed by the future expression (n = 0): 1573s [00:52:53.609] Packages needed by future strategies (n = 0): 1573s [00:52:53.610] { 1573s [00:52:53.610] { 1573s [00:52:53.610] { 1573s [00:52:53.610] ...future.startTime <- base::Sys.time() 1573s [00:52:53.610] { 1573s [00:52:53.610] { 1573s [00:52:53.610] { 1573s [00:52:53.610] base::local({ 1573s [00:52:53.610] has_future <- base::requireNamespace("future", 1573s [00:52:53.610] quietly = TRUE) 1573s [00:52:53.610] if (has_future) { 1573s [00:52:53.610] ns <- base::getNamespace("future") 1573s [00:52:53.610] version <- ns[[".package"]][["version"]] 1573s [00:52:53.610] if (is.null(version)) 1573s [00:52:53.610] version <- utils::packageVersion("future") 1573s [00:52:53.610] } 1573s [00:52:53.610] else { 1573s [00:52:53.610] version <- NULL 1573s [00:52:53.610] } 1573s [00:52:53.610] if (!has_future || version < "1.8.0") { 1573s [00:52:53.610] info <- base::c(r_version = base::gsub("R version ", 1573s [00:52:53.610] "", base::R.version$version.string), 1573s [00:52:53.610] platform = base::sprintf("%s (%s-bit)", 1573s [00:52:53.610] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1573s [00:52:53.610] os = base::paste(base::Sys.info()[base::c("sysname", 1573s [00:52:53.610] "release", "version")], collapse = " "), 1573s [00:52:53.610] hostname = base::Sys.info()[["nodename"]]) 1573s [00:52:53.610] info <- base::sprintf("%s: %s", base::names(info), 1573s [00:52:53.610] info) 1573s [00:52:53.610] info <- base::paste(info, collapse = "; ") 1573s [00:52:53.610] if (!has_future) { 1573s [00:52:53.610] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1573s [00:52:53.610] info) 1573s [00:52:53.610] } 1573s [00:52:53.610] else { 1573s [00:52:53.610] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1573s [00:52:53.610] info, version) 1573s [00:52:53.610] } 1573s [00:52:53.610] base::stop(msg) 1573s [00:52:53.610] } 1573s [00:52:53.610] }) 1573s [00:52:53.610] } 1573s [00:52:53.610] options(future.plan = NULL) 1573s [00:52:53.610] Sys.unsetenv("R_FUTURE_PLAN") 1573s [00:52:53.610] future::plan("default", .cleanup = FALSE, .init = FALSE) 1573s [00:52:53.610] } 1573s [00:52:53.610] ...future.workdir <- getwd() 1573s [00:52:53.610] } 1573s [00:52:53.610] ...future.oldOptions <- base::as.list(base::.Options) 1573s [00:52:53.610] ...future.oldEnvVars <- base::Sys.getenv() 1573s [00:52:53.610] } 1573s [00:52:53.610] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1573s [00:52:53.610] future.globals.maxSize = NULL, future.globals.method = NULL, 1573s [00:52:53.610] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1573s [00:52:53.610] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1573s [00:52:53.610] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1573s [00:52:53.610] future.stdout.windows.reencode = NULL, width = 80L) 1573s [00:52:53.610] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1573s [00:52:53.610] base::names(...future.oldOptions)) 1573s [00:52:53.610] } 1573s [00:52:53.610] if (FALSE) { 1573s [00:52:53.610] } 1573s [00:52:53.610] else { 1573s [00:52:53.610] if (TRUE) { 1573s [00:52:53.610] ...future.stdout <- base::rawConnection(base::raw(0L), 1573s [00:52:53.610] open = "w") 1573s [00:52:53.610] } 1573s [00:52:53.610] else { 1573s [00:52:53.610] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1573s [00:52:53.610] windows = "NUL", "/dev/null"), open = "w") 1573s [00:52:53.610] } 1573s [00:52:53.610] base::sink(...future.stdout, type = "output", split = FALSE) 1573s [00:52:53.610] base::on.exit(if (!base::is.null(...future.stdout)) { 1573s [00:52:53.610] base::sink(type = "output", split = FALSE) 1573s [00:52:53.610] base::close(...future.stdout) 1573s [00:52:53.610] }, add = TRUE) 1573s [00:52:53.610] } 1573s [00:52:53.610] ...future.frame <- base::sys.nframe() 1573s [00:52:53.610] ...future.conditions <- base::list() 1573s [00:52:53.610] ...future.rng <- base::globalenv()$.Random.seed 1573s [00:52:53.610] if (FALSE) { 1573s [00:52:53.610] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1573s [00:52:53.610] "...future.value", "...future.globalenv.names", ".Random.seed") 1573s [00:52:53.610] } 1573s [00:52:53.610] ...future.result <- base::tryCatch({ 1573s [00:52:53.610] base::withCallingHandlers({ 1573s [00:52:53.610] ...future.value <- base::withVisible(base::local({ 1573s [00:52:53.610] do.call(function(...) { 1573s [00:52:53.610] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1573s [00:52:53.610] if (!identical(...future.globals.maxSize.org, 1573s [00:52:53.610] ...future.globals.maxSize)) { 1573s [00:52:53.610] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1573s [00:52:53.610] on.exit(options(oopts), add = TRUE) 1573s [00:52:53.610] } 1573s [00:52:53.610] { 1573s [00:52:53.610] lapply(seq_along(...future.elements_ii), 1573s [00:52:53.610] FUN = function(jj) { 1573s [00:52:53.610] ...future.X_jj <- ...future.elements_ii[[jj]] 1573s [00:52:53.610] ...future.FUN(...future.X_jj, ...) 1573s [00:52:53.610] }) 1573s [00:52:53.610] } 1573s [00:52:53.610] }, args = future.call.arguments) 1573s [00:52:53.610] })) 1573s [00:52:53.610] future::FutureResult(value = ...future.value$value, 1573s [00:52:53.610] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1573s [00:52:53.610] ...future.rng), globalenv = if (FALSE) 1573s [00:52:53.610] list(added = base::setdiff(base::names(base::.GlobalEnv), 1573s [00:52:53.610] ...future.globalenv.names)) 1573s [00:52:53.610] else NULL, started = ...future.startTime, version = "1.8") 1573s [00:52:53.610] }, condition = base::local({ 1573s [00:52:53.610] c <- base::c 1573s [00:52:53.610] inherits <- base::inherits 1573s [00:52:53.610] invokeRestart <- base::invokeRestart 1573s [00:52:53.610] length <- base::length 1573s [00:52:53.610] list <- base::list 1573s [00:52:53.610] seq.int <- base::seq.int 1573s [00:52:53.610] signalCondition <- base::signalCondition 1573s [00:52:53.610] sys.calls <- base::sys.calls 1573s [00:52:53.610] `[[` <- base::`[[` 1573s [00:52:53.610] `+` <- base::`+` 1573s [00:52:53.610] `<<-` <- base::`<<-` 1573s [00:52:53.610] sysCalls <- function(calls = sys.calls(), from = 1L) { 1573s [00:52:53.610] calls[seq.int(from = from + 12L, to = length(calls) - 1573s [00:52:53.610] 3L)] 1573s [00:52:53.610] } 1573s [00:52:53.610] function(cond) { 1573s [00:52:53.610] is_error <- inherits(cond, "error") 1573s [00:52:53.610] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1573s [00:52:53.610] NULL) 1573s [00:52:53.610] if (is_error) { 1573s [00:52:53.610] sessionInformation <- function() { 1573s [00:52:53.610] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1573s [00:52:53.610] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1573s [00:52:53.610] search = base::search(), system = base::Sys.info()) 1573s [00:52:53.610] } 1573s [00:52:53.610] ...future.conditions[[length(...future.conditions) + 1573s [00:52:53.610] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1573s [00:52:53.610] cond$call), session = sessionInformation(), 1573s [00:52:53.610] timestamp = base::Sys.time(), signaled = 0L) 1573s [00:52:53.610] signalCondition(cond) 1573s [00:52:53.610] } 1573s [00:52:53.610] else if (!ignore && TRUE && inherits(cond, c("condition", 1573s [00:52:53.610] "immediateCondition"))) { 1573s [00:52:53.610] signal <- TRUE && inherits(cond, "immediateCondition") 1573s [00:52:53.610] ...future.conditions[[length(...future.conditions) + 1573s [00:52:53.610] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1573s [00:52:53.610] if (TRUE && !signal) { 1573s [00:52:53.610] muffleCondition <- function (cond, pattern = "^muffle") 1573s [00:52:53.610] { 1573s [00:52:53.610] inherits <- base::inherits 1573s [00:52:53.610] invokeRestart <- base::invokeRestart 1573s [00:52:53.610] is.null <- base::is.null 1573s [00:52:53.610] muffled <- FALSE 1573s [00:52:53.610] if (inherits(cond, "message")) { 1573s [00:52:53.610] muffled <- grepl(pattern, "muffleMessage") 1573s [00:52:53.610] if (muffled) 1573s [00:52:53.610] invokeRestart("muffleMessage") 1573s [00:52:53.610] } 1573s [00:52:53.610] else if (inherits(cond, "warning")) { 1573s [00:52:53.610] muffled <- grepl(pattern, "muffleWarning") 1573s [00:52:53.610] if (muffled) 1573s [00:52:53.610] invokeRestart("muffleWarning") 1573s [00:52:53.610] } 1573s [00:52:53.610] else if (inherits(cond, "condition")) { 1573s [00:52:53.610] if (!is.null(pattern)) { 1573s [00:52:53.610] computeRestarts <- base::computeRestarts 1573s [00:52:53.610] grepl <- base::grepl 1573s [00:52:53.610] restarts <- computeRestarts(cond) 1573s [00:52:53.610] for (restart in restarts) { 1573s [00:52:53.610] name <- restart$name 1573s [00:52:53.610] if (is.null(name)) 1573s [00:52:53.610] next 1573s [00:52:53.610] if (!grepl(pattern, name)) 1573s [00:52:53.610] next 1573s [00:52:53.610] invokeRestart(restart) 1573s [00:52:53.610] muffled <- TRUE 1573s [00:52:53.610] break 1573s [00:52:53.610] } 1573s [00:52:53.610] } 1573s [00:52:53.610] } 1573s [00:52:53.610] invisible(muffled) 1573s [00:52:53.610] } 1573s [00:52:53.610] muffleCondition(cond, pattern = "^muffle") 1573s [00:52:53.610] } 1573s [00:52:53.610] } 1573s [00:52:53.610] else { 1573s [00:52:53.610] if (TRUE) { 1573s [00:52:53.610] muffleCondition <- function (cond, pattern = "^muffle") 1573s [00:52:53.610] { 1573s [00:52:53.610] inherits <- base::inherits 1573s [00:52:53.610] invokeRestart <- base::invokeRestart 1573s [00:52:53.610] is.null <- base::is.null 1573s [00:52:53.610] muffled <- FALSE 1573s [00:52:53.610] if (inherits(cond, "message")) { 1573s [00:52:53.610] muffled <- grepl(pattern, "muffleMessage") 1573s [00:52:53.610] if (muffled) 1573s [00:52:53.610] invokeRestart("muffleMessage") 1573s [00:52:53.610] } 1573s [00:52:53.610] else if (inherits(cond, "warning")) { 1573s [00:52:53.610] muffled <- grepl(pattern, "muffleWarning") 1573s [00:52:53.610] if (muffled) 1573s [00:52:53.610] invokeRestart("muffleWarning") 1573s [00:52:53.610] } 1573s [00:52:53.610] else if (inherits(cond, "condition")) { 1573s [00:52:53.610] if (!is.null(pattern)) { 1573s [00:52:53.610] computeRestarts <- base::computeRestarts 1573s [00:52:53.610] grepl <- base::grepl 1573s [00:52:53.610] restarts <- computeRestarts(cond) 1573s [00:52:53.610] for (restart in restarts) { 1573s [00:52:53.610] name <- restart$name 1573s [00:52:53.610] if (is.null(name)) 1573s [00:52:53.610] next 1573s [00:52:53.610] if (!grepl(pattern, name)) 1573s [00:52:53.610] next 1573s [00:52:53.610] invokeRestart(restart) 1573s [00:52:53.610] muffled <- TRUE 1573s [00:52:53.610] break 1573s [00:52:53.610] } 1573s [00:52:53.610] } 1573s [00:52:53.610] } 1573s [00:52:53.610] invisible(muffled) 1573s [00:52:53.610] } 1573s [00:52:53.610] muffleCondition(cond, pattern = "^muffle") 1573s [00:52:53.610] } 1573s [00:52:53.610] } 1573s [00:52:53.610] } 1573s [00:52:53.610] })) 1573s [00:52:53.610] }, error = function(ex) { 1573s [00:52:53.610] base::structure(base::list(value = NULL, visible = NULL, 1573s [00:52:53.610] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1573s [00:52:53.610] ...future.rng), started = ...future.startTime, 1573s [00:52:53.610] finished = Sys.time(), session_uuid = NA_character_, 1573s [00:52:53.610] version = "1.8"), class = "FutureResult") 1573s [00:52:53.610] }, finally = { 1573s [00:52:53.610] if (!identical(...future.workdir, getwd())) 1573s [00:52:53.610] setwd(...future.workdir) 1573s [00:52:53.610] { 1573s [00:52:53.610] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1573s [00:52:53.610] ...future.oldOptions$nwarnings <- NULL 1573s [00:52:53.610] } 1573s [00:52:53.610] base::options(...future.oldOptions) 1573s [00:52:53.610] if (.Platform$OS.type == "windows") { 1573s [00:52:53.610] old_names <- names(...future.oldEnvVars) 1573s [00:52:53.610] envs <- base::Sys.getenv() 1573s [00:52:53.610] names <- names(envs) 1573s [00:52:53.610] common <- intersect(names, old_names) 1573s [00:52:53.610] added <- setdiff(names, old_names) 1573s [00:52:53.610] removed <- setdiff(old_names, names) 1573s [00:52:53.610] changed <- common[...future.oldEnvVars[common] != 1573s [00:52:53.610] envs[common]] 1573s [00:52:53.610] NAMES <- toupper(changed) 1573s [00:52:53.610] args <- list() 1573s [00:52:53.610] for (kk in seq_along(NAMES)) { 1573s [00:52:53.610] name <- changed[[kk]] 1573s [00:52:53.610] NAME <- NAMES[[kk]] 1573s [00:52:53.610] if (name != NAME && is.element(NAME, old_names)) 1573s [00:52:53.610] next 1573s [00:52:53.610] args[[name]] <- ...future.oldEnvVars[[name]] 1573s [00:52:53.610] } 1573s [00:52:53.610] NAMES <- toupper(added) 1573s [00:52:53.610] for (kk in seq_along(NAMES)) { 1573s [00:52:53.610] name <- added[[kk]] 1573s [00:52:53.610] NAME <- NAMES[[kk]] 1573s [00:52:53.610] if (name != NAME && is.element(NAME, old_names)) 1573s [00:52:53.610] next 1573s [00:52:53.610] args[[name]] <- "" 1573s [00:52:53.610] } 1573s [00:52:53.610] NAMES <- toupper(removed) 1573s [00:52:53.610] for (kk in seq_along(NAMES)) { 1573s [00:52:53.610] name <- removed[[kk]] 1573s [00:52:53.610] NAME <- NAMES[[kk]] 1573s [00:52:53.610] if (name != NAME && is.element(NAME, old_names)) 1573s [00:52:53.610] next 1573s [00:52:53.610] args[[name]] <- ...future.oldEnvVars[[name]] 1573s [00:52:53.610] } 1573s [00:52:53.610] if (length(args) > 0) 1573s [00:52:53.610] base::do.call(base::Sys.setenv, args = args) 1573s [00:52:53.610] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1573s [00:52:53.610] } 1573s [00:52:53.610] else { 1573s [00:52:53.610] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1573s [00:52:53.610] } 1573s [00:52:53.610] { 1573s [00:52:53.610] if (base::length(...future.futureOptionsAdded) > 1573s [00:52:53.610] 0L) { 1573s [00:52:53.610] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1573s [00:52:53.610] base::names(opts) <- ...future.futureOptionsAdded 1573s [00:52:53.610] base::options(opts) 1573s [00:52:53.610] } 1573s [00:52:53.610] { 1573s [00:52:53.610] { 1573s [00:52:53.610] NULL 1573s [00:52:53.610] RNGkind("Mersenne-Twister") 1573s [00:52:53.610] base::rm(list = ".Random.seed", envir = base::globalenv(), 1573s [00:52:53.610] inherits = FALSE) 1573s [00:52:53.610] } 1573s [00:52:53.610] options(future.plan = NULL) 1573s [00:52:53.610] if (is.na(NA_character_)) 1573s [00:52:53.610] Sys.unsetenv("R_FUTURE_PLAN") 1573s [00:52:53.610] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1573s [00:52:53.610] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1573s [00:52:53.610] envir = parent.frame()) 1573s [00:52:53.610] { 1573s [00:52:53.610] default_workers <- missing(workers) 1573s [00:52:53.610] if (is.function(workers)) 1573s [00:52:53.610] workers <- workers() 1573s [00:52:53.610] workers <- structure(as.integer(workers), 1573s [00:52:53.610] class = class(workers)) 1573s [00:52:53.610] stop_if_not(is.finite(workers), workers >= 1573s [00:52:53.610] 1L) 1573s [00:52:53.610] if ((workers == 1L && !inherits(workers, 1573s [00:52:53.610] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1573s [00:52:53.610] if (default_workers) 1573s [00:52:53.610] supportsMulticore(warn = TRUE) 1573s [00:52:53.610] return(sequential(..., envir = envir)) 1573s [00:52:53.610] } 1573s [00:52:53.610] oopts <- options(mc.cores = workers) 1573s [00:52:53.610] on.exit(options(oopts)) 1573s [00:52:53.610] future <- MulticoreFuture(..., workers = workers, 1573s [00:52:53.610] envir = envir) 1573s [00:52:53.610] if (!future$lazy) 1573s [00:52:53.610] future <- run(future) 1573s [00:52:53.610] invisible(future) 1573s [00:52:53.610] }), .cleanup = FALSE, .init = FALSE) 1573s [00:52:53.610] } 1573s [00:52:53.610] } 1573s [00:52:53.610] } 1573s [00:52:53.610] }) 1573s [00:52:53.610] if (TRUE) { 1573s [00:52:53.610] base::sink(type = "output", split = FALSE) 1573s [00:52:53.610] if (TRUE) { 1573s [00:52:53.610] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1573s [00:52:53.610] } 1573s [00:52:53.610] else { 1573s [00:52:53.610] ...future.result["stdout"] <- base::list(NULL) 1573s [00:52:53.610] } 1573s [00:52:53.610] base::close(...future.stdout) 1573s [00:52:53.610] ...future.stdout <- NULL 1573s [00:52:53.610] } 1573s [00:52:53.610] ...future.result$conditions <- ...future.conditions 1573s [00:52:53.610] ...future.result$finished <- base::Sys.time() 1573s [00:52:53.610] ...future.result 1573s [00:52:53.610] } 1573s [00:52:53.614] assign_globals() ... 1573s [00:52:53.614] List of 5 1573s [00:52:53.614] $ ...future.FUN :function (x) 1573s [00:52:53.614] $ future.call.arguments : list() 1573s [00:52:53.614] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1573s [00:52:53.614] $ ...future.elements_ii :List of 3 1573s [00:52:53.614] ..$ a: num 1 1573s [00:52:53.614] ..$ b: num 2 1573s [00:52:53.614] ..$ c: num 3 1573s [00:52:53.614] $ ...future.seeds_ii : NULL 1573s [00:52:53.614] $ ...future.globals.maxSize: NULL 1573s [00:52:53.614] - attr(*, "where")=List of 5 1573s [00:52:53.614] ..$ ...future.FUN : 1573s [00:52:53.614] ..$ future.call.arguments : 1573s [00:52:53.614] ..$ ...future.elements_ii : 1573s [00:52:53.614] ..$ ...future.seeds_ii : 1573s [00:52:53.614] ..$ ...future.globals.maxSize: 1573s [00:52:53.614] - attr(*, "resolved")= logi FALSE 1573s [00:52:53.614] - attr(*, "total_size")= num 848 1573s [00:52:53.614] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1573s [00:52:53.614] - attr(*, "already-done")= logi TRUE 1573s [00:52:53.623] - copied ‘...future.FUN’ to environment 1573s [00:52:53.623] - copied ‘future.call.arguments’ to environment 1573s [00:52:53.624] - copied ‘...future.elements_ii’ to environment 1573s [00:52:53.624] - copied ‘...future.seeds_ii’ to environment 1573s [00:52:53.624] - copied ‘...future.globals.maxSize’ to environment 1573s [00:52:53.627] assign_globals() ... done 1573s [00:52:53.627] plan(): Setting new future strategy stack: 1573s [00:52:53.627] List of future strategies: 1573s [00:52:53.627] 1. sequential: 1573s [00:52:53.627] - args: function (..., envir = parent.frame()) 1573s [00:52:53.627] - tweaked: FALSE 1573s [00:52:53.627] - call: NULL 1573s [00:52:53.628] plan(): nbrOfWorkers() = 1 1573s [00:52:53.628] plan(): Setting new future strategy stack: 1573s [00:52:53.629] List of future strategies: 1573s [00:52:53.629] 1. multicore: 1573s [00:52:53.629] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1573s [00:52:53.629] - tweaked: FALSE 1573s [00:52:53.629] - call: plan(strategy) 1573s [00:52:53.633] plan(): nbrOfWorkers() = 1 1573s [00:52:53.633] SequentialFuture started (and completed) 1573s [00:52:53.633] - Launch lazy future ... done 1573s [00:52:53.634] run() for ‘SequentialFuture’ ... done 1573s [00:52:53.634] Created future: 1573s [00:52:53.634] SequentialFuture: 1573s [00:52:53.634] Label: ‘future_sapply-1’ 1573s [00:52:53.634] Expression: 1573s [00:52:53.634] { 1573s [00:52:53.634] do.call(function(...) { 1573s [00:52:53.634] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1573s [00:52:53.634] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1573s [00:52:53.634] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1573s [00:52:53.634] on.exit(options(oopts), add = TRUE) 1573s [00:52:53.634] } 1573s [00:52:53.634] { 1573s [00:52:53.634] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1573s [00:52:53.634] ...future.X_jj <- ...future.elements_ii[[jj]] 1573s [00:52:53.634] ...future.FUN(...future.X_jj, ...) 1573s [00:52:53.634] }) 1573s [00:52:53.634] } 1573s [00:52:53.634] }, args = future.call.arguments) 1573s [00:52:53.634] } 1573s [00:52:53.634] Lazy evaluation: FALSE 1573s [00:52:53.634] Asynchronous evaluation: FALSE 1573s [00:52:53.634] Local evaluation: TRUE 1573s [00:52:53.634] Environment: R_GlobalEnv 1573s [00:52:53.634] Capture standard output: TRUE 1573s [00:52:53.634] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1573s [00:52:53.634] Globals: 5 objects totaling 0.99 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1573s [00:52:53.634] Packages: 1573s [00:52:53.634] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1573s [00:52:53.634] Resolved: TRUE 1573s [00:52:53.634] Value: 168 bytes of class ‘list’ 1573s [00:52:53.634] Early signaling: FALSE 1573s [00:52:53.634] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1573s [00:52:53.634] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1573s [00:52:53.636] Chunk #1 of 1 ... DONE 1573s [00:52:53.636] Launching 1 futures (chunks) ... DONE 1573s [00:52:53.636] Resolving 1 futures (chunks) ... 1573s [00:52:53.636] resolve() on list ... 1573s [00:52:53.636] recursive: 0 1573s [00:52:53.637] length: 1 1573s [00:52:53.637] 1573s [00:52:53.637] resolved() for ‘SequentialFuture’ ... 1573s [00:52:53.637] - state: ‘finished’ 1573s [00:52:53.638] - run: TRUE 1573s [00:52:53.638] - result: ‘FutureResult’ 1573s [00:52:53.638] resolved() for ‘SequentialFuture’ ... done 1573s [00:52:53.638] Future #1 1573s [00:52:53.638] signalConditionsASAP(SequentialFuture, pos=1) ... 1573s [00:52:53.639] - nx: 1 1573s [00:52:53.639] - relay: TRUE 1573s [00:52:53.639] - stdout: TRUE 1573s [00:52:53.639] - signal: TRUE 1573s [00:52:53.639] - resignal: FALSE 1573s [00:52:53.640] - force: TRUE 1573s [00:52:53.640] - relayed: [n=1] FALSE 1573s [00:52:53.640] - queued futures: [n=1] FALSE 1573s [00:52:53.641] - until=1 1573s [00:52:53.642] - relaying element #1 1573s [00:52:53.643] - relayed: [n=1] TRUE 1573s [00:52:53.643] - queued futures: [n=1] TRUE 1573s [00:52:53.644] signalConditionsASAP(SequentialFuture, pos=1) ... done 1573s [00:52:53.644] length: 0 (resolved future 1) 1573s [00:52:53.645] Relaying remaining futures 1573s [00:52:53.645] signalConditionsASAP(NULL, pos=0) ... 1573s [00:52:53.645] - nx: 1 1573s [00:52:53.646] - relay: TRUE 1573s [00:52:53.646] - stdout: TRUE 1573s [00:52:53.646] - signal: TRUE 1573s [00:52:53.646] - resignal: FALSE 1573s [00:52:53.646] - force: TRUE 1573s [00:52:53.646] - relayed: [n=1] TRUE 1573s [00:52:53.646] - queued futures: [n=1] TRUE 1573s - flush all 1573s [00:52:53.647] - relayed: [n=1] TRUE 1573s [00:52:53.647] - queued futures: [n=1] TRUE 1573s [00:52:53.647] signalConditionsASAP(NULL, pos=0) ... done 1573s [00:52:53.647] resolve() on list ... DONE 1573s [00:52:53.648] - Number of value chunks collected: 1 1573s [00:52:53.648] Resolving 1 futures (chunks) ... DONE 1573s [00:52:53.648] Reducing values from 1 chunks ... 1573s [00:52:53.648] - Number of values collected after concatenation: 3 1573s [00:52:53.648] - Number of values expected: 3 1573s [00:52:53.649] Reducing values from 1 chunks ... DONE 1573s [00:52:53.649] future_lapply() ... DONE 1573s List of 2 1573s $ y0:List of 3 1573s ..$ a: num 1 1573s ..$ b: num 2 1573s ..$ c: num 3 1573s $ y1:List of 3 1573s ..$ a: num 1 1573s ..$ b: num 2 1573s ..$ c: num 3 1573s List of 2 1573s $ y0:List of 3 1573s ..$ a: num 1 1573s ..$ b: num 2 1573s ..$ c: num 3 1573s $ y2:List of 3 1573s ..$ a: num 1 1573s ..$ b: num 2 1573s ..$ c: num 3 1573s [00:52:53.657] future_lapply() ... 1573s [00:52:53.662] Number of chunks: 1 1573s [00:52:53.662] getGlobalsAndPackagesXApply() ... 1573s [00:52:53.662] - future.globals: TRUE 1573s [00:52:53.662] getGlobalsAndPackages() ... 1573s [00:52:53.662] Searching for globals... 1573s [00:52:53.664] - globals found: [2] ‘FUN’, ‘UseMethod’ 1573s [00:52:53.664] Searching for globals ... DONE 1573s [00:52:53.664] Resolving globals: FALSE 1573s [00:52:53.665] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1573s [00:52:53.665] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1573s [00:52:53.666] - globals: [1] ‘FUN’ 1573s [00:52:53.666] 1573s [00:52:53.666] getGlobalsAndPackages() ... DONE 1573s [00:52:53.666] - globals found/used: [n=1] ‘FUN’ 1573s [00:52:53.666] - needed namespaces: [n=0] 1573s [00:52:53.666] Finding globals ... DONE 1573s [00:52:53.666] - use_args: TRUE 1573s [00:52:53.667] - Getting '...' globals ... 1573s [00:52:53.667] resolve() on list ... 1573s [00:52:53.667] recursive: 0 1573s [00:52:53.668] length: 1 1573s [00:52:53.668] elements: ‘...’ 1573s [00:52:53.668] length: 0 (resolved future 1) 1573s [00:52:53.668] resolve() on list ... DONE 1573s [00:52:53.668] - '...' content: [n=0] 1573s [00:52:53.668] List of 1 1573s [00:52:53.668] $ ...: list() 1573s [00:52:53.668] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1573s [00:52:53.668] - attr(*, "where")=List of 1 1573s [00:52:53.668] ..$ ...: 1573s [00:52:53.668] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1573s [00:52:53.668] - attr(*, "resolved")= logi TRUE 1573s [00:52:53.668] - attr(*, "total_size")= num NA 1573s [00:52:53.672] - Getting '...' globals ... DONE 1573s [00:52:53.673] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1573s [00:52:53.673] List of 2 1573s [00:52:53.673] $ ...future.FUN:function (x, ...) 1573s [00:52:53.673] $ ... : list() 1573s [00:52:53.673] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1573s [00:52:53.673] - attr(*, "where")=List of 2 1573s [00:52:53.673] ..$ ...future.FUN: 1573s [00:52:53.673] ..$ ... : 1573s [00:52:53.673] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1573s [00:52:53.673] - attr(*, "resolved")= logi FALSE 1573s [00:52:53.673] - attr(*, "total_size")= num 1248 1573s [00:52:53.677] Packages to be attached in all futures: [n=0] 1573s [00:52:53.677] getGlobalsAndPackagesXApply() ... DONE 1573s [00:52:53.677] Number of futures (= number of chunks): 1 1573s [00:52:53.677] Launching 1 futures (chunks) ... 1573s [00:52:53.678] Chunk #1 of 1 ... 1573s [00:52:53.678] - Finding globals in 'X' for chunk #1 ... 1573s [00:52:53.678] getGlobalsAndPackages() ... 1573s [00:52:53.678] Searching for globals... 1573s [00:52:53.678] 1573s [00:52:53.679] Searching for globals ... DONE 1573s [00:52:53.679] - globals: [0] 1573s [00:52:53.679] getGlobalsAndPackages() ... DONE 1573s [00:52:53.679] + additional globals found: [n=0] 1573s [00:52:53.679] + additional namespaces needed: [n=0] 1573s [00:52:53.679] - Finding globals in 'X' for chunk #1 ... DONE 1573s [00:52:53.680] - seeds: 1573s [00:52:53.680] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1573s [00:52:53.680] getGlobalsAndPackages() ... 1573s [00:52:53.680] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1573s [00:52:53.680] Resolving globals: FALSE 1573s [00:52:53.681] Tweak future expression to call with '...' arguments ... 1573s [00:52:53.681] { 1573s [00:52:53.681] do.call(function(...) { 1573s [00:52:53.681] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1573s [00:52:53.681] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1573s [00:52:53.681] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1573s [00:52:53.681] on.exit(options(oopts), add = TRUE) 1573s [00:52:53.681] } 1573s [00:52:53.681] { 1573s [00:52:53.681] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1573s [00:52:53.681] ...future.X_jj <- ...future.elements_ii[[jj]] 1573s [00:52:53.681] ...future.FUN(...future.X_jj, ...) 1573s [00:52:53.681] }) 1573s [00:52:53.681] } 1573s [00:52:53.681] }, args = future.call.arguments) 1573s [00:52:53.681] } 1573s [00:52:53.681] Tweak future expression to call with '...' arguments ... DONE 1573s [00:52:53.682] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1573s [00:52:53.682] 1573s [00:52:53.683] getGlobalsAndPackages() ... DONE 1573s [00:52:53.683] run() for ‘Future’ ... 1573s [00:52:53.683] - state: ‘created’ 1573s [00:52:53.684] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1573s [00:52:53.687] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1573s [00:52:53.688] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1573s [00:52:53.688] - Field: ‘label’ 1573s [00:52:53.688] - Field: ‘local’ 1573s [00:52:53.688] - Field: ‘owner’ 1573s [00:52:53.688] - Field: ‘envir’ 1573s [00:52:53.689] - Field: ‘packages’ 1573s [00:52:53.689] - Field: ‘gc’ 1573s [00:52:53.689] - Field: ‘conditions’ 1573s [00:52:53.689] - Field: ‘expr’ 1573s [00:52:53.689] - Field: ‘uuid’ 1573s [00:52:53.690] - Field: ‘seed’ 1573s [00:52:53.690] - Field: ‘version’ 1573s [00:52:53.690] - Field: ‘result’ 1573s [00:52:53.690] - Field: ‘asynchronous’ 1573s [00:52:53.690] - Field: ‘calls’ 1573s [00:52:53.691] - Field: ‘globals’ 1573s [00:52:53.691] - Field: ‘stdout’ 1573s [00:52:53.691] - Field: ‘earlySignal’ 1573s [00:52:53.691] - Field: ‘lazy’ 1573s [00:52:53.691] - Field: ‘state’ 1573s [00:52:53.692] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1573s [00:52:53.692] - Launch lazy future ... 1573s [00:52:53.692] Packages needed by the future expression (n = 0): 1573s [00:52:53.693] Packages needed by future strategies (n = 0): 1573s [00:52:53.693] { 1573s [00:52:53.693] { 1573s [00:52:53.693] { 1573s [00:52:53.693] ...future.startTime <- base::Sys.time() 1573s [00:52:53.693] { 1573s [00:52:53.693] { 1573s [00:52:53.693] { 1573s [00:52:53.693] base::local({ 1573s [00:52:53.693] has_future <- base::requireNamespace("future", 1573s [00:52:53.693] quietly = TRUE) 1573s [00:52:53.693] if (has_future) { 1573s [00:52:53.693] ns <- base::getNamespace("future") 1573s [00:52:53.693] version <- ns[[".package"]][["version"]] 1573s [00:52:53.693] if (is.null(version)) 1573s [00:52:53.693] version <- utils::packageVersion("future") 1573s [00:52:53.693] } 1573s [00:52:53.693] else { 1573s [00:52:53.693] version <- NULL 1573s [00:52:53.693] } 1573s [00:52:53.693] if (!has_future || version < "1.8.0") { 1573s [00:52:53.693] info <- base::c(r_version = base::gsub("R version ", 1573s [00:52:53.693] "", base::R.version$version.string), 1573s [00:52:53.693] platform = base::sprintf("%s (%s-bit)", 1573s [00:52:53.693] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1573s [00:52:53.693] os = base::paste(base::Sys.info()[base::c("sysname", 1573s [00:52:53.693] "release", "version")], collapse = " "), 1573s [00:52:53.693] hostname = base::Sys.info()[["nodename"]]) 1573s [00:52:53.693] info <- base::sprintf("%s: %s", base::names(info), 1573s [00:52:53.693] info) 1573s [00:52:53.693] info <- base::paste(info, collapse = "; ") 1573s [00:52:53.693] if (!has_future) { 1573s [00:52:53.693] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1573s [00:52:53.693] info) 1573s [00:52:53.693] } 1573s [00:52:53.693] else { 1573s [00:52:53.693] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1573s [00:52:53.693] info, version) 1573s [00:52:53.693] } 1573s [00:52:53.693] base::stop(msg) 1573s [00:52:53.693] } 1573s [00:52:53.693] }) 1573s [00:52:53.693] } 1573s [00:52:53.693] options(future.plan = NULL) 1573s [00:52:53.693] Sys.unsetenv("R_FUTURE_PLAN") 1573s [00:52:53.693] future::plan("default", .cleanup = FALSE, .init = FALSE) 1573s [00:52:53.693] } 1573s [00:52:53.693] ...future.workdir <- getwd() 1573s [00:52:53.693] } 1573s [00:52:53.693] ...future.oldOptions <- base::as.list(base::.Options) 1573s [00:52:53.693] ...future.oldEnvVars <- base::Sys.getenv() 1573s [00:52:53.693] } 1573s [00:52:53.693] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1573s [00:52:53.693] future.globals.maxSize = NULL, future.globals.method = NULL, 1573s [00:52:53.693] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1573s [00:52:53.693] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1573s [00:52:53.693] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1573s [00:52:53.693] future.stdout.windows.reencode = NULL, width = 80L) 1573s [00:52:53.693] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1573s [00:52:53.693] base::names(...future.oldOptions)) 1573s [00:52:53.693] } 1573s [00:52:53.693] if (FALSE) { 1573s [00:52:53.693] } 1573s [00:52:53.693] else { 1573s [00:52:53.693] if (TRUE) { 1573s [00:52:53.693] ...future.stdout <- base::rawConnection(base::raw(0L), 1573s [00:52:53.693] open = "w") 1573s [00:52:53.693] } 1573s [00:52:53.693] else { 1573s [00:52:53.693] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1573s [00:52:53.693] windows = "NUL", "/dev/null"), open = "w") 1573s [00:52:53.693] } 1573s [00:52:53.693] base::sink(...future.stdout, type = "output", split = FALSE) 1573s [00:52:53.693] base::on.exit(if (!base::is.null(...future.stdout)) { 1573s [00:52:53.693] base::sink(type = "output", split = FALSE) 1573s [00:52:53.693] base::close(...future.stdout) 1573s [00:52:53.693] }, add = TRUE) 1573s [00:52:53.693] } 1573s [00:52:53.693] ...future.frame <- base::sys.nframe() 1573s [00:52:53.693] ...future.conditions <- base::list() 1573s [00:52:53.693] ...future.rng <- base::globalenv()$.Random.seed 1573s [00:52:53.693] if (FALSE) { 1573s [00:52:53.693] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1573s [00:52:53.693] "...future.value", "...future.globalenv.names", ".Random.seed") 1573s [00:52:53.693] } 1573s [00:52:53.693] ...future.result <- base::tryCatch({ 1573s [00:52:53.693] base::withCallingHandlers({ 1573s [00:52:53.693] ...future.value <- base::withVisible(base::local({ 1573s [00:52:53.693] do.call(function(...) { 1573s [00:52:53.693] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1573s [00:52:53.693] if (!identical(...future.globals.maxSize.org, 1573s [00:52:53.693] ...future.globals.maxSize)) { 1573s [00:52:53.693] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1573s [00:52:53.693] on.exit(options(oopts), add = TRUE) 1573s [00:52:53.693] } 1573s [00:52:53.693] { 1573s [00:52:53.693] lapply(seq_along(...future.elements_ii), 1573s [00:52:53.693] FUN = function(jj) { 1573s [00:52:53.693] ...future.X_jj <- ...future.elements_ii[[jj]] 1573s [00:52:53.693] ...future.FUN(...future.X_jj, ...) 1573s [00:52:53.693] }) 1573s [00:52:53.693] } 1573s [00:52:53.693] }, args = future.call.arguments) 1573s [00:52:53.693] })) 1573s [00:52:53.693] future::FutureResult(value = ...future.value$value, 1573s [00:52:53.693] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1573s [00:52:53.693] ...future.rng), globalenv = if (FALSE) 1573s [00:52:53.693] list(added = base::setdiff(base::names(base::.GlobalEnv), 1573s [00:52:53.693] ...future.globalenv.names)) 1573s [00:52:53.693] else NULL, started = ...future.startTime, version = "1.8") 1573s [00:52:53.693] }, condition = base::local({ 1573s [00:52:53.693] c <- base::c 1573s [00:52:53.693] inherits <- base::inherits 1573s [00:52:53.693] invokeRestart <- base::invokeRestart 1573s [00:52:53.693] length <- base::length 1573s [00:52:53.693] list <- base::list 1573s [00:52:53.693] seq.int <- base::seq.int 1573s [00:52:53.693] signalCondition <- base::signalCondition 1573s [00:52:53.693] sys.calls <- base::sys.calls 1573s [00:52:53.693] `[[` <- base::`[[` 1573s [00:52:53.693] `+` <- base::`+` 1573s [00:52:53.693] `<<-` <- base::`<<-` 1573s [00:52:53.693] sysCalls <- function(calls = sys.calls(), from = 1L) { 1573s [00:52:53.693] calls[seq.int(from = from + 12L, to = length(calls) - 1573s [00:52:53.693] 3L)] 1573s [00:52:53.693] } 1573s [00:52:53.693] function(cond) { 1573s [00:52:53.693] is_error <- inherits(cond, "error") 1573s [00:52:53.693] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1573s [00:52:53.693] NULL) 1573s [00:52:53.693] if (is_error) { 1573s [00:52:53.693] sessionInformation <- function() { 1573s [00:52:53.693] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1573s [00:52:53.693] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1573s [00:52:53.693] search = base::search(), system = base::Sys.info()) 1573s [00:52:53.693] } 1573s [00:52:53.693] ...future.conditions[[length(...future.conditions) + 1573s [00:52:53.693] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1573s [00:52:53.693] cond$call), session = sessionInformation(), 1573s [00:52:53.693] timestamp = base::Sys.time(), signaled = 0L) 1573s [00:52:53.693] signalCondition(cond) 1573s [00:52:53.693] } 1573s [00:52:53.693] else if (!ignore && TRUE && inherits(cond, c("condition", 1573s [00:52:53.693] "immediateCondition"))) { 1573s [00:52:53.693] signal <- TRUE && inherits(cond, "immediateCondition") 1573s [00:52:53.693] ...future.conditions[[length(...future.conditions) + 1573s [00:52:53.693] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1573s [00:52:53.693] if (TRUE && !signal) { 1573s [00:52:53.693] muffleCondition <- function (cond, pattern = "^muffle") 1573s [00:52:53.693] { 1573s [00:52:53.693] inherits <- base::inherits 1573s [00:52:53.693] invokeRestart <- base::invokeRestart 1573s [00:52:53.693] is.null <- base::is.null 1573s [00:52:53.693] muffled <- FALSE 1573s [00:52:53.693] if (inherits(cond, "message")) { 1573s [00:52:53.693] muffled <- grepl(pattern, "muffleMessage") 1573s [00:52:53.693] if (muffled) 1573s [00:52:53.693] invokeRestart("muffleMessage") 1573s [00:52:53.693] } 1573s [00:52:53.693] else if (inherits(cond, "warning")) { 1573s [00:52:53.693] muffled <- grepl(pattern, "muffleWarning") 1573s [00:52:53.693] if (muffled) 1573s [00:52:53.693] invokeRestart("muffleWarning") 1573s [00:52:53.693] } 1573s [00:52:53.693] else if (inherits(cond, "condition")) { 1573s [00:52:53.693] if (!is.null(pattern)) { 1573s [00:52:53.693] computeRestarts <- base::computeRestarts 1573s [00:52:53.693] grepl <- base::grepl 1573s [00:52:53.693] restarts <- computeRestarts(cond) 1573s [00:52:53.693] for (restart in restarts) { 1573s [00:52:53.693] name <- restart$name 1573s [00:52:53.693] if (is.null(name)) 1573s [00:52:53.693] next 1573s [00:52:53.693] if (!grepl(pattern, name)) 1573s [00:52:53.693] next 1573s [00:52:53.693] invokeRestart(restart) 1573s [00:52:53.693] muffled <- TRUE 1573s [00:52:53.693] break 1573s [00:52:53.693] } 1573s [00:52:53.693] } 1573s [00:52:53.693] } 1573s [00:52:53.693] invisible(muffled) 1573s [00:52:53.693] } 1573s [00:52:53.693] muffleCondition(cond, pattern = "^muffle") 1573s [00:52:53.693] } 1573s [00:52:53.693] } 1573s [00:52:53.693] else { 1573s [00:52:53.693] if (TRUE) { 1573s [00:52:53.693] muffleCondition <- function (cond, pattern = "^muffle") 1573s [00:52:53.693] { 1573s [00:52:53.693] inherits <- base::inherits 1573s [00:52:53.693] invokeRestart <- base::invokeRestart 1573s [00:52:53.693] is.null <- base::is.null 1573s [00:52:53.693] muffled <- FALSE 1573s [00:52:53.693] if (inherits(cond, "message")) { 1573s [00:52:53.693] muffled <- grepl(pattern, "muffleMessage") 1573s [00:52:53.693] if (muffled) 1573s [00:52:53.693] invokeRestart("muffleMessage") 1573s [00:52:53.693] } 1573s [00:52:53.693] else if (inherits(cond, "warning")) { 1573s [00:52:53.693] muffled <- grepl(pattern, "muffleWarning") 1573s [00:52:53.693] if (muffled) 1573s [00:52:53.693] invokeRestart("muffleWarning") 1573s [00:52:53.693] } 1573s [00:52:53.693] else if (inherits(cond, "condition")) { 1573s [00:52:53.693] if (!is.null(pattern)) { 1573s [00:52:53.693] computeRestarts <- base::computeRestarts 1573s [00:52:53.693] grepl <- base::grepl 1573s [00:52:53.693] restarts <- computeRestarts(cond) 1573s [00:52:53.693] for (restart in restarts) { 1573s [00:52:53.693] name <- restart$name 1573s [00:52:53.693] if (is.null(name)) 1573s [00:52:53.693] next 1573s [00:52:53.693] if (!grepl(pattern, name)) 1573s [00:52:53.693] next 1573s [00:52:53.693] invokeRestart(restart) 1573s [00:52:53.693] muffled <- TRUE 1573s [00:52:53.693] break 1573s [00:52:53.693] } 1573s [00:52:53.693] } 1573s [00:52:53.693] } 1573s [00:52:53.693] invisible(muffled) 1573s [00:52:53.693] } 1573s [00:52:53.693] muffleCondition(cond, pattern = "^muffle") 1573s [00:52:53.693] } 1573s [00:52:53.693] } 1573s [00:52:53.693] } 1573s [00:52:53.693] })) 1573s [00:52:53.693] }, error = function(ex) { 1573s [00:52:53.693] base::structure(base::list(value = NULL, visible = NULL, 1573s [00:52:53.693] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1573s [00:52:53.693] ...future.rng), started = ...future.startTime, 1573s [00:52:53.693] finished = Sys.time(), session_uuid = NA_character_, 1573s [00:52:53.693] version = "1.8"), class = "FutureResult") 1573s [00:52:53.693] }, finally = { 1573s [00:52:53.693] if (!identical(...future.workdir, getwd())) 1573s [00:52:53.693] setwd(...future.workdir) 1573s [00:52:53.693] { 1573s [00:52:53.693] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1573s [00:52:53.693] ...future.oldOptions$nwarnings <- NULL 1573s [00:52:53.693] } 1573s [00:52:53.693] base::options(...future.oldOptions) 1573s [00:52:53.693] if (.Platform$OS.type == "windows") { 1573s [00:52:53.693] old_names <- names(...future.oldEnvVars) 1573s [00:52:53.693] envs <- base::Sys.getenv() 1573s [00:52:53.693] names <- names(envs) 1573s [00:52:53.693] common <- intersect(names, old_names) 1573s [00:52:53.693] added <- setdiff(names, old_names) 1573s [00:52:53.693] removed <- setdiff(old_names, names) 1573s [00:52:53.693] changed <- common[...future.oldEnvVars[common] != 1573s [00:52:53.693] envs[common]] 1573s [00:52:53.693] NAMES <- toupper(changed) 1573s [00:52:53.693] args <- list() 1573s [00:52:53.693] for (kk in seq_along(NAMES)) { 1573s [00:52:53.693] name <- changed[[kk]] 1573s [00:52:53.693] NAME <- NAMES[[kk]] 1573s [00:52:53.693] if (name != NAME && is.element(NAME, old_names)) 1573s [00:52:53.693] next 1573s [00:52:53.693] args[[name]] <- ...future.oldEnvVars[[name]] 1573s [00:52:53.693] } 1573s [00:52:53.693] NAMES <- toupper(added) 1573s [00:52:53.693] for (kk in seq_along(NAMES)) { 1573s [00:52:53.693] name <- added[[kk]] 1573s [00:52:53.693] NAME <- NAMES[[kk]] 1573s [00:52:53.693] if (name != NAME && is.element(NAME, old_names)) 1573s [00:52:53.693] next 1573s [00:52:53.693] args[[name]] <- "" 1573s [00:52:53.693] } 1573s [00:52:53.693] NAMES <- toupper(removed) 1573s [00:52:53.693] for (kk in seq_along(NAMES)) { 1573s [00:52:53.693] name <- removed[[kk]] 1573s [00:52:53.693] NAME <- NAMES[[kk]] 1573s [00:52:53.693] if (name != NAME && is.element(NAME, old_names)) 1573s [00:52:53.693] next 1573s [00:52:53.693] args[[name]] <- ...future.oldEnvVars[[name]] 1573s [00:52:53.693] } 1573s [00:52:53.693] if (length(args) > 0) 1573s [00:52:53.693] base::do.call(base::Sys.setenv, args = args) 1573s [00:52:53.693] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1573s [00:52:53.693] } 1573s [00:52:53.693] else { 1573s [00:52:53.693] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1573s [00:52:53.693] } 1573s [00:52:53.693] { 1573s [00:52:53.693] if (base::length(...future.futureOptionsAdded) > 1573s [00:52:53.693] 0L) { 1573s [00:52:53.693] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1573s [00:52:53.693] base::names(opts) <- ...future.futureOptionsAdded 1573s [00:52:53.693] base::options(opts) 1573s [00:52:53.693] } 1573s [00:52:53.693] { 1573s [00:52:53.693] { 1573s [00:52:53.693] NULL 1573s [00:52:53.693] RNGkind("Mersenne-Twister") 1573s [00:52:53.693] base::rm(list = ".Random.seed", envir = base::globalenv(), 1573s [00:52:53.693] inherits = FALSE) 1573s [00:52:53.693] } 1573s [00:52:53.693] options(future.plan = NULL) 1573s [00:52:53.693] if (is.na(NA_character_)) 1573s [00:52:53.693] Sys.unsetenv("R_FUTURE_PLAN") 1573s [00:52:53.693] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1573s [00:52:53.693] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1573s [00:52:53.693] envir = parent.frame()) 1573s [00:52:53.693] { 1573s [00:52:53.693] default_workers <- missing(workers) 1573s [00:52:53.693] if (is.function(workers)) 1573s [00:52:53.693] workers <- workers() 1573s [00:52:53.693] workers <- structure(as.integer(workers), 1573s [00:52:53.693] class = class(workers)) 1573s [00:52:53.693] stop_if_not(is.finite(workers), workers >= 1573s [00:52:53.693] 1L) 1573s [00:52:53.693] if ((workers == 1L && !inherits(workers, 1573s [00:52:53.693] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1573s [00:52:53.693] if (default_workers) 1573s [00:52:53.693] supportsMulticore(warn = TRUE) 1573s [00:52:53.693] return(sequential(..., envir = envir)) 1573s [00:52:53.693] } 1573s [00:52:53.693] oopts <- options(mc.cores = workers) 1573s [00:52:53.693] on.exit(options(oopts)) 1573s [00:52:53.693] future <- MulticoreFuture(..., workers = workers, 1573s [00:52:53.693] envir = envir) 1573s [00:52:53.693] if (!future$lazy) 1573s [00:52:53.693] future <- run(future) 1573s [00:52:53.693] invisible(future) 1573s [00:52:53.693] }), .cleanup = FALSE, .init = FALSE) 1573s [00:52:53.693] } 1573s [00:52:53.693] } 1573s [00:52:53.693] } 1573s [00:52:53.693] }) 1573s [00:52:53.693] if (TRUE) { 1573s [00:52:53.693] base::sink(type = "output", split = FALSE) 1573s [00:52:53.693] if (TRUE) { 1573s [00:52:53.693] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1573s [00:52:53.693] } 1573s [00:52:53.693] else { 1573s [00:52:53.693] ...future.result["stdout"] <- base::list(NULL) 1573s [00:52:53.693] } 1573s [00:52:53.693] base::close(...future.stdout) 1573s [00:52:53.693] ...future.stdout <- NULL 1573s [00:52:53.693] } 1573s [00:52:53.693] ...future.result$conditions <- ...future.conditions 1573s [00:52:53.693] ...future.result$finished <- base::Sys.time() 1573s [00:52:53.693] ...future.result 1573s [00:52:53.693] } 1573s [00:52:53.697] assign_globals() ... 1573s [00:52:53.697] List of 5 1573s [00:52:53.697] $ ...future.FUN :function (x, ...) 1573s [00:52:53.697] $ future.call.arguments : list() 1573s [00:52:53.697] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1573s [00:52:53.697] $ ...future.elements_ii :List of 3 1573s [00:52:53.697] ..$ a: num 1 1573s [00:52:53.697] ..$ b: num 2 1573s [00:52:53.697] ..$ c: num 3 1573s [00:52:53.697] $ ...future.seeds_ii : NULL 1573s [00:52:53.697] $ ...future.globals.maxSize: NULL 1573s [00:52:53.697] - attr(*, "where")=List of 5 1573s [00:52:53.697] ..$ ...future.FUN : 1573s [00:52:53.697] ..$ future.call.arguments : 1573s [00:52:53.697] ..$ ...future.elements_ii : 1573s [00:52:53.697] ..$ ...future.seeds_ii : 1573s [00:52:53.697] ..$ ...future.globals.maxSize: 1573s [00:52:53.697] - attr(*, "resolved")= logi FALSE 1573s [00:52:53.697] - attr(*, "total_size")= num 1248 1573s [00:52:53.697] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1573s [00:52:53.697] - attr(*, "already-done")= logi TRUE 1573s [00:52:53.705] - copied ‘...future.FUN’ to environment 1573s [00:52:53.706] - copied ‘future.call.arguments’ to environment 1573s [00:52:53.706] - copied ‘...future.elements_ii’ to environment 1573s [00:52:53.706] - copied ‘...future.seeds_ii’ to environment 1573s [00:52:53.706] - copied ‘...future.globals.maxSize’ to environment 1573s [00:52:53.706] assign_globals() ... done 1573s [00:52:53.706] plan(): Setting new future strategy stack: 1573s [00:52:53.707] List of future strategies: 1573s [00:52:53.707] 1. sequential: 1573s [00:52:53.707] - args: function (..., envir = parent.frame()) 1573s [00:52:53.707] - tweaked: FALSE 1573s [00:52:53.707] - call: NULL 1573s [00:52:53.707] plan(): nbrOfWorkers() = 1 1573s [00:52:53.708] plan(): Setting new future strategy stack: 1573s [00:52:53.708] List of future strategies: 1573s [00:52:53.708] 1. multicore: 1573s [00:52:53.708] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1573s [00:52:53.708] - tweaked: FALSE 1573s [00:52:53.708] - call: plan(strategy) 1573s [00:52:53.712] plan(): nbrOfWorkers() = 1 1573s [00:52:53.712] SequentialFuture started (and completed) 1573s [00:52:53.712] - Launch lazy future ... done 1573s [00:52:53.713] run() for ‘SequentialFuture’ ... done 1573s [00:52:53.713] Created future: 1573s [00:52:53.713] SequentialFuture: 1573s [00:52:53.713] Label: ‘future_sapply-1’ 1573s [00:52:53.713] Expression: 1573s [00:52:53.713] { 1573s [00:52:53.713] do.call(function(...) { 1573s [00:52:53.713] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1573s [00:52:53.713] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1573s [00:52:53.713] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1573s [00:52:53.713] on.exit(options(oopts), add = TRUE) 1573s [00:52:53.713] } 1573s [00:52:53.713] { 1573s [00:52:53.713] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1573s [00:52:53.713] ...future.X_jj <- ...future.elements_ii[[jj]] 1573s [00:52:53.713] ...future.FUN(...future.X_jj, ...) 1573s [00:52:53.713] }) 1573s [00:52:53.713] } 1573s [00:52:53.713] }, args = future.call.arguments) 1573s [00:52:53.713] } 1573s [00:52:53.713] Lazy evaluation: FALSE 1573s [00:52:53.713] Asynchronous evaluation: FALSE 1573s [00:52:53.713] Local evaluation: TRUE 1573s [00:52:53.713] Environment: R_GlobalEnv 1573s [00:52:53.713] Capture standard output: TRUE 1573s [00:52:53.713] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1573s [00:52:53.713] Globals: 5 objects totaling 1.38 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1573s [00:52:53.713] Packages: 1573s [00:52:53.713] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1573s [00:52:53.713] Resolved: TRUE 1573s [00:52:53.713] Value: 672 bytes of class ‘list’ 1573s [00:52:53.713] Early signaling: FALSE 1573s [00:52:53.713] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1573s [00:52:53.713] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1573s [00:52:53.715] Chunk #1 of 1 ... DONE 1573s [00:52:53.715] Launching 1 futures (chunks) ... DONE 1573s [00:52:53.715] Resolving 1 futures (chunks) ... 1573s [00:52:53.715] resolve() on list ... 1573s [00:52:53.716] recursive: 0 1573s [00:52:53.716] length: 1 1573s [00:52:53.716] 1573s [00:52:53.716] resolved() for ‘SequentialFuture’ ... 1573s [00:52:53.716] - state: ‘finished’ 1573s [00:52:53.716] - run: TRUE 1573s [00:52:53.717] - result: ‘FutureResult’ 1573s [00:52:53.717] resolved() for ‘SequentialFuture’ ... done 1573s [00:52:53.717] Future #1 1573s [00:52:53.717] signalConditionsASAP(SequentialFuture, pos=1) ... 1573s [00:52:53.717] - nx: 1 1573s [00:52:53.717] - relay: TRUE 1573s [00:52:53.717] - stdout: TRUE 1573s [00:52:53.718] - signal: TRUE 1573s [00:52:53.718] - resignal: FALSE 1573s [00:52:53.718] - force: TRUE 1573s [00:52:53.718] - relayed: [n=1] FALSE 1573s [00:52:53.718] - queued futures: [n=1] FALSE 1573s [00:52:53.718] - until=1 1573s [00:52:53.718] - relaying element #1 1573s [00:52:53.719] - relayed: [n=1] TRUE 1573s [00:52:53.720] - queued futures: [n=1] TRUE 1573s [00:52:53.720] signalConditionsASAP(SequentialFuture, pos=1) ... done 1573s [00:52:53.720] length: 0 (resolved future 1) 1573s [00:52:53.721] Relaying remaining futures 1573s [00:52:53.721] signalConditionsASAP(NULL, pos=0) ... 1573s [00:52:53.722] - nx: 1 1573s [00:52:53.722] - relay: TRUE 1573s [00:52:53.722] - stdout: TRUE 1573s [00:52:53.723] - signal: TRUE 1573s [00:52:53.723] - resignal: FALSE 1573s [00:52:53.723] - force: TRUE 1573s [00:52:53.724] - relayed: [n=1] TRUE 1573s [00:52:53.724] - queued futures: [n=1] TRUE 1573s - flush all 1573s [00:52:53.724] - relayed: [n=1] TRUE 1573s [00:52:53.724] - queued futures: [n=1] TRUE 1573s List of 2[00:52:53.725] signalConditionsASAP(NULL, pos=0) ... done 1573s [00:52:53.725] resolve() on list ... DONE 1573s [00:52:53.725] - Number of value chunks collected: 1 1573s [00:52:53.725] Resolving 1 futures (chunks) ... DONE 1573s [00:52:53.726] Reducing values from 1 chunks ... 1573s [00:52:53.726] - Number of values collected after concatenation: 3 1573s [00:52:53.726] - Number of values expected: 3 1573s [00:52:53.726] Reducing values from 1 chunks ... DONE 1573s [00:52:53.726] future_lapply() ... DONE 1573s 1573s $ y0:List of 3 1573s ..$ a: num [1, 1] 1 1573s ..$ b: num [1, 1] 2 1573s ..$ c: num [1, 1] 3 1573s $ y1:List[00:52:53.738] future_lapply() ... 1573s of 3 1573s ..$ a: num [1, 1] 1 1573s ..$ b: num [1, 1] 2 1573s ..$ c: num [1, 1] 3 1573s List of 2 1573s $ y0:List of 3 1573s ..$ a: num [1, 1] 1 1573s ..$ b: num [1, 1] 2 1573s ..$ c: num [1, 1] 3 1573s $ y2:List of 3 1573s ..$ a: num [1, 1] 1 1573s ..$ b: num [1, 1] 2 1573s ..$ c: num [1, 1] 3 1573s [00:52:53.743] Number of chunks: 1 1573s [00:52:53.743] getGlobalsAndPackagesXApply() ... 1573s [00:52:53.743] - future.globals: TRUE 1573s [00:52:53.743] getGlobalsAndPackages() ... 1573s [00:52:53.744] Searching for globals... 1573s [00:52:53.746] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1573s [00:52:53.746] Searching for globals ... DONE 1573s [00:52:53.747] Resolving globals: FALSE 1573s [00:52:53.747] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1573s [00:52:53.748] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1573s [00:52:53.748] - globals: [1] ‘FUN’ 1573s [00:52:53.748] 1573s [00:52:53.748] getGlobalsAndPackages() ... DONE 1573s [00:52:53.748] - globals found/used: [n=1] ‘FUN’ 1573s [00:52:53.748] - needed namespaces: [n=0] 1573s [00:52:53.748] Finding globals ... DONE 1573s [00:52:53.749] - use_args: TRUE 1573s [00:52:53.749] - Getting '...' globals ... 1573s [00:52:53.749] resolve() on list ... 1573s [00:52:53.749] recursive: 0 1573s [00:52:53.749] length: 1 1573s [00:52:53.749] elements: ‘...’ 1573s [00:52:53.750] length: 0 (resolved future 1) 1573s [00:52:53.750] resolve() on list ... DONE 1573s [00:52:53.750] - '...' content: [n=0] 1573s [00:52:53.750] List of 1 1573s [00:52:53.750] $ ...: list() 1573s [00:52:53.750] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1573s [00:52:53.750] - attr(*, "where")=List of 1 1573s [00:52:53.750] ..$ ...: 1573s [00:52:53.750] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1573s [00:52:53.750] - attr(*, "resolved")= logi TRUE 1573s [00:52:53.750] - attr(*, "total_size")= num NA 1573s [00:52:53.754] - Getting '...' globals ... DONE 1573s [00:52:53.755] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1573s [00:52:53.755] List of 2 1573s [00:52:53.755] $ ...future.FUN:function (x, y = 2 * 1:5) 1573s [00:52:53.755] $ ... : list() 1573s [00:52:53.755] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1573s [00:52:53.755] - attr(*, "where")=List of 2 1573s [00:52:53.755] ..$ ...future.FUN: 1573s [00:52:53.755] ..$ ... : 1573s [00:52:53.755] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1573s [00:52:53.755] - attr(*, "resolved")= logi FALSE 1573s [00:52:53.755] - attr(*, "total_size")= num 4728 1573s [00:52:53.763] Packages to be attached in all futures: [n=0] 1573s [00:52:53.763] getGlobalsAndPackagesXApply() ... DONE 1573s [00:52:53.763] Number of futures (= number of chunks): 1 1573s [00:52:53.763] Launching 1 futures (chunks) ... 1573s [00:52:53.763] Chunk #1 of 1 ... 1573s [00:52:53.764] - Finding globals in 'X' for chunk #1 ... 1573s [00:52:53.764] getGlobalsAndPackages() ... 1573s [00:52:53.764] Searching for globals... 1573s [00:52:53.764] 1573s [00:52:53.765] Searching for globals ... DONE 1573s [00:52:53.765] - globals: [0] 1573s [00:52:53.765] getGlobalsAndPackages() ... DONE 1573s [00:52:53.765] + additional globals found: [n=0] 1573s [00:52:53.766] + additional namespaces needed: [n=0] 1573s [00:52:53.766] - Finding globals in 'X' for chunk #1 ... DONE 1573s [00:52:53.766] - seeds: 1573s [00:52:53.766] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1573s [00:52:53.766] getGlobalsAndPackages() ... 1573s [00:52:53.766] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1573s [00:52:53.767] Resolving globals: FALSE 1573s [00:52:53.767] Tweak future expression to call with '...' arguments ... 1573s [00:52:53.767] { 1573s [00:52:53.767] do.call(function(...) { 1573s [00:52:53.767] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1573s [00:52:53.767] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1573s [00:52:53.767] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1573s [00:52:53.767] on.exit(options(oopts), add = TRUE) 1573s [00:52:53.767] } 1573s [00:52:53.767] { 1573s [00:52:53.767] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1573s [00:52:53.767] ...future.X_jj <- ...future.elements_ii[[jj]] 1573s [00:52:53.767] ...future.FUN(...future.X_jj, ...) 1573s [00:52:53.767] }) 1573s [00:52:53.767] } 1573s [00:52:53.767] }, args = future.call.arguments) 1573s [00:52:53.767] } 1573s [00:52:53.768] Tweak future expression to call with '...' arguments ... DONE 1573s [00:52:53.768] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1573s [00:52:53.768] 1573s [00:52:53.768] getGlobalsAndPackages() ... DONE 1573s [00:52:53.769] run() for ‘Future’ ... 1573s [00:52:53.769] - state: ‘created’ 1573s [00:52:53.769] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1573s [00:52:53.774] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1573s [00:52:53.774] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1573s [00:52:53.775] - Field: ‘label’ 1573s [00:52:53.775] - Field: ‘local’ 1573s [00:52:53.775] - Field: ‘owner’ 1573s [00:52:53.776] - Field: ‘envir’ 1573s [00:52:53.776] - Field: ‘packages’ 1573s [00:52:53.776] - Field: ‘gc’ 1573s [00:52:53.776] - Field: ‘conditions’ 1573s [00:52:53.777] - Field: ‘expr’ 1573s [00:52:53.777] - Field: ‘uuid’ 1573s [00:52:53.777] - Field: ‘seed’ 1573s [00:52:53.777] - Field: ‘version’ 1573s [00:52:53.778] - Field: ‘result’ 1573s [00:52:53.778] - Field: ‘asynchronous’ 1573s [00:52:53.778] - Field: ‘calls’ 1573s [00:52:53.778] - Field: ‘globals’ 1573s [00:52:53.778] - Field: ‘stdout’ 1573s [00:52:53.778] - Field: ‘earlySignal’ 1573s [00:52:53.778] - Field: ‘lazy’ 1573s [00:52:53.779] - Field: ‘state’ 1573s [00:52:53.779] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1573s [00:52:53.779] - Launch lazy future ... 1573s [00:52:53.779] Packages needed by the future expression (n = 0): 1573s [00:52:53.779] Packages needed by future strategies (n = 0): 1573s [00:52:53.780] { 1573s [00:52:53.780] { 1573s [00:52:53.780] { 1573s [00:52:53.780] ...future.startTime <- base::Sys.time() 1573s [00:52:53.780] { 1573s [00:52:53.780] { 1573s [00:52:53.780] { 1573s [00:52:53.780] base::local({ 1573s [00:52:53.780] has_future <- base::requireNamespace("future", 1573s [00:52:53.780] quietly = TRUE) 1573s [00:52:53.780] if (has_future) { 1573s [00:52:53.780] ns <- base::getNamespace("future") 1573s [00:52:53.780] version <- ns[[".package"]][["version"]] 1573s [00:52:53.780] if (is.null(version)) 1573s [00:52:53.780] version <- utils::packageVersion("future") 1573s [00:52:53.780] } 1573s [00:52:53.780] else { 1573s [00:52:53.780] version <- NULL 1573s [00:52:53.780] } 1573s [00:52:53.780] if (!has_future || version < "1.8.0") { 1573s [00:52:53.780] info <- base::c(r_version = base::gsub("R version ", 1573s [00:52:53.780] "", base::R.version$version.string), 1573s [00:52:53.780] platform = base::sprintf("%s (%s-bit)", 1573s [00:52:53.780] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1573s [00:52:53.780] os = base::paste(base::Sys.info()[base::c("sysname", 1573s [00:52:53.780] "release", "version")], collapse = " "), 1573s [00:52:53.780] hostname = base::Sys.info()[["nodename"]]) 1573s [00:52:53.780] info <- base::sprintf("%s: %s", base::names(info), 1573s [00:52:53.780] info) 1573s [00:52:53.780] info <- base::paste(info, collapse = "; ") 1573s [00:52:53.780] if (!has_future) { 1573s [00:52:53.780] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1573s [00:52:53.780] info) 1573s [00:52:53.780] } 1573s [00:52:53.780] else { 1573s [00:52:53.780] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1573s [00:52:53.780] info, version) 1573s [00:52:53.780] } 1573s [00:52:53.780] base::stop(msg) 1573s [00:52:53.780] } 1573s [00:52:53.780] }) 1573s [00:52:53.780] } 1573s [00:52:53.780] options(future.plan = NULL) 1573s [00:52:53.780] Sys.unsetenv("R_FUTURE_PLAN") 1573s [00:52:53.780] future::plan("default", .cleanup = FALSE, .init = FALSE) 1573s [00:52:53.780] } 1573s [00:52:53.780] ...future.workdir <- getwd() 1573s [00:52:53.780] } 1573s [00:52:53.780] ...future.oldOptions <- base::as.list(base::.Options) 1573s [00:52:53.780] ...future.oldEnvVars <- base::Sys.getenv() 1573s [00:52:53.780] } 1573s [00:52:53.780] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1573s [00:52:53.780] future.globals.maxSize = NULL, future.globals.method = NULL, 1573s [00:52:53.780] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1573s [00:52:53.780] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1573s [00:52:53.780] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1573s [00:52:53.780] future.stdout.windows.reencode = NULL, width = 80L) 1573s [00:52:53.780] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1573s [00:52:53.780] base::names(...future.oldOptions)) 1573s [00:52:53.780] } 1573s [00:52:53.780] if (FALSE) { 1573s [00:52:53.780] } 1573s [00:52:53.780] else { 1573s [00:52:53.780] if (TRUE) { 1573s [00:52:53.780] ...future.stdout <- base::rawConnection(base::raw(0L), 1573s [00:52:53.780] open = "w") 1573s [00:52:53.780] } 1573s [00:52:53.780] else { 1573s [00:52:53.780] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1573s [00:52:53.780] windows = "NUL", "/dev/null"), open = "w") 1573s [00:52:53.780] } 1573s [00:52:53.780] base::sink(...future.stdout, type = "output", split = FALSE) 1573s [00:52:53.780] base::on.exit(if (!base::is.null(...future.stdout)) { 1573s [00:52:53.780] base::sink(type = "output", split = FALSE) 1573s [00:52:53.780] base::close(...future.stdout) 1573s [00:52:53.780] }, add = TRUE) 1573s [00:52:53.780] } 1573s [00:52:53.780] ...future.frame <- base::sys.nframe() 1573s [00:52:53.780] ...future.conditions <- base::list() 1573s [00:52:53.780] ...future.rng <- base::globalenv()$.Random.seed 1573s [00:52:53.780] if (FALSE) { 1573s [00:52:53.780] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1573s [00:52:53.780] "...future.value", "...future.globalenv.names", ".Random.seed") 1573s [00:52:53.780] } 1573s [00:52:53.780] ...future.result <- base::tryCatch({ 1573s [00:52:53.780] base::withCallingHandlers({ 1573s [00:52:53.780] ...future.value <- base::withVisible(base::local({ 1573s [00:52:53.780] do.call(function(...) { 1573s [00:52:53.780] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1573s [00:52:53.780] if (!identical(...future.globals.maxSize.org, 1573s [00:52:53.780] ...future.globals.maxSize)) { 1573s [00:52:53.780] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1573s [00:52:53.780] on.exit(options(oopts), add = TRUE) 1573s [00:52:53.780] } 1573s [00:52:53.780] { 1573s [00:52:53.780] lapply(seq_along(...future.elements_ii), 1573s [00:52:53.780] FUN = function(jj) { 1573s [00:52:53.780] ...future.X_jj <- ...future.elements_ii[[jj]] 1573s [00:52:53.780] ...future.FUN(...future.X_jj, ...) 1573s [00:52:53.780] }) 1573s [00:52:53.780] } 1573s [00:52:53.780] }, args = future.call.arguments) 1573s [00:52:53.780] })) 1573s [00:52:53.780] future::FutureResult(value = ...future.value$value, 1573s [00:52:53.780] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1573s [00:52:53.780] ...future.rng), globalenv = if (FALSE) 1573s [00:52:53.780] list(added = base::setdiff(base::names(base::.GlobalEnv), 1573s [00:52:53.780] ...future.globalenv.names)) 1573s [00:52:53.780] else NULL, started = ...future.startTime, version = "1.8") 1573s [00:52:53.780] }, condition = base::local({ 1573s [00:52:53.780] c <- base::c 1573s [00:52:53.780] inherits <- base::inherits 1573s [00:52:53.780] invokeRestart <- base::invokeRestart 1573s [00:52:53.780] length <- base::length 1573s [00:52:53.780] list <- base::list 1573s [00:52:53.780] seq.int <- base::seq.int 1573s [00:52:53.780] signalCondition <- base::signalCondition 1573s [00:52:53.780] sys.calls <- base::sys.calls 1573s [00:52:53.780] `[[` <- base::`[[` 1573s [00:52:53.780] `+` <- base::`+` 1573s [00:52:53.780] `<<-` <- base::`<<-` 1573s [00:52:53.780] sysCalls <- function(calls = sys.calls(), from = 1L) { 1573s [00:52:53.780] calls[seq.int(from = from + 12L, to = length(calls) - 1573s [00:52:53.780] 3L)] 1573s [00:52:53.780] } 1573s [00:52:53.780] function(cond) { 1573s [00:52:53.780] is_error <- inherits(cond, "error") 1573s [00:52:53.780] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1573s [00:52:53.780] NULL) 1573s [00:52:53.780] if (is_error) { 1573s [00:52:53.780] sessionInformation <- function() { 1573s [00:52:53.780] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1573s [00:52:53.780] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1573s [00:52:53.780] search = base::search(), system = base::Sys.info()) 1573s [00:52:53.780] } 1573s [00:52:53.780] ...future.conditions[[length(...future.conditions) + 1573s [00:52:53.780] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1573s [00:52:53.780] cond$call), session = sessionInformation(), 1573s [00:52:53.780] timestamp = base::Sys.time(), signaled = 0L) 1573s [00:52:53.780] signalCondition(cond) 1573s [00:52:53.780] } 1573s [00:52:53.780] else if (!ignore && TRUE && inherits(cond, c("condition", 1573s [00:52:53.780] "immediateCondition"))) { 1573s [00:52:53.780] signal <- TRUE && inherits(cond, "immediateCondition") 1573s [00:52:53.780] ...future.conditions[[length(...future.conditions) + 1573s [00:52:53.780] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1573s [00:52:53.780] if (TRUE && !signal) { 1573s [00:52:53.780] muffleCondition <- function (cond, pattern = "^muffle") 1573s [00:52:53.780] { 1573s [00:52:53.780] inherits <- base::inherits 1573s [00:52:53.780] invokeRestart <- base::invokeRestart 1573s [00:52:53.780] is.null <- base::is.null 1573s [00:52:53.780] muffled <- FALSE 1573s [00:52:53.780] if (inherits(cond, "message")) { 1573s [00:52:53.780] muffled <- grepl(pattern, "muffleMessage") 1573s [00:52:53.780] if (muffled) 1573s [00:52:53.780] invokeRestart("muffleMessage") 1573s [00:52:53.780] } 1573s [00:52:53.780] else if (inherits(cond, "warning")) { 1573s [00:52:53.780] muffled <- grepl(pattern, "muffleWarning") 1573s [00:52:53.780] if (muffled) 1573s [00:52:53.780] invokeRestart("muffleWarning") 1573s [00:52:53.780] } 1573s [00:52:53.780] else if (inherits(cond, "condition")) { 1573s [00:52:53.780] if (!is.null(pattern)) { 1573s [00:52:53.780] computeRestarts <- base::computeRestarts 1573s [00:52:53.780] grepl <- base::grepl 1573s [00:52:53.780] restarts <- computeRestarts(cond) 1573s [00:52:53.780] for (restart in restarts) { 1573s [00:52:53.780] name <- restart$name 1573s [00:52:53.780] if (is.null(name)) 1573s [00:52:53.780] next 1573s [00:52:53.780] if (!grepl(pattern, name)) 1573s [00:52:53.780] next 1573s [00:52:53.780] invokeRestart(restart) 1573s [00:52:53.780] muffled <- TRUE 1573s [00:52:53.780] break 1573s [00:52:53.780] } 1573s [00:52:53.780] } 1573s [00:52:53.780] } 1573s [00:52:53.780] invisible(muffled) 1573s [00:52:53.780] } 1573s [00:52:53.780] muffleCondition(cond, pattern = "^muffle") 1573s [00:52:53.780] } 1573s [00:52:53.780] } 1573s [00:52:53.780] else { 1573s [00:52:53.780] if (TRUE) { 1573s [00:52:53.780] muffleCondition <- function (cond, pattern = "^muffle") 1573s [00:52:53.780] { 1573s [00:52:53.780] inherits <- base::inherits 1573s [00:52:53.780] invokeRestart <- base::invokeRestart 1573s [00:52:53.780] is.null <- base::is.null 1573s [00:52:53.780] muffled <- FALSE 1573s [00:52:53.780] if (inherits(cond, "message")) { 1573s [00:52:53.780] muffled <- grepl(pattern, "muffleMessage") 1573s [00:52:53.780] if (muffled) 1573s [00:52:53.780] invokeRestart("muffleMessage") 1573s [00:52:53.780] } 1573s [00:52:53.780] else if (inherits(cond, "warning")) { 1573s [00:52:53.780] muffled <- grepl(pattern, "muffleWarning") 1573s [00:52:53.780] if (muffled) 1573s [00:52:53.780] invokeRestart("muffleWarning") 1573s [00:52:53.780] } 1573s [00:52:53.780] else if (inherits(cond, "condition")) { 1573s [00:52:53.780] if (!is.null(pattern)) { 1573s [00:52:53.780] computeRestarts <- base::computeRestarts 1573s [00:52:53.780] grepl <- base::grepl 1573s [00:52:53.780] restarts <- computeRestarts(cond) 1573s [00:52:53.780] for (restart in restarts) { 1573s [00:52:53.780] name <- restart$name 1573s [00:52:53.780] if (is.null(name)) 1573s [00:52:53.780] next 1573s [00:52:53.780] if (!grepl(pattern, name)) 1573s [00:52:53.780] next 1573s [00:52:53.780] invokeRestart(restart) 1573s [00:52:53.780] muffled <- TRUE 1573s [00:52:53.780] break 1573s [00:52:53.780] } 1573s [00:52:53.780] } 1573s [00:52:53.780] } 1573s [00:52:53.780] invisible(muffled) 1573s [00:52:53.780] } 1573s [00:52:53.780] muffleCondition(cond, pattern = "^muffle") 1573s [00:52:53.780] } 1573s [00:52:53.780] } 1573s [00:52:53.780] } 1573s [00:52:53.780] })) 1573s [00:52:53.780] }, error = function(ex) { 1573s [00:52:53.780] base::structure(base::list(value = NULL, visible = NULL, 1573s [00:52:53.780] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1573s [00:52:53.780] ...future.rng), started = ...future.startTime, 1573s [00:52:53.780] finished = Sys.time(), session_uuid = NA_character_, 1573s [00:52:53.780] version = "1.8"), class = "FutureResult") 1573s [00:52:53.780] }, finally = { 1573s [00:52:53.780] if (!identical(...future.workdir, getwd())) 1573s [00:52:53.780] setwd(...future.workdir) 1573s [00:52:53.780] { 1573s [00:52:53.780] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1573s [00:52:53.780] ...future.oldOptions$nwarnings <- NULL 1573s [00:52:53.780] } 1573s [00:52:53.780] base::options(...future.oldOptions) 1573s [00:52:53.780] if (.Platform$OS.type == "windows") { 1573s [00:52:53.780] old_names <- names(...future.oldEnvVars) 1573s [00:52:53.780] envs <- base::Sys.getenv() 1573s [00:52:53.780] names <- names(envs) 1573s [00:52:53.780] common <- intersect(names, old_names) 1573s [00:52:53.780] added <- setdiff(names, old_names) 1573s [00:52:53.780] removed <- setdiff(old_names, names) 1573s [00:52:53.780] changed <- common[...future.oldEnvVars[common] != 1573s [00:52:53.780] envs[common]] 1573s [00:52:53.780] NAMES <- toupper(changed) 1573s [00:52:53.780] args <- list() 1573s [00:52:53.780] for (kk in seq_along(NAMES)) { 1573s [00:52:53.780] name <- changed[[kk]] 1573s [00:52:53.780] NAME <- NAMES[[kk]] 1573s [00:52:53.780] if (name != NAME && is.element(NAME, old_names)) 1573s [00:52:53.780] next 1573s [00:52:53.780] args[[name]] <- ...future.oldEnvVars[[name]] 1573s [00:52:53.780] } 1573s [00:52:53.780] NAMES <- toupper(added) 1573s [00:52:53.780] for (kk in seq_along(NAMES)) { 1573s [00:52:53.780] name <- added[[kk]] 1573s [00:52:53.780] NAME <- NAMES[[kk]] 1573s [00:52:53.780] if (name != NAME && is.element(NAME, old_names)) 1573s [00:52:53.780] next 1573s [00:52:53.780] args[[name]] <- "" 1573s [00:52:53.780] } 1573s [00:52:53.780] NAMES <- toupper(removed) 1573s [00:52:53.780] for (kk in seq_along(NAMES)) { 1573s [00:52:53.780] name <- removed[[kk]] 1573s [00:52:53.780] NAME <- NAMES[[kk]] 1573s [00:52:53.780] if (name != NAME && is.element(NAME, old_names)) 1573s [00:52:53.780] next 1573s [00:52:53.780] args[[name]] <- ...future.oldEnvVars[[name]] 1573s [00:52:53.780] } 1573s [00:52:53.780] if (length(args) > 0) 1573s [00:52:53.780] base::do.call(base::Sys.setenv, args = args) 1573s [00:52:53.780] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1573s [00:52:53.780] } 1573s [00:52:53.780] else { 1573s [00:52:53.780] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1573s [00:52:53.780] } 1573s [00:52:53.780] { 1573s [00:52:53.780] if (base::length(...future.futureOptionsAdded) > 1573s [00:52:53.780] 0L) { 1573s [00:52:53.780] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1573s [00:52:53.780] base::names(opts) <- ...future.futureOptionsAdded 1573s [00:52:53.780] base::options(opts) 1573s [00:52:53.780] } 1573s [00:52:53.780] { 1573s [00:52:53.780] { 1573s [00:52:53.780] NULL 1573s [00:52:53.780] RNGkind("Mersenne-Twister") 1573s [00:52:53.780] base::rm(list = ".Random.seed", envir = base::globalenv(), 1573s [00:52:53.780] inherits = FALSE) 1573s [00:52:53.780] } 1573s [00:52:53.780] options(future.plan = NULL) 1573s [00:52:53.780] if (is.na(NA_character_)) 1573s [00:52:53.780] Sys.unsetenv("R_FUTURE_PLAN") 1573s [00:52:53.780] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1573s [00:52:53.780] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1573s [00:52:53.780] envir = parent.frame()) 1573s [00:52:53.780] { 1573s [00:52:53.780] default_workers <- missing(workers) 1573s [00:52:53.780] if (is.function(workers)) 1573s [00:52:53.780] workers <- workers() 1573s [00:52:53.780] workers <- structure(as.integer(workers), 1573s [00:52:53.780] class = class(workers)) 1573s [00:52:53.780] stop_if_not(is.finite(workers), workers >= 1573s [00:52:53.780] 1L) 1573s [00:52:53.780] if ((workers == 1L && !inherits(workers, 1573s [00:52:53.780] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1573s [00:52:53.780] if (default_workers) 1573s [00:52:53.780] supportsMulticore(warn = TRUE) 1573s [00:52:53.780] return(sequential(..., envir = envir)) 1573s [00:52:53.780] } 1573s [00:52:53.780] oopts <- options(mc.cores = workers) 1573s [00:52:53.780] on.exit(options(oopts)) 1573s [00:52:53.780] future <- MulticoreFuture(..., workers = workers, 1573s [00:52:53.780] envir = envir) 1573s [00:52:53.780] if (!future$lazy) 1573s [00:52:53.780] future <- run(future) 1573s [00:52:53.780] invisible(future) 1573s [00:52:53.780] }), .cleanup = FALSE, .init = FALSE) 1573s [00:52:53.780] } 1573s [00:52:53.780] } 1573s [00:52:53.780] } 1573s [00:52:53.780] }) 1573s [00:52:53.780] if (TRUE) { 1573s [00:52:53.780] base::sink(type = "output", split = FALSE) 1573s [00:52:53.780] if (TRUE) { 1573s [00:52:53.780] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1573s [00:52:53.780] } 1573s [00:52:53.780] else { 1573s [00:52:53.780] ...future.result["stdout"] <- base::list(NULL) 1573s [00:52:53.780] } 1573s [00:52:53.780] base::close(...future.stdout) 1573s [00:52:53.780] ...future.stdout <- NULL 1573s [00:52:53.780] } 1573s [00:52:53.780] ...future.result$conditions <- ...future.conditions 1573s [00:52:53.780] ...future.result$finished <- base::Sys.time() 1573s [00:52:53.780] ...future.result 1573s [00:52:53.780] } 1573s [00:52:53.787] assign_globals() ... 1573s [00:52:53.787] List of 5 1573s [00:52:53.787] $ ...future.FUN :function (x, y = 2 * 1:5) 1573s [00:52:53.787] $ future.call.arguments : list() 1573s [00:52:53.787] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1573s [00:52:53.787] $ ...future.elements_ii :List of 3 1573s [00:52:53.787] ..$ a: num 1 1573s [00:52:53.787] ..$ b: num 2 1573s [00:52:53.787] ..$ c: num 3 1573s [00:52:53.787] $ ...future.seeds_ii : NULL 1573s [00:52:53.787] $ ...future.globals.maxSize: NULL 1573s [00:52:53.787] - attr(*, "where")=List of 5 1573s [00:52:53.787] ..$ ...future.FUN : 1573s [00:52:53.787] ..$ future.call.arguments : 1573s [00:52:53.787] ..$ ...future.elements_ii : 1573s [00:52:53.787] ..$ ...future.seeds_ii : 1573s [00:52:53.787] ..$ ...future.globals.maxSize: 1573s [00:52:53.787] - attr(*, "resolved")= logi FALSE 1573s [00:52:53.787] - attr(*, "total_size")= num 4728 1573s [00:52:53.787] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1573s [00:52:53.787] - attr(*, "already-done")= logi TRUE 1573s [00:52:53.798] - reassign environment for ‘...future.FUN’ 1573s [00:52:53.798] - copied ‘...future.FUN’ to environment 1573s [00:52:53.799] - copied ‘future.call.arguments’ to environment 1573s [00:52:53.799] - copied ‘...future.elements_ii’ to environment 1573s [00:52:53.799] - copied ‘...future.seeds_ii’ to environment 1573s [00:52:53.799] - copied ‘...future.globals.maxSize’ to environment 1573s [00:52:53.799] assign_globals() ... done 1573s [00:52:53.800] plan(): Setting new future strategy stack: 1573s [00:52:53.801] List of future strategies: 1573s [00:52:53.801] 1. sequential: 1573s [00:52:53.801] - args: function (..., envir = parent.frame()) 1573s [00:52:53.801] - tweaked: FALSE 1573s [00:52:53.801] - call: NULL 1573s [00:52:53.801] plan(): nbrOfWorkers() = 1 1573s [00:52:53.803] plan(): Setting new future strategy stack: 1573s [00:52:53.803] List of future strategies: 1573s [00:52:53.803] 1. multicore: 1573s [00:52:53.803] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1573s [00:52:53.803] - tweaked: FALSE 1573s [00:52:53.803] - call: plan(strategy) 1573s [00:52:53.808] plan(): nbrOfWorkers() = 1 1573s [00:52:53.808] SequentialFuture started (and completed) 1573s [00:52:53.808] - Launch lazy future ... done 1573s [00:52:53.809] run() for ‘SequentialFuture’ ... done 1573s [00:52:53.809] Created future: 1573s [00:52:53.810] SequentialFuture: 1573s [00:52:53.810] Label: ‘future_sapply-1’ 1573s [00:52:53.810] Expression: 1573s [00:52:53.810] { 1573s [00:52:53.810] do.call(function(...) { 1573s [00:52:53.810] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1573s [00:52:53.810] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1573s [00:52:53.810] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1573s [00:52:53.810] on.exit(options(oopts), add = TRUE) 1573s [00:52:53.810] } 1573s [00:52:53.810] { 1573s [00:52:53.810] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1573s [00:52:53.810] ...future.X_jj <- ...future.elements_ii[[jj]] 1573s [00:52:53.810] ...future.FUN(...future.X_jj, ...) 1573s [00:52:53.810] }) 1573s [00:52:53.810] } 1573s [00:52:53.810] }, args = future.call.arguments) 1573s [00:52:53.810] } 1573s [00:52:53.810] Lazy evaluation: FALSE 1573s [00:52:53.810] Asynchronous evaluation: FALSE 1573s [00:52:53.810] Local evaluation: TRUE 1573s [00:52:53.810] Environment: R_GlobalEnv 1573s [00:52:53.810] Capture standard output: TRUE 1573s [00:52:53.810] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1573s [00:52:53.810] Globals: 5 objects totaling 4.78 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1573s [00:52:53.810] Packages: 1573s [00:52:53.810] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1573s [00:52:53.810] Resolved: TRUE 1573s [00:52:53.810] Value: 1.01 KiB of class ‘list’ 1573s [00:52:53.810] Early signaling: FALSE 1573s [00:52:53.810] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1573s [00:52:53.810] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1573s [00:52:53.813] Chunk #1 of 1 ... DONE 1573s [00:52:53.813] Launching 1 futures (chunks) ... DONE 1573s [00:52:53.813] Resolving 1 futures (chunks) ... 1573s [00:52:53.813] resolve() on list ... 1573s [00:52:53.813] recursive: 0 1573s [00:52:53.813] length: 1 1573s [00:52:53.814] 1573s [00:52:53.814] resolved() for ‘SequentialFuture’ ... 1573s [00:52:53.814] - state: ‘finished’ 1573s [00:52:53.814] - run: TRUE 1573s [00:52:53.814] - result: ‘FutureResult’ 1573s [00:52:53.815] resolved() for ‘SequentialFuture’ ... done 1573s [00:52:53.815] Future #1 1573s [00:52:53.815] signalConditionsASAP(SequentialFuture, pos=1) ... 1573s [00:52:53.816] - nx: 1 1573s [00:52:53.816] - relay: TRUE 1573s [00:52:53.816] - stdout: TRUE 1573s [00:52:53.816] - signal: TRUE 1573s [00:52:53.816] - resignal: FALSE 1573s [00:52:53.816] - force: TRUE 1573s [00:52:53.817] - relayed: [n=1] FALSE 1573s [00:52:53.817] - queued futures: [n=1] FALSE 1573s [00:52:53.817] - until=1 1573s [00:52:53.817] - relaying element #1 1573s [00:52:53.817] - relayed: [n=1] TRUE 1573s [00:52:53.818] - queued futures: [n=1] TRUE 1573s [00:52:53.818] signalConditionsASAP(SequentialFuture, pos=1) ... done 1573s [00:52:53.818] length: 0 (resolved future 1) 1573s [00:52:53.818] Relaying remaining futures 1573s [00:52:53.819] signalConditionsASAP(NULL, pos=0) ... 1573s [00:52:53.819] - nx: 1 1573s [00:52:53.819] - relay: TRUE 1573s [00:52:53.819] - stdout: TRUE 1573s [00:52:53.819] - signal: TRUE 1573s [00:52:53.819] - resignal: FALSE 1573s [00:52:53.820] - force: TRUE 1573s [00:52:53.820] - relayed: [n=1] TRUE 1573s [00:52:53.820] - queued futures: [n=1] TRUE 1573s - flush all 1573s [00:52:53.821] - relayed: [n=1] TRUE 1573s [00:52:53.821] - queued futures: [n=1] TRUE 1573s [00:52:53.821] signalConditionsASAP(NULL, pos=0) ... done 1573s [00:52:53.821] resolve() on list ... DONE 1573s [00:52:53.822] - Number of value chunks collected: 1 1573s List of 2 1573s [00:52:53.822] Resolving 1 futures (chunks) ... DONE 1573s [00:52:53.822] Reducing values from 1 chunks ... 1573s [00:52:53.822] - Number of values collected after concatenation: 3 1573s [00:52:53.823] - Number of values expected: 3 1573s [00:52:53.823] Reducing values from 1 chunks ... DONE 1573s [00:52:53.823] future_lapply() ... DONE 1573s $ y0:List of 3 1573s ..$ a: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1573s ..$ b: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1573s ..$ c: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1573s $ y1:List of 3 1573s ..$ a: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1573s ..$ b: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1573s ..$ c: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1573s List of 2 1573s $ y0:List of 3 1573s ..$ a: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1573s ..$ b: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1573s ..$ c: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1573s $ y2:List of 3 1573s ..$ a: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1573s ..$ b: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1573s ..$ c: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1573s [00:52:53.837] future_lapply() ... 1573s [00:52:53.842] Number of chunks: 1 1573s [00:52:53.842] getGlobalsAndPackagesXApply() ... 1573s [00:52:53.843] - future.globals: TRUE 1573s [00:52:53.843] getGlobalsAndPackages() ... 1573s [00:52:53.843] Searching for globals... 1573s [00:52:53.844] - globals found: [1] ‘FUN’ 1573s [00:52:53.845] Searching for globals ... DONE 1573s [00:52:53.845] Resolving globals: FALSE 1573s [00:52:53.845] The total size of the 1 globals is 848 bytes (848 bytes) 1573s [00:52:53.846] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1573s [00:52:53.846] - globals: [1] ‘FUN’ 1573s [00:52:53.846] 1573s [00:52:53.847] getGlobalsAndPackages() ... DONE 1573s [00:52:53.847] - globals found/used: [n=1] ‘FUN’ 1573s [00:52:53.847] - needed namespaces: [n=0] 1573s [00:52:53.847] Finding globals ... DONE 1573s [00:52:53.847] - use_args: TRUE 1573s [00:52:53.848] - Getting '...' globals ... 1573s [00:52:53.848] resolve() on list ... 1573s [00:52:53.849] recursive: 0 1573s [00:52:53.849] length: 1 1573s [00:52:53.849] elements: ‘...’ 1573s [00:52:53.849] length: 0 (resolved future 1) 1573s [00:52:53.849] resolve() on list ... DONE 1573s [00:52:53.849] - '...' content: [n=0] 1573s [00:52:53.850] List of 1 1573s [00:52:53.850] $ ...: list() 1573s [00:52:53.850] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1573s [00:52:53.850] - attr(*, "where")=List of 1 1573s [00:52:53.850] ..$ ...: 1573s [00:52:53.850] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1573s [00:52:53.850] - attr(*, "resolved")= logi TRUE 1573s [00:52:53.850] - attr(*, "total_size")= num NA 1573s [00:52:53.855] - Getting '...' globals ... DONE 1573s [00:52:53.855] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1573s [00:52:53.856] List of 2 1573s [00:52:53.856] $ ...future.FUN:function (x) 1573s [00:52:53.856] $ ... : list() 1573s [00:52:53.856] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1573s [00:52:53.856] - attr(*, "where")=List of 2 1573s [00:52:53.856] ..$ ...future.FUN: 1573s [00:52:53.856] ..$ ... : 1573s [00:52:53.856] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1573s [00:52:53.856] - attr(*, "resolved")= logi FALSE 1573s [00:52:53.856] - attr(*, "total_size")= num 848 1573s [00:52:53.860] Packages to be attached in all futures: [n=0] 1573s [00:52:53.860] getGlobalsAndPackagesXApply() ... DONE 1573s [00:52:53.860] Number of futures (= number of chunks): 1 1573s [00:52:53.861] Launching 1 futures (chunks) ... 1573s [00:52:53.861] Chunk #1 of 1 ... 1573s [00:52:53.861] - Finding globals in 'X' for chunk #1 ... 1573s [00:52:53.861] getGlobalsAndPackages() ... 1573s [00:52:53.861] Searching for globals... 1573s [00:52:53.862] 1573s [00:52:53.862] Searching for globals ... DONE 1573s [00:52:53.862] - globals: [0] 1573s [00:52:53.862] getGlobalsAndPackages() ... DONE 1573s [00:52:53.862] + additional globals found: [n=0] 1573s [00:52:53.863] + additional namespaces needed: [n=0] 1573s [00:52:53.863] - Finding globals in 'X' for chunk #1 ... DONE 1573s [00:52:53.863] - seeds: 1573s [00:52:53.863] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1573s [00:52:53.864] getGlobalsAndPackages() ... 1573s [00:52:53.864] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1573s [00:52:53.864] Resolving globals: FALSE 1573s [00:52:53.865] Tweak future expression to call with '...' arguments ... 1573s [00:52:53.865] { 1573s [00:52:53.865] do.call(function(...) { 1573s [00:52:53.865] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1573s [00:52:53.865] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1573s [00:52:53.865] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1573s [00:52:53.865] on.exit(options(oopts), add = TRUE) 1573s [00:52:53.865] } 1573s [00:52:53.865] { 1573s [00:52:53.865] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1573s [00:52:53.865] ...future.X_jj <- ...future.elements_ii[[jj]] 1573s [00:52:53.865] ...future.FUN(...future.X_jj, ...) 1573s [00:52:53.865] }) 1573s [00:52:53.865] } 1573s [00:52:53.865] }, args = future.call.arguments) 1573s [00:52:53.865] } 1573s [00:52:53.866] Tweak future expression to call with '...' arguments ... DONE 1573s [00:52:53.866] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1573s [00:52:53.866] 1573s [00:52:53.866] getGlobalsAndPackages() ... DONE 1573s [00:52:53.867] run() for ‘Future’ ... 1573s [00:52:53.867] - state: ‘created’ 1573s [00:52:53.867] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1573s [00:52:53.872] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1573s [00:52:53.872] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1573s [00:52:53.872] - Field: ‘label’ 1573s [00:52:53.873] - Field: ‘local’ 1573s [00:52:53.873] - Field: ‘owner’ 1573s [00:52:53.873] - Field: ‘envir’ 1573s [00:52:53.873] - Field: ‘packages’ 1573s [00:52:53.873] - Field: ‘gc’ 1573s [00:52:53.874] - Field: ‘conditions’ 1573s [00:52:53.874] - Field: ‘expr’ 1573s [00:52:53.874] - Field: ‘uuid’ 1573s [00:52:53.874] - Field: ‘seed’ 1573s [00:52:53.874] - Field: ‘version’ 1573s [00:52:53.874] - Field: ‘result’ 1573s [00:52:53.874] - Field: ‘asynchronous’ 1573s [00:52:53.875] - Field: ‘calls’ 1573s [00:52:53.875] - Field: ‘globals’ 1573s [00:52:53.875] - Field: ‘stdout’ 1573s [00:52:53.875] - Field: ‘earlySignal’ 1573s [00:52:53.876] - Field: ‘lazy’ 1573s [00:52:53.876] - Field: ‘state’ 1573s [00:52:53.876] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1573s [00:52:53.876] - Launch lazy future ... 1573s [00:52:53.876] Packages needed by the future expression (n = 0): 1573s [00:52:53.877] Packages needed by future strategies (n = 0): 1573s [00:52:53.878] { 1573s [00:52:53.878] { 1573s [00:52:53.878] { 1573s [00:52:53.878] ...future.startTime <- base::Sys.time() 1573s [00:52:53.878] { 1573s [00:52:53.878] { 1573s [00:52:53.878] { 1573s [00:52:53.878] base::local({ 1573s [00:52:53.878] has_future <- base::requireNamespace("future", 1573s [00:52:53.878] quietly = TRUE) 1573s [00:52:53.878] if (has_future) { 1573s [00:52:53.878] ns <- base::getNamespace("future") 1573s [00:52:53.878] version <- ns[[".package"]][["version"]] 1573s [00:52:53.878] if (is.null(version)) 1573s [00:52:53.878] version <- utils::packageVersion("future") 1573s [00:52:53.878] } 1573s [00:52:53.878] else { 1573s [00:52:53.878] version <- NULL 1573s [00:52:53.878] } 1573s [00:52:53.878] if (!has_future || version < "1.8.0") { 1573s [00:52:53.878] info <- base::c(r_version = base::gsub("R version ", 1573s [00:52:53.878] "", base::R.version$version.string), 1573s [00:52:53.878] platform = base::sprintf("%s (%s-bit)", 1573s [00:52:53.878] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1573s [00:52:53.878] os = base::paste(base::Sys.info()[base::c("sysname", 1573s [00:52:53.878] "release", "version")], collapse = " "), 1573s [00:52:53.878] hostname = base::Sys.info()[["nodename"]]) 1573s [00:52:53.878] info <- base::sprintf("%s: %s", base::names(info), 1573s [00:52:53.878] info) 1573s [00:52:53.878] info <- base::paste(info, collapse = "; ") 1573s [00:52:53.878] if (!has_future) { 1573s [00:52:53.878] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1573s [00:52:53.878] info) 1573s [00:52:53.878] } 1573s [00:52:53.878] else { 1573s [00:52:53.878] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1573s [00:52:53.878] info, version) 1573s [00:52:53.878] } 1573s [00:52:53.878] base::stop(msg) 1573s [00:52:53.878] } 1573s [00:52:53.878] }) 1573s [00:52:53.878] } 1573s [00:52:53.878] options(future.plan = NULL) 1573s [00:52:53.878] Sys.unsetenv("R_FUTURE_PLAN") 1573s [00:52:53.878] future::plan("default", .cleanup = FALSE, .init = FALSE) 1573s [00:52:53.878] } 1573s [00:52:53.878] ...future.workdir <- getwd() 1573s [00:52:53.878] } 1573s [00:52:53.878] ...future.oldOptions <- base::as.list(base::.Options) 1573s [00:52:53.878] ...future.oldEnvVars <- base::Sys.getenv() 1573s [00:52:53.878] } 1573s [00:52:53.878] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1573s [00:52:53.878] future.globals.maxSize = NULL, future.globals.method = NULL, 1573s [00:52:53.878] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1573s [00:52:53.878] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1573s [00:52:53.878] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1573s [00:52:53.878] future.stdout.windows.reencode = NULL, width = 80L) 1573s [00:52:53.878] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1573s [00:52:53.878] base::names(...future.oldOptions)) 1573s [00:52:53.878] } 1573s [00:52:53.878] if (FALSE) { 1573s [00:52:53.878] } 1573s [00:52:53.878] else { 1573s [00:52:53.878] if (TRUE) { 1573s [00:52:53.878] ...future.stdout <- base::rawConnection(base::raw(0L), 1573s [00:52:53.878] open = "w") 1573s [00:52:53.878] } 1573s [00:52:53.878] else { 1573s [00:52:53.878] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1573s [00:52:53.878] windows = "NUL", "/dev/null"), open = "w") 1573s [00:52:53.878] } 1573s [00:52:53.878] base::sink(...future.stdout, type = "output", split = FALSE) 1573s [00:52:53.878] base::on.exit(if (!base::is.null(...future.stdout)) { 1573s [00:52:53.878] base::sink(type = "output", split = FALSE) 1573s [00:52:53.878] base::close(...future.stdout) 1573s [00:52:53.878] }, add = TRUE) 1573s [00:52:53.878] } 1573s [00:52:53.878] ...future.frame <- base::sys.nframe() 1573s [00:52:53.878] ...future.conditions <- base::list() 1573s [00:52:53.878] ...future.rng <- base::globalenv()$.Random.seed 1573s [00:52:53.878] if (FALSE) { 1573s [00:52:53.878] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1573s [00:52:53.878] "...future.value", "...future.globalenv.names", ".Random.seed") 1573s [00:52:53.878] } 1573s [00:52:53.878] ...future.result <- base::tryCatch({ 1573s [00:52:53.878] base::withCallingHandlers({ 1573s [00:52:53.878] ...future.value <- base::withVisible(base::local({ 1573s [00:52:53.878] do.call(function(...) { 1573s [00:52:53.878] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1573s [00:52:53.878] if (!identical(...future.globals.maxSize.org, 1573s [00:52:53.878] ...future.globals.maxSize)) { 1573s [00:52:53.878] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1573s [00:52:53.878] on.exit(options(oopts), add = TRUE) 1573s [00:52:53.878] } 1573s [00:52:53.878] { 1573s [00:52:53.878] lapply(seq_along(...future.elements_ii), 1573s [00:52:53.878] FUN = function(jj) { 1573s [00:52:53.878] ...future.X_jj <- ...future.elements_ii[[jj]] 1573s [00:52:53.878] ...future.FUN(...future.X_jj, ...) 1573s [00:52:53.878] }) 1573s [00:52:53.878] } 1573s [00:52:53.878] }, args = future.call.arguments) 1573s [00:52:53.878] })) 1573s [00:52:53.878] future::FutureResult(value = ...future.value$value, 1573s [00:52:53.878] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1573s [00:52:53.878] ...future.rng), globalenv = if (FALSE) 1573s [00:52:53.878] list(added = base::setdiff(base::names(base::.GlobalEnv), 1573s [00:52:53.878] ...future.globalenv.names)) 1573s [00:52:53.878] else NULL, started = ...future.startTime, version = "1.8") 1573s [00:52:53.878] }, condition = base::local({ 1573s [00:52:53.878] c <- base::c 1573s [00:52:53.878] inherits <- base::inherits 1573s [00:52:53.878] invokeRestart <- base::invokeRestart 1573s [00:52:53.878] length <- base::length 1573s [00:52:53.878] list <- base::list 1573s [00:52:53.878] seq.int <- base::seq.int 1573s [00:52:53.878] signalCondition <- base::signalCondition 1573s [00:52:53.878] sys.calls <- base::sys.calls 1573s [00:52:53.878] `[[` <- base::`[[` 1573s [00:52:53.878] `+` <- base::`+` 1573s [00:52:53.878] `<<-` <- base::`<<-` 1573s [00:52:53.878] sysCalls <- function(calls = sys.calls(), from = 1L) { 1573s [00:52:53.878] calls[seq.int(from = from + 12L, to = length(calls) - 1573s [00:52:53.878] 3L)] 1573s [00:52:53.878] } 1573s [00:52:53.878] function(cond) { 1573s [00:52:53.878] is_error <- inherits(cond, "error") 1573s [00:52:53.878] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1573s [00:52:53.878] NULL) 1573s [00:52:53.878] if (is_error) { 1573s [00:52:53.878] sessionInformation <- function() { 1573s [00:52:53.878] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1573s [00:52:53.878] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1573s [00:52:53.878] search = base::search(), system = base::Sys.info()) 1573s [00:52:53.878] } 1573s [00:52:53.878] ...future.conditions[[length(...future.conditions) + 1573s [00:52:53.878] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1573s [00:52:53.878] cond$call), session = sessionInformation(), 1573s [00:52:53.878] timestamp = base::Sys.time(), signaled = 0L) 1573s [00:52:53.878] signalCondition(cond) 1573s [00:52:53.878] } 1573s [00:52:53.878] else if (!ignore && TRUE && inherits(cond, c("condition", 1573s [00:52:53.878] "immediateCondition"))) { 1573s [00:52:53.878] signal <- TRUE && inherits(cond, "immediateCondition") 1573s [00:52:53.878] ...future.conditions[[length(...future.conditions) + 1573s [00:52:53.878] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1573s [00:52:53.878] if (TRUE && !signal) { 1573s [00:52:53.878] muffleCondition <- function (cond, pattern = "^muffle") 1573s [00:52:53.878] { 1573s [00:52:53.878] inherits <- base::inherits 1573s [00:52:53.878] invokeRestart <- base::invokeRestart 1573s [00:52:53.878] is.null <- base::is.null 1573s [00:52:53.878] muffled <- FALSE 1573s [00:52:53.878] if (inherits(cond, "message")) { 1573s [00:52:53.878] muffled <- grepl(pattern, "muffleMessage") 1573s [00:52:53.878] if (muffled) 1573s [00:52:53.878] invokeRestart("muffleMessage") 1573s [00:52:53.878] } 1573s [00:52:53.878] else if (inherits(cond, "warning")) { 1573s [00:52:53.878] muffled <- grepl(pattern, "muffleWarning") 1573s [00:52:53.878] if (muffled) 1573s [00:52:53.878] invokeRestart("muffleWarning") 1573s [00:52:53.878] } 1573s [00:52:53.878] else if (inherits(cond, "condition")) { 1573s [00:52:53.878] if (!is.null(pattern)) { 1573s [00:52:53.878] computeRestarts <- base::computeRestarts 1573s [00:52:53.878] grepl <- base::grepl 1573s [00:52:53.878] restarts <- computeRestarts(cond) 1573s [00:52:53.878] for (restart in restarts) { 1573s [00:52:53.878] name <- restart$name 1573s [00:52:53.878] if (is.null(name)) 1573s [00:52:53.878] next 1573s [00:52:53.878] if (!grepl(pattern, name)) 1573s [00:52:53.878] next 1573s [00:52:53.878] invokeRestart(restart) 1573s [00:52:53.878] muffled <- TRUE 1573s [00:52:53.878] break 1573s [00:52:53.878] } 1573s [00:52:53.878] } 1573s [00:52:53.878] } 1573s [00:52:53.878] invisible(muffled) 1573s [00:52:53.878] } 1573s [00:52:53.878] muffleCondition(cond, pattern = "^muffle") 1573s [00:52:53.878] } 1573s [00:52:53.878] } 1573s [00:52:53.878] else { 1573s [00:52:53.878] if (TRUE) { 1573s [00:52:53.878] muffleCondition <- function (cond, pattern = "^muffle") 1573s [00:52:53.878] { 1573s [00:52:53.878] inherits <- base::inherits 1573s [00:52:53.878] invokeRestart <- base::invokeRestart 1573s [00:52:53.878] is.null <- base::is.null 1573s [00:52:53.878] muffled <- FALSE 1573s [00:52:53.878] if (inherits(cond, "message")) { 1573s [00:52:53.878] muffled <- grepl(pattern, "muffleMessage") 1573s [00:52:53.878] if (muffled) 1573s [00:52:53.878] invokeRestart("muffleMessage") 1573s [00:52:53.878] } 1573s [00:52:53.878] else if (inherits(cond, "warning")) { 1573s [00:52:53.878] muffled <- grepl(pattern, "muffleWarning") 1573s [00:52:53.878] if (muffled) 1573s [00:52:53.878] invokeRestart("muffleWarning") 1573s [00:52:53.878] } 1573s [00:52:53.878] else if (inherits(cond, "condition")) { 1573s [00:52:53.878] if (!is.null(pattern)) { 1573s [00:52:53.878] computeRestarts <- base::computeRestarts 1573s [00:52:53.878] grepl <- base::grepl 1573s [00:52:53.878] restarts <- computeRestarts(cond) 1573s [00:52:53.878] for (restart in restarts) { 1573s [00:52:53.878] name <- restart$name 1573s [00:52:53.878] if (is.null(name)) 1573s [00:52:53.878] next 1573s [00:52:53.878] if (!grepl(pattern, name)) 1573s [00:52:53.878] next 1573s [00:52:53.878] invokeRestart(restart) 1573s [00:52:53.878] muffled <- TRUE 1573s [00:52:53.878] break 1573s [00:52:53.878] } 1573s [00:52:53.878] } 1573s [00:52:53.878] } 1573s [00:52:53.878] invisible(muffled) 1573s [00:52:53.878] } 1573s [00:52:53.878] muffleCondition(cond, pattern = "^muffle") 1573s [00:52:53.878] } 1573s [00:52:53.878] } 1573s [00:52:53.878] } 1573s [00:52:53.878] })) 1573s [00:52:53.878] }, error = function(ex) { 1573s [00:52:53.878] base::structure(base::list(value = NULL, visible = NULL, 1573s [00:52:53.878] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1573s [00:52:53.878] ...future.rng), started = ...future.startTime, 1573s [00:52:53.878] finished = Sys.time(), session_uuid = NA_character_, 1573s [00:52:53.878] version = "1.8"), class = "FutureResult") 1573s [00:52:53.878] }, finally = { 1573s [00:52:53.878] if (!identical(...future.workdir, getwd())) 1573s [00:52:53.878] setwd(...future.workdir) 1573s [00:52:53.878] { 1573s [00:52:53.878] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1573s [00:52:53.878] ...future.oldOptions$nwarnings <- NULL 1573s [00:52:53.878] } 1573s [00:52:53.878] base::options(...future.oldOptions) 1573s [00:52:53.878] if (.Platform$OS.type == "windows") { 1573s [00:52:53.878] old_names <- names(...future.oldEnvVars) 1573s [00:52:53.878] envs <- base::Sys.getenv() 1573s [00:52:53.878] names <- names(envs) 1573s [00:52:53.878] common <- intersect(names, old_names) 1573s [00:52:53.878] added <- setdiff(names, old_names) 1573s [00:52:53.878] removed <- setdiff(old_names, names) 1573s [00:52:53.878] changed <- common[...future.oldEnvVars[common] != 1573s [00:52:53.878] envs[common]] 1573s [00:52:53.878] NAMES <- toupper(changed) 1573s [00:52:53.878] args <- list() 1573s [00:52:53.878] for (kk in seq_along(NAMES)) { 1573s [00:52:53.878] name <- changed[[kk]] 1573s [00:52:53.878] NAME <- NAMES[[kk]] 1573s [00:52:53.878] if (name != NAME && is.element(NAME, old_names)) 1573s [00:52:53.878] next 1573s [00:52:53.878] args[[name]] <- ...future.oldEnvVars[[name]] 1573s [00:52:53.878] } 1573s [00:52:53.878] NAMES <- toupper(added) 1573s [00:52:53.878] for (kk in seq_along(NAMES)) { 1573s [00:52:53.878] name <- added[[kk]] 1573s [00:52:53.878] NAME <- NAMES[[kk]] 1573s [00:52:53.878] if (name != NAME && is.element(NAME, old_names)) 1573s [00:52:53.878] next 1573s [00:52:53.878] args[[name]] <- "" 1573s [00:52:53.878] } 1573s [00:52:53.878] NAMES <- toupper(removed) 1573s [00:52:53.878] for (kk in seq_along(NAMES)) { 1573s [00:52:53.878] name <- removed[[kk]] 1573s [00:52:53.878] NAME <- NAMES[[kk]] 1573s [00:52:53.878] if (name != NAME && is.element(NAME, old_names)) 1573s [00:52:53.878] next 1573s [00:52:53.878] args[[name]] <- ...future.oldEnvVars[[name]] 1573s [00:52:53.878] } 1573s [00:52:53.878] if (length(args) > 0) 1573s [00:52:53.878] base::do.call(base::Sys.setenv, args = args) 1573s [00:52:53.878] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1573s [00:52:53.878] } 1573s [00:52:53.878] else { 1573s [00:52:53.878] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1573s [00:52:53.878] } 1573s [00:52:53.878] { 1573s [00:52:53.878] if (base::length(...future.futureOptionsAdded) > 1573s [00:52:53.878] 0L) { 1573s [00:52:53.878] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1573s [00:52:53.878] base::names(opts) <- ...future.futureOptionsAdded 1573s [00:52:53.878] base::options(opts) 1573s [00:52:53.878] } 1573s [00:52:53.878] { 1573s [00:52:53.878] { 1573s [00:52:53.878] NULL 1573s [00:52:53.878] RNGkind("Mersenne-Twister") 1573s [00:52:53.878] base::rm(list = ".Random.seed", envir = base::globalenv(), 1573s [00:52:53.878] inherits = FALSE) 1573s [00:52:53.878] } 1573s [00:52:53.878] options(future.plan = NULL) 1573s [00:52:53.878] if (is.na(NA_character_)) 1573s [00:52:53.878] Sys.unsetenv("R_FUTURE_PLAN") 1573s [00:52:53.878] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1573s [00:52:53.878] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1573s [00:52:53.878] envir = parent.frame()) 1573s [00:52:53.878] { 1573s [00:52:53.878] default_workers <- missing(workers) 1573s [00:52:53.878] if (is.function(workers)) 1573s [00:52:53.878] workers <- workers() 1573s [00:52:53.878] workers <- structure(as.integer(workers), 1573s [00:52:53.878] class = class(workers)) 1573s [00:52:53.878] stop_if_not(is.finite(workers), workers >= 1573s [00:52:53.878] 1L) 1573s [00:52:53.878] if ((workers == 1L && !inherits(workers, 1573s [00:52:53.878] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1573s [00:52:53.878] if (default_workers) 1573s [00:52:53.878] supportsMulticore(warn = TRUE) 1573s [00:52:53.878] return(sequential(..., envir = envir)) 1573s [00:52:53.878] } 1573s [00:52:53.878] oopts <- options(mc.cores = workers) 1573s [00:52:53.878] on.exit(options(oopts)) 1573s [00:52:53.878] future <- MulticoreFuture(..., workers = workers, 1573s [00:52:53.878] envir = envir) 1573s [00:52:53.878] if (!future$lazy) 1573s [00:52:53.878] future <- run(future) 1573s [00:52:53.878] invisible(future) 1573s [00:52:53.878] }), .cleanup = FALSE, .init = FALSE) 1573s [00:52:53.878] } 1573s [00:52:53.878] } 1573s [00:52:53.878] } 1573s [00:52:53.878] }) 1573s [00:52:53.878] if (TRUE) { 1573s [00:52:53.878] base::sink(type = "output", split = FALSE) 1573s [00:52:53.878] if (TRUE) { 1573s [00:52:53.878] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1573s [00:52:53.878] } 1573s [00:52:53.878] else { 1573s [00:52:53.878] ...future.result["stdout"] <- base::list(NULL) 1573s [00:52:53.878] } 1573s [00:52:53.878] base::close(...future.stdout) 1573s [00:52:53.878] ...future.stdout <- NULL 1573s [00:52:53.878] } 1573s [00:52:53.878] ...future.result$conditions <- ...future.conditions 1573s [00:52:53.878] ...future.result$finished <- base::Sys.time() 1573s [00:52:53.878] ...future.result 1573s [00:52:53.878] } 1573s [00:52:53.881] assign_globals() ... 1573s [00:52:53.881] List of 5 1573s [00:52:53.881] $ ...future.FUN :function (x) 1573s [00:52:53.881] $ future.call.arguments : list() 1573s [00:52:53.881] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1573s [00:52:53.881] $ ...future.elements_ii :List of 3 1573s [00:52:53.881] ..$ a: num 1 1573s [00:52:53.881] ..$ b: num 2 1573s [00:52:53.881] ..$ c: num 3 1573s [00:52:53.881] $ ...future.seeds_ii : NULL 1573s [00:52:53.881] $ ...future.globals.maxSize: NULL 1573s [00:52:53.881] - attr(*, "where")=List of 5 1573s [00:52:53.881] ..$ ...future.FUN : 1573s [00:52:53.881] ..$ future.call.arguments : 1573s [00:52:53.881] ..$ ...future.elements_ii : 1573s [00:52:53.881] ..$ ...future.seeds_ii : 1573s [00:52:53.881] ..$ ...future.globals.maxSize: 1573s [00:52:53.881] - attr(*, "resolved")= logi FALSE 1573s [00:52:53.881] - attr(*, "total_size")= num 848 1573s [00:52:53.881] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1573s [00:52:53.881] - attr(*, "already-done")= logi TRUE 1573s [00:52:53.892] - copied ‘...future.FUN’ to environment 1573s [00:52:53.892] - copied ‘future.call.arguments’ to environment 1573s [00:52:53.892] - copied ‘...future.elements_ii’ to environment 1573s [00:52:53.893] - copied ‘...future.seeds_ii’ to environment 1573s [00:52:53.893] - copied ‘...future.globals.maxSize’ to environment 1573s [00:52:53.893] assign_globals() ... done 1573s [00:52:53.893] plan(): Setting new future strategy stack: 1573s [00:52:53.893] List of future strategies: 1573s [00:52:53.893] 1. sequential: 1573s [00:52:53.893] - args: function (..., envir = parent.frame()) 1573s [00:52:53.893] - tweaked: FALSE 1573s [00:52:53.893] - call: NULL 1573s [00:52:53.894] plan(): nbrOfWorkers() = 1 1573s [00:52:53.895] plan(): Setting new future strategy stack: 1573s [00:52:53.895] List of future strategies: 1573s [00:52:53.895] 1. multicore: 1573s [00:52:53.895] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1573s [00:52:53.895] - tweaked: FALSE 1573s [00:52:53.895] - call: plan(strategy) 1573s [00:52:53.899] plan(): nbrOfWorkers() = 1 1573s [00:52:53.899] SequentialFuture started (and completed) 1573s [00:52:53.899] - Launch lazy future ... done 1573s [00:52:53.899] run() for ‘SequentialFuture’ ... done 1573s [00:52:53.900] Created future: 1573s [00:52:53.900] SequentialFuture: 1573s [00:52:53.900] Label: ‘future_sapply-1’ 1573s [00:52:53.900] Expression: 1573s [00:52:53.900] { 1573s [00:52:53.900] do.call(function(...) { 1573s [00:52:53.900] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1573s [00:52:53.900] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1573s [00:52:53.900] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1573s [00:52:53.900] on.exit(options(oopts), add = TRUE) 1573s [00:52:53.900] } 1573s [00:52:53.900] { 1573s [00:52:53.900] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1573s [00:52:53.900] ...future.X_jj <- ...future.elements_ii[[jj]] 1573s [00:52:53.900] ...future.FUN(...future.X_jj, ...) 1573s [00:52:53.900] }) 1573s [00:52:53.900] } 1573s [00:52:53.900] }, args = future.call.arguments) 1573s [00:52:53.900] } 1573s [00:52:53.900] Lazy evaluation: FALSE 1573s [00:52:53.900] Asynchronous evaluation: FALSE 1573s [00:52:53.900] Local evaluation: TRUE 1573s [00:52:53.900] Environment: R_GlobalEnv 1573s [00:52:53.900] Capture standard output: TRUE 1573s [00:52:53.900] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1573s [00:52:53.900] Globals: 5 objects totaling 0.99 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1573s [00:52:53.900] Packages: 1573s [00:52:53.900] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1573s [00:52:53.900] Resolved: TRUE 1573s [00:52:53.900] Value: 168 bytes of class ‘list’ 1573s [00:52:53.900] Early signaling: FALSE 1573s [00:52:53.900] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1573s [00:52:53.900] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1573s [00:52:53.902] Chunk #1 of 1 ... DONE 1573s [00:52:53.903] Launching 1 futures (chunks) ... DONE 1573s [00:52:53.903] Resolving 1 futures (chunks) ... 1573s [00:52:53.903] resolve() on list ... 1573s [00:52:53.903] recursive: 0 1573s [00:52:53.904] length: 1 1573s [00:52:53.904] 1573s [00:52:53.904] resolved() for ‘SequentialFuture’ ... 1573s [00:52:53.904] - state: ‘finished’ 1573s [00:52:53.905] - run: TRUE 1573s [00:52:53.905] - result: ‘FutureResult’ 1573s [00:52:53.905] resolved() for ‘SequentialFuture’ ... done 1573s [00:52:53.905] Future #1 1573s [00:52:53.905] signalConditionsASAP(SequentialFuture, pos=1) ... 1573s [00:52:53.906] - nx: 1 1573s [00:52:53.906] - relay: TRUE 1573s [00:52:53.906] - stdout: TRUE 1573s [00:52:53.906] - signal: TRUE 1573s [00:52:53.907] - resignal: FALSE 1573s [00:52:53.907] - force: TRUE 1573s [00:52:53.907] - relayed: [n=1] FALSE 1573s [00:52:53.907] - queued futures: [n=1] FALSE 1573s [00:52:53.907] - until=1 1573s [00:52:53.907] - relaying element #1 1573s [00:52:53.908] - relayed: [n=1] TRUE 1573s [00:52:53.908] - queued futures: [n=1] TRUE 1573s [00:52:53.908] signalConditionsASAP(SequentialFuture, pos=1) ... done 1573s [00:52:53.909] length: 0 (resolved future 1) 1573s [00:52:53.909] Relaying remaining futures 1573s [00:52:53.909] signalConditionsASAP(NULL, pos=0) ... 1573s [00:52:53.910] - nx: 1 1573s [00:52:53.910] - relay: TRUE 1573s [00:52:53.910] - stdout: TRUE 1573s [00:52:53.910] - signal: TRUE 1573s [00:52:53.910] - resignal: FALSE 1573s [00:52:53.911] - force: TRUE 1573s [00:52:53.911] - relayed: [n=1] TRUE 1573s [00:52:53.911] - queued futures: [n=1] TRUE 1573s - flush all 1573s [00:52:53.912] - relayed: [n=1] TRUE 1573s [00:52:53.912] - queued futures: [n=1] TRUE 1573s [00:52:53.912] signalConditionsASAP(NULL, pos=0) ... done 1573s [00:52:53.913] resolve() on list ... DONE 1573s [00:52:53.913] - Number of value chunks collected: 1 1573s [00:52:53.913] Resolving 1 futures (chunks) ... DONE 1573s [00:52:53.913] Reducing values from 1 chunks ... 1573s [00:52:53.914] - Number of values collected after concatenation: 3 1573s [00:52:53.914] - Number of values expected: 3 1573s [00:52:53.914] Reducing values from 1 chunks ... DONE 1573s [00:52:53.914] future_lapply() ... DONE 1573s List of 2 1573s $ y0: Named num [1:3] 1 2 3 1573s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1573s $ y1: Named num [1:3] 1 2 3 1573s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1573s [00:52:53.919] future_lapply() ... 1573s [00:52:53.928] Number of chunks: 1 1573s [00:52:53.928] getGlobalsAndPackagesXApply() ... 1573s [00:52:53.928] - future.globals: TRUE 1573s [00:52:53.928] getGlobalsAndPackages() ... 1573s [00:52:53.929] Searching for globals... 1573s [00:52:53.930] - globals found: [2] ‘FUN’, ‘UseMethod’ 1573s [00:52:53.931] Searching for globals ... DONE 1573s [00:52:53.931] Resolving globals: FALSE 1573s [00:52:53.931] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1573s [00:52:53.932] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1573s [00:52:53.932] - globals: [1] ‘FUN’ 1573s [00:52:53.932] 1573s [00:52:53.933] getGlobalsAndPackages() ... DONE 1573s [00:52:53.933] - globals found/used: [n=1] ‘FUN’ 1573s [00:52:53.933] - needed namespaces: [n=0] 1573s [00:52:53.933] Finding globals ... DONE 1573s [00:52:53.933] - use_args: TRUE 1573s [00:52:53.934] - Getting '...' globals ... 1573s [00:52:53.934] resolve() on list ... 1573s [00:52:53.934] recursive: 0 1573s [00:52:53.934] length: 1 1573s [00:52:53.935] elements: ‘...’ 1573s [00:52:53.935] length: 0 (resolved future 1) 1573s [00:52:53.935] resolve() on list ... DONE 1573s [00:52:53.935] - '...' content: [n=0] 1573s [00:52:53.935] List of 1 1573s [00:52:53.935] $ ...: list() 1573s [00:52:53.935] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1573s [00:52:53.935] - attr(*, "where")=List of 1 1573s [00:52:53.935] ..$ ...: 1573s [00:52:53.935] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1573s [00:52:53.935] - attr(*, "resolved")= logi TRUE 1573s [00:52:53.935] - attr(*, "total_size")= num NA 1573s [00:52:53.941] - Getting '...' globals ... DONE 1573s [00:52:53.941] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1573s [00:52:53.941] List of 2 1573s [00:52:53.941] $ ...future.FUN:function (x, ...) 1573s [00:52:53.941] $ ... : list() 1573s [00:52:53.941] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1573s [00:52:53.941] - attr(*, "where")=List of 2 1573s [00:52:53.941] ..$ ...future.FUN: 1573s [00:52:53.941] ..$ ... : 1573s [00:52:53.941] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1573s [00:52:53.941] - attr(*, "resolved")= logi FALSE 1573s [00:52:53.941] - attr(*, "total_size")= num 1248 1573s [00:52:53.946] Packages to be attached in all futures: [n=0] 1573s [00:52:53.946] getGlobalsAndPackagesXApply() ... DONE 1573s [00:52:53.947] Number of futures (= number of chunks): 1 1573s [00:52:53.947] Launching 1 futures (chunks) ... 1573s [00:52:53.947] Chunk #1 of 1 ... 1573s [00:52:53.947] - Finding globals in 'X' for chunk #1 ... 1573s [00:52:53.948] getGlobalsAndPackages() ... 1573s [00:52:53.948] Searching for globals... 1573s [00:52:53.948] 1573s [00:52:53.949] Searching for globals ... DONE 1573s [00:52:53.949] - globals: [0] 1573s [00:52:53.949] getGlobalsAndPackages() ... DONE 1573s [00:52:53.949] + additional globals found: [n=0] 1573s [00:52:53.949] + additional namespaces needed: [n=0] 1573s [00:52:53.950] - Finding globals in 'X' for chunk #1 ... DONE 1573s [00:52:53.950] - seeds: 1573s [00:52:53.950] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1573s [00:52:53.950] getGlobalsAndPackages() ... 1573s [00:52:53.951] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1573s [00:52:53.951] Resolving globals: FALSE 1573s [00:52:53.951] Tweak future expression to call with '...' arguments ... 1573s [00:52:53.951] { 1573s [00:52:53.951] do.call(function(...) { 1573s [00:52:53.951] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1573s [00:52:53.951] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1573s [00:52:53.951] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1573s [00:52:53.951] on.exit(options(oopts), add = TRUE) 1573s [00:52:53.951] } 1573s [00:52:53.951] { 1573s [00:52:53.951] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1573s [00:52:53.951] ...future.X_jj <- ...future.elements_ii[[jj]] 1573s [00:52:53.951] ...future.FUN(...future.X_jj, ...) 1573s [00:52:53.951] }) 1573s [00:52:53.951] } 1573s [00:52:53.951] }, args = future.call.arguments) 1573s [00:52:53.951] } 1573s [00:52:53.952] Tweak future expression to call with '...' arguments ... DONE 1573s [00:52:53.952] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1573s [00:52:53.953] 1573s [00:52:53.953] getGlobalsAndPackages() ... DONE 1573s [00:52:53.953] run() for ‘Future’ ... 1573s [00:52:53.954] - state: ‘created’ 1573s [00:52:53.954] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1573s [00:52:53.958] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1573s [00:52:53.958] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1573s [00:52:53.959] - Field: ‘label’ 1573s [00:52:53.959] - Field: ‘local’ 1573s [00:52:53.959] - Field: ‘owner’ 1573s [00:52:53.959] - Field: ‘envir’ 1573s [00:52:53.959] - Field: ‘packages’ 1573s [00:52:53.959] - Field: ‘gc’ 1573s [00:52:53.960] - Field: ‘conditions’ 1574s [00:52:53.960] - Field: ‘expr’ 1574s [00:52:53.960] - Field: ‘uuid’ 1574s [00:52:53.961] - Field: ‘seed’ 1574s [00:52:53.961] - Field: ‘version’ 1574s [00:52:53.961] - Field: ‘result’ 1574s [00:52:53.961] - Field: ‘asynchronous’ 1574s [00:52:53.961] - Field: ‘calls’ 1574s [00:52:53.961] - Field: ‘globals’ 1574s [00:52:53.961] - Field: ‘stdout’ 1574s [00:52:53.962] - Field: ‘earlySignal’ 1574s [00:52:53.962] - Field: ‘lazy’ 1574s [00:52:53.962] - Field: ‘state’ 1574s [00:52:53.962] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1574s [00:52:53.963] - Launch lazy future ... 1574s [00:52:53.963] Packages needed by the future expression (n = 0): 1574s [00:52:53.963] Packages needed by future strategies (n = 0): 1574s [00:52:53.964] { 1574s [00:52:53.964] { 1574s [00:52:53.964] { 1574s [00:52:53.964] ...future.startTime <- base::Sys.time() 1574s [00:52:53.964] { 1574s [00:52:53.964] { 1574s [00:52:53.964] { 1574s [00:52:53.964] base::local({ 1574s [00:52:53.964] has_future <- base::requireNamespace("future", 1574s [00:52:53.964] quietly = TRUE) 1574s [00:52:53.964] if (has_future) { 1574s [00:52:53.964] ns <- base::getNamespace("future") 1574s [00:52:53.964] version <- ns[[".package"]][["version"]] 1574s [00:52:53.964] if (is.null(version)) 1574s [00:52:53.964] version <- utils::packageVersion("future") 1574s [00:52:53.964] } 1574s [00:52:53.964] else { 1574s [00:52:53.964] version <- NULL 1574s [00:52:53.964] } 1574s [00:52:53.964] if (!has_future || version < "1.8.0") { 1574s [00:52:53.964] info <- base::c(r_version = base::gsub("R version ", 1574s [00:52:53.964] "", base::R.version$version.string), 1574s [00:52:53.964] platform = base::sprintf("%s (%s-bit)", 1574s [00:52:53.964] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1574s [00:52:53.964] os = base::paste(base::Sys.info()[base::c("sysname", 1574s [00:52:53.964] "release", "version")], collapse = " "), 1574s [00:52:53.964] hostname = base::Sys.info()[["nodename"]]) 1574s [00:52:53.964] info <- base::sprintf("%s: %s", base::names(info), 1574s [00:52:53.964] info) 1574s [00:52:53.964] info <- base::paste(info, collapse = "; ") 1574s [00:52:53.964] if (!has_future) { 1574s [00:52:53.964] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1574s [00:52:53.964] info) 1574s [00:52:53.964] } 1574s [00:52:53.964] else { 1574s [00:52:53.964] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1574s [00:52:53.964] info, version) 1574s [00:52:53.964] } 1574s [00:52:53.964] base::stop(msg) 1574s [00:52:53.964] } 1574s [00:52:53.964] }) 1574s [00:52:53.964] } 1574s [00:52:53.964] options(future.plan = NULL) 1574s [00:52:53.964] Sys.unsetenv("R_FUTURE_PLAN") 1574s [00:52:53.964] future::plan("default", .cleanup = FALSE, .init = FALSE) 1574s [00:52:53.964] } 1574s [00:52:53.964] ...future.workdir <- getwd() 1574s [00:52:53.964] } 1574s [00:52:53.964] ...future.oldOptions <- base::as.list(base::.Options) 1574s [00:52:53.964] ...future.oldEnvVars <- base::Sys.getenv() 1574s [00:52:53.964] } 1574s [00:52:53.964] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1574s [00:52:53.964] future.globals.maxSize = NULL, future.globals.method = NULL, 1574s [00:52:53.964] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1574s [00:52:53.964] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1574s [00:52:53.964] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1574s [00:52:53.964] future.stdout.windows.reencode = NULL, width = 80L) 1574s [00:52:53.964] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1574s [00:52:53.964] base::names(...future.oldOptions)) 1574s [00:52:53.964] } 1574s [00:52:53.964] if (FALSE) { 1574s [00:52:53.964] } 1574s [00:52:53.964] else { 1574s [00:52:53.964] if (TRUE) { 1574s [00:52:53.964] ...future.stdout <- base::rawConnection(base::raw(0L), 1574s [00:52:53.964] open = "w") 1574s [00:52:53.964] } 1574s [00:52:53.964] else { 1574s [00:52:53.964] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1574s [00:52:53.964] windows = "NUL", "/dev/null"), open = "w") 1574s [00:52:53.964] } 1574s [00:52:53.964] base::sink(...future.stdout, type = "output", split = FALSE) 1574s [00:52:53.964] base::on.exit(if (!base::is.null(...future.stdout)) { 1574s [00:52:53.964] base::sink(type = "output", split = FALSE) 1574s [00:52:53.964] base::close(...future.stdout) 1574s [00:52:53.964] }, add = TRUE) 1574s [00:52:53.964] } 1574s [00:52:53.964] ...future.frame <- base::sys.nframe() 1574s [00:52:53.964] ...future.conditions <- base::list() 1574s [00:52:53.964] ...future.rng <- base::globalenv()$.Random.seed 1574s [00:52:53.964] if (FALSE) { 1574s [00:52:53.964] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1574s [00:52:53.964] "...future.value", "...future.globalenv.names", ".Random.seed") 1574s [00:52:53.964] } 1574s [00:52:53.964] ...future.result <- base::tryCatch({ 1574s [00:52:53.964] base::withCallingHandlers({ 1574s [00:52:53.964] ...future.value <- base::withVisible(base::local({ 1574s [00:52:53.964] do.call(function(...) { 1574s [00:52:53.964] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1574s [00:52:53.964] if (!identical(...future.globals.maxSize.org, 1574s [00:52:53.964] ...future.globals.maxSize)) { 1574s [00:52:53.964] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1574s [00:52:53.964] on.exit(options(oopts), add = TRUE) 1574s [00:52:53.964] } 1574s [00:52:53.964] { 1574s [00:52:53.964] lapply(seq_along(...future.elements_ii), 1574s [00:52:53.964] FUN = function(jj) { 1574s [00:52:53.964] ...future.X_jj <- ...future.elements_ii[[jj]] 1574s [00:52:53.964] ...future.FUN(...future.X_jj, ...) 1574s [00:52:53.964] }) 1574s [00:52:53.964] } 1574s [00:52:53.964] }, args = future.call.arguments) 1574s [00:52:53.964] })) 1574s [00:52:53.964] future::FutureResult(value = ...future.value$value, 1574s [00:52:53.964] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1574s [00:52:53.964] ...future.rng), globalenv = if (FALSE) 1574s [00:52:53.964] list(added = base::setdiff(base::names(base::.GlobalEnv), 1574s [00:52:53.964] ...future.globalenv.names)) 1574s [00:52:53.964] else NULL, started = ...future.startTime, version = "1.8") 1574s [00:52:53.964] }, condition = base::local({ 1574s [00:52:53.964] c <- base::c 1574s [00:52:53.964] inherits <- base::inherits 1574s [00:52:53.964] invokeRestart <- base::invokeRestart 1574s [00:52:53.964] length <- base::length 1574s [00:52:53.964] list <- base::list 1574s [00:52:53.964] seq.int <- base::seq.int 1574s [00:52:53.964] signalCondition <- base::signalCondition 1574s [00:52:53.964] sys.calls <- base::sys.calls 1574s [00:52:53.964] `[[` <- base::`[[` 1574s [00:52:53.964] `+` <- base::`+` 1574s [00:52:53.964] `<<-` <- base::`<<-` 1574s [00:52:53.964] sysCalls <- function(calls = sys.calls(), from = 1L) { 1574s [00:52:53.964] calls[seq.int(from = from + 12L, to = length(calls) - 1574s [00:52:53.964] 3L)] 1574s [00:52:53.964] } 1574s [00:52:53.964] function(cond) { 1574s [00:52:53.964] is_error <- inherits(cond, "error") 1574s [00:52:53.964] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1574s [00:52:53.964] NULL) 1574s [00:52:53.964] if (is_error) { 1574s [00:52:53.964] sessionInformation <- function() { 1574s [00:52:53.964] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1574s [00:52:53.964] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1574s [00:52:53.964] search = base::search(), system = base::Sys.info()) 1574s [00:52:53.964] } 1574s [00:52:53.964] ...future.conditions[[length(...future.conditions) + 1574s [00:52:53.964] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1574s [00:52:53.964] cond$call), session = sessionInformation(), 1574s [00:52:53.964] timestamp = base::Sys.time(), signaled = 0L) 1574s [00:52:53.964] signalCondition(cond) 1574s [00:52:53.964] } 1574s [00:52:53.964] else if (!ignore && TRUE && inherits(cond, c("condition", 1574s [00:52:53.964] "immediateCondition"))) { 1574s [00:52:53.964] signal <- TRUE && inherits(cond, "immediateCondition") 1574s [00:52:53.964] ...future.conditions[[length(...future.conditions) + 1574s [00:52:53.964] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1574s [00:52:53.964] if (TRUE && !signal) { 1574s [00:52:53.964] muffleCondition <- function (cond, pattern = "^muffle") 1574s [00:52:53.964] { 1574s [00:52:53.964] inherits <- base::inherits 1574s [00:52:53.964] invokeRestart <- base::invokeRestart 1574s [00:52:53.964] is.null <- base::is.null 1574s [00:52:53.964] muffled <- FALSE 1574s [00:52:53.964] if (inherits(cond, "message")) { 1574s [00:52:53.964] muffled <- grepl(pattern, "muffleMessage") 1574s [00:52:53.964] if (muffled) 1574s [00:52:53.964] invokeRestart("muffleMessage") 1574s [00:52:53.964] } 1574s [00:52:53.964] else if (inherits(cond, "warning")) { 1574s [00:52:53.964] muffled <- grepl(pattern, "muffleWarning") 1574s [00:52:53.964] if (muffled) 1574s [00:52:53.964] invokeRestart("muffleWarning") 1574s [00:52:53.964] } 1574s [00:52:53.964] else if (inherits(cond, "condition")) { 1574s [00:52:53.964] if (!is.null(pattern)) { 1574s [00:52:53.964] computeRestarts <- base::computeRestarts 1574s [00:52:53.964] grepl <- base::grepl 1574s [00:52:53.964] restarts <- computeRestarts(cond) 1574s [00:52:53.964] for (restart in restarts) { 1574s [00:52:53.964] name <- restart$name 1574s [00:52:53.964] if (is.null(name)) 1574s [00:52:53.964] next 1574s [00:52:53.964] if (!grepl(pattern, name)) 1574s [00:52:53.964] next 1574s [00:52:53.964] invokeRestart(restart) 1574s [00:52:53.964] muffled <- TRUE 1574s [00:52:53.964] break 1574s [00:52:53.964] } 1574s [00:52:53.964] } 1574s [00:52:53.964] } 1574s [00:52:53.964] invisible(muffled) 1574s [00:52:53.964] } 1574s [00:52:53.964] muffleCondition(cond, pattern = "^muffle") 1574s [00:52:53.964] } 1574s [00:52:53.964] } 1574s [00:52:53.964] else { 1574s [00:52:53.964] if (TRUE) { 1574s [00:52:53.964] muffleCondition <- function (cond, pattern = "^muffle") 1574s [00:52:53.964] { 1574s [00:52:53.964] inherits <- base::inherits 1574s [00:52:53.964] invokeRestart <- base::invokeRestart 1574s [00:52:53.964] is.null <- base::is.null 1574s [00:52:53.964] muffled <- FALSE 1574s [00:52:53.964] if (inherits(cond, "message")) { 1574s [00:52:53.964] muffled <- grepl(pattern, "muffleMessage") 1574s [00:52:53.964] if (muffled) 1574s [00:52:53.964] invokeRestart("muffleMessage") 1574s [00:52:53.964] } 1574s [00:52:53.964] else if (inherits(cond, "warning")) { 1574s [00:52:53.964] muffled <- grepl(pattern, "muffleWarning") 1574s [00:52:53.964] if (muffled) 1574s [00:52:53.964] invokeRestart("muffleWarning") 1574s [00:52:53.964] } 1574s [00:52:53.964] else if (inherits(cond, "condition")) { 1574s [00:52:53.964] if (!is.null(pattern)) { 1574s [00:52:53.964] computeRestarts <- base::computeRestarts 1574s [00:52:53.964] grepl <- base::grepl 1574s [00:52:53.964] restarts <- computeRestarts(cond) 1574s [00:52:53.964] for (restart in restarts) { 1574s [00:52:53.964] name <- restart$name 1574s [00:52:53.964] if (is.null(name)) 1574s [00:52:53.964] next 1574s [00:52:53.964] if (!grepl(pattern, name)) 1574s [00:52:53.964] next 1574s [00:52:53.964] invokeRestart(restart) 1574s [00:52:53.964] muffled <- TRUE 1574s [00:52:53.964] break 1574s [00:52:53.964] } 1574s [00:52:53.964] } 1574s [00:52:53.964] } 1574s [00:52:53.964] invisible(muffled) 1574s [00:52:53.964] } 1574s [00:52:53.964] muffleCondition(cond, pattern = "^muffle") 1574s [00:52:53.964] } 1574s [00:52:53.964] } 1574s [00:52:53.964] } 1574s [00:52:53.964] })) 1574s [00:52:53.964] }, error = function(ex) { 1574s [00:52:53.964] base::structure(base::list(value = NULL, visible = NULL, 1574s [00:52:53.964] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1574s [00:52:53.964] ...future.rng), started = ...future.startTime, 1574s [00:52:53.964] finished = Sys.time(), session_uuid = NA_character_, 1574s [00:52:53.964] version = "1.8"), class = "FutureResult") 1574s [00:52:53.964] }, finally = { 1574s [00:52:53.964] if (!identical(...future.workdir, getwd())) 1574s [00:52:53.964] setwd(...future.workdir) 1574s [00:52:53.964] { 1574s [00:52:53.964] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1574s [00:52:53.964] ...future.oldOptions$nwarnings <- NULL 1574s [00:52:53.964] } 1574s [00:52:53.964] base::options(...future.oldOptions) 1574s [00:52:53.964] if (.Platform$OS.type == "windows") { 1574s [00:52:53.964] old_names <- names(...future.oldEnvVars) 1574s [00:52:53.964] envs <- base::Sys.getenv() 1574s [00:52:53.964] names <- names(envs) 1574s [00:52:53.964] common <- intersect(names, old_names) 1574s [00:52:53.964] added <- setdiff(names, old_names) 1574s [00:52:53.964] removed <- setdiff(old_names, names) 1574s [00:52:53.964] changed <- common[...future.oldEnvVars[common] != 1574s [00:52:53.964] envs[common]] 1574s [00:52:53.964] NAMES <- toupper(changed) 1574s [00:52:53.964] args <- list() 1574s [00:52:53.964] for (kk in seq_along(NAMES)) { 1574s [00:52:53.964] name <- changed[[kk]] 1574s [00:52:53.964] NAME <- NAMES[[kk]] 1574s [00:52:53.964] if (name != NAME && is.element(NAME, old_names)) 1574s [00:52:53.964] next 1574s [00:52:53.964] args[[name]] <- ...future.oldEnvVars[[name]] 1574s [00:52:53.964] } 1574s [00:52:53.964] NAMES <- toupper(added) 1574s [00:52:53.964] for (kk in seq_along(NAMES)) { 1574s [00:52:53.964] name <- added[[kk]] 1574s [00:52:53.964] NAME <- NAMES[[kk]] 1574s [00:52:53.964] if (name != NAME && is.element(NAME, old_names)) 1574s [00:52:53.964] next 1574s [00:52:53.964] args[[name]] <- "" 1574s [00:52:53.964] } 1574s [00:52:53.964] NAMES <- toupper(removed) 1574s [00:52:53.964] for (kk in seq_along(NAMES)) { 1574s [00:52:53.964] name <- removed[[kk]] 1574s [00:52:53.964] NAME <- NAMES[[kk]] 1574s [00:52:53.964] if (name != NAME && is.element(NAME, old_names)) 1574s [00:52:53.964] next 1574s [00:52:53.964] args[[name]] <- ...future.oldEnvVars[[name]] 1574s [00:52:53.964] } 1574s [00:52:53.964] if (length(args) > 0) 1574s [00:52:53.964] base::do.call(base::Sys.setenv, args = args) 1574s [00:52:53.964] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1574s [00:52:53.964] } 1574s [00:52:53.964] else { 1574s [00:52:53.964] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1574s [00:52:53.964] } 1574s [00:52:53.964] { 1574s [00:52:53.964] if (base::length(...future.futureOptionsAdded) > 1574s [00:52:53.964] 0L) { 1574s [00:52:53.964] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1574s [00:52:53.964] base::names(opts) <- ...future.futureOptionsAdded 1574s [00:52:53.964] base::options(opts) 1574s [00:52:53.964] } 1574s [00:52:53.964] { 1574s [00:52:53.964] { 1574s [00:52:53.964] NULL 1574s [00:52:53.964] RNGkind("Mersenne-Twister") 1574s [00:52:53.964] base::rm(list = ".Random.seed", envir = base::globalenv(), 1574s [00:52:53.964] inherits = FALSE) 1574s [00:52:53.964] } 1574s [00:52:53.964] options(future.plan = NULL) 1574s [00:52:53.964] if (is.na(NA_character_)) 1574s [00:52:53.964] Sys.unsetenv("R_FUTURE_PLAN") 1574s [00:52:53.964] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1574s [00:52:53.964] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1574s [00:52:53.964] envir = parent.frame()) 1574s [00:52:53.964] { 1574s [00:52:53.964] default_workers <- missing(workers) 1574s [00:52:53.964] if (is.function(workers)) 1574s [00:52:53.964] workers <- workers() 1574s [00:52:53.964] workers <- structure(as.integer(workers), 1574s [00:52:53.964] class = class(workers)) 1574s [00:52:53.964] stop_if_not(is.finite(workers), workers >= 1574s [00:52:53.964] 1L) 1574s [00:52:53.964] if ((workers == 1L && !inherits(workers, 1574s [00:52:53.964] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1574s [00:52:53.964] if (default_workers) 1574s [00:52:53.964] supportsMulticore(warn = TRUE) 1574s [00:52:53.964] return(sequential(..., envir = envir)) 1574s [00:52:53.964] } 1574s [00:52:53.964] oopts <- options(mc.cores = workers) 1574s [00:52:53.964] on.exit(options(oopts)) 1574s [00:52:53.964] future <- MulticoreFuture(..., workers = workers, 1574s [00:52:53.964] envir = envir) 1574s [00:52:53.964] if (!future$lazy) 1574s [00:52:53.964] future <- run(future) 1574s [00:52:53.964] invisible(future) 1574s [00:52:53.964] }), .cleanup = FALSE, .init = FALSE) 1574s [00:52:53.964] } 1574s [00:52:53.964] } 1574s [00:52:53.964] } 1574s [00:52:53.964] }) 1574s [00:52:53.964] if (TRUE) { 1574s [00:52:53.964] base::sink(type = "output", split = FALSE) 1574s [00:52:53.964] if (TRUE) { 1574s [00:52:53.964] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1574s [00:52:53.964] } 1574s [00:52:53.964] else { 1574s [00:52:53.964] ...future.result["stdout"] <- base::list(NULL) 1574s [00:52:53.964] } 1574s [00:52:53.964] base::close(...future.stdout) 1574s [00:52:53.964] ...future.stdout <- NULL 1574s [00:52:53.964] } 1574s [00:52:53.964] ...future.result$conditions <- ...future.conditions 1574s [00:52:53.964] ...future.result$finished <- base::Sys.time() 1574s [00:52:53.964] ...future.result 1574s [00:52:53.964] } 1574s [00:52:53.968] assign_globals() ... 1574s [00:52:53.968] List of 5 1574s [00:52:53.968] $ ...future.FUN :function (x, ...) 1574s [00:52:53.968] $ future.call.arguments : list() 1574s [00:52:53.968] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1574s [00:52:53.968] $ ...future.elements_ii :List of 3 1574s [00:52:53.968] ..$ a: num 1 1574s [00:52:53.968] ..$ b: num 2 1574s [00:52:53.968] ..$ c: num 3 1574s [00:52:53.968] $ ...future.seeds_ii : NULL 1574s [00:52:53.968] $ ...future.globals.maxSize: NULL 1574s [00:52:53.968] - attr(*, "where")=List of 5 1574s [00:52:53.968] ..$ ...future.FUN : 1574s [00:52:53.968] ..$ future.call.arguments : 1574s [00:52:53.968] ..$ ...future.elements_ii : 1574s [00:52:53.968] ..$ ...future.seeds_ii : 1574s [00:52:53.968] ..$ ...future.globals.maxSize: 1574s [00:52:53.968] - attr(*, "resolved")= logi FALSE 1574s [00:52:53.968] - attr(*, "total_size")= num 1248 1574s [00:52:53.968] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1574s [00:52:53.968] - attr(*, "already-done")= logi TRUE 1574s [00:52:53.978] - copied ‘...future.FUN’ to environment 1574s [00:52:53.978] - copied ‘future.call.arguments’ to environment 1574s [00:52:53.979] - copied ‘...future.elements_ii’ to environment 1574s [00:52:53.979] - copied ‘...future.seeds_ii’ to environment 1574s [00:52:53.979] - copied ‘...future.globals.maxSize’ to environment 1574s [00:52:53.979] assign_globals() ... done 1574s [00:52:53.980] plan(): Setting new future strategy stack: 1574s [00:52:53.981] List of future strategies: 1574s [00:52:53.981] 1. sequential: 1574s [00:52:53.981] - args: function (..., envir = parent.frame()) 1574s [00:52:53.981] - tweaked: FALSE 1574s [00:52:53.981] - call: NULL 1574s [00:52:53.982] plan(): nbrOfWorkers() = 1 1574s [00:52:53.984] plan(): Setting new future strategy stack: 1574s [00:52:53.984] List of future strategies: 1574s [00:52:53.984] 1. multicore: 1574s [00:52:53.984] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1574s [00:52:53.984] - tweaked: FALSE 1574s [00:52:53.984] - call: plan(strategy) 1574s [00:52:53.989] plan(): nbrOfWorkers() = 1 1574s [00:52:53.990] SequentialFuture started (and completed) 1574s [00:52:53.990] - Launch lazy future ... done 1574s [00:52:53.991] run() for ‘SequentialFuture’ ... done 1574s [00:52:53.991] Created future: 1574s [00:52:53.991] SequentialFuture: 1574s [00:52:53.991] Label: ‘future_sapply-1’ 1574s [00:52:53.991] Expression: 1574s [00:52:53.991] { 1574s [00:52:53.991] do.call(function(...) { 1574s [00:52:53.991] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1574s [00:52:53.991] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1574s [00:52:53.991] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1574s [00:52:53.991] on.exit(options(oopts), add = TRUE) 1574s [00:52:53.991] } 1574s [00:52:53.991] { 1574s [00:52:53.991] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1574s [00:52:53.991] ...future.X_jj <- ...future.elements_ii[[jj]] 1574s [00:52:53.991] ...future.FUN(...future.X_jj, ...) 1574s [00:52:53.991] }) 1574s [00:52:53.991] } 1574s [00:52:53.991] }, args = future.call.arguments) 1574s [00:52:53.991] } 1574s [00:52:53.991] Lazy evaluation: FALSE 1574s [00:52:53.991] Asynchronous evaluation: FALSE 1574s [00:52:53.991] Local evaluation: TRUE 1574s [00:52:53.991] Environment: R_GlobalEnv 1574s [00:52:53.991] Capture standard output: TRUE 1574s [00:52:53.991] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1574s [00:52:53.991] Globals: 5 objects totaling 1.38 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1574s [00:52:53.991] Packages: 1574s [00:52:53.991] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1574s [00:52:53.991] Resolved: TRUE 1574s [00:52:53.991] Value: 672 bytes of class ‘list’ 1574s [00:52:53.991] Early signaling: FALSE 1574s [00:52:53.991] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1574s [00:52:53.991] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1574s [00:52:53.994] Chunk #1 of 1 ... DONE 1574s [00:52:53.994] Launching 1 futures (chunks) ... DONE 1574s [00:52:53.994] Resolving 1 futures (chunks) ... 1574s [00:52:53.995] resolve() on list ... 1574s [00:52:53.995] recursive: 0 1574s [00:52:53.995] length: 1 1574s [00:52:53.995] 1574s [00:52:53.996] resolved() for ‘SequentialFuture’ ... 1574s [00:52:53.996] - state: ‘finished’ 1574s [00:52:53.996] - run: TRUE 1574s [00:52:53.996] - result: ‘FutureResult’ 1574s [00:52:53.997] resolved() for ‘SequentialFuture’ ... done 1574s [00:52:53.997] Future #1 1574s [00:52:53.997] signalConditionsASAP(SequentialFuture, pos=1) ... 1574s [00:52:53.998] - nx: 1 1574s [00:52:53.998] - relay: TRUE 1574s [00:52:53.998] - stdout: TRUE 1574s [00:52:53.998] - signal: TRUE 1574s [00:52:53.998] - resignal: FALSE 1574s [00:52:53.999] - force: TRUE 1574s [00:52:53.999] - relayed: [n=1] FALSE 1574s [00:52:53.999] - queued futures: [n=1] FALSE 1574s [00:52:53.999] - until=1 1574s [00:52:53.999] - relaying element #1 1574s [00:52:54.000] - relayed: [n=1] TRUE 1574s [00:52:54.000] - queued futures: [n=1] TRUE 1574s [00:52:54.000] signalConditionsASAP(SequentialFuture, pos=1) ... done 1574s [00:52:54.001] length: 0 (resolved future 1) 1574s [00:52:54.001] Relaying remaining futures 1574s [00:52:54.001] signalConditionsASAP(NULL, pos=0) ... 1574s [00:52:54.002] - nx: 1 1574s [00:52:54.002] - relay: TRUE 1574s [00:52:54.002] - stdout: TRUE 1574s [00:52:54.002] - signal: TRUE 1574s [00:52:54.002] - resignal: FALSE 1574s [00:52:54.003] - force: TRUE 1574s [00:52:54.003] - relayed: [n=1] TRUE 1574s [00:52:54.003] - queued futures: [n=1] TRUE 1574s - flush all 1574s [00:52:54.004] - relayed: [n=1] TRUE 1574s [00:52:54.004] - queued futures: [n=1] TRUE 1574s [00:52:54.004] signalConditionsASAP(NULL, pos=0) ... done 1574s [00:52:54.005] resolve() on list ... DONE 1574s [00:52:54.005] - Number of value chunks collected: 1 1574s [00:52:54.005] Resolving 1 futures (chunks) ... DONE 1574s [00:52:54.005] Reducing values from 1 chunks ... 1574s [00:52:54.006] - Number of values collected after concatenation: 3 1574s [00:52:54.006] - Number of values expected: 3 1574s [00:52:54.006] Reducing values from 1 chunks ... DONE 1574s [00:52:54.007] future_lapply() ... DONE 1574s List of 2 1574s $ y0: Named num [1:3] 1 2 3 1574s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1574s $ y1: Named num [1:3] 1 2 3 1574s ..- attr(*, "names")= chr [1:3] "a" "b" "c"[00:52:54.011] future_lapply() ... 1574s 1574s [00:52:54.019] Number of chunks: 1 1574s [00:52:54.019] getGlobalsAndPackagesXApply() ... 1574s [00:52:54.019] - future.globals: TRUE 1574s [00:52:54.019] getGlobalsAndPackages() ... 1574s [00:52:54.020] Searching for globals... 1574s [00:52:54.023] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1574s [00:52:54.024] Searching for globals ... DONE 1574s [00:52:54.025] Resolving globals: FALSE 1574s [00:52:54.026] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1574s [00:52:54.026] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1574s [00:52:54.026] - globals: [1] ‘FUN’ 1574s [00:52:54.027] 1574s [00:52:54.027] getGlobalsAndPackages() ... DONE 1574s [00:52:54.027] - globals found/used: [n=1] ‘FUN’ 1574s [00:52:54.027] - needed namespaces: [n=0] 1574s [00:52:54.027] Finding globals ... DONE 1574s [00:52:54.028] - use_args: TRUE 1574s [00:52:54.028] - Getting '...' globals ... 1574s [00:52:54.029] resolve() on list ... 1574s [00:52:54.029] recursive: 0 1574s [00:52:54.029] length: 1 1574s [00:52:54.030] elements: ‘...’ 1574s [00:52:54.030] length: 0 (resolved future 1) 1574s [00:52:54.030] resolve() on list ... DONE 1574s [00:52:54.031] - '...' content: [n=0] 1574s [00:52:54.031] List of 1 1574s [00:52:54.031] $ ...: list() 1574s [00:52:54.031] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1574s [00:52:54.031] - attr(*, "where")=List of 1 1574s [00:52:54.031] ..$ ...: 1574s [00:52:54.031] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1574s [00:52:54.031] - attr(*, "resolved")= logi TRUE 1574s [00:52:54.031] - attr(*, "total_size")= num NA 1574s [00:52:54.035] - Getting '...' globals ... DONE 1574s [00:52:54.035] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1574s [00:52:54.036] List of 2 1574s [00:52:54.036] $ ...future.FUN:function (x, y = 2 * 1:5) 1574s [00:52:54.036] $ ... : list() 1574s [00:52:54.036] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1574s [00:52:54.036] - attr(*, "where")=List of 2 1574s [00:52:54.036] ..$ ...future.FUN: 1574s [00:52:54.036] ..$ ... : 1574s [00:52:54.036] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1574s [00:52:54.036] - attr(*, "resolved")= logi FALSE 1574s [00:52:54.036] - attr(*, "total_size")= num 4728 1574s [00:52:54.041] Packages to be attached in all futures: [n=0] 1574s [00:52:54.041] getGlobalsAndPackagesXApply() ... DONE 1574s [00:52:54.042] Number of futures (= number of chunks): 1 1574s [00:52:54.042] Launching 1 futures (chunks) ... 1574s [00:52:54.042] Chunk #1 of 1 ... 1574s [00:52:54.043] - Finding globals in 'X' for chunk #1 ... 1574s [00:52:54.043] getGlobalsAndPackages() ... 1574s [00:52:54.043] Searching for globals... 1574s [00:52:54.044] 1574s [00:52:54.044] Searching for globals ... DONE 1574s [00:52:54.044] - globals: [0] 1574s [00:52:54.044] getGlobalsAndPackages() ... DONE 1574s [00:52:54.045] + additional globals found: [n=0] 1574s [00:52:54.045] + additional namespaces needed: [n=0] 1574s [00:52:54.045] - Finding globals in 'X' for chunk #1 ... DONE 1574s [00:52:54.045] - seeds: 1574s [00:52:54.045] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1574s [00:52:54.045] getGlobalsAndPackages() ... 1574s [00:52:54.046] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1574s [00:52:54.046] Resolving globals: FALSE 1574s [00:52:54.046] Tweak future expression to call with '...' arguments ... 1574s [00:52:54.046] { 1574s [00:52:54.046] do.call(function(...) { 1574s [00:52:54.046] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1574s [00:52:54.046] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1574s [00:52:54.046] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1574s [00:52:54.046] on.exit(options(oopts), add = TRUE) 1574s [00:52:54.046] } 1574s [00:52:54.046] { 1574s [00:52:54.046] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1574s [00:52:54.046] ...future.X_jj <- ...future.elements_ii[[jj]] 1574s [00:52:54.046] ...future.FUN(...future.X_jj, ...) 1574s [00:52:54.046] }) 1574s [00:52:54.046] } 1574s [00:52:54.046] }, args = future.call.arguments) 1574s [00:52:54.046] } 1574s [00:52:54.047] Tweak future expression to call with '...' arguments ... DONE 1574s [00:52:54.047] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1574s [00:52:54.048] 1574s [00:52:54.048] getGlobalsAndPackages() ... DONE 1574s [00:52:54.048] run() for ‘Future’ ... 1574s [00:52:54.049] - state: ‘created’ 1574s [00:52:54.049] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1574s [00:52:54.053] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1574s [00:52:54.053] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1574s [00:52:54.054] - Field: ‘label’ 1574s [00:52:54.054] - Field: ‘local’ 1574s [00:52:54.054] - Field: ‘owner’ 1574s [00:52:54.054] - Field: ‘envir’ 1574s [00:52:54.054] - Field: ‘packages’ 1574s [00:52:54.055] - Field: ‘gc’ 1574s [00:52:54.055] - Field: ‘conditions’ 1574s [00:52:54.056] - Field: ‘expr’ 1574s [00:52:54.056] - Field: ‘uuid’ 1574s [00:52:54.056] - Field: ‘seed’ 1574s [00:52:54.056] - Field: ‘version’ 1574s [00:52:54.056] - Field: ‘result’ 1574s [00:52:54.056] - Field: ‘asynchronous’ 1574s [00:52:54.057] - Field: ‘calls’ 1574s [00:52:54.057] - Field: ‘globals’ 1574s [00:52:54.057] - Field: ‘stdout’ 1574s [00:52:54.057] - Field: ‘earlySignal’ 1574s [00:52:54.059] - Field: ‘lazy’ 1574s [00:52:54.059] - Field: ‘state’ 1574s [00:52:54.059] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1574s [00:52:54.060] - Launch lazy future ... 1574s [00:52:54.060] Packages needed by the future expression (n = 0): 1574s [00:52:54.060] Packages needed by future strategies (n = 0): 1574s [00:52:54.061] { 1574s [00:52:54.061] { 1574s [00:52:54.061] { 1574s [00:52:54.061] ...future.startTime <- base::Sys.time() 1574s [00:52:54.061] { 1574s [00:52:54.061] { 1574s [00:52:54.061] { 1574s [00:52:54.061] base::local({ 1574s [00:52:54.061] has_future <- base::requireNamespace("future", 1574s [00:52:54.061] quietly = TRUE) 1574s [00:52:54.061] if (has_future) { 1574s [00:52:54.061] ns <- base::getNamespace("future") 1574s [00:52:54.061] version <- ns[[".package"]][["version"]] 1574s [00:52:54.061] if (is.null(version)) 1574s [00:52:54.061] version <- utils::packageVersion("future") 1574s [00:52:54.061] } 1574s [00:52:54.061] else { 1574s [00:52:54.061] version <- NULL 1574s [00:52:54.061] } 1574s [00:52:54.061] if (!has_future || version < "1.8.0") { 1574s [00:52:54.061] info <- base::c(r_version = base::gsub("R version ", 1574s [00:52:54.061] "", base::R.version$version.string), 1574s [00:52:54.061] platform = base::sprintf("%s (%s-bit)", 1574s [00:52:54.061] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1574s [00:52:54.061] os = base::paste(base::Sys.info()[base::c("sysname", 1574s [00:52:54.061] "release", "version")], collapse = " "), 1574s [00:52:54.061] hostname = base::Sys.info()[["nodename"]]) 1574s [00:52:54.061] info <- base::sprintf("%s: %s", base::names(info), 1574s [00:52:54.061] info) 1574s [00:52:54.061] info <- base::paste(info, collapse = "; ") 1574s [00:52:54.061] if (!has_future) { 1574s [00:52:54.061] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1574s [00:52:54.061] info) 1574s [00:52:54.061] } 1574s [00:52:54.061] else { 1574s [00:52:54.061] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1574s [00:52:54.061] info, version) 1574s [00:52:54.061] } 1574s [00:52:54.061] base::stop(msg) 1574s [00:52:54.061] } 1574s [00:52:54.061] }) 1574s [00:52:54.061] } 1574s [00:52:54.061] options(future.plan = NULL) 1574s [00:52:54.061] Sys.unsetenv("R_FUTURE_PLAN") 1574s [00:52:54.061] future::plan("default", .cleanup = FALSE, .init = FALSE) 1574s [00:52:54.061] } 1574s [00:52:54.061] ...future.workdir <- getwd() 1574s [00:52:54.061] } 1574s [00:52:54.061] ...future.oldOptions <- base::as.list(base::.Options) 1574s [00:52:54.061] ...future.oldEnvVars <- base::Sys.getenv() 1574s [00:52:54.061] } 1574s [00:52:54.061] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1574s [00:52:54.061] future.globals.maxSize = NULL, future.globals.method = NULL, 1574s [00:52:54.061] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1574s [00:52:54.061] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1574s [00:52:54.061] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1574s [00:52:54.061] future.stdout.windows.reencode = NULL, width = 80L) 1574s [00:52:54.061] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1574s [00:52:54.061] base::names(...future.oldOptions)) 1574s [00:52:54.061] } 1574s [00:52:54.061] if (FALSE) { 1574s [00:52:54.061] } 1574s [00:52:54.061] else { 1574s [00:52:54.061] if (TRUE) { 1574s [00:52:54.061] ...future.stdout <- base::rawConnection(base::raw(0L), 1574s [00:52:54.061] open = "w") 1574s [00:52:54.061] } 1574s [00:52:54.061] else { 1574s [00:52:54.061] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1574s [00:52:54.061] windows = "NUL", "/dev/null"), open = "w") 1574s [00:52:54.061] } 1574s [00:52:54.061] base::sink(...future.stdout, type = "output", split = FALSE) 1574s [00:52:54.061] base::on.exit(if (!base::is.null(...future.stdout)) { 1574s [00:52:54.061] base::sink(type = "output", split = FALSE) 1574s [00:52:54.061] base::close(...future.stdout) 1574s [00:52:54.061] }, add = TRUE) 1574s [00:52:54.061] } 1574s [00:52:54.061] ...future.frame <- base::sys.nframe() 1574s [00:52:54.061] ...future.conditions <- base::list() 1574s [00:52:54.061] ...future.rng <- base::globalenv()$.Random.seed 1574s [00:52:54.061] if (FALSE) { 1574s [00:52:54.061] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1574s [00:52:54.061] "...future.value", "...future.globalenv.names", ".Random.seed") 1574s [00:52:54.061] } 1574s [00:52:54.061] ...future.result <- base::tryCatch({ 1574s [00:52:54.061] base::withCallingHandlers({ 1574s [00:52:54.061] ...future.value <- base::withVisible(base::local({ 1574s [00:52:54.061] do.call(function(...) { 1574s [00:52:54.061] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1574s [00:52:54.061] if (!identical(...future.globals.maxSize.org, 1574s [00:52:54.061] ...future.globals.maxSize)) { 1574s [00:52:54.061] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1574s [00:52:54.061] on.exit(options(oopts), add = TRUE) 1574s [00:52:54.061] } 1574s [00:52:54.061] { 1574s [00:52:54.061] lapply(seq_along(...future.elements_ii), 1574s [00:52:54.061] FUN = function(jj) { 1574s [00:52:54.061] ...future.X_jj <- ...future.elements_ii[[jj]] 1574s [00:52:54.061] ...future.FUN(...future.X_jj, ...) 1574s [00:52:54.061] }) 1574s [00:52:54.061] } 1574s [00:52:54.061] }, args = future.call.arguments) 1574s [00:52:54.061] })) 1574s [00:52:54.061] future::FutureResult(value = ...future.value$value, 1574s [00:52:54.061] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1574s [00:52:54.061] ...future.rng), globalenv = if (FALSE) 1574s [00:52:54.061] list(added = base::setdiff(base::names(base::.GlobalEnv), 1574s [00:52:54.061] ...future.globalenv.names)) 1574s [00:52:54.061] else NULL, started = ...future.startTime, version = "1.8") 1574s [00:52:54.061] }, condition = base::local({ 1574s [00:52:54.061] c <- base::c 1574s [00:52:54.061] inherits <- base::inherits 1574s [00:52:54.061] invokeRestart <- base::invokeRestart 1574s [00:52:54.061] length <- base::length 1574s [00:52:54.061] list <- base::list 1574s [00:52:54.061] seq.int <- base::seq.int 1574s [00:52:54.061] signalCondition <- base::signalCondition 1574s [00:52:54.061] sys.calls <- base::sys.calls 1574s [00:52:54.061] `[[` <- base::`[[` 1574s [00:52:54.061] `+` <- base::`+` 1574s [00:52:54.061] `<<-` <- base::`<<-` 1574s [00:52:54.061] sysCalls <- function(calls = sys.calls(), from = 1L) { 1574s [00:52:54.061] calls[seq.int(from = from + 12L, to = length(calls) - 1574s [00:52:54.061] 3L)] 1574s [00:52:54.061] } 1574s [00:52:54.061] function(cond) { 1574s [00:52:54.061] is_error <- inherits(cond, "error") 1574s [00:52:54.061] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1574s [00:52:54.061] NULL) 1574s [00:52:54.061] if (is_error) { 1574s [00:52:54.061] sessionInformation <- function() { 1574s [00:52:54.061] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1574s [00:52:54.061] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1574s [00:52:54.061] search = base::search(), system = base::Sys.info()) 1574s [00:52:54.061] } 1574s [00:52:54.061] ...future.conditions[[length(...future.conditions) + 1574s [00:52:54.061] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1574s [00:52:54.061] cond$call), session = sessionInformation(), 1574s [00:52:54.061] timestamp = base::Sys.time(), signaled = 0L) 1574s [00:52:54.061] signalCondition(cond) 1574s [00:52:54.061] } 1574s [00:52:54.061] else if (!ignore && TRUE && inherits(cond, c("condition", 1574s [00:52:54.061] "immediateCondition"))) { 1574s [00:52:54.061] signal <- TRUE && inherits(cond, "immediateCondition") 1574s [00:52:54.061] ...future.conditions[[length(...future.conditions) + 1574s [00:52:54.061] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1574s [00:52:54.061] if (TRUE && !signal) { 1574s [00:52:54.061] muffleCondition <- function (cond, pattern = "^muffle") 1574s [00:52:54.061] { 1574s [00:52:54.061] inherits <- base::inherits 1574s [00:52:54.061] invokeRestart <- base::invokeRestart 1574s [00:52:54.061] is.null <- base::is.null 1574s [00:52:54.061] muffled <- FALSE 1574s [00:52:54.061] if (inherits(cond, "message")) { 1574s [00:52:54.061] muffled <- grepl(pattern, "muffleMessage") 1574s [00:52:54.061] if (muffled) 1574s [00:52:54.061] invokeRestart("muffleMessage") 1574s [00:52:54.061] } 1574s [00:52:54.061] else if (inherits(cond, "warning")) { 1574s [00:52:54.061] muffled <- grepl(pattern, "muffleWarning") 1574s [00:52:54.061] if (muffled) 1574s [00:52:54.061] invokeRestart("muffleWarning") 1574s [00:52:54.061] } 1574s [00:52:54.061] else if (inherits(cond, "condition")) { 1574s [00:52:54.061] if (!is.null(pattern)) { 1574s [00:52:54.061] computeRestarts <- base::computeRestarts 1574s [00:52:54.061] grepl <- base::grepl 1574s [00:52:54.061] restarts <- computeRestarts(cond) 1574s [00:52:54.061] for (restart in restarts) { 1574s [00:52:54.061] name <- restart$name 1574s [00:52:54.061] if (is.null(name)) 1574s [00:52:54.061] next 1574s [00:52:54.061] if (!grepl(pattern, name)) 1574s [00:52:54.061] next 1574s [00:52:54.061] invokeRestart(restart) 1574s [00:52:54.061] muffled <- TRUE 1574s [00:52:54.061] break 1574s [00:52:54.061] } 1574s [00:52:54.061] } 1574s [00:52:54.061] } 1574s [00:52:54.061] invisible(muffled) 1574s [00:52:54.061] } 1574s [00:52:54.061] muffleCondition(cond, pattern = "^muffle") 1574s [00:52:54.061] } 1574s [00:52:54.061] } 1574s [00:52:54.061] else { 1574s [00:52:54.061] if (TRUE) { 1574s [00:52:54.061] muffleCondition <- function (cond, pattern = "^muffle") 1574s [00:52:54.061] { 1574s [00:52:54.061] inherits <- base::inherits 1574s [00:52:54.061] invokeRestart <- base::invokeRestart 1574s [00:52:54.061] is.null <- base::is.null 1574s [00:52:54.061] muffled <- FALSE 1574s [00:52:54.061] if (inherits(cond, "message")) { 1574s [00:52:54.061] muffled <- grepl(pattern, "muffleMessage") 1574s [00:52:54.061] if (muffled) 1574s [00:52:54.061] invokeRestart("muffleMessage") 1574s [00:52:54.061] } 1574s [00:52:54.061] else if (inherits(cond, "warning")) { 1574s [00:52:54.061] muffled <- grepl(pattern, "muffleWarning") 1574s [00:52:54.061] if (muffled) 1574s [00:52:54.061] invokeRestart("muffleWarning") 1574s [00:52:54.061] } 1574s [00:52:54.061] else if (inherits(cond, "condition")) { 1574s [00:52:54.061] if (!is.null(pattern)) { 1574s [00:52:54.061] computeRestarts <- base::computeRestarts 1574s [00:52:54.061] grepl <- base::grepl 1574s [00:52:54.061] restarts <- computeRestarts(cond) 1574s [00:52:54.061] for (restart in restarts) { 1574s [00:52:54.061] name <- restart$name 1574s [00:52:54.061] if (is.null(name)) 1574s [00:52:54.061] next 1574s [00:52:54.061] if (!grepl(pattern, name)) 1574s [00:52:54.061] next 1574s [00:52:54.061] invokeRestart(restart) 1574s [00:52:54.061] muffled <- TRUE 1574s [00:52:54.061] break 1574s [00:52:54.061] } 1574s [00:52:54.061] } 1574s [00:52:54.061] } 1574s [00:52:54.061] invisible(muffled) 1574s [00:52:54.061] } 1574s [00:52:54.061] muffleCondition(cond, pattern = "^muffle") 1574s [00:52:54.061] } 1574s [00:52:54.061] } 1574s [00:52:54.061] } 1574s [00:52:54.061] })) 1574s [00:52:54.061] }, error = function(ex) { 1574s [00:52:54.061] base::structure(base::list(value = NULL, visible = NULL, 1574s [00:52:54.061] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1574s [00:52:54.061] ...future.rng), started = ...future.startTime, 1574s [00:52:54.061] finished = Sys.time(), session_uuid = NA_character_, 1574s [00:52:54.061] version = "1.8"), class = "FutureResult") 1574s [00:52:54.061] }, finally = { 1574s [00:52:54.061] if (!identical(...future.workdir, getwd())) 1574s [00:52:54.061] setwd(...future.workdir) 1574s [00:52:54.061] { 1574s [00:52:54.061] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1574s [00:52:54.061] ...future.oldOptions$nwarnings <- NULL 1574s [00:52:54.061] } 1574s [00:52:54.061] base::options(...future.oldOptions) 1574s [00:52:54.061] if (.Platform$OS.type == "windows") { 1574s [00:52:54.061] old_names <- names(...future.oldEnvVars) 1574s [00:52:54.061] envs <- base::Sys.getenv() 1574s [00:52:54.061] names <- names(envs) 1574s [00:52:54.061] common <- intersect(names, old_names) 1574s [00:52:54.061] added <- setdiff(names, old_names) 1574s [00:52:54.061] removed <- setdiff(old_names, names) 1574s [00:52:54.061] changed <- common[...future.oldEnvVars[common] != 1574s [00:52:54.061] envs[common]] 1574s [00:52:54.061] NAMES <- toupper(changed) 1574s [00:52:54.061] args <- list() 1574s [00:52:54.061] for (kk in seq_along(NAMES)) { 1574s [00:52:54.061] name <- changed[[kk]] 1574s [00:52:54.061] NAME <- NAMES[[kk]] 1574s [00:52:54.061] if (name != NAME && is.element(NAME, old_names)) 1574s [00:52:54.061] next 1574s [00:52:54.061] args[[name]] <- ...future.oldEnvVars[[name]] 1574s [00:52:54.061] } 1574s [00:52:54.061] NAMES <- toupper(added) 1574s [00:52:54.061] for (kk in seq_along(NAMES)) { 1574s [00:52:54.061] name <- added[[kk]] 1574s [00:52:54.061] NAME <- NAMES[[kk]] 1574s [00:52:54.061] if (name != NAME && is.element(NAME, old_names)) 1574s [00:52:54.061] next 1574s [00:52:54.061] args[[name]] <- "" 1574s [00:52:54.061] } 1574s [00:52:54.061] NAMES <- toupper(removed) 1574s [00:52:54.061] for (kk in seq_along(NAMES)) { 1574s [00:52:54.061] name <- removed[[kk]] 1574s [00:52:54.061] NAME <- NAMES[[kk]] 1574s [00:52:54.061] if (name != NAME && is.element(NAME, old_names)) 1574s [00:52:54.061] next 1574s [00:52:54.061] args[[name]] <- ...future.oldEnvVars[[name]] 1574s [00:52:54.061] } 1574s [00:52:54.061] if (length(args) > 0) 1574s [00:52:54.061] base::do.call(base::Sys.setenv, args = args) 1574s [00:52:54.061] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1574s [00:52:54.061] } 1574s [00:52:54.061] else { 1574s [00:52:54.061] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1574s [00:52:54.061] } 1574s [00:52:54.061] { 1574s [00:52:54.061] if (base::length(...future.futureOptionsAdded) > 1574s [00:52:54.061] 0L) { 1574s [00:52:54.061] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1574s [00:52:54.061] base::names(opts) <- ...future.futureOptionsAdded 1574s [00:52:54.061] base::options(opts) 1574s [00:52:54.061] } 1574s [00:52:54.061] { 1574s [00:52:54.061] { 1574s [00:52:54.061] NULL 1574s [00:52:54.061] RNGkind("Mersenne-Twister") 1574s [00:52:54.061] base::rm(list = ".Random.seed", envir = base::globalenv(), 1574s [00:52:54.061] inherits = FALSE) 1574s [00:52:54.061] } 1574s [00:52:54.061] options(future.plan = NULL) 1574s [00:52:54.061] if (is.na(NA_character_)) 1574s [00:52:54.061] Sys.unsetenv("R_FUTURE_PLAN") 1574s [00:52:54.061] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1574s [00:52:54.061] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1574s [00:52:54.061] envir = parent.frame()) 1574s [00:52:54.061] { 1574s [00:52:54.061] default_workers <- missing(workers) 1574s [00:52:54.061] if (is.function(workers)) 1574s [00:52:54.061] workers <- workers() 1574s [00:52:54.061] workers <- structure(as.integer(workers), 1574s [00:52:54.061] class = class(workers)) 1574s [00:52:54.061] stop_if_not(is.finite(workers), workers >= 1574s [00:52:54.061] 1L) 1574s [00:52:54.061] if ((workers == 1L && !inherits(workers, 1574s [00:52:54.061] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1574s [00:52:54.061] if (default_workers) 1574s [00:52:54.061] supportsMulticore(warn = TRUE) 1574s [00:52:54.061] return(sequential(..., envir = envir)) 1574s [00:52:54.061] } 1574s [00:52:54.061] oopts <- options(mc.cores = workers) 1574s [00:52:54.061] on.exit(options(oopts)) 1574s [00:52:54.061] future <- MulticoreFuture(..., workers = workers, 1574s [00:52:54.061] envir = envir) 1574s [00:52:54.061] if (!future$lazy) 1574s [00:52:54.061] future <- run(future) 1574s [00:52:54.061] invisible(future) 1574s [00:52:54.061] }), .cleanup = FALSE, .init = FALSE) 1574s [00:52:54.061] } 1574s [00:52:54.061] } 1574s [00:52:54.061] } 1574s [00:52:54.061] }) 1574s [00:52:54.061] if (TRUE) { 1574s [00:52:54.061] base::sink(type = "output", split = FALSE) 1574s [00:52:54.061] if (TRUE) { 1574s [00:52:54.061] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1574s [00:52:54.061] } 1574s [00:52:54.061] else { 1574s [00:52:54.061] ...future.result["stdout"] <- base::list(NULL) 1574s [00:52:54.061] } 1574s [00:52:54.061] base::close(...future.stdout) 1574s [00:52:54.061] ...future.stdout <- NULL 1574s [00:52:54.061] } 1574s [00:52:54.061] ...future.result$conditions <- ...future.conditions 1574s [00:52:54.061] ...future.result$finished <- base::Sys.time() 1574s [00:52:54.061] ...future.result 1574s [00:52:54.061] } 1574s [00:52:54.066] assign_globals() ... 1574s [00:52:54.066] List of 5 1574s [00:52:54.066] $ ...future.FUN :function (x, y = 2 * 1:5) 1574s [00:52:54.066] $ future.call.arguments : list() 1574s [00:52:54.066] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1574s [00:52:54.066] $ ...future.elements_ii :List of 3 1574s [00:52:54.066] ..$ a: num 1 1574s [00:52:54.066] ..$ b: num 2 1574s [00:52:54.066] ..$ c: num 3 1574s [00:52:54.066] $ ...future.seeds_ii : NULL 1574s [00:52:54.066] $ ...future.globals.maxSize: NULL 1574s [00:52:54.066] - attr(*, "where")=List of 5 1574s [00:52:54.066] ..$ ...future.FUN : 1574s [00:52:54.066] ..$ future.call.arguments : 1574s [00:52:54.066] ..$ ...future.elements_ii : 1574s [00:52:54.066] ..$ ...future.seeds_ii : 1574s [00:52:54.066] ..$ ...future.globals.maxSize: 1574s [00:52:54.066] - attr(*, "resolved")= logi FALSE 1574s [00:52:54.066] - attr(*, "total_size")= num 4728 1574s [00:52:54.066] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1574s [00:52:54.066] - attr(*, "already-done")= logi TRUE 1574s [00:52:54.076] - reassign environment for ‘...future.FUN’ 1574s [00:52:54.077] - copied ‘...future.FUN’ to environment 1574s [00:52:54.077] - copied ‘future.call.arguments’ to environment 1574s [00:52:54.077] - copied ‘...future.elements_ii’ to environment 1574s [00:52:54.077] - copied ‘...future.seeds_ii’ to environment 1574s [00:52:54.077] - copied ‘...future.globals.maxSize’ to environment 1574s [00:52:54.078] assign_globals() ... done 1574s [00:52:54.078] plan(): Setting new future strategy stack: 1574s [00:52:54.078] List of future strategies: 1574s [00:52:54.078] 1. sequential: 1574s [00:52:54.078] - args: function (..., envir = parent.frame()) 1574s [00:52:54.078] - tweaked: FALSE 1574s [00:52:54.078] - call: NULL 1574s [00:52:54.079] plan(): nbrOfWorkers() = 1 1574s [00:52:54.080] plan(): Setting new future strategy stack: 1574s [00:52:54.080] List of future strategies: 1574s [00:52:54.080] 1. multicore: 1574s [00:52:54.080] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1574s [00:52:54.080] - tweaked: FALSE 1574s [00:52:54.080] - call: plan(strategy) 1574s [00:52:54.084] plan(): nbrOfWorkers() = 1 1574s [00:52:54.084] SequentialFuture started (and completed) 1574s [00:52:54.085] - Launch lazy future ... done 1574s [00:52:54.085] run() for ‘SequentialFuture’ ... done 1574s [00:52:54.089] Created future: 1574s [00:52:54.091] SequentialFuture: 1574s [00:52:54.091] Label: ‘future_sapply-1’ 1574s [00:52:54.091] Expression: 1574s [00:52:54.091] { 1574s [00:52:54.091] do.call(function(...) { 1574s [00:52:54.091] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1574s [00:52:54.091] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1574s [00:52:54.091] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1574s [00:52:54.091] on.exit(options(oopts), add = TRUE) 1574s [00:52:54.091] } 1574s [00:52:54.091] { 1574s [00:52:54.091] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1574s [00:52:54.091] ...future.X_jj <- ...future.elements_ii[[jj]] 1574s [00:52:54.091] ...future.FUN(...future.X_jj, ...) 1574s [00:52:54.091] }) 1574s [00:52:54.091] } 1574s [00:52:54.091] }, args = future.call.arguments) 1574s [00:52:54.091] } 1574s [00:52:54.091] Lazy evaluation: FALSE 1574s [00:52:54.091] Asynchronous evaluation: FALSE 1574s [00:52:54.091] Local evaluation: TRUE 1574s [00:52:54.091] Environment: R_GlobalEnv 1574s [00:52:54.091] Capture standard output: TRUE 1574s [00:52:54.091] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1574s [00:52:54.091] Globals: 5 objects totaling 4.78 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1574s [00:52:54.091] Packages: 1574s [00:52:54.091] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1574s [00:52:54.091] Resolved: TRUE 1574s [00:52:54.091] Value: 1.01 KiB of class ‘list’ 1574s [00:52:54.091] Early signaling: FALSE 1574s [00:52:54.091] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1574s [00:52:54.091] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1574s [00:52:54.096] Chunk #1 of 1 ... DONE 1574s [00:52:54.096] Launching 1 futures (chunks) ... DONE 1574s [00:52:54.096] Resolving 1 futures (chunks) ... 1574s [00:52:54.097] resolve() on list ... 1574s [00:52:54.097] recursive: 0 1574s [00:52:54.098] length: 1 1574s [00:52:54.098] 1574s [00:52:54.106] resolved() for ‘SequentialFuture’ ... 1574s [00:52:54.107] - state: ‘finished’ 1574s [00:52:54.107] - run: TRUE 1574s [00:52:54.108] - result: ‘FutureResult’ 1574s [00:52:54.108] resolved() for ‘SequentialFuture’ ... done 1574s [00:52:54.109] Future #1 1574s [00:52:54.109] signalConditionsASAP(SequentialFuture, pos=1) ... 1574s [00:52:54.109] - nx: 1 1574s [00:52:54.109] - relay: TRUE 1574s [00:52:54.110] - stdout: TRUE 1574s [00:52:54.110] - signal: TRUE 1574s [00:52:54.110] - resignal: FALSE 1574s [00:52:54.111] - force: TRUE 1574s [00:52:54.112] - relayed: [n=1] FALSE 1574s [00:52:54.112] - queued futures: [n=1] FALSE 1574s [00:52:54.113] - until=1 1574s [00:52:54.114] - relaying element #1 1574s [00:52:54.114] - relayed: [n=1] TRUE 1574s [00:52:54.115] - queued futures: [n=1] TRUE 1574s [00:52:54.115] signalConditionsASAP(SequentialFuture, pos=1) ... done 1574s [00:52:54.115] length: 0 (resolved future 1) 1574s [00:52:54.116] Relaying remaining futures 1574s [00:52:54.116] signalConditionsASAP(NULL, pos=0) ... 1574s [00:52:54.116] - nx: 1 1574s [00:52:54.117] - relay: TRUE 1574s [00:52:54.117] - stdout: TRUE 1574s [00:52:54.117] - signal: TRUE 1574s [00:52:54.117] - resignal: FALSE 1574s [00:52:54.117] - force: TRUE 1574s [00:52:54.118] - relayed: [n=1] TRUE 1574s [00:52:54.118] - queued futures: [n=1] TRUE 1574s - flush all 1574s [00:52:54.118] - relayed: [n=1] TRUE 1574s [00:52:54.118] - queued futures: [n=1] TRUE 1574s [00:52:54.118] signalConditionsASAP(NULL, pos=0) ... done 1574s [00:52:54.119] resolve() on list ... DONE 1574s [00:52:54.119] - Number of value chunks collected: 1 1574s [00:52:54.120] Resolving 1 futures (chunks) ... DONE 1574s [00:52:54.120] Reducing values from 1 chunks ... 1574s [00:52:54.120] - Number of values collected after concatenation: 3 1574s [00:52:54.121] - Number of values expected: 3 1574s [00:52:54.122] Reducing values from 1 chunks ... DONE 1574s [00:52:54.122] future_lapply() ... DONE 1574s List of 2 1574s $ y0: num [1:15, 1:3] 2 2 2 4 4 4 6 6 6 8 ... 1574s ..- attr(*, "dimnames")=List of 2 1574s .. ..$ : NULL 1574s .. ..$ : chr [1:3] "a" "b" "c" 1574s $ y1: num [1:15, 1:3] 2 2 2 4 4 4 6 6 6 8 ... 1574s ..- attr(*, "dimnames")=List of 2 1574s .. ..$ : NULL 1574s .. ..$ :[00:52:54.132] future_lapply() ... 1574s chr [1:3] "a" "b" "c" 1574s [00:52:54.136] Number of chunks: 1 1574s [00:52:54.137] getGlobalsAndPackagesXApply() ... 1574s [00:52:54.137] - future.globals: TRUE 1574s [00:52:54.137] getGlobalsAndPackages() ... 1574s [00:52:54.137] Searching for globals... 1574s [00:52:54.138] - globals found: [1] ‘FUN’ 1574s [00:52:54.139] Searching for globals ... DONE 1574s [00:52:54.139] Resolving globals: FALSE 1574s [00:52:54.139] The total size of the 1 globals is 848 bytes (848 bytes) 1574s [00:52:54.140] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1574s [00:52:54.140] - globals: [1] ‘FUN’ 1574s [00:52:54.140] 1574s [00:52:54.140] getGlobalsAndPackages() ... DONE 1574s [00:52:54.140] - globals found/used: [n=1] ‘FUN’ 1574s [00:52:54.141] - needed namespaces: [n=0] 1574s [00:52:54.141] Finding globals ... DONE 1574s [00:52:54.141] - use_args: TRUE 1574s [00:52:54.142] - Getting '...' globals ... 1574s [00:52:54.144] resolve() on list ... 1574s [00:52:54.145] recursive: 0 1574s [00:52:54.145] length: 1 1574s [00:52:54.145] elements: ‘...’ 1574s [00:52:54.146] length: 0 (resolved future 1) 1574s [00:52:54.146] resolve() on list ... DONE 1574s [00:52:54.147] - '...' content: [n=0] 1574s [00:52:54.147] List of 1 1574s [00:52:54.147] $ ...: list() 1574s [00:52:54.147] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1574s [00:52:54.147] - attr(*, "where")=List of 1 1574s [00:52:54.147] ..$ ...: 1574s [00:52:54.147] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1574s [00:52:54.147] - attr(*, "resolved")= logi TRUE 1574s [00:52:54.147] - attr(*, "total_size")= num NA 1574s [00:52:54.158] - Getting '...' globals ... DONE 1574s [00:52:54.159] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1574s [00:52:54.159] List of 2 1574s [00:52:54.159] $ ...future.FUN:function (x) 1574s [00:52:54.159] $ ... : list() 1574s [00:52:54.159] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1574s [00:52:54.159] - attr(*, "where")=List of 2 1574s [00:52:54.159] ..$ ...future.FUN: 1574s [00:52:54.159] ..$ ... : 1574s [00:52:54.159] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1574s [00:52:54.159] - attr(*, "resolved")= logi FALSE 1574s [00:52:54.159] - attr(*, "total_size")= num 848 1574s [00:52:54.168] Packages to be attached in all futures: [n=0] 1574s [00:52:54.168] getGlobalsAndPackagesXApply() ... DONE 1574s [00:52:54.169] Number of futures (= number of chunks): 1 1574s [00:52:54.169] Launching 1 futures (chunks) ... 1574s [00:52:54.169] Chunk #1 of 1 ... 1574s [00:52:54.170] - Finding globals in 'X' for chunk #1 ... 1574s [00:52:54.170] getGlobalsAndPackages() ... 1574s [00:52:54.170] Searching for globals... 1574s [00:52:54.171] 1574s [00:52:54.172] Searching for globals ... DONE 1574s [00:52:54.172] - globals: [0] 1574s [00:52:54.173] getGlobalsAndPackages() ... DONE 1574s [00:52:54.173] + additional globals found: [n=0] 1574s [00:52:54.173] + additional namespaces needed: [n=0] 1574s [00:52:54.174] - Finding globals in 'X' for chunk #1 ... DONE 1574s [00:52:54.174] - seeds: 1574s [00:52:54.174] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1574s [00:52:54.174] getGlobalsAndPackages() ... 1574s [00:52:54.174] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1574s [00:52:54.174] Resolving globals: FALSE 1574s [00:52:54.175] Tweak future expression to call with '...' arguments ... 1574s [00:52:54.175] { 1574s [00:52:54.175] do.call(function(...) { 1574s [00:52:54.175] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1574s [00:52:54.175] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1574s [00:52:54.175] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1574s [00:52:54.175] on.exit(options(oopts), add = TRUE) 1574s [00:52:54.175] } 1574s [00:52:54.175] { 1574s [00:52:54.175] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1574s [00:52:54.175] ...future.X_jj <- ...future.elements_ii[[jj]] 1574s [00:52:54.175] ...future.FUN(...future.X_jj, ...) 1574s [00:52:54.175] }) 1574s [00:52:54.175] } 1574s [00:52:54.175] }, args = future.call.arguments) 1574s [00:52:54.175] } 1574s [00:52:54.175] Tweak future expression to call with '...' arguments ... DONE 1574s [00:52:54.176] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1574s [00:52:54.176] 1574s [00:52:54.176] getGlobalsAndPackages() ... DONE 1574s [00:52:54.176] run() for ‘Future’ ... 1574s [00:52:54.177] - state: ‘created’ 1574s [00:52:54.177] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1574s [00:52:54.184] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1574s [00:52:54.185] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1574s [00:52:54.185] - Field: ‘label’ 1574s [00:52:54.185] - Field: ‘local’ 1574s [00:52:54.186] - Field: ‘owner’ 1574s [00:52:54.186] - Field: ‘envir’ 1574s [00:52:54.186] - Field: ‘packages’ 1574s [00:52:54.186] - Field: ‘gc’ 1574s [00:52:54.186] - Field: ‘conditions’ 1574s [00:52:54.187] - Field: ‘expr’ 1574s [00:52:54.187] - Field: ‘uuid’ 1574s [00:52:54.187] - Field: ‘seed’ 1574s [00:52:54.187] - Field: ‘version’ 1574s [00:52:54.187] - Field: ‘result’ 1574s [00:52:54.187] - Field: ‘asynchronous’ 1574s [00:52:54.188] - Field: ‘calls’ 1574s [00:52:54.188] - Field: ‘globals’ 1574s [00:52:54.188] - Field: ‘stdout’ 1574s [00:52:54.188] - Field: ‘earlySignal’ 1574s [00:52:54.188] - Field: ‘lazy’ 1574s [00:52:54.188] - Field: ‘state’ 1574s [00:52:54.189] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1574s [00:52:54.189] - Launch lazy future ... 1574s [00:52:54.189] Packages needed by the future expression (n = 0): 1574s [00:52:54.190] Packages needed by future strategies (n = 0): 1574s [00:52:54.191] { 1574s [00:52:54.191] { 1574s [00:52:54.191] { 1574s [00:52:54.191] ...future.startTime <- base::Sys.time() 1574s [00:52:54.191] { 1574s [00:52:54.191] { 1574s [00:52:54.191] { 1574s [00:52:54.191] base::local({ 1574s [00:52:54.191] has_future <- base::requireNamespace("future", 1574s [00:52:54.191] quietly = TRUE) 1574s [00:52:54.191] if (has_future) { 1574s [00:52:54.191] ns <- base::getNamespace("future") 1574s [00:52:54.191] version <- ns[[".package"]][["version"]] 1574s [00:52:54.191] if (is.null(version)) 1574s [00:52:54.191] version <- utils::packageVersion("future") 1574s [00:52:54.191] } 1574s [00:52:54.191] else { 1574s [00:52:54.191] version <- NULL 1574s [00:52:54.191] } 1574s [00:52:54.191] if (!has_future || version < "1.8.0") { 1574s [00:52:54.191] info <- base::c(r_version = base::gsub("R version ", 1574s [00:52:54.191] "", base::R.version$version.string), 1574s [00:52:54.191] platform = base::sprintf("%s (%s-bit)", 1574s [00:52:54.191] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1574s [00:52:54.191] os = base::paste(base::Sys.info()[base::c("sysname", 1574s [00:52:54.191] "release", "version")], collapse = " "), 1574s [00:52:54.191] hostname = base::Sys.info()[["nodename"]]) 1574s [00:52:54.191] info <- base::sprintf("%s: %s", base::names(info), 1574s [00:52:54.191] info) 1574s [00:52:54.191] info <- base::paste(info, collapse = "; ") 1574s [00:52:54.191] if (!has_future) { 1574s [00:52:54.191] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1574s [00:52:54.191] info) 1574s [00:52:54.191] } 1574s [00:52:54.191] else { 1574s [00:52:54.191] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1574s [00:52:54.191] info, version) 1574s [00:52:54.191] } 1574s [00:52:54.191] base::stop(msg) 1574s [00:52:54.191] } 1574s [00:52:54.191] }) 1574s [00:52:54.191] } 1574s [00:52:54.191] options(future.plan = NULL) 1574s [00:52:54.191] Sys.unsetenv("R_FUTURE_PLAN") 1574s [00:52:54.191] future::plan("default", .cleanup = FALSE, .init = FALSE) 1574s [00:52:54.191] } 1574s [00:52:54.191] ...future.workdir <- getwd() 1574s [00:52:54.191] } 1574s [00:52:54.191] ...future.oldOptions <- base::as.list(base::.Options) 1574s [00:52:54.191] ...future.oldEnvVars <- base::Sys.getenv() 1574s [00:52:54.191] } 1574s [00:52:54.191] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1574s [00:52:54.191] future.globals.maxSize = NULL, future.globals.method = NULL, 1574s [00:52:54.191] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1574s [00:52:54.191] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1574s [00:52:54.191] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1574s [00:52:54.191] future.stdout.windows.reencode = NULL, width = 80L) 1574s [00:52:54.191] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1574s [00:52:54.191] base::names(...future.oldOptions)) 1574s [00:52:54.191] } 1574s [00:52:54.191] if (FALSE) { 1574s [00:52:54.191] } 1574s [00:52:54.191] else { 1574s [00:52:54.191] if (TRUE) { 1574s [00:52:54.191] ...future.stdout <- base::rawConnection(base::raw(0L), 1574s [00:52:54.191] open = "w") 1574s [00:52:54.191] } 1574s [00:52:54.191] else { 1574s [00:52:54.191] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1574s [00:52:54.191] windows = "NUL", "/dev/null"), open = "w") 1574s [00:52:54.191] } 1574s [00:52:54.191] base::sink(...future.stdout, type = "output", split = FALSE) 1574s [00:52:54.191] base::on.exit(if (!base::is.null(...future.stdout)) { 1574s [00:52:54.191] base::sink(type = "output", split = FALSE) 1574s [00:52:54.191] base::close(...future.stdout) 1574s [00:52:54.191] }, add = TRUE) 1574s [00:52:54.191] } 1574s [00:52:54.191] ...future.frame <- base::sys.nframe() 1574s [00:52:54.191] ...future.conditions <- base::list() 1574s [00:52:54.191] ...future.rng <- base::globalenv()$.Random.seed 1574s [00:52:54.191] if (FALSE) { 1574s [00:52:54.191] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1574s [00:52:54.191] "...future.value", "...future.globalenv.names", ".Random.seed") 1574s [00:52:54.191] } 1574s [00:52:54.191] ...future.result <- base::tryCatch({ 1574s [00:52:54.191] base::withCallingHandlers({ 1574s [00:52:54.191] ...future.value <- base::withVisible(base::local({ 1574s [00:52:54.191] do.call(function(...) { 1574s [00:52:54.191] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1574s [00:52:54.191] if (!identical(...future.globals.maxSize.org, 1574s [00:52:54.191] ...future.globals.maxSize)) { 1574s [00:52:54.191] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1574s [00:52:54.191] on.exit(options(oopts), add = TRUE) 1574s [00:52:54.191] } 1574s [00:52:54.191] { 1574s [00:52:54.191] lapply(seq_along(...future.elements_ii), 1574s [00:52:54.191] FUN = function(jj) { 1574s [00:52:54.191] ...future.X_jj <- ...future.elements_ii[[jj]] 1574s [00:52:54.191] ...future.FUN(...future.X_jj, ...) 1574s [00:52:54.191] }) 1574s [00:52:54.191] } 1574s [00:52:54.191] }, args = future.call.arguments) 1574s [00:52:54.191] })) 1574s [00:52:54.191] future::FutureResult(value = ...future.value$value, 1574s [00:52:54.191] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1574s [00:52:54.191] ...future.rng), globalenv = if (FALSE) 1574s [00:52:54.191] list(added = base::setdiff(base::names(base::.GlobalEnv), 1574s [00:52:54.191] ...future.globalenv.names)) 1574s [00:52:54.191] else NULL, started = ...future.startTime, version = "1.8") 1574s [00:52:54.191] }, condition = base::local({ 1574s [00:52:54.191] c <- base::c 1574s [00:52:54.191] inherits <- base::inherits 1574s [00:52:54.191] invokeRestart <- base::invokeRestart 1574s [00:52:54.191] length <- base::length 1574s [00:52:54.191] list <- base::list 1574s [00:52:54.191] seq.int <- base::seq.int 1574s [00:52:54.191] signalCondition <- base::signalCondition 1574s [00:52:54.191] sys.calls <- base::sys.calls 1574s [00:52:54.191] `[[` <- base::`[[` 1574s [00:52:54.191] `+` <- base::`+` 1574s [00:52:54.191] `<<-` <- base::`<<-` 1574s [00:52:54.191] sysCalls <- function(calls = sys.calls(), from = 1L) { 1574s [00:52:54.191] calls[seq.int(from = from + 12L, to = length(calls) - 1574s [00:52:54.191] 3L)] 1574s [00:52:54.191] } 1574s [00:52:54.191] function(cond) { 1574s [00:52:54.191] is_error <- inherits(cond, "error") 1574s [00:52:54.191] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1574s [00:52:54.191] NULL) 1574s [00:52:54.191] if (is_error) { 1574s [00:52:54.191] sessionInformation <- function() { 1574s [00:52:54.191] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1574s [00:52:54.191] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1574s [00:52:54.191] search = base::search(), system = base::Sys.info()) 1574s [00:52:54.191] } 1574s [00:52:54.191] ...future.conditions[[length(...future.conditions) + 1574s [00:52:54.191] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1574s [00:52:54.191] cond$call), session = sessionInformation(), 1574s [00:52:54.191] timestamp = base::Sys.time(), signaled = 0L) 1574s [00:52:54.191] signalCondition(cond) 1574s [00:52:54.191] } 1574s [00:52:54.191] else if (!ignore && TRUE && inherits(cond, c("condition", 1574s [00:52:54.191] "immediateCondition"))) { 1574s [00:52:54.191] signal <- TRUE && inherits(cond, "immediateCondition") 1574s [00:52:54.191] ...future.conditions[[length(...future.conditions) + 1574s [00:52:54.191] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1574s [00:52:54.191] if (TRUE && !signal) { 1574s [00:52:54.191] muffleCondition <- function (cond, pattern = "^muffle") 1574s [00:52:54.191] { 1574s [00:52:54.191] inherits <- base::inherits 1574s [00:52:54.191] invokeRestart <- base::invokeRestart 1574s [00:52:54.191] is.null <- base::is.null 1574s [00:52:54.191] muffled <- FALSE 1574s [00:52:54.191] if (inherits(cond, "message")) { 1574s [00:52:54.191] muffled <- grepl(pattern, "muffleMessage") 1574s [00:52:54.191] if (muffled) 1574s [00:52:54.191] invokeRestart("muffleMessage") 1574s [00:52:54.191] } 1574s [00:52:54.191] else if (inherits(cond, "warning")) { 1574s [00:52:54.191] muffled <- grepl(pattern, "muffleWarning") 1574s [00:52:54.191] if (muffled) 1574s [00:52:54.191] invokeRestart("muffleWarning") 1574s [00:52:54.191] } 1574s [00:52:54.191] else if (inherits(cond, "condition")) { 1574s [00:52:54.191] if (!is.null(pattern)) { 1574s [00:52:54.191] computeRestarts <- base::computeRestarts 1574s [00:52:54.191] grepl <- base::grepl 1574s [00:52:54.191] restarts <- computeRestarts(cond) 1574s [00:52:54.191] for (restart in restarts) { 1574s [00:52:54.191] name <- restart$name 1574s [00:52:54.191] if (is.null(name)) 1574s [00:52:54.191] next 1574s [00:52:54.191] if (!grepl(pattern, name)) 1574s [00:52:54.191] next 1574s [00:52:54.191] invokeRestart(restart) 1574s [00:52:54.191] muffled <- TRUE 1574s [00:52:54.191] break 1574s [00:52:54.191] } 1574s [00:52:54.191] } 1574s [00:52:54.191] } 1574s [00:52:54.191] invisible(muffled) 1574s [00:52:54.191] } 1574s [00:52:54.191] muffleCondition(cond, pattern = "^muffle") 1574s [00:52:54.191] } 1574s [00:52:54.191] } 1574s [00:52:54.191] else { 1574s [00:52:54.191] if (TRUE) { 1574s [00:52:54.191] muffleCondition <- function (cond, pattern = "^muffle") 1574s [00:52:54.191] { 1574s [00:52:54.191] inherits <- base::inherits 1574s [00:52:54.191] invokeRestart <- base::invokeRestart 1574s [00:52:54.191] is.null <- base::is.null 1574s [00:52:54.191] muffled <- FALSE 1574s [00:52:54.191] if (inherits(cond, "message")) { 1574s [00:52:54.191] muffled <- grepl(pattern, "muffleMessage") 1574s [00:52:54.191] if (muffled) 1574s [00:52:54.191] invokeRestart("muffleMessage") 1574s [00:52:54.191] } 1574s [00:52:54.191] else if (inherits(cond, "warning")) { 1574s [00:52:54.191] muffled <- grepl(pattern, "muffleWarning") 1574s [00:52:54.191] if (muffled) 1574s [00:52:54.191] invokeRestart("muffleWarning") 1574s [00:52:54.191] } 1574s [00:52:54.191] else if (inherits(cond, "condition")) { 1574s [00:52:54.191] if (!is.null(pattern)) { 1574s [00:52:54.191] computeRestarts <- base::computeRestarts 1574s [00:52:54.191] grepl <- base::grepl 1574s [00:52:54.191] restarts <- computeRestarts(cond) 1574s [00:52:54.191] for (restart in restarts) { 1574s [00:52:54.191] name <- restart$name 1574s [00:52:54.191] if (is.null(name)) 1574s [00:52:54.191] next 1574s [00:52:54.191] if (!grepl(pattern, name)) 1574s [00:52:54.191] next 1574s [00:52:54.191] invokeRestart(restart) 1574s [00:52:54.191] muffled <- TRUE 1574s [00:52:54.191] break 1574s [00:52:54.191] } 1574s [00:52:54.191] } 1574s [00:52:54.191] } 1574s [00:52:54.191] invisible(muffled) 1574s [00:52:54.191] } 1574s [00:52:54.191] muffleCondition(cond, pattern = "^muffle") 1574s [00:52:54.191] } 1574s [00:52:54.191] } 1574s [00:52:54.191] } 1574s [00:52:54.191] })) 1574s [00:52:54.191] }, error = function(ex) { 1574s [00:52:54.191] base::structure(base::list(value = NULL, visible = NULL, 1574s [00:52:54.191] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1574s [00:52:54.191] ...future.rng), started = ...future.startTime, 1574s [00:52:54.191] finished = Sys.time(), session_uuid = NA_character_, 1574s [00:52:54.191] version = "1.8"), class = "FutureResult") 1574s [00:52:54.191] }, finally = { 1574s [00:52:54.191] if (!identical(...future.workdir, getwd())) 1574s [00:52:54.191] setwd(...future.workdir) 1574s [00:52:54.191] { 1574s [00:52:54.191] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1574s [00:52:54.191] ...future.oldOptions$nwarnings <- NULL 1574s [00:52:54.191] } 1574s [00:52:54.191] base::options(...future.oldOptions) 1574s [00:52:54.191] if (.Platform$OS.type == "windows") { 1574s [00:52:54.191] old_names <- names(...future.oldEnvVars) 1574s [00:52:54.191] envs <- base::Sys.getenv() 1574s [00:52:54.191] names <- names(envs) 1574s [00:52:54.191] common <- intersect(names, old_names) 1574s [00:52:54.191] added <- setdiff(names, old_names) 1574s [00:52:54.191] removed <- setdiff(old_names, names) 1574s [00:52:54.191] changed <- common[...future.oldEnvVars[common] != 1574s [00:52:54.191] envs[common]] 1574s [00:52:54.191] NAMES <- toupper(changed) 1574s [00:52:54.191] args <- list() 1574s [00:52:54.191] for (kk in seq_along(NAMES)) { 1574s [00:52:54.191] name <- changed[[kk]] 1574s [00:52:54.191] NAME <- NAMES[[kk]] 1574s [00:52:54.191] if (name != NAME && is.element(NAME, old_names)) 1574s [00:52:54.191] next 1574s [00:52:54.191] args[[name]] <- ...future.oldEnvVars[[name]] 1574s [00:52:54.191] } 1574s [00:52:54.191] NAMES <- toupper(added) 1574s [00:52:54.191] for (kk in seq_along(NAMES)) { 1574s [00:52:54.191] name <- added[[kk]] 1574s [00:52:54.191] NAME <- NAMES[[kk]] 1574s [00:52:54.191] if (name != NAME && is.element(NAME, old_names)) 1574s [00:52:54.191] next 1574s [00:52:54.191] args[[name]] <- "" 1574s [00:52:54.191] } 1574s [00:52:54.191] NAMES <- toupper(removed) 1574s [00:52:54.191] for (kk in seq_along(NAMES)) { 1574s [00:52:54.191] name <- removed[[kk]] 1574s [00:52:54.191] NAME <- NAMES[[kk]] 1574s [00:52:54.191] if (name != NAME && is.element(NAME, old_names)) 1574s [00:52:54.191] next 1574s [00:52:54.191] args[[name]] <- ...future.oldEnvVars[[name]] 1574s [00:52:54.191] } 1574s [00:52:54.191] if (length(args) > 0) 1574s [00:52:54.191] base::do.call(base::Sys.setenv, args = args) 1574s [00:52:54.191] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1574s [00:52:54.191] } 1574s [00:52:54.191] else { 1574s [00:52:54.191] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1574s [00:52:54.191] } 1574s [00:52:54.191] { 1574s [00:52:54.191] if (base::length(...future.futureOptionsAdded) > 1574s [00:52:54.191] 0L) { 1574s [00:52:54.191] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1574s [00:52:54.191] base::names(opts) <- ...future.futureOptionsAdded 1574s [00:52:54.191] base::options(opts) 1574s [00:52:54.191] } 1574s [00:52:54.191] { 1574s [00:52:54.191] { 1574s [00:52:54.191] NULL 1574s [00:52:54.191] RNGkind("Mersenne-Twister") 1574s [00:52:54.191] base::rm(list = ".Random.seed", envir = base::globalenv(), 1574s [00:52:54.191] inherits = FALSE) 1574s [00:52:54.191] } 1574s [00:52:54.191] options(future.plan = NULL) 1574s [00:52:54.191] if (is.na(NA_character_)) 1574s [00:52:54.191] Sys.unsetenv("R_FUTURE_PLAN") 1574s [00:52:54.191] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1574s [00:52:54.191] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1574s [00:52:54.191] envir = parent.frame()) 1574s [00:52:54.191] { 1574s [00:52:54.191] default_workers <- missing(workers) 1574s [00:52:54.191] if (is.function(workers)) 1574s [00:52:54.191] workers <- workers() 1574s [00:52:54.191] workers <- structure(as.integer(workers), 1574s [00:52:54.191] class = class(workers)) 1574s [00:52:54.191] stop_if_not(is.finite(workers), workers >= 1574s [00:52:54.191] 1L) 1574s [00:52:54.191] if ((workers == 1L && !inherits(workers, 1574s [00:52:54.191] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1574s [00:52:54.191] if (default_workers) 1574s [00:52:54.191] supportsMulticore(warn = TRUE) 1574s [00:52:54.191] return(sequential(..., envir = envir)) 1574s [00:52:54.191] } 1574s [00:52:54.191] oopts <- options(mc.cores = workers) 1574s [00:52:54.191] on.exit(options(oopts)) 1574s [00:52:54.191] future <- MulticoreFuture(..., workers = workers, 1574s [00:52:54.191] envir = envir) 1574s [00:52:54.191] if (!future$lazy) 1574s [00:52:54.191] future <- run(future) 1574s [00:52:54.191] invisible(future) 1574s [00:52:54.191] }), .cleanup = FALSE, .init = FALSE) 1574s [00:52:54.191] } 1574s [00:52:54.191] } 1574s [00:52:54.191] } 1574s [00:52:54.191] }) 1574s [00:52:54.191] if (TRUE) { 1574s [00:52:54.191] base::sink(type = "output", split = FALSE) 1574s [00:52:54.191] if (TRUE) { 1574s [00:52:54.191] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1574s [00:52:54.191] } 1574s [00:52:54.191] else { 1574s [00:52:54.191] ...future.result["stdout"] <- base::list(NULL) 1574s [00:52:54.191] } 1574s [00:52:54.191] base::close(...future.stdout) 1574s [00:52:54.191] ...future.stdout <- NULL 1574s [00:52:54.191] } 1574s [00:52:54.191] ...future.result$conditions <- ...future.conditions 1574s [00:52:54.191] ...future.result$finished <- base::Sys.time() 1574s [00:52:54.191] ...future.result 1574s [00:52:54.191] } 1574s [00:52:54.200] assign_globals() ... 1574s [00:52:54.201] List of 5 1574s [00:52:54.201] $ ...future.FUN :function (x) 1574s [00:52:54.201] $ future.call.arguments : list() 1574s [00:52:54.201] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1574s [00:52:54.201] $ ...future.elements_ii :List of 3 1574s [00:52:54.201] ..$ a: num 1 1574s [00:52:54.201] ..$ b: num 2 1574s [00:52:54.201] ..$ c: num 3 1574s [00:52:54.201] $ ...future.seeds_ii : NULL 1574s [00:52:54.201] $ ...future.globals.maxSize: NULL 1574s [00:52:54.201] - attr(*, "where")=List of 5 1574s [00:52:54.201] ..$ ...future.FUN : 1574s [00:52:54.201] ..$ future.call.arguments : 1574s [00:52:54.201] ..$ ...future.elements_ii : 1574s [00:52:54.201] ..$ ...future.seeds_ii : 1574s [00:52:54.201] ..$ ...future.globals.maxSize: 1574s [00:52:54.201] - attr(*, "resolved")= logi FALSE 1574s [00:52:54.201] - attr(*, "total_size")= num 848 1574s [00:52:54.201] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1574s [00:52:54.201] - attr(*, "already-done")= logi TRUE 1574s [00:52:54.209] - copied ‘...future.FUN’ to environment 1574s [00:52:54.209] - copied ‘future.call.arguments’ to environment 1574s [00:52:54.210] - copied ‘...future.elements_ii’ to environment 1574s [00:52:54.210] - copied ‘...future.seeds_ii’ to environment 1574s [00:52:54.210] - copied ‘...future.globals.maxSize’ to environment 1574s [00:52:54.210] assign_globals() ... done 1574s [00:52:54.211] plan(): Setting new future strategy stack: 1574s [00:52:54.211] List of future strategies: 1574s [00:52:54.211] 1. sequential: 1574s [00:52:54.211] - args: function (..., envir = parent.frame()) 1574s [00:52:54.211] - tweaked: FALSE 1574s [00:52:54.211] - call: NULL 1574s [00:52:54.212] plan(): nbrOfWorkers() = 1 1574s [00:52:54.213] plan(): Setting new future strategy stack: 1574s [00:52:54.213] List of future strategies: 1574s [00:52:54.213] 1. multicore: 1574s [00:52:54.213] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1574s [00:52:54.213] - tweaked: FALSE 1574s [00:52:54.213] - call: plan(strategy) 1574s [00:52:54.218] plan(): nbrOfWorkers() = 1 1574s [00:52:54.219] SequentialFuture started (and completed) 1574s [00:52:54.219] - Launch lazy future ... done 1574s [00:52:54.220] run() for ‘SequentialFuture’ ... done 1574s [00:52:54.220] Created future: 1574s [00:52:54.220] SequentialFuture: 1574s [00:52:54.220] Label: ‘future_sapply-1’ 1574s [00:52:54.220] Expression: 1574s [00:52:54.220] { 1574s [00:52:54.220] do.call(function(...) { 1574s [00:52:54.220] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1574s [00:52:54.220] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1574s [00:52:54.220] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1574s [00:52:54.220] on.exit(options(oopts), add = TRUE) 1574s [00:52:54.220] } 1574s [00:52:54.220] { 1574s [00:52:54.220] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1574s [00:52:54.220] ...future.X_jj <- ...future.elements_ii[[jj]] 1574s [00:52:54.220] ...future.FUN(...future.X_jj, ...) 1574s [00:52:54.220] }) 1574s [00:52:54.220] } 1574s [00:52:54.220] }, args = future.call.arguments) 1574s [00:52:54.220] } 1574s [00:52:54.220] Lazy evaluation: FALSE 1574s [00:52:54.220] Asynchronous evaluation: FALSE 1574s [00:52:54.220] Local evaluation: TRUE 1574s [00:52:54.220] Environment: R_GlobalEnv 1574s [00:52:54.220] Capture standard output: TRUE 1574s [00:52:54.220] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1574s [00:52:54.220] Globals: 5 objects totaling 0.99 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1574s [00:52:54.220] Packages: 1574s [00:52:54.220] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1574s [00:52:54.220] Resolved: TRUE 1574s [00:52:54.220] Value: 168 bytes of class ‘list’ 1574s [00:52:54.220] Early signaling: FALSE 1574s [00:52:54.220] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1574s [00:52:54.220] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1574s [00:52:54.222] Chunk #1 of 1 ... DONE 1574s [00:52:54.222] Launching 1 futures (chunks) ... DONE 1574s [00:52:54.222] Resolving 1 futures (chunks) ... 1574s [00:52:54.223] resolve() on list ... 1574s [00:52:54.223] recursive: 0 1574s [00:52:54.223] length: 1 1574s [00:52:54.223] 1574s [00:52:54.223] resolved() for ‘SequentialFuture’ ... 1574s [00:52:54.223] - state: ‘finished’ 1574s [00:52:54.223] - run: TRUE 1574s [00:52:54.224] - result: ‘FutureResult’ 1574s [00:52:54.224] resolved() for ‘SequentialFuture’ ... done 1574s [00:52:54.224] Future #1 1574s [00:52:54.224] signalConditionsASAP(SequentialFuture, pos=1) ... 1574s [00:52:54.224] - nx: 1 1574s [00:52:54.224] - relay: TRUE 1574s [00:52:54.225] - stdout: TRUE 1574s [00:52:54.225] - signal: TRUE 1574s [00:52:54.225] - resignal: FALSE 1574s [00:52:54.226] - force: TRUE 1574s [00:52:54.226] - relayed: [n=1] FALSE 1574s [00:52:54.226] - queued futures: [n=1] FALSE 1574s [00:52:54.226] - until=1 1574s [00:52:54.226] - relaying element #1 1574s [00:52:54.227] - relayed: [n=1] TRUE 1574s [00:52:54.227] - queued futures: [n=1] TRUE 1574s [00:52:54.227] signalConditionsASAP(SequentialFuture, pos=1) ... done 1574s [00:52:54.227] length: 0 (resolved future 1) 1574s [00:52:54.227] Relaying remaining futures 1574s [00:52:54.228] signalConditionsASAP(NULL, pos=0) ... 1574s [00:52:54.228] - nx: 1 1574s [00:52:54.228] - relay: TRUE 1574s [00:52:54.228] - stdout: TRUE 1574s [00:52:54.228] - signal: TRUE 1574s [00:52:54.228] - resignal: FALSE 1574s [00:52:54.228] - force: TRUE 1574s [00:52:54.229] - relayed: [n=1] TRUE 1574s [00:52:54.229] - queued futures: [n=1] TRUE 1574s - flush all 1574s [00:52:54.230] - relayed: [n=1] TRUE 1574s [00:52:54.230] - queued futures: [n=1] TRUE 1574s [00:52:54.231] signalConditionsASAP(NULL, pos=0) ... done 1574s [00:52:54.231] resolve() on list ... DONE 1574s [00:52:54.231] - Number of value chunks collected: 1 1574s [00:52:54.231] Resolving 1 futures (chunks) ... DONE 1574s [00:52:54.231] Reducing values from 1 chunks ... 1574s [00:52:54.232] - Number of values collected after concatenation: 3 1574s [00:52:54.232] - Number of values expected: 3 1574s [00:52:54.232] Reducing values from 1 chunks ... DONE 1574s [00:52:54.232] future_lapply() ... DONE 1574s List of 2 1574s $ y0: Named num [1:3] 1 2 3 1574s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1574s $ y1: Named num [1:3] 1 2 3 1574s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1574s [00:52:54.236] future_lapply() ... 1574s [00:52:54.241] Number of chunks: 1 1574s [00:52:54.241] getGlobalsAndPackagesXApply() ... 1574s [00:52:54.242] - future.globals: TRUE 1574s [00:52:54.242] getGlobalsAndPackages() ... 1574s [00:52:54.242] Searching for globals... 1574s [00:52:54.243] - globals found: [2] ‘FUN’, ‘UseMethod’ 1574s [00:52:54.244] Searching for globals ... DONE 1574s [00:52:54.244] Resolving globals: FALSE 1574s [00:52:54.244] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1574s [00:52:54.245] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1574s [00:52:54.245] - globals: [1] ‘FUN’ 1574s [00:52:54.246] 1574s [00:52:54.246] getGlobalsAndPackages() ... DONE 1574s [00:52:54.246] - globals found/used: [n=1] ‘FUN’ 1574s [00:52:54.246] - needed namespaces: [n=0] 1574s [00:52:54.247] Finding globals ... DONE 1574s [00:52:54.247] - use_args: TRUE 1574s [00:52:54.247] - Getting '...' globals ... 1574s [00:52:54.247] resolve() on list ... 1574s [00:52:54.248] recursive: 0 1574s [00:52:54.248] length: 1 1574s [00:52:54.248] elements: ‘...’ 1574s [00:52:54.249] length: 0 (resolved future 1) 1574s [00:52:54.249] resolve() on list ... DONE 1574s [00:52:54.249] - '...' content: [n=0] 1574s [00:52:54.249] List of 1 1574s [00:52:54.249] $ ...: list() 1574s [00:52:54.249] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1574s [00:52:54.249] - attr(*, "where")=List of 1 1574s [00:52:54.249] ..$ ...: 1574s [00:52:54.249] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1574s [00:52:54.249] - attr(*, "resolved")= logi TRUE 1574s [00:52:54.249] - attr(*, "total_size")= num NA 1574s [00:52:54.254] - Getting '...' globals ... DONE 1574s [00:52:54.254] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1574s [00:52:54.254] List of 2 1574s [00:52:54.254] $ ...future.FUN:function (x, ...) 1574s [00:52:54.254] $ ... : list() 1574s [00:52:54.254] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1574s [00:52:54.254] - attr(*, "where")=List of 2 1574s [00:52:54.254] ..$ ...future.FUN: 1574s [00:52:54.254] ..$ ... : 1574s [00:52:54.254] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1574s [00:52:54.254] - attr(*, "resolved")= logi FALSE 1574s [00:52:54.254] - attr(*, "total_size")= num 1248 1574s [00:52:54.259] Packages to be attached in all futures: [n=0] 1574s [00:52:54.259] getGlobalsAndPackagesXApply() ... DONE 1574s [00:52:54.260] Number of futures (= number of chunks): 1 1574s [00:52:54.260] Launching 1 futures (chunks) ... 1574s [00:52:54.260] Chunk #1 of 1 ... 1574s [00:52:54.261] - Finding globals in 'X' for chunk #1 ... 1574s [00:52:54.262] getGlobalsAndPackages() ... 1574s [00:52:54.262] Searching for globals... 1574s [00:52:54.262] 1574s [00:52:54.263] Searching for globals ... DONE 1574s [00:52:54.263] - globals: [0] 1574s [00:52:54.263] getGlobalsAndPackages() ... DONE 1574s [00:52:54.263] + additional globals found: [n=0] 1574s [00:52:54.263] + additional namespaces needed: [n=0] 1574s [00:52:54.264] - Finding globals in 'X' for chunk #1 ... DONE 1574s [00:52:54.264] - seeds: 1574s [00:52:54.264] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1574s [00:52:54.264] getGlobalsAndPackages() ... 1574s [00:52:54.264] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1574s [00:52:54.264] Resolving globals: FALSE 1574s [00:52:54.265] Tweak future expression to call with '...' arguments ... 1574s [00:52:54.265] { 1574s [00:52:54.265] do.call(function(...) { 1574s [00:52:54.265] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1574s [00:52:54.265] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1574s [00:52:54.265] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1574s [00:52:54.265] on.exit(options(oopts), add = TRUE) 1574s [00:52:54.265] } 1574s [00:52:54.265] { 1574s [00:52:54.265] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1574s [00:52:54.265] ...future.X_jj <- ...future.elements_ii[[jj]] 1574s [00:52:54.265] ...future.FUN(...future.X_jj, ...) 1574s [00:52:54.265] }) 1574s [00:52:54.265] } 1574s [00:52:54.265] }, args = future.call.arguments) 1574s [00:52:54.265] } 1574s [00:52:54.265] Tweak future expression to call with '...' arguments ... DONE 1574s [00:52:54.266] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1574s [00:52:54.266] 1574s [00:52:54.266] getGlobalsAndPackages() ... DONE 1574s [00:52:54.267] run() for ‘Future’ ... 1574s [00:52:54.267] - state: ‘created’ 1574s [00:52:54.267] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1574s [00:52:54.271] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1574s [00:52:54.272] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1574s [00:52:54.272] - Field: ‘label’ 1574s [00:52:54.272] - Field: ‘local’ 1574s [00:52:54.273] - Field: ‘owner’ 1574s [00:52:54.273] - Field: ‘envir’ 1574s [00:52:54.273] - Field: ‘packages’ 1574s [00:52:54.273] - Field: ‘gc’ 1574s [00:52:54.274] - Field: ‘conditions’ 1574s [00:52:54.274] - Field: ‘expr’ 1574s [00:52:54.274] - Field: ‘uuid’ 1574s [00:52:54.275] - Field: ‘seed’ 1574s [00:52:54.275] - Field: ‘version’ 1574s [00:52:54.275] - Field: ‘result’ 1574s [00:52:54.275] - Field: ‘asynchronous’ 1574s [00:52:54.275] - Field: ‘calls’ 1574s [00:52:54.276] - Field: ‘globals’ 1574s [00:52:54.276] - Field: ‘stdout’ 1574s [00:52:54.276] - Field: ‘earlySignal’ 1574s [00:52:54.276] - Field: ‘lazy’ 1574s [00:52:54.276] - Field: ‘state’ 1574s [00:52:54.276] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1574s [00:52:54.277] - Launch lazy future ... 1574s [00:52:54.277] Packages needed by the future expression (n = 0): 1574s [00:52:54.277] Packages needed by future strategies (n = 0): 1574s [00:52:54.278] { 1574s [00:52:54.278] { 1574s [00:52:54.278] { 1574s [00:52:54.278] ...future.startTime <- base::Sys.time() 1574s [00:52:54.278] { 1574s [00:52:54.278] { 1574s [00:52:54.278] { 1574s [00:52:54.278] base::local({ 1574s [00:52:54.278] has_future <- base::requireNamespace("future", 1574s [00:52:54.278] quietly = TRUE) 1574s [00:52:54.278] if (has_future) { 1574s [00:52:54.278] ns <- base::getNamespace("future") 1574s [00:52:54.278] version <- ns[[".package"]][["version"]] 1574s [00:52:54.278] if (is.null(version)) 1574s [00:52:54.278] version <- utils::packageVersion("future") 1574s [00:52:54.278] } 1574s [00:52:54.278] else { 1574s [00:52:54.278] version <- NULL 1574s [00:52:54.278] } 1574s [00:52:54.278] if (!has_future || version < "1.8.0") { 1574s [00:52:54.278] info <- base::c(r_version = base::gsub("R version ", 1574s [00:52:54.278] "", base::R.version$version.string), 1574s [00:52:54.278] platform = base::sprintf("%s (%s-bit)", 1574s [00:52:54.278] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1574s [00:52:54.278] os = base::paste(base::Sys.info()[base::c("sysname", 1574s [00:52:54.278] "release", "version")], collapse = " "), 1574s [00:52:54.278] hostname = base::Sys.info()[["nodename"]]) 1574s [00:52:54.278] info <- base::sprintf("%s: %s", base::names(info), 1574s [00:52:54.278] info) 1574s [00:52:54.278] info <- base::paste(info, collapse = "; ") 1574s [00:52:54.278] if (!has_future) { 1574s [00:52:54.278] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1574s [00:52:54.278] info) 1574s [00:52:54.278] } 1574s [00:52:54.278] else { 1574s [00:52:54.278] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1574s [00:52:54.278] info, version) 1574s [00:52:54.278] } 1574s [00:52:54.278] base::stop(msg) 1574s [00:52:54.278] } 1574s [00:52:54.278] }) 1574s [00:52:54.278] } 1574s [00:52:54.278] options(future.plan = NULL) 1574s [00:52:54.278] Sys.unsetenv("R_FUTURE_PLAN") 1574s [00:52:54.278] future::plan("default", .cleanup = FALSE, .init = FALSE) 1574s [00:52:54.278] } 1574s [00:52:54.278] ...future.workdir <- getwd() 1574s [00:52:54.278] } 1574s [00:52:54.278] ...future.oldOptions <- base::as.list(base::.Options) 1574s [00:52:54.278] ...future.oldEnvVars <- base::Sys.getenv() 1574s [00:52:54.278] } 1574s [00:52:54.278] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1574s [00:52:54.278] future.globals.maxSize = NULL, future.globals.method = NULL, 1574s [00:52:54.278] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1574s [00:52:54.278] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1574s [00:52:54.278] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1574s [00:52:54.278] future.stdout.windows.reencode = NULL, width = 80L) 1574s [00:52:54.278] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1574s [00:52:54.278] base::names(...future.oldOptions)) 1574s [00:52:54.278] } 1574s [00:52:54.278] if (FALSE) { 1574s [00:52:54.278] } 1574s [00:52:54.278] else { 1574s [00:52:54.278] if (TRUE) { 1574s [00:52:54.278] ...future.stdout <- base::rawConnection(base::raw(0L), 1574s [00:52:54.278] open = "w") 1574s [00:52:54.278] } 1574s [00:52:54.278] else { 1574s [00:52:54.278] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1574s [00:52:54.278] windows = "NUL", "/dev/null"), open = "w") 1574s [00:52:54.278] } 1574s [00:52:54.278] base::sink(...future.stdout, type = "output", split = FALSE) 1574s [00:52:54.278] base::on.exit(if (!base::is.null(...future.stdout)) { 1574s [00:52:54.278] base::sink(type = "output", split = FALSE) 1574s [00:52:54.278] base::close(...future.stdout) 1574s [00:52:54.278] }, add = TRUE) 1574s [00:52:54.278] } 1574s [00:52:54.278] ...future.frame <- base::sys.nframe() 1574s [00:52:54.278] ...future.conditions <- base::list() 1574s [00:52:54.278] ...future.rng <- base::globalenv()$.Random.seed 1574s [00:52:54.278] if (FALSE) { 1574s [00:52:54.278] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1574s [00:52:54.278] "...future.value", "...future.globalenv.names", ".Random.seed") 1574s [00:52:54.278] } 1574s [00:52:54.278] ...future.result <- base::tryCatch({ 1574s [00:52:54.278] base::withCallingHandlers({ 1574s [00:52:54.278] ...future.value <- base::withVisible(base::local({ 1574s [00:52:54.278] do.call(function(...) { 1574s [00:52:54.278] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1574s [00:52:54.278] if (!identical(...future.globals.maxSize.org, 1574s [00:52:54.278] ...future.globals.maxSize)) { 1574s [00:52:54.278] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1574s [00:52:54.278] on.exit(options(oopts), add = TRUE) 1574s [00:52:54.278] } 1574s [00:52:54.278] { 1574s [00:52:54.278] lapply(seq_along(...future.elements_ii), 1574s [00:52:54.278] FUN = function(jj) { 1574s [00:52:54.278] ...future.X_jj <- ...future.elements_ii[[jj]] 1574s [00:52:54.278] ...future.FUN(...future.X_jj, ...) 1574s [00:52:54.278] }) 1574s [00:52:54.278] } 1574s [00:52:54.278] }, args = future.call.arguments) 1574s [00:52:54.278] })) 1574s [00:52:54.278] future::FutureResult(value = ...future.value$value, 1574s [00:52:54.278] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1574s [00:52:54.278] ...future.rng), globalenv = if (FALSE) 1574s [00:52:54.278] list(added = base::setdiff(base::names(base::.GlobalEnv), 1574s [00:52:54.278] ...future.globalenv.names)) 1574s [00:52:54.278] else NULL, started = ...future.startTime, version = "1.8") 1574s [00:52:54.278] }, condition = base::local({ 1574s [00:52:54.278] c <- base::c 1574s [00:52:54.278] inherits <- base::inherits 1574s [00:52:54.278] invokeRestart <- base::invokeRestart 1574s [00:52:54.278] length <- base::length 1574s [00:52:54.278] list <- base::list 1574s [00:52:54.278] seq.int <- base::seq.int 1574s [00:52:54.278] signalCondition <- base::signalCondition 1574s [00:52:54.278] sys.calls <- base::sys.calls 1574s [00:52:54.278] `[[` <- base::`[[` 1574s [00:52:54.278] `+` <- base::`+` 1574s [00:52:54.278] `<<-` <- base::`<<-` 1574s [00:52:54.278] sysCalls <- function(calls = sys.calls(), from = 1L) { 1574s [00:52:54.278] calls[seq.int(from = from + 12L, to = length(calls) - 1574s [00:52:54.278] 3L)] 1574s [00:52:54.278] } 1574s [00:52:54.278] function(cond) { 1574s [00:52:54.278] is_error <- inherits(cond, "error") 1574s [00:52:54.278] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1574s [00:52:54.278] NULL) 1574s [00:52:54.278] if (is_error) { 1574s [00:52:54.278] sessionInformation <- function() { 1574s [00:52:54.278] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1574s [00:52:54.278] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1574s [00:52:54.278] search = base::search(), system = base::Sys.info()) 1574s [00:52:54.278] } 1574s [00:52:54.278] ...future.conditions[[length(...future.conditions) + 1574s [00:52:54.278] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1574s [00:52:54.278] cond$call), session = sessionInformation(), 1574s [00:52:54.278] timestamp = base::Sys.time(), signaled = 0L) 1574s [00:52:54.278] signalCondition(cond) 1574s [00:52:54.278] } 1574s [00:52:54.278] else if (!ignore && TRUE && inherits(cond, c("condition", 1574s [00:52:54.278] "immediateCondition"))) { 1574s [00:52:54.278] signal <- TRUE && inherits(cond, "immediateCondition") 1574s [00:52:54.278] ...future.conditions[[length(...future.conditions) + 1574s [00:52:54.278] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1574s [00:52:54.278] if (TRUE && !signal) { 1574s [00:52:54.278] muffleCondition <- function (cond, pattern = "^muffle") 1574s [00:52:54.278] { 1574s [00:52:54.278] inherits <- base::inherits 1574s [00:52:54.278] invokeRestart <- base::invokeRestart 1574s [00:52:54.278] is.null <- base::is.null 1574s [00:52:54.278] muffled <- FALSE 1574s [00:52:54.278] if (inherits(cond, "message")) { 1574s [00:52:54.278] muffled <- grepl(pattern, "muffleMessage") 1574s [00:52:54.278] if (muffled) 1574s [00:52:54.278] invokeRestart("muffleMessage") 1574s [00:52:54.278] } 1574s [00:52:54.278] else if (inherits(cond, "warning")) { 1574s [00:52:54.278] muffled <- grepl(pattern, "muffleWarning") 1574s [00:52:54.278] if (muffled) 1574s [00:52:54.278] invokeRestart("muffleWarning") 1574s [00:52:54.278] } 1574s [00:52:54.278] else if (inherits(cond, "condition")) { 1574s [00:52:54.278] if (!is.null(pattern)) { 1574s [00:52:54.278] computeRestarts <- base::computeRestarts 1574s [00:52:54.278] grepl <- base::grepl 1574s [00:52:54.278] restarts <- computeRestarts(cond) 1574s [00:52:54.278] for (restart in restarts) { 1574s [00:52:54.278] name <- restart$name 1574s [00:52:54.278] if (is.null(name)) 1574s [00:52:54.278] next 1574s [00:52:54.278] if (!grepl(pattern, name)) 1574s [00:52:54.278] next 1574s [00:52:54.278] invokeRestart(restart) 1574s [00:52:54.278] muffled <- TRUE 1574s [00:52:54.278] break 1574s [00:52:54.278] } 1574s [00:52:54.278] } 1574s [00:52:54.278] } 1574s [00:52:54.278] invisible(muffled) 1574s [00:52:54.278] } 1574s [00:52:54.278] muffleCondition(cond, pattern = "^muffle") 1574s [00:52:54.278] } 1574s [00:52:54.278] } 1574s [00:52:54.278] else { 1574s [00:52:54.278] if (TRUE) { 1574s [00:52:54.278] muffleCondition <- function (cond, pattern = "^muffle") 1574s [00:52:54.278] { 1574s [00:52:54.278] inherits <- base::inherits 1574s [00:52:54.278] invokeRestart <- base::invokeRestart 1574s [00:52:54.278] is.null <- base::is.null 1574s [00:52:54.278] muffled <- FALSE 1574s [00:52:54.278] if (inherits(cond, "message")) { 1574s [00:52:54.278] muffled <- grepl(pattern, "muffleMessage") 1574s [00:52:54.278] if (muffled) 1574s [00:52:54.278] invokeRestart("muffleMessage") 1574s [00:52:54.278] } 1574s [00:52:54.278] else if (inherits(cond, "warning")) { 1574s [00:52:54.278] muffled <- grepl(pattern, "muffleWarning") 1574s [00:52:54.278] if (muffled) 1574s [00:52:54.278] invokeRestart("muffleWarning") 1574s [00:52:54.278] } 1574s [00:52:54.278] else if (inherits(cond, "condition")) { 1574s [00:52:54.278] if (!is.null(pattern)) { 1574s [00:52:54.278] computeRestarts <- base::computeRestarts 1574s [00:52:54.278] grepl <- base::grepl 1574s [00:52:54.278] restarts <- computeRestarts(cond) 1574s [00:52:54.278] for (restart in restarts) { 1574s [00:52:54.278] name <- restart$name 1574s [00:52:54.278] if (is.null(name)) 1574s [00:52:54.278] next 1574s [00:52:54.278] if (!grepl(pattern, name)) 1574s [00:52:54.278] next 1574s [00:52:54.278] invokeRestart(restart) 1574s [00:52:54.278] muffled <- TRUE 1574s [00:52:54.278] break 1574s [00:52:54.278] } 1574s [00:52:54.278] } 1574s [00:52:54.278] } 1574s [00:52:54.278] invisible(muffled) 1574s [00:52:54.278] } 1574s [00:52:54.278] muffleCondition(cond, pattern = "^muffle") 1574s [00:52:54.278] } 1574s [00:52:54.278] } 1574s [00:52:54.278] } 1574s [00:52:54.278] })) 1574s [00:52:54.278] }, error = function(ex) { 1574s [00:52:54.278] base::structure(base::list(value = NULL, visible = NULL, 1574s [00:52:54.278] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1574s [00:52:54.278] ...future.rng), started = ...future.startTime, 1574s [00:52:54.278] finished = Sys.time(), session_uuid = NA_character_, 1574s [00:52:54.278] version = "1.8"), class = "FutureResult") 1574s [00:52:54.278] }, finally = { 1574s [00:52:54.278] if (!identical(...future.workdir, getwd())) 1574s [00:52:54.278] setwd(...future.workdir) 1574s [00:52:54.278] { 1574s [00:52:54.278] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1574s [00:52:54.278] ...future.oldOptions$nwarnings <- NULL 1574s [00:52:54.278] } 1574s [00:52:54.278] base::options(...future.oldOptions) 1574s [00:52:54.278] if (.Platform$OS.type == "windows") { 1574s [00:52:54.278] old_names <- names(...future.oldEnvVars) 1574s [00:52:54.278] envs <- base::Sys.getenv() 1574s [00:52:54.278] names <- names(envs) 1574s [00:52:54.278] common <- intersect(names, old_names) 1574s [00:52:54.278] added <- setdiff(names, old_names) 1574s [00:52:54.278] removed <- setdiff(old_names, names) 1574s [00:52:54.278] changed <- common[...future.oldEnvVars[common] != 1574s [00:52:54.278] envs[common]] 1574s [00:52:54.278] NAMES <- toupper(changed) 1574s [00:52:54.278] args <- list() 1574s [00:52:54.278] for (kk in seq_along(NAMES)) { 1574s [00:52:54.278] name <- changed[[kk]] 1574s [00:52:54.278] NAME <- NAMES[[kk]] 1574s [00:52:54.278] if (name != NAME && is.element(NAME, old_names)) 1574s [00:52:54.278] next 1574s [00:52:54.278] args[[name]] <- ...future.oldEnvVars[[name]] 1574s [00:52:54.278] } 1574s [00:52:54.278] NAMES <- toupper(added) 1574s [00:52:54.278] for (kk in seq_along(NAMES)) { 1574s [00:52:54.278] name <- added[[kk]] 1574s [00:52:54.278] NAME <- NAMES[[kk]] 1574s [00:52:54.278] if (name != NAME && is.element(NAME, old_names)) 1574s [00:52:54.278] next 1574s [00:52:54.278] args[[name]] <- "" 1574s [00:52:54.278] } 1574s [00:52:54.278] NAMES <- toupper(removed) 1574s [00:52:54.278] for (kk in seq_along(NAMES)) { 1574s [00:52:54.278] name <- removed[[kk]] 1574s [00:52:54.278] NAME <- NAMES[[kk]] 1574s [00:52:54.278] if (name != NAME && is.element(NAME, old_names)) 1574s [00:52:54.278] next 1574s [00:52:54.278] args[[name]] <- ...future.oldEnvVars[[name]] 1574s [00:52:54.278] } 1574s [00:52:54.278] if (length(args) > 0) 1574s [00:52:54.278] base::do.call(base::Sys.setenv, args = args) 1574s [00:52:54.278] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1574s [00:52:54.278] } 1574s [00:52:54.278] else { 1574s [00:52:54.278] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1574s [00:52:54.278] } 1574s [00:52:54.278] { 1574s [00:52:54.278] if (base::length(...future.futureOptionsAdded) > 1574s [00:52:54.278] 0L) { 1574s [00:52:54.278] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1574s [00:52:54.278] base::names(opts) <- ...future.futureOptionsAdded 1574s [00:52:54.278] base::options(opts) 1574s [00:52:54.278] } 1574s [00:52:54.278] { 1574s [00:52:54.278] { 1574s [00:52:54.278] NULL 1574s [00:52:54.278] RNGkind("Mersenne-Twister") 1574s [00:52:54.278] base::rm(list = ".Random.seed", envir = base::globalenv(), 1574s [00:52:54.278] inherits = FALSE) 1574s [00:52:54.278] } 1574s [00:52:54.278] options(future.plan = NULL) 1574s [00:52:54.278] if (is.na(NA_character_)) 1574s [00:52:54.278] Sys.unsetenv("R_FUTURE_PLAN") 1574s [00:52:54.278] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1574s [00:52:54.278] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1574s [00:52:54.278] envir = parent.frame()) 1574s [00:52:54.278] { 1574s [00:52:54.278] default_workers <- missing(workers) 1574s [00:52:54.278] if (is.function(workers)) 1574s [00:52:54.278] workers <- workers() 1574s [00:52:54.278] workers <- structure(as.integer(workers), 1574s [00:52:54.278] class = class(workers)) 1574s [00:52:54.278] stop_if_not(is.finite(workers), workers >= 1574s [00:52:54.278] 1L) 1574s [00:52:54.278] if ((workers == 1L && !inherits(workers, 1574s [00:52:54.278] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1574s [00:52:54.278] if (default_workers) 1574s [00:52:54.278] supportsMulticore(warn = TRUE) 1574s [00:52:54.278] return(sequential(..., envir = envir)) 1574s [00:52:54.278] } 1574s [00:52:54.278] oopts <- options(mc.cores = workers) 1574s [00:52:54.278] on.exit(options(oopts)) 1574s [00:52:54.278] future <- MulticoreFuture(..., workers = workers, 1574s [00:52:54.278] envir = envir) 1574s [00:52:54.278] if (!future$lazy) 1574s [00:52:54.278] future <- run(future) 1574s [00:52:54.278] invisible(future) 1574s [00:52:54.278] }), .cleanup = FALSE, .init = FALSE) 1574s [00:52:54.278] } 1574s [00:52:54.278] } 1574s [00:52:54.278] } 1574s [00:52:54.278] }) 1574s [00:52:54.278] if (TRUE) { 1574s [00:52:54.278] base::sink(type = "output", split = FALSE) 1574s [00:52:54.278] if (TRUE) { 1574s [00:52:54.278] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1574s [00:52:54.278] } 1574s [00:52:54.278] else { 1574s [00:52:54.278] ...future.result["stdout"] <- base::list(NULL) 1574s [00:52:54.278] } 1574s [00:52:54.278] base::close(...future.stdout) 1574s [00:52:54.278] ...future.stdout <- NULL 1574s [00:52:54.278] } 1574s [00:52:54.278] ...future.result$conditions <- ...future.conditions 1574s [00:52:54.278] ...future.result$finished <- base::Sys.time() 1574s [00:52:54.278] ...future.result 1574s [00:52:54.278] } 1574s [00:52:54.283] assign_globals() ... 1574s [00:52:54.283] List of 5 1574s [00:52:54.283] $ ...future.FUN :function (x, ...) 1574s [00:52:54.283] $ future.call.arguments : list() 1574s [00:52:54.283] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1574s [00:52:54.283] $ ...future.elements_ii :List of 3 1574s [00:52:54.283] ..$ a: num 1 1574s [00:52:54.283] ..$ b: num 2 1574s [00:52:54.283] ..$ c: num 3 1574s [00:52:54.283] $ ...future.seeds_ii : NULL 1574s [00:52:54.283] $ ...future.globals.maxSize: NULL 1574s [00:52:54.283] - attr(*, "where")=List of 5 1574s [00:52:54.283] ..$ ...future.FUN : 1574s [00:52:54.283] ..$ future.call.arguments : 1574s [00:52:54.283] ..$ ...future.elements_ii : 1574s [00:52:54.283] ..$ ...future.seeds_ii : 1574s [00:52:54.283] ..$ ...future.globals.maxSize: 1574s [00:52:54.283] - attr(*, "resolved")= logi FALSE 1574s [00:52:54.283] - attr(*, "total_size")= num 1248 1574s [00:52:54.283] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1574s [00:52:54.283] - attr(*, "already-done")= logi TRUE 1574s [00:52:54.294] - copied ‘...future.FUN’ to environment 1574s [00:52:54.295] - copied ‘future.call.arguments’ to environment 1574s [00:52:54.295] - copied ‘...future.elements_ii’ to environment 1574s [00:52:54.295] - copied ‘...future.seeds_ii’ to environment 1574s [00:52:54.295] - copied ‘...future.globals.maxSize’ to environment 1574s [00:52:54.296] assign_globals() ... done 1574s [00:52:54.296] plan(): Setting new future strategy stack: 1574s [00:52:54.296] List of future strategies: 1574s [00:52:54.296] 1. sequential: 1574s [00:52:54.296] - args: function (..., envir = parent.frame()) 1574s [00:52:54.296] - tweaked: FALSE 1574s [00:52:54.296] - call: NULL 1574s [00:52:54.297] plan(): nbrOfWorkers() = 1 1574s [00:52:54.298] plan(): Setting new future strategy stack: 1574s [00:52:54.298] List of future strategies: 1574s [00:52:54.298] 1. multicore: 1574s [00:52:54.298] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1574s [00:52:54.298] - tweaked: FALSE 1574s [00:52:54.298] - call: plan(strategy) 1574s [00:52:54.303] plan(): nbrOfWorkers() = 1 1574s [00:52:54.303] SequentialFuture started (and completed) 1574s [00:52:54.304] - Launch lazy future ... done 1574s [00:52:54.304] run() for ‘SequentialFuture’ ... done 1574s [00:52:54.305] Created future: 1574s [00:52:54.305] SequentialFuture: 1574s [00:52:54.305] Label: ‘future_sapply-1’ 1574s [00:52:54.305] Expression: 1574s [00:52:54.305] { 1574s [00:52:54.305] do.call(function(...) { 1574s [00:52:54.305] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1574s [00:52:54.305] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1574s [00:52:54.305] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1574s [00:52:54.305] on.exit(options(oopts), add = TRUE) 1574s [00:52:54.305] } 1574s [00:52:54.305] { 1574s [00:52:54.305] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1574s [00:52:54.305] ...future.X_jj <- ...future.elements_ii[[jj]] 1574s [00:52:54.305] ...future.FUN(...future.X_jj, ...) 1574s [00:52:54.305] }) 1574s [00:52:54.305] } 1574s [00:52:54.305] }, args = future.call.arguments) 1574s [00:52:54.305] } 1574s [00:52:54.305] Lazy evaluation: FALSE 1574s [00:52:54.305] Asynchronous evaluation: FALSE 1574s [00:52:54.305] Local evaluation: TRUE 1574s [00:52:54.305] Environment: R_GlobalEnv 1574s [00:52:54.305] Capture standard output: TRUE 1574s [00:52:54.305] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1574s [00:52:54.305] Globals: 5 objects totaling 1.38 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1574s [00:52:54.305] Packages: 1574s [00:52:54.305] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1574s [00:52:54.305] Resolved: TRUE 1574s [00:52:54.305] Value: 672 bytes of class ‘list’ 1574s [00:52:54.305] Early signaling: FALSE 1574s [00:52:54.305] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1574s [00:52:54.305] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1574s [00:52:54.308] Chunk #1 of 1 ... DONE 1574s [00:52:54.308] Launching 1 futures (chunks) ... DONE 1574s [00:52:54.308] Resolving 1 futures (chunks) ... 1574s [00:52:54.308] resolve() on list ... 1574s [00:52:54.309] recursive: 0 1574s [00:52:54.309] length: 1 1574s [00:52:54.309] 1574s [00:52:54.309] resolved() for ‘SequentialFuture’ ... 1574s [00:52:54.309] - state: ‘finished’ 1574s [00:52:54.309] - run: TRUE 1574s [00:52:54.310] - result: ‘FutureResult’ 1574s [00:52:54.310] resolved() for ‘SequentialFuture’ ... done 1574s [00:52:54.311] Future #1 1574s [00:52:54.312] signalConditionsASAP(SequentialFuture, pos=1) ... 1574s [00:52:54.312] - nx: 1 1574s [00:52:54.312] - relay: TRUE 1574s [00:52:54.312] - stdout: TRUE 1574s [00:52:54.312] - signal: TRUE 1574s [00:52:54.312] - resignal: FALSE 1574s [00:52:54.313] - force: TRUE 1574s [00:52:54.314] - relayed: [n=1] FALSE 1574s [00:52:54.314] - queued futures: [n=1] FALSE 1574s [00:52:54.314] - until=1 1574s [00:52:54.315] - relaying element #1 1574s [00:52:54.316] - relayed: [n=1] TRUE 1574s [00:52:54.316] - queued futures: [n=1] TRUE 1574s [00:52:54.316] signalConditionsASAP(SequentialFuture, pos=1) ... done 1574s [00:52:54.316] length: 0 (resolved future 1) 1574s [00:52:54.316] Relaying remaining futures 1574s [00:52:54.316] signalConditionsASAP(NULL, pos=0) ... 1574s [00:52:54.317] - nx: 1 1574s [00:52:54.317] - relay: TRUE 1574s [00:52:54.317] - stdout: TRUE 1574s [00:52:54.317] - signal: TRUE 1574s [00:52:54.317] - resignal: FALSE 1574s [00:52:54.317] - force: TRUE 1574s [00:52:54.317] - relayed: [n=1] TRUE 1574s [00:52:54.317] - queued futures: [n=1] TRUE 1574s - flush all 1574s [00:52:54.318] - relayed: [n=1] TRUE 1574s [00:52:54.318] - queued futures: [n=1] TRUE 1574s [00:52:54.318] signalConditionsASAP(NULL, pos=0) ... done 1574s [00:52:54.318] resolve() on list ... DONE 1574s [00:52:54.319] - Number of value chunks collected: 1 1574s [00:52:54.319] Resolving 1 futures (chunks) ... DONE 1574s [00:52:54.319] Reducing values from 1 chunks ... 1574s [00:52:54.319] - Number of values collected after concatenation: 3 1574s [00:52:54.319] - Number of values expected: 3 1574s [00:52:54.320] Reducing values from 1 chunks ... DONE 1574s [00:52:54.320] future_lapply() ... DONE 1574s List of 2 1574s $ y0: Named num [1:3] 1 2 3 1574s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1574s $ y1: Named num [1:3] 1 2 3 1574s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1574s [00:52:54.325] future_lapply() ... 1574s [00:52:54.330] Number of chunks: 1 1574s [00:52:54.331] getGlobalsAndPackagesXApply() ... 1574s [00:52:54.331] - future.globals: TRUE 1574s [00:52:54.331] getGlobalsAndPackages() ... 1574s [00:52:54.331] Searching for globals... 1574s [00:52:54.334] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1574s [00:52:54.334] Searching for globals ... DONE 1574s [00:52:54.334] Resolving globals: FALSE 1574s [00:52:54.335] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1574s [00:52:54.335] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1574s [00:52:54.335] - globals: [1] ‘FUN’ 1574s [00:52:54.335] 1574s [00:52:54.336] getGlobalsAndPackages() ... DONE 1574s [00:52:54.336] - globals found/used: [n=1] ‘FUN’ 1574s [00:52:54.336] - needed namespaces: [n=0] 1574s [00:52:54.336] Finding globals ... DONE 1574s [00:52:54.336] - use_args: TRUE 1574s [00:52:54.336] - Getting '...' globals ... 1574s [00:52:54.337] resolve() on list ... 1574s [00:52:54.337] recursive: 0 1574s [00:52:54.337] length: 1 1574s [00:52:54.337] elements: ‘...’ 1574s [00:52:54.337] length: 0 (resolved future 1) 1574s [00:52:54.337] resolve() on list ... DONE 1574s [00:52:54.337] - '...' content: [n=0] 1574s [00:52:54.338] List of 1 1574s [00:52:54.338] $ ...: list() 1574s [00:52:54.338] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1574s [00:52:54.338] - attr(*, "where")=List of 1 1574s [00:52:54.338] ..$ ...: 1574s [00:52:54.338] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1574s [00:52:54.338] - attr(*, "resolved")= logi TRUE 1574s [00:52:54.338] - attr(*, "total_size")= num NA 1574s [00:52:54.342] - Getting '...' globals ... DONE 1574s [00:52:54.342] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1574s [00:52:54.342] List of 2 1574s [00:52:54.342] $ ...future.FUN:function (x, y = 2 * 1:5) 1574s [00:52:54.342] $ ... : list() 1574s [00:52:54.342] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1574s [00:52:54.342] - attr(*, "where")=List of 2 1574s [00:52:54.342] ..$ ...future.FUN: 1574s [00:52:54.342] ..$ ... : 1574s [00:52:54.342] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1574s [00:52:54.342] - attr(*, "resolved")= logi FALSE 1574s [00:52:54.342] - attr(*, "total_size")= num 4728 1574s [00:52:54.347] Packages to be attached in all futures: [n=0] 1574s [00:52:54.347] getGlobalsAndPackagesXApply() ... DONE 1574s [00:52:54.347] Number of futures (= number of chunks): 1 1574s [00:52:54.348] Launching 1 futures (chunks) ... 1574s [00:52:54.348] Chunk #1 of 1 ... 1574s [00:52:54.348] - Finding globals in 'X' for chunk #1 ... 1574s [00:52:54.348] getGlobalsAndPackages() ... 1574s [00:52:54.348] Searching for globals... 1574s [00:52:54.349] 1574s [00:52:54.349] Searching for globals ... DONE 1574s [00:52:54.349] - globals: [0] 1575s [00:52:54.350] getGlobalsAndPackages() ... DONE 1575s [00:52:54.350] + additional globals found: [n=0] 1575s [00:52:54.350] + additional namespaces needed: [n=0] 1575s [00:52:54.350] - Finding globals in 'X' for chunk #1 ... DONE 1575s [00:52:54.351] - seeds: 1575s [00:52:54.351] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:54.352] getGlobalsAndPackages() ... 1575s [00:52:54.352] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:54.353] Resolving globals: FALSE 1575s [00:52:54.354] Tweak future expression to call with '...' arguments ... 1575s [00:52:54.354] { 1575s [00:52:54.354] do.call(function(...) { 1575s [00:52:54.354] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:54.354] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1575s [00:52:54.354] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:54.354] on.exit(options(oopts), add = TRUE) 1575s [00:52:54.354] } 1575s [00:52:54.354] { 1575s [00:52:54.354] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1575s [00:52:54.354] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:54.354] ...future.FUN(...future.X_jj, ...) 1575s [00:52:54.354] }) 1575s [00:52:54.354] } 1575s [00:52:54.354] }, args = future.call.arguments) 1575s [00:52:54.354] } 1575s List[00:52:54.355] Tweak future expression to call with '...' arguments ... DONE 1575s [00:52:54.355] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:54.356] 1575s [00:52:54.356] getGlobalsAndPackages() ... DONE 1575s [00:52:54.356] run() for ‘Future’ ... 1575s [00:52:54.356] - state: ‘created’ 1575s [00:52:54.357] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1575s [00:52:54.363] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1575s [00:52:54.363] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1575s [00:52:54.363] - Field: ‘label’ 1575s [00:52:54.363] - Field: ‘local’ 1575s [00:52:54.363] - Field: ‘owner’ 1575s [00:52:54.364] - Field: ‘envir’ 1575s [00:52:54.364] - Field: ‘packages’ 1575s [00:52:54.364] - Field: ‘gc’ 1575s [00:52:54.364] - Field: ‘conditions’ 1575s [00:52:54.365] - Field: ‘expr’ 1575s [00:52:54.365] - Field: ‘uuid’ 1575s [00:52:54.365] - Field: ‘seed’ 1575s [00:52:54.365] - Field: ‘version’ 1575s [00:52:54.366] - Field: ‘result’ 1575s [00:52:54.366] - Field: ‘asynchronous’ 1575s [00:52:54.366] - Field: ‘calls’ 1575s [00:52:54.367] - Field: ‘globals’ 1575s [00:52:54.367] - Field: ‘stdout’ 1575s [00:52:54.367] - Field: ‘earlySignal’ 1575s [00:52:54.368] - Field: ‘lazy’ 1575s [00:52:54.368] - Field: ‘state’ 1575s [00:52:54.368] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1575s [00:52:54.368] - Launch lazy future ... 1575s [00:52:54.369] Packages needed by the future expression (n = 0): 1575s [00:52:54.369] Packages needed by future strategies (n = 0): 1575s [00:52:54.370] { 1575s [00:52:54.370] { 1575s [00:52:54.370] { 1575s [00:52:54.370] ...future.startTime <- base::Sys.time() 1575s [00:52:54.370] { 1575s [00:52:54.370] { 1575s [00:52:54.370] { 1575s [00:52:54.370] base::local({ 1575s [00:52:54.370] has_future <- base::requireNamespace("future", 1575s [00:52:54.370] quietly = TRUE) 1575s [00:52:54.370] if (has_future) { 1575s [00:52:54.370] ns <- base::getNamespace("future") 1575s [00:52:54.370] version <- ns[[".package"]][["version"]] 1575s [00:52:54.370] if (is.null(version)) 1575s [00:52:54.370] version <- utils::packageVersion("future") 1575s [00:52:54.370] } 1575s [00:52:54.370] else { 1575s [00:52:54.370] version <- NULL 1575s [00:52:54.370] } 1575s [00:52:54.370] if (!has_future || version < "1.8.0") { 1575s [00:52:54.370] info <- base::c(r_version = base::gsub("R version ", 1575s [00:52:54.370] "", base::R.version$version.string), 1575s [00:52:54.370] platform = base::sprintf("%s (%s-bit)", 1575s [00:52:54.370] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1575s [00:52:54.370] os = base::paste(base::Sys.info()[base::c("sysname", 1575s [00:52:54.370] "release", "version")], collapse = " "), 1575s [00:52:54.370] hostname = base::Sys.info()[["nodename"]]) 1575s [00:52:54.370] info <- base::sprintf("%s: %s", base::names(info), 1575s [00:52:54.370] info) 1575s [00:52:54.370] info <- base::paste(info, collapse = "; ") 1575s [00:52:54.370] if (!has_future) { 1575s [00:52:54.370] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1575s [00:52:54.370] info) 1575s [00:52:54.370] } 1575s [00:52:54.370] else { 1575s [00:52:54.370] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1575s [00:52:54.370] info, version) 1575s [00:52:54.370] } 1575s [00:52:54.370] base::stop(msg) 1575s [00:52:54.370] } 1575s [00:52:54.370] }) 1575s [00:52:54.370] } 1575s [00:52:54.370] options(future.plan = NULL) 1575s [00:52:54.370] Sys.unsetenv("R_FUTURE_PLAN") 1575s [00:52:54.370] future::plan("default", .cleanup = FALSE, .init = FALSE) 1575s [00:52:54.370] } 1575s [00:52:54.370] ...future.workdir <- getwd() 1575s [00:52:54.370] } 1575s [00:52:54.370] ...future.oldOptions <- base::as.list(base::.Options) 1575s [00:52:54.370] ...future.oldEnvVars <- base::Sys.getenv() 1575s [00:52:54.370] } 1575s [00:52:54.370] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1575s [00:52:54.370] future.globals.maxSize = NULL, future.globals.method = NULL, 1575s [00:52:54.370] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1575s [00:52:54.370] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1575s [00:52:54.370] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1575s [00:52:54.370] future.stdout.windows.reencode = NULL, width = 80L) 1575s [00:52:54.370] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1575s [00:52:54.370] base::names(...future.oldOptions)) 1575s [00:52:54.370] } 1575s [00:52:54.370] if (FALSE) { 1575s [00:52:54.370] } 1575s [00:52:54.370] else { 1575s [00:52:54.370] if (TRUE) { 1575s [00:52:54.370] ...future.stdout <- base::rawConnection(base::raw(0L), 1575s [00:52:54.370] open = "w") 1575s [00:52:54.370] } 1575s [00:52:54.370] else { 1575s [00:52:54.370] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1575s [00:52:54.370] windows = "NUL", "/dev/null"), open = "w") 1575s [00:52:54.370] } 1575s [00:52:54.370] base::sink(...future.stdout, type = "output", split = FALSE) 1575s [00:52:54.370] base::on.exit(if (!base::is.null(...future.stdout)) { 1575s [00:52:54.370] base::sink(type = "output", split = FALSE) 1575s [00:52:54.370] base::close(...future.stdout) 1575s [00:52:54.370] }, add = TRUE) 1575s [00:52:54.370] } 1575s [00:52:54.370] ...future.frame <- base::sys.nframe() 1575s [00:52:54.370] ...future.conditions <- base::list() 1575s [00:52:54.370] ...future.rng <- base::globalenv()$.Random.seed 1575s [00:52:54.370] if (FALSE) { 1575s [00:52:54.370] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1575s [00:52:54.370] "...future.value", "...future.globalenv.names", ".Random.seed") 1575s [00:52:54.370] } 1575s [00:52:54.370] ...future.result <- base::tryCatch({ 1575s [00:52:54.370] base::withCallingHandlers({ 1575s [00:52:54.370] ...future.value <- base::withVisible(base::local({ 1575s [00:52:54.370] do.call(function(...) { 1575s [00:52:54.370] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:54.370] if (!identical(...future.globals.maxSize.org, 1575s [00:52:54.370] ...future.globals.maxSize)) { 1575s [00:52:54.370] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:54.370] on.exit(options(oopts), add = TRUE) 1575s [00:52:54.370] } 1575s [00:52:54.370] { 1575s [00:52:54.370] lapply(seq_along(...future.elements_ii), 1575s [00:52:54.370] FUN = function(jj) { 1575s [00:52:54.370] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:54.370] ...future.FUN(...future.X_jj, ...) 1575s [00:52:54.370] }) 1575s [00:52:54.370] } 1575s [00:52:54.370] }, args = future.call.arguments) 1575s [00:52:54.370] })) 1575s [00:52:54.370] future::FutureResult(value = ...future.value$value, 1575s [00:52:54.370] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1575s [00:52:54.370] ...future.rng), globalenv = if (FALSE) 1575s [00:52:54.370] list(added = base::setdiff(base::names(base::.GlobalEnv), 1575s [00:52:54.370] ...future.globalenv.names)) 1575s [00:52:54.370] else NULL, started = ...future.startTime, version = "1.8") 1575s [00:52:54.370] }, condition = base::local({ 1575s [00:52:54.370] c <- base::c 1575s [00:52:54.370] inherits <- base::inherits 1575s [00:52:54.370] invokeRestart <- base::invokeRestart 1575s [00:52:54.370] length <- base::length 1575s [00:52:54.370] list <- base::list 1575s [00:52:54.370] seq.int <- base::seq.int 1575s [00:52:54.370] signalCondition <- base::signalCondition 1575s [00:52:54.370] sys.calls <- base::sys.calls 1575s [00:52:54.370] `[[` <- base::`[[` 1575s [00:52:54.370] `+` <- base::`+` 1575s [00:52:54.370] `<<-` <- base::`<<-` 1575s [00:52:54.370] sysCalls <- function(calls = sys.calls(), from = 1L) { 1575s [00:52:54.370] calls[seq.int(from = from + 12L, to = length(calls) - 1575s [00:52:54.370] 3L)] 1575s [00:52:54.370] } 1575s [00:52:54.370] function(cond) { 1575s [00:52:54.370] is_error <- inherits(cond, "error") 1575s [00:52:54.370] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1575s [00:52:54.370] NULL) 1575s [00:52:54.370] if (is_error) { 1575s [00:52:54.370] sessionInformation <- function() { 1575s [00:52:54.370] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1575s [00:52:54.370] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1575s [00:52:54.370] search = base::search(), system = base::Sys.info()) 1575s [00:52:54.370] } 1575s [00:52:54.370] ...future.conditions[[length(...future.conditions) + 1575s [00:52:54.370] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1575s [00:52:54.370] cond$call), session = sessionInformation(), 1575s [00:52:54.370] timestamp = base::Sys.time(), signaled = 0L) 1575s [00:52:54.370] signalCondition(cond) 1575s [00:52:54.370] } 1575s [00:52:54.370] else if (!ignore && TRUE && inherits(cond, c("condition", 1575s [00:52:54.370] "immediateCondition"))) { 1575s [00:52:54.370] signal <- TRUE && inherits(cond, "immediateCondition") 1575s [00:52:54.370] ...future.conditions[[length(...future.conditions) + 1575s [00:52:54.370] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1575s [00:52:54.370] if (TRUE && !signal) { 1575s [00:52:54.370] muffleCondition <- function (cond, pattern = "^muffle") 1575s [00:52:54.370] { 1575s [00:52:54.370] inherits <- base::inherits 1575s [00:52:54.370] invokeRestart <- base::invokeRestart 1575s [00:52:54.370] is.null <- base::is.null 1575s [00:52:54.370] muffled <- FALSE 1575s [00:52:54.370] if (inherits(cond, "message")) { 1575s [00:52:54.370] muffled <- grepl(pattern, "muffleMessage") 1575s [00:52:54.370] if (muffled) 1575s [00:52:54.370] invokeRestart("muffleMessage") 1575s [00:52:54.370] } 1575s [00:52:54.370] else if (inherits(cond, "warning")) { 1575s [00:52:54.370] muffled <- grepl(pattern, "muffleWarning") 1575s [00:52:54.370] if (muffled) 1575s [00:52:54.370] invokeRestart("muffleWarning") 1575s [00:52:54.370] } 1575s [00:52:54.370] else if (inherits(cond, "condition")) { 1575s [00:52:54.370] if (!is.null(pattern)) { 1575s [00:52:54.370] computeRestarts <- base::computeRestarts 1575s [00:52:54.370] grepl <- base::grepl 1575s [00:52:54.370] restarts <- computeRestarts(cond) 1575s [00:52:54.370] for (restart in restarts) { 1575s [00:52:54.370] name <- restart$name 1575s [00:52:54.370] if (is.null(name)) 1575s [00:52:54.370] next 1575s [00:52:54.370] if (!grepl(pattern, name)) 1575s [00:52:54.370] next 1575s [00:52:54.370] invokeRestart(restart) 1575s [00:52:54.370] muffled <- TRUE 1575s [00:52:54.370] break 1575s [00:52:54.370] } 1575s [00:52:54.370] } 1575s [00:52:54.370] } 1575s [00:52:54.370] invisible(muffled) 1575s [00:52:54.370] } 1575s [00:52:54.370] muffleCondition(cond, pattern = "^muffle") 1575s [00:52:54.370] } 1575s [00:52:54.370] } 1575s [00:52:54.370] else { 1575s [00:52:54.370] if (TRUE) { 1575s [00:52:54.370] muffleCondition <- function (cond, pattern = "^muffle") 1575s [00:52:54.370] { 1575s [00:52:54.370] inherits <- base::inherits 1575s [00:52:54.370] invokeRestart <- base::invokeRestart 1575s [00:52:54.370] is.null <- base::is.null 1575s [00:52:54.370] muffled <- FALSE 1575s [00:52:54.370] if (inherits(cond, "message")) { 1575s [00:52:54.370] muffled <- grepl(pattern, "muffleMessage") 1575s [00:52:54.370] if (muffled) 1575s [00:52:54.370] invokeRestart("muffleMessage") 1575s [00:52:54.370] } 1575s [00:52:54.370] else if (inherits(cond, "warning")) { 1575s [00:52:54.370] muffled <- grepl(pattern, "muffleWarning") 1575s [00:52:54.370] if (muffled) 1575s [00:52:54.370] invokeRestart("muffleWarning") 1575s [00:52:54.370] } 1575s [00:52:54.370] else if (inherits(cond, "condition")) { 1575s [00:52:54.370] if (!is.null(pattern)) { 1575s [00:52:54.370] computeRestarts <- base::computeRestarts 1575s [00:52:54.370] grepl <- base::grepl 1575s [00:52:54.370] restarts <- computeRestarts(cond) 1575s [00:52:54.370] for (restart in restarts) { 1575s [00:52:54.370] name <- restart$name 1575s [00:52:54.370] if (is.null(name)) 1575s [00:52:54.370] next 1575s [00:52:54.370] if (!grepl(pattern, name)) 1575s [00:52:54.370] next 1575s [00:52:54.370] invokeRestart(restart) 1575s [00:52:54.370] muffled <- TRUE 1575s [00:52:54.370] break 1575s [00:52:54.370] } 1575s [00:52:54.370] } 1575s [00:52:54.370] } 1575s [00:52:54.370] invisible(muffled) 1575s [00:52:54.370] } 1575s [00:52:54.370] muffleCondition(cond, pattern = "^muffle") 1575s [00:52:54.370] } 1575s [00:52:54.370] } 1575s [00:52:54.370] } 1575s [00:52:54.370] })) 1575s [00:52:54.370] }, error = function(ex) { 1575s [00:52:54.370] base::structure(base::list(value = NULL, visible = NULL, 1575s [00:52:54.370] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1575s [00:52:54.370] ...future.rng), started = ...future.startTime, 1575s [00:52:54.370] finished = Sys.time(), session_uuid = NA_character_, 1575s [00:52:54.370] version = "1.8"), class = "FutureResult") 1575s [00:52:54.370] }, finally = { 1575s [00:52:54.370] if (!identical(...future.workdir, getwd())) 1575s [00:52:54.370] setwd(...future.workdir) 1575s [00:52:54.370] { 1575s [00:52:54.370] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1575s [00:52:54.370] ...future.oldOptions$nwarnings <- NULL 1575s [00:52:54.370] } 1575s [00:52:54.370] base::options(...future.oldOptions) 1575s [00:52:54.370] if (.Platform$OS.type == "windows") { 1575s [00:52:54.370] old_names <- names(...future.oldEnvVars) 1575s [00:52:54.370] envs <- base::Sys.getenv() 1575s [00:52:54.370] names <- names(envs) 1575s [00:52:54.370] common <- intersect(names, old_names) 1575s [00:52:54.370] added <- setdiff(names, old_names) 1575s [00:52:54.370] removed <- setdiff(old_names, names) 1575s [00:52:54.370] changed <- common[...future.oldEnvVars[common] != 1575s [00:52:54.370] envs[common]] 1575s [00:52:54.370] NAMES <- toupper(changed) 1575s [00:52:54.370] args <- list() 1575s [00:52:54.370] for (kk in seq_along(NAMES)) { 1575s [00:52:54.370] name <- changed[[kk]] 1575s [00:52:54.370] NAME <- NAMES[[kk]] 1575s [00:52:54.370] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:54.370] next 1575s [00:52:54.370] args[[name]] <- ...future.oldEnvVars[[name]] 1575s [00:52:54.370] } 1575s [00:52:54.370] NAMES <- toupper(added) 1575s [00:52:54.370] for (kk in seq_along(NAMES)) { 1575s [00:52:54.370] name <- added[[kk]] 1575s [00:52:54.370] NAME <- NAMES[[kk]] 1575s [00:52:54.370] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:54.370] next 1575s [00:52:54.370] args[[name]] <- "" 1575s [00:52:54.370] } 1575s [00:52:54.370] NAMES <- toupper(removed) 1575s [00:52:54.370] for (kk in seq_along(NAMES)) { 1575s [00:52:54.370] name <- removed[[kk]] 1575s [00:52:54.370] NAME <- NAMES[[kk]] 1575s [00:52:54.370] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:54.370] next 1575s [00:52:54.370] args[[name]] <- ...future.oldEnvVars[[name]] 1575s [00:52:54.370] } 1575s [00:52:54.370] if (length(args) > 0) 1575s [00:52:54.370] base::do.call(base::Sys.setenv, args = args) 1575s [00:52:54.370] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1575s [00:52:54.370] } 1575s [00:52:54.370] else { 1575s [00:52:54.370] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1575s [00:52:54.370] } 1575s [00:52:54.370] { 1575s [00:52:54.370] if (base::length(...future.futureOptionsAdded) > 1575s [00:52:54.370] 0L) { 1575s [00:52:54.370] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1575s [00:52:54.370] base::names(opts) <- ...future.futureOptionsAdded 1575s [00:52:54.370] base::options(opts) 1575s [00:52:54.370] } 1575s [00:52:54.370] { 1575s [00:52:54.370] { 1575s [00:52:54.370] NULL 1575s [00:52:54.370] RNGkind("Mersenne-Twister") 1575s [00:52:54.370] base::rm(list = ".Random.seed", envir = base::globalenv(), 1575s [00:52:54.370] inherits = FALSE) 1575s [00:52:54.370] } 1575s [00:52:54.370] options(future.plan = NULL) 1575s [00:52:54.370] if (is.na(NA_character_)) 1575s [00:52:54.370] Sys.unsetenv("R_FUTURE_PLAN") 1575s [00:52:54.370] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1575s [00:52:54.370] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1575s [00:52:54.370] envir = parent.frame()) 1575s [00:52:54.370] { 1575s [00:52:54.370] default_workers <- missing(workers) 1575s [00:52:54.370] if (is.function(workers)) 1575s [00:52:54.370] workers <- workers() 1575s [00:52:54.370] workers <- structure(as.integer(workers), 1575s [00:52:54.370] class = class(workers)) 1575s [00:52:54.370] stop_if_not(is.finite(workers), workers >= 1575s [00:52:54.370] 1L) 1575s [00:52:54.370] if ((workers == 1L && !inherits(workers, 1575s [00:52:54.370] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1575s [00:52:54.370] if (default_workers) 1575s [00:52:54.370] supportsMulticore(warn = TRUE) 1575s [00:52:54.370] return(sequential(..., envir = envir)) 1575s [00:52:54.370] } 1575s [00:52:54.370] oopts <- options(mc.cores = workers) 1575s [00:52:54.370] on.exit(options(oopts)) 1575s [00:52:54.370] future <- MulticoreFuture(..., workers = workers, 1575s [00:52:54.370] envir = envir) 1575s [00:52:54.370] if (!future$lazy) 1575s [00:52:54.370] future <- run(future) 1575s [00:52:54.370] invisible(future) 1575s [00:52:54.370] }), .cleanup = FALSE, .init = FALSE) 1575s [00:52:54.370] } 1575s [00:52:54.370] } 1575s [00:52:54.370] } 1575s [00:52:54.370] }) 1575s [00:52:54.370] if (TRUE) { 1575s [00:52:54.370] base::sink(type = "output", split = FALSE) 1575s [00:52:54.370] if (TRUE) { 1575s [00:52:54.370] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1575s [00:52:54.370] } 1575s [00:52:54.370] else { 1575s [00:52:54.370] ...future.result["stdout"] <- base::list(NULL) 1575s [00:52:54.370] } 1575s [00:52:54.370] base::close(...future.stdout) 1575s [00:52:54.370] ...future.stdout <- NULL 1575s [00:52:54.370] } 1575s [00:52:54.370] ...future.result$conditions <- ...future.conditions 1575s [00:52:54.370] ...future.result$finished <- base::Sys.time() 1575s [00:52:54.370] ...future.result 1575s [00:52:54.370] } 1575s [00:52:54.379] assign_globals() ... 1575s [00:52:54.379] List of 5 1575s [00:52:54.379] $ ...future.FUN :function (x, y = 2 * 1:5) 1575s [00:52:54.379] $ future.call.arguments : list() 1575s [00:52:54.379] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:54.379] $ ...future.elements_ii :List of 3 1575s [00:52:54.379] ..$ a: num 1 1575s [00:52:54.379] ..$ b: num 2 1575s [00:52:54.379] ..$ c: num 3 1575s [00:52:54.379] $ ...future.seeds_ii : NULL 1575s [00:52:54.379] $ ...future.globals.maxSize: NULL 1575s [00:52:54.379] - attr(*, "where")=List of 5 1575s [00:52:54.379] ..$ ...future.FUN : 1575s [00:52:54.379] ..$ future.call.arguments : 1575s [00:52:54.379] ..$ ...future.elements_ii : 1575s [00:52:54.379] ..$ ...future.seeds_ii : 1575s [00:52:54.379] ..$ ...future.globals.maxSize: 1575s [00:52:54.379] - attr(*, "resolved")= logi FALSE 1575s [00:52:54.379] - attr(*, "total_size")= num 4728 1575s [00:52:54.379] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:54.379] - attr(*, "already-done")= logi TRUE 1575s [00:52:54.392] - reassign environment for ‘...future.FUN’ 1575s [00:52:54.392] - copied ‘...future.FUN’ to environment 1575s [00:52:54.392] - copied ‘future.call.arguments’ to environment 1575s [00:52:54.392] - copied ‘...future.elements_ii’ to environment 1575s [00:52:54.392] - copied ‘...future.seeds_ii’ to environment 1575s [00:52:54.392] - copied ‘...future.globals.maxSize’ to environment 1575s [00:52:54.393] assign_globals() ... done 1575s [00:52:54.393] plan(): Setting new future strategy stack: 1575s [00:52:54.393] List of future strategies: 1575s [00:52:54.393] 1. sequential: 1575s [00:52:54.393] - args: function (..., envir = parent.frame()) 1575s [00:52:54.393] - tweaked: FALSE 1575s [00:52:54.393] - call: NULL 1575s [00:52:54.393] plan(): nbrOfWorkers() = 1 1575s [00:52:54.394] plan(): Setting new future strategy stack: 1575s [00:52:54.395] List of future strategies: 1575s [00:52:54.395] 1. multicore: 1575s [00:52:54.395] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1575s [00:52:54.395] - tweaked: FALSE 1575s [00:52:54.395] - call: plan(strategy) 1575s [00:52:54.398] plan(): nbrOfWorkers() = 1 1575s [00:52:54.399] SequentialFuture started (and completed) 1575s [00:52:54.399] - Launch lazy future ... done 1575s [00:52:54.399] run() for ‘SequentialFuture’ ... done 1575s [00:52:54.399] Created future: 1575s [00:52:54.399] SequentialFuture: 1575s [00:52:54.399] Label: ‘future_sapply-1’ 1575s [00:52:54.399] Expression: 1575s [00:52:54.399] { 1575s [00:52:54.399] do.call(function(...) { 1575s [00:52:54.399] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:54.399] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1575s [00:52:54.399] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:54.399] on.exit(options(oopts), add = TRUE) 1575s [00:52:54.399] } 1575s [00:52:54.399] { 1575s [00:52:54.399] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1575s [00:52:54.399] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:54.399] ...future.FUN(...future.X_jj, ...) 1575s [00:52:54.399] }) 1575s [00:52:54.399] } 1575s [00:52:54.399] }, args = future.call.arguments) 1575s [00:52:54.399] } 1575s [00:52:54.399] Lazy evaluation: FALSE 1575s [00:52:54.399] Asynchronous evaluation: FALSE 1575s [00:52:54.399] Local evaluation: TRUE 1575s [00:52:54.399] Environment: R_GlobalEnv 1575s [00:52:54.399] Capture standard output: TRUE 1575s [00:52:54.399] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1575s [00:52:54.399] Globals: 5 objects totaling 4.78 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1575s [00:52:54.399] Packages: 1575s [00:52:54.399] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1575s [00:52:54.399] Resolved: TRUE 1575s [00:52:54.399] Value: 1.01 KiB of class ‘list’ 1575s [00:52:54.399] Early signaling: FALSE 1575s [00:52:54.399] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1575s [00:52:54.399] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1575s [00:52:54.404] Chunk #1 of 1 ... DONE 1575s [00:52:54.405] Launching 1 futures (chunks) ... DONE 1575s [00:52:54.405] Resolving 1 futures (chunks) ... 1575s [00:52:54.405] resolve() on list ... 1575s [00:52:54.406] recursive: 0 1575s [00:52:54.406] length: 1 1575s [00:52:54.407] 1575s [00:52:54.407] resolved() for ‘SequentialFuture’ ... 1575s [00:52:54.407] - state: ‘finished’ 1575s [00:52:54.407] - run: TRUE 1575s [00:52:54.407] - result: ‘FutureResult’ 1575s [00:52:54.408] resolved() for ‘SequentialFuture’ ... done 1575s [00:52:54.408] Future #1 1575s [00:52:54.409] signalConditionsASAP(SequentialFuture, pos=1) ... 1575s [00:52:54.409] - nx: 1 1575s [00:52:54.410] - relay: TRUE 1575s [00:52:54.411] - stdout: TRUE 1575s [00:52:54.411] - signal: TRUE 1575s [00:52:54.412] - resignal: FALSE 1575s [00:52:54.413] - force: TRUE 1575s [00:52:54.413] - relayed: [n=1] FALSE 1575s [00:52:54.414] - queued futures: [n=1] FALSE 1575s [00:52:54.415] - until=1 1575s [00:52:54.415] - relaying element #1 1575s [00:52:54.415] - relayed: [n=1] TRUE 1575s [00:52:54.416] - queued futures: [n=1] TRUE 1575s [00:52:54.416] signalConditionsASAP(SequentialFuture, pos=1) ... done 1575s [00:52:54.417] length: 0 (resolved future 1) 1575s [00:52:54.418] Relaying remaining futures 1575s [00:52:54.418] signalConditionsASAP(NULL, pos=0) ... 1575s [00:52:54.418] - nx: 1 1575s [00:52:54.419] - relay: TRUE 1575s [00:52:54.419] - stdout: TRUE 1575s [00:52:54.419] - signal: TRUE 1575s [00:52:54.419] - resignal: FALSE 1575s [00:52:54.419] - force: TRUE 1575s [00:52:54.419] - relayed: [n=1] TRUE 1575s [00:52:54.420] - queued futures: [n=1] TRUE 1575s - flush all 1575s [00:52:54.420] - relayed: [n=1] TRUE 1575s [00:52:54.420] - queued futures: [n=1] TRUE 1575s [00:52:54.420] signalConditionsASAP(NULL, pos=0) ... done 1575s [00:52:54.420] resolve() on list ... DONE 1575s [00:52:54.421] - Number of value chunks collected: 1 1575s [00:52:54.421] Resolving 1 futures (chunks) ... DONE 1575s [00:52:54.421] Reducing values from 1 chunks ... 1575s [00:52:54.421] - Number of values collected after concatenation: 3 1575s [00:52:54.422] - Number of values expected: 3 1575s [00:52:54.422] Reducing values from 1 chunks ... DONE 1575s [00:52:54.422] future_lapply() ... DONE 1575s [00:52:54.428] future_lapply() ... 1575s [00:52:54.433] Number of chunks: 1 1575s [00:52:54.433] getGlobalsAndPackagesXApply() ... 1575s [00:52:54.433] - future.globals: TRUE 1575s [00:52:54.433] getGlobalsAndPackages() ... 1575s [00:52:54.434] Searching for globals... 1575s [00:52:54.435] - globals found: [1] ‘FUN’ 1575s [00:52:54.435] Searching for globals ... DONE 1575s [00:52:54.435] Resolving globals: FALSE 1575s [00:52:54.436] The total size of the 1 globals is 848 bytes (848 bytes) 1575s [00:52:54.436] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1575s [00:52:54.436] - globals: [1] ‘FUN’ 1575s [00:52:54.436] 1575s [00:52:54.437] getGlobalsAndPackages() ... DONE 1575s [00:52:54.437] - globals found/used: [n=1] ‘FUN’ 1575s [00:52:54.437] - needed namespaces: [n=0] 1575s [00:52:54.437] Finding globals ... DONE 1575s [00:52:54.437] - use_args: TRUE 1575s [00:52:54.438] - Getting '...' globals ... 1575s [00:52:54.438] resolve() on list ... 1575s [00:52:54.438] recursive: 0 1575s [00:52:54.438] length: 1 1575s [00:52:54.438] elements: ‘...’ 1575s [00:52:54.439] length: 0 (resolved future 1) 1575s [00:52:54.439] resolve() on list ... DONE 1575s [00:52:54.439] - '...' content: [n=0] 1575s [00:52:54.439] List of 1 1575s [00:52:54.439] $ ...: list() 1575s [00:52:54.439] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:54.439] - attr(*, "where")=List of 1 1575s [00:52:54.439] ..$ ...: 1575s [00:52:54.439] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:54.439] - attr(*, "resolved")= logi TRUE 1575s [00:52:54.439] - attr(*, "total_size")= num NA 1575s [00:52:54.443] - Getting '...' globals ... DONE 1575s [00:52:54.443] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1575s [00:52:54.444] List of 2 1575s [00:52:54.444] $ ...future.FUN:function (x) 1575s [00:52:54.444] $ ... : list() 1575s [00:52:54.444] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:54.444] - attr(*, "where")=List of 2 1575s [00:52:54.444] ..$ ...future.FUN: 1575s [00:52:54.444] ..$ ... : 1575s [00:52:54.444] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:54.444] - attr(*, "resolved")= logi FALSE 1575s [00:52:54.444] - attr(*, "total_size")= num 848 1575s [00:52:54.447] Packages to be attached in all futures: [n=0] 1575s [00:52:54.448] getGlobalsAndPackagesXApply() ... DONE 1575s [00:52:54.448] Number of futures (= number of chunks): 1 1575s [00:52:54.448] Launching 1 futures (chunks) ... 1575s [00:52:54.448] Chunk #1 of 1 ... 1575s [00:52:54.448] - Finding globals in 'X' for chunk #1 ... 1575s [00:52:54.449] getGlobalsAndPackages() ... 1575s [00:52:54.449] Searching for globals... 1575s [00:52:54.449] 1575s [00:52:54.449] Searching for globals ... DONE 1575s [00:52:54.450] - globals: [0] 1575s [00:52:54.450] getGlobalsAndPackages() ... DONE 1575s [00:52:54.450] + additional globals found: [n=0] 1575s [00:52:54.450] + additional namespaces needed: [n=0] 1575s [00:52:54.450] - Finding globals in 'X' for chunk #1 ... DONE 1575s [00:52:54.450] - seeds: 1575s [00:52:54.451] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:54.451] getGlobalsAndPackages() ... 1575s [00:52:54.451] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:54.452] Resolving globals: FALSE 1575s [00:52:54.452] Tweak future expression to call with '...' arguments ... 1575s [00:52:54.452] { 1575s [00:52:54.452] do.call(function(...) { 1575s [00:52:54.452] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:54.452] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1575s [00:52:54.452] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:54.452] on.exit(options(oopts), add = TRUE) 1575s [00:52:54.452] } 1575s [00:52:54.452] { 1575s [00:52:54.452] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1575s [00:52:54.452] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:54.452] ...future.FUN(...future.X_jj, ...) 1575s [00:52:54.452] }) 1575s [00:52:54.452] } 1575s [00:52:54.452] }, args = future.call.arguments) 1575s [00:52:54.452] } 1575s [00:52:54.453] Tweak future expression to call with '...' arguments ... DONE 1575s [00:52:54.454] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:54.454] 1575s [00:52:54.454] getGlobalsAndPackages() ... DONE 1575s [00:52:54.454] run() for ‘Future’ ... 1575s [00:52:54.455] - state: ‘created’ 1575s [00:52:54.455] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1575s [00:52:54.463] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1575s [00:52:54.464] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1575s [00:52:54.464] - Field: ‘label’ 1575s [00:52:54.464] - Field: ‘local’ 1575s [00:52:54.464] - Field: ‘owner’ 1575s [00:52:54.464] - Field: ‘envir’ 1575s [00:52:54.464] - Field: ‘packages’ 1575s [00:52:54.464] - Field: ‘gc’ 1575s [00:52:54.465] - Field: ‘conditions’ 1575s [00:52:54.465] - Field: ‘expr’ 1575s [00:52:54.465] - Field: ‘uuid’ 1575s [00:52:54.465] - Field: ‘seed’ 1575s [00:52:54.465] - Field: ‘version’ 1575s [00:52:54.465] - Field: ‘result’ 1575s [00:52:54.465] - Field: ‘asynchronous’ 1575s [00:52:54.465] - Field: ‘calls’ 1575s [00:52:54.466] - Field: ‘globals’ 1575s [00:52:54.466] - Field: ‘stdout’ 1575s [00:52:54.466] - Field: ‘earlySignal’ 1575s [00:52:54.466] - Field: ‘lazy’ 1575s [00:52:54.466] - Field: ‘state’ 1575s [00:52:54.466] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1575s [00:52:54.466] - Launch lazy future ... 1575s [00:52:54.467] Packages needed by the future expression (n = 0): 1575s [00:52:54.467] Packages needed by future strategies (n = 0): 1575s [00:52:54.467] { 1575s [00:52:54.467] { 1575s [00:52:54.467] { 1575s [00:52:54.467] ...future.startTime <- base::Sys.time() 1575s [00:52:54.467] { 1575s [00:52:54.467] { 1575s [00:52:54.467] { 1575s [00:52:54.467] base::local({ 1575s [00:52:54.467] has_future <- base::requireNamespace("future", 1575s [00:52:54.467] quietly = TRUE) 1575s [00:52:54.467] if (has_future) { 1575s [00:52:54.467] ns <- base::getNamespace("future") 1575s [00:52:54.467] version <- ns[[".package"]][["version"]] 1575s [00:52:54.467] if (is.null(version)) 1575s [00:52:54.467] version <- utils::packageVersion("future") 1575s [00:52:54.467] } 1575s [00:52:54.467] else { 1575s [00:52:54.467] version <- NULL 1575s [00:52:54.467] } 1575s [00:52:54.467] if (!has_future || version < "1.8.0") { 1575s [00:52:54.467] info <- base::c(r_version = base::gsub("R version ", 1575s [00:52:54.467] "", base::R.version$version.string), 1575s [00:52:54.467] platform = base::sprintf("%s (%s-bit)", 1575s [00:52:54.467] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1575s [00:52:54.467] os = base::paste(base::Sys.info()[base::c("sysname", 1575s [00:52:54.467] "release", "version")], collapse = " "), 1575s [00:52:54.467] hostname = base::Sys.info()[["nodename"]]) 1575s [00:52:54.467] info <- base::sprintf("%s: %s", base::names(info), 1575s [00:52:54.467] info) 1575s [00:52:54.467] info <- base::paste(info, collapse = "; ") 1575s [00:52:54.467] if (!has_future) { 1575s [00:52:54.467] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1575s [00:52:54.467] info) 1575s [00:52:54.467] } 1575s [00:52:54.467] else { 1575s [00:52:54.467] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1575s [00:52:54.467] info, version) 1575s [00:52:54.467] } 1575s [00:52:54.467] base::stop(msg) 1575s [00:52:54.467] } 1575s [00:52:54.467] }) 1575s [00:52:54.467] } 1575s [00:52:54.467] options(future.plan = NULL) 1575s [00:52:54.467] Sys.unsetenv("R_FUTURE_PLAN") 1575s [00:52:54.467] future::plan("default", .cleanup = FALSE, .init = FALSE) 1575s [00:52:54.467] } 1575s [00:52:54.467] ...future.workdir <- getwd() 1575s [00:52:54.467] } 1575s [00:52:54.467] ...future.oldOptions <- base::as.list(base::.Options) 1575s [00:52:54.467] ...future.oldEnvVars <- base::Sys.getenv() 1575s [00:52:54.467] } 1575s [00:52:54.467] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1575s [00:52:54.467] future.globals.maxSize = NULL, future.globals.method = NULL, 1575s [00:52:54.467] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1575s [00:52:54.467] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1575s [00:52:54.467] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1575s [00:52:54.467] future.stdout.windows.reencode = NULL, width = 80L) 1575s [00:52:54.467] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1575s [00:52:54.467] base::names(...future.oldOptions)) 1575s [00:52:54.467] } 1575s [00:52:54.467] if (FALSE) { 1575s [00:52:54.467] } 1575s [00:52:54.467] else { 1575s [00:52:54.467] if (TRUE) { 1575s [00:52:54.467] ...future.stdout <- base::rawConnection(base::raw(0L), 1575s [00:52:54.467] open = "w") 1575s [00:52:54.467] } 1575s [00:52:54.467] else { 1575s [00:52:54.467] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1575s [00:52:54.467] windows = "NUL", "/dev/null"), open = "w") 1575s [00:52:54.467] } 1575s [00:52:54.467] base::sink(...future.stdout, type = "output", split = FALSE) 1575s [00:52:54.467] base::on.exit(if (!base::is.null(...future.stdout)) { 1575s [00:52:54.467] base::sink(type = "output", split = FALSE) 1575s [00:52:54.467] base::close(...future.stdout) 1575s [00:52:54.467] }, add = TRUE) 1575s [00:52:54.467] } 1575s [00:52:54.467] ...future.frame <- base::sys.nframe() 1575s [00:52:54.467] ...future.conditions <- base::list() 1575s [00:52:54.467] ...future.rng <- base::globalenv()$.Random.seed 1575s [00:52:54.467] if (FALSE) { 1575s [00:52:54.467] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1575s [00:52:54.467] "...future.value", "...future.globalenv.names", ".Random.seed") 1575s [00:52:54.467] } 1575s [00:52:54.467] ...future.result <- base::tryCatch({ 1575s [00:52:54.467] base::withCallingHandlers({ 1575s [00:52:54.467] ...future.value <- base::withVisible(base::local({ 1575s [00:52:54.467] do.call(function(...) { 1575s [00:52:54.467] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:54.467] if (!identical(...future.globals.maxSize.org, 1575s [00:52:54.467] ...future.globals.maxSize)) { 1575s [00:52:54.467] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:54.467] on.exit(options(oopts), add = TRUE) 1575s [00:52:54.467] } 1575s [00:52:54.467] { 1575s [00:52:54.467] lapply(seq_along(...future.elements_ii), 1575s [00:52:54.467] FUN = function(jj) { 1575s [00:52:54.467] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:54.467] ...future.FUN(...future.X_jj, ...) 1575s [00:52:54.467] }) 1575s [00:52:54.467] } 1575s [00:52:54.467] }, args = future.call.arguments) 1575s [00:52:54.467] })) 1575s [00:52:54.467] future::FutureResult(value = ...future.value$value, 1575s [00:52:54.467] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1575s [00:52:54.467] ...future.rng), globalenv = if (FALSE) 1575s [00:52:54.467] list(added = base::setdiff(base::names(base::.GlobalEnv), 1575s [00:52:54.467] ...future.globalenv.names)) 1575s [00:52:54.467] else NULL, started = ...future.startTime, version = "1.8") 1575s [00:52:54.467] }, condition = base::local({ 1575s [00:52:54.467] c <- base::c 1575s [00:52:54.467] inherits <- base::inherits 1575s [00:52:54.467] invokeRestart <- base::invokeRestart 1575s [00:52:54.467] length <- base::length 1575s [00:52:54.467] list <- base::list 1575s [00:52:54.467] seq.int <- base::seq.int 1575s [00:52:54.467] signalCondition <- base::signalCondition 1575s [00:52:54.467] sys.calls <- base::sys.calls 1575s [00:52:54.467] `[[` <- base::`[[` 1575s [00:52:54.467] `+` <- base::`+` 1575s [00:52:54.467] `<<-` <- base::`<<-` 1575s [00:52:54.467] sysCalls <- function(calls = sys.calls(), from = 1L) { 1575s [00:52:54.467] calls[seq.int(from = from + 12L, to = length(calls) - 1575s [00:52:54.467] 3L)] 1575s [00:52:54.467] } 1575s [00:52:54.467] function(cond) { 1575s [00:52:54.467] is_error <- inherits(cond, "error") 1575s [00:52:54.467] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1575s [00:52:54.467] NULL) 1575s [00:52:54.467] if (is_error) { 1575s [00:52:54.467] sessionInformation <- function() { 1575s [00:52:54.467] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1575s [00:52:54.467] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1575s [00:52:54.467] search = base::search(), system = base::Sys.info()) 1575s [00:52:54.467] } 1575s [00:52:54.467] ...future.conditions[[length(...future.conditions) + 1575s [00:52:54.467] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1575s [00:52:54.467] cond$call), session = sessionInformation(), 1575s [00:52:54.467] timestamp = base::Sys.time(), signaled = 0L) 1575s [00:52:54.467] signalCondition(cond) 1575s [00:52:54.467] } 1575s [00:52:54.467] else if (!ignore && TRUE && inherits(cond, c("condition", 1575s [00:52:54.467] "immediateCondition"))) { 1575s [00:52:54.467] signal <- TRUE && inherits(cond, "immediateCondition") 1575s [00:52:54.467] ...future.conditions[[length(...future.conditions) + 1575s [00:52:54.467] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1575s [00:52:54.467] if (TRUE && !signal) { 1575s [00:52:54.467] muffleCondition <- function (cond, pattern = "^muffle") 1575s [00:52:54.467] { 1575s [00:52:54.467] inherits <- base::inherits 1575s [00:52:54.467] invokeRestart <- base::invokeRestart 1575s [00:52:54.467] is.null <- base::is.null 1575s [00:52:54.467] muffled <- FALSE 1575s [00:52:54.467] if (inherits(cond, "message")) { 1575s [00:52:54.467] muffled <- grepl(pattern, "muffleMessage") 1575s [00:52:54.467] if (muffled) 1575s [00:52:54.467] invokeRestart("muffleMessage") 1575s [00:52:54.467] } 1575s [00:52:54.467] else if (inherits(cond, "warning")) { 1575s [00:52:54.467] muffled <- grepl(pattern, "muffleWarning") 1575s [00:52:54.467] if (muffled) 1575s [00:52:54.467] invokeRestart("muffleWarning") 1575s [00:52:54.467] } 1575s [00:52:54.467] else if (inherits(cond, "condition")) { 1575s [00:52:54.467] if (!is.null(pattern)) { 1575s [00:52:54.467] computeRestarts <- base::computeRestarts 1575s [00:52:54.467] grepl <- base::grepl 1575s [00:52:54.467] restarts <- computeRestarts(cond) 1575s [00:52:54.467] for (restart in restarts) { 1575s [00:52:54.467] name <- restart$name 1575s [00:52:54.467] if (is.null(name)) 1575s [00:52:54.467] next 1575s [00:52:54.467] if (!grepl(pattern, name)) 1575s [00:52:54.467] next 1575s [00:52:54.467] invokeRestart(restart) 1575s [00:52:54.467] muffled <- TRUE 1575s [00:52:54.467] break 1575s [00:52:54.467] } 1575s [00:52:54.467] } 1575s [00:52:54.467] } 1575s [00:52:54.467] invisible(muffled) 1575s [00:52:54.467] } 1575s [00:52:54.467] muffleCondition(cond, pattern = "^muffle") 1575s [00:52:54.467] } 1575s [00:52:54.467] } 1575s [00:52:54.467] else { 1575s [00:52:54.467] if (TRUE) { 1575s [00:52:54.467] muffleCondition <- function (cond, pattern = "^muffle") 1575s [00:52:54.467] { 1575s [00:52:54.467] inherits <- base::inherits 1575s [00:52:54.467] invokeRestart <- base::invokeRestart 1575s [00:52:54.467] is.null <- base::is.null 1575s [00:52:54.467] muffled <- FALSE 1575s [00:52:54.467] if (inherits(cond, "message")) { 1575s [00:52:54.467] muffled <- grepl(pattern, "muffleMessage") 1575s [00:52:54.467] if (muffled) 1575s [00:52:54.467] invokeRestart("muffleMessage") 1575s [00:52:54.467] } 1575s [00:52:54.467] else if (inherits(cond, "warning")) { 1575s [00:52:54.467] muffled <- grepl(pattern, "muffleWarning") 1575s [00:52:54.467] if (muffled) 1575s [00:52:54.467] invokeRestart("muffleWarning") 1575s [00:52:54.467] } 1575s [00:52:54.467] else if (inherits(cond, "condition")) { 1575s [00:52:54.467] if (!is.null(pattern)) { 1575s [00:52:54.467] computeRestarts <- base::computeRestarts 1575s [00:52:54.467] grepl <- base::grepl 1575s [00:52:54.467] restarts <- computeRestarts(cond) 1575s [00:52:54.467] for (restart in restarts) { 1575s [00:52:54.467] name <- restart$name 1575s [00:52:54.467] if (is.null(name)) 1575s [00:52:54.467] next 1575s [00:52:54.467] if (!grepl(pattern, name)) 1575s [00:52:54.467] next 1575s [00:52:54.467] invokeRestart(restart) 1575s [00:52:54.467] muffled <- TRUE 1575s [00:52:54.467] break 1575s [00:52:54.467] } 1575s [00:52:54.467] } 1575s [00:52:54.467] } 1575s [00:52:54.467] invisible(muffled) 1575s [00:52:54.467] } 1575s [00:52:54.467] muffleCondition(cond, pattern = "^muffle") 1575s [00:52:54.467] } 1575s [00:52:54.467] } 1575s [00:52:54.467] } 1575s [00:52:54.467] })) 1575s [00:52:54.467] }, error = function(ex) { 1575s [00:52:54.467] base::structure(base::list(value = NULL, visible = NULL, 1575s [00:52:54.467] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1575s [00:52:54.467] ...future.rng), started = ...future.startTime, 1575s [00:52:54.467] finished = Sys.time(), session_uuid = NA_character_, 1575s [00:52:54.467] version = "1.8"), class = "FutureResult") 1575s [00:52:54.467] }, finally = { 1575s [00:52:54.467] if (!identical(...future.workdir, getwd())) 1575s [00:52:54.467] setwd(...future.workdir) 1575s [00:52:54.467] { 1575s [00:52:54.467] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1575s [00:52:54.467] ...future.oldOptions$nwarnings <- NULL 1575s [00:52:54.467] } 1575s [00:52:54.467] base::options(...future.oldOptions) 1575s [00:52:54.467] if (.Platform$OS.type == "windows") { 1575s [00:52:54.467] old_names <- names(...future.oldEnvVars) 1575s [00:52:54.467] envs <- base::Sys.getenv() 1575s [00:52:54.467] names <- names(envs) 1575s [00:52:54.467] common <- intersect(names, old_names) 1575s [00:52:54.467] added <- setdiff(names, old_names) 1575s [00:52:54.467] removed <- setdiff(old_names, names) 1575s [00:52:54.467] changed <- common[...future.oldEnvVars[common] != 1575s [00:52:54.467] envs[common]] 1575s [00:52:54.467] NAMES <- toupper(changed) 1575s [00:52:54.467] args <- list() 1575s [00:52:54.467] for (kk in seq_along(NAMES)) { 1575s [00:52:54.467] name <- changed[[kk]] 1575s [00:52:54.467] NAME <- NAMES[[kk]] 1575s [00:52:54.467] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:54.467] next 1575s [00:52:54.467] args[[name]] <- ...future.oldEnvVars[[name]] 1575s [00:52:54.467] } 1575s [00:52:54.467] NAMES <- toupper(added) 1575s [00:52:54.467] for (kk in seq_along(NAMES)) { 1575s [00:52:54.467] name <- added[[kk]] 1575s [00:52:54.467] NAME <- NAMES[[kk]] 1575s [00:52:54.467] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:54.467] next 1575s [00:52:54.467] args[[name]] <- "" 1575s [00:52:54.467] } 1575s [00:52:54.467] NAMES <- toupper(removed) 1575s [00:52:54.467] for (kk in seq_along(NAMES)) { 1575s [00:52:54.467] name <- removed[[kk]] 1575s [00:52:54.467] NAME <- NAMES[[kk]] 1575s [00:52:54.467] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:54.467] next 1575s [00:52:54.467] args[[name]] <- ...future.oldEnvVars[[name]] 1575s [00:52:54.467] } 1575s [00:52:54.467] if (length(args) > 0) 1575s [00:52:54.467] base::do.call(base::Sys.setenv, args = args) 1575s [00:52:54.467] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1575s [00:52:54.467] } 1575s [00:52:54.467] else { 1575s [00:52:54.467] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1575s [00:52:54.467] } 1575s [00:52:54.467] { 1575s [00:52:54.467] if (base::length(...future.futureOptionsAdded) > 1575s [00:52:54.467] 0L) { 1575s [00:52:54.467] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1575s [00:52:54.467] base::names(opts) <- ...future.futureOptionsAdded 1575s [00:52:54.467] base::options(opts) 1575s [00:52:54.467] } 1575s [00:52:54.467] { 1575s [00:52:54.467] { 1575s [00:52:54.467] NULL 1575s [00:52:54.467] RNGkind("Mersenne-Twister") 1575s [00:52:54.467] base::rm(list = ".Random.seed", envir = base::globalenv(), 1575s [00:52:54.467] inherits = FALSE) 1575s [00:52:54.467] } 1575s [00:52:54.467] options(future.plan = NULL) 1575s [00:52:54.467] if (is.na(NA_character_)) 1575s [00:52:54.467] Sys.unsetenv("R_FUTURE_PLAN") 1575s [00:52:54.467] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1575s [00:52:54.467] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1575s [00:52:54.467] envir = parent.frame()) 1575s [00:52:54.467] { 1575s [00:52:54.467] default_workers <- missing(workers) 1575s [00:52:54.467] if (is.function(workers)) 1575s [00:52:54.467] workers <- workers() 1575s [00:52:54.467] workers <- structure(as.integer(workers), 1575s [00:52:54.467] class = class(workers)) 1575s [00:52:54.467] stop_if_not(is.finite(workers), workers >= 1575s [00:52:54.467] 1L) 1575s [00:52:54.467] if ((workers == 1L && !inherits(workers, 1575s [00:52:54.467] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1575s [00:52:54.467] if (default_workers) 1575s [00:52:54.467] supportsMulticore(warn = TRUE) 1575s [00:52:54.467] return(sequential(..., envir = envir)) 1575s [00:52:54.467] } 1575s [00:52:54.467] oopts <- options(mc.cores = workers) 1575s [00:52:54.467] on.exit(options(oopts)) 1575s [00:52:54.467] future <- MulticoreFuture(..., workers = workers, 1575s [00:52:54.467] envir = envir) 1575s [00:52:54.467] if (!future$lazy) 1575s [00:52:54.467] future <- run(future) 1575s [00:52:54.467] invisible(future) 1575s [00:52:54.467] }), .cleanup = FALSE, .init = FALSE) 1575s [00:52:54.467] } 1575s [00:52:54.467] } 1575s [00:52:54.467] } 1575s [00:52:54.467] }) 1575s [00:52:54.467] if (TRUE) { 1575s [00:52:54.467] base::sink(type = "output", split = FALSE) 1575s [00:52:54.467] if (TRUE) { 1575s [00:52:54.467] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1575s [00:52:54.467] } 1575s [00:52:54.467] else { 1575s [00:52:54.467] ...future.result["stdout"] <- base::list(NULL) 1575s [00:52:54.467] } 1575s [00:52:54.467] base::close(...future.stdout) 1575s [00:52:54.467] ...future.stdout <- NULL 1575s [00:52:54.467] } 1575s [00:52:54.467] ...future.result$conditions <- ...future.conditions 1575s [00:52:54.467] ...future.result$finished <- base::Sys.time() 1575s [00:52:54.467] ...future.result 1575s [00:52:54.467] } 1575s [00:52:54.474] assign_globals() ... 1575s [00:52:54.474] List of 5 1575s [00:52:54.474] $ ...future.FUN :function (x) 1575s [00:52:54.474] $ future.call.arguments : list() 1575s [00:52:54.474] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:54.474] $ ...future.elements_ii :List of 6 1575s [00:52:54.474] ..$ a1: int 1 1575s [00:52:54.474] ..$ a2: int 2 1575s [00:52:54.474] ..$ b1: int 2 1575s [00:52:54.474] ..$ b2: int 3 1575s [00:52:54.474] ..$ c1: int 3 1575s [00:52:54.474] ..$ c2: int 4 1575s [00:52:54.474] $ ...future.seeds_ii : NULL 1575s [00:52:54.474] $ ...future.globals.maxSize: NULL 1575s [00:52:54.474] - attr(*, "where")=List of 5 1575s [00:52:54.474] ..$ ...future.FUN : 1575s [00:52:54.474] ..$ future.call.arguments : 1575s [00:52:54.474] ..$ ...future.elements_ii : 1575s [00:52:54.474] ..$ ...future.seeds_ii : 1575s [00:52:54.474] ..$ ...future.globals.maxSize: 1575s [00:52:54.474] - attr(*, "resolved")= logi FALSE 1575s [00:52:54.4 of 2 1575s $ y0: num [1:3, 1:5, 1:3] 2 2 2 4 4 4 6 6 6 8 ... 1575s ..- attr(*, "dimnames")=List of 3 1575s .. ..$ : NULL 1575s .. ..$ : NULL 1575s .. ..$ : chr [1:3] "a" "b" "c" 1575s $ y1: num [1:3, 1:5, 1:3] 2 2 2 4 4 4 6 6 6 8 ... 1575s ..- attr(*, "dimnames")=List of 3 1575s .. ..$ : NULL 1575s .. ..$ : NULL 1575s .. ..$ : chr [1:3] "a" "b" "c" 1575s List of 2 1575s $ y0:List of 6 1575s ..$ a1: int 1 1575s ..$ a2: int 2 1575s ..$ b1: int 2 1575s ..$ b2: int 3 1575s ..$ c1: int 3 1575s ..$ c2: int 4 1575s $ y1:List of 6 1575s ..$ a1: int 1 1575s ..$ a2: int 2 1575s ..$ b1: int 2 1575s ..$ b2: int 3 1575s ..$ c1: int 3 1575s ..$ c2: int 4 1575s List of 2 1575s $ y0:List of 6 1575s ..$ a1: int 1 1575s ..$ a2: int 2 1575s ..$ b1: int 2 1575s ..$ b2: int 3 1575s ..$ c1: int 3 1575s ..$ c2: int 4 1575s $ y2:List of 6 1575s ..$ a1: int 1 1575s ..$ a2: int 2 1575s ..$ b1: int 2 1575s ..$ b2: int 3 1575s ..$ c1: int 3 1575s ..$ c2: int 4 1575s List of 2 1575s $ y0:List of 6 1575s ..$ a1: int [1, 1] 1 1575s ..$ a2: int [1, 1] 2 1575s ..$ b1: int [1, 1] 2 1575s ..$ b2: int [1, 1] 3 1575s ..$ c1: int [1, 1] 3 1575s ..$ c2: int [1, 1] 4 1575s $ y1:List of 6 1575s ..$ a1: int [1, 1] 1 1575s ..$ a2: int [1, 1] 2 1575s ..$ b1: int [1, 1] 2 1575s ..$ b2: int [1, 1] 3 1575s ..$ c1: int [1, 1] 3 1575s ..$ c2: int [1, 1] 4 1575s List of 2 1575s $ y0:List of 6 1575s ..$ a1: int [1, 1] 1 1575s ..$ a2: int [1, 1] 2 1575s ..$ b1: int [1, 1] 2 1575s ..$ b2: int [1, 1] 3 1575s ..$ c1: int [1, 1] 3 1575s ..$ c2: int [1, 1] 4 1575s $ y2:List of 6 1575s ..$ a1: int [1, 1] 1 1575s ..$ a2: int [1, 1] 2 1575s ..$ b1: int [1, 1] 2 1575s ..$ b2: int [1, 1] 3 1575s ..$ c1: int [1, 1] 3 1575s ..$ c2: int [1, 1] 4 1575s List of 2 1575s $ y0:List of 6 1575s ..$ a1: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1575s ..$ a2: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1575s ..$ b1: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1575s ..$ b2: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1575s ..$ c1: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1575s ..$ c2: num [1:3, 1:5] 8 8 8 16 16 16 24 24 24 32 ... 1575s $ y1:List of 6 1575s ..$ a1: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1575s ..$ a2: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1575s ..$ b1: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1575s ..$ b2: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1575s ..$ c1: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1575s ..$ c2: num [1:3, 1:5] 8 8 8 16 16 16 24 24 24 32 ... 1575s List of 2 1575s $ y0:List of 6 1575s ..$ a1: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1575s ..$ a2: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1575s ..$ b1: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1575s ..$ b2: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1575s ..$ c1: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1575s ..$ c2: num [1:3, 1:5] 8 8 8 16 16 16 24 24 24 32 ... 1575s $ y2:List of 6 1575s ..$ a1: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1575s ..$ a2: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1575s ..$ b1: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1575s ..$ b2: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1575s ..$ c1: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1575s ..$ c2: num [1:3, 1:5] 8 8 8 16 16 16 24 24 24 32 ... 1575s List of 2 1575s $ y0: Named int [1:6] 1 2 2 3 3 4 1575s ..- attr(*, "names")= chr [1:6] "a1" "a2" "b1" "b2" ... 1575s $ y1: Named int [1:6] 1 2 2 3 3 4 1575s ..- attr(*, "names")= chr [1:6] "a1" "a2" "b1" "b2" ... 1575s List of 2 1575s $ y0: Named int [1:6] 1 2 2 3 3 4 1575s ..- attr(*, "names")= chr [1:6] "a1" "a2" "b1" "b2" ... 1575s $ y1: Named int [1:6] 1 2 2 3 3 4 1575s ..- attr(*, "names")= chr [1:6] "a1" "a2" "b1" "b2" ... 1575s List of 2 1575s $ y0: num [1:15, 1:6] 2 2 2 4 4 4 6 6 6 8 ... 1575s ..- attr(*, "dimnames")=List of 2 1575s .. ..$ : NULL 1575s .. ..$ : chr [1:6] "a1" "a2" "b1" "b2" ... 1575s $ y1: num [1:15, 1:6] 2 2 2 4 4 4 6 6 6 8 ... 1575s ..- attr(*, "dimnames")=List of 2 1575s .. ..$ : NULL 1575s .. ..$ : chr [1:6] "a1" "a2" "b1" "b2" ... 1575s List of 2 1575s $ y0: Named int [1:6] 1 2 2 3 3 4 1575s ..- attr(*, "names")= chr [1:6] "a1" "a2" "b1" "b2" ... 1575s $ y1: Named int [1:6] 1 2 2 3 3 4 1575s ..- attr(*, "names")= chr [1:6] "a1" "a2" "b1" "b2" ... 1575s List of 2 1575s $ y0: Named int [1:6] 1 2 2 3 3 4 1575s ..- attr(*, "names")= chr [1:6] "a1" "a2" "b1" "b2" ... 1575s $ y1: Named int [1:6] 1 2 2 3 3 4 1575s ..- attr(*, "names")= chr [1:6] "a1" "a2" "b1" "b2" ... 1575s List of 2 1575s $ y0: num [1:3, 1:5, 1:6] 2 2 2 4 4 4 6 6 6 8 ... 1575s ..- attr(*, "dimnames")=List of 3 1575s .. ..$ : NULL 1575s .. ..$ : NULL 1575s .. ..$ : chr [1:6] "a1" "a2" "b1" "b2" ... 1575s $ y1: num [1:3, 1:5, 1:6] 2 2 2 4 4 4 6 6 6 8 ... 1575s ..- attr(*, "dimnames")=List of 3 1575s .. ..$ : NULL 1575s .. ..$ : NULL 1575s .. ..$ : chr [1:6] "a1" "a2" "b1" "b2" ... 1575s 74] - attr(*, "total_size")= num 848 1575s [00:52:54.474] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:54.474] - attr(*, "already-done")= logi TRUE 1575s [00:52:54.488] - copied ‘...future.FUN’ to environment 1575s [00:52:54.488] - copied ‘future.call.arguments’ to environment 1575s [00:52:54.488] - copied ‘...future.elements_ii’ to environment 1575s [00:52:54.488] - copied ‘...future.seeds_ii’ to environment 1575s [00:52:54.488] - copied ‘...future.globals.maxSize’ to environment 1575s [00:52:54.488] assign_globals() ... done 1575s [00:52:54.489] plan(): Setting new future strategy stack: 1575s [00:52:54.489] List of future strategies: 1575s [00:52:54.489] 1. sequential: 1575s [00:52:54.489] - args: function (..., envir = parent.frame()) 1575s [00:52:54.489] - tweaked: FALSE 1575s [00:52:54.489] - call: NULL 1575s [00:52:54.490] plan(): nbrOfWorkers() = 1 1575s [00:52:54.492] plan(): Setting new future strategy stack: 1575s [00:52:54.492] List of future strategies: 1575s [00:52:54.492] 1. multicore: 1575s [00:52:54.492] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1575s [00:52:54.492] - tweaked: FALSE 1575s [00:52:54.492] - call: plan(strategy) 1575s [00:52:54.497] plan(): nbrOfWorkers() = 1 1575s [00:52:54.498] SequentialFuture started (and completed) 1575s [00:52:54.498] - Launch lazy future ... done 1575s [00:52:54.498] run() for ‘SequentialFuture’ ... done 1575s [00:52:54.498] Created future: 1575s [00:52:54.499] SequentialFuture: 1575s [00:52:54.499] Label: ‘future_sapply-1’ 1575s [00:52:54.499] Expression: 1575s [00:52:54.499] { 1575s [00:52:54.499] do.call(function(...) { 1575s [00:52:54.499] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:54.499] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1575s [00:52:54.499] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:54.499] on.exit(options(oopts), add = TRUE) 1575s [00:52:54.499] } 1575s [00:52:54.499] { 1575s [00:52:54.499] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1575s [00:52:54.499] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:54.499] ...future.FUN(...future.X_jj, ...) 1575s [00:52:54.499] }) 1575s [00:52:54.499] } 1575s [00:52:54.499] }, args = future.call.arguments) 1575s [00:52:54.499] } 1575s [00:52:54.499] Lazy evaluation: FALSE 1575s [00:52:54.499] Asynchronous evaluation: FALSE 1575s [00:52:54.499] Local evaluation: TRUE 1575s [00:52:54.499] Environment: R_GlobalEnv 1575s [00:52:54.499] Capture standard output: TRUE 1575s [00:52:54.499] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1575s [00:52:54.499] Globals: 5 objects totaling 1.16 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1575s [00:52:54.499] Packages: 1575s [00:52:54.499] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1575s [00:52:54.499] Resolved: TRUE 1575s [00:52:54.499] Value: 336 bytes of class ‘list’ 1575s [00:52:54.499] Early signaling: FALSE 1575s [00:52:54.499] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1575s [00:52:54.499] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1575s [00:52:54.500] Chunk #1 of 1 ... DONE 1575s [00:52:54.501] Launching 1 futures (chunks) ... DONE 1575s [00:52:54.501] Resolving 1 futures (chunks) ... 1575s [00:52:54.501] resolve() on list ... 1575s [00:52:54.501] recursive: 0 1575s [00:52:54.502] length: 1 1575s [00:52:54.502] 1575s [00:52:54.502] resolved() for ‘SequentialFuture’ ... 1575s [00:52:54.502] - state: ‘finished’ 1575s [00:52:54.503] - run: TRUE 1575s [00:52:54.503] - result: ‘FutureResult’ 1575s [00:52:54.503] resolved() for ‘SequentialFuture’ ... done 1575s [00:52:54.504] Future #1 1575s [00:52:54.504] signalConditionsASAP(SequentialFuture, pos=1) ... 1575s [00:52:54.504] - nx: 1 1575s [00:52:54.504] - relay: TRUE 1575s [00:52:54.505] - stdout: TRUE 1575s [00:52:54.505] - signal: TRUE 1575s [00:52:54.505] - resignal: FALSE 1575s [00:52:54.505] - force: TRUE 1575s [00:52:54.505] - relayed: [n=1] FALSE 1575s [00:52:54.505] - queued futures: [n=1] FALSE 1575s [00:52:54.505] - until=1 1575s [00:52:54.506] - relaying element #1 1575s [00:52:54.506] - relayed: [n=1] TRUE 1575s [00:52:54.506] - queued futures: [n=1] TRUE 1575s [00:52:54.506] signalConditionsASAP(SequentialFuture, pos=1) ... done 1575s [00:52:54.506] length: 0 (resolved future 1) 1575s [00:52:54.507] Relaying remaining futures 1575s [00:52:54.507] signalConditionsASAP(NULL, pos=0) ... 1575s [00:52:54.507] - nx: 1 1575s [00:52:54.507] - relay: TRUE 1575s [00:52:54.507] - stdout: TRUE 1575s [00:52:54.507] - signal: TRUE 1575s [00:52:54.507] - resignal: FALSE 1575s [00:52:54.508] - force: TRUE 1575s [00:52:54.508] - relayed: [n=1] TRUE 1575s [00:52:54.508] - queued futures: [n=1] TRUE 1575s - flush all 1575s [00:52:54.508] - relayed: [n=1] TRUE 1575s [00:52:54.508] - queued futures: [n=1] TRUE 1575s [00:52:54.508] signalConditionsASAP(NULL, pos=0) ... done 1575s [00:52:54.508] resolve() on list ... DONE 1575s [00:52:54.509] - Number of value chunks collected: 1 1575s [00:52:54.509] Resolving 1 futures (chunks) ... DONE 1575s [00:52:54.509] Reducing values from 1 chunks ... 1575s [00:52:54.509] - Number of values collected after concatenation: 6 1575s [00:52:54.509] - Number of values expected: 6 1575s [00:52:54.509] Reducing values from 1 chunks ... DONE 1575s [00:52:54.510] future_lapply() ... DONE 1575s [00:52:54.529] future_lapply() ... 1575s [00:52:54.534] Number of chunks: 1 1575s [00:52:54.534] getGlobalsAndPackagesXApply() ... 1575s [00:52:54.534] - future.globals: TRUE 1575s [00:52:54.534] getGlobalsAndPackages() ... 1575s [00:52:54.535] Searching for globals... 1575s [00:52:54.537] - globals found: [2] ‘FUN’, ‘UseMethod’ 1575s [00:52:54.537] Searching for globals ... DONE 1575s [00:52:54.537] Resolving globals: FALSE 1575s [00:52:54.538] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1575s [00:52:54.538] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1575s [00:52:54.538] - globals: [1] ‘FUN’ 1575s [00:52:54.538] 1575s [00:52:54.538] getGlobalsAndPackages() ... DONE 1575s [00:52:54.539] - globals found/used: [n=1] ‘FUN’ 1575s [00:52:54.539] - needed namespaces: [n=0] 1575s [00:52:54.539] Finding globals ... DONE 1575s [00:52:54.539] - use_args: TRUE 1575s [00:52:54.539] - Getting '...' globals ... 1575s [00:52:54.539] resolve() on list ... 1575s [00:52:54.540] recursive: 0 1575s [00:52:54.540] length: 1 1575s [00:52:54.540] elements: ‘...’ 1575s [00:52:54.540] length: 0 (resolved future 1) 1575s [00:52:54.540] resolve() on list ... DONE 1575s [00:52:54.540] - '...' content: [n=0] 1575s [00:52:54.541] List of 1 1575s [00:52:54.541] $ ...: list() 1575s [00:52:54.541] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:54.541] - attr(*, "where")=List of 1 1575s [00:52:54.541] ..$ ...: 1575s [00:52:54.541] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:54.541] - attr(*, "resolved")= logi TRUE 1575s [00:52:54.541] - attr(*, "total_size")= num NA 1575s [00:52:54.544] - Getting '...' globals ... DONE 1575s [00:52:54.545] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1575s [00:52:54.545] List of 2 1575s [00:52:54.545] $ ...future.FUN:function (x, ...) 1575s [00:52:54.545] $ ... : list() 1575s [00:52:54.545] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:54.545] - attr(*, "where")=List of 2 1575s [00:52:54.545] ..$ ...future.FUN: 1575s [00:52:54.545] ..$ ... : 1575s [00:52:54.545] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:54.545] - attr(*, "resolved")= logi FALSE 1575s [00:52:54.545] - attr(*, "total_size")= num 1248 1575s [00:52:54.548] Packages to be attached in all futures: [n=0] 1575s [00:52:54.548] getGlobalsAndPackagesXApply() ... DONE 1575s [00:52:54.549] Number of futures (= number of chunks): 1 1575s [00:52:54.549] Launching 1 futures (chunks) ... 1575s [00:52:54.549] Chunk #1 of 1 ... 1575s [00:52:54.549] - Finding globals in 'X' for chunk #1 ... 1575s [00:52:54.549] getGlobalsAndPackages() ... 1575s [00:52:54.550] Searching for globals... 1575s [00:52:54.550] 1575s [00:52:54.550] Searching for globals ... DONE 1575s [00:52:54.550] - globals: [0] 1575s [00:52:54.551] getGlobalsAndPackages() ... DONE 1575s [00:52:54.551] + additional globals found: [n=0] 1575s [00:52:54.551] + additional namespaces needed: [n=0] 1575s [00:52:54.551] - Finding globals in 'X' for chunk #1 ... DONE 1575s [00:52:54.551] - seeds: 1575s [00:52:54.551] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:54.552] getGlobalsAndPackages() ... 1575s [00:52:54.552] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:54.552] Resolving globals: FALSE 1575s [00:52:54.552] Tweak future expression to call with '...' arguments ... 1575s [00:52:54.553] { 1575s [00:52:54.553] do.call(function(...) { 1575s [00:52:54.553] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:54.553] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1575s [00:52:54.553] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:54.553] on.exit(options(oopts), add = TRUE) 1575s [00:52:54.553] } 1575s [00:52:54.553] { 1575s [00:52:54.553] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1575s [00:52:54.553] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:54.553] ...future.FUN(...future.X_jj, ...) 1575s [00:52:54.553] }) 1575s [00:52:54.553] } 1575s [00:52:54.553] }, args = future.call.arguments) 1575s [00:52:54.553] } 1575s [00:52:54.553] Tweak future expression to call with '...' arguments ... DONE 1575s [00:52:54.554] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:54.554] 1575s [00:52:54.554] getGlobalsAndPackages() ... DONE 1575s [00:52:54.554] run() for ‘Future’ ... 1575s [00:52:54.555] - state: ‘created’ 1575s [00:52:54.555] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1575s [00:52:54.558] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1575s [00:52:54.559] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1575s [00:52:54.559] - Field: ‘label’ 1575s [00:52:54.559] - Field: ‘local’ 1575s [00:52:54.559] - Field: ‘owner’ 1575s [00:52:54.559] - Field: ‘envir’ 1575s [00:52:54.560] - Field: ‘packages’ 1575s [00:52:54.560] - Field: ‘gc’ 1575s [00:52:54.560] - Field: ‘conditions’ 1575s [00:52:54.560] - Field: ‘expr’ 1575s [00:52:54.560] - Field: ‘uuid’ 1575s [00:52:54.560] - Field: ‘seed’ 1575s [00:52:54.561] - Field: ‘version’ 1575s [00:52:54.561] - Field: ‘result’ 1575s [00:52:54.561] - Field: ‘asynchronous’ 1575s [00:52:54.561] - Field: ‘calls’ 1575s [00:52:54.561] - Field: ‘globals’ 1575s [00:52:54.561] - Field: ‘stdout’ 1575s [00:52:54.561] - Field: ‘earlySignal’ 1575s [00:52:54.562] - Field: ‘lazy’ 1575s [00:52:54.562] - Field: ‘state’ 1575s [00:52:54.562] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1575s [00:52:54.562] - Launch lazy future ... 1575s [00:52:54.562] Packages needed by the future expression (n = 0): 1575s [00:52:54.563] Packages needed by future strategies (n = 0): 1575s [00:52:54.563] { 1575s [00:52:54.563] { 1575s [00:52:54.563] { 1575s [00:52:54.563] ...future.startTime <- base::Sys.time() 1575s [00:52:54.563] { 1575s [00:52:54.563] { 1575s [00:52:54.563] { 1575s [00:52:54.563] base::local({ 1575s [00:52:54.563] has_future <- base::requireNamespace("future", 1575s [00:52:54.563] quietly = TRUE) 1575s [00:52:54.563] if (has_future) { 1575s [00:52:54.563] ns <- base::getNamespace("future") 1575s [00:52:54.563] version <- ns[[".package"]][["version"]] 1575s [00:52:54.563] if (is.null(version)) 1575s [00:52:54.563] version <- utils::packageVersion("future") 1575s [00:52:54.563] } 1575s [00:52:54.563] else { 1575s [00:52:54.563] version <- NULL 1575s [00:52:54.563] } 1575s [00:52:54.563] if (!has_future || version < "1.8.0") { 1575s [00:52:54.563] info <- base::c(r_version = base::gsub("R version ", 1575s [00:52:54.563] "", base::R.version$version.string), 1575s [00:52:54.563] platform = base::sprintf("%s (%s-bit)", 1575s [00:52:54.563] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1575s [00:52:54.563] os = base::paste(base::Sys.info()[base::c("sysname", 1575s [00:52:54.563] "release", "version")], collapse = " "), 1575s [00:52:54.563] hostname = base::Sys.info()[["nodename"]]) 1575s [00:52:54.563] info <- base::sprintf("%s: %s", base::names(info), 1575s [00:52:54.563] info) 1575s [00:52:54.563] info <- base::paste(info, collapse = "; ") 1575s [00:52:54.563] if (!has_future) { 1575s [00:52:54.563] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1575s [00:52:54.563] info) 1575s [00:52:54.563] } 1575s [00:52:54.563] else { 1575s [00:52:54.563] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1575s [00:52:54.563] info, version) 1575s [00:52:54.563] } 1575s [00:52:54.563] base::stop(msg) 1575s [00:52:54.563] } 1575s [00:52:54.563] }) 1575s [00:52:54.563] } 1575s [00:52:54.563] options(future.plan = NULL) 1575s [00:52:54.563] Sys.unsetenv("R_FUTURE_PLAN") 1575s [00:52:54.563] future::plan("default", .cleanup = FALSE, .init = FALSE) 1575s [00:52:54.563] } 1575s [00:52:54.563] ...future.workdir <- getwd() 1575s [00:52:54.563] } 1575s [00:52:54.563] ...future.oldOptions <- base::as.list(base::.Options) 1575s [00:52:54.563] ...future.oldEnvVars <- base::Sys.getenv() 1575s [00:52:54.563] } 1575s [00:52:54.563] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1575s [00:52:54.563] future.globals.maxSize = NULL, future.globals.method = NULL, 1575s [00:52:54.563] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1575s [00:52:54.563] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1575s [00:52:54.563] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1575s [00:52:54.563] future.stdout.windows.reencode = NULL, width = 80L) 1575s [00:52:54.563] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1575s [00:52:54.563] base::names(...future.oldOptions)) 1575s [00:52:54.563] } 1575s [00:52:54.563] if (FALSE) { 1575s [00:52:54.563] } 1575s [00:52:54.563] else { 1575s [00:52:54.563] if (TRUE) { 1575s [00:52:54.563] ...future.stdout <- base::rawConnection(base::raw(0L), 1575s [00:52:54.563] open = "w") 1575s [00:52:54.563] } 1575s [00:52:54.563] else { 1575s [00:52:54.563] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1575s [00:52:54.563] windows = "NUL", "/dev/null"), open = "w") 1575s [00:52:54.563] } 1575s [00:52:54.563] base::sink(...future.stdout, type = "output", split = FALSE) 1575s [00:52:54.563] base::on.exit(if (!base::is.null(...future.stdout)) { 1575s [00:52:54.563] base::sink(type = "output", split = FALSE) 1575s [00:52:54.563] base::close(...future.stdout) 1575s [00:52:54.563] }, add = TRUE) 1575s [00:52:54.563] } 1575s [00:52:54.563] ...future.frame <- base::sys.nframe() 1575s [00:52:54.563] ...future.conditions <- base::list() 1575s [00:52:54.563] ...future.rng <- base::globalenv()$.Random.seed 1575s [00:52:54.563] if (FALSE) { 1575s [00:52:54.563] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1575s [00:52:54.563] "...future.value", "...future.globalenv.names", ".Random.seed") 1575s [00:52:54.563] } 1575s [00:52:54.563] ...future.result <- base::tryCatch({ 1575s [00:52:54.563] base::withCallingHandlers({ 1575s [00:52:54.563] ...future.value <- base::withVisible(base::local({ 1575s [00:52:54.563] do.call(function(...) { 1575s [00:52:54.563] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:54.563] if (!identical(...future.globals.maxSize.org, 1575s [00:52:54.563] ...future.globals.maxSize)) { 1575s [00:52:54.563] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:54.563] on.exit(options(oopts), add = TRUE) 1575s [00:52:54.563] } 1575s [00:52:54.563] { 1575s [00:52:54.563] lapply(seq_along(...future.elements_ii), 1575s [00:52:54.563] FUN = function(jj) { 1575s [00:52:54.563] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:54.563] ...future.FUN(...future.X_jj, ...) 1575s [00:52:54.563] }) 1575s [00:52:54.563] } 1575s [00:52:54.563] }, args = future.call.arguments) 1575s [00:52:54.563] })) 1575s [00:52:54.563] future::FutureResult(value = ...future.value$value, 1575s [00:52:54.563] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1575s [00:52:54.563] ...future.rng), globalenv = if (FALSE) 1575s [00:52:54.563] list(added = base::setdiff(base::names(base::.GlobalEnv), 1575s [00:52:54.563] ...future.globalenv.names)) 1575s [00:52:54.563] else NULL, started = ...future.startTime, version = "1.8") 1575s [00:52:54.563] }, condition = base::local({ 1575s [00:52:54.563] c <- base::c 1575s [00:52:54.563] inherits <- base::inherits 1575s [00:52:54.563] invokeRestart <- base::invokeRestart 1575s [00:52:54.563] length <- base::length 1575s [00:52:54.563] list <- base::list 1575s [00:52:54.563] seq.int <- base::seq.int 1575s [00:52:54.563] signalCondition <- base::signalCondition 1575s [00:52:54.563] sys.calls <- base::sys.calls 1575s [00:52:54.563] `[[` <- base::`[[` 1575s [00:52:54.563] `+` <- base::`+` 1575s [00:52:54.563] `<<-` <- base::`<<-` 1575s [00:52:54.563] sysCalls <- function(calls = sys.calls(), from = 1L) { 1575s [00:52:54.563] calls[seq.int(from = from + 12L, to = length(calls) - 1575s [00:52:54.563] 3L)] 1575s [00:52:54.563] } 1575s [00:52:54.563] function(cond) { 1575s [00:52:54.563] is_error <- inherits(cond, "error") 1575s [00:52:54.563] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1575s [00:52:54.563] NULL) 1575s [00:52:54.563] if (is_error) { 1575s [00:52:54.563] sessionInformation <- function() { 1575s [00:52:54.563] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1575s [00:52:54.563] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1575s [00:52:54.563] search = base::search(), system = base::Sys.info()) 1575s [00:52:54.563] } 1575s [00:52:54.563] ...future.conditions[[length(...future.conditions) + 1575s [00:52:54.563] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1575s [00:52:54.563] cond$call), session = sessionInformation(), 1575s [00:52:54.563] timestamp = base::Sys.time(), signaled = 0L) 1575s [00:52:54.563] signalCondition(cond) 1575s [00:52:54.563] } 1575s [00:52:54.563] else if (!ignore && TRUE && inherits(cond, c("condition", 1575s [00:52:54.563] "immediateCondition"))) { 1575s [00:52:54.563] signal <- TRUE && inherits(cond, "immediateCondition") 1575s [00:52:54.563] ...future.conditions[[length(...future.conditions) + 1575s [00:52:54.563] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1575s [00:52:54.563] if (TRUE && !signal) { 1575s [00:52:54.563] muffleCondition <- function (cond, pattern = "^muffle") 1575s [00:52:54.563] { 1575s [00:52:54.563] inherits <- base::inherits 1575s [00:52:54.563] invokeRestart <- base::invokeRestart 1575s [00:52:54.563] is.null <- base::is.null 1575s [00:52:54.563] muffled <- FALSE 1575s [00:52:54.563] if (inherits(cond, "message")) { 1575s [00:52:54.563] muffled <- grepl(pattern, "muffleMessage") 1575s [00:52:54.563] if (muffled) 1575s [00:52:54.563] invokeRestart("muffleMessage") 1575s [00:52:54.563] } 1575s [00:52:54.563] else if (inherits(cond, "warning")) { 1575s [00:52:54.563] muffled <- grepl(pattern, "muffleWarning") 1575s [00:52:54.563] if (muffled) 1575s [00:52:54.563] invokeRestart("muffleWarning") 1575s [00:52:54.563] } 1575s [00:52:54.563] else if (inherits(cond, "condition")) { 1575s [00:52:54.563] if (!is.null(pattern)) { 1575s [00:52:54.563] computeRestarts <- base::computeRestarts 1575s [00:52:54.563] grepl <- base::grepl 1575s [00:52:54.563] restarts <- computeRestarts(cond) 1575s [00:52:54.563] for (restart in restarts) { 1575s [00:52:54.563] name <- restart$name 1575s [00:52:54.563] if (is.null(name)) 1575s [00:52:54.563] next 1575s [00:52:54.563] if (!grepl(pattern, name)) 1575s [00:52:54.563] next 1575s [00:52:54.563] invokeRestart(restart) 1575s [00:52:54.563] muffled <- TRUE 1575s [00:52:54.563] break 1575s [00:52:54.563] } 1575s [00:52:54.563] } 1575s [00:52:54.563] } 1575s [00:52:54.563] invisible(muffled) 1575s [00:52:54.563] } 1575s [00:52:54.563] muffleCondition(cond, pattern = "^muffle") 1575s [00:52:54.563] } 1575s [00:52:54.563] } 1575s [00:52:54.563] else { 1575s [00:52:54.563] if (TRUE) { 1575s [00:52:54.563] muffleCondition <- function (cond, pattern = "^muffle") 1575s [00:52:54.563] { 1575s [00:52:54.563] inherits <- base::inherits 1575s [00:52:54.563] invokeRestart <- base::invokeRestart 1575s [00:52:54.563] is.null <- base::is.null 1575s [00:52:54.563] muffled <- FALSE 1575s [00:52:54.563] if (inherits(cond, "message")) { 1575s [00:52:54.563] muffled <- grepl(pattern, "muffleMessage") 1575s [00:52:54.563] if (muffled) 1575s [00:52:54.563] invokeRestart("muffleMessage") 1575s [00:52:54.563] } 1575s [00:52:54.563] else if (inherits(cond, "warning")) { 1575s [00:52:54.563] muffled <- grepl(pattern, "muffleWarning") 1575s [00:52:54.563] if (muffled) 1575s [00:52:54.563] invokeRestart("muffleWarning") 1575s [00:52:54.563] } 1575s [00:52:54.563] else if (inherits(cond, "condition")) { 1575s [00:52:54.563] if (!is.null(pattern)) { 1575s [00:52:54.563] computeRestarts <- base::computeRestarts 1575s [00:52:54.563] grepl <- base::grepl 1575s [00:52:54.563] restarts <- computeRestarts(cond) 1575s [00:52:54.563] for (restart in restarts) { 1575s [00:52:54.563] name <- restart$name 1575s [00:52:54.563] if (is.null(name)) 1575s [00:52:54.563] next 1575s [00:52:54.563] if (!grepl(pattern, name)) 1575s [00:52:54.563] next 1575s [00:52:54.563] invokeRestart(restart) 1575s [00:52:54.563] muffled <- TRUE 1575s [00:52:54.563] break 1575s [00:52:54.563] } 1575s [00:52:54.563] } 1575s [00:52:54.563] } 1575s [00:52:54.563] invisible(muffled) 1575s [00:52:54.563] } 1575s [00:52:54.563] muffleCondition(cond, pattern = "^muffle") 1575s [00:52:54.563] } 1575s [00:52:54.563] } 1575s [00:52:54.563] } 1575s [00:52:54.563] })) 1575s [00:52:54.563] }, error = function(ex) { 1575s [00:52:54.563] base::structure(base::list(value = NULL, visible = NULL, 1575s [00:52:54.563] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1575s [00:52:54.563] ...future.rng), started = ...future.startTime, 1575s [00:52:54.563] finished = Sys.time(), session_uuid = NA_character_, 1575s [00:52:54.563] version = "1.8"), class = "FutureResult") 1575s [00:52:54.563] }, finally = { 1575s [00:52:54.563] if (!identical(...future.workdir, getwd())) 1575s [00:52:54.563] setwd(...future.workdir) 1575s [00:52:54.563] { 1575s [00:52:54.563] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1575s [00:52:54.563] ...future.oldOptions$nwarnings <- NULL 1575s [00:52:54.563] } 1575s [00:52:54.563] base::options(...future.oldOptions) 1575s [00:52:54.563] if (.Platform$OS.type == "windows") { 1575s [00:52:54.563] old_names <- names(...future.oldEnvVars) 1575s [00:52:54.563] envs <- base::Sys.getenv() 1575s [00:52:54.563] names <- names(envs) 1575s [00:52:54.563] common <- intersect(names, old_names) 1575s [00:52:54.563] added <- setdiff(names, old_names) 1575s [00:52:54.563] removed <- setdiff(old_names, names) 1575s [00:52:54.563] changed <- common[...future.oldEnvVars[common] != 1575s [00:52:54.563] envs[common]] 1575s [00:52:54.563] NAMES <- toupper(changed) 1575s [00:52:54.563] args <- list() 1575s [00:52:54.563] for (kk in seq_along(NAMES)) { 1575s [00:52:54.563] name <- changed[[kk]] 1575s [00:52:54.563] NAME <- NAMES[[kk]] 1575s [00:52:54.563] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:54.563] next 1575s [00:52:54.563] args[[name]] <- ...future.oldEnvVars[[name]] 1575s [00:52:54.563] } 1575s [00:52:54.563] NAMES <- toupper(added) 1575s [00:52:54.563] for (kk in seq_along(NAMES)) { 1575s [00:52:54.563] name <- added[[kk]] 1575s [00:52:54.563] NAME <- NAMES[[kk]] 1575s [00:52:54.563] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:54.563] next 1575s [00:52:54.563] args[[name]] <- "" 1575s [00:52:54.563] } 1575s [00:52:54.563] NAMES <- toupper(removed) 1575s [00:52:54.563] for (kk in seq_along(NAMES)) { 1575s [00:52:54.563] name <- removed[[kk]] 1575s [00:52:54.563] NAME <- NAMES[[kk]] 1575s [00:52:54.563] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:54.563] next 1575s [00:52:54.563] args[[name]] <- ...future.oldEnvVars[[name]] 1575s [00:52:54.563] } 1575s [00:52:54.563] if (length(args) > 0) 1575s [00:52:54.563] base::do.call(base::Sys.setenv, args = args) 1575s [00:52:54.563] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1575s [00:52:54.563] } 1575s [00:52:54.563] else { 1575s [00:52:54.563] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1575s [00:52:54.563] } 1575s [00:52:54.563] { 1575s [00:52:54.563] if (base::length(...future.futureOptionsAdded) > 1575s [00:52:54.563] 0L) { 1575s [00:52:54.563] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1575s [00:52:54.563] base::names(opts) <- ...future.futureOptionsAdded 1575s [00:52:54.563] base::options(opts) 1575s [00:52:54.563] } 1575s [00:52:54.563] { 1575s [00:52:54.563] { 1575s [00:52:54.563] NULL 1575s [00:52:54.563] RNGkind("Mersenne-Twister") 1575s [00:52:54.563] base::rm(list = ".Random.seed", envir = base::globalenv(), 1575s [00:52:54.563] inherits = FALSE) 1575s [00:52:54.563] } 1575s [00:52:54.563] options(future.plan = NULL) 1575s [00:52:54.563] if (is.na(NA_character_)) 1575s [00:52:54.563] Sys.unsetenv("R_FUTURE_PLAN") 1575s [00:52:54.563] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1575s [00:52:54.563] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1575s [00:52:54.563] envir = parent.frame()) 1575s [00:52:54.563] { 1575s [00:52:54.563] default_workers <- missing(workers) 1575s [00:52:54.563] if (is.function(workers)) 1575s [00:52:54.563] workers <- workers() 1575s [00:52:54.563] workers <- structure(as.integer(workers), 1575s [00:52:54.563] class = class(workers)) 1575s [00:52:54.563] stop_if_not(is.finite(workers), workers >= 1575s [00:52:54.563] 1L) 1575s [00:52:54.563] if ((workers == 1L && !inherits(workers, 1575s [00:52:54.563] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1575s [00:52:54.563] if (default_workers) 1575s [00:52:54.563] supportsMulticore(warn = TRUE) 1575s [00:52:54.563] return(sequential(..., envir = envir)) 1575s [00:52:54.563] } 1575s [00:52:54.563] oopts <- options(mc.cores = workers) 1575s [00:52:54.563] on.exit(options(oopts)) 1575s [00:52:54.563] future <- MulticoreFuture(..., workers = workers, 1575s [00:52:54.563] envir = envir) 1575s [00:52:54.563] if (!future$lazy) 1575s [00:52:54.563] future <- run(future) 1575s [00:52:54.563] invisible(future) 1575s [00:52:54.563] }), .cleanup = FALSE, .init = FALSE) 1575s [00:52:54.563] } 1575s [00:52:54.563] } 1575s [00:52:54.563] } 1575s [00:52:54.563] }) 1575s [00:52:54.563] if (TRUE) { 1575s [00:52:54.563] base::sink(type = "output", split = FALSE) 1575s [00:52:54.563] if (TRUE) { 1575s [00:52:54.563] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1575s [00:52:54.563] } 1575s [00:52:54.563] else { 1575s [00:52:54.563] ...future.result["stdout"] <- base::list(NULL) 1575s [00:52:54.563] } 1575s [00:52:54.563] base::close(...future.stdout) 1575s [00:52:54.563] ...future.stdout <- NULL 1575s [00:52:54.563] } 1575s [00:52:54.563] ...future.result$conditions <- ...future.conditions 1575s [00:52:54.563] ...future.result$finished <- base::Sys.time() 1575s [00:52:54.563] ...future.result 1575s [00:52:54.563] } 1575s [00:52:54.568] assign_globals() ... 1575s [00:52:54.569] List of 5 1575s [00:52:54.569] $ ...future.FUN :function (x, ...) 1575s [00:52:54.569] $ future.call.arguments : list() 1575s [00:52:54.569] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:54.569] $ ...future.elements_ii :List of 6 1575s [00:52:54.569] ..$ a1: int 1 1575s [00:52:54.569] ..$ a2: int 2 1575s [00:52:54.569] ..$ b1: int 2 1575s [00:52:54.569] ..$ b2: int 3 1575s [00:52:54.569] ..$ c1: int 3 1575s [00:52:54.569] ..$ c2: int 4 1575s [00:52:54.569] $ ...future.seeds_ii : NULL 1575s [00:52:54.569] $ ...future.globals.maxSize: NULL 1575s [00:52:54.569] - attr(*, "where")=List of 5 1575s [00:52:54.569] ..$ ...future.FUN : 1575s [00:52:54.569] ..$ future.call.arguments : 1575s [00:52:54.569] ..$ ...future.elements_ii : 1575s [00:52:54.569] ..$ ...future.seeds_ii : 1575s [00:52:54.569] ..$ ...future.globals.maxSize: 1575s [00:52:54.569] - attr(*, "resolved")= logi FALSE 1575s [00:52:54.569] - attr(*, "total_size")= num 1248 1575s [00:52:54.569] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:54.569] - attr(*, "already-done")= logi TRUE 1575s [00:52:54.578] - copied ‘...future.FUN’ to environment 1575s [00:52:54.578] - copied ‘future.call.arguments’ to environment 1575s [00:52:54.578] - copied ‘...future.elements_ii’ to environment 1575s [00:52:54.578] - copied ‘...future.seeds_ii’ to environment 1575s [00:52:54.578] - copied ‘...future.globals.maxSize’ to environment 1575s [00:52:54.578] assign_globals() ... done 1575s [00:52:54.579] plan(): Setting new future strategy stack: 1575s [00:52:54.579] List of future strategies: 1575s [00:52:54.579] 1. sequential: 1575s [00:52:54.579] - args: function (..., envir = parent.frame()) 1575s [00:52:54.579] - tweaked: FALSE 1575s [00:52:54.579] - call: NULL 1575s [00:52:54.580] plan(): nbrOfWorkers() = 1 1575s [00:52:54.581] plan(): Setting new future strategy stack: 1575s [00:52:54.581] List of future strategies: 1575s [00:52:54.581] 1. multicore: 1575s [00:52:54.581] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1575s [00:52:54.581] - tweaked: FALSE 1575s [00:52:54.581] - call: plan(strategy) 1575s [00:52:54.586] plan(): nbrOfWorkers() = 1 1575s [00:52:54.586] SequentialFuture started (and completed) 1575s [00:52:54.586] - Launch lazy future ... done 1575s [00:52:54.587] run() for ‘SequentialFuture’ ... done 1575s [00:52:54.587] Created future: 1575s [00:52:54.587] SequentialFuture: 1575s [00:52:54.587] Label: ‘future_sapply-1’ 1575s [00:52:54.587] Expression: 1575s [00:52:54.587] { 1575s [00:52:54.587] do.call(function(...) { 1575s [00:52:54.587] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:54.587] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1575s [00:52:54.587] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:54.587] on.exit(options(oopts), add = TRUE) 1575s [00:52:54.587] } 1575s [00:52:54.587] { 1575s [00:52:54.587] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1575s [00:52:54.587] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:54.587] ...future.FUN(...future.X_jj, ...) 1575s [00:52:54.587] }) 1575s [00:52:54.587] } 1575s [00:52:54.587] }, args = future.call.arguments) 1575s [00:52:54.587] } 1575s [00:52:54.587] Lazy evaluation: FALSE 1575s [00:52:54.587] Asynchronous evaluation: FALSE 1575s [00:52:54.587] Local evaluation: TRUE 1575s [00:52:54.587] Environment: R_GlobalEnv 1575s [00:52:54.587] Capture standard output: TRUE 1575s [00:52:54.587] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1575s [00:52:54.587] Globals: 5 objects totaling 1.55 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1575s [00:52:54.587] Packages: 1575s [00:52:54.587] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1575s [00:52:54.587] Resolved: TRUE 1575s [00:52:54.587] Value: 1.31 KiB of class ‘list’ 1575s [00:52:54.587] Early signaling: FALSE 1575s [00:52:54.587] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1575s [00:52:54.587] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1575s [00:52:54.589] Chunk #1 of 1 ... DONE 1575s [00:52:54.589] Launching 1 futures (chunks) ... DONE 1575s [00:52:54.589] Resolving 1 futures (chunks) ... 1575s [00:52:54.589] resolve() on list ... 1575s [00:52:54.589] recursive: 0 1575s [00:52:54.590] length: 1 1575s [00:52:54.590] 1575s [00:52:54.590] resolved() for ‘SequentialFuture’ ... 1575s [00:52:54.590] - state: ‘finished’ 1575s [00:52:54.590] - run: TRUE 1575s [00:52:54.591] - result: ‘FutureResult’ 1575s [00:52:54.591] resolved() for ‘SequentialFuture’ ... done 1575s [00:52:54.591] Future #1 1575s [00:52:54.591] signalConditionsASAP(SequentialFuture, pos=1) ... 1575s [00:52:54.592] - nx: 1 1575s [00:52:54.592] - relay: TRUE 1575s [00:52:54.592] - stdout: TRUE 1575s [00:52:54.592] - signal: TRUE 1575s [00:52:54.592] - resignal: FALSE 1575s [00:52:54.592] - force: TRUE 1575s [00:52:54.593] - relayed: [n=1] FALSE 1575s [00:52:54.593] - queued futures: [n=1] FALSE 1575s [00:52:54.593] - until=1 1575s [00:52:54.593] - relaying element #1 1575s [00:52:54.593] - relayed: [n=1] TRUE 1575s [00:52:54.594] - queued futures: [n=1] TRUE 1575s [00:52:54.594] signalConditionsASAP(SequentialFuture, pos=1) ... done 1575s [00:52:54.594] length: 0 (resolved future 1) 1575s [00:52:54.594] Relaying remaining futures 1575s [00:52:54.595] signalConditionsASAP(NULL, pos=0) ... 1575s [00:52:54.595] - nx: 1 1575s [00:52:54.595] - relay: TRUE 1575s [00:52:54.595] - stdout: TRUE 1575s [00:52:54.595] - signal: TRUE 1575s [00:52:54.595] - resignal: FALSE 1575s [00:52:54.596] - force: TRUE 1575s [00:52:54.596] - relayed: [n=1] TRUE 1575s [00:52:54.596] - queued futures: [n=1] TRUE 1575s - flush all 1575s [00:52:54.596] - relayed: [n=1] TRUE 1575s [00:52:54.596] - queued futures: [n=1] TRUE 1575s [00:52:54.596] signalConditionsASAP(NULL, pos=0) ... done 1575s [00:52:54.596] resolve() on list ... DONE 1575s [00:52:54.597] - Number of value chunks collected: 1 1575s [00:52:54.597] Resolving 1 futures (chunks) ... DONE 1575s [00:52:54.597] Reducing values from 1 chunks ... 1575s [00:52:54.601] - Number of values collected after concatenation: 6 1575s [00:52:54.601] - Number of values expected: 6 1575s [00:52:54.601] Reducing values from 1 chunks ... DONE 1575s [00:52:54.601] future_lapply() ... DONE 1575s [00:52:54.623] future_lapply() ... 1575s [00:52:54.628] Number of chunks: 1 1575s [00:52:54.628] getGlobalsAndPackagesXApply() ... 1575s [00:52:54.628] - future.globals: TRUE 1575s [00:52:54.628] getGlobalsAndPackages() ... 1575s [00:52:54.628] Searching for globals... 1575s [00:52:54.631] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1575s [00:52:54.631] Searching for globals ... DONE 1575s [00:52:54.631] Resolving globals: FALSE 1575s [00:52:54.633] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1575s [00:52:54.633] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1575s [00:52:54.634] - globals: [1] ‘FUN’ 1575s [00:52:54.634] 1575s [00:52:54.634] getGlobalsAndPackages() ... DONE 1575s [00:52:54.634] - globals found/used: [n=1] ‘FUN’ 1575s [00:52:54.634] - needed namespaces: [n=0] 1575s [00:52:54.635] Finding globals ... DONE 1575s [00:52:54.635] - use_args: TRUE 1575s [00:52:54.635] - Getting '...' globals ... 1575s [00:52:54.635] resolve() on list ... 1575s [00:52:54.635] recursive: 0 1575s [00:52:54.635] length: 1 1575s [00:52:54.636] elements: ‘...’ 1575s [00:52:54.636] length: 0 (resolved future 1) 1575s [00:52:54.636] resolve() on list ... DONE 1575s [00:52:54.636] - '...' content: [n=0] 1575s [00:52:54.636] List of 1 1575s [00:52:54.636] $ ...: list() 1575s [00:52:54.636] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:54.636] - attr(*, "where")=List of 1 1575s [00:52:54.636] ..$ ...: 1575s [00:52:54.636] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:54.636] - attr(*, "resolved")= logi TRUE 1575s [00:52:54.636] - attr(*, "total_size")= num NA 1575s [00:52:54.640] - Getting '...' globals ... DONE 1575s [00:52:54.641] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1575s [00:52:54.641] List of 2 1575s [00:52:54.641] $ ...future.FUN:function (x, y = 2 * 1:5) 1575s [00:52:54.641] $ ... : list() 1575s [00:52:54.641] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:54.641] - attr(*, "where")=List of 2 1575s [00:52:54.641] ..$ ...future.FUN: 1575s [00:52:54.641] ..$ ... : 1575s [00:52:54.641] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:54.641] - attr(*, "resolved")= logi FALSE 1575s [00:52:54.641] - attr(*, "total_size")= num 4728 1575s [00:52:54.646] Packages to be attached in all futures: [n=0] 1575s [00:52:54.646] getGlobalsAndPackagesXApply() ... DONE 1575s [00:52:54.646] Number of futures (= number of chunks): 1 1575s [00:52:54.646] Launching 1 futures (chunks) ... 1575s [00:52:54.647] Chunk #1 of 1 ... 1575s [00:52:54.647] - Finding globals in 'X' for chunk #1 ... 1575s [00:52:54.647] getGlobalsAndPackages() ... 1575s [00:52:54.647] Searching for globals... 1575s [00:52:54.648] 1575s [00:52:54.648] Searching for globals ... DONE 1575s [00:52:54.648] - globals: [0] 1575s [00:52:54.648] getGlobalsAndPackages() ... DONE 1575s [00:52:54.649] + additional globals found: [n=0] 1575s [00:52:54.649] + additional namespaces needed: [n=0] 1575s [00:52:54.649] - Finding globals in 'X' for chunk #1 ... DONE 1575s [00:52:54.649] - seeds: 1575s [00:52:54.649] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:54.649] getGlobalsAndPackages() ... 1575s [00:52:54.649] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:54.650] Resolving globals: FALSE 1575s [00:52:54.650] Tweak future expression to call with '...' arguments ... 1575s [00:52:54.650] { 1575s [00:52:54.650] do.call(function(...) { 1575s [00:52:54.650] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:54.650] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1575s [00:52:54.650] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:54.650] on.exit(options(oopts), add = TRUE) 1575s [00:52:54.650] } 1575s [00:52:54.650] { 1575s [00:52:54.650] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1575s [00:52:54.650] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:54.650] ...future.FUN(...future.X_jj, ...) 1575s [00:52:54.650] }) 1575s [00:52:54.650] } 1575s [00:52:54.650] }, args = future.call.arguments) 1575s [00:52:54.650] } 1575s [00:52:54.651] Tweak future expression to call with '...' arguments ... DONE 1575s [00:52:54.651] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:54.652] 1575s [00:52:54.653] getGlobalsAndPackages() ... DONE 1575s [00:52:54.653] run() for ‘Future’ ... 1575s [00:52:54.654] - state: ‘created’ 1575s [00:52:54.654] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1575s [00:52:54.657] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1575s [00:52:54.658] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1575s [00:52:54.658] - Field: ‘label’ 1575s [00:52:54.658] - Field: ‘local’ 1575s [00:52:54.658] - Field: ‘owner’ 1575s [00:52:54.659] - Field: ‘envir’ 1575s [00:52:54.659] - Field: ‘packages’ 1575s [00:52:54.659] - Field: ‘gc’ 1575s [00:52:54.659] - Field: ‘conditions’ 1575s [00:52:54.660] - Field: ‘expr’ 1575s [00:52:54.660] - Field: ‘uuid’ 1575s [00:52:54.660] - Field: ‘seed’ 1575s [00:52:54.660] - Field: ‘version’ 1575s [00:52:54.660] - Field: ‘result’ 1575s [00:52:54.661] - Field: ‘asynchronous’ 1575s [00:52:54.661] - Field: ‘calls’ 1575s [00:52:54.661] - Field: ‘globals’ 1575s [00:52:54.661] - Field: ‘stdout’ 1575s [00:52:54.661] - Field: ‘earlySignal’ 1575s [00:52:54.661] - Field: ‘lazy’ 1575s [00:52:54.661] - Field: ‘state’ 1575s [00:52:54.662] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1575s [00:52:54.662] - Launch lazy future ... 1575s [00:52:54.662] Packages needed by the future expression (n = 0): 1575s [00:52:54.662] Packages needed by future strategies (n = 0): 1575s [00:52:54.663] { 1575s [00:52:54.663] { 1575s [00:52:54.663] { 1575s [00:52:54.663] ...future.startTime <- base::Sys.time() 1575s [00:52:54.663] { 1575s [00:52:54.663] { 1575s [00:52:54.663] { 1575s [00:52:54.663] base::local({ 1575s [00:52:54.663] has_future <- base::requireNamespace("future", 1575s [00:52:54.663] quietly = TRUE) 1575s [00:52:54.663] if (has_future) { 1575s [00:52:54.663] ns <- base::getNamespace("future") 1575s [00:52:54.663] version <- ns[[".package"]][["version"]] 1575s [00:52:54.663] if (is.null(version)) 1575s [00:52:54.663] version <- utils::packageVersion("future") 1575s [00:52:54.663] } 1575s [00:52:54.663] else { 1575s [00:52:54.663] version <- NULL 1575s [00:52:54.663] } 1575s [00:52:54.663] if (!has_future || version < "1.8.0") { 1575s [00:52:54.663] info <- base::c(r_version = base::gsub("R version ", 1575s [00:52:54.663] "", base::R.version$version.string), 1575s [00:52:54.663] platform = base::sprintf("%s (%s-bit)", 1575s [00:52:54.663] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1575s [00:52:54.663] os = base::paste(base::Sys.info()[base::c("sysname", 1575s [00:52:54.663] "release", "version")], collapse = " "), 1575s [00:52:54.663] hostname = base::Sys.info()[["nodename"]]) 1575s [00:52:54.663] info <- base::sprintf("%s: %s", base::names(info), 1575s [00:52:54.663] info) 1575s [00:52:54.663] info <- base::paste(info, collapse = "; ") 1575s [00:52:54.663] if (!has_future) { 1575s [00:52:54.663] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1575s [00:52:54.663] info) 1575s [00:52:54.663] } 1575s [00:52:54.663] else { 1575s [00:52:54.663] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1575s [00:52:54.663] info, version) 1575s [00:52:54.663] } 1575s [00:52:54.663] base::stop(msg) 1575s [00:52:54.663] } 1575s [00:52:54.663] }) 1575s [00:52:54.663] } 1575s [00:52:54.663] options(future.plan = NULL) 1575s [00:52:54.663] Sys.unsetenv("R_FUTURE_PLAN") 1575s [00:52:54.663] future::plan("default", .cleanup = FALSE, .init = FALSE) 1575s [00:52:54.663] } 1575s [00:52:54.663] ...future.workdir <- getwd() 1575s [00:52:54.663] } 1575s [00:52:54.663] ...future.oldOptions <- base::as.list(base::.Options) 1575s [00:52:54.663] ...future.oldEnvVars <- base::Sys.getenv() 1575s [00:52:54.663] } 1575s [00:52:54.663] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1575s [00:52:54.663] future.globals.maxSize = NULL, future.globals.method = NULL, 1575s [00:52:54.663] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1575s [00:52:54.663] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1575s [00:52:54.663] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1575s [00:52:54.663] future.stdout.windows.reencode = NULL, width = 80L) 1575s [00:52:54.663] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1575s [00:52:54.663] base::names(...future.oldOptions)) 1575s [00:52:54.663] } 1575s [00:52:54.663] if (FALSE) { 1575s [00:52:54.663] } 1575s [00:52:54.663] else { 1575s [00:52:54.663] if (TRUE) { 1575s [00:52:54.663] ...future.stdout <- base::rawConnection(base::raw(0L), 1575s [00:52:54.663] open = "w") 1575s [00:52:54.663] } 1575s [00:52:54.663] else { 1575s [00:52:54.663] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1575s [00:52:54.663] windows = "NUL", "/dev/null"), open = "w") 1575s [00:52:54.663] } 1575s [00:52:54.663] base::sink(...future.stdout, type = "output", split = FALSE) 1575s [00:52:54.663] base::on.exit(if (!base::is.null(...future.stdout)) { 1575s [00:52:54.663] base::sink(type = "output", split = FALSE) 1575s [00:52:54.663] base::close(...future.stdout) 1575s [00:52:54.663] }, add = TRUE) 1575s [00:52:54.663] } 1575s [00:52:54.663] ...future.frame <- base::sys.nframe() 1575s [00:52:54.663] ...future.conditions <- base::list() 1575s [00:52:54.663] ...future.rng <- base::globalenv()$.Random.seed 1575s [00:52:54.663] if (FALSE) { 1575s [00:52:54.663] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1575s [00:52:54.663] "...future.value", "...future.globalenv.names", ".Random.seed") 1575s [00:52:54.663] } 1575s [00:52:54.663] ...future.result <- base::tryCatch({ 1575s [00:52:54.663] base::withCallingHandlers({ 1575s [00:52:54.663] ...future.value <- base::withVisible(base::local({ 1575s [00:52:54.663] do.call(function(...) { 1575s [00:52:54.663] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:54.663] if (!identical(...future.globals.maxSize.org, 1575s [00:52:54.663] ...future.globals.maxSize)) { 1575s [00:52:54.663] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:54.663] on.exit(options(oopts), add = TRUE) 1575s [00:52:54.663] } 1575s [00:52:54.663] { 1575s [00:52:54.663] lapply(seq_along(...future.elements_ii), 1575s [00:52:54.663] FUN = function(jj) { 1575s [00:52:54.663] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:54.663] ...future.FUN(...future.X_jj, ...) 1575s [00:52:54.663] }) 1575s [00:52:54.663] } 1575s [00:52:54.663] }, args = future.call.arguments) 1575s [00:52:54.663] })) 1575s [00:52:54.663] future::FutureResult(value = ...future.value$value, 1575s [00:52:54.663] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1575s [00:52:54.663] ...future.rng), globalenv = if (FALSE) 1575s [00:52:54.663] list(added = base::setdiff(base::names(base::.GlobalEnv), 1575s [00:52:54.663] ...future.globalenv.names)) 1575s [00:52:54.663] else NULL, started = ...future.startTime, version = "1.8") 1575s [00:52:54.663] }, condition = base::local({ 1575s [00:52:54.663] c <- base::c 1575s [00:52:54.663] inherits <- base::inherits 1575s [00:52:54.663] invokeRestart <- base::invokeRestart 1575s [00:52:54.663] length <- base::length 1575s [00:52:54.663] list <- base::list 1575s [00:52:54.663] seq.int <- base::seq.int 1575s [00:52:54.663] signalCondition <- base::signalCondition 1575s [00:52:54.663] sys.calls <- base::sys.calls 1575s [00:52:54.663] `[[` <- base::`[[` 1575s [00:52:54.663] `+` <- base::`+` 1575s [00:52:54.663] `<<-` <- base::`<<-` 1575s [00:52:54.663] sysCalls <- function(calls = sys.calls(), from = 1L) { 1575s [00:52:54.663] calls[seq.int(from = from + 12L, to = length(calls) - 1575s [00:52:54.663] 3L)] 1575s [00:52:54.663] } 1575s [00:52:54.663] function(cond) { 1575s [00:52:54.663] is_error <- inherits(cond, "error") 1575s [00:52:54.663] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1575s [00:52:54.663] NULL) 1575s [00:52:54.663] if (is_error) { 1575s [00:52:54.663] sessionInformation <- function() { 1575s [00:52:54.663] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1575s [00:52:54.663] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1575s [00:52:54.663] search = base::search(), system = base::Sys.info()) 1575s [00:52:54.663] } 1575s [00:52:54.663] ...future.conditions[[length(...future.conditions) + 1575s [00:52:54.663] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1575s [00:52:54.663] cond$call), session = sessionInformation(), 1575s [00:52:54.663] timestamp = base::Sys.time(), signaled = 0L) 1575s [00:52:54.663] signalCondition(cond) 1575s [00:52:54.663] } 1575s [00:52:54.663] else if (!ignore && TRUE && inherits(cond, c("condition", 1575s [00:52:54.663] "immediateCondition"))) { 1575s [00:52:54.663] signal <- TRUE && inherits(cond, "immediateCondition") 1575s [00:52:54.663] ...future.conditions[[length(...future.conditions) + 1575s [00:52:54.663] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1575s [00:52:54.663] if (TRUE && !signal) { 1575s [00:52:54.663] muffleCondition <- function (cond, pattern = "^muffle") 1575s [00:52:54.663] { 1575s [00:52:54.663] inherits <- base::inherits 1575s [00:52:54.663] invokeRestart <- base::invokeRestart 1575s [00:52:54.663] is.null <- base::is.null 1575s [00:52:54.663] muffled <- FALSE 1575s [00:52:54.663] if (inherits(cond, "message")) { 1575s [00:52:54.663] muffled <- grepl(pattern, "muffleMessage") 1575s [00:52:54.663] if (muffled) 1575s [00:52:54.663] invokeRestart("muffleMessage") 1575s [00:52:54.663] } 1575s [00:52:54.663] else if (inherits(cond, "warning")) { 1575s [00:52:54.663] muffled <- grepl(pattern, "muffleWarning") 1575s [00:52:54.663] if (muffled) 1575s [00:52:54.663] invokeRestart("muffleWarning") 1575s [00:52:54.663] } 1575s [00:52:54.663] else if (inherits(cond, "condition")) { 1575s [00:52:54.663] if (!is.null(pattern)) { 1575s [00:52:54.663] computeRestarts <- base::computeRestarts 1575s [00:52:54.663] grepl <- base::grepl 1575s [00:52:54.663] restarts <- computeRestarts(cond) 1575s [00:52:54.663] for (restart in restarts) { 1575s [00:52:54.663] name <- restart$name 1575s [00:52:54.663] if (is.null(name)) 1575s [00:52:54.663] next 1575s [00:52:54.663] if (!grepl(pattern, name)) 1575s [00:52:54.663] next 1575s [00:52:54.663] invokeRestart(restart) 1575s [00:52:54.663] muffled <- TRUE 1575s [00:52:54.663] break 1575s [00:52:54.663] } 1575s [00:52:54.663] } 1575s [00:52:54.663] } 1575s [00:52:54.663] invisible(muffled) 1575s [00:52:54.663] } 1575s [00:52:54.663] muffleCondition(cond, pattern = "^muffle") 1575s [00:52:54.663] } 1575s [00:52:54.663] } 1575s [00:52:54.663] else { 1575s [00:52:54.663] if (TRUE) { 1575s [00:52:54.663] muffleCondition <- function (cond, pattern = "^muffle") 1575s [00:52:54.663] { 1575s [00:52:54.663] inherits <- base::inherits 1575s [00:52:54.663] invokeRestart <- base::invokeRestart 1575s [00:52:54.663] is.null <- base::is.null 1575s [00:52:54.663] muffled <- FALSE 1575s [00:52:54.663] if (inherits(cond, "message")) { 1575s [00:52:54.663] muffled <- grepl(pattern, "muffleMessage") 1575s [00:52:54.663] if (muffled) 1575s [00:52:54.663] invokeRestart("muffleMessage") 1575s [00:52:54.663] } 1575s [00:52:54.663] else if (inherits(cond, "warning")) { 1575s [00:52:54.663] muffled <- grepl(pattern, "muffleWarning") 1575s [00:52:54.663] if (muffled) 1575s [00:52:54.663] invokeRestart("muffleWarning") 1575s [00:52:54.663] } 1575s [00:52:54.663] else if (inherits(cond, "condition")) { 1575s [00:52:54.663] if (!is.null(pattern)) { 1575s [00:52:54.663] computeRestarts <- base::computeRestarts 1575s [00:52:54.663] grepl <- base::grepl 1575s [00:52:54.663] restarts <- computeRestarts(cond) 1575s [00:52:54.663] for (restart in restarts) { 1575s [00:52:54.663] name <- restart$name 1575s [00:52:54.663] if (is.null(name)) 1575s [00:52:54.663] next 1575s [00:52:54.663] if (!grepl(pattern, name)) 1575s [00:52:54.663] next 1575s [00:52:54.663] invokeRestart(restart) 1575s [00:52:54.663] muffled <- TRUE 1575s [00:52:54.663] break 1575s [00:52:54.663] } 1575s [00:52:54.663] } 1575s [00:52:54.663] } 1575s [00:52:54.663] invisible(muffled) 1575s [00:52:54.663] } 1575s [00:52:54.663] muffleCondition(cond, pattern = "^muffle") 1575s [00:52:54.663] } 1575s [00:52:54.663] } 1575s [00:52:54.663] } 1575s [00:52:54.663] })) 1575s [00:52:54.663] }, error = function(ex) { 1575s [00:52:54.663] base::structure(base::list(value = NULL, visible = NULL, 1575s [00:52:54.663] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1575s [00:52:54.663] ...future.rng), started = ...future.startTime, 1575s [00:52:54.663] finished = Sys.time(), session_uuid = NA_character_, 1575s [00:52:54.663] version = "1.8"), class = "FutureResult") 1575s [00:52:54.663] }, finally = { 1575s [00:52:54.663] if (!identical(...future.workdir, getwd())) 1575s [00:52:54.663] setwd(...future.workdir) 1575s [00:52:54.663] { 1575s [00:52:54.663] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1575s [00:52:54.663] ...future.oldOptions$nwarnings <- NULL 1575s [00:52:54.663] } 1575s [00:52:54.663] base::options(...future.oldOptions) 1575s [00:52:54.663] if (.Platform$OS.type == "windows") { 1575s [00:52:54.663] old_names <- names(...future.oldEnvVars) 1575s [00:52:54.663] envs <- base::Sys.getenv() 1575s [00:52:54.663] names <- names(envs) 1575s [00:52:54.663] common <- intersect(names, old_names) 1575s [00:52:54.663] added <- setdiff(names, old_names) 1575s [00:52:54.663] removed <- setdiff(old_names, names) 1575s [00:52:54.663] changed <- common[...future.oldEnvVars[common] != 1575s [00:52:54.663] envs[common]] 1575s [00:52:54.663] NAMES <- toupper(changed) 1575s [00:52:54.663] args <- list() 1575s [00:52:54.663] for (kk in seq_along(NAMES)) { 1575s [00:52:54.663] name <- changed[[kk]] 1575s [00:52:54.663] NAME <- NAMES[[kk]] 1575s [00:52:54.663] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:54.663] next 1575s [00:52:54.663] args[[name]] <- ...future.oldEnvVars[[name]] 1575s [00:52:54.663] } 1575s [00:52:54.663] NAMES <- toupper(added) 1575s [00:52:54.663] for (kk in seq_along(NAMES)) { 1575s [00:52:54.663] name <- added[[kk]] 1575s [00:52:54.663] NAME <- NAMES[[kk]] 1575s [00:52:54.663] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:54.663] next 1575s [00:52:54.663] args[[name]] <- "" 1575s [00:52:54.663] } 1575s [00:52:54.663] NAMES <- toupper(removed) 1575s [00:52:54.663] for (kk in seq_along(NAMES)) { 1575s [00:52:54.663] name <- removed[[kk]] 1575s [00:52:54.663] NAME <- NAMES[[kk]] 1575s [00:52:54.663] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:54.663] next 1575s [00:52:54.663] args[[name]] <- ...future.oldEnvVars[[name]] 1575s [00:52:54.663] } 1575s [00:52:54.663] if (length(args) > 0) 1575s [00:52:54.663] base::do.call(base::Sys.setenv, args = args) 1575s [00:52:54.663] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1575s [00:52:54.663] } 1575s [00:52:54.663] else { 1575s [00:52:54.663] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1575s [00:52:54.663] } 1575s [00:52:54.663] { 1575s [00:52:54.663] if (base::length(...future.futureOptionsAdded) > 1575s [00:52:54.663] 0L) { 1575s [00:52:54.663] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1575s [00:52:54.663] base::names(opts) <- ...future.futureOptionsAdded 1575s [00:52:54.663] base::options(opts) 1575s [00:52:54.663] } 1575s [00:52:54.663] { 1575s [00:52:54.663] { 1575s [00:52:54.663] NULL 1575s [00:52:54.663] RNGkind("Mersenne-Twister") 1575s [00:52:54.663] base::rm(list = ".Random.seed", envir = base::globalenv(), 1575s [00:52:54.663] inherits = FALSE) 1575s [00:52:54.663] } 1575s [00:52:54.663] options(future.plan = NULL) 1575s [00:52:54.663] if (is.na(NA_character_)) 1575s [00:52:54.663] Sys.unsetenv("R_FUTURE_PLAN") 1575s [00:52:54.663] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1575s [00:52:54.663] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1575s [00:52:54.663] envir = parent.frame()) 1575s [00:52:54.663] { 1575s [00:52:54.663] default_workers <- missing(workers) 1575s [00:52:54.663] if (is.function(workers)) 1575s [00:52:54.663] workers <- workers() 1575s [00:52:54.663] workers <- structure(as.integer(workers), 1575s [00:52:54.663] class = class(workers)) 1575s [00:52:54.663] stop_if_not(is.finite(workers), workers >= 1575s [00:52:54.663] 1L) 1575s [00:52:54.663] if ((workers == 1L && !inherits(workers, 1575s [00:52:54.663] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1575s [00:52:54.663] if (default_workers) 1575s [00:52:54.663] supportsMulticore(warn = TRUE) 1575s [00:52:54.663] return(sequential(..., envir = envir)) 1575s [00:52:54.663] } 1575s [00:52:54.663] oopts <- options(mc.cores = workers) 1575s [00:52:54.663] on.exit(options(oopts)) 1575s [00:52:54.663] future <- MulticoreFuture(..., workers = workers, 1575s [00:52:54.663] envir = envir) 1575s [00:52:54.663] if (!future$lazy) 1575s [00:52:54.663] future <- run(future) 1575s [00:52:54.663] invisible(future) 1575s [00:52:54.663] }), .cleanup = FALSE, .init = FALSE) 1575s [00:52:54.663] } 1575s [00:52:54.663] } 1575s [00:52:54.663] } 1575s [00:52:54.663] }) 1575s [00:52:54.663] if (TRUE) { 1575s [00:52:54.663] base::sink(type = "output", split = FALSE) 1575s [00:52:54.663] if (TRUE) { 1575s [00:52:54.663] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1575s [00:52:54.663] } 1575s [00:52:54.663] else { 1575s [00:52:54.663] ...future.result["stdout"] <- base::list(NULL) 1575s [00:52:54.663] } 1575s [00:52:54.663] base::close(...future.stdout) 1575s [00:52:54.663] ...future.stdout <- NULL 1575s [00:52:54.663] } 1575s [00:52:54.663] ...future.result$conditions <- ...future.conditions 1575s [00:52:54.663] ...future.result$finished <- base::Sys.time() 1575s [00:52:54.663] ...future.result 1575s [00:52:54.663] } 1575s [00:52:54.671] assign_globals() ... 1575s [00:52:54.671] List of 5 1575s [00:52:54.671] $ ...future.FUN :function (x, y = 2 * 1:5) 1575s [00:52:54.671] $ future.call.arguments : list() 1575s [00:52:54.671] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:54.671] $ ...future.elements_ii :List of 6 1575s [00:52:54.671] ..$ a1: int 1 1575s [00:52:54.671] ..$ a2: int 2 1575s [00:52:54.671] ..$ b1: int 2 1575s [00:52:54.671] ..$ b2: int 3 1575s [00:52:54.671] ..$ c1: int 3 1575s [00:52:54.671] ..$ c2: int 4 1575s [00:52:54.671] $ ...future.seeds_ii : NULL 1575s [00:52:54.671] $ ...future.globals.maxSize: NULL 1575s [00:52:54.671] - attr(*, "where")=List of 5 1575s [00:52:54.671] ..$ ...future.FUN : 1575s [00:52:54.671] ..$ future.call.arguments : 1575s [00:52:54.671] ..$ ...future.elements_ii : 1575s [00:52:54.671] ..$ ...future.seeds_ii : 1575s [00:52:54.671] ..$ ...future.globals.maxSize: 1575s [00:52:54.671] - attr(*, "resolved")= logi FALSE 1575s [00:52:54.671] - attr(*, "total_size")= num 4728 1575s [00:52:54.671] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:54.671] - attr(*, "already-done")= logi TRUE 1575s [00:52:54.683] - reassign environment for ‘...future.FUN’ 1575s [00:52:54.683] - copied ‘...future.FUN’ to environment 1575s [00:52:54.684] - copied ‘future.call.arguments’ to environment 1575s [00:52:54.684] - copied ‘...future.elements_ii’ to environment 1575s [00:52:54.684] - copied ‘...future.seeds_ii’ to environment 1575s [00:52:54.684] - copied ‘...future.globals.maxSize’ to environment 1575s [00:52:54.684] assign_globals() ... done 1575s [00:52:54.685] plan(): Setting new future strategy stack: 1575s [00:52:54.685] List of future strategies: 1575s [00:52:54.685] 1. sequential: 1575s [00:52:54.685] - args: function (..., envir = parent.frame()) 1575s [00:52:54.685] - tweaked: FALSE 1575s [00:52:54.685] - call: NULL 1575s [00:52:54.686] plan(): nbrOfWorkers() = 1 1575s [00:52:54.687] plan(): Setting new future strategy stack: 1575s [00:52:54.687] List of future strategies: 1575s [00:52:54.687] 1. multicore: 1575s [00:52:54.687] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1575s [00:52:54.687] - tweaked: FALSE 1575s [00:52:54.687] - call: plan(strategy) 1575s [00:52:54.692] plan(): nbrOfWorkers() = 1 1575s [00:52:54.692] SequentialFuture started (and completed) 1575s [00:52:54.692] - Launch lazy future ... done 1575s [00:52:54.692] run() for ‘SequentialFuture’ ... done 1575s [00:52:54.692] Created future: 1575s [00:52:54.693] SequentialFuture: 1575s [00:52:54.693] Label: ‘future_sapply-1’ 1575s [00:52:54.693] Expression: 1575s [00:52:54.693] { 1575s [00:52:54.693] do.call(function(...) { 1575s [00:52:54.693] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:54.693] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1575s [00:52:54.693] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:54.693] on.exit(options(oopts), add = TRUE) 1575s [00:52:54.693] } 1575s [00:52:54.693] { 1575s [00:52:54.693] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1575s [00:52:54.693] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:54.693] ...future.FUN(...future.X_jj, ...) 1575s [00:52:54.693] }) 1575s [00:52:54.693] } 1575s [00:52:54.693] }, args = future.call.arguments) 1575s [00:52:54.693] } 1575s [00:52:54.693] Lazy evaluation: FALSE 1575s [00:52:54.693] Asynchronous evaluation: FALSE 1575s [00:52:54.693] Local evaluation: TRUE 1575s [00:52:54.693] Environment: R_GlobalEnv 1575s [00:52:54.693] Capture standard output: TRUE 1575s [00:52:54.693] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1575s [00:52:54.693] Globals: 5 objects totaling 4.95 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1575s [00:52:54.693] Packages: 1575s [00:52:54.693] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1575s [00:52:54.693] Resolved: TRUE 1575s [00:52:54.693] Value: 2.02 KiB of class ‘list’ 1575s [00:52:54.693] Early signaling: FALSE 1575s [00:52:54.693] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1575s [00:52:54.693] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1575s [00:52:54.694] Chunk #1 of 1 ... DONE 1575s [00:52:54.694] Launching 1 futures (chunks) ... DONE 1575s [00:52:54.695] Resolving 1 futures (chunks) ... 1575s [00:52:54.695] resolve() on list ... 1575s [00:52:54.695] recursive: 0 1575s [00:52:54.695] length: 1 1575s [00:52:54.695] 1575s [00:52:54.695] resolved() for ‘SequentialFuture’ ... 1575s [00:52:54.695] - state: ‘finished’ 1575s [00:52:54.696] - run: TRUE 1575s [00:52:54.696] - result: ‘FutureResult’ 1575s [00:52:54.696] resolved() for ‘SequentialFuture’ ... done 1575s [00:52:54.696] Future #1 1575s [00:52:54.696] signalConditionsASAP(SequentialFuture, pos=1) ... 1575s [00:52:54.697] - nx: 1 1575s [00:52:54.697] - relay: TRUE 1575s [00:52:54.697] - stdout: TRUE 1575s [00:52:54.697] - signal: TRUE 1575s [00:52:54.697] - resignal: FALSE 1575s [00:52:54.697] - force: TRUE 1575s [00:52:54.698] - relayed: [n=1] FALSE 1575s [00:52:54.698] - queued futures: [n=1] FALSE 1575s [00:52:54.698] - until=1 1575s [00:52:54.698] - relaying element #1 1575s [00:52:54.699] - relayed: [n=1] TRUE 1575s [00:52:54.699] - queued futures: [n=1] TRUE 1575s [00:52:54.699] signalConditionsASAP(SequentialFuture, pos=1) ... done 1575s [00:52:54.699] length: 0 (resolved future 1) 1575s [00:52:54.699] Relaying remaining futures 1575s [00:52:54.699] signalConditionsASAP(NULL, pos=0) ... 1575s [00:52:54.699] - nx: 1 1575s [00:52:54.699] - relay: TRUE 1575s [00:52:54.699] - stdout: TRUE 1575s [00:52:54.700] - signal: TRUE 1575s [00:52:54.700] - resignal: FALSE 1575s [00:52:54.700] - force: TRUE 1575s [00:52:54.700] - relayed: [n=1] TRUE 1575s [00:52:54.701] - queued futures: [n=1] TRUE 1575s - flush all 1575s [00:52:54.701] - relayed: [n=1] TRUE 1575s [00:52:54.701] - queued futures: [n=1] TRUE 1575s [00:52:54.701] signalConditionsASAP(NULL, pos=0) ... done 1575s [00:52:54.702] resolve() on list ... DONE 1575s [00:52:54.702] - Number of value chunks collected: 1 1575s [00:52:54.702] Resolving 1 futures (chunks) ... DONE 1575s [00:52:54.702] Reducing values from 1 chunks ... 1575s [00:52:54.702] - Number of values collected after concatenation: 6 1575s [00:52:54.703] - Number of values expected: 6 1575s [00:52:54.703] Reducing values from 1 chunks ... DONE 1575s [00:52:54.703] future_lapply() ... DONE 1575s [00:52:54.728] future_lapply() ... 1575s [00:52:54.734] Number of chunks: 1 1575s [00:52:54.734] getGlobalsAndPackagesXApply() ... 1575s [00:52:54.734] - future.globals: TRUE 1575s [00:52:54.735] getGlobalsAndPackages() ... 1575s [00:52:54.735] Searching for globals... 1575s [00:52:54.737] - globals found: [1] ‘FUN’ 1575s [00:52:54.737] Searching for globals ... DONE 1575s [00:52:54.737] Resolving globals: FALSE 1575s [00:52:54.738] The total size of the 1 globals is 848 bytes (848 bytes) 1575s [00:52:54.738] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1575s [00:52:54.739] - globals: [1] ‘FUN’ 1575s [00:52:54.739] 1575s [00:52:54.739] getGlobalsAndPackages() ... DONE 1575s [00:52:54.739] - globals found/used: [n=1] ‘FUN’ 1575s [00:52:54.739] - needed namespaces: [n=0] 1575s [00:52:54.739] Finding globals ... DONE 1575s [00:52:54.739] - use_args: TRUE 1575s [00:52:54.740] - Getting '...' globals ... 1575s [00:52:54.741] resolve() on list ... 1575s [00:52:54.741] recursive: 0 1575s [00:52:54.741] length: 1 1575s [00:52:54.741] elements: ‘...’ 1575s [00:52:54.741] length: 0 (resolved future 1) 1575s [00:52:54.741] resolve() on list ... DONE 1575s [00:52:54.742] - '...' content: [n=0] 1575s [00:52:54.742] List of 1 1575s [00:52:54.742] $ ...: list() 1575s [00:52:54.742] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:54.742] - attr(*, "where")=List of 1 1575s [00:52:54.742] ..$ ...: 1575s [00:52:54.742] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:54.742] - attr(*, "resolved")= logi TRUE 1575s [00:52:54.742] - attr(*, "total_size")= num NA 1575s [00:52:54.754] - Getting '...' globals ... DONE 1575s [00:52:54.755] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1575s [00:52:54.755] List of 2 1575s [00:52:54.755] $ ...future.FUN:function (x) 1575s [00:52:54.755] $ ... : list() 1575s [00:52:54.755] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:54.755] - attr(*, "where")=List of 2 1575s [00:52:54.755] ..$ ...future.FUN: 1575s [00:52:54.755] ..$ ... : 1575s [00:52:54.755] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:54.755] - attr(*, "resolved")= logi FALSE 1575s [00:52:54.755] - attr(*, "total_size")= num 848 1575s [00:52:54.760] Packages to be attached in all futures: [n=0] 1575s [00:52:54.761] getGlobalsAndPackagesXApply() ... DONE 1575s [00:52:54.761] Number of futures (= number of chunks): 1 1575s [00:52:54.761] Launching 1 futures (chunks) ... 1575s [00:52:54.761] Chunk #1 of 1 ... 1575s [00:52:54.761] - Finding globals in 'X' for chunk #1 ... 1575s [00:52:54.761] getGlobalsAndPackages() ... 1575s [00:52:54.762] Searching for globals... 1575s [00:52:54.762] 1575s [00:52:54.763] Searching for globals ... DONE 1575s [00:52:54.763] - globals: [0] 1575s [00:52:54.763] getGlobalsAndPackages() ... DONE 1575s [00:52:54.763] + additional globals found: [n=0] 1575s [00:52:54.763] + additional namespaces needed: [n=0] 1575s [00:52:54.763] - Finding globals in 'X' for chunk #1 ... DONE 1575s [00:52:54.764] - seeds: 1575s [00:52:54.764] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:54.764] getGlobalsAndPackages() ... 1575s [00:52:54.764] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:54.764] Resolving globals: FALSE 1575s [00:52:54.764] Tweak future expression to call with '...' arguments ... 1575s [00:52:54.765] { 1575s [00:52:54.765] do.call(function(...) { 1575s [00:52:54.765] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:54.765] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1575s [00:52:54.765] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:54.765] on.exit(options(oopts), add = TRUE) 1575s [00:52:54.765] } 1575s [00:52:54.765] { 1575s [00:52:54.765] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1575s [00:52:54.765] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:54.765] ...future.FUN(...future.X_jj, ...) 1575s [00:52:54.765] }) 1575s [00:52:54.765] } 1575s [00:52:54.765] }, args = future.call.arguments) 1575s [00:52:54.765] } 1575s [00:52:54.765] Tweak future expression to call with '...' arguments ... DONE 1575s [00:52:54.766] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:54.766] 1575s [00:52:54.767] getGlobalsAndPackages() ... DONE 1575s [00:52:54.767] run() for ‘Future’ ... 1575s [00:52:54.767] - state: ‘created’ 1575s [00:52:54.767] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1575s [00:52:54.772] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1575s [00:52:54.773] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1575s [00:52:54.773] - Field: ‘label’ 1575s [00:52:54.773] - Field: ‘local’ 1575s [00:52:54.773] - Field: ‘owner’ 1575s [00:52:54.774] - Field: ‘envir’ 1575s [00:52:54.774] - Field: ‘packages’ 1575s [00:52:54.774] - Field: ‘gc’ 1575s [00:52:54.774] - Field: ‘conditions’ 1575s [00:52:54.774] - Field: ‘expr’ 1575s [00:52:54.774] - Field: ‘uuid’ 1575s [00:52:54.775] - Field: ‘seed’ 1575s [00:52:54.775] - Field: ‘version’ 1575s [00:52:54.775] - Field: ‘result’ 1575s [00:52:54.775] - Field: ‘asynchronous’ 1575s [00:52:54.775] - Field: ‘calls’ 1575s [00:52:54.775] - Field: ‘globals’ 1575s [00:52:54.776] - Field: ‘stdout’ 1575s [00:52:54.776] - Field: ‘earlySignal’ 1575s [00:52:54.776] - Field: ‘lazy’ 1575s [00:52:54.776] - Field: ‘state’ 1575s [00:52:54.776] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1575s [00:52:54.777] - Launch lazy future ... 1575s [00:52:54.777] Packages needed by the future expression (n = 0): 1575s [00:52:54.777] Packages needed by future strategies (n = 0): 1575s [00:52:54.778] { 1575s [00:52:54.778] { 1575s [00:52:54.778] { 1575s [00:52:54.778] ...future.startTime <- base::Sys.time() 1575s [00:52:54.778] { 1575s [00:52:54.778] { 1575s [00:52:54.778] { 1575s [00:52:54.778] base::local({ 1575s [00:52:54.778] has_future <- base::requireNamespace("future", 1575s [00:52:54.778] quietly = TRUE) 1575s [00:52:54.778] if (has_future) { 1575s [00:52:54.778] ns <- base::getNamespace("future") 1575s [00:52:54.778] version <- ns[[".package"]][["version"]] 1575s [00:52:54.778] if (is.null(version)) 1575s [00:52:54.778] version <- utils::packageVersion("future") 1575s [00:52:54.778] } 1575s [00:52:54.778] else { 1575s [00:52:54.778] version <- NULL 1575s [00:52:54.778] } 1575s [00:52:54.778] if (!has_future || version < "1.8.0") { 1575s [00:52:54.778] info <- base::c(r_version = base::gsub("R version ", 1575s [00:52:54.778] "", base::R.version$version.string), 1575s [00:52:54.778] platform = base::sprintf("%s (%s-bit)", 1575s [00:52:54.778] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1575s [00:52:54.778] os = base::paste(base::Sys.info()[base::c("sysname", 1575s [00:52:54.778] "release", "version")], collapse = " "), 1575s [00:52:54.778] hostname = base::Sys.info()[["nodename"]]) 1575s [00:52:54.778] info <- base::sprintf("%s: %s", base::names(info), 1575s [00:52:54.778] info) 1575s [00:52:54.778] info <- base::paste(info, collapse = "; ") 1575s [00:52:54.778] if (!has_future) { 1575s [00:52:54.778] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1575s [00:52:54.778] info) 1575s [00:52:54.778] } 1575s [00:52:54.778] else { 1575s [00:52:54.778] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1575s [00:52:54.778] info, version) 1575s [00:52:54.778] } 1575s [00:52:54.778] base::stop(msg) 1575s [00:52:54.778] } 1575s [00:52:54.778] }) 1575s [00:52:54.778] } 1575s [00:52:54.778] options(future.plan = NULL) 1575s [00:52:54.778] Sys.unsetenv("R_FUTURE_PLAN") 1575s [00:52:54.778] future::plan("default", .cleanup = FALSE, .init = FALSE) 1575s [00:52:54.778] } 1575s [00:52:54.778] ...future.workdir <- getwd() 1575s [00:52:54.778] } 1575s [00:52:54.778] ...future.oldOptions <- base::as.list(base::.Options) 1575s [00:52:54.778] ...future.oldEnvVars <- base::Sys.getenv() 1575s [00:52:54.778] } 1575s [00:52:54.778] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1575s [00:52:54.778] future.globals.maxSize = NULL, future.globals.method = NULL, 1575s [00:52:54.778] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1575s [00:52:54.778] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1575s [00:52:54.778] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1575s [00:52:54.778] future.stdout.windows.reencode = NULL, width = 80L) 1575s [00:52:54.778] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1575s [00:52:54.778] base::names(...future.oldOptions)) 1575s [00:52:54.778] } 1575s [00:52:54.778] if (FALSE) { 1575s [00:52:54.778] } 1575s [00:52:54.778] else { 1575s [00:52:54.778] if (TRUE) { 1575s [00:52:54.778] ...future.stdout <- base::rawConnection(base::raw(0L), 1575s [00:52:54.778] open = "w") 1575s [00:52:54.778] } 1575s [00:52:54.778] else { 1575s [00:52:54.778] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1575s [00:52:54.778] windows = "NUL", "/dev/null"), open = "w") 1575s [00:52:54.778] } 1575s [00:52:54.778] base::sink(...future.stdout, type = "output", split = FALSE) 1575s [00:52:54.778] base::on.exit(if (!base::is.null(...future.stdout)) { 1575s [00:52:54.778] base::sink(type = "output", split = FALSE) 1575s [00:52:54.778] base::close(...future.stdout) 1575s [00:52:54.778] }, add = TRUE) 1575s [00:52:54.778] } 1575s [00:52:54.778] ...future.frame <- base::sys.nframe() 1575s [00:52:54.778] ...future.conditions <- base::list() 1575s [00:52:54.778] ...future.rng <- base::globalenv()$.Random.seed 1575s [00:52:54.778] if (FALSE) { 1575s [00:52:54.778] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1575s [00:52:54.778] "...future.value", "...future.globalenv.names", ".Random.seed") 1575s [00:52:54.778] } 1575s [00:52:54.778] ...future.result <- base::tryCatch({ 1575s [00:52:54.778] base::withCallingHandlers({ 1575s [00:52:54.778] ...future.value <- base::withVisible(base::local({ 1575s [00:52:54.778] do.call(function(...) { 1575s [00:52:54.778] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:54.778] if (!identical(...future.globals.maxSize.org, 1575s [00:52:54.778] ...future.globals.maxSize)) { 1575s [00:52:54.778] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:54.778] on.exit(options(oopts), add = TRUE) 1575s [00:52:54.778] } 1575s [00:52:54.778] { 1575s [00:52:54.778] lapply(seq_along(...future.elements_ii), 1575s [00:52:54.778] FUN = function(jj) { 1575s [00:52:54.778] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:54.778] ...future.FUN(...future.X_jj, ...) 1575s [00:52:54.778] }) 1575s [00:52:54.778] } 1575s [00:52:54.778] }, args = future.call.arguments) 1575s [00:52:54.778] })) 1575s [00:52:54.778] future::FutureResult(value = ...future.value$value, 1575s [00:52:54.778] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1575s [00:52:54.778] ...future.rng), globalenv = if (FALSE) 1575s [00:52:54.778] list(added = base::setdiff(base::names(base::.GlobalEnv), 1575s [00:52:54.778] ...future.globalenv.names)) 1575s [00:52:54.778] else NULL, started = ...future.startTime, version = "1.8") 1575s [00:52:54.778] }, condition = base::local({ 1575s [00:52:54.778] c <- base::c 1575s [00:52:54.778] inherits <- base::inherits 1575s [00:52:54.778] invokeRestart <- base::invokeRestart 1575s [00:52:54.778] length <- base::length 1575s [00:52:54.778] list <- base::list 1575s [00:52:54.778] seq.int <- base::seq.int 1575s [00:52:54.778] signalCondition <- base::signalCondition 1575s [00:52:54.778] sys.calls <- base::sys.calls 1575s [00:52:54.778] `[[` <- base::`[[` 1575s [00:52:54.778] `+` <- base::`+` 1575s [00:52:54.778] `<<-` <- base::`<<-` 1575s [00:52:54.778] sysCalls <- function(calls = sys.calls(), from = 1L) { 1575s [00:52:54.778] calls[seq.int(from = from + 12L, to = length(calls) - 1575s [00:52:54.778] 3L)] 1575s [00:52:54.778] } 1575s [00:52:54.778] function(cond) { 1575s [00:52:54.778] is_error <- inherits(cond, "error") 1575s [00:52:54.778] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1575s [00:52:54.778] NULL) 1575s [00:52:54.778] if (is_error) { 1575s [00:52:54.778] sessionInformation <- function() { 1575s [00:52:54.778] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1575s [00:52:54.778] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1575s [00:52:54.778] search = base::search(), system = base::Sys.info()) 1575s [00:52:54.778] } 1575s [00:52:54.778] ...future.conditions[[length(...future.conditions) + 1575s [00:52:54.778] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1575s [00:52:54.778] cond$call), session = sessionInformation(), 1575s [00:52:54.778] timestamp = base::Sys.time(), signaled = 0L) 1575s [00:52:54.778] signalCondition(cond) 1575s [00:52:54.778] } 1575s [00:52:54.778] else if (!ignore && TRUE && inherits(cond, c("condition", 1575s [00:52:54.778] "immediateCondition"))) { 1575s [00:52:54.778] signal <- TRUE && inherits(cond, "immediateCondition") 1575s [00:52:54.778] ...future.conditions[[length(...future.conditions) + 1575s [00:52:54.778] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1575s [00:52:54.778] if (TRUE && !signal) { 1575s [00:52:54.778] muffleCondition <- function (cond, pattern = "^muffle") 1575s [00:52:54.778] { 1575s [00:52:54.778] inherits <- base::inherits 1575s [00:52:54.778] invokeRestart <- base::invokeRestart 1575s [00:52:54.778] is.null <- base::is.null 1575s [00:52:54.778] muffled <- FALSE 1575s [00:52:54.778] if (inherits(cond, "message")) { 1575s [00:52:54.778] muffled <- grepl(pattern, "muffleMessage") 1575s [00:52:54.778] if (muffled) 1575s [00:52:54.778] invokeRestart("muffleMessage") 1575s [00:52:54.778] } 1575s [00:52:54.778] else if (inherits(cond, "warning")) { 1575s [00:52:54.778] muffled <- grepl(pattern, "muffleWarning") 1575s [00:52:54.778] if (muffled) 1575s [00:52:54.778] invokeRestart("muffleWarning") 1575s [00:52:54.778] } 1575s [00:52:54.778] else if (inherits(cond, "condition")) { 1575s [00:52:54.778] if (!is.null(pattern)) { 1575s [00:52:54.778] computeRestarts <- base::computeRestarts 1575s [00:52:54.778] grepl <- base::grepl 1575s [00:52:54.778] restarts <- computeRestarts(cond) 1575s [00:52:54.778] for (restart in restarts) { 1575s [00:52:54.778] name <- restart$name 1575s [00:52:54.778] if (is.null(name)) 1575s [00:52:54.778] next 1575s [00:52:54.778] if (!grepl(pattern, name)) 1575s [00:52:54.778] next 1575s [00:52:54.778] invokeRestart(restart) 1575s [00:52:54.778] muffled <- TRUE 1575s [00:52:54.778] break 1575s [00:52:54.778] } 1575s [00:52:54.778] } 1575s [00:52:54.778] } 1575s [00:52:54.778] invisible(muffled) 1575s [00:52:54.778] } 1575s [00:52:54.778] muffleCondition(cond, pattern = "^muffle") 1575s [00:52:54.778] } 1575s [00:52:54.778] } 1575s [00:52:54.778] else { 1575s [00:52:54.778] if (TRUE) { 1575s [00:52:54.778] muffleCondition <- function (cond, pattern = "^muffle") 1575s [00:52:54.778] { 1575s [00:52:54.778] inherits <- base::inherits 1575s [00:52:54.778] invokeRestart <- base::invokeRestart 1575s [00:52:54.778] is.null <- base::is.null 1575s [00:52:54.778] muffled <- FALSE 1575s [00:52:54.778] if (inherits(cond, "message")) { 1575s [00:52:54.778] muffled <- grepl(pattern, "muffleMessage") 1575s [00:52:54.778] if (muffled) 1575s [00:52:54.778] invokeRestart("muffleMessage") 1575s [00:52:54.778] } 1575s [00:52:54.778] else if (inherits(cond, "warning")) { 1575s [00:52:54.778] muffled <- grepl(pattern, "muffleWarning") 1575s [00:52:54.778] if (muffled) 1575s [00:52:54.778] invokeRestart("muffleWarning") 1575s [00:52:54.778] } 1575s [00:52:54.778] else if (inherits(cond, "condition")) { 1575s [00:52:54.778] if (!is.null(pattern)) { 1575s [00:52:54.778] computeRestarts <- base::computeRestarts 1575s [00:52:54.778] grepl <- base::grepl 1575s [00:52:54.778] restarts <- computeRestarts(cond) 1575s [00:52:54.778] for (restart in restarts) { 1575s [00:52:54.778] name <- restart$name 1575s [00:52:54.778] if (is.null(name)) 1575s [00:52:54.778] next 1575s [00:52:54.778] if (!grepl(pattern, name)) 1575s [00:52:54.778] next 1575s [00:52:54.778] invokeRestart(restart) 1575s [00:52:54.778] muffled <- TRUE 1575s [00:52:54.778] break 1575s [00:52:54.778] } 1575s [00:52:54.778] } 1575s [00:52:54.778] } 1575s [00:52:54.778] invisible(muffled) 1575s [00:52:54.778] } 1575s [00:52:54.778] muffleCondition(cond, pattern = "^muffle") 1575s [00:52:54.778] } 1575s [00:52:54.778] } 1575s [00:52:54.778] } 1575s [00:52:54.778] })) 1575s [00:52:54.778] }, error = function(ex) { 1575s [00:52:54.778] base::structure(base::list(value = NULL, visible = NULL, 1575s [00:52:54.778] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1575s [00:52:54.778] ...future.rng), started = ...future.startTime, 1575s [00:52:54.778] finished = Sys.time(), session_uuid = NA_character_, 1575s [00:52:54.778] version = "1.8"), class = "FutureResult") 1575s [00:52:54.778] }, finally = { 1575s [00:52:54.778] if (!identical(...future.workdir, getwd())) 1575s [00:52:54.778] setwd(...future.workdir) 1575s [00:52:54.778] { 1575s [00:52:54.778] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1575s [00:52:54.778] ...future.oldOptions$nwarnings <- NULL 1575s [00:52:54.778] } 1575s [00:52:54.778] base::options(...future.oldOptions) 1575s [00:52:54.778] if (.Platform$OS.type == "windows") { 1575s [00:52:54.778] old_names <- names(...future.oldEnvVars) 1575s [00:52:54.778] envs <- base::Sys.getenv() 1575s [00:52:54.778] names <- names(envs) 1575s [00:52:54.778] common <- intersect(names, old_names) 1575s [00:52:54.778] added <- setdiff(names, old_names) 1575s [00:52:54.778] removed <- setdiff(old_names, names) 1575s [00:52:54.778] changed <- common[...future.oldEnvVars[common] != 1575s [00:52:54.778] envs[common]] 1575s [00:52:54.778] NAMES <- toupper(changed) 1575s [00:52:54.778] args <- list() 1575s [00:52:54.778] for (kk in seq_along(NAMES)) { 1575s [00:52:54.778] name <- changed[[kk]] 1575s [00:52:54.778] NAME <- NAMES[[kk]] 1575s [00:52:54.778] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:54.778] next 1575s [00:52:54.778] args[[name]] <- ...future.oldEnvVars[[name]] 1575s [00:52:54.778] } 1575s [00:52:54.778] NAMES <- toupper(added) 1575s [00:52:54.778] for (kk in seq_along(NAMES)) { 1575s [00:52:54.778] name <- added[[kk]] 1575s [00:52:54.778] NAME <- NAMES[[kk]] 1575s [00:52:54.778] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:54.778] next 1575s [00:52:54.778] args[[name]] <- "" 1575s [00:52:54.778] } 1575s [00:52:54.778] NAMES <- toupper(removed) 1575s [00:52:54.778] for (kk in seq_along(NAMES)) { 1575s [00:52:54.778] name <- removed[[kk]] 1575s [00:52:54.778] NAME <- NAMES[[kk]] 1575s [00:52:54.778] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:54.778] next 1575s [00:52:54.778] args[[name]] <- ...future.oldEnvVars[[name]] 1575s [00:52:54.778] } 1575s [00:52:54.778] if (length(args) > 0) 1575s [00:52:54.778] base::do.call(base::Sys.setenv, args = args) 1575s [00:52:54.778] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1575s [00:52:54.778] } 1575s [00:52:54.778] else { 1575s [00:52:54.778] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1575s [00:52:54.778] } 1575s [00:52:54.778] { 1575s [00:52:54.778] if (base::length(...future.futureOptionsAdded) > 1575s [00:52:54.778] 0L) { 1575s [00:52:54.778] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1575s [00:52:54.778] base::names(opts) <- ...future.futureOptionsAdded 1575s [00:52:54.778] base::options(opts) 1575s [00:52:54.778] } 1575s [00:52:54.778] { 1575s [00:52:54.778] { 1575s [00:52:54.778] NULL 1575s [00:52:54.778] RNGkind("Mersenne-Twister") 1575s [00:52:54.778] base::rm(list = ".Random.seed", envir = base::globalenv(), 1575s [00:52:54.778] inherits = FALSE) 1575s [00:52:54.778] } 1575s [00:52:54.778] options(future.plan = NULL) 1575s [00:52:54.778] if (is.na(NA_character_)) 1575s [00:52:54.778] Sys.unsetenv("R_FUTURE_PLAN") 1575s [00:52:54.778] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1575s [00:52:54.778] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1575s [00:52:54.778] envir = parent.frame()) 1575s [00:52:54.778] { 1575s [00:52:54.778] default_workers <- missing(workers) 1575s [00:52:54.778] if (is.function(workers)) 1575s [00:52:54.778] workers <- workers() 1575s [00:52:54.778] workers <- structure(as.integer(workers), 1575s [00:52:54.778] class = class(workers)) 1575s [00:52:54.778] stop_if_not(is.finite(workers), workers >= 1575s [00:52:54.778] 1L) 1575s [00:52:54.778] if ((workers == 1L && !inherits(workers, 1575s [00:52:54.778] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1575s [00:52:54.778] if (default_workers) 1575s [00:52:54.778] supportsMulticore(warn = TRUE) 1575s [00:52:54.778] return(sequential(..., envir = envir)) 1575s [00:52:54.778] } 1575s [00:52:54.778] oopts <- options(mc.cores = workers) 1575s [00:52:54.778] on.exit(options(oopts)) 1575s [00:52:54.778] future <- MulticoreFuture(..., workers = workers, 1575s [00:52:54.778] envir = envir) 1575s [00:52:54.778] if (!future$lazy) 1575s [00:52:54.778] future <- run(future) 1575s [00:52:54.778] invisible(future) 1575s [00:52:54.778] }), .cleanup = FALSE, .init = FALSE) 1575s [00:52:54.778] } 1575s [00:52:54.778] } 1575s [00:52:54.778] } 1575s [00:52:54.778] }) 1575s [00:52:54.778] if (TRUE) { 1575s [00:52:54.778] base::sink(type = "output", split = FALSE) 1575s [00:52:54.778] if (TRUE) { 1575s [00:52:54.778] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1575s [00:52:54.778] } 1575s [00:52:54.778] else { 1575s [00:52:54.778] ...future.result["stdout"] <- base::list(NULL) 1575s [00:52:54.778] } 1575s [00:52:54.778] base::close(...future.stdout) 1575s [00:52:54.778] ...future.stdout <- NULL 1575s [00:52:54.778] } 1575s [00:52:54.778] ...future.result$conditions <- ...future.conditions 1575s [00:52:54.778] ...future.result$finished <- base::Sys.time() 1575s [00:52:54.778] ...future.result 1575s [00:52:54.778] } 1575s [00:52:54.784] assign_globals() ... 1575s [00:52:54.784] List of 5 1575s [00:52:54.784] $ ...future.FUN :function (x) 1575s [00:52:54.784] $ future.call.arguments : list() 1575s [00:52:54.784] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:54.784] $ ...future.elements_ii :List of 6 1575s [00:52:54.784] ..$ a1: int 1 1575s [00:52:54.784] ..$ a2: int 2 1575s [00:52:54.784] ..$ b1: int 2 1575s [00:52:54.784] ..$ b2: int 3 1575s [00:52:54.784] ..$ c1: int 3 1575s [00:52:54.784] ..$ c2: int 4 1575s [00:52:54.784] $ ...future.seeds_ii : NULL 1575s [00:52:54.784] $ ...future.globals.maxSize: NULL 1575s [00:52:54.784] - attr(*, "where")=List of 5 1575s [00:52:54.784] ..$ ...future.FUN : 1575s [00:52:54.784] ..$ future.call.arguments : 1575s [00:52:54.784] ..$ ...future.elements_ii : 1575s [00:52:54.784] ..$ ...future.seeds_ii : 1575s [00:52:54.784] ..$ ...future.globals.maxSize: 1575s [00:52:54.784] - attr(*, "resolved")= logi FALSE 1575s [00:52:54.784] - attr(*, "total_size")= num 848 1575s [00:52:54.784] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:54.784] - attr(*, "already-done")= logi TRUE 1575s [00:52:54.794] - copied ‘...future.FUN’ to environment 1575s [00:52:54.794] - copied ‘future.call.arguments’ to environment 1575s [00:52:54.794] - copied ‘...future.elements_ii’ to environment 1575s [00:52:54.794] - copied ‘...future.seeds_ii’ to environment 1575s [00:52:54.795] - copied ‘...future.globals.maxSize’ to environment 1575s [00:52:54.795] assign_globals() ... done 1575s [00:52:54.796] plan(): Setting new future strategy stack: 1575s [00:52:54.796] List of future strategies: 1575s [00:52:54.796] 1. sequential: 1575s [00:52:54.796] - args: function (..., envir = parent.frame()) 1575s [00:52:54.796] - tweaked: FALSE 1575s [00:52:54.796] - call: NULL 1575s [00:52:54.796] plan(): nbrOfWorkers() = 1 1575s [00:52:54.798] plan(): Setting new future strategy stack: 1575s [00:52:54.798] List of future strategies: 1575s [00:52:54.798] 1. multicore: 1575s [00:52:54.798] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1575s [00:52:54.798] - tweaked: FALSE 1575s [00:52:54.798] - call: plan(strategy) 1575s [00:52:54.802] plan(): nbrOfWorkers() = 1 1575s [00:52:54.802] SequentialFuture started (and completed) 1575s [00:52:54.803] - Launch lazy future ... done 1575s [00:52:54.803] run() for ‘SequentialFuture’ ... done 1575s [00:52:54.803] Created future: 1575s [00:52:54.803] SequentialFuture: 1575s [00:52:54.803] Label: ‘future_sapply-1’ 1575s [00:52:54.803] Expression: 1575s [00:52:54.803] { 1575s [00:52:54.803] do.call(function(...) { 1575s [00:52:54.803] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:54.803] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1575s [00:52:54.803] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:54.803] on.exit(options(oopts), add = TRUE) 1575s [00:52:54.803] } 1575s [00:52:54.803] { 1575s [00:52:54.803] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1575s [00:52:54.803] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:54.803] ...future.FUN(...future.X_jj, ...) 1575s [00:52:54.803] }) 1575s [00:52:54.803] } 1575s [00:52:54.803] }, args = future.call.arguments) 1575s [00:52:54.803] } 1575s [00:52:54.803] Lazy evaluation: FALSE 1575s [00:52:54.803] Asynchronous evaluation: FALSE 1575s [00:52:54.803] Local evaluation: TRUE 1575s [00:52:54.803] Environment: R_GlobalEnv 1575s [00:52:54.803] Capture standard output: TRUE 1575s [00:52:54.803] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1575s [00:52:54.803] Globals: 5 objects totaling 1.16 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1575s [00:52:54.803] Packages: 1575s [00:52:54.803] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1575s [00:52:54.803] Resolved: TRUE 1575s [00:52:54.803] Value: 336 bytes of class ‘list’ 1575s [00:52:54.803] Early signaling: FALSE 1575s [00:52:54.803] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1575s [00:52:54.803] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1575s [00:52:54.806] Chunk #1 of 1 ... DONE 1575s [00:52:54.806] Launching 1 futures (chunks) ... DONE 1575s [00:52:54.806] Resolving 1 futures (chunks) ... 1575s [00:52:54.806] resolve() on list ... 1575s [00:52:54.806] recursive: 0 1575s [00:52:54.807] length: 1 1575s [00:52:54.807] 1575s [00:52:54.807] resolved() for ‘SequentialFuture’ ... 1575s [00:52:54.807] - state: ‘finished’ 1575s [00:52:54.807] - run: TRUE 1575s [00:52:54.807] - result: ‘FutureResult’ 1575s [00:52:54.808] resolved() for ‘SequentialFuture’ ... done 1575s [00:52:54.808] Future #1 1575s [00:52:54.808] signalConditionsASAP(SequentialFuture, pos=1) ... 1575s [00:52:54.808] - nx: 1 1575s [00:52:54.808] - relay: TRUE 1575s [00:52:54.808] - stdout: TRUE 1575s [00:52:54.809] - signal: TRUE 1575s [00:52:54.809] - resignal: FALSE 1575s [00:52:54.809] - force: TRUE 1575s [00:52:54.809] - relayed: [n=1] FALSE 1575s [00:52:54.810] - queued futures: [n=1] FALSE 1575s [00:52:54.810] - until=1 1575s [00:52:54.810] - relaying element #1 1575s [00:52:54.811] - relayed: [n=1] TRUE 1575s [00:52:54.811] - queued futures: [n=1] TRUE 1575s [00:52:54.811] signalConditionsASAP(SequentialFuture, pos=1) ... done 1575s [00:52:54.811] length: 0 (resolved future 1) 1575s [00:52:54.811] Relaying remaining futures 1575s [00:52:54.811] signalConditionsASAP(NULL, pos=0) ... 1575s [00:52:54.812] - nx: 1 1575s [00:52:54.812] - relay: TRUE 1575s [00:52:54.812] - stdout: TRUE 1575s [00:52:54.812] - signal: TRUE 1575s [00:52:54.813] - resignal: FALSE 1575s [00:52:54.813] - force: TRUE 1575s [00:52:54.813] - relayed: [n=1] TRUE 1575s [00:52:54.813] - queued futures: [n=1] TRUE 1575s - flush all 1575s [00:52:54.814] - relayed: [n=1] TRUE 1575s [00:52:54.814] - queued futures: [n=1] TRUE 1575s [00:52:54.814] signalConditionsASAP(NULL, pos=0) ... done 1575s [00:52:54.814] resolve() on list ... DONE 1575s [00:52:54.815] - Number of value chunks collected: 1 1575s [00:52:54.815] Resolving 1 futures (chunks) ... DONE 1575s [00:52:54.815] Reducing values from 1 chunks ... 1575s [00:52:54.816] - Number of values collected after concatenation: 6 1575s [00:52:54.816] - Number of values expected: 6 1575s [00:52:54.816] Reducing values from 1 chunks ... DONE 1575s [00:52:54.816] future_lapply() ... DONE 1575s [00:52:54.820] future_lapply() ... 1575s [00:52:54.826] Number of chunks: 1 1575s [00:52:54.826] getGlobalsAndPackagesXApply() ... 1575s [00:52:54.826] - future.globals: TRUE 1575s [00:52:54.827] getGlobalsAndPackages() ... 1575s [00:52:54.827] Searching for globals... 1575s [00:52:54.829] - globals found: [2] ‘FUN’, ‘UseMethod’ 1575s [00:52:54.829] Searching for globals ... DONE 1575s [00:52:54.830] Resolving globals: FALSE 1575s [00:52:54.831] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1575s [00:52:54.832] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1575s [00:52:54.832] - globals: [1] ‘FUN’ 1575s [00:52:54.832] 1575s [00:52:54.832] getGlobalsAndPackages() ... DONE 1575s [00:52:54.832] - globals found/used: [n=1] ‘FUN’ 1575s [00:52:54.832] - needed namespaces: [n=0] 1575s [00:52:54.832] Finding globals ... DONE 1575s [00:52:54.833] - use_args: TRUE 1575s [00:52:54.833] - Getting '...' globals ... 1575s [00:52:54.833] resolve() on list ... 1575s [00:52:54.834] recursive: 0 1575s [00:52:54.834] length: 1 1575s [00:52:54.834] elements: ‘...’ 1575s [00:52:54.834] length: 0 (resolved future 1) 1575s [00:52:54.835] resolve() on list ... DONE 1575s [00:52:54.835] - '...' content: [n=0] 1575s [00:52:54.835] List of 1 1575s [00:52:54.835] $ ...: list() 1575s [00:52:54.835] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:54.835] - attr(*, "where")=List of 1 1575s [00:52:54.835] ..$ ...: 1575s [00:52:54.835] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:54.835] - attr(*, "resolved")= logi TRUE 1575s [00:52:54.835] - attr(*, "total_size")= num NA 1575s [00:52:54.840] - Getting '...' globals ... DONE 1575s [00:52:54.840] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1575s [00:52:54.841] List of 2 1575s [00:52:54.841] $ ...future.FUN:function (x, ...) 1575s [00:52:54.841] $ ... : list() 1575s [00:52:54.841] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:54.841] - attr(*, "where")=List of 2 1575s [00:52:54.841] ..$ ...future.FUN: 1575s [00:52:54.841] ..$ ... : 1575s [00:52:54.841] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:54.841] - attr(*, "resolved")= logi FALSE 1575s [00:52:54.841] - attr(*, "total_size")= num 1248 1575s [00:52:54.846] Packages to be attached in all futures: [n=0] 1575s [00:52:54.846] getGlobalsAndPackagesXApply() ... DONE 1575s [00:52:54.847] Number of futures (= number of chunks): 1 1575s [00:52:54.847] Launching 1 futures (chunks) ... 1575s [00:52:54.848] Chunk #1 of 1 ... 1575s [00:52:54.848] - Finding globals in 'X' for chunk #1 ... 1575s [00:52:54.849] getGlobalsAndPackages() ... 1575s [00:52:54.849] Searching for globals... 1575s [00:52:54.849] 1575s [00:52:54.849] Searching for globals ... DONE 1575s [00:52:54.850] - globals: [0] 1575s [00:52:54.850] getGlobalsAndPackages() ... DONE 1575s [00:52:54.850] + additional globals found: [n=0] 1575s [00:52:54.850] + additional namespaces needed: [n=0] 1575s [00:52:54.850] - Finding globals in 'X' for chunk #1 ... DONE 1575s [00:52:54.851] - seeds: 1575s [00:52:54.851] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:54.851] getGlobalsAndPackages() ... 1575s [00:52:54.851] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:54.852] Resolving globals: FALSE 1575s [00:52:54.852] Tweak future expression to call with '...' arguments ... 1575s [00:52:54.852] { 1575s [00:52:54.852] do.call(function(...) { 1575s [00:52:54.852] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:54.852] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1575s [00:52:54.852] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:54.852] on.exit(options(oopts), add = TRUE) 1575s [00:52:54.852] } 1575s [00:52:54.852] { 1575s [00:52:54.852] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1575s [00:52:54.852] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:54.852] ...future.FUN(...future.X_jj, ...) 1575s [00:52:54.852] }) 1575s [00:52:54.852] } 1575s [00:52:54.852] }, args = future.call.arguments) 1575s [00:52:54.852] } 1575s [00:52:54.853] Tweak future expression to call with '...' arguments ... DONE 1575s [00:52:54.854] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:54.854] 1575s [00:52:54.854] getGlobalsAndPackages() ... DONE 1575s [00:52:54.855] run() for ‘Future’ ... 1575s [00:52:54.855] - state: ‘created’ 1575s [00:52:54.855] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1575s [00:52:54.860] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1575s [00:52:54.861] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1575s [00:52:54.861] - Field: ‘label’ 1575s [00:52:54.862] - Field: ‘local’ 1575s [00:52:54.862] - Field: ‘owner’ 1575s [00:52:54.862] - Field: ‘envir’ 1575s [00:52:54.862] - Field: ‘packages’ 1575s [00:52:54.862] - Field: ‘gc’ 1575s [00:52:54.863] - Field: ‘conditions’ 1575s [00:52:54.863] - Field: ‘expr’ 1575s [00:52:54.863] - Field: ‘uuid’ 1575s [00:52:54.864] - Field: ‘seed’ 1575s [00:52:54.864] - Field: ‘version’ 1575s [00:52:54.864] - Field: ‘result’ 1575s [00:52:54.865] - Field: ‘asynchronous’ 1575s [00:52:54.865] - Field: ‘calls’ 1575s [00:52:54.865] - Field: ‘globals’ 1575s [00:52:54.866] - Field: ‘stdout’ 1575s [00:52:54.866] - Field: ‘earlySignal’ 1575s [00:52:54.866] - Field: ‘lazy’ 1575s [00:52:54.867] - Field: ‘state’ 1575s [00:52:54.867] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1575s [00:52:54.868] - Launch lazy future ... 1575s [00:52:54.868] Packages needed by the future expression (n = 0): 1575s [00:52:54.869] Packages needed by future strategies (n = 0): 1575s [00:52:54.870] { 1575s [00:52:54.870] { 1575s [00:52:54.870] { 1575s [00:52:54.870] ...future.startTime <- base::Sys.time() 1575s [00:52:54.870] { 1575s [00:52:54.870] { 1575s [00:52:54.870] { 1575s [00:52:54.870] base::local({ 1575s [00:52:54.870] has_future <- base::requireNamespace("future", 1575s [00:52:54.870] quietly = TRUE) 1575s [00:52:54.870] if (has_future) { 1575s [00:52:54.870] ns <- base::getNamespace("future") 1575s [00:52:54.870] version <- ns[[".package"]][["version"]] 1575s [00:52:54.870] if (is.null(version)) 1575s [00:52:54.870] version <- utils::packageVersion("future") 1575s [00:52:54.870] } 1575s [00:52:54.870] else { 1575s [00:52:54.870] version <- NULL 1575s [00:52:54.870] } 1575s [00:52:54.870] if (!has_future || version < "1.8.0") { 1575s [00:52:54.870] info <- base::c(r_version = base::gsub("R version ", 1575s [00:52:54.870] "", base::R.version$version.string), 1575s [00:52:54.870] platform = base::sprintf("%s (%s-bit)", 1575s [00:52:54.870] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1575s [00:52:54.870] os = base::paste(base::Sys.info()[base::c("sysname", 1575s [00:52:54.870] "release", "version")], collapse = " "), 1575s [00:52:54.870] hostname = base::Sys.info()[["nodename"]]) 1575s [00:52:54.870] info <- base::sprintf("%s: %s", base::names(info), 1575s [00:52:54.870] info) 1575s [00:52:54.870] info <- base::paste(info, collapse = "; ") 1575s [00:52:54.870] if (!has_future) { 1575s [00:52:54.870] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1575s [00:52:54.870] info) 1575s [00:52:54.870] } 1575s [00:52:54.870] else { 1575s [00:52:54.870] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1575s [00:52:54.870] info, version) 1575s [00:52:54.870] } 1575s [00:52:54.870] base::stop(msg) 1575s [00:52:54.870] } 1575s [00:52:54.870] }) 1575s [00:52:54.870] } 1575s [00:52:54.870] options(future.plan = NULL) 1575s [00:52:54.870] Sys.unsetenv("R_FUTURE_PLAN") 1575s [00:52:54.870] future::plan("default", .cleanup = FALSE, .init = FALSE) 1575s [00:52:54.870] } 1575s [00:52:54.870] ...future.workdir <- getwd() 1575s [00:52:54.870] } 1575s [00:52:54.870] ...future.oldOptions <- base::as.list(base::.Options) 1575s [00:52:54.870] ...future.oldEnvVars <- base::Sys.getenv() 1575s [00:52:54.870] } 1575s [00:52:54.870] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1575s [00:52:54.870] future.globals.maxSize = NULL, future.globals.method = NULL, 1575s [00:52:54.870] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1575s [00:52:54.870] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1575s [00:52:54.870] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1575s [00:52:54.870] future.stdout.windows.reencode = NULL, width = 80L) 1575s [00:52:54.870] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1575s [00:52:54.870] base::names(...future.oldOptions)) 1575s [00:52:54.870] } 1575s [00:52:54.870] if (FALSE) { 1575s [00:52:54.870] } 1575s [00:52:54.870] else { 1575s [00:52:54.870] if (TRUE) { 1575s [00:52:54.870] ...future.stdout <- base::rawConnection(base::raw(0L), 1575s [00:52:54.870] open = "w") 1575s [00:52:54.870] } 1575s [00:52:54.870] else { 1575s [00:52:54.870] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1575s [00:52:54.870] windows = "NUL", "/dev/null"), open = "w") 1575s [00:52:54.870] } 1575s [00:52:54.870] base::sink(...future.stdout, type = "output", split = FALSE) 1575s [00:52:54.870] base::on.exit(if (!base::is.null(...future.stdout)) { 1575s [00:52:54.870] base::sink(type = "output", split = FALSE) 1575s [00:52:54.870] base::close(...future.stdout) 1575s [00:52:54.870] }, add = TRUE) 1575s [00:52:54.870] } 1575s [00:52:54.870] ...future.frame <- base::sys.nframe() 1575s [00:52:54.870] ...future.conditions <- base::list() 1575s [00:52:54.870] ...future.rng <- base::globalenv()$.Random.seed 1575s [00:52:54.870] if (FALSE) { 1575s [00:52:54.870] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1575s [00:52:54.870] "...future.value", "...future.globalenv.names", ".Random.seed") 1575s [00:52:54.870] } 1575s [00:52:54.870] ...future.result <- base::tryCatch({ 1575s [00:52:54.870] base::withCallingHandlers({ 1575s [00:52:54.870] ...future.value <- base::withVisible(base::local({ 1575s [00:52:54.870] do.call(function(...) { 1575s [00:52:54.870] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:54.870] if (!identical(...future.globals.maxSize.org, 1575s [00:52:54.870] ...future.globals.maxSize)) { 1575s [00:52:54.870] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:54.870] on.exit(options(oopts), add = TRUE) 1575s [00:52:54.870] } 1575s [00:52:54.870] { 1575s [00:52:54.870] lapply(seq_along(...future.elements_ii), 1575s [00:52:54.870] FUN = function(jj) { 1575s [00:52:54.870] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:54.870] ...future.FUN(...future.X_jj, ...) 1575s [00:52:54.870] }) 1575s [00:52:54.870] } 1575s [00:52:54.870] }, args = future.call.arguments) 1575s [00:52:54.870] })) 1575s [00:52:54.870] future::FutureResult(value = ...future.value$value, 1575s [00:52:54.870] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1575s [00:52:54.870] ...future.rng), globalenv = if (FALSE) 1575s [00:52:54.870] list(added = base::setdiff(base::names(base::.GlobalEnv), 1575s [00:52:54.870] ...future.globalenv.names)) 1575s [00:52:54.870] else NULL, started = ...future.startTime, version = "1.8") 1575s [00:52:54.870] }, condition = base::local({ 1575s [00:52:54.870] c <- base::c 1575s [00:52:54.870] inherits <- base::inherits 1575s [00:52:54.870] invokeRestart <- base::invokeRestart 1575s [00:52:54.870] length <- base::length 1575s [00:52:54.870] list <- base::list 1575s [00:52:54.870] seq.int <- base::seq.int 1575s [00:52:54.870] signalCondition <- base::signalCondition 1575s [00:52:54.870] sys.calls <- base::sys.calls 1575s [00:52:54.870] `[[` <- base::`[[` 1575s [00:52:54.870] `+` <- base::`+` 1575s [00:52:54.870] `<<-` <- base::`<<-` 1575s [00:52:54.870] sysCalls <- function(calls = sys.calls(), from = 1L) { 1575s [00:52:54.870] calls[seq.int(from = from + 12L, to = length(calls) - 1575s [00:52:54.870] 3L)] 1575s [00:52:54.870] } 1575s [00:52:54.870] function(cond) { 1575s [00:52:54.870] is_error <- inherits(cond, "error") 1575s [00:52:54.870] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1575s [00:52:54.870] NULL) 1575s [00:52:54.870] if (is_error) { 1575s [00:52:54.870] sessionInformation <- function() { 1575s [00:52:54.870] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1575s [00:52:54.870] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1575s [00:52:54.870] search = base::search(), system = base::Sys.info()) 1575s [00:52:54.870] } 1575s [00:52:54.870] ...future.conditions[[length(...future.conditions) + 1575s [00:52:54.870] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1575s [00:52:54.870] cond$call), session = sessionInformation(), 1575s [00:52:54.870] timestamp = base::Sys.time(), signaled = 0L) 1575s [00:52:54.870] signalCondition(cond) 1575s [00:52:54.870] } 1575s [00:52:54.870] else if (!ignore && TRUE && inherits(cond, c("condition", 1575s [00:52:54.870] "immediateCondition"))) { 1575s [00:52:54.870] signal <- TRUE && inherits(cond, "immediateCondition") 1575s [00:52:54.870] ...future.conditions[[length(...future.conditions) + 1575s [00:52:54.870] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1575s [00:52:54.870] if (TRUE && !signal) { 1575s [00:52:54.870] muffleCondition <- function (cond, pattern = "^muffle") 1575s [00:52:54.870] { 1575s [00:52:54.870] inherits <- base::inherits 1575s [00:52:54.870] invokeRestart <- base::invokeRestart 1575s [00:52:54.870] is.null <- base::is.null 1575s [00:52:54.870] muffled <- FALSE 1575s [00:52:54.870] if (inherits(cond, "message")) { 1575s [00:52:54.870] muffled <- grepl(pattern, "muffleMessage") 1575s [00:52:54.870] if (muffled) 1575s [00:52:54.870] invokeRestart("muffleMessage") 1575s [00:52:54.870] } 1575s [00:52:54.870] else if (inherits(cond, "warning")) { 1575s [00:52:54.870] muffled <- grepl(pattern, "muffleWarning") 1575s [00:52:54.870] if (muffled) 1575s [00:52:54.870] invokeRestart("muffleWarning") 1575s [00:52:54.870] } 1575s [00:52:54.870] else if (inherits(cond, "condition")) { 1575s [00:52:54.870] if (!is.null(pattern)) { 1575s [00:52:54.870] computeRestarts <- base::computeRestarts 1575s [00:52:54.870] grepl <- base::grepl 1575s [00:52:54.870] restarts <- computeRestarts(cond) 1575s [00:52:54.870] for (restart in restarts) { 1575s [00:52:54.870] name <- restart$name 1575s [00:52:54.870] if (is.null(name)) 1575s [00:52:54.870] next 1575s [00:52:54.870] if (!grepl(pattern, name)) 1575s [00:52:54.870] next 1575s [00:52:54.870] invokeRestart(restart) 1575s [00:52:54.870] muffled <- TRUE 1575s [00:52:54.870] break 1575s [00:52:54.870] } 1575s [00:52:54.870] } 1575s [00:52:54.870] } 1575s [00:52:54.870] invisible(muffled) 1575s [00:52:54.870] } 1575s [00:52:54.870] muffleCondition(cond, pattern = "^muffle") 1575s [00:52:54.870] } 1575s [00:52:54.870] } 1575s [00:52:54.870] else { 1575s [00:52:54.870] if (TRUE) { 1575s [00:52:54.870] muffleCondition <- function (cond, pattern = "^muffle") 1575s [00:52:54.870] { 1575s [00:52:54.870] inherits <- base::inherits 1575s [00:52:54.870] invokeRestart <- base::invokeRestart 1575s [00:52:54.870] is.null <- base::is.null 1575s [00:52:54.870] muffled <- FALSE 1575s [00:52:54.870] if (inherits(cond, "message")) { 1575s [00:52:54.870] muffled <- grepl(pattern, "muffleMessage") 1575s [00:52:54.870] if (muffled) 1575s [00:52:54.870] invokeRestart("muffleMessage") 1575s [00:52:54.870] } 1575s [00:52:54.870] else if (inherits(cond, "warning")) { 1575s [00:52:54.870] muffled <- grepl(pattern, "muffleWarning") 1575s [00:52:54.870] if (muffled) 1575s [00:52:54.870] invokeRestart("muffleWarning") 1575s [00:52:54.870] } 1575s [00:52:54.870] else if (inherits(cond, "condition")) { 1575s [00:52:54.870] if (!is.null(pattern)) { 1575s [00:52:54.870] computeRestarts <- base::computeRestarts 1575s [00:52:54.870] grepl <- base::grepl 1575s [00:52:54.870] restarts <- computeRestarts(cond) 1575s [00:52:54.870] for (restart in restarts) { 1575s [00:52:54.870] name <- restart$name 1575s [00:52:54.870] if (is.null(name)) 1575s [00:52:54.870] next 1575s [00:52:54.870] if (!grepl(pattern, name)) 1575s [00:52:54.870] next 1575s [00:52:54.870] invokeRestart(restart) 1575s [00:52:54.870] muffled <- TRUE 1575s [00:52:54.870] break 1575s [00:52:54.870] } 1575s [00:52:54.870] } 1575s [00:52:54.870] } 1575s [00:52:54.870] invisible(muffled) 1575s [00:52:54.870] } 1575s [00:52:54.870] muffleCondition(cond, pattern = "^muffle") 1575s [00:52:54.870] } 1575s [00:52:54.870] } 1575s [00:52:54.870] } 1575s [00:52:54.870] })) 1575s [00:52:54.870] }, error = function(ex) { 1575s [00:52:54.870] base::structure(base::list(value = NULL, visible = NULL, 1575s [00:52:54.870] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1575s [00:52:54.870] ...future.rng), started = ...future.startTime, 1575s [00:52:54.870] finished = Sys.time(), session_uuid = NA_character_, 1575s [00:52:54.870] version = "1.8"), class = "FutureResult") 1575s [00:52:54.870] }, finally = { 1575s [00:52:54.870] if (!identical(...future.workdir, getwd())) 1575s [00:52:54.870] setwd(...future.workdir) 1575s [00:52:54.870] { 1575s [00:52:54.870] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1575s [00:52:54.870] ...future.oldOptions$nwarnings <- NULL 1575s [00:52:54.870] } 1575s [00:52:54.870] base::options(...future.oldOptions) 1575s [00:52:54.870] if (.Platform$OS.type == "windows") { 1575s [00:52:54.870] old_names <- names(...future.oldEnvVars) 1575s [00:52:54.870] envs <- base::Sys.getenv() 1575s [00:52:54.870] names <- names(envs) 1575s [00:52:54.870] common <- intersect(names, old_names) 1575s [00:52:54.870] added <- setdiff(names, old_names) 1575s [00:52:54.870] removed <- setdiff(old_names, names) 1575s [00:52:54.870] changed <- common[...future.oldEnvVars[common] != 1575s [00:52:54.870] envs[common]] 1575s [00:52:54.870] NAMES <- toupper(changed) 1575s [00:52:54.870] args <- list() 1575s [00:52:54.870] for (kk in seq_along(NAMES)) { 1575s [00:52:54.870] name <- changed[[kk]] 1575s [00:52:54.870] NAME <- NAMES[[kk]] 1575s [00:52:54.870] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:54.870] next 1575s [00:52:54.870] args[[name]] <- ...future.oldEnvVars[[name]] 1575s [00:52:54.870] } 1575s [00:52:54.870] NAMES <- toupper(added) 1575s [00:52:54.870] for (kk in seq_along(NAMES)) { 1575s [00:52:54.870] name <- added[[kk]] 1575s [00:52:54.870] NAME <- NAMES[[kk]] 1575s [00:52:54.870] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:54.870] next 1575s [00:52:54.870] args[[name]] <- "" 1575s [00:52:54.870] } 1575s [00:52:54.870] NAMES <- toupper(removed) 1575s [00:52:54.870] for (kk in seq_along(NAMES)) { 1575s [00:52:54.870] name <- removed[[kk]] 1575s [00:52:54.870] NAME <- NAMES[[kk]] 1575s [00:52:54.870] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:54.870] next 1575s [00:52:54.870] args[[name]] <- ...future.oldEnvVars[[name]] 1575s [00:52:54.870] } 1575s [00:52:54.870] if (length(args) > 0) 1575s [00:52:54.870] base::do.call(base::Sys.setenv, args = args) 1575s [00:52:54.870] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1575s [00:52:54.870] } 1575s [00:52:54.870] else { 1575s [00:52:54.870] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1575s [00:52:54.870] } 1575s [00:52:54.870] { 1575s [00:52:54.870] if (base::length(...future.futureOptionsAdded) > 1575s [00:52:54.870] 0L) { 1575s [00:52:54.870] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1575s [00:52:54.870] base::names(opts) <- ...future.futureOptionsAdded 1575s [00:52:54.870] base::options(opts) 1575s [00:52:54.870] } 1575s [00:52:54.870] { 1575s [00:52:54.870] { 1575s [00:52:54.870] NULL 1575s [00:52:54.870] RNGkind("Mersenne-Twister") 1575s [00:52:54.870] base::rm(list = ".Random.seed", envir = base::globalenv(), 1575s [00:52:54.870] inherits = FALSE) 1575s [00:52:54.870] } 1575s [00:52:54.870] options(future.plan = NULL) 1575s [00:52:54.870] if (is.na(NA_character_)) 1575s [00:52:54.870] Sys.unsetenv("R_FUTURE_PLAN") 1575s [00:52:54.870] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1575s [00:52:54.870] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1575s [00:52:54.870] envir = parent.frame()) 1575s [00:52:54.870] { 1575s [00:52:54.870] default_workers <- missing(workers) 1575s [00:52:54.870] if (is.function(workers)) 1575s [00:52:54.870] workers <- workers() 1575s [00:52:54.870] workers <- structure(as.integer(workers), 1575s [00:52:54.870] class = class(workers)) 1575s [00:52:54.870] stop_if_not(is.finite(workers), workers >= 1575s [00:52:54.870] 1L) 1575s [00:52:54.870] if ((workers == 1L && !inherits(workers, 1575s [00:52:54.870] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1575s [00:52:54.870] if (default_workers) 1575s [00:52:54.870] supportsMulticore(warn = TRUE) 1575s [00:52:54.870] return(sequential(..., envir = envir)) 1575s [00:52:54.870] } 1575s [00:52:54.870] oopts <- options(mc.cores = workers) 1575s [00:52:54.870] on.exit(options(oopts)) 1575s [00:52:54.870] future <- MulticoreFuture(..., workers = workers, 1575s [00:52:54.870] envir = envir) 1575s [00:52:54.870] if (!future$lazy) 1575s [00:52:54.870] future <- run(future) 1575s [00:52:54.870] invisible(future) 1575s [00:52:54.870] }), .cleanup = FALSE, .init = FALSE) 1575s [00:52:54.870] } 1575s [00:52:54.870] } 1575s [00:52:54.870] } 1575s [00:52:54.870] }) 1575s [00:52:54.870] if (TRUE) { 1575s [00:52:54.870] base::sink(type = "output", split = FALSE) 1575s [00:52:54.870] if (TRUE) { 1575s [00:52:54.870] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1575s [00:52:54.870] } 1575s [00:52:54.870] else { 1575s [00:52:54.870] ...future.result["stdout"] <- base::list(NULL) 1575s [00:52:54.870] } 1575s [00:52:54.870] base::close(...future.stdout) 1575s [00:52:54.870] ...future.stdout <- NULL 1575s [00:52:54.870] } 1575s [00:52:54.870] ...future.result$conditions <- ...future.conditions 1575s [00:52:54.870] ...future.result$finished <- base::Sys.time() 1575s [00:52:54.870] ...future.result 1575s [00:52:54.870] } 1575s [00:52:54.879] assign_globals() ... 1575s [00:52:54.879] List of 5 1575s [00:52:54.879] $ ...future.FUN :function (x, ...) 1575s [00:52:54.879] $ future.call.arguments : list() 1575s [00:52:54.879] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:54.879] $ ...future.elements_ii :List of 6 1575s [00:52:54.879] ..$ a1: int 1 1575s [00:52:54.879] ..$ a2: int 2 1575s [00:52:54.879] ..$ b1: int 2 1575s [00:52:54.879] ..$ b2: int 3 1575s [00:52:54.879] ..$ c1: int 3 1575s [00:52:54.879] ..$ c2: int 4 1575s [00:52:54.879] $ ...future.seeds_ii : NULL 1575s [00:52:54.879] $ ...future.globals.maxSize: NULL 1575s [00:52:54.879] - attr(*, "where")=List of 5 1575s [00:52:54.879] ..$ ...future.FUN : 1575s [00:52:54.879] ..$ future.call.arguments : 1575s [00:52:54.879] ..$ ...future.elements_ii : 1575s [00:52:54.879] ..$ ...future.seeds_ii : 1575s [00:52:54.879] ..$ ...future.globals.maxSize: 1575s [00:52:54.879] - attr(*, "resolved")= logi FALSE 1575s [00:52:54.879] - attr(*, "total_size")= num 1248 1575s [00:52:54.879] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:54.879] - attr(*, "already-done")= logi TRUE 1575s [00:52:54.895] - copied ‘...future.FUN’ to environment 1575s [00:52:54.895] - copied ‘future.call.arguments’ to environment 1575s [00:52:54.895] - copied ‘...future.elements_ii’ to environment 1575s [00:52:54.896] - copied ‘...future.seeds_ii’ to environment 1575s [00:52:54.896] - copied ‘...future.globals.maxSize’ to environment 1575s [00:52:54.896] assign_globals() ... done 1575s [00:52:54.897] plan(): Setting new future strategy stack: 1575s [00:52:54.897] List of future strategies: 1575s [00:52:54.897] 1. sequential: 1575s [00:52:54.897] - args: function (..., envir = parent.frame()) 1575s [00:52:54.897] - tweaked: FALSE 1575s [00:52:54.897] - call: NULL 1575s [00:52:54.898] plan(): nbrOfWorkers() = 1 1575s [00:52:54.899] plan(): Setting new future strategy stack: 1575s [00:52:54.899] List of future strategies: 1575s [00:52:54.899] 1. multicore: 1575s [00:52:54.899] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1575s [00:52:54.899] - tweaked: FALSE 1575s [00:52:54.899] - call: plan(strategy) 1575s [00:52:54.903] plan(): nbrOfWorkers() = 1 1575s [00:52:54.904] SequentialFuture started (and completed) 1575s [00:52:54.904] - Launch lazy future ... done 1575s [00:52:54.904] run() for ‘SequentialFuture’ ... done 1575s [00:52:54.904] Created future: 1575s [00:52:54.905] SequentialFuture: 1575s [00:52:54.905] Label: ‘future_sapply-1’ 1575s [00:52:54.905] Expression: 1575s [00:52:54.905] { 1575s [00:52:54.905] do.call(function(...) { 1575s [00:52:54.905] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:54.905] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1575s [00:52:54.905] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:54.905] on.exit(options(oopts), add = TRUE) 1575s [00:52:54.905] } 1575s [00:52:54.905] { 1575s [00:52:54.905] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1575s [00:52:54.905] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:54.905] ...future.FUN(...future.X_jj, ...) 1575s [00:52:54.905] }) 1575s [00:52:54.905] } 1575s [00:52:54.905] }, args = future.call.arguments) 1575s [00:52:54.905] } 1575s [00:52:54.905] Lazy evaluation: FALSE 1575s [00:52:54.905] Asynchronous evaluation: FALSE 1575s [00:52:54.905] Local evaluation: TRUE 1575s [00:52:54.905] Environment: R_GlobalEnv 1575s [00:52:54.905] Capture standard output: TRUE 1575s [00:52:54.905] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1575s [00:52:54.905] Globals: 5 objects totaling 1.55 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1575s [00:52:54.905] Packages: 1575s [00:52:54.905] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1575s [00:52:54.905] Resolved: TRUE 1575s [00:52:54.905] Value: 1.31 KiB of class ‘list’ 1575s [00:52:54.905] Early signaling: FALSE 1575s [00:52:54.905] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1575s [00:52:54.905] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1575s [00:52:54.907] Chunk #1 of 1 ... DONE 1575s [00:52:54.907] Launching 1 futures (chunks) ... DONE 1575s [00:52:54.907] Resolving 1 futures (chunks) ... 1575s [00:52:54.907] resolve() on list ... 1575s [00:52:54.908] recursive: 0 1575s [00:52:54.908] length: 1 1575s [00:52:54.908] 1575s [00:52:54.908] resolved() for ‘SequentialFuture’ ... 1575s [00:52:54.908] - state: ‘finished’ 1575s [00:52:54.908] - run: TRUE 1575s [00:52:54.909] - result: ‘FutureResult’ 1575s [00:52:54.909] resolved() for ‘SequentialFuture’ ... done 1575s [00:52:54.909] Future #1 1575s [00:52:54.909] signalConditionsASAP(SequentialFuture, pos=1) ... 1575s [00:52:54.909] - nx: 1 1575s [00:52:54.910] - relay: TRUE 1575s [00:52:54.910] - stdout: TRUE 1575s [00:52:54.910] - signal: TRUE 1575s [00:52:54.910] - resignal: FALSE 1575s [00:52:54.910] - force: TRUE 1575s [00:52:54.911] - relayed: [n=1] FALSE 1575s [00:52:54.911] - queued futures: [n=1] FALSE 1575s [00:52:54.911] - until=1 1575s [00:52:54.911] - relaying element #1 1575s [00:52:54.911] - relayed: [n=1] TRUE 1575s [00:52:54.912] - queued futures: [n=1] TRUE 1575s [00:52:54.912] signalConditionsASAP(SequentialFuture, pos=1) ... done 1575s [00:52:54.912] length: 0 (resolved future 1) 1575s [00:52:54.913] Relaying remaining futures 1575s [00:52:54.913] signalConditionsASAP(NULL, pos=0) ... 1575s [00:52:54.913] - nx: 1 1575s [00:52:54.913] - relay: TRUE 1575s [00:52:54.913] - stdout: TRUE 1575s [00:52:54.914] - signal: TRUE 1575s [00:52:54.914] - resignal: FALSE 1575s [00:52:54.914] - force: TRUE 1575s [00:52:54.914] - relayed: [n=1] TRUE 1575s [00:52:54.915] - queued futures: [n=1] TRUE 1575s - flush all 1575s [00:52:54.915] - relayed: [n=1] TRUE 1575s [00:52:54.915] - queued futures: [n=1] TRUE 1575s [00:52:54.916] signalConditionsASAP(NULL, pos=0) ... done 1575s [00:52:54.916] resolve() on list ... DONE 1575s [00:52:54.920] - Number of value chunks collected: 1 1575s [00:52:54.920] Resolving 1 futures (chunks) ... DONE 1575s [00:52:54.920] Reducing values from 1 chunks ... 1575s [00:52:54.920] - Number of values collected after concatenation: 6 1575s [00:52:54.920] - Number of values expected: 6 1575s [00:52:54.921] Reducing values from 1 chunks ... DONE 1575s [00:52:54.921] future_lapply() ... DONE 1575s [00:52:54.926] future_lapply() ... 1575s [00:52:54.932] Number of chunks: 1 1575s [00:52:54.932] getGlobalsAndPackagesXApply() ... 1575s [00:52:54.932] - future.globals: TRUE 1575s [00:52:54.933] getGlobalsAndPackages() ... 1575s [00:52:54.933] Searching for globals... 1575s [00:52:54.935] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1575s [00:52:54.935] Searching for globals ... DONE 1575s [00:52:54.935] Resolving globals: FALSE 1575s [00:52:54.936] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1575s [00:52:54.936] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1575s [00:52:54.936] - globals: [1] ‘FUN’ 1575s [00:52:54.937] 1575s [00:52:54.937] getGlobalsAndPackages() ... DONE 1575s [00:52:54.937] - globals found/used: [n=1] ‘FUN’ 1575s [00:52:54.937] - needed namespaces: [n=0] 1575s [00:52:54.937] Finding globals ... DONE 1575s [00:52:54.937] - use_args: TRUE 1575s [00:52:54.937] - Getting '...' globals ... 1575s [00:52:54.938] resolve() on list ... 1575s [00:52:54.938] recursive: 0 1575s [00:52:54.938] length: 1 1575s [00:52:54.938] elements: ‘...’ 1575s [00:52:54.939] length: 0 (resolved future 1) 1575s [00:52:54.939] resolve() on list ... DONE 1575s [00:52:54.939] - '...' content: [n=0] 1575s [00:52:54.939] List of 1 1575s [00:52:54.939] $ ...: list() 1575s [00:52:54.939] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:54.939] - attr(*, "where")=List of 1 1575s [00:52:54.939] ..$ ...: 1575s [00:52:54.939] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:54.939] - attr(*, "resolved")= logi TRUE 1575s [00:52:54.939] - attr(*, "total_size")= num NA 1575s [00:52:54.943] - Getting '...' globals ... DONE 1575s [00:52:54.944] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1575s [00:52:54.944] List of 2 1575s [00:52:54.944] $ ...future.FUN:function (x, y = 2 * 1:5) 1575s [00:52:54.944] $ ... : list() 1575s [00:52:54.944] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:54.944] - attr(*, "where")=List of 2 1575s [00:52:54.944] ..$ ...future.FUN: 1575s [00:52:54.944] ..$ ... : 1575s [00:52:54.944] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:54.944] - attr(*, "resolved")= logi FALSE 1575s [00:52:54.944] - attr(*, "total_size")= num 4728 1575s [00:52:54.949] Packages to be attached in all futures: [n=0] 1575s [00:52:54.949] getGlobalsAndPackagesXApply() ... DONE 1575s [00:52:54.950] Number of futures (= number of chunks): 1 1575s [00:52:54.950] Launching 1 futures (chunks) ... 1575s [00:52:54.950] Chunk #1 of 1 ... 1575s [00:52:54.950] - Finding globals in 'X' for chunk #1 ... 1575s [00:52:54.951] getGlobalsAndPackages() ... 1575s [00:52:54.951] Searching for globals... 1575s [00:52:54.951] 1575s [00:52:54.951] Searching for globals ... DONE 1575s [00:52:54.951] - globals: [0] 1575s [00:52:54.952] getGlobalsAndPackages() ... DONE 1575s [00:52:54.952] + additional globals found: [n=0] 1575s [00:52:54.952] + additional namespaces needed: [n=0] 1575s [00:52:54.952] - Finding globals in 'X' for chunk #1 ... DONE 1575s [00:52:54.952] - seeds: 1575s [00:52:54.952] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:54.953] getGlobalsAndPackages() ... 1575s [00:52:54.953] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:54.953] Resolving globals: FALSE 1575s [00:52:54.953] Tweak future expression to call with '...' arguments ... 1575s [00:52:54.954] { 1575s [00:52:54.954] do.call(function(...) { 1575s [00:52:54.954] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:54.954] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1575s [00:52:54.954] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:54.954] on.exit(options(oopts), add = TRUE) 1575s [00:52:54.954] } 1575s [00:52:54.954] { 1575s [00:52:54.954] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1575s [00:52:54.954] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:54.954] ...future.FUN(...future.X_jj, ...) 1575s [00:52:54.954] }) 1575s [00:52:54.954] } 1575s [00:52:54.954] }, args = future.call.arguments) 1575s [00:52:54.954] } 1575s [00:52:54.954] Tweak future expression to call with '...' arguments ... DONE 1575s [00:52:54.955] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:54.955] 1575s [00:52:54.955] getGlobalsAndPackages() ... DONE 1575s [00:52:54.955] run() for ‘Future’ ... 1575s [00:52:54.956] - state: ‘created’ 1575s [00:52:54.956] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1575s [00:52:54.960] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1575s [00:52:54.961] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1575s [00:52:54.961] - Field: ‘label’ 1575s [00:52:54.961] - Field: ‘local’ 1575s [00:52:54.961] - Field: ‘owner’ 1575s [00:52:54.962] - Field: ‘envir’ 1575s [00:52:54.962] - Field: ‘packages’ 1575s [00:52:54.962] - Field: ‘gc’ 1575s [00:52:54.962] - Field: ‘conditions’ 1575s [00:52:54.963] - Field: ‘expr’ 1575s [00:52:54.963] - Field: ‘uuid’ 1575s [00:52:54.963] - Field: ‘seed’ 1575s [00:52:54.963] - Field: ‘version’ 1575s [00:52:54.963] - Field: ‘result’ 1575s [00:52:54.964] - Field: ‘asynchronous’ 1575s [00:52:54.964] - Field: ‘calls’ 1575s [00:52:54.964] - Field: ‘globals’ 1575s [00:52:54.964] - Field: ‘stdout’ 1575s [00:52:54.965] - Field: ‘earlySignal’ 1575s [00:52:54.965] - Field: ‘lazy’ 1575s [00:52:54.965] - Field: ‘state’ 1575s [00:52:54.965] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1575s [00:52:54.966] - Launch lazy future ... 1575s [00:52:54.966] Packages needed by the future expression (n = 0): 1575s [00:52:54.966] Packages needed by future strategies (n = 0): 1575s [00:52:54.967] { 1575s [00:52:54.967] { 1575s [00:52:54.967] { 1575s [00:52:54.967] ...future.startTime <- base::Sys.time() 1575s [00:52:54.967] { 1575s [00:52:54.967] { 1575s [00:52:54.967] { 1575s [00:52:54.967] base::local({ 1575s [00:52:54.967] has_future <- base::requireNamespace("future", 1575s [00:52:54.967] quietly = TRUE) 1575s [00:52:54.967] if (has_future) { 1575s [00:52:54.967] ns <- base::getNamespace("future") 1575s [00:52:54.967] version <- ns[[".package"]][["version"]] 1575s [00:52:54.967] if (is.null(version)) 1575s [00:52:54.967] version <- utils::packageVersion("future") 1575s [00:52:54.967] } 1575s [00:52:54.967] else { 1575s [00:52:54.967] version <- NULL 1575s [00:52:54.967] } 1575s [00:52:54.967] if (!has_future || version < "1.8.0") { 1575s [00:52:54.967] info <- base::c(r_version = base::gsub("R version ", 1575s [00:52:54.967] "", base::R.version$version.string), 1575s [00:52:54.967] platform = base::sprintf("%s (%s-bit)", 1575s [00:52:54.967] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1575s [00:52:54.967] os = base::paste(base::Sys.info()[base::c("sysname", 1575s [00:52:54.967] "release", "version")], collapse = " "), 1575s [00:52:54.967] hostname = base::Sys.info()[["nodename"]]) 1575s [00:52:54.967] info <- base::sprintf("%s: %s", base::names(info), 1575s [00:52:54.967] info) 1575s [00:52:54.967] info <- base::paste(info, collapse = "; ") 1575s [00:52:54.967] if (!has_future) { 1575s [00:52:54.967] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1575s [00:52:54.967] info) 1575s [00:52:54.967] } 1575s [00:52:54.967] else { 1575s [00:52:54.967] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1575s [00:52:54.967] info, version) 1575s [00:52:54.967] } 1575s [00:52:54.967] base::stop(msg) 1575s [00:52:54.967] } 1575s [00:52:54.967] }) 1575s [00:52:54.967] } 1575s [00:52:54.967] options(future.plan = NULL) 1575s [00:52:54.967] Sys.unsetenv("R_FUTURE_PLAN") 1575s [00:52:54.967] future::plan("default", .cleanup = FALSE, .init = FALSE) 1575s [00:52:54.967] } 1575s [00:52:54.967] ...future.workdir <- getwd() 1575s [00:52:54.967] } 1575s [00:52:54.967] ...future.oldOptions <- base::as.list(base::.Options) 1575s [00:52:54.967] ...future.oldEnvVars <- base::Sys.getenv() 1575s [00:52:54.967] } 1575s [00:52:54.967] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1575s [00:52:54.967] future.globals.maxSize = NULL, future.globals.method = NULL, 1575s [00:52:54.967] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1575s [00:52:54.967] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1575s [00:52:54.967] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1575s [00:52:54.967] future.stdout.windows.reencode = NULL, width = 80L) 1575s [00:52:54.967] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1575s [00:52:54.967] base::names(...future.oldOptions)) 1575s [00:52:54.967] } 1575s [00:52:54.967] if (FALSE) { 1575s [00:52:54.967] } 1575s [00:52:54.967] else { 1575s [00:52:54.967] if (TRUE) { 1575s [00:52:54.967] ...future.stdout <- base::rawConnection(base::raw(0L), 1575s [00:52:54.967] open = "w") 1575s [00:52:54.967] } 1575s [00:52:54.967] else { 1575s [00:52:54.967] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1575s [00:52:54.967] windows = "NUL", "/dev/null"), open = "w") 1575s [00:52:54.967] } 1575s [00:52:54.967] base::sink(...future.stdout, type = "output", split = FALSE) 1575s [00:52:54.967] base::on.exit(if (!base::is.null(...future.stdout)) { 1575s [00:52:54.967] base::sink(type = "output", split = FALSE) 1575s [00:52:54.967] base::close(...future.stdout) 1575s [00:52:54.967] }, add = TRUE) 1575s [00:52:54.967] } 1575s [00:52:54.967] ...future.frame <- base::sys.nframe() 1575s [00:52:54.967] ...future.conditions <- base::list() 1575s [00:52:54.967] ...future.rng <- base::globalenv()$.Random.seed 1575s [00:52:54.967] if (FALSE) { 1575s [00:52:54.967] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1575s [00:52:54.967] "...future.value", "...future.globalenv.names", ".Random.seed") 1575s [00:52:54.967] } 1575s [00:52:54.967] ...future.result <- base::tryCatch({ 1575s [00:52:54.967] base::withCallingHandlers({ 1575s [00:52:54.967] ...future.value <- base::withVisible(base::local({ 1575s [00:52:54.967] do.call(function(...) { 1575s [00:52:54.967] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:54.967] if (!identical(...future.globals.maxSize.org, 1575s [00:52:54.967] ...future.globals.maxSize)) { 1575s [00:52:54.967] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:54.967] on.exit(options(oopts), add = TRUE) 1575s [00:52:54.967] } 1575s [00:52:54.967] { 1575s [00:52:54.967] lapply(seq_along(...future.elements_ii), 1575s [00:52:54.967] FUN = function(jj) { 1575s [00:52:54.967] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:54.967] ...future.FUN(...future.X_jj, ...) 1575s [00:52:54.967] }) 1575s [00:52:54.967] } 1575s [00:52:54.967] }, args = future.call.arguments) 1575s [00:52:54.967] })) 1575s [00:52:54.967] future::FutureResult(value = ...future.value$value, 1575s [00:52:54.967] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1575s [00:52:54.967] ...future.rng), globalenv = if (FALSE) 1575s [00:52:54.967] list(added = base::setdiff(base::names(base::.GlobalEnv), 1575s [00:52:54.967] ...future.globalenv.names)) 1575s [00:52:54.967] else NULL, started = ...future.startTime, version = "1.8") 1575s [00:52:54.967] }, condition = base::local({ 1575s [00:52:54.967] c <- base::c 1575s [00:52:54.967] inherits <- base::inherits 1575s [00:52:54.967] invokeRestart <- base::invokeRestart 1575s [00:52:54.967] length <- base::length 1575s [00:52:54.967] list <- base::list 1575s [00:52:54.967] seq.int <- base::seq.int 1575s [00:52:54.967] signalCondition <- base::signalCondition 1575s [00:52:54.967] sys.calls <- base::sys.calls 1575s [00:52:54.967] `[[` <- base::`[[` 1575s [00:52:54.967] `+` <- base::`+` 1575s [00:52:54.967] `<<-` <- base::`<<-` 1575s [00:52:54.967] sysCalls <- function(calls = sys.calls(), from = 1L) { 1575s [00:52:54.967] calls[seq.int(from = from + 12L, to = length(calls) - 1575s [00:52:54.967] 3L)] 1575s [00:52:54.967] } 1575s [00:52:54.967] function(cond) { 1575s [00:52:54.967] is_error <- inherits(cond, "error") 1575s [00:52:54.967] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1575s [00:52:54.967] NULL) 1575s [00:52:54.967] if (is_error) { 1575s [00:52:54.967] sessionInformation <- function() { 1575s [00:52:54.967] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1575s [00:52:54.967] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1575s [00:52:54.967] search = base::search(), system = base::Sys.info()) 1575s [00:52:54.967] } 1575s [00:52:54.967] ...future.conditions[[length(...future.conditions) + 1575s [00:52:54.967] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1575s [00:52:54.967] cond$call), session = sessionInformation(), 1575s [00:52:54.967] timestamp = base::Sys.time(), signaled = 0L) 1575s [00:52:54.967] signalCondition(cond) 1575s [00:52:54.967] } 1575s [00:52:54.967] else if (!ignore && TRUE && inherits(cond, c("condition", 1575s [00:52:54.967] "immediateCondition"))) { 1575s [00:52:54.967] signal <- TRUE && inherits(cond, "immediateCondition") 1575s [00:52:54.967] ...future.conditions[[length(...future.conditions) + 1575s [00:52:54.967] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1575s [00:52:54.967] if (TRUE && !signal) { 1575s [00:52:54.967] muffleCondition <- function (cond, pattern = "^muffle") 1575s [00:52:54.967] { 1575s [00:52:54.967] inherits <- base::inherits 1575s [00:52:54.967] invokeRestart <- base::invokeRestart 1575s [00:52:54.967] is.null <- base::is.null 1575s [00:52:54.967] muffled <- FALSE 1575s [00:52:54.967] if (inherits(cond, "message")) { 1575s [00:52:54.967] muffled <- grepl(pattern, "muffleMessage") 1575s [00:52:54.967] if (muffled) 1575s [00:52:54.967] invokeRestart("muffleMessage") 1575s [00:52:54.967] } 1575s [00:52:54.967] else if (inherits(cond, "warning")) { 1575s [00:52:54.967] muffled <- grepl(pattern, "muffleWarning") 1575s [00:52:54.967] if (muffled) 1575s [00:52:54.967] invokeRestart("muffleWarning") 1575s [00:52:54.967] } 1575s [00:52:54.967] else if (inherits(cond, "condition")) { 1575s [00:52:54.967] if (!is.null(pattern)) { 1575s [00:52:54.967] computeRestarts <- base::computeRestarts 1575s [00:52:54.967] grepl <- base::grepl 1575s [00:52:54.967] restarts <- computeRestarts(cond) 1575s [00:52:54.967] for (restart in restarts) { 1575s [00:52:54.967] name <- restart$name 1575s [00:52:54.967] if (is.null(name)) 1575s [00:52:54.967] next 1575s [00:52:54.967] if (!grepl(pattern, name)) 1575s [00:52:54.967] next 1575s [00:52:54.967] invokeRestart(restart) 1575s [00:52:54.967] muffled <- TRUE 1575s [00:52:54.967] break 1575s [00:52:54.967] } 1575s [00:52:54.967] } 1575s [00:52:54.967] } 1575s [00:52:54.967] invisible(muffled) 1575s [00:52:54.967] } 1575s [00:52:54.967] muffleCondition(cond, pattern = "^muffle") 1575s [00:52:54.967] } 1575s [00:52:54.967] } 1575s [00:52:54.967] else { 1575s [00:52:54.967] if (TRUE) { 1575s [00:52:54.967] muffleCondition <- function (cond, pattern = "^muffle") 1575s [00:52:54.967] { 1575s [00:52:54.967] inherits <- base::inherits 1575s [00:52:54.967] invokeRestart <- base::invokeRestart 1575s [00:52:54.967] is.null <- base::is.null 1575s [00:52:54.967] muffled <- FALSE 1575s [00:52:54.967] if (inherits(cond, "message")) { 1575s [00:52:54.967] muffled <- grepl(pattern, "muffleMessage") 1575s [00:52:54.967] if (muffled) 1575s [00:52:54.967] invokeRestart("muffleMessage") 1575s [00:52:54.967] } 1575s [00:52:54.967] else if (inherits(cond, "warning")) { 1575s [00:52:54.967] muffled <- grepl(pattern, "muffleWarning") 1575s [00:52:54.967] if (muffled) 1575s [00:52:54.967] invokeRestart("muffleWarning") 1575s [00:52:54.967] } 1575s [00:52:54.967] else if (inherits(cond, "condition")) { 1575s [00:52:54.967] if (!is.null(pattern)) { 1575s [00:52:54.967] computeRestarts <- base::computeRestarts 1575s [00:52:54.967] grepl <- base::grepl 1575s [00:52:54.967] restarts <- computeRestarts(cond) 1575s [00:52:54.967] for (restart in restarts) { 1575s [00:52:54.967] name <- restart$name 1575s [00:52:54.967] if (is.null(name)) 1575s [00:52:54.967] next 1575s [00:52:54.967] if (!grepl(pattern, name)) 1575s [00:52:54.967] next 1575s [00:52:54.967] invokeRestart(restart) 1575s [00:52:54.967] muffled <- TRUE 1575s [00:52:54.967] break 1575s [00:52:54.967] } 1575s [00:52:54.967] } 1575s [00:52:54.967] } 1575s [00:52:54.967] invisible(muffled) 1575s [00:52:54.967] } 1575s [00:52:54.967] muffleCondition(cond, pattern = "^muffle") 1575s [00:52:54.967] } 1575s [00:52:54.967] } 1575s [00:52:54.967] } 1575s [00:52:54.967] })) 1575s [00:52:54.967] }, error = function(ex) { 1575s [00:52:54.967] base::structure(base::list(value = NULL, visible = NULL, 1575s [00:52:54.967] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1575s [00:52:54.967] ...future.rng), started = ...future.startTime, 1575s [00:52:54.967] finished = Sys.time(), session_uuid = NA_character_, 1575s [00:52:54.967] version = "1.8"), class = "FutureResult") 1575s [00:52:54.967] }, finally = { 1575s [00:52:54.967] if (!identical(...future.workdir, getwd())) 1575s [00:52:54.967] setwd(...future.workdir) 1575s [00:52:54.967] { 1575s [00:52:54.967] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1575s [00:52:54.967] ...future.oldOptions$nwarnings <- NULL 1575s [00:52:54.967] } 1575s [00:52:54.967] base::options(...future.oldOptions) 1575s [00:52:54.967] if (.Platform$OS.type == "windows") { 1575s [00:52:54.967] old_names <- names(...future.oldEnvVars) 1575s [00:52:54.967] envs <- base::Sys.getenv() 1575s [00:52:54.967] names <- names(envs) 1575s [00:52:54.967] common <- intersect(names, old_names) 1575s [00:52:54.967] added <- setdiff(names, old_names) 1575s [00:52:54.967] removed <- setdiff(old_names, names) 1575s [00:52:54.967] changed <- common[...future.oldEnvVars[common] != 1575s [00:52:54.967] envs[common]] 1575s [00:52:54.967] NAMES <- toupper(changed) 1575s [00:52:54.967] args <- list() 1575s [00:52:54.967] for (kk in seq_along(NAMES)) { 1575s [00:52:54.967] name <- changed[[kk]] 1575s [00:52:54.967] NAME <- NAMES[[kk]] 1575s [00:52:54.967] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:54.967] next 1575s [00:52:54.967] args[[name]] <- ...future.oldEnvVars[[name]] 1575s [00:52:54.967] } 1575s [00:52:54.967] NAMES <- toupper(added) 1575s [00:52:54.967] for (kk in seq_along(NAMES)) { 1575s [00:52:54.967] name <- added[[kk]] 1575s [00:52:54.967] NAME <- NAMES[[kk]] 1575s [00:52:54.967] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:54.967] next 1575s [00:52:54.967] args[[name]] <- "" 1575s [00:52:54.967] } 1575s [00:52:54.967] NAMES <- toupper(removed) 1575s [00:52:54.967] for (kk in seq_along(NAMES)) { 1575s [00:52:54.967] name <- removed[[kk]] 1575s [00:52:54.967] NAME <- NAMES[[kk]] 1575s [00:52:54.967] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:54.967] next 1575s [00:52:54.967] args[[name]] <- ...future.oldEnvVars[[name]] 1575s [00:52:54.967] } 1575s [00:52:54.967] if (length(args) > 0) 1575s [00:52:54.967] base::do.call(base::Sys.setenv, args = args) 1575s [00:52:54.967] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1575s [00:52:54.967] } 1575s [00:52:54.967] else { 1575s [00:52:54.967] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1575s [00:52:54.967] } 1575s [00:52:54.967] { 1575s [00:52:54.967] if (base::length(...future.futureOptionsAdded) > 1575s [00:52:54.967] 0L) { 1575s [00:52:54.967] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1575s [00:52:54.967] base::names(opts) <- ...future.futureOptionsAdded 1575s [00:52:54.967] base::options(opts) 1575s [00:52:54.967] } 1575s [00:52:54.967] { 1575s [00:52:54.967] { 1575s [00:52:54.967] NULL 1575s [00:52:54.967] RNGkind("Mersenne-Twister") 1575s [00:52:54.967] base::rm(list = ".Random.seed", envir = base::globalenv(), 1575s [00:52:54.967] inherits = FALSE) 1575s [00:52:54.967] } 1575s [00:52:54.967] options(future.plan = NULL) 1575s [00:52:54.967] if (is.na(NA_character_)) 1575s [00:52:54.967] Sys.unsetenv("R_FUTURE_PLAN") 1575s [00:52:54.967] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1575s [00:52:54.967] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1575s [00:52:54.967] envir = parent.frame()) 1575s [00:52:54.967] { 1575s [00:52:54.967] default_workers <- missing(workers) 1575s [00:52:54.967] if (is.function(workers)) 1575s [00:52:54.967] workers <- workers() 1575s [00:52:54.967] workers <- structure(as.integer(workers), 1575s [00:52:54.967] class = class(workers)) 1575s [00:52:54.967] stop_if_not(is.finite(workers), workers >= 1575s [00:52:54.967] 1L) 1575s [00:52:54.967] if ((workers == 1L && !inherits(workers, 1575s [00:52:54.967] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1575s [00:52:54.967] if (default_workers) 1575s [00:52:54.967] supportsMulticore(warn = TRUE) 1575s [00:52:54.967] return(sequential(..., envir = envir)) 1575s [00:52:54.967] } 1575s [00:52:54.967] oopts <- options(mc.cores = workers) 1575s [00:52:54.967] on.exit(options(oopts)) 1575s [00:52:54.967] future <- MulticoreFuture(..., workers = workers, 1575s [00:52:54.967] envir = envir) 1575s [00:52:54.967] if (!future$lazy) 1575s [00:52:54.967] future <- run(future) 1575s [00:52:54.967] invisible(future) 1575s [00:52:54.967] }), .cleanup = FALSE, .init = FALSE) 1575s [00:52:54.967] } 1575s [00:52:54.967] } 1575s [00:52:54.967] } 1575s [00:52:54.967] }) 1575s [00:52:54.967] if (TRUE) { 1575s [00:52:54.967] base::sink(type = "output", split = FALSE) 1575s [00:52:54.967] if (TRUE) { 1575s [00:52:54.967] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1575s [00:52:54.967] } 1575s [00:52:54.967] else { 1575s [00:52:54.967] ...future.result["stdout"] <- base::list(NULL) 1575s [00:52:54.967] } 1575s [00:52:54.967] base::close(...future.stdout) 1575s [00:52:54.967] ...future.stdout <- NULL 1575s [00:52:54.967] } 1575s [00:52:54.967] ...future.result$conditions <- ...future.conditions 1575s [00:52:54.967] ...future.result$finished <- base::Sys.time() 1575s [00:52:54.967] ...future.result 1575s [00:52:54.967] } 1575s [00:52:54.974] assign_globals() ... 1575s [00:52:54.975] List of 5 1575s [00:52:54.975] $ ...future.FUN :function (x, y = 2 * 1:5) 1575s [00:52:54.975] $ future.call.arguments : list() 1575s [00:52:54.975] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:54.975] $ ...future.elements_ii :List of 6 1575s [00:52:54.975] ..$ a1: int 1 1575s [00:52:54.975] ..$ a2: int 2 1575s [00:52:54.975] ..$ b1: int 2 1575s [00:52:54.975] ..$ b2: int 3 1575s [00:52:54.975] ..$ c1: int 3 1575s [00:52:54.975] ..$ c2: int 4 1575s [00:52:54.975] $ ...future.seeds_ii : NULL 1575s [00:52:54.975] $ ...future.globals.maxSize: NULL 1575s [00:52:54.975] - attr(*, "where")=List of 5 1575s [00:52:54.975] ..$ ...future.FUN : 1575s [00:52:54.975] ..$ future.call.arguments : 1575s [00:52:54.975] ..$ ...future.elements_ii : 1575s [00:52:54.975] ..$ ...future.seeds_ii : 1575s [00:52:54.975] ..$ ...future.globals.maxSize: 1575s [00:52:54.975] - attr(*, "resolved")= logi FALSE 1575s [00:52:54.975] - attr(*, "total_size")= num 4728 1575s [00:52:54.975] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:54.975] - attr(*, "already-done")= logi TRUE 1575s [00:52:54.987] - reassign environment for ‘...future.FUN’ 1575s [00:52:54.987] - copied ‘...future.FUN’ to environment 1575s [00:52:54.987] - copied ‘future.call.arguments’ to environment 1575s [00:52:54.987] - copied ‘...future.elements_ii’ to environment 1575s [00:52:54.987] - copied ‘...future.seeds_ii’ to environment 1575s [00:52:54.988] - copied ‘...future.globals.maxSize’ to environment 1575s [00:52:54.988] assign_globals() ... done 1575s [00:52:54.988] plan(): Setting new future strategy stack: 1575s [00:52:54.988] List of future strategies: 1575s [00:52:54.988] 1. sequential: 1575s [00:52:54.988] - args: function (..., envir = parent.frame()) 1575s [00:52:54.988] - tweaked: FALSE 1575s [00:52:54.988] - call: NULL 1575s [00:52:54.989] plan(): nbrOfWorkers() = 1 1575s [00:52:54.990] plan(): Setting new future strategy stack: 1575s [00:52:54.990] List of future strategies: 1575s [00:52:54.990] 1. multicore: 1575s [00:52:54.990] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1575s [00:52:54.990] - tweaked: FALSE 1575s [00:52:54.990] - call: plan(strategy) 1575s [00:52:54.995] plan(): nbrOfWorkers() = 1 1575s [00:52:54.995] SequentialFuture started (and completed) 1575s [00:52:54.996] - Launch lazy future ... done 1575s [00:52:54.996] run() for ‘SequentialFuture’ ... done 1575s [00:52:54.996] Created future: 1575s [00:52:54.997] SequentialFuture: 1575s [00:52:54.997] Label: ‘future_sapply-1’ 1575s [00:52:54.997] Expression: 1575s [00:52:54.997] { 1575s [00:52:54.997] do.call(function(...) { 1575s [00:52:54.997] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:54.997] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1575s [00:52:54.997] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:54.997] on.exit(options(oopts), add = TRUE) 1575s [00:52:54.997] } 1575s [00:52:54.997] { 1575s [00:52:54.997] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1575s [00:52:54.997] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:54.997] ...future.FUN(...future.X_jj, ...) 1575s [00:52:54.997] }) 1575s [00:52:54.997] } 1575s [00:52:54.997] }, args = future.call.arguments) 1575s [00:52:54.997] } 1575s [00:52:54.997] Lazy evaluation: FALSE 1575s [00:52:54.997] Asynchronous evaluation: FALSE 1575s [00:52:54.997] Local evaluation: TRUE 1575s [00:52:54.997] Environment: R_GlobalEnv 1575s [00:52:54.997] Capture standard output: TRUE 1575s [00:52:54.997] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1575s [00:52:54.997] Globals: 5 objects totaling 4.95 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1575s [00:52:54.997] Packages: 1575s [00:52:54.997] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1575s [00:52:54.997] Resolved: TRUE 1575s [00:52:54.997] Value: 2.02 KiB of class ‘list’ 1575s [00:52:54.997] Early signaling: FALSE 1575s [00:52:54.997] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1575s [00:52:54.997] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1575s [00:52:54.998] Chunk #1 of 1 ... DONE 1575s [00:52:54.999] Launching 1 futures (chunks) ... DONE 1575s [00:52:54.999] Resolving 1 futures (chunks) ... 1575s [00:52:54.999] resolve() on list ... 1575s [00:52:54.999] recursive: 0 1575s [00:52:54.999] length: 1 1575s [00:52:55.000] 1575s [00:52:55.000] resolved() for ‘SequentialFuture’ ... 1575s [00:52:55.000] - state: ‘finished’ 1575s [00:52:55.001] - run: TRUE 1575s [00:52:55.001] - result: ‘FutureResult’ 1575s [00:52:55.001] resolved() for ‘SequentialFuture’ ... done 1575s [00:52:55.001] Future #1 1575s [00:52:55.001] signalConditionsASAP(SequentialFuture, pos=1) ... 1575s [00:52:55.002] - nx: 1 1575s [00:52:55.002] - relay: TRUE 1575s [00:52:55.002] - stdout: TRUE 1575s [00:52:55.002] - signal: TRUE 1575s [00:52:55.002] - resignal: FALSE 1575s [00:52:55.003] - force: TRUE 1575s [00:52:55.003] - relayed: [n=1] FALSE 1575s [00:52:55.003] - queued futures: [n=1] FALSE 1575s [00:52:55.003] - until=1 1575s [00:52:55.003] - relaying element #1 1575s [00:52:55.004] - relayed: [n=1] TRUE 1575s [00:52:55.004] - queued futures: [n=1] TRUE 1575s [00:52:55.004] signalConditionsASAP(SequentialFuture, pos=1) ... done 1575s [00:52:55.004] length: 0 (resolved future 1) 1575s [00:52:55.004] Relaying remaining futures 1575s [00:52:55.005] signalConditionsASAP(NULL, pos=0) ... 1575s [00:52:55.005] - nx: 1 1575s [00:52:55.005] - relay: TRUE 1575s [00:52:55.005] - stdout: TRUE 1575s [00:52:55.005] - signal: TRUE 1575s [00:52:55.005] - resignal: FALSE 1575s [00:52:55.005] - force: TRUE 1575s [00:52:55.006] - relayed: [n=1] TRUE 1575s [00:52:55.006] - queued futures: [n=1] TRUE 1575s - flush all 1575s [00:52:55.006] - relayed: [n=1] TRUE 1575s [00:52:55.006] - queued futures: [n=1] TRUE 1575s [00:52:55.006] signalConditionsASAP(NULL, pos=0) ... done 1575s [00:52:55.006] resolve() on list ... DONE 1575s [00:52:55.007] - Number of value chunks collected: 1 1575s [00:52:55.007] Resolving 1 futures (chunks) ... DONE 1575s [00:52:55.007] Reducing values from 1 chunks ... 1575s [00:52:55.007] - Number of values collected after concatenation: 6 1575s [00:52:55.008] - Number of values expected: 6 1575s [00:52:55.008] Reducing values from 1 chunks ... DONE 1575s [00:52:55.008] future_lapply() ... DONE 1575s [00:52:55.014] future_lapply() ... 1575s [00:52:55.019] Number of chunks: 1 1575s [00:52:55.020] getGlobalsAndPackagesXApply() ... 1575s [00:52:55.020] - future.globals: TRUE 1575s [00:52:55.021] getGlobalsAndPackages() ... 1575s [00:52:55.021] Searching for globals... 1575s [00:52:55.022] - globals found: [1] ‘FUN’ 1575s [00:52:55.023] Searching for globals ... DONE 1575s [00:52:55.023] Resolving globals: FALSE 1575s [00:52:55.023] The total size of the 1 globals is 848 bytes (848 bytes) 1575s [00:52:55.024] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1575s [00:52:55.025] - globals: [1] ‘FUN’ 1575s [00:52:55.025] 1575s [00:52:55.025] getGlobalsAndPackages() ... DONE 1575s [00:52:55.025] - globals found/used: [n=1] ‘FUN’ 1575s [00:52:55.025] - needed namespaces: [n=0] 1575s [00:52:55.026] Finding globals ... DONE 1575s [00:52:55.026] - use_args: TRUE 1575s [00:52:55.026] - Getting '...' globals ... 1575s [00:52:55.026] resolve() on list ... 1575s [00:52:55.026] recursive: 0 1575s [00:52:55.027] length: 1 1575s [00:52:55.027] elements: ‘...’ 1575s [00:52:55.027] length: 0 (resolved future 1) 1575s [00:52:55.028] resolve() on list ... DONE 1575s [00:52:55.028] - '...' content: [n=0] 1575s [00:52:55.028] List of 1 1575s [00:52:55.028] $ ...: list() 1575s [00:52:55.028] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:55.028] - attr(*, "where")=List of 1 1575s [00:52:55.028] ..$ ...: 1575s [00:52:55.028] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:55.028] - attr(*, "resolved")= logi TRUE 1575s [00:52:55.028] - attr(*, "total_size")= num NA 1575s [00:52:55.033] - Getting '...' globals ... DONE 1575s [00:52:55.033] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1575s [00:52:55.034] List of 2 1575s [00:52:55.034] $ ...future.FUN:function (x) 1575s [00:52:55.034] $ ... : list() 1575s [00:52:55.034] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:55.034] - attr(*, "where")=List of 2 1575s [00:52:55.034] ..$ ...future.FUN: 1575s [00:52:55.034] ..$ ... : 1575s [00:52:55.034] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:55.034] - attr(*, "resolved")= logi FALSE 1575s [00:52:55.034] - attr(*, "total_size")= num 848 1575s [00:52:55.039] Packages to be attached in all futures: [n=0] 1575s [00:52:55.039] getGlobalsAndPackagesXApply() ... DONE 1575s [00:52:55.039] Number of futures (= number of chunks): 1 1575s [00:52:55.039] Launching 1 futures (chunks) ... 1575s [00:52:55.039] Chunk #1 of 1 ... 1575s [00:52:55.040] - Finding globals in 'X' for chunk #1 ... 1575s [00:52:55.040] getGlobalsAndPackages() ... 1575s [00:52:55.040] Searching for globals... 1575s [00:52:55.041] 1575s [00:52:55.041] Searching for globals ... DONE 1575s [00:52:55.041] - globals: [0] 1575s [00:52:55.041] getGlobalsAndPackages() ... DONE 1575s [00:52:55.042] + additional globals found: [n=0] 1575s [00:52:55.042] + additional namespaces needed: [n=0] 1575s [00:52:55.042] - Finding globals in 'X' for chunk #1 ... DONE 1575s [00:52:55.043] - seeds: 1575s [00:52:55.043] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:55.043] getGlobalsAndPackages() ... 1575s [00:52:55.043] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:55.044] Resolving globals: FALSE 1575s [00:52:55.044] Tweak future expression to call with '...' arguments ... 1575s [00:52:55.044] { 1575s [00:52:55.044] do.call(function(...) { 1575s [00:52:55.044] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:55.044] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1575s [00:52:55.044] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:55.044] on.exit(options(oopts), add = TRUE) 1575s [00:52:55.044] } 1575s [00:52:55.044] { 1575s [00:52:55.044] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1575s [00:52:55.044] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:55.044] ...future.FUN(...future.X_jj, ...) 1575s [00:52:55.044] }) 1575s [00:52:55.044] } 1575s [00:52:55.044] }, args = future.call.arguments) 1575s [00:52:55.044] } 1575s [00:52:55.045] Tweak future expression to call with '...' arguments ... DONE 1575s [00:52:55.045] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:55.046] 1575s [00:52:55.046] getGlobalsAndPackages() ... DONE 1575s [00:52:55.046] run() for ‘Future’ ... 1575s [00:52:55.046] - state: ‘created’ 1575s [00:52:55.047] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1575s [00:52:55.052] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1575s [00:52:55.053] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1575s [00:52:55.053] - Field: ‘label’ 1575s [00:52:55.054] - Field: ‘local’ 1575s [00:52:55.054] - Field: ‘owner’ 1575s [00:52:55.054] - Field: ‘envir’ 1575s [00:52:55.054] - Field: ‘packages’ 1575s [00:52:55.054] - Field: ‘gc’ 1575s [00:52:55.055] - Field: ‘conditions’ 1575s [00:52:55.055] - Field: ‘expr’ 1575s [00:52:55.055] - Field: ‘uuid’ 1575s [00:52:55.056] - Field: ‘seed’ 1575s [00:52:55.056] - Field: ‘version’ 1575s [00:52:55.056] - Field: ‘result’ 1575s [00:52:55.056] - Field: ‘asynchronous’ 1575s [00:52:55.056] - Field: ‘calls’ 1575s [00:52:55.056] - Field: ‘globals’ 1575s [00:52:55.056] - Field: ‘stdout’ 1575s [00:52:55.057] - Field: ‘earlySignal’ 1575s [00:52:55.057] - Field: ‘lazy’ 1575s [00:52:55.057] - Field: ‘state’ 1575s [00:52:55.057] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1575s [00:52:55.057] - Launch lazy future ... 1575s [00:52:55.058] Packages needed by the future expression (n = 0): 1575s [00:52:55.058] Packages needed by future strategies (n = 0): 1575s [00:52:55.059] { 1575s [00:52:55.059] { 1575s [00:52:55.059] { 1575s [00:52:55.059] ...future.startTime <- base::Sys.time() 1575s [00:52:55.059] { 1575s [00:52:55.059] { 1575s [00:52:55.059] { 1575s [00:52:55.059] base::local({ 1575s [00:52:55.059] has_future <- base::requireNamespace("future", 1575s [00:52:55.059] quietly = TRUE) 1575s [00:52:55.059] if (has_future) { 1575s [00:52:55.059] ns <- base::getNamespace("future") 1575s [00:52:55.059] version <- ns[[".package"]][["version"]] 1575s [00:52:55.059] if (is.null(version)) 1575s [00:52:55.059] version <- utils::packageVersion("future") 1575s [00:52:55.059] } 1575s [00:52:55.059] else { 1575s [00:52:55.059] version <- NULL 1575s [00:52:55.059] } 1575s [00:52:55.059] if (!has_future || version < "1.8.0") { 1575s [00:52:55.059] info <- base::c(r_version = base::gsub("R version ", 1575s [00:52:55.059] "", base::R.version$version.string), 1575s [00:52:55.059] platform = base::sprintf("%s (%s-bit)", 1575s [00:52:55.059] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1575s [00:52:55.059] os = base::paste(base::Sys.info()[base::c("sysname", 1575s [00:52:55.059] "release", "version")], collapse = " "), 1575s [00:52:55.059] hostname = base::Sys.info()[["nodename"]]) 1575s [00:52:55.059] info <- base::sprintf("%s: %s", base::names(info), 1575s [00:52:55.059] info) 1575s [00:52:55.059] info <- base::paste(info, collapse = "; ") 1575s [00:52:55.059] if (!has_future) { 1575s [00:52:55.059] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1575s [00:52:55.059] info) 1575s [00:52:55.059] } 1575s [00:52:55.059] else { 1575s [00:52:55.059] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1575s [00:52:55.059] info, version) 1575s [00:52:55.059] } 1575s [00:52:55.059] base::stop(msg) 1575s [00:52:55.059] } 1575s [00:52:55.059] }) 1575s [00:52:55.059] } 1575s [00:52:55.059] options(future.plan = NULL) 1575s [00:52:55.059] Sys.unsetenv("R_FUTURE_PLAN") 1575s [00:52:55.059] future::plan("default", .cleanup = FALSE, .init = FALSE) 1575s [00:52:55.059] } 1575s [00:52:55.059] ...future.workdir <- getwd() 1575s [00:52:55.059] } 1575s [00:52:55.059] ...future.oldOptions <- base::as.list(base::.Options) 1575s [00:52:55.059] ...future.oldEnvVars <- base::Sys.getenv() 1575s [00:52:55.059] } 1575s [00:52:55.059] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1575s [00:52:55.059] future.globals.maxSize = NULL, future.globals.method = NULL, 1575s [00:52:55.059] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1575s [00:52:55.059] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1575s [00:52:55.059] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1575s [00:52:55.059] future.stdout.windows.reencode = NULL, width = 80L) 1575s [00:52:55.059] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1575s [00:52:55.059] base::names(...future.oldOptions)) 1575s [00:52:55.059] } 1575s [00:52:55.059] if (FALSE) { 1575s [00:52:55.059] } 1575s [00:52:55.059] else { 1575s [00:52:55.059] if (TRUE) { 1575s [00:52:55.059] ...future.stdout <- base::rawConnection(base::raw(0L), 1575s [00:52:55.059] open = "w") 1575s [00:52:55.059] } 1575s [00:52:55.059] else { 1575s [00:52:55.059] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1575s [00:52:55.059] windows = "NUL", "/dev/null"), open = "w") 1575s [00:52:55.059] } 1575s [00:52:55.059] base::sink(...future.stdout, type = "output", split = FALSE) 1575s [00:52:55.059] base::on.exit(if (!base::is.null(...future.stdout)) { 1575s [00:52:55.059] base::sink(type = "output", split = FALSE) 1575s [00:52:55.059] base::close(...future.stdout) 1575s [00:52:55.059] }, add = TRUE) 1575s [00:52:55.059] } 1575s [00:52:55.059] ...future.frame <- base::sys.nframe() 1575s [00:52:55.059] ...future.conditions <- base::list() 1575s [00:52:55.059] ...future.rng <- base::globalenv()$.Random.seed 1575s [00:52:55.059] if (FALSE) { 1575s [00:52:55.059] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1575s [00:52:55.059] "...future.value", "...future.globalenv.names", ".Random.seed") 1575s [00:52:55.059] } 1575s [00:52:55.059] ...future.result <- base::tryCatch({ 1575s [00:52:55.059] base::withCallingHandlers({ 1575s [00:52:55.059] ...future.value <- base::withVisible(base::local({ 1575s [00:52:55.059] do.call(function(...) { 1575s [00:52:55.059] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:55.059] if (!identical(...future.globals.maxSize.org, 1575s [00:52:55.059] ...future.globals.maxSize)) { 1575s [00:52:55.059] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:55.059] on.exit(options(oopts), add = TRUE) 1575s [00:52:55.059] } 1575s [00:52:55.059] { 1575s [00:52:55.059] lapply(seq_along(...future.elements_ii), 1575s [00:52:55.059] FUN = function(jj) { 1575s [00:52:55.059] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:55.059] ...future.FUN(...future.X_jj, ...) 1575s [00:52:55.059] }) 1575s [00:52:55.059] } 1575s [00:52:55.059] }, args = future.call.arguments) 1575s [00:52:55.059] })) 1575s [00:52:55.059] future::FutureResult(value = ...future.value$value, 1575s [00:52:55.059] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1575s [00:52:55.059] ...future.rng), globalenv = if (FALSE) 1575s [00:52:55.059] list(added = base::setdiff(base::names(base::.GlobalEnv), 1575s [00:52:55.059] ...future.globalenv.names)) 1575s [00:52:55.059] else NULL, started = ...future.startTime, version = "1.8") 1575s [00:52:55.059] }, condition = base::local({ 1575s [00:52:55.059] c <- base::c 1575s [00:52:55.059] inherits <- base::inherits 1575s [00:52:55.059] invokeRestart <- base::invokeRestart 1575s [00:52:55.059] length <- base::length 1575s [00:52:55.059] list <- base::list 1575s [00:52:55.059] seq.int <- base::seq.int 1575s [00:52:55.059] signalCondition <- base::signalCondition 1575s [00:52:55.059] sys.calls <- base::sys.calls 1575s [00:52:55.059] `[[` <- base::`[[` 1575s [00:52:55.059] `+` <- base::`+` 1575s [00:52:55.059] `<<-` <- base::`<<-` 1575s [00:52:55.059] sysCalls <- function(calls = sys.calls(), from = 1L) { 1575s [00:52:55.059] calls[seq.int(from = from + 12L, to = length(calls) - 1575s [00:52:55.059] 3L)] 1575s [00:52:55.059] } 1575s [00:52:55.059] function(cond) { 1575s [00:52:55.059] is_error <- inherits(cond, "error") 1575s [00:52:55.059] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1575s [00:52:55.059] NULL) 1575s [00:52:55.059] if (is_error) { 1575s [00:52:55.059] sessionInformation <- function() { 1575s [00:52:55.059] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1575s [00:52:55.059] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1575s [00:52:55.059] search = base::search(), system = base::Sys.info()) 1575s [00:52:55.059] } 1575s [00:52:55.059] ...future.conditions[[length(...future.conditions) + 1575s [00:52:55.059] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1575s [00:52:55.059] cond$call), session = sessionInformation(), 1575s [00:52:55.059] timestamp = base::Sys.time(), signaled = 0L) 1575s [00:52:55.059] signalCondition(cond) 1575s [00:52:55.059] } 1575s [00:52:55.059] else if (!ignore && TRUE && inherits(cond, c("condition", 1575s [00:52:55.059] "immediateCondition"))) { 1575s [00:52:55.059] signal <- TRUE && inherits(cond, "immediateCondition") 1575s [00:52:55.059] ...future.conditions[[length(...future.conditions) + 1575s [00:52:55.059] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1575s [00:52:55.059] if (TRUE && !signal) { 1575s [00:52:55.059] muffleCondition <- function (cond, pattern = "^muffle") 1575s [00:52:55.059] { 1575s [00:52:55.059] inherits <- base::inherits 1575s [00:52:55.059] invokeRestart <- base::invokeRestart 1575s [00:52:55.059] is.null <- base::is.null 1575s [00:52:55.059] muffled <- FALSE 1575s [00:52:55.059] if (inherits(cond, "message")) { 1575s [00:52:55.059] muffled <- grepl(pattern, "muffleMessage") 1575s [00:52:55.059] if (muffled) 1575s [00:52:55.059] invokeRestart("muffleMessage") 1575s [00:52:55.059] } 1575s [00:52:55.059] else if (inherits(cond, "warning")) { 1575s [00:52:55.059] muffled <- grepl(pattern, "muffleWarning") 1575s [00:52:55.059] if (muffled) 1575s [00:52:55.059] invokeRestart("muffleWarning") 1575s [00:52:55.059] } 1575s [00:52:55.059] else if (inherits(cond, "condition")) { 1575s [00:52:55.059] if (!is.null(pattern)) { 1575s [00:52:55.059] computeRestarts <- base::computeRestarts 1575s [00:52:55.059] grepl <- base::grepl 1575s [00:52:55.059] restarts <- computeRestarts(cond) 1575s [00:52:55.059] for (restart in restarts) { 1575s [00:52:55.059] name <- restart$name 1575s [00:52:55.059] if (is.null(name)) 1575s [00:52:55.059] next 1575s [00:52:55.059] if (!grepl(pattern, name)) 1575s [00:52:55.059] next 1575s [00:52:55.059] invokeRestart(restart) 1575s [00:52:55.059] muffled <- TRUE 1575s [00:52:55.059] break 1575s [00:52:55.059] } 1575s [00:52:55.059] } 1575s [00:52:55.059] } 1575s [00:52:55.059] invisible(muffled) 1575s [00:52:55.059] } 1575s [00:52:55.059] muffleCondition(cond, pattern = "^muffle") 1575s [00:52:55.059] } 1575s [00:52:55.059] } 1575s [00:52:55.059] else { 1575s [00:52:55.059] if (TRUE) { 1575s [00:52:55.059] muffleCondition <- function (cond, pattern = "^muffle") 1575s [00:52:55.059] { 1575s [00:52:55.059] inherits <- base::inherits 1575s [00:52:55.059] invokeRestart <- base::invokeRestart 1575s [00:52:55.059] is.null <- base::is.null 1575s [00:52:55.059] muffled <- FALSE 1575s [00:52:55.059] if (inherits(cond, "message")) { 1575s [00:52:55.059] muffled <- grepl(pattern, "muffleMessage") 1575s [00:52:55.059] if (muffled) 1575s [00:52:55.059] invokeRestart("muffleMessage") 1575s [00:52:55.059] } 1575s [00:52:55.059] else if (inherits(cond, "warning")) { 1575s [00:52:55.059] muffled <- grepl(pattern, "muffleWarning") 1575s [00:52:55.059] if (muffled) 1575s [00:52:55.059] invokeRestart("muffleWarning") 1575s [00:52:55.059] } 1575s [00:52:55.059] else if (inherits(cond, "condition")) { 1575s [00:52:55.059] if (!is.null(pattern)) { 1575s [00:52:55.059] computeRestarts <- base::computeRestarts 1575s [00:52:55.059] grepl <- base::grepl 1575s [00:52:55.059] restarts <- computeRestarts(cond) 1575s [00:52:55.059] for (restart in restarts) { 1575s [00:52:55.059] name <- restart$name 1575s [00:52:55.059] if (is.null(name)) 1575s [00:52:55.059] next 1575s [00:52:55.059] if (!grepl(pattern, name)) 1575s [00:52:55.059] next 1575s [00:52:55.059] invokeRestart(restart) 1575s [00:52:55.059] muffled <- TRUE 1575s [00:52:55.059] break 1575s [00:52:55.059] } 1575s [00:52:55.059] } 1575s [00:52:55.059] } 1575s [00:52:55.059] invisible(muffled) 1575s [00:52:55.059] } 1575s [00:52:55.059] muffleCondition(cond, pattern = "^muffle") 1575s [00:52:55.059] } 1575s [00:52:55.059] } 1575s [00:52:55.059] } 1575s [00:52:55.059] })) 1575s [00:52:55.059] }, error = function(ex) { 1575s [00:52:55.059] base::structure(base::list(value = NULL, visible = NULL, 1575s [00:52:55.059] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1575s [00:52:55.059] ...future.rng), started = ...future.startTime, 1575s [00:52:55.059] finished = Sys.time(), session_uuid = NA_character_, 1575s [00:52:55.059] version = "1.8"), class = "FutureResult") 1575s [00:52:55.059] }, finally = { 1575s [00:52:55.059] if (!identical(...future.workdir, getwd())) 1575s [00:52:55.059] setwd(...future.workdir) 1575s [00:52:55.059] { 1575s [00:52:55.059] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1575s [00:52:55.059] ...future.oldOptions$nwarnings <- NULL 1575s [00:52:55.059] } 1575s [00:52:55.059] base::options(...future.oldOptions) 1575s [00:52:55.059] if (.Platform$OS.type == "windows") { 1575s [00:52:55.059] old_names <- names(...future.oldEnvVars) 1575s [00:52:55.059] envs <- base::Sys.getenv() 1575s [00:52:55.059] names <- names(envs) 1575s [00:52:55.059] common <- intersect(names, old_names) 1575s [00:52:55.059] added <- setdiff(names, old_names) 1575s [00:52:55.059] removed <- setdiff(old_names, names) 1575s [00:52:55.059] changed <- common[...future.oldEnvVars[common] != 1575s [00:52:55.059] envs[common]] 1575s [00:52:55.059] NAMES <- toupper(changed) 1575s [00:52:55.059] args <- list() 1575s [00:52:55.059] for (kk in seq_along(NAMES)) { 1575s [00:52:55.059] name <- changed[[kk]] 1575s [00:52:55.059] NAME <- NAMES[[kk]] 1575s [00:52:55.059] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:55.059] next 1575s [00:52:55.059] args[[name]] <- ...future.oldEnvVars[[name]] 1575s [00:52:55.059] } 1575s [00:52:55.059] NAMES <- toupper(added) 1575s [00:52:55.059] for (kk in seq_along(NAMES)) { 1575s [00:52:55.059] name <- added[[kk]] 1575s [00:52:55.059] NAME <- NAMES[[kk]] 1575s [00:52:55.059] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:55.059] next 1575s [00:52:55.059] args[[name]] <- "" 1575s [00:52:55.059] } 1575s [00:52:55.059] NAMES <- toupper(removed) 1575s [00:52:55.059] for (kk in seq_along(NAMES)) { 1575s [00:52:55.059] name <- removed[[kk]] 1575s [00:52:55.059] NAME <- NAMES[[kk]] 1575s [00:52:55.059] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:55.059] next 1575s [00:52:55.059] args[[name]] <- ...future.oldEnvVars[[name]] 1575s [00:52:55.059] } 1575s [00:52:55.059] if (length(args) > 0) 1575s [00:52:55.059] base::do.call(base::Sys.setenv, args = args) 1575s [00:52:55.059] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1575s [00:52:55.059] } 1575s [00:52:55.059] else { 1575s [00:52:55.059] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1575s [00:52:55.059] } 1575s [00:52:55.059] { 1575s [00:52:55.059] if (base::length(...future.futureOptionsAdded) > 1575s [00:52:55.059] 0L) { 1575s [00:52:55.059] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1575s [00:52:55.059] base::names(opts) <- ...future.futureOptionsAdded 1575s [00:52:55.059] base::options(opts) 1575s [00:52:55.059] } 1575s [00:52:55.059] { 1575s [00:52:55.059] { 1575s [00:52:55.059] NULL 1575s [00:52:55.059] RNGkind("Mersenne-Twister") 1575s [00:52:55.059] base::rm(list = ".Random.seed", envir = base::globalenv(), 1575s [00:52:55.059] inherits = FALSE) 1575s [00:52:55.059] } 1575s [00:52:55.059] options(future.plan = NULL) 1575s [00:52:55.059] if (is.na(NA_character_)) 1575s [00:52:55.059] Sys.unsetenv("R_FUTURE_PLAN") 1575s [00:52:55.059] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1575s [00:52:55.059] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1575s [00:52:55.059] envir = parent.frame()) 1575s [00:52:55.059] { 1575s [00:52:55.059] default_workers <- missing(workers) 1575s [00:52:55.059] if (is.function(workers)) 1575s [00:52:55.059] workers <- workers() 1575s [00:52:55.059] workers <- structure(as.integer(workers), 1575s [00:52:55.059] class = class(workers)) 1575s [00:52:55.059] stop_if_not(is.finite(workers), workers >= 1575s [00:52:55.059] 1L) 1575s [00:52:55.059] if ((workers == 1L && !inherits(workers, 1575s [00:52:55.059] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1575s [00:52:55.059] if (default_workers) 1575s [00:52:55.059] supportsMulticore(warn = TRUE) 1575s [00:52:55.059] return(sequential(..., envir = envir)) 1575s [00:52:55.059] } 1575s [00:52:55.059] oopts <- options(mc.cores = workers) 1575s [00:52:55.059] on.exit(options(oopts)) 1575s [00:52:55.059] future <- MulticoreFuture(..., workers = workers, 1575s [00:52:55.059] envir = envir) 1575s [00:52:55.059] if (!future$lazy) 1575s [00:52:55.059] future <- run(future) 1575s [00:52:55.059] invisible(future) 1575s [00:52:55.059] }), .cleanup = FALSE, .init = FALSE) 1575s [00:52:55.059] } 1575s [00:52:55.059] } 1575s [00:52:55.059] } 1575s [00:52:55.059] }) 1575s [00:52:55.059] if (TRUE) { 1575s [00:52:55.059] base::sink(type = "output", split = FALSE) 1575s [00:52:55.059] if (TRUE) { 1575s [00:52:55.059] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1575s [00:52:55.059] } 1575s [00:52:55.059] else { 1575s [00:52:55.059] ...future.result["stdout"] <- base::list(NULL) 1575s [00:52:55.059] } 1575s [00:52:55.059] base::close(...future.stdout) 1575s [00:52:55.059] ...future.stdout <- NULL 1575s [00:52:55.059] } 1575s [00:52:55.059] ...future.result$conditions <- ...future.conditions 1575s [00:52:55.059] ...future.result$finished <- base::Sys.time() 1575s [00:52:55.059] ...future.result 1575s [00:52:55.059] } 1575s [00:52:55.066] assign_globals() ... 1575s [00:52:55.066] List of 5 1575s [00:52:55.066] $ ...future.FUN :function (x) 1575s [00:52:55.066] $ future.call.arguments : list() 1575s [00:52:55.066] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:55.066] $ ...future.elements_ii :List of 6 1575s [00:52:55.066] ..$ a1: int 1 1575s [00:52:55.066] ..$ a2: int 2 1575s [00:52:55.066] ..$ b1: int 2 1575s [00:52:55.066] ..$ b2: int 3 1575s [00:52:55.066] ..$ c1: int 3 1575s [00:52:55.066] ..$ c2: int 4 1575s [00:52:55.066] $ ...future.seeds_ii : NULL 1575s [00:52:55.066] $ ...future.globals.maxSize: NULL 1575s [00:52:55.066] - attr(*, "where")=List of 5 1575s [00:52:55.066] ..$ ...future.FUN : 1575s [00:52:55.066] ..$ future.call.arguments : 1575s [00:52:55.066] ..$ ...future.elements_ii : 1575s [00:52:55.066] ..$ ...future.seeds_ii : 1575s [00:52:55.066] ..$ ...future.globals.maxSize: 1575s [00:52:55.066] - attr(*, "resolved")= logi FALSE 1575s [00:52:55.066] - attr(*, "total_size")= num 848 1575s [00:52:55.066] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:55.066] - attr(*, "already-done")= logi TRUE 1575s [00:52:55.085] - copied ‘...future.FUN’ to environment 1575s [00:52:55.085] - copied ‘future.call.arguments’ to environment 1575s [00:52:55.086] - copied ‘...future.elements_ii’ to environment 1575s [00:52:55.087] - copied ‘...future.seeds_ii’ to environment 1575s [00:52:55.087] - copied ‘...future.globals.maxSize’ to environment 1575s [00:52:55.087] assign_globals() ... done 1575s [00:52:55.088] plan(): Setting new future strategy stack: 1575s [00:52:55.089] List of future strategies: 1575s [00:52:55.089] 1. sequential: 1575s [00:52:55.089] - args: function (..., envir = parent.frame()) 1575s [00:52:55.089] - tweaked: FALSE 1575s [00:52:55.089] - call: NULL 1575s [00:52:55.089] plan(): nbrOfWorkers() = 1 1575s [00:52:55.092] plan(): Setting new future strategy stack: 1575s [00:52:55.092] List of future strategies: 1575s [00:52:55.092] 1. multicore: 1575s [00:52:55.092] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1575s [00:52:55.092] - tweaked: FALSE 1575s [00:52:55.092] - call: plan(strategy) 1575s [00:52:55.099] plan(): nbrOfWorkers() = 1 1575s [00:52:55.100] SequentialFuture started (and completed) 1575s [00:52:55.101] - Launch lazy future ... done 1575s [00:52:55.101] run() for ‘SequentialFuture’ ... done 1575s [00:52:55.102] Created future: 1575s [00:52:55.104] SequentialFuture: 1575s [00:52:55.104] Label: ‘future_sapply-1’ 1575s [00:52:55.104] Expression: 1575s [00:52:55.104] { 1575s [00:52:55.104] do.call(function(...) { 1575s [00:52:55.104] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:55.104] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1575s [00:52:55.104] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:55.104] on.exit(options(oopts), add = TRUE) 1575s [00:52:55.104] } 1575s [00:52:55.104] { 1575s [00:52:55.104] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1575s [00:52:55.104] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:55.104] ...future.FUN(...future.X_jj, ...) 1575s [00:52:55.104] }) 1575s [00:52:55.104] } 1575s [00:52:55.104] }, args = future.call.arguments) 1575s [00:52:55.104] } 1575s [00:52:55.104] Lazy evaluation: FALSE 1575s [00:52:55.104] Asynchronous evaluation: FALSE 1575s [00:52:55.104] Local evaluation: TRUE 1575s [00:52:55.104] Environment: R_GlobalEnv 1575s [00:52:55.104] Capture standard output: TRUE 1575s [00:52:55.104] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1575s [00:52:55.104] Globals: 5 objects totaling 1.16 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1575s [00:52:55.104] Packages: 1575s [00:52:55.104] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1575s [00:52:55.104] Resolved: TRUE 1575s [00:52:55.104] Value: 336 bytes of class ‘list’ 1575s [00:52:55.104] Early signaling: FALSE 1575s [00:52:55.104] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1575s [00:52:55.104] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1575s [00:52:55.106] Chunk #1 of 1 ... DONE 1575s [00:52:55.107] Launching 1 futures (chunks) ... DONE 1575s [00:52:55.107] Resolving 1 futures (chunks) ... 1575s [00:52:55.107] resolve() on list ... 1575s [00:52:55.108] recursive: 0 1575s [00:52:55.109] length: 1 1575s [00:52:55.109] 1575s [00:52:55.109] resolved() for ‘SequentialFuture’ ... 1575s [00:52:55.110] - state: ‘finished’ 1575s [00:52:55.111] - run: TRUE 1575s [00:52:55.111] - result: ‘FutureResult’ 1575s [00:52:55.111] resolved() for ‘SequentialFuture’ ... done 1575s [00:52:55.111] Future #1 1575s [00:52:55.111] signalConditionsASAP(SequentialFuture, pos=1) ... 1575s [00:52:55.112] - nx: 1 1575s [00:52:55.112] - relay: TRUE 1575s [00:52:55.112] - stdout: TRUE 1575s [00:52:55.112] - signal: TRUE 1575s [00:52:55.112] - resignal: FALSE 1575s [00:52:55.112] - force: TRUE 1575s [00:52:55.112] - relayed: [n=1] FALSE 1575s [00:52:55.112] - queued futures: [n=1] FALSE 1575s [00:52:55.113] - until=1 1575s [00:52:55.113] - relaying element #1 1575s [00:52:55.114] - relayed: [n=1] TRUE 1575s [00:52:55.114] - queued futures: [n=1] TRUE 1575s [00:52:55.115] signalConditionsASAP(SequentialFuture, pos=1) ... done 1575s [00:52:55.115] length: 0 (resolved future 1) 1575s [00:52:55.115] Relaying remaining futures 1575s [00:52:55.115] signalConditionsASAP(NULL, pos=0) ... 1575s [00:52:55.116] - nx: 1 1575s [00:52:55.116] - relay: TRUE 1575s [00:52:55.116] - stdout: TRUE 1575s [00:52:55.116] - signal: TRUE 1575s [00:52:55.116] - resignal: FALSE 1575s [00:52:55.116] - force: TRUE 1575s [00:52:55.117] - relayed: [n=1] TRUE 1575s [00:52:55.117] - queued futures: [n=1] TRUE 1575s - flush all 1575s [00:52:55.117] - relayed: [n=1] TRUE 1575s [00:52:55.117] - queued futures: [n=1] TRUE 1575s [00:52:55.117] signalConditionsASAP(NULL, pos=0) ... done 1575s [00:52:55.117] resolve() on list ... DONE 1575s [00:52:55.118] - Number of value chunks collected: 1 1575s [00:52:55.118] Resolving 1 futures (chunks) ... DONE 1575s [00:52:55.118] Reducing values from 1 chunks ... 1575s [00:52:55.118] - Number of values collected after concatenation: 6 1575s [00:52:55.118] - Number of values expected: 6 1575s [00:52:55.119] Reducing values from 1 chunks ... DONE 1575s [00:52:55.119] future_lapply() ... DONE 1575s [00:52:55.125] future_lapply() ... 1575s [00:52:55.130] Number of chunks: 1 1575s [00:52:55.131] getGlobalsAndPackagesXApply() ... 1575s [00:52:55.132] - future.globals: TRUE 1575s [00:52:55.132] getGlobalsAndPackages() ... 1575s [00:52:55.133] Searching for globals... 1575s [00:52:55.136] - globals found: [2] ‘FUN’, ‘UseMethod’ 1575s [00:52:55.137] Searching for globals ... DONE 1575s [00:52:55.137] Resolving globals: FALSE 1575s [00:52:55.139] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1575s [00:52:55.140] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1575s [00:52:55.140] - globals: [1] ‘FUN’ 1575s [00:52:55.140] 1575s [00:52:55.141] getGlobalsAndPackages() ... DONE 1575s [00:52:55.141] - globals found/used: [n=1] ‘FUN’ 1575s [00:52:55.141] - needed namespaces: [n=0] 1575s [00:52:55.142] Finding globals ... DONE 1575s [00:52:55.142] - use_args: TRUE 1575s [00:52:55.143] - Getting '...' globals ... 1575s [00:52:55.143] resolve() on list ... 1575s [00:52:55.144] recursive: 0 1575s [00:52:55.144] length: 1 1575s [00:52:55.144] elements: ‘...’ 1575s [00:52:55.145] length: 0 (resolved future 1) 1575s [00:52:55.145] resolve() on list ... DONE 1575s [00:52:55.146] - '...' content: [n=0] 1575s [00:52:55.146] List of 1 1575s [00:52:55.146] $ ...: list() 1575s [00:52:55.146] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:55.146] - attr(*, "where")=List of 1 1575s [00:52:55.146] ..$ ...: 1575s [00:52:55.146] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:55.146] - attr(*, "resolved")= logi TRUE 1575s [00:52:55.146] - attr(*, "total_size")= num NA 1575s [00:52:55.153] - Getting '...' globals ... DONE 1575s [00:52:55.154] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1575s [00:52:55.155] List of 2 1575s [00:52:55.155] $ ...future.FUN:function (x, ...) 1575s [00:52:55.155] $ ... : list() 1575s [00:52:55.155] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:55.155] - attr(*, "where")=List of 2 1575s [00:52:55.155] ..$ ...future.FUN: 1575s [00:52:55.155] ..$ ... : 1575s [00:52:55.155] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:55.155] - attr(*, "resolved")= logi FALSE 1575s [00:52:55.155] - attr(*, "total_size")= num 1248 1575s [00:52:55.165] Packages to be attached in all futures: [n=0] 1575s [00:52:55.165] getGlobalsAndPackagesXApply() ... DONE 1575s [00:52:55.166] Number of futures (= number of chunks): 1 1575s [00:52:55.166] Launching 1 futures (chunks) ... 1575s [00:52:55.167] Chunk #1 of 1 ... 1575s [00:52:55.167] - Finding globals in 'X' for chunk #1 ... 1575s [00:52:55.167] getGlobalsAndPackages() ... 1575s [00:52:55.167] Searching for globals... 1575s [00:52:55.168] 1575s [00:52:55.169] Searching for globals ... DONE 1575s [00:52:55.170] - globals: [0] 1575s [00:52:55.170] getGlobalsAndPackages() ... DONE 1575s [00:52:55.171] + additional globals found: [n=0] 1575s [00:52:55.171] + additional namespaces needed: [n=0] 1575s [00:52:55.172] - Finding globals in 'X' for chunk #1 ... DONE 1575s [00:52:55.172] - seeds: 1575s [00:52:55.172] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:55.173] getGlobalsAndPackages() ... 1575s [00:52:55.173] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:55.174] Resolving globals: FALSE 1575s [00:52:55.175] Tweak future expression to call with '...' arguments ... 1575s [00:52:55.176] { 1575s [00:52:55.176] do.call(function(...) { 1575s [00:52:55.176] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:55.176] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1575s [00:52:55.176] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:55.176] on.exit(options(oopts), add = TRUE) 1575s [00:52:55.176] } 1575s [00:52:55.176] { 1575s [00:52:55.176] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1575s [00:52:55.176] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:55.176] ...future.FUN(...future.X_jj, ...) 1575s [00:52:55.176] }) 1575s [00:52:55.176] } 1575s [00:52:55.176] }, args = future.call.arguments) 1575s [00:52:55.176] } 1575s [00:52:55.177] Tweak future expression to call with '...' arguments ... DONE 1575s [00:52:55.178] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:55.178] 1575s [00:52:55.178] getGlobalsAndPackages() ... DONE 1575s [00:52:55.180] run() for ‘Future’ ... 1575s [00:52:55.180] - state: ‘created’ 1575s [00:52:55.180] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1575s [00:52:55.187] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1575s [00:52:55.187] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1575s [00:52:55.188] - Field: ‘label’ 1575s [00:52:55.188] - Field: ‘local’ 1575s [00:52:55.188] - Field: ‘owner’ 1575s [00:52:55.189] - Field: ‘envir’ 1575s [00:52:55.189] - Field: ‘packages’ 1575s [00:52:55.189] - Field: ‘gc’ 1575s [00:52:55.189] - Field: ‘conditions’ 1575s [00:52:55.189] - Field: ‘expr’ 1575s [00:52:55.190] - Field: ‘uuid’ 1575s [00:52:55.190] - Field: ‘seed’ 1575s [00:52:55.190] - Field: ‘version’ 1575s [00:52:55.191] - Field: ‘result’ 1575s [00:52:55.191] - Field: ‘asynchronous’ 1575s [00:52:55.191] - Field: ‘calls’ 1575s [00:52:55.192] - Field: ‘globals’ 1575s [00:52:55.192] - Field: ‘stdout’ 1575s [00:52:55.192] - Field: ‘earlySignal’ 1575s [00:52:55.193] - Field: ‘lazy’ 1575s [00:52:55.193] - Field: ‘state’ 1575s [00:52:55.193] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1575s [00:52:55.194] - Launch lazy future ... 1575s [00:52:55.195] Packages needed by the future expression (n = 0): 1575s [00:52:55.195] Packages needed by future strategies (n = 0): 1575s [00:52:55.196] { 1575s [00:52:55.196] { 1575s [00:52:55.196] { 1575s [00:52:55.196] ...future.startTime <- base::Sys.time() 1575s [00:52:55.196] { 1575s [00:52:55.196] { 1575s [00:52:55.196] { 1575s [00:52:55.196] base::local({ 1575s [00:52:55.196] has_future <- base::requireNamespace("future", 1575s [00:52:55.196] quietly = TRUE) 1575s [00:52:55.196] if (has_future) { 1575s [00:52:55.196] ns <- base::getNamespace("future") 1575s [00:52:55.196] version <- ns[[".package"]][["version"]] 1575s [00:52:55.196] if (is.null(version)) 1575s [00:52:55.196] version <- utils::packageVersion("future") 1575s [00:52:55.196] } 1575s [00:52:55.196] else { 1575s [00:52:55.196] version <- NULL 1575s [00:52:55.196] } 1575s [00:52:55.196] if (!has_future || version < "1.8.0") { 1575s [00:52:55.196] info <- base::c(r_version = base::gsub("R version ", 1575s [00:52:55.196] "", base::R.version$version.string), 1575s [00:52:55.196] platform = base::sprintf("%s (%s-bit)", 1575s [00:52:55.196] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1575s [00:52:55.196] os = base::paste(base::Sys.info()[base::c("sysname", 1575s [00:52:55.196] "release", "version")], collapse = " "), 1575s [00:52:55.196] hostname = base::Sys.info()[["nodename"]]) 1575s [00:52:55.196] info <- base::sprintf("%s: %s", base::names(info), 1575s [00:52:55.196] info) 1575s [00:52:55.196] info <- base::paste(info, collapse = "; ") 1575s [00:52:55.196] if (!has_future) { 1575s [00:52:55.196] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1575s [00:52:55.196] info) 1575s [00:52:55.196] } 1575s [00:52:55.196] else { 1575s [00:52:55.196] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1575s [00:52:55.196] info, version) 1575s [00:52:55.196] } 1575s [00:52:55.196] base::stop(msg) 1575s [00:52:55.196] } 1575s [00:52:55.196] }) 1575s [00:52:55.196] } 1575s [00:52:55.196] options(future.plan = NULL) 1575s [00:52:55.196] Sys.unsetenv("R_FUTURE_PLAN") 1575s [00:52:55.196] future::plan("default", .cleanup = FALSE, .init = FALSE) 1575s [00:52:55.196] } 1575s [00:52:55.196] ...future.workdir <- getwd() 1575s [00:52:55.196] } 1575s [00:52:55.196] ...future.oldOptions <- base::as.list(base::.Options) 1575s [00:52:55.196] ...future.oldEnvVars <- base::Sys.getenv() 1575s [00:52:55.196] } 1575s [00:52:55.196] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1575s [00:52:55.196] future.globals.maxSize = NULL, future.globals.method = NULL, 1575s [00:52:55.196] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1575s [00:52:55.196] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1575s [00:52:55.196] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1575s [00:52:55.196] future.stdout.windows.reencode = NULL, width = 80L) 1575s [00:52:55.196] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1575s [00:52:55.196] base::names(...future.oldOptions)) 1575s [00:52:55.196] } 1575s [00:52:55.196] if (FALSE) { 1575s [00:52:55.196] } 1575s [00:52:55.196] else { 1575s [00:52:55.196] if (TRUE) { 1575s [00:52:55.196] ...future.stdout <- base::rawConnection(base::raw(0L), 1575s [00:52:55.196] open = "w") 1575s [00:52:55.196] } 1575s [00:52:55.196] else { 1575s [00:52:55.196] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1575s [00:52:55.196] windows = "NUL", "/dev/null"), open = "w") 1575s [00:52:55.196] } 1575s [00:52:55.196] base::sink(...future.stdout, type = "output", split = FALSE) 1575s [00:52:55.196] base::on.exit(if (!base::is.null(...future.stdout)) { 1575s [00:52:55.196] base::sink(type = "output", split = FALSE) 1575s [00:52:55.196] base::close(...future.stdout) 1575s [00:52:55.196] }, add = TRUE) 1575s [00:52:55.196] } 1575s [00:52:55.196] ...future.frame <- base::sys.nframe() 1575s [00:52:55.196] ...future.conditions <- base::list() 1575s [00:52:55.196] ...future.rng <- base::globalenv()$.Random.seed 1575s [00:52:55.196] if (FALSE) { 1575s [00:52:55.196] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1575s [00:52:55.196] "...future.value", "...future.globalenv.names", ".Random.seed") 1575s [00:52:55.196] } 1575s [00:52:55.196] ...future.result <- base::tryCatch({ 1575s [00:52:55.196] base::withCallingHandlers({ 1575s [00:52:55.196] ...future.value <- base::withVisible(base::local({ 1575s [00:52:55.196] do.call(function(...) { 1575s [00:52:55.196] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:55.196] if (!identical(...future.globals.maxSize.org, 1575s [00:52:55.196] ...future.globals.maxSize)) { 1575s [00:52:55.196] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:55.196] on.exit(options(oopts), add = TRUE) 1575s [00:52:55.196] } 1575s [00:52:55.196] { 1575s [00:52:55.196] lapply(seq_along(...future.elements_ii), 1575s [00:52:55.196] FUN = function(jj) { 1575s [00:52:55.196] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:55.196] ...future.FUN(...future.X_jj, ...) 1575s [00:52:55.196] }) 1575s [00:52:55.196] } 1575s [00:52:55.196] }, args = future.call.arguments) 1575s [00:52:55.196] })) 1575s [00:52:55.196] future::FutureResult(value = ...future.value$value, 1575s [00:52:55.196] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1575s [00:52:55.196] ...future.rng), globalenv = if (FALSE) 1575s [00:52:55.196] list(added = base::setdiff(base::names(base::.GlobalEnv), 1575s [00:52:55.196] ...future.globalenv.names)) 1575s [00:52:55.196] else NULL, started = ...future.startTime, version = "1.8") 1575s [00:52:55.196] }, condition = base::local({ 1575s [00:52:55.196] c <- base::c 1575s [00:52:55.196] inherits <- base::inherits 1575s [00:52:55.196] invokeRestart <- base::invokeRestart 1575s [00:52:55.196] length <- base::length 1575s [00:52:55.196] list <- base::list 1575s [00:52:55.196] seq.int <- base::seq.int 1575s [00:52:55.196] signalCondition <- base::signalCondition 1575s [00:52:55.196] sys.calls <- base::sys.calls 1575s [00:52:55.196] `[[` <- base::`[[` 1575s [00:52:55.196] `+` <- base::`+` 1575s [00:52:55.196] `<<-` <- base::`<<-` 1575s [00:52:55.196] sysCalls <- function(calls = sys.calls(), from = 1L) { 1575s [00:52:55.196] calls[seq.int(from = from + 12L, to = length(calls) - 1575s [00:52:55.196] 3L)] 1575s [00:52:55.196] } 1575s [00:52:55.196] function(cond) { 1575s [00:52:55.196] is_error <- inherits(cond, "error") 1575s [00:52:55.196] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1575s [00:52:55.196] NULL) 1575s [00:52:55.196] if (is_error) { 1575s [00:52:55.196] sessionInformation <- function() { 1575s [00:52:55.196] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1575s [00:52:55.196] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1575s [00:52:55.196] search = base::search(), system = base::Sys.info()) 1575s [00:52:55.196] } 1575s [00:52:55.196] ...future.conditions[[length(...future.conditions) + 1575s [00:52:55.196] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1575s [00:52:55.196] cond$call), session = sessionInformation(), 1575s [00:52:55.196] timestamp = base::Sys.time(), signaled = 0L) 1575s [00:52:55.196] signalCondition(cond) 1575s [00:52:55.196] } 1575s [00:52:55.196] else if (!ignore && TRUE && inherits(cond, c("condition", 1575s [00:52:55.196] "immediateCondition"))) { 1575s [00:52:55.196] signal <- TRUE && inherits(cond, "immediateCondition") 1575s [00:52:55.196] ...future.conditions[[length(...future.conditions) + 1575s [00:52:55.196] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1575s [00:52:55.196] if (TRUE && !signal) { 1575s [00:52:55.196] muffleCondition <- function (cond, pattern = "^muffle") 1575s [00:52:55.196] { 1575s [00:52:55.196] inherits <- base::inherits 1575s [00:52:55.196] invokeRestart <- base::invokeRestart 1575s [00:52:55.196] is.null <- base::is.null 1575s [00:52:55.196] muffled <- FALSE 1575s [00:52:55.196] if (inherits(cond, "message")) { 1575s [00:52:55.196] muffled <- grepl(pattern, "muffleMessage") 1575s [00:52:55.196] if (muffled) 1575s [00:52:55.196] invokeRestart("muffleMessage") 1575s [00:52:55.196] } 1575s [00:52:55.196] else if (inherits(cond, "warning")) { 1575s [00:52:55.196] muffled <- grepl(pattern, "muffleWarning") 1575s [00:52:55.196] if (muffled) 1575s [00:52:55.196] invokeRestart("muffleWarning") 1575s [00:52:55.196] } 1575s [00:52:55.196] else if (inherits(cond, "condition")) { 1575s [00:52:55.196] if (!is.null(pattern)) { 1575s [00:52:55.196] computeRestarts <- base::computeRestarts 1575s [00:52:55.196] grepl <- base::grepl 1575s [00:52:55.196] restarts <- computeRestarts(cond) 1575s [00:52:55.196] for (restart in restarts) { 1575s [00:52:55.196] name <- restart$name 1575s [00:52:55.196] if (is.null(name)) 1575s [00:52:55.196] next 1575s [00:52:55.196] if (!grepl(pattern, name)) 1575s [00:52:55.196] next 1575s [00:52:55.196] invokeRestart(restart) 1575s [00:52:55.196] muffled <- TRUE 1575s [00:52:55.196] break 1575s [00:52:55.196] } 1575s [00:52:55.196] } 1575s [00:52:55.196] } 1575s [00:52:55.196] invisible(muffled) 1575s [00:52:55.196] } 1575s [00:52:55.196] muffleCondition(cond, pattern = "^muffle") 1575s [00:52:55.196] } 1575s [00:52:55.196] } 1575s [00:52:55.196] else { 1575s [00:52:55.196] if (TRUE) { 1575s [00:52:55.196] muffleCondition <- function (cond, pattern = "^muffle") 1575s [00:52:55.196] { 1575s [00:52:55.196] inherits <- base::inherits 1575s [00:52:55.196] invokeRestart <- base::invokeRestart 1575s [00:52:55.196] is.null <- base::is.null 1575s [00:52:55.196] muffled <- FALSE 1575s [00:52:55.196] if (inherits(cond, "message")) { 1575s [00:52:55.196] muffled <- grepl(pattern, "muffleMessage") 1575s [00:52:55.196] if (muffled) 1575s [00:52:55.196] invokeRestart("muffleMessage") 1575s [00:52:55.196] } 1575s [00:52:55.196] else if (inherits(cond, "warning")) { 1575s [00:52:55.196] muffled <- grepl(pattern, "muffleWarning") 1575s [00:52:55.196] if (muffled) 1575s [00:52:55.196] invokeRestart("muffleWarning") 1575s [00:52:55.196] } 1575s [00:52:55.196] else if (inherits(cond, "condition")) { 1575s [00:52:55.196] if (!is.null(pattern)) { 1575s [00:52:55.196] computeRestarts <- base::computeRestarts 1575s [00:52:55.196] grepl <- base::grepl 1575s [00:52:55.196] restarts <- computeRestarts(cond) 1575s [00:52:55.196] for (restart in restarts) { 1575s [00:52:55.196] name <- restart$name 1575s [00:52:55.196] if (is.null(name)) 1575s [00:52:55.196] next 1575s [00:52:55.196] if (!grepl(pattern, name)) 1575s [00:52:55.196] next 1575s [00:52:55.196] invokeRestart(restart) 1575s [00:52:55.196] muffled <- TRUE 1575s [00:52:55.196] break 1575s [00:52:55.196] } 1575s [00:52:55.196] } 1575s [00:52:55.196] } 1575s [00:52:55.196] invisible(muffled) 1575s [00:52:55.196] } 1575s [00:52:55.196] muffleCondition(cond, pattern = "^muffle") 1575s [00:52:55.196] } 1575s [00:52:55.196] } 1575s [00:52:55.196] } 1575s [00:52:55.196] })) 1575s [00:52:55.196] }, error = function(ex) { 1575s [00:52:55.196] base::structure(base::list(value = NULL, visible = NULL, 1575s [00:52:55.196] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1575s [00:52:55.196] ...future.rng), started = ...future.startTime, 1575s [00:52:55.196] finished = Sys.time(), session_uuid = NA_character_, 1575s [00:52:55.196] version = "1.8"), class = "FutureResult") 1575s [00:52:55.196] }, finally = { 1575s [00:52:55.196] if (!identical(...future.workdir, getwd())) 1575s [00:52:55.196] setwd(...future.workdir) 1575s [00:52:55.196] { 1575s [00:52:55.196] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1575s [00:52:55.196] ...future.oldOptions$nwarnings <- NULL 1575s [00:52:55.196] } 1575s [00:52:55.196] base::options(...future.oldOptions) 1575s [00:52:55.196] if (.Platform$OS.type == "windows") { 1575s [00:52:55.196] old_names <- names(...future.oldEnvVars) 1575s [00:52:55.196] envs <- base::Sys.getenv() 1575s [00:52:55.196] names <- names(envs) 1575s [00:52:55.196] common <- intersect(names, old_names) 1575s [00:52:55.196] added <- setdiff(names, old_names) 1575s [00:52:55.196] removed <- setdiff(old_names, names) 1575s [00:52:55.196] changed <- common[...future.oldEnvVars[common] != 1575s [00:52:55.196] envs[common]] 1575s [00:52:55.196] NAMES <- toupper(changed) 1575s [00:52:55.196] args <- list() 1575s [00:52:55.196] for (kk in seq_along(NAMES)) { 1575s [00:52:55.196] name <- changed[[kk]] 1575s [00:52:55.196] NAME <- NAMES[[kk]] 1575s [00:52:55.196] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:55.196] next 1575s [00:52:55.196] args[[name]] <- ...future.oldEnvVars[[name]] 1575s [00:52:55.196] } 1575s [00:52:55.196] NAMES <- toupper(added) 1575s [00:52:55.196] for (kk in seq_along(NAMES)) { 1575s [00:52:55.196] name <- added[[kk]] 1575s [00:52:55.196] NAME <- NAMES[[kk]] 1575s [00:52:55.196] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:55.196] next 1575s [00:52:55.196] args[[name]] <- "" 1575s [00:52:55.196] } 1575s [00:52:55.196] NAMES <- toupper(removed) 1575s [00:52:55.196] for (kk in seq_along(NAMES)) { 1575s [00:52:55.196] name <- removed[[kk]] 1575s [00:52:55.196] NAME <- NAMES[[kk]] 1575s [00:52:55.196] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:55.196] next 1575s [00:52:55.196] args[[name]] <- ...future.oldEnvVars[[name]] 1575s [00:52:55.196] } 1575s [00:52:55.196] if (length(args) > 0) 1575s [00:52:55.196] base::do.call(base::Sys.setenv, args = args) 1575s [00:52:55.196] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1575s [00:52:55.196] } 1575s [00:52:55.196] else { 1575s [00:52:55.196] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1575s [00:52:55.196] } 1575s [00:52:55.196] { 1575s [00:52:55.196] if (base::length(...future.futureOptionsAdded) > 1575s [00:52:55.196] 0L) { 1575s [00:52:55.196] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1575s [00:52:55.196] base::names(opts) <- ...future.futureOptionsAdded 1575s [00:52:55.196] base::options(opts) 1575s [00:52:55.196] } 1575s [00:52:55.196] { 1575s [00:52:55.196] { 1575s [00:52:55.196] NULL 1575s [00:52:55.196] RNGkind("Mersenne-Twister") 1575s [00:52:55.196] base::rm(list = ".Random.seed", envir = base::globalenv(), 1575s [00:52:55.196] inherits = FALSE) 1575s [00:52:55.196] } 1575s [00:52:55.196] options(future.plan = NULL) 1575s [00:52:55.196] if (is.na(NA_character_)) 1575s [00:52:55.196] Sys.unsetenv("R_FUTURE_PLAN") 1575s [00:52:55.196] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1575s [00:52:55.196] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1575s [00:52:55.196] envir = parent.frame()) 1575s [00:52:55.196] { 1575s [00:52:55.196] default_workers <- missing(workers) 1575s [00:52:55.196] if (is.function(workers)) 1575s [00:52:55.196] workers <- workers() 1575s [00:52:55.196] workers <- structure(as.integer(workers), 1575s [00:52:55.196] class = class(workers)) 1575s [00:52:55.196] stop_if_not(is.finite(workers), workers >= 1575s [00:52:55.196] 1L) 1575s [00:52:55.196] if ((workers == 1L && !inherits(workers, 1575s [00:52:55.196] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1575s [00:52:55.196] if (default_workers) 1575s [00:52:55.196] supportsMulticore(warn = TRUE) 1575s [00:52:55.196] return(sequential(..., envir = envir)) 1575s [00:52:55.196] } 1575s [00:52:55.196] oopts <- options(mc.cores = workers) 1575s [00:52:55.196] on.exit(options(oopts)) 1575s [00:52:55.196] future <- MulticoreFuture(..., workers = workers, 1575s [00:52:55.196] envir = envir) 1575s [00:52:55.196] if (!future$lazy) 1575s [00:52:55.196] future <- run(future) 1575s [00:52:55.196] invisible(future) 1575s [00:52:55.196] }), .cleanup = FALSE, .init = FALSE) 1575s [00:52:55.196] } 1575s [00:52:55.196] } 1575s [00:52:55.196] } 1575s [00:52:55.196] }) 1575s [00:52:55.196] if (TRUE) { 1575s [00:52:55.196] base::sink(type = "output", split = FALSE) 1575s [00:52:55.196] if (TRUE) { 1575s [00:52:55.196] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1575s [00:52:55.196] } 1575s [00:52:55.196] else { 1575s [00:52:55.196] ...future.result["stdout"] <- base::list(NULL) 1575s [00:52:55.196] } 1575s [00:52:55.196] base::close(...future.stdout) 1575s [00:52:55.196] ...future.stdout <- NULL 1575s [00:52:55.196] } 1575s [00:52:55.196] ...future.result$conditions <- ...future.conditions 1575s [00:52:55.196] ...future.result$finished <- base::Sys.time() 1575s [00:52:55.196] ...future.result 1575s [00:52:55.196] } 1575s [00:52:55.202] assign_globals() ... 1575s [00:52:55.203] List of 5 1575s [00:52:55.203] $ ...future.FUN :function (x, ...) 1575s [00:52:55.203] $ future.call.arguments : list() 1575s [00:52:55.203] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:55.203] $ ...future.elements_ii :List of 6 1575s [00:52:55.203] ..$ a1: int 1 1575s [00:52:55.203] ..$ a2: int 2 1575s [00:52:55.203] ..$ b1: int 2 1575s [00:52:55.203] ..$ b2: int 3 1575s [00:52:55.203] ..$ c1: int 3 1575s [00:52:55.203] ..$ c2: int 4 1575s [00:52:55.203] $ ...future.seeds_ii : NULL 1575s [00:52:55.203] $ ...future.globals.maxSize: NULL 1575s [00:52:55.203] - attr(*, "where")=List of 5 1575s [00:52:55.203] ..$ ...future.FUN : 1575s [00:52:55.203] ..$ future.call.arguments : 1575s [00:52:55.203] ..$ ...future.elements_ii : 1575s [00:52:55.203] ..$ ...future.seeds_ii : 1575s [00:52:55.203] ..$ ...future.globals.maxSize: 1575s [00:52:55.203] - attr(*, "resolved")= logi FALSE 1575s [00:52:55.203] - attr(*, "total_size")= num 1248 1575s [00:52:55.203] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:55.203] - attr(*, "already-done")= logi TRUE 1575s [00:52:55.214] - copied ‘...future.FUN’ to environment 1575s [00:52:55.215] - copied ‘future.call.arguments’ to environment 1575s [00:52:55.215] - copied ‘...future.elements_ii’ to environment 1575s [00:52:55.216] - copied ‘...future.seeds_ii’ to environment 1575s [00:52:55.216] - copied ‘...future.globals.maxSize’ to environment 1575s [00:52:55.216] assign_globals() ... done 1575s [00:52:55.216] plan(): Setting new future strategy stack: 1575s [00:52:55.217] List of future strategies: 1575s [00:52:55.217] 1. sequential: 1575s [00:52:55.217] - args: function (..., envir = parent.frame()) 1575s [00:52:55.217] - tweaked: FALSE 1575s [00:52:55.217] - call: NULL 1575s [00:52:55.217] plan(): nbrOfWorkers() = 1 1575s [00:52:55.218] plan(): Setting new future strategy stack: 1575s [00:52:55.219] List of future strategies: 1575s [00:52:55.219] 1. multicore: 1575s [00:52:55.219] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1575s [00:52:55.219] - tweaked: FALSE 1575s [00:52:55.219] - call: plan(strategy) 1575s [00:52:55.225] plan(): nbrOfWorkers() = 1 1575s [00:52:55.226] SequentialFuture started (and completed) 1575s [00:52:55.226] - Launch lazy future ... done 1575s [00:52:55.226] run() for ‘SequentialFuture’ ... done 1575s [00:52:55.226] Created future: 1575s [00:52:55.226] SequentialFuture: 1575s [00:52:55.226] Label: ‘future_sapply-1’ 1575s [00:52:55.226] Expression: 1575s [00:52:55.226] { 1575s [00:52:55.226] do.call(function(...) { 1575s [00:52:55.226] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:55.226] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1575s [00:52:55.226] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:55.226] on.exit(options(oopts), add = TRUE) 1575s [00:52:55.226] } 1575s [00:52:55.226] { 1575s [00:52:55.226] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1575s [00:52:55.226] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:55.226] ...future.FUN(...future.X_jj, ...) 1575s [00:52:55.226] }) 1575s [00:52:55.226] } 1575s [00:52:55.226] }, args = future.call.arguments) 1575s [00:52:55.226] } 1575s [00:52:55.226] Lazy evaluation: FALSE 1575s [00:52:55.226] Asynchronous evaluation: FALSE 1575s [00:52:55.226] Local evaluation: TRUE 1575s [00:52:55.226] Environment: R_GlobalEnv 1575s [00:52:55.226] Capture standard output: TRUE 1575s [00:52:55.226] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1575s [00:52:55.226] Globals: 5 objects totaling 1.55 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1575s [00:52:55.226] Packages: 1575s [00:52:55.226] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1575s [00:52:55.226] Resolved: TRUE 1575s [00:52:55.226] Value: 1.31 KiB of class ‘list’ 1575s [00:52:55.226] Early signaling: FALSE 1575s [00:52:55.226] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1575s [00:52:55.226] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1575s [00:52:55.230] Chunk #1 of 1 ... DONE 1575s [00:52:55.230] Launching 1 futures (chunks) ... DONE 1575s [00:52:55.230] Resolving 1 futures (chunks) ... 1575s [00:52:55.230] resolve() on list ... 1575s [00:52:55.231] recursive: 0 1575s [00:52:55.231] length: 1 1575s [00:52:55.231] 1575s [00:52:55.231] resolved() for ‘SequentialFuture’ ... 1575s [00:52:55.232] - state: ‘finished’ 1575s [00:52:55.232] - run: TRUE 1575s [00:52:55.232] - result: ‘FutureResult’ 1575s [00:52:55.233] resolved() for ‘SequentialFuture’ ... done 1575s [00:52:55.233] Future #1 1575s [00:52:55.233] signalConditionsASAP(SequentialFuture, pos=1) ... 1575s [00:52:55.233] - nx: 1 1575s [00:52:55.234] - relay: TRUE 1575s [00:52:55.234] - stdout: TRUE 1575s [00:52:55.234] - signal: TRUE 1575s [00:52:55.235] - resignal: FALSE 1575s [00:52:55.235] - force: TRUE 1575s [00:52:55.235] - relayed: [n=1] FALSE 1575s [00:52:55.235] - queued futures: [n=1] FALSE 1575s [00:52:55.235] - until=1 1575s [00:52:55.236] - relaying element #1 1575s [00:52:55.236] - relayed: [n=1] TRUE 1575s [00:52:55.236] - queued futures: [n=1] TRUE 1575s [00:52:55.236] signalConditionsASAP(SequentialFuture, pos=1) ... done 1575s [00:52:55.237] length: 0 (resolved future 1) 1575s [00:52:55.237] Relaying remaining futures 1575s [00:52:55.237] signalConditionsASAP(NULL, pos=0) ... 1575s [00:52:55.237] - nx: 1 1575s [00:52:55.237] - relay: TRUE 1575s [00:52:55.237] - stdout: TRUE 1575s [00:52:55.237] - signal: TRUE 1575s [00:52:55.238] - resignal: FALSE 1575s [00:52:55.238] - force: TRUE 1575s [00:52:55.238] - relayed: [n=1] TRUE 1575s [00:52:55.238] - queued futures: [n=1] TRUE 1575s - flush all 1575s [00:52:55.238] - relayed: [n=1] TRUE 1575s [00:52:55.238] - queued futures: [n=1] TRUE 1575s [00:52:55.239] signalConditionsASAP(NULL, pos=0) ... done 1575s [00:52:55.239] resolve() on list ... DONE 1575s [00:52:55.239] - Number of value chunks collected: 1 1575s [00:52:55.239] Resolving 1 futures (chunks) ... DONE 1575s [00:52:55.240] Reducing values from 1 chunks ... 1575s [00:52:55.240] - Number of values collected after concatenation: 6 1575s [00:52:55.240] - Number of values expected: 6 1575s [00:52:55.240] Reducing values from 1 chunks ... DONE 1575s [00:52:55.240] future_lapply() ... DONE 1575s [00:52:55.244] future_lapply() ... 1575s [00:52:55.249] Number of chunks: 1 1575s [00:52:55.249] getGlobalsAndPackagesXApply() ... 1575s [00:52:55.249] - future.globals: TRUE 1575s [00:52:55.249] getGlobalsAndPackages() ... 1575s [00:52:55.250] Searching for globals... 1575s [00:52:55.253] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1575s [00:52:55.253] Searching for globals ... DONE 1575s [00:52:55.254] Resolving globals: FALSE 1575s [00:52:55.255] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1575s [00:52:55.256] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1575s [00:52:55.256] - globals: [1] ‘FUN’ 1575s [00:52:55.256] 1575s [00:52:55.256] getGlobalsAndPackages() ... DONE 1575s [00:52:55.257] - globals found/used: [n=1] ‘FUN’ 1575s [00:52:55.257] - needed namespaces: [n=0] 1575s [00:52:55.257] Finding globals ... DONE 1575s [00:52:55.257] - use_args: TRUE 1575s [00:52:55.257] - Getting '...' globals ... 1575s [00:52:55.258] resolve() on list ... 1575s [00:52:55.258] recursive: 0 1575s [00:52:55.258] length: 1 1575s [00:52:55.258] elements: ‘...’ 1575s [00:52:55.259] length: 0 (resolved future 1) 1575s [00:52:55.259] resolve() on list ... DONE 1575s [00:52:55.259] - '...' content: [n=0] 1575s [00:52:55.259] List of 1 1575s [00:52:55.259] $ ...: list() 1575s [00:52:55.259] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:55.259] - attr(*, "where")=List of 1 1575s [00:52:55.259] ..$ ...: 1575s [00:52:55.259] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:55.259] - attr(*, "resolved")= logi TRUE 1575s [00:52:55.259] - attr(*, "total_size")= num NA 1575s [00:52:55.264] - Getting '...' globals ... DONE 1575s [00:52:55.264] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1575s [00:52:55.265] List of 2 1575s [00:52:55.265] $ ...future.FUN:function (x, y = 2 * 1:5) 1575s [00:52:55.265] $ ... : list() 1575s [00:52:55.265] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:55.265] - attr(*, "where")=List of 2 1575s [00:52:55.265] ..$ ...future.FUN: 1575s [00:52:55.265] ..$ ... : 1575s [00:52:55.265] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:55.265] - attr(*, "resolved")= logi FALSE 1575s [00:52:55.265] - attr(*, "total_size")= num 4728 1575s [00:52:55.269] Packages to be attached in all futures: [n=0] 1575s [00:52:55.269] getGlobalsAndPackagesXApply() ... DONE 1575s [00:52:55.269] Number of futures (= number of chunks): 1 1575s [00:52:55.269] Launching 1 futures (chunks) ... 1575s [00:52:55.270] Chunk #1 of 1 ... 1575s [00:52:55.270] - Finding globals in 'X' for chunk #1 ... 1575s [00:52:55.270] getGlobalsAndPackages() ... 1575s [00:52:55.271] Searching for globals... 1575s [00:52:55.271] 1575s [00:52:55.272] Searching for globals ... DONE 1575s [00:52:55.272] - globals: [0] 1575s [00:52:55.272] getGlobalsAndPackages() ... DONE 1575s [00:52:55.272] + additional globals found: [n=0] 1575s [00:52:55.272] + additional namespaces needed: [n=0] 1575s [00:52:55.273] - Finding globals in 'X' for chunk #1 ... DONE 1575s [00:52:55.277] - seeds: 1575s [00:52:55.277] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:55.278] getGlobalsAndPackages() ... 1575s [00:52:55.278] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:55.278] Resolving globals: FALSE 1575s [00:52:55.278] Tweak future expression to call with '...' arguments ... 1575s [00:52:55.278] { 1575s [00:52:55.278] do.call(function(...) { 1575s [00:52:55.278] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:55.278] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1575s [00:52:55.278] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:55.278] on.exit(options(oopts), add = TRUE) 1575s [00:52:55.278] } 1575s [00:52:55.278] { 1575s [00:52:55.278] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1575s [00:52:55.278] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:55.278] ...future.FUN(...future.X_jj, ...) 1575s [00:52:55.278] }) 1575s [00:52:55.278] } 1575s [00:52:55.278] }, args = future.call.arguments) 1575s [00:52:55.278] } 1575s [00:52:55.279] Tweak future expression to call with '...' arguments ... DONE 1575s [00:52:55.279] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:55.280] 1575s [00:52:55.280] getGlobalsAndPackages() ... DONE 1575s [00:52:55.281] run() for ‘Future’ ... 1575s [00:52:55.281] - state: ‘created’ 1575s [00:52:55.281] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1575s [00:52:55.285] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1575s [00:52:55.286] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1575s [00:52:55.286] - Field: ‘label’ 1575s [00:52:55.286] - Field: ‘local’ 1575s [00:52:55.287] - Field: ‘owner’ 1575s [00:52:55.287] - Field: ‘envir’ 1575s [00:52:55.287] - Field: ‘packages’ 1575s [00:52:55.287] - Field: ‘gc’ 1575s [00:52:55.287] - Field: ‘conditions’ 1575s [00:52:55.288] - Field: ‘expr’ 1575s [00:52:55.288] - Field: ‘uuid’ 1575s [00:52:55.288] - Field: ‘seed’ 1575s [00:52:55.288] - Field: ‘version’ 1575s [00:52:55.288] - Field: ‘result’ 1575s [00:52:55.289] - Field: ‘asynchronous’ 1575s [00:52:55.289] - Field: ‘calls’ 1575s [00:52:55.289] - Field: ‘globals’ 1575s [00:52:55.289] - Field: ‘stdout’ 1575s [00:52:55.289] - Field: ‘earlySignal’ 1575s [00:52:55.290] - Field: ‘lazy’ 1575s [00:52:55.290] - Field: ‘state’ 1575s [00:52:55.290] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1575s [00:52:55.290] - Launch lazy future ... 1575s [00:52:55.290] Packages needed by the future expression (n = 0): 1575s [00:52:55.291] Packages needed by future strategies (n = 0): 1575s [00:52:55.291] { 1575s [00:52:55.291] { 1575s [00:52:55.291] { 1575s [00:52:55.291] ...future.startTime <- base::Sys.time() 1575s [00:52:55.291] { 1575s [00:52:55.291] { 1575s [00:52:55.291] { 1575s [00:52:55.291] base::local({ 1575s [00:52:55.291] has_future <- base::requireNamespace("future", 1575s [00:52:55.291] quietly = TRUE) 1575s [00:52:55.291] if (has_future) { 1575s [00:52:55.291] ns <- base::getNamespace("future") 1575s [00:52:55.291] version <- ns[[".package"]][["version"]] 1575s [00:52:55.291] if (is.null(version)) 1575s [00:52:55.291] version <- utils::packageVersion("future") 1575s [00:52:55.291] } 1575s [00:52:55.291] else { 1575s [00:52:55.291] version <- NULL 1575s [00:52:55.291] } 1575s [00:52:55.291] if (!has_future || version < "1.8.0") { 1575s [00:52:55.291] info <- base::c(r_version = base::gsub("R version ", 1575s [00:52:55.291] "", base::R.version$version.string), 1575s [00:52:55.291] platform = base::sprintf("%s (%s-bit)", 1575s [00:52:55.291] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1575s [00:52:55.291] os = base::paste(base::Sys.info()[base::c("sysname", 1575s [00:52:55.291] "release", "version")], collapse = " "), 1575s [00:52:55.291] hostname = base::Sys.info()[["nodename"]]) 1575s [00:52:55.291] info <- base::sprintf("%s: %s", base::names(info), 1575s [00:52:55.291] info) 1575s [00:52:55.291] info <- base::paste(info, collapse = "; ") 1575s [00:52:55.291] if (!has_future) { 1575s [00:52:55.291] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1575s [00:52:55.291] info) 1575s [00:52:55.291] } 1575s [00:52:55.291] else { 1575s [00:52:55.291] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1575s [00:52:55.291] info, version) 1575s [00:52:55.291] } 1575s [00:52:55.291] base::stop(msg) 1575s [00:52:55.291] } 1575s [00:52:55.291] }) 1575s [00:52:55.291] } 1575s [00:52:55.291] options(future.plan = NULL) 1575s [00:52:55.291] Sys.unsetenv("R_FUTURE_PLAN") 1575s [00:52:55.291] future::plan("default", .cleanup = FALSE, .init = FALSE) 1575s [00:52:55.291] } 1575s [00:52:55.291] ...future.workdir <- getwd() 1575s [00:52:55.291] } 1575s [00:52:55.291] ...future.oldOptions <- base::as.list(base::.Options) 1575s [00:52:55.291] ...future.oldEnvVars <- base::Sys.getenv() 1575s [00:52:55.291] } 1575s [00:52:55.291] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1575s [00:52:55.291] future.globals.maxSize = NULL, future.globals.method = NULL, 1575s [00:52:55.291] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1575s [00:52:55.291] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1575s [00:52:55.291] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1575s [00:52:55.291] future.stdout.windows.reencode = NULL, width = 80L) 1575s [00:52:55.291] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1575s [00:52:55.291] base::names(...future.oldOptions)) 1575s [00:52:55.291] } 1575s [00:52:55.291] if (FALSE) { 1575s [00:52:55.291] } 1575s [00:52:55.291] else { 1575s [00:52:55.291] if (TRUE) { 1575s [00:52:55.291] ...future.stdout <- base::rawConnection(base::raw(0L), 1575s [00:52:55.291] open = "w") 1575s [00:52:55.291] } 1575s [00:52:55.291] else { 1575s [00:52:55.291] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1575s [00:52:55.291] windows = "NUL", "/dev/null"), open = "w") 1575s [00:52:55.291] } 1575s [00:52:55.291] base::sink(...future.stdout, type = "output", split = FALSE) 1575s [00:52:55.291] base::on.exit(if (!base::is.null(...future.stdout)) { 1575s [00:52:55.291] base::sink(type = "output", split = FALSE) 1575s [00:52:55.291] base::close(...future.stdout) 1575s [00:52:55.291] }, add = TRUE) 1575s [00:52:55.291] } 1575s [00:52:55.291] ...future.frame <- base::sys.nframe() 1575s [00:52:55.291] ...future.conditions <- base::list() 1575s [00:52:55.291] ...future.rng <- base::globalenv()$.Random.seed 1575s [00:52:55.291] if (FALSE) { 1575s [00:52:55.291] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1575s [00:52:55.291] "...future.value", "...future.globalenv.names", ".Random.seed") 1575s [00:52:55.291] } 1575s [00:52:55.291] ...future.result <- base::tryCatch({ 1575s [00:52:55.291] base::withCallingHandlers({ 1575s [00:52:55.291] ...future.value <- base::withVisible(base::local({ 1575s [00:52:55.291] do.call(function(...) { 1575s [00:52:55.291] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:55.291] if (!identical(...future.globals.maxSize.org, 1575s [00:52:55.291] ...future.globals.maxSize)) { 1575s [00:52:55.291] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:55.291] on.exit(options(oopts), add = TRUE) 1575s [00:52:55.291] } 1575s [00:52:55.291] { 1575s [00:52:55.291] lapply(seq_along(...future.elements_ii), 1575s [00:52:55.291] FUN = function(jj) { 1575s [00:52:55.291] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:55.291] ...future.FUN(...future.X_jj, ...) 1575s [00:52:55.291] }) 1575s [00:52:55.291] } 1575s [00:52:55.291] }, args = future.call.arguments) 1575s [00:52:55.291] })) 1575s [00:52:55.291] future::FutureResult(value = ...future.value$value, 1575s [00:52:55.291] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1575s [00:52:55.291] ...future.rng), globalenv = if (FALSE) 1575s [00:52:55.291] list(added = base::setdiff(base::names(base::.GlobalEnv), 1575s [00:52:55.291] ...future.globalenv.names)) 1575s [00:52:55.291] else NULL, started = ...future.startTime, version = "1.8") 1575s [00:52:55.291] }, condition = base::local({ 1575s [00:52:55.291] c <- base::c 1575s [00:52:55.291] inherits <- base::inherits 1575s [00:52:55.291] invokeRestart <- base::invokeRestart 1575s [00:52:55.291] length <- base::length 1575s [00:52:55.291] list <- base::list 1575s [00:52:55.291] seq.int <- base::seq.int 1575s [00:52:55.291] signalCondition <- base::signalCondition 1575s [00:52:55.291] sys.calls <- base::sys.calls 1575s [00:52:55.291] `[[` <- base::`[[` 1575s [00:52:55.291] `+` <- base::`+` 1575s [00:52:55.291] `<<-` <- base::`<<-` 1575s [00:52:55.291] sysCalls <- function(calls = sys.calls(), from = 1L) { 1575s [00:52:55.291] calls[seq.int(from = from + 12L, to = length(calls) - 1575s [00:52:55.291] 3L)] 1575s [00:52:55.291] } 1575s [00:52:55.291] function(cond) { 1575s [00:52:55.291] is_error <- inherits(cond, "error") 1575s [00:52:55.291] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1575s [00:52:55.291] NULL) 1575s [00:52:55.291] if (is_error) { 1575s [00:52:55.291] sessionInformation <- function() { 1575s [00:52:55.291] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1575s [00:52:55.291] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1575s [00:52:55.291] search = base::search(), system = base::Sys.info()) 1575s [00:52:55.291] } 1575s [00:52:55.291] ...future.conditions[[length(...future.conditions) + 1575s [00:52:55.291] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1575s [00:52:55.291] cond$call), session = sessionInformation(), 1575s [00:52:55.291] timestamp = base::Sys.time(), signaled = 0L) 1575s [00:52:55.291] signalCondition(cond) 1575s [00:52:55.291] } 1575s [00:52:55.291] else if (!ignore && TRUE && inherits(cond, c("condition", 1575s [00:52:55.291] "immediateCondition"))) { 1575s [00:52:55.291] signal <- TRUE && inherits(cond, "immediateCondition") 1575s [00:52:55.291] ...future.conditions[[length(...future.conditions) + 1575s [00:52:55.291] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1575s [00:52:55.291] if (TRUE && !signal) { 1575s [00:52:55.291] muffleCondition <- function (cond, pattern = "^muffle") 1575s [00:52:55.291] { 1575s [00:52:55.291] inherits <- base::inherits 1575s [00:52:55.291] invokeRestart <- base::invokeRestart 1575s [00:52:55.291] is.null <- base::is.null 1575s [00:52:55.291] muffled <- FALSE 1575s [00:52:55.291] if (inherits(cond, "message")) { 1575s [00:52:55.291] muffled <- grepl(pattern, "muffleMessage") 1575s [00:52:55.291] if (muffled) 1575s [00:52:55.291] invokeRestart("muffleMessage") 1575s [00:52:55.291] } 1575s [00:52:55.291] else if (inherits(cond, "warning")) { 1575s [00:52:55.291] muffled <- grepl(pattern, "muffleWarning") 1575s [00:52:55.291] if (muffled) 1575s [00:52:55.291] invokeRestart("muffleWarning") 1575s [00:52:55.291] } 1575s [00:52:55.291] else if (inherits(cond, "condition")) { 1575s [00:52:55.291] if (!is.null(pattern)) { 1575s [00:52:55.291] computeRestarts <- base::computeRestarts 1575s [00:52:55.291] grepl <- base::grepl 1575s [00:52:55.291] restarts <- computeRestarts(cond) 1575s [00:52:55.291] for (restart in restarts) { 1575s [00:52:55.291] name <- restart$name 1575s [00:52:55.291] if (is.null(name)) 1575s [00:52:55.291] next 1575s [00:52:55.291] if (!grepl(pattern, name)) 1575s [00:52:55.291] next 1575s [00:52:55.291] invokeRestart(restart) 1575s [00:52:55.291] muffled <- TRUE 1575s [00:52:55.291] break 1575s [00:52:55.291] } 1575s [00:52:55.291] } 1575s [00:52:55.291] } 1575s [00:52:55.291] invisible(muffled) 1575s [00:52:55.291] } 1575s [00:52:55.291] muffleCondition(cond, pattern = "^muffle") 1575s [00:52:55.291] } 1575s [00:52:55.291] } 1575s [00:52:55.291] else { 1575s [00:52:55.291] if (TRUE) { 1575s [00:52:55.291] muffleCondition <- function (cond, pattern = "^muffle") 1575s [00:52:55.291] { 1575s [00:52:55.291] inherits <- base::inherits 1575s [00:52:55.291] invokeRestart <- base::invokeRestart 1575s [00:52:55.291] is.null <- base::is.null 1575s [00:52:55.291] muffled <- FALSE 1575s [00:52:55.291] if (inherits(cond, "message")) { 1575s [00:52:55.291] muffled <- grepl(pattern, "muffleMessage") 1575s [00:52:55.291] if (muffled) 1575s [00:52:55.291] invokeRestart("muffleMessage") 1575s [00:52:55.291] } 1575s [00:52:55.291] else if (inherits(cond, "warning")) { 1575s [00:52:55.291] muffled <- grepl(pattern, "muffleWarning") 1575s [00:52:55.291] if (muffled) 1575s [00:52:55.291] invokeRestart("muffleWarning") 1575s [00:52:55.291] } 1575s [00:52:55.291] else if (inherits(cond, "condition")) { 1575s [00:52:55.291] if (!is.null(pattern)) { 1575s [00:52:55.291] computeRestarts <- base::computeRestarts 1575s [00:52:55.291] grepl <- base::grepl 1575s [00:52:55.291] restarts <- computeRestarts(cond) 1575s [00:52:55.291] for (restart in restarts) { 1575s [00:52:55.291] name <- restart$name 1575s [00:52:55.291] if (is.null(name)) 1575s [00:52:55.291] next 1575s [00:52:55.291] if (!grepl(pattern, name)) 1575s [00:52:55.291] next 1575s [00:52:55.291] invokeRestart(restart) 1575s [00:52:55.291] muffled <- TRUE 1575s [00:52:55.291] break 1575s [00:52:55.291] } 1575s [00:52:55.291] } 1575s [00:52:55.291] } 1575s [00:52:55.291] invisible(muffled) 1575s [00:52:55.291] } 1575s [00:52:55.291] muffleCondition(cond, pattern = "^muList of ffle") 1575s [00:52:55.291] } 1575s [00:52:55.291] } 1575s [00:52:55.291] } 1575s [00:52:55.291] })) 1575s [00:52:55.291] }, error = function(ex) { 1575s [00:52:55.291] base::structure(base::list(value = NULL, visible = NULL, 1575s [00:52:55.291] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1575s [00:52:55.291] ...future.rng), started = ...future.startTime, 1575s [00:52:55.291] finished = Sys.time(), session_uuid = NA_character_, 1575s [00:52:55.291] version = "1.8"), class = "FutureResult") 1575s [00:52:55.291] }, finally = { 1575s [00:52:55.291] if (!identical(...future.workdir, getwd())) 1575s [00:52:55.291] setwd(...future.workdir) 1575s [00:52:55.291] { 1575s [00:52:55.291] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1575s [00:52:55.291] ...future.oldOptions$nwarnings <- NULL 1575s [00:52:55.291] } 1575s [00:52:55.291] base::options(...future.oldOptions) 1575s [00:52:55.291] if (.Platform$OS.type == "windows") { 1575s [00:52:55.291] old_names <- names(...future.oldEnvVars) 1575s [00:52:55.291] envs <- base::Sys.getenv() 1575s [00:52:55.291] names <- names(envs) 1575s [00:52:55.291] common <- intersect(names, old_names) 1575s [00:52:55.291] added <- setdiff(names, old_names) 1575s [00:52:55.291] removed <- setdiff(old_names, names) 1575s [00:52:55.291] changed <- common[...future.oldEnvVars[common] != 1575s [00:52:55.291] envs[common]] 1575s [00:52:55.291] NAMES <- toupper(changed) 1575s [00:52:55.291] args <- list() 1575s [00:52:55.291] for (kk in seq_along(NAMES)) { 1575s [00:52:55.291] name <- changed[[kk]] 1575s [00:52:55.291] NAME <- NAMES[[kk]] 1575s [00:52:55.291] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:55.291] next 1575s [00:52:55.291] args[[name]] <- ...future.oldEnvVars[[name]] 1575s [00:52:55.291] } 1575s [00:52:55.291] NAMES <- toupper(added) 1575s [00:52:55.291] for (kk in seq_along(NAMES)) { 1575s [00:52:55.291] name <- added[[kk]] 1575s [00:52:55.291] NAME <- NAMES[[kk]] 1575s [00:52:55.291] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:55.291] next 1575s [00:52:55.291] args[[name]] <- "" 1575s [00:52:55.291] } 1575s [00:52:55.291] NAMES <- toupper(removed) 1575s [00:52:55.291] for (kk in seq_along(NAMES)) { 1575s [00:52:55.291] name <- removed[[kk]] 1575s [00:52:55.291] NAME <- NAMES[[kk]] 1575s [00:52:55.291] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:55.291] next 1575s [00:52:55.291] args[[name]] <- ...future.oldEnvVars[[name]] 1575s [00:52:55.291] } 1575s [00:52:55.291] if (length(args) > 0) 1575s [00:52:55.291] base::do.call(base::Sys.setenv, args = args) 1575s [00:52:55.291] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1575s [00:52:55.291] } 1575s [00:52:55.291] else { 1575s [00:52:55.291] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1575s [00:52:55.291] } 1575s [00:52:55.291] { 1575s [00:52:55.291] if (base::length(...future.futureOptionsAdded) > 1575s [00:52:55.291] 0L) { 1575s [00:52:55.291] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1575s [00:52:55.291] base::names(opts) <- ...future.futureOptionsAdded 1575s [00:52:55.291] base::options(opts) 1575s [00:52:55.291] } 1575s [00:52:55.291] { 1575s [00:52:55.291] { 1575s [00:52:55.291] NULL 1575s [00:52:55.291] RNGkind("Mersenne-Twister") 1575s [00:52:55.291] base::rm(list = ".Random.seed", envir = base::globalenv(), 1575s [00:52:55.291] inherits = FALSE) 1575s [00:52:55.291] } 1575s [00:52:55.291] options(future.plan = NULL) 1575s [00:52:55.291] if (is.na(NA_character_)) 1575s [00:52:55.291] Sys.unsetenv("R_FUTURE_PLAN") 1575s [00:52:55.291] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1575s [00:52:55.291] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1575s [00:52:55.291] envir = parent.frame()) 1575s [00:52:55.291] { 1575s [00:52:55.291] default_workers <- missing(workers) 1575s [00:52:55.291] if (is.function(workers)) 1575s [00:52:55.291] workers <- workers() 1575s [00:52:55.291] workers <- structure(as.integer(workers), 1575s [00:52:55.291] class = class(workers)) 1575s [00:52:55.291] stop_if_not(is.finite(workers), workers >= 1575s [00:52:55.291] 1L) 1575s [00:52:55.291] if ((workers == 1L && !inherits(workers, 1575s [00:52:55.291] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1575s [00:52:55.291] if (default_workers) 1575s [00:52:55.291] supportsMulticore(warn = TRUE) 1575s [00:52:55.291] return(sequential(..., envir = envir)) 1575s [00:52:55.291] } 1575s [00:52:55.291] oopts <- options(mc.cores = workers) 1575s [00:52:55.291] on.exit(options(oopts)) 1575s [00:52:55.291] future <- MulticoreFuture(..., workers = workers, 1575s [00:52:55.291] envir = envir) 1575s [00:52:55.291] if (!future$lazy) 1575s [00:52:55.291] future <- run(future) 1575s [00:52:55.291] invisible(future) 1575s [00:52:55.291] }), .cleanup = FALSE, .init = FALSE) 1575s [00:52:55.291] } 1575s [00:52:55.291] } 1575s [00:52:55.291] } 1575s [00:52:55.291] }) 1575s [00:52:55.291] if (TRUE) { 1575s [00:52:55.291] base::sink(type = "output", split = FALSE) 1575s [00:52:55.291] if (TRUE) { 1575s [00:52:55.291] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1575s [00:52:55.291] } 1575s [00:52:55.291] else { 1575s [00:52:55.291] ...future.result["stdout"] <- base::list(NULL) 1575s [00:52:55.291] } 1575s [00:52:55.291] base::close(...future.stdout) 1575s [00:52:55.291] ...future.stdout <- NULL 1575s [00:52:55.291] } 1575s [00:52:55.291] ...future.result$conditions <- ...future.conditions 1575s [00:52:55.291] ...future.result$finished <- base::Sys.time() 1575s [00:52:55.291] ...future.result 1575s [00:52:55.291] } 1575s [00:52:55.299] assign_globals() ... 1575s [00:52:55.299] List of 5 1575s [00:52:55.299] $ ...future.FUN :function (x, y = 2 * 1:5) 1575s [00:52:55.299] $ future.call.arguments : list() 1575s [00:52:55.299] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:55.299] $ ...future.elements_ii :List of 6 1575s [00:52:55.299] ..$ a1: int 1 1575s [00:52:55.299] ..$ a2: int 2 1575s [00:52:55.299] ..$ b1: int 2 1575s [00:52:55.299] ..$ b2: int 3 1575s [00:52:55.299] ..$ c1: int 3 1575s [00:52:55.299] ..$ c2: int 4 1575s [00:52:55.299] $ ...future.seeds_ii : NULL 1575s [00:52:55.299] $ ...future.globals.maxSize: NULL 1575s [00:52:55.299] - attr(*, "where")=List of 5 1575s [00:52:55.299] ..$ ...future.FUN : 1575s [00:52:55.299] ..$ future.call.arguments : 1575s [00:52:55.299] ..$ ...future.elements_ii : 1575s [00:52:55.299] ..$ ...future.seeds_ii : 1575s [00:52:55.299] ..$ ...future.globals.maxSize: 1575s [00:52:55.299] - attr(*, "resolved")= logi FALSE 1575s [00:52:55.299] - attr(*, "total_size")= num 4728 1575s [00:52:55.299] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:55.299] - attr(*, "already-done")= logi TRUE 1575s [00:52:55.310] - reassign environment for ‘...future.FUN’ 1575s [00:52:55.310] - copied ‘...future.FUN’ to environment 1575s [00:52:55.310] - copied ‘future.call.arguments’ to environment 1575s [00:52:55.311] - copied ‘...future.elements_ii’ to environment 1575s [00:52:55.311] - copied ‘...future.seeds_ii’ to environment 1575s [00:52:55.311] - copied ‘...future.globals.maxSize’ to environment 1575s [00:52:55.311] assign_globals() ... done 1575s [00:52:55.312] plan(): Setting new future strategy stack: 1575s [00:52:55.312] List of future strategies: 1575s [00:52:55.312] 1. sequential: 1575s [00:52:55.312] - args: function (..., envir = parent.frame()) 1575s [00:52:55.312] - tweaked: FALSE 1575s [00:52:55.312] - call: NULL 1575s [00:52:55.312] plan(): nbrOfWorkers() = 1 1575s [00:52:55.313] plan(): Setting new future strategy stack: 1575s [00:52:55.314] List of future strategies: 1575s [00:52:55.314] 1. multicore: 1575s [00:52:55.314] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1575s [00:52:55.314] - tweaked: FALSE 1575s [00:52:55.314] - call: plan(strategy) 1575s [00:52:55.317] plan(): nbrOfWorkers() = 1 1575s [00:52:55.318] SequentialFuture started (and completed) 1575s [00:52:55.318] - Launch lazy future ... done 1575s [00:52:55.318] run() for ‘SequentialFuture’ ... done 1575s [00:52:55.318] Created future: 1575s [00:52:55.318] SequentialFuture: 1575s [00:52:55.318] Label: ‘future_sapply-1’ 1575s [00:52:55.318] Expression: 1575s [00:52:55.318] { 1575s [00:52:55.318] do.call(function(...) { 1575s [00:52:55.318] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:55.318] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1575s [00:52:55.318] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:55.318] on.exit(options(oopts), add = TRUE) 1575s [00:52:55.318] } 1575s [00:52:55.318] { 1575s [00:52:55.318] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1575s [00:52:55.318] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:55.318] ...future.FUN(...future.X_jj, ...) 1575s [00:52:55.318] }) 1575s [00:52:55.318] } 1575s [00:52:55.318] }, args = future.call.arguments) 1575s [00:52:55.318] } 1575s [00:52:55.318] Lazy evaluation: FALSE 1575s [00:52:55.318] Asynchronous evaluation: FALSE 1575s [00:52:55.318] Local evaluation: TRUE 1575s [00:52:55.318] Environment: R_GlobalEnv 1575s [00:52:55.318] Capture standard output: TRUE 1575s [00:52:55.318] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1575s [00:52:55.318] Globals: 5 objects totaling 4.95 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1575s [00:52:55.318] Packages: 1575s [00:52:55.318] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1575s [00:52:55.318] Resolved: TRUE 1575s [00:52:55.318] Value: 2.02 KiB of class ‘list’ 1575s [00:52:55.318] Early signaling: FALSE 1575s [00:52:55.318] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1575s [00:52:55.318] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1575s [00:52:55.320] Chunk #1 of 1 ... DONE 1575s [00:52:55.320] Launching 1 futures (chunks) ... DONE 1575s [00:52:55.320] Resolving 1 futures (chunks) ... 1575s [00:52:55.321] resolve() on list ... 1575s [00:52:55.321] recursive: 0 1575s [00:52:55.321] length: 1 1575s [00:52:55.321] 1575s [00:52:55.321] resolved() for ‘SequentialFuture’ ... 1575s [00:52:55.321] - state: ‘finished’ 1575s [00:52:55.321] - run: TRUE 1575s [00:52:55.321] - result: ‘FutureResult’ 1575s [00:52:55.322] resolved() for ‘SequentialFuture’ ... done 1575s [00:52:55.322] Future #1 1575s [00:52:55.322] signalConditionsASAP(SequentialFuture, pos=1) ... 1575s [00:52:55.322] - nx: 1 1575s [00:52:55.322] - relay: TRUE 1575s [00:52:55.322] - stdout: TRUE 1575s [00:52:55.322] - signal: TRUE 1575s [00:52:55.322] - resignal: FALSE 1575s [00:52:55.323] - force: TRUE 1575s [00:52:55.323] - relayed: [n=1] FALSE 1575s [00:52:55.323] - queued futures: [n=1] FALSE 1575s [00:52:55.323] - until=1 1575s [00:52:55.323] - relaying element #1 1575s [00:52:55.323] - relayed: [n=1] TRUE 1575s [00:52:55.323] - queued futures: [n=1] TRUE 1575s 2 1575s $ y0:List of 6 1575s ..$ a1: int 1 1575s ..$ a2: int 2 1575s ..$ b1: int 2 1575s ..$ b2: int 3 1575s ..$ c1:[00:52:55.323] signalConditionsASAP(SequentialFuture, pos=1) ... done 1575s [00:52:55.324] length: 0 (resolved future 1) 1575s [00:52:55.324] Relaying remaining futures 1575s [00:52:55.324] signalConditionsASAP(NULL, pos=0) ... 1575s [00:52:55.324] - nx: 1 1575s [00:52:55.324] - relay: TRUE 1575s [00:52:55.325] - stdout: TRUE 1575s [00:52:55.325] - signal: TRUE 1575s [00:52:55.325] - resignal: FALSE 1575s [00:52:55.325] - force: TRUE 1575s [00:52:55.325] - relayed: [n=1] TRUE 1575s [00:52:55.325] - queued futures: [n=1] TRUE 1575s - flush all 1575s [00:52:55.325] - relayed: [n=1] TRUE 1575s [00:52:55.326] - queued futures: [n=1] TRUE 1575s [00:52:55.326] signalConditionsASAP(NULL, pos=0) ... done 1575s [00:52:55.326] resolve() on list ... DONE 1575s [00:52:55.326] - Number of value chunks collected: 1 1575s [00:52:55.326] Resolving 1 futures (chunks) ... DONE 1575s [00:52:55.326] Reducing values from 1 chunks ... 1575s [00:52:55.326] - Number of values collected after concatenation: 6 1575s [00:52:55.326] - Number of values expected: 6 1575s [00:52:55.327] Reducing values from 1 chunks ... DONE 1575s [00:52:55.327] future_lapply() ... DONE 1575s [00:52:55.334] future_lapply() ... 1575s [00:52:55.339] Number of chunks: 1 1575s [00:52:55.339] getGlobalsAndPackagesXApply() ... 1575s [00:52:55.339] - future.globals: TRUE 1575s [00:52:55.339] getGlobalsAndPackages() ... 1575s [00:52:55.339] Searching for globals... 1575s [00:52:55.341] - globals found: [1] ‘FUN’ 1575s [00:52:55.341] Searching for globals ... DONE 1575s [00:52:55.342] Resolving globals: FALSE 1575s [00:52:55.342] The total size of the 1 globals is 848 bytes (848 bytes) 1575s [00:52:55.342] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1575s [00:52:55.343] - globals: [1] ‘FUN’ 1575s [00:52:55.343] 1575s [00:52:55.343] getGlobalsAndPackages() ... DONE 1575s [00:52:55.343] - globals found/used: [n=1] ‘FUN’ 1575s [00:52:55.343] - needed namespaces: [n=0] 1575s [00:52:55.344] Finding globals ... DONE 1575s [00:52:55.344] - use_args: TRUE 1575s [00:52:55.344] - Getting '...' globals ... 1575s [00:52:55.344] resolve() on list ... 1575s [00:52:55.345] recursive: 0 1575s [00:52:55.345] length: 1 1575s [00:52:55.345] elements: ‘...’ 1575s [00:52:55.345] length: 0 (resolved future 1) 1575s [00:52:55.345] resolve() on list ... DONE 1575s [00:52:55.345] - '...' content: [n=0] 1575s [00:52:55.346] List of 1 1575s [00:52:55.346] $ ...: list() 1575s [00:52:55.346] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:55.346] - attr(*, "where")=List of 1 1575s [00:52:55.346] ..$ ...: 1575s [00:52:55.346] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:55.346] - attr(*, "resolved")= logi TRUE 1575s [00:52:55.346] - attr(*, "total_size")= num NA 1575s [00:52:55.349] - Getting '...' globals ... DONE 1575s [00:52:55.349] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1575s [00:52:55.349] List of 2 1575s [00:52:55.349] $ ...future.FUN:function (x) 1575s [00:52:55.349] $ ... : list() 1575s [00:52:55.349] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:55.349] - attr(*, "where")=List of 2 1575s [00:52:55.349] ..$ ...future.FUN: 1575s [00:52:55.349] ..$ ... : 1575s [00:52:55.349] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:55.349] - attr(*, "resolved")= logi FALSE 1575s [00:52:55.349] - attr(*, "total_size")= num 848 1575s [00:52:55.353] Packages to be attached in all futures: [n=0] 1575s [00:52:55.353] getGlobalsAndPackagesXApply() ... DONE 1575s [00:52:55.353] Number of futures (= number of chunks): 1 1575s [00:52:55.353] Launching 1 futures (chunks) ... 1575s [00:52:55.353] Chunk #1 of 1 ... 1575s [00:52:55.354] - Finding globals in 'X' for chunk #1 ... 1575s [00:52:55.354] getGlobalsAndPackages() ... 1575s [00:52:55.354] Searching for globals... 1575s [00:52:55.354] 1575s [00:52:55.354] Searching for globals ... DONE 1575s [00:52:55.354] - globals: [0] 1575s [00:52:55.355] getGlobalsAndPackages() ... DONE 1575s [00:52:55.355] + additional globals found: [n=0] 1575s [00:52:55.355] + additional namespaces needed: [n=0] 1575s [00:52:55.355] - Finding globals in 'X' for chunk #1 int 3 1575s ..$ c2:... DONE 1575s [00:52:55.355] - seeds: 1575s [00:52:55.355] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:55.355] getGlobalsAndPackages() ... 1575s [00:52:55.355] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:55.356] Resolving globals: FALSE 1575s [00:52:55.356] Tweak future expression to call with '...' arguments ... 1575s [00:52:55.356] { 1575s [00:52:55.356] do.call(function(...) { 1575s [00:52:55.356] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:55.356] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1575s [00:52:55.356] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:55.356] on.exit(options(oopts), add = TRUE) 1575s [00:52:55.356] } 1575s [00:52:55.356] { 1575s [00:52:55.356] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1575s [00:52:55.356] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:55.356] ...future.FUN(...future.X_jj, ...) 1575s [00:52:55.356] }) 1575s [00:52:55.356] } 1575s [00:52:55.356] }, args = future.call.arguments) 1575s [00:52:55.356] } 1575s [00:52:55.356] Tweak future expression to call with '...' arguments ... DONE 1575s [00:52:55.357] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:55.357] 1575s [00:52:55.357] getGlobalsAndPackages() ... DONE 1575s [00:52:55.358] run() for ‘Future’ ... 1575s [00:52:55.358] - state: ‘created’ 1575s [00:52:55.358] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1575s [00:52:55.362] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1575s [00:52:55.362] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1575s [00:52:55.362] - Field: ‘label’ 1575s [00:52:55.362] - Field: ‘local’ 1575s [00:52:55.362] - Field: ‘owner’ 1575s [00:52:55.363] - Field: ‘envir’ 1575s [00:52:55.363] - Field: ‘packages’ 1575s [00:52:55.363] - Field: ‘gc’ 1575s [00:52:55.363] - Field: ‘conditions’ 1575s [00:52:55.363] - Field: ‘expr’ 1575s [00:52:55.363] - Field: ‘uuid’ 1575s [00:52:55.363] - Field: ‘seed’ 1575s [00:52:55.364] - Field: ‘version’ 1575s [00:52:55.364] - Field: ‘result’ 1575s [00:52:55.364] - Field: ‘asynchronous’ 1575s [00:52:55.364] - Field: ‘calls’ 1575s [00:52:55.364] - Field: ‘globals’ 1575s [00:52:55.364] - Field: ‘stdout’ 1575s [00:52:55.365] - Field: ‘earlySignal’ 1575s [00:52:55.365] - Field: ‘lazy’ 1575s [00:52:55.365] - Field: ‘state’ 1575s [00:52:55.365] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1575s [00:52:55.365] - Launch lazy future ... 1575s [00:52:55.365] Packages needed by the future expression (n = 0): 1575s [00:52:55.366] Packages needed by future strategies (n = 0): 1575s [00:52:55.366] { 1575s [00:52:55.366] { 1575s [00:52:55.366] { 1575s [00:52:55.366] ...future.startTime <- base::Sys.time() 1575s [00:52:55.366] { 1575s [00:52:55.366] { 1575s [00:52:55.366] { 1575s [00:52:55.366] base::local({ 1575s [00:52:55.366] has_future <- base::requireNamespace("future", 1575s [00:52:55.366] quietly = TRUE) 1575s [00:52:55.366] if (has_future) { 1575s [00:52:55.366] ns <- base::getNamespace("future") 1575s [00:52:55.366] version <- ns[[".package"]][["version"]] 1575s [00:52:55.366] if (is.null(version)) 1575s [00:52:55.366] version <- utils::packageVersion("future") 1575s [00:52:55.366] } 1575s [00:52:55.366] else { 1575s [00:52:55.366] version <- NULL 1575s [00:52:55.366] } 1575s [00:52:55.366] if (!has_future || version < "1.8.0") { 1575s [00:52:55.366] info <- base::c(r_version = base::gsub("R version ", 1575s [00:52:55.366] "", base::R.version$version.string), 1575s [00:52:55.366] platform = base::sprintf("%s (%s-bit)", 1575s [00:52:55.366] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1575s [00:52:55.366] os = base::paste(base::Sys.info()[base::c("sysname", 1575s [00:52:55.366] "release", "version")], collapse = " "), 1575s [00:52:55.366] hostname = base::Sys.info()[["nodename"]]) 1575s [00:52:55.366] info <- base::sprintf("%s: %s", base::names(info), 1575s [00:52:55.366] info) 1575s [00:52:55.366] info <- base::paste(info, collapse = "; ") 1575s [00:52:55.366] if (!has_future) { 1575s [00:52:55.366] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1575s [00:52:55.366] info) 1575s [00:52:55.366] } 1575s [00:52:55.366] else { 1575s [00:52:55.366] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1575s [00:52:55.366] info, version) 1575s [00:52:55.366] } 1575s [00:52:55.366] base::stop(msg) 1575s [00:52:55.366] } 1575s [00:52:55.366] }) 1575s [00:52:55.366] } 1575s [00:52:55.366] options(future.plan = NULL) 1575s [00:52:55.366] Sys.unsetenv("R_FUTURE_PLAN") 1575s [00:52:55.366] future::plan("default", .cleanup = FALSE, .init = FALSE) 1575s [00:52:55.366] } 1575s [00:52:55.366] ...future.workdir <- getwd() 1575s [00:52:55.366] } 1575s [00:52:55.366] ...future.oldOptions <- base::as.list(base::.Options) 1575s [00:52:55.366] ...future.oldEnvVars <- base::Sys.getenv() 1575s [00:52:55.366] } 1575s [00:52:55.366] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1575s [00:52:55.366] future.globals.maxSize = NULL, future.globals.method = NULL, 1575s [00:52:55.366] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1575s [00:52:55.366] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1575s [00:52:55.366] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1575s [00:52:55.366] future.stdout.windows.reencode = NULL, width = 80L) 1575s [00:52:55.366] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1575s [00:52:55.366] base::names(...future.oldOptions)) 1575s [00:52:55.366] } 1575s [00:52:55.366] if (FALSE) { 1575s [00:52:55.366] } 1575s [00:52:55.366] else { 1575s [00:52:55.366] if (TRUE) { 1575s [00:52:55.366] ...future.stdout <- base::rawConnection(base::raw(0L), 1575s [00:52:55.366] open = "w") 1575s [00:52:55.366] } 1575s [00:52:55.366] else { 1575s [00:52:55.366] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1575s [00:52:55.366] windows = "NUL", "/dev/null"), open = "w") 1575s [00:52:55.366] } 1575s [00:52:55.366] base::sink(...future.stdout, type = "output", split = FALSE) 1575s [00:52:55.366] base::on.exit(if (!base::is.null(...future.stdout)) { 1575s [00:52:55.366] base::sink(type = "output", split = FALSE) 1575s [00:52:55.366] base::close(...future.stdout) 1575s [00:52:55.366] }, add = TRUE) 1575s [00:52:55.366] } 1575s [00:52:55.366] ...future.frame <- base::sys.nframe() 1575s [00:52:55.366] ...future.conditions <- base::list() 1575s [00:52:55.366] ...future.rng <- base::globalenv()$.Random.seed 1575s [00:52:55.366] if (FALSE) { 1575s [00:52:55.366] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1575s [00:52:55.366] "...future.value", "...future.globalenv.names", ".Random.seed") 1575s [00:52:55.366] } 1575s [00:52:55.366] ...future.result <- base::tryCatch({ 1575s [00:52:55.366] base::withCallingHandlers({ 1575s [00:52:55.366] ...future.value <- base::withVisible(base::local({ 1575s [00:52:55.366] do.call(function(...) { 1575s [00:52:55.366] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:55.366] if (!identical(...future.globals.maxSize.org, 1575s [00:52:55.366] ...future.globals.maxSize)) { 1575s [00:52:55.366] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:55.366] on.exit(options(oopts), add = TRUE) 1575s [00:52:55.366] } 1575s [00:52:55.366] { 1575s [00:52:55.366] lapply(seq_along(...future.elements_ii), 1575s [00:52:55.366] FUN = function(jj) { 1575s [00:52:55.366] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:55.366] ...future.FUN(...future.X_jj, ...) 1575s [00:52:55.366] }) 1575s [00:52:55.366] } 1575s [00:52:55.366] }, args = future.call.arguments) 1575s [00:52:55.366] })) 1575s [00:52:55.366] future::FutureResult(value = ...future.value$value, 1575s [00:52:55.366] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1575s [00:52:55.366] ...future.rng), globalenv = if (FALSE) 1575s [00:52:55.366] list(added = base::setdiff(base::names(base::.GlobalEnv), 1575s [00:52:55.366] ...future.globalenv.names)) 1575s [00:52:55.366] else NULL, started = ...future.startTime, version = "1.8") 1575s [00:52:55.366] }, condition = base::local({ 1575s [00:52:55.366] c <- base::c 1575s [00:52:55.366] inherits <- base::inherits 1575s [00:52:55.366] invokeRestart <- base::invokeRestart 1575s [00:52:55.366] length <- base::length 1575s [00:52:55.366] list <- base::list 1575s [00:52:55.366] seq.int <- base::seq.int 1575s [00:52:55.366] signalCondition <- base::signalCondition 1575s [00:52:55.366] sys.calls <- base::sys.calls 1575s [00:52:55.366] `[[` <- base::`[[` 1575s [00:52:55.366] `+` <- base::`+` 1575s [00:52:55.366] `<<-` <- base::`<<-` 1575s [00:52:55.366] sysCalls <- function(calls = sys.calls(), from = 1L) { 1575s [00:52:55.366] calls[seq.int(from = from + 12L, to = length(calls) - 1575s [00:52:55.366] 3L)] 1575s [00:52:55.366] } 1575s [00:52:55.366] function(cond) { 1575s [00:52:55.366] is_error <- inherits(cond, "error") 1575s [00:52:55.366] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1575s [00:52:55.366] NULL) 1575s [00:52:55.366] if (is_error) { 1575s [00:52:55.366] sessionInformation <- function() { 1575s [00:52:55.366] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1575s [00:52:55.366] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1575s [00:52:55.366] search = base::search(), system = base::Sys.info()) 1575s [00:52:55.366] } 1575s [00:52:55.366] ...future.conditions[[length(...future.conditions) + 1575s [00:52:55.366] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1575s [00:52:55.366] cond$call), session = sessionInformation(), 1575s [00:52:55.366] timestamp = base::Sys.time(), signaled = 0L) 1575s [00:52:55.366] signalCondition(cond) 1575s [00:52:55.366] } 1575s [00:52:55.366] else if (!ignore && TRUE && inherits(cond, c("condition", 1575s [00:52:55.366] "immediateCondition"))) { 1575s [00:52:55.366] signal <- TRUE && inherits(cond, "immediateCondition") 1575s [00:52:55.366] ...future.conditions[[length(...future.conditions) + 1575s [00:52:55.366] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1575s [00:52:55.366] int if (TRUE && !signal) { 1575s [00:52:55.366] muffleCondition <- function (cond, pattern = "^muffle") 1575s [00:52:55.366] { 1575s [00:52:55.366] inherits <- base::inherits 1575s [00:52:55.366] invokeRestart <- base::invokeRestart 1575s [00:52:55.366] is.null <- base::is.null 1575s [00:52:55.366] muffled <- FALSE 1575s [00:52:55.366] if (inherits(cond, "message")) { 1575s [00:52:55.366] muffled <- grepl(pattern, "muffleMessage") 1575s [00:52:55.366] if (muffled) 1575s [00:52:55.366] invokeRestart("muffleMessage") 1575s [00:52:55.366] } 1575s [00:52:55.366] else if (inherits(cond, "warning")) { 1575s [00:52:55.366] muffled <- grepl(pattern, "muffleWarning") 1575s [00:52:55.366] if (muffled) 1575s [00:52:55.366] invokeRestart("muffleWarning") 1575s [00:52:55.366] } 1575s [00:52:55.366] else if (inherits(cond, "condition")) { 1575s [00:52:55.366] if (!is.null(pattern)) { 1575s [00:52:55.366] computeRestarts <- base::computeRestarts 1575s [00:52:55.366] grepl <- base::grepl 1575s [00:52:55.366] restarts <- computeRestarts(cond) 1575s [00:52:55.366] for (restart in restarts) { 1575s [00:52:55.366] name <- restart$name 1575s [00:52:55.366] if (is.null(name)) 1575s [00:52:55.366] next 1575s [00:52:55.366] if (!grepl(pattern, name)) 1575s [00:52:55.366] next 1575s [00:52:55.366] invokeRestart(restart) 1575s [00:52:55.366] muffled <- TRUE 1575s [00:52:55.366] break 1575s [00:52:55.366] } 1575s [00:52:55.366] } 1575s [00:52:55.366] } 1575s [00:52:55.366] invisible(muffled) 1575s [00:52:55.366] } 1575s [00:52:55.366] muffleCondition(cond, pattern = "^muffle") 1575s [00:52:55.366] } 1575s [00:52:55.366] } 1575s [00:52:55.366] else { 1575s [00:52:55.366] if (TRUE) { 1575s [00:52:55.366] muffleCondition <- function (cond, pattern = "^muffle") 1575s [00:52:55.366] { 1575s [00:52:55.366] inherits <- base::inherits 1575s [00:52:55.366] invokeRestart <- base::invokeRestart 1575s [00:52:55.366] is.null <- base::is.null 1575s [00:52:55.366] muffled <- FALSE 1575s [00:52:55.366] if (inherits(cond, "message")) { 1575s [00:52:55.366] muffled <- grepl(pattern, "muffleMessage") 1575s [00:52:55.366] if (muffled) 1575s [00:52:55.366] invokeRestart("muffleMessage") 1575s [00:52:55.366] } 1575s [00:52:55.366] else if (inherits(cond, "warning")) { 1575s [00:52:55.366] muffled <- grepl(pattern, "muffleWarning") 1575s [00:52:55.366] if (muffled) 1575s [00:52:55.366] invokeRestart("muffleWarning") 1575s [00:52:55.366] } 1575s [00:52:55.366] else if (inherits(cond, "condition")) { 1575s [00:52:55.366] if (!is.null(pattern)) { 1575s [00:52:55.366] computeRestarts <- base::computeRestarts 1575s [00:52:55.366] grepl <- base::grepl 1575s [00:52:55.366] restarts <- computeRestarts(cond) 1575s [00:52:55.366] for (restart in restarts) { 1575s [00:52:55.366] name <- restart$name 1575s [00:52:55.366] if (is.null(name)) 1575s [00:52:55.366] next 1575s [00:52:55.366] if (!grepl(pattern, name)) 1575s [00:52:55.366] next 1575s [00:52:55.366] invokeRestart(restart) 1575s [00:52:55.366] muffled <- TRUE 1575s [00:52:55.366] break 1575s [00:52:55.366] } 1575s [00:52:55.366] } 1575s [00:52:55.366] } 1575s [00:52:55.366] invisible(muffled) 1575s [00:52:55.366] } 1575s [00:52:55.366] muffleCondition(cond, pattern = "^muffle") 1575s [00:52:55.366] } 1575s [00:52:55.366] } 1575s [00:52:55.366] } 1575s [00:52:55.366] })) 1575s [00:52:55.366] }, error = function(ex) { 1575s [00:52:55.366] base::structure(base::list(value = NULL, visible = NULL, 1575s [00:52:55.366] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1575s [00:52:55.366] ...future.rng), started = ...future.startTime, 1575s [00:52:55.366] finished = Sys.time(), session_uuid = NA_character_, 1575s [00:52:55.366] version = "1.8"), class = "FutureResult") 1575s [00:52:55.366] }, finally = { 1575s [00:52:55.366] if (!identical(...future.workdir, getwd())) 1575s [00:52:55.366] setwd(...future.workdir) 1575s [00:52:55.366] { 1575s [00:52:55.366] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1575s [00:52:55.366] ...future.oldOptions$nwarnings <- NULL 1575s [00:52:55.366] } 1575s [00:52:55.366] base::options(...future.oldOptions) 1575s [00:52:55.366] if (.Platform$OS.type == "windows") { 1575s [00:52:55.366] old_names <- names(...future.oldEnvVars) 1575s [00:52:55.366] envs <- base::Sys.getenv() 1575s [00:52:55.366] names <- names(envs) 1575s [00:52:55.366] common <- intersect(names, old_names) 1575s [00:52:55.366] added <- setdiff(names, old_names) 1575s [00:52:55.366] removed <- setdiff(old_names, names) 1575s [00:52:55.366] changed <- common[...future.oldEnvVars[common] != 1575s [00:52:55.366] envs[common]] 1575s [00:52:55.366] NAMES <- toupper(changed) 1575s [00:52:55.366] args <- list() 1575s [00:52:55.366] for (kk in seq_along(NAMES)) { 1575s [00:52:55.366] name <- changed[[kk]] 1575s [00:52:55.366] NAME <- NAMES[[kk]] 1575s [00:52:55.366] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:55.366] next 1575s [00:52:55.366] args[[name]] <- ...future.oldEnvVars[[name]] 1575s [00:52:55.366] } 1575s [00:52:55.366] NAMES <- toupper(added) 1575s [00:52:55.366] for (kk in seq_along(NAMES)) { 1575s [00:52:55.366] name <- added[[kk]] 1575s [00:52:55.366] NAME <- NAMES[[kk]] 1575s [00:52:55.366] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:55.366] next 1575s [00:52:55.366] args[[name]] <- "" 1575s [00:52:55.366] } 1575s [00:52:55.366] NAMES <- toupper(removed) 1575s [00:52:55.366] for (kk in seq_along(NAMES)) { 1575s [00:52:55.366] name <- removed[[kk]] 1575s [00:52:55.366] NAME <- NAMES[[kk]] 1575s [00:52:55.366] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:55.366] next 1575s [00:52:55.366] args[[name]] <- ...future.oldEnvVars[[name]] 1575s [00:52:55.366] } 1575s [00:52:55.366] if (length(args) > 0) 1575s [00:52:55.366] base::do.call(base::Sys.setenv, args = args) 1575s [00:52:55.366] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1575s [00:52:55.366] } 1575s [00:52:55.366] else { 1575s [00:52:55.366] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1575s [00:52:55.366] } 1575s [00:52:55.366] { 1575s [00:52:55.366] if (base::length(...future.futureOptionsAdded) > 1575s [00:52:55.366] 0L) { 1575s [00:52:55.366] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1575s [00:52:55.366] base::names(opts) <- ...future.futureOptionsAdded 1575s [00:52:55.366] base::options(opts) 1575s [00:52:55.366] } 1575s [00:52:55.366] { 1575s [00:52:55.366] { 1575s [00:52:55.366] NULL 1575s [00:52:55.366] RNGkind("Mersenne-Twister") 1575s [00:52:55.366] base::rm(list = ".Random.seed", envir = base::globalenv(), 1575s [00:52:55.366] inherits = FALSE) 1575s [00:52:55.366] } 1575s [00:52:55.366] options(future.plan = NULL) 1575s [00:52:55.366] if (is.na(NA_character_)) 1575s [00:52:55.366] Sys.unsetenv("R_FUTURE_PLAN") 1575s [00:52:55.366] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1575s [00:52:55.366] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1575s [00:52:55.366] envir = parent.frame()) 1575s [00:52:55.366] { 1575s [00:52:55.366] default_workers <- missing(workers) 1575s [00:52:55.366] if (is.function(workers)) 1575s [00:52:55.366] workers <- workers() 1575s [00:52:55.366] workers <- structure(as.integer(workers), 1575s [00:52:55.366] class = class(workers)) 1575s [00:52:55.366] stop_if_not(is.finite(workers), workers >= 1575s [00:52:55.366] 1L) 1575s [00:52:55.366] if ((workers == 1L && !inherits(workers, 1575s [00:52:55.366] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1575s [00:52:55.366] if (default_workers) 1575s [00:52:55.366] supportsMulticore(warn = TRUE) 1575s [00:52:55.366] return(sequential(..., envir = envir)) 1575s [00:52:55.366] } 1575s [00:52:55.366] oopts <- options(mc.cores = workers) 1575s [00:52:55.366] on.exit(options(oopts)) 1575s [00:52:55.366] future <- MulticoreFuture(..., workers = workers, 1575s [00:52:55.366] envir = envir) 1575s [00:52:55.366] if (!future$lazy) 1575s [00:52:55.366] future <- run(future) 1575s [00:52:55.366] invisible(future) 1575s [00:52:55.366] }), .cleanup = FALSE, .init = FALSE) 1575s [00:52:55.366] } 1575s [00:52:55.366] } 1575s [00:52:55.366] } 1575s [00:52:55.366] }) 1575s [00:52:55.366] if (TRUE) { 1575s [00:52:55.366] base::sink(type = "output", split = FALSE) 1575s [00:52:55.366] if (TRUE) { 1575s [00:52:55.366] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1575s [00:52:55.366] } 1575s [00:52:55.366] else { 1575s [00:52:55.366] ...future.result["stdout"] <- base::list(NULL) 1575s [00:52:55.366] } 1575s [00:52:55.366] base::close(...future.stdout) 1575s [00:52:55.366] ...future.stdout <- NULL 1575s [00:52:55.366] } 1575s [00:52:55.366] ...future.result$conditions <- ...future.conditions 1575s [00:52:55.366] ...future.result$finished <- base::Sys.time() 1575s [00:52:55.366] ...future.result 1575s [00:52:55.366] } 1575s [00:52:55.370] assign_globals() ... 1575s [00:52:55.370] List of 5 1575s [00:52:55.370] $ ...future.FUN :function (x) 1575s [00:52:55.370] $ future.call.arguments : list() 1575s [00:52:55.370] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:55.370] $ ...future.elements_ii :List of 6 1575s [00:52:55.370] ..$ a1: int 1 1575s [00:52:55.370] ..$ a2: int 2 1575s [00:52:55.370] ..$ b1: int 2 1575s [00:52:55.370] ..$ b2: int 3 1575s [00:52:55.370] ..$ c1: int 3 1575s [00:52:55.370] ..$ c2: int 4 1575s [00:52:55.370] $ ...future.seeds_ii : NULL 1575s [00:52:55.370] $ ...future.globals.maxSize: NULL 1575s [00:52:55.370] - attr(*, "where")=List of 5 1575s [00:52:55.370] ..$ ...future.FUN : 1575s [00:52:55.370] ..$ future.call.arguments : 1575s [00:52:55.370] ..$ ...future.elements_ii : 1575s [00:52:55.370] ..$ ...future.seeds_ii : 1575s [00:52:55.370] ..$ ...future.globals.maxSize: 1575s [00:52:55.370] - attr(*, "resolved")= logi FALSE 1575s [00:52:55.370] - attr(*, "total_size")= num 848 1575s [00:52:55.370] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:55.370] - attr(*, "already-done")= logi TRUE 1575s [00:52:55.379] - copied ‘...future.FUN’ to environment 1575s [00:52:55.379] - copied ‘future.call.arguments’ to environment 1575s [00:52:55.380] - copied ‘...future.elements_ii’ to environment 1575s [00:52:55.380] - copied ‘...future.seeds_ii’ to environment 1575s [00:52:55.380] - copied ‘...future.globals.maxSize’ to environment 1575s [00:52:55.381] assign_globals() ... done 1575s [00:52:55.381] plan(): Setting new future strategy stack: 1575s [00:52:55.381] List of future strategies: 1575s [00:52:55.381] 1. sequential: 1575s [00:52:55.381] - args: function (..., envir = parent.frame()) 1575s [00:52:55.381] - tweaked: FALSE 1575s [00:52:55.381] - call: NULL 1575s [00:52:55.382] plan(): nbrOfWorkers() = 1 1575s [00:52:55.383] plan(): Setting new future strategy stack: 1575s [00:52:55.383] List of future strategies: 1575s [00:52:55.383] 1. multicore: 1575s [00:52:55.383] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1575s [00:52:55.383] - tweaked: FALSE 1575s [00:52:55.383] - call: plan(strategy) 1575s [00:52:55.387] plan(): nbrOfWorkers() = 1 1575s [00:52:55.387] SequentialFuture started (and completed) 1575s [00:52:55.387] - Launch lazy future ... done 1575s [00:52:55.388] run() for ‘SequentialFuture’ ... done 1575s [00:52:55.388] Created future: 1575s [00:52:55.388] SequentialFuture: 1575s [00:52:55.388] Label: ‘future_sapply-1’ 1575s [00:52:55.388] Expression: 1575s [00:52:55.388] { 1575s [00:52:55.388] do.call(function(...) { 1575s [00:52:55.388] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:55.388] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1575s [00:52:55.388] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:55.388] on.exit(options(oopts), add = TRUE) 1575s [00:52:55.388] } 1575s [00:52:55.388] { 1575s [00:52:55.388] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1575s [00:52:55.388] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:55.388] ...future.FUN(...future.X_jj, ...) 1575s [00:52:55.388] }) 1575s [00:52:55.388] } 1575s [00:52:55.388] }, args = future.call.arguments) 1575s [00:52:55.388] } 1575s [00:52:55.388] Lazy evaluation: FALSE 1575s [00:52:55.388] Asynchronous evaluation: FALSE 1575s [00:52:55.388] Local evaluation: TRUE 1575s [00:52:55.388] Environment: R_GlobalEnv 1575s [00:52:55.388] Capture standard output: TRUE 1575s [00:52:55.388] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1575s [00:52:55.388] Globals: 5 objects totaling 1.16 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1575s [00:52:55.388] Packages: 1575s [00:52:55.388] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1575s [00:52:55.388] Resolved: TRUE 1575s [00:52:55.388] Value: 336 bytes of class ‘list’ 1575s [00:52:55.388] Early signaling: FALSE 1575s [00:52:55.388] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1575s [00:52:55.388] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1575s [00:52:55.390] Chunk #1 of 1 ... DONE 1575s [00:52:55.391] Launching 1 futures (chunks) ... DONE 1575s [00:52:55.391] Resolving 1 futures (chunks) ... 1575s [00:52:55.391] resolve() on list ... 1575s [00:52:55.391] recursive: 0 1575s [00:52:55.391] length: 1 1575s [00:52:55.392] 1575s [00:52:55.392] resolved() for ‘SequentialFuture’ ... 1575s [00:52:55.393] - state: ‘finished’ 1575s [00:52:55.393] - run: TRUE 1575s [00:52:55.393] - result: ‘FutureResult’ 1575s [00:52:55.393] resolved() for ‘SequentialFuture’ ... done 1575s [00:52:55.394] Future #1 1575s [00:52:55.394] signalConditions4 1575s $ y1:List of 6 1575s ..$ a1: int 1 1575s ..$ a2:ASAP(SequentialFuture, pos=1) ... 1575s [00:52:55.394] - nx: 1 1575s [00:52:55.395] - relay: TRUE 1575s [00:52:55.395] - stdout: TRUE 1575s [00:52:55.395] - signal: TRUE 1575s [00:52:55.396] - resignal: FALSE 1575s [00:52:55.396] - force: TRUE 1575s [00:52:55.396] - relayed: [n=1] FALSE 1575s [00:52:55.396] - queued futures: [n=1] FALSE 1575s [00:52:55.396] - until=1 1575s [00:52:55.397] - relaying element #1 1575s [00:52:55.397] - relayed: [n=1] TRUE 1575s [00:52:55.397] - queued futures: [n=1] TRUE 1575s [00:52:55.397] signalConditionsASAP(SequentialFuture, pos=1) ... done 1575s [00:52:55.398] length: 0 (resolved future 1) 1575s [00:52:55.398] Relaying remaining futures 1575s [00:52:55.398] signalConditionsASAP(NULL, pos=0) ... 1575s [00:52:55.398] - nx: 1 1575s [00:52:55.398] - relay: TRUE 1575s [00:52:55.399] - stdout: TRUE 1575s [00:52:55.399] - signal: TRUE 1575s [00:52:55.399] - resignal: FALSE 1575s [00:52:55.399] - force: TRUE 1575s [00:52:55.399] - relayed: [n=1] TRUE 1575s [00:52:55.400] - queued futures: [n=1] TRUE 1575s - flush all 1575s [00:52:55.400] - relayed: [n=1] TRUE 1575s [00:52:55.400] - queued futures: [n=1] TRUE 1575s [00:52:55.400] signalConditionsASAP(NULL, pos=0) ... done 1575s [00:52:55.400] resolve() on list ... DONE 1575s [00:52:55.401] - Number of value chunks collected: 1 1575s [00:52:55.401] Resolving 1 futures (chunks) ... DONE 1575s [00:52:55.401] Reducing values from 1 chunks ... 1575s [00:52:55.401] - Number of values collected after concatenation: 6 1575s [00:52:55.401] - Number of values expected: 6 1575s [00:52:55.401] Reducing values from 1 chunks ... DONE 1575s [00:52:55.402] future_lapply() ... DONE 1575s int 2 1575s ..$ b1: int 2 1575s ..$ b2: int 3 1575s ..$ c1: int 3 1575s ..$ c2: int 4 1575s List of 2 1575s $ y0:List of 6 1575s ..$ a1: int 1 1575s ..$ a2: int 2 1575s ..$ b1: int 2 1575s ..$ b2: int 3 1575s ..$ c1: int 3 1575s ..$ c2: int 4 1575s $ y2:List of 6 1575s ..$ a1: int 1 1575s ..$ a2: int 2 1575s ..$ b1:[00:52:55.425] future_lapply() ... 1575s int 2 1575s ..$ b2: int 3 1575s ..$ c1: int 3 1575s ..$ c2: int 4 1575s [00:52:55.430] Number of chunks: 1 1575s [00:52:55.430] getGlobalsAndPackagesXApply() ... 1575s [00:52:55.430] - future.globals: TRUE 1575s [00:52:55.430] getGlobalsAndPackages() ... 1575s [00:52:55.431] Searching for globals... 1575s [00:52:55.433] - globals found: [2] ‘FUN’, ‘UseMethod’ 1575s [00:52:55.433] Searching for globals ... DONE 1575s [00:52:55.433] Resolving globals: FALSE 1575s [00:52:55.434] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1575s [00:52:55.435] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1575s [00:52:55.435] - globals: [1] ‘FUN’ 1575s [00:52:55.435] 1575s [00:52:55.435] getGlobalsAndPackages() ... DONE 1575s [00:52:55.436] - globals found/used: [n=1] ‘FUN’ 1575s [00:52:55.436] - needed namespaces: [n=0] 1575s [00:52:55.436] Finding globals ... DONE 1575s [00:52:55.436] - use_args: TRUE 1575s [00:52:55.437] - Getting '...' globals ... 1575s [00:52:55.437] resolve() on list ... 1575s [00:52:55.437] recursive: 0 1575s [00:52:55.438] length: 1 1575s [00:52:55.438] elements: ‘...’ 1575s [00:52:55.438] length: 0 (resolved future 1) 1575s [00:52:55.438] resolve() on list ... DONE 1575s [00:52:55.438] - '...' content: [n=0] 1575s [00:52:55.438] List of 1 1575s [00:52:55.438] $ ...: list() 1575s [00:52:55.438] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:55.438] - attr(*, "where")=List of 1 1575s [00:52:55.438] ..$ ...: 1575s [00:52:55.438] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:55.438] - attr(*, "resolved")= logi TRUE 1575s [00:52:55.438] - attr(*, "total_size")= num NA 1575s [00:52:55.442] - Getting '...' globals ... DONE 1575s [00:52:55.443] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1575s [00:52:55.443] List of 2 1575s [00:52:55.443] $ ...future.FUN:function (x, ...) 1575s [00:52:55.443] $ ... : list() 1575s [00:52:55.443] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:55.443] - attr(*, "where")=List of 2 1575s [00:52:55.443] ..$ ...future.FUN: 1575s [00:52:55.443] ..$ ... : 1575s [00:52:55.443] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:55.443] - attr(*, "resolved")= logi FALSE 1575s [00:52:55.443] - attr(*, "total_size")= num 1248 1575s [00:52:55.449] Packages to be attached in all futures: [n=0] 1575s [00:52:55.449] getGlobalsAndPackagesXApply() ... DONE 1575s [00:52:55.450] Number of futures (= number of chunks): 1 1575s [00:52:55.450] Launching 1 futures (chunks) ... 1575s [00:52:55.450] Chunk #1 of 1 ... 1575s [00:52:55.451] - Finding globals in 'X' for chunk #1 ... 1575s [00:52:55.451] getGlobalsAndPackages() ... 1575s [00:52:55.451] Searching for globals... 1575s [00:52:55.452] 1575s [00:52:55.452] Searching for globals ... DONE 1575s [00:52:55.452] - globals: [0] 1575s [00:52:55.452] getGlobalsAndPackages() ... DONE 1575s [00:52:55.452] + additional globals found: [n=0] 1575s [00:52:55.452] + additional namespaces needed: [n=0] 1575s [00:52:55.452] - Finding globals in 'X' for chunk #1 ... DONE 1575s [00:52:55.453] - seeds: 1575s [00:52:55.453] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:55.453] getGlobalsAndPackages() ... 1575s [00:52:55.453] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:55.453] Resolving globals: FALSE 1575s [00:52:55.453] Tweak future expression to call with '...' arguments ... 1575s [00:52:55.454] { 1575s [00:52:55.454] do.call(function(...) { 1575s [00:52:55.454] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:55.454] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1575s [00:52:55.454] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:55.454] on.exit(options(oopts), add = TRUE) 1575s [00:52:55.454] } 1575s [00:52:55.454] { 1575s [00:52:55.454] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1575s [00:52:55.454] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:55.454] ...future.FUN(...future.X_jj, ...) 1575s [00:52:55.454] }) 1575s [00:52:55.454] } 1575s [00:52:55.454] }, args = future.call.arguments) 1575s [00:52:55.454] } 1575s [00:52:55.454] Tweak future expression to call with '...' arguments ... DONE 1575s [00:52:55.455] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:55.455] 1575s [00:52:55.455] getGlobalsAndPackages() ... DONE 1575s [00:52:55.456] run() for ‘Future’ ... 1575s [00:52:55.456] - state: ‘created’ 1575s [00:52:55.456] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1575s [00:52:55.462] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1575s [00:52:55.463] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1575s [00:52:55.463] - Field: ‘label’ 1575s [00:52:55.464] - Field: ‘local’ 1575s [00:52:55.464] - Field: ‘owner’ 1575s [00:52:55.464] - Field: ‘envir’ 1575s [00:52:55.464] - Field: ‘packages’ 1575s [00:52:55.465] - Field: ‘gc’ 1575s [00:52:55.465] - Field: ‘conditions’ 1575s [00:52:55.466] - Field: ‘expr’ 1575s [00:52:55.466] - Field: ‘uuid’ 1575s [00:52:55.466] - Field: ‘seed’ 1575s [00:52:55.466] - Field: ‘version’ 1575s [00:52:55.467] - Field: ‘result’ 1575s [00:52:55.467] - Field: ‘asynchronous’ 1575s [00:52:55.467] - Field: ‘calls’ 1575s [00:52:55.467] - Field: ‘globals’ 1575s [00:52:55.468] - Field: ‘stdout’ 1575s [00:52:55.468] - Field: ‘earlySignal’ 1575s [00:52:55.468] - Field: ‘lazy’ 1575s [00:52:55.469] - Field: ‘state’ 1575s [00:52:55.469] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1575s [00:52:55.469] - Launch lazy future ... 1575s [00:52:55.470] Packages needed by the future expression (n = 0): 1575s [00:52:55.470] Packages needed by future strategies (n = 0): 1575s [00:52:55.471] { 1575s [00:52:55.471] { 1575s [00:52:55.471] { 1575s [00:52:55.471] ...future.startTime <- base::Sys.time() 1575s [00:52:55.471] { 1575s [00:52:55.471] { 1575s [00:52:55.471] { 1575s [00:52:55.471] base::local({ 1575s [00:52:55.471] has_future <- base::requireNamespace("future", 1575s [00:52:55.471] quietly = TRUE) 1575s [00:52:55.471] if (has_future) { 1575s [00:52:55.471] ns <- base::getNamespace("future") 1575s [00:52:55.471] version <- ns[[".package"]][["version"]] 1575s [00:52:55.471] if (is.null(version)) 1575s [00:52:55.471] version <- utils::packageVersion("future") 1575s [00:52:55.471] } 1575s [00:52:55.471] else { 1575s [00:52:55.471] version <- NULL 1575s [00:52:55.471] } 1575s [00:52:55.471] if (!has_future || version < "1.8.0") { 1575s [00:52:55.471] info <- base::c(r_version = base::gsub("R version ", 1575s [00:52:55.471] "", base::R.version$version.string), 1575s [00:52:55.471] platform = base::sprintf("%s (%s-bit)", 1575s [00:52:55.471] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1575s [00:52:55.471] os = base::paste(base::Sys.info()[base::c("sysname", 1575s [00:52:55.471] "release", "version")], collapse = " "), 1575s [00:52:55.471] hostname = base::Sys.info()[["nodename"]]) 1575s [00:52:55.471] info <- base::sprintf("%s: %s", base::names(info), 1575s [00:52:55.471] info) 1575s [00:52:55.471] info <- base::paste(info, collapse = "; ") 1575s [00:52:55.471] if (!has_future) { 1575s [00:52:55.471] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1575s [00:52:55.471] info) 1575s [00:52:55.471] } 1575s [00:52:55.471] else { 1575s [00:52:55.471] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1575s [00:52:55.471] info, version) 1575s [00:52:55.471] } 1575s [00:52:55.471] base::stop(msg) 1575s [00:52:55.471] } 1575s [00:52:55.471] }) 1575s [00:52:55.471] } 1575s [00:52:55.471] options(future.plan = NULL) 1575s [00:52:55.471] Sys.unsetenv("R_FUTURE_PLAN") 1575s [00:52:55.471] future::plan("default", .cleanup = FALSE, .init = FALSE) 1575s [00:52:55.471] } 1575s [00:52:55.471] ...future.workdir <- getwd() 1575s [00:52:55.471] } 1575s [00:52:55.471] ...future.oldOptions <- base::as.list(base::.Options) 1575s [00:52:55.471] ...future.oldEnvVars <- base::Sys.getenv() 1575s [00:52:55.471] } 1575s [00:52:55.471] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1575s [00:52:55.471] future.globals.maxSize = NULL, future.globals.method = NULL, 1575s [00:52:55.471] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1575s [00:52:55.471] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1575s [00:52:55.471] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1575s [00:52:55.471] future.stdout.windows.reencode = NULL, width = 80L) 1575s [00:52:55.471] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1575s [00:52:55.471] base::names(...future.oldOptions)) 1575s [00:52:55.471] } 1575s [00:52:55.471] if (FALSE) { 1575s [00:52:55.471] } 1575s [00:52:55.471] else { 1575s [00:52:55.471] if (TRUE) { 1575s [00:52:55.471] ...future.stdout <- base::rawConnection(base::raw(0L), 1575s [00:52:55.471] open = "w") 1575s [00:52:55.471] } 1575s [00:52:55.471] else { 1575s [00:52:55.471] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1575s [00:52:55.471] windows = "NUL", "/dev/null"), open = "w") 1575s [00:52:55.471] } 1575s [00:52:55.471] base::sink(...future.stdout, type = "output", split = FALSE) 1575s [00:52:55.471] base::on.exit(if (!base::is.null(...future.stdout)) { 1575s [00:52:55.471] base::sink(type = "output", split = FALSE) 1575s [00:52:55.471] base::close(...future.stdout) 1575s [00:52:55.471] }, add = TRUE) 1575s [00:52:55.471] } 1575s [00:52:55.471] ...future.frame <- base::sys.nframe() 1575s [00:52:55.471] ...future.conditions <- base::list() 1575s [00:52:55.471] ...future.rng <- base::globalenv()$.Random.seed 1575s [00:52:55.471] if (FALSE) { 1575s [00:52:55.471] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1575s [00:52:55.471] "...future.value", "...future.globalenv.names", ".Random.seed") 1575s [00:52:55.471] } 1575s [00:52:55.471] ...future.result <- base::tryCatch({ 1575s [00:52:55.471] base::withCallingHandlers({ 1575s [00:52:55.471] ...future.value <- base::withVisible(base::local({ 1575s [00:52:55.471] do.call(function(...) { 1575s [00:52:55.471] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:55.471] if (!identical(...future.globals.maxSize.org, 1575s [00:52:55.471] ...future.globals.maxSize)) { 1575s [00:52:55.471] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:55.471] on.exit(options(oopts), add = TRUE) 1575s [00:52:55.471] } 1575s [00:52:55.471] { 1575s [00:52:55.471] lapply(seq_along(...future.elements_ii), 1575s [00:52:55.471] FUN = function(jj) { 1575s [00:52:55.471] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:55.471] ...future.FUN(...future.X_jj, ...) 1575s [00:52:55.471] }) 1575s [00:52:55.471] } 1575s [00:52:55.471] }, args = future.call.arguments) 1575s [00:52:55.471] })) 1575s [00:52:55.471] future::FutureResult(value = ...future.value$value, 1575s [00:52:55.471] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1575s [00:52:55.471] ...future.rng), globalenv = if (FALSE) 1575s [00:52:55.471] list(added = base::setdiff(base::names(base::.GlobalEnv), 1575s [00:52:55.471] ...future.globalenv.names)) 1575s [00:52:55.471] else NULL, started = ...future.startTime, version = "1.8") 1575s [00:52:55.471] }, condition = base::local({ 1575s [00:52:55.471] c <- base::c 1575s [00:52:55.471] inherits <- base::inherits 1575s [00:52:55.471] invokeRestart <- base::invokeRestart 1575s [00:52:55.471] length <- base::length 1575s [00:52:55.471] list <- base::list 1575s [00:52:55.471] seq.int <- base::seq.int 1575s [00:52:55.471] signalCondition <- base::signalCondition 1575s [00:52:55.471] sys.calls <- base::sys.calls 1575s [00:52:55.471] `[[` <- base::`[[` 1575s [00:52:55.471] `+` <- base::`+` 1575s [00:52:55.471] `<<-` <- base::`<<-` 1575s [00:52:55.471] sysCalls <- function(calls = sys.calls(), from = 1L) { 1575s [00:52:55.471] calls[seq.int(from = from + 12L, to = length(calls) - 1575s [00:52:55.471] 3L)] 1575s [00:52:55.471] } 1575s [00:52:55.471] function(cond) { 1575s [00:52:55.471] is_error <- inherits(cond, "error") 1575s [00:52:55.471] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1575s [00:52:55.471] NULL) 1575s [00:52:55.471] if (is_error) { 1575s [00:52:55.471] sessionInformation <- function() { 1575s [00:52:55.471] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1575s [00:52:55.471] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1575s [00:52:55.471] search = base::search(), system = base::Sys.info()) 1575s [00:52:55.471] } 1575s [00:52:55.471] ...future.conditions[[length(...future.conditions) + 1575s [00:52:55.471] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1575s [00:52:55.471] cond$call), session = sessionInformation(), 1575s [00:52:55.471] timestamp = base::Sys.time(), signaled = 0L) 1575s [00:52:55.471] signalCondition(cond) 1575s [00:52:55.471] } 1575s [00:52:55.471] else if (!ignore && TRUE && inherits(cond, c("condition", 1575s [00:52:55.471] "immediateCondition"))) { 1575s [00:52:55.471] signal <- TRUE && inherits(cond, "immediateCondition") 1575s [00:52:55.471] ...future.conditions[[length(...future.conditions) + 1575s [00:52:55.471] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1575s [00:52:55.471] if (TRUE && !signal) { 1575s [00:52:55.471] muffleCondition <- function (cond, pattern = "^muffle") 1575s [00:52:55.471] { 1575s [00:52:55.471] inherits <- base::inherits 1575s [00:52:55.471] invokeRestart <- base::invokeRestart 1575s [00:52:55.471] is.null <- base::is.null 1575s [00:52:55.471] muffled <- FALSE 1575s [00:52:55.471] if (inherits(cond, "message")) { 1575s [00:52:55.471] muffled <- grepl(pattern, "muffleMessage") 1575s [00:52:55.471] if (muffled) 1575s [00:52:55.471] invokeRestart("muffleMessage") 1575s [00:52:55.471] } 1575s [00:52:55.471] else if (inherits(cond, "warning")) { 1575s [00:52:55.471] muffled <- grepl(pattern, "muffleWarning") 1575s [00:52:55.471] if (muffled) 1575s [00:52:55.471] invokeRestart("muffleWarning") 1575s [00:52:55.471] } 1575s [00:52:55.471] else if (inherits(cond, "condition")) { 1575s [00:52:55.471] if (!is.null(pattern)) { 1575s [00:52:55.471] computeRestarts <- base::computeRestarts 1575s [00:52:55.471] grepl <- base::grepl 1575s [00:52:55.471] restarts <- computeRestarts(cond) 1575s [00:52:55.471] for (restart in restarts) { 1575s [00:52:55.471] name <- restart$name 1575s [00:52:55.471] if (is.null(name)) 1575s [00:52:55.471] next 1575s [00:52:55.471] if (!grepl(pattern, name)) 1575s [00:52:55.471] next 1575s [00:52:55.471] invokeRestart(restart) 1575s [00:52:55.471] muffled <- TRUE 1575s [00:52:55.471] break 1575s [00:52:55.471] } 1575s [00:52:55.471] } 1575s [00:52:55.471] } 1575s [00:52:55.471] invisible(muffled) 1575s [00:52:55.471] } 1575s [00:52:55.471] muffleCondition(cond, pattern = "^muffle") 1575s [00:52:55.471] } 1575s [00:52:55.471] } 1575s [00:52:55.471] else { 1575s [00:52:55.471] if (TRUE) { 1575s [00:52:55.471] muffleCondition <- function (cond, pattern = "^muffle") 1575s [00:52:55.471] { 1575s [00:52:55.471] inherits <- base::inherits 1575s [00:52:55.471] invokeRestart <- base::invokeRestart 1575s [00:52:55.471] is.null <- base::is.null 1575s [00:52:55.471] muffled <- FALSE 1575s [00:52:55.471] if (inherits(cond, "message")) { 1575s [00:52:55.471] muffled <- grepl(pattern, "muffleMessage") 1575s [00:52:55.471] if (muffled) 1575s [00:52:55.471] invokeRestart("muffleMessage") 1575s [00:52:55.471] } 1575s [00:52:55.471] else if (inherits(cond, "warning")) { 1575s [00:52:55.471] muffled <- grepl(pattern, "muffleWarning") 1575s [00:52:55.471] if (muffled) 1575s [00:52:55.471] invokeRestart("muffleWarning") 1575s [00:52:55.471] } 1575s [00:52:55.471] else if (inherits(cond, "condition")) { 1575s [00:52:55.471] if (!is.null(pattern)) { 1575s [00:52:55.471] computeRestarts <- base::computeRestarts 1575s [00:52:55.471] grepl <- base::grepl 1575s [00:52:55.471] restarts <- computeRestarts(cond) 1575s [00:52:55.471] for (restart in restarts) { 1575s [00:52:55.471] name <- restart$name 1575s [00:52:55.471] if (is.null(name)) 1575s [00:52:55.471] next 1575s [00:52:55.471] if (!grepl(pattern, name)) 1575s [00:52:55.471] next 1575s [00:52:55.471] invokeRestart(restart) 1575s [00:52:55.471] muffled <- TRUE 1575s [00:52:55.471] break 1575s [00:52:55.471] } 1575s [00:52:55.471] } 1575s [00:52:55.471] } 1575s [00:52:55.471] invisible(muffled) 1575s [00:52:55.471] } 1575s [00:52:55.471] muffleCondition(cond, pattern = "^muffle") 1575s [00:52:55.471] } 1575s [00:52:55.471] } 1575s [00:52:55.471] } 1575s [00:52:55.471] })) 1575s [00:52:55.471] }, error = function(ex) { 1575s [00:52:55.471] base::structure(base::list(value = NULL, visible = NULL, 1575s [00:52:55.471] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1575s [00:52:55.471] ...future.rng), started = ...future.startTime, 1575s [00:52:55.471] finished = Sys.time(), session_uuid = NA_character_, 1575s [00:52:55.471] version = "1.8"), class = "FutureResult") 1575s [00:52:55.471] }, finally = { 1575s [00:52:55.471] if (!identical(...future.workdir, getwd())) 1575s [00:52:55.471] setwd(...future.workdir) 1575s [00:52:55.471] { 1575s [00:52:55.471] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1575s [00:52:55.471] ...future.oldOptions$nwarnings <- NULL 1575s [00:52:55.471] } 1575s [00:52:55.471] base::options(...future.oldOptions) 1575s [00:52:55.471] if (.Platform$OS.type == "windows") { 1575s [00:52:55.471] old_names <- names(...future.oldEnvVars) 1575s [00:52:55.471] envs <- base::Sys.getenv() 1575s [00:52:55.471] names <- names(envs) 1575s [00:52:55.471] common <- intersect(names, old_names) 1575s [00:52:55.471] added <- setdiff(names, old_names) 1575s [00:52:55.471] removed <- setdiff(old_names, names) 1575s [00:52:55.471] changed <- common[...future.oldEnvVars[common] != 1575s [00:52:55.471] envs[common]] 1575s [00:52:55.471] NAMES <- toupper(changed) 1575s [00:52:55.471] args <- list() 1575s [00:52:55.471] for (kk in seq_along(NAMES)) { 1575s [00:52:55.471] name <- changed[[kk]] 1575s [00:52:55.471] NAME <- NAMES[[kk]] 1575s [00:52:55.471] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:55.471] next 1575s [00:52:55.471] args[[name]] <- ...future.oldEnvVars[[name]] 1575s [00:52:55.471] } 1575s [00:52:55.471] NAMES <- toupper(added) 1575s [00:52:55.471] for (kk in seq_along(NAMES)) { 1575s [00:52:55.471] name <- added[[kk]] 1575s [00:52:55.471] NAME <- NAMES[[kk]] 1575s [00:52:55.471] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:55.471] next 1575s [00:52:55.471] args[[name]] <- "" 1575s [00:52:55.471] } 1575s [00:52:55.471] NAMES <- toupper(removed) 1575s [00:52:55.471] for (kk in seq_along(NAMES)) { 1575s [00:52:55.471] name <- removed[[kk]] 1575s [00:52:55.471] NAME <- NAMES[[kk]] 1575s [00:52:55.471] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:55.471] next 1575s [00:52:55.471] args[[name]] <- ...future.oldEnvVars[[name]] 1575s [00:52:55.471] } 1575s [00:52:55.471] if (length(args) > 0) 1575s [00:52:55.471] base::do.call(base::Sys.setenv, args = args) 1575s [00:52:55.471] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1575s [00:52:55.471] } 1575s [00:52:55.471] else { 1575s [00:52:55.471] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1575s [00:52:55.471] } 1575s [00:52:55.471] { 1575s [00:52:55.471] if (base::length(...future.futureOptionsAdded) > 1575s [00:52:55.471] 0L) { 1575s [00:52:55.471] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1575s [00:52:55.471] base::names(opts) <- ...future.futureOptionsAdded 1575s [00:52:55.471] base::options(opts) 1575s [00:52:55.471] } 1575s [00:52:55.471] { 1575s [00:52:55.471] { 1575s [00:52:55.471] NULL 1575s [00:52:55.471] RNGkind("Mersenne-Twister") 1575s [00:52:55.471] base::rm(list = ".Random.seed", envir = base::globalenv(), 1575s [00:52:55.471] inherits = FALSE) 1575s [00:52:55.471] } 1575s [00:52:55.471] options(future.plan = NULL) 1575s [00:52:55.471] if (is.na(NA_character_)) 1575s [00:52:55.471] Sys.unsetenv("R_FUTURE_PLAN") 1575s [00:52:55.471] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1575s [00:52:55.471] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1575s [00:52:55.471] envir = parent.frame()) 1575s [00:52:55.471] { 1575s [00:52:55.471] default_workers <- missing(workers) 1575s [00:52:55.471] if (is.function(workers)) 1575s [00:52:55.471] workers <- workers() 1575s [00:52:55.471] workers <- structure(as.integer(workers), 1575s [00:52:55.471] class = class(workers)) 1575s [00:52:55.471] stop_if_not(is.finite(workers), workers >= 1575s [00:52:55.471] 1L) 1575s [00:52:55.471] if ((workers == 1L && !inherits(workers, 1575s [00:52:55.471] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1575s [00:52:55.471] if (default_workers) 1575s [00:52:55.471] supportsMulticore(warn = TRUE) 1575s [00:52:55.471] return(sequential(..., envir = envir)) 1575s [00:52:55.471] } 1575s [00:52:55.471] oopts <- options(mc.cores = workers) 1575s [00:52:55.471] on.exit(options(oopts)) 1575s [00:52:55.471] future <- MulticoreFuture(..., workers = workers, 1575s [00:52:55.471] envir = envir) 1575s [00:52:55.471] if (!future$lazy) 1575s [00:52:55.471] future <- run(future) 1575s [00:52:55.471] invisible(future) 1575s [00:52:55.471] }), .cleanup = FALSE, .init = FALSE) 1575s [00:52:55.471] } 1575s [00:52:55.471] } 1575s [00:52:55.471] } 1575s [00:52:55.471] }) 1575s [00:52:55.471] if (TRUE) { 1575s [00:52:55.471] base::sink(type = "output", split = FALSE) 1575s [00:52:55.471] if (TRUE) { 1575s [00:52:55.471] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1575s [00:52:55.471] } 1575s [00:52:55.471] else { 1575s [00:52:55.471] ...future.result["stdout"] <- base::list(NULL) 1575s [00:52:55.471] } 1575s [00:52:55.471] base::close(...future.stdout) 1575s [00:52:55.471] ...future.stdout <- NULL 1575s [00:52:55.471] } 1575s [00:52:55.471] ...future.result$conditions <- ...future.conditions 1575s [00:52:55.471] ...future.result$finished <- base::Sys.time() 1575s [00:52:55.471] ...future.result 1575s [00:52:55.471] } 1575s [00:52:55.481] assign_globals() ... 1575s [00:52:55.481] List of 5 1575s [00:52:55.481] $ ...future.FUN :function (x, ...) 1575s [00:52:55.481] $ future.call.arguments : list() 1575s [00:52:55.481] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:55.481] $ ...future.elements_ii :List of 6 1575s [00:52:55.481] ..$ a1: int 1 1575s [00:52:55.481] ..$ a2: int 2 1575s [00:52:55.481] ..$ b1: int 2 1575s [00:52:55.481] ..$ b2: int 3 1575s [00:52:55.481] ..$ c1: int 3 1575s [00:52:55.481] ..$ c2: int 4 1575s [00:52:55.481] $ ...future.seeds_ii : NULL 1575s [00:52:55.481] $ ...future.globals.maxSize: NULL 1575s [00:52:55.481] - attr(*, "where")=List of 5 1575s [00:52:55.481] ..$ ...future.FUN : 1575s [00:52:55.481] ..$ future.call.arguments : 1575s [00:52:55.481] ..$ ...future.elements_ii : 1575s [00:52:55.481] ..$ ...future.seeds_ii : 1575s [00:52:55.481] ..$ ...future.globals.maxSize: 1575s [00:52:55.481] - attr(*, "resolved")= logi FALSE 1575s [00:52:55.481] - attr(*, "total_size")= num 1248 1575s [00:52:55.481] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:55.481] - attr(*, "already-done")= logi TRUE 1575s [00:52:55.496] - copied ‘...future.FUN’ to environment 1575s [00:52:55.497] - copied ‘future.call.arguments’ to environment 1575s [00:52:55.497] - copied ‘...future.elements_ii’ to environment 1575s [00:52:55.498] - copied ‘...future.seeds_ii’ to environment 1575s [00:52:55.498] - copied ‘...future.globals.maxSize’ to environment 1575s [00:52:55.498] assign_globals() ... done 1575s [00:52:55.499] plan(): Setting new future strategy stack: 1575s [00:52:55.499] List of future strategies: 1575s [00:52:55.499] 1. sequential: 1575s [00:52:55.499] - args: function (..., envir = parent.frame()) 1575s [00:52:55.499] - tweaked: FALSE 1575s [00:52:55.499] - call: NULL 1575s [00:52:55.500] plan(): nbrOfWorkers() = 1 1575s [00:52:55.502] plan(): Setting new future strategy stack: 1575s [00:52:55.502] List of future strategies: 1575s [00:52:55.502] 1. multicore: 1575s [00:52:55.502] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1575s [00:52:55.502] - tweaked: FALSE 1575s [00:52:55.502] - call: plan(strategy) 1575s [00:52:55.507] plan(): nbrOfWorkers() = 1 1575s [00:52:55.507] SequentialFuture started (and completed) 1575s [00:52:55.507] - Launch lazy future ... done 1575s [00:52:55.507] run() for ‘SequentialFuture’ ... done 1575s [00:52:55.508] Created future: 1575s [00:52:55.508] SequentialFuture: 1575s [00:52:55.508] Label: ‘future_sapply-1’ 1575s [00:52:55.508] Expression: 1575s [00:52:55.508] { 1575s [00:52:55.508] do.call(function(...) { 1575s [00:52:55.508] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:55.508] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1575s [00:52:55.508] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:55.508] on.exit(options(oopts), add = TRUE) 1575s [00:52:55.508] } 1575s [00:52:55.508] { 1575s [00:52:55.508] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1575s [00:52:55.508] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:55.508] ...future.FUN(...future.X_jj, ...) 1575s [00:52:55.508] }) 1575s [00:52:55.508] } 1575s [00:52:55.508] }, args = future.call.arguments) 1575s [00:52:55.508] } 1575s [00:52:55.508] Lazy evaluation: FALSE 1575s [00:52:55.508] Asynchronous evaluation: FALSE 1575s [00:52:55.508] Local evaluation: TRUE 1575s [00:52:55.508] Environment: R_GlobalEnv 1575s [00:52:55.508] Capture standard output: TRUE 1575s [00:52:55.508] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1575s [00:52:55.508] Globals: 5 objects totaling 1.55 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1575s [00:52:55.508] Packages: 1575s [00:52:55.508] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1575s [00:52:55.508] Resolved: TRUE 1575s [00:52:55.508] Value: 1.31 KiB of class ‘list’ 1575s [00:52:55.508] Early signaling: FALSE 1575s [00:52:55.508] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1575s [00:52:55.508] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1575s [00:52:55.511] Chunk #1 of 1 ... DONE 1575s [00:52:55.512] Launching 1 futures (chunks) ... DONE 1575s [00:52:55.512] Resolving 1 futures (chunks) ... 1575s [00:52:55.512] resolve() on list ... 1575s [00:52:55.512] recursive: 0 1575s [00:52:55.513] length: 1 1575s [00:52:55.513] 1575s [00:52:55.513] resolved() for ‘SequentialFuture’ ... 1575s [00:52:55.513] - state: ‘finished’ 1575s [00:52:55.513] - run: TRUE 1575s [00:52:55.513] - result: ‘FutureResult’ 1575s [00:52:55.514] resolved() for ‘SequentialFuture’ ... done 1575s [00:52:55.514] Future #1 1575s [00:52:55.514] signalConditionsASAP(SequentialFuture, pos=1) ... 1575s [00:52:55.515] - nx: 1 1575s [00:52:55.515] - relay: TRUE 1575s [00:52:55.515] - stdout: TRUE 1575s [00:52:55.515] - signal: TRUE 1575s [00:52:55.515] - resignal: FALSE 1575s [00:52:55.516] - force: TRUE 1575s [00:52:55.516] - relayed: [n=1] FALSE 1575s [00:52:55.516] - queued futures: [n=1] FALSE 1575s [00:52:55.516] - until=1 1575s [00:52:55.517] - relaying element #1 1575s [00:52:55.517] - relayed: [n=1] TRUE 1575s [00:52:55.517] - queued futures: [n=1] TRUE 1575s [00:52:55.517] signalConditionsASAP(SequentialFuture, pos=1) ... done 1575s [00:52:55.518] length: 0 (resolved future 1) 1575s [00:52:55.518] Relaying remaining futures 1575s [00:52:55.518] signalConditionsASAP(NULL, pos=0) ... 1575s [00:52:55.518] - nx: 1 1575s [00:52:55.518] - relay: TRUE 1575s [00:52:55.518] - stdout: TRUE 1575s [00:52:55.519] - signal: TRUE 1575s [00:52:55.519] - resignal: FALSE 1575s [00:52:55.519] - force: TRUE 1575s [00:52:55.519] - relayed: [n=1] TRUE 1575s [00:52:55.520] - queued futures: [n=1] TRUE 1575s - flush all 1575s [00:52:55.520] - relayed: [n=1] TRUE 1575s [00:52:55.520] - queued futures: [n=1] TRUE 1575s [00:52:55.521] signalConditionsASAP(NULL, pos=0) ... done 1575s [00:52:55.521] resolve() on list ... DONE 1575s [00:52:55.521] - Number of value chunks collected: 1 1575s [00:52:55.521] Resolving 1 futures (chunks) ... DONE 1575s [00:52:55.522] Reducing values from 1 chunks ... 1575s [00:52:55.522] - Number of values collected after concatenation: 6 1575s [00:52:55.522] - Number of values expected: 6 1575s [00:52:55.523] Reducing values from 1 chunks ... DONE 1575s [00:52:55.523] future_lapply() ... DONE 1575s List of 2 1575s $ y0:List of 6 1575s ..$ a1: int [1, 1] 1 1575s ..$ a2: int [1, 1] 2 1575s ..$ b1: int [1, 1] 2 1575s ..$ b2: int [1, 1] 3 1575s ..$ c1: int [1, 1] 3 1575s ..$ c2: int [1, 1] 4 1575s $ y1:List of 6 1575s ..$ a1: int [1, 1] 1 1575s ..$ a2: int [1, 1] 2 1575s ..$ b1: int [1, 1] 2 1575s ..$ b2: int [1, 1] 3 1575s ..$ c1: int [1, 1] 3 1575s ..$ c2: int [1, 1] 4 1575s List of 2 1575s $ y0:List of 6 1575s ..$ a1: int [1, 1] 1 1575s ..$ a2: int [1, 1] 2 1575s ..$ b1: int [1, 1] 2 1575s ..$ b2: int [1, 1] 3 1575s ..$ c1: int [1, 1] 3 1575s ..$ c2: int [1, 1] 4 1575s $ y2:List of 6 1575s ..$ a1: int [1, 1] 1 1575s ..$ a2: int [1, 1] 2 1575s ..$ b1: int [1, 1] 2 1575s ..$ b2: int [1, 1] 3 1575s ..$ c1: int [1, 1] 3 1575s ..$ c2: int [1, 1] 4 1575s [00:52:55.546] future_lapply() ... 1575s [00:52:55.552] Number of chunks: 1 1575s [00:52:55.552] getGlobalsAndPackagesXApply() ... 1575s [00:52:55.552] - future.globals: TRUE 1575s [00:52:55.552] getGlobalsAndPackages() ... 1575s [00:52:55.554] Searching for globals... 1575s [00:52:55.557] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1575s [00:52:55.557] Searching for globals ... DONE 1575s [00:52:55.557] Resolving globals: FALSE 1575s [00:52:55.558] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1575s [00:52:55.558] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1575s [00:52:55.558] - globals: [1] ‘FUN’ 1575s [00:52:55.559] 1575s [00:52:55.559] getGlobalsAndPackages() ... DONE 1575s [00:52:55.559] - globals found/used: [n=1] ‘FUN’ 1575s [00:52:55.559] - needed namespaces: [n=0] 1575s [00:52:55.559] Finding globals ... DONE 1575s [00:52:55.559] - use_args: TRUE 1575s [00:52:55.560] - Getting '...' globals ... 1575s [00:52:55.560] resolve() on list ... 1575s [00:52:55.560] recursive: 0 1575s [00:52:55.560] length: 1 1575s [00:52:55.561] elements: ‘...’ 1575s [00:52:55.561] length: 0 (resolved future 1) 1575s [00:52:55.561] resolve() on list ... DONE 1575s [00:52:55.561] - '...' content: [n=0] 1575s [00:52:55.561] List of 1 1575s [00:52:55.561] $ ...: list() 1575s [00:52:55.561] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:55.561] - attr(*, "where")=List of 1 1575s [00:52:55.561] ..$ ...: 1575s [00:52:55.561] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:55.561] - attr(*, "resolved")= logi TRUE 1575s [00:52:55.561] - attr(*, "total_size")= num NA 1575s [00:52:55.565] - Getting '...' globals ... DONE 1575s [00:52:55.566] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1575s [00:52:55.566] List of 2 1575s [00:52:55.566] $ ...future.FUN:function (x, y = 2 * 1:5) 1575s [00:52:55.566] $ ... : list() 1575s [00:52:55.566] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:55.566] - attr(*, "where")=List of 2 1575s [00:52:55.566] ..$ ...future.FUN: 1575s [00:52:55.566] ..$ ... : 1575s [00:52:55.566] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:55.566] - attr(*, "resolved")= logi FALSE 1575s [00:52:55.566] - attr(*, "total_size")= num 4728 1575s [00:52:55.575] Packages to be attached in all futures: [n=0] 1575s [00:52:55.576] getGlobalsAndPackagesXApply() ... DONE 1575s [00:52:55.576] Number of futures (= number of chunks): 1 1575s [00:52:55.576] Launching 1 futures (chunks) ... 1575s [00:52:55.577] Chunk #1 of 1 ... 1575s [00:52:55.577] - Finding globals in 'X' for chunk #1 ... 1575s [00:52:55.577] getGlobalsAndPackages() ... 1575s [00:52:55.577] Searching for globals... 1575s [00:52:55.577] 1575s [00:52:55.577] Searching for globals ... DONE 1575s [00:52:55.577] - globals: [0] 1575s [00:52:55.578] getGlobalsAndPackages() ... DONE 1575s [00:52:55.578] + additional globals found: [n=0] 1575s [00:52:55.578] + additional namespaces needed: [n=0] 1575s [00:52:55.578] - Finding globals in 'X' for chunk #1 ... DONE 1575s [00:52:55.578] - seeds: 1575s [00:52:55.578] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:55.578] getGlobalsAndPackages() ... 1575s [00:52:55.578] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:55.579] Resolving globals: FALSE 1575s [00:52:55.579] Tweak future expression to call with '...' arguments ... 1575s [00:52:55.579] { 1575s [00:52:55.579] do.call(function(...) { 1575s [00:52:55.579] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:55.579] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1575s [00:52:55.579] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:55.579] on.exit(options(oopts), add = TRUE) 1575s [00:52:55.579] } 1575s [00:52:55.579] { 1575s [00:52:55.579] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1575s [00:52:55.579] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:55.579] ...future.FUN(...future.X_jj, ...) 1575s [00:52:55.579] }) 1575s [00:52:55.579] } 1575s [00:52:55.579] }, args = future.call.arguments) 1575s [00:52:55.579] } 1575s [00:52:55.579] Tweak future expression to call with '...' arguments ... DONE 1575s [00:52:55.580] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:55.580] 1575s [00:52:55.580] getGlobalsAndPackages() ... DONE 1575s [00:52:55.580] run() for ‘Future’ ... 1575s [00:52:55.581] - state: ‘created’ 1575s [00:52:55.581] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1575s [00:52:55.585] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1575s [00:52:55.585] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1575s [00:52:55.585] - Field: ‘label’ 1575s [00:52:55.586] - Field: ‘local’ 1575s [00:52:55.586] - Field: ‘owner’ 1575s [00:52:55.586] - Field: ‘envir’ 1575s [00:52:55.586] - Field: ‘packages’ 1575s [00:52:55.586] - Field: ‘gc’ 1575s [00:52:55.587] - Field: ‘conditions’ 1575s [00:52:55.587] - Field: ‘expr’ 1575s [00:52:55.587] - Field: ‘uuid’ 1575s [00:52:55.587] - Field: ‘seed’ 1575s [00:52:55.587] - Field: ‘version’ 1575s [00:52:55.587] - Field: ‘result’ 1575s [00:52:55.588] - Field: ‘asynchronous’ 1575s [00:52:55.588] - Field: ‘calls’ 1575s [00:52:55.588] - Field: ‘globals’ 1575s [00:52:55.588] - Field: ‘stdout’ 1575s [00:52:55.588] - Field: ‘earlySignal’ 1575s [00:52:55.588] - Field: ‘lazy’ 1575s [00:52:55.589] - Field: ‘state’ 1575s [00:52:55.589] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1575s [00:52:55.589] - Launch lazy future ... 1575s [00:52:55.589] Packages needed by the future expression (n = 0): 1575s [00:52:55.589] Packages needed by future strategies (n = 0): 1575s [00:52:55.590] { 1575s [00:52:55.590] { 1575s [00:52:55.590] { 1575s [00:52:55.590] ...future.startTime <- base::Sys.time() 1575s [00:52:55.590] { 1575s [00:52:55.590] { 1575s [00:52:55.590] { 1575s [00:52:55.590] base::local({ 1575s [00:52:55.590] has_future <- base::requireNamespace("future", 1575s [00:52:55.590] quietly = TRUE) 1575s [00:52:55.590] if (has_future) { 1575s [00:52:55.590] ns <- base::getNamespace("future") 1575s [00:52:55.590] version <- ns[[".package"]][["version"]] 1575s [00:52:55.590] if (is.null(version)) 1575s [00:52:55.590] version <- utils::packageVersion("future") 1575s [00:52:55.590] } 1575s [00:52:55.590] else { 1575s [00:52:55.590] version <- NULL 1575s [00:52:55.590] } 1575s [00:52:55.590] if (!has_future || version < "1.8.0") { 1575s [00:52:55.590] info <- base::c(r_version = base::gsub("R version ", 1575s [00:52:55.590] "", base::R.version$version.string), 1575s [00:52:55.590] platform = base::sprintf("%s (%s-bit)", 1575s [00:52:55.590] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1575s [00:52:55.590] os = base::paste(base::Sys.info()[base::c("sysname", 1575s [00:52:55.590] "release", "version")], collapse = " "), 1575s [00:52:55.590] hostname = base::Sys.info()[["nodename"]]) 1575s [00:52:55.590] info <- base::sprintf("%s: %s", base::names(info), 1575s [00:52:55.590] info) 1575s [00:52:55.590] info <- base::paste(info, collapse = "; ") 1575s [00:52:55.590] if (!has_future) { 1575s [00:52:55.590] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1575s [00:52:55.590] info) 1575s [00:52:55.590] } 1575s [00:52:55.590] else { 1575s [00:52:55.590] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1575s [00:52:55.590] info, version) 1575s [00:52:55.590] } 1575s [00:52:55.590] base::stop(msg) 1575s [00:52:55.590] } 1575s [00:52:55.590] }) 1575s [00:52:55.590] } 1575s [00:52:55.590] options(future.plan = NULL) 1575s [00:52:55.590] Sys.unsetenv("R_FUTURE_PLAN") 1575s [00:52:55.590] future::plan("default", .cleanup = FALSE, .init = FALSE) 1575s [00:52:55.590] } 1575s [00:52:55.590] ...future.workdir <- getwd() 1575s [00:52:55.590] } 1575s [00:52:55.590] ...future.oldOptions <- base::as.list(base::.Options) 1575s [00:52:55.590] ...future.oldEnvVars <- base::Sys.getenv() 1575s [00:52:55.590] } 1575s [00:52:55.590] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1575s [00:52:55.590] future.globals.maxSize = NULL, future.globals.method = NULL, 1575s [00:52:55.590] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1575s [00:52:55.590] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1575s [00:52:55.590] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1575s [00:52:55.590] future.stdout.windows.reencode = NULL, width = 80L) 1575s [00:52:55.590] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1575s [00:52:55.590] base::names(...future.oldOptions)) 1575s [00:52:55.590] } 1575s [00:52:55.590] if (FALSE) { 1575s [00:52:55.590] } 1575s [00:52:55.590] else { 1575s [00:52:55.590] if (TRUE) { 1575s [00:52:55.590] ...future.stdout <- base::rawConnection(base::raw(0L), 1575s [00:52:55.590] open = "w") 1575s [00:52:55.590] } 1575s [00:52:55.590] else { 1575s [00:52:55.590] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1575s [00:52:55.590] windows = "NUL", "/dev/null"), open = "w") 1575s [00:52:55.590] } 1575s [00:52:55.590] base::sink(...future.stdout, type = "output", split = FALSE) 1575s [00:52:55.590] base::on.exit(if (!base::is.null(...future.stdout)) { 1575s [00:52:55.590] base::sink(type = "output", split = FALSE) 1575s [00:52:55.590] base::close(...future.stdout) 1575s [00:52:55.590] }, add = TRUE) 1575s [00:52:55.590] } 1575s [00:52:55.590] ...future.frame <- base::sys.nframe() 1575s [00:52:55.590] ...future.conditions <- base::list() 1575s [00:52:55.590] ...future.rng <- base::globalenv()$.Random.seed 1575s [00:52:55.590] if (FALSE) { 1575s [00:52:55.590] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1575s [00:52:55.590] "...future.value", "...future.globalenv.names", ".Random.seed") 1575s [00:52:55.590] } 1575s [00:52:55.590] ...future.result <- base::tryCatch({ 1575s [00:52:55.590] base::withCallingHandlers({ 1575s [00:52:55.590] ...future.value <- base::withVisible(base::local({ 1575s [00:52:55.590] do.call(function(...) { 1575s [00:52:55.590] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:55.590] if (!identical(...future.globals.maxSize.org, 1575s [00:52:55.590] ...future.globals.maxSize)) { 1575s [00:52:55.590] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:55.590] on.exit(options(oopts), add = TRUE) 1575s [00:52:55.590] } 1575s [00:52:55.590] { 1575s [00:52:55.590] lapply(seq_along(...future.elements_ii), 1575s [00:52:55.590] FUN = function(jj) { 1575s [00:52:55.590] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:55.590] ...future.FUN(...future.X_jj, ...) 1575s [00:52:55.590] }) 1575s [00:52:55.590] } 1575s [00:52:55.590] }, args = future.call.arguments) 1575s [00:52:55.590] })) 1575s [00:52:55.590] future::FutureResult(value = ...future.value$value, 1575s [00:52:55.590] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1575s [00:52:55.590] ...future.rng), globalenv = if (FALSE) 1575s [00:52:55.590] list(added = base::setdiff(base::names(base::.GlobalEnv), 1575s [00:52:55.590] ...future.globalenv.names)) 1575s [00:52:55.590] else NULL, started = ...future.startTime, version = "1.8") 1575s [00:52:55.590] }, condition = base::local({ 1575s [00:52:55.590] c <- base::c 1575s [00:52:55.590] inherits <- base::inherits 1575s [00:52:55.590] invokeRestart <- base::invokeRestart 1575s [00:52:55.590] length <- base::length 1575s [00:52:55.590] list <- base::list 1575s [00:52:55.590] seq.int <- base::seq.int 1575s [00:52:55.590] signalCondition <- base::signalCondition 1575s [00:52:55.590] sys.calls <- base::sys.calls 1575s [00:52:55.590] `[[` <- base::`[[` 1575s [00:52:55.590] `+` <- base::`+` 1575s [00:52:55.590] `<<-` <- base::`<<-` 1575s [00:52:55.590] sysCalls <- function(calls = sys.calls(), from = 1L) { 1575s [00:52:55.590] calls[seq.int(from = from + 12L, to = length(calls) - 1575s [00:52:55.590] 3L)] 1575s [00:52:55.590] } 1575s [00:52:55.590] function(cond) { 1575s [00:52:55.590] is_error <- inherits(cond, "error") 1575s [00:52:55.590] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1575s [00:52:55.590] NULL) 1575s [00:52:55.590] if (is_error) { 1575s [00:52:55.590] sessionInformation <- function() { 1575s [00:52:55.590] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1575s [00:52:55.590] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1575s [00:52:55.590] search = base::search(), system = base::Sys.info()) 1575s [00:52:55.590] } 1575s [00:52:55.590] ...future.conditions[[length(...future.conditions) + 1575s [00:52:55.590] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1575s [00:52:55.590] cond$call), session = sessionInformation(), 1575s [00:52:55.590] timestamp = base::Sys.time(), signaled = 0L) 1575s [00:52:55.590] signalCondition(cond) 1575s [00:52:55.590] } 1575s [00:52:55.590] else if (!ignore && TRUE && inherits(cond, c("condition", 1575s [00:52:55.590] "immediateCondition"))) { 1575s [00:52:55.590] signal <- TRUE && inherits(cond, "immediateCondition") 1575s [00:52:55.590] ...future.conditions[[length(...future.conditions) + 1575s [00:52:55.590] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1575s [00:52:55.590] if (TRUE && !signal) { 1575s [00:52:55.590] muffleCondition <- function (cond, pattern = "^muffle") 1575s [00:52:55.590] { 1575s [00:52:55.590] inherits <- base::inherits 1575s [00:52:55.590] invokeRestart <- base::invokeRestart 1575s [00:52:55.590] is.null <- base::is.null 1575s [00:52:55.590] muffled <- FALSE 1575s [00:52:55.590] if (inherits(cond, "message")) { 1575s [00:52:55.590] muffled <- grepl(pattern, "muffleMessage") 1575s [00:52:55.590] if (muffled) 1575s [00:52:55.590] invokeRestart("muffleMessage") 1575s [00:52:55.590] } 1575s [00:52:55.590] else if (inherits(cond, "warning")) { 1575s [00:52:55.590] muffled <- grepl(pattern, "muffleWarning") 1575s [00:52:55.590] if (muffled) 1575s [00:52:55.590] invokeRestart("muffleWarning") 1575s [00:52:55.590] } 1575s [00:52:55.590] else if (inherits(cond, "condition")) { 1575s [00:52:55.590] if (!is.null(pattern)) { 1575s [00:52:55.590] computeRestarts <- base::computeRestarts 1575s [00:52:55.590] grepl <- base::grepl 1575s [00:52:55.590] restarts <- computeRestarts(cond) 1575s [00:52:55.590] for (restart in restarts) { 1575s [00:52:55.590] name <- restart$name 1575s [00:52:55.590] if (is.null(name)) 1575s [00:52:55.590] next 1575s [00:52:55.590] if (!grepl(pattern, name)) 1575s [00:52:55.590] next 1575s [00:52:55.590] invokeRestart(restart) 1575s [00:52:55.590] muffled <- TRUE 1575s [00:52:55.590] break 1575s [00:52:55.590] } 1575s [00:52:55.590] } 1575s [00:52:55.590] } 1575s [00:52:55.590] invisible(muffled) 1575s [00:52:55.590] } 1575s [00:52:55.590] muffleCondition(cond, pattern = "^muffle") 1575s [00:52:55.590] } 1575s [00:52:55.590] } 1575s [00:52:55.590] else { 1575s [00:52:55.590] if (TRUE) { 1575s [00:52:55.590] muffleCondition <- function (cond, pattern = "^muffle") 1575s [00:52:55.590] { 1575s [00:52:55.590] inherits <- base::inherits 1575s [00:52:55.590] invokeRestart <- base::invokeRestart 1575s [00:52:55.590] is.null <- base::is.null 1575s [00:52:55.590] muffled <- FALSE 1575s [00:52:55.590] if (inherits(cond, "message")) { 1575s [00:52:55.590] muffled <- grepl(pattern, "muffleMessage") 1575s [00:52:55.590] if (muffled) 1575s [00:52:55.590] invokeRestart("muffleMessage") 1575s [00:52:55.590] } 1575s [00:52:55.590] else if (inherits(cond, "warning")) { 1575s [00:52:55.590] muffled <- grepl(pattern, "muffleWarning") 1575s [00:52:55.590] if (muffled) 1575s [00:52:55.590] invokeRestart("muffleWarning") 1575s [00:52:55.590] } 1575s [00:52:55.590] else if (inherits(cond, "condition")) { 1575s [00:52:55.590] if (!is.null(pattern)) { 1575s [00:52:55.590] computeRestarts <- base::computeRestarts 1575s [00:52:55.590] grepl <- base::grepl 1575s [00:52:55.590] restarts <- computeRestarts(cond) 1575s [00:52:55.590] for (restart in restarts) { 1575s [00:52:55.590] name <- restart$name 1575s [00:52:55.590] if (is.null(name)) 1575s [00:52:55.590] next 1575s [00:52:55.590] if (!grepl(pattern, name)) 1575s [00:52:55.590] next 1575s [00:52:55.590] invokeRestart(restart) 1575s [00:52:55.590] muffled <- TRUE 1575s [00:52:55.590] break 1575s [00:52:55.590] } 1575s [00:52:55.590] } 1575s [00:52:55.590] } 1575s [00:52:55.590] invisible(muffled) 1575s [00:52:55.590] } 1575s [00:52:55.590] muffleCondition(cond, pattern = "^muffle") 1575s [00:52:55.590] } 1575s [00:52:55.590] } 1575s [00:52:55.590] } 1575s [00:52:55.590] })) 1575s [00:52:55.590] }, error = function(ex) { 1575s [00:52:55.590] base::structure(base::list(value = NULL, visible = NULL, 1575s [00:52:55.590] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1575s [00:52:55.590] ...future.rng), started = ...future.startTime, 1575s [00:52:55.590] finished = Sys.time(), session_uuid = NA_character_, 1575s [00:52:55.590] version = "1.8"), class = "FutureResult") 1575s [00:52:55.590] }, finally = { 1575s [00:52:55.590] if (!identical(...future.workdir, getwd())) 1575s [00:52:55.590] setwd(...future.workdir) 1575s [00:52:55.590] { 1575s [00:52:55.590] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1575s [00:52:55.590] ...future.oldOptions$nwarnings <- NULL 1575s [00:52:55.590] } 1575s [00:52:55.590] base::options(...future.oldOptions) 1575s [00:52:55.590] if (.Platform$OS.type == "windows") { 1575s [00:52:55.590] old_names <- names(...future.oldEnvVars) 1575s [00:52:55.590] envs <- base::Sys.getenv() 1575s [00:52:55.590] names <- names(envs) 1575s [00:52:55.590] common <- intersect(names, old_names) 1575s [00:52:55.590] added <- setdiff(names, old_names) 1575s [00:52:55.590] removed <- setdiff(old_names, names) 1575s [00:52:55.590] changed <- common[...future.oldEnvVars[common] != 1575s [00:52:55.590] envs[common]] 1575s [00:52:55.590] NAMES <- toupper(changed) 1575s [00:52:55.590] args <- list() 1575s [00:52:55.590] for (kk in seq_along(NAMES)) { 1575s [00:52:55.590] name <- changed[[kk]] 1575s [00:52:55.590] NAME <- NAMES[[kk]] 1575s [00:52:55.590] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:55.590] next 1575s [00:52:55.590] args[[name]] <- ...future.oldEnvVars[[name]] 1575s [00:52:55.590] } 1575s [00:52:55.590] NAMES <- toupper(added) 1575s [00:52:55.590] for (kk in seq_along(NAMES)) { 1575s [00:52:55.590] name <- added[[kk]] 1575s [00:52:55.590] NAME <- NAMES[[kk]] 1575s [00:52:55.590] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:55.590] next 1575s [00:52:55.590] args[[name]] <- "" 1575s [00:52:55.590] } 1575s [00:52:55.590] NAMES <- toupper(removed) 1575s [00:52:55.590] for (kk in seq_along(NAMES)) { 1575s [00:52:55.590] name <- removed[[kk]] 1575s [00:52:55.590] NAME <- NAMES[[kk]] 1575s [00:52:55.590] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:55.590] next 1575s [00:52:55.590] args[[name]] <- ...future.oldEnvVars[[name]] 1575s [00:52:55.590] } 1575s [00:52:55.590] if (length(args) > 0) 1575s [00:52:55.590] base::do.call(base::Sys.setenv, args = args) 1575s [00:52:55.590] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1575s [00:52:55.590] } 1575s [00:52:55.590] else { 1575s [00:52:55.590] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1575s [00:52:55.590] } 1575s [00:52:55.590] { 1575s [00:52:55.590] if (base::length(...future.futureOptionsAdded) > 1575s [00:52:55.590] 0L) { 1575s [00:52:55.590] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1575s [00:52:55.590] base::names(opts) <- ...future.futureOptionsAdded 1575s [00:52:55.590] base::options(opts) 1575s [00:52:55.590] } 1575s [00:52:55.590] { 1575s [00:52:55.590] { 1575s [00:52:55.590] NULL 1575s [00:52:55.590] RNGkind("Mersenne-Twister") 1575s [00:52:55.590] base::rm(list = ".Random.seed", envir = base::globalenv(), 1575s [00:52:55.590] inherits = FALSE) 1575s [00:52:55.590] } 1575s [00:52:55.590] options(future.plan = NULL) 1575s [00:52:55.590] if (is.na(NA_character_)) 1575s [00:52:55.590] Sys.unsetenv("R_FUTURE_PLAN") 1575s [00:52:55.590] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1575s [00:52:55.590] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1575s [00:52:55.590] envir = parent.frame()) 1575s [00:52:55.590] { 1575s [00:52:55.590] default_workers <- missing(workers) 1575s [00:52:55.590] if (is.function(workers)) 1575s [00:52:55.590] workers <- workers() 1575s [00:52:55.590] workers <- structure(as.integer(workers), 1575s [00:52:55.590] class = class(workers)) 1575s [00:52:55.590] stop_if_not(is.finite(workers), workers >= 1575s [00:52:55.590] 1L) 1575s [00:52:55.590] if ((workers == 1L && !inherits(workers, 1575s [00:52:55.590] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1575s [00:52:55.590] if (default_workers) 1575s [00:52:55.590] supportsMulticore(warn = TRUE) 1575s [00:52:55.590] return(sequential(..., envir = envir)) 1575s [00:52:55.590] } 1575s [00:52:55.590] oopts <- options(mc.cores = workers) 1575s [00:52:55.590] on.exit(options(oopts)) 1575s [00:52:55.590] future <- MulticoreFuture(..., workers = workers, 1575s [00:52:55.590] envir = envir) 1575s [00:52:55.590] if (!future$lazy) 1575s [00:52:55.590] future <- run(future) 1575s [00:52:55.590] invisible(future) 1575s [00:52:55.590] }), .cleanup = FALSE, .init = FALSE) 1575s [00:52:55.590] } 1575s [00:52:55.590] } 1575s [00:52:55.590] } 1575s [00:52:55.590] }) 1575s [00:52:55.590] if (TRUE) { 1575s [00:52:55.590] base::sink(type = "output", split = FALSE) 1575s [00:52:55.590] if (TRUE) { 1575s [00:52:55.590] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1575s [00:52:55.590] } 1575s [00:52:55.590] else { 1575s [00:52:55.590] ...future.result["stdout"] <- base::list(NULL) 1575s [00:52:55.590] } 1575s [00:52:55.590] base::close(...future.stdout) 1575s [00:52:55.590] ...future.stdout <- NULL 1575s [00:52:55.590] } 1575s [00:52:55.590] ...future.result$conditions <- ...future.conditions 1575s [00:52:55.590] ...future.result$finished <- base::Sys.time() 1575s [00:52:55.590] ...future.result 1575s [00:52:55.590] } 1575s [00:52:55.594] assign_globals() ... 1575s [00:52:55.595] List of 5 1575s [00:52:55.595] $ ...future.FUN :function (x, y = 2 * 1:5) 1575s [00:52:55.595] $ future.call.arguments : list() 1575s [00:52:55.595] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:55.595] $ ...future.elements_ii :List of 6 1575s [00:52:55.595] ..$ a1: int 1 1575s [00:52:55.595] ..$ a2: int 2 1575s [00:52:55.595] ..$ b1: int 2 1575s [00:52:55.595] ..$ b2: int 3 1575s [00:52:55.595] ..$ c1: int 3 1575s [00:52:55.595] ..$ c2: int 4 1575s [00:52:55.595] $ ...future.seeds_ii : NULL 1575s [00:52:55.595] $ ...future.globals.maxSize: NULL 1575s [00:52:55.595] - attr(*, "where")=List of 5 1575s [00:52:55.595] ..$ ...future.FUN : 1575s [00:52:55.595] ..$ future.call.arguments : 1575s [00:52:55.595] ..$ ...future.elements_ii : 1575s [00:52:55.595] ..$ ...future.seeds_ii : 1575s [00:52:55.595] ..$ ...future.globals.maxSize: 1575s [00:52:55.595] - attr(*, "resolved")= logi FALSE 1575s [00:52:55.595] - attr(*, "total_size")= num 4728 1575s [00:52:55.595] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:55.595] - attr(*, "already-done")= logi TRUE 1575s [00:52:55.606] - reassign environment for ‘...future.FUN’ 1575s [00:52:55.606] - copied ‘...future.FUN’ to environment 1575s [00:52:55.606] - copied ‘future.call.arguments’ to environment 1575s [00:52:55.606] - copied ‘...future.elements_ii’ to environment 1575s [00:52:55.607] - copied ‘...future.seeds_ii’ to environment 1575s [00:52:55.607] - copied ‘...future.globals.maxSize’ to environment 1575s [00:52:55.607] assign_globals() ... done 1575s [00:52:55.608] plan(): Setting new future strategy stack: 1575s [00:52:55.608] List of future strategies: 1575s [00:52:55.608] 1. sequential: 1575s [00:52:55.608] - args: function (..., envir = parent.frame()) 1575s [00:52:55.608] - tweaked: FALSE 1575s [00:52:55.608] - call: NULL 1575s [00:52:55.609] plan(): nbrOfWorkers() = 1 1575s [00:52:55.610] plan(): Setting new future strategy stack: 1575s [00:52:55.610] List of future strategies: 1575s [00:52:55.610] 1. multicore: 1575s [00:52:55.610] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1575s [00:52:55.610] - tweaked: FALSE 1575s [00:52:55.610] - call: plan(strategy) 1575s [00:52:55.615] plan(): nbrOfWorkers() = 1 1575s [00:52:55.616] SequentialFuture started (and completed) 1575s [00:52:55.616] - Launch lazy future ... done 1575s [00:52:55.616] run() for ‘SequentialFuture’ ... done 1575s [00:52:55.617] Created future: 1575s [00:52:55.617] SequentialFuture: 1575s [00:52:55.617] Label: ‘future_sapply-1’ 1575s [00:52:55.617] Expression: 1575s [00:52:55.617] { 1575s [00:52:55.617] do.call(function(...) { 1575s [00:52:55.617] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:55.617] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1575s [00:52:55.617] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:55.617] on.exit(options(oopts), add = TRUE) 1575s [00:52:55.617] } 1575s [00:52:55.617] { 1575s [00:52:55.617] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1575s [00:52:55.617] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:55.617] ...future.FUN(...future.X_jj, ...) 1575s [00:52:55.617] }) 1575s [00:52:55.617] } 1575s [00:52:55.617] }, args = future.call.arguments) 1575s [00:52:55.617] } 1575s [00:52:55.617] Lazy evaluation: FALSE 1575s [00:52:55.617] Asynchronous evaluation: FALSE 1575s [00:52:55.617] Local evaluation: TRUE 1575s [00:52:55.617] Environment: R_GlobalEnv 1575s [00:52:55.617] Capture standard output: TRUE 1575s [00:52:55.617] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1575s [00:52:55.617] Globals: 5 objects totaling 4.95 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1575s [00:52:55.617] Packages: 1575s [00:52:55.617] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1575s [00:52:55.617] Resolved: TRUE 1575s [00:52:55.617] Value: 2.02 KiB of class ‘list’ 1575s [00:52:55.617] Early signaling: FALSE 1575s [00:52:55.617] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1575s [00:52:55.617] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1575s [00:52:55.619] Chunk #1 of 1 ... DONE 1575s [00:52:55.619] Launching 1 futures (chunks) ... DONE 1575s [00:52:55.619] Resolving 1 futures (chunks) ... 1575s [00:52:55.620] resolve() on list ... 1575s [00:52:55.620] recursive: 0 1575s [00:52:55.620] length: 1 1575s [00:52:55.620] 1575s [00:52:55.620] resolved() for ‘SequentialFuture’ ... 1575s [00:52:55.621] - state: ‘finished’ 1575s [00:52:55.621] - run: TRUE 1575s [00:52:55.621] - result: ‘FutureResult’ 1575s [00:52:55.621] resolved() for ‘SequentialFuture’ ... done 1575s [00:52:55.622] Future #1 1575s [00:52:55.622] signalConditionsASAP(SequentialFuture, pos=1) ... 1575s [00:52:55.622] - nx: 1 1575s [00:52:55.622] - relay: TRUE 1575s [00:52:55.623] - stdout: TRUE 1575s [00:52:55.623] - signal: TRUE 1575s [00:52:55.623] - resignal: FALSE 1575s [00:52:55.623] - force: TRUE 1575s [00:52:55.623] - relayed: [n=1] FALSE 1575s [00:52:55.623] - queued futures: [n=1] FALSE 1575s [00:52:55.624] - until=1 1575s [00:52:55.624] - relaying element #1 1575s [00:52:55.624] - relayed: [n=1] TRUE 1575s [00:52:55.624] - queued futures: [n=1] TRUE 1575s [00:52:55.625] signalConditionsASAP(SequentialFuture, pos=1) ... done 1575s [00:52:55.625] length: 0 (resolved future 1) 1575s [00:52:55.625] Relaying remaining futures 1575s [00:52:55.625] signalConditionsASAP(NULL, pos=0) ... 1575s [00:52:55.625] - nx: 1 1575s [00:52:55.625] - relay: TRUE 1575s [00:52:55.626] - stdout: TRUE 1575s [00:52:55.626] - signal: TRUE 1575s [00:52:55.626] - resignal: FALSE 1575s [00:52:55.626] - force: TRUE 1575s [00:52:55.626] - relayed: [n=1] TRUE 1575s [00:52:55.626] - queued futures: [n=1] TRUE 1575s - flush all 1575s [00:52:55.627] - relayed: [n=1] TRUE 1575s [00:52:55.627] - queued futures: [n=1] TRUE 1575s [00:52:55.627] signalConditionsASAP(NULL, pos=0) ... done 1575s [00:52:55.628] resolve() on list ... DONE 1575s [00:52:55.628] - Number of value chunks collected: 1 1575s [00:52:55.628] Resolving 1 futures (chunks) ... DONE 1575s [00:52:55.628] Reducing values from 1 chunks ... 1575s [00:52:55.628] - Number of values collected after concatenation: 6 1575s [00:52:55.629] - Number of values expected: 6 1575s [00:52:55.629] Reducing values from 1 chunks ... DONE 1575s [00:52:55.629] future_lapply() ... DONE 1575s List of 2 1575s $ y0:List of 6 1575s ..$ a1: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1575s ..$ a2: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1575s ..$ b1: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1575s ..$ b2: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1575s ..$ c1: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1575s ..$ c2: num [1:3, 1:5] 8 8 8 16 16 16 24 24 24 32 ... 1575s $ y1:List of 6 1575s ..$ a1: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1575s ..$ a2: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1575s ..$ b1: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1575s ..$ b2: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1575s ..$ c1: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1575s ..$ c2: num [1:3, 1:5] 8 8 8 16 16 16 24 24 24 32 ... 1575s List of 2 1575s $ y0:List of 6 1575s ..$ a1: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1575s ..$ a2: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1575s ..$ b1: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1575s ..$ b2: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1575s ..$ c1: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1575s ..$ c2: num [1:3, 1:5] 8 8 8 16 16 16 24 24 24 32 ... 1575s $ y2:List of 6 1575s ..$ a1: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1575s ..$ a2: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1575s ..$ b1: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1575s ..$ b2: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1575s ..$ c1: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1575s ..$ c2: num [1:3, 1:5] 8 8 8 16 16 16 24 24 24 32 ... 1575s [00:52:55.649] future_lapply() ... 1575s [00:52:55.653] Number of chunks: 1 1575s [00:52:55.653] getGlobalsAndPackagesXApply() ... 1575s [00:52:55.653] - future.globals: TRUE 1575s [00:52:55.653] getGlobalsAndPackages() ... 1575s [00:52:55.653] Searching for globals... 1575s [00:52:55.655] - globals found: [1] ‘FUN’ 1575s [00:52:55.655] Searching for globals ... DONE 1575s [00:52:55.655] Resolving globals: FALSE 1575s [00:52:55.656] The total size of the 1 globals is 848 bytes (848 bytes) 1575s [00:52:55.656] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1575s [00:52:55.656] - globals: [1] ‘FUN’ 1575s [00:52:55.656] 1575s [00:52:55.656] getGlobalsAndPackages() ... DONE 1575s [00:52:55.656] - globals found/used: [n=1] ‘FUN’ 1575s [00:52:55.657] - needed namespaces: [n=0] 1575s [00:52:55.657] Finding globals ... DONE 1575s [00:52:55.657] - use_args: TRUE 1575s [00:52:55.657] - Getting '...' globals ... 1575s [00:52:55.657] resolve() on list ... 1575s [00:52:55.657] recursive: 0 1575s [00:52:55.658] length: 1 1575s [00:52:55.658] elements: ‘...’ 1575s [00:52:55.658] length: 0 (resolved future 1) 1575s [00:52:55.658] resolve() on list ... DONE 1575s [00:52:55.658] - '...' content: [n=0] 1575s [00:52:55.658] List of 1 1575s [00:52:55.658] $ ...: list() 1575s [00:52:55.658] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:55.658] - attr(*, "where")=List of 1 1575s [00:52:55.658] ..$ ...: 1575s [00:52:55.658] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:55.658] - attr(*, "resolved")= logi TRUE 1575s [00:52:55.658] - attr(*, "total_size")= num NA 1575s [00:52:55.663] - Getting '...' globals ... DONE 1575s [00:52:55.663] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1575s [00:52:55.663] List of 2 1575s [00:52:55.663] $ ...future.FUN:function (x) 1575s [00:52:55.663] $ ... : list() 1575s [00:52:55.663] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:55.663] - attr(*, "where")=List of 2 1575s [00:52:55.663] ..$ ...future.FUN: 1575s [00:52:55.663] ..$ ... : 1575s [00:52:55.663] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:55.663] - attr(*, "resolved")= logi FALSE 1575s [00:52:55.663] - attr(*, "total_size")= num 848 1575s [00:52:55.667] Packages to be attached in all futures: [n=0] 1575s [00:52:55.667] getGlobalsAndPackagesXApply() ... DONE 1575s [00:52:55.667] Number of futures (= number of chunks): 1 1575s [00:52:55.668] Launching 1 futures (chunks) ... 1575s [00:52:55.668] Chunk #1 of 1 ... 1575s [00:52:55.668] - Finding globals in 'X' for chunk #1 ... 1575s [00:52:55.668] getGlobalsAndPackages() ... 1575s [00:52:55.668] Searching for globals... 1575s [00:52:55.669] 1575s [00:52:55.669] Searching for globals ... DONE 1575s [00:52:55.670] - globals: [0] 1575s [00:52:55.670] getGlobalsAndPackages() ... DONE 1575s [00:52:55.670] + additional globals found: [n=0] 1575s [00:52:55.670] + additional namespaces needed: [n=0] 1575s [00:52:55.670] - Finding globals in 'X' for chunk #1 ... DONE 1575s [00:52:55.670] - seeds: 1575s [00:52:55.671] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:55.671] getGlobalsAndPackages() ... 1575s [00:52:55.671] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:55.671] Resolving globals: FALSE 1575s [00:52:55.671] Tweak future expression to call with '...' arguments ... 1575s [00:52:55.671] { 1575s [00:52:55.671] do.call(function(...) { 1575s [00:52:55.671] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:55.671] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1575s [00:52:55.671] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:55.671] on.exit(options(oopts), add = TRUE) 1575s [00:52:55.671] } 1575s [00:52:55.671] { 1575s [00:52:55.671] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1575s [00:52:55.671] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:55.671] ...future.FUN(...future.X_jj, ...) 1575s [00:52:55.671] }) 1575s [00:52:55.671] } 1575s [00:52:55.671] }, args = future.call.arguments) 1575s [00:52:55.671] } 1575s [00:52:55.672] Tweak future expression to call with '...' arguments ... DONE 1575s [00:52:55.673] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:55.673] 1575s [00:52:55.673] getGlobalsAndPackages() ... DONE 1575s [00:52:55.673] run() for ‘Future’ ... 1575s [00:52:55.674] - state: ‘created’ 1575s [00:52:55.674] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1575s [00:52:55.678] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1575s [00:52:55.678] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1575s [00:52:55.678] - Field: ‘label’ 1575s [00:52:55.678] - Field: ‘local’ 1575s [00:52:55.678] - Field: ‘owner’ 1575s [00:52:55.678] - Field: ‘envir’ 1575s [00:52:55.679] - Field: ‘packages’ 1575s [00:52:55.679] - Field: ‘gc’ 1575s [00:52:55.679] - Field: ‘conditions’ 1575s [00:52:55.679] - Field: ‘expr’ 1575s [00:52:55.679] - Field: ‘uuid’ 1575s [00:52:55.679] - Field: ‘seed’ 1575s [00:52:55.679] - Field: ‘version’ 1575s [00:52:55.679] - Field: ‘result’ 1575s [00:52:55.680] - Field: ‘asynchronous’ 1575s [00:52:55.680] - Field: ‘calls’ 1575s [00:52:55.680] - Field: ‘globals’ 1575s [00:52:55.680] - Field: ‘stdout’ 1575s [00:52:55.680] - Field: ‘earlySignal’ 1575s [00:52:55.681] - Field: ‘lazy’ 1575s [00:52:55.681] - Field: ‘state’ 1575s [00:52:55.681] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1575s [00:52:55.681] - Launch lazy future ... 1575s [00:52:55.682] Packages needed by the future expression (n = 0): 1575s [00:52:55.682] Packages needed by future strategies (n = 0): 1575s [00:52:55.683] { 1575s [00:52:55.683] { 1575s [00:52:55.683] { 1575s [00:52:55.683] ...future.startTime <- base::Sys.time() 1575s [00:52:55.683] { 1575s [00:52:55.683] { 1575s [00:52:55.683] { 1575s [00:52:55.683] base::local({ 1575s [00:52:55.683] has_future <- base::requireNamespace("future", 1575s [00:52:55.683] quietly = TRUE) 1575s [00:52:55.683] if (has_future) { 1575s [00:52:55.683] ns <- base::getNamespace("future") 1575s [00:52:55.683] version <- ns[[".package"]][["version"]] 1575s [00:52:55.683] if (is.null(version)) 1575s [00:52:55.683] version <- utils::packageVersion("future") 1575s [00:52:55.683] } 1575s [00:52:55.683] else { 1575s [00:52:55.683] version <- NULL 1575s [00:52:55.683] } 1575s [00:52:55.683] if (!has_future || version < "1.8.0") { 1575s [00:52:55.683] info <- base::c(r_version = base::gsub("R version ", 1575s [00:52:55.683] "", base::R.version$version.string), 1575s [00:52:55.683] platform = base::sprintf("%s (%s-bit)", 1575s [00:52:55.683] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1575s [00:52:55.683] os = base::paste(base::Sys.info()[base::c("sysname", 1575s [00:52:55.683] "release", "version")], collapse = " "), 1575s [00:52:55.683] hostname = base::Sys.info()[["nodename"]]) 1575s [00:52:55.683] info <- base::sprintf("%s: %s", base::names(info), 1575s [00:52:55.683] info) 1575s [00:52:55.683] info <- base::paste(info, collapse = "; ") 1575s [00:52:55.683] if (!has_future) { 1575s [00:52:55.683] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1575s [00:52:55.683] info) 1575s [00:52:55.683] } 1575s [00:52:55.683] else { 1575s [00:52:55.683] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1575s [00:52:55.683] info, version) 1575s [00:52:55.683] } 1575s [00:52:55.683] base::stop(msg) 1575s [00:52:55.683] } 1575s [00:52:55.683] }) 1575s [00:52:55.683] } 1575s [00:52:55.683] options(future.plan = NULL) 1575s [00:52:55.683] Sys.unsetenv("R_FUTURE_PLAN") 1575s [00:52:55.683] future::plan("default", .cleanup = FALSE, .init = FALSE) 1575s [00:52:55.683] } 1575s [00:52:55.683] ...future.workdir <- getwd() 1575s [00:52:55.683] } 1575s [00:52:55.683] ...future.oldOptions <- base::as.list(base::.Options) 1575s [00:52:55.683] ...future.oldEnvVars <- base::Sys.getenv() 1575s [00:52:55.683] } 1575s [00:52:55.683] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1575s [00:52:55.683] future.globals.maxSize = NULL, future.globals.method = NULL, 1575s [00:52:55.683] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1575s [00:52:55.683] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1575s [00:52:55.683] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1575s [00:52:55.683] future.stdout.windows.reencode = NULL, width = 80L) 1575s [00:52:55.683] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1575s [00:52:55.683] base::names(...future.oldOptions)) 1575s [00:52:55.683] } 1575s [00:52:55.683] if (FALSE) { 1575s [00:52:55.683] } 1575s [00:52:55.683] else { 1575s [00:52:55.683] if (TRUE) { 1575s [00:52:55.683] ...future.stdout <- base::rawConnection(base::raw(0L), 1575s [00:52:55.683] open = "w") 1575s [00:52:55.683] } 1575s [00:52:55.683] else { 1575s [00:52:55.683] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1575s [00:52:55.683] windows = "NUL", "/dev/null"), open = "w") 1575s [00:52:55.683] } 1575s [00:52:55.683] base::sink(...future.stdout, type = "output", split = FALSE) 1575s [00:52:55.683] base::on.exit(if (!base::is.null(...future.stdout)) { 1575s [00:52:55.683] base::sink(type = "output", split = FALSE) 1575s [00:52:55.683] base::close(...future.stdout) 1575s [00:52:55.683] }, add = TRUE) 1575s [00:52:55.683] } 1575s [00:52:55.683] ...future.frame <- base::sys.nframe() 1575s [00:52:55.683] ...future.conditions <- base::list() 1575s [00:52:55.683] ...future.rng <- base::globalenv()$.Random.seed 1575s [00:52:55.683] if (FALSE) { 1575s [00:52:55.683] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1575s [00:52:55.683] "...future.value", "...future.globalenv.names", ".Random.seed") 1575s [00:52:55.683] } 1575s [00:52:55.683] ...future.result <- base::tryCatch({ 1575s [00:52:55.683] base::withCallingHandlers({ 1575s [00:52:55.683] ...future.value <- base::withVisible(base::local({ 1575s [00:52:55.683] do.call(function(...) { 1575s [00:52:55.683] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:55.683] if (!identical(...future.globals.maxSize.org, 1575s [00:52:55.683] ...future.globals.maxSize)) { 1575s [00:52:55.683] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:55.683] on.exit(options(oopts), add = TRUE) 1575s [00:52:55.683] } 1575s [00:52:55.683] { 1575s [00:52:55.683] lapply(seq_along(...future.elements_ii), 1575s [00:52:55.683] FUN = function(jj) { 1575s [00:52:55.683] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:55.683] ...future.FUN(...future.X_jj, ...) 1575s [00:52:55.683] }) 1575s [00:52:55.683] } 1575s [00:52:55.683] }, args = future.call.arguments) 1575s [00:52:55.683] })) 1575s [00:52:55.683] future::FutureResult(value = ...future.value$value, 1575s [00:52:55.683] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1575s [00:52:55.683] ...future.rng), globalenv = if (FALSE) 1575s [00:52:55.683] list(added = base::setdiff(base::names(base::.GlobalEnv), 1575s [00:52:55.683] ...future.globalenv.names)) 1575s [00:52:55.683] else NULL, started = ...future.startTime, version = "1.8") 1575s [00:52:55.683] }, condition = base::local({ 1575s [00:52:55.683] c <- base::c 1575s [00:52:55.683] inherits <- base::inherits 1575s [00:52:55.683] invokeRestart <- base::invokeRestart 1575s [00:52:55.683] length <- base::length 1575s [00:52:55.683] list <- base::list 1575s [00:52:55.683] seq.int <- base::seq.int 1575s [00:52:55.683] signalCondition <- base::signalCondition 1575s [00:52:55.683] sys.calls <- base::sys.calls 1575s [00:52:55.683] `[[` <- base::`[[` 1575s [00:52:55.683] `+` <- base::`+` 1575s [00:52:55.683] `<<-` <- base::`<<-` 1575s [00:52:55.683] sysCalls <- function(calls = sys.calls(), from = 1L) { 1575s [00:52:55.683] calls[seq.int(from = from + 12L, to = length(calls) - 1575s [00:52:55.683] 3L)] 1575s [00:52:55.683] } 1575s [00:52:55.683] function(cond) { 1575s [00:52:55.683] is_error <- inherits(cond, "error") 1575s [00:52:55.683] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1575s [00:52:55.683] NULL) 1575s [00:52:55.683] if (is_error) { 1575s [00:52:55.683] sessionInformation <- function() { 1575s [00:52:55.683] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1575s [00:52:55.683] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1575s [00:52:55.683] search = base::search(), system = base::Sys.info()) 1575s [00:52:55.683] } 1575s [00:52:55.683] ...future.conditions[[length(...future.conditions) + 1575s [00:52:55.683] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1575s [00:52:55.683] cond$call), session = sessionInformation(), 1575s [00:52:55.683] timestamp = base::Sys.time(), signaled = 0L) 1575s [00:52:55.683] signalCondition(cond) 1575s [00:52:55.683] } 1575s [00:52:55.683] else if (!ignore && TRUE && inherits(cond, c("condition", 1575s [00:52:55.683] "immediateCondition"))) { 1575s [00:52:55.683] signal <- TRUE && inherits(cond, "immediateCondition") 1575s [00:52:55.683] ...future.conditions[[length(...future.conditions) + 1575s [00:52:55.683] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1575s [00:52:55.683] if (TRUE && !signal) { 1575s [00:52:55.683] muffleCondition <- function (cond, pattern = "^muffle") 1575s [00:52:55.683] { 1575s [00:52:55.683] inherits <- base::inherits 1575s [00:52:55.683] invokeRestart <- base::invokeRestart 1575s [00:52:55.683] is.null <- base::is.null 1575s [00:52:55.683] muffled <- FALSE 1575s [00:52:55.683] if (inherits(cond, "message")) { 1575s [00:52:55.683] muffled <- grepl(pattern, "muffleMessage") 1575s [00:52:55.683] if (muffled) 1575s [00:52:55.683] invokeRestart("muffleMessage") 1575s [00:52:55.683] } 1575s [00:52:55.683] else if (inherits(cond, "warning")) { 1575s [00:52:55.683] muffled <- grepl(pattern, "muffleWarning") 1575s [00:52:55.683] if (muffled) 1575s [00:52:55.683] invokeRestart("muffleWarning") 1575s [00:52:55.683] } 1575s [00:52:55.683] else if (inherits(cond, "condition")) { 1575s [00:52:55.683] if (!is.null(pattern)) { 1575s [00:52:55.683] computeRestarts <- base::computeRestarts 1575s [00:52:55.683] grepl <- base::grepl 1575s [00:52:55.683] restarts <- computeRestarts(cond) 1575s [00:52:55.683] for (restart in restarts) { 1575s [00:52:55.683] name <- restart$name 1575s [00:52:55.683] if (is.null(name)) 1575s [00:52:55.683] next 1575s [00:52:55.683] if (!grepl(pattern, name)) 1575s [00:52:55.683] next 1575s [00:52:55.683] invokeRestart(restart) 1575s [00:52:55.683] muffled <- TRUE 1575s [00:52:55.683] break 1575s [00:52:55.683] } 1575s [00:52:55.683] } 1575s [00:52:55.683] } 1575s [00:52:55.683] invisible(muffled) 1575s [00:52:55.683] } 1575s [00:52:55.683] muffleCondition(cond, pattern = "^muffle") 1575s [00:52:55.683] } 1575s [00:52:55.683] } 1575s [00:52:55.683] else { 1575s [00:52:55.683] if (TRUE) { 1575s [00:52:55.683] muffleCondition <- function (cond, pattern = "^muffle") 1575s [00:52:55.683] { 1575s [00:52:55.683] inherits <- base::inherits 1575s [00:52:55.683] invokeRestart <- base::invokeRestart 1575s [00:52:55.683] is.null <- base::is.null 1575s [00:52:55.683] muffled <- FALSE 1575s [00:52:55.683] if (inherits(cond, "message")) { 1575s [00:52:55.683] muffled <- grepl(pattern, "muffleMessage") 1575s [00:52:55.683] if (muffled) 1575s [00:52:55.683] invokeRestart("muffleMessage") 1575s [00:52:55.683] } 1575s [00:52:55.683] else if (inherits(cond, "warning")) { 1575s [00:52:55.683] muffled <- grepl(pattern, "muffleWarning") 1575s [00:52:55.683] if (muffled) 1575s [00:52:55.683] invokeRestart("muffleWarning") 1575s [00:52:55.683] } 1575s [00:52:55.683] else if (inherits(cond, "condition")) { 1575s [00:52:55.683] if (!is.null(pattern)) { 1575s [00:52:55.683] computeRestarts <- base::computeRestarts 1575s [00:52:55.683] grepl <- base::grepl 1575s [00:52:55.683] restarts <- computeRestarts(cond) 1575s [00:52:55.683] for (restart in restarts) { 1575s [00:52:55.683] name <- restart$name 1575s [00:52:55.683] if (is.null(name)) 1575s [00:52:55.683] next 1575s [00:52:55.683] if (!grepl(pattern, name)) 1575s [00:52:55.683] next 1575s [00:52:55.683] invokeRestart(restart) 1575s [00:52:55.683] muffled <- TRUE 1575s [00:52:55.683] break 1575s [00:52:55.683] } 1575s [00:52:55.683] } 1575s [00:52:55.683] } 1575s [00:52:55.683] invisible(muffled) 1575s [00:52:55.683] } 1575s [00:52:55.683] muffleCondition(cond, pattern = "^muffle") 1575s [00:52:55.683] } 1575s [00:52:55.683] } 1575s [00:52:55.683] } 1575s [00:52:55.683] })) 1575s [00:52:55.683] }, error = function(ex) { 1575s [00:52:55.683] base::structure(base::list(value = NULL, visible = NULL, 1575s [00:52:55.683] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1575s [00:52:55.683] ...future.rng), started = ...future.startTime, 1575s [00:52:55.683] finished = Sys.time(), session_uuid = NA_character_, 1575s [00:52:55.683] version = "1.8"), class = "FutureResult") 1575s [00:52:55.683] }, finally = { 1575s [00:52:55.683] if (!identical(...future.workdir, getwd())) 1575s [00:52:55.683] setwd(...future.workdir) 1575s [00:52:55.683] { 1575s [00:52:55.683] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1575s [00:52:55.683] ...future.oldOptions$nwarnings <- NULL 1575s [00:52:55.683] } 1575s [00:52:55.683] base::options(...future.oldOptions) 1575s [00:52:55.683] if (.Platform$OS.type == "windows") { 1575s [00:52:55.683] old_names <- names(...future.oldEnvVars) 1575s [00:52:55.683] envs <- base::Sys.getenv() 1575s [00:52:55.683] names <- names(envs) 1575s [00:52:55.683] common <- intersect(names, old_names) 1575s [00:52:55.683] added <- setdiff(names, old_names) 1575s [00:52:55.683] removed <- setdiff(old_names, names) 1575s [00:52:55.683] changed <- common[...future.oldEnvVars[common] != 1575s [00:52:55.683] envs[common]] 1575s [00:52:55.683] NAMES <- toupper(changed) 1575s [00:52:55.683] args <- list() 1575s [00:52:55.683] for (kk in seq_along(NAMES)) { 1575s [00:52:55.683] name <- changed[[kk]] 1575s [00:52:55.683] NAME <- NAMES[[kk]] 1575s [00:52:55.683] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:55.683] next 1575s [00:52:55.683] args[[name]] <- ...future.oldEnvVars[[name]] 1575s [00:52:55.683] } 1575s [00:52:55.683] NAMES <- toupper(added) 1575s [00:52:55.683] for (kk in seq_along(NAMES)) { 1575s [00:52:55.683] name <- added[[kk]] 1575s [00:52:55.683] NAME <- NAMES[[kk]] 1575s [00:52:55.683] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:55.683] next 1575s [00:52:55.683] args[[name]] <- "" 1575s [00:52:55.683] } 1575s [00:52:55.683] NAMES <- toupper(removed) 1575s [00:52:55.683] for (kk in seq_along(NAMES)) { 1575s [00:52:55.683] name <- removed[[kk]] 1575s [00:52:55.683] NAME <- NAMES[[kk]] 1575s [00:52:55.683] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:55.683] next 1575s [00:52:55.683] args[[name]] <- ...future.oldEnvVars[[name]] 1575s [00:52:55.683] } 1575s [00:52:55.683] if (length(args) > 0) 1575s [00:52:55.683] base::do.call(base::Sys.setenv, args = args) 1575s [00:52:55.683] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1575s [00:52:55.683] } 1575s [00:52:55.683] else { 1575s [00:52:55.683] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1575s [00:52:55.683] } 1575s [00:52:55.683] { 1575s [00:52:55.683] if (base::length(...future.futureOptionsAdded) > 1575s [00:52:55.683] 0L) { 1575s [00:52:55.683] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1575s [00:52:55.683] base::names(opts) <- ...future.futureOptionsAdded 1575s [00:52:55.683] base::options(opts) 1575s [00:52:55.683] } 1575s [00:52:55.683] { 1575s [00:52:55.683] { 1575s [00:52:55.683] NULL 1575s [00:52:55.683] RNGkind("Mersenne-Twister") 1575s [00:52:55.683] base::rm(list = ".Random.seed", envir = base::globalenv(), 1575s [00:52:55.683] inherits = FALSE) 1575s [00:52:55.683] } 1575s [00:52:55.683] options(future.plan = NULL) 1575s [00:52:55.683] if (is.na(NA_character_)) 1575s [00:52:55.683] Sys.unsetenv("R_FUTURE_PLAN") 1575s [00:52:55.683] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1575s [00:52:55.683] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1575s [00:52:55.683] envir = parent.frame()) 1575s [00:52:55.683] { 1575s [00:52:55.683] default_workers <- missing(workers) 1575s [00:52:55.683] if (is.function(workers)) 1575s [00:52:55.683] workers <- workers() 1575s [00:52:55.683] workers <- structure(as.integer(workers), 1575s [00:52:55.683] class = class(workers)) 1575s [00:52:55.683] stop_if_not(is.finite(workers), workers >= 1575s [00:52:55.683] 1L) 1575s [00:52:55.683] if ((workers == 1L && !inherits(workers, 1575s [00:52:55.683] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1575s [00:52:55.683] if (default_workers) 1575s [00:52:55.683] supportsMulticore(warn = TRUE) 1575s [00:52:55.683] return(sequential(..., envir = envir)) 1575s [00:52:55.683] } 1575s [00:52:55.683] oopts <- options(mc.cores = workers) 1575s [00:52:55.683] on.exit(options(oopts)) 1575s [00:52:55.683] future <- MulticoreFuture(..., workers = workers, 1575s [00:52:55.683] envir = envir) 1575s [00:52:55.683] if (!future$lazy) 1575s [00:52:55.683] future <- run(future) 1575s [00:52:55.683] invisible(future) 1575s [00:52:55.683] }), .cleanup = FALSE, .init = FALSE) 1575s [00:52:55.683] } 1575s [00:52:55.683] } 1575s [00:52:55.683] } 1575s [00:52:55.683] }) 1575s [00:52:55.683] if (TRUE) { 1575s [00:52:55.683] base::sink(type = "output", split = FALSE) 1575s [00:52:55.683] if (TRUE) { 1575s [00:52:55.683] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1575s [00:52:55.683] } 1575s [00:52:55.683] else { 1575s [00:52:55.683] ...future.result["stdout"] <- base::list(NULL) 1575s [00:52:55.683] } 1575s [00:52:55.683] base::close(...future.stdout) 1575s [00:52:55.683] ...future.stdout <- NULL 1575s [00:52:55.683] } 1575s [00:52:55.683] ...future.result$conditions <- ...future.conditions 1575s [00:52:55.683] ...future.result$finished <- base::Sys.time() 1575s [00:52:55.683] ...future.result 1575s [00:52:55.683] } 1575s [00:52:55.686] assign_globals() ... 1575s [00:52:55.686] List of 5 1575s [00:52:55.686] $ ...future.FUN :function (x) 1575s [00:52:55.686] $ future.call.arguments : list() 1575s [00:52:55.686] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:55.686] $ ...future.elements_ii :List of 6 1575s [00:52:55.686] ..$ a1: int 1 1575s [00:52:55.686] ..$ a2: int 2 1575s [00:52:55.686] ..$ b1: int 2 1575s [00:52:55.686] ..$ b2: int 3 1575s [00:52:55.686] ..$ c1: int 3 1575s [00:52:55.686] ..$ c2: int 4 1575s [00:52:55.686] $ ...future.seeds_ii : NULL 1575s [00:52:55.686] $ ...future.globals.maxSize: NULL 1575s [00:52:55.686] - attr(*, "where")=List of 5 1575s [00:52:55.686] ..$ ...future.FUN : 1575s [00:52:55.686] ..$ future.call.arguments : 1575s [00:52:55.686] ..$ ...future.elements_ii : 1575s [00:52:55.686] ..$ ...future.seeds_ii : 1575s [00:52:55.686] ..$ ...future.globals.maxSize: 1575s [00:52:55.686] - attr(*, "resolved")= logi FALSE 1575s [00:52:55.686] - attr(*, "total_size")= num 848 1575s [00:52:55.686] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:55.686] - attr(*, "already-done")= logi TRUE 1575s [00:52:55.697] - copied ‘...future.FUN’ to environment 1575s [00:52:55.697] - copied ‘future.call.arguments’ to environment 1575s [00:52:55.697] - copied ‘...future.elements_ii’ to environment 1575s [00:52:55.698] - copied ‘...future.seeds_ii’ to environment 1575s [00:52:55.698] - copied ‘...future.globals.maxSize’ to environment 1575s [00:52:55.698] assign_globals() ... done 1575s [00:52:55.699] plan(): Setting new future strategy stack: 1575s [00:52:55.699] List of future strategies: 1575s [00:52:55.699] 1. sequential: 1575s [00:52:55.699] - args: function (..., envir = parent.frame()) 1575s [00:52:55.699] - tweaked: FALSE 1575s [00:52:55.699] - call: NULL 1575s [00:52:55.699] plan(): nbrOfWorkers() = 1 1575s [00:52:55.704] plan(): Setting new future strategy stack: 1575s [00:52:55.705] List of future strategies: 1575s [00:52:55.705] 1. multicore: 1575s [00:52:55.705] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1575s [00:52:55.705] - tweaked: FALSE 1575s [00:52:55.705] - call: plan(strategy) 1575s [00:52:55.709] plan(): nbrOfWorkers() = 1 1575s [00:52:55.710] SequentialFuture started (and completed) 1575s [00:52:55.710] - Launch lazy future ... done 1575s [00:52:55.710] run() for ‘SequentialFuture’ ... done 1575s [00:52:55.710] Created future: 1575s [00:52:55.711] SequentialFuture: 1575s [00:52:55.711] Label: ‘future_sapply-1’ 1575s [00:52:55.711] Expression: 1575s [00:52:55.711] { 1575s [00:52:55.711] do.call(function(...) { 1575s [00:52:55.711] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:55.711] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1575s [00:52:55.711] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:55.711] on.exit(options(oopts), add = TRUE) 1575s [00:52:55.711] } 1575s [00:52:55.711] { 1575s [00:52:55.711] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1575s [00:52:55.711] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:55.711] ...future.FUN(...future.X_jj, ...) 1575s [00:52:55.711] }) 1575s [00:52:55.711] } 1575s [00:52:55.711] }, args = future.call.arguments) 1575s [00:52:55.711] } 1575s [00:52:55.711] Lazy evaluation: FALSE 1575s [00:52:55.711] Asynchronous evaluation: FALSE 1575s [00:52:55.711] Local evaluation: TRUE 1575s [00:52:55.711] Environment: R_GlobalEnv 1575s [00:52:55.711] Capture standard output: TRUE 1575s [00:52:55.711] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1575s [00:52:55.711] Globals: 5 objects totaling 1.16 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1575s [00:52:55.711] Packages: 1575s [00:52:55.711] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1575s [00:52:55.711] Resolved: TRUE 1575s [00:52:55.711] Value: 336 bytes of class ‘list’ 1575s [00:52:55.711] Early signaling: FALSE 1575s [00:52:55.711] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1575s [00:52:55.711] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1575s [00:52:55.713] Chunk #1 of 1 ... DONE 1575s [00:52:55.713] Launching 1 futures (chunks) ... DONE 1575s [00:52:55.713] Resolving 1 futures (chunks) ... 1575s [00:52:55.713] resolve() on list ... 1575s [00:52:55.713] recursive: 0 1575s [00:52:55.714] length: 1 1575s [00:52:55.714] 1575s [00:52:55.714] resolved() for ‘SequentialFuture’ ... 1575s [00:52:55.714] - state: ‘finished’ 1575s [00:52:55.714] - run: TRUE 1575s [00:52:55.714] - result: ‘FutureResult’ 1575s [00:52:55.715] resolved() for ‘SequentialFuture’ ... done 1575s [00:52:55.715] Future #1 1575s [00:52:55.715] signalConditionsASAP(SequentialFuture, pos=1) ... 1575s [00:52:55.715] - nx: 1 1575s [00:52:55.715] - relay: TRUE 1575s [00:52:55.716] - stdout: TRUE 1575s [00:52:55.716] - signal: TRUE 1575s [00:52:55.716] - resignal: FALSE 1575s [00:52:55.716] - force: TRUE 1575s [00:52:55.716] - relayed: [n=1] FALSE 1575s [00:52:55.716] - queued futures: [n=1] FALSE 1575s [00:52:55.717] - until=1 1575s [00:52:55.717] - relaying element #1 1575s [00:52:55.717] - relayed: [n=1] TRUE 1575s [00:52:55.718] - queued futures: [n=1] TRUE 1575s [00:52:55.718] signalConditionsASAP(SequentialFuture, pos=1) ... done 1575s [00:52:55.719] length: 0 (resolved future 1) 1575s [00:52:55.719] Relaying remaining futures 1575s [00:52:55.719] signalConditionsASAP(NULL, pos=0) ... 1575s [00:52:55.719] - nx: 1 1575s [00:52:55.719] - relay: TRUE 1575s [00:52:55.720] - stdout: TRUE 1575s [00:52:55.720] - signal: TRUE 1575s [00:52:55.721] - resignal: FALSE 1575s [00:52:55.721] - force: TRUE 1575s [00:52:55.721] - relayed: [n=1] TRUE 1575s [00:52:55.722] - queued futures: [n=1] TRUE 1575s - flush all 1575s [00:52:55.722] - relayed: [n=1] TRUE 1575s [00:52:55.722] - queued futures: [n=1] TRUE 1575s [00:52:55.722] signalConditionsASAP(NULL, pos=0) ... done 1575s [00:52:55.723] resolve() on list ... DONE 1575s [00:52:55.723] - Number of value chunks collected: 1 1575s [00:52:55.723] Resolving 1 futures (chunks) ... DONE 1575s [00:52:55.723] Reducing values from 1 chunks ... 1575s [00:52:55.723] - Number of values collected after concatenation: 6 1575s [00:52:55.723] - Number of values expected: 6 1575s [00:52:55.724] Reducing values from 1 chunks ... DONE 1575s [00:52:55.724] future_lapply() ... DONE 1575s List of 2 1575s $ y0: Named int [1:6] 1 2 2 3 3 4 1575s ..- attr(*, "names")= chr [1:6] "a1" "a2" "b1" "b2" ... 1575s $ y1: Named int [1:6] 1 2 2 3 3 4 1575s ..- attr(*, "names")= chr [1:6] "a1" "a2" "b1" "b2" ... 1575s [00:52:55.728] future_lapply() ... 1575s [00:52:55.733] Number of chunks: 1 1575s [00:52:55.733] getGlobalsAndPackagesXApply() ... 1575s [00:52:55.733] - future.globals: TRUE 1575s [00:52:55.734] getGlobalsAndPackages() ... 1575s [00:52:55.734] Searching for globals... 1575s [00:52:55.736] - globals found: [2] ‘FUN’, ‘UseMethod’ 1575s [00:52:55.736] Searching for globals ... DONE 1575s [00:52:55.736] Resolving globals: FALSE 1575s [00:52:55.737] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1575s [00:52:55.737] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1575s [00:52:55.737] - globals: [1] ‘FUN’ 1575s [00:52:55.737] 1575s [00:52:55.737] getGlobalsAndPackages() ... DONE 1575s [00:52:55.738] - globals found/used: [n=1] ‘FUN’ 1575s [00:52:55.738] - needed namespaces: [n=0] 1575s [00:52:55.738] Finding globals ... DONE 1575s [00:52:55.739] - use_args: TRUE 1575s [00:52:55.739] - Getting '...' globals ... 1575s [00:52:55.739] resolve() on list ... 1575s [00:52:55.740] recursive: 0 1575s [00:52:55.740] length: 1 1575s [00:52:55.740] elements: ‘...’ 1575s [00:52:55.740] length: 0 (resolved future 1) 1575s [00:52:55.740] resolve() on list ... DONE 1575s [00:52:55.741] - '...' content: [n=0] 1575s [00:52:55.741] List of 1 1575s [00:52:55.741] $ ...: list() 1575s [00:52:55.741] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:55.741] - attr(*, "where")=List of 1 1575s [00:52:55.741] ..$ ...: 1575s [00:52:55.741] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:55.741] - attr(*, "resolved")= logi TRUE 1575s [00:52:55.741] - attr(*, "total_size")= num NA 1575s [00:52:55.744] - Getting '...' globals ... DONE 1575s [00:52:55.744] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1575s [00:52:55.744] List of 2 1575s [00:52:55.744] $ ...future.FUN:function (x, ...) 1575s [00:52:55.744] $ ... : list() 1575s [00:52:55.744] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:55.744] - attr(*, "where")=List of 2 1575s [00:52:55.744] ..$ ...future.FUN: 1575s [00:52:55.744] ..$ ... : 1575s [00:52:55.744] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:55.744] - attr(*, "resolved")= logi FALSE 1575s [00:52:55.744] - attr(*, "total_size")= num 1248 1575s [00:52:55.748] Packages to be attached in all futures: [n=0] 1575s [00:52:55.748] getGlobalsAndPackagesXApply() ... DONE 1575s [00:52:55.748] Number of futures (= number of chunks): 1 1575s [00:52:55.748] Launching 1 futures (chunks) ... 1575s [00:52:55.748] Chunk #1 of 1 ... 1575s [00:52:55.749] - Finding globals in 'X' for chunk #1 ... 1575s [00:52:55.749] getGlobalsAndPackages() ... 1575s [00:52:55.749] Searching for globals... 1575s [00:52:55.749] 1575s [00:52:55.749] Searching for globals ... DONE 1575s [00:52:55.749] - globals: [0] 1575s [00:52:55.750] getGlobalsAndPackages() ... DONE 1575s [00:52:55.750] + additional globals found: [n=0] 1575s [00:52:55.750] + additional namespaces needed: [n=0] 1575s [00:52:55.750] - Finding globals in 'X' for chunk #1 ... DONE 1575s [00:52:55.750] - seeds: 1575s [00:52:55.750] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:55.751] getGlobalsAndPackages() ... 1575s [00:52:55.751] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:55.751] Resolving globals: FALSE 1575s [00:52:55.751] Tweak future expression to call with '...' arguments ... 1575s [00:52:55.751] { 1575s [00:52:55.751] do.call(function(...) { 1575s [00:52:55.751] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:55.751] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1575s [00:52:55.751] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:55.751] on.exit(options(oopts), add = TRUE) 1575s [00:52:55.751] } 1575s [00:52:55.751] { 1575s [00:52:55.751] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1575s [00:52:55.751] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:55.751] ...future.FUN(...future.X_jj, ...) 1575s [00:52:55.751] }) 1575s [00:52:55.751] } 1575s [00:52:55.751] }, args = future.call.arguments) 1575s [00:52:55.751] } 1575s [00:52:55.752] Tweak future expression to call with '...' arguments ... DONE 1575s [00:52:55.752] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:55.752] 1575s [00:52:55.753] getGlobalsAndPackages() ... DONE 1575s [00:52:55.753] run() for ‘Future’ ... 1575s [00:52:55.753] - state: ‘created’ 1575s [00:52:55.753] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1575s [00:52:55.757] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1575s [00:52:55.757] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1575s [00:52:55.757] - Field: ‘label’ 1575s [00:52:55.758] - Field: ‘local’ 1575s [00:52:55.758] - Field: ‘owner’ 1575s [00:52:55.758] - Field: ‘envir’ 1575s [00:52:55.758] - Field: ‘packages’ 1575s [00:52:55.758] - Field: ‘gc’ 1575s [00:52:55.758] - Field: ‘conditions’ 1575s [00:52:55.759] - Field: ‘expr’ 1575s [00:52:55.759] - Field: ‘uuid’ 1575s [00:52:55.759] - Field: ‘seed’ 1575s [00:52:55.759] - Field: ‘version’ 1575s [00:52:55.759] - Field: ‘result’ 1575s [00:52:55.759] - Field: ‘asynchronous’ 1575s [00:52:55.759] - Field: ‘calls’ 1575s [00:52:55.760] - Field: ‘globals’ 1575s [00:52:55.760] - Field: ‘stdout’ 1575s [00:52:55.760] - Field: ‘earlySignal’ 1575s [00:52:55.760] - Field: ‘lazy’ 1575s [00:52:55.760] - Field: ‘state’ 1575s [00:52:55.760] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1575s [00:52:55.761] - Launch lazy future ... 1575s [00:52:55.761] Packages needed by the future expression (n = 0): 1575s [00:52:55.761] Packages needed by future strategies (n = 0): 1575s [00:52:55.762] { 1575s [00:52:55.762] { 1575s [00:52:55.762] { 1575s [00:52:55.762] ...future.startTime <- base::Sys.time() 1575s [00:52:55.762] { 1575s [00:52:55.762] { 1575s [00:52:55.762] { 1575s [00:52:55.762] base::local({ 1575s [00:52:55.762] has_future <- base::requireNamespace("future", 1575s [00:52:55.762] quietly = TRUE) 1575s [00:52:55.762] if (has_future) { 1575s [00:52:55.762] ns <- base::getNamespace("future") 1575s [00:52:55.762] version <- ns[[".package"]][["version"]] 1575s [00:52:55.762] if (is.null(version)) 1575s [00:52:55.762] version <- utils::packageVersion("future") 1575s [00:52:55.762] } 1575s [00:52:55.762] else { 1575s [00:52:55.762] version <- NULL 1575s [00:52:55.762] } 1575s [00:52:55.762] if (!has_future || version < "1.8.0") { 1575s [00:52:55.762] info <- base::c(r_version = base::gsub("R version ", 1575s [00:52:55.762] "", base::R.version$version.string), 1575s [00:52:55.762] platform = base::sprintf("%s (%s-bit)", 1575s [00:52:55.762] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1575s [00:52:55.762] os = base::paste(base::Sys.info()[base::c("sysname", 1575s [00:52:55.762] "release", "version")], collapse = " "), 1575s [00:52:55.762] hostname = base::Sys.info()[["nodename"]]) 1575s [00:52:55.762] info <- base::sprintf("%s: %s", base::names(info), 1575s [00:52:55.762] info) 1575s [00:52:55.762] info <- base::paste(info, collapse = "; ") 1575s [00:52:55.762] if (!has_future) { 1575s [00:52:55.762] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1575s [00:52:55.762] info) 1575s [00:52:55.762] } 1575s [00:52:55.762] else { 1575s [00:52:55.762] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1575s [00:52:55.762] info, version) 1575s [00:52:55.762] } 1575s [00:52:55.762] base::stop(msg) 1575s [00:52:55.762] } 1575s [00:52:55.762] }) 1575s [00:52:55.762] } 1575s [00:52:55.762] options(future.plan = NULL) 1575s [00:52:55.762] Sys.unsetenv("R_FUTURE_PLAN") 1575s [00:52:55.762] future::plan("default", .cleanup = FALSE, .init = FALSE) 1575s [00:52:55.762] } 1575s [00:52:55.762] ...future.workdir <- getwd() 1575s [00:52:55.762] } 1575s [00:52:55.762] ...future.oldOptions <- base::as.list(base::.Options) 1575s [00:52:55.762] ...future.oldEnvVars <- base::Sys.getenv() 1575s [00:52:55.762] } 1575s [00:52:55.762] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1575s [00:52:55.762] future.globals.maxSize = NULL, future.globals.method = NULL, 1575s [00:52:55.762] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1575s [00:52:55.762] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1575s [00:52:55.762] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1575s [00:52:55.762] future.stdout.windows.reencode = NULL, width = 80L) 1575s [00:52:55.762] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1575s [00:52:55.762] base::names(...future.oldOptions)) 1575s [00:52:55.762] } 1575s [00:52:55.762] if (FALSE) { 1575s [00:52:55.762] } 1575s [00:52:55.762] else { 1575s [00:52:55.762] if (TRUE) { 1575s [00:52:55.762] ...future.stdout <- base::rawConnection(base::raw(0L), 1575s [00:52:55.762] open = "w") 1575s [00:52:55.762] } 1575s [00:52:55.762] else { 1575s [00:52:55.762] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1575s [00:52:55.762] windows = "NUL", "/dev/null"), open = "w") 1575s [00:52:55.762] } 1575s [00:52:55.762] base::sink(...future.stdout, type = "output", split = FALSE) 1575s [00:52:55.762] base::on.exit(if (!base::is.null(...future.stdout)) { 1575s [00:52:55.762] base::sink(type = "output", split = FALSE) 1575s [00:52:55.762] base::close(...future.stdout) 1575s [00:52:55.762] }, add = TRUE) 1575s [00:52:55.762] } 1575s [00:52:55.762] ...future.frame <- base::sys.nframe() 1575s [00:52:55.762] ...future.conditions <- base::list() 1575s [00:52:55.762] ...future.rng <- base::globalenv()$.Random.seed 1575s [00:52:55.762] if (FALSE) { 1575s [00:52:55.762] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1575s [00:52:55.762] "...future.value", "...future.globalenv.names", ".Random.seed") 1575s [00:52:55.762] } 1575s [00:52:55.762] ...future.result <- base::tryCatch({ 1575s [00:52:55.762] base::withCallingHandlers({ 1575s [00:52:55.762] ...future.value <- base::withVisible(base::local({ 1575s [00:52:55.762] do.call(function(...) { 1575s [00:52:55.762] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:55.762] if (!identical(...future.globals.maxSize.org, 1575s [00:52:55.762] ...future.globals.maxSize)) { 1575s [00:52:55.762] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:55.762] on.exit(options(oopts), add = TRUE) 1575s [00:52:55.762] } 1575s [00:52:55.762] { 1575s [00:52:55.762] lapply(seq_along(...future.elements_ii), 1575s [00:52:55.762] FUN = function(jj) { 1575s [00:52:55.762] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:55.762] ...future.FUN(...future.X_jj, ...) 1575s [00:52:55.762] }) 1575s [00:52:55.762] } 1575s [00:52:55.762] }, args = future.call.arguments) 1575s [00:52:55.762] })) 1575s [00:52:55.762] future::FutureResult(value = ...future.value$value, 1575s [00:52:55.762] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1575s [00:52:55.762] ...future.rng), globalenv = if (FALSE) 1575s [00:52:55.762] list(added = base::setdiff(base::names(base::.GlobalEnv), 1575s [00:52:55.762] ...future.globalenv.names)) 1575s [00:52:55.762] else NULL, started = ...future.startTime, version = "1.8") 1575s [00:52:55.762] }, condition = base::local({ 1575s [00:52:55.762] c <- base::c 1575s [00:52:55.762] inherits <- base::inherits 1575s [00:52:55.762] invokeRestart <- base::invokeRestart 1575s [00:52:55.762] length <- base::length 1575s [00:52:55.762] list <- base::list 1575s [00:52:55.762] seq.int <- base::seq.int 1575s [00:52:55.762] signalCondition <- base::signalCondition 1575s [00:52:55.762] sys.calls <- base::sys.calls 1575s [00:52:55.762] `[[` <- base::`[[` 1575s [00:52:55.762] `+` <- base::`+` 1575s [00:52:55.762] `<<-` <- base::`<<-` 1575s [00:52:55.762] sysCalls <- function(calls = sys.calls(), from = 1L) { 1575s [00:52:55.762] calls[seq.int(from = from + 12L, to = length(calls) - 1575s [00:52:55.762] 3L)] 1575s [00:52:55.762] } 1575s [00:52:55.762] function(cond) { 1575s [00:52:55.762] is_error <- inherits(cond, "error") 1575s [00:52:55.762] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1575s [00:52:55.762] NULL) 1575s [00:52:55.762] if (is_error) { 1575s [00:52:55.762] sessionInformation <- function() { 1575s [00:52:55.762] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1575s [00:52:55.762] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1575s [00:52:55.762] search = base::search(), system = base::Sys.info()) 1575s [00:52:55.762] } 1575s [00:52:55.762] ...future.conditions[[length(...future.conditions) + 1575s [00:52:55.762] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1575s [00:52:55.762] cond$call), session = sessionInformation(), 1575s [00:52:55.762] timestamp = base::Sys.time(), signaled = 0L) 1575s [00:52:55.762] signalCondition(cond) 1575s [00:52:55.762] } 1575s [00:52:55.762] else if (!ignore && TRUE && inherits(cond, c("condition", 1575s [00:52:55.762] "immediateCondition"))) { 1575s [00:52:55.762] signal <- TRUE && inherits(cond, "immediateCondition") 1575s [00:52:55.762] ...future.conditions[[length(...future.conditions) + 1575s [00:52:55.762] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1575s [00:52:55.762] if (TRUE && !signal) { 1575s [00:52:55.762] muffleCondition <- function (cond, pattern = "^muffle") 1575s [00:52:55.762] { 1575s [00:52:55.762] inherits <- base::inherits 1575s [00:52:55.762] invokeRestart <- base::invokeRestart 1575s [00:52:55.762] is.null <- base::is.null 1575s [00:52:55.762] muffled <- FALSE 1575s [00:52:55.762] if (inherits(cond, "message")) { 1575s [00:52:55.762] muffled <- grepl(pattern, "muffleMessage") 1575s [00:52:55.762] if (muffled) 1575s [00:52:55.762] invokeRestart("muffleMessage") 1575s [00:52:55.762] } 1575s [00:52:55.762] else if (inherits(cond, "warning")) { 1575s [00:52:55.762] muffled <- grepl(pattern, "muffleWarning") 1575s [00:52:55.762] if (muffled) 1575s [00:52:55.762] invokeRestart("muffleWarning") 1575s [00:52:55.762] } 1575s [00:52:55.762] else if (inherits(cond, "condition")) { 1575s [00:52:55.762] if (!is.null(pattern)) { 1575s [00:52:55.762] computeRestarts <- base::computeRestarts 1575s [00:52:55.762] grepl <- base::grepl 1575s [00:52:55.762] restarts <- computeRestarts(cond) 1575s [00:52:55.762] for (restart in restarts) { 1575s [00:52:55.762] name <- restart$name 1575s [00:52:55.762] if (is.null(name)) 1575s [00:52:55.762] next 1575s [00:52:55.762] if (!grepl(pattern, name)) 1575s [00:52:55.762] next 1575s [00:52:55.762] invokeRestart(restart) 1575s [00:52:55.762] muffled <- TRUE 1575s [00:52:55.762] break 1575s [00:52:55.762] } 1575s [00:52:55.762] } 1575s [00:52:55.762] } 1575s [00:52:55.762] invisible(muffled) 1575s [00:52:55.762] } 1575s [00:52:55.762] muffleCondition(cond, pattern = "^muffle") 1575s [00:52:55.762] } 1575s [00:52:55.762] } 1575s [00:52:55.762] else { 1575s [00:52:55.762] if (TRUE) { 1575s [00:52:55.762] muffleCondition <- function (cond, pattern = "^muffle") 1575s [00:52:55.762] { 1575s [00:52:55.762] inherits <- base::inherits 1575s [00:52:55.762] invokeRestart <- base::invokeRestart 1575s [00:52:55.762] is.null <- base::is.null 1575s [00:52:55.762] muffled <- FALSE 1575s [00:52:55.762] if (inherits(cond, "message")) { 1575s [00:52:55.762] muffled <- grepl(pattern, "muffleMessage") 1575s [00:52:55.762] if (muffled) 1575s [00:52:55.762] invokeRestart("muffleMessage") 1575s [00:52:55.762] } 1575s [00:52:55.762] else if (inherits(cond, "warning")) { 1575s [00:52:55.762] muffled <- grepl(pattern, "muffleWarning") 1575s [00:52:55.762] if (muffled) 1575s [00:52:55.762] invokeRestart("muffleWarning") 1575s [00:52:55.762] } 1575s [00:52:55.762] else if (inherits(cond, "condition")) { 1575s [00:52:55.762] if (!is.null(pattern)) { 1575s [00:52:55.762] computeRestarts <- base::computeRestarts 1575s [00:52:55.762] grepl <- base::grepl 1575s [00:52:55.762] restarts <- computeRestarts(cond) 1575s [00:52:55.762] for (restart in restarts) { 1575s [00:52:55.762] name <- restart$name 1575s [00:52:55.762] if (is.null(name)) 1575s [00:52:55.762] next 1575s [00:52:55.762] if (!grepl(pattern, name)) 1575s [00:52:55.762] next 1575s [00:52:55.762] invokeRestart(restart) 1575s [00:52:55.762] muffled <- TRUE 1575s [00:52:55.762] break 1575s [00:52:55.762] } 1575s [00:52:55.762] } 1575s [00:52:55.762] } 1575s [00:52:55.762] invisible(muffled) 1575s [00:52:55.762] } 1575s [00:52:55.762] muffleCondition(cond, pattern = "^muffle") 1575s [00:52:55.762] } 1575s [00:52:55.762] } 1575s [00:52:55.762] } 1575s [00:52:55.762] })) 1575s [00:52:55.762] }, error = function(ex) { 1575s [00:52:55.762] base::structure(base::list(value = NULL, visible = NULL, 1575s [00:52:55.762] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1575s [00:52:55.762] ...future.rng), started = ...future.startTime, 1575s [00:52:55.762] finished = Sys.time(), session_uuid = NA_character_, 1575s [00:52:55.762] version = "1.8"), class = "FutureResult") 1575s [00:52:55.762] }, finally = { 1575s [00:52:55.762] if (!identical(...future.workdir, getwd())) 1575s [00:52:55.762] setwd(...future.workdir) 1575s [00:52:55.762] { 1575s [00:52:55.762] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1575s [00:52:55.762] ...future.oldOptions$nwarnings <- NULL 1575s [00:52:55.762] } 1575s [00:52:55.762] base::options(...future.oldOptions) 1575s [00:52:55.762] if (.Platform$OS.type == "windows") { 1575s [00:52:55.762] old_names <- names(...future.oldEnvVars) 1575s [00:52:55.762] envs <- base::Sys.getenv() 1575s [00:52:55.762] names <- names(envs) 1575s [00:52:55.762] common <- intersect(names, old_names) 1575s [00:52:55.762] added <- setdiff(names, old_names) 1575s [00:52:55.762] removed <- setdiff(old_names, names) 1575s [00:52:55.762] changed <- common[...future.oldEnvVars[common] != 1575s [00:52:55.762] envs[common]] 1575s [00:52:55.762] NAMES <- toupper(changed) 1575s [00:52:55.762] args <- list() 1575s [00:52:55.762] for (kk in seq_along(NAMES)) { 1575s [00:52:55.762] name <- changed[[kk]] 1575s [00:52:55.762] NAME <- NAMES[[kk]] 1575s [00:52:55.762] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:55.762] next 1575s [00:52:55.762] args[[name]] <- ...future.oldEnvVars[[name]] 1575s [00:52:55.762] } 1575s [00:52:55.762] NAMES <- toupper(added) 1575s [00:52:55.762] for (kk in seq_along(NAMES)) { 1575s [00:52:55.762] name <- added[[kk]] 1575s [00:52:55.762] NAME <- NAMES[[kk]] 1575s [00:52:55.762] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:55.762] next 1575s [00:52:55.762] args[[name]] <- "" 1575s [00:52:55.762] } 1575s [00:52:55.762] NAMES <- toupper(removed) 1575s [00:52:55.762] for (kk in seq_along(NAMES)) { 1575s [00:52:55.762] name <- removed[[kk]] 1575s [00:52:55.762] NAME <- NAMES[[kk]] 1575s [00:52:55.762] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:55.762] next 1575s [00:52:55.762] args[[name]] <- ...future.oldEnvVars[[name]] 1575s [00:52:55.762] } 1575s [00:52:55.762] if (length(args) > 0) 1575s [00:52:55.762] base::do.call(base::Sys.setenv, args = args) 1575s [00:52:55.762] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1575s [00:52:55.762] } 1575s [00:52:55.762] else { 1575s [00:52:55.762] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1575s [00:52:55.762] } 1575s [00:52:55.762] { 1575s [00:52:55.762] if (base::length(...future.futureOptionsAdded) > 1575s [00:52:55.762] 0L) { 1575s [00:52:55.762] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1575s [00:52:55.762] base::names(opts) <- ...future.futureOptionsAdded 1575s [00:52:55.762] base::options(opts) 1575s [00:52:55.762] } 1575s [00:52:55.762] { 1575s [00:52:55.762] { 1575s [00:52:55.762] NULL 1575s [00:52:55.762] RNGkind("Mersenne-Twister") 1575s [00:52:55.762] base::rm(list = ".Random.seed", envir = base::globalenv(), 1575s [00:52:55.762] inherits = FALSE) 1575s [00:52:55.762] } 1575s [00:52:55.762] options(future.plan = NULL) 1575s [00:52:55.762] if (is.na(NA_character_)) 1575s [00:52:55.762] Sys.unsetenv("R_FUTURE_PLAN") 1575s [00:52:55.762] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1575s [00:52:55.762] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1575s [00:52:55.762] envir = parent.frame()) 1575s [00:52:55.762] { 1575s [00:52:55.762] default_workers <- missing(workers) 1575s [00:52:55.762] if (is.function(workers)) 1575s [00:52:55.762] workers <- workers() 1575s [00:52:55.762] workers <- structure(as.integer(workers), 1575s [00:52:55.762] class = class(workers)) 1575s [00:52:55.762] stop_if_not(is.finite(workers), workers >= 1575s [00:52:55.762] 1L) 1575s [00:52:55.762] if ((workers == 1L && !inherits(workers, 1575s [00:52:55.762] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1575s [00:52:55.762] if (default_workers) 1575s [00:52:55.762] supportsMulticore(warn = TRUE) 1575s [00:52:55.762] return(sequential(..., envir = envir)) 1575s [00:52:55.762] } 1575s [00:52:55.762] oopts <- options(mc.cores = workers) 1575s [00:52:55.762] on.exit(options(oopts)) 1575s [00:52:55.762] future <- MulticoreFuture(..., workers = workers, 1575s [00:52:55.762] envir = envir) 1575s [00:52:55.762] if (!future$lazy) 1575s [00:52:55.762] future <- run(future) 1575s [00:52:55.762] invisible(future) 1575s [00:52:55.762] }), .cleanup = FALSE, .init = FALSE) 1575s [00:52:55.762] } 1575s [00:52:55.762] } 1575s [00:52:55.762] } 1575s [00:52:55.762] }) 1575s [00:52:55.762] if (TRUE) { 1575s [00:52:55.762] base::sink(type = "output", split = FALSE) 1575s [00:52:55.762] if (TRUE) { 1575s [00:52:55.762] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1575s [00:52:55.762] } 1575s [00:52:55.762] else { 1575s [00:52:55.762] ...future.result["stdout"] <- base::list(NULL) 1575s [00:52:55.762] } 1575s [00:52:55.762] base::close(...future.stdout) 1575s [00:52:55.762] ...future.stdout <- NULL 1575s [00:52:55.762] } 1575s [00:52:55.762] ...future.result$conditions <- ...future.conditions 1575s [00:52:55.762] ...future.result$finished <- base::Sys.time() 1575s [00:52:55.762] ...future.result 1575s [00:52:55.762] } 1575s [00:52:55.765] assign_globals() ... 1575s [00:52:55.765] List of 5 1575s [00:52:55.765] $ ...future.FUN :function (x, ...) 1575s [00:52:55.765] $ future.call.arguments : list() 1575s [00:52:55.765] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:55.765] $ ...future.elements_ii :List of 6 1575s [00:52:55.765] ..$ a1: int 1 1575s [00:52:55.765] ..$ a2: int 2 1575s [00:52:55.765] ..$ b1: int 2 1575s [00:52:55.765] ..$ b2: int 3 1575s [00:52:55.765] ..$ c1: int 3 1575s [00:52:55.765] ..$ c2: int 4 1575s [00:52:55.765] $ ...future.seeds_ii : NULL 1575s [00:52:55.765] $ ...future.globals.maxSize: NULL 1575s [00:52:55.765] - attr(*, "where")=List of 5 1575s [00:52:55.765] ..$ ...future.FUN : 1575s [00:52:55.765] ..$ future.call.arguments : 1575s [00:52:55.765] ..$ ...future.elements_ii : 1575s [00:52:55.765] ..$ ...future.seeds_ii : 1575s [00:52:55.765] ..$ ...future.globals.maxSize: 1575s [00:52:55.765] - attr(*, "resolved")= logi FALSE 1575s [00:52:55.765] - attr(*, "total_size")= num 1248 1575s [00:52:55.765] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:55.765] - attr(*, "already-done")= logi TRUE 1575s [00:52:55.775] - copied ‘...future.FUN’ to environment 1575s [00:52:55.775] - copied ‘future.call.arguments’ to environment 1575s [00:52:55.775] - copied ‘...future.elements_ii’ to environment 1575s [00:52:55.775] - copied ‘...future.seeds_ii’ to environment 1575s [00:52:55.776] - copied ‘...future.globals.maxSize’ to environment 1575s [00:52:55.776] assign_globals() ... done 1575s [00:52:55.776] plan(): Setting new future strategy stack: 1575s [00:52:55.777] List of future strategies: 1575s [00:52:55.777] 1. sequential: 1575s [00:52:55.777] - args: function (..., envir = parent.frame()) 1575s [00:52:55.777] - tweaked: FALSE 1575s [00:52:55.777] - call: NULL 1575s [00:52:55.777] plan(): nbrOfWorkers() = 1 1575s [00:52:55.778] plan(): Setting new future strategy stack: 1575s [00:52:55.778] List of future strategies: 1575s [00:52:55.778] 1. multicore: 1575s [00:52:55.778] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1575s [00:52:55.778] - tweaked: FALSE 1575s [00:52:55.778] - call: plan(strategy) 1575s [00:52:55.782] plan(): nbrOfWorkers() = 1 1575s [00:52:55.783] SequentialFuture started (and completed) 1575s [00:52:55.783] - Launch lazy future ... done 1575s [00:52:55.783] run() for ‘SequentialFuture’ ... done 1575s [00:52:55.783] Created future: 1575s [00:52:55.783] SequentialFuture: 1575s [00:52:55.783] Label: ‘future_sapply-1’ 1575s [00:52:55.783] Expression: 1575s [00:52:55.783] { 1575s [00:52:55.783] do.call(function(...) { 1575s [00:52:55.783] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:55.783] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1575s [00:52:55.783] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:55.783] on.exit(options(oopts), add = TRUE) 1575s [00:52:55.783] } 1575s [00:52:55.783] { 1575s [00:52:55.783] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1575s [00:52:55.783] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:55.783] ...future.FUN(...future.X_jj, ...) 1575s [00:52:55.783] }) 1575s [00:52:55.783] } 1575s [00:52:55.783] }, args = future.call.arguments) 1575s [00:52:55.783] } 1575s [00:52:55.783] Lazy evaluation: FALSE 1575s [00:52:55.783] Asynchronous evaluation: FALSE 1575s [00:52:55.783] Local evaluation: TRUE 1575s [00:52:55.783] Environment: R_GlobalEnv 1575s [00:52:55.783] Capture standard output: TRUE 1575s [00:52:55.783] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1575s [00:52:55.783] Globals: 5 objects totaling 1.55 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1575s [00:52:55.783] Packages: 1575s [00:52:55.783] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1575s [00:52:55.783] Resolved: TRUE 1575s [00:52:55.783] Value: 1.31 KiB of class ‘list’ 1575s [00:52:55.783] Early signaling: FALSE 1575s [00:52:55.783] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1575s [00:52:55.783] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1575s [00:52:55.785] Chunk #1 of 1 ... DONE 1575s [00:52:55.785] Launching 1 futures (chunks) ... DONE 1575s [00:52:55.785] Resolving 1 futures (chunks) ... 1575s [00:52:55.785] resolve() on list ... 1575s [00:52:55.786] recursive: 0 1575s [00:52:55.786] length: 1 1575s [00:52:55.786] 1575s [00:52:55.786] resolved() for ‘SequentialFuture’ ... 1575s [00:52:55.786] - state: ‘finished’ 1575s [00:52:55.786] - run: TRUE 1575s [00:52:55.787] - result: ‘FutureResult’ 1575s [00:52:55.787] resolved() for ‘SequentialFuture’ ... done 1575s [00:52:55.787] Future #1 1575s [00:52:55.787] signalConditionsASAP(SequentialFuture, pos=1) ... 1575s [00:52:55.787] - nx: 1 1575s [00:52:55.787] - relay: TRUE 1575s [00:52:55.787] - stdout: TRUE 1575s [00:52:55.788] - signal: TRUE 1575s [00:52:55.788] - resignal: FALSE 1575s [00:52:55.788] - force: TRUE 1575s [00:52:55.788] - relayed: [n=1] FALSE 1575s [00:52:55.788] - queued futures: [n=1] FALSE 1575s [00:52:55.788] - until=1 1575s [00:52:55.788] - relaying element #1 1575s [00:52:55.789] - relayed: [n=1] TRUE 1575s [00:52:55.789] - queued futures: [n=1] TRUE 1575s [00:52:55.789] signalConditionsASAP(SequentialFuture, pos=1) ... done 1575s [00:52:55.789] length: 0 (resolved future 1) 1575s [00:52:55.789] Relaying remaining futures 1575s [00:52:55.790] signalConditionsASAP(NULL, pos=0) ... 1575s [00:52:55.790] - nx: 1 1575s [00:52:55.790] - relay: TRUE 1575s [00:52:55.790] - stdout: TRUE 1575s [00:52:55.790] - signal: TRUE 1575s [00:52:55.790] - resignal: FALSE 1575s [00:52:55.790] - force: TRUE 1575s [00:52:55.791] - relayed: [n=1] TRUE 1575s [00:52:55.791] - queued futures: [n=1] TRUE 1575s - flush all 1575s [00:52:55.791] - relayed: [n=1] TRUE 1575s [00:52:55.791] - queued futures: [n=1] TRUE 1575s [00:52:55.791] signalConditionsASAP(NULL, pos=0) ... done 1575s [00:52:55.791] resolve() on list ... DONE 1575s [00:52:55.792] - Number of value chunks collected: 1 1575s [00:52:55.792] Resolving 1 futures (chunks) ... DONE 1575s [00:52:55.792] Reducing values from 1 chunks ... 1575s [00:52:55.792] - Number of values collected after concatenation: 6 1575s [00:52:55.792] - Number of values expected: 6 1575s [00:52:55.792] Reducing values from 1 chunks ... DONE 1575s [00:52:55.792] future_lapply() ... DONE 1575s List of 2 1575s $ y0: Named int [1:6] 1 2 2 3 3 4 1575s ..- attr(*, "names")= chr [1:6] "a1" "a2" "b1" "b2" ... 1575s $ y1: Named int [1:6] 1 2 2 3 3 4 1575s ..- attr(*, "names")= chr [1:6] "a1" "a2" "b1" "b2" ... 1575s [00:52:55.795] future_lapply() ... 1575s [00:52:55.798] Number of chunks: 1 1575s [00:52:55.799] getGlobalsAndPackagesXApply() ... 1575s [00:52:55.799] - future.globals: TRUE 1575s [00:52:55.799] getGlobalsAndPackages() ... 1575s [00:52:55.799] Searching for globals... 1575s [00:52:55.802] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1575s [00:52:55.802] Searching for globals ... DONE 1575s [00:52:55.802] Resolving globals: FALSE 1575s [00:52:55.803] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1575s [00:52:55.803] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1575s [00:52:55.804] - globals: [1] ‘FUN’ 1575s [00:52:55.804] 1575s [00:52:55.804] getGlobalsAndPackages() ... DONE 1575s [00:52:55.804] - globals found/used: [n=1] ‘FUN’ 1575s [00:52:55.804] - needed namespaces: [n=0] 1575s [00:52:55.804] Finding globals ... DONE 1575s [00:52:55.805] - use_args: TRUE 1575s [00:52:55.805] - Getting '...' globals ... 1575s [00:52:55.805] resolve() on list ... 1575s [00:52:55.805] recursive: 0 1575s [00:52:55.806] length: 1 1575s [00:52:55.806] elements: ‘...’ 1575s [00:52:55.806] length: 0 (resolved future 1) 1575s [00:52:55.806] resolve() on list ... DONE 1575s [00:52:55.806] - '...' content: [n=0] 1575s [00:52:55.806] List of 1 1575s [00:52:55.806] $ ...: list() 1575s [00:52:55.806] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:55.806] - attr(*, "where")=List of 1 1575s [00:52:55.806] ..$ ...: 1575s [00:52:55.806] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:55.806] - attr(*, "resolved")= logi TRUE 1575s [00:52:55.806] - attr(*, "total_size")= num NA 1575s [00:52:55.810] - Getting '...' globals ... DONE 1575s [00:52:55.810] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1575s [00:52:55.810] List of 2 1575s [00:52:55.810] $ ...future.FUN:function (x, y = 2 * 1:5) 1575s [00:52:55.810] $ ... : list() 1575s [00:52:55.810] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:55.810] - attr(*, "where")=List of 2 1575s [00:52:55.810] ..$ ...future.FUN: 1575s [00:52:55.810] ..$ ... : 1575s [00:52:55.810] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:55.810] - attr(*, "resolved")= logi FALSE 1575s [00:52:55.810] - attr(*, "total_size")= num 4728 1575s [00:52:55.814] Packages to be attached in all futures: [n=0] 1575s [00:52:55.814] getGlobalsAndPackagesXApply() ... DONE 1575s [00:52:55.814] Number of futures (= number of chunks): 1 1575s [00:52:55.814] Launching 1 futures (chunks) ... 1575s [00:52:55.814] Chunk #1 of 1 ... 1575s [00:52:55.814] - Finding globals in 'X' for chunk #1 ... 1575s [00:52:55.815] getGlobalsAndPackages() ... 1575s [00:52:55.815] Searching for globals... 1575s [00:52:55.815] 1575s [00:52:55.815] Searching for globals ... DONE 1575s [00:52:55.815] - globals: [0] 1575s [00:52:55.816] getGlobalsAndPackages() ... DONE 1575s [00:52:55.816] + additional globals found: [n=0] 1575s [00:52:55.816] + additional namespaces needed: [n=0] 1575s [00:52:55.816] - Finding globals in 'X' for chunk #1 ... DONE 1575s [00:52:55.816] - seeds: 1575s [00:52:55.816] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:55.817] getGlobalsAndPackages() ... 1575s [00:52:55.817] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:55.817] Resolving globals: FALSE 1575s [00:52:55.817] Tweak future expression to call with '...' arguments ... 1575s [00:52:55.817] { 1575s [00:52:55.817] do.call(function(...) { 1575s [00:52:55.817] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:55.817] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1575s [00:52:55.817] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:55.817] on.exit(options(oopts), add = TRUE) 1575s [00:52:55.817] } 1575s [00:52:55.817] { 1575s [00:52:55.817] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1575s [00:52:55.817] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:55.817] ...future.FUN(...future.X_jj, ...) 1575s [00:52:55.817] }) 1575s [00:52:55.817] } 1575s [00:52:55.817] }, args = future.call.arguments) 1575s [00:52:55.817] } 1575s [00:52:55.817] Tweak future expression to call with '...' arguments ... DONE 1575s [00:52:55.818] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:55.818] 1575s [00:52:55.818] getGlobalsAndPackages() ... DONE 1575s [00:52:55.819] run() for ‘Future’ ... 1575s [00:52:55.819] - state: ‘created’ 1575s [00:52:55.819] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1575s [00:52:55.823] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1575s [00:52:55.827] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1575s [00:52:55.827] - Field: ‘label’ 1575s [00:52:55.828] - Field: ‘local’ 1575s [00:52:55.828] - Field: ‘owner’ 1575s [00:52:55.828] - Field: ‘envir’ 1575s [00:52:55.828] - Field: ‘packages’ 1575s [00:52:55.828] - Field: ‘gc’ 1575s [00:52:55.828] - Field: ‘conditions’ 1575s [00:52:55.829] - Field: ‘expr’ 1575s [00:52:55.829] - Field: ‘uuid’ 1575s [00:52:55.829] - Field: ‘seed’ 1575s [00:52:55.829] - Field: ‘version’ 1575s [00:52:55.830] - Field: ‘result’ 1575s [00:52:55.830] - Field: ‘asynchronous’ 1575s [00:52:55.830] - Field: ‘calls’ 1575s [00:52:55.830] - Field: ‘globals’ 1575s [00:52:55.830] - Field: ‘stdout’ 1575s [00:52:55.830] - Field: ‘earlySignal’ 1575s [00:52:55.830] - Field: ‘lazy’ 1575s [00:52:55.831] - Field: ‘state’ 1575s [00:52:55.831] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1575s [00:52:55.831] - Launch lazy future ... 1575s [00:52:55.831] Packages needed by the future expression (n = 0): 1575s [00:52:55.831] Packages needed by future strategies (n = 0): 1575s [00:52:55.832] { 1575s [00:52:55.832] { 1575s [00:52:55.832] { 1575s [00:52:55.832] ...future.startTime <- base::Sys.time() 1575s [00:52:55.832] { 1575s [00:52:55.832] { 1575s [00:52:55.832] { 1575s [00:52:55.832] base::local({ 1575s [00:52:55.832] has_future <- base::requireNamespace("future", 1575s [00:52:55.832] quietly = TRUE) 1575s [00:52:55.832] if (has_future) { 1575s [00:52:55.832] ns <- base::getNamespace("future") 1575s [00:52:55.832] version <- ns[[".package"]][["version"]] 1575s [00:52:55.832] if (is.null(version)) 1575s [00:52:55.832] version <- utils::packageVersion("future") 1575s [00:52:55.832] } 1575s [00:52:55.832] else { 1575s [00:52:55.832] version <- NULL 1575s [00:52:55.832] } 1575s [00:52:55.832] if (!has_future || version < "1.8.0") { 1575s [00:52:55.832] info <- base::c(r_version = base::gsub("R version ", 1575s [00:52:55.832] "", base::R.version$version.string), 1575s [00:52:55.832] platform = base::sprintf("%s (%s-bit)", 1575s [00:52:55.832] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1575s [00:52:55.832] os = base::paste(base::Sys.info()[base::c("sysname", 1575s [00:52:55.832] "release", "version")], collapse = " "), 1575s [00:52:55.832] hostname = base::Sys.info()[["nodename"]]) 1575s [00:52:55.832] info <- base::sprintf("%s: %s", base::names(info), 1575s [00:52:55.832] info) 1575s [00:52:55.832] info <- base::paste(info, collapse = "; ") 1575s [00:52:55.832] if (!has_future) { 1575s [00:52:55.832] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1575s [00:52:55.832] info) 1575s [00:52:55.832] } 1575s [00:52:55.832] else { 1575s [00:52:55.832] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1575s [00:52:55.832] info, version) 1575s [00:52:55.832] } 1575s [00:52:55.832] base::stop(msg) 1575s [00:52:55.832] } 1575s [00:52:55.832] }) 1575s [00:52:55.832] } 1575s [00:52:55.832] options(future.plan = NULL) 1575s [00:52:55.832] Sys.unsetenv("R_FUTURE_PLAN") 1575s [00:52:55.832] future::plan("default", .cleanup = FALSE, .init = FALSE) 1575s [00:52:55.832] } 1575s [00:52:55.832] ...future.workdir <- getwd() 1575s [00:52:55.832] } 1575s [00:52:55.832] ...future.oldOptions <- base::as.list(base::.Options) 1575s [00:52:55.832] ...future.oldEnvVars <- base::Sys.getenv() 1575s [00:52:55.832] } 1575s [00:52:55.832] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1575s [00:52:55.832] future.globals.maxSize = NULL, future.globals.method = NULL, 1575s [00:52:55.832] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1575s [00:52:55.832] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1575s [00:52:55.832] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1575s [00:52:55.832] future.stdout.windows.reencode = NULL, width = 80L) 1575s [00:52:55.832] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1575s [00:52:55.832] base::names(...future.oldOptions)) 1575s [00:52:55.832] } 1575s [00:52:55.832] if (FALSE) { 1575s [00:52:55.832] } 1575s [00:52:55.832] else { 1575s [00:52:55.832] if (TRUE) { 1575s [00:52:55.832] ...future.stdout <- base::rawConnection(base::raw(0L), 1575s [00:52:55.832] open = "w") 1575s [00:52:55.832] } 1575s [00:52:55.832] else { 1575s [00:52:55.832] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1575s [00:52:55.832] windows = "NUL", "/dev/null"), open = "w") 1575s [00:52:55.832] } 1575s [00:52:55.832] base::sink(...future.stdout, type = "output", split = FALSE) 1575s [00:52:55.832] base::on.exit(if (!base::is.null(...future.stdout)) { 1575s [00:52:55.832] base::sink(type = "output", split = FALSE) 1575s [00:52:55.832] base::close(...future.stdout) 1575s [00:52:55.832] }, add = TRUE) 1575s [00:52:55.832] } 1575s [00:52:55.832] ...future.frame <- base::sys.nframe() 1575s [00:52:55.832] ...future.conditions <- base::list() 1575s [00:52:55.832] ...future.rng <- base::globalenv()$.Random.seed 1575s [00:52:55.832] if (FALSE) { 1575s [00:52:55.832] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1575s [00:52:55.832] "...future.value", "...future.globalenv.names", ".Random.seed") 1575s [00:52:55.832] } 1575s [00:52:55.832] ...future.result <- base::tryCatch({ 1575s [00:52:55.832] base::withCallingHandlers({ 1575s [00:52:55.832] ...future.value <- base::withVisible(base::local({ 1575s [00:52:55.832] do.call(function(...) { 1575s [00:52:55.832] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:55.832] if (!identical(...future.globals.maxSize.org, 1575s [00:52:55.832] ...future.globals.maxSize)) { 1575s [00:52:55.832] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:55.832] on.exit(options(oopts), add = TRUE) 1575s [00:52:55.832] } 1575s [00:52:55.832] { 1575s [00:52:55.832] lapply(seq_along(...future.elements_ii), 1575s [00:52:55.832] FUN = function(jj) { 1575s [00:52:55.832] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:55.832] ...future.FUN(...future.X_jj, ...) 1575s [00:52:55.832] }) 1575s [00:52:55.832] } 1575s [00:52:55.832] }, args = future.call.arguments) 1575s [00:52:55.832] })) 1575s [00:52:55.832] future::FutureResult(value = ...future.value$value, 1575s [00:52:55.832] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1575s [00:52:55.832] ...future.rng), globalenv = if (FALSE) 1575s [00:52:55.832] list(added = base::setdiff(base::names(base::.GlobalEnv), 1575s [00:52:55.832] ...future.globalenv.names)) 1575s [00:52:55.832] else NULL, started = ...future.startTime, version = "1.8") 1575s [00:52:55.832] }, condition = base::local({ 1575s [00:52:55.832] c <- base::c 1575s [00:52:55.832] inherits <- base::inherits 1575s [00:52:55.832] invokeRestart <- base::invokeRestart 1575s [00:52:55.832] length <- base::length 1575s [00:52:55.832] list <- base::list 1575s [00:52:55.832] seq.int <- base::seq.int 1575s [00:52:55.832] signalCondition <- base::signalCondition 1575s [00:52:55.832] sys.calls <- base::sys.calls 1575s [00:52:55.832] `[[` <- base::`[[` 1575s [00:52:55.832] `+` <- base::`+` 1575s [00:52:55.832] `<<-` <- base::`<<-` 1575s [00:52:55.832] sysCalls <- function(calls = sys.calls(), from = 1L) { 1575s [00:52:55.832] calls[seq.int(from = from + 12L, to = length(calls) - 1575s [00:52:55.832] 3L)] 1575s [00:52:55.832] } 1575s [00:52:55.832] function(cond) { 1575s [00:52:55.832] is_error <- inherits(cond, "error") 1575s [00:52:55.832] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1575s [00:52:55.832] NULL) 1575s [00:52:55.832] if (is_error) { 1575s [00:52:55.832] sessionInformation <- function() { 1575s [00:52:55.832] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1575s [00:52:55.832] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1575s [00:52:55.832] search = base::search(), system = base::Sys.info()) 1575s [00:52:55.832] } 1575s [00:52:55.832] ...future.conditions[[length(...future.conditions) + 1575s [00:52:55.832] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1575s [00:52:55.832] cond$call), session = sessionInformation(), 1575s [00:52:55.832] timestamp = base::Sys.time(), signaled = 0L) 1575s [00:52:55.832] signalCondition(cond) 1575s [00:52:55.832] } 1575s [00:52:55.832] else if (!ignore && TRUE && inherits(cond, c("condition", 1575s [00:52:55.832] "immediateCondition"))) { 1575s [00:52:55.832] signal <- TRUE && inherits(cond, "immediateCondition") 1575s [00:52:55.832] ...future.conditions[[length(...future.conditions) + 1575s [00:52:55.832] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1575s [00:52:55.832] if (TRUE && !signal) { 1575s [00:52:55.832] muffleCondition <- function (cond, pattern = "^muffle") 1575s [00:52:55.832] { 1575s [00:52:55.832] inherits <- base::inherits 1575s [00:52:55.832] invokeRestart <- base::invokeRestart 1575s [00:52:55.832] is.null <- base::is.null 1575s [00:52:55.832] muffled <- FALSE 1575s [00:52:55.832] if (inherits(cond, "message")) { 1575s [00:52:55.832] muffled <- grepl(pattern, "muffleMessage") 1575s [00:52:55.832] if (muffled) 1575s [00:52:55.832] invokeRestart("muffleMessage") 1575s [00:52:55.832] } 1575s [00:52:55.832] else if (inherits(cond, "warning")) { 1575s [00:52:55.832] muffled <- grepl(pattern, "muffleWarning") 1575s [00:52:55.832] if (muffled) 1575s [00:52:55.832] invokeRestart("muffleWarning") 1575s [00:52:55.832] } 1575s [00:52:55.832] else if (inherits(cond, "condition")) { 1575s [00:52:55.832] if (!is.null(pattern)) { 1575s [00:52:55.832] computeRestarts <- base::computeRestarts 1575s [00:52:55.832] grepl <- base::grepl 1575s [00:52:55.832] restarts <- computeRestarts(cond) 1575s [00:52:55.832] for (restart in restarts) { 1575s [00:52:55.832] name <- restart$name 1575s [00:52:55.832] if (is.null(name)) 1575s [00:52:55.832] next 1575s [00:52:55.832] if (!grepl(pattern, name)) 1575s [00:52:55.832] next 1575s [00:52:55.832] invokeRestart(restart) 1575s [00:52:55.832] muffled <- TRUE 1575s [00:52:55.832] break 1575s [00:52:55.832] } 1575s [00:52:55.832] } 1575s [00:52:55.832] } 1575s [00:52:55.832] invisible(muffled) 1575s [00:52:55.832] } 1575s [00:52:55.832] muffleCondition(cond, pattern = "^muffle") 1575s [00:52:55.832] } 1575s [00:52:55.832] } 1575s [00:52:55.832] else { 1575s [00:52:55.832] if (TRUE) { 1575s [00:52:55.832] muffleCondition <- function (cond, pattern = "^muffle") 1575s [00:52:55.832] { 1575s [00:52:55.832] inherits <- base::inherits 1575s [00:52:55.832] invokeRestart <- base::invokeRestart 1575s [00:52:55.832] is.null <- base::is.null 1575s [00:52:55.832] muffled <- FALSE 1575s [00:52:55.832] if (inherits(cond, "message")) { 1575s [00:52:55.832] muffled <- grepl(pattern, "muffleMessage") 1575s [00:52:55.832] if (muffled) 1575s [00:52:55.832] invokeRestart("muffleMessage") 1575s [00:52:55.832] } 1575s [00:52:55.832] else if (inherits(cond, "warning")) { 1575s [00:52:55.832] muffled <- grepl(pattern, "muffleWarning") 1575s [00:52:55.832] if (muffled) 1575s [00:52:55.832] invokeRestart("muffleWarning") 1575s [00:52:55.832] } 1575s [00:52:55.832] else if (inherits(cond, "condition")) { 1575s [00:52:55.832] if (!is.null(pattern)) { 1575s [00:52:55.832] computeRestarts <- base::computeRestarts 1575s [00:52:55.832] grepl <- base::grepl 1575s [00:52:55.832] restarts <- computeRestarts(cond) 1575s [00:52:55.832] for (restart in restarts) { 1575s [00:52:55.832] name <- restart$name 1575s [00:52:55.832] if (is.null(name)) 1575s [00:52:55.832] next 1575s [00:52:55.832] if (!grepl(pattern, name)) 1575s [00:52:55.832] next 1575s [00:52:55.832] invokeRestart(restart) 1575s [00:52:55.832] muffled <- TRUE 1575s [00:52:55.832] break 1575s [00:52:55.832] } 1575s [00:52:55.832] } 1575s [00:52:55.832] } 1575s [00:52:55.832] invisible(muffled) 1575s [00:52:55.832] } 1575s [00:52:55.832] muffleCondition(cond, pattern = "^muffle") 1575s [00:52:55.832] } 1575s [00:52:55.832] } 1575s [00:52:55.832] } 1575s [00:52:55.832] })) 1575s [00:52:55.832] }, error = function(ex) { 1575s [00:52:55.832] base::structure(base::list(value = NULL, visible = NULL, 1575s [00:52:55.832] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1575s [00:52:55.832] ...future.rng), started = ...future.startTime, 1575s [00:52:55.832] finished = Sys.time(), session_uuid = NA_character_, 1575s [00:52:55.832] version = "1.8"), class = "FutureResult") 1575s [00:52:55.832] }, finally = { 1575s [00:52:55.832] if (!identical(...future.workdir, getwd())) 1575s [00:52:55.832] setwd(...future.workdir) 1575s [00:52:55.832] { 1575s [00:52:55.832] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1575s [00:52:55.832] ...future.oldOptions$nwarnings <- NULL 1575s [00:52:55.832] } 1575s [00:52:55.832] base::options(...future.oldOptions) 1575s [00:52:55.832] if (.Platform$OS.type == "windows") { 1575s [00:52:55.832] old_names <- names(...future.oldEnvVars) 1575s [00:52:55.832] envs <- base::Sys.getenv() 1575s [00:52:55.832] names <- names(envs) 1575s [00:52:55.832] common <- intersect(names, old_names) 1575s [00:52:55.832] added <- setdiff(names, old_names) 1575s [00:52:55.832] removed <- setdiff(old_names, names) 1575s [00:52:55.832] changed <- common[...future.oldEnvVars[common] != 1575s [00:52:55.832] envs[common]] 1575s [00:52:55.832] NAMES <- toupper(changed) 1575s [00:52:55.832] args <- list() 1575s [00:52:55.832] for (kk in seq_along(NAMES)) { 1575s [00:52:55.832] name <- changed[[kk]] 1575s [00:52:55.832] NAME <- NAMES[[kk]] 1575s [00:52:55.832] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:55.832] next 1575s [00:52:55.832] args[[name]] <- ...future.oldEnvVars[[name]] 1575s [00:52:55.832] } 1575s [00:52:55.832] NAMES <- toupper(added) 1575s [00:52:55.832] for (kk in seq_along(NAMES)) { 1575s [00:52:55.832] name <- added[[kk]] 1575s [00:52:55.832] NAME <- NAMES[[kk]] 1575s [00:52:55.832] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:55.832] next 1575s [00:52:55.832] args[[name]] <- "" 1575s [00:52:55.832] } 1575s [00:52:55.832] NAMES <- toupper(removed) 1575s [00:52:55.832] for (kk in seq_along(NAMES)) { 1575s [00:52:55.832] name <- removed[[kk]] 1575s [00:52:55.832] NAME <- NAMES[[kk]] 1575s [00:52:55.832] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:55.832] next 1575s [00:52:55.832] args[[name]] <- ...future.oldEnvVars[[name]] 1575s [00:52:55.832] } 1575s [00:52:55.832] if (length(args) > 0) 1575s [00:52:55.832] base::do.call(base::Sys.setenv, args = args) 1575s [00:52:55.832] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1575s [00:52:55.832] } 1575s [00:52:55.832] else { 1575s [00:52:55.832] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1575s [00:52:55.832] } 1575s [00:52:55.832] { 1575s [00:52:55.832] if (base::length(...future.futureOptionsAdded) > 1575s [00:52:55.832] 0L) { 1575s [00:52:55.832] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1575s [00:52:55.832] base::names(opts) <- ...future.futureOptionsAdded 1575s [00:52:55.832] base::options(opts) 1575s [00:52:55.832] } 1575s [00:52:55.832] { 1575s [00:52:55.832] { 1575s [00:52:55.832] NULL 1575s [00:52:55.832] RNGkind("Mersenne-Twister") 1575s [00:52:55.832] base::rm(list = ".Random.seed", envir = base::globalenv(), 1575s [00:52:55.832] inherits = FALSE) 1575s [00:52:55.832] } 1575s [00:52:55.832] options(future.plan = NULL) 1575s [00:52:55.832] if (is.na(NA_character_)) 1575s [00:52:55.832] Sys.unsetenv("R_FUTURE_PLAN") 1575s [00:52:55.832] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1575s [00:52:55.832] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1575s [00:52:55.832] envir = parent.frame()) 1575s [00:52:55.832] { 1575s [00:52:55.832] default_workers <- missing(workers) 1575s [00:52:55.832] if (is.function(workers)) 1575s [00:52:55.832] workers <- workers() 1575s [00:52:55.832] workers <- structure(as.integer(workers), 1575s [00:52:55.832] class = class(workers)) 1575s [00:52:55.832] stop_if_not(is.finite(workers), workers >= 1575s [00:52:55.832] 1L) 1575s [00:52:55.832] if ((workers == 1L && !inherits(workers, 1575s [00:52:55.832] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1575s [00:52:55.832] if (default_workers) 1575s [00:52:55.832] supportsMulticore(warn = TRUE) 1575s [00:52:55.832] return(sequential(..., envir = envir)) 1575s [00:52:55.832] } 1575s [00:52:55.832] oopts <- options(mc.cores = workers) 1575s [00:52:55.832] on.exit(options(oopts)) 1575s [00:52:55.832] future <- MulticoreFuture(..., workers = workers, 1575s [00:52:55.832] envir = envir) 1575s [00:52:55.832] if (!future$lazy) 1575s [00:52:55.832] future <- run(future) 1575s [00:52:55.832] invisible(future) 1575s [00:52:55.832] }), .cleanup = FALSE, .init = FALSE) 1575s [00:52:55.832] } 1575s [00:52:55.832] } 1575s [00:52:55.832] } 1575s [00:52:55.832] }) 1575s [00:52:55.832] if (TRUE) { 1575s [00:52:55.832] base::sink(type = "output", split = FALSE) 1575s [00:52:55.832] if (TRUE) { 1575s [00:52:55.832] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1575s [00:52:55.832] } 1575s [00:52:55.832] else { 1575s [00:52:55.832] ...future.result["stdout"] <- base::list(NULL) 1575s [00:52:55.832] } 1575s [00:52:55.832] base::close(...future.stdout) 1575s [00:52:55.832] ...future.stdout <- NULL 1575s [00:52:55.832] } 1575s [00:52:55.832] ...future.result$conditions <- ...future.conditions 1575s [00:52:55.832] ...future.result$finished <- base::Sys.time() 1575s [00:52:55.832] ...future.result 1575s [00:52:55.832] } 1575s [00:52:55.835] assign_globals() ... 1575s [00:52:55.835] List of 5 1575s [00:52:55.835] $ ...future.FUN :function (x, y = 2 * 1:5) 1575s [00:52:55.835] $ future.call.arguments : list() 1575s [00:52:55.835] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:55.835] $ ...future.elements_ii :List of 6 1575s [00:52:55.835] ..$ a1: int 1 1575s [00:52:55.835] ..$ a2: int 2 1575s [00:52:55.835] ..$ b1: int 2 1575s [00:52:55.835] ..$ b2: int 3 1575s [00:52:55.835] ..$ c1: int 3 1575s [00:52:55.835] ..$ c2: int 4 1575s [00:52:55.835] $ ...future.seeds_ii : NULL 1575s [00:52:55.835] $ ...future.globals.maxSize: NULL 1575s [00:52:55.835] - attr(*, "where")=List of 5 1575s [00:52:55.835] ..$ ...future.FUN : 1575s [00:52:55.835] ..$ future.call.arguments : 1575s [00:52:55.835] ..$ ...future.elements_ii : 1575s [00:52:55.835] ..$ ...future.seeds_ii : 1575s [00:52:55.835] ..$ ...future.globals.maxSize: 1575s [00:52:55.835] - attr(*, "resolved")= logi FALSE 1575s [00:52:55.835] - attr(*, "total_size")= num 4728 1575s [00:52:55.835] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:55.835] - attr(*, "already-done")= logi TRUE 1575s [00:52:55.843] - reassign environment for ‘...future.FUN’ 1575s [00:52:55.844] - copied ‘...future.FUN’ to environment 1575s [00:52:55.844] - copied ‘future.call.arguments’ to environment 1575s [00:52:55.844] - copied ‘...future.elements_ii’ to environment 1575s [00:52:55.844] - copied ‘...future.seeds_ii’ to environment 1575s [00:52:55.844] - copied ‘...future.globals.maxSize’ to environment 1575s [00:52:55.845] assign_globals() ... done 1575s [00:52:55.845] plan(): Setting new future strategy stack: 1575s [00:52:55.845] List of future strategies: 1575s [00:52:55.845] 1. sequential: 1575s [00:52:55.845] - args: function (..., envir = parent.frame()) 1575s [00:52:55.845] - tweaked: FALSE 1575s [00:52:55.845] - call: NULL 1575s [00:52:55.846] plan(): nbrOfWorkers() = 1 1575s [00:52:55.847] plan(): Setting new future strategy stack: 1575s [00:52:55.847] List of future strategies: 1575s [00:52:55.847] 1. multicore: 1575s [00:52:55.847] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1575s [00:52:55.847] - tweaked: FALSE 1575s [00:52:55.847] - call: plan(strategy) 1575s [00:52:55.851] plan(): nbrOfWorkers() = 1 1575s [00:52:55.851] SequentialFuture started (and completed) 1575s [00:52:55.852] - Launch lazy future ... done 1575s [00:52:55.852] run() for ‘SequentialFuture’ ... done 1575s [00:52:55.852] Created future: 1575s [00:52:55.852] SequentialFuture: 1575s [00:52:55.852] Label: ‘future_sapply-1’ 1575s [00:52:55.852] Expression: 1575s [00:52:55.852] { 1575s [00:52:55.852] do.call(function(...) { 1575s [00:52:55.852] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:55.852] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1575s [00:52:55.852] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:55.852] on.exit(options(oopts), add = TRUE) 1575s [00:52:55.852] } 1575s [00:52:55.852] { 1575s [00:52:55.852] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1575s [00:52:55.852] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:55.852] ...futuListre.FUN(...future.X_jj, ...) 1575s [00:52:55.852] }) 1575s [00:52:55.852] } 1575s [00:52:55.852] }, args = future.call.arguments) 1575s [00:52:55.852] } 1575s [00:52:55.852] Lazy evaluation: FALSE 1575s [00:52:55.852] Asynchronous evaluation: FALSE 1575s [00:52:55.852] Local evaluation: TRUE 1575s [00:52:55.852] Environment: R_GlobalEnv 1575s [00:52:55.852] Capture standard output: TRUE 1575s [00:52:55.852] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1575s [00:52:55.852] Globals: 5 objects totaling 4.95 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1575s [00:52:55.852] Packages: 1575s [00:52:55.852] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1575s [00:52:55.852] Resolved: TRUE 1575s [00:52:55.852] Value: 2.02 KiB of class ‘list’ 1575s [00:52:55.852] Early signaling: FALSE 1575s [00:52:55.852] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1575s [00:52:55.852] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1575s [00:52:55.854] Chunk #1 of 1 ... DONE 1575s [00:52:55.854] Launching 1 futures (chunks) ... DONE 1575s [00:52:55.854] Resolving 1 futures (chunks) ... 1575s [00:52:55.854] resolve() on list ... 1575s [00:52:55.854] recursive: 0 1575s [00:52:55.854] length: 1 1575s [00:52:55.854] 1575s [00:52:55.855] resolved() for ‘SequentialFuture’ ... 1575s [00:52:55.855] - state: ‘finished’ 1575s [00:52:55.855] - run: TRUE 1575s [00:52:55.855] - result: ‘FutureResult’ 1575s [00:52:55.855] resolved() for ‘SequentialFuture’ ... done 1575s [00:52:55.855] Future #1 1575s [00:52:55.855] signalConditionsASAP(SequentialFuture, pos=1) ... 1575s [00:52:55.855] - nx: 1 1575s [00:52:55.856] - relay: TRUE 1575s [00:52:55.856] - stdout: TRUE 1575s [00:52:55.856] - signal: TRUE 1575s [00:52:55.856] - resignal: FALSE 1575s [00:52:55.856] - force: TRUE 1575s [00:52:55.856] - relayed: [n=1] FALSE 1575s [00:52:55.856] - queued futures: [n=1] FALSE 1575s [00:52:55.856] - until=1 1575s [00:52:55.856] - relaying element #1 1575s [00:52:55.857] - relayed: [n=1] TRUE 1575s [00:52:55.857] - queued futures: [n=1] TRUE 1575s [00:52:55.857] signalConditionsASAP(SequentialFuture, pos=1) ... done 1575s [00:52:55.857] length: 0 (resolved future 1) 1575s [00:52:55.857] Relaying remaining futures 1575s [00:52:55.857] signalConditionsASAP(NULL, pos=0) ... 1575s [00:52:55.857] - nx: 1 1575s [00:52:55.858] - relay: TRUE 1575s [00:52:55.858] - stdout: TRUE 1575s [00:52:55.858] - signal: TRUE 1575s [00:52:55.858] - resignal: FALSE 1575s [00:52:55.858] - force: TRUE 1575s [00:52:55.858] - relayed: [n=1] TRUE 1575s [00:52:55.858] - queued futures: [n=1] TRUE 1575s - flush all 1575s [00:52:55.858] - relayed: [n=1] TRUE 1575s [00:52:55.859] - queued futures: [n=1] TRUE 1575s [00:52:55.859] signalConditionsASAP(NULL, pos=0) ... done 1575s [00:52:55.859] resolve() on list ... DONE 1575s [00:52:55.859] - Number of value chunks collected: 1 1575s [00:52:55.859] Resolving 1 futures (chunks) ... DONE 1575s [00:52:55.859] Reducing values from 1 chunks ... 1575s [00:52:55.859] - Number of values collected after concatenation: 6 1575s [00:52:55.860] - Number of values expected: 6 1575s [00:52:55.860] Reducing values from 1 chunks ... DONE 1575s [00:52:55.860] future_lapply() ... DONE 1575s of 2 1575s $ y0: num [1:15, 1:6] 2 2 2 4 4 4 6 6 6 8 ... 1575s ..- attr(*, "dimnames")=List of 2 1575s .. ..$ : NULL 1575s .. ..$ : chr [1:6] "a1" "a2" "b1" "b2" ... 1575s $ y1: num [1:15, 1:6] 2 2 2 4 4 4 6 6 6 8 ... 1575s ..- attr(*, "dimnames")=List of 2 1575s .. ..$ : NULL 1575s .. ..$ : chr [1:6] "a1" "a2" "b1" "b2" ... 1575s [00:52:55.865] future_lapply() ... 1575s [00:52:55.868] Number of chunks: 1 1575s [00:52:55.869] getGlobalsAndPackagesXApply() ... 1575s [00:52:55.869] - future.globals: TRUE 1575s [00:52:55.869] getGlobalsAndPackages() ... 1575s [00:52:55.869] Searching for globals... 1575s [00:52:55.871] - globals found: [1] ‘FUN’ 1575s [00:52:55.871] Searching for globals ... DONE 1575s [00:52:55.871] Resolving globals: FALSE 1575s [00:52:55.872] The total size of the 1 globals is 848 bytes (848 bytes) 1575s [00:52:55.872] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1575s [00:52:55.873] - globals: [1] ‘FUN’ 1575s [00:52:55.873] 1575s [00:52:55.873] getGlobalsAndPackages() ... DONE 1575s [00:52:55.873] - globals found/used: [n=1] ‘FUN’ 1575s [00:52:55.873] - needed namespaces: [n=0] 1575s [00:52:55.873] Finding globals ... DONE 1575s [00:52:55.873] - use_args: TRUE 1575s [00:52:55.874] - Getting '...' globals ... 1575s [00:52:55.874] resolve() on list ... 1575s [00:52:55.874] recursive: 0 1575s [00:52:55.874] length: 1 1575s [00:52:55.874] elements: ‘...’ 1575s [00:52:55.875] length: 0 (resolved future 1) 1575s [00:52:55.875] resolve() on list ... DONE 1575s [00:52:55.875] - '...' content: [n=0] 1575s [00:52:55.875] List of 1 1575s [00:52:55.875] $ ...: list() 1575s [00:52:55.875] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:55.875] - attr(*, "where")=List of 1 1575s [00:52:55.875] ..$ ...: 1575s [00:52:55.875] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:55.875] - attr(*, "resolved")= logi TRUE 1575s [00:52:55.875] - attr(*, "total_size")= num NA 1575s [00:52:55.878] - Getting '...' globals ... DONE 1575s [00:52:55.878] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1575s [00:52:55.879] List of 2 1575s [00:52:55.879] $ ...future.FUN:function (x) 1575s [00:52:55.879] $ ... : list() 1575s [00:52:55.879] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:55.879] - attr(*, "where")=List of 2 1575s [00:52:55.879] ..$ ...future.FUN: 1575s [00:52:55.879] ..$ ... : 1575s [00:52:55.879] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:55.879] - attr(*, "resolved")= logi FALSE 1575s [00:52:55.879] - attr(*, "total_size")= num 848 1575s [00:52:55.883] Packages to be attached in all futures: [n=0] 1575s [00:52:55.883] getGlobalsAndPackagesXApply() ... DONE 1575s [00:52:55.883] Number of futures (= number of chunks): 1 1575s [00:52:55.884] Launching 1 futures (chunks) ... 1575s [00:52:55.884] Chunk #1 of 1 ... 1575s [00:52:55.884] - Finding globals in 'X' for chunk #1 ... 1575s [00:52:55.884] getGlobalsAndPackages() ... 1575s [00:52:55.884] Searching for globals... 1575s [00:52:55.885] 1575s [00:52:55.885] Searching for globals ... DONE 1575s [00:52:55.885] - globals: [0] 1575s [00:52:55.885] getGlobalsAndPackages() ... DONE 1575s [00:52:55.885] + additional globals found: [n=0] 1575s [00:52:55.886] + additional namespaces needed: [n=0] 1575s [00:52:55.886] - Finding globals in 'X' for chunk #1 ... DONE 1575s [00:52:55.886] - seeds: 1575s [00:52:55.886] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:55.886] getGlobalsAndPackages() ... 1575s [00:52:55.887] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:55.887] Resolving globals: FALSE 1575s [00:52:55.887] Tweak future expression to call with '...' arguments ... 1575s [00:52:55.887] { 1575s [00:52:55.887] do.call(function(...) { 1575s [00:52:55.887] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:55.887] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1575s [00:52:55.887] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:55.887] on.exit(options(oopts), add = TRUE) 1575s [00:52:55.887] } 1575s [00:52:55.887] { 1575s [00:52:55.887] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1575s [00:52:55.887] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:55.887] ...future.FUN(...future.X_jj, ...) 1575s [00:52:55.887] }) 1575s [00:52:55.887] } 1575s [00:52:55.887] }, args = future.call.arguments) 1575s [00:52:55.887] } 1575s [00:52:55.888] Tweak future expression to call with '...' arguments ... DONE 1575s [00:52:55.889] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1575s [00:52:55.889] 1575s [00:52:55.890] getGlobalsAndPackages() ... DONE 1575s [00:52:55.890] run() for ‘Future’ ... 1575s [00:52:55.890] - state: ‘created’ 1575s [00:52:55.890] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1575s [00:52:55.894] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1575s [00:52:55.895] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1575s [00:52:55.895] - Field: ‘label’ 1575s [00:52:55.895] - Field: ‘local’ 1575s [00:52:55.896] - Field: ‘owner’ 1575s [00:52:55.896] - Field: ‘envir’ 1575s [00:52:55.896] - Field: ‘packages’ 1575s [00:52:55.896] - Field: ‘gc’ 1575s [00:52:55.896] - Field: ‘conditions’ 1575s [00:52:55.897] - Field: ‘expr’ 1575s [00:52:55.897] - Field: ‘uuid’ 1575s [00:52:55.897] - Field: ‘seed’ 1575s [00:52:55.897] - Field: ‘version’ 1575s [00:52:55.897] - Field: ‘result’ 1575s [00:52:55.897] - Field: ‘asynchronous’ 1575s [00:52:55.898] - Field: ‘calls’ 1575s [00:52:55.898] - Field: ‘globals’ 1575s [00:52:55.898] - Field: ‘stdout’ 1575s [00:52:55.898] - Field: ‘earlySignal’ 1575s [00:52:55.899] - Field: ‘lazy’ 1575s [00:52:55.899] - Field: ‘state’ 1575s [00:52:55.899] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1575s [00:52:55.899] - Launch lazy future ... 1575s [00:52:55.899] Packages needed by the future expression (n = 0): 1575s [00:52:55.900] Packages needed by future strategies (n = 0): 1575s [00:52:55.900] { 1575s [00:52:55.900] { 1575s [00:52:55.900] { 1575s [00:52:55.900] ...future.startTime <- base::Sys.time() 1575s [00:52:55.900] { 1575s [00:52:55.900] { 1575s [00:52:55.900] { 1575s [00:52:55.900] base::local({ 1575s [00:52:55.900] has_future <- base::requireNamespace("future", 1575s [00:52:55.900] quietly = TRUE) 1575s [00:52:55.900] if (has_future) { 1575s [00:52:55.900] ns <- base::getNamespace("future") 1575s [00:52:55.900] version <- ns[[".package"]][["version"]] 1575s [00:52:55.900] if (is.null(version)) 1575s [00:52:55.900] version <- utils::packageVersion("future") 1575s [00:52:55.900] } 1575s [00:52:55.900] else { 1575s [00:52:55.900] version <- NULL 1575s [00:52:55.900] } 1575s [00:52:55.900] if (!has_future || version < "1.8.0") { 1575s [00:52:55.900] info <- base::c(r_version = base::gsub("R version ", 1575s [00:52:55.900] "", base::R.version$version.string), 1575s [00:52:55.900] platform = base::sprintf("%s (%s-bit)", 1575s [00:52:55.900] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1575s [00:52:55.900] os = base::paste(base::Sys.info()[base::c("sysname", 1575s [00:52:55.900] "release", "version")], collapse = " "), 1575s [00:52:55.900] hostname = base::Sys.info()[["nodename"]]) 1575s [00:52:55.900] info <- base::sprintf("%s: %s", base::names(info), 1575s [00:52:55.900] info) 1575s [00:52:55.900] info <- base::paste(info, collapse = "; ") 1575s [00:52:55.900] if (!has_future) { 1575s [00:52:55.900] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1575s [00:52:55.900] info) 1575s [00:52:55.900] } 1575s [00:52:55.900] else { 1575s [00:52:55.900] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1575s [00:52:55.900] info, version) 1575s [00:52:55.900] } 1575s [00:52:55.900] base::stop(msg) 1575s [00:52:55.900] } 1575s [00:52:55.900] }) 1575s [00:52:55.900] } 1575s [00:52:55.900] options(future.plan = NULL) 1575s [00:52:55.900] Sys.unsetenv("R_FUTURE_PLAN") 1575s [00:52:55.900] future::plan("default", .cleanup = FALSE, .init = FALSE) 1575s [00:52:55.900] } 1575s [00:52:55.900] ...future.workdir <- getwd() 1575s [00:52:55.900] } 1575s [00:52:55.900] ...future.oldOptions <- base::as.list(base::.Options) 1575s [00:52:55.900] ...future.oldEnvVars <- base::Sys.getenv() 1575s [00:52:55.900] } 1575s [00:52:55.900] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1575s [00:52:55.900] future.globals.maxSize = NULL, future.globals.method = NULL, 1575s [00:52:55.900] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1575s [00:52:55.900] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1575s [00:52:55.900] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1575s [00:52:55.900] future.stdout.windows.reencode = NULL, width = 80L) 1575s [00:52:55.900] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1575s [00:52:55.900] base::names(...future.oldOptions)) 1575s [00:52:55.900] } 1575s [00:52:55.900] if (FALSE) { 1575s [00:52:55.900] } 1575s [00:52:55.900] else { 1575s [00:52:55.900] if (TRUE) { 1575s [00:52:55.900] ...future.stdout <- base::rawConnection(base::raw(0L), 1575s [00:52:55.900] open = "w") 1575s [00:52:55.900] } 1575s [00:52:55.900] else { 1575s [00:52:55.900] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1575s [00:52:55.900] windows = "NUL", "/dev/null"), open = "w") 1575s [00:52:55.900] } 1575s [00:52:55.900] base::sink(...future.stdout, type = "output", split = FALSE) 1575s [00:52:55.900] base::on.exit(if (!base::is.null(...future.stdout)) { 1575s [00:52:55.900] base::sink(type = "output", split = FALSE) 1575s [00:52:55.900] base::close(...future.stdout) 1575s [00:52:55.900] }, add = TRUE) 1575s [00:52:55.900] } 1575s [00:52:55.900] ...future.frame <- base::sys.nframe() 1575s [00:52:55.900] ...future.conditions <- base::list() 1575s [00:52:55.900] ...future.rng <- base::globalenv()$.Random.seed 1575s [00:52:55.900] if (FALSE) { 1575s [00:52:55.900] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1575s [00:52:55.900] "...future.value", "...future.globalenv.names", ".Random.seed") 1575s [00:52:55.900] } 1575s [00:52:55.900] ...future.result <- base::tryCatch({ 1575s [00:52:55.900] base::withCallingHandlers({ 1575s [00:52:55.900] ...future.value <- base::withVisible(base::local({ 1575s [00:52:55.900] do.call(function(...) { 1575s [00:52:55.900] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:55.900] if (!identical(...future.globals.maxSize.org, 1575s [00:52:55.900] ...future.globals.maxSize)) { 1575s [00:52:55.900] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:55.900] on.exit(options(oopts), add = TRUE) 1575s [00:52:55.900] } 1575s [00:52:55.900] { 1575s [00:52:55.900] lapply(seq_along(...future.elements_ii), 1575s [00:52:55.900] FUN = function(jj) { 1575s [00:52:55.900] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:55.900] ...future.FUN(...future.X_jj, ...) 1575s [00:52:55.900] }) 1575s [00:52:55.900] } 1575s [00:52:55.900] }, args = future.call.arguments) 1575s [00:52:55.900] })) 1575s [00:52:55.900] future::FutureResult(value = ...future.value$value, 1575s [00:52:55.900] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1575s [00:52:55.900] ...future.rng), globalenv = if (FALSE) 1575s [00:52:55.900] list(added = base::setdiff(base::names(base::.GlobalEnv), 1575s [00:52:55.900] ...future.globalenv.names)) 1575s [00:52:55.900] else NULL, started = ...future.startTime, version = "1.8") 1575s [00:52:55.900] }, condition = base::local({ 1575s [00:52:55.900] c <- base::c 1575s [00:52:55.900] inherits <- base::inherits 1575s [00:52:55.900] invokeRestart <- base::invokeRestart 1575s [00:52:55.900] length <- base::length 1575s [00:52:55.900] list <- base::list 1575s [00:52:55.900] seq.int <- base::seq.int 1575s [00:52:55.900] signalCondition <- base::signalCondition 1575s [00:52:55.900] sys.calls <- base::sys.calls 1575s [00:52:55.900] `[[` <- base::`[[` 1575s [00:52:55.900] `+` <- base::`+` 1575s [00:52:55.900] `<<-` <- base::`<<-` 1575s [00:52:55.900] sysCalls <- function(calls = sys.calls(), from = 1L) { 1575s [00:52:55.900] calls[seq.int(from = from + 12L, to = length(calls) - 1575s [00:52:55.900] 3L)] 1575s [00:52:55.900] } 1575s [00:52:55.900] function(cond) { 1575s [00:52:55.900] is_error <- inherits(cond, "error") 1575s [00:52:55.900] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1575s [00:52:55.900] NULL) 1575s [00:52:55.900] if (is_error) { 1575s [00:52:55.900] sessionInformation <- function() { 1575s [00:52:55.900] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1575s [00:52:55.900] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1575s [00:52:55.900] search = base::search(), system = base::Sys.info()) 1575s [00:52:55.900] } 1575s [00:52:55.900] ...future.conditions[[length(...future.conditions) + 1575s [00:52:55.900] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1575s [00:52:55.900] cond$call), session = sessionInformation(), 1575s [00:52:55.900] timestamp = base::Sys.time(), signaled = 0L) 1575s [00:52:55.900] signalCondition(cond) 1575s [00:52:55.900] } 1575s [00:52:55.900] else if (!ignore && TRUE && inherits(cond, c("condition", 1575s [00:52:55.900] "immediateCondition"))) { 1575s [00:52:55.900] signal <- TRUE && inherits(cond, "immediateCondition") 1575s [00:52:55.900] ...future.conditions[[length(...future.conditions) + 1575s [00:52:55.900] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1575s [00:52:55.900] if (TRUE && !signal) { 1575s [00:52:55.900] muffleCondition <- function (cond, pattern = "^muffle") 1575s [00:52:55.900] { 1575s [00:52:55.900] inherits <- base::inherits 1575s [00:52:55.900] invokeRestart <- base::invokeRestart 1575s [00:52:55.900] is.null <- base::is.null 1575s [00:52:55.900] muffled <- FALSE 1575s [00:52:55.900] if (inherits(cond, "message")) { 1575s [00:52:55.900] muffled <- grepl(pattern, "muffleMessage") 1575s [00:52:55.900] if (muffled) 1575s [00:52:55.900] invokeRestart("muffleMessage") 1575s [00:52:55.900] } 1575s [00:52:55.900] else if (inherits(cond, "warning")) { 1575s [00:52:55.900] muffled <- grepl(pattern, "muffleWarning") 1575s [00:52:55.900] if (muffled) 1575s [00:52:55.900] invokeRestart("muffleWarning") 1575s [00:52:55.900] } 1575s [00:52:55.900] else if (inherits(cond, "condition")) { 1575s [00:52:55.900] if (!is.null(pattern)) { 1575s [00:52:55.900] computeRestarts <- base::computeRestarts 1575s [00:52:55.900] grepl <- base::grepl 1575s [00:52:55.900] restarts <- computeRestarts(cond) 1575s [00:52:55.900] for (restart in restarts) { 1575s [00:52:55.900] name <- restart$name 1575s [00:52:55.900] if (is.null(name)) 1575s [00:52:55.900] next 1575s [00:52:55.900] if (!grepl(pattern, name)) 1575s [00:52:55.900] next 1575s [00:52:55.900] invokeRestart(restart) 1575s [00:52:55.900] muffled <- TRUE 1575s [00:52:55.900] break 1575s [00:52:55.900] } 1575s [00:52:55.900] } 1575s [00:52:55.900] } 1575s [00:52:55.900] invisible(muffled) 1575s [00:52:55.900] } 1575s [00:52:55.900] muffleCondition(cond, pattern = "^muffle") 1575s [00:52:55.900] } 1575s [00:52:55.900] } 1575s [00:52:55.900] else { 1575s [00:52:55.900] if (TRUE) { 1575s [00:52:55.900] muffleCondition <- function (cond, pattern = "^muffle") 1575s [00:52:55.900] { 1575s [00:52:55.900] inherits <- base::inherits 1575s [00:52:55.900] invokeRestart <- base::invokeRestart 1575s [00:52:55.900] is.null <- base::is.null 1575s [00:52:55.900] muffled <- FALSE 1575s [00:52:55.900] if (inherits(cond, "message")) { 1575s [00:52:55.900] muffled <- grepl(pattern, "muffleMessage") 1575s [00:52:55.900] if (muffled) 1575s [00:52:55.900] invokeRestart("muffleMessage") 1575s [00:52:55.900] } 1575s [00:52:55.900] else if (inherits(cond, "warning")) { 1575s [00:52:55.900] muffled <- grepl(pattern, "muffleWarning") 1575s [00:52:55.900] if (muffled) 1575s [00:52:55.900] invokeRestart("muffleWarning") 1575s [00:52:55.900] } 1575s [00:52:55.900] else if (inherits(cond, "condition")) { 1575s [00:52:55.900] if (!is.null(pattern)) { 1575s [00:52:55.900] computeRestarts <- base::computeRestarts 1575s [00:52:55.900] grepl <- base::grepl 1575s [00:52:55.900] restarts <- computeRestarts(cond) 1575s [00:52:55.900] for (restart in restarts) { 1575s [00:52:55.900] name <- restart$name 1575s [00:52:55.900] if (is.null(name)) 1575s [00:52:55.900] next 1575s [00:52:55.900] if (!grepl(pattern, name)) 1575s [00:52:55.900] next 1575s [00:52:55.900] invokeRestart(restart) 1575s [00:52:55.900] muffled <- TRUE 1575s [00:52:55.900] break 1575s [00:52:55.900] } 1575s [00:52:55.900] } 1575s [00:52:55.900] } 1575s [00:52:55.900] invisible(muffled) 1575s [00:52:55.900] } 1575s [00:52:55.900] muffleCondition(cond, pattern = "^muffle") 1575s [00:52:55.900] } 1575s [00:52:55.900] } 1575s [00:52:55.900] } 1575s [00:52:55.900] })) 1575s [00:52:55.900] }, error = function(ex) { 1575s [00:52:55.900] base::structure(base::list(value = NULL, visible = NULL, 1575s [00:52:55.900] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1575s [00:52:55.900] ...future.rng), started = ...future.startTime, 1575s [00:52:55.900] finished = Sys.time(), session_uuid = NA_character_, 1575s [00:52:55.900] version = "1.8"), class = "FutureResult") 1575s [00:52:55.900] }, finally = { 1575s [00:52:55.900] if (!identical(...future.workdir, getwd())) 1575s [00:52:55.900] setwd(...future.workdir) 1575s [00:52:55.900] { 1575s [00:52:55.900] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1575s [00:52:55.900] ...future.oldOptions$nwarnings <- NULL 1575s [00:52:55.900] } 1575s [00:52:55.900] base::options(...future.oldOptions) 1575s [00:52:55.900] if (.Platform$OS.type == "windows") { 1575s [00:52:55.900] old_names <- names(...future.oldEnvVars) 1575s [00:52:55.900] envs <- base::Sys.getenv() 1575s [00:52:55.900] names <- names(envs) 1575s [00:52:55.900] common <- intersect(names, old_names) 1575s [00:52:55.900] added <- setdiff(names, old_names) 1575s [00:52:55.900] removed <- setdiff(old_names, names) 1575s [00:52:55.900] changed <- common[...future.oldEnvVars[common] != 1575s [00:52:55.900] envs[common]] 1575s [00:52:55.900] NAMES <- toupper(changed) 1575s [00:52:55.900] args <- list() 1575s [00:52:55.900] for (kk in seq_along(NAMES)) { 1575s [00:52:55.900] name <- changed[[kk]] 1575s [00:52:55.900] NAME <- NAMES[[kk]] 1575s [00:52:55.900] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:55.900] next 1575s [00:52:55.900] args[[name]] <- ...future.oldEnvVars[[name]] 1575s [00:52:55.900] } 1575s [00:52:55.900] NAMES <- toupper(added) 1575s [00:52:55.900] for (kk in seq_along(NAMES)) { 1575s [00:52:55.900] name <- added[[kk]] 1575s [00:52:55.900] NAME <- NAMES[[kk]] 1575s [00:52:55.900] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:55.900] next 1575s [00:52:55.900] args[[name]] <- "" 1575s [00:52:55.900] } 1575s [00:52:55.900] NAMES <- toupper(removed) 1575s [00:52:55.900] for (kk in seq_along(NAMES)) { 1575s [00:52:55.900] name <- removed[[kk]] 1575s [00:52:55.900] NAME <- NAMES[[kk]] 1575s [00:52:55.900] if (name != NAME && is.element(NAME, old_names)) 1575s [00:52:55.900] next 1575s [00:52:55.900] args[[name]] <- ...future.oldEnvVars[[name]] 1575s [00:52:55.900] } 1575s [00:52:55.900] if (length(args) > 0) 1575s [00:52:55.900] base::do.call(base::Sys.setenv, args = args) 1575s [00:52:55.900] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1575s [00:52:55.900] } 1575s [00:52:55.900] else { 1575s [00:52:55.900] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1575s [00:52:55.900] } 1575s [00:52:55.900] { 1575s [00:52:55.900] if (base::length(...future.futureOptionsAdded) > 1575s [00:52:55.900] 0L) { 1575s [00:52:55.900] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1575s [00:52:55.900] base::names(opts) <- ...future.futureOptionsAdded 1575s [00:52:55.900] base::options(opts) 1575s [00:52:55.900] } 1575s [00:52:55.900] { 1575s [00:52:55.900] { 1575s [00:52:55.900] NULL 1575s [00:52:55.900] RNGkind("Mersenne-Twister") 1575s [00:52:55.900] base::rm(list = ".Random.seed", envir = base::globalenv(), 1575s [00:52:55.900] inherits = FALSE) 1575s [00:52:55.900] } 1575s [00:52:55.900] options(future.plan = NULL) 1575s [00:52:55.900] if (is.na(NA_character_)) 1575s [00:52:55.900] Sys.unsetenv("R_FUTURE_PLAN") 1575s [00:52:55.900] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1575s [00:52:55.900] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1575s [00:52:55.900] envir = parent.frame()) 1575s [00:52:55.900] { 1575s [00:52:55.900] default_workers <- missing(workers) 1575s [00:52:55.900] if (is.function(workers)) 1575s [00:52:55.900] workers <- workers() 1575s [00:52:55.900] workers <- structure(as.integer(workers), 1575s [00:52:55.900] class = class(workers)) 1575s [00:52:55.900] stop_if_not(is.finite(workers), workers >= 1575s [00:52:55.900] 1L) 1575s [00:52:55.900] if ((workers == 1L && !inherits(workers, 1575s [00:52:55.900] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1575s [00:52:55.900] if (default_workers) 1575s [00:52:55.900] supportsMulticore(warn = TRUE) 1575s [00:52:55.900] return(sequential(..., envir = envir)) 1575s [00:52:55.900] } 1575s [00:52:55.900] oopts <- options(mc.cores = workers) 1575s [00:52:55.900] on.exit(options(oopts)) 1575s [00:52:55.900] future <- MulticoreFuture(..., workers = workers, 1575s [00:52:55.900] envir = envir) 1575s [00:52:55.900] if (!future$lazy) 1575s [00:52:55.900] future <- run(future) 1575s [00:52:55.900] invisible(future) 1575s [00:52:55.900] }), .cleanup = FALSE, .init = FALSE) 1575s [00:52:55.900] } 1575s [00:52:55.900] } 1575s [00:52:55.900] } 1575s [00:52:55.900] }) 1575s [00:52:55.900] if (TRUE) { 1575s [00:52:55.900] base::sink(type = "output", split = FALSE) 1575s [00:52:55.900] if (TRUE) { 1575s [00:52:55.900] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1575s [00:52:55.900] } 1575s [00:52:55.900] else { 1575s [00:52:55.900] ...future.result["stdout"] <- base::list(NULL) 1575s [00:52:55.900] } 1575s [00:52:55.900] base::close(...future.stdout) 1575s [00:52:55.900] ...future.stdout <- NULL 1575s [00:52:55.900] } 1575s [00:52:55.900] ...future.result$conditions <- ...future.conditions 1575s [00:52:55.900] ...future.result$finished <- base::Sys.time() 1575s [00:52:55.900] ...future.result 1575s [00:52:55.900] } 1575s [00:52:55.906] assign_globals() ... 1575s [00:52:55.907] List of 5 1575s [00:52:55.907] $ ...future.FUN :function (x) 1575s [00:52:55.907] $ future.call.arguments : list() 1575s [00:52:55.907] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1575s [00:52:55.907] $ ...future.elements_ii :List of 6 1575s [00:52:55.907] ..$ a1: int 1 1575s [00:52:55.907] ..$ a2: int 2 1575s [00:52:55.907] ..$ b1: int 2 1575s [00:52:55.907] ..$ b2: int 3 1575s [00:52:55.907] ..$ c1: int 3 1575s [00:52:55.907] ..$ c2: int 4 1575s [00:52:55.907] $ ...future.seeds_ii : NULL 1575s [00:52:55.907] $ ...future.globals.maxSize: NULL 1575s [00:52:55.907] - attr(*, "where")=List of 5 1575s [00:52:55.907] ..$ ...future.FUN : 1575s [00:52:55.907] ..$ future.call.arguments : 1575s [00:52:55.907] ..$ ...future.elements_ii : 1575s [00:52:55.907] ..$ ...future.seeds_ii : 1575s [00:52:55.907] ..$ ...future.globals.maxSize: 1575s [00:52:55.907] - attr(*, "resolved")= logi FALSE 1575s [00:52:55.907] - attr(*, "total_size")= num 848 1575s [00:52:55.907] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1575s [00:52:55.907] - attr(*, "already-done")= logi TRUE 1575s [00:52:55.917] - copied ‘...future.FUN’ to environment 1575s [00:52:55.918] - copied ‘future.call.arguments’ to environment 1575s [00:52:55.918] - copied ‘...future.elements_ii’ to environment 1575s [00:52:55.918] - copied ‘...future.seeds_ii’ to environment 1575s [00:52:55.919] - copied ‘...future.globals.maxSize’ to environment 1575s [00:52:55.919] assign_globals() ... done 1575s [00:52:55.920] plan(): Setting new future strategy stack: 1575s [00:52:55.920] List of future strategies: 1575s [00:52:55.920] 1. sequential: 1575s [00:52:55.920] - args: function (..., envir = parent.frame()) 1575s [00:52:55.920] - tweaked: FALSE 1575s [00:52:55.920] - call: NULL 1575s [00:52:55.921] plan(): nbrOfWorkers() = 1 1575s [00:52:55.922] plan(): Setting new future strategy stack: 1575s [00:52:55.922] List of future strategies: 1575s [00:52:55.922] 1. multicore: 1575s [00:52:55.922] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1575s [00:52:55.922] - tweaked: FALSE 1575s [00:52:55.922] - call: plan(strategy) 1575s [00:52:55.927] plan(): nbrOfWorkers() = 1 1575s [00:52:55.927] SequentialFuture started (and completed) 1575s [00:52:55.927] - Launch lazy future ... done 1575s [00:52:55.927] run() for ‘SequentialFuture’ ... done 1575s [00:52:55.928] Created future: 1575s [00:52:55.928] SequentialFuture: 1575s [00:52:55.928] Label: ‘future_sapply-1’ 1575s [00:52:55.928] Expression: 1575s [00:52:55.928] { 1575s [00:52:55.928] do.call(function(...) { 1575s [00:52:55.928] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1575s [00:52:55.928] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1575s [00:52:55.928] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1575s [00:52:55.928] on.exit(options(oopts), add = TRUE) 1575s [00:52:55.928] } 1575s [00:52:55.928] { 1575s [00:52:55.928] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1575s [00:52:55.928] ...future.X_jj <- ...future.elements_ii[[jj]] 1575s [00:52:55.928] ...future.FUN(...future.X_jj, ...) 1575s [00:52:55.928] }) 1575s [00:52:55.928] } 1575s [00:52:55.928] }, args = future.call.arguments) 1575s [00:52:55.928] } 1575s [00:52:55.928] Lazy evaluation: FALSE 1575s [00:52:55.928] Asynchronous evaluation: FALSE 1575s [00:52:55.928] Local evaluation: TRUE 1575s [00:52:55.928] Environment: R_GlobalEnv 1575s [00:52:55.928] Capture standard output: TRUE 1575s [00:52:55.928] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1575s [00:52:55.928] Globals: 5 objects totaling 1.16 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1575s [00:52:55.928] Packages: 1575s [00:52:55.928] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1575s [00:52:55.928] Resolved: TRUE 1575s [00:52:55.928] Value: 336 bytes of class ‘list’ 1575s [00:52:55.928] Early signaling: FALSE 1575s [00:52:55.928] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1575s [00:52:55.928] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1575s [00:52:55.930] Chunk #1 of 1 ... DONE 1575s [00:52:55.930] Launching 1 futures (chunks) ... DONE 1575s [00:52:55.930] Resolving 1 futures (chunks) ... 1575s [00:52:55.931] resolve() on list ... 1575s [00:52:55.931] recursive: 0 1575s [00:52:55.931] length: 1 1575s [00:52:55.931] 1575s [00:52:55.932] resolved() for ‘SequentialFuture’ ... 1575s [00:52:55.932] - state: ‘finished’ 1575s [00:52:55.932] - run: TRUE 1575s [00:52:55.933] - result: ‘FutureResult’ 1575s [00:52:55.933] resolved() for ‘SequentialFuture’ ... done 1575s [00:52:55.933] Future #1 1575s [00:52:55.934] signalConditionsASAP(SequentialFuture, pos=1) ... 1575s [00:52:55.934] - nx: 1 1575s [00:52:55.934] - relay: TRUE 1575s [00:52:55.935] - stdout: TRUE 1575s [00:52:55.935] - signal: TRUE 1575s [00:52:55.935] - resignal: FALSE 1575s [00:52:55.935] - force: TRUE 1575s [00:52:55.935] - relayed: [n=1] FALSE 1575s [00:52:55.936] - queued futures: [n=1] FALSE 1575s [00:52:55.936] - until=1 1575s [00:52:55.936] - relaying element #1 1575s [00:52:55.936] - relayed: [n=1] TRUE 1575s [00:52:55.937] - queued futures: [n=1] TRUE 1575s [00:52:55.937] signalConditionsASAP(SequentialFuture, pos=1) ... done 1575s [00:52:55.938] length: 0 (resolved future 1) 1575s [00:52:55.938] Relaying remaining futures 1575s [00:52:55.938] signalConditionsASAP(NULL, pos=0) ... 1575s [00:52:55.939] - nx: 1 1575s [00:52:55.939] - relay: TRUE 1575s [00:52:55.939] - stdout: TRUE 1575s [00:52:55.939] - signal: TRUE 1575s [00:52:55.940] - resignal: FALSE 1575s [00:52:55.940] - force: TRUE 1575s [00:52:55.940] - relayed: [n=1] TRUE 1575s [00:52:55.941] - queued futures: [n=1] TRUE 1575s List of 2 1575s $ - flush all 1575s [00:52:55.941] - relayed: [n=1] TRUE 1575s [00:52:55.942] - queued futures: [n=1] TRUE 1575s [00:52:55.942] signalConditionsASAP(NULL, pos=0) ... done 1575s [00:52:55.942] resolve() on list ... DONE 1575s [00:52:55.943] - Number of value chunks collected: 1 1575s [00:52:55.943] Resolving 1 futures (chunks) ... DONE 1575s [00:52:55.943] Reducing values from 1 chunks ... 1575s [00:52:55.944] - Number of values collected after concatenation: 6 1575s [00:52:55.944] - Number of values expected: 6 1575s [00:52:55.944] Reducing values from 1 chunks ... DONE 1575s [00:52:55.944] future_lapply() ... DONE 1575s y0: Named int [1:6] 1 2 2 3 3 4 1575s ..- attr(*, "names")= chr [1:6] "a1" "a2" "b1" "b2" ... 1575s $ y1: Named int [1:6] 1 2 2 3 3 4 1575s ..- attr(*, "names")= chr [1:6] "a1" "a2" "b1" "b2" ... 1575s [00:52:55.950] future_lapply() ... 1575s [00:52:55.956] Number of chunks: 1 1575s [00:52:55.957] getGlobalsAndPackagesXApply() ... 1575s [00:52:55.957] - future.globals: TRUE 1575s [00:52:55.957] getGlobalsAndPackages() ... 1575s [00:52:55.958] Searching for globals... 1575s [00:52:55.959] - globals found: [2] ‘FUN’, ‘UseMethod’ 1575s [00:52:55.959] Searching for globals ... DONE 1575s [00:52:55.960] Resolving globals: FALSE 1575s [00:52:55.961] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1575s [00:52:55.962] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1575s [00:52:55.963] - globals: [1] ‘FUN’ 1575s [00:52:55.963] 1575s [00:52:55.964] getGlobalsAndPackages() ... DONE 1576s [00:52:55.964] - globals found/used: [n=1] ‘FUN’ 1576s [00:52:55.964] - needed namespaces: [n=0] 1576s [00:52:55.965] Finding globals ... DONE 1576s [00:52:55.969] - use_args: TRUE 1576s [00:52:55.969] - Getting '...' globals ... 1576s [00:52:55.970] resolve() on list ... 1576s [00:52:55.971] recursive: 0 1576s [00:52:55.971] length: 1 1576s [00:52:55.971] elements: ‘...’ 1576s [00:52:55.972] length: 0 (resolved future 1) 1576s [00:52:55.972] resolve() on list ... DONE 1576s [00:52:55.972] - '...' content: [n=0] 1576s [00:52:55.972] List of 1 1576s [00:52:55.972] $ ...: list() 1576s [00:52:55.972] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1576s [00:52:55.972] - attr(*, "where")=List of 1 1576s [00:52:55.972] ..$ ...: 1576s [00:52:55.972] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1576s [00:52:55.972] - attr(*, "resolved")= logi TRUE 1576s [00:52:55.972] - attr(*, "total_size")= num NA 1576s [00:52:55.977] - Getting '...' globals ... DONE 1576s [00:52:55.977] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1576s [00:52:55.978] List of 2 1576s [00:52:55.978] $ ...future.FUN:function (x, ...) 1576s [00:52:55.978] $ ... : list() 1576s [00:52:55.978] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1576s [00:52:55.978] - attr(*, "where")=List of 2 1576s [00:52:55.978] ..$ ...future.FUN: 1576s [00:52:55.978] ..$ ... : 1576s [00:52:55.978] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1576s [00:52:55.978] - attr(*, "resolved")= logi FALSE 1576s [00:52:55.978] - attr(*, "total_size")= num 1248 1576s [00:52:55.983] Packages to be attached in all futures: [n=0] 1576s [00:52:55.983] getGlobalsAndPackagesXApply() ... DONE 1576s [00:52:55.984] Number of futures (= number of chunks): 1 1576s [00:52:55.984] Launching 1 futures (chunks) ... 1576s [00:52:55.984] Chunk #1 of 1 ... 1576s [00:52:55.984] - Finding globals in 'X' for chunk #1 ... 1576s [00:52:55.985] getGlobalsAndPackages() ... 1576s [00:52:55.985] Searching for globals... 1576s [00:52:55.986] 1576s [00:52:55.987] Searching for globals ... DONE 1576s [00:52:55.988] - globals: [0] 1576s [00:52:55.988] getGlobalsAndPackages() ... DONE 1576s [00:52:55.989] + additional globals found: [n=0] 1576s [00:52:55.989] + additional namespaces needed: [n=0] 1576s [00:52:55.990] - Finding globals in 'X' for chunk #1 ... DONE 1576s [00:52:55.990] - seeds: 1576s [00:52:55.991] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1576s [00:52:55.993] getGlobalsAndPackages() ... 1576s [00:52:55.994] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1576s [00:52:55.995] Resolving globals: FALSE 1576s [00:52:55.996] Tweak future expression to call with '...' arguments ... 1576s [00:52:55.998] { 1576s [00:52:55.998] do.call(function(...) { 1576s [00:52:55.998] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1576s [00:52:55.998] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1576s [00:52:55.998] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1576s [00:52:55.998] on.exit(options(oopts), add = TRUE) 1576s [00:52:55.998] } 1576s [00:52:55.998] { 1576s [00:52:55.998] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1576s [00:52:55.998] ...future.X_jj <- ...future.elements_ii[[jj]] 1576s [00:52:55.998] ...future.FUN(...future.X_jj, ...) 1576s [00:52:55.998] }) 1576s [00:52:55.998] } 1576s [00:52:55.998] }, args = future.call.arguments) 1576s [00:52:55.998] } 1576s [00:52:56.001] Tweak future expression to call with '...' arguments ... DONE 1576s [00:52:56.003] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1576s [00:52:56.004] 1576s [00:52:56.004] getGlobalsAndPackages() ... DONE 1576s [00:52:56.004] run() for ‘Future’ ... 1576s [00:52:56.005] - state: ‘created’ 1576s [00:52:56.005] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1576s [00:52:56.010] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1576s [00:52:56.010] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1576s [00:52:56.011] - Field: ‘label’ 1576s [00:52:56.011] - Field: ‘local’ 1576s [00:52:56.011] - Field: ‘owner’ 1576s [00:52:56.011] - Field: ‘envir’ 1576s [00:52:56.011] - Field: ‘packages’ 1576s [00:52:56.012] - Field: ‘gc’ 1576s [00:52:56.013] - Field: ‘conditions’ 1576s [00:52:56.013] - Field: ‘expr’ 1576s [00:52:56.014] - Field: ‘uuid’ 1576s [00:52:56.014] - Field: ‘seed’ 1576s [00:52:56.014] - Field: ‘version’ 1576s [00:52:56.014] - Field: ‘result’ 1576s [00:52:56.014] - Field: ‘asynchronous’ 1576s [00:52:56.014] - Field: ‘calls’ 1576s [00:52:56.015] - Field: ‘globals’ 1576s [00:52:56.015] - Field: ‘stdout’ 1576s [00:52:56.015] - Field: ‘earlySignal’ 1576s [00:52:56.015] - Field: ‘lazy’ 1576s [00:52:56.016] - Field: ‘state’ 1576s [00:52:56.017] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1576s [00:52:56.017] - Launch lazy future ... 1576s [00:52:56.018] Packages needed by the future expression (n = 0): 1576s [00:52:56.018] Packages needed by future strategies (n = 0): 1576s [00:52:56.019] { 1576s [00:52:56.019] { 1576s [00:52:56.019] { 1576s [00:52:56.019] ...future.startTime <- base::Sys.time() 1576s [00:52:56.019] { 1576s [00:52:56.019] { 1576s [00:52:56.019] { 1576s [00:52:56.019] base::local({ 1576s [00:52:56.019] has_future <- base::requireNamespace("future", 1576s [00:52:56.019] quietly = TRUE) 1576s [00:52:56.019] if (has_future) { 1576s [00:52:56.019] ns <- base::getNamespace("future") 1576s [00:52:56.019] version <- ns[[".package"]][["version"]] 1576s [00:52:56.019] if (is.null(version)) 1576s [00:52:56.019] version <- utils::packageVersion("future") 1576s [00:52:56.019] } 1576s [00:52:56.019] else { 1576s [00:52:56.019] version <- NULL 1576s [00:52:56.019] } 1576s [00:52:56.019] if (!has_future || version < "1.8.0") { 1576s [00:52:56.019] info <- base::c(r_version = base::gsub("R version ", 1576s [00:52:56.019] "", base::R.version$version.string), 1576s [00:52:56.019] platform = base::sprintf("%s (%s-bit)", 1576s [00:52:56.019] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1576s [00:52:56.019] os = base::paste(base::Sys.info()[base::c("sysname", 1576s [00:52:56.019] "release", "version")], collapse = " "), 1576s [00:52:56.019] hostname = base::Sys.info()[["nodename"]]) 1576s [00:52:56.019] info <- base::sprintf("%s: %s", base::names(info), 1576s [00:52:56.019] info) 1576s [00:52:56.019] info <- base::paste(info, collapse = "; ") 1576s [00:52:56.019] if (!has_future) { 1576s [00:52:56.019] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1576s [00:52:56.019] info) 1576s [00:52:56.019] } 1576s [00:52:56.019] else { 1576s [00:52:56.019] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1576s [00:52:56.019] info, version) 1576s [00:52:56.019] } 1576s [00:52:56.019] base::stop(msg) 1576s [00:52:56.019] } 1576s [00:52:56.019] }) 1576s [00:52:56.019] } 1576s [00:52:56.019] options(future.plan = NULL) 1576s [00:52:56.019] Sys.unsetenv("R_FUTURE_PLAN") 1576s [00:52:56.019] future::plan("default", .cleanup = FALSE, .init = FALSE) 1576s [00:52:56.019] } 1576s [00:52:56.019] ...future.workdir <- getwd() 1576s [00:52:56.019] } 1576s [00:52:56.019] ...future.oldOptions <- base::as.list(base::.Options) 1576s [00:52:56.019] ...future.oldEnvVars <- base::Sys.getenv() 1576s [00:52:56.019] } 1576s [00:52:56.019] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1576s [00:52:56.019] future.globals.maxSize = NULL, future.globals.method = NULL, 1576s [00:52:56.019] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1576s [00:52:56.019] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1576s [00:52:56.019] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1576s [00:52:56.019] future.stdout.windows.reencode = NULL, width = 80L) 1576s [00:52:56.019] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1576s [00:52:56.019] base::names(...future.oldOptions)) 1576s [00:52:56.019] } 1576s [00:52:56.019] if (FALSE) { 1576s [00:52:56.019] } 1576s [00:52:56.019] else { 1576s [00:52:56.019] if (TRUE) { 1576s [00:52:56.019] ...future.stdout <- base::rawConnection(base::raw(0L), 1576s [00:52:56.019] open = "w") 1576s [00:52:56.019] } 1576s [00:52:56.019] else { 1576s [00:52:56.019] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1576s [00:52:56.019] windows = "NUL", "/dev/null"), open = "w") 1576s [00:52:56.019] } 1576s [00:52:56.019] base::sink(...future.stdout, type = "output", split = FALSE) 1576s [00:52:56.019] base::on.exit(if (!base::is.null(...future.stdout)) { 1576s [00:52:56.019] base::sink(type = "output", split = FALSE) 1576s [00:52:56.019] base::close(...future.stdout) 1576s [00:52:56.019] }, add = TRUE) 1576s [00:52:56.019] } 1576s [00:52:56.019] ...future.frame <- base::sys.nframe() 1576s [00:52:56.019] ...future.conditions <- base::list() 1576s [00:52:56.019] ...future.rng <- base::globalenv()$.Random.seed 1576s [00:52:56.019] if (FALSE) { 1576s [00:52:56.019] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1576s [00:52:56.019] "...future.value", "...future.globalenv.names", ".Random.seed") 1576s [00:52:56.019] } 1576s [00:52:56.019] ...future.result <- base::tryCatch({ 1576s [00:52:56.019] base::withCallingHandlers({ 1576s [00:52:56.019] ...future.value <- base::withVisible(base::local({ 1576s [00:52:56.019] do.call(function(...) { 1576s [00:52:56.019] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1576s [00:52:56.019] if (!identical(...future.globals.maxSize.org, 1576s [00:52:56.019] ...future.globals.maxSize)) { 1576s [00:52:56.019] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1576s [00:52:56.019] on.exit(options(oopts), add = TRUE) 1576s [00:52:56.019] } 1576s [00:52:56.019] { 1576s [00:52:56.019] lapply(seq_along(...future.elements_ii), 1576s [00:52:56.019] FUN = function(jj) { 1576s [00:52:56.019] ...future.X_jj <- ...future.elements_ii[[jj]] 1576s [00:52:56.019] ...future.FUN(...future.X_jj, ...) 1576s [00:52:56.019] }) 1576s [00:52:56.019] } 1576s [00:52:56.019] }, args = future.call.arguments) 1576s [00:52:56.019] })) 1576s [00:52:56.019] future::FutureResult(value = ...future.value$value, 1576s [00:52:56.019] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1576s [00:52:56.019] ...future.rng), globalenv = if (FALSE) 1576s [00:52:56.019] list(added = base::setdiff(base::names(base::.GlobalEnv), 1576s [00:52:56.019] ...future.globalenv.names)) 1576s [00:52:56.019] else NULL, started = ...future.startTime, version = "1.8") 1576s [00:52:56.019] }, condition = base::local({ 1576s [00:52:56.019] c <- base::c 1576s [00:52:56.019] inherits <- base::inherits 1576s [00:52:56.019] invokeRestart <- base::invokeRestart 1576s [00:52:56.019] length <- base::length 1576s [00:52:56.019] list <- base::list 1576s [00:52:56.019] seq.int <- base::seq.int 1576s [00:52:56.019] signalCondition <- base::signalCondition 1576s [00:52:56.019] sys.calls <- base::sys.calls 1576s [00:52:56.019] `[[` <- base::`[[` 1576s [00:52:56.019] `+` <- base::`+` 1576s [00:52:56.019] `<<-` <- base::`<<-` 1576s [00:52:56.019] sysCalls <- function(calls = sys.calls(), from = 1L) { 1576s [00:52:56.019] calls[seq.int(from = from + 12L, to = length(calls) - 1576s [00:52:56.019] 3L)] 1576s [00:52:56.019] } 1576s [00:52:56.019] function(cond) { 1576s [00:52:56.019] is_error <- inherits(cond, "error") 1576s [00:52:56.019] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1576s [00:52:56.019] NULL) 1576s [00:52:56.019] if (is_error) { 1576s [00:52:56.019] sessionInformation <- function() { 1576s [00:52:56.019] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1576s [00:52:56.019] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1576s [00:52:56.019] search = base::search(), system = base::Sys.info()) 1576s [00:52:56.019] } 1576s [00:52:56.019] ...future.conditions[[length(...future.conditions) + 1576s [00:52:56.019] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1576s [00:52:56.019] cond$call), session = sessionInformation(), 1576s [00:52:56.019] timestamp = base::Sys.time(), signaled = 0L) 1576s [00:52:56.019] signalCondition(cond) 1576s [00:52:56.019] } 1576s [00:52:56.019] else if (!ignore && TRUE && inherits(cond, c("condition", 1576s [00:52:56.019] "immediateCondition"))) { 1576s [00:52:56.019] signal <- TRUE && inherits(cond, "immediateCondition") 1576s [00:52:56.019] ...future.conditions[[length(...future.conditions) + 1576s [00:52:56.019] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1576s [00:52:56.019] if (TRUE && !signal) { 1576s [00:52:56.019] muffleCondition <- function (cond, pattern = "^muffle") 1576s [00:52:56.019] { 1576s [00:52:56.019] inherits <- base::inherits 1576s [00:52:56.019] invokeRestart <- base::invokeRestart 1576s [00:52:56.019] is.null <- base::is.null 1576s [00:52:56.019] muffled <- FALSE 1576s [00:52:56.019] if (inherits(cond, "message")) { 1576s [00:52:56.019] muffled <- grepl(pattern, "muffleMessage") 1576s [00:52:56.019] if (muffled) 1576s [00:52:56.019] invokeRestart("muffleMessage") 1576s [00:52:56.019] } 1576s [00:52:56.019] else if (inherits(cond, "warning")) { 1576s [00:52:56.019] muffled <- grepl(pattern, "muffleWarning") 1576s [00:52:56.019] if (muffled) 1576s [00:52:56.019] invokeRestart("muffleWarning") 1576s [00:52:56.019] } 1576s [00:52:56.019] else if (inherits(cond, "condition")) { 1576s [00:52:56.019] if (!is.null(pattern)) { 1576s [00:52:56.019] computeRestarts <- base::computeRestarts 1576s [00:52:56.019] grepl <- base::grepl 1576s [00:52:56.019] restarts <- computeRestarts(cond) 1576s [00:52:56.019] for (restart in restarts) { 1576s [00:52:56.019] name <- restart$name 1576s [00:52:56.019] if (is.null(name)) 1576s [00:52:56.019] next 1576s [00:52:56.019] if (!grepl(pattern, name)) 1576s [00:52:56.019] next 1576s [00:52:56.019] invokeRestart(restart) 1576s [00:52:56.019] muffled <- TRUE 1576s [00:52:56.019] break 1576s [00:52:56.019] } 1576s [00:52:56.019] } 1576s [00:52:56.019] } 1576s [00:52:56.019] invisible(muffled) 1576s [00:52:56.019] } 1576s [00:52:56.019] muffleCondition(cond, pattern = "^muffle") 1576s [00:52:56.019] } 1576s [00:52:56.019] } 1576s [00:52:56.019] else { 1576s [00:52:56.019] if (TRUE) { 1576s [00:52:56.019] muffleCondition <- function (cond, pattern = "^muffle") 1576s [00:52:56.019] { 1576s [00:52:56.019] inherits <- base::inherits 1576s [00:52:56.019] invokeRestart <- base::invokeRestart 1576s [00:52:56.019] is.null <- base::is.null 1576s [00:52:56.019] muffled <- FALSE 1576s [00:52:56.019] if (inherits(cond, "message")) { 1576s [00:52:56.019] muffled <- grepl(pattern, "muffleMessage") 1576s [00:52:56.019] if (muffled) 1576s [00:52:56.019] invokeRestart("muffleMessage") 1576s [00:52:56.019] } 1576s [00:52:56.019] else if (inherits(cond, "warning")) { 1576s [00:52:56.019] muffled <- grepl(pattern, "muffleWarning") 1576s [00:52:56.019] if (muffled) 1576s [00:52:56.019] invokeRestart("muffleWarning") 1576s [00:52:56.019] } 1576s [00:52:56.019] else if (inherits(cond, "condition")) { 1576s [00:52:56.019] if (!is.null(pattern)) { 1576s [00:52:56.019] computeRestarts <- base::computeRestarts 1576s [00:52:56.019] grepl <- base::grepl 1576s [00:52:56.019] restarts <- computeRestarts(cond) 1576s [00:52:56.019] for (restart in restarts) { 1576s [00:52:56.019] name <- restart$name 1576s [00:52:56.019] if (is.null(name)) 1576s [00:52:56.019] next 1576s [00:52:56.019] if (!grepl(pattern, name)) 1576s [00:52:56.019] next 1576s [00:52:56.019] invokeRestart(restart) 1576s [00:52:56.019] muffled <- TRUE 1576s [00:52:56.019] break 1576s [00:52:56.019] } 1576s [00:52:56.019] } 1576s [00:52:56.019] } 1576s [00:52:56.019] invisible(muffled) 1576s [00:52:56.019] } 1576s [00:52:56.019] muffleCondition(cond, pattern = "^muffle") 1576s [00:52:56.019] } 1576s [00:52:56.019] } 1576s [00:52:56.019] } 1576s [00:52:56.019] })) 1576s [00:52:56.019] }, error = function(ex) { 1576s [00:52:56.019] base::structure(base::list(value = NULL, visible = NULL, 1576s [00:52:56.019] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1576s [00:52:56.019] ...future.rng), started = ...future.startTime, 1576s [00:52:56.019] finished = Sys.time(), session_uuid = NA_character_, 1576s [00:52:56.019] version = "1.8"), class = "FutureResult") 1576s [00:52:56.019] }, finally = { 1576s [00:52:56.019] if (!identical(...future.workdir, getwd())) 1576s [00:52:56.019] setwd(...future.workdir) 1576s [00:52:56.019] { 1576s [00:52:56.019] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1576s [00:52:56.019] ...future.oldOptions$nwarnings <- NULL 1576s [00:52:56.019] } 1576s [00:52:56.019] base::options(...future.oldOptions) 1576s [00:52:56.019] if (.Platform$OS.type == "windows") { 1576s [00:52:56.019] old_names <- names(...future.oldEnvVars) 1576s [00:52:56.019] envs <- base::Sys.getenv() 1576s [00:52:56.019] names <- names(envs) 1576s [00:52:56.019] common <- intersect(names, old_names) 1576s [00:52:56.019] added <- setdiff(names, old_names) 1576s [00:52:56.019] removed <- setdiff(old_names, names) 1576s [00:52:56.019] changed <- common[...future.oldEnvVars[common] != 1576s [00:52:56.019] envs[common]] 1576s [00:52:56.019] NAMES <- toupper(changed) 1576s [00:52:56.019] args <- list() 1576s [00:52:56.019] for (kk in seq_along(NAMES)) { 1576s [00:52:56.019] name <- changed[[kk]] 1576s [00:52:56.019] NAME <- NAMES[[kk]] 1576s [00:52:56.019] if (name != NAME && is.element(NAME, old_names)) 1576s [00:52:56.019] next 1576s [00:52:56.019] args[[name]] <- ...future.oldEnvVars[[name]] 1576s [00:52:56.019] } 1576s [00:52:56.019] NAMES <- toupper(added) 1576s [00:52:56.019] for (kk in seq_along(NAMES)) { 1576s [00:52:56.019] name <- added[[kk]] 1576s [00:52:56.019] NAME <- NAMES[[kk]] 1576s [00:52:56.019] if (name != NAME && is.element(NAME, old_names)) 1576s [00:52:56.019] next 1576s [00:52:56.019] args[[name]] <- "" 1576s [00:52:56.019] } 1576s [00:52:56.019] NAMES <- toupper(removed) 1576s [00:52:56.019] for (kk in seq_along(NAMES)) { 1576s [00:52:56.019] name <- removed[[kk]] 1576s [00:52:56.019] NAME <- NAMES[[kk]] 1576s [00:52:56.019] if (name != NAME && is.element(NAME, old_names)) 1576s [00:52:56.019] next 1576s [00:52:56.019] args[[name]] <- ...future.oldEnvVars[[name]] 1576s [00:52:56.019] } 1576s [00:52:56.019] if (length(args) > 0) 1576s [00:52:56.019] base::do.call(base::Sys.setenv, args = args) 1576s [00:52:56.019] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1576s [00:52:56.019] } 1576s [00:52:56.019] else { 1576s [00:52:56.019] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1576s [00:52:56.019] } 1576s [00:52:56.019] { 1576s [00:52:56.019] if (base::length(...future.futureOptionsAdded) > 1576s [00:52:56.019] 0L) { 1576s [00:52:56.019] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1576s [00:52:56.019] base::names(opts) <- ...future.futureOptionsAdded 1576s [00:52:56.019] base::options(opts) 1576s [00:52:56.019] } 1576s [00:52:56.019] { 1576s [00:52:56.019] { 1576s [00:52:56.019] NULL 1576s [00:52:56.019] RNGkind("Mersenne-Twister") 1576s [00:52:56.019] base::rm(list = ".Random.seed", envir = base::globalenv(), 1576s [00:52:56.019] inherits = FALSE) 1576s [00:52:56.019] } 1576s [00:52:56.019] options(future.plan = NULL) 1576s [00:52:56.019] if (is.na(NA_character_)) 1576s [00:52:56.019] Sys.unsetenv("R_FUTURE_PLAN") 1576s [00:52:56.019] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1576s [00:52:56.019] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1576s [00:52:56.019] envir = parent.frame()) 1576s [00:52:56.019] { 1576s [00:52:56.019] default_workers <- missing(workers) 1576s [00:52:56.019] if (is.function(workers)) 1576s [00:52:56.019] workers <- workers() 1576s [00:52:56.019] workers <- structure(as.integer(workers), 1576s [00:52:56.019] class = class(workers)) 1576s [00:52:56.019] stop_if_not(is.finite(workers), workers >= 1576s [00:52:56.019] 1L) 1576s [00:52:56.019] if ((workers == 1L && !inherits(workers, 1576s [00:52:56.019] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1576s [00:52:56.019] if (default_workers) 1576s [00:52:56.019] supportsMulticore(warn = TRUE) 1576s [00:52:56.019] return(sequential(..., envir = envir)) 1576s [00:52:56.019] } 1576s [00:52:56.019] oopts <- options(mc.cores = workers) 1576s [00:52:56.019] on.exit(options(oopts)) 1576s [00:52:56.019] future <- MulticoreFuture(..., workers = workers, 1576s [00:52:56.019] envir = envir) 1576s [00:52:56.019] if (!future$lazy) 1576s [00:52:56.019] future <- run(future) 1576s [00:52:56.019] invisible(future) 1576s [00:52:56.019] }), .cleanup = FALSE, .init = FALSE) 1576s [00:52:56.019] } 1576s [00:52:56.019] } 1576s [00:52:56.019] } 1576s [00:52:56.019] }) 1576s [00:52:56.019] if (TRUE) { 1576s [00:52:56.019] base::sink(type = "output", split = FALSE) 1576s [00:52:56.019] if (TRUE) { 1576s [00:52:56.019] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1576s [00:52:56.019] } 1576s [00:52:56.019] else { 1576s [00:52:56.019] ...future.result["stdout"] <- base::list(NULL) 1576s [00:52:56.019] } 1576s [00:52:56.019] base::close(...future.stdout) 1576s [00:52:56.019] ...future.stdout <- NULL 1576s [00:52:56.019] } 1576s [00:52:56.019] ...future.result$conditions <- ...future.conditions 1576s [00:52:56.019] ...future.result$finished <- base::Sys.time() 1576s [00:52:56.019] ...future.result 1576s [00:52:56.019] } 1576s [00:52:56.026] assign_globals() ... 1576s [00:52:56.026] List of 5 1576s [00:52:56.026] $ ...future.FUN :function (x, ...) 1576s [00:52:56.026] $ future.call.arguments : list() 1576s [00:52:56.026] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1576s [00:52:56.026] $ ...future.elements_ii :List of 6 1576s [00:52:56.026] ..$ a1: int 1 1576s [00:52:56.026] ..$ a2: int 2 1576s [00:52:56.026] ..$ b1: int 2 1576s [00:52:56.026] ..$ b2: int 3 1576s [00:52:56.026] ..$ c1: int 3 1576s [00:52:56.026] ..$ c2: int 4 1576s [00:52:56.026] $ ...future.seeds_ii : NULL 1576s [00:52:56.026] $ ...future.globals.maxSize: NULL 1576s [00:52:56.026] - attr(*, "where")=List of 5 1576s [00:52:56.026] ..$ ...future.FUN : 1576s [00:52:56.026] ..$ future.call.arguments : 1576s [00:52:56.026] ..$ ...future.elements_ii : 1576s [00:52:56.026] ..$ ...future.seeds_ii : 1576s [00:52:56.026] ..$ ...future.globals.maxSize: 1576s [00:52:56.026] - attr(*, "resolved")= logi FALSE 1576s [00:52:56.026] - attr(*, "total_size")= num 1248 1576s [00:52:56.026] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1576s [00:52:56.026] - attr(*, "already-done")= logi TRUE 1576s [00:52:56.040] - copied ‘...future.FUN’ to environment 1576s [00:52:56.041] - copied ‘future.call.arguments’ to environment 1576s [00:52:56.041] - copied ‘...future.elements_ii’ to environment 1576s [00:52:56.041] - copied ‘...future.seeds_ii’ to environment 1576s [00:52:56.042] - copied ‘...future.globals.maxSize’ to environment 1576s [00:52:56.042] assign_globals() ... done 1576s [00:52:56.042] plan(): Setting new future strategy stack: 1576s [00:52:56.043] List of future strategies: 1576s [00:52:56.043] 1. sequential: 1576s [00:52:56.043] - args: function (..., envir = parent.frame()) 1576s [00:52:56.043] - tweaked: FALSE 1576s [00:52:56.043] - call: NULL 1576s [00:52:56.043] plan(): nbrOfWorkers() = 1 1576s [00:52:56.045] plan(): Setting new future strategy stack: 1576s [00:52:56.046] List of future strategies: 1576s [00:52:56.046] 1. multicore: 1576s [00:52:56.046] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1576s [00:52:56.046] - tweaked: FALSE 1576s [00:52:56.046] - call: plan(strategy) 1576s [00:52:56.051] plan(): nbrOfWorkers() = 1 1576s [00:52:56.051] SequentialFuture started (and completed) 1576s [00:52:56.052] - Launch lazy future ... done 1576s [00:52:56.052] run() for ‘SequentialFuture’ ... done 1576s [00:52:56.052] Created future: 1576s [00:52:56.052] SequentialFuture: 1576s [00:52:56.052] Label: ‘future_sapply-1’ 1576s [00:52:56.052] Expression: 1576s [00:52:56.052] { 1576s [00:52:56.052] do.call(function(...) { 1576s [00:52:56.052] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1576s [00:52:56.052] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1576s [00:52:56.052] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1576s [00:52:56.052] on.exit(options(oopts), add = TRUE) 1576s [00:52:56.052] } 1576s [00:52:56.052] { 1576s [00:52:56.052] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1576s [00:52:56.052] ...future.X_jj <- ...future.elements_ii[[jj]] 1576s [00:52:56.052] ...future.FUN(...future.X_jj, ...) 1576s [00:52:56.052] }) 1576s [00:52:56.052] } 1576s [00:52:56.052] }, args = future.call.arguments) 1576s [00:52:56.052] } 1576s [00:52:56.052] Lazy evaluation: FALSE 1576s [00:52:56.052] Asynchronous evaluation: FALSE 1576s [00:52:56.052] Local evaluation: TRUE 1576s [00:52:56.052] Environment: R_GlobalEnv 1576s [00:52:56.052] Capture standard output: TRUE 1576s [00:52:56.052] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1576s [00:52:56.052] Globals: 5 objects totaling 1.55 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1576s [00:52:56.052] Packages: 1576s [00:52:56.052] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1576s [00:52:56.052] Resolved: TRUE 1576s [00:52:56.052] Value: 1.31 KiB of class ‘list’ 1576s [00:52:56.052] Early signaling: FALSE 1576s [00:52:56.052] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1576s [00:52:56.052] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1576s [00:52:56.055] Chunk #1 of 1 ... DONE 1576s [00:52:56.055] Launching 1 futures (chunks) ... DONE 1576s [00:52:56.056] Resolving 1 futures (chunks) ... 1576s [00:52:56.056] resolve() on list ... 1576s [00:52:56.056] recursive: 0 1576s [00:52:56.056] length: 1 1576s [00:52:56.056] 1576s [00:52:56.057] resolved() for ‘SequentialFuture’ ... 1576s [00:52:56.057] - state: ‘finished’ 1576s [00:52:56.057] - run: TRUE 1576s [00:52:56.057] - result: ‘FutureResult’ 1576s [00:52:56.057] resolved() for ‘SequentialFuture’ ... done 1576s [00:52:56.057] Future #1 1576s [00:52:56.058] signalConditionsASAP(SequentialFuture, pos=1) ... 1576s [00:52:56.058] - nx: 1 1576s [00:52:56.058] - relay: TRUE 1576s [00:52:56.058] - stdout: TRUE 1576s [00:52:56.058] - signal: TRUE 1576s [00:52:56.058] - resignal: FALSE 1576s [00:52:56.058] - force: TRUE 1576s [00:52:56.059] - relayed: [n=1] FALSE 1576s [00:52:56.059] - queued futures: [n=1] FALSE 1576s [00:52:56.059] - until=1 1576s [00:52:56.059] - relaying element #1 1576s [00:52:56.060] - relayed: [n=1] TRUE 1576s [00:52:56.060] - queued futures: [n=1] TRUE 1576s [00:52:56.060] signalConditionsASAP(SequentialFuture, pos=1) ... done 1576s [00:52:56.061] length: 0 (resolved future 1) 1576s [00:52:56.061] Relaying remaining futures 1576s [00:52:56.061] signalConditionsASAP(NULL, pos=0) ... 1576s [00:52:56.061] - nx: 1 1576s [00:52:56.061] - relay: TRUE 1576s [00:52:56.062] - stdout: TRUE 1576s [00:52:56.062] - signal: TRUE 1576s [00:52:56.062] - resignal: FALSE 1576s List[00:52:56.062] - force: TRUE 1576s [00:52:56.063] - relayed: [n=1] TRUE 1576s [00:52:56.063] - queued futures: [n=1] TRUE 1576s - flush all 1576s [00:52:56.063] - relayed: [n=1] TRUE 1576s [00:52:56.063] - queued futures: [n=1] TRUE 1576s [00:52:56.063] signalConditionsASAP(NULL, pos=0) ... done 1576s [00:52:56.064] resolve() on list ... DONE 1576s [00:52:56.064] - Number of value chunks collected: 1 1576s [00:52:56.064] Resolving 1 futures (chunks) ... DONE 1576s [00:52:56.064] Reducing values from 1 chunks ... 1576s [00:52:56.064] - Number of values collected after concatenation: 6 1576s [00:52:56.064] - Number of values expected: 6 1576s [00:52:56.065] Reducing values from 1 chunks ... DONE 1576s [00:52:56.065] future_lapply() ... DONE 1576s of 2 1576s $ y0: Named int [1:6] 1 2 2 3 3 4 1576s ..- attr(*, "names")= chr [1:6] "a1" "a2" "b1" "b2" ... 1576s $ y1: Named int [1:6] 1 2 2 3 3 4 1576s ..- attr(*, "names")= chr [1:6] "a1" "a2" "b1" "b2" ... 1576s [00:52:56.069] future_lapply() ... 1576s [00:52:56.076] Number of chunks: 1 1576s [00:52:56.076] getGlobalsAndPackagesXApply() ... 1576s [00:52:56.076] - future.globals: TRUE 1576s [00:52:56.077] getGlobalsAndPackages() ... 1576s [00:52:56.077] Searching for globals... 1576s [00:52:56.082] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1576s [00:52:56.082] Searching for globals ... DONE 1576s [00:52:56.082] Resolving globals: FALSE 1576s [00:52:56.083] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1576s [00:52:56.084] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1576s [00:52:56.084] - globals: [1] ‘FUN’ 1576s [00:52:56.084] 1576s [00:52:56.084] getGlobalsAndPackages() ... DONE 1576s [00:52:56.084] - globals found/used: [n=1] ‘FUN’ 1576s [00:52:56.085] - needed namespaces: [n=0] 1576s [00:52:56.085] Finding globals ... DONE 1576s [00:52:56.085] - use_args: TRUE 1576s [00:52:56.086] - Getting '...' globals ... 1576s [00:52:56.086] resolve() on list ... 1576s [00:52:56.086] recursive: 0 1576s [00:52:56.086] length: 1 1576s [00:52:56.086] elements: ‘...’ 1576s [00:52:56.087] length: 0 (resolved future 1) 1576s [00:52:56.087] resolve() on list ... DONE 1576s [00:52:56.087] - '...' content: [n=0] 1576s [00:52:56.087] List of 1 1576s [00:52:56.087] $ ...: list() 1576s [00:52:56.087] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1576s [00:52:56.087] - attr(*, "where")=List of 1 1576s [00:52:56.087] ..$ ...: 1576s [00:52:56.087] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1576s [00:52:56.087] - attr(*, "resolved")= logi TRUE 1576s [00:52:56.087] - attr(*, "total_size")= num NA 1576s [00:52:56.092] - Getting '...' globals ... DONE 1576s [00:52:56.092] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1576s [00:52:56.093] List of 2 1576s [00:52:56.093] $ ...future.FUN:function (x, y = 2 * 1:5) 1576s [00:52:56.093] $ ... : list() 1576s [00:52:56.093] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1576s [00:52:56.093] - attr(*, "where")=List of 2 1576s [00:52:56.093] ..$ ...future.FUN: 1576s [00:52:56.093] ..$ ... : 1576s [00:52:56.093] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1576s [00:52:56.093] - attr(*, "resolved")= logi FALSE 1576s [00:52:56.093] - attr(*, "total_size")= num 4728 1576s [00:52:56.101] Packages to be attached in all futures: [n=0] 1576s [00:52:56.101] getGlobalsAndPackagesXApply() ... DONE 1576s [00:52:56.102] Number of futures (= number of chunks): 1 1576s [00:52:56.102] Launching 1 futures (chunks) ... 1576s [00:52:56.103] Chunk #1 of 1 ... 1576s [00:52:56.104] - Finding globals in 'X' for chunk #1 ... 1576s [00:52:56.104] getGlobalsAndPackages() ... 1576s [00:52:56.105] Searching for globals... 1576s [00:52:56.106] 1576s [00:52:56.106] Searching for globals ... DONE 1576s [00:52:56.106] - globals: [0] 1576s [00:52:56.107] getGlobalsAndPackages() ... DONE 1576s [00:52:56.107] + additional globals found: [n=0] 1576s [00:52:56.107] + additional namespaces needed: [n=0] 1576s [00:52:56.107] - Finding globals in 'X' for chunk #1 ... DONE 1576s [00:52:56.107] - seeds: 1576s [00:52:56.108] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1576s [00:52:56.109] getGlobalsAndPackages() ... 1576s [00:52:56.109] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1576s [00:52:56.110] Resolving globals: FALSE 1576s [00:52:56.110] Tweak future expression to call with '...' arguments ... 1576s [00:52:56.110] { 1576s [00:52:56.110] do.call(function(...) { 1576s [00:52:56.110] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1576s [00:52:56.110] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1576s [00:52:56.110] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1576s [00:52:56.110] on.exit(options(oopts), add = TRUE) 1576s [00:52:56.110] } 1576s [00:52:56.110] { 1576s [00:52:56.110] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1576s [00:52:56.110] ...future.X_jj <- ...future.elements_ii[[jj]] 1576s [00:52:56.110] ...future.FUN(...future.X_jj, ...) 1576s [00:52:56.110] }) 1576s [00:52:56.110] } 1576s [00:52:56.110] }, args = future.call.arguments) 1576s [00:52:56.110] } 1576s [00:52:56.112] Tweak future expression to call with '...' arguments ... DONE 1576s [00:52:56.113] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1576s [00:52:56.113] 1576s [00:52:56.114] getGlobalsAndPackages() ... DONE 1576s [00:52:56.115] run() for ‘Future’ ... 1576s [00:52:56.115] - state: ‘created’ 1576s [00:52:56.116] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1576s [00:52:56.122] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1576s [00:52:56.123] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1576s [00:52:56.123] - Field: ‘label’ 1576s [00:52:56.124] - Field: ‘local’ 1576s [00:52:56.125] - Field: ‘owner’ 1576s [00:52:56.127] - Field: ‘envir’ 1576s [00:52:56.127] - Field: ‘packages’ 1576s [00:52:56.128] - Field: ‘gc’ 1576s [00:52:56.128] - Field: ‘conditions’ 1576s [00:52:56.128] - Field: ‘expr’ 1576s [00:52:56.128] - Field: ‘uuid’ 1576s [00:52:56.128] - Field: ‘seed’ 1576s [00:52:56.128] - Field: ‘version’ 1576s [00:52:56.129] - Field: ‘result’ 1576s [00:52:56.129] - Field: ‘asynchronous’ 1576s [00:52:56.129] - Field: ‘calls’ 1576s [00:52:56.129] - Field: ‘globals’ 1576s [00:52:56.129] - Field: ‘stdout’ 1576s [00:52:56.130] - Field: ‘earlySignal’ 1576s [00:52:56.130] - Field: ‘lazy’ 1576s [00:52:56.130] - Field: ‘state’ 1576s [00:52:56.131] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1576s [00:52:56.131] - Launch lazy future ... 1576s [00:52:56.132] Packages needed by the future expression (n = 0): 1576s [00:52:56.132] Packages needed by future strategies (n = 0): 1576s [00:52:56.134] { 1576s [00:52:56.134] { 1576s [00:52:56.134] { 1576s [00:52:56.134] ...future.startTime <- base::Sys.time() 1576s [00:52:56.134] { 1576s [00:52:56.134] { 1576s [00:52:56.134] { 1576s [00:52:56.134] base::local({ 1576s [00:52:56.134] has_future <- base::requireNamespace("future", 1576s [00:52:56.134] quietly = TRUE) 1576s [00:52:56.134] if (has_future) { 1576s [00:52:56.134] ns <- base::getNamespace("future") 1576s [00:52:56.134] version <- ns[[".package"]][["version"]] 1576s [00:52:56.134] if (is.null(version)) 1576s [00:52:56.134] version <- utils::packageVersion("future") 1576s [00:52:56.134] } 1576s [00:52:56.134] else { 1576s [00:52:56.134] version <- NULL 1576s [00:52:56.134] } 1576s [00:52:56.134] if (!has_future || version < "1.8.0") { 1576s [00:52:56.134] info <- base::c(r_version = base::gsub("R version ", 1576s [00:52:56.134] "", base::R.version$version.string), 1576s [00:52:56.134] platform = base::sprintf("%s (%s-bit)", 1576s [00:52:56.134] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1576s [00:52:56.134] os = base::paste(base::Sys.info()[base::c("sysname", 1576s [00:52:56.134] "release", "version")], collapse = " "), 1576s [00:52:56.134] hostname = base::Sys.info()[["nodename"]]) 1576s [00:52:56.134] info <- base::sprintf("%s: %s", base::names(info), 1576s [00:52:56.134] info) 1576s [00:52:56.134] info <- base::paste(info, collapse = "; ") 1576s [00:52:56.134] if (!has_future) { 1576s [00:52:56.134] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1576s [00:52:56.134] info) 1576s [00:52:56.134] } 1576s [00:52:56.134] else { 1576s [00:52:56.134] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1576s [00:52:56.134] info, version) 1576s [00:52:56.134] } 1576s [00:52:56.134] base::stop(msg) 1576s [00:52:56.134] } 1576s [00:52:56.134] }) 1576s [00:52:56.134] } 1576s [00:52:56.134] options(future.plan = NULL) 1576s [00:52:56.134] Sys.unsetenv("R_FUTURE_PLAN") 1576s [00:52:56.134] future::plan("default", .cleanup = FALSE, .init = FALSE) 1576s [00:52:56.134] } 1576s [00:52:56.134] ...future.workdir <- getwd() 1576s [00:52:56.134] } 1576s [00:52:56.134] ...future.oldOptions <- base::as.list(base::.Options) 1576s [00:52:56.134] ...future.oldEnvVars <- base::Sys.getenv() 1576s [00:52:56.134] } 1576s [00:52:56.134] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1576s [00:52:56.134] future.globals.maxSize = NULL, future.globals.method = NULL, 1576s [00:52:56.134] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1576s [00:52:56.134] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1576s [00:52:56.134] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1576s [00:52:56.134] future.stdout.windows.reencode = NULL, width = 80L) 1576s [00:52:56.134] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1576s [00:52:56.134] base::names(...future.oldOptions)) 1576s [00:52:56.134] } 1576s [00:52:56.134] if (FALSE) { 1576s [00:52:56.134] } 1576s [00:52:56.134] else { 1576s [00:52:56.134] if (TRUE) { 1576s [00:52:56.134] ...future.stdout <- base::rawConnection(base::raw(0L), 1576s [00:52:56.134] open = "w") 1576s [00:52:56.134] } 1576s [00:52:56.134] else { 1576s [00:52:56.134] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1576s [00:52:56.134] windows = "NUL", "/dev/null"), open = "w") 1576s [00:52:56.134] } 1576s [00:52:56.134] base::sink(...future.stdout, type = "output", split = FALSE) 1576s [00:52:56.134] base::on.exit(if (!base::is.null(...future.stdout)) { 1576s [00:52:56.134] base::sink(type = "output", split = FALSE) 1576s [00:52:56.134] base::close(...future.stdout) 1576s [00:52:56.134] }, add = TRUE) 1576s [00:52:56.134] } 1576s [00:52:56.134] ...future.frame <- base::sys.nframe() 1576s [00:52:56.134] ...future.conditions <- base::list() 1576s [00:52:56.134] ...future.rng <- base::globalenv()$.Random.seed 1576s [00:52:56.134] if (FALSE) { 1576s [00:52:56.134] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1576s [00:52:56.134] "...future.value", "...future.globalenv.names", ".Random.seed") 1576s [00:52:56.134] } 1576s [00:52:56.134] ...future.result <- base::tryCatch({ 1576s [00:52:56.134] base::withCallingHandlers({ 1576s [00:52:56.134] ...future.value <- base::withVisible(base::local({ 1576s [00:52:56.134] do.call(function(...) { 1576s [00:52:56.134] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1576s [00:52:56.134] if (!identical(...future.globals.maxSize.org, 1576s [00:52:56.134] ...future.globals.maxSize)) { 1576s [00:52:56.134] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1576s [00:52:56.134] on.exit(options(oopts), add = TRUE) 1576s [00:52:56.134] } 1576s [00:52:56.134] { 1576s [00:52:56.134] lapply(seq_along(...future.elements_ii), 1576s [00:52:56.134] FUN = function(jj) { 1576s [00:52:56.134] ...future.X_jj <- ...future.elements_ii[[jj]] 1576s [00:52:56.134] ...future.FUN(...future.X_jj, ...) 1576s [00:52:56.134] }) 1576s [00:52:56.134] } 1576s [00:52:56.134] }, args = future.call.arguments) 1576s [00:52:56.134] })) 1576s [00:52:56.134] future::FutureResult(value = ...future.value$value, 1576s [00:52:56.134] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1576s [00:52:56.134] ...future.rng), globalenv = if (FALSE) 1576s [00:52:56.134] list(added = base::setdiff(base::names(base::.GlobalEnv), 1576s [00:52:56.134] ...future.globalenv.names)) 1576s [00:52:56.134] else NULL, started = ...future.startTime, version = "1.8") 1576s [00:52:56.134] }, condition = base::local({ 1576s [00:52:56.134] c <- base::c 1576s [00:52:56.134] inherits <- base::inherits 1576s [00:52:56.134] invokeRestart <- base::invokeRestart 1576s [00:52:56.134] length <- base::length 1576s [00:52:56.134] list <- base::list 1576s [00:52:56.134] seq.int <- base::seq.int 1576s [00:52:56.134] signalCondition <- base::signalCondition 1576s [00:52:56.134] sys.calls <- base::sys.calls 1576s [00:52:56.134] `[[` <- base::`[[` 1576s [00:52:56.134] `+` <- base::`+` 1576s [00:52:56.134] `<<-` <- base::`<<-` 1576s [00:52:56.134] sysCalls <- function(calls = sys.calls(), from = 1L) { 1576s [00:52:56.134] calls[seq.int(from = from + 12L, to = length(calls) - 1576s [00:52:56.134] 3L)] 1576s [00:52:56.134] } 1576s [00:52:56.134] function(cond) { 1576s [00:52:56.134] is_error <- inherits(cond, "error") 1576s [00:52:56.134] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1576s [00:52:56.134] NULL) 1576s [00:52:56.134] if (is_error) { 1576s [00:52:56.134] sessionInformation <- function() { 1576s [00:52:56.134] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1576s [00:52:56.134] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1576s [00:52:56.134] search = base::search(), system = base::Sys.info()) 1576s [00:52:56.134] } 1576s [00:52:56.134] ...future.conditions[[length(...future.conditions) + 1576s [00:52:56.134] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1576s [00:52:56.134] cond$call), session = sessionInformation(), 1576s [00:52:56.134] timestamp = base::Sys.time(), signaled = 0L) 1576s [00:52:56.134] signalCondition(cond) 1576s [00:52:56.134] } 1576s [00:52:56.134] else if (!ignore && TRUE && inherits(cond, c("condition", 1576s [00:52:56.134] "immediateCondition"))) { 1576s [00:52:56.134] signal <- TRUE && inherits(cond, "immediateCondition") 1576s [00:52:56.134] ...future.conditions[[length(...future.conditions) + 1576s [00:52:56.134] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1576s [00:52:56.134] if (TRUE && !signal) { 1576s [00:52:56.134] muffleCondition <- function (cond, pattern = "^muffle") 1576s [00:52:56.134] { 1576s [00:52:56.134] inherits <- base::inherits 1576s [00:52:56.134] invokeRestart <- base::invokeRestart 1576s [00:52:56.134] is.null <- base::is.null 1576s [00:52:56.134] muffled <- FALSE 1576s [00:52:56.134] if (inherits(cond, "message")) { 1576s [00:52:56.134] muffled <- grepl(pattern, "muffleMessage") 1576s [00:52:56.134] if (muffled) 1576s [00:52:56.134] invokeRestart("muffleMessage") 1576s [00:52:56.134] } 1576s [00:52:56.134] else if (inherits(cond, "warning")) { 1576s [00:52:56.134] muffled <- grepl(pattern, "muffleWarning") 1576s [00:52:56.134] if (muffled) 1576s [00:52:56.134] invokeRestart("muffleWarning") 1576s [00:52:56.134] } 1576s [00:52:56.134] else if (inherits(cond, "condition")) { 1576s [00:52:56.134] if (!is.null(pattern)) { 1576s [00:52:56.134] computeRestarts <- base::computeRestarts 1576s [00:52:56.134] grepl <- base::grepl 1576s [00:52:56.134] restarts <- computeRestarts(cond) 1576s [00:52:56.134] for (restart in restarts) { 1576s [00:52:56.134] name <- restart$name 1576s [00:52:56.134] if (is.null(name)) 1576s [00:52:56.134] next 1576s [00:52:56.134] if (!grepl(pattern, name)) 1576s [00:52:56.134] next 1576s [00:52:56.134] invokeRestart(restart) 1576s [00:52:56.134] muffled <- TRUE 1576s [00:52:56.134] break 1576s [00:52:56.134] } 1576s [00:52:56.134] } 1576s [00:52:56.134] } 1576s [00:52:56.134] invisible(muffled) 1576s [00:52:56.134] } 1576s [00:52:56.134] muffleCondition(cond, pattern = "^muffle") 1576s [00:52:56.134] } 1576s [00:52:56.134] } 1576s [00:52:56.134] else { 1576s [00:52:56.134] if (TRUE) { 1576s [00:52:56.134] muffleCondition <- function (cond, pattern = "^muffle") 1576s [00:52:56.134] { 1576s [00:52:56.134] inherits <- base::inherits 1576s [00:52:56.134] invokeRestart <- base::invokeRestart 1576s [00:52:56.134] is.null <- base::is.null 1576s [00:52:56.134] muffled <- FALSE 1576s [00:52:56.134] if (inherits(cond, "message")) { 1576s [00:52:56.134] muffled <- grepl(pattern, "muffleMessage") 1576s [00:52:56.134] if (muffled) 1576s [00:52:56.134] invokeRestart("muffleMessage") 1576s [00:52:56.134] } 1576s [00:52:56.134] else if (inherits(cond, "warning")) { 1576s [00:52:56.134] muffled <- grepl(pattern, "muffleWarning") 1576s [00:52:56.134] if (muffled) 1576s [00:52:56.134] invokeRestart("muffleWarning") 1576s [00:52:56.134] } 1576s [00:52:56.134] else if (inherits(cond, "condition")) { 1576s [00:52:56.134] if (!is.null(pattern)) { 1576s [00:52:56.134] computeRestarts <- base::computeRestarts 1576s [00:52:56.134] grepl <- base::grepl 1576s [00:52:56.134] restarts <- computeRestarts(cond) 1576s [00:52:56.134] for (restart in restarts) { 1576s [00:52:56.134] name <- restart$name 1576s [00:52:56.134] if (is.null(name)) 1576s [00:52:56.134] next 1576s [00:52:56.134] if (!grepl(pattern, name)) 1576s [00:52:56.134] next 1576s [00:52:56.134] invokeRestart(restart) 1576s [00:52:56.134] muffled <- TRUE 1576s [00:52:56.134] break 1576s [00:52:56.134] } 1576s [00:52:56.134] } 1576s [00:52:56.134] } 1576s [00:52:56.134] invisible(muffled) 1576s [00:52:56.134] } 1576s [00:52:56.134] muffleCondition(cond, pattern = "^muffle") 1576s [00:52:56.134] } 1576s [00:52:56.134] } 1576s [00:52:56.134] } 1576s [00:52:56.134] })) 1576s [00:52:56.134] }, error = function(ex) { 1576s [00:52:56.134] base::structure(base::list(value = NULL, visible = NULL, 1576s [00:52:56.134] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1576s [00:52:56.134] ...future.rng), started = ...future.startTime, 1576s [00:52:56.134] finished = Sys.time(), session_uuid = NA_character_, 1576s [00:52:56.134] version = "1.8"), class = "FutureResult") 1576s [00:52:56.134] }, finally = { 1576s [00:52:56.134] if (!identical(...future.workdir, getwd())) 1576s [00:52:56.134] setwd(...future.workdir) 1576s [00:52:56.134] { 1576s [00:52:56.134] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1576s [00:52:56.134] ...future.oldOptions$nwarnings <- NULL 1576s [00:52:56.134] } 1576s [00:52:56.134] base::options(...future.oldOptions) 1576s [00:52:56.134] if (.Platform$OS.type == "windows") { 1576s [00:52:56.134] old_names <- names(...future.oldEnvVars) 1576s [00:52:56.134] envs <- base::Sys.getenv() 1576s [00:52:56.134] names <- names(envs) 1576s [00:52:56.134] common <- intersect(names, old_names) 1576s [00:52:56.134] added <- setdiff(names, old_names) 1576s [00:52:56.134] removed <- setdiff(old_names, names) 1576s [00:52:56.134] changed <- common[...future.oldEnvVars[common] != 1576s [00:52:56.134] envs[common]] 1576s [00:52:56.134] NAMES <- toupper(changed) 1576s [00:52:56.134] args <- list() 1576s [00:52:56.134] for (kk in seq_along(NAMES)) { 1576s [00:52:56.134] name <- changed[[kk]] 1576s [00:52:56.134] NAME <- NAMES[[kk]] 1576s [00:52:56.134] if (name != NAME && is.element(NAME, old_names)) 1576s [00:52:56.134] next 1576s [00:52:56.134] args[[name]] <- ...future.oldEnvVars[[name]] 1576s [00:52:56.134] } 1576s [00:52:56.134] NAMES <- toupper(added) 1576s [00:52:56.134] for (kk in seq_along(NAMES)) { 1576s [00:52:56.134] name <- added[[kk]] 1576s [00:52:56.134] NAME <- NAMES[[kk]] 1576s [00:52:56.134] if (name != NAME && is.element(NAME, old_names)) 1576s [00:52:56.134] next 1576s [00:52:56.134] args[[name]] <- "" 1576s [00:52:56.134] } 1576s [00:52:56.134] NAMES <- toupper(removed) 1576s [00:52:56.134] for (kk in seq_along(NAMES)) { 1576s [00:52:56.134] name <- removed[[kk]] 1576s [00:52:56.134] NAME <- NAMES[[kk]] 1576s [00:52:56.134] if (name != NAME && is.element(NAME, old_names)) 1576s [00:52:56.134] next 1576s [00:52:56.134] args[[name]] <- ...future.oldEnvVars[[name]] 1576s [00:52:56.134] } 1576s [00:52:56.134] if (length(args) > 0) 1576s [00:52:56.134] base::do.call(base::Sys.setenv, args = args) 1576s [00:52:56.134] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1576s [00:52:56.134] } 1576s [00:52:56.134] else { 1576s [00:52:56.134] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1576s [00:52:56.134] } 1576s [00:52:56.134] { 1576s [00:52:56.134] if (base::length(...future.futureOptionsAdded) > 1576s [00:52:56.134] 0L) { 1576s [00:52:56.134] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1576s [00:52:56.134] base::names(opts) <- ...future.futureOptionsAdded 1576s [00:52:56.134] base::options(opts) 1576s [00:52:56.134] } 1576s [00:52:56.134] { 1576s [00:52:56.134] { 1576s [00:52:56.134] NULL 1576s [00:52:56.134] RNGkind("Mersenne-Twister") 1576s [00:52:56.134] base::rm(list = ".Random.seed", envir = base::globalenv(), 1576s [00:52:56.134] inherits = FALSE) 1576s [00:52:56.134] } 1576s [00:52:56.134] options(future.plan = NULL) 1576s [00:52:56.134] if (is.na(NA_character_)) 1576s [00:52:56.134] Sys.unsetenv("R_FUTURE_PLAN") 1576s [00:52:56.134] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1576s [00:52:56.134] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1576s [00:52:56.134] envir = parent.frame()) 1576s [00:52:56.134] { 1576s [00:52:56.134] default_workers <- missing(workers) 1576s [00:52:56.134] if (is.function(workers)) 1576s [00:52:56.134] workers <- workers() 1576s [00:52:56.134] workers <- structure(as.integer(workers), 1576s [00:52:56.134] class = class(workers)) 1576s [00:52:56.134] stop_if_not(is.finite(workers), workers >= 1576s [00:52:56.134] 1L) 1576s [00:52:56.134] if ((workers == 1L && !inherits(workers, 1576s [00:52:56.134] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1576s [00:52:56.134] if (default_workers) 1576s [00:52:56.134] supportsMulticore(warn = TRUE) 1576s [00:52:56.134] return(sequential(..., envir = envir)) 1576s [00:52:56.134] } 1576s [00:52:56.134] oopts <- options(mc.cores = workers) 1576s [00:52:56.134] on.exit(options(oopts)) 1576s [00:52:56.134] future <- MulticoreFuture(..., workers = workers, 1576s [00:52:56.134] envir = envir) 1576s [00:52:56.134] if (!future$lazy) 1576s [00:52:56.134] future <- run(future) 1576s [00:52:56.134] invisible(future) 1576s [00:52:56.134] }), .cleanup = FALSE, .init = FALSE) 1576s [00:52:56.134] } 1576s [00:52:56.134] } 1576s [00:52:56.134] } 1576s [00:52:56.134] }) 1576s [00:52:56.134] if (TRUE) { 1576s [00:52:56.134] base::sink(type = "output", split = FALSE) 1576s [00:52:56.134] if (TRUE) { 1576s [00:52:56.134] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1576s [00:52:56.134] } 1576s [00:52:56.134] else { 1576s [00:52:56.134] ...future.result["stdout"] <- base::list(NULL) 1576s [00:52:56.134] } 1576s [00:52:56.134] base::close(...future.stdout) 1576s [00:52:56.134] ...future.stdout <- NULL 1576s [00:52:56.134] } 1576s [00:52:56.134] ...future.result$conditions <- ...future.conditions 1576s [00:52:56.134] ...future.result$finished <- base::Sys.time() 1576s [00:52:56.134] ...future.result 1576s [00:52:56.134] } 1576s [00:52:56.138] assign_globals() ... 1576s [00:52:56.139] List of 5 1576s [00:52:56.139] $ ...future.FUN :function (x, y = 2 * 1:5) 1576s [00:52:56.139] $ future.call.arguments : list() 1576s [00:52:56.139] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1576s [00:52:56.139] $ ...future.elements_ii :List of 6 1576s [00:52:56.139] ..$ a1: int 1 1576s [00:52:56.139] ..$ a2: int 2 1576s [00:52:56.139] ..$ b1: int 2 1576s [00:52:56.139] ..$ b2: int 3 1576s [00:52:56.139] ..$ c1: int 3 1576s [00:52:56.139] ..$ c2: int 4 1576s [00:52:56.139] $ ...future.seeds_ii : NULL 1576s [00:52:56.139] $ ...future.globals.maxSize: NULL 1576s [00:52:56.139] - attr(*, "where")=List of 5 1576s [00:52:56.139] ..$ ...future.FUN : 1576s [00:52:56.139] ..$ future.call.arguments : 1576s [00:52:56.139] ..$ ...future.elements_ii : 1576s [00:52:56.139] ..$ ...future.seeds_ii : 1576s [00:52:56.139] ..$ ...future.globals.maxSize: 1576s [00:52:56.139] - attr(*, "resolved")= logi FALSE 1576s [00:52:56.139] - attr(*, "total_size")= num 4728 1576s [00:52:56.139] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1576s [00:52:56.139] - attr(*, "already-done")= logi TRUE 1576s [00:52:56.156] - reassign environment for ‘...future.FUN’ 1576s [00:52:56.156] - copied ‘...future.FUN’ to environment 1576s [00:52:56.157] - copied ‘future.call.arguments’ to environment 1576s [00:52:56.158] - copied ‘...future.elements_ii’ to environment 1576s [00:52:56.158] - copied ‘...future.seeds_ii’ to environment 1576s [00:52:56.158] - copied ‘...future.globals.maxSize’ to environment 1576s [00:52:56.159] assign_globals() ... done 1576s [00:52:56.160] plan(): Setting new future strategy stack: 1576s [00:52:56.160] List of future strategies: 1576s [00:52:56.160] 1. sequential: 1576s [00:52:56.160] - args: function (..., envir = parent.frame()) 1576s [00:52:56.160] - tweaked: FALSE 1576s [00:52:56.160] - call: NULL 1576s [00:52:56.161] plan(): nbrOfWorkers() = 1 1576s [00:52:56.165] plan(): Setting new future strategy stack: 1576s [00:52:56.166] List of future strategies: 1576s [00:52:56.166] 1. multicore: 1576s [00:52:56.166] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1576s [00:52:56.166] - tweaked: FALSE 1576s [00:52:56.166] - call: plan(strategy) 1576s [00:52:56.187] plan(): nbrOfWorkers() = 1 1576s [00:52:56.189] SequentialFuture started (and completed) 1576s [00:52:56.190] - Launch lazy future ... done 1576s [00:52:56.191] run() for ‘SequentialFuture’ ... done 1576s [00:52:56.192] Created future: 1576s [00:52:56.193] SequentialFuture: 1576s [00:52:56.193] Label: ‘future_sapply-1’ 1576s [00:52:56.193] Expression: 1576s [00:52:56.193] { 1576s [00:52:56.193] do.call(function(...) { 1576s [00:52:56.193] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1576s [00:52:56.193] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1576s [00:52:56.193] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1576s [00:52:56.193] on.exit(options(oopts), add = TRUE) 1576s [00:52:56.193] } 1576s [00:52:56.193] { 1576s [00:52:56.193] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1576s [00:52:56.193] ...future.X_jj <- ...future.elements_ii[[jj]] 1576s [00:52:56.193] ...future.FUN(...future.X_jj, ...) 1576s [00:52:56.193] }) 1576s [00:52:56.193] } 1576s [00:52:56.193] }, args = future.call.arguments) 1576s [00:52:56.193] } 1576s [00:52:56.193] Lazy evaluation: FALSE 1576s [00:52:56.193] Asynchronous evaluation: FALSE 1576s [00:52:56.193] Local evaluation: TRUE 1576s [00:52:56.193] Environment: R_GlobalEnv 1576s [00:52:56.193] Capture standard output: TRUE 1576s [00:52:56.193] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1576s [00:52:56.193] Globals: 5 objects totaling 4.95 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1576s [00:52:56.193] Packages: 1576s [00:52:56.193] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1576s [00:52:56.193] Resolved: TRUE 1576s [00:52:56.193] Value: 2.02 KiB of class ‘list’ 1576s [00:52:56.193] Early signaling: FALSE 1576s [00:52:56.193] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1576s [00:52:56.193] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1576s [00:52:56.198] Chunk #1 of 1 ... DONE 1576s [00:52:56.199] Launching 1 futures (chunks) ... DONE 1576s [00:52:56.200] Resolving 1 futures (chunks) ... 1576s [00:52:56.200] resolve() on list ... 1576s [00:52:56.202] recursive: 0 1576s [00:52:56.202] length: 1 1576s [00:52:56.203] 1576s [00:52:56.203] resolved() for ‘SequentialFuture’ ... 1576s [00:52:56.204] - state: ‘finished’ 1576s [00:52:56.204] - run: TRUE 1576s [00:52:56.204] - result: ‘FutureResult’ 1576s [00:52:56.204] resolved() for ‘SequentialFuture’ ... done 1576s [00:52:56.204] Future #1 1576s [00:52:56.205] signalConditionsASAP(SequentialFuture, pos=1) ... 1576s [00:52:56.205] - nx: 1 1576s [00:52:56.205] - relay: TRUE 1576s [00:52:56.205] - stdout: TRUE 1576s [00:52:56.206] - signal: TRUE 1576s [00:52:56.206] - resignal: FALSE 1576s [00:52:56.206] - force: TRUE 1576s [00:52:56.206] - relayed: [n=1] FALSE 1576s [00:52:56.207] - queued futures: [n=1] FALSE 1576s [00:52:56.207] - until=1 1576s [00:52:56.207] - relaying element #1 1576s [00:52:56.207] - relayed: [n=1] TRUE 1576s [00:52:56.208] - queued futures: [n=1] TRUE 1576s [00:52:56.208] signalConditionsASAP(SequentialFuture, pos=1) ... done 1576s [00:52:56.208] length: 0 (resolved future 1) 1576s [00:52:56.208] Relaying remaining futures 1576s [00:52:56.209] signalConditionsASAP(NULL, pos=0) ... 1576s [00:52:56.210] - nx: 1 1576s [00:52:56.210] - relay: TRUE 1576s [00:52:56.211] - stdout: TRUE 1576s [00:52:56.211] - signal: TRUE 1576s [00:52:56.211] - resignal: FALSE 1576s [00:52:56.212] - force: TRUE 1576s [00:52:56.213] - relayed: [n=1] TRUE 1576s [00:52:56.213] - queued futures: [n=1] TRUE 1576s - flush all 1576s [00:52:56.214] - relayed: [n=1] TRUE 1576s [00:52:56.214] - queued futures: [n=1] TRUE 1576s [00:52:56.215] signalConditionsASAP(NULL, pos=0) ... done 1576s [00:52:56.215] resolve() on list ... DONE 1576s [00:52:56.216] - Number of value chunks collected: 1 1576s [00:52:56.216] Resolving 1 futures (chunks) ... DONE 1576s [00:52:56.217] Reducing values from 1 chunks ... 1576s [00:52:56.217] - Number of values collected after concatenation: 6 1576s [00:52:56.217] - Number of values expected: 6 1576s [00:52:56.218] Reducing values from 1 chunks ... DONE 1576s [00:52:56.218] future_lapply() ... DONE 1576s List of 2 1576s $ y0: num [1:3, 1:5, 1:6] 2 2 2 4 4 4 6 6 6 8 ... 1576s ..- attr(*, "dimnames")=List of 3 1576s .. ..$ : NULL 1576s .. ..$ : NULL 1576s .. ..$ : chr [1:6] "a1" "a2" "b1" "b2" ... 1576s $ y1: num [1:3, 1:5, 1:6] 2 2 2 4 4 4 6 6 6 8 ... 1576s ..- attr(*, "dimnames")=List of 3 1576s .. ..$ : NULL 1576s .. ..$ : NULL 1576s .. ..$ : chr [1:6] "a1" "a2" "b1" "b2" ... 1576s [00:52:56.226] future_lapply() ... 1576s [00:52:56.232] Number of chunks: 1 1576s [00:52:56.232] getGlobalsAndPackagesXApply() ... 1576s [00:52:56.233] - future.globals: TRUE 1576s [00:52:56.233] getGlobalsAndPackages() ... 1576s [00:52:56.233] Searching for globals... 1576s [00:52:56.235] - globals found: [1] ‘FUN’ 1576s [00:52:56.236] Searching for globals ... DONE 1576s [00:52:56.236] Resolving globals: FALSE 1576s [00:52:56.236] The total size of the 1 globals is 848 bytes (848 bytes) 1576s [00:52:56.237] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1576s [00:52:56.237] - globals: [1] ‘FUN’ 1576s [00:52:56.237] 1576s [00:52:56.238] getGlobalsAndPackages() ... DONE 1576s [00:52:56.238] - globals found/used: [n=1] ‘FUN’ 1576s [00:52:56.238] - needed namespaces: [n=0] 1576s [00:52:56.238] Finding globals ... DONE 1576s [00:52:56.239] - use_args: TRUE 1576s [00:52:56.239] - Getting '...' globals ... 1576s [00:52:56.239] resolve() on list ... 1576s [00:52:56.240] recursive: 0 1576s [00:52:56.240] length: 1 1576s [00:52:56.241] elements: ‘...’ 1576s [00:52:56.241] length: 0 (resolved future 1) 1576s [00:52:56.241] resolve() on list ... DONE 1576s [00:52:56.241] - '...' content: [n=0] 1576s [00:52:56.241] List of 1 1576s [00:52:56.241] $ ...: list() 1576s [00:52:56.241] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1576s [00:52:56.241] - attr(*, "where")=List of 1 1576s [00:52:56.241] ..$ ...: 1576s [00:52:56.241] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1576s [00:52:56.241] - attr(*, "resolved")= logi TRUE 1576s [00:52:56.241] - attr(*, "total_size")= num NA 1576s [00:52:56.245] - Getting '...' globals ... DONE 1576s [00:52:56.246] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1576s [00:52:56.246] List of 2 1576s [00:52:56.246] $ ...future.FUN:function (x) 1576s [00:52:56.246] $ ... : list() 1576s [00:52:56.246] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1576s [00:52:56.246] - attr(*, "where")=List of 2 1576s [00:52:56.246] ..$ ...future.FUN: 1576s [00:52:56.246] ..$ ... : 1576s [00:52:56.246] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1576s [00:52:56.246] - attr(*, "resolved")= logi FALSE 1576s [00:52:56.246] - attr(*, "total_size")= num 848 1576s [00:52:56.251] Packages to be attached in all futures: [n=0] 1576s [00:52:56.251] getGlobalsAndPackagesXApply() ... DONE 1576s [00:52:56.252] Number of futures (= number of chunks): 1 1576s [00:52:56.252] Launching 1 futures (chunks) ... 1576s [00:52:56.252] Chunk #1 of 1 ... 1576s [00:52:56.252] - Finding globals in 'X' for chunk #1 ... 1576s [00:52:56.253] getGlobalsAndPackages() ... 1576s [00:52:56.253] Searching for globals... 1576s [00:52:56.253] 1576s [00:52:56.253] Searching for globals ... DONE 1576s [00:52:56.254] - globals: [0] 1576s [00:52:56.254] getGlobalsAndPackages() ... DONE 1576s [00:52:56.254] + additional globals found: [n=0] 1576s [00:52:56.254] + additional namespaces needed: [n=0] 1576s [00:52:56.254] - Finding globals in 'X' for chunk #1 ... DONE 1576s [00:52:56.254] - seeds: 1576s [00:52:56.254] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1576s [00:52:56.255] getGlobalsAndPackages() ... 1576s [00:52:56.255] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1576s [00:52:56.255] Resolving globals: FALSE 1576s [00:52:56.255] Tweak future expression to call with '...' arguments ... 1576s [00:52:56.255] { 1576s [00:52:56.255] do.call(function(...) { 1576s [00:52:56.255] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1576s [00:52:56.255] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1576s [00:52:56.255] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1576s [00:52:56.255] on.exit(options(oopts), add = TRUE) 1576s [00:52:56.255] } 1576s [00:52:56.255] { 1576s [00:52:56.255] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1576s [00:52:56.255] ...future.X_jj <- ...future.elements_ii[[jj]] 1576s [00:52:56.255] ...future.FUN(...future.X_jj, ...) 1576s [00:52:56.255] }) 1576s [00:52:56.255] } 1576s [00:52:56.255] }, args = future.call.arguments) 1576s [00:52:56.255] } 1576s [00:52:56.256] Tweak future expression to call with '...' arguments ... DONE 1576s [00:52:56.256] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1576s [00:52:56.257] 1576s [00:52:56.257] getGlobalsAndPackages() ... DONE 1576s [00:52:56.257] run() for ‘Future’ ... 1576s [00:52:56.257] - state: ‘created’ 1576s [00:52:56.258] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1576s [00:52:56.262] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1576s [00:52:56.263] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1576s [00:52:56.263] - Field: ‘label’ 1576s [00:52:56.263] - Field: ‘local’ 1576s [00:52:56.263] - Field: ‘owner’ 1576s [00:52:56.263] - Field: ‘envir’ 1576s [00:52:56.264] - Field: ‘packages’ 1576s [00:52:56.264] - Field: ‘gc’ 1576s [00:52:56.264] - Field: ‘conditions’ 1576s [00:52:56.264] - Field: ‘expr’ 1576s [00:52:56.264] - Field: ‘uuid’ 1576s [00:52:56.264] - Field: ‘seed’ 1576s [00:52:56.264] - Field: ‘version’ 1576s [00:52:56.265] - Field: ‘result’ 1576s [00:52:56.265] - Field: ‘asynchronous’ 1576s [00:52:56.265] - Field: ‘calls’ 1576s [00:52:56.265] - Field: ‘globals’ 1576s [00:52:56.265] - Field: ‘stdout’ 1576s [00:52:56.266] - Field: ‘earlySignal’ 1576s [00:52:56.266] - Field: ‘lazy’ 1576s [00:52:56.266] - Field: ‘state’ 1576s [00:52:56.266] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1576s [00:52:56.267] - Launch lazy future ... 1576s [00:52:56.268] Packages needed by the future expression (n = 0): 1576s [00:52:56.268] Packages needed by future strategies (n = 0): 1576s [00:52:56.268] { 1576s [00:52:56.268] { 1576s [00:52:56.268] { 1576s [00:52:56.268] ...future.startTime <- base::Sys.time() 1576s [00:52:56.268] { 1576s [00:52:56.268] { 1576s [00:52:56.268] { 1576s [00:52:56.268] base::local({ 1576s [00:52:56.268] has_future <- base::requireNamespace("future", 1576s [00:52:56.268] quietly = TRUE) 1576s [00:52:56.268] if (has_future) { 1576s [00:52:56.268] ns <- base::getNamespace("future") 1576s [00:52:56.268] version <- ns[[".package"]][["version"]] 1576s [00:52:56.268] if (is.null(version)) 1576s [00:52:56.268] version <- utils::packageVersion("future") 1576s [00:52:56.268] } 1576s [00:52:56.268] else { 1576s [00:52:56.268] version <- NULL 1576s [00:52:56.268] } 1576s [00:52:56.268] if (!has_future || version < "1.8.0") { 1576s [00:52:56.268] info <- base::c(r_version = base::gsub("R version ", 1576s [00:52:56.268] "", base::R.version$version.string), 1576s [00:52:56.268] platform = base::sprintf("%s (%s-bit)", 1576s [00:52:56.268] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1576s [00:52:56.268] os = base::paste(base::Sys.info()[base::c("sysname", 1576s [00:52:56.268] "release", "version")], collapse = " "), 1576s [00:52:56.268] hostname = base::Sys.info()[["nodename"]]) 1576s [00:52:56.268] info <- base::sprintf("%s: %s", base::names(info), 1576s [00:52:56.268] info) 1576s [00:52:56.268] info <- base::paste(info, collapse = "; ") 1576s [00:52:56.268] if (!has_future) { 1576s [00:52:56.268] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1576s [00:52:56.268] info) 1576s [00:52:56.268] } 1576s [00:52:56.268] else { 1576s [00:52:56.268] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1576s [00:52:56.268] info, version) 1576s [00:52:56.268] } 1576s [00:52:56.268] base::stop(msg) 1576s [00:52:56.268] } 1576s [00:52:56.268] }) 1576s [00:52:56.268] } 1576s [00:52:56.268] options(future.plan = NULL) 1576s [00:52:56.268] Sys.unsetenv("R_FUTURE_PLAN") 1576s [00:52:56.268] future::plan("default", .cleanup = FALSE, .init = FALSE) 1576s [00:52:56.268] } 1576s [00:52:56.268] ...future.workdir <- getwd() 1576s [00:52:56.268] } 1576s [00:52:56.268] ...future.oldOptions <- base::as.list(base::.Options) 1576s [00:52:56.268] ...future.oldEnvVars <- base::Sys.getenv() 1576s [00:52:56.268] } 1576s [00:52:56.268] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1576s [00:52:56.268] future.globals.maxSize = NULL, future.globals.method = NULL, 1576s [00:52:56.268] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1576s [00:52:56.268] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1576s [00:52:56.268] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1576s [00:52:56.268] future.stdout.windows.reencode = NULL, width = 80L) 1576s [00:52:56.268] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1576s [00:52:56.268] base::names(...future.oldOptions)) 1576s [00:52:56.268] } 1576s [00:52:56.268] if (FALSE) { 1576s [00:52:56.268] } 1576s [00:52:56.268] else { 1576s [00:52:56.268] if (TRUE) { 1576s [00:52:56.268] ...future.stdout <- base::rawConnection(base::raw(0L), 1576s [00:52:56.268] open = "w") 1576s [00:52:56.268] } 1576s [00:52:56.268] else { 1576s [00:52:56.268] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1576s [00:52:56.268] windows = "NUL", "/dev/null"), open = "w") 1576s [00:52:56.268] } 1576s [00:52:56.268] base::sink(...future.stdout, type = "output", split = FALSE) 1576s [00:52:56.268] base::on.exit(if (!base::is.null(...future.stdout)) { 1576s [00:52:56.268] base::sink(type = "output", split = FALSE) 1576s [00:52:56.268] base::close(...future.stdout) 1576s [00:52:56.268] }, add = TRUE) 1576s [00:52:56.268] } 1576s [00:52:56.268] ...future.frame <- base::sys.nframe() 1576s [00:52:56.268] ...future.conditions <- base::list() 1576s [00:52:56.268] ...future.rng <- base::globalenv()$.Random.seed 1576s [00:52:56.268] if (FALSE) { 1576s [00:52:56.268] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1576s [00:52:56.268] "...future.value", "...future.globalenv.names", ".Random.seed") 1576s [00:52:56.268] } 1576s [00:52:56.268] ...future.result <- base::tryCatch({ 1576s [00:52:56.268] base::withCallingHandlers({ 1576s [00:52:56.268] ...future.value <- base::withVisible(base::local({ 1576s [00:52:56.268] do.call(function(...) { 1576s [00:52:56.268] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1576s [00:52:56.268] if (!identical(...future.globals.maxSize.org, 1576s [00:52:56.268] ...future.globals.maxSize)) { 1576s [00:52:56.268] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1576s [00:52:56.268] on.exit(options(oopts), add = TRUE) 1576s [00:52:56.268] } 1576s [00:52:56.268] { 1576s [00:52:56.268] lapply(seq_along(...future.elements_ii), 1576s [00:52:56.268] FUN = function(jj) { 1576s [00:52:56.268] ...future.X_jj <- ...future.elements_ii[[jj]] 1576s [00:52:56.268] ...future.FUN(...future.X_jj, ...) 1576s [00:52:56.268] }) 1576s [00:52:56.268] } 1576s [00:52:56.268] }, args = future.call.arguments) 1576s [00:52:56.268] })) 1576s [00:52:56.268] future::FutureResult(value = ...future.value$value, 1576s [00:52:56.268] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1576s [00:52:56.268] ...future.rng), globalenv = if (FALSE) 1576s [00:52:56.268] list(added = base::setdiff(base::names(base::.GlobalEnv), 1576s [00:52:56.268] ...future.globalenv.names)) 1576s [00:52:56.268] else NULL, started = ...future.startTime, version = "1.8") 1576s [00:52:56.268] }, condition = base::local({ 1576s [00:52:56.268] c <- base::c 1576s [00:52:56.268] inherits <- base::inherits 1576s [00:52:56.268] invokeRestart <- base::invokeRestart 1576s [00:52:56.268] length <- base::length 1576s [00:52:56.268] list <- base::list 1576s [00:52:56.268] seq.int <- base::seq.int 1576s [00:52:56.268] signalCondition <- base::signalCondition 1576s [00:52:56.268] sys.calls <- base::sys.calls 1576s [00:52:56.268] `[[` <- base::`[[` 1576s [00:52:56.268] `+` <- base::`+` 1576s [00:52:56.268] `<<-` <- base::`<<-` 1576s [00:52:56.268] sysCalls <- function(calls = sys.calls(), from = 1L) { 1576s [00:52:56.268] calls[seq.int(from = from + 12L, to = length(calls) - 1576s [00:52:56.268] 3L)] 1576s [00:52:56.268] } 1576s [00:52:56.268] function(cond) { 1576s [00:52:56.268] is_error <- inherits(cond, "error") 1576s [00:52:56.268] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1576s [00:52:56.268] NULL) 1576s [00:52:56.268] if (is_error) { 1576s [00:52:56.268] sessionInformation <- function() { 1576s [00:52:56.268] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1576s [00:52:56.268] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1576s [00:52:56.268] search = base::search(), system = base::Sys.info()) 1576s [00:52:56.268] } 1576s [00:52:56.268] ...future.conditions[[length(...future.conditions) + 1576s [00:52:56.268] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1576s [00:52:56.268] cond$call), session = sessionInformation(), 1576s [00:52:56.268] timestamp = base::Sys.time(), signaled = 0L) 1576s [00:52:56.268] signalCondition(cond) 1576s [00:52:56.268] } 1576s [00:52:56.268] else if (!ignore && TRUE && inherits(cond, c("condition", 1576s [00:52:56.268] "immediateCondition"))) { 1576s [00:52:56.268] signal <- TRUE && inherits(cond, "immediateCondition") 1576s [00:52:56.268] ...future.conditions[[length(...future.conditions) + 1576s [00:52:56.268] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1576s [00:52:56.268] if (TRUE && !signal) { 1576s [00:52:56.268] muffleCondition <- function (cond, pattern = "^muffle") 1576s [00:52:56.268] { 1576s [00:52:56.268] inherits <- base::inherits 1576s [00:52:56.268] invokeRestart <- base::invokeRestart 1576s [00:52:56.268] is.null <- base::is.null 1576s [00:52:56.268] muffled <- FALSE 1576s [00:52:56.268] if (inherits(cond, "message")) { 1576s [00:52:56.268] muffled <- grepl(pattern, "muffleMessage") 1576s [00:52:56.268] if (muffled) 1576s [00:52:56.268] invokeRestart("muffleMessage") 1576s [00:52:56.268] } 1576s [00:52:56.268] else if (inherits(cond, "warning")) { 1576s [00:52:56.268] muffled <- grepl(pattern, "muffleWarning") 1576s [00:52:56.268] if (muffled) 1576s [00:52:56.268] invokeRestart("muffleWarning") 1576s [00:52:56.268] } 1576s [00:52:56.268] else if (inherits(cond, "condition")) { 1576s [00:52:56.268] if (!is.null(pattern)) { 1576s [00:52:56.268] computeRestarts <- base::computeRestarts 1576s [00:52:56.268] grepl <- base::grepl 1576s [00:52:56.268] restarts <- computeRestarts(cond) 1576s [00:52:56.268] for (restart in restarts) { 1576s [00:52:56.268] name <- restart$name 1576s [00:52:56.268] if (is.null(name)) 1576s [00:52:56.268] next 1576s [00:52:56.268] if (!grepl(pattern, name)) 1576s [00:52:56.268] next 1576s [00:52:56.268] invokeRestart(restart) 1576s [00:52:56.268] muffled <- TRUE 1576s [00:52:56.268] break 1576s [00:52:56.268] } 1576s [00:52:56.268] } 1576s [00:52:56.268] } 1576s [00:52:56.268] invisible(muffled) 1576s [00:52:56.268] } 1576s [00:52:56.268] muffleCondition(cond, pattern = "^muffle") 1576s [00:52:56.268] } 1576s [00:52:56.268] } 1576s [00:52:56.268] else { 1576s [00:52:56.268] if (TRUE) { 1576s [00:52:56.268] muffleCondition <- function (cond, pattern = "^muffle") 1576s [00:52:56.268] { 1576s [00:52:56.268] inherits <- base::inherits 1576s [00:52:56.268] invokeRestart <- base::invokeRestart 1576s [00:52:56.268] is.null <- base::is.null 1576s [00:52:56.268] muffled <- FALSE 1576s [00:52:56.268] if (inherits(cond, "message")) { 1576s [00:52:56.268] muffled <- grepl(pattern, "muffleMessage") 1576s [00:52:56.268] if (muffled) 1576s [00:52:56.268] invokeRestart("muffleMessage") 1576s [00:52:56.268] } 1576s [00:52:56.268] else if (inherits(cond, "warning")) { 1576s [00:52:56.268] muffled <- grepl(pattern, "muffleWarning") 1576s [00:52:56.268] if (muffled) 1576s [00:52:56.268] invokeRestart("muffleWarning") 1576s [00:52:56.268] } 1576s [00:52:56.268] else if (inherits(cond, "condition")) { 1576s [00:52:56.268] if (!is.null(pattern)) { 1576s [00:52:56.268] computeRestarts <- base::computeRestarts 1576s [00:52:56.268] grepl <- base::grepl 1576s [00:52:56.268] restarts <- computeRestarts(cond) 1576s [00:52:56.268] for (restart in restarts) { 1576s [00:52:56.268] name <- restart$name 1576s [00:52:56.268] if (is.null(name)) 1576s [00:52:56.268] next 1576s [00:52:56.268] if (!grepl(pattern, name)) 1576s [00:52:56.268] next 1576s [00:52:56.268] invokeRestart(restart) 1576s [00:52:56.268] muffled <- TRUE 1576s [00:52:56.268] break 1576s [00:52:56.268] } 1576s [00:52:56.268] } 1576s [00:52:56.268] } 1576s [00:52:56.268] invisible(muffled) 1576s [00:52:56.268] } 1576s [00:52:56.268] muffleCondition(cond, pattern = "^muffle") 1576s [00:52:56.268] } 1576s [00:52:56.268] } 1576s [00:52:56.268] } 1576s [00:52:56.268] })) 1576s [00:52:56.268] }, error = function(ex) { 1576s [00:52:56.268] base::structure(base::list(value = NULL, visible = NULL, 1576s [00:52:56.268] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1576s [00:52:56.268] ...future.rng), started = ...future.startTime, 1576s [00:52:56.268] finished = Sys.time(), session_uuid = NA_character_, 1576s [00:52:56.268] version = "1.8"), class = "FutureResult") 1576s [00:52:56.268] }, finally = { 1576s [00:52:56.268] if (!identical(...future.workdir, getwd())) 1576s [00:52:56.268] setwd(...future.workdir) 1576s [00:52:56.268] { 1576s [00:52:56.268] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1576s [00:52:56.268] ...future.oldOptions$nwarnings <- NULL 1576s [00:52:56.268] } 1576s [00:52:56.268] base::options(...future.oldOptions) 1576s [00:52:56.268] if (.Platform$OS.type == "windows") { 1576s [00:52:56.268] old_names <- names(...future.oldEnvVars) 1576s [00:52:56.268] envs <- base::Sys.getenv() 1576s [00:52:56.268] names <- names(envs) 1576s [00:52:56.268] common <- intersect(names, old_names) 1576s [00:52:56.268] added <- setdiff(names, old_names) 1576s [00:52:56.268] removed <- setdiff(old_names, names) 1576s [00:52:56.268] changed <- common[...future.oldEnvVars[common] != 1576s [00:52:56.268] envs[common]] 1576s [00:52:56.268] NAMES <- toupper(changed) 1576s [00:52:56.268] args <- list() 1576s [00:52:56.268] for (kk in seq_along(NAMES)) { 1576s [00:52:56.268] name <- changed[[kk]] 1576s [00:52:56.268] NAME <- NAMES[[kk]] 1576s [00:52:56.268] if (name != NAME && is.element(NAME, old_names)) 1576s [00:52:56.268] next 1576s [00:52:56.268] args[[name]] <- ...future.oldEnvVars[[name]] 1576s [00:52:56.268] } 1576s [00:52:56.268] NAMES <- toupper(added) 1576s [00:52:56.268] for (kk in seq_along(NAMES)) { 1576s [00:52:56.268] name <- added[[kk]] 1576s [00:52:56.268] NAME <- NAMES[[kk]] 1576s [00:52:56.268] if (name != NAME && is.element(NAME, old_names)) 1576s [00:52:56.268] next 1576s [00:52:56.268] args[[name]] <- "" 1576s [00:52:56.268] } 1576s [00:52:56.268] NAMES <- toupper(removed) 1576s [00:52:56.268] for (kk in seq_along(NAMES)) { 1576s [00:52:56.268] name <- removed[[kk]] 1576s [00:52:56.268] NAME <- NAMES[[kk]] 1576s [00:52:56.268] if (name != NAME && is.element(NAME, old_names)) 1576s [00:52:56.268] next 1576s [00:52:56.268] args[[name]] <- ...future.oldEnvVars[[name]] 1576s [00:52:56.268] } 1576s [00:52:56.268] if (length(args) > 0) 1576s [00:52:56.268] base::do.call(base::Sys.setenv, args = args) 1576s [00:52:56.268] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1576s [00:52:56.268] } 1576s [00:52:56.268] else { 1576s [00:52:56.268] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1576s [00:52:56.268] } 1576s [00:52:56.268] { 1576s [00:52:56.268] if (base::length(...future.futureOptionsAdded) > 1576s [00:52:56.268] 0L) { 1576s [00:52:56.268] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1576s [00:52:56.268] base::names(opts) <- ...future.futureOptionsAdded 1576s [00:52:56.268] base::options(opts) 1576s [00:52:56.268] } 1576s [00:52:56.268] { 1576s [00:52:56.268] { 1576s [00:52:56.268] NULL 1576s [00:52:56.268] RNGkind("Mersenne-Twister") 1576s [00:52:56.268] base::rm(list = ".Random.seed", envir = base::globalenv(), 1576s [00:52:56.268] inherits = FALSE) 1576s [00:52:56.268] } 1576s [00:52:56.268] options(future.plan = NULL) 1576s [00:52:56.268] if (is.na(NA_character_)) 1576s [00:52:56.268] Sys.unsetenv("R_FUTURE_PLAN") 1576s [00:52:56.268] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1576s [00:52:56.268] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1576s [00:52:56.268] envir = parent.frame()) 1576s [00:52:56.268] { 1576s [00:52:56.268] default_workers <- missing(workers) 1576s [00:52:56.268] if (is.function(workers)) 1576s [00:52:56.268] workers <- workers() 1576s [00:52:56.268] workers <- structure(as.integer(workers), 1576s [00:52:56.268] class = class(workers)) 1576s [00:52:56.268] stop_if_not(is.finite(workers), workers >= 1576s [00:52:56.268] 1L) 1576s [00:52:56.268] if ((workers == 1L && !inherits(workers, 1576s [00:52:56.268] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1576s [00:52:56.268] if (default_workers) 1576s [00:52:56.268] supportsMulticore(warn = TRUE) 1576s [00:52:56.268] return(sequential(..., envir = envir)) 1576s [00:52:56.268] } 1576s [00:52:56.268] oopts <- options(mc.cores = workers) 1576s [00:52:56.268] on.exit(options(oopts)) 1576s [00:52:56.268] future <- MulticoreFuture(..., workers = workers, 1576s [00:52:56.268] envir = envir) 1576s [00:52:56.268] if (!future$lazy) 1576s [00:52:56.268] future <- run(future) 1576s [00:52:56.268] invisible(future) 1576s [00:52:56.268] }), .cleanup = FALSE, .init = FALSE) 1576s [00:52:56.268] } 1576s [00:52:56.268] } 1576s [00:52:56.268] } 1576s [00:52:56.268] }) 1576s [00:52:56.268] if (TRUE) { 1576s [00:52:56.268] base::sink(type = "output", split = FALSE) 1576s [00:52:56.268] if (TRUE) { 1576s [00:52:56.268] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1576s [00:52:56.268] } 1576s [00:52:56.268] else { 1576s [00:52:56.268] ...future.result["stdout"] <- base::list(NULL) 1576s [00:52:56.268] } 1576s [00:52:56.268] base::close(...future.stdout) 1576s [00:52:56.268] ...future.stdout <- NULL 1576s [00:52:56.268] } 1576s [00:52:56.268] ...future.result$conditions <- ...future.conditions 1576s [00:52:56.268] ...future.result$finished <- base::Sys.time() 1576s [00:52:56.268] ...future.result 1576s [00:52:56.268] } 1576s [00:52:56.277] assign_globals() ... 1576s [00:52:56.277] List of 5 1576s [00:52:56.277] $ ...future.FUN :function (x) 1576s [00:52:56.277] $ future.call.arguments : list() 1576s [00:52:56.277] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1576s [00:52:56.277] $ ...future.elements_ii :List of 3 1576s [00:52:56.277] ..$ : chr "a" 1576s [00:52:56.277] ..$ : chr "b" 1576s [00:52:56.277] ..$ : chr "c" 1576s [00:52:56.277] $ ...future.seeds_ii : NULL 1576s [00:52:56.277] $ ...future.globals.maxSize: NULL 1576s [00:52:56.277] - attr(*, "where")=List of 5 1576s [00:52:56.277] ..$ ...future.FUN : 1576s [00:52:56.277] ..$ future.call.arguments : 1576s [00:52:56.277] ..$ ...future.elements_ii : 1576s [00:52:56.277] ..$ ...future.seeds_ii : 1576s [00:52:56.277] ..$ ...future.globals.maxSize: 1576s [00:52:56.277] - attr(*, "resolved")= logi FALSE 1576s [00:52:56.277] - attr(*, "total_size")= num 848 1576s [00:52:56.277] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1576s [00:52:56.277] - attr(*, "already-done")= logi TRUE 1576s [00:52:56.288] - copied ‘...future.FUN’ to environment 1576s [00:52:56.289] - copied ‘future.call.arguments’ to environment 1576s [00:52:56.289] - copied ‘...future.elements_ii’ to environment 1576s [00:52:56.289] - copied ‘...future.seeds_ii’ to environment 1576s [00:52:56.289] - copied ‘...future.globals.maxSize’ to environment 1576s [00:52:56.289] assign_globals() ... done 1576s [00:52:56.290] plan(): Setting new future strategy stack: 1576s [00:52:56.290] List of future strategies: 1576s [00:52:56.290] 1. sequential: 1576s [00:52:56.290] - args: function (..., envir = parent.frame()) 1576s [00:52:56.290] - tweaked: FALSE 1576s [00:52:56.290] - call: NULL 1576s [00:52:56.291] plan(): nbrOfWorkers() = 1 1576s [00:52:56.293] plan(): Setting new future strategy stack: 1576s [00:52:56.293] List of future strategies: 1576s [00:52:56.293] 1. multicore: 1576s [00:52:56.293] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1576s [00:52:56.293] - tweaked: FALSE 1576s [00:52:56.293] - call: plan(strategy) 1576s [00:52:56.298] plan(): nbrOfWorkers() = 1 1576s [00:52:56.298] SequentialFuture started (and completed) 1576s [00:52:56.299] - Launch lazy future ... done 1576s [00:52:56.299] run() for ‘SequentialFuture’ ... done 1576s [00:52:56.299] Created future: 1576s [00:52:56.299] SequentialFuture: 1576s [00:52:56.299] Label: ‘future_sapply-1’ 1576s [00:52:56.299] Expression: 1576s [00:52:56.299] { 1576s [00:52:56.299] do.call(function(...) { 1576s [00:52:56.299] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1576s [00:52:56.299] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1576s [00:52:56.299] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1576s [00:52:56.299] on.exit(options(oopts), add = TRUE) 1576s [00:52:56.299] } 1576s [00:52:56.299] { 1576s [00:52:56.299] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1576s [00:52:56.299] ...future.X_jj <- ...future.elements_ii[[jj]] 1576s [00:52:56.299] ...future.FUN(...future.X_jj, ...) 1576s [00:52:56.299] }) 1576s [00:52:56.299] } 1576s [00:52:56.299] }, args = future.call.arguments) 1576s [00:52:56.299] } 1576s [00:52:56.299] Lazy evaluation: FALSE 1576s [00:52:56.299] Asynchronous evaluation: FALSE 1576s [00:52:56.299] Local evaluation: TRUE 1576s [00:52:56.299] Environment: R_GlobalEnv 1576s [00:52:56.299] Capture standard output: TRUE 1576s [00:52:56.299] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1576s [00:52:56.299] Globals: 5 objects totaling 1.16 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1576s [00:52:56.299] Packages: 1576s [00:52:56.299] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1576s [00:52:56.299] Resolved: TRUE 1576s [00:52:56.299] Value: 336 bytes of class ‘list’ 1576s [00:52:56.299] Early signaling: FALSE 1576s [00:52:56.299] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1576s [00:52:56.299] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1576s [00:52:56.301] Chunk #1 of 1 ... DONE 1576s [00:52:56.302] Launching 1 futures (chunks) ... DONE 1576s [00:52:56.302] Resolving 1 futures (chunks) ... 1576s [00:52:56.302] resolve() on list ... 1576s [00:52:56.303] recursive: 0 1576s [00:52:56.303] length: 1 1576s [00:52:56.303] 1576s [00:52:56.304] resolved() for ‘SequentialFuture’ ... 1576s [00:52:56.304] - state: ‘finished’ 1576s [00:52:56.304] - run: TRUE 1576s [00:52:56.305] - result: ‘FutureResult’ 1576s [00:52:56.305] resolved() for ‘SequentialFuture’ ... done 1576s [00:52:56.305] Future #1 1576s [00:52:56.305] signalConditionsASAP(SequentialFuture, pos=1) ... 1576s [00:52:56.305] - nx: 1 1576s [00:52:56.306] - relay: TRUE 1576s [00:52:56.306] - stdout: TRUE 1576s [00:52:56.306] - signal: TRUE 1576s [00:52:56.306] - resignal: FALSE 1576s [00:52:56.306] - force: TRUE 1576s [00:52:56.306] - relayed: [n=1] FALSE 1576s [00:52:56.306] - queued futures: [n=1] FALSE 1576s [00:52:56.306] - until=1 1576s [00:52:56.307] - relaying element #1 1576s [00:52:56.307] - relayed: [n=1] TRUE 1576s [00:52:56.307] - queued futures: [n=1] TRUE 1576s [00:52:56.307] signalConditionsASAP(SequentialFuture, pos=1) ... done 1576s [00:52:56.307] length: 0 (resolved future 1) 1576s [00:52:56.308] Relaying remaining futures 1576s [00:52:56.308] signalConditionsASAP(NULL, pos=0) ... 1576s [00:52:56.308] - nx: 1 1576s [00:52:56.308] - relay: TRUE 1576s [00:52:56.308] - stdout: TRUE 1576s [00:52:56.308] - signal: TRUE 1576s [00:52:56.309] - resignal: FALSE 1576s [00:52:56.309] - force: TRUE 1576s [00:52:56.309] - relayed: [n=1] TRUE 1576s [00:52:56.310] - queued futures: [n=1] TRUE 1576s - flush all 1576s [00:52:56.311] - relayed: [n=1] TRUE 1576s [00:52:56.311] - queued futures: [n=1] TRUE 1576s [00:52:56.311] signalConditionsASAP(NULL, pos=0) ... done 1576s [00:52:56.312] resolve() on list ... DONE 1576s [00:52:56.312] - Number of value chunks collected: 1 1576s [00:52:56.313] Resolving 1 futures (chunks) ... DONE 1576s [00:52:56.313] Reducing values from 1 chunks ... 1576s [00:52:56.313] - Number of values collected after concatenation: 3 1576s [00:52:56.314] - Number of values expected: 3 1576s [00:52:56.314] Reducing values from 1 chunks ... DONE 1576s [00:52:56.314] future_lapply() ... DONE 1576s List of 2 1576s $ y0:List of 3 1576s ..$ : chr "a" 1576s ..$ : chr "b" 1576s ..$ : chr "c" 1576s $ y1:List of 3 1576s ..$ : chr "a" 1576s ..$ :[00:52:56.329] future_lapply() ... 1576s chr "b" 1576s ..$ : chr "c" 1576s List of 2 1576s $ y0:List of 3 1576s ..$ : chr "a" 1576s ..$ : chr "b" 1576s ..$ : chr "c" 1576s $ y2:List of 3 1576s ..$ : chr "a" 1576s ..$ : chr "b" 1576s ..$ : chr "c" 1576s [00:52:56.336] Number of chunks: 1 1576s [00:52:56.336] getGlobalsAndPackagesXApply() ... 1576s [00:52:56.336] - future.globals: TRUE 1576s [00:52:56.337] getGlobalsAndPackages() ... 1576s [00:52:56.337] Searching for globals... 1576s [00:52:56.339] - globals found: [2] ‘FUN’, ‘UseMethod’ 1576s [00:52:56.339] Searching for globals ... DONE 1576s [00:52:56.339] Resolving globals: FALSE 1576s [00:52:56.339] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1576s [00:52:56.340] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1576s [00:52:56.340] - globals: [1] ‘FUN’ 1576s [00:52:56.341] 1576s [00:52:56.341] getGlobalsAndPackages() ... DONE 1576s [00:52:56.341] - globals found/used: [n=1] ‘FUN’ 1576s [00:52:56.341] - needed namespaces: [n=0] 1576s [00:52:56.341] Finding globals ... DONE 1576s [00:52:56.341] - use_args: TRUE 1576s [00:52:56.342] - Getting '...' globals ... 1576s [00:52:56.342] resolve() on list ... 1576s [00:52:56.342] recursive: 0 1576s [00:52:56.342] length: 1 1576s [00:52:56.343] elements: ‘...’ 1576s [00:52:56.343] length: 0 (resolved future 1) 1576s [00:52:56.343] resolve() on list ... DONE 1576s [00:52:56.343] - '...' content: [n=0] 1576s [00:52:56.344] List of 1 1576s [00:52:56.344] $ ...: list() 1576s [00:52:56.344] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1576s [00:52:56.344] - attr(*, "where")=List of 1 1576s [00:52:56.344] ..$ ...: 1576s [00:52:56.344] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1576s [00:52:56.344] - attr(*, "resolved")= logi TRUE 1576s [00:52:56.344] - attr(*, "total_size")= num NA 1576s [00:52:56.348] - Getting '...' globals ... DONE 1576s [00:52:56.348] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1576s [00:52:56.348] List of 2 1576s [00:52:56.348] $ ...future.FUN:function (x, ...) 1576s [00:52:56.348] $ ... : list() 1576s [00:52:56.348] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1576s [00:52:56.348] - attr(*, "where")=List of 2 1576s [00:52:56.348] ..$ ...future.FUN: 1576s [00:52:56.348] ..$ ... : 1576s [00:52:56.348] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1576s [00:52:56.348] - attr(*, "resolved")= logi FALSE 1576s [00:52:56.348] - attr(*, "total_size")= num 1248 1576s [00:52:56.353] Packages to be attached in all futures: [n=0] 1576s [00:52:56.353] getGlobalsAndPackagesXApply() ... DONE 1576s [00:52:56.353] Number of futures (= number of chunks): 1 1576s [00:52:56.353] Launching 1 futures (chunks) ... 1576s [00:52:56.353] Chunk #1 of 1 ... 1576s [00:52:56.354] - Finding globals in 'X' for chunk #1 ... 1576s [00:52:56.354] getGlobalsAndPackages() ... 1576s [00:52:56.354] Searching for globals... 1576s [00:52:56.355] 1576s [00:52:56.355] Searching for globals ... DONE 1576s [00:52:56.355] - globals: [0] 1576s [00:52:56.355] getGlobalsAndPackages() ... DONE 1576s [00:52:56.355] + additional globals found: [n=0] 1576s [00:52:56.356] + additional namespaces needed: [n=0] 1576s [00:52:56.356] - Finding globals in 'X' for chunk #1 ... DONE 1576s [00:52:56.356] - seeds: 1576s [00:52:56.356] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1576s [00:52:56.356] getGlobalsAndPackages() ... 1576s [00:52:56.357] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1576s [00:52:56.357] Resolving globals: FALSE 1576s [00:52:56.357] Tweak future expression to call with '...' arguments ... 1576s [00:52:56.357] { 1576s [00:52:56.357] do.call(function(...) { 1576s [00:52:56.357] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1576s [00:52:56.357] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1576s [00:52:56.357] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1576s [00:52:56.357] on.exit(options(oopts), add = TRUE) 1576s [00:52:56.357] } 1576s [00:52:56.357] { 1576s [00:52:56.357] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1576s [00:52:56.357] ...future.X_jj <- ...future.elements_ii[[jj]] 1576s [00:52:56.357] ...future.FUN(...future.X_jj, ...) 1576s [00:52:56.357] }) 1576s [00:52:56.357] } 1576s [00:52:56.357] }, args = future.call.arguments) 1576s [00:52:56.357] } 1576s [00:52:56.358] Tweak future expression to call with '...' arguments ... DONE 1576s [00:52:56.359] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1576s [00:52:56.359] 1576s [00:52:56.359] getGlobalsAndPackages() ... DONE 1576s [00:52:56.363] run() for ‘Future’ ... 1576s [00:52:56.363] - state: ‘created’ 1576s [00:52:56.364] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1576s [00:52:56.367] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1576s [00:52:56.367] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1576s [00:52:56.367] - Field: ‘label’ 1576s [00:52:56.368] - Field: ‘local’ 1576s [00:52:56.368] - Field: ‘owner’ 1576s [00:52:56.368] - Field: ‘envir’ 1576s [00:52:56.368] - Field: ‘packages’ 1576s [00:52:56.369] - Field: ‘gc’ 1576s [00:52:56.369] - Field: ‘conditions’ 1576s [00:52:56.369] - Field: ‘expr’ 1576s [00:52:56.369] - Field: ‘uuid’ 1576s [00:52:56.369] - Field: ‘seed’ 1576s [00:52:56.369] - Field: ‘version’ 1576s [00:52:56.369] - Field: ‘result’ 1576s [00:52:56.370] - Field: ‘asynchronous’ 1576s [00:52:56.370] - Field: ‘calls’ 1576s [00:52:56.370] - Field: ‘globals’ 1576s [00:52:56.370] - Field: ‘stdout’ 1576s [00:52:56.371] - Field: ‘earlySignal’ 1576s [00:52:56.371] - Field: ‘lazy’ 1576s [00:52:56.371] - Field: ‘state’ 1576s [00:52:56.371] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1576s [00:52:56.371] - Launch lazy future ... 1576s [00:52:56.371] Packages needed by the future expression (n = 0): 1576s [00:52:56.372] Packages needed by future strategies (n = 0): 1576s [00:52:56.372] { 1576s [00:52:56.372] { 1576s [00:52:56.372] { 1576s [00:52:56.372] ...future.startTime <- base::Sys.time() 1576s [00:52:56.372] { 1576s [00:52:56.372] { 1576s [00:52:56.372] { 1576s [00:52:56.372] base::local({ 1576s [00:52:56.372] has_future <- base::requireNamespace("future", 1576s [00:52:56.372] quietly = TRUE) 1576s [00:52:56.372] if (has_future) { 1576s [00:52:56.372] ns <- base::getNamespace("future") 1576s [00:52:56.372] version <- ns[[".package"]][["version"]] 1576s [00:52:56.372] if (is.null(version)) 1576s [00:52:56.372] version <- utils::packageVersion("future") 1576s [00:52:56.372] } 1576s [00:52:56.372] else { 1576s [00:52:56.372] version <- NULL 1576s [00:52:56.372] } 1576s [00:52:56.372] if (!has_future || version < "1.8.0") { 1576s [00:52:56.372] info <- base::c(r_version = base::gsub("R version ", 1576s [00:52:56.372] "", base::R.version$version.string), 1576s [00:52:56.372] platform = base::sprintf("%s (%s-bit)", 1576s [00:52:56.372] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1576s [00:52:56.372] os = base::paste(base::Sys.info()[base::c("sysname", 1576s [00:52:56.372] "release", "version")], collapse = " "), 1576s [00:52:56.372] hostname = base::Sys.info()[["nodename"]]) 1576s [00:52:56.372] info <- base::sprintf("%s: %s", base::names(info), 1576s [00:52:56.372] info) 1576s [00:52:56.372] info <- base::paste(info, collapse = "; ") 1576s [00:52:56.372] if (!has_future) { 1576s [00:52:56.372] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1576s [00:52:56.372] info) 1576s [00:52:56.372] } 1576s [00:52:56.372] else { 1576s [00:52:56.372] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1576s [00:52:56.372] info, version) 1576s [00:52:56.372] } 1576s [00:52:56.372] base::stop(msg) 1576s [00:52:56.372] } 1576s [00:52:56.372] }) 1576s [00:52:56.372] } 1576s [00:52:56.372] options(future.plan = NULL) 1576s [00:52:56.372] Sys.unsetenv("R_FUTURE_PLAN") 1576s [00:52:56.372] future::plan("default", .cleanup = FALSE, .init = FALSE) 1576s [00:52:56.372] } 1576s [00:52:56.372] ...future.workdir <- getwd() 1576s [00:52:56.372] } 1576s [00:52:56.372] ...future.oldOptions <- base::as.list(base::.Options) 1576s [00:52:56.372] ...future.oldEnvVars <- base::Sys.getenv() 1576s [00:52:56.372] } 1576s [00:52:56.372] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1576s [00:52:56.372] future.globals.maxSize = NULL, future.globals.method = NULL, 1576s [00:52:56.372] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1576s [00:52:56.372] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1576s [00:52:56.372] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1576s [00:52:56.372] future.stdout.windows.reencode = NULL, width = 80L) 1576s [00:52:56.372] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1576s [00:52:56.372] base::names(...future.oldOptions)) 1576s [00:52:56.372] } 1576s [00:52:56.372] if (FALSE) { 1576s [00:52:56.372] } 1576s [00:52:56.372] else { 1576s [00:52:56.372] if (TRUE) { 1576s [00:52:56.372] ...future.stdout <- base::rawConnection(base::raw(0L), 1576s [00:52:56.372] open = "w") 1576s [00:52:56.372] } 1576s [00:52:56.372] else { 1576s [00:52:56.372] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1576s [00:52:56.372] windows = "NUL", "/dev/null"), open = "w") 1576s [00:52:56.372] } 1576s [00:52:56.372] base::sink(...future.stdout, type = "output", split = FALSE) 1576s [00:52:56.372] base::on.exit(if (!base::is.null(...future.stdout)) { 1576s [00:52:56.372] base::sink(type = "output", split = FALSE) 1576s [00:52:56.372] base::close(...future.stdout) 1576s [00:52:56.372] }, add = TRUE) 1576s [00:52:56.372] } 1576s [00:52:56.372] ...future.frame <- base::sys.nframe() 1576s [00:52:56.372] ...future.conditions <- base::list() 1576s [00:52:56.372] ...future.rng <- base::globalenv()$.Random.seed 1576s [00:52:56.372] if (FALSE) { 1576s [00:52:56.372] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1576s [00:52:56.372] "...future.value", "...future.globalenv.names", ".Random.seed") 1576s [00:52:56.372] } 1576s [00:52:56.372] ...future.result <- base::tryCatch({ 1576s [00:52:56.372] base::withCallingHandlers({ 1576s [00:52:56.372] ...future.value <- base::withVisible(base::local({ 1576s [00:52:56.372] do.call(function(...) { 1576s [00:52:56.372] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1576s [00:52:56.372] if (!identical(...future.globals.maxSize.org, 1576s [00:52:56.372] ...future.globals.maxSize)) { 1576s [00:52:56.372] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1576s [00:52:56.372] on.exit(options(oopts), add = TRUE) 1576s [00:52:56.372] } 1576s [00:52:56.372] { 1576s [00:52:56.372] lapply(seq_along(...future.elements_ii), 1576s [00:52:56.372] FUN = function(jj) { 1576s [00:52:56.372] ...future.X_jj <- ...future.elements_ii[[jj]] 1576s [00:52:56.372] ...future.FUN(...future.X_jj, ...) 1576s [00:52:56.372] }) 1576s [00:52:56.372] } 1576s [00:52:56.372] }, args = future.call.arguments) 1576s [00:52:56.372] })) 1576s [00:52:56.372] future::FutureResult(value = ...future.value$value, 1576s [00:52:56.372] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1576s [00:52:56.372] ...future.rng), globalenv = if (FALSE) 1576s [00:52:56.372] list(added = base::setdiff(base::names(base::.GlobalEnv), 1576s [00:52:56.372] ...future.globalenv.names)) 1576s [00:52:56.372] else NULL, started = ...future.startTime, version = "1.8") 1576s [00:52:56.372] }, condition = base::local({ 1576s [00:52:56.372] c <- base::c 1576s [00:52:56.372] inherits <- base::inherits 1576s [00:52:56.372] invokeRestart <- base::invokeRestart 1576s [00:52:56.372] length <- base::length 1576s [00:52:56.372] list <- base::list 1576s [00:52:56.372] seq.int <- base::seq.int 1576s [00:52:56.372] signalCondition <- base::signalCondition 1576s [00:52:56.372] sys.calls <- base::sys.calls 1576s [00:52:56.372] `[[` <- base::`[[` 1576s [00:52:56.372] `+` <- base::`+` 1576s [00:52:56.372] `<<-` <- base::`<<-` 1576s [00:52:56.372] sysCalls <- function(calls = sys.calls(), from = 1L) { 1576s [00:52:56.372] calls[seq.int(from = from + 12L, to = length(calls) - 1576s [00:52:56.372] 3L)] 1576s [00:52:56.372] } 1576s [00:52:56.372] function(cond) { 1576s [00:52:56.372] is_error <- inherits(cond, "error") 1576s [00:52:56.372] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1576s [00:52:56.372] NULL) 1576s [00:52:56.372] if (is_error) { 1576s [00:52:56.372] sessionInformation <- function() { 1576s [00:52:56.372] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1576s [00:52:56.372] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1576s [00:52:56.372] search = base::search(), system = base::Sys.info()) 1576s [00:52:56.372] } 1576s [00:52:56.372] ...future.conditions[[length(...future.conditions) + 1576s [00:52:56.372] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1576s [00:52:56.372] cond$call), session = sessionInformation(), 1576s [00:52:56.372] timestamp = base::Sys.time(), signaled = 0L) 1576s [00:52:56.372] signalCondition(cond) 1576s [00:52:56.372] } 1576s [00:52:56.372] else if (!ignore && TRUE && inherits(cond, c("condition", 1576s [00:52:56.372] "immediateCondition"))) { 1576s [00:52:56.372] signal <- TRUE && inherits(cond, "immediateCondition") 1576s [00:52:56.372] ...future.conditions[[length(...future.conditions) + 1576s [00:52:56.372] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1576s [00:52:56.372] if (TRUE && !signal) { 1576s [00:52:56.372] muffleCondition <- function (cond, pattern = "^muffle") 1576s [00:52:56.372] { 1576s [00:52:56.372] inherits <- base::inherits 1576s [00:52:56.372] invokeRestart <- base::invokeRestart 1576s [00:52:56.372] is.null <- base::is.null 1576s [00:52:56.372] muffled <- FALSE 1576s [00:52:56.372] if (inherits(cond, "message")) { 1576s [00:52:56.372] muffled <- grepl(pattern, "muffleMessage") 1576s [00:52:56.372] if (muffled) 1576s [00:52:56.372] invokeRestart("muffleMessage") 1576s [00:52:56.372] } 1576s [00:52:56.372] else if (inherits(cond, "warning")) { 1576s [00:52:56.372] muffled <- grepl(pattern, "muffleWarning") 1576s [00:52:56.372] if (muffled) 1576s [00:52:56.372] invokeRestart("muffleWarning") 1576s [00:52:56.372] } 1576s [00:52:56.372] else if (inherits(cond, "condition")) { 1576s [00:52:56.372] if (!is.null(pattern)) { 1576s [00:52:56.372] computeRestarts <- base::computeRestarts 1576s [00:52:56.372] grepl <- base::grepl 1576s [00:52:56.372] restarts <- computeRestarts(cond) 1576s [00:52:56.372] for (restart in restarts) { 1576s [00:52:56.372] name <- restart$name 1576s [00:52:56.372] if (is.null(name)) 1576s [00:52:56.372] next 1576s [00:52:56.372] if (!grepl(pattern, name)) 1576s [00:52:56.372] next 1576s [00:52:56.372] invokeRestart(restart) 1576s [00:52:56.372] muffled <- TRUE 1576s [00:52:56.372] break 1576s [00:52:56.372] } 1576s [00:52:56.372] } 1576s [00:52:56.372] } 1576s [00:52:56.372] invisible(muffled) 1576s [00:52:56.372] } 1576s [00:52:56.372] muffleCondition(cond, pattern = "^muffle") 1576s [00:52:56.372] } 1576s [00:52:56.372] } 1576s [00:52:56.372] else { 1576s [00:52:56.372] if (TRUE) { 1576s [00:52:56.372] muffleCondition <- function (cond, pattern = "^muffle") 1576s [00:52:56.372] { 1576s [00:52:56.372] inherits <- base::inherits 1576s [00:52:56.372] invokeRestart <- base::invokeRestart 1576s [00:52:56.372] is.null <- base::is.null 1576s [00:52:56.372] muffled <- FALSE 1576s [00:52:56.372] if (inherits(cond, "message")) { 1576s [00:52:56.372] muffled <- grepl(pattern, "muffleMessage") 1576s [00:52:56.372] if (muffled) 1576s [00:52:56.372] invokeRestart("muffleMessage") 1576s [00:52:56.372] } 1576s [00:52:56.372] else if (inherits(cond, "warning")) { 1576s [00:52:56.372] muffled <- grepl(pattern, "muffleWarning") 1576s [00:52:56.372] if (muffled) 1576s [00:52:56.372] invokeRestart("muffleWarning") 1576s [00:52:56.372] } 1576s [00:52:56.372] else if (inherits(cond, "condition")) { 1576s [00:52:56.372] if (!is.null(pattern)) { 1576s [00:52:56.372] computeRestarts <- base::computeRestarts 1576s [00:52:56.372] grepl <- base::grepl 1576s [00:52:56.372] restarts <- computeRestarts(cond) 1576s [00:52:56.372] for (restart in restarts) { 1576s [00:52:56.372] name <- restart$name 1576s [00:52:56.372] if (is.null(name)) 1576s [00:52:56.372] next 1576s [00:52:56.372] if (!grepl(pattern, name)) 1576s [00:52:56.372] next 1576s [00:52:56.372] invokeRestart(restart) 1576s [00:52:56.372] muffled <- TRUE 1576s [00:52:56.372] break 1576s [00:52:56.372] } 1576s [00:52:56.372] } 1576s [00:52:56.372] } 1576s [00:52:56.372] invisible(muffled) 1576s [00:52:56.372] } 1576s [00:52:56.372] muffleCondition(cond, pattern = "^muffle") 1576s [00:52:56.372] } 1576s [00:52:56.372] } 1576s [00:52:56.372] } 1576s [00:52:56.372] })) 1576s [00:52:56.372] }, error = function(ex) { 1576s [00:52:56.372] base::structure(base::list(value = NULL, visible = NULL, 1576s [00:52:56.372] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1576s [00:52:56.372] ...future.rng), started = ...future.startTime, 1576s [00:52:56.372] finished = Sys.time(), session_uuid = NA_character_, 1576s [00:52:56.372] version = "1.8"), class = "FutureResult") 1576s [00:52:56.372] }, finally = { 1576s [00:52:56.372] if (!identical(...future.workdir, getwd())) 1576s [00:52:56.372] setwd(...future.workdir) 1576s [00:52:56.372] { 1576s [00:52:56.372] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1576s [00:52:56.372] ...future.oldOptions$nwarnings <- NULL 1576s [00:52:56.372] } 1576s [00:52:56.372] base::options(...future.oldOptions) 1576s [00:52:56.372] if (.Platform$OS.type == "windows") { 1576s [00:52:56.372] old_names <- names(...future.oldEnvVars) 1576s [00:52:56.372] envs <- base::Sys.getenv() 1576s [00:52:56.372] names <- names(envs) 1576s [00:52:56.372] common <- intersect(names, old_names) 1576s [00:52:56.372] added <- setdiff(names, old_names) 1576s [00:52:56.372] removed <- setdiff(old_names, names) 1576s [00:52:56.372] changed <- common[...future.oldEnvVars[common] != 1576s [00:52:56.372] envs[common]] 1576s [00:52:56.372] NAMES <- toupper(changed) 1576s [00:52:56.372] args <- list() 1576s [00:52:56.372] for (kk in seq_along(NAMES)) { 1576s [00:52:56.372] name <- changed[[kk]] 1576s [00:52:56.372] NAME <- NAMES[[kk]] 1576s [00:52:56.372] if (name != NAME && is.element(NAME, old_names)) 1576s [00:52:56.372] next 1576s [00:52:56.372] args[[name]] <- ...future.oldEnvVars[[name]] 1576s [00:52:56.372] } 1576s [00:52:56.372] NAMES <- toupper(added) 1576s [00:52:56.372] for (kk in seq_along(NAMES)) { 1576s [00:52:56.372] name <- added[[kk]] 1576s [00:52:56.372] NAME <- NAMES[[kk]] 1576s [00:52:56.372] if (name != NAME && is.element(NAME, old_names)) 1576s [00:52:56.372] next 1576s [00:52:56.372] args[[name]] <- "" 1576s [00:52:56.372] } 1576s [00:52:56.372] NAMES <- toupper(removed) 1576s [00:52:56.372] for (kk in seq_along(NAMES)) { 1576s [00:52:56.372] name <- removed[[kk]] 1576s [00:52:56.372] NAME <- NAMES[[kk]] 1576s [00:52:56.372] if (name != NAME && is.element(NAME, old_names)) 1576s [00:52:56.372] next 1576s [00:52:56.372] args[[name]] <- ...future.oldEnvVars[[name]] 1576s [00:52:56.372] } 1576s [00:52:56.372] if (length(args) > 0) 1576s [00:52:56.372] base::do.call(base::Sys.setenv, args = args) 1576s [00:52:56.372] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1576s [00:52:56.372] } 1576s [00:52:56.372] else { 1576s [00:52:56.372] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1576s [00:52:56.372] } 1576s [00:52:56.372] { 1576s [00:52:56.372] if (base::length(...future.futureOptionsAdded) > 1576s [00:52:56.372] 0L) { 1576s [00:52:56.372] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1576s [00:52:56.372] base::names(opts) <- ...future.futureOptionsAdded 1576s [00:52:56.372] base::options(opts) 1576s [00:52:56.372] } 1576s [00:52:56.372] { 1576s [00:52:56.372] { 1576s [00:52:56.372] NULL 1576s [00:52:56.372] RNGkind("Mersenne-Twister") 1576s [00:52:56.372] base::rm(list = ".Random.seed", envir = base::globalenv(), 1576s [00:52:56.372] inherits = FALSE) 1576s [00:52:56.372] } 1576s [00:52:56.372] options(future.plan = NULL) 1576s [00:52:56.372] if (is.na(NA_character_)) 1576s [00:52:56.372] Sys.unsetenv("R_FUTURE_PLAN") 1576s [00:52:56.372] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1576s [00:52:56.372] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1576s [00:52:56.372] envir = parent.frame()) 1576s [00:52:56.372] { 1576s [00:52:56.372] default_workers <- missing(workers) 1576s [00:52:56.372] if (is.function(workers)) 1576s [00:52:56.372] workers <- workers() 1576s [00:52:56.372] workers <- structure(as.integer(workers), 1576s [00:52:56.372] class = class(workers)) 1576s [00:52:56.372] stop_if_not(is.finite(workers), workers >= 1576s [00:52:56.372] 1L) 1576s [00:52:56.372] if ((workers == 1L && !inherits(workers, 1576s [00:52:56.372] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1576s [00:52:56.372] if (default_workers) 1576s [00:52:56.372] supportsMulticore(warn = TRUE) 1576s [00:52:56.372] return(sequential(..., envir = envir)) 1576s [00:52:56.372] } 1576s [00:52:56.372] oopts <- options(mc.cores = workers) 1576s [00:52:56.372] on.exit(options(oopts)) 1576s [00:52:56.372] future <- MulticoreFuture(..., workers = workers, 1576s [00:52:56.372] envir = envir) 1576s [00:52:56.372] if (!future$lazy) 1576s [00:52:56.372] future <- run(future) 1576s [00:52:56.372] invisible(future) 1576s [00:52:56.372] }), .cleanup = FALSE, .init = FALSE) 1576s [00:52:56.372] } 1576s [00:52:56.372] } 1576s [00:52:56.372] } 1576s [00:52:56.372] }) 1576s [00:52:56.372] if (TRUE) { 1576s [00:52:56.372] base::sink(type = "output", split = FALSE) 1576s [00:52:56.372] if (TRUE) { 1576s [00:52:56.372] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1576s [00:52:56.372] } 1576s [00:52:56.372] else { 1576s [00:52:56.372] ...future.result["stdout"] <- base::list(NULL) 1576s [00:52:56.372] } 1576s [00:52:56.372] base::close(...future.stdout) 1576s [00:52:56.372] ...future.stdout <- NULL 1576s [00:52:56.372] } 1576s [00:52:56.372] ...future.result$conditions <- ...future.conditions 1576s [00:52:56.372] ...future.result$finished <- base::Sys.time() 1576s [00:52:56.372] ...future.result 1576s [00:52:56.372] } 1576s [00:52:56.375] assign_globals() ... 1576s [00:52:56.375] List of 5 1576s [00:52:56.375] $ ...future.FUN :function (x, ...) 1576s [00:52:56.375] $ future.call.arguments : list() 1576s [00:52:56.375] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1576s [00:52:56.375] $ ...future.elements_ii :List of 3 1576s [00:52:56.375] ..$ : chr "a" 1576s [00:52:56.375] ..$ : chr "b" 1576s [00:52:56.375] ..$ : chr "c" 1576s [00:52:56.375] $ ...future.seeds_ii : NULL 1576s [00:52:56.375] $ ...future.globals.maxSize: NULL 1576s [00:52:56.375] - attr(*, "where")=List of 5 1576s [00:52:56.375] ..$ ...future.FUN : 1576s [00:52:56.375] ..$ future.call.arguments : 1576s [00:52:56.375] ..$ ...future.elements_ii : 1576s [00:52:56.375] ..$ ...future.seeds_ii : 1576s [00:52:56.375] ..$ ...future.globals.maxSize: 1576s [00:52:56.375] - attr(*, "resolved")= logi FALSE 1576s [00:52:56.375] - attr(*, "total_size")= num 1248 1576s [00:52:56.375] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1576s [00:52:56.375] - attr(*, "already-done")= logi TRUE 1576s [00:52:56.383] - copied ‘...future.FUN’ to environment 1576s [00:52:56.383] - copied ‘future.call.arguments’ to environment 1576s [00:52:56.383] - copied ‘...future.elements_ii’ to environment 1576s [00:52:56.384] - copied ‘...future.seeds_ii’ to environment 1576s [00:52:56.384] - copied ‘...future.globals.maxSize’ to environment 1576s [00:52:56.384] assign_globals() ... done 1576s [00:52:56.384] plan(): Setting new future strategy stack: 1576s [00:52:56.384] List of future strategies: 1576s [00:52:56.384] 1. sequential: 1576s [00:52:56.384] - args: function (..., envir = parent.frame()) 1576s [00:52:56.384] - tweaked: FALSE 1576s [00:52:56.384] - call: NULL 1576s [00:52:56.385] plan(): nbrOfWorkers() = 1 1576s [00:52:56.386] plan(): Setting new future strategy stack: 1576s [00:52:56.386] List of future strategies: 1576s [00:52:56.386] 1. multicore: 1576s [00:52:56.386] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1576s [00:52:56.386] - tweaked: FALSE 1576s [00:52:56.386] - call: plan(strategy) 1576s [00:52:56.390] plan(): nbrOfWorkers() = 1 1576s [00:52:56.391] SequentialFuture started (and completed) 1576s [00:52:56.391] - Launch lazy future ... done 1576s [00:52:56.391] run() for ‘SequentialFuture’ ... done 1576s [00:52:56.391] Created future: 1576s [00:52:56.391] SequentialFuture: 1576s [00:52:56.391] Label: ‘future_sapply-1’ 1576s [00:52:56.391] Expression: 1576s [00:52:56.391] { 1576s [00:52:56.391] do.call(function(...) { 1576s [00:52:56.391] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1576s [00:52:56.391] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1576s [00:52:56.391] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1576s [00:52:56.391] on.exit(options(oopts), add = TRUE) 1576s [00:52:56.391] } 1576s [00:52:56.391] { 1576s [00:52:56.391] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1576s [00:52:56.391] ...future.X_jj <- ...future.elements_ii[[jj]] 1576s [00:52:56.391] ...future.FUN(...future.X_jj, ...) 1576s [00:52:56.391] }) 1576s [00:52:56.391] } 1576s [00:52:56.391] }, args = future.call.arguments) 1576s [00:52:56.391] } 1576s [00:52:56.391] Lazy evaluation: FALSE 1576s [00:52:56.391] Asynchronous evaluation: FALSE 1576s [00:52:56.391] Local evaluation: TRUE 1576s [00:52:56.391] Environment: R_GlobalEnv 1576s [00:52:56.391] Capture standard output: TRUE 1576s [00:52:56.391] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1576s [00:52:56.391] Globals: 5 objects totaling 1.55 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1576s [00:52:56.391] Packages: 1576s [00:52:56.391] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1576s [00:52:56.391] Resolved: TRUE 1576s [00:52:56.391] Value: 840 bytes of class ‘list’ 1576s [00:52:56.391] Early signaling: FALSE 1576s [00:52:56.391] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1576s [00:52:56.391] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1576s [00:52:56.394] Chunk #1 of 1 ... DONE 1576s [00:52:56.394] Launching 1 futures (chunks) ... DONE 1576s [00:52:56.395] Resolving 1 futures (chunks) ... 1576s [00:52:56.395] resolve() on list ... 1576s [00:52:56.395] recursive: 0 1576s [00:52:56.395] length: 1 1576s [00:52:56.395] 1576s [00:52:56.396] resolved() for ‘SequentialFuture’ ... 1576s [00:52:56.396] - state: ‘finished’ 1576s [00:52:56.396] - run: TRUE 1576s [00:52:56.396] - result: ‘FutureResult’ 1576s [00:52:56.396] resolved() for ‘SequentialFuture’ ... done 1576s [00:52:56.396] Future #1 1576s [00:52:56.397] signalConditionsASAP(SequentialFuture, pos=1) ... 1576s [00:52:56.397] - nx: 1 1576s [00:52:56.397] - relay: TRUE 1576s [00:52:56.398] - stdout: TRUE 1576s [00:52:56.398] - signal: TRUE 1576s [00:52:56.398] - resignal: FALSE 1576s [00:52:56.398] - force: TRUE 1576s [00:52:56.398] - relayed: [n=1] FALSE 1576s [00:52:56.398] - queued futures: [n=1] FALSE 1576s [00:52:56.398] - until=1 1576s [00:52:56.399] - relaying element #1 1576s [00:52:56.399] - relayed: [n=1] TRUE 1576s [00:52:56.399] - queued futures: [n=1] TRUE 1576s [00:52:56.399] signalConditionsASAP(SequentialFuture, pos=1) ... done 1576s [00:52:56.399] length: 0 (resolved future 1) 1576s [00:52:56.400] Relaying remaining futures 1576s [00:52:56.400] signalConditionsASAP(NULL, pos=0) ... 1576s [00:52:56.400] - nx: 1 1576s [00:52:56.400] - relay: TRUE 1576s [00:52:56.400] - stdout: TRUE 1576s [00:52:56.401] - signal: TRUE 1576s [00:52:56.401] - resignal: FALSE 1576s [00:52:56.401] - force: TRUE 1576s [00:52:56.401] - relayed: [n=1] TRUE 1576s [00:52:56.401] - queued futures: [n=1] TRUE 1576s - flush all 1576s [00:52:56.401] - relayed: [n=1] TRUE 1576s [00:52:56.401] - queued futures: [n=1] TRUE 1576s [00:52:56.402] signalConditionsASAP(NULL, pos=0) ... done 1576s [00:52:56.402] resolve() on list ... DONE 1576s [00:52:56.402] - Number of value chunks collected: 1 1576s [00:52:56.402] Resolving 1 futures (chunks) ... DONE 1576s [00:52:56.402] Reducing values from 1 chunks ... 1576s [00:52:56.402] - Number of values collected after concatenation: 3 1576s [00:52:56.403] - Number of values expected: 3 1576s [00:52:56.403] Reducing values from 1 chunks ... DONE 1576s [00:52:56.403] future_lapply() ... DONE 1576s List of 2 1576s $ y0:List of 3 1576s ..$ : chr [1, 1] "a" 1576s ..$ : chr [1, 1] "b" 1576s ..$ : chr [1, 1] "c" 1576s $ y1:List of 3 1576s ..$ : chr [1, 1] "a" 1576s ..$ : chr [1, 1] "b" 1576s ..$ : chr [1, 1] "c" 1576s List of 2 1576s $ y0:List of 3 1576s ..$ : chr [1, 1] "a" 1576s ..$ : chr [1, 1] "b" 1576s ..$ : chr [1, 1] "c" 1576s $ y2:List of 3 1576s ..$ : chr [1, 1] "a" 1576s ..$ : chr [1, 1] "b" 1576s ..$ : chr [1, 1] "c" 1576s [00:52:56.414] future_lapply() ... 1576s [00:52:56.419] Number of chunks: 1 1576s [00:52:56.419] getGlobalsAndPackagesXApply() ... 1576s [00:52:56.419] - future.globals: TRUE 1576s [00:52:56.419] getGlobalsAndPackages() ... 1576s [00:52:56.419] Searching for globals... 1576s [00:52:56.421] - globals found: [1] ‘FUN’ 1576s [00:52:56.421] Searching for globals ... DONE 1576s [00:52:56.421] Resolving globals: FALSE 1576s [00:52:56.422] The total size of the 1 globals is 848 bytes (848 bytes) 1576s [00:52:56.423] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1576s [00:52:56.423] - globals: [1] ‘FUN’ 1576s [00:52:56.423] 1576s [00:52:56.423] getGlobalsAndPackages() ... DONE 1576s [00:52:56.424] - globals found/used: [n=1] ‘FUN’ 1576s [00:52:56.424] - needed namespaces: [n=0] 1576s [00:52:56.424] Finding globals ... DONE 1576s [00:52:56.424] - use_args: TRUE 1576s [00:52:56.424] - Getting '...' globals ... 1576s [00:52:56.425] resolve() on list ... 1576s [00:52:56.425] recursive: 0 1576s [00:52:56.425] length: 1 1576s [00:52:56.426] elements: ‘...’ 1576s [00:52:56.426] length: 0 (resolved future 1) 1576s [00:52:56.426] resolve() on list ... DONE 1576s [00:52:56.427] - '...' content: [n=0] 1576s [00:52:56.427] List of 1 1576s [00:52:56.427] $ ...: list() 1576s [00:52:56.427] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1576s [00:52:56.427] - attr(*, "where")=List of 1 1576s [00:52:56.427] ..$ ...: 1576s [00:52:56.427] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1576s [00:52:56.427] - attr(*, "resolved")= logi TRUE 1576s [00:52:56.427] - attr(*, "total_size")= num NA 1576s [00:52:56.430] - Getting '...' globals ... DONE 1576s [00:52:56.430] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1576s [00:52:56.431] List of 2 1576s [00:52:56.431] $ ...future.FUN:function (x) 1576s [00:52:56.431] $ ... : list() 1576s [00:52:56.431] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1576s [00:52:56.431] - attr(*, "where")=List of 2 1576s [00:52:56.431] ..$ ...future.FUN: 1576s [00:52:56.431] ..$ ... : 1576s [00:52:56.431] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1576s [00:52:56.431] - attr(*, "resolved")= logi FALSE 1576s [00:52:56.431] - attr(*, "total_size")= num 848 1576s [00:52:56.434] Packages to be attached in all futures: [n=0] 1576s [00:52:56.434] getGlobalsAndPackagesXApply() ... DONE 1576s [00:52:56.434] Number of futures (= number of chunks): 1 1576s [00:52:56.435] Launching 1 futures (chunks) ... 1576s [00:52:56.435] Chunk #1 of 1 ... 1576s [00:52:56.435] - Finding globals in 'X' for chunk #1 ... 1576s [00:52:56.435] getGlobalsAndPackages() ... 1576s [00:52:56.435] Searching for globals... 1576s [00:52:56.436] 1576s [00:52:56.436] Searching for globals ... DONE 1576s [00:52:56.436] - globals: [0] 1576s [00:52:56.436] getGlobalsAndPackages() ... DONE 1576s [00:52:56.436] + additional globals found: [n=0] 1576s [00:52:56.436] + additional namespaces needed: [n=0] 1576s [00:52:56.436] - Finding globals in 'X' for chunk #1 ... DONE 1576s [00:52:56.437] - seeds: 1576s [00:52:56.437] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1576s [00:52:56.437] getGlobalsAndPackages() ... 1576s [00:52:56.437] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1576s [00:52:56.437] Resolving globals: FALSE 1576s [00:52:56.437] Tweak future expression to call with '...' arguments ... 1576s [00:52:56.438] { 1576s [00:52:56.438] do.call(function(...) { 1576s [00:52:56.438] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1576s [00:52:56.438] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1576s [00:52:56.438] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1576s [00:52:56.438] on.exit(options(oopts), add = TRUE) 1576s [00:52:56.438] } 1576s [00:52:56.438] { 1576s [00:52:56.438] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1576s [00:52:56.438] ...future.X_jj <- ...future.elements_ii[[jj]] 1576s [00:52:56.438] ...future.FUN(...future.X_jj, ...) 1576s [00:52:56.438] }) 1576s [00:52:56.438] } 1576s [00:52:56.438] }, args = future.call.arguments) 1576s [00:52:56.438] } 1576s [00:52:56.438] Tweak future expression to call with '...' arguments ... DONE 1576s [00:52:56.439] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1576s [00:52:56.439] 1576s [00:52:56.439] getGlobalsAndPackages() ... DONE 1576s [00:52:56.440] run() for ‘Future’ ... 1576s [00:52:56.440] - state: ‘created’ 1576s [00:52:56.440] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1576s [00:52:56.444] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1576s [00:52:56.445] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1576s [00:52:56.445] - Field: ‘label’ 1576s [00:52:56.445] - Field: ‘local’ 1576s [00:52:56.446] - Field: ‘owner’ 1576s [00:52:56.446] - Field: ‘envir’ 1576s [00:52:56.446] - Field: ‘packages’ 1576s [00:52:56.446] - Field: ‘gc’ 1576s [00:52:56.446] - Field: ‘conditions’ 1576s [00:52:56.446] - Field: ‘expr’ 1576s [00:52:56.446] - Field: ‘uuid’ 1576s [00:52:56.447] - Field: ‘seed’ 1576s [00:52:56.447] - Field: ‘version’ 1576s [00:52:56.447] - Field: ‘result’ 1576s [00:52:56.447] - Field: ‘asynchronous’ 1576s [00:52:56.447] - Field: ‘calls’ 1576s [00:52:56.447] - Field: ‘globals’ 1576s [00:52:56.448] - Field: ‘stdout’ 1576s [00:52:56.448] - Field: ‘earlySignal’ 1576s [00:52:56.448] - Field: ‘lazy’ 1576s [00:52:56.448] - Field: ‘state’ 1576s [00:52:56.448] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1576s [00:52:56.448] - Launch lazy future ... 1576s [00:52:56.449] Packages needed by the future expression (n = 0): 1576s [00:52:56.449] Packages needed by future strategies (n = 0): 1576s [00:52:56.449] { 1576s [00:52:56.449] { 1576s [00:52:56.449] { 1576s [00:52:56.449] ...future.startTime <- base::Sys.time() 1576s [00:52:56.449] { 1576s [00:52:56.449] { 1576s [00:52:56.449] { 1576s [00:52:56.449] base::local({ 1576s [00:52:56.449] has_future <- base::requireNamespace("future", 1576s [00:52:56.449] quietly = TRUE) 1576s [00:52:56.449] if (has_future) { 1576s [00:52:56.449] ns <- base::getNamespace("future") 1576s [00:52:56.449] version <- ns[[".package"]][["version"]] 1576s [00:52:56.449] if (is.null(version)) 1576s [00:52:56.449] version <- utils::packageVersion("future") 1576s [00:52:56.449] } 1576s [00:52:56.449] else { 1576s [00:52:56.449] version <- NULL 1576s [00:52:56.449] } 1576s [00:52:56.449] if (!has_future || version < "1.8.0") { 1576s [00:52:56.449] info <- base::c(r_version = base::gsub("R version ", 1576s [00:52:56.449] "", base::R.version$version.string), 1576s [00:52:56.449] platform = base::sprintf("%s (%s-bit)", 1576s [00:52:56.449] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1576s [00:52:56.449] os = base::paste(base::Sys.info()[base::c("sysname", 1576s [00:52:56.449] "release", "version")], collapse = " "), 1576s [00:52:56.449] hostname = base::Sys.info()[["nodename"]]) 1576s [00:52:56.449] info <- base::sprintf("%s: %s", base::names(info), 1576s [00:52:56.449] info) 1576s [00:52:56.449] info <- base::paste(info, collapse = "; ") 1576s [00:52:56.449] if (!has_future) { 1576s [00:52:56.449] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1576s [00:52:56.449] info) 1576s [00:52:56.449] } 1576s [00:52:56.449] else { 1576s [00:52:56.449] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1576s [00:52:56.449] info, version) 1576s [00:52:56.449] } 1576s [00:52:56.449] base::stop(msg) 1576s [00:52:56.449] } 1576s [00:52:56.449] }) 1576s [00:52:56.449] } 1576s [00:52:56.449] options(future.plan = NULL) 1576s [00:52:56.449] Sys.unsetenv("R_FUTURE_PLAN") 1576s [00:52:56.449] future::plan("default", .cleanup = FALSE, .init = FALSE) 1576s [00:52:56.449] } 1576s [00:52:56.449] ...future.workdir <- getwd() 1576s [00:52:56.449] } 1576s [00:52:56.449] ...future.oldOptions <- base::as.list(base::.Options) 1576s [00:52:56.449] ...future.oldEnvVars <- base::Sys.getenv() 1576s [00:52:56.449] } 1576s [00:52:56.449] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1576s [00:52:56.449] future.globals.maxSize = NULL, future.globals.method = NULL, 1576s [00:52:56.449] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1576s [00:52:56.449] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1576s [00:52:56.449] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1576s [00:52:56.449] future.stdout.windows.reencode = NULL, width = 80L) 1576s [00:52:56.449] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1576s [00:52:56.449] base::names(...future.oldOptions)) 1576s [00:52:56.449] } 1576s [00:52:56.449] if (FALSE) { 1576s [00:52:56.449] } 1576s [00:52:56.449] else { 1576s [00:52:56.449] if (TRUE) { 1576s [00:52:56.449] ...future.stdout <- base::rawConnection(base::raw(0L), 1576s [00:52:56.449] open = "w") 1576s [00:52:56.449] } 1576s [00:52:56.449] else { 1576s [00:52:56.449] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1576s [00:52:56.449] windows = "NUL", "/dev/null"), open = "w") 1576s [00:52:56.449] } 1576s [00:52:56.449] base::sink(...future.stdout, type = "output", split = FALSE) 1576s [00:52:56.449] base::on.exit(if (!base::is.null(...future.stdout)) { 1576s [00:52:56.449] base::sink(type = "output", split = FALSE) 1576s [00:52:56.449] base::close(...future.stdout) 1576s [00:52:56.449] }, add = TRUE) 1576s [00:52:56.449] } 1576s [00:52:56.449] ...future.frame <- base::sys.nframe() 1576s [00:52:56.449] ...future.conditions <- base::list() 1576s [00:52:56.449] ...future.rng <- base::globalenv()$.Random.seed 1576s [00:52:56.449] if (FALSE) { 1576s [00:52:56.449] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1576s [00:52:56.449] "...future.value", "...future.globalenv.names", ".Random.seed") 1576s [00:52:56.449] } 1576s [00:52:56.449] ...future.result <- base::tryCatch({ 1576s [00:52:56.449] base::withCallingHandlers({ 1576s [00:52:56.449] ...future.value <- base::withVisible(base::local({ 1576s [00:52:56.449] do.call(function(...) { 1576s [00:52:56.449] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1576s [00:52:56.449] if (!identical(...future.globals.maxSize.org, 1576s [00:52:56.449] ...future.globals.maxSize)) { 1576s [00:52:56.449] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1576s [00:52:56.449] on.exit(options(oopts), add = TRUE) 1576s [00:52:56.449] } 1576s [00:52:56.449] { 1576s [00:52:56.449] lapply(seq_along(...future.elements_ii), 1576s [00:52:56.449] FUN = function(jj) { 1576s [00:52:56.449] ...future.X_jj <- ...future.elements_ii[[jj]] 1576s [00:52:56.449] ...future.FUN(...future.X_jj, ...) 1576s [00:52:56.449] }) 1576s [00:52:56.449] } 1576s [00:52:56.449] }, args = future.call.arguments) 1576s [00:52:56.449] })) 1576s [00:52:56.449] future::FutureResult(value = ...future.value$value, 1576s [00:52:56.449] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1576s [00:52:56.449] ...future.rng), globalenv = if (FALSE) 1576s [00:52:56.449] list(added = base::setdiff(base::names(base::.GlobalEnv), 1576s [00:52:56.449] ...future.globalenv.names)) 1576s [00:52:56.449] else NULL, started = ...future.startTime, version = "1.8") 1576s [00:52:56.449] }, condition = base::local({ 1576s [00:52:56.449] c <- base::c 1576s [00:52:56.449] inherits <- base::inherits 1576s [00:52:56.449] invokeRestart <- base::invokeRestart 1576s [00:52:56.449] length <- base::length 1576s [00:52:56.449] list <- base::list 1576s [00:52:56.449] seq.int <- base::seq.int 1576s [00:52:56.449] signalCondition <- base::signalCondition 1576s [00:52:56.449] sys.calls <- base::sys.calls 1576s [00:52:56.449] `[[` <- base::`[[` 1576s [00:52:56.449] `+` <- base::`+` 1576s [00:52:56.449] `<<-` <- base::`<<-` 1576s [00:52:56.449] sysCalls <- function(calls = sys.calls(), from = 1L) { 1576s [00:52:56.449] calls[seq.int(from = from + 12L, to = length(calls) - 1576s [00:52:56.449] 3L)] 1576s [00:52:56.449] } 1576s [00:52:56.449] function(cond) { 1576s [00:52:56.449] is_error <- inherits(cond, "error") 1576s [00:52:56.449] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1576s [00:52:56.449] NULL) 1576s [00:52:56.449] if (is_error) { 1576s [00:52:56.449] sessionInformation <- function() { 1576s [00:52:56.449] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1576s [00:52:56.449] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1576s [00:52:56.449] search = base::search(), system = base::Sys.info()) 1576s [00:52:56.449] } 1576s [00:52:56.449] ...future.conditions[[length(...future.conditions) + 1576s [00:52:56.449] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1576s [00:52:56.449] cond$call), session = sessionInformation(), 1576s [00:52:56.449] timestamp = base::Sys.time(), signaled = 0L) 1576s [00:52:56.449] signalCondition(cond) 1576s [00:52:56.449] } 1576s [00:52:56.449] else if (!ignore && TRUE && inherits(cond, c("condition", 1576s [00:52:56.449] "immediateCondition"))) { 1576s [00:52:56.449] signal <- TRUE && inherits(cond, "immediateCondition") 1576s [00:52:56.449] ...future.conditions[[length(...future.conditions) + 1576s [00:52:56.449] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1576s [00:52:56.449] if (TRUE && !signal) { 1576s [00:52:56.449] muffleCondition <- function (cond, pattern = "^muffle") 1576s [00:52:56.449] { 1576s [00:52:56.449] inherits <- base::inherits 1576s [00:52:56.449] invokeRestart <- base::invokeRestart 1576s [00:52:56.449] is.null <- base::is.null 1576s [00:52:56.449] muffled <- FALSE 1576s [00:52:56.449] if (inherits(cond, "message")) { 1576s [00:52:56.449] muffled <- grepl(pattern, "muffleMessage") 1576s [00:52:56.449] if (muffled) 1576s [00:52:56.449] invokeRestart("muffleMessage") 1576s [00:52:56.449] } 1576s [00:52:56.449] else if (inherits(cond, "warning")) { 1576s [00:52:56.449] muffled <- grepl(pattern, "muffleWarning") 1576s [00:52:56.449] if (muffled) 1576s [00:52:56.449] invokeRestart("muffleWarning") 1576s [00:52:56.449] } 1576s [00:52:56.449] else if (inherits(cond, "condition")) { 1576s [00:52:56.449] if (!is.null(pattern)) { 1576s [00:52:56.449] computeRestarts <- base::computeRestarts 1576s [00:52:56.449] grepl <- base::grepl 1576s [00:52:56.449] restarts <- computeRestarts(cond) 1576s [00:52:56.449] for (restart in restarts) { 1576s [00:52:56.449] name <- restart$name 1576s [00:52:56.449] if (is.null(name)) 1576s [00:52:56.449] next 1576s [00:52:56.449] if (!grepl(pattern, name)) 1576s [00:52:56.449] next 1576s [00:52:56.449] invokeRestart(restart) 1576s [00:52:56.449] muffled <- TRUE 1576s [00:52:56.449] break 1576s [00:52:56.449] } 1576s [00:52:56.449] } 1576s [00:52:56.449] } 1576s [00:52:56.449] invisible(muffled) 1576s [00:52:56.449] } 1576s [00:52:56.449] muffleCondition(cond, pattern = "^muffle") 1576s [00:52:56.449] } 1576s [00:52:56.449] } 1576s [00:52:56.449] else { 1576s [00:52:56.449] if (TRUE) { 1576s [00:52:56.449] muffleCondition <- function (cond, pattern = "^muffle") 1576s [00:52:56.449] { 1576s [00:52:56.449] inherits <- base::inherits 1576s [00:52:56.449] invokeRestart <- base::invokeRestart 1576s [00:52:56.449] is.null <- base::is.null 1576s [00:52:56.449] muffled <- FALSE 1576s [00:52:56.449] if (inherits(cond, "message")) { 1576s [00:52:56.449] muffled <- grepl(pattern, "muffleMessage") 1576s [00:52:56.449] if (muffled) 1576s [00:52:56.449] invokeRestart("muffleMessage") 1576s [00:52:56.449] } 1576s [00:52:56.449] else if (inherits(cond, "warning")) { 1576s [00:52:56.449] muffled <- grepl(pattern, "muffleWarning") 1576s [00:52:56.449] if (muffled) 1576s [00:52:56.449] invokeRestart("muffleWarning") 1576s [00:52:56.449] } 1576s [00:52:56.449] else if (inherits(cond, "condition")) { 1576s [00:52:56.449] if (!is.null(pattern)) { 1576s [00:52:56.449] computeRestarts <- base::computeRestarts 1576s [00:52:56.449] grepl <- base::grepl 1576s [00:52:56.449] restarts <- computeRestarts(cond) 1576s [00:52:56.449] for (restart in restarts) { 1576s [00:52:56.449] name <- restart$name 1576s [00:52:56.449] if (is.null(name)) 1576s [00:52:56.449] next 1576s [00:52:56.449] if (!grepl(pattern, name)) 1576s [00:52:56.449] next 1576s [00:52:56.449] invokeRestart(restart) 1576s [00:52:56.449] muffled <- TRUE 1576s [00:52:56.449] break 1576s [00:52:56.449] } 1576s [00:52:56.449] } 1576s [00:52:56.449] } 1576s [00:52:56.449] invisible(muffled) 1576s [00:52:56.449] } 1576s [00:52:56.449] muffleCondition(cond, pattern = "^muffle") 1576s [00:52:56.449] } 1576s [00:52:56.449] } 1576s [00:52:56.449] } 1576s [00:52:56.449] })) 1576s [00:52:56.449] }, error = function(ex) { 1576s [00:52:56.449] base::structure(base::list(value = NULL, visible = NULL, 1576s [00:52:56.449] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1576s [00:52:56.449] ...future.rng), started = ...future.startTime, 1576s [00:52:56.449] finished = Sys.time(), session_uuid = NA_character_, 1576s [00:52:56.449] version = "1.8"), class = "FutureResult") 1576s [00:52:56.449] }, finally = { 1576s [00:52:56.449] if (!identical(...future.workdir, getwd())) 1576s [00:52:56.449] setwd(...future.workdir) 1576s [00:52:56.449] { 1576s [00:52:56.449] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1576s [00:52:56.449] ...future.oldOptions$nwarnings <- NULL 1576s [00:52:56.449] } 1576s [00:52:56.449] base::options(...future.oldOptions) 1576s [00:52:56.449] if (.Platform$OS.type == "windows") { 1576s [00:52:56.449] old_names <- names(...future.oldEnvVars) 1576s [00:52:56.449] envs <- base::Sys.getenv() 1576s [00:52:56.449] names <- names(envs) 1576s [00:52:56.449] common <- intersect(names, old_names) 1576s [00:52:56.449] added <- setdiff(names, old_names) 1576s [00:52:56.449] removed <- setdiff(old_names, names) 1576s [00:52:56.449] changed <- common[...future.oldEnvVars[common] != 1576s [00:52:56.449] envs[common]] 1576s [00:52:56.449] NAMES <- toupper(changed) 1576s [00:52:56.449] args <- list() 1576s [00:52:56.449] for (kk in seq_along(NAMES)) { 1576s [00:52:56.449] name <- changed[[kk]] 1576s [00:52:56.449] NAME <- NAMES[[kk]] 1576s [00:52:56.449] if (name != NAME && is.element(NAME, old_names)) 1576s [00:52:56.449] next 1576s [00:52:56.449] args[[name]] <- ...future.oldEnvVars[[name]] 1576s [00:52:56.449] } 1576s [00:52:56.449] NAMES <- toupper(added) 1576s [00:52:56.449] for (kk in seq_along(NAMES)) { 1576s [00:52:56.449] name <- added[[kk]] 1576s [00:52:56.449] NAME <- NAMES[[kk]] 1576s [00:52:56.449] if (name != NAME && is.element(NAME, old_names)) 1576s [00:52:56.449] next 1576s [00:52:56.449] args[[name]] <- "" 1576s [00:52:56.449] } 1576s [00:52:56.449] NAMES <- toupper(removed) 1576s [00:52:56.449] for (kk in seq_along(NAMES)) { 1576s [00:52:56.449] name <- removed[[kk]] 1576s [00:52:56.449] NAME <- NAMES[[kk]] 1576s [00:52:56.449] if (name != NAME && is.element(NAME, old_names)) 1576s [00:52:56.449] next 1576s [00:52:56.449] args[[name]] <- ...future.oldEnvVars[[name]] 1576s [00:52:56.449] } 1576s [00:52:56.449] if (length(args) > 0) 1576s [00:52:56.449] base::do.call(base::Sys.setenv, args = args) 1576s [00:52:56.449] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1576s [00:52:56.449] } 1576s [00:52:56.449] else { 1576s [00:52:56.449] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1576s [00:52:56.449] } 1576s [00:52:56.449] { 1576s [00:52:56.449] if (base::length(...future.futureOptionsAdded) > 1576s [00:52:56.449] 0L) { 1576s [00:52:56.449] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1576s [00:52:56.449] base::names(opts) <- ...future.futureOptionsAdded 1576s [00:52:56.449] base::options(opts) 1576s [00:52:56.449] } 1576s [00:52:56.449] { 1576s [00:52:56.449] { 1576s [00:52:56.449] NULL 1576s [00:52:56.449] RNGkind("Mersenne-Twister") 1576s [00:52:56.449] base::rm(list = ".Random.seed", envir = base::globalenv(), 1576s [00:52:56.449] inherits = FALSE) 1576s [00:52:56.449] } 1576s [00:52:56.449] options(future.plan = NULL) 1576s [00:52:56.449] if (is.na(NA_character_)) 1576s [00:52:56.449] Sys.unsetenv("R_FUTURE_PLAN") 1576s [00:52:56.449] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1576s [00:52:56.449] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1576s [00:52:56.449] envir = parent.frame()) 1576s [00:52:56.449] { 1576s [00:52:56.449] default_workers <- missing(workers) 1576s [00:52:56.449] if (is.function(workers)) 1576s [00:52:56.449] workers <- workers() 1576s [00:52:56.449] workers <- structure(as.integer(workers), 1576s [00:52:56.449] class = class(workers)) 1576s [00:52:56.449] stop_if_not(is.finite(workers), workers >= 1576s [00:52:56.449] 1L) 1576s [00:52:56.449] if ((workers == 1L && !inherits(workers, 1576s [00:52:56.449] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1576s [00:52:56.449] if (default_workers) 1576s [00:52:56.449] supportsMulticore(warn = TRUE) 1576s [00:52:56.449] return(sequential(..., envir = envir)) 1576s [00:52:56.449] } 1576s [00:52:56.449] oopts <- options(mc.cores = workers) 1576s [00:52:56.449] on.exit(options(oopts)) 1576s [00:52:56.449] future <- MulticoreFuture(..., workers = workers, 1576s [00:52:56.449] envir = envir) 1576s [00:52:56.449] if (!future$lazy) 1576s [00:52:56.449] future <- run(future) 1576s [00:52:56.449] invisible(future) 1576s [00:52:56.449] }), .cleanup = FALSE, .init = FALSE) 1576s [00:52:56.449] } 1576s [00:52:56.449] } 1576s [00:52:56.449] } 1576s [00:52:56.449] }) 1576s [00:52:56.449] if (TRUE) { 1576s [00:52:56.449] base::sink(type = "output", split = FALSE) 1576s [00:52:56.449] if (TRUE) { 1576s [00:52:56.449] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1576s [00:52:56.449] } 1576s [00:52:56.449] else { 1576s [00:52:56.449] ...future.result["stdout"] <- base::list(NULL) 1576s [00:52:56.449] } 1576s [00:52:56.449] base::close(...future.stdout) 1576s [00:52:56.449] ...future.stdout <- NULL 1576s [00:52:56.449] } 1576s [00:52:56.449] ...future.result$conditions <- ...future.conditions 1576s [00:52:56.449] ...future.result$finished <- base::Sys.time() 1576s [00:52:56.449] ...future.result 1576s [00:52:56.449] } 1576s [00:52:56.454] assign_globals() ... 1576s [00:52:56.455] List of 5 1576s [00:52:56.455] $ ...future.FUN :function (x) 1576s [00:52:56.455] $ future.call.arguments : list() 1576s [00:52:56.455] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1576s [00:52:56.455] $ ...future.elements_ii :List of 3 1576s [00:52:56.455] ..$ : chr "a" 1576s [00:52:56.455] ..$ : chr "b" 1576s [00:52:56.455] ..$ : chr "c" 1576s [00:52:56.455] $ ...future.seeds_ii : NULL 1576s [00:52:56.455] $ ...future.globals.maxSize: NULL 1576s [00:52:56.455] - attr(*, "where")=List of 5 1576s [00:52:56.455] ..$ ...future.FUN : 1576s [00:52:56.455] ..$ future.call.arguments : 1576s [00:52:56.455] ..$ ...future.elements_ii : 1576s [00:52:56.455] ..$ ...future.seeds_ii : 1576s [00:52:56.455] ..$ ...future.globals.maxSize: 1576s [00:52:56.455] - attr(*, "resolved")= logi FALSE 1576s [00:52:56.455] - attr(*, "total_size")= num 848 1576s [00:52:56.455] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1576s [00:52:56.455] - attr(*, "already-done")= logi TRUE 1576s [00:52:56.462] - copied ‘...future.FUN’ to environment 1576s [00:52:56.462] - copied ‘future.call.arguments’ to environment 1576s [00:52:56.462] - copied ‘...future.elements_ii’ to environment 1576s [00:52:56.463] - copied ‘...future.seeds_ii’ to environment 1576s [00:52:56.463] - copied ‘...future.globals.maxSize’ to environment 1576s [00:52:56.463] assign_globals() ... done 1576s [00:52:56.463] plan(): Setting new future strategy stack: 1576s [00:52:56.464] List of future strategies: 1576s [00:52:56.464] 1. sequential: 1576s [00:52:56.464] - args: function (..., envir = parent.frame()) 1576s [00:52:56.464] - tweaked: FALSE 1576s [00:52:56.464] - call: NULL 1576s [00:52:56.464] plan(): nbrOfWorkers() = 1 1576s [00:52:56.465] plan(): Setting new future strategy stack: 1576s [00:52:56.466] List of future strategies: 1576s [00:52:56.466] 1. multicore: 1576s [00:52:56.466] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1576s [00:52:56.466] - tweaked: FALSE 1576s [00:52:56.466] - call: plan(strategy) 1576s [00:52:56.470] plan(): nbrOfWorkers() = 1 1576s [00:52:56.471] SequentialFuture started (and completed) 1576s [00:52:56.471] - Launch lazy future ... done 1576s [00:52:56.471] run() for ‘SequentialFuture’ ... done 1576s [00:52:56.471] Created future: 1576s [00:52:56.471] SequentialFuture: 1576s [00:52:56.471] Label: ‘future_sapply-1’ 1576s [00:52:56.471] Expression: 1576s [00:52:56.471] { 1576s [00:52:56.471] do.call(function(...) { 1576s [00:52:56.471] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1576s [00:52:56.471] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1576s [00:52:56.471] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1576s [00:52:56.471] on.exit(options(oopts), add = TRUE) 1576s [00:52:56.471] } 1576s [00:52:56.471] { 1576s [00:52:56.471] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1576s [00:52:56.471] ...future.X_jj <- ...future.elements_ii[[jj]] 1576s [00:52:56.471] ...future.FUN(...future.X_jj, ...) 1576s [00:52:56.471] }) 1576s [00:52:56.471] } 1576s [00:52:56.471] }, args = future.call.arguments) 1576s [00:52:56.471] } 1576s [00:52:56.471] Lazy evaluation: FALSE 1576s [00:52:56.471] Asynchronous evaluation: FALSE 1576s [00:52:56.471] Local evaluation: TRUE 1576s [00:52:56.471] Environment: R_GlobalEnv 1576s [00:52:56.471] Capture standard output: TRUE 1576s [00:52:56.471] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1576s [00:52:56.471] Globals: 5 objects totaling 1.16 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1576s [00:52:56.471] Packages: 1576s [00:52:56.471] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1576s [00:52:56.471] Resolved: TRUE 1576s [00:52:56.471] Value: 336 bytes of class ‘list’ 1576s [00:52:56.471] Early signaling: FALSE 1576s [00:52:56.471] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1576s [00:52:56.471] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1576s [00:52:56.473] Chunk #1 of 1 ... DONE 1576s [00:52:56.473] Launching 1 futures (chunks) ... DONE 1576s [00:52:56.473] Resolving 1 futures (chunks) ... 1576s [00:52:56.473] resolve() on list ... 1576s [00:52:56.474] recursive: 0 1576s [00:52:56.474] length: 1 1576s [00:52:56.474] 1576s [00:52:56.474] resolved() for ‘SequentialFuture’ ... 1576s [00:52:56.474] - state: ‘finished’ 1576s [00:52:56.474] - run: TRUE 1576s [00:52:56.475] - result: ‘FutureResult’ 1576s [00:52:56.475] resolved() for ‘SequentialFuture’ ... done 1576s [00:52:56.475] Future #1 1576s [00:52:56.475] signalConditionsASAP(SequentialFuture, pos=1) ... 1576s [00:52:56.475] - nx: 1 1576s [00:52:56.475] - relay: TRUE 1576s [00:52:56.475] - stdout: TRUE 1576s [00:52:56.476] - signal: TRUE 1576s [00:52:56.476] - resignal: FALSE 1576s [00:52:56.476] - force: TRUE 1576s [00:52:56.476] - relayed: [n=1] FALSE 1576s [00:52:56.476] - queued futures: [n=1] FALSE 1576s [00:52:56.476] - until=1 1576s [00:52:56.476] - relaying element #1 1576s [00:52:56.477] - relayed: [n=1] TRUE 1576s [00:52:56.477] - queued futures: [n=1] TRUE 1576s [00:52:56.477] signalConditionsASAP(SequentialFuture, pos=1) ... done 1576s [00:52:56.477] length: 0 (resolved future 1) 1576s [00:52:56.477] Relaying remaining futures 1576s [00:52:56.477] signalConditionsASAP(NULL, pos=0) ... 1576s [00:52:56.478] - nx: 1 1576s [00:52:56.478] - relay: TRUE 1576s [00:52:56.478] - stdout: TRUE 1576s [00:52:56.478] - signal: TRUE 1576s [00:52:56.478] - resignal: FALSE 1576s [00:52:56.478] - force: TRUE 1576s [00:52:56.478] - relayed: [n=1] TRUE 1576s [00:52:56.479] - queued futures: [n=1] TRUE 1576s - flush all 1576s [00:52:56.479] - relayed: [n=1] TRUE 1576s [00:52:56.479] - queued futures: [n=1] TRUE 1576s [00:52:56.479] signalConditionsASAP(NULL, pos=0) ... done 1576s [00:52:56.480] resolve() on list ... DONE 1576s [00:52:56.480] - Number of value chunks collected: 1 1576s [00:52:56.481] Resolving 1 futures (chunks) ... DONE 1576s [00:52:56.481] Reducing values from 1 chunks ... 1576s [00:52:56.481] - Number of values collected after concatenation: 3 1576s [00:52:56.481] - Number of values expected: 3 1576s [00:52:56.481] Reducing values from 1 chunks ... DONE 1576s [00:52:56.482] future_lapply() ... DONE 1576s List of 2 1576s $ y0: chr [1:3] "a" "b" "c" 1576s $ y1: chr [1:3] "a" "b" "c" 1576s [00:52:56.484] future_lapply() ... 1576s [00:52:56.488] Number of chunks: 1 1576s [00:52:56.488] getGlobalsAndPackagesXApply() ... 1576s [00:52:56.489] - future.globals: TRUE 1576s [00:52:56.489] getGlobalsAndPackages() ... 1576s [00:52:56.489] Searching for globals... 1576s [00:52:56.500] - globals found: [2] ‘FUN’, ‘UseMethod’ 1576s [00:52:56.500] Searching for globals ... DONE 1576s [00:52:56.501] Resolving globals: FALSE 1576s [00:52:56.501] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1576s [00:52:56.502] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1576s [00:52:56.502] - globals: [1] ‘FUN’ 1576s [00:52:56.503] 1576s [00:52:56.503] getGlobalsAndPackages() ... DONE 1576s [00:52:56.503] - globals found/used: [n=1] ‘FUN’ 1576s [00:52:56.503] - needed namespaces: [n=0] 1576s [00:52:56.504] Finding globals ... DONE 1576s [00:52:56.504] - use_args: TRUE 1576s [00:52:56.504] - Getting '...' globals ... 1576s [00:52:56.505] resolve() on list ... 1576s [00:52:56.505] recursive: 0 1576s [00:52:56.505] length: 1 1576s [00:52:56.505] elements: ‘...’ 1576s [00:52:56.506] length: 0 (resolved future 1) 1576s [00:52:56.506] resolve() on list ... DONE 1576s [00:52:56.506] - '...' content: [n=0] 1576s [00:52:56.506] List of 1 1576s [00:52:56.506] $ ...: list() 1576s [00:52:56.506] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1576s [00:52:56.506] - attr(*, "where")=List of 1 1576s [00:52:56.506] ..$ ...: 1576s [00:52:56.506] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1576s [00:52:56.506] - attr(*, "resolved")= logi TRUE 1576s [00:52:56.506] - attr(*, "total_size")= num NA 1576s [00:52:56.510] - Getting '...' globals ... DONE 1576s [00:52:56.510] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1576s [00:52:56.511] List of 2 1576s [00:52:56.511] $ ...future.FUN:function (x, ...) 1576s [00:52:56.511] $ ... : list() 1576s [00:52:56.511] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1576s [00:52:56.511] - attr(*, "where")=List of 2 1576s [00:52:56.511] ..$ ...future.FUN: 1576s [00:52:56.511] ..$ ... : 1576s [00:52:56.511] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1576s [00:52:56.511] - attr(*, "resolved")= logi FALSE 1576s [00:52:56.511] - attr(*, "total_size")= num 1248 1576s [00:52:56.514] Packages to be attached in all futures: [n=0] 1576s [00:52:56.514] getGlobalsAndPackagesXApply() ... DONE 1576s [00:52:56.515] Number of futures (= number of chunks): 1 1576s [00:52:56.515] Launching 1 futures (chunks) ... 1576s [00:52:56.515] Chunk #1 of 1 ... 1576s [00:52:56.516] - Finding globals in 'X' for chunk #1 ... 1576s [00:52:56.516] getGlobalsAndPackages() ... 1576s [00:52:56.516] Searching for globals... 1576s [00:52:56.516] 1576s [00:52:56.517] Searching for globals ... DONE 1576s [00:52:56.517] - globals: [0] 1576s [00:52:56.517] getGlobalsAndPackages() ... DONE 1576s [00:52:56.517] + additional globals found: [n=0] 1576s [00:52:56.517] + additional namespaces needed: [n=0] 1576s [00:52:56.518] - Finding globals in 'X' for chunk #1 ... DONE 1576s [00:52:56.518] - seeds: 1576s [00:52:56.518] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1576s [00:52:56.518] getGlobalsAndPackages() ... 1576s [00:52:56.518] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1576s [00:52:56.519] Resolving globals: FALSE 1576s [00:52:56.519] Tweak future expression to call with '...' arguments ... 1576s [00:52:56.519] { 1576s [00:52:56.519] do.call(function(...) { 1576s [00:52:56.519] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1576s [00:52:56.519] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1576s [00:52:56.519] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1576s [00:52:56.519] on.exit(options(oopts), add = TRUE) 1576s [00:52:56.519] } 1576s [00:52:56.519] { 1576s [00:52:56.519] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1576s [00:52:56.519] ...future.X_jj <- ...future.elements_ii[[jj]] 1576s [00:52:56.519] ...future.FUN(...future.X_jj, ...) 1576s [00:52:56.519] }) 1576s [00:52:56.519] } 1576s [00:52:56.519] }, args = future.call.arguments) 1576s [00:52:56.519] } 1576s [00:52:56.520] Tweak future expression to call with '...' arguments ... DONE 1576s [00:52:56.520] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1576s [00:52:56.520] 1576s [00:52:56.520] getGlobalsAndPackages() ... DONE 1576s [00:52:56.521] run() for ‘Future’ ... 1576s [00:52:56.521] - state: ‘created’ 1576s [00:52:56.521] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1576s [00:52:56.526] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1576s [00:52:56.526] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1576s [00:52:56.526] - Field: ‘label’ 1576s [00:52:56.527] - Field: ‘local’ 1576s [00:52:56.527] - Field: ‘owner’ 1576s [00:52:56.527] - Field: ‘envir’ 1576s [00:52:56.527] - Field: ‘packages’ 1576s [00:52:56.527] - Field: ‘gc’ 1576s [00:52:56.527] - Field: ‘conditions’ 1576s [00:52:56.528] - Field: ‘expr’ 1576s [00:52:56.528] - Field: ‘uuid’ 1576s [00:52:56.528] - Field: ‘seed’ 1576s [00:52:56.528] - Field: ‘version’ 1576s [00:52:56.528] - Field: ‘result’ 1576s [00:52:56.529] - Field: ‘asynchronous’ 1576s [00:52:56.529] - Field: ‘calls’ 1576s [00:52:56.529] - Field: ‘globals’ 1576s [00:52:56.529] - Field: ‘stdout’ 1576s [00:52:56.530] - Field: ‘earlySignal’ 1576s [00:52:56.530] - Field: ‘lazy’ 1576s [00:52:56.530] - Field: ‘state’ 1576s [00:52:56.530] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1576s [00:52:56.531] - Launch lazy future ... 1576s [00:52:56.531] Packages needed by the future expression (n = 0): 1576s [00:52:56.531] Packages needed by future strategies (n = 0): 1576s [00:52:56.532] { 1576s [00:52:56.532] { 1576s [00:52:56.532] { 1576s [00:52:56.532] ...future.startTime <- base::Sys.time() 1576s [00:52:56.532] { 1576s [00:52:56.532] { 1576s [00:52:56.532] { 1576s [00:52:56.532] base::local({ 1576s [00:52:56.532] has_future <- base::requireNamespace("future", 1576s [00:52:56.532] quietly = TRUE) 1576s [00:52:56.532] if (has_future) { 1576s [00:52:56.532] ns <- base::getNamespace("future") 1576s [00:52:56.532] version <- ns[[".package"]][["version"]] 1576s [00:52:56.532] if (is.null(version)) 1576s [00:52:56.532] version <- utils::packageVersion("future") 1576s [00:52:56.532] } 1576s [00:52:56.532] else { 1576s [00:52:56.532] version <- NULL 1576s [00:52:56.532] } 1576s [00:52:56.532] if (!has_future || version < "1.8.0") { 1576s [00:52:56.532] info <- base::c(r_version = base::gsub("R version ", 1576s [00:52:56.532] "", base::R.version$version.string), 1576s [00:52:56.532] platform = base::sprintf("%s (%s-bit)", 1576s [00:52:56.532] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1576s [00:52:56.532] os = base::paste(base::Sys.info()[base::c("sysname", 1576s [00:52:56.532] "release", "version")], collapse = " "), 1576s [00:52:56.532] hostname = base::Sys.info()[["nodename"]]) 1576s [00:52:56.532] info <- base::sprintf("%s: %s", base::names(info), 1576s [00:52:56.532] info) 1576s [00:52:56.532] info <- base::paste(info, collapse = "; ") 1576s [00:52:56.532] if (!has_future) { 1576s [00:52:56.532] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1576s [00:52:56.532] info) 1576s [00:52:56.532] } 1576s [00:52:56.532] else { 1576s [00:52:56.532] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1576s [00:52:56.532] info, version) 1576s [00:52:56.532] } 1576s [00:52:56.532] base::stop(msg) 1576s [00:52:56.532] } 1576s [00:52:56.532] }) 1576s [00:52:56.532] } 1576s [00:52:56.532] options(future.plan = NULL) 1576s [00:52:56.532] Sys.unsetenv("R_FUTURE_PLAN") 1576s [00:52:56.532] future::plan("default", .cleanup = FALSE, .init = FALSE) 1576s [00:52:56.532] } 1576s [00:52:56.532] ...future.workdir <- getwd() 1576s [00:52:56.532] } 1576s [00:52:56.532] ...future.oldOptions <- base::as.list(base::.Options) 1576s [00:52:56.532] ...future.oldEnvVars <- base::Sys.getenv() 1576s [00:52:56.532] } 1576s [00:52:56.532] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1576s [00:52:56.532] future.globals.maxSize = NULL, future.globals.method = NULL, 1576s [00:52:56.532] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1576s [00:52:56.532] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1576s [00:52:56.532] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1576s [00:52:56.532] future.stdout.windows.reencode = NULL, width = 80L) 1576s [00:52:56.532] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1576s [00:52:56.532] base::names(...future.oldOptions)) 1576s [00:52:56.532] } 1576s [00:52:56.532] if (FALSE) { 1576s [00:52:56.532] } 1576s [00:52:56.532] else { 1576s [00:52:56.532] if (TRUE) { 1576s [00:52:56.532] ...future.stdout <- base::rawConnection(base::raw(0L), 1576s [00:52:56.532] open = "w") 1576s [00:52:56.532] } 1576s [00:52:56.532] else { 1576s [00:52:56.532] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1576s [00:52:56.532] windows = "NUL", "/dev/null"), open = "w") 1576s [00:52:56.532] } 1576s [00:52:56.532] base::sink(...future.stdout, type = "output", split = FALSE) 1576s [00:52:56.532] base::on.exit(if (!base::is.null(...future.stdout)) { 1576s [00:52:56.532] base::sink(type = "output", split = FALSE) 1576s [00:52:56.532] base::close(...future.stdout) 1576s [00:52:56.532] }, add = TRUE) 1576s [00:52:56.532] } 1576s [00:52:56.532] ...future.frame <- base::sys.nframe() 1576s [00:52:56.532] ...future.conditions <- base::list() 1576s [00:52:56.532] ...future.rng <- base::globalenv()$.Random.seed 1576s [00:52:56.532] if (FALSE) { 1576s [00:52:56.532] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1576s [00:52:56.532] "...future.value", "...future.globalenv.names", ".Random.seed") 1576s [00:52:56.532] } 1576s [00:52:56.532] ...future.result <- base::tryCatch({ 1576s [00:52:56.532] base::withCallingHandlers({ 1576s [00:52:56.532] ...future.value <- base::withVisible(base::local({ 1576s [00:52:56.532] do.call(function(...) { 1576s [00:52:56.532] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1576s [00:52:56.532] if (!identical(...future.globals.maxSize.org, 1576s [00:52:56.532] ...future.globals.maxSize)) { 1576s [00:52:56.532] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1576s [00:52:56.532] on.exit(options(oopts), add = TRUE) 1576s [00:52:56.532] } 1576s [00:52:56.532] { 1576s [00:52:56.532] lapply(seq_along(...future.elements_ii), 1576s [00:52:56.532] FUN = function(jj) { 1576s [00:52:56.532] ...future.X_jj <- ...future.elements_ii[[jj]] 1576s [00:52:56.532] ...future.FUN(...future.X_jj, ...) 1576s [00:52:56.532] }) 1576s [00:52:56.532] } 1576s [00:52:56.532] }, args = future.call.arguments) 1576s [00:52:56.532] })) 1576s [00:52:56.532] future::FutureResult(value = ...future.value$value, 1576s [00:52:56.532] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1576s [00:52:56.532] ...future.rng), globalenv = if (FALSE) 1576s [00:52:56.532] list(added = base::setdiff(base::names(base::.GlobalEnv), 1576s [00:52:56.532] ...future.globalenv.names)) 1576s [00:52:56.532] else NULL, started = ...future.startTime, version = "1.8") 1576s [00:52:56.532] }, condition = base::local({ 1576s [00:52:56.532] c <- base::c 1576s [00:52:56.532] inherits <- base::inherits 1576s [00:52:56.532] invokeRestart <- base::invokeRestart 1576s [00:52:56.532] length <- base::length 1576s [00:52:56.532] list <- base::list 1576s [00:52:56.532] seq.int <- base::seq.int 1576s [00:52:56.532] signalCondition <- base::signalCondition 1576s [00:52:56.532] sys.calls <- base::sys.calls 1576s [00:52:56.532] `[[` <- base::`[[` 1576s [00:52:56.532] `+` <- base::`+` 1576s [00:52:56.532] `<<-` <- base::`<<-` 1576s [00:52:56.532] sysCalls <- function(calls = sys.calls(), from = 1L) { 1576s [00:52:56.532] calls[seq.int(from = from + 12L, to = length(calls) - 1576s [00:52:56.532] 3L)] 1576s [00:52:56.532] } 1576s [00:52:56.532] function(cond) { 1576s [00:52:56.532] is_error <- inherits(cond, "error") 1576s [00:52:56.532] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1576s [00:52:56.532] NULL) 1576s [00:52:56.532] if (is_error) { 1576s [00:52:56.532] sessionInformation <- function() { 1576s [00:52:56.532] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1576s [00:52:56.532] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1576s [00:52:56.532] search = base::search(), system = base::Sys.info()) 1576s [00:52:56.532] } 1576s [00:52:56.532] ...future.conditions[[length(...future.conditions) + 1576s [00:52:56.532] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1576s [00:52:56.532] cond$call), session = sessionInformation(), 1576s [00:52:56.532] timestamp = base::Sys.time(), signaled = 0L) 1576s [00:52:56.532] signalCondition(cond) 1576s [00:52:56.532] } 1576s [00:52:56.532] else if (!ignore && TRUE && inherits(cond, c("condition", 1576s [00:52:56.532] "immediateCondition"))) { 1576s [00:52:56.532] signal <- TRUE && inherits(cond, "immediateCondition") 1576s [00:52:56.532] ...future.conditions[[length(...future.conditions) + 1576s [00:52:56.532] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1576s [00:52:56.532] if (TRUE && !signal) { 1576s [00:52:56.532] muffleCondition <- function (cond, pattern = "^muffle") 1576s [00:52:56.532] { 1576s [00:52:56.532] inherits <- base::inherits 1576s [00:52:56.532] invokeRestart <- base::invokeRestart 1576s [00:52:56.532] is.null <- base::is.null 1576s [00:52:56.532] muffled <- FALSE 1576s [00:52:56.532] if (inherits(cond, "message")) { 1576s [00:52:56.532] muffled <- grepl(pattern, "muffleMessage") 1576s [00:52:56.532] if (muffled) 1576s [00:52:56.532] invokeRestart("muffleMessage") 1576s [00:52:56.532] } 1576s [00:52:56.532] else if (inherits(cond, "warning")) { 1576s [00:52:56.532] muffled <- grepl(pattern, "muffleWarning") 1576s [00:52:56.532] if (muffled) 1576s [00:52:56.532] invokeRestart("muffleWarning") 1576s [00:52:56.532] } 1576s [00:52:56.532] else if (inherits(cond, "condition")) { 1576s [00:52:56.532] if (!is.null(pattern)) { 1576s [00:52:56.532] computeRestarts <- base::computeRestarts 1576s [00:52:56.532] grepl <- base::grepl 1576s [00:52:56.532] restarts <- computeRestarts(cond) 1576s [00:52:56.532] for (restart in restarts) { 1576s [00:52:56.532] name <- restart$name 1576s [00:52:56.532] if (is.null(name)) 1576s [00:52:56.532] next 1576s [00:52:56.532] if (!grepl(pattern, name)) 1576s [00:52:56.532] next 1576s [00:52:56.532] invokeRestart(restart) 1576s [00:52:56.532] muffled <- TRUE 1576s [00:52:56.532] break 1576s [00:52:56.532] } 1576s [00:52:56.532] } 1576s [00:52:56.532] } 1576s [00:52:56.532] invisible(muffled) 1576s [00:52:56.532] } 1576s [00:52:56.532] muffleCondition(cond, pattern = "^muffle") 1576s [00:52:56.532] } 1576s [00:52:56.532] } 1576s [00:52:56.532] else { 1576s [00:52:56.532] if (TRUE) { 1576s [00:52:56.532] muffleCondition <- function (cond, pattern = "^muffle") 1576s [00:52:56.532] { 1576s [00:52:56.532] inherits <- base::inherits 1576s [00:52:56.532] invokeRestart <- base::invokeRestart 1576s [00:52:56.532] is.null <- base::is.null 1576s [00:52:56.532] muffled <- FALSE 1576s [00:52:56.532] if (inherits(cond, "message")) { 1576s [00:52:56.532] muffled <- grepl(pattern, "muffleMessage") 1576s [00:52:56.532] if (muffled) 1576s [00:52:56.532] invokeRestart("muffleMessage") 1576s [00:52:56.532] } 1576s [00:52:56.532] else if (inherits(cond, "warning")) { 1576s [00:52:56.532] muffled <- grepl(pattern, "muffleWarning") 1576s [00:52:56.532] if (muffled) 1576s [00:52:56.532] invokeRestart("muffleWarning") 1576s [00:52:56.532] } 1576s [00:52:56.532] else if (inherits(cond, "condition")) { 1576s [00:52:56.532] if (!is.null(pattern)) { 1576s [00:52:56.532] computeRestarts <- base::computeRestarts 1576s [00:52:56.532] grepl <- base::grepl 1576s [00:52:56.532] restarts <- computeRestarts(cond) 1576s [00:52:56.532] for (restart in restarts) { 1576s [00:52:56.532] name <- restart$name 1576s [00:52:56.532] if (is.null(name)) 1576s [00:52:56.532] next 1576s [00:52:56.532] if (!grepl(pattern, name)) 1576s [00:52:56.532] next 1576s [00:52:56.532] invokeRestart(restart) 1576s [00:52:56.532] muffled <- TRUE 1576s [00:52:56.532] break 1576s [00:52:56.532] } 1576s [00:52:56.532] } 1576s [00:52:56.532] } 1576s [00:52:56.532] invisible(muffled) 1576s [00:52:56.532] } 1576s [00:52:56.532] muffleCondition(cond, pattern = "^muffle") 1576s [00:52:56.532] } 1576s [00:52:56.532] } 1576s [00:52:56.532] } 1576s [00:52:56.532] })) 1576s [00:52:56.532] }, error = function(ex) { 1576s [00:52:56.532] base::structure(base::list(value = NULL, visible = NULL, 1576s [00:52:56.532] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1576s [00:52:56.532] ...future.rng), started = ...future.startTime, 1576s [00:52:56.532] finished = Sys.time(), session_uuid = NA_character_, 1576s [00:52:56.532] version = "1.8"), class = "FutureResult") 1576s [00:52:56.532] }, finally = { 1576s [00:52:56.532] if (!identical(...future.workdir, getwd())) 1576s [00:52:56.532] setwd(...future.workdir) 1576s [00:52:56.532] { 1576s [00:52:56.532] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1576s [00:52:56.532] ...future.oldOptions$nwarnings <- NULL 1576s [00:52:56.532] } 1576s [00:52:56.532] base::options(...future.oldOptions) 1576s [00:52:56.532] if (.Platform$OS.type == "windows") { 1576s [00:52:56.532] old_names <- names(...future.oldEnvVars) 1576s [00:52:56.532] envs <- base::Sys.getenv() 1576s [00:52:56.532] names <- names(envs) 1576s [00:52:56.532] common <- intersect(names, old_names) 1576s [00:52:56.532] added <- setdiff(names, old_names) 1576s [00:52:56.532] removed <- setdiff(old_names, names) 1576s [00:52:56.532] changed <- common[...future.oldEnvVars[common] != 1576s [00:52:56.532] envs[common]] 1576s [00:52:56.532] NAMES <- toupper(changed) 1576s [00:52:56.532] args <- list() 1576s [00:52:56.532] for (kk in seq_along(NAMES)) { 1576s [00:52:56.532] name <- changed[[kk]] 1576s [00:52:56.532] NAME <- NAMES[[kk]] 1576s [00:52:56.532] if (name != NAME && is.element(NAME, old_names)) 1576s [00:52:56.532] next 1576s [00:52:56.532] args[[name]] <- ...future.oldEnvVars[[name]] 1576s [00:52:56.532] } 1576s [00:52:56.532] NAMES <- toupper(added) 1576s [00:52:56.532] for (kk in seq_along(NAMES)) { 1576s [00:52:56.532] name <- added[[kk]] 1576s [00:52:56.532] NAME <- NAMES[[kk]] 1576s [00:52:56.532] if (name != NAME && is.element(NAME, old_names)) 1576s [00:52:56.532] next 1576s [00:52:56.532] args[[name]] <- "" 1576s [00:52:56.532] } 1576s [00:52:56.532] NAMES <- toupper(removed) 1576s [00:52:56.532] for (kk in seq_along(NAMES)) { 1576s [00:52:56.532] name <- removed[[kk]] 1576s [00:52:56.532] NAME <- NAMES[[kk]] 1576s [00:52:56.532] if (name != NAME && is.element(NAME, old_names)) 1576s [00:52:56.532] next 1576s [00:52:56.532] args[[name]] <- ...future.oldEnvVars[[name]] 1576s [00:52:56.532] } 1576s [00:52:56.532] if (length(args) > 0) 1576s [00:52:56.532] base::do.call(base::Sys.setenv, args = args) 1576s [00:52:56.532] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1576s [00:52:56.532] } 1576s [00:52:56.532] else { 1576s [00:52:56.532] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1576s [00:52:56.532] } 1576s [00:52:56.532] { 1576s [00:52:56.532] if (base::length(...future.futureOptionsAdded) > 1576s [00:52:56.532] 0L) { 1576s [00:52:56.532] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1576s [00:52:56.532] base::names(opts) <- ...future.futureOptionsAdded 1576s [00:52:56.532] base::options(opts) 1576s [00:52:56.532] } 1576s [00:52:56.532] { 1576s [00:52:56.532] { 1576s [00:52:56.532] NULL 1576s [00:52:56.532] RNGkind("Mersenne-Twister") 1576s [00:52:56.532] base::rm(list = ".Random.seed", envir = base::globalenv(), 1576s [00:52:56.532] inherits = FALSE) 1576s [00:52:56.532] } 1576s [00:52:56.532] options(future.plan = NULL) 1576s [00:52:56.532] if (is.na(NA_character_)) 1576s [00:52:56.532] Sys.unsetenv("R_FUTURE_PLAN") 1576s [00:52:56.532] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1576s [00:52:56.532] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1576s [00:52:56.532] envir = parent.frame()) 1576s [00:52:56.532] { 1576s [00:52:56.532] default_workers <- missing(workers) 1576s [00:52:56.532] if (is.function(workers)) 1576s [00:52:56.532] workers <- workers() 1576s [00:52:56.532] workers <- structure(as.integer(workers), 1576s [00:52:56.532] class = class(workers)) 1576s [00:52:56.532] stop_if_not(is.finite(workers), workers >= 1576s [00:52:56.532] 1L) 1576s [00:52:56.532] if ((workers == 1L && !inherits(workers, 1576s [00:52:56.532] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1576s [00:52:56.532] if (default_workers) 1576s [00:52:56.532] supportsMulticore(warn = TRUE) 1576s [00:52:56.532] return(sequential(..., envir = envir)) 1576s [00:52:56.532] } 1576s [00:52:56.532] oopts <- options(mc.cores = workers) 1576s [00:52:56.532] on.exit(options(oopts)) 1576s [00:52:56.532] future <- MulticoreFuture(..., workers = workers, 1576s [00:52:56.532] envir = envir) 1576s [00:52:56.532] if (!future$lazy) 1576s [00:52:56.532] future <- run(future) 1576s [00:52:56.532] invisible(future) 1576s [00:52:56.532] }), .cleanup = FALSE, .init = FALSE) 1576s [00:52:56.532] } 1576s [00:52:56.532] } 1576s [00:52:56.532] } 1576s [00:52:56.532] }) 1576s [00:52:56.532] if (TRUE) { 1576s [00:52:56.532] base::sink(type = "output", split = FALSE) 1576s [00:52:56.532] if (TRUE) { 1576s [00:52:56.532] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1576s [00:52:56.532] } 1576s [00:52:56.532] else { 1576s [00:52:56.532] ...future.result["stdout"] <- base::list(NULL) 1576s [00:52:56.532] } 1576s [00:52:56.532] base::close(...future.stdout) 1576s [00:52:56.532] ...future.stdout <- NULL 1576s [00:52:56.532] } 1576s [00:52:56.532] ...future.result$conditions <- ...future.conditions 1576s [00:52:56.532] ...future.result$finished <- base::Sys.time() 1576s [00:52:56.532] ...future.result 1576s [00:52:56.532] } 1576s [00:52:56.537] assign_globals() ... 1576s [00:52:56.537] List of 5 1576s [00:52:56.537] $ ...future.FUN :function (x, ...) 1576s [00:52:56.537] $ future.call.arguments : list() 1576s [00:52:56.537] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1576s [00:52:56.537] $ ...future.elements_ii :List of 3 1576s [00:52:56.537] ..$ : chr "a" 1576s [00:52:56.537] ..$ : chr "b" 1576s [00:52:56.537] ..$ : chr "c" 1576s [00:52:56.537] $ ...future.seeds_ii : NULL 1576s [00:52:56.537] $ ...future.globals.maxSize: NULL 1576s [00:52:56.537] - attr(*, "where")=List of 5 1576s [00:52:56.537] ..$ ...future.FUN : 1576s [00:52:56.537] ..$ future.call.arguments : 1576s [00:52:56.537] ..$ ...future.elements_ii : 1576s [00:52:56.537] ..$ ...future.seeds_ii : 1576s [00:52:56.537] ..$ ...future.globals.maxSize: 1576s [00:52:56.537] - attr(*, "resolved")= logi FALSE 1576s [00:52:56.537] - attr(*, "total_size")= num 1248 1576s [00:52:56.537] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1576s [00:52:56.537] - attr(*, "already-done")= logi TRUE 1576s [00:52:56.544] - copied ‘...future.FUN’ to environment 1576s [00:52:56.544] - copied ‘future.call.arguments’ to environment 1576s [00:52:56.545] - copied ‘...future.elements_ii’ to environment 1576s [00:52:56.545] - copied ‘...future.seeds_ii’ to environment 1576s [00:52:56.545] - copied ‘...future.globals.maxSize’ to environment 1576s [00:52:56.545] assign_globals() ... done 1576s [00:52:56.546] plan(): Setting new future strategy stack: 1576s [00:52:56.546] List of future strategies: 1576s [00:52:56.546] 1. sequential: 1576s [00:52:56.546] - args: function (..., envir = parent.frame()) 1576s [00:52:56.546] - tweaked: FALSE 1576s [00:52:56.546] - call: NULL 1576s [00:52:56.546] plan(): nbrOfWorkers() = 1 1576s [00:52:56.548] plan(): Setting new future strategy stack: 1576s [00:52:56.548] List of future strategies: 1576s [00:52:56.548] 1. multicore: 1576s [00:52:56.548] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1576s [00:52:56.548] - tweaked: FALSE 1576s [00:52:56.548] - call: plan(strategy) 1576s [00:52:56.552] plan(): nbrOfWorkers() = 1 1576s [00:52:56.553] SequentialFuture started (and completed) 1576s [00:52:56.553] - Launch lazy future ... done 1576s [00:52:56.553] run() for ‘SequentialFuture’ ... done 1576s [00:52:56.553] Created future: 1576s [00:52:56.554] SequentialFuture: 1576s [00:52:56.554] Label: ‘future_sapply-1’ 1576s [00:52:56.554] Expression: 1576s [00:52:56.554] { 1576s [00:52:56.554] do.call(function(...) { 1576s [00:52:56.554] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1576s [00:52:56.554] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1576s [00:52:56.554] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1576s [00:52:56.554] on.exit(options(oopts), add = TRUE) 1576s [00:52:56.554] } 1576s [00:52:56.554] { 1576s [00:52:56.554] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1576s [00:52:56.554] ...future.X_jj <- ...future.elements_ii[[jj]] 1576s [00:52:56.554] ...future.FUN(...future.X_jj, ...) 1576s [00:52:56.554] }) 1576s [00:52:56.554] } 1576s [00:52:56.554] }, args = future.call.arguments) 1576s [00:52:56.554] } 1576s [00:52:56.554] Lazy evaluation: FALSE 1576s [00:52:56.554] Asynchronous evaluation: FALSE 1576s [00:52:56.554] Local evaluation: TRUE 1576s [00:52:56.554] Environment: R_GlobalEnv 1576s [00:52:56.554] Capture standard output: TRUE 1576s [00:52:56.554] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1576s [00:52:56.554] Globals: 5 objects totaling 1.55 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1576s [00:52:56.554] Packages: 1576s [00:52:56.554] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1576s [00:52:56.554] Resolved: TRUE 1576s [00:52:56.554] Value: 840 bytes of class ‘list’ 1576s [00:52:56.554] Early signaling: FALSE 1576s [00:52:56.554] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1576s [00:52:56.554] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1576s [00:52:56.555] Chunk #1 of 1 ... DONE 1576s [00:52:56.556] Launching 1 futures (chunks) ... DONE 1576s [00:52:56.556] Resolving 1 futures (chunks) ... 1576s [00:52:56.556] resolve() on list ... 1576s [00:52:56.556] recursive: 0 1576s [00:52:56.556] length: 1 1576s [00:52:56.556] 1576s [00:52:56.557] resolved() for ‘SequentialFuture’ ... 1576s [00:52:56.557] - state: ‘finished’ 1576s [00:52:56.557] - run: TRUE 1576s [00:52:56.557] - result: ‘FutureResult’ 1576s [00:52:56.557] resolved() for ‘SequentialFuture’ ... done 1576s [00:52:56.557] Future #1 1576s [00:52:56.558] signalConditionsASAP(SequentialFuture, pos=1) ... 1576s [00:52:56.558] - nx: 1 1576s [00:52:56.558] - relay: TRUE 1576s [00:52:56.558] - stdout: TRUE 1576s [00:52:56.558] - signal: TRUE 1576s [00:52:56.558] - resignal: FALSE 1576s [00:52:56.559] - force: TRUE 1576s [00:52:56.559] - relayed: [n=1] FALSE 1576s [00:52:56.559] - queued futures: [n=1] FALSE 1576s [00:52:56.559] - until=1 1576s [00:52:56.559] - relaying element #1 1576s [00:52:56.559] - relayed: [n=1] TRUE 1576s [00:52:56.560] - queued futures: [n=1] TRUE 1576s [00:52:56.560] signalConditionsASAP(SequentialFuture, pos=1) ... done 1576s [00:52:56.560] length: 0 (resolved future 1) 1576s [00:52:56.560] Relaying remaining futures 1576s [00:52:56.560] signalConditionsASAP(NULL, pos=0) ... 1576s [00:52:56.561] - nx: 1 1576s [00:52:56.561] - relay: TRUE 1576s [00:52:56.561] - stdout: TRUE 1576s [00:52:56.561] - signal: TRUE 1576s [00:52:56.561] - resignal: FALSE 1576s [00:52:56.562] - force: TRUE 1576s [00:52:56.562] - relayed: [n=1] TRUE 1576s [00:52:56.562] - queued futures: [n=1] TRUE 1576s List of 2 1576s $ y0: chr [1:3] "a" "b" "c" 1576s $ y1: chr [1:3] "a" "b" "c" 1576s - flush all 1576s [00:52:56.562] - relayed: [n=1] TRUE 1576s [00:52:56.562] - queued futures: [n=1] TRUE 1576s [00:52:56.563] signalConditionsASAP(NULL, pos=0) ... done 1576s [00:52:56.563] resolve() on list ... DONE 1576s [00:52:56.563] - Number of value chunks collected: 1 1576s [00:52:56.563] Resolving 1 futures (chunks) ... DONE 1576s [00:52:56.563] Reducing values from 1 chunks ... 1576s [00:52:56.563] - Number of values collected after concatenation: 3 1576s [00:52:56.563] - Number of values expected: 3 1576s [00:52:56.564] Reducing values from 1 chunks ... DONE 1576s [00:52:56.564] future_lapply() ... DONE 1576s [00:52:56.566] future_lapply() ... 1576s [00:52:56.570] Number of chunks: 1 1576s [00:52:56.570] getGlobalsAndPackagesXApply() ... 1576s [00:52:56.571] - future.globals: TRUE 1576s [00:52:56.571] getGlobalsAndPackages() ... 1576s [00:52:56.571] Searching for globals... 1576s [00:52:56.572] - globals found: [1] ‘FUN’ 1576s [00:52:56.573] Searching for globals ... DONE 1576s [00:52:56.573] Resolving globals: FALSE 1576s [00:52:56.574] The total size of the 1 globals is 848 bytes (848 bytes) 1576s [00:52:56.574] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1576s [00:52:56.574] - globals: [1] ‘FUN’ 1576s [00:52:56.575] 1576s [00:52:56.575] getGlobalsAndPackages() ... DONE 1576s [00:52:56.575] - globals found/used: [n=1] ‘FUN’ 1576s [00:52:56.576] - needed namespaces: [n=0] 1576s [00:52:56.576] Finding globals ... DONE 1576s [00:52:56.576] - use_args: TRUE 1576s [00:52:56.576] - Getting '...' globals ... 1576s [00:52:56.577] resolve() on list ... 1576s [00:52:56.577] recursive: 0 1576s [00:52:56.577] length: 1 1576s [00:52:56.577] elements: ‘...’ 1576s [00:52:56.578] length: 0 (resolved future 1) 1576s [00:52:56.578] resolve() on list ... DONE 1576s [00:52:56.578] - '...' content: [n=0] 1576s [00:52:56.578] List of 1 1576s [00:52:56.578] $ ...: list() 1576s [00:52:56.578] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1576s [00:52:56.578] - attr(*, "where")=List of 1 1576s [00:52:56.578] ..$ ...: 1576s [00:52:56.578] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1576s [00:52:56.578] - attr(*, "resolved")= logi TRUE 1576s [00:52:56.578] - attr(*, "total_size")= num NA 1576s [00:52:56.582] - Getting '...' globals ... DONE 1576s [00:52:56.583] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1576s [00:52:56.583] List of 2 1576s [00:52:56.583] $ ...future.FUN:function (x) 1576s [00:52:56.583] $ ... : list() 1576s [00:52:56.583] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1576s [00:52:56.583] - attr(*, "where")=List of 2 1576s [00:52:56.583] ..$ ...future.FUN: 1576s [00:52:56.583] ..$ ... : 1576s [00:52:56.583] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1576s [00:52:56.583] - attr(*, "resolved")= logi FALSE 1576s [00:52:56.583] - attr(*, "total_size")= num 848 1576s [00:52:56.587] Packages to be attached in all futures: [n=0] 1576s [00:52:56.587] getGlobalsAndPackagesXApply() ... DONE 1576s [00:52:56.587] Number of futures (= number of chunks): 1 1576s [00:52:56.587] Launching 1 futures (chunks) ... 1576s [00:52:56.587] Chunk #1 of 1 ... 1576s [00:52:56.588] - Finding globals in 'X' for chunk #1 ... 1576s [00:52:56.588] getGlobalsAndPackages() ... 1576s [00:52:56.588] Searching for globals... 1576s [00:52:56.588] 1576s [00:52:56.588] Searching for globals ... DONE 1576s [00:52:56.588] - globals: [0] 1576s [00:52:56.588] getGlobalsAndPackages() ... DONE 1576s [00:52:56.589] + additional globals found: [n=0] 1576s [00:52:56.589] + additional namespaces needed: [n=0] 1576s [00:52:56.589] - Finding globals in 'X' for chunk #1 ... DONE 1576s [00:52:56.589] - seeds: 1576s [00:52:56.589] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1576s [00:52:56.589] getGlobalsAndPackages() ... 1576s [00:52:56.589] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1576s [00:52:56.590] Resolving globals: FALSE 1576s [00:52:56.590] Tweak future expression to call with '...' arguments ... 1576s [00:52:56.590] { 1576s [00:52:56.590] do.call(function(...) { 1576s [00:52:56.590] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1576s [00:52:56.590] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1576s [00:52:56.590] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1576s [00:52:56.590] on.exit(options(oopts), add = TRUE) 1576s [00:52:56.590] } 1576s [00:52:56.590] { 1576s [00:52:56.590] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1576s [00:52:56.590] ...future.X_jj <- ...future.elements_ii[[jj]] 1576s [00:52:56.590] ...future.FUN(...future.X_jj, ...) 1576s [00:52:56.590] }) 1576s [00:52:56.590] } 1576s [00:52:56.590] }, args = future.call.arguments) 1576s [00:52:56.590] } 1576s [00:52:56.591] Tweak future expression to call with '...' arguments ... DONE 1576s [00:52:56.592] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1576s [00:52:56.592] 1576s [00:52:56.592] getGlobalsAndPackages() ... DONE 1576s [00:52:56.593] run() for ‘Future’ ... 1576s [00:52:56.593] - state: ‘created’ 1576s [00:52:56.593] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1576s [00:52:56.597] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1576s [00:52:56.597] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1576s [00:52:56.598] - Field: ‘label’ 1576s [00:52:56.598] - Field: ‘local’ 1576s [00:52:56.598] - Field: ‘owner’ 1576s [00:52:56.598] - Field: ‘envir’ 1576s [00:52:56.598] - Field: ‘packages’ 1576s [00:52:56.598] - Field: ‘gc’ 1576s [00:52:56.599] - Field: ‘conditions’ 1576s [00:52:56.599] - Field: ‘expr’ 1576s [00:52:56.599] - Field: ‘uuid’ 1576s [00:52:56.599] - Field: ‘seed’ 1576s [00:52:56.599] - Field: ‘version’ 1576s [00:52:56.600] - Field: ‘result’ 1576s [00:52:56.600] - Field: ‘asynchronous’ 1576s [00:52:56.600] - Field: ‘calls’ 1576s [00:52:56.600] - Field: ‘globals’ 1576s [00:52:56.600] - Field: ‘stdout’ 1576s [00:52:56.600] - Field: ‘earlySignal’ 1576s [00:52:56.601] - Field: ‘lazy’ 1576s [00:52:56.601] - Field: ‘state’ 1576s [00:52:56.602] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1576s [00:52:56.602] - Launch lazy future ... 1576s [00:52:56.603] Packages needed by the future expression (n = 0): 1576s [00:52:56.603] Packages needed by future strategies (n = 0): 1576s [00:52:56.604] { 1576s [00:52:56.604] { 1576s [00:52:56.604] { 1576s [00:52:56.604] ...future.startTime <- base::Sys.time() 1576s [00:52:56.604] { 1576s [00:52:56.604] { 1576s [00:52:56.604] { 1576s [00:52:56.604] base::local({ 1576s [00:52:56.604] has_future <- base::requireNamespace("future", 1576s [00:52:56.604] quietly = TRUE) 1576s [00:52:56.604] if (has_future) { 1576s [00:52:56.604] ns <- base::getNamespace("future") 1576s [00:52:56.604] version <- ns[[".package"]][["version"]] 1576s [00:52:56.604] if (is.null(version)) 1576s [00:52:56.604] version <- utils::packageVersion("future") 1576s [00:52:56.604] } 1576s [00:52:56.604] else { 1576s [00:52:56.604] version <- NULL 1576s [00:52:56.604] } 1576s [00:52:56.604] if (!has_future || version < "1.8.0") { 1576s [00:52:56.604] info <- base::c(r_version = base::gsub("R version ", 1576s [00:52:56.604] "", base::R.version$version.string), 1576s [00:52:56.604] platform = base::sprintf("%s (%s-bit)", 1576s [00:52:56.604] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1576s [00:52:56.604] os = base::paste(base::Sys.info()[base::c("sysname", 1576s [00:52:56.604] "release", "version")], collapse = " "), 1576s [00:52:56.604] hostname = base::Sys.info()[["nodename"]]) 1576s [00:52:56.604] info <- base::sprintf("%s: %s", base::names(info), 1576s [00:52:56.604] info) 1576s [00:52:56.604] info <- base::paste(info, collapse = "; ") 1576s [00:52:56.604] if (!has_future) { 1576s [00:52:56.604] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1576s [00:52:56.604] info) 1576s [00:52:56.604] } 1576s [00:52:56.604] else { 1576s [00:52:56.604] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1576s [00:52:56.604] info, version) 1576s [00:52:56.604] } 1576s [00:52:56.604] base::stop(msg) 1576s [00:52:56.604] } 1576s [00:52:56.604] }) 1576s [00:52:56.604] } 1576s [00:52:56.604] options(future.plan = NULL) 1576s [00:52:56.604] Sys.unsetenv("R_FUTURE_PLAN") 1576s [00:52:56.604] future::plan("default", .cleanup = FALSE, .init = FALSE) 1576s [00:52:56.604] } 1576s [00:52:56.604] ...future.workdir <- getwd() 1576s [00:52:56.604] } 1576s [00:52:56.604] ...future.oldOptions <- base::as.list(base::.Options) 1576s [00:52:56.604] ...future.oldEnvVars <- base::Sys.getenv() 1576s [00:52:56.604] } 1576s [00:52:56.604] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1576s [00:52:56.604] future.globals.maxSize = NULL, future.globals.method = NULL, 1576s [00:52:56.604] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1576s [00:52:56.604] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1576s [00:52:56.604] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1576s [00:52:56.604] future.stdout.windows.reencode = NULL, width = 80L) 1576s [00:52:56.604] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1576s [00:52:56.604] base::names(...future.oldOptions)) 1576s [00:52:56.604] } 1576s [00:52:56.604] if (FALSE) { 1576s [00:52:56.604] } 1576s [00:52:56.604] else { 1576s [00:52:56.604] if (TRUE) { 1576s [00:52:56.604] ...future.stdout <- base::rawConnection(base::raw(0L), 1576s [00:52:56.604] open = "w") 1576s [00:52:56.604] } 1576s [00:52:56.604] else { 1576s [00:52:56.604] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1576s [00:52:56.604] windows = "NUL", "/dev/null"), open = "w") 1576s [00:52:56.604] } 1576s [00:52:56.604] base::sink(...future.stdout, type = "output", split = FALSE) 1576s [00:52:56.604] base::on.exit(if (!base::is.null(...future.stdout)) { 1576s [00:52:56.604] base::sink(type = "output", split = FALSE) 1576s [00:52:56.604] base::close(...future.stdout) 1576s [00:52:56.604] }, add = TRUE) 1576s [00:52:56.604] } 1576s [00:52:56.604] ...future.frame <- base::sys.nframe() 1576s [00:52:56.604] ...future.conditions <- base::list() 1576s [00:52:56.604] ...future.rng <- base::globalenv()$.Random.seed 1576s [00:52:56.604] if (FALSE) { 1576s [00:52:56.604] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1576s [00:52:56.604] "...future.value", "...future.globalenv.names", ".Random.seed") 1576s [00:52:56.604] } 1576s [00:52:56.604] ...future.result <- base::tryCatch({ 1576s [00:52:56.604] base::withCallingHandlers({ 1576s [00:52:56.604] ...future.value <- base::withVisible(base::local({ 1576s [00:52:56.604] do.call(function(...) { 1576s [00:52:56.604] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1576s [00:52:56.604] if (!identical(...future.globals.maxSize.org, 1576s [00:52:56.604] ...future.globals.maxSize)) { 1576s [00:52:56.604] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1576s [00:52:56.604] on.exit(options(oopts), add = TRUE) 1576s [00:52:56.604] } 1576s [00:52:56.604] { 1576s [00:52:56.604] lapply(seq_along(...future.elements_ii), 1576s [00:52:56.604] FUN = function(jj) { 1576s [00:52:56.604] ...future.X_jj <- ...future.elements_ii[[jj]] 1576s [00:52:56.604] ...future.FUN(...future.X_jj, ...) 1576s [00:52:56.604] }) 1576s [00:52:56.604] } 1576s [00:52:56.604] }, args = future.call.arguments) 1576s [00:52:56.604] })) 1576s [00:52:56.604] future::FutureResult(value = ...future.value$value, 1576s [00:52:56.604] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1576s [00:52:56.604] ...future.rng), globalenv = if (FALSE) 1576s [00:52:56.604] list(added = base::setdiff(base::names(base::.GlobalEnv), 1576s [00:52:56.604] ...future.globalenv.names)) 1576s [00:52:56.604] else NULL, started = ...future.startTime, version = "1.8") 1576s [00:52:56.604] }, condition = base::local({ 1576s [00:52:56.604] c <- base::c 1576s [00:52:56.604] inherits <- base::inherits 1576s [00:52:56.604] invokeRestart <- base::invokeRestart 1576s [00:52:56.604] length <- base::length 1576s [00:52:56.604] list <- base::list 1576s [00:52:56.604] seq.int <- base::seq.int 1576s [00:52:56.604] signalCondition <- base::signalCondition 1576s [00:52:56.604] sys.calls <- base::sys.calls 1576s [00:52:56.604] `[[` <- base::`[[` 1576s [00:52:56.604] `+` <- base::`+` 1576s [00:52:56.604] `<<-` <- base::`<<-` 1576s [00:52:56.604] sysCalls <- function(calls = sys.calls(), from = 1L) { 1576s [00:52:56.604] calls[seq.int(from = from + 12L, to = length(calls) - 1576s [00:52:56.604] 3L)] 1576s [00:52:56.604] } 1576s [00:52:56.604] function(cond) { 1576s [00:52:56.604] is_error <- inherits(cond, "error") 1576s [00:52:56.604] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1576s [00:52:56.604] NULL) 1576s [00:52:56.604] if (is_error) { 1576s [00:52:56.604] sessionInformation <- function() { 1576s [00:52:56.604] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1576s [00:52:56.604] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1576s [00:52:56.604] search = base::search(), system = base::Sys.info()) 1576s [00:52:56.604] } 1576s [00:52:56.604] ...future.conditions[[length(...future.conditions) + 1576s [00:52:56.604] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1576s [00:52:56.604] cond$call), session = sessionInformation(), 1576s [00:52:56.604] timestamp = base::Sys.time(), signaled = 0L) 1576s [00:52:56.604] signalCondition(cond) 1576s [00:52:56.604] } 1576s [00:52:56.604] else if (!ignore && TRUE && inherits(cond, c("condition", 1576s [00:52:56.604] "immediateCondition"))) { 1576s [00:52:56.604] signal <- TRUE && inherits(cond, "immediateCondition") 1576s [00:52:56.604] ...future.conditions[[length(...future.conditions) + 1576s [00:52:56.604] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1576s [00:52:56.604] if (TRUE && !signal) { 1576s [00:52:56.604] muffleCondition <- function (cond, pattern = "^muffle") 1576s [00:52:56.604] { 1576s [00:52:56.604] inherits <- base::inherits 1576s [00:52:56.604] invokeRestart <- base::invokeRestart 1576s [00:52:56.604] is.null <- base::is.null 1576s [00:52:56.604] muffled <- FALSE 1576s [00:52:56.604] if (inherits(cond, "message")) { 1576s [00:52:56.604] muffled <- grepl(pattern, "muffleMessage") 1576s [00:52:56.604] if (muffled) 1576s [00:52:56.604] invokeRestart("muffleMessage") 1576s [00:52:56.604] } 1576s [00:52:56.604] else if (inherits(cond, "warning")) { 1576s [00:52:56.604] muffled <- grepl(pattern, "muffleWarning") 1576s [00:52:56.604] if (muffled) 1576s [00:52:56.604] invokeRestart("muffleWarning") 1576s [00:52:56.604] } 1576s [00:52:56.604] else if (inherits(cond, "condition")) { 1576s [00:52:56.604] if (!is.null(pattern)) { 1576s [00:52:56.604] computeRestarts <- base::computeRestarts 1576s [00:52:56.604] grepl <- base::grepl 1576s [00:52:56.604] restarts <- computeRestarts(cond) 1576s [00:52:56.604] for (restart in restarts) { 1576s [00:52:56.604] name <- restart$name 1576s [00:52:56.604] if (is.null(name)) 1576s [00:52:56.604] next 1576s [00:52:56.604] if (!grepl(pattern, name)) 1576s [00:52:56.604] next 1576s [00:52:56.604] invokeRestart(restart) 1576s [00:52:56.604] muffled <- TRUE 1576s [00:52:56.604] break 1576s [00:52:56.604] } 1576s [00:52:56.604] } 1576s [00:52:56.604] } 1576s [00:52:56.604] invisible(muffled) 1576s [00:52:56.604] } 1576s [00:52:56.604] muffleCondition(cond, pattern = "^muffle") 1576s [00:52:56.604] } 1576s [00:52:56.604] } 1576s [00:52:56.604] else { 1576s [00:52:56.604] if (TRUE) { 1576s [00:52:56.604] muffleCondition <- function (cond, pattern = "^muffle") 1576s [00:52:56.604] { 1576s [00:52:56.604] inherits <- base::inherits 1576s [00:52:56.604] invokeRestart <- base::invokeRestart 1576s [00:52:56.604] is.null <- base::is.null 1576s [00:52:56.604] muffled <- FALSE 1576s [00:52:56.604] if (inherits(cond, "message")) { 1576s [00:52:56.604] muffled <- grepl(pattern, "muffleMessage") 1576s [00:52:56.604] if (muffled) 1576s [00:52:56.604] invokeRestart("muffleMessage") 1576s [00:52:56.604] } 1576s [00:52:56.604] else if (inherits(cond, "warning")) { 1576s [00:52:56.604] muffled <- grepl(pattern, "muffleWarning") 1576s [00:52:56.604] if (muffled) 1576s [00:52:56.604] invokeRestart("muffleWarning") 1576s [00:52:56.604] } 1576s [00:52:56.604] else if (inherits(cond, "condition")) { 1576s [00:52:56.604] if (!is.null(pattern)) { 1576s [00:52:56.604] computeRestarts <- base::computeRestarts 1576s [00:52:56.604] grepl <- base::grepl 1576s [00:52:56.604] restarts <- computeRestarts(cond) 1576s [00:52:56.604] for (restart in restarts) { 1576s [00:52:56.604] name <- restart$name 1576s [00:52:56.604] if (is.null(name)) 1576s [00:52:56.604] next 1576s [00:52:56.604] if (!grepl(pattern, name)) 1576s [00:52:56.604] next 1576s [00:52:56.604] invokeRestart(restart) 1576s [00:52:56.604] muffled <- TRUE 1576s [00:52:56.604] break 1576s [00:52:56.604] } 1576s [00:52:56.604] } 1576s [00:52:56.604] } 1576s [00:52:56.604] invisible(muffled) 1576s [00:52:56.604] } 1576s [00:52:56.604] muffleCondition(cond, pattern = "^muffle") 1576s [00:52:56.604] } 1576s [00:52:56.604] } 1576s [00:52:56.604] } 1576s [00:52:56.604] })) 1576s [00:52:56.604] }, error = function(ex) { 1576s [00:52:56.604] base::structure(base::list(value = NULL, visible = NULL, 1576s [00:52:56.604] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1576s [00:52:56.604] ...future.rng), started = ...future.startTime, 1576s [00:52:56.604] finished = Sys.time(), session_uuid = NA_character_, 1576s [00:52:56.604] version = "1.8"), class = "FutureResult") 1576s [00:52:56.604] }, finally = { 1576s [00:52:56.604] if (!identical(...future.workdir, getwd())) 1576s [00:52:56.604] setwd(...future.workdir) 1576s [00:52:56.604] { 1576s [00:52:56.604] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1576s [00:52:56.604] ...future.oldOptions$nwarnings <- NULL 1576s [00:52:56.604] } 1576s [00:52:56.604] base::options(...future.oldOptions) 1576s [00:52:56.604] if (.Platform$OS.type == "windows") { 1576s [00:52:56.604] old_names <- names(...future.oldEnvVars) 1576s [00:52:56.604] envs <- base::Sys.getenv() 1576s [00:52:56.604] names <- names(envs) 1576s [00:52:56.604] common <- intersect(names, old_names) 1576s [00:52:56.604] added <- setdiff(names, old_names) 1576s [00:52:56.604] removed <- setdiff(old_names, names) 1576s [00:52:56.604] changed <- common[...future.oldEnvVars[common] != 1576s [00:52:56.604] envs[common]] 1576s [00:52:56.604] NAMES <- toupper(changed) 1576s [00:52:56.604] args <- list() 1576s [00:52:56.604] for (kk in seq_along(NAMES)) { 1576s [00:52:56.604] name <- changed[[kk]] 1576s [00:52:56.604] NAME <- NAMES[[kk]] 1576s [00:52:56.604] if (name != NAME && is.element(NAME, old_names)) 1576s [00:52:56.604] next 1576s [00:52:56.604] args[[name]] <- ...future.oldEnvVars[[name]] 1576s [00:52:56.604] } 1576s [00:52:56.604] NAMES <- toupper(added) 1576s [00:52:56.604] for (kk in seq_along(NAMES)) { 1576s [00:52:56.604] name <- added[[kk]] 1576s [00:52:56.604] NAME <- NAMES[[kk]] 1576s [00:52:56.604] if (name != NAME && is.element(NAME, old_names)) 1576s [00:52:56.604] next 1576s [00:52:56.604] args[[name]] <- "" 1576s [00:52:56.604] } 1576s [00:52:56.604] NAMES <- toupper(removed) 1576s [00:52:56.604] for (kk in seq_along(NAMES)) { 1576s [00:52:56.604] name <- removed[[kk]] 1576s [00:52:56.604] NAME <- NAMES[[kk]] 1576s [00:52:56.604] if (name != NAME && is.element(NAME, old_names)) 1576s [00:52:56.604] next 1576s [00:52:56.604] args[[name]] <- ...future.oldEnvVars[[name]] 1576s [00:52:56.604] } 1576s [00:52:56.604] if (length(args) > 0) 1576s [00:52:56.604] base::do.call(base::Sys.setenv, args = args) 1576s [00:52:56.604] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1576s [00:52:56.604] } 1576s [00:52:56.604] else { 1576s [00:52:56.604] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1576s [00:52:56.604] } 1576s [00:52:56.604] { 1576s [00:52:56.604] if (base::length(...future.futureOptionsAdded) > 1576s [00:52:56.604] 0L) { 1576s [00:52:56.604] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1576s [00:52:56.604] base::names(opts) <- ...future.futureOptionsAdded 1576s [00:52:56.604] base::options(opts) 1576s [00:52:56.604] } 1576s [00:52:56.604] { 1576s [00:52:56.604] { 1576s [00:52:56.604] NULL 1576s [00:52:56.604] RNGkind("Mersenne-Twister") 1576s [00:52:56.604] base::rm(list = ".Random.seed", envir = base::globalenv(), 1576s [00:52:56.604] inherits = FALSE) 1576s [00:52:56.604] } 1576s [00:52:56.604] options(future.plan = NULL) 1576s [00:52:56.604] if (is.na(NA_character_)) 1576s [00:52:56.604] Sys.unsetenv("R_FUTURE_PLAN") 1576s [00:52:56.604] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1576s [00:52:56.604] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1576s [00:52:56.604] envir = parent.frame()) 1576s [00:52:56.604] { 1576s [00:52:56.604] default_workers <- missing(workers) 1576s [00:52:56.604] if (is.function(workers)) 1576s [00:52:56.604] workers <- workers() 1576s [00:52:56.604] workers <- structure(as.integer(workers), 1576s [00:52:56.604] class = class(workers)) 1576s [00:52:56.604] stop_if_not(is.finite(workers), workers >= 1576s [00:52:56.604] 1L) 1576s [00:52:56.604] if ((workers == 1L && !inherits(workers, 1576s [00:52:56.604] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1576s [00:52:56.604] if (default_workers) 1576s [00:52:56.604] supportsMulticore(warn = TRUE) 1576s [00:52:56.604] return(sequential(..., envir = envir)) 1576s [00:52:56.604] } 1576s [00:52:56.604] oopts <- options(mc.cores = workers) 1576s [00:52:56.604] on.exit(options(oopts)) 1576s [00:52:56.604] future <- MulticoreFuture(..., workers = workers, 1576s [00:52:56.604] envir = envir) 1576s [00:52:56.604] if (!future$lazy) 1576s [00:52:56.604] future <- run(future) 1576s [00:52:56.604] invisible(future) 1576s [00:52:56.604] }), .cleanup = FALSE, .init = FALSE) 1576s [00:52:56.604] } 1576s [00:52:56.604] } 1576s [00:52:56.604] } 1576s [00:52:56.604] }) 1576s [00:52:56.604] if (TRUE) { 1576s [00:52:56.604] base::sink(type = "output", split = FALSE) 1576s [00:52:56.604] if (TRUE) { 1576s [00:52:56.604] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1576s [00:52:56.604] } 1576s [00:52:56.604] else { 1576s [00:52:56.604] ...future.result["stdout"] <- base::list(NULL) 1576s [00:52:56.604] } 1576s [00:52:56.604] base::close(...future.stdout) 1576s [00:52:56.604] ...future.stdout <- NULL 1576s [00:52:56.604] } 1576s [00:52:56.604] ...future.result$conditions <- ...future.conditions 1576s [00:52:56.604] ...future.result$finished <- base::Sys.time() 1576s [00:52:56.604] ...future.result 1576s [00:52:56.604] } 1576s [00:52:56.613] assign_globals() ... 1576s [00:52:56.613] List of 5 1576s [00:52:56.613] $ ...future.FUN :function (x) 1576s [00:52:56.613] $ future.call.arguments : list() 1576s [00:52:56.613] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1576s [00:52:56.613] $ ...future.elements_ii :List of 3 1576s [00:52:56.613] ..$ : chr "a" 1576s [00:52:56.613] ..$ : chr "b" 1576s [00:52:56.613] ..$ : chr "c" 1576s [00:52:56.613] $ ...future.seeds_ii : NULL 1576s [00:52:56.613] $ ...future.globals.maxSize: NULL 1576s [00:52:56.613] - attr(*, "where")=List of 5 1576s [00:52:56.613] ..$ ...future.FUN : 1576s [00:52:56.613] ..$ future.call.arguments : 1576s [00:52:56.613] ..$ ...future.elements_ii : 1576s [00:52:56.613] ..$ ...future.seeds_ii : 1576s [00:52:56.613] ..$ ...future.globals.maxSize: 1576s [00:52:56.613] - attr(*, "resolved")= logi FALSE 1576s [00:52:56.613] - attr(*, "total_size")= num 848 1576s [00:52:56.613] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1576s [00:52:56.613] - attr(*, "already-done")= logi TRUE 1576s [00:52:56.622] - copied ‘...future.FUN’ to environment 1576s [00:52:56.623] - copied ‘future.call.arguments’ to environment 1576s [00:52:56.623] - copied ‘...future.elements_ii’ to environment 1576s [00:52:56.623] - copied ‘...future.seeds_ii’ to environment 1576s [00:52:56.623] - copied ‘...future.globals.maxSize’ to environment 1576s [00:52:56.623] assign_globals() ... done 1576s [00:52:56.624] plan(): Setting new future strategy stack: 1576s [00:52:56.624] List of future strategies: 1576s [00:52:56.624] 1. sequential: 1576s [00:52:56.624] - args: function (..., envir = parent.frame()) 1576s [00:52:56.624] - tweaked: FALSE 1576s [00:52:56.624] - call: NULL 1576s [00:52:56.624] plan(): nbrOfWorkers() = 1 1576s [00:52:56.625] plan(): Setting new future strategy stack: 1576s [00:52:56.626] List of future strategies: 1576s [00:52:56.626] 1. multicore: 1576s [00:52:56.626] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1576s [00:52:56.626] - tweaked: FALSE 1576s [00:52:56.626] - call: plan(strategy) 1576s [00:52:56.629] plan(): nbrOfWorkers() = 1 1576s [00:52:56.630] SequentialFuture started (and completed) 1576s [00:52:56.630] - Launch lazy future ... done 1576s [00:52:56.630] run() for ‘SequentialFuture’ ... done 1576s [00:52:56.630] Created future: 1576s [00:52:56.631] SequentialFuture: 1576s [00:52:56.631] Label: ‘future_sapply-1’ 1576s [00:52:56.631] Expression: 1576s [00:52:56.631] { 1576s [00:52:56.631] do.call(function(...) { 1576s [00:52:56.631] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1576s [00:52:56.631] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1576s [00:52:56.631] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1576s [00:52:56.631] on.exit(options(oopts), add = TRUE) 1576s [00:52:56.631] } 1576s [00:52:56.631] { 1576s [00:52:56.631] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1576s [00:52:56.631] ...future.X_jj <- ...future.elements_ii[[jj]] 1576s [00:52:56.631] ...future.FUN(...future.X_jj, ...) 1576s [00:52:56.631] }) 1576s [00:52:56.631] } 1576s [00:52:56.631] }, args = future.call.arguments) 1576s [00:52:56.631] } 1576s [00:52:56.631] Lazy evaluation: FALSE 1576s [00:52:56.631] Asynchronous evaluation: FALSE 1576s [00:52:56.631] Local evaluation: TRUE 1576s [00:52:56.631] Environment: R_GlobalEnv 1576s [00:52:56.631] Capture standard output: TRUE 1576s [00:52:56.631] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1576s [00:52:56.631] Globals: 5 objects totaling 1.16 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1576s [00:52:56.631] Packages: 1576s [00:52:56.631] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1576s [00:52:56.631] Resolved: TRUE 1576s [00:52:56.631] Value: 336 bytes of class ‘list’ 1576s [00:52:56.631] Early signaling: FALSE 1576s [00:52:56.631] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1576s [00:52:56.631] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1576s [00:52:56.632] Chunk #1 of 1 ... DONE 1576s [00:52:56.632] Launching 1 futures (chunks) ... DONE 1576s [00:52:56.633] Resolving 1 futures (chunks) ... 1576s [00:52:56.633] resolve() on list ... 1576s [00:52:56.633] recursive: 0 1576s [00:52:56.633] length: 1 1576s [00:52:56.633] 1576s [00:52:56.634] resolved() for ‘SequentialFuture’ ... 1576s [00:52:56.634] - state: ‘finished’ 1576s [00:52:56.634] - run: TRUE 1576s [00:52:56.634] - result: ‘FutureResult’ 1576s [00:52:56.634] resolved() for ‘SequentialFuture’ ... done 1576s [00:52:56.634] Future #1 1576s [00:52:56.635] signalConditionsASAP(SequentialFuture, pos=1) ... 1576s [00:52:56.635] - nx: 1 1576s [00:52:56.635] - relay: TRUE 1576s [00:52:56.635] - stdout: TRUE 1576s [00:52:56.635] - signal: TRUE 1576s [00:52:56.635] - resignal: FALSE 1576s [00:52:56.635] - force: TRUE 1576s [00:52:56.635] - relayed: [n=1] FALSE 1576s [00:52:56.635] - queued futures: [n=1] FALSE 1576s [00:52:56.636] - until=1 1576s [00:52:56.636] - relaying element #1 1576s [00:52:56.636] - relayed: [n=1] TRUE 1576s [00:52:56.636] - queued futures: [n=1] TRUE 1576s [00:52:56.636] signalConditionsASAP(SequentialFuture, pos=1) ... done 1576s [00:52:56.636] length: 0 (resolved future 1) 1576s [00:52:56.636] Relaying remaining futures 1576s [00:52:56.637] signalConditionsASAP(NULL, pos=0) ... 1576s [00:52:56.637] - nx: 1 1576s [00:52:56.637] - relay: TRUE 1576s [00:52:56.637] - stdout: TRUE 1576s [00:52:56.642] - signal: TRUE 1576s [00:52:56.642] - resignal: FALSE 1576s [00:52:56.642] - force: TRUE 1576s [00:52:56.643] - relayed: [n=1] TRUE 1576s [00:52:56.643] - queued futures: [n=1] TRUE 1576s - flush all 1576s [00:52:56.643] - relayed: [n=1] TRUE 1576s [00:52:56.643] - queued futures: [n=1] TRUE 1576s [00:52:56.644] signalConditionsASAP(NULL, pos=0) ... done 1576s [00:52:56.644] resolve() on list ... DONE 1576s [00:52:56.644] - Number of value chunks collected: 1 1576s [00:52:56.644] Resolving 1 futures (chunks) ... DONE 1576s [00:52:56.645] Reducing values from 1 chunks ... 1576s [00:52:56.645] - Number of values collected after concatenation: 3 1576s [00:52:56.645] - Number of values expected: 3 1576s [00:52:56.645] Reducing values from 1 chunks ... DONE 1576s [00:52:56.645] future_lapply() ... DONE 1576s List[00:52:56.647] future_lapply() ... 1576s of 2 1576s $ y0: chr [1:3] "a" "b" "c" 1576s $ y1: chr [1:3] "a" "b" "c" 1576s [00:52:56.651] Number of chunks: 1 1576s [00:52:56.651] getGlobalsAndPackagesXApply() ... 1576s [00:52:56.651] - future.globals: TRUE 1576s [00:52:56.651] getGlobalsAndPackages() ... 1576s [00:52:56.651] Searching for globals... 1576s [00:52:56.653] - globals found: [2] ‘FUN’, ‘UseMethod’ 1576s [00:52:56.653] Searching for globals ... DONE 1576s [00:52:56.653] Resolving globals: FALSE 1576s [00:52:56.654] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1576s [00:52:56.655] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1576s [00:52:56.655] - globals: [1] ‘FUN’ 1576s [00:52:56.655] 1576s [00:52:56.655] getGlobalsAndPackages() ... DONE 1576s [00:52:56.656] - globals found/used: [n=1] ‘FUN’ 1576s [00:52:56.656] - needed namespaces: [n=0] 1576s [00:52:56.656] Finding globals ... DONE 1576s [00:52:56.656] - use_args: TRUE 1576s [00:52:56.656] - Getting '...' globals ... 1576s [00:52:56.657] resolve() on list ... 1576s [00:52:56.657] recursive: 0 1576s [00:52:56.657] length: 1 1576s [00:52:56.657] elements: ‘...’ 1576s [00:52:56.657] length: 0 (resolved future 1) 1576s [00:52:56.657] resolve() on list ... DONE 1576s [00:52:56.658] - '...' content: [n=0] 1576s [00:52:56.658] List of 1 1576s [00:52:56.658] $ ...: list() 1576s [00:52:56.658] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1576s [00:52:56.658] - attr(*, "where")=List of 1 1576s [00:52:56.658] ..$ ...: 1576s [00:52:56.658] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1576s [00:52:56.658] - attr(*, "resolved")= logi TRUE 1576s [00:52:56.658] - attr(*, "total_size")= num NA 1576s [00:52:56.662] - Getting '...' globals ... DONE 1576s [00:52:56.662] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1576s [00:52:56.663] List of 2 1576s [00:52:56.663] $ ...future.FUN:function (x, ...) 1576s [00:52:56.663] $ ... : list() 1576s [00:52:56.663] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1576s [00:52:56.663] - attr(*, "where")=List of 2 1576s [00:52:56.663] ..$ ...future.FUN: 1576s [00:52:56.663] ..$ ... : 1576s [00:52:56.663] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1576s [00:52:56.663] - attr(*, "resolved")= logi FALSE 1576s [00:52:56.663] - attr(*, "total_size")= num 1248 1576s [00:52:56.667] Packages to be attached in all futures: [n=0] 1576s [00:52:56.667] getGlobalsAndPackagesXApply() ... DONE 1576s [00:52:56.667] Number of futures (= number of chunks): 1 1576s [00:52:56.668] Launching 1 futures (chunks) ... 1576s [00:52:56.668] Chunk #1 of 1 ... 1576s [00:52:56.668] - Finding globals in 'X' for chunk #1 ... 1576s [00:52:56.668] getGlobalsAndPackages() ... 1576s [00:52:56.669] Searching for globals... 1576s [00:52:56.669] 1576s [00:52:56.669] Searching for globals ... DONE 1576s [00:52:56.669] - globals: [0] 1576s [00:52:56.670] getGlobalsAndPackages() ... DONE 1576s [00:52:56.670] + additional globals found: [n=0] 1576s [00:52:56.670] + additional namespaces needed: [n=0] 1576s [00:52:56.670] - Finding globals in 'X' for chunk #1 ... DONE 1576s [00:52:56.670] - seeds: 1576s [00:52:56.670] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1576s [00:52:56.671] getGlobalsAndPackages() ... 1576s [00:52:56.671] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1576s [00:52:56.671] Resolving globals: FALSE 1576s [00:52:56.671] Tweak future expression to call with '...' arguments ... 1576s [00:52:56.672] { 1576s [00:52:56.672] do.call(function(...) { 1576s [00:52:56.672] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1576s [00:52:56.672] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1576s [00:52:56.672] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1576s [00:52:56.672] on.exit(options(oopts), add = TRUE) 1576s [00:52:56.672] } 1576s [00:52:56.672] { 1576s [00:52:56.672] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1576s [00:52:56.672] ...future.X_jj <- ...future.elements_ii[[jj]] 1576s [00:52:56.672] ...future.FUN(...future.X_jj, ...) 1576s [00:52:56.672] }) 1576s [00:52:56.672] } 1576s [00:52:56.672] }, args = future.call.arguments) 1576s [00:52:56.672] } 1576s [00:52:56.672] Tweak future expression to call with '...' arguments ... DONE 1576s [00:52:56.673] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1576s [00:52:56.674] 1576s [00:52:56.674] getGlobalsAndPackages() ... DONE 1576s [00:52:56.674] run() for ‘Future’ ... 1576s [00:52:56.674] - state: ‘created’ 1576s [00:52:56.675] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1576s [00:52:56.679] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1576s [00:52:56.679] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1576s [00:52:56.680] - Field: ‘label’ 1576s [00:52:56.680] - Field: ‘local’ 1576s [00:52:56.680] - Field: ‘owner’ 1576s [00:52:56.680] - Field: ‘envir’ 1576s [00:52:56.681] - Field: ‘packages’ 1576s [00:52:56.681] - Field: ‘gc’ 1576s [00:52:56.681] - Field: ‘conditions’ 1576s [00:52:56.681] - Field: ‘expr’ 1576s [00:52:56.681] - Field: ‘uuid’ 1576s [00:52:56.681] - Field: ‘seed’ 1576s [00:52:56.681] - Field: ‘version’ 1576s [00:52:56.682] - Field: ‘result’ 1576s [00:52:56.682] - Field: ‘asynchronous’ 1576s [00:52:56.683] - Field: ‘calls’ 1576s [00:52:56.683] - Field: ‘globals’ 1576s [00:52:56.683] - Field: ‘stdout’ 1576s [00:52:56.683] - Field: ‘earlySignal’ 1576s [00:52:56.683] - Field: ‘lazy’ 1576s [00:52:56.684] - Field: ‘state’ 1576s [00:52:56.684] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1576s [00:52:56.684] - Launch lazy future ... 1576s [00:52:56.685] Packages needed by the future expression (n = 0): 1576s [00:52:56.685] Packages needed by future strategies (n = 0): 1576s [00:52:56.685] { 1576s [00:52:56.685] { 1576s [00:52:56.685] { 1576s [00:52:56.685] ...future.startTime <- base::Sys.time() 1576s [00:52:56.685] { 1576s [00:52:56.685] { 1576s [00:52:56.685] { 1576s [00:52:56.685] base::local({ 1576s [00:52:56.685] has_future <- base::requireNamespace("future", 1576s [00:52:56.685] quietly = TRUE) 1576s [00:52:56.685] if (has_future) { 1576s [00:52:56.685] ns <- base::getNamespace("future") 1576s [00:52:56.685] version <- ns[[".package"]][["version"]] 1576s [00:52:56.685] if (is.null(version)) 1576s [00:52:56.685] version <- utils::packageVersion("future") 1576s [00:52:56.685] } 1576s [00:52:56.685] else { 1576s [00:52:56.685] version <- NULL 1576s [00:52:56.685] } 1576s [00:52:56.685] if (!has_future || version < "1.8.0") { 1576s [00:52:56.685] info <- base::c(r_version = base::gsub("R version ", 1576s [00:52:56.685] "", base::R.version$version.string), 1576s [00:52:56.685] platform = base::sprintf("%s (%s-bit)", 1576s [00:52:56.685] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1576s [00:52:56.685] os = base::paste(base::Sys.info()[base::c("sysname", 1576s [00:52:56.685] "release", "version")], collapse = " "), 1576s [00:52:56.685] hostname = base::Sys.info()[["nodename"]]) 1576s [00:52:56.685] info <- base::sprintf("%s: %s", base::names(info), 1576s [00:52:56.685] info) 1576s [00:52:56.685] info <- base::paste(info, collapse = "; ") 1576s [00:52:56.685] if (!has_future) { 1576s [00:52:56.685] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1576s [00:52:56.685] info) 1576s [00:52:56.685] } 1576s [00:52:56.685] else { 1576s [00:52:56.685] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1576s [00:52:56.685] info, version) 1576s [00:52:56.685] } 1576s [00:52:56.685] base::stop(msg) 1576s [00:52:56.685] } 1576s [00:52:56.685] }) 1576s [00:52:56.685] } 1576s [00:52:56.685] options(future.plan = NULL) 1576s [00:52:56.685] Sys.unsetenv("R_FUTURE_PLAN") 1576s [00:52:56.685] future::plan("default", .cleanup = FALSE, .init = FALSE) 1576s [00:52:56.685] } 1576s [00:52:56.685] ...future.workdir <- getwd() 1576s [00:52:56.685] } 1576s [00:52:56.685] ...future.oldOptions <- base::as.list(base::.Options) 1576s [00:52:56.685] ...future.oldEnvVars <- base::Sys.getenv() 1576s [00:52:56.685] } 1576s [00:52:56.685] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1576s [00:52:56.685] future.globals.maxSize = NULL, future.globals.method = NULL, 1576s [00:52:56.685] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1576s [00:52:56.685] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1576s [00:52:56.685] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1576s [00:52:56.685] future.stdout.windows.reencode = NULL, width = 80L) 1576s [00:52:56.685] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1576s [00:52:56.685] base::names(...future.oldOptions)) 1576s [00:52:56.685] } 1576s [00:52:56.685] if (FALSE) { 1576s [00:52:56.685] } 1576s [00:52:56.685] else { 1576s [00:52:56.685] if (TRUE) { 1576s [00:52:56.685] ...future.stdout <- base::rawConnection(base::raw(0L), 1576s [00:52:56.685] open = "w") 1576s [00:52:56.685] } 1576s [00:52:56.685] else { 1576s [00:52:56.685] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1576s [00:52:56.685] windows = "NUL", "/dev/null"), open = "w") 1576s [00:52:56.685] } 1576s [00:52:56.685] base::sink(...future.stdout, type = "output", split = FALSE) 1576s [00:52:56.685] base::on.exit(if (!base::is.null(...future.stdout)) { 1576s [00:52:56.685] base::sink(type = "output", split = FALSE) 1576s [00:52:56.685] base::close(...future.stdout) 1576s [00:52:56.685] }, add = TRUE) 1576s [00:52:56.685] } 1576s [00:52:56.685] ...future.frame <- base::sys.nframe() 1576s [00:52:56.685] ...future.conditions <- base::list() 1576s [00:52:56.685] ...future.rng <- base::globalenv()$.Random.seed 1576s [00:52:56.685] if (FALSE) { 1576s [00:52:56.685] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1576s [00:52:56.685] "...future.value", "...future.globalenv.names", ".Random.seed") 1576s [00:52:56.685] } 1576s [00:52:56.685] ...future.result <- base::tryCatch({ 1576s [00:52:56.685] base::withCallingHandlers({ 1576s [00:52:56.685] ...future.value <- base::withVisible(base::local({ 1576s [00:52:56.685] do.call(function(...) { 1576s [00:52:56.685] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1576s [00:52:56.685] if (!identical(...future.globals.maxSize.org, 1576s [00:52:56.685] ...future.globals.maxSize)) { 1576s [00:52:56.685] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1576s [00:52:56.685] on.exit(options(oopts), add = TRUE) 1576s [00:52:56.685] } 1576s [00:52:56.685] { 1576s [00:52:56.685] lapply(seq_along(...future.elements_ii), 1576s [00:52:56.685] FUN = function(jj) { 1576s [00:52:56.685] ...future.X_jj <- ...future.elements_ii[[jj]] 1576s [00:52:56.685] ...future.FUN(...future.X_jj, ...) 1576s [00:52:56.685] }) 1576s [00:52:56.685] } 1576s [00:52:56.685] }, args = future.call.arguments) 1576s [00:52:56.685] })) 1576s [00:52:56.685] future::FutureResult(value = ...future.value$value, 1576s [00:52:56.685] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1576s [00:52:56.685] ...future.rng), globalenv = if (FALSE) 1576s [00:52:56.685] list(added = base::setdiff(base::names(base::.GlobalEnv), 1576s [00:52:56.685] ...future.globalenv.names)) 1576s [00:52:56.685] else NULL, started = ...future.startTime, version = "1.8") 1576s [00:52:56.685] }, condition = base::local({ 1576s [00:52:56.685] c <- base::c 1576s [00:52:56.685] inherits <- base::inherits 1576s [00:52:56.685] invokeRestart <- base::invokeRestart 1576s [00:52:56.685] length <- base::length 1576s [00:52:56.685] list <- base::list 1576s [00:52:56.685] seq.int <- base::seq.int 1576s [00:52:56.685] signalCondition <- base::signalCondition 1576s [00:52:56.685] sys.calls <- base::sys.calls 1576s [00:52:56.685] `[[` <- base::`[[` 1576s [00:52:56.685] `+` <- base::`+` 1576s [00:52:56.685] `<<-` <- base::`<<-` 1576s [00:52:56.685] sysCalls <- function(calls = sys.calls(), from = 1L) { 1576s [00:52:56.685] calls[seq.int(from = from + 12L, to = length(calls) - 1576s [00:52:56.685] 3L)] 1576s [00:52:56.685] } 1576s [00:52:56.685] function(cond) { 1576s [00:52:56.685] is_error <- inherits(cond, "error") 1576s [00:52:56.685] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1576s [00:52:56.685] NULL) 1576s [00:52:56.685] if (is_error) { 1576s [00:52:56.685] sessionInformation <- function() { 1576s [00:52:56.685] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1576s [00:52:56.685] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1576s [00:52:56.685] search = base::search(), system = base::Sys.info()) 1576s [00:52:56.685] } 1576s [00:52:56.685] ...future.conditions[[length(...future.conditions) + 1576s [00:52:56.685] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1576s [00:52:56.685] cond$call), session = sessionInformation(), 1576s [00:52:56.685] timestamp = base::Sys.time(), signaled = 0L) 1576s [00:52:56.685] signalCondition(cond) 1576s [00:52:56.685] } 1576s [00:52:56.685] else if (!ignore && TRUE && inherits(cond, c("condition", 1576s [00:52:56.685] "immediateCondition"))) { 1576s [00:52:56.685] signal <- TRUE && inherits(cond, "immediateCondition") 1576s [00:52:56.685] ...future.conditions[[length(...future.conditions) + 1576s [00:52:56.685] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1576s [00:52:56.685] if (TRUE && !signal) { 1576s [00:52:56.685] muffleCondition <- function (cond, pattern = "^muffle") 1576s [00:52:56.685] { 1576s [00:52:56.685] inherits <- base::inherits 1576s [00:52:56.685] invokeRestart <- base::invokeRestart 1576s [00:52:56.685] is.null <- base::is.null 1576s [00:52:56.685] muffled <- FALSE 1576s [00:52:56.685] if (inherits(cond, "message")) { 1576s [00:52:56.685] muffled <- grepl(pattern, "muffleMessage") 1576s [00:52:56.685] if (muffled) 1576s [00:52:56.685] invokeRestart("muffleMessage") 1576s [00:52:56.685] } 1576s [00:52:56.685] else if (inherits(cond, "warning")) { 1576s [00:52:56.685] muffled <- grepl(pattern, "muffleWarning") 1576s [00:52:56.685] if (muffled) 1576s [00:52:56.685] invokeRestart("muffleWarning") 1576s [00:52:56.685] } 1576s [00:52:56.685] else if (inherits(cond, "condition")) { 1576s [00:52:56.685] if (!is.null(pattern)) { 1576s [00:52:56.685] computeRestarts <- base::computeRestarts 1576s [00:52:56.685] grepl <- base::grepl 1576s [00:52:56.685] restarts <- computeRestarts(cond) 1576s [00:52:56.685] for (restart in restarts) { 1576s [00:52:56.685] name <- restart$name 1576s [00:52:56.685] if (is.null(name)) 1576s [00:52:56.685] next 1576s [00:52:56.685] if (!grepl(pattern, name)) 1576s [00:52:56.685] next 1576s [00:52:56.685] invokeRestart(restart) 1576s [00:52:56.685] muffled <- TRUE 1576s [00:52:56.685] break 1576s [00:52:56.685] } 1576s [00:52:56.685] } 1576s [00:52:56.685] } 1576s [00:52:56.685] invisible(muffled) 1576s [00:52:56.685] } 1576s [00:52:56.685] muffleCondition(cond, pattern = "^muffle") 1576s [00:52:56.685] } 1576s [00:52:56.685] } 1576s [00:52:56.685] else { 1576s [00:52:56.685] if (TRUE) { 1576s [00:52:56.685] muffleCondition <- function (cond, pattern = "^muffle") 1576s [00:52:56.685] { 1576s [00:52:56.685] inherits <- base::inherits 1576s [00:52:56.685] invokeRestart <- base::invokeRestart 1576s [00:52:56.685] is.null <- base::is.null 1576s [00:52:56.685] muffled <- FALSE 1576s [00:52:56.685] if (inherits(cond, "message")) { 1576s [00:52:56.685] muffled <- grepl(pattern, "muffleMessage") 1576s [00:52:56.685] if (muffled) 1576s [00:52:56.685] invokeRestart("muffleMessage") 1576s [00:52:56.685] } 1576s [00:52:56.685] else if (inherits(cond, "warning")) { 1576s [00:52:56.685] muffled <- grepl(pattern, "muffleWarning") 1576s [00:52:56.685] if (muffled) 1576s [00:52:56.685] invokeRestart("muffleWarning") 1576s [00:52:56.685] } 1576s [00:52:56.685] else if (inherits(cond, "condition")) { 1576s [00:52:56.685] if (!is.null(pattern)) { 1576s [00:52:56.685] computeRestarts <- base::computeRestarts 1576s [00:52:56.685] grepl <- base::grepl 1576s [00:52:56.685] restarts <- computeRestarts(cond) 1576s [00:52:56.685] for (restart in restarts) { 1576s [00:52:56.685] name <- restart$name 1576s [00:52:56.685] if (is.null(name)) 1576s [00:52:56.685] next 1576s [00:52:56.685] if (!grepl(pattern, name)) 1576s [00:52:56.685] next 1576s [00:52:56.685] invokeRestart(restart) 1576s [00:52:56.685] muffled <- TRUE 1576s [00:52:56.685] break 1576s [00:52:56.685] } 1576s [00:52:56.685] } 1576s [00:52:56.685] } 1576s [00:52:56.685] invisible(muffled) 1576s [00:52:56.685] } 1576s [00:52:56.685] muffleCondition(cond, pattern = "^muffle") 1576s [00:52:56.685] } 1576s [00:52:56.685] } 1576s [00:52:56.685] } 1576s [00:52:56.685] })) 1576s [00:52:56.685] }, error = function(ex) { 1576s [00:52:56.685] base::structure(base::list(value = NULL, visible = NULL, 1576s [00:52:56.685] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1576s [00:52:56.685] ...future.rng), started = ...future.startTime, 1576s [00:52:56.685] finished = Sys.time(), session_uuid = NA_character_, 1576s [00:52:56.685] version = "1.8"), class = "FutureResult") 1576s [00:52:56.685] }, finally = { 1576s [00:52:56.685] if (!identical(...future.workdir, getwd())) 1576s [00:52:56.685] setwd(...future.workdir) 1576s [00:52:56.685] { 1576s [00:52:56.685] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1576s [00:52:56.685] ...future.oldOptions$nwarnings <- NULL 1576s [00:52:56.685] } 1576s [00:52:56.685] base::options(...future.oldOptions) 1576s [00:52:56.685] if (.Platform$OS.type == "windows") { 1576s [00:52:56.685] old_names <- names(...future.oldEnvVars) 1576s [00:52:56.685] envs <- base::Sys.getenv() 1576s [00:52:56.685] names <- names(envs) 1576s [00:52:56.685] common <- intersect(names, old_names) 1576s [00:52:56.685] added <- setdiff(names, old_names) 1576s [00:52:56.685] removed <- setdiff(old_names, names) 1576s [00:52:56.685] changed <- common[...future.oldEnvVars[common] != 1576s [00:52:56.685] envs[common]] 1576s [00:52:56.685] NAMES <- toupper(changed) 1576s [00:52:56.685] args <- list() 1576s [00:52:56.685] for (kk in seq_along(NAMES)) { 1576s [00:52:56.685] name <- changed[[kk]] 1576s [00:52:56.685] NAME <- NAMES[[kk]] 1576s [00:52:56.685] if (name != NAME && is.element(NAME, old_names)) 1576s [00:52:56.685] next 1576s [00:52:56.685] args[[name]] <- ...future.oldEnvVars[[name]] 1576s [00:52:56.685] } 1576s [00:52:56.685] NAMES <- toupper(added) 1576s [00:52:56.685] for (kk in seq_along(NAMES)) { 1576s [00:52:56.685] name <- added[[kk]] 1576s [00:52:56.685] NAME <- NAMES[[kk]] 1576s [00:52:56.685] if (name != NAME && is.element(NAME, old_names)) 1576s [00:52:56.685] next 1576s [00:52:56.685] args[[name]] <- "" 1576s [00:52:56.685] } 1576s [00:52:56.685] NAMES <- toupper(removed) 1576s [00:52:56.685] for (kk in seq_along(NAMES)) { 1576s [00:52:56.685] name <- removed[[kk]] 1576s [00:52:56.685] NAME <- NAMES[[kk]] 1576s [00:52:56.685] if (name != NAME && is.element(NAME, old_names)) 1576s [00:52:56.685] next 1576s [00:52:56.685] args[[name]] <- ...future.oldEnvVars[[name]] 1576s [00:52:56.685] } 1576s [00:52:56.685] if (length(args) > 0) 1576s [00:52:56.685] base::do.call(base::Sys.setenv, args = args) 1576s [00:52:56.685] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1576s [00:52:56.685] } 1576s [00:52:56.685] else { 1576s [00:52:56.685] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1576s [00:52:56.685] } 1576s [00:52:56.685] { 1576s [00:52:56.685] if (base::length(...future.futureOptionsAdded) > 1576s [00:52:56.685] 0L) { 1576s [00:52:56.685] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1576s [00:52:56.685] base::names(opts) <- ...future.futureOptionsAdded 1576s [00:52:56.685] base::options(opts) 1576s [00:52:56.685] } 1576s [00:52:56.685] { 1576s [00:52:56.685] { 1576s [00:52:56.685] NULL 1576s [00:52:56.685] RNGkind("Mersenne-Twister") 1576s [00:52:56.685] base::rm(list = ".Random.seed", envir = base::globalenv(), 1576s [00:52:56.685] inherits = FALSE) 1576s [00:52:56.685] } 1576s [00:52:56.685] options(future.plan = NULL) 1576s [00:52:56.685] if (is.na(NA_character_)) 1576s [00:52:56.685] Sys.unsetenv("R_FUTURE_PLAN") 1576s [00:52:56.685] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1576s [00:52:56.685] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1576s [00:52:56.685] envir = parent.frame()) 1576s [00:52:56.685] { 1576s [00:52:56.685] default_workers <- missing(workers) 1576s [00:52:56.685] if (is.function(workers)) 1576s [00:52:56.685] workers <- workers() 1576s [00:52:56.685] workers <- structure(as.integer(workers), 1576s [00:52:56.685] class = class(workers)) 1576s [00:52:56.685] stop_if_not(is.finite(workers), workers >= 1576s [00:52:56.685] 1L) 1576s [00:52:56.685] if ((workers == 1L && !inherits(workers, 1576s [00:52:56.685] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1576s [00:52:56.685] if (default_workers) 1576s [00:52:56.685] supportsMulticore(warn = TRUE) 1576s [00:52:56.685] return(sequential(..., envir = envir)) 1576s [00:52:56.685] } 1576s [00:52:56.685] oopts <- options(mc.cores = workers) 1576s [00:52:56.685] on.exit(options(oopts)) 1576s [00:52:56.685] future <- MulticoreFuture(..., workers = workers, 1576s [00:52:56.685] envir = envir) 1576s [00:52:56.685] if (!future$lazy) 1576s [00:52:56.685] future <- run(future) 1576s [00:52:56.685] invisible(future) 1576s [00:52:56.685] }), .cleanup = FALSE, .init = FALSE) 1576s [00:52:56.685] } 1576s [00:52:56.685] } 1576s [00:52:56.685] } 1576s [00:52:56.685] }) 1576s [00:52:56.685] if (TRUE) { 1576s [00:52:56.685] base::sink(type = "output", split = FALSE) 1576s [00:52:56.685] if (TRUE) { 1576s [00:52:56.685] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1576s [00:52:56.685] } 1576s [00:52:56.685] else { 1576s [00:52:56.685] ...future.result["stdout"] <- base::list(NULL) 1576s [00:52:56.685] } 1576s [00:52:56.685] base::close(...future.stdout) 1576s [00:52:56.685] ...future.stdout <- NULL 1576s [00:52:56.685] } 1576s [00:52:56.685] ...future.result$conditions <- ...future.conditions 1576s [00:52:56.685] ...future.result$finished <- base::Sys.time() 1576s [00:52:56.685] ...future.result 1576s [00:52:56.685] } 1576s [00:52:56.691] assign_globals() ... 1576s [00:52:56.691] List of 5 1576s [00:52:56.691] $ ...future.FUN :function (x, ...) 1576s [00:52:56.691] $ future.call.arguments : list() 1576s [00:52:56.691] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1576s [00:52:56.691] $ ...future.elements_ii :List of 3 1576s [00:52:56.691] ..$ : chr "a" 1576s [00:52:56.691] ..$ : chr "b" 1576s [00:52:56.691] ..$ : chr "c" 1576s [00:52:56.691] $ ...future.seeds_ii : NULL 1576s [00:52:56.691] $ ...future.globals.maxSize: NULL 1576s [00:52:56.691] - attr(*, "where")=List of 5 1576s [00:52:56.691] ..$ ...future.FUN : 1576s [00:52:56.691] ..$ future.call.arguments : 1576s [00:52:56.691] ..$ ...future.elements_ii : 1576s [00:52:56.691] ..$ ...future.seeds_ii : 1576s [00:52:56.691] ..$ ...future.globals.maxSize: 1576s [00:52:56.691] - attr(*, "resolved")= logi FALSE 1576s [00:52:56.691] - attr(*, "total_size")= num 1248 1576s [00:52:56.691] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1576s [00:52:56.691] - attr(*, "already-done")= logi TRUE 1576s [00:52:56.701] - copied ‘...future.FUN’ to environment 1576s [00:52:56.701] - copied ‘future.call.arguments’ to environment 1576s [00:52:56.702] - copied ‘...future.elements_ii’ to environment 1576s [00:52:56.702] - copied ‘...future.seeds_ii’ to environment 1576s [00:52:56.702] - copied ‘...future.globals.maxSize’ to environment 1576s [00:52:56.702] assign_globals() ... done 1576s [00:52:56.703] plan(): Setting new future strategy stack: 1576s [00:52:56.703] List of future strategies: 1576s [00:52:56.703] 1. sequential: 1576s [00:52:56.703] - args: function (..., envir = parent.frame()) 1576s [00:52:56.703] - tweaked: FALSE 1576s [00:52:56.703] - call: NULL 1576s [00:52:56.704] plan(): nbrOfWorkers() = 1 1576s [00:52:56.705] plan(): Setting new future strategy stack: 1576s [00:52:56.705] List of future strategies: 1576s [00:52:56.705] 1. multicore: 1576s [00:52:56.705] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1576s [00:52:56.705] - tweaked: FALSE 1576s [00:52:56.705] - call: plan(strategy) 1576s [00:52:56.709] plan(): nbrOfWorkers() = 1 1576s [00:52:56.709] SequentialFuture started (and completed) 1576s [00:52:56.709] - Launch lazy future ... done 1576s [00:52:56.709] run() for ‘SequentialFuture’ ... done 1576s [00:52:56.710] Created future: 1576s [00:52:56.710] SequentialFuture: 1576s [00:52:56.710] Label: ‘future_sapply-1’ 1576s [00:52:56.710] Expression: 1576s [00:52:56.710] { 1576s [00:52:56.710] do.call(function(...) { 1576s [00:52:56.710] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1576s [00:52:56.710] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1576s [00:52:56.710] ooListpts <- options(future.globals.maxSize = ...future.globals.maxSize) 1576s [00:52:56.710] on.exit(options(oopts), add = TRUE) 1576s [00:52:56.710] } 1576s [00:52:56.710] { 1576s [00:52:56.710] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1576s [00:52:56.710] ...future.X_jj <- ...future.elements_ii[[jj]] 1576s [00:52:56.710] ...future.FUN(...future.X_jj, ...) 1576s [00:52:56.710] }) 1576s [00:52:56.710] } 1576s [00:52:56.710] }, args = future.call.arguments) 1576s [00:52:56.710] } 1576s [00:52:56.710] Lazy evaluation: FALSE 1576s [00:52:56.710] Asynchronous evaluation: FALSE 1576s [00:52:56.710] Local evaluation: TRUE 1576s [00:52:56.710] Environment: R_GlobalEnv 1576s [00:52:56.710] Capture standard output: TRUE 1576s [00:52:56.710] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1576s [00:52:56.710] Globals: 5 objects totaling 1.55 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1576s [00:52:56.710] Packages: 1576s [00:52:56.710] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1576s [00:52:56.710] Resolved: TRUE 1576s [00:52:56.710] Value: 840 bytes of class ‘list’ 1576s [00:52:56.710] Early signaling: FALSE 1576s [00:52:56.710] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1576s [00:52:56.710] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1576s [00:52:56.711] Chunk #1 of 1 ... DONE 1576s [00:52:56.711] Launching 1 futures (chunks) ... DONE 1576s [00:52:56.711] Resolving 1 futures (chunks) ... 1576s [00:52:56.712] resolve() on list ... 1576s [00:52:56.712] recursive: 0 1576s [00:52:56.712] length: 1 1576s [00:52:56.712] 1576s [00:52:56.712] resolved() for ‘SequentialFuture’ ... 1576s [00:52:56.712] - state: ‘finished’ 1576s [00:52:56.712] - run: TRUE 1576s [00:52:56.712] - result: ‘FutureResult’ 1576s [00:52:56.713] resolved() for ‘SequentialFuture’ ... done 1576s [00:52:56.713] Future #1 1576s [00:52:56.713] signalConditionsASAP(SequentialFuture, pos=1) ... 1576s [00:52:56.713] - nx: 1 1576s [00:52:56.713] - relay: TRUE 1576s [00:52:56.713] - stdout: TRUE 1576s [00:52:56.713] - signal: TRUE 1576s [00:52:56.713] - resignal: FALSE 1576s [00:52:56.713] - force: TRUE 1576s [00:52:56.714] - relayed: [n=1] FALSE 1576s [00:52:56.714] - queued futures: [n=1] FALSE 1576s [00:52:56.714] - until=1 1576s [00:52:56.714] - relaying element #1 1576s [00:52:56.714] - relayed: [n=1] TRUE 1576s [00:52:56.714] - queued futures: [n=1] TRUE 1576s [00:52:56.714] signalConditionsASAP(SequentialFuture, pos=1) ... done 1576s [00:52:56.715] length: 0 (resolved future 1) 1576s [00:52:56.715] Relaying remaining futures 1576s [00:52:56.715] signalConditionsASAP(NULL, pos=0) ... 1576s [00:52:56.715] - nx: 1 1576s [00:52:56.715] - relay: TRUE 1576s [00:52:56.715] - stdout: TRUE 1576s [00:52:56.716] - signal: TRUE 1576s [00:52:56.716] - resignal: FALSE 1576s [00:52:56.716] - force: TRUE 1576s [00:52:56.716] - relayed: [n=1] TRUE 1576s [00:52:56.716] - queued futures: [n=1] TRUE 1576s - flush all 1576s [00:52:56.716] - relayed: [n=1] TRUE 1576s [00:52:56.716] - queued futures: [n=1] TRUE 1576s [00:52:56.717] signalConditionsASAP(NULL, pos=0) ... done 1576s [00:52:56.717] resolve() on list ... DONE 1576s [00:52:56.717] - Number of value chunks collected: 1 1576s [00:52:56.717] Resolving 1 futures (chunks) ... DONE 1576s [00:52:56.717] Reducing values from 1 chunks ... 1576s [00:52:56.718] - Number of values collected after concatenation: 3 1576s [00:52:56.718] - Number of values expected: 3 1576s [00:52:56.718] Reducing values from 1 chunks ... DONE 1576s [00:52:56.718] future_lapply() ... DONE 1576s of 2 1576s $ y0: chr [1:3] "a" "b" "c" 1576s $ y1: chr [1:3] "a" "b" "c" 1576s [00:52:56.720] future_lapply() ... 1576s [00:52:56.725] Number of chunks: 1 1576s [00:52:56.725] getGlobalsAndPackagesXApply() ... 1576s [00:52:56.726] - future.globals: TRUE 1576s [00:52:56.726] getGlobalsAndPackages() ... 1576s [00:52:56.726] Searching for globals... 1576s [00:52:56.728] - globals found: [1] ‘FUN’ 1576s [00:52:56.728] Searching for globals ... DONE 1576s [00:52:56.728] Resolving globals: FALSE 1576s [00:52:56.728] The total size of the 1 globals is 848 bytes (848 bytes) 1576s [00:52:56.729] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1576s [00:52:56.729] - globals: [1] ‘FUN’ 1576s [00:52:56.729] 1576s [00:52:56.730] getGlobalsAndPackages() ... DONE 1576s [00:52:56.730] - globals found/used: [n=1] ‘FUN’ 1576s [00:52:56.731] - needed namespaces: [n=0] 1576s [00:52:56.731] Finding globals ... DONE 1576s [00:52:56.731] - use_args: TRUE 1576s [00:52:56.731] - Getting '...' globals ... 1576s [00:52:56.732] resolve() on list ... 1576s [00:52:56.732] recursive: 0 1576s [00:52:56.733] length: 1 1576s [00:52:56.733] elements: ‘...’ 1576s [00:52:56.733] length: 0 (resolved future 1) 1576s [00:52:56.733] resolve() on list ... DONE 1576s [00:52:56.733] - '...' content: [n=0] 1576s [00:52:56.734] List of 1 1576s [00:52:56.734] $ ...: list() 1576s [00:52:56.734] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1576s [00:52:56.734] - attr(*, "where")=List of 1 1576s [00:52:56.734] ..$ ...: 1576s [00:52:56.734] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1576s [00:52:56.734] - attr(*, "resolved")= logi TRUE 1576s [00:52:56.734] - attr(*, "total_size")= num NA 1576s [00:52:56.738] - Getting '...' globals ... DONE 1576s [00:52:56.738] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1576s [00:52:56.739] List of 2 1576s [00:52:56.739] $ ...future.FUN:function (x) 1576s [00:52:56.739] $ ... : list() 1576s [00:52:56.739] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1576s [00:52:56.739] - attr(*, "where")=List of 2 1576s [00:52:56.739] ..$ ...future.FUN: 1576s [00:52:56.739] ..$ ... : 1576s [00:52:56.739] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1576s [00:52:56.739] - attr(*, "resolved")= logi FALSE 1576s [00:52:56.739] - attr(*, "total_size")= num 848 1576s [00:52:56.743] Packages to be attached in all futures: [n=0] 1576s [00:52:56.743] getGlobalsAndPackagesXApply() ... DONE 1576s [00:52:56.744] Number of futures (= number of chunks): 1 1576s [00:52:56.744] Launching 1 futures (chunks) ... 1576s [00:52:56.744] Chunk #1 of 1 ... 1576s [00:52:56.744] - Finding globals in 'X' for chunk #1 ... 1576s [00:52:56.744] getGlobalsAndPackages() ... 1576s [00:52:56.744] Searching for globals... 1576s [00:52:56.745] 1576s [00:52:56.745] Searching for globals ... DONE 1576s [00:52:56.745] - globals: [0] 1576s [00:52:56.745] getGlobalsAndPackages() ... DONE 1576s [00:52:56.745] + additional globals found: [n=0] 1576s [00:52:56.746] + additional namespaces needed: [n=0] 1576s [00:52:56.746] - Finding globals in 'X' for chunk #1 ... DONE 1576s [00:52:56.746] - seeds: 1576s [00:52:56.746] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1576s [00:52:56.746] getGlobalsAndPackages() ... 1576s [00:52:56.746] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1576s [00:52:56.747] Resolving globals: FALSE 1576s [00:52:56.747] Tweak future expression to call with '...' arguments ... 1576s [00:52:56.747] { 1576s [00:52:56.747] do.call(function(...) { 1576s [00:52:56.747] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1576s [00:52:56.747] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1576s [00:52:56.747] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1576s [00:52:56.747] on.exit(options(oopts), add = TRUE) 1576s [00:52:56.747] } 1576s [00:52:56.747] { 1576s [00:52:56.747] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1576s [00:52:56.747] ...future.X_jj <- ...future.elements_ii[[jj]] 1576s [00:52:56.747] ...future.FUN(...future.X_jj, ...) 1576s [00:52:56.747] }) 1576s [00:52:56.747] } 1576s [00:52:56.747] }, args = future.call.arguments) 1576s [00:52:56.747] } 1576s [00:52:56.748] Tweak future expression to call with '...' arguments ... DONE 1576s [00:52:56.748] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1576s [00:52:56.748] 1576s [00:52:56.748] getGlobalsAndPackages() ... DONE 1576s [00:52:56.749] run() for ‘Future’ ... 1576s [00:52:56.749] - state: ‘created’ 1576s [00:52:56.749] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1576s [00:52:56.754] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1576s [00:52:56.754] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1576s [00:52:56.755] - Field: ‘label’ 1576s [00:52:56.755] - Field: ‘local’ 1576s [00:52:56.755] - Field: ‘owner’ 1576s [00:52:56.755] - Field: ‘envir’ 1576s [00:52:56.755] - Field: ‘packages’ 1576s [00:52:56.755] - Field: ‘gc’ 1576s [00:52:56.756] - Field: ‘conditions’ 1576s [00:52:56.756] - Field: ‘expr’ 1576s [00:52:56.756] - Field: ‘uuid’ 1576s [00:52:56.756] - Field: ‘seed’ 1576s [00:52:56.756] - Field: ‘version’ 1576s [00:52:56.756] - Field: ‘result’ 1576s [00:52:56.757] - Field: ‘asynchronous’ 1576s [00:52:56.757] - Field: ‘calls’ 1576s [00:52:56.757] - Field: ‘globals’ 1576s [00:52:56.757] - Field: ‘stdout’ 1576s [00:52:56.758] - Field: ‘earlySignal’ 1576s [00:52:56.758] - Field: ‘lazy’ 1576s [00:52:56.758] - Field: ‘state’ 1576s [00:52:56.758] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1576s [00:52:56.758] - Launch lazy future ... 1576s [00:52:56.759] Packages needed by the future expression (n = 0): 1576s [00:52:56.759] Packages needed by future strategies (n = 0): 1576s [00:52:56.759] { 1576s [00:52:56.759] { 1576s [00:52:56.759] { 1576s [00:52:56.759] ...future.startTime <- base::Sys.time() 1576s [00:52:56.759] { 1576s [00:52:56.759] { 1576s [00:52:56.759] { 1576s [00:52:56.759] base::local({ 1576s [00:52:56.759] has_future <- base::requireNamespace("future", 1576s [00:52:56.759] quietly = TRUE) 1576s [00:52:56.759] if (has_future) { 1576s [00:52:56.759] ns <- base::getNamespace("future") 1576s [00:52:56.759] version <- ns[[".package"]][["version"]] 1576s [00:52:56.759] if (is.null(version)) 1576s [00:52:56.759] version <- utils::packageVersion("future") 1576s [00:52:56.759] } 1576s [00:52:56.759] else { 1576s [00:52:56.759] version <- NULL 1576s [00:52:56.759] } 1576s [00:52:56.759] if (!has_future || version < "1.8.0") { 1576s [00:52:56.759] info <- base::c(r_version = base::gsub("R version ", 1576s [00:52:56.759] "", base::R.version$version.string), 1576s [00:52:56.759] platform = base::sprintf("%s (%s-bit)", 1576s [00:52:56.759] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1576s [00:52:56.759] os = base::paste(base::Sys.info()[base::c("sysname", 1576s [00:52:56.759] "release", "version")], collapse = " "), 1576s [00:52:56.759] hostname = base::Sys.info()[["nodename"]]) 1576s [00:52:56.759] info <- base::sprintf("%s: %s", base::names(info), 1576s [00:52:56.759] info) 1576s [00:52:56.759] info <- base::paste(info, collapse = "; ") 1576s [00:52:56.759] if (!has_future) { 1576s [00:52:56.759] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1576s [00:52:56.759] info) 1576s [00:52:56.759] } 1576s [00:52:56.759] else { 1576s [00:52:56.759] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1576s [00:52:56.759] info, version) 1576s [00:52:56.759] } 1576s [00:52:56.759] base::stop(msg) 1576s [00:52:56.759] } 1576s [00:52:56.759] }) 1576s [00:52:56.759] } 1576s [00:52:56.759] options(future.plan = NULL) 1576s [00:52:56.759] Sys.unsetenv("R_FUTURE_PLAN") 1576s [00:52:56.759] future::plan("default", .cleanup = FALSE, .init = FALSE) 1576s [00:52:56.759] } 1576s [00:52:56.759] ...future.workdir <- getwd() 1576s [00:52:56.759] } 1576s [00:52:56.759] ...future.oldOptions <- base::as.list(base::.Options) 1576s [00:52:56.759] ...future.oldEnvVars <- base::Sys.getenv() 1576s [00:52:56.759] } 1576s [00:52:56.759] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1576s [00:52:56.759] future.globals.maxSize = NULL, future.globals.method = NULL, 1576s [00:52:56.759] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1576s [00:52:56.759] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1576s [00:52:56.759] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1576s [00:52:56.759] future.stdout.windows.reencode = NULL, width = 80L) 1576s [00:52:56.759] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1576s [00:52:56.759] base::names(...future.oldOptions)) 1576s [00:52:56.759] } 1576s [00:52:56.759] if (FALSE) { 1576s [00:52:56.759] } 1576s [00:52:56.759] else { 1576s [00:52:56.759] if (TRUE) { 1576s [00:52:56.759] ...future.stdout <- base::rawConnection(base::raw(0L), 1576s [00:52:56.759] open = "w") 1576s [00:52:56.759] } 1576s [00:52:56.759] else { 1576s [00:52:56.759] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1576s [00:52:56.759] windows = "NUL", "/dev/null"), open = "w") 1576s [00:52:56.759] } 1576s [00:52:56.759] base::sink(...future.stdout, type = "output", split = FALSE) 1576s [00:52:56.759] base::on.exit(if (!base::is.null(...future.stdout)) { 1576s [00:52:56.759] base::sink(type = "output", split = FALSE) 1576s [00:52:56.759] base::close(...future.stdout) 1576s [00:52:56.759] }, add = TRUE) 1576s [00:52:56.759] } 1576s [00:52:56.759] ...future.frame <- base::sys.nframe() 1576s [00:52:56.759] ...future.conditions <- base::list() 1576s [00:52:56.759] ...future.rng <- base::globalenv()$.Random.seed 1576s [00:52:56.759] if (FALSE) { 1576s [00:52:56.759] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1576s [00:52:56.759] "...future.value", "...future.globalenv.names", ".Random.seed") 1576s [00:52:56.759] } 1576s [00:52:56.759] ...future.result <- base::tryCatch({ 1576s [00:52:56.759] base::withCallingHandlers({ 1576s [00:52:56.759] ...future.value <- base::withVisible(base::local({ 1576s [00:52:56.759] do.call(function(...) { 1576s [00:52:56.759] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1576s [00:52:56.759] if (!identical(...future.globals.maxSize.org, 1576s [00:52:56.759] ...future.globals.maxSize)) { 1576s [00:52:56.759] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1576s [00:52:56.759] on.exit(options(oopts), add = TRUE) 1576s [00:52:56.759] } 1576s [00:52:56.759] { 1576s [00:52:56.759] lapply(seq_along(...future.elements_ii), 1576s [00:52:56.759] FUN = function(jj) { 1576s [00:52:56.759] ...future.X_jj <- ...future.elements_ii[[jj]] 1576s [00:52:56.759] ...future.FUN(...future.X_jj, ...) 1576s [00:52:56.759] }) 1576s [00:52:56.759] } 1576s [00:52:56.759] }, args = future.call.arguments) 1576s [00:52:56.759] })) 1576s [00:52:56.759] future::FutureResult(value = ...future.value$value, 1576s [00:52:56.759] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1576s [00:52:56.759] ...future.rng), globalenv = if (FALSE) 1576s [00:52:56.759] list(added = base::setdiff(base::names(base::.GlobalEnv), 1576s [00:52:56.759] ...future.globalenv.names)) 1576s [00:52:56.759] else NULL, started = ...future.startTime, version = "1.8") 1576s [00:52:56.759] }, condition = base::local({ 1576s [00:52:56.759] c <- base::c 1576s [00:52:56.759] inherits <- base::inherits 1576s [00:52:56.759] invokeRestart <- base::invokeRestart 1576s [00:52:56.759] length <- base::length 1576s [00:52:56.759] list <- base::list 1576s [00:52:56.759] seq.int <- base::seq.int 1576s [00:52:56.759] signalCondition <- base::signalCondition 1576s [00:52:56.759] sys.calls <- base::sys.calls 1576s [00:52:56.759] `[[` <- base::`[[` 1576s [00:52:56.759] `+` <- base::`+` 1576s [00:52:56.759] `<<-` <- base::`<<-` 1576s [00:52:56.759] sysCalls <- function(calls = sys.calls(), from = 1L) { 1576s [00:52:56.759] calls[seq.int(from = from + 12L, to = length(calls) - 1576s [00:52:56.759] 3L)] 1576s [00:52:56.759] } 1576s [00:52:56.759] function(cond) { 1576s [00:52:56.759] is_error <- inherits(cond, "error") 1576s [00:52:56.759] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1576s [00:52:56.759] NULL) 1576s [00:52:56.759] if (is_error) { 1576s [00:52:56.759] sessionInformation <- function() { 1576s [00:52:56.759] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1576s [00:52:56.759] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1576s [00:52:56.759] search = base::search(), system = base::Sys.info()) 1576s [00:52:56.759] } 1576s [00:52:56.759] ...future.conditions[[length(...future.conditions) + 1576s [00:52:56.759] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1576s [00:52:56.759] cond$call), session = sessionInformation(), 1576s [00:52:56.759] timestamp = base::Sys.time(), signaled = 0L) 1576s [00:52:56.759] signalCondition(cond) 1576s [00:52:56.759] } 1576s [00:52:56.759] else if (!ignore && TRUE && inherits(cond, c("condition", 1576s [00:52:56.759] "immediateCondition"))) { 1576s [00:52:56.759] signal <- TRUE && inherits(cond, "immediateCondition") 1576s [00:52:56.759] ...future.conditions[[length(...future.conditions) + 1576s [00:52:56.759] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1576s [00:52:56.759] if (TRUE && !signal) { 1576s [00:52:56.759] muffleCondition <- function (cond, pattern = "^muffle") 1576s [00:52:56.759] { 1576s [00:52:56.759] inherits <- base::inherits 1576s [00:52:56.759] invokeRestart <- base::invokeRestart 1576s [00:52:56.759] is.null <- base::is.null 1576s [00:52:56.759] muffled <- FALSE 1576s [00:52:56.759] if (inherits(cond, "message")) { 1576s [00:52:56.759] muffled <- grepl(pattern, "muffleMessage") 1576s [00:52:56.759] if (muffled) 1576s [00:52:56.759] invokeRestart("muffleMessage") 1576s [00:52:56.759] } 1576s [00:52:56.759] else if (inherits(cond, "warning")) { 1576s [00:52:56.759] muffled <- grepl(pattern, "muffleWarning") 1576s [00:52:56.759] if (muffled) 1576s [00:52:56.759] invokeRestart("muffleWarning") 1576s [00:52:56.759] } 1576s [00:52:56.759] else if (inherits(cond, "condition")) { 1576s [00:52:56.759] if (!is.null(pattern)) { 1576s [00:52:56.759] computeRestarts <- base::computeRestarts 1576s [00:52:56.759] grepl <- base::grepl 1576s [00:52:56.759] restarts <- computeRestarts(cond) 1576s [00:52:56.759] for (restart in restarts) { 1576s [00:52:56.759] name <- restart$name 1576s [00:52:56.759] if (is.null(name)) 1576s [00:52:56.759] next 1576s [00:52:56.759] if (!grepl(pattern, name)) 1576s [00:52:56.759] next 1576s [00:52:56.759] invokeRestart(restart) 1576s [00:52:56.759] muffled <- TRUE 1576s [00:52:56.759] break 1576s [00:52:56.759] } 1576s [00:52:56.759] } 1576s [00:52:56.759] } 1576s [00:52:56.759] invisible(muffled) 1576s [00:52:56.759] } 1576s [00:52:56.759] muffleCondition(cond, pattern = "^muffle") 1576s [00:52:56.759] } 1576s [00:52:56.759] } 1576s [00:52:56.759] else { 1576s [00:52:56.759] if (TRUE) { 1576s [00:52:56.759] muffleCondition <- function (cond, pattern = "^muffle") 1576s [00:52:56.759] { 1576s [00:52:56.759] inherits <- base::inherits 1576s [00:52:56.759] invokeRestart <- base::invokeRestart 1576s [00:52:56.759] is.null <- base::is.null 1576s [00:52:56.759] muffled <- FALSE 1576s [00:52:56.759] if (inherits(cond, "message")) { 1576s [00:52:56.759] muffled <- grepl(pattern, "muffleMessage") 1576s [00:52:56.759] if (muffled) 1576s [00:52:56.759] invokeRestart("muffleMessage") 1576s [00:52:56.759] } 1576s [00:52:56.759] else if (inherits(cond, "warning")) { 1576s [00:52:56.759] muffled <- grepl(pattern, "muffleWarning") 1576s [00:52:56.759] if (muffled) 1576s [00:52:56.759] invokeRestart("muffleWarning") 1576s [00:52:56.759] } 1576s [00:52:56.759] else if (inherits(cond, "condition")) { 1576s [00:52:56.759] if (!is.null(pattern)) { 1576s [00:52:56.759] computeRestarts <- base::computeRestarts 1576s [00:52:56.759] grepl <- base::grepl 1576s [00:52:56.759] restarts <- computeRestarts(cond) 1576s [00:52:56.759] for (restart in restarts) { 1576s [00:52:56.759] name <- restart$name 1576s [00:52:56.759] if (is.null(name)) 1576s [00:52:56.759] next 1576s [00:52:56.759] if (!grepl(pattern, name)) 1576s [00:52:56.759] next 1576s [00:52:56.759] invokeRestart(restart) 1576s [00:52:56.759] muffled <- TRUE 1576s [00:52:56.759] break 1576s [00:52:56.759] } 1576s [00:52:56.759] } 1576s [00:52:56.759] } 1576s [00:52:56.759] invisible(muffled) 1576s [00:52:56.759] } 1576s [00:52:56.759] muffleCondition(cond, pattern = "^muffle") 1576s [00:52:56.759] } 1576s [00:52:56.759] } 1576s [00:52:56.759] } 1576s [00:52:56.759] })) 1576s [00:52:56.759] }, error = function(ex) { 1576s [00:52:56.759] base::structure(base::list(value = NULL, visible = NULL, 1576s [00:52:56.759] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1576s [00:52:56.759] ...future.rng), started = ...future.startTime, 1576s [00:52:56.759] finished = Sys.time(), session_uuid = NA_character_, 1576s [00:52:56.759] version = "1.8"), class = "FutureResult") 1576s [00:52:56.759] }, finally = { 1576s [00:52:56.759] if (!identical(...future.workdir, getwd())) 1576s [00:52:56.759] setwd(...future.workdir) 1576s [00:52:56.759] { 1576s [00:52:56.759] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1576s [00:52:56.759] ...future.oldOptions$nwarnings <- NULL 1576s [00:52:56.759] } 1576s [00:52:56.759] base::options(...future.oldOptions) 1576s [00:52:56.759] if (.Platform$OS.type == "windows") { 1576s [00:52:56.759] old_names <- names(...future.oldEnvVars) 1576s [00:52:56.759] envs <- base::Sys.getenv() 1576s [00:52:56.759] names <- names(envs) 1576s [00:52:56.759] common <- intersect(names, old_names) 1576s [00:52:56.759] added <- setdiff(names, old_names) 1576s [00:52:56.759] removed <- setdiff(old_names, names) 1576s [00:52:56.759] changed <- common[...future.oldEnvVars[common] != 1576s [00:52:56.759] envs[common]] 1576s [00:52:56.759] NAMES <- toupper(changed) 1576s [00:52:56.759] args <- list() 1576s [00:52:56.759] for (kk in seq_along(NAMES)) { 1576s [00:52:56.759] name <- changed[[kk]] 1576s [00:52:56.759] NAME <- NAMES[[kk]] 1576s [00:52:56.759] if (name != NAME && is.element(NAME, old_names)) 1576s [00:52:56.759] next 1576s [00:52:56.759] args[[name]] <- ...future.oldEnvVars[[name]] 1576s [00:52:56.759] } 1576s [00:52:56.759] NAMES <- toupper(added) 1576s [00:52:56.759] for (kk in seq_along(NAMES)) { 1576s [00:52:56.759] name <- added[[kk]] 1576s [00:52:56.759] NAME <- NAMES[[kk]] 1576s [00:52:56.759] if (name != NAME && is.element(NAME, old_names)) 1576s [00:52:56.759] next 1576s [00:52:56.759] args[[name]] <- "" 1576s [00:52:56.759] } 1576s [00:52:56.759] NAMES <- toupper(removed) 1576s [00:52:56.759] for (kk in seq_along(NAMES)) { 1576s [00:52:56.759] name <- removed[[kk]] 1576s [00:52:56.759] NAME <- NAMES[[kk]] 1576s [00:52:56.759] if (name != NAME && is.element(NAME, old_names)) 1576s [00:52:56.759] next 1576s [00:52:56.759] args[[name]] <- ...future.oldEnvVars[[name]] 1576s [00:52:56.759] } 1576s [00:52:56.759] if (length(args) > 0) 1576s [00:52:56.759] base::do.call(base::Sys.setenv, args = args) 1576s [00:52:56.759] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1576s [00:52:56.759] } 1576s [00:52:56.759] else { 1576s [00:52:56.759] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1576s [00:52:56.759] } 1576s [00:52:56.759] { 1576s [00:52:56.759] if (base::length(...future.futureOptionsAdded) > 1576s [00:52:56.759] 0L) { 1576s [00:52:56.759] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1576s [00:52:56.759] base::names(opts) <- ...future.futureOptionsAdded 1576s [00:52:56.759] base::options(opts) 1576s [00:52:56.759] } 1576s [00:52:56.759] { 1576s [00:52:56.759] { 1576s [00:52:56.759] NULL 1576s [00:52:56.759] RNGkind("Mersenne-Twister") 1576s [00:52:56.759] base::rm(list = ".Random.seed", envir = base::globalenv(), 1576s [00:52:56.759] inherits = FALSE) 1576s [00:52:56.759] } 1576s [00:52:56.759] options(future.plan = NULL) 1576s [00:52:56.759] if (is.na(NA_character_)) 1576s [00:52:56.759] Sys.unsetenv("R_FUTURE_PLAN") 1576s [00:52:56.759] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1576s [00:52:56.759] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1576s [00:52:56.759] envir = parent.frame()) 1576s [00:52:56.759] { 1576s [00:52:56.759] default_workers <- missing(workers) 1576s [00:52:56.759] if (is.function(workers)) 1576s [00:52:56.759] workers <- workers() 1576s [00:52:56.759] workers <- structure(as.integer(workers), 1576s [00:52:56.759] class = class(workers)) 1576s [00:52:56.759] stop_if_not(is.finite(workers), workers >= 1576s [00:52:56.759] 1L) 1576s [00:52:56.759] if ((workers == 1L && !inherits(workers, 1576s [00:52:56.759] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1576s [00:52:56.759] if (default_workers) 1576s [00:52:56.759] supportsMulticore(warn = TRUE) 1576s [00:52:56.759] return(sequential(..., envir = envir)) 1576s [00:52:56.759] } 1576s [00:52:56.759] oopts <- options(mc.cores = workers) 1576s [00:52:56.759] on.exit(options(oopts)) 1576s [00:52:56.759] future <- MulticoreFuture(..., workers = workers, 1576s [00:52:56.759] envir = envir) 1576s [00:52:56.759] if (!future$lazy) 1576s [00:52:56.759] future <- run(future) 1576s [00:52:56.759] invisible(future) 1576s [00:52:56.759] }), .cleanup = FALSE, .init = FALSE) 1576s [00:52:56.759] } 1576s [00:52:56.759] } 1576s [00:52:56.759] } 1576s [00:52:56.759] }) 1576s [00:52:56.759] if (TRUE) { 1576s [00:52:56.759] base::sink(type = "output", split = FALSE) 1576s [00:52:56.759] if (TRUE) { 1576s [00:52:56.759] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1576s [00:52:56.759] } 1576s [00:52:56.759] else { 1576s [00:52:56.759] ...future.result["stdout"] <- base::list(NULL) 1576s [00:52:56.759] } 1576s [00:52:56.759] base::close(...future.stdout) 1576s [00:52:56.759] ...future.stdout <- NULL 1576s [00:52:56.759] } 1576s [00:52:56.759] ...future.result$conditions <- ...future.conditions 1576s [00:52:56.759] ...future.result$finished <- base::Sys.time() 1576s [00:52:56.759] ...future.result 1576s [00:52:56.759] } 1576s [00:52:56.767] assign_globals() ... 1576s [00:52:56.767] List of 5 1576s [00:52:56.767] $ ...future.FUN :function (x) 1576s [00:52:56.767] $ future.call.arguments : list() 1576s [00:52:56.767] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1576s [00:52:56.767] $ ...future.elements_ii :List of 3 1576s [00:52:56.767] ..$ : chr "a" 1576s [00:52:56.767] ..$ : chr "b" 1576s [00:52:56.767] ..$ : chr "c" 1576s [00:52:56.767] $ ...future.seeds_ii : NULL 1576s [00:52:56.767] $ ...future.globals.maxSize: NULL 1576s [00:52:56.767] - attr(*, "where")=List of 5 1576s [00:52:56.767] ..$ ...future.FUN : 1576s [00:52:56.767] ..$ future.call.arguments : 1576s [00:52:56.767] ..$ ...future.elements_ii : 1576s [00:52:56.767] ..$ ...future.seeds_ii : 1576s [00:52:56.767] ..$ ...future.globals.maxSize: 1576s [00:52:56.767] - attr(*, "resolved")= logi FALSE 1576s [00:52:56.767] - attr(*, "total_size")= num 848 1576s [00:52:56.767] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1576s [00:52:56.767] - attr(*, "already-done")= logi TRUE 1576s [00:52:56.777] - copied ‘...future.FUN’ to environment 1576s [00:52:56.777] - copied ‘future.call.arguments’ to environment 1576s [00:52:56.777] - copied ‘...future.elements_ii’ to environment 1576s [00:52:56.777] - copied ‘...future.seeds_ii’ to environment 1576s [00:52:56.778] - copied ‘...future.globals.maxSize’ to environment 1576s [00:52:56.778] assign_globals() ... done 1576s [00:52:56.778] plan(): Setting new future strategy stack: 1576s [00:52:56.778] List of future strategies: 1576s [00:52:56.778] 1. sequential: 1576s [00:52:56.778] - args: function (..., envir = parent.frame()) 1576s [00:52:56.778] - tweaked: FALSE 1576s [00:52:56.778] - call: NULL 1576s [00:52:56.779] plan(): nbrOfWorkers() = 1 1576s [00:52:56.780] plan(): Setting new future strategy stack: 1576s [00:52:56.781] List of future strategies: 1576s [00:52:56.781] 1. multicore: 1576s [00:52:56.781] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1576s [00:52:56.781] - tweaked: FALSE 1576s [00:52:56.781] - call: plan(strategy) 1576s [00:52:56.788] plan(): nbrOfWorkers() = 1 1576s [00:52:56.788] SequentialFuture started (and completed) 1576s [00:52:56.789] - Launch lazy future ... done 1576s [00:52:56.789] run() for ‘SequentialFuture’ ... done 1576s [00:52:56.789] Created future: 1576s [00:52:56.789] SequentialFuture: 1576s [00:52:56.789] Label: ‘future_sapply-1’ 1576s [00:52:56.789] Expression: 1576s [00:52:56.789] { 1576s [00:52:56.789] do.call(function(...) { 1576s [00:52:56.789] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1576s [00:52:56.789] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1576s [00:52:56.789] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1576s [00:52:56.789] on.exit(options(oopts), add = TRUE) 1576s [00:52:56.789] } 1576s [00:52:56.789] { 1576s [00:52:56.789] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1576s [00:52:56.789] ...future.X_jj <- ...future.elements_ii[[jj]] 1576s [00:52:56.789] ...future.FUN(...future.X_jj, ...) 1576s [00:52:56.789] }) 1576s [00:52:56.789] } 1576s [00:52:56.789] }, args = future.call.arguments) 1576s [00:52:56.789] } 1576s [00:52:56.789] Lazy evaluation: FALSE 1576s [00:52:56.789] Asynchronous evaluation: FALSE 1576s [00:52:56.789] Local evaluation: TRUE 1576s [00:52:56.789] Environment: R_GlobalEnv 1576s [00:52:56.789] Capture standard output: TRUE 1576s [00:52:56.789] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1576s [00:52:56.789] Globals: 5 objects totaling 1.16 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1576s [00:52:56.789] Packages: 1576s [00:52:56.789] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1576s [00:52:56.789] Resolved: TRUE 1576s [00:52:56.789] Value: 336 bytes of class ‘list’ 1576s [00:52:56.789] Early signaling: FALSE 1576s [00:52:56.789] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1576s [00:52:56.789] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1576s [00:52:56.792] Chunk #1 of 1 ... DONE 1576s [00:52:56.792] Launching 1 futures (chunks) ... DONE 1576s [00:52:56.792] Resolving 1 futures (chunks) ... 1576s [00:52:56.792] resolve() on list ... 1576s [00:52:56.792] recursive: 0 1576s [00:52:56.792] length: 1 1576s [00:52:56.793] 1576s [00:52:56.793] resolved() for ‘SequentialFuture’ ... 1576s [00:52:56.793] - state: ‘finished’ 1576s [00:52:56.793] - run: TRUE 1576s [00:52:56.793] - result: ‘FutureResult’ 1576s [00:52:56.793] resolved() for ‘SequentialFuture’ ... done 1576s [00:52:56.794] Future #1 1576s [00:52:56.794] signalConditionsASAP(SequentialFuture, pos=1) ... 1576s [00:52:56.794] - nx: 1 1576s [00:52:56.794] - relay: TRUE 1576s [00:52:56.794] - stdout: TRUE 1576s [00:52:56.794] - signal: TRUE 1576s [00:52:56.794] - resignal: FALSE 1576s [00:52:56.794] - force: TRUE 1576s [00:52:56.794] - relayed: [n=1] FALSE 1576s [00:52:56.795] - queued futures: [n=1] FALSE 1576s [00:52:56.795] - until=1 1576s [00:52:56.795] - relaying element #1 1576s [00:52:56.795] - relayed: [n=1] TRUE 1576s [00:52:56.795] - queued futures: [n=1] TRUE 1576s [00:52:56.795] signalConditionsASAP(SequentialFuture, pos=1) ... done 1576s [00:52:56.795] length: 0 (resolved future 1) 1576s [00:52:56.796] Relaying remaining futures 1576s [00:52:56.796] signalConditionsASAP(NULL, pos=0) ... 1576s [00:52:56.796] - nx: 1 1576s [00:52:56.796] - relay: TRUE 1576s [00:52:56.796] - stdout: TRUE 1576s [00:52:56.796] - signal: TRUE 1576s [00:52:56.796] - resignal: FALSE 1576s [00:52:56.796] - force: TRUE 1576s [00:52:56.796] - relayed: [n=1] TRUE 1576s [00:52:56.796] - queued futures: [n=1] TRUE 1576s - flush all 1576s [00:52:56.797] - relayed: [n=1] TRUE 1576s [00:52:56.797] - queued futures: [n=1] TRUE 1576s [00:52:56.797] signalConditionsASAP(NULL, pos=0) ... done 1576s [00:52:56.797] resolve() on list ... DONE 1576s [00:52:56.797] - Number of value chunks collected: 1 1576s [00:52:56.797] Resolving 1 futures (chunks) ... DONE 1576s [00:52:56.797] Reducing values from 1 chunks ... 1576s [00:52:56.798] - Number of values collected after concatenation: 3 1576s [00:52:56.798] - Number of values expected: 3 1576s [00:52:56.798] Reducing values from 1 chunks ... DONE 1576s [00:52:56.798] future_lapply() ... DONE 1576s List of 2 1576s $ y0:List of 3 1576s ..$ a: chr "a" 1576s ..$ b: chr "b" 1576s ..$ c: chr "c" 1576s $ y1:List of 3 1576s ..$ a: chr "a" 1576s ..$ b: chr "b" 1576s ..$ c: chr "c" 1576s List of 2 1576s $ y0:List of 3 1576s ..$ a: chr "a" 1576s ..$ b: chr "b" 1576s ..$ c: chr "c" 1576s $ y2:List of 3 1576s ..$ : chr "a" 1576s ..$ : chr "b" 1576s ..$ : chr "c" 1576s [00:52:56.808] future_lapply() ... 1576s [00:52:56.813] Number of chunks: 1 1576s [00:52:56.813] getGlobalsAndPackagesXApply() ... 1576s [00:52:56.814] - future.globals: TRUE 1576s [00:52:56.814] getGlobalsAndPackages() ... 1576s [00:52:56.814] Searching for globals... 1576s [00:52:56.816] - globals found: [2] ‘FUN’, ‘UseMethod’ 1576s [00:52:56.816] Searching for globals ... DONE 1576s [00:52:56.816] Resolving globals: FALSE 1576s [00:52:56.817] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1576s [00:52:56.817] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1576s [00:52:56.818] - globals: [1] ‘FUN’ 1576s [00:52:56.818] 1576s [00:52:56.818] getGlobalsAndPackages() ... DONE 1576s [00:52:56.818] - globals found/used: [n=1] ‘FUN’ 1576s [00:52:56.819] - needed namespaces: [n=0] 1576s [00:52:56.819] Finding globals ... DONE 1576s [00:52:56.819] - use_args: TRUE 1576s [00:52:56.819] - Getting '...' globals ... 1576s [00:52:56.820] resolve() on list ... 1576s [00:52:56.820] recursive: 0 1576s [00:52:56.820] length: 1 1576s [00:52:56.821] elements: ‘...’ 1576s [00:52:56.821] length: 0 (resolved future 1) 1576s [00:52:56.821] resolve() on list ... DONE 1576s [00:52:56.821] - '...' content: [n=0] 1576s [00:52:56.822] List of 1 1576s [00:52:56.822] $ ...: list() 1576s [00:52:56.822] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1576s [00:52:56.822] - attr(*, "where")=List of 1 1576s [00:52:56.822] ..$ ...: 1576s [00:52:56.822] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1576s [00:52:56.822] - attr(*, "resolved")= logi TRUE 1576s [00:52:56.822] - attr(*, "total_size")= num NA 1576s [00:52:56.825] - Getting '...' globals ... DONE 1576s [00:52:56.825] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1576s [00:52:56.826] List of 2 1576s [00:52:56.826] $ ...future.FUN:function (x, ...) 1576s [00:52:56.826] $ ... : list() 1576s [00:52:56.826] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1576s [00:52:56.826] - attr(*, "where")=List of 2 1576s [00:52:56.826] ..$ ...future.FUN: 1576s [00:52:56.826] ..$ ... : 1576s [00:52:56.826] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1576s [00:52:56.826] - attr(*, "resolved")= logi FALSE 1576s [00:52:56.826] - attr(*, "total_size")= num 1248 1576s [00:52:56.829] Packages to be attached in all futures: [n=0] 1576s [00:52:56.829] getGlobalsAndPackagesXApply() ... DONE 1576s [00:52:56.830] Number of futures (= number of chunks): 1 1576s [00:52:56.830] Launching 1 futures (chunks) ... 1576s [00:52:56.830] Chunk #1 of 1 ... 1576s [00:52:56.830] - Finding globals in 'X' for chunk #1 ... 1576s [00:52:56.831] getGlobalsAndPackages() ... 1576s [00:52:56.831] Searching for globals... 1576s [00:52:56.831] 1576s [00:52:56.831] Searching for globals ... DONE 1576s [00:52:56.831] - globals: [0] 1576s [00:52:56.832] getGlobalsAndPackages() ... DONE 1576s [00:52:56.832] + additional globals found: [n=0] 1576s [00:52:56.832] + additional namespaces needed: [n=0] 1576s [00:52:56.832] - Finding globals in 'X' for chunk #1 ... DONE 1576s [00:52:56.832] - seeds: 1576s [00:52:56.832] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1576s [00:52:56.833] getGlobalsAndPackages() ... 1576s [00:52:56.833] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1576s [00:52:56.833] Resolving globals: FALSE 1576s [00:52:56.833] Tweak future expression to call with '...' arguments ... 1576s [00:52:56.834] { 1576s [00:52:56.834] do.call(function(...) { 1576s [00:52:56.834] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1576s [00:52:56.834] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1576s [00:52:56.834] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1576s [00:52:56.834] on.exit(options(oopts), add = TRUE) 1576s [00:52:56.834] } 1576s [00:52:56.834] { 1576s [00:52:56.834] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1576s [00:52:56.834] ...future.X_jj <- ...future.elements_ii[[jj]] 1576s [00:52:56.834] ...future.FUN(...future.X_jj, ...) 1576s [00:52:56.834] }) 1576s [00:52:56.834] } 1576s [00:52:56.834] }, args = future.call.arguments) 1576s [00:52:56.834] } 1576s [00:52:56.834] Tweak future expression to call with '...' arguments ... DONE 1576s [00:52:56.835] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1576s [00:52:56.835] 1576s [00:52:56.835] getGlobalsAndPackages() ... DONE 1576s [00:52:56.836] run() for ‘Future’ ... 1576s [00:52:56.836] - state: ‘created’ 1576s [00:52:56.836] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1576s [00:52:56.839] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1576s [00:52:56.839] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1576s [00:52:56.840] - Field: ‘label’ 1576s [00:52:56.840] - Field: ‘local’ 1576s [00:52:56.840] - Field: ‘owner’ 1576s [00:52:56.840] - Field: ‘envir’ 1576s [00:52:56.840] - Field: ‘packages’ 1576s [00:52:56.840] - Field: ‘gc’ 1576s [00:52:56.841] - Field: ‘conditions’ 1576s [00:52:56.841] - Field: ‘expr’ 1576s [00:52:56.841] - Field: ‘uuid’ 1576s [00:52:56.841] - Field: ‘seed’ 1576s [00:52:56.841] - Field: ‘version’ 1576s [00:52:56.842] - Field: ‘result’ 1576s [00:52:56.842] - Field: ‘asynchronous’ 1576s [00:52:56.842] - Field: ‘calls’ 1576s [00:52:56.842] - Field: ‘globals’ 1576s [00:52:56.842] - Field: ‘stdout’ 1576s [00:52:56.842] - Field: ‘earlySignal’ 1576s [00:52:56.843] - Field: ‘lazy’ 1576s [00:52:56.843] - Field: ‘state’ 1576s [00:52:56.843] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1576s [00:52:56.843] - Launch lazy future ... 1576s [00:52:56.843] Packages needed by the future expression (n = 0): 1576s [00:52:56.844] Packages needed by future strategies (n = 0): 1576s [00:52:56.844] { 1576s [00:52:56.844] { 1576s [00:52:56.844] { 1576s [00:52:56.844] ...future.startTime <- base::Sys.time() 1576s [00:52:56.844] { 1576s [00:52:56.844] { 1576s [00:52:56.844] { 1576s [00:52:56.844] base::local({ 1576s [00:52:56.844] has_future <- base::requireNamespace("future", 1576s [00:52:56.844] quietly = TRUE) 1576s [00:52:56.844] if (has_future) { 1576s [00:52:56.844] ns <- base::getNamespace("future") 1576s [00:52:56.844] version <- ns[[".package"]][["version"]] 1576s [00:52:56.844] if (is.null(version)) 1576s [00:52:56.844] version <- utils::packageVersion("future") 1576s [00:52:56.844] } 1576s [00:52:56.844] else { 1576s [00:52:56.844] version <- NULL 1576s [00:52:56.844] } 1576s [00:52:56.844] if (!has_future || version < "1.8.0") { 1576s [00:52:56.844] info <- base::c(r_version = base::gsub("R version ", 1576s [00:52:56.844] "", base::R.version$version.string), 1576s [00:52:56.844] platform = base::sprintf("%s (%s-bit)", 1576s [00:52:56.844] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1576s [00:52:56.844] os = base::paste(base::Sys.info()[base::c("sysname", 1576s [00:52:56.844] "release", "version")], collapse = " "), 1576s [00:52:56.844] hostname = base::Sys.info()[["nodename"]]) 1576s [00:52:56.844] info <- base::sprintf("%s: %s", base::names(info), 1576s [00:52:56.844] info) 1576s [00:52:56.844] info <- base::paste(info, collapse = "; ") 1576s [00:52:56.844] if (!has_future) { 1576s [00:52:56.844] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1576s [00:52:56.844] info) 1576s [00:52:56.844] } 1576s [00:52:56.844] else { 1576s [00:52:56.844] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1576s [00:52:56.844] info, version) 1576s [00:52:56.844] } 1576s [00:52:56.844] base::stop(msg) 1576s [00:52:56.844] } 1576s [00:52:56.844] }) 1576s [00:52:56.844] } 1576s [00:52:56.844] options(future.plan = NULL) 1576s [00:52:56.844] Sys.unsetenv("R_FUTURE_PLAN") 1576s [00:52:56.844] future::plan("default", .cleanup = FALSE, .init = FALSE) 1576s [00:52:56.844] } 1576s [00:52:56.844] ...future.workdir <- getwd() 1576s [00:52:56.844] } 1576s [00:52:56.844] ...future.oldOptions <- base::as.list(base::.Options) 1576s [00:52:56.844] ...future.oldEnvVars <- base::Sys.getenv() 1576s [00:52:56.844] } 1576s [00:52:56.844] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1576s [00:52:56.844] future.globals.maxSize = NULL, future.globals.method = NULL, 1576s [00:52:56.844] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1576s [00:52:56.844] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1576s [00:52:56.844] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1576s [00:52:56.844] future.stdout.windows.reencode = NULL, width = 80L) 1576s [00:52:56.844] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1576s [00:52:56.844] base::names(...future.oldOptions)) 1576s [00:52:56.844] } 1576s [00:52:56.844] if (FALSE) { 1576s [00:52:56.844] } 1576s [00:52:56.844] else { 1576s [00:52:56.844] if (TRUE) { 1576s [00:52:56.844] ...future.stdout <- base::rawConnection(base::raw(0L), 1576s [00:52:56.844] open = "w") 1576s [00:52:56.844] } 1576s [00:52:56.844] else { 1576s [00:52:56.844] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1576s [00:52:56.844] windows = "NUL", "/dev/null"), open = "w") 1576s [00:52:56.844] } 1576s [00:52:56.844] base::sink(...future.stdout, type = "output", split = FALSE) 1576s [00:52:56.844] base::on.exit(if (!base::is.null(...future.stdout)) { 1576s [00:52:56.844] base::sink(type = "output", split = FALSE) 1576s [00:52:56.844] base::close(...future.stdout) 1576s [00:52:56.844] }, add = TRUE) 1576s [00:52:56.844] } 1576s [00:52:56.844] ...future.frame <- base::sys.nframe() 1576s [00:52:56.844] ...future.conditions <- base::list() 1576s [00:52:56.844] ...future.rng <- base::globalenv()$.Random.seed 1576s [00:52:56.844] if (FALSE) { 1576s [00:52:56.844] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1576s [00:52:56.844] "...future.value", "...future.globalenv.names", ".Random.seed") 1576s [00:52:56.844] } 1576s [00:52:56.844] ...future.result <- base::tryCatch({ 1576s [00:52:56.844] base::withCallingHandlers({ 1576s [00:52:56.844] ...future.value <- base::withVisible(base::local({ 1576s [00:52:56.844] do.call(function(...) { 1576s [00:52:56.844] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1576s [00:52:56.844] if (!identical(...future.globals.maxSize.org, 1576s [00:52:56.844] ...future.globals.maxSize)) { 1576s [00:52:56.844] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1576s [00:52:56.844] on.exit(options(oopts), add = TRUE) 1576s [00:52:56.844] } 1576s [00:52:56.844] { 1576s [00:52:56.844] lapply(seq_along(...future.elements_ii), 1576s [00:52:56.844] FUN = function(jj) { 1576s [00:52:56.844] ...future.X_jj <- ...future.elements_ii[[jj]] 1576s [00:52:56.844] ...future.FUN(...future.X_jj, ...) 1576s [00:52:56.844] }) 1576s [00:52:56.844] } 1576s [00:52:56.844] }, args = future.call.arguments) 1576s [00:52:56.844] })) 1576s [00:52:56.844] future::FutureResult(value = ...future.value$value, 1576s [00:52:56.844] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1576s [00:52:56.844] ...future.rng), globalenv = if (FALSE) 1576s [00:52:56.844] list(added = base::setdiff(base::names(base::.GlobalEnv), 1576s [00:52:56.844] ...future.globalenv.names)) 1576s [00:52:56.844] else NULL, started = ...future.startTime, version = "1.8") 1576s [00:52:56.844] }, condition = base::local({ 1576s [00:52:56.844] c <- base::c 1576s [00:52:56.844] inherits <- base::inherits 1576s [00:52:56.844] invokeRestart <- base::invokeRestart 1576s [00:52:56.844] length <- base::length 1576s [00:52:56.844] list <- base::list 1576s [00:52:56.844] seq.int <- base::seq.int 1576s [00:52:56.844] signalCondition <- base::signalCondition 1576s [00:52:56.844] sys.calls <- base::sys.calls 1576s [00:52:56.844] `[[` <- base::`[[` 1576s [00:52:56.844] `+` <- base::`+` 1576s [00:52:56.844] `<<-` <- base::`<<-` 1576s [00:52:56.844] sysCalls <- function(calls = sys.calls(), from = 1L) { 1576s [00:52:56.844] calls[seq.int(from = from + 12L, to = length(calls) - 1576s [00:52:56.844] 3L)] 1576s [00:52:56.844] } 1576s [00:52:56.844] function(cond) { 1576s [00:52:56.844] is_error <- inherits(cond, "error") 1576s [00:52:56.844] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1576s [00:52:56.844] NULL) 1576s [00:52:56.844] if (is_error) { 1576s [00:52:56.844] sessionInformation <- function() { 1576s [00:52:56.844] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1576s [00:52:56.844] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1576s [00:52:56.844] search = base::search(), system = base::Sys.info()) 1576s [00:52:56.844] } 1576s [00:52:56.844] ...future.conditions[[length(...future.conditions) + 1576s [00:52:56.844] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1576s [00:52:56.844] cond$call), session = sessionInformation(), 1576s [00:52:56.844] timestamp = base::Sys.time(), signaled = 0L) 1576s [00:52:56.844] signalCondition(cond) 1576s [00:52:56.844] } 1576s [00:52:56.844] else if (!ignore && TRUE && inherits(cond, c("condition", 1576s [00:52:56.844] "immediateCondition"))) { 1576s [00:52:56.844] signal <- TRUE && inherits(cond, "immediateCondition") 1576s [00:52:56.844] ...future.conditions[[length(...future.conditions) + 1576s [00:52:56.844] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1576s [00:52:56.844] if (TRUE && !signal) { 1576s [00:52:56.844] muffleCondition <- function (cond, pattern = "^muffle") 1576s [00:52:56.844] { 1576s [00:52:56.844] inherits <- base::inherits 1576s [00:52:56.844] invokeRestart <- base::invokeRestart 1576s [00:52:56.844] is.null <- base::is.null 1576s [00:52:56.844] muffled <- FALSE 1576s [00:52:56.844] if (inherits(cond, "message")) { 1576s [00:52:56.844] muffled <- grepl(pattern, "muffleMessage") 1576s [00:52:56.844] if (muffled) 1576s [00:52:56.844] invokeRestart("muffleMessage") 1576s [00:52:56.844] } 1576s [00:52:56.844] else if (inherits(cond, "warning")) { 1576s [00:52:56.844] muffled <- grepl(pattern, "muffleWarning") 1576s [00:52:56.844] if (muffled) 1576s [00:52:56.844] invokeRestart("muffleWarning") 1576s [00:52:56.844] } 1576s [00:52:56.844] else if (inherits(cond, "condition")) { 1576s [00:52:56.844] if (!is.null(pattern)) { 1576s [00:52:56.844] computeRestarts <- base::computeRestarts 1576s [00:52:56.844] grepl <- base::grepl 1576s [00:52:56.844] restarts <- computeRestarts(cond) 1576s [00:52:56.844] for (restart in restarts) { 1576s [00:52:56.844] name <- restart$name 1576s [00:52:56.844] if (is.null(name)) 1576s [00:52:56.844] next 1576s [00:52:56.844] if (!grepl(pattern, name)) 1576s [00:52:56.844] next 1576s [00:52:56.844] invokeRestart(restart) 1576s [00:52:56.844] muffled <- TRUE 1576s [00:52:56.844] break 1576s [00:52:56.844] } 1576s [00:52:56.844] } 1576s [00:52:56.844] } 1576s [00:52:56.844] invisible(muffled) 1576s [00:52:56.844] } 1576s [00:52:56.844] muffleCondition(cond, pattern = "^muffle") 1576s [00:52:56.844] } 1576s [00:52:56.844] } 1576s [00:52:56.844] else { 1576s [00:52:56.844] if (TRUE) { 1576s [00:52:56.844] muffleCondition <- function (cond, pattern = "^muffle") 1576s [00:52:56.844] { 1576s [00:52:56.844] inherits <- base::inherits 1576s [00:52:56.844] invokeRestart <- base::invokeRestart 1576s [00:52:56.844] is.null <- base::is.null 1576s [00:52:56.844] muffled <- FALSE 1576s [00:52:56.844] if (inherits(cond, "message")) { 1576s [00:52:56.844] muffled <- grepl(pattern, "muffleMessage") 1576s [00:52:56.844] if (muffled) 1576s [00:52:56.844] invokeRestart("muffleMessage") 1576s [00:52:56.844] } 1576s [00:52:56.844] else if (inherits(cond, "warning")) { 1576s [00:52:56.844] muffled <- grepl(pattern, "muffleWarning") 1576s [00:52:56.844] if (muffled) 1576s [00:52:56.844] invokeRestart("muffleWarning") 1576s [00:52:56.844] } 1576s [00:52:56.844] else if (inherits(cond, "condition")) { 1576s [00:52:56.844] if (!is.null(pattern)) { 1576s [00:52:56.844] computeRestarts <- base::computeRestarts 1576s [00:52:56.844] grepl <- base::grepl 1576s [00:52:56.844] restarts <- computeRestarts(cond) 1576s [00:52:56.844] for (restart in restarts) { 1576s [00:52:56.844] name <- restart$name 1576s [00:52:56.844] if (is.null(name)) 1576s [00:52:56.844] next 1576s [00:52:56.844] if (!grepl(pattern, name)) 1576s [00:52:56.844] next 1576s [00:52:56.844] invokeRestart(restart) 1576s [00:52:56.844] muffled <- TRUE 1576s [00:52:56.844] break 1576s [00:52:56.844] } 1576s [00:52:56.844] } 1576s [00:52:56.844] } 1576s [00:52:56.844] invisible(muffled) 1576s [00:52:56.844] } 1576s [00:52:56.844] muffleCondition(cond, pattern = "^muffle") 1576s [00:52:56.844] } 1576s [00:52:56.844] } 1576s [00:52:56.844] } 1576s [00:52:56.844] })) 1576s [00:52:56.844] }, error = function(ex) { 1576s [00:52:56.844] base::structure(base::list(value = NULL, visible = NULL, 1576s [00:52:56.844] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1576s [00:52:56.844] ...future.rng), started = ...future.startTime, 1576s [00:52:56.844] finished = Sys.time(), session_uuid = NA_character_, 1576s [00:52:56.844] version = "1.8"), class = "FutureResult") 1576s [00:52:56.844] }, finally = { 1576s [00:52:56.844] if (!identical(...future.workdir, getwd())) 1576s [00:52:56.844] setwd(...future.workdir) 1576s [00:52:56.844] { 1576s [00:52:56.844] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1576s [00:52:56.844] ...future.oldOptions$nwarnings <- NULL 1576s [00:52:56.844] } 1576s [00:52:56.844] base::options(...future.oldOptions) 1576s [00:52:56.844] if (.Platform$OS.type == "windows") { 1576s [00:52:56.844] old_names <- names(...future.oldEnvVars) 1576s [00:52:56.844] envs <- base::Sys.getenv() 1576s [00:52:56.844] names <- names(envs) 1576s [00:52:56.844] common <- intersect(names, old_names) 1576s [00:52:56.844] added <- setdiff(names, old_names) 1576s [00:52:56.844] removed <- setdiff(old_names, names) 1576s [00:52:56.844] changed <- common[...future.oldEnvVars[common] != 1576s [00:52:56.844] envs[common]] 1576s [00:52:56.844] NAMES <- toupper(changed) 1576s [00:52:56.844] args <- list() 1576s [00:52:56.844] for (kk in seq_along(NAMES)) { 1576s [00:52:56.844] name <- changed[[kk]] 1576s [00:52:56.844] NAME <- NAMES[[kk]] 1576s [00:52:56.844] if (name != NAME && is.element(NAME, old_names)) 1576s [00:52:56.844] next 1576s [00:52:56.844] args[[name]] <- ...future.oldEnvVars[[name]] 1576s [00:52:56.844] } 1576s [00:52:56.844] NAMES <- toupper(added) 1576s [00:52:56.844] for (kk in seq_along(NAMES)) { 1576s [00:52:56.844] name <- added[[kk]] 1576s [00:52:56.844] NAME <- NAMES[[kk]] 1576s [00:52:56.844] if (name != NAME && is.element(NAME, old_names)) 1576s [00:52:56.844] next 1576s [00:52:56.844] args[[name]] <- "" 1576s [00:52:56.844] } 1576s [00:52:56.844] NAMES <- toupper(removed) 1576s [00:52:56.844] for (kk in seq_along(NAMES)) { 1576s [00:52:56.844] name <- removed[[kk]] 1576s [00:52:56.844] NAME <- NAMES[[kk]] 1576s [00:52:56.844] if (name != NAME && is.element(NAME, old_names)) 1576s [00:52:56.844] next 1576s [00:52:56.844] args[[name]] <- ...future.oldEnvVars[[name]] 1576s [00:52:56.844] } 1576s [00:52:56.844] if (length(args) > 0) 1576s [00:52:56.844] base::do.call(base::Sys.setenv, args = args) 1576s [00:52:56.844] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1576s [00:52:56.844] } 1576s [00:52:56.844] else { 1576s [00:52:56.844] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1576s [00:52:56.844] } 1576s [00:52:56.844] { 1576s [00:52:56.844] if (base::length(...future.futureOptionsAdded) > 1576s [00:52:56.844] 0L) { 1576s [00:52:56.844] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1576s [00:52:56.844] base::names(opts) <- ...future.futureOptionsAdded 1576s [00:52:56.844] base::options(opts) 1576s [00:52:56.844] } 1576s [00:52:56.844] { 1576s [00:52:56.844] { 1576s [00:52:56.844] NULL 1576s [00:52:56.844] RNGkind("Mersenne-Twister") 1576s [00:52:56.844] base::rm(list = ".Random.seed", envir = base::globalenv(), 1576s [00:52:56.844] inherits = FALSE) 1576s [00:52:56.844] } 1576s [00:52:56.844] options(future.plan = NULL) 1576s [00:52:56.844] if (is.na(NA_character_)) 1576s [00:52:56.844] Sys.unsetenv("R_FUTURE_PLAN") 1576s [00:52:56.844] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1576s [00:52:56.844] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1576s [00:52:56.844] envir = parent.frame()) 1576s [00:52:56.844] { 1576s [00:52:56.844] default_workers <- missing(workers) 1576s [00:52:56.844] if (is.function(workers)) 1576s [00:52:56.844] workers <- workers() 1576s [00:52:56.844] workers <- structure(as.integer(workers), 1576s [00:52:56.844] class = class(workers)) 1576s [00:52:56.844] stop_if_not(is.finite(workers), workers >= 1576s [00:52:56.844] 1L) 1576s [00:52:56.844] if ((workers == 1L && !inherits(workers, 1576s [00:52:56.844] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1576s [00:52:56.844] if (default_workers) 1576s [00:52:56.844] supportsMulticore(warn = TRUE) 1576s [00:52:56.844] return(sequential(..., envir = envir)) 1576s [00:52:56.844] } 1576s [00:52:56.844] oopts <- options(mc.cores = workers) 1576s [00:52:56.844] on.exit(options(oopts)) 1576s [00:52:56.844] future <- MulticoreFuture(..., workers = workers, 1576s [00:52:56.844] envir = envir) 1576s [00:52:56.844] if (!future$lazy) 1576s [00:52:56.844] future <- run(future) 1576s [00:52:56.844] invisible(future) 1576s [00:52:56.844] }), .cleanup = FALSE, .init = FALSE) 1576s [00:52:56.844] } 1576s [00:52:56.844] } 1576s [00:52:56.844] } 1576s [00:52:56.844] }) 1576s [00:52:56.844] if (TRUE) { 1576s [00:52:56.844] base::sink(type = "output", split = FALSE) 1576s [00:52:56.844] if (TRUE) { 1576s [00:52:56.844] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1576s [00:52:56.844] } 1576s [00:52:56.844] else { 1576s [00:52:56.844] ...future.result["stdout"] <- base::list(NULL) 1576s [00:52:56.844] } 1576s [00:52:56.844] base::close(...future.stdout) 1576s [00:52:56.844] ...future.stdout <- NULL 1576s [00:52:56.844] } 1576s [00:52:56.844] ...future.result$conditions <- ...future.conditions 1576s [00:52:56.844] ...future.result$finished <- base::Sys.time() 1576s [00:52:56.844] ...future.result 1576s [00:52:56.844] } 1576s [00:52:56.852] assign_globals() ... 1576s [00:52:56.852] List of 5 1576s [00:52:56.852] $ ...future.FUN :function (x, ...) 1576s [00:52:56.852] $ future.call.arguments : list() 1576s [00:52:56.852] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1576s [00:52:56.852] $ ...future.elements_ii :List of 3 1576s [00:52:56.852] ..$ : chr "a" 1576s [00:52:56.852] ..$ : chr "b" 1576s [00:52:56.852] ..$ : chr "c" 1576s [00:52:56.852] $ ...future.seeds_ii : NULL 1576s [00:52:56.852] $ ...future.globals.maxSize: NULL 1576s [00:52:56.852] - attr(*, "where")=List of 5 1576s [00:52:56.852] ..$ ...future.FUN : 1576s [00:52:56.852] ..$ future.call.arguments : 1576s [00:52:56.852] ..$ ...future.elements_ii : 1576s [00:52:56.852] ..$ ...future.seeds_ii : 1576s [00:52:56.852] ..$ ...future.globals.maxSize: 1576s [00:52:56.852] - attr(*, "resolved")= logi FALSE 1576s [00:52:56.852] - attr(*, "total_size")= num 1248 1576s [00:52:56.852] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1576s [00:52:56.852] - attr(*, "already-done")= logi TRUE 1576s [00:52:56.860] - copied ‘...future.FUN’ to environment 1576s [00:52:56.861] - copied ‘future.call.arguments’ to environment 1576s [00:52:56.861] - copied ‘...future.elements_ii’ to environment 1576s [00:52:56.861] - copied ‘...future.seeds_ii’ to environment 1576s [00:52:56.861] - copied ‘...future.globals.maxSize’ to environment 1576s [00:52:56.861] assign_globals() ... done 1576s [00:52:56.862] plan(): Setting new future strategy stack: 1576s [00:52:56.862] List of future strategies: 1576s [00:52:56.862] 1. sequential: 1576s [00:52:56.862] - args: function (..., envir = parent.frame()) 1576s [00:52:56.862] - tweaked: FALSE 1576s [00:52:56.862] - call: NULL 1576s [00:52:56.862] plan(): nbrOfWorkers() = 1 1576s [00:52:56.863] plan(): Setting new future strategy stack: 1576s [00:52:56.863] List of future strategies: 1576s [00:52:56.863] 1. multicore: 1576s [00:52:56.863] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1576s [00:52:56.863] - tweaked: FALSE 1576s [00:52:56.863] - call: plan(strategy) 1576s [00:52:56.867] plan(): nbrOfWorkers() = 1 1576s [00:52:56.867] SequentialFuture started (and completed) 1576s [00:52:56.868] - Launch lazy future ... done 1576s [00:52:56.868] run() for ‘SequentialFuture’ ... done 1576s [00:52:56.868] Created future: 1576s [00:52:56.868] SequentialFuture: 1576s [00:52:56.868] Label: ‘future_sapply-1’ 1576s [00:52:56.868] Expression: 1576s [00:52:56.868] { 1576s [00:52:56.868] do.call(function(...) { 1576s [00:52:56.868] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1576s [00:52:56.868] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1576s [00:52:56.868] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1576s [00:52:56.868] on.exit(options(oopts), add = TRUE) 1576s [00:52:56.868] } 1576s [00:52:56.868] { 1576s [00:52:56.868] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1576s [00:52:56.868] ...future.X_jj <- ...future.elements_ii[[jj]] 1576s [00:52:56.868] ...future.FUN(...future.X_jj, ...) 1576s [00:52:56.868] }) 1576s [00:52:56.868] } 1576s [00:52:56.868] }, args = future.call.arguments) 1576s [00:52:56.868] } 1576s [00:52:56.868] Lazy evaluation: FALSE 1576s [00:52:56.868] Asynchronous evaluation: FALSE 1576s [00:52:56.868] Local evaluation: TRUE 1576s [00:52:56.868] Environment: R_GlobalEnv 1576s [00:52:56.868] Capture standard output: TRUE 1576s [00:52:56.868] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1576s [00:52:56.868] Globals: 5 objects totaling 1.55 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1576s [00:52:56.868] Packages: 1576s [00:52:56.868] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1576s [00:52:56.868] Resolved: TRUE 1576s [00:52:56.868] Value: 840 bytes of class ‘list’ 1576s [00:52:56.868] Early signaling: FALSE 1576s [00:52:56.868] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1576s [00:52:56.868] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1576s [00:52:56.870] Chunk #1 of 1 ... DONE 1576s [00:52:56.871] Launching 1 futures (chunks) ... DONE 1576s [00:52:56.871] Resolving 1 futures (chunks) ... 1576s [00:52:56.871] resolve() on list ... 1576s [00:52:56.871] recursive: 0 1576s [00:52:56.871] length: 1 1576s [00:52:56.871] 1576s [00:52:56.872] resolved() for ‘SequentialFuture’ ... 1576s [00:52:56.872] - state: ‘finished’ 1576s [00:52:56.872] - run: TRUE 1576s [00:52:56.872] - result: ‘FutureResult’ 1576s [00:52:56.873] resolved() for ‘SequentialFuture’ ... done 1576s [00:52:56.873] Future #1 1576s [00:52:56.873] signalConditionsASAP(SequentialFuture, pos=1) ... 1576s [00:52:56.873] - nx: 1 1576s [00:52:56.873] - relay: TRUE 1576s [00:52:56.874] - stdout: TRUE 1576s [00:52:56.874] - signal: TRUE 1576s [00:52:56.874] - resignal: FALSE 1576s [00:52:56.874] - force: TRUE 1576s [00:52:56.874] - relayed: [n=1] FALSE 1576s [00:52:56.875] - queued futures: [n=1] FALSE 1576s [00:52:56.875] - until=1 1576s [00:52:56.875] - relaying element #1 1576s [00:52:56.875] - relayed: [n=1] TRUE 1576s [00:52:56.875] - queued futures: [n=1] TRUE 1576s [00:52:56.875] signalConditionsASAP(SequentialFuture, pos=1) ... done 1576s [00:52:56.876] length: 0 (resolved future 1) 1576s [00:52:56.876] Relaying remaining futures 1576s [00:52:56.876] signalConditionsASAP(NULL, pos=0) ... 1576s [00:52:56.876] - nx: 1 1576s [00:52:56.876] - relay: TRUE 1576s [00:52:56.876] - stdout: TRUE 1576s [00:52:56.876] - signal: TRUE 1576s [00:52:56.877] - resignal: FALSE 1576s [00:52:56.877] - force: TRUE 1576s [00:52:56.877] - relayed: [n=1] TRUE 1576s [00:52:56.877] - queued futures: [n=1] TRUE 1576s - flush all 1576s [00:52:56.877] - relayed: [n=1] TRUE 1576s [00:52:56.877] - queued futures: [n=1] TRUE 1576s [00:52:56.878] signalConditionsASAP(NULL, pos=0) ... done 1576s [00:52:56.878] resolve() on list ... DONE 1576s [00:52:56.878] - Number of value chunks collected: 1 1576s [00:52:56.878] Resolving 1 futures (chunks) ... DONE 1576s [00:52:56.878] Reducing values from 1 chunks ... 1576s [00:52:56.878] - Number of values collected after concatenation: 3 1576s [00:52:56.879] - Number of values expected: 3 1576s [00:52:56.879] Reducing values from 1 chunks ... DONE 1576s [00:52:56.879] future_lapply() ... DONE 1576s List of 2 1576s $ y0:List of 3 1576s ..$ a: chr [1, 1] "a" 1576s ..$ b: chr [1, 1] "b" 1576s ..$ c: chr [1, 1] "c" 1576s $ y1:List of 3 1576s ..$ a: chr [1, 1] "a" 1576s ..$ b: chr [1, 1] "b" 1576s ..$ c: chr [1, 1] "c" 1576s List of 2 1576s $ y0:List of 3 1576s ..$ a: chr [1, 1] "a" 1576s ..$ b: chr [1, 1] "b" 1576s ..$ c: chr [1, 1] "c" 1576s $ y2:List of 3 1576s ..$ : chr [1, 1] "a" 1576s ..$ : chr [1, 1] "b" 1576s ..$ : chr [1, 1] "c" 1576s [00:52:56.886] future_lapply() ... 1576s [00:52:56.889] Number of chunks: 1 1576s [00:52:56.890] getGlobalsAndPackagesXApply() ... 1576s [00:52:56.890] - future.globals: TRUE 1576s [00:52:56.890] getGlobalsAndPackages() ... 1576s [00:52:56.890] Searching for globals... 1576s [00:52:56.891] - globals found: [1] ‘FUN’ 1576s [00:52:56.891] Searching for globals ... DONE 1576s [00:52:56.892] Resolving globals: FALSE 1576s [00:52:56.892] The total size of the 1 globals is 848 bytes (848 bytes) 1576s [00:52:56.892] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1576s [00:52:56.892] - globals: [1] ‘FUN’ 1576s [00:52:56.893] 1576s [00:52:56.893] getGlobalsAndPackages() ... DONE 1576s [00:52:56.893] - globals found/used: [n=1] ‘FUN’ 1576s [00:52:56.893] - needed namespaces: [n=0] 1576s [00:52:56.893] Finding globals ... DONE 1576s [00:52:56.893] - use_args: TRUE 1576s [00:52:56.894] - Getting '...' globals ... 1576s [00:52:56.894] resolve() on list ... 1576s [00:52:56.894] recursive: 0 1576s [00:52:56.894] length: 1 1576s [00:52:56.894] elements: ‘...’ 1576s [00:52:56.895] length: 0 (resolved future 1) 1576s [00:52:56.895] resolve() on list ... DONE 1576s [00:52:56.895] - '...' content: [n=0] 1576s [00:52:56.895] List of 1 1576s [00:52:56.895] $ ...: list() 1576s [00:52:56.895] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1576s [00:52:56.895] - attr(*, "where")=List of 1 1576s [00:52:56.895] ..$ ...: 1576s [00:52:56.895] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1576s [00:52:56.895] - attr(*, "resolved")= logi TRUE 1576s [00:52:56.895] - attr(*, "total_size")= num NA 1576s [00:52:56.898] - Getting '...' globals ... DONE 1576s [00:52:56.898] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1576s [00:52:56.899] List of 2 1576s [00:52:56.899] $ ...future.FUN:function (x) 1576s [00:52:56.899] $ ... : list() 1576s [00:52:56.899] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1576s [00:52:56.899] - attr(*, "where")=List of 2 1576s [00:52:56.899] ..$ ...future.FUN: 1576s [00:52:56.899] ..$ ... : 1576s [00:52:56.899] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1576s [00:52:56.899] - attr(*, "resolved")= logi FALSE 1576s [00:52:56.899] - attr(*, "total_size")= num 848 1576s [00:52:56.903] Packages to be attached in all futures: [n=0] 1576s [00:52:56.903] getGlobalsAndPackagesXApply() ... DONE 1576s [00:52:56.903] Number of futures (= number of chunks): 1 1576s [00:52:56.903] Launching 1 futures (chunks) ... 1576s [00:52:56.903] Chunk #1 of 1 ... 1576s [00:52:56.904] - Finding globals in 'X' for chunk #1 ... 1576s [00:52:56.904] getGlobalsAndPackages() ... 1576s [00:52:56.904] Searching for globals... 1576s [00:52:56.904] 1576s [00:52:56.904] Searching for globals ... DONE 1576s [00:52:56.904] - globals: [0] 1576s [00:52:56.905] getGlobalsAndPackages() ... DONE 1576s [00:52:56.905] + additional globals found: [n=0] 1576s [00:52:56.905] + additional namespaces needed: [n=0] 1576s [00:52:56.905] - Finding globals in 'X' for chunk #1 ... DONE 1576s [00:52:56.905] - seeds: 1576s [00:52:56.905] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1576s [00:52:56.908] getGlobalsAndPackages() ... 1576s [00:52:56.908] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1576s [00:52:56.908] Resolving globals: FALSE 1576s [00:52:56.908] Tweak future expression to call with '...' arguments ... 1576s [00:52:56.909] { 1576s [00:52:56.909] do.call(function(...) { 1576s [00:52:56.909] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1576s [00:52:56.909] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1576s [00:52:56.909] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1576s [00:52:56.909] on.exit(options(oopts), add = TRUE) 1576s [00:52:56.909] } 1576s [00:52:56.909] { 1576s [00:52:56.909] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1576s [00:52:56.909] ...future.X_jj <- ...future.elements_ii[[jj]] 1576s [00:52:56.909] ...future.FUN(...future.X_jj, ...) 1576s [00:52:56.909] }) 1576s [00:52:56.909] } 1576s [00:52:56.909] }, args = future.call.arguments) 1576s [00:52:56.909] } 1576s [00:52:56.909] Tweak future expression to call with '...' arguments ... DONE 1576s [00:52:56.910] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1576s [00:52:56.910] 1576s [00:52:56.911] getGlobalsAndPackages() ... DONE 1576s [00:52:56.911] run() for ‘Future’ ... 1576s [00:52:56.911] - state: ‘created’ 1576s [00:52:56.912] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1576s [00:52:56.916] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1576s [00:52:56.916] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1576s [00:52:56.917] - Field: ‘label’ 1576s [00:52:56.917] - Field: ‘local’ 1576s [00:52:56.917] - Field: ‘owner’ 1576s [00:52:56.917] - Field: ‘envir’ 1576s [00:52:56.917] - Field: ‘packages’ 1576s [00:52:56.917] - Field: ‘gc’ 1576s [00:52:56.918] - Field: ‘conditions’ 1576s [00:52:56.918] - Field: ‘expr’ 1576s [00:52:56.918] - Field: ‘uuid’ 1576s [00:52:56.918] - Field: ‘seed’ 1576s [00:52:56.918] - Field: ‘version’ 1576s [00:52:56.918] - Field: ‘result’ 1576s [00:52:56.918] - Field: ‘asynchronous’ 1576s [00:52:56.919] - Field: ‘calls’ 1576s [00:52:56.919] - Field: ‘globals’ 1576s [00:52:56.919] - Field: ‘stdout’ 1576s [00:52:56.919] - Field: ‘earlySignal’ 1576s [00:52:56.919] - Field: ‘lazy’ 1576s [00:52:56.919] - Field: ‘state’ 1576s [00:52:56.919] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1576s [00:52:56.920] - Launch lazy future ... 1576s [00:52:56.920] Packages needed by the future expression (n = 0): 1576s [00:52:56.920] Packages needed by future strategies (n = 0): 1576s [00:52:56.921] { 1576s [00:52:56.921] { 1576s [00:52:56.921] { 1576s [00:52:56.921] ...future.startTime <- base::Sys.time() 1576s [00:52:56.921] { 1576s [00:52:56.921] { 1576s [00:52:56.921] { 1576s [00:52:56.921] base::local({ 1576s [00:52:56.921] has_future <- base::requireNamespace("future", 1576s [00:52:56.921] quietly = TRUE) 1576s [00:52:56.921] if (has_future) { 1576s [00:52:56.921] ns <- base::getNamespace("future") 1576s [00:52:56.921] version <- ns[[".package"]][["version"]] 1576s [00:52:56.921] if (is.null(version)) 1576s [00:52:56.921] version <- utils::packageVersion("future") 1576s [00:52:56.921] } 1576s [00:52:56.921] else { 1576s [00:52:56.921] version <- NULL 1576s [00:52:56.921] } 1576s [00:52:56.921] if (!has_future || version < "1.8.0") { 1576s [00:52:56.921] info <- base::c(r_version = base::gsub("R version ", 1576s [00:52:56.921] "", base::R.version$version.string), 1576s [00:52:56.921] platform = base::sprintf("%s (%s-bit)", 1576s [00:52:56.921] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1576s [00:52:56.921] os = base::paste(base::Sys.info()[base::c("sysname", 1576s [00:52:56.921] "release", "version")], collapse = " "), 1576s [00:52:56.921] hostname = base::Sys.info()[["nodename"]]) 1576s [00:52:56.921] info <- base::sprintf("%s: %s", base::names(info), 1576s [00:52:56.921] info) 1576s [00:52:56.921] info <- base::paste(info, collapse = "; ") 1576s [00:52:56.921] if (!has_future) { 1576s [00:52:56.921] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1576s [00:52:56.921] info) 1576s [00:52:56.921] } 1576s [00:52:56.921] else { 1576s [00:52:56.921] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1576s [00:52:56.921] info, version) 1576s [00:52:56.921] } 1576s [00:52:56.921] base::stop(msg) 1576s [00:52:56.921] } 1576s [00:52:56.921] }) 1576s [00:52:56.921] } 1576s [00:52:56.921] options(future.plan = NULL) 1576s [00:52:56.921] Sys.unsetenv("R_FUTURE_PLAN") 1576s [00:52:56.921] future::plan("default", .cleanup = FALSE, .init = FALSE) 1576s [00:52:56.921] } 1576s [00:52:56.921] ...future.workdir <- getwd() 1576s [00:52:56.921] } 1576s [00:52:56.921] ...future.oldOptions <- base::as.list(base::.Options) 1576s [00:52:56.921] ...future.oldEnvVars <- base::Sys.getenv() 1576s [00:52:56.921] } 1576s [00:52:56.921] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1576s [00:52:56.921] future.globals.maxSize = NULL, future.globals.method = NULL, 1576s [00:52:56.921] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1576s [00:52:56.921] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1576s [00:52:56.921] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1576s [00:52:56.921] future.stdout.windows.reencode = NULL, width = 80L) 1576s [00:52:56.921] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1576s [00:52:56.921] base::names(...future.oldOptions)) 1576s [00:52:56.921] } 1576s [00:52:56.921] if (FALSE) { 1576s [00:52:56.921] } 1576s [00:52:56.921] else { 1576s [00:52:56.921] if (TRUE) { 1576s [00:52:56.921] ...future.stdout <- base::rawConnection(base::raw(0L), 1576s [00:52:56.921] open = "w") 1576s [00:52:56.921] } 1576s [00:52:56.921] else { 1576s [00:52:56.921] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1576s [00:52:56.921] windows = "NUL", "/dev/null"), open = "w") 1576s [00:52:56.921] } 1576s [00:52:56.921] base::sink(...future.stdout, type = "output", split = FALSE) 1576s [00:52:56.921] base::on.exit(if (!base::is.null(...future.stdout)) { 1576s [00:52:56.921] base::sink(type = "output", split = FALSE) 1576s [00:52:56.921] base::close(...future.stdout) 1576s [00:52:56.921] }, add = TRUE) 1576s [00:52:56.921] } 1576s [00:52:56.921] ...future.frame <- base::sys.nframe() 1576s [00:52:56.921] ...future.conditions <- base::list() 1576s [00:52:56.921] ...future.rng <- base::globalenv()$.Random.seed 1576s [00:52:56.921] if (FALSE) { 1576s [00:52:56.921] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1576s [00:52:56.921] "...future.value", "...future.globalenv.names", ".Random.seed") 1576s [00:52:56.921] } 1576s [00:52:56.921] ...future.result <- base::tryCatch({ 1576s [00:52:56.921] base::withCallingHandlers({ 1576s [00:52:56.921] ...future.value <- base::withVisible(base::local({ 1576s [00:52:56.921] do.call(function(...) { 1576s [00:52:56.921] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1576s [00:52:56.921] if (!identical(...future.globals.maxSize.org, 1576s [00:52:56.921] ...future.globals.maxSize)) { 1576s [00:52:56.921] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1576s [00:52:56.921] on.exit(options(oopts), add = TRUE) 1576s [00:52:56.921] } 1576s [00:52:56.921] { 1576s [00:52:56.921] lapply(seq_along(...future.elements_ii), 1576s [00:52:56.921] FUN = function(jj) { 1576s [00:52:56.921] ...future.X_jj <- ...future.elements_ii[[jj]] 1576s [00:52:56.921] ...future.FUN(...future.X_jj, ...) 1576s [00:52:56.921] }) 1576s [00:52:56.921] } 1576s [00:52:56.921] }, args = future.call.arguments) 1576s [00:52:56.921] })) 1576s [00:52:56.921] future::FutureResult(value = ...future.value$value, 1576s [00:52:56.921] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1576s [00:52:56.921] ...future.rng), globalenv = if (FALSE) 1576s [00:52:56.921] list(added = base::setdiff(base::names(base::.GlobalEnv), 1576s [00:52:56.921] ...future.globalenv.names)) 1576s [00:52:56.921] else NULL, started = ...future.startTime, version = "1.8") 1576s [00:52:56.921] }, condition = base::local({ 1576s [00:52:56.921] c <- base::c 1576s [00:52:56.921] inherits <- base::inherits 1576s [00:52:56.921] invokeRestart <- base::invokeRestart 1576s [00:52:56.921] length <- base::length 1576s [00:52:56.921] list <- base::list 1576s [00:52:56.921] seq.int <- base::seq.int 1576s [00:52:56.921] signalCondition <- base::signalCondition 1576s [00:52:56.921] sys.calls <- base::sys.calls 1576s [00:52:56.921] `[[` <- base::`[[` 1576s [00:52:56.921] `+` <- base::`+` 1576s [00:52:56.921] `<<-` <- base::`<<-` 1576s [00:52:56.921] sysCalls <- function(calls = sys.calls(), from = 1L) { 1576s [00:52:56.921] calls[seq.int(from = from + 12L, to = length(calls) - 1576s [00:52:56.921] 3L)] 1576s [00:52:56.921] } 1576s [00:52:56.921] function(cond) { 1576s [00:52:56.921] is_error <- inherits(cond, "error") 1576s [00:52:56.921] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1576s [00:52:56.921] NULL) 1576s [00:52:56.921] if (is_error) { 1576s [00:52:56.921] sessionInformation <- function() { 1576s [00:52:56.921] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1576s [00:52:56.921] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1576s [00:52:56.921] search = base::search(), system = base::Sys.info()) 1576s [00:52:56.921] } 1576s [00:52:56.921] ...future.conditions[[length(...future.conditions) + 1576s [00:52:56.921] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1576s [00:52:56.921] cond$call), session = sessionInformation(), 1576s [00:52:56.921] timestamp = base::Sys.time(), signaled = 0L) 1576s [00:52:56.921] signalCondition(cond) 1576s [00:52:56.921] } 1576s [00:52:56.921] else if (!ignore && TRUE && inherits(cond, c("condition", 1576s [00:52:56.921] "immediateCondition"))) { 1576s [00:52:56.921] signal <- TRUE && inherits(cond, "immediateCondition") 1576s [00:52:56.921] ...future.conditions[[length(...future.conditions) + 1576s [00:52:56.921] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1576s [00:52:56.921] if (TRUE && !signal) { 1576s [00:52:56.921] muffleCondition <- function (cond, pattern = "^muffle") 1576s [00:52:56.921] { 1576s [00:52:56.921] inherits <- base::inherits 1576s [00:52:56.921] invokeRestart <- base::invokeRestart 1576s [00:52:56.921] is.null <- base::is.null 1576s [00:52:56.921] muffled <- FALSE 1576s [00:52:56.921] if (inherits(cond, "message")) { 1576s [00:52:56.921] muffled <- grepl(pattern, "muffleMessage") 1576s [00:52:56.921] if (muffled) 1576s [00:52:56.921] invokeRestart("muffleMessage") 1576s [00:52:56.921] } 1576s [00:52:56.921] else if (inherits(cond, "warning")) { 1576s [00:52:56.921] muffled <- grepl(pattern, "muffleWarning") 1576s [00:52:56.921] if (muffled) 1576s [00:52:56.921] invokeRestart("muffleWarning") 1576s [00:52:56.921] } 1576s [00:52:56.921] else if (inherits(cond, "condition")) { 1576s [00:52:56.921] if (!is.null(pattern)) { 1576s [00:52:56.921] computeRestarts <- base::computeRestarts 1576s [00:52:56.921] grepl <- base::grepl 1576s [00:52:56.921] restarts <- computeRestarts(cond) 1576s [00:52:56.921] for (restart in restarts) { 1576s [00:52:56.921] name <- restart$name 1576s [00:52:56.921] if (is.null(name)) 1576s [00:52:56.921] next 1576s [00:52:56.921] if (!grepl(pattern, name)) 1576s [00:52:56.921] next 1576s [00:52:56.921] invokeRestart(restart) 1576s [00:52:56.921] muffled <- TRUE 1576s [00:52:56.921] break 1576s [00:52:56.921] } 1576s [00:52:56.921] } 1576s [00:52:56.921] } 1576s [00:52:56.921] invisible(muffled) 1576s [00:52:56.921] } 1576s [00:52:56.921] muffleCondition(cond, pattern = "^muffle") 1576s [00:52:56.921] } 1576s [00:52:56.921] } 1576s [00:52:56.921] else { 1576s [00:52:56.921] if (TRUE) { 1576s [00:52:56.921] muffleCondition <- function (cond, pattern = "^muffle") 1576s [00:52:56.921] { 1576s [00:52:56.921] inherits <- base::inherits 1576s [00:52:56.921] invokeRestart <- base::invokeRestart 1576s [00:52:56.921] is.null <- base::is.null 1576s [00:52:56.921] muffled <- FALSE 1576s [00:52:56.921] if (inherits(cond, "message")) { 1576s [00:52:56.921] muffled <- grepl(pattern, "muffleMessage") 1576s [00:52:56.921] if (muffled) 1576s [00:52:56.921] invokeRestart("muffleMessage") 1576s [00:52:56.921] } 1576s [00:52:56.921] else if (inherits(cond, "warning")) { 1576s [00:52:56.921] muffled <- grepl(pattern, "muffleWarning") 1576s [00:52:56.921] if (muffled) 1576s [00:52:56.921] invokeRestart("muffleWarning") 1576s [00:52:56.921] } 1576s [00:52:56.921] else if (inherits(cond, "condition")) { 1576s [00:52:56.921] if (!is.null(pattern)) { 1576s [00:52:56.921] computeRestarts <- base::computeRestarts 1576s [00:52:56.921] grepl <- base::grepl 1576s [00:52:56.921] restarts <- computeRestarts(cond) 1576s [00:52:56.921] for (restart in restarts) { 1576s [00:52:56.921] name <- restart$name 1576s [00:52:56.921] if (is.null(name)) 1576s [00:52:56.921] next 1576s [00:52:56.921] if (!grepl(pattern, name)) 1576s [00:52:56.921] next 1576s [00:52:56.921] invokeRestart(restart) 1576s [00:52:56.921] muffled <- TRUE 1576s [00:52:56.921] break 1576s [00:52:56.921] } 1576s [00:52:56.921] } 1576s [00:52:56.921] } 1576s [00:52:56.921] invisible(muffled) 1576s [00:52:56.921] } 1576s [00:52:56.921] muffleCondition(cond, pattern = "^muffle") 1576s [00:52:56.921] } 1576s [00:52:56.921] } 1576s [00:52:56.921] } 1576s [00:52:56.921] })) 1576s [00:52:56.921] }, error = function(ex) { 1576s [00:52:56.921] base::structure(base::list(value = NULL, visible = NULL, 1576s [00:52:56.921] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1576s [00:52:56.921] ...future.rng), started = ...future.startTime, 1576s [00:52:56.921] finished = Sys.time(), session_uuid = NA_character_, 1576s [00:52:56.921] version = "1.8"), class = "FutureResult") 1576s [00:52:56.921] }, finally = { 1576s [00:52:56.921] if (!identical(...future.workdir, getwd())) 1576s [00:52:56.921] setwd(...future.workdir) 1576s [00:52:56.921] { 1576s [00:52:56.921] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1576s [00:52:56.921] ...future.oldOptions$nwarnings <- NULL 1576s [00:52:56.921] } 1576s [00:52:56.921] base::options(...future.oldOptions) 1576s [00:52:56.921] if (.Platform$OS.type == "windows") { 1576s [00:52:56.921] old_names <- names(...future.oldEnvVars) 1576s [00:52:56.921] envs <- base::Sys.getenv() 1576s [00:52:56.921] names <- names(envs) 1576s [00:52:56.921] common <- intersect(names, old_names) 1576s [00:52:56.921] added <- setdiff(names, old_names) 1576s [00:52:56.921] removed <- setdiff(old_names, names) 1576s [00:52:56.921] changed <- common[...future.oldEnvVars[common] != 1576s [00:52:56.921] envs[common]] 1576s [00:52:56.921] NAMES <- toupper(changed) 1576s [00:52:56.921] args <- list() 1576s [00:52:56.921] for (kk in seq_along(NAMES)) { 1576s [00:52:56.921] name <- changed[[kk]] 1576s [00:52:56.921] NAME <- NAMES[[kk]] 1576s [00:52:56.921] if (name != NAME && is.element(NAME, old_names)) 1576s [00:52:56.921] next 1576s [00:52:56.921] args[[name]] <- ...future.oldEnvVars[[name]] 1576s [00:52:56.921] } 1576s [00:52:56.921] NAMES <- toupper(added) 1576s [00:52:56.921] for (kk in seq_along(NAMES)) { 1576s [00:52:56.921] name <- added[[kk]] 1576s [00:52:56.921] NAME <- NAMES[[kk]] 1576s [00:52:56.921] if (name != NAME && is.element(NAME, old_names)) 1576s [00:52:56.921] next 1576s [00:52:56.921] args[[name]] <- "" 1576s [00:52:56.921] } 1576s [00:52:56.921] NAMES <- toupper(removed) 1576s [00:52:56.921] for (kk in seq_along(NAMES)) { 1576s [00:52:56.921] name <- removed[[kk]] 1576s [00:52:56.921] NAME <- NAMES[[kk]] 1576s [00:52:56.921] if (name != NAME && is.element(NAME, old_names)) 1576s [00:52:56.921] next 1576s [00:52:56.921] args[[name]] <- ...future.oldEnvVars[[name]] 1576s [00:52:56.921] } 1576s [00:52:56.921] if (length(args) > 0) 1576s [00:52:56.921] base::do.call(base::Sys.setenv, args = args) 1576s [00:52:56.921] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1576s [00:52:56.921] } 1576s [00:52:56.921] else { 1576s [00:52:56.921] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1576s [00:52:56.921] } 1576s [00:52:56.921] { 1576s [00:52:56.921] if (base::length(...future.futureOptionsAdded) > 1576s [00:52:56.921] 0L) { 1576s [00:52:56.921] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1576s [00:52:56.921] base::names(opts) <- ...future.futureOptionsAdded 1576s [00:52:56.921] base::options(opts) 1576s [00:52:56.921] } 1576s [00:52:56.921] { 1576s [00:52:56.921] { 1576s [00:52:56.921] NULL 1576s [00:52:56.921] RNGkind("Mersenne-Twister") 1576s [00:52:56.921] base::rm(list = ".Random.seed", envir = base::globalenv(), 1576s [00:52:56.921] inherits = FALSE) 1576s [00:52:56.921] } 1576s [00:52:56.921] options(future.plan = NULL) 1576s [00:52:56.921] if (is.na(NA_character_)) 1576s [00:52:56.921] Sys.unsetenv("R_FUTURE_PLAN") 1576s [00:52:56.921] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1576s [00:52:56.921] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1576s [00:52:56.921] envir = parent.frame()) 1576s [00:52:56.921] { 1576s [00:52:56.921] default_workers <- missing(workers) 1576s [00:52:56.921] if (is.function(workers)) 1576s [00:52:56.921] workers <- workers() 1576s [00:52:56.921] workers <- structure(as.integer(workers), 1576s [00:52:56.921] class = class(workers)) 1576s [00:52:56.921] stop_if_not(is.finite(workers), workers >= 1576s [00:52:56.921] 1L) 1576s [00:52:56.921] if ((workers == 1L && !inherits(workers, 1576s [00:52:56.921] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1576s [00:52:56.921] if (default_workers) 1576s [00:52:56.921] supportsMulticore(warn = TRUE) 1576s [00:52:56.921] return(sequential(..., envir = envir)) 1576s [00:52:56.921] } 1576s [00:52:56.921] oopts <- options(mc.cores = workers) 1576s [00:52:56.921] on.exit(options(oopts)) 1576s [00:52:56.921] future <- MulticoreFuture(..., workers = workers, 1576s [00:52:56.921] envir = envir) 1576s [00:52:56.921] if (!future$lazy) 1576s [00:52:56.921] future <- run(future) 1576s [00:52:56.921] invisible(future) 1576s [00:52:56.921] }), .cleanup = FALSE, .init = FALSE) 1576s [00:52:56.921] } 1576s [00:52:56.921] } 1576s [00:52:56.921] } 1576s [00:52:56.921] }) 1576s [00:52:56.921] if (TRUE) { 1576s [00:52:56.921] base::sink(type = "output", split = FALSE) 1576s [00:52:56.921] if (TRUE) { 1576s [00:52:56.921] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1576s [00:52:56.921] } 1576s [00:52:56.921] else { 1576s [00:52:56.921] ...future.result["stdout"] <- base::list(NULL) 1576s [00:52:56.921] } 1576s [00:52:56.921] base::close(...future.stdout) 1576s [00:52:56.921] ...future.stdout <- NULL 1576s [00:52:56.921] } 1576s [00:52:56.921] ...future.result$conditions <- ...future.conditions 1576s [00:52:56.921] ...future.result$finished <- base::Sys.time() 1576s [00:52:56.921] ...future.result 1576s [00:52:56.921] } 1576s [00:52:56.925] assign_globals() ... 1576s [00:52:56.925] List of 5 1576s [00:52:56.925] $ ...future.FUN :function (x) 1576s [00:52:56.925] $ future.call.arguments : list() 1576s [00:52:56.925] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1576s [00:52:56.925] $ ...future.elements_ii :List of 3 1576s [00:52:56.925] ..$ : chr "a" 1576s [00:52:56.925] ..$ : chr "b" 1576s [00:52:56.925] ..$ : chr "c" 1576s [00:52:56.925] $ ...future.seeds_ii : NULL 1576s [00:52:56.925] $ ...future.globals.maxSize: NULL 1576s [00:52:56.925] - attr(*, "where")=List of 5 1576s [00:52:56.925] ..$ ...future.FUN : 1576s [00:52:56.925] ..$ future.call.arguments : 1576s [00:52:56.925] ..$ ...future.elements_ii : 1576s [00:52:56.925] ..$ ...future.seeds_ii : 1576s [00:52:56.925] ..$ ...future.globals.maxSize: 1576s [00:52:56.925] - attr(*, "resolved")= logi FALSE 1576s [00:52:56.925] - attr(*, "total_size")= num 848 1576s [00:52:56.925] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1576s [00:52:56.925] - attr(*, "already-done")= logi TRUE 1576s [00:52:56.931] - copied ‘...future.FUN’ to environment 1576s [00:52:56.932] - copied ‘future.call.arguments’ to environment 1576s [00:52:56.932] - copied ‘...future.elements_ii’ to environment 1576s [00:52:56.932] - copied ‘...future.seeds_ii’ to environment 1576s [00:52:56.932] - copied ‘...future.globals.maxSize’ to environment 1576s [00:52:56.932] assign_globals() ... done 1576s [00:52:56.932] plan(): Setting new future strategy stack: 1576s [00:52:56.933] List of future strategies: 1576s [00:52:56.933] 1. sequential: 1576s [00:52:56.933] - args: function (..., envir = parent.frame()) 1576s [00:52:56.933] - tweaked: FALSE 1576s [00:52:56.933] - call: NULL 1576s [00:52:56.933] plan(): nbrOfWorkers() = 1 1576s [00:52:56.934] plan(): Setting new future strategy stack: 1576s [00:52:56.934] List of future strategies: 1576s [00:52:56.934] 1. multicore: 1576s [00:52:56.934] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1576s [00:52:56.934] - tweaked: FALSE 1576s [00:52:56.934] - call: plan(strategy) 1576s [00:52:56.937] plan(): nbrOfWorkers() = 1 1576s [00:52:56.937] SequentialFuture started (and completed) 1576s [00:52:56.938] - Launch lazy future ... done 1576s [00:52:56.938] run() for ‘SequentialFuture’ ... done 1576s [00:52:56.938] Created future: 1576s [00:52:56.938] SequentialFuture: 1576s [00:52:56.938] Label: ‘future_sapply-1’ 1576s [00:52:56.938] Expression: 1576s [00:52:56.938] { 1576s [00:52:56.938] do.call(function(...) { 1576s [00:52:56.938] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1576s [00:52:56.938] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1576s [00:52:56.938] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1576s [00:52:56.938] on.exit(options(oopts), add = TRUE) 1576s [00:52:56.938] } 1576s [00:52:56.938] { 1576s [00:52:56.938] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1576s [00:52:56.938] ...future.X_jj <- ...future.elements_ii[[jj]] 1576s [00:52:56.938] ...future.FUN(...future.X_jj, ...) 1576s [00:52:56.938] }) 1576s [00:52:56.938] } 1576s [00:52:56.938] }, args = future.call.arguments) 1576s [00:52:56.938] } 1576s [00:52:56.938] Lazy evaluation: FALSE 1576s [00:52:56.938] Asynchronous evaluation: FALSE 1576s [00:52:56.938] Local evaluation: TRUE 1576s [00:52:56.938] Environment: R_GlobalEnv 1576s [00:52:56.938] Capture standard output: TRUE 1576s [00:52:56.938] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1576s [00:52:56.938] Globals: 5 objects totaling 1.16 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1576s [00:52:56.938] Packages: 1576s [00:52:56.938] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1576s [00:52:56.938] Resolved: TRUE 1576s [00:52:56.938] Value: 336 bytes of class ‘list’ 1576s [00:52:56.938] Early signaling: FALSE 1576s [00:52:56.938] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1576s [00:52:56.938] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1576s [00:52:56.940] Chunk #1 of 1 ... DONE 1576s [00:52:56.940] Launching 1 futures (chunks) ... DONE 1576s [00:52:56.940] Resolving 1 futures (chunks) ... 1576s [00:52:56.940] resolve() on list ... 1576s [00:52:56.940] recursive: 0 1576s [00:52:56.941] length: 1 1576s [00:52:56.941] 1576s [00:52:56.941] resolved() for ‘SequentialFuture’ ... 1576s [00:52:56.941] - state: ‘finished’ 1576s [00:52:56.941] - run: TRUE 1576s [00:52:56.941] - result: ‘FutureResult’ 1576s [00:52:56.941] resolved() for ‘SequentialFuture’ ... done 1576s [00:52:56.942] Future #1 1576s [00:52:56.942] signalConditionsASAP(SequentialFuture, pos=1) ... 1576s [00:52:56.942] - nx: 1 1576s [00:52:56.942] - relay: TRUE 1576s [00:52:56.942] - stdout: TRUE 1576s [00:52:56.942] - signal: TRUE 1576s [00:52:56.942] - resignal: FALSE 1576s [00:52:56.943] - force: TRUE 1576s [00:52:56.943] - relayed: [n=1] FALSE 1576s [00:52:56.943] - queued futures: [n=1] FALSE 1576s [00:52:56.943] - until=1 1576s [00:52:56.943] - relaying element #1 1576s [00:52:56.943] - relayed: [n=1] TRUE 1576s [00:52:56.944] - queued futures: [n=1] TRUE 1576s [00:52:56.944] signalConditionsASAP(SequentialFuture, pos=1) ... done 1576s [00:52:56.944] length: 0 (resolved future 1) 1576s [00:52:56.944] Relaying remaining futures 1576s [00:52:56.944] signalConditionsASAP(NULL, pos=0) ... 1576s [00:52:56.944] - nx: 1 1576s [00:52:56.945] - relay: TRUE 1576s [00:52:56.945] - stdout: TRUE 1576s [00:52:56.945] - signal: TRUE 1576s [00:52:56.945] - resignal: FALSE 1576s [00:52:56.945] - force: TRUE 1576s [00:52:56.945] - relayed: [n=1] TRUE 1576s [00:52:56.945] - queued futures: [n=1] TRUE 1576s - flush all 1576s [00:52:56.946] - relayed: [n=1] TRUE 1576s [00:52:56.946] - queued futures: [n=1] TRUE 1576s [00:52:56.946] signalConditionsASAP(NULL, pos=0) ... done 1576s [00:52:56.946] resolve() on list ... DONE 1576s [00:52:56.946] - Number of value chunks collected: 1 1576s [00:52:56.946] Resolving 1 futures (chunks) ... DONE 1576s [00:52:56.947] Reducing values from 1 chunks ... 1576s [00:52:56.947] - Number of values collected after concatenation: 3 1576s [00:52:56.947] - Number of values expected: 3 1576s [00:52:56.947] Reducing values from 1 chunks ... DONE 1576s [00:52:56.947] future_lapply() ... DONE 1576s List of 2 1576s $ y0: Named chr [1:3] "a" "b" "c" 1576s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1576s $ y1: Named chr [1:3] "a" "b" "c" 1576s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1576s [00:52:56.951] future_lapply() ... 1576s [00:52:56.955] Number of chunks: 1 1576s [00:52:56.956] getGlobalsAndPackagesXApply() ... 1576s [00:52:56.956] - future.globals: TRUE 1576s [00:52:56.956] getGlobalsAndPackages() ... 1576s [00:52:56.956] Searching for globals... 1576s [00:52:56.957] - globals found: [2] ‘FUN’, ‘UseMethod’ 1576s [00:52:56.958] Searching for globals ... DONE 1576s [00:52:56.958] Resolving globals: FALSE 1576s [00:52:56.958] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1576s [00:52:56.959] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1576s [00:52:56.959] - globals: [1] ‘FUN’ 1576s [00:52:56.959] 1576s [00:52:56.959] getGlobalsAndPackages() ... DONE 1576s [00:52:56.959] - globals found/used: [n=1] ‘FUN’ 1576s [00:52:56.959] - needed namespaces: [n=0] 1576s [00:52:56.960] Finding globals ... DONE 1576s [00:52:56.960] - use_args: TRUE 1576s [00:52:56.960] - Getting '...' globals ... 1576s [00:52:56.961] resolve() on list ... 1576s [00:52:56.961] recursive: 0 1576s [00:52:56.961] length: 1 1576s [00:52:56.961] elements: ‘...’ 1576s [00:52:56.962] length: 0 (resolved future 1) 1576s [00:52:56.962] resolve() on list ... DONE 1576s [00:52:56.962] - '...' content: [n=0] 1576s [00:52:56.962] List of 1 1576s [00:52:56.962] $ ...: list() 1576s [00:52:56.962] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1576s [00:52:56.962] - attr(*, "where")=List of 1 1576s [00:52:56.962] ..$ ...: 1576s [00:52:56.962] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1576s [00:52:56.962] - attr(*, "resolved")= logi TRUE 1576s [00:52:56.962] - attr(*, "total_size")= num NA 1576s [00:52:56.966] - Getting '...' globals ... DONE 1577s [00:52:56.966] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1577s [00:52:56.966] List of 2 1577s [00:52:56.966] $ ...future.FUN:function (x, ...) 1577s [00:52:56.966] $ ... : list() 1577s [00:52:56.966] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1577s [00:52:56.966] - attr(*, "where")=List of 2 1577s [00:52:56.966] ..$ ...future.FUN: 1577s [00:52:56.966] ..$ ... : 1577s [00:52:56.966] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1577s [00:52:56.966] - attr(*, "resolved")= logi FALSE 1577s [00:52:56.966] - attr(*, "total_size")= num 1248 1577s [00:52:56.970] Packages to be attached in all futures: [n=0] 1577s [00:52:56.970] getGlobalsAndPackagesXApply() ... DONE 1577s [00:52:56.971] Number of futures (= number of chunks): 1 1577s [00:52:56.971] Launching 1 futures (chunks) ... 1577s [00:52:56.971] Chunk #1 of 1 ... 1577s [00:52:56.971] - Finding globals in 'X' for chunk #1 ... 1577s [00:52:56.971] getGlobalsAndPackages() ... 1577s [00:52:56.971] Searching for globals... 1577s [00:52:56.972] 1577s [00:52:56.972] Searching for globals ... DONE 1577s [00:52:56.972] - globals: [0] 1577s [00:52:56.972] getGlobalsAndPackages() ... DONE 1577s [00:52:56.972] + additional globals found: [n=0] 1577s [00:52:56.972] + additional namespaces needed: [n=0] 1577s [00:52:56.973] - Finding globals in 'X' for chunk #1 ... DONE 1577s [00:52:56.973] - seeds: 1577s [00:52:56.973] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1577s [00:52:56.973] getGlobalsAndPackages() ... 1577s [00:52:56.973] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1577s [00:52:56.973] Resolving globals: FALSE 1577s [00:52:56.973] Tweak future expression to call with '...' arguments ... 1577s [00:52:56.974] { 1577s [00:52:56.974] do.call(function(...) { 1577s [00:52:56.974] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1577s [00:52:56.974] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1577s [00:52:56.974] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1577s [00:52:56.974] on.exit(options(oopts), add = TRUE) 1577s [00:52:56.974] } 1577s [00:52:56.974] { 1577s [00:52:56.974] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1577s [00:52:56.974] ...future.X_jj <- ...future.elements_ii[[jj]] 1577s [00:52:56.974] ...future.FUN(...future.X_jj, ...) 1577s [00:52:56.974] }) 1577s [00:52:56.974] } 1577s [00:52:56.974] }, args = future.call.arguments) 1577s [00:52:56.974] } 1577s [00:52:56.974] Tweak future expression to call with '...' arguments ... DONE 1577s [00:52:56.975] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1577s [00:52:56.975] 1577s [00:52:56.975] getGlobalsAndPackages() ... DONE 1577s [00:52:56.975] run() for ‘Future’ ... 1577s [00:52:56.976] - state: ‘created’ 1577s [00:52:56.976] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1577s [00:52:56.979] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1577s [00:52:56.980] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1577s [00:52:56.980] - Field: ‘label’ 1577s [00:52:56.980] - Field: ‘local’ 1577s [00:52:56.980] - Field: ‘owner’ 1577s [00:52:56.980] - Field: ‘envir’ 1577s [00:52:56.980] - Field: ‘packages’ 1577s [00:52:56.980] - Field: ‘gc’ 1577s [00:52:56.981] - Field: ‘conditions’ 1577s [00:52:56.981] - Field: ‘expr’ 1577s [00:52:56.981] - Field: ‘uuid’ 1577s [00:52:56.981] - Field: ‘seed’ 1577s [00:52:56.981] - Field: ‘version’ 1577s [00:52:56.981] - Field: ‘result’ 1577s [00:52:56.981] - Field: ‘asynchronous’ 1577s [00:52:56.982] - Field: ‘calls’ 1577s [00:52:56.982] - Field: ‘globals’ 1577s [00:52:56.982] - Field: ‘stdout’ 1577s [00:52:56.982] - Field: ‘earlySignal’ 1577s [00:52:56.982] - Field: ‘lazy’ 1577s [00:52:56.982] - Field: ‘state’ 1577s [00:52:56.982] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1577s [00:52:56.982] - Launch lazy future ... 1577s [00:52:56.983] Packages needed by the future expression (n = 0): 1577s [00:52:56.983] Packages needed by future strategies (n = 0): 1577s [00:52:56.983] { 1577s [00:52:56.983] { 1577s [00:52:56.983] { 1577s [00:52:56.983] ...future.startTime <- base::Sys.time() 1577s [00:52:56.983] { 1577s [00:52:56.983] { 1577s [00:52:56.983] { 1577s [00:52:56.983] base::local({ 1577s [00:52:56.983] has_future <- base::requireNamespace("future", 1577s [00:52:56.983] quietly = TRUE) 1577s [00:52:56.983] if (has_future) { 1577s [00:52:56.983] ns <- base::getNamespace("future") 1577s [00:52:56.983] version <- ns[[".package"]][["version"]] 1577s [00:52:56.983] if (is.null(version)) 1577s [00:52:56.983] version <- utils::packageVersion("future") 1577s [00:52:56.983] } 1577s [00:52:56.983] else { 1577s [00:52:56.983] version <- NULL 1577s [00:52:56.983] } 1577s [00:52:56.983] if (!has_future || version < "1.8.0") { 1577s [00:52:56.983] info <- base::c(r_version = base::gsub("R version ", 1577s [00:52:56.983] "", base::R.version$version.string), 1577s [00:52:56.983] platform = base::sprintf("%s (%s-bit)", 1577s [00:52:56.983] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1577s [00:52:56.983] os = base::paste(base::Sys.info()[base::c("sysname", 1577s [00:52:56.983] "release", "version")], collapse = " "), 1577s [00:52:56.983] hostname = base::Sys.info()[["nodename"]]) 1577s [00:52:56.983] info <- base::sprintf("%s: %s", base::names(info), 1577s [00:52:56.983] info) 1577s [00:52:56.983] info <- base::paste(info, collapse = "; ") 1577s [00:52:56.983] if (!has_future) { 1577s [00:52:56.983] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1577s [00:52:56.983] info) 1577s [00:52:56.983] } 1577s [00:52:56.983] else { 1577s [00:52:56.983] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1577s [00:52:56.983] info, version) 1577s [00:52:56.983] } 1577s [00:52:56.983] base::stop(msg) 1577s [00:52:56.983] } 1577s [00:52:56.983] }) 1577s [00:52:56.983] } 1577s [00:52:56.983] options(future.plan = NULL) 1577s [00:52:56.983] Sys.unsetenv("R_FUTURE_PLAN") 1577s [00:52:56.983] future::plan("default", .cleanup = FALSE, .init = FALSE) 1577s [00:52:56.983] } 1577s [00:52:56.983] ...future.workdir <- getwd() 1577s [00:52:56.983] } 1577s [00:52:56.983] ...future.oldOptions <- base::as.list(base::.Options) 1577s [00:52:56.983] ...future.oldEnvVars <- base::Sys.getenv() 1577s [00:52:56.983] } 1577s [00:52:56.983] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1577s [00:52:56.983] future.globals.maxSize = NULL, future.globals.method = NULL, 1577s [00:52:56.983] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1577s [00:52:56.983] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1577s [00:52:56.983] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1577s [00:52:56.983] future.stdout.windows.reencode = NULL, width = 80L) 1577s [00:52:56.983] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1577s [00:52:56.983] base::names(...future.oldOptions)) 1577s [00:52:56.983] } 1577s [00:52:56.983] if (FALSE) { 1577s [00:52:56.983] } 1577s [00:52:56.983] else { 1577s [00:52:56.983] if (TRUE) { 1577s [00:52:56.983] ...future.stdout <- base::rawConnection(base::raw(0L), 1577s [00:52:56.983] open = "w") 1577s [00:52:56.983] } 1577s [00:52:56.983] else { 1577s [00:52:56.983] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1577s [00:52:56.983] windows = "NUL", "/dev/null"), open = "w") 1577s [00:52:56.983] } 1577s [00:52:56.983] base::sink(...future.stdout, type = "output", split = FALSE) 1577s [00:52:56.983] base::on.exit(if (!base::is.null(...future.stdout)) { 1577s [00:52:56.983] base::sink(type = "output", split = FALSE) 1577s [00:52:56.983] base::close(...future.stdout) 1577s [00:52:56.983] }, add = TRUE) 1577s [00:52:56.983] } 1577s [00:52:56.983] ...future.frame <- base::sys.nframe() 1577s [00:52:56.983] ...future.conditions <- base::list() 1577s [00:52:56.983] ...future.rng <- base::globalenv()$.Random.seed 1577s [00:52:56.983] if (FALSE) { 1577s [00:52:56.983] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1577s [00:52:56.983] "...future.value", "...future.globalenv.names", ".Random.seed") 1577s [00:52:56.983] } 1577s [00:52:56.983] ...future.result <- base::tryCatch({ 1577s [00:52:56.983] base::withCallingHandlers({ 1577s [00:52:56.983] ...future.value <- base::withVisible(base::local({ 1577s [00:52:56.983] do.call(function(...) { 1577s [00:52:56.983] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1577s [00:52:56.983] if (!identical(...future.globals.maxSize.org, 1577s [00:52:56.983] ...future.globals.maxSize)) { 1577s [00:52:56.983] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1577s [00:52:56.983] on.exit(options(oopts), add = TRUE) 1577s [00:52:56.983] } 1577s [00:52:56.983] { 1577s [00:52:56.983] lapply(seq_along(...future.elements_ii), 1577s [00:52:56.983] FUN = function(jj) { 1577s [00:52:56.983] ...future.X_jj <- ...future.elements_ii[[jj]] 1577s [00:52:56.983] ...future.FUN(...future.X_jj, ...) 1577s [00:52:56.983] }) 1577s [00:52:56.983] } 1577s [00:52:56.983] }, args = future.call.arguments) 1577s [00:52:56.983] })) 1577s [00:52:56.983] future::FutureResult(value = ...future.value$value, 1577s [00:52:56.983] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1577s [00:52:56.983] ...future.rng), globalenv = if (FALSE) 1577s [00:52:56.983] list(added = base::setdiff(base::names(base::.GlobalEnv), 1577s [00:52:56.983] ...future.globalenv.names)) 1577s [00:52:56.983] else NULL, started = ...future.startTime, version = "1.8") 1577s [00:52:56.983] }, condition = base::local({ 1577s [00:52:56.983] c <- base::c 1577s [00:52:56.983] inherits <- base::inherits 1577s [00:52:56.983] invokeRestart <- base::invokeRestart 1577s [00:52:56.983] length <- base::length 1577s [00:52:56.983] list <- base::list 1577s [00:52:56.983] seq.int <- base::seq.int 1577s [00:52:56.983] signalCondition <- base::signalCondition 1577s [00:52:56.983] sys.calls <- base::sys.calls 1577s [00:52:56.983] `[[` <- base::`[[` 1577s [00:52:56.983] `+` <- base::`+` 1577s [00:52:56.983] `<<-` <- base::`<<-` 1577s [00:52:56.983] sysCalls <- function(calls = sys.calls(), from = 1L) { 1577s [00:52:56.983] calls[seq.int(from = from + 12L, to = length(calls) - 1577s [00:52:56.983] 3L)] 1577s [00:52:56.983] } 1577s [00:52:56.983] function(cond) { 1577s [00:52:56.983] is_error <- inherits(cond, "error") 1577s [00:52:56.983] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1577s [00:52:56.983] NULL) 1577s [00:52:56.983] if (is_error) { 1577s [00:52:56.983] sessionInformation <- function() { 1577s [00:52:56.983] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1577s [00:52:56.983] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1577s [00:52:56.983] search = base::search(), system = base::Sys.info()) 1577s [00:52:56.983] } 1577s [00:52:56.983] ...future.conditions[[length(...future.conditions) + 1577s [00:52:56.983] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1577s [00:52:56.983] cond$call), session = sessionInformation(), 1577s [00:52:56.983] timestamp = base::Sys.time(), signaled = 0L) 1577s [00:52:56.983] signalCondition(cond) 1577s [00:52:56.983] } 1577s [00:52:56.983] else if (!ignore && TRUE && inherits(cond, c("condition", 1577s [00:52:56.983] "immediateCondition"))) { 1577s [00:52:56.983] signal <- TRUE && inherits(cond, "immediateCondition") 1577s [00:52:56.983] ...future.conditions[[length(...future.conditions) + 1577s [00:52:56.983] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1577s [00:52:56.983] if (TRUE && !signal) { 1577s [00:52:56.983] muffleCondition <- function (cond, pattern = "^muffle") 1577s [00:52:56.983] { 1577s [00:52:56.983] inherits <- base::inherits 1577s [00:52:56.983] invokeRestart <- base::invokeRestart 1577s [00:52:56.983] is.null <- base::is.null 1577s [00:52:56.983] muffled <- FALSE 1577s [00:52:56.983] if (inherits(cond, "message")) { 1577s [00:52:56.983] muffled <- grepl(pattern, "muffleMessage") 1577s [00:52:56.983] if (muffled) 1577s [00:52:56.983] invokeRestart("muffleMessage") 1577s [00:52:56.983] } 1577s [00:52:56.983] else if (inherits(cond, "warning")) { 1577s [00:52:56.983] muffled <- grepl(pattern, "muffleWarning") 1577s [00:52:56.983] if (muffled) 1577s [00:52:56.983] invokeRestart("muffleWarning") 1577s [00:52:56.983] } 1577s [00:52:56.983] else if (inherits(cond, "condition")) { 1577s [00:52:56.983] if (!is.null(pattern)) { 1577s [00:52:56.983] computeRestarts <- base::computeRestarts 1577s [00:52:56.983] grepl <- base::grepl 1577s [00:52:56.983] restarts <- computeRestarts(cond) 1577s [00:52:56.983] for (restart in restarts) { 1577s [00:52:56.983] name <- restart$name 1577s [00:52:56.983] if (is.null(name)) 1577s [00:52:56.983] next 1577s [00:52:56.983] if (!grepl(pattern, name)) 1577s [00:52:56.983] next 1577s [00:52:56.983] invokeRestart(restart) 1577s [00:52:56.983] muffled <- TRUE 1577s [00:52:56.983] break 1577s [00:52:56.983] } 1577s [00:52:56.983] } 1577s [00:52:56.983] } 1577s [00:52:56.983] invisible(muffled) 1577s [00:52:56.983] } 1577s [00:52:56.983] muffleCondition(cond, pattern = "^muffle") 1577s [00:52:56.983] } 1577s [00:52:56.983] } 1577s [00:52:56.983] else { 1577s [00:52:56.983] if (TRUE) { 1577s [00:52:56.983] muffleCondition <- function (cond, pattern = "^muffle") 1577s [00:52:56.983] { 1577s [00:52:56.983] inherits <- base::inherits 1577s [00:52:56.983] invokeRestart <- base::invokeRestart 1577s [00:52:56.983] is.null <- base::is.null 1577s [00:52:56.983] muffled <- FALSE 1577s [00:52:56.983] if (inherits(cond, "message")) { 1577s [00:52:56.983] muffled <- grepl(pattern, "muffleMessage") 1577s [00:52:56.983] if (muffled) 1577s [00:52:56.983] invokeRestart("muffleMessage") 1577s [00:52:56.983] } 1577s [00:52:56.983] else if (inherits(cond, "warning")) { 1577s [00:52:56.983] muffled <- grepl(pattern, "muffleWarning") 1577s [00:52:56.983] if (muffled) 1577s [00:52:56.983] invokeRestart("muffleWarning") 1577s [00:52:56.983] } 1577s [00:52:56.983] else if (inherits(cond, "condition")) { 1577s [00:52:56.983] if (!is.null(pattern)) { 1577s [00:52:56.983] computeRestarts <- base::computeRestarts 1577s [00:52:56.983] grepl <- base::grepl 1577s [00:52:56.983] restarts <- computeRestarts(cond) 1577s [00:52:56.983] for (restart in restarts) { 1577s [00:52:56.983] name <- restart$name 1577s [00:52:56.983] if (is.null(name)) 1577s [00:52:56.983] next 1577s [00:52:56.983] if (!grepl(pattern, name)) 1577s [00:52:56.983] next 1577s [00:52:56.983] invokeRestart(restart) 1577s [00:52:56.983] muffled <- TRUE 1577s [00:52:56.983] break 1577s [00:52:56.983] } 1577s [00:52:56.983] } 1577s [00:52:56.983] } 1577s [00:52:56.983] invisible(muffled) 1577s [00:52:56.983] } 1577s [00:52:56.983] muffleCondition(cond, pattern = "^muffle") 1577s [00:52:56.983] } 1577s [00:52:56.983] } 1577s [00:52:56.983] } 1577s [00:52:56.983] })) 1577s [00:52:56.983] }, error = function(ex) { 1577s [00:52:56.983] base::structure(base::list(value = NULL, visible = NULL, 1577s [00:52:56.983] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1577s [00:52:56.983] ...future.rng), started = ...future.startTime, 1577s [00:52:56.983] finished = Sys.time(), session_uuid = NA_character_, 1577s [00:52:56.983] version = "1.8"), class = "FutureResult") 1577s [00:52:56.983] }, finally = { 1577s [00:52:56.983] if (!identical(...future.workdir, getwd())) 1577s [00:52:56.983] setwd(...future.workdir) 1577s [00:52:56.983] { 1577s [00:52:56.983] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1577s [00:52:56.983] ...future.oldOptions$nwarnings <- NULL 1577s [00:52:56.983] } 1577s [00:52:56.983] base::options(...future.oldOptions) 1577s [00:52:56.983] if (.Platform$OS.type == "windows") { 1577s [00:52:56.983] old_names <- names(...future.oldEnvVars) 1577s [00:52:56.983] envs <- base::Sys.getenv() 1577s [00:52:56.983] names <- names(envs) 1577s [00:52:56.983] common <- intersect(names, old_names) 1577s [00:52:56.983] added <- setdiff(names, old_names) 1577s [00:52:56.983] removed <- setdiff(old_names, names) 1577s [00:52:56.983] changed <- common[...future.oldEnvVars[common] != 1577s [00:52:56.983] envs[common]] 1577s [00:52:56.983] NAMES <- toupper(changed) 1577s [00:52:56.983] args <- list() 1577s [00:52:56.983] for (kk in seq_along(NAMES)) { 1577s [00:52:56.983] name <- changed[[kk]] 1577s [00:52:56.983] NAME <- NAMES[[kk]] 1577s [00:52:56.983] if (name != NAME && is.element(NAME, old_names)) 1577s [00:52:56.983] next 1577s [00:52:56.983] args[[name]] <- ...future.oldEnvVars[[name]] 1577s [00:52:56.983] } 1577s [00:52:56.983] NAMES <- toupper(added) 1577s [00:52:56.983] for (kk in seq_along(NAMES)) { 1577s [00:52:56.983] name <- added[[kk]] 1577s [00:52:56.983] NAME <- NAMES[[kk]] 1577s [00:52:56.983] if (name != NAME && is.element(NAME, old_names)) 1577s [00:52:56.983] next 1577s [00:52:56.983] args[[name]] <- "" 1577s [00:52:56.983] } 1577s [00:52:56.983] NAMES <- toupper(removed) 1577s [00:52:56.983] for (kk in seq_along(NAMES)) { 1577s [00:52:56.983] name <- removed[[kk]] 1577s [00:52:56.983] NAME <- NAMES[[kk]] 1577s [00:52:56.983] if (name != NAME && is.element(NAME, old_names)) 1577s [00:52:56.983] next 1577s [00:52:56.983] args[[name]] <- ...future.oldEnvVars[[name]] 1577s [00:52:56.983] } 1577s [00:52:56.983] if (length(args) > 0) 1577s [00:52:56.983] base::do.call(base::Sys.setenv, args = args) 1577s [00:52:56.983] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1577s [00:52:56.983] } 1577s [00:52:56.983] else { 1577s [00:52:56.983] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1577s [00:52:56.983] } 1577s [00:52:56.983] { 1577s [00:52:56.983] if (base::length(...future.futureOptionsAdded) > 1577s [00:52:56.983] 0L) { 1577s [00:52:56.983] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1577s [00:52:56.983] base::names(opts) <- ...future.futureOptionsAdded 1577s [00:52:56.983] base::options(opts) 1577s [00:52:56.983] } 1577s [00:52:56.983] { 1577s [00:52:56.983] { 1577s [00:52:56.983] NULL 1577s [00:52:56.983] RNGkind("Mersenne-Twister") 1577s [00:52:56.983] base::rm(list = ".Random.seed", envir = base::globalenv(), 1577s [00:52:56.983] inherits = FALSE) 1577s [00:52:56.983] } 1577s [00:52:56.983] options(future.plan = NULL) 1577s [00:52:56.983] if (is.na(NA_character_)) 1577s [00:52:56.983] Sys.unsetenv("R_FUTURE_PLAN") 1577s [00:52:56.983] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1577s [00:52:56.983] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1577s [00:52:56.983] envir = parent.frame()) 1577s [00:52:56.983] { 1577s [00:52:56.983] default_workers <- missing(workers) 1577s [00:52:56.983] if (is.function(workers)) 1577s [00:52:56.983] workers <- workers() 1577s [00:52:56.983] workers <- structure(as.integer(workers), 1577s [00:52:56.983] class = class(workers)) 1577s [00:52:56.983] stop_if_not(is.finite(workers), workers >= 1577s [00:52:56.983] 1L) 1577s [00:52:56.983] if ((workers == 1L && !inherits(workers, 1577s [00:52:56.983] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1577s [00:52:56.983] if (default_workers) 1577s [00:52:56.983] supportsMulticore(warn = TRUE) 1577s [00:52:56.983] return(sequential(..., envir = envir)) 1577s [00:52:56.983] } 1577s [00:52:56.983] oopts <- options(mc.cores = workers) 1577s [00:52:56.983] on.exit(options(oopts)) 1577s [00:52:56.983] future <- MulticoreFuture(..., workers = workers, 1577s [00:52:56.983] envir = envir) 1577s [00:52:56.983] if (!future$lazy) 1577s [00:52:56.983] future <- run(future) 1577s [00:52:56.983] invisible(future) 1577s [00:52:56.983] }), .cleanup = FALSE, .init = FALSE) 1577s [00:52:56.983] } 1577s [00:52:56.983] } 1577s [00:52:56.983] } 1577s [00:52:56.983] }) 1577s [00:52:56.983] if (TRUE) { 1577s [00:52:56.983] base::sink(type = "output", split = FALSE) 1577s [00:52:56.983] if (TRUE) { 1577s [00:52:56.983] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1577s [00:52:56.983] } 1577s [00:52:56.983] else { 1577s [00:52:56.983] ...future.result["stdout"] <- base::list(NULL) 1577s [00:52:56.983] } 1577s [00:52:56.983] base::close(...future.stdout) 1577s [00:52:56.983] ...future.stdout <- NULL 1577s [00:52:56.983] } 1577s [00:52:56.983] ...future.result$conditions <- ...future.conditions 1577s [00:52:56.983] ...future.result$finished <- base::Sys.time() 1577s [00:52:56.983] ...future.result 1577s [00:52:56.983] } 1577s [00:52:56.987] assign_globals() ... 1577s [00:52:56.987] List of 5 1577s [00:52:56.987] $ ...future.FUN :function (x, ...) 1577s [00:52:56.987] $ future.call.arguments : list() 1577s [00:52:56.987] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1577s [00:52:56.987] $ ...future.elements_ii :List of 3 1577s [00:52:56.987] ..$ : chr "a" 1577s [00:52:56.987] ..$ : chr "b" 1577s [00:52:56.987] ..$ : chr "c" 1577s [00:52:56.987] $ ...future.seeds_ii : NULL 1577s [00:52:56.987] $ ...future.globals.maxSize: NULL 1577s [00:52:56.987] - attr(*, "where")=List of 5 1577s [00:52:56.987] ..$ ...future.FUN : 1577s [00:52:56.987] ..$ future.call.arguments : 1577s [00:52:56.987] ..$ ...future.elements_ii : 1577s [00:52:56.987] ..$ ...future.seeds_ii : 1577s [00:52:56.987] ..$ ...future.globals.maxSize: 1577s [00:52:56.987] - attr(*, "resolved")= logi FALSE 1577s [00:52:56.987] - attr(*, "total_size")= num 1248 1577s [00:52:56.987] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1577s [00:52:56.987] - attr(*, "already-done")= logi TRUE 1577s [00:52:56.994] - copied ‘...future.FUN’ to environment 1577s [00:52:56.995] - copied ‘future.call.arguments’ to environment 1577s [00:52:56.995] - copied ‘...future.elements_ii’ to environment 1577s [00:52:56.995] - copied ‘...future.seeds_ii’ to environment 1577s [00:52:56.995] - copied ‘...future.globals.maxSize’ to environment 1577s [00:52:56.995] assign_globals() ... done 1577s [00:52:56.995] plan(): Setting new future strategy stack: 1577s [00:52:56.996] List of future strategies: 1577s [00:52:56.996] 1. sequential: 1577s [00:52:56.996] - args: function (..., envir = parent.frame()) 1577s [00:52:56.996] - tweaked: FALSE 1577s [00:52:56.996] - call: NULL 1577s [00:52:56.996] plan(): nbrOfWorkers() = 1 1577s [00:52:56.997] plan(): Setting new future strategy stack: 1577s [00:52:56.997] List of future strategies: 1577s [00:52:56.997] 1. multicore: 1577s [00:52:56.997] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1577s [00:52:56.997] - tweaked: FALSE 1577s [00:52:56.997] - call: plan(strategy) 1577s [00:52:57.000] plan(): nbrOfWorkers() = 1 1577s [00:52:57.001] SequentialFuture started (and completed) 1577s [00:52:57.001] - Launch lazy future ... done 1577s [00:52:57.001] run() for ‘SequentialFuture’ ... done 1577s [00:52:57.001] Created future: 1577s [00:52:57.001] SequentialFuture: 1577s [00:52:57.001] Label: ‘future_sapply-1’ 1577s [00:52:57.001] Expression: 1577s [00:52:57.001] { 1577s [00:52:57.001] do.call(function(...) { 1577s [00:52:57.001] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1577s [00:52:57.001] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1577s [00:52:57.001] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1577s [00:52:57.001] on.exit(options(oopts), add = TRUE) 1577s [00:52:57.001] } 1577s [00:52:57.001] { 1577s [00:52:57.001] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1577s [00:52:57.001] ...future.X_jj <- ...future.elements_ii[[jj]] 1577s [00:52:57.001] ...future.FUN(...future.X_jj, ...) 1577s [00:52:57.001] }) 1577s [00:52:57.001] } 1577s [00:52:57.001] }, args = future.call.arguments) 1577s [00:52:57.001] } 1577s [00:52:57.001] Lazy evaluation: FALSE 1577s [00:52:57.001] Asynchronous evaluation: FALSE 1577s [00:52:57.001] Local evaluation: TRUE 1577s [00:52:57.001] Environment: R_GlobalEnv 1577s [00:52:57.001] Capture standard output: TRUE 1577s [00:52:57.001] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1577s [00:52:57.001] Globals: 5 objects totaling 1.55 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1577s [00:52:57.001] Packages: 1577s [00:52:57.001] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1577s [00:52:57.001] Resolved: TRUE 1577s [00:52:57.001] Value: 840 bytes of class ‘list’ 1577s [00:52:57.001] Early signaling: FALSE 1577s [00:52:57.001] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1577s [00:52:57.001] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1577s [00:52:57.003] Chunk #1 of 1 ... DONE 1577s [00:52:57.003] Launching 1 futures (chunks) ... DONE 1577s [00:52:57.003] Resolving 1 futures (chunks) ... 1577s [00:52:57.003] resolve() on list ... 1577s [00:52:57.003] recursive: 0 1577s [00:52:57.003] length: 1 1577s [00:52:57.004] 1577s [00:52:57.004] resolved() for ‘SequentialFuture’ ... 1577s [00:52:57.004] - state: ‘finished’ 1577s [00:52:57.004] - run: TRUE 1577s [00:52:57.004] - result: ‘FutureResult’ 1577s [00:52:57.005] resolved() for ‘SequentialFuture’ ... done 1577s [00:52:57.005] Future #1 1577s [00:52:57.005] signalConditionsASAP(SequentialFuture, pos=1) ... 1577s [00:52:57.005] - nx: 1 1577s [00:52:57.005] - relay: TRUE 1577s [00:52:57.005] - stdout: TRUE 1577s [00:52:57.005] - signal: TRUE 1577s [00:52:57.006] - resignal: FALSE 1577s [00:52:57.006] - force: TRUE 1577s [00:52:57.006] - relayed: [n=1] FALSE 1577s [00:52:57.006] - queued futures: [n=1] FALSE 1577s [00:52:57.006] - until=1 1577s [00:52:57.006] - relaying element #1 1577s [00:52:57.007] - relayed: [n=1] TRUE 1577s [00:52:57.007] - queued futures: [n=1] TRUE 1577s [00:52:57.007] signalConditionsASAP(SequentialFuture, pos=1) ... done 1577s [00:52:57.007] length: 0 (resolved future 1) 1577s [00:52:57.007] Relaying remaining futures 1577s [00:52:57.007] signalConditionsASAP(NULL, pos=0) ... 1577s [00:52:57.007] - nx: 1 1577s [00:52:57.008] - relay: TRUE 1577s [00:52:57.008] - stdout: TRUE 1577s [00:52:57.008] - signal: TRUE 1577s [00:52:57.008] - resignal: FALSE 1577s [00:52:57.008] - force: TRUE 1577s [00:52:57.008] - relayed: [n=1] TRUE 1577s [00:52:57.008] - queued futures: [n=1] TRUE 1577s - flush all 1577s [00:52:57.009] - relayed: [n=1] TRUE 1577s [00:52:57.009] - queued futures: [n=1] TRUE 1577s [00:52:57.009] signalConditionsASAP(NULL, pos=0) ... done 1577s [00:52:57.009] resolve() on list ... DONE 1577s [00:52:57.009] - Number of value chunks collected: 1 1577s [00:52:57.009] Resolving 1 futures (chunks) ... DONE 1577s [00:52:57.010] Reducing values from 1 chunks ... 1577s [00:52:57.010] - Number of values collected after concatenation: 3 1577s [00:52:57.010] - Number of values expected: 3 1577s [00:52:57.010] Reducing values from 1 chunks ... DONE 1577s [00:52:57.010] future_lapply() ... DONE 1577s List of 2 1577s $ y0: Named chr [1:3] "a" "b" "c" 1577s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1577s $ y1: Named chr [1:3] "a" "b" "c" 1577s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1577s [00:52:57.013] future_lapply() ... 1577s [00:52:57.017] Number of chunks: 1 1577s [00:52:57.017] getGlobalsAndPackagesXApply() ... 1577s [00:52:57.017] - future.globals: TRUE 1577s [00:52:57.017] getGlobalsAndPackages() ... 1577s [00:52:57.017] Searching for globals... 1577s [00:52:57.019] - globals found: [1] ‘FUN’ 1577s [00:52:57.019] Searching for globals ... DONE 1577s [00:52:57.020] Resolving globals: FALSE 1577s [00:52:57.020] The total size of the 1 globals is 848 bytes (848 bytes) 1577s [00:52:57.021] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1577s [00:52:57.021] - globals: [1] ‘FUN’ 1577s [00:52:57.021] 1577s [00:52:57.022] getGlobalsAndPackages() ... DONE 1577s [00:52:57.022] - globals found/used: [n=1] ‘FUN’ 1577s [00:52:57.022] - needed namespaces: [n=0] 1577s [00:52:57.022] Finding globals ... DONE 1577s [00:52:57.022] - use_args: TRUE 1577s [00:52:57.022] - Getting '...' globals ... 1577s [00:52:57.023] resolve() on list ... 1577s [00:52:57.023] recursive: 0 1577s [00:52:57.023] length: 1 1577s [00:52:57.023] elements: ‘...’ 1577s [00:52:57.024] length: 0 (resolved future 1) 1577s [00:52:57.024] resolve() on list ... DONE 1577s [00:52:57.024] - '...' content: [n=0] 1577s [00:52:57.024] List of 1 1577s [00:52:57.024] $ ...: list() 1577s [00:52:57.024] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1577s [00:52:57.024] - attr(*, "where")=List of 1 1577s [00:52:57.024] ..$ ...: 1577s [00:52:57.024] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1577s [00:52:57.024] - attr(*, "resolved")= logi TRUE 1577s [00:52:57.024] - attr(*, "total_size")= num NA 1577s [00:52:57.031] - Getting '...' globals ... DONE 1577s [00:52:57.031] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1577s [00:52:57.031] List of 2 1577s [00:52:57.031] $ ...future.FUN:function (x) 1577s [00:52:57.031] $ ... : list() 1577s [00:52:57.031] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1577s [00:52:57.031] - attr(*, "where")=List of 2 1577s [00:52:57.031] ..$ ...future.FUN: 1577s [00:52:57.031] ..$ ... : 1577s [00:52:57.031] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1577s [00:52:57.031] - attr(*, "resolved")= logi FALSE 1577s [00:52:57.031] - attr(*, "total_size")= num 848 1577s [00:52:57.036] Packages to be attached in all futures: [n=0] 1577s [00:52:57.036] getGlobalsAndPackagesXApply() ... DONE 1577s [00:52:57.037] Number of futures (= number of chunks): 1 1577s [00:52:57.037] Launching 1 futures (chunks) ... 1577s [00:52:57.037] Chunk #1 of 1 ... 1577s [00:52:57.037] - Finding globals in 'X' for chunk #1 ... 1577s [00:52:57.037] getGlobalsAndPackages() ... 1577s [00:52:57.037] Searching for globals... 1577s [00:52:57.038] 1577s [00:52:57.038] Searching for globals ... DONE 1577s [00:52:57.038] - globals: [0] 1577s [00:52:57.038] getGlobalsAndPackages() ... DONE 1577s [00:52:57.039] + additional globals found: [n=0] 1577s [00:52:57.039] + additional namespaces needed: [n=0] 1577s [00:52:57.039] - Finding globals in 'X' for chunk #1 ... DONE 1577s [00:52:57.039] - seeds: 1577s [00:52:57.039] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1577s [00:52:57.040] getGlobalsAndPackages() ... 1577s [00:52:57.040] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1577s [00:52:57.040] Resolving globals: FALSE 1577s [00:52:57.040] Tweak future expression to call with '...' arguments ... 1577s [00:52:57.040] { 1577s [00:52:57.040] do.call(function(...) { 1577s [00:52:57.040] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1577s [00:52:57.040] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1577s [00:52:57.040] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1577s [00:52:57.040] on.exit(options(oopts), add = TRUE) 1577s [00:52:57.040] } 1577s [00:52:57.040] { 1577s [00:52:57.040] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1577s [00:52:57.040] ...future.X_jj <- ...future.elements_ii[[jj]] 1577s [00:52:57.040] ...future.FUN(...future.X_jj, ...) 1577s [00:52:57.040] }) 1577s [00:52:57.040] } 1577s [00:52:57.040] }, args = future.call.arguments) 1577s [00:52:57.040] } 1577s [00:52:57.041] Tweak future expression to call with '...' arguments ... DONE 1577s [00:52:57.042] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1577s [00:52:57.042] 1577s [00:52:57.042] getGlobalsAndPackages() ... DONE 1577s [00:52:57.042] run() for ‘Future’ ... 1577s [00:52:57.043] - state: ‘created’ 1577s [00:52:57.043] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1577s [00:52:57.047] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1577s [00:52:57.047] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1577s [00:52:57.047] - Field: ‘label’ 1577s [00:52:57.047] - Field: ‘local’ 1577s [00:52:57.048] - Field: ‘owner’ 1577s [00:52:57.048] - Field: ‘envir’ 1577s [00:52:57.048] - Field: ‘packages’ 1577s [00:52:57.048] - Field: ‘gc’ 1577s [00:52:57.048] - Field: ‘conditions’ 1577s [00:52:57.049] - Field: ‘expr’ 1577s [00:52:57.049] - Field: ‘uuid’ 1577s [00:52:57.049] - Field: ‘seed’ 1577s [00:52:57.049] - Field: ‘version’ 1577s [00:52:57.049] - Field: ‘result’ 1577s [00:52:57.050] - Field: ‘asynchronous’ 1577s [00:52:57.050] - Field: ‘calls’ 1577s [00:52:57.050] - Field: ‘globals’ 1577s [00:52:57.050] - Field: ‘stdout’ 1577s [00:52:57.050] - Field: ‘earlySignal’ 1577s [00:52:57.050] - Field: ‘lazy’ 1577s [00:52:57.050] - Field: ‘state’ 1577s [00:52:57.051] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1577s [00:52:57.051] - Launch lazy future ... 1577s [00:52:57.051] Packages needed by the future expression (n = 0): 1577s [00:52:57.051] Packages needed by future strategies (n = 0): 1577s [00:52:57.052] { 1577s [00:52:57.052] { 1577s [00:52:57.052] { 1577s [00:52:57.052] ...future.startTime <- base::Sys.time() 1577s [00:52:57.052] { 1577s [00:52:57.052] { 1577s [00:52:57.052] { 1577s [00:52:57.052] base::local({ 1577s [00:52:57.052] has_future <- base::requireNamespace("future", 1577s [00:52:57.052] quietly = TRUE) 1577s [00:52:57.052] if (has_future) { 1577s [00:52:57.052] ns <- base::getNamespace("future") 1577s [00:52:57.052] version <- ns[[".package"]][["version"]] 1577s [00:52:57.052] if (is.null(version)) 1577s [00:52:57.052] version <- utils::packageVersion("future") 1577s [00:52:57.052] } 1577s [00:52:57.052] else { 1577s [00:52:57.052] version <- NULL 1577s [00:52:57.052] } 1577s [00:52:57.052] if (!has_future || version < "1.8.0") { 1577s [00:52:57.052] info <- base::c(r_version = base::gsub("R version ", 1577s [00:52:57.052] "", base::R.version$version.string), 1577s [00:52:57.052] platform = base::sprintf("%s (%s-bit)", 1577s [00:52:57.052] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1577s [00:52:57.052] os = base::paste(base::Sys.info()[base::c("sysname", 1577s [00:52:57.052] "release", "version")], collapse = " "), 1577s [00:52:57.052] hostname = base::Sys.info()[["nodename"]]) 1577s [00:52:57.052] info <- base::sprintf("%s: %s", base::names(info), 1577s [00:52:57.052] info) 1577s [00:52:57.052] info <- base::paste(info, collapse = "; ") 1577s [00:52:57.052] if (!has_future) { 1577s [00:52:57.052] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1577s [00:52:57.052] info) 1577s [00:52:57.052] } 1577s [00:52:57.052] else { 1577s [00:52:57.052] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1577s [00:52:57.052] info, version) 1577s [00:52:57.052] } 1577s [00:52:57.052] base::stop(msg) 1577s [00:52:57.052] } 1577s [00:52:57.052] }) 1577s [00:52:57.052] } 1577s [00:52:57.052] options(future.plan = NULL) 1577s [00:52:57.052] Sys.unsetenv("R_FUTURE_PLAN") 1577s [00:52:57.052] future::plan("default", .cleanup = FALSE, .init = FALSE) 1577s [00:52:57.052] } 1577s [00:52:57.052] ...future.workdir <- getwd() 1577s [00:52:57.052] } 1577s [00:52:57.052] ...future.oldOptions <- base::as.list(base::.Options) 1577s [00:52:57.052] ...future.oldEnvVars <- base::Sys.getenv() 1577s [00:52:57.052] } 1577s [00:52:57.052] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1577s [00:52:57.052] future.globals.maxSize = NULL, future.globals.method = NULL, 1577s [00:52:57.052] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1577s [00:52:57.052] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1577s [00:52:57.052] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1577s [00:52:57.052] future.stdout.windows.reencode = NULL, width = 80L) 1577s [00:52:57.052] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1577s [00:52:57.052] base::names(...future.oldOptions)) 1577s [00:52:57.052] } 1577s [00:52:57.052] if (FALSE) { 1577s [00:52:57.052] } 1577s [00:52:57.052] else { 1577s [00:52:57.052] if (TRUE) { 1577s [00:52:57.052] ...future.stdout <- base::rawConnection(base::raw(0L), 1577s [00:52:57.052] open = "w") 1577s [00:52:57.052] } 1577s [00:52:57.052] else { 1577s [00:52:57.052] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1577s [00:52:57.052] windows = "NUL", "/dev/null"), open = "w") 1577s [00:52:57.052] } 1577s [00:52:57.052] base::sink(...future.stdout, type = "output", split = FALSE) 1577s [00:52:57.052] base::on.exit(if (!base::is.null(...future.stdout)) { 1577s [00:52:57.052] base::sink(type = "output", split = FALSE) 1577s [00:52:57.052] base::close(...future.stdout) 1577s [00:52:57.052] }, add = TRUE) 1577s [00:52:57.052] } 1577s [00:52:57.052] ...future.frame <- base::sys.nframe() 1577s [00:52:57.052] ...future.conditions <- base::list() 1577s [00:52:57.052] ...future.rng <- base::globalenv()$.Random.seed 1577s [00:52:57.052] if (FALSE) { 1577s [00:52:57.052] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1577s [00:52:57.052] "...future.value", "...future.globalenv.names", ".Random.seed") 1577s [00:52:57.052] } 1577s [00:52:57.052] ...future.result <- base::tryCatch({ 1577s [00:52:57.052] base::withCallingHandlers({ 1577s [00:52:57.052] ...future.value <- base::withVisible(base::local({ 1577s [00:52:57.052] do.call(function(...) { 1577s [00:52:57.052] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1577s [00:52:57.052] if (!identical(...future.globals.maxSize.org, 1577s [00:52:57.052] ...future.globals.maxSize)) { 1577s [00:52:57.052] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1577s [00:52:57.052] on.exit(options(oopts), add = TRUE) 1577s [00:52:57.052] } 1577s [00:52:57.052] { 1577s [00:52:57.052] lapply(seq_along(...future.elements_ii), 1577s [00:52:57.052] FUN = function(jj) { 1577s [00:52:57.052] ...future.X_jj <- ...future.elements_ii[[jj]] 1577s [00:52:57.052] ...future.FUN(...future.X_jj, ...) 1577s [00:52:57.052] }) 1577s [00:52:57.052] } 1577s [00:52:57.052] }, args = future.call.arguments) 1577s [00:52:57.052] })) 1577s [00:52:57.052] future::FutureResult(value = ...future.value$value, 1577s [00:52:57.052] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1577s [00:52:57.052] ...future.rng), globalenv = if (FALSE) 1577s [00:52:57.052] list(added = base::setdiff(base::names(base::.GlobalEnv), 1577s [00:52:57.052] ...future.globalenv.names)) 1577s [00:52:57.052] else NULL, started = ...future.startTime, version = "1.8") 1577s [00:52:57.052] }, condition = base::local({ 1577s [00:52:57.052] c <- base::c 1577s [00:52:57.052] inherits <- base::inherits 1577s [00:52:57.052] invokeRestart <- base::invokeRestart 1577s [00:52:57.052] length <- base::length 1577s [00:52:57.052] list <- base::list 1577s [00:52:57.052] seq.int <- base::seq.int 1577s [00:52:57.052] signalCondition <- base::signalCondition 1577s [00:52:57.052] sys.calls <- base::sys.calls 1577s [00:52:57.052] `[[` <- base::`[[` 1577s [00:52:57.052] `+` <- base::`+` 1577s [00:52:57.052] `<<-` <- base::`<<-` 1577s [00:52:57.052] sysCalls <- function(calls = sys.calls(), from = 1L) { 1577s [00:52:57.052] calls[seq.int(from = from + 12L, to = length(calls) - 1577s [00:52:57.052] 3L)] 1577s [00:52:57.052] } 1577s [00:52:57.052] function(cond) { 1577s [00:52:57.052] is_error <- inherits(cond, "error") 1577s [00:52:57.052] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1577s [00:52:57.052] NULL) 1577s [00:52:57.052] if (is_error) { 1577s [00:52:57.052] sessionInformation <- function() { 1577s [00:52:57.052] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1577s [00:52:57.052] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1577s [00:52:57.052] search = base::search(), system = base::Sys.info()) 1577s [00:52:57.052] } 1577s [00:52:57.052] ...future.conditions[[length(...future.conditions) + 1577s [00:52:57.052] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1577s [00:52:57.052] cond$call), session = sessionInformation(), 1577s [00:52:57.052] timestamp = base::Sys.time(), signaled = 0L) 1577s [00:52:57.052] signalCondition(cond) 1577s [00:52:57.052] } 1577s [00:52:57.052] else if (!ignore && TRUE && inherits(cond, c("condition", 1577s [00:52:57.052] "immediateCondition"))) { 1577s [00:52:57.052] signal <- TRUE && inherits(cond, "immediateCondition") 1577s [00:52:57.052] ...future.conditions[[length(...future.conditions) + 1577s [00:52:57.052] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1577s [00:52:57.052] if (TRUE && !signal) { 1577s [00:52:57.052] muffleCondition <- function (cond, pattern = "^muffle") 1577s [00:52:57.052] { 1577s [00:52:57.052] inherits <- base::inherits 1577s [00:52:57.052] invokeRestart <- base::invokeRestart 1577s [00:52:57.052] is.null <- base::is.null 1577s [00:52:57.052] muffled <- FALSE 1577s [00:52:57.052] if (inherits(cond, "message")) { 1577s [00:52:57.052] muffled <- grepl(pattern, "muffleMessage") 1577s [00:52:57.052] if (muffled) 1577s [00:52:57.052] invokeRestart("muffleMessage") 1577s [00:52:57.052] } 1577s [00:52:57.052] else if (inherits(cond, "warning")) { 1577s [00:52:57.052] muffled <- grepl(pattern, "muffleWarning") 1577s [00:52:57.052] if (muffled) 1577s [00:52:57.052] invokeRestart("muffleWarning") 1577s [00:52:57.052] } 1577s [00:52:57.052] else if (inherits(cond, "condition")) { 1577s [00:52:57.052] if (!is.null(pattern)) { 1577s [00:52:57.052] computeRestarts <- base::computeRestarts 1577s [00:52:57.052] grepl <- base::grepl 1577s [00:52:57.052] restarts <- computeRestarts(cond) 1577s [00:52:57.052] for (restart in restarts) { 1577s [00:52:57.052] name <- restart$name 1577s [00:52:57.052] if (is.null(name)) 1577s [00:52:57.052] next 1577s [00:52:57.052] if (!grepl(pattern, name)) 1577s [00:52:57.052] next 1577s [00:52:57.052] invokeRestart(restart) 1577s [00:52:57.052] muffled <- TRUE 1577s [00:52:57.052] break 1577s [00:52:57.052] } 1577s [00:52:57.052] } 1577s [00:52:57.052] } 1577s [00:52:57.052] invisible(muffled) 1577s [00:52:57.052] } 1577s [00:52:57.052] muffleCondition(cond, pattern = "^muffle") 1577s [00:52:57.052] } 1577s [00:52:57.052] } 1577s [00:52:57.052] else { 1577s [00:52:57.052] if (TRUE) { 1577s [00:52:57.052] muffleCondition <- function (cond, pattern = "^muffle") 1577s [00:52:57.052] { 1577s [00:52:57.052] inherits <- base::inherits 1577s [00:52:57.052] invokeRestart <- base::invokeRestart 1577s [00:52:57.052] is.null <- base::is.null 1577s [00:52:57.052] muffled <- FALSE 1577s [00:52:57.052] if (inherits(cond, "message")) { 1577s [00:52:57.052] muffled <- grepl(pattern, "muffleMessage") 1577s [00:52:57.052] if (muffled) 1577s [00:52:57.052] invokeRestart("muffleMessage") 1577s [00:52:57.052] } 1577s [00:52:57.052] else if (inherits(cond, "warning")) { 1577s [00:52:57.052] muffled <- grepl(pattern, "muffleWarning") 1577s [00:52:57.052] if (muffled) 1577s [00:52:57.052] invokeRestart("muffleWarning") 1577s [00:52:57.052] } 1577s [00:52:57.052] else if (inherits(cond, "condition")) { 1577s [00:52:57.052] if (!is.null(pattern)) { 1577s [00:52:57.052] computeRestarts <- base::computeRestarts 1577s [00:52:57.052] grepl <- base::grepl 1577s [00:52:57.052] restarts <- computeRestarts(cond) 1577s [00:52:57.052] for (restart in restarts) { 1577s [00:52:57.052] name <- restart$name 1577s [00:52:57.052] if (is.null(name)) 1577s [00:52:57.052] next 1577s [00:52:57.052] if (!grepl(pattern, name)) 1577s [00:52:57.052] next 1577s [00:52:57.052] invokeRestart(restart) 1577s [00:52:57.052] muffled <- TRUE 1577s [00:52:57.052] break 1577s [00:52:57.052] } 1577s [00:52:57.052] } 1577s [00:52:57.052] } 1577s [00:52:57.052] invisible(muffled) 1577s [00:52:57.052] } 1577s [00:52:57.052] muffleCondition(cond, pattern = "^muffle") 1577s [00:52:57.052] } 1577s [00:52:57.052] } 1577s [00:52:57.052] } 1577s [00:52:57.052] })) 1577s [00:52:57.052] }, error = function(ex) { 1577s [00:52:57.052] base::structure(base::list(value = NULL, visible = NULL, 1577s [00:52:57.052] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1577s [00:52:57.052] ...future.rng), started = ...future.startTime, 1577s [00:52:57.052] finished = Sys.time(), session_uuid = NA_character_, 1577s [00:52:57.052] version = "1.8"), class = "FutureResult") 1577s [00:52:57.052] }, finally = { 1577s [00:52:57.052] if (!identical(...future.workdir, getwd())) 1577s [00:52:57.052] setwd(...future.workdir) 1577s [00:52:57.052] { 1577s [00:52:57.052] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1577s [00:52:57.052] ...future.oldOptions$nwarnings <- NULL 1577s [00:52:57.052] } 1577s [00:52:57.052] base::options(...future.oldOptions) 1577s [00:52:57.052] if (.Platform$OS.type == "windows") { 1577s [00:52:57.052] old_names <- names(...future.oldEnvVars) 1577s [00:52:57.052] envs <- base::Sys.getenv() 1577s [00:52:57.052] names <- names(envs) 1577s [00:52:57.052] common <- intersect(names, old_names) 1577s [00:52:57.052] added <- setdiff(names, old_names) 1577s [00:52:57.052] removed <- setdiff(old_names, names) 1577s [00:52:57.052] changed <- common[...future.oldEnvVars[common] != 1577s [00:52:57.052] envs[common]] 1577s [00:52:57.052] NAMES <- toupper(changed) 1577s [00:52:57.052] args <- list() 1577s [00:52:57.052] for (kk in seq_along(NAMES)) { 1577s [00:52:57.052] name <- changed[[kk]] 1577s [00:52:57.052] NAME <- NAMES[[kk]] 1577s [00:52:57.052] if (name != NAME && is.element(NAME, old_names)) 1577s [00:52:57.052] next 1577s [00:52:57.052] args[[name]] <- ...future.oldEnvVars[[name]] 1577s [00:52:57.052] } 1577s [00:52:57.052] NAMES <- toupper(added) 1577s [00:52:57.052] for (kk in seq_along(NAMES)) { 1577s [00:52:57.052] name <- added[[kk]] 1577s [00:52:57.052] NAME <- NAMES[[kk]] 1577s [00:52:57.052] if (name != NAME && is.element(NAME, old_names)) 1577s [00:52:57.052] next 1577s [00:52:57.052] args[[name]] <- "" 1577s [00:52:57.052] } 1577s [00:52:57.052] NAMES <- toupper(removed) 1577s [00:52:57.052] for (kk in seq_along(NAMES)) { 1577s [00:52:57.052] name <- removed[[kk]] 1577s [00:52:57.052] NAME <- NAMES[[kk]] 1577s [00:52:57.052] if (name != NAME && is.element(NAME, old_names)) 1577s [00:52:57.052] next 1577s [00:52:57.052] args[[name]] <- ...future.oldEnvVars[[name]] 1577s [00:52:57.052] } 1577s [00:52:57.052] if (length(args) > 0) 1577s [00:52:57.052] base::do.call(base::Sys.setenv, args = args) 1577s [00:52:57.052] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1577s [00:52:57.052] } 1577s [00:52:57.052] else { 1577s [00:52:57.052] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1577s [00:52:57.052] } 1577s [00:52:57.052] { 1577s [00:52:57.052] if (base::length(...future.futureOptionsAdded) > 1577s [00:52:57.052] 0L) { 1577s [00:52:57.052] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1577s [00:52:57.052] base::names(opts) <- ...future.futureOptionsAdded 1577s [00:52:57.052] base::options(opts) 1577s [00:52:57.052] } 1577s [00:52:57.052] { 1577s [00:52:57.052] { 1577s [00:52:57.052] NULL 1577s [00:52:57.052] RNGkind("Mersenne-Twister") 1577s [00:52:57.052] base::rm(list = ".Random.seed", envir = base::globalenv(), 1577s [00:52:57.052] inherits = FALSE) 1577s [00:52:57.052] } 1577s [00:52:57.052] options(future.plan = NULL) 1577s [00:52:57.052] if (is.na(NA_character_)) 1577s [00:52:57.052] Sys.unsetenv("R_FUTURE_PLAN") 1577s [00:52:57.052] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1577s [00:52:57.052] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1577s [00:52:57.052] envir = parent.frame()) 1577s [00:52:57.052] { 1577s [00:52:57.052] default_workers <- missing(workers) 1577s [00:52:57.052] if (is.function(workers)) 1577s [00:52:57.052] workers <- workers() 1577s [00:52:57.052] workers <- structure(as.integer(workers), 1577s [00:52:57.052] class = class(workers)) 1577s [00:52:57.052] stop_if_not(is.finite(workers), workers >= 1577s [00:52:57.052] 1L) 1577s [00:52:57.052] if ((workers == 1L && !inherits(workers, 1577s [00:52:57.052] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1577s [00:52:57.052] if (default_workers) 1577s [00:52:57.052] supportsMulticore(warn = TRUE) 1577s [00:52:57.052] return(sequential(..., envir = envir)) 1577s [00:52:57.052] } 1577s [00:52:57.052] oopts <- options(mc.cores = workers) 1577s [00:52:57.052] on.exit(options(oopts)) 1577s [00:52:57.052] future <- MulticoreFuture(..., workers = workers, 1577s [00:52:57.052] envir = envir) 1577s [00:52:57.052] if (!future$lazy) 1577s [00:52:57.052] future <- run(future) 1577s [00:52:57.052] invisible(future) 1577s [00:52:57.052] }), .cleanup = FALSE, .init = FALSE) 1577s [00:52:57.052] } 1577s [00:52:57.052] } 1577s [00:52:57.052] } 1577s [00:52:57.052] }) 1577s [00:52:57.052] if (TRUE) { 1577s [00:52:57.052] base::sink(type = "output", split = FALSE) 1577s [00:52:57.052] if (TRUE) { 1577s [00:52:57.052] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1577s [00:52:57.052] } 1577s [00:52:57.052] else { 1577s [00:52:57.052] ...future.result["stdout"] <- base::list(NULL) 1577s [00:52:57.052] } 1577s [00:52:57.052] base::close(...future.stdout) 1577s [00:52:57.052] ...future.stdout <- NULL 1577s [00:52:57.052] } 1577s [00:52:57.052] ...future.result$conditions <- ...future.conditions 1577s [00:52:57.052] ...future.result$finished <- base::Sys.time() 1577s [00:52:57.052] ...future.result 1577s [00:52:57.052] } 1577s [00:52:57.059] assign_globals() ... 1577s [00:52:57.060] List of 5 1577s [00:52:57.060] $ ...future.FUN :function (x) 1577s [00:52:57.060] $ future.call.arguments : list() 1577s [00:52:57.060] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1577s [00:52:57.060] $ ...future.elements_ii :List of 3 1577s [00:52:57.060] ..$ : chr "a" 1577s [00:52:57.060] ..$ : chr "b" 1577s [00:52:57.060] ..$ : chr "c" 1577s [00:52:57.060] $ ...future.seeds_ii : NULL 1577s [00:52:57.060] $ ...future.globals.maxSize: NULL 1577s [00:52:57.060] - attr(*, "where")=List of 5 1577s [00:52:57.060] ..$ ...future.FUN : 1577s [00:52:57.060] ..$ future.call.arguments : 1577s [00:52:57.060] ..$ ...future.elements_ii : 1577s [00:52:57.060] ..$ ...future.seeds_ii : 1577s [00:52:57.060] ..$ ...future.globals.maxSize: 1577s [00:52:57.060] - attr(*, "resolved")= logi FALSE 1577s [00:52:57.060] - attr(*, "total_size")= num 848 1577s [00:52:57.060] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1577s [00:52:57.060] - attr(*, "already-done")= logi TRUE 1577s [00:52:57.067] - copied ‘...future.FUN’ to environment 1577s [00:52:57.067] - copied ‘future.call.arguments’ to environment 1577s [00:52:57.067] - copied ‘...future.elements_ii’ to environment 1577s [00:52:57.068] - copied ‘...future.seeds_ii’ to environment 1577s [00:52:57.068] - copied ‘...future.globals.maxSize’ to environment 1577s [00:52:57.068] assign_globals() ... done 1577s [00:52:57.068] plan(): Setting new future strategy stack: 1577s [00:52:57.068] List of future strategies: 1577s [00:52:57.068] 1. sequential: 1577s [00:52:57.068] - args: function (..., envir = parent.frame()) 1577s [00:52:57.068] - tweaked: FALSE 1577s [00:52:57.068] - call: NULL 1577s [00:52:57.069] plan(): nbrOfWorkers() = 1 1577s [00:52:57.070] plan(): Setting new future strategy stack: 1577s [00:52:57.070] List of future strategies: 1577s [00:52:57.070] 1. multicore: 1577s [00:52:57.070] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1577s [00:52:57.070] - tweaked: FALSE 1577s [00:52:57.070] - call: plan(strategy) 1577s [00:52:57.074] plan(): nbrOfWorkers() = 1 1577s [00:52:57.074] SequentialFuture started (and completed) 1577s [00:52:57.074] - Launch lazy future ... done 1577s [00:52:57.075] run() for ‘SequentialFuture’ ... done 1577s [00:52:57.075] Created future: 1577s [00:52:57.075] SequentialFuture: 1577s [00:52:57.075] Label: ‘future_sapply-1’ 1577s [00:52:57.075] Expression: 1577s [00:52:57.075] { 1577s [00:52:57.075] do.call(function(...) { 1577s [00:52:57.075] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1577s [00:52:57.075] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1577s [00:52:57.075] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1577s [00:52:57.075] on.exit(options(oopts), add = TRUE) 1577s [00:52:57.075] } 1577s [00:52:57.075] { 1577s [00:52:57.075] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1577s [00:52:57.075] ...future.X_jj <- ...future.elements_ii[[jj]] 1577s [00:52:57.075] ...future.FUN(...future.X_jj, ...) 1577s [00:52:57.075] }) 1577s [00:52:57.075] } 1577s [00:52:57.075] }, args = future.call.arguments) 1577s [00:52:57.075] } 1577s [00:52:57.075] Lazy evaluation: FALSE 1577s [00:52:57.075] Asynchronous evaluation: FALSE 1577s [00:52:57.075] Local evaluation: TRUE 1577s [00:52:57.075] Environment: R_GlobalEnv 1577s [00:52:57.075] Capture standard output: TRUE 1577s [00:52:57.075] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1577s [00:52:57.075] Globals: 5 objects totaling 1.16 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1577s [00:52:57.075] Packages: 1577s [00:52:57.075] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1577s [00:52:57.075] Resolved: TRUE 1577s [00:52:57.075] Value: 336 bytes of class ‘list’ 1577s [00:52:57.075] Early signaling: FALSE 1577s [00:52:57.075] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1577s [00:52:57.075] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1577s [00:52:57.077] Chunk #1 of 1 ... DONE 1577s [00:52:57.078] Launching 1 futures (chunks) ... DONE 1577s [00:52:57.078] Resolving 1 futures (chunks) ... 1577s [00:52:57.078] resolve() on list ... 1577s [00:52:57.079] recursive: 0 1577s [00:52:57.079] length: 1 1577s [00:52:57.080] 1577s [00:52:57.080] resolved() for ‘SequentialFuture’ ... 1577s [00:52:57.080] - state: ‘finished’ 1577s [00:52:57.080] - run: TRUE 1577s [00:52:57.081] - result: ‘FutureResult’ 1577s [00:52:57.081] resolved() for ‘SequentialFuture’ ... done 1577s [00:52:57.082] Future #1 1577s [00:52:57.083] signalConditionsASAP(SequentialFuture, pos=1) ... 1577s [00:52:57.083] - nx: 1 1577s [00:52:57.083] - relay: TRUE 1577s [00:52:57.083] - stdout: TRUE 1577s [00:52:57.084] - signal: TRUE 1577s [00:52:57.084] - resignal: FALSE 1577s [00:52:57.084] - force: TRUE 1577s [00:52:57.085] - relayed: [n=1] FALSE 1577s [00:52:57.085] - queued futures: [n=1] FALSE 1577s [00:52:57.085] - until=1 1577s [00:52:57.085] - relaying element #1 1577s [00:52:57.086] - relayed: [n=1] TRUE 1577s [00:52:57.086] - queued futures: [n=1] TRUE 1577s [00:52:57.086] signalConditionsASAP(SequentialFuture, pos=1) ... done 1577s [00:52:57.086] length: 0 (resolved future 1) 1577s [00:52:57.086] Relaying remaining futures 1577s [00:52:57.087] signalConditionsASAP(NULL, pos=0) ... 1577s [00:52:57.087] - nx: 1 1577s [00:52:57.087] - relay: TRUE 1577s [00:52:57.088] - stdout: TRUE 1577s [00:52:57.088] - signal: TRUE 1577s [00:52:57.088] - resignal: FALSE 1577s [00:52:57.089] - force: TRUE 1577s [00:52:57.089] - relayed: [n=1] TRUE 1577s [00:52:57.090] - queued futures: [n=1] TRUE 1577s - flush all 1577s [00:52:57.091] - relayed: [n=1] TRUE 1577s [00:52:57.091] - queued futures: [n=1] TRUE 1577s [00:52:57.091] signalConditionsASAP(NULL, pos=0) ... done 1577s [00:52:57.091] resolve() on list ... DONE 1577s [00:52:57.092] - Number of value chunks collected: 1 1577s [00:52:57.092] Resolving 1 futures (chunks) ... DONE 1577s [00:52:57.093] Reducing values from 1 chunks ... 1577s [00:52:57.094] - Number of values collected after concatenation: 3 1577s [00:52:57.094] - Number of values expected: 3 1577s [00:52:57.094] Reducing values from 1 chunks ... DONE 1577s [00:52:57.094] future_lapply() ... DONE 1577s List of 2 1577s $ y0: Named chr [1:3] "a" "b" "c" 1577s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1577s $ y1:[00:52:57.101] future_lapply() ... 1577s Named chr [1:3] "a" "b" "c" 1577s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1577s [00:52:57.114] Number of chunks: 1 1577s [00:52:57.114] getGlobalsAndPackagesXApply() ... 1577s [00:52:57.115] - future.globals: TRUE 1577s [00:52:57.116] getGlobalsAndPackages() ... 1577s [00:52:57.117] Searching for globals... 1577s [00:52:57.121] - globals found: [2] ‘FUN’, ‘UseMethod’ 1577s [00:52:57.122] Searching for globals ... DONE 1577s [00:52:57.123] Resolving globals: FALSE 1577s [00:52:57.125] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1577s [00:52:57.126] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1577s [00:52:57.127] - globals: [1] ‘FUN’ 1577s [00:52:57.127] 1577s [00:52:57.127] getGlobalsAndPackages() ... DONE 1577s [00:52:57.127] - globals found/used: [n=1] ‘FUN’ 1577s [00:52:57.128] - needed namespaces: [n=0] 1577s [00:52:57.129] Finding globals ... DONE 1577s [00:52:57.129] - use_args: TRUE 1577s [00:52:57.129] - Getting '...' globals ... 1577s [00:52:57.130] resolve() on list ... 1577s [00:52:57.132] recursive: 0 1577s [00:52:57.132] length: 1 1577s [00:52:57.132] elements: ‘...’ 1577s [00:52:57.132] length: 0 (resolved future 1) 1577s [00:52:57.133] resolve() on list ... DONE 1577s [00:52:57.133] - '...' content: [n=0] 1577s [00:52:57.133] List of 1 1577s [00:52:57.133] $ ...: list() 1577s [00:52:57.133] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1577s [00:52:57.133] - attr(*, "where")=List of 1 1577s [00:52:57.133] ..$ ...: 1577s [00:52:57.133] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1577s [00:52:57.133] - attr(*, "resolved")= logi TRUE 1577s [00:52:57.133] - attr(*, "total_size")= num NA 1577s [00:52:57.139] - Getting '...' globals ... DONE 1577s [00:52:57.139] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1577s [00:52:57.139] List of 2 1577s [00:52:57.139] $ ...future.FUN:function (x, ...) 1577s [00:52:57.139] $ ... : list() 1577s [00:52:57.139] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1577s [00:52:57.139] - attr(*, "where")=List of 2 1577s [00:52:57.139] ..$ ...future.FUN: 1577s [00:52:57.139] ..$ ... : 1577s [00:52:57.139] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1577s [00:52:57.139] - attr(*, "resolved")= logi FALSE 1577s [00:52:57.139] - attr(*, "total_size")= num 1248 1577s [00:52:57.147] Packages to be attached in all futures: [n=0] 1577s [00:52:57.147] getGlobalsAndPackagesXApply() ... DONE 1577s [00:52:57.148] Number of futures (= number of chunks): 1 1577s [00:52:57.148] Launching 1 futures (chunks) ... 1577s [00:52:57.148] Chunk #1 of 1 ... 1577s [00:52:57.149] - Finding globals in 'X' for chunk #1 ... 1577s [00:52:57.149] getGlobalsAndPackages() ... 1577s [00:52:57.149] Searching for globals... 1577s [00:52:57.150] 1577s [00:52:57.150] Searching for globals ... DONE 1577s [00:52:57.151] - globals: [0] 1577s [00:52:57.151] getGlobalsAndPackages() ... DONE 1577s [00:52:57.152] + additional globals found: [n=0] 1577s [00:52:57.152] + additional namespaces needed: [n=0] 1577s [00:52:57.152] - Finding globals in 'X' for chunk #1 ... DONE 1577s [00:52:57.152] - seeds: 1577s [00:52:57.152] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1577s [00:52:57.153] getGlobalsAndPackages() ... 1577s [00:52:57.153] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1577s [00:52:57.153] Resolving globals: FALSE 1577s [00:52:57.154] Tweak future expression to call with '...' arguments ... 1577s [00:52:57.154] { 1577s [00:52:57.154] do.call(function(...) { 1577s [00:52:57.154] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1577s [00:52:57.154] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1577s [00:52:57.154] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1577s [00:52:57.154] on.exit(options(oopts), add = TRUE) 1577s [00:52:57.154] } 1577s [00:52:57.154] { 1577s [00:52:57.154] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1577s [00:52:57.154] ...future.X_jj <- ...future.elements_ii[[jj]] 1577s [00:52:57.154] ...future.FUN(...future.X_jj, ...) 1577s [00:52:57.154] }) 1577s [00:52:57.154] } 1577s [00:52:57.154] }, args = future.call.arguments) 1577s [00:52:57.154] } 1577s [00:52:57.154] Tweak future expression to call with '...' arguments ... DONE 1577s [00:52:57.155] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1577s [00:52:57.156] 1577s [00:52:57.156] getGlobalsAndPackages() ... DONE 1577s [00:52:57.157] run() for ‘Future’ ... 1577s [00:52:57.157] - state: ‘created’ 1577s [00:52:57.157] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1577s [00:52:57.164] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1577s [00:52:57.164] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1577s [00:52:57.164] - Field: ‘label’ 1577s [00:52:57.165] - Field: ‘local’ 1577s [00:52:57.165] - Field: ‘owner’ 1577s [00:52:57.165] - Field: ‘envir’ 1577s [00:52:57.165] - Field: ‘packages’ 1577s [00:52:57.166] - Field: ‘gc’ 1577s [00:52:57.166] - Field: ‘conditions’ 1577s [00:52:57.166] - Field: ‘expr’ 1577s [00:52:57.166] - Field: ‘uuid’ 1577s [00:52:57.166] - Field: ‘seed’ 1577s [00:52:57.167] - Field: ‘version’ 1577s [00:52:57.167] - Field: ‘result’ 1577s [00:52:57.167] - Field: ‘asynchronous’ 1577s [00:52:57.167] - Field: ‘calls’ 1577s [00:52:57.168] - Field: ‘globals’ 1577s [00:52:57.168] - Field: ‘stdout’ 1577s [00:52:57.168] - Field: ‘earlySignal’ 1577s [00:52:57.168] - Field: ‘lazy’ 1577s [00:52:57.168] - Field: ‘state’ 1577s [00:52:57.168] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1577s [00:52:57.168] - Launch lazy future ... 1577s [00:52:57.169] Packages needed by the future expression (n = 0): 1577s [00:52:57.169] Packages needed by future strategies (n = 0): 1577s [00:52:57.170] { 1577s [00:52:57.170] { 1577s [00:52:57.170] { 1577s [00:52:57.170] ...future.startTime <- base::Sys.time() 1577s [00:52:57.170] { 1577s [00:52:57.170] { 1577s [00:52:57.170] { 1577s [00:52:57.170] base::local({ 1577s [00:52:57.170] has_future <- base::requireNamespace("future", 1577s [00:52:57.170] quietly = TRUE) 1577s [00:52:57.170] if (has_future) { 1577s [00:52:57.170] ns <- base::getNamespace("future") 1577s [00:52:57.170] version <- ns[[".package"]][["version"]] 1577s [00:52:57.170] if (is.null(version)) 1577s [00:52:57.170] version <- utils::packageVersion("future") 1577s [00:52:57.170] } 1577s [00:52:57.170] else { 1577s [00:52:57.170] version <- NULL 1577s [00:52:57.170] } 1577s [00:52:57.170] if (!has_future || version < "1.8.0") { 1577s [00:52:57.170] info <- base::c(r_version = base::gsub("R version ", 1577s [00:52:57.170] "", base::R.version$version.string), 1577s [00:52:57.170] platform = base::sprintf("%s (%s-bit)", 1577s [00:52:57.170] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1577s [00:52:57.170] os = base::paste(base::Sys.info()[base::c("sysname", 1577s [00:52:57.170] "release", "version")], collapse = " "), 1577s [00:52:57.170] hostname = base::Sys.info()[["nodename"]]) 1577s [00:52:57.170] info <- base::sprintf("%s: %s", base::names(info), 1577s [00:52:57.170] info) 1577s [00:52:57.170] info <- base::paste(info, collapse = "; ") 1577s [00:52:57.170] if (!has_future) { 1577s [00:52:57.170] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1577s [00:52:57.170] info) 1577s [00:52:57.170] } 1577s [00:52:57.170] else { 1577s [00:52:57.170] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1577s [00:52:57.170] info, version) 1577s [00:52:57.170] } 1577s [00:52:57.170] base::stop(msg) 1577s [00:52:57.170] } 1577s [00:52:57.170] }) 1577s [00:52:57.170] } 1577s [00:52:57.170] options(future.plan = NULL) 1577s [00:52:57.170] Sys.unsetenv("R_FUTURE_PLAN") 1577s [00:52:57.170] future::plan("default", .cleanup = FALSE, .init = FALSE) 1577s [00:52:57.170] } 1577s [00:52:57.170] ...future.workdir <- getwd() 1577s [00:52:57.170] } 1577s [00:52:57.170] ...future.oldOptions <- base::as.list(base::.Options) 1577s [00:52:57.170] ...future.oldEnvVars <- base::Sys.getenv() 1577s [00:52:57.170] } 1577s [00:52:57.170] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1577s [00:52:57.170] future.globals.maxSize = NULL, future.globals.method = NULL, 1577s [00:52:57.170] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1577s [00:52:57.170] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1577s [00:52:57.170] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1577s [00:52:57.170] future.stdout.windows.reencode = NULL, width = 80L) 1577s [00:52:57.170] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1577s [00:52:57.170] base::names(...future.oldOptions)) 1577s [00:52:57.170] } 1577s [00:52:57.170] if (FALSE) { 1577s [00:52:57.170] } 1577s [00:52:57.170] else { 1577s [00:52:57.170] if (TRUE) { 1577s [00:52:57.170] ...future.stdout <- base::rawConnection(base::raw(0L), 1577s [00:52:57.170] open = "w") 1577s [00:52:57.170] } 1577s [00:52:57.170] else { 1577s [00:52:57.170] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1577s [00:52:57.170] windows = "NUL", "/dev/null"), open = "w") 1577s [00:52:57.170] } 1577s [00:52:57.170] base::sink(...future.stdout, type = "output", split = FALSE) 1577s [00:52:57.170] base::on.exit(if (!base::is.null(...future.stdout)) { 1577s [00:52:57.170] base::sink(type = "output", split = FALSE) 1577s [00:52:57.170] base::close(...future.stdout) 1577s [00:52:57.170] }, add = TRUE) 1577s [00:52:57.170] } 1577s [00:52:57.170] ...future.frame <- base::sys.nframe() 1577s [00:52:57.170] ...future.conditions <- base::list() 1577s [00:52:57.170] ...future.rng <- base::globalenv()$.Random.seed 1577s [00:52:57.170] if (FALSE) { 1577s [00:52:57.170] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1577s [00:52:57.170] "...future.value", "...future.globalenv.names", ".Random.seed") 1577s [00:52:57.170] } 1577s [00:52:57.170] ...future.result <- base::tryCatch({ 1577s [00:52:57.170] base::withCallingHandlers({ 1577s [00:52:57.170] ...future.value <- base::withVisible(base::local({ 1577s [00:52:57.170] do.call(function(...) { 1577s [00:52:57.170] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1577s [00:52:57.170] if (!identical(...future.globals.maxSize.org, 1577s [00:52:57.170] ...future.globals.maxSize)) { 1577s [00:52:57.170] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1577s [00:52:57.170] on.exit(options(oopts), add = TRUE) 1577s [00:52:57.170] } 1577s [00:52:57.170] { 1577s [00:52:57.170] lapply(seq_along(...future.elements_ii), 1577s [00:52:57.170] FUN = function(jj) { 1577s [00:52:57.170] ...future.X_jj <- ...future.elements_ii[[jj]] 1577s [00:52:57.170] ...future.FUN(...future.X_jj, ...) 1577s [00:52:57.170] }) 1577s [00:52:57.170] } 1577s [00:52:57.170] }, args = future.call.arguments) 1577s [00:52:57.170] })) 1577s [00:52:57.170] future::FutureResult(value = ...future.value$value, 1577s [00:52:57.170] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1577s [00:52:57.170] ...future.rng), globalenv = if (FALSE) 1577s [00:52:57.170] list(added = base::setdiff(base::names(base::.GlobalEnv), 1577s [00:52:57.170] ...future.globalenv.names)) 1577s [00:52:57.170] else NULL, started = ...future.startTime, version = "1.8") 1577s [00:52:57.170] }, condition = base::local({ 1577s [00:52:57.170] c <- base::c 1577s [00:52:57.170] inherits <- base::inherits 1577s [00:52:57.170] invokeRestart <- base::invokeRestart 1577s [00:52:57.170] length <- base::length 1577s [00:52:57.170] list <- base::list 1577s [00:52:57.170] seq.int <- base::seq.int 1577s [00:52:57.170] signalCondition <- base::signalCondition 1577s [00:52:57.170] sys.calls <- base::sys.calls 1577s [00:52:57.170] `[[` <- base::`[[` 1577s [00:52:57.170] `+` <- base::`+` 1577s [00:52:57.170] `<<-` <- base::`<<-` 1577s [00:52:57.170] sysCalls <- function(calls = sys.calls(), from = 1L) { 1577s [00:52:57.170] calls[seq.int(from = from + 12L, to = length(calls) - 1577s [00:52:57.170] 3L)] 1577s [00:52:57.170] } 1577s [00:52:57.170] function(cond) { 1577s [00:52:57.170] is_error <- inherits(cond, "error") 1577s [00:52:57.170] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1577s [00:52:57.170] NULL) 1577s [00:52:57.170] if (is_error) { 1577s [00:52:57.170] sessionInformation <- function() { 1577s [00:52:57.170] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1577s [00:52:57.170] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1577s [00:52:57.170] search = base::search(), system = base::Sys.info()) 1577s [00:52:57.170] } 1577s [00:52:57.170] ...future.conditions[[length(...future.conditions) + 1577s [00:52:57.170] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1577s [00:52:57.170] cond$call), session = sessionInformation(), 1577s [00:52:57.170] timestamp = base::Sys.time(), signaled = 0L) 1577s [00:52:57.170] signalCondition(cond) 1577s [00:52:57.170] } 1577s [00:52:57.170] else if (!ignore && TRUE && inherits(cond, c("condition", 1577s [00:52:57.170] "immediateCondition"))) { 1577s [00:52:57.170] signal <- TRUE && inherits(cond, "immediateCondition") 1577s [00:52:57.170] ...future.conditions[[length(...future.conditions) + 1577s [00:52:57.170] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1577s [00:52:57.170] if (TRUE && !signal) { 1577s [00:52:57.170] muffleCondition <- function (cond, pattern = "^muffle") 1577s [00:52:57.170] { 1577s [00:52:57.170] inherits <- base::inherits 1577s [00:52:57.170] invokeRestart <- base::invokeRestart 1577s [00:52:57.170] is.null <- base::is.null 1577s [00:52:57.170] muffled <- FALSE 1577s [00:52:57.170] if (inherits(cond, "message")) { 1577s [00:52:57.170] muffled <- grepl(pattern, "muffleMessage") 1577s [00:52:57.170] if (muffled) 1577s [00:52:57.170] invokeRestart("muffleMessage") 1577s [00:52:57.170] } 1577s [00:52:57.170] else if (inherits(cond, "warning")) { 1577s [00:52:57.170] muffled <- grepl(pattern, "muffleWarning") 1577s [00:52:57.170] if (muffled) 1577s [00:52:57.170] invokeRestart("muffleWarning") 1577s [00:52:57.170] } 1577s [00:52:57.170] else if (inherits(cond, "condition")) { 1577s [00:52:57.170] if (!is.null(pattern)) { 1577s [00:52:57.170] computeRestarts <- base::computeRestarts 1577s [00:52:57.170] grepl <- base::grepl 1577s [00:52:57.170] restarts <- computeRestarts(cond) 1577s [00:52:57.170] for (restart in restarts) { 1577s [00:52:57.170] name <- restart$name 1577s [00:52:57.170] if (is.null(name)) 1577s [00:52:57.170] next 1577s [00:52:57.170] if (!grepl(pattern, name)) 1577s [00:52:57.170] next 1577s [00:52:57.170] invokeRestart(restart) 1577s [00:52:57.170] muffled <- TRUE 1577s [00:52:57.170] break 1577s [00:52:57.170] } 1577s [00:52:57.170] } 1577s [00:52:57.170] } 1577s [00:52:57.170] invisible(muffled) 1577s [00:52:57.170] } 1577s [00:52:57.170] muffleCondition(cond, pattern = "^muffle") 1577s [00:52:57.170] } 1577s [00:52:57.170] } 1577s [00:52:57.170] else { 1577s [00:52:57.170] if (TRUE) { 1577s [00:52:57.170] muffleCondition <- function (cond, pattern = "^muffle") 1577s [00:52:57.170] { 1577s [00:52:57.170] inherits <- base::inherits 1577s [00:52:57.170] invokeRestart <- base::invokeRestart 1577s [00:52:57.170] is.null <- base::is.null 1577s [00:52:57.170] muffled <- FALSE 1577s [00:52:57.170] if (inherits(cond, "message")) { 1577s [00:52:57.170] muffled <- grepl(pattern, "muffleMessage") 1577s [00:52:57.170] if (muffled) 1577s [00:52:57.170] invokeRestart("muffleMessage") 1577s [00:52:57.170] } 1577s [00:52:57.170] else if (inherits(cond, "warning")) { 1577s [00:52:57.170] muffled <- grepl(pattern, "muffleWarning") 1577s [00:52:57.170] if (muffled) 1577s [00:52:57.170] invokeRestart("muffleWarning") 1577s [00:52:57.170] } 1577s [00:52:57.170] else if (inherits(cond, "condition")) { 1577s [00:52:57.170] if (!is.null(pattern)) { 1577s [00:52:57.170] computeRestarts <- base::computeRestarts 1577s [00:52:57.170] grepl <- base::grepl 1577s [00:52:57.170] restarts <- computeRestarts(cond) 1577s [00:52:57.170] for (restart in restarts) { 1577s [00:52:57.170] name <- restart$name 1577s [00:52:57.170] if (is.null(name)) 1577s [00:52:57.170] next 1577s [00:52:57.170] if (!grepl(pattern, name)) 1577s [00:52:57.170] next 1577s [00:52:57.170] invokeRestart(restart) 1577s [00:52:57.170] muffled <- TRUE 1577s [00:52:57.170] break 1577s [00:52:57.170] } 1577s [00:52:57.170] } 1577s [00:52:57.170] } 1577s [00:52:57.170] invisible(muffled) 1577s [00:52:57.170] } 1577s [00:52:57.170] muffleCondition(cond, pattern = "^muffle") 1577s [00:52:57.170] } 1577s [00:52:57.170] } 1577s [00:52:57.170] } 1577s [00:52:57.170] })) 1577s [00:52:57.170] }, error = function(ex) { 1577s [00:52:57.170] base::structure(base::list(value = NULL, visible = NULL, 1577s [00:52:57.170] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1577s [00:52:57.170] ...future.rng), started = ...future.startTime, 1577s [00:52:57.170] finished = Sys.time(), session_uuid = NA_character_, 1577s [00:52:57.170] version = "1.8"), class = "FutureResult") 1577s [00:52:57.170] }, finally = { 1577s [00:52:57.170] if (!identical(...future.workdir, getwd())) 1577s [00:52:57.170] setwd(...future.workdir) 1577s [00:52:57.170] { 1577s [00:52:57.170] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1577s [00:52:57.170] ...future.oldOptions$nwarnings <- NULL 1577s [00:52:57.170] } 1577s [00:52:57.170] base::options(...future.oldOptions) 1577s [00:52:57.170] if (.Platform$OS.type == "windows") { 1577s [00:52:57.170] old_names <- names(...future.oldEnvVars) 1577s [00:52:57.170] envs <- base::Sys.getenv() 1577s [00:52:57.170] names <- names(envs) 1577s [00:52:57.170] common <- intersect(names, old_names) 1577s [00:52:57.170] added <- setdiff(names, old_names) 1577s [00:52:57.170] removed <- setdiff(old_names, names) 1577s [00:52:57.170] changed <- common[...future.oldEnvVars[common] != 1577s [00:52:57.170] envs[common]] 1577s [00:52:57.170] NAMES <- toupper(changed) 1577s [00:52:57.170] args <- list() 1577s [00:52:57.170] for (kk in seq_along(NAMES)) { 1577s [00:52:57.170] name <- changed[[kk]] 1577s [00:52:57.170] NAME <- NAMES[[kk]] 1577s [00:52:57.170] if (name != NAME && is.element(NAME, old_names)) 1577s [00:52:57.170] next 1577s [00:52:57.170] args[[name]] <- ...future.oldEnvVars[[name]] 1577s [00:52:57.170] } 1577s [00:52:57.170] NAMES <- toupper(added) 1577s [00:52:57.170] for (kk in seq_along(NAMES)) { 1577s [00:52:57.170] name <- added[[kk]] 1577s [00:52:57.170] NAME <- NAMES[[kk]] 1577s [00:52:57.170] if (name != NAME && is.element(NAME, old_names)) 1577s [00:52:57.170] next 1577s [00:52:57.170] args[[name]] <- "" 1577s [00:52:57.170] } 1577s [00:52:57.170] NAMES <- toupper(removed) 1577s [00:52:57.170] for (kk in seq_along(NAMES)) { 1577s [00:52:57.170] name <- removed[[kk]] 1577s [00:52:57.170] NAME <- NAMES[[kk]] 1577s [00:52:57.170] if (name != NAME && is.element(NAME, old_names)) 1577s [00:52:57.170] next 1577s [00:52:57.170] args[[name]] <- ...future.oldEnvVars[[name]] 1577s [00:52:57.170] } 1577s [00:52:57.170] if (length(args) > 0) 1577s [00:52:57.170] base::do.call(base::Sys.setenv, args = args) 1577s [00:52:57.170] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1577s [00:52:57.170] } 1577s [00:52:57.170] else { 1577s [00:52:57.170] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1577s [00:52:57.170] } 1577s [00:52:57.170] { 1577s [00:52:57.170] if (base::length(...future.futureOptionsAdded) > 1577s [00:52:57.170] 0L) { 1577s [00:52:57.170] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1577s [00:52:57.170] base::names(opts) <- ...future.futureOptionsAdded 1577s [00:52:57.170] base::options(opts) 1577s [00:52:57.170] } 1577s [00:52:57.170] { 1577s [00:52:57.170] { 1577s [00:52:57.170] NULL 1577s [00:52:57.170] RNGkind("Mersenne-Twister") 1577s [00:52:57.170] base::rm(list = ".Random.seed", envir = base::globalenv(), 1577s [00:52:57.170] inherits = FALSE) 1577s [00:52:57.170] } 1577s [00:52:57.170] options(future.plan = NULL) 1577s [00:52:57.170] if (is.na(NA_character_)) 1577s [00:52:57.170] Sys.unsetenv("R_FUTURE_PLAN") 1577s [00:52:57.170] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1577s [00:52:57.170] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1577s [00:52:57.170] envir = parent.frame()) 1577s [00:52:57.170] { 1577s [00:52:57.170] default_workers <- missing(workers) 1577s [00:52:57.170] if (is.function(workers)) 1577s [00:52:57.170] workers <- workers() 1577s [00:52:57.170] workers <- structure(as.integer(workers), 1577s [00:52:57.170] class = class(workers)) 1577s [00:52:57.170] stop_if_not(is.finite(workers), workers >= 1577s [00:52:57.170] 1L) 1577s [00:52:57.170] if ((workers == 1L && !inherits(workers, 1577s [00:52:57.170] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1577s [00:52:57.170] if (default_workers) 1577s [00:52:57.170] supportsMulticore(warn = TRUE) 1577s [00:52:57.170] return(sequential(..., envir = envir)) 1577s [00:52:57.170] } 1577s [00:52:57.170] oopts <- options(mc.cores = workers) 1577s [00:52:57.170] on.exit(options(oopts)) 1577s [00:52:57.170] future <- MulticoreFuture(..., workers = workers, 1577s [00:52:57.170] envir = envir) 1577s [00:52:57.170] if (!future$lazy) 1577s [00:52:57.170] future <- run(future) 1577s [00:52:57.170] invisible(future) 1577s [00:52:57.170] }), .cleanup = FALSE, .init = FALSE) 1577s [00:52:57.170] } 1577s [00:52:57.170] } 1577s [00:52:57.170] } 1577s [00:52:57.170] }) 1577s [00:52:57.170] if (TRUE) { 1577s [00:52:57.170] base::sink(type = "output", split = FALSE) 1577s [00:52:57.170] if (TRUE) { 1577s [00:52:57.170] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1577s [00:52:57.170] } 1577s [00:52:57.170] else { 1577s [00:52:57.170] ...future.result["stdout"] <- base::list(NULL) 1577s [00:52:57.170] } 1577s [00:52:57.170] base::close(...future.stdout) 1577s [00:52:57.170] ...future.stdout <- NULL 1577s [00:52:57.170] } 1577s [00:52:57.170] ...future.result$conditions <- ...future.conditions 1577s [00:52:57.170] ...future.result$finished <- base::Sys.time() 1577s [00:52:57.170] ...future.result 1577s [00:52:57.170] } 1577s [00:52:57.182] assign_globals() ... 1577s [00:52:57.183] List of 5 1577s [00:52:57.183] $ ...future.FUN :function (x, ...) 1577s [00:52:57.183] $ future.call.arguments : list() 1577s [00:52:57.183] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1577s [00:52:57.183] $ ...future.elements_ii :List of 3 1577s [00:52:57.183] ..$ : chr "a" 1577s [00:52:57.183] ..$ : chr "b" 1577s [00:52:57.183] ..$ : chr "c" 1577s [00:52:57.183] $ ...future.seeds_ii : NULL 1577s [00:52:57.183] $ ...future.globals.maxSize: NULL 1577s [00:52:57.183] - attr(*, "where")=List of 5 1577s [00:52:57.183] ..$ ...future.FUN : 1577s [00:52:57.183] ..$ future.call.arguments : 1577s [00:52:57.183] ..$ ...future.elements_ii : 1577s [00:52:57.183] ..$ ...future.seeds_ii : 1577s [00:52:57.183] ..$ ...future.globals.maxSize: 1577s [00:52:57.183] - attr(*, "resolved")= logi FALSE 1577s [00:52:57.183] - attr(*, "total_size")= num 1248 1577s [00:52:57.183] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1577s [00:52:57.183] - attr(*, "already-done")= logi TRUE 1577s [00:52:57.196] - copied ‘...future.FUN’ to environment 1577s [00:52:57.196] - copied ‘future.call.arguments’ to environment 1577s [00:52:57.196] - copied ‘...future.elements_ii’ to environment 1577s [00:52:57.197] - copied ‘...future.seeds_ii’ to environment 1577s [00:52:57.197] - copied ‘...future.globals.maxSize’ to environment 1577s [00:52:57.197] assign_globals() ... done 1577s [00:52:57.197] plan(): Setting new future strategy stack: 1577s [00:52:57.197] List of future strategies: 1577s [00:52:57.197] 1. sequential: 1577s [00:52:57.197] - args: function (..., envir = parent.frame()) 1577s [00:52:57.197] - tweaked: FALSE 1577s [00:52:57.197] - call: NULL 1577s [00:52:57.198] plan(): nbrOfWorkers() = 1 1577s [00:52:57.199] plan(): Setting new future strategy stack: 1577s [00:52:57.199] List of future strategies: 1577s [00:52:57.199] 1. multicore: 1577s [00:52:57.199] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1577s [00:52:57.199] - tweaked: FALSE 1577s [00:52:57.199] - call: plan(strategy) 1577s [00:52:57.205] plan(): nbrOfWorkers() = 1 1577s [00:52:57.205] SequentialFuture started (and completed) 1577s [00:52:57.206] - Launch lazy future ... done 1577s [00:52:57.206] run() for ‘SequentialFuture’ ... done 1577s [00:52:57.206] Created future: 1577s [00:52:57.206] SequentialFuture: 1577s [00:52:57.206] Label: ‘future_sapply-1’ 1577s [00:52:57.206] Expression: 1577s [00:52:57.206] { 1577s [00:52:57.206] do.call(function(...) { 1577s [00:52:57.206] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1577s [00:52:57.206] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1577s [00:52:57.206] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1577s [00:52:57.206] on.exit(options(oopts), add = TRUE) 1577s [00:52:57.206] } 1577s [00:52:57.206] { 1577s [00:52:57.206] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1577s [00:52:57.206] ...future.X_jj <- ...future.elements_ii[[jj]] 1577s [00:52:57.206] ...future.FUN(...future.X_jj, ...) 1577s [00:52:57.206] }) 1577s [00:52:57.206] } 1577s [00:52:57.206] }, args = future.call.arguments) 1577s [00:52:57.206] } 1577s [00:52:57.206] Lazy evaluation: FALSE 1577s [00:52:57.206] Asynchronous evaluation: FALSE 1577s [00:52:57.206] Local evaluation: TRUE 1577s [00:52:57.206] Environment: R_GlobalEnv 1577s [00:52:57.206] Capture standard output: TRUE 1577s [00:52:57.206] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1577s [00:52:57.206] Globals: 5 objects totaling 1.55 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1577s [00:52:57.206] Packages: 1577s [00:52:57.206] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1577s [00:52:57.206] Resolved: TRUE 1577s [00:52:57.206] Value: 840 bytes of class ‘list’ 1577s [00:52:57.206] Early signaling: FALSE 1577s [00:52:57.206] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1577s [00:52:57.206] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1577s [00:52:57.209] Chunk #1 of 1 ... DONE 1577s [00:52:57.209] Launching 1 futures (chunks) ... DONE 1577s [00:52:57.209] Resolving 1 futures (chunks) ... 1577s [00:52:57.209] resolve() on list ... 1577s [00:52:57.210] recursive: 0 1577s [00:52:57.210] length: 1 1577s [00:52:57.210] 1577s [00:52:57.210] resolved() for ‘SequentialFuture’ ... 1577s [00:52:57.210] - state: ‘finished’ 1577s [00:52:57.211] - run: TRUE 1577s [00:52:57.211] - result: ‘FutureResult’ 1577s [00:52:57.211] resolved() for ‘SequentialFuture’ ... done 1577s [00:52:57.211] Future #1 1577s [00:52:57.212] signalConditionsASAP(SequentialFuture, pos=1) ... 1577s [00:52:57.212] - nx: 1 1577s [00:52:57.212] - relay: TRUE 1577s [00:52:57.212] - stdout: TRUE 1577s [00:52:57.213] - signal: TRUE 1577s [00:52:57.213] - resignal: FALSE 1577s [00:52:57.213] - force: TRUE 1577s [00:52:57.214] - relayed: [n=1] FALSE 1577s [00:52:57.214] - queued futures: [n=1] FALSE 1577s [00:52:57.214] - until=1 1577s [00:52:57.214] - relaying element #1 1577s [00:52:57.215] - relayed: [n=1] TRUE 1577s [00:52:57.215] - queued futures: [n=1] TRUE 1577s [00:52:57.215] signalConditionsASAP(SequentialFuture, pos=1) ... done 1577s [00:52:57.215] length: 0 (resolved future 1) 1577s [00:52:57.216] Relaying remaining futures 1577s [00:52:57.216] signalConditionsASAP(NULL, pos=0) ... 1577s [00:52:57.216] - nx: 1 1577s [00:52:57.216] - relay: TRUE 1577s [00:52:57.216] - stdout: TRUE 1577s [00:52:57.216] - signal: TRUE 1577s [00:52:57.217] - resignal: FALSE 1577s [00:52:57.217] - force: TRUE 1577s [00:52:57.217] - relayed: [n=1] TRUE 1577s [00:52:57.217] - queued futures: [n=1] TRUE 1577s - flush all 1577s [00:52:57.218] - relayed: [n=1] TRUE 1577s [00:52:57.218] - queued futures: [n=1] TRUE 1577s [00:52:57.218] signalConditionsASAP(NULL, pos=0) ... done 1577s [00:52:57.218] resolve() on list ... DONE 1577s [00:52:57.219] - Number of value chunks collected: 1 1577s [00:52:57.219] Resolving 1 futures (chunks) ... DONE 1577s [00:52:57.219] Reducing values from 1 chunks ... 1577s [00:52:57.219] - Number of values collected after concatenation: 3 1577s [00:52:57.219] - Number of values expected: 3 1577s [00:52:57.220] Reducing values from 1 chunks ... DONE 1577s List[00:52:57.220] future_lapply() ... DONE 1577s of 2 1577s $ y0: Named chr [1:3] "a" "b" "c" 1577s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1577s $ y1: Named chr [1:3] "a" "b" "c" 1577s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1577s [00:52:57.226] future_lapply() ... 1577s [00:52:57.231] Number of chunks: 1 1577s [00:52:57.232] getGlobalsAndPackagesXApply() ... 1577s [00:52:57.232] - future.globals: TRUE 1577s [00:52:57.232] getGlobalsAndPackages() ... 1577s [00:52:57.232] Searching for globals... 1577s [00:52:57.234] - globals found: [1] ‘FUN’ 1577s [00:52:57.234] Searching for globals ... DONE 1577s [00:52:57.234] Resolving globals: FALSE 1577s [00:52:57.234] The total size of the 1 globals is 848 bytes (848 bytes) 1577s [00:52:57.235] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1577s [00:52:57.235] - globals: [1] ‘FUN’ 1577s [00:52:57.235] 1577s [00:52:57.235] getGlobalsAndPackages() ... DONE 1577s [00:52:57.235] - globals found/used: [n=1] ‘FUN’ 1577s [00:52:57.236] - needed namespaces: [n=0] 1577s [00:52:57.236] Finding globals ... DONE 1577s [00:52:57.236] - use_args: TRUE 1577s [00:52:57.236] - Getting '...' globals ... 1577s [00:52:57.236] resolve() on list ... 1577s [00:52:57.237] recursive: 0 1577s [00:52:57.237] length: 1 1577s [00:52:57.237] elements: ‘...’ 1577s [00:52:57.237] length: 0 (resolved future 1) 1577s [00:52:57.237] resolve() on list ... DONE 1577s [00:52:57.238] - '...' content: [n=0] 1577s [00:52:57.238] List of 1 1577s [00:52:57.238] $ ...: list() 1577s [00:52:57.238] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1577s [00:52:57.238] - attr(*, "where")=List of 1 1577s [00:52:57.238] ..$ ...: 1577s [00:52:57.238] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1577s [00:52:57.238] - attr(*, "resolved")= logi TRUE 1577s [00:52:57.238] - attr(*, "total_size")= num NA 1577s [00:52:57.242] - Getting '...' globals ... DONE 1577s [00:52:57.242] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1577s [00:52:57.242] List of 2 1577s [00:52:57.242] $ ...future.FUN:function (x) 1577s [00:52:57.242] $ ... : list() 1577s [00:52:57.242] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1577s [00:52:57.242] - attr(*, "where")=List of 2 1577s [00:52:57.242] ..$ ...future.FUN: 1577s [00:52:57.242] ..$ ... : 1577s [00:52:57.242] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1577s [00:52:57.242] - attr(*, "resolved")= logi FALSE 1577s [00:52:57.242] - attr(*, "total_size")= num 848 1577s [00:52:57.247] Packages to be attached in all futures: [n=0] 1577s [00:52:57.247] getGlobalsAndPackagesXApply() ... DONE 1577s [00:52:57.247] Number of futures (= number of chunks): 1 1577s [00:52:57.247] Launching 1 futures (chunks) ... 1577s [00:52:57.247] Chunk #1 of 1 ... 1577s [00:52:57.248] - Finding globals in 'X' for chunk #1 ... 1577s [00:52:57.248] getGlobalsAndPackages() ... 1577s [00:52:57.248] Searching for globals... 1577s [00:52:57.248] 1577s [00:52:57.248] Searching for globals ... DONE 1577s [00:52:57.249] - globals: [0] 1577s [00:52:57.249] getGlobalsAndPackages() ... DONE 1577s [00:52:57.249] + additional globals found: [n=0] 1577s [00:52:57.249] + additional namespaces needed: [n=0] 1577s [00:52:57.250] - Finding globals in 'X' for chunk #1 ... DONE 1577s [00:52:57.250] - seeds: 1577s [00:52:57.250] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1577s [00:52:57.251] getGlobalsAndPackages() ... 1577s [00:52:57.251] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1577s [00:52:57.251] Resolving globals: FALSE 1577s [00:52:57.251] Tweak future expression to call with '...' arguments ... 1577s [00:52:57.251] { 1577s [00:52:57.251] do.call(function(...) { 1577s [00:52:57.251] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1577s [00:52:57.251] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1577s [00:52:57.251] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1577s [00:52:57.251] on.exit(options(oopts), add = TRUE) 1577s [00:52:57.251] } 1577s [00:52:57.251] { 1577s [00:52:57.251] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1577s [00:52:57.251] ...future.X_jj <- ...future.elements_ii[[jj]] 1577s [00:52:57.251] ...future.FUN(...future.X_jj, ...) 1577s [00:52:57.251] }) 1577s [00:52:57.251] } 1577s [00:52:57.251] }, args = future.call.arguments) 1577s [00:52:57.251] } 1577s [00:52:57.252] Tweak future expression to call with '...' arguments ... DONE 1577s [00:52:57.252] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1577s [00:52:57.252] 1577s [00:52:57.253] getGlobalsAndPackages() ... DONE 1577s [00:52:57.253] run() for ‘Future’ ... 1577s [00:52:57.253] - state: ‘created’ 1577s [00:52:57.253] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1577s [00:52:57.257] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1577s [00:52:57.258] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1577s [00:52:57.258] - Field: ‘label’ 1577s [00:52:57.258] - Field: ‘local’ 1577s [00:52:57.258] - Field: ‘owner’ 1577s [00:52:57.258] - Field: ‘envir’ 1577s [00:52:57.258] - Field: ‘packages’ 1577s [00:52:57.259] - Field: ‘gc’ 1577s [00:52:57.259] - Field: ‘conditions’ 1577s [00:52:57.259] - Field: ‘expr’ 1577s [00:52:57.259] - Field: ‘uuid’ 1577s [00:52:57.259] - Field: ‘seed’ 1577s [00:52:57.259] - Field: ‘version’ 1577s [00:52:57.260] - Field: ‘result’ 1577s [00:52:57.260] - Field: ‘asynchronous’ 1577s [00:52:57.260] - Field: ‘calls’ 1577s [00:52:57.260] - Field: ‘globals’ 1577s [00:52:57.260] - Field: ‘stdout’ 1577s [00:52:57.260] - Field: ‘earlySignal’ 1577s [00:52:57.261] - Field: ‘lazy’ 1577s [00:52:57.261] - Field: ‘state’ 1577s [00:52:57.261] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1577s [00:52:57.261] - Launch lazy future ... 1577s [00:52:57.261] Packages needed by the future expression (n = 0): 1577s [00:52:57.262] Packages needed by future strategies (n = 0): 1577s [00:52:57.262] { 1577s [00:52:57.262] { 1577s [00:52:57.262] { 1577s [00:52:57.262] ...future.startTime <- base::Sys.time() 1577s [00:52:57.262] { 1577s [00:52:57.262] { 1577s [00:52:57.262] { 1577s [00:52:57.262] base::local({ 1577s [00:52:57.262] has_future <- base::requireNamespace("future", 1577s [00:52:57.262] quietly = TRUE) 1577s [00:52:57.262] if (has_future) { 1577s [00:52:57.262] ns <- base::getNamespace("future") 1577s [00:52:57.262] version <- ns[[".package"]][["version"]] 1577s [00:52:57.262] if (is.null(version)) 1577s [00:52:57.262] version <- utils::packageVersion("future") 1577s [00:52:57.262] } 1577s [00:52:57.262] else { 1577s [00:52:57.262] version <- NULL 1577s [00:52:57.262] } 1577s [00:52:57.262] if (!has_future || version < "1.8.0") { 1577s [00:52:57.262] info <- base::c(r_version = base::gsub("R version ", 1577s [00:52:57.262] "", base::R.version$version.string), 1577s [00:52:57.262] platform = base::sprintf("%s (%s-bit)", 1577s [00:52:57.262] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1577s [00:52:57.262] os = base::paste(base::Sys.info()[base::c("sysname", 1577s [00:52:57.262] "release", "version")], collapse = " "), 1577s [00:52:57.262] hostname = base::Sys.info()[["nodename"]]) 1577s [00:52:57.262] info <- base::sprintf("%s: %s", base::names(info), 1577s [00:52:57.262] info) 1577s [00:52:57.262] info <- base::paste(info, collapse = "; ") 1577s [00:52:57.262] if (!has_future) { 1577s [00:52:57.262] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1577s [00:52:57.262] info) 1577s [00:52:57.262] } 1577s [00:52:57.262] else { 1577s [00:52:57.262] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1577s [00:52:57.262] info, version) 1577s [00:52:57.262] } 1577s [00:52:57.262] base::stop(msg) 1577s [00:52:57.262] } 1577s [00:52:57.262] }) 1577s [00:52:57.262] } 1577s [00:52:57.262] options(future.plan = NULL) 1577s [00:52:57.262] Sys.unsetenv("R_FUTURE_PLAN") 1577s [00:52:57.262] future::plan("default", .cleanup = FALSE, .init = FALSE) 1577s [00:52:57.262] } 1577s [00:52:57.262] ...future.workdir <- getwd() 1577s [00:52:57.262] } 1577s [00:52:57.262] ...future.oldOptions <- base::as.list(base::.Options) 1577s [00:52:57.262] ...future.oldEnvVars <- base::Sys.getenv() 1577s [00:52:57.262] } 1577s [00:52:57.262] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1577s [00:52:57.262] future.globals.maxSize = NULL, future.globals.method = NULL, 1577s [00:52:57.262] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1577s [00:52:57.262] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1577s [00:52:57.262] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1577s [00:52:57.262] future.stdout.windows.reencode = NULL, width = 80L) 1577s [00:52:57.262] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1577s [00:52:57.262] base::names(...future.oldOptions)) 1577s [00:52:57.262] } 1577s [00:52:57.262] if (FALSE) { 1577s [00:52:57.262] } 1577s [00:52:57.262] else { 1577s [00:52:57.262] if (TRUE) { 1577s [00:52:57.262] ...future.stdout <- base::rawConnection(base::raw(0L), 1577s [00:52:57.262] open = "w") 1577s [00:52:57.262] } 1577s [00:52:57.262] else { 1577s [00:52:57.262] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1577s [00:52:57.262] windows = "NUL", "/dev/null"), open = "w") 1577s [00:52:57.262] } 1577s [00:52:57.262] base::sink(...future.stdout, type = "output", split = FALSE) 1577s [00:52:57.262] base::on.exit(if (!base::is.null(...future.stdout)) { 1577s [00:52:57.262] base::sink(type = "output", split = FALSE) 1577s [00:52:57.262] base::close(...future.stdout) 1577s [00:52:57.262] }, add = TRUE) 1577s [00:52:57.262] } 1577s [00:52:57.262] ...future.frame <- base::sys.nframe() 1577s [00:52:57.262] ...future.conditions <- base::list() 1577s [00:52:57.262] ...future.rng <- base::globalenv()$.Random.seed 1577s [00:52:57.262] if (FALSE) { 1577s [00:52:57.262] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1577s [00:52:57.262] "...future.value", "...future.globalenv.names", ".Random.seed") 1577s [00:52:57.262] } 1577s [00:52:57.262] ...future.result <- base::tryCatch({ 1577s [00:52:57.262] base::withCallingHandlers({ 1577s [00:52:57.262] ...future.value <- base::withVisible(base::local({ 1577s [00:52:57.262] do.call(function(...) { 1577s [00:52:57.262] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1577s [00:52:57.262] if (!identical(...future.globals.maxSize.org, 1577s [00:52:57.262] ...future.globals.maxSize)) { 1577s [00:52:57.262] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1577s [00:52:57.262] on.exit(options(oopts), add = TRUE) 1577s [00:52:57.262] } 1577s [00:52:57.262] { 1577s [00:52:57.262] lapply(seq_along(...future.elements_ii), 1577s [00:52:57.262] FUN = function(jj) { 1577s [00:52:57.262] ...future.X_jj <- ...future.elements_ii[[jj]] 1577s [00:52:57.262] ...future.FUN(...future.X_jj, ...) 1577s [00:52:57.262] }) 1577s [00:52:57.262] } 1577s [00:52:57.262] }, args = future.call.arguments) 1577s [00:52:57.262] })) 1577s [00:52:57.262] future::FutureResult(value = ...future.value$value, 1577s [00:52:57.262] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1577s [00:52:57.262] ...future.rng), globalenv = if (FALSE) 1577s [00:52:57.262] list(added = base::setdiff(base::names(base::.GlobalEnv), 1577s [00:52:57.262] ...future.globalenv.names)) 1577s [00:52:57.262] else NULL, started = ...future.startTime, version = "1.8") 1577s [00:52:57.262] }, condition = base::local({ 1577s [00:52:57.262] c <- base::c 1577s [00:52:57.262] inherits <- base::inherits 1577s [00:52:57.262] invokeRestart <- base::invokeRestart 1577s [00:52:57.262] length <- base::length 1577s [00:52:57.262] list <- base::list 1577s [00:52:57.262] seq.int <- base::seq.int 1577s [00:52:57.262] signalCondition <- base::signalCondition 1577s [00:52:57.262] sys.calls <- base::sys.calls 1577s [00:52:57.262] `[[` <- base::`[[` 1577s [00:52:57.262] `+` <- base::`+` 1577s [00:52:57.262] `<<-` <- base::`<<-` 1577s [00:52:57.262] sysCalls <- function(calls = sys.calls(), from = 1L) { 1577s [00:52:57.262] calls[seq.int(from = from + 12L, to = length(calls) - 1577s [00:52:57.262] 3L)] 1577s [00:52:57.262] } 1577s [00:52:57.262] function(cond) { 1577s [00:52:57.262] is_error <- inherits(cond, "error") 1577s [00:52:57.262] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1577s [00:52:57.262] NULL) 1577s [00:52:57.262] if (is_error) { 1577s [00:52:57.262] sessionInformation <- function() { 1577s [00:52:57.262] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1577s [00:52:57.262] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1577s [00:52:57.262] search = base::search(), system = base::Sys.info()) 1577s [00:52:57.262] } 1577s [00:52:57.262] ...future.conditions[[length(...future.conditions) + 1577s [00:52:57.262] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1577s [00:52:57.262] cond$call), session = sessionInformation(), 1577s [00:52:57.262] timestamp = base::Sys.time(), signaled = 0L) 1577s [00:52:57.262] signalCondition(cond) 1577s [00:52:57.262] } 1577s [00:52:57.262] else if (!ignore && TRUE && inherits(cond, c("condition", 1577s [00:52:57.262] "immediateCondition"))) { 1577s [00:52:57.262] signal <- TRUE && inherits(cond, "immediateCondition") 1577s [00:52:57.262] ...future.conditions[[length(...future.conditions) + 1577s [00:52:57.262] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1577s [00:52:57.262] if (TRUE && !signal) { 1577s [00:52:57.262] muffleCondition <- function (cond, pattern = "^muffle") 1577s [00:52:57.262] { 1577s [00:52:57.262] inherits <- base::inherits 1577s [00:52:57.262] invokeRestart <- base::invokeRestart 1577s [00:52:57.262] is.null <- base::is.null 1577s [00:52:57.262] muffled <- FALSE 1577s [00:52:57.262] if (inherits(cond, "message")) { 1577s [00:52:57.262] muffled <- grepl(pattern, "muffleMessage") 1577s [00:52:57.262] if (muffled) 1577s [00:52:57.262] invokeRestart("muffleMessage") 1577s [00:52:57.262] } 1577s [00:52:57.262] else if (inherits(cond, "warning")) { 1577s [00:52:57.262] muffled <- grepl(pattern, "muffleWarning") 1577s [00:52:57.262] if (muffled) 1577s [00:52:57.262] invokeRestart("muffleWarning") 1577s [00:52:57.262] } 1577s [00:52:57.262] else if (inherits(cond, "condition")) { 1577s [00:52:57.262] if (!is.null(pattern)) { 1577s [00:52:57.262] computeRestarts <- base::computeRestarts 1577s [00:52:57.262] grepl <- base::grepl 1577s [00:52:57.262] restarts <- computeRestarts(cond) 1577s [00:52:57.262] for (restart in restarts) { 1577s [00:52:57.262] name <- restart$name 1577s [00:52:57.262] if (is.null(name)) 1577s [00:52:57.262] next 1577s [00:52:57.262] if (!grepl(pattern, name)) 1577s [00:52:57.262] next 1577s [00:52:57.262] invokeRestart(restart) 1577s [00:52:57.262] muffled <- TRUE 1577s [00:52:57.262] break 1577s [00:52:57.262] } 1577s [00:52:57.262] } 1577s [00:52:57.262] } 1577s [00:52:57.262] invisible(muffled) 1577s [00:52:57.262] } 1577s [00:52:57.262] muffleCondition(cond, pattern = "^muffle") 1577s [00:52:57.262] } 1577s [00:52:57.262] } 1577s [00:52:57.262] else { 1577s [00:52:57.262] if (TRUE) { 1577s [00:52:57.262] muffleCondition <- function (cond, pattern = "^muffle") 1577s [00:52:57.262] { 1577s [00:52:57.262] inherits <- base::inherits 1577s [00:52:57.262] invokeRestart <- base::invokeRestart 1577s [00:52:57.262] is.null <- base::is.null 1577s [00:52:57.262] muffled <- FALSE 1577s [00:52:57.262] if (inherits(cond, "message")) { 1577s [00:52:57.262] muffled <- grepl(pattern, "muffleMessage") 1577s [00:52:57.262] if (muffled) 1577s [00:52:57.262] invokeRestart("muffleMessage") 1577s [00:52:57.262] } 1577s [00:52:57.262] else if (inherits(cond, "warning")) { 1577s [00:52:57.262] muffled <- grepl(pattern, "muffleWarning") 1577s [00:52:57.262] if (muffled) 1577s [00:52:57.262] invokeRestart("muffleWarning") 1577s [00:52:57.262] } 1577s [00:52:57.262] else if (inherits(cond, "condition")) { 1577s [00:52:57.262] if (!is.null(pattern)) { 1577s [00:52:57.262] computeRestarts <- base::computeRestarts 1577s [00:52:57.262] grepl <- base::grepl 1577s [00:52:57.262] restarts <- computeRestarts(cond) 1577s [00:52:57.262] for (restart in restarts) { 1577s [00:52:57.262] name <- restart$name 1577s [00:52:57.262] if (is.null(name)) 1577s [00:52:57.262] next 1577s [00:52:57.262] if (!grepl(pattern, name)) 1577s [00:52:57.262] next 1577s [00:52:57.262] invokeRestart(restart) 1577s [00:52:57.262] muffled <- TRUE 1577s [00:52:57.262] break 1577s [00:52:57.262] } 1577s [00:52:57.262] } 1577s [00:52:57.262] } 1577s [00:52:57.262] invisible(muffled) 1577s [00:52:57.262] } 1577s [00:52:57.262] muffleCondition(cond, pattern = "^muffle") 1577s [00:52:57.262] } 1577s [00:52:57.262] } 1577s [00:52:57.262] } 1577s [00:52:57.262] })) 1577s [00:52:57.262] }, error = function(ex) { 1577s [00:52:57.262] base::structure(base::list(value = NULL, visible = NULL, 1577s [00:52:57.262] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1577s [00:52:57.262] ...future.rng), started = ...future.startTime, 1577s [00:52:57.262] finished = Sys.time(), session_uuid = NA_character_, 1577s [00:52:57.262] version = "1.8"), class = "FutureResult") 1577s [00:52:57.262] }, finally = { 1577s [00:52:57.262] if (!identical(...future.workdir, getwd())) 1577s [00:52:57.262] setwd(...future.workdir) 1577s [00:52:57.262] { 1577s [00:52:57.262] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1577s [00:52:57.262] ...future.oldOptions$nwarnings <- NULL 1577s [00:52:57.262] } 1577s [00:52:57.262] base::options(...future.oldOptions) 1577s [00:52:57.262] if (.Platform$OS.type == "windows") { 1577s [00:52:57.262] old_names <- names(...future.oldEnvVars) 1577s [00:52:57.262] envs <- base::Sys.getenv() 1577s [00:52:57.262] names <- names(envs) 1577s [00:52:57.262] common <- intersect(names, old_names) 1577s [00:52:57.262] added <- setdiff(names, old_names) 1577s [00:52:57.262] removed <- setdiff(old_names, names) 1577s [00:52:57.262] changed <- common[...future.oldEnvVars[common] != 1577s [00:52:57.262] envs[common]] 1577s [00:52:57.262] NAMES <- toupper(changed) 1577s [00:52:57.262] args <- list() 1577s [00:52:57.262] for (kk in seq_along(NAMES)) { 1577s [00:52:57.262] name <- changed[[kk]] 1577s [00:52:57.262] NAME <- NAMES[[kk]] 1577s [00:52:57.262] if (name != NAME && is.element(NAME, old_names)) 1577s [00:52:57.262] next 1577s [00:52:57.262] args[[name]] <- ...future.oldEnvVars[[name]] 1577s [00:52:57.262] } 1577s [00:52:57.262] NAMES <- toupper(added) 1577s [00:52:57.262] for (kk in seq_along(NAMES)) { 1577s [00:52:57.262] name <- added[[kk]] 1577s [00:52:57.262] NAME <- NAMES[[kk]] 1577s [00:52:57.262] if (name != NAME && is.element(NAME, old_names)) 1577s [00:52:57.262] next 1577s [00:52:57.262] args[[name]] <- "" 1577s [00:52:57.262] } 1577s [00:52:57.262] NAMES <- toupper(removed) 1577s [00:52:57.262] for (kk in seq_along(NAMES)) { 1577s [00:52:57.262] name <- removed[[kk]] 1577s [00:52:57.262] NAME <- NAMES[[kk]] 1577s [00:52:57.262] if (name != NAME && is.element(NAME, old_names)) 1577s [00:52:57.262] next 1577s [00:52:57.262] args[[name]] <- ...future.oldEnvVars[[name]] 1577s [00:52:57.262] } 1577s [00:52:57.262] if (length(args) > 0) 1577s [00:52:57.262] base::do.call(base::Sys.setenv, args = args) 1577s [00:52:57.262] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1577s [00:52:57.262] } 1577s [00:52:57.262] else { 1577s [00:52:57.262] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1577s [00:52:57.262] } 1577s [00:52:57.262] { 1577s [00:52:57.262] if (base::length(...future.futureOptionsAdded) > 1577s [00:52:57.262] 0L) { 1577s [00:52:57.262] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1577s [00:52:57.262] base::names(opts) <- ...future.futureOptionsAdded 1577s [00:52:57.262] base::options(opts) 1577s [00:52:57.262] } 1577s [00:52:57.262] { 1577s [00:52:57.262] { 1577s [00:52:57.262] NULL 1577s [00:52:57.262] RNGkind("Mersenne-Twister") 1577s [00:52:57.262] base::rm(list = ".Random.seed", envir = base::globalenv(), 1577s [00:52:57.262] inherits = FALSE) 1577s [00:52:57.262] } 1577s [00:52:57.262] options(future.plan = NULL) 1577s [00:52:57.262] if (is.na(NA_character_)) 1577s [00:52:57.262] Sys.unsetenv("R_FUTURE_PLAN") 1577s [00:52:57.262] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1577s [00:52:57.262] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1577s [00:52:57.262] envir = parent.frame()) 1577s [00:52:57.262] { 1577s [00:52:57.262] default_workers <- missing(workers) 1577s [00:52:57.262] if (is.function(workers)) 1577s [00:52:57.262] workers <- workers() 1577s [00:52:57.262] workers <- structure(as.integer(workers), 1577s [00:52:57.262] class = class(workers)) 1577s [00:52:57.262] stop_if_not(is.finite(workers), workers >= 1577s [00:52:57.262] 1L) 1577s [00:52:57.262] if ((workers == 1L && !inherits(workers, 1577s [00:52:57.262] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1577s [00:52:57.262] if (default_workers) 1577s [00:52:57.262] supportsMulticore(warn = TRUE) 1577s [00:52:57.262] return(sequential(..., envir = envir)) 1577s [00:52:57.262] } 1577s [00:52:57.262] oopts <- options(mc.cores = workers) 1577s [00:52:57.262] on.exit(options(oopts)) 1577s [00:52:57.262] future <- MulticoreFuture(..., workers = workers, 1577s [00:52:57.262] envir = envir) 1577s [00:52:57.262] if (!future$lazy) 1577s [00:52:57.262] future <- run(future) 1577s [00:52:57.262] invisible(future) 1577s [00:52:57.262] }), .cleanup = FALSE, .init = FALSE) 1577s [00:52:57.262] } 1577s [00:52:57.262] } 1577s [00:52:57.262] } 1577s [00:52:57.262] }) 1577s [00:52:57.262] if (TRUE) { 1577s [00:52:57.262] base::sink(type = "output", split = FALSE) 1577s [00:52:57.262] if (TRUE) { 1577s [00:52:57.262] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1577s [00:52:57.262] } 1577s [00:52:57.262] else { 1577s [00:52:57.262] ...future.result["stdout"] <- base::list(NULL) 1577s [00:52:57.262] } 1577s [00:52:57.262] base::close(...future.stdout) 1577s [00:52:57.262] ...future.stdout <- NULL 1577s [00:52:57.262] } 1577s [00:52:57.262] ...future.result$conditions <- ...future.conditions 1577s [00:52:57.262] ...future.result$finished <- base::Sys.time() 1577s [00:52:57.262] ...future.result 1577s [00:52:57.262] } 1577s [00:52:57.267] assign_globals() ... 1577s [00:52:57.267] List of 5 1577s [00:52:57.267] $ ...future.FUN :function (x) 1577s [00:52:57.267] $ future.call.arguments : list() 1577s [00:52:57.267] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1577s [00:52:57.267] $ ...future.elements_ii :List of 4 1577s [00:52:57.267] ..$ A: num 50 1577s [00:52:57.267] ..$ B: num 60 1577s [00:52:57.267] ..$ C: num 70 1577s [00:52:57.267] ..$ D: num 80 1577s [00:52:57.267] $ ...future.seeds_ii : NULL 1577s [00:52:57.267] $ ...future.globals.maxSize: NULL 1577s [00:52:57.267] - attr(*, "where")=List of 5 1577s [00:52:57.267] ..$ ...future.FUN : 1577s [00:52:57.267] ..$ future.call.arguments : 1577s [00:52:57.267] ..$ ...future.elements_ii : 1577s [00:52:57.267] ..$ ...future.seeds_ii : 1577s [00:52:57.267] ..$ ...future.globals.maxSize: 1577s [00:52:57.267] - attr(*, "resolved")= logi FALSE 1577s [00:52:57.267] - attr(*, "total_size")= num 848 1577s [00:52:57.267] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1577s [00:52:57.267] - attr(*, "already-done")= logi TRUE 1577s [00:52:57.275] - copied ‘...future.FUN’ to environment 1577s [00:52:57.275] - copied ‘future.call.arguments’ to environment 1577s [00:52:57.276] - copied ‘...future.elements_ii’ to environment 1577s [00:52:57.276] - copied ‘...future.seeds_ii’ to environment 1577s [00:52:57.276] - copied ‘...future.globals.maxSize’ to environment 1577s [00:52:57.276] assign_globals() ... done 1577s [00:52:57.276] plan(): Setting new future strategy stack: 1577s [00:52:57.276] List of future strategies: 1577s [00:52:57.276] 1. sequential: 1577s [00:52:57.276] - args: function (..., envir = parent.frame()) 1577s [00:52:57.276] - tweaked: FALSE 1577s [00:52:57.276] - call: NULL 1577s [00:52:57.277] plan(): nbrOfWorkers() = 1 1577s [00:52:57.278] plan(): Setting new future strategy stack: 1577s [00:52:57.278] List of future strategies: 1577s [00:52:57.278] 1. multicore: 1577s [00:52:57.278] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1577s [00:52:57.278] - tweaked: FALSE 1577s [00:52:57.278] - call: plan(strategy) 1577s [00:52:57.282] plan(): nbrOfWorkers() = 1 1577s [00:52:57.283] SequentialFuture started (and completed) 1577s [00:52:57.283] - Launch lazy future ... done 1577s [00:52:57.283] run() for ‘SequentialFuture’ ... done 1577s [00:52:57.283] Created future: 1577s [00:52:57.283] SequentialFuture: 1577s [00:52:57.283] Label: ‘future_sapply-1’ 1577s [00:52:57.283] Expression: 1577s [00:52:57.283] { 1577s [00:52:57.283] do.call(function(...) { 1577s [00:52:57.283] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1577s [00:52:57.283] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1577s [00:52:57.283] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1577s [00:52:57.283] on.exit(options(oopts), add = TRUE) 1577s [00:52:57.283] } 1577s [00:52:57.283] { 1577s [00:52:57.283] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1577s [00:52:57.283] ...future.X_jj <- ...future.elements_ii[[jj]] 1577s [00:52:57.283] ...future.FUN(...future.X_jj, ...) 1577s [00:52:57.283] }) 1577s [00:52:57.283] } 1577s [00:52:57.283] }, args = future.call.arguments) 1577s [00:52:57.283] } 1577s [00:52:57.283] Lazy evaluation: FALSE 1577s [00:52:57.283] Asynchronous evaluation: FALSE 1577s [00:52:57.283] Local evaluation: TRUE 1577s [00:52:57.283] Environment: R_GlobalEnv 1577s [00:52:57.283] Capture standard output: TRUE 1577s [00:52:57.283] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1577s [00:52:57.283] Globals: 5 objects totaling 1.05 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1577s [00:52:57.283] Packages: 1577s [00:52:57.283] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1577s [00:52:57.283] Resolved: TRUE 1577s [00:52:57.283] Value: 224 bytes of class ‘list’ 1577s [00:52:57.283] Early signaling: FALSE 1577s [00:52:57.283] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1577s [00:52:57.283] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1577s [00:52:57.285] Chunk #1 of 1 ... DONE 1577s [00:52:57.286] Launching 1 futures (chunks) ... DONE 1577s [00:52:57.286] Resolving 1 futures (chunks) ... 1577s [00:52:57.286] resolve() on list ... 1577s [00:52:57.286] recursive: 0 1577s [00:52:57.286] length: 1 1577s [00:52:57.287] 1577s [00:52:57.287] resolved() for ‘SequentialFuture’ ... 1577s [00:52:57.287] - state: ‘finished’ 1577s [00:52:57.287] - run: TRUE 1577s [00:52:57.287] - result: ‘FutureResult’ 1577s [00:52:57.287] resolved() for ‘SequentialFuture’ ... done 1577s [00:52:57.288] Future #1 1577s [00:52:57.288] signalConditionsASAP(SequentialFuture, pos=1) ... 1577s [00:52:57.288] - nx: 1 1577s [00:52:57.288] - relay: TRUE 1577s [00:52:57.288] - stdout: TRUE 1577s [00:52:57.288] - signal: TRUE 1577s [00:52:57.289] - resignal: FALSE 1577s [00:52:57.289] - force: TRUE 1577s [00:52:57.289] - relayed: [n=1] FALSE 1577s [00:52:57.289] - queued futures: [n=1] FALSE 1577s [00:52:57.289] - until=1 1577s [00:52:57.289] - relaying element #1 1577s [00:52:57.290] - relayed: [n=1] TRUE 1577s [00:52:57.290] - queued futures: [n=1] TRUE 1577s [00:52:57.290] signalConditionsASAP(SequentialFuture, pos=1) ... done 1577s [00:52:57.290] length: 0 (resolved future 1) 1577s [00:52:57.291] Relaying remaining futures 1577s [00:52:57.291] signalConditionsASAP(NULL, pos=0) ... 1577s [00:52:57.291] - nx: 1 1577s [00:52:57.291] - relay: TRUE 1577s [00:52:57.291] - stdout: TRUE 1577s [00:52:57.292] - signal: TRUE 1577s [00:52:57.292] - resignal: FALSE 1577s [00:52:57.292] - force: TRUE 1577s [00:52:57.292] - relayed: [n=1] TRUE 1577s [00:52:57.292] - queued futures: [n=1] TRUE 1577s - flush all 1577s [00:52:57.293] - relayed: [n=1] TRUE 1577s [00:52:57.293] - queued futures: [n=1] TRUE 1577s [00:52:57.293] signalConditionsASAP(NULL, pos=0) ... done 1577s [00:52:57.293] resolve() on list ... DONE 1577s [00:52:57.294] - Number of value chunks collected: 1 1577s [00:52:57.294] Resolving 1 futures (chunks) ... DONE 1577s [00:52:57.294] Reducing values from 1 chunks ... 1577s [00:52:57.294] - Number of values collected after concatenation: 4 1577s List[00:52:57.294] - Number of values expected: 4 1577s [00:52:57.295] Reducing values from 1 chunks ... DONE 1577s [00:52:57.295] future_lapply() ... DONE 1577s of 2 1577s $ y0:List of 4 1577s ..$ A: num 50 1577s ..$ B: num 60 1577s ..$ C: num 70 1577s ..$ D: num 80 1577s $ y1:List of 4 1577s ..$ A: num 50 1577s ..$ B: num 60 1577s ..$ C: num 70 1577s ..$ D: num 80 1577s List of 2 1577s $ y0:List of 4 1577s ..$ A: num 50 1577s ..$ B: num 60 1577s ..$ C: num 70 1577s ..$ D: num 80 1577s $ y2:List of 4 1577s ..$ A: num 50 1577s ..$ B: num 60 1577s ..$ C: num 70 1577s ..$ D: num 80 1577s [00:52:57.309] future_lapply() ... 1577s [00:52:57.314] Number of chunks: 1 1577s [00:52:57.314] getGlobalsAndPackagesXApply() ... 1577s [00:52:57.314] - future.globals: TRUE 1577s [00:52:57.314] getGlobalsAndPackages() ... 1577s [00:52:57.315] Searching for globals... 1577s [00:52:57.316] - globals found: [2] ‘FUN’, ‘UseMethod’ 1577s [00:52:57.316] Searching for globals ... DONE 1577s [00:52:57.316] Resolving globals: FALSE 1577s [00:52:57.317] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1577s [00:52:57.317] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1577s [00:52:57.318] - globals: [1] ‘FUN’ 1577s [00:52:57.318] 1577s [00:52:57.318] getGlobalsAndPackages() ... DONE 1577s [00:52:57.318] - globals found/used: [n=1] ‘FUN’ 1577s [00:52:57.318] - needed namespaces: [n=0] 1577s [00:52:57.319] Finding globals ... DONE 1577s [00:52:57.319] - use_args: TRUE 1577s [00:52:57.319] - Getting '...' globals ... 1577s [00:52:57.320] resolve() on list ... 1577s [00:52:57.320] recursive: 0 1577s [00:52:57.320] length: 1 1577s [00:52:57.320] elements: ‘...’ 1577s [00:52:57.321] length: 0 (resolved future 1) 1577s [00:52:57.321] resolve() on list ... DONE 1577s [00:52:57.321] - '...' content: [n=0] 1577s [00:52:57.321] List of 1 1577s [00:52:57.321] $ ...: list() 1577s [00:52:57.321] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1577s [00:52:57.321] - attr(*, "where")=List of 1 1577s [00:52:57.321] ..$ ...: 1577s [00:52:57.321] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1577s [00:52:57.321] - attr(*, "resolved")= logi TRUE 1577s [00:52:57.321] - attr(*, "total_size")= num NA 1577s [00:52:57.326] - Getting '...' globals ... DONE 1577s [00:52:57.326] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1577s [00:52:57.326] List of 2 1577s [00:52:57.326] $ ...future.FUN:function (x, ...) 1577s [00:52:57.326] $ ... : list() 1577s [00:52:57.326] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1577s [00:52:57.326] - attr(*, "where")=List of 2 1577s [00:52:57.326] ..$ ...future.FUN: 1577s [00:52:57.326] ..$ ... : 1577s [00:52:57.326] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1577s [00:52:57.326] - attr(*, "resolved")= logi FALSE 1577s [00:52:57.326] - attr(*, "total_size")= num 1248 1577s [00:52:57.331] Packages to be attached in all futures: [n=0] 1577s [00:52:57.331] getGlobalsAndPackagesXApply() ... DONE 1577s [00:52:57.332] Number of futures (= number of chunks): 1 1577s [00:52:57.332] Launching 1 futures (chunks) ... 1577s [00:52:57.332] Chunk #1 of 1 ... 1577s [00:52:57.333] - Finding globals in 'X' for chunk #1 ... 1577s [00:52:57.334] getGlobalsAndPackages() ... 1577s [00:52:57.334] Searching for globals... 1577s [00:52:57.335] 1577s [00:52:57.335] Searching for globals ... DONE 1577s [00:52:57.335] - globals: [0] 1577s [00:52:57.335] getGlobalsAndPackages() ... DONE 1577s [00:52:57.336] + additional globals found: [n=0] 1577s [00:52:57.336] + additional namespaces needed: [n=0] 1577s [00:52:57.336] - Finding globals in 'X' for chunk #1 ... DONE 1577s [00:52:57.336] - seeds: 1577s [00:52:57.336] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1577s [00:52:57.336] getGlobalsAndPackages() ... 1577s [00:52:57.336] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1577s [00:52:57.337] Resolving globals: FALSE 1577s [00:52:57.337] Tweak future expression to call with '...' arguments ... 1577s [00:52:57.337] { 1577s [00:52:57.337] do.call(function(...) { 1577s [00:52:57.337] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1577s [00:52:57.337] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1577s [00:52:57.337] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1577s [00:52:57.337] on.exit(options(oopts), add = TRUE) 1577s [00:52:57.337] } 1577s [00:52:57.337] { 1577s [00:52:57.337] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1577s [00:52:57.337] ...future.X_jj <- ...future.elements_ii[[jj]] 1577s [00:52:57.337] ...future.FUN(...future.X_jj, ...) 1577s [00:52:57.337] }) 1577s [00:52:57.337] } 1577s [00:52:57.337] }, args = future.call.arguments) 1577s [00:52:57.337] } 1577s [00:52:57.338] Tweak future expression to call with '...' arguments ... DONE 1577s [00:52:57.338] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1577s [00:52:57.338] 1577s [00:52:57.338] getGlobalsAndPackages() ... DONE 1577s [00:52:57.339] run() for ‘Future’ ... 1577s [00:52:57.339] - state: ‘created’ 1577s [00:52:57.339] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1577s [00:52:57.345] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1577s [00:52:57.345] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1577s [00:52:57.346] - Field: ‘label’ 1577s [00:52:57.346] - Field: ‘local’ 1577s [00:52:57.346] - Field: ‘owner’ 1577s [00:52:57.348] - Field: ‘envir’ 1577s [00:52:57.349] - Field: ‘packages’ 1577s [00:52:57.350] - Field: ‘gc’ 1577s [00:52:57.350] - Field: ‘conditions’ 1577s [00:52:57.351] - Field: ‘expr’ 1577s [00:52:57.351] - Field: ‘uuid’ 1577s [00:52:57.351] - Field: ‘seed’ 1577s [00:52:57.351] - Field: ‘version’ 1577s [00:52:57.352] - Field: ‘result’ 1577s [00:52:57.352] - Field: ‘asynchronous’ 1577s [00:52:57.352] - Field: ‘calls’ 1577s [00:52:57.352] - Field: ‘globals’ 1577s [00:52:57.353] - Field: ‘stdout’ 1577s [00:52:57.353] - Field: ‘earlySignal’ 1577s [00:52:57.353] - Field: ‘lazy’ 1577s [00:52:57.353] - Field: ‘state’ 1577s [00:52:57.353] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1577s [00:52:57.354] - Launch lazy future ... 1577s [00:52:57.354] Packages needed by the future expression (n = 0): 1577s [00:52:57.354] Packages needed by future strategies (n = 0): 1577s [00:52:57.355] { 1577s [00:52:57.355] { 1577s [00:52:57.355] { 1577s [00:52:57.355] ...future.startTime <- base::Sys.time() 1577s [00:52:57.355] { 1577s [00:52:57.355] { 1577s [00:52:57.355] { 1577s [00:52:57.355] base::local({ 1577s [00:52:57.355] has_future <- base::requireNamespace("future", 1577s [00:52:57.355] quietly = TRUE) 1577s [00:52:57.355] if (has_future) { 1577s [00:52:57.355] ns <- base::getNamespace("future") 1577s [00:52:57.355] version <- ns[[".package"]][["version"]] 1577s [00:52:57.355] if (is.null(version)) 1577s [00:52:57.355] version <- utils::packageVersion("future") 1577s [00:52:57.355] } 1577s [00:52:57.355] else { 1577s [00:52:57.355] version <- NULL 1577s [00:52:57.355] } 1577s [00:52:57.355] if (!has_future || version < "1.8.0") { 1577s [00:52:57.355] info <- base::c(r_version = base::gsub("R version ", 1577s [00:52:57.355] "", base::R.version$version.string), 1577s [00:52:57.355] platform = base::sprintf("%s (%s-bit)", 1577s [00:52:57.355] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1577s [00:52:57.355] os = base::paste(base::Sys.info()[base::c("sysname", 1577s [00:52:57.355] "release", "version")], collapse = " "), 1577s [00:52:57.355] hostname = base::Sys.info()[["nodename"]]) 1577s [00:52:57.355] info <- base::sprintf("%s: %s", base::names(info), 1577s [00:52:57.355] info) 1577s [00:52:57.355] info <- base::paste(info, collapse = "; ") 1577s [00:52:57.355] if (!has_future) { 1577s [00:52:57.355] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1577s [00:52:57.355] info) 1577s [00:52:57.355] } 1577s [00:52:57.355] else { 1577s [00:52:57.355] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1577s [00:52:57.355] info, version) 1577s [00:52:57.355] } 1577s [00:52:57.355] base::stop(msg) 1577s [00:52:57.355] } 1577s [00:52:57.355] }) 1577s [00:52:57.355] } 1577s [00:52:57.355] options(future.plan = NULL) 1577s [00:52:57.355] Sys.unsetenv("R_FUTURE_PLAN") 1577s [00:52:57.355] future::plan("default", .cleanup = FALSE, .init = FALSE) 1577s [00:52:57.355] } 1577s [00:52:57.355] ...future.workdir <- getwd() 1577s [00:52:57.355] } 1577s [00:52:57.355] ...future.oldOptions <- base::as.list(base::.Options) 1577s [00:52:57.355] ...future.oldEnvVars <- base::Sys.getenv() 1577s [00:52:57.355] } 1577s [00:52:57.355] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1577s [00:52:57.355] future.globals.maxSize = NULL, future.globals.method = NULL, 1577s [00:52:57.355] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1577s [00:52:57.355] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1577s [00:52:57.355] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1577s [00:52:57.355] future.stdout.windows.reencode = NULL, width = 80L) 1577s [00:52:57.355] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1577s [00:52:57.355] base::names(...future.oldOptions)) 1577s [00:52:57.355] } 1577s [00:52:57.355] if (FALSE) { 1577s [00:52:57.355] } 1577s [00:52:57.355] else { 1577s [00:52:57.355] if (TRUE) { 1577s [00:52:57.355] ...future.stdout <- base::rawConnection(base::raw(0L), 1577s [00:52:57.355] open = "w") 1577s [00:52:57.355] } 1577s [00:52:57.355] else { 1577s [00:52:57.355] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1577s [00:52:57.355] windows = "NUL", "/dev/null"), open = "w") 1577s [00:52:57.355] } 1577s [00:52:57.355] base::sink(...future.stdout, type = "output", split = FALSE) 1577s [00:52:57.355] base::on.exit(if (!base::is.null(...future.stdout)) { 1577s [00:52:57.355] base::sink(type = "output", split = FALSE) 1577s [00:52:57.355] base::close(...future.stdout) 1577s [00:52:57.355] }, add = TRUE) 1577s [00:52:57.355] } 1577s [00:52:57.355] ...future.frame <- base::sys.nframe() 1577s [00:52:57.355] ...future.conditions <- base::list() 1577s [00:52:57.355] ...future.rng <- base::globalenv()$.Random.seed 1577s [00:52:57.355] if (FALSE) { 1577s [00:52:57.355] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1577s [00:52:57.355] "...future.value", "...future.globalenv.names", ".Random.seed") 1577s [00:52:57.355] } 1577s [00:52:57.355] ...future.result <- base::tryCatch({ 1577s [00:52:57.355] base::withCallingHandlers({ 1577s [00:52:57.355] ...future.value <- base::withVisible(base::local({ 1577s [00:52:57.355] do.call(function(...) { 1577s [00:52:57.355] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1577s [00:52:57.355] if (!identical(...future.globals.maxSize.org, 1577s [00:52:57.355] ...future.globals.maxSize)) { 1577s [00:52:57.355] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1577s [00:52:57.355] on.exit(options(oopts), add = TRUE) 1577s [00:52:57.355] } 1577s [00:52:57.355] { 1577s [00:52:57.355] lapply(seq_along(...future.elements_ii), 1577s [00:52:57.355] FUN = function(jj) { 1577s [00:52:57.355] ...future.X_jj <- ...future.elements_ii[[jj]] 1577s [00:52:57.355] ...future.FUN(...future.X_jj, ...) 1577s [00:52:57.355] }) 1577s [00:52:57.355] } 1577s [00:52:57.355] }, args = future.call.arguments) 1577s [00:52:57.355] })) 1577s [00:52:57.355] future::FutureResult(value = ...future.value$value, 1577s [00:52:57.355] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1577s [00:52:57.355] ...future.rng), globalenv = if (FALSE) 1577s [00:52:57.355] list(added = base::setdiff(base::names(base::.GlobalEnv), 1577s [00:52:57.355] ...future.globalenv.names)) 1577s [00:52:57.355] else NULL, started = ...future.startTime, version = "1.8") 1577s [00:52:57.355] }, condition = base::local({ 1577s [00:52:57.355] c <- base::c 1577s [00:52:57.355] inherits <- base::inherits 1577s [00:52:57.355] invokeRestart <- base::invokeRestart 1577s [00:52:57.355] length <- base::length 1577s [00:52:57.355] list <- base::list 1577s [00:52:57.355] seq.int <- base::seq.int 1577s [00:52:57.355] signalCondition <- base::signalCondition 1577s [00:52:57.355] sys.calls <- base::sys.calls 1577s [00:52:57.355] `[[` <- base::`[[` 1577s [00:52:57.355] `+` <- base::`+` 1577s [00:52:57.355] `<<-` <- base::`<<-` 1577s [00:52:57.355] sysCalls <- function(calls = sys.calls(), from = 1L) { 1577s [00:52:57.355] calls[seq.int(from = from + 12L, to = length(calls) - 1577s [00:52:57.355] 3L)] 1577s [00:52:57.355] } 1577s [00:52:57.355] function(cond) { 1577s [00:52:57.355] is_error <- inherits(cond, "error") 1577s [00:52:57.355] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1577s [00:52:57.355] NULL) 1577s [00:52:57.355] if (is_error) { 1577s [00:52:57.355] sessionInformation <- function() { 1577s [00:52:57.355] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1577s [00:52:57.355] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1577s [00:52:57.355] search = base::search(), system = base::Sys.info()) 1577s [00:52:57.355] } 1577s [00:52:57.355] ...future.conditions[[length(...future.conditions) + 1577s [00:52:57.355] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1577s [00:52:57.355] cond$call), session = sessionInformation(), 1577s [00:52:57.355] timestamp = base::Sys.time(), signaled = 0L) 1577s [00:52:57.355] signalCondition(cond) 1577s [00:52:57.355] } 1577s [00:52:57.355] else if (!ignore && TRUE && inherits(cond, c("condition", 1577s [00:52:57.355] "immediateCondition"))) { 1577s [00:52:57.355] signal <- TRUE && inherits(cond, "immediateCondition") 1577s [00:52:57.355] ...future.conditions[[length(...future.conditions) + 1577s [00:52:57.355] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1577s [00:52:57.355] if (TRUE && !signal) { 1577s [00:52:57.355] muffleCondition <- function (cond, pattern = "^muffle") 1577s [00:52:57.355] { 1577s [00:52:57.355] inherits <- base::inherits 1577s [00:52:57.355] invokeRestart <- base::invokeRestart 1577s [00:52:57.355] is.null <- base::is.null 1577s [00:52:57.355] muffled <- FALSE 1577s [00:52:57.355] if (inherits(cond, "message")) { 1577s [00:52:57.355] muffled <- grepl(pattern, "muffleMessage") 1577s [00:52:57.355] if (muffled) 1577s [00:52:57.355] invokeRestart("muffleMessage") 1577s [00:52:57.355] } 1577s [00:52:57.355] else if (inherits(cond, "warning")) { 1577s [00:52:57.355] muffled <- grepl(pattern, "muffleWarning") 1577s [00:52:57.355] if (muffled) 1577s [00:52:57.355] invokeRestart("muffleWarning") 1577s [00:52:57.355] } 1577s [00:52:57.355] else if (inherits(cond, "condition")) { 1577s [00:52:57.355] if (!is.null(pattern)) { 1577s [00:52:57.355] computeRestarts <- base::computeRestarts 1577s [00:52:57.355] grepl <- base::grepl 1577s [00:52:57.355] restarts <- computeRestarts(cond) 1577s [00:52:57.355] for (restart in restarts) { 1577s [00:52:57.355] name <- restart$name 1577s [00:52:57.355] if (is.null(name)) 1577s [00:52:57.355] next 1577s [00:52:57.355] if (!grepl(pattern, name)) 1577s [00:52:57.355] next 1577s [00:52:57.355] invokeRestart(restart) 1577s [00:52:57.355] muffled <- TRUE 1577s [00:52:57.355] break 1577s [00:52:57.355] } 1577s [00:52:57.355] } 1577s [00:52:57.355] } 1577s [00:52:57.355] invisible(muffled) 1577s [00:52:57.355] } 1577s [00:52:57.355] muffleCondition(cond, pattern = "^muffle") 1577s [00:52:57.355] } 1577s [00:52:57.355] } 1577s [00:52:57.355] else { 1577s [00:52:57.355] if (TRUE) { 1577s [00:52:57.355] muffleCondition <- function (cond, pattern = "^muffle") 1577s [00:52:57.355] { 1577s [00:52:57.355] inherits <- base::inherits 1577s [00:52:57.355] invokeRestart <- base::invokeRestart 1577s [00:52:57.355] is.null <- base::is.null 1577s [00:52:57.355] muffled <- FALSE 1577s [00:52:57.355] if (inherits(cond, "message")) { 1577s [00:52:57.355] muffled <- grepl(pattern, "muffleMessage") 1577s [00:52:57.355] if (muffled) 1577s [00:52:57.355] invokeRestart("muffleMessage") 1577s [00:52:57.355] } 1577s [00:52:57.355] else if (inherits(cond, "warning")) { 1577s [00:52:57.355] muffled <- grepl(pattern, "muffleWarning") 1577s [00:52:57.355] if (muffled) 1577s [00:52:57.355] invokeRestart("muffleWarning") 1577s [00:52:57.355] } 1577s [00:52:57.355] else if (inherits(cond, "condition")) { 1577s [00:52:57.355] if (!is.null(pattern)) { 1577s [00:52:57.355] computeRestarts <- base::computeRestarts 1577s [00:52:57.355] grepl <- base::grepl 1577s [00:52:57.355] restarts <- computeRestarts(cond) 1577s [00:52:57.355] for (restart in restarts) { 1577s [00:52:57.355] name <- restart$name 1577s [00:52:57.355] if (is.null(name)) 1577s [00:52:57.355] next 1577s [00:52:57.355] if (!grepl(pattern, name)) 1577s [00:52:57.355] next 1577s [00:52:57.355] invokeRestart(restart) 1577s [00:52:57.355] muffled <- TRUE 1577s [00:52:57.355] break 1577s [00:52:57.355] } 1577s [00:52:57.355] } 1577s [00:52:57.355] } 1577s [00:52:57.355] invisible(muffled) 1577s [00:52:57.355] } 1577s [00:52:57.355] muffleCondition(cond, pattern = "^muffle") 1577s [00:52:57.355] } 1577s [00:52:57.355] } 1577s [00:52:57.355] } 1577s [00:52:57.355] })) 1577s [00:52:57.355] }, error = function(ex) { 1577s [00:52:57.355] base::structure(base::list(value = NULL, visible = NULL, 1577s [00:52:57.355] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1577s [00:52:57.355] ...future.rng), started = ...future.startTime, 1577s [00:52:57.355] finished = Sys.time(), session_uuid = NA_character_, 1577s [00:52:57.355] version = "1.8"), class = "FutureResult") 1577s [00:52:57.355] }, finally = { 1577s [00:52:57.355] if (!identical(...future.workdir, getwd())) 1577s [00:52:57.355] setwd(...future.workdir) 1577s [00:52:57.355] { 1577s [00:52:57.355] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1577s [00:52:57.355] ...future.oldOptions$nwarnings <- NULL 1577s [00:52:57.355] } 1577s [00:52:57.355] base::options(...future.oldOptions) 1577s [00:52:57.355] if (.Platform$OS.type == "windows") { 1577s [00:52:57.355] old_names <- names(...future.oldEnvVars) 1577s [00:52:57.355] envs <- base::Sys.getenv() 1577s [00:52:57.355] names <- names(envs) 1577s [00:52:57.355] common <- intersect(names, old_names) 1577s [00:52:57.355] added <- setdiff(names, old_names) 1577s [00:52:57.355] removed <- setdiff(old_names, names) 1577s [00:52:57.355] changed <- common[...future.oldEnvVars[common] != 1577s [00:52:57.355] envs[common]] 1577s [00:52:57.355] NAMES <- toupper(changed) 1577s [00:52:57.355] args <- list() 1577s [00:52:57.355] for (kk in seq_along(NAMES)) { 1577s [00:52:57.355] name <- changed[[kk]] 1577s [00:52:57.355] NAME <- NAMES[[kk]] 1577s [00:52:57.355] if (name != NAME && is.element(NAME, old_names)) 1577s [00:52:57.355] next 1577s [00:52:57.355] args[[name]] <- ...future.oldEnvVars[[name]] 1577s [00:52:57.355] } 1577s [00:52:57.355] NAMES <- toupper(added) 1577s [00:52:57.355] for (kk in seq_along(NAMES)) { 1577s [00:52:57.355] name <- added[[kk]] 1577s [00:52:57.355] NAME <- NAMES[[kk]] 1577s [00:52:57.355] if (name != NAME && is.element(NAME, old_names)) 1577s [00:52:57.355] next 1577s [00:52:57.355] args[[name]] <- "" 1577s [00:52:57.355] } 1577s [00:52:57.355] NAMES <- toupper(removed) 1577s [00:52:57.355] for (kk in seq_along(NAMES)) { 1577s [00:52:57.355] name <- removed[[kk]] 1577s [00:52:57.355] NAME <- NAMES[[kk]] 1577s [00:52:57.355] if (name != NAME && is.element(NAME, old_names)) 1577s [00:52:57.355] next 1577s [00:52:57.355] args[[name]] <- ...future.oldEnvVars[[name]] 1577s [00:52:57.355] } 1577s [00:52:57.355] if (length(args) > 0) 1577s [00:52:57.355] base::do.call(base::Sys.setenv, args = args) 1577s [00:52:57.355] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1577s [00:52:57.355] } 1577s [00:52:57.355] else { 1577s [00:52:57.355] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1577s [00:52:57.355] } 1577s [00:52:57.355] { 1577s [00:52:57.355] if (base::length(...future.futureOptionsAdded) > 1577s [00:52:57.355] 0L) { 1577s [00:52:57.355] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1577s [00:52:57.355] base::names(opts) <- ...future.futureOptionsAdded 1577s [00:52:57.355] base::options(opts) 1577s [00:52:57.355] } 1577s [00:52:57.355] { 1577s [00:52:57.355] { 1577s [00:52:57.355] NULL 1577s [00:52:57.355] RNGkind("Mersenne-Twister") 1577s [00:52:57.355] base::rm(list = ".Random.seed", envir = base::globalenv(), 1577s [00:52:57.355] inherits = FALSE) 1577s [00:52:57.355] } 1577s [00:52:57.355] options(future.plan = NULL) 1577s [00:52:57.355] if (is.na(NA_character_)) 1577s [00:52:57.355] Sys.unsetenv("R_FUTURE_PLAN") 1577s [00:52:57.355] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1577s [00:52:57.355] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1577s [00:52:57.355] envir = parent.frame()) 1577s [00:52:57.355] { 1577s [00:52:57.355] default_workers <- missing(workers) 1577s [00:52:57.355] if (is.function(workers)) 1577s [00:52:57.355] workers <- workers() 1577s [00:52:57.355] workers <- structure(as.integer(workers), 1577s [00:52:57.355] class = class(workers)) 1577s [00:52:57.355] stop_if_not(is.finite(workers), workers >= 1577s [00:52:57.355] 1L) 1577s [00:52:57.355] if ((workers == 1L && !inherits(workers, 1577s [00:52:57.355] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1577s [00:52:57.355] if (default_workers) 1577s [00:52:57.355] supportsMulticore(warn = TRUE) 1577s [00:52:57.355] return(sequential(..., envir = envir)) 1577s [00:52:57.355] } 1577s [00:52:57.355] oopts <- options(mc.cores = workers) 1577s [00:52:57.355] on.exit(options(oopts)) 1577s [00:52:57.355] future <- MulticoreFuture(..., workers = workers, 1577s [00:52:57.355] envir = envir) 1577s [00:52:57.355] if (!future$lazy) 1577s [00:52:57.355] future <- run(future) 1577s [00:52:57.355] invisible(future) 1577s [00:52:57.355] }), .cleanup = FALSE, .init = FALSE) 1577s [00:52:57.355] } 1577s [00:52:57.355] } 1577s [00:52:57.355] } 1577s [00:52:57.355] }) 1577s [00:52:57.355] if (TRUE) { 1577s [00:52:57.355] base::sink(type = "output", split = FALSE) 1577s [00:52:57.355] if (TRUE) { 1577s [00:52:57.355] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1577s [00:52:57.355] } 1577s [00:52:57.355] else { 1577s [00:52:57.355] ...future.result["stdout"] <- base::list(NULL) 1577s [00:52:57.355] } 1577s [00:52:57.355] base::close(...future.stdout) 1577s [00:52:57.355] ...future.stdout <- NULL 1577s [00:52:57.355] } 1577s [00:52:57.355] ...future.result$conditions <- ...future.conditions 1577s [00:52:57.355] ...future.result$finished <- base::Sys.time() 1577s [00:52:57.355] ...future.result 1577s [00:52:57.355] } 1577s [00:52:57.358] assign_globals() ... 1577s [00:52:57.358] List of 5 1577s [00:52:57.358] $ ...future.FUN :function (x, ...) 1577s [00:52:57.358] $ future.call.arguments : list() 1577s [00:52:57.358] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1577s [00:52:57.358] $ ...future.elements_ii :List of 4 1577s [00:52:57.358] ..$ A: num 50 1577s [00:52:57.358] ..$ B: num 60 1577s [00:52:57.358] ..$ C: num 70 1577s [00:52:57.358] ..$ D: num 80 1577s [00:52:57.358] $ ...future.seeds_ii : NULL 1577s [00:52:57.358] $ ...future.globals.maxSize: NULL 1577s [00:52:57.358] - attr(*, "where")=List of 5 1577s [00:52:57.358] ..$ ...future.FUN : 1577s [00:52:57.358] ..$ future.call.arguments : 1577s [00:52:57.358] ..$ ...future.elements_ii : 1577s [00:52:57.358] ..$ ...future.seeds_ii : 1577s [00:52:57.358] ..$ ...future.globals.maxSize: 1577s [00:52:57.358] - attr(*, "resolved")= logi FALSE 1577s [00:52:57.358] - attr(*, "total_size")= num 1248 1577s [00:52:57.358] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1577s [00:52:57.358] - attr(*, "already-done")= logi TRUE 1577s [00:52:57.375] - copied ‘...future.FUN’ to environment 1577s [00:52:57.376] - copied ‘future.call.arguments’ to environment 1577s [00:52:57.376] - copied ‘...future.elements_ii’ to environment 1577s [00:52:57.376] - copied ‘...future.seeds_ii’ to environment 1577s [00:52:57.376] - copied ‘...future.globals.maxSize’ to environment 1577s [00:52:57.376] assign_globals() ... done 1577s [00:52:57.377] plan(): Setting new future strategy stack: 1577s [00:52:57.377] List of future strategies: 1577s [00:52:57.377] 1. sequential: 1577s [00:52:57.377] - args: function (..., envir = parent.frame()) 1577s [00:52:57.377] - tweaked: FALSE 1577s [00:52:57.377] - call: NULL 1577s [00:52:57.378] plan(): nbrOfWorkers() = 1 1577s [00:52:57.379] plan(): Setting new future strategy stack: 1577s [00:52:57.379] List of future strategies: 1577s [00:52:57.379] 1. multicore: 1577s [00:52:57.379] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1577s [00:52:57.379] - tweaked: FALSE 1577s [00:52:57.379] - call: plan(strategy) 1577s [00:52:57.383] plan(): nbrOfWorkers() = 1 1577s [00:52:57.383] SequentialFuture started (and completed) 1577s [00:52:57.384] - Launch lazy future ... done 1577s [00:52:57.384] run() for ‘SequentialFuture’ ... done 1577s [00:52:57.384] Created future: 1577s [00:52:57.384] SequentialFuture: 1577s [00:52:57.384] Label: ‘future_sapply-1’ 1577s [00:52:57.384] Expression: 1577s [00:52:57.384] { 1577s [00:52:57.384] do.call(function(...) { 1577s [00:52:57.384] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1577s [00:52:57.384] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1577s [00:52:57.384] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1577s [00:52:57.384] on.exit(options(oopts), add = TRUE) 1577s [00:52:57.384] } 1577s [00:52:57.384] { 1577s [00:52:57.384] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1577s [00:52:57.384] ...future.X_jj <- ...future.elements_ii[[jj]] 1577s [00:52:57.384] ...future.FUN(...future.X_jj, ...) 1577s [00:52:57.384] }) 1577s [00:52:57.384] } 1577s [00:52:57.384] }, args = future.call.arguments) 1577s [00:52:57.384] } 1577s [00:52:57.384] Lazy evaluation: FALSE 1577s [00:52:57.384] Asynchronous evaluation: FALSE 1577s [00:52:57.384] Local evaluation: TRUE 1577s [00:52:57.384] Environment: R_GlobalEnv 1577s [00:52:57.384] Capture standard output: TRUE 1577s [00:52:57.384] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1577s [00:52:57.384] Globals: 5 objects totaling 1.44 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1577s [00:52:57.384] Packages: 1577s [00:52:57.384] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1577s [00:52:57.384] Resolved: TRUE 1577s [00:52:57.384] Value: 896 bytes of class ‘list’ 1577s [00:52:57.384] Early signaling: FALSE 1577s [00:52:57.384] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1577s [00:52:57.384] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1577s [00:52:57.386] Chunk #1 of 1 ... DONE 1577s [00:52:57.386] Launching 1 futures (chunks) ... DONE 1577s [00:52:57.386] Resolving 1 futures (chunks) ... 1577s [00:52:57.386] resolve() on list ... 1577s [00:52:57.387] recursive: 0 1577s [00:52:57.387] length: 1 1577s [00:52:57.387] 1577s [00:52:57.388] resolved() for ‘SequentialFuture’ ... 1577s [00:52:57.388] - state: ‘finished’ 1577s [00:52:57.388] - run: TRUE 1577s [00:52:57.388] - result: ‘FutureResult’ 1577s [00:52:57.388] resolved() for ‘SequentialFuture’ ... done 1577s [00:52:57.389] Future #1 1577s [00:52:57.390] signalConditionsASAP(SequentialFuture, pos=1) ... 1577s [00:52:57.390] - nx: 1 1577s [00:52:57.390] - relay: TRUE 1577s [00:52:57.390] - stdout: TRUE 1577s [00:52:57.390] - signal: TRUE 1577s [00:52:57.391] - resignal: FALSE 1577s [00:52:57.391] - force: TRUE 1577s [00:52:57.391] - relayed: [n=1] FALSE 1577s [00:52:57.391] - queued futures: [n=1] FALSE 1577s [00:52:57.392] - until=1 1577s [00:52:57.392] - relaying element #1 1577s [00:52:57.393] - relayed: [n=1] TRUE 1577s [00:52:57.393] - queued futures: [n=1] TRUE 1577s [00:52:57.393] signalConditionsASAP(SequentialFuture, pos=1) ... done 1577s [00:52:57.393] length: 0 (resolved future 1) 1577s [00:52:57.394] Relaying remaining futures 1577s [00:52:57.394] signalConditionsASAP(NULL, pos=0) ... 1577s [00:52:57.394] - nx: 1 1577s [00:52:57.395] - relay: TRUE 1577s [00:52:57.395] - stdout: TRUE 1577s [00:52:57.395] - signal: TRUE 1577s [00:52:57.395] - resignal: FALSE 1577s [00:52:57.395] - force: TRUE 1577s [00:52:57.395] - relayed: [n=1] TRUE 1577s [00:52:57.395] - queued futures: [n=1] TRUE 1577s - flush all 1577s [00:52:57.396] - relayed: [n=1] TRUE 1577s [00:52:57.396] - queued futures: [n=1] TRUE 1577s [00:52:57.396] signalConditionsASAP(NULL, pos=0) ... done 1577s [00:52:57.396] resolve() on list ... DONE 1577s List of 2 1577s $ y0:[00:52:57.396] - Number of value chunks collected: 1 1577s [00:52:57.396] Resolving 1 futures (chunks) ... DONE 1577s [00:52:57.397] Reducing values from 1 chunks ... 1577s [00:52:57.397] - Number of values collected after concatenation: 4 1577s [00:52:57.397] - Number of values expected: 4 1577s [00:52:57.397] Reducing values from 1 chunks ... DONE 1577s [00:52:57.397] future_lapply() ... DONE 1577s List of 4 1577s [00:52:57.408] future_lapply() ... 1577s ..$ A: num [1, 1] 50 1577s ..$ B: num [1, 1] 60 1577s ..$ C: num [1, 1] 70 1577s ..$ D: num [1, 1] 80 1577s $ y1:List of 4 1577s ..$ A: num [1, 1] 50 1577s ..$ B: num [1, 1] 60 1577s ..$ C: num [1, 1] 70 1577s ..$ D: num [1, 1] 80 1577s List of 2 1577s $ y0:List of 4 1577s ..$ A: num [1, 1] 50 1577s ..$ B: num [1, 1] 60 1577s ..$ C: num [1, 1] 70 1577s ..$ D: num [1, 1] 80 1577s $ y2:List of 4 1577s ..$ A: num [1, 1] 50 1577s ..$ B: num [1, 1] 60 1577s ..$ C: num [1, 1] 70 1577s ..$ D: num [1, 1] 80 1577s List of 2 1577s $ y0:List of 4 1577s ..$ A: num [1:3, 1:5] 100 100 100 200 200 200 300 300 300 400 ... 1577s ..$ B: num [1:3, 1:5] 120 120 120 240 240 240 360 360 360 480 ... 1577s ..$ C: num [1:3, 1:5] 140 140 140 280 280 280 420 420 420 560 ... 1577s ..$ D: num [1:3, 1:5] 160 160 160 320 320 320 480 480 480 640 ... 1577s $ y1:List of 4 1577s ..$ A: num [1:3, 1:5] 100 100 100 200 200 200 300 300 300 400 ... 1577s ..$ B: num [1:3, 1:5] 120 120 120 240 240 240 360 360 360 480 ... 1577s ..$ C: num [1:3, 1:5] 140 140 140 280 280 280 420 420 420 560 ... 1577s ..$ D: num [1:3, 1:5] 160 160 160 320 320 320 480 480 480 640 ... 1577s List of 2 1577s $ y0:List of 4 1577s ..$ A: num [1:3, 1:5] 100 100 100 200 200 200 300 300 300 400 ... 1577s ..$ B: num [1:3, 1:5] 120 120 120 240 240 240 360 360 360 480 ... 1577s ..$ C: num [1:3, 1:5] 140 140 140 280 280 280 420 420 420 560 ... 1577s ..$ D: num [1:3, 1:5] 160 160 160 320 320 320 480 480 480 640 ... 1577s $ y2:List of 4 1577s ..$ A: num [1:3, 1:5] 100 100 100 200 200 200 300 300 300 400 ... 1577s ..$ B: num [1:3, 1:5] 120 120 120 240 240 240 360 360 360 480 ... 1577s ..$ C: num [1:3, 1:5] 140 140 140 280 280 280 420 420 420 560 ... 1577s ..$ D: num [1:3, 1:5] 160 160 160 320 320 320 480 480 480 640 ... 1577s [00:52:57.412] Number of chunks: 1 1577s [00:52:57.412] getGlobalsAndPackagesXApply() ... 1577s [00:52:57.412] - future.globals: TRUE 1577s [00:52:57.412] getGlobalsAndPackages() ... 1577s [00:52:57.412] Searching for globals... 1577s [00:52:57.414] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1577s [00:52:57.414] Searching for globals ... DONE 1577s [00:52:57.414] Resolving globals: FALSE 1577s [00:52:57.415] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1577s [00:52:57.416] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1577s [00:52:57.416] - globals: [1] ‘FUN’ 1577s [00:52:57.416] 1577s [00:52:57.416] getGlobalsAndPackages() ... DONE 1577s [00:52:57.416] - globals found/used: [n=1] ‘FUN’ 1577s [00:52:57.416] - needed namespaces: [n=0] 1577s [00:52:57.417] Finding globals ... DONE 1577s [00:52:57.417] - use_args: TRUE 1577s [00:52:57.417] - Getting '...' globals ... 1577s [00:52:57.417] resolve() on list ... 1577s [00:52:57.417] recursive: 0 1577s [00:52:57.418] length: 1 1577s [00:52:57.418] elements: ‘...’ 1577s [00:52:57.418] length: 0 (resolved future 1) 1577s [00:52:57.418] resolve() on list ... DONE 1577s [00:52:57.418] - '...' content: [n=0] 1577s [00:52:57.418] List of 1 1577s [00:52:57.418] $ ...: list() 1577s [00:52:57.418] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1577s [00:52:57.418] - attr(*, "where")=List of 1 1577s [00:52:57.418] ..$ ...: 1577s [00:52:57.418] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1577s [00:52:57.418] - attr(*, "resolved")= logi TRUE 1577s [00:52:57.418] - attr(*, "total_size")= num NA 1577s [00:52:57.422] - Getting '...' globals ... DONE 1577s [00:52:57.422] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1577s [00:52:57.422] List of 2 1577s [00:52:57.422] $ ...future.FUN:function (x, y = 2 * 1:5) 1577s [00:52:57.422] $ ... : list() 1577s [00:52:57.422] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1577s [00:52:57.422] - attr(*, "where")=List of 2 1577s [00:52:57.422] ..$ ...future.FUN: 1577s [00:52:57.422] ..$ ... : 1577s [00:52:57.422] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1577s [00:52:57.422] - attr(*, "resolved")= logi FALSE 1577s [00:52:57.422] - attr(*, "total_size")= num 4728 1577s [00:52:57.427] Packages to be attached in all futures: [n=0] 1577s [00:52:57.427] getGlobalsAndPackagesXApply() ... DONE 1577s [00:52:57.427] Number of futures (= number of chunks): 1 1577s [00:52:57.427] Launching 1 futures (chunks) ... 1577s [00:52:57.427] Chunk #1 of 1 ... 1577s [00:52:57.428] - Finding globals in 'X' for chunk #1 ... 1577s [00:52:57.428] getGlobalsAndPackages() ... 1577s [00:52:57.428] Searching for globals... 1577s [00:52:57.428] 1577s [00:52:57.428] Searching for globals ... DONE 1577s [00:52:57.428] - globals: [0] 1577s [00:52:57.429] getGlobalsAndPackages() ... DONE 1577s [00:52:57.429] + additional globals found: [n=0] 1577s [00:52:57.429] + additional namespaces needed: [n=0] 1577s [00:52:57.429] - Finding globals in 'X' for chunk #1 ... DONE 1577s [00:52:57.429] - seeds: 1577s [00:52:57.429] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1577s [00:52:57.430] getGlobalsAndPackages() ... 1577s [00:52:57.430] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1577s [00:52:57.430] Resolving globals: FALSE 1577s [00:52:57.431] Tweak future expression to call with '...' arguments ... 1577s [00:52:57.431] { 1577s [00:52:57.431] do.call(function(...) { 1577s [00:52:57.431] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1577s [00:52:57.431] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1577s [00:52:57.431] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1577s [00:52:57.431] on.exit(options(oopts), add = TRUE) 1577s [00:52:57.431] } 1577s [00:52:57.431] { 1577s [00:52:57.431] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1577s [00:52:57.431] ...future.X_jj <- ...future.elements_ii[[jj]] 1577s [00:52:57.431] ...future.FUN(...future.X_jj, ...) 1577s [00:52:57.431] }) 1577s [00:52:57.431] } 1577s [00:52:57.431] }, args = future.call.arguments) 1577s [00:52:57.431] } 1577s [00:52:57.432] Tweak future expression to call with '...' arguments ... DONE 1577s [00:52:57.432] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1577s [00:52:57.432] 1577s [00:52:57.432] getGlobalsAndPackages() ... DONE 1577s [00:52:57.433] run() for ‘Future’ ... 1577s [00:52:57.433] - state: ‘created’ 1577s [00:52:57.433] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1577s [00:52:57.438] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1577s [00:52:57.438] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1577s [00:52:57.438] - Field: ‘label’ 1577s [00:52:57.438] - Field: ‘local’ 1577s [00:52:57.439] - Field: ‘owner’ 1577s [00:52:57.439] - Field: ‘envir’ 1577s [00:52:57.439] - Field: ‘packages’ 1577s [00:52:57.439] - Field: ‘gc’ 1577s [00:52:57.440] - Field: ‘conditions’ 1577s [00:52:57.440] - Field: ‘expr’ 1577s [00:52:57.440] - Field: ‘uuid’ 1577s [00:52:57.440] - Field: ‘seed’ 1577s [00:52:57.440] - Field: ‘version’ 1577s [00:52:57.441] - Field: ‘result’ 1577s [00:52:57.441] - Field: ‘asynchronous’ 1577s [00:52:57.441] - Field: ‘calls’ 1577s [00:52:57.441] - Field: ‘globals’ 1577s [00:52:57.441] - Field: ‘stdout’ 1577s [00:52:57.442] - Field: ‘earlySignal’ 1577s [00:52:57.442] - Field: ‘lazy’ 1577s [00:52:57.442] - Field: ‘state’ 1577s [00:52:57.442] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1577s [00:52:57.442] - Launch lazy future ... 1577s [00:52:57.442] Packages needed by the future expression (n = 0): 1577s [00:52:57.443] Packages needed by future strategies (n = 0): 1577s [00:52:57.443] { 1577s [00:52:57.443] { 1577s [00:52:57.443] { 1577s [00:52:57.443] ...future.startTime <- base::Sys.time() 1577s [00:52:57.443] { 1577s [00:52:57.443] { 1577s [00:52:57.443] { 1577s [00:52:57.443] base::local({ 1577s [00:52:57.443] has_future <- base::requireNamespace("future", 1577s [00:52:57.443] quietly = TRUE) 1577s [00:52:57.443] if (has_future) { 1577s [00:52:57.443] ns <- base::getNamespace("future") 1577s [00:52:57.443] version <- ns[[".package"]][["version"]] 1577s [00:52:57.443] if (is.null(version)) 1577s [00:52:57.443] version <- utils::packageVersion("future") 1577s [00:52:57.443] } 1577s [00:52:57.443] else { 1577s [00:52:57.443] version <- NULL 1577s [00:52:57.443] } 1577s [00:52:57.443] if (!has_future || version < "1.8.0") { 1577s [00:52:57.443] info <- base::c(r_version = base::gsub("R version ", 1577s [00:52:57.443] "", base::R.version$version.string), 1577s [00:52:57.443] platform = base::sprintf("%s (%s-bit)", 1577s [00:52:57.443] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1577s [00:52:57.443] os = base::paste(base::Sys.info()[base::c("sysname", 1577s [00:52:57.443] "release", "version")], collapse = " "), 1577s [00:52:57.443] hostname = base::Sys.info()[["nodename"]]) 1577s [00:52:57.443] info <- base::sprintf("%s: %s", base::names(info), 1577s [00:52:57.443] info) 1577s [00:52:57.443] info <- base::paste(info, collapse = "; ") 1577s [00:52:57.443] if (!has_future) { 1577s [00:52:57.443] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1577s [00:52:57.443] info) 1577s [00:52:57.443] } 1577s [00:52:57.443] else { 1577s [00:52:57.443] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1577s [00:52:57.443] info, version) 1577s [00:52:57.443] } 1577s [00:52:57.443] base::stop(msg) 1577s [00:52:57.443] } 1577s [00:52:57.443] }) 1577s [00:52:57.443] } 1577s [00:52:57.443] options(future.plan = NULL) 1577s [00:52:57.443] Sys.unsetenv("R_FUTURE_PLAN") 1577s [00:52:57.443] future::plan("default", .cleanup = FALSE, .init = FALSE) 1577s [00:52:57.443] } 1577s [00:52:57.443] ...future.workdir <- getwd() 1577s [00:52:57.443] } 1577s [00:52:57.443] ...future.oldOptions <- base::as.list(base::.Options) 1577s [00:52:57.443] ...future.oldEnvVars <- base::Sys.getenv() 1577s [00:52:57.443] } 1577s [00:52:57.443] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1577s [00:52:57.443] future.globals.maxSize = NULL, future.globals.method = NULL, 1577s [00:52:57.443] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1577s [00:52:57.443] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1577s [00:52:57.443] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1577s [00:52:57.443] future.stdout.windows.reencode = NULL, width = 80L) 1577s [00:52:57.443] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1577s [00:52:57.443] base::names(...future.oldOptions)) 1577s [00:52:57.443] } 1577s [00:52:57.443] if (FALSE) { 1577s [00:52:57.443] } 1577s [00:52:57.443] else { 1577s [00:52:57.443] if (TRUE) { 1577s [00:52:57.443] ...future.stdout <- base::rawConnection(base::raw(0L), 1577s [00:52:57.443] open = "w") 1577s [00:52:57.443] } 1577s [00:52:57.443] else { 1577s [00:52:57.443] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1577s [00:52:57.443] windows = "NUL", "/dev/null"), open = "w") 1577s [00:52:57.443] } 1577s [00:52:57.443] base::sink(...future.stdout, type = "output", split = FALSE) 1577s [00:52:57.443] base::on.exit(if (!base::is.null(...future.stdout)) { 1577s [00:52:57.443] base::sink(type = "output", split = FALSE) 1577s [00:52:57.443] base::close(...future.stdout) 1577s [00:52:57.443] }, add = TRUE) 1577s [00:52:57.443] } 1577s [00:52:57.443] ...future.frame <- base::sys.nframe() 1577s [00:52:57.443] ...future.conditions <- base::list() 1577s [00:52:57.443] ...future.rng <- base::globalenv()$.Random.seed 1577s [00:52:57.443] if (FALSE) { 1577s [00:52:57.443] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1577s [00:52:57.443] "...future.value", "...future.globalenv.names", ".Random.seed") 1577s [00:52:57.443] } 1577s [00:52:57.443] ...future.result <- base::tryCatch({ 1577s [00:52:57.443] base::withCallingHandlers({ 1577s [00:52:57.443] ...future.value <- base::withVisible(base::local({ 1577s [00:52:57.443] do.call(function(...) { 1577s [00:52:57.443] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1577s [00:52:57.443] if (!identical(...future.globals.maxSize.org, 1577s [00:52:57.443] ...future.globals.maxSize)) { 1577s [00:52:57.443] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1577s [00:52:57.443] on.exit(options(oopts), add = TRUE) 1577s [00:52:57.443] } 1577s [00:52:57.443] { 1577s [00:52:57.443] lapply(seq_along(...future.elements_ii), 1577s [00:52:57.443] FUN = function(jj) { 1577s [00:52:57.443] ...future.X_jj <- ...future.elements_ii[[jj]] 1577s [00:52:57.443] ...future.FUN(...future.X_jj, ...) 1577s [00:52:57.443] }) 1577s [00:52:57.443] } 1577s [00:52:57.443] }, args = future.call.arguments) 1577s [00:52:57.443] })) 1577s [00:52:57.443] future::FutureResult(value = ...future.value$value, 1577s [00:52:57.443] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1577s [00:52:57.443] ...future.rng), globalenv = if (FALSE) 1577s [00:52:57.443] list(added = base::setdiff(base::names(base::.GlobalEnv), 1577s [00:52:57.443] ...future.globalenv.names)) 1577s [00:52:57.443] else NULL, started = ...future.startTime, version = "1.8") 1577s [00:52:57.443] }, condition = base::local({ 1577s [00:52:57.443] c <- base::c 1577s [00:52:57.443] inherits <- base::inherits 1577s [00:52:57.443] invokeRestart <- base::invokeRestart 1577s [00:52:57.443] length <- base::length 1577s [00:52:57.443] list <- base::list 1577s [00:52:57.443] seq.int <- base::seq.int 1577s [00:52:57.443] signalCondition <- base::signalCondition 1577s [00:52:57.443] sys.calls <- base::sys.calls 1577s [00:52:57.443] `[[` <- base::`[[` 1577s [00:52:57.443] `+` <- base::`+` 1577s [00:52:57.443] `<<-` <- base::`<<-` 1577s [00:52:57.443] sysCalls <- function(calls = sys.calls(), from = 1L) { 1577s [00:52:57.443] calls[seq.int(from = from + 12L, to = length(calls) - 1577s [00:52:57.443] 3L)] 1577s [00:52:57.443] } 1577s [00:52:57.443] function(cond) { 1577s [00:52:57.443] is_error <- inherits(cond, "error") 1577s [00:52:57.443] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1577s [00:52:57.443] NULL) 1577s [00:52:57.443] if (is_error) { 1577s [00:52:57.443] sessionInformation <- function() { 1577s [00:52:57.443] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1577s [00:52:57.443] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1577s [00:52:57.443] search = base::search(), system = base::Sys.info()) 1577s [00:52:57.443] } 1577s [00:52:57.443] ...future.conditions[[length(...future.conditions) + 1577s [00:52:57.443] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1577s [00:52:57.443] cond$call), session = sessionInformation(), 1577s [00:52:57.443] timestamp = base::Sys.time(), signaled = 0L) 1577s [00:52:57.443] signalCondition(cond) 1577s [00:52:57.443] } 1577s [00:52:57.443] else if (!ignore && TRUE && inherits(cond, c("condition", 1577s [00:52:57.443] "immediateCondition"))) { 1577s [00:52:57.443] signal <- TRUE && inherits(cond, "immediateCondition") 1577s [00:52:57.443] ...future.conditions[[length(...future.conditions) + 1577s [00:52:57.443] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1577s [00:52:57.443] if (TRUE && !signal) { 1577s [00:52:57.443] muffleCondition <- function (cond, pattern = "^muffle") 1577s [00:52:57.443] { 1577s [00:52:57.443] inherits <- base::inherits 1577s [00:52:57.443] invokeRestart <- base::invokeRestart 1577s [00:52:57.443] is.null <- base::is.null 1577s [00:52:57.443] muffled <- FALSE 1577s [00:52:57.443] if (inherits(cond, "message")) { 1577s [00:52:57.443] muffled <- grepl(pattern, "muffleMessage") 1577s [00:52:57.443] if (muffled) 1577s [00:52:57.443] invokeRestart("muffleMessage") 1577s [00:52:57.443] } 1577s [00:52:57.443] else if (inherits(cond, "warning")) { 1577s [00:52:57.443] muffled <- grepl(pattern, "muffleWarning") 1577s [00:52:57.443] if (muffled) 1577s [00:52:57.443] invokeRestart("muffleWarning") 1577s [00:52:57.443] } 1577s [00:52:57.443] else if (inherits(cond, "condition")) { 1577s [00:52:57.443] if (!is.null(pattern)) { 1577s [00:52:57.443] computeRestarts <- base::computeRestarts 1577s [00:52:57.443] grepl <- base::grepl 1577s [00:52:57.443] restarts <- computeRestarts(cond) 1577s [00:52:57.443] for (restart in restarts) { 1577s [00:52:57.443] name <- restart$name 1577s [00:52:57.443] if (is.null(name)) 1577s [00:52:57.443] next 1577s [00:52:57.443] if (!grepl(pattern, name)) 1577s [00:52:57.443] next 1577s [00:52:57.443] invokeRestart(restart) 1577s [00:52:57.443] muffled <- TRUE 1577s [00:52:57.443] break 1577s [00:52:57.443] } 1577s [00:52:57.443] } 1577s [00:52:57.443] } 1577s [00:52:57.443] invisible(muffled) 1577s [00:52:57.443] } 1577s [00:52:57.443] muffleCondition(cond, pattern = "^muffle") 1577s [00:52:57.443] } 1577s [00:52:57.443] } 1577s [00:52:57.443] else { 1577s [00:52:57.443] if (TRUE) { 1577s [00:52:57.443] muffleCondition <- function (cond, pattern = "^muffle") 1577s [00:52:57.443] { 1577s [00:52:57.443] inherits <- base::inherits 1577s [00:52:57.443] invokeRestart <- base::invokeRestart 1577s [00:52:57.443] is.null <- base::is.null 1577s [00:52:57.443] muffled <- FALSE 1577s [00:52:57.443] if (inherits(cond, "message")) { 1577s [00:52:57.443] muffled <- grepl(pattern, "muffleMessage") 1577s [00:52:57.443] if (muffled) 1577s [00:52:57.443] invokeRestart("muffleMessage") 1577s [00:52:57.443] } 1577s [00:52:57.443] else if (inherits(cond, "warning")) { 1577s [00:52:57.443] muffled <- grepl(pattern, "muffleWarning") 1577s [00:52:57.443] if (muffled) 1577s [00:52:57.443] invokeRestart("muffleWarning") 1577s [00:52:57.443] } 1577s [00:52:57.443] else if (inherits(cond, "condition")) { 1577s [00:52:57.443] if (!is.null(pattern)) { 1577s [00:52:57.443] computeRestarts <- base::computeRestarts 1577s [00:52:57.443] grepl <- base::grepl 1577s [00:52:57.443] restarts <- computeRestarts(cond) 1577s [00:52:57.443] for (restart in restarts) { 1577s [00:52:57.443] name <- restart$name 1577s [00:52:57.443] if (is.null(name)) 1577s [00:52:57.443] next 1577s [00:52:57.443] if (!grepl(pattern, name)) 1577s [00:52:57.443] next 1577s [00:52:57.443] invokeRestart(restart) 1577s [00:52:57.443] muffled <- TRUE 1577s [00:52:57.443] break 1577s [00:52:57.443] } 1577s [00:52:57.443] } 1577s [00:52:57.443] } 1577s [00:52:57.443] invisible(muffled) 1577s [00:52:57.443] } 1577s [00:52:57.443] muffleCondition(cond, pattern = "^muffle") 1577s [00:52:57.443] } 1577s [00:52:57.443] } 1577s [00:52:57.443] } 1577s [00:52:57.443] })) 1577s [00:52:57.443] }, error = function(ex) { 1577s [00:52:57.443] base::structure(base::list(value = NULL, visible = NULL, 1577s [00:52:57.443] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1577s [00:52:57.443] ...future.rng), started = ...future.startTime, 1577s [00:52:57.443] finished = Sys.time(), session_uuid = NA_character_, 1577s [00:52:57.443] version = "1.8"), class = "FutureResult") 1577s [00:52:57.443] }, finally = { 1577s [00:52:57.443] if (!identical(...future.workdir, getwd())) 1577s [00:52:57.443] setwd(...future.workdir) 1577s [00:52:57.443] { 1577s [00:52:57.443] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1577s [00:52:57.443] ...future.oldOptions$nwarnings <- NULL 1577s [00:52:57.443] } 1577s [00:52:57.443] base::options(...future.oldOptions) 1577s [00:52:57.443] if (.Platform$OS.type == "windows") { 1577s [00:52:57.443] old_names <- names(...future.oldEnvVars) 1577s [00:52:57.443] envs <- base::Sys.getenv() 1577s [00:52:57.443] names <- names(envs) 1577s [00:52:57.443] common <- intersect(names, old_names) 1577s [00:52:57.443] added <- setdiff(names, old_names) 1577s [00:52:57.443] removed <- setdiff(old_names, names) 1577s [00:52:57.443] changed <- common[...future.oldEnvVars[common] != 1577s [00:52:57.443] envs[common]] 1577s [00:52:57.443] NAMES <- toupper(changed) 1577s [00:52:57.443] args <- list() 1577s [00:52:57.443] for (kk in seq_along(NAMES)) { 1577s [00:52:57.443] name <- changed[[kk]] 1577s [00:52:57.443] NAME <- NAMES[[kk]] 1577s [00:52:57.443] if (name != NAME && is.element(NAME, old_names)) 1577s [00:52:57.443] next 1577s [00:52:57.443] args[[name]] <- ...future.oldEnvVars[[name]] 1577s [00:52:57.443] } 1577s [00:52:57.443] NAMES <- toupper(added) 1577s [00:52:57.443] for (kk in seq_along(NAMES)) { 1577s [00:52:57.443] name <- added[[kk]] 1577s [00:52:57.443] NAME <- NAMES[[kk]] 1577s [00:52:57.443] if (name != NAME && is.element(NAME, old_names)) 1577s [00:52:57.443] next 1577s [00:52:57.443] args[[name]] <- "" 1577s [00:52:57.443] } 1577s [00:52:57.443] NAMES <- toupper(removed) 1577s [00:52:57.443] for (kk in seq_along(NAMES)) { 1577s [00:52:57.443] name <- removed[[kk]] 1577s [00:52:57.443] NAME <- NAMES[[kk]] 1577s [00:52:57.443] if (name != NAME && is.element(NAME, old_names)) 1577s [00:52:57.443] next 1577s [00:52:57.443] args[[name]] <- ...future.oldEnvVars[[name]] 1577s [00:52:57.443] } 1577s [00:52:57.443] if (length(args) > 0) 1577s [00:52:57.443] base::do.call(base::Sys.setenv, args = args) 1577s [00:52:57.443] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1577s [00:52:57.443] } 1577s [00:52:57.443] else { 1577s [00:52:57.443] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1577s [00:52:57.443] } 1577s [00:52:57.443] { 1577s [00:52:57.443] if (base::length(...future.futureOptionsAdded) > 1577s [00:52:57.443] 0L) { 1577s [00:52:57.443] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1577s [00:52:57.443] base::names(opts) <- ...future.futureOptionsAdded 1577s [00:52:57.443] base::options(opts) 1577s [00:52:57.443] } 1577s [00:52:57.443] { 1577s [00:52:57.443] { 1577s [00:52:57.443] NULL 1577s [00:52:57.443] RNGkind("Mersenne-Twister") 1577s [00:52:57.443] base::rm(list = ".Random.seed", envir = base::globalenv(), 1577s [00:52:57.443] inherits = FALSE) 1577s [00:52:57.443] } 1577s [00:52:57.443] options(future.plan = NULL) 1577s [00:52:57.443] if (is.na(NA_character_)) 1577s [00:52:57.443] Sys.unsetenv("R_FUTURE_PLAN") 1577s [00:52:57.443] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1577s [00:52:57.443] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1577s [00:52:57.443] envir = parent.frame()) 1577s [00:52:57.443] { 1577s [00:52:57.443] default_workers <- missing(workers) 1577s [00:52:57.443] if (is.function(workers)) 1577s [00:52:57.443] workers <- workers() 1577s [00:52:57.443] workers <- structure(as.integer(workers), 1577s [00:52:57.443] class = class(workers)) 1577s [00:52:57.443] stop_if_not(is.finite(workers), workers >= 1577s [00:52:57.443] 1L) 1577s [00:52:57.443] if ((workers == 1L && !inherits(workers, 1577s [00:52:57.443] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1577s [00:52:57.443] if (default_workers) 1577s [00:52:57.443] supportsMulticore(warn = TRUE) 1577s [00:52:57.443] return(sequential(..., envir = envir)) 1577s [00:52:57.443] } 1577s [00:52:57.443] oopts <- options(mc.cores = workers) 1577s [00:52:57.443] on.exit(options(oopts)) 1577s [00:52:57.443] future <- MulticoreFuture(..., workers = workers, 1577s [00:52:57.443] envir = envir) 1577s [00:52:57.443] if (!future$lazy) 1577s [00:52:57.443] future <- run(future) 1577s [00:52:57.443] invisible(future) 1577s [00:52:57.443] }), .cleanup = FALSE, .init = FALSE) 1577s [00:52:57.443] } 1577s [00:52:57.443] } 1577s [00:52:57.443] } 1577s [00:52:57.443] }) 1577s [00:52:57.443] if (TRUE) { 1577s [00:52:57.443] base::sink(type = "output", split = FALSE) 1577s [00:52:57.443] if (TRUE) { 1577s [00:52:57.443] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1577s [00:52:57.443] } 1577s [00:52:57.443] else { 1577s [00:52:57.443] ...future.result["stdout"] <- base::list(NULL) 1577s [00:52:57.443] } 1577s [00:52:57.443] base::close(...future.stdout) 1577s [00:52:57.443] ...future.stdout <- NULL 1577s [00:52:57.443] } 1577s [00:52:57.443] ...future.result$conditions <- ...future.conditions 1577s [00:52:57.443] ...future.result$finished <- base::Sys.time() 1577s [00:52:57.443] ...future.result 1577s [00:52:57.443] } 1577s [00:52:57.449] assign_globals() ... 1577s [00:52:57.449] List of 5 1577s [00:52:57.449] $ ...future.FUN :function (x, y = 2 * 1:5) 1577s [00:52:57.449] $ future.call.arguments : list() 1577s [00:52:57.449] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1577s [00:52:57.449] $ ...future.elements_ii :List of 4 1577s [00:52:57.449] ..$ A: num 50 1577s [00:52:57.449] ..$ B: num 60 1577s [00:52:57.449] ..$ C: num 70 1577s [00:52:57.449] ..$ D: num 80 1577s [00:52:57.449] $ ...future.seeds_ii : NULL 1577s [00:52:57.449] $ ...future.globals.maxSize: NULL 1577s [00:52:57.449] - attr(*, "where")=List of 5 1577s [00:52:57.449] ..$ ...future.FUN : 1577s [00:52:57.449] ..$ future.call.arguments : 1577s [00:52:57.449] ..$ ...future.elements_ii : 1577s [00:52:57.449] ..$ ...future.seeds_ii : 1577s [00:52:57.449] ..$ ...future.globals.maxSize: 1577s [00:52:57.449] - attr(*, "resolved")= logi FALSE 1577s [00:52:57.449] - attr(*, "total_size")= num 4728 1577s [00:52:57.449] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1577s [00:52:57.449] - attr(*, "already-done")= logi TRUE 1577s [00:52:57.459] - reassign environment for ‘...future.FUN’ 1577s [00:52:57.460] - copied ‘...future.FUN’ to environment 1577s [00:52:57.460] - copied ‘future.call.arguments’ to environment 1577s [00:52:57.460] - copied ‘...future.elements_ii’ to environment 1577s [00:52:57.460] - copied ‘...future.seeds_ii’ to environment 1577s [00:52:57.461] - copied ‘...future.globals.maxSize’ to environment 1577s [00:52:57.461] assign_globals() ... done 1577s [00:52:57.461] plan(): Setting new future strategy stack: 1577s [00:52:57.461] List of future strategies: 1577s [00:52:57.461] 1. sequential: 1577s [00:52:57.461] - args: function (..., envir = parent.frame()) 1577s [00:52:57.461] - tweaked: FALSE 1577s [00:52:57.461] - call: NULL 1577s [00:52:57.462] plan(): nbrOfWorkers() = 1 1577s [00:52:57.463] plan(): Setting new future strategy stack: 1577s [00:52:57.463] List of future strategies: 1577s [00:52:57.463] 1. multicore: 1577s [00:52:57.463] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1577s [00:52:57.463] - tweaked: FALSE 1577s [00:52:57.463] - call: plan(strategy) 1577s [00:52:57.468] plan(): nbrOfWorkers() = 1 1577s [00:52:57.468] SequentialFuture started (and completed) 1577s [00:52:57.469] - Launch lazy future ... done 1577s [00:52:57.469] run() for ‘SequentialFuture’ ... done 1577s [00:52:57.469] Created future: 1577s [00:52:57.469] SequentialFuture: 1577s [00:52:57.469] Label: ‘future_sapply-1’ 1577s [00:52:57.469] Expression: 1577s [00:52:57.469] { 1577s [00:52:57.469] do.call(function(...) { 1577s [00:52:57.469] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1577s [00:52:57.469] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1577s [00:52:57.469] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1577s [00:52:57.469] on.exit(options(oopts), add = TRUE) 1577s [00:52:57.469] } 1577s [00:52:57.469] { 1577s [00:52:57.469] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1577s [00:52:57.469] ...future.X_jj <- ...future.elements_ii[[jj]] 1577s [00:52:57.469] ...future.FUN(...future.X_jj, ...) 1577s [00:52:57.469] }) 1577s [00:52:57.469] } 1577s [00:52:57.469] }, args = future.call.arguments) 1577s [00:52:57.469] } 1577s [00:52:57.469] Lazy evaluation: FALSE 1577s [00:52:57.469] Asynchronous evaluation: FALSE 1577s [00:52:57.469] Local evaluation: TRUE 1577s [00:52:57.469] Environment: R_GlobalEnv 1577s [00:52:57.469] Capture standard output: TRUE 1577s [00:52:57.469] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1577s [00:52:57.469] Globals: 5 objects totaling 4.84 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1577s [00:52:57.469] Packages: 1577s [00:52:57.469] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1577s [00:52:57.469] Resolved: TRUE 1577s [00:52:57.469] Value: 1.34 KiB of class ‘list’ 1577s [00:52:57.469] Early signaling: FALSE 1577s [00:52:57.469] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1577s [00:52:57.469] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1577s [00:52:57.471] Chunk #1 of 1 ... DONE 1577s [00:52:57.471] Launching 1 futures (chunks) ... DONE 1577s [00:52:57.471] Resolving 1 futures (chunks) ... 1577s [00:52:57.471] resolve() on list ... 1577s [00:52:57.472] recursive: 0 1577s [00:52:57.472] length: 1 1577s [00:52:57.472] 1577s [00:52:57.472] resolved() for ‘SequentialFuture’ ... 1577s [00:52:57.472] - state: ‘finished’ 1577s [00:52:57.472] - run: TRUE 1577s [00:52:57.472] - result: ‘FutureResult’ 1577s [00:52:57.472] resolved() for ‘SequentialFuture’ ... done 1577s [00:52:57.472] Future #1 1577s [00:52:57.473] signalConditionsASAP(SequentialFuture, pos=1) ... 1577s [00:52:57.473] - nx: 1 1577s [00:52:57.473] - relay: TRUE 1577s [00:52:57.473] - stdout: TRUE 1577s [00:52:57.473] - signal: TRUE 1577s [00:52:57.473] - resignal: FALSE 1577s [00:52:57.473] - force: TRUE 1577s [00:52:57.473] - relayed: [n=1] FALSE 1577s [00:52:57.474] - queued futures: [n=1] FALSE 1577s [00:52:57.474] - until=1 1577s [00:52:57.474] - relaying element #1 1577s [00:52:57.474] - relayed: [n=1] TRUE 1577s [00:52:57.474] - queued futures: [n=1] TRUE 1577s [00:52:57.475] signalConditionsASAP(SequentialFuture, pos=1) ... done 1577s [00:52:57.475] length: 0 (resolved future 1) 1577s [00:52:57.475] Relaying remaining futures 1577s [00:52:57.475] signalConditionsASAP(NULL, pos=0) ... 1577s [00:52:57.475] - nx: 1 1577s [00:52:57.476] - relay: TRUE 1577s [00:52:57.476] - stdout: TRUE 1577s [00:52:57.476] - signal: TRUE 1577s [00:52:57.476] - resignal: FALSE 1577s [00:52:57.476] - force: TRUE 1577s [00:52:57.476] - relayed: [n=1] TRUE 1577s [00:52:57.476] - queued futures: [n=1] TRUE 1577s - flush all 1577s [00:52:57.477] - relayed: [n=1] TRUE 1577s [00:52:57.477] - queued futures: [n=1] TRUE 1577s [00:52:57.477] signalConditionsASAP(NULL, pos=0) ... done 1577s [00:52:57.477] resolve() on list ... DONE 1577s [00:52:57.477] - Number of value chunks collected: 1 1577s [00:52:57.477] Resolving 1 futures (chunks) ... DONE 1577s [00:52:57.477] Reducing values from 1 chunks ... 1577s [00:52:57.478] - Number of values collected after concatenation: 4 1577s [00:52:57.478] - Number of values expected: 4 1577s [00:52:57.478] Reducing values from 1 chunks ... DONE 1577s [00:52:57.478] future_lapply() ... DONE 1577s [00:52:57.502] future_lapply() ... 1577s [00:52:57.506] Number of chunks: 1 1577s [00:52:57.506] getGlobalsAndPackagesXApply() ... 1577s [00:52:57.507] - future.globals: TRUE 1577s [00:52:57.507] getGlobalsAndPackages() ... 1577s [00:52:57.507] Searching for globals... 1577s [00:52:57.509] - globals found: [1] ‘FUN’ 1577s [00:52:57.509] Searching for globals ... DONE 1577s [00:52:57.509] Resolving globals: FALSE 1577s [00:52:57.510] The total size of the 1 globals is 848 bytes (848 bytes) 1577s [00:52:57.510] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1577s [00:52:57.511] - globals: [1] ‘FUN’ 1577s [00:52:57.511] 1577s [00:52:57.511] getGlobalsAndPackages() ... DONE 1577s [00:52:57.511] - globals found/used: [n=1] ‘FUN’ 1577s [00:52:57.511] - needed namespaces: [n=0] 1577s [00:52:57.511] Finding globals ... DONE 1577s [00:52:57.512] - use_args: TRUE 1577s [00:52:57.512] - Getting '...' globals ... 1577s [00:52:57.512] resolve() on list ... 1577s [00:52:57.512] recursive: 0 1577s [00:52:57.513] length: 1 1577s [00:52:57.513] elements: ‘...’ 1577s [00:52:57.513] length: 0 (resolved future 1) 1577s [00:52:57.513] resolve() on list ... DONE 1577s [00:52:57.514] - '...' content: [n=0] 1577s [00:52:57.514] List of 1 1577s [00:52:57.514] $ ...: list() 1577s [00:52:57.514] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1577s [00:52:57.514] - attr(*, "where")=List of 1 1577s [00:52:57.514] ..$ ...: 1577s [00:52:57.514] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1577s [00:52:57.514] - attr(*, "resolved")= logi TRUE 1577s [00:52:57.514] - attr(*, "total_size")= num NA 1577s [00:52:57.517] - Getting '...' globals ... DONE 1577s [00:52:57.517] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1577s [00:52:57.517] List of 2 1577s [00:52:57.517] $ ...future.FUN:function (x) 1577s [00:52:57.517] $ ... : list() 1577s [00:52:57.517] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1577s [00:52:57.517] - attr(*, "where")=List of 2 1577s [00:52:57.517] ..$ ...future.FUN: 1577s [00:52:57.517] ..$ ... : 1577s [00:52:57.517] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1577s [00:52:57.517] - attr(*, "resolved")= logi FALSE 1577s [00:52:57.517] - attr(*, "total_size")= num 848 1577s [00:52:57.522] Packages to be attached in all futures: [n=0] 1577s [00:52:57.522] getGlobalsAndPackagesXApply() ... DONE 1577s [00:52:57.523] Number of futures (= number of chunks): 1 1577s [00:52:57.523] Launching 1 futures (chunks) ... 1577s [00:52:57.523] Chunk #1 of 1 ... 1577s [00:52:57.523] - Finding globals in 'X' for chunk #1 ... 1577s [00:52:57.524] getGlobalsAndPackages() ... 1577s [00:52:57.524] Searching for globals... 1577s [00:52:57.524] 1577s [00:52:57.524] Searching for globals ... DONE 1577s [00:52:57.525] - globals: [0] 1577s [00:52:57.525] getGlobalsAndPackages() ... DONE 1577s [00:52:57.525] + additional globals found: [n=0] 1577s [00:52:57.525] + additional namespaces needed: [n=0] 1577s [00:52:57.525] - Finding globals in 'X' for chunk #1 ... DONE 1577s [00:52:57.526] - seeds: 1577s [00:52:57.526] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1577s [00:52:57.526] getGlobalsAndPackages() ... 1577s [00:52:57.526] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1577s [00:52:57.527] Resolving globals: FALSE 1577s [00:52:57.527] Tweak future expression to call with '...' arguments ... 1577s [00:52:57.527] { 1577s [00:52:57.527] do.call(function(...) { 1577s [00:52:57.527] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1577s [00:52:57.527] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1577s [00:52:57.527] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1577s [00:52:57.527] on.exit(options(oopts), add = TRUE) 1577s [00:52:57.527] } 1577s [00:52:57.527] { 1577s [00:52:57.527] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1577s [00:52:57.527] ...future.X_jj <- ...future.elements_ii[[jj]] 1577s [00:52:57.527] ...future.FUN(...future.X_jj, ...) 1577s [00:52:57.527] }) 1577s [00:52:57.527] } 1577s [00:52:57.527] }, args = future.call.arguments) 1577s [00:52:57.527] } 1577s [00:52:57.527] Tweak future expression to call with '...' arguments ... DONE 1577s [00:52:57.528] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1577s [00:52:57.528] 1577s [00:52:57.528] getGlobalsAndPackages() ... DONE 1577s [00:52:57.529] run() for ‘Future’ ... 1577s [00:52:57.529] - state: ‘created’ 1577s [00:52:57.529] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1577s [00:52:57.534] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1577s [00:52:57.534] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1577s [00:52:57.534] - Field: ‘label’ 1577s [00:52:57.535] - Field: ‘local’ 1577s [00:52:57.535] - Field: ‘owner’ 1577s [00:52:57.535] - Field: ‘envir’ 1577s [00:52:57.535] - Field: ‘packages’ 1577s [00:52:57.535] - Field: ‘gc’ 1577s [00:52:57.536] - Field: ‘conditions’ 1577s [00:52:57.536] - Field: ‘expr’ 1577s [00:52:57.536] - Field: ‘uuid’ 1577s [00:52:57.536] - Field: ‘seed’ 1577s [00:52:57.536] - Field: ‘version’ 1577s [00:52:57.537] - Field: ‘result’ 1577s [00:52:57.537] - Field: ‘asynchronous’ 1577s [00:52:57.537] - Field: ‘calls’ 1577s [00:52:57.537] - Field: ‘globals’ 1577s [00:52:57.537] - Field: ‘stdout’ 1577s [00:52:57.538] - Field: ‘earlySignal’ 1577s [00:52:57.538] - Field: ‘lazy’ 1577s [00:52:57.538] - Field: ‘state’ 1577s [00:52:57.538] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1577s [00:52:57.538] - Launch lazy future ... 1577s [00:52:57.539] Packages needed by the future expression (n = 0): 1577s [00:52:57.539] Packages needed by future strategies (n = 0): 1577s [00:52:57.540] { 1577s [00:52:57.540] { 1577s [00:52:57.540] { 1577s [00:52:57.540] ...future.startTime <- base::Sys.time() 1577s [00:52:57.540] { 1577s [00:52:57.540] { 1577s [00:52:57.540] { 1577s [00:52:57.540] base::local({ 1577s [00:52:57.540] has_future <- base::requireNamespace("future", 1577s [00:52:57.540] quietly = TRUE) 1577s [00:52:57.540] if (has_future) { 1577s [00:52:57.540] ns <- base::getNamespace("future") 1577s [00:52:57.540] version <- ns[[".package"]][["version"]] 1577s [00:52:57.540] if (is.null(version)) 1577s [00:52:57.540] version <- utils::packageVersion("future") 1577s [00:52:57.540] } 1577s [00:52:57.540] else { 1577s [00:52:57.540] version <- NULL 1577s [00:52:57.540] } 1577s [00:52:57.540] if (!has_future || version < "1.8.0") { 1577s [00:52:57.540] info <- base::c(r_version = base::gsub("R version ", 1577s [00:52:57.540] "", base::R.version$version.string), 1577s [00:52:57.540] platform = base::sprintf("%s (%s-bit)", 1577s [00:52:57.540] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1577s [00:52:57.540] os = base::paste(base::Sys.info()[base::c("sysname", 1577s [00:52:57.540] "release", "version")], collapse = " "), 1577s [00:52:57.540] hostname = base::Sys.info()[["nodename"]]) 1577s [00:52:57.540] info <- base::sprintf("%s: %s", base::names(info), 1577s [00:52:57.540] info) 1577s [00:52:57.540] info <- base::paste(info, collapse = "; ") 1577s [00:52:57.540] if (!has_future) { 1577s [00:52:57.540] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1577s [00:52:57.540] info) 1577s [00:52:57.540] } 1577s [00:52:57.540] else { 1577s [00:52:57.540] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1577s [00:52:57.540] info, version) 1577s [00:52:57.540] } 1577s [00:52:57.540] base::stop(msg) 1577s [00:52:57.540] } 1577s [00:52:57.540] }) 1577s [00:52:57.540] } 1577s [00:52:57.540] options(future.plan = NULL) 1577s [00:52:57.540] Sys.unsetenv("R_FUTURE_PLAN") 1577s [00:52:57.540] future::plan("default", .cleanup = FALSE, .init = FALSE) 1577s [00:52:57.540] } 1577s [00:52:57.540] ...future.workdir <- getwd() 1577s [00:52:57.540] } 1577s [00:52:57.540] ...future.oldOptions <- base::as.list(base::.Options) 1577s [00:52:57.540] ...future.oldEnvVars <- base::Sys.getenv() 1577s [00:52:57.540] } 1577s [00:52:57.540] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1577s [00:52:57.540] future.globals.maxSize = NULL, future.globals.method = NULL, 1577s [00:52:57.540] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1577s [00:52:57.540] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1577s [00:52:57.540] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1577s [00:52:57.540] future.stdout.windows.reencode = NULL, width = 80L) 1577s [00:52:57.540] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1577s [00:52:57.540] base::names(...future.oldOptions)) 1577s [00:52:57.540] } 1577s [00:52:57.540] if (FALSE) { 1577s [00:52:57.540] } 1577s [00:52:57.540] else { 1577s [00:52:57.540] if (TRUE) { 1577s [00:52:57.540] ...future.stdout <- base::rawConnection(base::raw(0L), 1577s [00:52:57.540] open = "w") 1577s [00:52:57.540] } 1577s [00:52:57.540] else { 1577s [00:52:57.540] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1577s [00:52:57.540] windows = "NUL", "/dev/null"), open = "w") 1577s [00:52:57.540] } 1577s [00:52:57.540] base::sink(...future.stdout, type = "output", split = FALSE) 1577s [00:52:57.540] base::on.exit(if (!base::is.null(...future.stdout)) { 1577s [00:52:57.540] base::sink(type = "output", split = FALSE) 1577s [00:52:57.540] base::close(...future.stdout) 1577s [00:52:57.540] }, add = TRUE) 1577s [00:52:57.540] } 1577s [00:52:57.540] ...future.frame <- base::sys.nframe() 1577s [00:52:57.540] ...future.conditions <- base::list() 1577s [00:52:57.540] ...future.rng <- base::globalenv()$.Random.seed 1577s [00:52:57.540] if (FALSE) { 1577s [00:52:57.540] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1577s [00:52:57.540] "...future.value", "...future.globalenv.names", ".Random.seed") 1577s [00:52:57.540] } 1577s [00:52:57.540] ...future.result <- base::tryCatch({ 1577s [00:52:57.540] base::withCallingHandlers({ 1577s [00:52:57.540] ...future.value <- base::withVisible(base::local({ 1577s [00:52:57.540] do.call(function(...) { 1577s [00:52:57.540] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1577s [00:52:57.540] if (!identical(...future.globals.maxSize.org, 1577s [00:52:57.540] ...future.globals.maxSize)) { 1577s [00:52:57.540] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1577s [00:52:57.540] on.exit(options(oopts), add = TRUE) 1577s [00:52:57.540] } 1577s [00:52:57.540] { 1577s [00:52:57.540] lapply(seq_along(...future.elements_ii), 1577s [00:52:57.540] FUN = function(jj) { 1577s [00:52:57.540] ...future.X_jj <- ...future.elements_ii[[jj]] 1577s [00:52:57.540] ...future.FUN(...future.X_jj, ...) 1577s [00:52:57.540] }) 1577s [00:52:57.540] } 1577s [00:52:57.540] }, args = future.call.arguments) 1577s [00:52:57.540] })) 1577s [00:52:57.540] future::FutureResult(value = ...future.value$value, 1577s [00:52:57.540] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1577s [00:52:57.540] ...future.rng), globalenv = if (FALSE) 1577s [00:52:57.540] list(added = base::setdiff(base::names(base::.GlobalEnv), 1577s [00:52:57.540] ...future.globalenv.names)) 1577s [00:52:57.540] else NULL, started = ...future.startTime, version = "1.8") 1577s [00:52:57.540] }, condition = base::local({ 1577s [00:52:57.540] c <- base::c 1577s [00:52:57.540] inherits <- base::inherits 1577s [00:52:57.540] invokeRestart <- base::invokeRestart 1577s [00:52:57.540] length <- base::length 1577s [00:52:57.540] list <- base::list 1577s [00:52:57.540] seq.int <- base::seq.int 1577s [00:52:57.540] signalCondition <- base::signalCondition 1577s [00:52:57.540] sys.calls <- base::sys.calls 1577s [00:52:57.540] `[[` <- base::`[[` 1577s [00:52:57.540] `+` <- base::`+` 1577s [00:52:57.540] `<<-` <- base::`<<-` 1577s [00:52:57.540] sysCalls <- function(calls = sys.calls(), from = 1L) { 1577s [00:52:57.540] calls[seq.int(from = from + 12L, to = length(calls) - 1577s [00:52:57.540] 3L)] 1577s [00:52:57.540] } 1577s [00:52:57.540] function(cond) { 1577s [00:52:57.540] is_error <- inherits(cond, "error") 1577s [00:52:57.540] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1577s [00:52:57.540] NULL) 1577s [00:52:57.540] if (is_error) { 1577s [00:52:57.540] sessionInformation <- function() { 1577s [00:52:57.540] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1577s [00:52:57.540] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1577s [00:52:57.540] search = base::search(), system = base::Sys.info()) 1577s [00:52:57.540] } 1577s [00:52:57.540] ...future.conditions[[length(...future.conditions) + 1577s [00:52:57.540] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1577s [00:52:57.540] cond$call), session = sessionInformation(), 1577s [00:52:57.540] timestamp = base::Sys.time(), signaled = 0L) 1577s [00:52:57.540] signalCondition(cond) 1577s [00:52:57.540] } 1577s [00:52:57.540] else if (!ignore && TRUE && inherits(cond, c("condition", 1577s [00:52:57.540] "immediateCondition"))) { 1577s [00:52:57.540] signal <- TRUE && inherits(cond, "immediateCondition") 1577s [00:52:57.540] ...future.conditions[[length(...future.conditions) + 1577s [00:52:57.540] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1577s [00:52:57.540] if (TRUE && !signal) { 1577s [00:52:57.540] muffleCondition <- function (cond, pattern = "^muffle") 1577s [00:52:57.540] { 1577s [00:52:57.540] inherits <- base::inherits 1577s [00:52:57.540] invokeRestart <- base::invokeRestart 1577s [00:52:57.540] is.null <- base::is.null 1577s [00:52:57.540] muffled <- FALSE 1577s [00:52:57.540] if (inherits(cond, "message")) { 1577s [00:52:57.540] muffled <- grepl(pattern, "muffleMessage") 1577s [00:52:57.540] if (muffled) 1577s [00:52:57.540] invokeRestart("muffleMessage") 1577s [00:52:57.540] } 1577s [00:52:57.540] else if (inherits(cond, "warning")) { 1577s [00:52:57.540] muffled <- grepl(pattern, "muffleWarning") 1577s [00:52:57.540] if (muffled) 1577s [00:52:57.540] invokeRestart("muffleWarning") 1577s [00:52:57.540] } 1577s [00:52:57.540] else if (inherits(cond, "condition")) { 1577s [00:52:57.540] if (!is.null(pattern)) { 1577s [00:52:57.540] computeRestarts <- base::computeRestarts 1577s [00:52:57.540] grepl <- base::grepl 1577s [00:52:57.540] restarts <- computeRestarts(cond) 1577s [00:52:57.540] for (restart in restarts) { 1577s [00:52:57.540] name <- restart$name 1577s [00:52:57.540] if (is.null(name)) 1577s [00:52:57.540] next 1577s [00:52:57.540] if (!grepl(pattern, name)) 1577s [00:52:57.540] next 1577s [00:52:57.540] invokeRestart(restart) 1577s [00:52:57.540] muffled <- TRUE 1577s [00:52:57.540] break 1577s [00:52:57.540] } 1577s [00:52:57.540] } 1577s [00:52:57.540] } 1577s [00:52:57.540] invisible(muffled) 1577s [00:52:57.540] } 1577s [00:52:57.540] muffleCondition(cond, pattern = "^muffle") 1577s [00:52:57.540] } 1577s [00:52:57.540] } 1577s [00:52:57.540] else { 1577s [00:52:57.540] if (TRUE) { 1577s [00:52:57.540] muffleCondition <- function (cond, pattern = "^muffle") 1577s [00:52:57.540] { 1577s [00:52:57.540] inherits <- base::inherits 1577s [00:52:57.540] invokeRestart <- base::invokeRestart 1577s [00:52:57.540] is.null <- base::is.null 1577s [00:52:57.540] muffled <- FALSE 1577s [00:52:57.540] if (inherits(cond, "message")) { 1577s [00:52:57.540] muffled <- grepl(pattern, "muffleMessage") 1577s [00:52:57.540] if (muffled) 1577s [00:52:57.540] invokeRestart("muffleMessage") 1577s [00:52:57.540] } 1577s [00:52:57.540] else if (inherits(cond, "warning")) { 1577s [00:52:57.540] muffled <- grepl(pattern, "muffleWarning") 1577s [00:52:57.540] if (muffled) 1577s [00:52:57.540] invokeRestart("muffleWarning") 1577s [00:52:57.540] } 1577s [00:52:57.540] else if (inherits(cond, "condition")) { 1577s [00:52:57.540] if (!is.null(pattern)) { 1577s [00:52:57.540] computeRestarts <- base::computeRestarts 1577s [00:52:57.540] grepl <- base::grepl 1577s [00:52:57.540] restarts <- computeRestarts(cond) 1577s [00:52:57.540] for (restart in restarts) { 1577s [00:52:57.540] name <- restart$name 1577s [00:52:57.540] if (is.null(name)) 1577s [00:52:57.540] next 1577s [00:52:57.540] if (!grepl(pattern, name)) 1577s [00:52:57.540] next 1577s [00:52:57.540] invokeRestart(restart) 1577s [00:52:57.540] muffled <- TRUE 1577s [00:52:57.540] break 1577s [00:52:57.540] } 1577s [00:52:57.540] } 1577s [00:52:57.540] } 1577s [00:52:57.540] invisible(muffled) 1577s [00:52:57.540] } 1577s [00:52:57.540] muffleCondition(cond, pattern = "^muffle") 1577s [00:52:57.540] } 1577s [00:52:57.540] } 1577s [00:52:57.540] } 1577s [00:52:57.540] })) 1577s [00:52:57.540] }, error = function(ex) { 1577s [00:52:57.540] base::structure(base::list(value = NULL, visible = NULL, 1577s [00:52:57.540] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1577s [00:52:57.540] ...future.rng), started = ...future.startTime, 1577s [00:52:57.540] finished = Sys.time(), session_uuid = NA_character_, 1577s [00:52:57.540] version = "1.8"), class = "FutureResult") 1577s [00:52:57.540] }, finally = { 1577s [00:52:57.540] if (!identical(...future.workdir, getwd())) 1577s [00:52:57.540] setwd(...future.workdir) 1577s [00:52:57.540] { 1577s [00:52:57.540] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1577s [00:52:57.540] ...future.oldOptions$nwarnings <- NULL 1577s [00:52:57.540] } 1577s [00:52:57.540] base::options(...future.oldOptions) 1577s [00:52:57.540] if (.Platform$OS.type == "windows") { 1577s [00:52:57.540] old_names <- names(...future.oldEnvVars) 1577s [00:52:57.540] envs <- base::Sys.getenv() 1577s [00:52:57.540] names <- names(envs) 1577s [00:52:57.540] common <- intersect(names, old_names) 1577s [00:52:57.540] added <- setdiff(names, old_names) 1577s [00:52:57.540] removed <- setdiff(old_names, names) 1577s [00:52:57.540] changed <- common[...future.oldEnvVars[common] != 1577s [00:52:57.540] envs[common]] 1577s [00:52:57.540] NAMES <- toupper(changed) 1577s [00:52:57.540] args <- list() 1577s [00:52:57.540] for (kk in seq_along(NAMES)) { 1577s [00:52:57.540] name <- changed[[kk]] 1577s [00:52:57.540] NAME <- NAMES[[kk]] 1577s [00:52:57.540] if (name != NAME && is.element(NAME, old_names)) 1577s [00:52:57.540] next 1577s [00:52:57.540] args[[name]] <- ...future.oldEnvVars[[name]] 1577s [00:52:57.540] } 1577s [00:52:57.540] NAMES <- toupper(added) 1577s [00:52:57.540] for (kk in seq_along(NAMES)) { 1577s [00:52:57.540] name <- added[[kk]] 1577s [00:52:57.540] NAME <- NAMES[[kk]] 1577s [00:52:57.540] if (name != NAME && is.element(NAME, old_names)) 1577s [00:52:57.540] next 1577s [00:52:57.540] args[[name]] <- "" 1577s [00:52:57.540] } 1577s [00:52:57.540] NAMES <- toupper(removed) 1577s [00:52:57.540] for (kk in seq_along(NAMES)) { 1577s [00:52:57.540] name <- removed[[kk]] 1577s [00:52:57.540] NAME <- NAMES[[kk]] 1577s [00:52:57.540] if (name != NAME && is.element(NAME, old_names)) 1577s [00:52:57.540] next 1577s [00:52:57.540] args[[name]] <- ...future.oldEnvVars[[name]] 1577s [00:52:57.540] } 1577s [00:52:57.540] if (length(args) > 0) 1577s [00:52:57.540] base::do.call(base::Sys.setenv, args = args) 1577s [00:52:57.540] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1577s [00:52:57.540] } 1577s [00:52:57.540] else { 1577s [00:52:57.540] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1577s [00:52:57.540] } 1577s [00:52:57.540] { 1577s [00:52:57.540] if (base::length(...future.futureOptionsAdded) > 1577s [00:52:57.540] 0L) { 1577s [00:52:57.540] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1577s [00:52:57.540] base::names(opts) <- ...future.futureOptionsAdded 1577s [00:52:57.540] base::options(opts) 1577s [00:52:57.540] } 1577s [00:52:57.540] { 1577s [00:52:57.540] { 1577s [00:52:57.540] NULL 1577s [00:52:57.540] RNGkind("Mersenne-Twister") 1577s [00:52:57.540] base::rm(list = ".Random.seed", envir = base::globalenv(), 1577s [00:52:57.540] inherits = FALSE) 1577s [00:52:57.540] } 1577s [00:52:57.540] options(future.plan = NULL) 1577s [00:52:57.540] if (is.na(NA_character_)) 1577s [00:52:57.540] Sys.unsetenv("R_FUTURE_PLAN") 1577s [00:52:57.540] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1577s [00:52:57.540] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1577s [00:52:57.540] envir = parent.frame()) 1577s [00:52:57.540] { 1577s [00:52:57.540] default_workers <- missing(workers) 1577s [00:52:57.540] if (is.function(workers)) 1577s [00:52:57.540] workers <- workers() 1577s [00:52:57.540] workers <- structure(as.integer(workers), 1577s [00:52:57.540] class = class(workers)) 1577s [00:52:57.540] stop_if_not(is.finite(workers), workers >= 1577s [00:52:57.540] 1L) 1577s [00:52:57.540] if ((workers == 1L && !inherits(workers, 1577s [00:52:57.540] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1577s [00:52:57.540] if (default_workers) 1577s [00:52:57.540] supportsMulticore(warn = TRUE) 1577s [00:52:57.540] return(sequential(..., envir = envir)) 1577s [00:52:57.540] } 1577s [00:52:57.540] oopts <- options(mc.cores = workers) 1577s [00:52:57.540] on.exit(options(oopts)) 1577s [00:52:57.540] future <- MulticoreFuture(..., workers = workers, 1577s [00:52:57.540] envir = envir) 1577s [00:52:57.540] if (!future$lazy) 1577s [00:52:57.540] future <- run(future) 1577s [00:52:57.540] invisible(future) 1577s [00:52:57.540] }), .cleanup = FALSE, .init = FALSE) 1577s [00:52:57.540] } 1577s [00:52:57.540] } 1577s [00:52:57.540] } 1577s [00:52:57.540] }) 1577s [00:52:57.540] if (TRUE) { 1577s [00:52:57.540] base::sink(type = "output", split = FALSE) 1577s [00:52:57.540] if (TRUE) { 1577s [00:52:57.540] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1577s [00:52:57.540] } 1577s [00:52:57.540] else { 1577s [00:52:57.540] ...future.result["stdout"] <- base::list(NULL) 1577s [00:52:57.540] } 1577s [00:52:57.540] base::close(...future.stdout) 1577s [00:52:57.540] ...future.stdout <- NULL 1577s [00:52:57.540] } 1577s [00:52:57.540] ...future.result$conditions <- ...future.conditions 1577s [00:52:57.540] ...future.result$finished <- base::Sys.time() 1577s [00:52:57.540] ...future.result 1577s [00:52:57.540] } 1577s [00:52:57.547] assign_globals() ... 1577s [00:52:57.547] List of 5 1577s [00:52:57.547] $ ...future.FUN :function (x) 1577s [00:52:57.547] $ future.call.arguments : list() 1577s [00:52:57.547] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1577s [00:52:57.547] $ ...future.elements_ii :List of 4 1577s [00:52:57.547] ..$ A: num 50 1577s [00:52:57.547] ..$ B: num 60 1577s [00:52:57.547] ..$ C: num 70 1577s [00:52:57.547] ..$ D: num 80 1577s [00:52:57.547] $ ...future.seeds_ii : NULL 1577s [00:52:57.547] $ ...future.globals.maxSize: NULL 1577s [00:52:57.547] - attr(*, "where")=List of 5 1577s [00:52:57.547] ..$ ...future.FUN : 1577s [00:52:57.547] ..$ future.call.arguments : 1577s [00:52:57.547] ..$ ...future.elements_ii : 1577s [00:52:57.547] ..$ ...future.seeds_ii : 1577s [00:52:57.547] ..$ ...future.globals.maxSize: 1577s [00:52:57.547] - attr(*, "resolved")= logi FALSE 1577s [00:52:57.547] - attr(*, "total_size")= num 848 1577s [00:52:57.547] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1577s [00:52:57.547] - attr(*, "already-done")= logi TRUE 1577s [00:52:57.558] - copied ‘...future.FUN’ to environment 1577s [00:52:57.558] - copied ‘future.call.arguments’ to environment 1577s [00:52:57.558] - copied ‘...future.elements_ii’ to environment 1577s [00:52:57.559] - copied ‘...future.seeds_ii’ to environment 1577s [00:52:57.559] - copied ‘...future.globals.maxSize’ to environment 1577s [00:52:57.559] assign_globals() ... done 1577s [00:52:57.559] plan(): Setting new future strategy stack: 1577s [00:52:57.560] List of future strategies: 1577s [00:52:57.560] 1. sequential: 1577s [00:52:57.560] - args: function (..., envir = parent.frame()) 1577s [00:52:57.560] - tweaked: FALSE 1577s [00:52:57.560] - call: NULL 1577s [00:52:57.561] plan(): nbrOfWorkers() = 1 1577s [00:52:57.562] plan(): Setting new future strategy stack: 1577s [00:52:57.562] List of future strategies: 1577s [00:52:57.562] 1. multicore: 1577s [00:52:57.562] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1577s [00:52:57.562] - tweaked: FALSE 1577s [00:52:57.562] - call: plan(strategy) 1577s [00:52:57.566] plan(): nbrOfWorkers() = 1 1577s [00:52:57.567] SequentialFuture started (and completed) 1577s [00:52:57.567] - Launch lazy future ... done 1577s [00:52:57.567] run() for ‘SequentialFuture’ ... done 1577s [00:52:57.568] Created future: 1577s [00:52:57.568] SequentialFuture: 1577s [00:52:57.568] Label: ‘future_sapply-1’ 1577s [00:52:57.568] Expression: 1577s [00:52:57.568] { 1577s [00:52:57.568] do.call(function(...) { 1577s [00:52:57.568] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1577s [00:52:57.568] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1577s [00:52:57.568] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1577s [00:52:57.568] on.exit(options(oopts), add = TRUE) 1577s [00:52:57.568] } 1577s [00:52:57.568] { 1577s [00:52:57.568] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1577s [00:52:57.568] ...future.X_jj <- ...future.elements_ii[[jj]] 1577s [00:52:57.568] ...future.FUN(...future.X_jj, ...) 1577s [00:52:57.568] }) 1577s [00:52:57.568] } 1577s [00:52:57.568] }, args = future.call.arguments) 1577s [00:52:57.568] } 1577s [00:52:57.568] Lazy evaluation: FALSE 1577s [00:52:57.568] Asynchronous evaluation: FALSE 1577s [00:52:57.568] Local evaluation: TRUE 1577s [00:52:57.568] Environment: R_GlobalEnv 1577s [00:52:57.568] Capture standard output: TRUE 1577s [00:52:57.568] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1577s [00:52:57.568] Globals: 5 objects totaling 1.05 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1577s [00:52:57.568] Packages: 1577s [00:52:57.568] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1577s [00:52:57.568] Resolved: TRUE 1577s [00:52:57.568] Value: 224 bytes of class ‘list’ 1577s [00:52:57.568] Early signaling: FALSE 1577s [00:52:57.568] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1577s [00:52:57.568] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1577s List of 2[00:52:57.570] Chunk #1 of 1 ... DONE 1577s [00:52:57.570] Launching 1 futures (chunks) ... DONE 1577s [00:52:57.570] Resolving 1 futures (chunks) ... 1577s [00:52:57.570] resolve() on list ... 1577s [00:52:57.571] recursive: 0 1577s [00:52:57.571] length: 1 1577s [00:52:57.571] 1577s [00:52:57.571] resolved() for ‘SequentialFuture’ ... 1577s [00:52:57.571] - state: ‘finished’ 1577s [00:52:57.572] - run: TRUE 1577s [00:52:57.572] - result: ‘FutureResult’ 1577s [00:52:57.572] resolved() for ‘SequentialFuture’ ... done 1577s [00:52:57.572] Future #1 1577s [00:52:57.572] signalConditionsASAP(SequentialFuture, pos=1) ... 1577s [00:52:57.572] - nx: 1 1577s [00:52:57.573] - relay: TRUE 1577s [00:52:57.573] - stdout: TRUE 1577s [00:52:57.573] - signal: TRUE 1577s [00:52:57.573] - resignal: FALSE 1577s [00:52:57.573] - force: TRUE 1577s [00:52:57.573] - relayed: [n=1] FALSE 1577s [00:52:57.574] - queued futures: [n=1] FALSE 1577s [00:52:57.574] - until=1 1577s [00:52:57.574] - relaying element #1 1577s [00:52:57.574] - relayed: [n=1] TRUE 1577s [00:52:57.574] - queued futures: [n=1] TRUE 1577s [00:52:57.574] signalConditionsASAP(SequentialFuture, pos=1) ... done 1577s [00:52:57.575] length: 0 (resolved future 1) 1577s [00:52:57.575] Relaying remaining futures 1577s [00:52:57.575] signalConditionsASAP(NULL, pos=0) ... 1577s [00:52:57.575] - nx: 1 1577s [00:52:57.575] - relay: TRUE 1577s [00:52:57.575] - stdout: TRUE 1577s [00:52:57.575] - signal: TRUE 1577s [00:52:57.576] - resignal: FALSE 1577s [00:52:57.576] - force: TRUE 1577s [00:52:57.576] - relayed: [n=1] TRUE 1577s [00:52:57.576] - queued futures: [n=1] TRUE 1577s - flush all 1577s [00:52:57.576] - relayed: [n=1] TRUE 1577s [00:52:57.576] - queued futures: [n=1] TRUE 1577s [00:52:57.577] signalConditionsASAP(NULL, pos=0) ... done 1577s [00:52:57.577] resolve() on list ... DONE 1577s [00:52:57.577] - Number of value chunks collected: 1 1577s [00:52:57.577] Resolving 1 futures (chunks) ... DONE 1577s [00:52:57.577] Reducing values from 1 chunks ... 1577s [00:52:57.577] - Number of values collected after concatenation: 4 1577s [00:52:57.577] - Number of values expected: 4 1577s [00:52:57.578] Reducing values from 1 chunks ... DONE 1577s [00:52:57.578] future_lapply() ... DONE 1577s 1577s $ y0: Named num [1:4] 50 60 70 80 1577s ..- attr(*, "names")= chr [1:4] "A" "B" "C" "D" 1577s $ y1: Named num [1:4] 50 60 70 80 1577s ..- attr(*, "names")= chr [1:4] "A" "B" "C" "D" 1577s [00:52:57.583] future_lapply() ... 1577s [00:52:57.587] Number of chunks: 1 1577s [00:52:57.587] getGlobalsAndPackagesXApply() ... 1577s [00:52:57.587] - future.globals: TRUE 1577s [00:52:57.587] getGlobalsAndPackages() ... 1577s [00:52:57.588] Searching for globals... 1577s [00:52:57.589] - globals found: [2] ‘FUN’, ‘UseMethod’ 1577s [00:52:57.589] Searching for globals ... DONE 1577s [00:52:57.589] Resolving globals: FALSE 1577s [00:52:57.590] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1577s [00:52:57.591] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1577s [00:52:57.591] - globals: [1] ‘FUN’ 1577s [00:52:57.591] 1577s [00:52:57.591] getGlobalsAndPackages() ... DONE 1577s [00:52:57.591] - globals found/used: [n=1] ‘FUN’ 1577s [00:52:57.591] - needed namespaces: [n=0] 1577s [00:52:57.592] Finding globals ... DONE 1577s [00:52:57.592] - use_args: TRUE 1577s [00:52:57.592] - Getting '...' globals ... 1577s [00:52:57.592] resolve() on list ... 1577s [00:52:57.592] recursive: 0 1577s [00:52:57.593] length: 1 1577s [00:52:57.593] elements: ‘...’ 1577s [00:52:57.593] length: 0 (resolved future 1) 1577s [00:52:57.593] resolve() on list ... DONE 1577s [00:52:57.593] - '...' content: [n=0] 1577s [00:52:57.594] List of 1 1577s [00:52:57.594] $ ...: list() 1577s [00:52:57.594] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1577s [00:52:57.594] - attr(*, "where")=List of 1 1577s [00:52:57.594] ..$ ...: 1577s [00:52:57.594] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1577s [00:52:57.594] - attr(*, "resolved")= logi TRUE 1577s [00:52:57.594] - attr(*, "total_size")= num NA 1577s [00:52:57.597] - Getting '...' globals ... DONE 1577s [00:52:57.597] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1577s [00:52:57.598] List of 2 1577s [00:52:57.598] $ ...future.FUN:function (x, ...) 1577s [00:52:57.598] $ ... : list() 1577s [00:52:57.598] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1577s [00:52:57.598] - attr(*, "where")=List of 2 1577s [00:52:57.598] ..$ ...future.FUN: 1577s [00:52:57.598] ..$ ... : 1577s [00:52:57.598] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1577s [00:52:57.598] - attr(*, "resolved")= logi FALSE 1577s [00:52:57.598] - attr(*, "total_size")= num 1248 1577s [00:52:57.603] Packages to be attached in all futures: [n=0] 1577s [00:52:57.603] getGlobalsAndPackagesXApply() ... DONE 1577s [00:52:57.604] Number of futures (= number of chunks): 1 1577s [00:52:57.604] Launching 1 futures (chunks) ... 1577s [00:52:57.604] Chunk #1 of 1 ... 1577s [00:52:57.604] - Finding globals in 'X' for chunk #1 ... 1577s [00:52:57.604] getGlobalsAndPackages() ... 1577s [00:52:57.605] Searching for globals... 1577s [00:52:57.605] 1577s [00:52:57.605] Searching for globals ... DONE 1577s [00:52:57.605] - globals: [0] 1577s [00:52:57.605] getGlobalsAndPackages() ... DONE 1577s [00:52:57.606] + additional globals found: [n=0] 1577s [00:52:57.606] + additional namespaces needed: [n=0] 1577s [00:52:57.606] - Finding globals in 'X' for chunk #1 ... DONE 1577s [00:52:57.606] - seeds: 1577s [00:52:57.606] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1577s [00:52:57.607] getGlobalsAndPackages() ... 1577s [00:52:57.607] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1577s [00:52:57.607] Resolving globals: FALSE 1577s [00:52:57.607] Tweak future expression to call with '...' arguments ... 1577s [00:52:57.607] { 1577s [00:52:57.607] do.call(function(...) { 1577s [00:52:57.607] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1577s [00:52:57.607] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1577s [00:52:57.607] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1577s [00:52:57.607] on.exit(options(oopts), add = TRUE) 1577s [00:52:57.607] } 1577s [00:52:57.607] { 1577s [00:52:57.607] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1577s [00:52:57.607] ...future.X_jj <- ...future.elements_ii[[jj]] 1577s [00:52:57.607] ...future.FUN(...future.X_jj, ...) 1577s [00:52:57.607] }) 1577s [00:52:57.607] } 1577s [00:52:57.607] }, args = future.call.arguments) 1577s [00:52:57.607] } 1577s [00:52:57.609] Tweak future expression to call with '...' arguments ... DONE 1577s [00:52:57.610] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1577s [00:52:57.610] 1577s [00:52:57.610] getGlobalsAndPackages() ... DONE 1577s [00:52:57.611] run() for ‘Future’ ... 1577s [00:52:57.611] - state: ‘created’ 1577s [00:52:57.612] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1577s [00:52:57.616] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1577s [00:52:57.618] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1577s [00:52:57.619] - Field: ‘label’ 1577s [00:52:57.619] - Field: ‘local’ 1577s [00:52:57.619] - Field: ‘owner’ 1577s [00:52:57.619] - Field: ‘envir’ 1577s [00:52:57.620] - Field: ‘packages’ 1577s [00:52:57.620] - Field: ‘gc’ 1577s [00:52:57.620] - Field: ‘conditions’ 1577s [00:52:57.621] - Field: ‘expr’ 1577s [00:52:57.621] - Field: ‘uuid’ 1577s [00:52:57.621] - Field: ‘seed’ 1577s [00:52:57.622] - Field: ‘version’ 1577s [00:52:57.622] - Field: ‘result’ 1577s [00:52:57.622] - Field: ‘asynchronous’ 1577s [00:52:57.622] - Field: ‘calls’ 1577s [00:52:57.622] - Field: ‘globals’ 1577s [00:52:57.623] - Field: ‘stdout’ 1577s [00:52:57.623] - Field: ‘earlySignal’ 1577s [00:52:57.623] - Field: ‘lazy’ 1577s [00:52:57.623] - Field: ‘state’ 1577s [00:52:57.624] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1577s [00:52:57.624] - Launch lazy future ... 1577s [00:52:57.624] Packages needed by the future expression (n = 0): 1577s [00:52:57.624] Packages needed by future strategies (n = 0): 1577s [00:52:57.625] { 1577s [00:52:57.625] { 1577s [00:52:57.625] { 1577s [00:52:57.625] ...future.startTime <- base::Sys.time() 1577s [00:52:57.625] { 1577s [00:52:57.625] { 1577s [00:52:57.625] { 1577s [00:52:57.625] base::local({ 1577s [00:52:57.625] has_future <- base::requireNamespace("future", 1577s [00:52:57.625] quietly = TRUE) 1577s [00:52:57.625] if (has_future) { 1577s [00:52:57.625] ns <- base::getNamespace("future") 1577s [00:52:57.625] version <- ns[[".package"]][["version"]] 1577s [00:52:57.625] if (is.null(version)) 1577s [00:52:57.625] version <- utils::packageVersion("future") 1577s [00:52:57.625] } 1577s [00:52:57.625] else { 1577s [00:52:57.625] version <- NULL 1577s [00:52:57.625] } 1577s [00:52:57.625] if (!has_future || version < "1.8.0") { 1577s [00:52:57.625] info <- base::c(r_version = base::gsub("R version ", 1577s [00:52:57.625] "", base::R.version$version.string), 1577s [00:52:57.625] platform = base::sprintf("%s (%s-bit)", 1577s [00:52:57.625] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1577s [00:52:57.625] os = base::paste(base::Sys.info()[base::c("sysname", 1577s [00:52:57.625] "release", "version")], collapse = " "), 1577s [00:52:57.625] hostname = base::Sys.info()[["nodename"]]) 1577s [00:52:57.625] info <- base::sprintf("%s: %s", base::names(info), 1577s [00:52:57.625] info) 1577s [00:52:57.625] info <- base::paste(info, collapse = "; ") 1577s [00:52:57.625] if (!has_future) { 1577s [00:52:57.625] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1577s [00:52:57.625] info) 1577s [00:52:57.625] } 1577s [00:52:57.625] else { 1577s [00:52:57.625] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1577s [00:52:57.625] info, version) 1577s [00:52:57.625] } 1577s [00:52:57.625] base::stop(msg) 1577s [00:52:57.625] } 1577s [00:52:57.625] }) 1577s [00:52:57.625] } 1577s [00:52:57.625] options(future.plan = NULL) 1577s [00:52:57.625] Sys.unsetenv("R_FUTURE_PLAN") 1577s [00:52:57.625] future::plan("default", .cleanup = FALSE, .init = FALSE) 1577s [00:52:57.625] } 1577s [00:52:57.625] ...future.workdir <- getwd() 1577s [00:52:57.625] } 1577s [00:52:57.625] ...future.oldOptions <- base::as.list(base::.Options) 1577s [00:52:57.625] ...future.oldEnvVars <- base::Sys.getenv() 1577s [00:52:57.625] } 1577s [00:52:57.625] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1577s [00:52:57.625] future.globals.maxSize = NULL, future.globals.method = NULL, 1577s [00:52:57.625] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1577s [00:52:57.625] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1577s [00:52:57.625] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1577s [00:52:57.625] future.stdout.windows.reencode = NULL, width = 80L) 1577s [00:52:57.625] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1577s [00:52:57.625] base::names(...future.oldOptions)) 1577s [00:52:57.625] } 1577s [00:52:57.625] if (FALSE) { 1577s [00:52:57.625] } 1577s [00:52:57.625] else { 1577s [00:52:57.625] if (TRUE) { 1577s [00:52:57.625] ...future.stdout <- base::rawConnection(base::raw(0L), 1577s [00:52:57.625] open = "w") 1577s [00:52:57.625] } 1577s [00:52:57.625] else { 1577s [00:52:57.625] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1577s [00:52:57.625] windows = "NUL", "/dev/null"), open = "w") 1577s [00:52:57.625] } 1577s [00:52:57.625] base::sink(...future.stdout, type = "output", split = FALSE) 1577s [00:52:57.625] base::on.exit(if (!base::is.null(...future.stdout)) { 1577s [00:52:57.625] base::sink(type = "output", split = FALSE) 1577s [00:52:57.625] base::close(...future.stdout) 1577s [00:52:57.625] }, add = TRUE) 1577s [00:52:57.625] } 1577s [00:52:57.625] ...future.frame <- base::sys.nframe() 1577s [00:52:57.625] ...future.conditions <- base::list() 1577s [00:52:57.625] ...future.rng <- base::globalenv()$.Random.seed 1577s [00:52:57.625] if (FALSE) { 1577s [00:52:57.625] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1577s [00:52:57.625] "...future.value", "...future.globalenv.names", ".Random.seed") 1577s [00:52:57.625] } 1577s [00:52:57.625] ...future.result <- base::tryCatch({ 1577s [00:52:57.625] base::withCallingHandlers({ 1577s [00:52:57.625] ...future.value <- base::withVisible(base::local({ 1577s [00:52:57.625] do.call(function(...) { 1577s [00:52:57.625] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1577s [00:52:57.625] if (!identical(...future.globals.maxSize.org, 1577s [00:52:57.625] ...future.globals.maxSize)) { 1577s [00:52:57.625] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1577s [00:52:57.625] on.exit(options(oopts), add = TRUE) 1577s [00:52:57.625] } 1577s [00:52:57.625] { 1577s [00:52:57.625] lapply(seq_along(...future.elements_ii), 1577s [00:52:57.625] FUN = function(jj) { 1577s [00:52:57.625] ...future.X_jj <- ...future.elements_ii[[jj]] 1577s [00:52:57.625] ...future.FUN(...future.X_jj, ...) 1577s [00:52:57.625] }) 1577s [00:52:57.625] } 1577s [00:52:57.625] }, args = future.call.arguments) 1577s [00:52:57.625] })) 1577s [00:52:57.625] future::FutureResult(value = ...future.value$value, 1577s [00:52:57.625] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1577s [00:52:57.625] ...future.rng), globalenv = if (FALSE) 1577s [00:52:57.625] list(added = base::setdiff(base::names(base::.GlobalEnv), 1577s [00:52:57.625] ...future.globalenv.names)) 1577s [00:52:57.625] else NULL, started = ...future.startTime, version = "1.8") 1577s [00:52:57.625] }, condition = base::local({ 1577s [00:52:57.625] c <- base::c 1577s [00:52:57.625] inherits <- base::inherits 1577s [00:52:57.625] invokeRestart <- base::invokeRestart 1577s [00:52:57.625] length <- base::length 1577s [00:52:57.625] list <- base::list 1577s [00:52:57.625] seq.int <- base::seq.int 1577s [00:52:57.625] signalCondition <- base::signalCondition 1577s [00:52:57.625] sys.calls <- base::sys.calls 1577s [00:52:57.625] `[[` <- base::`[[` 1577s [00:52:57.625] `+` <- base::`+` 1577s [00:52:57.625] `<<-` <- base::`<<-` 1577s [00:52:57.625] sysCalls <- function(calls = sys.calls(), from = 1L) { 1577s [00:52:57.625] calls[seq.int(from = from + 12L, to = length(calls) - 1577s [00:52:57.625] 3L)] 1577s [00:52:57.625] } 1577s [00:52:57.625] function(cond) { 1577s [00:52:57.625] is_error <- inherits(cond, "error") 1577s [00:52:57.625] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1577s [00:52:57.625] NULL) 1577s [00:52:57.625] if (is_error) { 1577s [00:52:57.625] sessionInformation <- function() { 1577s [00:52:57.625] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1577s [00:52:57.625] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1577s [00:52:57.625] search = base::search(), system = base::Sys.info()) 1577s [00:52:57.625] } 1577s [00:52:57.625] ...future.conditions[[length(...future.conditions) + 1577s [00:52:57.625] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1577s [00:52:57.625] cond$call), session = sessionInformation(), 1577s [00:52:57.625] timestamp = base::Sys.time(), signaled = 0L) 1577s [00:52:57.625] signalCondition(cond) 1577s [00:52:57.625] } 1577s [00:52:57.625] else if (!ignore && TRUE && inherits(cond, c("condition", 1577s [00:52:57.625] "immediateCondition"))) { 1577s [00:52:57.625] signal <- TRUE && inherits(cond, "immediateCondition") 1577s [00:52:57.625] ...future.conditions[[length(...future.conditions) + 1577s [00:52:57.625] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1577s [00:52:57.625] if (TRUE && !signal) { 1577s [00:52:57.625] muffleCondition <- function (cond, pattern = "^muffle") 1577s [00:52:57.625] { 1577s [00:52:57.625] inherits <- base::inherits 1577s [00:52:57.625] invokeRestart <- base::invokeRestart 1577s [00:52:57.625] is.null <- base::is.null 1577s [00:52:57.625] muffled <- FALSE 1577s [00:52:57.625] if (inherits(cond, "message")) { 1577s [00:52:57.625] muffled <- grepl(pattern, "muffleMessage") 1577s [00:52:57.625] if (muffled) 1577s [00:52:57.625] invokeRestart("muffleMessage") 1577s [00:52:57.625] } 1577s [00:52:57.625] else if (inherits(cond, "warning")) { 1577s [00:52:57.625] muffled <- grepl(pattern, "muffleWarning") 1577s [00:52:57.625] if (muffled) 1577s [00:52:57.625] invokeRestart("muffleWarning") 1577s [00:52:57.625] } 1577s [00:52:57.625] else if (inherits(cond, "condition")) { 1577s [00:52:57.625] if (!is.null(pattern)) { 1577s [00:52:57.625] computeRestarts <- base::computeRestarts 1577s [00:52:57.625] grepl <- base::grepl 1577s [00:52:57.625] restarts <- computeRestarts(cond) 1577s [00:52:57.625] for (restart in restarts) { 1577s [00:52:57.625] name <- restart$name 1577s [00:52:57.625] if (is.null(name)) 1577s [00:52:57.625] next 1577s [00:52:57.625] if (!grepl(pattern, name)) 1577s [00:52:57.625] next 1577s [00:52:57.625] invokeRestart(restart) 1577s [00:52:57.625] muffled <- TRUE 1577s [00:52:57.625] break 1577s [00:52:57.625] } 1577s [00:52:57.625] } 1577s [00:52:57.625] } 1577s [00:52:57.625] invisible(muffled) 1577s [00:52:57.625] } 1577s [00:52:57.625] muffleCondition(cond, pattern = "^muffle") 1577s [00:52:57.625] } 1577s [00:52:57.625] } 1577s [00:52:57.625] else { 1577s [00:52:57.625] if (TRUE) { 1577s [00:52:57.625] muffleCondition <- function (cond, pattern = "^muffle") 1577s [00:52:57.625] { 1577s [00:52:57.625] inherits <- base::inherits 1577s [00:52:57.625] invokeRestart <- base::invokeRestart 1577s [00:52:57.625] is.null <- base::is.null 1577s [00:52:57.625] muffled <- FALSE 1577s [00:52:57.625] if (inherits(cond, "message")) { 1577s [00:52:57.625] muffled <- grepl(pattern, "muffleMessage") 1577s [00:52:57.625] if (muffled) 1577s [00:52:57.625] invokeRestart("muffleMessage") 1577s [00:52:57.625] } 1577s [00:52:57.625] else if (inherits(cond, "warning")) { 1577s [00:52:57.625] muffled <- grepl(pattern, "muffleWarning") 1577s [00:52:57.625] if (muffled) 1577s [00:52:57.625] invokeRestart("muffleWarning") 1577s [00:52:57.625] } 1577s [00:52:57.625] else if (inherits(cond, "condition")) { 1577s [00:52:57.625] if (!is.null(pattern)) { 1577s [00:52:57.625] computeRestarts <- base::computeRestarts 1577s [00:52:57.625] grepl <- base::grepl 1577s [00:52:57.625] restarts <- computeRestarts(cond) 1577s [00:52:57.625] for (restart in restarts) { 1577s [00:52:57.625] name <- restart$name 1577s [00:52:57.625] if (is.null(name)) 1577s [00:52:57.625] next 1577s [00:52:57.625] if (!grepl(pattern, name)) 1577s [00:52:57.625] next 1577s [00:52:57.625] invokeRestart(restart) 1577s [00:52:57.625] muffled <- TRUE 1577s [00:52:57.625] break 1577s [00:52:57.625] } 1577s [00:52:57.625] } 1577s [00:52:57.625] } 1577s [00:52:57.625] invisible(muffled) 1577s [00:52:57.625] } 1577s [00:52:57.625] muffleCondition(cond, pattern = "^muffle") 1577s [00:52:57.625] } 1577s [00:52:57.625] } 1577s [00:52:57.625] } 1577s [00:52:57.625] })) 1577s [00:52:57.625] }, error = function(ex) { 1577s [00:52:57.625] base::structure(base::list(value = NULL, visible = NULL, 1577s [00:52:57.625] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1577s [00:52:57.625] ...future.rng), started = ...future.startTime, 1577s [00:52:57.625] finished = Sys.time(), session_uuid = NA_character_, 1577s [00:52:57.625] version = "1.8"), class = "FutureResult") 1577s [00:52:57.625] }, finally = { 1577s [00:52:57.625] if (!identical(...future.workdir, getwd())) 1577s [00:52:57.625] setwd(...future.workdir) 1577s [00:52:57.625] { 1577s [00:52:57.625] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1577s [00:52:57.625] ...future.oldOptions$nwarnings <- NULL 1577s [00:52:57.625] } 1577s [00:52:57.625] base::options(...future.oldOptions) 1577s [00:52:57.625] if (.Platform$OS.type == "windows") { 1577s [00:52:57.625] old_names <- names(...future.oldEnvVars) 1577s [00:52:57.625] envs <- base::Sys.getenv() 1577s [00:52:57.625] names <- names(envs) 1577s [00:52:57.625] common <- intersect(names, old_names) 1577s [00:52:57.625] added <- setdiff(names, old_names) 1577s [00:52:57.625] removed <- setdiff(old_names, names) 1577s [00:52:57.625] changed <- common[...future.oldEnvVars[common] != 1577s [00:52:57.625] envs[common]] 1577s [00:52:57.625] NAMES <- toupper(changed) 1577s [00:52:57.625] args <- list() 1577s [00:52:57.625] for (kk in seq_along(NAMES)) { 1577s [00:52:57.625] name <- changed[[kk]] 1577s [00:52:57.625] NAME <- NAMES[[kk]] 1577s [00:52:57.625] if (name != NAME && is.element(NAME, old_names)) 1577s [00:52:57.625] next 1577s [00:52:57.625] args[[name]] <- ...future.oldEnvVars[[name]] 1577s [00:52:57.625] } 1577s [00:52:57.625] NAMES <- toupper(added) 1577s [00:52:57.625] for (kk in seq_along(NAMES)) { 1577s [00:52:57.625] name <- added[[kk]] 1577s [00:52:57.625] NAME <- NAMES[[kk]] 1577s [00:52:57.625] if (name != NAME && is.element(NAME, old_names)) 1577s [00:52:57.625] next 1577s [00:52:57.625] args[[name]] <- "" 1577s [00:52:57.625] } 1577s [00:52:57.625] NAMES <- toupper(removed) 1577s [00:52:57.625] for (kk in seq_along(NAMES)) { 1577s [00:52:57.625] name <- removed[[kk]] 1577s [00:52:57.625] NAME <- NAMES[[kk]] 1577s [00:52:57.625] if (name != NAME && is.element(NAME, old_names)) 1577s [00:52:57.625] next 1577s [00:52:57.625] args[[name]] <- ...future.oldEnvVars[[name]] 1577s [00:52:57.625] } 1577s [00:52:57.625] if (length(args) > 0) 1577s [00:52:57.625] base::do.call(base::Sys.setenv, args = args) 1577s [00:52:57.625] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1577s [00:52:57.625] } 1577s [00:52:57.625] else { 1577s [00:52:57.625] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1577s [00:52:57.625] } 1577s [00:52:57.625] { 1577s [00:52:57.625] if (base::length(...future.futureOptionsAdded) > 1577s [00:52:57.625] 0L) { 1577s [00:52:57.625] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1577s [00:52:57.625] base::names(opts) <- ...future.futureOptionsAdded 1577s [00:52:57.625] base::options(opts) 1577s [00:52:57.625] } 1577s [00:52:57.625] { 1577s [00:52:57.625] { 1577s [00:52:57.625] NULL 1577s [00:52:57.625] RNGkind("Mersenne-Twister") 1577s [00:52:57.625] base::rm(list = ".Random.seed", envir = base::globalenv(), 1577s [00:52:57.625] inherits = FALSE) 1577s [00:52:57.625] } 1577s [00:52:57.625] options(future.plan = NULL) 1577s [00:52:57.625] if (is.na(NA_character_)) 1577s [00:52:57.625] Sys.unsetenv("R_FUTURE_PLAN") 1577s [00:52:57.625] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1577s [00:52:57.625] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1577s [00:52:57.625] envir = parent.frame()) 1577s [00:52:57.625] { 1577s [00:52:57.625] default_workers <- missing(workers) 1577s [00:52:57.625] if (is.function(workers)) 1577s [00:52:57.625] workers <- workers() 1577s [00:52:57.625] workers <- structure(as.integer(workers), 1577s [00:52:57.625] class = class(workers)) 1577s [00:52:57.625] stop_if_not(is.finite(workers), workers >= 1577s [00:52:57.625] 1L) 1577s [00:52:57.625] if ((workers == 1L && !inherits(workers, 1577s [00:52:57.625] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1577s [00:52:57.625] if (default_workers) 1577s [00:52:57.625] supportsMulticore(warn = TRUE) 1577s [00:52:57.625] return(sequential(..., envir = envir)) 1577s [00:52:57.625] } 1577s [00:52:57.625] oopts <- options(mc.cores = workers) 1577s [00:52:57.625] on.exit(options(oopts)) 1577s [00:52:57.625] future <- MulticoreFuture(..., workers = workers, 1577s [00:52:57.625] envir = envir) 1577s [00:52:57.625] if (!future$lazy) 1577s [00:52:57.625] future <- run(future) 1577s [00:52:57.625] invisible(future) 1577s [00:52:57.625] }), .cleanup = FALSE, .init = FALSE) 1577s [00:52:57.625] } 1577s [00:52:57.625] } 1577s [00:52:57.625] } 1577s [00:52:57.625] }) 1577s [00:52:57.625] if (TRUE) { 1577s [00:52:57.625] base::sink(type = "output", split = FALSE) 1577s [00:52:57.625] if (TRUE) { 1577s [00:52:57.625] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1577s [00:52:57.625] } 1577s [00:52:57.625] else { 1577s [00:52:57.625] ...future.result["stdout"] <- base::list(NULL) 1577s [00:52:57.625] } 1577s [00:52:57.625] base::close(...future.stdout) 1577s [00:52:57.625] ...future.stdout <- NULL 1577s [00:52:57.625] } 1577s [00:52:57.625] ...future.result$conditions <- ...future.conditions 1577s [00:52:57.625] ...future.result$finished <- base::Sys.time() 1577s [00:52:57.625] ...future.result 1577s [00:52:57.625] } 1577s [00:52:57.629] assign_globals() ... 1577s [00:52:57.629] List of 5 1577s [00:52:57.629] $ ...future.FUN :function (x, ...) 1577s [00:52:57.629] $ future.call.arguments : list() 1577s [00:52:57.629] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1577s [00:52:57.629] $ ...future.elements_ii :List of 4 1577s [00:52:57.629] ..$ A: num 50 1577s [00:52:57.629] ..$ B: num 60 1577s [00:52:57.629] ..$ C: num 70 1577s [00:52:57.629] ..$ D: num 80 1577s [00:52:57.629] $ ...future.seeds_ii : NULL 1577s [00:52:57.629] $ ...future.globals.maxSize: NULL 1577s [00:52:57.629] - attr(*, "where")=List of 5 1577s [00:52:57.629] ..$ ...future.FUN : 1577s [00:52:57.629] ..$ future.call.arguments : 1577s [00:52:57.629] ..$ ...future.elements_ii : 1577s [00:52:57.629] ..$ ...future.seeds_ii : 1577s [00:52:57.629] ..$ ...future.globals.maxSize: 1577s [00:52:57.629] - attr(*, "resolved")= logi FALSE 1577s [00:52:57.629] - attr(*, "total_size")= num 1248 1577s [00:52:57.629] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1577s [00:52:57.629] - attr(*, "already-done")= logi TRUE 1577s [00:52:57.644] - copied ‘...future.FUN’ to environment 1577s [00:52:57.645] - copied ‘future.call.arguments’ to environment 1577s [00:52:57.646] - copied ‘...future.elements_ii’ to environment 1577s [00:52:57.646] - copied ‘...future.seeds_ii’ to environment 1577s [00:52:57.646] - copied ‘...future.globals.maxSize’ to environment 1577s [00:52:57.646] assign_globals() ... done 1577s [00:52:57.647] plan(): Setting new future strategy stack: 1577s [00:52:57.647] List of future strategies: 1577s [00:52:57.647] 1. sequential: 1577s [00:52:57.647] - args: function (..., envir = parent.frame()) 1577s [00:52:57.647] - tweaked: FALSE 1577s [00:52:57.647] - call: NULL 1577s [00:52:57.648] plan(): nbrOfWorkers() = 1 1577s [00:52:57.648] plan(): Setting new future strategy stack: 1577s [00:52:57.649] List of future strategies: 1577s [00:52:57.649] 1. multicore: 1577s [00:52:57.649] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1577s [00:52:57.649] - tweaked: FALSE 1577s [00:52:57.649] - call: plan(strategy) 1577s [00:52:57.654] plan(): nbrOfWorkers() = 1 1577s [00:52:57.655] SequentialFuture started (and completed) 1577s [00:52:57.655] - Launch lazy future ... done 1577s [00:52:57.656] run() for ‘SequentialFuture’ ... done 1577s [00:52:57.656] Created future: 1577s [00:52:57.656] SequentialFuture: 1577s [00:52:57.656] Label: ‘future_sapply-1’ 1577s [00:52:57.656] Expression: 1577s [00:52:57.656] { 1577s [00:52:57.656] do.call(function(...) { 1577s [00:52:57.656] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1577s [00:52:57.656] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1577s [00:52:57.656] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1577s [00:52:57.656] on.exit(options(oopts), add = TRUE) 1577s [00:52:57.656] } 1577s [00:52:57.656] { 1577s [00:52:57.656] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1577s [00:52:57.656] ...future.X_jj <- ...future.elements_ii[[jj]] 1577s [00:52:57.656] ...future.FUN(...future.X_jj, ...) 1577s [00:52:57.656] }) 1577s [00:52:57.656] } 1577s [00:52:57.656] }, args = future.call.arguments) 1577s [00:52:57.656] } 1577s [00:52:57.656] Lazy evaluation: FALSE 1577s [00:52:57.656] Asynchronous evaluation: FALSE 1577s [00:52:57.656] Local evaluation: TRUE 1577s [00:52:57.656] Environment: R_GlobalEnv 1577s [00:52:57.656] Capture standard output: TRUE 1577s [00:52:57.656] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1577s [00:52:57.656] Globals: 5 objects totaling 1.44 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1577s [00:52:57.656] Packages: 1577s [00:52:57.656] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1577s [00:52:57.656] Resolved: TRUE 1577s [00:52:57.656] Value: 896 bytes of class ‘list’ 1577s [00:52:57.656] Early signaling: FALSE 1577s [00:52:57.656] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1577s [00:52:57.656] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1577s [00:52:57.658] Chunk #1 of 1 ... DONE 1577s [00:52:57.659] Launching 1 futures (chunks) ... DONE 1577s [00:52:57.659] Resolving 1 futures (chunks) ... 1577s [00:52:57.659] resolve() on list ... 1577s [00:52:57.659] recursive: 0 1577s [00:52:57.660] length: 1 1577s [00:52:57.660] 1577s [00:52:57.660] resolved() for ‘SequentialFuture’ ... 1577s [00:52:57.660] - state: ‘finished’ 1577s [00:52:57.660] - run: TRUE 1577s List of 2 1577s $ y0:[00:52:57.661] - result: ‘FutureResult’ 1577s [00:52:57.661] resolved() for ‘SequentialFuture’ ... done 1577s [00:52:57.661] Future #1 1577s [00:52:57.662] signalConditionsASAP(SequentialFuture, pos=1) ... 1577s [00:52:57.662] - nx: 1 1577s [00:52:57.662] - relay: TRUE 1577s [00:52:57.662] - stdout: TRUE 1577s [00:52:57.662] - signal: TRUE 1577s [00:52:57.663] - resignal: FALSE 1577s [00:52:57.663] - force: TRUE 1577s [00:52:57.663] - relayed: [n=1] FALSE 1577s [00:52:57.663] - queued futures: [n=1] FALSE 1577s [00:52:57.663] - until=1 1577s [00:52:57.663] - relaying element #1 1577s [00:52:57.664] - relayed: [n=1] TRUE 1577s [00:52:57.664] - queued futures: [n=1] TRUE 1577s [00:52:57.664] signalConditionsASAP(SequentialFuture, pos=1) ... done 1577s [00:52:57.664] length: 0 (resolved future 1) 1577s [00:52:57.664] Relaying remaining futures 1577s [00:52:57.664] signalConditionsASAP(NULL, pos=0) ... 1577s [00:52:57.664] - nx: 1 1577s [00:52:57.665] - relay: TRUE 1577s [00:52:57.665] - stdout: TRUE 1577s [00:52:57.666] - signal: TRUE 1577s [00:52:57.666] - resignal: FALSE 1577s [00:52:57.666] - force: TRUE 1577s [00:52:57.666] - relayed: [n=1] TRUE 1577s [00:52:57.666] - queued futures: [n=1] TRUE 1577s - flush all 1577s [00:52:57.667] - relayed: [n=1] TRUE 1577s [00:52:57.667] - queued futures: [n=1] TRUE 1577s [00:52:57.667] signalConditionsASAP(NULL, pos=0) ... done 1577s [00:52:57.667] resolve() on list ... DONE 1577s [00:52:57.667] - Number of value chunks collected: 1 1577s [00:52:57.667] Resolving 1 futures (chunks) ... DONE 1577s [00:52:57.668] Reducing values from 1 chunks ... 1577s [00:52:57.668] - Number of values collected after concatenation: 4 1577s [00:52:57.669] - Number of values expected: 4 1577s [00:52:57.669] Reducing values from 1 chunks ... DONE 1577s [00:52:57.669] future_lapply() ... DONE 1577s Named num [1:4] 50 60 70 80 1577s ..- attr(*, "names")= chr [1:4] "A" "B" "C" "D" 1577s $ y1: Named num [1:4] 50 60 70 80 1577s ..- attr(*, "names")= chr [1:4] "A" "B" "C" "D" 1577s [00:52:57.674] future_lapply() ... 1577s [00:52:57.680] Number of chunks: 1 1577s [00:52:57.680] getGlobalsAndPackagesXApply() ... 1577s [00:52:57.680] - future.globals: TRUE 1577s [00:52:57.680] getGlobalsAndPackages() ... 1577s [00:52:57.681] Searching for globals... 1577s [00:52:57.683] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1577s [00:52:57.683] Searching for globals ... DONE 1577s [00:52:57.684] Resolving globals: FALSE 1577s [00:52:57.685] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1577s [00:52:57.685] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1577s [00:52:57.685] - globals: [1] ‘FUN’ 1577s [00:52:57.686] 1577s [00:52:57.686] getGlobalsAndPackages() ... DONE 1577s [00:52:57.686] - globals found/used: [n=1] ‘FUN’ 1577s [00:52:57.686] - needed namespaces: [n=0] 1577s [00:52:57.687] Finding globals ... DONE 1577s [00:52:57.687] - use_args: TRUE 1577s [00:52:57.687] - Getting '...' globals ... 1577s [00:52:57.688] resolve() on list ... 1577s [00:52:57.688] recursive: 0 1577s [00:52:57.688] length: 1 1577s [00:52:57.688] elements: ‘...’ 1577s [00:52:57.689] length: 0 (resolved future 1) 1577s [00:52:57.689] resolve() on list ... DONE 1577s [00:52:57.689] - '...' content: [n=0] 1577s [00:52:57.689] List of 1 1577s [00:52:57.689] $ ...: list() 1577s [00:52:57.689] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1577s [00:52:57.689] - attr(*, "where")=List of 1 1577s [00:52:57.689] ..$ ...: 1577s [00:52:57.689] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1577s [00:52:57.689] - attr(*, "resolved")= logi TRUE 1577s [00:52:57.689] - attr(*, "total_size")= num NA 1577s [00:52:57.692] - Getting '...' globals ... DONE 1577s [00:52:57.693] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1577s [00:52:57.693] List of 2 1577s [00:52:57.693] $ ...future.FUN:function (x, y = 2 * 1:5) 1577s [00:52:57.693] $ ... : list() 1577s [00:52:57.693] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1577s [00:52:57.693] - attr(*, "where")=List of 2 1577s [00:52:57.693] ..$ ...future.FUN: 1577s [00:52:57.693] ..$ ... : 1577s [00:52:57.693] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1577s [00:52:57.693] - attr(*, "resolved")= logi FALSE 1577s [00:52:57.693] - attr(*, "total_size")= num 4728 1577s [00:52:57.698] Packages to be attached in all futures: [n=0] 1577s [00:52:57.698] getGlobalsAndPackagesXApply() ... DONE 1577s [00:52:57.698] Number of futures (= number of chunks): 1 1577s [00:52:57.699] Launching 1 futures (chunks) ... 1577s [00:52:57.699] Chunk #1 of 1 ... 1577s [00:52:57.699] - Finding globals in 'X' for chunk #1 ... 1577s [00:52:57.699] getGlobalsAndPackages() ... 1577s [00:52:57.699] Searching for globals... 1577s [00:52:57.700] 1577s [00:52:57.700] Searching for globals ... DONE 1577s [00:52:57.701] - globals: [0] 1577s [00:52:57.701] getGlobalsAndPackages() ... DONE 1577s [00:52:57.701] + additional globals found: [n=0] 1577s [00:52:57.701] + additional namespaces needed: [n=0] 1577s [00:52:57.701] - Finding globals in 'X' for chunk #1 ... DONE 1577s [00:52:57.702] - seeds: 1577s [00:52:57.702] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1577s [00:52:57.702] getGlobalsAndPackages() ... 1577s [00:52:57.702] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1577s [00:52:57.703] Resolving globals: FALSE 1577s [00:52:57.703] Tweak future expression to call with '...' arguments ... 1577s [00:52:57.703] { 1577s [00:52:57.703] do.call(function(...) { 1577s [00:52:57.703] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1577s [00:52:57.703] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1577s [00:52:57.703] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1577s [00:52:57.703] on.exit(options(oopts), add = TRUE) 1577s [00:52:57.703] } 1577s [00:52:57.703] { 1577s [00:52:57.703] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1577s [00:52:57.703] ...future.X_jj <- ...future.elements_ii[[jj]] 1577s [00:52:57.703] ...future.FUN(...future.X_jj, ...) 1577s [00:52:57.703] }) 1577s [00:52:57.703] } 1577s [00:52:57.703] }, args = future.call.arguments) 1577s [00:52:57.703] } 1577s [00:52:57.704] Tweak future expression to call with '...' arguments ... DONE 1577s [00:52:57.705] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1577s [00:52:57.705] 1577s [00:52:57.705] getGlobalsAndPackages() ... DONE 1577s [00:52:57.706] run() for ‘Future’ ... 1577s [00:52:57.706] - state: ‘created’ 1577s [00:52:57.706] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1577s [00:52:57.712] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1577s [00:52:57.713] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1577s [00:52:57.713] - Field: ‘label’ 1577s [00:52:57.714] - Field: ‘local’ 1577s [00:52:57.714] - Field: ‘owner’ 1577s [00:52:57.714] - Field: ‘envir’ 1577s [00:52:57.715] - Field: ‘packages’ 1577s [00:52:57.715] - Field: ‘gc’ 1577s [00:52:57.715] - Field: ‘conditions’ 1577s [00:52:57.716] - Field: ‘expr’ 1577s [00:52:57.716] - Field: ‘uuid’ 1577s [00:52:57.716] - Field: ‘seed’ 1577s [00:52:57.717] - Field: ‘version’ 1577s [00:52:57.717] - Field: ‘result’ 1577s [00:52:57.717] - Field: ‘asynchronous’ 1577s [00:52:57.717] - Field: ‘calls’ 1577s [00:52:57.718] - Field: ‘globals’ 1577s [00:52:57.718] - Field: ‘stdout’ 1577s [00:52:57.718] - Field: ‘earlySignal’ 1577s [00:52:57.718] - Field: ‘lazy’ 1577s [00:52:57.718] - Field: ‘state’ 1577s [00:52:57.719] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1577s [00:52:57.719] - Launch lazy future ... 1577s [00:52:57.719] Packages needed by the future expression (n = 0): 1577s [00:52:57.719] Packages needed by future strategies (n = 0): 1577s [00:52:57.720] { 1577s [00:52:57.720] { 1577s [00:52:57.720] { 1577s [00:52:57.720] ...future.startTime <- base::Sys.time() 1577s [00:52:57.720] { 1577s [00:52:57.720] { 1577s [00:52:57.720] { 1577s [00:52:57.720] base::local({ 1577s [00:52:57.720] has_future <- base::requireNamespace("future", 1577s [00:52:57.720] quietly = TRUE) 1577s [00:52:57.720] if (has_future) { 1577s [00:52:57.720] ns <- base::getNamespace("future") 1577s [00:52:57.720] version <- ns[[".package"]][["version"]] 1577s [00:52:57.720] if (is.null(version)) 1577s [00:52:57.720] version <- utils::packageVersion("future") 1577s [00:52:57.720] } 1577s [00:52:57.720] else { 1577s [00:52:57.720] version <- NULL 1577s [00:52:57.720] } 1577s [00:52:57.720] if (!has_future || version < "1.8.0") { 1577s [00:52:57.720] info <- base::c(r_version = base::gsub("R version ", 1577s [00:52:57.720] "", base::R.version$version.string), 1577s [00:52:57.720] platform = base::sprintf("%s (%s-bit)", 1577s [00:52:57.720] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1577s [00:52:57.720] os = base::paste(base::Sys.info()[base::c("sysname", 1577s [00:52:57.720] "release", "version")], collapse = " "), 1577s [00:52:57.720] hostname = base::Sys.info()[["nodename"]]) 1577s [00:52:57.720] info <- base::sprintf("%s: %s", base::names(info), 1577s [00:52:57.720] info) 1577s [00:52:57.720] info <- base::paste(info, collapse = "; ") 1577s [00:52:57.720] if (!has_future) { 1577s [00:52:57.720] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1577s [00:52:57.720] info) 1577s [00:52:57.720] } 1577s [00:52:57.720] else { 1577s [00:52:57.720] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1577s [00:52:57.720] info, version) 1577s [00:52:57.720] } 1577s [00:52:57.720] base::stop(msg) 1577s [00:52:57.720] } 1577s [00:52:57.720] }) 1577s [00:52:57.720] } 1577s [00:52:57.720] options(future.plan = NULL) 1577s [00:52:57.720] Sys.unsetenv("R_FUTURE_PLAN") 1577s [00:52:57.720] future::plan("default", .cleanup = FALSE, .init = FALSE) 1577s [00:52:57.720] } 1577s [00:52:57.720] ...future.workdir <- getwd() 1577s [00:52:57.720] } 1577s [00:52:57.720] ...future.oldOptions <- base::as.list(base::.Options) 1577s [00:52:57.720] ...future.oldEnvVars <- base::Sys.getenv() 1577s [00:52:57.720] } 1577s [00:52:57.720] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1577s [00:52:57.720] future.globals.maxSize = NULL, future.globals.method = NULL, 1577s [00:52:57.720] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1577s [00:52:57.720] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1577s [00:52:57.720] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1577s [00:52:57.720] future.stdout.windows.reencode = NULL, width = 80L) 1577s [00:52:57.720] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1577s [00:52:57.720] base::names(...future.oldOptions)) 1577s [00:52:57.720] } 1577s [00:52:57.720] if (FALSE) { 1577s [00:52:57.720] } 1577s [00:52:57.720] else { 1577s [00:52:57.720] if (TRUE) { 1577s [00:52:57.720] ...future.stdout <- base::rawConnection(base::raw(0L), 1577s [00:52:57.720] open = "w") 1577s [00:52:57.720] } 1577s [00:52:57.720] else { 1577s [00:52:57.720] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1577s [00:52:57.720] windows = "NUL", "/dev/null"), open = "w") 1577s [00:52:57.720] } 1577s [00:52:57.720] base::sink(...future.stdout, type = "output", split = FALSE) 1577s [00:52:57.720] base::on.exit(if (!base::is.null(...future.stdout)) { 1577s [00:52:57.720] base::sink(type = "output", split = FALSE) 1577s [00:52:57.720] base::close(...future.stdout) 1577s [00:52:57.720] }, add = TRUE) 1577s [00:52:57.720] } 1577s [00:52:57.720] ...future.frame <- base::sys.nframe() 1577s [00:52:57.720] ...future.conditions <- base::list() 1577s [00:52:57.720] ...future.rng <- base::globalenv()$.Random.seed 1577s [00:52:57.720] if (FALSE) { 1577s [00:52:57.720] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1577s [00:52:57.720] "...future.value", "...future.globalenv.names", ".Random.seed") 1577s [00:52:57.720] } 1577s [00:52:57.720] ...future.result <- base::tryCatch({ 1577s [00:52:57.720] base::withCallingHandlers({ 1577s [00:52:57.720] ...future.value <- base::withVisible(base::local({ 1577s [00:52:57.720] do.call(function(...) { 1577s [00:52:57.720] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1577s [00:52:57.720] if (!identical(...future.globals.maxSize.org, 1577s [00:52:57.720] ...future.globals.maxSize)) { 1577s [00:52:57.720] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1577s [00:52:57.720] on.exit(options(oopts), add = TRUE) 1577s [00:52:57.720] } 1577s [00:52:57.720] { 1577s [00:52:57.720] lapply(seq_along(...future.elements_ii), 1577s [00:52:57.720] FUN = function(jj) { 1577s [00:52:57.720] ...future.X_jj <- ...future.elements_ii[[jj]] 1577s [00:52:57.720] ...future.FUN(...future.X_jj, ...) 1577s [00:52:57.720] }) 1577s [00:52:57.720] } 1577s [00:52:57.720] }, args = future.call.arguments) 1577s [00:52:57.720] })) 1577s [00:52:57.720] future::FutureResult(value = ...future.value$value, 1577s [00:52:57.720] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1577s [00:52:57.720] ...future.rng), globalenv = if (FALSE) 1577s [00:52:57.720] list(added = base::setdiff(base::names(base::.GlobalEnv), 1577s [00:52:57.720] ...future.globalenv.names)) 1577s [00:52:57.720] else NULL, started = ...future.startTime, version = "1.8") 1577s [00:52:57.720] }, condition = base::local({ 1577s [00:52:57.720] c <- base::c 1577s [00:52:57.720] inherits <- base::inherits 1577s [00:52:57.720] invokeRestart <- base::invokeRestart 1577s [00:52:57.720] length <- base::length 1577s [00:52:57.720] list <- base::list 1577s [00:52:57.720] seq.int <- base::seq.int 1577s [00:52:57.720] signalCondition <- base::signalCondition 1577s [00:52:57.720] sys.calls <- base::sys.calls 1577s [00:52:57.720] `[[` <- base::`[[` 1577s [00:52:57.720] `+` <- base::`+` 1577s [00:52:57.720] `<<-` <- base::`<<-` 1577s [00:52:57.720] sysCalls <- function(calls = sys.calls(), from = 1L) { 1577s [00:52:57.720] calls[seq.int(from = from + 12L, to = length(calls) - 1577s [00:52:57.720] 3L)] 1577s [00:52:57.720] } 1577s [00:52:57.720] function(cond) { 1577s [00:52:57.720] is_error <- inherits(cond, "error") 1577s [00:52:57.720] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1577s [00:52:57.720] NULL) 1577s [00:52:57.720] if (is_error) { 1577s [00:52:57.720] sessionInformation <- function() { 1577s [00:52:57.720] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1577s [00:52:57.720] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1577s [00:52:57.720] search = base::search(), system = base::Sys.info()) 1577s [00:52:57.720] } 1577s [00:52:57.720] ...future.conditions[[length(...future.conditions) + 1577s [00:52:57.720] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1577s [00:52:57.720] cond$call), session = sessionInformation(), 1577s [00:52:57.720] timestamp = base::Sys.time(), signaled = 0L) 1577s [00:52:57.720] signalCondition(cond) 1577s [00:52:57.720] } 1577s [00:52:57.720] else if (!ignore && TRUE && inherits(cond, c("condition", 1577s [00:52:57.720] "immediateCondition"))) { 1577s [00:52:57.720] signal <- TRUE && inherits(cond, "immediateCondition") 1577s [00:52:57.720] ...future.conditions[[length(...future.conditions) + 1577s [00:52:57.720] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1577s [00:52:57.720] if (TRUE && !signal) { 1577s [00:52:57.720] muffleCondition <- function (cond, pattern = "^muffle") 1577s [00:52:57.720] { 1577s [00:52:57.720] inherits <- base::inherits 1577s [00:52:57.720] invokeRestart <- base::invokeRestart 1577s [00:52:57.720] is.null <- base::is.null 1577s [00:52:57.720] muffled <- FALSE 1577s [00:52:57.720] if (inherits(cond, "message")) { 1577s [00:52:57.720] muffled <- grepl(pattern, "muffleMessage") 1577s [00:52:57.720] if (muffled) 1577s [00:52:57.720] invokeRestart("muffleMessage") 1577s [00:52:57.720] } 1577s [00:52:57.720] else if (inherits(cond, "warning")) { 1577s [00:52:57.720] muffled <- grepl(pattern, "muffleWarning") 1577s [00:52:57.720] if (muffled) 1577s [00:52:57.720] invokeRestart("muffleWarning") 1577s [00:52:57.720] } 1577s [00:52:57.720] else if (inherits(cond, "condition")) { 1577s [00:52:57.720] if (!is.null(pattern)) { 1577s [00:52:57.720] computeRestarts <- base::computeRestarts 1577s [00:52:57.720] grepl <- base::grepl 1577s [00:52:57.720] restarts <- computeRestarts(cond) 1577s [00:52:57.720] for (restart in restarts) { 1577s [00:52:57.720] name <- restart$name 1577s [00:52:57.720] if (is.null(name)) 1577s [00:52:57.720] next 1577s [00:52:57.720] if (!grepl(pattern, name)) 1577s [00:52:57.720] next 1577s [00:52:57.720] invokeRestart(restart) 1577s [00:52:57.720] muffled <- TRUE 1577s [00:52:57.720] break 1577s [00:52:57.720] } 1577s [00:52:57.720] } 1577s [00:52:57.720] } 1577s [00:52:57.720] invisible(muffled) 1577s [00:52:57.720] } 1577s [00:52:57.720] muffleCondition(cond, pattern = "^muffle") 1577s [00:52:57.720] } 1577s [00:52:57.720] } 1577s [00:52:57.720] else { 1577s [00:52:57.720] if (TRUE) { 1577s [00:52:57.720] muffleCondition <- function (cond, pattern = "^muffle") 1577s [00:52:57.720] { 1577s [00:52:57.720] inherits <- base::inherits 1577s [00:52:57.720] invokeRestart <- base::invokeRestart 1577s [00:52:57.720] is.null <- base::is.null 1577s [00:52:57.720] muffled <- FALSE 1577s [00:52:57.720] if (inherits(cond, "message")) { 1577s [00:52:57.720] muffled <- grepl(pattern, "muffleMessage") 1577s [00:52:57.720] if (muffled) 1577s [00:52:57.720] invokeRestart("muffleMessage") 1577s [00:52:57.720] } 1577s [00:52:57.720] else if (inherits(cond, "warning")) { 1577s [00:52:57.720] muffled <- grepl(pattern, "muffleWarning") 1577s [00:52:57.720] if (muffled) 1577s [00:52:57.720] invokeRestart("muffleWarning") 1577s [00:52:57.720] } 1577s [00:52:57.720] else if (inherits(cond, "condition")) { 1577s [00:52:57.720] if (!is.null(pattern)) { 1577s [00:52:57.720] computeRestarts <- base::computeRestarts 1577s [00:52:57.720] grepl <- base::grepl 1577s [00:52:57.720] restarts <- computeRestarts(cond) 1577s [00:52:57.720] for (restart in restarts) { 1577s [00:52:57.720] name <- restart$name 1577s [00:52:57.720] if (is.null(name)) 1577s [00:52:57.720] next 1577s [00:52:57.720] if (!grepl(pattern, name)) 1577s [00:52:57.720] next 1577s [00:52:57.720] invokeRestart(restart) 1577s [00:52:57.720] muffled <- TRUE 1577s [00:52:57.720] break 1577s [00:52:57.720] } 1577s [00:52:57.720] } 1577s [00:52:57.720] } 1577s [00:52:57.720] invisible(muffled) 1577s [00:52:57.720] } 1577s [00:52:57.720] muffleCondition(cond, pattern = "^muffle") 1577s [00:52:57.720] } 1577s [00:52:57.720] } 1577s [00:52:57.720] } 1577s [00:52:57.720] })) 1577s [00:52:57.720] }, error = function(ex) { 1577s [00:52:57.720] base::structure(base::list(value = NULL, visible = NULL, 1577s [00:52:57.720] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1577s [00:52:57.720] ...future.rng), started = ...future.startTime, 1577s [00:52:57.720] finished = Sys.time(), session_uuid = NA_character_, 1577s [00:52:57.720] version = "1.8"), class = "FutureResult") 1577s [00:52:57.720] }, finally = { 1577s [00:52:57.720] if (!identical(...future.workdir, getwd())) 1577s [00:52:57.720] setwd(...future.workdir) 1577s [00:52:57.720] { 1577s [00:52:57.720] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1577s [00:52:57.720] ...future.oldOptions$nwarnings <- NULL 1577s [00:52:57.720] } 1577s [00:52:57.720] base::options(...future.oldOptions) 1577s [00:52:57.720] if (.Platform$OS.type == "windows") { 1577s [00:52:57.720] old_names <- names(...future.oldEnvVars) 1577s [00:52:57.720] envs <- base::Sys.getenv() 1577s [00:52:57.720] names <- names(envs) 1577s [00:52:57.720] common <- intersect(names, old_names) 1577s [00:52:57.720] added <- setdiff(names, old_names) 1577s [00:52:57.720] removed <- setdiff(old_names, names) 1577s [00:52:57.720] changed <- common[...future.oldEnvVars[common] != 1577s [00:52:57.720] envs[common]] 1577s [00:52:57.720] NAMES <- toupper(changed) 1577s [00:52:57.720] args <- list() 1577s [00:52:57.720] for (kk in seq_along(NAMES)) { 1577s [00:52:57.720] name <- changed[[kk]] 1577s [00:52:57.720] NAME <- NAMES[[kk]] 1577s [00:52:57.720] if (name != NAME && is.element(NAME, old_names)) 1577s [00:52:57.720] next 1577s [00:52:57.720] args[[name]] <- ...future.oldEnvVars[[name]] 1577s [00:52:57.720] } 1577s [00:52:57.720] NAMES <- toupper(added) 1577s [00:52:57.720] for (kk in seq_along(NAMES)) { 1577s [00:52:57.720] name <- added[[kk]] 1577s [00:52:57.720] NAME <- NAMES[[kk]] 1577s [00:52:57.720] if (name != NAME && is.element(NAME, old_names)) 1577s [00:52:57.720] next 1577s [00:52:57.720] args[[name]] <- "" 1577s [00:52:57.720] } 1577s [00:52:57.720] NAMES <- toupper(removed) 1577s [00:52:57.720] for (kk in seq_along(NAMES)) { 1577s [00:52:57.720] name <- removed[[kk]] 1577s [00:52:57.720] NAME <- NAMES[[kk]] 1577s [00:52:57.720] if (name != NAME && is.element(NAME, old_names)) 1577s [00:52:57.720] next 1577s [00:52:57.720] args[[name]] <- ...future.oldEnvVars[[name]] 1577s [00:52:57.720] } 1577s [00:52:57.720] if (length(args) > 0) 1577s [00:52:57.720] base::do.call(base::Sys.setenv, args = args) 1577s [00:52:57.720] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1577s [00:52:57.720] } 1577s [00:52:57.720] else { 1577s [00:52:57.720] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1577s [00:52:57.720] } 1577s [00:52:57.720] { 1577s [00:52:57.720] if (base::length(...future.futureOptionsAdded) > 1577s [00:52:57.720] 0L) { 1577s [00:52:57.720] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1577s [00:52:57.720] base::names(opts) <- ...future.futureOptionsAdded 1577s [00:52:57.720] base::options(opts) 1577s [00:52:57.720] } 1577s [00:52:57.720] { 1577s [00:52:57.720] { 1577s [00:52:57.720] NULL 1577s [00:52:57.720] RNGkind("Mersenne-Twister") 1577s [00:52:57.720] base::rm(list = ".Random.seed", envir = base::globalenv(), 1577s [00:52:57.720] inherits = FALSE) 1577s [00:52:57.720] } 1577s [00:52:57.720] options(future.plan = NULL) 1577s [00:52:57.720] if (is.na(NA_character_)) 1577s [00:52:57.720] Sys.unsetenv("R_FUTURE_PLAN") 1577s [00:52:57.720] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1577s [00:52:57.720] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1577s [00:52:57.720] envir = parent.frame()) 1577s [00:52:57.720] { 1577s [00:52:57.720] default_workers <- missing(workers) 1577s [00:52:57.720] if (is.function(workers)) 1577s [00:52:57.720] workers <- workers() 1577s [00:52:57.720] workers <- structure(as.integer(workers), 1577s [00:52:57.720] class = class(workers)) 1577s [00:52:57.720] stop_if_not(is.finite(workers), workers >= 1577s [00:52:57.720] 1L) 1577s [00:52:57.720] if ((workers == 1L && !inherits(workers, 1577s [00:52:57.720] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1577s [00:52:57.720] if (default_workers) 1577s [00:52:57.720] supportsMulticore(warn = TRUE) 1577s [00:52:57.720] return(sequential(..., envir = envir)) 1577s [00:52:57.720] } 1577s [00:52:57.720] oopts <- options(mc.cores = workers) 1577s [00:52:57.720] on.exit(options(oopts)) 1577s [00:52:57.720] future <- MulticoreFuture(..., workers = workers, 1577s [00:52:57.720] envir = envir) 1577s [00:52:57.720] if (!future$lazy) 1577s [00:52:57.720] future <- run(future) 1577s [00:52:57.720] invisible(future) 1577s [00:52:57.720] }), .cleanup = FALSE, .init = FALSE) 1577s [00:52:57.720] } 1577s [00:52:57.720] } 1577s [00:52:57.720] } 1577s [00:52:57.720] }) 1577s [00:52:57.720] if (TRUE) { 1577s [00:52:57.720] base::sink(type = "output", split = FALSE) 1577s [00:52:57.720] if (TRUE) { 1577s [00:52:57.720] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1577s [00:52:57.720] } 1577s [00:52:57.720] else { 1577s [00:52:57.720] ...future.result["stdout"] <- base::list(NULL) 1577s [00:52:57.720] } 1577s [00:52:57.720] base::close(...future.stdout) 1577s [00:52:57.720] ...future.stdout <- NULL 1577s [00:52:57.720] } 1577s [00:52:57.720] ...future.result$conditions <- ...future.conditions 1577s [00:52:57.720] ...future.result$finished <- base::Sys.time() 1577s [00:52:57.720] ...future.result 1577s [00:52:57.720] } 1577s [00:52:57.725] assign_globals() ... 1577s [00:52:57.725] List of 5 1577s [00:52:57.725] $ ...future.FUN :function (x, y = 2 * 1:5) 1577s [00:52:57.725] $ future.call.arguments : list() 1577s [00:52:57.725] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1577s [00:52:57.725] $ ...future.elements_ii :List of 4 1577s [00:52:57.725] ..$ A: num 50 1577s [00:52:57.725] ..$ B: num 60 1577s [00:52:57.725] ..$ C: num 70 1577s [00:52:57.725] ..$ D: num 80 1577s [00:52:57.725] $ ...future.seeds_ii : NULL 1577s [00:52:57.725] $ ...future.globals.maxSize: NULL 1577s [00:52:57.725] - attr(*, "where")=List of 5 1577s [00:52:57.725] ..$ ...future.FUN : 1577s [00:52:57.725] ..$ future.call.arguments : 1577s [00:52:57.725] ..$ ...future.elements_ii : 1577s [00:52:57.725] ..$ ...future.seeds_ii : 1577s [00:52:57.725] ..$ ...future.globals.maxSize: 1577s [00:52:57.725] - attr(*, "resolved")= logi FALSE 1577s [00:52:57.725] - attr(*, "total_size")= num 4728 1577s [00:52:57.725] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1577s [00:52:57.725] - attr(*, "already-done")= logi TRUE 1577s [00:52:57.736] - reassign environment for ‘...future.FUN’ 1577s [00:52:57.736] - copied ‘...future.FUN’ to environment 1577s [00:52:57.737] - copied ‘future.call.arguments’ to environment 1577s [00:52:57.737] - copied ‘...future.elements_ii’ to environment 1577s [00:52:57.737] - copied ‘...future.seeds_ii’ to environment 1577s [00:52:57.737] - copied ‘...future.globals.maxSize’ to environment 1577s [00:52:57.737] assign_globals() ... done 1577s [00:52:57.738] plan(): Setting new future strategy stack: 1577s [00:52:57.738] List of future strategies: 1577s [00:52:57.738] 1. sequential: 1577s [00:52:57.738] - args: function (..., envir = parent.frame()) 1577s [00:52:57.738] - tweaked: FALSE 1577s [00:52:57.738] - call: NULL 1577s [00:52:57.738] plan(): nbrOfWorkers() = 1 1577s [00:52:57.740] plan(): Setting new future strategy stack: 1577s [00:52:57.740] List of future strategies: 1577s [00:52:57.740] 1. multicore: 1577s [00:52:57.740] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1577s [00:52:57.740] - tweaked: FALSE 1577s [00:52:57.740] - call: plan(strategy) 1577s [00:52:57.744] plan(): nbrOfWorkers() = 1 1577s [00:52:57.745] SequentialFuture started (and completed) 1577s [00:52:57.745] - Launch lazy future ... done 1577s [00:52:57.745] run() for ‘SequentialFuture’ ... done 1577s [00:52:57.746] Created future: 1577s [00:52:57.746] SequentialFuture: 1577s [00:52:57.746] Label: ‘future_sapply-1’ 1577s [00:52:57.746] Expression: 1577s [00:52:57.746] { 1577s [00:52:57.746] do.call(function(...) { 1577s [00:52:57.746] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1577s [00:52:57.746] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1577s [00:52:57.746] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1577s [00:52:57.746] on.exit(options(oopts), add = TRUE) 1577s [00:52:57.746] } 1577s [00:52:57.746] { 1577s [00:52:57.746] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1577s [00:52:57.746] ...future.X_jj <- ...future.elements_ii[[jj]] 1577s [00:52:57.746] ...future.FUN(...future.X_jj, ...) 1577s [00:52:57.746] }) 1577s [00:52:57.746] } 1577s [00:52:57.746] }, args = future.call.arguments) 1577s [00:52:57.746] } 1577s [00:52:57.746] Lazy evaluation: FALSE 1577s [00:52:57.746] Asynchronous evaluation: FALSE 1577s [00:52:57.746] Local evaluation: TRUE 1577s [00:52:57.746] Environment: R_GlobalEnv 1577s [00:52:57.746] Capture standard output: TRUE 1577s [00:52:57.746] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1577s [00:52:57.746] Globals: 5 objects totaling 4.84 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1577s [00:52:57.746] Packages: 1577s [00:52:57.746] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1577s [00:52:57.746] Resolved: TRUE 1577s [00:52:57.746] Value: 1.34 KiB of class ‘list’ 1577s [00:52:57.746] Early signaling: FALSE 1577s [00:52:57.746] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1577s [00:52:57.746] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1577s [00:52:57.748] Chunk #1 of 1 ... DONE 1577s [00:52:57.748] Launching 1 futures (chunks) ... DONE 1577s [00:52:57.749] Resolving 1 futures (chunks) ... 1577s [00:52:57.749] resolve() on list ... 1577s [00:52:57.749] recursive: 0 1577s [00:52:57.749] length: 1 1577s [00:52:57.750] 1577s [00:52:57.750] resolved() for ‘SequentialFuture’ ... 1577s [00:52:57.750] - state: ‘finished’ 1577s [00:52:57.750] - run: TRUE 1577s [00:52:57.751] - result: ‘FutureResult’ 1577s [00:52:57.751] resolved() for ‘SequentialFuture’ ... done 1577s [00:52:57.751] Future #1 1577s [00:52:57.751] signalConditionsASAP(SequentialFuture, pos=1) ... 1577s [00:52:57.751] - nx: 1 1577s [00:52:57.752] - relay: TRUE 1577s [00:52:57.752] - stdout: TRUE 1577s [00:52:57.753] - signal: TRUE 1577s [00:52:57.753] - resignal: FALSE 1577s [00:52:57.753] - force: TRUE 1577s [00:52:57.753] - relayed: [n=1] FALSE 1577s [00:52:57.754] - queued futures: [n=1] FALSE 1577s [00:52:57.754] - until=1 1577s [00:52:57.754] - relaying element #1 1577s [00:52:57.754] - relayed: [n=1] TRUE 1577s [00:52:57.754] - queued futures: [n=1] TRUE 1577s [00:52:57.755] signalConditionsASAP(SequentialFuture, pos=1) ... done 1577s [00:52:57.755] length: 0 (resolved future 1) 1577s [00:52:57.755] Relaying remaining futures 1577s [00:52:57.755] signalConditionsASAP(NULL, pos=0) ... 1577s [00:52:57.755] - nx: 1 1577s [00:52:57.756] - relay: TRUE 1577s [00:52:57.756] - stdout: TRUE 1577s [00:52:57.756] - signal: TRUE 1577s [00:52:57.756] - resignal: FALSE 1577s [00:52:57.756] - force: TRUE 1577s [00:52:57.756] - relayed: [n=1] TRUE 1577s [00:52:57.757] - queued futures: [n=1] TRUE 1577s - flush all 1577s [00:52:57.757] - relayed: [n=1] TRUE 1577s [00:52:57.757] - queued futures: [n=1] TRUE 1577s [00:52:57.758] signalConditionsASAP(NULL, pos=0) ... done 1577s [00:52:57.758] resolve() on list ... DONE 1577s [00:52:57.758] - Number of value chunks collected: 1 1577s [00:52:57.758] Resolving 1 futures (chunks) ... DONE 1577s [00:52:57.758] Reducing values from 1 chunks ... 1577s [00:52:57.759] - Number of values collected after concatenation: 4 1577s [00:52:57.759] - Number of values expected: 4 1577s [00:52:57.759] Reducing values from 1 chunks ... DONE 1577s [00:52:57.759] future_lapply() ... DONE 1577s List of 2 1577s $ y0: num [1:15, 1:4] 100 100 100 200 200 200 300 300 300 400 ... 1577s ..- attr(*, "dimnames")=List of 2 1577s .. ..$ : NULL 1577s .. ..$ : chr [1:4] "A" "B" "C" "D" 1577s $ y1: num [1:15, 1:4] 100 100 100 200 200 200 300 300 300 400 ... 1577s ..- attr(*, "dimnames")=List of 2 1577s .. ..$ : NULL 1577s .. ..$ : chr [1:4] "A" "B" "C" "D" 1577s [00:52:57.764] future_lapply() ... 1577s [00:52:57.769] Number of chunks: 1 1577s [00:52:57.769] getGlobalsAndPackagesXApply() ... 1577s [00:52:57.769] - future.globals: TRUE 1577s [00:52:57.770] getGlobalsAndPackages() ... 1577s [00:52:57.770] Searching for globals... 1577s [00:52:57.772] - globals found: [1] ‘FUN’ 1577s [00:52:57.772] Searching for globals ... DONE 1577s [00:52:57.772] Resolving globals: FALSE 1577s [00:52:57.773] The total size of the 1 globals is 848 bytes (848 bytes) 1577s [00:52:57.773] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1577s [00:52:57.774] - globals: [1] ‘FUN’ 1577s [00:52:57.774] 1577s [00:52:57.774] getGlobalsAndPackages() ... DONE 1577s [00:52:57.774] - globals found/used: [n=1] ‘FUN’ 1577s [00:52:57.774] - needed namespaces: [n=0] 1577s [00:52:57.774] Finding globals ... DONE 1577s [00:52:57.775] - use_args: TRUE 1577s [00:52:57.775] - Getting '...' globals ... 1577s [00:52:57.775] resolve() on list ... 1577s [00:52:57.775] recursive: 0 1577s [00:52:57.775] length: 1 1577s [00:52:57.775] elements: ‘...’ 1577s [00:52:57.776] length: 0 (resolved future 1) 1577s [00:52:57.776] resolve() on list ... DONE 1577s [00:52:57.776] - '...' content: [n=0] 1577s [00:52:57.776] List of 1 1577s [00:52:57.776] $ ...: list() 1577s [00:52:57.776] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1577s [00:52:57.776] - attr(*, "where")=List of 1 1577s [00:52:57.776] ..$ ...: 1577s [00:52:57.776] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1577s [00:52:57.776] - attr(*, "resolved")= logi TRUE 1577s [00:52:57.776] - attr(*, "total_size")= num NA 1577s [00:52:57.779] - Getting '...' globals ... DONE 1577s [00:52:57.779] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1577s [00:52:57.780] List of 2 1577s [00:52:57.780] $ ...future.FUN:function (x) 1577s [00:52:57.780] $ ... : list() 1577s [00:52:57.780] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1577s [00:52:57.780] - attr(*, "where")=List of 2 1577s [00:52:57.780] ..$ ...future.FUN: 1577s [00:52:57.780] ..$ ... : 1577s [00:52:57.780] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1577s [00:52:57.780] - attr(*, "resolved")= logi FALSE 1577s [00:52:57.780] - attr(*, "total_size")= num 848 1577s [00:52:57.784] Packages to be attached in all futures: [n=0] 1577s [00:52:57.784] getGlobalsAndPackagesXApply() ... DONE 1577s [00:52:57.784] Number of futures (= number of chunks): 1 1577s [00:52:57.785] Launching 1 futures (chunks) ... 1577s [00:52:57.785] Chunk #1 of 1 ... 1577s [00:52:57.785] - Finding globals in 'X' for chunk #1 ... 1577s [00:52:57.785] getGlobalsAndPackages() ... 1577s [00:52:57.785] Searching for globals... 1577s [00:52:57.785] 1577s [00:52:57.786] Searching for globals ... DONE 1577s [00:52:57.786] - globals: [0] 1577s [00:52:57.786] getGlobalsAndPackages() ... DONE 1577s [00:52:57.786] + additional globals found: [n=0] 1577s [00:52:57.786] + additional namespaces needed: [n=0] 1577s [00:52:57.786] - Finding globals in 'X' for chunk #1 ... DONE 1577s [00:52:57.786] - seeds: 1577s [00:52:57.790] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1577s [00:52:57.791] getGlobalsAndPackages() ... 1577s [00:52:57.791] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1577s [00:52:57.791] Resolving globals: FALSE 1577s [00:52:57.792] Tweak future expression to call with '...' arguments ... 1577s [00:52:57.792] { 1577s [00:52:57.792] do.call(function(...) { 1577s [00:52:57.792] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1577s [00:52:57.792] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1577s [00:52:57.792] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1577s [00:52:57.792] on.exit(options(oopts), add = TRUE) 1577s [00:52:57.792] } 1577s [00:52:57.792] { 1577s [00:52:57.792] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1577s [00:52:57.792] ...future.X_jj <- ...future.elements_ii[[jj]] 1577s [00:52:57.792] ...future.FUN(...future.X_jj, ...) 1577s [00:52:57.792] }) 1577s [00:52:57.792] } 1577s [00:52:57.792] }, args = future.call.arguments) 1577s [00:52:57.792] } 1577s [00:52:57.793] Tweak future expression to call with '...' arguments ... DONE 1577s [00:52:57.794] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1577s [00:52:57.794] 1577s [00:52:57.794] getGlobalsAndPackages() ... DONE 1577s [00:52:57.794] run() for ‘Future’ ... 1577s [00:52:57.794] - state: ‘created’ 1577s [00:52:57.795] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1577s [00:52:57.798] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1577s [00:52:57.798] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1577s [00:52:57.799] - Field: ‘label’ 1577s [00:52:57.799] - Field: ‘local’ 1577s [00:52:57.799] - Field: ‘owner’ 1577s [00:52:57.799] - Field: ‘envir’ 1577s [00:52:57.800] - Field: ‘packages’ 1577s [00:52:57.800] - Field: ‘gc’ 1577s [00:52:57.801] - Field: ‘conditions’ 1577s [00:52:57.801] - Field: ‘expr’ 1577s [00:52:57.801] - Field: ‘uuid’ 1577s [00:52:57.801] - Field: ‘seed’ 1577s [00:52:57.801] - Field: ‘version’ 1577s [00:52:57.802] - Field: ‘result’ 1577s [00:52:57.802] - Field: ‘asynchronous’ 1577s [00:52:57.802] - Field: ‘calls’ 1577s [00:52:57.802] - Field: ‘globals’ 1577s [00:52:57.803] - Field: ‘stdout’ 1577s [00:52:57.803] - Field: ‘earlySignal’ 1577s [00:52:57.803] - Field: ‘lazy’ 1577s [00:52:57.803] - Field: ‘state’ 1577s [00:52:57.803] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1577s [00:52:57.804] - Launch lazy future ... 1577s [00:52:57.805] Packages needed by the future expression (n = 0): 1577s [00:52:57.806] Packages needed by future strategies (n = 0): 1577s [00:52:57.807] { 1577s [00:52:57.807] { 1577s [00:52:57.807] { 1577s [00:52:57.807] ...future.startTime <- base::Sys.time() 1577s [00:52:57.807] { 1577s [00:52:57.807] { 1577s [00:52:57.807] { 1577s [00:52:57.807] base::local({ 1577s [00:52:57.807] has_future <- base::requireNamespace("future", 1577s [00:52:57.807] quietly = TRUE) 1577s [00:52:57.807] if (has_future) { 1577s [00:52:57.807] ns <- base::getNamespace("future") 1577s [00:52:57.807] version <- ns[[".package"]][["version"]] 1577s [00:52:57.807] if (is.null(version)) 1577s [00:52:57.807] version <- utils::packageVersion("future") 1577s [00:52:57.807] } 1577s [00:52:57.807] else { 1577s [00:52:57.807] version <- NULL 1577s [00:52:57.807] } 1577s [00:52:57.807] if (!has_future || version < "1.8.0") { 1577s [00:52:57.807] info <- base::c(r_version = base::gsub("R version ", 1577s [00:52:57.807] "", base::R.version$version.string), 1577s [00:52:57.807] platform = base::sprintf("%s (%s-bit)", 1577s [00:52:57.807] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1577s [00:52:57.807] os = base::paste(base::Sys.info()[base::c("sysname", 1577s [00:52:57.807] "release", "version")], collapse = " "), 1577s [00:52:57.807] hostname = base::Sys.info()[["nodename"]]) 1577s [00:52:57.807] info <- base::sprintf("%s: %s", base::names(info), 1577s [00:52:57.807] info) 1577s [00:52:57.807] info <- base::paste(info, collapse = "; ") 1577s [00:52:57.807] if (!has_future) { 1577s [00:52:57.807] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1577s [00:52:57.807] info) 1577s [00:52:57.807] } 1577s [00:52:57.807] else { 1577s [00:52:57.807] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1577s [00:52:57.807] info, version) 1577s [00:52:57.807] } 1577s [00:52:57.807] base::stop(msg) 1577s [00:52:57.807] } 1577s [00:52:57.807] }) 1577s [00:52:57.807] } 1577s [00:52:57.807] options(future.plan = NULL) 1577s [00:52:57.807] Sys.unsetenv("R_FUTURE_PLAN") 1577s [00:52:57.807] future::plan("default", .cleanup = FALSE, .init = FALSE) 1577s [00:52:57.807] } 1577s [00:52:57.807] ...future.workdir <- getwd() 1577s [00:52:57.807] } 1577s [00:52:57.807] ...future.oldOptions <- base::as.list(base::.Options) 1577s [00:52:57.807] ...future.oldEnvVars <- base::Sys.getenv() 1577s [00:52:57.807] } 1577s [00:52:57.807] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1577s [00:52:57.807] future.globals.maxSize = NULL, future.globals.method = NULL, 1577s [00:52:57.807] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1577s [00:52:57.807] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1577s [00:52:57.807] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1577s [00:52:57.807] future.stdout.windows.reencode = NULL, width = 80L) 1577s [00:52:57.807] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1577s [00:52:57.807] base::names(...future.oldOptions)) 1577s [00:52:57.807] } 1577s [00:52:57.807] if (FALSE) { 1577s [00:52:57.807] } 1577s [00:52:57.807] else { 1577s [00:52:57.807] if (TRUE) { 1577s [00:52:57.807] ...future.stdout <- base::rawConnection(base::raw(0L), 1577s [00:52:57.807] open = "w") 1577s [00:52:57.807] } 1577s [00:52:57.807] else { 1577s [00:52:57.807] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1577s [00:52:57.807] windows = "NUL", "/dev/null"), open = "w") 1577s [00:52:57.807] } 1577s [00:52:57.807] base::sink(...future.stdout, type = "output", split = FALSE) 1577s [00:52:57.807] base::on.exit(if (!base::is.null(...future.stdout)) { 1577s [00:52:57.807] base::sink(type = "output", split = FALSE) 1577s [00:52:57.807] base::close(...future.stdout) 1577s [00:52:57.807] }, add = TRUE) 1577s [00:52:57.807] } 1577s [00:52:57.807] ...future.frame <- base::sys.nframe() 1577s [00:52:57.807] ...future.conditions <- base::list() 1577s [00:52:57.807] ...future.rng <- base::globalenv()$.Random.seed 1577s [00:52:57.807] if (FALSE) { 1577s [00:52:57.807] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1577s [00:52:57.807] "...future.value", "...future.globalenv.names", ".Random.seed") 1577s [00:52:57.807] } 1577s [00:52:57.807] ...future.result <- base::tryCatch({ 1577s [00:52:57.807] base::withCallingHandlers({ 1577s [00:52:57.807] ...future.value <- base::withVisible(base::local({ 1577s [00:52:57.807] do.call(function(...) { 1577s [00:52:57.807] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1577s [00:52:57.807] if (!identical(...future.globals.maxSize.org, 1577s [00:52:57.807] ...future.globals.maxSize)) { 1577s [00:52:57.807] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1577s [00:52:57.807] on.exit(options(oopts), add = TRUE) 1577s [00:52:57.807] } 1577s [00:52:57.807] { 1577s [00:52:57.807] lapply(seq_along(...future.elements_ii), 1577s [00:52:57.807] FUN = function(jj) { 1577s [00:52:57.807] ...future.X_jj <- ...future.elements_ii[[jj]] 1577s [00:52:57.807] ...future.FUN(...future.X_jj, ...) 1577s [00:52:57.807] }) 1577s [00:52:57.807] } 1577s [00:52:57.807] }, args = future.call.arguments) 1577s [00:52:57.807] })) 1577s [00:52:57.807] future::FutureResult(value = ...future.value$value, 1577s [00:52:57.807] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1577s [00:52:57.807] ...future.rng), globalenv = if (FALSE) 1577s [00:52:57.807] list(added = base::setdiff(base::names(base::.GlobalEnv), 1577s [00:52:57.807] ...future.globalenv.names)) 1577s [00:52:57.807] else NULL, started = ...future.startTime, version = "1.8") 1577s [00:52:57.807] }, condition = base::local({ 1577s [00:52:57.807] c <- base::c 1577s [00:52:57.807] inherits <- base::inherits 1577s [00:52:57.807] invokeRestart <- base::invokeRestart 1577s [00:52:57.807] length <- base::length 1577s [00:52:57.807] list <- base::list 1577s [00:52:57.807] seq.int <- base::seq.int 1577s [00:52:57.807] signalCondition <- base::signalCondition 1577s [00:52:57.807] sys.calls <- base::sys.calls 1577s [00:52:57.807] `[[` <- base::`[[` 1577s [00:52:57.807] `+` <- base::`+` 1577s [00:52:57.807] `<<-` <- base::`<<-` 1577s [00:52:57.807] sysCalls <- function(calls = sys.calls(), from = 1L) { 1577s [00:52:57.807] calls[seq.int(from = from + 12L, to = length(calls) - 1577s [00:52:57.807] 3L)] 1577s [00:52:57.807] } 1577s [00:52:57.807] function(cond) { 1577s [00:52:57.807] is_error <- inherits(cond, "error") 1577s [00:52:57.807] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1577s [00:52:57.807] NULL) 1577s [00:52:57.807] if (is_error) { 1577s [00:52:57.807] sessionInformation <- function() { 1577s [00:52:57.807] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1577s [00:52:57.807] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1577s [00:52:57.807] search = base::search(), system = base::Sys.info()) 1577s [00:52:57.807] } 1577s [00:52:57.807] ...future.conditions[[length(...future.conditions) + 1577s [00:52:57.807] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1577s [00:52:57.807] cond$call), session = sessionInformation(), 1577s [00:52:57.807] timestamp = base::Sys.time(), signaled = 0L) 1577s [00:52:57.807] signalCondition(cond) 1577s [00:52:57.807] } 1577s [00:52:57.807] else if (!ignore && TRUE && inherits(cond, c("condition", 1577s [00:52:57.807] "immediateCondition"))) { 1577s [00:52:57.807] signal <- TRUE && inherits(cond, "immediateCondition") 1577s [00:52:57.807] ...future.conditions[[length(...future.conditions) + 1577s [00:52:57.807] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1577s [00:52:57.807] if (TRUE && !signal) { 1577s [00:52:57.807] muffleCondition <- function (cond, pattern = "^muffle") 1577s [00:52:57.807] { 1577s [00:52:57.807] inherits <- base::inherits 1577s [00:52:57.807] invokeRestart <- base::invokeRestart 1577s [00:52:57.807] is.null <- base::is.null 1577s [00:52:57.807] muffled <- FALSE 1577s [00:52:57.807] if (inherits(cond, "message")) { 1577s [00:52:57.807] muffled <- grepl(pattern, "muffleMessage") 1577s [00:52:57.807] if (muffled) 1577s [00:52:57.807] invokeRestart("muffleMessage") 1577s [00:52:57.807] } 1577s [00:52:57.807] else if (inherits(cond, "warning")) { 1577s [00:52:57.807] muffled <- grepl(pattern, "muffleWarning") 1577s [00:52:57.807] if (muffled) 1577s [00:52:57.807] invokeRestart("muffleWarning") 1577s [00:52:57.807] } 1577s [00:52:57.807] else if (inherits(cond, "condition")) { 1577s [00:52:57.807] if (!is.null(pattern)) { 1577s [00:52:57.807] computeRestarts <- base::computeRestarts 1577s [00:52:57.807] grepl <- base::grepl 1577s [00:52:57.807] restarts <- computeRestarts(cond) 1577s [00:52:57.807] for (restart in restarts) { 1577s [00:52:57.807] name <- restart$name 1577s [00:52:57.807] if (is.null(name)) 1577s [00:52:57.807] next 1577s [00:52:57.807] if (!grepl(pattern, name)) 1577s [00:52:57.807] next 1577s [00:52:57.807] invokeRestart(restart) 1577s [00:52:57.807] muffled <- TRUE 1577s [00:52:57.807] break 1577s [00:52:57.807] } 1577s [00:52:57.807] } 1577s [00:52:57.807] } 1577s [00:52:57.807] invisible(muffled) 1577s [00:52:57.807] } 1577s [00:52:57.807] muffleCondition(cond, pattern = "^muffle") 1577s [00:52:57.807] } 1577s [00:52:57.807] } 1577s [00:52:57.807] else { 1577s [00:52:57.807] if (TRUE) { 1577s [00:52:57.807] muffleCondition <- function (cond, pattern = "^muffle") 1577s [00:52:57.807] { 1577s [00:52:57.807] inherits <- base::inherits 1577s [00:52:57.807] invokeRestart <- base::invokeRestart 1577s [00:52:57.807] is.null <- base::is.null 1577s [00:52:57.807] muffled <- FALSE 1577s [00:52:57.807] if (inherits(cond, "message")) { 1577s [00:52:57.807] muffled <- grepl(pattern, "muffleMessage") 1577s [00:52:57.807] if (muffled) 1577s [00:52:57.807] invokeRestart("muffleMessage") 1577s [00:52:57.807] } 1577s [00:52:57.807] else if (inherits(cond, "warning")) { 1577s [00:52:57.807] muffled <- grepl(pattern, "muffleWarning") 1577s [00:52:57.807] if (muffled) 1577s [00:52:57.807] invokeRestart("muffleWarning") 1577s [00:52:57.807] } 1577s [00:52:57.807] else if (inherits(cond, "condition")) { 1577s [00:52:57.807] if (!is.null(pattern)) { 1577s [00:52:57.807] computeRestarts <- base::computeRestarts 1577s [00:52:57.807] grepl <- base::grepl 1577s [00:52:57.807] restarts <- computeRestarts(cond) 1577s [00:52:57.807] for (restart in restarts) { 1577s [00:52:57.807] name <- restart$name 1577s [00:52:57.807] if (is.null(name)) 1577s [00:52:57.807] next 1577s [00:52:57.807] if (!grepl(pattern, name)) 1577s [00:52:57.807] next 1577s [00:52:57.807] invokeRestart(restart) 1577s [00:52:57.807] muffled <- TRUE 1577s [00:52:57.807] break 1577s [00:52:57.807] } 1577s [00:52:57.807] } 1577s [00:52:57.807] } 1577s [00:52:57.807] invisible(muffled) 1577s [00:52:57.807] } 1577s [00:52:57.807] muffleCondition(cond, pattern = "^muffle") 1577s [00:52:57.807] } 1577s [00:52:57.807] } 1577s [00:52:57.807] } 1577s [00:52:57.807] })) 1577s [00:52:57.807] }, error = function(ex) { 1577s [00:52:57.807] base::structure(base::list(value = NULL, visible = NULL, 1577s [00:52:57.807] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1577s [00:52:57.807] ...future.rng), started = ...future.startTime, 1577s [00:52:57.807] finished = Sys.time(), session_uuid = NA_character_, 1577s [00:52:57.807] version = "1.8"), class = "FutureResult") 1577s [00:52:57.807] }, finally = { 1577s [00:52:57.807] if (!identical(...future.workdir, getwd())) 1577s [00:52:57.807] setwd(...future.workdir) 1577s [00:52:57.807] { 1577s [00:52:57.807] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1577s [00:52:57.807] ...future.oldOptions$nwarnings <- NULL 1577s [00:52:57.807] } 1577s [00:52:57.807] base::options(...future.oldOptions) 1577s [00:52:57.807] if (.Platform$OS.type == "windows") { 1577s [00:52:57.807] old_names <- names(...future.oldEnvVars) 1577s [00:52:57.807] envs <- base::Sys.getenv() 1577s [00:52:57.807] names <- names(envs) 1577s [00:52:57.807] common <- intersect(names, old_names) 1577s [00:52:57.807] added <- setdiff(names, old_names) 1577s [00:52:57.807] removed <- setdiff(old_names, names) 1577s [00:52:57.807] changed <- common[...future.oldEnvVars[common] != 1577s [00:52:57.807] envs[common]] 1577s [00:52:57.807] NAMES <- toupper(changed) 1577s [00:52:57.807] args <- list() 1577s [00:52:57.807] for (kk in seq_along(NAMES)) { 1577s [00:52:57.807] name <- changed[[kk]] 1577s [00:52:57.807] NAME <- NAMES[[kk]] 1577s [00:52:57.807] if (name != NAME && is.element(NAME, old_names)) 1577s [00:52:57.807] next 1577s [00:52:57.807] args[[name]] <- ...future.oldEnvVars[[name]] 1577s [00:52:57.807] } 1577s [00:52:57.807] NAMES <- toupper(added) 1577s [00:52:57.807] for (kk in seq_along(NAMES)) { 1577s [00:52:57.807] name <- added[[kk]] 1577s [00:52:57.807] NAME <- NAMES[[kk]] 1577s [00:52:57.807] if (name != NAME && is.element(NAME, old_names)) 1577s [00:52:57.807] next 1577s [00:52:57.807] args[[name]] <- "" 1577s [00:52:57.807] } 1577s [00:52:57.807] NAMES <- toupper(removed) 1577s [00:52:57.807] for (kk in seq_along(NAMES)) { 1577s [00:52:57.807] name <- removed[[kk]] 1577s [00:52:57.807] NAME <- NAMES[[kk]] 1577s [00:52:57.807] if (name != NAME && is.element(NAME, old_names)) 1577s [00:52:57.807] next 1577s [00:52:57.807] args[[name]] <- ...future.oldEnvVars[[name]] 1577s [00:52:57.807] } 1577s [00:52:57.807] if (length(args) > 0) 1577s [00:52:57.807] base::do.call(base::Sys.setenv, args = args) 1577s [00:52:57.807] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1577s [00:52:57.807] } 1577s [00:52:57.807] else { 1577s [00:52:57.807] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1577s [00:52:57.807] } 1577s [00:52:57.807] { 1577s [00:52:57.807] if (base::length(...future.futureOptionsAdded) > 1577s [00:52:57.807] 0L) { 1577s [00:52:57.807] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1577s [00:52:57.807] base::names(opts) <- ...future.futureOptionsAdded 1577s [00:52:57.807] base::options(opts) 1577s [00:52:57.807] } 1577s [00:52:57.807] { 1577s [00:52:57.807] { 1577s [00:52:57.807] NULL 1577s [00:52:57.807] RNGkind("Mersenne-Twister") 1577s [00:52:57.807] base::rm(list = ".Random.seed", envir = base::globalenv(), 1577s [00:52:57.807] inherits = FALSE) 1577s [00:52:57.807] } 1577s [00:52:57.807] options(future.plan = NULL) 1577s [00:52:57.807] if (is.na(NA_character_)) 1577s [00:52:57.807] Sys.unsetenv("R_FUTURE_PLAN") 1577s [00:52:57.807] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1577s [00:52:57.807] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1577s [00:52:57.807] envir = parent.frame()) 1577s [00:52:57.807] { 1577s [00:52:57.807] default_workers <- missing(workers) 1577s [00:52:57.807] if (is.function(workers)) 1577s [00:52:57.807] workers <- workers() 1577s [00:52:57.807] workers <- structure(as.integer(workers), 1577s [00:52:57.807] class = class(workers)) 1577s [00:52:57.807] stop_if_not(is.finite(workers), workers >= 1577s [00:52:57.807] 1L) 1577s [00:52:57.807] if ((workers == 1L && !inherits(workers, 1577s [00:52:57.807] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1577s [00:52:57.807] if (default_workers) 1577s [00:52:57.807] supportsMulticore(warn = TRUE) 1577s [00:52:57.807] return(sequential(..., envir = envir)) 1577s [00:52:57.807] } 1577s [00:52:57.807] oopts <- options(mc.cores = workers) 1577s [00:52:57.807] on.exit(options(oopts)) 1577s [00:52:57.807] future <- MulticoreFuture(..., workers = workers, 1577s [00:52:57.807] envir = envir) 1577s [00:52:57.807] if (!future$lazy) 1577s [00:52:57.807] future <- run(future) 1577s [00:52:57.807] invisible(future) 1577s [00:52:57.807] }), .cleanup = FALSE, .init = FALSE) 1577s [00:52:57.807] } 1577s [00:52:57.807] } 1577s [00:52:57.807] } 1577s [00:52:57.807] }) 1577s [00:52:57.807] if (TRUE) { 1577s [00:52:57.807] base::sink(type = "output", split = FALSE) 1577s [00:52:57.807] if (TRUE) { 1577s [00:52:57.807] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1577s [00:52:57.807] } 1577s [00:52:57.807] else { 1577s [00:52:57.807] ...future.result["stdout"] <- base::list(NULL) 1577s [00:52:57.807] } 1577s [00:52:57.807] base::close(...future.stdout) 1577s [00:52:57.807] ...future.stdout <- NULL 1577s [00:52:57.807] } 1577s [00:52:57.807] ...future.result$conditions <- ...future.conditions 1577s [00:52:57.807] ...future.result$finished <- base::Sys.time() 1577s [00:52:57.807] ...future.result 1577s [00:52:57.807] } 1577s [00:52:57.813] assign_globals() ... 1577s [00:52:57.813] List of 5 1577s [00:52:57.813] $ ...future.FUN :function (x) 1577s [00:52:57.813] $ future.call.arguments : list() 1577s [00:52:57.813] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1577s [00:52:57.813] $ ...future.elements_ii :List of 4 1577s [00:52:57.813] ..$ A: num 50 1577s [00:52:57.813] ..$ B: num 60 1577s [00:52:57.813] ..$ C: num 70 1577s [00:52:57.813] ..$ D: num 80 1577s [00:52:57.813] $ ...future.seeds_ii : NULL 1577s [00:52:57.813] $ ...future.globals.maxSize: NULL 1577s [00:52:57.813] - attr(*, "where")=List of 5 1577s [00:52:57.813] ..$ ...future.FUN : 1577s [00:52:57.813] ..$ future.call.arguments : 1577s [00:52:57.813] ..$ ...future.elements_ii : 1577s [00:52:57.813] ..$ ...future.seeds_ii : 1577s [00:52:57.813] ..$ ...future.globals.maxSize: 1577s [00:52:57.813] - attr(*, "resolved")= logi FALSE 1577s [00:52:57.813] - attr(*, "total_size")= num 848 1577s [00:52:57.813] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1577s [00:52:57.813] - attr(*, "already-done")= logi TRUE 1577s [00:52:57.823] - copied ‘...future.FUN’ to environment 1577s [00:52:57.823] - copied ‘future.call.arguments’ to environment 1577s [00:52:57.823] - copied ‘...future.elements_ii’ to environment 1577s [00:52:57.824] - copied ‘...future.seeds_ii’ to environment 1577s [00:52:57.824] - copied ‘...future.globals.maxSize’ to environment 1577s [00:52:57.824] assign_globals() ... done 1577s [00:52:57.825] plan(): Setting new future strategy stack: 1577s [00:52:57.825] List of future strategies: 1577s [00:52:57.825] 1. sequential: 1577s [00:52:57.825] - args: function (..., envir = parent.frame()) 1577s [00:52:57.825] - tweaked: FALSE 1577s [00:52:57.825] - call: NULL 1577s [00:52:57.826] plan(): nbrOfWorkers() = 1 1577s [00:52:57.827] plan(): Setting new future strategy stack: 1577s [00:52:57.828] List of future strategies: 1577s [00:52:57.828] 1. multicore: 1577s [00:52:57.828] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1577s [00:52:57.828] - tweaked: FALSE 1577s [00:52:57.828] - call: plan(strategy) 1577s [00:52:57.833] plan(): nbrOfWorkers() = 1 1577s [00:52:57.833] SequentialFuture started (and completed) 1577s [00:52:57.834] - Launch lazy future ... done 1577s [00:52:57.834] run() for ‘SequentialFuture’ ... done 1577s [00:52:57.834] Created future: 1577s [00:52:57.834] SequentialFuture: 1577s [00:52:57.834] Label: ‘future_sapply-1’ 1577s [00:52:57.834] Expression: 1577s [00:52:57.834] { 1577s [00:52:57.834] do.call(function(...) { 1577s [00:52:57.834] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1577s [00:52:57.834] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1577s [00:52:57.834] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1577s [00:52:57.834] on.exit(options(oopts), add = TRUE) 1577s [00:52:57.834] } 1577s [00:52:57.834] { 1577s [00:52:57.834] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1577s [00:52:57.834] ...future.X_jj <- ...future.elements_ii[[jj]] 1577s [00:52:57.834] ...future.FUN(...future.X_jj, ...) 1577s [00:52:57.834] }) 1577s [00:52:57.834] } 1577s [00:52:57.834] }, args = future.call.arguments) 1577s [00:52:57.834] } 1577s [00:52:57.834] Lazy evaluation: FALSE 1577s [00:52:57.834] Asynchronous evaluation: FALSE 1577s [00:52:57.834] Local evaluation: TRUE 1577s [00:52:57.834] Environment: R_GlobalEnv 1577s [00:52:57.834] Capture standard output: TRUE 1577s [00:52:57.834] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1577s [00:52:57.834] Globals: 5 objects totaling 1.05 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1577s [00:52:57.834] Packages: 1577s [00:52:57.834] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1577s [00:52:57.834] Resolved: TRUE 1577s [00:52:57.834] Value: 224 bytes of class ‘list’ 1577s [00:52:57.834] Early signaling: FALSE 1577s [00:52:57.834] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1577s [00:52:57.834] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1577s [00:52:57.837] Chunk #1 of 1 ... DONE 1577s [00:52:57.837] Launching 1 futures (chunks) ... DONE 1577s [00:52:57.837] Resolving 1 futures (chunks) ... 1577s [00:52:57.837] resolve() on list ... 1577s [00:52:57.837] recursive: 0 1577s [00:52:57.837] length: 1 1577s [00:52:57.837] 1577s [00:52:57.837] resolved() for ‘SequentialFuture’ ... 1577s [00:52:57.838] - state: ‘finished’ 1577s [00:52:57.838] - run: TRUE 1577s [00:52:57.838] - result: ‘FutureResult’ 1577s [00:52:57.838] resolved() for ‘SequentialFuture’ ... done 1577s [00:52:57.838] Future #1 1577s [00:52:57.838] signalConditionsASAP(SequentialFuture, pos=1) ... 1577s [00:52:57.838] - nx: 1 1577s [00:52:57.838] - relay: TRUE 1577s [00:52:57.839] - stdout: TRUE 1577s [00:52:57.839] - signal: TRUE 1577s [00:52:57.839] - resignal: FALSE 1577s [00:52:57.839] - force: TRUE 1577s [00:52:57.839] - relayed: [n=1] FALSE 1577s [00:52:57.839] - queued futures: [n=1] FALSE 1577s [00:52:57.840] - until=1 1577s [00:52:57.840] - relaying element #1 1577s [00:52:57.840] - relayed: [n=1] TRUE 1577s [00:52:57.840] - queued futures: [n=1] TRUE 1577s [00:52:57.841] signalConditionsASAP(SequentialFuture, pos=1) ... done 1577s [00:52:57.841] length: 0 (resolved future 1) 1577s [00:52:57.841] Relaying remaining futures 1577s [00:52:57.841] signalConditionsASAP(NULL, pos=0) ... 1577s [00:52:57.842] - nx: 1 1577s [00:52:57.842] - relay: TRUE 1577s [00:52:57.842] - stdout: TRUE 1577s [00:52:57.842] - signal: TRUE 1577s [00:52:57.842] - resignal: FALSE 1577s [00:52:57.842] - force: TRUE 1577s [00:52:57.842] - relayed: [n=1] TRUE 1577s [00:52:57.843] - queued futures: [n=1] TRUE 1577s - flush all 1577s [00:52:57.843] - relayed: [n=1] TRUE 1577s [00:52:57.843] - queued futures: [n=1] TRUE 1577s [00:52:57.844] signalConditionsASAP(NULL, pos=0) ... done 1577s [00:52:57.844] resolve() on list ... DONE 1577s [00:52:57.844] - Number of value chunks collected: 1 1577s [00:52:57.844] Resolving 1 futures (chunks) ... DONE 1577s [00:52:57.844] Reducing values from 1 chunks ... 1577s [00:52:57.845] - Number of values collected after concatenation: 4 1577s [00:52:57.845] - Number of values expected: 4 1577s [00:52:57.845] Reducing values from 1 chunks ... DONE 1577s [00:52:57.845] future_lapply() ... DONE 1577s List of 2 1577s $ y0: Named num [1:4] 50 60 70 80 1577s ..- attr(*, "names")= chr [1:4] "A" "B" "C" "D" 1577s $ y1: Named num [1:4] 50 60 70 80 1577s ..- attr(*, "names")= chr [1:4] "A" "B" "C" "D" 1577s [00:52:57.848] future_lapply() ... 1577s [00:52:57.853] Number of chunks: 1 1577s [00:52:57.853] getGlobalsAndPackagesXApply() ... 1577s [00:52:57.853] - future.globals: TRUE 1577s [00:52:57.854] getGlobalsAndPackages() ... 1577s [00:52:57.854] Searching for globals... 1577s [00:52:57.856] - globals found: [2] ‘FUN’, ‘UseMethod’ 1577s [00:52:57.856] Searching for globals ... DONE 1577s [00:52:57.856] Resolving globals: FALSE 1577s [00:52:57.857] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1577s [00:52:57.858] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1577s [00:52:57.858] - globals: [1] ‘FUN’ 1577s [00:52:57.858] 1577s [00:52:57.858] getGlobalsAndPackages() ... DONE 1577s [00:52:57.858] - globals found/used: [n=1] ‘FUN’ 1577s [00:52:57.859] - needed namespaces: [n=0] 1577s [00:52:57.859] Finding globals ... DONE 1577s [00:52:57.859] - use_args: TRUE 1577s [00:52:57.859] - Getting '...' globals ... 1577s [00:52:57.859] resolve() on list ... 1577s [00:52:57.860] recursive: 0 1577s [00:52:57.860] length: 1 1577s [00:52:57.860] elements: ‘...’ 1577s [00:52:57.860] length: 0 (resolved future 1) 1577s [00:52:57.861] resolve() on list ... DONE 1577s [00:52:57.861] - '...' content: [n=0] 1577s [00:52:57.861] List of 1 1577s [00:52:57.861] $ ...: list() 1577s [00:52:57.861] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1577s [00:52:57.861] - attr(*, "where")=List of 1 1577s [00:52:57.861] ..$ ...: 1577s [00:52:57.861] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1577s [00:52:57.861] - attr(*, "resolved")= logi TRUE 1577s [00:52:57.861] - attr(*, "total_size")= num NA 1577s [00:52:57.866] - Getting '...' globals ... DONE 1577s [00:52:57.866] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1577s [00:52:57.866] List of 2 1577s [00:52:57.866] $ ...future.FUN:function (x, ...) 1577s [00:52:57.866] $ ... : list() 1577s [00:52:57.866] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1577s [00:52:57.866] - attr(*, "where")=List of 2 1577s [00:52:57.866] ..$ ...future.FUN: 1577s [00:52:57.866] ..$ ... : 1577s [00:52:57.866] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1577s [00:52:57.866] - attr(*, "resolved")= logi FALSE 1577s [00:52:57.866] - attr(*, "total_size")= num 1248 1577s [00:52:57.871] Packages to be attached in all futures: [n=0] 1577s [00:52:57.871] getGlobalsAndPackagesXApply() ... DONE 1577s [00:52:57.872] Number of futures (= number of chunks): 1 1577s [00:52:57.872] Launching 1 futures (chunks) ... 1577s [00:52:57.872] Chunk #1 of 1 ... 1577s [00:52:57.872] - Finding globals in 'X' for chunk #1 ... 1577s [00:52:57.872] getGlobalsAndPackages() ... 1577s [00:52:57.873] Searching for globals... 1577s [00:52:57.873] 1577s [00:52:57.873] Searching for globals ... DONE 1577s [00:52:57.874] - globals: [0] 1577s [00:52:57.874] getGlobalsAndPackages() ... DONE 1577s [00:52:57.874] + additional globals found: [n=0] 1577s [00:52:57.874] + additional namespaces needed: [n=0] 1577s [00:52:57.874] - Finding globals in 'X' for chunk #1 ... DONE 1577s [00:52:57.874] - seeds: 1577s [00:52:57.875] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1577s [00:52:57.875] getGlobalsAndPackages() ... 1577s [00:52:57.875] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1577s [00:52:57.875] Resolving globals: FALSE 1577s [00:52:57.875] Tweak future expression to call with '...' arguments ... 1577s [00:52:57.876] { 1577s [00:52:57.876] do.call(function(...) { 1577s [00:52:57.876] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1577s [00:52:57.876] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1577s [00:52:57.876] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1577s [00:52:57.876] on.exit(options(oopts), add = TRUE) 1577s [00:52:57.876] } 1577s [00:52:57.876] { 1577s [00:52:57.876] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1577s [00:52:57.876] ...future.X_jj <- ...future.elements_ii[[jj]] 1577s [00:52:57.876] ...future.FUN(...future.X_jj, ...) 1577s [00:52:57.876] }) 1577s [00:52:57.876] } 1577s [00:52:57.876] }, args = future.call.arguments) 1577s [00:52:57.876] } 1577s [00:52:57.876] Tweak future expression to call with '...' arguments ... DONE 1577s [00:52:57.877] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1577s [00:52:57.877] 1577s [00:52:57.877] getGlobalsAndPackages() ... DONE 1577s [00:52:57.878] run() for ‘Future’ ... 1577s [00:52:57.878] - state: ‘created’ 1577s [00:52:57.878] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1577s [00:52:57.883] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1577s [00:52:57.883] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1577s [00:52:57.883] - Field: ‘label’ 1577s [00:52:57.883] - Field: ‘local’ 1577s [00:52:57.883] - Field: ‘owner’ 1577s [00:52:57.884] - Field: ‘envir’ 1577s [00:52:57.884] - Field: ‘packages’ 1577s [00:52:57.884] - Field: ‘gc’ 1577s [00:52:57.884] - Field: ‘conditions’ 1577s [00:52:57.884] - Field: ‘expr’ 1577s [00:52:57.885] - Field: ‘uuid’ 1577s [00:52:57.885] - Field: ‘seed’ 1577s [00:52:57.885] - Field: ‘version’ 1577s [00:52:57.885] - Field: ‘result’ 1577s [00:52:57.885] - Field: ‘asynchronous’ 1577s [00:52:57.886] - Field: ‘calls’ 1577s [00:52:57.886] - Field: ‘globals’ 1577s [00:52:57.886] - Field: ‘stdout’ 1577s [00:52:57.886] - Field: ‘earlySignal’ 1577s [00:52:57.886] - Field: ‘lazy’ 1577s [00:52:57.886] - Field: ‘state’ 1577s [00:52:57.886] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1577s [00:52:57.887] - Launch lazy future ... 1577s [00:52:57.887] Packages needed by the future expression (n = 0): 1577s [00:52:57.887] Packages needed by future strategies (n = 0): 1577s [00:52:57.888] { 1577s [00:52:57.888] { 1577s [00:52:57.888] { 1577s [00:52:57.888] ...future.startTime <- base::Sys.time() 1577s [00:52:57.888] { 1577s [00:52:57.888] { 1577s [00:52:57.888] { 1577s [00:52:57.888] base::local({ 1577s [00:52:57.888] has_future <- base::requireNamespace("future", 1577s [00:52:57.888] quietly = TRUE) 1577s [00:52:57.888] if (has_future) { 1577s [00:52:57.888] ns <- base::getNamespace("future") 1577s [00:52:57.888] version <- ns[[".package"]][["version"]] 1577s [00:52:57.888] if (is.null(version)) 1577s [00:52:57.888] version <- utils::packageVersion("future") 1577s [00:52:57.888] } 1577s [00:52:57.888] else { 1577s [00:52:57.888] version <- NULL 1577s [00:52:57.888] } 1577s [00:52:57.888] if (!has_future || version < "1.8.0") { 1577s [00:52:57.888] info <- base::c(r_version = base::gsub("R version ", 1577s [00:52:57.888] "", base::R.version$version.string), 1577s [00:52:57.888] platform = base::sprintf("%s (%s-bit)", 1577s [00:52:57.888] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1577s [00:52:57.888] os = base::paste(base::Sys.info()[base::c("sysname", 1577s [00:52:57.888] "release", "version")], collapse = " "), 1577s [00:52:57.888] hostname = base::Sys.info()[["nodename"]]) 1577s [00:52:57.888] info <- base::sprintf("%s: %s", base::names(info), 1577s [00:52:57.888] info) 1577s [00:52:57.888] info <- base::paste(info, collapse = "; ") 1577s [00:52:57.888] if (!has_future) { 1577s [00:52:57.888] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1577s [00:52:57.888] info) 1577s [00:52:57.888] } 1577s [00:52:57.888] else { 1577s [00:52:57.888] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1577s [00:52:57.888] info, version) 1577s [00:52:57.888] } 1577s [00:52:57.888] base::stop(msg) 1577s [00:52:57.888] } 1577s [00:52:57.888] }) 1577s [00:52:57.888] } 1577s [00:52:57.888] options(future.plan = NULL) 1577s [00:52:57.888] Sys.unsetenv("R_FUTURE_PLAN") 1577s [00:52:57.888] future::plan("default", .cleanup = FALSE, .init = FALSE) 1577s [00:52:57.888] } 1577s [00:52:57.888] ...future.workdir <- getwd() 1577s [00:52:57.888] } 1577s [00:52:57.888] ...future.oldOptions <- base::as.list(base::.Options) 1577s [00:52:57.888] ...future.oldEnvVars <- base::Sys.getenv() 1577s [00:52:57.888] } 1577s [00:52:57.888] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1577s [00:52:57.888] future.globals.maxSize = NULL, future.globals.method = NULL, 1577s [00:52:57.888] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1577s [00:52:57.888] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1577s [00:52:57.888] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1577s [00:52:57.888] future.stdout.windows.reencode = NULL, width = 80L) 1577s [00:52:57.888] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1577s [00:52:57.888] base::names(...future.oldOptions)) 1577s [00:52:57.888] } 1577s [00:52:57.888] if (FALSE) { 1577s [00:52:57.888] } 1577s [00:52:57.888] else { 1577s [00:52:57.888] if (TRUE) { 1577s [00:52:57.888] ...future.stdout <- base::rawConnection(base::raw(0L), 1577s [00:52:57.888] open = "w") 1577s [00:52:57.888] } 1577s [00:52:57.888] else { 1577s [00:52:57.888] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1577s [00:52:57.888] windows = "NUL", "/dev/null"), open = "w") 1577s [00:52:57.888] } 1577s [00:52:57.888] base::sink(...future.stdout, type = "output", split = FALSE) 1577s [00:52:57.888] base::on.exit(if (!base::is.null(...future.stdout)) { 1577s [00:52:57.888] base::sink(type = "output", split = FALSE) 1577s [00:52:57.888] base::close(...future.stdout) 1577s [00:52:57.888] }, add = TRUE) 1577s [00:52:57.888] } 1577s [00:52:57.888] ...future.frame <- base::sys.nframe() 1577s [00:52:57.888] ...future.conditions <- base::list() 1577s [00:52:57.888] ...future.rng <- base::globalenv()$.Random.seed 1577s [00:52:57.888] if (FALSE) { 1577s [00:52:57.888] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1577s [00:52:57.888] "...future.value", "...future.globalenv.names", ".Random.seed") 1577s [00:52:57.888] } 1577s [00:52:57.888] ...future.result <- base::tryCatch({ 1577s [00:52:57.888] base::withCallingHandlers({ 1577s [00:52:57.888] ...future.value <- base::withVisible(base::local({ 1577s [00:52:57.888] do.call(function(...) { 1577s [00:52:57.888] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1577s [00:52:57.888] if (!identical(...future.globals.maxSize.org, 1577s [00:52:57.888] ...future.globals.maxSize)) { 1577s [00:52:57.888] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1577s [00:52:57.888] on.exit(options(oopts), add = TRUE) 1577s [00:52:57.888] } 1577s [00:52:57.888] { 1577s [00:52:57.888] lapply(seq_along(...future.elements_ii), 1577s [00:52:57.888] FUN = function(jj) { 1577s [00:52:57.888] ...future.X_jj <- ...future.elements_ii[[jj]] 1577s [00:52:57.888] ...future.FUN(...future.X_jj, ...) 1577s [00:52:57.888] }) 1577s [00:52:57.888] } 1577s [00:52:57.888] }, args = future.call.arguments) 1577s [00:52:57.888] })) 1577s [00:52:57.888] future::FutureResult(value = ...future.value$value, 1577s [00:52:57.888] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1577s [00:52:57.888] ...future.rng), globalenv = if (FALSE) 1577s [00:52:57.888] list(added = base::setdiff(base::names(base::.GlobalEnv), 1577s [00:52:57.888] ...future.globalenv.names)) 1577s [00:52:57.888] else NULL, started = ...future.startTime, version = "1.8") 1577s [00:52:57.888] }, condition = base::local({ 1577s [00:52:57.888] c <- base::c 1577s [00:52:57.888] inherits <- base::inherits 1577s [00:52:57.888] invokeRestart <- base::invokeRestart 1577s [00:52:57.888] length <- base::length 1577s [00:52:57.888] list <- base::list 1577s [00:52:57.888] seq.int <- base::seq.int 1577s [00:52:57.888] signalCondition <- base::signalCondition 1577s [00:52:57.888] sys.calls <- base::sys.calls 1577s [00:52:57.888] `[[` <- base::`[[` 1577s [00:52:57.888] `+` <- base::`+` 1577s [00:52:57.888] `<<-` <- base::`<<-` 1577s [00:52:57.888] sysCalls <- function(calls = sys.calls(), from = 1L) { 1577s [00:52:57.888] calls[seq.int(from = from + 12L, to = length(calls) - 1577s [00:52:57.888] 3L)] 1577s [00:52:57.888] } 1577s [00:52:57.888] function(cond) { 1577s [00:52:57.888] is_error <- inherits(cond, "error") 1577s [00:52:57.888] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1577s [00:52:57.888] NULL) 1577s [00:52:57.888] if (is_error) { 1577s [00:52:57.888] sessionInformation <- function() { 1577s [00:52:57.888] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1577s [00:52:57.888] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1577s [00:52:57.888] search = base::search(), system = base::Sys.info()) 1577s [00:52:57.888] } 1577s [00:52:57.888] ...future.conditions[[length(...future.conditions) + 1577s [00:52:57.888] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1577s [00:52:57.888] cond$call), session = sessionInformation(), 1577s [00:52:57.888] timestamp = base::Sys.time(), signaled = 0L) 1577s [00:52:57.888] signalCondition(cond) 1577s [00:52:57.888] } 1577s [00:52:57.888] else if (!ignore && TRUE && inherits(cond, c("condition", 1577s [00:52:57.888] "immediateCondition"))) { 1577s [00:52:57.888] signal <- TRUE && inherits(cond, "immediateCondition") 1577s [00:52:57.888] ...future.conditions[[length(...future.conditions) + 1577s [00:52:57.888] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1577s [00:52:57.888] if (TRUE && !signal) { 1577s [00:52:57.888] muffleCondition <- function (cond, pattern = "^muffle") 1577s [00:52:57.888] { 1577s [00:52:57.888] inherits <- base::inherits 1577s [00:52:57.888] invokeRestart <- base::invokeRestart 1577s [00:52:57.888] is.null <- base::is.null 1577s [00:52:57.888] muffled <- FALSE 1577s [00:52:57.888] if (inherits(cond, "message")) { 1577s [00:52:57.888] muffled <- grepl(pattern, "muffleMessage") 1577s [00:52:57.888] if (muffled) 1577s [00:52:57.888] invokeRestart("muffleMessage") 1577s [00:52:57.888] } 1577s [00:52:57.888] else if (inherits(cond, "warning")) { 1577s [00:52:57.888] muffled <- grepl(pattern, "muffleWarning") 1577s [00:52:57.888] if (muffled) 1577s [00:52:57.888] invokeRestart("muffleWarning") 1577s [00:52:57.888] } 1577s [00:52:57.888] else if (inherits(cond, "condition")) { 1577s [00:52:57.888] if (!is.null(pattern)) { 1577s [00:52:57.888] computeRestarts <- base::computeRestarts 1577s [00:52:57.888] grepl <- base::grepl 1577s [00:52:57.888] restarts <- computeRestarts(cond) 1577s [00:52:57.888] for (restart in restarts) { 1577s [00:52:57.888] name <- restart$name 1577s [00:52:57.888] if (is.null(name)) 1577s [00:52:57.888] next 1577s [00:52:57.888] if (!grepl(pattern, name)) 1577s [00:52:57.888] next 1577s [00:52:57.888] invokeRestart(restart) 1577s [00:52:57.888] muffled <- TRUE 1577s [00:52:57.888] break 1577s [00:52:57.888] } 1577s [00:52:57.888] } 1577s [00:52:57.888] } 1577s [00:52:57.888] invisible(muffled) 1577s [00:52:57.888] } 1577s [00:52:57.888] muffleCondition(cond, pattern = "^muffle") 1577s [00:52:57.888] } 1577s [00:52:57.888] } 1577s [00:52:57.888] else { 1577s [00:52:57.888] if (TRUE) { 1577s [00:52:57.888] muffleCondition <- function (cond, pattern = "^muffle") 1577s [00:52:57.888] { 1577s [00:52:57.888] inherits <- base::inherits 1577s [00:52:57.888] invokeRestart <- base::invokeRestart 1577s [00:52:57.888] is.null <- base::is.null 1577s [00:52:57.888] muffled <- FALSE 1577s [00:52:57.888] if (inherits(cond, "message")) { 1577s [00:52:57.888] muffled <- grepl(pattern, "muffleMessage") 1577s [00:52:57.888] if (muffled) 1577s [00:52:57.888] invokeRestart("muffleMessage") 1577s [00:52:57.888] } 1577s [00:52:57.888] else if (inherits(cond, "warning")) { 1577s [00:52:57.888] muffled <- grepl(pattern, "muffleWarning") 1577s [00:52:57.888] if (muffled) 1577s [00:52:57.888] invokeRestart("muffleWarning") 1577s [00:52:57.888] } 1577s [00:52:57.888] else if (inherits(cond, "condition")) { 1577s [00:52:57.888] if (!is.null(pattern)) { 1577s [00:52:57.888] computeRestarts <- base::computeRestarts 1577s [00:52:57.888] grepl <- base::grepl 1577s [00:52:57.888] restarts <- computeRestarts(cond) 1577s [00:52:57.888] for (restart in restarts) { 1577s [00:52:57.888] name <- restart$name 1577s [00:52:57.888] if (is.null(name)) 1577s [00:52:57.888] next 1577s [00:52:57.888] if (!grepl(pattern, name)) 1577s [00:52:57.888] next 1577s [00:52:57.888] invokeRestart(restart) 1577s [00:52:57.888] muffled <- TRUE 1577s [00:52:57.888] break 1577s [00:52:57.888] } 1577s [00:52:57.888] } 1577s [00:52:57.888] } 1577s [00:52:57.888] invisible(muffled) 1577s [00:52:57.888] } 1577s [00:52:57.888] muffleCondition(cond, pattern = "^muffle") 1577s [00:52:57.888] } 1577s [00:52:57.888] } 1577s [00:52:57.888] } 1577s [00:52:57.888] })) 1577s [00:52:57.888] }, error = function(ex) { 1577s [00:52:57.888] base::structure(base::list(value = NULL, visible = NULL, 1577s [00:52:57.888] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1577s [00:52:57.888] ...future.rng), started = ...future.startTime, 1577s [00:52:57.888] finished = Sys.time(), session_uuid = NA_character_, 1577s [00:52:57.888] version = "1.8"), class = "FutureResult") 1577s [00:52:57.888] }, finally = { 1577s [00:52:57.888] if (!identical(...future.workdir, getwd())) 1577s [00:52:57.888] setwd(...future.workdir) 1577s [00:52:57.888] { 1577s [00:52:57.888] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1577s [00:52:57.888] ...future.oldOptions$nwarnings <- NULL 1577s [00:52:57.888] } 1577s [00:52:57.888] base::options(...future.oldOptions) 1577s [00:52:57.888] if (.Platform$OS.type == "windows") { 1577s [00:52:57.888] old_names <- names(...future.oldEnvVars) 1577s [00:52:57.888] envs <- base::Sys.getenv() 1577s [00:52:57.888] names <- names(envs) 1577s [00:52:57.888] common <- intersect(names, old_names) 1577s [00:52:57.888] added <- setdiff(names, old_names) 1577s [00:52:57.888] removed <- setdiff(old_names, names) 1577s [00:52:57.888] changed <- common[...future.oldEnvVars[common] != 1577s [00:52:57.888] envs[common]] 1577s [00:52:57.888] NAMES <- toupper(changed) 1577s [00:52:57.888] args <- list() 1577s [00:52:57.888] for (kk in seq_along(NAMES)) { 1577s [00:52:57.888] name <- changed[[kk]] 1577s [00:52:57.888] NAME <- NAMES[[kk]] 1577s [00:52:57.888] if (name != NAME && is.element(NAME, old_names)) 1577s [00:52:57.888] next 1577s [00:52:57.888] args[[name]] <- ...future.oldEnvVars[[name]] 1577s [00:52:57.888] } 1577s [00:52:57.888] NAMES <- toupper(added) 1577s [00:52:57.888] for (kk in seq_along(NAMES)) { 1577s [00:52:57.888] name <- added[[kk]] 1577s [00:52:57.888] NAME <- NAMES[[kk]] 1577s [00:52:57.888] if (name != NAME && is.element(NAME, old_names)) 1577s [00:52:57.888] next 1577s [00:52:57.888] args[[name]] <- "" 1577s [00:52:57.888] } 1577s [00:52:57.888] NAMES <- toupper(removed) 1577s [00:52:57.888] for (kk in seq_along(NAMES)) { 1577s [00:52:57.888] name <- removed[[kk]] 1577s [00:52:57.888] NAME <- NAMES[[kk]] 1577s [00:52:57.888] if (name != NAME && is.element(NAME, old_names)) 1577s [00:52:57.888] next 1577s [00:52:57.888] args[[name]] <- ...future.oldEnvVars[[name]] 1577s [00:52:57.888] } 1577s [00:52:57.888] if (length(args) > 0) 1577s [00:52:57.888] base::do.call(base::Sys.setenv, args = args) 1577s [00:52:57.888] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1577s [00:52:57.888] } 1577s [00:52:57.888] else { 1577s [00:52:57.888] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1577s [00:52:57.888] } 1577s [00:52:57.888] { 1577s [00:52:57.888] if (base::length(...future.futureOptionsAdded) > 1577s [00:52:57.888] 0L) { 1577s [00:52:57.888] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1577s [00:52:57.888] base::names(opts) <- ...future.futureOptionsAdded 1577s [00:52:57.888] base::options(opts) 1577s [00:52:57.888] } 1577s [00:52:57.888] { 1577s [00:52:57.888] { 1577s [00:52:57.888] NULL 1577s [00:52:57.888] RNGkind("Mersenne-Twister") 1577s [00:52:57.888] base::rm(list = ".Random.seed", envir = base::globalenv(), 1577s [00:52:57.888] inherits = FALSE) 1577s [00:52:57.888] } 1577s [00:52:57.888] options(future.plan = NULL) 1577s [00:52:57.888] if (is.na(NA_character_)) 1577s [00:52:57.888] Sys.unsetenv("R_FUTURE_PLAN") 1577s [00:52:57.888] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1577s [00:52:57.888] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1577s [00:52:57.888] envir = parent.frame()) 1577s [00:52:57.888] { 1577s [00:52:57.888] default_workers <- missing(workers) 1577s [00:52:57.888] if (is.function(workers)) 1577s [00:52:57.888] workers <- workers() 1577s [00:52:57.888] workers <- structure(as.integer(workers), 1577s [00:52:57.888] class = class(workers)) 1577s [00:52:57.888] stop_if_not(is.finite(workers), workers >= 1577s [00:52:57.888] 1L) 1577s [00:52:57.888] if ((workers == 1L && !inherits(workers, 1577s [00:52:57.888] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1577s [00:52:57.888] if (default_workers) 1577s [00:52:57.888] supportsMulticore(warn = TRUE) 1577s [00:52:57.888] return(sequential(..., envir = envir)) 1577s [00:52:57.888] } 1577s [00:52:57.888] oopts <- options(mc.cores = workers) 1577s [00:52:57.888] on.exit(options(oopts)) 1577s [00:52:57.888] future <- MulticoreFuture(..., workers = workers, 1577s [00:52:57.888] envir = envir) 1577s [00:52:57.888] if (!future$lazy) 1577s [00:52:57.888] future <- run(future) 1577s [00:52:57.888] invisible(future) 1577s [00:52:57.888] }), .cleanup = FALSE, .init = FALSE) 1577s [00:52:57.888] } 1577s [00:52:57.888] } 1577s [00:52:57.888] } 1577s [00:52:57.888] }) 1577s [00:52:57.888] if (TRUE) { 1577s [00:52:57.888] base::sink(type = "output", split = FALSE) 1577s [00:52:57.888] if (TRUE) { 1577s [00:52:57.888] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1577s [00:52:57.888] } 1577s [00:52:57.888] else { 1577s [00:52:57.888] ...future.result["stdout"] <- base::list(NULL) 1577s [00:52:57.888] } 1577s [00:52:57.888] base::close(...future.stdout) 1577s [00:52:57.888] ...future.stdout <- NULL 1577s [00:52:57.888] } 1577s [00:52:57.888] ...future.result$conditions <- ...future.conditions 1577s [00:52:57.888] ...future.result$finished <- base::Sys.time() 1577s [00:52:57.888] ...future.result 1577s [00:52:57.888] } 1577s [00:52:57.892] assign_globals() ... 1577s [00:52:57.892] List of 5 1577s [00:52:57.892] $ ...future.FUN :function (x, ...) 1577s [00:52:57.892] $ future.call.arguments : list() 1577s [00:52:57.892] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1577s [00:52:57.892] $ ...future.elements_ii :List of 4 1577s [00:52:57.892] ..$ A: num 50 1577s [00:52:57.892] ..$ B: num 60 1577s [00:52:57.892] ..$ C: num 70 1577s [00:52:57.892] ..$ D: num 80 1577s [00:52:57.892] $ ...future.seeds_ii : NULL 1577s [00:52:57.892] $ ...future.globals.maxSize: NULL 1577s [00:52:57.892] - attr(*, "where")=List of 5 1577s [00:52:57.892] ..$ ...future.FUN : 1577s [00:52:57.892] ..$ future.call.arguments : 1577s [00:52:57.892] ..$ ...future.elements_ii : 1577s [00:52:57.892] ..$ ...future.seeds_ii : 1577s [00:52:57.892] ..$ ...future.globals.maxSize: 1577s [00:52:57.892] - attr(*, "resolved")= logi FALSE 1577s [00:52:57.892] - attr(*, "total_size")= num 1248 1577s [00:52:57.892] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1577s [00:52:57.892] - attr(*, "already-done")= logi TRUE 1577s [00:52:57.901] - copied ‘...future.FUN’ to environment 1577s [00:52:57.901] - copied ‘future.call.arguments’ to environment 1577s [00:52:57.902] - copied ‘...future.elements_ii’ to environment 1577s [00:52:57.902] - copied ‘...future.seeds_ii’ to environment 1577s [00:52:57.902] - copied ‘...future.globals.maxSize’ to environment 1577s [00:52:57.902] assign_globals() ... done 1577s [00:52:57.903] plan(): Setting new future strategy stack: 1577s [00:52:57.903] List of future strategies: 1577s [00:52:57.903] 1. sequential: 1577s [00:52:57.903] - args: function (..., envir = parent.frame()) 1577s [00:52:57.903] - tweaked: FALSE 1577s [00:52:57.903] - call: NULL 1577s [00:52:57.903] plan(): nbrOfWorkers() = 1 1577s [00:52:57.905] plan(): Setting new future strategy stack: 1577s [00:52:57.905] List of future strategies: 1577s [00:52:57.905] 1. multicore: 1577s [00:52:57.905] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1577s [00:52:57.905] - tweaked: FALSE 1577s [00:52:57.905] - call: plan(strategy) 1577s [00:52:57.909] plan(): nbrOfWorkers() = 1 1577s [00:52:57.909] SequentialFuture started (and completed) 1577s [00:52:57.909] - Launch lazy future ... done 1577s [00:52:57.910] run() for ‘SequentialFuture’ ... done 1577s [00:52:57.910] Created future: 1577s [00:52:57.910] SequentialFuture: 1577s [00:52:57.910] Label: ‘future_sapply-1’ 1577s [00:52:57.910] Expression: 1577s [00:52:57.910] { 1577s [00:52:57.910] do.call(function(...) { 1577s [00:52:57.910] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1577s [00:52:57.910] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1577s [00:52:57.910] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1577s [00:52:57.910] on.exit(options(oopts), add = TRUE) 1577s [00:52:57.910] } 1577s [00:52:57.910] { 1577s [00:52:57.910] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1577s [00:52:57.910] ...future.X_jj <- ...future.elements_ii[[jj]] 1577s [00:52:57.910] ...future.FUN(...future.X_jj, ...) 1577s [00:52:57.910] }) 1577s [00:52:57.910] } 1577s [00:52:57.910] }, args = future.call.arguments) 1577s [00:52:57.910] } 1577s [00:52:57.910] Lazy evaluation: FALSE 1577s [00:52:57.910] Asynchronous evaluation: FALSE 1577s [00:52:57.910] Local evaluation: TRUE 1577s [00:52:57.910] Environment: R_GlobalEnv 1577s [00:52:57.910] Capture standard output: TRUE 1577s [00:52:57.910] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1577s [00:52:57.910] Globals: 5 objects totaling 1.44 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1577s [00:52:57.910] Packages: 1577s [00:52:57.910] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1577s [00:52:57.910] Resolved: TRUE 1577s [00:52:57.910] Value: 896 bytes of class ‘list’ 1577s [00:52:57.910] Early signaling: FALSE 1577s [00:52:57.910] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1577s [00:52:57.910] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1577s [00:52:57.912] Chunk #1 of 1 ... DONE 1577s [00:52:57.912] Launching 1 futures (chunks) ... DONE 1577s [00:52:57.912] Resolving 1 futures (chunks) ... 1577s [00:52:57.913] resolve() on list ... 1577s [00:52:57.913] recursive: 0 1577s [00:52:57.913] length: 1 1577s [00:52:57.913] 1577s [00:52:57.913] resolved() for ‘SequentialFuture’ ... 1577s [00:52:57.913] - state: ‘finished’ 1577s [00:52:57.914] - run: TRUE 1577s [00:52:57.914] - result: ‘FutureResult’ 1577s [00:52:57.914] resolved() for ‘SequentialFuture’ ... done 1577s [00:52:57.914] Future #1 1577s [00:52:57.914] signalConditionsASAP(SequentialFuture, pos=1) ... 1577s [00:52:57.914] - nx: 1 1577s [00:52:57.915] - relay: TRUE 1577s [00:52:57.915] - stdout: TRUE 1577s [00:52:57.915] - signal: TRUE 1577s [00:52:57.915] - resignal: FALSE 1577s [00:52:57.915] - force: TRUE 1577s [00:52:57.915] - relayed: [n=1] FALSE 1577s [00:52:57.915] - queued futures: [n=1] FALSE 1577s [00:52:57.915] - until=1 1577s [00:52:57.916] - relaying element #1 1577s [00:52:57.916] - relayed: [n=1] TRUE 1577s [00:52:57.916] - queued futures: [n=1] TRUE 1577s [00:52:57.916] signalConditionsASAP(SequentialFuture, pos=1) ... done 1577s [00:52:57.916] length: 0 (resolved future 1) 1577s [00:52:57.917] Relaying remaining futures 1577s [00:52:57.917] signalConditionsASAP(NULL, pos=0) ... 1577s [00:52:57.917] - nx: 1 1577s [00:52:57.917] - relay: TRUE 1577s [00:52:57.917] - stdout: TRUE 1577s [00:52:57.917] - signal: TRUE 1577s [00:52:57.918] - resignal: FALSE 1577s [00:52:57.918] - force: TRUE 1577s [00:52:57.918] - relayed: [n=1] TRUE 1577s [00:52:57.918] - queued futures: [n=1] TRUE 1577s - flush all 1577s [00:52:57.919] - relayed: [n=1] TRUE 1577s [00:52:57.919] - queued futures: [n=1] TRUE 1577s [00:52:57.920] signalConditionsASAP(NULL, pos=0) ... done 1577s [00:52:57.920] resolve() on list ... DONE 1577s [00:52:57.920] - Number of value chunks collected: 1 1577s [00:52:57.920] Resolving 1 futures (chunks) ... DONE 1577s [00:52:57.921] Reducing values from 1 chunks ... 1577s [00:52:57.921] - Number of values collected after concatenation: 4 1577s [00:52:57.921] - Number of values expected: 4 1577s List of 2 1577s $ y0:[00:52:57.921] Reducing values from 1 chunks ... DONE 1577s [00:52:57.921] future_lapply() ... DONE 1577s Named num [1:4] 50 60 70 80 1577s ..- attr(*, "names")= chr [1:4] "A" "B" "C" "D" 1577s $ y1: Named num [1:4] 50 60 70 80 1577s ..- attr(*, "names")= chr [1:4] "A" "B" "C" "D" 1577s [00:52:57.925] future_lapply() ... 1577s [00:52:57.929] Number of chunks: 1 1577s [00:52:57.929] getGlobalsAndPackagesXApply() ... 1577s [00:52:57.929] - future.globals: TRUE 1577s [00:52:57.929] getGlobalsAndPackages() ... 1577s [00:52:57.929] Searching for globals... 1577s [00:52:57.938] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1577s [00:52:57.938] Searching for globals ... DONE 1577s [00:52:57.939] Resolving globals: FALSE 1577s [00:52:57.939] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1577s [00:52:57.940] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1577s [00:52:57.940] - globals: [1] ‘FUN’ 1577s [00:52:57.940] 1577s [00:52:57.941] getGlobalsAndPackages() ... DONE 1577s [00:52:57.941] - globals found/used: [n=1] ‘FUN’ 1577s [00:52:57.941] - needed namespaces: [n=0] 1577s [00:52:57.941] Finding globals ... DONE 1577s [00:52:57.941] - use_args: TRUE 1577s [00:52:57.941] - Getting '...' globals ... 1577s [00:52:57.942] resolve() on list ... 1577s [00:52:57.942] recursive: 0 1577s [00:52:57.943] length: 1 1577s [00:52:57.943] elements: ‘...’ 1577s [00:52:57.943] length: 0 (resolved future 1) 1577s [00:52:57.943] resolve() on list ... DONE 1577s [00:52:57.943] - '...' content: [n=0] 1577s [00:52:57.944] List of 1 1577s [00:52:57.944] $ ...: list() 1577s [00:52:57.944] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1577s [00:52:57.944] - attr(*, "where")=List of 1 1577s [00:52:57.944] ..$ ...: 1577s [00:52:57.944] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1577s [00:52:57.944] - attr(*, "resolved")= logi TRUE 1577s [00:52:57.944] - attr(*, "total_size")= num NA 1577s [00:52:57.948] - Getting '...' globals ... DONE 1577s [00:52:57.948] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1577s [00:52:57.948] List of 2 1577s [00:52:57.948] $ ...future.FUN:function (x, y = 2 * 1:5) 1577s [00:52:57.948] $ ... : list() 1577s [00:52:57.948] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1577s [00:52:57.948] - attr(*, "where")=List of 2 1577s [00:52:57.948] ..$ ...future.FUN: 1577s [00:52:57.948] ..$ ... : 1577s [00:52:57.948] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1577s [00:52:57.948] - attr(*, "resolved")= logi FALSE 1577s [00:52:57.948] - attr(*, "total_size")= num 4728 1577s [00:52:57.953] Packages to be attached in all futures: [n=0] 1577s [00:52:57.953] getGlobalsAndPackagesXApply() ... DONE 1577s [00:52:57.954] Number of futures (= number of chunks): 1 1577s [00:52:57.954] Launching 1 futures (chunks) ... 1577s [00:52:57.954] Chunk #1 of 1 ... 1577s [00:52:57.954] - Finding globals in 'X' for chunk #1 ... 1577s [00:52:57.955] getGlobalsAndPackages() ... 1577s [00:52:57.955] Searching for globals... 1577s [00:52:57.955] 1577s [00:52:57.955] Searching for globals ... DONE 1577s [00:52:57.956] - globals: [0] 1577s [00:52:57.956] getGlobalsAndPackages() ... DONE 1577s [00:52:57.956] + additional globals found: [n=0] 1577s [00:52:57.956] + additional namespaces needed: [n=0] 1577s [00:52:57.956] - Finding globals in 'X' for chunk #1 ... DONE 1577s [00:52:57.956] - seeds: 1577s [00:52:57.956] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1577s [00:52:57.957] getGlobalsAndPackages() ... 1577s [00:52:57.957] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1577s [00:52:57.957] Resolving globals: FALSE 1577s [00:52:57.957] Tweak future expression to call with '...' arguments ... 1577s [00:52:57.957] { 1577s [00:52:57.957] do.call(function(...) { 1577s [00:52:57.957] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1577s [00:52:57.957] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1577s [00:52:57.957] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1577s [00:52:57.957] on.exit(options(oopts), add = TRUE) 1577s [00:52:57.957] } 1577s [00:52:57.957] { 1577s [00:52:57.957] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1577s [00:52:57.957] ...future.X_jj <- ...future.elements_ii[[jj]] 1577s [00:52:57.957] ...future.FUN(...future.X_jj, ...) 1577s [00:52:57.957] }) 1577s [00:52:57.957] } 1577s [00:52:57.957] }, args = future.call.arguments) 1577s [00:52:57.957] } 1577s [00:52:57.958] Tweak future expression to call with '...' arguments ... DONE 1577s [00:52:57.959] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1577s [00:52:57.959] 1577s [00:52:57.959] getGlobalsAndPackages() ... DONE 1577s [00:52:57.959] run() for ‘Future’ ... 1577s [00:52:57.959] - state: ‘created’ 1577s [00:52:57.960] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1577s [00:52:57.964] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1577s [00:52:57.964] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1577s [00:52:57.965] - Field: ‘label’ 1577s [00:52:57.965] - Field: ‘local’ 1577s [00:52:57.965] - Field: ‘owner’ 1577s [00:52:57.965] - Field: ‘envir’ 1577s [00:52:57.965] - Field: ‘packages’ 1577s [00:52:57.966] - Field: ‘gc’ 1577s [00:52:57.966] - Field: ‘conditions’ 1577s [00:52:57.966] - Field: ‘expr’ 1577s [00:52:57.966] - Field: ‘uuid’ 1577s [00:52:57.966] - Field: ‘seed’ 1577s [00:52:57.966] - Field: ‘version’ 1577s [00:52:57.967] - Field: ‘result’ 1577s [00:52:57.967] - Field: ‘asynchronous’ 1577s [00:52:57.967] - Field: ‘calls’ 1577s [00:52:57.967] - Field: ‘globals’ 1577s [00:52:57.967] - Field: ‘stdout’ 1577s [00:52:57.968] - Field: ‘earlySignal’ 1578s [00:52:57.968] - Field: ‘lazy’ 1578s [00:52:57.968] - Field: ‘state’ 1578s [00:52:57.968] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1578s [00:52:57.968] - Launch lazy future ... 1578s [00:52:57.969] Packages needed by the future expression (n = 0): 1578s [00:52:57.969] Packages needed by future strategies (n = 0): 1578s [00:52:57.969] { 1578s [00:52:57.969] { 1578s [00:52:57.969] { 1578s [00:52:57.969] ...future.startTime <- base::Sys.time() 1578s [00:52:57.969] { 1578s [00:52:57.969] { 1578s [00:52:57.969] { 1578s [00:52:57.969] base::local({ 1578s [00:52:57.969] has_future <- base::requireNamespace("future", 1578s [00:52:57.969] quietly = TRUE) 1578s [00:52:57.969] if (has_future) { 1578s [00:52:57.969] ns <- base::getNamespace("future") 1578s [00:52:57.969] version <- ns[[".package"]][["version"]] 1578s [00:52:57.969] if (is.null(version)) 1578s [00:52:57.969] version <- utils::packageVersion("future") 1578s [00:52:57.969] } 1578s [00:52:57.969] else { 1578s [00:52:57.969] version <- NULL 1578s [00:52:57.969] } 1578s [00:52:57.969] if (!has_future || version < "1.8.0") { 1578s [00:52:57.969] info <- base::c(r_version = base::gsub("R version ", 1578s [00:52:57.969] "", base::R.version$version.string), 1578s [00:52:57.969] platform = base::sprintf("%s (%s-bit)", 1578s [00:52:57.969] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1578s [00:52:57.969] os = base::paste(base::Sys.info()[base::c("sysname", 1578s [00:52:57.969] "release", "version")], collapse = " "), 1578s [00:52:57.969] hostname = base::Sys.info()[["nodename"]]) 1578s [00:52:57.969] info <- base::sprintf("%s: %s", base::names(info), 1578s [00:52:57.969] info) 1578s [00:52:57.969] info <- base::paste(info, collapse = "; ") 1578s [00:52:57.969] if (!has_future) { 1578s [00:52:57.969] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1578s [00:52:57.969] info) 1578s [00:52:57.969] } 1578s [00:52:57.969] else { 1578s [00:52:57.969] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1578s [00:52:57.969] info, version) 1578s [00:52:57.969] } 1578s [00:52:57.969] base::stop(msg) 1578s [00:52:57.969] } 1578s [00:52:57.969] }) 1578s [00:52:57.969] } 1578s [00:52:57.969] options(future.plan = NULL) 1578s [00:52:57.969] Sys.unsetenv("R_FUTURE_PLAN") 1578s [00:52:57.969] future::plan("default", .cleanup = FALSE, .init = FALSE) 1578s [00:52:57.969] } 1578s [00:52:57.969] ...future.workdir <- getwd() 1578s [00:52:57.969] } 1578s [00:52:57.969] ...future.oldOptions <- base::as.list(base::.Options) 1578s [00:52:57.969] ...future.oldEnvVars <- base::Sys.getenv() 1578s [00:52:57.969] } 1578s [00:52:57.969] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1578s [00:52:57.969] future.globals.maxSize = NULL, future.globals.method = NULL, 1578s [00:52:57.969] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1578s [00:52:57.969] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1578s [00:52:57.969] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1578s [00:52:57.969] future.stdout.windows.reencode = NULL, width = 80L) 1578s [00:52:57.969] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1578s [00:52:57.969] base::names(...future.oldOptions)) 1578s [00:52:57.969] } 1578s [00:52:57.969] if (FALSE) { 1578s [00:52:57.969] } 1578s [00:52:57.969] else { 1578s [00:52:57.969] if (TRUE) { 1578s [00:52:57.969] ...future.stdout <- base::rawConnection(base::raw(0L), 1578s [00:52:57.969] open = "w") 1578s [00:52:57.969] } 1578s [00:52:57.969] else { 1578s [00:52:57.969] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1578s [00:52:57.969] windows = "NUL", "/dev/null"), open = "w") 1578s [00:52:57.969] } 1578s [00:52:57.969] base::sink(...future.stdout, type = "output", split = FALSE) 1578s [00:52:57.969] base::on.exit(if (!base::is.null(...future.stdout)) { 1578s [00:52:57.969] base::sink(type = "output", split = FALSE) 1578s [00:52:57.969] base::close(...future.stdout) 1578s [00:52:57.969] }, add = TRUE) 1578s [00:52:57.969] } 1578s [00:52:57.969] ...future.frame <- base::sys.nframe() 1578s [00:52:57.969] ...future.conditions <- base::list() 1578s [00:52:57.969] ...future.rng <- base::globalenv()$.Random.seed 1578s [00:52:57.969] if (FALSE) { 1578s [00:52:57.969] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1578s [00:52:57.969] "...future.value", "...future.globalenv.names", ".Random.seed") 1578s [00:52:57.969] } 1578s [00:52:57.969] ...future.result <- base::tryCatch({ 1578s [00:52:57.969] base::withCallingHandlers({ 1578s [00:52:57.969] ...future.value <- base::withVisible(base::local({ 1578s [00:52:57.969] do.call(function(...) { 1578s [00:52:57.969] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1578s [00:52:57.969] if (!identical(...future.globals.maxSize.org, 1578s [00:52:57.969] ...future.globals.maxSize)) { 1578s [00:52:57.969] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1578s [00:52:57.969] on.exit(options(oopts), add = TRUE) 1578s [00:52:57.969] } 1578s [00:52:57.969] { 1578s [00:52:57.969] lapply(seq_along(...future.elements_ii), 1578s [00:52:57.969] FUN = function(jj) { 1578s [00:52:57.969] ...future.X_jj <- ...future.elements_ii[[jj]] 1578s [00:52:57.969] ...future.FUN(...future.X_jj, ...) 1578s [00:52:57.969] }) 1578s [00:52:57.969] } 1578s [00:52:57.969] }, args = future.call.arguments) 1578s [00:52:57.969] })) 1578s [00:52:57.969] future::FutureResult(value = ...future.value$value, 1578s [00:52:57.969] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1578s [00:52:57.969] ...future.rng), globalenv = if (FALSE) 1578s [00:52:57.969] list(added = base::setdiff(base::names(base::.GlobalEnv), 1578s [00:52:57.969] ...future.globalenv.names)) 1578s [00:52:57.969] else NULL, started = ...future.startTime, version = "1.8") 1578s [00:52:57.969] }, condition = base::local({ 1578s [00:52:57.969] c <- base::c 1578s [00:52:57.969] inherits <- base::inherits 1578s [00:52:57.969] invokeRestart <- base::invokeRestart 1578s [00:52:57.969] length <- base::length 1578s [00:52:57.969] list <- base::list 1578s [00:52:57.969] seq.int <- base::seq.int 1578s [00:52:57.969] signalCondition <- base::signalCondition 1578s [00:52:57.969] sys.calls <- base::sys.calls 1578s [00:52:57.969] `[[` <- base::`[[` 1578s [00:52:57.969] `+` <- base::`+` 1578s [00:52:57.969] `<<-` <- base::`<<-` 1578s [00:52:57.969] sysCalls <- function(calls = sys.calls(), from = 1L) { 1578s [00:52:57.969] calls[seq.int(from = from + 12L, to = length(calls) - 1578s [00:52:57.969] 3L)] 1578s [00:52:57.969] } 1578s [00:52:57.969] function(cond) { 1578s [00:52:57.969] is_error <- inherits(cond, "error") 1578s [00:52:57.969] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1578s [00:52:57.969] NULL) 1578s [00:52:57.969] if (is_error) { 1578s [00:52:57.969] sessionInformation <- function() { 1578s [00:52:57.969] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1578s [00:52:57.969] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1578s [00:52:57.969] search = base::search(), system = base::Sys.info()) 1578s [00:52:57.969] } 1578s [00:52:57.969] ...future.conditions[[length(...future.conditions) + 1578s [00:52:57.969] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1578s [00:52:57.969] cond$call), session = sessionInformation(), 1578s [00:52:57.969] timestamp = base::Sys.time(), signaled = 0L) 1578s [00:52:57.969] signalCondition(cond) 1578s [00:52:57.969] } 1578s [00:52:57.969] else if (!ignore && TRUE && inherits(cond, c("condition", 1578s [00:52:57.969] "immediateCondition"))) { 1578s [00:52:57.969] signal <- TRUE && inherits(cond, "immediateCondition") 1578s [00:52:57.969] ...future.conditions[[length(...future.conditions) + 1578s [00:52:57.969] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1578s [00:52:57.969] if (TRUE && !signal) { 1578s [00:52:57.969] muffleCondition <- function (cond, pattern = "^muffle") 1578s [00:52:57.969] { 1578s [00:52:57.969] inherits <- base::inherits 1578s [00:52:57.969] invokeRestart <- base::invokeRestart 1578s [00:52:57.969] is.null <- base::is.null 1578s [00:52:57.969] muffled <- FALSE 1578s [00:52:57.969] if (inherits(cond, "message")) { 1578s [00:52:57.969] muffled <- grepl(pattern, "muffleMessage") 1578s [00:52:57.969] if (muffled) 1578s [00:52:57.969] invokeRestart("muffleMessage") 1578s [00:52:57.969] } 1578s [00:52:57.969] else if (inherits(cond, "warning")) { 1578s [00:52:57.969] muffled <- grepl(pattern, "muffleWarning") 1578s [00:52:57.969] if (muffled) 1578s [00:52:57.969] invokeRestart("muffleWarning") 1578s [00:52:57.969] } 1578s [00:52:57.969] else if (inherits(cond, "condition")) { 1578s [00:52:57.969] if (!is.null(pattern)) { 1578s [00:52:57.969] computeRestarts <- base::computeRestarts 1578s [00:52:57.969] grepl <- base::grepl 1578s [00:52:57.969] restarts <- computeRestarts(cond) 1578s [00:52:57.969] for (restart in restarts) { 1578s [00:52:57.969] name <- restart$name 1578s [00:52:57.969] if (is.null(name)) 1578s [00:52:57.969] next 1578s [00:52:57.969] if (!grepl(pattern, name)) 1578s [00:52:57.969] next 1578s [00:52:57.969] invokeRestart(restart) 1578s [00:52:57.969] muffled <- TRUE 1578s [00:52:57.969] break 1578s [00:52:57.969] } 1578s [00:52:57.969] } 1578s [00:52:57.969] } 1578s [00:52:57.969] invisible(muffled) 1578s [00:52:57.969] } 1578s [00:52:57.969] muffleCondition(cond, pattern = "^muffle") 1578s [00:52:57.969] } 1578s [00:52:57.969] } 1578s [00:52:57.969] else { 1578s [00:52:57.969] if (TRUE) { 1578s [00:52:57.969] muffleCondition <- function (cond, pattern = "^muffle") 1578s [00:52:57.969] { 1578s [00:52:57.969] inherits <- base::inherits 1578s [00:52:57.969] invokeRestart <- base::invokeRestart 1578s [00:52:57.969] is.null <- base::is.null 1578s [00:52:57.969] muffled <- FALSE 1578s [00:52:57.969] if (inherits(cond, "message")) { 1578s [00:52:57.969] muffled <- grepl(pattern, "muffleMessage") 1578s [00:52:57.969] if (muffled) 1578s [00:52:57.969] invokeRestart("muffleMessage") 1578s [00:52:57.969] } 1578s [00:52:57.969] else if (inherits(cond, "warning")) { 1578s [00:52:57.969] muffled <- grepl(pattern, "muffleWarning") 1578s [00:52:57.969] if (muffled) 1578s [00:52:57.969] invokeRestart("muffleWarning") 1578s [00:52:57.969] } 1578s [00:52:57.969] else if (inherits(cond, "condition")) { 1578s [00:52:57.969] if (!is.null(pattern)) { 1578s [00:52:57.969] computeRestarts <- base::computeRestarts 1578s [00:52:57.969] grepl <- base::grepl 1578s [00:52:57.969] restarts <- computeRestarts(cond) 1578s [00:52:57.969] for (restart in restarts) { 1578s [00:52:57.969] name <- restart$name 1578s [00:52:57.969] if (is.null(name)) 1578s [00:52:57.969] next 1578s [00:52:57.969] if (!grepl(pattern, name)) 1578s [00:52:57.969] next 1578s [00:52:57.969] invokeRestart(restart) 1578s [00:52:57.969] muffled <- TRUE 1578s [00:52:57.969] break 1578s [00:52:57.969] } 1578s [00:52:57.969] } 1578s [00:52:57.969] } 1578s [00:52:57.969] invisible(muffled) 1578s [00:52:57.969] } 1578s [00:52:57.969] muffleCondition(cond, pattern = "^muffle") 1578s [00:52:57.969] } 1578s [00:52:57.969] } 1578s [00:52:57.969] } 1578s [00:52:57.969] })) 1578s [00:52:57.969] }, error = function(ex) { 1578s [00:52:57.969] base::structure(base::list(value = NULL, visible = NULL, 1578s [00:52:57.969] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1578s [00:52:57.969] ...future.rng), started = ...future.startTime, 1578s [00:52:57.969] finished = Sys.time(), session_uuid = NA_character_, 1578s [00:52:57.969] version = "1.8"), class = "FutureResult") 1578s [00:52:57.969] }, finally = { 1578s [00:52:57.969] if (!identical(...future.workdir, getwd())) 1578s [00:52:57.969] setwd(...future.workdir) 1578s [00:52:57.969] { 1578s [00:52:57.969] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1578s [00:52:57.969] ...future.oldOptions$nwarnings <- NULL 1578s [00:52:57.969] } 1578s [00:52:57.969] base::options(...future.oldOptions) 1578s [00:52:57.969] if (.Platform$OS.type == "windows") { 1578s [00:52:57.969] old_names <- names(...future.oldEnvVars) 1578s [00:52:57.969] envs <- base::Sys.getenv() 1578s [00:52:57.969] names <- names(envs) 1578s [00:52:57.969] common <- intersect(names, old_names) 1578s [00:52:57.969] added <- setdiff(names, old_names) 1578s [00:52:57.969] removed <- setdiff(old_names, names) 1578s [00:52:57.969] changed <- common[...future.oldEnvVars[common] != 1578s [00:52:57.969] envs[common]] 1578s [00:52:57.969] NAMES <- toupper(changed) 1578s [00:52:57.969] args <- list() 1578s [00:52:57.969] for (kk in seq_along(NAMES)) { 1578s [00:52:57.969] name <- changed[[kk]] 1578s [00:52:57.969] NAME <- NAMES[[kk]] 1578s [00:52:57.969] if (name != NAME && is.element(NAME, old_names)) 1578s [00:52:57.969] next 1578s [00:52:57.969] args[[name]] <- ...future.oldEnvVars[[name]] 1578s [00:52:57.969] } 1578s [00:52:57.969] NAMES <- toupper(added) 1578s [00:52:57.969] for (kk in seq_along(NAMES)) { 1578s [00:52:57.969] name <- added[[kk]] 1578s [00:52:57.969] NAME <- NAMES[[kk]] 1578s [00:52:57.969] if (name != NAME && is.element(NAME, old_names)) 1578s [00:52:57.969] next 1578s [00:52:57.969] args[[name]] <- "" 1578s [00:52:57.969] } 1578s [00:52:57.969] NAMES <- toupper(removed) 1578s [00:52:57.969] for (kk in seq_along(NAMES)) { 1578s [00:52:57.969] name <- removed[[kk]] 1578s [00:52:57.969] NAME <- NAMES[[kk]] 1578s [00:52:57.969] if (name != NAME && is.element(NAME, old_names)) 1578s [00:52:57.969] next 1578s [00:52:57.969] args[[name]] <- ...future.oldEnvVars[[name]] 1578s [00:52:57.969] } 1578s [00:52:57.969] if (length(args) > 0) 1578s [00:52:57.969] base::do.call(base::Sys.setenv, args = args) 1578s [00:52:57.969] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1578s [00:52:57.969] } 1578s [00:52:57.969] else { 1578s [00:52:57.969] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1578s [00:52:57.969] } 1578s [00:52:57.969] { 1578s [00:52:57.969] if (base::length(...future.futureOptionsAdded) > 1578s [00:52:57.969] 0L) { 1578s [00:52:57.969] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1578s [00:52:57.969] base::names(opts) <- ...future.futureOptionsAdded 1578s [00:52:57.969] base::options(opts) 1578s [00:52:57.969] } 1578s [00:52:57.969] { 1578s [00:52:57.969] { 1578s [00:52:57.969] NULL 1578s [00:52:57.969] RNGkind("Mersenne-Twister") 1578s [00:52:57.969] base::rm(list = ".Random.seed", envir = base::globalenv(), 1578s [00:52:57.969] inherits = FALSE) 1578s [00:52:57.969] } 1578s [00:52:57.969] options(future.plan = NULL) 1578s [00:52:57.969] if (is.na(NA_character_)) 1578s [00:52:57.969] Sys.unsetenv("R_FUTURE_PLAN") 1578s [00:52:57.969] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1578s [00:52:57.969] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1578s [00:52:57.969] envir = parent.frame()) 1578s [00:52:57.969] { 1578s [00:52:57.969] default_workers <- missing(workers) 1578s [00:52:57.969] if (is.function(workers)) 1578s [00:52:57.969] workers <- workers() 1578s [00:52:57.969] workers <- structure(as.integer(workers), 1578s [00:52:57.969] class = class(workers)) 1578s [00:52:57.969] stop_if_not(is.finite(workers), workers >= 1578s [00:52:57.969] 1L) 1578s [00:52:57.969] if ((workers == 1L && !inherits(workers, 1578s [00:52:57.969] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1578s [00:52:57.969] if (default_workers) 1578s [00:52:57.969] supportsMulticore(warn = TRUE) 1578s [00:52:57.969] return(sequential(..., envir = envir)) 1578s [00:52:57.969] } 1578s [00:52:57.969] oopts <- options(mc.cores = workers) 1578s [00:52:57.969] on.exit(options(oopts)) 1578s [00:52:57.969] future <- MulticoreFuture(..., workers = workers, 1578s [00:52:57.969] envir = envir) 1578s [00:52:57.969] if (!future$lazy) 1578s [00:52:57.969] future <- run(future) 1578s [00:52:57.969] invisible(future) 1578s [00:52:57.969] }), .cleanup = FALSE, .init = FALSE) 1578s [00:52:57.969] } 1578s [00:52:57.969] } 1578s [00:52:57.969] } 1578s [00:52:57.969] }) 1578s [00:52:57.969] if (TRUE) { 1578s [00:52:57.969] base::sink(type = "output", split = FALSE) 1578s [00:52:57.969] if (TRUE) { 1578s [00:52:57.969] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1578s [00:52:57.969] } 1578s [00:52:57.969] else { 1578s [00:52:57.969] ...future.result["stdout"] <- base::list(NULL) 1578s [00:52:57.969] } 1578s [00:52:57.969] base::close(...future.stdout) 1578s [00:52:57.969] ...future.stdout <- NULL 1578s [00:52:57.969] } 1578s [00:52:57.969] ...future.result$conditions <- ...future.conditions 1578s [00:52:57.969] ...future.result$finished <- base::Sys.time() 1578s [00:52:57.969] ...future.result 1578s [00:52:57.969] } 1578s [00:52:57.973] assign_globals() ... 1578s [00:52:57.973] List of 5 1578s [00:52:57.973] $ ...future.FUN :function (x, y = 2 * 1:5) 1578s [00:52:57.973] $ future.call.arguments : list() 1578s [00:52:57.973] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1578s [00:52:57.973] $ ...future.elements_ii :List of 4 1578s [00:52:57.973] ..$ A: num 50 1578s [00:52:57.973] ..$ B: num 60 1578s [00:52:57.973] ..$ C: num 70 1578s [00:52:57.973] ..$ D: num 80 1578s [00:52:57.973] $ ...future.seeds_ii : NULL 1578s [00:52:57.973] $ ...future.globals.maxSize: NULL 1578s [00:52:57.973] - attr(*, "where")=List of 5 1578s [00:52:57.973] ..$ ...future.FUN : 1578s [00:52:57.973] ..$ future.call.arguments : 1578s [00:52:57.973] ..$ ...future.elements_ii : 1578s [00:52:57.973] ..$ ...future.seeds_ii : 1578s [00:52:57.973] ..$ ...future.globals.maxSize: 1578s [00:52:57.973] - attr(*, "resolved")= logi FALSE 1578s [00:52:57.973] - attr(*, "total_size")= num 4728 1578s [00:52:57.973] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1578s [00:52:57.973] - attr(*, "already-done")= logi TRUE 1578s [00:52:57.983] - reassign environment for ‘...future.FUN’ 1578s [00:52:57.983] - copied ‘...future.FUN’ to environment 1578s [00:52:57.983] - copied ‘future.call.arguments’ to environment 1578s [00:52:57.983] - copied ‘...future.elements_ii’ to environment 1578s [00:52:57.984] - copied ‘...future.seeds_ii’ to environment 1578s [00:52:57.984] - copied ‘...future.globals.maxSize’ to environment 1578s [00:52:57.984] assign_globals() ... done 1578s [00:52:57.985] plan(): Setting new future strategy stack: 1578s [00:52:57.985] List of future strategies: 1578s [00:52:57.985] 1. sequential: 1578s [00:52:57.985] - args: function (..., envir = parent.frame()) 1578s [00:52:57.985] - tweaked: FALSE 1578s [00:52:57.985] - call: NULL 1578s [00:52:57.985] plan(): nbrOfWorkers() = 1 1578s [00:52:57.986] plan(): Setting new future strategy stack: 1578s [00:52:57.986] List of future strategies: 1578s [00:52:57.986] 1. multicore: 1578s [00:52:57.986] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1578s [00:52:57.986] - tweaked: FALSE 1578s [00:52:57.986] - call: plan(strategy) 1578s [00:52:57.990] plan(): nbrOfWorkers() = 1 1578s [00:52:57.990] SequentialFuture started (and completed) 1578s [00:52:57.991] - Launch lazy future ... done 1578s [00:52:57.991] run() for ‘SequentialFuture’ ... done 1578s [00:52:57.991] Created future: 1578s [00:52:57.991] SequentialFuture: 1578s [00:52:57.991] Label: ‘future_sapply-1’ 1578s [00:52:57.991] Expression: 1578s [00:52:57.991] { 1578s [00:52:57.991] do.call(function(...) { 1578s [00:52:57.991] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1578s [00:52:57.991] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1578s [00:52:57.991] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1578s [00:52:57.991] on.exit(options(oopts), add = TRUE) 1578s [00:52:57.991] } 1578s [00:52:57.991] { 1578s [00:52:57.991] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1578s [00:52:57.991] ...future.X_jj <- ...future.elements_ii[[jj]] 1578s [00:52:57.991] ...future.FUN(...future.X_jj, ...) 1578s [00:52:57.991] }) 1578s [00:52:57.991] } 1578s [00:52:57.991] }, args = future.call.arguments) 1578s [00:52:57.991] } 1578s [00:52:57.991] Lazy evaluation: FALSE 1578s [00:52:57.991] Asynchronous evaluation: FALSE 1578s [00:52:57.991] Local evaluation: TRUE 1578s [00:52:57.991] Environment: R_GlobalEnv 1578s [00:52:57.991] Capture standard output: TRUE 1578s [00:52:57.991] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1578s [00:52:57.991] Globals: 5 objects totaling 4.84 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1578s [00:52:57.991] Packages: 1578s [00:52:57.991] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1578s [00:52:57.991] Resolved: TRUE 1578s [00:52:57.991] Value: 1.34 KiB of class ‘list’ 1578s [00:52:57.991] Early signaling: FALSE 1578s [00:52:57.991] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1578s [00:52:57.991] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1578s [00:52:57.993] Chunk #1 of 1 ... DONE 1578s [00:52:57.993] Launching 1 futures (chunks) ... DONE 1578s [00:52:57.993] Resolving 1 futures (chunks) ... 1578s [00:52:57.993] resolve() on list ... 1578s [00:52:57.993] recursive: 0 1578s [00:52:57.993] length: 1 1578s [00:52:57.994] 1578s [00:52:57.994] resolved() for ‘SequentialFuture’ ... 1578s [00:52:57.994] - state: ‘finished’ 1578s [00:52:57.994] - run: TRUE 1578s [00:52:57.994] - result: ‘FutureResult’ 1578s [00:52:57.994] resolved() for ‘SequentialFuture’ ... done 1578s [00:52:57.994] Future #1 1578s [00:52:57.995] signalConditionsASAP(SequentialFuture, pos=1) ... 1578s [00:52:57.995] - nx: 1 1578s [00:52:57.995] - relay: TRUE 1578s [00:52:57.995] - stdout: TRUE 1578s [00:52:57.995] - signal: TRUE 1578s [00:52:57.995] - resignal: FALSE 1578s [00:52:57.996] - force: TRUE 1578s [00:52:57.996] - relayed: [n=1] FALSE 1578s [00:52:57.996] - queued futures: [n=1] FALSE 1578s [00:52:57.996] - until=1 1578s [00:52:57.996] - relaying element #1 1578s [00:52:57.997] - relayed: [n=1] TRUE 1578s [00:52:57.997] - queued futures: [n=1] TRUE 1578s [00:52:57.997] signalConditionsASAP(SequentialFuture, pos=1) ... done 1578s [00:52:57.998] length: 0 (resolved future 1) 1578s [00:52:57.998] Relaying remaining futures 1578s [00:52:57.998] signalConditionsASAP(NULL, pos=0) ... 1578s [00:52:57.998] - nx: 1 1578s [00:52:57.999] - relay: TRUE 1578s [00:52:57.999] - stdout: TRUE 1578s [00:52:57.999] - signal: TRUE 1578s [00:52:57.999] - resignal: FALSE 1578s [00:52:57.999] - force: TRUE 1578s [00:52:57.999] - relayed: [n=1] TRUE 1578s [00:52:57.999] - queued futures: [n=1] TRUE 1578s - flush all 1578s [00:52:58.000] - relayed: [n=1] TRUE 1578s [00:52:58.000] - queued futures: [n=1] TRUE 1578s [00:52:58.000] signalConditionsASAP(NULL, pos=0) ... done 1578s [00:52:58.000] resolve() on list ... DONE 1578s [00:52:58.001] - Number of value chunks collected: 1 1578s [00:52:58.001] Resolving 1 futures (chunks) ... DONE 1578s [00:52:58.001] Reducing values from 1 chunks ... 1578s [00:52:58.001] - Number of values collected after concatenation: 4 1578s [00:52:58.001] - Number of values expected: 4 1578s [00:52:58.001] Reducing values from 1 chunks ... DONE 1578s [00:52:58.002] future_lapply() ... DONE 1578s List of 2 1578s $ y0: num [1:3, 1:5, 1:4] 100 100 100 200 200 200 300 300 300 400 ... 1578s ..- attr(*, "dimnames")=List of 3 1578s .. ..$ : NULL 1578s .. ..$ : NULL 1578s .. ..$ : chr [1:4] "A" "B" "C" "D" 1578s $ y1: num [1:3, 1:5, 1:4] 100 100 100 200 200 200 300 300 300 400 ... 1578s ..- attr(*, "dimnames")=List of 3 1578s .. ..$ : NULL 1578s .. ..$ : NULL 1578s .. ..$ : chr [1:4] "A" "B" "C" "D" 1578s [00:52:58.007] future_lapply() ... 1578s [00:52:58.011] Number of chunks: 1 1578s [00:52:58.012] getGlobalsAndPackagesXApply() ... 1578s [00:52:58.012] - future.globals: TRUE 1578s [00:52:58.012] getGlobalsAndPackages() ... 1578s [00:52:58.012] Searching for globals... 1578s [00:52:58.014] - globals found: [1] ‘FUN’ 1578s [00:52:58.014] Searching for globals ... DONE 1578s [00:52:58.014] Resolving globals: FALSE 1578s [00:52:58.015] The total size of the 1 globals is 848 bytes (848 bytes) 1578s [00:52:58.015] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1578s [00:52:58.015] - globals: [1] ‘FUN’ 1578s [00:52:58.015] 1578s [00:52:58.015] getGlobalsAndPackages() ... DONE 1578s [00:52:58.015] - globals found/used: [n=1] ‘FUN’ 1578s [00:52:58.016] - needed namespaces: [n=0] 1578s [00:52:58.016] Finding globals ... DONE 1578s [00:52:58.016] - use_args: TRUE 1578s [00:52:58.016] - Getting '...' globals ... 1578s [00:52:58.016] resolve() on list ... 1578s [00:52:58.016] recursive: 0 1578s [00:52:58.017] length: 1 1578s [00:52:58.017] elements: ‘...’ 1578s [00:52:58.017] length: 0 (resolved future 1) 1578s [00:52:58.017] resolve() on list ... DONE 1578s [00:52:58.017] - '...' content: [n=0] 1578s [00:52:58.017] List of 1 1578s [00:52:58.017] $ ...: list() 1578s [00:52:58.017] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1578s [00:52:58.017] - attr(*, "where")=List of 1 1578s [00:52:58.017] ..$ ...: 1578s [00:52:58.017] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1578s [00:52:58.017] - attr(*, "resolved")= logi TRUE 1578s [00:52:58.017] - attr(*, "total_size")= num NA 1578s [00:52:58.021] - Getting '...' globals ... DONE 1578s [00:52:58.021] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1578s [00:52:58.021] List of 2 1578s [00:52:58.021] $ ...future.FUN:function (x) 1578s [00:52:58.021] $ ... : list() 1578s [00:52:58.021] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1578s [00:52:58.021] - attr(*, "where")=List of 2 1578s [00:52:58.021] ..$ ...future.FUN: 1578s [00:52:58.021] ..$ ... : 1578s [00:52:58.021] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1578s [00:52:58.021] - attr(*, "resolved")= logi FALSE 1578s [00:52:58.021] - attr(*, "total_size")= num 848 1578s [00:52:58.024] Packages to be attached in all futures: [n=0] 1578s [00:52:58.025] getGlobalsAndPackagesXApply() ... DONE 1578s [00:52:58.025] Number of futures (= number of chunks): 1 1578s [00:52:58.025] Launching 1 futures (chunks) ... 1578s [00:52:58.025] Chunk #1 of 1 ... 1578s [00:52:58.025] - Finding globals in 'X' for chunk #1 ... 1578s [00:52:58.026] getGlobalsAndPackages() ... 1578s [00:52:58.026] Searching for globals... 1578s [00:52:58.026] 1578s [00:52:58.027] Searching for globals ... DONE 1578s [00:52:58.027] - globals: [0] 1578s [00:52:58.027] getGlobalsAndPackages() ... DONE 1578s [00:52:58.027] + additional globals found: [n=0] 1578s [00:52:58.027] + additional namespaces needed: [n=0] 1578s [00:52:58.027] - Finding globals in 'X' for chunk #1 ... DONE 1578s [00:52:58.027] - seeds: 1578s [00:52:58.028] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1578s [00:52:58.028] getGlobalsAndPackages() ... 1578s [00:52:58.028] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1578s [00:52:58.028] Resolving globals: FALSE 1578s [00:52:58.028] Tweak future expression to call with '...' arguments ... 1578s [00:52:58.029] { 1578s [00:52:58.029] do.call(function(...) { 1578s [00:52:58.029] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1578s [00:52:58.029] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1578s [00:52:58.029] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1578s [00:52:58.029] on.exit(options(oopts), add = TRUE) 1578s [00:52:58.029] } 1578s [00:52:58.029] { 1578s [00:52:58.029] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1578s [00:52:58.029] ...future.X_jj <- ...future.elements_ii[[jj]] 1578s [00:52:58.029] ...future.FUN(...future.X_jj, ...) 1578s [00:52:58.029] }) 1578s [00:52:58.029] } 1578s [00:52:58.029] }, args = future.call.arguments) 1578s [00:52:58.029] } 1578s [00:52:58.029] Tweak future expression to call with '...' arguments ... DONE 1578s [00:52:58.030] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1578s [00:52:58.030] 1578s [00:52:58.030] getGlobalsAndPackages() ... DONE 1578s [00:52:58.031] run() for ‘Future’ ... 1578s [00:52:58.031] - state: ‘created’ 1578s [00:52:58.031] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1578s [00:52:58.036] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1578s [00:52:58.037] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1578s [00:52:58.037] - Field: ‘label’ 1578s [00:52:58.037] - Field: ‘local’ 1578s [00:52:58.037] - Field: ‘owner’ 1578s [00:52:58.038] - Field: ‘envir’ 1578s [00:52:58.038] - Field: ‘packages’ 1578s [00:52:58.038] - Field: ‘gc’ 1578s [00:52:58.038] - Field: ‘conditions’ 1578s [00:52:58.038] - Field: ‘expr’ 1578s [00:52:58.038] - Field: ‘uuid’ 1578s [00:52:58.038] - Field: ‘seed’ 1578s [00:52:58.039] - Field: ‘version’ 1578s [00:52:58.039] - Field: ‘result’ 1578s [00:52:58.039] - Field: ‘asynchronous’ 1578s [00:52:58.039] - Field: ‘calls’ 1578s [00:52:58.039] - Field: ‘globals’ 1578s [00:52:58.039] - Field: ‘stdout’ 1578s [00:52:58.040] - Field: ‘earlySignal’ 1578s [00:52:58.040] - Field: ‘lazy’ 1578s [00:52:58.040] - Field: ‘state’ 1578s [00:52:58.040] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1578s [00:52:58.040] - Launch lazy future ... 1578s [00:52:58.041] Packages needed by the future expression (n = 0): 1578s [00:52:58.041] Packages needed by future strategies (n = 0): 1578s [00:52:58.041] { 1578s [00:52:58.041] { 1578s [00:52:58.041] { 1578s [00:52:58.041] ...future.startTime <- base::Sys.time() 1578s [00:52:58.041] { 1578s [00:52:58.041] { 1578s [00:52:58.041] { 1578s [00:52:58.041] base::local({ 1578s [00:52:58.041] has_future <- base::requireNamespace("future", 1578s [00:52:58.041] quietly = TRUE) 1578s [00:52:58.041] if (has_future) { 1578s [00:52:58.041] ns <- base::getNamespace("future") 1578s [00:52:58.041] version <- ns[[".package"]][["version"]] 1578s [00:52:58.041] if (is.null(version)) 1578s [00:52:58.041] version <- utils::packageVersion("future") 1578s [00:52:58.041] } 1578s [00:52:58.041] else { 1578s [00:52:58.041] version <- NULL 1578s [00:52:58.041] } 1578s [00:52:58.041] if (!has_future || version < "1.8.0") { 1578s [00:52:58.041] info <- base::c(r_version = base::gsub("R version ", 1578s [00:52:58.041] "", base::R.version$version.string), 1578s [00:52:58.041] platform = base::sprintf("%s (%s-bit)", 1578s [00:52:58.041] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1578s [00:52:58.041] os = base::paste(base::Sys.info()[base::c("sysname", 1578s [00:52:58.041] "release", "version")], collapse = " "), 1578s [00:52:58.041] hostname = base::Sys.info()[["nodename"]]) 1578s [00:52:58.041] info <- base::sprintf("%s: %s", base::names(info), 1578s [00:52:58.041] info) 1578s [00:52:58.041] info <- base::paste(info, collapse = "; ") 1578s [00:52:58.041] if (!has_future) { 1578s [00:52:58.041] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1578s [00:52:58.041] info) 1578s [00:52:58.041] } 1578s [00:52:58.041] else { 1578s [00:52:58.041] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1578s [00:52:58.041] info, version) 1578s [00:52:58.041] } 1578s [00:52:58.041] base::stop(msg) 1578s [00:52:58.041] } 1578s [00:52:58.041] }) 1578s [00:52:58.041] } 1578s [00:52:58.041] options(future.plan = NULL) 1578s [00:52:58.041] Sys.unsetenv("R_FUTURE_PLAN") 1578s [00:52:58.041] future::plan("default", .cleanup = FALSE, .init = FALSE) 1578s [00:52:58.041] } 1578s [00:52:58.041] ...future.workdir <- getwd() 1578s [00:52:58.041] } 1578s [00:52:58.041] ...future.oldOptions <- base::as.list(base::.Options) 1578s [00:52:58.041] ...future.oldEnvVars <- base::Sys.getenv() 1578s [00:52:58.041] } 1578s [00:52:58.041] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1578s [00:52:58.041] future.globals.maxSize = NULL, future.globals.method = NULL, 1578s [00:52:58.041] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1578s [00:52:58.041] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1578s [00:52:58.041] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1578s [00:52:58.041] future.stdout.windows.reencode = NULL, width = 80L) 1578s [00:52:58.041] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1578s [00:52:58.041] base::names(...future.oldOptions)) 1578s [00:52:58.041] } 1578s [00:52:58.041] if (FALSE) { 1578s [00:52:58.041] } 1578s [00:52:58.041] else { 1578s [00:52:58.041] if (TRUE) { 1578s [00:52:58.041] ...future.stdout <- base::rawConnection(base::raw(0L), 1578s [00:52:58.041] open = "w") 1578s [00:52:58.041] } 1578s [00:52:58.041] else { 1578s [00:52:58.041] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1578s [00:52:58.041] windows = "NUL", "/dev/null"), open = "w") 1578s [00:52:58.041] } 1578s [00:52:58.041] base::sink(...future.stdout, type = "output", split = FALSE) 1578s [00:52:58.041] base::on.exit(if (!base::is.null(...future.stdout)) { 1578s [00:52:58.041] base::sink(type = "output", split = FALSE) 1578s [00:52:58.041] base::close(...future.stdout) 1578s [00:52:58.041] }, add = TRUE) 1578s [00:52:58.041] } 1578s [00:52:58.041] ...future.frame <- base::sys.nframe() 1578s [00:52:58.041] ...future.conditions <- base::list() 1578s [00:52:58.041] ...future.rng <- base::globalenv()$.Random.seed 1578s [00:52:58.041] if (FALSE) { 1578s [00:52:58.041] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1578s [00:52:58.041] "...future.value", "...future.globalenv.names", ".Random.seed") 1578s [00:52:58.041] } 1578s [00:52:58.041] ...future.result <- base::tryCatch({ 1578s [00:52:58.041] base::withCallingHandlers({ 1578s [00:52:58.041] ...future.value <- base::withVisible(base::local({ 1578s [00:52:58.041] do.call(function(...) { 1578s [00:52:58.041] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1578s [00:52:58.041] if (!identical(...future.globals.maxSize.org, 1578s [00:52:58.041] ...future.globals.maxSize)) { 1578s [00:52:58.041] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1578s [00:52:58.041] on.exit(options(oopts), add = TRUE) 1578s [00:52:58.041] } 1578s [00:52:58.041] { 1578s [00:52:58.041] lapply(seq_along(...future.elements_ii), 1578s [00:52:58.041] FUN = function(jj) { 1578s [00:52:58.041] ...future.X_jj <- ...future.elements_ii[[jj]] 1578s [00:52:58.041] ...future.FUN(...future.X_jj, ...) 1578s [00:52:58.041] }) 1578s [00:52:58.041] } 1578s [00:52:58.041] }, args = future.call.arguments) 1578s [00:52:58.041] })) 1578s [00:52:58.041] future::FutureResult(value = ...future.value$value, 1578s [00:52:58.041] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1578s [00:52:58.041] ...future.rng), globalenv = if (FALSE) 1578s [00:52:58.041] list(added = base::setdiff(base::names(base::.GlobalEnv), 1578s [00:52:58.041] ...future.globalenv.names)) 1578s [00:52:58.041] else NULL, started = ...future.startTime, version = "1.8") 1578s [00:52:58.041] }, condition = base::local({ 1578s [00:52:58.041] c <- base::c 1578s [00:52:58.041] inherits <- base::inherits 1578s [00:52:58.041] invokeRestart <- base::invokeRestart 1578s [00:52:58.041] length <- base::length 1578s [00:52:58.041] list <- base::list 1578s [00:52:58.041] seq.int <- base::seq.int 1578s [00:52:58.041] signalCondition <- base::signalCondition 1578s [00:52:58.041] sys.calls <- base::sys.calls 1578s [00:52:58.041] `[[` <- base::`[[` 1578s [00:52:58.041] `+` <- base::`+` 1578s [00:52:58.041] `<<-` <- base::`<<-` 1578s [00:52:58.041] sysCalls <- function(calls = sys.calls(), from = 1L) { 1578s [00:52:58.041] calls[seq.int(from = from + 12L, to = length(calls) - 1578s [00:52:58.041] 3L)] 1578s [00:52:58.041] } 1578s [00:52:58.041] function(cond) { 1578s [00:52:58.041] is_error <- inherits(cond, "error") 1578s [00:52:58.041] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1578s [00:52:58.041] NULL) 1578s [00:52:58.041] if (is_error) { 1578s [00:52:58.041] sessionInformation <- function() { 1578s [00:52:58.041] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1578s [00:52:58.041] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1578s [00:52:58.041] search = base::search(), system = base::Sys.info()) 1578s [00:52:58.041] } 1578s [00:52:58.041] ...future.conditions[[length(...future.conditions) + 1578s [00:52:58.041] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1578s [00:52:58.041] cond$call), session = sessionInformation(), 1578s [00:52:58.041] timestamp = base::Sys.time(), signaled = 0L) 1578s [00:52:58.041] signalCondition(cond) 1578s [00:52:58.041] } 1578s [00:52:58.041] else if (!ignore && TRUE && inherits(cond, c("condition", 1578s [00:52:58.041] "immediateCondition"))) { 1578s [00:52:58.041] signal <- TRUE && inherits(cond, "immediateCondition") 1578s [00:52:58.041] ...future.conditions[[length(...future.conditions) + 1578s [00:52:58.041] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1578s [00:52:58.041] if (TRUE && !signal) { 1578s [00:52:58.041] muffleCondition <- function (cond, pattern = "^muffle") 1578s [00:52:58.041] { 1578s [00:52:58.041] inherits <- base::inherits 1578s [00:52:58.041] invokeRestart <- base::invokeRestart 1578s [00:52:58.041] is.null <- base::is.null 1578s [00:52:58.041] muffled <- FALSE 1578s [00:52:58.041] if (inherits(cond, "message")) { 1578s [00:52:58.041] muffled <- grepl(pattern, "muffleMessage") 1578s [00:52:58.041] if (muffled) 1578s [00:52:58.041] invokeRestart("muffleMessage") 1578s [00:52:58.041] } 1578s [00:52:58.041] else if (inherits(cond, "warning")) { 1578s [00:52:58.041] muffled <- grepl(pattern, "muffleWarning") 1578s [00:52:58.041] if (muffled) 1578s [00:52:58.041] invokeRestart("muffleWarning") 1578s [00:52:58.041] } 1578s [00:52:58.041] else if (inherits(cond, "condition")) { 1578s [00:52:58.041] if (!is.null(pattern)) { 1578s [00:52:58.041] computeRestarts <- base::computeRestarts 1578s [00:52:58.041] grepl <- base::grepl 1578s [00:52:58.041] restarts <- computeRestarts(cond) 1578s [00:52:58.041] for (restart in restarts) { 1578s [00:52:58.041] name <- restart$name 1578s [00:52:58.041] if (is.null(name)) 1578s [00:52:58.041] next 1578s [00:52:58.041] if (!grepl(pattern, name)) 1578s [00:52:58.041] next 1578s [00:52:58.041] invokeRestart(restart) 1578s [00:52:58.041] muffled <- TRUE 1578s [00:52:58.041] break 1578s [00:52:58.041] } 1578s [00:52:58.041] } 1578s [00:52:58.041] } 1578s [00:52:58.041] invisible(muffled) 1578s [00:52:58.041] } 1578s [00:52:58.041] muffleCondition(cond, pattern = "^muffle") 1578s [00:52:58.041] } 1578s [00:52:58.041] } 1578s [00:52:58.041] else { 1578s [00:52:58.041] if (TRUE) { 1578s [00:52:58.041] muffleCondition <- function (cond, pattern = "^muffle") 1578s [00:52:58.041] { 1578s [00:52:58.041] inherits <- base::inherits 1578s [00:52:58.041] invokeRestart <- base::invokeRestart 1578s [00:52:58.041] is.null <- base::is.null 1578s [00:52:58.041] muffled <- FALSE 1578s [00:52:58.041] if (inherits(cond, "message")) { 1578s [00:52:58.041] muffled <- grepl(pattern, "muffleMessage") 1578s [00:52:58.041] if (muffled) 1578s [00:52:58.041] invokeRestart("muffleMessage") 1578s [00:52:58.041] } 1578s [00:52:58.041] else if (inherits(cond, "warning")) { 1578s [00:52:58.041] muffled <- grepl(pattern, "muffleWarning") 1578s [00:52:58.041] if (muffled) 1578s [00:52:58.041] invokeRestart("muffleWarning") 1578s [00:52:58.041] } 1578s [00:52:58.041] else if (inherits(cond, "condition")) { 1578s [00:52:58.041] if (!is.null(pattern)) { 1578s [00:52:58.041] computeRestarts <- base::computeRestarts 1578s [00:52:58.041] grepl <- base::grepl 1578s [00:52:58.041] restarts <- computeRestarts(cond) 1578s [00:52:58.041] for (restart in restarts) { 1578s [00:52:58.041] name <- restart$name 1578s [00:52:58.041] if (is.null(name)) 1578s [00:52:58.041] next 1578s [00:52:58.041] if (!grepl(pattern, name)) 1578s [00:52:58.041] next 1578s [00:52:58.041] invokeRestart(restart) 1578s [00:52:58.041] muffled <- TRUE 1578s [00:52:58.041] break 1578s [00:52:58.041] } 1578s [00:52:58.041] } 1578s [00:52:58.041] } 1578s [00:52:58.041] invisible(muffled) 1578s [00:52:58.041] } 1578s [00:52:58.041] muffleCondition(cond, pattern = "^muffle") 1578s [00:52:58.041] } 1578s [00:52:58.041] } 1578s [00:52:58.041] } 1578s [00:52:58.041] })) 1578s [00:52:58.041] }, error = function(ex) { 1578s [00:52:58.041] base::structure(base::list(value = NULL, visible = NULL, 1578s [00:52:58.041] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1578s [00:52:58.041] ...future.rng), started = ...future.startTime, 1578s [00:52:58.041] finished = Sys.time(), session_uuid = NA_character_, 1578s [00:52:58.041] version = "1.8"), class = "FutureResult") 1578s [00:52:58.041] }, finally = { 1578s [00:52:58.041] if (!identical(...future.workdir, getwd())) 1578s [00:52:58.041] setwd(...future.workdir) 1578s [00:52:58.041] { 1578s [00:52:58.041] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1578s [00:52:58.041] ...future.oldOptions$nwarnings <- NULL 1578s [00:52:58.041] } 1578s [00:52:58.041] base::options(...future.oldOptions) 1578s [00:52:58.041] if (.Platform$OS.type == "windows") { 1578s [00:52:58.041] old_names <- names(...future.oldEnvVars) 1578s [00:52:58.041] envs <- base::Sys.getenv() 1578s [00:52:58.041] names <- names(envs) 1578s [00:52:58.041] common <- intersect(names, old_names) 1578s [00:52:58.041] added <- setdiff(names, old_names) 1578s [00:52:58.041] removed <- setdiff(old_names, names) 1578s [00:52:58.041] changed <- common[...future.oldEnvVars[common] != 1578s [00:52:58.041] envs[common]] 1578s [00:52:58.041] NAMES <- toupper(changed) 1578s [00:52:58.041] args <- list() 1578s [00:52:58.041] for (kk in seq_along(NAMES)) { 1578s [00:52:58.041] name <- changed[[kk]] 1578s [00:52:58.041] NAME <- NAMES[[kk]] 1578s [00:52:58.041] if (name != NAME && is.element(NAME, old_names)) 1578s [00:52:58.041] next 1578s [00:52:58.041] args[[name]] <- ...future.oldEnvVars[[name]] 1578s [00:52:58.041] } 1578s [00:52:58.041] NAMES <- toupper(added) 1578s [00:52:58.041] for (kk in seq_along(NAMES)) { 1578s [00:52:58.041] name <- added[[kk]] 1578s [00:52:58.041] NAME <- NAMES[[kk]] 1578s [00:52:58.041] if (name != NAME && is.element(NAME, old_names)) 1578s [00:52:58.041] next 1578s [00:52:58.041] args[[name]] <- "" 1578s [00:52:58.041] } 1578s [00:52:58.041] NAMES <- toupper(removed) 1578s [00:52:58.041] for (kk in seq_along(NAMES)) { 1578s [00:52:58.041] name <- removed[[kk]] 1578s [00:52:58.041] NAME <- NAMES[[kk]] 1578s [00:52:58.041] if (name != NAME && is.element(NAME, old_names)) 1578s [00:52:58.041] next 1578s [00:52:58.041] args[[name]] <- ...future.oldEnvVars[[name]] 1578s [00:52:58.041] } 1578s [00:52:58.041] if (length(args) > 0) 1578s [00:52:58.041] base::do.call(base::Sys.setenv, args = args) 1578s [00:52:58.041] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1578s [00:52:58.041] } 1578s [00:52:58.041] else { 1578s [00:52:58.041] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1578s [00:52:58.041] } 1578s [00:52:58.041] { 1578s [00:52:58.041] if (base::length(...future.futureOptionsAdded) > 1578s [00:52:58.041] 0L) { 1578s [00:52:58.041] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1578s [00:52:58.041] base::names(opts) <- ...future.futureOptionsAdded 1578s [00:52:58.041] base::options(opts) 1578s [00:52:58.041] } 1578s [00:52:58.041] { 1578s [00:52:58.041] { 1578s [00:52:58.041] NULL 1578s [00:52:58.041] RNGkind("Mersenne-Twister") 1578s [00:52:58.041] base::rm(list = ".Random.seed", envir = base::globalenv(), 1578s [00:52:58.041] inherits = FALSE) 1578s [00:52:58.041] } 1578s [00:52:58.041] options(future.plan = NULL) 1578s [00:52:58.041] if (is.na(NA_character_)) 1578s [00:52:58.041] Sys.unsetenv("R_FUTURE_PLAN") 1578s [00:52:58.041] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1578s [00:52:58.041] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1578s [00:52:58.041] envir = parent.frame()) 1578s [00:52:58.041] { 1578s [00:52:58.041] default_workers <- missing(workers) 1578s [00:52:58.041] if (is.function(workers)) 1578s [00:52:58.041] workers <- workers() 1578s [00:52:58.041] workers <- structure(as.integer(workers), 1578s [00:52:58.041] class = class(workers)) 1578s [00:52:58.041] stop_if_not(is.finite(workers), workers >= 1578s [00:52:58.041] 1L) 1578s [00:52:58.041] if ((workers == 1L && !inherits(workers, 1578s [00:52:58.041] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1578s [00:52:58.041] if (default_workers) 1578s [00:52:58.041] supportsMulticore(warn = TRUE) 1578s [00:52:58.041] return(sequential(..., envir = envir)) 1578s [00:52:58.041] } 1578s [00:52:58.041] oopts <- options(mc.cores = workers) 1578s [00:52:58.041] on.exit(options(oopts)) 1578s [00:52:58.041] future <- MulticoreFuture(..., workers = workers, 1578s [00:52:58.041] envir = envir) 1578s [00:52:58.041] if (!future$lazy) 1578s [00:52:58.041] future <- run(future) 1578s [00:52:58.041] invisible(future) 1578s [00:52:58.041] }), .cleanup = FALSE, .init = FALSE) 1578s [00:52:58.041] } 1578s [00:52:58.041] } 1578s [00:52:58.041] } 1578s [00:52:58.041] }) 1578s [00:52:58.041] if (TRUE) { 1578s [00:52:58.041] base::sink(type = "output", split = FALSE) 1578s [00:52:58.041] if (TRUE) { 1578s [00:52:58.041] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1578s [00:52:58.041] } 1578s [00:52:58.041] else { 1578s [00:52:58.041] ...future.result["stdout"] <- base::list(NULL) 1578s [00:52:58.041] } 1578s [00:52:58.041] base::close(...future.stdout) 1578s [00:52:58.041] ...future.stdout <- NULL 1578s [00:52:58.041] } 1578s [00:52:58.041] ...future.result$conditions <- ...future.conditions 1578s [00:52:58.041] ...future.result$finished <- base::Sys.time() 1578s [00:52:58.041] ...future.result 1578s [00:52:58.041] } 1578s [00:52:58.049] assign_globals() ... 1578s [00:52:58.049] List of 5 1578s [00:52:58.049] $ ...future.FUN :function (x) 1578s [00:52:58.049] $ future.call.arguments : list() 1578s [00:52:58.049] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1578s [00:52:58.049] $ ...future.elements_ii :List of 4 1578s [00:52:58.049] ..$ A: num 50 1578s [00:52:58.049] ..$ B: num 60 1578s [00:52:58.049] ..$ C: num 70 1578s [00:52:58.049] ..$ D: num 80 1578s [00:52:58.049] $ ...future.seeds_ii : NULL 1578s [00:52:58.049] $ ...future.globals.maxSize: NULL 1578s [00:52:58.049] - attr(*, "where")=List of 5 1578s [00:52:58.049] ..$ ...future.FUN : 1578s [00:52:58.049] ..$ future.call.arguments : 1578s [00:52:58.049] ..$ ...future.elements_ii : 1578s [00:52:58.049] ..$ ...future.seeds_ii : 1578s [00:52:58.049] ..$ ...future.globals.maxSize: 1578s [00:52:58.049] - attr(*, "resolved")= logi FALSE 1578s [00:52:58.049] - attr(*, "total_size")= num 848 1578s [00:52:58.049] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1578s [00:52:58.049] - attr(*, "already-done")= logi TRUE 1578s [00:52:58.058] - copied ‘...future.FUN’ to environment 1578s [00:52:58.058] - copied ‘future.call.arguments’ to environment 1578s [00:52:58.058] - copied ‘...future.elements_ii’ to environment 1578s [00:52:58.058] - copied ‘...future.seeds_ii’ to environment 1578s [00:52:58.059] - copied ‘...future.globals.maxSize’ to environment 1578s [00:52:58.059] assign_globals() ... done 1578s [00:52:58.059] plan(): Setting new future strategy stack: 1578s [00:52:58.059] List of future strategies: 1578s [00:52:58.059] 1. sequential: 1578s [00:52:58.059] - args: function (..., envir = parent.frame()) 1578s [00:52:58.059] - tweaked: FALSE 1578s [00:52:58.059] - call: NULL 1578s [00:52:58.066] plan(): nbrOfWorkers() = 1 1578s [00:52:58.067] plan(): Setting new future strategy stack: 1578s [00:52:58.067] List of future strategies: 1578s [00:52:58.067] 1. multicore: 1578s [00:52:58.067] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1578s [00:52:58.067] - tweaked: FALSE 1578s [00:52:58.067] - call: plan(strategy) 1578s [00:52:58.072] plan(): nbrOfWorkers() = 1 1578s [00:52:58.073] SequentialFuture started (and completed) 1578s [00:52:58.073] - Launch lazy future ... done 1578s [00:52:58.073] run() for ‘SequentialFuture’ ... done 1578s [00:52:58.074] Created future: 1578s [00:52:58.074] SequentialFuture: 1578s [00:52:58.074] Label: ‘future_sapply-1’ 1578s [00:52:58.074] Expression: 1578s [00:52:58.074] { 1578s [00:52:58.074] do.call(function(...) { 1578s [00:52:58.074] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1578s [00:52:58.074] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1578s [00:52:58.074] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1578s [00:52:58.074] on.exit(options(oopts), add = TRUE) 1578s [00:52:58.074] } 1578s [00:52:58.074] { 1578s [00:52:58.074] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1578s [00:52:58.074] ...future.X_jj <- ...future.elements_ii[[jj]] 1578s [00:52:58.074] ...future.FUN(...future.X_jj, ...) 1578s [00:52:58.074] }) 1578s [00:52:58.074] } 1578s [00:52:58.074] }, args = future.call.arguments) 1578s [00:52:58.074] } 1578s [00:52:58.074] Lazy evaluation: FALSE 1578s [00:52:58.074] Asynchronous evaluation: FALSE 1578s [00:52:58.074] Local evaluation: TRUE 1578s [00:52:58.074] Environment: R_GlobalEnv 1578s [00:52:58.074] Capture standard output: TRUE 1578s [00:52:58.074] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1578s [00:52:58.074] Globals: 5 objects totaling 1.05 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1578s [00:52:58.074] Packages: 1578s [00:52:58.074] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1578s [00:52:58.074] Resolved: TRUE 1578s [00:52:58.074] Value: 224 bytes of class ‘list’ 1578s [00:52:58.074] Early signaling: FALSE 1578s [00:52:58.074] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1578s [00:52:58.074] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1578s [00:52:58.075] Chunk #1 of 1 ... DONE 1578s [00:52:58.075] Launching 1 futures (chunks) ... DONE 1578s [00:52:58.075] Resolving 1 futures (chunks) ... 1578s [00:52:58.075] resolve() on list ... 1578s [00:52:58.076] recursive: 0 1578s [00:52:58.076] length: 1 1578s [00:52:58.076] 1578s [00:52:58.076] resolved() for ‘SequentialFuture’ ... 1578s [00:52:58.076] - state: ‘finished’ 1578s [00:52:58.076] - run: TRUE 1578s [00:52:58.076] - result: ‘FutureResult’ 1578s [00:52:58.076] resolved() for ‘SequentialFuture’ ... done 1578s [00:52:58.076] Future #1 1578s [00:52:58.077] signalConditionsASAP(SequentialFuture, pos=1) ... 1578s [00:52:58.077] - nx: 1 1578s [00:52:58.077] - relay: TRUE 1578s [00:52:58.077] - stdout: TRUE 1578s [00:52:58.077] - signal: TRUE 1578s [00:52:58.078] - resignal: FALSE 1578s [00:52:58.078] - force: TRUE 1578s [00:52:58.078] - relayed: [n=1] FALSE 1578s [00:52:58.078] - queued futures: [n=1] FALSE 1578s [00:52:58.079] - until=1 1578s [00:52:58.079] - relaying element #1 1578s [00:52:58.079] - relayed: [n=1] TRUE 1578s [00:52:58.080] - queued futures: [n=1] TRUE 1578s [00:52:58.080] signalConditionsASAP(SequentialFuture, pos=1) ... done 1578s [00:52:58.080] length: 0 (resolved future 1) 1578s [00:52:58.081] Relaying remaining futures 1578s [00:52:58.081] signalConditionsASAP(NULL, pos=0) ... 1578s [00:52:58.081] - nx: 1 1578s [00:52:58.081] - relay: TRUE 1578s [00:52:58.081] - stdout: TRUE 1578s [00:52:58.082] - signal: TRUE 1578s [00:52:58.082] - resignal: FALSE 1578s [00:52:58.082] - force: TRUE 1578s [00:52:58.082] - relayed: [n=1] TRUE 1578s [00:52:58.082] - queued futures: [n=1] TRUE 1578s - flush all 1578s [00:52:58.083] - relayed: [n=1] TRUE 1578s [00:52:58.083] - queued futures: [n=1] TRUE 1578s [00:52:58.083] signalConditionsASAP(NULL, pos=0) ... done 1578s [00:52:58.083] resolve() on list ... DONE 1578s [00:52:58.083] - Number of value chunks collected: 1 1578s [00:52:58.083] Resolving 1 futures (chunks) ... DONE 1578s [00:52:58.083] Reducing values from 1 chunks ... 1578s [00:52:58.084] - Number of values collected after concatenation: 4 1578s [00:52:58.084] - Number of values expected: 4 1578s [00:52:58.084] Reducing values from 1 chunks ... DONE 1578s List[00:52:58.084] future_lapply() ... DONE 1578s of 2 1578s $ y0:List of 4 1578s ..$ A: num 50 1578s ..$ B: num 60 1578s ..$ C: num 70 1578s ..$ D: num 80 1578s $ y1:List of 4 1578s ..$ A: num 50 1578s ..$ B: num 60 1578s ..$ C: num 70 1578s ..$ D: num 80 1578s List of 2 1578s $ y0:List of 4 1578s ..$ A: num 50 1578s ..$ B: num 60 1578s ..$ C: num 70 1578s ..$ D: num 80 1578s $ y2:List of 4 1578s ..$ A: num 50 1578s ..$ B: num 60 1578s ..$ C: num 70 1578s ..$ D: num 80 1578s [00:52:58.098] future_lapply() ... 1578s [00:52:58.103] Number of chunks: 1 1578s [00:52:58.104] getGlobalsAndPackagesXApply() ... 1578s [00:52:58.104] - future.globals: TRUE 1578s [00:52:58.104] getGlobalsAndPackages() ... 1578s [00:52:58.104] Searching for globals... 1578s [00:52:58.106] - globals found: [2] ‘FUN’, ‘UseMethod’ 1578s [00:52:58.106] Searching for globals ... DONE 1578s [00:52:58.107] Resolving globals: FALSE 1578s [00:52:58.107] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1578s [00:52:58.108] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1578s [00:52:58.108] - globals: [1] ‘FUN’ 1578s [00:52:58.108] 1578s [00:52:58.108] getGlobalsAndPackages() ... DONE 1578s [00:52:58.108] - globals found/used: [n=1] ‘FUN’ 1578s [00:52:58.109] - needed namespaces: [n=0] 1578s [00:52:58.109] Finding globals ... DONE 1578s [00:52:58.109] - use_args: TRUE 1578s [00:52:58.110] - Getting '...' globals ... 1578s [00:52:58.111] resolve() on list ... 1578s [00:52:58.111] recursive: 0 1578s [00:52:58.111] length: 1 1578s [00:52:58.112] elements: ‘...’ 1578s [00:52:58.113] length: 0 (resolved future 1) 1578s [00:52:58.113] resolve() on list ... DONE 1578s [00:52:58.113] - '...' content: [n=0] 1578s [00:52:58.114] List of 1 1578s [00:52:58.114] $ ...: list() 1578s [00:52:58.114] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1578s [00:52:58.114] - attr(*, "where")=List of 1 1578s [00:52:58.114] ..$ ...: 1578s [00:52:58.114] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1578s [00:52:58.114] - attr(*, "resolved")= logi TRUE 1578s [00:52:58.114] - attr(*, "total_size")= num NA 1578s [00:52:58.121] - Getting '...' globals ... DONE 1578s [00:52:58.121] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1578s [00:52:58.121] List of 2 1578s [00:52:58.121] $ ...future.FUN:function (x, ...) 1578s [00:52:58.121] $ ... : list() 1578s [00:52:58.121] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1578s [00:52:58.121] - attr(*, "where")=List of 2 1578s [00:52:58.121] ..$ ...future.FUN: 1578s [00:52:58.121] ..$ ... : 1578s [00:52:58.121] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1578s [00:52:58.121] - attr(*, "resolved")= logi FALSE 1578s [00:52:58.121] - attr(*, "total_size")= num 1248 1578s [00:52:58.126] Packages to be attached in all futures: [n=0] 1578s [00:52:58.127] getGlobalsAndPackagesXApply() ... DONE 1578s [00:52:58.127] Number of futures (= number of chunks): 1 1578s [00:52:58.127] Launching 1 futures (chunks) ... 1578s [00:52:58.128] Chunk #1 of 1 ... 1578s [00:52:58.128] - Finding globals in 'X' for chunk #1 ... 1578s [00:52:58.129] getGlobalsAndPackages() ... 1578s [00:52:58.129] Searching for globals... 1578s [00:52:58.129] 1578s [00:52:58.129] Searching for globals ... DONE 1578s [00:52:58.129] - globals: [0] 1578s [00:52:58.130] getGlobalsAndPackages() ... DONE 1578s [00:52:58.130] + additional globals found: [n=0] 1578s [00:52:58.130] + additional namespaces needed: [n=0] 1578s [00:52:58.130] - Finding globals in 'X' for chunk #1 ... DONE 1578s [00:52:58.130] - seeds: 1578s [00:52:58.131] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1578s [00:52:58.131] getGlobalsAndPackages() ... 1578s [00:52:58.131] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1578s [00:52:58.131] Resolving globals: FALSE 1578s [00:52:58.131] Tweak future expression to call with '...' arguments ... 1578s [00:52:58.132] { 1578s [00:52:58.132] do.call(function(...) { 1578s [00:52:58.132] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1578s [00:52:58.132] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1578s [00:52:58.132] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1578s [00:52:58.132] on.exit(options(oopts), add = TRUE) 1578s [00:52:58.132] } 1578s [00:52:58.132] { 1578s [00:52:58.132] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1578s [00:52:58.132] ...future.X_jj <- ...future.elements_ii[[jj]] 1578s [00:52:58.132] ...future.FUN(...future.X_jj, ...) 1578s [00:52:58.132] }) 1578s [00:52:58.132] } 1578s [00:52:58.132] }, args = future.call.arguments) 1578s [00:52:58.132] } 1578s [00:52:58.132] Tweak future expression to call with '...' arguments ... DONE 1578s [00:52:58.133] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1578s [00:52:58.134] 1578s [00:52:58.134] getGlobalsAndPackages() ... DONE 1578s [00:52:58.135] run() for ‘Future’ ... 1578s [00:52:58.135] - state: ‘created’ 1578s [00:52:58.135] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1578s [00:52:58.140] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1578s [00:52:58.140] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1578s [00:52:58.140] - Field: ‘label’ 1578s [00:52:58.141] - Field: ‘local’ 1578s [00:52:58.141] - Field: ‘owner’ 1578s [00:52:58.141] - Field: ‘envir’ 1578s [00:52:58.141] - Field: ‘packages’ 1578s [00:52:58.141] - Field: ‘gc’ 1578s [00:52:58.142] - Field: ‘conditions’ 1578s [00:52:58.142] - Field: ‘expr’ 1578s [00:52:58.142] - Field: ‘uuid’ 1578s [00:52:58.142] - Field: ‘seed’ 1578s [00:52:58.143] - Field: ‘version’ 1578s [00:52:58.143] - Field: ‘result’ 1578s [00:52:58.143] - Field: ‘asynchronous’ 1578s [00:52:58.144] - Field: ‘calls’ 1578s [00:52:58.144] - Field: ‘globals’ 1578s [00:52:58.144] - Field: ‘stdout’ 1578s [00:52:58.144] - Field: ‘earlySignal’ 1578s [00:52:58.144] - Field: ‘lazy’ 1578s [00:52:58.144] - Field: ‘state’ 1578s [00:52:58.145] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1578s [00:52:58.145] - Launch lazy future ... 1578s [00:52:58.145] Packages needed by the future expression (n = 0): 1578s [00:52:58.145] Packages needed by future strategies (n = 0): 1578s [00:52:58.146] { 1578s [00:52:58.146] { 1578s [00:52:58.146] { 1578s [00:52:58.146] ...future.startTime <- base::Sys.time() 1578s [00:52:58.146] { 1578s [00:52:58.146] { 1578s [00:52:58.146] { 1578s [00:52:58.146] base::local({ 1578s [00:52:58.146] has_future <- base::requireNamespace("future", 1578s [00:52:58.146] quietly = TRUE) 1578s [00:52:58.146] if (has_future) { 1578s [00:52:58.146] ns <- base::getNamespace("future") 1578s [00:52:58.146] version <- ns[[".package"]][["version"]] 1578s [00:52:58.146] if (is.null(version)) 1578s [00:52:58.146] version <- utils::packageVersion("future") 1578s [00:52:58.146] } 1578s [00:52:58.146] else { 1578s [00:52:58.146] version <- NULL 1578s [00:52:58.146] } 1578s [00:52:58.146] if (!has_future || version < "1.8.0") { 1578s [00:52:58.146] info <- base::c(r_version = base::gsub("R version ", 1578s [00:52:58.146] "", base::R.version$version.string), 1578s [00:52:58.146] platform = base::sprintf("%s (%s-bit)", 1578s [00:52:58.146] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1578s [00:52:58.146] os = base::paste(base::Sys.info()[base::c("sysname", 1578s [00:52:58.146] "release", "version")], collapse = " "), 1578s [00:52:58.146] hostname = base::Sys.info()[["nodename"]]) 1578s [00:52:58.146] info <- base::sprintf("%s: %s", base::names(info), 1578s [00:52:58.146] info) 1578s [00:52:58.146] info <- base::paste(info, collapse = "; ") 1578s [00:52:58.146] if (!has_future) { 1578s [00:52:58.146] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1578s [00:52:58.146] info) 1578s [00:52:58.146] } 1578s [00:52:58.146] else { 1578s [00:52:58.146] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1578s [00:52:58.146] info, version) 1578s [00:52:58.146] } 1578s [00:52:58.146] base::stop(msg) 1578s [00:52:58.146] } 1578s [00:52:58.146] }) 1578s [00:52:58.146] } 1578s [00:52:58.146] options(future.plan = NULL) 1578s [00:52:58.146] Sys.unsetenv("R_FUTURE_PLAN") 1578s [00:52:58.146] future::plan("default", .cleanup = FALSE, .init = FALSE) 1578s [00:52:58.146] } 1578s [00:52:58.146] ...future.workdir <- getwd() 1578s [00:52:58.146] } 1578s [00:52:58.146] ...future.oldOptions <- base::as.list(base::.Options) 1578s [00:52:58.146] ...future.oldEnvVars <- base::Sys.getenv() 1578s [00:52:58.146] } 1578s [00:52:58.146] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1578s [00:52:58.146] future.globals.maxSize = NULL, future.globals.method = NULL, 1578s [00:52:58.146] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1578s [00:52:58.146] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1578s [00:52:58.146] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1578s [00:52:58.146] future.stdout.windows.reencode = NULL, width = 80L) 1578s [00:52:58.146] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1578s [00:52:58.146] base::names(...future.oldOptions)) 1578s [00:52:58.146] } 1578s [00:52:58.146] if (FALSE) { 1578s [00:52:58.146] } 1578s [00:52:58.146] else { 1578s [00:52:58.146] if (TRUE) { 1578s [00:52:58.146] ...future.stdout <- base::rawConnection(base::raw(0L), 1578s [00:52:58.146] open = "w") 1578s [00:52:58.146] } 1578s [00:52:58.146] else { 1578s [00:52:58.146] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1578s [00:52:58.146] windows = "NUL", "/dev/null"), open = "w") 1578s [00:52:58.146] } 1578s [00:52:58.146] base::sink(...future.stdout, type = "output", split = FALSE) 1578s [00:52:58.146] base::on.exit(if (!base::is.null(...future.stdout)) { 1578s [00:52:58.146] base::sink(type = "output", split = FALSE) 1578s [00:52:58.146] base::close(...future.stdout) 1578s [00:52:58.146] }, add = TRUE) 1578s [00:52:58.146] } 1578s [00:52:58.146] ...future.frame <- base::sys.nframe() 1578s [00:52:58.146] ...future.conditions <- base::list() 1578s [00:52:58.146] ...future.rng <- base::globalenv()$.Random.seed 1578s [00:52:58.146] if (FALSE) { 1578s [00:52:58.146] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1578s [00:52:58.146] "...future.value", "...future.globalenv.names", ".Random.seed") 1578s [00:52:58.146] } 1578s [00:52:58.146] ...future.result <- base::tryCatch({ 1578s [00:52:58.146] base::withCallingHandlers({ 1578s [00:52:58.146] ...future.value <- base::withVisible(base::local({ 1578s [00:52:58.146] do.call(function(...) { 1578s [00:52:58.146] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1578s [00:52:58.146] if (!identical(...future.globals.maxSize.org, 1578s [00:52:58.146] ...future.globals.maxSize)) { 1578s [00:52:58.146] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1578s [00:52:58.146] on.exit(options(oopts), add = TRUE) 1578s [00:52:58.146] } 1578s [00:52:58.146] { 1578s [00:52:58.146] lapply(seq_along(...future.elements_ii), 1578s [00:52:58.146] FUN = function(jj) { 1578s [00:52:58.146] ...future.X_jj <- ...future.elements_ii[[jj]] 1578s [00:52:58.146] ...future.FUN(...future.X_jj, ...) 1578s [00:52:58.146] }) 1578s [00:52:58.146] } 1578s [00:52:58.146] }, args = future.call.arguments) 1578s [00:52:58.146] })) 1578s [00:52:58.146] future::FutureResult(value = ...future.value$value, 1578s [00:52:58.146] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1578s [00:52:58.146] ...future.rng), globalenv = if (FALSE) 1578s [00:52:58.146] list(added = base::setdiff(base::names(base::.GlobalEnv), 1578s [00:52:58.146] ...future.globalenv.names)) 1578s [00:52:58.146] else NULL, started = ...future.startTime, version = "1.8") 1578s [00:52:58.146] }, condition = base::local({ 1578s [00:52:58.146] c <- base::c 1578s [00:52:58.146] inherits <- base::inherits 1578s [00:52:58.146] invokeRestart <- base::invokeRestart 1578s [00:52:58.146] length <- base::length 1578s [00:52:58.146] list <- base::list 1578s [00:52:58.146] seq.int <- base::seq.int 1578s [00:52:58.146] signalCondition <- base::signalCondition 1578s [00:52:58.146] sys.calls <- base::sys.calls 1578s [00:52:58.146] `[[` <- base::`[[` 1578s [00:52:58.146] `+` <- base::`+` 1578s [00:52:58.146] `<<-` <- base::`<<-` 1578s [00:52:58.146] sysCalls <- function(calls = sys.calls(), from = 1L) { 1578s [00:52:58.146] calls[seq.int(from = from + 12L, to = length(calls) - 1578s [00:52:58.146] 3L)] 1578s [00:52:58.146] } 1578s [00:52:58.146] function(cond) { 1578s [00:52:58.146] is_error <- inherits(cond, "error") 1578s [00:52:58.146] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1578s [00:52:58.146] NULL) 1578s [00:52:58.146] if (is_error) { 1578s [00:52:58.146] sessionInformation <- function() { 1578s [00:52:58.146] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1578s [00:52:58.146] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1578s [00:52:58.146] search = base::search(), system = base::Sys.info()) 1578s [00:52:58.146] } 1578s [00:52:58.146] ...future.conditions[[length(...future.conditions) + 1578s [00:52:58.146] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1578s [00:52:58.146] cond$call), session = sessionInformation(), 1578s [00:52:58.146] timestamp = base::Sys.time(), signaled = 0L) 1578s [00:52:58.146] signalCondition(cond) 1578s [00:52:58.146] } 1578s [00:52:58.146] else if (!ignore && TRUE && inherits(cond, c("condition", 1578s [00:52:58.146] "immediateCondition"))) { 1578s [00:52:58.146] signal <- TRUE && inherits(cond, "immediateCondition") 1578s [00:52:58.146] ...future.conditions[[length(...future.conditions) + 1578s [00:52:58.146] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1578s [00:52:58.146] if (TRUE && !signal) { 1578s [00:52:58.146] muffleCondition <- function (cond, pattern = "^muffle") 1578s [00:52:58.146] { 1578s [00:52:58.146] inherits <- base::inherits 1578s [00:52:58.146] invokeRestart <- base::invokeRestart 1578s [00:52:58.146] is.null <- base::is.null 1578s [00:52:58.146] muffled <- FALSE 1578s [00:52:58.146] if (inherits(cond, "message")) { 1578s [00:52:58.146] muffled <- grepl(pattern, "muffleMessage") 1578s [00:52:58.146] if (muffled) 1578s [00:52:58.146] invokeRestart("muffleMessage") 1578s [00:52:58.146] } 1578s [00:52:58.146] else if (inherits(cond, "warning")) { 1578s [00:52:58.146] muffled <- grepl(pattern, "muffleWarning") 1578s [00:52:58.146] if (muffled) 1578s [00:52:58.146] invokeRestart("muffleWarning") 1578s [00:52:58.146] } 1578s [00:52:58.146] else if (inherits(cond, "condition")) { 1578s [00:52:58.146] if (!is.null(pattern)) { 1578s [00:52:58.146] computeRestarts <- base::computeRestarts 1578s [00:52:58.146] grepl <- base::grepl 1578s [00:52:58.146] restarts <- computeRestarts(cond) 1578s [00:52:58.146] for (restart in restarts) { 1578s [00:52:58.146] name <- restart$name 1578s [00:52:58.146] if (is.null(name)) 1578s [00:52:58.146] next 1578s [00:52:58.146] if (!grepl(pattern, name)) 1578s [00:52:58.146] next 1578s [00:52:58.146] invokeRestart(restart) 1578s [00:52:58.146] muffled <- TRUE 1578s [00:52:58.146] break 1578s [00:52:58.146] } 1578s [00:52:58.146] } 1578s [00:52:58.146] } 1578s [00:52:58.146] invisible(muffled) 1578s [00:52:58.146] } 1578s [00:52:58.146] muffleCondition(cond, pattern = "^muffle") 1578s [00:52:58.146] } 1578s [00:52:58.146] } 1578s [00:52:58.146] else { 1578s [00:52:58.146] if (TRUE) { 1578s [00:52:58.146] muffleCondition <- function (cond, pattern = "^muffle") 1578s [00:52:58.146] { 1578s [00:52:58.146] inherits <- base::inherits 1578s [00:52:58.146] invokeRestart <- base::invokeRestart 1578s [00:52:58.146] is.null <- base::is.null 1578s [00:52:58.146] muffled <- FALSE 1578s [00:52:58.146] if (inherits(cond, "message")) { 1578s [00:52:58.146] muffled <- grepl(pattern, "muffleMessage") 1578s [00:52:58.146] if (muffled) 1578s [00:52:58.146] invokeRestart("muffleMessage") 1578s [00:52:58.146] } 1578s [00:52:58.146] else if (inherits(cond, "warning")) { 1578s [00:52:58.146] muffled <- grepl(pattern, "muffleWarning") 1578s [00:52:58.146] if (muffled) 1578s [00:52:58.146] invokeRestart("muffleWarning") 1578s [00:52:58.146] } 1578s [00:52:58.146] else if (inherits(cond, "condition")) { 1578s [00:52:58.146] if (!is.null(pattern)) { 1578s [00:52:58.146] computeRestarts <- base::computeRestarts 1578s [00:52:58.146] grepl <- base::grepl 1578s [00:52:58.146] restarts <- computeRestarts(cond) 1578s [00:52:58.146] for (restart in restarts) { 1578s [00:52:58.146] name <- restart$name 1578s [00:52:58.146] if (is.null(name)) 1578s [00:52:58.146] next 1578s [00:52:58.146] if (!grepl(pattern, name)) 1578s [00:52:58.146] next 1578s [00:52:58.146] invokeRestart(restart) 1578s [00:52:58.146] muffled <- TRUE 1578s [00:52:58.146] break 1578s [00:52:58.146] } 1578s [00:52:58.146] } 1578s [00:52:58.146] } 1578s [00:52:58.146] invisible(muffled) 1578s [00:52:58.146] } 1578s [00:52:58.146] muffleCondition(cond, pattern = "^muffle") 1578s [00:52:58.146] } 1578s [00:52:58.146] } 1578s [00:52:58.146] } 1578s [00:52:58.146] })) 1578s [00:52:58.146] }, error = function(ex) { 1578s [00:52:58.146] base::structure(base::list(value = NULL, visible = NULL, 1578s [00:52:58.146] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1578s [00:52:58.146] ...future.rng), started = ...future.startTime, 1578s [00:52:58.146] finished = Sys.time(), session_uuid = NA_character_, 1578s [00:52:58.146] version = "1.8"), class = "FutureResult") 1578s [00:52:58.146] }, finally = { 1578s [00:52:58.146] if (!identical(...future.workdir, getwd())) 1578s [00:52:58.146] setwd(...future.workdir) 1578s [00:52:58.146] { 1578s [00:52:58.146] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1578s [00:52:58.146] ...future.oldOptions$nwarnings <- NULL 1578s [00:52:58.146] } 1578s [00:52:58.146] base::options(...future.oldOptions) 1578s [00:52:58.146] if (.Platform$OS.type == "windows") { 1578s [00:52:58.146] old_names <- names(...future.oldEnvVars) 1578s [00:52:58.146] envs <- base::Sys.getenv() 1578s [00:52:58.146] names <- names(envs) 1578s [00:52:58.146] common <- intersect(names, old_names) 1578s [00:52:58.146] added <- setdiff(names, old_names) 1578s [00:52:58.146] removed <- setdiff(old_names, names) 1578s [00:52:58.146] changed <- common[...future.oldEnvVars[common] != 1578s [00:52:58.146] envs[common]] 1578s [00:52:58.146] NAMES <- toupper(changed) 1578s [00:52:58.146] args <- list() 1578s [00:52:58.146] for (kk in seq_along(NAMES)) { 1578s [00:52:58.146] name <- changed[[kk]] 1578s [00:52:58.146] NAME <- NAMES[[kk]] 1578s [00:52:58.146] if (name != NAME && is.element(NAME, old_names)) 1578s [00:52:58.146] next 1578s [00:52:58.146] args[[name]] <- ...future.oldEnvVars[[name]] 1578s [00:52:58.146] } 1578s [00:52:58.146] NAMES <- toupper(added) 1578s [00:52:58.146] for (kk in seq_along(NAMES)) { 1578s [00:52:58.146] name <- added[[kk]] 1578s [00:52:58.146] NAME <- NAMES[[kk]] 1578s [00:52:58.146] if (name != NAME && is.element(NAME, old_names)) 1578s [00:52:58.146] next 1578s [00:52:58.146] args[[name]] <- "" 1578s [00:52:58.146] } 1578s [00:52:58.146] NAMES <- toupper(removed) 1578s [00:52:58.146] for (kk in seq_along(NAMES)) { 1578s [00:52:58.146] name <- removed[[kk]] 1578s [00:52:58.146] NAME <- NAMES[[kk]] 1578s [00:52:58.146] if (name != NAME && is.element(NAME, old_names)) 1578s [00:52:58.146] next 1578s [00:52:58.146] args[[name]] <- ...future.oldEnvVars[[name]] 1578s [00:52:58.146] } 1578s [00:52:58.146] if (length(args) > 0) 1578s [00:52:58.146] base::do.call(base::Sys.setenv, args = args) 1578s [00:52:58.146] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1578s [00:52:58.146] } 1578s [00:52:58.146] else { 1578s [00:52:58.146] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1578s [00:52:58.146] } 1578s [00:52:58.146] { 1578s [00:52:58.146] if (base::length(...future.futureOptionsAdded) > 1578s [00:52:58.146] 0L) { 1578s [00:52:58.146] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1578s [00:52:58.146] base::names(opts) <- ...future.futureOptionsAdded 1578s [00:52:58.146] base::options(opts) 1578s [00:52:58.146] } 1578s [00:52:58.146] { 1578s [00:52:58.146] { 1578s [00:52:58.146] NULL 1578s [00:52:58.146] RNGkind("Mersenne-Twister") 1578s [00:52:58.146] base::rm(list = ".Random.seed", envir = base::globalenv(), 1578s [00:52:58.146] inherits = FALSE) 1578s [00:52:58.146] } 1578s [00:52:58.146] options(future.plan = NULL) 1578s [00:52:58.146] if (is.na(NA_character_)) 1578s [00:52:58.146] Sys.unsetenv("R_FUTURE_PLAN") 1578s [00:52:58.146] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1578s [00:52:58.146] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1578s [00:52:58.146] envir = parent.frame()) 1578s [00:52:58.146] { 1578s [00:52:58.146] default_workers <- missing(workers) 1578s [00:52:58.146] if (is.function(workers)) 1578s [00:52:58.146] workers <- workers() 1578s [00:52:58.146] workers <- structure(as.integer(workers), 1578s [00:52:58.146] class = class(workers)) 1578s [00:52:58.146] stop_if_not(is.finite(workers), workers >= 1578s [00:52:58.146] 1L) 1578s [00:52:58.146] if ((workers == 1L && !inherits(workers, 1578s [00:52:58.146] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1578s [00:52:58.146] if (default_workers) 1578s [00:52:58.146] supportsMulticore(warn = TRUE) 1578s [00:52:58.146] return(sequential(..., envir = envir)) 1578s [00:52:58.146] } 1578s [00:52:58.146] oopts <- options(mc.cores = workers) 1578s [00:52:58.146] on.exit(options(oopts)) 1578s [00:52:58.146] future <- MulticoreFuture(..., workers = workers, 1578s [00:52:58.146] envir = envir) 1578s [00:52:58.146] if (!future$lazy) 1578s [00:52:58.146] future <- run(future) 1578s [00:52:58.146] invisible(future) 1578s [00:52:58.146] }), .cleanup = FALSE, .init = FALSE) 1578s [00:52:58.146] } 1578s [00:52:58.146] } 1578s [00:52:58.146] } 1578s [00:52:58.146] }) 1578s [00:52:58.146] if (TRUE) { 1578s [00:52:58.146] base::sink(type = "output", split = FALSE) 1578s [00:52:58.146] if (TRUE) { 1578s [00:52:58.146] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1578s [00:52:58.146] } 1578s [00:52:58.146] else { 1578s [00:52:58.146] ...future.result["stdout"] <- base::list(NULL) 1578s [00:52:58.146] } 1578s [00:52:58.146] base::close(...future.stdout) 1578s [00:52:58.146] ...future.stdout <- NULL 1578s [00:52:58.146] } 1578s [00:52:58.146] ...future.result$conditions <- ...future.conditions 1578s [00:52:58.146] ...future.result$finished <- base::Sys.time() 1578s [00:52:58.146] ...future.result 1578s [00:52:58.146] } 1578s [00:52:58.149] assign_globals() ... 1578s [00:52:58.149] List of 5 1578s [00:52:58.149] $ ...future.FUN :function (x, ...) 1578s [00:52:58.149] $ future.call.arguments : list() 1578s [00:52:58.149] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1578s [00:52:58.149] $ ...future.elements_ii :List of 4 1578s [00:52:58.149] ..$ A: num 50 1578s [00:52:58.149] ..$ B: num 60 1578s [00:52:58.149] ..$ C: num 70 1578s [00:52:58.149] ..$ D: num 80 1578s [00:52:58.149] $ ...future.seeds_ii : NULL 1578s [00:52:58.149] $ ...future.globals.maxSize: NULL 1578s [00:52:58.149] - attr(*, "where")=List of 5 1578s [00:52:58.149] ..$ ...future.FUN : 1578s [00:52:58.149] ..$ future.call.arguments : 1578s [00:52:58.149] ..$ ...future.elements_ii : 1578s [00:52:58.149] ..$ ...future.seeds_ii : 1578s [00:52:58.149] ..$ ...future.globals.maxSize: 1578s [00:52:58.149] - attr(*, "resolved")= logi FALSE 1578s [00:52:58.149] - attr(*, "total_size")= num 1248 1578s [00:52:58.149] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1578s [00:52:58.149] - attr(*, "already-done")= logi TRUE 1578s [00:52:58.158] - copied ‘...future.FUN’ to environment 1578s [00:52:58.158] - copied ‘future.call.arguments’ to environment 1578s [00:52:58.158] - copied ‘...future.elements_ii’ to environment 1578s [00:52:58.158] - copied ‘...future.seeds_ii’ to environment 1578s [00:52:58.159] - copied ‘...future.globals.maxSize’ to environment 1578s [00:52:58.159] assign_globals() ... done 1578s [00:52:58.160] plan(): Setting new future strategy stack: 1578s [00:52:58.160] List of future strategies: 1578s [00:52:58.160] 1. sequential: 1578s [00:52:58.160] - args: function (..., envir = parent.frame()) 1578s [00:52:58.160] - tweaked: FALSE 1578s [00:52:58.160] - call: NULL 1578s [00:52:58.161] plan(): nbrOfWorkers() = 1 1578s [00:52:58.163] plan(): Setting new future strategy stack: 1578s [00:52:58.163] List of future strategies: 1578s [00:52:58.163] 1. multicore: 1578s [00:52:58.163] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1578s [00:52:58.163] - tweaked: FALSE 1578s [00:52:58.163] - call: plan(strategy) 1578s [00:52:58.166] plan(): nbrOfWorkers() = 1 1578s [00:52:58.167] SequentialFuture started (and completed) 1578s [00:52:58.167] - Launch lazy future ... done 1578s [00:52:58.167] run() for ‘SequentialFuture’ ... done 1578s [00:52:58.167] Created future: 1578s [00:52:58.167] SequentialFuture: 1578s [00:52:58.167] Label: ‘future_sapply-1’ 1578s [00:52:58.167] Expression: 1578s [00:52:58.167] { 1578s [00:52:58.167] do.call(function(...) { 1578s [00:52:58.167] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1578s [00:52:58.167] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1578s [00:52:58.167] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1578s [00:52:58.167] on.exit(options(oopts), add = TRUE) 1578s [00:52:58.167] } 1578s [00:52:58.167] { 1578s [00:52:58.167] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1578s [00:52:58.167] ...future.X_jj <- ...future.elements_ii[[jj]] 1578s [00:52:58.167] ...future.FUN(...future.X_jj, ...) 1578s [00:52:58.167] }) 1578s [00:52:58.167] } 1578s [00:52:58.167] }, args = future.call.arguments) 1578s [00:52:58.167] } 1578s [00:52:58.167] Lazy evaluation: FALSE 1578s [00:52:58.167] Asynchronous evaluation: FALSE 1578s [00:52:58.167] Local evaluation: TRUE 1578s [00:52:58.167] Environment: R_GlobalEnv 1578s [00:52:58.167] Capture standard output: TRUE 1578s [00:52:58.167] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1578s [00:52:58.167] Globals: 5 objects totaling 1.44 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1578s [00:52:58.167] Packages: 1578s [00:52:58.167] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1578s [00:52:58.167] Resolved: TRUE 1578s [00:52:58.167] Value: 896 bytes of class ‘list’ 1578s [00:52:58.167] Early signaling: FALSE 1578s [00:52:58.167] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1578s [00:52:58.167] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1578s [00:52:58.171] Chunk #1 of 1 ... DONE 1578s [00:52:58.172] Launching 1 futures (chunks) ... DONE 1578s [00:52:58.172] Resolving 1 futures (chunks) ... 1578s [00:52:58.172] resolve() on list ... 1578s [00:52:58.172] recursive: 0 1578s [00:52:58.172] length: 1 1578s [00:52:58.173] 1578s [00:52:58.173] resolved() for ‘SequentialFuture’ ... 1578s [00:52:58.174] - state: ‘finished’ 1578s [00:52:58.174] - run: TRUE 1578s [00:52:58.175] - result: ‘FutureResult’ 1578s [00:52:58.175] resolved() for ‘SequentialFuture’ ... done 1578s [00:52:58.175] Future #1 1578s [00:52:58.175] signalConditionsASAP(SequentialFuture, pos=1) ... 1578s [00:52:58.176] - nx: 1 1578s [00:52:58.176] - relay: TRUE 1578s [00:52:58.176] - stdout: TRUE 1578s [00:52:58.177] - signal: TRUE 1578s [00:52:58.177] - resignal: FALSE 1578s [00:52:58.177] - force: TRUE 1578s [00:52:58.177] - relayed: [n=1] FALSE 1578s [00:52:58.177] - queued futures: [n=1] FALSE 1578s [00:52:58.178] - until=1 1578s [00:52:58.178] - relaying element #1 1578s [00:52:58.179] - relayed: [n=1] TRUE 1578s [00:52:58.179] - queued futures: [n=1] TRUE 1578s [00:52:58.179] signalConditionsASAP(SequentialFuture, pos=1) ... done 1578s [00:52:58.180] length: 0 (resolved future 1) 1578s [00:52:58.180] Relaying remaining futures 1578s [00:52:58.180] signalConditionsASAP(NULL, pos=0) ... 1578s [00:52:58.180] - nx: 1 1578s [00:52:58.181] - relay: TRUE 1578s [00:52:58.181] - stdout: TRUE 1578s [00:52:58.181] - signal: TRUE 1578s [00:52:58.181] - resignal: FALSE 1578s [00:52:58.181] - force: TRUE 1578s [00:52:58.181] - relayed: [n=1] TRUE 1578s [00:52:58.181] - queued futures: [n=1] TRUE 1578s - flush all 1578s [00:52:58.182] - relayed: [n=1] TRUE 1578s [00:52:58.182] - queued futures: [n=1] TRUE 1578s [00:52:58.182] signalConditionsASAP(NULL, pos=0) ... done 1578s [00:52:58.182] resolve() on list ... DONE 1578s [00:52:58.182] - Number of value chunks collected: 1 1578s [00:52:58.182] Resolving 1 futures (chunks) ... DONE 1578s [00:52:58.183] Reducing values from 1 chunks ... 1578s [00:52:58.183] - Number of values collected after concatenation: 4 1578s [00:52:58.183] - Number of values expected: 4 1578s [00:52:58.183] Reducing values from 1 chunks ... DONE 1578s [00:52:58.183] future_lapply() ... DONE 1578s List of 2 1578s $ y0:List of 4 1578s ..$ A: num [1, 1] 50 1578s ..$ B: num [1, 1] 60 1578s ..$ C: num [1, 1] 70 1578s ..$ D: num [1, 1] 80 1578s $ y1:List of 4 1578s ..$ A: num [1, 1] 50 1578s ..$ B: num [1, 1] 60 1578s ..$ C: num [1, 1] 70 1578s ..$ D: num [1, 1] 80 1578s List of 2 1578s $ y0:List of 4 1578s ..$ A: num [1, 1] 50 1578s ..$ B: num [1, 1] 60 1578s ..$ C: num [1, 1] 70 1578s ..$ D: num [1, 1] 80 1578s $ y2:List of 4 1578s ..$ A: num [1, 1] 50 1578s ..$ B: num [1, 1] 60 1578s ..$ C: num [1, 1] 70 1578s ..$ D: num [1, 1] 80 1578s [00:52:58.199] future_lapply() ... 1578s [00:52:58.205] Number of chunks: 1 1578s [00:52:58.205] getGlobalsAndPackagesXApply() ... 1578s [00:52:58.205] - future.globals: TRUE 1578s [00:52:58.205] getGlobalsAndPackages() ... 1578s [00:52:58.206] Searching for globals... 1578s [00:52:58.207] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1578s [00:52:58.208] Searching for globals ... DONE 1578s [00:52:58.208] Resolving globals: FALSE 1578s [00:52:58.212] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1578s [00:52:58.213] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1578s [00:52:58.214] - globals: [1] ‘FUN’ 1578s [00:52:58.214] 1578s [00:52:58.214] getGlobalsAndPackages() ... DONE 1578s [00:52:58.214] - globals found/used: [n=1] ‘FUN’ 1578s [00:52:58.215] - needed namespaces: [n=0] 1578s [00:52:58.215] Finding globals ... DONE 1578s [00:52:58.215] - use_args: TRUE 1578s [00:52:58.216] - Getting '...' globals ... 1578s [00:52:58.217] resolve() on list ... 1578s [00:52:58.217] recursive: 0 1578s [00:52:58.217] length: 1 1578s [00:52:58.217] elements: ‘...’ 1578s [00:52:58.218] length: 0 (resolved future 1) 1578s [00:52:58.218] resolve() on list ... DONE 1578s [00:52:58.218] - '...' content: [n=0] 1578s [00:52:58.218] List of 1 1578s [00:52:58.218] $ ...: list() 1578s [00:52:58.218] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1578s [00:52:58.218] - attr(*, "where")=List of 1 1578s [00:52:58.218] ..$ ...: 1578s [00:52:58.218] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1578s [00:52:58.218] - attr(*, "resolved")= logi TRUE 1578s [00:52:58.218] - attr(*, "total_size")= num NA 1578s [00:52:58.223] - Getting '...' globals ... DONE 1578s [00:52:58.223] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1578s [00:52:58.223] List of 2 1578s [00:52:58.223] $ ...future.FUN:function (x, y = 2 * 1:5) 1578s [00:52:58.223] $ ... : list() 1578s [00:52:58.223] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1578s [00:52:58.223] - attr(*, "where")=List of 2 1578s [00:52:58.223] ..$ ...future.FUN: 1578s [00:52:58.223] ..$ ... : 1578s [00:52:58.223] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1578s [00:52:58.223] - attr(*, "resolved")= logi FALSE 1578s [00:52:58.223] - attr(*, "total_size")= num 4728 1578s [00:52:58.227] Packages to be attached in all futures: [n=0] 1578s [00:52:58.227] getGlobalsAndPackagesXApply() ... DONE 1578s [00:52:58.228] Number of futures (= number of chunks): 1 1578s [00:52:58.228] Launching 1 futures (chunks) ... 1578s [00:52:58.228] Chunk #1 of 1 ... 1578s [00:52:58.228] - Finding globals in 'X' for chunk #1 ... 1578s [00:52:58.228] getGlobalsAndPackages() ... 1578s [00:52:58.229] Searching for globals... 1578s [00:52:58.229] 1578s [00:52:58.229] Searching for globals ... DONE 1578s [00:52:58.230] - globals: [0] 1578s [00:52:58.230] getGlobalsAndPackages() ... DONE 1578s [00:52:58.230] + additional globals found: [n=0] 1578s [00:52:58.230] + additional namespaces needed: [n=0] 1578s [00:52:58.230] - Finding globals in 'X' for chunk #1 ... DONE 1578s [00:52:58.231] - seeds: 1578s [00:52:58.231] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1578s [00:52:58.231] getGlobalsAndPackages() ... 1578s [00:52:58.231] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1578s [00:52:58.232] Resolving globals: FALSE 1578s [00:52:58.233] Tweak future expression to call with '...' arguments ... 1578s [00:52:58.234] { 1578s [00:52:58.234] do.call(function(...) { 1578s [00:52:58.234] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1578s [00:52:58.234] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1578s [00:52:58.234] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1578s [00:52:58.234] on.exit(options(oopts), add = TRUE) 1578s [00:52:58.234] } 1578s [00:52:58.234] { 1578s [00:52:58.234] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1578s [00:52:58.234] ...future.X_jj <- ...future.elements_ii[[jj]] 1578s [00:52:58.234] ...future.FUN(...future.X_jj, ...) 1578s [00:52:58.234] }) 1578s [00:52:58.234] } 1578s [00:52:58.234] }, args = future.call.arguments) 1578s [00:52:58.234] } 1578s [00:52:58.236] Tweak future expression to call with '...' arguments ... DONE 1578s [00:52:58.237] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1578s [00:52:58.237] 1578s [00:52:58.237] getGlobalsAndPackages() ... DONE 1578s [00:52:58.238] run() for ‘Future’ ... 1578s [00:52:58.238] - state: ‘created’ 1578s [00:52:58.238] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1578s [00:52:58.244] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1578s [00:52:58.245] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1578s [00:52:58.245] - Field: ‘label’ 1578s [00:52:58.245] - Field: ‘local’ 1578s [00:52:58.245] - Field: ‘owner’ 1578s [00:52:58.246] - Field: ‘envir’ 1578s [00:52:58.246] - Field: ‘packages’ 1578s [00:52:58.246] - Field: ‘gc’ 1578s [00:52:58.246] - Field: ‘conditions’ 1578s [00:52:58.246] - Field: ‘expr’ 1578s [00:52:58.246] - Field: ‘uuid’ 1578s [00:52:58.247] - Field: ‘seed’ 1578s [00:52:58.247] - Field: ‘version’ 1578s [00:52:58.248] - Field: ‘result’ 1578s [00:52:58.248] - Field: ‘asynchronous’ 1578s [00:52:58.249] - Field: ‘calls’ 1578s [00:52:58.249] - Field: ‘globals’ 1578s [00:52:58.250] - Field: ‘stdout’ 1578s [00:52:58.250] - Field: ‘earlySignal’ 1578s [00:52:58.250] - Field: ‘lazy’ 1578s [00:52:58.251] - Field: ‘state’ 1578s [00:52:58.251] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1578s [00:52:58.251] - Launch lazy future ... 1578s [00:52:58.251] Packages needed by the future expression (n = 0): 1578s [00:52:58.251] Packages needed by future strategies (n = 0): 1578s [00:52:58.252] { 1578s [00:52:58.252] { 1578s [00:52:58.252] { 1578s [00:52:58.252] ...future.startTime <- base::Sys.time() 1578s [00:52:58.252] { 1578s [00:52:58.252] { 1578s [00:52:58.252] { 1578s [00:52:58.252] base::local({ 1578s [00:52:58.252] has_future <- base::requireNamespace("future", 1578s [00:52:58.252] quietly = TRUE) 1578s [00:52:58.252] if (has_future) { 1578s [00:52:58.252] ns <- base::getNamespace("future") 1578s [00:52:58.252] version <- ns[[".package"]][["version"]] 1578s [00:52:58.252] if (is.null(version)) 1578s [00:52:58.252] version <- utils::packageVersion("future") 1578s [00:52:58.252] } 1578s [00:52:58.252] else { 1578s [00:52:58.252] version <- NULL 1578s [00:52:58.252] } 1578s [00:52:58.252] if (!has_future || version < "1.8.0") { 1578s [00:52:58.252] info <- base::c(r_version = base::gsub("R version ", 1578s [00:52:58.252] "", base::R.version$version.string), 1578s [00:52:58.252] platform = base::sprintf("%s (%s-bit)", 1578s [00:52:58.252] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1578s [00:52:58.252] os = base::paste(base::Sys.info()[base::c("sysname", 1578s [00:52:58.252] "release", "version")], collapse = " "), 1578s [00:52:58.252] hostname = base::Sys.info()[["nodename"]]) 1578s [00:52:58.252] info <- base::sprintf("%s: %s", base::names(info), 1578s [00:52:58.252] info) 1578s [00:52:58.252] info <- base::paste(info, collapse = "; ") 1578s [00:52:58.252] if (!has_future) { 1578s [00:52:58.252] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1578s [00:52:58.252] info) 1578s [00:52:58.252] } 1578s [00:52:58.252] else { 1578s [00:52:58.252] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1578s [00:52:58.252] info, version) 1578s [00:52:58.252] } 1578s [00:52:58.252] base::stop(msg) 1578s [00:52:58.252] } 1578s [00:52:58.252] }) 1578s [00:52:58.252] } 1578s [00:52:58.252] options(future.plan = NULL) 1578s [00:52:58.252] Sys.unsetenv("R_FUTURE_PLAN") 1578s [00:52:58.252] future::plan("default", .cleanup = FALSE, .init = FALSE) 1578s [00:52:58.252] } 1578s [00:52:58.252] ...future.workdir <- getwd() 1578s [00:52:58.252] } 1578s [00:52:58.252] ...future.oldOptions <- base::as.list(base::.Options) 1578s [00:52:58.252] ...future.oldEnvVars <- base::Sys.getenv() 1578s [00:52:58.252] } 1578s [00:52:58.252] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1578s [00:52:58.252] future.globals.maxSize = NULL, future.globals.method = NULL, 1578s [00:52:58.252] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1578s [00:52:58.252] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1578s [00:52:58.252] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1578s [00:52:58.252] future.stdout.windows.reencode = NULL, width = 80L) 1578s [00:52:58.252] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1578s [00:52:58.252] base::names(...future.oldOptions)) 1578s [00:52:58.252] } 1578s [00:52:58.252] if (FALSE) { 1578s [00:52:58.252] } 1578s [00:52:58.252] else { 1578s [00:52:58.252] if (TRUE) { 1578s [00:52:58.252] ...future.stdout <- base::rawConnection(base::raw(0L), 1578s [00:52:58.252] open = "w") 1578s [00:52:58.252] } 1578s [00:52:58.252] else { 1578s [00:52:58.252] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1578s [00:52:58.252] windows = "NUL", "/dev/null"), open = "w") 1578s [00:52:58.252] } 1578s [00:52:58.252] base::sink(...future.stdout, type = "output", split = FALSE) 1578s [00:52:58.252] base::on.exit(if (!base::is.null(...future.stdout)) { 1578s [00:52:58.252] base::sink(type = "output", split = FALSE) 1578s [00:52:58.252] base::close(...future.stdout) 1578s [00:52:58.252] }, add = TRUE) 1578s [00:52:58.252] } 1578s [00:52:58.252] ...future.frame <- base::sys.nframe() 1578s [00:52:58.252] ...future.conditions <- base::list() 1578s [00:52:58.252] ...future.rng <- base::globalenv()$.Random.seed 1578s [00:52:58.252] if (FALSE) { 1578s [00:52:58.252] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1578s [00:52:58.252] "...future.value", "...future.globalenv.names", ".Random.seed") 1578s [00:52:58.252] } 1578s [00:52:58.252] ...future.result <- base::tryCatch({ 1578s [00:52:58.252] base::withCallingHandlers({ 1578s [00:52:58.252] ...future.value <- base::withVisible(base::local({ 1578s [00:52:58.252] do.call(function(...) { 1578s [00:52:58.252] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1578s [00:52:58.252] if (!identical(...future.globals.maxSize.org, 1578s [00:52:58.252] ...future.globals.maxSize)) { 1578s [00:52:58.252] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1578s [00:52:58.252] on.exit(options(oopts), add = TRUE) 1578s [00:52:58.252] } 1578s [00:52:58.252] { 1578s [00:52:58.252] lapply(seq_along(...future.elements_ii), 1578s [00:52:58.252] FUN = function(jj) { 1578s [00:52:58.252] ...future.X_jj <- ...future.elements_ii[[jj]] 1578s [00:52:58.252] ...future.FUN(...future.X_jj, ...) 1578s [00:52:58.252] }) 1578s [00:52:58.252] } 1578s [00:52:58.252] }, args = future.call.arguments) 1578s [00:52:58.252] })) 1578s [00:52:58.252] future::FutureResult(value = ...future.value$value, 1578s [00:52:58.252] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1578s [00:52:58.252] ...future.rng), globalenv = if (FALSE) 1578s [00:52:58.252] list(added = base::setdiff(base::names(base::.GlobalEnv), 1578s [00:52:58.252] ...future.globalenv.names)) 1578s [00:52:58.252] else NULL, started = ...future.startTime, version = "1.8") 1578s [00:52:58.252] }, condition = base::local({ 1578s [00:52:58.252] c <- base::c 1578s [00:52:58.252] inherits <- base::inherits 1578s [00:52:58.252] invokeRestart <- base::invokeRestart 1578s [00:52:58.252] length <- base::length 1578s [00:52:58.252] list <- base::list 1578s [00:52:58.252] seq.int <- base::seq.int 1578s [00:52:58.252] signalCondition <- base::signalCondition 1578s [00:52:58.252] sys.calls <- base::sys.calls 1578s [00:52:58.252] `[[` <- base::`[[` 1578s [00:52:58.252] `+` <- base::`+` 1578s [00:52:58.252] `<<-` <- base::`<<-` 1578s [00:52:58.252] sysCalls <- function(calls = sys.calls(), from = 1L) { 1578s [00:52:58.252] calls[seq.int(from = from + 12L, to = length(calls) - 1578s [00:52:58.252] 3L)] 1578s [00:52:58.252] } 1578s [00:52:58.252] function(cond) { 1578s [00:52:58.252] is_error <- inherits(cond, "error") 1578s [00:52:58.252] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1578s [00:52:58.252] NULL) 1578s [00:52:58.252] if (is_error) { 1578s [00:52:58.252] sessionInformation <- function() { 1578s [00:52:58.252] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1578s [00:52:58.252] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1578s [00:52:58.252] search = base::search(), system = base::Sys.info()) 1578s [00:52:58.252] } 1578s [00:52:58.252] ...future.conditions[[length(...future.conditions) + 1578s [00:52:58.252] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1578s [00:52:58.252] cond$call), session = sessionInformation(), 1578s [00:52:58.252] timestamp = base::Sys.time(), signaled = 0L) 1578s [00:52:58.252] signalCondition(cond) 1578s [00:52:58.252] } 1578s [00:52:58.252] else if (!ignore && TRUE && inherits(cond, c("condition", 1578s [00:52:58.252] "immediateCondition"))) { 1578s [00:52:58.252] signal <- TRUE && inherits(cond, "immediateCondition") 1578s [00:52:58.252] ...future.conditions[[length(...future.conditions) + 1578s [00:52:58.252] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1578s [00:52:58.252] if (TRUE && !signal) { 1578s [00:52:58.252] muffleCondition <- function (cond, pattern = "^muffle") 1578s [00:52:58.252] { 1578s [00:52:58.252] inherits <- base::inherits 1578s [00:52:58.252] invokeRestart <- base::invokeRestart 1578s [00:52:58.252] is.null <- base::is.null 1578s [00:52:58.252] muffled <- FALSE 1578s [00:52:58.252] if (inherits(cond, "message")) { 1578s [00:52:58.252] muffled <- grepl(pattern, "muffleMessage") 1578s [00:52:58.252] if (muffled) 1578s [00:52:58.252] invokeRestart("muffleMessage") 1578s [00:52:58.252] } 1578s [00:52:58.252] else if (inherits(cond, "warning")) { 1578s [00:52:58.252] muffled <- grepl(pattern, "muffleWarning") 1578s [00:52:58.252] if (muffled) 1578s [00:52:58.252] invokeRestart("muffleWarning") 1578s [00:52:58.252] } 1578s [00:52:58.252] else if (inherits(cond, "condition")) { 1578s [00:52:58.252] if (!is.null(pattern)) { 1578s [00:52:58.252] computeRestarts <- base::computeRestarts 1578s [00:52:58.252] grepl <- base::grepl 1578s [00:52:58.252] restarts <- computeRestarts(cond) 1578s [00:52:58.252] for (restart in restarts) { 1578s [00:52:58.252] name <- restart$name 1578s [00:52:58.252] if (is.null(name)) 1578s [00:52:58.252] next 1578s [00:52:58.252] if (!grepl(pattern, name)) 1578s [00:52:58.252] next 1578s [00:52:58.252] invokeRestart(restart) 1578s [00:52:58.252] muffled <- TRUE 1578s [00:52:58.252] break 1578s [00:52:58.252] } 1578s [00:52:58.252] } 1578s [00:52:58.252] } 1578s [00:52:58.252] invisible(muffled) 1578s [00:52:58.252] } 1578s [00:52:58.252] muffleCondition(cond, pattern = "^muffle") 1578s [00:52:58.252] } 1578s [00:52:58.252] } 1578s [00:52:58.252] else { 1578s [00:52:58.252] if (TRUE) { 1578s [00:52:58.252] muffleCondition <- function (cond, pattern = "^muffle") 1578s [00:52:58.252] { 1578s [00:52:58.252] inherits <- base::inherits 1578s [00:52:58.252] invokeRestart <- base::invokeRestart 1578s [00:52:58.252] is.null <- base::is.null 1578s [00:52:58.252] muffled <- FALSE 1578s [00:52:58.252] if (inherits(cond, "message")) { 1578s [00:52:58.252] muffled <- grepl(pattern, "muffleMessage") 1578s [00:52:58.252] if (muffled) 1578s [00:52:58.252] invokeRestart("muffleMessage") 1578s [00:52:58.252] } 1578s [00:52:58.252] else if (inherits(cond, "warning")) { 1578s [00:52:58.252] muffled <- grepl(pattern, "muffleWarning") 1578s [00:52:58.252] if (muffled) 1578s [00:52:58.252] invokeRestart("muffleWarning") 1578s [00:52:58.252] } 1578s [00:52:58.252] else if (inherits(cond, "condition")) { 1578s [00:52:58.252] if (!is.null(pattern)) { 1578s [00:52:58.252] computeRestarts <- base::computeRestarts 1578s [00:52:58.252] grepl <- base::grepl 1578s [00:52:58.252] restarts <- computeRestarts(cond) 1578s [00:52:58.252] for (restart in restarts) { 1578s [00:52:58.252] name <- restart$name 1578s [00:52:58.252] if (is.null(name)) 1578s [00:52:58.252] next 1578s [00:52:58.252] if (!grepl(pattern, name)) 1578s [00:52:58.252] next 1578s [00:52:58.252] invokeRestart(restart) 1578s [00:52:58.252] muffled <- TRUE 1578s [00:52:58.252] break 1578s [00:52:58.252] } 1578s [00:52:58.252] } 1578s [00:52:58.252] } 1578s [00:52:58.252] invisible(muffled) 1578s [00:52:58.252] } 1578s [00:52:58.252] muffleCondition(cond, pattern = "^muffle") 1578s [00:52:58.252] } 1578s [00:52:58.252] } 1578s [00:52:58.252] } 1578s [00:52:58.252] })) 1578s [00:52:58.252] }, error = function(ex) { 1578s [00:52:58.252] base::structure(base::list(value = NULL, visible = NULL, 1578s [00:52:58.252] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1578s [00:52:58.252] ...future.rng), started = ...future.startTime, 1578s [00:52:58.252] finished = Sys.time(), session_uuid = NA_character_, 1578s [00:52:58.252] version = "1.8"), class = "FutureResult") 1578s [00:52:58.252] }, finally = { 1578s [00:52:58.252] if (!identical(...future.workdir, getwd())) 1578s [00:52:58.252] setwd(...future.workdir) 1578s [00:52:58.252] { 1578s [00:52:58.252] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1578s [00:52:58.252] ...future.oldOptions$nwarnings <- NULL 1578s [00:52:58.252] } 1578s [00:52:58.252] base::options(...future.oldOptions) 1578s [00:52:58.252] if (.Platform$OS.type == "windows") { 1578s [00:52:58.252] old_names <- names(...future.oldEnvVars) 1578s [00:52:58.252] envs <- base::Sys.getenv() 1578s [00:52:58.252] names <- names(envs) 1578s [00:52:58.252] common <- intersect(names, old_names) 1578s [00:52:58.252] added <- setdiff(names, old_names) 1578s [00:52:58.252] removed <- setdiff(old_names, names) 1578s [00:52:58.252] changed <- common[...future.oldEnvVars[common] != 1578s [00:52:58.252] envs[common]] 1578s [00:52:58.252] NAMES <- toupper(changed) 1578s [00:52:58.252] args <- list() 1578s [00:52:58.252] for (kk in seq_along(NAMES)) { 1578s [00:52:58.252] name <- changed[[kk]] 1578s [00:52:58.252] NAME <- NAMES[[kk]] 1578s [00:52:58.252] if (name != NAME && is.element(NAME, old_names)) 1578s [00:52:58.252] next 1578s [00:52:58.252] args[[name]] <- ...future.oldEnvVars[[name]] 1578s [00:52:58.252] } 1578s [00:52:58.252] NAMES <- toupper(added) 1578s [00:52:58.252] for (kk in seq_along(NAMES)) { 1578s [00:52:58.252] name <- added[[kk]] 1578s [00:52:58.252] NAME <- NAMES[[kk]] 1578s [00:52:58.252] if (name != NAME && is.element(NAME, old_names)) 1578s [00:52:58.252] next 1578s [00:52:58.252] args[[name]] <- "" 1578s [00:52:58.252] } 1578s [00:52:58.252] NAMES <- toupper(removed) 1578s [00:52:58.252] for (kk in seq_along(NAMES)) { 1578s [00:52:58.252] name <- removed[[kk]] 1578s [00:52:58.252] NAME <- NAMES[[kk]] 1578s [00:52:58.252] if (name != NAME && is.element(NAME, old_names)) 1578s [00:52:58.252] next 1578s [00:52:58.252] args[[name]] <- ...future.oldEnvVars[[name]] 1578s [00:52:58.252] } 1578s [00:52:58.252] if (length(args) > 0) 1578s [00:52:58.252] base::do.call(base::Sys.setenv, args = args) 1578s [00:52:58.252] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1578s [00:52:58.252] } 1578s [00:52:58.252] else { 1578s [00:52:58.252] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1578s [00:52:58.252] } 1578s [00:52:58.252] { 1578s [00:52:58.252] if (base::length(...future.futureOptionsAdded) > 1578s [00:52:58.252] 0L) { 1578s [00:52:58.252] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1578s [00:52:58.252] base::names(opts) <- ...future.futureOptionsAdded 1578s [00:52:58.252] base::options(opts) 1578s [00:52:58.252] } 1578s [00:52:58.252] { 1578s [00:52:58.252] { 1578s [00:52:58.252] NULL 1578s [00:52:58.252] RNGkind("Mersenne-Twister") 1578s [00:52:58.252] base::rm(list = ".Random.seed", envir = base::globalenv(), 1578s [00:52:58.252] inherits = FALSE) 1578s [00:52:58.252] } 1578s [00:52:58.252] options(future.plan = NULL) 1578s [00:52:58.252] if (is.na(NA_character_)) 1578s [00:52:58.252] Sys.unsetenv("R_FUTURE_PLAN") 1578s [00:52:58.252] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1578s [00:52:58.252] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1578s [00:52:58.252] envir = parent.frame()) 1578s [00:52:58.252] { 1578s [00:52:58.252] default_workers <- missing(workers) 1578s [00:52:58.252] if (is.function(workers)) 1578s [00:52:58.252] workers <- workers() 1578s [00:52:58.252] workers <- structure(as.integer(workers), 1578s [00:52:58.252] class = class(workers)) 1578s [00:52:58.252] stop_if_not(is.finite(workers), workers >= 1578s [00:52:58.252] 1L) 1578s [00:52:58.252] if ((workers == 1L && !inherits(workers, 1578s [00:52:58.252] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1578s [00:52:58.252] if (default_workers) 1578s [00:52:58.252] supportsMulticore(warn = TRUE) 1578s [00:52:58.252] return(sequential(..., envir = envir)) 1578s [00:52:58.252] } 1578s [00:52:58.252] oopts <- options(mc.cores = workers) 1578s [00:52:58.252] on.exit(options(oopts)) 1578s [00:52:58.252] future <- MulticoreFuture(..., workers = workers, 1578s [00:52:58.252] envir = envir) 1578s [00:52:58.252] if (!future$lazy) 1578s [00:52:58.252] future <- run(future) 1578s [00:52:58.252] invisible(future) 1578s [00:52:58.252] }), .cleanup = FALSE, .init = FALSE) 1578s [00:52:58.252] } 1578s [00:52:58.252] } 1578s [00:52:58.252] } 1578s [00:52:58.252] }) 1578s [00:52:58.252] if (TRUE) { 1578s [00:52:58.252] base::sink(type = "output", split = FALSE) 1578s [00:52:58.252] if (TRUE) { 1578s [00:52:58.252] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1578s [00:52:58.252] } 1578s [00:52:58.252] else { 1578s [00:52:58.252] ...future.result["stdout"] <- base::list(NULL) 1578s [00:52:58.252] } 1578s [00:52:58.252] base::close(...future.stdout) 1578s [00:52:58.252] ...future.stdout <- NULL 1578s [00:52:58.252] } 1578s [00:52:58.252] ...future.result$conditions <- ...future.conditions 1578s [00:52:58.252] ...future.result$finished <- base::Sys.time() 1578s [00:52:58.252] ...future.result 1578s [00:52:58.252] } 1578s [00:52:58.257] assign_globals() ... 1578s [00:52:58.258] List of 5 1578s [00:52:58.258] $ ...future.FUN :function (x, y = 2 * 1:5) 1578s [00:52:58.258] $ future.call.arguments : list() 1578s [00:52:58.258] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1578s [00:52:58.258] $ ...future.elements_ii :List of 4 1578s [00:52:58.258] ..$ A: num 50 1578s [00:52:58.258] ..$ B: num 60 1578s [00:52:58.258] ..$ C: num 70 1578s [00:52:58.258] ..$ D: num 80 1578s [00:52:58.258] $ ...future.seeds_ii : NULL 1578s [00:52:58.258] $ ...future.globals.maxSize: NULL 1578s [00:52:58.258] - attr(*, "where")=List of 5 1578s [00:52:58.258] ..$ ...future.FUN : 1578s [00:52:58.258] ..$ future.call.arguments : 1578s [00:52:58.258] ..$ ...future.elements_ii : 1578s [00:52:58.258] ..$ ...future.seeds_ii : 1578s [00:52:58.258] ..$ ...future.globals.maxSize: 1578s [00:52:58.258] - attr(*, "resolved")= logi FALSE 1578s [00:52:58.258] - attr(*, "total_size")= num 4728 1578s [00:52:58.258] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1578s [00:52:58.258] - attr(*, "already-done")= logi TRUE 1578s [00:52:58.268] - reassign environment for ‘...future.FUN’ 1578s [00:52:58.268] - copied ‘...future.FUN’ to environment 1578s [00:52:58.268] - copied ‘future.call.arguments’ to environment 1578s [00:52:58.269] - copied ‘...future.elements_ii’ to environment 1578s [00:52:58.269] - copied ‘...future.seeds_ii’ to environment 1578s [00:52:58.269] - copied ‘...future.globals.maxSize’ to environment 1578s [00:52:58.269] assign_globals() ... done 1578s [00:52:58.270] plan(): Setting new future strategy stack: 1578s [00:52:58.270] List of future strategies: 1578s [00:52:58.270] 1. sequential: 1578s [00:52:58.270] - args: function (..., envir = parent.frame()) 1578s [00:52:58.270] - tweaked: FALSE 1578s [00:52:58.270] - call: NULL 1578s [00:52:58.270] plan(): nbrOfWorkers() = 1 1578s [00:52:58.272] plan(): Setting new future strategy stack: 1578s [00:52:58.272] List of future strategies: 1578s [00:52:58.272] 1. multicore: 1578s [00:52:58.272] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1578s [00:52:58.272] - tweaked: FALSE 1578s [00:52:58.272] - call: plan(strategy) 1578s [00:52:58.276] plan(): nbrOfWorkers() = 1 1578s [00:52:58.277] SequentialFuture started (and completed) 1578s [00:52:58.277] - Launch lazy future ... done 1578s [00:52:58.277] run() for ‘SequentialFuture’ ... done 1578s [00:52:58.278] Created future: 1578s [00:52:58.278] SequentialFuture: 1578s [00:52:58.278] Label: ‘future_sapply-1’ 1578s [00:52:58.278] Expression: 1578s [00:52:58.278] { 1578s [00:52:58.278] do.call(function(...) { 1578s [00:52:58.278] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1578s List of 2 1578s $ y0:List of 4 1578s ..$ A:[00:52:58.278] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1578s [00:52:58.278] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1578s [00:52:58.278] on.exit(options(oopts), add = TRUE) 1578s [00:52:58.278] } 1578s [00:52:58.278] { 1578s [00:52:58.278] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1578s [00:52:58.278] ...future.X_jj <- ...future.elements_ii[[jj]] 1578s [00:52:58.278] ...future.FUN(...future.X_jj, ...) 1578s [00:52:58.278] }) 1578s [00:52:58.278] } 1578s [00:52:58.278] }, args = future.call.arguments) 1578s [00:52:58.278] } 1578s [00:52:58.278] Lazy evaluation: FALSE 1578s [00:52:58.278] Asynchronous evaluation: FALSE 1578s [00:52:58.278] Local evaluation: TRUE 1578s [00:52:58.278] Environment: R_GlobalEnv 1578s [00:52:58.278] Capture standard output: TRUE 1578s [00:52:58.278] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1578s [00:52:58.278] Globals: 5 objects totaling 4.84 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1578s [00:52:58.278] Packages: 1578s [00:52:58.278] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1578s [00:52:58.278] Resolved: TRUE 1578s [00:52:58.278] Value: 1.34 KiB of class ‘list’ 1578s [00:52:58.278] Early signaling: FALSE 1578s [00:52:58.278] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1578s [00:52:58.278] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1578s [00:52:58.280] Chunk #1 of 1 ... DONE 1578s [00:52:58.280] Launching 1 futures (chunks) ... DONE 1578s [00:52:58.280] Resolving 1 futures (chunks) ... 1578s [00:52:58.280] resolve() on list ... 1578s [00:52:58.281] recursive: 0 1578s [00:52:58.281] length: 1 1578s [00:52:58.281] 1578s [00:52:58.281] resolved() for ‘SequentialFuture’ ... 1578s [00:52:58.281] - state: ‘finished’ 1578s [00:52:58.281] - run: TRUE 1578s [00:52:58.281] - result: ‘FutureResult’ 1578s [00:52:58.281] resolved() for ‘SequentialFuture’ ... done 1578s [00:52:58.282] Future #1 1578s [00:52:58.282] signalConditionsASAP(SequentialFuture, pos=1) ... 1578s [00:52:58.282] - nx: 1 1578s [00:52:58.282] - relay: TRUE 1578s [00:52:58.282] - stdout: TRUE 1578s [00:52:58.282] - signal: TRUE 1578s [00:52:58.282] - resignal: FALSE 1578s [00:52:58.282] - force: TRUE 1578s [00:52:58.283] - relayed: [n=1] FALSE 1578s [00:52:58.283] - queued futures: [n=1] FALSE 1578s [00:52:58.283] - until=1 1578s [00:52:58.283] - relaying element #1 1578s [00:52:58.283] - relayed: [n=1] TRUE 1578s [00:52:58.283] - queued futures: [n=1] TRUE 1578s [00:52:58.283] signalConditionsASAP(SequentialFuture, pos=1) ... done 1578s [00:52:58.283] length: 0 (resolved future 1) 1578s [00:52:58.284] Relaying remaining futures 1578s [00:52:58.284] signalConditionsASAP(NULL, pos=0) ... 1578s [00:52:58.284] - nx: 1 1578s [00:52:58.284] - relay: TRUE 1578s [00:52:58.284] - stdout: TRUE 1578s [00:52:58.284] - signal: TRUE 1578s [00:52:58.284] - resignal: FALSE 1578s [00:52:58.284] - force: TRUE 1578s [00:52:58.284] - relayed: [n=1] TRUE 1578s [00:52:58.285] - queued futures: [n=1] TRUE 1578s - flush all 1578s [00:52:58.285] - relayed: [n=1] TRUE 1578s [00:52:58.285] - queued futures: [n=1] TRUE 1578s [00:52:58.285] signalConditionsASAP(NULL, pos=0) ... done 1578s [00:52:58.285] resolve() on list ... DONE 1578s [00:52:58.285] - Number of value chunks collected: 1 1578s [00:52:58.285] Resolving 1 futures (chunks) ... DONE 1578s [00:52:58.285] Reducing values from 1 chunks ... 1578s [00:52:58.286] - Number of values collected after concatenation: 4 1578s [00:52:58.286] - Number of values expected: 4 1578s [00:52:58.286] Reducing values from 1 chunks ... DONE 1578s [00:52:58.286] future_lapply() ... DONE 1578s num [1:3, 1:5] 100 100 100 200 200 200 300 300 300 400 ... 1578s ..$ B: num [1:3, 1:5] 120 120 120 240 240 240 360 360 360 480 ... 1578s ..$ C: num [1:3, 1:5] 140 140 140 280 280 280 420 420 420 560 ... 1578s ..$ D: num [1:3, 1:5] 160 160 160 320 320 320 480 480 480 640 ... 1578s $ y1:List of 4 1578s ..$ A: num [1:3, 1:5] 100 100 100 200 200 200 300 300 300 400 ... 1578s ..$ B: num [1:3, 1:5] 120 120 120 240 240 240 360 360 360 480 ... 1578s ..$ C: num [1:3, 1:5] 140 140 140 280 280 280 420 420 420 560 ... 1578s ..$ D: num [1:3, 1:5] 160 160 160 320 320 320 480 480 480 640 ... 1578s List of 2 1578s $ y0:List of 4 1578s ..$ A: num [1:3, 1:5] 100 100 100 200 200 200 300 300 300 400 ... 1578s ..$ B: num [1:3, 1:5] 120 120 120 240 240 240 360 360 360 480 ... 1578s ..$ C: num [1:3, 1:5] 140 140 140 280 280 280 420 420 420 560 ... 1578s ..$ D: num [1:3, 1:5] 160 160 160 320 320 320 480 480 480 640 ... 1578s $ y2:List of 4 1578s ..$ A: num [1:3, 1:5] 100 100 100 200 200 200 300 300 300 400 ... 1578s ..$ B: num [1:3, 1:5] 120 120 120 240 240 240 360 360 360 480 ... 1578s ..$ C: num [1:3, 1:5] 140 140 140 280 280 280 420 420 420 560 ... 1578s ..$ D: num [1:3, 1:5] 160 160 160 320 320 320 480 480 480 640 ... 1578s [00:52:58.305] future_lapply() ... 1578s [00:52:58.308] Number of chunks: 1 1578s [00:52:58.308] getGlobalsAndPackagesXApply() ... 1578s [00:52:58.309] - future.globals: TRUE 1578s [00:52:58.309] getGlobalsAndPackages() ... 1578s [00:52:58.309] Searching for globals... 1578s [00:52:58.311] - globals found: [1] ‘FUN’ 1578s [00:52:58.311] Searching for globals ... DONE 1578s [00:52:58.311] Resolving globals: FALSE 1578s [00:52:58.312] The total size of the 1 globals is 848 bytes (848 bytes) 1578s [00:52:58.312] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1578s [00:52:58.312] - globals: [1] ‘FUN’ 1578s [00:52:58.313] 1578s [00:52:58.313] getGlobalsAndPackages() ... DONE 1578s [00:52:58.313] - globals found/used: [n=1] ‘FUN’ 1578s [00:52:58.313] - needed namespaces: [n=0] 1578s [00:52:58.313] Finding globals ... DONE 1578s [00:52:58.314] - use_args: TRUE 1578s [00:52:58.314] - Getting '...' globals ... 1578s [00:52:58.314] resolve() on list ... 1578s [00:52:58.315] recursive: 0 1578s [00:52:58.315] length: 1 1578s [00:52:58.315] elements: ‘...’ 1578s [00:52:58.315] length: 0 (resolved future 1) 1578s [00:52:58.316] resolve() on list ... DONE 1578s [00:52:58.316] - '...' content: [n=0] 1578s [00:52:58.316] List of 1 1578s [00:52:58.316] $ ...: list() 1578s [00:52:58.316] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1578s [00:52:58.316] - attr(*, "where")=List of 1 1578s [00:52:58.316] ..$ ...: 1578s [00:52:58.316] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1578s [00:52:58.316] - attr(*, "resolved")= logi TRUE 1578s [00:52:58.316] - attr(*, "total_size")= num NA 1578s [00:52:58.320] - Getting '...' globals ... DONE 1578s [00:52:58.320] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1578s [00:52:58.321] List of 2 1578s [00:52:58.321] $ ...future.FUN:function (x) 1578s [00:52:58.321] $ ... : list() 1578s [00:52:58.321] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1578s [00:52:58.321] - attr(*, "where")=List of 2 1578s [00:52:58.321] ..$ ...future.FUN: 1578s [00:52:58.321] ..$ ... : 1578s [00:52:58.321] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1578s [00:52:58.321] - attr(*, "resolved")= logi FALSE 1578s [00:52:58.321] - attr(*, "total_size")= num 848 1578s [00:52:58.325] Packages to be attached in all futures: [n=0] 1578s [00:52:58.325] getGlobalsAndPackagesXApply() ... DONE 1578s [00:52:58.326] Number of futures (= number of chunks): 1 1578s [00:52:58.326] Launching 1 futures (chunks) ... 1578s [00:52:58.326] Chunk #1 of 1 ... 1578s [00:52:58.326] - Finding globals in 'X' for chunk #1 ... 1578s [00:52:58.327] getGlobalsAndPackages() ... 1578s [00:52:58.327] Searching for globals... 1578s [00:52:58.327] 1578s [00:52:58.327] Searching for globals ... DONE 1578s [00:52:58.328] - globals: [0] 1578s [00:52:58.328] getGlobalsAndPackages() ... DONE 1578s [00:52:58.328] + additional globals found: [n=0] 1578s [00:52:58.328] + additional namespaces needed: [n=0] 1578s [00:52:58.328] - Finding globals in 'X' for chunk #1 ... DONE 1578s [00:52:58.329] - seeds: 1578s [00:52:58.329] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1578s [00:52:58.329] getGlobalsAndPackages() ... 1578s [00:52:58.329] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1578s [00:52:58.329] Resolving globals: FALSE 1578s [00:52:58.330] Tweak future expression to call with '...' arguments ... 1578s [00:52:58.330] { 1578s [00:52:58.330] do.call(function(...) { 1578s [00:52:58.330] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1578s [00:52:58.330] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1578s [00:52:58.330] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1578s [00:52:58.330] on.exit(options(oopts), add = TRUE) 1578s [00:52:58.330] } 1578s [00:52:58.330] { 1578s [00:52:58.330] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1578s [00:52:58.330] ...future.X_jj <- ...future.elements_ii[[jj]] 1578s [00:52:58.330] ...future.FUN(...future.X_jj, ...) 1578s [00:52:58.330] }) 1578s [00:52:58.330] } 1578s [00:52:58.330] }, args = future.call.arguments) 1578s [00:52:58.330] } 1578s [00:52:58.331] Tweak future expression to call with '...' arguments ... DONE 1578s [00:52:58.331] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1578s [00:52:58.331] 1578s [00:52:58.331] getGlobalsAndPackages() ... DONE 1578s [00:52:58.332] run() for ‘Future’ ... 1578s [00:52:58.332] - state: ‘created’ 1578s [00:52:58.333] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1578s [00:52:58.336] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1578s [00:52:58.337] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1578s [00:52:58.337] - Field: ‘label’ 1578s [00:52:58.337] - Field: ‘local’ 1578s [00:52:58.337] - Field: ‘owner’ 1578s [00:52:58.337] - Field: ‘envir’ 1578s [00:52:58.338] - Field: ‘packages’ 1578s [00:52:58.339] - Field: ‘gc’ 1578s [00:52:58.339] - Field: ‘conditions’ 1578s [00:52:58.339] - Field: ‘expr’ 1578s [00:52:58.340] - Field: ‘uuid’ 1578s [00:52:58.340] - Field: ‘seed’ 1578s [00:52:58.341] - Field: ‘version’ 1578s [00:52:58.341] - Field: ‘result’ 1578s [00:52:58.341] - Field: ‘asynchronous’ 1578s [00:52:58.341] - Field: ‘calls’ 1578s [00:52:58.342] - Field: ‘globals’ 1578s [00:52:58.342] - Field: ‘stdout’ 1578s [00:52:58.342] - Field: ‘earlySignal’ 1578s [00:52:58.342] - Field: ‘lazy’ 1578s [00:52:58.342] - Field: ‘state’ 1578s [00:52:58.342] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1578s [00:52:58.342] - Launch lazy future ... 1578s [00:52:58.343] Packages needed by the future expression (n = 0): 1578s [00:52:58.343] Packages needed by future strategies (n = 0): 1578s [00:52:58.344] { 1578s [00:52:58.344] { 1578s [00:52:58.344] { 1578s [00:52:58.344] ...future.startTime <- base::Sys.time() 1578s [00:52:58.344] { 1578s [00:52:58.344] { 1578s [00:52:58.344] { 1578s [00:52:58.344] base::local({ 1578s [00:52:58.344] has_future <- base::requireNamespace("future", 1578s [00:52:58.344] quietly = TRUE) 1578s [00:52:58.344] if (has_future) { 1578s [00:52:58.344] ns <- base::getNamespace("future") 1578s [00:52:58.344] version <- ns[[".package"]][["version"]] 1578s [00:52:58.344] if (is.null(version)) 1578s [00:52:58.344] version <- utils::packageVersion("future") 1578s [00:52:58.344] } 1578s [00:52:58.344] else { 1578s [00:52:58.344] version <- NULL 1578s [00:52:58.344] } 1578s [00:52:58.344] if (!has_future || version < "1.8.0") { 1578s [00:52:58.344] info <- base::c(r_version = base::gsub("R version ", 1578s [00:52:58.344] "", base::R.version$version.string), 1578s [00:52:58.344] platform = base::sprintf("%s (%s-bit)", 1578s [00:52:58.344] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1578s [00:52:58.344] os = base::paste(base::Sys.info()[base::c("sysname", 1578s [00:52:58.344] "release", "version")], collapse = " "), 1578s [00:52:58.344] hostname = base::Sys.info()[["nodename"]]) 1578s [00:52:58.344] info <- base::sprintf("%s: %s", base::names(info), 1578s [00:52:58.344] info) 1578s [00:52:58.344] info <- base::paste(info, collapse = "; ") 1578s [00:52:58.344] if (!has_future) { 1578s [00:52:58.344] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1578s [00:52:58.344] info) 1578s [00:52:58.344] } 1578s [00:52:58.344] else { 1578s [00:52:58.344] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1578s [00:52:58.344] info, version) 1578s [00:52:58.344] } 1578s [00:52:58.344] base::stop(msg) 1578s [00:52:58.344] } 1578s [00:52:58.344] }) 1578s [00:52:58.344] } 1578s [00:52:58.344] options(future.plan = NULL) 1578s [00:52:58.344] Sys.unsetenv("R_FUTURE_PLAN") 1578s [00:52:58.344] future::plan("default", .cleanup = FALSE, .init = FALSE) 1578s [00:52:58.344] } 1578s [00:52:58.344] ...future.workdir <- getwd() 1578s [00:52:58.344] } 1578s [00:52:58.344] ...future.oldOptions <- base::as.list(base::.Options) 1578s [00:52:58.344] ...future.oldEnvVars <- base::Sys.getenv() 1578s [00:52:58.344] } 1578s [00:52:58.344] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1578s [00:52:58.344] future.globals.maxSize = NULL, future.globals.method = NULL, 1578s [00:52:58.344] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1578s [00:52:58.344] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1578s [00:52:58.344] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1578s [00:52:58.344] future.stdout.windows.reencode = NULL, width = 80L) 1578s [00:52:58.344] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1578s [00:52:58.344] base::names(...future.oldOptions)) 1578s [00:52:58.344] } 1578s [00:52:58.344] if (FALSE) { 1578s [00:52:58.344] } 1578s [00:52:58.344] else { 1578s [00:52:58.344] if (TRUE) { 1578s [00:52:58.344] ...future.stdout <- base::rawConnection(base::raw(0L), 1578s [00:52:58.344] open = "w") 1578s [00:52:58.344] } 1578s [00:52:58.344] else { 1578s [00:52:58.344] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1578s [00:52:58.344] windows = "NUL", "/dev/null"), open = "w") 1578s [00:52:58.344] } 1578s [00:52:58.344] base::sink(...future.stdout, type = "output", split = FALSE) 1578s [00:52:58.344] base::on.exit(if (!base::is.null(...future.stdout)) { 1578s [00:52:58.344] base::sink(type = "output", split = FALSE) 1578s [00:52:58.344] base::close(...future.stdout) 1578s [00:52:58.344] }, add = TRUE) 1578s [00:52:58.344] } 1578s [00:52:58.344] ...future.frame <- base::sys.nframe() 1578s [00:52:58.344] ...future.conditions <- base::list() 1578s [00:52:58.344] ...future.rng <- base::globalenv()$.Random.seed 1578s [00:52:58.344] if (FALSE) { 1578s [00:52:58.344] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1578s [00:52:58.344] "...future.value", "...future.globalenv.names", ".Random.seed") 1578s [00:52:58.344] } 1578s [00:52:58.344] ...future.result <- base::tryCatch({ 1578s [00:52:58.344] base::withCallingHandlers({ 1578s [00:52:58.344] ...future.value <- base::withVisible(base::local({ 1578s [00:52:58.344] do.call(function(...) { 1578s [00:52:58.344] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1578s [00:52:58.344] if (!identical(...future.globals.maxSize.org, 1578s [00:52:58.344] ...future.globals.maxSize)) { 1578s [00:52:58.344] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1578s [00:52:58.344] on.exit(options(oopts), add = TRUE) 1578s [00:52:58.344] } 1578s [00:52:58.344] { 1578s [00:52:58.344] lapply(seq_along(...future.elements_ii), 1578s [00:52:58.344] FUN = function(jj) { 1578s [00:52:58.344] ...future.X_jj <- ...future.elements_ii[[jj]] 1578s [00:52:58.344] ...future.FUN(...future.X_jj, ...) 1578s [00:52:58.344] }) 1578s [00:52:58.344] } 1578s [00:52:58.344] }, args = future.call.arguments) 1578s [00:52:58.344] })) 1578s [00:52:58.344] future::FutureResult(value = ...future.value$value, 1578s [00:52:58.344] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1578s [00:52:58.344] ...future.rng), globalenv = if (FALSE) 1578s [00:52:58.344] list(added = base::setdiff(base::names(base::.GlobalEnv), 1578s [00:52:58.344] ...future.globalenv.names)) 1578s [00:52:58.344] else NULL, started = ...future.startTime, version = "1.8") 1578s [00:52:58.344] }, condition = base::local({ 1578s [00:52:58.344] c <- base::c 1578s [00:52:58.344] inherits <- base::inherits 1578s [00:52:58.344] invokeRestart <- base::invokeRestart 1578s [00:52:58.344] length <- base::length 1578s [00:52:58.344] list <- base::list 1578s [00:52:58.344] seq.int <- base::seq.int 1578s [00:52:58.344] signalCondition <- base::signalCondition 1578s [00:52:58.344] sys.calls <- base::sys.calls 1578s [00:52:58.344] `[[` <- base::`[[` 1578s [00:52:58.344] `+` <- base::`+` 1578s [00:52:58.344] `<<-` <- base::`<<-` 1578s [00:52:58.344] sysCalls <- function(calls = sys.calls(), from = 1L) { 1578s [00:52:58.344] calls[seq.int(from = from + 12L, to = length(calls) - 1578s [00:52:58.344] 3L)] 1578s [00:52:58.344] } 1578s [00:52:58.344] function(cond) { 1578s [00:52:58.344] is_error <- inherits(cond, "error") 1578s [00:52:58.344] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1578s [00:52:58.344] NULL) 1578s [00:52:58.344] if (is_error) { 1578s [00:52:58.344] sessionInformation <- function() { 1578s [00:52:58.344] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1578s [00:52:58.344] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1578s [00:52:58.344] search = base::search(), system = base::Sys.info()) 1578s [00:52:58.344] } 1578s [00:52:58.344] ...future.conditions[[length(...future.conditions) + 1578s [00:52:58.344] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1578s [00:52:58.344] cond$call), session = sessionInformation(), 1578s [00:52:58.344] timestamp = base::Sys.time(), signaled = 0L) 1578s [00:52:58.344] signalCondition(cond) 1578s [00:52:58.344] } 1578s [00:52:58.344] else if (!ignore && TRUE && inherits(cond, c("condition", 1578s [00:52:58.344] "immediateCondition"))) { 1578s [00:52:58.344] signal <- TRUE && inherits(cond, "immediateCondition") 1578s [00:52:58.344] ...future.conditions[[length(...future.conditions) + 1578s [00:52:58.344] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1578s [00:52:58.344] if (TRUE && !signal) { 1578s [00:52:58.344] muffleCondition <- function (cond, pattern = "^muffle") 1578s [00:52:58.344] { 1578s [00:52:58.344] inherits <- base::inherits 1578s [00:52:58.344] invokeRestart <- base::invokeRestart 1578s [00:52:58.344] is.null <- base::is.null 1578s [00:52:58.344] muffled <- FALSE 1578s [00:52:58.344] if (inherits(cond, "message")) { 1578s [00:52:58.344] muffled <- grepl(pattern, "muffleMessage") 1578s [00:52:58.344] if (muffled) 1578s [00:52:58.344] invokeRestart("muffleMessage") 1578s [00:52:58.344] } 1578s [00:52:58.344] else if (inherits(cond, "warning")) { 1578s [00:52:58.344] muffled <- grepl(pattern, "muffleWarning") 1578s [00:52:58.344] if (muffled) 1578s [00:52:58.344] invokeRestart("muffleWarning") 1578s [00:52:58.344] } 1578s [00:52:58.344] else if (inherits(cond, "condition")) { 1578s [00:52:58.344] if (!is.null(pattern)) { 1578s [00:52:58.344] computeRestarts <- base::computeRestarts 1578s [00:52:58.344] grepl <- base::grepl 1578s [00:52:58.344] restarts <- computeRestarts(cond) 1578s [00:52:58.344] for (restart in restarts) { 1578s [00:52:58.344] name <- restart$name 1578s [00:52:58.344] if (is.null(name)) 1578s [00:52:58.344] next 1578s [00:52:58.344] if (!grepl(pattern, name)) 1578s [00:52:58.344] next 1578s [00:52:58.344] invokeRestart(restart) 1578s [00:52:58.344] muffled <- TRUE 1578s [00:52:58.344] break 1578s [00:52:58.344] } 1578s [00:52:58.344] } 1578s [00:52:58.344] } 1578s [00:52:58.344] invisible(muffled) 1578s [00:52:58.344] } 1578s [00:52:58.344] muffleCondition(cond, pattern = "^muffle") 1578s [00:52:58.344] } 1578s [00:52:58.344] } 1578s [00:52:58.344] else { 1578s [00:52:58.344] if (TRUE) { 1578s [00:52:58.344] muffleCondition <- function (cond, pattern = "^muffle") 1578s [00:52:58.344] { 1578s [00:52:58.344] inherits <- base::inherits 1578s [00:52:58.344] invokeRestart <- base::invokeRestart 1578s [00:52:58.344] is.null <- base::is.null 1578s [00:52:58.344] muffled <- FALSE 1578s [00:52:58.344] if (inherits(cond, "message")) { 1578s [00:52:58.344] muffled <- grepl(pattern, "muffleMessage") 1578s [00:52:58.344] if (muffled) 1578s [00:52:58.344] invokeRestart("muffleMessage") 1578s [00:52:58.344] } 1578s [00:52:58.344] else if (inherits(cond, "warning")) { 1578s [00:52:58.344] muffled <- grepl(pattern, "muffleWarning") 1578s [00:52:58.344] if (muffled) 1578s [00:52:58.344] invokeRestart("muffleWarning") 1578s [00:52:58.344] } 1578s [00:52:58.344] else if (inherits(cond, "condition")) { 1578s [00:52:58.344] if (!is.null(pattern)) { 1578s [00:52:58.344] computeRestarts <- base::computeRestarts 1578s [00:52:58.344] grepl <- base::grepl 1578s [00:52:58.344] restarts <- computeRestarts(cond) 1578s [00:52:58.344] for (restart in restarts) { 1578s [00:52:58.344] name <- restart$name 1578s [00:52:58.344] if (is.null(name)) 1578s [00:52:58.344] next 1578s [00:52:58.344] if (!grepl(pattern, name)) 1578s [00:52:58.344] next 1578s [00:52:58.344] invokeRestart(restart) 1578s [00:52:58.344] muffled <- TRUE 1578s [00:52:58.344] break 1578s [00:52:58.344] } 1578s [00:52:58.344] } 1578s [00:52:58.344] } 1578s [00:52:58.344] invisible(muffled) 1578s [00:52:58.344] } 1578s [00:52:58.344] muffleCondition(cond, pattern = "^muffle") 1578s [00:52:58.344] } 1578s [00:52:58.344] } 1578s [00:52:58.344] } 1578s [00:52:58.344] })) 1578s [00:52:58.344] }, error = function(ex) { 1578s [00:52:58.344] base::structure(base::list(value = NULL, visible = NULL, 1578s [00:52:58.344] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1578s [00:52:58.344] ...future.rng), started = ...future.startTime, 1578s [00:52:58.344] finished = Sys.time(), session_uuid = NA_character_, 1578s [00:52:58.344] version = "1.8"), class = "FutureResult") 1578s [00:52:58.344] }, finally = { 1578s [00:52:58.344] if (!identical(...future.workdir, getwd())) 1578s [00:52:58.344] setwd(...future.workdir) 1578s [00:52:58.344] { 1578s [00:52:58.344] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1578s [00:52:58.344] ...future.oldOptions$nwarnings <- NULL 1578s [00:52:58.344] } 1578s [00:52:58.344] base::options(...future.oldOptions) 1578s [00:52:58.344] if (.Platform$OS.type == "windows") { 1578s [00:52:58.344] old_names <- names(...future.oldEnvVars) 1578s [00:52:58.344] envs <- base::Sys.getenv() 1578s [00:52:58.344] names <- names(envs) 1578s [00:52:58.344] common <- intersect(names, old_names) 1578s [00:52:58.344] added <- setdiff(names, old_names) 1578s [00:52:58.344] removed <- setdiff(old_names, names) 1578s [00:52:58.344] changed <- common[...future.oldEnvVars[common] != 1578s [00:52:58.344] envs[common]] 1578s [00:52:58.344] NAMES <- toupper(changed) 1578s [00:52:58.344] args <- list() 1578s [00:52:58.344] for (kk in seq_along(NAMES)) { 1578s [00:52:58.344] name <- changed[[kk]] 1578s [00:52:58.344] NAME <- NAMES[[kk]] 1578s [00:52:58.344] if (name != NAME && is.element(NAME, old_names)) 1578s [00:52:58.344] next 1578s [00:52:58.344] args[[name]] <- ...future.oldEnvVars[[name]] 1578s [00:52:58.344] } 1578s [00:52:58.344] NAMES <- toupper(added) 1578s [00:52:58.344] for (kk in seq_along(NAMES)) { 1578s [00:52:58.344] name <- added[[kk]] 1578s [00:52:58.344] NAME <- NAMES[[kk]] 1578s [00:52:58.344] if (name != NAME && is.element(NAME, old_names)) 1578s [00:52:58.344] next 1578s [00:52:58.344] args[[name]] <- "" 1578s [00:52:58.344] } 1578s [00:52:58.344] NAMES <- toupper(removed) 1578s [00:52:58.344] for (kk in seq_along(NAMES)) { 1578s [00:52:58.344] name <- removed[[kk]] 1578s [00:52:58.344] NAME <- NAMES[[kk]] 1578s [00:52:58.344] if (name != NAME && is.element(NAME, old_names)) 1578s [00:52:58.344] next 1578s [00:52:58.344] args[[name]] <- ...future.oldEnvVars[[name]] 1578s [00:52:58.344] } 1578s [00:52:58.344] if (length(args) > 0) 1578s [00:52:58.344] base::do.call(base::Sys.setenv, args = args) 1578s [00:52:58.344] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1578s [00:52:58.344] } 1578s [00:52:58.344] else { 1578s [00:52:58.344] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1578s [00:52:58.344] } 1578s [00:52:58.344] { 1578s [00:52:58.344] if (base::length(...future.futureOptionsAdded) > 1578s [00:52:58.344] 0L) { 1578s [00:52:58.344] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1578s [00:52:58.344] base::names(opts) <- ...future.futureOptionsAdded 1578s [00:52:58.344] base::options(opts) 1578s [00:52:58.344] } 1578s [00:52:58.344] { 1578s [00:52:58.344] { 1578s [00:52:58.344] NULL 1578s [00:52:58.344] RNGkind("Mersenne-Twister") 1578s [00:52:58.344] base::rm(list = ".Random.seed", envir = base::globalenv(), 1578s [00:52:58.344] inherits = FALSE) 1578s [00:52:58.344] } 1578s [00:52:58.344] options(future.plan = NULL) 1578s [00:52:58.344] if (is.na(NA_character_)) 1578s [00:52:58.344] Sys.unsetenv("R_FUTURE_PLAN") 1578s [00:52:58.344] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1578s [00:52:58.344] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1578s [00:52:58.344] envir = parent.frame()) 1578s [00:52:58.344] { 1578s [00:52:58.344] default_workers <- missing(workers) 1578s [00:52:58.344] if (is.function(workers)) 1578s [00:52:58.344] workers <- workers() 1578s [00:52:58.344] workers <- structure(as.integer(workers), 1578s [00:52:58.344] class = class(workers)) 1578s [00:52:58.344] stop_if_not(is.finite(workers), workers >= 1578s [00:52:58.344] 1L) 1578s [00:52:58.344] if ((workers == 1L && !inherits(workers, 1578s [00:52:58.344] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1578s [00:52:58.344] if (default_workers) 1578s [00:52:58.344] supportsMulticore(warn = TRUE) 1578s [00:52:58.344] return(sequential(..., envir = envir)) 1578s [00:52:58.344] } 1578s [00:52:58.344] oopts <- options(mc.cores = workers) 1578s [00:52:58.344] on.exit(options(oopts)) 1578s [00:52:58.344] future <- MulticoreFuture(..., workers = workers, 1578s [00:52:58.344] envir = envir) 1578s [00:52:58.344] if (!future$lazy) 1578s [00:52:58.344] future <- run(future) 1578s [00:52:58.344] invisible(future) 1578s [00:52:58.344] }), .cleanup = FALSE, .init = FALSE) 1578s [00:52:58.344] } 1578s [00:52:58.344] } 1578s [00:52:58.344] } 1578s [00:52:58.344] }) 1578s [00:52:58.344] if (TRUE) { 1578s [00:52:58.344] base::sink(type = "output", split = FALSE) 1578s [00:52:58.344] if (TRUE) { 1578s [00:52:58.344] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1578s [00:52:58.344] } 1578s [00:52:58.344] else { 1578s [00:52:58.344] ...future.result["stdout"] <- base::list(NULL) 1578s [00:52:58.344] } 1578s [00:52:58.344] base::close(...future.stdout) 1578s [00:52:58.344] ...future.stdout <- NULL 1578s [00:52:58.344] } 1578s [00:52:58.344] ...future.result$conditions <- ...future.conditions 1578s [00:52:58.344] ...future.result$finished <- base::Sys.time() 1578s [00:52:58.344] ...future.result 1578s [00:52:58.344] } 1578s [00:52:58.347] assign_globals() ... 1578s [00:52:58.347] List of 5 1578s [00:52:58.347] $ ...future.FUN :function (x) 1578s [00:52:58.347] $ future.call.arguments : list() 1578s [00:52:58.347] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1578s [00:52:58.347] $ ...future.elements_ii :List of 4 1578s [00:52:58.347] ..$ A: num 50 1578s [00:52:58.347] ..$ B: num 60 1578s [00:52:58.347] ..$ C: num 70 1578s [00:52:58.347] ..$ D: num 80 1578s [00:52:58.347] $ ...future.seeds_ii : NULL 1578s [00:52:58.347] $ ...future.globals.maxSize: NULL 1578s [00:52:58.347] - attr(*, "where")=List of 5 1578s [00:52:58.347] ..$ ...future.FUN : 1578s [00:52:58.347] ..$ future.call.arguments : 1578s [00:52:58.347] ..$ ...future.elements_ii : 1578s [00:52:58.347] ..$ ...future.seeds_ii : 1578s [00:52:58.347] ..$ ...future.globals.maxSize: 1578s [00:52:58.347] - attr(*, "resolved")= logi FALSE 1578s [00:52:58.347] - attr(*, "total_size")= num 848 1578s [00:52:58.347] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1578s [00:52:58.347] - attr(*, "already-done")= logi TRUE 1578s [00:52:58.361] - copied ‘...future.FUN’ to environment 1578s [00:52:58.361] - copied ‘future.call.arguments’ to environment 1578s [00:52:58.361] - copied ‘...future.elements_ii’ to environment 1578s [00:52:58.362] - copied ‘...future.seeds_ii’ to environment 1578s [00:52:58.362] - copied ‘...future.globals.maxSize’ to environment 1578s [00:52:58.362] assign_globals() ... done 1578s [00:52:58.362] plan(): Setting new future strategy stack: 1578s [00:52:58.362] List of future strategies: 1578s [00:52:58.362] 1. sequential: 1578s [00:52:58.362] - args: function (..., envir = parent.frame()) 1578s [00:52:58.362] - tweaked: FALSE 1578s [00:52:58.362] - call: NULL 1578s [00:52:58.363] plan(): nbrOfWorkers() = 1 1578s [00:52:58.364] plan(): Setting new future strategy stack: 1578s [00:52:58.364] List of future strategies: 1578s [00:52:58.364] 1. multicore: 1578s [00:52:58.364] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1578s [00:52:58.364] - tweaked: FALSE 1578s [00:52:58.364] - call: plan(strategy) 1578s [00:52:58.370] plan(): nbrOfWorkers() = 1 1578s [00:52:58.370] SequentialFuture started (and completed) 1578s [00:52:58.371] - Launch lazy future ... done 1578s [00:52:58.371] run() for ‘SequentialFuture’ ... done 1578s [00:52:58.371] Created future: 1578s [00:52:58.371] SequentialFuture: 1578s [00:52:58.371] Label: ‘future_sapply-1’ 1578s [00:52:58.371] Expression: 1578s [00:52:58.371] { 1578s [00:52:58.371] do.call(function(...) { 1578s [00:52:58.371] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1578s [00:52:58.371] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1578s [00:52:58.371] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1578s [00:52:58.371] on.exit(options(oopts), add = TRUE) 1578s [00:52:58.371] } 1578s [00:52:58.371] { 1578s [00:52:58.371] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1578s [00:52:58.371] ...future.X_jj <- ...future.elements_ii[[jj]] 1578s [00:52:58.371] ...future.FUN(...future.X_jj, ...) 1578s [00:52:58.371] }) 1578s [00:52:58.371] } 1578s [00:52:58.371] }, args = future.call.arguments) 1578s [00:52:58.371] } 1578s [00:52:58.371] Lazy evaluation: FALSE 1578s [00:52:58.371] Asynchronous evaluation: FALSE 1578s [00:52:58.371] Local evaluation: TRUE 1578s [00:52:58.371] Environment: R_GlobalEnv 1578s [00:52:58.371] Capture standard output: TRUE 1578s [00:52:58.371] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1578s [00:52:58.371] Globals: 5 objects totaling 1.05 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1578s [00:52:58.371] Packages: 1578s [00:52:58.371] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1578s [00:52:58.371] Resolved: TRUE 1578s [00:52:58.371] Value: 224 bytes of class ‘list’ 1578s [00:52:58.371] Early signaling: FALSE 1578s [00:52:58.371] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1578s [00:52:58.371] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1578s [00:52:58.373] Chunk #1 of 1 ... DONE 1578s [00:52:58.373] Launching 1 futures (chunks) ... DONE 1578s [00:52:58.373] Resolving 1 futures (chunks) ... 1578s [00:52:58.374] resolve() on list ... 1578s [00:52:58.374] recursive: 0 1578s [00:52:58.374] length: 1 1578s [00:52:58.374] 1578s [00:52:58.374] resolved() for ‘SequentialFuture’ ... 1578s [00:52:58.374] - state: ‘finished’ 1578s [00:52:58.374] - run: TRUE 1578s [00:52:58.375] - result: ‘FutureResult’ 1578s [00:52:58.375] resolved() for ‘SequentialFuture’ ... done 1578s [00:52:58.375] Future #1 1578s [00:52:58.375] signalConditionsASAP(SequentialFuture, pos=1) ... 1578s [00:52:58.375] - nx: 1 1578s [00:52:58.375] - relay: TRUE 1578s [00:52:58.375] - stdout: TRUE 1578s [00:52:58.376] - signal: TRUE 1578s [00:52:58.376] - resignal: FALSE 1578s [00:52:58.376] - force: TRUE 1578s [00:52:58.376] - relayed: [n=1] FALSE 1578s [00:52:58.376] - queued futures: [n=1] FALSE 1578s [00:52:58.376] - until=1 1578s [00:52:58.377] - relaying element #1 1578s [00:52:58.377] - relayed: [n=1] TRUE 1578s [00:52:58.377] - queued futures: [n=1] TRUE 1578s [00:52:58.377] signalConditionsASAP(SequentialFuture, pos=1) ... done 1578s [00:52:58.377] length: 0 (resolved future 1) 1578s [00:52:58.377] Relaying remaining futures 1578s [00:52:58.378] signalConditionsASAP(NULL, pos=0) ... 1578s [00:52:58.378] - nx: 1 1578s [00:52:58.378] - relay: TRUE 1578s [00:52:58.378] - stdout: TRUE 1578s [00:52:58.378] - signal: TRUE 1578s [00:52:58.378] - resignal: FALSE 1578s [00:52:58.378] - force: TRUE 1578s [00:52:58.379] - relayed: [n=1] TRUE 1578s [00:52:58.379] - queued futures: [n=1] TRUE 1578s - flush all 1578s [00:52:58.379] - relayed: [n=1] TRUE 1578s [00:52:58.380] - queued futures: [n=1] TRUE 1578s [00:52:58.381] signalConditionsASAP(NULL, pos=0) ... done 1578s [00:52:58.381] resolve() on list ... DONE 1578s [00:52:58.381] - Number of value chunks collected: 1 1578s [00:52:58.381] Resolving 1 futures (chunks) ... DONE 1578s [00:52:58.382] Reducing values from 1 chunks ... 1578s [00:52:58.382] - Number of values collected after concatenation: 4 1578s [00:52:58.382] - Number of values expected: 4 1578s [00:52:58.382] Reducing values from 1 chunks ... DONE 1578s [00:52:58.382] future_lapply() ... DONE 1578s List of 2 1578s $ y0: Named num [1:4] 50 60 70 80 1578s ..- attr(*, "names")= chr [1:4] "A" "B" "C" "D" 1578s $ y1: Named num [1:4] 50 60 70 80 1578s ..- attr(*, "names")= chr [1:4] "A" "B" "C" "D" 1578s [00:52:58.387] future_lapply() ... 1578s [00:52:58.391] Number of chunks: 1 1578s [00:52:58.392] getGlobalsAndPackagesXApply() ... 1578s [00:52:58.392] - future.globals: TRUE 1578s [00:52:58.392] getGlobalsAndPackages() ... 1578s [00:52:58.392] Searching for globals... 1578s [00:52:58.393] - globals found: [2] ‘FUN’, ‘UseMethod’ 1578s [00:52:58.394] Searching for globals ... DONE 1578s [00:52:58.394] Resolving globals: FALSE 1578s [00:52:58.394] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1578s [00:52:58.395] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1578s [00:52:58.395] - globals: [1] ‘FUN’ 1578s [00:52:58.395] 1578s [00:52:58.395] getGlobalsAndPackages() ... DONE 1578s [00:52:58.396] - globals found/used: [n=1] ‘FUN’ 1578s [00:52:58.396] - needed namespaces: [n=0] 1578s [00:52:58.396] Finding globals ... DONE 1578s [00:52:58.396] - use_args: TRUE 1578s [00:52:58.396] - Getting '...' globals ... 1578s [00:52:58.397] resolve() on list ... 1578s [00:52:58.397] recursive: 0 1578s [00:52:58.397] length: 1 1578s [00:52:58.397] elements: ‘...’ 1578s [00:52:58.397] length: 0 (resolved future 1) 1578s [00:52:58.398] resolve() on list ... DONE 1578s [00:52:58.398] - '...' content: [n=0] 1578s [00:52:58.398] List of 1 1578s [00:52:58.398] $ ...: list() 1578s [00:52:58.398] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1578s [00:52:58.398] - attr(*, "where")=List of 1 1578s [00:52:58.398] ..$ ...: 1578s [00:52:58.398] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1578s [00:52:58.398] - attr(*, "resolved")= logi TRUE 1578s [00:52:58.398] - attr(*, "total_size")= num NA 1578s [00:52:58.402] - Getting '...' globals ... DONE 1578s [00:52:58.403] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1578s [00:52:58.403] List of 2 1578s [00:52:58.403] $ ...future.FUN:function (x, ...) 1578s [00:52:58.403] $ ... : list() 1578s [00:52:58.403] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1578s [00:52:58.403] - attr(*, "where")=List of 2 1578s [00:52:58.403] ..$ ...future.FUN: 1578s [00:52:58.403] ..$ ... : 1578s [00:52:58.403] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1578s [00:52:58.403] - attr(*, "resolved")= logi FALSE 1578s [00:52:58.403] - attr(*, "total_size")= num 1248 1578s [00:52:58.407] Packages to be attached in all futures: [n=0] 1578s [00:52:58.407] getGlobalsAndPackagesXApply() ... DONE 1578s [00:52:58.407] Number of futures (= number of chunks): 1 1578s [00:52:58.408] Launching 1 futures (chunks) ... 1578s [00:52:58.408] Chunk #1 of 1 ... 1578s [00:52:58.408] - Finding globals in 'X' for chunk #1 ... 1578s [00:52:58.408] getGlobalsAndPackages() ... 1578s [00:52:58.408] Searching for globals... 1578s [00:52:58.409] 1578s [00:52:58.409] Searching for globals ... DONE 1578s [00:52:58.409] - globals: [0] 1578s [00:52:58.409] getGlobalsAndPackages() ... DONE 1578s [00:52:58.409] + additional globals found: [n=0] 1578s [00:52:58.409] + additional namespaces needed: [n=0] 1578s [00:52:58.409] - Finding globals in 'X' for chunk #1 ... DONE 1578s [00:52:58.409] - seeds: 1578s [00:52:58.410] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1578s [00:52:58.410] getGlobalsAndPackages() ... 1578s [00:52:58.411] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1578s [00:52:58.411] Resolving globals: FALSE 1578s [00:52:58.411] Tweak future expression to call with '...' arguments ... 1578s [00:52:58.411] { 1578s [00:52:58.411] do.call(function(...) { 1578s [00:52:58.411] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1578s [00:52:58.411] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1578s [00:52:58.411] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1578s [00:52:58.411] on.exit(options(oopts), add = TRUE) 1578s [00:52:58.411] } 1578s [00:52:58.411] { 1578s [00:52:58.411] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1578s [00:52:58.411] ...future.X_jj <- ...future.elements_ii[[jj]] 1578s [00:52:58.411] ...future.FUN(...future.X_jj, ...) 1578s [00:52:58.411] }) 1578s [00:52:58.411] } 1578s [00:52:58.411] }, args = future.call.arguments) 1578s [00:52:58.411] } 1578s [00:52:58.412] Tweak future expression to call with '...' arguments ... DONE 1578s [00:52:58.412] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1578s [00:52:58.413] 1578s [00:52:58.413] getGlobalsAndPackages() ... DONE 1578s [00:52:58.413] run() for ‘Future’ ... 1578s [00:52:58.414] - state: ‘created’ 1578s [00:52:58.414] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1578s [00:52:58.418] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1578s [00:52:58.419] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1578s [00:52:58.419] - Field: ‘label’ 1578s [00:52:58.419] - Field: ‘local’ 1578s [00:52:58.419] - Field: ‘owner’ 1578s [00:52:58.420] - Field: ‘envir’ 1578s [00:52:58.420] - Field: ‘packages’ 1578s [00:52:58.420] - Field: ‘gc’ 1578s [00:52:58.420] - Field: ‘conditions’ 1578s [00:52:58.420] - Field: ‘expr’ 1578s [00:52:58.421] - Field: ‘uuid’ 1578s [00:52:58.421] - Field: ‘seed’ 1578s [00:52:58.422] - Field: ‘version’ 1578s [00:52:58.422] - Field: ‘result’ 1578s [00:52:58.422] - Field: ‘asynchronous’ 1578s [00:52:58.422] - Field: ‘calls’ 1578s [00:52:58.422] - Field: ‘globals’ 1578s [00:52:58.422] - Field: ‘stdout’ 1578s [00:52:58.422] - Field: ‘earlySignal’ 1578s [00:52:58.423] - Field: ‘lazy’ 1578s [00:52:58.423] - Field: ‘state’ 1578s [00:52:58.423] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1578s [00:52:58.423] - Launch lazy future ... 1578s [00:52:58.423] Packages needed by the future expression (n = 0): 1578s [00:52:58.423] Packages needed by future strategies (n = 0): 1578s [00:52:58.424] { 1578s [00:52:58.424] { 1578s [00:52:58.424] { 1578s [00:52:58.424] ...future.startTime <- base::Sys.time() 1578s [00:52:58.424] { 1578s [00:52:58.424] { 1578s [00:52:58.424] { 1578s [00:52:58.424] base::local({ 1578s [00:52:58.424] has_future <- base::requireNamespace("future", 1578s [00:52:58.424] quietly = TRUE) 1578s [00:52:58.424] if (has_future) { 1578s [00:52:58.424] ns <- base::getNamespace("future") 1578s [00:52:58.424] version <- ns[[".package"]][["version"]] 1578s [00:52:58.424] if (is.null(version)) 1578s [00:52:58.424] version <- utils::packageVersion("future") 1578s [00:52:58.424] } 1578s [00:52:58.424] else { 1578s [00:52:58.424] version <- NULL 1578s [00:52:58.424] } 1578s [00:52:58.424] if (!has_future || version < "1.8.0") { 1578s [00:52:58.424] info <- base::c(r_version = base::gsub("R version ", 1578s [00:52:58.424] "", base::R.version$version.string), 1578s [00:52:58.424] platform = base::sprintf("%s (%s-bit)", 1578s [00:52:58.424] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1578s [00:52:58.424] os = base::paste(base::Sys.info()[base::c("sysname", 1578s [00:52:58.424] "release", "version")], collapse = " "), 1578s [00:52:58.424] hostname = base::Sys.info()[["nodename"]]) 1578s [00:52:58.424] info <- base::sprintf("%s: %s", base::names(info), 1578s [00:52:58.424] info) 1578s [00:52:58.424] info <- base::paste(info, collapse = "; ") 1578s [00:52:58.424] if (!has_future) { 1578s [00:52:58.424] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1578s [00:52:58.424] info) 1578s [00:52:58.424] } 1578s [00:52:58.424] else { 1578s [00:52:58.424] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1578s [00:52:58.424] info, version) 1578s [00:52:58.424] } 1578s [00:52:58.424] base::stop(msg) 1578s [00:52:58.424] } 1578s [00:52:58.424] }) 1578s [00:52:58.424] } 1578s [00:52:58.424] options(future.plan = NULL) 1578s [00:52:58.424] Sys.unsetenv("R_FUTURE_PLAN") 1578s [00:52:58.424] future::plan("default", .cleanup = FALSE, .init = FALSE) 1578s [00:52:58.424] } 1578s [00:52:58.424] ...future.workdir <- getwd() 1578s [00:52:58.424] } 1578s [00:52:58.424] ...future.oldOptions <- base::as.list(base::.Options) 1578s [00:52:58.424] ...future.oldEnvVars <- base::Sys.getenv() 1578s [00:52:58.424] } 1578s [00:52:58.424] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1578s [00:52:58.424] future.globals.maxSize = NULL, future.globals.method = NULL, 1578s [00:52:58.424] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1578s [00:52:58.424] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1578s [00:52:58.424] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1578s [00:52:58.424] future.stdout.windows.reencode = NULL, width = 80L) 1578s [00:52:58.424] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1578s [00:52:58.424] base::names(...future.oldOptions)) 1578s [00:52:58.424] } 1578s [00:52:58.424] if (FALSE) { 1578s [00:52:58.424] } 1578s [00:52:58.424] else { 1578s [00:52:58.424] if (TRUE) { 1578s [00:52:58.424] ...future.stdout <- base::rawConnection(base::raw(0L), 1578s [00:52:58.424] open = "w") 1578s [00:52:58.424] } 1578s [00:52:58.424] else { 1578s [00:52:58.424] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1578s [00:52:58.424] windows = "NUL", "/dev/null"), open = "w") 1578s [00:52:58.424] } 1578s [00:52:58.424] base::sink(...future.stdout, type = "output", split = FALSE) 1578s [00:52:58.424] base::on.exit(if (!base::is.null(...future.stdout)) { 1578s [00:52:58.424] base::sink(type = "output", split = FALSE) 1578s [00:52:58.424] base::close(...future.stdout) 1578s [00:52:58.424] }, add = TRUE) 1578s [00:52:58.424] } 1578s [00:52:58.424] ...future.frame <- base::sys.nframe() 1578s [00:52:58.424] ...future.conditions <- base::list() 1578s [00:52:58.424] ...future.rng <- base::globalenv()$.Random.seed 1578s [00:52:58.424] if (FALSE) { 1578s [00:52:58.424] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1578s [00:52:58.424] "...future.value", "...future.globalenv.names", ".Random.seed") 1578s [00:52:58.424] } 1578s [00:52:58.424] ...future.result <- base::tryCatch({ 1578s [00:52:58.424] base::withCallingHandlers({ 1578s [00:52:58.424] ...future.value <- base::withVisible(base::local({ 1578s [00:52:58.424] do.call(function(...) { 1578s [00:52:58.424] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1578s [00:52:58.424] if (!identical(...future.globals.maxSize.org, 1578s [00:52:58.424] ...future.globals.maxSize)) { 1578s [00:52:58.424] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1578s [00:52:58.424] on.exit(options(oopts), add = TRUE) 1578s [00:52:58.424] } 1578s [00:52:58.424] { 1578s [00:52:58.424] lapply(seq_along(...future.elements_ii), 1578s [00:52:58.424] FUN = function(jj) { 1578s [00:52:58.424] ...future.X_jj <- ...future.elements_ii[[jj]] 1578s [00:52:58.424] ...future.FUN(...future.X_jj, ...) 1578s [00:52:58.424] }) 1578s [00:52:58.424] } 1578s [00:52:58.424] }, args = future.call.arguments) 1578s [00:52:58.424] })) 1578s [00:52:58.424] future::FutureResult(value = ...future.value$value, 1578s [00:52:58.424] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1578s [00:52:58.424] ...future.rng), globalenv = if (FALSE) 1578s [00:52:58.424] list(added = base::setdiff(base::names(base::.GlobalEnv), 1578s [00:52:58.424] ...future.globalenv.names)) 1578s [00:52:58.424] else NULL, started = ...future.startTime, version = "1.8") 1578s [00:52:58.424] }, condition = base::local({ 1578s [00:52:58.424] c <- base::c 1578s [00:52:58.424] inherits <- base::inherits 1578s [00:52:58.424] invokeRestart <- base::invokeRestart 1578s [00:52:58.424] length <- base::length 1578s [00:52:58.424] list <- base::list 1578s [00:52:58.424] seq.int <- base::seq.int 1578s [00:52:58.424] signalCondition <- base::signalCondition 1578s [00:52:58.424] sys.calls <- base::sys.calls 1578s [00:52:58.424] `[[` <- base::`[[` 1578s [00:52:58.424] `+` <- base::`+` 1578s [00:52:58.424] `<<-` <- base::`<<-` 1578s [00:52:58.424] sysCalls <- function(calls = sys.calls(), from = 1L) { 1578s [00:52:58.424] calls[seq.int(from = from + 12L, to = length(calls) - 1578s [00:52:58.424] 3L)] 1578s [00:52:58.424] } 1578s [00:52:58.424] function(cond) { 1578s [00:52:58.424] is_error <- inherits(cond, "error") 1578s [00:52:58.424] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1578s [00:52:58.424] NULL) 1578s [00:52:58.424] if (is_error) { 1578s [00:52:58.424] sessionInformation <- function() { 1578s [00:52:58.424] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1578s [00:52:58.424] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1578s [00:52:58.424] search = base::search(), system = base::Sys.info()) 1578s [00:52:58.424] } 1578s [00:52:58.424] ...future.conditions[[length(...future.conditions) + 1578s [00:52:58.424] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1578s [00:52:58.424] cond$call), session = sessionInformation(), 1578s [00:52:58.424] timestamp = base::Sys.time(), signaled = 0L) 1578s [00:52:58.424] signalCondition(cond) 1578s [00:52:58.424] } 1578s [00:52:58.424] else if (!ignore && TRUE && inherits(cond, c("condition", 1578s [00:52:58.424] "immediateCondition"))) { 1578s [00:52:58.424] signal <- TRUE && inherits(cond, "immediateCondition") 1578s [00:52:58.424] ...future.conditions[[length(...future.conditions) + 1578s [00:52:58.424] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1578s [00:52:58.424] if (TRUE && !signal) { 1578s [00:52:58.424] muffleCondition <- function (cond, pattern = "^muffle") 1578s [00:52:58.424] { 1578s [00:52:58.424] inherits <- base::inherits 1578s [00:52:58.424] invokeRestart <- base::invokeRestart 1578s [00:52:58.424] is.null <- base::is.null 1578s [00:52:58.424] muffled <- FALSE 1578s [00:52:58.424] if (inherits(cond, "message")) { 1578s [00:52:58.424] muffled <- grepl(pattern, "muffleMessage") 1578s [00:52:58.424] if (muffled) 1578s [00:52:58.424] invokeRestart("muffleMessage") 1578s [00:52:58.424] } 1578s [00:52:58.424] else if (inherits(cond, "warning")) { 1578s [00:52:58.424] muffled <- grepl(pattern, "muffleWarning") 1578s [00:52:58.424] if (muffled) 1578s [00:52:58.424] invokeRestart("muffleWarning") 1578s [00:52:58.424] } 1578s [00:52:58.424] else if (inherits(cond, "condition")) { 1578s [00:52:58.424] if (!is.null(pattern)) { 1578s [00:52:58.424] computeRestarts <- base::computeRestarts 1578s [00:52:58.424] grepl <- base::grepl 1578s [00:52:58.424] restarts <- computeRestarts(cond) 1578s [00:52:58.424] for (restart in restarts) { 1578s [00:52:58.424] name <- restart$name 1578s [00:52:58.424] if (is.null(name)) 1578s [00:52:58.424] next 1578s [00:52:58.424] if (!grepl(pattern, name)) 1578s [00:52:58.424] next 1578s [00:52:58.424] invokeRestart(restart) 1578s [00:52:58.424] muffled <- TRUE 1578s [00:52:58.424] break 1578s [00:52:58.424] } 1578s [00:52:58.424] } 1578s [00:52:58.424] } 1578s [00:52:58.424] invisible(muffled) 1578s [00:52:58.424] } 1578s [00:52:58.424] muffleCondition(cond, pattern = "^muffle") 1578s [00:52:58.424] } 1578s [00:52:58.424] } 1578s [00:52:58.424] else { 1578s [00:52:58.424] if (TRUE) { 1578s [00:52:58.424] muffleCondition <- function (cond, pattern = "^muffle") 1578s [00:52:58.424] { 1578s [00:52:58.424] inherits <- base::inherits 1578s [00:52:58.424] invokeRestart <- base::invokeRestart 1578s [00:52:58.424] is.null <- base::is.null 1578s [00:52:58.424] muffled <- FALSE 1578s [00:52:58.424] if (inherits(cond, "message")) { 1578s [00:52:58.424] muffled <- grepl(pattern, "muffleMessage") 1578s [00:52:58.424] if (muffled) 1578s [00:52:58.424] invokeRestart("muffleMessage") 1578s [00:52:58.424] } 1578s [00:52:58.424] else if (inherits(cond, "warning")) { 1578s [00:52:58.424] muffled <- grepl(pattern, "muffleWarning") 1578s [00:52:58.424] if (muffled) 1578s [00:52:58.424] invokeRestart("muffleWarning") 1578s [00:52:58.424] } 1578s [00:52:58.424] else if (inherits(cond, "condition")) { 1578s [00:52:58.424] if (!is.null(pattern)) { 1578s [00:52:58.424] computeRestarts <- base::computeRestarts 1578s [00:52:58.424] grepl <- base::grepl 1578s [00:52:58.424] restarts <- computeRestarts(cond) 1578s [00:52:58.424] for (restart in restarts) { 1578s [00:52:58.424] name <- restart$name 1578s [00:52:58.424] if (is.null(name)) 1578s [00:52:58.424] next 1578s [00:52:58.424] if (!grepl(pattern, name)) 1578s [00:52:58.424] next 1578s [00:52:58.424] invokeRestart(restart) 1578s [00:52:58.424] muffled <- TRUE 1578s [00:52:58.424] break 1578s [00:52:58.424] } 1578s [00:52:58.424] } 1578s [00:52:58.424] } 1578s [00:52:58.424] invisible(muffled) 1578s [00:52:58.424] } 1578s [00:52:58.424] muffleCondition(cond, pattern = "^muffle") 1578s [00:52:58.424] } 1578s [00:52:58.424] } 1578s [00:52:58.424] } 1578s [00:52:58.424] })) 1578s [00:52:58.424] }, error = function(ex) { 1578s [00:52:58.424] base::structure(base::list(value = NULL, visible = NULL, 1578s [00:52:58.424] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1578s [00:52:58.424] ...future.rng), started = ...future.startTime, 1578s [00:52:58.424] finished = Sys.time(), session_uuid = NA_character_, 1578s [00:52:58.424] version = "1.8"), class = "FutureResult") 1578s [00:52:58.424] }, finally = { 1578s [00:52:58.424] if (!identical(...future.workdir, getwd())) 1578s [00:52:58.424] setwd(...future.workdir) 1578s [00:52:58.424] { 1578s [00:52:58.424] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1578s [00:52:58.424] ...future.oldOptions$nwarnings <- NULL 1578s [00:52:58.424] } 1578s [00:52:58.424] base::options(...future.oldOptions) 1578s [00:52:58.424] if (.Platform$OS.type == "windows") { 1578s [00:52:58.424] old_names <- names(...future.oldEnvVars) 1578s [00:52:58.424] envs <- base::Sys.getenv() 1578s [00:52:58.424] names <- names(envs) 1578s [00:52:58.424] common <- intersect(names, old_names) 1578s [00:52:58.424] added <- setdiff(names, old_names) 1578s [00:52:58.424] removed <- setdiff(old_names, names) 1578s [00:52:58.424] changed <- common[...future.oldEnvVars[common] != 1578s [00:52:58.424] envs[common]] 1578s [00:52:58.424] NAMES <- toupper(changed) 1578s [00:52:58.424] args <- list() 1578s [00:52:58.424] for (kk in seq_along(NAMES)) { 1578s [00:52:58.424] name <- changed[[kk]] 1578s [00:52:58.424] NAME <- NAMES[[kk]] 1578s [00:52:58.424] if (name != NAME && is.element(NAME, old_names)) 1578s [00:52:58.424] next 1578s [00:52:58.424] args[[name]] <- ...future.oldEnvVars[[name]] 1578s [00:52:58.424] } 1578s [00:52:58.424] NAMES <- toupper(added) 1578s [00:52:58.424] for (kk in seq_along(NAMES)) { 1578s [00:52:58.424] name <- added[[kk]] 1578s [00:52:58.424] NAME <- NAMES[[kk]] 1578s [00:52:58.424] if (name != NAME && is.element(NAME, old_names)) 1578s [00:52:58.424] next 1578s [00:52:58.424] args[[name]] <- "" 1578s [00:52:58.424] } 1578s [00:52:58.424] NAMES <- toupper(removed) 1578s [00:52:58.424] for (kk in seq_along(NAMES)) { 1578s [00:52:58.424] name <- removed[[kk]] 1578s [00:52:58.424] NAME <- NAMES[[kk]] 1578s [00:52:58.424] if (name != NAME && is.element(NAME, old_names)) 1578s [00:52:58.424] next 1578s [00:52:58.424] args[[name]] <- ...future.oldEnvVars[[name]] 1578s [00:52:58.424] } 1578s [00:52:58.424] if (length(args) > 0) 1578s [00:52:58.424] base::do.call(base::Sys.setenv, args = args) 1578s [00:52:58.424] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1578s [00:52:58.424] } 1578s [00:52:58.424] else { 1578s [00:52:58.424] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1578s [00:52:58.424] } 1578s [00:52:58.424] { 1578s [00:52:58.424] if (base::length(...future.futureOptionsAdded) > 1578s [00:52:58.424] 0L) { 1578s [00:52:58.424] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1578s [00:52:58.424] base::names(opts) <- ...future.futureOptionsAdded 1578s [00:52:58.424] base::options(opts) 1578s [00:52:58.424] } 1578s [00:52:58.424] { 1578s [00:52:58.424] { 1578s [00:52:58.424] NULL 1578s [00:52:58.424] RNGkind("Mersenne-Twister") 1578s [00:52:58.424] base::rm(list = ".Random.seed", envir = base::globalenv(), 1578s [00:52:58.424] inherits = FALSE) 1578s [00:52:58.424] } 1578s [00:52:58.424] options(future.plan = NULL) 1578s [00:52:58.424] if (is.na(NA_character_)) 1578s [00:52:58.424] Sys.unsetenv("R_FUTURE_PLAN") 1578s [00:52:58.424] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1578s [00:52:58.424] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1578s [00:52:58.424] envir = parent.frame()) 1578s [00:52:58.424] { 1578s [00:52:58.424] default_workers <- missing(workers) 1578s [00:52:58.424] if (is.function(workers)) 1578s [00:52:58.424] workers <- workers() 1578s [00:52:58.424] workers <- structure(as.integer(workers), 1578s [00:52:58.424] class = class(workers)) 1578s [00:52:58.424] stop_if_not(is.finite(workers), workers >= 1578s [00:52:58.424] 1L) 1578s [00:52:58.424] if ((workers == 1L && !inherits(workers, 1578s [00:52:58.424] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1578s [00:52:58.424] if (default_workers) 1578s [00:52:58.424] supportsMulticore(warn = TRUE) 1578s [00:52:58.424] return(sequential(..., envir = envir)) 1578s [00:52:58.424] } 1578s [00:52:58.424] oopts <- options(mc.cores = workers) 1578s [00:52:58.424] on.exit(options(oopts)) 1578s [00:52:58.424] future <- MulticoreFuture(..., workers = workers, 1578s [00:52:58.424] envir = envir) 1578s [00:52:58.424] if (!future$lazy) 1578s [00:52:58.424] future <- run(future) 1578s [00:52:58.424] invisible(future) 1578s [00:52:58.424] }), .cleanup = FALSE, .init = FALSE) 1578s [00:52:58.424] } 1578s [00:52:58.424] } 1578s [00:52:58.424] } 1578s [00:52:58.424] }) 1578s [00:52:58.424] if (TRUE) { 1578s [00:52:58.424] base::sink(type = "output", split = FALSE) 1578s [00:52:58.424] if (TRUE) { 1578s [00:52:58.424] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1578s [00:52:58.424] } 1578s [00:52:58.424] else { 1578s [00:52:58.424] ...future.result["stdout"] <- base::list(NULL) 1578s [00:52:58.424] } 1578s [00:52:58.424] base::close(...future.stdout) 1578s [00:52:58.424] ...future.stdout <- NULL 1578s [00:52:58.424] } 1578s [00:52:58.424] ...future.result$conditions <- ...future.conditions 1578s [00:52:58.424] ...future.result$finished <- base::Sys.time() 1578s [00:52:58.424] ...future.result 1578s [00:52:58.424] } 1578s [00:52:58.427] assign_globals() ... 1578s [00:52:58.427] List of 5 1578s [00:52:58.427] $ ...future.FUN :function (x, ...) 1578s [00:52:58.427] $ future.call.arguments : list() 1578s [00:52:58.427] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1578s [00:52:58.427] $ ...future.elements_ii :List of 4 1578s [00:52:58.427] ..$ A: num 50 1578s [00:52:58.427] ..$ B: num 60 1578s [00:52:58.427] ..$ C: num 70 1578s [00:52:58.427] ..$ D: num 80 1578s [00:52:58.427] $ ...future.seeds_ii : NULL 1578s [00:52:58.427] $ ...future.globals.maxSize: NULL 1578s [00:52:58.427] - attr(*, "where")=List of 5 1578s [00:52:58.427] ..$ ...future.FUN : 1578s [00:52:58.427] ..$ future.call.arguments : 1578s [00:52:58.427] ..$ ...future.elements_ii : 1578s [00:52:58.427] ..$ ...future.seeds_ii : 1578s [00:52:58.427] ..$ ...future.globals.maxSize: 1578s [00:52:58.427] - attr(*, "resolved")= logi FALSE 1578s [00:52:58.427] - attr(*, "total_size")= num 1248 1578s [00:52:58.427] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1578s [00:52:58.427] - attr(*, "already-done")= logi TRUE 1578s [00:52:58.435] - copied ‘...future.FUN’ to environment 1578s [00:52:58.435] - copied ‘future.call.arguments’ to environment 1578s [00:52:58.435] - copied ‘...future.elements_ii’ to environment 1578s [00:52:58.435] - copied ‘...future.seeds_ii’ to environment 1578s [00:52:58.435] - copied ‘...future.globals.maxSize’ to environment 1578s [00:52:58.436] assign_globals() ... done 1578s [00:52:58.436] plan(): Setting new future strategy stack: 1578s [00:52:58.436] List of future strategies: 1578s [00:52:58.436] 1. sequential: 1578s [00:52:58.436] - args: function (..., envir = parent.frame()) 1578s [00:52:58.436] - tweaked: FALSE 1578s [00:52:58.436] - call: NULL 1578s [00:52:58.437] plan(): nbrOfWorkers() = 1 1578s [00:52:58.438] plan(): Setting new future strategy stack: 1578s [00:52:58.439] List of future strategies: 1578s [00:52:58.439] 1. multicore: 1578s [00:52:58.439] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1578s [00:52:58.439] - tweaked: FALSE 1578s [00:52:58.439] - call: plan(strategy) 1578s [00:52:58.443] plan(): nbrOfWorkers() = 1 1578s [00:52:58.444] SequentialFuture started (and completed) 1578s [00:52:58.444] - Launch lazy future ... done 1578s [00:52:58.444] run() for ‘SequentialFuture’ ... done 1578s [00:52:58.444] Created future: 1578s [00:52:58.445] SequentialFuture: 1578s [00:52:58.445] Label: ‘future_sapply-1’ 1578s [00:52:58.445] Expression: 1578s [00:52:58.445] { 1578s [00:52:58.445] do.call(function(...) { 1578s [00:52:58.445] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1578s [00:52:58.445] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1578s [00:52:58.445] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1578s [00:52:58.445] on.exit(options(oopts), add = TRUE) 1578s [00:52:58.445] } 1578s [00:52:58.445] { 1578s [00:52:58.445] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1578s [00:52:58.445] ...future.X_jj <- ...future.elements_ii[[jj]] 1578s [00:52:58.445] ...future.FUN(...future.X_jj, ...) 1578s [00:52:58.445] }) 1578s [00:52:58.445] } 1578s [00:52:58.445] }, args = future.call.arguments) 1578s [00:52:58.445] } 1578s [00:52:58.445] Lazy evaluation: FALSE 1578s [00:52:58.445] Asynchronous evaluation: FALSE 1578s [00:52:58.445] Local evaluation: TRUE 1578s [00:52:58.445] Environment: R_GlobalEnv 1578s [00:52:58.445] Capture standard output: TRUE 1578s [00:52:58.445] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1578s [00:52:58.445] Globals: 5 objects totaling 1.44 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1578s [00:52:58.445] Packages: 1578s [00:52:58.445] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1578s [00:52:58.445] Resolved: TRUE 1578s [00:52:58.445] Value: 896 bytes of class ‘list’ 1578s [00:52:58.445] Early signaling: FALSE 1578s [00:52:58.445] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1578s [00:52:58.445] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1578s [00:52:58.446] Chunk #1 of 1 ... DONE 1578s [00:52:58.446] Launching 1 futures (chunks) ... DONE 1578s [00:52:58.446] Resolving 1 futures (chunks) ... 1578s [00:52:58.446] resolve() on list ... 1578s [00:52:58.447] recursive: 0 1578s [00:52:58.447] length: 1 1578s [00:52:58.447] 1578s [00:52:58.447] resolved() for ‘SequentialFuture’ ... 1578s [00:52:58.447] - state: ‘finished’ 1578s [00:52:58.447] - run: TRUE 1578s [00:52:58.447] - result: ‘FutureResult’ 1578s [00:52:58.447] resolved() for ‘SequentialFuture’ ... done 1578s [00:52:58.448] Future #1 1578s [00:52:58.448] signalConditionsASAP(SequentialFuture, pos=1) ... 1578s [00:52:58.448] - nx: 1 1578s [00:52:58.448] - relay: TRUE 1578s [00:52:58.448] - stdout: TRUE 1578s [00:52:58.449] - signal: TRUE 1578s [00:52:58.449] - resignal: FALSE 1578s [00:52:58.449] - force: TRUE 1578s [00:52:58.449] - relayed: [n=1] FALSE 1578s [00:52:58.449] - queued futures: [n=1] FALSE 1578s [00:52:58.449] - until=1 1578s [00:52:58.449] - relaying element #1 1578s [00:52:58.450] - relayed: [n=1] TRUE 1578s [00:52:58.450] - queued futures: [n=1] TRUE 1578s [00:52:58.450] signalConditionsASAP(SequentialFuture, pos=1) ... done 1578s [00:52:58.450] length: 0 (resolved future 1) 1578s [00:52:58.450] Relaying remaining futures 1578s [00:52:58.450] signalConditionsASAP(NULL, pos=0) ... 1578s [00:52:58.451] - nx: 1 1578s [00:52:58.451] - relay: TRUE 1578s [00:52:58.451] - stdout: TRUE 1578s [00:52:58.451] - signal: TRUE 1578s [00:52:58.451] - resignal: FALSE 1578s [00:52:58.451] - force: TRUE 1578s [00:52:58.451] - relayed: [n=1] TRUE 1578s [00:52:58.451] - queued futures: [n=1] TRUE 1578s - flush all 1578s [00:52:58.452] - relayed: [n=1] TRUE 1578s [00:52:58.452] - queued futures: [n=1] TRUE 1578s [00:52:58.452] signalConditionsASAP(NULL, pos=0) ... done 1578s [00:52:58.453] resolve() on list ... DONE 1578s [00:52:58.453] - Number of value chunks collected: 1 1578s [00:52:58.453] Resolving 1 futures (chunks) ... DONE 1578s [00:52:58.453] Reducing values from 1 chunks ... 1578s [00:52:58.453] - Number of values collected after concatenation: 4 1578s [00:52:58.453] - Number of values expected: 4 1578s [00:52:58.454] Reducing values from 1 chunks ... DONE 1578s [00:52:58.454] future_lapply() ... DONE 1578s List of 2 1578s $ [00:52:58.456] future_lapply() ... 1578s y0: Named num [1:4] 50 60 70 80 1578s ..- attr(*, "names")= chr [1:4] "A" "B" "C" "D" 1578s $ y1: Named num [1:4] 50 60 70 80 1578s ..- attr(*, "names")= chr [1:4] "A" "B" "C" "D" 1578s [00:52:58.461] Number of chunks: 1 1578s [00:52:58.461] getGlobalsAndPackagesXApply() ... 1578s [00:52:58.461] - future.globals: TRUE 1578s [00:52:58.461] getGlobalsAndPackages() ... 1578s [00:52:58.461] Searching for globals... 1578s [00:52:58.463] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1578s [00:52:58.463] Searching for globals ... DONE 1578s [00:52:58.464] Resolving globals: FALSE 1578s [00:52:58.464] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1578s [00:52:58.465] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1578s [00:52:58.465] - globals: [1] ‘FUN’ 1578s [00:52:58.465] 1578s [00:52:58.465] getGlobalsAndPackages() ... DONE 1578s [00:52:58.465] - globals found/used: [n=1] ‘FUN’ 1578s [00:52:58.465] - needed namespaces: [n=0] 1578s [00:52:58.466] Finding globals ... DONE 1578s [00:52:58.466] - use_args: TRUE 1578s [00:52:58.466] - Getting '...' globals ... 1578s [00:52:58.467] resolve() on list ... 1578s [00:52:58.467] recursive: 0 1578s [00:52:58.467] length: 1 1578s [00:52:58.467] elements: ‘...’ 1578s [00:52:58.467] length: 0 (resolved future 1) 1578s [00:52:58.468] resolve() on list ... DONE 1578s [00:52:58.468] - '...' content: [n=0] 1578s [00:52:58.468] List of 1 1578s [00:52:58.468] $ ...: list() 1578s [00:52:58.468] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1578s [00:52:58.468] - attr(*, "where")=List of 1 1578s [00:52:58.468] ..$ ...: 1578s [00:52:58.468] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1578s [00:52:58.468] - attr(*, "resolved")= logi TRUE 1578s [00:52:58.468] - attr(*, "total_size")= num NA 1578s [00:52:58.472] - Getting '...' globals ... DONE 1578s [00:52:58.472] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1578s [00:52:58.472] List of 2 1578s [00:52:58.472] $ ...future.FUN:function (x, y = 2 * 1:5) 1578s [00:52:58.472] $ ... : list() 1578s [00:52:58.472] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1578s [00:52:58.472] - attr(*, "where")=List of 2 1578s [00:52:58.472] ..$ ...future.FUN: 1578s [00:52:58.472] ..$ ... : 1578s [00:52:58.472] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1578s [00:52:58.472] - attr(*, "resolved")= logi FALSE 1578s [00:52:58.472] - attr(*, "total_size")= num 4728 1578s [00:52:58.479] Packages to be attached in all futures: [n=0] 1578s [00:52:58.479] getGlobalsAndPackagesXApply() ... DONE 1578s [00:52:58.479] Number of futures (= number of chunks): 1 1578s [00:52:58.480] Launching 1 futures (chunks) ... 1578s [00:52:58.480] Chunk #1 of 1 ... 1578s [00:52:58.480] - Finding globals in 'X' for chunk #1 ... 1578s [00:52:58.480] getGlobalsAndPackages() ... 1578s [00:52:58.480] Searching for globals... 1578s [00:52:58.481] 1578s [00:52:58.481] Searching for globals ... DONE 1578s [00:52:58.481] - globals: [0] 1578s [00:52:58.481] getGlobalsAndPackages() ... DONE 1578s [00:52:58.481] + additional globals found: [n=0] 1578s [00:52:58.481] + additional namespaces needed: [n=0] 1578s [00:52:58.482] - Finding globals in 'X' for chunk #1 ... DONE 1578s [00:52:58.482] - seeds: 1578s [00:52:58.482] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1578s [00:52:58.482] getGlobalsAndPackages() ... 1578s [00:52:58.482] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1578s [00:52:58.482] Resolving globals: FALSE 1578s [00:52:58.483] Tweak future expression to call with '...' arguments ... 1578s [00:52:58.483] { 1578s [00:52:58.483] do.call(function(...) { 1578s [00:52:58.483] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1578s [00:52:58.483] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1578s [00:52:58.483] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1578s [00:52:58.483] on.exit(options(oopts), add = TRUE) 1578s [00:52:58.483] } 1578s [00:52:58.483] { 1578s [00:52:58.483] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1578s [00:52:58.483] ...future.X_jj <- ...future.elements_ii[[jj]] 1578s [00:52:58.483] ...future.FUN(...future.X_jj, ...) 1578s [00:52:58.483] }) 1578s [00:52:58.483] } 1578s [00:52:58.483] }, args = future.call.arguments) 1578s [00:52:58.483] } 1578s [00:52:58.483] Tweak future expression to call with '...' arguments ... DONE 1578s [00:52:58.484] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1578s [00:52:58.484] 1578s [00:52:58.484] getGlobalsAndPackages() ... DONE 1578s [00:52:58.485] run() for ‘Future’ ... 1578s [00:52:58.485] - state: ‘created’ 1578s [00:52:58.485] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1578s [00:52:58.488] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1578s [00:52:58.488] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1578s [00:52:58.489] - Field: ‘label’ 1578s [00:52:58.489] - Field: ‘local’ 1578s [00:52:58.489] - Field: ‘owner’ 1578s [00:52:58.489] - Field: ‘envir’ 1578s [00:52:58.489] - Field: ‘packages’ 1578s [00:52:58.490] - Field: ‘gc’ 1578s [00:52:58.490] - Field: ‘conditions’ 1578s [00:52:58.490] - Field: ‘expr’ 1578s [00:52:58.490] - Field: ‘uuid’ 1578s [00:52:58.490] - Field: ‘seed’ 1578s [00:52:58.491] - Field: ‘version’ 1578s [00:52:58.491] - Field: ‘result’ 1578s [00:52:58.491] - Field: ‘asynchronous’ 1578s [00:52:58.491] - Field: ‘calls’ 1578s [00:52:58.491] - Field: ‘globals’ 1578s [00:52:58.492] - Field: ‘stdout’ 1578s [00:52:58.492] - Field: ‘earlySignal’ 1578s [00:52:58.492] - Field: ‘lazy’ 1578s [00:52:58.493] - Field: ‘state’ 1578s [00:52:58.493] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1578s [00:52:58.493] - Launch lazy future ... 1578s [00:52:58.493] Packages needed by the future expression (n = 0): 1578s [00:52:58.493] Packages needed by future strategies (n = 0): 1578s [00:52:58.494] { 1578s [00:52:58.494] { 1578s [00:52:58.494] { 1578s [00:52:58.494] ...future.startTime <- base::Sys.time() 1578s [00:52:58.494] { 1578s [00:52:58.494] { 1578s [00:52:58.494] { 1578s [00:52:58.494] base::local({ 1578s [00:52:58.494] has_future <- base::requireNamespace("future", 1578s [00:52:58.494] quietly = TRUE) 1578s [00:52:58.494] if (has_future) { 1578s [00:52:58.494] ns <- base::getNamespace("future") 1578s [00:52:58.494] version <- ns[[".package"]][["version"]] 1578s [00:52:58.494] if (is.null(version)) 1578s [00:52:58.494] version <- utils::packageVersion("future") 1578s [00:52:58.494] } 1578s [00:52:58.494] else { 1578s [00:52:58.494] version <- NULL 1578s [00:52:58.494] } 1578s [00:52:58.494] if (!has_future || version < "1.8.0") { 1578s [00:52:58.494] info <- base::c(r_version = base::gsub("R version ", 1578s [00:52:58.494] "", base::R.version$version.string), 1578s [00:52:58.494] platform = base::sprintf("%s (%s-bit)", 1578s [00:52:58.494] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1578s [00:52:58.494] os = base::paste(base::Sys.info()[base::c("sysname", 1578s [00:52:58.494] "release", "version")], collapse = " "), 1578s [00:52:58.494] hostname = base::Sys.info()[["nodename"]]) 1578s [00:52:58.494] info <- base::sprintf("%s: %s", base::names(info), 1578s [00:52:58.494] info) 1578s [00:52:58.494] info <- base::paste(info, collapse = "; ") 1578s [00:52:58.494] if (!has_future) { 1578s [00:52:58.494] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1578s [00:52:58.494] info) 1578s [00:52:58.494] } 1578s [00:52:58.494] else { 1578s [00:52:58.494] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1578s [00:52:58.494] info, version) 1578s [00:52:58.494] } 1578s [00:52:58.494] base::stop(msg) 1578s [00:52:58.494] } 1578s [00:52:58.494] }) 1578s [00:52:58.494] } 1578s [00:52:58.494] options(future.plan = NULL) 1578s [00:52:58.494] Sys.unsetenv("R_FUTURE_PLAN") 1578s [00:52:58.494] future::plan("default", .cleanup = FALSE, .init = FALSE) 1578s [00:52:58.494] } 1578s [00:52:58.494] ...future.workdir <- getwd() 1578s [00:52:58.494] } 1578s [00:52:58.494] ...future.oldOptions <- base::as.list(base::.Options) 1578s [00:52:58.494] ...future.oldEnvVars <- base::Sys.getenv() 1578s [00:52:58.494] } 1578s [00:52:58.494] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1578s [00:52:58.494] future.globals.maxSize = NULL, future.globals.method = NULL, 1578s [00:52:58.494] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1578s [00:52:58.494] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1578s [00:52:58.494] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1578s [00:52:58.494] future.stdout.windows.reencode = NULL, width = 80L) 1578s [00:52:58.494] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1578s [00:52:58.494] base::names(...future.oldOptions)) 1578s [00:52:58.494] } 1578s [00:52:58.494] if (FALSE) { 1578s [00:52:58.494] } 1578s [00:52:58.494] else { 1578s [00:52:58.494] if (TRUE) { 1578s [00:52:58.494] ...future.stdout <- base::rawConnection(base::raw(0L), 1578s [00:52:58.494] open = "w") 1578s [00:52:58.494] } 1578s [00:52:58.494] else { 1578s [00:52:58.494] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1578s [00:52:58.494] windows = "NUL", "/dev/null"), open = "w") 1578s [00:52:58.494] } 1578s [00:52:58.494] base::sink(...future.stdout, type = "output", split = FALSE) 1578s [00:52:58.494] base::on.exit(if (!base::is.null(...future.stdout)) { 1578s [00:52:58.494] base::sink(type = "output", split = FALSE) 1578s [00:52:58.494] base::close(...future.stdout) 1578s [00:52:58.494] }, add = TRUE) 1578s [00:52:58.494] } 1578s [00:52:58.494] ...future.frame <- base::sys.nframe() 1578s [00:52:58.494] ...future.conditions <- base::list() 1578s [00:52:58.494] ...future.rng <- base::globalenv()$.Random.seed 1578s [00:52:58.494] if (FALSE) { 1578s [00:52:58.494] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1578s [00:52:58.494] "...future.value", "...future.globalenv.names", ".Random.seed") 1578s [00:52:58.494] } 1578s [00:52:58.494] ...future.result <- base::tryCatch({ 1578s [00:52:58.494] base::withCallingHandlers({ 1578s [00:52:58.494] ...future.value <- base::withVisible(base::local({ 1578s [00:52:58.494] do.call(function(...) { 1578s [00:52:58.494] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1578s [00:52:58.494] if (!identical(...future.globals.maxSize.org, 1578s [00:52:58.494] ...future.globals.maxSize)) { 1578s [00:52:58.494] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1578s [00:52:58.494] on.exit(options(oopts), add = TRUE) 1578s [00:52:58.494] } 1578s [00:52:58.494] { 1578s [00:52:58.494] lapply(seq_along(...future.elements_ii), 1578s [00:52:58.494] FUN = function(jj) { 1578s [00:52:58.494] ...future.X_jj <- ...future.elements_ii[[jj]] 1578s [00:52:58.494] ...future.FUN(...future.X_jj, ...) 1578s [00:52:58.494] }) 1578s [00:52:58.494] } 1578s [00:52:58.494] }, args = future.call.arguments) 1578s [00:52:58.494] })) 1578s [00:52:58.494] future::FutureResult(value = ...future.value$value, 1578s [00:52:58.494] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1578s [00:52:58.494] ...future.rng), globalenv = if (FALSE) 1578s [00:52:58.494] list(added = base::setdiff(base::names(base::.GlobalEnv), 1578s [00:52:58.494] ...future.globalenv.names)) 1578s [00:52:58.494] else NULL, started = ...future.startTime, version = "1.8") 1578s [00:52:58.494] }, condition = base::local({ 1578s [00:52:58.494] c <- base::c 1578s [00:52:58.494] inherits <- base::inherits 1578s [00:52:58.494] invokeRestart <- base::invokeRestart 1578s [00:52:58.494] length <- base::length 1578s [00:52:58.494] list <- base::list 1578s [00:52:58.494] seq.int <- base::seq.int 1578s [00:52:58.494] signalCondition <- base::signalCondition 1578s [00:52:58.494] sys.calls <- base::sys.calls 1578s [00:52:58.494] `[[` <- base::`[[` 1578s [00:52:58.494] `+` <- base::`+` 1578s [00:52:58.494] `<<-` <- base::`<<-` 1578s [00:52:58.494] sysCalls <- function(calls = sys.calls(), from = 1L) { 1578s [00:52:58.494] calls[seq.int(from = from + 12L, to = length(calls) - 1578s [00:52:58.494] 3L)] 1578s [00:52:58.494] } 1578s [00:52:58.494] function(cond) { 1578s [00:52:58.494] is_error <- inherits(cond, "error") 1578s [00:52:58.494] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1578s [00:52:58.494] NULL) 1578s [00:52:58.494] if (is_error) { 1578s [00:52:58.494] sessionInformation <- function() { 1578s [00:52:58.494] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1578s [00:52:58.494] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1578s [00:52:58.494] search = base::search(), system = base::Sys.info()) 1578s [00:52:58.494] } 1578s [00:52:58.494] ...future.conditions[[length(...future.conditions) + 1578s [00:52:58.494] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1578s [00:52:58.494] cond$call), session = sessionInformation(), 1578s [00:52:58.494] timestamp = base::Sys.time(), signaled = 0L) 1578s [00:52:58.494] signalCondition(cond) 1578s [00:52:58.494] } 1578s [00:52:58.494] else if (!ignore && TRUE && inherits(cond, c("condition", 1578s [00:52:58.494] "immediateCondition"))) { 1578s [00:52:58.494] signal <- TRUE && inherits(cond, "immediateCondition") 1578s [00:52:58.494] ...future.conditions[[length(...future.conditions) + 1578s [00:52:58.494] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1578s [00:52:58.494] if (TRUE && !signal) { 1578s [00:52:58.494] muffleCondition <- function (cond, pattern = "^muffle") 1578s [00:52:58.494] { 1578s [00:52:58.494] inherits <- base::inherits 1578s [00:52:58.494] invokeRestart <- base::invokeRestart 1578s [00:52:58.494] is.null <- base::is.null 1578s [00:52:58.494] muffled <- FALSE 1578s [00:52:58.494] if (inherits(cond, "message")) { 1578s [00:52:58.494] muffled <- grepl(pattern, "muffleMessage") 1578s [00:52:58.494] if (muffled) 1578s [00:52:58.494] invokeRestart("muffleMessage") 1578s [00:52:58.494] } 1578s [00:52:58.494] else if (inherits(cond, "warning")) { 1578s [00:52:58.494] muffled <- grepl(pattern, "muffleWarning") 1578s [00:52:58.494] if (muffled) 1578s [00:52:58.494] invokeRestart("muffleWarning") 1578s [00:52:58.494] } 1578s [00:52:58.494] else if (inherits(cond, "condition")) { 1578s [00:52:58.494] if (!is.null(pattern)) { 1578s [00:52:58.494] computeRestarts <- base::computeRestarts 1578s [00:52:58.494] grepl <- base::grepl 1578s [00:52:58.494] restarts <- computeRestarts(cond) 1578s [00:52:58.494] for (restart in restarts) { 1578s [00:52:58.494] name <- restart$name 1578s [00:52:58.494] if (is.null(name)) 1578s [00:52:58.494] next 1578s [00:52:58.494] if (!grepl(pattern, name)) 1578s [00:52:58.494] next 1578s [00:52:58.494] invokeRestart(restart) 1578s [00:52:58.494] muffled <- TRUE 1578s [00:52:58.494] break 1578s [00:52:58.494] } 1578s [00:52:58.494] } 1578s [00:52:58.494] } 1578s [00:52:58.494] invisible(muffled) 1578s [00:52:58.494] } 1578s [00:52:58.494] muffleCondition(cond, pattern = "^muffle") 1578s [00:52:58.494] } 1578s [00:52:58.494] } 1578s [00:52:58.494] else { 1578s [00:52:58.494] if (TRUE) { 1578s [00:52:58.494] muffleCondition <- function (cond, pattern = "^muffle") 1578s [00:52:58.494] { 1578s [00:52:58.494] inherits <- base::inherits 1578s [00:52:58.494] invokeRestart <- base::invokeRestart 1578s [00:52:58.494] is.null <- base::is.null 1578s [00:52:58.494] muffled <- FALSE 1578s [00:52:58.494] if (inherits(cond, "message")) { 1578s [00:52:58.494] muffled <- grepl(pattern, "muffleMessage") 1578s [00:52:58.494] if (muffled) 1578s [00:52:58.494] invokeRestart("muffleMessage") 1578s [00:52:58.494] } 1578s [00:52:58.494] else if (inherits(cond, "warning")) { 1578s [00:52:58.494] muffled <- grepl(pattern, "muffleWarning") 1578s [00:52:58.494] if (muffled) 1578s [00:52:58.494] invokeRestart("muffleWarning") 1578s [00:52:58.494] } 1578s [00:52:58.494] else if (inherits(cond, "condition")) { 1578s [00:52:58.494] if (!is.null(pattern)) { 1578s [00:52:58.494] computeRestarts <- base::computeRestarts 1578s [00:52:58.494] grepl <- base::grepl 1578s [00:52:58.494] restarts <- computeRestarts(cond) 1578s [00:52:58.494] for (restart in restarts) { 1578s [00:52:58.494] name <- restart$name 1578s [00:52:58.494] if (is.null(name)) 1578s [00:52:58.494] next 1578s [00:52:58.494] if (!grepl(pattern, name)) 1578s [00:52:58.494] next 1578s [00:52:58.494] invokeRestart(restart) 1578s [00:52:58.494] muffled <- TRUE 1578s [00:52:58.494] break 1578s [00:52:58.494] } 1578s [00:52:58.494] } 1578s [00:52:58.494] } 1578s [00:52:58.494] invisible(muffled) 1578s [00:52:58.494] } 1578s [00:52:58.494] muffleCondition(cond, pattern = "^muffle") 1578s [00:52:58.494] } 1578s [00:52:58.494] } 1578s [00:52:58.494] } 1578s [00:52:58.494] })) 1578s [00:52:58.494] }, error = function(ex) { 1578s [00:52:58.494] base::structure(base::list(value = NULL, visible = NULL, 1578s [00:52:58.494] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1578s [00:52:58.494] ...future.rng), started = ...future.startTime, 1578s [00:52:58.494] finished = Sys.time(), session_uuid = NA_character_, 1578s [00:52:58.494] version = "1.8"), class = "FutureResult") 1578s [00:52:58.494] }, finally = { 1578s [00:52:58.494] if (!identical(...future.workdir, getwd())) 1578s [00:52:58.494] setwd(...future.workdir) 1578s [00:52:58.494] { 1578s [00:52:58.494] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1578s [00:52:58.494] ...future.oldOptions$nwarnings <- NULL 1578s [00:52:58.494] } 1578s [00:52:58.494] base::options(...future.oldOptions) 1578s [00:52:58.494] if (.Platform$OS.type == "windows") { 1578s [00:52:58.494] old_names <- names(...future.oldEnvVars) 1578s [00:52:58.494] envs <- base::Sys.getenv() 1578s [00:52:58.494] names <- names(envs) 1578s [00:52:58.494] common <- intersect(names, old_names) 1578s [00:52:58.494] added <- setdiff(names, old_names) 1578s [00:52:58.494] removed <- setdiff(old_names, names) 1578s [00:52:58.494] changed <- common[...future.oldEnvVars[common] != 1578s [00:52:58.494] envs[common]] 1578s [00:52:58.494] NAMES <- toupper(changed) 1578s [00:52:58.494] args <- list() 1578s [00:52:58.494] for (kk in seq_along(NAMES)) { 1578s [00:52:58.494] name <- changed[[kk]] 1578s [00:52:58.494] NAME <- NAMES[[kk]] 1578s [00:52:58.494] if (name != NAME && is.element(NAME, old_names)) 1578s [00:52:58.494] next 1578s [00:52:58.494] args[[name]] <- ...future.oldEnvVars[[name]] 1578s [00:52:58.494] } 1578s [00:52:58.494] NAMES <- toupper(added) 1578s [00:52:58.494] for (kk in seq_along(NAMES)) { 1578s [00:52:58.494] name <- added[[kk]] 1578s [00:52:58.494] NAME <- NAMES[[kk]] 1578s [00:52:58.494] if (name != NAME && is.element(NAME, old_names)) 1578s [00:52:58.494] next 1578s [00:52:58.494] args[[name]] <- "" 1578s [00:52:58.494] } 1578s [00:52:58.494] NAMES <- toupper(removed) 1578s [00:52:58.494] for (kk in seq_along(NAMES)) { 1578s [00:52:58.494] name <- removed[[kk]] 1578s [00:52:58.494] NAME <- NAMES[[kk]] 1578s [00:52:58.494] if (name != NAME && is.element(NAME, old_names)) 1578s [00:52:58.494] next 1578s [00:52:58.494] args[[name]] <- ...future.oldEnvVars[[name]] 1578s [00:52:58.494] } 1578s [00:52:58.494] if (length(args) > 0) 1578s [00:52:58.494] base::do.call(base::Sys.setenv, args = args) 1578s [00:52:58.494] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1578s [00:52:58.494] } 1578s [00:52:58.494] else { 1578s [00:52:58.494] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1578s [00:52:58.494] } 1578s [00:52:58.494] { 1578s [00:52:58.494] if (base::length(...future.futureOptionsAdded) > 1578s [00:52:58.494] 0L) { 1578s [00:52:58.494] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1578s [00:52:58.494] base::names(opts) <- ...future.futureOptionsAdded 1578s [00:52:58.494] base::options(opts) 1578s [00:52:58.494] } 1578s [00:52:58.494] { 1578s [00:52:58.494] { 1578s [00:52:58.494] NULL 1578s [00:52:58.494] RNGkind("Mersenne-Twister") 1578s [00:52:58.494] base::rm(list = ".Random.seed", envir = base::globalenv(), 1578s [00:52:58.494] inherits = FALSE) 1578s [00:52:58.494] } 1578s [00:52:58.494] options(future.plan = NULL) 1578s [00:52:58.494] if (is.na(NA_character_)) 1578s [00:52:58.494] Sys.unsetenv("R_FUTURE_PLAN") 1578s [00:52:58.494] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1578s [00:52:58.494] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1578s [00:52:58.494] envir = parent.frame()) 1578s [00:52:58.494] { 1578s [00:52:58.494] default_workers <- missing(workers) 1578s [00:52:58.494] if (is.function(workers)) 1578s [00:52:58.494] workers <- workers() 1578s [00:52:58.494] workers <- structure(as.integer(workers), 1578s [00:52:58.494] class = class(workers)) 1578s [00:52:58.494] stop_if_not(is.finite(workers), workers >= 1578s [00:52:58.494] 1L) 1578s [00:52:58.494] if ((workers == 1L && !inherits(workers, 1578s [00:52:58.494] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1578s [00:52:58.494] if (default_workers) 1578s [00:52:58.494] supportsMulticore(warn = TRUE) 1578s [00:52:58.494] return(sequential(..., envir = envir)) 1578s [00:52:58.494] } 1578s [00:52:58.494] oopts <- options(mc.cores = workers) 1578s [00:52:58.494] on.exit(options(oopts)) 1578s [00:52:58.494] future <- MulticoreFuture(..., workers = workers, 1578s [00:52:58.494] envir = envir) 1578s [00:52:58.494] if (!future$lazy) 1578s [00:52:58.494] future <- run(future) 1578s [00:52:58.494] invisible(future) 1578s [00:52:58.494] }), .cleanup = FALSE, .init = FALSE) 1578s [00:52:58.494] } 1578s [00:52:58.494] } 1578s [00:52:58.494] } 1578s [00:52:58.494] }) 1578s [00:52:58.494] if (TRUE) { 1578s [00:52:58.494] base::sink(type = "output", split = FALSE) 1578s [00:52:58.494] if (TRUE) { 1578s [00:52:58.494] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1578s [00:52:58.494] } 1578s [00:52:58.494] else { 1578s [00:52:58.494] ...future.result["stdout"] <- base::list(NULL) 1578s [00:52:58.494] } 1578s [00:52:58.494] base::close(...future.stdout) 1578s [00:52:58.494] ...future.stdout <- NULL 1578s [00:52:58.494] } 1578s [00:52:58.494] ...future.result$conditions <- ...future.conditions 1578s [00:52:58.494] ...future.result$finished <- base::Sys.time() 1578s [00:52:58.494] ...future.result 1578s [00:52:58.494] } 1578s [00:52:58.500] assign_globals() ... 1578s [00:52:58.501] List of 5 1578s [00:52:58.501] $ ...future.FUN :function (x, y = 2 * 1:5) 1578s [00:52:58.501] $ future.call.arguments : list() 1578s [00:52:58.501] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1578s [00:52:58.501] $ ...future.elements_ii :List of 4 1578s [00:52:58.501] ..$ A: num 50 1578s [00:52:58.501] ..$ B: num 60 1578s [00:52:58.501] ..$ C: num 70 1578s [00:52:58.501] ..$ D: num 80 1578s [00:52:58.501] $ ...future.seeds_ii : NULL 1578s [00:52:58.501] $ ...future.globals.maxSize: NULL 1578s [00:52:58.501] - attr(*, "where")=List of 5 1578s [00:52:58.501] ..$ ...future.FUN : 1578s [00:52:58.501] ..$ future.call.arguments : 1578s [00:52:58.501] ..$ ...future.elements_ii : 1578s [00:52:58.501] ..$ ...future.seeds_ii : 1578s [00:52:58.501] ..$ ...future.globals.maxSize: 1578s [00:52:58.501] - attr(*, "resolved")= logi FALSE 1578s [00:52:58.501] - attr(*, "total_size")= num 4728 1578s [00:52:58.501] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1578s [00:52:58.501] - attr(*, "already-done")= logi TRUE 1578s [00:52:58.509] - reassign environment for ‘...future.FUN’ 1578s [00:52:58.509] - copied ‘...future.FUN’ to environment 1578s [00:52:58.509] - copied ‘future.call.arguments’ to environment 1578s [00:52:58.509] - copied ‘...future.elements_ii’ to environment 1578s [00:52:58.509] - copied ‘...future.seeds_ii’ to environment 1578s [00:52:58.509] - copied ‘...future.globals.maxSize’ to environment 1578s [00:52:58.510] assign_globals() ... done 1578s [00:52:58.510] plan(): Setting new future strategy stack: 1578s [00:52:58.510] List of future strategies: 1578s [00:52:58.510] 1. sequential: 1578s [00:52:58.510] - args: function (..., envir = parent.frame()) 1578s [00:52:58.510] - tweaked: FALSE 1578s [00:52:58.510] - call: NULL 1578s [00:52:58.511] plan(): nbrOfWorkers() = 1 1578s [00:52:58.512] plan(): Setting new future strategy stack: 1578s [00:52:58.512] List of future strategies: 1578s [00:52:58.512] 1. multicore: 1578s [00:52:58.512] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1578s [00:52:58.512] - tweaked: FALSE 1578s [00:52:58.512] - call: plan(strategy) 1578s [00:52:58.515] plan(): nbrOfWorkers() = 1 1578s [00:52:58.516] SequentialFuture started (and completed) 1578s [00:52:58.516] - Launch lazy future ... done 1578s [00:52:58.516] run() for ‘SequentialFuture’ ... done 1578s [00:52:58.517] Created future: 1578s [00:52:58.517] SequentialFuture: 1578s [00:52:58.517] Label: ‘future_sapply-1’ 1578s [00:52:58.517] Expression: 1578s [00:52:58.517] { 1578s [00:52:58.517] do.call(function(...) { 1578s [00:52:58.517] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1578s [00:52:58.517] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1578s [00:52:58.517] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1578s [00:52:58.517] on.exit(options(oopts), add = TRUE) 1578s [00:52:58.517] } 1578s [00:52:58.517] { 1578s [00:52:58.517] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1578s [00:52:58.517] ...future.X_jj <- ...future.elements_ii[[jj]] 1578s [00:52:58.517] ...future.FUN(...future.X_jj, ...) 1578s [00:52:58.517] }) 1578s [00:52:58.517] } 1578s [00:52:58.517] }, args = future.call.arguments) 1578s [00:52:58.517] } 1578s [00:52:58.517] Lazy evaluation: FALSE 1578s [00:52:58.517] Asynchronous evaluation: FALSE 1578s [00:52:58.517] Local evaluation: TRUE 1578s [00:52:58.517] Environment: R_GlobalEnv 1578s [00:52:58.517] Capture standard output: TRUE 1578s [00:52:58.517] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1578s [00:52:58.517] Globals: 5 objects totaling 4.84 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1578s [00:52:58.517] Packages: 1578s [00:52:58.517] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1578s [00:52:58.517] Resolved: TRUE 1578s [00:52:58.517] Value: 1.34 KiB of class ‘list’ 1578s [00:52:58.517] Early signaling: FALSE 1578s [00:52:58.517] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1578s [00:52:58.517] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1578s [00:52:58.519] Chunk #1 of 1 ... DONE 1578s [00:52:58.519] Launching 1 futures (chunks) ... DONE 1578s [00:52:58.519] Resolving 1 futures (chunks) ... 1578s [00:52:58.519] resolve() on list ... 1578s [00:52:58.520] recursive: 0 1578s [00:52:58.520] length: 1 1578s [00:52:58.520] 1578s [00:52:58.520] resolved() for ‘SequentialFuture’ ... 1578s [00:52:58.521] - state: ‘finished’ 1578s [00:52:58.521] - run: TRUE 1578s [00:52:58.521] - result: ‘FutureResult’ 1578s [00:52:58.521] resolved() for ‘SequentialFuture’ ... done 1578s [00:52:58.521] Future #1 1578s [00:52:58.522] signalConditionsASAP(SequentialFuture, pos=1) ... 1578s [00:52:58.522] - nx: 1 1578s [00:52:58.522] - relay: TRUE 1578s [00:52:58.522] - stdout: TRUE 1578s [00:52:58.522] - signal: TRUE 1578s [00:52:58.522] - resignal: FALSE 1578s [00:52:58.523] - force: TRUE 1578s [00:52:58.523] - relayed: [n=1] FALSE 1578s [00:52:58.523] - queued futures: [n=1] FALSE 1578s [00:52:58.523] - until=1 1578s [00:52:58.523] - relaying element #1 1578s [00:52:58.524] - relayed: [n=1] TRUE 1578s [00:52:58.524] - queued futures: [n=1] TRUE 1578s [00:52:58.524] signalConditionsASAP(SequentialFuture, pos=1) ... done 1578s [00:52:58.524] length: 0 (resolved future 1) 1578s [00:52:58.524] Relaying remaining futures 1578s [00:52:58.524] signalConditionsASAP(NULL, pos=0) ... 1578s [00:52:58.525] - nx: 1 1578s [00:52:58.525] - relay: TRUE 1578s [00:52:58.525] - stdout: TRUE 1578s [00:52:58.525] - signal: TRUE 1578s [00:52:58.525] - resignal: FALSE 1578s [00:52:58.526] - force: TRUE 1578s [00:52:58.526] - relayed: [n=1] TRUE 1578s [00:52:58.526] - queued futures: [n=1] TRUE 1578s - flush all 1578s [00:52:58.526] - relayed: [n=1] TRUE 1578s [00:52:58.526] - queued futures: [n=1] TRUE 1578s [00:52:58.527] signalConditionsASAP(NULL, pos=0) ... done 1578s [00:52:58.527] resolve() on list ... DONE 1578s [00:52:58.527] - Number of value chunks collected: 1 1578s [00:52:58.527] Resolving 1 futures (chunks) ... DONE 1578s [00:52:58.527] Reducing values from 1 chunks ... 1578s [00:52:58.527] - Number of values collected after concatenation: 4 1578s [00:52:58.528] - Number of values expected: 4 1578s [00:52:58.528] Reducing values from 1 chunks ... DONE 1578s [00:52:58.528] future_lapply() ... DONE 1578s List of 2 1578s $ y0: num [1:15, 1:4] 100 100 100 200 200 200 300 300 300 400 ... 1578s ..- attr(*, "dimnames")=List of 2 1578s .. ..$ : NULL 1578s .. ..$ : chr [1:4] "A" "B" "C" "D" 1578s $ y1: num [1:15, 1:4] 100 100 100 200 200 200 300 300 300 400 ... 1578s ..- attr(*, "dimnames")=[00:52:58.532] future_lapply() ... 1578s List of 2 1578s .. ..$ : NULL 1578s .. ..$ : chr [1:4] "A" "B" "C" "D" 1578s [00:52:58.536] Number of chunks: 1 1578s [00:52:58.536] getGlobalsAndPackagesXApply() ... 1578s [00:52:58.537] - future.globals: TRUE 1578s [00:52:58.537] getGlobalsAndPackages() ... 1578s [00:52:58.537] Searching for globals... 1578s [00:52:58.538] - globals found: [1] ‘FUN’ 1578s [00:52:58.538] Searching for globals ... DONE 1578s [00:52:58.538] Resolving globals: FALSE 1578s [00:52:58.539] The total size of the 1 globals is 848 bytes (848 bytes) 1578s [00:52:58.539] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1578s [00:52:58.539] - globals: [1] ‘FUN’ 1578s [00:52:58.539] 1578s [00:52:58.540] getGlobalsAndPackages() ... DONE 1578s [00:52:58.540] - globals found/used: [n=1] ‘FUN’ 1578s [00:52:58.540] - needed namespaces: [n=0] 1578s [00:52:58.540] Finding globals ... DONE 1578s [00:52:58.540] - use_args: TRUE 1578s [00:52:58.540] - Getting '...' globals ... 1578s [00:52:58.541] resolve() on list ... 1578s [00:52:58.541] recursive: 0 1578s [00:52:58.541] length: 1 1578s [00:52:58.542] elements: ‘...’ 1578s [00:52:58.542] length: 0 (resolved future 1) 1578s [00:52:58.542] resolve() on list ... DONE 1578s [00:52:58.542] - '...' content: [n=0] 1578s [00:52:58.542] List of 1 1578s [00:52:58.542] $ ...: list() 1578s [00:52:58.542] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1578s [00:52:58.542] - attr(*, "where")=List of 1 1578s [00:52:58.542] ..$ ...: 1578s [00:52:58.542] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1578s [00:52:58.542] - attr(*, "resolved")= logi TRUE 1578s [00:52:58.542] - attr(*, "total_size")= num NA 1578s [00:52:58.545] - Getting '...' globals ... DONE 1578s [00:52:58.546] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1578s [00:52:58.546] List of 2 1578s [00:52:58.546] $ ...future.FUN:function (x) 1578s [00:52:58.546] $ ... : list() 1578s [00:52:58.546] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1578s [00:52:58.546] - attr(*, "where")=List of 2 1578s [00:52:58.546] ..$ ...future.FUN: 1578s [00:52:58.546] ..$ ... : 1578s [00:52:58.546] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1578s [00:52:58.546] - attr(*, "resolved")= logi FALSE 1578s [00:52:58.546] - attr(*, "total_size")= num 848 1578s [00:52:58.549] Packages to be attached in all futures: [n=0] 1578s [00:52:58.549] getGlobalsAndPackagesXApply() ... DONE 1578s [00:52:58.550] Number of futures (= number of chunks): 1 1578s [00:52:58.550] Launching 1 futures (chunks) ... 1578s [00:52:58.550] Chunk #1 of 1 ... 1578s [00:52:58.550] - Finding globals in 'X' for chunk #1 ... 1578s [00:52:58.550] getGlobalsAndPackages() ... 1578s [00:52:58.551] Searching for globals... 1578s [00:52:58.551] 1578s [00:52:58.551] Searching for globals ... DONE 1578s [00:52:58.551] - globals: [0] 1578s [00:52:58.552] getGlobalsAndPackages() ... DONE 1578s [00:52:58.552] + additional globals found: [n=0] 1578s [00:52:58.552] + additional namespaces needed: [n=0] 1578s [00:52:58.552] - Finding globals in 'X' for chunk #1 ... DONE 1578s [00:52:58.552] - seeds: 1578s [00:52:58.552] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1578s [00:52:58.552] getGlobalsAndPackages() ... 1578s [00:52:58.552] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1578s [00:52:58.553] Resolving globals: FALSE 1578s [00:52:58.553] Tweak future expression to call with '...' arguments ... 1578s [00:52:58.553] { 1578s [00:52:58.553] do.call(function(...) { 1578s [00:52:58.553] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1578s [00:52:58.553] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1578s [00:52:58.553] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1578s [00:52:58.553] on.exit(options(oopts), add = TRUE) 1578s [00:52:58.553] } 1578s [00:52:58.553] { 1578s [00:52:58.553] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1578s [00:52:58.553] ...future.X_jj <- ...future.elements_ii[[jj]] 1578s [00:52:58.553] ...future.FUN(...future.X_jj, ...) 1578s [00:52:58.553] }) 1578s [00:52:58.553] } 1578s [00:52:58.553] }, args = future.call.arguments) 1578s [00:52:58.553] } 1578s [00:52:58.553] Tweak future expression to call with '...' arguments ... DONE 1578s [00:52:58.554] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1578s [00:52:58.554] 1578s [00:52:58.554] getGlobalsAndPackages() ... DONE 1578s [00:52:58.554] run() for ‘Future’ ... 1578s [00:52:58.554] - state: ‘created’ 1578s [00:52:58.555] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1578s [00:52:58.559] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1578s [00:52:58.559] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1578s [00:52:58.559] - Field: ‘label’ 1578s [00:52:58.559] - Field: ‘local’ 1578s [00:52:58.559] - Field: ‘owner’ 1578s [00:52:58.560] - Field: ‘envir’ 1578s [00:52:58.560] - Field: ‘packages’ 1578s [00:52:58.560] - Field: ‘gc’ 1578s [00:52:58.560] - Field: ‘conditions’ 1578s [00:52:58.561] - Field: ‘expr’ 1578s [00:52:58.561] - Field: ‘uuid’ 1578s [00:52:58.561] - Field: ‘seed’ 1578s [00:52:58.561] - Field: ‘version’ 1578s [00:52:58.561] - Field: ‘result’ 1578s [00:52:58.562] - Field: ‘asynchronous’ 1578s [00:52:58.562] - Field: ‘calls’ 1578s [00:52:58.562] - Field: ‘globals’ 1578s [00:52:58.562] - Field: ‘stdout’ 1578s [00:52:58.562] - Field: ‘earlySignal’ 1578s [00:52:58.562] - Field: ‘lazy’ 1578s [00:52:58.562] - Field: ‘state’ 1578s [00:52:58.563] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1578s [00:52:58.563] - Launch lazy future ... 1578s [00:52:58.563] Packages needed by the future expression (n = 0): 1578s [00:52:58.563] Packages needed by future strategies (n = 0): 1578s [00:52:58.564] { 1578s [00:52:58.564] { 1578s [00:52:58.564] { 1578s [00:52:58.564] ...future.startTime <- base::Sys.time() 1578s [00:52:58.564] { 1578s [00:52:58.564] { 1578s [00:52:58.564] { 1578s [00:52:58.564] base::local({ 1578s [00:52:58.564] has_future <- base::requireNamespace("future", 1578s [00:52:58.564] quietly = TRUE) 1578s [00:52:58.564] if (has_future) { 1578s [00:52:58.564] ns <- base::getNamespace("future") 1578s [00:52:58.564] version <- ns[[".package"]][["version"]] 1578s [00:52:58.564] if (is.null(version)) 1578s [00:52:58.564] version <- utils::packageVersion("future") 1578s [00:52:58.564] } 1578s [00:52:58.564] else { 1578s [00:52:58.564] version <- NULL 1578s [00:52:58.564] } 1578s [00:52:58.564] if (!has_future || version < "1.8.0") { 1578s [00:52:58.564] info <- base::c(r_version = base::gsub("R version ", 1578s [00:52:58.564] "", base::R.version$version.string), 1578s [00:52:58.564] platform = base::sprintf("%s (%s-bit)", 1578s [00:52:58.564] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1578s [00:52:58.564] os = base::paste(base::Sys.info()[base::c("sysname", 1578s [00:52:58.564] "release", "version")], collapse = " "), 1578s [00:52:58.564] hostname = base::Sys.info()[["nodename"]]) 1578s [00:52:58.564] info <- base::sprintf("%s: %s", base::names(info), 1578s [00:52:58.564] info) 1578s [00:52:58.564] info <- base::paste(info, collapse = "; ") 1578s [00:52:58.564] if (!has_future) { 1578s [00:52:58.564] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1578s [00:52:58.564] info) 1578s [00:52:58.564] } 1578s [00:52:58.564] else { 1578s [00:52:58.564] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1578s [00:52:58.564] info, version) 1578s [00:52:58.564] } 1578s [00:52:58.564] base::stop(msg) 1578s [00:52:58.564] } 1578s [00:52:58.564] }) 1578s [00:52:58.564] } 1578s [00:52:58.564] options(future.plan = NULL) 1578s [00:52:58.564] Sys.unsetenv("R_FUTURE_PLAN") 1578s [00:52:58.564] future::plan("default", .cleanup = FALSE, .init = FALSE) 1578s [00:52:58.564] } 1578s [00:52:58.564] ...future.workdir <- getwd() 1578s [00:52:58.564] } 1578s [00:52:58.564] ...future.oldOptions <- base::as.list(base::.Options) 1578s [00:52:58.564] ...future.oldEnvVars <- base::Sys.getenv() 1578s [00:52:58.564] } 1578s [00:52:58.564] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1578s [00:52:58.564] future.globals.maxSize = NULL, future.globals.method = NULL, 1578s [00:52:58.564] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1578s [00:52:58.564] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1578s [00:52:58.564] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1578s [00:52:58.564] future.stdout.windows.reencode = NULL, width = 80L) 1578s [00:52:58.564] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1578s [00:52:58.564] base::names(...future.oldOptions)) 1578s [00:52:58.564] } 1578s [00:52:58.564] if (FALSE) { 1578s [00:52:58.564] } 1578s [00:52:58.564] else { 1578s [00:52:58.564] if (TRUE) { 1578s [00:52:58.564] ...future.stdout <- base::rawConnection(base::raw(0L), 1578s [00:52:58.564] open = "w") 1578s [00:52:58.564] } 1578s [00:52:58.564] else { 1578s [00:52:58.564] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1578s [00:52:58.564] windows = "NUL", "/dev/null"), open = "w") 1578s [00:52:58.564] } 1578s [00:52:58.564] base::sink(...future.stdout, type = "output", split = FALSE) 1578s [00:52:58.564] base::on.exit(if (!base::is.null(...future.stdout)) { 1578s [00:52:58.564] base::sink(type = "output", split = FALSE) 1578s [00:52:58.564] base::close(...future.stdout) 1578s [00:52:58.564] }, add = TRUE) 1578s [00:52:58.564] } 1578s [00:52:58.564] ...future.frame <- base::sys.nframe() 1578s [00:52:58.564] ...future.conditions <- base::list() 1578s [00:52:58.564] ...future.rng <- base::globalenv()$.Random.seed 1578s [00:52:58.564] if (FALSE) { 1578s [00:52:58.564] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1578s [00:52:58.564] "...future.value", "...future.globalenv.names", ".Random.seed") 1578s [00:52:58.564] } 1578s [00:52:58.564] ...future.result <- base::tryCatch({ 1578s [00:52:58.564] base::withCallingHandlers({ 1578s [00:52:58.564] ...future.value <- base::withVisible(base::local({ 1578s [00:52:58.564] do.call(function(...) { 1578s [00:52:58.564] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1578s [00:52:58.564] if (!identical(...future.globals.maxSize.org, 1578s [00:52:58.564] ...future.globals.maxSize)) { 1578s [00:52:58.564] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1578s [00:52:58.564] on.exit(options(oopts), add = TRUE) 1578s [00:52:58.564] } 1578s [00:52:58.564] { 1578s [00:52:58.564] lapply(seq_along(...future.elements_ii), 1578s [00:52:58.564] FUN = function(jj) { 1578s [00:52:58.564] ...future.X_jj <- ...future.elements_ii[[jj]] 1578s [00:52:58.564] ...future.FUN(...future.X_jj, ...) 1578s [00:52:58.564] }) 1578s [00:52:58.564] } 1578s [00:52:58.564] }, args = future.call.arguments) 1578s [00:52:58.564] })) 1578s [00:52:58.564] future::FutureResult(value = ...future.value$value, 1578s [00:52:58.564] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1578s [00:52:58.564] ...future.rng), globalenv = if (FALSE) 1578s [00:52:58.564] list(added = base::setdiff(base::names(base::.GlobalEnv), 1578s [00:52:58.564] ...future.globalenv.names)) 1578s [00:52:58.564] else NULL, started = ...future.startTime, version = "1.8") 1578s [00:52:58.564] }, condition = base::local({ 1578s [00:52:58.564] c <- base::c 1578s [00:52:58.564] inherits <- base::inherits 1578s [00:52:58.564] invokeRestart <- base::invokeRestart 1578s [00:52:58.564] length <- base::length 1578s [00:52:58.564] list <- base::list 1578s [00:52:58.564] seq.int <- base::seq.int 1578s [00:52:58.564] signalCondition <- base::signalCondition 1578s [00:52:58.564] sys.calls <- base::sys.calls 1578s [00:52:58.564] `[[` <- base::`[[` 1578s [00:52:58.564] `+` <- base::`+` 1578s [00:52:58.564] `<<-` <- base::`<<-` 1578s [00:52:58.564] sysCalls <- function(calls = sys.calls(), from = 1L) { 1578s [00:52:58.564] calls[seq.int(from = from + 12L, to = length(calls) - 1578s [00:52:58.564] 3L)] 1578s [00:52:58.564] } 1578s [00:52:58.564] function(cond) { 1578s [00:52:58.564] is_error <- inherits(cond, "error") 1578s [00:52:58.564] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1578s [00:52:58.564] NULL) 1578s [00:52:58.564] if (is_error) { 1578s [00:52:58.564] sessionInformation <- function() { 1578s [00:52:58.564] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1578s [00:52:58.564] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1578s [00:52:58.564] search = base::search(), system = base::Sys.info()) 1578s [00:52:58.564] } 1578s [00:52:58.564] ...future.conditions[[length(...future.conditions) + 1578s [00:52:58.564] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1578s [00:52:58.564] cond$call), session = sessionInformation(), 1578s [00:52:58.564] timestamp = base::Sys.time(), signaled = 0L) 1578s [00:52:58.564] signalCondition(cond) 1578s [00:52:58.564] } 1578s [00:52:58.564] else if (!ignore && TRUE && inherits(cond, c("condition", 1578s [00:52:58.564] "immediateCondition"))) { 1578s [00:52:58.564] signal <- TRUE && inherits(cond, "immediateCondition") 1578s [00:52:58.564] ...future.conditions[[length(...future.conditions) + 1578s [00:52:58.564] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1578s [00:52:58.564] if (TRUE && !signal) { 1578s [00:52:58.564] muffleCondition <- function (cond, pattern = "^muffle") 1578s [00:52:58.564] { 1578s [00:52:58.564] inherits <- base::inherits 1578s [00:52:58.564] invokeRestart <- base::invokeRestart 1578s [00:52:58.564] is.null <- base::is.null 1578s [00:52:58.564] muffled <- FALSE 1578s [00:52:58.564] if (inherits(cond, "message")) { 1578s [00:52:58.564] muffled <- grepl(pattern, "muffleMessage") 1578s [00:52:58.564] if (muffled) 1578s [00:52:58.564] invokeRestart("muffleMessage") 1578s [00:52:58.564] } 1578s [00:52:58.564] else if (inherits(cond, "warning")) { 1578s [00:52:58.564] muffled <- grepl(pattern, "muffleWarning") 1578s [00:52:58.564] if (muffled) 1578s [00:52:58.564] invokeRestart("muffleWarning") 1578s [00:52:58.564] } 1578s [00:52:58.564] else if (inherits(cond, "condition")) { 1578s [00:52:58.564] if (!is.null(pattern)) { 1578s [00:52:58.564] computeRestarts <- base::computeRestarts 1578s [00:52:58.564] grepl <- base::grepl 1578s [00:52:58.564] restarts <- computeRestarts(cond) 1578s [00:52:58.564] for (restart in restarts) { 1578s [00:52:58.564] name <- restart$name 1578s [00:52:58.564] if (is.null(name)) 1578s [00:52:58.564] next 1578s [00:52:58.564] if (!grepl(pattern, name)) 1578s [00:52:58.564] next 1578s [00:52:58.564] invokeRestart(restart) 1578s [00:52:58.564] muffled <- TRUE 1578s [00:52:58.564] break 1578s [00:52:58.564] } 1578s [00:52:58.564] } 1578s [00:52:58.564] } 1578s [00:52:58.564] invisible(muffled) 1578s [00:52:58.564] } 1578s [00:52:58.564] muffleCondition(cond, pattern = "^muffle") 1578s [00:52:58.564] } 1578s [00:52:58.564] } 1578s [00:52:58.564] else { 1578s [00:52:58.564] if (TRUE) { 1578s [00:52:58.564] muffleCondition <- function (cond, pattern = "^muffle") 1578s [00:52:58.564] { 1578s [00:52:58.564] inherits <- base::inherits 1578s [00:52:58.564] invokeRestart <- base::invokeRestart 1578s [00:52:58.564] is.null <- base::is.null 1578s [00:52:58.564] muffled <- FALSE 1578s [00:52:58.564] if (inherits(cond, "message")) { 1578s [00:52:58.564] muffled <- grepl(pattern, "muffleMessage") 1578s [00:52:58.564] if (muffled) 1578s [00:52:58.564] invokeRestart("muffleMessage") 1578s [00:52:58.564] } 1578s [00:52:58.564] else if (inherits(cond, "warning")) { 1578s [00:52:58.564] muffled <- grepl(pattern, "muffleWarning") 1578s [00:52:58.564] if (muffled) 1578s [00:52:58.564] invokeRestart("muffleWarning") 1578s [00:52:58.564] } 1578s [00:52:58.564] else if (inherits(cond, "condition")) { 1578s [00:52:58.564] if (!is.null(pattern)) { 1578s [00:52:58.564] computeRestarts <- base::computeRestarts 1578s [00:52:58.564] grepl <- base::grepl 1578s [00:52:58.564] restarts <- computeRestarts(cond) 1578s [00:52:58.564] for (restart in restarts) { 1578s [00:52:58.564] name <- restart$name 1578s [00:52:58.564] if (is.null(name)) 1578s [00:52:58.564] next 1578s [00:52:58.564] if (!grepl(pattern, name)) 1578s [00:52:58.564] next 1578s [00:52:58.564] invokeRestart(restart) 1578s [00:52:58.564] muffled <- TRUE 1578s [00:52:58.564] break 1578s [00:52:58.564] } 1578s [00:52:58.564] } 1578s [00:52:58.564] } 1578s [00:52:58.564] invisible(muffled) 1578s [00:52:58.564] } 1578s [00:52:58.564] muffleCondition(cond, pattern = "^muffle") 1578s [00:52:58.564] } 1578s [00:52:58.564] } 1578s [00:52:58.564] } 1578s [00:52:58.564] })) 1578s [00:52:58.564] }, error = function(ex) { 1578s [00:52:58.564] base::structure(base::list(value = NULL, visible = NULL, 1578s [00:52:58.564] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1578s [00:52:58.564] ...future.rng), started = ...future.startTime, 1578s [00:52:58.564] finished = Sys.time(), session_uuid = NA_character_, 1578s [00:52:58.564] version = "1.8"), class = "FutureResult") 1578s [00:52:58.564] }, finally = { 1578s [00:52:58.564] if (!identical(...future.workdir, getwd())) 1578s [00:52:58.564] setwd(...future.workdir) 1578s [00:52:58.564] { 1578s [00:52:58.564] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1578s [00:52:58.564] ...future.oldOptions$nwarnings <- NULL 1578s [00:52:58.564] } 1578s [00:52:58.564] base::options(...future.oldOptions) 1578s [00:52:58.564] if (.Platform$OS.type == "windows") { 1578s [00:52:58.564] old_names <- names(...future.oldEnvVars) 1578s [00:52:58.564] envs <- base::Sys.getenv() 1578s [00:52:58.564] names <- names(envs) 1578s [00:52:58.564] common <- intersect(names, old_names) 1578s [00:52:58.564] added <- setdiff(names, old_names) 1578s [00:52:58.564] removed <- setdiff(old_names, names) 1578s [00:52:58.564] changed <- common[...future.oldEnvVars[common] != 1578s [00:52:58.564] envs[common]] 1578s [00:52:58.564] NAMES <- toupper(changed) 1578s [00:52:58.564] args <- list() 1578s [00:52:58.564] for (kk in seq_along(NAMES)) { 1578s [00:52:58.564] name <- changed[[kk]] 1578s [00:52:58.564] NAME <- NAMES[[kk]] 1578s [00:52:58.564] if (name != NAME && is.element(NAME, old_names)) 1578s [00:52:58.564] next 1578s [00:52:58.564] args[[name]] <- ...future.oldEnvVars[[name]] 1578s [00:52:58.564] } 1578s [00:52:58.564] NAMES <- toupper(added) 1578s [00:52:58.564] for (kk in seq_along(NAMES)) { 1578s [00:52:58.564] name <- added[[kk]] 1578s [00:52:58.564] NAME <- NAMES[[kk]] 1578s [00:52:58.564] if (name != NAME && is.element(NAME, old_names)) 1578s [00:52:58.564] next 1578s [00:52:58.564] args[[name]] <- "" 1578s [00:52:58.564] } 1578s [00:52:58.564] NAMES <- toupper(removed) 1578s [00:52:58.564] for (kk in seq_along(NAMES)) { 1578s [00:52:58.564] name <- removed[[kk]] 1578s [00:52:58.564] NAME <- NAMES[[kk]] 1578s [00:52:58.564] if (name != NAME && is.element(NAME, old_names)) 1578s [00:52:58.564] next 1578s [00:52:58.564] args[[name]] <- ...future.oldEnvVars[[name]] 1578s [00:52:58.564] } 1578s [00:52:58.564] if (length(args) > 0) 1578s [00:52:58.564] base::do.call(base::Sys.setenv, args = args) 1578s [00:52:58.564] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1578s [00:52:58.564] } 1578s [00:52:58.564] else { 1578s [00:52:58.564] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1578s [00:52:58.564] } 1578s [00:52:58.564] { 1578s [00:52:58.564] if (base::length(...future.futureOptionsAdded) > 1578s [00:52:58.564] 0L) { 1578s [00:52:58.564] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1578s [00:52:58.564] base::names(opts) <- ...future.futureOptionsAdded 1578s [00:52:58.564] base::options(opts) 1578s [00:52:58.564] } 1578s [00:52:58.564] { 1578s [00:52:58.564] { 1578s [00:52:58.564] NULL 1578s [00:52:58.564] RNGkind("Mersenne-Twister") 1578s [00:52:58.564] base::rm(list = ".Random.seed", envir = base::globalenv(), 1578s [00:52:58.564] inherits = FALSE) 1578s [00:52:58.564] } 1578s [00:52:58.564] options(future.plan = NULL) 1578s [00:52:58.564] if (is.na(NA_character_)) 1578s [00:52:58.564] Sys.unsetenv("R_FUTURE_PLAN") 1578s [00:52:58.564] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1578s [00:52:58.564] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1578s [00:52:58.564] envir = parent.frame()) 1578s [00:52:58.564] { 1578s [00:52:58.564] default_workers <- missing(workers) 1578s [00:52:58.564] if (is.function(workers)) 1578s [00:52:58.564] workers <- workers() 1578s [00:52:58.564] workers <- structure(as.integer(workers), 1578s [00:52:58.564] class = class(workers)) 1578s [00:52:58.564] stop_if_not(is.finite(workers), workers >= 1578s [00:52:58.564] 1L) 1578s [00:52:58.564] if ((workers == 1L && !inherits(workers, 1578s [00:52:58.564] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1578s [00:52:58.564] if (default_workers) 1578s [00:52:58.564] supportsMulticore(warn = TRUE) 1578s [00:52:58.564] return(sequential(..., envir = envir)) 1578s [00:52:58.564] } 1578s [00:52:58.564] oopts <- options(mc.cores = workers) 1578s [00:52:58.564] on.exit(options(oopts)) 1578s [00:52:58.564] future <- MulticoreFuture(..., workers = workers, 1578s [00:52:58.564] envir = envir) 1578s [00:52:58.564] if (!future$lazy) 1578s [00:52:58.564] future <- run(future) 1578s [00:52:58.564] invisible(future) 1578s [00:52:58.564] }), .cleanup = FALSE, .init = FALSE) 1578s [00:52:58.564] } 1578s [00:52:58.564] } 1578s [00:52:58.564] } 1578s [00:52:58.564] }) 1578s [00:52:58.564] if (TRUE) { 1578s [00:52:58.564] base::sink(type = "output", split = FALSE) 1578s [00:52:58.564] if (TRUE) { 1578s [00:52:58.564] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1578s [00:52:58.564] } 1578s [00:52:58.564] else { 1578s [00:52:58.564] ...future.result["stdout"] <- base::list(NULL) 1578s [00:52:58.564] } 1578s [00:52:58.564] base::close(...future.stdout) 1578s [00:52:58.564] ...future.stdout <- NULL 1578s [00:52:58.564] } 1578s [00:52:58.564] ...future.result$conditions <- ...future.conditions 1578s [00:52:58.564] ...future.result$finished <- base::Sys.time() 1578s [00:52:58.564] ...future.result 1578s [00:52:58.564] } 1578s [00:52:58.569] assign_globals() ... 1578s [00:52:58.569] List of 5 1578s [00:52:58.569] $ ...future.FUN :function (x) 1578s [00:52:58.569] $ future.call.arguments : list() 1578s [00:52:58.569] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1578s [00:52:58.569] $ ...future.elements_ii :List of 4 1578s [00:52:58.569] ..$ A: num 50 1578s [00:52:58.569] ..$ B: num 60 1578s [00:52:58.569] ..$ C: num 70 1578s [00:52:58.569] ..$ D: num 80 1578s [00:52:58.569] $ ...future.seeds_ii : NULL 1578s [00:52:58.569] $ ...future.globals.maxSize: NULL 1578s [00:52:58.569] - attr(*, "where")=List of 5 1578s [00:52:58.569] ..$ ...future.FUN : 1578s [00:52:58.569] ..$ future.call.arguments : 1578s [00:52:58.569] ..$ ...future.elements_ii : 1578s [00:52:58.569] ..$ ...future.seeds_ii : 1578s [00:52:58.569] ..$ ...future.globals.maxSize: 1578s [00:52:58.569] - attr(*, "resolved")= logi FALSE 1578s [00:52:58.569] - attr(*, "total_size")= num 848 1578s [00:52:58.569] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1578s [00:52:58.569] - attr(*, "already-done")= logi TRUE 1578s [00:52:58.576] - copied ‘...future.FUN’ to environment 1578s [00:52:58.577] - copied ‘future.call.arguments’ to environment 1578s [00:52:58.577] - copied ‘...future.elements_ii’ to environment 1578s [00:52:58.577] - copied ‘...future.seeds_ii’ to environment 1578s [00:52:58.577] - copied ‘...future.globals.maxSize’ to environment 1578s [00:52:58.577] assign_globals() ... done 1578s [00:52:58.578] plan(): Setting new future strategy stack: 1578s [00:52:58.578] List of future strategies: 1578s [00:52:58.578] 1. sequential: 1578s [00:52:58.578] - args: function (..., envir = parent.frame()) 1578s [00:52:58.578] - tweaked: FALSE 1578s [00:52:58.578] - call: NULL 1578s [00:52:58.579] plan(): nbrOfWorkers() = 1 1578s [00:52:58.579] plan(): Setting new future strategy stack: 1578s [00:52:58.580] List of future strategies: 1578s [00:52:58.580] 1. multicore: 1578s [00:52:58.580] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1578s [00:52:58.580] - tweaked: FALSE 1578s [00:52:58.580] - call: plan(strategy) 1578s [00:52:58.584] plan(): nbrOfWorkers() = 1 1578s [00:52:58.585] SequentialFuture started (and completed) 1578s [00:52:58.585] - Launch lazy future ... done 1578s [00:52:58.585] run() for ‘SequentialFuture’ ... done 1578s [00:52:58.586] Created future: 1578s [00:52:58.586] SequentialFuture: 1578s [00:52:58.586] Label: ‘future_sapply-1’ 1578s [00:52:58.586] Expression: 1578s [00:52:58.586] { 1578s [00:52:58.586] do.call(function(...) { 1578s [00:52:58.586] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1578s [00:52:58.586] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1578s [00:52:58.586] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1578s [00:52:58.586] on.exit(options(oopts), add = TRUE) 1578s [00:52:58.586] } 1578s [00:52:58.586] { 1578s [00:52:58.586] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1578s [00:52:58.586] ...future.X_jj <- ...future.elements_ii[[jj]] 1578s [00:52:58.586] ...future.FUN(...future.X_jj, ...) 1578s [00:52:58.586] }) 1578s [00:52:58.586] } 1578s [00:52:58.586] }, args = future.call.arguments) 1578s [00:52:58.586] } 1578s [00:52:58.586] Lazy evaluation: FALSE 1578s [00:52:58.586] Asynchronous evaluation: FALSE 1578s [00:52:58.586] Local evaluation: TRUE 1578s [00:52:58.586] Environment: R_GlobalEnv 1578s [00:52:58.586] Capture standard output: TRUE 1578s [00:52:58.586] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1578s [00:52:58.586] Globals: 5 objects totaling 1.05 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1578s [00:52:58.586] Packages: 1578s [00:52:58.586] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1578s [00:52:58.586] Resolved: TRUE 1578s [00:52:58.586] Value: 224 bytes of class ‘list’ 1578s [00:52:58.586] Early signaling: FALSE 1578s [00:52:58.586] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1578s [00:52:58.586] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1578s [00:52:58.587] Chunk #1 of 1 ... DONE 1578s [00:52:58.587] Launching 1 futures (chunks) ... DONE 1578s [00:52:58.588] Resolving 1 futures (chunks) ... 1578s [00:52:58.588] resolve() on list ... 1578s [00:52:58.588] recursive: 0 1578s [00:52:58.588] length: 1 1578s [00:52:58.588] 1578s [00:52:58.588] resolved() for ‘SequentialFuture’ ... 1578s [00:52:58.589] - state: ‘finished’ 1578s [00:52:58.589] - run: TRUE 1578s [00:52:58.589] - result: ‘FutureResult’ 1578s [00:52:58.589] resolved() for ‘SequentialFuture’ ... done 1578s [00:52:58.589] Future #1 1578s [00:52:58.589] signalConditionsASAP(SequentialFuture, pos=1) ... 1578s [00:52:58.589] - nx: 1 1578s [00:52:58.589] - relay: TRUE 1578s [00:52:58.590] - stdout: TRUE 1578s [00:52:58.590] - signal: TRUE 1578s [00:52:58.590] - resignal: FALSE 1578s [00:52:58.590] - force: TRUE 1578s [00:52:58.590] - relayed: [n=1] FALSE 1578s [00:52:58.590] - queued futures: [n=1] FALSE 1578s [00:52:58.590] - until=1 1578s [00:52:58.591] - relaying element #1 1578s [00:52:58.591] - relayed: [n=1] TRUE 1578s [00:52:58.591] - queued futures: [n=1] TRUE 1578s [00:52:58.591] signalConditionsASAP(SequentialFuture, pos=1) ... done 1578s [00:52:58.591] length: 0 (resolved future 1) 1578s [00:52:58.591] Relaying remaining futures 1578s [00:52:58.592] signalConditionsASAP(NULL, pos=0) ... 1578s [00:52:58.592] - nx: 1 1578s [00:52:58.592] - relay: TRUE 1578s [00:52:58.592] - stdout: TRUE 1578s [00:52:58.592] - signal: TRUE 1578s [00:52:58.592] - resignal: FALSE 1578s [00:52:58.592] - force: TRUE 1578s [00:52:58.593] - relayed: [n=1] TRUE 1578s [00:52:58.593] - queued futures: [n=1] TRUE 1578s - flush all 1578s [00:52:58.593] - relayed: [n=1] TRUE 1578s [00:52:58.593] - queued futures: [n=1] TRUE 1578s [00:52:58.593] signalConditionsASAP(NULL, pos=0) ... done 1578s [00:52:58.594] resolve() on list ... DONE 1578s [00:52:58.594] - Number of value chunks collected: 1 1578s [00:52:58.594] Resolving 1 futures (chunks) ... DONE 1578s [00:52:58.598] Reducing values from 1 chunks ... 1578s [00:52:58.598] - Number of values collected after concatenation: 4 1578s [00:52:58.598] - Number of values expected: 4 1578s [00:52:58.599] Reducing values from 1 chunks ... DONE 1578s [00:52:58.599] future_lapply() ... DONE 1578s List of 2 1578s $ y0: Named num [1:4] 50 60 70 80 1578s ..- attr(*, "names")= chr [1:4] "A" "B" "C" "D" 1578s $ y1: Named num [1:4] 50 60 70 80 1578s ..- attr(*, "names")= chr [1:4] "A" "B" "C" "D" 1578s [00:52:58.603] future_lapply() ... 1578s [00:52:58.608] Number of chunks: 1 1578s [00:52:58.608] getGlobalsAndPackagesXApply() ... 1578s [00:52:58.609] - future.globals: TRUE 1578s [00:52:58.609] getGlobalsAndPackages() ... 1578s [00:52:58.609] Searching for globals... 1578s [00:52:58.611] - globals found: [2] ‘FUN’, ‘UseMethod’ 1578s [00:52:58.611] Searching for globals ... DONE 1578s [00:52:58.611] Resolving globals: FALSE 1578s [00:52:58.611] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1578s [00:52:58.612] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1578s [00:52:58.612] - globals: [1] ‘FUN’ 1578s [00:52:58.612] 1578s [00:52:58.612] getGlobalsAndPackages() ... DONE 1578s [00:52:58.613] - globals found/used: [n=1] ‘FUN’ 1578s [00:52:58.613] - needed namespaces: [n=0] 1578s [00:52:58.613] Finding globals ... DONE 1578s [00:52:58.613] - use_args: TRUE 1578s [00:52:58.613] - Getting '...' globals ... 1578s [00:52:58.614] resolve() on list ... 1578s [00:52:58.614] recursive: 0 1578s [00:52:58.614] length: 1 1578s [00:52:58.614] elements: ‘...’ 1578s [00:52:58.615] length: 0 (resolved future 1) 1578s [00:52:58.615] resolve() on list ... DONE 1578s [00:52:58.615] - '...' content: [n=0] 1578s [00:52:58.615] List of 1 1578s [00:52:58.615] $ ...: list() 1578s [00:52:58.615] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1578s [00:52:58.615] - attr(*, "where")=List of 1 1578s [00:52:58.615] ..$ ...: 1578s [00:52:58.615] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1578s [00:52:58.615] - attr(*, "resolved")= logi TRUE 1578s [00:52:58.615] - attr(*, "total_size")= num NA 1578s [00:52:58.618] - Getting '...' globals ... DONE 1578s [00:52:58.618] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1578s [00:52:58.619] List of 2 1578s [00:52:58.619] $ ...future.FUN:function (x, ...) 1578s [00:52:58.619] $ ... : list() 1578s [00:52:58.619] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1578s [00:52:58.619] - attr(*, "where")=List of 2 1578s [00:52:58.619] ..$ ...future.FUN: 1578s [00:52:58.619] ..$ ... : 1578s [00:52:58.619] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1578s [00:52:58.619] - attr(*, "resolved")= logi FALSE 1578s [00:52:58.619] - attr(*, "total_size")= num 1248 1578s [00:52:58.623] Packages to be attached in all futures: [n=0] 1578s [00:52:58.623] getGlobalsAndPackagesXApply() ... DONE 1578s [00:52:58.623] Number of futures (= number of chunks): 1 1578s [00:52:58.624] Launching 1 futures (chunks) ... 1578s [00:52:58.624] Chunk #1 of 1 ... 1578s [00:52:58.624] - Finding globals in 'X' for chunk #1 ... 1578s [00:52:58.624] getGlobalsAndPackages() ... 1578s [00:52:58.624] Searching for globals... 1578s [00:52:58.625] 1578s [00:52:58.625] Searching for globals ... DONE 1578s [00:52:58.625] - globals: [0] 1578s [00:52:58.625] getGlobalsAndPackages() ... DONE 1578s [00:52:58.625] + additional globals found: [n=0] 1578s [00:52:58.625] + additional namespaces needed: [n=0] 1578s [00:52:58.625] - Finding globals in 'X' for chunk #1 ... DONE 1578s [00:52:58.626] - seeds: 1578s [00:52:58.626] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1578s [00:52:58.626] getGlobalsAndPackages() ... 1578s [00:52:58.626] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1578s [00:52:58.626] Resolving globals: FALSE 1578s [00:52:58.627] Tweak future expression to call with '...' arguments ... 1578s [00:52:58.627] { 1578s [00:52:58.627] do.call(function(...) { 1578s [00:52:58.627] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1578s [00:52:58.627] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1578s [00:52:58.627] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1578s [00:52:58.627] on.exit(options(oopts), add = TRUE) 1578s [00:52:58.627] } 1578s [00:52:58.627] { 1578s [00:52:58.627] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1578s [00:52:58.627] ...future.X_jj <- ...future.elements_ii[[jj]] 1578s [00:52:58.627] ...future.FUN(...future.X_jj, ...) 1578s [00:52:58.627] }) 1578s [00:52:58.627] } 1578s [00:52:58.627] }, args = future.call.arguments) 1578s [00:52:58.627] } 1578s [00:52:58.627] Tweak future expression to call with '...' arguments ... DONE 1578s [00:52:58.628] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1578s [00:52:58.628] 1578s [00:52:58.628] getGlobalsAndPackages() ... DONE 1578s [00:52:58.629] run() for ‘Future’ ... 1578s [00:52:58.629] - state: ‘created’ 1578s [00:52:58.629] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1578s [00:52:58.634] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1578s [00:52:58.635] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1578s [00:52:58.635] - Field: ‘label’ 1578s [00:52:58.636] - Field: ‘local’ 1578s [00:52:58.636] - Field: ‘owner’ 1578s [00:52:58.636] - Field: ‘envir’ 1578s [00:52:58.636] - Field: ‘packages’ 1578s [00:52:58.637] - Field: ‘gc’ 1578s [00:52:58.637] - Field: ‘conditions’ 1578s [00:52:58.637] - Field: ‘expr’ 1578s [00:52:58.638] - Field: ‘uuid’ 1578s [00:52:58.638] - Field: ‘seed’ 1578s [00:52:58.638] - Field: ‘version’ 1578s [00:52:58.638] - Field: ‘result’ 1578s [00:52:58.639] - Field: ‘asynchronous’ 1578s [00:52:58.639] - Field: ‘calls’ 1578s [00:52:58.639] - Field: ‘globals’ 1578s [00:52:58.639] - Field: ‘stdout’ 1578s [00:52:58.639] - Field: ‘earlySignal’ 1578s [00:52:58.639] - Field: ‘lazy’ 1578s [00:52:58.640] - Field: ‘state’ 1578s [00:52:58.640] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1578s [00:52:58.640] - Launch lazy future ... 1578s [00:52:58.641] Packages needed by the future expression (n = 0): 1578s [00:52:58.641] Packages needed by future strategies (n = 0): 1578s [00:52:58.642] { 1578s [00:52:58.642] { 1578s [00:52:58.642] { 1578s [00:52:58.642] ...future.startTime <- base::Sys.time() 1578s [00:52:58.642] { 1578s [00:52:58.642] { 1578s [00:52:58.642] { 1578s [00:52:58.642] base::local({ 1578s [00:52:58.642] has_future <- base::requireNamespace("future", 1578s [00:52:58.642] quietly = TRUE) 1578s [00:52:58.642] if (has_future) { 1578s [00:52:58.642] ns <- base::getNamespace("future") 1578s [00:52:58.642] version <- ns[[".package"]][["version"]] 1578s [00:52:58.642] if (is.null(version)) 1578s [00:52:58.642] version <- utils::packageVersion("future") 1578s [00:52:58.642] } 1578s [00:52:58.642] else { 1578s [00:52:58.642] version <- NULL 1578s [00:52:58.642] } 1578s [00:52:58.642] if (!has_future || version < "1.8.0") { 1578s [00:52:58.642] info <- base::c(r_version = base::gsub("R version ", 1578s [00:52:58.642] "", base::R.version$version.string), 1578s [00:52:58.642] platform = base::sprintf("%s (%s-bit)", 1578s [00:52:58.642] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1578s [00:52:58.642] os = base::paste(base::Sys.info()[base::c("sysname", 1578s [00:52:58.642] "release", "version")], collapse = " "), 1578s [00:52:58.642] hostname = base::Sys.info()[["nodename"]]) 1578s [00:52:58.642] info <- base::sprintf("%s: %s", base::names(info), 1578s [00:52:58.642] info) 1578s [00:52:58.642] info <- base::paste(info, collapse = "; ") 1578s [00:52:58.642] if (!has_future) { 1578s [00:52:58.642] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1578s [00:52:58.642] info) 1578s [00:52:58.642] } 1578s [00:52:58.642] else { 1578s [00:52:58.642] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1578s [00:52:58.642] info, version) 1578s [00:52:58.642] } 1578s [00:52:58.642] base::stop(msg) 1578s [00:52:58.642] } 1578s [00:52:58.642] }) 1578s [00:52:58.642] } 1578s [00:52:58.642] options(future.plan = NULL) 1578s [00:52:58.642] Sys.unsetenv("R_FUTURE_PLAN") 1578s [00:52:58.642] future::plan("default", .cleanup = FALSE, .init = FALSE) 1578s [00:52:58.642] } 1578s [00:52:58.642] ...future.workdir <- getwd() 1578s [00:52:58.642] } 1578s [00:52:58.642] ...future.oldOptions <- base::as.list(base::.Options) 1578s [00:52:58.642] ...future.oldEnvVars <- base::Sys.getenv() 1578s [00:52:58.642] } 1578s [00:52:58.642] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1578s [00:52:58.642] future.globals.maxSize = NULL, future.globals.method = NULL, 1578s [00:52:58.642] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1578s [00:52:58.642] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1578s [00:52:58.642] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1578s [00:52:58.642] future.stdout.windows.reencode = NULL, width = 80L) 1578s [00:52:58.642] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1578s [00:52:58.642] base::names(...future.oldOptions)) 1578s [00:52:58.642] } 1578s [00:52:58.642] if (FALSE) { 1578s [00:52:58.642] } 1578s [00:52:58.642] else { 1578s [00:52:58.642] if (TRUE) { 1578s [00:52:58.642] ...future.stdout <- base::rawConnection(base::raw(0L), 1578s [00:52:58.642] open = "w") 1578s [00:52:58.642] } 1578s [00:52:58.642] else { 1578s [00:52:58.642] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1578s [00:52:58.642] windows = "NUL", "/dev/null"), open = "w") 1578s [00:52:58.642] } 1578s [00:52:58.642] base::sink(...future.stdout, type = "output", split = FALSE) 1578s [00:52:58.642] base::on.exit(if (!base::is.null(...future.stdout)) { 1578s [00:52:58.642] base::sink(type = "output", split = FALSE) 1578s [00:52:58.642] base::close(...future.stdout) 1578s [00:52:58.642] }, add = TRUE) 1578s [00:52:58.642] } 1578s [00:52:58.642] ...future.frame <- base::sys.nframe() 1578s [00:52:58.642] ...future.conditions <- base::list() 1578s [00:52:58.642] ...future.rng <- base::globalenv()$.Random.seed 1578s [00:52:58.642] if (FALSE) { 1578s [00:52:58.642] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1578s [00:52:58.642] "...future.value", "...future.globalenv.names", ".Random.seed") 1578s [00:52:58.642] } 1578s [00:52:58.642] ...future.result <- base::tryCatch({ 1578s [00:52:58.642] base::withCallingHandlers({ 1578s [00:52:58.642] ...future.value <- base::withVisible(base::local({ 1578s [00:52:58.642] do.call(function(...) { 1578s [00:52:58.642] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1578s [00:52:58.642] if (!identical(...future.globals.maxSize.org, 1578s [00:52:58.642] ...future.globals.maxSize)) { 1578s [00:52:58.642] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1578s [00:52:58.642] on.exit(options(oopts), add = TRUE) 1578s [00:52:58.642] } 1578s [00:52:58.642] { 1578s [00:52:58.642] lapply(seq_along(...future.elements_ii), 1578s [00:52:58.642] FUN = function(jj) { 1578s [00:52:58.642] ...future.X_jj <- ...future.elements_ii[[jj]] 1578s [00:52:58.642] ...future.FUN(...future.X_jj, ...) 1578s [00:52:58.642] }) 1578s [00:52:58.642] } 1578s [00:52:58.642] }, args = future.call.arguments) 1578s [00:52:58.642] })) 1578s [00:52:58.642] future::FutureResult(value = ...future.value$value, 1578s [00:52:58.642] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1578s [00:52:58.642] ...future.rng), globalenv = if (FALSE) 1578s [00:52:58.642] list(added = base::setdiff(base::names(base::.GlobalEnv), 1578s [00:52:58.642] ...future.globalenv.names)) 1578s [00:52:58.642] else NULL, started = ...future.startTime, version = "1.8") 1578s [00:52:58.642] }, condition = base::local({ 1578s [00:52:58.642] c <- base::c 1578s [00:52:58.642] inherits <- base::inherits 1578s [00:52:58.642] invokeRestart <- base::invokeRestart 1578s [00:52:58.642] length <- base::length 1578s [00:52:58.642] list <- base::list 1578s [00:52:58.642] seq.int <- base::seq.int 1578s [00:52:58.642] signalCondition <- base::signalCondition 1578s [00:52:58.642] sys.calls <- base::sys.calls 1578s [00:52:58.642] `[[` <- base::`[[` 1578s [00:52:58.642] `+` <- base::`+` 1578s [00:52:58.642] `<<-` <- base::`<<-` 1578s [00:52:58.642] sysCalls <- function(calls = sys.calls(), from = 1L) { 1578s [00:52:58.642] calls[seq.int(from = from + 12L, to = length(calls) - 1578s [00:52:58.642] 3L)] 1578s [00:52:58.642] } 1578s [00:52:58.642] function(cond) { 1578s [00:52:58.642] is_error <- inherits(cond, "error") 1578s [00:52:58.642] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1578s [00:52:58.642] NULL) 1578s [00:52:58.642] if (is_error) { 1578s [00:52:58.642] sessionInformation <- function() { 1578s [00:52:58.642] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1578s [00:52:58.642] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1578s [00:52:58.642] search = base::search(), system = base::Sys.info()) 1578s [00:52:58.642] } 1578s [00:52:58.642] ...future.conditions[[length(...future.conditions) + 1578s [00:52:58.642] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1578s [00:52:58.642] cond$call), session = sessionInformation(), 1578s [00:52:58.642] timestamp = base::Sys.time(), signaled = 0L) 1578s [00:52:58.642] signalCondition(cond) 1578s [00:52:58.642] } 1578s [00:52:58.642] else if (!ignore && TRUE && inherits(cond, c("condition", 1578s [00:52:58.642] "immediateCondition"))) { 1578s [00:52:58.642] signal <- TRUE && inherits(cond, "immediateCondition") 1578s [00:52:58.642] ...future.conditions[[length(...future.conditions) + 1578s [00:52:58.642] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1578s [00:52:58.642] if (TRUE && !signal) { 1578s [00:52:58.642] muffleCondition <- function (cond, pattern = "^muffle") 1578s [00:52:58.642] { 1578s [00:52:58.642] inherits <- base::inherits 1578s [00:52:58.642] invokeRestart <- base::invokeRestart 1578s [00:52:58.642] is.null <- base::is.null 1578s [00:52:58.642] muffled <- FALSE 1578s [00:52:58.642] if (inherits(cond, "message")) { 1578s [00:52:58.642] muffled <- grepl(pattern, "muffleMessage") 1578s [00:52:58.642] if (muffled) 1578s [00:52:58.642] invokeRestart("muffleMessage") 1578s [00:52:58.642] } 1578s [00:52:58.642] else if (inherits(cond, "warning")) { 1578s [00:52:58.642] muffled <- grepl(pattern, "muffleWarning") 1578s [00:52:58.642] if (muffled) 1578s [00:52:58.642] invokeRestart("muffleWarning") 1578s [00:52:58.642] } 1578s [00:52:58.642] else if (inherits(cond, "condition")) { 1578s [00:52:58.642] if (!is.null(pattern)) { 1578s [00:52:58.642] computeRestarts <- base::computeRestarts 1578s [00:52:58.642] grepl <- base::grepl 1578s [00:52:58.642] restarts <- computeRestarts(cond) 1578s [00:52:58.642] for (restart in restarts) { 1578s [00:52:58.642] name <- restart$name 1578s [00:52:58.642] if (is.null(name)) 1578s [00:52:58.642] next 1578s [00:52:58.642] if (!grepl(pattern, name)) 1578s [00:52:58.642] next 1578s [00:52:58.642] invokeRestart(restart) 1578s [00:52:58.642] muffled <- TRUE 1578s [00:52:58.642] break 1578s [00:52:58.642] } 1578s [00:52:58.642] } 1578s [00:52:58.642] } 1578s [00:52:58.642] invisible(muffled) 1578s [00:52:58.642] } 1578s [00:52:58.642] muffleCondition(cond, pattern = "^muffle") 1578s [00:52:58.642] } 1578s [00:52:58.642] } 1578s [00:52:58.642] else { 1578s [00:52:58.642] if (TRUE) { 1578s [00:52:58.642] muffleCondition <- function (cond, pattern = "^muffle") 1578s [00:52:58.642] { 1578s [00:52:58.642] inherits <- base::inherits 1578s [00:52:58.642] invokeRestart <- base::invokeRestart 1578s [00:52:58.642] is.null <- base::is.null 1578s [00:52:58.642] muffled <- FALSE 1578s [00:52:58.642] if (inherits(cond, "message")) { 1578s [00:52:58.642] muffled <- grepl(pattern, "muffleMessage") 1578s [00:52:58.642] if (muffled) 1578s [00:52:58.642] invokeRestart("muffleMessage") 1578s [00:52:58.642] } 1578s [00:52:58.642] else if (inherits(cond, "warning")) { 1578s [00:52:58.642] muffled <- grepl(pattern, "muffleWarning") 1578s [00:52:58.642] if (muffled) 1578s [00:52:58.642] invokeRestart("muffleWarning") 1578s [00:52:58.642] } 1578s [00:52:58.642] else if (inherits(cond, "condition")) { 1578s [00:52:58.642] if (!is.null(pattern)) { 1578s [00:52:58.642] computeRestarts <- base::computeRestarts 1578s [00:52:58.642] grepl <- base::grepl 1578s [00:52:58.642] restarts <- computeRestarts(cond) 1578s [00:52:58.642] for (restart in restarts) { 1578s [00:52:58.642] name <- restart$name 1578s [00:52:58.642] if (is.null(name)) 1578s [00:52:58.642] next 1578s [00:52:58.642] if (!grepl(pattern, name)) 1578s [00:52:58.642] next 1578s [00:52:58.642] invokeRestart(restart) 1578s [00:52:58.642] muffled <- TRUE 1578s [00:52:58.642] break 1578s [00:52:58.642] } 1578s [00:52:58.642] } 1578s [00:52:58.642] } 1578s [00:52:58.642] invisible(muffled) 1578s [00:52:58.642] } 1578s [00:52:58.642] muffleCondition(cond, pattern = "^muffle") 1578s [00:52:58.642] } 1578s [00:52:58.642] } 1578s [00:52:58.642] } 1578s [00:52:58.642] })) 1578s [00:52:58.642] }, error = function(ex) { 1578s [00:52:58.642] base::structure(base::list(value = NULL, visible = NULL, 1578s [00:52:58.642] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1578s [00:52:58.642] ...future.rng), started = ...future.startTime, 1578s [00:52:58.642] finished = Sys.time(), session_uuid = NA_character_, 1578s [00:52:58.642] version = "1.8"), class = "FutureResult") 1578s [00:52:58.642] }, finally = { 1578s [00:52:58.642] if (!identical(...future.workdir, getwd())) 1578s [00:52:58.642] setwd(...future.workdir) 1578s [00:52:58.642] { 1578s [00:52:58.642] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1578s [00:52:58.642] ...future.oldOptions$nwarnings <- NULL 1578s [00:52:58.642] } 1578s [00:52:58.642] base::options(...future.oldOptions) 1578s [00:52:58.642] if (.Platform$OS.type == "windows") { 1578s [00:52:58.642] old_names <- names(...future.oldEnvVars) 1578s [00:52:58.642] envs <- base::Sys.getenv() 1578s [00:52:58.642] names <- names(envs) 1578s [00:52:58.642] common <- intersect(names, old_names) 1578s [00:52:58.642] added <- setdiff(names, old_names) 1578s [00:52:58.642] removed <- setdiff(old_names, names) 1578s [00:52:58.642] changed <- common[...future.oldEnvVars[common] != 1578s [00:52:58.642] envs[common]] 1578s [00:52:58.642] NAMES <- toupper(changed) 1578s [00:52:58.642] args <- list() 1578s [00:52:58.642] for (kk in seq_along(NAMES)) { 1578s [00:52:58.642] name <- changed[[kk]] 1578s [00:52:58.642] NAME <- NAMES[[kk]] 1578s [00:52:58.642] if (name != NAME && is.element(NAME, old_names)) 1578s [00:52:58.642] next 1578s [00:52:58.642] args[[name]] <- ...future.oldEnvVars[[name]] 1578s [00:52:58.642] } 1578s [00:52:58.642] NAMES <- toupper(added) 1578s [00:52:58.642] for (kk in seq_along(NAMES)) { 1578s [00:52:58.642] name <- added[[kk]] 1578s [00:52:58.642] NAME <- NAMES[[kk]] 1578s [00:52:58.642] if (name != NAME && is.element(NAME, old_names)) 1578s [00:52:58.642] next 1578s [00:52:58.642] args[[name]] <- "" 1578s [00:52:58.642] } 1578s [00:52:58.642] NAMES <- toupper(removed) 1578s [00:52:58.642] for (kk in seq_along(NAMES)) { 1578s [00:52:58.642] name <- removed[[kk]] 1578s [00:52:58.642] NAME <- NAMES[[kk]] 1578s [00:52:58.642] if (name != NAME && is.element(NAME, old_names)) 1578s [00:52:58.642] next 1578s [00:52:58.642] args[[name]] <- ...future.oldEnvVars[[name]] 1578s [00:52:58.642] } 1578s [00:52:58.642] if (length(args) > 0) 1578s [00:52:58.642] base::do.call(base::Sys.setenv, args = args) 1578s [00:52:58.642] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1578s [00:52:58.642] } 1578s [00:52:58.642] else { 1578s [00:52:58.642] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1578s [00:52:58.642] } 1578s [00:52:58.642] { 1578s [00:52:58.642] if (base::length(...future.futureOptionsAdded) > 1578s [00:52:58.642] 0L) { 1578s [00:52:58.642] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1578s [00:52:58.642] base::names(opts) <- ...future.futureOptionsAdded 1578s [00:52:58.642] base::options(opts) 1578s [00:52:58.642] } 1578s [00:52:58.642] { 1578s [00:52:58.642] { 1578s [00:52:58.642] NULL 1578s [00:52:58.642] RNGkind("Mersenne-Twister") 1578s [00:52:58.642] base::rm(list = ".Random.seed", envir = base::globalenv(), 1578s [00:52:58.642] inherits = FALSE) 1578s [00:52:58.642] } 1578s [00:52:58.642] options(future.plan = NULL) 1578s [00:52:58.642] if (is.na(NA_character_)) 1578s [00:52:58.642] Sys.unsetenv("R_FUTURE_PLAN") 1578s [00:52:58.642] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1578s [00:52:58.642] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1578s [00:52:58.642] envir = parent.frame()) 1578s [00:52:58.642] { 1578s [00:52:58.642] default_workers <- missing(workers) 1578s [00:52:58.642] if (is.function(workers)) 1578s [00:52:58.642] workers <- workers() 1578s [00:52:58.642] workers <- structure(as.integer(workers), 1578s [00:52:58.642] class = class(workers)) 1578s [00:52:58.642] stop_if_not(is.finite(workers), workers >= 1578s [00:52:58.642] 1L) 1578s [00:52:58.642] if ((workers == 1L && !inherits(workers, 1578s [00:52:58.642] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1578s [00:52:58.642] if (default_workers) 1578s [00:52:58.642] supportsMulticore(warn = TRUE) 1578s [00:52:58.642] return(sequential(..., envir = envir)) 1578s [00:52:58.642] } 1578s [00:52:58.642] oopts <- options(mc.cores = workers) 1578s [00:52:58.642] on.exit(options(oopts)) 1578s [00:52:58.642] future <- MulticoreFuture(..., workers = workers, 1578s [00:52:58.642] envir = envir) 1578s [00:52:58.642] if (!future$lazy) 1578s [00:52:58.642] future <- run(future) 1578s [00:52:58.642] invisible(future) 1578s [00:52:58.642] }), .cleanup = FALSE, .init = FALSE) 1578s [00:52:58.642] } 1578s [00:52:58.642] } 1578s [00:52:58.642] } 1578s [00:52:58.642] }) 1578s [00:52:58.642] if (TRUE) { 1578s [00:52:58.642] base::sink(type = "output", split = FALSE) 1578s [00:52:58.642] if (TRUE) { 1578s [00:52:58.642] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1578s [00:52:58.642] } 1578s [00:52:58.642] else { 1578s [00:52:58.642] ...future.result["stdout"] <- base::list(NULL) 1578s [00:52:58.642] } 1578s [00:52:58.642] base::close(...future.stdout) 1578s [00:52:58.642] ...future.stdout <- NULL 1578s [00:52:58.642] } 1578s [00:52:58.642] ...future.result$conditions <- ...future.conditions 1578s [00:52:58.642] ...future.result$finished <- base::Sys.time() 1578s [00:52:58.642] ...future.result 1578s [00:52:58.642] } 1578s [00:52:58.647] assign_globals() ... 1578s [00:52:58.647] List of 5 1578s [00:52:58.647] $ ...future.FUN :function (x, ...) 1578s [00:52:58.647] $ future.call.arguments : list() 1578s [00:52:58.647] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1578s [00:52:58.647] $ ...future.elements_ii :List of 4 1578s [00:52:58.647] ..$ A: num 50 1578s [00:52:58.647] ..$ B: num 60 1578s [00:52:58.647] ..$ C: num 70 1578s [00:52:58.647] ..$ D: num 80 1578s [00:52:58.647] $ ...future.seeds_ii : NULL 1578s [00:52:58.647] $ ...future.globals.maxSize: NULL 1578s [00:52:58.647] - attr(*, "where")=List of 5 1578s [00:52:58.647] ..$ ...future.FUN : 1578s [00:52:58.647] ..$ future.call.arguments : 1578s [00:52:58.647] ..$ ...future.elements_ii : 1578s [00:52:58.647] ..$ ...future.seeds_ii : 1578s [00:52:58.647] ..$ ...future.globals.maxSize: 1578s [00:52:58.647] - attr(*, "resolved")= logi FALSE 1578s [00:52:58.647] - attr(*, "total_size")= num 1248 1578s [00:52:58.647] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1578s [00:52:58.647] - attr(*, "already-done")= logi TRUE 1578s [00:52:58.656] - copied ‘...future.FUN’ to environment 1578s [00:52:58.656] - copied ‘future.call.arguments’ to environment 1578s [00:52:58.656] - copied ‘...future.elements_ii’ to environment 1578s [00:52:58.656] - copied ‘...future.seeds_ii’ to environment 1578s [00:52:58.657] - copied ‘...future.globals.maxSize’ to environment 1578s [00:52:58.657] assign_globals() ... done 1578s [00:52:58.657] plan(): Setting new future strategy stack: 1578s [00:52:58.657] List of future strategies: 1578s [00:52:58.657] 1. sequential: 1578s [00:52:58.657] - args: function (..., envir = parent.frame()) 1578s [00:52:58.657] - tweaked: FALSE 1578s [00:52:58.657] - call: NULL 1578s [00:52:58.658] plan(): nbrOfWorkers() = 1 1578s [00:52:58.659] plan(): Setting new future strategy stack: 1578s [00:52:58.660] List of future strategies: 1578s [00:52:58.660] 1. multicore: 1578s [00:52:58.660] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1578s [00:52:58.660] - tweaked: FALSE 1578s [00:52:58.660] - call: plan(strategy) 1578s [00:52:58.664] plan(): nbrOfWorkers() = 1 1578s [00:52:58.665] SequentialFuture started (and completed) 1578s [00:52:58.665] - Launch lazy future ... done 1578s [00:52:58.665] run() for ‘SequentialFuture’ ... done 1578s [00:52:58.665] Created future: 1578s [00:52:58.666] SequentialFuture: 1578s [00:52:58.666] Label: ‘future_sapply-1’ 1578s [00:52:58.666] Expression: 1578s [00:52:58.666] { 1578s [00:52:58.666] do.call(function(...) { 1578s [00:52:58.666] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1578s [00:52:58.666] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1578s [00:52:58.666] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1578s [00:52:58.666] on.exit(options(oopts), add = TRUE) 1578s [00:52:58.666] } 1578s [00:52:58.666] { 1578s [00:52:58.666] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1578s [00:52:58.666] ...future.X_jj <- ...future.elements_ii[[jj]] 1578s [00:52:58.666] ...future.FUN(...future.X_jj, ...) 1578s [00:52:58.666] }) 1578s [00:52:58.666] } 1578s [00:52:58.666] }, args = future.call.arguments) 1578s [00:52:58.666] } 1578s [00:52:58.666] Lazy evaluation: FALSE 1578s [00:52:58.666] Asynchronous evaluation: FALSE 1578s [00:52:58.666] Local evaluation: TRUE 1578s [00:52:58.666] Environment: R_GlobalEnv 1578s [00:52:58.666] Capture standard output: TRUE 1578s [00:52:58.666] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1578s [00:52:58.666] Globals: 5 objects totaling 1.44 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1578s [00:52:58.666] Packages: 1578s [00:52:58.666] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1578s [00:52:58.666] Resolved: TRUE 1578s [00:52:58.666] Value: 896 bytes of class ‘list’ 1578s [00:52:58.666] Early signaling: FALSE 1578s [00:52:58.666] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1578s [00:52:58.666] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1578s [00:52:58.668] Chunk #1 of 1 ... DONE 1578s [00:52:58.668] Launching 1 futures (chunks) ... DONE 1578s [00:52:58.669] Resolving 1 futures (chunks) ... 1578s [00:52:58.669] resolve() on list ... 1578s [00:52:58.669] recursive: 0 1578s [00:52:58.669] length: 1 1578s [00:52:58.669] 1578s [00:52:58.669] resolved() for ‘SequentialFuture’ ... 1578s [00:52:58.670] - state: ‘finished’ 1578s [00:52:58.670] - run: TRUE 1578s [00:52:58.670] - result: ‘FutureResult’ 1578s [00:52:58.670] resolved() for ‘SequentialFuture’ ... done 1578s [00:52:58.670] Future #1 1578s [00:52:58.671] signalConditionsASAP(SequentialFuture, pos=1) ... 1578s [00:52:58.671] - nx: 1 1578s [00:52:58.671] - relay: TRUE 1578s [00:52:58.671] - stdout: TRUE 1578s List of 2 1578s $ y0:[00:52:58.671] - signal: TRUE 1578s [00:52:58.671] - resignal: FALSE 1578s [00:52:58.671] - force: TRUE 1578s [00:52:58.671] - relayed: [n=1] FALSE 1578s [00:52:58.672] - queued futures: [n=1] FALSE 1578s [00:52:58.672] - until=1 1578s [00:52:58.672] - relaying element #1 1578s [00:52:58.673] - relayed: [n=1] TRUE 1578s [00:52:58.673] - queued futures: [n=1] TRUE 1578s [00:52:58.673] signalConditionsASAP(SequentialFuture, pos=1) ... done 1578s [00:52:58.673] length: 0 (resolved future 1) 1578s [00:52:58.673] Relaying remaining futures 1578s [00:52:58.673] signalConditionsASAP(NULL, pos=0) ... 1578s [00:52:58.674] - nx: 1 1578s [00:52:58.674] - relay: TRUE 1578s [00:52:58.674] - stdout: TRUE 1578s [00:52:58.674] - signal: TRUE 1578s [00:52:58.674] - resignal: FALSE 1578s [00:52:58.674] - force: TRUE 1578s [00:52:58.674] - relayed: [n=1] TRUE 1578s [00:52:58.674] - queued futures: [n=1] TRUE 1578s - flush all 1578s [00:52:58.675] - relayed: [n=1] TRUE 1578s [00:52:58.675] - queued futures: [n=1] TRUE 1578s [00:52:58.675] signalConditionsASAP(NULL, pos=0) ... done 1578s [00:52:58.675] resolve() on list ... DONE 1578s [00:52:58.676] - Number of value chunks collected: 1 1578s [00:52:58.676] Resolving 1 futures (chunks) ... DONE 1578s [00:52:58.676] Reducing values from 1 chunks ... 1578s [00:52:58.676] - Number of values collected after concatenation: 4 1578s [00:52:58.676] - Number of values expected: 4 1578s [00:52:58.676] Reducing values from 1 chunks ... DONE 1578s [00:52:58.677] future_lapply() ... DONE 1578s Named num [1:4] 50 60 70 80 1578s ..- attr(*, "names")= chr [1:4] "A" "B" "C" "D" 1578s $ y1: Named num [1:4] 50 60 70 80 1578s ..- attr(*, "names")= chr [1:4] "A" "B" "C" "D" 1578s [00:52:58.680] future_lapply() ... 1578s [00:52:58.685] Number of chunks: 1 1578s [00:52:58.686] getGlobalsAndPackagesXApply() ... 1578s [00:52:58.686] - future.globals: TRUE 1578s [00:52:58.687] getGlobalsAndPackages() ... 1578s [00:52:58.687] Searching for globals... 1578s [00:52:58.690] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1578s [00:52:58.690] Searching for globals ... DONE 1578s [00:52:58.690] Resolving globals: FALSE 1578s [00:52:58.691] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1578s [00:52:58.692] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1578s [00:52:58.692] - globals: [1] ‘FUN’ 1578s [00:52:58.692] 1578s [00:52:58.692] getGlobalsAndPackages() ... DONE 1578s [00:52:58.692] - globals found/used: [n=1] ‘FUN’ 1578s [00:52:58.693] - needed namespaces: [n=0] 1578s [00:52:58.693] Finding globals ... DONE 1578s [00:52:58.693] - use_args: TRUE 1578s [00:52:58.693] - Getting '...' globals ... 1578s [00:52:58.694] resolve() on list ... 1578s [00:52:58.694] recursive: 0 1578s [00:52:58.694] length: 1 1578s [00:52:58.694] elements: ‘...’ 1578s [00:52:58.694] length: 0 (resolved future 1) 1578s [00:52:58.695] resolve() on list ... DONE 1578s [00:52:58.695] - '...' content: [n=0] 1578s [00:52:58.695] List of 1 1578s [00:52:58.695] $ ...: list() 1578s [00:52:58.695] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1578s [00:52:58.695] - attr(*, "where")=List of 1 1578s [00:52:58.695] ..$ ...: 1578s [00:52:58.695] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1578s [00:52:58.695] - attr(*, "resolved")= logi TRUE 1578s [00:52:58.695] - attr(*, "total_size")= num NA 1578s [00:52:58.699] - Getting '...' globals ... DONE 1578s [00:52:58.700] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1578s [00:52:58.700] List of 2 1578s [00:52:58.700] $ ...future.FUN:function (x, y = 2 * 1:5) 1578s [00:52:58.700] $ ... : list() 1578s [00:52:58.700] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1578s [00:52:58.700] - attr(*, "where")=List of 2 1578s [00:52:58.700] ..$ ...future.FUN: 1578s [00:52:58.700] ..$ ... : 1578s [00:52:58.700] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1578s [00:52:58.700] - attr(*, "resolved")= logi FALSE 1578s [00:52:58.700] - attr(*, "total_size")= num 4728 1578s [00:52:58.704] Packages to be attached in all futures: [n=0] 1578s [00:52:58.705] getGlobalsAndPackagesXApply() ... DONE 1578s [00:52:58.705] Number of futures (= number of chunks): 1 1578s [00:52:58.705] Launching 1 futures (chunks) ... 1578s [00:52:58.706] Chunk #1 of 1 ... 1578s [00:52:58.706] - Finding globals in 'X' for chunk #1 ... 1578s [00:52:58.706] getGlobalsAndPackages() ... 1578s [00:52:58.706] Searching for globals... 1578s [00:52:58.707] 1578s [00:52:58.707] Searching for globals ... DONE 1578s [00:52:58.707] - globals: [0] 1578s [00:52:58.708] getGlobalsAndPackages() ... DONE 1578s [00:52:58.708] + additional globals found: [n=0] 1578s [00:52:58.709] + additional namespaces needed: [n=0] 1578s [00:52:58.709] - Finding globals in 'X' for chunk #1 ... DONE 1578s [00:52:58.709] - seeds: 1578s [00:52:58.709] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1578s [00:52:58.710] getGlobalsAndPackages() ... 1578s [00:52:58.710] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1578s [00:52:58.710] Resolving globals: FALSE 1578s [00:52:58.710] Tweak future expression to call with '...' arguments ... 1578s [00:52:58.710] { 1578s [00:52:58.710] do.call(function(...) { 1578s [00:52:58.710] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1578s [00:52:58.710] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1578s [00:52:58.710] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1578s [00:52:58.710] on.exit(options(oopts), add = TRUE) 1578s [00:52:58.710] } 1578s [00:52:58.710] { 1578s [00:52:58.710] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1578s [00:52:58.710] ...future.X_jj <- ...future.elements_ii[[jj]] 1578s [00:52:58.710] ...future.FUN(...future.X_jj, ...) 1578s [00:52:58.710] }) 1578s [00:52:58.710] } 1578s [00:52:58.710] }, args = future.call.arguments) 1578s [00:52:58.710] } 1578s [00:52:58.711] Tweak future expression to call with '...' arguments ... DONE 1578s [00:52:58.712] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1578s [00:52:58.713] 1578s [00:52:58.713] getGlobalsAndPackages() ... DONE 1578s [00:52:58.713] run() for ‘Future’ ... 1578s [00:52:58.713] - state: ‘created’ 1578s [00:52:58.714] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1578s [00:52:58.719] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1578s [00:52:58.719] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1578s [00:52:58.720] - Field: ‘label’ 1578s [00:52:58.720] - Field: ‘local’ 1578s [00:52:58.720] - Field: ‘owner’ 1578s [00:52:58.721] - Field: ‘envir’ 1578s [00:52:58.721] - Field: ‘packages’ 1578s [00:52:58.721] - Field: ‘gc’ 1578s [00:52:58.722] - Field: ‘conditions’ 1578s [00:52:58.722] - Field: ‘expr’ 1578s [00:52:58.722] - Field: ‘uuid’ 1578s [00:52:58.723] - Field: ‘seed’ 1578s [00:52:58.723] - Field: ‘version’ 1578s [00:52:58.723] - Field: ‘result’ 1578s [00:52:58.724] - Field: ‘asynchronous’ 1578s [00:52:58.724] - Field: ‘calls’ 1578s [00:52:58.724] - Field: ‘globals’ 1578s [00:52:58.724] - Field: ‘stdout’ 1578s [00:52:58.725] - Field: ‘earlySignal’ 1578s [00:52:58.725] - Field: ‘lazy’ 1578s [00:52:58.725] - Field: ‘state’ 1578s [00:52:58.725] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1578s [00:52:58.725] - Launch lazy future ... 1578s [00:52:58.726] Packages needed by the future expression (n = 0): 1578s [00:52:58.726] Packages needed by future strategies (n = 0): 1578s [00:52:58.727] { 1578s [00:52:58.727] { 1578s [00:52:58.727] { 1578s [00:52:58.727] ...future.startTime <- base::Sys.time() 1578s [00:52:58.727] { 1578s [00:52:58.727] { 1578s [00:52:58.727] { 1578s [00:52:58.727] base::local({ 1578s [00:52:58.727] has_future <- base::requireNamespace("future", 1578s [00:52:58.727] quietly = TRUE) 1578s [00:52:58.727] if (has_future) { 1578s [00:52:58.727] ns <- base::getNamespace("future") 1578s [00:52:58.727] version <- ns[[".package"]][["version"]] 1578s [00:52:58.727] if (is.null(version)) 1578s [00:52:58.727] version <- utils::packageVersion("future") 1578s [00:52:58.727] } 1578s [00:52:58.727] else { 1578s [00:52:58.727] version <- NULL 1578s [00:52:58.727] } 1578s [00:52:58.727] if (!has_future || version < "1.8.0") { 1578s [00:52:58.727] info <- base::c(r_version = base::gsub("R version ", 1578s [00:52:58.727] "", base::R.version$version.string), 1578s [00:52:58.727] platform = base::sprintf("%s (%s-bit)", 1578s [00:52:58.727] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1578s [00:52:58.727] os = base::paste(base::Sys.info()[base::c("sysname", 1578s [00:52:58.727] "release", "version")], collapse = " "), 1578s [00:52:58.727] hostname = base::Sys.info()[["nodename"]]) 1578s [00:52:58.727] info <- base::sprintf("%s: %s", base::names(info), 1578s [00:52:58.727] info) 1578s [00:52:58.727] info <- base::paste(info, collapse = "; ") 1578s [00:52:58.727] if (!has_future) { 1578s [00:52:58.727] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1578s [00:52:58.727] info) 1578s [00:52:58.727] } 1578s [00:52:58.727] else { 1578s [00:52:58.727] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1578s [00:52:58.727] info, version) 1578s [00:52:58.727] } 1578s [00:52:58.727] base::stop(msg) 1578s [00:52:58.727] } 1578s [00:52:58.727] }) 1578s [00:52:58.727] } 1578s [00:52:58.727] options(future.plan = NULL) 1578s [00:52:58.727] Sys.unsetenv("R_FUTURE_PLAN") 1578s [00:52:58.727] future::plan("default", .cleanup = FALSE, .init = FALSE) 1578s [00:52:58.727] } 1578s [00:52:58.727] ...future.workdir <- getwd() 1578s [00:52:58.727] } 1578s [00:52:58.727] ...future.oldOptions <- base::as.list(base::.Options) 1578s [00:52:58.727] ...future.oldEnvVars <- base::Sys.getenv() 1578s [00:52:58.727] } 1578s [00:52:58.727] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1578s [00:52:58.727] future.globals.maxSize = NULL, future.globals.method = NULL, 1578s [00:52:58.727] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1578s [00:52:58.727] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1578s [00:52:58.727] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1578s [00:52:58.727] future.stdout.windows.reencode = NULL, width = 80L) 1578s [00:52:58.727] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1578s [00:52:58.727] base::names(...future.oldOptions)) 1578s [00:52:58.727] } 1578s [00:52:58.727] if (FALSE) { 1578s [00:52:58.727] } 1578s [00:52:58.727] else { 1578s [00:52:58.727] if (TRUE) { 1578s [00:52:58.727] ...future.stdout <- base::rawConnection(base::raw(0L), 1578s [00:52:58.727] open = "w") 1578s [00:52:58.727] } 1578s [00:52:58.727] else { 1578s [00:52:58.727] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1578s [00:52:58.727] windows = "NUL", "/dev/null"), open = "w") 1578s [00:52:58.727] } 1578s [00:52:58.727] base::sink(...future.stdout, type = "output", split = FALSE) 1578s [00:52:58.727] base::on.exit(if (!base::is.null(...future.stdout)) { 1578s [00:52:58.727] base::sink(type = "output", split = FALSE) 1578s [00:52:58.727] base::close(...future.stdout) 1578s [00:52:58.727] }, add = TRUE) 1578s [00:52:58.727] } 1578s [00:52:58.727] ...future.frame <- base::sys.nframe() 1578s [00:52:58.727] ...future.conditions <- base::list() 1578s [00:52:58.727] ...future.rng <- base::globalenv()$.Random.seed 1578s [00:52:58.727] if (FALSE) { 1578s [00:52:58.727] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1578s [00:52:58.727] "...future.value", "...future.globalenv.names", ".Random.seed") 1578s [00:52:58.727] } 1578s [00:52:58.727] ...future.result <- base::tryCatch({ 1578s [00:52:58.727] base::withCallingHandlers({ 1578s [00:52:58.727] ...future.value <- base::withVisible(base::local({ 1578s [00:52:58.727] do.call(function(...) { 1578s [00:52:58.727] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1578s [00:52:58.727] if (!identical(...future.globals.maxSize.org, 1578s [00:52:58.727] ...future.globals.maxSize)) { 1578s [00:52:58.727] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1578s [00:52:58.727] on.exit(options(oopts), add = TRUE) 1578s [00:52:58.727] } 1578s [00:52:58.727] { 1578s [00:52:58.727] lapply(seq_along(...future.elements_ii), 1578s [00:52:58.727] FUN = function(jj) { 1578s [00:52:58.727] ...future.X_jj <- ...future.elements_ii[[jj]] 1578s [00:52:58.727] ...future.FUN(...future.X_jj, ...) 1578s [00:52:58.727] }) 1578s [00:52:58.727] } 1578s [00:52:58.727] }, args = future.call.arguments) 1578s [00:52:58.727] })) 1578s [00:52:58.727] future::FutureResult(value = ...future.value$value, 1578s [00:52:58.727] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1578s [00:52:58.727] ...future.rng), globalenv = if (FALSE) 1578s [00:52:58.727] list(added = base::setdiff(base::names(base::.GlobalEnv), 1578s [00:52:58.727] ...future.globalenv.names)) 1578s [00:52:58.727] else NULL, started = ...future.startTime, version = "1.8") 1578s [00:52:58.727] }, condition = base::local({ 1578s [00:52:58.727] c <- base::c 1578s [00:52:58.727] inherits <- base::inherits 1578s [00:52:58.727] invokeRestart <- base::invokeRestart 1578s [00:52:58.727] length <- base::length 1578s [00:52:58.727] list <- base::list 1578s [00:52:58.727] seq.int <- base::seq.int 1578s [00:52:58.727] signalCondition <- base::signalCondition 1578s [00:52:58.727] sys.calls <- base::sys.calls 1578s [00:52:58.727] `[[` <- base::`[[` 1578s [00:52:58.727] `+` <- base::`+` 1578s [00:52:58.727] `<<-` <- base::`<<-` 1578s [00:52:58.727] sysCalls <- function(calls = sys.calls(), from = 1L) { 1578s [00:52:58.727] calls[seq.int(from = from + 12L, to = length(calls) - 1578s [00:52:58.727] 3L)] 1578s [00:52:58.727] } 1578s [00:52:58.727] function(cond) { 1578s [00:52:58.727] is_error <- inherits(cond, "error") 1578s [00:52:58.727] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1578s [00:52:58.727] NULL) 1578s [00:52:58.727] if (is_error) { 1578s [00:52:58.727] sessionInformation <- function() { 1578s [00:52:58.727] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1578s [00:52:58.727] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1578s [00:52:58.727] search = base::search(), system = base::Sys.info()) 1578s [00:52:58.727] } 1578s [00:52:58.727] ...future.conditions[[length(...future.conditions) + 1578s [00:52:58.727] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1578s [00:52:58.727] cond$call), session = sessionInformation(), 1578s [00:52:58.727] timestamp = base::Sys.time(), signaled = 0L) 1578s [00:52:58.727] signalCondition(cond) 1578s [00:52:58.727] } 1578s [00:52:58.727] else if (!ignore && TRUE && inherits(cond, c("condition", 1578s [00:52:58.727] "immediateCondition"))) { 1578s [00:52:58.727] signal <- TRUE && inherits(cond, "immediateCondition") 1578s [00:52:58.727] ...future.conditions[[length(...future.conditions) + 1578s [00:52:58.727] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1578s [00:52:58.727] if (TRUE && !signal) { 1578s [00:52:58.727] muffleCondition <- function (cond, pattern = "^muffle") 1578s [00:52:58.727] { 1578s [00:52:58.727] inherits <- base::inherits 1578s [00:52:58.727] invokeRestart <- base::invokeRestart 1578s [00:52:58.727] is.null <- base::is.null 1578s [00:52:58.727] muffled <- FALSE 1578s [00:52:58.727] if (inherits(cond, "message")) { 1578s [00:52:58.727] muffled <- grepl(pattern, "muffleMessage") 1578s [00:52:58.727] if (muffled) 1578s [00:52:58.727] invokeRestart("muffleMessage") 1578s [00:52:58.727] } 1578s [00:52:58.727] else if (inherits(cond, "warning")) { 1578s [00:52:58.727] muffled <- grepl(pattern, "muffleWarning") 1578s [00:52:58.727] if (muffled) 1578s [00:52:58.727] invokeRestart("muffleWarning") 1578s [00:52:58.727] } 1578s [00:52:58.727] else if (inherits(cond, "condition")) { 1578s [00:52:58.727] if (!is.null(pattern)) { 1578s [00:52:58.727] computeRestarts <- base::computeRestarts 1578s [00:52:58.727] grepl <- base::grepl 1578s [00:52:58.727] restarts <- computeRestarts(cond) 1578s [00:52:58.727] for (restart in restarts) { 1578s [00:52:58.727] name <- restart$name 1578s [00:52:58.727] if (is.null(name)) 1578s [00:52:58.727] next 1578s [00:52:58.727] if (!grepl(pattern, name)) 1578s [00:52:58.727] next 1578s [00:52:58.727] invokeRestart(restart) 1578s [00:52:58.727] muffled <- TRUE 1578s [00:52:58.727] break 1578s [00:52:58.727] } 1578s [00:52:58.727] } 1578s [00:52:58.727] } 1578s [00:52:58.727] invisible(muffled) 1578s [00:52:58.727] } 1578s [00:52:58.727] muffleCondition(cond, pattern = "^muffle") 1578s [00:52:58.727] } 1578s [00:52:58.727] } 1578s [00:52:58.727] else { 1578s [00:52:58.727] if (TRUE) { 1578s [00:52:58.727] muffleCondition <- function (cond, pattern = "^muffle") 1578s [00:52:58.727] { 1578s [00:52:58.727] inherits <- base::inherits 1578s [00:52:58.727] invokeRestart <- base::invokeRestart 1578s [00:52:58.727] is.null <- base::is.null 1578s [00:52:58.727] muffled <- FALSE 1578s [00:52:58.727] if (inherits(cond, "message")) { 1578s [00:52:58.727] muffled <- grepl(pattern, "muffleMessage") 1578s [00:52:58.727] if (muffled) 1578s [00:52:58.727] invokeRestart("muffleMessage") 1578s [00:52:58.727] } 1578s [00:52:58.727] else if (inherits(cond, "warning")) { 1578s [00:52:58.727] muffled <- grepl(pattern, "muffleWarning") 1578s [00:52:58.727] if (muffled) 1578s [00:52:58.727] invokeRestart("muffleWarning") 1578s [00:52:58.727] } 1578s [00:52:58.727] else if (inherits(cond, "condition")) { 1578s [00:52:58.727] if (!is.null(pattern)) { 1578s [00:52:58.727] computeRestarts <- base::computeRestarts 1578s [00:52:58.727] grepl <- base::grepl 1578s [00:52:58.727] restarts <- computeRestarts(cond) 1578s [00:52:58.727] for (restart in restarts) { 1578s [00:52:58.727] name <- restart$name 1578s [00:52:58.727] if (is.null(name)) 1578s [00:52:58.727] next 1578s [00:52:58.727] if (!grepl(pattern, name)) 1578s [00:52:58.727] next 1578s [00:52:58.727] invokeRestart(restart) 1578s [00:52:58.727] muffled <- TRUE 1578s [00:52:58.727] break 1578s [00:52:58.727] } 1578s [00:52:58.727] } 1578s [00:52:58.727] } 1578s [00:52:58.727] invisible(muffled) 1578s [00:52:58.727] } 1578s [00:52:58.727] muffleCondition(cond, pattern = "^muffle") 1578s [00:52:58.727] } 1578s [00:52:58.727] } 1578s [00:52:58.727] } 1578s [00:52:58.727] })) 1578s [00:52:58.727] }, error = function(ex) { 1578s [00:52:58.727] base::structure(base::list(value = NULL, visible = NULL, 1578s [00:52:58.727] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1578s [00:52:58.727] ...future.rng), started = ...future.startTime, 1578s [00:52:58.727] finished = Sys.time(), session_uuid = NA_character_, 1578s [00:52:58.727] version = "1.8"), class = "FutureResult") 1578s [00:52:58.727] }, finally = { 1578s [00:52:58.727] if (!identical(...future.workdir, getwd())) 1578s [00:52:58.727] setwd(...future.workdir) 1578s [00:52:58.727] { 1578s [00:52:58.727] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1578s [00:52:58.727] ...future.oldOptions$nwarnings <- NULL 1578s [00:52:58.727] } 1578s [00:52:58.727] base::options(...future.oldOptions) 1578s [00:52:58.727] if (.Platform$OS.type == "windows") { 1578s [00:52:58.727] old_names <- names(...future.oldEnvVars) 1578s [00:52:58.727] envs <- base::Sys.getenv() 1578s [00:52:58.727] names <- names(envs) 1578s [00:52:58.727] common <- intersect(names, old_names) 1578s [00:52:58.727] added <- setdiff(names, old_names) 1578s [00:52:58.727] removed <- setdiff(old_names, names) 1578s [00:52:58.727] changed <- common[...future.oldEnvVars[common] != 1578s [00:52:58.727] envs[common]] 1578s [00:52:58.727] NAMES <- toupper(changed) 1578s [00:52:58.727] args <- list() 1578s [00:52:58.727] for (kk in seq_along(NAMES)) { 1578s [00:52:58.727] name <- changed[[kk]] 1578s [00:52:58.727] NAME <- NAMES[[kk]] 1578s [00:52:58.727] if (name != NAME && is.element(NAME, old_names)) 1578s [00:52:58.727] next 1578s [00:52:58.727] args[[name]] <- ...future.oldEnvVars[[name]] 1578s [00:52:58.727] } 1578s [00:52:58.727] NAMES <- toupper(added) 1578s [00:52:58.727] for (kk in seq_along(NAMES)) { 1578s [00:52:58.727] name <- added[[kk]] 1578s [00:52:58.727] NAME <- NAMES[[kk]] 1578s [00:52:58.727] if (name != NAME && is.element(NAME, old_names)) 1578s [00:52:58.727] next 1578s [00:52:58.727] args[[name]] <- "" 1578s [00:52:58.727] } 1578s [00:52:58.727] NAMES <- toupper(removed) 1578s [00:52:58.727] for (kk in seq_along(NAMES)) { 1578s [00:52:58.727] name <- removed[[kk]] 1578s [00:52:58.727] NAME <- NAMES[[kk]] 1578s [00:52:58.727] if (name != NAME && is.element(NAME, old_names)) 1578s [00:52:58.727] next 1578s [00:52:58.727] args[[name]] <- ...future.oldEnvVars[[name]] 1578s [00:52:58.727] } 1578s [00:52:58.727] if (length(args) > 0) 1578s [00:52:58.727] base::do.call(base::Sys.setenv, args = args) 1578s [00:52:58.727] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1578s [00:52:58.727] } 1578s [00:52:58.727] else { 1578s [00:52:58.727] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1578s [00:52:58.727] } 1578s [00:52:58.727] { 1578s [00:52:58.727] if (base::length(...future.futureOptionsAdded) > 1578s [00:52:58.727] 0L) { 1578s [00:52:58.727] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1578s [00:52:58.727] base::names(opts) <- ...future.futureOptionsAdded 1578s [00:52:58.727] base::options(opts) 1578s [00:52:58.727] } 1578s [00:52:58.727] { 1578s [00:52:58.727] { 1578s [00:52:58.727] NULL 1578s [00:52:58.727] RNGkind("Mersenne-Twister") 1578s [00:52:58.727] base::rm(list = ".Random.seed", envir = base::globalenv(), 1578s [00:52:58.727] inherits = FALSE) 1578s [00:52:58.727] } 1578s [00:52:58.727] options(future.plan = NULL) 1578s [00:52:58.727] if (is.na(NA_character_)) 1578s [00:52:58.727] Sys.unsetenv("R_FUTURE_PLAN") 1578s [00:52:58.727] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1578s [00:52:58.727] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1578s [00:52:58.727] envir = parent.frame()) 1578s [00:52:58.727] { 1578s [00:52:58.727] default_workers <- missing(workers) 1578s [00:52:58.727] if (is.function(workers)) 1578s [00:52:58.727] workers <- workers() 1578s [00:52:58.727] workers <- structure(as.integer(workers), 1578s [00:52:58.727] class = class(workers)) 1578s [00:52:58.727] stop_if_not(is.finite(workers), workers >= 1578s [00:52:58.727] 1L) 1578s [00:52:58.727] if ((workers == 1L && !inherits(workers, 1578s [00:52:58.727] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1578s [00:52:58.727] if (default_workers) 1578s [00:52:58.727] supportsMulticore(warn = TRUE) 1578s [00:52:58.727] return(sequential(..., envir = envir)) 1578s [00:52:58.727] } 1578s [00:52:58.727] oopts <- options(mc.cores = workers) 1578s [00:52:58.727] on.exit(options(oopts)) 1578s [00:52:58.727] future <- MulticoreFuture(..., workers = workers, 1578s [00:52:58.727] envir = envir) 1578s [00:52:58.727] if (!future$lazy) 1578s [00:52:58.727] future <- run(future) 1578s [00:52:58.727] invisible(future) 1578s [00:52:58.727] }), .cleanup = FALSE, .init = FALSE) 1578s [00:52:58.727] } 1578s [00:52:58.727] } 1578s [00:52:58.727] } 1578s [00:52:58.727] }) 1578s [00:52:58.727] if (TRUE) { 1578s [00:52:58.727] base::sink(type = "output", split = FALSE) 1578s [00:52:58.727] if (TRUE) { 1578s [00:52:58.727] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1578s [00:52:58.727] } 1578s [00:52:58.727] else { 1578s [00:52:58.727] ...future.result["stdout"] <- base::list(NULL) 1578s [00:52:58.727] } 1578s [00:52:58.727] base::close(...future.stdout) 1578s [00:52:58.727] ...future.stdout <- NULL 1578s [00:52:58.727] } 1578s [00:52:58.727] ...future.result$conditions <- ...future.conditions 1578s [00:52:58.727] ...future.result$finished <- base::Sys.time() 1578s [00:52:58.727] ...future.result 1578s [00:52:58.727] } 1578s [00:52:58.735] assign_globals() ... 1578s [00:52:58.735] List of 5 1578s [00:52:58.735] $ ...future.FUN :function (x, y = 2 * 1:5) 1578s [00:52:58.735] $ future.call.arguments : list() 1578s [00:52:58.735] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1578s [00:52:58.735] $ ...future.elements_ii :List of 4 1578s [00:52:58.735] ..$ A: num 50 1578s [00:52:58.735] ..$ B: num 60 1578s [00:52:58.735] ..$ C: num 70 1578s [00:52:58.735] ..$ D: num 80 1578s [00:52:58.735] $ ...future.seeds_ii : NULL 1578s [00:52:58.735] $ ...future.globals.maxSize: NULL 1578s [00:52:58.735] - attr(*, "where")=List of 5 1578s [00:52:58.735] ..$ ...future.FUN : 1578s [00:52:58.735] ..$ future.call.arguments : 1578s [00:52:58.735] ..$ ...future.elements_ii : 1578s [00:52:58.735] ..$ ...future.seeds_ii : 1578s [00:52:58.735] ..$ ...future.globals.maxSize: 1578s [00:52:58.735] - attr(*, "resolved")= logi FALSE 1578s [00:52:58.735] - attr(*, "total_size")= num 4728 1578s [00:52:58.735] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1578s [00:52:58.735] - attr(*, "already-done")= logi TRUE 1578s [00:52:58.754] - reassign environment for ‘...future.FUN’ 1578s [00:52:58.755] - copied ‘...future.FUN’ to environment 1578s [00:52:58.755] - copied ‘future.call.arguments’ to environment 1578s [00:52:58.755] - copied ‘...future.elements_ii’ to environment 1578s [00:52:58.755] - copied ‘...future.seeds_ii’ to environment 1578s [00:52:58.755] - copied ‘...future.globals.maxSize’ to environment 1578s [00:52:58.755] assign_globals() ... done 1578s [00:52:58.756] plan(): Setting new future strategy stack: 1578s [00:52:58.756] List of future strategies: 1578s [00:52:58.756] 1. sequential: 1578s [00:52:58.756] - args: function (..., envir = parent.frame()) 1578s [00:52:58.756] - tweaked: FALSE 1578s [00:52:58.756] - call: NULL 1578s [00:52:58.756] plan(): nbrOfWorkers() = 1 1578s [00:52:58.758] plan(): Setting new future strategy stack: 1578s [00:52:58.758] List of future strategies: 1578s [00:52:58.758] 1. multicore: 1578s [00:52:58.758] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1578s [00:52:58.758] - tweaked: FALSE 1578s [00:52:58.758] - call: plan(strategy) 1578s [00:52:58.764] plan(): nbrOfWorkers() = 1 1578s [00:52:58.765] SequentialFuture started (and completed) 1578s [00:52:58.765] - Launch lazy future ... done 1578s [00:52:58.766] run() for ‘SequentialFuture’ ... done 1578s [00:52:58.766] Created future: 1578s [00:52:58.766] SequentialFuture: 1578s [00:52:58.766] Label: ‘future_sapply-1’ 1578s [00:52:58.766] Expression: 1578s [00:52:58.766] { 1578s [00:52:58.766] do.call(function(...) { 1578s [00:52:58.766] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1578s [00:52:58.766] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1578s [00:52:58.766] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1578s [00:52:58.766] on.exit(options(oopts), add = TRUE) 1578s [00:52:58.766] } 1578s [00:52:58.766] { 1578s [00:52:58.766] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1578s [00:52:58.766] ...future.X_jj <- ...future.elements_ii[[jj]] 1578s [00:52:58.766] ...future.FUN(...future.X_jj, ...) 1578s [00:52:58.766] }) 1578s [00:52:58.766] } 1578s [00:52:58.766] }, args = future.call.arguments) 1578s [00:52:58.766] } 1578s [00:52:58.766] Lazy evaluation: FALSE 1578s [00:52:58.766] Asynchronous evaluation: FALSE 1578s [00:52:58.766] Local evaluation: TRUE 1578s [00:52:58.766] Environment: R_GlobalEnv 1578s [00:52:58.766] Capture standard output: TRUE 1578s [00:52:58.766] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1578s [00:52:58.766] Globals: 5 objects totaling 4.84 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1578s [00:52:58.766] Packages: 1578s [00:52:58.766] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1578s [00:52:58.766] Resolved: TRUE 1578s [00:52:58.766] Value: 1.34 KiB of class ‘list’ 1578s [00:52:58.766] Early signaling: FALSE 1578s [00:52:58.766] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1578s [00:52:58.766] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1578s [00:52:58.770] Chunk #1 of 1 ... DONE 1578s [00:52:58.770] Launching 1 futures (chunks) ... DONE 1578s [00:52:58.770] Resolving 1 futures (chunks) ... 1578s [00:52:58.770] resolve() on list ... 1578s [00:52:58.771] recursive: 0 1578s [00:52:58.771] length: 1 1578s [00:52:58.771] 1578s [00:52:58.771] resolved() for ‘SequentialFuture’ ... 1578s [00:52:58.771] - state: ‘finished’ 1578s [00:52:58.771] - run: TRUE 1578s [00:52:58.772] - result: ‘FutureResult’ 1578s [00:52:58.772] resolved() for ‘SequentialFuture’ ... done 1578s [00:52:58.772] Future #1 1578s [00:52:58.773] signalConditionsASAP(SequentialFuture, pos=1) ... 1578s List of 2 1578s [00:52:58.773] - nx: 1 1578s [00:52:58.773] - relay: TRUE 1578s [00:52:58.773] - stdout: TRUE 1578s [00:52:58.774] - signal: TRUE 1578s [00:52:58.774] - resignal: FALSE 1578s [00:52:58.774] - force: TRUE 1578s [00:52:58.774] - relayed: [n=1] FALSE 1578s [00:52:58.774] - queued futures: [n=1] FALSE 1578s [00:52:58.774] - until=1 1578s [00:52:58.775] - relaying element #1 1578s [00:52:58.775] - relayed: [n=1] TRUE 1578s [00:52:58.775] - queued futures: [n=1] TRUE 1578s [00:52:58.775] signalConditionsASAP(SequentialFuture, pos=1) ... done 1578s [00:52:58.775] length: 0 (resolved future 1) 1578s [00:52:58.776] Relaying remaining futures 1578s [00:52:58.776] signalConditionsASAP(NULL, pos=0) ... 1578s [00:52:58.776] - nx: 1 1578s [00:52:58.776] - relay: TRUE 1578s [00:52:58.777] - stdout: TRUE 1578s [00:52:58.777] - signal: TRUE 1578s [00:52:58.777] - resignal: FALSE 1578s [00:52:58.777] - force: TRUE 1578s [00:52:58.777] - relayed: [n=1] TRUE 1578s [00:52:58.777] - queued futures: [n=1] TRUE 1578s - flush all 1578s [00:52:58.778] - relayed: [n=1] TRUE 1578s [00:52:58.778] - queued futures: [n=1] TRUE 1578s [00:52:58.778] signalConditionsASAP(NULL, pos=0) ... done 1578s [00:52:58.778] resolve() on list ... DONE 1578s [00:52:58.778] - Number of value chunks collected: 1 1578s [00:52:58.778] Resolving 1 futures (chunks) ... DONE 1578s [00:52:58.779] Reducing values from 1 chunks ... 1578s [00:52:58.779] - Number of values collected after concatenation: 4 1578s [00:52:58.779] - Number of values expected: 4 1578s [00:52:58.779] Reducing values from 1 chunks ... DONE 1578s [00:52:58.779] future_lapply() ... DONE 1578s $ y0: num [1:3, 1:5, 1:4] 100 100 100 200 200 200 300 300 300 400 ... 1578s ..- attr(*, "dimnames")=List of 3 1578s .. ..$ : NULL 1578s .. ..$ : NULL 1578s .. ..$ : chr [1:4] "A" "B" "C" "D" 1578s $ y1: num [1:3, 1:5, 1:4] 100 100 100 200 200 200 300 300 300 400 ... 1578s ..- attr(*, "dimnames")=List of 3 1578s .. ..$ : NULL 1578s .. ..$ : NULL 1578s .. ..$ : chr [1:4] "A" "B" "C" "D" 1578s [00:52:58.787] future_lapply() ... 1578s [00:52:58.791] Number of chunks: 1 1578s [00:52:58.792] getGlobalsAndPackagesXApply() ... 1578s [00:52:58.792] - future.globals: TRUE 1578s [00:52:58.792] getGlobalsAndPackages() ... 1578s [00:52:58.792] Searching for globals... 1578s [00:52:58.793] - globals found: [1] ‘FUN’ 1578s [00:52:58.793] Searching for globals ... DONE 1578s [00:52:58.794] Resolving globals: FALSE 1578s [00:52:58.794] The total size of the 1 globals is 56 bytes (56 bytes) 1578s [00:52:58.795] The total size of the 1 globals exported for future expression (‘FUN()’) is 56 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (56 bytes of class ‘function’) 1578s [00:52:58.795] - globals: [1] ‘FUN’ 1578s [00:52:58.795] 1578s [00:52:58.795] getGlobalsAndPackages() ... DONE 1578s [00:52:58.796] - globals found/used: [n=1] ‘FUN’ 1578s [00:52:58.796] - needed namespaces: [n=0] 1578s [00:52:58.796] Finding globals ... DONE 1578s [00:52:58.796] - use_args: TRUE 1578s [00:52:58.797] - Getting '...' globals ... 1578s [00:52:58.797] resolve() on list ... 1578s [00:52:58.798] recursive: 0 1578s [00:52:58.798] length: 1 1578s [00:52:58.798] elements: ‘...’ 1578s [00:52:58.798] length: 0 (resolved future 1) 1578s [00:52:58.798] resolve() on list ... DONE 1578s [00:52:58.799] - '...' content: [n=0] 1578s [00:52:58.799] List of 1 1578s [00:52:58.799] $ ...: list() 1578s [00:52:58.799] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1578s [00:52:58.799] - attr(*, "where")=List of 1 1578s [00:52:58.799] ..$ ...: 1578s [00:52:58.799] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1578s [00:52:58.799] - attr(*, "resolved")= logi TRUE 1578s [00:52:58.799] - attr(*, "total_size")= num NA 1578s [00:52:58.804] - Getting '...' globals ... DONE 1578s [00:52:58.804] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1578s [00:52:58.805] List of 2 1578s [00:52:58.805] $ ...future.FUN:function (x) 1578s [00:52:58.805] $ ... : list() 1578s [00:52:58.805] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1578s [00:52:58.805] - attr(*, "where")=List of 2 1578s [00:52:58.805] ..$ ...future.FUN: 1578s [00:52:58.805] ..$ ... : 1578s [00:52:58.805] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1578s [00:52:58.805] - attr(*, "resolved")= logi FALSE 1578s [00:52:58.805] - attr(*, "total_size")= num 56 1578s [00:52:58.810] Packages to be attached in all futures: [n=0] 1578s [00:52:58.811] getGlobalsAndPackagesXApply() ... DONE 1578s [00:52:58.811] Number of futures (= number of chunks): 1 1578s [00:52:58.812] Launching 1 futures (chunks) ... 1578s [00:52:58.812] Chunk #1 of 1 ... 1578s [00:52:58.812] - Finding globals in 'X' for chunk #1 ... 1578s [00:52:58.813] getGlobalsAndPackages() ... 1578s [00:52:58.813] Searching for globals... 1578s [00:52:58.813] 1578s [00:52:58.814] Searching for globals ... DONE 1578s [00:52:58.814] - globals: [0] 1578s [00:52:58.815] getGlobalsAndPackages() ... DONE 1578s [00:52:58.815] + additional globals found: [n=0] 1578s [00:52:58.815] + additional namespaces needed: [n=0] 1578s [00:52:58.815] - Finding globals in 'X' for chunk #1 ... DONE 1578s [00:52:58.816] - seeds: 1578s [00:52:58.816] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1578s [00:52:58.816] getGlobalsAndPackages() ... 1578s [00:52:58.817] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1578s [00:52:58.817] Resolving globals: FALSE 1578s [00:52:58.817] Tweak future expression to call with '...' arguments ... 1578s [00:52:58.818] { 1578s [00:52:58.818] do.call(function(...) { 1578s [00:52:58.818] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1578s [00:52:58.818] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1578s [00:52:58.818] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1578s [00:52:58.818] on.exit(options(oopts), add = TRUE) 1578s [00:52:58.818] } 1578s [00:52:58.818] { 1578s [00:52:58.818] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1578s [00:52:58.818] ...future.X_jj <- ...future.elements_ii[[jj]] 1578s [00:52:58.818] ...future.FUN(...future.X_jj, ...) 1578s [00:52:58.818] }) 1578s [00:52:58.818] } 1578s [00:52:58.818] }, args = future.call.arguments) 1578s [00:52:58.818] } 1578s [00:52:58.819] Tweak future expression to call with '...' arguments ... DONE 1578s [00:52:58.819] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1578s [00:52:58.820] 1578s [00:52:58.820] getGlobalsAndPackages() ... DONE 1578s [00:52:58.820] run() for ‘Future’ ... 1578s [00:52:58.820] - state: ‘created’ 1578s [00:52:58.820] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1578s [00:52:58.825] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1578s [00:52:58.826] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1578s [00:52:58.826] - Field: ‘label’ 1578s [00:52:58.826] - Field: ‘local’ 1578s [00:52:58.826] - Field: ‘owner’ 1578s [00:52:58.826] - Field: ‘envir’ 1578s [00:52:58.827] - Field: ‘packages’ 1578s [00:52:58.827] - Field: ‘gc’ 1578s [00:52:58.827] - Field: ‘conditions’ 1578s [00:52:58.827] - Field: ‘expr’ 1578s [00:52:58.828] - Field: ‘uuid’ 1578s [00:52:58.828] - Field: ‘seed’ 1578s [00:52:58.828] - Field: ‘version’ 1578s [00:52:58.828] - Field: ‘result’ 1578s [00:52:58.828] - Field: ‘asynchronous’ 1578s [00:52:58.828] - Field: ‘calls’ 1578s [00:52:58.829] - Field: ‘globals’ 1578s [00:52:58.829] - Field: ‘stdout’ 1578s [00:52:58.829] - Field: ‘earlySignal’ 1578s [00:52:58.829] - Field: ‘lazy’ 1578s [00:52:58.830] - Field: ‘state’ 1578s [00:52:58.830] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1578s [00:52:58.830] - Launch lazy future ... 1578s [00:52:58.831] Packages needed by the future expression (n = 0): 1578s [00:52:58.831] Packages needed by future strategies (n = 0): 1578s [00:52:58.832] { 1578s [00:52:58.832] { 1578s [00:52:58.832] { 1578s [00:52:58.832] ...future.startTime <- base::Sys.time() 1578s [00:52:58.832] { 1578s [00:52:58.832] { 1578s [00:52:58.832] { 1578s [00:52:58.832] base::local({ 1578s [00:52:58.832] has_future <- base::requireNamespace("future", 1578s [00:52:58.832] quietly = TRUE) 1578s [00:52:58.832] if (has_future) { 1578s [00:52:58.832] ns <- base::getNamespace("future") 1578s [00:52:58.832] version <- ns[[".package"]][["version"]] 1578s [00:52:58.832] if (is.null(version)) 1578s [00:52:58.832] version <- utils::packageVersion("future") 1578s [00:52:58.832] } 1578s [00:52:58.832] else { 1578s [00:52:58.832] version <- NULL 1578s [00:52:58.832] } 1578s [00:52:58.832] if (!has_future || version < "1.8.0") { 1578s [00:52:58.832] info <- base::c(r_version = base::gsub("R version ", 1578s [00:52:58.832] "", base::R.version$version.string), 1578s [00:52:58.832] platform = base::sprintf("%s (%s-bit)", 1578s [00:52:58.832] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1578s [00:52:58.832] os = base::paste(base::Sys.info()[base::c("sysname", 1578s [00:52:58.832] "release", "version")], collapse = " "), 1578s [00:52:58.832] hostname = base::Sys.info()[["nodename"]]) 1578s [00:52:58.832] info <- base::sprintf("%s: %s", base::names(info), 1578s [00:52:58.832] info) 1578s [00:52:58.832] info <- base::paste(info, collapse = "; ") 1578s [00:52:58.832] if (!has_future) { 1578s [00:52:58.832] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1578s [00:52:58.832] info) 1578s [00:52:58.832] } 1578s [00:52:58.832] else { 1578s [00:52:58.832] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1578s [00:52:58.832] info, version) 1578s [00:52:58.832] } 1578s [00:52:58.832] base::stop(msg) 1578s [00:52:58.832] } 1578s [00:52:58.832] }) 1578s [00:52:58.832] } 1578s [00:52:58.832] options(future.plan = NULL) 1578s [00:52:58.832] Sys.unsetenv("R_FUTURE_PLAN") 1578s [00:52:58.832] future::plan("default", .cleanup = FALSE, .init = FALSE) 1578s [00:52:58.832] } 1578s [00:52:58.832] ...future.workdir <- getwd() 1578s [00:52:58.832] } 1578s [00:52:58.832] ...future.oldOptions <- base::as.list(base::.Options) 1578s [00:52:58.832] ...future.oldEnvVars <- base::Sys.getenv() 1578s [00:52:58.832] } 1578s [00:52:58.832] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1578s [00:52:58.832] future.globals.maxSize = NULL, future.globals.method = NULL, 1578s [00:52:58.832] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1578s [00:52:58.832] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1578s [00:52:58.832] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1578s [00:52:58.832] future.stdout.windows.reencode = NULL, width = 80L) 1578s [00:52:58.832] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1578s [00:52:58.832] base::names(...future.oldOptions)) 1578s [00:52:58.832] } 1578s [00:52:58.832] if (FALSE) { 1578s [00:52:58.832] } 1578s [00:52:58.832] else { 1578s [00:52:58.832] if (TRUE) { 1578s [00:52:58.832] ...future.stdout <- base::rawConnection(base::raw(0L), 1578s [00:52:58.832] open = "w") 1578s [00:52:58.832] } 1578s [00:52:58.832] else { 1578s [00:52:58.832] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1578s [00:52:58.832] windows = "NUL", "/dev/null"), open = "w") 1578s [00:52:58.832] } 1578s [00:52:58.832] base::sink(...future.stdout, type = "output", split = FALSE) 1578s [00:52:58.832] base::on.exit(if (!base::is.null(...future.stdout)) { 1578s [00:52:58.832] base::sink(type = "output", split = FALSE) 1578s [00:52:58.832] base::close(...future.stdout) 1578s [00:52:58.832] }, add = TRUE) 1578s [00:52:58.832] } 1578s [00:52:58.832] ...future.frame <- base::sys.nframe() 1578s [00:52:58.832] ...future.conditions <- base::list() 1578s [00:52:58.832] ...future.rng <- base::globalenv()$.Random.seed 1578s [00:52:58.832] if (FALSE) { 1578s [00:52:58.832] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1578s [00:52:58.832] "...future.value", "...future.globalenv.names", ".Random.seed") 1578s [00:52:58.832] } 1578s [00:52:58.832] ...future.result <- base::tryCatch({ 1578s [00:52:58.832] base::withCallingHandlers({ 1578s [00:52:58.832] ...future.value <- base::withVisible(base::local({ 1578s [00:52:58.832] do.call(function(...) { 1578s [00:52:58.832] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1578s [00:52:58.832] if (!identical(...future.globals.maxSize.org, 1578s [00:52:58.832] ...future.globals.maxSize)) { 1578s [00:52:58.832] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1578s [00:52:58.832] on.exit(options(oopts), add = TRUE) 1578s [00:52:58.832] } 1578s [00:52:58.832] { 1578s [00:52:58.832] lapply(seq_along(...future.elements_ii), 1578s [00:52:58.832] FUN = function(jj) { 1578s [00:52:58.832] ...future.X_jj <- ...future.elements_ii[[jj]] 1578s [00:52:58.832] ...future.FUN(...future.X_jj, ...) 1578s [00:52:58.832] }) 1578s [00:52:58.832] } 1578s [00:52:58.832] }, args = future.call.arguments) 1578s [00:52:58.832] })) 1578s [00:52:58.832] future::FutureResult(value = ...future.value$value, 1578s [00:52:58.832] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1578s [00:52:58.832] ...future.rng), globalenv = if (FALSE) 1578s [00:52:58.832] list(added = base::setdiff(base::names(base::.GlobalEnv), 1578s [00:52:58.832] ...future.globalenv.names)) 1578s [00:52:58.832] else NULL, started = ...future.startTime, version = "1.8") 1578s [00:52:58.832] }, condition = base::local({ 1578s [00:52:58.832] c <- base::c 1578s [00:52:58.832] inherits <- base::inherits 1578s [00:52:58.832] invokeRestart <- base::invokeRestart 1578s [00:52:58.832] length <- base::length 1578s [00:52:58.832] list <- base::list 1578s [00:52:58.832] seq.int <- base::seq.int 1578s [00:52:58.832] signalCondition <- base::signalCondition 1578s [00:52:58.832] sys.calls <- base::sys.calls 1578s [00:52:58.832] `[[` <- base::`[[` 1578s [00:52:58.832] `+` <- base::`+` 1578s [00:52:58.832] `<<-` <- base::`<<-` 1578s [00:52:58.832] sysCalls <- function(calls = sys.calls(), from = 1L) { 1578s [00:52:58.832] calls[seq.int(from = from + 12L, to = length(calls) - 1578s [00:52:58.832] 3L)] 1578s [00:52:58.832] } 1578s [00:52:58.832] function(cond) { 1578s [00:52:58.832] is_error <- inherits(cond, "error") 1578s [00:52:58.832] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1578s [00:52:58.832] NULL) 1578s [00:52:58.832] if (is_error) { 1578s [00:52:58.832] sessionInformation <- function() { 1578s [00:52:58.832] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1578s [00:52:58.832] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1578s [00:52:58.832] search = base::search(), system = base::Sys.info()) 1578s [00:52:58.832] } 1578s [00:52:58.832] ...future.conditions[[length(...future.conditions) + 1578s [00:52:58.832] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1578s [00:52:58.832] cond$call), session = sessionInformation(), 1578s [00:52:58.832] timestamp = base::Sys.time(), signaled = 0L) 1578s [00:52:58.832] signalCondition(cond) 1578s [00:52:58.832] } 1578s [00:52:58.832] else if (!ignore && TRUE && inherits(cond, c("condition", 1578s [00:52:58.832] "immediateCondition"))) { 1578s [00:52:58.832] signal <- TRUE && inherits(cond, "immediateCondition") 1578s [00:52:58.832] ...future.conditions[[length(...future.conditions) + 1578s [00:52:58.832] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1578s [00:52:58.832] if (TRUE && !signal) { 1578s [00:52:58.832] muffleCondition <- function (cond, pattern = "^muffle") 1578s [00:52:58.832] { 1578s [00:52:58.832] inherits <- base::inherits 1578s [00:52:58.832] invokeRestart <- base::invokeRestart 1578s [00:52:58.832] is.null <- base::is.null 1578s [00:52:58.832] muffled <- FALSE 1578s [00:52:58.832] if (inherits(cond, "message")) { 1578s [00:52:58.832] muffled <- grepl(pattern, "muffleMessage") 1578s [00:52:58.832] if (muffled) 1578s [00:52:58.832] invokeRestart("muffleMessage") 1578s [00:52:58.832] } 1578s [00:52:58.832] else if (inherits(cond, "warning")) { 1578s [00:52:58.832] muffled <- grepl(pattern, "muffleWarning") 1578s [00:52:58.832] if (muffled) 1578s [00:52:58.832] invokeRestart("muffleWarning") 1578s [00:52:58.832] } 1578s [00:52:58.832] else if (inherits(cond, "condition")) { 1578s [00:52:58.832] if (!is.null(pattern)) { 1578s [00:52:58.832] computeRestarts <- base::computeRestarts 1578s [00:52:58.832] grepl <- base::grepl 1578s [00:52:58.832] restarts <- computeRestarts(cond) 1578s [00:52:58.832] for (restart in restarts) { 1578s [00:52:58.832] name <- restart$name 1578s [00:52:58.832] if (is.null(name)) 1578s [00:52:58.832] next 1578s [00:52:58.832] if (!grepl(pattern, name)) 1578s [00:52:58.832] next 1578s [00:52:58.832] invokeRestart(restart) 1578s [00:52:58.832] muffled <- TRUE 1578s [00:52:58.832] break 1578s [00:52:58.832] } 1578s [00:52:58.832] } 1578s [00:52:58.832] } 1578s [00:52:58.832] invisible(muffled) 1578s [00:52:58.832] } 1578s [00:52:58.832] muffleCondition(cond, pattern = "^muffle") 1578s [00:52:58.832] } 1578s [00:52:58.832] } 1578s [00:52:58.832] else { 1578s [00:52:58.832] if (TRUE) { 1578s [00:52:58.832] muffleCondition <- function (cond, pattern = "^muffle") 1578s [00:52:58.832] { 1578s [00:52:58.832] inherits <- base::inherits 1578s [00:52:58.832] invokeRestart <- base::invokeRestart 1578s [00:52:58.832] is.null <- base::is.null 1578s [00:52:58.832] muffled <- FALSE 1578s [00:52:58.832] if (inherits(cond, "message")) { 1578s [00:52:58.832] muffled <- grepl(pattern, "muffleMessage") 1578s [00:52:58.832] if (muffled) 1578s [00:52:58.832] invokeRestart("muffleMessage") 1578s [00:52:58.832] } 1578s [00:52:58.832] else if (inherits(cond, "warning")) { 1578s [00:52:58.832] muffled <- grepl(pattern, "muffleWarning") 1578s [00:52:58.832] if (muffled) 1578s [00:52:58.832] invokeRestart("muffleWarning") 1578s [00:52:58.832] } 1578s [00:52:58.832] else if (inherits(cond, "condition")) { 1578s [00:52:58.832] if (!is.null(pattern)) { 1578s [00:52:58.832] computeRestarts <- base::computeRestarts 1578s [00:52:58.832] grepl <- base::grepl 1578s [00:52:58.832] restarts <- computeRestarts(cond) 1578s [00:52:58.832] for (restart in restarts) { 1578s [00:52:58.832] name <- restart$name 1578s [00:52:58.832] if (is.null(name)) 1578s [00:52:58.832] next 1578s [00:52:58.832] if (!grepl(pattern, name)) 1578s [00:52:58.832] next 1578s [00:52:58.832] invokeRestart(restart) 1578s [00:52:58.832] muffled <- TRUE 1578s [00:52:58.832] break 1578s [00:52:58.832] } 1578s [00:52:58.832] } 1578s [00:52:58.832] } 1578s [00:52:58.832] invisible(muffled) 1578s [00:52:58.832] } 1578s [00:52:58.832] muffleCondition(cond, pattern = "^muffle") 1578s [00:52:58.832] } 1578s [00:52:58.832] } 1578s [00:52:58.832] } 1578s [00:52:58.832] })) 1578s [00:52:58.832] }, error = function(ex) { 1578s [00:52:58.832] base::structure(base::list(value = NULL, visible = NULL, 1578s [00:52:58.832] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1578s [00:52:58.832] ...future.rng), started = ...future.startTime, 1578s [00:52:58.832] finished = Sys.time(), session_uuid = NA_character_, 1578s [00:52:58.832] version = "1.8"), class = "FutureResult") 1578s [00:52:58.832] }, finally = { 1578s [00:52:58.832] if (!identical(...future.workdir, getwd())) 1578s [00:52:58.832] setwd(...future.workdir) 1578s [00:52:58.832] { 1578s [00:52:58.832] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1578s [00:52:58.832] ...future.oldOptions$nwarnings <- NULL 1578s [00:52:58.832] } 1578s [00:52:58.832] base::options(...future.oldOptions) 1578s [00:52:58.832] if (.Platform$OS.type == "windows") { 1578s [00:52:58.832] old_names <- names(...future.oldEnvVars) 1578s [00:52:58.832] envs <- base::Sys.getenv() 1578s [00:52:58.832] names <- names(envs) 1578s [00:52:58.832] common <- intersect(names, old_names) 1578s [00:52:58.832] added <- setdiff(names, old_names) 1578s [00:52:58.832] removed <- setdiff(old_names, names) 1578s [00:52:58.832] changed <- common[...future.oldEnvVars[common] != 1578s [00:52:58.832] envs[common]] 1578s [00:52:58.832] NAMES <- toupper(changed) 1578s [00:52:58.832] args <- list() 1578s [00:52:58.832] for (kk in seq_along(NAMES)) { 1578s [00:52:58.832] name <- changed[[kk]] 1578s [00:52:58.832] NAME <- NAMES[[kk]] 1578s [00:52:58.832] if (name != NAME && is.element(NAME, old_names)) 1578s [00:52:58.832] next 1578s [00:52:58.832] args[[name]] <- ...future.oldEnvVars[[name]] 1578s [00:52:58.832] } 1578s [00:52:58.832] NAMES <- toupper(added) 1578s [00:52:58.832] for (kk in seq_along(NAMES)) { 1578s [00:52:58.832] name <- added[[kk]] 1578s [00:52:58.832] NAME <- NAMES[[kk]] 1578s [00:52:58.832] if (name != NAME && is.element(NAME, old_names)) 1578s [00:52:58.832] next 1578s [00:52:58.832] args[[name]] <- "" 1578s [00:52:58.832] } 1578s [00:52:58.832] NAMES <- toupper(removed) 1578s [00:52:58.832] for (kk in seq_along(NAMES)) { 1578s [00:52:58.832] name <- removed[[kk]] 1578s [00:52:58.832] NAME <- NAMES[[kk]] 1578s [00:52:58.832] if (name != NAME && is.element(NAME, old_names)) 1578s [00:52:58.832] next 1578s [00:52:58.832] args[[name]] <- ...future.oldEnvVars[[name]] 1578s [00:52:58.832] } 1578s [00:52:58.832] if (length(args) > 0) 1578s [00:52:58.832] base::do.call(base::Sys.setenv, args = args) 1578s [00:52:58.832] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1578s [00:52:58.832] } 1578s [00:52:58.832] else { 1578s [00:52:58.832] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1578s [00:52:58.832] } 1578s [00:52:58.832] { 1578s [00:52:58.832] if (base::length(...future.futureOptionsAdded) > 1578s [00:52:58.832] 0L) { 1578s [00:52:58.832] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1578s [00:52:58.832] base::names(opts) <- ...future.futureOptionsAdded 1578s [00:52:58.832] base::options(opts) 1578s [00:52:58.832] } 1578s [00:52:58.832] { 1578s [00:52:58.832] { 1578s [00:52:58.832] NULL 1578s [00:52:58.832] RNGkind("Mersenne-Twister") 1578s [00:52:58.832] base::rm(list = ".Random.seed", envir = base::globalenv(), 1578s [00:52:58.832] inherits = FALSE) 1578s [00:52:58.832] } 1578s [00:52:58.832] options(future.plan = NULL) 1578s [00:52:58.832] if (is.na(NA_character_)) 1578s [00:52:58.832] Sys.unsetenv("R_FUTURE_PLAN") 1578s [00:52:58.832] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1578s [00:52:58.832] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1578s [00:52:58.832] envir = parent.frame()) 1578s [00:52:58.832] { 1578s [00:52:58.832] default_workers <- missing(workers) 1578s [00:52:58.832] if (is.function(workers)) 1578s [00:52:58.832] workers <- workers() 1578s [00:52:58.832] workers <- structure(as.integer(workers), 1578s [00:52:58.832] class = class(workers)) 1578s [00:52:58.832] stop_if_not(is.finite(workers), workers >= 1578s [00:52:58.832] 1L) 1578s [00:52:58.832] if ((workers == 1L && !inherits(workers, 1578s [00:52:58.832] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1578s [00:52:58.832] if (default_workers) 1578s [00:52:58.832] supportsMulticore(warn = TRUE) 1578s [00:52:58.832] return(sequential(..., envir = envir)) 1578s [00:52:58.832] } 1578s [00:52:58.832] oopts <- options(mc.cores = workers) 1578s [00:52:58.832] on.exit(options(oopts)) 1578s [00:52:58.832] future <- MulticoreFuture(..., workers = workers, 1578s [00:52:58.832] envir = envir) 1578s [00:52:58.832] if (!future$lazy) 1578s [00:52:58.832] future <- run(future) 1578s [00:52:58.832] invisible(future) 1578s [00:52:58.832] }), .cleanup = FALSE, .init = FALSE) 1578s [00:52:58.832] } 1578s [00:52:58.832] } 1578s [00:52:58.832] } 1578s [00:52:58.832] }) 1578s [00:52:58.832] if (TRUE) { 1578s [00:52:58.832] base::sink(type = "output", split = FALSE) 1578s [00:52:58.832] if (TRUE) { 1578s [00:52:58.832] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1578s [00:52:58.832] } 1578s [00:52:58.832] else { 1578s [00:52:58.832] ...future.result["stdout"] <- base::list(NULL) 1578s [00:52:58.832] } 1578s [00:52:58.832] base::close(...future.stdout) 1578s [00:52:58.832] ...future.stdout <- NULL 1578s [00:52:58.832] } 1578s [00:52:58.832] ...future.result$conditions <- ...future.conditions 1578s [00:52:58.832] ...future.result$finished <- base::Sys.time() 1578s [00:52:58.832] ...future.result 1578s [00:52:58.832] } 1578s [00:52:58.839] assign_globals() ... 1578s [00:52:58.839] List of 5 1578s [00:52:58.839] $ ...future.FUN :function (x) 1578s [00:52:58.839] $ future.call.arguments : list() 1578s [00:52:58.839] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1578s [00:52:58.839] $ ...future.elements_ii :List of 3 1578s [00:52:58.839] ..$ : int 1 1578s [00:52:58.839] ..$ : int 2 1578s [00:52:58.839] ..$ : int 3 1578s [00:52:58.839] $ ...future.seeds_ii : NULL 1578s [00:52:58.839] $ ...future.globals.maxSize: NULL 1578s [00:52:58.839] - attr(*, "where")=List of 5 1578s [00:52:58.839] ..$ ...future.FUN : 1578s [00:52:58.839] ..$ future.call.arguments : 1578s [00:52:58.839] ..$ ...future.elements_ii : 1578s [00:52:58.839] ..$ ...future.seeds_ii : 1578s [00:52:58.839] ..$ ...future.globals.maxSize: 1578s [00:52:58.839] - attr(*, "resolved")= logi FALSE 1578s [00:52:58.839] - attr(*, "total_size")= num 56 1578s [00:52:58.839] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1578s [00:52:58.839] - attr(*, "already-done")= logi TRUE 1578s [00:52:58.848] - copied ‘...future.FUN’ to environment 1578s [00:52:58.848] - copied ‘future.call.arguments’ to environment 1578s [00:52:58.848] - copied ‘...future.elements_ii’ to environment 1578s [00:52:58.848] - copied ‘...future.seeds_ii’ to environment 1578s [00:52:58.849] - copied ‘...future.globals.maxSize’ to environment 1578s [00:52:58.849] assign_globals() ... done 1578s [00:52:58.849] plan(): Setting new future strategy stack: 1578s [00:52:58.850] List of future strategies: 1578s [00:52:58.850] 1. sequential: 1578s [00:52:58.850] - args: function (..., envir = parent.frame()) 1578s [00:52:58.850] - tweaked: FALSE 1578s [00:52:58.850] - call: NULL 1578s [00:52:58.850] plan(): nbrOfWorkers() = 1 1578s [00:52:58.851] plan(): Setting new future strategy stack: 1578s [00:52:58.851] List of future strategies: 1578s [00:52:58.851] 1. multicore: 1578s [00:52:58.851] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1578s [00:52:58.851] - tweaked: FALSE 1578s [00:52:58.851] - call: plan(strategy) 1578s [00:52:58.856] plan(): nbrOfWorkers() = 1 1578s [00:52:58.856] SequentialFuture started (and completed) 1578s [00:52:58.856] - Launch lazy future ... done 1578s [00:52:58.857] run() for ‘SequentialFuture’ ... done 1578s [00:52:58.857] Created future: 1578s [00:52:58.857] SequentialFuture: 1578s [00:52:58.857] Label: ‘future_sapply-1’ 1578s [00:52:58.857] Expression: 1578s [00:52:58.857] { 1578s [00:52:58.857] do.call(function(...) { 1578s [00:52:58.857] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1578s [00:52:58.857] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1578s [00:52:58.857] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1578s [00:52:58.857] on.exit(options(oopts), add = TRUE) 1578s [00:52:58.857] } 1578s [00:52:58.857] { 1578s [00:52:58.857] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1578s [00:52:58.857] ...future.X_jj <- ...future.elements_ii[[jj]] 1578s [00:52:58.857] ...future.FUN(...future.X_jj, ...) 1578s [00:52:58.857] }) 1578s [00:52:58.857] } 1578s [00:52:58.857] }, args = future.call.arguments) 1578s [00:52:58.857] } 1578s [00:52:58.857] Lazy evaluation: FALSE 1578s [00:52:58.857] Asynchronous evaluation: FALSE 1578s [00:52:58.857] Local evaluation: TRUE 1578s [00:52:58.857] Environment: R_GlobalEnv 1578s [00:52:58.857] Capture standard output: TRUE 1578s [00:52:58.857] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1578s [00:52:58.857] Globals: 5 objects totaling 224 bytes (function ‘...future.FUN’ of 56 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1578s [00:52:58.857] Packages: 1578s [00:52:58.857] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1578s [00:52:58.857] Resolved: TRUE 1578s [00:52:58.857] Value: 168 bytes of class ‘list’ 1578s [00:52:58.857] Early signaling: FALSE 1578s [00:52:58.857] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1578s [00:52:58.857] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1578s [00:52:58.859] Chunk #1 of 1 ... DONE 1578s [00:52:58.859] Launching 1 futures (chunks) ... DONE 1578s [00:52:58.859] Resolving 1 futures (chunks) ... 1578s [00:52:58.859] resolve() on list ... 1578s [00:52:58.859] recursive: 0 1578s [00:52:58.860] length: 1 1578s [00:52:58.860] 1578s [00:52:58.860] resolved() for ‘SequentialFuture’ ... 1578s [00:52:58.860] - state: ‘finished’ 1578s [00:52:58.860] - run: TRUE 1578s [00:52:58.860] - result: ‘FutureResult’ 1578s [00:52:58.861] resolved() for ‘SequentialFuture’ ... done 1578s [00:52:58.861] Future #1 1578s [00:52:58.861] signalConditionsASAP(SequentialFuture, pos=1) ... 1578s [00:52:58.861] - nx: 1 1578s [00:52:58.861] - relay: TRUE 1578s [00:52:58.862] - stdout: TRUE 1578s [00:52:58.862] - signal: TRUE 1578s [00:52:58.862] - resignal: FALSE 1578s [00:52:58.863] - force: TRUE 1578s [00:52:58.863] - relayed: [n=1] FALSE 1578s [00:52:58.863] - queued futures: [n=1] FALSE 1578s [00:52:58.863] - until=1 1578s [00:52:58.863] - relaying element #1 1578s [00:52:58.864] - relayed: [n=1] TRUE 1578s [00:52:58.864] - queued futures: [n=1] TRUE 1578s [00:52:58.864] signalConditionsASAP(SequentialFuture, pos=1) ... done 1578s [00:52:58.865] length: 0 (resolved future 1) 1578s [00:52:58.865] Relaying remaining futures 1578s [00:52:58.865] signalConditionsASAP(NULL, pos=0) ... 1578s [00:52:58.865] - nx: 1 1578s [00:52:58.865] - relay: TRUE 1578s [00:52:58.865] - stdout: TRUE 1578s [00:52:58.865] - signal: TRUE 1578s [00:52:58.865] - resignal: FALSE 1578s [00:52:58.865] - force: TRUE 1578s [00:52:58.866] - relayed: [n=1] TRUE 1578s [00:52:58.866] - queued futures: [n=1] TRUE 1578s - flush all 1578s [00:52:58.866] - relayed: [n=1] TRUE 1578s [00:52:58.866] - queued futures: [n=1] TRUE 1578s [00:52:58.866] signalConditionsASAP(NULL, pos=0) ... done 1578s [00:52:58.866] resolve() on list ... DONE 1578s [00:52:58.866] - Number of value chunks collected: 1 1578s [00:52:58.867] Resolving 1 futures (chunks) ... DONE 1578s [00:52:58.867] Reducing values from 1 chunks ... 1578s [00:52:58.867] - Number of values collected after concatenation: 3 1578s [00:52:58.867] - Number of values expected: 3 1578s [00:52:58.867] Reducing values from 1 chunks ... DONE 1578s [00:52:58.867] future_lapply() ... DONE 1578s [00:52:58.867] future_lapply() ... 1578s [00:52:58.872] Number of chunks: 1 1578s [00:52:58.873] getGlobalsAndPackagesXApply() ... 1578s [00:52:58.873] - future.globals: TRUE 1578s [00:52:58.873] getGlobalsAndPackages() ... 1578s [00:52:58.873] Searching for globals... 1578s [00:52:58.876] - globals found: [4] ‘FUN’, ‘compute’, ‘...’, ‘+’ 1578s [00:52:58.876] Searching for globals ... DONE 1578s [00:52:58.876] Resolving globals: FALSE 1578s [00:52:58.876] Tweak future expression to call with '...' arguments ... 1578s [00:52:58.877] { 1578s [00:52:58.877] do.call(function(...) FUN(), args = future.call.arguments) 1578s [00:52:58.877] } 1578s [00:52:58.877] Tweak future expression to call with '...' arguments ... DONE 1578s [00:52:58.878] The total size of the 3 globals is 3.92 KiB (4016 bytes) 1578s [00:52:58.878] The total size of the 3 globals exported for future expression (‘FUN()’) is 3.92 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are three globals: ‘FUN’ (2.43 KiB of class ‘function’), ‘compute’ (1.44 KiB of class ‘function’) and ‘future.call.arguments’ (56 bytes of class ‘list’) 1578s [00:52:58.879] - globals: [3] ‘FUN’, ‘compute’, ‘future.call.arguments’ 1578s [00:52:58.879] 1578s [00:52:58.879] getGlobalsAndPackages() ... DONE 1578s [00:52:58.879] - globals found/used: [n=3] ‘FUN’, ‘compute’, ‘future.call.arguments’ 1578s [00:52:58.879] - needed namespaces: [n=0] 1578s [00:52:58.879] Finding globals ... DONE 1578s [00:52:58.880] - use_args: TRUE 1578s [00:52:58.880] - Getting '...' globals ... 1578s [00:52:58.881] resolve() on list ... 1578s [00:52:58.881] recursive: 0 1578s [00:52:58.881] length: 1 1578s [00:52:58.881] elements: ‘...’ 1578s [00:52:58.881] length: 0 (resolved future 1) 1578s [00:52:58.882] resolve() on list ... DONE 1578s [00:52:58.882] - '...' content: [n=0] 1578s [00:52:58.882] List of 1 1578s [00:52:58.882] $ ...: list() 1578s [00:52:58.882] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1578s [00:52:58.882] - attr(*, "where")=List of 1 1578s [00:52:58.882] ..$ ...: 1578s [00:52:58.882] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1578s [00:52:58.882] - attr(*, "resolved")= logi TRUE 1578s [00:52:58.882] - attr(*, "total_size")= num NA 1578s [00:52:58.886] - Getting '...' globals ... DONE 1578s [00:52:58.887] Globals to be used in all futures (chunks): [n=4] ‘...future.FUN’, ‘compute’, ‘future.call.arguments’, ‘...’ 1578s [00:52:58.887] List of 4 1578s [00:52:58.887] $ ...future.FUN :function (x) 1578s [00:52:58.887] $ compute :function (a, x_vec) 1578s [00:52:58.887] $ future.call.arguments:List of 1 1578s [00:52:58.887] ..$ : int 0 1578s [00:52:58.887] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1578s [00:52:58.887] $ ... : list() 1578s [00:52:58.887] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1578s [00:52:58.887] - attr(*, "where")=List of 4 1578s [00:52:58.887] ..$ ...future.FUN : 1578s [00:52:58.887] ..$ compute : 1578s [00:52:58.887] ..$ future.call.arguments: 1578s [00:52:58.887] ..$ ... : 1578s [00:52:58.887] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1578s [00:52:58.887] - attr(*, "resolved")= logi FALSE 1578s [00:52:58.887] - attr(*, "total_size")= num 4016 1578s [00:52:58.901] Packages to be attached in all futures: [n=0] 1578s [00:52:58.901] getGlobalsAndPackagesXApply() ... DONE 1578s [00:52:58.901] Number of futures (= number of chunks): 1 1578s [00:52:58.901] Launching 1 futures (chunks) ... 1578s [00:52:58.901] Chunk #1 of 1 ... 1578s [00:52:58.902] - Finding globals in 'X' for chunk #1 ... 1578s [00:52:58.902] getGlobalsAndPackages() ... 1578s [00:52:58.902] Searching for globals... 1578s [00:52:58.902] 1578s [00:52:58.902] Searching for globals ... DONE 1578s [00:52:58.903] - globals: [0] 1578s [00:52:58.903] getGlobalsAndPackages() ... DONE 1578s [00:52:58.903] + additional globals found: [n=0] 1578s [00:52:58.903] + additional namespaces needed: [n=0] 1578s [00:52:58.903] - Finding globals in 'X' for chunk #1 ... DONE 1578s [00:52:58.903] - seeds: 1578s [00:52:58.903] - All globals exported: [n=7] ‘...future.FUN’, ‘compute’, ‘future.call.arguments’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1578s [00:52:58.904] getGlobalsAndPackages() ... 1578s [00:52:58.904] - globals passed as-is: [7] ‘...future.FUN’, ‘compute’, ‘future.call.arguments’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1578s [00:52:58.904] Resolving globals: FALSE 1578s [00:52:58.904] Tweak future expression to call with '...' arguments ... 1578s [00:52:58.904] - Detected 2 'future.call.arguments' global entries: 1578s [00:52:58.905] List of 2 1578s [00:52:58.905] $ future.call.arguments:List of 1 1578s [00:52:58.905] ..$ : int 0 1578s [00:52:58.905] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1578s [00:52:58.905] $ future.call.arguments: list() 1578s [00:52:58.905] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1578s [00:52:58.905] - attr(*, "where")=List of 2 1578s [00:52:58.905] ..$ future.call.arguments: 1578s [00:52:58.905] ..$ future.call.arguments: 1578s [00:52:58.905] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1578s [00:52:58.905] - attr(*, "resolved")= logi FALSE 1578s [00:52:58.905] - attr(*, "total_size")= num 4016 1578s [00:52:58.910] future.call.arguments future.call.arguments 1578s [00:52:58.910] 1 0 1578s [00:52:58.911] - 'future.call.arguments' global entries: 1578s [00:52:58.911] List of 2 1578s [00:52:58.911] $ future.call.arguments:List of 1 1578s [00:52:58.911] ..$ : int 0 1578s [00:52:58.911] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1578s [00:52:58.911] $ ...future.elements_ii:List of 2 1578s [00:52:58.911] ..$ : int 1 1578s [00:52:58.911] ..$ : int 2 1578s [00:52:58.911] - attr(*, "where")=List of 2 1578s [00:52:58.911] ..$ future.call.arguments: 1578s [00:52:58.911] ..$ ...future.elements_ii: 1578s [00:52:58.911] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1578s [00:52:58.911] - attr(*, "resolved")= logi FALSE 1578s [00:52:58.911] - attr(*, "total_size")= num 4016 1578s [00:52:58.918] { 1578s [00:52:58.918] do.call(function(...) { 1578s [00:52:58.918] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1578s [00:52:58.918] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1578s [00:52:58.918] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1578s [00:52:58.918] on.exit(options(oopts), add = TRUE) 1578s [00:52:58.918] } 1578s [00:52:58.918] { 1578s [00:52:58.918] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1578s [00:52:58.918] ...future.X_jj <- ...future.elements_ii[[jj]] 1578s [00:52:58.918] ...future.FUN(...future.X_jj) 1578s [00:52:58.918] }) 1578s [00:52:58.918] } 1578s [00:52:58.918] }, args = future.call.arguments) 1578s [00:52:58.918] } 1578s [00:52:58.919] Tweak future expression to call with '...' arguments ... DONE 1578s [00:52:58.920] - globals: [6] ‘...future.FUN’, ‘compute’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1578s [00:52:58.920] 1578s [00:52:58.920] getGlobalsAndPackages() ... DONE 1578s [00:52:58.921] run() for ‘Future’ ... 1578s [00:52:58.921] - state: ‘created’ 1578s [00:52:58.921] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1578s [00:52:58.926] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1578s [00:52:58.926] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1578s [00:52:58.926] - Field: ‘label’ 1578s [00:52:58.927] - Field: ‘local’ 1578s [00:52:58.927] - Field: ‘owner’ 1578s [00:52:58.928] - Field: ‘envir’ 1578s [00:52:58.928] - Field: ‘packages’ 1578s [00:52:58.928] - Field: ‘gc’ 1578s [00:52:58.929] - Field: ‘conditions’ 1578s [00:52:58.929] - Field: ‘expr’ 1578s [00:52:58.929] - Field: ‘uuid’ 1578s [00:52:58.929] - Field: ‘seed’ 1578s [00:52:58.929] - Field: ‘version’ 1578s [00:52:58.929] - Field: ‘result’ 1578s [00:52:58.930] - Field: ‘asynchronous’ 1578s [00:52:58.930] - Field: ‘calls’ 1578s [00:52:58.930] - Field: ‘globals’ 1578s [00:52:58.931] - Field: ‘stdout’ 1578s [00:52:58.931] - Field: ‘earlySignal’ 1578s [00:52:58.931] - Field: ‘lazy’ 1578s [00:52:58.931] - Field: ‘state’ 1578s [00:52:58.931] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1578s [00:52:58.931] - Launch lazy future ... 1578s [00:52:58.932] Packages needed by the future expression (n = 0): 1578s [00:52:58.932] Packages needed by future strategies (n = 0): 1578s [00:52:58.933] { 1578s [00:52:58.933] { 1578s [00:52:58.933] { 1578s [00:52:58.933] ...future.startTime <- base::Sys.time() 1578s [00:52:58.933] { 1578s [00:52:58.933] { 1578s [00:52:58.933] { 1578s [00:52:58.933] base::local({ 1578s [00:52:58.933] has_future <- base::requireNamespace("future", 1578s [00:52:58.933] quietly = TRUE) 1578s [00:52:58.933] if (has_future) { 1578s [00:52:58.933] ns <- base::getNamespace("future") 1578s [00:52:58.933] version <- ns[[".package"]][["version"]] 1578s [00:52:58.933] if (is.null(version)) 1578s [00:52:58.933] version <- utils::packageVersion("future") 1578s [00:52:58.933] } 1578s [00:52:58.933] else { 1578s [00:52:58.933] version <- NULL 1578s [00:52:58.933] } 1578s [00:52:58.933] if (!has_future || version < "1.8.0") { 1578s [00:52:58.933] info <- base::c(r_version = base::gsub("R version ", 1578s [00:52:58.933] "", base::R.version$version.string), 1578s [00:52:58.933] platform = base::sprintf("%s (%s-bit)", 1578s [00:52:58.933] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1578s [00:52:58.933] os = base::paste(base::Sys.info()[base::c("sysname", 1578s [00:52:58.933] "release", "version")], collapse = " "), 1578s [00:52:58.933] hostname = base::Sys.info()[["nodename"]]) 1578s [00:52:58.933] info <- base::sprintf("%s: %s", base::names(info), 1578s [00:52:58.933] info) 1578s [00:52:58.933] info <- base::paste(info, collapse = "; ") 1578s [00:52:58.933] if (!has_future) { 1578s [00:52:58.933] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1578s [00:52:58.933] info) 1578s [00:52:58.933] } 1578s [00:52:58.933] else { 1578s [00:52:58.933] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1578s [00:52:58.933] info, version) 1578s [00:52:58.933] } 1578s [00:52:58.933] base::stop(msg) 1578s [00:52:58.933] } 1578s [00:52:58.933] }) 1578s [00:52:58.933] } 1578s [00:52:58.933] options(future.plan = NULL) 1578s [00:52:58.933] Sys.unsetenv("R_FUTURE_PLAN") 1578s [00:52:58.933] future::plan("default", .cleanup = FALSE, .init = FALSE) 1578s [00:52:58.933] } 1578s [00:52:58.933] ...future.workdir <- getwd() 1578s [00:52:58.933] } 1578s [00:52:58.933] ...future.oldOptions <- base::as.list(base::.Options) 1578s [00:52:58.933] ...future.oldEnvVars <- base::Sys.getenv() 1578s [00:52:58.933] } 1578s [00:52:58.933] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1578s [00:52:58.933] future.globals.maxSize = NULL, future.globals.method = NULL, 1578s [00:52:58.933] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1578s [00:52:58.933] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1578s [00:52:58.933] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1578s [00:52:58.933] future.stdout.windows.reencode = NULL, width = 80L) 1578s [00:52:58.933] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1578s [00:52:58.933] base::names(...future.oldOptions)) 1578s [00:52:58.933] } 1578s [00:52:58.933] if (FALSE) { 1578s [00:52:58.933] } 1578s [00:52:58.933] else { 1578s [00:52:58.933] if (TRUE) { 1578s [00:52:58.933] ...future.stdout <- base::rawConnection(base::raw(0L), 1578s [00:52:58.933] open = "w") 1578s [00:52:58.933] } 1578s [00:52:58.933] else { 1578s [00:52:58.933] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1578s [00:52:58.933] windows = "NUL", "/dev/null"), open = "w") 1578s [00:52:58.933] } 1578s [00:52:58.933] base::sink(...future.stdout, type = "output", split = FALSE) 1578s [00:52:58.933] base::on.exit(if (!base::is.null(...future.stdout)) { 1578s [00:52:58.933] base::sink(type = "output", split = FALSE) 1578s [00:52:58.933] base::close(...future.stdout) 1578s [00:52:58.933] }, add = TRUE) 1578s [00:52:58.933] } 1578s [00:52:58.933] ...future.frame <- base::sys.nframe() 1578s [00:52:58.933] ...future.conditions <- base::list() 1578s [00:52:58.933] ...future.rng <- base::globalenv()$.Random.seed 1578s [00:52:58.933] if (FALSE) { 1578s [00:52:58.933] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1578s [00:52:58.933] "...future.value", "...future.globalenv.names", ".Random.seed") 1578s [00:52:58.933] } 1578s [00:52:58.933] ...future.result <- base::tryCatch({ 1578s [00:52:58.933] base::withCallingHandlers({ 1578s [00:52:58.933] ...future.value <- base::withVisible(base::local({ 1578s [00:52:58.933] do.call(function(...) { 1578s [00:52:58.933] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1578s [00:52:58.933] if (!identical(...future.globals.maxSize.org, 1578s [00:52:58.933] ...future.globals.maxSize)) { 1578s [00:52:58.933] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1578s [00:52:58.933] on.exit(options(oopts), add = TRUE) 1578s [00:52:58.933] } 1578s [00:52:58.933] { 1578s [00:52:58.933] lapply(seq_along(...future.elements_ii), 1578s [00:52:58.933] FUN = function(jj) { 1578s [00:52:58.933] ...future.X_jj <- ...future.elements_ii[[jj]] 1578s [00:52:58.933] ...future.FUN(...future.X_jj) 1578s [00:52:58.933] }) 1578s [00:52:58.933] } 1578s [00:52:58.933] }, args = future.call.arguments) 1578s [00:52:58.933] })) 1578s [00:52:58.933] future::FutureResult(value = ...future.value$value, 1578s [00:52:58.933] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1578s [00:52:58.933] ...future.rng), globalenv = if (FALSE) 1578s [00:52:58.933] list(added = base::setdiff(base::names(base::.GlobalEnv), 1578s [00:52:58.933] ...future.globalenv.names)) 1578s [00:52:58.933] else NULL, started = ...future.startTime, version = "1.8") 1578s [00:52:58.933] }, condition = base::local({ 1578s [00:52:58.933] c <- base::c 1578s [00:52:58.933] inherits <- base::inherits 1578s [00:52:58.933] invokeRestart <- base::invokeRestart 1578s [00:52:58.933] length <- base::length 1578s [00:52:58.933] list <- base::list 1578s [00:52:58.933] seq.int <- base::seq.int 1578s [00:52:58.933] signalCondition <- base::signalCondition 1578s [00:52:58.933] sys.calls <- base::sys.calls 1578s [00:52:58.933] `[[` <- base::`[[` 1578s [00:52:58.933] `+` <- base::`+` 1578s [00:52:58.933] `<<-` <- base::`<<-` 1578s [00:52:58.933] sysCalls <- function(calls = sys.calls(), from = 1L) { 1578s [00:52:58.933] calls[seq.int(from = from + 12L, to = length(calls) - 1578s [00:52:58.933] 3L)] 1578s [00:52:58.933] } 1578s [00:52:58.933] function(cond) { 1578s [00:52:58.933] is_error <- inherits(cond, "error") 1578s [00:52:58.933] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1578s [00:52:58.933] NULL) 1578s [00:52:58.933] if (is_error) { 1578s [00:52:58.933] sessionInformation <- function() { 1578s [00:52:58.933] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1578s [00:52:58.933] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1578s [00:52:58.933] search = base::search(), system = base::Sys.info()) 1578s [00:52:58.933] } 1578s [00:52:58.933] ...future.conditions[[length(...future.conditions) + 1578s [00:52:58.933] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1578s [00:52:58.933] cond$call), session = sessionInformation(), 1578s [00:52:58.933] timestamp = base::Sys.time(), signaled = 0L) 1578s [00:52:58.933] signalCondition(cond) 1578s [00:52:58.933] } 1578s [00:52:58.933] else if (!ignore && TRUE && inherits(cond, c("condition", 1578s [00:52:58.933] "immediateCondition"))) { 1578s [00:52:58.933] signal <- TRUE && inherits(cond, "immediateCondition") 1578s [00:52:58.933] ...future.conditions[[length(...future.conditions) + 1578s [00:52:58.933] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1578s [00:52:58.933] if (TRUE && !signal) { 1578s [00:52:58.933] muffleCondition <- function (cond, pattern = "^muffle") 1578s [00:52:58.933] { 1578s [00:52:58.933] inherits <- base::inherits 1578s [00:52:58.933] invokeRestart <- base::invokeRestart 1578s [00:52:58.933] is.null <- base::is.null 1578s [00:52:58.933] muffled <- FALSE 1578s [00:52:58.933] if (inherits(cond, "message")) { 1578s [00:52:58.933] muffled <- grepl(pattern, "muffleMessage") 1578s [00:52:58.933] if (muffled) 1578s [00:52:58.933] invokeRestart("muffleMessage") 1578s [00:52:58.933] } 1578s [00:52:58.933] else if (inherits(cond, "warning")) { 1578s [00:52:58.933] muffled <- grepl(pattern, "muffleWarning") 1578s [00:52:58.933] if (muffled) 1578s [00:52:58.933] invokeRestart("muffleWarning") 1578s [00:52:58.933] } 1578s [00:52:58.933] else if (inherits(cond, "condition")) { 1578s [00:52:58.933] if (!is.null(pattern)) { 1578s [00:52:58.933] computeRestarts <- base::computeRestarts 1578s [00:52:58.933] grepl <- base::grepl 1578s [00:52:58.933] restarts <- computeRestarts(cond) 1578s [00:52:58.933] for (restart in restarts) { 1578s [00:52:58.933] name <- restart$name 1578s [00:52:58.933] if (is.null(name)) 1578s [00:52:58.933] next 1578s [00:52:58.933] if (!grepl(pattern, name)) 1578s [00:52:58.933] next 1578s [00:52:58.933] invokeRestart(restart) 1578s [00:52:58.933] muffled <- TRUE 1578s [00:52:58.933] break 1578s [00:52:58.933] } 1578s [00:52:58.933] } 1578s [00:52:58.933] } 1578s [00:52:58.933] invisible(muffled) 1578s [00:52:58.933] } 1578s [00:52:58.933] muffleCondition(cond, pattern = "^muffle") 1578s [00:52:58.933] } 1578s [00:52:58.933] } 1578s [00:52:58.933] else { 1578s [00:52:58.933] if (TRUE) { 1578s [00:52:58.933] muffleCondition <- function (cond, pattern = "^muffle") 1578s [00:52:58.933] { 1578s [00:52:58.933] inherits <- base::inherits 1578s [00:52:58.933] invokeRestart <- base::invokeRestart 1578s [00:52:58.933] is.null <- base::is.null 1578s [00:52:58.933] muffled <- FALSE 1578s [00:52:58.933] if (inherits(cond, "message")) { 1578s [00:52:58.933] muffled <- grepl(pattern, "muffleMessage") 1578s [00:52:58.933] if (muffled) 1578s [00:52:58.933] invokeRestart("muffleMessage") 1578s [00:52:58.933] } 1578s [00:52:58.933] else if (inherits(cond, "warning")) { 1578s [00:52:58.933] muffled <- grepl(pattern, "muffleWarning") 1578s [00:52:58.933] if (muffled) 1578s [00:52:58.933] invokeRestart("muffleWarning") 1578s [00:52:58.933] } 1578s [00:52:58.933] else if (inherits(cond, "condition")) { 1578s [00:52:58.933] if (!is.null(pattern)) { 1578s [00:52:58.933] computeRestarts <- base::computeRestarts 1578s [00:52:58.933] grepl <- base::grepl 1578s [00:52:58.933] restarts <- computeRestarts(cond) 1578s [00:52:58.933] for (restart in restarts) { 1578s [00:52:58.933] name <- restart$name 1578s [00:52:58.933] if (is.null(name)) 1578s [00:52:58.933] next 1578s [00:52:58.933] if (!grepl(pattern, name)) 1578s [00:52:58.933] next 1578s [00:52:58.933] invokeRestart(restart) 1578s [00:52:58.933] muffled <- TRUE 1578s [00:52:58.933] break 1578s [00:52:58.933] } 1578s [00:52:58.933] } 1578s [00:52:58.933] } 1578s [00:52:58.933] invisible(muffled) 1578s [00:52:58.933] } 1578s [00:52:58.933] muffleCondition(cond, pattern = "^muffle") 1578s [00:52:58.933] } 1578s [00:52:58.933] } 1578s [00:52:58.933] } 1578s [00:52:58.933] })) 1578s [00:52:58.933] }, error = function(ex) { 1578s [00:52:58.933] base::structure(base::list(value = NULL, visible = NULL, 1578s [00:52:58.933] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1578s [00:52:58.933] ...future.rng), started = ...future.startTime, 1578s [00:52:58.933] finished = Sys.time(), session_uuid = NA_character_, 1578s [00:52:58.933] version = "1.8"), class = "FutureResult") 1578s [00:52:58.933] }, finally = { 1578s [00:52:58.933] if (!identical(...future.workdir, getwd())) 1578s [00:52:58.933] setwd(...future.workdir) 1578s [00:52:58.933] { 1578s [00:52:58.933] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1578s [00:52:58.933] ...future.oldOptions$nwarnings <- NULL 1578s [00:52:58.933] } 1578s [00:52:58.933] base::options(...future.oldOptions) 1578s [00:52:58.933] if (.Platform$OS.type == "windows") { 1578s [00:52:58.933] old_names <- names(...future.oldEnvVars) 1578s [00:52:58.933] envs <- base::Sys.getenv() 1578s [00:52:58.933] names <- names(envs) 1578s [00:52:58.933] common <- intersect(names, old_names) 1578s [00:52:58.933] added <- setdiff(names, old_names) 1578s [00:52:58.933] removed <- setdiff(old_names, names) 1578s [00:52:58.933] changed <- common[...future.oldEnvVars[common] != 1578s [00:52:58.933] envs[common]] 1578s [00:52:58.933] NAMES <- toupper(changed) 1578s [00:52:58.933] args <- list() 1578s [00:52:58.933] for (kk in seq_along(NAMES)) { 1578s [00:52:58.933] name <- changed[[kk]] 1578s [00:52:58.933] NAME <- NAMES[[kk]] 1578s [00:52:58.933] if (name != NAME && is.element(NAME, old_names)) 1578s [00:52:58.933] next 1578s [00:52:58.933] args[[name]] <- ...future.oldEnvVars[[name]] 1578s [00:52:58.933] } 1578s [00:52:58.933] NAMES <- toupper(added) 1578s [00:52:58.933] for (kk in seq_along(NAMES)) { 1578s [00:52:58.933] name <- added[[kk]] 1578s [00:52:58.933] NAME <- NAMES[[kk]] 1578s [00:52:58.933] if (name != NAME && is.element(NAME, old_names)) 1578s [00:52:58.933] next 1578s [00:52:58.933] args[[name]] <- "" 1578s [00:52:58.933] } 1578s [00:52:58.933] NAMES <- toupper(removed) 1578s [00:52:58.933] for (kk in seq_along(NAMES)) { 1578s [00:52:58.933] name <- removed[[kk]] 1578s [00:52:58.933] NAME <- NAMES[[kk]] 1578s [00:52:58.933] if (name != NAME && is.element(NAME, old_names)) 1578s [00:52:58.933] next 1578s [00:52:58.933] args[[name]] <- ...future.oldEnvVars[[name]] 1578s [00:52:58.933] } 1578s [00:52:58.933] if (length(args) > 0) 1578s [00:52:58.933] base::do.call(base::Sys.setenv, args = args) 1578s [00:52:58.933] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1578s [00:52:58.933] } 1578s [00:52:58.933] else { 1578s [00:52:58.933] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1578s [00:52:58.933] } 1578s [00:52:58.933] { 1578s [00:52:58.933] if (base::length(...future.futureOptionsAdded) > 1578s [00:52:58.933] 0L) { 1578s [00:52:58.933] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1578s [00:52:58.933] base::names(opts) <- ...future.futureOptionsAdded 1578s [00:52:58.933] base::options(opts) 1578s [00:52:58.933] } 1578s [00:52:58.933] { 1578s [00:52:58.933] { 1578s [00:52:58.933] NULL 1578s [00:52:58.933] RNGkind("Mersenne-Twister") 1578s [00:52:58.933] base::rm(list = ".Random.seed", envir = base::globalenv(), 1578s [00:52:58.933] inherits = FALSE) 1578s [00:52:58.933] } 1578s [00:52:58.933] options(future.plan = NULL) 1578s [00:52:58.933] if (is.na(NA_character_)) 1578s [00:52:58.933] Sys.unsetenv("R_FUTURE_PLAN") 1578s [00:52:58.933] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1578s [00:52:58.933] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1578s [00:52:58.933] envir = parent.frame()) 1578s [00:52:58.933] { 1578s [00:52:58.933] default_workers <- missing(workers) 1578s [00:52:58.933] if (is.function(workers)) 1578s [00:52:58.933] workers <- workers() 1578s [00:52:58.933] workers <- structure(as.integer(workers), 1578s [00:52:58.933] class = class(workers)) 1578s [00:52:58.933] stop_if_not(is.finite(workers), workers >= 1578s [00:52:58.933] 1L) 1578s [00:52:58.933] if ((workers == 1L && !inherits(workers, 1578s [00:52:58.933] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1578s [00:52:58.933] if (default_workers) 1578s [00:52:58.933] supportsMulticore(warn = TRUE) 1578s [00:52:58.933] return(sequential(..., envir = envir)) 1578s [00:52:58.933] } 1578s [00:52:58.933] oopts <- options(mc.cores = workers) 1578s [00:52:58.933] on.exit(options(oopts)) 1578s [00:52:58.933] future <- MulticoreFuture(..., workers = workers, 1578s [00:52:58.933] envir = envir) 1578s [00:52:58.933] if (!future$lazy) 1578s [00:52:58.933] future <- run(future) 1578s [00:52:58.933] invisible(future) 1578s [00:52:58.933] }), .cleanup = FALSE, .init = FALSE) 1578s [00:52:58.933] } 1578s [00:52:58.933] } 1578s [00:52:58.933] } 1578s [00:52:58.933] }) 1578s [00:52:58.933] if (TRUE) { 1578s [00:52:58.933] base::sink(type = "output", split = FALSE) 1578s [00:52:58.933] if (TRUE) { 1578s [00:52:58.933] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1578s [00:52:58.933] } 1578s [00:52:58.933] else { 1578s [00:52:58.933] ...future.result["stdout"] <- base::list(NULL) 1578s [00:52:58.933] } 1578s [00:52:58.933] base::close(...future.stdout) 1578s [00:52:58.933] ...future.stdout <- NULL 1578s [00:52:58.933] } 1578s [00:52:58.933] ...future.result$conditions <- ...future.conditions 1578s [00:52:58.933] ...future.result$finished <- base::Sys.time() 1578s [00:52:58.933] ...future.result 1578s [00:52:58.933] } 1578s [00:52:58.936] assign_globals() ... 1578s [00:52:58.936] List of 6 1578s [00:52:58.936] $ ...future.FUN :function (x) 1578s [00:52:58.936] $ compute :function (a, x_vec) 1578s [00:52:58.936] $ future.call.arguments :List of 1 1578s [00:52:58.936] ..$ : int 0 1578s [00:52:58.936] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1578s [00:52:58.936] $ ...future.elements_ii :List of 2 1578s [00:52:58.936] ..$ : int 1 1578s [00:52:58.936] ..$ : int 2 1578s [00:52:58.936] $ ...future.seeds_ii : NULL 1578s [00:52:58.936] $ ...future.globals.maxSize: NULL 1578s [00:52:58.936] - attr(*, "where")=List of 6 1578s [00:52:58.936] ..$ ...future.FUN : 1578s [00:52:58.936] ..$ compute : 1578s [00:52:58.936] ..$ future.call.arguments : 1578s [00:52:58.936] ..$ ...future.elements_ii : 1578s [00:52:58.936] ..$ ...future.seeds_ii : 1578s [00:52:58.936] ..$ ...future.globals.maxSize: 1578s [00:52:58.936] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1578s [00:52:58.936] - attr(*, "resolved")= logi FALSE 1578s [00:52:58.936] - attr(*, "total_size")= num 4016 1578s [00:52:58.936] - attr(*, "already-done")= logi TRUE 1578s [00:52:58.946] - reassign environment for ‘...future.FUN’ 1578s [00:52:58.947] - copied ‘...future.FUN’ to environment 1578s [00:52:58.947] - reassign environment for ‘compute’ 1578s [00:52:58.947] - copied ‘compute’ to environment 1578s [00:52:58.947] - copied ‘future.call.arguments’ to environment 1578s [00:52:58.947] - copied ‘...future.elements_ii’ to environment 1578s [00:52:58.948] - copied ‘...future.seeds_ii’ to environment 1578s [00:52:58.948] - copied ‘...future.globals.maxSize’ to environment 1578s [00:52:58.948] assign_globals() ... done 1578s [00:52:58.948] plan(): Setting new future strategy stack: 1578s [00:52:58.948] List of future strategies: 1578s [00:52:58.948] 1. sequential: 1578s [00:52:58.948] - args: function (..., envir = parent.frame()) 1578s [00:52:58.948] - tweaked: FALSE 1578s [00:52:58.948] - call: NULL 1578s [00:52:58.949] plan(): nbrOfWorkers() = 1 1578s [00:52:58.950] plan(): Setting new future strategy stack: 1578s [00:52:58.951] List of future strategies: 1578s [00:52:58.951] 1. multicore: 1578s [00:52:58.951] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1578s [00:52:58.951] - tweaked: FALSE 1578s [00:52:58.951] - call: plan(strategy) 1578s [00:52:58.956] plan(): nbrOfWorkers() = 1 1578s [00:52:58.956] SequentialFuture started (and completed) 1578s [00:52:58.956] - Launch lazy future ... done 1578s [00:52:58.956] run() for ‘SequentialFuture’ ... done 1578s [00:52:58.956] Created future: 1578s [00:52:58.957] SequentialFuture: 1578s [00:52:58.957] Label: ‘future_sapply-1’ 1578s [00:52:58.957] Expression: 1578s [00:52:58.957] { 1578s [00:52:58.957] do.call(function(...) { 1578s [00:52:58.957] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1578s [00:52:58.957] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1578s [00:52:58.957] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1578s [00:52:58.957] on.exit(options(oopts), add = TRUE) 1578s [00:52:58.957] } 1578s [00:52:58.957] { 1578s [00:52:58.957] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1578s [00:52:58.957] ...future.X_jj <- ...future.elements_ii[[jj]] 1578s [00:52:58.957] ...future.FUN(...future.X_jj) 1578s [00:52:58.957] }) 1578s [00:52:58.957] } 1578s [00:52:58.957] }, args = future.call.arguments) 1578s [00:52:58.957] } 1578s [00:52:58.957] Lazy evaluation: FALSE 1578s [00:52:58.957] Asynchronous evaluation: FALSE 1578s [00:52:58.957] Local evaluation: TRUE 1578s [00:52:58.957] Environment: 0x2aa3c5e46d8 1578s [00:52:58.957] Capture standard output: TRUE 1578s [00:52:58.957] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1578s [00:52:58.957] Globals: 6 objects totaling 4.03 KiB (function ‘...future.FUN’ of 2.43 KiB, function ‘compute’ of 1.44 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, ...) 1578s [00:52:58.957] Packages: 1578s [00:52:58.957] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1578s [00:52:58.957] Resolved: TRUE 1578s [00:52:58.957] Value: 112 bytes of class ‘list’ 1578s [00:52:58.957] Early signaling: FALSE 1578s [00:52:58.957] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1578s [00:52:58.957] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1578s [00:52:58.959] Chunk #1 of 1 ... DONE 1578s [00:52:58.959] Launching 1 futures (chunks) ... DONE 1578s [00:52:58.959] Resolving 1 futures (chunks) ... 1578s [00:52:58.959] resolve() on list ... 1578s [00:52:58.959] recursive: 0 1578s [00:52:58.959] length: 1 1578s [00:52:58.960] 1578s [00:52:58.960] resolved() for ‘SequentialFuture’ ... 1578s [00:52:58.960] - state: ‘finished’ 1578s [00:52:58.960] - run: TRUE 1578s [00:52:58.960] - result: ‘FutureResult’ 1578s [00:52:58.961] resolved() for ‘SequentialFuture’ ... done 1578s [00:52:58.961] Future #1 1578s [00:52:58.961] signalConditionsASAP(SequentialFuture, pos=1) ... 1578s [00:52:58.961] - nx: 1 1578s [00:52:58.962] - relay: TRUE 1578s [00:52:58.962] - stdout: TRUE 1578s [00:52:58.962] - signal: TRUE 1578s [00:52:58.962] - resignal: FALSE 1578s [00:52:58.963] - force: TRUE 1578s [00:52:58.963] - relayed: [n=1] FALSE 1578s [00:52:58.963] - queued futures: [n=1] FALSE 1578s [00:52:58.964] - until=1 1578s [00:52:58.964] - relaying element #1 1578s [00:52:58.964] - relayed: [n=1] TRUE 1578s [00:52:58.964] - queued futures: [n=1] TRUE 1578s [00:52:58.964] signalConditionsASAP(SequentialFuture, pos=1) ... done 1578s [00:52:58.964] length: 0 (resolved future 1) 1578s [00:52:58.965] Relaying remaining futures 1578s [00:52:58.965] signalConditionsASAP(NULL, pos=0) ... 1578s [00:52:58.965] - nx: 1 1578s [00:52:58.965] - relay: TRUE 1578s [00:52:58.965] - stdout: TRUE 1578s [00:52:58.965] - signal: TRUE 1578s [00:52:58.966] - resignal: FALSE 1578s [00:52:58.966] - force: TRUE 1578s [00:52:58.966] - relayed: [n=1] TRUE 1578s [00:52:58.966] - queued futures: [n=1] TRUE 1578s - flush all 1578s [00:52:58.966] - relayed: [n=1] TRUE 1578s [00:52:58.967] - queued futures: [n=1] TRUE 1578s [00:52:58.967] signalConditionsASAP(NULL, pos=0) ... done 1578s [00:52:58.967] resolve() on list ... DONE 1578s [00:52:58.967] - Number of value chunks collected: 1 1578s [00:52:58.967] Resolving 1 futures (chunks) ... DONE 1578s [00:52:58.967] Reducing values from 1 chunks ... 1578s [00:52:58.968] - Number of values collected after concatenation: 2 1579s [00:52:58.968] - Number of values expected: 2 1579s [00:52:58.968] Reducing values from 1 chunks ... DONE 1579s [00:52:58.968] future_lapply() ... DONE 1579s [1] 1 2 1579s [00:52:58.969] plan(): Setting new future strategy stack: 1579s [00:52:58.969] List of future strategies: 1579s [00:52:58.969] 1. sequential: 1579s [00:52:58.969] - args: function (..., envir = parent.frame()) 1579s [00:52:58.969] - tweaked: FALSE 1579s [00:52:58.969] - call: plan(sequential) 1579s [00:52:58.970] plan(): nbrOfWorkers() = 1 1579s *** strategy = ‘multicore’ ... done 1579s *** strategy = ‘multisession’ ... 1579s [00:52:58.971] plan(): Setting new future strategy stack: 1579s [00:52:58.971] List of future strategies: 1579s [00:52:58.971] 1. multisession: 1579s [00:52:58.971] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1579s [00:52:58.971] - tweaked: FALSE 1579s [00:52:58.971] - call: plan(strategy) 1579s [00:52:58.971] plan(): plan_init() of ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ ... 1579s [00:52:58.971] multisession: 1579s [00:52:58.971] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1579s [00:52:58.971] - tweaked: FALSE 1579s [00:52:58.971] - call: plan(strategy) 1579s [00:52:58.977] getGlobalsAndPackages() ... 1579s [00:52:58.977] Not searching for globals 1579s [00:52:58.977] - globals: [0] 1579s [00:52:58.978] getGlobalsAndPackages() ... DONE 1579s [00:52:58.979] Packages needed by the future expression (n = 0): 1579s [00:52:58.979] Packages needed by future strategies (n = 0): 1579s [00:52:58.980] { 1579s [00:52:58.980] { 1579s [00:52:58.980] { 1579s [00:52:58.980] ...future.startTime <- base::Sys.time() 1579s [00:52:58.980] { 1579s [00:52:58.980] { 1579s [00:52:58.980] { 1579s [00:52:58.980] base::local({ 1579s [00:52:58.980] has_future <- base::requireNamespace("future", 1579s [00:52:58.980] quietly = TRUE) 1579s [00:52:58.980] if (has_future) { 1579s [00:52:58.980] ns <- base::getNamespace("future") 1579s [00:52:58.980] version <- ns[[".package"]][["version"]] 1579s [00:52:58.980] if (is.null(version)) 1579s [00:52:58.980] version <- utils::packageVersion("future") 1579s [00:52:58.980] } 1579s [00:52:58.980] else { 1579s [00:52:58.980] version <- NULL 1579s [00:52:58.980] } 1579s [00:52:58.980] if (!has_future || version < "1.8.0") { 1579s [00:52:58.980] info <- base::c(r_version = base::gsub("R version ", 1579s [00:52:58.980] "", base::R.version$version.string), 1579s [00:52:58.980] platform = base::sprintf("%s (%s-bit)", 1579s [00:52:58.980] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1579s [00:52:58.980] os = base::paste(base::Sys.info()[base::c("sysname", 1579s [00:52:58.980] "release", "version")], collapse = " "), 1579s [00:52:58.980] hostname = base::Sys.info()[["nodename"]]) 1579s [00:52:58.980] info <- base::sprintf("%s: %s", base::names(info), 1579s [00:52:58.980] info) 1579s [00:52:58.980] info <- base::paste(info, collapse = "; ") 1579s [00:52:58.980] if (!has_future) { 1579s [00:52:58.980] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1579s [00:52:58.980] info) 1579s [00:52:58.980] } 1579s [00:52:58.980] else { 1579s [00:52:58.980] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1579s [00:52:58.980] info, version) 1579s [00:52:58.980] } 1579s [00:52:58.980] base::stop(msg) 1579s [00:52:58.980] } 1579s [00:52:58.980] }) 1579s [00:52:58.980] } 1579s [00:52:58.980] options(future.plan = NULL) 1579s [00:52:58.980] Sys.unsetenv("R_FUTURE_PLAN") 1579s [00:52:58.980] future::plan("default", .cleanup = FALSE, .init = FALSE) 1579s [00:52:58.980] } 1579s [00:52:58.980] ...future.workdir <- getwd() 1579s [00:52:58.980] } 1579s [00:52:58.980] ...future.oldOptions <- base::as.list(base::.Options) 1579s [00:52:58.980] ...future.oldEnvVars <- base::Sys.getenv() 1579s [00:52:58.980] } 1579s [00:52:58.980] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1579s [00:52:58.980] future.globals.maxSize = NULL, future.globals.method = NULL, 1579s [00:52:58.980] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1579s [00:52:58.980] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1579s [00:52:58.980] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1579s [00:52:58.980] future.stdout.windows.reencode = NULL, width = 80L) 1579s [00:52:58.980] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1579s [00:52:58.980] base::names(...future.oldOptions)) 1579s [00:52:58.980] } 1579s [00:52:58.980] if (FALSE) { 1579s [00:52:58.980] } 1579s [00:52:58.980] else { 1579s [00:52:58.980] if (TRUE) { 1579s [00:52:58.980] ...future.stdout <- base::rawConnection(base::raw(0L), 1579s [00:52:58.980] open = "w") 1579s [00:52:58.980] } 1579s [00:52:58.980] else { 1579s [00:52:58.980] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1579s [00:52:58.980] windows = "NUL", "/dev/null"), open = "w") 1579s [00:52:58.980] } 1579s [00:52:58.980] base::sink(...future.stdout, type = "output", split = FALSE) 1579s [00:52:58.980] base::on.exit(if (!base::is.null(...future.stdout)) { 1579s [00:52:58.980] base::sink(type = "output", split = FALSE) 1579s [00:52:58.980] base::close(...future.stdout) 1579s [00:52:58.980] }, add = TRUE) 1579s [00:52:58.980] } 1579s [00:52:58.980] ...future.frame <- base::sys.nframe() 1579s [00:52:58.980] ...future.conditions <- base::list() 1579s [00:52:58.980] ...future.rng <- base::globalenv()$.Random.seed 1579s [00:52:58.980] if (FALSE) { 1579s [00:52:58.980] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1579s [00:52:58.980] "...future.value", "...future.globalenv.names", ".Random.seed") 1579s [00:52:58.980] } 1579s [00:52:58.980] ...future.result <- base::tryCatch({ 1579s [00:52:58.980] base::withCallingHandlers({ 1579s [00:52:58.980] ...future.value <- base::withVisible(base::local(NA)) 1579s [00:52:58.980] future::FutureResult(value = ...future.value$value, 1579s [00:52:58.980] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1579s [00:52:58.980] ...future.rng), globalenv = if (FALSE) 1579s [00:52:58.980] list(added = base::setdiff(base::names(base::.GlobalEnv), 1579s [00:52:58.980] ...future.globalenv.names)) 1579s [00:52:58.980] else NULL, started = ...future.startTime, version = "1.8") 1579s [00:52:58.980] }, condition = base::local({ 1579s [00:52:58.980] c <- base::c 1579s [00:52:58.980] inherits <- base::inherits 1579s [00:52:58.980] invokeRestart <- base::invokeRestart 1579s [00:52:58.980] length <- base::length 1579s [00:52:58.980] list <- base::list 1579s [00:52:58.980] seq.int <- base::seq.int 1579s [00:52:58.980] signalCondition <- base::signalCondition 1579s [00:52:58.980] sys.calls <- base::sys.calls 1579s [00:52:58.980] `[[` <- base::`[[` 1579s [00:52:58.980] `+` <- base::`+` 1579s [00:52:58.980] `<<-` <- base::`<<-` 1579s [00:52:58.980] sysCalls <- function(calls = sys.calls(), from = 1L) { 1579s [00:52:58.980] calls[seq.int(from = from + 12L, to = length(calls) - 1579s [00:52:58.980] 3L)] 1579s [00:52:58.980] } 1579s [00:52:58.980] function(cond) { 1579s [00:52:58.980] is_error <- inherits(cond, "error") 1579s [00:52:58.980] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1579s [00:52:58.980] NULL) 1579s [00:52:58.980] if (is_error) { 1579s [00:52:58.980] sessionInformation <- function() { 1579s [00:52:58.980] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1579s [00:52:58.980] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1579s [00:52:58.980] search = base::search(), system = base::Sys.info()) 1579s [00:52:58.980] } 1579s [00:52:58.980] ...future.conditions[[length(...future.conditions) + 1579s [00:52:58.980] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1579s [00:52:58.980] cond$call), session = sessionInformation(), 1579s [00:52:58.980] timestamp = base::Sys.time(), signaled = 0L) 1579s [00:52:58.980] signalCondition(cond) 1579s [00:52:58.980] } 1579s [00:52:58.980] else if (!ignore && TRUE && inherits(cond, c("condition", 1579s [00:52:58.980] "immediateCondition"))) { 1579s [00:52:58.980] signal <- TRUE && inherits(cond, "immediateCondition") 1579s [00:52:58.980] ...future.conditions[[length(...future.conditions) + 1579s [00:52:58.980] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1579s [00:52:58.980] if (TRUE && !signal) { 1579s [00:52:58.980] muffleCondition <- function (cond, pattern = "^muffle") 1579s [00:52:58.980] { 1579s [00:52:58.980] inherits <- base::inherits 1579s [00:52:58.980] invokeRestart <- base::invokeRestart 1579s [00:52:58.980] is.null <- base::is.null 1579s [00:52:58.980] muffled <- FALSE 1579s [00:52:58.980] if (inherits(cond, "message")) { 1579s [00:52:58.980] muffled <- grepl(pattern, "muffleMessage") 1579s [00:52:58.980] if (muffled) 1579s [00:52:58.980] invokeRestart("muffleMessage") 1579s [00:52:58.980] } 1579s [00:52:58.980] else if (inherits(cond, "warning")) { 1579s [00:52:58.980] muffled <- grepl(pattern, "muffleWarning") 1579s [00:52:58.980] if (muffled) 1579s [00:52:58.980] invokeRestart("muffleWarning") 1579s [00:52:58.980] } 1579s [00:52:58.980] else if (inherits(cond, "condition")) { 1579s [00:52:58.980] if (!is.null(pattern)) { 1579s [00:52:58.980] computeRestarts <- base::computeRestarts 1579s [00:52:58.980] grepl <- base::grepl 1579s [00:52:58.980] restarts <- computeRestarts(cond) 1579s [00:52:58.980] for (restart in restarts) { 1579s [00:52:58.980] name <- restart$name 1579s [00:52:58.980] if (is.null(name)) 1579s [00:52:58.980] next 1579s [00:52:58.980] if (!grepl(pattern, name)) 1579s [00:52:58.980] next 1579s [00:52:58.980] invokeRestart(restart) 1579s [00:52:58.980] muffled <- TRUE 1579s [00:52:58.980] break 1579s [00:52:58.980] } 1579s [00:52:58.980] } 1579s [00:52:58.980] } 1579s [00:52:58.980] invisible(muffled) 1579s [00:52:58.980] } 1579s [00:52:58.980] muffleCondition(cond, pattern = "^muffle") 1579s [00:52:58.980] } 1579s [00:52:58.980] } 1579s [00:52:58.980] else { 1579s [00:52:58.980] if (TRUE) { 1579s [00:52:58.980] muffleCondition <- function (cond, pattern = "^muffle") 1579s [00:52:58.980] { 1579s [00:52:58.980] inherits <- base::inherits 1579s [00:52:58.980] invokeRestart <- base::invokeRestart 1579s [00:52:58.980] is.null <- base::is.null 1579s [00:52:58.980] muffled <- FALSE 1579s [00:52:58.980] if (inherits(cond, "message")) { 1579s [00:52:58.980] muffled <- grepl(pattern, "muffleMessage") 1579s [00:52:58.980] if (muffled) 1579s [00:52:58.980] invokeRestart("muffleMessage") 1579s [00:52:58.980] } 1579s [00:52:58.980] else if (inherits(cond, "warning")) { 1579s [00:52:58.980] muffled <- grepl(pattern, "muffleWarning") 1579s [00:52:58.980] if (muffled) 1579s [00:52:58.980] invokeRestart("muffleWarning") 1579s [00:52:58.980] } 1579s [00:52:58.980] else if (inherits(cond, "condition")) { 1579s [00:52:58.980] if (!is.null(pattern)) { 1579s [00:52:58.980] computeRestarts <- base::computeRestarts 1579s [00:52:58.980] grepl <- base::grepl 1579s [00:52:58.980] restarts <- computeRestarts(cond) 1579s [00:52:58.980] for (restart in restarts) { 1579s [00:52:58.980] name <- restart$name 1579s [00:52:58.980] if (is.null(name)) 1579s [00:52:58.980] next 1579s [00:52:58.980] if (!grepl(pattern, name)) 1579s [00:52:58.980] next 1579s [00:52:58.980] invokeRestart(restart) 1579s [00:52:58.980] muffled <- TRUE 1579s [00:52:58.980] break 1579s [00:52:58.980] } 1579s [00:52:58.980] } 1579s [00:52:58.980] } 1579s [00:52:58.980] invisible(muffled) 1579s [00:52:58.980] } 1579s [00:52:58.980] muffleCondition(cond, pattern = "^muffle") 1579s [00:52:58.980] } 1579s [00:52:58.980] } 1579s [00:52:58.980] } 1579s [00:52:58.980] })) 1579s [00:52:58.980] }, error = function(ex) { 1579s [00:52:58.980] base::structure(base::list(value = NULL, visible = NULL, 1579s [00:52:58.980] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1579s [00:52:58.980] ...future.rng), started = ...future.startTime, 1579s [00:52:58.980] finished = Sys.time(), session_uuid = NA_character_, 1579s [00:52:58.980] version = "1.8"), class = "FutureResult") 1579s [00:52:58.980] }, finally = { 1579s [00:52:58.980] if (!identical(...future.workdir, getwd())) 1579s [00:52:58.980] setwd(...future.workdir) 1579s [00:52:58.980] { 1579s [00:52:58.980] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1579s [00:52:58.980] ...future.oldOptions$nwarnings <- NULL 1579s [00:52:58.980] } 1579s [00:52:58.980] base::options(...future.oldOptions) 1579s [00:52:58.980] if (.Platform$OS.type == "windows") { 1579s [00:52:58.980] old_names <- names(...future.oldEnvVars) 1579s [00:52:58.980] envs <- base::Sys.getenv() 1579s [00:52:58.980] names <- names(envs) 1579s [00:52:58.980] common <- intersect(names, old_names) 1579s [00:52:58.980] added <- setdiff(names, old_names) 1579s [00:52:58.980] removed <- setdiff(old_names, names) 1579s [00:52:58.980] changed <- common[...future.oldEnvVars[common] != 1579s [00:52:58.980] envs[common]] 1579s [00:52:58.980] NAMES <- toupper(changed) 1579s [00:52:58.980] args <- list() 1579s [00:52:58.980] for (kk in seq_along(NAMES)) { 1579s [00:52:58.980] name <- changed[[kk]] 1579s [00:52:58.980] NAME <- NAMES[[kk]] 1579s [00:52:58.980] if (name != NAME && is.element(NAME, old_names)) 1579s [00:52:58.980] next 1579s [00:52:58.980] args[[name]] <- ...future.oldEnvVars[[name]] 1579s [00:52:58.980] } 1579s [00:52:58.980] NAMES <- toupper(added) 1579s [00:52:58.980] for (kk in seq_along(NAMES)) { 1579s [00:52:58.980] name <- added[[kk]] 1579s [00:52:58.980] NAME <- NAMES[[kk]] 1579s [00:52:58.980] if (name != NAME && is.element(NAME, old_names)) 1579s [00:52:58.980] next 1579s [00:52:58.980] args[[name]] <- "" 1579s [00:52:58.980] } 1579s [00:52:58.980] NAMES <- toupper(removed) 1579s [00:52:58.980] for (kk in seq_along(NAMES)) { 1579s [00:52:58.980] name <- removed[[kk]] 1579s [00:52:58.980] NAME <- NAMES[[kk]] 1579s [00:52:58.980] if (name != NAME && is.element(NAME, old_names)) 1579s [00:52:58.980] next 1579s [00:52:58.980] args[[name]] <- ...future.oldEnvVars[[name]] 1579s [00:52:58.980] } 1579s [00:52:58.980] if (length(args) > 0) 1579s [00:52:58.980] base::do.call(base::Sys.setenv, args = args) 1579s [00:52:58.980] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1579s [00:52:58.980] } 1579s [00:52:58.980] else { 1579s [00:52:58.980] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1579s [00:52:58.980] } 1579s [00:52:58.980] { 1579s [00:52:58.980] if (base::length(...future.futureOptionsAdded) > 1579s [00:52:58.980] 0L) { 1579s [00:52:58.980] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1579s [00:52:58.980] base::names(opts) <- ...future.futureOptionsAdded 1579s [00:52:58.980] base::options(opts) 1579s [00:52:58.980] } 1579s [00:52:58.980] { 1579s [00:52:58.980] { 1579s [00:52:58.980] NULL 1579s [00:52:58.980] RNGkind("Mersenne-Twister") 1579s [00:52:58.980] base::rm(list = ".Random.seed", envir = base::globalenv(), 1579s [00:52:58.980] inherits = FALSE) 1579s [00:52:58.980] } 1579s [00:52:58.980] options(future.plan = NULL) 1579s [00:52:58.980] if (is.na(NA_character_)) 1579s [00:52:58.980] Sys.unsetenv("R_FUTURE_PLAN") 1579s [00:52:58.980] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1579s [00:52:58.980] future::plan(list(function (..., workers = availableCores(), 1579s [00:52:58.980] lazy = FALSE, rscript_libs = .libPaths(), 1579s [00:52:58.980] envir = parent.frame()) 1579s [00:52:58.980] { 1579s [00:52:58.980] if (is.function(workers)) 1579s [00:52:58.980] workers <- workers() 1579s [00:52:58.980] workers <- structure(as.integer(workers), 1579s [00:52:58.980] class = class(workers)) 1579s [00:52:58.980] stop_if_not(length(workers) == 1, is.finite(workers), 1579s [00:52:58.980] workers >= 1) 1579s [00:52:58.980] if (workers == 1L && !inherits(workers, "AsIs")) { 1579s [00:52:58.980] return(sequential(..., lazy = TRUE, envir = envir)) 1579s [00:52:58.980] } 1579s [00:52:58.980] future <- MultisessionFuture(..., workers = workers, 1579s [00:52:58.980] lazy = lazy, rscript_libs = rscript_libs, 1579s [00:52:58.980] envir = envir) 1579s [00:52:58.980] if (!future$lazy) 1579s [00:52:58.980] future <- run(future) 1579s [00:52:58.980] invisible(future) 1579s [00:52:58.980] }), .cleanup = FALSE, .init = FALSE) 1579s [00:52:58.980] } 1579s [00:52:58.980] } 1579s [00:52:58.980] } 1579s [00:52:58.980] }) 1579s [00:52:58.980] if (TRUE) { 1579s [00:52:58.980] base::sink(type = "output", split = FALSE) 1579s [00:52:58.980] if (TRUE) { 1579s [00:52:58.980] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1579s [00:52:58.980] } 1579s [00:52:58.980] else { 1579s [00:52:58.980] ...future.result["stdout"] <- base::list(NULL) 1579s [00:52:58.980] } 1579s [00:52:58.980] base::close(...future.stdout) 1579s [00:52:58.980] ...future.stdout <- NULL 1579s [00:52:58.980] } 1579s [00:52:58.980] ...future.result$conditions <- ...future.conditions 1579s [00:52:58.980] ...future.result$finished <- base::Sys.time() 1579s [00:52:58.980] ...future.result 1579s [00:52:58.980] } 1579s [00:52:58.987] plan(): Setting new future strategy stack: 1579s [00:52:58.987] List of future strategies: 1579s [00:52:58.987] 1. sequential: 1579s [00:52:58.987] - args: function (..., envir = parent.frame()) 1579s [00:52:58.987] - tweaked: FALSE 1579s [00:52:58.987] - call: NULL 1579s [00:52:58.988] plan(): nbrOfWorkers() = 1 1579s [00:52:58.989] plan(): Setting new future strategy stack: 1579s [00:52:58.989] List of future strategies: 1579s [00:52:58.989] 1. multisession: 1579s [00:52:58.989] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1579s [00:52:58.989] - tweaked: FALSE 1579s [00:52:58.989] - call: plan(strategy) 1579s [00:52:58.994] plan(): nbrOfWorkers() = 1 1579s [00:52:58.995] SequentialFuture started (and completed) 1579s [00:52:58.995] plan(): plan_init() of ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ ... DONE 1579s [00:52:58.999] plan(): nbrOfWorkers() = 1 1579s [00:52:58.999] future_lapply() ... 1579s [00:52:59.005] Number of chunks: 1 1579s [00:52:59.006] getGlobalsAndPackagesXApply() ... 1579s [00:52:59.006] - future.globals: TRUE 1579s [00:52:59.006] getGlobalsAndPackages() ... 1579s [00:52:59.007] Searching for globals... 1579s [00:52:59.009] - globals found: [1] ‘FUN’ 1579s [00:52:59.009] Searching for globals ... DONE 1579s [00:52:59.009] Resolving globals: FALSE 1579s [00:52:59.010] The total size of the 1 globals is 848 bytes (848 bytes) 1579s [00:52:59.010] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1579s [00:52:59.011] - globals: [1] ‘FUN’ 1579s [00:52:59.011] 1579s [00:52:59.011] getGlobalsAndPackages() ... DONE 1579s [00:52:59.011] - globals found/used: [n=1] ‘FUN’ 1579s [00:52:59.011] - needed namespaces: [n=0] 1579s [00:52:59.011] Finding globals ... DONE 1579s [00:52:59.012] - use_args: TRUE 1579s [00:52:59.012] - Getting '...' globals ... 1579s [00:52:59.012] resolve() on list ... 1579s [00:52:59.012] recursive: 0 1579s [00:52:59.012] length: 1 1579s [00:52:59.013] elements: ‘...’ 1579s [00:52:59.013] length: 0 (resolved future 1) 1579s [00:52:59.013] resolve() on list ... DONE 1579s [00:52:59.014] - '...' content: [n=0] 1579s [00:52:59.014] List of 1 1579s [00:52:59.014] $ ...: list() 1579s [00:52:59.014] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1579s [00:52:59.014] - attr(*, "where")=List of 1 1579s [00:52:59.014] ..$ ...: 1579s [00:52:59.014] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1579s [00:52:59.014] - attr(*, "resolved")= logi TRUE 1579s [00:52:59.014] - attr(*, "total_size")= num NA 1579s [00:52:59.019] - Getting '...' globals ... DONE 1579s [00:52:59.019] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1579s [00:52:59.019] List of 2 1579s [00:52:59.019] $ ...future.FUN:function (x) 1579s [00:52:59.019] $ ... : list() 1579s [00:52:59.019] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1579s [00:52:59.019] - attr(*, "where")=List of 2 1579s [00:52:59.019] ..$ ...future.FUN: 1579s [00:52:59.019] ..$ ... : 1579s [00:52:59.019] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1579s [00:52:59.019] - attr(*, "resolved")= logi FALSE 1579s [00:52:59.019] - attr(*, "total_size")= num 848 1579s [00:52:59.024] Packages to be attached in all futures: [n=0] 1579s [00:52:59.025] getGlobalsAndPackagesXApply() ... DONE 1579s [00:52:59.025] Number of futures (= number of chunks): 1 1579s [00:52:59.027] Launching 1 futures (chunks) ... 1579s [00:52:59.027] Chunk #1 of 1 ... 1579s [00:52:59.028] - Finding globals in 'X' for chunk #1 ... 1579s [00:52:59.028] getGlobalsAndPackages() ... 1579s [00:52:59.028] Searching for globals... 1579s [00:52:59.028] 1579s [00:52:59.028] Searching for globals ... DONE 1579s [00:52:59.029] - globals: [0] 1579s [00:52:59.029] getGlobalsAndPackages() ... DONE 1579s [00:52:59.029] + additional globals found: [n=0] 1579s [00:52:59.029] + additional namespaces needed: [n=0] 1579s [00:52:59.029] - Finding globals in 'X' for chunk #1 ... DONE 1579s [00:52:59.029] - seeds: 1579s [00:52:59.029] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1579s [00:52:59.030] getGlobalsAndPackages() ... 1579s [00:52:59.030] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1579s [00:52:59.030] Resolving globals: FALSE 1579s [00:52:59.030] Tweak future expression to call with '...' arguments ... 1579s [00:52:59.030] { 1579s [00:52:59.030] do.call(function(...) { 1579s [00:52:59.030] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1579s [00:52:59.030] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1579s [00:52:59.030] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1579s [00:52:59.030] on.exit(options(oopts), add = TRUE) 1579s [00:52:59.030] } 1579s [00:52:59.030] { 1579s [00:52:59.030] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1579s [00:52:59.030] ...future.X_jj <- ...future.elements_ii[[jj]] 1579s [00:52:59.030] ...future.FUN(...future.X_jj, ...) 1579s [00:52:59.030] }) 1579s [00:52:59.030] } 1579s [00:52:59.030] }, args = future.call.arguments) 1579s [00:52:59.030] } 1579s [00:52:59.031] Tweak future expression to call with '...' arguments ... DONE 1579s [00:52:59.032] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1579s [00:52:59.032] 1579s [00:52:59.032] getGlobalsAndPackages() ... DONE 1579s [00:52:59.032] run() for ‘Future’ ... 1579s [00:52:59.033] - state: ‘created’ 1579s [00:52:59.033] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1579s [00:52:59.037] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1579s [00:52:59.037] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1579s [00:52:59.038] - Field: ‘label’ 1579s [00:52:59.038] - Field: ‘local’ 1579s [00:52:59.038] - Field: ‘owner’ 1579s [00:52:59.039] - Field: ‘envir’ 1579s [00:52:59.045] - Field: ‘packages’ 1579s [00:52:59.046] - Field: ‘gc’ 1579s [00:52:59.046] - Field: ‘conditions’ 1579s [00:52:59.046] - Field: ‘expr’ 1579s [00:52:59.046] - Field: ‘uuid’ 1579s [00:52:59.047] - Field: ‘seed’ 1579s [00:52:59.047] - Field: ‘version’ 1579s [00:52:59.047] - Field: ‘result’ 1579s [00:52:59.047] - Field: ‘asynchronous’ 1579s [00:52:59.048] - Field: ‘calls’ 1579s [00:52:59.048] - Field: ‘globals’ 1579s [00:52:59.048] - Field: ‘stdout’ 1579s [00:52:59.048] - Field: ‘earlySignal’ 1579s [00:52:59.048] - Field: ‘lazy’ 1579s [00:52:59.049] - Field: ‘state’ 1579s [00:52:59.049] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1579s [00:52:59.049] - Launch lazy future ... 1579s [00:52:59.049] Packages needed by the future expression (n = 0): 1579s [00:52:59.049] Packages needed by future strategies (n = 0): 1579s [00:52:59.050] { 1579s [00:52:59.050] { 1579s [00:52:59.050] { 1579s [00:52:59.050] ...future.startTime <- base::Sys.time() 1579s [00:52:59.050] { 1579s [00:52:59.050] { 1579s [00:52:59.050] { 1579s [00:52:59.050] base::local({ 1579s [00:52:59.050] has_future <- base::requireNamespace("future", 1579s [00:52:59.050] quietly = TRUE) 1579s [00:52:59.050] if (has_future) { 1579s [00:52:59.050] ns <- base::getNamespace("future") 1579s [00:52:59.050] version <- ns[[".package"]][["version"]] 1579s [00:52:59.050] if (is.null(version)) 1579s [00:52:59.050] version <- utils::packageVersion("future") 1579s [00:52:59.050] } 1579s [00:52:59.050] else { 1579s [00:52:59.050] version <- NULL 1579s [00:52:59.050] } 1579s [00:52:59.050] if (!has_future || version < "1.8.0") { 1579s [00:52:59.050] info <- base::c(r_version = base::gsub("R version ", 1579s [00:52:59.050] "", base::R.version$version.string), 1579s [00:52:59.050] platform = base::sprintf("%s (%s-bit)", 1579s [00:52:59.050] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1579s [00:52:59.050] os = base::paste(base::Sys.info()[base::c("sysname", 1579s [00:52:59.050] "release", "version")], collapse = " "), 1579s [00:52:59.050] hostname = base::Sys.info()[["nodename"]]) 1579s [00:52:59.050] info <- base::sprintf("%s: %s", base::names(info), 1579s [00:52:59.050] info) 1579s [00:52:59.050] info <- base::paste(info, collapse = "; ") 1579s [00:52:59.050] if (!has_future) { 1579s [00:52:59.050] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1579s [00:52:59.050] info) 1579s [00:52:59.050] } 1579s [00:52:59.050] else { 1579s [00:52:59.050] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1579s [00:52:59.050] info, version) 1579s [00:52:59.050] } 1579s [00:52:59.050] base::stop(msg) 1579s [00:52:59.050] } 1579s [00:52:59.050] }) 1579s [00:52:59.050] } 1579s [00:52:59.050] options(future.plan = NULL) 1579s [00:52:59.050] Sys.unsetenv("R_FUTURE_PLAN") 1579s [00:52:59.050] future::plan("default", .cleanup = FALSE, .init = FALSE) 1579s [00:52:59.050] } 1579s [00:52:59.050] ...future.workdir <- getwd() 1579s [00:52:59.050] } 1579s [00:52:59.050] ...future.oldOptions <- base::as.list(base::.Options) 1579s [00:52:59.050] ...future.oldEnvVars <- base::Sys.getenv() 1579s [00:52:59.050] } 1579s [00:52:59.050] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1579s [00:52:59.050] future.globals.maxSize = NULL, future.globals.method = NULL, 1579s [00:52:59.050] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1579s [00:52:59.050] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1579s [00:52:59.050] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1579s [00:52:59.050] future.stdout.windows.reencode = NULL, width = 80L) 1579s [00:52:59.050] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1579s [00:52:59.050] base::names(...future.oldOptions)) 1579s [00:52:59.050] } 1579s [00:52:59.050] if (FALSE) { 1579s [00:52:59.050] } 1579s [00:52:59.050] else { 1579s [00:52:59.050] if (TRUE) { 1579s [00:52:59.050] ...future.stdout <- base::rawConnection(base::raw(0L), 1579s [00:52:59.050] open = "w") 1579s [00:52:59.050] } 1579s [00:52:59.050] else { 1579s [00:52:59.050] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1579s [00:52:59.050] windows = "NUL", "/dev/null"), open = "w") 1579s [00:52:59.050] } 1579s [00:52:59.050] base::sink(...future.stdout, type = "output", split = FALSE) 1579s [00:52:59.050] base::on.exit(if (!base::is.null(...future.stdout)) { 1579s [00:52:59.050] base::sink(type = "output", split = FALSE) 1579s [00:52:59.050] base::close(...future.stdout) 1579s [00:52:59.050] }, add = TRUE) 1579s [00:52:59.050] } 1579s [00:52:59.050] ...future.frame <- base::sys.nframe() 1579s [00:52:59.050] ...future.conditions <- base::list() 1579s [00:52:59.050] ...future.rng <- base::globalenv()$.Random.seed 1579s [00:52:59.050] if (FALSE) { 1579s [00:52:59.050] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1579s [00:52:59.050] "...future.value", "...future.globalenv.names", ".Random.seed") 1579s [00:52:59.050] } 1579s [00:52:59.050] ...future.result <- base::tryCatch({ 1579s [00:52:59.050] base::withCallingHandlers({ 1579s [00:52:59.050] ...future.value <- base::withVisible(base::local({ 1579s [00:52:59.050] do.call(function(...) { 1579s [00:52:59.050] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1579s [00:52:59.050] if (!identical(...future.globals.maxSize.org, 1579s [00:52:59.050] ...future.globals.maxSize)) { 1579s [00:52:59.050] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1579s [00:52:59.050] on.exit(options(oopts), add = TRUE) 1579s [00:52:59.050] } 1579s [00:52:59.050] { 1579s [00:52:59.050] lapply(seq_along(...future.elements_ii), 1579s [00:52:59.050] FUN = function(jj) { 1579s [00:52:59.050] ...future.X_jj <- ...future.elements_ii[[jj]] 1579s [00:52:59.050] ...future.FUN(...future.X_jj, ...) 1579s [00:52:59.050] }) 1579s [00:52:59.050] } 1579s [00:52:59.050] }, args = future.call.arguments) 1579s [00:52:59.050] })) 1579s [00:52:59.050] future::FutureResult(value = ...future.value$value, 1579s [00:52:59.050] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1579s [00:52:59.050] ...future.rng), globalenv = if (FALSE) 1579s [00:52:59.050] list(added = base::setdiff(base::names(base::.GlobalEnv), 1579s [00:52:59.050] ...future.globalenv.names)) 1579s [00:52:59.050] else NULL, started = ...future.startTime, version = "1.8") 1579s [00:52:59.050] }, condition = base::local({ 1579s [00:52:59.050] c <- base::c 1579s [00:52:59.050] inherits <- base::inherits 1579s [00:52:59.050] invokeRestart <- base::invokeRestart 1579s [00:52:59.050] length <- base::length 1579s [00:52:59.050] list <- base::list 1579s [00:52:59.050] seq.int <- base::seq.int 1579s [00:52:59.050] signalCondition <- base::signalCondition 1579s [00:52:59.050] sys.calls <- base::sys.calls 1579s [00:52:59.050] `[[` <- base::`[[` 1579s [00:52:59.050] `+` <- base::`+` 1579s [00:52:59.050] `<<-` <- base::`<<-` 1579s [00:52:59.050] sysCalls <- function(calls = sys.calls(), from = 1L) { 1579s [00:52:59.050] calls[seq.int(from = from + 12L, to = length(calls) - 1579s [00:52:59.050] 3L)] 1579s [00:52:59.050] } 1579s [00:52:59.050] function(cond) { 1579s [00:52:59.050] is_error <- inherits(cond, "error") 1579s [00:52:59.050] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1579s [00:52:59.050] NULL) 1579s [00:52:59.050] if (is_error) { 1579s [00:52:59.050] sessionInformation <- function() { 1579s [00:52:59.050] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1579s [00:52:59.050] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1579s [00:52:59.050] search = base::search(), system = base::Sys.info()) 1579s [00:52:59.050] } 1579s [00:52:59.050] ...future.conditions[[length(...future.conditions) + 1579s [00:52:59.050] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1579s [00:52:59.050] cond$call), session = sessionInformation(), 1579s [00:52:59.050] timestamp = base::Sys.time(), signaled = 0L) 1579s [00:52:59.050] signalCondition(cond) 1579s [00:52:59.050] } 1579s [00:52:59.050] else if (!ignore && TRUE && inherits(cond, c("condition", 1579s [00:52:59.050] "immediateCondition"))) { 1579s [00:52:59.050] signal <- TRUE && inherits(cond, "immediateCondition") 1579s [00:52:59.050] ...future.conditions[[length(...future.conditions) + 1579s [00:52:59.050] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1579s [00:52:59.050] if (TRUE && !signal) { 1579s [00:52:59.050] muffleCondition <- function (cond, pattern = "^muffle") 1579s [00:52:59.050] { 1579s [00:52:59.050] inherits <- base::inherits 1579s [00:52:59.050] invokeRestart <- base::invokeRestart 1579s [00:52:59.050] is.null <- base::is.null 1579s [00:52:59.050] muffled <- FALSE 1579s [00:52:59.050] if (inherits(cond, "message")) { 1579s [00:52:59.050] muffled <- grepl(pattern, "muffleMessage") 1579s [00:52:59.050] if (muffled) 1579s [00:52:59.050] invokeRestart("muffleMessage") 1579s [00:52:59.050] } 1579s [00:52:59.050] else if (inherits(cond, "warning")) { 1579s [00:52:59.050] muffled <- grepl(pattern, "muffleWarning") 1579s [00:52:59.050] if (muffled) 1579s [00:52:59.050] invokeRestart("muffleWarning") 1579s [00:52:59.050] } 1579s [00:52:59.050] else if (inherits(cond, "condition")) { 1579s [00:52:59.050] if (!is.null(pattern)) { 1579s [00:52:59.050] computeRestarts <- base::computeRestarts 1579s [00:52:59.050] grepl <- base::grepl 1579s [00:52:59.050] restarts <- computeRestarts(cond) 1579s [00:52:59.050] for (restart in restarts) { 1579s [00:52:59.050] name <- restart$name 1579s [00:52:59.050] if (is.null(name)) 1579s [00:52:59.050] next 1579s [00:52:59.050] if (!grepl(pattern, name)) 1579s [00:52:59.050] next 1579s [00:52:59.050] invokeRestart(restart) 1579s [00:52:59.050] muffled <- TRUE 1579s [00:52:59.050] break 1579s [00:52:59.050] } 1579s [00:52:59.050] } 1579s [00:52:59.050] } 1579s [00:52:59.050] invisible(muffled) 1579s [00:52:59.050] } 1579s [00:52:59.050] muffleCondition(cond, pattern = "^muffle") 1579s [00:52:59.050] } 1579s [00:52:59.050] } 1579s [00:52:59.050] else { 1579s [00:52:59.050] if (TRUE) { 1579s [00:52:59.050] muffleCondition <- function (cond, pattern = "^muffle") 1579s [00:52:59.050] { 1579s [00:52:59.050] inherits <- base::inherits 1579s [00:52:59.050] invokeRestart <- base::invokeRestart 1579s [00:52:59.050] is.null <- base::is.null 1579s [00:52:59.050] muffled <- FALSE 1579s [00:52:59.050] if (inherits(cond, "message")) { 1579s [00:52:59.050] muffled <- grepl(pattern, "muffleMessage") 1579s [00:52:59.050] if (muffled) 1579s [00:52:59.050] invokeRestart("muffleMessage") 1579s [00:52:59.050] } 1579s [00:52:59.050] else if (inherits(cond, "warning")) { 1579s [00:52:59.050] muffled <- grepl(pattern, "muffleWarning") 1579s [00:52:59.050] if (muffled) 1579s [00:52:59.050] invokeRestart("muffleWarning") 1579s [00:52:59.050] } 1579s [00:52:59.050] else if (inherits(cond, "condition")) { 1579s [00:52:59.050] if (!is.null(pattern)) { 1579s [00:52:59.050] computeRestarts <- base::computeRestarts 1579s [00:52:59.050] grepl <- base::grepl 1579s [00:52:59.050] restarts <- computeRestarts(cond) 1579s [00:52:59.050] for (restart in restarts) { 1579s [00:52:59.050] name <- restart$name 1579s [00:52:59.050] if (is.null(name)) 1579s [00:52:59.050] next 1579s [00:52:59.050] if (!grepl(pattern, name)) 1579s [00:52:59.050] next 1579s [00:52:59.050] invokeRestart(restart) 1579s [00:52:59.050] muffled <- TRUE 1579s [00:52:59.050] break 1579s [00:52:59.050] } 1579s [00:52:59.050] } 1579s [00:52:59.050] } 1579s [00:52:59.050] invisible(muffled) 1579s [00:52:59.050] } 1579s [00:52:59.050] muffleCondition(cond, pattern = "^muffle") 1579s [00:52:59.050] } 1579s [00:52:59.050] } 1579s [00:52:59.050] } 1579s [00:52:59.050] })) 1579s [00:52:59.050] }, error = function(ex) { 1579s [00:52:59.050] base::structure(base::list(value = NULL, visible = NULL, 1579s [00:52:59.050] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1579s [00:52:59.050] ...future.rng), started = ...future.startTime, 1579s [00:52:59.050] finished = Sys.time(), session_uuid = NA_character_, 1579s [00:52:59.050] version = "1.8"), class = "FutureResult") 1579s [00:52:59.050] }, finally = { 1579s [00:52:59.050] if (!identical(...future.workdir, getwd())) 1579s [00:52:59.050] setwd(...future.workdir) 1579s [00:52:59.050] { 1579s [00:52:59.050] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1579s [00:52:59.050] ...future.oldOptions$nwarnings <- NULL 1579s [00:52:59.050] } 1579s [00:52:59.050] base::options(...future.oldOptions) 1579s [00:52:59.050] if (.Platform$OS.type == "windows") { 1579s [00:52:59.050] old_names <- names(...future.oldEnvVars) 1579s [00:52:59.050] envs <- base::Sys.getenv() 1579s [00:52:59.050] names <- names(envs) 1579s [00:52:59.050] common <- intersect(names, old_names) 1579s [00:52:59.050] added <- setdiff(names, old_names) 1579s [00:52:59.050] removed <- setdiff(old_names, names) 1579s [00:52:59.050] changed <- common[...future.oldEnvVars[common] != 1579s [00:52:59.050] envs[common]] 1579s [00:52:59.050] NAMES <- toupper(changed) 1579s [00:52:59.050] args <- list() 1579s [00:52:59.050] for (kk in seq_along(NAMES)) { 1579s [00:52:59.050] name <- changed[[kk]] 1579s [00:52:59.050] NAME <- NAMES[[kk]] 1579s [00:52:59.050] if (name != NAME && is.element(NAME, old_names)) 1579s [00:52:59.050] next 1579s [00:52:59.050] args[[name]] <- ...future.oldEnvVars[[name]] 1579s [00:52:59.050] } 1579s [00:52:59.050] NAMES <- toupper(added) 1579s [00:52:59.050] for (kk in seq_along(NAMES)) { 1579s [00:52:59.050] name <- added[[kk]] 1579s [00:52:59.050] NAME <- NAMES[[kk]] 1579s [00:52:59.050] if (name != NAME && is.element(NAME, old_names)) 1579s [00:52:59.050] next 1579s [00:52:59.050] args[[name]] <- "" 1579s [00:52:59.050] } 1579s [00:52:59.050] NAMES <- toupper(removed) 1579s [00:52:59.050] for (kk in seq_along(NAMES)) { 1579s [00:52:59.050] name <- removed[[kk]] 1579s [00:52:59.050] NAME <- NAMES[[kk]] 1579s [00:52:59.050] if (name != NAME && is.element(NAME, old_names)) 1579s [00:52:59.050] next 1579s [00:52:59.050] args[[name]] <- ...future.oldEnvVars[[name]] 1579s [00:52:59.050] } 1579s [00:52:59.050] if (length(args) > 0) 1579s [00:52:59.050] base::do.call(base::Sys.setenv, args = args) 1579s [00:52:59.050] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1579s [00:52:59.050] } 1579s [00:52:59.050] else { 1579s [00:52:59.050] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1579s [00:52:59.050] } 1579s [00:52:59.050] { 1579s [00:52:59.050] if (base::length(...future.futureOptionsAdded) > 1579s [00:52:59.050] 0L) { 1579s [00:52:59.050] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1579s [00:52:59.050] base::names(opts) <- ...future.futureOptionsAdded 1579s [00:52:59.050] base::options(opts) 1579s [00:52:59.050] } 1579s [00:52:59.050] { 1579s [00:52:59.050] { 1579s [00:52:59.050] NULL 1579s [00:52:59.050] RNGkind("Mersenne-Twister") 1579s [00:52:59.050] base::rm(list = ".Random.seed", envir = base::globalenv(), 1579s [00:52:59.050] inherits = FALSE) 1579s [00:52:59.050] } 1579s [00:52:59.050] options(future.plan = NULL) 1579s [00:52:59.050] if (is.na(NA_character_)) 1579s [00:52:59.050] Sys.unsetenv("R_FUTURE_PLAN") 1579s [00:52:59.050] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1579s [00:52:59.050] future::plan(list(function (..., workers = availableCores(), 1579s [00:52:59.050] lazy = FALSE, rscript_libs = .libPaths(), 1579s [00:52:59.050] envir = parent.frame()) 1579s [00:52:59.050] { 1579s [00:52:59.050] if (is.function(workers)) 1579s [00:52:59.050] workers <- workers() 1579s [00:52:59.050] workers <- structure(as.integer(workers), 1579s [00:52:59.050] class = class(workers)) 1579s [00:52:59.050] stop_if_not(length(workers) == 1, is.finite(workers), 1579s [00:52:59.050] workers >= 1) 1579s [00:52:59.050] if (workers == 1L && !inherits(workers, "AsIs")) { 1579s [00:52:59.050] return(sequential(..., lazy = TRUE, envir = envir)) 1579s [00:52:59.050] } 1579s [00:52:59.050] future <- MultisessionFuture(..., workers = workers, 1579s [00:52:59.050] lazy = lazy, rscript_libs = rscript_libs, 1579s [00:52:59.050] envir = envir) 1579s [00:52:59.050] if (!future$lazy) 1579s [00:52:59.050] future <- run(future) 1579s [00:52:59.050] invisible(future) 1579s [00:52:59.050] }), .cleanup = FALSE, .init = FALSE) 1579s [00:52:59.050] } 1579s [00:52:59.050] } 1579s [00:52:59.050] } 1579s [00:52:59.050] }) 1579s [00:52:59.050] if (TRUE) { 1579s [00:52:59.050] base::sink(type = "output", split = FALSE) 1579s [00:52:59.050] if (TRUE) { 1579s [00:52:59.050] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1579s [00:52:59.050] } 1579s [00:52:59.050] else { 1579s [00:52:59.050] ...future.result["stdout"] <- base::list(NULL) 1579s [00:52:59.050] } 1579s [00:52:59.050] base::close(...future.stdout) 1579s [00:52:59.050] ...future.stdout <- NULL 1579s [00:52:59.050] } 1579s [00:52:59.050] ...future.result$conditions <- ...future.conditions 1579s [00:52:59.050] ...future.result$finished <- base::Sys.time() 1579s [00:52:59.050] ...future.result 1579s [00:52:59.050] } 1579s [00:52:59.055] assign_globals() ... 1579s [00:52:59.055] List of 5 1579s [00:52:59.055] $ ...future.FUN :function (x) 1579s [00:52:59.055] $ future.call.arguments : list() 1579s [00:52:59.055] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1579s [00:52:59.055] $ ...future.elements_ii :List of 3 1579s [00:52:59.055] ..$ a: num 1 1579s [00:52:59.055] ..$ b: num 2 1579s [00:52:59.055] ..$ c: num 3 1579s [00:52:59.055] $ ...future.seeds_ii : NULL 1579s [00:52:59.055] $ ...future.globals.maxSize: NULL 1579s [00:52:59.055] - attr(*, "where")=List of 5 1579s [00:52:59.055] ..$ ...future.FUN : 1579s [00:52:59.055] ..$ future.call.arguments : 1579s [00:52:59.055] ..$ ...future.elements_ii : 1579s [00:52:59.055] ..$ ...future.seeds_ii : 1579s [00:52:59.055] ..$ ...future.globals.maxSize: 1579s [00:52:59.055] - attr(*, "resolved")= logi FALSE 1579s [00:52:59.055] - attr(*, "total_size")= num 848 1579s [00:52:59.055] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1579s [00:52:59.055] - attr(*, "already-done")= logi TRUE 1579s [00:52:59.065] - copied ‘...future.FUN’ to environment 1579s [00:52:59.065] - copied ‘future.call.arguments’ to environment 1579s [00:52:59.066] - copied ‘...future.elements_ii’ to environment 1579s [00:52:59.066] - copied ‘...future.seeds_ii’ to environment 1579s [00:52:59.066] - copied ‘...future.globals.maxSize’ to environment 1579s [00:52:59.066] assign_globals() ... done 1579s [00:52:59.067] plan(): Setting new future strategy stack: 1579s [00:52:59.067] List of future strategies: 1579s [00:52:59.067] 1. sequential: 1579s [00:52:59.067] - args: function (..., envir = parent.frame()) 1579s [00:52:59.067] - tweaked: FALSE 1579s [00:52:59.067] - call: NULL 1579s [00:52:59.067] plan(): nbrOfWorkers() = 1 1579s [00:52:59.068] plan(): Setting new future strategy stack: 1579s [00:52:59.068] List of future strategies: 1579s [00:52:59.068] 1. multisession: 1579s [00:52:59.068] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1579s [00:52:59.068] - tweaked: FALSE 1579s [00:52:59.068] - call: plan(strategy) 1579s [00:52:59.073] plan(): nbrOfWorkers() = 1 1579s [00:52:59.073] SequentialFuture started (and completed) 1579s [00:52:59.073] - Launch lazy future ... done 1579s [00:52:59.073] run() for ‘SequentialFuture’ ... done 1579s [00:52:59.074] Created future: 1579s [00:52:59.074] SequentialFuture: 1579s [00:52:59.074] Label: ‘future_sapply-1’ 1579s [00:52:59.074] Expression: 1579s [00:52:59.074] { 1579s [00:52:59.074] do.call(function(...) { 1579s [00:52:59.074] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1579s [00:52:59.074] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1579s [00:52:59.074] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1579s [00:52:59.074] on.exit(options(oopts), add = TRUE) 1579s [00:52:59.074] } 1579s [00:52:59.074] { 1579s [00:52:59.074] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1579s [00:52:59.074] ...future.X_jj <- ...future.elements_ii[[jj]] 1579s [00:52:59.074] ...future.FUN(...future.X_jj, ...) 1579s [00:52:59.074] }) 1579s [00:52:59.074] } 1579s [00:52:59.074] }, args = future.call.arguments) 1579s [00:52:59.074] } 1579s [00:52:59.074] Lazy evaluation: FALSE 1579s [00:52:59.074] Asynchronous evaluation: FALSE 1579s [00:52:59.074] Local evaluation: TRUE 1579s [00:52:59.074] Environment: R_GlobalEnv 1579s [00:52:59.074] Capture standard output: TRUE 1579s [00:52:59.074] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1579s [00:52:59.074] Globals: 5 objects totaling 0.99 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1579s [00:52:59.074] Packages: 1579s [00:52:59.074] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1579s [00:52:59.074] Resolved: TRUE 1579s [00:52:59.074] Value: 168 bytes of class ‘list’ 1579s [00:52:59.074] Early signaling: FALSE 1579s [00:52:59.074] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1579s [00:52:59.074] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1579s [00:52:59.077] Chunk #1 of 1 ... DONE 1579s [00:52:59.077] Launching 1 futures (chunks) ... DONE 1579s [00:52:59.077] Resolving 1 futures (chunks) ... 1579s [00:52:59.077] resolve() on list ... 1579s [00:52:59.077] recursive: 0 1579s [00:52:59.077] length: 1 1579s [00:52:59.077] 1579s [00:52:59.078] resolved() for ‘SequentialFuture’ ... 1579s [00:52:59.078] - state: ‘finished’ 1579s [00:52:59.078] - run: TRUE 1579s [00:52:59.079] - result: ‘FutureResult’ 1579s [00:52:59.079] resolved() for ‘SequentialFuture’ ... done 1579s [00:52:59.079] Future #1 1579s [00:52:59.080] signalConditionsASAP(SequentialFuture, pos=1) ... 1579s [00:52:59.080] - nx: 1 1579s [00:52:59.081] - relay: TRUE 1579s [00:52:59.081] - stdout: TRUE 1579s [00:52:59.081] - signal: TRUE 1579s [00:52:59.081] - resignal: FALSE 1579s [00:52:59.081] - force: TRUE 1579s [00:52:59.082] - relayed: [n=1] FALSE 1579s [00:52:59.082] - queued futures: [n=1] FALSE 1579s [00:52:59.083] - until=1 1579s [00:52:59.083] - relaying element #1 1579s [00:52:59.084] - relayed: [n=1] TRUE 1579s [00:52:59.084] - queued futures: [n=1] TRUE 1579s [00:52:59.084] signalConditionsASAP(SequentialFuture, pos=1) ... done 1579s [00:52:59.085] length: 0 (resolved future 1) 1579s [00:52:59.085] Relaying remaining futures 1579s [00:52:59.086] signalConditionsASAP(NULL, pos=0) ... 1579s [00:52:59.086] - nx: 1 1579s [00:52:59.086] - relay: TRUE 1579s [00:52:59.087] - stdout: TRUE 1579s [00:52:59.087] - signal: TRUE 1579s [00:52:59.087] - resignal: FALSE 1579s [00:52:59.087] - force: TRUE 1579s [00:52:59.088] - relayed: [n=1] TRUE 1579s [00:52:59.088] - queued futures: [n=1] TRUE 1579s - flush all 1579s [00:52:59.088] - relayed: [n=1] TRUE 1579s [00:52:59.089] - queued futures: [n=1] TRUE 1579s [00:52:59.089] signalConditionsASAP(NULL, pos=0) ... done 1579s [00:52:59.089] resolve() on list ... DONE 1579s [00:52:59.090] - Number of value chunks collected: 1 1579s [00:52:59.090] Resolving 1 futures (chunks) ... DONE 1579s [00:52:59.090] Reducing values from 1 chunks ... 1579s [00:52:59.091] - Number of values collected after concatenation: 3 1579s [00:52:59.091] - Number of values expected: 3 1579s [00:52:59.092] Reducing values from 1 chunks ... DONE 1579s [00:52:59.092] future_lapply() ... DONE 1579s List of 2 1579s $ y0:List of 3 1579s ..$ a: num 1 1579s ..$ b: num 2 1579s ..$ c: num 3 1579s $ y1:List of 3 1579s ..$ a: num 1 1579s ..$ b: num 2 1579s ..$ c: num 3 1579s List of 2 1579s $ y0:List of 3 1579s ..$ a: num 1 1579s ..$ b: num 2 1579s ..$ c: num 3 1579s $ y2:List of 3 1579s ..$ a: num 1 1579s ..$ b: num 2 1579s ..$ c: num 3 1579s [00:52:59.104] future_lapply() ... 1579s [00:52:59.109] Number of chunks: 1 1579s [00:52:59.109] getGlobalsAndPackagesXApply() ... 1579s [00:52:59.109] - future.globals: TRUE 1579s [00:52:59.109] getGlobalsAndPackages() ... 1579s [00:52:59.109] Searching for globals... 1579s [00:52:59.117] - globals found: [2] ‘FUN’, ‘UseMethod’ 1579s [00:52:59.118] Searching for globals ... DONE 1579s [00:52:59.118] Resolving globals: FALSE 1579s [00:52:59.120] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1579s [00:52:59.121] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1579s [00:52:59.122] - globals: [1] ‘FUN’ 1579s [00:52:59.122] 1579s [00:52:59.122] getGlobalsAndPackages() ... DONE 1579s [00:52:59.122] - globals found/used: [n=1] ‘FUN’ 1579s [00:52:59.123] - needed namespaces: [n=0] 1579s [00:52:59.123] Finding globals ... DONE 1579s [00:52:59.123] - use_args: TRUE 1579s [00:52:59.123] - Getting '...' globals ... 1579s [00:52:59.124] resolve() on list ... 1579s [00:52:59.124] recursive: 0 1579s [00:52:59.124] length: 1 1579s [00:52:59.125] elements: ‘...’ 1579s [00:52:59.125] length: 0 (resolved future 1) 1579s [00:52:59.125] resolve() on list ... DONE 1579s [00:52:59.126] - '...' content: [n=0] 1579s [00:52:59.126] List of 1 1579s [00:52:59.126] $ ...: list() 1579s [00:52:59.126] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1579s [00:52:59.126] - attr(*, "where")=List of 1 1579s [00:52:59.126] ..$ ...: 1579s [00:52:59.126] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1579s [00:52:59.126] - attr(*, "resolved")= logi TRUE 1579s [00:52:59.126] - attr(*, "total_size")= num NA 1579s [00:52:59.132] - Getting '...' globals ... DONE 1579s [00:52:59.132] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1579s [00:52:59.133] List of 2 1579s [00:52:59.133] $ ...future.FUN:function (x, ...) 1579s [00:52:59.133] $ ... : list() 1579s [00:52:59.133] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1579s [00:52:59.133] - attr(*, "where")=List of 2 1579s [00:52:59.133] ..$ ...future.FUN: 1579s [00:52:59.133] ..$ ... : 1579s [00:52:59.133] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1579s [00:52:59.133] - attr(*, "resolved")= logi FALSE 1579s [00:52:59.133] - attr(*, "total_size")= num 1248 1579s [00:52:59.140] Packages to be attached in all futures: [n=0] 1579s [00:52:59.141] getGlobalsAndPackagesXApply() ... DONE 1579s [00:52:59.142] Number of futures (= number of chunks): 1 1579s [00:52:59.143] Launching 1 futures (chunks) ... 1579s [00:52:59.143] Chunk #1 of 1 ... 1579s [00:52:59.144] - Finding globals in 'X' for chunk #1 ... 1579s [00:52:59.144] getGlobalsAndPackages() ... 1579s [00:52:59.145] Searching for globals... 1579s [00:52:59.145] 1579s [00:52:59.146] Searching for globals ... DONE 1579s [00:52:59.146] - globals: [0] 1579s [00:52:59.146] getGlobalsAndPackages() ... DONE 1579s [00:52:59.146] + additional globals found: [n=0] 1579s [00:52:59.146] + additional namespaces needed: [n=0] 1579s [00:52:59.147] - Finding globals in 'X' for chunk #1 ... DONE 1579s [00:52:59.147] - seeds: 1579s [00:52:59.147] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1579s [00:52:59.148] getGlobalsAndPackages() ... 1579s [00:52:59.148] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1579s [00:52:59.148] Resolving globals: FALSE 1579s [00:52:59.149] Tweak future expression to call with '...' arguments ... 1579s [00:52:59.149] { 1579s [00:52:59.149] do.call(function(...) { 1579s [00:52:59.149] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1579s [00:52:59.149] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1579s [00:52:59.149] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1579s [00:52:59.149] on.exit(options(oopts), add = TRUE) 1579s [00:52:59.149] } 1579s [00:52:59.149] { 1579s [00:52:59.149] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1579s [00:52:59.149] ...future.X_jj <- ...future.elements_ii[[jj]] 1579s [00:52:59.149] ...future.FUN(...future.X_jj, ...) 1579s [00:52:59.149] }) 1579s [00:52:59.149] } 1579s [00:52:59.149] }, args = future.call.arguments) 1579s [00:52:59.149] } 1579s [00:52:59.151] Tweak future expression to call with '...' arguments ... DONE 1579s [00:52:59.152] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1579s [00:52:59.153] 1579s [00:52:59.153] getGlobalsAndPackages() ... DONE 1579s [00:52:59.153] run() for ‘Future’ ... 1579s [00:52:59.154] - state: ‘created’ 1579s [00:52:59.154] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1579s [00:52:59.161] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1579s [00:52:59.162] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1579s [00:52:59.162] - Field: ‘label’ 1579s [00:52:59.162] - Field: ‘local’ 1579s [00:52:59.162] - Field: ‘owner’ 1579s [00:52:59.162] - Field: ‘envir’ 1579s [00:52:59.163] - Field: ‘packages’ 1579s [00:52:59.163] - Field: ‘gc’ 1579s [00:52:59.163] - Field: ‘conditions’ 1579s [00:52:59.164] - Field: ‘expr’ 1579s [00:52:59.164] - Field: ‘uuid’ 1579s [00:52:59.164] - Field: ‘seed’ 1579s [00:52:59.165] - Field: ‘version’ 1579s [00:52:59.165] - Field: ‘result’ 1579s [00:52:59.165] - Field: ‘asynchronous’ 1579s [00:52:59.166] - Field: ‘calls’ 1579s [00:52:59.166] - Field: ‘globals’ 1579s [00:52:59.166] - Field: ‘stdout’ 1579s [00:52:59.167] - Field: ‘earlySignal’ 1579s [00:52:59.167] - Field: ‘lazy’ 1579s [00:52:59.167] - Field: ‘state’ 1579s [00:52:59.167] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1579s [00:52:59.168] - Launch lazy future ... 1579s [00:52:59.168] Packages needed by the future expression (n = 0): 1579s [00:52:59.168] Packages needed by future strategies (n = 0): 1579s [00:52:59.169] { 1579s [00:52:59.169] { 1579s [00:52:59.169] { 1579s [00:52:59.169] ...future.startTime <- base::Sys.time() 1579s [00:52:59.169] { 1579s [00:52:59.169] { 1579s [00:52:59.169] { 1579s [00:52:59.169] base::local({ 1579s [00:52:59.169] has_future <- base::requireNamespace("future", 1579s [00:52:59.169] quietly = TRUE) 1579s [00:52:59.169] if (has_future) { 1579s [00:52:59.169] ns <- base::getNamespace("future") 1579s [00:52:59.169] version <- ns[[".package"]][["version"]] 1579s [00:52:59.169] if (is.null(version)) 1579s [00:52:59.169] version <- utils::packageVersion("future") 1579s [00:52:59.169] } 1579s [00:52:59.169] else { 1579s [00:52:59.169] version <- NULL 1579s [00:52:59.169] } 1579s [00:52:59.169] if (!has_future || version < "1.8.0") { 1579s [00:52:59.169] info <- base::c(r_version = base::gsub("R version ", 1579s [00:52:59.169] "", base::R.version$version.string), 1579s [00:52:59.169] platform = base::sprintf("%s (%s-bit)", 1579s [00:52:59.169] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1579s [00:52:59.169] os = base::paste(base::Sys.info()[base::c("sysname", 1579s [00:52:59.169] "release", "version")], collapse = " "), 1579s [00:52:59.169] hostname = base::Sys.info()[["nodename"]]) 1579s [00:52:59.169] info <- base::sprintf("%s: %s", base::names(info), 1579s [00:52:59.169] info) 1579s [00:52:59.169] info <- base::paste(info, collapse = "; ") 1579s [00:52:59.169] if (!has_future) { 1579s [00:52:59.169] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1579s [00:52:59.169] info) 1579s [00:52:59.169] } 1579s [00:52:59.169] else { 1579s [00:52:59.169] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1579s [00:52:59.169] info, version) 1579s [00:52:59.169] } 1579s [00:52:59.169] base::stop(msg) 1579s [00:52:59.169] } 1579s [00:52:59.169] }) 1579s [00:52:59.169] } 1579s [00:52:59.169] options(future.plan = NULL) 1579s [00:52:59.169] Sys.unsetenv("R_FUTURE_PLAN") 1579s [00:52:59.169] future::plan("default", .cleanup = FALSE, .init = FALSE) 1579s [00:52:59.169] } 1579s [00:52:59.169] ...future.workdir <- getwd() 1579s [00:52:59.169] } 1579s [00:52:59.169] ...future.oldOptions <- base::as.list(base::.Options) 1579s [00:52:59.169] ...future.oldEnvVars <- base::Sys.getenv() 1579s [00:52:59.169] } 1579s [00:52:59.169] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1579s [00:52:59.169] future.globals.maxSize = NULL, future.globals.method = NULL, 1579s [00:52:59.169] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1579s [00:52:59.169] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1579s [00:52:59.169] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1579s [00:52:59.169] future.stdout.windows.reencode = NULL, width = 80L) 1579s [00:52:59.169] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1579s [00:52:59.169] base::names(...future.oldOptions)) 1579s [00:52:59.169] } 1579s [00:52:59.169] if (FALSE) { 1579s [00:52:59.169] } 1579s [00:52:59.169] else { 1579s [00:52:59.169] if (TRUE) { 1579s [00:52:59.169] ...future.stdout <- base::rawConnection(base::raw(0L), 1579s [00:52:59.169] open = "w") 1579s [00:52:59.169] } 1579s [00:52:59.169] else { 1579s [00:52:59.169] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1579s [00:52:59.169] windows = "NUL", "/dev/null"), open = "w") 1579s [00:52:59.169] } 1579s [00:52:59.169] base::sink(...future.stdout, type = "output", split = FALSE) 1579s [00:52:59.169] base::on.exit(if (!base::is.null(...future.stdout)) { 1579s [00:52:59.169] base::sink(type = "output", split = FALSE) 1579s [00:52:59.169] base::close(...future.stdout) 1579s [00:52:59.169] }, add = TRUE) 1579s [00:52:59.169] } 1579s [00:52:59.169] ...future.frame <- base::sys.nframe() 1579s [00:52:59.169] ...future.conditions <- base::list() 1579s [00:52:59.169] ...future.rng <- base::globalenv()$.Random.seed 1579s [00:52:59.169] if (FALSE) { 1579s [00:52:59.169] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1579s [00:52:59.169] "...future.value", "...future.globalenv.names", ".Random.seed") 1579s [00:52:59.169] } 1579s [00:52:59.169] ...future.result <- base::tryCatch({ 1579s [00:52:59.169] base::withCallingHandlers({ 1579s [00:52:59.169] ...future.value <- base::withVisible(base::local({ 1579s [00:52:59.169] do.call(function(...) { 1579s [00:52:59.169] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1579s [00:52:59.169] if (!identical(...future.globals.maxSize.org, 1579s [00:52:59.169] ...future.globals.maxSize)) { 1579s [00:52:59.169] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1579s [00:52:59.169] on.exit(options(oopts), add = TRUE) 1579s [00:52:59.169] } 1579s [00:52:59.169] { 1579s [00:52:59.169] lapply(seq_along(...future.elements_ii), 1579s [00:52:59.169] FUN = function(jj) { 1579s [00:52:59.169] ...future.X_jj <- ...future.elements_ii[[jj]] 1579s [00:52:59.169] ...future.FUN(...future.X_jj, ...) 1579s [00:52:59.169] }) 1579s [00:52:59.169] } 1579s [00:52:59.169] }, args = future.call.arguments) 1579s [00:52:59.169] })) 1579s [00:52:59.169] future::FutureResult(value = ...future.value$value, 1579s [00:52:59.169] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1579s [00:52:59.169] ...future.rng), globalenv = if (FALSE) 1579s [00:52:59.169] list(added = base::setdiff(base::names(base::.GlobalEnv), 1579s [00:52:59.169] ...future.globalenv.names)) 1579s [00:52:59.169] else NULL, started = ...future.startTime, version = "1.8") 1579s [00:52:59.169] }, condition = base::local({ 1579s [00:52:59.169] c <- base::c 1579s [00:52:59.169] inherits <- base::inherits 1579s [00:52:59.169] invokeRestart <- base::invokeRestart 1579s [00:52:59.169] length <- base::length 1579s [00:52:59.169] list <- base::list 1579s [00:52:59.169] seq.int <- base::seq.int 1579s [00:52:59.169] signalCondition <- base::signalCondition 1579s [00:52:59.169] sys.calls <- base::sys.calls 1579s [00:52:59.169] `[[` <- base::`[[` 1579s [00:52:59.169] `+` <- base::`+` 1579s [00:52:59.169] `<<-` <- base::`<<-` 1579s [00:52:59.169] sysCalls <- function(calls = sys.calls(), from = 1L) { 1579s [00:52:59.169] calls[seq.int(from = from + 12L, to = length(calls) - 1579s [00:52:59.169] 3L)] 1579s [00:52:59.169] } 1579s [00:52:59.169] function(cond) { 1579s [00:52:59.169] is_error <- inherits(cond, "error") 1579s [00:52:59.169] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1579s [00:52:59.169] NULL) 1579s [00:52:59.169] if (is_error) { 1579s [00:52:59.169] sessionInformation <- function() { 1579s [00:52:59.169] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1579s [00:52:59.169] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1579s [00:52:59.169] search = base::search(), system = base::Sys.info()) 1579s [00:52:59.169] } 1579s [00:52:59.169] ...future.conditions[[length(...future.conditions) + 1579s [00:52:59.169] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1579s [00:52:59.169] cond$call), session = sessionInformation(), 1579s [00:52:59.169] timestamp = base::Sys.time(), signaled = 0L) 1579s [00:52:59.169] signalCondition(cond) 1579s [00:52:59.169] } 1579s [00:52:59.169] else if (!ignore && TRUE && inherits(cond, c("condition", 1579s [00:52:59.169] "immediateCondition"))) { 1579s [00:52:59.169] signal <- TRUE && inherits(cond, "immediateCondition") 1579s [00:52:59.169] ...future.conditions[[length(...future.conditions) + 1579s [00:52:59.169] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1579s [00:52:59.169] if (TRUE && !signal) { 1579s [00:52:59.169] muffleCondition <- function (cond, pattern = "^muffle") 1579s [00:52:59.169] { 1579s [00:52:59.169] inherits <- base::inherits 1579s [00:52:59.169] invokeRestart <- base::invokeRestart 1579s [00:52:59.169] is.null <- base::is.null 1579s [00:52:59.169] muffled <- FALSE 1579s [00:52:59.169] if (inherits(cond, "message")) { 1579s [00:52:59.169] muffled <- grepl(pattern, "muffleMessage") 1579s [00:52:59.169] if (muffled) 1579s [00:52:59.169] invokeRestart("muffleMessage") 1579s [00:52:59.169] } 1579s [00:52:59.169] else if (inherits(cond, "warning")) { 1579s [00:52:59.169] muffled <- grepl(pattern, "muffleWarning") 1579s [00:52:59.169] if (muffled) 1579s [00:52:59.169] invokeRestart("muffleWarning") 1579s [00:52:59.169] } 1579s [00:52:59.169] else if (inherits(cond, "condition")) { 1579s [00:52:59.169] if (!is.null(pattern)) { 1579s [00:52:59.169] computeRestarts <- base::computeRestarts 1579s [00:52:59.169] grepl <- base::grepl 1579s [00:52:59.169] restarts <- computeRestarts(cond) 1579s [00:52:59.169] for (restart in restarts) { 1579s [00:52:59.169] name <- restart$name 1579s [00:52:59.169] if (is.null(name)) 1579s [00:52:59.169] next 1579s [00:52:59.169] if (!grepl(pattern, name)) 1579s [00:52:59.169] next 1579s [00:52:59.169] invokeRestart(restart) 1579s [00:52:59.169] muffled <- TRUE 1579s [00:52:59.169] break 1579s [00:52:59.169] } 1579s [00:52:59.169] } 1579s [00:52:59.169] } 1579s [00:52:59.169] invisible(muffled) 1579s [00:52:59.169] } 1579s [00:52:59.169] muffleCondition(cond, pattern = "^muffle") 1579s [00:52:59.169] } 1579s [00:52:59.169] } 1579s [00:52:59.169] else { 1579s [00:52:59.169] if (TRUE) { 1579s [00:52:59.169] muffleCondition <- function (cond, pattern = "^muffle") 1579s [00:52:59.169] { 1579s [00:52:59.169] inherits <- base::inherits 1579s [00:52:59.169] invokeRestart <- base::invokeRestart 1579s [00:52:59.169] is.null <- base::is.null 1579s [00:52:59.169] muffled <- FALSE 1579s [00:52:59.169] if (inherits(cond, "message")) { 1579s [00:52:59.169] muffled <- grepl(pattern, "muffleMessage") 1579s [00:52:59.169] if (muffled) 1579s [00:52:59.169] invokeRestart("muffleMessage") 1579s [00:52:59.169] } 1579s [00:52:59.169] else if (inherits(cond, "warning")) { 1579s [00:52:59.169] muffled <- grepl(pattern, "muffleWarning") 1579s [00:52:59.169] if (muffled) 1579s [00:52:59.169] invokeRestart("muffleWarning") 1579s [00:52:59.169] } 1579s [00:52:59.169] else if (inherits(cond, "condition")) { 1579s [00:52:59.169] if (!is.null(pattern)) { 1579s [00:52:59.169] computeRestarts <- base::computeRestarts 1579s [00:52:59.169] grepl <- base::grepl 1579s [00:52:59.169] restarts <- computeRestarts(cond) 1579s [00:52:59.169] for (restart in restarts) { 1579s [00:52:59.169] name <- restart$name 1579s [00:52:59.169] if (is.null(name)) 1579s [00:52:59.169] next 1579s [00:52:59.169] if (!grepl(pattern, name)) 1579s [00:52:59.169] next 1579s [00:52:59.169] invokeRestart(restart) 1579s [00:52:59.169] muffled <- TRUE 1579s [00:52:59.169] break 1579s [00:52:59.169] } 1579s [00:52:59.169] } 1579s [00:52:59.169] } 1579s [00:52:59.169] invisible(muffled) 1579s [00:52:59.169] } 1579s [00:52:59.169] muffleCondition(cond, pattern = "^muffle") 1579s [00:52:59.169] } 1579s [00:52:59.169] } 1579s [00:52:59.169] } 1579s [00:52:59.169] })) 1579s [00:52:59.169] }, error = function(ex) { 1579s [00:52:59.169] base::structure(base::list(value = NULL, visible = NULL, 1579s [00:52:59.169] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1579s [00:52:59.169] ...future.rng), started = ...future.startTime, 1579s [00:52:59.169] finished = Sys.time(), session_uuid = NA_character_, 1579s [00:52:59.169] version = "1.8"), class = "FutureResult") 1579s [00:52:59.169] }, finally = { 1579s [00:52:59.169] if (!identical(...future.workdir, getwd())) 1579s [00:52:59.169] setwd(...future.workdir) 1579s [00:52:59.169] { 1579s [00:52:59.169] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1579s [00:52:59.169] ...future.oldOptions$nwarnings <- NULL 1579s [00:52:59.169] } 1579s [00:52:59.169] base::options(...future.oldOptions) 1579s [00:52:59.169] if (.Platform$OS.type == "windows") { 1579s [00:52:59.169] old_names <- names(...future.oldEnvVars) 1579s [00:52:59.169] envs <- base::Sys.getenv() 1579s [00:52:59.169] names <- names(envs) 1579s [00:52:59.169] common <- intersect(names, old_names) 1579s [00:52:59.169] added <- setdiff(names, old_names) 1579s [00:52:59.169] removed <- setdiff(old_names, names) 1579s [00:52:59.169] changed <- common[...future.oldEnvVars[common] != 1579s [00:52:59.169] envs[common]] 1579s [00:52:59.169] NAMES <- toupper(changed) 1579s [00:52:59.169] args <- list() 1579s [00:52:59.169] for (kk in seq_along(NAMES)) { 1579s [00:52:59.169] name <- changed[[kk]] 1579s [00:52:59.169] NAME <- NAMES[[kk]] 1579s [00:52:59.169] if (name != NAME && is.element(NAME, old_names)) 1579s [00:52:59.169] next 1579s [00:52:59.169] args[[name]] <- ...future.oldEnvVars[[name]] 1579s [00:52:59.169] } 1579s [00:52:59.169] NAMES <- toupper(added) 1579s [00:52:59.169] for (kk in seq_along(NAMES)) { 1579s [00:52:59.169] name <- added[[kk]] 1579s [00:52:59.169] NAME <- NAMES[[kk]] 1579s [00:52:59.169] if (name != NAME && is.element(NAME, old_names)) 1579s [00:52:59.169] next 1579s [00:52:59.169] args[[name]] <- "" 1579s [00:52:59.169] } 1579s [00:52:59.169] NAMES <- toupper(removed) 1579s [00:52:59.169] for (kk in seq_along(NAMES)) { 1579s [00:52:59.169] name <- removed[[kk]] 1579s [00:52:59.169] NAME <- NAMES[[kk]] 1579s [00:52:59.169] if (name != NAME && is.element(NAME, old_names)) 1579s [00:52:59.169] next 1579s [00:52:59.169] args[[name]] <- ...future.oldEnvVars[[name]] 1579s [00:52:59.169] } 1579s [00:52:59.169] if (length(args) > 0) 1579s [00:52:59.169] base::do.call(base::Sys.setenv, args = args) 1579s [00:52:59.169] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1579s [00:52:59.169] } 1579s [00:52:59.169] else { 1579s [00:52:59.169] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1579s [00:52:59.169] } 1579s [00:52:59.169] { 1579s [00:52:59.169] if (base::length(...future.futureOptionsAdded) > 1579s [00:52:59.169] 0L) { 1579s [00:52:59.169] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1579s [00:52:59.169] base::names(opts) <- ...future.futureOptionsAdded 1579s [00:52:59.169] base::options(opts) 1579s [00:52:59.169] } 1579s [00:52:59.169] { 1579s [00:52:59.169] { 1579s [00:52:59.169] NULL 1579s [00:52:59.169] RNGkind("Mersenne-Twister") 1579s [00:52:59.169] base::rm(list = ".Random.seed", envir = base::globalenv(), 1579s [00:52:59.169] inherits = FALSE) 1579s [00:52:59.169] } 1579s [00:52:59.169] options(future.plan = NULL) 1579s [00:52:59.169] if (is.na(NA_character_)) 1579s [00:52:59.169] Sys.unsetenv("R_FUTURE_PLAN") 1579s [00:52:59.169] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1579s [00:52:59.169] future::plan(list(function (..., workers = availableCores(), 1579s [00:52:59.169] lazy = FALSE, rscript_libs = .libPaths(), 1579s [00:52:59.169] envir = parent.frame()) 1579s [00:52:59.169] { 1579s [00:52:59.169] if (is.function(workers)) 1579s [00:52:59.169] workers <- workers() 1579s [00:52:59.169] workers <- structure(as.integer(workers), 1579s [00:52:59.169] class = class(workers)) 1579s [00:52:59.169] stop_if_not(length(workers) == 1, is.finite(workers), 1579s [00:52:59.169] workers >= 1) 1579s [00:52:59.169] if (workers == 1L && !inherits(workers, "AsIs")) { 1579s [00:52:59.169] return(sequential(..., lazy = TRUE, envir = envir)) 1579s [00:52:59.169] } 1579s [00:52:59.169] future <- MultisessionFuture(..., workers = workers, 1579s [00:52:59.169] lazy = lazy, rscript_libs = rscript_libs, 1579s [00:52:59.169] envir = envir) 1579s [00:52:59.169] if (!future$lazy) 1579s [00:52:59.169] future <- run(future) 1579s [00:52:59.169] invisible(future) 1579s [00:52:59.169] }), .cleanup = FALSE, .init = FALSE) 1579s [00:52:59.169] } 1579s [00:52:59.169] } 1579s [00:52:59.169] } 1579s [00:52:59.169] }) 1579s [00:52:59.169] if (TRUE) { 1579s [00:52:59.169] base::sink(type = "output", split = FALSE) 1579s [00:52:59.169] if (TRUE) { 1579s [00:52:59.169] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1579s [00:52:59.169] } 1579s [00:52:59.169] else { 1579s [00:52:59.169] ...future.result["stdout"] <- base::list(NULL) 1579s [00:52:59.169] } 1579s [00:52:59.169] base::close(...future.stdout) 1579s [00:52:59.169] ...future.stdout <- NULL 1579s [00:52:59.169] } 1579s [00:52:59.169] ...future.result$conditions <- ...future.conditions 1579s [00:52:59.169] ...future.result$finished <- base::Sys.time() 1579s [00:52:59.169] ...future.result 1579s [00:52:59.169] } 1579s [00:52:59.175] assign_globals() ... 1579s [00:52:59.175] List of 5 1579s [00:52:59.175] $ ...future.FUN :function (x, ...) 1579s [00:52:59.175] $ future.call.arguments : list() 1579s [00:52:59.175] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1579s [00:52:59.175] $ ...future.elements_ii :List of 3 1579s [00:52:59.175] ..$ a: num 1 1579s [00:52:59.175] ..$ b: num 2 1579s [00:52:59.175] ..$ c: num 3 1579s [00:52:59.175] $ ...future.seeds_ii : NULL 1579s [00:52:59.175] $ ...future.globals.maxSize: NULL 1579s [00:52:59.175] - attr(*, "where")=List of 5 1579s [00:52:59.175] ..$ ...future.FUN : 1579s [00:52:59.175] ..$ future.call.arguments : 1579s [00:52:59.175] ..$ ...future.elements_ii : 1579s [00:52:59.175] ..$ ...future.seeds_ii : 1579s [00:52:59.175] ..$ ...future.globals.maxSize: 1579s [00:52:59.175] - attr(*, "resolved")= logi FALSE 1579s [00:52:59.175] - attr(*, "total_size")= num 1248 1579s [00:52:59.175] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1579s [00:52:59.175] - attr(*, "already-done")= logi TRUE 1579s [00:52:59.186] - copied ‘...future.FUN’ to environment 1579s [00:52:59.186] - copied ‘future.call.arguments’ to environment 1579s [00:52:59.186] - copied ‘...future.elements_ii’ to environment 1579s [00:52:59.186] - copied ‘...future.seeds_ii’ to environment 1579s [00:52:59.187] - copied ‘...future.globals.maxSize’ to environment 1579s [00:52:59.187] assign_globals() ... done 1579s [00:52:59.188] plan(): Setting new future strategy stack: 1579s [00:52:59.189] List of future strategies: 1579s [00:52:59.189] 1. sequential: 1579s [00:52:59.189] - args: function (..., envir = parent.frame()) 1579s [00:52:59.189] - tweaked: FALSE 1579s [00:52:59.189] - call: NULL 1579s [00:52:59.189] plan(): nbrOfWorkers() = 1 1579s [00:52:59.191] plan(): Setting new future strategy stack: 1579s [00:52:59.192] List of future strategies: 1579s [00:52:59.192] 1. multisession: 1579s [00:52:59.192] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1579s [00:52:59.192] - tweaked: FALSE 1579s [00:52:59.192] - call: plan(strategy) 1579s [00:52:59.197] plan(): nbrOfWorkers() = 1 1579s [00:52:59.198] SequentialFuture started (and completed) 1579s [00:52:59.199] - Launch lazy future ... done 1579s [00:52:59.201] run() for ‘SequentialFuture’ ... done 1579s [00:52:59.201] Created future: 1579s [00:52:59.201] SequentialFuture: 1579s [00:52:59.201] Label: ‘future_sapply-1’ 1579s [00:52:59.201] Expression: 1579s [00:52:59.201] { 1579s [00:52:59.201] do.call(function(...) { 1579s [00:52:59.201] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1579s [00:52:59.201] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1579s [00:52:59.201] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1579s [00:52:59.201] on.exit(options(oopts), add = TRUE) 1579s [00:52:59.201] } 1579s [00:52:59.201] { 1579s [00:52:59.201] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1579s [00:52:59.201] ...future.X_jj <- ...future.elements_ii[[jj]] 1579s [00:52:59.201] ...future.FUN(...future.X_jj, ...) 1579s [00:52:59.201] }) 1579s [00:52:59.201] } 1579s [00:52:59.201] }, args = future.call.arguments) 1579s [00:52:59.201] } 1579s [00:52:59.201] Lazy evaluation: FALSE 1579s [00:52:59.201] Asynchronous evaluation: FALSE 1579s [00:52:59.201] Local evaluation: TRUE 1579s [00:52:59.201] Environment: R_GlobalEnv 1579s [00:52:59.201] Capture standard output: TRUE 1579s [00:52:59.201] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1579s [00:52:59.201] Globals: 5 objects totaling 1.38 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1579s [00:52:59.201] Packages: 1579s [00:52:59.201] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1579s [00:52:59.201] Resolved: TRUE 1579s [00:52:59.201] Value: 672 bytes of class ‘list’ 1579s [00:52:59.201] Early signaling: FALSE 1579s [00:52:59.201] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1579s [00:52:59.201] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1579s [00:52:59.204] Chunk #1 of 1 ... DONE 1579s [00:52:59.204] Launching 1 futures (chunks) ... DONE 1579s [00:52:59.204] Resolving 1 futures (chunks) ... 1579s [00:52:59.204] resolve() on list ... 1579s [00:52:59.204] recursive: 0 1579s [00:52:59.204] length: 1 1579s [00:52:59.204] 1579s [00:52:59.205] resolved() for ‘SequentialFuture’ ... 1579s [00:52:59.205] - state: ‘finished’ 1579s [00:52:59.205] - run: TRUE 1579s [00:52:59.205] - result: ‘FutureResult’ 1579s [00:52:59.205] resolved() for ‘SequentialFuture’ ... done 1579s [00:52:59.205] Future #1 1579s [00:52:59.206] signalConditionsASAP(SequentialFuture, pos=1) ... 1579s [00:52:59.206] - nx: 1 1579s [00:52:59.206] - relay: TRUE 1579s [00:52:59.206] - stdout: TRUE 1579s [00:52:59.206] - signal: TRUE 1579s [00:52:59.206] - resignal: FALSE 1579s [00:52:59.207] - force: TRUE 1579s [00:52:59.207] - relayed: [n=1] FALSE 1579s [00:52:59.207] - queued futures: [n=1] FALSE 1579s [00:52:59.207] - until=1 1579s [00:52:59.207] - relaying element #1 1579s [00:52:59.208] - relayed: [n=1] TRUE 1579s [00:52:59.208] - queued futures: [n=1] TRUE 1579s [00:52:59.208] signalConditionsASAP(SequentialFuture, pos=1) ... done 1579s [00:52:59.208] length: 0 (resolved future 1) 1579s [00:52:59.209] Relaying remaining futures 1579s [00:52:59.209] signalConditionsASAP(NULL, pos=0) ... 1579s [00:52:59.209] - nx: 1 1579s [00:52:59.209] - relay: TRUE 1579s [00:52:59.209] - stdout: TRUE 1579s [00:52:59.209] - signal: TRUE 1579s [00:52:59.209] - resignal: FALSE 1579s [00:52:59.210] - force: TRUE 1579s [00:52:59.210] - relayed: [n=1] TRUE 1579s [00:52:59.210] - queued futures: [n=1] TRUE 1579s - flush all 1579s [00:52:59.210] - relayed: [n=1] TRUE 1579s [00:52:59.210] - queued futures: [n=1] TRUE 1579s [00:52:59.211] signalConditionsASAP(NULL, pos=0) ... done 1579s [00:52:59.211] resolve() on list ... DONE 1579s [00:52:59.212] - Number of value chunks collected: 1 1579s [00:52:59.212] Resolving 1 futures (chunks) ... DONE 1579s [00:52:59.212] Reducing values from 1 chunks ... 1579s [00:52:59.213] - Number of values collected after concatenation: 3 1579s [00:52:59.213] - Number of values expected: 3 1579s [00:52:59.213] Reducing values from 1 chunks ... DONE 1579s [00:52:59.213] future_lapply() ... DONE 1579s List of 2 1579s $ y0:List of 3 1579s ..$ a: num [1, 1] 1 1579s ..$ b: num [1, 1] 2 1579s ..$ c: num [1, 1] 3 1579s $ y1:List of 3 1579s ..$ a: num [1, 1] 1 1579s ..$ b: num [1, 1] 2 1579s ..$ c: num [1, 1] 3 1579s List of 2 1579s $ y0:List of 3 1579s ..$ a: num [1, 1] 1 1579s ..$ b: num [1, 1] 2 1579s ..$ c: num [1, 1] 3 1579s $ y2:List of 3 1579s ..$ a: num [1, 1] 1 1579s ..$ b: num [1, 1] 2 1579s ..$ c: num [1, 1] 3 1579s [00:52:59.236] future_lapply() ... 1579s [00:52:59.241] Number of chunks: 1 1579s [00:52:59.242] getGlobalsAndPackagesXApply() ... 1579s [00:52:59.242] - future.globals: TRUE 1579s [00:52:59.242] getGlobalsAndPackages() ... 1579s [00:52:59.242] Searching for globals... 1579s [00:52:59.245] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1579s [00:52:59.246] Searching for globals ... DONE 1579s [00:52:59.246] Resolving globals: FALSE 1579s [00:52:59.247] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1579s [00:52:59.247] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1579s [00:52:59.247] - globals: [1] ‘FUN’ 1579s [00:52:59.247] 1579s [00:52:59.248] getGlobalsAndPackages() ... DONE 1579s [00:52:59.248] - globals found/used: [n=1] ‘FUN’ 1579s [00:52:59.248] - needed namespaces: [n=0] 1579s [00:52:59.248] Finding globals ... DONE 1579s [00:52:59.248] - use_args: TRUE 1579s [00:52:59.248] - Getting '...' globals ... 1579s [00:52:59.249] resolve() on list ... 1579s [00:52:59.250] recursive: 0 1579s [00:52:59.250] length: 1 1579s [00:52:59.250] elements: ‘...’ 1579s [00:52:59.250] length: 0 (resolved future 1) 1579s [00:52:59.250] resolve() on list ... DONE 1579s [00:52:59.250] - '...' content: [n=0] 1579s [00:52:59.251] List of 1 1579s [00:52:59.251] $ ...: list() 1579s [00:52:59.251] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1579s [00:52:59.251] - attr(*, "where")=List of 1 1579s [00:52:59.251] ..$ ...: 1579s [00:52:59.251] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1579s [00:52:59.251] - attr(*, "resolved")= logi TRUE 1579s [00:52:59.251] - attr(*, "total_size")= num NA 1579s [00:52:59.255] - Getting '...' globals ... DONE 1579s [00:52:59.255] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1579s [00:52:59.255] List of 2 1579s [00:52:59.255] $ ...future.FUN:function (x, y = 2 * 1:5) 1579s [00:52:59.255] $ ... : list() 1579s [00:52:59.255] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1579s [00:52:59.255] - attr(*, "where")=List of 2 1579s [00:52:59.255] ..$ ...future.FUN: 1579s [00:52:59.255] ..$ ... : 1579s [00:52:59.255] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1579s [00:52:59.255] - attr(*, "resolved")= logi FALSE 1579s [00:52:59.255] - attr(*, "total_size")= num 4728 1579s [00:52:59.260] Packages to be attached in all futures: [n=0] 1579s [00:52:59.260] getGlobalsAndPackagesXApply() ... DONE 1579s [00:52:59.260] Number of futures (= number of chunks): 1 1579s [00:52:59.260] Launching 1 futures (chunks) ... 1579s [00:52:59.260] Chunk #1 of 1 ... 1579s [00:52:59.261] - Finding globals in 'X' for chunk #1 ... 1579s [00:52:59.261] getGlobalsAndPackages() ... 1579s [00:52:59.261] Searching for globals... 1579s [00:52:59.261] 1579s [00:52:59.261] Searching for globals ... DONE 1579s [00:52:59.261] - globals: [0] 1579s [00:52:59.262] getGlobalsAndPackages() ... DONE 1579s [00:52:59.262] + additional globals found: [n=0] 1579s [00:52:59.262] + additional namespaces needed: [n=0] 1579s [00:52:59.262] - Finding globals in 'X' for chunk #1 ... DONE 1579s [00:52:59.262] - seeds: 1579s [00:52:59.262] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1579s [00:52:59.262] getGlobalsAndPackages() ... 1579s [00:52:59.263] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1579s [00:52:59.263] Resolving globals: FALSE 1579s [00:52:59.263] Tweak future expression to call with '...' arguments ... 1579s [00:52:59.263] { 1579s [00:52:59.263] do.call(function(...) { 1579s [00:52:59.263] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1579s [00:52:59.263] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1579s [00:52:59.263] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1579s [00:52:59.263] on.exit(options(oopts), add = TRUE) 1579s [00:52:59.263] } 1579s [00:52:59.263] { 1579s [00:52:59.263] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1579s [00:52:59.263] ...future.X_jj <- ...future.elements_ii[[jj]] 1579s [00:52:59.263] ...future.FUN(...future.X_jj, ...) 1579s [00:52:59.263] }) 1579s [00:52:59.263] } 1579s [00:52:59.263] }, args = future.call.arguments) 1579s [00:52:59.263] } 1579s [00:52:59.264] Tweak future expression to call with '...' arguments ... DONE 1579s [00:52:59.264] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1579s [00:52:59.264] 1579s [00:52:59.264] getGlobalsAndPackages() ... DONE 1579s [00:52:59.265] run() for ‘Future’ ... 1579s [00:52:59.265] - state: ‘created’ 1579s [00:52:59.265] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1579s [00:52:59.270] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1579s [00:52:59.271] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1579s [00:52:59.271] - Field: ‘label’ 1579s [00:52:59.271] - Field: ‘local’ 1579s [00:52:59.271] - Field: ‘owner’ 1579s [00:52:59.272] - Field: ‘envir’ 1579s [00:52:59.272] - Field: ‘packages’ 1579s [00:52:59.272] - Field: ‘gc’ 1579s [00:52:59.272] - Field: ‘conditions’ 1579s [00:52:59.272] - Field: ‘expr’ 1579s [00:52:59.272] - Field: ‘uuid’ 1579s [00:52:59.273] - Field: ‘seed’ 1579s [00:52:59.273] - Field: ‘version’ 1579s [00:52:59.273] - Field: ‘result’ 1579s [00:52:59.273] - Field: ‘asynchronous’ 1579s [00:52:59.274] - Field: ‘calls’ 1579s [00:52:59.274] - Field: ‘globals’ 1579s [00:52:59.274] - Field: ‘stdout’ 1579s [00:52:59.274] - Field: ‘earlySignal’ 1579s [00:52:59.275] - Field: ‘lazy’ 1579s [00:52:59.275] - Field: ‘state’ 1579s [00:52:59.275] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1579s [00:52:59.275] - Launch lazy future ... 1579s [00:52:59.275] Packages needed by the future expression (n = 0): 1579s [00:52:59.276] Packages needed by future strategies (n = 0): 1579s [00:52:59.276] { 1579s [00:52:59.276] { 1579s [00:52:59.276] { 1579s [00:52:59.276] ...future.startTime <- base::Sys.time(List) 1579s [00:52:59.276] { 1579s [00:52:59.276] { 1579s [00:52:59.276] { 1579s [00:52:59.276] base::local({ 1579s [00:52:59.276] has_future <- base::requireNamespace("future", 1579s [00:52:59.276] quietly = TRUE) 1579s [00:52:59.276] if (has_future) { 1579s [00:52:59.276] ns <- base::getNamespace("future") 1579s [00:52:59.276] version <- ns[[".package"]][["version"]] 1579s [00:52:59.276] if (is.null(version)) 1579s [00:52:59.276] version <- utils::packageVersion("future") 1579s [00:52:59.276] } 1579s [00:52:59.276] else { 1579s [00:52:59.276] version <- NULL 1579s [00:52:59.276] } 1579s [00:52:59.276] if (!has_future || version < "1.8.0") { 1579s [00:52:59.276] info <- base::c(r_version = base::gsub("R version ", 1579s [00:52:59.276] "", base::R.version$version.string), 1579s [00:52:59.276] platform = base::sprintf("%s (%s-bit)", 1579s [00:52:59.276] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1579s [00:52:59.276] os = base::paste(base::Sys.info()[base::c("sysname", 1579s [00:52:59.276] "release", "version")], collapse = " "), 1579s [00:52:59.276] hostname = base::Sys.info()[["nodename"]]) 1579s [00:52:59.276] info <- base::sprintf("%s: %s", base::names(info), 1579s [00:52:59.276] info) 1579s [00:52:59.276] info <- base::paste(info, collapse = "; ") 1579s [00:52:59.276] if (!has_future) { 1579s [00:52:59.276] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1579s [00:52:59.276] info) 1579s [00:52:59.276] } 1579s [00:52:59.276] else { 1579s [00:52:59.276] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1579s [00:52:59.276] info, version) 1579s [00:52:59.276] } 1579s [00:52:59.276] base::stop(msg) 1579s [00:52:59.276] } 1579s [00:52:59.276] }) 1579s [00:52:59.276] } 1579s [00:52:59.276] options(future.plan = NULL) 1579s [00:52:59.276] Sys.unsetenv("R_FUTURE_PLAN") 1579s [00:52:59.276] future::plan("default", .cleanup = FALSE, .init = FALSE) 1579s [00:52:59.276] } 1579s [00:52:59.276] ...future.workdir <- getwd() 1579s [00:52:59.276] } 1579s [00:52:59.276] ...future.oldOptions <- base::as.list(base::.Options) 1579s [00:52:59.276] ...future.oldEnvVars <- base::Sys.getenv() 1579s [00:52:59.276] } 1579s [00:52:59.276] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1579s [00:52:59.276] future.globals.maxSize = NULL, future.globals.method = NULL, 1579s [00:52:59.276] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1579s [00:52:59.276] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1579s [00:52:59.276] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1579s [00:52:59.276] future.stdout.windows.reencode = NULL, width = 80L) 1579s [00:52:59.276] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1579s [00:52:59.276] base::names(...future.oldOptions)) 1579s [00:52:59.276] } 1579s [00:52:59.276] if (FALSE) { 1579s [00:52:59.276] } 1579s [00:52:59.276] else { 1579s [00:52:59.276] if (TRUE) { 1579s [00:52:59.276] ...future.stdout <- base::rawConnection(base::raw(0L), 1579s [00:52:59.276] open = "w") 1579s [00:52:59.276] } 1579s [00:52:59.276] else { 1579s [00:52:59.276] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1579s [00:52:59.276] windows = "NUL", "/dev/null"), open = "w") 1579s [00:52:59.276] } 1579s [00:52:59.276] base::sink(...future.stdout, type = "output", split = FALSE) 1579s [00:52:59.276] base::on.exit(if (!base::is.null(...future.stdout)) { 1579s [00:52:59.276] base::sink(type = "output", split = FALSE) 1579s [00:52:59.276] base::close(...future.stdout) 1579s [00:52:59.276] }, add = TRUE) 1579s [00:52:59.276] } 1579s [00:52:59.276] ...future.frame <- base::sys.nframe() 1579s [00:52:59.276] ...future.conditions <- base::list() 1579s [00:52:59.276] ...future.rng <- base::globalenv()$.Random.seed 1579s [00:52:59.276] if (FALSE) { 1579s [00:52:59.276] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1579s [00:52:59.276] "...future.value", "...future.globalenv.names", ".Random.seed") 1579s [00:52:59.276] } 1579s [00:52:59.276] ...future.result <- base::tryCatch({ 1579s [00:52:59.276] base::withCallingHandlers({ 1579s [00:52:59.276] ...future.value <- base::withVisible(base::local({ 1579s [00:52:59.276] do.call(function(...) { 1579s [00:52:59.276] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1579s [00:52:59.276] if (!identical(...future.globals.maxSize.org, 1579s [00:52:59.276] ...future.globals.maxSize)) { 1579s [00:52:59.276] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1579s [00:52:59.276] on.exit(options(oopts), add = TRUE) 1579s [00:52:59.276] } 1579s [00:52:59.276] { 1579s [00:52:59.276] lapply(seq_along(...future.elements_ii), 1579s [00:52:59.276] FUN = function(jj) { 1579s [00:52:59.276] ...future.X_jj <- ...future.elements_ii[[jj]] 1579s [00:52:59.276] ...future.FUN(...future.X_jj, ...) 1579s [00:52:59.276] }) 1579s [00:52:59.276] } 1579s [00:52:59.276] }, args = future.call.arguments) 1579s [00:52:59.276] })) 1579s [00:52:59.276] future::FutureResult(value = ...future.value$value, 1579s [00:52:59.276] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1579s [00:52:59.276] ...future.rng), globalenv = if (FALSE) 1579s [00:52:59.276] list(added = base::setdiff(base::names(base::.GlobalEnv), 1579s [00:52:59.276] ...future.globalenv.names)) 1579s [00:52:59.276] else NULL, started = ...future.startTime, version = "1.8") 1579s [00:52:59.276] }, condition = base::local({ 1579s [00:52:59.276] c <- base::c 1579s [00:52:59.276] inherits <- base::inherits 1579s [00:52:59.276] invokeRestart <- base::invokeRestart 1579s [00:52:59.276] length <- base::length 1579s [00:52:59.276] list <- base::list 1579s [00:52:59.276] seq.int <- base::seq.int 1579s [00:52:59.276] signalCondition <- base::signalCondition 1579s [00:52:59.276] sys.calls <- base::sys.calls 1579s [00:52:59.276] `[[` <- base::`[[` 1579s [00:52:59.276] `+` <- base::`+` 1579s [00:52:59.276] `<<-` <- base::`<<-` 1579s [00:52:59.276] sysCalls <- function(calls = sys.calls(), from = 1L) { 1579s [00:52:59.276] calls[seq.int(from = from + 12L, to = length(calls) - 1579s [00:52:59.276] 3L)] 1579s [00:52:59.276] } 1579s [00:52:59.276] function(cond) { 1579s [00:52:59.276] is_error <- inherits(cond, "error") 1579s [00:52:59.276] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1579s [00:52:59.276] NULL) 1579s [00:52:59.276] if (is_error) { 1579s [00:52:59.276] sessionInformation <- function() { 1579s [00:52:59.276] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1579s [00:52:59.276] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1579s [00:52:59.276] search = base::search(), system = base::Sys.info()) 1579s [00:52:59.276] } 1579s [00:52:59.276] of 2 1579s $ y0:List of 3 1579s ..$ a: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1579s ..$ b: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1579s ..$ c: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1579s $ y1: ...future.conditions[[length(...future.conditions) + 1579s [00:52:59.276] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1579s [00:52:59.276] cond$call), session = sessionInformation(), 1579s [00:52:59.276] timestamp = base::Sys.time(), signaled = 0L) 1579s [00:52:59.276] signalCondition(cond) 1579s [00:52:59.276] } 1579s [00:52:59.276] else if (!ignore && TRUE && inherits(cond, c("condition", 1579s [00:52:59.276] "immediateCondition"))) { 1579s [00:52:59.276] signal <- TRUE && inherits(cond, "immediateCondition") 1579s [00:52:59.276] ...future.conditions[[length(...future.conditions) + 1579s [00:52:59.276] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1579s [00:52:59.276] if (TRUE && !signal) { 1579s [00:52:59.276] muffleCondition <- function (cond, pattern = "^muffle") 1579s [00:52:59.276] { 1579s [00:52:59.276] inherits <- base::inherits 1579s [00:52:59.276] invokeRestart <- base::invokeRestart 1579s [00:52:59.276] is.null <- base::is.null 1579s [00:52:59.276] muffled <- FALSE 1579s [00:52:59.276] if (inherits(cond, "message")) { 1579s [00:52:59.276] muffled <- grepl(pattern, "muffleMessage") 1579s [00:52:59.276] if (muffled) 1579s [00:52:59.276] invokeRestart("muffleMessage") 1579s [00:52:59.276] } 1579s [00:52:59.276] else if (inherits(cond, "warning")) { 1579s [00:52:59.276] muffled <- grepl(pattern, "muffleWarning") 1579s [00:52:59.276] if (muffled) 1579s [00:52:59.276] invokeRestart("muffleWarning") 1579s [00:52:59.276] } 1579s [00:52:59.276] else if (inherits(cond, "condition")) { 1579s [00:52:59.276] if (!is.null(pattern)) { 1579s [00:52:59.276] computeRestarts <- base::computeRestarts 1579s [00:52:59.276] grepl <- base::grepl 1579s [00:52:59.276] restarts <- computeRestarts(cond) 1579s [00:52:59.276] for (restart in restarts) { 1579s [00:52:59.276] name <- restart$name 1579s [00:52:59.276] if (is.null(name)) 1579s [00:52:59.276] next 1579s [00:52:59.276] if (!grepl(pattern, name)) 1579s [00:52:59.276] next 1579s [00:52:59.276] invokeRestart(restart) 1579s [00:52:59.276] muffled <- TRUE 1579s [00:52:59.276] break 1579s [00:52:59.276] } 1579s [00:52:59.276] } 1579s [00:52:59.276] } 1579s [00:52:59.276] invisible(muffled) 1579s [00:52:59.276] } 1579s [00:52:59.276] muffleCondition(cond, pattern = "^muffle") 1579s [00:52:59.276] } 1579s [00:52:59.276] } 1579s [00:52:59.276] else { 1579s [00:52:59.276] if (TRUE) { 1579s [00:52:59.276] muffleCondition <- function (cond, pattern = "^muffle") 1579s [00:52:59.276] { 1579s [00:52:59.276] inherits <- base::inherits 1579s [00:52:59.276] invokeRestart <- base::invokeRestart 1579s [00:52:59.276] is.null <- base::is.null 1579s [00:52:59.276] muffled <- FALSE 1579s [00:52:59.276] if (inherits(cond, "message")) { 1579s [00:52:59.276] muffled <- grepl(pattern, "muffleMessage") 1579s [00:52:59.276] if (muffled) 1579s [00:52:59.276] invokeRestart("muffleMessage") 1579s [00:52:59.276] } 1579s [00:52:59.276] else if (inherits(cond, "warning")) { 1579s [00:52:59.276] muffled <- grepl(pattern, "muffleWarning") 1579s [00:52:59.276] if (muffled) 1579s [00:52:59.276] invokeRestart("muffleWarning") 1579s [00:52:59.276] } 1579s [00:52:59.276] else if (inherits(cond, "condition")) { 1579s [00:52:59.276] if (!is.null(pattern)) { 1579s [00:52:59.276] computeRestarts <- base::computeRestarts 1579s [00:52:59.276] grepl <- base::grepl 1579s [00:52:59.276] restarts <- computeRestarts(cond) 1579s [00:52:59.276] for (restart in restarts) { 1579s [00:52:59.276] name <- restart$name 1579s [00:52:59.276] if (is.null(name)) 1579s [00:52:59.276] next 1579s [00:52:59.276] if (!grepl(pattern, name)) 1579s [00:52:59.276] next 1579s [00:52:59.276] invokeRestart(restart) 1579s [00:52:59.276] muffled <- TRUE 1579s [00:52:59.276] break 1579s [00:52:59.276] } 1579s [00:52:59.276] } 1579s [00:52:59.276] } 1579s [00:52:59.276] invisible(muffled) 1579s [00:52:59.276] } 1579s [00:52:59.276] muffleCondition(cond, pattern = "^muffle") 1579s [00:52:59.276] } 1579s [00:52:59.276] } 1579s [00:52:59.276] } 1579s [00:52:59.276] })) 1579s [00:52:59.276] }, error = function(ex) { 1579s [00:52:59.276] base::structure(base::list(value = NULL, visible = NULL, 1579s [00:52:59.276] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1579s [00:52:59.276] ...future.rng), started = ...future.startTime, 1579s [00:52:59.276] finished = Sys.time(), session_uuid = NA_character_, 1579s [00:52:59.276] version = "1.8"), class = "FutureResult") 1579s [00:52:59.276] }, finally = { 1579s [00:52:59.276] if (!identical(...future.workdir, getwd())) 1579s [00:52:59.276] setwd(...future.workdir) 1579s [00:52:59.276] { 1579s [00:52:59.276] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1579s [00:52:59.276] ...future.oldOptions$nwarnings <- NULL 1579s [00:52:59.276] } 1579s [00:52:59.276] base::options(...future.oldOptions) 1579s [00:52:59.276] if (.Platform$OS.type == "windows") { 1579s [00:52:59.276] old_names <- names(...future.oldEnvVars) 1579s [00:52:59.276] envs <- base::Sys.getenv() 1579s [00:52:59.276] names <- names(envs) 1579s [00:52:59.276] common <- intersect(names, old_names) 1579s [00:52:59.276] added <- setdiff(names, old_names) 1579s [00:52:59.276] removed <- setdiff(old_names, names) 1579s [00:52:59.276] changed <- common[...future.oldEnvVars[common] != 1579s [00:52:59.276] envs[common]] 1579s [00:52:59.276] NAMES <- toupper(changed) 1579s [00:52:59.276] args <- list() 1579s [00:52:59.276] for (kk in seq_along(NAMES)) { 1579s [00:52:59.276] name <- changed[[kk]] 1579s [00:52:59.276] NAME <- NAMES[[kk]] 1579s [00:52:59.276] if (name != NAME && is.element(NAME, old_names)) 1579s [00:52:59.276] next 1579s [00:52:59.276] args[[name]] <- ...future.oldEnvVars[[name]] 1579s [00:52:59.276] } 1579s [00:52:59.276] NAMES <- toupper(added) 1579s [00:52:59.276] for (kk in seq_along(NAMES)) { 1579s [00:52:59.276] name <- added[[kk]] 1579s [00:52:59.276] NAME <- NAMES[[kk]] 1579s [00:52:59.276] if (name != NAME && is.element(NAME, old_names)) 1579s [00:52:59.276] next 1579s [00:52:59.276] args[[name]] <- "" 1579s [00:52:59.276] } 1579s [00:52:59.276] NAMES <- toupper(removed) 1579s [00:52:59.276] for (kk in seq_along(NAMES)) { 1579s [00:52:59.276] name <- removed[[kk]] 1579s [00:52:59.276] NAME <- NAMES[[kk]] 1579s [00:52:59.276] if (name != NAME && is.element(NAME, old_names)) 1579s [00:52:59.276] next 1579s [00:52:59.276] args[[name]] <- ...future.oldEnvVars[[name]] 1579s [00:52:59.276] } 1579s [00:52:59.276] if (length(args) > 0) 1579s [00:52:59.276] base::do.call(base::Sys.setenv, args = args) 1579s [00:52:59.276] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1579s [00:52:59.276] } 1579s [00:52:59.276] else { 1579s [00:52:59.276] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1579s [00:52:59.276] } 1579s [00:52:59.276] { 1579s [00:52:59.276] if (base::length(...future.futureOptionsAdded) > 1579s [00:52:59.276] 0L) { 1579s [00:52:59.276] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1579s [00:52:59.276] base::names(opts) <- ...future.futureOptionsAdded 1579s [00:52:59.276] base::options(opts) 1579s [00:52:59.276] } 1579s [00:52:59.276] { 1579s [00:52:59.276] { 1579s [00:52:59.276] NULL 1579s [00:52:59.276] RNGkind("Mersenne-Twister") 1579s [00:52:59.276] base::rm(list = ".Random.seed", envir = base::globalenv(), 1579s [00:52:59.276] inherits = FALSE) 1579s [00:52:59.276] } 1579s [00:52:59.276] options(future.plan = NULL) 1579s [00:52:59.276] if (is.na(NA_character_)) 1579s [00:52:59.276] Sys.unsetenv("R_FUTURE_PLAN") 1579s [00:52:59.276] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1579s [00:52:59.276] future::plan(list(function (..., workers = availableCores(), 1579s [00:52:59.276] lazy = FALSE, rscript_libs = .libPaths(), 1579s [00:52:59.276] envir = parent.frame()) 1579s [00:52:59.276] { 1579s [00:52:59.276] if (is.function(workers)) 1579s [00:52:59.276] workers <- workers() 1579s [00:52:59.276] workers <- structure(as.integer(workers), 1579s [00:52:59.276] class = class(workers)) 1579s [00:52:59.276] stop_if_not(length(workers) == 1, is.finite(workers), 1579s [00:52:59.276] workers >= 1) 1579s [00:52:59.276] if (workers == 1L && !inherits(workers, "AsIs")) { 1579s [00:52:59.276] return(sequential(..., lazy = TRUE, envir = envir)) 1579s [00:52:59.276] } 1579s [00:52:59.276] future <- MultisessionFuture(..., workers = workers, 1579s [00:52:59.276] lazy = lazy, rscript_libs = rscript_libs, 1579s [00:52:59.276] envir = envir) 1579s [00:52:59.276] if (!future$lazy) 1579s [00:52:59.276] future <- run(future) 1579s [00:52:59.276] invisible(future) 1579s [00:52:59.276] }), .cleanup = FALSE, .init = FALSE) 1579s [00:52:59.276] } 1579s [00:52:59.276] } 1579s [00:52:59.276] } 1579s [00:52:59.276] }) 1579s [00:52:59.276] if (TRUE) { 1579s [00:52:59.276] base::sink(type = "output", split = FALSE) 1579s [00:52:59.276] if (TRUE) { 1579s [00:52:59.276] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1579s [00:52:59.276] } 1579s [00:52:59.276] else { 1579s [00:52:59.276] ...future.result["stdout"] <- base::list(NULL) 1579s [00:52:59.276] } 1579s [00:52:59.276] base::close(...future.stdout) 1579s [00:52:59.276] ...future.stdout <- NULL 1579s [00:52:59.276] } 1579s [00:52:59.276] ...future.result$conditions <- ...future.conditions 1579s [00:52:59.276] ...future.result$finished <- base::Sys.time() 1579s [00:52:59.276] ...future.result 1579s [00:52:59.276] } 1579s [00:52:59.284] assign_globals() ... 1579s [00:52:59.284] List of 5 1579s [00:52:59.284] $ ...future.FUN :function (x, y = 2 * 1:5) 1579s [00:52:59.284] $ future.call.arguments : list() 1579s [00:52:59.284] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1579s [00:52:59.284] $ ...future.elements_ii :List of 3 1579s [00:52:59.284] ..$ a: num 1 1579s [00:52:59.284] ..$ b: num 2 1579s [00:52:59.284] ..$ c: num 3 1579s [00:52:59.284] $ ...future.seeds_ii : NULL 1579s [00:52:59.284] $ ...future.globals.maxSize: NULL 1579s [00:52:59.284] - attr(*, "where")=List of 5 1579s [00:52:59.284] ..$ ...future.FUN : 1579s [00:52:59.284] ..$ future.call.arguments : 1579s [00:52:59.284] ..$ ...future.elements_ii : 1579s [00:52:59.284] ..$ ...future.seeds_ii : 1579s [00:52:59.284] ..$ ...future.globals.maxSize: 1579s [00:52:59.284] - attr(*, "resolved")= logi FALSE 1579s [00:52:59.284] - attr(*, "total_size")= num 4728 1579s [00:52:59.284] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1579s [00:52:59.284] - attr(*, "already-done")= logi TRUE 1579s [00:52:59.294] - reassign environment for ‘...future.FUN’ 1579s [00:52:59.294] - copied ‘...future.FUN’ to environment 1579s [00:52:59.295] - copied ‘future.call.arguments’ to environment 1579s [00:52:59.295] - copied ‘...future.elements_ii’ to environment 1579s [00:52:59.295] - copied ‘...future.seeds_ii’ to environment 1579s [00:52:59.295] - copied ‘...future.globals.maxSize’ to environment 1579s [00:52:59.295] assign_globals() ... done 1579s [00:52:59.296] plan(): Setting new future strategy stack: 1579s [00:52:59.296] List of future strategies: 1579s [00:52:59.296] 1. sequential: 1579s [00:52:59.296] - args: function (..., envir = parent.frame()) 1579s [00:52:59.296] - tweaked: FALSE 1579s [00:52:59.296] - call: NULL 1579s [00:52:59.297] plan(): nbrOfWorkers() = 1 1579s [00:52:59.298] plan(): Setting new future strategy stack: 1579s [00:52:59.298] List of future strategies: 1579s [00:52:59.298] 1. multisession: 1579s [00:52:59.298] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1579s [00:52:59.298] - tweaked: FALSE 1579s [00:52:59.298] - call: plan(strategy) 1579s [00:52:59.302] plan(): nbrOfWorkers() = 1 1579s [00:52:59.302] SequentialFuture started (and completed) 1579s [00:52:59.303] - Launch lazy future ... done 1579s [00:52:59.303] run() for ‘SequentialFuture’ ... done 1579s [00:52:59.303] Created future: 1579s [00:52:59.304] SequentialFuture: 1579s [00:52:59.304] Label: ‘future_sapply-1’ 1579s [00:52:59.304] Expression: 1579s [00:52:59.304] { 1579s [00:52:59.304] do.call(function(...) { 1579s [00:52:59.304] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1579s [00:52:59.304] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1579s [00:52:59.304] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1579s [00:52:59.304] on.exit(options(oopts), add = TRUE) 1579s [00:52:59.304] } 1579s [00:52:59.304] { 1579s [00:52:59.304] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1579s [00:52:59.304] ...future.X_jj <- ...future.elements_ii[[jj]] 1579s [00:52:59.304] ...future.FUN(...future.X_jj, ...) 1579s [00:52:59.304] }) 1579s [00:52:59.304] } 1579s [00:52:59.304] }, args = future.call.arguments) 1579s [00:52:59.304] } 1579s [00:52:59.304] Lazy evaluation: FALSE 1579s [00:52:59.304] Asynchronous evaluation: FALSE 1579s [00:52:59.304] Local evaluation: TRUE 1579s [00:52:59.304] Environment: R_GlobalEnv 1579s [00:52:59.304] Capture standard output: TRUE 1579s [00:52:59.304] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1579s [00:52:59.304] Globals: 5 objects totaling 4.78 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1579s [00:52:59.304] Packages: 1579s [00:52:59.304] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1579s [00:52:59.304] Resolved: TRUE 1579s [00:52:59.304] Value: 1.01 KiB of class ‘list’ 1579s [00:52:59.304] Early signaling: FALSE 1579s [00:52:59.304] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1579s [00:52:59.304] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1579s [00:52:59.305] Chunk #1 of 1 ... DONE 1579s [00:52:59.305] Launching 1 futures (chunks) ... DONE 1579s [00:52:59.305] Resolving 1 futures (chunks) ... 1579s [00:52:59.306] resolve() on list ... 1579s [00:52:59.306] recursive: 0 1579s [00:52:59.306] length: 1 1579s [00:52:59.306] 1579s [00:52:59.306] resolved() for ‘SequentialFuture’ ... 1579s [00:52:59.306] - state: ‘finished’ 1579s [00:52:59.307] - run: TRUE 1579s [00:52:59.307] - result: ‘FutureResult’ 1579s [00:52:59.307] resolved() for ‘SequentialFuture’ ... done 1579s [00:52:59.307] Future #1 1579s [00:52:59.307] signalConditionsASAP(SequentialFuture, pos=1) ... 1579s [00:52:59.307] - nx: 1 1579s [00:52:59.307] - relay: TRUE 1579s [00:52:59.307] - stdout: TRUE 1579s [00:52:59.308] - signal: TRUE 1579s [00:52:59.308] - resignal: FALSE 1579s [00:52:59.308] - force: TRUE 1579s [00:52:59.308] - relayed: [n=1] FALSE 1579s [00:52:59.308] - queued futures: [n=1] FALSE 1579s [00:52:59.308] - until=1 1579s [00:52:59.308] - relaying element #1 1579s [00:52:59.309] - relayed: [n=1] TRUE 1579s [00:52:59.309] - queued futures: [n=1] TRUE 1579s [00:52:59.309] signalConditionsASAP(SequentialFuture, pos=1) ... done 1579s [00:52:59.309] length: 0 (resolved future 1) 1579s [00:52:59.309] Relaying remaining futures 1579s [00:52:59.309] signalConditionsASAP(NULL, pos=0) ... 1579s [00:52:59.310] - nx: 1 1579s [00:52:59.310] - relay: TRUE 1579s [00:52:59.310] - stdout: TRUE 1579s [00:52:59.310] - signal: TRUE 1579s [00:52:59.310] - resignal: FALSE 1579s [00:52:59.311] - force: TRUE 1579s [00:52:59.311] - relayed: [n=1] TRUE 1579s [00:52:59.311] - queued futures: [n=1] TRUE 1579s - flush all 1579s [00:52:59.311] - relayed: [n=1] TRUE 1579s [00:52:59.311] - queued futures: [n=1] TRUE 1579s [00:52:59.311] signalConditionsASAP(NULL, pos=0) ... done 1579s [00:52:59.312] resolve() on list ... DONE 1579s [00:52:59.312] - Number of value chunks collected: 1 1579s [00:52:59.313] Resolving 1 futures (chunks) ... DONE 1579s [00:52:59.313] Reducing values from 1 chunks ... 1579s [00:52:59.313] - Number of values collected after concatenation: 3 1579s [00:52:59.314] - Number of values expected: 3 1579s [00:52:59.314] Reducing values from 1 chunks ... DONE 1579s [00:52:59.314] future_lapply() ... DONE 1579s List of 3 1579s ..$ a: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1579s ..$ b: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1579s ..$ c: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1579s List of 2 1579s $ y0:List of 3 1579s ..$ a: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1579s ..$ b: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1579s ..$ c: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1579s $ y2:List of 3 1579s ..$ a: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1579s ..$ b: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1579s ..$ c: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1579s [00:52:59.328] future_lapply() ... 1579s [00:52:59.333] Number of chunks: 1 1579s [00:52:59.333] getGlobalsAndPackagesXApply() ... 1579s [00:52:59.333] - future.globals: TRUE 1579s [00:52:59.333] getGlobalsAndPackages() ... 1579s [00:52:59.334] Searching for globals... 1579s [00:52:59.335] - globals found: [1] ‘FUN’ 1579s [00:52:59.335] Searching for globals ... DONE 1579s [00:52:59.335] Resolving globals: FALSE 1579s [00:52:59.336] The total size of the 1 globals is 848 bytes (848 bytes) 1579s [00:52:59.336] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1579s [00:52:59.336] - globals: [1] ‘FUN’ 1579s [00:52:59.337] 1579s [00:52:59.337] getGlobalsAndPackages() ... DONE 1579s [00:52:59.337] - globals found/used: [n=1] ‘FUN’ 1579s [00:52:59.337] - needed namespaces: [n=0] 1579s [00:52:59.337] Finding globals ... DONE 1579s [00:52:59.337] - use_args: TRUE 1579s [00:52:59.337] - Getting '...' globals ... 1579s [00:52:59.338] resolve() on list ... 1579s [00:52:59.338] recursive: 0 1579s [00:52:59.338] length: 1 1579s [00:52:59.338] elements: ‘...’ 1579s [00:52:59.339] length: 0 (resolved future 1) 1579s [00:52:59.339] resolve() on list ... DONE 1579s [00:52:59.339] - '...' content: [n=0] 1579s [00:52:59.339] List of 1 1579s [00:52:59.339] $ ...: list() 1579s [00:52:59.339] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1579s [00:52:59.339] - attr(*, "where")=List of 1 1579s [00:52:59.339] ..$ ...: 1579s [00:52:59.339] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1579s [00:52:59.339] - attr(*, "resolved")= logi TRUE 1579s [00:52:59.339] - attr(*, "total_size")= num NA 1579s [00:52:59.343] - Getting '...' globals ... DONE 1579s [00:52:59.343] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1579s [00:52:59.343] List of 2 1579s [00:52:59.343] $ ...future.FUN:function (x) 1579s [00:52:59.343] $ ... : list() 1579s [00:52:59.343] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1579s [00:52:59.343] - attr(*, "where")=List of 2 1579s [00:52:59.343] ..$ ...future.FUN: 1579s [00:52:59.343] ..$ ... : 1579s [00:52:59.343] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1579s [00:52:59.343] - attr(*, "resolved")= logi FALSE 1579s [00:52:59.343] - attr(*, "total_size")= num 848 1579s [00:52:59.349] Packages to be attached in all futures: [n=0] 1579s [00:52:59.349] getGlobalsAndPackagesXApply() ... DONE 1579s [00:52:59.349] Number of futures (= number of chunks): 1 1579s [00:52:59.350] Launching 1 futures (chunks) ... 1579s [00:52:59.350] Chunk #1 of 1 ... 1579s [00:52:59.350] - Finding globals in 'X' for chunk #1 ... 1579s [00:52:59.350] getGlobalsAndPackages() ... 1579s [00:52:59.351] Searching for globals... 1579s [00:52:59.352] 1579s [00:52:59.352] Searching for globals ... DONE 1579s [00:52:59.352] - globals: [0] 1579s [00:52:59.352] getGlobalsAndPackages() ... DONE 1579s [00:52:59.352] + additional globals found: [n=0] 1579s [00:52:59.353] + additional namespaces needed: [n=0] 1579s [00:52:59.353] - Finding globals in 'X' for chunk #1 ... DONE 1579s [00:52:59.353] - seeds: 1579s [00:52:59.353] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1579s [00:52:59.353] getGlobalsAndPackages() ... 1579s [00:52:59.354] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1579s [00:52:59.354] Resolving globals: FALSE 1579s [00:52:59.354] Tweak future expression to call with '...' arguments ... 1579s [00:52:59.354] { 1579s [00:52:59.354] do.call(function(...) { 1579s [00:52:59.354] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1579s [00:52:59.354] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1579s [00:52:59.354] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1579s [00:52:59.354] on.exit(options(oopts), add = TRUE) 1579s [00:52:59.354] } 1579s [00:52:59.354] { 1579s [00:52:59.354] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1579s [00:52:59.354] ...future.X_jj <- ...future.elements_ii[[jj]] 1579s [00:52:59.354] ...future.FUN(...future.X_jj, ...) 1579s [00:52:59.354] }) 1579s [00:52:59.354] } 1579s [00:52:59.354] }, args = future.call.arguments) 1579s [00:52:59.354] } 1579s [00:52:59.355] Tweak future expression to call with '...' arguments ... DONE 1579s [00:52:59.356] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1579s [00:52:59.357] 1579s [00:52:59.358] getGlobalsAndPackages() ... DONE 1579s [00:52:59.358] run() for ‘Future’ ... 1579s [00:52:59.359] - state: ‘created’ 1579s [00:52:59.359] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1579s [00:52:59.370] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1579s [00:52:59.371] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1579s [00:52:59.371] - Field: ‘label’ 1579s [00:52:59.371] - Field: ‘local’ 1579s [00:52:59.371] - Field: ‘owner’ 1579s [00:52:59.371] - Field: ‘envir’ 1579s [00:52:59.371] - Field: ‘packages’ 1579s [00:52:59.372] - Field: ‘gc’ 1579s [00:52:59.372] - Field: ‘conditions’ 1579s [00:52:59.372] - Field: ‘expr’ 1579s [00:52:59.372] - Field: ‘uuid’ 1579s [00:52:59.372] - Field: ‘seed’ 1579s [00:52:59.372] - Field: ‘version’ 1579s [00:52:59.373] - Field: ‘result’ 1579s [00:52:59.373] - Field: ‘asynchronous’ 1579s [00:52:59.373] - Field: ‘calls’ 1579s [00:52:59.373] - Field: ‘globals’ 1579s [00:52:59.373] - Field: ‘stdout’ 1579s [00:52:59.373] - Field: ‘earlySignal’ 1579s [00:52:59.374] - Field: ‘lazy’ 1579s [00:52:59.374] - Field: ‘state’ 1579s [00:52:59.374] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1579s [00:52:59.374] - Launch lazy future ... 1579s [00:52:59.375] Packages needed by the future expression (n = 0): 1579s [00:52:59.375] Packages needed by future strategies (n = 0): 1579s [00:52:59.376] { 1579s [00:52:59.376] { 1579s [00:52:59.376] { 1579s [00:52:59.376] ...future.startTime <- base::Sys.time() 1579s [00:52:59.376] { 1579s [00:52:59.376] { 1579s [00:52:59.376] { 1579s [00:52:59.376] base::local({ 1579s [00:52:59.376] has_future <- base::requireNamespace("future", 1579s [00:52:59.376] quietly = TRUE) 1579s [00:52:59.376] if (has_future) { 1579s [00:52:59.376] ns <- base::getNamespace("future") 1579s [00:52:59.376] version <- ns[[".package"]][["version"]] 1579s [00:52:59.376] if (is.null(version)) 1579s [00:52:59.376] version <- utils::packageVersion("future") 1579s [00:52:59.376] } 1579s [00:52:59.376] else { 1579s [00:52:59.376] version <- NULL 1579s [00:52:59.376] } 1579s [00:52:59.376] if (!has_future || version < "1.8.0") { 1579s [00:52:59.376] info <- base::c(r_version = base::gsub("R version ", 1579s [00:52:59.376] "", base::R.version$version.string), 1579s [00:52:59.376] platform = base::sprintf("%s (%s-bit)", 1579s [00:52:59.376] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1579s [00:52:59.376] os = base::paste(base::Sys.info()[base::c("sysname", 1579s [00:52:59.376] "release", "version")], collapse = " "), 1579s [00:52:59.376] hostname = base::Sys.info()[["nodename"]]) 1579s [00:52:59.376] info <- base::sprintf("%s: %s", base::names(info), 1579s [00:52:59.376] info) 1579s [00:52:59.376] info <- base::paste(info, collapse = "; ") 1579s [00:52:59.376] if (!has_future) { 1579s [00:52:59.376] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1579s [00:52:59.376] info) 1579s [00:52:59.376] } 1579s [00:52:59.376] else { 1579s [00:52:59.376] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1579s [00:52:59.376] info, version) 1579s [00:52:59.376] } 1579s [00:52:59.376] base::stop(msg) 1579s [00:52:59.376] } 1579s [00:52:59.376] }) 1579s [00:52:59.376] } 1579s [00:52:59.376] options(future.plan = NULL) 1579s [00:52:59.376] Sys.unsetenv("R_FUTURE_PLAN") 1579s [00:52:59.376] future::plan("default", .cleanup = FALSE, .init = FALSE) 1579s [00:52:59.376] } 1579s [00:52:59.376] ...future.workdir <- getwd() 1579s [00:52:59.376] } 1579s [00:52:59.376] ...future.oldOptions <- base::as.list(base::.Options) 1579s [00:52:59.376] ...future.oldEnvVars <- base::Sys.getenv() 1579s [00:52:59.376] } 1579s [00:52:59.376] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1579s [00:52:59.376] future.globals.maxSize = NULL, future.globals.method = NULL, 1579s [00:52:59.376] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1579s [00:52:59.376] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1579s [00:52:59.376] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1579s [00:52:59.376] future.stdout.windows.reencode = NULL, width = 80L) 1579s [00:52:59.376] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1579s [00:52:59.376] base::names(...future.oldOptions)) 1579s [00:52:59.376] } 1579s [00:52:59.376] if (FALSE) { 1579s [00:52:59.376] } 1579s [00:52:59.376] else { 1579s [00:52:59.376] if (TRUE) { 1579s [00:52:59.376] ...future.stdout <- base::rawConnection(base::raw(0L), 1579s [00:52:59.376] open = "w") 1579s [00:52:59.376] } 1579s [00:52:59.376] else { 1579s [00:52:59.376] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1579s [00:52:59.376] windows = "NUL", "/dev/null"), open = "w") 1579s [00:52:59.376] } 1579s [00:52:59.376] base::sink(...future.stdout, type = "output", split = FALSE) 1579s [00:52:59.376] base::on.exit(if (!base::is.null(...future.stdout)) { 1579s [00:52:59.376] base::sink(type = "output", split = FALSE) 1579s [00:52:59.376] base::close(...future.stdout) 1579s [00:52:59.376] }, add = TRUE) 1579s [00:52:59.376] } 1579s [00:52:59.376] ...future.frame <- base::sys.nframe() 1579s [00:52:59.376] ...future.conditions <- base::list() 1579s [00:52:59.376] ...future.rng <- base::globalenv()$.Random.seed 1579s [00:52:59.376] if (FALSE) { 1579s [00:52:59.376] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1579s [00:52:59.376] "...future.value", "...future.globalenv.names", ".Random.seed") 1579s [00:52:59.376] } 1579s [00:52:59.376] ...future.result <- base::tryCatch({ 1579s [00:52:59.376] base::withCallingHandlers({ 1579s [00:52:59.376] ...future.value <- base::withVisible(base::local({ 1579s [00:52:59.376] do.call(function(...) { 1579s [00:52:59.376] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1579s [00:52:59.376] if (!identical(...future.globals.maxSize.org, 1579s [00:52:59.376] ...future.globals.maxSize)) { 1579s [00:52:59.376] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1579s [00:52:59.376] on.exit(options(oopts), add = TRUE) 1579s [00:52:59.376] } 1579s [00:52:59.376] { 1579s [00:52:59.376] lapply(seq_along(...future.elements_ii), 1579s [00:52:59.376] FUN = function(jj) { 1579s [00:52:59.376] ...future.X_jj <- ...future.elements_ii[[jj]] 1579s [00:52:59.376] ...future.FUN(...future.X_jj, ...) 1579s [00:52:59.376] }) 1579s [00:52:59.376] } 1579s [00:52:59.376] }, args = future.call.arguments) 1579s [00:52:59.376] })) 1579s [00:52:59.376] future::FutureResult(value = ...future.value$value, 1579s [00:52:59.376] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1579s [00:52:59.376] ...future.rng), globalenv = if (FALSE) 1579s [00:52:59.376] list(added = base::setdiff(base::names(base::.GlobalEnv), 1579s [00:52:59.376] ...future.globalenv.names)) 1579s [00:52:59.376] else NULL, started = ...future.startTime, version = "1.8") 1579s [00:52:59.376] }, condition = base::local({ 1579s [00:52:59.376] c <- base::c 1579s [00:52:59.376] inherits <- base::inherits 1579s [00:52:59.376] invokeRestart <- base::invokeRestart 1579s [00:52:59.376] length <- base::length 1579s [00:52:59.376] list <- base::list 1579s [00:52:59.376] seq.int <- base::seq.int 1579s [00:52:59.376] signalCondition <- base::signalCondition 1579s [00:52:59.376] sys.calls <- base::sys.calls 1579s [00:52:59.376] `[[` <- base::`[[` 1579s [00:52:59.376] `+` <- base::`+` 1579s [00:52:59.376] `<<-` <- base::`<<-` 1579s [00:52:59.376] sysCalls <- function(calls = sys.calls(), from = 1L) { 1579s [00:52:59.376] calls[seq.int(from = from + 12L, to = length(calls) - 1579s [00:52:59.376] 3L)] 1579s [00:52:59.376] } 1579s [00:52:59.376] function(cond) { 1579s [00:52:59.376] is_error <- inherits(cond, "error") 1579s [00:52:59.376] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1579s [00:52:59.376] NULL) 1579s [00:52:59.376] if (is_error) { 1579s [00:52:59.376] sessionInformation <- function() { 1579s [00:52:59.376] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1579s [00:52:59.376] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1579s [00:52:59.376] search = base::search(), system = base::Sys.info()) 1579s [00:52:59.376] } 1579s [00:52:59.376] ...future.conditions[[length(...future.conditions) + 1579s [00:52:59.376] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1579s [00:52:59.376] cond$call), session = sessionInformation(), 1579s [00:52:59.376] timestamp = base::Sys.time(), signaled = 0L) 1579s [00:52:59.376] signalCondition(cond) 1579s [00:52:59.376] } 1579s [00:52:59.376] else if (!ignore && TRUE && inherits(cond, c("condition", 1579s [00:52:59.376] "immediateCondition"))) { 1579s [00:52:59.376] signal <- TRUE && inherits(cond, "immediateCondition") 1579s [00:52:59.376] ...future.conditions[[length(...future.conditions) + 1579s [00:52:59.376] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1579s [00:52:59.376] if (TRUE && !signal) { 1579s [00:52:59.376] muffleCondition <- function (cond, pattern = "^muffle") 1579s [00:52:59.376] { 1579s [00:52:59.376] inherits <- base::inherits 1579s [00:52:59.376] invokeRestart <- base::invokeRestart 1579s [00:52:59.376] is.null <- base::is.null 1579s [00:52:59.376] muffled <- FALSE 1579s [00:52:59.376] if (inherits(cond, "message")) { 1579s [00:52:59.376] muffled <- grepl(pattern, "muffleMessage") 1579s [00:52:59.376] if (muffled) 1579s [00:52:59.376] invokeRestart("muffleMessage") 1579s [00:52:59.376] } 1579s [00:52:59.376] else if (inherits(cond, "warning")) { 1579s [00:52:59.376] muffled <- grepl(pattern, "muffleWarning") 1579s [00:52:59.376] if (muffled) 1579s [00:52:59.376] invokeRestart("muffleWarning") 1579s [00:52:59.376] } 1579s [00:52:59.376] else if (inherits(cond, "condition")) { 1579s [00:52:59.376] if (!is.null(pattern)) { 1579s [00:52:59.376] computeRestarts <- base::computeRestarts 1579s [00:52:59.376] grepl <- base::grepl 1579s [00:52:59.376] restarts <- computeRestarts(cond) 1579s [00:52:59.376] for (restart in restarts) { 1579s [00:52:59.376] name <- restart$name 1579s [00:52:59.376] if (is.null(name)) 1579s [00:52:59.376] next 1579s [00:52:59.376] if (!grepl(pattern, name)) 1579s [00:52:59.376] next 1579s [00:52:59.376] invokeRestart(restart) 1579s [00:52:59.376] muffled <- TRUE 1579s [00:52:59.376] break 1579s [00:52:59.376] } 1579s [00:52:59.376] } 1579s [00:52:59.376] } 1579s [00:52:59.376] invisible(muffled) 1579s [00:52:59.376] } 1579s [00:52:59.376] muffleCondition(cond, pattern = "^muffle") 1579s [00:52:59.376] } 1579s [00:52:59.376] } 1579s [00:52:59.376] else { 1579s [00:52:59.376] if (TRUE) { 1579s [00:52:59.376] muffleCondition <- function (cond, pattern = "^muffle") 1579s [00:52:59.376] { 1579s [00:52:59.376] inherits <- base::inherits 1579s [00:52:59.376] invokeRestart <- base::invokeRestart 1579s [00:52:59.376] is.null <- base::is.null 1579s [00:52:59.376] muffled <- FALSE 1579s [00:52:59.376] if (inherits(cond, "message")) { 1579s [00:52:59.376] muffled <- grepl(pattern, "muffleMessage") 1579s [00:52:59.376] if (muffled) 1579s [00:52:59.376] invokeRestart("muffleMessage") 1579s [00:52:59.376] } 1579s [00:52:59.376] else if (inherits(cond, "warning")) { 1579s [00:52:59.376] muffled <- grepl(pattern, "muffleWarning") 1579s [00:52:59.376] if (muffled) 1579s [00:52:59.376] invokeRestart("muffleWarning") 1579s [00:52:59.376] } 1579s [00:52:59.376] else if (inherits(cond, "condition")) { 1579s [00:52:59.376] if (!is.null(pattern)) { 1579s [00:52:59.376] computeRestarts <- base::computeRestarts 1579s [00:52:59.376] grepl <- base::grepl 1579s [00:52:59.376] restarts <- computeRestarts(cond) 1579s [00:52:59.376] for (restart in restarts) { 1579s [00:52:59.376] name <- restart$name 1579s [00:52:59.376] if (is.null(name)) 1579s [00:52:59.376] next 1579s [00:52:59.376] if (!grepl(pattern, name)) 1579s [00:52:59.376] next 1579s [00:52:59.376] invokeRestart(restart) 1579s [00:52:59.376] muffled <- TRUE 1579s [00:52:59.376] break 1579s [00:52:59.376] } 1579s [00:52:59.376] } 1579s [00:52:59.376] } 1579s [00:52:59.376] invisible(muffled) 1579s [00:52:59.376] } 1579s [00:52:59.376] muffleCondition(cond, pattern = "^muffle") 1579s [00:52:59.376] } 1579s [00:52:59.376] } 1579s [00:52:59.376] } 1579s [00:52:59.376] })) 1579s [00:52:59.376] }, error = function(ex) { 1579s [00:52:59.376] base::structure(base::list(value = NULL, visible = NULL, 1579s [00:52:59.376] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1579s [00:52:59.376] ...future.rng), started = ...future.startTime, 1579s [00:52:59.376] finished = Sys.time(), session_uuid = NA_character_, 1579s [00:52:59.376] version = "1.8"), class = "FutureResult") 1579s [00:52:59.376] }, finally = { 1579s [00:52:59.376] if (!identical(...future.workdir, getwd())) 1579s [00:52:59.376] setwd(...future.workdir) 1579s [00:52:59.376] { 1579s [00:52:59.376] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1579s [00:52:59.376] ...future.oldOptions$nwarnings <- NULL 1579s [00:52:59.376] } 1579s [00:52:59.376] base::options(...future.oldOptions) 1579s [00:52:59.376] if (.Platform$OS.type == "windows") { 1579s [00:52:59.376] old_names <- names(...future.oldEnvVars) 1579s [00:52:59.376] envs <- base::Sys.getenv() 1579s [00:52:59.376] names <- names(envs) 1579s [00:52:59.376] common <- intersect(names, old_names) 1579s [00:52:59.376] added <- setdiff(names, old_names) 1579s [00:52:59.376] removed <- setdiff(old_names, names) 1579s [00:52:59.376] changed <- common[...future.oldEnvVars[common] != 1579s [00:52:59.376] envs[common]] 1579s [00:52:59.376] NAMES <- toupper(changed) 1579s [00:52:59.376] args <- list() 1579s [00:52:59.376] for (kk in seq_along(NAMES)) { 1579s [00:52:59.376] name <- changed[[kk]] 1579s [00:52:59.376] NAME <- NAMES[[kk]] 1579s [00:52:59.376] if (name != NAME && is.element(NAME, old_names)) 1579s [00:52:59.376] next 1579s [00:52:59.376] args[[name]] <- ...future.oldEnvVars[[name]] 1579s [00:52:59.376] } 1579s [00:52:59.376] NAMES <- toupper(added) 1579s [00:52:59.376] for (kk in seq_along(NAMES)) { 1579s [00:52:59.376] name <- added[[kk]] 1579s [00:52:59.376] NAME <- NAMES[[kk]] 1579s [00:52:59.376] if (name != NAME && is.element(NAME, old_names)) 1579s [00:52:59.376] next 1579s [00:52:59.376] args[[name]] <- "" 1579s [00:52:59.376] } 1579s [00:52:59.376] NAMES <- toupper(removed) 1579s [00:52:59.376] for (kk in seq_along(NAMES)) { 1579s [00:52:59.376] name <- removed[[kk]] 1579s [00:52:59.376] NAME <- NAMES[[kk]] 1579s [00:52:59.376] if (name != NAME && is.element(NAME, old_names)) 1579s [00:52:59.376] next 1579s [00:52:59.376] args[[name]] <- ...future.oldEnvVars[[name]] 1579s [00:52:59.376] } 1579s [00:52:59.376] if (length(args) > 0) 1579s [00:52:59.376] base::do.call(base::Sys.setenv, args = args) 1579s [00:52:59.376] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1579s [00:52:59.376] } 1579s [00:52:59.376] else { 1579s [00:52:59.376] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1579s [00:52:59.376] } 1579s [00:52:59.376] { 1579s [00:52:59.376] if (base::length(...future.futureOptionsAdded) > 1579s [00:52:59.376] 0L) { 1579s [00:52:59.376] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1579s [00:52:59.376] base::names(opts) <- ...future.futureOptionsAdded 1579s [00:52:59.376] base::options(opts) 1579s [00:52:59.376] } 1579s [00:52:59.376] { 1579s [00:52:59.376] { 1579s [00:52:59.376] NULL 1579s [00:52:59.376] RNGkind("Mersenne-Twister") 1579s [00:52:59.376] base::rm(list = ".Random.seed", envir = base::globalenv(), 1579s [00:52:59.376] inherits = FALSE) 1579s [00:52:59.376] } 1579s [00:52:59.376] options(future.plan = NULL) 1579s [00:52:59.376] if (is.na(NA_character_)) 1579s [00:52:59.376] Sys.unsetenv("R_FUTURE_PLAN") 1579s [00:52:59.376] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1579s [00:52:59.376] future::plan(list(function (..., workers = availableCores(), 1579s [00:52:59.376] lazy = FALSE, rscript_libs = .libPaths(), 1579s [00:52:59.376] envir = parent.frame()) 1579s [00:52:59.376] { 1579s [00:52:59.376] if (is.function(workers)) 1579s [00:52:59.376] workers <- workers() 1579s [00:52:59.376] workers <- structure(as.integer(workers), 1579s [00:52:59.376] class = class(workers)) 1579s [00:52:59.376] stop_if_not(length(workers) == 1, is.finite(workers), 1579s [00:52:59.376] workers >= 1) 1579s [00:52:59.376] if (workers == 1L && !inherits(workers, "AsIs")) { 1579s [00:52:59.376] return(sequential(..., lazy = TRUE, envir = envir)) 1579s [00:52:59.376] } 1579s [00:52:59.376] future <- MultisessionFuture(..., workers = workers, 1579s [00:52:59.376] lazy = lazy, rscript_libs = rscript_libs, 1579s [00:52:59.376] envir = envir) 1579s [00:52:59.376] if (!future$lazy) 1579s [00:52:59.376] future <- run(future) 1579s [00:52:59.376] invisible(future) 1579s [00:52:59.376] }), .cleanup = FALSE, .init = FALSE) 1579s [00:52:59.376] } 1579s [00:52:59.376] } 1579s [00:52:59.376] } 1579s [00:52:59.376] }) 1579s [00:52:59.376] if (TRUE) { 1579s [00:52:59.376] base::sink(type = "output", split = FALSE) 1579s [00:52:59.376] if (TRUE) { 1579s [00:52:59.376] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1579s [00:52:59.376] } 1579s [00:52:59.376] else { 1579s [00:52:59.376] ...future.result["stdout"] <- base::list(NULL) 1579s [00:52:59.376] } 1579s [00:52:59.376] base::close(...future.stdout) 1579s [00:52:59.376] ...future.stdout <- NULL 1579s [00:52:59.376] } 1579s [00:52:59.376] ...future.result$conditions <- ...future.conditions 1579s [00:52:59.376] ...future.result$finished <- base::Sys.time() 1579s [00:52:59.376] ...future.result 1579s [00:52:59.376] } 1579s [00:52:59.380] assign_globals() ... 1579s [00:52:59.380] List of 5 1579s [00:52:59.380] $ ...future.FUN :function (x) 1579s [00:52:59.380] $ future.call.arguments : list() 1579s [00:52:59.380] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1579s [00:52:59.380] $ ...future.elements_ii :List of 3 1579s [00:52:59.380] ..$ a: num 1 1579s [00:52:59.380] ..$ b: num 2 1579s [00:52:59.380] ..$ c: num 3 1579s [00:52:59.380] $ ...future.seeds_ii : NULL 1579s [00:52:59.380] $ ...future.globals.maxSize: NULL 1579s [00:52:59.380] - attr(*, "where")=List of 5 1579s [00:52:59.380] ..$ ...future.FUN : 1579s [00:52:59.380] ..$ future.call.arguments : 1579s [00:52:59.380] ..$ ...future.elements_ii : 1579s [00:52:59.380] ..$ ...future.seeds_ii : 1579s [00:52:59.380] ..$ ...future.globals.maxSize: 1579s [00:52:59.380] - attr(*, "resolved")= logi FALSE 1579s [00:52:59.380] - attr(*, "total_size")= num 848 1579s [00:52:59.380] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1579s [00:52:59.380] - attr(*, "already-done")= logi TRUE 1579s [00:52:59.388] - copied ‘...future.FUN’ to environment 1579s [00:52:59.389] - copied ‘future.call.arguments’ to environment 1579s [00:52:59.389] - copied ‘...future.elements_ii’ to environment 1579s [00:52:59.389] - copied ‘...future.seeds_ii’ to environment 1579s [00:52:59.389] - copied ‘...future.globals.maxSize’ to environment 1579s [00:52:59.389] assign_globals() ... done 1579s [00:52:59.390] plan(): Setting new future strategy stack: 1579s [00:52:59.390] List of future strategies: 1579s [00:52:59.390] 1. sequential: 1579s [00:52:59.390] - args: function (..., envir = parent.frame()) 1579s [00:52:59.390] - tweaked: FALSE 1579s [00:52:59.390] - call: NULL 1579s [00:52:59.391] plan(): nbrOfWorkers() = 1 1579s [00:52:59.392] plan(): Setting new future strategy stack: 1579s [00:52:59.392] List of future strategies: 1579s [00:52:59.392] 1. multisession: 1579s [00:52:59.392] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1579s [00:52:59.392] - tweaked: FALSE 1579s [00:52:59.392] - call: plan(strategy) 1579s [00:52:59.396] plan(): nbrOfWorkers() = 1 1579s [00:52:59.397] SequentialFuture started (and completed) 1579s [00:52:59.397] - Launch lazy future ... done 1579s [00:52:59.397] run() for ‘SequentialFuture’ ... done 1579s [00:52:59.397] Created future: 1579s [00:52:59.398] SequentialFuture: 1579s [00:52:59.398] Label: ‘future_sapply-1’ 1579s [00:52:59.398] Expression: 1579s [00:52:59.398] { 1579s [00:52:59.398] do.call(function(...) { 1579s [00:52:59.398] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1579s [00:52:59.398] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1579s [00:52:59.398] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1579s [00:52:59.398] on.exit(options(oopts), add = TRUE) 1579s [00:52:59.398] } 1579s [00:52:59.398] { 1579s [00:52:59.398] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1579s [00:52:59.398] ...future.X_jj <- ...future.elements_ii[[jj]] 1579s [00:52:59.398] ...future.FUN(...future.X_jj, ...) 1579s [00:52:59.398] }) 1579s [00:52:59.398] } 1579s [00:52:59.398] }, args = future.call.arguments) 1579s [00:52:59.398] } 1579s [00:52:59.398] Lazy evaluation: FALSE 1579s [00:52:59.398] Asynchronous evaluation: FALSE 1579s [00:52:59.398] Local evaluation: TRUE 1579s [00:52:59.398] Environment: R_GlobalEnv 1579s [00:52:59.398] Capture standard output: TRUE 1579s [00:52:59.398] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1579s [00:52:59.398] Globals: 5 objects totaling 0.99 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1579s [00:52:59.398] Packages: 1579s [00:52:59.398] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1579s [00:52:59.398] Resolved: TRUE 1579s [00:52:59.398] Value: 168 bytes of class ‘list’ 1579s [00:52:59.398] Early signaling: FALSE 1579s [00:52:59.398] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1579s [00:52:59.398] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1579s [00:52:59.400] Chunk #1 of 1 ... DONE 1579s [00:52:59.400] Launching 1 futures (chunks) ... DONE 1579s [00:52:59.400] Resolving 1 futures (chunks) ... 1579s [00:52:59.400] resolve() on list ... 1579s [00:52:59.400] recursive: 0 1579s [00:52:59.401] length: 1 1579s [00:52:59.401] 1579s [00:52:59.401] resolved() for ‘SequentialFuture’ ... 1579s [00:52:59.401] - state: ‘finished’ 1579s [00:52:59.401] - run: TRUE 1579s [00:52:59.401] - result: ‘FutureResult’ 1579s [00:52:59.401] resolved() for ‘SequentialFuture’ ... done 1579s [00:52:59.401] Future #1 1579s [00:52:59.402] signalConditionsASAP(SequentialFuture, pos=1) ... 1579s [00:52:59.402] - nx: 1 1579s [00:52:59.402] - relay: TRUE 1579s [00:52:59.402] - stdout: TRUE 1579s [00:52:59.402] - signal: TRUE 1579s [00:52:59.402] - resignal: FALSE 1579s [00:52:59.402] - force: TRUE 1579s [00:52:59.402] - relayed: [n=1] FALSE 1579s [00:52:59.403] - queued futures: [n=1] FALSE 1579s [00:52:59.403] - until=1 1579s [00:52:59.403] - relaying element #1 1579s [00:52:59.403] - relayed: [n=1] TRUE 1579s [00:52:59.403] - queued futures: [n=1] TRUE 1579s [00:52:59.403] signalConditionsASAP(SequentialFuture, pos=1) ... done 1579s [00:52:59.403] length: 0 (resolved future 1) 1579s [00:52:59.404] Relaying remaining futures 1579s [00:52:59.404] signalConditionsASAP(NULL, pos=0) ... 1579s [00:52:59.404] - nx: 1 1579s [00:52:59.404] - relay: TRUE 1579s [00:52:59.404] - stdout: TRUE 1579s [00:52:59.404] - signal: TRUE 1579s [00:52:59.404] - resignal: FALSE 1579s [00:52:59.404] - force: TRUE 1579s [00:52:59.404] - relayed: [n=1] TRUE 1579s [00:52:59.404] - queued futures: [n=1] TRUE 1579s - flush all 1579s [00:52:59.405] - relayed: [n=1] TRUE 1579s [00:52:59.405] - queued futures: [n=1] TRUE 1579s [00:52:59.405] signalConditionsASAP(NULL, pos=0) ... done 1579s [00:52:59.405] resolve() on list ... DONE 1579s [00:52:59.405] - Number of value chunks collected: 1 1579s [00:52:59.405] Resolving 1 futures (chunks) ... DONE 1579s [00:52:59.405] Reducing values from 1 chunks ... 1579s [00:52:59.406] - Number of values collected after concatenation: 3 1579s [00:52:59.406] - Number of values expected: 3 1579s [00:52:59.406] Reducing values from 1 chunks ... DONE 1579s [00:52:59.406] future_lapply() ... DONE 1579s List of 2 1579s $ y0: Named num [1:3] 1 2 3 1579s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1579s $ y1: Named num [1:3] 1 2 3 1579s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1579s [00:52:59.409] future_lapply() ... 1579s [00:52:59.413] Number of chunks: 1 1579s [00:52:59.414] getGlobalsAndPackagesXApply() ... 1579s [00:52:59.414] - future.globals: TRUE 1579s [00:52:59.414] getGlobalsAndPackages() ... 1579s [00:52:59.415] Searching for globals... 1579s [00:52:59.416] - globals found: [2] ‘FUN’, ‘UseMethod’ 1579s [00:52:59.417] Searching for globals ... DONE 1579s [00:52:59.417] Resolving globals: FALSE 1579s [00:52:59.417] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1579s [00:52:59.418] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1579s [00:52:59.418] - globals: [1] ‘FUN’ 1579s [00:52:59.418] 1579s [00:52:59.418] getGlobalsAndPackages() ... DONE 1579s [00:52:59.419] - globals found/used: [n=1] ‘FUN’ 1579s [00:52:59.419] - needed namespaces: [n=0] 1579s [00:52:59.419] Finding globals ... DONE 1579s [00:52:59.419] - use_args: TRUE 1579s [00:52:59.419] - Getting '...' globals ... 1579s [00:52:59.420] resolve() on list ... 1579s [00:52:59.420] recursive: 0 1579s [00:52:59.421] length: 1 1579s [00:52:59.421] elements: ‘...’ 1579s [00:52:59.421] length: 0 (resolved future 1) 1579s [00:52:59.421] resolve() on list ... DONE 1579s [00:52:59.421] - '...' content: [n=0] 1579s [00:52:59.421] List of 1 1579s [00:52:59.421] $ ...: list() 1579s [00:52:59.421] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1579s [00:52:59.421] - attr(*, "where")=List of 1 1579s [00:52:59.421] ..$ ...: 1579s [00:52:59.421] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1579s [00:52:59.421] - attr(*, "resolved")= logi TRUE 1579s [00:52:59.421] - attr(*, "total_size")= num NA 1579s [00:52:59.426] - Getting '...' globals ... DONE 1579s [00:52:59.426] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1579s [00:52:59.426] List of 2 1579s [00:52:59.426] $ ...future.FUN:function (x, ...) 1579s [00:52:59.426] $ ... : list() 1579s [00:52:59.426] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1579s [00:52:59.426] - attr(*, "where")=List of 2 1579s [00:52:59.426] ..$ ...future.FUN: 1579s [00:52:59.426] ..$ ... : 1579s [00:52:59.426] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1579s [00:52:59.426] - attr(*, "resolved")= logi FALSE 1579s [00:52:59.426] - attr(*, "total_size")= num 1248 1579s [00:52:59.430] Packages to be attached in all futures: [n=0] 1579s [00:52:59.430] getGlobalsAndPackagesXApply() ... DONE 1579s [00:52:59.430] Number of futures (= number of chunks): 1 1579s [00:52:59.431] Launching 1 futures (chunks) ... 1579s [00:52:59.431] Chunk #1 of 1 ... 1579s [00:52:59.431] - Finding globals in 'X' for chunk #1 ... 1579s [00:52:59.431] getGlobalsAndPackages() ... 1579s [00:52:59.432] Searching for globals... 1579s [00:52:59.432] 1579s [00:52:59.432] Searching for globals ... DONE 1579s [00:52:59.432] - globals: [0] 1579s [00:52:59.433] getGlobalsAndPackages() ... DONE 1579s [00:52:59.433] + additional globals found: [n=0] 1579s [00:52:59.433] + additional namespaces needed: [n=0] 1579s [00:52:59.433] - Finding globals in 'X' for chunk #1 ... DONE 1579s [00:52:59.434] - seeds: 1579s [00:52:59.434] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1579s [00:52:59.434] getGlobalsAndPackages() ... 1579s [00:52:59.434] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1579s [00:52:59.435] Resolving globals: FALSE 1579s [00:52:59.435] Tweak future expression to call with '...' arguments ... 1579s [00:52:59.435] { 1579s [00:52:59.435] do.call(function(...) { 1579s [00:52:59.435] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1579s [00:52:59.435] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1579s [00:52:59.435] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1579s [00:52:59.435] on.exit(options(oopts), add = TRUE) 1579s [00:52:59.435] } 1579s [00:52:59.435] { 1579s [00:52:59.435] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1579s [00:52:59.435] ...future.X_jj <- ...future.elements_ii[[jj]] 1579s [00:52:59.435] ...future.FUN(...future.X_jj, ...) 1579s [00:52:59.435] }) 1579s [00:52:59.435] } 1579s [00:52:59.435] }, args = future.call.arguments) 1579s [00:52:59.435] } 1579s [00:52:59.436] Tweak future expression to call with '...' arguments ... DONE 1579s [00:52:59.436] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1579s [00:52:59.437] 1579s [00:52:59.437] getGlobalsAndPackages() ... DONE 1579s [00:52:59.437] run() for ‘Future’ ... 1579s [00:52:59.437] - state: ‘created’ 1579s [00:52:59.438] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1579s [00:52:59.441] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1579s [00:52:59.442] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1579s [00:52:59.442] - Field: ‘label’ 1579s [00:52:59.442] - Field: ‘local’ 1579s [00:52:59.442] - Field: ‘owner’ 1579s [00:52:59.442] - Field: ‘envir’ 1579s [00:52:59.443] - Field: ‘packages’ 1579s [00:52:59.443] - Field: ‘gc’ 1579s [00:52:59.443] - Field: ‘conditions’ 1579s [00:52:59.443] - Field: ‘expr’ 1579s [00:52:59.443] - Field: ‘uuid’ 1579s [00:52:59.444] - Field: ‘seed’ 1579s [00:52:59.444] - Field: ‘version’ 1579s [00:52:59.444] - Field: ‘result’ 1579s [00:52:59.444] - Field: ‘asynchronous’ 1579s [00:52:59.445] - Field: ‘calls’ 1579s [00:52:59.445] - Field: ‘globals’ 1579s [00:52:59.445] - Field: ‘stdout’ 1579s [00:52:59.445] - Field: ‘earlySignal’ 1579s [00:52:59.445] - Field: ‘lazy’ 1579s [00:52:59.445] - Field: ‘state’ 1579s [00:52:59.446] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1579s [00:52:59.446] - Launch lazy future ... 1579s [00:52:59.446] Packages needed by the future expression (n = 0): 1579s [00:52:59.446] Packages needed by future strategies (n = 0): 1579s [00:52:59.447] { 1579s [00:52:59.447] { 1579s [00:52:59.447] { 1579s [00:52:59.447] ...future.startTime <- base::Sys.time() 1579s [00:52:59.447] { 1579s [00:52:59.447] { 1579s [00:52:59.447] { 1579s [00:52:59.447] base::local({ 1579s [00:52:59.447] has_future <- base::requireNamespace("future", 1579s [00:52:59.447] quietly = TRUE) 1579s [00:52:59.447] if (has_future) { 1579s [00:52:59.447] ns <- base::getNamespace("future") 1579s [00:52:59.447] version <- ns[[".package"]][["version"]] 1579s [00:52:59.447] if (is.null(version)) 1579s [00:52:59.447] version <- utils::packageVersion("future") 1579s [00:52:59.447] } 1579s [00:52:59.447] else { 1579s [00:52:59.447] version <- NULL 1579s [00:52:59.447] } 1579s [00:52:59.447] if (!has_future || version < "1.8.0") { 1579s [00:52:59.447] info <- base::c(r_version = base::gsub("R version ", 1579s [00:52:59.447] "", base::R.version$version.string), 1579s [00:52:59.447] platform = base::sprintf("%s (%s-bit)", 1579s [00:52:59.447] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1579s [00:52:59.447] os = base::paste(base::Sys.info()[base::c("sysname", 1579s [00:52:59.447] "release", "version")], collapse = " "), 1579s [00:52:59.447] hostname = base::Sys.info()[["nodename"]]) 1579s [00:52:59.447] info <- base::sprintf("%s: %s", base::names(info), 1579s [00:52:59.447] info) 1579s [00:52:59.447] info <- base::paste(info, collapse = "; ") 1579s [00:52:59.447] if (!has_future) { 1579s [00:52:59.447] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1579s [00:52:59.447] info) 1579s [00:52:59.447] } 1579s [00:52:59.447] else { 1579s [00:52:59.447] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1579s [00:52:59.447] info, version) 1579s [00:52:59.447] } 1579s [00:52:59.447] base::stop(msg) 1579s [00:52:59.447] } 1579s [00:52:59.447] }) 1579s [00:52:59.447] } 1579s [00:52:59.447] options(future.plan = NULL) 1579s [00:52:59.447] Sys.unsetenv("R_FUTURE_PLAN") 1579s [00:52:59.447] future::plan("default", .cleanup = FALSE, .init = FALSE) 1579s [00:52:59.447] } 1579s [00:52:59.447] ...future.workdir <- getwd() 1579s [00:52:59.447] } 1579s [00:52:59.447] ...future.oldOptions <- base::as.list(base::.Options) 1579s [00:52:59.447] ...future.oldEnvVars <- base::Sys.getenv() 1579s [00:52:59.447] } 1579s [00:52:59.447] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1579s [00:52:59.447] future.globals.maxSize = NULL, future.globals.method = NULL, 1579s [00:52:59.447] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1579s [00:52:59.447] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1579s [00:52:59.447] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1579s [00:52:59.447] future.stdout.windows.reencode = NULL, width = 80L) 1579s [00:52:59.447] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1579s [00:52:59.447] base::names(...future.oldOptions)) 1579s [00:52:59.447] } 1579s [00:52:59.447] if (FALSE) { 1579s [00:52:59.447] } 1579s [00:52:59.447] else { 1579s [00:52:59.447] if (TRUE) { 1579s [00:52:59.447] ...future.stdout <- base::rawConnection(base::raw(0L), 1579s [00:52:59.447] open = "w") 1579s [00:52:59.447] } 1579s [00:52:59.447] else { 1579s [00:52:59.447] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1579s [00:52:59.447] windows = "NUL", "/dev/null"), open = "w") 1579s [00:52:59.447] } 1579s [00:52:59.447] base::sink(...future.stdout, type = "output", split = FALSE) 1579s [00:52:59.447] base::on.exit(if (!base::is.null(...future.stdout)) { 1579s [00:52:59.447] base::sink(type = "output", split = FALSE) 1579s [00:52:59.447] base::close(...future.stdout) 1579s [00:52:59.447] }, add = TRUE) 1579s [00:52:59.447] } 1579s [00:52:59.447] ...future.frame <- base::sys.nframe() 1579s [00:52:59.447] ...future.conditions <- base::list() 1579s [00:52:59.447] ...future.rng <- base::globalenv()$.Random.seed 1579s [00:52:59.447] if (FALSE) { 1579s [00:52:59.447] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1579s [00:52:59.447] "...future.value", "...future.globalenv.names", ".Random.seed") 1579s [00:52:59.447] } 1579s [00:52:59.447] ...future.result <- base::tryCatch({ 1579s [00:52:59.447] base::withCallingHandlers({ 1579s [00:52:59.447] ...future.value <- base::withVisible(base::local({ 1579s [00:52:59.447] do.call(function(...) { 1579s [00:52:59.447] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1579s [00:52:59.447] if (!identical(...future.globals.maxSize.org, 1579s [00:52:59.447] ...future.globals.maxSize)) { 1579s [00:52:59.447] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1579s [00:52:59.447] on.exit(options(oopts), add = TRUE) 1579s [00:52:59.447] } 1579s [00:52:59.447] { 1579s [00:52:59.447] lapply(seq_along(...future.elements_ii), 1579s [00:52:59.447] FUN = function(jj) { 1579s [00:52:59.447] ...future.X_jj <- ...future.elements_ii[[jj]] 1579s [00:52:59.447] ...future.FUN(...future.X_jj, ...) 1579s [00:52:59.447] }) 1579s [00:52:59.447] } 1579s [00:52:59.447] }, args = future.call.arguments) 1579s [00:52:59.447] })) 1579s [00:52:59.447] future::FutureResult(value = ...future.value$value, 1579s [00:52:59.447] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1579s [00:52:59.447] ...future.rng), globalenv = if (FALSE) 1579s [00:52:59.447] list(added = base::setdiff(base::names(base::.GlobalEnv), 1579s [00:52:59.447] ...future.globalenv.names)) 1579s [00:52:59.447] else NULL, started = ...future.startTime, version = "1.8") 1579s [00:52:59.447] }, condition = base::local({ 1579s [00:52:59.447] c <- base::c 1579s [00:52:59.447] inherits <- base::inherits 1579s [00:52:59.447] invokeRestart <- base::invokeRestart 1579s [00:52:59.447] length <- base::length 1579s [00:52:59.447] list <- base::list 1579s [00:52:59.447] seq.int <- base::seq.int 1579s [00:52:59.447] signalCondition <- base::signalCondition 1579s [00:52:59.447] sys.calls <- base::sys.calls 1579s [00:52:59.447] `[[` <- base::`[[` 1579s [00:52:59.447] `+` <- base::`+` 1579s [00:52:59.447] `<<-` <- base::`<<-` 1579s [00:52:59.447] sysCalls <- function(calls = sys.calls(), from = 1L) { 1579s [00:52:59.447] calls[seq.int(from = from + 12L, to = length(calls) - 1579s [00:52:59.447] 3L)] 1579s [00:52:59.447] } 1579s [00:52:59.447] function(cond) { 1579s [00:52:59.447] is_error <- inherits(cond, "error") 1579s [00:52:59.447] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1579s [00:52:59.447] NULL) 1579s [00:52:59.447] if (is_error) { 1579s [00:52:59.447] sessionInformation <- function() { 1579s [00:52:59.447] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1579s [00:52:59.447] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1579s [00:52:59.447] search = base::search(), system = base::Sys.info()) 1579s [00:52:59.447] } 1579s [00:52:59.447] ...future.conditions[[length(...future.conditions) + 1579s [00:52:59.447] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1579s [00:52:59.447] cond$call), session = sessionInformation(), 1579s [00:52:59.447] timestamp = base::Sys.time(), signaled = 0L) 1579s [00:52:59.447] signalCondition(cond) 1579s [00:52:59.447] } 1579s [00:52:59.447] else if (!ignore && TRUE && inherits(cond, c("condition", 1579s [00:52:59.447] "immediateCondition"))) { 1579s [00:52:59.447] signal <- TRUE && inherits(cond, "immediateCondition") 1579s [00:52:59.447] ...future.conditions[[length(...future.conditions) + 1579s [00:52:59.447] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1579s [00:52:59.447] if (TRUE && !signal) { 1579s [00:52:59.447] muffleCondition <- function (cond, pattern = "^muffle") 1579s [00:52:59.447] { 1579s [00:52:59.447] inherits <- base::inherits 1579s [00:52:59.447] invokeRestart <- base::invokeRestart 1579s [00:52:59.447] is.null <- base::is.null 1579s [00:52:59.447] muffled <- FALSE 1579s [00:52:59.447] if (inherits(cond, "message")) { 1579s [00:52:59.447] muffled <- grepl(pattern, "muffleMessage") 1579s [00:52:59.447] if (muffled) 1579s [00:52:59.447] invokeRestart("muffleMessage") 1579s [00:52:59.447] } 1579s [00:52:59.447] else if (inherits(cond, "warning")) { 1579s [00:52:59.447] muffled <- grepl(pattern, "muffleWarning") 1579s [00:52:59.447] if (muffled) 1579s [00:52:59.447] invokeRestart("muffleWarning") 1579s [00:52:59.447] } 1579s [00:52:59.447] else if (inherits(cond, "condition")) { 1579s [00:52:59.447] if (!is.null(pattern)) { 1579s [00:52:59.447] computeRestarts <- base::computeRestarts 1579s [00:52:59.447] grepl <- base::grepl 1579s [00:52:59.447] restarts <- computeRestarts(cond) 1579s [00:52:59.447] for (restart in restarts) { 1579s [00:52:59.447] name <- restart$name 1579s [00:52:59.447] if (is.null(name)) 1579s [00:52:59.447] next 1579s [00:52:59.447] if (!grepl(pattern, name)) 1579s [00:52:59.447] next 1579s [00:52:59.447] invokeRestart(restart) 1579s [00:52:59.447] muffled <- TRUE 1579s [00:52:59.447] break 1579s [00:52:59.447] } 1579s [00:52:59.447] } 1579s [00:52:59.447] } 1579s [00:52:59.447] invisible(muffled) 1579s [00:52:59.447] } 1579s [00:52:59.447] muffleCondition(cond, pattern = "^muffle") 1579s [00:52:59.447] } 1579s [00:52:59.447] } 1579s [00:52:59.447] else { 1579s [00:52:59.447] if (TRUE) { 1579s [00:52:59.447] muffleCondition <- function (cond, pattern = "^muffle") 1579s [00:52:59.447] { 1579s [00:52:59.447] inherits <- base::inherits 1579s [00:52:59.447] invokeRestart <- base::invokeRestart 1579s [00:52:59.447] is.null <- base::is.null 1579s [00:52:59.447] muffled <- FALSE 1579s [00:52:59.447] if (inherits(cond, "message")) { 1579s [00:52:59.447] muffled <- grepl(pattern, "muffleMessage") 1579s [00:52:59.447] if (muffled) 1579s [00:52:59.447] invokeRestart("muffleMessage") 1579s [00:52:59.447] } 1579s [00:52:59.447] else if (inherits(cond, "warning")) { 1579s [00:52:59.447] muffled <- grepl(pattern, "muffleWarning") 1579s [00:52:59.447] if (muffled) 1579s [00:52:59.447] invokeRestart("muffleWarning") 1579s [00:52:59.447] } 1579s [00:52:59.447] else if (inherits(cond, "condition")) { 1579s [00:52:59.447] if (!is.null(pattern)) { 1579s [00:52:59.447] computeRestarts <- base::computeRestarts 1579s [00:52:59.447] grepl <- base::grepl 1579s [00:52:59.447] restarts <- computeRestarts(cond) 1579s [00:52:59.447] for (restart in restarts) { 1579s [00:52:59.447] name <- restart$name 1579s [00:52:59.447] if (is.null(name)) 1579s [00:52:59.447] next 1579s [00:52:59.447] if (!grepl(pattern, name)) 1579s [00:52:59.447] next 1579s [00:52:59.447] invokeRestart(restart) 1579s [00:52:59.447] muffled <- TRUE 1579s [00:52:59.447] break 1579s [00:52:59.447] } 1579s [00:52:59.447] } 1579s [00:52:59.447] } 1579s [00:52:59.447] invisible(muffled) 1579s [00:52:59.447] } 1579s [00:52:59.447] muffleCondition(cond, pattern = "^muffle") 1579s [00:52:59.447] } 1579s [00:52:59.447] } 1579s [00:52:59.447] } 1579s [00:52:59.447] })) 1579s [00:52:59.447] }, error = function(ex) { 1579s [00:52:59.447] base::structure(base::list(value = NULL, visible = NULL, 1579s [00:52:59.447] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1579s [00:52:59.447] ...future.rng), started = ...future.startTime, 1579s [00:52:59.447] finished = Sys.time(), session_uuid = NA_character_, 1579s [00:52:59.447] version = "1.8"), class = "FutureResult") 1579s [00:52:59.447] }, finally = { 1579s [00:52:59.447] if (!identical(...future.workdir, getwd())) 1579s [00:52:59.447] setwd(...future.workdir) 1579s [00:52:59.447] { 1579s [00:52:59.447] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1579s [00:52:59.447] ...future.oldOptions$nwarnings <- NULL 1579s [00:52:59.447] } 1579s [00:52:59.447] base::options(...future.oldOptions) 1579s [00:52:59.447] if (.Platform$OS.type == "windows") { 1579s [00:52:59.447] old_names <- names(...future.oldEnvVars) 1579s [00:52:59.447] envs <- base::Sys.getenv() 1579s [00:52:59.447] names <- names(envs) 1579s [00:52:59.447] common <- intersect(names, old_names) 1579s [00:52:59.447] added <- setdiff(names, old_names) 1579s [00:52:59.447] removed <- setdiff(old_names, names) 1579s [00:52:59.447] changed <- common[...future.oldEnvVars[common] != 1579s [00:52:59.447] envs[common]] 1579s [00:52:59.447] NAMES <- toupper(changed) 1579s [00:52:59.447] args <- list() 1579s [00:52:59.447] for (kk in seq_along(NAMES)) { 1579s [00:52:59.447] name <- changed[[kk]] 1579s [00:52:59.447] NAME <- NAMES[[kk]] 1579s [00:52:59.447] if (name != NAME && is.element(NAME, old_names)) 1579s [00:52:59.447] next 1579s [00:52:59.447] args[[name]] <- ...future.oldEnvVars[[name]] 1579s [00:52:59.447] } 1579s [00:52:59.447] NAMES <- toupper(added) 1579s [00:52:59.447] for (kk in seq_along(NAMES)) { 1579s [00:52:59.447] name <- added[[kk]] 1579s [00:52:59.447] NAME <- NAMES[[kk]] 1579s [00:52:59.447] if (name != NAME && is.element(NAME, old_names)) 1579s [00:52:59.447] next 1579s [00:52:59.447] args[[name]] <- "" 1579s [00:52:59.447] } 1579s [00:52:59.447] NAMES <- toupper(removed) 1579s [00:52:59.447] for (kk in seq_along(NAMES)) { 1579s [00:52:59.447] name <- removed[[kk]] 1579s [00:52:59.447] NAME <- NAMES[[kk]] 1579s [00:52:59.447] if (name != NAME && is.element(NAME, old_names)) 1579s [00:52:59.447] next 1579s [00:52:59.447] args[[name]] <- ...future.oldEnvVars[[name]] 1579s [00:52:59.447] } 1579s [00:52:59.447] if (length(args) > 0) 1579s [00:52:59.447] base::do.call(base::Sys.setenv, args = args) 1579s [00:52:59.447] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1579s [00:52:59.447] } 1579s [00:52:59.447] else { 1579s [00:52:59.447] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1579s [00:52:59.447] } 1579s [00:52:59.447] { 1579s [00:52:59.447] if (base::length(...future.futureOptionsAdded) > 1579s [00:52:59.447] 0L) { 1579s [00:52:59.447] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1579s [00:52:59.447] base::names(opts) <- ...future.futureOptionsAdded 1579s [00:52:59.447] base::options(opts) 1579s [00:52:59.447] } 1579s [00:52:59.447] { 1579s [00:52:59.447] { 1579s [00:52:59.447] NULL 1579s [00:52:59.447] RNGkind("Mersenne-Twister") 1579s [00:52:59.447] base::rm(list = ".Random.seed", envir = base::globalenv(), 1579s [00:52:59.447] inherits = FALSE) 1579s [00:52:59.447] } 1579s [00:52:59.447] options(future.plan = NULL) 1579s [00:52:59.447] if (is.na(NA_character_)) 1579s [00:52:59.447] Sys.unsetenv("R_FUTURE_PLAN") 1579s [00:52:59.447] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1579s [00:52:59.447] future::plan(list(function (..., workers = availableCores(), 1579s [00:52:59.447] lazy = FALSE, rscript_libs = .libPaths(), 1579s [00:52:59.447] envir = parent.frame()) 1579s [00:52:59.447] { 1579s [00:52:59.447] if (is.function(workers)) 1579s [00:52:59.447] workers <- workers() 1579s [00:52:59.447] workers <- structure(as.integer(workers), 1579s [00:52:59.447] class = class(workers)) 1579s [00:52:59.447] stop_if_not(length(workers) == 1, is.finite(workers), 1579s [00:52:59.447] workers >= 1) 1579s [00:52:59.447] if (workers == 1L && !inherits(workers, "AsIs")) { 1579s [00:52:59.447] return(sequential(..., lazy = TRUE, envir = envir)) 1579s [00:52:59.447] } 1579s [00:52:59.447] future <- MultisessionFuture(..., workers = workers, 1579s [00:52:59.447] lazy = lazy, rscript_libs = rscript_libs, 1579s [00:52:59.447] envir = envir) 1579s [00:52:59.447] if (!future$lazy) 1579s [00:52:59.447] future <- run(future) 1579s [00:52:59.447] invisible(future) 1579s [00:52:59.447] }), .cleanup = FALSE, .init = FALSE) 1579s [00:52:59.447] } 1579s [00:52:59.447] } 1579s [00:52:59.447] } 1579s [00:52:59.447] }) 1579s [00:52:59.447] if (TRUE) { 1579s [00:52:59.447] base::sink(type = "output", split = FALSE) 1579s [00:52:59.447] if (TRUE) { 1579s [00:52:59.447] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1579s [00:52:59.447] } 1579s [00:52:59.447] else { 1579s [00:52:59.447] ...future.result["stdout"] <- base::list(NULL) 1579s [00:52:59.447] } 1579s [00:52:59.447] base::close(...future.stdout) 1579s [00:52:59.447] ...future.stdout <- NULL 1579s [00:52:59.447] } 1579s [00:52:59.447] ...future.result$conditions <- ...future.conditions 1579s [00:52:59.447] ...future.result$finished <- base::Sys.time() 1579s [00:52:59.447] ...future.result 1579s [00:52:59.447] } 1579s [00:52:59.453] assign_globals() ... 1579s [00:52:59.453] List of 5 1579s [00:52:59.453] $ ...future.FUN :function (x, ...) 1579s [00:52:59.453] $ future.call.arguments : list() 1579s [00:52:59.453] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1579s [00:52:59.453] $ ...future.elements_ii :List of 3 1579s [00:52:59.453] ..$ a: num 1 1579s [00:52:59.453] ..$ b: num 2 1579s [00:52:59.453] ..$ c: num 3 1579s [00:52:59.453] $ ...future.seeds_ii : NULL 1579s [00:52:59.453] $ ...future.globals.maxSize: NULL 1579s [00:52:59.453] - attr(*, "where")=List of 5 1579s [00:52:59.453] ..$ ...future.FUN : 1579s [00:52:59.453] ..$ future.call.arguments : 1579s [00:52:59.453] ..$ ...future.elements_ii : 1579s [00:52:59.453] ..$ ...future.seeds_ii : 1579s [00:52:59.453] ..$ ...future.globals.maxSize: 1579s [00:52:59.453] - attr(*, "resolved")= logi FALSE 1579s [00:52:59.453] - attr(*, "total_size")= num 1248 1579s [00:52:59.453] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1579s [00:52:59.453] - attr(*, "already-done")= logi TRUE 1579s [00:52:59.460] - copied ‘...future.FUN’ to environment 1579s [00:52:59.461] - copied ‘future.call.arguments’ to environment 1579s [00:52:59.461] - copied ‘...future.elements_ii’ to environment 1579s [00:52:59.461] - copied ‘...future.seeds_ii’ to environment 1579s [00:52:59.461] - copied ‘...future.globals.maxSize’ to environment 1579s [00:52:59.461] assign_globals() ... done 1579s [00:52:59.462] plan(): Setting new future strategy stack: 1579s [00:52:59.462] List of future strategies: 1579s [00:52:59.462] 1. sequential: 1579s [00:52:59.462] - args: function (..., envir = parent.frame()) 1579s [00:52:59.462] - tweaked: FALSE 1579s [00:52:59.462] - call: NULL 1579s [00:52:59.462] plan(): nbrOfWorkers() = 1 1579s [00:52:59.464] plan(): Setting new future strategy stack: 1579s [00:52:59.464] List of future strategies: 1579s [00:52:59.464] 1. multisession: 1579s [00:52:59.464] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1579s [00:52:59.464] - tweaked: FALSE 1579s [00:52:59.464] - call: plan(strategy) 1579s [00:52:59.468] plan(): nbrOfWorkers() = 1 1579s [00:52:59.469] SequentialFuture started (and completed) 1579s [00:52:59.469] - Launch lazy future ... done 1579s [00:52:59.469] run() for ‘SequentialFuture’ ... done 1579s [00:52:59.469] Created future: 1579s [00:52:59.469] SequentialFuture: 1579s [00:52:59.469] Label: ‘future_sapply-1’ 1579s [00:52:59.469] Expression: 1579s [00:52:59.469] { 1579s [00:52:59.469] do.call(function(...) { 1579s [00:52:59.469] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1579s [00:52:59.469] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1579s [00:52:59.469] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1579s [00:52:59.469] on.exit(options(oopts), add = TRUE) 1579s [00:52:59.469] } 1579s [00:52:59.469] { 1579s [00:52:59.469] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1579s [00:52:59.469] ...future.X_jj <- ...future.elements_ii[[jj]] 1579s [00:52:59.469] ...future.FUN(...future.X_jj, ...) 1579s [00:52:59.469] }) 1579s [00:52:59.469] } 1579s [00:52:59.469] }, args = future.call.arguments) 1579s [00:52:59.469] } 1579s [00:52:59.469] Lazy evaluation: FALSE 1579s [00:52:59.469] Asynchronous evaluation: FALSE 1579s [00:52:59.469] Local evaluation: TRUE 1579s [00:52:59.469] Environment: R_GlobalEnv 1579s [00:52:59.469] Capture standard output: TRUE 1579s [00:52:59.469] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1579s [00:52:59.469] Globals: 5 objects totaling 1.38 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1579s [00:52:59.469] Packages: 1579s [00:52:59.469] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1579s [00:52:59.469] Resolved: TRUE 1579s [00:52:59.469] Value: 672 bytes of class ‘list’ 1579s [00:52:59.469] Early signaling: FALSE 1579s [00:52:59.469] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1579s [00:52:59.469] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1579s [00:52:59.472] Chunk #1 of 1 ... DONE 1579s [00:52:59.472] Launching 1 futures (chunks) ... DONE 1579s [00:52:59.472] Resolving 1 futures (chunks) ... 1579s [00:52:59.472] resolve() on list ... 1579s [00:52:59.472] recursive: 0 1579s [00:52:59.473] length: 1 1579s [00:52:59.473] 1579s [00:52:59.473] resolved() for ‘SequentialFuture’ ... 1579s [00:52:59.473] - state: ‘finished’ 1579s [00:52:59.474] - run: TRUE 1579s [00:52:59.474] - result: ‘FutureResult’ 1579s [00:52:59.474] resolved() for ‘SequentialFuture’ ... done 1579s [00:52:59.474] Future #1 1579s [00:52:59.475] signalConditionsASAP(SequentialFuture, pos=1) ... 1579s [00:52:59.475] - nx: 1 1579s [00:52:59.475] - relay: TRUE 1579s [00:52:59.475] - stdout: TRUE 1579s [00:52:59.475] - signal: TRUE 1579s [00:52:59.475] - resignal: FALSE 1579s [00:52:59.475] - force: TRUE 1579s [00:52:59.476] - relayed: [n=1] FALSE 1579s [00:52:59.476] - queued futures: [n=1] FALSE 1579s [00:52:59.476] - until=1 1579s [00:52:59.476] - relaying element #1 1579s [00:52:59.476] - relayed: [n=1] TRUE 1579s [00:52:59.476] - queued futures: [n=1] TRUE 1579s [00:52:59.477] signalConditionsASAP(SequentialFuture, pos=1) ... done 1579s [00:52:59.477] length: 0 (resolved future 1) 1579s [00:52:59.477] Relaying remaining futures 1579s [00:52:59.477] signalConditionsASAP(NULL, pos=0) ... 1579s [00:52:59.477] - nx: 1 1579s [00:52:59.477] - relay: TRUE 1579s [00:52:59.477] - stdout: TRUE 1579s [00:52:59.478] - signal: TRUE 1579s [00:52:59.478] - resignal: FALSE 1579s [00:52:59.478] - force: TRUE 1579s [00:52:59.478] - relayed: [n=1] TRUE 1579s [00:52:59.478] - queued futures: [n=1] TRUE 1579s - flush all 1579s [00:52:59.479] - relayed: [n=1] TRUE 1579s [00:52:59.479] - queued futures: [n=1] TRUE 1579s [00:52:59.479] signalConditionsASAP(NULL, pos=0) ... done 1579s [00:52:59.479] resolve() on list ... DONE 1579s [00:52:59.480] - Number of value chunks collected: 1 1579s [00:52:59.480] Resolving 1 futures (chunks) ... DONE 1579s [00:52:59.481] Reducing values from 1 chunks ... 1579s [00:52:59.481] - Number of values collected after concatenation: 3 1579s List[00:52:59.481] - Number of values expected: 3 1579s [00:52:59.482] Reducing values from 1 chunks ... DONE 1579s [00:52:59.482] future_lapply() ... DONE 1579s of 2 1579s $ y0: Named num [1:3] 1 2 3 1579s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1579s $ y1: Named num [1:3] 1 2 3 1579s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1579s [00:52:59.485] future_lapply() ... 1579s [00:52:59.490] Number of chunks: 1 1579s [00:52:59.491] getGlobalsAndPackagesXApply() ... 1579s [00:52:59.491] - future.globals: TRUE 1579s [00:52:59.492] getGlobalsAndPackages() ... 1579s [00:52:59.492] Searching for globals... 1579s [00:52:59.516] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1579s [00:52:59.516] Searching for globals ... DONE 1579s [00:52:59.517] Resolving globals: FALSE 1579s [00:52:59.517] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1579s [00:52:59.518] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1579s [00:52:59.518] - globals: [1] ‘FUN’ 1579s [00:52:59.519] 1579s [00:52:59.519] getGlobalsAndPackages() ... DONE 1579s [00:52:59.519] - globals found/used: [n=1] ‘FUN’ 1579s [00:52:59.519] - needed namespaces: [n=0] 1579s [00:52:59.519] Finding globals ... DONE 1579s [00:52:59.519] - use_args: TRUE 1579s [00:52:59.520] - Getting '...' globals ... 1579s [00:52:59.520] resolve() on list ... 1579s [00:52:59.520] recursive: 0 1579s [00:52:59.521] length: 1 1579s [00:52:59.521] elements: ‘...’ 1579s [00:52:59.521] length: 0 (resolved future 1) 1579s [00:52:59.521] resolve() on list ... DONE 1579s [00:52:59.521] - '...' content: [n=0] 1579s [00:52:59.522] List of 1 1579s [00:52:59.522] $ ...: list() 1579s [00:52:59.522] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1579s [00:52:59.522] - attr(*, "where")=List of 1 1579s [00:52:59.522] ..$ ...: 1579s [00:52:59.522] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1579s [00:52:59.522] - attr(*, "resolved")= logi TRUE 1579s [00:52:59.522] - attr(*, "total_size")= num NA 1579s [00:52:59.526] - Getting '...' globals ... DONE 1579s [00:52:59.526] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1579s [00:52:59.527] List of 2 1579s [00:52:59.527] $ ...future.FUN:function (x, y = 2 * 1:5) 1579s [00:52:59.527] $ ... : list() 1579s [00:52:59.527] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1579s [00:52:59.527] - attr(*, "where")=List of 2 1579s [00:52:59.527] ..$ ...future.FUN: 1579s [00:52:59.527] ..$ ... : 1579s [00:52:59.527] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1579s [00:52:59.527] - attr(*, "resolved")= logi FALSE 1579s [00:52:59.527] - attr(*, "total_size")= num 4728 1579s [00:52:59.531] Packages to be attached in all futures: [n=0] 1579s [00:52:59.531] getGlobalsAndPackagesXApply() ... DONE 1579s [00:52:59.531] Number of futures (= number of chunks): 1 1579s [00:52:59.531] Launching 1 futures (chunks) ... 1579s [00:52:59.531] Chunk #1 of 1 ... 1579s [00:52:59.532] - Finding globals in 'X' for chunk #1 ... 1579s [00:52:59.532] getGlobalsAndPackages() ... 1579s [00:52:59.532] Searching for globals... 1579s [00:52:59.533] 1579s [00:52:59.533] Searching for globals ... DONE 1579s [00:52:59.533] - globals: [0] 1579s [00:52:59.534] getGlobalsAndPackages() ... DONE 1579s [00:52:59.534] + additional globals found: [n=0] 1579s [00:52:59.534] + additional namespaces needed: [n=0] 1579s [00:52:59.534] - Finding globals in 'X' for chunk #1 ... DONE 1579s [00:52:59.534] - seeds: 1579s [00:52:59.534] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1579s [00:52:59.534] getGlobalsAndPackages() ... 1579s [00:52:59.534] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1579s [00:52:59.535] Resolving globals: FALSE 1579s [00:52:59.535] Tweak future expression to call with '...' arguments ... 1579s [00:52:59.535] { 1579s [00:52:59.535] do.call(function(...) { 1579s [00:52:59.535] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1579s [00:52:59.535] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1579s [00:52:59.535] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1579s [00:52:59.535] on.exit(options(oopts), add = TRUE) 1579s [00:52:59.535] } 1579s [00:52:59.535] { 1579s [00:52:59.535] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1579s [00:52:59.535] ...future.X_jj <- ...future.elements_ii[[jj]] 1579s [00:52:59.535] ...future.FUN(...future.X_jj, ...) 1579s [00:52:59.535] }) 1579s [00:52:59.535] } 1579s [00:52:59.535] }, args = future.call.arguments) 1579s [00:52:59.535] } 1579s [00:52:59.536] Tweak future expression to call with '...' arguments ... DONE 1579s [00:52:59.536] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1579s [00:52:59.536] 1579s [00:52:59.536] getGlobalsAndPackages() ... DONE 1579s [00:52:59.537] run() for ‘Future’ ... 1579s [00:52:59.537] - state: ‘created’ 1579s [00:52:59.537] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1579s [00:52:59.541] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1579s [00:52:59.541] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1579s [00:52:59.542] - Field: ‘label’ 1579s [00:52:59.542] - Field: ‘local’ 1579s [00:52:59.542] - Field: ‘owner’ 1579s [00:52:59.543] - Field: ‘envir’ 1579s [00:52:59.543] - Field: ‘packages’ 1579s [00:52:59.543] - Field: ‘gc’ 1579s [00:52:59.544] - Field: ‘conditions’ 1579s [00:52:59.544] - Field: ‘expr’ 1579s [00:52:59.544] - Field: ‘uuid’ 1579s [00:52:59.544] - Field: ‘seed’ 1579s [00:52:59.544] - Field: ‘version’ 1579s [00:52:59.545] - Field: ‘result’ 1579s [00:52:59.545] - Field: ‘asynchronous’ 1579s [00:52:59.545] - Field: ‘calls’ 1579s [00:52:59.545] - Field: ‘globals’ 1579s [00:52:59.545] - Field: ‘stdout’ 1579s [00:52:59.545] - Field: ‘earlySignal’ 1579s [00:52:59.546] - Field: ‘lazy’ 1579s [00:52:59.546] - Field: ‘state’ 1579s [00:52:59.546] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1579s [00:52:59.546] - Launch lazy future ... 1579s [00:52:59.546] Packages needed by the future expression (n = 0): 1579s [00:52:59.546] Packages needed by future strategies (n = 0): 1579s [00:52:59.547] { 1579s [00:52:59.547] { 1579s [00:52:59.547] { 1579s [00:52:59.547] ...future.startTime <- base::Sys.time() 1579s [00:52:59.547] { 1579s [00:52:59.547] { 1579s [00:52:59.547] { 1579s [00:52:59.547] base::local({ 1579s [00:52:59.547] has_future <- base::requireNamespace("future", 1579s [00:52:59.547] quietly = TRUE) 1579s [00:52:59.547] if (has_future) { 1579s [00:52:59.547] ns <- base::getNamespace("future") 1579s [00:52:59.547] version <- ns[[".package"]][["version"]] 1579s [00:52:59.547] if (is.null(version)) 1579s [00:52:59.547] version <- utils::packageVersion("future") 1579s [00:52:59.547] } 1579s [00:52:59.547] else { 1579s [00:52:59.547] version <- NULL 1579s [00:52:59.547] } 1579s [00:52:59.547] if (!has_future || version < "1.8.0") { 1579s [00:52:59.547] info <- base::c(r_version = base::gsub("R version ", 1579s [00:52:59.547] "", base::R.version$version.string), 1579s [00:52:59.547] platform = base::sprintf("%s (%s-bit)", 1579s [00:52:59.547] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1579s [00:52:59.547] os = base::paste(base::Sys.info()[base::c("sysname", 1579s [00:52:59.547] "release", "version")], collapse = " "), 1579s [00:52:59.547] hostname = base::Sys.info()[["nodename"]]) 1579s [00:52:59.547] info <- base::sprintf("%s: %s", base::names(info), 1579s [00:52:59.547] info) 1579s [00:52:59.547] info <- base::paste(info, collapse = "; ") 1579s [00:52:59.547] if (!has_future) { 1579s [00:52:59.547] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1579s [00:52:59.547] info) 1579s [00:52:59.547] } 1579s [00:52:59.547] else { 1579s [00:52:59.547] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1579s [00:52:59.547] info, version) 1579s [00:52:59.547] } 1579s [00:52:59.547] base::stop(msg) 1579s [00:52:59.547] } 1579s [00:52:59.547] }) 1579s [00:52:59.547] } 1579s [00:52:59.547] options(future.plan = NULL) 1579s [00:52:59.547] Sys.unsetenv("R_FUTURE_PLAN") 1579s [00:52:59.547] future::plan("default", .cleanup = FALSE, .init = FALSE) 1579s [00:52:59.547] } 1579s [00:52:59.547] ...future.workdir <- getwd() 1579s [00:52:59.547] } 1579s [00:52:59.547] ...future.oldOptions <- base::as.list(base::.Options) 1579s [00:52:59.547] ...future.oldEnvVars <- base::Sys.getenv() 1579s [00:52:59.547] } 1579s [00:52:59.547] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1579s [00:52:59.547] future.globals.maxSize = NULL, future.globals.method = NULL, 1579s [00:52:59.547] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1579s [00:52:59.547] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1579s [00:52:59.547] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1579s [00:52:59.547] future.stdout.windows.reencode = NULL, width = 80L) 1579s [00:52:59.547] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1579s [00:52:59.547] base::names(...future.oldOptions)) 1579s [00:52:59.547] } 1579s [00:52:59.547] if (FALSE) { 1579s [00:52:59.547] } 1579s [00:52:59.547] else { 1579s [00:52:59.547] if (TRUE) { 1579s [00:52:59.547] ...future.stdout <- base::rawConnection(base::raw(0L), 1579s [00:52:59.547] open = "w") 1579s [00:52:59.547] } 1579s [00:52:59.547] else { 1579s [00:52:59.547] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1579s [00:52:59.547] windows = "NUL", "/dev/null"), open = "w") 1579s [00:52:59.547] } 1579s [00:52:59.547] base::sink(...future.stdout, type = "output", split = FALSE) 1579s [00:52:59.547] base::on.exit(if (!base::is.null(...future.stdout)) { 1579s [00:52:59.547] base::sink(type = "output", split = FALSE) 1579s [00:52:59.547] base::close(...future.stdout) 1579s [00:52:59.547] }, add = TRUE) 1579s [00:52:59.547] } 1579s [00:52:59.547] ...future.frame <- base::sys.nframe() 1579s [00:52:59.547] ...future.conditions <- base::list() 1579s [00:52:59.547] ...future.rng <- base::globalenv()$.Random.seed 1579s [00:52:59.547] if (FALSE) { 1579s [00:52:59.547] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1579s [00:52:59.547] "...future.value", "...future.globalenv.names", ".Random.seed") 1579s [00:52:59.547] } 1579s [00:52:59.547] ...future.result <- base::tryCatch({ 1579s [00:52:59.547] base::withCallingHandlers({ 1579s [00:52:59.547] ...future.value <- base::withVisible(base::local({ 1579s [00:52:59.547] do.call(function(...) { 1579s [00:52:59.547] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1579s [00:52:59.547] if (!identical(...future.globals.maxSize.org, 1579s [00:52:59.547] ...future.globals.maxSize)) { 1579s [00:52:59.547] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1579s [00:52:59.547] on.exit(options(oopts), add = TRUE) 1579s [00:52:59.547] } 1579s [00:52:59.547] { 1579s [00:52:59.547] lapply(seq_along(...future.elements_ii), 1579s [00:52:59.547] FUN = function(jj) { 1579s [00:52:59.547] ...future.X_jj <- ...future.elements_ii[[jj]] 1579s [00:52:59.547] ...future.FUN(...future.X_jj, ...) 1579s [00:52:59.547] }) 1579s [00:52:59.547] } 1579s [00:52:59.547] }, args = future.call.arguments) 1579s [00:52:59.547] })) 1579s [00:52:59.547] future::FutureResult(value = ...future.value$value, 1579s [00:52:59.547] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1579s [00:52:59.547] ...future.rng), globalenv = if (FALSE) 1579s [00:52:59.547] list(added = base::setdiff(base::names(base::.GlobalEnv), 1579s [00:52:59.547] ...future.globalenv.names)) 1579s [00:52:59.547] else NULL, started = ...future.startTime, version = "1.8") 1579s [00:52:59.547] }, condition = base::local({ 1579s [00:52:59.547] c <- base::c 1579s [00:52:59.547] inherits <- base::inherits 1579s [00:52:59.547] invokeRestart <- base::invokeRestart 1579s [00:52:59.547] length <- base::length 1579s [00:52:59.547] list <- base::list 1579s [00:52:59.547] seq.int <- base::seq.int 1579s [00:52:59.547] signalCondition <- base::signalCondition 1579s [00:52:59.547] sys.calls <- base::sys.calls 1579s [00:52:59.547] `[[` <- base::`[[` 1579s [00:52:59.547] `+` <- base::`+` 1579s [00:52:59.547] `<<-` <- base::`<<-` 1579s [00:52:59.547] sysCalls <- function(calls = sys.calls(), from = 1L) { 1579s [00:52:59.547] calls[seq.int(from = from + 12L, to = length(calls) - 1579s [00:52:59.547] 3L)] 1579s [00:52:59.547] } 1579s [00:52:59.547] function(cond) { 1579s [00:52:59.547] is_error <- inherits(cond, "error") 1579s [00:52:59.547] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1579s [00:52:59.547] NULL) 1579s [00:52:59.547] if (is_error) { 1579s [00:52:59.547] sessionInformation <- function() { 1579s [00:52:59.547] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1579s [00:52:59.547] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1579s [00:52:59.547] search = base::search(), system = base::Sys.info()) 1579s [00:52:59.547] } 1579s [00:52:59.547] ...future.conditions[[length(...future.conditions) + 1579s [00:52:59.547] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1579s [00:52:59.547] cond$call), session = sessionInformation(), 1579s [00:52:59.547] timestamp = base::Sys.time(), signaled = 0L) 1579s [00:52:59.547] signalCondition(cond) 1579s [00:52:59.547] } 1579s [00:52:59.547] else if (!ignore && TRUE && inherits(cond, c("condition", 1579s [00:52:59.547] "immediateCondition"))) { 1579s [00:52:59.547] signal <- TRUE && inherits(cond, "immediateCondition") 1579s [00:52:59.547] ...future.conditions[[length(...future.conditions) + 1579s [00:52:59.547] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1579s [00:52:59.547] if (TRUE && !signal) { 1579s [00:52:59.547] muffleCondition <- function (cond, pattern = "^muffle") 1579s [00:52:59.547] { 1579s [00:52:59.547] inherits <- base::inherits 1579s [00:52:59.547] invokeRestart <- base::invokeRestart 1579s [00:52:59.547] is.null <- base::is.null 1579s [00:52:59.547] muffled <- FALSE 1579s [00:52:59.547] if (inherits(cond, "message")) { 1579s [00:52:59.547] muffled <- grepl(pattern, "muffleMessage") 1579s [00:52:59.547] if (muffled) 1579s [00:52:59.547] invokeRestart("muffleMessage") 1579s [00:52:59.547] } 1579s [00:52:59.547] else if (inherits(cond, "warning")) { 1579s [00:52:59.547] muffled <- grepl(pattern, "muffleWarning") 1579s [00:52:59.547] if (muffled) 1579s [00:52:59.547] invokeRestart("muffleWarning") 1579s [00:52:59.547] } 1579s [00:52:59.547] else if (inherits(cond, "condition")) { 1579s [00:52:59.547] if (!is.null(pattern)) { 1579s [00:52:59.547] computeRestarts <- base::computeRestarts 1579s [00:52:59.547] grepl <- base::grepl 1579s [00:52:59.547] restarts <- computeRestarts(cond) 1579s [00:52:59.547] for (restart in restarts) { 1579s [00:52:59.547] name <- restart$name 1579s [00:52:59.547] if (is.null(name)) 1579s [00:52:59.547] next 1579s [00:52:59.547] if (!grepl(pattern, name)) 1579s [00:52:59.547] next 1579s [00:52:59.547] invokeRestart(restart) 1579s [00:52:59.547] muffled <- TRUE 1579s [00:52:59.547] break 1579s [00:52:59.547] } 1579s [00:52:59.547] } 1579s [00:52:59.547] } 1579s [00:52:59.547] invisible(muffled) 1579s [00:52:59.547] } 1579s [00:52:59.547] muffleCondition(cond, pattern = "^muffle") 1579s [00:52:59.547] } 1579s [00:52:59.547] } 1579s [00:52:59.547] else { 1579s [00:52:59.547] if (TRUE) { 1579s [00:52:59.547] muffleCondition <- function (cond, pattern = "^muffle") 1579s [00:52:59.547] { 1579s [00:52:59.547] inherits <- base::inherits 1579s [00:52:59.547] invokeRestart <- base::invokeRestart 1579s [00:52:59.547] is.null <- base::is.null 1579s [00:52:59.547] muffled <- FALSE 1579s [00:52:59.547] if (inherits(cond, "message")) { 1579s [00:52:59.547] muffled <- grepl(pattern, "muffleMessage") 1579s [00:52:59.547] if (muffled) 1579s [00:52:59.547] invokeRestart("muffleMessage") 1579s [00:52:59.547] } 1579s [00:52:59.547] else if (inherits(cond, "warning")) { 1579s [00:52:59.547] muffled <- grepl(pattern, "muffleWarning") 1579s [00:52:59.547] if (muffled) 1579s [00:52:59.547] invokeRestart("muffleWarning") 1579s [00:52:59.547] } 1579s [00:52:59.547] else if (inherits(cond, "condition")) { 1579s [00:52:59.547] if (!is.null(pattern)) { 1579s [00:52:59.547] computeRestarts <- base::computeRestarts 1579s [00:52:59.547] grepl <- base::grepl 1579s [00:52:59.547] restarts <- computeRestarts(cond) 1579s [00:52:59.547] for (restart in restarts) { 1579s [00:52:59.547] name <- restart$name 1579s [00:52:59.547] if (is.null(name)) 1579s [00:52:59.547] next 1579s [00:52:59.547] if (!grepl(pattern, name)) 1579s [00:52:59.547] next 1579s [00:52:59.547] invokeRestart(restart) 1579s [00:52:59.547] muffled <- TRUE 1579s [00:52:59.547] break 1579s [00:52:59.547] } 1579s [00:52:59.547] } 1579s [00:52:59.547] } 1579s [00:52:59.547] invisible(muffled) 1579s [00:52:59.547] } 1579s [00:52:59.547] muffleCondition(cond, pattern = "^muffle") 1579s [00:52:59.547] } 1579s [00:52:59.547] } 1579s [00:52:59.547] } 1579s [00:52:59.547] })) 1579s [00:52:59.547] }, error = function(ex) { 1579s [00:52:59.547] base::structure(base::list(value = NULL, visible = NULL, 1579s [00:52:59.547] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1579s [00:52:59.547] ...future.rng), started = ...future.startTime, 1579s [00:52:59.547] finished = Sys.time(), session_uuid = NA_character_, 1579s [00:52:59.547] version = "1.8"), class = "FutureResult") 1579s [00:52:59.547] }, finally = { 1579s [00:52:59.547] if (!identical(...future.workdir, getwd())) 1579s [00:52:59.547] setwd(...future.workdir) 1579s [00:52:59.547] { 1579s [00:52:59.547] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1579s [00:52:59.547] ...future.oldOptions$nwarnings <- NULL 1579s [00:52:59.547] } 1579s [00:52:59.547] base::options(...future.oldOptions) 1579s [00:52:59.547] if (.Platform$OS.type == "windows") { 1579s [00:52:59.547] old_names <- names(...future.oldEnvVars) 1579s [00:52:59.547] envs <- base::Sys.getenv() 1579s [00:52:59.547] names <- names(envs) 1579s [00:52:59.547] common <- intersect(names, old_names) 1579s [00:52:59.547] added <- setdiff(names, old_names) 1579s [00:52:59.547] removed <- setdiff(old_names, names) 1579s [00:52:59.547] changed <- common[...future.oldEnvVars[common] != 1579s [00:52:59.547] envs[common]] 1579s [00:52:59.547] NAMES <- toupper(changed) 1579s [00:52:59.547] args <- list() 1579s [00:52:59.547] for (kk in seq_along(NAMES)) { 1579s [00:52:59.547] name <- changed[[kk]] 1579s [00:52:59.547] NAME <- NAMES[[kk]] 1579s [00:52:59.547] if (name != NAME && is.element(NAME, old_names)) 1579s [00:52:59.547] next 1579s [00:52:59.547] args[[name]] <- ...future.oldEnvVars[[name]] 1579s [00:52:59.547] } 1579s [00:52:59.547] NAMES <- toupper(added) 1579s [00:52:59.547] for (kk in seq_along(NAMES)) { 1579s [00:52:59.547] name <- added[[kk]] 1579s [00:52:59.547] NAME <- NAMES[[kk]] 1579s [00:52:59.547] if (name != NAME && is.element(NAME, old_names)) 1579s [00:52:59.547] next 1579s [00:52:59.547] args[[name]] <- "" 1579s [00:52:59.547] } 1579s [00:52:59.547] NAMES <- toupper(removed) 1579s [00:52:59.547] for (kk in seq_along(NAMES)) { 1579s [00:52:59.547] name <- removed[[kk]] 1579s [00:52:59.547] NAME <- NAMES[[kk]] 1579s [00:52:59.547] if (name != NAME && is.element(NAME, old_names)) 1579s [00:52:59.547] next 1579s [00:52:59.547] args[[name]] <- ...future.oldEnvVars[[name]] 1579s [00:52:59.547] } 1579s [00:52:59.547] if (length(args) > 0) 1579s [00:52:59.547] base::do.call(base::Sys.setenv, args = args) 1579s [00:52:59.547] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1579s [00:52:59.547] } 1579s [00:52:59.547] else { 1579s [00:52:59.547] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1579s [00:52:59.547] } 1579s [00:52:59.547] { 1579s [00:52:59.547] if (base::length(...future.futureOptionsAdded) > 1579s [00:52:59.547] 0L) { 1579s [00:52:59.547] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1579s [00:52:59.547] base::names(opts) <- ...future.futureOptionsAdded 1579s [00:52:59.547] base::options(opts) 1579s [00:52:59.547] } 1579s [00:52:59.547] { 1579s [00:52:59.547] { 1579s [00:52:59.547] NULL 1579s [00:52:59.547] RNGkind("Mersenne-Twister") 1579s [00:52:59.547] base::rm(list = ".Random.seed", envir = base::globalenv(), 1579s [00:52:59.547] inherits = FALSE) 1579s [00:52:59.547] } 1579s [00:52:59.547] options(future.plan = NULL) 1579s [00:52:59.547] if (is.na(NA_character_)) 1579s [00:52:59.547] Sys.unsetenv("R_FUTURE_PLAN") 1579s [00:52:59.547] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1579s [00:52:59.547] future::plan(list(function (..., workers = availableCores(), 1579s [00:52:59.547] lazy = FALSE, rscript_libs = .libPaths(), 1579s [00:52:59.547] envir = parent.frame()) 1579s [00:52:59.547] { 1579s [00:52:59.547] if (is.function(workers)) 1579s [00:52:59.547] workers <- workers() 1579s [00:52:59.547] workers <- structure(as.integer(workers), 1579s [00:52:59.547] class = class(workers)) 1579s [00:52:59.547] stop_if_not(length(workers) == 1, is.finite(workers), 1579s [00:52:59.547] workers >= 1) 1579s [00:52:59.547] if (workers == 1L && !inherits(workers, "AsIs")) { 1579s [00:52:59.547] return(sequential(..., lazy = TRUE, envir = envir)) 1579s [00:52:59.547] } 1579s [00:52:59.547] future <- MultisessionFuture(..., workers = workers, 1579s [00:52:59.547] lazy = lazy, rscript_libs = rscript_libs, 1579s [00:52:59.547] envir = envir) 1579s [00:52:59.547] if (!future$lazy) 1579s [00:52:59.547] future <- run(future) 1579s [00:52:59.547] invisible(future) 1579s [00:52:59.547] }), .cleanup = FALSE, .init = FALSE) 1579s [00:52:59.547] } 1579s [00:52:59.547] } 1579s [00:52:59.547] } 1579s [00:52:59.547] }) 1579s [00:52:59.547] if (TRUE) { 1579s [00:52:59.547] base::sink(type = "output", split = FALSE) 1579s [00:52:59.547] if (TRUE) { 1579s [00:52:59.547] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1579s [00:52:59.547] } 1579s [00:52:59.547] else { 1579s [00:52:59.547] ...future.result["stdout"] <- base::list(NULL) 1579s [00:52:59.547] } 1579s [00:52:59.547] base::close(...future.stdout) 1579s [00:52:59.547] ...future.stdout <- NULL 1579s [00:52:59.547] } 1579s [00:52:59.547] ...future.result$conditions <- ...future.conditions 1579s [00:52:59.547] ...future.result$finished <- base::Sys.time() 1579s [00:52:59.547] ...future.result 1579s [00:52:59.547] } 1579s [00:52:59.552] assign_globals() ... 1579s [00:52:59.552] List of 5 1579s [00:52:59.552] $ ...future.FUN :function (x, y = 2 * 1:5) 1579s [00:52:59.552] $ future.call.arguments : list() 1579s [00:52:59.552] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1579s [00:52:59.552] $ ...future.elements_ii :List of 3 1579s [00:52:59.552] ..$ a: num 1 1579s [00:52:59.552] ..$ b: num 2 1579s [00:52:59.552] ..$ c: num 3 1579s [00:52:59.552] $ ...future.seeds_ii : NULL 1579s [00:52:59.552] $ ...future.globals.maxSize: NULL 1579s [00:52:59.552] - attr(*, "where")=List of 5 1579s [00:52:59.552] ..$ ...future.FUN : 1579s [00:52:59.552] ..$ future.call.arguments : 1579s [00:52:59.552] ..$ ...future.elements_ii : 1579s [00:52:59.552] ..$ ...future.seeds_ii : 1579s [00:52:59.552] ..$ ...future.globals.maxSize: 1579s [00:52:59.552] - attr(*, "resolved")= logi FALSE 1579s [00:52:59.552] - attr(*, "total_size")= num 4728 1579s [00:52:59.552] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1579s [00:52:59.552] - attr(*, "already-done")= logi TRUE 1579s [00:52:59.562] - reassign environment for ‘...future.FUN’ 1579s [00:52:59.562] - copied ‘...future.FUN’ to environment 1579s [00:52:59.562] - copied ‘future.call.arguments’ to environment 1579s [00:52:59.562] - copied ‘...future.elements_ii’ to environment 1579s [00:52:59.562] - copied ‘...future.seeds_ii’ to environment 1579s [00:52:59.562] - copied ‘...future.globals.maxSize’ to environment 1579s [00:52:59.563] assign_globals() ... done 1579s [00:52:59.563] plan(): Setting new future strategy stack: 1579s [00:52:59.563] List of future strategies: 1579s [00:52:59.563] 1. sequential: 1579s [00:52:59.563] - args: function (..., envir = parent.frame()) 1579s [00:52:59.563] - tweaked: FALSE 1579s [00:52:59.563] - call: NULL 1579s [00:52:59.564] plan(): nbrOfWorkers() = 1 1579s [00:52:59.565] plan(): Setting new future strategy stack: 1579s [00:52:59.565] List of future strategies: 1579s [00:52:59.565] 1. multisession: 1579s [00:52:59.565] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1579s [00:52:59.565] - tweaked: FALSE 1579s [00:52:59.565] - call: plan(strategy) 1579s [00:52:59.569] plan(): nbrOfWorkers() = 1 1579s [00:52:59.569] SequentialFuture started (and completed) 1579s [00:52:59.569] - Launch lazy future ... done 1579s [00:52:59.569] run() for ‘SequentialFuture’ ... done 1579s [00:52:59.569] Created future: 1579s [00:52:59.570] SequentialFuture: 1579s [00:52:59.570] Label: ‘future_sapply-1’ 1579s [00:52:59.570] Expression: 1579s [00:52:59.570] { 1579s [00:52:59.570] do.call(function(...) { 1579s [00:52:59.570] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1579s [00:52:59.570] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1579s [00:52:59.570] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1579s [00:52:59.570] on.exit(options(oopts), add = TRUE) 1579s [00:52:59.570] } 1579s [00:52:59.570] { 1579s [00:52:59.570] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1579s [00:52:59.570] ...future.X_jj <- ...future.elements_ii[[jj]] 1579s [00:52:59.570] ...future.FUN(...future.X_jj, ...) 1579s [00:52:59.570] }) 1579s [00:52:59.570] } 1579s [00:52:59.570] }, args = future.call.arguments) 1579s [00:52:59.570] } 1579s [00:52:59.570] Lazy evaluation: FALSE 1579s [00:52:59.570] Asynchronous evaluation: FALSE 1579s [00:52:59.570] Local evaluation: TRUE 1579s [00:52:59.570] Environment: R_GlobalEnv 1579s [00:52:59.570] Capture standard output: TRUE 1579s [00:52:59.570] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1579s [00:52:59.570] Globals: 5 objects totaling 4.78 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1579s [00:52:59.570] Packages: 1579s [00:52:59.570] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1579s [00:52:59.570] Resolved: TRUE 1579s [00:52:59.570] Value: 1.01 KiB of class ‘list’ 1579s [00:52:59.570] Early signaling: FALSE 1579s [00:52:59.570] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1579s [00:52:59.570] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1579s [00:52:59.572] Chunk #1 of 1 ... DONE 1579s [00:52:59.572] Launching 1 futures (chunks) ... DONE 1579s [00:52:59.572] Resolving 1 futures (chunks) ... 1579s [00:52:59.572] resolve() on list ... 1579s [00:52:59.573] recursive: 0 1579s [00:52:59.573] length: 1 1579s [00:52:59.573] 1579s [00:52:59.573] resolved() for ‘SequentialFuture’ ... 1579s [00:52:59.573] - state: ‘finished’ 1579s [00:52:59.573] - run: TRUE 1579s [00:52:59.574] - result: ‘FutureResult’ 1579s [00:52:59.574] resolved() for ‘SequentialFuture’ ... done 1579s [00:52:59.574] Future #1 1579s [00:52:59.574] signalConditionsASAP(SequentialFuture, pos=1) ... 1579s [00:52:59.574] - nx: 1 1579s [00:52:59.575] - relay: TRUE 1579s [00:52:59.575] - stdout: TRUE 1579s [00:52:59.575] - signal: TRUE 1579s [00:52:59.575] - resignal: FALSE 1579s [00:52:59.575] - force: TRUE 1579s [00:52:59.575] - relayed: [n=1] FALSE 1579s [00:52:59.576] - queued futures: [n=1] FALSE 1579s [00:52:59.576] - until=1 1579s [00:52:59.576] - relaying element #1 1579s [00:52:59.576] - relayed: [n=1] TRUE 1579s [00:52:59.577] - queued futures: [n=1] TRUE 1579s [00:52:59.577] signalConditionsASAP(SequentialFuture, pos=1) ... done 1579s [00:52:59.577] length: 0 (resolved future 1) 1579s [00:52:59.577] Relaying remaining futures 1579s [00:52:59.578] signalConditionsASAP(NULL, pos=0) ... 1579s [00:52:59.578] - nx: 1 1579s [00:52:59.578] - relay: TRUE 1579s [00:52:59.578] - stdout: TRUE 1579s [00:52:59.578] - signal: TRUE 1579s [00:52:59.578] - resignal: FALSE 1579s [00:52:59.578] - force: TRUE 1579s [00:52:59.579] - relayed: [n=1] TRUE 1579s [00:52:59.579] - queued futures: [n=1] TRUE 1579s - flush all 1579s [00:52:59.579] - relayed: [n=1] TRUE 1579s [00:52:59.579] - queued futures: [n=1] TRUE 1579s [00:52:59.579] signalConditionsASAP(NULL, pos=0) ... done 1579s [00:52:59.579] resolve() on list ... DONE 1579s [00:52:59.580] - Number of value chunks collected: 1 1579s [00:52:59.580] Resolving 1 futures (chunks) ... DONE 1579s [00:52:59.580] Reducing values from 1 chunks ... 1579s [00:52:59.580] - Number of values collected after concatenation: 3 1579s [00:52:59.580] - Number of values expected: 3 1579s [00:52:59.580] Reducing values from 1 chunks ... DONE 1579s [00:52:59.581] future_lapply() ... DONE 1579s List of 2 1579s $ y0: num [1:15, 1:3] 2 2 2 4 4 4 6 6 6 8 ... 1579s ..- attr(*, "dimnames")=List[00:52:59.585] future_lapply() ... 1579s of 2 1579s .. ..$ : NULL 1579s .. ..$ : chr [1:3] "a" "b" "c" 1579s $ y1: num [1:15, 1:3] 2 2 2 4 4 4 6 6 6 8 ... 1579s ..- attr(*, "dimnames")=List of 2 1579s .. ..$ : NULL 1579s .. ..$ : chr [1:3] "a" "b" "c" 1579s [00:52:59.589] Number of chunks: 1 1579s [00:52:59.589] getGlobalsAndPackagesXApply() ... 1579s [00:52:59.589] - future.globals: TRUE 1579s [00:52:59.590] getGlobalsAndPackages() ... 1579s [00:52:59.590] Searching for globals... 1579s [00:52:59.591] - globals found: [1] ‘FUN’ 1579s [00:52:59.591] Searching for globals ... DONE 1579s [00:52:59.591] Resolving globals: FALSE 1579s [00:52:59.592] The total size of the 1 globals is 848 bytes (848 bytes) 1579s [00:52:59.593] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1579s [00:52:59.593] - globals: [1] ‘FUN’ 1579s [00:52:59.593] 1579s [00:52:59.593] getGlobalsAndPackages() ... DONE 1579s [00:52:59.593] - globals found/used: [n=1] ‘FUN’ 1579s [00:52:59.594] - needed namespaces: [n=0] 1579s [00:52:59.594] Finding globals ... DONE 1579s [00:52:59.594] - use_args: TRUE 1579s [00:52:59.594] - Getting '...' globals ... 1579s [00:52:59.595] resolve() on list ... 1579s [00:52:59.595] recursive: 0 1579s [00:52:59.595] length: 1 1579s [00:52:59.595] elements: ‘...’ 1579s [00:52:59.595] length: 0 (resolved future 1) 1579s [00:52:59.596] resolve() on list ... DONE 1579s [00:52:59.596] - '...' content: [n=0] 1579s [00:52:59.596] List of 1 1579s [00:52:59.596] $ ...: list() 1579s [00:52:59.596] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1579s [00:52:59.596] - attr(*, "where")=List of 1 1579s [00:52:59.596] ..$ ...: 1579s [00:52:59.596] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1579s [00:52:59.596] - attr(*, "resolved")= logi TRUE 1579s [00:52:59.596] - attr(*, "total_size")= num NA 1579s [00:52:59.600] - Getting '...' globals ... DONE 1579s [00:52:59.600] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1579s [00:52:59.600] List of 2 1579s [00:52:59.600] $ ...future.FUN:function (x) 1579s [00:52:59.600] $ ... : list() 1579s [00:52:59.600] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1579s [00:52:59.600] - attr(*, "where")=List of 2 1579s [00:52:59.600] ..$ ...future.FUN: 1579s [00:52:59.600] ..$ ... : 1579s [00:52:59.600] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1579s [00:52:59.600] - attr(*, "resolved")= logi FALSE 1579s [00:52:59.600] - attr(*, "total_size")= num 848 1579s [00:52:59.604] Packages to be attached in all futures: [n=0] 1579s [00:52:59.604] getGlobalsAndPackagesXApply() ... DONE 1579s [00:52:59.604] Number of futures (= number of chunks): 1 1579s [00:52:59.605] Launching 1 futures (chunks) ... 1579s [00:52:59.605] Chunk #1 of 1 ... 1579s [00:52:59.605] - Finding globals in 'X' for chunk #1 ... 1579s [00:52:59.605] getGlobalsAndPackages() ... 1579s [00:52:59.605] Searching for globals... 1579s [00:52:59.606] 1579s [00:52:59.606] Searching for globals ... DONE 1579s [00:52:59.606] - globals: [0] 1579s [00:52:59.606] getGlobalsAndPackages() ... DONE 1579s [00:52:59.606] + additional globals found: [n=0] 1579s [00:52:59.606] + additional namespaces needed: [n=0] 1579s [00:52:59.607] - Finding globals in 'X' for chunk #1 ... DONE 1579s [00:52:59.607] - seeds: 1579s [00:52:59.607] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1579s [00:52:59.607] getGlobalsAndPackages() ... 1579s [00:52:59.607] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1579s [00:52:59.607] Resolving globals: FALSE 1579s [00:52:59.607] Tweak future expression to call with '...' arguments ... 1579s [00:52:59.608] { 1579s [00:52:59.608] do.call(function(...) { 1579s [00:52:59.608] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1579s [00:52:59.608] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1579s [00:52:59.608] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1579s [00:52:59.608] on.exit(options(oopts), add = TRUE) 1579s [00:52:59.608] } 1579s [00:52:59.608] { 1579s [00:52:59.608] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1579s [00:52:59.608] ...future.X_jj <- ...future.elements_ii[[jj]] 1579s [00:52:59.608] ...future.FUN(...future.X_jj, ...) 1579s [00:52:59.608] }) 1579s [00:52:59.608] } 1579s [00:52:59.608] }, args = future.call.arguments) 1579s [00:52:59.608] } 1579s [00:52:59.608] Tweak future expression to call with '...' arguments ... DONE 1579s [00:52:59.608] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1579s [00:52:59.608] 1579s [00:52:59.609] getGlobalsAndPackages() ... DONE 1579s [00:52:59.609] run() for ‘Future’ ... 1579s [00:52:59.609] - state: ‘created’ 1579s [00:52:59.609] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1579s [00:52:59.614] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1579s [00:52:59.614] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1579s [00:52:59.614] - Field: ‘label’ 1579s [00:52:59.614] - Field: ‘local’ 1579s [00:52:59.615] - Field: ‘owner’ 1579s [00:52:59.615] - Field: ‘envir’ 1579s [00:52:59.615] - Field: ‘packages’ 1579s [00:52:59.615] - Field: ‘gc’ 1579s [00:52:59.616] - Field: ‘conditions’ 1579s [00:52:59.616] - Field: ‘expr’ 1579s [00:52:59.616] - Field: ‘uuid’ 1579s [00:52:59.616] - Field: ‘seed’ 1579s [00:52:59.616] - Field: ‘version’ 1579s [00:52:59.617] - Field: ‘result’ 1579s [00:52:59.617] - Field: ‘asynchronous’ 1579s [00:52:59.617] - Field: ‘calls’ 1579s [00:52:59.618] - Field: ‘globals’ 1579s [00:52:59.618] - Field: ‘stdout’ 1579s [00:52:59.618] - Field: ‘earlySignal’ 1579s [00:52:59.618] - Field: ‘lazy’ 1579s [00:52:59.618] - Field: ‘state’ 1579s [00:52:59.618] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1579s [00:52:59.619] - Launch lazy future ... 1579s [00:52:59.619] Packages needed by the future expression (n = 0): 1579s [00:52:59.619] Packages needed by future strategies (n = 0): 1579s [00:52:59.620] { 1579s [00:52:59.620] { 1579s [00:52:59.620] { 1579s [00:52:59.620] ...future.startTime <- base::Sys.time() 1579s [00:52:59.620] { 1579s [00:52:59.620] { 1579s [00:52:59.620] { 1579s [00:52:59.620] base::local({ 1579s [00:52:59.620] has_future <- base::requireNamespace("future", 1579s [00:52:59.620] quietly = TRUE) 1579s [00:52:59.620] if (has_future) { 1579s [00:52:59.620] ns <- base::getNamespace("future") 1579s [00:52:59.620] version <- ns[[".package"]][["version"]] 1579s [00:52:59.620] if (is.null(version)) 1579s [00:52:59.620] version <- utils::packageVersion("future") 1579s [00:52:59.620] } 1579s [00:52:59.620] else { 1579s [00:52:59.620] version <- NULL 1579s [00:52:59.620] } 1579s [00:52:59.620] if (!has_future || version < "1.8.0") { 1579s [00:52:59.620] info <- base::c(r_version = base::gsub("R version ", 1579s [00:52:59.620] "", base::R.version$version.string), 1579s [00:52:59.620] platform = base::sprintf("%s (%s-bit)", 1579s [00:52:59.620] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1579s [00:52:59.620] os = base::paste(base::Sys.info()[base::c("sysname", 1579s [00:52:59.620] "release", "version")], collapse = " "), 1579s [00:52:59.620] hostname = base::Sys.info()[["nodename"]]) 1579s [00:52:59.620] info <- base::sprintf("%s: %s", base::names(info), 1579s [00:52:59.620] info) 1579s [00:52:59.620] info <- base::paste(info, collapse = "; ") 1579s [00:52:59.620] if (!has_future) { 1579s [00:52:59.620] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1579s [00:52:59.620] info) 1579s [00:52:59.620] } 1579s [00:52:59.620] else { 1579s [00:52:59.620] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1579s [00:52:59.620] info, version) 1579s [00:52:59.620] } 1579s [00:52:59.620] base::stop(msg) 1579s [00:52:59.620] } 1579s [00:52:59.620] }) 1579s [00:52:59.620] } 1579s [00:52:59.620] options(future.plan = NULL) 1579s [00:52:59.620] Sys.unsetenv("R_FUTURE_PLAN") 1579s [00:52:59.620] future::plan("default", .cleanup = FALSE, .init = FALSE) 1579s [00:52:59.620] } 1579s [00:52:59.620] ...future.workdir <- getwd() 1579s [00:52:59.620] } 1579s [00:52:59.620] ...future.oldOptions <- base::as.list(base::.Options) 1579s [00:52:59.620] ...future.oldEnvVars <- base::Sys.getenv() 1579s [00:52:59.620] } 1579s [00:52:59.620] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1579s [00:52:59.620] future.globals.maxSize = NULL, future.globals.method = NULL, 1579s [00:52:59.620] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1579s [00:52:59.620] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1579s [00:52:59.620] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1579s [00:52:59.620] future.stdout.windows.reencode = NULL, width = 80L) 1579s [00:52:59.620] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1579s [00:52:59.620] base::names(...future.oldOptions)) 1579s [00:52:59.620] } 1579s [00:52:59.620] if (FALSE) { 1579s [00:52:59.620] } 1579s [00:52:59.620] else { 1579s [00:52:59.620] if (TRUE) { 1579s [00:52:59.620] ...future.stdout <- base::rawConnection(base::raw(0L), 1579s [00:52:59.620] open = "w") 1579s [00:52:59.620] } 1579s [00:52:59.620] else { 1579s [00:52:59.620] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1579s [00:52:59.620] windows = "NUL", "/dev/null"), open = "w") 1579s [00:52:59.620] } 1579s [00:52:59.620] base::sink(...future.stdout, type = "output", split = FALSE) 1579s [00:52:59.620] base::on.exit(if (!base::is.null(...future.stdout)) { 1579s [00:52:59.620] base::sink(type = "output", split = FALSE) 1579s [00:52:59.620] base::close(...future.stdout) 1579s [00:52:59.620] }, add = TRUE) 1579s [00:52:59.620] } 1579s [00:52:59.620] ...future.frame <- base::sys.nframe() 1579s [00:52:59.620] ...future.conditions <- base::list() 1579s [00:52:59.620] ...future.rng <- base::globalenv()$.Random.seed 1579s [00:52:59.620] if (FALSE) { 1579s [00:52:59.620] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1579s [00:52:59.620] "...future.value", "...future.globalenv.names", ".Random.seed") 1579s [00:52:59.620] } 1579s [00:52:59.620] ...future.result <- base::tryCatch({ 1579s [00:52:59.620] base::withCallingHandlers({ 1579s [00:52:59.620] ...future.value <- base::withVisible(base::local({ 1579s [00:52:59.620] do.call(function(...) { 1579s [00:52:59.620] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1579s [00:52:59.620] if (!identical(...future.globals.maxSize.org, 1579s [00:52:59.620] ...future.globals.maxSize)) { 1579s [00:52:59.620] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1579s [00:52:59.620] on.exit(options(oopts), add = TRUE) 1579s [00:52:59.620] } 1579s [00:52:59.620] { 1579s [00:52:59.620] lapply(seq_along(...future.elements_ii), 1579s [00:52:59.620] FUN = function(jj) { 1579s [00:52:59.620] ...future.X_jj <- ...future.elements_ii[[jj]] 1579s [00:52:59.620] ...future.FUN(...future.X_jj, ...) 1579s [00:52:59.620] }) 1579s [00:52:59.620] } 1579s [00:52:59.620] }, args = future.call.arguments) 1579s [00:52:59.620] })) 1579s [00:52:59.620] future::FutureResult(value = ...future.value$value, 1579s [00:52:59.620] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1579s [00:52:59.620] ...future.rng), globalenv = if (FALSE) 1579s [00:52:59.620] list(added = base::setdiff(base::names(base::.GlobalEnv), 1579s [00:52:59.620] ...future.globalenv.names)) 1579s [00:52:59.620] else NULL, started = ...future.startTime, version = "1.8") 1579s [00:52:59.620] }, condition = base::local({ 1579s [00:52:59.620] c <- base::c 1579s [00:52:59.620] inherits <- base::inherits 1579s [00:52:59.620] invokeRestart <- base::invokeRestart 1579s [00:52:59.620] length <- base::length 1579s [00:52:59.620] list <- base::list 1579s [00:52:59.620] seq.int <- base::seq.int 1579s [00:52:59.620] signalCondition <- base::signalCondition 1579s [00:52:59.620] sys.calls <- base::sys.calls 1579s [00:52:59.620] `[[` <- base::`[[` 1579s [00:52:59.620] `+` <- base::`+` 1579s [00:52:59.620] `<<-` <- base::`<<-` 1579s [00:52:59.620] sysCalls <- function(calls = sys.calls(), from = 1L) { 1579s [00:52:59.620] calls[seq.int(from = from + 12L, to = length(calls) - 1579s [00:52:59.620] 3L)] 1579s [00:52:59.620] } 1579s [00:52:59.620] function(cond) { 1579s [00:52:59.620] is_error <- inherits(cond, "error") 1579s [00:52:59.620] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1579s [00:52:59.620] NULL) 1579s [00:52:59.620] if (is_error) { 1579s [00:52:59.620] sessionInformation <- function() { 1579s [00:52:59.620] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1579s [00:52:59.620] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1579s [00:52:59.620] search = base::search(), system = base::Sys.info()) 1579s [00:52:59.620] } 1579s [00:52:59.620] ...future.conditions[[length(...future.conditions) + 1579s [00:52:59.620] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1579s [00:52:59.620] cond$call), session = sessionInformation(), 1579s [00:52:59.620] timestamp = base::Sys.time(), signaled = 0L) 1579s [00:52:59.620] signalCondition(cond) 1579s [00:52:59.620] } 1579s [00:52:59.620] else if (!ignore && TRUE && inherits(cond, c("condition", 1579s [00:52:59.620] "immediateCondition"))) { 1579s [00:52:59.620] signal <- TRUE && inherits(cond, "immediateCondition") 1579s [00:52:59.620] ...future.conditions[[length(...future.conditions) + 1579s [00:52:59.620] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1579s [00:52:59.620] if (TRUE && !signal) { 1579s [00:52:59.620] muffleCondition <- function (cond, pattern = "^muffle") 1579s [00:52:59.620] { 1579s [00:52:59.620] inherits <- base::inherits 1579s [00:52:59.620] invokeRestart <- base::invokeRestart 1579s [00:52:59.620] is.null <- base::is.null 1579s [00:52:59.620] muffled <- FALSE 1579s [00:52:59.620] if (inherits(cond, "message")) { 1579s [00:52:59.620] muffled <- grepl(pattern, "muffleMessage") 1579s [00:52:59.620] if (muffled) 1579s [00:52:59.620] invokeRestart("muffleMessage") 1579s [00:52:59.620] } 1579s [00:52:59.620] else if (inherits(cond, "warning")) { 1579s [00:52:59.620] muffled <- grepl(pattern, "muffleWarning") 1579s [00:52:59.620] if (muffled) 1579s [00:52:59.620] invokeRestart("muffleWarning") 1579s [00:52:59.620] } 1579s [00:52:59.620] else if (inherits(cond, "condition")) { 1579s [00:52:59.620] if (!is.null(pattern)) { 1579s [00:52:59.620] computeRestarts <- base::computeRestarts 1579s [00:52:59.620] grepl <- base::grepl 1579s [00:52:59.620] restarts <- computeRestarts(cond) 1579s [00:52:59.620] for (restart in restarts) { 1579s [00:52:59.620] name <- restart$name 1579s [00:52:59.620] if (is.null(name)) 1579s [00:52:59.620] next 1579s [00:52:59.620] if (!grepl(pattern, name)) 1579s [00:52:59.620] next 1579s [00:52:59.620] invokeRestart(restart) 1579s [00:52:59.620] muffled <- TRUE 1579s [00:52:59.620] break 1579s [00:52:59.620] } 1579s [00:52:59.620] } 1579s [00:52:59.620] } 1579s [00:52:59.620] invisible(muffled) 1579s [00:52:59.620] } 1579s [00:52:59.620] muffleCondition(cond, pattern = "^muffle") 1579s [00:52:59.620] } 1579s [00:52:59.620] } 1579s [00:52:59.620] else { 1579s [00:52:59.620] if (TRUE) { 1579s [00:52:59.620] muffleCondition <- function (cond, pattern = "^muffle") 1579s [00:52:59.620] { 1579s [00:52:59.620] inherits <- base::inherits 1579s [00:52:59.620] invokeRestart <- base::invokeRestart 1579s [00:52:59.620] is.null <- base::is.null 1579s [00:52:59.620] muffled <- FALSE 1579s [00:52:59.620] if (inherits(cond, "message")) { 1579s [00:52:59.620] muffled <- grepl(pattern, "muffleMessage") 1579s [00:52:59.620] if (muffled) 1579s [00:52:59.620] invokeRestart("muffleMessage") 1579s [00:52:59.620] } 1579s [00:52:59.620] else if (inherits(cond, "warning")) { 1579s [00:52:59.620] muffled <- grepl(pattern, "muffleWarning") 1579s [00:52:59.620] if (muffled) 1579s [00:52:59.620] invokeRestart("muffleWarning") 1579s [00:52:59.620] } 1579s [00:52:59.620] else if (inherits(cond, "condition")) { 1579s [00:52:59.620] if (!is.null(pattern)) { 1579s [00:52:59.620] computeRestarts <- base::computeRestarts 1579s [00:52:59.620] grepl <- base::grepl 1579s [00:52:59.620] restarts <- computeRestarts(cond) 1579s [00:52:59.620] for (restart in restarts) { 1579s [00:52:59.620] name <- restart$name 1579s [00:52:59.620] if (is.null(name)) 1579s [00:52:59.620] next 1579s [00:52:59.620] if (!grepl(pattern, name)) 1579s [00:52:59.620] next 1579s [00:52:59.620] invokeRestart(restart) 1579s [00:52:59.620] muffled <- TRUE 1579s [00:52:59.620] break 1579s [00:52:59.620] } 1579s [00:52:59.620] } 1579s [00:52:59.620] } 1579s [00:52:59.620] invisible(muffled) 1579s [00:52:59.620] } 1579s [00:52:59.620] muffleCondition(cond, pattern = "^muffle") 1579s [00:52:59.620] } 1579s [00:52:59.620] } 1579s [00:52:59.620] } 1579s [00:52:59.620] })) 1579s [00:52:59.620] }, error = function(ex) { 1579s [00:52:59.620] base::structure(base::list(value = NULL, visible = NULL, 1579s [00:52:59.620] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1579s [00:52:59.620] ...future.rng), started = ...future.startTime, 1579s [00:52:59.620] finished = Sys.time(), session_uuid = NA_character_, 1579s [00:52:59.620] version = "1.8"), class = "FutureResult") 1579s [00:52:59.620] }, finally = { 1579s [00:52:59.620] if (!identical(...future.workdir, getwd())) 1579s [00:52:59.620] setwd(...future.workdir) 1579s [00:52:59.620] { 1579s [00:52:59.620] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1579s [00:52:59.620] ...future.oldOptions$nwarnings <- NULL 1579s [00:52:59.620] } 1579s [00:52:59.620] base::options(...future.oldOptions) 1579s [00:52:59.620] if (.Platform$OS.type == "windows") { 1579s [00:52:59.620] old_names <- names(...future.oldEnvVars) 1579s [00:52:59.620] envs <- base::Sys.getenv() 1579s [00:52:59.620] names <- names(envs) 1579s [00:52:59.620] common <- intersect(names, old_names) 1579s [00:52:59.620] added <- setdiff(names, old_names) 1579s [00:52:59.620] removed <- setdiff(old_names, names) 1579s [00:52:59.620] changed <- common[...future.oldEnvVars[common] != 1579s [00:52:59.620] envs[common]] 1579s [00:52:59.620] NAMES <- toupper(changed) 1579s [00:52:59.620] args <- list() 1579s [00:52:59.620] for (kk in seq_along(NAMES)) { 1579s [00:52:59.620] name <- changed[[kk]] 1579s [00:52:59.620] NAME <- NAMES[[kk]] 1579s [00:52:59.620] if (name != NAME && is.element(NAME, old_names)) 1579s [00:52:59.620] next 1579s [00:52:59.620] args[[name]] <- ...future.oldEnvVars[[name]] 1579s [00:52:59.620] } 1579s [00:52:59.620] NAMES <- toupper(added) 1579s [00:52:59.620] for (kk in seq_along(NAMES)) { 1579s [00:52:59.620] name <- added[[kk]] 1579s [00:52:59.620] NAME <- NAMES[[kk]] 1579s [00:52:59.620] if (name != NAME && is.element(NAME, old_names)) 1579s [00:52:59.620] next 1579s [00:52:59.620] args[[name]] <- "" 1579s [00:52:59.620] } 1579s [00:52:59.620] NAMES <- toupper(removed) 1579s [00:52:59.620] for (kk in seq_along(NAMES)) { 1579s [00:52:59.620] name <- removed[[kk]] 1579s [00:52:59.620] NAME <- NAMES[[kk]] 1579s [00:52:59.620] if (name != NAME && is.element(NAME, old_names)) 1579s [00:52:59.620] next 1579s [00:52:59.620] args[[name]] <- ...future.oldEnvVars[[name]] 1579s [00:52:59.620] } 1579s [00:52:59.620] if (length(args) > 0) 1579s [00:52:59.620] base::do.call(base::Sys.setenv, args = args) 1579s [00:52:59.620] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1579s [00:52:59.620] } 1579s [00:52:59.620] else { 1579s [00:52:59.620] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1579s [00:52:59.620] } 1579s [00:52:59.620] { 1579s [00:52:59.620] if (base::length(...future.futureOptionsAdded) > 1579s [00:52:59.620] 0L) { 1579s [00:52:59.620] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1579s [00:52:59.620] base::names(opts) <- ...future.futureOptionsAdded 1579s [00:52:59.620] base::options(opts) 1579s [00:52:59.620] } 1579s [00:52:59.620] { 1579s [00:52:59.620] { 1579s [00:52:59.620] NULL 1579s [00:52:59.620] RNGkind("Mersenne-Twister") 1579s [00:52:59.620] base::rm(list = ".Random.seed", envir = base::globalenv(), 1579s [00:52:59.620] inherits = FALSE) 1579s [00:52:59.620] } 1579s [00:52:59.620] options(future.plan = NULL) 1579s [00:52:59.620] if (is.na(NA_character_)) 1579s [00:52:59.620] Sys.unsetenv("R_FUTURE_PLAN") 1579s [00:52:59.620] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1579s [00:52:59.620] future::plan(list(function (..., workers = availableCores(), 1579s [00:52:59.620] lazy = FALSE, rscript_libs = .libPaths(), 1579s [00:52:59.620] envir = parent.frame()) 1579s [00:52:59.620] { 1579s [00:52:59.620] if (is.function(workers)) 1579s [00:52:59.620] workers <- workers() 1579s [00:52:59.620] workers <- structure(as.integer(workers), 1579s [00:52:59.620] class = class(workers)) 1579s [00:52:59.620] stop_if_not(length(workers) == 1, is.finite(workers), 1579s [00:52:59.620] workers >= 1) 1579s [00:52:59.620] if (workers == 1L && !inherits(workers, "AsIs")) { 1579s [00:52:59.620] return(sequential(..., lazy = TRUE, envir = envir)) 1579s [00:52:59.620] } 1579s [00:52:59.620] future <- MultisessionFuture(..., workers = workers, 1579s [00:52:59.620] lazy = lazy, rscript_libs = rscript_libs, 1579s [00:52:59.620] envir = envir) 1579s [00:52:59.620] if (!future$lazy) 1579s [00:52:59.620] future <- run(future) 1579s [00:52:59.620] invisible(future) 1579s [00:52:59.620] }), .cleanup = FALSE, .init = FALSE) 1579s [00:52:59.620] } 1579s [00:52:59.620] } 1579s [00:52:59.620] } 1579s [00:52:59.620] }) 1579s [00:52:59.620] if (TRUE) { 1579s [00:52:59.620] base::sink(type = "output", split = FALSE) 1579s [00:52:59.620] if (TRUE) { 1579s [00:52:59.620] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1579s [00:52:59.620] } 1579s [00:52:59.620] else { 1579s [00:52:59.620] ...future.result["stdout"] <- base::list(NULL) 1579s [00:52:59.620] } 1579s [00:52:59.620] base::close(...future.stdout) 1579s [00:52:59.620] ...future.stdout <- NULL 1579s [00:52:59.620] } 1579s [00:52:59.620] ...future.result$conditions <- ...future.conditions 1579s [00:52:59.620] ...future.result$finished <- base::Sys.time() 1579s [00:52:59.620] ...future.result 1579s [00:52:59.620] } 1579s [00:52:59.625] assign_globals() ... 1579s [00:52:59.625] List of 5 1579s [00:52:59.625] $ ...future.FUN :function (x) 1579s [00:52:59.625] $ future.call.arguments : list() 1579s [00:52:59.625] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1579s [00:52:59.625] $ ...future.elements_ii :List of 3 1579s [00:52:59.625] ..$ a: num 1 1579s [00:52:59.625] ..$ b: num 2 1579s [00:52:59.625] ..$ c: num 3 1579s [00:52:59.625] $ ...future.seeds_ii : NULL 1579s [00:52:59.625] $ ...future.globals.maxSize: NULL 1579s [00:52:59.625] - attr(*, "where")=List of 5 1579s [00:52:59.625] ..$ ...future.FUN : 1579s [00:52:59.625] ..$ future.call.arguments : 1579s [00:52:59.625] ..$ ...future.elements_ii : 1579s [00:52:59.625] ..$ ...future.seeds_ii : 1579s [00:52:59.625] ..$ ...future.globals.maxSize: 1579s [00:52:59.625] - attr(*, "resolved")= logi FALSE 1579s [00:52:59.625] - attr(*, "total_size")= num 848 1579s [00:52:59.625] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1579s [00:52:59.625] - attr(*, "already-done")= logi TRUE 1579s [00:52:59.633] - copied ‘...future.FUN’ to environment 1579s [00:52:59.634] - copied ‘future.call.arguments’ to environment 1579s [00:52:59.634] - copied ‘...future.elements_ii’ to environment 1579s [00:52:59.634] - copied ‘...future.seeds_ii’ to environment 1579s [00:52:59.634] - copied ‘...future.globals.maxSize’ to environment 1579s [00:52:59.635] assign_globals() ... done 1579s [00:52:59.635] plan(): Setting new future strategy stack: 1579s [00:52:59.635] List of future strategies: 1579s [00:52:59.635] 1. sequential: 1579s [00:52:59.635] - args: function (..., envir = parent.frame()) 1579s [00:52:59.635] - tweaked: FALSE 1579s [00:52:59.635] - call: NULL 1579s [00:52:59.636] plan(): nbrOfWorkers() = 1 1579s [00:52:59.636] plan(): Setting new future strategy stack: 1579s [00:52:59.637] List of future strategies: 1579s [00:52:59.637] 1. multisession: 1579s [00:52:59.637] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1579s [00:52:59.637] - tweaked: FALSE 1579s [00:52:59.637] - call: plan(strategy) 1579s [00:52:59.646] plan(): nbrOfWorkers() = 1 1579s [00:52:59.647] SequentialFuture started (and completed) 1579s [00:52:59.647] - Launch lazy future ... done 1579s [00:52:59.647] run() for ‘SequentialFuture’ ... done 1579s [00:52:59.648] Created future: 1579s [00:52:59.648] SequentialFuture: 1579s [00:52:59.648] Label: ‘future_sapply-1’ 1579s [00:52:59.648] Expression: 1579s [00:52:59.648] { 1579s [00:52:59.648] do.call(function(...) { 1579s [00:52:59.648] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1579s [00:52:59.648] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1579s [00:52:59.648] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1579s [00:52:59.648] on.exit(options(oopts), add = TRUE) 1579s [00:52:59.648] } 1579s [00:52:59.648] { 1579s [00:52:59.648] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1579s [00:52:59.648] ...future.X_jj <- ...future.elements_ii[[jj]] 1579s [00:52:59.648] ...future.FUN(...future.X_jj, ...) 1579s [00:52:59.648] }) 1579s [00:52:59.648] } 1579s [00:52:59.648] }, args = future.call.arguments) 1579s [00:52:59.648] } 1579s [00:52:59.648] Lazy evaluation: FALSE 1579s [00:52:59.648] Asynchronous evaluation: FALSE 1579s [00:52:59.648] Local evaluation: TRUE 1579s [00:52:59.648] Environment: R_GlobalEnv 1579s [00:52:59.648] Capture standard output: TRUE 1579s [00:52:59.648] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1579s [00:52:59.648] Globals: 5 objects totaling 0.99 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1579s [00:52:59.648] Packages: 1579s [00:52:59.648] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1579s [00:52:59.648] Resolved: TRUE 1579s [00:52:59.648] Value: 168 bytes of class ‘list’ 1579s [00:52:59.648] Early signaling: FALSE 1579s [00:52:59.648] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1579s [00:52:59.648] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1579s [00:52:59.650] Chunk #1 of 1 ... DONE 1579s [00:52:59.650] Launching 1 futures (chunks) ... DONE 1579s [00:52:59.650] Resolving 1 futures (chunks) ... 1579s [00:52:59.651] resolve() on list ... 1579s [00:52:59.651] recursive: 0 1579s [00:52:59.651] length: 1 1579s [00:52:59.651] 1579s [00:52:59.651] resolved() for ‘SequentialFuture’ ... 1579s [00:52:59.651] - state: ‘finished’ 1579s [00:52:59.652] - run: TRUE 1579s [00:52:59.652] - result: ‘FutureResult’ 1579s [00:52:59.652] resolved() for ‘SequentialFuture’ ... done 1579s [00:52:59.652] Future #1 1579s [00:52:59.652] signalConditionsASAP(SequentialFuture, pos=1) ... 1579s [00:52:59.652] - nx: 1 1579s [00:52:59.652] - relay: TRUE 1579s [00:52:59.653] - stdout: TRUE 1579s [00:52:59.653] - signal: TRUE 1579s [00:52:59.653] - resignal: FALSE 1579s [00:52:59.653] - force: TRUE 1579s [00:52:59.653] - relayed: [n=1] FALSE 1579s [00:52:59.653] - queued futures: [n=1] FALSE 1579s [00:52:59.653] - until=1 1579s [00:52:59.653] - relaying element #1 1579s [00:52:59.654] - relayed: [n=1] TRUE 1579s [00:52:59.654] - queued futures: [n=1] TRUE 1579s [00:52:59.654] signalConditionsASAP(SequentialFuture, pos=1) ... done 1579s [00:52:59.654] length: 0 (resolved future 1) 1579s [00:52:59.654] Relaying remaining futures 1579s [00:52:59.654] signalConditionsASAP(NULL, pos=0) ... 1579s [00:52:59.654] - nx: 1 1579s [00:52:59.654] - relay: TRUE 1579s [00:52:59.654] - stdout: TRUE 1579s [00:52:59.654] - signal: TRUE 1579s [00:52:59.655] - resignal: FALSE 1579s [00:52:59.655] - force: TRUE 1579s [00:52:59.655] - relayed: [n=1] TRUE 1579s [00:52:59.655] - queued futures: [n=1] TRUE 1579s - flush all 1579s [00:52:59.655] - relayed: [n=1] TRUE 1579s [00:52:59.655] - queued futures: [n=1] TRUE 1579s [00:52:59.656] signalConditionsASAP(NULL, pos=0) ... done 1579s [00:52:59.656] resolve() on list ... DONE 1579s [00:52:59.656] - Number of value chunks collected: 1 1579s [00:52:59.656] Resolving 1 futures (chunks) ... DONE 1579s [00:52:59.656] Reducing values from 1 chunks ... 1579s [00:52:59.656] - Number of values collected after concatenation: 3 1579s [00:52:59.656] - Number of values expected: 3 1579s [00:52:59.656] Reducing values from 1 chunks ... DONE 1579s [00:52:59.656] future_lapply() ... DONE 1579s List of 2 1579s $ y0: Named num [1:3] 1 2 3 1579s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1579s $ y1: Named num [1:3] 1 2 3 1579s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1579s [00:52:59.659] future_lapply() ... 1579s [00:52:59.663] Number of chunks: 1 1579s [00:52:59.664] getGlobalsAndPackagesXApply() ... 1579s [00:52:59.664] - future.globals: TRUE 1579s [00:52:59.664] getGlobalsAndPackages() ... 1579s [00:52:59.664] Searching for globals... 1579s [00:52:59.665] - globals found: [2] ‘FUN’, ‘UseMethod’ 1579s [00:52:59.666] Searching for globals ... DONE 1579s [00:52:59.666] Resolving globals: FALSE 1579s [00:52:59.666] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1579s [00:52:59.667] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1579s [00:52:59.667] - globals: [1] ‘FUN’ 1579s [00:52:59.667] 1579s [00:52:59.667] getGlobalsAndPackages() ... DONE 1579s [00:52:59.667] - globals found/used: [n=1] ‘FUN’ 1579s [00:52:59.667] - needed namespaces: [n=0] 1579s [00:52:59.668] Finding globals ... DONE 1579s [00:52:59.668] - use_args: TRUE 1579s [00:52:59.668] - Getting '...' globals ... 1579s [00:52:59.668] resolve() on list ... 1579s [00:52:59.668] recursive: 0 1579s [00:52:59.668] length: 1 1579s [00:52:59.669] elements: ‘...’ 1579s [00:52:59.669] length: 0 (resolved future 1) 1579s [00:52:59.669] resolve() on list ... DONE 1579s [00:52:59.669] - '...' content: [n=0] 1579s [00:52:59.669] List of 1 1579s [00:52:59.669] $ ...: list() 1579s [00:52:59.669] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1579s [00:52:59.669] - attr(*, "where")=List of 1 1579s [00:52:59.669] ..$ ...: 1579s [00:52:59.669] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1579s [00:52:59.669] - attr(*, "resolved")= logi TRUE 1579s [00:52:59.669] - attr(*, "total_size")= num NA 1579s [00:52:59.673] - Getting '...' globals ... DONE 1579s [00:52:59.673] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1579s [00:52:59.673] List of 2 1579s [00:52:59.673] $ ...future.FUN:function (x, ...) 1579s [00:52:59.673] $ ... : list() 1579s [00:52:59.673] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1579s [00:52:59.673] - attr(*, "where")=List of 2 1579s [00:52:59.673] ..$ ...future.FUN: 1579s [00:52:59.673] ..$ ... : 1579s [00:52:59.673] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1579s [00:52:59.673] - attr(*, "resolved")= logi FALSE 1579s [00:52:59.673] - attr(*, "total_size")= num 1248 1579s [00:52:59.677] Packages to be attached in all futures: [n=0] 1579s [00:52:59.677] getGlobalsAndPackagesXApply() ... DONE 1579s [00:52:59.677] Number of futures (= number of chunks): 1 1579s [00:52:59.677] Launching 1 futures (chunks) ... 1579s [00:52:59.677] Chunk #1 of 1 ... 1579s [00:52:59.678] - Finding globals in 'X' for chunk #1 ... 1579s [00:52:59.678] getGlobalsAndPackages() ... 1579s [00:52:59.678] Searching for globals... 1579s [00:52:59.678] 1579s [00:52:59.678] Searching for globals ... DONE 1579s [00:52:59.678] - globals: [0] 1579s [00:52:59.679] getGlobalsAndPackages() ... DONE 1579s [00:52:59.679] + additional globals found: [n=0] 1579s [00:52:59.679] + additional namespaces needed: [n=0] 1579s [00:52:59.679] - Finding globals in 'X' for chunk #1 ... DONE 1579s [00:52:59.680] - seeds: 1579s [00:52:59.680] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1579s [00:52:59.680] getGlobalsAndPackages() ... 1579s [00:52:59.680] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1579s [00:52:59.681] Resolving globals: FALSE 1579s [00:52:59.681] Tweak future expression to call with '...' arguments ... 1579s [00:52:59.681] { 1579s [00:52:59.681] do.call(function(...) { 1579s [00:52:59.681] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1579s [00:52:59.681] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1579s [00:52:59.681] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1579s [00:52:59.681] on.exit(options(oopts), add = TRUE) 1579s [00:52:59.681] } 1579s [00:52:59.681] { 1579s [00:52:59.681] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1579s [00:52:59.681] ...future.X_jj <- ...future.elements_ii[[jj]] 1579s [00:52:59.681] ...future.FUN(...future.X_jj, ...) 1579s [00:52:59.681] }) 1579s [00:52:59.681] } 1579s [00:52:59.681] }, args = future.call.arguments) 1579s [00:52:59.681] } 1579s [00:52:59.682] Tweak future expression to call with '...' arguments ... DONE 1579s [00:52:59.682] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1579s [00:52:59.683] 1579s [00:52:59.683] getGlobalsAndPackages() ... DONE 1579s [00:52:59.683] run() for ‘Future’ ... 1579s [00:52:59.683] - state: ‘created’ 1579s [00:52:59.684] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1579s [00:52:59.687] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1579s [00:52:59.688] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1579s [00:52:59.688] - Field: ‘label’ 1579s [00:52:59.688] - Field: ‘local’ 1579s [00:52:59.688] - Field: ‘owner’ 1579s [00:52:59.688] - Field: ‘envir’ 1579s [00:52:59.689] - Field: ‘packages’ 1579s [00:52:59.689] - Field: ‘gc’ 1579s [00:52:59.689] - Field: ‘conditions’ 1579s [00:52:59.689] - Field: ‘expr’ 1579s [00:52:59.689] - Field: ‘uuid’ 1579s [00:52:59.689] - Field: ‘seed’ 1579s [00:52:59.690] - Field: ‘version’ 1579s [00:52:59.690] - Field: ‘result’ 1579s [00:52:59.690] - Field: ‘asynchronous’ 1579s [00:52:59.690] - Field: ‘calls’ 1579s [00:52:59.690] - Field: ‘globals’ 1579s [00:52:59.690] - Field: ‘stdout’ 1579s [00:52:59.690] - Field: ‘earlySignal’ 1579s [00:52:59.691] - Field: ‘lazy’ 1579s [00:52:59.691] - Field: ‘state’ 1579s [00:52:59.691] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1579s [00:52:59.691] - Launch lazy future ... 1579s [00:52:59.691] Packages needed by the future expression (n = 0): 1579s [00:52:59.691] Packages needed by future strategies (n = 0): 1579s [00:52:59.692] { 1579s [00:52:59.692] { 1579s [00:52:59.692] { 1579s [00:52:59.692] ...future.startTime <- base::Sys.time() 1579s [00:52:59.692] { 1579s [00:52:59.692] { 1579s [00:52:59.692] { 1579s [00:52:59.692] base::local({ 1579s [00:52:59.692] has_future <- base::requireNamespace("future", 1579s [00:52:59.692] quietly = TRUE) 1579s [00:52:59.692] if (has_future) { 1579s [00:52:59.692] ns <- base::getNamespace("future") 1579s [00:52:59.692] version <- ns[[".package"]][["version"]] 1579s [00:52:59.692] if (is.null(version)) 1579s [00:52:59.692] version <- utils::packageVersion("future") 1579s [00:52:59.692] } 1579s [00:52:59.692] else { 1579s [00:52:59.692] version <- NULL 1579s [00:52:59.692] } 1579s [00:52:59.692] if (!has_future || version < "1.8.0") { 1579s [00:52:59.692] info <- base::c(r_version = base::gsub("R version ", 1579s [00:52:59.692] "", base::R.version$version.string), 1579s [00:52:59.692] platform = base::sprintf("%s (%s-bit)", 1579s [00:52:59.692] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1579s [00:52:59.692] os = base::paste(base::Sys.info()[base::c("sysname", 1579s [00:52:59.692] "release", "version")], collapse = " "), 1579s [00:52:59.692] hostname = base::Sys.info()[["nodename"]]) 1579s [00:52:59.692] info <- base::sprintf("%s: %s", base::names(info), 1579s [00:52:59.692] info) 1579s [00:52:59.692] info <- base::paste(info, collapse = "; ") 1579s [00:52:59.692] if (!has_future) { 1579s [00:52:59.692] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1579s [00:52:59.692] info) 1579s [00:52:59.692] } 1579s [00:52:59.692] else { 1579s [00:52:59.692] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1579s [00:52:59.692] info, version) 1579s [00:52:59.692] } 1579s [00:52:59.692] base::stop(msg) 1579s [00:52:59.692] } 1579s [00:52:59.692] }) 1579s [00:52:59.692] } 1579s [00:52:59.692] options(future.plan = NULL) 1579s [00:52:59.692] Sys.unsetenv("R_FUTURE_PLAN") 1579s [00:52:59.692] future::plan("default", .cleanup = FALSE, .init = FALSE) 1579s [00:52:59.692] } 1579s [00:52:59.692] ...future.workdir <- getwd() 1579s [00:52:59.692] } 1579s [00:52:59.692] ...future.oldOptions <- base::as.list(base::.Options) 1579s [00:52:59.692] ...future.oldEnvVars <- base::Sys.getenv() 1579s [00:52:59.692] } 1579s [00:52:59.692] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1579s [00:52:59.692] future.globals.maxSize = NULL, future.globals.method = NULL, 1579s [00:52:59.692] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1579s [00:52:59.692] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1579s [00:52:59.692] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1579s [00:52:59.692] future.stdout.windows.reencode = NULL, width = 80L) 1579s [00:52:59.692] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1579s [00:52:59.692] base::names(...future.oldOptions)) 1579s [00:52:59.692] } 1579s [00:52:59.692] if (FALSE) { 1579s [00:52:59.692] } 1579s [00:52:59.692] else { 1579s [00:52:59.692] if (TRUE) { 1579s [00:52:59.692] ...future.stdout <- base::rawConnection(base::raw(0L), 1579s [00:52:59.692] open = "w") 1579s [00:52:59.692] } 1579s [00:52:59.692] else { 1579s [00:52:59.692] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1579s [00:52:59.692] windows = "NUL", "/dev/null"), open = "w") 1579s [00:52:59.692] } 1579s [00:52:59.692] base::sink(...future.stdout, type = "output", split = FALSE) 1579s [00:52:59.692] base::on.exit(if (!base::is.null(...future.stdout)) { 1579s [00:52:59.692] base::sink(type = "output", split = FALSE) 1579s [00:52:59.692] base::close(...future.stdout) 1579s [00:52:59.692] }, add = TRUE) 1579s [00:52:59.692] } 1579s [00:52:59.692] ...future.frame <- base::sys.nframe() 1579s [00:52:59.692] ...future.conditions <- base::list() 1579s [00:52:59.692] ...future.rng <- base::globalenv()$.Random.seed 1579s [00:52:59.692] if (FALSE) { 1579s [00:52:59.692] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1579s [00:52:59.692] "...future.value", "...future.globalenv.names", ".Random.seed") 1579s [00:52:59.692] } 1579s [00:52:59.692] ...future.result <- base::tryCatch({ 1579s [00:52:59.692] base::withCallingHandlers({ 1579s [00:52:59.692] ...future.value <- base::withVisible(base::local({ 1579s [00:52:59.692] do.call(function(...) { 1579s [00:52:59.692] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1579s [00:52:59.692] if (!identical(...future.globals.maxSize.org, 1579s [00:52:59.692] ...future.globals.maxSize)) { 1579s [00:52:59.692] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1579s [00:52:59.692] on.exit(options(oopts), add = TRUE) 1579s [00:52:59.692] } 1579s [00:52:59.692] { 1579s [00:52:59.692] lapply(seq_along(...future.elements_ii), 1579s [00:52:59.692] FUN = function(jj) { 1579s [00:52:59.692] ...future.X_jj <- ...future.elements_ii[[jj]] 1579s [00:52:59.692] ...future.FUN(...future.X_jj, ...) 1579s [00:52:59.692] }) 1579s [00:52:59.692] } 1579s [00:52:59.692] }, args = future.call.arguments) 1579s [00:52:59.692] })) 1579s [00:52:59.692] future::FutureResult(value = ...future.value$value, 1579s [00:52:59.692] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1579s [00:52:59.692] ...future.rng), globalenv = if (FALSE) 1579s [00:52:59.692] list(added = base::setdiff(base::names(base::.GlobalEnv), 1579s [00:52:59.692] ...future.globalenv.names)) 1579s [00:52:59.692] else NULL, started = ...future.startTime, version = "1.8") 1579s [00:52:59.692] }, condition = base::local({ 1579s [00:52:59.692] c <- base::c 1579s [00:52:59.692] inherits <- base::inherits 1579s [00:52:59.692] invokeRestart <- base::invokeRestart 1579s [00:52:59.692] length <- base::length 1579s [00:52:59.692] list <- base::list 1579s [00:52:59.692] seq.int <- base::seq.int 1579s [00:52:59.692] signalCondition <- base::signalCondition 1579s [00:52:59.692] sys.calls <- base::sys.calls 1579s [00:52:59.692] `[[` <- base::`[[` 1579s [00:52:59.692] `+` <- base::`+` 1579s [00:52:59.692] `<<-` <- base::`<<-` 1579s [00:52:59.692] sysCalls <- function(calls = sys.calls(), from = 1L) { 1579s [00:52:59.692] calls[seq.int(from = from + 12L, to = length(calls) - 1579s [00:52:59.692] 3L)] 1579s [00:52:59.692] } 1579s [00:52:59.692] function(cond) { 1579s [00:52:59.692] is_error <- inherits(cond, "error") 1579s [00:52:59.692] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1579s [00:52:59.692] NULL) 1579s [00:52:59.692] if (is_error) { 1579s [00:52:59.692] sessionInformation <- function() { 1579s [00:52:59.692] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1579s [00:52:59.692] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1579s [00:52:59.692] search = base::search(), system = base::Sys.info()) 1579s [00:52:59.692] } 1579s [00:52:59.692] ...future.conditions[[length(...future.conditions) + 1579s [00:52:59.692] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1579s [00:52:59.692] cond$call), session = sessionInformation(), 1579s [00:52:59.692] timestamp = base::Sys.time(), signaled = 0L) 1579s [00:52:59.692] signalCondition(cond) 1579s [00:52:59.692] } 1579s [00:52:59.692] else if (!ignore && TRUE && inherits(cond, c("condition", 1579s [00:52:59.692] "immediateCondition"))) { 1579s [00:52:59.692] signal <- TRUE && inherits(cond, "immediateCondition") 1579s [00:52:59.692] ...future.conditions[[length(...future.conditions) + 1579s [00:52:59.692] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1579s [00:52:59.692] if (TRUE && !signal) { 1579s [00:52:59.692] muffleCondition <- function (cond, pattern = "^muffle") 1579s [00:52:59.692] { 1579s [00:52:59.692] inherits <- base::inherits 1579s [00:52:59.692] invokeRestart <- base::invokeRestart 1579s [00:52:59.692] is.null <- base::is.null 1579s [00:52:59.692] muffled <- FALSE 1579s [00:52:59.692] if (inherits(cond, "message")) { 1579s [00:52:59.692] muffled <- grepl(pattern, "muffleMessage") 1579s [00:52:59.692] if (muffled) 1579s [00:52:59.692] invokeRestart("muffleMessage") 1579s [00:52:59.692] } 1579s [00:52:59.692] else if (inherits(cond, "warning")) { 1579s [00:52:59.692] muffled <- grepl(pattern, "muffleWarning") 1579s [00:52:59.692] if (muffled) 1579s [00:52:59.692] invokeRestart("muffleWarning") 1579s [00:52:59.692] } 1579s [00:52:59.692] else if (inherits(cond, "condition")) { 1579s [00:52:59.692] if (!is.null(pattern)) { 1579s [00:52:59.692] computeRestarts <- base::computeRestarts 1579s [00:52:59.692] grepl <- base::grepl 1579s [00:52:59.692] restarts <- computeRestarts(cond) 1579s [00:52:59.692] for (restart in restarts) { 1579s [00:52:59.692] name <- restart$name 1579s [00:52:59.692] if (is.null(name)) 1579s [00:52:59.692] next 1579s [00:52:59.692] if (!grepl(pattern, name)) 1579s [00:52:59.692] next 1579s [00:52:59.692] invokeRestart(restart) 1579s [00:52:59.692] muffled <- TRUE 1579s [00:52:59.692] break 1579s [00:52:59.692] } 1579s [00:52:59.692] } 1579s [00:52:59.692] } 1579s [00:52:59.692] invisible(muffled) 1579s [00:52:59.692] } 1579s [00:52:59.692] muffleCondition(cond, pattern = "^muffle") 1579s [00:52:59.692] } 1579s [00:52:59.692] } 1579s [00:52:59.692] else { 1579s [00:52:59.692] if (TRUE) { 1579s [00:52:59.692] muffleCondition <- function (cond, pattern = "^muffle") 1579s [00:52:59.692] { 1579s [00:52:59.692] inherits <- base::inherits 1579s [00:52:59.692] invokeRestart <- base::invokeRestart 1579s [00:52:59.692] is.null <- base::is.null 1579s [00:52:59.692] muffled <- FALSE 1579s [00:52:59.692] if (inherits(cond, "message")) { 1579s [00:52:59.692] muffled <- grepl(pattern, "muffleMessage") 1579s [00:52:59.692] if (muffled) 1579s [00:52:59.692] invokeRestart("muffleMessage") 1579s [00:52:59.692] } 1579s [00:52:59.692] else if (inherits(cond, "warning")) { 1579s [00:52:59.692] muffled <- grepl(pattern, "muffleWarning") 1579s [00:52:59.692] if (muffled) 1579s [00:52:59.692] invokeRestart("muffleWarning") 1579s [00:52:59.692] } 1579s [00:52:59.692] else if (inherits(cond, "condition")) { 1579s [00:52:59.692] if (!is.null(pattern)) { 1579s [00:52:59.692] computeRestarts <- base::computeRestarts 1579s [00:52:59.692] grepl <- base::grepl 1579s [00:52:59.692] restarts <- computeRestarts(cond) 1579s [00:52:59.692] for (restart in restarts) { 1579s [00:52:59.692] name <- restart$name 1579s [00:52:59.692] if (is.null(name)) 1579s [00:52:59.692] next 1579s [00:52:59.692] if (!grepl(pattern, name)) 1579s [00:52:59.692] next 1579s [00:52:59.692] invokeRestart(restart) 1579s [00:52:59.692] muffled <- TRUE 1579s [00:52:59.692] break 1579s [00:52:59.692] } 1579s [00:52:59.692] } 1579s [00:52:59.692] } 1579s [00:52:59.692] invisible(muffled) 1579s [00:52:59.692] } 1579s [00:52:59.692] muffleCondition(cond, pattern = "^muffle") 1579s [00:52:59.692] } 1579s [00:52:59.692] } 1579s [00:52:59.692] } 1579s [00:52:59.692] })) 1579s [00:52:59.692] }, error = function(ex) { 1579s [00:52:59.692] base::structure(base::list(value = NULL, visible = NULL, 1579s [00:52:59.692] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1579s [00:52:59.692] ...future.rng), started = ...future.startTime, 1579s [00:52:59.692] finished = Sys.time(), session_uuid = NA_character_, 1579s [00:52:59.692] version = "1.8"), class = "FutureResult") 1579s [00:52:59.692] }, finally = { 1579s [00:52:59.692] if (!identical(...future.workdir, getwd())) 1579s [00:52:59.692] setwd(...future.workdir) 1579s [00:52:59.692] { 1579s [00:52:59.692] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1579s [00:52:59.692] ...future.oldOptions$nwarnings <- NULL 1579s [00:52:59.692] } 1579s [00:52:59.692] base::options(...future.oldOptions) 1579s [00:52:59.692] if (.Platform$OS.type == "windows") { 1579s [00:52:59.692] old_names <- names(...future.oldEnvVars) 1579s [00:52:59.692] envs <- base::Sys.getenv() 1579s [00:52:59.692] names <- names(envs) 1579s [00:52:59.692] common <- intersect(names, old_names) 1579s [00:52:59.692] added <- setdiff(names, old_names) 1579s [00:52:59.692] removed <- setdiff(old_names, names) 1579s [00:52:59.692] changed <- common[...future.oldEnvVars[common] != 1579s [00:52:59.692] envs[common]] 1579s [00:52:59.692] NAMES <- toupper(changed) 1579s [00:52:59.692] args <- list() 1579s [00:52:59.692] for (kk in seq_along(NAMES)) { 1579s [00:52:59.692] name <- changed[[kk]] 1579s [00:52:59.692] NAME <- NAMES[[kk]] 1579s [00:52:59.692] if (name != NAME && is.element(NAME, old_names)) 1579s [00:52:59.692] next 1579s [00:52:59.692] args[[name]] <- ...future.oldEnvVars[[name]] 1579s [00:52:59.692] } 1579s [00:52:59.692] NAMES <- toupper(added) 1579s [00:52:59.692] for (kk in seq_along(NAMES)) { 1579s [00:52:59.692] name <- added[[kk]] 1579s [00:52:59.692] NAME <- NAMES[[kk]] 1579s [00:52:59.692] if (name != NAME && is.element(NAME, old_names)) 1579s [00:52:59.692] next 1579s [00:52:59.692] args[[name]] <- "" 1579s [00:52:59.692] } 1579s [00:52:59.692] NAMES <- toupper(removed) 1579s [00:52:59.692] for (kk in seq_along(NAMES)) { 1579s [00:52:59.692] name <- removed[[kk]] 1579s [00:52:59.692] NAME <- NAMES[[kk]] 1579s [00:52:59.692] if (name != NAME && is.element(NAME, old_names)) 1579s [00:52:59.692] next 1579s [00:52:59.692] args[[name]] <- ...future.oldEnvVars[[name]] 1579s [00:52:59.692] } 1579s [00:52:59.692] if (length(args) > 0) 1579s [00:52:59.692] base::do.call(base::Sys.setenv, args = args) 1579s [00:52:59.692] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1579s [00:52:59.692] } 1579s [00:52:59.692] else { 1579s [00:52:59.692] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1579s [00:52:59.692] } 1579s [00:52:59.692] { 1579s [00:52:59.692] if (base::length(...future.futureOptionsAdded) > 1579s [00:52:59.692] 0L) { 1579s [00:52:59.692] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1579s [00:52:59.692] base::names(opts) <- ...future.futureOptionsAdded 1579s [00:52:59.692] base::options(opts) 1579s [00:52:59.692] } 1579s [00:52:59.692] { 1579s [00:52:59.692] { 1579s [00:52:59.692] NULL 1579s [00:52:59.692] RNGkind("Mersenne-Twister") 1579s [00:52:59.692] base::rm(list = ".Random.seed", envir = base::globalenv(), 1579s [00:52:59.692] inherits = FALSE) 1579s [00:52:59.692] } 1579s [00:52:59.692] options(future.plan = NULL) 1579s [00:52:59.692] if (is.na(NA_character_)) 1579s [00:52:59.692] Sys.unsetenv("R_FUTURE_PLAN") 1579s [00:52:59.692] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1579s [00:52:59.692] future::plan(list(function (..., workers = availableCores(), 1579s [00:52:59.692] lazy = FALSE, rscript_libs = .libPaths(), 1579s [00:52:59.692] envir = parent.frame()) 1579s [00:52:59.692] { 1579s [00:52:59.692] if (is.function(workers)) 1579s [00:52:59.692] workers <- workers() 1579s [00:52:59.692] workers <- structure(as.integer(workers), 1579s [00:52:59.692] class = class(workers)) 1579s [00:52:59.692] stop_if_not(length(workers) == 1, is.finite(workers), 1579s [00:52:59.692] workers >= 1) 1579s [00:52:59.692] if (workers == 1L && !inherits(workers, "AsIs")) { 1579s [00:52:59.692] return(sequential(..., lazy = TRUE, envir = envir)) 1579s [00:52:59.692] } 1579s [00:52:59.692] future <- MultisessionFuture(..., workers = workers, 1579s [00:52:59.692] lazy = lazy, rscript_libs = rscript_libs, 1579s [00:52:59.692] envir = envir) 1579s [00:52:59.692] if (!future$lazy) 1579s [00:52:59.692] future <- run(future) 1579s [00:52:59.692] invisible(future) 1579s [00:52:59.692] }), .cleanup = FALSE, .init = FALSE) 1579s [00:52:59.692] } 1579s [00:52:59.692] } 1579s [00:52:59.692] } 1579s [00:52:59.692] }) 1579s [00:52:59.692] if (TRUE) { 1579s [00:52:59.692] base::sink(type = "output", split = FALSE) 1579s [00:52:59.692] if (TRUE) { 1579s [00:52:59.692] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1579s [00:52:59.692] } 1579s [00:52:59.692] else { 1579s [00:52:59.692] ...future.result["stdout"] <- base::list(NULL) 1579s [00:52:59.692] } 1579s [00:52:59.692] base::close(...future.stdout) 1579s [00:52:59.692] ...future.stdout <- NULL 1579s [00:52:59.692] } 1579s [00:52:59.692] ...future.result$conditions <- ...future.conditions 1579s [00:52:59.692] ...future.result$finished <- base::Sys.time() 1579s [00:52:59.692] ...future.result 1579s [00:52:59.692] } 1579s [00:52:59.697] assign_globals() ... 1579s [00:52:59.697] List of 5 1579s [00:52:59.697] $ ...future.FUN :function (x, ...) 1579s [00:52:59.697] $ future.call.arguments : list() 1579s [00:52:59.697] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1579s [00:52:59.697] $ ...future.elements_ii :List of 3 1579s [00:52:59.697] ..$ a: num 1 1579s [00:52:59.697] ..$ b: num 2 1579s [00:52:59.697] ..$ c: num 3 1579s [00:52:59.697] $ ...future.seeds_ii : NULL 1579s [00:52:59.697] $ ...future.globals.maxSize: NULL 1579s [00:52:59.697] - attr(*, "where")=List of 5 1579s [00:52:59.697] ..$ ...future.FUN : 1579s [00:52:59.697] ..$ future.call.arguments : 1579s [00:52:59.697] ..$ ...future.elements_ii : 1579s [00:52:59.697] ..$ ...future.seeds_ii : 1579s [00:52:59.697] ..$ ...future.globals.maxSize: 1579s [00:52:59.697] - attr(*, "resolved")= logi FALSE 1579s [00:52:59.697] - attr(*, "total_size")= num 1248 1579s [00:52:59.697] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1579s [00:52:59.697] - attr(*, "already-done")= logi TRUE 1579s [00:52:59.705] - copied ‘...future.FUN’ to environment 1579s [00:52:59.705] - copied ‘future.call.arguments’ to environment 1579s [00:52:59.705] - copied ‘...future.elements_ii’ to environment 1579s [00:52:59.706] - copied ‘...future.seeds_ii’ to environment 1579s [00:52:59.706] - copied ‘...future.globals.maxSize’ to environment 1579s [00:52:59.706] assign_globals() ... done 1579s [00:52:59.706] plan(): Setting new future strategy stack: 1579s [00:52:59.706] List of future strategies: 1579s [00:52:59.706] 1. sequential: 1579s [00:52:59.706] - args: function (..., envir = parent.frame()) 1579s [00:52:59.706] - tweaked: FALSE 1579s [00:52:59.706] - call: NULL 1579s [00:52:59.707] plan(): nbrOfWorkers() = 1 1579s [00:52:59.708] plan(): Setting new future strategy stack: 1579s [00:52:59.708] List of future strategies: 1579s [00:52:59.708] 1. multisession: 1579s [00:52:59.708] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1579s [00:52:59.708] - tweaked: FALSE 1579s [00:52:59.708] - call: plan(strategy) 1579s [00:52:59.712] plan(): nbrOfWorkers() = 1 1579s [00:52:59.712] SequentialFuture started (and completed) 1579s [00:52:59.712] - Launch lazy future ... done 1579s [00:52:59.712] run() for ‘SequentialFuture’ ... done 1579s [00:52:59.713] Created future: 1579s [00:52:59.713] SequentialFuture: 1579s [00:52:59.713] Label: ‘future_sapply-1’ 1579s [00:52:59.713] Expression: 1579s [00:52:59.713] { 1579s [00:52:59.713] do.call(function(...) { 1579s [00:52:59.713] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1579s [00:52:59.713] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1579s [00:52:59.713] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1579s [00:52:59.713] on.exit(options(oopts), add = TRUE) 1579s [00:52:59.713] } 1579s [00:52:59.713] { 1579s [00:52:59.713] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1579s [00:52:59.713] ...future.X_jj <- ...future.elements_ii[[jj]] 1579s [00:52:59.713] ...future.FUN(...future.X_jj, ...) 1579s [00:52:59.713] }) 1579s [00:52:59.713] } 1579s [00:52:59.713] }, args = future.call.arguments) 1579s [00:52:59.713] } 1579s [00:52:59.713] Lazy evaluation: FALSE 1579s [00:52:59.713] Asynchronous evaluation: FALSE 1579s [00:52:59.713] Local evaluation: TRUE 1579s [00:52:59.713] Environment: R_GlobalEnv 1579s [00:52:59.713] Capture standard output: TRUE 1579s [00:52:59.713] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1579s [00:52:59.713] Globals: 5 objects totaling 1.38 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1579s [00:52:59.713] Packages: 1579s [00:52:59.713] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1579s [00:52:59.713] Resolved: TRUE 1579s [00:52:59.713] Value: 672 bytes of class ‘list’ 1579s [00:52:59.713] Early signaling: FALSE 1579s [00:52:59.713] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1579s [00:52:59.713] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1579s [00:52:59.715] Chunk #1 of 1 ... DONE 1579s [00:52:59.715] Launching 1 futures (chunks) ... DONE 1579s [00:52:59.715] Resolving 1 futures (chunks) ... 1579s [00:52:59.715] resolve() on list ... 1579s [00:52:59.716] recursive: 0 1579s [00:52:59.716] length: 1 1579s [00:52:59.716] 1579s [00:52:59.717] resolved() for ‘SequentialFuture’ ... 1579s [00:52:59.717] - state: ‘finished’ 1579s [00:52:59.717] - run: TRUE 1579s [00:52:59.717] - result: ‘FutureResult’ 1579s [00:52:59.718] resolved() for ‘SequentialFuture’ ... done 1579s [00:52:59.718] Future #1 1579s [00:52:59.718] signalConditionsASAP(SequentialFuture, pos=1) ... 1579s [00:52:59.718] - nx: 1 1579s [00:52:59.718] - relay: TRUE 1579s [00:52:59.718] - stdout: TRUE 1579s [00:52:59.718] - signal: TRUE 1579s [00:52:59.718] - resignal: FALSE 1579s [00:52:59.719] - force: TRUE 1579s [00:52:59.719] - relayed: [n=1] FALSE 1579s [00:52:59.719] - queued futures: [n=1] FALSE 1579s [00:52:59.719] - until=1 1579s [00:52:59.719] - relaying element #1 1579s [00:52:59.719] - relayed: [n=1] TRUE 1579s [00:52:59.719] - queued futures: [n=1] TRUE 1579s [00:52:59.719] signalConditionsASAP(SequentialFuture, pos=1) ... done 1579s [00:52:59.720] length: 0 (resolved future 1) 1579s [00:52:59.720] Relaying remaining futures 1579s [00:52:59.720] signalConditionsASAP(NULL, pos=0) ... 1579s [00:52:59.720] - nx: 1 1579s [00:52:59.720] - relay: TRUE 1579s [00:52:59.720] - stdout: TRUE 1579s [00:52:59.721] - signal: TRUE 1579s [00:52:59.721] - resignal: FALSE 1579s [00:52:59.721] - force: TRUE 1579s [00:52:59.721] - relayed: [n=1] TRUE 1579s [00:52:59.721] - queued futures: [n=1] TRUE 1579s - flush all 1579s [00:52:59.722] - relayed: [n=1] TRUE 1579s [00:52:59.722] - queued futures: [n=1] TRUE 1579s [00:52:59.722] signalConditionsASAP(NULL, pos=0) ... done 1579s [00:52:59.722] resolve() on list ... DONE 1579s [00:52:59.723] - Number of value chunks collected: 1 1579s [00:52:59.723] Resolving 1 futures (chunks) ... DONE 1579s [00:52:59.723] Reducing values from 1 chunks ... 1579s [00:52:59.723] - Number of values collected after concatenation: 3 1579s [00:52:59.724] - Number of values expected: 3 1579s [00:52:59.724] Reducing values from 1 chunks ... DONE 1579s [00:52:59.724] future_lapply() ... DONE 1579s List of 2 1579s $ y0: Named num [1:3] 1 2 3 1579s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1579s $ y1: Named num [1:3] 1 2 3 1579s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1579s [00:52:59.727] future_lapply() ... 1579s [00:52:59.731] Number of chunks: 1 1579s [00:52:59.732] getGlobalsAndPackagesXApply() ... 1579s [00:52:59.732] - future.globals: TRUE 1579s [00:52:59.732] getGlobalsAndPackages() ... 1579s [00:52:59.732] Searching for globals... 1579s [00:52:59.734] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1579s [00:52:59.734] Searching for globals ... DONE 1579s [00:52:59.735] Resolving globals: FALSE 1579s [00:52:59.735] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1579s [00:52:59.736] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1579s [00:52:59.736] - globals: [1] ‘FUN’ 1579s [00:52:59.736] 1579s [00:52:59.736] getGlobalsAndPackages() ... DONE 1579s [00:52:59.736] - globals found/used: [n=1] ‘FUN’ 1579s [00:52:59.736] - needed namespaces: [n=0] 1579s [00:52:59.736] Finding globals ... DONE 1579s [00:52:59.737] - use_args: TRUE 1579s [00:52:59.737] - Getting '...' globals ... 1579s [00:52:59.737] resolve() on list ... 1579s [00:52:59.737] recursive: 0 1579s [00:52:59.737] length: 1 1579s [00:52:59.737] elements: ‘...’ 1579s [00:52:59.738] length: 0 (resolved future 1) 1579s [00:52:59.738] resolve() on list ... DONE 1579s [00:52:59.738] - '...' content: [n=0] 1579s [00:52:59.738] List of 1 1579s [00:52:59.738] $ ...: list() 1579s [00:52:59.738] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1579s [00:52:59.738] - attr(*, "where")=List of 1 1579s [00:52:59.738] ..$ ...: 1579s [00:52:59.738] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1579s [00:52:59.738] - attr(*, "resolved")= logi TRUE 1579s [00:52:59.738] - attr(*, "total_size")= num NA 1579s [00:52:59.741] - Getting '...' globals ... DONE 1579s [00:52:59.742] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1579s [00:52:59.742] List of 2 1579s [00:52:59.742] $ ...future.FUN:function (x, y = 2 * 1:5) 1579s [00:52:59.742] $ ... : list() 1579s [00:52:59.742] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1579s [00:52:59.742] - attr(*, "where")=List of 2 1579s [00:52:59.742] ..$ ...future.FUN: 1579s [00:52:59.742] ..$ ... : 1579s [00:52:59.742] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1579s [00:52:59.742] - attr(*, "resolved")= logi FALSE 1579s [00:52:59.742] - attr(*, "total_size")= num 4728 1579s [00:52:59.746] Packages to be attached in all futures: [n=0] 1579s [00:52:59.746] getGlobalsAndPackagesXApply() ... DONE 1579s [00:52:59.747] Number of futures (= number of chunks): 1 1579s [00:52:59.747] Launching 1 futures (chunks) ... 1579s [00:52:59.747] Chunk #1 of 1 ... 1579s [00:52:59.747] - Finding globals in 'X' for chunk #1 ... 1579s [00:52:59.747] getGlobalsAndPackages() ... 1579s [00:52:59.747] Searching for globals... 1579s [00:52:59.748] 1579s [00:52:59.748] Searching for globals ... DONE 1579s [00:52:59.748] - globals: [0] 1579s [00:52:59.748] getGlobalsAndPackages() ... DONE 1579s [00:52:59.748] + additional globals found: [n=0] 1579s [00:52:59.748] + additional namespaces needed: [n=0] 1579s [00:52:59.749] - Finding globals in 'X' for chunk #1 ... DONE 1579s [00:52:59.749] - seeds: 1579s [00:52:59.749] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1579s [00:52:59.749] getGlobalsAndPackages() ... 1579s [00:52:59.749] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1579s [00:52:59.749] Resolving globals: FALSE 1579s [00:52:59.749] Tweak future expression to call with '...' arguments ... 1579s [00:52:59.750] { 1579s [00:52:59.750] do.call(function(...) { 1579s [00:52:59.750] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1579s [00:52:59.750] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1579s [00:52:59.750] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1579s [00:52:59.750] on.exit(options(oopts), add = TRUE) 1579s [00:52:59.750] } 1579s [00:52:59.750] { 1579s [00:52:59.750] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1579s [00:52:59.750] ...future.X_jj <- ...future.elements_ii[[jj]] 1579s [00:52:59.750] ...future.FUN(...future.X_jj, ...) 1579s [00:52:59.750] }) 1579s [00:52:59.750] } 1579s [00:52:59.750] }, args = future.call.arguments) 1579s [00:52:59.750] } 1579s [00:52:59.750] Tweak future expression to call with '...' arguments ... DONE 1579s [00:52:59.751] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1579s [00:52:59.751] 1579s [00:52:59.751] getGlobalsAndPackages() ... DONE 1579s [00:52:59.752] run() for ‘Future’ ... 1579s [00:52:59.752] - state: ‘created’ 1579s [00:52:59.752] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1579s [00:52:59.756] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1579s [00:52:59.756] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1579s [00:52:59.756] - Field: ‘label’ 1579s [00:52:59.756] - Field: ‘local’ 1579s [00:52:59.756] - Field: ‘owner’ 1579s [00:52:59.757] - Field: ‘envir’ 1579s [00:52:59.757] - Field: ‘packages’ 1579s [00:52:59.757] - Field: ‘gc’ 1579s [00:52:59.757] - Field: ‘conditions’ 1579s [00:52:59.762] - Field: ‘expr’ 1579s [00:52:59.762] - Field: ‘uuid’ 1579s [00:52:59.763] - Field: ‘seed’ 1579s [00:52:59.763] - Field: ‘version’ 1579s [00:52:59.763] - Field: ‘result’ 1579s [00:52:59.763] - Field: ‘asynchronous’ 1579s [00:52:59.764] - Field: ‘calls’ 1579s [00:52:59.764] - Field: ‘globals’ 1579s [00:52:59.764] - Field: ‘stdout’ 1579s [00:52:59.764] - Field: ‘earlySignal’ 1579s [00:52:59.765] - Field: ‘lazy’ 1579s [00:52:59.765] - Field: ‘state’ 1579s [00:52:59.765] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1579s [00:52:59.765] - Launch lazy future ... 1579s [00:52:59.765] Packages needed by the future expression (n = 0): 1579s [00:52:59.766] Packages needed by future strategies (n = 0): 1579s [00:52:59.766] { 1579s [00:52:59.766] { 1579s [00:52:59.766] { 1579s [00:52:59.766] ...future.startTime <- base::Sys.time() 1579s [00:52:59.766] { 1579s [00:52:59.766] { 1579s [00:52:59.766] { 1579s [00:52:59.766] base::local({ 1579s [00:52:59.766] has_future <- base::requireNamespace("future", 1579s [00:52:59.766] quietly = TRUE) 1579s [00:52:59.766] if (has_future) { 1579s [00:52:59.766] ns <- base::getNamespace("future") 1579s [00:52:59.766] version <- ns[[".package"]][["version"]] 1579s [00:52:59.766] if (is.null(version)) 1579s [00:52:59.766] version <- utils::packageVersion("future") 1579s [00:52:59.766] } 1579s [00:52:59.766] else { 1579s [00:52:59.766] version <- NULL 1579s [00:52:59.766] } 1579s [00:52:59.766] if (!has_future || version < "1.8.0") { 1579s [00:52:59.766] info <- base::c(r_version = base::gsub("R version ", 1579s [00:52:59.766] "", base::R.version$version.string), 1579s [00:52:59.766] platform = base::sprintf("%s (%s-bit)", 1579s [00:52:59.766] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1579s [00:52:59.766] os = base::paste(base::Sys.info()[base::c("sysname", 1579s [00:52:59.766] "release", "version")], collapse = " "), 1579s [00:52:59.766] hostname = base::Sys.info()[["nodename"]]) 1579s [00:52:59.766] info <- base::sprintf("%s: %s", base::names(info), 1579s [00:52:59.766] info) 1579s [00:52:59.766] info <- base::paste(info, collapse = "; ") 1579s [00:52:59.766] if (!has_future) { 1579s [00:52:59.766] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1579s [00:52:59.766] info) 1579s [00:52:59.766] } 1579s [00:52:59.766] else { 1579s [00:52:59.766] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1579s [00:52:59.766] info, version) 1579s [00:52:59.766] } 1579s [00:52:59.766] base::stop(msg) 1579s [00:52:59.766] } 1579s [00:52:59.766] }) 1579s [00:52:59.766] } 1579s [00:52:59.766] options(future.plan = NULL) 1579s [00:52:59.766] Sys.unsetenv("R_FUTURE_PLAN") 1579s [00:52:59.766] future::plan("default", .cleanup = FALSE, .init = FALSE) 1579s [00:52:59.766] } 1579s [00:52:59.766] ...future.workdir <- getwd() 1579s [00:52:59.766] } 1579s [00:52:59.766] ...future.oldOptions <- base::as.list(base::.Options) 1579s [00:52:59.766] ...future.oldEnvVars <- base::Sys.getenv() 1579s [00:52:59.766] } 1579s [00:52:59.766] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1579s [00:52:59.766] future.globals.maxSize = NULL, future.globals.method = NULL, 1579s [00:52:59.766] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1579s [00:52:59.766] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1579s [00:52:59.766] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1579s [00:52:59.766] future.stdout.windows.reencode = NULL, width = 80L) 1579s [00:52:59.766] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1579s [00:52:59.766] base::names(...future.oldOptions)) 1579s [00:52:59.766] } 1579s [00:52:59.766] if (FALSE) { 1579s [00:52:59.766] } 1579s [00:52:59.766] else { 1579s [00:52:59.766] if (TRUE) { 1579s [00:52:59.766] ...future.stdout <- base::rawConnection(base::raw(0L), 1579s [00:52:59.766] open = "w") 1579s [00:52:59.766] } 1579s [00:52:59.766] else { 1579s [00:52:59.766] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1579s [00:52:59.766] windows = "NUL", "/dev/null"), open = "w") 1579s [00:52:59.766] } 1579s [00:52:59.766] base::sink(...future.stdout, type = "output", split = FALSE) 1579s [00:52:59.766] base::on.exit(if (!base::is.null(...future.stdout)) { 1579s [00:52:59.766] base::sink(type = "output", split = FALSE) 1579s [00:52:59.766] base::close(...future.stdout) 1579s [00:52:59.766] }, add = TRUE) 1579s [00:52:59.766] } 1579s [00:52:59.766] ...future.frame <- base::sys.nframe() 1579s [00:52:59.766] ...future.conditions <- base::list() 1579s [00:52:59.766] ...future.rng <- base::globalenv()$.Random.seed 1579s [00:52:59.766] if (FALSE) { 1579s [00:52:59.766] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1579s [00:52:59.766] "...future.value", "...future.globalenv.names", ".Random.seed") 1579s [00:52:59.766] } 1579s [00:52:59.766] ...future.result <- base::tryCatch({ 1579s [00:52:59.766] base::withCallingHandlers({ 1579s [00:52:59.766] ...future.value <- base::withVisible(base::local({ 1579s [00:52:59.766] do.call(function(...) { 1579s [00:52:59.766] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1579s [00:52:59.766] if (!identical(...future.globals.maxSize.org, 1579s [00:52:59.766] ...future.globals.maxSize)) { 1579s [00:52:59.766] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1579s [00:52:59.766] on.exit(options(oopts), add = TRUE) 1579s [00:52:59.766] } 1579s [00:52:59.766] { 1579s [00:52:59.766] lapply(seq_along(...future.elements_ii), 1579s [00:52:59.766] FUN = function(jj) { 1579s [00:52:59.766] ...future.X_jj <- ...future.elements_ii[[jj]] 1579s [00:52:59.766] ...future.FUN(...future.X_jj, ...) 1579s [00:52:59.766] }) 1579s [00:52:59.766] } 1579s [00:52:59.766] }, args = future.call.arguments) 1579s [00:52:59.766] })) 1579s [00:52:59.766] future::FutureResult(value = ...future.value$value, 1579s [00:52:59.766] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1579s [00:52:59.766] ...future.rng), globalenv = if (FALSE) 1579s [00:52:59.766] list(added = base::setdiff(base::names(base::.GlobalEnv), 1579s [00:52:59.766] ...future.globalenv.names)) 1579s [00:52:59.766] else NULL, started = ...future.startTime, version = "1.8") 1579s [00:52:59.766] }, condition = base::local({ 1579s [00:52:59.766] c <- base::c 1579s [00:52:59.766] inherits <- base::inherits 1579s [00:52:59.766] invokeRestart <- base::invokeRestart 1579s [00:52:59.766] length <- base::length 1579s [00:52:59.766] list <- base::list 1579s [00:52:59.766] seq.int <- base::seq.int 1579s [00:52:59.766] signalCondition <- base::signalCondition 1579s [00:52:59.766] sys.calls <- base::sys.calls 1579s [00:52:59.766] `[[` <- base::`[[` 1579s [00:52:59.766] `+` <- base::`+` 1579s [00:52:59.766] `<<-` <- base::`<<-` 1579s [00:52:59.766] sysCalls <- function(calls = sys.calls(), from = 1L) { 1579s [00:52:59.766] calls[seq.int(from = from + 12L, to = length(calls) - 1579s [00:52:59.766] 3L)] 1579s [00:52:59.766] } 1579s [00:52:59.766] function(cond) { 1579s [00:52:59.766] is_error <- inherits(cond, "error") 1579s [00:52:59.766] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1579s [00:52:59.766] NULL) 1579s [00:52:59.766] if (is_error) { 1579s [00:52:59.766] sessionInformation <- function() { 1579s [00:52:59.766] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1579s [00:52:59.766] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1579s [00:52:59.766] search = base::search(), system = base::Sys.info()) 1579s [00:52:59.766] } 1579s [00:52:59.766] ...future.conditions[[length(...future.conditions) + 1579s [00:52:59.766] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1579s [00:52:59.766] cond$call), session = sessionInformation(), 1579s [00:52:59.766] timestamp = base::Sys.time(), signaled = 0L) 1579s [00:52:59.766] signalCondition(cond) 1579s [00:52:59.766] } 1579s [00:52:59.766] else if (!ignore && TRUE && inherits(cond, c("condition", 1579s [00:52:59.766] "immediateCondition"))) { 1579s [00:52:59.766] signal <- TRUE && inherits(cond, "immediateCondition") 1579s [00:52:59.766] ...future.conditions[[length(...future.conditions) + 1579s [00:52:59.766] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1579s [00:52:59.766] if (TRUE && !signal) { 1579s [00:52:59.766] muffleCondition <- function (cond, pattern = "^muffle") 1579s [00:52:59.766] { 1579s [00:52:59.766] inherits <- base::inherits 1579s [00:52:59.766] invokeRestart <- base::invokeRestart 1579s [00:52:59.766] is.null <- base::is.null 1579s [00:52:59.766] muffled <- FALSE 1579s [00:52:59.766] if (inherits(cond, "message")) { 1579s [00:52:59.766] muffled <- grepl(pattern, "muffleMessage") 1579s [00:52:59.766] if (muffled) 1579s [00:52:59.766] invokeRestart("muffleMessage") 1579s [00:52:59.766] } 1579s [00:52:59.766] else if (inherits(cond, "warning")) { 1579s [00:52:59.766] muffled <- grepl(pattern, "muffleWarning") 1579s [00:52:59.766] if (muffled) 1579s [00:52:59.766] invokeRestart("muffleWarning") 1579s [00:52:59.766] } 1579s [00:52:59.766] else if (inherits(cond, "condition")) { 1579s [00:52:59.766] if (!is.null(pattern)) { 1579s [00:52:59.766] computeRestarts <- base::computeRestarts 1579s [00:52:59.766] grepl <- base::grepl 1579s [00:52:59.766] restarts <- computeRestarts(cond) 1579s [00:52:59.766] for (restart in restarts) { 1579s [00:52:59.766] name <- restart$name 1579s [00:52:59.766] if (is.null(name)) 1579s [00:52:59.766] next 1579s [00:52:59.766] if (!grepl(pattern, name)) 1579s [00:52:59.766] next 1579s [00:52:59.766] invokeRestart(restart) 1579s [00:52:59.766] muffled <- TRUE 1579s [00:52:59.766] break 1579s [00:52:59.766] } 1579s [00:52:59.766] } 1579s [00:52:59.766] } 1579s [00:52:59.766] invisible(muffled) 1579s [00:52:59.766] } 1579s [00:52:59.766] muffleCondition(cond, pattern = "^muffle") 1579s [00:52:59.766] } 1579s [00:52:59.766] } 1579s [00:52:59.766] else { 1579s [00:52:59.766] if (TRUE) { 1579s [00:52:59.766] muffleCondition <- function (cond, pattern = "^muffle") 1579s [00:52:59.766] { 1579s [00:52:59.766] inherits <- base::inherits 1579s [00:52:59.766] invokeRestart <- base::invokeRestart 1579s [00:52:59.766] is.null <- base::is.null 1579s [00:52:59.766] muffled <- FALSE 1579s [00:52:59.766] if (inherits(cond, "message")) { 1579s [00:52:59.766] muffled <- grepl(pattern, "muffleMessage") 1579s [00:52:59.766] if (muffled) 1579s [00:52:59.766] invokeRestart("muffleMessage") 1579s [00:52:59.766] } 1579s [00:52:59.766] else if (inherits(cond, "warning")) { 1579s [00:52:59.766] muffled <- grepl(pattern, "muffleWarning") 1579s [00:52:59.766] if (muffled) 1579s [00:52:59.766] invokeRestart("muffleWarning") 1579s [00:52:59.766] } 1579s [00:52:59.766] else if (inherits(cond, "condition")) { 1579s [00:52:59.766] if (!is.null(pattern)) { 1579s [00:52:59.766] computeRestarts <- base::computeRestarts 1579s [00:52:59.766] grepl <- base::grepl 1579s [00:52:59.766] restarts <- computeRestarts(cond) 1579s [00:52:59.766] for (restart in restarts) { 1579s [00:52:59.766] name <- restart$name 1579s [00:52:59.766] if (is.null(name)) 1579s [00:52:59.766] next 1579s [00:52:59.766] if (!grepl(pattern, name)) 1579s [00:52:59.766] next 1579s [00:52:59.766] invokeRestart(restart) 1579s [00:52:59.766] muffled <- TRUE 1579s [00:52:59.766] break 1579s [00:52:59.766] } 1579s [00:52:59.766] } 1579s [00:52:59.766] } 1579s [00:52:59.766] invisible(muffled) 1579s [00:52:59.766] } 1579s [00:52:59.766] muffleCondition(cond, pattern = "^muffle") 1579s [00:52:59.766] } 1579s [00:52:59.766] } 1579s [00:52:59.766] } 1579s [00:52:59.766] })) 1579s [00:52:59.766] }, error = function(ex) { 1579s [00:52:59.766] base::structure(base::list(value = NULL, visible = NULL, 1579s [00:52:59.766] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1579s [00:52:59.766] ...future.rng), started = ...future.startTime, 1579s [00:52:59.766] finished = Sys.time(), session_uuid = NA_character_, 1579s [00:52:59.766] version = "1.8"), class = "FutureResult") 1579s [00:52:59.766] }, finally = { 1579s [00:52:59.766] if (!identical(...future.workdir, getwd())) 1579s [00:52:59.766] setwd(...future.workdir) 1579s [00:52:59.766] { 1579s [00:52:59.766] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1579s [00:52:59.766] ...future.oldOptions$nwarnings <- NULL 1579s [00:52:59.766] } 1579s [00:52:59.766] base::options(...future.oldOptions) 1579s [00:52:59.766] if (.Platform$OS.type == "windows") { 1579s [00:52:59.766] old_names <- names(...future.oldEnvVars) 1579s [00:52:59.766] envs <- base::Sys.getenv() 1579s [00:52:59.766] names <- names(envs) 1579s [00:52:59.766] common <- intersect(names, old_names) 1579s [00:52:59.766] added <- setdiff(names, old_names) 1579s [00:52:59.766] removed <- setdiff(old_names, names) 1579s [00:52:59.766] changed <- common[...future.oldEnvVars[common] != 1579s [00:52:59.766] envs[common]] 1579s [00:52:59.766] NAMES <- toupper(changed) 1579s [00:52:59.766] args <- list() 1579s [00:52:59.766] for (kk in seq_along(NAMES)) { 1579s [00:52:59.766] name <- changed[[kk]] 1579s [00:52:59.766] NAME <- NAMES[[kk]] 1579s [00:52:59.766] if (name != NAME && is.element(NAME, old_names)) 1579s [00:52:59.766] next 1579s [00:52:59.766] args[[name]] <- ...future.oldEnvVars[[name]] 1579s [00:52:59.766] } 1579s [00:52:59.766] NAMES <- toupper(added) 1579s [00:52:59.766] for (kk in seq_along(NAMES)) { 1579s [00:52:59.766] name <- added[[kk]] 1579s [00:52:59.766] NAME <- NAMES[[kk]] 1579s [00:52:59.766] if (name != NAME && is.element(NAME, old_names)) 1579s [00:52:59.766] next 1579s [00:52:59.766] args[[name]] <- "" 1579s [00:52:59.766] } 1579s [00:52:59.766] NAMES <- toupper(removed) 1579s [00:52:59.766] for (kk in seq_along(NAMES)) { 1579s [00:52:59.766] name <- removed[[kk]] 1579s [00:52:59.766] NAME <- NAMES[[kk]] 1579s [00:52:59.766] if (name != NAME && is.element(NAME, old_names)) 1579s [00:52:59.766] next 1579s [00:52:59.766] args[[name]] <- ...future.oldEnvVars[[name]] 1579s [00:52:59.766] } 1579s [00:52:59.766] if (length(args) > 0) 1579s [00:52:59.766] base::do.call(base::Sys.setenv, args = args) 1579s [00:52:59.766] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1579s [00:52:59.766] } 1579s [00:52:59.766] else { 1579s [00:52:59.766] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1579s [00:52:59.766] } 1579s [00:52:59.766] { 1579s [00:52:59.766] if (base::length(...future.futureOptionsAdded) > 1579s [00:52:59.766] 0L) { 1579s [00:52:59.766] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1579s [00:52:59.766] base::names(opts) <- ...future.futureOptionsAdded 1579s [00:52:59.766] base::options(opts) 1579s [00:52:59.766] } 1579s [00:52:59.766] { 1579s [00:52:59.766] { 1579s [00:52:59.766] NULL 1579s [00:52:59.766] RNGkind("Mersenne-Twister") 1579s [00:52:59.766] base::rm(list = ".Random.seed", envir = base::globalenv(), 1579s [00:52:59.766] inherits = FALSE) 1579s [00:52:59.766] } 1579s [00:52:59.766] options(future.plan = NULL) 1579s [00:52:59.766] if (is.na(NA_character_)) 1579s [00:52:59.766] Sys.unsetenv("R_FUTURE_PLAN") 1579s [00:52:59.766] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1579s [00:52:59.766] future::plan(list(function (..., workers = availableCores(), 1579s [00:52:59.766] lazy = FALSE, rscript_libs = .libPaths(), 1579s [00:52:59.766] envir = parent.frame()) 1579s [00:52:59.766] { 1579s [00:52:59.766] if (is.function(workers)) 1579s [00:52:59.766] workers <- workers() 1579s [00:52:59.766] workers <- structure(as.integer(workers), 1579s [00:52:59.766] class = class(workers)) 1579s [00:52:59.766] stop_if_not(length(workers) == 1, is.finite(workers), 1579s [00:52:59.766] workers >= 1) 1579s [00:52:59.766] if (workers == 1L && !inherits(workers, "AsIs")) { 1579s [00:52:59.766] return(sequential(..., lazy = TRUE, envir = envir)) 1579s [00:52:59.766] } 1579s [00:52:59.766] future <- MultisessionFuture(..., workers = workers, 1579s [00:52:59.766] lazy = lazy, rscript_libs = rscript_libs, 1579s [00:52:59.766] envir = envir) 1579s [00:52:59.766] if (!future$lazy) 1579s [00:52:59.766] future <- run(future) 1579s [00:52:59.766] invisible(future) 1579s [00:52:59.766] }), .cleanup = FALSE, .init = FALSE) 1579s [00:52:59.766] } 1579s [00:52:59.766] } 1579s [00:52:59.766] } 1579s [00:52:59.766] }) 1579s [00:52:59.766] if (TRUE) { 1579s [00:52:59.766] base::sink(type = "output", split = FALSE) 1579s [00:52:59.766] if (TRUE) { 1579s [00:52:59.766] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1579s [00:52:59.766] } 1579s [00:52:59.766] else { 1579s [00:52:59.766] ...future.result["stdout"] <- base::list(NULL) 1579s [00:52:59.766] } 1579s [00:52:59.766] base::close(...future.stdout) 1579s [00:52:59.766] ...future.stdout <- NULL 1579s [00:52:59.766] } 1579s [00:52:59.766] ...future.result$conditions <- ...future.conditions 1579s [00:52:59.766] ...future.result$finished <- base::Sys.time() 1579s [00:52:59.766] ...future.result 1579s [00:52:59.766] } 1579s [00:52:59.770] assign_globals() ... 1579s [00:52:59.770] List of 5 1579s [00:52:59.770] $ ...future.FUN :function (x, y = 2 * 1:5) 1579s [00:52:59.770] $ future.call.arguments : list() 1579s [00:52:59.770] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1579s [00:52:59.770] $ ...future.elements_ii :List of 3 1579s [00:52:59.770] ..$ a: num 1 1579s [00:52:59.770] ..$ b: num 2 1579s [00:52:59.770] ..$ c: num 3 1579s [00:52:59.770] $ ...future.seeds_ii : NULL 1579s [00:52:59.770] $ ...future.globals.maxSize: NULL 1579s [00:52:59.770] - attr(*, "where")=List of 5 1579s [00:52:59.770] ..$ ...future.FUN : 1579s [00:52:59.770] ..$ future.call.arguments : 1579s [00:52:59.770] ..$ ...future.elements_ii : 1579s [00:52:59.770] ..$ ...future.seeds_ii : 1579s [00:52:59.770] ..$ ...future.globals.maxSize: 1579s [00:52:59.770] - attr(*, "resolved")= logi FALSE 1579s [00:52:59.770] - attr(*, "total_size")= num 4728 1579s [00:52:59.770] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1579s [00:52:59.770] - attr(*, "already-done")= logi TRUE 1579s [00:52:59.777] - reassign environment for ‘...future.FUN’ 1579s [00:52:59.777] - copied ‘...future.FUN’ to environment 1579s [00:52:59.777] - copied ‘future.call.arguments’ to environment 1579s [00:52:59.777] - copied ‘...future.elements_ii’ to environment 1579s [00:52:59.778] - copied ‘...future.seeds_ii’ to environment 1579s [00:52:59.778] - copied ‘...future.globals.maxSize’ to environment 1579s [00:52:59.778] assign_globals() ... done 1579s [00:52:59.778] plan(): Setting new future strategy stack: 1579s [00:52:59.778] List of future strategies: 1579s [00:52:59.778] 1. sequential: 1579s [00:52:59.778] - args: function (..., envir = parent.frame()) 1579s [00:52:59.778] - tweaked: FALSE 1579s [00:52:59.778] - call: NULL 1579s [00:52:59.779] plan(): nbrOfWorkers() = 1 1579s [00:52:59.780] plan(): Setting new future strategy stack: 1579s [00:52:59.780] List of future strategies: 1579s [00:52:59.780] 1. multisession: 1579s [00:52:59.780] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1579s [00:52:59.780] - tweaked: FALSE 1579s [00:52:59.780] - call: plan(strategy) 1579s [00:52:59.784] plan(): nbrOfWorkers() = 1 1579s [00:52:59.784] SequentialFuture started (and completed) 1579s [00:52:59.784] - Launch lazy future ... done 1579s [00:52:59.784] run() for ‘SequentialFuture’ ... done 1579s [00:52:59.785] Created future: 1579s [00:52:59.785] SequentialFuture: 1579s [00:52:59.785] Label: ‘future_sapply-1’ 1579s [00:52:59.785] Expression: 1579s [00:52:59.785] { 1579s [00:52:59.785] do.call(function(...) { 1579s [00:52:59.785] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1579s [00:52:59.785] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1579s [00:52:59.785] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1579s [00:52:59.785] on.exit(options(oopts), add = TRUE) 1579s [00:52:59.785] } 1579s [00:52:59.785] { 1579s [00:52:59.785] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1579s [00:52:59.785] ...future.X_jj <- ...future.elements_ii[[jj]] 1579s [00:52:59.785] ...future.FUN(...future.X_jj, ...) 1579s [00:52:59.785] }) 1579s [00:52:59.785] } 1579s [00:52:59.785] }, args = future.call.arguments) 1579s [00:52:59.785] } 1579s [00:52:59.785] Lazy evaluation: FALSE 1579s [00:52:59.785] Asynchronous evaluation: FALSE 1579s [00:52:59.785] Local evaluation: TRUE 1579s [00:52:59.785] Environment: R_GlobalEnv 1579s [00:52:59.785] Capture standard output: TRUE 1579s [00:52:59.785] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1579s [00:52:59.785] Globals: 5 objects totaling 4.78 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1579s [00:52:59.785] Packages: 1579s [00:52:59.785] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1579s [00:52:59.785] Resolved: TRUE 1579s [00:52:59.785] Value: 1.01 KiB of class ‘list’ 1579s [00:52:59.785] Early signaling: FALSE 1579s [00:52:59.785] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1579s [00:52:59.785] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1579s [00:52:59.787] Chunk #1 of 1 ... DONE 1579s [00:52:59.787] Launching 1 futures (chunks) ... DONE 1579s [00:52:59.787] Resolving 1 futures (chunks) ... 1579s [00:52:59.787] resolve() on list ... 1579s [00:52:59.787] recursive: 0 1579s [00:52:59.788] length: 1 1579s [00:52:59.788] 1579s [00:52:59.788] resolved() for ‘SequentialFuture’ ... 1579s [00:52:59.788] - state: ‘finished’ 1579s [00:52:59.788] - run: TRUE 1579s [00:52:59.789] - result: ‘FutureResult’ 1579s [00:52:59.789] resolved() for ‘SequentialFuture’ ... done 1579s [00:52:59.789] Future #1 1579s [00:52:59.789] signalConditionsASAP(SequentialFuture, pos=1) ... 1579s [00:52:59.789] - nx: 1 1579s [00:52:59.789] - relay: TRUE 1579s [00:52:59.790] - stdout: TRUE 1579s [00:52:59.790] - signal: TRUE 1579s [00:52:59.790] - resignal: FALSE 1579s [00:52:59.790] - force: TRUE 1579s [00:52:59.790] - relayed: [n=1] FALSE 1579s [00:52:59.790] - queued futures: [n=1] FALSE 1579s [00:52:59.791] - until=1 1579s [00:52:59.791] - relaying element #1 1579s [00:52:59.791] - relayed: [n=1] TRUE 1579s [00:52:59.791] - queued futures: [n=1] TRUE 1579s [00:52:59.791] signalConditionsASAP(SequentialFuture, pos=1) ... done 1579s [00:52:59.792] length: 0 (resolved future 1) 1579s [00:52:59.792] Relaying remaining futures 1579s [00:52:59.792] signalConditionsASAP(NULL, pos=0) ... 1579s [00:52:59.792] - nx: 1 1579s [00:52:59.792] - relay: TRUE 1579s [00:52:59.793] - stdout: TRUE 1579s [00:52:59.793] - signal: TRUE 1579s [00:52:59.793] - resignal: FALSE 1579s [00:52:59.793] - force: TRUE 1579s [00:52:59.793] - relayed: [n=1] TRUE 1579s [00:52:59.793] - queued futures: [n=1] TRUE 1579s - flush all 1579s [00:52:59.794] - relayed: [n=1] TRUE 1579s [00:52:59.794] - queued futures: [n=1] TRUE 1579s [00:52:59.794] signalConditionsASAP(NULL, pos=0) ... done 1579s List of 2 1579s $ y0:[00:52:59.794] resolve() on list ... DONE 1579s [00:52:59.795] - Number of value chunks collected: 1 1579s [00:52:59.795] Resolving 1 futures (chunks) ... DONE 1579s [00:52:59.795] Reducing values from 1 chunks ... 1579s [00:52:59.795] - Number of values collected after concatenation: 3 1579s [00:52:59.795] - Number of values expected: 3 1579s [00:52:59.796] Reducing values from 1 chunks ... DONE 1579s [00:52:59.796] future_lapply() ... DONE 1579s [00:52:59.801] future_lapply() ... 1579s num [1:3, 1:5, 1:3] 2 2 2 4 4 4 6 6 6 8 ... 1579s ..- attr(*, "dimnames")=List of 3 1579s .. ..$ : NULL 1579s .. ..$ : NULL 1579s .. ..$ : chr [1:3] "a" "b" "c" 1579s $ y1: num [1:3, 1:5, 1:3] 2 2 2 4 4 4 6 6 6 8 ... 1579s ..- attr(*, "dimnames")=List of 3 1579s .. ..$ : NULL 1579s .. ..$ : NULL 1579s .. ..$ : chr [1:3] "a" "b" "c" 1579s [00:52:59.805] Number of chunks: 1 1579s [00:52:59.806] getGlobalsAndPackagesXApply() ... 1579s [00:52:59.806] - future.globals: TRUE 1579s [00:52:59.806] getGlobalsAndPackages() ... 1579s [00:52:59.806] Searching for globals... 1579s [00:52:59.807] - globals found: [1] ‘FUN’ 1579s [00:52:59.808] Searching for globals ... DONE 1579s [00:52:59.808] Resolving globals: FALSE 1579s [00:52:59.808] The total size of the 1 globals is 848 bytes (848 bytes) 1579s [00:52:59.809] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1579s [00:52:59.809] - globals: [1] ‘FUN’ 1579s [00:52:59.809] 1579s [00:52:59.809] getGlobalsAndPackages() ... DONE 1579s [00:52:59.810] - globals found/used: [n=1] ‘FUN’ 1579s [00:52:59.811] - needed namespaces: [n=0] 1579s [00:52:59.811] Finding globals ... DONE 1579s [00:52:59.811] - use_args: TRUE 1579s [00:52:59.811] - Getting '...' globals ... 1579s [00:52:59.812] resolve() on list ... 1579s [00:52:59.812] recursive: 0 1579s [00:52:59.812] length: 1 1579s [00:52:59.813] elements: ‘...’ 1579s [00:52:59.813] length: 0 (resolved future 1) 1579s [00:52:59.813] resolve() on list ... DONE 1579s [00:52:59.813] - '...' content: [n=0] 1579s [00:52:59.813] List of 1 1579s [00:52:59.813] $ ...: list() 1579s [00:52:59.813] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1579s [00:52:59.813] - attr(*, "where")=List of 1 1579s [00:52:59.813] ..$ ...: 1579s [00:52:59.813] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1579s [00:52:59.813] - attr(*, "resolved")= logi TRUE 1579s [00:52:59.813] - attr(*, "total_size")= num NA 1579s [00:52:59.817] - Getting '...' globals ... DONE 1579s [00:52:59.817] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1579s [00:52:59.818] List of 2 1579s [00:52:59.818] $ ...future.FUN:function (x) 1579s [00:52:59.818] $ ... : list() 1579s [00:52:59.818] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1579s [00:52:59.818] - attr(*, "where")=List of 2 1579s [00:52:59.818] ..$ ...future.FUN: 1579s [00:52:59.818] ..$ ... : 1579s [00:52:59.818] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1579s [00:52:59.818] - attr(*, "resolved")= logi FALSE 1579s [00:52:59.818] - attr(*, "total_size")= num 848 1579s [00:52:59.822] Packages to be attached in all futures: [n=0] 1579s [00:52:59.822] getGlobalsAndPackagesXApply() ... DONE 1579s [00:52:59.822] Number of futures (= number of chunks): 1 1579s [00:52:59.823] Launching 1 futures (chunks) ... 1579s [00:52:59.823] Chunk #1 of 1 ... 1579s [00:52:59.823] - Finding globals in 'X' for chunk #1 ... 1579s [00:52:59.823] getGlobalsAndPackages() ... 1579s [00:52:59.824] Searching for globals... 1579s [00:52:59.824] 1579s [00:52:59.824] Searching for globals ... DONE 1579s [00:52:59.824] - globals: [0] 1579s [00:52:59.824] getGlobalsAndPackages() ... DONE 1579s [00:52:59.825] + additional globals found: [n=0] 1579s [00:52:59.825] + additional namespaces needed: [n=0] 1579s [00:52:59.825] - Finding globals in 'X' for chunk #1 ... DONE 1579s [00:52:59.825] - seeds: 1579s [00:52:59.826] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1579s [00:52:59.826] getGlobalsAndPackages() ... 1579s [00:52:59.826] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1579s [00:52:59.826] Resolving globals: FALSE 1579s [00:52:59.826] Tweak future expression to call with '...' arguments ... 1579s [00:52:59.826] { 1579s [00:52:59.826] do.call(function(...) { 1579s [00:52:59.826] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1579s [00:52:59.826] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1579s [00:52:59.826] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1579s [00:52:59.826] on.exit(options(oopts), add = TRUE) 1579s [00:52:59.826] } 1579s [00:52:59.826] { 1579s [00:52:59.826] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1579s [00:52:59.826] ...future.X_jj <- ...future.elements_ii[[jj]] 1579s [00:52:59.826] ...future.FUN(...future.X_jj, ...) 1579s [00:52:59.826] }) 1579s [00:52:59.826] } 1579s [00:52:59.826] }, args = future.call.arguments) 1579s [00:52:59.826] } 1579s [00:52:59.827] Tweak future expression to call with '...' arguments ... DONE 1579s [00:52:59.827] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1579s [00:52:59.828] 1579s [00:52:59.828] getGlobalsAndPackages() ... DONE 1579s [00:52:59.828] run() for ‘Future’ ... 1579s [00:52:59.828] - state: ‘created’ 1579s [00:52:59.829] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1579s [00:52:59.832] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1579s [00:52:59.833] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1579s [00:52:59.833] - Field: ‘label’ 1579s [00:52:59.833] - Field: ‘local’ 1579s [00:52:59.833] - Field: ‘owner’ 1579s [00:52:59.833] - Field: ‘envir’ 1579s [00:52:59.834] - Field: ‘packages’ 1579s [00:52:59.834] - Field: ‘gc’ 1579s [00:52:59.834] - Field: ‘conditions’ 1579s [00:52:59.834] - Field: ‘expr’ 1579s [00:52:59.834] - Field: ‘uuid’ 1579s [00:52:59.834] - Field: ‘seed’ 1579s [00:52:59.835] - Field: ‘version’ 1579s [00:52:59.835] - Field: ‘result’ 1579s [00:52:59.835] - Field: ‘asynchronous’ 1579s [00:52:59.835] - Field: ‘calls’ 1579s [00:52:59.835] - Field: ‘globals’ 1579s [00:52:59.835] - Field: ‘stdout’ 1579s [00:52:59.835] - Field: ‘earlySignal’ 1579s [00:52:59.836] - Field: ‘lazy’ 1579s [00:52:59.836] - Field: ‘state’ 1579s [00:52:59.836] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1579s [00:52:59.836] - Launch lazy future ... 1579s [00:52:59.836] Packages needed by the future expression (n = 0): 1579s [00:52:59.836] Packages needed by future strategies (n = 0): 1579s [00:52:59.837] { 1579s [00:52:59.837] { 1579s [00:52:59.837] { 1579s [00:52:59.837] ...future.startTime <- base::Sys.time() 1579s [00:52:59.837] { 1579s [00:52:59.837] { 1579s [00:52:59.837] { 1579s [00:52:59.837] base::local({ 1579s [00:52:59.837] has_future <- base::requireNamespace("future", 1579s [00:52:59.837] quietly = TRUE) 1579s [00:52:59.837] if (has_future) { 1579s [00:52:59.837] ns <- base::getNamespace("future") 1579s [00:52:59.837] version <- ns[[".package"]][["version"]] 1579s [00:52:59.837] if (is.null(version)) 1579s [00:52:59.837] version <- utils::packageVersion("future") 1579s [00:52:59.837] } 1579s [00:52:59.837] else { 1579s [00:52:59.837] version <- NULL 1579s [00:52:59.837] } 1579s [00:52:59.837] if (!has_future || version < "1.8.0") { 1579s [00:52:59.837] info <- base::c(r_version = base::gsub("R version ", 1579s [00:52:59.837] "", base::R.version$version.string), 1579s [00:52:59.837] platform = base::sprintf("%s (%s-bit)", 1579s [00:52:59.837] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1579s [00:52:59.837] os = base::paste(base::Sys.info()[base::c("sysname", 1579s [00:52:59.837] "release", "version")], collapse = " "), 1579s [00:52:59.837] hostname = base::Sys.info()[["nodename"]]) 1579s [00:52:59.837] info <- base::sprintf("%s: %s", base::names(info), 1579s [00:52:59.837] info) 1579s [00:52:59.837] info <- base::paste(info, collapse = "; ") 1579s [00:52:59.837] if (!has_future) { 1579s [00:52:59.837] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1579s [00:52:59.837] info) 1579s [00:52:59.837] } 1579s [00:52:59.837] else { 1579s [00:52:59.837] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1579s [00:52:59.837] info, version) 1579s [00:52:59.837] } 1579s [00:52:59.837] base::stop(msg) 1579s [00:52:59.837] } 1579s [00:52:59.837] }) 1579s [00:52:59.837] } 1579s [00:52:59.837] options(future.plan = NULL) 1579s [00:52:59.837] Sys.unsetenv("R_FUTURE_PLAN") 1579s [00:52:59.837] future::plan("default", .cleanup = FALSE, .init = FALSE) 1579s [00:52:59.837] } 1579s [00:52:59.837] ...future.workdir <- getwd() 1579s [00:52:59.837] } 1579s [00:52:59.837] ...future.oldOptions <- base::as.list(base::.Options) 1579s [00:52:59.837] ...future.oldEnvVars <- base::Sys.getenv() 1579s [00:52:59.837] } 1579s [00:52:59.837] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1579s [00:52:59.837] future.globals.maxSize = NULL, future.globals.method = NULL, 1579s [00:52:59.837] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1579s [00:52:59.837] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1579s [00:52:59.837] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1579s [00:52:59.837] future.stdout.windows.reencode = NULL, width = 80L) 1579s [00:52:59.837] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1579s [00:52:59.837] base::names(...future.oldOptions)) 1579s [00:52:59.837] } 1579s [00:52:59.837] if (FALSE) { 1579s [00:52:59.837] } 1579s [00:52:59.837] else { 1579s [00:52:59.837] if (TRUE) { 1579s [00:52:59.837] ...future.stdout <- base::rawConnection(base::raw(0L), 1579s [00:52:59.837] open = "w") 1579s [00:52:59.837] } 1579s [00:52:59.837] else { 1579s [00:52:59.837] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1579s [00:52:59.837] windows = "NUL", "/dev/null"), open = "w") 1579s [00:52:59.837] } 1579s [00:52:59.837] base::sink(...future.stdout, type = "output", split = FALSE) 1579s [00:52:59.837] base::on.exit(if (!base::is.null(...future.stdout)) { 1579s [00:52:59.837] base::sink(type = "output", split = FALSE) 1579s [00:52:59.837] base::close(...future.stdout) 1579s [00:52:59.837] }, add = TRUE) 1579s [00:52:59.837] } 1579s [00:52:59.837] ...future.frame <- base::sys.nframe() 1579s [00:52:59.837] ...future.conditions <- base::list() 1579s [00:52:59.837] ...future.rng <- base::globalenv()$.Random.seed 1579s [00:52:59.837] if (FALSE) { 1579s [00:52:59.837] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1579s [00:52:59.837] "...future.value", "...future.globalenv.names", ".Random.seed") 1579s [00:52:59.837] } 1579s [00:52:59.837] ...future.result <- base::tryCatch({ 1579s [00:52:59.837] base::withCallingHandlers({ 1579s [00:52:59.837] ...future.value <- base::withVisible(base::local({ 1579s [00:52:59.837] do.call(function(...) { 1579s [00:52:59.837] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1579s [00:52:59.837] if (!identical(...future.globals.maxSize.org, 1579s [00:52:59.837] ...future.globals.maxSize)) { 1579s [00:52:59.837] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1579s [00:52:59.837] on.exit(options(oopts), add = TRUE) 1579s [00:52:59.837] } 1579s [00:52:59.837] { 1579s [00:52:59.837] lapply(seq_along(...future.elements_ii), 1579s [00:52:59.837] FUN = function(jj) { 1579s [00:52:59.837] ...future.X_jj <- ...future.elements_ii[[jj]] 1579s [00:52:59.837] ...future.FUN(...future.X_jj, ...) 1579s [00:52:59.837] }) 1579s [00:52:59.837] } 1579s [00:52:59.837] }, args = future.call.arguments) 1579s [00:52:59.837] })) 1579s [00:52:59.837] future::FutureResult(value = ...future.value$value, 1579s [00:52:59.837] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1579s [00:52:59.837] ...future.rng), globalenv = if (FALSE) 1579s [00:52:59.837] list(added = base::setdiff(base::names(base::.GlobalEnv), 1579s [00:52:59.837] ...future.globalenv.names)) 1579s [00:52:59.837] else NULL, started = ...future.startTime, version = "1.8") 1579s [00:52:59.837] }, condition = base::local({ 1579s [00:52:59.837] c <- base::c 1579s [00:52:59.837] inherits <- base::inherits 1579s [00:52:59.837] invokeRestart <- base::invokeRestart 1579s [00:52:59.837] length <- base::length 1579s [00:52:59.837] list <- base::list 1579s [00:52:59.837] seq.int <- base::seq.int 1579s [00:52:59.837] signalCondition <- base::signalCondition 1579s [00:52:59.837] sys.calls <- base::sys.calls 1579s [00:52:59.837] `[[` <- base::`[[` 1579s [00:52:59.837] `+` <- base::`+` 1579s [00:52:59.837] `<<-` <- base::`<<-` 1579s [00:52:59.837] sysCalls <- function(calls = sys.calls(), from = 1L) { 1579s [00:52:59.837] calls[seq.int(from = from + 12L, to = length(calls) - 1579s [00:52:59.837] 3L)] 1579s [00:52:59.837] } 1579s [00:52:59.837] function(cond) { 1579s [00:52:59.837] is_error <- inherits(cond, "error") 1579s [00:52:59.837] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1579s [00:52:59.837] NULL) 1579s [00:52:59.837] if (is_error) { 1579s [00:52:59.837] sessionInformation <- function() { 1579s [00:52:59.837] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1579s [00:52:59.837] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1579s [00:52:59.837] search = base::search(), system = base::Sys.info()) 1579s [00:52:59.837] } 1579s [00:52:59.837] ...future.conditions[[length(...future.conditions) + 1579s [00:52:59.837] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1579s [00:52:59.837] cond$call), session = sessionInformation(), 1579s [00:52:59.837] timestamp = base::Sys.time(), signaled = 0L) 1579s [00:52:59.837] signalCondition(cond) 1579s [00:52:59.837] } 1579s [00:52:59.837] else if (!ignore && TRUE && inherits(cond, c("condition", 1579s [00:52:59.837] "immediateCondition"))) { 1579s [00:52:59.837] signal <- TRUE && inherits(cond, "immediateCondition") 1579s [00:52:59.837] ...future.conditions[[length(...future.conditions) + 1579s [00:52:59.837] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1579s [00:52:59.837] if (TRUE && !signal) { 1579s [00:52:59.837] muffleCondition <- function (cond, pattern = "^muffle") 1579s [00:52:59.837] { 1579s [00:52:59.837] inherits <- base::inherits 1579s [00:52:59.837] invokeRestart <- base::invokeRestart 1579s [00:52:59.837] is.null <- base::is.null 1579s [00:52:59.837] muffled <- FALSE 1579s [00:52:59.837] if (inherits(cond, "message")) { 1579s [00:52:59.837] muffled <- grepl(pattern, "muffleMessage") 1579s [00:52:59.837] if (muffled) 1579s [00:52:59.837] invokeRestart("muffleMessage") 1579s [00:52:59.837] } 1579s [00:52:59.837] else if (inherits(cond, "warning")) { 1579s [00:52:59.837] muffled <- grepl(pattern, "muffleWarning") 1579s [00:52:59.837] if (muffled) 1579s [00:52:59.837] invokeRestart("muffleWarning") 1579s [00:52:59.837] } 1579s [00:52:59.837] else if (inherits(cond, "condition")) { 1579s [00:52:59.837] if (!is.null(pattern)) { 1579s [00:52:59.837] computeRestarts <- base::computeRestarts 1579s [00:52:59.837] grepl <- base::grepl 1579s [00:52:59.837] restarts <- computeRestarts(cond) 1579s [00:52:59.837] for (restart in restarts) { 1579s [00:52:59.837] name <- restart$name 1579s [00:52:59.837] if (is.null(name)) 1579s [00:52:59.837] next 1579s [00:52:59.837] if (!grepl(pattern, name)) 1579s [00:52:59.837] next 1579s [00:52:59.837] invokeRestart(restart) 1579s [00:52:59.837] muffled <- TRUE 1579s [00:52:59.837] break 1579s [00:52:59.837] } 1579s [00:52:59.837] } 1579s [00:52:59.837] } 1579s [00:52:59.837] invisible(muffled) 1579s [00:52:59.837] } 1579s [00:52:59.837] muffleCondition(cond, pattern = "^muffle") 1579s [00:52:59.837] } 1579s [00:52:59.837] } 1579s [00:52:59.837] else { 1579s [00:52:59.837] if (TRUE) { 1579s [00:52:59.837] muffleCondition <- function (cond, pattern = "^muffle") 1579s [00:52:59.837] { 1579s [00:52:59.837] inherits <- base::inherits 1579s [00:52:59.837] invokeRestart <- base::invokeRestart 1579s [00:52:59.837] is.null <- base::is.null 1579s [00:52:59.837] muffled <- FALSE 1579s [00:52:59.837] if (inherits(cond, "message")) { 1579s [00:52:59.837] muffled <- grepl(pattern, "muffleMessage") 1579s [00:52:59.837] if (muffled) 1579s [00:52:59.837] invokeRestart("muffleMessage") 1579s [00:52:59.837] } 1579s [00:52:59.837] else if (inherits(cond, "warning")) { 1579s [00:52:59.837] muffled <- grepl(pattern, "muffleWarning") 1579s [00:52:59.837] if (muffled) 1579s [00:52:59.837] invokeRestart("muffleWarning") 1579s [00:52:59.837] } 1579s [00:52:59.837] else if (inherits(cond, "condition")) { 1579s [00:52:59.837] if (!is.null(pattern)) { 1579s [00:52:59.837] computeRestarts <- base::computeRestarts 1579s [00:52:59.837] grepl <- base::grepl 1579s [00:52:59.837] restarts <- computeRestarts(cond) 1579s [00:52:59.837] for (restart in restarts) { 1579s [00:52:59.837] name <- restart$name 1579s [00:52:59.837] if (is.null(name)) 1579s [00:52:59.837] next 1579s [00:52:59.837] if (!grepl(pattern, name)) 1579s [00:52:59.837] next 1579s [00:52:59.837] invokeRestart(restart) 1579s [00:52:59.837] muffled <- TRUE 1579s [00:52:59.837] break 1579s [00:52:59.837] } 1579s [00:52:59.837] } 1579s [00:52:59.837] } 1579s [00:52:59.837] invisible(muffled) 1579s [00:52:59.837] } 1579s [00:52:59.837] muffleCondition(cond, pattern = "^muffle") 1579s [00:52:59.837] } 1579s [00:52:59.837] } 1579s [00:52:59.837] } 1579s [00:52:59.837] })) 1579s [00:52:59.837] }, error = function(ex) { 1579s [00:52:59.837] base::structure(base::list(value = NULL, visible = NULL, 1579s [00:52:59.837] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1579s [00:52:59.837] ...future.rng), started = ...future.startTime, 1579s [00:52:59.837] finished = Sys.time(), session_uuid = NA_character_, 1579s [00:52:59.837] version = "1.8"), class = "FutureResult") 1579s [00:52:59.837] }, finally = { 1579s [00:52:59.837] if (!identical(...future.workdir, getwd())) 1579s [00:52:59.837] setwd(...future.workdir) 1579s [00:52:59.837] { 1579s [00:52:59.837] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1579s [00:52:59.837] ...future.oldOptions$nwarnings <- NULL 1579s [00:52:59.837] } 1579s [00:52:59.837] base::options(...future.oldOptions) 1579s [00:52:59.837] if (.Platform$OS.type == "windows") { 1579s [00:52:59.837] old_names <- names(...future.oldEnvVars) 1579s [00:52:59.837] envs <- base::Sys.getenv() 1579s [00:52:59.837] names <- names(envs) 1579s [00:52:59.837] common <- intersect(names, old_names) 1579s [00:52:59.837] added <- setdiff(names, old_names) 1579s [00:52:59.837] removed <- setdiff(old_names, names) 1579s [00:52:59.837] changed <- common[...future.oldEnvVars[common] != 1579s [00:52:59.837] envs[common]] 1579s [00:52:59.837] NAMES <- toupper(changed) 1579s [00:52:59.837] args <- list() 1579s [00:52:59.837] for (kk in seq_along(NAMES)) { 1579s [00:52:59.837] name <- changed[[kk]] 1579s [00:52:59.837] NAME <- NAMES[[kk]] 1579s [00:52:59.837] if (name != NAME && is.element(NAME, old_names)) 1579s [00:52:59.837] next 1579s [00:52:59.837] args[[name]] <- ...future.oldEnvVars[[name]] 1579s [00:52:59.837] } 1579s [00:52:59.837] NAMES <- toupper(added) 1579s [00:52:59.837] for (kk in seq_along(NAMES)) { 1579s [00:52:59.837] name <- added[[kk]] 1579s [00:52:59.837] NAME <- NAMES[[kk]] 1579s [00:52:59.837] if (name != NAME && is.element(NAME, old_names)) 1579s [00:52:59.837] next 1579s [00:52:59.837] args[[name]] <- "" 1579s [00:52:59.837] } 1579s [00:52:59.837] NAMES <- toupper(removed) 1579s [00:52:59.837] for (kk in seq_along(NAMES)) { 1579s [00:52:59.837] name <- removed[[kk]] 1579s [00:52:59.837] NAME <- NAMES[[kk]] 1579s [00:52:59.837] if (name != NAME && is.element(NAME, old_names)) 1579s [00:52:59.837] next 1579s [00:52:59.837] args[[name]] <- ...future.oldEnvVars[[name]] 1579s [00:52:59.837] } 1579s [00:52:59.837] if (length(args) > 0) 1579s [00:52:59.837] base::do.call(base::Sys.setenv, args = args) 1579s [00:52:59.837] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1579s [00:52:59.837] } 1579s [00:52:59.837] else { 1579s [00:52:59.837] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1579s [00:52:59.837] } 1579s [00:52:59.837] { 1579s [00:52:59.837] if (base::length(...future.futureOptionsAdded) > 1579s [00:52:59.837] 0L) { 1579s [00:52:59.837] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1579s [00:52:59.837] base::names(opts) <- ...future.futureOptionsAdded 1579s [00:52:59.837] base::options(opts) 1579s [00:52:59.837] } 1579s [00:52:59.837] { 1579s [00:52:59.837] { 1579s [00:52:59.837] NULL 1579s [00:52:59.837] RNGkind("Mersenne-Twister") 1579s [00:52:59.837] base::rm(list = ".Random.seed", envir = base::globalenv(), 1579s [00:52:59.837] inherits = FALSE) 1579s [00:52:59.837] } 1579s [00:52:59.837] options(future.plan = NULL) 1579s [00:52:59.837] if (is.na(NA_character_)) 1579s [00:52:59.837] Sys.unsetenv("R_FUTURE_PLAN") 1579s [00:52:59.837] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1579s [00:52:59.837] future::plan(list(function (..., workers = availableCores(), 1579s [00:52:59.837] lazy = FALSE, rscript_libs = .libPaths(), 1579s [00:52:59.837] envir = parent.frame()) 1579s [00:52:59.837] { 1579s [00:52:59.837] if (is.function(workers)) 1579s [00:52:59.837] workers <- workers() 1579s [00:52:59.837] workers <- structure(as.integer(workers), 1579s [00:52:59.837] class = class(workers)) 1579s [00:52:59.837] stop_if_not(length(workers) == 1, is.finite(workers), 1579s [00:52:59.837] workers >= 1) 1579s [00:52:59.837] if (workers == 1L && !inherits(workers, "AsIs")) { 1579s [00:52:59.837] return(sequential(..., lazy = TRUE, envir = envir)) 1579s [00:52:59.837] } 1579s [00:52:59.837] future <- MultisessionFuture(..., workers = workers, 1579s [00:52:59.837] lazy = lazy, rscript_libs = rscript_libs, 1579s [00:52:59.837] envir = envir) 1579s [00:52:59.837] if (!future$lazy) 1579s [00:52:59.837] future <- run(future) 1579s [00:52:59.837] invisible(future) 1579s [00:52:59.837] }), .cleanup = FALSE, .init = FALSE) 1579s [00:52:59.837] } 1579s [00:52:59.837] } 1579s [00:52:59.837] } 1579s [00:52:59.837] }) 1579s [00:52:59.837] if (TRUE) { 1579s [00:52:59.837] base::sink(type = "output", split = FALSE) 1579s [00:52:59.837] if (TRUE) { 1579s [00:52:59.837] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1579s [00:52:59.837] } 1579s [00:52:59.837] else { 1579s [00:52:59.837] ...future.result["stdout"] <- base::list(NULL) 1579s [00:52:59.837] } 1579s [00:52:59.837] base::close(...future.stdout) 1579s [00:52:59.837] ...future.stdout <- NULL 1579s [00:52:59.837] } 1579s [00:52:59.837] ...future.result$conditions <- ...future.conditions 1579s [00:52:59.837] ...future.result$finished <- base::Sys.time() 1579s [00:52:59.837] ...future.result 1579s [00:52:59.837] } 1579s [00:52:59.840] assign_globals() ... 1579s [00:52:59.840] List of 5 1579s [00:52:59.840] $ ...future.FUN :function (x) 1579s [00:52:59.840] $ future.call.arguments : list() 1579s [00:52:59.840] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1579s [00:52:59.840] $ ...future.elements_ii :List of 3 1579s [00:52:59.840] ..$ a: num 1 1579s [00:52:59.840] ..$ b: num 2 1579s [00:52:59.840] ..$ c: num 3 1579s [00:52:59.840] $ ...future.seeds_ii : NULL 1579s [00:52:59.840] $ ...future.globals.maxSize: NULL 1579s [00:52:59.840] - attr(*, "where")=List of 5 1579s [00:52:59.840] ..$ ...future.FUN : 1579s [00:52:59.840] ..$ future.call.arguments : 1579s [00:52:59.840] ..$ ...future.elements_ii : 1579s [00:52:59.840] ..$ ...future.seeds_ii : 1579s [00:52:59.840] ..$ ...future.globals.maxSize: 1579s [00:52:59.840] - attr(*, "resolved")= logi FALSE 1579s [00:52:59.840] - attr(*, "total_size")= num 848 1579s [00:52:59.840] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1579s [00:52:59.840] - attr(*, "already-done")= logi TRUE 1579s [00:52:59.847] - copied ‘...future.FUN’ to environment 1579s [00:52:59.847] - copied ‘future.call.arguments’ to environment 1579s [00:52:59.847] - copied ‘...future.elements_ii’ to environment 1579s [00:52:59.847] - copied ‘...future.seeds_ii’ to environment 1579s [00:52:59.847] - copied ‘...future.globals.maxSize’ to environment 1579s [00:52:59.848] assign_globals() ... done 1579s [00:52:59.848] plan(): Setting new future strategy stack: 1579s [00:52:59.848] List of future strategies: 1579s [00:52:59.848] 1. sequential: 1579s [00:52:59.848] - args: function (..., envir = parent.frame()) 1579s [00:52:59.848] - tweaked: FALSE 1579s [00:52:59.848] - call: NULL 1579s [00:52:59.848] plan(): nbrOfWorkers() = 1 1579s [00:52:59.849] plan(): Setting new future strategy stack: 1579s [00:52:59.849] List of future strategies: 1579s [00:52:59.849] 1. multisession: 1579s [00:52:59.849] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1579s [00:52:59.849] - tweaked: FALSE 1579s [00:52:59.849] - call: plan(strategy) 1579s [00:52:59.853] plan(): nbrOfWorkers() = 1 1579s [00:52:59.853] SequentialFuture started (and completed) 1579s [00:52:59.853] - Launch lazy future ... done 1579s [00:52:59.853] run() for ‘SequentialFuture’ ... done 1579s [00:52:59.854] Created future: 1579s [00:52:59.854] SequentialFuture: 1579s [00:52:59.854] Label: ‘future_sapply-1’ 1579s [00:52:59.854] Expression: 1579s [00:52:59.854] { 1579s [00:52:59.854] do.call(function(...) { 1579s [00:52:59.854] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1579s [00:52:59.854] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1579s [00:52:59.854] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1579s [00:52:59.854] on.exit(options(oopts), add = TRUE) 1579s [00:52:59.854] } 1579s [00:52:59.854] { 1579s [00:52:59.854] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1579s [00:52:59.854] ...future.X_jj <- ...future.elements_ii[[jj]] 1579s [00:52:59.854] ...future.FUN(...future.X_jj, ...) 1579s [00:52:59.854] }) 1579s [00:52:59.854] } 1579s [00:52:59.854] }, args = future.call.arguments) 1579s [00:52:59.854] } 1579s [00:52:59.854] Lazy evaluation: FALSE 1579s [00:52:59.854] Asynchronous evaluation: FALSE 1579s [00:52:59.854] Local evaluation: TRUE 1579s [00:52:59.854] Environment: R_GlobalEnv 1579s [00:52:59.854] Capture standard output: TRUE 1579s [00:52:59.854] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1579s [00:52:59.854] Globals: 5 objects totaling 0.99 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1579s [00:52:59.854] Packages: 1579s [00:52:59.854] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1579s [00:52:59.854] Resolved: TRUE 1579s [00:52:59.854] Value: 168 bytes of class ‘list’ 1579s [00:52:59.854] Early signaling: FALSE 1579s [00:52:59.854] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1579s [00:52:59.854] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1579s [00:52:59.856] Chunk #1 of 1 ... DONE 1579s [00:52:59.856] Launching 1 futures (chunks) ... DONE 1579s [00:52:59.856] Resolving 1 futures (chunks) ... 1579s [00:52:59.856] resolve() on list ... 1579s [00:52:59.857] recursive: 0 1579s [00:52:59.857] length: 1 1579s [00:52:59.857] 1579s [00:52:59.857] resolved() for ‘SequentialFuture’ ... 1579s [00:52:59.857] - state: ‘finished’ 1579s [00:52:59.858] - run: TRUE 1579s [00:52:59.858] - result: ‘FutureResult’ 1579s [00:52:59.858] resolved() for ‘SequentialFuture’ ... done 1579s [00:52:59.858] Future #1 1579s [00:52:59.858] signalConditionsASAP(SequentialFuture, pos=1) ... 1579s [00:52:59.858] - nx: 1 1579s [00:52:59.859] - relay: TRUE 1579s [00:52:59.859] - stdout: TRUE 1579s [00:52:59.859] - signal: TRUE 1579s [00:52:59.859] - resignal: FALSE 1579s [00:52:59.859] - force: TRUE 1579s [00:52:59.860] - relayed: [n=1] FALSE 1579s [00:52:59.860] - queued futures: [n=1] FALSE 1579s [00:52:59.860] - until=1 1579s [00:52:59.860] - relaying element #1 1579s [00:52:59.860] - relayed: [n=1] TRUE 1579s [00:52:59.860] - queued futures: [n=1] TRUE 1579s [00:52:59.861] signalConditionsASAP(SequentialFuture, pos=1) ... done 1579s [00:52:59.861] length: 0 (resolved future 1) 1579s [00:52:59.861] Relaying remaining futures 1579s [00:52:59.861] signalConditionsASAP(NULL, pos=0) ... 1579s [00:52:59.861] - nx: 1 1579s [00:52:59.862] - relay: TRUE 1579s [00:52:59.862] - stdout: TRUE 1579s [00:52:59.862] - signal: TRUE 1579s [00:52:59.862] - resignal: FALSE 1579s [00:52:59.862] - force: TRUE 1579s [00:52:59.863] - relayed: [n=1] TRUE 1579s [00:52:59.863] - queued futures: [n=1] TRUE 1579s - flush all 1579s [00:52:59.863] - relayed: [n=1] TRUE 1579s [00:52:59.863] - queued futures: [n=1] TRUE 1579s [00:52:59.864] signalConditionsASAP(NULL, pos=0) ... done 1579s [00:52:59.864] resolve() on list ... DONE 1579s [00:52:59.864] - Number of value chunks collected: 1 1579s [00:52:59.864] Resolving 1 futures (chunks) ... DONE 1579s [00:52:59.864] Reducing values from 1 chunks ... 1579s [00:52:59.864] - Number of values collected after concatenation: 3 1579s [00:52:59.865] - Number of values expected: 3 1579s [00:52:59.865] Reducing values from 1 chunks ... DONE 1579s [00:52:59.865] future_lapply() ... DONE 1579s List of 2 1579s $ y0:List of 3 1579s ..$ a: num 1 1579s ..$ b: num 2 1579s ..$ c: num 3 1579s $ y1:List of 3 1579s ..$ a: num 1 1579s ..$ b: num 2 1579s ..$ c: num 3 1579s List of 2 1579s $ y0:List of 3 1579s ..$ a: num 1 1579s ..$ b: num 2 1579s ..$ c: num 3 1579s $ y2:List of 3 1579s ..$ a: num 1 1579s ..$ b: num 2 1579s ..$ c: num 3 1579s [00:52:59.878] future_lapply() ... 1579s [00:52:59.884] Number of chunks: 1 1579s [00:52:59.887] getGlobalsAndPackagesXApply() ... 1579s [00:52:59.887] - future.globals: TRUE 1579s [00:52:59.887] getGlobalsAndPackages() ... 1579s [00:52:59.887] Searching for globals... 1579s [00:52:59.889] - globals found: [2] ‘FUN’, ‘UseMethod’ 1579s [00:52:59.889] Searching for globals ... DONE 1579s [00:52:59.889] Resolving globals: FALSE 1579s [00:52:59.890] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1579s [00:52:59.890] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1579s [00:52:59.891] - globals: [1] ‘FUN’ 1579s [00:52:59.891] 1579s [00:52:59.891] getGlobalsAndPackages() ... DONE 1579s [00:52:59.891] - globals found/used: [n=1] ‘FUN’ 1579s [00:52:59.891] - needed namespaces: [n=0] 1579s [00:52:59.892] Finding globals ... DONE 1579s [00:52:59.892] - use_args: TRUE 1579s [00:52:59.892] - Getting '...' globals ... 1579s [00:52:59.893] resolve() on list ... 1579s [00:52:59.893] recursive: 0 1579s [00:52:59.893] length: 1 1579s [00:52:59.894] elements: ‘...’ 1579s [00:52:59.894] length: 0 (resolved future 1) 1579s [00:52:59.894] resolve() on list ... DONE 1579s [00:52:59.894] - '...' content: [n=0] 1579s [00:52:59.895] List of 1 1579s [00:52:59.895] $ ...: list() 1579s [00:52:59.895] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1579s [00:52:59.895] - attr(*, "where")=List of 1 1579s [00:52:59.895] ..$ ...: 1579s [00:52:59.895] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1579s [00:52:59.895] - attr(*, "resolved")= logi TRUE 1579s [00:52:59.895] - attr(*, "total_size")= num NA 1579s [00:52:59.900] - Getting '...' globals ... DONE 1579s [00:52:59.901] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1579s [00:52:59.901] List of 2 1579s [00:52:59.901] $ ...future.FUN:function (x, ...) 1579s [00:52:59.901] $ ... : list() 1579s [00:52:59.901] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1579s [00:52:59.901] - attr(*, "where")=List of 2 1579s [00:52:59.901] ..$ ...future.FUN: 1579s [00:52:59.901] ..$ ... : 1579s [00:52:59.901] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1579s [00:52:59.901] - attr(*, "resolved")= logi FALSE 1579s [00:52:59.901] - attr(*, "total_size")= num 1248 1579s [00:52:59.908] Packages to be attached in all futures: [n=0] 1579s [00:52:59.908] getGlobalsAndPackagesXApply() ... DONE 1579s [00:52:59.908] Number of futures (= number of chunks): 1 1579s [00:52:59.908] Launching 1 futures (chunks) ... 1579s [00:52:59.908] Chunk #1 of 1 ... 1579s [00:52:59.909] - Finding globals in 'X' for chunk #1 ... 1579s [00:52:59.909] getGlobalsAndPackages() ... 1579s [00:52:59.909] Searching for globals... 1579s [00:52:59.910] 1579s [00:52:59.910] Searching for globals ... DONE 1579s [00:52:59.910] - globals: [0] 1579s [00:52:59.910] getGlobalsAndPackages() ... DONE 1579s [00:52:59.910] + additional globals found: [n=0] 1579s [00:52:59.910] + additional namespaces needed: [n=0] 1579s [00:52:59.910] - Finding globals in 'X' for chunk #1 ... DONE 1579s [00:52:59.911] - seeds: 1579s [00:52:59.911] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1579s [00:52:59.911] getGlobalsAndPackages() ... 1579s [00:52:59.911] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1579s [00:52:59.912] Resolving globals: FALSE 1579s [00:52:59.912] Tweak future expression to call with '...' arguments ... 1579s [00:52:59.912] { 1579s [00:52:59.912] do.call(function(...) { 1579s [00:52:59.912] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1579s [00:52:59.912] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1579s [00:52:59.912] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1579s [00:52:59.912] on.exit(options(oopts), add = TRUE) 1579s [00:52:59.912] } 1579s [00:52:59.912] { 1579s [00:52:59.912] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1579s [00:52:59.912] ...future.X_jj <- ...future.elements_ii[[jj]] 1579s [00:52:59.912] ...future.FUN(...future.X_jj, ...) 1579s [00:52:59.912] }) 1579s [00:52:59.912] } 1579s [00:52:59.912] }, args = future.call.arguments) 1579s [00:52:59.912] } 1579s [00:52:59.913] Tweak future expression to call with '...' arguments ... DONE 1579s [00:52:59.914] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1579s [00:52:59.914] 1579s [00:52:59.914] getGlobalsAndPackages() ... DONE 1579s [00:52:59.915] run() for ‘Future’ ... 1579s [00:52:59.915] - state: ‘created’ 1579s [00:52:59.915] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1579s [00:52:59.922] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1579s [00:52:59.922] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1579s [00:52:59.923] - Field: ‘label’ 1579s [00:52:59.923] - Field: ‘local’ 1579s [00:52:59.923] - Field: ‘owner’ 1579s [00:52:59.923] - Field: ‘envir’ 1579s [00:52:59.924] - Field: ‘packages’ 1579s [00:52:59.924] - Field: ‘gc’ 1579s [00:52:59.924] - Field: ‘conditions’ 1579s [00:52:59.925] - Field: ‘expr’ 1579s [00:52:59.925] - Field: ‘uuid’ 1579s [00:52:59.925] - Field: ‘seed’ 1579s [00:52:59.925] - Field: ‘version’ 1579s [00:52:59.926] - Field: ‘result’ 1579s [00:52:59.926] - Field: ‘asynchronous’ 1579s [00:52:59.926] - Field: ‘calls’ 1579s [00:52:59.926] - Field: ‘globals’ 1579s [00:52:59.926] - Field: ‘stdout’ 1579s [00:52:59.926] - Field: ‘earlySignal’ 1579s [00:52:59.927] - Field: ‘lazy’ 1579s [00:52:59.927] - Field: ‘state’ 1579s [00:52:59.927] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1579s [00:52:59.927] - Launch lazy future ... 1579s [00:52:59.927] Packages needed by the future expression (n = 0): 1579s [00:52:59.928] Packages needed by future strategies (n = 0): 1579s [00:52:59.929] { 1579s [00:52:59.929] { 1579s [00:52:59.929] { 1579s [00:52:59.929] ...future.startTime <- base::Sys.time() 1579s [00:52:59.929] { 1579s [00:52:59.929] { 1579s [00:52:59.929] { 1579s [00:52:59.929] base::local({ 1579s [00:52:59.929] has_future <- base::requireNamespace("future", 1579s [00:52:59.929] quietly = TRUE) 1579s [00:52:59.929] if (has_future) { 1579s [00:52:59.929] ns <- base::getNamespace("future") 1579s [00:52:59.929] version <- ns[[".package"]][["version"]] 1579s [00:52:59.929] if (is.null(version)) 1579s [00:52:59.929] version <- utils::packageVersion("future") 1579s [00:52:59.929] } 1579s [00:52:59.929] else { 1579s [00:52:59.929] version <- NULL 1579s [00:52:59.929] } 1579s [00:52:59.929] if (!has_future || version < "1.8.0") { 1579s [00:52:59.929] info <- base::c(r_version = base::gsub("R version ", 1579s [00:52:59.929] "", base::R.version$version.string), 1579s [00:52:59.929] platform = base::sprintf("%s (%s-bit)", 1579s [00:52:59.929] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1579s [00:52:59.929] os = base::paste(base::Sys.info()[base::c("sysname", 1579s [00:52:59.929] "release", "version")], collapse = " "), 1579s [00:52:59.929] hostname = base::Sys.info()[["nodename"]]) 1579s [00:52:59.929] info <- base::sprintf("%s: %s", base::names(info), 1579s [00:52:59.929] info) 1579s [00:52:59.929] info <- base::paste(info, collapse = "; ") 1579s [00:52:59.929] if (!has_future) { 1579s [00:52:59.929] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1579s [00:52:59.929] info) 1579s [00:52:59.929] } 1579s [00:52:59.929] else { 1579s [00:52:59.929] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1579s [00:52:59.929] info, version) 1579s [00:52:59.929] } 1579s [00:52:59.929] base::stop(msg) 1579s [00:52:59.929] } 1579s [00:52:59.929] }) 1579s [00:52:59.929] } 1579s [00:52:59.929] options(future.plan = NULL) 1579s [00:52:59.929] Sys.unsetenv("R_FUTURE_PLAN") 1579s [00:52:59.929] future::plan("default", .cleanup = FALSE, .init = FALSE) 1579s [00:52:59.929] } 1579s [00:52:59.929] ...future.workdir <- getwd() 1579s [00:52:59.929] } 1579s [00:52:59.929] ...future.oldOptions <- base::as.list(base::.Options) 1579s [00:52:59.929] ...future.oldEnvVars <- base::Sys.getenv() 1579s [00:52:59.929] } 1579s [00:52:59.929] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1579s [00:52:59.929] future.globals.maxSize = NULL, future.globals.method = NULL, 1579s [00:52:59.929] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1579s [00:52:59.929] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1579s [00:52:59.929] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1579s [00:52:59.929] future.stdout.windows.reencode = NULL, width = 80L) 1579s [00:52:59.929] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1579s [00:52:59.929] base::names(...future.oldOptions)) 1579s [00:52:59.929] } 1579s [00:52:59.929] if (FALSE) { 1579s [00:52:59.929] } 1579s [00:52:59.929] else { 1579s [00:52:59.929] if (TRUE) { 1579s [00:52:59.929] ...future.stdout <- base::rawConnection(base::raw(0L), 1579s [00:52:59.929] open = "w") 1579s [00:52:59.929] } 1579s [00:52:59.929] else { 1579s [00:52:59.929] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1579s [00:52:59.929] windows = "NUL", "/dev/null"), open = "w") 1579s [00:52:59.929] } 1579s [00:52:59.929] base::sink(...future.stdout, type = "output", split = FALSE) 1579s [00:52:59.929] base::on.exit(if (!base::is.null(...future.stdout)) { 1579s [00:52:59.929] base::sink(type = "output", split = FALSE) 1579s [00:52:59.929] base::close(...future.stdout) 1579s [00:52:59.929] }, add = TRUE) 1579s [00:52:59.929] } 1579s [00:52:59.929] ...future.frame <- base::sys.nframe() 1579s [00:52:59.929] ...future.conditions <- base::list() 1579s [00:52:59.929] ...future.rng <- base::globalenv()$.Random.seed 1579s [00:52:59.929] if (FALSE) { 1579s [00:52:59.929] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1579s [00:52:59.929] "...future.value", "...future.globalenv.names", ".Random.seed") 1579s [00:52:59.929] } 1579s [00:52:59.929] ...future.result <- base::tryCatch({ 1579s [00:52:59.929] base::withCallingHandlers({ 1579s [00:52:59.929] ...future.value <- base::withVisible(base::local({ 1579s [00:52:59.929] do.call(function(...) { 1579s [00:52:59.929] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1579s [00:52:59.929] if (!identical(...future.globals.maxSize.org, 1579s [00:52:59.929] ...future.globals.maxSize)) { 1579s [00:52:59.929] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1579s [00:52:59.929] on.exit(options(oopts), add = TRUE) 1579s [00:52:59.929] } 1579s [00:52:59.929] { 1579s [00:52:59.929] lapply(seq_along(...future.elements_ii), 1579s [00:52:59.929] FUN = function(jj) { 1579s [00:52:59.929] ...future.X_jj <- ...future.elements_ii[[jj]] 1579s [00:52:59.929] ...future.FUN(...future.X_jj, ...) 1579s [00:52:59.929] }) 1579s [00:52:59.929] } 1579s [00:52:59.929] }, args = future.call.arguments) 1579s [00:52:59.929] })) 1579s [00:52:59.929] future::FutureResult(value = ...future.value$value, 1579s [00:52:59.929] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1579s [00:52:59.929] ...future.rng), globalenv = if (FALSE) 1579s [00:52:59.929] list(added = base::setdiff(base::names(base::.GlobalEnv), 1579s [00:52:59.929] ...future.globalenv.names)) 1579s [00:52:59.929] else NULL, started = ...future.startTime, version = "1.8") 1579s [00:52:59.929] }, condition = base::local({ 1579s [00:52:59.929] c <- base::c 1579s [00:52:59.929] inherits <- base::inherits 1579s [00:52:59.929] invokeRestart <- base::invokeRestart 1579s [00:52:59.929] length <- base::length 1579s [00:52:59.929] list <- base::list 1579s [00:52:59.929] seq.int <- base::seq.int 1579s [00:52:59.929] signalCondition <- base::signalCondition 1579s [00:52:59.929] sys.calls <- base::sys.calls 1579s [00:52:59.929] `[[` <- base::`[[` 1579s [00:52:59.929] `+` <- base::`+` 1579s [00:52:59.929] `<<-` <- base::`<<-` 1579s [00:52:59.929] sysCalls <- function(calls = sys.calls(), from = 1L) { 1579s [00:52:59.929] calls[seq.int(from = from + 12L, to = length(calls) - 1579s [00:52:59.929] 3L)] 1579s [00:52:59.929] } 1579s [00:52:59.929] function(cond) { 1579s [00:52:59.929] is_error <- inherits(cond, "error") 1579s [00:52:59.929] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1579s [00:52:59.929] NULL) 1579s [00:52:59.929] if (is_error) { 1579s [00:52:59.929] sessionInformation <- function() { 1579s [00:52:59.929] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1579s [00:52:59.929] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1579s [00:52:59.929] search = base::search(), system = base::Sys.info()) 1579s [00:52:59.929] } 1579s [00:52:59.929] ...future.conditions[[length(...future.conditions) + 1579s [00:52:59.929] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1579s [00:52:59.929] cond$call), session = sessionInformation(), 1579s [00:52:59.929] timestamp = base::Sys.time(), signaled = 0L) 1579s [00:52:59.929] signalCondition(cond) 1579s [00:52:59.929] } 1579s [00:52:59.929] else if (!ignore && TRUE && inherits(cond, c("condition", 1579s [00:52:59.929] "immediateCondition"))) { 1579s [00:52:59.929] signal <- TRUE && inherits(cond, "immediateCondition") 1579s [00:52:59.929] ...future.conditions[[length(...future.conditions) + 1579s [00:52:59.929] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1579s [00:52:59.929] if (TRUE && !signal) { 1579s [00:52:59.929] muffleCondition <- function (cond, pattern = "^muffle") 1579s [00:52:59.929] { 1579s [00:52:59.929] inherits <- base::inherits 1579s [00:52:59.929] invokeRestart <- base::invokeRestart 1579s [00:52:59.929] is.null <- base::is.null 1579s [00:52:59.929] muffled <- FALSE 1579s [00:52:59.929] if (inherits(cond, "message")) { 1579s [00:52:59.929] muffled <- grepl(pattern, "muffleMessage") 1579s [00:52:59.929] if (muffled) 1579s [00:52:59.929] invokeRestart("muffleMessage") 1579s [00:52:59.929] } 1579s [00:52:59.929] else if (inherits(cond, "warning")) { 1579s [00:52:59.929] muffled <- grepl(pattern, "muffleWarning") 1579s [00:52:59.929] if (muffled) 1579s [00:52:59.929] invokeRestart("muffleWarning") 1579s [00:52:59.929] } 1579s [00:52:59.929] else if (inherits(cond, "condition")) { 1579s [00:52:59.929] if (!is.null(pattern)) { 1579s [00:52:59.929] computeRestarts <- base::computeRestarts 1579s [00:52:59.929] grepl <- base::grepl 1579s [00:52:59.929] restarts <- computeRestarts(cond) 1579s [00:52:59.929] for (restart in restarts) { 1579s [00:52:59.929] name <- restart$name 1579s [00:52:59.929] if (is.null(name)) 1579s [00:52:59.929] next 1579s [00:52:59.929] if (!grepl(pattern, name)) 1579s [00:52:59.929] next 1579s [00:52:59.929] invokeRestart(restart) 1579s [00:52:59.929] muffled <- TRUE 1579s [00:52:59.929] break 1579s [00:52:59.929] } 1579s [00:52:59.929] } 1579s [00:52:59.929] } 1579s [00:52:59.929] invisible(muffled) 1579s [00:52:59.929] } 1579s [00:52:59.929] muffleCondition(cond, pattern = "^muffle") 1579s [00:52:59.929] } 1579s [00:52:59.929] } 1579s [00:52:59.929] else { 1579s [00:52:59.929] if (TRUE) { 1579s [00:52:59.929] muffleCondition <- function (cond, pattern = "^muffle") 1579s [00:52:59.929] { 1579s [00:52:59.929] inherits <- base::inherits 1579s [00:52:59.929] invokeRestart <- base::invokeRestart 1579s [00:52:59.929] is.null <- base::is.null 1579s [00:52:59.929] muffled <- FALSE 1579s [00:52:59.929] if (inherits(cond, "message")) { 1579s [00:52:59.929] muffled <- grepl(pattern, "muffleMessage") 1579s [00:52:59.929] if (muffled) 1579s [00:52:59.929] invokeRestart("muffleMessage") 1579s [00:52:59.929] } 1579s [00:52:59.929] else if (inherits(cond, "warning")) { 1579s [00:52:59.929] muffled <- grepl(pattern, "muffleWarning") 1579s [00:52:59.929] if (muffled) 1579s [00:52:59.929] invokeRestart("muffleWarning") 1579s [00:52:59.929] } 1579s [00:52:59.929] else if (inherits(cond, "condition")) { 1579s [00:52:59.929] if (!is.null(pattern)) { 1579s [00:52:59.929] computeRestarts <- base::computeRestarts 1579s [00:52:59.929] grepl <- base::grepl 1579s [00:52:59.929] restarts <- computeRestarts(cond) 1579s [00:52:59.929] for (restart in restarts) { 1579s [00:52:59.929] name <- restart$name 1579s [00:52:59.929] if (is.null(name)) 1579s [00:52:59.929] next 1579s [00:52:59.929] if (!grepl(pattern, name)) 1579s [00:52:59.929] next 1579s [00:52:59.929] invokeRestart(restart) 1579s [00:52:59.929] muffled <- TRUE 1579s [00:52:59.929] break 1579s [00:52:59.929] } 1579s [00:52:59.929] } 1579s [00:52:59.929] } 1579s [00:52:59.929] invisible(muffled) 1579s [00:52:59.929] } 1579s [00:52:59.929] muffleCondition(cond, pattern = "^muffle") 1579s [00:52:59.929] } 1579s [00:52:59.929] } 1579s [00:52:59.929] } 1579s [00:52:59.929] })) 1579s [00:52:59.929] }, error = function(ex) { 1579s [00:52:59.929] base::structure(base::list(value = NULL, visible = NULL, 1579s [00:52:59.929] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1579s [00:52:59.929] ...future.rng), started = ...future.startTime, 1579s [00:52:59.929] finished = Sys.time(), session_uuid = NA_character_, 1579s [00:52:59.929] version = "1.8"), class = "FutureResult") 1579s [00:52:59.929] }, finally = { 1579s [00:52:59.929] if (!identical(...future.workdir, getwd())) 1579s [00:52:59.929] setwd(...future.workdir) 1579s [00:52:59.929] { 1579s [00:52:59.929] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1579s [00:52:59.929] ...future.oldOptions$nwarnings <- NULL 1579s [00:52:59.929] } 1579s [00:52:59.929] base::options(...future.oldOptions) 1579s [00:52:59.929] if (.Platform$OS.type == "windows") { 1579s [00:52:59.929] old_names <- names(...future.oldEnvVars) 1579s [00:52:59.929] envs <- base::Sys.getenv() 1579s [00:52:59.929] names <- names(envs) 1579s [00:52:59.929] common <- intersect(names, old_names) 1579s [00:52:59.929] added <- setdiff(names, old_names) 1579s [00:52:59.929] removed <- setdiff(old_names, names) 1579s [00:52:59.929] changed <- common[...future.oldEnvVars[common] != 1579s [00:52:59.929] envs[common]] 1579s [00:52:59.929] NAMES <- toupper(changed) 1579s [00:52:59.929] args <- list() 1579s [00:52:59.929] for (kk in seq_along(NAMES)) { 1579s [00:52:59.929] name <- changed[[kk]] 1579s [00:52:59.929] NAME <- NAMES[[kk]] 1579s [00:52:59.929] if (name != NAME && is.element(NAME, old_names)) 1579s [00:52:59.929] next 1579s [00:52:59.929] args[[name]] <- ...future.oldEnvVars[[name]] 1579s [00:52:59.929] } 1579s [00:52:59.929] NAMES <- toupper(added) 1579s [00:52:59.929] for (kk in seq_along(NAMES)) { 1579s [00:52:59.929] name <- added[[kk]] 1579s [00:52:59.929] NAME <- NAMES[[kk]] 1579s [00:52:59.929] if (name != NAME && is.element(NAME, old_names)) 1579s [00:52:59.929] next 1579s [00:52:59.929] args[[name]] <- "" 1579s [00:52:59.929] } 1579s [00:52:59.929] NAMES <- toupper(removed) 1579s [00:52:59.929] for (kk in seq_along(NAMES)) { 1579s [00:52:59.929] name <- removed[[kk]] 1579s [00:52:59.929] NAME <- NAMES[[kk]] 1579s [00:52:59.929] if (name != NAME && is.element(NAME, old_names)) 1579s [00:52:59.929] next 1579s [00:52:59.929] args[[name]] <- ...future.oldEnvVars[[name]] 1579s [00:52:59.929] } 1579s [00:52:59.929] if (length(args) > 0) 1579s [00:52:59.929] base::do.call(base::Sys.setenv, args = args) 1579s [00:52:59.929] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1579s [00:52:59.929] } 1579s [00:52:59.929] else { 1579s [00:52:59.929] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1579s [00:52:59.929] } 1579s [00:52:59.929] { 1579s [00:52:59.929] if (base::length(...future.futureOptionsAdded) > 1579s [00:52:59.929] 0L) { 1579s [00:52:59.929] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1579s [00:52:59.929] base::names(opts) <- ...future.futureOptionsAdded 1579s [00:52:59.929] base::options(opts) 1579s [00:52:59.929] } 1579s [00:52:59.929] { 1579s [00:52:59.929] { 1579s [00:52:59.929] NULL 1579s [00:52:59.929] RNGkind("Mersenne-Twister") 1579s [00:52:59.929] base::rm(list = ".Random.seed", envir = base::globalenv(), 1579s [00:52:59.929] inherits = FALSE) 1579s [00:52:59.929] } 1579s [00:52:59.929] options(future.plan = NULL) 1579s [00:52:59.929] if (is.na(NA_character_)) 1579s [00:52:59.929] Sys.unsetenv("R_FUTURE_PLAN") 1579s [00:52:59.929] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1579s [00:52:59.929] future::plan(list(function (..., workers = availableCores(), 1579s [00:52:59.929] lazy = FALSE, rscript_libs = .libPaths(), 1579s [00:52:59.929] envir = parent.frame()) 1579s [00:52:59.929] { 1579s [00:52:59.929] if (is.function(workers)) 1579s [00:52:59.929] workers <- workers() 1579s [00:52:59.929] workers <- structure(as.integer(workers), 1579s [00:52:59.929] class = class(workers)) 1579s [00:52:59.929] stop_if_not(length(workers) == 1, is.finite(workers), 1579s [00:52:59.929] workers >= 1) 1579s [00:52:59.929] if (workers == 1L && !inherits(workers, "AsIs")) { 1579s [00:52:59.929] return(sequential(..., lazy = TRUE, envir = envir)) 1579s [00:52:59.929] } 1579s [00:52:59.929] future <- MultisessionFuture(..., workers = workers, 1579s [00:52:59.929] lazy = lazy, rscript_libs = rscript_libs, 1579s [00:52:59.929] envir = envir) 1579s [00:52:59.929] if (!future$lazy) 1579s [00:52:59.929] future <- run(future) 1579s [00:52:59.929] invisible(future) 1579s [00:52:59.929] }), .cleanup = FALSE, .init = FALSE) 1579s [00:52:59.929] } 1579s [00:52:59.929] } 1579s [00:52:59.929] } 1579s [00:52:59.929] }) 1579s [00:52:59.929] if (TRUE) { 1579s [00:52:59.929] base::sink(type = "output", split = FALSE) 1579s [00:52:59.929] if (TRUE) { 1579s [00:52:59.929] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1579s [00:52:59.929] } 1579s [00:52:59.929] else { 1579s [00:52:59.929] ...future.result["stdout"] <- base::list(NULL) 1579s [00:52:59.929] } 1579s [00:52:59.929] base::close(...future.stdout) 1579s [00:52:59.929] ...future.stdout <- NULL 1579s [00:52:59.929] } 1579s [00:52:59.929] ...future.result$conditions <- ...future.conditions 1579s [00:52:59.929] ...future.result$finished <- base::Sys.time() 1579s [00:52:59.929] ...future.result 1579s [00:52:59.929] } 1579s [00:52:59.935] assign_globals() ... 1579s [00:52:59.935] List of 5 1579s [00:52:59.935] $ ...future.FUN :function (x, ...) 1579s [00:52:59.935] $ future.call.arguments : list() 1579s [00:52:59.935] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1579s [00:52:59.935] $ ...future.elements_ii :List of 3 1579s [00:52:59.935] ..$ a: num 1 1579s [00:52:59.935] ..$ b: num 2 1579s [00:52:59.935] ..$ c: num 3 1579s [00:52:59.935] $ ...future.seeds_ii : NULL 1579s [00:52:59.935] $ ...future.globals.maxSize: NULL 1579s [00:52:59.935] - attr(*, "where")=List of 5 1579s [00:52:59.935] ..$ ...future.FUN : 1579s [00:52:59.935] ..$ future.call.arguments : 1579s [00:52:59.935] ..$ ...future.elements_ii : 1579s [00:52:59.935] ..$ ...future.seeds_ii : 1579s [00:52:59.935] ..$ ...future.globals.maxSize: 1579s [00:52:59.935] - attr(*, "resolved")= logi FALSE 1579s [00:52:59.935] - attr(*, "total_size")= num 1248 1579s [00:52:59.935] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1579s [00:52:59.935] - attr(*, "already-done")= logi TRUE 1579s [00:52:59.947] - copied ‘...future.FUN’ to environment 1579s [00:52:59.947] - copied ‘future.call.arguments’ to environment 1579s [00:52:59.948] - copied ‘...future.elements_ii’ to environment 1579s [00:52:59.948] - copied ‘...future.seeds_ii’ to environment 1579s [00:52:59.948] - copied ‘...future.globals.maxSize’ to environment 1579s [00:52:59.949] assign_globals() ... done 1579s [00:52:59.949] plan(): Setting new future strategy stack: 1579s [00:52:59.950] List of future strategies: 1579s [00:52:59.950] 1. sequential: 1579s [00:52:59.950] - args: function (..., envir = parent.frame()) 1579s [00:52:59.950] - tweaked: FALSE 1579s [00:52:59.950] - call: NULL 1579s [00:52:59.951] plan(): nbrOfWorkers() = 1 1579s [00:52:59.951] plan(): Setting new future strategy stack: 1579s [00:52:59.952] List of future strategies: 1579s [00:52:59.952] 1. multisession: 1579s [00:52:59.952] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1579s [00:52:59.952] - tweaked: FALSE 1579s [00:52:59.952] - call: plan(strategy) 1579s [00:52:59.956] plan(): nbrOfWorkers() = 1 1579s [00:52:59.956] SequentialFuture started (and completed) 1579s [00:52:59.956] - Launch lazy future ... done 1579s [00:52:59.956] run() for ‘SequentialFuture’ ... done 1579s [00:52:59.956] Created future: 1579s [00:52:59.957] SequentialFuture: 1579s [00:52:59.957] Label: ‘future_sapply-1’ 1579s [00:52:59.957] Expression: 1579s [00:52:59.957] { 1579s [00:52:59.957] do.call(function(...) { 1579s [00:52:59.957] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1579s [00:52:59.957] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1579s [00:52:59.957] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1579s [00:52:59.957] on.exit(options(oopts), add = TRUE) 1579s [00:52:59.957] } 1579s [00:52:59.957] { 1579s [00:52:59.957] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1579s [00:52:59.957] ...future.X_jj <- ...future.elements_ii[[jj]] 1579s [00:52:59.957] ...future.FUN(...future.X_jj, ...) 1579s [00:52:59.957] }) 1579s [00:52:59.957] } 1579s [00:52:59.957] }, args = future.call.arguments) 1579s [00:52:59.957] } 1579s [00:52:59.957] Lazy evaluation: FALSE 1579s [00:52:59.957] Asynchronous evaluation: FALSE 1579s [00:52:59.957] Local evaluation: TRUE 1579s [00:52:59.957] Environment: R_GlobalEnv 1579s [00:52:59.957] Capture standard output: TRUE 1579s [00:52:59.957] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1579s [00:52:59.957] Globals: 5 objects totaling 1.38 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1579s [00:52:59.957] Packages: 1579s [00:52:59.957] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1579s [00:52:59.957] Resolved: TRUE 1579s [00:52:59.957] Value: 672 bytes of class ‘list’ 1579s [00:52:59.957] Early signaling: FALSE 1579s [00:52:59.957] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1579s [00:52:59.957] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1579s [00:52:59.958] Chunk #1 of 1 ... DONE 1579s [00:52:59.959] Launching 1 futures (chunks) ... DONE 1579s [00:52:59.959] Resolving 1 futures (chunks) ... 1579s [00:52:59.959] resolve() on list ... 1579s [00:52:59.959] recursive: 0 1579s [00:52:59.959] length: 1 1579s [00:52:59.959] 1579s [00:52:59.960] resolved() for ‘SequentialFuture’ ... 1579s [00:52:59.960] - state: ‘finished’ 1579s [00:52:59.960] - run: TRUE 1579s [00:52:59.960] - result: ‘FutureResult’ 1579s [00:52:59.961] resolved() for ‘SequentialFuture’ ... done 1579s [00:52:59.961] Future #1 1579s [00:52:59.961] signalConditionsASAP(SequentialFuture, pos=1) ... 1579s [00:52:59.961] - nx: 1 1579s [00:52:59.962] - relay: TRUE 1579s [00:52:59.962] - stdout: TRUE 1579s [00:52:59.962] - signal: TRUE 1579s [00:52:59.962] - resignal: FALSE 1579s [00:52:59.962] - force: TRUE 1579s [00:52:59.963] - relayed: [n=1] FALSE 1579s [00:52:59.963] - queued futures: [n=1] FALSE 1579s [00:52:59.963] - until=1 1579s [00:52:59.963] - relaying element #1 1579s [00:52:59.963] - relayed: [n=1] TRUE 1579s [00:52:59.963] - queued futures: [n=1] TRUE 1579s [00:52:59.964] signalConditionsASAP(SequentialFuture, pos=1) ... done 1579s [00:52:59.964] length: 0 (resolved future 1) 1579s [00:52:59.964] Relaying remaining futures 1579s [00:52:59.964] signalConditionsASAP(NULL, pos=0) ... 1579s [00:52:59.964] - nx: 1 1579s [00:52:59.964] - relay: TRUE 1579s [00:52:59.965] - stdout: TRUE 1579s [00:52:59.965] - signal: TRUE 1579s [00:52:59.965] - resignal: FALSE 1579s [00:52:59.965] - force: TRUE 1579s [00:52:59.965] - relayed: [n=1] TRUE 1579s [00:52:59.965] - queued futures: [n=1] TRUE 1579s - flush all 1579s [00:52:59.965] - relayed: [n=1] TRUE 1579s [00:52:59.966] - queued futures: [n=1] TRUE 1579s [00:52:59.966] signalConditionsASAP(NULL, pos=0) ... done 1579s [00:52:59.966] resolve() on list ... DONE 1579s [00:52:59.966] - Number of value chunks collected: 1 1579s [00:52:59.966] Resolving 1 futures (chunks) ... DONE 1579s [00:52:59.967] Reducing values from 1 chunks ... 1579s [00:52:59.967] - Number of values collected after concatenation: 3 1579s [00:52:59.967] - Number of values expected: 3 1579s [00:52:59.967] Reducing values from 1 chunks ... DONE 1579s [00:52:59.967] future_lapply() ... DONE 1580s List of 2 1580s $ y0:List of 3 1580s ..$ a: num [1, 1] 1 1580s ..$ b: num [1, 1] 2 1580s ..$ c: num [1, 1] 3 1580s $ y1:List of 3 1580s ..$ a: num [1, 1] 1 1580s ..$ b: num [1, 1] 2 1580s ..$ c: num [1, 1] 3 1580s List of 2 1580s $ y0:List of 3 1580s ..$ a: num [1, 1] 1 1580s ..$ b: num [1, 1] 2 1580s ..$ c: num [1, 1] 3 1580s $ y2:List of 3 1580s ..$ a: num [1, 1] 1 1580s ..$ b:[00:52:59.980] future_lapply() ... 1580s num [1, 1] 2 1580s ..$ c: num [1, 1] 3 1580s [00:52:59.984] Number of chunks: 1 1580s [00:52:59.984] getGlobalsAndPackagesXApply() ... 1580s [00:52:59.984] - future.globals: TRUE 1580s [00:52:59.985] getGlobalsAndPackages() ... 1580s [00:52:59.985] Searching for globals... 1580s [00:52:59.987] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1580s [00:52:59.987] Searching for globals ... DONE 1580s [00:52:59.987] Resolving globals: FALSE 1580s [00:52:59.988] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1580s [00:52:59.988] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1580s [00:52:59.989] - globals: [1] ‘FUN’ 1580s [00:52:59.989] 1580s [00:52:59.989] getGlobalsAndPackages() ... DONE 1580s [00:52:59.989] - globals found/used: [n=1] ‘FUN’ 1580s [00:52:59.989] - needed namespaces: [n=0] 1580s [00:52:59.989] Finding globals ... DONE 1580s [00:52:59.990] - use_args: TRUE 1580s [00:52:59.990] - Getting '...' globals ... 1580s [00:52:59.990] resolve() on list ... 1580s [00:52:59.990] recursive: 0 1580s [00:52:59.991] length: 1 1580s [00:52:59.991] elements: ‘...’ 1580s [00:52:59.991] length: 0 (resolved future 1) 1580s [00:52:59.991] resolve() on list ... DONE 1580s [00:52:59.991] - '...' content: [n=0] 1580s [00:52:59.991] List of 1 1580s [00:52:59.991] $ ...: list() 1580s [00:52:59.991] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1580s [00:52:59.991] - attr(*, "where")=List of 1 1580s [00:52:59.991] ..$ ...: 1580s [00:52:59.991] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1580s [00:52:59.991] - attr(*, "resolved")= logi TRUE 1580s [00:52:59.991] - attr(*, "total_size")= num NA 1580s [00:52:59.995] - Getting '...' globals ... DONE 1580s [00:52:59.996] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1580s [00:52:59.996] List of 2 1580s [00:52:59.996] $ ...future.FUN:function (x, y = 2 * 1:5) 1580s [00:52:59.996] $ ... : list() 1580s [00:52:59.996] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1580s [00:52:59.996] - attr(*, "where")=List of 2 1580s [00:52:59.996] ..$ ...future.FUN: 1580s [00:52:59.996] ..$ ... : 1580s [00:52:59.996] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1580s [00:52:59.996] - attr(*, "resolved")= logi FALSE 1580s [00:52:59.996] - attr(*, "total_size")= num 4728 1580s [00:53:00.001] Packages to be attached in all futures: [n=0] 1580s [00:53:00.002] getGlobalsAndPackagesXApply() ... DONE 1580s [00:53:00.002] Number of futures (= number of chunks): 1 1580s [00:53:00.002] Launching 1 futures (chunks) ... 1580s [00:53:00.002] Chunk #1 of 1 ... 1580s [00:53:00.002] - Finding globals in 'X' for chunk #1 ... 1580s [00:53:00.002] getGlobalsAndPackages() ... 1580s [00:53:00.003] Searching for globals... 1580s [00:53:00.003] 1580s [00:53:00.003] Searching for globals ... DONE 1580s [00:53:00.003] - globals: [0] 1580s [00:53:00.003] getGlobalsAndPackages() ... DONE 1580s [00:53:00.004] + additional globals found: [n=0] 1580s [00:53:00.004] + additional namespaces needed: [n=0] 1580s [00:53:00.004] - Finding globals in 'X' for chunk #1 ... DONE 1580s [00:53:00.004] - seeds: 1580s [00:53:00.004] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1580s [00:53:00.004] getGlobalsAndPackages() ... 1580s [00:53:00.004] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1580s [00:53:00.005] Resolving globals: FALSE 1580s [00:53:00.005] Tweak future expression to call with '...' arguments ... 1580s [00:53:00.005] { 1580s [00:53:00.005] do.call(function(...) { 1580s [00:53:00.005] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1580s [00:53:00.005] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1580s [00:53:00.005] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1580s [00:53:00.005] on.exit(options(oopts), add = TRUE) 1580s [00:53:00.005] } 1580s [00:53:00.005] { 1580s [00:53:00.005] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1580s [00:53:00.005] ...future.X_jj <- ...future.elements_ii[[jj]] 1580s [00:53:00.005] ...future.FUN(...future.X_jj, ...) 1580s [00:53:00.005] }) 1580s [00:53:00.005] } 1580s [00:53:00.005] }, args = future.call.arguments) 1580s [00:53:00.005] } 1580s [00:53:00.006] Tweak future expression to call with '...' arguments ... DONE 1580s [00:53:00.006] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1580s [00:53:00.006] 1580s [00:53:00.006] getGlobalsAndPackages() ... DONE 1580s [00:53:00.007] run() for ‘Future’ ... 1580s [00:53:00.007] - state: ‘created’ 1580s [00:53:00.007] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1580s [00:53:00.011] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1580s [00:53:00.012] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1580s [00:53:00.012] - Field: ‘label’ 1580s [00:53:00.013] - Field: ‘local’ 1580s [00:53:00.014] - Field: ‘owner’ 1580s [00:53:00.014] - Field: ‘envir’ 1580s [00:53:00.014] - Field: ‘packages’ 1580s [00:53:00.014] - Field: ‘gc’ 1580s [00:53:00.014] - Field: ‘conditions’ 1580s [00:53:00.014] - Field: ‘expr’ 1580s [00:53:00.015] - Field: ‘uuid’ 1580s [00:53:00.015] - Field: ‘seed’ 1580s [00:53:00.015] - Field: ‘version’ 1580s [00:53:00.015] - Field: ‘result’ 1580s [00:53:00.016] - Field: ‘asynchronous’ 1580s [00:53:00.016] - Field: ‘calls’ 1580s [00:53:00.016] - Field: ‘globals’ 1580s [00:53:00.016] - Field: ‘stdout’ 1580s [00:53:00.016] - Field: ‘earlySignal’ 1580s [00:53:00.016] - Field: ‘lazy’ 1580s [00:53:00.017] - Field: ‘state’ 1580s [00:53:00.017] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1580s [00:53:00.017] - Launch lazy future ... 1580s [00:53:00.017] Packages needed by the future expression (n = 0): 1580s [00:53:00.018] Packages needed by future strategies (n = 0): 1580s [00:53:00.018] { 1580s [00:53:00.018] { 1580s [00:53:00.018] { 1580s [00:53:00.018] ...future.startTime <- base::Sys.time() 1580s [00:53:00.018] { 1580s [00:53:00.018] { 1580s [00:53:00.018] { 1580s [00:53:00.018] base::local({ 1580s [00:53:00.018] has_future <- base::requireNamespace("future", 1580s [00:53:00.018] quietly = TRUE) 1580s [00:53:00.018] if (has_future) { 1580s [00:53:00.018] ns <- base::getNamespace("future") 1580s [00:53:00.018] version <- ns[[".package"]][["version"]] 1580s [00:53:00.018] if (is.null(version)) 1580s [00:53:00.018] version <- utils::packageVersion("future") 1580s [00:53:00.018] } 1580s [00:53:00.018] else { 1580s [00:53:00.018] version <- NULL 1580s [00:53:00.018] } 1580s [00:53:00.018] if (!has_future || version < "1.8.0") { 1580s [00:53:00.018] info <- base::c(r_version = base::gsub("R version ", 1580s [00:53:00.018] "", base::R.version$version.string), 1580s [00:53:00.018] platform = base::sprintf("%s (%s-bit)", 1580s [00:53:00.018] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1580s [00:53:00.018] os = base::paste(base::Sys.info()[base::c("sysname", 1580s [00:53:00.018] "release", "version")], collapse = " "), 1580s [00:53:00.018] hostname = base::Sys.info()[["nodename"]]) 1580s [00:53:00.018] info <- base::sprintf("%s: %s", base::names(info), 1580s [00:53:00.018] info) 1580s [00:53:00.018] info <- base::paste(info, collapse = "; ") 1580s [00:53:00.018] if (!has_future) { 1580s [00:53:00.018] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1580s [00:53:00.018] info) 1580s [00:53:00.018] } 1580s [00:53:00.018] else { 1580s [00:53:00.018] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1580s [00:53:00.018] info, version) 1580s [00:53:00.018] } 1580s [00:53:00.018] base::stop(msg) 1580s [00:53:00.018] } 1580s [00:53:00.018] }) 1580s [00:53:00.018] } 1580s [00:53:00.018] options(future.plan = NULL) 1580s [00:53:00.018] Sys.unsetenv("R_FUTURE_PLAN") 1580s [00:53:00.018] future::plan("default", .cleanup = FALSE, .init = FALSE) 1580s [00:53:00.018] } 1580s [00:53:00.018] ...future.workdir <- getwd() 1580s [00:53:00.018] } 1580s [00:53:00.018] ...future.oldOptions <- base::as.list(base::.Options) 1580s [00:53:00.018] ...future.oldEnvVars <- base::Sys.getenv() 1580s [00:53:00.018] } 1580s [00:53:00.018] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1580s [00:53:00.018] future.globals.maxSize = NULL, future.globals.method = NULL, 1580s [00:53:00.018] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1580s [00:53:00.018] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1580s [00:53:00.018] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1580s [00:53:00.018] future.stdout.windows.reencode = NULL, width = 80L) 1580s [00:53:00.018] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1580s [00:53:00.018] base::names(...future.oldOptions)) 1580s [00:53:00.018] } 1580s [00:53:00.018] if (FALSE) { 1580s [00:53:00.018] } 1580s [00:53:00.018] else { 1580s [00:53:00.018] if (TRUE) { 1580s [00:53:00.018] ...future.stdout <- base::rawConnection(base::raw(0L), 1580s [00:53:00.018] open = "w") 1580s [00:53:00.018] } 1580s [00:53:00.018] else { 1580s [00:53:00.018] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1580s [00:53:00.018] windows = "NUL", "/dev/null"), open = "w") 1580s [00:53:00.018] } 1580s [00:53:00.018] base::sink(...future.stdout, type = "output", split = FALSE) 1580s [00:53:00.018] base::on.exit(if (!base::is.null(...future.stdout)) { 1580s [00:53:00.018] base::sink(type = "output", split = FALSE) 1580s [00:53:00.018] base::close(...future.stdout) 1580s [00:53:00.018] }, add = TRUE) 1580s [00:53:00.018] } 1580s [00:53:00.018] ...future.frame <- base::sys.nframe() 1580s [00:53:00.018] ...future.conditions <- base::list() 1580s [00:53:00.018] ...future.rng <- base::globalenv()$.Random.seed 1580s [00:53:00.018] if (FALSE) { 1580s [00:53:00.018] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1580s [00:53:00.018] "...future.value", "...future.globalenv.names", ".Random.seed") 1580s [00:53:00.018] } 1580s [00:53:00.018] ...future.result <- base::tryCatch({ 1580s [00:53:00.018] base::withCallingHandlers({ 1580s [00:53:00.018] ...future.value <- base::withVisible(base::local({ 1580s [00:53:00.018] do.call(function(...) { 1580s [00:53:00.018] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1580s [00:53:00.018] if (!identical(...future.globals.maxSize.org, 1580s [00:53:00.018] ...future.globals.maxSize)) { 1580s [00:53:00.018] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1580s [00:53:00.018] on.exit(options(oopts), add = TRUE) 1580s [00:53:00.018] } 1580s [00:53:00.018] { 1580s [00:53:00.018] lapply(seq_along(...future.elements_ii), 1580s [00:53:00.018] FUN = function(jj) { 1580s [00:53:00.018] ...future.X_jj <- ...future.elements_ii[[jj]] 1580s [00:53:00.018] ...future.FUN(...future.X_jj, ...) 1580s [00:53:00.018] }) 1580s [00:53:00.018] } 1580s [00:53:00.018] }, args = future.call.arguments) 1580s [00:53:00.018] })) 1580s [00:53:00.018] future::FutureResult(value = ...future.value$value, 1580s [00:53:00.018] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1580s [00:53:00.018] ...future.rng), globalenv = if (FALSE) 1580s [00:53:00.018] list(added = base::setdiff(base::names(base::.GlobalEnv), 1580s [00:53:00.018] ...future.globalenv.names)) 1580s [00:53:00.018] else NULL, started = ...future.startTime, version = "1.8") 1580s [00:53:00.018] }, condition = base::local({ 1580s [00:53:00.018] c <- base::c 1580s [00:53:00.018] inherits <- base::inherits 1580s [00:53:00.018] invokeRestart <- base::invokeRestart 1580s [00:53:00.018] length <- base::length 1580s [00:53:00.018] list <- base::list 1580s [00:53:00.018] seq.int <- base::seq.int 1580s [00:53:00.018] signalCondition <- base::signalCondition 1580s [00:53:00.018] sys.calls <- base::sys.calls 1580s [00:53:00.018] `[[` <- base::`[[` 1580s [00:53:00.018] `+` <- base::`+` 1580s [00:53:00.018] `<<-` <- base::`<<-` 1580s [00:53:00.018] sysCalls <- function(calls = sys.calls(), from = 1L) { 1580s [00:53:00.018] calls[seq.int(from = from + 12L, to = length(calls) - 1580s [00:53:00.018] 3L)] 1580s [00:53:00.018] } 1580s [00:53:00.018] function(cond) { 1580s [00:53:00.018] is_error <- inherits(cond, "error") 1580s [00:53:00.018] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1580s [00:53:00.018] NULL) 1580s [00:53:00.018] if (is_error) { 1580s [00:53:00.018] sessionInformation <- function() { 1580s [00:53:00.018] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1580s [00:53:00.018] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1580s [00:53:00.018] search = base::search(), system = base::Sys.info()) 1580s [00:53:00.018] } 1580s [00:53:00.018] ...future.conditions[[length(...future.conditions) + 1580s [00:53:00.018] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1580s [00:53:00.018] cond$call), session = sessionInformation(), 1580s [00:53:00.018] timestamp = base::Sys.time(), signaled = 0L) 1580s [00:53:00.018] signalCondition(cond) 1580s [00:53:00.018] } 1580s [00:53:00.018] else if (!ignore && TRUE && inherits(cond, c("condition", 1580s [00:53:00.018] "immediateCondition"))) { 1580s [00:53:00.018] signal <- TRUE && inherits(cond, "immediateCondition") 1580s [00:53:00.018] ...future.conditions[[length(...future.conditions) + 1580s [00:53:00.018] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1580s [00:53:00.018] if (TRUE && !signal) { 1580s [00:53:00.018] muffleCondition <- function (cond, pattern = "^muffle") 1580s [00:53:00.018] { 1580s [00:53:00.018] inherits <- base::inherits 1580s [00:53:00.018] invokeRestart <- base::invokeRestart 1580s [00:53:00.018] is.null <- base::is.null 1580s [00:53:00.018] muffled <- FALSE 1580s [00:53:00.018] if (inherits(cond, "message")) { 1580s [00:53:00.018] muffled <- grepl(pattern, "muffleMessage") 1580s [00:53:00.018] if (muffled) 1580s [00:53:00.018] invokeRestart("muffleMessage") 1580s [00:53:00.018] } 1580s [00:53:00.018] else if (inherits(cond, "warning")) { 1580s [00:53:00.018] muffled <- grepl(pattern, "muffleWarning") 1580s [00:53:00.018] if (muffled) 1580s [00:53:00.018] invokeRestart("muffleWarning") 1580s [00:53:00.018] } 1580s [00:53:00.018] else if (inherits(cond, "condition")) { 1580s [00:53:00.018] if (!is.null(pattern)) { 1580s [00:53:00.018] computeRestarts <- base::computeRestarts 1580s [00:53:00.018] grepl <- base::grepl 1580s [00:53:00.018] restarts <- computeRestarts(cond) 1580s [00:53:00.018] for (restart in restarts) { 1580s [00:53:00.018] name <- restart$name 1580s [00:53:00.018] if (is.null(name)) 1580s [00:53:00.018] next 1580s [00:53:00.018] if (!grepl(pattern, name)) 1580s [00:53:00.018] next 1580s [00:53:00.018] invokeRestart(restart) 1580s [00:53:00.018] muffled <- TRUE 1580s [00:53:00.018] break 1580s [00:53:00.018] } 1580s [00:53:00.018] } 1580s [00:53:00.018] } 1580s [00:53:00.018] invisible(muffled) 1580s [00:53:00.018] } 1580s [00:53:00.018] muffleCondition(cond, pattern = "^muffle") 1580s [00:53:00.018] } 1580s [00:53:00.018] } 1580s [00:53:00.018] else { 1580s [00:53:00.018] if (TRUE) { 1580s [00:53:00.018] muffleCondition <- function (cond, pattern = "^muffle") 1580s [00:53:00.018] { 1580s [00:53:00.018] inherits <- base::inherits 1580s [00:53:00.018] invokeRestart <- base::invokeRestart 1580s [00:53:00.018] is.null <- base::is.null 1580s [00:53:00.018] muffled <- FALSE 1580s [00:53:00.018] if (inherits(cond, "message")) { 1580s [00:53:00.018] muffled <- grepl(pattern, "muffleMessage") 1580s [00:53:00.018] if (muffled) 1580s [00:53:00.018] invokeRestart("muffleMessage") 1580s [00:53:00.018] } 1580s [00:53:00.018] else if (inherits(cond, "warning")) { 1580s [00:53:00.018] muffled <- grepl(pattern, "muffleWarning") 1580s [00:53:00.018] if (muffled) 1580s [00:53:00.018] invokeRestart("muffleWarning") 1580s [00:53:00.018] } 1580s [00:53:00.018] else if (inherits(cond, "condition")) { 1580s [00:53:00.018] if (!is.null(pattern)) { 1580s [00:53:00.018] computeRestarts <- base::computeRestarts 1580s [00:53:00.018] grepl <- base::grepl 1580s [00:53:00.018] restarts <- computeRestarts(cond) 1580s [00:53:00.018] for (restart in restarts) { 1580s [00:53:00.018] name <- restart$name 1580s [00:53:00.018] if (is.null(name)) 1580s [00:53:00.018] next 1580s [00:53:00.018] if (!grepl(pattern, name)) 1580s [00:53:00.018] next 1580s [00:53:00.018] invokeRestart(restart) 1580s [00:53:00.018] muffled <- TRUE 1580s [00:53:00.018] break 1580s [00:53:00.018] } 1580s [00:53:00.018] } 1580s [00:53:00.018] } 1580s [00:53:00.018] invisible(muffled) 1580s [00:53:00.018] } 1580s [00:53:00.018] muffleCondition(cond, pattern = "^muffle") 1580s [00:53:00.018] } 1580s [00:53:00.018] } 1580s [00:53:00.018] } 1580s [00:53:00.018] })) 1580s [00:53:00.018] }, error = function(ex) { 1580s [00:53:00.018] base::structure(base::list(value = NULL, visible = NULL, 1580s [00:53:00.018] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1580s [00:53:00.018] ...future.rng), started = ...future.startTime, 1580s [00:53:00.018] finished = Sys.time(), session_uuid = NA_character_, 1580s [00:53:00.018] version = "1.8"), class = "FutureResult") 1580s [00:53:00.018] }, finally = { 1580s [00:53:00.018] if (!identical(...future.workdir, getwd())) 1580s [00:53:00.018] setwd(...future.workdir) 1580s [00:53:00.018] { 1580s [00:53:00.018] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1580s [00:53:00.018] ...future.oldOptions$nwarnings <- NULL 1580s [00:53:00.018] } 1580s [00:53:00.018] base::options(...future.oldOptions) 1580s [00:53:00.018] if (.Platform$OS.type == "windows") { 1580s [00:53:00.018] old_names <- names(...future.oldEnvVars) 1580s [00:53:00.018] envs <- base::Sys.getenv() 1580s [00:53:00.018] names <- names(envs) 1580s [00:53:00.018] common <- intersect(names, old_names) 1580s [00:53:00.018] added <- setdiff(names, old_names) 1580s [00:53:00.018] removed <- setdiff(old_names, names) 1580s [00:53:00.018] changed <- common[...future.oldEnvVars[common] != 1580s [00:53:00.018] envs[common]] 1580s [00:53:00.018] NAMES <- toupper(changed) 1580s [00:53:00.018] args <- list() 1580s [00:53:00.018] for (kk in seq_along(NAMES)) { 1580s [00:53:00.018] name <- changed[[kk]] 1580s [00:53:00.018] NAME <- NAMES[[kk]] 1580s [00:53:00.018] if (name != NAME && is.element(NAME, old_names)) 1580s [00:53:00.018] next 1580s [00:53:00.018] args[[name]] <- ...future.oldEnvVars[[name]] 1580s [00:53:00.018] } 1580s [00:53:00.018] NAMES <- toupper(added) 1580s [00:53:00.018] for (kk in seq_along(NAMES)) { 1580s [00:53:00.018] name <- added[[kk]] 1580s [00:53:00.018] NAME <- NAMES[[kk]] 1580s [00:53:00.018] if (name != NAME && is.element(NAME, old_names)) 1580s [00:53:00.018] next 1580s [00:53:00.018] args[[name]] <- "" 1580s [00:53:00.018] } 1580s [00:53:00.018] NAMES <- toupper(removed) 1580s [00:53:00.018] for (kk in seq_along(NAMES)) { 1580s [00:53:00.018] name <- removed[[kk]] 1580s [00:53:00.018] NAME <- NAMES[[kk]] 1580s [00:53:00.018] if (name != NAME && is.element(NAME, old_names)) 1580s [00:53:00.018] next 1580s [00:53:00.018] args[[name]] <- ...future.oldEnvVars[[name]] 1580s [00:53:00.018] } 1580s [00:53:00.018] if (length(args) > 0) 1580s [00:53:00.018] base::do.call(base::Sys.setenv, args = args) 1580s [00:53:00.018] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1580s [00:53:00.018] } 1580s [00:53:00.018] else { 1580s [00:53:00.018] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1580s [00:53:00.018] } 1580s [00:53:00.018] { 1580s [00:53:00.018] if (base::length(...future.futureOptionsAdded) > 1580s [00:53:00.018] 0L) { 1580s [00:53:00.018] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1580s [00:53:00.018] base::names(opts) <- ...future.futureOptionsAdded 1580s [00:53:00.018] base::options(opts) 1580s [00:53:00.018] } 1580s [00:53:00.018] { 1580s [00:53:00.018] { 1580s [00:53:00.018] NULL 1580s [00:53:00.018] RNGkind("Mersenne-Twister") 1580s [00:53:00.018] base::rm(list = ".Random.seed", envir = base::globalenv(), 1580s [00:53:00.018] inherits = FALSE) 1580s [00:53:00.018] } 1580s [00:53:00.018] options(future.plan = NULL) 1580s [00:53:00.018] if (is.na(NA_character_)) 1580s [00:53:00.018] Sys.unsetenv("R_FUTURE_PLAN") 1580s [00:53:00.018] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1580s [00:53:00.018] future::plan(list(function (..., workers = availableCores(), 1580s [00:53:00.018] lazy = FALSE, rscript_libs = .libPaths(), 1580s [00:53:00.018] envir = parent.frame()) 1580s [00:53:00.018] { 1580s [00:53:00.018] if (is.function(workers)) 1580s [00:53:00.018] workers <- workers() 1580s [00:53:00.018] workers <- structure(as.integer(workers), 1580s [00:53:00.018] class = class(workers)) 1580s [00:53:00.018] stop_if_not(length(workers) == 1, is.finite(workers), 1580s [00:53:00.018] workers >= 1) 1580s [00:53:00.018] if (workers == 1L && !inherits(workers, "AsIs")) { 1580s [00:53:00.018] return(sequential(..., lazy = TRUE, envir = envir)) 1580s [00:53:00.018] } 1580s [00:53:00.018] future <- MultisessionFuture(..., workers = workers, 1580s [00:53:00.018] lazy = lazy, rscript_libs = rscript_libs, 1580s [00:53:00.018] envir = envir) 1580s [00:53:00.018] if (!future$lazy) 1580s [00:53:00.018] future <- run(future) 1580s [00:53:00.018] invisible(future) 1580s [00:53:00.018] }), .cleanup = FALSE, .init = FALSE) 1580s [00:53:00.018] } 1580s [00:53:00.018] } 1580s [00:53:00.018] } 1580s [00:53:00.018] }) 1580s [00:53:00.018] if (TRUE) { 1580s [00:53:00.018] base::sink(type = "output", split = FALSE) 1580s [00:53:00.018] if (TRUE) { 1580s [00:53:00.018] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1580s [00:53:00.018] } 1580s [00:53:00.018] else { 1580s [00:53:00.018] ...future.result["stdout"] <- base::list(NULL) 1580s [00:53:00.018] } 1580s [00:53:00.018] base::close(...future.stdout) 1580s [00:53:00.018] ...future.stdout <- NULL 1580s [00:53:00.018] } 1580s [00:53:00.018] ...future.result$conditions <- ...future.conditions 1580s [00:53:00.018] ...future.result$finished <- base::Sys.time() 1580s [00:53:00.018] ...future.result 1580s [00:53:00.018] } 1580s [00:53:00.028] assign_globals() ... 1580s [00:53:00.028] List of 5 1580s [00:53:00.028] $ ...future.FUN :function (x, y = 2 * 1:5) 1580s [00:53:00.028] $ future.call.arguments : list() 1580s [00:53:00.028] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1580s [00:53:00.028] $ ...future.elements_ii :List of 3 1580s [00:53:00.028] ..$ a: num 1 1580s [00:53:00.028] ..$ b: num 2 1580s [00:53:00.028] ..$ c: num 3 1580s [00:53:00.028] $ ...future.seeds_ii : NULL 1580s [00:53:00.028] $ ...future.globals.maxSize: NULL 1580s [00:53:00.028] - attr(*, "where")=List of 5 1580s [00:53:00.028] ..$ ...future.FUN : 1580s [00:53:00.028] ..$ future.call.arguments : 1580s [00:53:00.028] ..$ ...future.elements_ii : 1580s [00:53:00.028] ..$ ...future.seeds_ii : 1580s [00:53:00.028] ..$ ...future.globals.maxSize: 1580s [00:53:00.028] - attr(*, "resolved")= logi FALSE 1580s [00:53:00.028] - attr(*, "total_size")= num 4728 1580s [00:53:00.028] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1580s [00:53:00.028] - attr(*, "already-done")= logi TRUE 1580s [00:53:00.046] - reassign environment for ‘...future.FUN’ 1580s [00:53:00.047] - copied ‘...future.FUN’ to environment 1580s [00:53:00.047] - copied ‘future.call.arguments’ to environment 1580s [00:53:00.047] - copied ‘...future.elements_ii’ to environment 1580s [00:53:00.047] - copied ‘...future.seeds_ii’ to environment 1580s [00:53:00.050] - copied ‘...future.globals.maxSize’ to environment 1580s [00:53:00.050] assign_globals() ... done 1580s [00:53:00.050] plan(): Setting new future strategy stack: 1580s [00:53:00.051] List of future strategies: 1580s [00:53:00.051] 1. sequential: 1580s [00:53:00.051] - args: function (..., envir = parent.frame()) 1580s [00:53:00.051] - tweaked: FALSE 1580s [00:53:00.051] - call: NULL 1580s [00:53:00.051] plan(): nbrOfWorkers() = 1 1580s [00:53:00.052] plan(): Setting new future strategy stack: 1580s [00:53:00.052] List of future strategies: 1580s [00:53:00.052] 1. multisession: 1580s [00:53:00.052] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1580s [00:53:00.052] - tweaked: FALSE 1580s [00:53:00.052] - call: plan(strategy) 1580s [00:53:00.057] plan(): nbrOfWorkers() = 1 1580s [00:53:00.057] SequentialFuture started (and completed) 1580s [00:53:00.058] - Launch lazy future ... done 1580s [00:53:00.058] run() for ‘SequentialFuture’ ... done 1580s [00:53:00.058] Created future: 1580s [00:53:00.058] SequentialFuture: 1580s [00:53:00.058] Label: ‘future_sapply-1’ 1580s [00:53:00.058] Expression: 1580s [00:53:00.058] { 1580s [00:53:00.058] do.call(function(...) { 1580s [00:53:00.058] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1580s [00:53:00.058] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1580s [00:53:00.058] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1580s [00:53:00.058] on.exit(options(oopts), add = TRUE) 1580s [00:53:00.058] } 1580s [00:53:00.058] { 1580s [00:53:00.058] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1580s [00:53:00.058] ...future.X_jj <- ...future.elements_ii[[jj]] 1580s [00:53:00.058] ...future.FUN(...future.X_jj, ...) 1580s [00:53:00.058] }) 1580s [00:53:00.058] } 1580s [00:53:00.058] }, args = future.call.arguments) 1580s [00:53:00.058] } 1580s [00:53:00.058] Lazy evaluation: FALSE 1580s [00:53:00.058] Asynchronous evaluation: FALSE 1580s [00:53:00.058] Local evaluation: TRUE 1580s [00:53:00.058] Environment: R_GlobalEnv 1580s [00:53:00.058] Capture standard output: TRUE 1580s [00:53:00.058] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1580s [00:53:00.058] Globals: 5 objects totaling 4.78 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1580s [00:53:00.058] Packages: 1580s [00:53:00.058] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1580s [00:53:00.058] Resolved: TRUE 1580s [00:53:00.058] Value: 1.01 KiB of class ‘list’ 1580s [00:53:00.058] Early signaling: FALSE 1580s [00:53:00.058] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1580s [00:53:00.058] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1580s [00:53:00.060] Chunk #1 of 1 ... DONE 1580s [00:53:00.060] Launching 1 futures (chunks) ... DONE 1580s [00:53:00.060] Resolving 1 futures (chunks) ... 1580s [00:53:00.061] resolve() on list ... 1580s [00:53:00.061] recursive: 0 1580s [00:53:00.061] length: 1 1580s [00:53:00.061] 1580s [00:53:00.061] resolved() for ‘SequentialFuture’ ... 1580s [00:53:00.061] - state: ‘finished’ 1580s [00:53:00.062] - run: TRUE 1580s [00:53:00.062] - result: ‘FutureResult’ 1580s [00:53:00.062] resolved() for ‘SequentialFuture’ ... done 1580s [00:53:00.062] Future #1 1580s [00:53:00.062] signalConditionsASAP(SequentialFuture, pos=1) ... 1580s [00:53:00.063] - nx: 1 1580s [00:53:00.063] - relay: TRUE 1580s [00:53:00.063] - stdout: TRUE 1580s [00:53:00.063] - signal: TRUE 1580s [00:53:00.063] - resignal: FALSE 1580s [00:53:00.063] - force: TRUE 1580s [00:53:00.063] - relayed: [n=1] FALSE 1580s [00:53:00.064] - queued futures: [n=1] FALSE 1580s [00:53:00.064] - until=1 1580s [00:53:00.064] - relaying element #1 1580s [00:53:00.064] - relayed: [n=1] TRUE 1580s [00:53:00.064] - queued futures: [n=1] TRUE 1580s [00:53:00.064] signalConditionsASAP(SequentialFuture, pos=1) ... done 1580s [00:53:00.065] length: 0 (resolved future 1) 1580s [00:53:00.065] Relaying remaining futures 1580s [00:53:00.065] signalConditionsASAP(NULL, pos=0) ... 1580s [00:53:00.065] - nx: 1 1580s [00:53:00.065] - relay: TRUE 1580s [00:53:00.065] - stdout: TRUE 1580s [00:53:00.066] - signal: TRUE 1580s [00:53:00.066] - resignal: FALSE 1580s [00:53:00.066] - force: TRUE 1580s [00:53:00.067] - relayed: [n=1] TRUE 1580s [00:53:00.067] - queued futures: [n=1] TRUE 1580s - flush all 1580s [00:53:00.067] - relayed: [n=1] TRUE 1580s [00:53:00.067] - queued futures: [n=1] TRUE 1580s [00:53:00.067] signalConditionsASAP(NULL, pos=0) ... done 1580s [00:53:00.067] resolve() on list ... DONE 1580s [00:53:00.068] - Number of value chunks collected: 1 1580s [00:53:00.068] Resolving 1 futures (chunks) ... DONE 1580s [00:53:00.068] Reducing values from 1 chunks ... 1580s [00:53:00.068] - Number of values collected after concatenation: 3 1580s [00:53:00.068] - Number of values expected: 3 1580s [00:53:00.068] Reducing values from 1 chunks ... DONE 1580s [00:53:00.068] future_lapply() ... DONE 1580s List of 2 1580s $ y0:List of 3 1580s ..$ a: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1580s ..$ b: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1580s ..$ c: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1580s $ y1:List of 3 1580s ..$ a: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1580s ..$ b: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1580s ..$ c: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1580s List of 2 1580s $ y0:List of 3 1580s ..$ a: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1580s ..$ b: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1580s ..$ c: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1580s $ y2:List of 3 1580s ..$ a: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1580s ..$ b: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1580s ..$ c: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1580s [00:53:00.080] future_lapply() ... 1580s [00:53:00.084] Number of chunks: 1 1580s [00:53:00.084] getGlobalsAndPackagesXApply() ... 1580s [00:53:00.085] - future.globals: TRUE 1580s [00:53:00.085] getGlobalsAndPackages() ... 1580s [00:53:00.085] Searching for globals... 1580s [00:53:00.091] - globals found: [1] ‘FUN’ 1580s [00:53:00.091] Searching for globals ... DONE 1580s [00:53:00.092] Resolving globals: FALSE 1580s [00:53:00.094] The total size of the 1 globals is 848 bytes (848 bytes) 1580s [00:53:00.095] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1580s [00:53:00.096] - globals: [1] ‘FUN’ 1580s [00:53:00.097] 1580s [00:53:00.097] getGlobalsAndPackages() ... DONE 1580s [00:53:00.098] - globals found/used: [n=1] ‘FUN’ 1580s [00:53:00.099] - needed namespaces: [n=0] 1580s [00:53:00.099] Finding globals ... DONE 1580s [00:53:00.101] - use_args: TRUE 1580s [00:53:00.102] - Getting '...' globals ... 1580s [00:53:00.103] resolve() on list ... 1580s [00:53:00.103] recursive: 0 1580s [00:53:00.104] length: 1 1580s [00:53:00.104] elements: ‘...’ 1580s [00:53:00.105] length: 0 (resolved future 1) 1580s [00:53:00.105] resolve() on list ... DONE 1580s [00:53:00.105] - '...' content: [n=0] 1580s [00:53:00.106] List of 1 1580s [00:53:00.106] $ ...: list() 1580s [00:53:00.106] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1580s [00:53:00.106] - attr(*, "where")=List of 1 1580s [00:53:00.106] ..$ ...: 1580s [00:53:00.106] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1580s [00:53:00.106] - attr(*, "resolved")= logi TRUE 1580s [00:53:00.106] - attr(*, "total_size")= num NA 1580s [00:53:00.113] - Getting '...' globals ... DONE 1580s [00:53:00.114] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1580s [00:53:00.114] List of 2 1580s [00:53:00.114] $ ...future.FUN:function (x) 1580s [00:53:00.114] $ ... : list() 1580s [00:53:00.114] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1580s [00:53:00.114] - attr(*, "where")=List of 2 1580s [00:53:00.114] ..$ ...future.FUN: 1580s [00:53:00.114] ..$ ... : 1580s [00:53:00.114] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1580s [00:53:00.114] - attr(*, "resolved")= logi FALSE 1580s [00:53:00.114] - attr(*, "total_size")= num 848 1580s [00:53:00.122] Packages to be attached in all futures: [n=0] 1580s [00:53:00.123] getGlobalsAndPackagesXApply() ... DONE 1580s [00:53:00.123] Number of futures (= number of chunks): 1 1580s [00:53:00.124] Launching 1 futures (chunks) ... 1580s [00:53:00.124] Chunk #1 of 1 ... 1580s [00:53:00.125] - Finding globals in 'X' for chunk #1 ... 1580s [00:53:00.125] getGlobalsAndPackages() ... 1580s [00:53:00.126] Searching for globals... 1580s [00:53:00.127] 1580s [00:53:00.127] Searching for globals ... DONE 1580s [00:53:00.127] - globals: [0] 1580s [00:53:00.128] getGlobalsAndPackages() ... DONE 1580s [00:53:00.128] + additional globals found: [n=0] 1580s [00:53:00.129] + additional namespaces needed: [n=0] 1580s [00:53:00.129] - Finding globals in 'X' for chunk #1 ... DONE 1580s [00:53:00.130] - seeds: 1580s [00:53:00.130] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1580s [00:53:00.130] getGlobalsAndPackages() ... 1580s [00:53:00.131] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1580s [00:53:00.131] Resolving globals: FALSE 1580s [00:53:00.132] Tweak future expression to call with '...' arguments ... 1580s [00:53:00.132] { 1580s [00:53:00.132] do.call(function(...) { 1580s [00:53:00.132] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1580s [00:53:00.132] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1580s [00:53:00.132] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1580s [00:53:00.132] on.exit(options(oopts), add = TRUE) 1580s [00:53:00.132] } 1580s [00:53:00.132] { 1580s [00:53:00.132] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1580s [00:53:00.132] ...future.X_jj <- ...future.elements_ii[[jj]] 1580s [00:53:00.132] ...future.FUN(...future.X_jj, ...) 1580s [00:53:00.132] }) 1580s [00:53:00.132] } 1580s [00:53:00.132] }, args = future.call.arguments) 1580s [00:53:00.132] } 1580s [00:53:00.133] Tweak future expression to call with '...' arguments ... DONE 1580s [00:53:00.134] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1580s [00:53:00.134] 1580s [00:53:00.134] getGlobalsAndPackages() ... DONE 1580s [00:53:00.135] run() for ‘Future’ ... 1580s [00:53:00.135] - state: ‘created’ 1580s [00:53:00.135] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1580s [00:53:00.140] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1580s [00:53:00.140] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1580s [00:53:00.141] - Field: ‘label’ 1580s [00:53:00.141] - Field: ‘local’ 1580s [00:53:00.141] - Field: ‘owner’ 1580s [00:53:00.141] - Field: ‘envir’ 1580s [00:53:00.141] - Field: ‘packages’ 1580s [00:53:00.141] - Field: ‘gc’ 1580s [00:53:00.142] - Field: ‘conditions’ 1580s [00:53:00.142] - Field: ‘expr’ 1580s [00:53:00.142] - Field: ‘uuid’ 1580s [00:53:00.142] - Field: ‘seed’ 1580s [00:53:00.142] - Field: ‘version’ 1580s [00:53:00.142] - Field: ‘result’ 1580s [00:53:00.143] - Field: ‘asynchronous’ 1580s [00:53:00.143] - Field: ‘calls’ 1580s [00:53:00.143] - Field: ‘globals’ 1580s [00:53:00.143] - Field: ‘stdout’ 1580s [00:53:00.143] - Field: ‘earlySignal’ 1580s [00:53:00.144] - Field: ‘lazy’ 1580s [00:53:00.144] - Field: ‘state’ 1580s [00:53:00.144] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1580s [00:53:00.144] - Launch lazy future ... 1580s [00:53:00.144] Packages needed by the future expression (n = 0): 1580s [00:53:00.145] Packages needed by future strategies (n = 0): 1580s [00:53:00.146] { 1580s [00:53:00.146] { 1580s [00:53:00.146] { 1580s [00:53:00.146] ...future.startTime <- base::Sys.time() 1580s [00:53:00.146] { 1580s [00:53:00.146] { 1580s [00:53:00.146] { 1580s [00:53:00.146] base::local({ 1580s [00:53:00.146] has_future <- base::requireNamespace("future", 1580s [00:53:00.146] quietly = TRUE) 1580s [00:53:00.146] if (has_future) { 1580s [00:53:00.146] ns <- base::getNamespace("future") 1580s [00:53:00.146] version <- ns[[".package"]][["version"]] 1580s [00:53:00.146] if (is.null(version)) 1580s [00:53:00.146] version <- utils::packageVersion("future") 1580s [00:53:00.146] } 1580s [00:53:00.146] else { 1580s [00:53:00.146] version <- NULL 1580s [00:53:00.146] } 1580s [00:53:00.146] if (!has_future || version < "1.8.0") { 1580s [00:53:00.146] info <- base::c(r_version = base::gsub("R version ", 1580s [00:53:00.146] "", base::R.version$version.string), 1580s [00:53:00.146] platform = base::sprintf("%s (%s-bit)", 1580s [00:53:00.146] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1580s [00:53:00.146] os = base::paste(base::Sys.info()[base::c("sysname", 1580s [00:53:00.146] "release", "version")], collapse = " "), 1580s [00:53:00.146] hostname = base::Sys.info()[["nodename"]]) 1580s [00:53:00.146] info <- base::sprintf("%s: %s", base::names(info), 1580s [00:53:00.146] info) 1580s [00:53:00.146] info <- base::paste(info, collapse = "; ") 1580s [00:53:00.146] if (!has_future) { 1580s [00:53:00.146] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1580s [00:53:00.146] info) 1580s [00:53:00.146] } 1580s [00:53:00.146] else { 1580s [00:53:00.146] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1580s [00:53:00.146] info, version) 1580s [00:53:00.146] } 1580s [00:53:00.146] base::stop(msg) 1580s [00:53:00.146] } 1580s [00:53:00.146] }) 1580s [00:53:00.146] } 1580s [00:53:00.146] options(future.plan = NULL) 1580s [00:53:00.146] Sys.unsetenv("R_FUTURE_PLAN") 1580s [00:53:00.146] future::plan("default", .cleanup = FALSE, .init = FALSE) 1580s [00:53:00.146] } 1580s [00:53:00.146] ...future.workdir <- getwd() 1580s [00:53:00.146] } 1580s [00:53:00.146] ...future.oldOptions <- base::as.list(base::.Options) 1580s [00:53:00.146] ...future.oldEnvVars <- base::Sys.getenv() 1580s [00:53:00.146] } 1580s [00:53:00.146] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1580s [00:53:00.146] future.globals.maxSize = NULL, future.globals.method = NULL, 1580s [00:53:00.146] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1580s [00:53:00.146] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1580s [00:53:00.146] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1580s [00:53:00.146] future.stdout.windows.reencode = NULL, width = 80L) 1580s [00:53:00.146] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1580s [00:53:00.146] base::names(...future.oldOptions)) 1580s [00:53:00.146] } 1580s [00:53:00.146] if (FALSE) { 1580s [00:53:00.146] } 1580s [00:53:00.146] else { 1580s [00:53:00.146] if (TRUE) { 1580s [00:53:00.146] ...future.stdout <- base::rawConnection(base::raw(0L), 1580s [00:53:00.146] open = "w") 1580s [00:53:00.146] } 1580s [00:53:00.146] else { 1580s [00:53:00.146] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1580s [00:53:00.146] windows = "NUL", "/dev/null"), open = "w") 1580s [00:53:00.146] } 1580s [00:53:00.146] base::sink(...future.stdout, type = "output", split = FALSE) 1580s [00:53:00.146] base::on.exit(if (!base::is.null(...future.stdout)) { 1580s [00:53:00.146] base::sink(type = "output", split = FALSE) 1580s [00:53:00.146] base::close(...future.stdout) 1580s [00:53:00.146] }, add = TRUE) 1580s [00:53:00.146] } 1580s [00:53:00.146] ...future.frame <- base::sys.nframe() 1580s [00:53:00.146] ...future.conditions <- base::list() 1580s [00:53:00.146] ...future.rng <- base::globalenv()$.Random.seed 1580s [00:53:00.146] if (FALSE) { 1580s [00:53:00.146] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1580s [00:53:00.146] "...future.value", "...future.globalenv.names", ".Random.seed") 1580s [00:53:00.146] } 1580s [00:53:00.146] ...future.result <- base::tryCatch({ 1580s [00:53:00.146] base::withCallingHandlers({ 1580s [00:53:00.146] ...future.value <- base::withVisible(base::local({ 1580s [00:53:00.146] do.call(function(...) { 1580s [00:53:00.146] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1580s [00:53:00.146] if (!identical(...future.globals.maxSize.org, 1580s [00:53:00.146] ...future.globals.maxSize)) { 1580s [00:53:00.146] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1580s [00:53:00.146] on.exit(options(oopts), add = TRUE) 1580s [00:53:00.146] } 1580s [00:53:00.146] { 1580s [00:53:00.146] lapply(seq_along(...future.elements_ii), 1580s [00:53:00.146] FUN = function(jj) { 1580s [00:53:00.146] ...future.X_jj <- ...future.elements_ii[[jj]] 1580s [00:53:00.146] ...future.FUN(...future.X_jj, ...) 1580s [00:53:00.146] }) 1580s [00:53:00.146] } 1580s [00:53:00.146] }, args = future.call.arguments) 1580s [00:53:00.146] })) 1580s [00:53:00.146] future::FutureResult(value = ...future.value$value, 1580s [00:53:00.146] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1580s [00:53:00.146] ...future.rng), globalenv = if (FALSE) 1580s [00:53:00.146] list(added = base::setdiff(base::names(base::.GlobalEnv), 1580s [00:53:00.146] ...future.globalenv.names)) 1580s [00:53:00.146] else NULL, started = ...future.startTime, version = "1.8") 1580s [00:53:00.146] }, condition = base::local({ 1580s [00:53:00.146] c <- base::c 1580s [00:53:00.146] inherits <- base::inherits 1580s [00:53:00.146] invokeRestart <- base::invokeRestart 1580s [00:53:00.146] length <- base::length 1580s [00:53:00.146] list <- base::list 1580s [00:53:00.146] seq.int <- base::seq.int 1580s [00:53:00.146] signalCondition <- base::signalCondition 1580s [00:53:00.146] sys.calls <- base::sys.calls 1580s [00:53:00.146] `[[` <- base::`[[` 1580s [00:53:00.146] `+` <- base::`+` 1580s [00:53:00.146] `<<-` <- base::`<<-` 1580s [00:53:00.146] sysCalls <- function(calls = sys.calls(), from = 1L) { 1580s [00:53:00.146] calls[seq.int(from = from + 12L, to = length(calls) - 1580s [00:53:00.146] 3L)] 1580s [00:53:00.146] } 1580s [00:53:00.146] function(cond) { 1580s [00:53:00.146] is_error <- inherits(cond, "error") 1580s [00:53:00.146] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1580s [00:53:00.146] NULL) 1580s [00:53:00.146] if (is_error) { 1580s [00:53:00.146] sessionInformation <- function() { 1580s [00:53:00.146] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1580s [00:53:00.146] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1580s [00:53:00.146] search = base::search(), system = base::Sys.info()) 1580s [00:53:00.146] } 1580s [00:53:00.146] ...future.conditions[[length(...future.conditions) + 1580s [00:53:00.146] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1580s [00:53:00.146] cond$call), session = sessionInformation(), 1580s [00:53:00.146] timestamp = base::Sys.time(), signaled = 0L) 1580s [00:53:00.146] signalCondition(cond) 1580s [00:53:00.146] } 1580s [00:53:00.146] else if (!ignore && TRUE && inherits(cond, c("condition", 1580s [00:53:00.146] "immediateCondition"))) { 1580s [00:53:00.146] signal <- TRUE && inherits(cond, "immediateCondition") 1580s [00:53:00.146] ...future.conditions[[length(...future.conditions) + 1580s [00:53:00.146] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1580s [00:53:00.146] if (TRUE && !signal) { 1580s [00:53:00.146] muffleCondition <- function (cond, pattern = "^muffle") 1580s [00:53:00.146] { 1580s [00:53:00.146] inherits <- base::inherits 1580s [00:53:00.146] invokeRestart <- base::invokeRestart 1580s [00:53:00.146] is.null <- base::is.null 1580s [00:53:00.146] muffled <- FALSE 1580s [00:53:00.146] if (inherits(cond, "message")) { 1580s [00:53:00.146] muffled <- grepl(pattern, "muffleMessage") 1580s [00:53:00.146] if (muffled) 1580s [00:53:00.146] invokeRestart("muffleMessage") 1580s [00:53:00.146] } 1580s [00:53:00.146] else if (inherits(cond, "warning")) { 1580s [00:53:00.146] muffled <- grepl(pattern, "muffleWarning") 1580s [00:53:00.146] if (muffled) 1580s [00:53:00.146] invokeRestart("muffleWarning") 1580s [00:53:00.146] } 1580s [00:53:00.146] else if (inherits(cond, "condition")) { 1580s [00:53:00.146] if (!is.null(pattern)) { 1580s [00:53:00.146] computeRestarts <- base::computeRestarts 1580s [00:53:00.146] grepl <- base::grepl 1580s [00:53:00.146] restarts <- computeRestarts(cond) 1580s [00:53:00.146] for (restart in restarts) { 1580s [00:53:00.146] name <- restart$name 1580s [00:53:00.146] if (is.null(name)) 1580s [00:53:00.146] next 1580s [00:53:00.146] if (!grepl(pattern, name)) 1580s [00:53:00.146] next 1580s [00:53:00.146] invokeRestart(restart) 1580s [00:53:00.146] muffled <- TRUE 1580s [00:53:00.146] break 1580s [00:53:00.146] } 1580s [00:53:00.146] } 1580s [00:53:00.146] } 1580s [00:53:00.146] invisible(muffled) 1580s [00:53:00.146] } 1580s [00:53:00.146] muffleCondition(cond, pattern = "^muffle") 1580s [00:53:00.146] } 1580s [00:53:00.146] } 1580s [00:53:00.146] else { 1580s [00:53:00.146] if (TRUE) { 1580s [00:53:00.146] muffleCondition <- function (cond, pattern = "^muffle") 1580s [00:53:00.146] { 1580s [00:53:00.146] inherits <- base::inherits 1580s [00:53:00.146] invokeRestart <- base::invokeRestart 1580s [00:53:00.146] is.null <- base::is.null 1580s [00:53:00.146] muffled <- FALSE 1580s [00:53:00.146] if (inherits(cond, "message")) { 1580s [00:53:00.146] muffled <- grepl(pattern, "muffleMessage") 1580s [00:53:00.146] if (muffled) 1580s [00:53:00.146] invokeRestart("muffleMessage") 1580s [00:53:00.146] } 1580s [00:53:00.146] else if (inherits(cond, "warning")) { 1580s [00:53:00.146] muffled <- grepl(pattern, "muffleWarning") 1580s [00:53:00.146] if (muffled) 1580s [00:53:00.146] invokeRestart("muffleWarning") 1580s [00:53:00.146] } 1580s [00:53:00.146] else if (inherits(cond, "condition")) { 1580s [00:53:00.146] if (!is.null(pattern)) { 1580s [00:53:00.146] computeRestarts <- base::computeRestarts 1580s [00:53:00.146] grepl <- base::grepl 1580s [00:53:00.146] restarts <- computeRestarts(cond) 1580s [00:53:00.146] for (restart in restarts) { 1580s [00:53:00.146] name <- restart$name 1580s [00:53:00.146] if (is.null(name)) 1580s [00:53:00.146] next 1580s [00:53:00.146] if (!grepl(pattern, name)) 1580s [00:53:00.146] next 1580s [00:53:00.146] invokeRestart(restart) 1580s [00:53:00.146] muffled <- TRUE 1580s [00:53:00.146] break 1580s [00:53:00.146] } 1580s [00:53:00.146] } 1580s [00:53:00.146] } 1580s [00:53:00.146] invisible(muffled) 1580s [00:53:00.146] } 1580s [00:53:00.146] muffleCondition(cond, pattern = "^muffle") 1580s [00:53:00.146] } 1580s [00:53:00.146] } 1580s [00:53:00.146] } 1580s [00:53:00.146] })) 1580s [00:53:00.146] }, error = function(ex) { 1580s [00:53:00.146] base::structure(base::list(value = NULL, visible = NULL, 1580s [00:53:00.146] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1580s [00:53:00.146] ...future.rng), started = ...future.startTime, 1580s [00:53:00.146] finished = Sys.time(), session_uuid = NA_character_, 1580s [00:53:00.146] version = "1.8"), class = "FutureResult") 1580s [00:53:00.146] }, finally = { 1580s [00:53:00.146] if (!identical(...future.workdir, getwd())) 1580s [00:53:00.146] setwd(...future.workdir) 1580s [00:53:00.146] { 1580s [00:53:00.146] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1580s [00:53:00.146] ...future.oldOptions$nwarnings <- NULL 1580s [00:53:00.146] } 1580s [00:53:00.146] base::options(...future.oldOptions) 1580s [00:53:00.146] if (.Platform$OS.type == "windows") { 1580s [00:53:00.146] old_names <- names(...future.oldEnvVars) 1580s [00:53:00.146] envs <- base::Sys.getenv() 1580s [00:53:00.146] names <- names(envs) 1580s [00:53:00.146] common <- intersect(names, old_names) 1580s [00:53:00.146] added <- setdiff(names, old_names) 1580s [00:53:00.146] removed <- setdiff(old_names, names) 1580s [00:53:00.146] changed <- common[...future.oldEnvVars[common] != 1580s [00:53:00.146] envs[common]] 1580s [00:53:00.146] NAMES <- toupper(changed) 1580s [00:53:00.146] args <- list() 1580s [00:53:00.146] for (kk in seq_along(NAMES)) { 1580s [00:53:00.146] name <- changed[[kk]] 1580s [00:53:00.146] NAME <- NAMES[[kk]] 1580s [00:53:00.146] if (name != NAME && is.element(NAME, old_names)) 1580s [00:53:00.146] next 1580s [00:53:00.146] args[[name]] <- ...future.oldEnvVars[[name]] 1580s [00:53:00.146] } 1580s [00:53:00.146] NAMES <- toupper(added) 1580s [00:53:00.146] for (kk in seq_along(NAMES)) { 1580s [00:53:00.146] name <- added[[kk]] 1580s [00:53:00.146] NAME <- NAMES[[kk]] 1580s [00:53:00.146] if (name != NAME && is.element(NAME, old_names)) 1580s [00:53:00.146] next 1580s [00:53:00.146] args[[name]] <- "" 1580s [00:53:00.146] } 1580s [00:53:00.146] NAMES <- toupper(removed) 1580s [00:53:00.146] for (kk in seq_along(NAMES)) { 1580s [00:53:00.146] name <- removed[[kk]] 1580s [00:53:00.146] NAME <- NAMES[[kk]] 1580s [00:53:00.146] if (name != NAME && is.element(NAME, old_names)) 1580s [00:53:00.146] next 1580s [00:53:00.146] args[[name]] <- ...future.oldEnvVars[[name]] 1580s [00:53:00.146] } 1580s [00:53:00.146] if (length(args) > 0) 1580s [00:53:00.146] base::do.call(base::Sys.setenv, args = args) 1580s [00:53:00.146] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1580s [00:53:00.146] } 1580s [00:53:00.146] else { 1580s [00:53:00.146] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1580s [00:53:00.146] } 1580s [00:53:00.146] { 1580s [00:53:00.146] if (base::length(...future.futureOptionsAdded) > 1580s [00:53:00.146] 0L) { 1580s [00:53:00.146] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1580s [00:53:00.146] base::names(opts) <- ...future.futureOptionsAdded 1580s [00:53:00.146] base::options(opts) 1580s [00:53:00.146] } 1580s [00:53:00.146] { 1580s [00:53:00.146] { 1580s [00:53:00.146] NULL 1580s [00:53:00.146] RNGkind("Mersenne-Twister") 1580s [00:53:00.146] base::rm(list = ".Random.seed", envir = base::globalenv(), 1580s [00:53:00.146] inherits = FALSE) 1580s [00:53:00.146] } 1580s [00:53:00.146] options(future.plan = NULL) 1580s [00:53:00.146] if (is.na(NA_character_)) 1580s [00:53:00.146] Sys.unsetenv("R_FUTURE_PLAN") 1580s [00:53:00.146] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1580s [00:53:00.146] future::plan(list(function (..., workers = availableCores(), 1580s [00:53:00.146] lazy = FALSE, rscript_libs = .libPaths(), 1580s [00:53:00.146] envir = parent.frame()) 1580s [00:53:00.146] { 1580s [00:53:00.146] if (is.function(workers)) 1580s [00:53:00.146] workers <- workers() 1580s [00:53:00.146] workers <- structure(as.integer(workers), 1580s [00:53:00.146] class = class(workers)) 1580s [00:53:00.146] stop_if_not(length(workers) == 1, is.finite(workers), 1580s [00:53:00.146] workers >= 1) 1580s [00:53:00.146] if (workers == 1L && !inherits(workers, "AsIs")) { 1580s [00:53:00.146] return(sequential(..., lazy = TRUE, envir = envir)) 1580s [00:53:00.146] } 1580s [00:53:00.146] future <- MultisessionFuture(..., workers = workers, 1580s [00:53:00.146] lazy = lazy, rscript_libs = rscript_libs, 1580s [00:53:00.146] envir = envir) 1580s [00:53:00.146] if (!future$lazy) 1580s [00:53:00.146] future <- run(future) 1580s [00:53:00.146] invisible(future) 1580s [00:53:00.146] }), .cleanup = FALSE, .init = FALSE) 1580s [00:53:00.146] } 1580s [00:53:00.146] } 1580s [00:53:00.146] } 1580s [00:53:00.146] }) 1580s [00:53:00.146] if (TRUE) { 1580s [00:53:00.146] base::sink(type = "output", split = FALSE) 1580s [00:53:00.146] if (TRUE) { 1580s [00:53:00.146] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1580s [00:53:00.146] } 1580s [00:53:00.146] else { 1580s [00:53:00.146] ...future.result["stdout"] <- base::list(NULL) 1580s [00:53:00.146] } 1580s [00:53:00.146] base::close(...future.stdout) 1580s [00:53:00.146] ...future.stdout <- NULL 1580s [00:53:00.146] } 1580s [00:53:00.146] ...future.result$conditions <- ...future.conditions 1580s [00:53:00.146] ...future.result$finished <- base::Sys.time() 1580s [00:53:00.146] ...future.result 1580s [00:53:00.146] } 1580s [00:53:00.152] assign_globals() ... 1580s [00:53:00.152] List of 5 1580s [00:53:00.152] $ ...future.FUN :function (x) 1580s [00:53:00.152] $ future.call.arguments : list() 1580s [00:53:00.152] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1580s [00:53:00.152] $ ...future.elements_ii :List of 3 1580s [00:53:00.152] ..$ a: num 1 1580s [00:53:00.152] ..$ b: num 2 1580s [00:53:00.152] ..$ c: num 3 1580s [00:53:00.152] $ ...future.seeds_ii : NULL 1580s [00:53:00.152] $ ...future.globals.maxSize: NULL 1580s [00:53:00.152] - attr(*, "where")=List of 5 1580s [00:53:00.152] ..$ ...future.FUN : 1580s [00:53:00.152] ..$ future.call.arguments : 1580s [00:53:00.152] ..$ ...future.elements_ii : 1580s [00:53:00.152] ..$ ...future.seeds_ii : 1580s [00:53:00.152] ..$ ...future.globals.maxSize: 1580s [00:53:00.152] - attr(*, "resolved")= logi FALSE 1580s [00:53:00.152] - attr(*, "total_size")= num 848 1580s [00:53:00.152] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1580s [00:53:00.152] - attr(*, "already-done")= logi TRUE 1580s [00:53:00.164] - copied ‘...future.FUN’ to environment 1580s [00:53:00.164] - copied ‘future.call.arguments’ to environment 1580s [00:53:00.164] - copied ‘...future.elements_ii’ to environment 1580s [00:53:00.164] - copied ‘...future.seeds_ii’ to environment 1580s [00:53:00.164] - copied ‘...future.globals.maxSize’ to environment 1580s [00:53:00.165] assign_globals() ... done 1580s [00:53:00.165] plan(): Setting new future strategy stack: 1580s [00:53:00.165] List of future strategies: 1580s [00:53:00.165] 1. sequential: 1580s [00:53:00.165] - args: function (..., envir = parent.frame()) 1580s [00:53:00.165] - tweaked: FALSE 1580s [00:53:00.165] - call: NULL 1580s [00:53:00.166] plan(): nbrOfWorkers() = 1 1580s [00:53:00.168] plan(): Setting new future strategy stack: 1580s [00:53:00.168] List of future strategies: 1580s [00:53:00.168] 1. multisession: 1580s [00:53:00.168] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1580s [00:53:00.168] - tweaked: FALSE 1580s [00:53:00.168] - call: plan(strategy) 1580s [00:53:00.174] plan(): nbrOfWorkers() = 1 1580s [00:53:00.174] SequentialFuture started (and completed) 1580s [00:53:00.175] - Launch lazy future ... done 1580s [00:53:00.175] run() for ‘SequentialFuture’ ... done 1580s [00:53:00.176] Created future: 1580s [00:53:00.176] SequentialFuture: 1580s [00:53:00.176] Label: ‘future_sapply-1’ 1580s [00:53:00.176] Expression: 1580s [00:53:00.176] { 1580s [00:53:00.176] do.call(function(...) { 1580s [00:53:00.176] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1580s [00:53:00.176] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1580s [00:53:00.176] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1580s [00:53:00.176] on.exit(options(oopts), add = TRUE) 1580s [00:53:00.176] } 1580s [00:53:00.176] { 1580s [00:53:00.176] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1580s [00:53:00.176] ...future.X_jj <- ...future.elements_ii[[jj]] 1580s [00:53:00.176] ...future.FUN(...future.X_jj, ...) 1580s [00:53:00.176] }) 1580s [00:53:00.176] } 1580s [00:53:00.176] }, args = future.call.arguments) 1580s [00:53:00.176] } 1580s [00:53:00.176] Lazy evaluation: FALSE 1580s [00:53:00.176] Asynchronous evaluation: FALSE 1580s [00:53:00.176] Local evaluation: TRUE 1580s [00:53:00.176] Environment: R_GlobalEnv 1580s [00:53:00.176] Capture standard output: TRUE 1580s [00:53:00.176] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1580s [00:53:00.176] Globals: 5 objects totaling 0.99 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1580s [00:53:00.176] Packages: 1580s [00:53:00.176] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1580s [00:53:00.176] Resolved: TRUE 1580s [00:53:00.176] Value: 168 bytes of class ‘list’ 1580s [00:53:00.176] Early signaling: FALSE 1580s [00:53:00.176] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1580s [00:53:00.176] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1580s [00:53:00.178] Chunk #1 of 1 ... DONE 1580s [00:53:00.179] Launching 1 futures (chunks) ... DONE 1580s [00:53:00.179] Resolving 1 futures (chunks) ... 1580s [00:53:00.179] resolve() on list ... 1580s [00:53:00.179] recursive: 0 1580s [00:53:00.179] length: 1 1580s [00:53:00.179] 1580s [00:53:00.180] resolved() for ‘SequentialFuture’ ... 1580s [00:53:00.180] - state: ‘finished’ 1580s [00:53:00.181] - run: TRUE 1580s [00:53:00.181] - result: ‘FutureResult’ 1580s [00:53:00.182] resolved() for ‘SequentialFuture’ ... done 1580s [00:53:00.182] Future #1 1580s [00:53:00.182] signalConditionsASAP(SequentialFuture, pos=1) ... 1580s [00:53:00.182] - nx: 1 1580s [00:53:00.182] - relay: TRUE 1580s [00:53:00.183] - stdout: TRUE 1580s [00:53:00.183] - signal: TRUE 1580s [00:53:00.183] - resignal: FALSE 1580s [00:53:00.183] - force: TRUE 1580s [00:53:00.183] - relayed: [n=1] FALSE 1580s [00:53:00.183] - queued futures: [n=1] FALSE 1580s [00:53:00.184] - until=1 1580s [00:53:00.184] - relaying element #1 1580s [00:53:00.184] - relayed: [n=1] TRUE 1580s [00:53:00.185] - queued futures: [n=1] TRUE 1580s [00:53:00.185] signalConditionsASAP(SequentialFuture, pos=1) ... done 1580s [00:53:00.186] length: 0 (resolved future 1) 1580s [00:53:00.186] Relaying remaining futures 1580s [00:53:00.186] signalConditionsASAP(NULL, pos=0) ... 1580s [00:53:00.186] - nx: 1 1580s [00:53:00.187] - relay: TRUE 1580s [00:53:00.187] - stdout: TRUE 1580s [00:53:00.187] - signal: TRUE 1580s [00:53:00.187] - resignal: FALSE 1580s [00:53:00.188] - force: TRUE 1580s [00:53:00.188] - relayed: [n=1] TRUE 1580s [00:53:00.188] - queued futures: [n=1] TRUE 1580s - flush all 1580s [00:53:00.189] - relayed: [n=1] TRUE 1580s [00:53:00.189] - queued futures: [n=1] TRUE 1580s [00:53:00.189] signalConditionsASAP(NULL, pos=0) ... done 1580s [00:53:00.189] resolve() on list ... DONE 1580s [00:53:00.190] - Number of value chunks collected: 1 1580s [00:53:00.190] Resolving 1 futures (chunks) ... DONE 1580s [00:53:00.190] Reducing values from 1 chunks ... 1580s [00:53:00.191] - Number of values collected after concatenation: 3 1580s [00:53:00.191] - Number of values expected: 3 1580s [00:53:00.191] Reducing values from 1 chunks ... DONE 1580s [00:53:00.191] future_lapply() ... DONE 1580s List of 2 1580s $ y0: Named num [1:3] 1 2 3 1580s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1580s $ y1: Named num [1:3] 1 2 3 1580s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1580s [00:53:00.195] future_lapply() ... 1580s [00:53:00.201] Number of chunks: 1 1580s [00:53:00.202] getGlobalsAndPackagesXApply() ... 1580s [00:53:00.202] - future.globals: TRUE 1580s [00:53:00.202] getGlobalsAndPackages() ... 1580s [00:53:00.203] Searching for globals... 1580s [00:53:00.205] - globals found: [2] ‘FUN’, ‘UseMethod’ 1580s [00:53:00.205] Searching for globals ... DONE 1580s [00:53:00.205] Resolving globals: FALSE 1580s [00:53:00.206] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1580s [00:53:00.206] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1580s [00:53:00.207] - globals: [1] ‘FUN’ 1580s [00:53:00.207] 1580s [00:53:00.207] getGlobalsAndPackages() ... DONE 1580s [00:53:00.207] - globals found/used: [n=1] ‘FUN’ 1580s [00:53:00.207] - needed namespaces: [n=0] 1580s [00:53:00.207] Finding globals ... DONE 1580s [00:53:00.208] - use_args: TRUE 1580s [00:53:00.208] - Getting '...' globals ... 1580s [00:53:00.208] resolve() on list ... 1580s [00:53:00.209] recursive: 0 1580s [00:53:00.209] length: 1 1580s [00:53:00.209] elements: ‘...’ 1580s [00:53:00.209] length: 0 (resolved future 1) 1580s [00:53:00.210] resolve() on list ... DONE 1580s [00:53:00.210] - '...' content: [n=0] 1580s [00:53:00.210] List of 1 1580s [00:53:00.210] $ ...: list() 1580s [00:53:00.210] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1580s [00:53:00.210] - attr(*, "where")=List of 1 1580s [00:53:00.210] ..$ ...: 1580s [00:53:00.210] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1580s [00:53:00.210] - attr(*, "resolved")= logi TRUE 1580s [00:53:00.210] - attr(*, "total_size")= num NA 1580s [00:53:00.219] - Getting '...' globals ... DONE 1580s [00:53:00.219] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1580s [00:53:00.220] List of 2 1580s [00:53:00.220] $ ...future.FUN:function (x, ...) 1580s [00:53:00.220] $ ... : list() 1580s [00:53:00.220] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1580s [00:53:00.220] - attr(*, "where")=List of 2 1580s [00:53:00.220] ..$ ...future.FUN: 1580s [00:53:00.220] ..$ ... : 1580s [00:53:00.220] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1580s [00:53:00.220] - attr(*, "resolved")= logi FALSE 1580s [00:53:00.220] - attr(*, "total_size")= num 1248 1580s [00:53:00.224] Packages to be attached in all futures: [n=0] 1580s [00:53:00.224] getGlobalsAndPackagesXApply() ... DONE 1580s [00:53:00.224] Number of futures (= number of chunks): 1 1580s [00:53:00.224] Launching 1 futures (chunks) ... 1580s [00:53:00.225] Chunk #1 of 1 ... 1580s [00:53:00.225] - Finding globals in 'X' for chunk #1 ... 1580s [00:53:00.225] getGlobalsAndPackages() ... 1580s [00:53:00.225] Searching for globals... 1580s [00:53:00.226] 1580s [00:53:00.226] Searching for globals ... DONE 1580s [00:53:00.226] - globals: [0] 1580s [00:53:00.226] getGlobalsAndPackages() ... DONE 1580s [00:53:00.226] + additional globals found: [n=0] 1580s [00:53:00.226] + additional namespaces needed: [n=0] 1580s [00:53:00.227] - Finding globals in 'X' for chunk #1 ... DONE 1580s [00:53:00.227] - seeds: 1580s [00:53:00.227] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1580s [00:53:00.227] getGlobalsAndPackages() ... 1580s [00:53:00.227] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1580s [00:53:00.227] Resolving globals: FALSE 1580s [00:53:00.228] Tweak future expression to call with '...' arguments ... 1580s [00:53:00.228] { 1580s [00:53:00.228] do.call(function(...) { 1580s [00:53:00.228] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1580s [00:53:00.228] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1580s [00:53:00.228] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1580s [00:53:00.228] on.exit(options(oopts), add = TRUE) 1580s [00:53:00.228] } 1580s [00:53:00.228] { 1580s [00:53:00.228] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1580s [00:53:00.228] ...future.X_jj <- ...future.elements_ii[[jj]] 1580s [00:53:00.228] ...future.FUN(...future.X_jj, ...) 1580s [00:53:00.228] }) 1580s [00:53:00.228] } 1580s [00:53:00.228] }, args = future.call.arguments) 1580s [00:53:00.228] } 1580s [00:53:00.228] Tweak future expression to call with '...' arguments ... DONE 1580s [00:53:00.229] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1580s [00:53:00.229] 1580s [00:53:00.229] getGlobalsAndPackages() ... DONE 1580s [00:53:00.229] run() for ‘Future’ ... 1580s [00:53:00.229] - state: ‘created’ 1580s [00:53:00.229] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1580s [00:53:00.234] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1580s [00:53:00.234] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1580s [00:53:00.234] - Field: ‘label’ 1580s [00:53:00.234] - Field: ‘local’ 1580s [00:53:00.234] - Field: ‘owner’ 1580s [00:53:00.235] - Field: ‘envir’ 1580s [00:53:00.235] - Field: ‘packages’ 1580s [00:53:00.235] - Field: ‘gc’ 1580s [00:53:00.235] - Field: ‘conditions’ 1580s [00:53:00.235] - Field: ‘expr’ 1580s [00:53:00.235] - Field: ‘uuid’ 1580s [00:53:00.236] - Field: ‘seed’ 1580s [00:53:00.236] - Field: ‘version’ 1580s [00:53:00.236] - Field: ‘result’ 1580s [00:53:00.236] - Field: ‘asynchronous’ 1580s [00:53:00.236] - Field: ‘calls’ 1580s [00:53:00.236] - Field: ‘globals’ 1580s [00:53:00.237] - Field: ‘stdout’ 1580s [00:53:00.237] - Field: ‘earlySignal’ 1580s [00:53:00.237] - Field: ‘lazy’ 1580s [00:53:00.237] - Field: ‘state’ 1580s [00:53:00.237] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1580s [00:53:00.238] - Launch lazy future ... 1580s [00:53:00.238] Packages needed by the future expression (n = 0): 1580s [00:53:00.238] Packages needed by future strategies (n = 0): 1580s [00:53:00.239] { 1580s [00:53:00.239] { 1580s [00:53:00.239] { 1580s [00:53:00.239] ...future.startTime <- base::Sys.time() 1580s [00:53:00.239] { 1580s [00:53:00.239] { 1580s [00:53:00.239] { 1580s [00:53:00.239] base::local({ 1580s [00:53:00.239] has_future <- base::requireNamespace("future", 1580s [00:53:00.239] quietly = TRUE) 1580s [00:53:00.239] if (has_future) { 1580s [00:53:00.239] ns <- base::getNamespace("future") 1580s [00:53:00.239] version <- ns[[".package"]][["version"]] 1580s [00:53:00.239] if (is.null(version)) 1580s [00:53:00.239] version <- utils::packageVersion("future") 1580s [00:53:00.239] } 1580s [00:53:00.239] else { 1580s [00:53:00.239] version <- NULL 1580s [00:53:00.239] } 1580s [00:53:00.239] if (!has_future || version < "1.8.0") { 1580s [00:53:00.239] info <- base::c(r_version = base::gsub("R version ", 1580s [00:53:00.239] "", base::R.version$version.string), 1580s [00:53:00.239] platform = base::sprintf("%s (%s-bit)", 1580s [00:53:00.239] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1580s [00:53:00.239] os = base::paste(base::Sys.info()[base::c("sysname", 1580s [00:53:00.239] "release", "version")], collapse = " "), 1580s [00:53:00.239] hostname = base::Sys.info()[["nodename"]]) 1580s [00:53:00.239] info <- base::sprintf("%s: %s", base::names(info), 1580s [00:53:00.239] info) 1580s [00:53:00.239] info <- base::paste(info, collapse = "; ") 1580s [00:53:00.239] if (!has_future) { 1580s [00:53:00.239] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1580s [00:53:00.239] info) 1580s [00:53:00.239] } 1580s [00:53:00.239] else { 1580s [00:53:00.239] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1580s [00:53:00.239] info, version) 1580s [00:53:00.239] } 1580s [00:53:00.239] base::stop(msg) 1580s [00:53:00.239] } 1580s [00:53:00.239] }) 1580s [00:53:00.239] } 1580s [00:53:00.239] options(future.plan = NULL) 1580s [00:53:00.239] Sys.unsetenv("R_FUTURE_PLAN") 1580s [00:53:00.239] future::plan("default", .cleanup = FALSE, .init = FALSE) 1580s [00:53:00.239] } 1580s [00:53:00.239] ...future.workdir <- getwd() 1580s [00:53:00.239] } 1580s [00:53:00.239] ...future.oldOptions <- base::as.list(base::.Options) 1580s [00:53:00.239] ...future.oldEnvVars <- base::Sys.getenv() 1580s [00:53:00.239] } 1580s [00:53:00.239] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1580s [00:53:00.239] future.globals.maxSize = NULL, future.globals.method = NULL, 1580s [00:53:00.239] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1580s [00:53:00.239] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1580s [00:53:00.239] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1580s [00:53:00.239] future.stdout.windows.reencode = NULL, width = 80L) 1580s [00:53:00.239] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1580s [00:53:00.239] base::names(...future.oldOptions)) 1580s [00:53:00.239] } 1580s [00:53:00.239] if (FALSE) { 1580s [00:53:00.239] } 1580s [00:53:00.239] else { 1580s [00:53:00.239] if (TRUE) { 1580s [00:53:00.239] ...future.stdout <- base::rawConnection(base::raw(0L), 1580s [00:53:00.239] open = "w") 1580s [00:53:00.239] } 1580s [00:53:00.239] else { 1580s [00:53:00.239] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1580s [00:53:00.239] windows = "NUL", "/dev/null"), open = "w") 1580s [00:53:00.239] } 1580s [00:53:00.239] base::sink(...future.stdout, type = "output", split = FALSE) 1580s [00:53:00.239] base::on.exit(if (!base::is.null(...future.stdout)) { 1580s [00:53:00.239] base::sink(type = "output", split = FALSE) 1580s [00:53:00.239] base::close(...future.stdout) 1580s [00:53:00.239] }, add = TRUE) 1580s [00:53:00.239] } 1580s [00:53:00.239] ...future.frame <- base::sys.nframe() 1580s [00:53:00.239] ...future.conditions <- base::list() 1580s [00:53:00.239] ...future.rng <- base::globalenv()$.Random.seed 1580s [00:53:00.239] if (FALSE) { 1580s [00:53:00.239] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1580s [00:53:00.239] "...future.value", "...future.globalenv.names", ".Random.seed") 1580s [00:53:00.239] } 1580s [00:53:00.239] ...future.result <- base::tryCatch({ 1580s [00:53:00.239] base::withCallingHandlers({ 1580s [00:53:00.239] ...future.value <- base::withVisible(base::local({ 1580s [00:53:00.239] do.call(function(...) { 1580s [00:53:00.239] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1580s [00:53:00.239] if (!identical(...future.globals.maxSize.org, 1580s [00:53:00.239] ...future.globals.maxSize)) { 1580s [00:53:00.239] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1580s [00:53:00.239] on.exit(options(oopts), add = TRUE) 1580s [00:53:00.239] } 1580s [00:53:00.239] { 1580s [00:53:00.239] lapply(seq_along(...future.elements_ii), 1580s [00:53:00.239] FUN = function(jj) { 1580s [00:53:00.239] ...future.X_jj <- ...future.elements_ii[[jj]] 1580s [00:53:00.239] ...future.FUN(...future.X_jj, ...) 1580s [00:53:00.239] }) 1580s [00:53:00.239] } 1580s [00:53:00.239] }, args = future.call.arguments) 1580s [00:53:00.239] })) 1580s [00:53:00.239] future::FutureResult(value = ...future.value$value, 1580s [00:53:00.239] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1580s [00:53:00.239] ...future.rng), globalenv = if (FALSE) 1580s [00:53:00.239] list(added = base::setdiff(base::names(base::.GlobalEnv), 1580s [00:53:00.239] ...future.globalenv.names)) 1580s [00:53:00.239] else NULL, started = ...future.startTime, version = "1.8") 1580s [00:53:00.239] }, condition = base::local({ 1580s [00:53:00.239] c <- base::c 1580s [00:53:00.239] inherits <- base::inherits 1580s [00:53:00.239] invokeRestart <- base::invokeRestart 1580s [00:53:00.239] length <- base::length 1580s [00:53:00.239] list <- base::list 1580s [00:53:00.239] seq.int <- base::seq.int 1580s [00:53:00.239] signalCondition <- base::signalCondition 1580s [00:53:00.239] sys.calls <- base::sys.calls 1580s [00:53:00.239] `[[` <- base::`[[` 1580s [00:53:00.239] `+` <- base::`+` 1580s [00:53:00.239] `<<-` <- base::`<<-` 1580s [00:53:00.239] sysCalls <- function(calls = sys.calls(), from = 1L) { 1580s [00:53:00.239] calls[seq.int(from = from + 12L, to = length(calls) - 1580s [00:53:00.239] 3L)] 1580s [00:53:00.239] } 1580s [00:53:00.239] function(cond) { 1580s [00:53:00.239] is_error <- inherits(cond, "error") 1580s [00:53:00.239] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1580s [00:53:00.239] NULL) 1580s [00:53:00.239] if (is_error) { 1580s [00:53:00.239] sessionInformation <- function() { 1580s [00:53:00.239] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1580s [00:53:00.239] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1580s [00:53:00.239] search = base::search(), system = base::Sys.info()) 1580s [00:53:00.239] } 1580s [00:53:00.239] ...future.conditions[[length(...future.conditions) + 1580s [00:53:00.239] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1580s [00:53:00.239] cond$call), session = sessionInformation(), 1580s [00:53:00.239] timestamp = base::Sys.time(), signaled = 0L) 1580s [00:53:00.239] signalCondition(cond) 1580s [00:53:00.239] } 1580s [00:53:00.239] else if (!ignore && TRUE && inherits(cond, c("condition", 1580s [00:53:00.239] "immediateCondition"))) { 1580s [00:53:00.239] signal <- TRUE && inherits(cond, "immediateCondition") 1580s [00:53:00.239] ...future.conditions[[length(...future.conditions) + 1580s [00:53:00.239] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1580s [00:53:00.239] if (TRUE && !signal) { 1580s [00:53:00.239] muffleCondition <- function (cond, pattern = "^muffle") 1580s [00:53:00.239] { 1580s [00:53:00.239] inherits <- base::inherits 1580s [00:53:00.239] invokeRestart <- base::invokeRestart 1580s [00:53:00.239] is.null <- base::is.null 1580s [00:53:00.239] muffled <- FALSE 1580s [00:53:00.239] if (inherits(cond, "message")) { 1580s [00:53:00.239] muffled <- grepl(pattern, "muffleMessage") 1580s [00:53:00.239] if (muffled) 1580s [00:53:00.239] invokeRestart("muffleMessage") 1580s [00:53:00.239] } 1580s [00:53:00.239] else if (inherits(cond, "warning")) { 1580s [00:53:00.239] muffled <- grepl(pattern, "muffleWarning") 1580s [00:53:00.239] if (muffled) 1580s [00:53:00.239] invokeRestart("muffleWarning") 1580s [00:53:00.239] } 1580s [00:53:00.239] else if (inherits(cond, "condition")) { 1580s [00:53:00.239] if (!is.null(pattern)) { 1580s [00:53:00.239] computeRestarts <- base::computeRestarts 1580s [00:53:00.239] grepl <- base::grepl 1580s [00:53:00.239] restarts <- computeRestarts(cond) 1580s [00:53:00.239] for (restart in restarts) { 1580s [00:53:00.239] name <- restart$name 1580s [00:53:00.239] if (is.null(name)) 1580s [00:53:00.239] next 1580s [00:53:00.239] if (!grepl(pattern, name)) 1580s [00:53:00.239] next 1580s [00:53:00.239] invokeRestart(restart) 1580s [00:53:00.239] muffled <- TRUE 1580s [00:53:00.239] break 1580s [00:53:00.239] } 1580s [00:53:00.239] } 1580s [00:53:00.239] } 1580s [00:53:00.239] invisible(muffled) 1580s [00:53:00.239] } 1580s [00:53:00.239] muffleCondition(cond, pattern = "^muffle") 1580s [00:53:00.239] } 1580s [00:53:00.239] } 1580s [00:53:00.239] else { 1580s [00:53:00.239] if (TRUE) { 1580s [00:53:00.239] muffleCondition <- function (cond, pattern = "^muffle") 1580s [00:53:00.239] { 1580s [00:53:00.239] inherits <- base::inherits 1580s [00:53:00.239] invokeRestart <- base::invokeRestart 1580s [00:53:00.239] is.null <- base::is.null 1580s [00:53:00.239] muffled <- FALSE 1580s [00:53:00.239] if (inherits(cond, "message")) { 1580s [00:53:00.239] muffled <- grepl(pattern, "muffleMessage") 1580s [00:53:00.239] if (muffled) 1580s [00:53:00.239] invokeRestart("muffleMessage") 1580s [00:53:00.239] } 1580s [00:53:00.239] else if (inherits(cond, "warning")) { 1580s [00:53:00.239] muffled <- grepl(pattern, "muffleWarning") 1580s [00:53:00.239] if (muffled) 1580s [00:53:00.239] invokeRestart("muffleWarning") 1580s [00:53:00.239] } 1580s [00:53:00.239] else if (inherits(cond, "condition")) { 1580s [00:53:00.239] if (!is.null(pattern)) { 1580s [00:53:00.239] computeRestarts <- base::computeRestarts 1580s [00:53:00.239] grepl <- base::grepl 1580s [00:53:00.239] restarts <- computeRestarts(cond) 1580s [00:53:00.239] for (restart in restarts) { 1580s [00:53:00.239] name <- restart$name 1580s [00:53:00.239] if (is.null(name)) 1580s [00:53:00.239] next 1580s [00:53:00.239] if (!grepl(pattern, name)) 1580s [00:53:00.239] next 1580s [00:53:00.239] invokeRestart(restart) 1580s [00:53:00.239] muffled <- TRUE 1580s [00:53:00.239] break 1580s [00:53:00.239] } 1580s [00:53:00.239] } 1580s [00:53:00.239] } 1580s [00:53:00.239] invisible(muffled) 1580s [00:53:00.239] } 1580s [00:53:00.239] muffleCondition(cond, pattern = "^muffle") 1580s [00:53:00.239] } 1580s [00:53:00.239] } 1580s [00:53:00.239] } 1580s [00:53:00.239] })) 1580s [00:53:00.239] }, error = function(ex) { 1580s [00:53:00.239] base::structure(base::list(value = NULL, visible = NULL, 1580s [00:53:00.239] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1580s [00:53:00.239] ...future.rng), started = ...future.startTime, 1580s [00:53:00.239] finished = Sys.time(), session_uuid = NA_character_, 1580s [00:53:00.239] version = "1.8"), class = "FutureResult") 1580s [00:53:00.239] }, finally = { 1580s [00:53:00.239] if (!identical(...future.workdir, getwd())) 1580s [00:53:00.239] setwd(...future.workdir) 1580s [00:53:00.239] { 1580s [00:53:00.239] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1580s [00:53:00.239] ...future.oldOptions$nwarnings <- NULL 1580s [00:53:00.239] } 1580s [00:53:00.239] base::options(...future.oldOptions) 1580s [00:53:00.239] if (.Platform$OS.type == "windows") { 1580s [00:53:00.239] old_names <- names(...future.oldEnvVars) 1580s [00:53:00.239] envs <- base::Sys.getenv() 1580s [00:53:00.239] names <- names(envs) 1580s [00:53:00.239] common <- intersect(names, old_names) 1580s [00:53:00.239] added <- setdiff(names, old_names) 1580s [00:53:00.239] removed <- setdiff(old_names, names) 1580s [00:53:00.239] changed <- common[...future.oldEnvVars[common] != 1580s [00:53:00.239] envs[common]] 1580s [00:53:00.239] NAMES <- toupper(changed) 1580s [00:53:00.239] args <- list() 1580s [00:53:00.239] for (kk in seq_along(NAMES)) { 1580s [00:53:00.239] name <- changed[[kk]] 1580s [00:53:00.239] NAME <- NAMES[[kk]] 1580s [00:53:00.239] if (name != NAME && is.element(NAME, old_names)) 1580s [00:53:00.239] next 1580s [00:53:00.239] args[[name]] <- ...future.oldEnvVars[[name]] 1580s [00:53:00.239] } 1580s [00:53:00.239] NAMES <- toupper(added) 1580s [00:53:00.239] for (kk in seq_along(NAMES)) { 1580s [00:53:00.239] name <- added[[kk]] 1580s [00:53:00.239] NAME <- NAMES[[kk]] 1580s [00:53:00.239] if (name != NAME && is.element(NAME, old_names)) 1580s [00:53:00.239] next 1580s [00:53:00.239] args[[name]] <- "" 1580s [00:53:00.239] } 1580s [00:53:00.239] NAMES <- toupper(removed) 1580s [00:53:00.239] for (kk in seq_along(NAMES)) { 1580s [00:53:00.239] name <- removed[[kk]] 1580s [00:53:00.239] NAME <- NAMES[[kk]] 1580s [00:53:00.239] if (name != NAME && is.element(NAME, old_names)) 1580s [00:53:00.239] next 1580s [00:53:00.239] args[[name]] <- ...future.oldEnvVars[[name]] 1580s [00:53:00.239] } 1580s [00:53:00.239] if (length(args) > 0) 1580s [00:53:00.239] base::do.call(base::Sys.setenv, args = args) 1580s [00:53:00.239] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1580s [00:53:00.239] } 1580s [00:53:00.239] else { 1580s [00:53:00.239] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1580s [00:53:00.239] } 1580s [00:53:00.239] { 1580s [00:53:00.239] if (base::length(...future.futureOptionsAdded) > 1580s [00:53:00.239] 0L) { 1580s [00:53:00.239] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1580s [00:53:00.239] base::names(opts) <- ...future.futureOptionsAdded 1580s [00:53:00.239] base::options(opts) 1580s [00:53:00.239] } 1580s [00:53:00.239] { 1580s [00:53:00.239] { 1580s [00:53:00.239] NULL 1580s [00:53:00.239] RNGkind("Mersenne-Twister") 1580s [00:53:00.239] base::rm(list = ".Random.seed", envir = base::globalenv(), 1580s [00:53:00.239] inherits = FALSE) 1580s [00:53:00.239] } 1580s [00:53:00.239] options(future.plan = NULL) 1580s [00:53:00.239] if (is.na(NA_character_)) 1580s [00:53:00.239] Sys.unsetenv("R_FUTURE_PLAN") 1580s [00:53:00.239] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1580s [00:53:00.239] future::plan(list(function (..., workers = availableCores(), 1580s [00:53:00.239] lazy = FALSE, rscript_libs = .libPaths(), 1580s [00:53:00.239] envir = parent.frame()) 1580s [00:53:00.239] { 1580s [00:53:00.239] if (is.function(workers)) 1580s [00:53:00.239] workers <- workers() 1580s [00:53:00.239] workers <- structure(as.integer(workers), 1580s [00:53:00.239] class = class(workers)) 1580s [00:53:00.239] stop_if_not(length(workers) == 1, is.finite(workers), 1580s [00:53:00.239] workers >= 1) 1580s [00:53:00.239] if (workers == 1L && !inherits(workers, "AsIs")) { 1580s [00:53:00.239] return(sequential(..., lazy = TRUE, envir = envir)) 1580s [00:53:00.239] } 1580s [00:53:00.239] future <- MultisessionFuture(..., workers = workers, 1580s [00:53:00.239] lazy = lazy, rscript_libs = rscript_libs, 1580s [00:53:00.239] envir = envir) 1580s [00:53:00.239] if (!future$lazy) 1580s [00:53:00.239] future <- run(future) 1580s [00:53:00.239] invisible(future) 1580s [00:53:00.239] }), .cleanup = FALSE, .init = FALSE) 1580s [00:53:00.239] } 1580s [00:53:00.239] } 1580s [00:53:00.239] } 1580s [00:53:00.239] }) 1580s [00:53:00.239] if (TRUE) { 1580s [00:53:00.239] base::sink(type = "output", split = FALSE) 1580s [00:53:00.239] if (TRUE) { 1580s [00:53:00.239] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1580s [00:53:00.239] } 1580s [00:53:00.239] else { 1580s [00:53:00.239] ...future.result["stdout"] <- base::list(NULL) 1580s [00:53:00.239] } 1580s [00:53:00.239] base::close(...future.stdout) 1580s [00:53:00.239] ...future.stdout <- NULL 1580s [00:53:00.239] } 1580s [00:53:00.239] ...future.result$conditions <- ...future.conditions 1580s [00:53:00.239] ...future.result$finished <- base::Sys.time() 1580s [00:53:00.239] ...future.result 1580s [00:53:00.239] } 1580s [00:53:00.247] assign_globals() ... 1580s [00:53:00.247] List of 5 1580s [00:53:00.247] $ ...future.FUN :function (x, ...) 1580s [00:53:00.247] $ future.call.arguments : list() 1580s [00:53:00.247] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1580s [00:53:00.247] $ ...future.elements_ii :List of 3 1580s [00:53:00.247] ..$ a: num 1 1580s [00:53:00.247] ..$ b: num 2 1580s [00:53:00.247] ..$ c: num 3 1580s [00:53:00.247] $ ...future.seeds_ii : NULL 1580s [00:53:00.247] $ ...future.globals.maxSize: NULL 1580s [00:53:00.247] - attr(*, "where")=List of 5 1580s [00:53:00.247] ..$ ...future.FUN : 1580s [00:53:00.247] ..$ future.call.arguments : 1580s [00:53:00.247] ..$ ...future.elements_ii : 1580s [00:53:00.247] ..$ ...future.seeds_ii : 1580s [00:53:00.247] ..$ ...future.globals.maxSize: 1580s [00:53:00.247] - attr(*, "resolved")= logi FALSE 1580s [00:53:00.247] - attr(*, "total_size")= num 1248 1580s [00:53:00.247] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1580s [00:53:00.247] - attr(*, "already-done")= logi TRUE 1580s [00:53:00.258] - copied ‘...future.FUN’ to environment 1580s [00:53:00.258] - copied ‘future.call.arguments’ to environment 1580s [00:53:00.258] - copied ‘...future.elements_ii’ to environment 1580s [00:53:00.258] - copied ‘...future.seeds_ii’ to environment 1580s [00:53:00.258] - copied ‘...future.globals.maxSize’ to environment 1580s [00:53:00.259] assign_globals() ... done 1580s [00:53:00.259] plan(): Setting new future strategy stack: 1580s [00:53:00.259] List of future strategies: 1580s [00:53:00.259] 1. sequential: 1580s [00:53:00.259] - args: function (..., envir = parent.frame()) 1580s [00:53:00.259] - tweaked: FALSE 1580s [00:53:00.259] - call: NULL 1580s [00:53:00.260] plan(): nbrOfWorkers() = 1 1580s [00:53:00.261] plan(): Setting new future strategy stack: 1580s [00:53:00.261] List of future strategies: 1580s [00:53:00.261] 1. multisession: 1580s [00:53:00.261] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1580s [00:53:00.261] - tweaked: FALSE 1580s [00:53:00.261] - call: plan(strategy) 1580s [00:53:00.265] plan(): nbrOfWorkers() = 1 1580s [00:53:00.265] SequentialFuture started (and completed) 1580s [00:53:00.266] - Launch lazy future ... done 1580s [00:53:00.266] run() for ‘SequentialFuture’ ... done 1580s [00:53:00.266] Created future: 1580s List of 2 1580s $ y0: Named num [1:3] 1 2 3 1580s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1580s $ y1: Named num [1:3] 1 2 3 1580s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1580s [00:53:00.266] SequentialFuture: 1580s [00:53:00.266] Label: ‘future_sapply-1’ 1580s [00:53:00.266] Expression: 1580s [00:53:00.266] { 1580s [00:53:00.266] do.call(function(...) { 1580s [00:53:00.266] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1580s [00:53:00.266] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1580s [00:53:00.266] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1580s [00:53:00.266] on.exit(options(oopts), add = TRUE) 1580s [00:53:00.266] } 1580s [00:53:00.266] { 1580s [00:53:00.266] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1580s [00:53:00.266] ...future.X_jj <- ...future.elements_ii[[jj]] 1580s [00:53:00.266] ...future.FUN(...future.X_jj, ...) 1580s [00:53:00.266] }) 1580s [00:53:00.266] } 1580s [00:53:00.266] }, args = future.call.arguments) 1580s [00:53:00.266] } 1580s [00:53:00.266] Lazy evaluation: FALSE 1580s [00:53:00.266] Asynchronous evaluation: FALSE 1580s [00:53:00.266] Local evaluation: TRUE 1580s [00:53:00.266] Environment: R_GlobalEnv 1580s [00:53:00.266] Capture standard output: TRUE 1580s [00:53:00.266] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1580s [00:53:00.266] Globals: 5 objects totaling 1.38 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1580s [00:53:00.266] Packages: 1580s [00:53:00.266] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1580s [00:53:00.266] Resolved: TRUE 1580s [00:53:00.266] Value: 672 bytes of class ‘list’ 1580s [00:53:00.266] Early signaling: FALSE 1580s [00:53:00.266] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1580s [00:53:00.266] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1580s [00:53:00.268] Chunk #1 of 1 ... DONE 1580s [00:53:00.268] Launching 1 futures (chunks) ... DONE 1580s [00:53:00.268] Resolving 1 futures (chunks) ... 1580s [00:53:00.268] resolve() on list ... 1580s [00:53:00.268] recursive: 0 1580s [00:53:00.269] length: 1 1580s [00:53:00.269] 1580s [00:53:00.269] resolved() for ‘SequentialFuture’ ... 1580s [00:53:00.269] - state: ‘finished’ 1580s [00:53:00.269] - run: TRUE 1580s [00:53:00.269] - result: ‘FutureResult’ 1580s [00:53:00.270] resolved() for ‘SequentialFuture’ ... done 1580s [00:53:00.270] Future #1 1580s [00:53:00.270] signalConditionsASAP(SequentialFuture, pos=1) ... 1580s [00:53:00.270] - nx: 1 1580s [00:53:00.270] - relay: TRUE 1580s [00:53:00.271] - stdout: TRUE 1580s [00:53:00.271] - signal: TRUE 1580s [00:53:00.271] - resignal: FALSE 1580s [00:53:00.271] - force: TRUE 1580s [00:53:00.271] - relayed: [n=1] FALSE 1580s [00:53:00.271] - queued futures: [n=1] FALSE 1580s [00:53:00.272] - until=1 1580s [00:53:00.272] - relaying element #1 1580s [00:53:00.272] - relayed: [n=1] TRUE 1580s [00:53:00.272] - queued futures: [n=1] TRUE 1580s [00:53:00.273] signalConditionsASAP(SequentialFuture, pos=1) ... done 1580s [00:53:00.273] length: 0 (resolved future 1) 1580s [00:53:00.273] Relaying remaining futures 1580s [00:53:00.273] signalConditionsASAP(NULL, pos=0) ... 1580s [00:53:00.273] - nx: 1 1580s [00:53:00.273] - relay: TRUE 1580s [00:53:00.273] - stdout: TRUE 1580s [00:53:00.274] - signal: TRUE 1580s [00:53:00.274] - resignal: FALSE 1580s [00:53:00.274] - force: TRUE 1580s [00:53:00.274] - relayed: [n=1] TRUE 1580s [00:53:00.274] - queued futures: [n=1] TRUE 1580s - flush all 1580s [00:53:00.274] - relayed: [n=1] TRUE 1580s [00:53:00.275] - queued futures: [n=1] TRUE 1580s [00:53:00.275] signalConditionsASAP(NULL, pos=0) ... done 1580s [00:53:00.275] resolve() on list ... DONE 1580s [00:53:00.275] - Number of value chunks collected: 1 1580s [00:53:00.275] Resolving 1 futures (chunks) ... DONE 1580s [00:53:00.275] Reducing values from 1 chunks ... 1580s [00:53:00.276] - Number of values collected after concatenation: 3 1580s [00:53:00.276] - Number of values expected: 3 1580s [00:53:00.276] Reducing values from 1 chunks ... DONE 1580s [00:53:00.276] future_lapply() ... DONE 1580s [00:53:00.279] future_lapply() ... 1580s [00:53:00.284] Number of chunks: 1 1580s [00:53:00.284] getGlobalsAndPackagesXApply() ... 1580s [00:53:00.284] - future.globals: TRUE 1580s [00:53:00.284] getGlobalsAndPackages() ... 1580s [00:53:00.285] Searching for globals... 1580s [00:53:00.286] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1580s [00:53:00.287] Searching for globals ... DONE 1580s [00:53:00.287] Resolving globals: FALSE 1580s [00:53:00.287] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1580s [00:53:00.288] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1580s [00:53:00.288] - globals: [1] ‘FUN’ 1580s [00:53:00.288] 1580s [00:53:00.288] getGlobalsAndPackages() ... DONE 1580s [00:53:00.289] - globals found/used: [n=1] ‘FUN’ 1580s [00:53:00.289] - needed namespaces: [n=0] 1580s [00:53:00.289] Finding globals ... DONE 1580s [00:53:00.289] - use_args: TRUE 1580s [00:53:00.289] - Getting '...' globals ... 1580s [00:53:00.290] resolve() on list ... 1580s [00:53:00.290] recursive: 0 1580s [00:53:00.290] length: 1 1580s [00:53:00.290] elements: ‘...’ 1580s [00:53:00.290] length: 0 (resolved future 1) 1580s [00:53:00.290] resolve() on list ... DONE 1580s [00:53:00.290] - '...' content: [n=0] 1580s [00:53:00.291] List of 1 1580s [00:53:00.291] $ ...: list() 1580s [00:53:00.291] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1580s [00:53:00.291] - attr(*, "where")=List of 1 1580s [00:53:00.291] ..$ ...: 1580s [00:53:00.291] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1580s [00:53:00.291] - attr(*, "resolved")= logi TRUE 1580s [00:53:00.291] - attr(*, "total_size")= num NA 1580s [00:53:00.294] - Getting '...' globals ... DONE 1580s [00:53:00.294] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1580s [00:53:00.294] List of 2 1580s [00:53:00.294] $ ...future.FUN:function (x, y = 2 * 1:5) 1580s [00:53:00.294] $ ... : list() 1580s [00:53:00.294] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1580s [00:53:00.294] - attr(*, "where")=List of 2 1580s [00:53:00.294] ..$ ...future.FUN: 1580s [00:53:00.294] ..$ ... : 1580s [00:53:00.294] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1580s [00:53:00.294] - attr(*, "resolved")= logi FALSE 1580s [00:53:00.294] - attr(*, "total_size")= num 4728 1580s [00:53:00.298] Packages to be attached in all futures: [n=0] 1580s [00:53:00.299] getGlobalsAndPackagesXApply() ... DONE 1580s [00:53:00.299] Number of futures (= number of chunks): 1 1580s [00:53:00.300] Launching 1 futures (chunks) ... 1580s [00:53:00.300] Chunk #1 of 1 ... 1580s [00:53:00.300] - Finding globals in 'X' for chunk #1 ... 1580s [00:53:00.300] getGlobalsAndPackages() ... 1580s [00:53:00.300] Searching for globals... 1580s [00:53:00.301] 1580s [00:53:00.301] Searching for globals ... DONE 1580s [00:53:00.301] - globals: [0] 1580s [00:53:00.301] getGlobalsAndPackages() ... DONE 1580s [00:53:00.301] + additional globals found: [n=0] 1580s [00:53:00.301] + additional namespaces needed: [n=0] 1580s [00:53:00.301] - Finding globals in 'X' for chunk #1 ... DONE 1580s [00:53:00.302] - seeds: 1580s [00:53:00.302] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1580s [00:53:00.302] getGlobalsAndPackages() ... 1580s [00:53:00.302] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1580s [00:53:00.302] Resolving globals: FALSE 1580s [00:53:00.303] Tweak future expression to call with '...' arguments ... 1580s [00:53:00.303] { 1580s [00:53:00.303] do.call(function(...) { 1580s [00:53:00.303] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1580s [00:53:00.303] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1580s [00:53:00.303] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1580s [00:53:00.303] on.exit(options(oopts), add = TRUE) 1580s [00:53:00.303] } 1580s [00:53:00.303] { 1580s [00:53:00.303] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1580s [00:53:00.303] ...future.X_jj <- ...future.elements_ii[[jj]] 1580s [00:53:00.303] ...future.FUN(...future.X_jj, ...) 1580s [00:53:00.303] }) 1580s [00:53:00.303] } 1580s [00:53:00.303] }, args = future.call.arguments) 1580s [00:53:00.303] } 1580s [00:53:00.303] Tweak future expression to call with '...' arguments ... DONE 1580s [00:53:00.304] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1580s [00:53:00.304] 1580s [00:53:00.304] getGlobalsAndPackages() ... DONE 1580s [00:53:00.304] run() for ‘Future’ ... 1580s [00:53:00.305] - state: ‘created’ 1580s [00:53:00.305] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1580s [00:53:00.309] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1580s [00:53:00.309] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1580s [00:53:00.310] - Field: ‘label’ 1580s [00:53:00.310] - Field: ‘local’ 1580s [00:53:00.310] - Field: ‘owner’ 1580s [00:53:00.310] - Field: ‘envir’ 1580s [00:53:00.311] - Field: ‘packages’ 1580s [00:53:00.311] - Field: ‘gc’ 1580s [00:53:00.311] - Field: ‘conditions’ 1580s [00:53:00.311] - Field: ‘expr’ 1580s [00:53:00.312] - Field: ‘uuid’ 1580s [00:53:00.312] - Field: ‘seed’ 1580s [00:53:00.312] - Field: ‘version’ 1580s [00:53:00.312] - Field: ‘result’ 1580s [00:53:00.312] - Field: ‘asynchronous’ 1580s [00:53:00.313] - Field: ‘calls’ 1580s [00:53:00.313] - Field: ‘globals’ 1580s [00:53:00.313] - Field: ‘stdout’ 1580s [00:53:00.313] - Field: ‘earlySignal’ 1580s [00:53:00.313] - Field: ‘lazy’ 1580s [00:53:00.314] - Field: ‘state’ 1580s [00:53:00.314] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1580s [00:53:00.314] - Launch lazy future ... 1580s [00:53:00.314] Packages needed by the future expression (n = 0): 1580s [00:53:00.315] Packages needed by future strategies (n = 0): 1580s [00:53:00.316] { 1580s [00:53:00.316] { 1580s [00:53:00.316] { 1580s [00:53:00.316] ...future.startTime <- base::Sys.time() 1580s [00:53:00.316] { 1580s [00:53:00.316] { 1580s [00:53:00.316] { 1580s [00:53:00.316] base::local({ 1580s [00:53:00.316] has_future <- base::requireNamespace("future", 1580s [00:53:00.316] quietly = TRUE) 1580s [00:53:00.316] if (has_future) { 1580s [00:53:00.316] ns <- base::getNamespace("future") 1580s [00:53:00.316] version <- ns[[".package"]][["version"]] 1580s [00:53:00.316] if (is.null(version)) 1580s [00:53:00.316] version <- utils::packageVersion("future") 1580s [00:53:00.316] } 1580s [00:53:00.316] else { 1580s [00:53:00.316] version <- NULL 1580s [00:53:00.316] } 1580s [00:53:00.316] if (!has_future || version < "1.8.0") { 1580s [00:53:00.316] info <- base::c(r_version = base::gsub("R version ", 1580s [00:53:00.316] "", base::R.version$version.string), 1580s [00:53:00.316] platform = base::sprintf("%s (%s-bit)", 1580s [00:53:00.316] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1580s [00:53:00.316] os = base::paste(base::Sys.info()[base::c("sysname", 1580s [00:53:00.316] "release", "version")], collapse = " "), 1580s [00:53:00.316] hostname = base::Sys.info()[["nodename"]]) 1580s [00:53:00.316] info <- base::sprintf("%s: %s", base::names(info), 1580s [00:53:00.316] info) 1580s [00:53:00.316] info <- base::paste(info, collapse = "; ") 1580s [00:53:00.316] if (!has_future) { 1580s [00:53:00.316] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1580s [00:53:00.316] info) 1580s [00:53:00.316] } 1580s [00:53:00.316] else { 1580s [00:53:00.316] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1580s [00:53:00.316] info, version) 1580s [00:53:00.316] } 1580s [00:53:00.316] base::stop(msg) 1580s [00:53:00.316] } 1580s [00:53:00.316] }) 1580s [00:53:00.316] } 1580s [00:53:00.316] options(future.plan = NULL) 1580s [00:53:00.316] Sys.unsetenv("R_FUTURE_PLAN") 1580s [00:53:00.316] future::plan("default", .cleanup = FALSE, .init = FALSE) 1580s [00:53:00.316] } 1580s [00:53:00.316] ...future.workdir <- getwd() 1580s [00:53:00.316] } 1580s [00:53:00.316] ...future.oldOptions <- base::as.list(base::.Options) 1580s [00:53:00.316] ...future.oldEnvVars <- base::Sys.getenv() 1580s [00:53:00.316] } 1580s [00:53:00.316] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1580s [00:53:00.316] future.globals.maxSize = NULL, future.globals.method = NULL, 1580s [00:53:00.316] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1580s [00:53:00.316] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1580s [00:53:00.316] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1580s [00:53:00.316] future.stdout.windows.reencode = NULL, width = 80L) 1580s [00:53:00.316] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1580s [00:53:00.316] base::names(...future.oldOptions)) 1580s [00:53:00.316] } 1580s [00:53:00.316] if (FALSE) { 1580s [00:53:00.316] } 1580s [00:53:00.316] else { 1580s [00:53:00.316] if (TRUE) { 1580s [00:53:00.316] ...future.stdout <- base::rawConnection(base::raw(0L), 1580s [00:53:00.316] open = "w") 1580s [00:53:00.316] } 1580s [00:53:00.316] else { 1580s [00:53:00.316] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1580s [00:53:00.316] windows = "NUL", "/dev/null"), open = "w") 1580s [00:53:00.316] } 1580s [00:53:00.316] base::sink(...future.stdout, type = "output", split = FALSE) 1580s [00:53:00.316] base::on.exit(if (!base::is.null(...future.stdout)) { 1580s [00:53:00.316] base::sink(type = "output", split = FALSE) 1580s [00:53:00.316] base::close(...future.stdout) 1580s [00:53:00.316] }, add = TRUE) 1580s [00:53:00.316] } 1580s [00:53:00.316] ...future.frame <- base::sys.nframe() 1580s [00:53:00.316] ...future.conditions <- base::list() 1580s [00:53:00.316] ...future.rng <- base::globalenv()$.Random.seed 1580s [00:53:00.316] if (FALSE) { 1580s [00:53:00.316] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1580s [00:53:00.316] "...future.value", "...future.globalenv.names", ".Random.seed") 1580s [00:53:00.316] } 1580s [00:53:00.316] ...future.result <- base::tryCatch({ 1580s [00:53:00.316] base::withCallingHandlers({ 1580s [00:53:00.316] ...future.value <- base::withVisible(base::local({ 1580s [00:53:00.316] do.call(function(...) { 1580s [00:53:00.316] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1580s [00:53:00.316] if (!identical(...future.globals.maxSize.org, 1580s [00:53:00.316] ...future.globals.maxSize)) { 1580s [00:53:00.316] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1580s [00:53:00.316] on.exit(options(oopts), add = TRUE) 1580s [00:53:00.316] } 1580s [00:53:00.316] { 1580s [00:53:00.316] lapply(seq_along(...future.elements_ii), 1580s [00:53:00.316] FUN = function(jj) { 1580s [00:53:00.316] ...future.X_jj <- ...future.elements_ii[[jj]] 1580s [00:53:00.316] ...future.FUN(...future.X_jj, ...) 1580s [00:53:00.316] }) 1580s [00:53:00.316] } 1580s [00:53:00.316] }, args = future.call.arguments) 1580s [00:53:00.316] })) 1580s [00:53:00.316] future::FutureResult(value = ...future.value$value, 1580s [00:53:00.316] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1580s [00:53:00.316] ...future.rng), globalenv = if (FALSE) 1580s [00:53:00.316] list(added = base::setdiff(base::names(base::.GlobalEnv), 1580s [00:53:00.316] ...future.globalenv.names)) 1580s [00:53:00.316] else NULL, started = ...future.startTime, version = "1.8") 1580s [00:53:00.316] }, condition = base::local({ 1580s [00:53:00.316] c <- base::c 1580s [00:53:00.316] inherits <- base::inherits 1580s [00:53:00.316] invokeRestart <- base::invokeRestart 1580s [00:53:00.316] length <- base::length 1580s [00:53:00.316] list <- base::list 1580s [00:53:00.316] seq.int <- base::seq.int 1580s [00:53:00.316] signalCondition <- base::signalCondition 1580s [00:53:00.316] sys.calls <- base::sys.calls 1580s [00:53:00.316] `[[` <- base::`[[` 1580s [00:53:00.316] `+` <- base::`+` 1580s [00:53:00.316] `<<-` <- base::`<<-` 1580s [00:53:00.316] sysCalls <- function(calls = sys.calls(), from = 1L) { 1580s [00:53:00.316] calls[seq.int(from = from + 12L, to = length(calls) - 1580s [00:53:00.316] 3L)] 1580s [00:53:00.316] } 1580s [00:53:00.316] function(cond) { 1580s [00:53:00.316] is_error <- inherits(cond, "error") 1580s [00:53:00.316] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1580s [00:53:00.316] NULL) 1580s [00:53:00.316] if (is_error) { 1580s [00:53:00.316] sessionInformation <- function() { 1580s [00:53:00.316] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1580s [00:53:00.316] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1580s [00:53:00.316] search = base::search(), system = base::Sys.info()) 1580s [00:53:00.316] } 1580s [00:53:00.316] ...future.conditions[[length(...future.conditions) + 1580s [00:53:00.316] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1580s [00:53:00.316] cond$call), session = sessionInformation(), 1580s [00:53:00.316] timestamp = base::Sys.time(), signaled = 0L) 1580s [00:53:00.316] signalCondition(cond) 1580s [00:53:00.316] } 1580s [00:53:00.316] else if (!ignore && TRUE && inherits(cond, c("condition", 1580s [00:53:00.316] "immediateCondition"))) { 1580s [00:53:00.316] signal <- TRUE && inherits(cond, "immediateCondition") 1580s [00:53:00.316] ...future.conditions[[length(...future.conditions) + 1580s [00:53:00.316] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1580s [00:53:00.316] if (TRUE && !signal) { 1580s [00:53:00.316] muffleCondition <- function (cond, pattern = "^muffle") 1580s [00:53:00.316] { 1580s [00:53:00.316] inherits <- base::inherits 1580s [00:53:00.316] invokeRestart <- base::invokeRestart 1580s [00:53:00.316] is.null <- base::is.null 1580s [00:53:00.316] muffled <- FALSE 1580s [00:53:00.316] if (inherits(cond, "message")) { 1580s [00:53:00.316] muffled <- grepl(pattern, "muffleMessage") 1580s [00:53:00.316] if (muffled) 1580s [00:53:00.316] invokeRestart("muffleMessage") 1580s [00:53:00.316] } 1580s [00:53:00.316] else if (inherits(cond, "warning")) { 1580s [00:53:00.316] muffled <- grepl(pattern, "muffleWarning") 1580s [00:53:00.316] if (muffled) 1580s [00:53:00.316] invokeRestart("muffleWarning") 1580s [00:53:00.316] } 1580s [00:53:00.316] else if (inherits(cond, "condition")) { 1580s [00:53:00.316] if (!is.null(pattern)) { 1580s [00:53:00.316] computeRestarts <- base::computeRestarts 1580s [00:53:00.316] grepl <- base::grepl 1580s [00:53:00.316] restarts <- computeRestarts(cond) 1580s [00:53:00.316] for (restart in restarts) { 1580s [00:53:00.316] name <- restart$name 1580s [00:53:00.316] if (is.null(name)) 1580s [00:53:00.316] next 1580s [00:53:00.316] if (!grepl(pattern, name)) 1580s [00:53:00.316] next 1580s [00:53:00.316] invokeRestart(restart) 1580s [00:53:00.316] muffled <- TRUE 1580s [00:53:00.316] break 1580s [00:53:00.316] } 1580s [00:53:00.316] } 1580s [00:53:00.316] } 1580s [00:53:00.316] invisible(muffled) 1580s [00:53:00.316] } 1580s [00:53:00.316] muffleCondition(cond, pattern = "^muffle") 1580s [00:53:00.316] } 1580s [00:53:00.316] } 1580s [00:53:00.316] else { 1580s [00:53:00.316] if (TRUE) { 1580s [00:53:00.316] muffleCondition <- function (cond, pattern = "^muffle") 1580s [00:53:00.316] { 1580s [00:53:00.316] inherits <- base::inherits 1580s [00:53:00.316] invokeRestart <- base::invokeRestart 1580s [00:53:00.316] is.null <- base::is.null 1580s [00:53:00.316] muffled <- FALSE 1580s [00:53:00.316] if (inherits(cond, "message")) { 1580s [00:53:00.316] muffled <- grepl(pattern, "muffleMessage") 1580s [00:53:00.316] if (muffled) 1580s [00:53:00.316] invokeRestart("muffleMessage") 1580s [00:53:00.316] } 1580s [00:53:00.316] else if (inherits(cond, "warning")) { 1580s [00:53:00.316] muffled <- grepl(pattern, "muffleWarning") 1580s [00:53:00.316] if (muffled) 1580s [00:53:00.316] invokeRestart("muffleWarning") 1580s [00:53:00.316] } 1580s [00:53:00.316] else if (inherits(cond, "condition")) { 1580s [00:53:00.316] if (!is.null(pattern)) { 1580s [00:53:00.316] computeRestarts <- base::computeRestarts 1580s [00:53:00.316] grepl <- base::grepl 1580s [00:53:00.316] restarts <- computeRestarts(cond) 1580s [00:53:00.316] for (restart in restarts) { 1580s [00:53:00.316] name <- restart$name 1580s [00:53:00.316] if (is.null(name)) 1580s [00:53:00.316] next 1580s [00:53:00.316] if (!grepl(pattern, name)) 1580s [00:53:00.316] next 1580s [00:53:00.316] invokeRestart(restart) 1580s [00:53:00.316] muffled <- TRUE 1580s [00:53:00.316] break 1580s [00:53:00.316] } 1580s [00:53:00.316] } 1580s [00:53:00.316] } 1580s [00:53:00.316] invisible(muffled) 1580s [00:53:00.316] } 1580s [00:53:00.316] muffleCondition(cond, pattern = "^muffle") 1580s [00:53:00.316] } 1580s [00:53:00.316] } 1580s [00:53:00.316] } 1580s [00:53:00.316] })) 1580s [00:53:00.316] }, error = function(ex) { 1580s [00:53:00.316] base::structure(base::list(value = NULL, visible = NULL, 1580s [00:53:00.316] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1580s [00:53:00.316] ...future.rng), started = ...future.startTime, 1580s [00:53:00.316] finished = Sys.time(), session_uuid = NA_character_, 1580s [00:53:00.316] version = "1.8"), class = "FutureResult") 1580s [00:53:00.316] }, finally = { 1580s [00:53:00.316] if (!identical(...future.workdir, getwd())) 1580s [00:53:00.316] setwd(...future.workdir) 1580s [00:53:00.316] { 1580s [00:53:00.316] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1580s [00:53:00.316] ...future.oldOptions$nwarnings <- NULL 1580s [00:53:00.316] } 1580s [00:53:00.316] base::options(...future.oldOptions) 1580s [00:53:00.316] if (.Platform$OS.type == "windows") { 1580s [00:53:00.316] old_names <- names(...future.oldEnvVars) 1580s [00:53:00.316] envs <- base::Sys.getenv() 1580s [00:53:00.316] names <- names(envs) 1580s [00:53:00.316] common <- intersect(names, old_names) 1580s [00:53:00.316] added <- setdiff(names, old_names) 1580s [00:53:00.316] removed <- setdiff(old_names, names) 1580s [00:53:00.316] changed <- common[...future.oldEnvVars[common] != 1580s [00:53:00.316] envs[common]] 1580s [00:53:00.316] NAMES <- toupper(changed) 1580s [00:53:00.316] args <- list() 1580s [00:53:00.316] for (kk in seq_along(NAMES)) { 1580s [00:53:00.316] name <- changed[[kk]] 1580s [00:53:00.316] NAME <- NAMES[[kk]] 1580s [00:53:00.316] if (name != NAME && is.element(NAME, old_names)) 1580s [00:53:00.316] next 1580s [00:53:00.316] args[[name]] <- ...future.oldEnvVars[[name]] 1580s [00:53:00.316] } 1580s [00:53:00.316] NAMES <- toupper(added) 1580s [00:53:00.316] for (kk in seq_along(NAMES)) { 1580s [00:53:00.316] name <- added[[kk]] 1580s [00:53:00.316] NAME <- NAMES[[kk]] 1580s [00:53:00.316] if (name != NAME && is.element(NAME, old_names)) 1580s [00:53:00.316] next 1580s [00:53:00.316] args[[name]] <- "" 1580s [00:53:00.316] } 1580s [00:53:00.316] NAMES <- toupper(removed) 1580s [00:53:00.316] for (kk in seq_along(NAMES)) { 1580s [00:53:00.316] name <- removed[[kk]] 1580s [00:53:00.316] NAME <- NAMES[[kk]] 1580s [00:53:00.316] if (name != NAME && is.element(NAME, old_names)) 1580s [00:53:00.316] next 1580s [00:53:00.316] args[[name]] <- ...future.oldEnvVars[[name]] 1580s [00:53:00.316] } 1580s [00:53:00.316] if (length(args) > 0) 1580s [00:53:00.316] base::do.call(base::Sys.setenv, args = args) 1580s [00:53:00.316] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1580s [00:53:00.316] } 1580s [00:53:00.316] else { 1580s [00:53:00.316] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1580s [00:53:00.316] } 1580s [00:53:00.316] { 1580s [00:53:00.316] if (base::length(...future.futureOptionsAdded) > 1580s [00:53:00.316] 0L) { 1580s [00:53:00.316] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1580s [00:53:00.316] base::names(opts) <- ...future.futureOptionsAdded 1580s [00:53:00.316] base::options(opts) 1580s [00:53:00.316] } 1580s [00:53:00.316] { 1580s [00:53:00.316] { 1580s [00:53:00.316] NULL 1580s [00:53:00.316] RNGkind("Mersenne-Twister") 1580s [00:53:00.316] base::rm(list = ".Random.seed", envir = base::globalenv(), 1580s [00:53:00.316] inherits = FALSE) 1580s [00:53:00.316] } 1580s [00:53:00.316] options(future.plan = NULL) 1580s [00:53:00.316] if (is.na(NA_character_)) 1580s [00:53:00.316] Sys.unsetenv("R_FUTURE_PLAN") 1580s [00:53:00.316] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1580s [00:53:00.316] future::plan(list(function (..., workers = availableCores(), 1580s [00:53:00.316] lazy = FALSE, rscript_libs = .libPaths(), 1580s [00:53:00.316] envir = parent.frame()) 1580s [00:53:00.316] { 1580s [00:53:00.316] if (is.function(workers)) 1580s [00:53:00.316] workers <- workers() 1580s [00:53:00.316] workers <- structure(as.integer(workers), 1580s [00:53:00.316] class = class(workers)) 1580s [00:53:00.316] stop_if_not(length(workers) == 1, is.finite(workers), 1580s [00:53:00.316] workers >= 1) 1580s [00:53:00.316] if (workers == 1L && !inherits(workers, "AsIs")) { 1580s [00:53:00.316] return(sequential(..., lazy = TRUE, envir = envir)) 1580s [00:53:00.316] } 1580s [00:53:00.316] future <- MultisessionFuture(..., workers = workers, 1580s [00:53:00.316] lazy = lazy, rscript_libs = rscript_libs, 1580s [00:53:00.316] envir = envir) 1580s [00:53:00.316] if (!future$lazy) 1580s [00:53:00.316] future <- run(future) 1580s [00:53:00.316] invisible(future) 1580s [00:53:00.316] }), .cleanup = FALSE, .init = FALSE) 1580s [00:53:00.316] } 1580s [00:53:00.316] } 1580s [00:53:00.316] } 1580s [00:53:00.316] }) 1580s [00:53:00.316] if (TRUE) { 1580s [00:53:00.316] base::sink(type = "output", split = FALSE) 1580s [00:53:00.316] if (TRUE) { 1580s [00:53:00.316] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1580s [00:53:00.316] } 1580s [00:53:00.316] else { 1580s [00:53:00.316] ...future.result["stdout"] <- base::list(NULL) 1580s [00:53:00.316] } 1580s [00:53:00.316] base::close(...future.stdout) 1580s [00:53:00.316] ...future.stdout <- NULL 1580s [00:53:00.316] } 1580s [00:53:00.316] ...future.result$conditions <- ...future.conditions 1580s [00:53:00.316] ...future.result$finished <- base::Sys.time() 1580s [00:53:00.316] ...future.result 1580s [00:53:00.316] } 1580s [00:53:00.322] assign_globals() ... 1580s [00:53:00.322] List of 5 1580s [00:53:00.322] $ ...future.FUN :function (x, y = 2 * 1:5) 1580s [00:53:00.322] $ future.call.arguments : list() 1580s [00:53:00.322] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1580s [00:53:00.322] $ ...future.elements_ii :List of 3 1580s [00:53:00.322] ..$ a: num 1 1580s [00:53:00.322] ..$ b: num 2 1580s [00:53:00.322] ..$ c: num 3 1580s [00:53:00.322] $ ...future.seeds_ii : NULL 1580s [00:53:00.322] $ ...future.globals.maxSize: NULL 1580s [00:53:00.322] - attr(*, "where")=List of 5 1580s [00:53:00.322] ..$ ...future.FUN : 1580s [00:53:00.322] ..$ future.call.arguments : 1580s [00:53:00.322] ..$ ...future.elements_ii : 1580s [00:53:00.322] ..$ ...future.seeds_ii : 1580s [00:53:00.322] ..$ ...future.globals.maxSize: 1580s [00:53:00.322] - attr(*, "resolved")= logi FALSE 1580s [00:53:00.322] - attr(*, "total_size")= num 4728 1580s [00:53:00.322] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1580s [00:53:00.322] - attr(*, "already-done")= logi TRUE 1580s [00:53:00.333] - reassign environment for ‘...future.FUN’ 1580s [00:53:00.333] - copied ‘...future.FUN’ to environment 1580s [00:53:00.333] - copied ‘future.call.arguments’ to environment 1580s [00:53:00.333] - copied ‘...future.elements_ii’ to environment 1580s [00:53:00.334] - copied ‘...future.seeds_ii’ to environment 1580s [00:53:00.334] - copied ‘...future.globals.maxSize’ to environment 1580s [00:53:00.334] assign_globals() ... done 1580s [00:53:00.334] plan(): Setting new future strategy stack: 1580s [00:53:00.334] List of future strategies: 1580s [00:53:00.334] 1. sequential: 1580s [00:53:00.334] - args: function (..., envir = parent.frame()) 1580s [00:53:00.334] - tweaked: FALSE 1580s [00:53:00.334] - call: NULL 1580s [00:53:00.335] plan(): nbrOfWorkers() = 1 1580s [00:53:00.336] plan(): Setting new future strategy stack: 1580s [00:53:00.336] List of future strategies: 1580s [00:53:00.336] 1. multisession: 1580s [00:53:00.336] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1580s [00:53:00.336] - tweaked: FALSE 1580s [00:53:00.336] - call: plan(strategy) 1580s [00:53:00.339] plan(): nbrOfWorkers() = 1 1580s [00:53:00.340] SequentialFuture started (and completed) 1580s [00:53:00.340] - Launch lazy future ... done 1580s [00:53:00.340] run() for ‘SequentialFuture’ ... done 1580s [00:53:00.340] Created future: 1580s [00:53:00.340] SequentialFuture: 1580s [00:53:00.340] Label: ‘future_sapply-1’ 1580s [00:53:00.340] Expression: 1580s [00:53:00.340] { 1580s [00:53:00.340] do.call(function(...) { 1580s [00:53:00.340] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1580s [00:53:00.340] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1580s [00:53:00.340] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1580s [00:53:00.340] on.exit(options(oopts), add = TRUE) 1580s [00:53:00.340] } 1580s [00:53:00.340] { 1580s [00:53:00.340] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1580s [00:53:00.340] ...future.X_jj <- ...future.elements_ii[[jj]] 1580s [00:53:00.340] ...future.FUN(...future.X_jj, ...) 1580s [00:53:00.340] }) 1580s [00:53:00.340] } 1580s [00:53:00.340] }, args = future.call.arguments) 1580s [00:53:00.340] } 1580s [00:53:00.340] Lazy evaluation: FALSE 1580s [00:53:00.340] Asynchronous evaluation: FALSE 1580s [00:53:00.340] Local evaluation: TRUE 1580s [00:53:00.340] Environment: R_GlobalEnv 1580s [00:53:00.340] Capture standard output: TRUE 1580s [00:53:00.340] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1580s [00:53:00.340] Globals: 5 objects totaling 4.78 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1580s [00:53:00.340] Packages: 1580s [00:53:00.340] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1580s [00:53:00.340] Resolved: TRUE 1580s [00:53:00.340] Value: 1.01 KiB of class ‘list’ 1580s [00:53:00.340] Early signaling: FALSE 1580s [00:53:00.340] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1580s [00:53:00.340] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1580s [00:53:00.343] Chunk #1 of 1 ... DONE 1580s [00:53:00.343] Launching 1 futures (chunks) ... DONE 1580s [00:53:00.343] Resolving 1 futures (chunks) ... 1580s [00:53:00.343] resolve() on list ... 1580s [00:53:00.343] recursive: 0 1580s [00:53:00.344] length: 1 1580s [00:53:00.344] 1580s [00:53:00.344] resolved() for ‘SequentialFuture’ ... 1580s [00:53:00.344] - state: ‘finished’ 1580s [00:53:00.344] - run: TRUE 1580s [00:53:00.345] - result: ‘FutureResult’ 1580s [00:53:00.345] resolved() for ‘SequentialFuture’ ... done 1580s [00:53:00.345] Future #1 1580s [00:53:00.351] signalConditionsASAP(SequentialFuture, pos=1) ... 1580s [00:53:00.352] - nx: 1 1580s [00:53:00.352] - relay: TRUE 1580s [00:53:00.352] - stdout: TRUE 1580s [00:53:00.353] - signal: TRUE 1580s [00:53:00.353] - resignal: FALSE 1580s [00:53:00.353] - force: TRUE 1580s [00:53:00.353] - relayed: [n=1] FALSE 1580s [00:53:00.353] - queued futures: [n=1] FALSE 1580s [00:53:00.354] - until=1 1580s [00:53:00.354] - relaying element #1 1580s [00:53:00.355] - relayed: [n=1] TRUE 1580s [00:53:00.355] - queued futures: [n=1] TRUE 1580s [00:53:00.355] signalConditionsASAP(SequentialFuture, pos=1) ... done 1580s [00:53:00.355] length: 0 (resolved future 1) 1580s [00:53:00.356] Relaying remaining futures 1580s [00:53:00.356] signalConditionsASAP(NULL, pos=0) ... 1580s [00:53:00.356] - nx: 1 1580s [00:53:00.356] - relay: TRUE 1580s [00:53:00.357] - stdout: TRUE 1580s [00:53:00.357] - signal: TRUE 1580s [00:53:00.357] - resignal: FALSE 1580s [00:53:00.357] - force: TRUE 1580s [00:53:00.357] - relayed: [n=1] TRUE 1580s [00:53:00.358] - queued futures: [n=1] TRUE 1580s - flush all 1580s [00:53:00.358] - relayed: [n=1] TRUE 1580s List of 2 1580s $ y0:[00:53:00.358] - queued futures: [n=1] TRUE 1580s [00:53:00.358] signalConditionsASAP(NULL, pos=0) ... done 1580s [00:53:00.359] resolve() on list ... DONE 1580s [00:53:00.359] - Number of value chunks collected: 1 1580s [00:53:00.359] Resolving 1 futures (chunks) ... DONE 1580s [00:53:00.359] Reducing values from 1 chunks ... 1580s [00:53:00.359] - Number of values collected after concatenation: 3 1580s [00:53:00.359] - Number of values expected: 3 1580s [00:53:00.359] Reducing values from 1 chunks ... DONE 1580s [00:53:00.360] future_lapply() ... DONE 1580s num [1:15, 1:3] 2 2 2 4 4 4 6 6 6 8 ... 1580s ..- attr(*, "dimnames")=List of 2 1580s .. ..$ : NULL 1580s .. ..$ : chr [1:3] "a" "b" "c" 1580s $ y1: num [1:15, 1:3] 2 2 2 4 4 4 6 6 6 8 ... 1580s ..- attr(*, "dimnames")=List of 2 1580s .. ..$ : NULL 1580s .. ..$ : chr [1:3] "a" "b" "c" 1580s [00:53:00.364] future_lapply() ... 1580s [00:53:00.369] Number of chunks: 1 1580s [00:53:00.369] getGlobalsAndPackagesXApply() ... 1580s [00:53:00.369] - future.globals: TRUE 1580s [00:53:00.370] getGlobalsAndPackages() ... 1580s [00:53:00.370] Searching for globals... 1580s [00:53:00.372] - globals found: [1] ‘FUN’ 1580s [00:53:00.372] Searching for globals ... DONE 1580s [00:53:00.372] Resolving globals: FALSE 1580s [00:53:00.373] The total size of the 1 globals is 848 bytes (848 bytes) 1580s [00:53:00.373] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1580s [00:53:00.373] - globals: [1] ‘FUN’ 1580s [00:53:00.374] 1580s [00:53:00.374] getGlobalsAndPackages() ... DONE 1580s [00:53:00.374] - globals found/used: [n=1] ‘FUN’ 1580s [00:53:00.374] - needed namespaces: [n=0] 1580s [00:53:00.375] Finding globals ... DONE 1580s [00:53:00.375] - use_args: TRUE 1580s [00:53:00.375] - Getting '...' globals ... 1580s [00:53:00.376] resolve() on list ... 1580s [00:53:00.376] recursive: 0 1580s [00:53:00.376] length: 1 1580s [00:53:00.376] elements: ‘...’ 1580s [00:53:00.376] length: 0 (resolved future 1) 1580s [00:53:00.376] resolve() on list ... DONE 1580s [00:53:00.377] - '...' content: [n=0] 1580s [00:53:00.377] List of 1 1580s [00:53:00.377] $ ...: list() 1580s [00:53:00.377] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1580s [00:53:00.377] - attr(*, "where")=List of 1 1580s [00:53:00.377] ..$ ...: 1580s [00:53:00.377] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1580s [00:53:00.377] - attr(*, "resolved")= logi TRUE 1580s [00:53:00.377] - attr(*, "total_size")= num NA 1580s [00:53:00.382] - Getting '...' globals ... DONE 1580s [00:53:00.382] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1580s [00:53:00.382] List of 2 1580s [00:53:00.382] $ ...future.FUN:function (x) 1580s [00:53:00.382] $ ... : list() 1580s [00:53:00.382] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1580s [00:53:00.382] - attr(*, "where")=List of 2 1580s [00:53:00.382] ..$ ...future.FUN: 1580s [00:53:00.382] ..$ ... : 1580s [00:53:00.382] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1580s [00:53:00.382] - attr(*, "resolved")= logi FALSE 1580s [00:53:00.382] - attr(*, "total_size")= num 848 1580s [00:53:00.386] Packages to be attached in all futures: [n=0] 1580s [00:53:00.386] getGlobalsAndPackagesXApply() ... DONE 1580s [00:53:00.387] Number of futures (= number of chunks): 1 1580s [00:53:00.387] Launching 1 futures (chunks) ... 1580s [00:53:00.387] Chunk #1 of 1 ... 1580s [00:53:00.387] - Finding globals in 'X' for chunk #1 ... 1580s [00:53:00.387] getGlobalsAndPackages() ... 1580s [00:53:00.387] Searching for globals... 1580s [00:53:00.388] 1580s [00:53:00.388] Searching for globals ... DONE 1580s [00:53:00.388] - globals: [0] 1580s [00:53:00.388] getGlobalsAndPackages() ... DONE 1580s [00:53:00.388] + additional globals found: [n=0] 1580s [00:53:00.389] + additional namespaces needed: [n=0] 1580s [00:53:00.389] - Finding globals in 'X' for chunk #1 ... DONE 1580s [00:53:00.389] - seeds: 1580s [00:53:00.389] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1580s [00:53:00.390] getGlobalsAndPackages() ... 1580s [00:53:00.390] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1580s [00:53:00.390] Resolving globals: FALSE 1580s [00:53:00.390] Tweak future expression to call with '...' arguments ... 1580s [00:53:00.391] { 1580s [00:53:00.391] do.call(function(...) { 1580s [00:53:00.391] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1580s [00:53:00.391] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1580s [00:53:00.391] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1580s [00:53:00.391] on.exit(options(oopts), add = TRUE) 1580s [00:53:00.391] } 1580s [00:53:00.391] { 1580s [00:53:00.391] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1580s [00:53:00.391] ...future.X_jj <- ...future.elements_ii[[jj]] 1580s [00:53:00.391] ...future.FUN(...future.X_jj, ...) 1580s [00:53:00.391] }) 1580s [00:53:00.391] } 1580s [00:53:00.391] }, args = future.call.arguments) 1580s [00:53:00.391] } 1580s [00:53:00.392] Tweak future expression to call with '...' arguments ... DONE 1580s [00:53:00.393] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1580s [00:53:00.393] 1580s [00:53:00.394] getGlobalsAndPackages() ... DONE 1580s [00:53:00.394] run() for ‘Future’ ... 1580s [00:53:00.395] - state: ‘created’ 1580s [00:53:00.395] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1580s [00:53:00.401] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1580s [00:53:00.402] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1580s [00:53:00.402] - Field: ‘label’ 1580s [00:53:00.402] - Field: ‘local’ 1580s [00:53:00.402] - Field: ‘owner’ 1580s [00:53:00.403] - Field: ‘envir’ 1580s [00:53:00.403] - Field: ‘packages’ 1580s [00:53:00.403] - Field: ‘gc’ 1580s [00:53:00.403] - Field: ‘conditions’ 1580s [00:53:00.404] - Field: ‘expr’ 1580s [00:53:00.404] - Field: ‘uuid’ 1580s [00:53:00.404] - Field: ‘seed’ 1580s [00:53:00.405] - Field: ‘version’ 1580s [00:53:00.405] - Field: ‘result’ 1580s [00:53:00.405] - Field: ‘asynchronous’ 1580s [00:53:00.405] - Field: ‘calls’ 1580s [00:53:00.406] - Field: ‘globals’ 1580s [00:53:00.406] - Field: ‘stdout’ 1580s [00:53:00.406] - Field: ‘earlySignal’ 1580s [00:53:00.407] - Field: ‘lazy’ 1580s [00:53:00.407] - Field: ‘state’ 1580s [00:53:00.407] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1580s [00:53:00.407] - Launch lazy future ... 1580s [00:53:00.408] Packages needed by the future expression (n = 0): 1580s [00:53:00.408] Packages needed by future strategies (n = 0): 1580s [00:53:00.409] { 1580s [00:53:00.409] { 1580s [00:53:00.409] { 1580s [00:53:00.409] ...future.startTime <- base::Sys.time() 1580s [00:53:00.409] { 1580s [00:53:00.409] { 1580s [00:53:00.409] { 1580s [00:53:00.409] base::local({ 1580s [00:53:00.409] has_future <- base::requireNamespace("future", 1580s [00:53:00.409] quietly = TRUE) 1580s [00:53:00.409] if (has_future) { 1580s [00:53:00.409] ns <- base::getNamespace("future") 1580s [00:53:00.409] version <- ns[[".package"]][["version"]] 1580s [00:53:00.409] if (is.null(version)) 1580s [00:53:00.409] version <- utils::packageVersion("future") 1580s [00:53:00.409] } 1580s [00:53:00.409] else { 1580s [00:53:00.409] version <- NULL 1580s [00:53:00.409] } 1580s [00:53:00.409] if (!has_future || version < "1.8.0") { 1580s [00:53:00.409] info <- base::c(r_version = base::gsub("R version ", 1580s [00:53:00.409] "", base::R.version$version.string), 1580s [00:53:00.409] platform = base::sprintf("%s (%s-bit)", 1580s [00:53:00.409] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1580s [00:53:00.409] os = base::paste(base::Sys.info()[base::c("sysname", 1580s [00:53:00.409] "release", "version")], collapse = " "), 1580s [00:53:00.409] hostname = base::Sys.info()[["nodename"]]) 1580s [00:53:00.409] info <- base::sprintf("%s: %s", base::names(info), 1580s [00:53:00.409] info) 1580s [00:53:00.409] info <- base::paste(info, collapse = "; ") 1580s [00:53:00.409] if (!has_future) { 1580s [00:53:00.409] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1580s [00:53:00.409] info) 1580s [00:53:00.409] } 1580s [00:53:00.409] else { 1580s [00:53:00.409] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1580s [00:53:00.409] info, version) 1580s [00:53:00.409] } 1580s [00:53:00.409] base::stop(msg) 1580s [00:53:00.409] } 1580s [00:53:00.409] }) 1580s [00:53:00.409] } 1580s [00:53:00.409] options(future.plan = NULL) 1580s [00:53:00.409] Sys.unsetenv("R_FUTURE_PLAN") 1580s [00:53:00.409] future::plan("default", .cleanup = FALSE, .init = FALSE) 1580s [00:53:00.409] } 1580s [00:53:00.409] ...future.workdir <- getwd() 1580s [00:53:00.409] } 1580s [00:53:00.409] ...future.oldOptions <- base::as.list(base::.Options) 1580s [00:53:00.409] ...future.oldEnvVars <- base::Sys.getenv() 1580s [00:53:00.409] } 1580s [00:53:00.409] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1580s [00:53:00.409] future.globals.maxSize = NULL, future.globals.method = NULL, 1580s [00:53:00.409] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1580s [00:53:00.409] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1580s [00:53:00.409] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1580s [00:53:00.409] future.stdout.windows.reencode = NULL, width = 80L) 1580s [00:53:00.409] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1580s [00:53:00.409] base::names(...future.oldOptions)) 1580s [00:53:00.409] } 1580s [00:53:00.409] if (FALSE) { 1580s [00:53:00.409] } 1580s [00:53:00.409] else { 1580s [00:53:00.409] if (TRUE) { 1580s [00:53:00.409] ...future.stdout <- base::rawConnection(base::raw(0L), 1580s [00:53:00.409] open = "w") 1580s [00:53:00.409] } 1580s [00:53:00.409] else { 1580s [00:53:00.409] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1580s [00:53:00.409] windows = "NUL", "/dev/null"), open = "w") 1580s [00:53:00.409] } 1580s [00:53:00.409] base::sink(...future.stdout, type = "output", split = FALSE) 1580s [00:53:00.409] base::on.exit(if (!base::is.null(...future.stdout)) { 1580s [00:53:00.409] base::sink(type = "output", split = FALSE) 1580s [00:53:00.409] base::close(...future.stdout) 1580s [00:53:00.409] }, add = TRUE) 1580s [00:53:00.409] } 1580s [00:53:00.409] ...future.frame <- base::sys.nframe() 1580s [00:53:00.409] ...future.conditions <- base::list() 1580s [00:53:00.409] ...future.rng <- base::globalenv()$.Random.seed 1580s [00:53:00.409] if (FALSE) { 1580s [00:53:00.409] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1580s [00:53:00.409] "...future.value", "...future.globalenv.names", ".Random.seed") 1580s [00:53:00.409] } 1580s [00:53:00.409] ...future.result <- base::tryCatch({ 1580s [00:53:00.409] base::withCallingHandlers({ 1580s [00:53:00.409] ...future.value <- base::withVisible(base::local({ 1580s [00:53:00.409] do.call(function(...) { 1580s [00:53:00.409] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1580s [00:53:00.409] if (!identical(...future.globals.maxSize.org, 1580s [00:53:00.409] ...future.globals.maxSize)) { 1580s [00:53:00.409] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1580s [00:53:00.409] on.exit(options(oopts), add = TRUE) 1580s [00:53:00.409] } 1580s [00:53:00.409] { 1580s [00:53:00.409] lapply(seq_along(...future.elements_ii), 1580s [00:53:00.409] FUN = function(jj) { 1580s [00:53:00.409] ...future.X_jj <- ...future.elements_ii[[jj]] 1580s [00:53:00.409] ...future.FUN(...future.X_jj, ...) 1580s [00:53:00.409] }) 1580s [00:53:00.409] } 1580s [00:53:00.409] }, args = future.call.arguments) 1580s [00:53:00.409] })) 1580s [00:53:00.409] future::FutureResult(value = ...future.value$value, 1580s [00:53:00.409] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1580s [00:53:00.409] ...future.rng), globalenv = if (FALSE) 1580s [00:53:00.409] list(added = base::setdiff(base::names(base::.GlobalEnv), 1580s [00:53:00.409] ...future.globalenv.names)) 1580s [00:53:00.409] else NULL, started = ...future.startTime, version = "1.8") 1580s [00:53:00.409] }, condition = base::local({ 1580s [00:53:00.409] c <- base::c 1580s [00:53:00.409] inherits <- base::inherits 1580s [00:53:00.409] invokeRestart <- base::invokeRestart 1580s [00:53:00.409] length <- base::length 1580s [00:53:00.409] list <- base::list 1580s [00:53:00.409] seq.int <- base::seq.int 1580s [00:53:00.409] signalCondition <- base::signalCondition 1580s [00:53:00.409] sys.calls <- base::sys.calls 1580s [00:53:00.409] `[[` <- base::`[[` 1580s [00:53:00.409] `+` <- base::`+` 1580s [00:53:00.409] `<<-` <- base::`<<-` 1580s [00:53:00.409] sysCalls <- function(calls = sys.calls(), from = 1L) { 1580s [00:53:00.409] calls[seq.int(from = from + 12L, to = length(calls) - 1580s [00:53:00.409] 3L)] 1580s [00:53:00.409] } 1580s [00:53:00.409] function(cond) { 1580s [00:53:00.409] is_error <- inherits(cond, "error") 1580s [00:53:00.409] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1580s [00:53:00.409] NULL) 1580s [00:53:00.409] if (is_error) { 1580s [00:53:00.409] sessionInformation <- function() { 1580s [00:53:00.409] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1580s [00:53:00.409] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1580s [00:53:00.409] search = base::search(), system = base::Sys.info()) 1580s [00:53:00.409] } 1580s [00:53:00.409] ...future.conditions[[length(...future.conditions) + 1580s [00:53:00.409] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1580s [00:53:00.409] cond$call), session = sessionInformation(), 1580s [00:53:00.409] timestamp = base::Sys.time(), signaled = 0L) 1580s [00:53:00.409] signalCondition(cond) 1580s [00:53:00.409] } 1580s [00:53:00.409] else if (!ignore && TRUE && inherits(cond, c("condition", 1580s [00:53:00.409] "immediateCondition"))) { 1580s [00:53:00.409] signal <- TRUE && inherits(cond, "immediateCondition") 1580s [00:53:00.409] ...future.conditions[[length(...future.conditions) + 1580s [00:53:00.409] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1580s [00:53:00.409] if (TRUE && !signal) { 1580s [00:53:00.409] muffleCondition <- function (cond, pattern = "^muffle") 1580s [00:53:00.409] { 1580s [00:53:00.409] inherits <- base::inherits 1580s [00:53:00.409] invokeRestart <- base::invokeRestart 1580s [00:53:00.409] is.null <- base::is.null 1580s [00:53:00.409] muffled <- FALSE 1580s [00:53:00.409] if (inherits(cond, "message")) { 1580s [00:53:00.409] muffled <- grepl(pattern, "muffleMessage") 1580s [00:53:00.409] if (muffled) 1580s [00:53:00.409] invokeRestart("muffleMessage") 1580s [00:53:00.409] } 1580s [00:53:00.409] else if (inherits(cond, "warning")) { 1580s [00:53:00.409] muffled <- grepl(pattern, "muffleWarning") 1580s [00:53:00.409] if (muffled) 1580s [00:53:00.409] invokeRestart("muffleWarning") 1580s [00:53:00.409] } 1580s [00:53:00.409] else if (inherits(cond, "condition")) { 1580s [00:53:00.409] if (!is.null(pattern)) { 1580s [00:53:00.409] computeRestarts <- base::computeRestarts 1580s [00:53:00.409] grepl <- base::grepl 1580s [00:53:00.409] restarts <- computeRestarts(cond) 1580s [00:53:00.409] for (restart in restarts) { 1580s [00:53:00.409] name <- restart$name 1580s [00:53:00.409] if (is.null(name)) 1580s [00:53:00.409] next 1580s [00:53:00.409] if (!grepl(pattern, name)) 1580s [00:53:00.409] next 1580s [00:53:00.409] invokeRestart(restart) 1580s [00:53:00.409] muffled <- TRUE 1580s [00:53:00.409] break 1580s [00:53:00.409] } 1580s [00:53:00.409] } 1580s [00:53:00.409] } 1580s [00:53:00.409] invisible(muffled) 1580s [00:53:00.409] } 1580s [00:53:00.409] muffleCondition(cond, pattern = "^muffle") 1580s [00:53:00.409] } 1580s [00:53:00.409] } 1580s [00:53:00.409] else { 1580s [00:53:00.409] if (TRUE) { 1580s [00:53:00.409] muffleCondition <- function (cond, pattern = "^muffle") 1580s [00:53:00.409] { 1580s [00:53:00.409] inherits <- base::inherits 1580s [00:53:00.409] invokeRestart <- base::invokeRestart 1580s [00:53:00.409] is.null <- base::is.null 1580s [00:53:00.409] muffled <- FALSE 1580s [00:53:00.409] if (inherits(cond, "message")) { 1580s [00:53:00.409] muffled <- grepl(pattern, "muffleMessage") 1580s [00:53:00.409] if (muffled) 1580s [00:53:00.409] invokeRestart("muffleMessage") 1580s [00:53:00.409] } 1580s [00:53:00.409] else if (inherits(cond, "warning")) { 1580s [00:53:00.409] muffled <- grepl(pattern, "muffleWarning") 1580s [00:53:00.409] if (muffled) 1580s [00:53:00.409] invokeRestart("muffleWarning") 1580s [00:53:00.409] } 1580s [00:53:00.409] else if (inherits(cond, "condition")) { 1580s [00:53:00.409] if (!is.null(pattern)) { 1580s [00:53:00.409] computeRestarts <- base::computeRestarts 1580s [00:53:00.409] grepl <- base::grepl 1580s [00:53:00.409] restarts <- computeRestarts(cond) 1580s [00:53:00.409] for (restart in restarts) { 1580s [00:53:00.409] name <- restart$name 1580s [00:53:00.409] if (is.null(name)) 1580s [00:53:00.409] next 1580s [00:53:00.409] if (!grepl(pattern, name)) 1580s [00:53:00.409] next 1580s [00:53:00.409] invokeRestart(restart) 1580s [00:53:00.409] muffled <- TRUE 1580s [00:53:00.409] break 1580s [00:53:00.409] } 1580s [00:53:00.409] } 1580s [00:53:00.409] } 1580s [00:53:00.409] invisible(muffled) 1580s [00:53:00.409] } 1580s [00:53:00.409] muffleCondition(cond, pattern = "^muffle") 1580s [00:53:00.409] } 1580s [00:53:00.409] } 1580s [00:53:00.409] } 1580s [00:53:00.409] })) 1580s [00:53:00.409] }, error = function(ex) { 1580s [00:53:00.409] base::structure(base::list(value = NULL, visible = NULL, 1580s [00:53:00.409] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1580s [00:53:00.409] ...future.rng), started = ...future.startTime, 1580s [00:53:00.409] finished = Sys.time(), session_uuid = NA_character_, 1580s [00:53:00.409] version = "1.8"), class = "FutureResult") 1580s [00:53:00.409] }, finally = { 1580s [00:53:00.409] if (!identical(...future.workdir, getwd())) 1580s [00:53:00.409] setwd(...future.workdir) 1580s [00:53:00.409] { 1580s [00:53:00.409] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1580s [00:53:00.409] ...future.oldOptions$nwarnings <- NULL 1580s [00:53:00.409] } 1580s [00:53:00.409] base::options(...future.oldOptions) 1580s [00:53:00.409] if (.Platform$OS.type == "windows") { 1580s [00:53:00.409] old_names <- names(...future.oldEnvVars) 1580s [00:53:00.409] envs <- base::Sys.getenv() 1580s [00:53:00.409] names <- names(envs) 1580s [00:53:00.409] common <- intersect(names, old_names) 1580s [00:53:00.409] added <- setdiff(names, old_names) 1580s [00:53:00.409] removed <- setdiff(old_names, names) 1580s [00:53:00.409] changed <- common[...future.oldEnvVars[common] != 1580s [00:53:00.409] envs[common]] 1580s [00:53:00.409] NAMES <- toupper(changed) 1580s [00:53:00.409] args <- list() 1580s [00:53:00.409] for (kk in seq_along(NAMES)) { 1580s [00:53:00.409] name <- changed[[kk]] 1580s [00:53:00.409] NAME <- NAMES[[kk]] 1580s [00:53:00.409] if (name != NAME && is.element(NAME, old_names)) 1580s [00:53:00.409] next 1580s [00:53:00.409] args[[name]] <- ...future.oldEnvVars[[name]] 1580s [00:53:00.409] } 1580s [00:53:00.409] NAMES <- toupper(added) 1580s [00:53:00.409] for (kk in seq_along(NAMES)) { 1580s [00:53:00.409] name <- added[[kk]] 1580s [00:53:00.409] NAME <- NAMES[[kk]] 1580s [00:53:00.409] if (name != NAME && is.element(NAME, old_names)) 1580s [00:53:00.409] next 1580s [00:53:00.409] args[[name]] <- "" 1580s [00:53:00.409] } 1580s [00:53:00.409] NAMES <- toupper(removed) 1580s [00:53:00.409] for (kk in seq_along(NAMES)) { 1580s [00:53:00.409] name <- removed[[kk]] 1580s [00:53:00.409] NAME <- NAMES[[kk]] 1580s [00:53:00.409] if (name != NAME && is.element(NAME, old_names)) 1580s [00:53:00.409] next 1580s [00:53:00.409] args[[name]] <- ...future.oldEnvVars[[name]] 1580s [00:53:00.409] } 1580s [00:53:00.409] if (length(args) > 0) 1580s [00:53:00.409] base::do.call(base::Sys.setenv, args = args) 1580s [00:53:00.409] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1580s [00:53:00.409] } 1580s [00:53:00.409] else { 1580s [00:53:00.409] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1580s [00:53:00.409] } 1580s [00:53:00.409] { 1580s [00:53:00.409] if (base::length(...future.futureOptionsAdded) > 1580s [00:53:00.409] 0L) { 1580s [00:53:00.409] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1580s [00:53:00.409] base::names(opts) <- ...future.futureOptionsAdded 1580s [00:53:00.409] base::options(opts) 1580s [00:53:00.409] } 1580s [00:53:00.409] { 1580s [00:53:00.409] { 1580s [00:53:00.409] NULL 1580s [00:53:00.409] RNGkind("Mersenne-Twister") 1580s [00:53:00.409] base::rm(list = ".Random.seed", envir = base::globalenv(), 1580s [00:53:00.409] inherits = FALSE) 1580s [00:53:00.409] } 1580s [00:53:00.409] options(future.plan = NULL) 1580s [00:53:00.409] if (is.na(NA_character_)) 1580s [00:53:00.409] Sys.unsetenv("R_FUTURE_PLAN") 1580s [00:53:00.409] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1580s [00:53:00.409] future::plan(list(function (..., workers = availableCores(), 1580s [00:53:00.409] lazy = FALSE, rscript_libs = .libPaths(), 1580s [00:53:00.409] envir = parent.frame()) 1580s [00:53:00.409] { 1580s [00:53:00.409] if (is.function(workers)) 1580s [00:53:00.409] workers <- workers() 1580s [00:53:00.409] workers <- structure(as.integer(workers), 1580s [00:53:00.409] class = class(workers)) 1580s [00:53:00.409] stop_if_not(length(workers) == 1, is.finite(workers), 1580s [00:53:00.409] workers >= 1) 1580s [00:53:00.409] if (workers == 1L && !inherits(workers, "AsIs")) { 1580s [00:53:00.409] return(sequential(..., lazy = TRUE, envir = envir)) 1580s [00:53:00.409] } 1580s [00:53:00.409] future <- MultisessionFuture(..., workers = workers, 1580s [00:53:00.409] lazy = lazy, rscript_libs = rscript_libs, 1580s [00:53:00.409] envir = envir) 1580s [00:53:00.409] if (!future$lazy) 1580s [00:53:00.409] future <- run(future) 1580s [00:53:00.409] invisible(future) 1580s [00:53:00.409] }), .cleanup = FALSE, .init = FALSE) 1580s [00:53:00.409] } 1580s [00:53:00.409] } 1580s [00:53:00.409] } 1580s [00:53:00.409] }) 1580s [00:53:00.409] if (TRUE) { 1580s [00:53:00.409] base::sink(type = "output", split = FALSE) 1580s [00:53:00.409] if (TRUE) { 1580s [00:53:00.409] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1580s [00:53:00.409] } 1580s [00:53:00.409] else { 1580s [00:53:00.409] ...future.result["stdout"] <- base::list(NULL) 1580s [00:53:00.409] } 1580s [00:53:00.409] base::close(...future.stdout) 1580s [00:53:00.409] ...future.stdout <- NULL 1580s [00:53:00.409] } 1580s [00:53:00.409] ...future.result$conditions <- ...future.conditions 1580s [00:53:00.409] ...future.result$finished <- base::Sys.time() 1580s [00:53:00.409] ...future.result 1580s [00:53:00.409] } 1580s [00:53:00.418] assign_globals() ... 1580s [00:53:00.419] List of 5 1580s [00:53:00.419] $ ...future.FUN :function (x) 1580s [00:53:00.419] $ future.call.arguments : list() 1580s [00:53:00.419] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1580s [00:53:00.419] $ ...future.elements_ii :List of 3 1580s [00:53:00.419] ..$ a: num 1 1580s [00:53:00.419] ..$ b: num 2 1580s [00:53:00.419] ..$ c: num 3 1580s [00:53:00.419] $ ...future.seeds_ii : NULL 1580s [00:53:00.419] $ ...future.globals.maxSize: NULL 1580s [00:53:00.419] - attr(*, "where")=List of 5 1580s [00:53:00.419] ..$ ...future.FUN : 1580s [00:53:00.419] ..$ future.call.arguments : 1580s [00:53:00.419] ..$ ...future.elements_ii : 1580s [00:53:00.419] ..$ ...future.seeds_ii : 1580s [00:53:00.419] ..$ ...future.globals.maxSize: 1580s [00:53:00.419] - attr(*, "resolved")= logi FALSE 1580s [00:53:00.419] - attr(*, "total_size")= num 848 1580s [00:53:00.419] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1580s [00:53:00.419] - attr(*, "already-done")= logi TRUE 1580s [00:53:00.429] - copied ‘...future.FUN’ to environment 1580s [00:53:00.429] - copied ‘future.call.arguments’ to environment 1580s [00:53:00.430] - copied ‘...future.elements_ii’ to environment 1580s [00:53:00.430] - copied ‘...future.seeds_ii’ to environment 1580s [00:53:00.430] - copied ‘...future.globals.maxSize’ to environment 1580s [00:53:00.430] assign_globals() ... done 1580s [00:53:00.430] plan(): Setting new future strategy stack: 1580s [00:53:00.431] List of future strategies: 1580s [00:53:00.431] 1. sequential: 1580s [00:53:00.431] - args: function (..., envir = parent.frame()) 1580s [00:53:00.431] - tweaked: FALSE 1580s [00:53:00.431] - call: NULL 1580s [00:53:00.431] plan(): nbrOfWorkers() = 1 1580s [00:53:00.432] plan(): Setting new future strategy stack: 1580s [00:53:00.433] List of future strategies: 1580s [00:53:00.433] 1. multisession: 1580s [00:53:00.433] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1580s [00:53:00.433] - tweaked: FALSE 1580s [00:53:00.433] - call: plan(strategy) 1580s [00:53:00.437] plan(): nbrOfWorkers() = 1 1580s [00:53:00.437] SequentialFuture started (and completed) 1580s [00:53:00.438] - Launch lazy future ... done 1580s [00:53:00.438] run() for ‘SequentialFuture’ ... done 1580s [00:53:00.438] Created future: 1580s [00:53:00.438] SequentialFuture: 1580s [00:53:00.438] Label: ‘future_sapply-1’ 1580s [00:53:00.438] Expression: 1580s [00:53:00.438] { 1580s [00:53:00.438] do.call(function(...) { 1580s [00:53:00.438] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1580s [00:53:00.438] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1580s [00:53:00.438] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1580s [00:53:00.438] on.exit(options(oopts), add = TRUE) 1580s [00:53:00.438] } 1580s [00:53:00.438] { 1580s [00:53:00.438] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1580s [00:53:00.438] ...future.X_jj <- ...future.elements_ii[[jj]] 1580s [00:53:00.438] ...future.FUN(...future.X_jj, ...) 1580s [00:53:00.438] }) 1580s [00:53:00.438] } 1580s [00:53:00.438] }, args = future.call.arguments) 1580s [00:53:00.438] } 1580s [00:53:00.438] Lazy evaluation: FALSE 1580s [00:53:00.438] Asynchronous evaluation: FALSE 1580s [00:53:00.438] Local evaluation: TRUE 1580s [00:53:00.438] Environment: R_GlobalEnv 1580s [00:53:00.438] Capture standard output: TRUE 1580s [00:53:00.438] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1580s [00:53:00.438] Globals: 5 objects totaling 0.99 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1580s [00:53:00.438] Packages: 1580s [00:53:00.438] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1580s [00:53:00.438] Resolved: TRUE 1580s [00:53:00.438] Value: 168 bytes of class ‘list’ 1580s [00:53:00.438] Early signaling: FALSE 1580s [00:53:00.438] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1580s [00:53:00.438] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1580s [00:53:00.441] Chunk #1 of 1 ... DONE 1580s [00:53:00.441] Launching 1 futures (chunks) ... DONE 1580s [00:53:00.441] Resolving 1 futures (chunks) ... 1580s [00:53:00.442] resolve() on list ... 1580s [00:53:00.442] recursive: 0 1580s [00:53:00.442] length: 1 1580s [00:53:00.442] 1580s [00:53:00.442] resolved() for ‘SequentialFuture’ ... 1580s [00:53:00.442] - state: ‘finished’ 1580s [00:53:00.442] - run: TRUE 1580s [00:53:00.442] - result: ‘FutureResult’ 1580s [00:53:00.443] resolved() for ‘SequentialFuture’ ... done 1580s [00:53:00.443] Future #1 1580s [00:53:00.443] signalConditionsASAP(SequentialFuture, pos=1) ... 1580s [00:53:00.443] - nx: 1 1580s [00:53:00.444] - relay: TRUE 1580s [00:53:00.444] - stdout: TRUE 1580s [00:53:00.445] - signal: TRUE 1580s [00:53:00.445] - resignal: FALSE 1580s [00:53:00.445] - force: TRUE 1580s [00:53:00.445] - relayed: [n=1] FALSE 1580s [00:53:00.445] - queued futures: [n=1] FALSE 1580s [00:53:00.446] - until=1 1580s [00:53:00.446] - relaying element #1 1580s [00:53:00.446] - relayed: [n=1] TRUE 1580s [00:53:00.446] - queued futures: [n=1] TRUE 1580s [00:53:00.446] signalConditionsASAP(SequentialFuture, pos=1) ... done 1580s [00:53:00.447] length: 0 (resolved future 1) 1580s [00:53:00.447] Relaying remaining futures 1580s [00:53:00.447] signalConditionsASAP(NULL, pos=0) ... 1580s [00:53:00.447] - nx: 1 1580s [00:53:00.447] - relay: TRUE 1580s [00:53:00.447] - stdout: TRUE 1580s [00:53:00.447] - signal: TRUE 1580s [00:53:00.447] - resignal: FALSE 1580s [00:53:00.448] - force: TRUE 1580s [00:53:00.448] - relayed: [n=1] TRUE 1580s [00:53:00.448] - queued futures: [n=1] TRUE 1580s - flush all 1580s [00:53:00.448] - relayed: [n=1] TRUE 1580s [00:53:00.448] - queued futures: [n=1] TRUE 1580s [00:53:00.448] signalConditionsASAP(NULL, pos=0) ... done 1580s [00:53:00.449] resolve() on list ... DONE 1580s [00:53:00.449] - Number of value chunks collected: 1 1580s [00:53:00.449] Resolving 1 futures (chunks) ... DONE 1580s [00:53:00.449] Reducing values from 1 chunks ... 1580s [00:53:00.450] - Number of values collected after concatenation: 3 1580s [00:53:00.450] - Number of values expected: 3 1580s [00:53:00.450] Reducing values from 1 chunks ... DONE 1580s [00:53:00.450] future_lapply() ... DONE 1580s List of 2 1580s $ y0: Named num [1:3] 1 2 3 1580s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1580s $ y1: Named num [1:3] 1 2 3 1580s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1580s [00:53:00.455] future_lapply() ... 1580s [00:53:00.460] Number of chunks: 1 1580s [00:53:00.460] getGlobalsAndPackagesXApply() ... 1580s [00:53:00.460] - future.globals: TRUE 1580s [00:53:00.461] getGlobalsAndPackages() ... 1580s [00:53:00.461] Searching for globals... 1580s [00:53:00.463] - globals found: [2] ‘FUN’, ‘UseMethod’ 1580s [00:53:00.463] Searching for globals ... DONE 1580s [00:53:00.463] Resolving globals: FALSE 1580s [00:53:00.464] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1580s [00:53:00.464] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1580s [00:53:00.464] - globals: [1] ‘FUN’ 1580s [00:53:00.465] 1580s [00:53:00.465] getGlobalsAndPackages() ... DONE 1580s [00:53:00.465] - globals found/used: [n=1] ‘FUN’ 1580s [00:53:00.465] - needed namespaces: [n=0] 1580s [00:53:00.465] Finding globals ... DONE 1580s [00:53:00.466] - use_args: TRUE 1580s [00:53:00.466] - Getting '...' globals ... 1580s [00:53:00.466] resolve() on list ... 1580s [00:53:00.467] recursive: 0 1580s [00:53:00.467] length: 1 1580s [00:53:00.467] elements: ‘...’ 1580s [00:53:00.467] length: 0 (resolved future 1) 1580s [00:53:00.467] resolve() on list ... DONE 1580s [00:53:00.467] - '...' content: [n=0] 1580s [00:53:00.468] List of 1 1580s [00:53:00.468] $ ...: list() 1580s [00:53:00.468] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1580s [00:53:00.468] - attr(*, "where")=List of 1 1580s [00:53:00.468] ..$ ...: 1580s [00:53:00.468] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1580s [00:53:00.468] - attr(*, "resolved")= logi TRUE 1580s [00:53:00.468] - attr(*, "total_size")= num NA 1580s [00:53:00.471] - Getting '...' globals ... DONE 1580s [00:53:00.472] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1580s [00:53:00.472] List of 2 1580s [00:53:00.472] $ ...future.FUN:function (x, ...) 1580s [00:53:00.472] $ ... : list() 1580s [00:53:00.472] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1580s [00:53:00.472] - attr(*, "where")=List of 2 1580s [00:53:00.472] ..$ ...future.FUN: 1580s [00:53:00.472] ..$ ... : 1580s [00:53:00.472] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1580s [00:53:00.472] - attr(*, "resolved")= logi FALSE 1580s [00:53:00.472] - attr(*, "total_size")= num 1248 1580s [00:53:00.476] Packages to be attached in all futures: [n=0] 1580s [00:53:00.476] getGlobalsAndPackagesXApply() ... DONE 1580s [00:53:00.477] Number of futures (= number of chunks): 1 1580s [00:53:00.477] Launching 1 futures (chunks) ... 1580s [00:53:00.477] Chunk #1 of 1 ... 1580s [00:53:00.477] - Finding globals in 'X' for chunk #1 ... 1580s [00:53:00.478] getGlobalsAndPackages() ... 1580s [00:53:00.478] Searching for globals... 1580s [00:53:00.478] 1580s [00:53:00.478] Searching for globals ... DONE 1580s [00:53:00.479] - globals: [0] 1580s [00:53:00.479] getGlobalsAndPackages() ... DONE 1580s [00:53:00.479] + additional globals found: [n=0] 1580s [00:53:00.479] + additional namespaces needed: [n=0] 1580s [00:53:00.479] - Finding globals in 'X' for chunk #1 ... DONE 1580s [00:53:00.479] - seeds: 1580s [00:53:00.480] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1580s [00:53:00.480] getGlobalsAndPackages() ... 1580s [00:53:00.481] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1580s [00:53:00.481] Resolving globals: FALSE 1580s [00:53:00.481] Tweak future expression to call with '...' arguments ... 1580s [00:53:00.481] { 1580s [00:53:00.481] do.call(function(...) { 1580s [00:53:00.481] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1580s [00:53:00.481] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1580s [00:53:00.481] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1580s [00:53:00.481] on.exit(options(oopts), add = TRUE) 1580s [00:53:00.481] } 1580s [00:53:00.481] { 1580s [00:53:00.481] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1580s [00:53:00.481] ...future.X_jj <- ...future.elements_ii[[jj]] 1580s [00:53:00.481] ...future.FUN(...future.X_jj, ...) 1580s [00:53:00.481] }) 1580s [00:53:00.481] } 1580s [00:53:00.481] }, args = future.call.arguments) 1580s [00:53:00.481] } 1580s [00:53:00.482] Tweak future expression to call with '...' arguments ... DONE 1580s [00:53:00.483] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1580s [00:53:00.483] 1580s [00:53:00.483] getGlobalsAndPackages() ... DONE 1580s [00:53:00.483] run() for ‘Future’ ... 1580s [00:53:00.483] - state: ‘created’ 1580s [00:53:00.484] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1580s [00:53:00.488] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1580s [00:53:00.488] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1580s [00:53:00.488] - Field: ‘label’ 1580s [00:53:00.488] - Field: ‘local’ 1580s [00:53:00.488] - Field: ‘owner’ 1580s [00:53:00.489] - Field: ‘envir’ 1580s [00:53:00.489] - Field: ‘packages’ 1580s [00:53:00.489] - Field: ‘gc’ 1580s [00:53:00.489] - Field: ‘conditions’ 1580s [00:53:00.489] - Field: ‘expr’ 1580s [00:53:00.489] - Field: ‘uuid’ 1580s [00:53:00.489] - Field: ‘seed’ 1580s [00:53:00.490] - Field: ‘version’ 1580s [00:53:00.490] - Field: ‘result’ 1580s [00:53:00.490] - Field: ‘asynchronous’ 1580s [00:53:00.490] - Field: ‘calls’ 1580s [00:53:00.490] - Field: ‘globals’ 1580s [00:53:00.490] - Field: ‘stdout’ 1580s [00:53:00.491] - Field: ‘earlySignal’ 1580s [00:53:00.491] - Field: ‘lazy’ 1580s [00:53:00.491] - Field: ‘state’ 1580s [00:53:00.491] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1580s [00:53:00.491] - Launch lazy future ... 1580s [00:53:00.491] Packages needed by the future expression (n = 0): 1580s [00:53:00.492] Packages needed by future strategies (n = 0): 1580s [00:53:00.492] { 1580s [00:53:00.492] { 1580s [00:53:00.492] { 1580s [00:53:00.492] ...future.startTime <- base::Sys.time() 1580s [00:53:00.492] { 1580s [00:53:00.492] { 1580s [00:53:00.492] { 1580s [00:53:00.492] base::local({ 1580s [00:53:00.492] has_future <- base::requireNamespace("future", 1580s [00:53:00.492] quietly = TRUE) 1580s [00:53:00.492] if (has_future) { 1580s [00:53:00.492] ns <- base::getNamespace("future") 1580s [00:53:00.492] version <- ns[[".package"]][["version"]] 1580s [00:53:00.492] if (is.null(version)) 1580s [00:53:00.492] version <- utils::packageVersion("future") 1580s [00:53:00.492] } 1580s [00:53:00.492] else { 1580s [00:53:00.492] version <- NULL 1580s [00:53:00.492] } 1580s [00:53:00.492] if (!has_future || version < "1.8.0") { 1580s [00:53:00.492] info <- base::c(r_version = base::gsub("R version ", 1580s [00:53:00.492] "", base::R.version$version.string), 1580s [00:53:00.492] platform = base::sprintf("%s (%s-bit)", 1580s [00:53:00.492] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1580s [00:53:00.492] os = base::paste(base::Sys.info()[base::c("sysname", 1580s [00:53:00.492] "release", "version")], collapse = " "), 1580s [00:53:00.492] hostname = base::Sys.info()[["nodename"]]) 1580s [00:53:00.492] info <- base::sprintf("%s: %s", base::names(info), 1580s [00:53:00.492] info) 1580s [00:53:00.492] info <- base::paste(info, collapse = "; ") 1580s [00:53:00.492] if (!has_future) { 1580s [00:53:00.492] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1580s [00:53:00.492] info) 1580s [00:53:00.492] } 1580s [00:53:00.492] else { 1580s [00:53:00.492] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1580s [00:53:00.492] info, version) 1580s [00:53:00.492] } 1580s [00:53:00.492] base::stop(msg) 1580s [00:53:00.492] } 1580s [00:53:00.492] }) 1580s [00:53:00.492] } 1580s [00:53:00.492] options(future.plan = NULL) 1580s [00:53:00.492] Sys.unsetenv("R_FUTURE_PLAN") 1580s [00:53:00.492] future::plan("default", .cleanup = FALSE, .init = FALSE) 1580s [00:53:00.492] } 1580s [00:53:00.492] ...future.workdir <- getwd() 1580s [00:53:00.492] } 1580s [00:53:00.492] ...future.oldOptions <- base::as.list(base::.Options) 1580s [00:53:00.492] ...future.oldEnvVars <- base::Sys.getenv() 1580s [00:53:00.492] } 1580s [00:53:00.492] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1580s [00:53:00.492] future.globals.maxSize = NULL, future.globals.method = NULL, 1580s [00:53:00.492] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1580s [00:53:00.492] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1580s [00:53:00.492] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1580s [00:53:00.492] future.stdout.windows.reencode = NULL, width = 80L) 1580s [00:53:00.492] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1580s [00:53:00.492] base::names(...future.oldOptions)) 1580s [00:53:00.492] } 1580s [00:53:00.492] if (FALSE) { 1580s [00:53:00.492] } 1580s [00:53:00.492] else { 1580s [00:53:00.492] if (TRUE) { 1580s [00:53:00.492] ...future.stdout <- base::rawConnection(base::raw(0L), 1580s [00:53:00.492] open = "w") 1580s [00:53:00.492] } 1580s [00:53:00.492] else { 1580s [00:53:00.492] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1580s [00:53:00.492] windows = "NUL", "/dev/null"), open = "w") 1580s [00:53:00.492] } 1580s [00:53:00.492] base::sink(...future.stdout, type = "output", split = FALSE) 1580s [00:53:00.492] base::on.exit(if (!base::is.null(...future.stdout)) { 1580s [00:53:00.492] base::sink(type = "output", split = FALSE) 1580s [00:53:00.492] base::close(...future.stdout) 1580s [00:53:00.492] }, add = TRUE) 1580s [00:53:00.492] } 1580s [00:53:00.492] ...future.frame <- base::sys.nframe() 1580s [00:53:00.492] ...future.conditions <- base::list() 1580s [00:53:00.492] ...future.rng <- base::globalenv()$.Random.seed 1580s [00:53:00.492] if (FALSE) { 1580s [00:53:00.492] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1580s [00:53:00.492] "...future.value", "...future.globalenv.names", ".Random.seed") 1580s [00:53:00.492] } 1580s [00:53:00.492] ...future.result <- base::tryCatch({ 1580s [00:53:00.492] base::withCallingHandlers({ 1580s [00:53:00.492] ...future.value <- base::withVisible(base::local({ 1580s [00:53:00.492] do.call(function(...) { 1580s [00:53:00.492] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1580s [00:53:00.492] if (!identical(...future.globals.maxSize.org, 1580s [00:53:00.492] ...future.globals.maxSize)) { 1580s [00:53:00.492] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1580s [00:53:00.492] on.exit(options(oopts), add = TRUE) 1580s [00:53:00.492] } 1580s [00:53:00.492] { 1580s [00:53:00.492] lapply(seq_along(...future.elements_ii), 1580s [00:53:00.492] FUN = function(jj) { 1580s [00:53:00.492] ...future.X_jj <- ...future.elements_ii[[jj]] 1580s [00:53:00.492] ...future.FUN(...future.X_jj, ...) 1580s [00:53:00.492] }) 1580s [00:53:00.492] } 1580s [00:53:00.492] }, args = future.call.arguments) 1580s [00:53:00.492] })) 1580s [00:53:00.492] future::FutureResult(value = ...future.value$value, 1580s [00:53:00.492] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1580s [00:53:00.492] ...future.rng), globalenv = if (FALSE) 1580s [00:53:00.492] list(added = base::setdiff(base::names(base::.GlobalEnv), 1580s [00:53:00.492] ...future.globalenv.names)) 1580s [00:53:00.492] else NULL, started = ...future.startTime, version = "1.8") 1580s [00:53:00.492] }, condition = base::local({ 1580s [00:53:00.492] c <- base::c 1580s [00:53:00.492] inherits <- base::inherits 1580s [00:53:00.492] invokeRestart <- base::invokeRestart 1580s [00:53:00.492] length <- base::length 1580s [00:53:00.492] list <- base::list 1580s [00:53:00.492] seq.int <- base::seq.int 1580s [00:53:00.492] signalCondition <- base::signalCondition 1580s [00:53:00.492] sys.calls <- base::sys.calls 1580s [00:53:00.492] `[[` <- base::`[[` 1580s [00:53:00.492] `+` <- base::`+` 1580s [00:53:00.492] `<<-` <- base::`<<-` 1580s [00:53:00.492] sysCalls <- function(calls = sys.calls(), from = 1L) { 1580s [00:53:00.492] calls[seq.int(from = from + 12L, to = length(calls) - 1580s [00:53:00.492] 3L)] 1580s [00:53:00.492] } 1580s [00:53:00.492] function(cond) { 1580s [00:53:00.492] is_error <- inherits(cond, "error") 1580s [00:53:00.492] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1580s [00:53:00.492] NULL) 1580s [00:53:00.492] if (is_error) { 1580s [00:53:00.492] sessionInformation <- function() { 1580s [00:53:00.492] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1580s [00:53:00.492] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1580s [00:53:00.492] search = base::search(), system = base::Sys.info()) 1580s [00:53:00.492] } 1580s [00:53:00.492] ...future.conditions[[length(...future.conditions) + 1580s [00:53:00.492] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1580s [00:53:00.492] cond$call), session = sessionInformation(), 1580s [00:53:00.492] timestamp = base::Sys.time(), signaled = 0L) 1580s [00:53:00.492] signalCondition(cond) 1580s [00:53:00.492] } 1580s [00:53:00.492] else if (!ignore && TRUE && inherits(cond, c("condition", 1580s [00:53:00.492] "immediateCondition"))) { 1580s [00:53:00.492] signal <- TRUE && inherits(cond, "immediateCondition") 1580s [00:53:00.492] ...future.conditions[[length(...future.conditions) + 1580s [00:53:00.492] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1580s [00:53:00.492] if (TRUE && !signal) { 1580s [00:53:00.492] muffleCondition <- function (cond, pattern = "^muffle") 1580s [00:53:00.492] { 1580s [00:53:00.492] inherits <- base::inherits 1580s [00:53:00.492] invokeRestart <- base::invokeRestart 1580s [00:53:00.492] is.null <- base::is.null 1580s [00:53:00.492] muffled <- FALSE 1580s [00:53:00.492] if (inherits(cond, "message")) { 1580s [00:53:00.492] muffled <- grepl(pattern, "muffleMessage") 1580s [00:53:00.492] if (muffled) 1580s [00:53:00.492] invokeRestart("muffleMessage") 1580s [00:53:00.492] } 1580s [00:53:00.492] else if (inherits(cond, "warning")) { 1580s [00:53:00.492] muffled <- grepl(pattern, "muffleWarning") 1580s [00:53:00.492] if (muffled) 1580s [00:53:00.492] invokeRestart("muffleWarning") 1580s [00:53:00.492] } 1580s [00:53:00.492] else if (inherits(cond, "condition")) { 1580s [00:53:00.492] if (!is.null(pattern)) { 1580s [00:53:00.492] computeRestarts <- base::computeRestarts 1580s [00:53:00.492] grepl <- base::grepl 1580s [00:53:00.492] restarts <- computeRestarts(cond) 1580s [00:53:00.492] for (restart in restarts) { 1580s [00:53:00.492] name <- restart$name 1580s [00:53:00.492] if (is.null(name)) 1580s [00:53:00.492] next 1580s [00:53:00.492] if (!grepl(pattern, name)) 1580s [00:53:00.492] next 1580s [00:53:00.492] invokeRestart(restart) 1580s [00:53:00.492] muffled <- TRUE 1580s [00:53:00.492] break 1580s [00:53:00.492] } 1580s [00:53:00.492] } 1580s [00:53:00.492] } 1580s [00:53:00.492] invisible(muffled) 1580s [00:53:00.492] } 1580s [00:53:00.492] muffleCondition(cond, pattern = "^muffle") 1580s [00:53:00.492] } 1580s [00:53:00.492] } 1580s [00:53:00.492] else { 1580s [00:53:00.492] if (TRUE) { 1580s [00:53:00.492] muffleCondition <- function (cond, pattern = "^muffle") 1580s [00:53:00.492] { 1580s [00:53:00.492] inherits <- base::inherits 1580s [00:53:00.492] invokeRestart <- base::invokeRestart 1580s [00:53:00.492] is.null <- base::is.null 1580s [00:53:00.492] muffled <- FALSE 1580s [00:53:00.492] if (inherits(cond, "message")) { 1580s [00:53:00.492] muffled <- grepl(pattern, "muffleMessage") 1580s [00:53:00.492] if (muffled) 1580s [00:53:00.492] invokeRestart("muffleMessage") 1580s [00:53:00.492] } 1580s [00:53:00.492] else if (inherits(cond, "warning")) { 1580s [00:53:00.492] muffled <- grepl(pattern, "muffleWarning") 1580s [00:53:00.492] if (muffled) 1580s [00:53:00.492] invokeRestart("muffleWarning") 1580s [00:53:00.492] } 1580s [00:53:00.492] else if (inherits(cond, "condition")) { 1580s [00:53:00.492] if (!is.null(pattern)) { 1580s [00:53:00.492] computeRestarts <- base::computeRestarts 1580s [00:53:00.492] grepl <- base::grepl 1580s [00:53:00.492] restarts <- computeRestarts(cond) 1580s [00:53:00.492] for (restart in restarts) { 1580s [00:53:00.492] name <- restart$name 1580s [00:53:00.492] if (is.null(name)) 1580s [00:53:00.492] next 1580s [00:53:00.492] if (!grepl(pattern, name)) 1580s [00:53:00.492] next 1580s [00:53:00.492] invokeRestart(restart) 1580s [00:53:00.492] muffled <- TRUE 1580s [00:53:00.492] break 1580s [00:53:00.492] } 1580s [00:53:00.492] } 1580s [00:53:00.492] } 1580s [00:53:00.492] invisible(muffled) 1580s [00:53:00.492] } 1580s [00:53:00.492] muffleCondition(cond, pattern = "^muffle") 1580s [00:53:00.492] } 1580s [00:53:00.492] } 1580s [00:53:00.492] } 1580s [00:53:00.492] })) 1580s [00:53:00.492] }, error = function(ex) { 1580s [00:53:00.492] base::structure(base::list(value = NULL, visible = NULL, 1580s [00:53:00.492] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1580s [00:53:00.492] ...future.rng), started = ...future.startTime, 1580s [00:53:00.492] finished = Sys.time(), session_uuid = NA_character_, 1580s [00:53:00.492] version = "1.8"), class = "FutureResult") 1580s [00:53:00.492] }, finally = { 1580s [00:53:00.492] if (!identical(...future.workdir, getwd())) 1580s [00:53:00.492] setwd(...future.workdir) 1580s [00:53:00.492] { 1580s [00:53:00.492] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1580s [00:53:00.492] ...future.oldOptions$nwarnings <- NULL 1580s [00:53:00.492] } 1580s [00:53:00.492] base::options(...future.oldOptions) 1580s [00:53:00.492] if (.Platform$OS.type == "windows") { 1580s [00:53:00.492] old_names <- names(...future.oldEnvVars) 1580s [00:53:00.492] envs <- base::Sys.getenv() 1580s [00:53:00.492] names <- names(envs) 1580s [00:53:00.492] common <- intersect(names, old_names) 1580s [00:53:00.492] added <- setdiff(names, old_names) 1580s [00:53:00.492] removed <- setdiff(old_names, names) 1580s [00:53:00.492] changed <- common[...future.oldEnvVars[common] != 1580s [00:53:00.492] envs[common]] 1580s [00:53:00.492] NAMES <- toupper(changed) 1580s [00:53:00.492] args <- list() 1580s [00:53:00.492] for (kk in seq_along(NAMES)) { 1580s [00:53:00.492] name <- changed[[kk]] 1580s [00:53:00.492] NAME <- NAMES[[kk]] 1580s [00:53:00.492] if (name != NAME && is.element(NAME, old_names)) 1580s [00:53:00.492] next 1580s [00:53:00.492] args[[name]] <- ...future.oldEnvVars[[name]] 1580s [00:53:00.492] } 1580s [00:53:00.492] NAMES <- toupper(added) 1580s [00:53:00.492] for (kk in seq_along(NAMES)) { 1580s [00:53:00.492] name <- added[[kk]] 1580s [00:53:00.492] NAME <- NAMES[[kk]] 1580s [00:53:00.492] if (name != NAME && is.element(NAME, old_names)) 1580s [00:53:00.492] next 1580s [00:53:00.492] args[[name]] <- "" 1580s [00:53:00.492] } 1580s [00:53:00.492] NAMES <- toupper(removed) 1580s [00:53:00.492] for (kk in seq_along(NAMES)) { 1580s [00:53:00.492] name <- removed[[kk]] 1580s [00:53:00.492] NAME <- NAMES[[kk]] 1580s [00:53:00.492] if (name != NAME && is.element(NAME, old_names)) 1580s [00:53:00.492] next 1580s [00:53:00.492] args[[name]] <- ...future.oldEnvVars[[name]] 1580s [00:53:00.492] } 1580s [00:53:00.492] if (length(args) > 0) 1580s [00:53:00.492] base::do.call(base::Sys.setenv, args = args) 1580s [00:53:00.492] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1580s [00:53:00.492] } 1580s [00:53:00.492] else { 1580s [00:53:00.492] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1580s [00:53:00.492] } 1580s [00:53:00.492] { 1580s [00:53:00.492] if (base::length(...future.futureOptionsAdded) > 1580s [00:53:00.492] 0L) { 1580s [00:53:00.492] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1580s [00:53:00.492] base::names(opts) <- ...future.futureOptionsAdded 1580s [00:53:00.492] base::options(opts) 1580s [00:53:00.492] } 1580s [00:53:00.492] { 1580s [00:53:00.492] { 1580s [00:53:00.492] NULL 1580s [00:53:00.492] RNGkind("Mersenne-Twister") 1580s [00:53:00.492] base::rm(list = ".Random.seed", envir = base::globalenv(), 1580s [00:53:00.492] inherits = FALSE) 1580s [00:53:00.492] } 1580s [00:53:00.492] options(future.plan = NULL) 1580s [00:53:00.492] if (is.na(NA_character_)) 1580s [00:53:00.492] Sys.unsetenv("R_FUTURE_PLAN") 1580s [00:53:00.492] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1580s [00:53:00.492] future::plan(list(function (..., workers = availableCores(), 1580s [00:53:00.492] lazy = FALSE, rscript_libs = .libPaths(), 1580s [00:53:00.492] envir = parent.frame()) 1580s [00:53:00.492] { 1580s [00:53:00.492] if (is.function(workers)) 1580s [00:53:00.492] workers <- workers() 1580s [00:53:00.492] workers <- structure(as.integer(workers), 1580s [00:53:00.492] class = class(workers)) 1580s [00:53:00.492] stop_if_not(length(workers) == 1, is.finite(workers), 1580s [00:53:00.492] workers >= 1) 1580s [00:53:00.492] if (workers == 1L && !inherits(workers, "AsIs")) { 1580s [00:53:00.492] return(sequential(..., lazy = TRUE, envir = envir)) 1580s [00:53:00.492] } 1580s [00:53:00.492] future <- MultisessionFuture(..., workers = workers, 1580s [00:53:00.492] lazy = lazy, rscript_libs = rscript_libs, 1580s [00:53:00.492] envir = envir) 1580s [00:53:00.492] if (!future$lazy) 1580s [00:53:00.492] future <- run(future) 1580s [00:53:00.492] invisible(future) 1580s [00:53:00.492] }), .cleanup = FALSE, .init = FALSE) 1580s [00:53:00.492] } 1580s [00:53:00.492] } 1580s [00:53:00.492] } 1580s [00:53:00.492] }) 1580s [00:53:00.492] if (TRUE) { 1580s [00:53:00.492] base::sink(type = "output", split = FALSE) 1580s [00:53:00.492] if (TRUE) { 1580s [00:53:00.492] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1580s [00:53:00.492] } 1580s [00:53:00.492] else { 1580s [00:53:00.492] ...future.result["stdout"] <- base::list(NULL) 1580s [00:53:00.492] } 1580s [00:53:00.492] base::close(...future.stdout) 1580s [00:53:00.492] ...future.stdout <- NULL 1580s [00:53:00.492] } 1580s [00:53:00.492] ...future.result$conditions <- ...future.conditions 1580s [00:53:00.492] ...future.result$finished <- base::Sys.time() 1580s [00:53:00.492] ...future.result 1580s [00:53:00.492] } 1580s [00:53:00.502] assign_globals() ... 1580s [00:53:00.503] List of 5 1580s [00:53:00.503] $ ...future.FUN :function (x, ...) 1580s [00:53:00.503] $ future.call.arguments : list() 1580s [00:53:00.503] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1580s [00:53:00.503] $ ...future.elements_ii :List of 3 1580s [00:53:00.503] ..$ a: num 1 1580s [00:53:00.503] ..$ b: num 2 1580s [00:53:00.503] ..$ c: num 3 1580s [00:53:00.503] $ ...future.seeds_ii : NULL 1580s [00:53:00.503] $ ...future.globals.maxSize: NULL 1580s [00:53:00.503] - attr(*, "where")=List of 5 1580s [00:53:00.503] ..$ ...future.FUN : 1580s [00:53:00.503] ..$ future.call.arguments : 1580s [00:53:00.503] ..$ ...future.elements_ii : 1580s [00:53:00.503] ..$ ...future.seeds_ii : 1580s [00:53:00.503] ..$ ...future.globals.maxSize: 1580s [00:53:00.503] - attr(*, "resolved")= logi FALSE 1580s [00:53:00.503] - attr(*, "total_size")= num 1248 1580s [00:53:00.503] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1580s [00:53:00.503] - attr(*, "already-done")= logi TRUE 1580s [00:53:00.509] - copied ‘...future.FUN’ to environment 1580s [00:53:00.509] - copied ‘future.call.arguments’ to environment 1580s [00:53:00.509] - copied ‘...future.elements_ii’ to environment 1580s [00:53:00.509] - copied ‘...future.seeds_ii’ to environment 1580s [00:53:00.510] - copied ‘...future.globals.maxSize’ to environment 1580s [00:53:00.510] assign_globals() ... done 1580s [00:53:00.510] plan(): Setting new future strategy stack: 1580s [00:53:00.510] List of future strategies: 1580s [00:53:00.510] 1. sequential: 1580s [00:53:00.510] - args: function (..., envir = parent.frame()) 1580s [00:53:00.510] - tweaked: FALSE 1580s [00:53:00.510] - call: NULL 1580s [00:53:00.511] plan(): nbrOfWorkers() = 1 1580s [00:53:00.512] plan(): Setting new future strategy stack: 1580s [00:53:00.512] List of future strategies: 1580s [00:53:00.512] 1. multisession: 1580s [00:53:00.512] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1580s [00:53:00.512] - tweaked: FALSE 1580s [00:53:00.512] - call: plan(strategy) 1580s [00:53:00.516] plan(): nbrOfWorkers() = 1 1580s [00:53:00.516] SequentialFuture started (and completed) 1580s [00:53:00.516] - Launch lazy future ... done 1580s [00:53:00.516] run() for ‘SequentialFuture’ ... done 1580s [00:53:00.516] Created future: 1580s [00:53:00.517] SequentialFuture: 1580s [00:53:00.517] Label: ‘future_sapply-1’ 1580s [00:53:00.517] Expression: 1580s [00:53:00.517] { 1580s [00:53:00.517] do.call(function(...) { 1580s [00:53:00.517] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1580s [00:53:00.517] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1580s [00:53:00.517] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1580s [00:53:00.517] on.exit(options(oopts), add = TRUE) 1580s [00:53:00.517] } 1580s [00:53:00.517] { 1580s [00:53:00.517] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1580s [00:53:00.517] ...future.X_jj <- ...future.elements_ii[[jj]] 1580s [00:53:00.517] ...future.FUN(...future.X_jj, ...) 1580s [00:53:00.517] }) 1580s [00:53:00.517] } 1580s [00:53:00.517] }, args = future.call.arguments) 1580s [00:53:00.517] } 1580s [00:53:00.517] Lazy evaluation: FALSE 1580s [00:53:00.517] Asynchronous evaluation: FALSE 1580s [00:53:00.517] Local evaluation: TRUE 1580s [00:53:00.517] Environment: R_GlobalEnv 1580s [00:53:00.517] Capture standard output: TRUE 1580s [00:53:00.517] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1580s [00:53:00.517] Globals: 5 objects totaling 1.38 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1580s [00:53:00.517] Packages: 1580s [00:53:00.517] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1580s [00:53:00.517] Resolved: TRUE 1580s [00:53:00.517] Value: 672 bytes of class ‘list’ 1580s [00:53:00.517] Early signaling: FALSE 1580s [00:53:00.517] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1580s [00:53:00.517] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1580s [00:53:00.519] Chunk #1 of 1 ... DONE 1580s [00:53:00.519] Launching 1 futures (chunks) ... DONE 1580s [00:53:00.519] Resolving 1 futures (chunks) ... 1580s [00:53:00.519] resolve() on list ... 1580s [00:53:00.519] recursive: 0 1580s [00:53:00.520] length: 1 1580s [00:53:00.520] 1580s [00:53:00.520] resolved() for ‘SequentialFuture’ ... 1580s [00:53:00.520] - state: ‘finished’ 1580s [00:53:00.520] - run: TRUE 1580s [00:53:00.521] - result: ‘FutureResult’ 1580s [00:53:00.521] resolved() for ‘SequentialFuture’ ... done 1580s [00:53:00.521] Future #1 1580s [00:53:00.521] signalConditionsASAP(SequentialFuture, pos=1) ... 1580s [00:53:00.521] - nx: 1 1580s [00:53:00.521] - relay: TRUE 1580s [00:53:00.522] - stdout: TRUE 1580s [00:53:00.522] - signal: TRUE 1580s [00:53:00.522] - resignal: FALSE 1580s [00:53:00.522] - force: TRUE 1580s [00:53:00.522] - relayed: [n=1] FALSE 1580s [00:53:00.523] - queued futures: [n=1] FALSE 1580s [00:53:00.523] - until=1 1580s [00:53:00.523] - relaying element #1 1580s [00:53:00.524] - relayed: [n=1] TRUE 1580s [00:53:00.524] - queued futures: [n=1] TRUE 1580s [00:53:00.524] signalConditionsASAP(SequentialFuture, pos=1) ... done 1580s [00:53:00.524] length: 0 (resolved future 1) 1580s [00:53:00.524] Relaying remaining futures 1580s [00:53:00.525] signalConditionsASAP(NULL, pos=0) ... 1580s [00:53:00.525] - nx: 1 1580s [00:53:00.525] - relay: TRUE 1580s [00:53:00.525] - stdout: TRUE 1580s [00:53:00.525] - signal: TRUE 1580s [00:53:00.526] - resignal: FALSE 1580s [00:53:00.526] - force: TRUE 1580s [00:53:00.526] - relayed: [n=1] TRUE 1580s [00:53:00.526] - queued futures: [n=1] TRUE 1580s - flush all 1580s [00:53:00.527] - relayed: [n=1] TRUE 1580s [00:53:00.527] - queued futures: [n=1] TRUE 1580s [00:53:00.527] signalConditionsASAP(NULL, pos=0) ... done 1580s [00:53:00.527] resolve() on list ... DONE 1580s [00:53:00.527] - Number of value chunks collected: 1 1580s [00:53:00.528] Resolving 1 futures (chunks) ... DONE 1580s [00:53:00.528] Reducing values from 1 chunks ... 1580s [00:53:00.528] - Number of values collected after concatenation: 3 1580s [00:53:00.528] - Number of values expected: 3 1580s List of 2 1580s $ y0: Named num [1:3] 1 2 3[00:53:00.529] Reducing values from 1 chunks ... DONE 1580s [00:53:00.529] future_lapply() ... DONE 1580s 1580s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1580s $ y1: Named num [1:3] 1 2 3 1580s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1580s [00:53:00.533] future_lapply() ... 1580s [00:53:00.539] Number of chunks: 1 1580s [00:53:00.539] getGlobalsAndPackagesXApply() ... 1580s [00:53:00.539] - future.globals: TRUE 1580s [00:53:00.540] getGlobalsAndPackages() ... 1580s [00:53:00.540] Searching for globals... 1580s [00:53:00.542] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1580s [00:53:00.542] Searching for globals ... DONE 1580s [00:53:00.542] Resolving globals: FALSE 1580s [00:53:00.543] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1580s [00:53:00.544] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1580s [00:53:00.544] - globals: [1] ‘FUN’ 1580s [00:53:00.544] 1580s [00:53:00.545] getGlobalsAndPackages() ... DONE 1580s [00:53:00.545] - globals found/used: [n=1] ‘FUN’ 1580s [00:53:00.545] - needed namespaces: [n=0] 1580s [00:53:00.545] Finding globals ... DONE 1580s [00:53:00.545] - use_args: TRUE 1580s [00:53:00.546] - Getting '...' globals ... 1580s [00:53:00.546] resolve() on list ... 1580s [00:53:00.546] recursive: 0 1580s [00:53:00.546] length: 1 1580s [00:53:00.547] elements: ‘...’ 1580s [00:53:00.547] length: 0 (resolved future 1) 1580s [00:53:00.547] resolve() on list ... DONE 1580s [00:53:00.547] - '...' content: [n=0] 1580s [00:53:00.547] List of 1 1580s [00:53:00.547] $ ...: list() 1580s [00:53:00.547] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1580s [00:53:00.547] - attr(*, "where")=List of 1 1580s [00:53:00.547] ..$ ...: 1580s [00:53:00.547] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1580s [00:53:00.547] - attr(*, "resolved")= logi TRUE 1580s [00:53:00.547] - attr(*, "total_size")= num NA 1580s [00:53:00.552] - Getting '...' globals ... DONE 1580s [00:53:00.553] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1580s [00:53:00.553] List of 2 1580s [00:53:00.553] $ ...future.FUN:function (x, y = 2 * 1:5) 1580s [00:53:00.553] $ ... : list() 1580s [00:53:00.553] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1580s [00:53:00.553] - attr(*, "where")=List of 2 1580s [00:53:00.553] ..$ ...future.FUN: 1580s [00:53:00.553] ..$ ... : 1580s [00:53:00.553] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1580s [00:53:00.553] - attr(*, "resolved")= logi FALSE 1580s [00:53:00.553] - attr(*, "total_size")= num 4728 1580s [00:53:00.558] Packages to be attached in all futures: [n=0] 1580s [00:53:00.558] getGlobalsAndPackagesXApply() ... DONE 1580s [00:53:00.559] Number of futures (= number of chunks): 1 1580s [00:53:00.559] Launching 1 futures (chunks) ... 1580s [00:53:00.559] Chunk #1 of 1 ... 1580s [00:53:00.559] - Finding globals in 'X' for chunk #1 ... 1580s [00:53:00.559] getGlobalsAndPackages() ... 1580s [00:53:00.559] Searching for globals... 1580s [00:53:00.560] 1580s [00:53:00.560] Searching for globals ... DONE 1580s [00:53:00.560] - globals: [0] 1580s [00:53:00.560] getGlobalsAndPackages() ... DONE 1580s [00:53:00.561] + additional globals found: [n=0] 1580s [00:53:00.561] + additional namespaces needed: [n=0] 1580s [00:53:00.561] - Finding globals in 'X' for chunk #1 ... DONE 1580s [00:53:00.561] - seeds: 1580s [00:53:00.561] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1580s [00:53:00.561] getGlobalsAndPackages() ... 1580s [00:53:00.562] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1580s [00:53:00.562] Resolving globals: FALSE 1580s [00:53:00.562] Tweak future expression to call with '...' arguments ... 1580s [00:53:00.562] { 1580s [00:53:00.562] do.call(function(...) { 1580s [00:53:00.562] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1580s [00:53:00.562] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1580s [00:53:00.562] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1580s [00:53:00.562] on.exit(options(oopts), add = TRUE) 1580s [00:53:00.562] } 1580s [00:53:00.562] { 1580s [00:53:00.562] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1580s [00:53:00.562] ...future.X_jj <- ...future.elements_ii[[jj]] 1580s [00:53:00.562] ...future.FUN(...future.X_jj, ...) 1580s [00:53:00.562] }) 1580s [00:53:00.562] } 1580s [00:53:00.562] }, args = future.call.arguments) 1580s [00:53:00.562] } 1580s [00:53:00.563] Tweak future expression to call with '...' arguments ... DONE 1580s [00:53:00.563] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1580s [00:53:00.563] 1580s [00:53:00.563] getGlobalsAndPackages() ... DONE 1580s [00:53:00.564] run() for ‘Future’ ... 1580s [00:53:00.564] - state: ‘created’ 1580s [00:53:00.564] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1580s [00:53:00.568] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1580s [00:53:00.568] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1580s [00:53:00.568] - Field: ‘label’ 1580s [00:53:00.569] - Field: ‘local’ 1580s [00:53:00.569] - Field: ‘owner’ 1580s [00:53:00.569] - Field: ‘envir’ 1580s [00:53:00.569] - Field: ‘packages’ 1580s [00:53:00.569] - Field: ‘gc’ 1580s [00:53:00.569] - Field: ‘conditions’ 1580s [00:53:00.570] - Field: ‘expr’ 1580s [00:53:00.570] - Field: ‘uuid’ 1580s [00:53:00.570] - Field: ‘seed’ 1580s [00:53:00.570] - Field: ‘version’ 1580s [00:53:00.571] - Field: ‘result’ 1580s [00:53:00.571] - Field: ‘asynchronous’ 1580s [00:53:00.571] - Field: ‘calls’ 1580s [00:53:00.571] - Field: ‘globals’ 1580s [00:53:00.572] - Field: ‘stdout’ 1580s [00:53:00.572] - Field: ‘earlySignal’ 1580s [00:53:00.572] - Field: ‘lazy’ 1580s [00:53:00.572] - Field: ‘state’ 1580s [00:53:00.572] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1580s [00:53:00.573] - Launch lazy future ... 1580s [00:53:00.573] Packages needed by the future expression (n = 0): 1580s [00:53:00.573] Packages needed by future strategies (n = 0): 1580s [00:53:00.574] { 1580s [00:53:00.574] { 1580s [00:53:00.574] { 1580s [00:53:00.574] ...future.startTime <- base::Sys.time() 1580s [00:53:00.574] { 1580s [00:53:00.574] { 1580s [00:53:00.574] { 1580s [00:53:00.574] base::local({ 1580s [00:53:00.574] has_future <- base::requireNamespace("future", 1580s [00:53:00.574] quietly = TRUE) 1580s [00:53:00.574] if (has_future) { 1580s [00:53:00.574] ns <- base::getNamespace("future") 1580s [00:53:00.574] version <- ns[[".package"]][["version"]] 1580s [00:53:00.574] if (is.null(version)) 1580s [00:53:00.574] version <- utils::packageVersion("future") 1580s [00:53:00.574] } 1580s [00:53:00.574] else { 1580s [00:53:00.574] version <- NULL 1580s [00:53:00.574] } 1580s [00:53:00.574] if (!has_future || version < "1.8.0") { 1580s [00:53:00.574] info <- base::c(r_version = base::gsub("R version ", 1580s [00:53:00.574] "", base::R.version$version.string), 1580s [00:53:00.574] platform = base::sprintf("%s (%s-bit)", 1580s [00:53:00.574] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1580s [00:53:00.574] os = base::paste(base::Sys.info()[base::c("sysname", 1580s [00:53:00.574] "release", "version")], collapse = " "), 1580s [00:53:00.574] hostname = base::Sys.info()[["nodename"]]) 1580s [00:53:00.574] info <- base::sprintf("%s: %s", base::names(info), 1580s [00:53:00.574] info) 1580s [00:53:00.574] info <- base::paste(info, collapse = "; ") 1580s [00:53:00.574] if (!has_future) { 1580s [00:53:00.574] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1580s [00:53:00.574] info) 1580s [00:53:00.574] } 1580s [00:53:00.574] else { 1580s [00:53:00.574] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1580s [00:53:00.574] info, version) 1580s [00:53:00.574] } 1580s [00:53:00.574] base::stop(msg) 1580s [00:53:00.574] } 1580s [00:53:00.574] }) 1580s [00:53:00.574] } 1580s [00:53:00.574] options(future.plan = NULL) 1580s [00:53:00.574] Sys.unsetenv("R_FUTURE_PLAN") 1580s [00:53:00.574] future::plan("default", .cleanup = FALSE, .init = FALSE) 1580s [00:53:00.574] } 1580s [00:53:00.574] ...future.workdir <- getwd() 1580s [00:53:00.574] } 1580s [00:53:00.574] ...future.oldOptions <- base::as.list(base::.Options) 1580s [00:53:00.574] ...future.oldEnvVars <- base::Sys.getenv() 1580s [00:53:00.574] } 1580s [00:53:00.574] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1580s [00:53:00.574] future.globals.maxSize = NULL, future.globals.method = NULL, 1580s [00:53:00.574] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1580s [00:53:00.574] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1580s [00:53:00.574] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1580s [00:53:00.574] future.stdout.windows.reencode = NULL, width = 80L) 1580s [00:53:00.574] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1580s [00:53:00.574] base::names(...future.oldOptions)) 1580s [00:53:00.574] } 1580s [00:53:00.574] if (FALSE) { 1580s [00:53:00.574] } 1580s [00:53:00.574] else { 1580s [00:53:00.574] if (TRUE) { 1580s [00:53:00.574] ...future.stdout <- base::rawConnection(base::raw(0L), 1580s [00:53:00.574] open = "w") 1580s [00:53:00.574] } 1580s [00:53:00.574] else { 1580s [00:53:00.574] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1580s [00:53:00.574] windows = "NUL", "/dev/null"), open = "w") 1580s [00:53:00.574] } 1580s [00:53:00.574] base::sink(...future.stdout, type = "output", split = FALSE) 1580s [00:53:00.574] base::on.exit(if (!base::is.null(...future.stdout)) { 1580s [00:53:00.574] base::sink(type = "output", split = FALSE) 1580s [00:53:00.574] base::close(...future.stdout) 1580s [00:53:00.574] }, add = TRUE) 1580s [00:53:00.574] } 1580s [00:53:00.574] ...future.frame <- base::sys.nframe() 1580s [00:53:00.574] ...future.conditions <- base::list() 1580s [00:53:00.574] ...future.rng <- base::globalenv()$.Random.seed 1580s [00:53:00.574] if (FALSE) { 1580s [00:53:00.574] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1580s [00:53:00.574] "...future.value", "...future.globalenv.names", ".Random.seed") 1580s [00:53:00.574] } 1580s [00:53:00.574] ...future.result <- base::tryCatch({ 1580s [00:53:00.574] base::withCallingHandlers({ 1580s [00:53:00.574] ...future.value <- base::withVisible(base::local({ 1580s [00:53:00.574] do.call(function(...) { 1580s [00:53:00.574] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1580s [00:53:00.574] if (!identical(...future.globals.maxSize.org, 1580s [00:53:00.574] ...future.globals.maxSize)) { 1580s [00:53:00.574] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1580s [00:53:00.574] on.exit(options(oopts), add = TRUE) 1580s [00:53:00.574] } 1580s [00:53:00.574] { 1580s [00:53:00.574] lapply(seq_along(...future.elements_ii), 1580s [00:53:00.574] FUN = function(jj) { 1580s [00:53:00.574] ...future.X_jj <- ...future.elements_ii[[jj]] 1580s [00:53:00.574] ...future.FUN(...future.X_jj, ...) 1580s [00:53:00.574] }) 1580s [00:53:00.574] } 1580s [00:53:00.574] }, args = future.call.arguments) 1580s [00:53:00.574] })) 1580s [00:53:00.574] future::FutureResult(value = ...future.value$value, 1580s [00:53:00.574] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1580s [00:53:00.574] ...future.rng), globalenv = if (FALSE) 1580s [00:53:00.574] list(added = base::setdiff(base::names(base::.GlobalEnv), 1580s [00:53:00.574] ...future.globalenv.names)) 1580s [00:53:00.574] else NULL, started = ...future.startTime, version = "1.8") 1580s [00:53:00.574] }, condition = base::local({ 1580s [00:53:00.574] c <- base::c 1580s [00:53:00.574] inherits <- base::inherits 1580s [00:53:00.574] invokeRestart <- base::invokeRestart 1580s [00:53:00.574] length <- base::length 1580s [00:53:00.574] list <- base::list 1580s [00:53:00.574] seq.int <- base::seq.int 1580s [00:53:00.574] signalCondition <- base::signalCondition 1580s [00:53:00.574] sys.calls <- base::sys.calls 1580s [00:53:00.574] `[[` <- base::`[[` 1580s [00:53:00.574] `+` <- base::`+` 1580s [00:53:00.574] `<<-` <- base::`<<-` 1580s [00:53:00.574] sysCalls <- function(calls = sys.calls(), from = 1L) { 1580s [00:53:00.574] calls[seq.int(from = from + 12L, to = length(calls) - 1580s [00:53:00.574] 3L)] 1580s [00:53:00.574] } 1580s [00:53:00.574] function(cond) { 1580s [00:53:00.574] is_error <- inherits(cond, "error") 1580s [00:53:00.574] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1580s [00:53:00.574] NULL) 1580s [00:53:00.574] if (is_error) { 1580s [00:53:00.574] sessionInformation <- function() { 1580s [00:53:00.574] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1580s [00:53:00.574] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1580s [00:53:00.574] search = base::search(), system = base::Sys.info()) 1580s [00:53:00.574] } 1580s [00:53:00.574] ...future.conditions[[length(...future.conditions) + 1580s [00:53:00.574] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1580s [00:53:00.574] cond$call), session = sessionInformation(), 1580s [00:53:00.574] timestamp = base::Sys.time(), signaled = 0L) 1580s [00:53:00.574] signalCondition(cond) 1580s [00:53:00.574] } 1580s [00:53:00.574] else if (!ignore && TRUE && inherits(cond, c("condition", 1580s [00:53:00.574] "immediateCondition"))) { 1580s [00:53:00.574] signal <- TRUE && inherits(cond, "immediateCondition") 1580s [00:53:00.574] ...future.conditions[[length(...future.conditions) + 1580s [00:53:00.574] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1580s [00:53:00.574] if (TRUE && !signal) { 1580s [00:53:00.574] muffleCondition <- function (cond, pattern = "^muffle") 1580s [00:53:00.574] { 1580s [00:53:00.574] inherits <- base::inherits 1580s [00:53:00.574] invokeRestart <- base::invokeRestart 1580s [00:53:00.574] is.null <- base::is.null 1580s [00:53:00.574] muffled <- FALSE 1580s [00:53:00.574] if (inherits(cond, "message")) { 1580s [00:53:00.574] muffled <- grepl(pattern, "muffleMessage") 1580s [00:53:00.574] if (muffled) 1580s [00:53:00.574] invokeRestart("muffleMessage") 1580s [00:53:00.574] } 1580s [00:53:00.574] else if (inherits(cond, "warning")) { 1580s [00:53:00.574] muffled <- grepl(pattern, "muffleWarning") 1580s [00:53:00.574] if (muffled) 1580s [00:53:00.574] invokeRestart("muffleWarning") 1580s [00:53:00.574] } 1580s [00:53:00.574] else if (inherits(cond, "condition")) { 1580s [00:53:00.574] if (!is.null(pattern)) { 1580s [00:53:00.574] computeRestarts <- base::computeRestarts 1580s [00:53:00.574] grepl <- base::grepl 1580s [00:53:00.574] restarts <- computeRestarts(cond) 1580s [00:53:00.574] for (restart in restarts) { 1580s [00:53:00.574] name <- restart$name 1580s [00:53:00.574] if (is.null(name)) 1580s [00:53:00.574] next 1580s [00:53:00.574] if (!grepl(pattern, name)) 1580s [00:53:00.574] next 1580s [00:53:00.574] invokeRestart(restart) 1580s [00:53:00.574] muffled <- TRUE 1580s [00:53:00.574] break 1580s [00:53:00.574] } 1580s [00:53:00.574] } 1580s [00:53:00.574] } 1580s [00:53:00.574] invisible(muffled) 1580s [00:53:00.574] } 1580s [00:53:00.574] muffleCondition(cond, pattern = "^muffle") 1580s [00:53:00.574] } 1580s [00:53:00.574] } 1580s [00:53:00.574] else { 1580s [00:53:00.574] if (TRUE) { 1580s [00:53:00.574] muffleCondition <- function (cond, pattern = "^muffle") 1580s [00:53:00.574] { 1580s [00:53:00.574] inherits <- base::inherits 1580s [00:53:00.574] invokeRestart <- base::invokeRestart 1580s [00:53:00.574] is.null <- base::is.null 1580s [00:53:00.574] muffled <- FALSE 1580s [00:53:00.574] if (inherits(cond, "message")) { 1580s [00:53:00.574] muffled <- grepl(pattern, "muffleMessage") 1580s [00:53:00.574] if (muffled) 1580s [00:53:00.574] invokeRestart("muffleMessage") 1580s [00:53:00.574] } 1580s [00:53:00.574] else if (inherits(cond, "warning")) { 1580s [00:53:00.574] muffled <- grepl(pattern, "muffleWarning") 1580s [00:53:00.574] if (muffled) 1580s [00:53:00.574] invokeRestart("muffleWarning") 1580s [00:53:00.574] } 1580s [00:53:00.574] else if (inherits(cond, "condition")) { 1580s [00:53:00.574] if (!is.null(pattern)) { 1580s [00:53:00.574] computeRestarts <- base::computeRestarts 1580s [00:53:00.574] grepl <- base::grepl 1580s [00:53:00.574] restarts <- computeRestarts(cond) 1580s [00:53:00.574] for (restart in restarts) { 1580s [00:53:00.574] name <- restart$name 1580s [00:53:00.574] if (is.null(name)) 1580s [00:53:00.574] next 1580s [00:53:00.574] if (!grepl(pattern, name)) 1580s [00:53:00.574] next 1580s [00:53:00.574] invokeRestart(restart) 1580s [00:53:00.574] muffled <- TRUE 1580s [00:53:00.574] break 1580s [00:53:00.574] } 1580s [00:53:00.574] } 1580s [00:53:00.574] } 1580s [00:53:00.574] invisible(muffled) 1580s [00:53:00.574] } 1580s [00:53:00.574] muffleCondition(cond, pattern = "^muffle") 1580s [00:53:00.574] } 1580s [00:53:00.574] } 1580s [00:53:00.574] } 1580s [00:53:00.574] })) 1580s [00:53:00.574] }, error = function(ex) { 1580s [00:53:00.574] base::structure(base::list(value = NULL, visible = NULL, 1580s [00:53:00.574] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1580s [00:53:00.574] ...future.rng), started = ...future.startTime, 1580s [00:53:00.574] finished = Sys.time(), session_uuid = NA_character_, 1580s [00:53:00.574] version = "1.8"), class = "FutureResult") 1580s [00:53:00.574] }, finally = { 1580s [00:53:00.574] if (!identical(...future.workdir, getwd())) 1580s [00:53:00.574] setwd(...future.workdir) 1580s [00:53:00.574] { 1580s [00:53:00.574] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1580s [00:53:00.574] ...future.oldOptions$nwarnings <- NULL 1580s [00:53:00.574] } 1580s [00:53:00.574] base::options(...future.oldOptions) 1580s [00:53:00.574] if (.Platform$OS.type == "windows") { 1580s [00:53:00.574] old_names <- names(...future.oldEnvVars) 1580s [00:53:00.574] envs <- base::Sys.getenv() 1580s [00:53:00.574] names <- names(envs) 1580s [00:53:00.574] common <- intersect(names, old_names) 1580s [00:53:00.574] added <- setdiff(names, old_names) 1580s [00:53:00.574] removed <- setdiff(old_names, names) 1580s [00:53:00.574] changed <- common[...future.oldEnvVars[common] != 1580s [00:53:00.574] envs[common]] 1580s [00:53:00.574] NAMES <- toupper(changed) 1580s [00:53:00.574] args <- list() 1580s [00:53:00.574] for (kk in seq_along(NAMES)) { 1580s [00:53:00.574] name <- changed[[kk]] 1580s [00:53:00.574] NAME <- NAMES[[kk]] 1580s [00:53:00.574] if (name != NAME && is.element(NAME, old_names)) 1580s [00:53:00.574] next 1580s [00:53:00.574] args[[name]] <- ...future.oldEnvVars[[name]] 1580s [00:53:00.574] } 1580s [00:53:00.574] NAMES <- toupper(added) 1580s [00:53:00.574] for (kk in seq_along(NAMES)) { 1580s [00:53:00.574] name <- added[[kk]] 1580s [00:53:00.574] NAME <- NAMES[[kk]] 1580s [00:53:00.574] if (name != NAME && is.element(NAME, old_names)) 1580s [00:53:00.574] next 1580s [00:53:00.574] args[[name]] <- "" 1580s [00:53:00.574] } 1580s [00:53:00.574] NAMES <- toupper(removed) 1580s [00:53:00.574] for (kk in seq_along(NAMES)) { 1580s [00:53:00.574] name <- removed[[kk]] 1580s [00:53:00.574] NAME <- NAMES[[kk]] 1580s [00:53:00.574] if (name != NAME && is.element(NAME, old_names)) 1580s [00:53:00.574] next 1580s [00:53:00.574] args[[name]] <- ...future.oldEnvVars[[name]] 1580s [00:53:00.574] } 1580s [00:53:00.574] if (length(args) > 0) 1580s [00:53:00.574] base::do.call(base::Sys.setenv, args = args) 1580s [00:53:00.574] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1580s [00:53:00.574] } 1580s [00:53:00.574] else { 1580s [00:53:00.574] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1580s [00:53:00.574] } 1580s [00:53:00.574] { 1580s [00:53:00.574] if (base::length(...future.futureOptionsAdded) > 1580s [00:53:00.574] 0L) { 1580s [00:53:00.574] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1580s [00:53:00.574] base::names(opts) <- ...future.futureOptionsAdded 1580s [00:53:00.574] base::options(opts) 1580s [00:53:00.574] } 1580s [00:53:00.574] { 1580s [00:53:00.574] { 1580s [00:53:00.574] NULL 1580s [00:53:00.574] RNGkind("Mersenne-Twister") 1580s [00:53:00.574] base::rm(list = ".Random.seed", envir = base::globalenv(), 1580s [00:53:00.574] inherits = FALSE) 1580s [00:53:00.574] } 1580s [00:53:00.574] options(future.plan = NULL) 1580s [00:53:00.574] if (is.na(NA_character_)) 1580s [00:53:00.574] Sys.unsetenv("R_FUTURE_PLAN") 1580s [00:53:00.574] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1580s [00:53:00.574] future::plan(list(function (..., workers = availableCores(), 1580s [00:53:00.574] lazy = FALSE, rscript_libs = .libPaths(), 1580s [00:53:00.574] envir = parent.frame()) 1580s [00:53:00.574] { 1580s [00:53:00.574] if (is.function(workers)) 1580s [00:53:00.574] workers <- workers() 1580s [00:53:00.574] workers <- structure(as.integer(workers), 1580s [00:53:00.574] class = class(workers)) 1580s [00:53:00.574] stop_if_not(length(workers) == 1, is.finite(workers), 1580s [00:53:00.574] workers >= 1) 1580s [00:53:00.574] if (workers == 1L && !inherits(workers, "AsIs")) { 1580s [00:53:00.574] return(sequential(..., lazy = TRUE, envir = envir)) 1580s [00:53:00.574] } 1580s [00:53:00.574] future <- MultisessionFuture(..., workers = workers, 1580s [00:53:00.574] lazy = lazy, rscript_libs = rscript_libs, 1580s [00:53:00.574] envir = envir) 1580s [00:53:00.574] if (!future$lazy) 1580s [00:53:00.574] future <- run(future) 1580s [00:53:00.574] invisible(future) 1580s [00:53:00.574] }), .cleanup = FALSE, .init = FALSE) 1580s [00:53:00.574] } 1580s [00:53:00.574] } 1580s [00:53:00.574] } 1580s [00:53:00.574] }) 1580s [00:53:00.574] if (TRUE) { 1580s [00:53:00.574] base::sink(type = "output", split = FALSE) 1580s [00:53:00.574] if (TRUE) { 1580s [00:53:00.574] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1580s [00:53:00.574] } 1580s [00:53:00.574] else { 1580s [00:53:00.574] ...future.result["stdout"] <- base::list(NULL) 1580s [00:53:00.574] } 1580s [00:53:00.574] base::close(...future.stdout) 1580s [00:53:00.574] ...future.stdout <- NULL 1580s [00:53:00.574] } 1580s [00:53:00.574] ...future.result$conditions <- ...future.conditions 1580s [00:53:00.574] ...future.result$finished <- base::Sys.time() 1580s [00:53:00.574] ...future.result 1580s [00:53:00.574] } 1580s [00:53:00.579] assign_globals() ... 1580s [00:53:00.579] List of 5 1580s [00:53:00.579] $ ...future.FUN :function (x, y = 2 * 1:5) 1580s [00:53:00.579] $ future.call.arguments : list() 1580s [00:53:00.579] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1580s [00:53:00.579] $ ...future.elements_ii :List of 3 1580s [00:53:00.579] ..$ a: num 1 1580s [00:53:00.579] ..$ b: num 2 1580s [00:53:00.579] ..$ c: num 3 1580s [00:53:00.579] $ ...future.seeds_ii : NULL 1580s [00:53:00.579] $ ...future.globals.maxSize: NULL 1580s [00:53:00.579] - attr(*, "where")=List of 5 1580s [00:53:00.579] ..$ ...future.FUN : 1580s [00:53:00.579] ..$ future.call.arguments : 1580s [00:53:00.579] ..$ ...future.elements_ii : 1580s [00:53:00.579] ..$ ...future.seeds_ii : 1580s [00:53:00.579] ..$ ...future.globals.maxSize: 1580s [00:53:00.579] - attr(*, "resolved")= logi FALSE 1580s [00:53:00.579] - attr(*, "total_size")= num 4728 1580s [00:53:00.579] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1580s [00:53:00.579] - attr(*, "already-done")= logi TRUE 1580s [00:53:00.587] - reassign environment for ‘...future.FUN’ 1580s [00:53:00.587] - copied ‘...future.FUN’ to environment 1580s [00:53:00.588] - copied ‘future.call.arguments’ to environment 1580s [00:53:00.588] - copied ‘...future.elements_ii’ to environment 1580s [00:53:00.588] - copied ‘...future.seeds_ii’ to environment 1580s [00:53:00.588] - copied ‘...future.globals.maxSize’ to environment 1580s [00:53:00.588] assign_globals() ... done 1580s [00:53:00.589] plan(): Setting new future strategy stack: 1580s [00:53:00.589] List of future strategies: 1580s [00:53:00.589] 1. sequential: 1580s [00:53:00.589] - args: function (..., envir = parent.frame()) 1580s [00:53:00.589] - tweaked: FALSE 1580s [00:53:00.589] - call: NULL 1580s [00:53:00.589] plan(): nbrOfWorkers() = 1 1580s [00:53:00.590] plan(): Setting new future strategy stack: 1580s [00:53:00.591] List of future strategies: 1580s [00:53:00.591] 1. multisession: 1580s [00:53:00.591] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1580s [00:53:00.591] - tweaked: FALSE 1580s [00:53:00.591] - call: plan(strategy) 1580s [00:53:00.595] plan(): nbrOfWorkers() = 1 1580s [00:53:00.595] SequentialFuture started (and completed) 1580s [00:53:00.596] - Launch lazy future ... done 1580s [00:53:00.596] run() for ‘SequentialFuture’ ... done 1580s [00:53:00.596] Created future: 1580s [00:53:00.596] SequentialFuture: 1580s [00:53:00.596] Label: ‘future_sapply-1’ 1580s [00:53:00.596] Expression: 1580s [00:53:00.596] { 1580s [00:53:00.596] do.call(function(...) { 1580s [00:53:00.596] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1580s [00:53:00.596] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1580s [00:53:00.596] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1580s [00:53:00.596] on.exit(options(oopts), add = TRUE) 1580s [00:53:00.596] } 1580s [00:53:00.596] { 1580s [00:53:00.596] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1580s [00:53:00.596] ...future.X_jj <- ...future.elements_ii[[jj]] 1580s [00:53:00.596] ...future.FUN(...future.X_jj, ...) 1580s [00:53:00.596] }) 1580s [00:53:00.596] } 1580s [00:53:00.596] }, args = future.call.arguments) 1580s [00:53:00.596] } 1580s [00:53:00.596] Lazy evaluation: FALSE 1580s [00:53:00.596] Asynchronous evaluation: FALSE 1580s [00:53:00.596] Local evaluation: TRUE 1580s [00:53:00.596] Environment: R_GlobalEnv 1580s [00:53:00.596] Capture standard output: TRUE 1580s [00:53:00.596] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1580s [00:53:00.596] Globals: 5 objects totaling 4.78 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1580s [00:53:00.596] Packages: 1580s [00:53:00.596] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1580s [00:53:00.596] Resolved: TRUE 1580s [00:53:00.596] Value: 1.01 KiB of class ‘list’ 1580s [00:53:00.596] Early signaling: FALSE 1580s [00:53:00.596] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1580s [00:53:00.596] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1580s [00:53:00.598] Chunk #1 of 1 ... DONE 1580s [00:53:00.598] Launching 1 futures (chunks) ... DONE 1580s [00:53:00.598] Resolving 1 futures (chunks) ... 1580s [00:53:00.598] resolve() on list ... 1580s [00:53:00.598] recursive: 0 1580s [00:53:00.598] length: 1 1580s [00:53:00.598] 1580s [00:53:00.598] resolved() for ‘SequentialFuture’ ... 1580s [00:53:00.599] - state: ‘finished’ 1580s [00:53:00.599] - run: TRUE 1580s [00:53:00.599] - result: ‘FutureResult’ 1580s [00:53:00.599] resolved() for ‘SequentialFuture’ ... done 1580s [00:53:00.599] Future #1 1580s [00:53:00.599] signalConditionsASAP(SequentialFuture, pos=1) ... 1580s [00:53:00.599] - nx: 1 1580s [00:53:00.599] - relay: TRUE 1580s [00:53:00.600] - stdout: TRUE 1580s [00:53:00.600] - signal: TRUE 1580s [00:53:00.600] - resignal: FALSE 1580s [00:53:00.600] - force: TRUE 1580s List of 2 1580s $ y0: num [1:3, 1:5, 1:3] 2 2 2 4 4 4 6 6 6 8 ... 1580s ..- attr(*, "dimnames")=List of 3 1580s .. ..$ : NULL 1580s .. ..$ : NULL 1580s .. ..$ : chr [1:3] "a" "b" "c" 1580s $ y1: num [1:3, 1:5, 1:3] 2 2 2 4 4 4 6 6 6 8 ... 1580s ..- attr(*, "dimnames")=List of 3 1580s .. ..$ : NULL 1580s .. ..$ : NULL 1580s .. ..$ : chr [1:3] [00:53:00.600] - relayed: [n=1] FALSE 1580s [00:53:00.600] - queued futures: [n=1] FALSE 1580s [00:53:00.601] - until=1 1580s [00:53:00.601] - relaying element #1 1580s [00:53:00.601] - relayed: [n=1] TRUE 1580s [00:53:00.601] - queued futures: [n=1] TRUE 1580s [00:53:00.602] signalConditionsASAP(SequentialFuture, pos=1) ... done 1580s [00:53:00.602] length: 0 (resolved future 1) 1580s [00:53:00.602] Relaying remaining futures 1580s [00:53:00.602] signalConditionsASAP(NULL, pos=0) ... 1580s [00:53:00.603] - nx: 1 1580s [00:53:00.603] - relay: TRUE 1580s [00:53:00.603] - stdout: TRUE 1580s [00:53:00.603] - signal: TRUE 1580s [00:53:00.603] - resignal: FALSE 1580s [00:53:00.603] - force: TRUE 1580s [00:53:00.603] - relayed: [n=1] TRUE 1580s [00:53:00.604] - queued futures: [n=1] TRUE 1580s - flush all 1580s [00:53:00.604] - relayed: [n=1] TRUE 1580s [00:53:00.604] - queued futures: [n=1] TRUE 1580s [00:53:00.604] signalConditionsASAP(NULL, pos=0) ... done 1580s [00:53:00.604] resolve() on list ... DONE 1580s [00:53:00.605] - Number of value chunks collected: 1 1580s [00:53:00.605] Resolving 1 futures (chunks) ... DONE 1580s [00:53:00.605] Reducing values from 1 chunks ... 1580s [00:53:00.605] - Number of values collected after concatenation: 3 1580s [00:53:00.605] - Number of values expected: 3 1580s [00:53:00.605] Reducing values from 1 chunks ... DONE 1580s [00:53:00.605] future_lapply() ... DONE 1580s "a" "b" "c" 1580s [00:53:00.611] future_lapply() ... 1580s [00:53:00.614] Number of chunks: 1 1580s [00:53:00.614] getGlobalsAndPackagesXApply() ... 1580s [00:53:00.614] - future.globals: TRUE 1580s [00:53:00.615] getGlobalsAndPackages() ... 1580s [00:53:00.615] Searching for globals... 1580s [00:53:00.616] - globals found: [1] ‘FUN’ 1580s [00:53:00.616] Searching for globals ... DONE 1580s [00:53:00.616] Resolving globals: FALSE 1580s [00:53:00.616] The total size of the 1 globals is 848 bytes (848 bytes) 1580s [00:53:00.617] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1580s [00:53:00.618] - globals: [1] ‘FUN’ 1580s [00:53:00.618] 1580s [00:53:00.618] getGlobalsAndPackages() ... DONE 1580s [00:53:00.618] - globals found/used: [n=1] ‘FUN’ 1580s [00:53:00.618] - needed namespaces: [n=0] 1580s [00:53:00.618] Finding globals ... DONE 1580s [00:53:00.618] - use_args: TRUE 1580s [00:53:00.619] - Getting '...' globals ... 1580s [00:53:00.619] resolve() on list ... 1580s [00:53:00.619] recursive: 0 1580s [00:53:00.619] length: 1 1580s [00:53:00.619] elements: ‘...’ 1580s [00:53:00.620] length: 0 (resolved future 1) 1580s [00:53:00.620] resolve() on list ... DONE 1580s [00:53:00.620] - '...' content: [n=0] 1580s [00:53:00.620] List of 1 1580s [00:53:00.620] $ ...: list() 1580s [00:53:00.620] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1580s [00:53:00.620] - attr(*, "where")=List of 1 1580s [00:53:00.620] ..$ ...: 1580s [00:53:00.620] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1580s [00:53:00.620] - attr(*, "resolved")= logi TRUE 1580s [00:53:00.620] - attr(*, "total_size")= num NA 1580s [00:53:00.628] - Getting '...' globals ... DONE 1580s [00:53:00.628] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1580s [00:53:00.628] List of 2 1580s [00:53:00.628] $ ...future.FUN:function (x) 1580s [00:53:00.628] $ ... : list() 1580s [00:53:00.628] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1580s [00:53:00.628] - attr(*, "where")=List of 2 1580s [00:53:00.628] ..$ ...future.FUN: 1580s [00:53:00.628] ..$ ... : 1580s [00:53:00.628] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1580s [00:53:00.628] - attr(*, "resolved")= logi FALSE 1580s [00:53:00.628] - attr(*, "total_size")= num 848 1580s [00:53:00.632] Packages to be attached in all futures: [n=0] 1580s [00:53:00.632] getGlobalsAndPackagesXApply() ... DONE 1580s [00:53:00.633] Number of futures (= number of chunks): 1 1580s [00:53:00.633] Launching 1 futures (chunks) ... 1580s [00:53:00.633] Chunk #1 of 1 ... 1580s [00:53:00.633] - Finding globals in 'X' for chunk #1 ... 1580s [00:53:00.633] getGlobalsAndPackages() ... 1580s [00:53:00.633] Searching for globals... 1580s [00:53:00.634] 1580s [00:53:00.634] Searching for globals ... DONE 1580s [00:53:00.634] - globals: [0] 1580s [00:53:00.635] getGlobalsAndPackages() ... DONE 1580s [00:53:00.635] + additional globals found: [n=0] 1580s [00:53:00.635] + additional namespaces needed: [n=0] 1580s [00:53:00.635] - Finding globals in 'X' for chunk #1 ... DONE 1580s [00:53:00.635] - seeds: 1580s [00:53:00.635] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1580s [00:53:00.635] getGlobalsAndPackages() ... 1580s [00:53:00.636] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1580s [00:53:00.636] Resolving globals: FALSE 1580s [00:53:00.636] Tweak future expression to call with '...' arguments ... 1580s [00:53:00.636] { 1580s [00:53:00.636] do.call(function(...) { 1580s [00:53:00.636] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1580s [00:53:00.636] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1580s [00:53:00.636] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1580s [00:53:00.636] on.exit(options(oopts), add = TRUE) 1580s [00:53:00.636] } 1580s [00:53:00.636] { 1580s [00:53:00.636] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1580s [00:53:00.636] ...future.X_jj <- ...future.elements_ii[[jj]] 1580s [00:53:00.636] ...future.FUN(...future.X_jj, ...) 1580s [00:53:00.636] }) 1580s [00:53:00.636] } 1580s [00:53:00.636] }, args = future.call.arguments) 1580s [00:53:00.636] } 1580s [00:53:00.636] Tweak future expression to call with '...' arguments ... DONE 1580s [00:53:00.637] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1580s [00:53:00.637] 1580s [00:53:00.637] getGlobalsAndPackages() ... DONE 1580s [00:53:00.638] run() for ‘Future’ ... 1580s [00:53:00.638] - state: ‘created’ 1580s [00:53:00.638] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1580s [00:53:00.642] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1580s [00:53:00.643] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1580s [00:53:00.643] - Field: ‘label’ 1580s [00:53:00.643] - Field: ‘local’ 1580s [00:53:00.644] - Field: ‘owner’ 1580s [00:53:00.644] - Field: ‘envir’ 1580s [00:53:00.644] - Field: ‘packages’ 1580s [00:53:00.644] - Field: ‘gc’ 1580s [00:53:00.645] - Field: ‘conditions’ 1580s [00:53:00.645] - Field: ‘expr’ 1580s [00:53:00.645] - Field: ‘uuid’ 1580s [00:53:00.645] - Field: ‘seed’ 1580s [00:53:00.645] - Field: ‘version’ 1580s [00:53:00.645] - Field: ‘result’ 1580s [00:53:00.646] - Field: ‘asynchronous’ 1580s [00:53:00.646] - Field: ‘calls’ 1580s [00:53:00.646] - Field: ‘globals’ 1580s [00:53:00.646] - Field: ‘stdout’ 1580s [00:53:00.646] - Field: ‘earlySignal’ 1580s [00:53:00.646] - Field: ‘lazy’ 1580s [00:53:00.647] - Field: ‘state’ 1580s [00:53:00.647] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1580s [00:53:00.647] - Launch lazy future ... 1580s [00:53:00.647] Packages needed by the future expression (n = 0): 1580s [00:53:00.647] Packages needed by future strategies (n = 0): 1580s [00:53:00.648] { 1580s [00:53:00.648] { 1580s [00:53:00.648] { 1580s [00:53:00.648] ...future.startTime <- base::Sys.time() 1580s [00:53:00.648] { 1580s [00:53:00.648] { 1580s [00:53:00.648] { 1580s [00:53:00.648] base::local({ 1580s [00:53:00.648] has_future <- base::requireNamespace("future", 1580s [00:53:00.648] quietly = TRUE) 1580s [00:53:00.648] if (has_future) { 1580s [00:53:00.648] ns <- base::getNamespace("future") 1580s [00:53:00.648] version <- ns[[".package"]][["version"]] 1580s [00:53:00.648] if (is.null(version)) 1580s [00:53:00.648] version <- utils::packageVersion("future") 1580s [00:53:00.648] } 1580s [00:53:00.648] else { 1580s [00:53:00.648] version <- NULL 1580s [00:53:00.648] } 1580s [00:53:00.648] if (!has_future || version < "1.8.0") { 1580s [00:53:00.648] info <- base::c(r_version = base::gsub("R version ", 1580s [00:53:00.648] "", base::R.version$version.string), 1580s [00:53:00.648] platform = base::sprintf("%s (%s-bit)", 1580s [00:53:00.648] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1580s [00:53:00.648] os = base::paste(base::Sys.info()[base::c("sysname", 1580s [00:53:00.648] "release", "version")], collapse = " "), 1580s [00:53:00.648] hostname = base::Sys.info()[["nodename"]]) 1580s [00:53:00.648] info <- base::sprintf("%s: %s", base::names(info), 1580s [00:53:00.648] info) 1580s [00:53:00.648] info <- base::paste(info, collapse = "; ") 1580s [00:53:00.648] if (!has_future) { 1580s [00:53:00.648] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1580s [00:53:00.648] info) 1580s [00:53:00.648] } 1580s [00:53:00.648] else { 1580s [00:53:00.648] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1580s [00:53:00.648] info, version) 1580s [00:53:00.648] } 1580s [00:53:00.648] base::stop(msg) 1580s [00:53:00.648] } 1580s [00:53:00.648] }) 1580s [00:53:00.648] } 1580s [00:53:00.648] options(future.plan = NULL) 1580s [00:53:00.648] Sys.unsetenv("R_FUTURE_PLAN") 1580s [00:53:00.648] future::plan("default", .cleanup = FALSE, .init = FALSE) 1580s [00:53:00.648] } 1580s [00:53:00.648] ...future.workdir <- getwd() 1580s [00:53:00.648] } 1580s [00:53:00.648] ...future.oldOptions <- base::as.list(base::.Options) 1580s [00:53:00.648] ...future.oldEnvVars <- base::Sys.getenv() 1580s [00:53:00.648] } 1580s [00:53:00.648] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1580s [00:53:00.648] future.globals.maxSize = NULL, future.globals.method = NULL, 1580s [00:53:00.648] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1580s [00:53:00.648] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1580s [00:53:00.648] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1580s [00:53:00.648] future.stdout.windows.reencode = NULL, width = 80L) 1580s [00:53:00.648] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1580s [00:53:00.648] base::names(...future.oldOptions)) 1580s [00:53:00.648] } 1580s [00:53:00.648] if (FALSE) { 1580s [00:53:00.648] } 1580s [00:53:00.648] else { 1580s [00:53:00.648] if (TRUE) { 1580s [00:53:00.648] ...future.stdout <- base::rawConnection(base::raw(0L), 1580s [00:53:00.648] open = "w") 1580s [00:53:00.648] } 1580s [00:53:00.648] else { 1580s [00:53:00.648] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1580s [00:53:00.648] windows = "NUL", "/dev/null"), open = "w") 1580s [00:53:00.648] } 1580s [00:53:00.648] base::sink(...future.stdout, type = "output", split = FALSE) 1580s [00:53:00.648] base::on.exit(if (!base::is.null(...future.stdout)) { 1580s [00:53:00.648] base::sink(type = "output", split = FALSE) 1580s [00:53:00.648] base::close(...future.stdout) 1580s [00:53:00.648] }, add = TRUE) 1580s [00:53:00.648] } 1580s [00:53:00.648] ...future.frame <- base::sys.nframe() 1580s [00:53:00.648] ...future.conditions <- base::list() 1580s [00:53:00.648] ...future.rng <- base::globalenv()$.Random.seed 1580s [00:53:00.648] if (FALSE) { 1580s [00:53:00.648] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1580s [00:53:00.648] "...future.value", "...future.globalenv.names", ".Random.seed") 1580s [00:53:00.648] } 1580s [00:53:00.648] ...future.result <- base::tryCatch({ 1580s [00:53:00.648] base::withCallingHandlers({ 1580s [00:53:00.648] ...future.value <- base::withVisible(base::local({ 1580s [00:53:00.648] do.call(function(...) { 1580s [00:53:00.648] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1580s [00:53:00.648] if (!identical(...future.globals.maxSize.org, 1580s [00:53:00.648] ...future.globals.maxSize)) { 1580s [00:53:00.648] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1580s [00:53:00.648] on.exit(options(oopts), add = TRUE) 1580s [00:53:00.648] } 1580s [00:53:00.648] { 1580s [00:53:00.648] lapply(seq_along(...future.elements_ii), 1580s [00:53:00.648] FUN = function(jj) { 1580s [00:53:00.648] ...future.X_jj <- ...future.elements_ii[[jj]] 1580s [00:53:00.648] ...future.FUN(...future.X_jj, ...) 1580s [00:53:00.648] }) 1580s [00:53:00.648] } 1580s [00:53:00.648] }, args = future.call.arguments) 1580s [00:53:00.648] })) 1580s [00:53:00.648] future::FutureResult(value = ...future.value$value, 1580s [00:53:00.648] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1580s [00:53:00.648] ...future.rng), globalenv = if (FALSE) 1580s [00:53:00.648] list(added = base::setdiff(base::names(base::.GlobalEnv), 1580s [00:53:00.648] ...future.globalenv.names)) 1580s [00:53:00.648] else NULL, started = ...future.startTime, version = "1.8") 1580s [00:53:00.648] }, condition = base::local({ 1580s [00:53:00.648] c <- base::c 1580s [00:53:00.648] inherits <- base::inherits 1580s [00:53:00.648] invokeRestart <- base::invokeRestart 1580s [00:53:00.648] length <- base::length 1580s [00:53:00.648] list <- base::list 1580s [00:53:00.648] seq.int <- base::seq.int 1580s [00:53:00.648] signalCondition <- base::signalCondition 1580s [00:53:00.648] sys.calls <- base::sys.calls 1580s [00:53:00.648] `[[` <- base::`[[` 1580s [00:53:00.648] `+` <- base::`+` 1580s [00:53:00.648] `<<-` <- base::`<<-` 1580s [00:53:00.648] sysCalls <- function(calls = sys.calls(), from = 1L) { 1580s [00:53:00.648] calls[seq.int(from = from + 12L, to = length(calls) - 1580s [00:53:00.648] 3L)] 1580s [00:53:00.648] } 1580s [00:53:00.648] function(cond) { 1580s [00:53:00.648] is_error <- inherits(cond, "error") 1580s [00:53:00.648] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1580s [00:53:00.648] NULL) 1580s [00:53:00.648] if (is_error) { 1580s [00:53:00.648] sessionInformation <- function() { 1580s [00:53:00.648] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1580s [00:53:00.648] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1580s [00:53:00.648] search = base::search(), system = base::Sys.info()) 1580s [00:53:00.648] } 1580s [00:53:00.648] ...future.conditions[[length(...future.conditions) + 1580s [00:53:00.648] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1580s [00:53:00.648] cond$call), session = sessionInformation(), 1580s [00:53:00.648] timestamp = base::Sys.time(), signaled = 0L) 1580s [00:53:00.648] signalCondition(cond) 1580s [00:53:00.648] } 1580s [00:53:00.648] else if (!ignore && TRUE && inherits(cond, c("condition", 1580s [00:53:00.648] "immediateCondition"))) { 1580s [00:53:00.648] signal <- TRUE && inherits(cond, "immediateCondition") 1580s [00:53:00.648] ...future.conditions[[length(...future.conditions) + 1580s [00:53:00.648] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1580s [00:53:00.648] if (TRUE && !signal) { 1580s [00:53:00.648] muffleCondition <- function (cond, pattern = "^muffle") 1580s [00:53:00.648] { 1580s [00:53:00.648] inherits <- base::inherits 1580s [00:53:00.648] invokeRestart <- base::invokeRestart 1580s [00:53:00.648] is.null <- base::is.null 1580s [00:53:00.648] muffled <- FALSE 1580s [00:53:00.648] if (inherits(cond, "message")) { 1580s [00:53:00.648] muffled <- grepl(pattern, "muffleMessage") 1580s [00:53:00.648] if (muffled) 1580s [00:53:00.648] invokeRestart("muffleMessage") 1580s [00:53:00.648] } 1580s [00:53:00.648] else if (inherits(cond, "warning")) { 1580s [00:53:00.648] muffled <- grepl(pattern, "muffleWarning") 1580s [00:53:00.648] if (muffled) 1580s [00:53:00.648] invokeRestart("muffleWarning") 1580s [00:53:00.648] } 1580s [00:53:00.648] else if (inherits(cond, "condition")) { 1580s [00:53:00.648] if (!is.null(pattern)) { 1580s [00:53:00.648] computeRestarts <- base::computeRestarts 1580s [00:53:00.648] grepl <- base::grepl 1580s [00:53:00.648] restarts <- computeRestarts(cond) 1580s [00:53:00.648] for (restart in restarts) { 1580s [00:53:00.648] name <- restart$name 1580s [00:53:00.648] if (is.null(name)) 1580s [00:53:00.648] next 1580s [00:53:00.648] if (!grepl(pattern, name)) 1580s [00:53:00.648] next 1580s [00:53:00.648] invokeRestart(restart) 1580s [00:53:00.648] muffled <- TRUE 1580s [00:53:00.648] break 1580s [00:53:00.648] } 1580s [00:53:00.648] } 1580s [00:53:00.648] } 1580s [00:53:00.648] invisible(muffled) 1580s [00:53:00.648] } 1580s [00:53:00.648] muffleCondition(cond, pattern = "^muffle") 1580s [00:53:00.648] } 1580s [00:53:00.648] } 1580s [00:53:00.648] else { 1580s [00:53:00.648] if (TRUE) { 1580s [00:53:00.648] muffleCondition <- function (cond, pattern = "^muffle") 1580s [00:53:00.648] { 1580s [00:53:00.648] inherits <- base::inherits 1580s [00:53:00.648] invokeRestart <- base::invokeRestart 1580s [00:53:00.648] is.null <- base::is.null 1580s [00:53:00.648] muffled <- FALSE 1580s [00:53:00.648] if (inherits(cond, "message")) { 1580s [00:53:00.648] muffled <- grepl(pattern, "muffleMessage") 1580s [00:53:00.648] if (muffled) 1580s [00:53:00.648] invokeRestart("muffleMessage") 1580s [00:53:00.648] } 1580s [00:53:00.648] else if (inherits(cond, "warning")) { 1580s [00:53:00.648] muffled <- grepl(pattern, "muffleWarning") 1580s [00:53:00.648] if (muffled) 1580s [00:53:00.648] invokeRestart("muffleWarning") 1580s [00:53:00.648] } 1580s [00:53:00.648] else if (inherits(cond, "condition")) { 1580s [00:53:00.648] if (!is.null(pattern)) { 1580s [00:53:00.648] computeRestarts <- base::computeRestarts 1580s [00:53:00.648] grepl <- base::grepl 1580s [00:53:00.648] restarts <- computeRestarts(cond) 1580s [00:53:00.648] for (restart in restarts) { 1580s [00:53:00.648] name <- restart$name 1580s [00:53:00.648] if (is.null(name)) 1580s [00:53:00.648] next 1580s [00:53:00.648] if (!grepl(pattern, name)) 1580s [00:53:00.648] next 1580s [00:53:00.648] invokeRestart(restart) 1580s [00:53:00.648] muffled <- TRUE 1580s [00:53:00.648] break 1580s [00:53:00.648] } 1580s [00:53:00.648] } 1580s [00:53:00.648] } 1580s [00:53:00.648] invisible(muffled) 1580s [00:53:00.648] } 1580s [00:53:00.648] muffleCondition(cond, pattern = "^muffle") 1580s [00:53:00.648] } 1580s [00:53:00.648] } 1580s [00:53:00.648] } 1580s [00:53:00.648] })) 1580s [00:53:00.648] }, error = function(ex) { 1580s [00:53:00.648] base::structure(base::list(value = NULL, visible = NULL, 1580s [00:53:00.648] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1580s [00:53:00.648] ...future.rng), started = ...future.startTime, 1580s [00:53:00.648] finished = Sys.time(), session_uuid = NA_character_, 1580s [00:53:00.648] version = "1.8"), class = "FutureResult") 1580s [00:53:00.648] }, finally = { 1580s [00:53:00.648] if (!identical(...future.workdir, getwd())) 1580s [00:53:00.648] setwd(...future.workdir) 1580s [00:53:00.648] { 1580s [00:53:00.648] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1580s [00:53:00.648] ...future.oldOptions$nwarnings <- NULL 1580s [00:53:00.648] } 1580s [00:53:00.648] base::options(...future.oldOptions) 1580s [00:53:00.648] if (.Platform$OS.type == "windows") { 1580s [00:53:00.648] old_names <- names(...future.oldEnvVars) 1580s [00:53:00.648] envs <- base::Sys.getenv() 1580s [00:53:00.648] names <- names(envs) 1580s [00:53:00.648] common <- intersect(names, old_names) 1580s [00:53:00.648] added <- setdiff(names, old_names) 1580s [00:53:00.648] removed <- setdiff(old_names, names) 1580s [00:53:00.648] changed <- common[...future.oldEnvVars[common] != 1580s [00:53:00.648] envs[common]] 1580s [00:53:00.648] NAMES <- toupper(changed) 1580s [00:53:00.648] args <- list() 1580s [00:53:00.648] for (kk in seq_along(NAMES)) { 1580s [00:53:00.648] name <- changed[[kk]] 1580s [00:53:00.648] NAME <- NAMES[[kk]] 1580s [00:53:00.648] if (name != NAME && is.element(NAME, old_names)) 1580s [00:53:00.648] next 1580s [00:53:00.648] args[[name]] <- ...future.oldEnvVars[[name]] 1580s [00:53:00.648] } 1580s [00:53:00.648] NAMES <- toupper(added) 1580s [00:53:00.648] for (kk in seq_along(NAMES)) { 1580s [00:53:00.648] name <- added[[kk]] 1580s [00:53:00.648] NAME <- NAMES[[kk]] 1580s [00:53:00.648] if (name != NAME && is.element(NAME, old_names)) 1580s [00:53:00.648] next 1580s [00:53:00.648] args[[name]] <- "" 1580s [00:53:00.648] } 1580s [00:53:00.648] NAMES <- toupper(removed) 1580s [00:53:00.648] for (kk in seq_along(NAMES)) { 1580s [00:53:00.648] name <- removed[[kk]] 1580s [00:53:00.648] NAME <- NAMES[[kk]] 1580s [00:53:00.648] if (name != NAME && is.element(NAME, old_names)) 1580s [00:53:00.648] next 1580s [00:53:00.648] args[[name]] <- ...future.oldEnvVars[[name]] 1580s [00:53:00.648] } 1580s [00:53:00.648] if (length(args) > 0) 1580s [00:53:00.648] base::do.call(base::Sys.setenv, args = args) 1580s [00:53:00.648] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1580s [00:53:00.648] } 1580s [00:53:00.648] else { 1580s [00:53:00.648] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1580s [00:53:00.648] } 1580s [00:53:00.648] { 1580s [00:53:00.648] if (base::length(...future.futureOptionsAdded) > 1580s [00:53:00.648] 0L) { 1580s [00:53:00.648] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1580s [00:53:00.648] base::names(opts) <- ...future.futureOptionsAdded 1580s [00:53:00.648] base::options(opts) 1580s [00:53:00.648] } 1580s [00:53:00.648] { 1580s [00:53:00.648] { 1580s [00:53:00.648] NULL 1580s [00:53:00.648] RNGkind("Mersenne-Twister") 1580s [00:53:00.648] base::rm(list = ".Random.seed", envir = base::globalenv(), 1580s [00:53:00.648] inherits = FALSE) 1580s [00:53:00.648] } 1580s [00:53:00.648] options(future.plan = NULL) 1580s [00:53:00.648] if (is.na(NA_character_)) 1580s [00:53:00.648] Sys.unsetenv("R_FUTURE_PLAN") 1580s [00:53:00.648] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1580s [00:53:00.648] future::plan(list(function (..., workers = availableCores(), 1580s [00:53:00.648] lazy = FALSE, rscript_libs = .libPaths(), 1580s [00:53:00.648] envir = parent.frame()) 1580s [00:53:00.648] { 1580s [00:53:00.648] if (is.function(workers)) 1580s [00:53:00.648] workers <- workers() 1580s [00:53:00.648] workers <- structure(as.integer(workers), 1580s [00:53:00.648] class = class(workers)) 1580s [00:53:00.648] stop_if_not(length(workers) == 1, is.finite(workers), 1580s [00:53:00.648] workers >= 1) 1580s [00:53:00.648] if (workers == 1L && !inherits(workers, "AsIs")) { 1580s [00:53:00.648] return(sequential(..., lazy = TRUE, envir = envir)) 1580s [00:53:00.648] } 1580s [00:53:00.648] future <- MultisessionFuture(..., workers = workers, 1580s [00:53:00.648] lazy = lazy, rscript_libs = rscript_libs, 1580s [00:53:00.648] envir = envir) 1580s [00:53:00.648] if (!future$lazy) 1580s [00:53:00.648] future <- run(future) 1580s [00:53:00.648] invisible(future) 1580s [00:53:00.648] }), .cleanup = FALSE, .init = FALSE) 1580s [00:53:00.648] } 1580s [00:53:00.648] } 1580s [00:53:00.648] } 1580s [00:53:00.648] }) 1580s [00:53:00.648] if (TRUE) { 1580s [00:53:00.648] base::sink(type = "output", split = FALSE) 1580s [00:53:00.648] if (TRUE) { 1580s [00:53:00.648] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1580s [00:53:00.648] } 1580s [00:53:00.648] else { 1580s [00:53:00.648] ...future.result["stdout"] <- base::list(NULL) 1580s [00:53:00.648] } 1580s [00:53:00.648] base::close(...future.stdout) 1580s [00:53:00.648] ...future.stdout <- NULL 1580s [00:53:00.648] } 1580s [00:53:00.648] ...future.result$conditions <- ...future.conditions 1580s [00:53:00.648] ...future.result$finished <- base::Sys.time() 1580s [00:53:00.648] ...future.result 1580s [00:53:00.648] } 1580s [00:53:00.653] assign_globals() ... 1580s [00:53:00.654] List of 5 1580s [00:53:00.654] $ ...future.FUN :function (x) 1580s [00:53:00.654] $ future.call.arguments : list() 1580s [00:53:00.654] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1580s [00:53:00.654] $ ...future.elements_ii :List of 6 1580s [00:53:00.654] ..$ a1: int 1 1580s [00:53:00.654] ..$ a2: int 2 1580s [00:53:00.654] ..$ b1: int 2 1580s [00:53:00.654] ..$ b2: int 3 1580s [00:53:00.654] ..$ c1: int 3 1580s [00:53:00.654] ..$ c2: int 4 1580s [00:53:00.654] $ ...future.seeds_ii : NULL 1580s [00:53:00.654] $ ...future.globals.maxSize: NULL 1580s [00:53:00.654] - attr(*, "where")=List of 5 1580s [00:53:00.654] ..$ ...future.FUN : 1580s [00:53:00.654] ..$ future.call.arguments : 1580s [00:53:00.654] ..$ ...future.elements_ii : 1580s [00:53:00.654] ..$ ...future.seeds_ii : 1580s [00:53:00.654] ..$ ...future.globals.maxSize: 1580s [00:53:00.654] - attr(*, "resolved")= logi FALSE 1580s [00:53:00.654] - attr(*, "total_size")= num 848 1580s [00:53:00.654] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1580s [00:53:00.654] - attr(*, "already-done")= logi TRUE 1580s [00:53:00.663] - copied ‘...future.FUN’ to environment 1580s [00:53:00.664] - copied ‘future.call.arguments’ to environment 1580s [00:53:00.664] - copied ‘...future.elements_ii’ to environment 1580s [00:53:00.664] - copied ‘...future.seeds_ii’ to environment 1580s [00:53:00.664] - copied ‘...future.globals.maxSize’ to environment 1580s [00:53:00.664] assign_globals() ... done 1580s [00:53:00.665] plan(): Setting new future strategy stack: 1580s [00:53:00.665] List of future strategies: 1580s [00:53:00.665] 1. sequential: 1580s [00:53:00.665] - args: function (..., envir = parent.frame()) 1580s [00:53:00.665] - tweaked: FALSE 1580s [00:53:00.665] - call: NULL 1580s [00:53:00.665] plan(): nbrOfWorkers() = 1 1580s [00:53:00.666] plan(): Setting new future strategy stack: 1580s [00:53:00.666] List of future strategies: 1580s [00:53:00.666] 1. multisession: 1580s [00:53:00.666] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1580s [00:53:00.666] - tweaked: FALSE 1580s [00:53:00.666] - call: plan(strategy) 1580s [00:53:00.670] plan(): nbrOfWorkers() = 1 1580s [00:53:00.670] SequentialFuture started (and completed) 1580s [00:53:00.671] - Launch lazy future ... done 1580s [00:53:00.671] run() for ‘SequentialFuture’ ... done 1580s [00:53:00.671] Created future: 1580s [00:53:00.671] SequentialFuture: 1580s [00:53:00.671] Label: ‘future_sapply-1’ 1580s [00:53:00.671] Expression: 1580s [00:53:00.671] { 1580s [00:53:00.671] do.call(function(...) { 1580s [00:53:00.671] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1580s [00:53:00.671] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1580s [00:53:00.671] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1580s [00:53:00.671] on.exit(options(oopts), add = TRUE) 1580s [00:53:00.671] } 1580s [00:53:00.671] { 1580s [00:53:00.671] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1580s [00:53:00.671] ...future.X_jj <- ...future.elements_ii[[jj]] 1580s [00:53:00.671] ...future.FUN(...future.X_jj, ...) 1580s [00:53:00.671] }) 1580s [00:53:00.671] } 1580s [00:53:00.671] }, args = future.call.arguments) 1580s [00:53:00.671] } 1580s [00:53:00.671] Lazy evaluation: FALSE 1580s [00:53:00.671] Asynchronous evaluation: FALSE 1580s [00:53:00.671] Local evaluation: TRUE 1580s [00:53:00.671] Environment: R_GlobalEnv 1580s [00:53:00.671] Capture standard output: TRUE 1580s [00:53:00.671] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1580s [00:53:00.671] Globals: 5 objects totaling 1.16 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1580s [00:53:00.671] Packages: 1580s [00:53:00.671] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1580s [00:53:00.671] Resolved: TRUE 1580s [00:53:00.671] Value: 336 bytes of class ‘list’ 1580s [00:53:00.671] Early signaling: FALSE 1580s [00:53:00.671] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1580s [00:53:00.671] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1580s [00:53:00.673] Chunk #1 of 1 ... DONE 1580s [00:53:00.673] Launching 1 futures (chunks) ... DONE 1580s [00:53:00.673] Resolving 1 futures (chunks) ... 1580s [00:53:00.674] resolve() on list ... 1580s [00:53:00.674] recursive: 0 1580s [00:53:00.674] length: 1 1580s [00:53:00.674] 1580s [00:53:00.674] resolved() for ‘SequentialFuture’ ... 1580s [00:53:00.675] - state: ‘finished’ 1580s [00:53:00.675] - run: TRUE 1580s [00:53:00.675] - result: ‘FutureResult’ 1580s [00:53:00.675] resolved() for ‘SequentialFuture’ ... done 1580s [00:53:00.675] Future #1 1580s [00:53:00.675] signalConditionsASAP(SequentialFuture, pos=1) ... 1580s [00:53:00.676] - nx: 1 1580s [00:53:00.676] - relay: TRUE 1580s [00:53:00.676] - stdout: TRUE 1580s [00:53:00.676] - signal: TRUE 1580s [00:53:00.676] - resignal: FALSE 1580s [00:53:00.676] - force: TRUE 1580s [00:53:00.676] - relayed: [n=1] FALSE 1580s [00:53:00.677] - queued futures: [n=1] FALSE 1580s [00:53:00.677] - until=1 1580s [00:53:00.677] - relaying element #1 1580s [00:53:00.677] - relayed: [n=1] TRUE 1580s [00:53:00.677] - queued futures: [n=1] TRUE 1580s [00:53:00.677] signalConditionsASAP(SequentialFuture, pos=1) ... done 1580s [00:53:00.678] length: 0 (resolved future 1) 1580s [00:53:00.678] Relaying remaining futures 1580s [00:53:00.678] signalConditionsASAP(NULL, pos=0) ... 1580s [00:53:00.678] - nx: 1 1580s [00:53:00.678] - relay: TRUE 1580s [00:53:00.678] - stdout: TRUE 1580s [00:53:00.678] - signal: TRUE 1580s [00:53:00.678] - resignal: FALSE 1580s [00:53:00.679] - force: TRUE 1580s [00:53:00.679] - relayed: [n=1] TRUE 1580s [00:53:00.679] - queued futures: [n=1] TRUE 1580s - flush all 1580s [00:53:00.679] - relayed: [n=1] TRUE 1580s [00:53:00.679] - queued futures: [n=1] TRUE 1580s [00:53:00.679] signalConditionsASAP(NULL, pos=0) ... done 1580s [00:53:00.680] resolve() on list ... DONE 1580s [00:53:00.680] - Number of value chunks collected: 1 1580s [00:53:00.680] Resolving 1 futures (chunks) ... DONE 1580s [00:53:00.680] Reducing values from 1 chunks ... 1580s [00:53:00.680] - Number of values collected after concatenation: 6 1580s [00:53:00.680] - Number of values expected: 6 1580s [00:53:00.681] Reducing values from 1 chunks ... DONE 1580s [00:53:00.681] future_lapply() ... DONE 1580s List of 2 1580s $ y0:List of 6 1580s ..$ a1: int 1 1580s ..$ a2: int 2 1580s ..$ b1: int 2 1580s ..$ b2: int 3 1580s ..$ c1: int 3 1580s ..$ c2: int 4 1580s $ y1:List of 6 1580s ..$ a1: int 1 1580s ..$ a2: int 2 1580s ..$ b1: int 2 1580s ..$ b2: int 3 1580s ..$ c1: int 3 1580s ..$ c2: int 4 1580s List of 2 1580s $ y0:List of 6 1580s ..$ a1: int 1 1580s ..$ a2: int 2 1580s ..$ b1: int 2 1580s ..$ b2: int 3 1580s ..$ c1: int 3 1580s ..$ c2: int 4 1580s $ y2:List of 6 1580s ..$ a1: int 1 1580s ..$ a2: int 2 1580s ..$ b1: int 2 1580s ..$ b2: int 3 1580s ..$ c1: int 3 1580s ..$ c2: int 4 1580s [00:53:00.697] future_lapply() ... 1580s [00:53:00.700] Number of chunks: 1 1580s [00:53:00.701] getGlobalsAndPackagesXApply() ... 1580s [00:53:00.701] - future.globals: TRUE 1580s [00:53:00.701] getGlobalsAndPackages() ... 1580s [00:53:00.701] Searching for globals... 1580s [00:53:00.703] - globals found: [2] ‘FUN’, ‘UseMethod’ 1580s [00:53:00.703] Searching for globals ... DONE 1580s [00:53:00.704] Resolving globals: FALSE 1580s [00:53:00.704] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1580s [00:53:00.705] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1580s [00:53:00.705] - globals: [1] ‘FUN’ 1580s [00:53:00.705] 1580s [00:53:00.705] getGlobalsAndPackages() ... DONE 1580s [00:53:00.706] - globals found/used: [n=1] ‘FUN’ 1580s [00:53:00.706] - needed namespaces: [n=0] 1580s [00:53:00.706] Finding globals ... DONE 1580s [00:53:00.706] - use_args: TRUE 1580s [00:53:00.706] - Getting '...' globals ... 1580s [00:53:00.707] resolve() on list ... 1580s [00:53:00.707] recursive: 0 1580s [00:53:00.707] length: 1 1580s [00:53:00.708] elements: ‘...’ 1580s [00:53:00.708] length: 0 (resolved future 1) 1580s [00:53:00.708] resolve() on list ... DONE 1580s [00:53:00.708] - '...' content: [n=0] 1580s [00:53:00.709] List of 1 1580s [00:53:00.709] $ ...: list() 1580s [00:53:00.709] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1580s [00:53:00.709] - attr(*, "where")=List of 1 1580s [00:53:00.709] ..$ ...: 1580s [00:53:00.709] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1580s [00:53:00.709] - attr(*, "resolved")= logi TRUE 1580s [00:53:00.709] - attr(*, "total_size")= num NA 1580s [00:53:00.713] - Getting '...' globals ... DONE 1580s [00:53:00.714] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1580s [00:53:00.714] List of 2 1580s [00:53:00.714] $ ...future.FUN:function (x, ...) 1580s [00:53:00.714] $ ... : list() 1580s [00:53:00.714] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1580s [00:53:00.714] - attr(*, "where")=List of 2 1580s [00:53:00.714] ..$ ...future.FUN: 1580s [00:53:00.714] ..$ ... : 1580s [00:53:00.714] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1580s [00:53:00.714] - attr(*, "resolved")= logi FALSE 1580s [00:53:00.714] - attr(*, "total_size")= num 1248 1580s [00:53:00.718] Packages to be attached in all futures: [n=0] 1580s [00:53:00.719] getGlobalsAndPackagesXApply() ... DONE 1580s [00:53:00.719] Number of futures (= number of chunks): 1 1580s [00:53:00.719] Launching 1 futures (chunks) ... 1580s [00:53:00.720] Chunk #1 of 1 ... 1580s [00:53:00.720] - Finding globals in 'X' for chunk #1 ... 1580s [00:53:00.720] getGlobalsAndPackages() ... 1580s [00:53:00.720] Searching for globals... 1580s [00:53:00.721] 1580s [00:53:00.721] Searching for globals ... DONE 1580s [00:53:00.721] - globals: [0] 1580s [00:53:00.721] getGlobalsAndPackages() ... DONE 1580s [00:53:00.722] + additional globals found: [n=0] 1580s [00:53:00.722] + additional namespaces needed: [n=0] 1580s [00:53:00.722] - Finding globals in 'X' for chunk #1 ... DONE 1580s [00:53:00.722] - seeds: 1580s [00:53:00.723] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1580s [00:53:00.723] getGlobalsAndPackages() ... 1580s [00:53:00.723] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1580s [00:53:00.723] Resolving globals: FALSE 1580s [00:53:00.723] Tweak future expression to call with '...' arguments ... 1580s [00:53:00.723] { 1580s [00:53:00.723] do.call(function(...) { 1580s [00:53:00.723] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1580s [00:53:00.723] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1580s [00:53:00.723] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1580s [00:53:00.723] on.exit(options(oopts), add = TRUE) 1580s [00:53:00.723] } 1580s [00:53:00.723] { 1580s [00:53:00.723] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1580s [00:53:00.723] ...future.X_jj <- ...future.elements_ii[[jj]] 1580s [00:53:00.723] ...future.FUN(...future.X_jj, ...) 1580s [00:53:00.723] }) 1580s [00:53:00.723] } 1580s [00:53:00.723] }, args = future.call.arguments) 1580s [00:53:00.723] } 1580s [00:53:00.724] Tweak future expression to call with '...' arguments ... DONE 1580s [00:53:00.724] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1580s [00:53:00.724] 1580s [00:53:00.725] getGlobalsAndPackages() ... DONE 1580s [00:53:00.725] run() for ‘Future’ ... 1580s [00:53:00.726] - state: ‘created’ 1580s [00:53:00.726] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1580s [00:53:00.734] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1580s [00:53:00.734] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1580s [00:53:00.734] - Field: ‘label’ 1580s [00:53:00.734] - Field: ‘local’ 1580s [00:53:00.734] - Field: ‘owner’ 1580s [00:53:00.734] - Field: ‘envir’ 1580s [00:53:00.735] - Field: ‘packages’ 1580s [00:53:00.735] - Field: ‘gc’ 1580s [00:53:00.735] - Field: ‘conditions’ 1580s [00:53:00.735] - Field: ‘expr’ 1580s [00:53:00.735] - Field: ‘uuid’ 1580s [00:53:00.735] - Field: ‘seed’ 1580s [00:53:00.736] - Field: ‘version’ 1580s [00:53:00.736] - Field: ‘result’ 1580s [00:53:00.736] - Field: ‘asynchronous’ 1580s [00:53:00.736] - Field: ‘calls’ 1580s [00:53:00.736] - Field: ‘globals’ 1580s [00:53:00.736] - Field: ‘stdout’ 1580s [00:53:00.736] - Field: ‘earlySignal’ 1580s [00:53:00.737] - Field: ‘lazy’ 1580s [00:53:00.737] - Field: ‘state’ 1580s [00:53:00.737] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1580s [00:53:00.737] - Launch lazy future ... 1580s [00:53:00.738] Packages needed by the future expression (n = 0): 1580s [00:53:00.738] Packages needed by future strategies (n = 0): 1580s [00:53:00.739] { 1580s [00:53:00.739] { 1580s [00:53:00.739] { 1580s [00:53:00.739] ...future.startTime <- base::Sys.time() 1580s [00:53:00.739] { 1580s [00:53:00.739] { 1580s [00:53:00.739] { 1580s [00:53:00.739] base::local({ 1580s [00:53:00.739] has_future <- base::requireNamespace("future", 1580s [00:53:00.739] quietly = TRUE) 1580s [00:53:00.739] if (has_future) { 1580s [00:53:00.739] ns <- base::getNamespace("future") 1580s [00:53:00.739] version <- ns[[".package"]][["version"]] 1580s [00:53:00.739] if (is.null(version)) 1580s [00:53:00.739] version <- utils::packageVersion("future") 1580s [00:53:00.739] } 1580s [00:53:00.739] else { 1580s [00:53:00.739] version <- NULL 1580s [00:53:00.739] } 1580s [00:53:00.739] if (!has_future || version < "1.8.0") { 1580s [00:53:00.739] info <- base::c(r_version = base::gsub("R version ", 1580s [00:53:00.739] "", base::R.version$version.string), 1580s [00:53:00.739] platform = base::sprintf("%s (%s-bit)", 1580s [00:53:00.739] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1580s [00:53:00.739] os = base::paste(base::Sys.info()[base::c("sysname", 1580s [00:53:00.739] "release", "version")], collapse = " "), 1580s [00:53:00.739] hostname = base::Sys.info()[["nodename"]]) 1580s [00:53:00.739] info <- base::sprintf("%s: %s", base::names(info), 1580s [00:53:00.739] info) 1580s [00:53:00.739] info <- base::paste(info, collapse = "; ") 1580s [00:53:00.739] if (!has_future) { 1580s [00:53:00.739] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1580s [00:53:00.739] info) 1580s [00:53:00.739] } 1580s [00:53:00.739] else { 1580s [00:53:00.739] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1580s [00:53:00.739] info, version) 1580s [00:53:00.739] } 1580s [00:53:00.739] base::stop(msg) 1580s [00:53:00.739] } 1580s [00:53:00.739] }) 1580s [00:53:00.739] } 1580s [00:53:00.739] options(future.plan = NULL) 1580s [00:53:00.739] Sys.unsetenv("R_FUTURE_PLAN") 1580s [00:53:00.739] future::plan("default", .cleanup = FALSE, .init = FALSE) 1580s [00:53:00.739] } 1580s [00:53:00.739] ...future.workdir <- getwd() 1580s [00:53:00.739] } 1580s [00:53:00.739] ...future.oldOptions <- base::as.list(base::.Options) 1580s [00:53:00.739] ...future.oldEnvVars <- base::Sys.getenv() 1580s [00:53:00.739] } 1580s [00:53:00.739] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1580s [00:53:00.739] future.globals.maxSize = NULL, future.globals.method = NULL, 1580s [00:53:00.739] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1580s [00:53:00.739] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1580s [00:53:00.739] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1580s [00:53:00.739] future.stdout.windows.reencode = NULL, width = 80L) 1580s [00:53:00.739] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1580s [00:53:00.739] base::names(...future.oldOptions)) 1580s [00:53:00.739] } 1580s [00:53:00.739] if (FALSE) { 1580s [00:53:00.739] } 1580s [00:53:00.739] else { 1580s [00:53:00.739] if (TRUE) { 1580s [00:53:00.739] ...future.stdout <- base::rawConnection(base::raw(0L), 1580s [00:53:00.739] open = "w") 1580s [00:53:00.739] } 1580s [00:53:00.739] else { 1580s [00:53:00.739] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1580s [00:53:00.739] windows = "NUL", "/dev/null"), open = "w") 1580s [00:53:00.739] } 1580s [00:53:00.739] base::sink(...future.stdout, type = "output", split = FALSE) 1580s [00:53:00.739] base::on.exit(if (!base::is.null(...future.stdout)) { 1580s [00:53:00.739] base::sink(type = "output", split = FALSE) 1580s [00:53:00.739] base::close(...future.stdout) 1580s [00:53:00.739] }, add = TRUE) 1580s [00:53:00.739] } 1580s [00:53:00.739] ...future.frame <- base::sys.nframe() 1580s [00:53:00.739] ...future.conditions <- base::list() 1580s [00:53:00.739] ...future.rng <- base::globalenv()$.Random.seed 1580s [00:53:00.739] if (FALSE) { 1580s [00:53:00.739] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1580s [00:53:00.739] "...future.value", "...future.globalenv.names", ".Random.seed") 1580s [00:53:00.739] } 1580s [00:53:00.739] ...future.result <- base::tryCatch({ 1580s [00:53:00.739] base::withCallingHandlers({ 1580s [00:53:00.739] ...future.value <- base::withVisible(base::local({ 1580s [00:53:00.739] do.call(function(...) { 1580s [00:53:00.739] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1580s [00:53:00.739] if (!identical(...future.globals.maxSize.org, 1580s [00:53:00.739] ...future.globals.maxSize)) { 1580s [00:53:00.739] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1580s [00:53:00.739] on.exit(options(oopts), add = TRUE) 1580s [00:53:00.739] } 1580s [00:53:00.739] { 1580s [00:53:00.739] lapply(seq_along(...future.elements_ii), 1580s [00:53:00.739] FUN = function(jj) { 1580s [00:53:00.739] ...future.X_jj <- ...future.elements_ii[[jj]] 1580s [00:53:00.739] ...future.FUN(...future.X_jj, ...) 1580s [00:53:00.739] }) 1580s [00:53:00.739] } 1580s [00:53:00.739] }, args = future.call.arguments) 1580s [00:53:00.739] })) 1580s [00:53:00.739] future::FutureResult(value = ...future.value$value, 1580s [00:53:00.739] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1580s [00:53:00.739] ...future.rng), globalenv = if (FALSE) 1580s [00:53:00.739] list(added = base::setdiff(base::names(base::.GlobalEnv), 1580s [00:53:00.739] ...future.globalenv.names)) 1580s [00:53:00.739] else NULL, started = ...future.startTime, version = "1.8") 1580s [00:53:00.739] }, condition = base::local({ 1580s [00:53:00.739] c <- base::c 1580s [00:53:00.739] inherits <- base::inherits 1580s [00:53:00.739] invokeRestart <- base::invokeRestart 1580s [00:53:00.739] length <- base::length 1580s [00:53:00.739] list <- base::list 1580s [00:53:00.739] seq.int <- base::seq.int 1580s [00:53:00.739] signalCondition <- base::signalCondition 1580s [00:53:00.739] sys.calls <- base::sys.calls 1580s [00:53:00.739] `[[` <- base::`[[` 1580s [00:53:00.739] `+` <- base::`+` 1580s [00:53:00.739] `<<-` <- base::`<<-` 1580s [00:53:00.739] sysCalls <- function(calls = sys.calls(), from = 1L) { 1580s [00:53:00.739] calls[seq.int(from = from + 12L, to = length(calls) - 1580s [00:53:00.739] 3L)] 1580s [00:53:00.739] } 1580s [00:53:00.739] function(cond) { 1580s [00:53:00.739] is_error <- inherits(cond, "error") 1580s [00:53:00.739] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1580s [00:53:00.739] NULL) 1580s [00:53:00.739] if (is_error) { 1580s [00:53:00.739] sessionInformation <- function() { 1580s [00:53:00.739] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1580s [00:53:00.739] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1580s [00:53:00.739] search = base::search(), system = base::Sys.info()) 1580s [00:53:00.739] } 1580s [00:53:00.739] ...future.conditions[[length(...future.conditions) + 1580s [00:53:00.739] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1580s [00:53:00.739] cond$call), session = sessionInformation(), 1580s [00:53:00.739] timestamp = base::Sys.time(), signaled = 0L) 1580s [00:53:00.739] signalCondition(cond) 1580s [00:53:00.739] } 1580s [00:53:00.739] else if (!ignore && TRUE && inherits(cond, c("condition", 1580s [00:53:00.739] "immediateCondition"))) { 1580s [00:53:00.739] signal <- TRUE && inherits(cond, "immediateCondition") 1580s [00:53:00.739] ...future.conditions[[length(...future.conditions) + 1580s [00:53:00.739] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1580s [00:53:00.739] if (TRUE && !signal) { 1580s [00:53:00.739] muffleCondition <- function (cond, pattern = "^muffle") 1580s [00:53:00.739] { 1580s [00:53:00.739] inherits <- base::inherits 1580s [00:53:00.739] invokeRestart <- base::invokeRestart 1580s [00:53:00.739] is.null <- base::is.null 1580s [00:53:00.739] muffled <- FALSE 1580s [00:53:00.739] if (inherits(cond, "message")) { 1580s [00:53:00.739] muffled <- grepl(pattern, "muffleMessage") 1580s [00:53:00.739] if (muffled) 1580s [00:53:00.739] invokeRestart("muffleMessage") 1580s [00:53:00.739] } 1580s [00:53:00.739] else if (inherits(cond, "warning")) { 1580s [00:53:00.739] muffled <- grepl(pattern, "muffleWarning") 1580s [00:53:00.739] if (muffled) 1580s [00:53:00.739] invokeRestart("muffleWarning") 1580s [00:53:00.739] } 1580s [00:53:00.739] else if (inherits(cond, "condition")) { 1580s [00:53:00.739] if (!is.null(pattern)) { 1580s [00:53:00.739] computeRestarts <- base::computeRestarts 1580s [00:53:00.739] grepl <- base::grepl 1580s [00:53:00.739] restarts <- computeRestarts(cond) 1580s [00:53:00.739] for (restart in restarts) { 1580s [00:53:00.739] name <- restart$name 1580s [00:53:00.739] if (is.null(name)) 1580s [00:53:00.739] next 1580s [00:53:00.739] if (!grepl(pattern, name)) 1580s [00:53:00.739] next 1580s [00:53:00.739] invokeRestart(restart) 1580s [00:53:00.739] muffled <- TRUE 1580s [00:53:00.739] break 1580s [00:53:00.739] } 1580s [00:53:00.739] } 1580s [00:53:00.739] } 1580s [00:53:00.739] invisible(muffled) 1580s [00:53:00.739] } 1580s [00:53:00.739] muffleCondition(cond, pattern = "^muffle") 1580s [00:53:00.739] } 1580s [00:53:00.739] } 1580s [00:53:00.739] else { 1580s [00:53:00.739] if (TRUE) { 1580s [00:53:00.739] muffleCondition <- function (cond, pattern = "^muffle") 1580s [00:53:00.739] { 1580s [00:53:00.739] inherits <- base::inherits 1580s [00:53:00.739] invokeRestart <- base::invokeRestart 1580s [00:53:00.739] is.null <- base::is.null 1580s [00:53:00.739] muffled <- FALSE 1580s [00:53:00.739] if (inherits(cond, "message")) { 1580s [00:53:00.739] muffled <- grepl(pattern, "muffleMessage") 1580s [00:53:00.739] if (muffled) 1580s [00:53:00.739] invokeRestart("muffleMessage") 1580s [00:53:00.739] } 1580s [00:53:00.739] else if (inherits(cond, "warning")) { 1580s [00:53:00.739] muffled <- grepl(pattern, "muffleWarning") 1580s [00:53:00.739] if (muffled) 1580s [00:53:00.739] invokeRestart("muffleWarning") 1580s [00:53:00.739] } 1580s [00:53:00.739] else if (inherits(cond, "condition")) { 1580s [00:53:00.739] if (!is.null(pattern)) { 1580s [00:53:00.739] computeRestarts <- base::computeRestarts 1580s [00:53:00.739] grepl <- base::grepl 1580s [00:53:00.739] restarts <- computeRestarts(cond) 1580s [00:53:00.739] for (restart in restarts) { 1580s [00:53:00.739] name <- restart$name 1580s [00:53:00.739] if (is.null(name)) 1580s [00:53:00.739] next 1580s [00:53:00.739] if (!grepl(pattern, name)) 1580s [00:53:00.739] next 1580s [00:53:00.739] invokeRestart(restart) 1580s [00:53:00.739] muffled <- TRUE 1580s [00:53:00.739] break 1580s [00:53:00.739] } 1580s [00:53:00.739] } 1580s [00:53:00.739] } 1580s [00:53:00.739] invisible(muffled) 1580s [00:53:00.739] } 1580s [00:53:00.739] muffleCondition(cond, pattern = "^muffle") 1580s [00:53:00.739] } 1580s [00:53:00.739] } 1580s [00:53:00.739] } 1580s [00:53:00.739] })) 1580s [00:53:00.739] }, error = function(ex) { 1580s [00:53:00.739] base::structure(base::list(value = NULL, visible = NULL, 1580s [00:53:00.739] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1580s [00:53:00.739] ...future.rng), started = ...future.startTime, 1580s [00:53:00.739] finished = Sys.time(), session_uuid = NA_character_, 1580s [00:53:00.739] version = "1.8"), class = "FutureResult") 1580s [00:53:00.739] }, finally = { 1580s [00:53:00.739] if (!identical(...future.workdir, getwd())) 1580s [00:53:00.739] setwd(...future.workdir) 1580s [00:53:00.739] { 1580s [00:53:00.739] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1580s [00:53:00.739] ...future.oldOptions$nwarnings <- NULL 1580s [00:53:00.739] } 1580s [00:53:00.739] base::options(...future.oldOptions) 1580s [00:53:00.739] if (.Platform$OS.type == "windows") { 1580s [00:53:00.739] old_names <- names(...future.oldEnvVars) 1580s [00:53:00.739] envs <- base::Sys.getenv() 1580s [00:53:00.739] names <- names(envs) 1580s [00:53:00.739] common <- intersect(names, old_names) 1580s [00:53:00.739] added <- setdiff(names, old_names) 1580s [00:53:00.739] removed <- setdiff(old_names, names) 1580s [00:53:00.739] changed <- common[...future.oldEnvVars[common] != 1580s [00:53:00.739] envs[common]] 1580s [00:53:00.739] NAMES <- toupper(changed) 1580s [00:53:00.739] args <- list() 1580s [00:53:00.739] for (kk in seq_along(NAMES)) { 1580s [00:53:00.739] name <- changed[[kk]] 1580s [00:53:00.739] NAME <- NAMES[[kk]] 1580s [00:53:00.739] if (name != NAME && is.element(NAME, old_names)) 1580s [00:53:00.739] next 1580s [00:53:00.739] args[[name]] <- ...future.oldEnvVars[[name]] 1580s [00:53:00.739] } 1580s [00:53:00.739] NAMES <- toupper(added) 1580s [00:53:00.739] for (kk in seq_along(NAMES)) { 1580s [00:53:00.739] name <- added[[kk]] 1580s [00:53:00.739] NAME <- NAMES[[kk]] 1580s [00:53:00.739] if (name != NAME && is.element(NAME, old_names)) 1580s [00:53:00.739] next 1580s [00:53:00.739] args[[name]] <- "" 1580s [00:53:00.739] } 1580s [00:53:00.739] NAMES <- toupper(removed) 1580s [00:53:00.739] for (kk in seq_along(NAMES)) { 1580s [00:53:00.739] name <- removed[[kk]] 1580s [00:53:00.739] NAME <- NAMES[[kk]] 1580s [00:53:00.739] if (name != NAME && is.element(NAME, old_names)) 1580s [00:53:00.739] next 1580s [00:53:00.739] args[[name]] <- ...future.oldEnvVars[[name]] 1580s [00:53:00.739] } 1580s [00:53:00.739] if (length(args) > 0) 1580s [00:53:00.739] base::do.call(base::Sys.setenv, args = args) 1580s [00:53:00.739] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1580s [00:53:00.739] } 1580s [00:53:00.739] else { 1580s [00:53:00.739] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1580s [00:53:00.739] } 1580s [00:53:00.739] { 1580s [00:53:00.739] if (base::length(...future.futureOptionsAdded) > 1580s [00:53:00.739] 0L) { 1580s [00:53:00.739] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1580s [00:53:00.739] base::names(opts) <- ...future.futureOptionsAdded 1580s [00:53:00.739] base::options(opts) 1580s [00:53:00.739] } 1580s [00:53:00.739] { 1580s [00:53:00.739] { 1580s [00:53:00.739] NULL 1580s [00:53:00.739] RNGkind("Mersenne-Twister") 1580s [00:53:00.739] base::rm(list = ".Random.seed", envir = base::globalenv(), 1580s [00:53:00.739] inherits = FALSE) 1580s [00:53:00.739] } 1580s [00:53:00.739] options(future.plan = NULL) 1580s [00:53:00.739] if (is.na(NA_character_)) 1580s [00:53:00.739] Sys.unsetenv("R_FUTURE_PLAN") 1580s [00:53:00.739] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1580s [00:53:00.739] future::plan(list(function (..., workers = availableCores(), 1580s [00:53:00.739] lazy = FALSE, rscript_libs = .libPaths(), 1580s [00:53:00.739] envir = parent.frame()) 1580s [00:53:00.739] { 1580s [00:53:00.739] if (is.function(workers)) 1580s [00:53:00.739] workers <- workers() 1580s [00:53:00.739] workers <- structure(as.integer(workers), 1580s [00:53:00.739] class = class(workers)) 1580s [00:53:00.739] stop_if_not(length(workers) == 1, is.finite(workers), 1580s [00:53:00.739] workers >= 1) 1580s [00:53:00.739] if (workers == 1L && !inherits(workers, "AsIs")) { 1580s [00:53:00.739] return(sequential(..., lazy = TRUE, envir = envir)) 1580s [00:53:00.739] } 1580s [00:53:00.739] future <- MultisessionFuture(..., workers = workers, 1580s [00:53:00.739] lazy = lazy, rscript_libs = rscript_libs, 1580s [00:53:00.739] envir = envir) 1580s [00:53:00.739] if (!future$lazy) 1580s [00:53:00.739] future <- run(future) 1580s [00:53:00.739] invisible(future) 1580s [00:53:00.739] }), .cleanup = FALSE, .init = FALSE) 1580s [00:53:00.739] } 1580s [00:53:00.739] } 1580s [00:53:00.739] } 1580s [00:53:00.739] }) 1580s [00:53:00.739] if (TRUE) { 1580s [00:53:00.739] base::sink(type = "output", split = FALSE) 1580s [00:53:00.739] if (TRUE) { 1580s [00:53:00.739] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1580s [00:53:00.739] } 1580s [00:53:00.739] else { 1580s [00:53:00.739] ...future.result["stdout"] <- base::list(NULL) 1580s [00:53:00.739] } 1580s [00:53:00.739] base::close(...future.stdout) 1580s [00:53:00.739] ...future.stdout <- NULL 1580s [00:53:00.739] } 1580s [00:53:00.739] ...future.result$conditions <- ...future.conditions 1580s [00:53:00.739] ...future.result$finished <- base::Sys.time() 1580s [00:53:00.739] ...future.result 1580s [00:53:00.739] } 1580s [00:53:00.746] assign_globals() ... 1580s [00:53:00.747] List of 5 1580s [00:53:00.747] $ ...future.FUN :function (x, ...) 1580s [00:53:00.747] $ future.call.arguments : list() 1580s [00:53:00.747] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1580s [00:53:00.747] $ ...future.elements_ii :List of 6 1580s [00:53:00.747] ..$ a1: int 1 1580s [00:53:00.747] ..$ a2: int 2 1580s [00:53:00.747] ..$ b1: int 2 1580s [00:53:00.747] ..$ b2: int 3 1580s [00:53:00.747] ..$ c1: int 3 1580s [00:53:00.747] ..$ c2: int 4 1580s [00:53:00.747] $ ...future.seeds_ii : NULL 1580s [00:53:00.747] $ ...future.globals.maxSize: NULL 1580s [00:53:00.747] - attr(*, "where")=List of 5 1580s [00:53:00.747] ..$ ...future.FUN : 1580s [00:53:00.747] ..$ future.call.arguments : 1580s [00:53:00.747] ..$ ...future.elements_ii : 1580s [00:53:00.747] ..$ ...future.seeds_ii : 1580s [00:53:00.747] ..$ ...future.globals.maxSize: 1580s [00:53:00.747] - attr(*, "resolved")= logi FALSE 1580s [00:53:00.747] - attr(*, "total_size")= num 1248 1580s [00:53:00.747] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1580s [00:53:00.747] - attr(*, "already-done")= logi TRUE 1580s [00:53:00.764] - copied ‘...future.FUN’ to environment 1580s [00:53:00.765] - copied ‘future.call.arguments’ to environment 1580s [00:53:00.765] - copied ‘...future.elements_ii’ to environment 1580s [00:53:00.765] - copied ‘...future.seeds_ii’ to environment 1580s [00:53:00.765] - copied ‘...future.globals.maxSize’ to environment 1580s [00:53:00.765] assign_globals() ... done 1580s [00:53:00.766] plan(): Setting new future strategy stack: 1580s [00:53:00.766] List of future strategies: 1580s [00:53:00.766] 1. sequential: 1580s [00:53:00.766] - args: function (..., envir = parent.frame()) 1580s [00:53:00.766] - tweaked: FALSE 1580s [00:53:00.766] - call: NULL 1580s [00:53:00.766] plan(): nbrOfWorkers() = 1 1580s [00:53:00.767] plan(): Setting new future strategy stack: 1580s [00:53:00.767] List of future strategies: 1580s [00:53:00.767] 1. multisession: 1580s [00:53:00.767] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1580s [00:53:00.767] - tweaked: FALSE 1580s [00:53:00.767] - call: plan(strategy) 1580s [00:53:00.772] plan(): nbrOfWorkers() = 1 1580s [00:53:00.773] SequentialFuture started (and completed) 1580s [00:53:00.773] - Launch lazy future ... done 1580s [00:53:00.773] run() for ‘SequentialFuture’ ... done 1580s [00:53:00.774] Created future: 1580s [00:53:00.774] SequentialFuture: 1580s [00:53:00.774] Label: ‘future_sapply-1’ 1580s [00:53:00.774] Expression: 1580s [00:53:00.774] { 1580s [00:53:00.774] do.call(function(...) { 1580s [00:53:00.774] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1580s [00:53:00.774] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1580s [00:53:00.774] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1580s [00:53:00.774] on.exit(options(oopts), add = TRUE) 1580s [00:53:00.774] } 1580s [00:53:00.774] { 1580s [00:53:00.774] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1580s [00:53:00.774] ...future.X_jj <- ...future.elements_ii[[jj]] 1580s [00:53:00.774] ...future.FUN(...future.X_jj, ...) 1580s [00:53:00.774] }) 1580s [00:53:00.774] } 1580s [00:53:00.774] }, args = future.call.arguments) 1580s [00:53:00.774] } 1580s [00:53:00.774] Lazy evaluation: FALSE 1580s [00:53:00.774] Asynchronous evaluation: FALSE 1580s [00:53:00.774] Local evaluation: TRUE 1580s [00:53:00.774] Environment: R_GlobalEnv 1580s [00:53:00.774] Capture standard output: TRUE 1580s [00:53:00.774] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1580s [00:53:00.774] Globals: 5 objects totaling 1.55 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1580s [00:53:00.774] Packages: 1580s [00:53:00.774] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1580s [00:53:00.774] Resolved: TRUE 1580s [00:53:00.774] Value: 1.31 KiB of class ‘list’ 1580s [00:53:00.774] Early signaling: FALSE 1580s [00:53:00.774] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1580s [00:53:00.774] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1580s [00:53:00.776] Chunk #1 of 1 ... DONE 1580s [00:53:00.777] Launching 1 futures (chunks) ... DONE 1580s [00:53:00.777] Resolving 1 futures (chunks) ... 1580s [00:53:00.777] resolve() on list ... 1580s [00:53:00.777] recursive: 0 1580s [00:53:00.777] length: 1 1580s [00:53:00.777] 1580s [00:53:00.778] resolved() for ‘SequentialFuture’ ... 1580s [00:53:00.778] - state: ‘finished’ 1580s [00:53:00.778] - run: TRUE 1580s [00:53:00.778] - result: ‘FutureResult’ 1580s [00:53:00.778] resolved() for ‘SequentialFuture’ ... done 1580s [00:53:00.778] Future #1 1580s [00:53:00.778] signalConditionsASAP(SequentialFuture, pos=1) ... 1580s [00:53:00.779] - nx: 1 1580s [00:53:00.779] - relay: TRUE 1580s [00:53:00.779] - stdout: TRUE 1580s [00:53:00.779] - signal: TRUE 1580s [00:53:00.779] - resignal: FALSE 1580s [00:53:00.779] - force: TRUE 1580s [00:53:00.779] - relayed: [n=1] FALSE 1580s [00:53:00.779] - queued futures: [n=1] FALSE 1580s [00:53:00.780] - until=1 1580s [00:53:00.780] - relaying element #1 1580s [00:53:00.780] - relayed: [n=1] TRUE 1580s [00:53:00.781] - queued futures: [n=1] TRUE 1580s [00:53:00.781] signalConditionsASAP(SequentialFuture, pos=1) ... done 1580s [00:53:00.781] length: 0 (resolved future 1) 1580s [00:53:00.781] Relaying remaining futures 1580s [00:53:00.781] signalConditionsASAP(NULL, pos=0) ... 1580s [00:53:00.781] - nx: 1 1580s [00:53:00.782] - relay: TRUE 1580s [00:53:00.782] - stdout: TRUE 1580s [00:53:00.782] - signal: TRUE 1580s [00:53:00.782] - resignal: FALSE 1580s [00:53:00.782] - force: TRUE 1580s [00:53:00.783] - relayed: [n=1] TRUE 1580s [00:53:00.783] - queued futures: [n=1] TRUE 1580s - flush all 1580s [00:53:00.783] - relayed: [n=1] TRUE 1580s [00:53:00.783] - queued futures: [n=1] TRUE 1580s [00:53:00.783] signalConditionsASAP(NULL, pos=0) ... done 1580s [00:53:00.783] resolve() on list ... DONE 1580s [00:53:00.784] - Number of value chunks collected: 1 1580s [00:53:00.784] Resolving 1 futures (chunks) ... DONE 1580s [00:53:00.784] Reducing values from 1 chunks ... 1580s [00:53:00.784] - Number of values collected after concatenation: 6 1580s [00:53:00.784] - Number of values expected: 6 1580s [00:53:00.784] Reducing values from 1 chunks ... DONE 1580s [00:53:00.785] future_lapply() ... DONE 1580s List of 2 1580s $ y0:List of 6 1580s ..$ a1: int [1, 1] 1 1580s ..$ a2: int [1, 1] 2 1580s ..$ b1: int [1, 1] 2 1580s ..$ b2: int [1, 1] 3 1580s ..$ c1: int [1, 1] 3 1580s ..$ c2: int [1, 1] 4 1580s $ y1:List of 6 1580s ..$ a1: int [1, 1] 1 1580s ..$ a2: int [1, 1] 2 1580s ..$ b1: int [1, 1] 2 1580s ..$ b2: int [1, 1] 3 1580s ..$ c1: int [1, 1] 3 1580s ..$ c2: int [1, 1] 4 1580s List of 2 1580s $ y0:List of 6 1580s ..$ a1: int [1, 1] 1 1580s ..$ a2: int [1, 1] 2 1580s ..$ b1: int [1, 1] 2 1580s ..$ b2: int [1, 1] 3 1580s ..$ c1: int [1, 1] 3 1580s ..$ c2: int [1, 1] 4 1580s $ y2:List of 6 1580s ..$ a1: int [1, 1] 1 1580s ..$ a2: int [1, 1] 2 1580s ..$ b1: int [1, 1] 2 1580s ..$ b2: int [1, 1] 3 1580s ..$ c1: int [1, 1] 3 1580s ..$ c2: int [1, 1] 4 1580s [00:53:00.804] future_lapply() ... 1580s [00:53:00.809] Number of chunks: 1 1580s [00:53:00.810] getGlobalsAndPackagesXApply() ... 1580s [00:53:00.810] - future.globals: TRUE 1580s [00:53:00.810] getGlobalsAndPackages() ... 1580s [00:53:00.811] Searching for globals... 1580s [00:53:00.813] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1580s [00:53:00.814] Searching for globals ... DONE 1580s [00:53:00.815] Resolving globals: FALSE 1580s [00:53:00.816] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1580s [00:53:00.817] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1580s [00:53:00.817] - globals: [1] ‘FUN’ 1580s [00:53:00.817] 1580s [00:53:00.817] getGlobalsAndPackages() ... DONE 1580s [00:53:00.818] - globals found/used: [n=1] ‘FUN’ 1580s [00:53:00.818] - needed namespaces: [n=0] 1580s [00:53:00.819] Finding globals ... DONE 1580s [00:53:00.820] - use_args: TRUE 1580s [00:53:00.820] - Getting '...' globals ... 1580s [00:53:00.821] resolve() on list ... 1580s [00:53:00.821] recursive: 0 1580s [00:53:00.821] length: 1 1580s [00:53:00.821] elements: ‘...’ 1580s [00:53:00.821] length: 0 (resolved future 1) 1580s [00:53:00.822] resolve() on list ... DONE 1580s [00:53:00.822] - '...' content: [n=0] 1580s [00:53:00.822] List of 1 1580s [00:53:00.822] $ ...: list() 1580s [00:53:00.822] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1580s [00:53:00.822] - attr(*, "where")=List of 1 1580s [00:53:00.822] ..$ ...: 1580s [00:53:00.822] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1580s [00:53:00.822] - attr(*, "resolved")= logi TRUE 1580s [00:53:00.822] - attr(*, "total_size")= num NA 1580s [00:53:00.827] - Getting '...' globals ... DONE 1580s [00:53:00.827] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1580s [00:53:00.828] List of 2 1580s [00:53:00.828] $ ...future.FUN:function (x, y = 2 * 1:5) 1580s [00:53:00.828] $ ... : list() 1580s [00:53:00.828] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1580s [00:53:00.828] - attr(*, "where")=List of 2 1580s [00:53:00.828] ..$ ...future.FUN: 1580s [00:53:00.828] ..$ ... : 1580s [00:53:00.828] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1580s [00:53:00.828] - attr(*, "resolved")= logi FALSE 1580s [00:53:00.828] - attr(*, "total_size")= num 4728 1580s [00:53:00.832] Packages to be attached in all futures: [n=0] 1580s [00:53:00.832] getGlobalsAndPackagesXApply() ... DONE 1580s [00:53:00.832] Number of futures (= number of chunks): 1 1580s [00:53:00.833] Launching 1 futures (chunks) ... 1580s [00:53:00.833] Chunk #1 of 1 ... 1580s [00:53:00.833] - Finding globals in 'X' for chunk #1 ... 1580s [00:53:00.833] getGlobalsAndPackages() ... 1580s [00:53:00.833] Searching for globals... 1580s [00:53:00.833] 1580s [00:53:00.834] Searching for globals ... DONE 1580s [00:53:00.834] - globals: [0] 1580s [00:53:00.834] getGlobalsAndPackages() ... DONE 1580s [00:53:00.834] + additional globals found: [n=0] 1580s [00:53:00.834] + additional namespaces needed: [n=0] 1580s [00:53:00.834] - Finding globals in 'X' for chunk #1 ... DONE 1580s [00:53:00.834] - seeds: 1580s [00:53:00.834] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1580s [00:53:00.835] getGlobalsAndPackages() ... 1580s [00:53:00.835] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1580s [00:53:00.835] Resolving globals: FALSE 1580s [00:53:00.836] Tweak future expression to call with '...' arguments ... 1580s [00:53:00.836] { 1580s [00:53:00.836] do.call(function(...) { 1580s [00:53:00.836] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1580s [00:53:00.836] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1580s [00:53:00.836] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1580s [00:53:00.836] on.exit(options(oopts), add = TRUE) 1580s [00:53:00.836] } 1580s [00:53:00.836] { 1580s [00:53:00.836] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1580s [00:53:00.836] ...future.X_jj <- ...future.elements_ii[[jj]] 1580s [00:53:00.836] ...future.FUN(...future.X_jj, ...) 1580s [00:53:00.836] }) 1580s [00:53:00.836] } 1580s [00:53:00.836] }, args = future.call.arguments) 1580s [00:53:00.836] } 1580s [00:53:00.836] Tweak future expression to call with '...' arguments ... DONE 1580s [00:53:00.837] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1580s [00:53:00.837] 1580s [00:53:00.837] getGlobalsAndPackages() ... DONE 1580s [00:53:00.837] run() for ‘Future’ ... 1580s [00:53:00.837] - state: ‘created’ 1580s [00:53:00.838] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1580s [00:53:00.842] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1580s [00:53:00.842] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1580s [00:53:00.842] - Field: ‘label’ 1580s [00:53:00.842] - Field: ‘local’ 1580s [00:53:00.842] - Field: ‘owner’ 1580s [00:53:00.842] - Field: ‘envir’ 1580s [00:53:00.843] - Field: ‘packages’ 1580s [00:53:00.843] - Field: ‘gc’ 1580s [00:53:00.843] - Field: ‘conditions’ 1580s [00:53:00.843] - Field: ‘expr’ 1580s [00:53:00.843] - Field: ‘uuid’ 1580s [00:53:00.843] - Field: ‘seed’ 1580s [00:53:00.844] - Field: ‘version’ 1580s [00:53:00.844] - Field: ‘result’ 1580s [00:53:00.844] - Field: ‘asynchronous’ 1580s [00:53:00.845] - Field: ‘calls’ 1580s [00:53:00.845] - Field: ‘globals’ 1580s [00:53:00.845] - Field: ‘stdout’ 1580s [00:53:00.845] - Field: ‘earlySignal’ 1580s [00:53:00.845] - Field: ‘lazy’ 1580s [00:53:00.846] - Field: ‘state’ 1580s [00:53:00.846] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1580s [00:53:00.846] - Launch lazy future ... 1580s [00:53:00.847] Packages needed by the future expression (n = 0): 1580s [00:53:00.847] Packages needed by future strategies (n = 0): 1580s [00:53:00.847] { 1580s [00:53:00.847] { 1580s [00:53:00.847] { 1580s [00:53:00.847] ...future.startTime <- base::Sys.time() 1580s [00:53:00.847] { 1580s [00:53:00.847] { 1580s [00:53:00.847] { 1580s [00:53:00.847] base::local({ 1580s [00:53:00.847] has_future <- base::requireNamespace("future", 1580s [00:53:00.847] quietly = TRUE) 1580s [00:53:00.847] if (has_future) { 1580s [00:53:00.847] ns <- base::getNamespace("future") 1580s [00:53:00.847] version <- ns[[".package"]][["version"]] 1580s [00:53:00.847] if (is.null(version)) 1580s [00:53:00.847] version <- utils::packageVersion("future") 1580s [00:53:00.847] } 1580s [00:53:00.847] else { 1580s [00:53:00.847] version <- NULL 1580s [00:53:00.847] } 1580s [00:53:00.847] if (!has_future || version < "1.8.0") { 1580s [00:53:00.847] info <- base::c(r_version = base::gsub("R version ", 1580s [00:53:00.847] "", base::R.version$version.string), 1580s [00:53:00.847] platform = base::sprintf("%s (%s-bit)", 1580s [00:53:00.847] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1580s [00:53:00.847] os = base::paste(base::Sys.info()[base::c("sysname", 1580s [00:53:00.847] "release", "version")], collapse = " "), 1580s [00:53:00.847] hostname = base::Sys.info()[["nodename"]]) 1580s [00:53:00.847] info <- base::sprintf("%s: %s", base::names(info), 1580s [00:53:00.847] info) 1580s [00:53:00.847] info <- base::paste(info, collapse = "; ") 1580s [00:53:00.847] if (!has_future) { 1580s [00:53:00.847] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1580s [00:53:00.847] info) 1580s [00:53:00.847] } 1580s [00:53:00.847] else { 1580s [00:53:00.847] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1580s [00:53:00.847] info, version) 1580s [00:53:00.847] } 1580s [00:53:00.847] base::stop(msg) 1580s [00:53:00.847] } 1580s [00:53:00.847] }) 1580s [00:53:00.847] } 1580s [00:53:00.847] options(future.plan = NULL) 1580s [00:53:00.847] Sys.unsetenv("R_FUTURE_PLAN") 1580s [00:53:00.847] future::plan("default", .cleanup = FALSE, .init = FALSE) 1580s [00:53:00.847] } 1580s [00:53:00.847] ...future.workdir <- getwd() 1580s [00:53:00.847] } 1580s [00:53:00.847] ...future.oldOptions <- base::as.list(base::.Options) 1580s [00:53:00.847] ...future.oldEnvVars <- base::Sys.getenv() 1580s [00:53:00.847] } 1580s [00:53:00.847] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1580s [00:53:00.847] future.globals.maxSize = NULL, future.globals.method = NULL, 1580s [00:53:00.847] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1580s [00:53:00.847] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1580s [00:53:00.847] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1580s [00:53:00.847] future.stdout.windows.reencode = NULL, width = 80L) 1580s [00:53:00.847] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1580s [00:53:00.847] base::names(...future.oldOptions)) 1580s [00:53:00.847] } 1580s [00:53:00.847] if (FALSE) { 1580s [00:53:00.847] } 1580s [00:53:00.847] else { 1580s [00:53:00.847] if (TRUE) { 1580s [00:53:00.847] ...future.stdout <- base::rawConnection(base::raw(0L), 1580s [00:53:00.847] open = "w") 1580s [00:53:00.847] } 1580s [00:53:00.847] else { 1580s [00:53:00.847] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1580s [00:53:00.847] windows = "NUL", "/dev/null"), open = "w") 1580s [00:53:00.847] } 1580s [00:53:00.847] base::sink(...future.stdout, type = "output", split = FALSE) 1580s [00:53:00.847] base::on.exit(if (!base::is.null(...future.stdout)) { 1580s [00:53:00.847] base::sink(type = "output", split = FALSE) 1580s [00:53:00.847] base::close(...future.stdout) 1580s [00:53:00.847] }, add = TRUE) 1580s [00:53:00.847] } 1580s [00:53:00.847] ...future.frame <- base::sys.nframe() 1580s [00:53:00.847] ...future.conditions <- base::list() 1580s [00:53:00.847] ...future.rng <- base::globalenv()$.Random.seed 1580s [00:53:00.847] if (FALSE) { 1580s [00:53:00.847] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1580s [00:53:00.847] "...future.value", "...future.globalenv.names", ".Random.seed") 1580s [00:53:00.847] } 1580s [00:53:00.847] ...future.result <- base::tryCatch({ 1580s [00:53:00.847] base::withCallingHandlers({ 1580s [00:53:00.847] ...future.value <- base::withVisible(base::local({ 1580s [00:53:00.847] do.call(function(...) { 1580s [00:53:00.847] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1580s [00:53:00.847] if (!identical(...future.globals.maxSize.org, 1580s [00:53:00.847] ...future.globals.maxSize)) { 1580s [00:53:00.847] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1580s [00:53:00.847] on.exit(options(oopts), add = TRUE) 1580s [00:53:00.847] } 1580s [00:53:00.847] { 1580s [00:53:00.847] lapply(seq_along(...future.elements_ii), 1580s [00:53:00.847] FUN = function(jj) { 1580s [00:53:00.847] ...future.X_jj <- ...future.elements_ii[[jj]] 1580s [00:53:00.847] ...future.FUN(...future.X_jj, ...) 1580s [00:53:00.847] }) 1580s [00:53:00.847] } 1580s [00:53:00.847] }, args = future.call.arguments) 1580s [00:53:00.847] })) 1580s [00:53:00.847] future::FutureResult(value = ...future.value$value, 1580s [00:53:00.847] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1580s [00:53:00.847] ...future.rng), globalenv = if (FALSE) 1580s [00:53:00.847] list(added = base::setdiff(base::names(base::.GlobalEnv), 1580s [00:53:00.847] ...future.globalenv.names)) 1580s [00:53:00.847] else NULL, started = ...future.startTime, version = "1.8") 1580s [00:53:00.847] }, condition = base::local({ 1580s [00:53:00.847] c <- base::c 1580s [00:53:00.847] inherits <- base::inherits 1580s [00:53:00.847] invokeRestart <- base::invokeRestart 1580s [00:53:00.847] length <- base::length 1580s [00:53:00.847] list <- base::list 1580s [00:53:00.847] seq.int <- base::seq.int 1580s [00:53:00.847] signalCondition <- base::signalCondition 1580s [00:53:00.847] sys.calls <- base::sys.calls 1580s [00:53:00.847] `[[` <- base::`[[` 1580s [00:53:00.847] `+` <- base::`+` 1580s [00:53:00.847] `<<-` <- base::`<<-` 1580s [00:53:00.847] sysCalls <- function(calls = sys.calls(), from = 1L) { 1580s [00:53:00.847] calls[seq.int(from = from + 12L, to = length(calls) - 1580s [00:53:00.847] 3L)] 1580s [00:53:00.847] } 1580s [00:53:00.847] function(cond) { 1580s [00:53:00.847] is_error <- inherits(cond, "error") 1580s [00:53:00.847] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1580s [00:53:00.847] NULL) 1580s [00:53:00.847] if (is_error) { 1580s [00:53:00.847] sessionInformation <- function() { 1580s [00:53:00.847] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1580s [00:53:00.847] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1580s [00:53:00.847] search = base::search(), system = base::Sys.info()) 1580s [00:53:00.847] } 1580s [00:53:00.847] ...future.conditions[[length(...future.conditions) + 1580s [00:53:00.847] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1580s [00:53:00.847] cond$call), session = sessionInformation(), 1580s [00:53:00.847] timestamp = base::Sys.time(), signaled = 0L) 1580s [00:53:00.847] signalCondition(cond) 1580s [00:53:00.847] } 1580s [00:53:00.847] else if (!ignore && TRUE && inherits(cond, c("condition", 1580s [00:53:00.847] "immediateCondition"))) { 1580s [00:53:00.847] signal <- TRUE && inherits(cond, "immediateCondition") 1580s [00:53:00.847] ...future.conditions[[length(...future.conditions) + 1580s [00:53:00.847] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1580s [00:53:00.847] if (TRUE && !signal) { 1580s [00:53:00.847] muffleCondition <- function (cond, pattern = "^muffle") 1580s [00:53:00.847] { 1580s [00:53:00.847] inherits <- base::inherits 1580s [00:53:00.847] invokeRestart <- base::invokeRestart 1580s [00:53:00.847] is.null <- base::is.null 1580s [00:53:00.847] muffled <- FALSE 1580s [00:53:00.847] if (inherits(cond, "message")) { 1580s [00:53:00.847] muffled <- grepl(pattern, "muffleMessage") 1580s [00:53:00.847] if (muffled) 1580s [00:53:00.847] invokeRestart("muffleMessage") 1580s [00:53:00.847] } 1580s [00:53:00.847] else if (inherits(cond, "warning")) { 1580s [00:53:00.847] muffled <- grepl(pattern, "muffleWarning") 1580s [00:53:00.847] if (muffled) 1580s [00:53:00.847] invokeRestart("muffleWarning") 1580s [00:53:00.847] } 1580s [00:53:00.847] else if (inherits(cond, "condition")) { 1580s [00:53:00.847] if (!is.null(pattern)) { 1580s [00:53:00.847] computeRestarts <- base::computeRestarts 1580s [00:53:00.847] grepl <- base::grepl 1580s [00:53:00.847] restarts <- computeRestarts(cond) 1580s [00:53:00.847] for (restart in restarts) { 1580s [00:53:00.847] name <- restart$name 1580s [00:53:00.847] if (is.null(name)) 1580s [00:53:00.847] next 1580s [00:53:00.847] if (!grepl(pattern, name)) 1580s [00:53:00.847] next 1580s [00:53:00.847] invokeRestart(restart) 1580s [00:53:00.847] muffled <- TRUE 1580s [00:53:00.847] break 1580s [00:53:00.847] } 1580s [00:53:00.847] } 1580s [00:53:00.847] } 1580s [00:53:00.847] invisible(muffled) 1580s [00:53:00.847] } 1580s [00:53:00.847] muffleCondition(cond, pattern = "^muffle") 1580s [00:53:00.847] } 1580s [00:53:00.847] } 1580s [00:53:00.847] else { 1580s [00:53:00.847] if (TRUE) { 1580s [00:53:00.847] muffleCondition <- function (cond, pattern = "^muffle") 1580s [00:53:00.847] { 1580s [00:53:00.847] inherits <- base::inherits 1580s [00:53:00.847] invokeRestart <- base::invokeRestart 1580s [00:53:00.847] is.null <- base::is.null 1580s [00:53:00.847] muffled <- FALSE 1580s [00:53:00.847] if (inherits(cond, "message")) { 1580s [00:53:00.847] muffled <- grepl(pattern, "muffleMessage") 1580s [00:53:00.847] if (muffled) 1580s [00:53:00.847] invokeRestart("muffleMessage") 1580s [00:53:00.847] } 1580s [00:53:00.847] else if (inherits(cond, "warning")) { 1580s [00:53:00.847] muffled <- grepl(pattern, "muffleWarning") 1580s [00:53:00.847] if (muffled) 1580s [00:53:00.847] invokeRestart("muffleWarning") 1580s [00:53:00.847] } 1580s [00:53:00.847] else if (inherits(cond, "condition")) { 1580s [00:53:00.847] if (!is.null(pattern)) { 1580s [00:53:00.847] computeRestarts <- base::computeRestarts 1580s [00:53:00.847] grepl <- base::grepl 1580s [00:53:00.847] restarts <- computeRestarts(cond) 1580s [00:53:00.847] for (restart in restarts) { 1580s [00:53:00.847] name <- restart$name 1580s [00:53:00.847] if (is.null(name)) 1580s [00:53:00.847] next 1580s [00:53:00.847] if (!grepl(pattern, name)) 1580s [00:53:00.847] next 1580s [00:53:00.847] invokeRestart(restart) 1580s [00:53:00.847] muffled <- TRUE 1580s [00:53:00.847] break 1580s [00:53:00.847] } 1580s [00:53:00.847] } 1580s [00:53:00.847] } 1580s [00:53:00.847] invisible(muffled) 1580s [00:53:00.847] } 1580s [00:53:00.847] muffleCondition(cond, pattern = "^muffle") 1580s [00:53:00.847] } 1580s [00:53:00.847] } 1580s [00:53:00.847] } 1580s [00:53:00.847] })) 1580s [00:53:00.847] }, error = function(ex) { 1580s [00:53:00.847] base::structure(base::list(value = NULL, visible = NULL, 1580s [00:53:00.847] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1580s [00:53:00.847] ...future.rng), started = ...future.startTime, 1580s [00:53:00.847] finished = Sys.time(), session_uuid = NA_character_, 1580s [00:53:00.847] version = "1.8"), class = "FutureResult") 1580s [00:53:00.847] }, finally = { 1580s [00:53:00.847] if (!identical(...future.workdir, getwd())) 1580s [00:53:00.847] setwd(...future.workdir) 1580s [00:53:00.847] { 1580s [00:53:00.847] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1580s [00:53:00.847] ...future.oldOptions$nwarnings <- NULL 1580s [00:53:00.847] } 1580s [00:53:00.847] base::options(...future.oldOptions) 1580s [00:53:00.847] if (.Platform$OS.type == "windows") { 1580s [00:53:00.847] old_names <- names(...future.oldEnvVars) 1580s [00:53:00.847] envs <- base::Sys.getenv() 1580s [00:53:00.847] names <- names(envs) 1580s [00:53:00.847] common <- intersect(names, old_names) 1580s [00:53:00.847] added <- setdiff(names, old_names) 1580s [00:53:00.847] removed <- setdiff(old_names, names) 1580s [00:53:00.847] changed <- common[...future.oldEnvVars[common] != 1580s [00:53:00.847] envs[common]] 1580s [00:53:00.847] NAMES <- toupper(changed) 1580s [00:53:00.847] args <- list() 1580s [00:53:00.847] for (kk in seq_along(NAMES)) { 1580s [00:53:00.847] name <- changed[[kk]] 1580s [00:53:00.847] NAME <- NAMES[[kk]] 1580s [00:53:00.847] if (name != NAME && is.element(NAME, old_names)) 1580s [00:53:00.847] next 1580s [00:53:00.847] args[[name]] <- ...future.oldEnvVars[[name]] 1580s [00:53:00.847] } 1580s [00:53:00.847] NAMES <- toupper(added) 1580s [00:53:00.847] for (kk in seq_along(NAMES)) { 1580s [00:53:00.847] name <- added[[kk]] 1580s [00:53:00.847] NAME <- NAMES[[kk]] 1580s [00:53:00.847] if (name != NAME && is.element(NAME, old_names)) 1580s [00:53:00.847] next 1580s [00:53:00.847] args[[name]] <- "" 1580s [00:53:00.847] } 1580s [00:53:00.847] NAMES <- toupper(removed) 1580s [00:53:00.847] for (kk in seq_along(NAMES)) { 1580s [00:53:00.847] name <- removed[[kk]] 1580s [00:53:00.847] NAME <- NAMES[[kk]] 1580s [00:53:00.847] if (name != NAME && is.element(NAME, old_names)) 1580s [00:53:00.847] next 1580s [00:53:00.847] args[[name]] <- ...future.oldEnvVars[[name]] 1580s [00:53:00.847] } 1580s [00:53:00.847] if (length(args) > 0) 1580s [00:53:00.847] base::do.call(base::Sys.setenv, args = args) 1580s [00:53:00.847] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1580s [00:53:00.847] } 1580s [00:53:00.847] else { 1580s [00:53:00.847] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1580s [00:53:00.847] } 1580s [00:53:00.847] { 1580s [00:53:00.847] if (base::length(...future.futureOptionsAdded) > 1580s [00:53:00.847] 0L) { 1580s [00:53:00.847] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1580s [00:53:00.847] base::names(opts) <- ...future.futureOptionsAdded 1580s [00:53:00.847] base::options(opts) 1580s [00:53:00.847] } 1580s [00:53:00.847] { 1580s [00:53:00.847] { 1580s [00:53:00.847] NULL 1580s [00:53:00.847] RNGkind("Mersenne-Twister") 1580s [00:53:00.847] base::rm(list = ".Random.seed", envir = base::globalenv(), 1580s [00:53:00.847] inherits = FALSE) 1580s [00:53:00.847] } 1580s [00:53:00.847] options(future.plan = NULL) 1580s [00:53:00.847] if (is.na(NA_character_)) 1580s [00:53:00.847] Sys.unsetenv("R_FUTURE_PLAN") 1580s [00:53:00.847] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1580s [00:53:00.847] future::plan(list(function (..., workers = availableCores(), 1580s [00:53:00.847] lazy = FALSE, rscript_libs = .libPaths(), 1580s [00:53:00.847] envir = parent.frame()) 1580s [00:53:00.847] { 1580s [00:53:00.847] if (is.function(workers)) 1580s [00:53:00.847] workers <- workers() 1580s [00:53:00.847] workers <- structure(as.integer(workers), 1580s [00:53:00.847] class = class(workers)) 1580s [00:53:00.847] stop_if_not(length(workers) == 1, is.finite(workers), 1580s [00:53:00.847] workers >= 1) 1580s [00:53:00.847] if (workers == 1L && !inherits(workers, "AsIs")) { 1580s [00:53:00.847] return(sequential(..., lazy = TRUE, envir = envir)) 1580s [00:53:00.847] } 1580s [00:53:00.847] future <- MultisessionFuture(..., workers = workers, 1580s [00:53:00.847] lazy = lazy, rscript_libs = rscript_libs, 1580s [00:53:00.847] envir = envir) 1580s [00:53:00.847] if (!future$lazy) 1580s [00:53:00.847] future <- run(future) 1580s [00:53:00.847] invisible(future) 1580s [00:53:00.847] }), .cleanup = FALSE, .init = FALSE) 1580s [00:53:00.847] } 1580s [00:53:00.847] } 1580s [00:53:00.847] } 1580s [00:53:00.847] }) 1580s [00:53:00.847] if (TRUE) { 1580s [00:53:00.847] base::sink(type = "output", split = FALSE) 1580s [00:53:00.847] if (TRUE) { 1580s [00:53:00.847] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1580s [00:53:00.847] } 1580s [00:53:00.847] else { 1580s [00:53:00.847] ...future.result["stdout"] <- base::list(NULL) 1580s [00:53:00.847] } 1580s [00:53:00.847] base::close(...future.stdout) 1580s [00:53:00.847] ...future.stdout <- NULL 1580s [00:53:00.847] } 1580s [00:53:00.847] ...future.result$conditions <- ...future.conditions 1580s [00:53:00.847] ...future.result$finished <- base::Sys.time() 1580s [00:53:00.847] ...future.result 1580s [00:53:00.847] } 1580s [00:53:00.854] assign_globals() ... 1580s [00:53:00.854] List of 5 1580s [00:53:00.854] $ ...future.FUN :function (x, y = 2 * 1:5) 1580s [00:53:00.854] $ future.call.arguments : list() 1580s [00:53:00.854] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1580s [00:53:00.854] $ ...future.elements_ii :List of 6 1580s [00:53:00.854] ..$ a1: int 1 1580s [00:53:00.854] ..$ a2: int 2 1580s [00:53:00.854] ..$ b1: int 2 1580s [00:53:00.854] ..$ b2: int 3 1580s [00:53:00.854] ..$ c1: int 3 1580s [00:53:00.854] ..$ c2: int 4 1580s [00:53:00.854] $ ...future.seeds_ii : NULL 1580s [00:53:00.854] $ ...future.globals.maxSize: NULL 1580s [00:53:00.854] - attr(*, "where")=List of 5 1580s [00:53:00.854] ..$ ...future.FUN : 1580s [00:53:00.854] ..$ future.call.arguments : 1580s [00:53:00.854] ..$ ...future.elements_ii : 1580s [00:53:00.854] ..$ ...future.seeds_ii : 1580s [00:53:00.854] ..$ ...future.globals.maxSize: 1580s [00:53:00.854] - attr(*, "resolved")= logi FALSE 1580s [00:53:00.854] - attr(*, "total_size")= num 4728 1580s [00:53:00.854] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1580s [00:53:00.854] - attr(*, "already-done")= logi TRUE 1580s [00:53:00.866] - reassign environment for ‘...future.FUN’ 1580s [00:53:00.866] - copied ‘...future.FUN’ to environment 1580s [00:53:00.866] - copied ‘future.call.arguments’ to environment 1580s [00:53:00.867] - copied ‘...future.elements_ii’ to environment 1580s [00:53:00.867] - copied ‘...future.seeds_ii’ to environment 1580s [00:53:00.867] - copied ‘...future.globals.maxSize’ to environment 1580s [00:53:00.867] assign_globals() ... done 1580s [00:53:00.868] plan(): Setting new future strategy stack: 1580s [00:53:00.868] List of future strategies: 1580s [00:53:00.868] 1. sequential: 1580s [00:53:00.868] - args: function (..., envir = parent.frame()) 1580s [00:53:00.868] - tweaked: FALSE 1580s [00:53:00.868] - call: NULL 1580s [00:53:00.868] plan(): nbrOfWorkers() = 1 1580s [00:53:00.869] plan(): Setting new future strategy stack: 1580s [00:53:00.869] List of future strategies: 1580s [00:53:00.869] 1. multisession: 1580s [00:53:00.869] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1580s [00:53:00.869] - tweaked: FALSE 1580s [00:53:00.869] - call: plan(strategy) 1580s [00:53:00.874] plan(): nbrOfWorkers() = 1 1580s [00:53:00.874] SequentialFuture started (and completed) 1580s [00:53:00.874] - Launch lazy future ... done 1580s [00:53:00.875] run() for ‘SequentialFuture’ ... done 1580s [00:53:00.875] Created future: 1580s [00:53:00.875] SequentialFuture: 1580s [00:53:00.875] Label: ‘future_sapply-1’ 1580s [00:53:00.875] Expression: 1580s [00:53:00.875] { 1580s [00:53:00.875] do.call(function(...) { 1580s [00:53:00.875] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1580s [00:53:00.875] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1580s [00:53:00.875] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1580s [00:53:00.875] on.exit(options(oopts), add = TRUE) 1580s [00:53:00.875] } 1580s [00:53:00.875] { 1580s [00:53:00.875] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1580s [00:53:00.875] ...future.X_jj <- ...future.elements_ii[[jj]] 1580s [00:53:00.875] ...future.FUN(...future.X_jj, ...) 1580s [00:53:00.875] }) 1580s [00:53:00.875] } 1580s [00:53:00.875] }, args = future.call.arguments) 1580s [00:53:00.875] } 1580s [00:53:00.875] Lazy evaluation: FALSE 1580s [00:53:00.875] Asynchronous evaluation: FALSE 1580s [00:53:00.875] Local evaluation: TRUE 1580s [00:53:00.875] Environment: R_GlobalEnv 1580s [00:53:00.875] Capture standard output: TRUE 1580s [00:53:00.875] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1580s [00:53:00.875] Globals: 5 objects totaling 4.95 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1580s [00:53:00.875] Packages: 1580s [00:53:00.875] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1580s [00:53:00.875] Resolved: TRUE 1580s [00:53:00.875] Value: 2.02 KiB of class ‘list’ 1580s [00:53:00.875] Early signaling: FALSE 1580s [00:53:00.875] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1580s [00:53:00.875] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1580s [00:53:00.878] Chunk #1 of 1 ... DONE 1580s [00:53:00.878] Launching 1 futures (chunks) ... DONE 1580s [00:53:00.878] Resolving 1 futures (chunks) ... 1580s [00:53:00.879] resolve() on list ... 1580s [00:53:00.879] recursive: 0 1580s [00:53:00.879] length: 1 1580s [00:53:00.879] 1580s [00:53:00.879] resolved() for ‘SequentialFuture’ ... 1580s [00:53:00.879] - state: ‘finished’ 1580s [00:53:00.880] - run: TRUE 1580s [00:53:00.880] - result: ‘FutureResult’ 1580s [00:53:00.881] resolved() for ‘SequentialFuture’ ... done 1580s [00:53:00.881] Future #1 1580s [00:53:00.881] signalConditionsASAP(SequentialFuture, pos=1) ... 1580s [00:53:00.881] - nx: 1 1580s [00:53:00.881] - relay: TRUE 1580s [00:53:00.881] - stdout: TRUE 1580s [00:53:00.882] - signal: TRUE 1580s [00:53:00.882] - resignal: FALSE 1580s [00:53:00.882] - force: TRUE 1580s [00:53:00.882] - relayed: [n=1] FALSE 1580s [00:53:00.882] - queued futures: [n=1] FALSE 1580s [00:53:00.882] - until=1 1580s [00:53:00.882] - relaying element #1 1580s [00:53:00.883] - relayed: [n=1] TRUE 1580s [00:53:00.883] - queued futures: [n=1] TRUE 1580s [00:53:00.883] signalConditionsASAP(SequentialFuture, pos=1) ... done 1580s [00:53:00.884] length: 0 (resolved future 1) 1580s [00:53:00.884] Relaying remaining futures 1580s [00:53:00.884] signalConditionsASAP(NULL, pos=0) ... 1580s [00:53:00.884] - nx: 1 1580s [00:53:00.888] - relay: TRUE 1580s [00:53:00.888] - stdout: TRUE 1580s [00:53:00.889] - signal: TRUE 1580s [00:53:00.889] - resignal: FALSE 1580s [00:53:00.889] - force: TRUE 1580s [00:53:00.889] - relayed: [n=1] TRUE 1580s [00:53:00.889] - queued futures: [n=1] TRUE 1580s - flush all 1580s [00:53:00.890] - relayed: [n=1] TRUE 1580s [00:53:00.890] - queued futures: [n=1] TRUE 1580s [00:53:00.890] signalConditionsASAP(NULL, pos=0) ... done 1580s [00:53:00.890] resolve() on list ... DONE 1580s [00:53:00.890] - Number of value chunks collected: 1 1580s [00:53:00.890] Resolving 1 futures (chunks) ... DONE 1580s [00:53:00.891] Reducing values from 1 chunks ... 1580s [00:53:00.891] - Number of values collected after concatenation: 6 1580s [00:53:00.891] - Number of values expected: 6 1580s [00:53:00.891] Reducing values from 1 chunks ... DONE 1580s [00:53:00.892] future_lapply() ... DONE 1580s List of 2 1580s $ y0:List of 6 1580s ..$ a1: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1580s ..$ a2: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1580s ..$ b1: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1580s ..$ b2: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1580s ..$ c1: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1580s ..$ c2: num [1:3, 1:5] 8 8 8 16 16 16 24 24 24 32 ... 1580s $ y1:List of 6 1580s ..$ a1: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1580s ..$ a2: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1580s ..$ b1: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1580s ..$ b2: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1580s ..$ c1: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1580s ..$ c2: num [1:3, 1:5] 8 8 8 16 16 16 24 24 24 32 ... 1580s List of 2 1580s $ y0:List of 6 1580s ..$ a1: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1580s ..$ a2: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1580s ..$ b1: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1580s ..$ b2: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1580s ..$ c1: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1580s ..$ c2: num [1:3, 1:5] 8 8 8 16 16 16 24 24 24 32 ... 1580s $ y2:List of 6 1580s ..$ a1: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1580s ..$ a2: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1580s ..$ b1: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1580s ..$ b2: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1580s ..$ c1: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1580s ..$ c2: num [1:3, 1:5] 8 8 8 16 16 16 24 24 24 32 ... 1580s [00:53:00.909] future_lapply() ... 1580s [00:53:00.914] Number of chunks: 1 1580s [00:53:00.914] getGlobalsAndPackagesXApply() ... 1580s [00:53:00.914] - future.globals: TRUE 1580s [00:53:00.914] getGlobalsAndPackages() ... 1580s [00:53:00.914] Searching for globals... 1580s [00:53:00.916] - globals found: [1] ‘FUN’ 1580s [00:53:00.916] Searching for globals ... DONE 1580s [00:53:00.916] Resolving globals: FALSE 1580s [00:53:00.916] The total size of the 1 globals is 848 bytes (848 bytes) 1580s [00:53:00.917] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1580s [00:53:00.918] - globals: [1] ‘FUN’ 1580s [00:53:00.918] 1580s [00:53:00.919] getGlobalsAndPackages() ... DONE 1580s [00:53:00.919] - globals found/used: [n=1] ‘FUN’ 1580s [00:53:00.919] - needed namespaces: [n=0] 1580s [00:53:00.919] Finding globals ... DONE 1580s [00:53:00.920] - use_args: TRUE 1580s [00:53:00.920] - Getting '...' globals ... 1580s [00:53:00.920] resolve() on list ... 1580s [00:53:00.920] recursive: 0 1580s [00:53:00.921] length: 1 1580s [00:53:00.921] elements: ‘...’ 1580s [00:53:00.921] length: 0 (resolved future 1) 1580s [00:53:00.921] resolve() on list ... DONE 1580s [00:53:00.921] - '...' content: [n=0] 1580s [00:53:00.921] List of 1 1580s [00:53:00.921] $ ...: list() 1580s [00:53:00.921] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1580s [00:53:00.921] - attr(*, "where")=List of 1 1580s [00:53:00.921] ..$ ...: 1580s [00:53:00.921] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1580s [00:53:00.921] - attr(*, "resolved")= logi TRUE 1580s [00:53:00.921] - attr(*, "total_size")= num NA 1580s [00:53:00.926] - Getting '...' globals ... DONE 1580s [00:53:00.926] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1580s [00:53:00.926] List of 2 1580s [00:53:00.926] $ ...future.FUN:function (x) 1580s [00:53:00.926] $ ... : list() 1580s [00:53:00.926] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1580s [00:53:00.926] - attr(*, "where")=List of 2 1580s [00:53:00.926] ..$ ...future.FUN: 1580s [00:53:00.926] ..$ ... : 1580s [00:53:00.926] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1580s [00:53:00.926] - attr(*, "resolved")= logi FALSE 1580s [00:53:00.926] - attr(*, "total_size")= num 848 1580s [00:53:00.931] Packages to be attached in all futures: [n=0] 1580s [00:53:00.931] getGlobalsAndPackagesXApply() ... DONE 1580s [00:53:00.932] Number of futures (= number of chunks): 1 1580s [00:53:00.932] Launching 1 futures (chunks) ... 1580s [00:53:00.932] Chunk #1 of 1 ... 1580s [00:53:00.932] - Finding globals in 'X' for chunk #1 ... 1580s [00:53:00.932] getGlobalsAndPackages() ... 1580s [00:53:00.933] Searching for globals... 1580s [00:53:00.933] 1580s [00:53:00.934] Searching for globals ... DONE 1580s [00:53:00.934] - globals: [0] 1580s [00:53:00.934] getGlobalsAndPackages() ... DONE 1580s [00:53:00.934] + additional globals found: [n=0] 1580s [00:53:00.934] + additional namespaces needed: [n=0] 1580s [00:53:00.934] - Finding globals in 'X' for chunk #1 ... DONE 1580s [00:53:00.935] - seeds: 1580s [00:53:00.935] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1580s [00:53:00.935] getGlobalsAndPackages() ... 1580s [00:53:00.935] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1580s [00:53:00.936] Resolving globals: FALSE 1580s [00:53:00.936] Tweak future expression to call with '...' arguments ... 1580s [00:53:00.936] { 1580s [00:53:00.936] do.call(function(...) { 1580s [00:53:00.936] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1580s [00:53:00.936] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1580s [00:53:00.936] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1580s [00:53:00.936] on.exit(options(oopts), add = TRUE) 1580s [00:53:00.936] } 1580s [00:53:00.936] { 1580s [00:53:00.936] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1580s [00:53:00.936] ...future.X_jj <- ...future.elements_ii[[jj]] 1580s [00:53:00.936] ...future.FUN(...future.X_jj, ...) 1580s [00:53:00.936] }) 1580s [00:53:00.936] } 1580s [00:53:00.936] }, args = future.call.arguments) 1580s [00:53:00.936] } 1580s [00:53:00.937] Tweak future expression to call with '...' arguments ... DONE 1580s [00:53:00.937] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1580s [00:53:00.938] 1580s [00:53:00.938] getGlobalsAndPackages() ... DONE 1580s [00:53:00.938] run() for ‘Future’ ... 1580s [00:53:00.938] - state: ‘created’ 1580s [00:53:00.939] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1580s [00:53:00.943] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1580s [00:53:00.943] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1580s [00:53:00.944] - Field: ‘label’ 1580s [00:53:00.944] - Field: ‘local’ 1580s [00:53:00.944] - Field: ‘owner’ 1580s [00:53:00.944] - Field: ‘envir’ 1580s [00:53:00.944] - Field: ‘packages’ 1580s [00:53:00.945] - Field: ‘gc’ 1580s [00:53:00.945] - Field: ‘conditions’ 1580s [00:53:00.945] - Field: ‘expr’ 1580s [00:53:00.945] - Field: ‘uuid’ 1580s [00:53:00.945] - Field: ‘seed’ 1580s [00:53:00.945] - Field: ‘version’ 1580s [00:53:00.946] - Field: ‘result’ 1580s [00:53:00.946] - Field: ‘asynchronous’ 1580s [00:53:00.946] - Field: ‘calls’ 1580s [00:53:00.946] - Field: ‘globals’ 1580s [00:53:00.946] - Field: ‘stdout’ 1580s [00:53:00.946] - Field: ‘earlySignal’ 1580s [00:53:00.947] - Field: ‘lazy’ 1580s [00:53:00.947] - Field: ‘state’ 1580s [00:53:00.947] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1580s [00:53:00.947] - Launch lazy future ... 1580s [00:53:00.948] Packages needed by the future expression (n = 0): 1580s [00:53:00.948] Packages needed by future strategies (n = 0): 1580s [00:53:00.949] { 1580s [00:53:00.949] { 1580s [00:53:00.949] { 1580s [00:53:00.949] ...future.startTime <- base::Sys.time() 1580s [00:53:00.949] { 1580s [00:53:00.949] { 1580s [00:53:00.949] { 1580s [00:53:00.949] base::local({ 1580s [00:53:00.949] has_future <- base::requireNamespace("future", 1580s [00:53:00.949] quietly = TRUE) 1580s [00:53:00.949] if (has_future) { 1580s [00:53:00.949] ns <- base::getNamespace("future") 1580s [00:53:00.949] version <- ns[[".package"]][["version"]] 1580s [00:53:00.949] if (is.null(version)) 1580s [00:53:00.949] version <- utils::packageVersion("future") 1580s [00:53:00.949] } 1580s [00:53:00.949] else { 1580s [00:53:00.949] version <- NULL 1580s [00:53:00.949] } 1580s [00:53:00.949] if (!has_future || version < "1.8.0") { 1580s [00:53:00.949] info <- base::c(r_version = base::gsub("R version ", 1580s [00:53:00.949] "", base::R.version$version.string), 1580s [00:53:00.949] platform = base::sprintf("%s (%s-bit)", 1580s [00:53:00.949] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1580s [00:53:00.949] os = base::paste(base::Sys.info()[base::c("sysname", 1580s [00:53:00.949] "release", "version")], collapse = " "), 1580s [00:53:00.949] hostname = base::Sys.info()[["nodename"]]) 1580s [00:53:00.949] info <- base::sprintf("%s: %s", base::names(info), 1580s [00:53:00.949] info) 1580s [00:53:00.949] info <- base::paste(info, collapse = "; ") 1580s [00:53:00.949] if (!has_future) { 1580s [00:53:00.949] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1580s [00:53:00.949] info) 1580s [00:53:00.949] } 1580s [00:53:00.949] else { 1580s [00:53:00.949] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1580s [00:53:00.949] info, version) 1580s [00:53:00.949] } 1580s [00:53:00.949] base::stop(msg) 1580s [00:53:00.949] } 1580s [00:53:00.949] }) 1580s [00:53:00.949] } 1580s [00:53:00.949] options(future.plan = NULL) 1580s [00:53:00.949] Sys.unsetenv("R_FUTURE_PLAN") 1580s [00:53:00.949] future::plan("default", .cleanup = FALSE, .init = FALSE) 1580s [00:53:00.949] } 1580s [00:53:00.949] ...future.workdir <- getwd() 1580s [00:53:00.949] } 1580s [00:53:00.949] ...future.oldOptions <- base::as.list(base::.Options) 1580s [00:53:00.949] ...future.oldEnvVars <- base::Sys.getenv() 1580s [00:53:00.949] } 1580s [00:53:00.949] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1580s [00:53:00.949] future.globals.maxSize = NULL, future.globals.method = NULL, 1580s [00:53:00.949] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1580s [00:53:00.949] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1580s [00:53:00.949] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1580s [00:53:00.949] future.stdout.windows.reencode = NULL, width = 80L) 1580s [00:53:00.949] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1580s [00:53:00.949] base::names(...future.oldOptions)) 1580s [00:53:00.949] } 1580s [00:53:00.949] if (FALSE) { 1580s [00:53:00.949] } 1580s [00:53:00.949] else { 1580s [00:53:00.949] if (TRUE) { 1580s [00:53:00.949] ...future.stdout <- base::rawConnection(base::raw(0L), 1580s [00:53:00.949] open = "w") 1580s [00:53:00.949] } 1580s [00:53:00.949] else { 1580s [00:53:00.949] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1580s [00:53:00.949] windows = "NUL", "/dev/null"), open = "w") 1580s [00:53:00.949] } 1580s [00:53:00.949] base::sink(...future.stdout, type = "output", split = FALSE) 1580s [00:53:00.949] base::on.exit(if (!base::is.null(...future.stdout)) { 1580s [00:53:00.949] base::sink(type = "output", split = FALSE) 1580s [00:53:00.949] base::close(...future.stdout) 1580s [00:53:00.949] }, add = TRUE) 1580s [00:53:00.949] } 1580s [00:53:00.949] ...future.frame <- base::sys.nframe() 1580s [00:53:00.949] ...future.conditions <- base::list() 1580s [00:53:00.949] ...future.rng <- base::globalenv()$.Random.seed 1580s [00:53:00.949] if (FALSE) { 1580s [00:53:00.949] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1580s [00:53:00.949] "...future.value", "...future.globalenv.names", ".Random.seed") 1580s [00:53:00.949] } 1580s [00:53:00.949] ...future.result <- base::tryCatch({ 1580s [00:53:00.949] base::withCallingHandlers({ 1580s [00:53:00.949] ...future.value <- base::withVisible(base::local({ 1580s [00:53:00.949] do.call(function(...) { 1580s [00:53:00.949] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1580s [00:53:00.949] if (!identical(...future.globals.maxSize.org, 1580s [00:53:00.949] ...future.globals.maxSize)) { 1580s [00:53:00.949] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1580s [00:53:00.949] on.exit(options(oopts), add = TRUE) 1580s [00:53:00.949] } 1580s [00:53:00.949] { 1580s [00:53:00.949] lapply(seq_along(...future.elements_ii), 1580s [00:53:00.949] FUN = function(jj) { 1580s [00:53:00.949] ...future.X_jj <- ...future.elements_ii[[jj]] 1580s [00:53:00.949] ...future.FUN(...future.X_jj, ...) 1580s [00:53:00.949] }) 1580s [00:53:00.949] } 1580s [00:53:00.949] }, args = future.call.arguments) 1580s [00:53:00.949] })) 1580s [00:53:00.949] future::FutureResult(value = ...future.value$value, 1580s [00:53:00.949] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1580s [00:53:00.949] ...future.rng), globalenv = if (FALSE) 1580s [00:53:00.949] list(added = base::setdiff(base::names(base::.GlobalEnv), 1580s [00:53:00.949] ...future.globalenv.names)) 1580s [00:53:00.949] else NULL, started = ...future.startTime, version = "1.8") 1580s [00:53:00.949] }, condition = base::local({ 1580s [00:53:00.949] c <- base::c 1580s [00:53:00.949] inherits <- base::inherits 1580s [00:53:00.949] invokeRestart <- base::invokeRestart 1580s [00:53:00.949] length <- base::length 1580s [00:53:00.949] list <- base::list 1580s [00:53:00.949] seq.int <- base::seq.int 1580s [00:53:00.949] signalCondition <- base::signalCondition 1580s [00:53:00.949] sys.calls <- base::sys.calls 1580s [00:53:00.949] `[[` <- base::`[[` 1580s [00:53:00.949] `+` <- base::`+` 1580s [00:53:00.949] `<<-` <- base::`<<-` 1580s [00:53:00.949] sysCalls <- function(calls = sys.calls(), from = 1L) { 1580s [00:53:00.949] calls[seq.int(from = from + 12L, to = length(calls) - 1580s [00:53:00.949] 3L)] 1580s [00:53:00.949] } 1580s [00:53:00.949] function(cond) { 1580s [00:53:00.949] is_error <- inherits(cond, "error") 1580s [00:53:00.949] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1580s [00:53:00.949] NULL) 1580s [00:53:00.949] if (is_error) { 1580s [00:53:00.949] sessionInformation <- function() { 1580s [00:53:00.949] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1580s [00:53:00.949] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1580s [00:53:00.949] search = base::search(), system = base::Sys.info()) 1580s [00:53:00.949] } 1580s [00:53:00.949] ...future.conditions[[length(...future.conditions) + 1580s [00:53:00.949] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1580s [00:53:00.949] cond$call), session = sessionInformation(), 1580s [00:53:00.949] timestamp = base::Sys.time(), signaled = 0L) 1580s [00:53:00.949] signalCondition(cond) 1580s [00:53:00.949] } 1580s [00:53:00.949] else if (!ignore && TRUE && inherits(cond, c("condition", 1580s [00:53:00.949] "immediateCondition"))) { 1580s [00:53:00.949] signal <- TRUE && inherits(cond, "immediateCondition") 1580s [00:53:00.949] ...future.conditions[[length(...future.conditions) + 1580s [00:53:00.949] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1580s [00:53:00.949] if (TRUE && !signal) { 1580s [00:53:00.949] muffleCondition <- function (cond, pattern = "^muffle") 1580s [00:53:00.949] { 1580s [00:53:00.949] inherits <- base::inherits 1580s [00:53:00.949] invokeRestart <- base::invokeRestart 1580s [00:53:00.949] is.null <- base::is.null 1580s [00:53:00.949] muffled <- FALSE 1580s [00:53:00.949] if (inherits(cond, "message")) { 1580s [00:53:00.949] muffled <- grepl(pattern, "muffleMessage") 1580s [00:53:00.949] if (muffled) 1580s [00:53:00.949] invokeRestart("muffleMessage") 1580s [00:53:00.949] } 1580s [00:53:00.949] else if (inherits(cond, "warning")) { 1580s [00:53:00.949] muffled <- grepl(pattern, "muffleWarning") 1580s [00:53:00.949] if (muffled) 1580s [00:53:00.949] invokeRestart("muffleWarning") 1580s [00:53:00.949] } 1580s [00:53:00.949] else if (inherits(cond, "condition")) { 1580s [00:53:00.949] if (!is.null(pattern)) { 1580s [00:53:00.949] computeRestarts <- base::computeRestarts 1580s [00:53:00.949] grepl <- base::grepl 1580s [00:53:00.949] restarts <- computeRestarts(cond) 1580s [00:53:00.949] for (restart in restarts) { 1580s [00:53:00.949] name <- restart$name 1580s [00:53:00.949] if (is.null(name)) 1580s [00:53:00.949] next 1580s [00:53:00.949] if (!grepl(pattern, name)) 1580s [00:53:00.949] next 1580s [00:53:00.949] invokeRestart(restart) 1580s [00:53:00.949] muffled <- TRUE 1580s [00:53:00.949] break 1580s [00:53:00.949] } 1580s [00:53:00.949] } 1580s [00:53:00.949] } 1580s [00:53:00.949] invisible(muffled) 1580s [00:53:00.949] } 1580s [00:53:00.949] muffleCondition(cond, pattern = "^muffle") 1580s [00:53:00.949] } 1580s [00:53:00.949] } 1580s [00:53:00.949] else { 1580s [00:53:00.949] if (TRUE) { 1580s [00:53:00.949] muffleCondition <- function (cond, pattern = "^muffle") 1580s [00:53:00.949] { 1581s [00:53:00.949] inherits <- base::inherits 1581s [00:53:00.949] invokeRestart <- base::invokeRestart 1581s [00:53:00.949] is.null <- base::is.null 1581s [00:53:00.949] muffled <- FALSE 1581s [00:53:00.949] if (inherits(cond, "message")) { 1581s [00:53:00.949] muffled <- grepl(pattern, "muffleMessage") 1581s [00:53:00.949] if (muffled) 1581s [00:53:00.949] invokeRestart("muffleMessage") 1581s [00:53:00.949] } 1581s [00:53:00.949] else if (inherits(cond, "warning")) { 1581s [00:53:00.949] muffled <- grepl(pattern, "muffleWarning") 1581s [00:53:00.949] if (muffled) 1581s [00:53:00.949] invokeRestart("muffleWarning") 1581s [00:53:00.949] } 1581s [00:53:00.949] else if (inherits(cond, "condition")) { 1581s [00:53:00.949] if (!is.null(pattern)) { 1581s [00:53:00.949] computeRestarts <- base::computeRestarts 1581s [00:53:00.949] grepl <- base::grepl 1581s [00:53:00.949] restarts <- computeRestarts(cond) 1581s [00:53:00.949] for (restart in restarts) { 1581s [00:53:00.949] name <- restart$name 1581s [00:53:00.949] if (is.null(name)) 1581s [00:53:00.949] next 1581s [00:53:00.949] if (!grepl(pattern, name)) 1581s [00:53:00.949] next 1581s [00:53:00.949] invokeRestart(restart) 1581s [00:53:00.949] muffled <- TRUE 1581s [00:53:00.949] break 1581s [00:53:00.949] } 1581s [00:53:00.949] } 1581s [00:53:00.949] } 1581s [00:53:00.949] invisible(muffled) 1581s [00:53:00.949] } 1581s [00:53:00.949] muffleCondition(cond, pattern = "^muffle") 1581s [00:53:00.949] } 1581s [00:53:00.949] } 1581s [00:53:00.949] } 1581s [00:53:00.949] })) 1581s [00:53:00.949] }, error = function(ex) { 1581s [00:53:00.949] base::structure(base::list(value = NULL, visible = NULL, 1581s [00:53:00.949] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1581s [00:53:00.949] ...future.rng), started = ...future.startTime, 1581s [00:53:00.949] finished = Sys.time(), session_uuid = NA_character_, 1581s [00:53:00.949] version = "1.8"), class = "FutureResult") 1581s [00:53:00.949] }, finally = { 1581s [00:53:00.949] if (!identical(...future.workdir, getwd())) 1581s [00:53:00.949] setwd(...future.workdir) 1581s [00:53:00.949] { 1581s [00:53:00.949] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1581s [00:53:00.949] ...future.oldOptions$nwarnings <- NULL 1581s [00:53:00.949] } 1581s [00:53:00.949] base::options(...future.oldOptions) 1581s [00:53:00.949] if (.Platform$OS.type == "windows") { 1581s [00:53:00.949] old_names <- names(...future.oldEnvVars) 1581s [00:53:00.949] envs <- base::Sys.getenv() 1581s [00:53:00.949] names <- names(envs) 1581s [00:53:00.949] common <- intersect(names, old_names) 1581s [00:53:00.949] added <- setdiff(names, old_names) 1581s [00:53:00.949] removed <- setdiff(old_names, names) 1581s [00:53:00.949] changed <- common[...future.oldEnvVars[common] != 1581s [00:53:00.949] envs[common]] 1581s [00:53:00.949] NAMES <- toupper(changed) 1581s [00:53:00.949] args <- list() 1581s [00:53:00.949] for (kk in seq_along(NAMES)) { 1581s [00:53:00.949] name <- changed[[kk]] 1581s [00:53:00.949] NAME <- NAMES[[kk]] 1581s [00:53:00.949] if (name != NAME && is.element(NAME, old_names)) 1581s [00:53:00.949] next 1581s [00:53:00.949] args[[name]] <- ...future.oldEnvVars[[name]] 1581s [00:53:00.949] } 1581s [00:53:00.949] NAMES <- toupper(added) 1581s [00:53:00.949] for (kk in seq_along(NAMES)) { 1581s [00:53:00.949] name <- added[[kk]] 1581s [00:53:00.949] NAME <- NAMES[[kk]] 1581s [00:53:00.949] if (name != NAME && is.element(NAME, old_names)) 1581s [00:53:00.949] next 1581s [00:53:00.949] args[[name]] <- "" 1581s [00:53:00.949] } 1581s [00:53:00.949] NAMES <- toupper(removed) 1581s [00:53:00.949] for (kk in seq_along(NAMES)) { 1581s [00:53:00.949] name <- removed[[kk]] 1581s [00:53:00.949] NAME <- NAMES[[kk]] 1581s [00:53:00.949] if (name != NAME && is.element(NAME, old_names)) 1581s [00:53:00.949] next 1581s [00:53:00.949] args[[name]] <- ...future.oldEnvVars[[name]] 1581s [00:53:00.949] } 1581s [00:53:00.949] if (length(args) > 0) 1581s [00:53:00.949] base::do.call(base::Sys.setenv, args = args) 1581s [00:53:00.949] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1581s [00:53:00.949] } 1581s [00:53:00.949] else { 1581s [00:53:00.949] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1581s [00:53:00.949] } 1581s [00:53:00.949] { 1581s [00:53:00.949] if (base::length(...future.futureOptionsAdded) > 1581s [00:53:00.949] 0L) { 1581s [00:53:00.949] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1581s [00:53:00.949] base::names(opts) <- ...future.futureOptionsAdded 1581s [00:53:00.949] base::options(opts) 1581s [00:53:00.949] } 1581s [00:53:00.949] { 1581s [00:53:00.949] { 1581s [00:53:00.949] NULL 1581s [00:53:00.949] RNGkind("Mersenne-Twister") 1581s [00:53:00.949] base::rm(list = ".Random.seed", envir = base::globalenv(), 1581s [00:53:00.949] inherits = FALSE) 1581s [00:53:00.949] } 1581s [00:53:00.949] options(future.plan = NULL) 1581s [00:53:00.949] if (is.na(NA_character_)) 1581s [00:53:00.949] Sys.unsetenv("R_FUTURE_PLAN") 1581s [00:53:00.949] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1581s [00:53:00.949] future::plan(list(function (..., workers = availableCores(), 1581s [00:53:00.949] lazy = FALSE, rscript_libs = .libPaths(), 1581s [00:53:00.949] envir = parent.frame()) 1581s [00:53:00.949] { 1581s [00:53:00.949] if (is.function(workers)) 1581s [00:53:00.949] workers <- workers() 1581s [00:53:00.949] workers <- structure(as.integer(workers), 1581s [00:53:00.949] class = class(workers)) 1581s [00:53:00.949] stop_if_not(length(workers) == 1, is.finite(workers), 1581s [00:53:00.949] workers >= 1) 1581s [00:53:00.949] if (workers == 1L && !inherits(workers, "AsIs")) { 1581s [00:53:00.949] return(sequential(..., lazy = TRUE, envir = envir)) 1581s [00:53:00.949] } 1581s [00:53:00.949] future <- MultisessionFuture(..., workers = workers, 1581s [00:53:00.949] lazy = lazy, rscript_libs = rscript_libs, 1581s [00:53:00.949] envir = envir) 1581s [00:53:00.949] if (!future$lazy) 1581s [00:53:00.949] future <- run(future) 1581s [00:53:00.949] invisible(future) 1581s [00:53:00.949] }), .cleanup = FALSE, .init = FALSE) 1581s [00:53:00.949] } 1581s [00:53:00.949] } 1581s [00:53:00.949] } 1581s [00:53:00.949] }) 1581s [00:53:00.949] if (TRUE) { 1581s [00:53:00.949] base::sink(type = "output", split = FALSE) 1581s [00:53:00.949] if (TRUE) { 1581s [00:53:00.949] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1581s [00:53:00.949] } 1581s [00:53:00.949] else { 1581s [00:53:00.949] ...future.result["stdout"] <- base::list(NULL) 1581s [00:53:00.949] } 1581s [00:53:00.949] base::close(...future.stdout) 1581s [00:53:00.949] ...future.stdout <- NULL 1581s [00:53:00.949] } 1581s [00:53:00.949] ...future.result$conditions <- ...future.conditions 1581s [00:53:00.949] ...future.result$finished <- base::Sys.time() 1581s [00:53:00.949] ...future.result 1581s [00:53:00.949] } 1581s [00:53:00.954] assign_globals() ... 1581s [00:53:00.954] List of 5 1581s [00:53:00.954] $ ...future.FUN :function (x) 1581s [00:53:00.954] $ future.call.arguments : list() 1581s [00:53:00.954] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1581s [00:53:00.954] $ ...future.elements_ii :List of 6 1581s [00:53:00.954] ..$ a1: int 1 1581s [00:53:00.954] ..$ a2: int 2 1581s [00:53:00.954] ..$ b1: int 2 1581s [00:53:00.954] ..$ b2: int 3 1581s [00:53:00.954] ..$ c1: int 3 1581s [00:53:00.954] ..$ c2: int 4 1581s [00:53:00.954] $ ...future.seeds_ii : NULL 1581s [00:53:00.954] $ ...future.globals.maxSize: NULL 1581s [00:53:00.954] - attr(*, "where")=List of 5 1581s [00:53:00.954] ..$ ...future.FUN : 1581s [00:53:00.954] ..$ future.call.arguments : 1581s [00:53:00.954] ..$ ...future.elements_ii : 1581s [00:53:00.954] ..$ ...future.seeds_ii : 1581s [00:53:00.954] ..$ ...future.globals.maxSize: 1581s [00:53:00.954] - attr(*, "resolved")= logi FALSE 1581s [00:53:00.954] - attr(*, "total_size")= num 848 1581s [00:53:00.954] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1581s [00:53:00.954] - attr(*, "already-done")= logi TRUE 1581s [00:53:00.965] - copied ‘...future.FUN’ to environment 1581s [00:53:00.965] - copied ‘future.call.arguments’ to environment 1581s [00:53:00.966] - copied ‘...future.elements_ii’ to environment 1581s [00:53:00.966] - copied ‘...future.seeds_ii’ to environment 1581s [00:53:00.966] - copied ‘...future.globals.maxSize’ to environment 1581s [00:53:00.966] assign_globals() ... done 1581s [00:53:00.967] plan(): Setting new future strategy stack: 1581s [00:53:00.967] List of future strategies: 1581s [00:53:00.967] 1. sequential: 1581s [00:53:00.967] - args: function (..., envir = parent.frame()) 1581s [00:53:00.967] - tweaked: FALSE 1581s [00:53:00.967] - call: NULL 1581s [00:53:00.968] plan(): nbrOfWorkers() = 1 1581s [00:53:00.969] plan(): Setting new future strategy stack: 1581s [00:53:00.969] List of future strategies: 1581s [00:53:00.969] 1. multisession: 1581s [00:53:00.969] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1581s [00:53:00.969] - tweaked: FALSE 1581s [00:53:00.969] - call: plan(strategy) 1581s [00:53:00.973] plan(): nbrOfWorkers() = 1 1581s [00:53:00.974] SequentialFuture started (and completed) 1581s [00:53:00.974] - Launch lazy future ... done 1581s [00:53:00.974] run() for ‘SequentialFuture’ ... done 1581s [00:53:00.974] Created future: 1581s [00:53:00.974] SequentialFuture: 1581s [00:53:00.974] Label: ‘future_sapply-1’ 1581s [00:53:00.974] Expression: 1581s [00:53:00.974] { 1581s [00:53:00.974] do.call(function(...) { 1581s [00:53:00.974] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1581s [00:53:00.974] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1581s [00:53:00.974] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1581s [00:53:00.974] on.exit(options(oopts), add = TRUE) 1581s [00:53:00.974] } 1581s [00:53:00.974] { 1581s [00:53:00.974] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1581s [00:53:00.974] ...future.X_jj <- ...future.elements_ii[[jj]] 1581s [00:53:00.974] ...future.FUN(...future.X_jj, ...) 1581s [00:53:00.974] }) 1581s [00:53:00.974] } 1581s [00:53:00.974] }, args = future.call.arguments) 1581s [00:53:00.974] } 1581s [00:53:00.974] Lazy evaluation: FALSE 1581s [00:53:00.974] Asynchronous evaluation: FALSE 1581s [00:53:00.974] Local evaluation: TRUE 1581s [00:53:00.974] Environment: R_GlobalEnv 1581s [00:53:00.974] Capture standard output: TRUE 1581s [00:53:00.974] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1581s [00:53:00.974] Globals: 5 objects totaling 1.16 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1581s [00:53:00.974] Packages: 1581s [00:53:00.974] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1581s [00:53:00.974] Resolved: TRUE 1581s [00:53:00.974] Value: 336 bytes of class ‘list’ 1581s [00:53:00.974] Early signaling: FALSE 1581s [00:53:00.974] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1581s [00:53:00.974] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1581s [00:53:00.977] Chunk #1 of 1 ... DONE 1581s [00:53:00.977] Launching 1 futures (chunks) ... DONE 1581s [00:53:00.977] Resolving 1 futures (chunks) ... 1581s [00:53:00.977] resolve() on list ... 1581s [00:53:00.977] recursive: 0 1581s [00:53:00.978] length: 1 1581s [00:53:00.978] 1581s [00:53:00.978] resolved() for ‘SequentialFuture’ ... 1581s [00:53:00.978] - state: ‘finished’ 1581s [00:53:00.978] - run: TRUE 1581s [00:53:00.978] - result: ‘FutureResult’ 1581s [00:53:00.978] resolved() for ‘SequentialFuture’ ... done 1581s [00:53:00.979] Future #1 1581s [00:53:00.979] signalConditionsASAP(SequentialFuture, pos=1) ... 1581s [00:53:00.979] - nx: 1 1581s [00:53:00.979] - relay: TRUE 1581s [00:53:00.979] - stdout: TRUE 1581s [00:53:00.980] - signal: TRUE 1581s [00:53:00.980] - resignal: FALSE 1581s [00:53:00.980] - force: TRUE 1581s [00:53:00.980] - relayed: [n=1] FALSE 1581s [00:53:00.980] - queued futures: [n=1] FALSE 1581s [00:53:00.981] - until=1 1581s [00:53:00.981] - relaying element #1 1581s [00:53:00.981] - relayed: [n=1] TRUE 1581s [00:53:00.981] - queued futures: [n=1] TRUE 1581s [00:53:00.982] signalConditionsASAP(SequentialFuture, pos=1) ... done 1581s [00:53:00.982] length: 0 (resolved future 1) 1581s [00:53:00.982] Relaying remaining futures 1581s [00:53:00.982] signalConditionsASAP(NULL, pos=0) ... 1581s [00:53:00.982] - nx: 1 1581s [00:53:00.983] - relay: TRUE 1581s [00:53:00.983] - stdout: TRUE 1581s [00:53:00.983] - signal: TRUE 1581s [00:53:00.983] - resignal: FALSE 1581s [00:53:00.983] - force: TRUE 1581s [00:53:00.983] - relayed: [n=1] TRUE 1581s [00:53:00.983] - queued futures: [n=1] TRUE 1581s - flush all 1581s [00:53:00.984] - relayed: [n=1] TRUE 1581s [00:53:00.984] - queued futures: [n=1] TRUE 1581s [00:53:00.984] signalConditionsASAP(NULL, pos=0) ... done 1581s [00:53:00.984] resolve() on list ... DONE 1581s [00:53:00.984] - Number of value chunks collected: 1 1581s [00:53:00.984] Resolving 1 futures (chunks) ... DONE 1581s [00:53:00.985] Reducing values from 1 chunks ... 1581s [00:53:00.985] - Number of values collected after concatenation: 6 1581s [00:53:00.985] - Number of values expected: 6 1581s [00:53:00.985] Reducing values from 1 chunks ... DONE 1581s [00:53:00.985] future_lapply() ... DONE 1581s List of 2 1581s $ y0: Named int [1:6] 1 2 2 3 3 4 1581s ..- attr(*, "names")= chr [1:6] "a1" "a2" "b1" "b2" ... 1581s $ y1: Named int [1:6] 1 2 2 3 3 4 1581s ..- attr(*, "names")=[00:53:00.990] future_lapply() ... 1581s chr [1:6] "a1" "a2" "b1" "b2" ... 1581s [00:53:00.994] Number of chunks: 1 1581s [00:53:00.994] getGlobalsAndPackagesXApply() ... 1581s [00:53:00.995] - future.globals: TRUE 1581s [00:53:00.995] getGlobalsAndPackages() ... 1581s [00:53:00.995] Searching for globals... 1581s [00:53:00.996] - globals found: [2] ‘FUN’, ‘UseMethod’ 1581s [00:53:00.996] Searching for globals ... DONE 1581s [00:53:00.996] Resolving globals: FALSE 1581s [00:53:00.997] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1581s [00:53:00.997] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1581s [00:53:00.998] - globals: [1] ‘FUN’ 1581s [00:53:00.998] 1581s [00:53:00.998] getGlobalsAndPackages() ... DONE 1581s [00:53:00.998] - globals found/used: [n=1] ‘FUN’ 1581s [00:53:00.998] - needed namespaces: [n=0] 1581s [00:53:00.998] Finding globals ... DONE 1581s [00:53:00.998] - use_args: TRUE 1581s [00:53:00.999] - Getting '...' globals ... 1581s [00:53:01.000] resolve() on list ... 1581s [00:53:01.000] recursive: 0 1581s [00:53:01.000] length: 1 1581s [00:53:01.001] elements: ‘...’ 1581s [00:53:01.001] length: 0 (resolved future 1) 1581s [00:53:01.001] resolve() on list ... DONE 1581s [00:53:01.002] - '...' content: [n=0] 1581s [00:53:01.002] List of 1 1581s [00:53:01.002] $ ...: list() 1581s [00:53:01.002] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1581s [00:53:01.002] - attr(*, "where")=List of 1 1581s [00:53:01.002] ..$ ...: 1581s [00:53:01.002] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1581s [00:53:01.002] - attr(*, "resolved")= logi TRUE 1581s [00:53:01.002] - attr(*, "total_size")= num NA 1581s [00:53:01.007] - Getting '...' globals ... DONE 1581s [00:53:01.007] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1581s [00:53:01.007] List of 2 1581s [00:53:01.007] $ ...future.FUN:function (x, ...) 1581s [00:53:01.007] $ ... : list() 1581s [00:53:01.007] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1581s [00:53:01.007] - attr(*, "where")=List of 2 1581s [00:53:01.007] ..$ ...future.FUN: 1581s [00:53:01.007] ..$ ... : 1581s [00:53:01.007] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1581s [00:53:01.007] - attr(*, "resolved")= logi FALSE 1581s [00:53:01.007] - attr(*, "total_size")= num 1248 1581s [00:53:01.016] Packages to be attached in all futures: [n=0] 1581s [00:53:01.016] getGlobalsAndPackagesXApply() ... DONE 1581s [00:53:01.016] Number of futures (= number of chunks): 1 1581s [00:53:01.017] Launching 1 futures (chunks) ... 1581s [00:53:01.017] Chunk #1 of 1 ... 1581s [00:53:01.017] - Finding globals in 'X' for chunk #1 ... 1581s [00:53:01.017] getGlobalsAndPackages() ... 1581s [00:53:01.017] Searching for globals... 1581s [00:53:01.018] 1581s [00:53:01.018] Searching for globals ... DONE 1581s [00:53:01.018] - globals: [0] 1581s [00:53:01.018] getGlobalsAndPackages() ... DONE 1581s [00:53:01.018] + additional globals found: [n=0] 1581s [00:53:01.018] + additional namespaces needed: [n=0] 1581s [00:53:01.019] - Finding globals in 'X' for chunk #1 ... DONE 1581s [00:53:01.019] - seeds: 1581s [00:53:01.019] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1581s [00:53:01.019] getGlobalsAndPackages() ... 1581s [00:53:01.019] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1581s [00:53:01.019] Resolving globals: FALSE 1581s [00:53:01.020] Tweak future expression to call with '...' arguments ... 1581s [00:53:01.020] { 1581s [00:53:01.020] do.call(function(...) { 1581s [00:53:01.020] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1581s [00:53:01.020] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1581s [00:53:01.020] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1581s [00:53:01.020] on.exit(options(oopts), add = TRUE) 1581s [00:53:01.020] } 1581s [00:53:01.020] { 1581s [00:53:01.020] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1581s [00:53:01.020] ...future.X_jj <- ...future.elements_ii[[jj]] 1581s [00:53:01.020] ...future.FUN(...future.X_jj, ...) 1581s [00:53:01.020] }) 1581s [00:53:01.020] } 1581s [00:53:01.020] }, args = future.call.arguments) 1581s [00:53:01.020] } 1581s [00:53:01.021] Tweak future expression to call with '...' arguments ... DONE 1581s [00:53:01.021] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1581s [00:53:01.021] 1581s [00:53:01.022] getGlobalsAndPackages() ... DONE 1581s [00:53:01.022] run() for ‘Future’ ... 1581s [00:53:01.023] - state: ‘created’ 1581s [00:53:01.023] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1581s [00:53:01.027] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1581s [00:53:01.028] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1581s [00:53:01.028] - Field: ‘label’ 1581s [00:53:01.029] - Field: ‘local’ 1581s [00:53:01.029] - Field: ‘owner’ 1581s [00:53:01.029] - Field: ‘envir’ 1581s [00:53:01.029] - Field: ‘packages’ 1581s [00:53:01.030] - Field: ‘gc’ 1581s [00:53:01.030] - Field: ‘conditions’ 1581s [00:53:01.030] - Field: ‘expr’ 1581s [00:53:01.030] - Field: ‘uuid’ 1581s [00:53:01.030] - Field: ‘seed’ 1581s [00:53:01.031] - Field: ‘version’ 1581s [00:53:01.031] - Field: ‘result’ 1581s [00:53:01.031] - Field: ‘asynchronous’ 1581s [00:53:01.032] - Field: ‘calls’ 1581s [00:53:01.033] - Field: ‘globals’ 1581s [00:53:01.033] - Field: ‘stdout’ 1581s [00:53:01.033] - Field: ‘earlySignal’ 1581s [00:53:01.033] - Field: ‘lazy’ 1581s [00:53:01.033] - Field: ‘state’ 1581s [00:53:01.034] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1581s [00:53:01.034] - Launch lazy future ... 1581s [00:53:01.034] Packages needed by the future expression (n = 0): 1581s [00:53:01.034] Packages needed by future strategies (n = 0): 1581s [00:53:01.035] { 1581s [00:53:01.035] { 1581s [00:53:01.035] { 1581s [00:53:01.035] ...future.startTime <- base::Sys.time() 1581s [00:53:01.035] { 1581s [00:53:01.035] { 1581s [00:53:01.035] { 1581s [00:53:01.035] base::local({ 1581s [00:53:01.035] has_future <- base::requireNamespace("future", 1581s [00:53:01.035] quietly = TRUE) 1581s [00:53:01.035] if (has_future) { 1581s [00:53:01.035] ns <- base::getNamespace("future") 1581s [00:53:01.035] version <- ns[[".package"]][["version"]] 1581s [00:53:01.035] if (is.null(version)) 1581s [00:53:01.035] version <- utils::packageVersion("future") 1581s [00:53:01.035] } 1581s [00:53:01.035] else { 1581s [00:53:01.035] version <- NULL 1581s [00:53:01.035] } 1581s [00:53:01.035] if (!has_future || version < "1.8.0") { 1581s [00:53:01.035] info <- base::c(r_version = base::gsub("R version ", 1581s [00:53:01.035] "", base::R.version$version.string), 1581s [00:53:01.035] platform = base::sprintf("%s (%s-bit)", 1581s [00:53:01.035] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1581s [00:53:01.035] os = base::paste(base::Sys.info()[base::c("sysname", 1581s [00:53:01.035] "release", "version")], collapse = " "), 1581s [00:53:01.035] hostname = base::Sys.info()[["nodename"]]) 1581s [00:53:01.035] info <- base::sprintf("%s: %s", base::names(info), 1581s [00:53:01.035] info) 1581s [00:53:01.035] info <- base::paste(info, collapse = "; ") 1581s [00:53:01.035] if (!has_future) { 1581s [00:53:01.035] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1581s [00:53:01.035] info) 1581s [00:53:01.035] } 1581s [00:53:01.035] else { 1581s [00:53:01.035] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1581s [00:53:01.035] info, version) 1581s [00:53:01.035] } 1581s [00:53:01.035] base::stop(msg) 1581s [00:53:01.035] } 1581s [00:53:01.035] }) 1581s [00:53:01.035] } 1581s [00:53:01.035] options(future.plan = NULL) 1581s [00:53:01.035] Sys.unsetenv("R_FUTURE_PLAN") 1581s [00:53:01.035] future::plan("default", .cleanup = FALSE, .init = FALSE) 1581s [00:53:01.035] } 1581s [00:53:01.035] ...future.workdir <- getwd() 1581s [00:53:01.035] } 1581s [00:53:01.035] ...future.oldOptions <- base::as.list(base::.Options) 1581s [00:53:01.035] ...future.oldEnvVars <- base::Sys.getenv() 1581s [00:53:01.035] } 1581s [00:53:01.035] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1581s [00:53:01.035] future.globals.maxSize = NULL, future.globals.method = NULL, 1581s [00:53:01.035] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1581s [00:53:01.035] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1581s [00:53:01.035] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1581s [00:53:01.035] future.stdout.windows.reencode = NULL, width = 80L) 1581s [00:53:01.035] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1581s [00:53:01.035] base::names(...future.oldOptions)) 1581s [00:53:01.035] } 1581s [00:53:01.035] if (FALSE) { 1581s [00:53:01.035] } 1581s [00:53:01.035] else { 1581s [00:53:01.035] if (TRUE) { 1581s [00:53:01.035] ...future.stdout <- base::rawConnection(base::raw(0L), 1581s [00:53:01.035] open = "w") 1581s [00:53:01.035] } 1581s [00:53:01.035] else { 1581s [00:53:01.035] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1581s [00:53:01.035] windows = "NUL", "/dev/null"), open = "w") 1581s [00:53:01.035] } 1581s [00:53:01.035] base::sink(...future.stdout, type = "output", split = FALSE) 1581s [00:53:01.035] base::on.exit(if (!base::is.null(...future.stdout)) { 1581s [00:53:01.035] base::sink(type = "output", split = FALSE) 1581s [00:53:01.035] base::close(...future.stdout) 1581s [00:53:01.035] }, add = TRUE) 1581s [00:53:01.035] } 1581s [00:53:01.035] ...future.frame <- base::sys.nframe() 1581s [00:53:01.035] ...future.conditions <- base::list() 1581s [00:53:01.035] ...future.rng <- base::globalenv()$.Random.seed 1581s [00:53:01.035] if (FALSE) { 1581s [00:53:01.035] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1581s [00:53:01.035] "...future.value", "...future.globalenv.names", ".Random.seed") 1581s [00:53:01.035] } 1581s [00:53:01.035] ...future.result <- base::tryCatch({ 1581s [00:53:01.035] base::withCallingHandlers({ 1581s [00:53:01.035] ...future.value <- base::withVisible(base::local({ 1581s [00:53:01.035] do.call(function(...) { 1581s [00:53:01.035] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1581s [00:53:01.035] if (!identical(...future.globals.maxSize.org, 1581s [00:53:01.035] ...future.globals.maxSize)) { 1581s [00:53:01.035] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1581s [00:53:01.035] on.exit(options(oopts), add = TRUE) 1581s [00:53:01.035] } 1581s [00:53:01.035] { 1581s [00:53:01.035] lapply(seq_along(...future.elements_ii), 1581s [00:53:01.035] FUN = function(jj) { 1581s [00:53:01.035] ...future.X_jj <- ...future.elements_ii[[jj]] 1581s [00:53:01.035] ...future.FUN(...future.X_jj, ...) 1581s [00:53:01.035] }) 1581s [00:53:01.035] } 1581s [00:53:01.035] }, args = future.call.arguments) 1581s [00:53:01.035] })) 1581s [00:53:01.035] future::FutureResult(value = ...future.value$value, 1581s [00:53:01.035] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1581s [00:53:01.035] ...future.rng), globalenv = if (FALSE) 1581s [00:53:01.035] list(added = base::setdiff(base::names(base::.GlobalEnv), 1581s [00:53:01.035] ...future.globalenv.names)) 1581s [00:53:01.035] else NULL, started = ...future.startTime, version = "1.8") 1581s [00:53:01.035] }, condition = base::local({ 1581s [00:53:01.035] c <- base::c 1581s [00:53:01.035] inherits <- base::inherits 1581s [00:53:01.035] invokeRestart <- base::invokeRestart 1581s [00:53:01.035] length <- base::length 1581s [00:53:01.035] list <- base::list 1581s [00:53:01.035] seq.int <- base::seq.int 1581s [00:53:01.035] signalCondition <- base::signalCondition 1581s [00:53:01.035] sys.calls <- base::sys.calls 1581s [00:53:01.035] `[[` <- base::`[[` 1581s [00:53:01.035] `+` <- base::`+` 1581s [00:53:01.035] `<<-` <- base::`<<-` 1581s [00:53:01.035] sysCalls <- function(calls = sys.calls(), from = 1L) { 1581s [00:53:01.035] calls[seq.int(from = from + 12L, to = length(calls) - 1581s [00:53:01.035] 3L)] 1581s [00:53:01.035] } 1581s [00:53:01.035] function(cond) { 1581s [00:53:01.035] is_error <- inherits(cond, "error") 1581s [00:53:01.035] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1581s [00:53:01.035] NULL) 1581s [00:53:01.035] if (is_error) { 1581s [00:53:01.035] sessionInformation <- function() { 1581s [00:53:01.035] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1581s [00:53:01.035] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1581s [00:53:01.035] search = base::search(), system = base::Sys.info()) 1581s [00:53:01.035] } 1581s [00:53:01.035] ...future.conditions[[length(...future.conditions) + 1581s [00:53:01.035] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1581s [00:53:01.035] cond$call), session = sessionInformation(), 1581s [00:53:01.035] timestamp = base::Sys.time(), signaled = 0L) 1581s [00:53:01.035] signalCondition(cond) 1581s [00:53:01.035] } 1581s [00:53:01.035] else if (!ignore && TRUE && inherits(cond, c("condition", 1581s [00:53:01.035] "immediateCondition"))) { 1581s [00:53:01.035] signal <- TRUE && inherits(cond, "immediateCondition") 1581s [00:53:01.035] ...future.conditions[[length(...future.conditions) + 1581s [00:53:01.035] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1581s [00:53:01.035] if (TRUE && !signal) { 1581s [00:53:01.035] muffleCondition <- function (cond, pattern = "^muffle") 1581s [00:53:01.035] { 1581s [00:53:01.035] inherits <- base::inherits 1581s [00:53:01.035] invokeRestart <- base::invokeRestart 1581s [00:53:01.035] is.null <- base::is.null 1581s [00:53:01.035] muffled <- FALSE 1581s [00:53:01.035] if (inherits(cond, "message")) { 1581s [00:53:01.035] muffled <- grepl(pattern, "muffleMessage") 1581s [00:53:01.035] if (muffled) 1581s [00:53:01.035] invokeRestart("muffleMessage") 1581s [00:53:01.035] } 1581s [00:53:01.035] else if (inherits(cond, "warning")) { 1581s [00:53:01.035] muffled <- grepl(pattern, "muffleWarning") 1581s [00:53:01.035] if (muffled) 1581s [00:53:01.035] invokeRestart("muffleWarning") 1581s [00:53:01.035] } 1581s [00:53:01.035] else if (inherits(cond, "condition")) { 1581s [00:53:01.035] if (!is.null(pattern)) { 1581s [00:53:01.035] computeRestarts <- base::computeRestarts 1581s [00:53:01.035] grepl <- base::grepl 1581s [00:53:01.035] restarts <- computeRestarts(cond) 1581s [00:53:01.035] for (restart in restarts) { 1581s [00:53:01.035] name <- restart$name 1581s [00:53:01.035] if (is.null(name)) 1581s [00:53:01.035] next 1581s [00:53:01.035] if (!grepl(pattern, name)) 1581s [00:53:01.035] next 1581s [00:53:01.035] invokeRestart(restart) 1581s [00:53:01.035] muffled <- TRUE 1581s [00:53:01.035] break 1581s [00:53:01.035] } 1581s [00:53:01.035] } 1581s [00:53:01.035] } 1581s [00:53:01.035] invisible(muffled) 1581s [00:53:01.035] } 1581s [00:53:01.035] muffleCondition(cond, pattern = "^muffle") 1581s [00:53:01.035] } 1581s [00:53:01.035] } 1581s [00:53:01.035] else { 1581s [00:53:01.035] if (TRUE) { 1581s [00:53:01.035] muffleCondition <- function (cond, pattern = "^muffle") 1581s [00:53:01.035] { 1581s [00:53:01.035] inherits <- base::inherits 1581s [00:53:01.035] invokeRestart <- base::invokeRestart 1581s [00:53:01.035] is.null <- base::is.null 1581s [00:53:01.035] muffled <- FALSE 1581s [00:53:01.035] if (inherits(cond, "message")) { 1581s [00:53:01.035] muffled <- grepl(pattern, "muffleMessage") 1581s [00:53:01.035] if (muffled) 1581s [00:53:01.035] invokeRestart("muffleMessage") 1581s [00:53:01.035] } 1581s [00:53:01.035] else if (inherits(cond, "warning")) { 1581s [00:53:01.035] muffled <- grepl(pattern, "muffleWarning") 1581s [00:53:01.035] if (muffled) 1581s [00:53:01.035] invokeRestart("muffleWarning") 1581s [00:53:01.035] } 1581s [00:53:01.035] else if (inherits(cond, "condition")) { 1581s [00:53:01.035] if (!is.null(pattern)) { 1581s [00:53:01.035] computeRestarts <- base::computeRestarts 1581s [00:53:01.035] grepl <- base::grepl 1581s [00:53:01.035] restarts <- computeRestarts(cond) 1581s [00:53:01.035] for (restart in restarts) { 1581s [00:53:01.035] name <- restart$name 1581s [00:53:01.035] if (is.null(name)) 1581s [00:53:01.035] next 1581s [00:53:01.035] if (!grepl(pattern, name)) 1581s [00:53:01.035] next 1581s [00:53:01.035] invokeRestart(restart) 1581s [00:53:01.035] muffled <- TRUE 1581s [00:53:01.035] break 1581s [00:53:01.035] } 1581s [00:53:01.035] } 1581s [00:53:01.035] } 1581s [00:53:01.035] invisible(muffled) 1581s [00:53:01.035] } 1581s [00:53:01.035] muffleCondition(cond, pattern = "^muffle") 1581s [00:53:01.035] } 1581s [00:53:01.035] } 1581s [00:53:01.035] } 1581s [00:53:01.035] })) 1581s [00:53:01.035] }, error = function(ex) { 1581s [00:53:01.035] base::structure(base::list(value = NULL, visible = NULL, 1581s [00:53:01.035] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1581s [00:53:01.035] ...future.rng), started = ...future.startTime, 1581s [00:53:01.035] finished = Sys.time(), session_uuid = NA_character_, 1581s [00:53:01.035] version = "1.8"), class = "FutureResult") 1581s [00:53:01.035] }, finally = { 1581s [00:53:01.035] if (!identical(...future.workdir, getwd())) 1581s [00:53:01.035] setwd(...future.workdir) 1581s [00:53:01.035] { 1581s [00:53:01.035] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1581s [00:53:01.035] ...future.oldOptions$nwarnings <- NULL 1581s [00:53:01.035] } 1581s [00:53:01.035] base::options(...future.oldOptions) 1581s [00:53:01.035] if (.Platform$OS.type == "windows") { 1581s [00:53:01.035] old_names <- names(...future.oldEnvVars) 1581s [00:53:01.035] envs <- base::Sys.getenv() 1581s [00:53:01.035] names <- names(envs) 1581s [00:53:01.035] common <- intersect(names, old_names) 1581s [00:53:01.035] added <- setdiff(names, old_names) 1581s [00:53:01.035] removed <- setdiff(old_names, names) 1581s [00:53:01.035] changed <- common[...future.oldEnvVars[common] != 1581s [00:53:01.035] envs[common]] 1581s [00:53:01.035] NAMES <- toupper(changed) 1581s [00:53:01.035] args <- list() 1581s [00:53:01.035] for (kk in seq_along(NAMES)) { 1581s [00:53:01.035] name <- changed[[kk]] 1581s [00:53:01.035] NAME <- NAMES[[kk]] 1581s [00:53:01.035] if (name != NAME && is.element(NAME, old_names)) 1581s [00:53:01.035] next 1581s [00:53:01.035] args[[name]] <- ...future.oldEnvVars[[name]] 1581s [00:53:01.035] } 1581s [00:53:01.035] NAMES <- toupper(added) 1581s [00:53:01.035] for (kk in seq_along(NAMES)) { 1581s [00:53:01.035] name <- added[[kk]] 1581s [00:53:01.035] NAME <- NAMES[[kk]] 1581s [00:53:01.035] if (name != NAME && is.element(NAME, old_names)) 1581s [00:53:01.035] next 1581s [00:53:01.035] args[[name]] <- "" 1581s [00:53:01.035] } 1581s [00:53:01.035] NAMES <- toupper(removed) 1581s [00:53:01.035] for (kk in seq_along(NAMES)) { 1581s [00:53:01.035] name <- removed[[kk]] 1581s [00:53:01.035] NAME <- NAMES[[kk]] 1581s [00:53:01.035] if (name != NAME && is.element(NAME, old_names)) 1581s [00:53:01.035] next 1581s [00:53:01.035] args[[name]] <- ...future.oldEnvVars[[name]] 1581s [00:53:01.035] } 1581s [00:53:01.035] if (length(args) > 0) 1581s [00:53:01.035] base::do.call(base::Sys.setenv, args = args) 1581s [00:53:01.035] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1581s [00:53:01.035] } 1581s [00:53:01.035] else { 1581s [00:53:01.035] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1581s [00:53:01.035] } 1581s [00:53:01.035] { 1581s [00:53:01.035] if (base::length(...future.futureOptionsAdded) > 1581s [00:53:01.035] 0L) { 1581s [00:53:01.035] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1581s [00:53:01.035] base::names(opts) <- ...future.futureOptionsAdded 1581s [00:53:01.035] base::options(opts) 1581s [00:53:01.035] } 1581s [00:53:01.035] { 1581s [00:53:01.035] { 1581s [00:53:01.035] NULL 1581s [00:53:01.035] RNGkind("Mersenne-Twister") 1581s [00:53:01.035] base::rm(list = ".Random.seed", envir = base::globalenv(), 1581s [00:53:01.035] inherits = FALSE) 1581s [00:53:01.035] } 1581s [00:53:01.035] options(future.plan = NULL) 1581s [00:53:01.035] if (is.na(NA_character_)) 1581s [00:53:01.035] Sys.unsetenv("R_FUTURE_PLAN") 1581s [00:53:01.035] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1581s [00:53:01.035] future::plan(list(function (..., workers = availableCores(), 1581s [00:53:01.035] lazy = FALSE, rscript_libs = .libPaths(), 1581s [00:53:01.035] envir = parent.frame()) 1581s [00:53:01.035] { 1581s [00:53:01.035] if (is.function(workers)) 1581s [00:53:01.035] workers <- workers() 1581s [00:53:01.035] workers <- structure(as.integer(workers), 1581s [00:53:01.035] class = class(workers)) 1581s [00:53:01.035] stop_if_not(length(workers) == 1, is.finite(workers), 1581s [00:53:01.035] workers >= 1) 1581s [00:53:01.035] if (workers == 1L && !inherits(workers, "AsIs")) { 1581s [00:53:01.035] return(sequential(..., lazy = TRUE, envir = envir)) 1581s [00:53:01.035] } 1581s [00:53:01.035] future <- MultisessionFuture(..., workers = workers, 1581s [00:53:01.035] lazy = lazy, rscript_libs = rscript_libs, 1581s [00:53:01.035] envir = envir) 1581s [00:53:01.035] if (!future$lazy) 1581s [00:53:01.035] future <- run(future) 1581s [00:53:01.035] invisible(future) 1581s [00:53:01.035] }), .cleanup = FALSE, .init = FALSE) 1581s [00:53:01.035] } 1581s [00:53:01.035] } 1581s [00:53:01.035] } 1581s [00:53:01.035] }) 1581s [00:53:01.035] if (TRUE) { 1581s [00:53:01.035] base::sink(type = "output", split = FALSE) 1581s [00:53:01.035] if (TRUE) { 1581s [00:53:01.035] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1581s [00:53:01.035] } 1581s [00:53:01.035] else { 1581s [00:53:01.035] ...future.result["stdout"] <- base::list(NULL) 1581s [00:53:01.035] } 1581s [00:53:01.035] base::close(...future.stdout) 1581s [00:53:01.035] ...future.stdout <- NULL 1581s [00:53:01.035] } 1581s [00:53:01.035] ...future.result$conditions <- ...future.conditions 1581s [00:53:01.035] ...future.result$finished <- base::Sys.time() 1581s [00:53:01.035] ...future.result 1581s [00:53:01.035] } 1581s [00:53:01.042] assign_globals() ... 1581s [00:53:01.042] List of 5 1581s [00:53:01.042] $ ...future.FUN :function (x, ...) 1581s [00:53:01.042] $ future.call.arguments : list() 1581s [00:53:01.042] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1581s [00:53:01.042] $ ...future.elements_ii :List of 6 1581s [00:53:01.042] ..$ a1: int 1 1581s [00:53:01.042] ..$ a2: int 2 1581s [00:53:01.042] ..$ b1: int 2 1581s [00:53:01.042] ..$ b2: int 3 1581s [00:53:01.042] ..$ c1: int 3 1581s [00:53:01.042] ..$ c2: int 4 1581s [00:53:01.042] $ ...future.seeds_ii : NULL 1581s [00:53:01.042] $ ...future.globals.maxSize: NULL 1581s [00:53:01.042] - attr(*, "where")=List of 5 1581s [00:53:01.042] ..$ ...future.FUN : 1581s [00:53:01.042] ..$ future.call.arguments : 1581s [00:53:01.042] ..$ ...future.elements_ii : 1581s [00:53:01.042] ..$ ...future.seeds_ii : 1581s [00:53:01.042] ..$ ...future.globals.maxSize: 1581s [00:53:01.042] - attr(*, "resolved")= logi FALSE 1581s [00:53:01.042] - attr(*, "total_size")= num 1248 1581s [00:53:01.042] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1581s [00:53:01.042] - attr(*, "already-done")= logi TRUE 1581s [00:53:01.053] - copied ‘...future.FUN’ to environment 1581s [00:53:01.053] - copied ‘future.call.arguments’ to environment 1581s [00:53:01.053] - copied ‘...future.elements_ii’ to environment 1581s [00:53:01.054] - copied ‘...future.seeds_ii’ to environment 1581s [00:53:01.054] - copied ‘...future.globals.maxSize’ to environment 1581s [00:53:01.054] assign_globals() ... done 1581s [00:53:01.054] plan(): Setting new future strategy stack: 1581s [00:53:01.055] List of future strategies: 1581s [00:53:01.055] 1. sequential: 1581s [00:53:01.055] - args: function (..., envir = parent.frame()) 1581s [00:53:01.055] - tweaked: FALSE 1581s [00:53:01.055] - call: NULL 1581s [00:53:01.055] plan(): nbrOfWorkers() = 1 1581s [00:53:01.056] plan(): Setting new future strategy stack: 1581s [00:53:01.056] List of future strategies: 1581s [00:53:01.056] 1. multisession: 1581s [00:53:01.056] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1581s [00:53:01.056] - tweaked: FALSE 1581s [00:53:01.056] - call: plan(strategy) 1581s [00:53:01.060] plan(): nbrOfWorkers() = 1 1581s [00:53:01.060] SequentialFuture started (and completed) 1581s [00:53:01.060] - Launch lazy future ... done 1581s [00:53:01.061] run() for ‘SequentialFuture’ ... done 1581s [00:53:01.061] Created future: 1581s [00:53:01.061] SequentialFuture: 1581s [00:53:01.061] Label: ‘future_sapply-1’ 1581s [00:53:01.061] Expression: 1581s [00:53:01.061] { 1581s [00:53:01.061] do.call(function(...) { 1581s [00:53:01.061] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1581s [00:53:01.061] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1581s [00:53:01.061] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1581s [00:53:01.061] on.exit(options(oopts), add = TRUE) 1581s [00:53:01.061] } 1581s [00:53:01.061] { 1581s [00:53:01.061] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1581s [00:53:01.061] ...future.X_jj <- ...future.elements_ii[[jj]] 1581s [00:53:01.061] ...future.FUN(...future.X_jj, ...) 1581s [00:53:01.061] }) 1581s [00:53:01.061] } 1581s [00:53:01.061] }, args = future.call.arguments) 1581s [00:53:01.061] } 1581s [00:53:01.061] Lazy evaluation: FALSE 1581s [00:53:01.061] Asynchronous evaluation: FALSE 1581s [00:53:01.061] Local evaluation: TRUE 1581s [00:53:01.061] Environment: R_GlobalEnv 1581s [00:53:01.061] Capture standard output: TRUE 1581s [00:53:01.061] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1581s [00:53:01.061] Globals: 5 objects totaling 1.55 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1581s [00:53:01.061] Packages: 1581s [00:53:01.061] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1581s [00:53:01.061] Resolved: TRUE 1581s [00:53:01.061] Value: 1.31 KiB of class ‘list’ 1581s [00:53:01.061] Early signaling: FALSE 1581s [00:53:01.061] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1581s [00:53:01.061] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1581s [00:53:01.063] Chunk #1 of 1 ... DONE 1581s [00:53:01.063] Launching 1 futures (chunks) ... DONE 1581s [00:53:01.063] Resolving 1 futures (chunks) ... 1581s [00:53:01.064] resolve() on list ... 1581s [00:53:01.064] recursive: 0 1581s [00:53:01.064] length: 1 1581s [00:53:01.064] 1581s [00:53:01.064] resolved() for ‘SequentialFuture’ ... 1581s [00:53:01.064] - state: ‘finished’ 1581s [00:53:01.064] - run: TRUE 1581s [00:53:01.065] - result: ‘FutureResult’ 1581s [00:53:01.065] resolved() for ‘SequentialFuture’ ... done 1581s [00:53:01.065] Future #1 1581s [00:53:01.065] signalConditionsASAP(SequentialFuture, pos=1) ... 1581s [00:53:01.065] - nx: 1 1581s [00:53:01.065] - relay: TRUE 1581s [00:53:01.066] - stdout: TRUE 1581s [00:53:01.066] - signal: TRUE 1581s [00:53:01.066] - resignal: FALSE 1581s [00:53:01.066] - force: TRUE 1581s [00:53:01.066] - relayed: [n=1] FALSE 1581s [00:53:01.066] - queued futures: [n=1] FALSE 1581s [00:53:01.066] - until=1 1581s [00:53:01.066] - relaying element #1 1581s [00:53:01.067] - relayed: [n=1] TRUE 1581s [00:53:01.067] - queued futures: [n=1] TRUE 1581s [00:53:01.067] signalConditionsASAP(SequentialFuture, pos=1) ... done 1581s [00:53:01.067] length: 0 (resolved future 1) 1581s [00:53:01.067] Relaying remaining futures 1581s [00:53:01.067] signalConditionsASAP(NULL, pos=0) ... 1581s [00:53:01.068] - nx: 1 1581s [00:53:01.068] - relay: TRUE 1581s [00:53:01.068] - stdout: TRUE 1581s [00:53:01.068] - signal: TRUE 1581s [00:53:01.068] - resignal: FALSE 1581s [00:53:01.068] - force: TRUE 1581s [00:53:01.069] - relayed: [n=1] TRUE 1581s [00:53:01.069] - queued futures: [n=1] TRUE 1581s - flush all 1581s [00:53:01.069] - relayed: [n=1] TRUE 1581s [00:53:01.069] - queued futures: [n=1] TRUE 1581s [00:53:01.069] signalConditionsASAP(NULL, pos=0) ... done 1581s [00:53:01.069] resolve() on list ... DONE 1581s [00:53:01.069] - Number of value chunks collected: 1 1581s [00:53:01.070] Resolving 1 futures (chunks) ... DONE 1581s [00:53:01.070] Reducing values from 1 chunks ... 1581s [00:53:01.070] - Number of values collected after concatenation: 6 1581s [00:53:01.070] - Number of values expected: 6 1581s [00:53:01.071] Reducing values from 1 chunks ... DONE 1581s [00:53:01.071] future_lapply() ... DONE 1581s [00:53:01.074] future_lapply() ... 1581s List of 2 1581s $ y0: Named int [1:6] 1 2 2 3 3 4 1581s ..- attr(*, "names")= chr [1:6] "a1" "a2" "b1" "b2" ... 1581s $ y1: Named int [1:6] 1 2 2 3 3 4 1581s ..- attr(*, "names")= chr [1:6] "a1" "a2" "b1" "b2" ... 1581s [00:53:01.078] Number of chunks: 1 1581s [00:53:01.078] getGlobalsAndPackagesXApply() ... 1581s [00:53:01.078] - future.globals: TRUE 1581s [00:53:01.078] getGlobalsAndPackages() ... 1581s [00:53:01.078] Searching for globals... 1581s [00:53:01.082] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1581s [00:53:01.082] Searching for globals ... DONE 1581s [00:53:01.082] Resolving globals: FALSE 1581s [00:53:01.083] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1581s [00:53:01.083] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1581s [00:53:01.084] - globals: [1] ‘FUN’ 1581s [00:53:01.084] 1581s [00:53:01.084] getGlobalsAndPackages() ... DONE 1581s [00:53:01.084] - globals found/used: [n=1] ‘FUN’ 1581s [00:53:01.085] - needed namespaces: [n=0] 1581s [00:53:01.085] Finding globals ... DONE 1581s [00:53:01.085] - use_args: TRUE 1581s [00:53:01.085] - Getting '...' globals ... 1581s [00:53:01.086] resolve() on list ... 1581s [00:53:01.086] recursive: 0 1581s [00:53:01.086] length: 1 1581s [00:53:01.087] elements: ‘...’ 1581s [00:53:01.087] length: 0 (resolved future 1) 1581s [00:53:01.087] resolve() on list ... DONE 1581s [00:53:01.088] - '...' content: [n=0] 1581s [00:53:01.088] List of 1 1581s [00:53:01.088] $ ...: list() 1581s [00:53:01.088] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1581s [00:53:01.088] - attr(*, "where")=List of 1 1581s [00:53:01.088] ..$ ...: 1581s [00:53:01.088] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1581s [00:53:01.088] - attr(*, "resolved")= logi TRUE 1581s [00:53:01.088] - attr(*, "total_size")= num NA 1581s [00:53:01.101] - Getting '...' globals ... DONE 1581s [00:53:01.102] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1581s [00:53:01.102] List of 2 1581s [00:53:01.102] $ ...future.FUN:function (x, y = 2 * 1:5) 1581s [00:53:01.102] $ ... : list() 1581s [00:53:01.102] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1581s [00:53:01.102] - attr(*, "where")=List of 2 1581s [00:53:01.102] ..$ ...future.FUN: 1581s [00:53:01.102] ..$ ... : 1581s [00:53:01.102] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1581s [00:53:01.102] - attr(*, "resolved")= logi FALSE 1581s [00:53:01.102] - attr(*, "total_size")= num 4728 1581s [00:53:01.110] Packages to be attached in all futures: [n=0] 1581s [00:53:01.110] getGlobalsAndPackagesXApply() ... DONE 1581s [00:53:01.111] Number of futures (= number of chunks): 1 1581s [00:53:01.111] Launching 1 futures (chunks) ... 1581s [00:53:01.111] Chunk #1 of 1 ... 1581s [00:53:01.112] - Finding globals in 'X' for chunk #1 ... 1581s [00:53:01.112] getGlobalsAndPackages() ... 1581s [00:53:01.112] Searching for globals... 1581s [00:53:01.112] 1581s [00:53:01.113] Searching for globals ... DONE 1581s [00:53:01.113] - globals: [0] 1581s [00:53:01.113] getGlobalsAndPackages() ... DONE 1581s [00:53:01.114] + additional globals found: [n=0] 1581s [00:53:01.114] + additional namespaces needed: [n=0] 1581s [00:53:01.114] - Finding globals in 'X' for chunk #1 ... DONE 1581s [00:53:01.114] - seeds: 1581s [00:53:01.114] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1581s [00:53:01.114] getGlobalsAndPackages() ... 1581s [00:53:01.114] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1581s [00:53:01.115] Resolving globals: FALSE 1581s [00:53:01.115] Tweak future expression to call with '...' arguments ... 1581s [00:53:01.115] { 1581s [00:53:01.115] do.call(function(...) { 1581s [00:53:01.115] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1581s [00:53:01.115] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1581s [00:53:01.115] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1581s [00:53:01.115] on.exit(options(oopts), add = TRUE) 1581s [00:53:01.115] } 1581s [00:53:01.115] { 1581s [00:53:01.115] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1581s [00:53:01.115] ...future.X_jj <- ...future.elements_ii[[jj]] 1581s [00:53:01.115] ...future.FUN(...future.X_jj, ...) 1581s [00:53:01.115] }) 1581s [00:53:01.115] } 1581s [00:53:01.115] }, args = future.call.arguments) 1581s [00:53:01.115] } 1581s [00:53:01.116] Tweak future expression to call with '...' arguments ... DONE 1581s [00:53:01.117] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1581s [00:53:01.117] 1581s [00:53:01.117] getGlobalsAndPackages() ... DONE 1581s [00:53:01.117] run() for ‘Future’ ... 1581s [00:53:01.118] - state: ‘created’ 1581s [00:53:01.118] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1581s [00:53:01.124] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1581s [00:53:01.124] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1581s [00:53:01.125] - Field: ‘label’ 1581s [00:53:01.125] - Field: ‘local’ 1581s [00:53:01.125] - Field: ‘owner’ 1581s [00:53:01.125] - Field: ‘envir’ 1581s [00:53:01.125] - Field: ‘packages’ 1581s [00:53:01.126] - Field: ‘gc’ 1581s [00:53:01.126] - Field: ‘conditions’ 1581s [00:53:01.126] - Field: ‘expr’ 1581s [00:53:01.126] - Field: ‘uuid’ 1581s [00:53:01.127] - Field: ‘seed’ 1581s [00:53:01.127] - Field: ‘version’ 1581s [00:53:01.127] - Field: ‘result’ 1581s [00:53:01.128] - Field: ‘asynchronous’ 1581s [00:53:01.128] - Field: ‘calls’ 1581s [00:53:01.129] - Field: ‘globals’ 1581s [00:53:01.129] - Field: ‘stdout’ 1581s [00:53:01.129] - Field: ‘earlySignal’ 1581s [00:53:01.129] - Field: ‘lazy’ 1581s [00:53:01.130] - Field: ‘state’ 1581s [00:53:01.130] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1581s [00:53:01.130] - Launch lazy future ... 1581s [00:53:01.131] Packages needed by the future expression (n = 0): 1581s [00:53:01.131] Packages needed by future strategies (n = 0): 1581s [00:53:01.132] { 1581s [00:53:01.132] { 1581s [00:53:01.132] { 1581s [00:53:01.132] ...future.startTime <- base::Sys.time() 1581s [00:53:01.132] { 1581s [00:53:01.132] { 1581s [00:53:01.132] { 1581s [00:53:01.132] base::local({ 1581s [00:53:01.132] has_future <- base::requireNamespace("future", 1581s [00:53:01.132] quietly = TRUE) 1581s [00:53:01.132] if (has_future) { 1581s [00:53:01.132] ns <- base::getNamespace("future") 1581s [00:53:01.132] version <- ns[[".package"]][["version"]] 1581s [00:53:01.132] if (is.null(version)) 1581s [00:53:01.132] version <- utils::packageVersion("future") 1581s [00:53:01.132] } 1581s [00:53:01.132] else { 1581s [00:53:01.132] version <- NULL 1581s [00:53:01.132] } 1581s [00:53:01.132] if (!has_future || version < "1.8.0") { 1581s [00:53:01.132] info <- base::c(r_version = base::gsub("R version ", 1581s [00:53:01.132] "", base::R.version$version.string), 1581s [00:53:01.132] platform = base::sprintf("%s (%s-bit)", 1581s [00:53:01.132] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1581s [00:53:01.132] os = base::paste(base::Sys.info()[base::c("sysname", 1581s [00:53:01.132] "release", "version")], collapse = " "), 1581s [00:53:01.132] hostname = base::Sys.info()[["nodename"]]) 1581s [00:53:01.132] info <- base::sprintf("%s: %s", base::names(info), 1581s [00:53:01.132] info) 1581s [00:53:01.132] info <- base::paste(info, collapse = "; ") 1581s [00:53:01.132] if (!has_future) { 1581s [00:53:01.132] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1581s [00:53:01.132] info) 1581s [00:53:01.132] } 1581s [00:53:01.132] else { 1581s [00:53:01.132] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1581s [00:53:01.132] info, version) 1581s [00:53:01.132] } 1581s [00:53:01.132] base::stop(msg) 1581s [00:53:01.132] } 1581s [00:53:01.132] }) 1581s [00:53:01.132] } 1581s [00:53:01.132] options(future.plan = NULL) 1581s [00:53:01.132] Sys.unsetenv("R_FUTURE_PLAN") 1581s [00:53:01.132] future::plan("default", .cleanup = FALSE, .init = FALSE) 1581s [00:53:01.132] } 1581s [00:53:01.132] ...future.workdir <- getwd() 1581s [00:53:01.132] } 1581s [00:53:01.132] ...future.oldOptions <- base::as.list(base::.Options) 1581s [00:53:01.132] ...future.oldEnvVars <- base::Sys.getenv() 1581s [00:53:01.132] } 1581s [00:53:01.132] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1581s [00:53:01.132] future.globals.maxSize = NULL, future.globals.method = NULL, 1581s [00:53:01.132] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1581s [00:53:01.132] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1581s [00:53:01.132] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1581s [00:53:01.132] future.stdout.windows.reencode = NULL, width = 80L) 1581s [00:53:01.132] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1581s [00:53:01.132] base::names(...future.oldOptions)) 1581s [00:53:01.132] } 1581s [00:53:01.132] if (FALSE) { 1581s [00:53:01.132] } 1581s [00:53:01.132] else { 1581s [00:53:01.132] if (TRUE) { 1581s [00:53:01.132] ...future.stdout <- base::rawConnection(base::raw(0L), 1581s [00:53:01.132] open = "w") 1581s [00:53:01.132] } 1581s [00:53:01.132] else { 1581s [00:53:01.132] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1581s [00:53:01.132] windows = "NUL", "/dev/null"), open = "w") 1581s [00:53:01.132] } 1581s [00:53:01.132] base::sink(...future.stdout, type = "output", split = FALSE) 1581s [00:53:01.132] base::on.exit(if (!base::is.null(...future.stdout)) { 1581s [00:53:01.132] base::sink(type = "output", split = FALSE) 1581s [00:53:01.132] base::close(...future.stdout) 1581s [00:53:01.132] }, add = TRUE) 1581s [00:53:01.132] } 1581s [00:53:01.132] ...future.frame <- base::sys.nframe() 1581s [00:53:01.132] ...future.conditions <- base::list() 1581s [00:53:01.132] ...future.rng <- base::globalenv()$.Random.seed 1581s [00:53:01.132] if (FALSE) { 1581s [00:53:01.132] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1581s [00:53:01.132] "...future.value", "...future.globalenv.names", ".Random.seed") 1581s [00:53:01.132] } 1581s [00:53:01.132] ...future.result <- base::tryCatch({ 1581s [00:53:01.132] base::withCallingHandlers({ 1581s [00:53:01.132] ...future.value <- base::withVisible(base::local({ 1581s [00:53:01.132] do.call(function(...) { 1581s [00:53:01.132] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1581s [00:53:01.132] if (!identical(...future.globals.maxSize.org, 1581s [00:53:01.132] ...future.globals.maxSize)) { 1581s [00:53:01.132] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1581s [00:53:01.132] on.exit(options(oopts), add = TRUE) 1581s [00:53:01.132] } 1581s [00:53:01.132] { 1581s [00:53:01.132] lapply(seq_along(...future.elements_ii), 1581s [00:53:01.132] FUN = function(jj) { 1581s [00:53:01.132] ...future.X_jj <- ...future.elements_ii[[jj]] 1581s [00:53:01.132] ...future.FUN(...future.X_jj, ...) 1581s [00:53:01.132] }) 1581s [00:53:01.132] } 1581s [00:53:01.132] }, args = future.call.arguments) 1581s [00:53:01.132] })) 1581s [00:53:01.132] future::FutureResult(value = ...future.value$value, 1581s [00:53:01.132] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1581s [00:53:01.132] ...future.rng), globalenv = if (FALSE) 1581s [00:53:01.132] list(added = base::setdiff(base::names(base::.GlobalEnv), 1581s [00:53:01.132] ...future.globalenv.names)) 1581s [00:53:01.132] else NULL, started = ...future.startTime, version = "1.8") 1581s [00:53:01.132] }, condition = base::local({ 1581s [00:53:01.132] c <- base::c 1581s [00:53:01.132] inherits <- base::inherits 1581s [00:53:01.132] invokeRestart <- base::invokeRestart 1581s [00:53:01.132] length <- base::length 1581s [00:53:01.132] list <- base::list 1581s [00:53:01.132] seq.int <- base::seq.int 1581s [00:53:01.132] signalCondition <- base::signalCondition 1581s [00:53:01.132] sys.calls <- base::sys.calls 1581s [00:53:01.132] `[[` <- base::`[[` 1581s [00:53:01.132] `+` <- base::`+` 1581s [00:53:01.132] `<<-` <- base::`<<-` 1581s [00:53:01.132] sysCalls <- function(calls = sys.calls(), from = 1L) { 1581s [00:53:01.132] calls[seq.int(from = from + 12L, to = length(calls) - 1581s [00:53:01.132] 3L)] 1581s [00:53:01.132] } 1581s [00:53:01.132] function(cond) { 1581s [00:53:01.132] is_error <- inherits(cond, "error") 1581s [00:53:01.132] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1581s [00:53:01.132] NULL) 1581s [00:53:01.132] if (is_error) { 1581s [00:53:01.132] sessionInformation <- function() { 1581s [00:53:01.132] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1581s [00:53:01.132] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1581s [00:53:01.132] search = base::search(), system = base::Sys.info()) 1581s [00:53:01.132] } 1581s [00:53:01.132] ...future.conditions[[length(...future.conditions) + 1581s [00:53:01.132] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1581s [00:53:01.132] cond$call), session = sessionInformation(), 1581s [00:53:01.132] timestamp = base::Sys.time(), signaled = 0L) 1581s [00:53:01.132] signalCondition(cond) 1581s [00:53:01.132] } 1581s [00:53:01.132] else if (!ignore && TRUE && inherits(cond, c("condition", 1581s [00:53:01.132] "immediateCondition"))) { 1581s [00:53:01.132] signal <- TRUE && inherits(cond, "immediateCondition") 1581s [00:53:01.132] ...future.conditions[[length(...future.conditions) + 1581s [00:53:01.132] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1581s [00:53:01.132] if (TRUE && !signal) { 1581s [00:53:01.132] muffleCondition <- function (cond, pattern = "^muffle") 1581s [00:53:01.132] { 1581s [00:53:01.132] inherits <- base::inherits 1581s [00:53:01.132] invokeRestart <- base::invokeRestart 1581s [00:53:01.132] is.null <- base::is.null 1581s [00:53:01.132] muffled <- FALSE 1581s [00:53:01.132] if (inherits(cond, "message")) { 1581s [00:53:01.132] muffled <- grepl(pattern, "muffleMessage") 1581s [00:53:01.132] if (muffled) 1581s [00:53:01.132] invokeRestart("muffleMessage") 1581s [00:53:01.132] } 1581s [00:53:01.132] else if (inherits(cond, "warning")) { 1581s [00:53:01.132] muffled <- grepl(pattern, "muffleWarning") 1581s [00:53:01.132] if (muffled) 1581s [00:53:01.132] invokeRestart("muffleWarning") 1581s [00:53:01.132] } 1581s [00:53:01.132] else if (inherits(cond, "condition")) { 1581s [00:53:01.132] if (!is.null(pattern)) { 1581s [00:53:01.132] computeRestarts <- base::computeRestarts 1581s [00:53:01.132] grepl <- base::grepl 1581s [00:53:01.132] restarts <- computeRestarts(cond) 1581s [00:53:01.132] for (restart in restarts) { 1581s [00:53:01.132] name <- restart$name 1581s [00:53:01.132] if (is.null(name)) 1581s [00:53:01.132] next 1581s [00:53:01.132] if (!grepl(pattern, name)) 1581s [00:53:01.132] next 1581s [00:53:01.132] invokeRestart(restart) 1581s [00:53:01.132] muffled <- TRUE 1581s [00:53:01.132] break 1581s [00:53:01.132] } 1581s [00:53:01.132] } 1581s [00:53:01.132] } 1581s [00:53:01.132] invisible(muffled) 1581s [00:53:01.132] } 1581s [00:53:01.132] muffleCondition(cond, pattern = "^muffle") 1581s [00:53:01.132] } 1581s [00:53:01.132] } 1581s [00:53:01.132] else { 1581s [00:53:01.132] if (TRUE) { 1581s [00:53:01.132] muffleCondition <- function (cond, pattern = "^muffle") 1581s [00:53:01.132] { 1581s [00:53:01.132] inherits <- base::inherits 1581s [00:53:01.132] invokeRestart <- base::invokeRestart 1581s [00:53:01.132] is.null <- base::is.null 1581s [00:53:01.132] muffled <- FALSE 1581s [00:53:01.132] if (inherits(cond, "message")) { 1581s [00:53:01.132] muffled <- grepl(pattern, "muffleMessage") 1581s [00:53:01.132] if (muffled) 1581s [00:53:01.132] invokeRestart("muffleMessage") 1581s [00:53:01.132] } 1581s [00:53:01.132] else if (inherits(cond, "warning")) { 1581s [00:53:01.132] muffled <- grepl(pattern, "muffleWarning") 1581s [00:53:01.132] if (muffled) 1581s [00:53:01.132] invokeRestart("muffleWarning") 1581s [00:53:01.132] } 1581s [00:53:01.132] else if (inherits(cond, "condition")) { 1581s [00:53:01.132] if (!is.null(pattern)) { 1581s [00:53:01.132] computeRestarts <- base::computeRestarts 1581s [00:53:01.132] grepl <- base::grepl 1581s [00:53:01.132] restarts <- computeRestarts(cond) 1581s [00:53:01.132] for (restart in restarts) { 1581s [00:53:01.132] name <- restart$name 1581s [00:53:01.132] if (is.null(name)) 1581s [00:53:01.132] next 1581s [00:53:01.132] if (!grepl(pattern, name)) 1581s [00:53:01.132] next 1581s [00:53:01.132] invokeRestart(restart) 1581s [00:53:01.132] muffled <- TRUE 1581s [00:53:01.132] break 1581s [00:53:01.132] } 1581s [00:53:01.132] } 1581s [00:53:01.132] } 1581s [00:53:01.132] invisible(muffled) 1581s [00:53:01.132] } 1581s [00:53:01.132] muffleCondition(cond, pattern = "^muffle") 1581s [00:53:01.132] } 1581s [00:53:01.132] } 1581s [00:53:01.132] } 1581s [00:53:01.132] })) 1581s [00:53:01.132] }, error = function(ex) { 1581s [00:53:01.132] base::structure(base::list(value = NULL, visible = NULL, 1581s [00:53:01.132] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1581s [00:53:01.132] ...future.rng), started = ...future.startTime, 1581s [00:53:01.132] finished = Sys.time(), session_uuid = NA_character_, 1581s [00:53:01.132] version = "1.8"), class = "FutureResult") 1581s [00:53:01.132] }, finally = { 1581s [00:53:01.132] if (!identical(...future.workdir, getwd())) 1581s [00:53:01.132] setwd(...future.workdir) 1581s [00:53:01.132] { 1581s [00:53:01.132] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1581s [00:53:01.132] ...future.oldOptions$nwarnings <- NULL 1581s [00:53:01.132] } 1581s [00:53:01.132] base::options(...future.oldOptions) 1581s [00:53:01.132] if (.Platform$OS.type == "windows") { 1581s [00:53:01.132] old_names <- names(...future.oldEnvVars) 1581s [00:53:01.132] envs <- base::Sys.getenv() 1581s [00:53:01.132] names <- names(envs) 1581s [00:53:01.132] common <- intersect(names, old_names) 1581s [00:53:01.132] added <- setdiff(names, old_names) 1581s [00:53:01.132] removed <- setdiff(old_names, names) 1581s [00:53:01.132] changed <- common[...future.oldEnvVars[common] != 1581s [00:53:01.132] envs[common]] 1581s [00:53:01.132] NAMES <- toupper(changed) 1581s [00:53:01.132] args <- list() 1581s [00:53:01.132] for (kk in seq_along(NAMES)) { 1581s [00:53:01.132] name <- changed[[kk]] 1581s [00:53:01.132] NAME <- NAMES[[kk]] 1581s [00:53:01.132] if (name != NAME && is.element(NAME, old_names)) 1581s [00:53:01.132] next 1581s [00:53:01.132] args[[name]] <- ...future.oldEnvVars[[name]] 1581s [00:53:01.132] } 1581s [00:53:01.132] NAMES <- toupper(added) 1581s [00:53:01.132] for (kk in seq_along(NAMES)) { 1581s [00:53:01.132] name <- added[[kk]] 1581s [00:53:01.132] NAME <- NAMES[[kk]] 1581s [00:53:01.132] if (name != NAME && is.element(NAME, old_names)) 1581s [00:53:01.132] next 1581s [00:53:01.132] args[[name]] <- "" 1581s [00:53:01.132] } 1581s [00:53:01.132] NAMES <- toupper(removed) 1581s [00:53:01.132] for (kk in seq_along(NAMES)) { 1581s [00:53:01.132] name <- removed[[kk]] 1581s [00:53:01.132] NAME <- NAMES[[kk]] 1581s [00:53:01.132] if (name != NAME && is.element(NAME, old_names)) 1581s [00:53:01.132] next 1581s [00:53:01.132] args[[name]] <- ...future.oldEnvVars[[name]] 1581s [00:53:01.132] } 1581s [00:53:01.132] if (length(args) > 0) 1581s [00:53:01.132] base::do.call(base::Sys.setenv, args = args) 1581s [00:53:01.132] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1581s [00:53:01.132] } 1581s [00:53:01.132] else { 1581s [00:53:01.132] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1581s [00:53:01.132] } 1581s [00:53:01.132] { 1581s [00:53:01.132] if (base::length(...future.futureOptionsAdded) > 1581s [00:53:01.132] 0L) { 1581s [00:53:01.132] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1581s [00:53:01.132] base::names(opts) <- ...future.futureOptionsAdded 1581s [00:53:01.132] base::options(opts) 1581s [00:53:01.132] } 1581s [00:53:01.132] { 1581s [00:53:01.132] { 1581s [00:53:01.132] NULL 1581s [00:53:01.132] RNGkind("Mersenne-Twister") 1581s [00:53:01.132] base::rm(list = ".Random.seed", envir = base::globalenv(), 1581s [00:53:01.132] inherits = FALSE) 1581s [00:53:01.132] } 1581s [00:53:01.132] options(future.plan = NULL) 1581s [00:53:01.132] if (is.na(NA_character_)) 1581s [00:53:01.132] Sys.unsetenv("R_FUTURE_PLAN") 1581s [00:53:01.132] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1581s [00:53:01.132] future::plan(list(function (..., workers = availableCores(), 1581s [00:53:01.132] lazy = FALSE, rscript_libs = .libPaths(), 1581s [00:53:01.132] envir = parent.frame()) 1581s [00:53:01.132] { 1581s [00:53:01.132] if (is.function(workers)) 1581s [00:53:01.132] workers <- workers() 1581s [00:53:01.132] workers <- structure(as.integer(workers), 1581s [00:53:01.132] class = class(workers)) 1581s [00:53:01.132] stop_if_not(length(workers) == 1, is.finite(workers), 1581s [00:53:01.132] workers >= 1) 1581s [00:53:01.132] if (workers == 1L && !inherits(workers, "AsIs")) { 1581s [00:53:01.132] return(sequential(..., lazy = TRUE, envir = envir)) 1581s [00:53:01.132] } 1581s [00:53:01.132] future <- MultisessionFuture(..., workers = workers, 1581s [00:53:01.132] lazy = lazy, rscript_libs = rscript_libs, 1581s [00:53:01.132] envir = envir) 1581s [00:53:01.132] if (!future$lazy) 1581s [00:53:01.132] future <- run(future) 1581s [00:53:01.132] invisible(future) 1581s [00:53:01.132] }), .cleanup = FALSE, .init = FALSE) 1581s [00:53:01.132] } 1581s [00:53:01.132] } 1581s [00:53:01.132] } 1581s [00:53:01.132] }) 1581s [00:53:01.132] if (TRUE) { 1581s [00:53:01.132] base::sink(type = "output", split = FALSE) 1581s [00:53:01.132] if (TRUE) { 1581s [00:53:01.132] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1581s [00:53:01.132] } 1581s [00:53:01.132] else { 1581s [00:53:01.132] ...future.result["stdout"] <- base::list(NULL) 1581s [00:53:01.132] } 1581s [00:53:01.132] base::close(...future.stdout) 1581s [00:53:01.132] ...future.stdout <- NULL 1581s [00:53:01.132] } 1581s [00:53:01.132] ...future.result$conditions <- ...future.conditions 1581s [00:53:01.132] ...future.result$finished <- base::Sys.time() 1581s [00:53:01.132] ...future.result 1581s [00:53:01.132] } 1581s [00:53:01.139] assign_globals() ... 1581s [00:53:01.139] List of 5 1581s [00:53:01.139] $ ...future.FUN :function (x, y = 2 * 1:5) 1581s [00:53:01.139] $ future.call.arguments : list() 1581s [00:53:01.139] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1581s [00:53:01.139] $ ...future.elements_ii :List of 6 1581s [00:53:01.139] ..$ a1: int 1 1581s [00:53:01.139] ..$ a2: int 2 1581s [00:53:01.139] ..$ b1: int 2 1581s [00:53:01.139] ..$ b2: int 3 1581s [00:53:01.139] ..$ c1: int 3 1581s [00:53:01.139] ..$ c2: int 4 1581s [00:53:01.139] $ ...future.seeds_ii : NULL 1581s [00:53:01.139] $ ...future.globals.maxSize: NULL 1581s [00:53:01.139] - attr(*, "where")=List of 5 1581s [00:53:01.139] ..$ ...future.FUN : 1581s [00:53:01.139] ..$ future.call.arguments : 1581s [00:53:01.139] ..$ ...future.elements_ii : 1581s [00:53:01.139] ..$ ...future.seeds_ii : 1581s [00:53:01.139] ..$ ...future.globals.maxSize: 1581s [00:53:01.139] - attr(*, "resolved")= logi FALSE 1581s [00:53:01.139] - attr(*, "total_size")= num 4728 1581s [00:53:01.139] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1581s [00:53:01.139] - attr(*, "already-done")= logi TRUE 1581s [00:53:01.149] - reassign environment for ‘...future.FUN’ 1581s [00:53:01.150] - copied ‘...future.FUN’ to environment 1581s [00:53:01.150] - copied ‘future.call.arguments’ to environment 1581s [00:53:01.151] - copied ‘...future.elements_ii’ to environment 1581s [00:53:01.151] - copied ‘...future.seeds_ii’ to environment 1581s [00:53:01.151] - copied ‘...future.globals.maxSize’ to environment 1581s [00:53:01.152] assign_globals() ... done 1581s [00:53:01.152] plan(): Setting new future strategy stack: 1581s [00:53:01.152] List of future strategies: 1581s [00:53:01.152] 1. sequential: 1581s [00:53:01.152] - args: function (..., envir = parent.frame()) 1581s [00:53:01.152] - tweaked: FALSE 1581s [00:53:01.152] - call: NULL 1581s [00:53:01.153] plan(): nbrOfWorkers() = 1 1581s [00:53:01.155] plan(): Setting new future strategy stack: 1581s [00:53:01.155] List of future strategies: 1581s [00:53:01.155] 1. multisession: 1581s [00:53:01.155] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1581s [00:53:01.155] - tweaked: FALSE 1581s [00:53:01.155] - call: plan(strategy) 1581s [00:53:01.159] plan(): nbrOfWorkers() = 1 1581s [00:53:01.159] SequentialFuture started (and completed) 1581s [00:53:01.159] - Launch lazy future ... done 1581s [00:53:01.160] run() for ‘SequentialFuture’ ... done 1581s [00:53:01.160] Created future: 1581s [00:53:01.160] SequentialFuture: 1581s [00:53:01.160] Label: ‘future_sapply-1’ 1581s [00:53:01.160] Expression: 1581s [00:53:01.160] { 1581s [00:53:01.160] do.call(function(...) { 1581s [00:53:01.160] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1581s [00:53:01.160] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1581s [00:53:01.160] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1581s [00:53:01.160] on.exit(options(oopts), add = TRUE) 1581s [00:53:01.160] } 1581s [00:53:01.160] { 1581s [00:53:01.160] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1581s [00:53:01.160] ...future.X_jj <- ...future.elements_ii[[jj]] 1581s [00:53:01.160] ...future.FUN(...future.X_jj, ...) 1581s [00:53:01.160] }) 1581s [00:53:01.160] } 1581s [00:53:01.160] }, args = future.call.arguments) 1581s [00:53:01.160] } 1581s [00:53:01.160] Lazy evaluation: FALSE 1581s [00:53:01.160] Asynchronous evaluation: FALSE 1581s [00:53:01.160] Local evaluation: TRUE 1581s [00:53:01.160] Environment: R_GlobalEnv 1581s [00:53:01.160] Capture standard output: TRUE 1581s [00:53:01.160] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1581s [00:53:01.160] Globals: 5 objects totaling 4.95 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1581s [00:53:01.160] Packages: 1581s [00:53:01.160] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1581s [00:53:01.160] Resolved: TRUE 1581s [00:53:01.160] Value: 2.02 KiB of class ‘list’ 1581s [00:53:01.160] Early signaling: FALSE 1581s [00:53:01.160] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1581s [00:53:01.160] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1581s [00:53:01.162] Chunk #1 of 1 ... DONE 1581s [00:53:01.162] Launching 1 futures (chunks) ... DONE 1581s [00:53:01.163] Resolving 1 futures (chunks) ... 1581s [00:53:01.163] resolve() on list ... 1581s [00:53:01.163] recursive: 0 1581s [00:53:01.163] length: 1 1581s [00:53:01.163] 1581s [00:53:01.164] resolved() for ‘SequentialFuture’ ... 1581s [00:53:01.164] - state: ‘finished’ 1581s [00:53:01.164] - run: TRUE 1581s [00:53:01.164] - result: ‘FutureResult’ 1581s [00:53:01.172] resolved() for ‘SequentialFuture’ ... done 1581s [00:53:01.172] Future #1 1581s [00:53:01.173] signalConditionsASAP(SequentialFuture, pos=1) ... 1581s [00:53:01.173] - nx: 1 1581s [00:53:01.173] - relay: TRUE 1581s [00:53:01.173] - stdout: TRUE 1581s [00:53:01.174] - signal: TRUE 1581s [00:53:01.174] - resignal: FALSE 1581s [00:53:01.174] - force: TRUE 1581s [00:53:01.174] - relayed: [n=1] FALSE 1581s [00:53:01.175] - queued futures: [n=1] FALSE 1581s [00:53:01.175] - until=1 1581s [00:53:01.175] - relaying element #1 1581s [00:53:01.175] - relayed: [n=1] TRUE 1581s [00:53:01.176] - queued futures: [n=1] TRUE 1581s [00:53:01.176] signalConditionsASAP(SequentialFuture, pos=1) ... done 1581s List of 2 1581s [00:53:01.176] length: 0 (resolved future 1) 1581s [00:53:01.176] Relaying remaining futures 1581s [00:53:01.176] signalConditionsASAP(NULL, pos=0) ... 1581s [00:53:01.177] - nx: 1 1581s [00:53:01.177] - relay: TRUE 1581s [00:53:01.177] - stdout: TRUE 1581s [00:53:01.177] - signal: TRUE 1581s [00:53:01.177] - resignal: FALSE 1581s [00:53:01.177] - force: TRUE 1581s [00:53:01.177] - relayed: [n=1] TRUE 1581s [00:53:01.177] - queued futures: [n=1] TRUE 1581s - flush all 1581s [00:53:01.178] - relayed: [n=1] TRUE 1581s [00:53:01.178] - queued futures: [n=1] TRUE 1581s [00:53:01.178] signalConditionsASAP(NULL, pos=0) ... done 1581s [00:53:01.178] resolve() on list ... DONE 1581s [00:53:01.178] - Number of value chunks collected: 1 1581s [00:53:01.178] Resolving 1 futures (chunks) ... DONE 1581s [00:53:01.178] Reducing values from 1 chunks ... 1581s [00:53:01.179] - Number of values collected after concatenation: 6 1581s [00:53:01.179] - Number of values expected: 6 1581s [00:53:01.179] Reducing values from 1 chunks ... DONE 1581s [00:53:01.179] future_lapply() ... DONE 1581s $ y0: num [1:15, 1:6] 2 2 2 4 4 4 6 6 6 8 ... 1581s ..- attr(*, "dimnames")=List of 2 1581s .. ..$ : NULL 1581s .. ..$ : chr [1:6] "a1" "a2" "b1" "b2" ... 1581s $ y1: num [1:15, 1:6] 2 2 2 4 4 4 6 6 6 8 ... 1581s ..- attr(*, "dimnames")=List of 2[00:53:01.184] future_lapply() ... 1581s 1581s .. ..$ : NULL 1581s .. ..$ : chr [1:6] "a1" "a2" "b1" "b2" ... 1581s [00:53:01.190] Number of chunks: 1 1581s [00:53:01.190] getGlobalsAndPackagesXApply() ... 1581s [00:53:01.190] - future.globals: TRUE 1581s [00:53:01.190] getGlobalsAndPackages() ... 1581s [00:53:01.191] Searching for globals... 1581s [00:53:01.193] - globals found: [1] ‘FUN’ 1581s [00:53:01.194] Searching for globals ... DONE 1581s [00:53:01.194] Resolving globals: FALSE 1581s [00:53:01.195] The total size of the 1 globals is 848 bytes (848 bytes) 1581s [00:53:01.196] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1581s [00:53:01.196] - globals: [1] ‘FUN’ 1581s [00:53:01.197] 1581s [00:53:01.197] getGlobalsAndPackages() ... DONE 1581s [00:53:01.198] - globals found/used: [n=1] ‘FUN’ 1581s [00:53:01.198] - needed namespaces: [n=0] 1581s [00:53:01.199] Finding globals ... DONE 1581s [00:53:01.199] - use_args: TRUE 1581s [00:53:01.199] - Getting '...' globals ... 1581s [00:53:01.200] resolve() on list ... 1581s [00:53:01.200] recursive: 0 1581s [00:53:01.201] length: 1 1581s [00:53:01.201] elements: ‘...’ 1581s [00:53:01.201] length: 0 (resolved future 1) 1581s [00:53:01.201] resolve() on list ... DONE 1581s [00:53:01.201] - '...' content: [n=0] 1581s [00:53:01.202] List of 1 1581s [00:53:01.202] $ ...: list() 1581s [00:53:01.202] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1581s [00:53:01.202] - attr(*, "where")=List of 1 1581s [00:53:01.202] ..$ ...: 1581s [00:53:01.202] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1581s [00:53:01.202] - attr(*, "resolved")= logi TRUE 1581s [00:53:01.202] - attr(*, "total_size")= num NA 1581s [00:53:01.207] - Getting '...' globals ... DONE 1581s [00:53:01.207] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1581s [00:53:01.207] List of 2 1581s [00:53:01.207] $ ...future.FUN:function (x) 1581s [00:53:01.207] $ ... : list() 1581s [00:53:01.207] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1581s [00:53:01.207] - attr(*, "where")=List of 2 1581s [00:53:01.207] ..$ ...future.FUN: 1581s [00:53:01.207] ..$ ... : 1581s [00:53:01.207] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1581s [00:53:01.207] - attr(*, "resolved")= logi FALSE 1581s [00:53:01.207] - attr(*, "total_size")= num 848 1581s [00:53:01.212] Packages to be attached in all futures: [n=0] 1581s [00:53:01.213] getGlobalsAndPackagesXApply() ... DONE 1581s [00:53:01.213] Number of futures (= number of chunks): 1 1581s [00:53:01.213] Launching 1 futures (chunks) ... 1581s [00:53:01.213] Chunk #1 of 1 ... 1581s [00:53:01.214] - Finding globals in 'X' for chunk #1 ... 1581s [00:53:01.214] getGlobalsAndPackages() ... 1581s [00:53:01.214] Searching for globals... 1581s [00:53:01.215] 1581s [00:53:01.215] Searching for globals ... DONE 1581s [00:53:01.215] - globals: [0] 1581s [00:53:01.215] getGlobalsAndPackages() ... DONE 1581s [00:53:01.215] + additional globals found: [n=0] 1581s [00:53:01.216] + additional namespaces needed: [n=0] 1581s [00:53:01.216] - Finding globals in 'X' for chunk #1 ... DONE 1581s [00:53:01.216] - seeds: 1581s [00:53:01.216] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1581s [00:53:01.216] getGlobalsAndPackages() ... 1581s [00:53:01.216] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1581s [00:53:01.216] Resolving globals: FALSE 1581s [00:53:01.216] Tweak future expression to call with '...' arguments ... 1581s [00:53:01.217] { 1581s [00:53:01.217] do.call(function(...) { 1581s [00:53:01.217] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1581s [00:53:01.217] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1581s [00:53:01.217] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1581s [00:53:01.217] on.exit(options(oopts), add = TRUE) 1581s [00:53:01.217] } 1581s [00:53:01.217] { 1581s [00:53:01.217] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1581s [00:53:01.217] ...future.X_jj <- ...future.elements_ii[[jj]] 1581s [00:53:01.217] ...future.FUN(...future.X_jj, ...) 1581s [00:53:01.217] }) 1581s [00:53:01.217] } 1581s [00:53:01.217] }, args = future.call.arguments) 1581s [00:53:01.217] } 1581s [00:53:01.217] Tweak future expression to call with '...' arguments ... DONE 1581s [00:53:01.218] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1581s [00:53:01.218] 1581s [00:53:01.218] getGlobalsAndPackages() ... DONE 1581s [00:53:01.219] run() for ‘Future’ ... 1581s [00:53:01.219] - state: ‘created’ 1581s [00:53:01.219] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1581s [00:53:01.224] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1581s [00:53:01.224] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1581s [00:53:01.224] - Field: ‘label’ 1581s [00:53:01.224] - Field: ‘local’ 1581s [00:53:01.225] - Field: ‘owner’ 1581s [00:53:01.225] - Field: ‘envir’ 1581s [00:53:01.226] - Field: ‘packages’ 1581s [00:53:01.226] - Field: ‘gc’ 1581s [00:53:01.226] - Field: ‘conditions’ 1581s [00:53:01.226] - Field: ‘expr’ 1581s [00:53:01.226] - Field: ‘uuid’ 1581s [00:53:01.226] - Field: ‘seed’ 1581s [00:53:01.227] - Field: ‘version’ 1581s [00:53:01.227] - Field: ‘result’ 1581s [00:53:01.227] - Field: ‘asynchronous’ 1581s [00:53:01.227] - Field: ‘calls’ 1581s [00:53:01.227] - Field: ‘globals’ 1581s [00:53:01.227] - Field: ‘stdout’ 1581s [00:53:01.227] - Field: ‘earlySignal’ 1581s [00:53:01.228] - Field: ‘lazy’ 1581s [00:53:01.228] - Field: ‘state’ 1581s [00:53:01.228] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1581s [00:53:01.228] - Launch lazy future ... 1581s [00:53:01.228] Packages needed by the future expression (n = 0): 1581s [00:53:01.229] Packages needed by future strategies (n = 0): 1581s [00:53:01.229] { 1581s [00:53:01.229] { 1581s [00:53:01.229] { 1581s [00:53:01.229] ...future.startTime <- base::Sys.time() 1581s [00:53:01.229] { 1581s [00:53:01.229] { 1581s [00:53:01.229] { 1581s [00:53:01.229] base::local({ 1581s [00:53:01.229] has_future <- base::requireNamespace("future", 1581s [00:53:01.229] quietly = TRUE) 1581s [00:53:01.229] if (has_future) { 1581s [00:53:01.229] ns <- base::getNamespace("future") 1581s [00:53:01.229] version <- ns[[".package"]][["version"]] 1581s [00:53:01.229] if (is.null(version)) 1581s [00:53:01.229] version <- utils::packageVersion("future") 1581s [00:53:01.229] } 1581s [00:53:01.229] else { 1581s [00:53:01.229] version <- NULL 1581s [00:53:01.229] } 1581s [00:53:01.229] if (!has_future || version < "1.8.0") { 1581s [00:53:01.229] info <- base::c(r_version = base::gsub("R version ", 1581s [00:53:01.229] "", base::R.version$version.string), 1581s [00:53:01.229] platform = base::sprintf("%s (%s-bit)", 1581s [00:53:01.229] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1581s [00:53:01.229] os = base::paste(base::Sys.info()[base::c("sysname", 1581s [00:53:01.229] "release", "version")], collapse = " "), 1581s [00:53:01.229] hostname = base::Sys.info()[["nodename"]]) 1581s [00:53:01.229] info <- base::sprintf("%s: %s", base::names(info), 1581s [00:53:01.229] info) 1581s [00:53:01.229] info <- base::paste(info, collapse = "; ") 1581s [00:53:01.229] if (!has_future) { 1581s [00:53:01.229] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1581s [00:53:01.229] info) 1581s [00:53:01.229] } 1581s [00:53:01.229] else { 1581s [00:53:01.229] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1581s [00:53:01.229] info, version) 1581s [00:53:01.229] } 1581s [00:53:01.229] base::stop(msg) 1581s [00:53:01.229] } 1581s [00:53:01.229] }) 1581s [00:53:01.229] } 1581s [00:53:01.229] options(future.plan = NULL) 1581s [00:53:01.229] Sys.unsetenv("R_FUTURE_PLAN") 1581s [00:53:01.229] future::plan("default", .cleanup = FALSE, .init = FALSE) 1581s [00:53:01.229] } 1581s [00:53:01.229] ...future.workdir <- getwd() 1581s [00:53:01.229] } 1581s [00:53:01.229] ...future.oldOptions <- base::as.list(base::.Options) 1581s [00:53:01.229] ...future.oldEnvVars <- base::Sys.getenv() 1581s [00:53:01.229] } 1581s [00:53:01.229] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1581s [00:53:01.229] future.globals.maxSize = NULL, future.globals.method = NULL, 1581s [00:53:01.229] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1581s [00:53:01.229] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1581s [00:53:01.229] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1581s [00:53:01.229] future.stdout.windows.reencode = NULL, width = 80L) 1581s [00:53:01.229] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1581s [00:53:01.229] base::names(...future.oldOptions)) 1581s [00:53:01.229] } 1581s [00:53:01.229] if (FALSE) { 1581s [00:53:01.229] } 1581s [00:53:01.229] else { 1581s [00:53:01.229] if (TRUE) { 1581s [00:53:01.229] ...future.stdout <- base::rawConnection(base::raw(0L), 1581s [00:53:01.229] open = "w") 1581s [00:53:01.229] } 1581s [00:53:01.229] else { 1581s [00:53:01.229] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1581s [00:53:01.229] windows = "NUL", "/dev/null"), open = "w") 1581s [00:53:01.229] } 1581s [00:53:01.229] base::sink(...future.stdout, type = "output", split = FALSE) 1581s [00:53:01.229] base::on.exit(if (!base::is.null(...future.stdout)) { 1581s [00:53:01.229] base::sink(type = "output", split = FALSE) 1581s [00:53:01.229] base::close(...future.stdout) 1581s [00:53:01.229] }, add = TRUE) 1581s [00:53:01.229] } 1581s [00:53:01.229] ...future.frame <- base::sys.nframe() 1581s [00:53:01.229] ...future.conditions <- base::list() 1581s [00:53:01.229] ...future.rng <- base::globalenv()$.Random.seed 1581s [00:53:01.229] if (FALSE) { 1581s [00:53:01.229] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1581s [00:53:01.229] "...future.value", "...future.globalenv.names", ".Random.seed") 1581s [00:53:01.229] } 1581s [00:53:01.229] ...future.result <- base::tryCatch({ 1581s [00:53:01.229] base::withCallingHandlers({ 1581s [00:53:01.229] ...future.value <- base::withVisible(base::local({ 1581s [00:53:01.229] do.call(function(...) { 1581s [00:53:01.229] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1581s [00:53:01.229] if (!identical(...future.globals.maxSize.org, 1581s [00:53:01.229] ...future.globals.maxSize)) { 1581s [00:53:01.229] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1581s [00:53:01.229] on.exit(options(oopts), add = TRUE) 1581s [00:53:01.229] } 1581s [00:53:01.229] { 1581s [00:53:01.229] lapply(seq_along(...future.elements_ii), 1581s [00:53:01.229] FUN = function(jj) { 1581s [00:53:01.229] ...future.X_jj <- ...future.elements_ii[[jj]] 1581s [00:53:01.229] ...future.FUN(...future.X_jj, ...) 1581s [00:53:01.229] }) 1581s [00:53:01.229] } 1581s [00:53:01.229] }, args = future.call.arguments) 1581s [00:53:01.229] })) 1581s [00:53:01.229] future::FutureResult(value = ...future.value$value, 1581s [00:53:01.229] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1581s [00:53:01.229] ...future.rng), globalenv = if (FALSE) 1581s [00:53:01.229] list(added = base::setdiff(base::names(base::.GlobalEnv), 1581s [00:53:01.229] ...future.globalenv.names)) 1581s [00:53:01.229] else NULL, started = ...future.startTime, version = "1.8") 1581s [00:53:01.229] }, condition = base::local({ 1581s [00:53:01.229] c <- base::c 1581s [00:53:01.229] inherits <- base::inherits 1581s [00:53:01.229] invokeRestart <- base::invokeRestart 1581s [00:53:01.229] length <- base::length 1581s [00:53:01.229] list <- base::list 1581s [00:53:01.229] seq.int <- base::seq.int 1581s [00:53:01.229] signalCondition <- base::signalCondition 1581s [00:53:01.229] sys.calls <- base::sys.calls 1581s [00:53:01.229] `[[` <- base::`[[` 1581s [00:53:01.229] `+` <- base::`+` 1581s [00:53:01.229] `<<-` <- base::`<<-` 1581s [00:53:01.229] sysCalls <- function(calls = sys.calls(), from = 1L) { 1581s [00:53:01.229] calls[seq.int(from = from + 12L, to = length(calls) - 1581s [00:53:01.229] 3L)] 1581s [00:53:01.229] } 1581s [00:53:01.229] function(cond) { 1581s [00:53:01.229] is_error <- inherits(cond, "error") 1581s [00:53:01.229] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1581s [00:53:01.229] NULL) 1581s [00:53:01.229] if (is_error) { 1581s [00:53:01.229] sessionInformation <- function() { 1581s [00:53:01.229] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1581s [00:53:01.229] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1581s [00:53:01.229] search = base::search(), system = base::Sys.info()) 1581s [00:53:01.229] } 1581s [00:53:01.229] ...future.conditions[[length(...future.conditions) + 1581s [00:53:01.229] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1581s [00:53:01.229] cond$call), session = sessionInformation(), 1581s [00:53:01.229] timestamp = base::Sys.time(), signaled = 0L) 1581s [00:53:01.229] signalCondition(cond) 1581s [00:53:01.229] } 1581s [00:53:01.229] else if (!ignore && TRUE && inherits(cond, c("condition", 1581s [00:53:01.229] "immediateCondition"))) { 1581s [00:53:01.229] signal <- TRUE && inherits(cond, "immediateCondition") 1581s [00:53:01.229] ...future.conditions[[length(...future.conditions) + 1581s [00:53:01.229] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1581s [00:53:01.229] if (TRUE && !signal) { 1581s [00:53:01.229] muffleCondition <- function (cond, pattern = "^muffle") 1581s [00:53:01.229] { 1581s [00:53:01.229] inherits <- base::inherits 1581s [00:53:01.229] invokeRestart <- base::invokeRestart 1581s [00:53:01.229] is.null <- base::is.null 1581s [00:53:01.229] muffled <- FALSE 1581s [00:53:01.229] if (inherits(cond, "message")) { 1581s [00:53:01.229] muffled <- grepl(pattern, "muffleMessage") 1581s [00:53:01.229] if (muffled) 1581s [00:53:01.229] invokeRestart("muffleMessage") 1581s [00:53:01.229] } 1581s [00:53:01.229] else if (inherits(cond, "warning")) { 1581s [00:53:01.229] muffled <- grepl(pattern, "muffleWarning") 1581s [00:53:01.229] if (muffled) 1581s [00:53:01.229] invokeRestart("muffleWarning") 1581s [00:53:01.229] } 1581s [00:53:01.229] else if (inherits(cond, "condition")) { 1581s [00:53:01.229] if (!is.null(pattern)) { 1581s [00:53:01.229] computeRestarts <- base::computeRestarts 1581s [00:53:01.229] grepl <- base::grepl 1581s [00:53:01.229] restarts <- computeRestarts(cond) 1581s [00:53:01.229] for (restart in restarts) { 1581s [00:53:01.229] name <- restart$name 1581s [00:53:01.229] if (is.null(name)) 1581s [00:53:01.229] next 1581s [00:53:01.229] if (!grepl(pattern, name)) 1581s [00:53:01.229] next 1581s [00:53:01.229] invokeRestart(restart) 1581s [00:53:01.229] muffled <- TRUE 1581s [00:53:01.229] break 1581s [00:53:01.229] } 1581s [00:53:01.229] } 1581s [00:53:01.229] } 1581s [00:53:01.229] invisible(muffled) 1581s [00:53:01.229] } 1581s [00:53:01.229] muffleCondition(cond, pattern = "^muffle") 1581s [00:53:01.229] } 1581s [00:53:01.229] } 1581s [00:53:01.229] else { 1581s [00:53:01.229] if (TRUE) { 1581s [00:53:01.229] muffleCondition <- function (cond, pattern = "^muffle") 1581s [00:53:01.229] { 1581s [00:53:01.229] inherits <- base::inherits 1581s [00:53:01.229] invokeRestart <- base::invokeRestart 1581s [00:53:01.229] is.null <- base::is.null 1581s [00:53:01.229] muffled <- FALSE 1581s [00:53:01.229] if (inherits(cond, "message")) { 1581s [00:53:01.229] muffled <- grepl(pattern, "muffleMessage") 1581s [00:53:01.229] if (muffled) 1581s [00:53:01.229] invokeRestart("muffleMessage") 1581s [00:53:01.229] } 1581s [00:53:01.229] else if (inherits(cond, "warning")) { 1581s [00:53:01.229] muffled <- grepl(pattern, "muffleWarning") 1581s [00:53:01.229] if (muffled) 1581s [00:53:01.229] invokeRestart("muffleWarning") 1581s [00:53:01.229] } 1581s [00:53:01.229] else if (inherits(cond, "condition")) { 1581s [00:53:01.229] if (!is.null(pattern)) { 1581s [00:53:01.229] computeRestarts <- base::computeRestarts 1581s [00:53:01.229] grepl <- base::grepl 1581s [00:53:01.229] restarts <- computeRestarts(cond) 1581s [00:53:01.229] for (restart in restarts) { 1581s [00:53:01.229] name <- restart$name 1581s [00:53:01.229] if (is.null(name)) 1581s [00:53:01.229] next 1581s [00:53:01.229] if (!grepl(pattern, name)) 1581s [00:53:01.229] next 1581s [00:53:01.229] invokeRestart(restart) 1581s [00:53:01.229] muffled <- TRUE 1581s [00:53:01.229] break 1581s [00:53:01.229] } 1581s [00:53:01.229] } 1581s [00:53:01.229] } 1581s [00:53:01.229] invisible(muffled) 1581s [00:53:01.229] } 1581s [00:53:01.229] muffleCondition(cond, pattern = "^muffle") 1581s [00:53:01.229] } 1581s [00:53:01.229] } 1581s [00:53:01.229] } 1581s [00:53:01.229] })) 1581s [00:53:01.229] }, error = function(ex) { 1581s [00:53:01.229] base::structure(base::list(value = NULL, visible = NULL, 1581s [00:53:01.229] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1581s [00:53:01.229] ...future.rng), started = ...future.startTime, 1581s [00:53:01.229] finished = Sys.time(), session_uuid = NA_character_, 1581s [00:53:01.229] version = "1.8"), class = "FutureResult") 1581s [00:53:01.229] }, finally = { 1581s [00:53:01.229] if (!identical(...future.workdir, getwd())) 1581s [00:53:01.229] setwd(...future.workdir) 1581s [00:53:01.229] { 1581s [00:53:01.229] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1581s [00:53:01.229] ...future.oldOptions$nwarnings <- NULL 1581s [00:53:01.229] } 1581s [00:53:01.229] base::options(...future.oldOptions) 1581s [00:53:01.229] if (.Platform$OS.type == "windows") { 1581s [00:53:01.229] old_names <- names(...future.oldEnvVars) 1581s [00:53:01.229] envs <- base::Sys.getenv() 1581s [00:53:01.229] names <- names(envs) 1581s [00:53:01.229] common <- intersect(names, old_names) 1581s [00:53:01.229] added <- setdiff(names, old_names) 1581s [00:53:01.229] removed <- setdiff(old_names, names) 1581s [00:53:01.229] changed <- common[...future.oldEnvVars[common] != 1581s [00:53:01.229] envs[common]] 1581s [00:53:01.229] NAMES <- toupper(changed) 1581s [00:53:01.229] args <- list() 1581s [00:53:01.229] for (kk in seq_along(NAMES)) { 1581s [00:53:01.229] name <- changed[[kk]] 1581s [00:53:01.229] NAME <- NAMES[[kk]] 1581s [00:53:01.229] if (name != NAME && is.element(NAME, old_names)) 1581s [00:53:01.229] next 1581s [00:53:01.229] args[[name]] <- ...future.oldEnvVars[[name]] 1581s [00:53:01.229] } 1581s [00:53:01.229] NAMES <- toupper(added) 1581s [00:53:01.229] for (kk in seq_along(NAMES)) { 1581s [00:53:01.229] name <- added[[kk]] 1581s [00:53:01.229] NAME <- NAMES[[kk]] 1581s [00:53:01.229] if (name != NAME && is.element(NAME, old_names)) 1581s [00:53:01.229] next 1581s [00:53:01.229] args[[name]] <- "" 1581s [00:53:01.229] } 1581s [00:53:01.229] NAMES <- toupper(removed) 1581s [00:53:01.229] for (kk in seq_along(NAMES)) { 1581s [00:53:01.229] name <- removed[[kk]] 1581s [00:53:01.229] NAME <- NAMES[[kk]] 1581s [00:53:01.229] if (name != NAME && is.element(NAME, old_names)) 1581s [00:53:01.229] next 1581s [00:53:01.229] args[[name]] <- ...future.oldEnvVars[[name]] 1581s [00:53:01.229] } 1581s [00:53:01.229] if (length(args) > 0) 1581s [00:53:01.229] base::do.call(base::Sys.setenv, args = args) 1581s [00:53:01.229] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1581s [00:53:01.229] } 1581s [00:53:01.229] else { 1581s [00:53:01.229] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1581s [00:53:01.229] } 1581s [00:53:01.229] { 1581s [00:53:01.229] if (base::length(...future.futureOptionsAdded) > 1581s [00:53:01.229] 0L) { 1581s [00:53:01.229] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1581s [00:53:01.229] base::names(opts) <- ...future.futureOptionsAdded 1581s [00:53:01.229] base::options(opts) 1581s [00:53:01.229] } 1581s [00:53:01.229] { 1581s [00:53:01.229] { 1581s [00:53:01.229] NULL 1581s [00:53:01.229] RNGkind("Mersenne-Twister") 1581s [00:53:01.229] base::rm(list = ".Random.seed", envir = base::globalenv(), 1581s [00:53:01.229] inherits = FALSE) 1581s [00:53:01.229] } 1581s [00:53:01.229] options(future.plan = NULL) 1581s [00:53:01.229] if (is.na(NA_character_)) 1581s [00:53:01.229] Sys.unsetenv("R_FUTURE_PLAN") 1581s [00:53:01.229] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1581s [00:53:01.229] future::plan(list(function (..., workers = availableCores(), 1581s [00:53:01.229] lazy = FALSE, rscript_libs = .libPaths(), 1581s [00:53:01.229] envir = parent.frame()) 1581s [00:53:01.229] { 1581s [00:53:01.229] if (is.function(workers)) 1581s [00:53:01.229] workers <- workers() 1581s [00:53:01.229] workers <- structure(as.integer(workers), 1581s [00:53:01.229] class = class(workers)) 1581s [00:53:01.229] stop_if_not(length(workers) == 1, is.finite(workers), 1581s [00:53:01.229] workers >= 1) 1581s [00:53:01.229] if (workers == 1L && !inherits(workers, "AsIs")) { 1581s [00:53:01.229] return(sequential(..., lazy = TRUE, envir = envir)) 1581s [00:53:01.229] } 1581s [00:53:01.229] future <- MultisessionFuture(..., workers = workers, 1581s [00:53:01.229] lazy = lazy, rscript_libs = rscript_libs, 1581s [00:53:01.229] envir = envir) 1581s [00:53:01.229] if (!future$lazy) 1581s [00:53:01.229] future <- run(future) 1581s [00:53:01.229] invisible(future) 1581s [00:53:01.229] }), .cleanup = FALSE, .init = FALSE) 1581s [00:53:01.229] } 1581s [00:53:01.229] } 1581s [00:53:01.229] } 1581s [00:53:01.229] }) 1581s [00:53:01.229] if (TRUE) { 1581s [00:53:01.229] base::sink(type = "output", split = FALSE) 1581s [00:53:01.229] if (TRUE) { 1581s [00:53:01.229] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1581s [00:53:01.229] } 1581s [00:53:01.229] else { 1581s [00:53:01.229] ...future.result["stdout"] <- base::list(NULL) 1581s [00:53:01.229] } 1581s [00:53:01.229] base::close(...future.stdout) 1581s [00:53:01.229] ...future.stdout <- NULL 1581s [00:53:01.229] } 1581s [00:53:01.229] ...future.result$conditions <- ...future.conditions 1581s [00:53:01.229] ...future.result$finished <- base::Sys.time() 1581s [00:53:01.229] ...future.result 1581s [00:53:01.229] } 1581s [00:53:01.237] assign_globals() ... 1581s [00:53:01.237] List of 5 1581s [00:53:01.237] $ ...future.FUN :function (x) 1581s [00:53:01.237] $ future.call.arguments : list() 1581s [00:53:01.237] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1581s [00:53:01.237] $ ...future.elements_ii :List of 6 1581s [00:53:01.237] ..$ a1: int 1 1581s [00:53:01.237] ..$ a2: int 2 1581s [00:53:01.237] ..$ b1: int 2 1581s [00:53:01.237] ..$ b2: int 3 1581s [00:53:01.237] ..$ c1: int 3 1581s [00:53:01.237] ..$ c2: int 4 1581s [00:53:01.237] $ ...future.seeds_ii : NULL 1581s [00:53:01.237] $ ...future.globals.maxSize: NULL 1581s [00:53:01.237] - attr(*, "where")=List of 5 1581s [00:53:01.237] ..$ ...future.FUN : 1581s [00:53:01.237] ..$ future.call.arguments : 1581s [00:53:01.237] ..$ ...future.elements_ii : 1581s [00:53:01.237] ..$ ...future.seeds_ii : 1581s [00:53:01.237] ..$ ...future.globals.maxSize: 1581s [00:53:01.237] - attr(*, "resolved")= logi FALSE 1581s [00:53:01.237] - attr(*, "total_size")= num 848 1581s [00:53:01.237] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1581s [00:53:01.237] - attr(*, "already-done")= logi TRUE 1581s [00:53:01.248] - copied ‘...future.FUN’ to environment 1581s [00:53:01.248] - copied ‘future.call.arguments’ to environment 1581s [00:53:01.248] - copied ‘...future.elements_ii’ to environment 1581s [00:53:01.249] - copied ‘...future.seeds_ii’ to environment 1581s [00:53:01.249] - copied ‘...future.globals.maxSize’ to environment 1581s [00:53:01.249] assign_globals() ... done 1581s [00:53:01.249] plan(): Setting new future strategy stack: 1581s [00:53:01.250] List of future strategies: 1581s [00:53:01.250] 1. sequential: 1581s [00:53:01.250] - args: function (..., envir = parent.frame()) 1581s [00:53:01.250] - tweaked: FALSE 1581s [00:53:01.250] - call: NULL 1581s [00:53:01.250] plan(): nbrOfWorkers() = 1 1581s [00:53:01.251] plan(): Setting new future strategy stack: 1581s [00:53:01.251] List of future strategies: 1581s [00:53:01.251] 1. multisession: 1581s [00:53:01.251] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1581s [00:53:01.251] - tweaked: FALSE 1581s [00:53:01.251] - call: plan(strategy) 1581s [00:53:01.257] plan(): nbrOfWorkers() = 1 1581s [00:53:01.257] SequentialFuture started (and completed) 1581s [00:53:01.258] - Launch lazy future ... done 1581s [00:53:01.258] run() for ‘SequentialFuture’ ... done 1581s [00:53:01.258] Created future: 1581s List of 2 1581s $ y0:[00:53:01.258] SequentialFuture: 1581s [00:53:01.258] Label: ‘future_sapply-1’ 1581s [00:53:01.258] Expression: 1581s [00:53:01.258] { 1581s [00:53:01.258] do.call(function(...) { 1581s [00:53:01.258] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1581s [00:53:01.258] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1581s [00:53:01.258] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1581s [00:53:01.258] on.exit(options(oopts), add = TRUE) 1581s [00:53:01.258] } 1581s [00:53:01.258] { 1581s [00:53:01.258] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1581s [00:53:01.258] ...future.X_jj <- ...future.elements_ii[[jj]] 1581s [00:53:01.258] ...future.FUN(...future.X_jj, ...) 1581s [00:53:01.258] }) 1581s [00:53:01.258] } 1581s [00:53:01.258] }, args = future.call.arguments) 1581s [00:53:01.258] } 1581s [00:53:01.258] Lazy evaluation: FALSE 1581s [00:53:01.258] Asynchronous evaluation: FALSE 1581s [00:53:01.258] Local evaluation: TRUE 1581s [00:53:01.258] Environment: R_GlobalEnv 1581s [00:53:01.258] Capture standard output: TRUE 1581s [00:53:01.258] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1581s [00:53:01.258] Globals: 5 objects totaling 1.16 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1581s [00:53:01.258] Packages: 1581s [00:53:01.258] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1581s [00:53:01.258] Resolved: TRUE 1581s [00:53:01.258] Value: 336 bytes of class ‘list’ 1581s [00:53:01.258] Early signaling: FALSE 1581s [00:53:01.258] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1581s [00:53:01.258] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1581s [00:53:01.261] Chunk #1 of 1 ... DONE 1581s [00:53:01.261] Launching 1 futures (chunks) ... DONE 1581s [00:53:01.261] Resolving 1 futures (chunks) ... 1581s [00:53:01.261] resolve() on list ... 1581s [00:53:01.262] recursive: 0 1581s [00:53:01.262] length: 1 1581s [00:53:01.262] 1581s [00:53:01.262] resolved() for ‘SequentialFuture’ ... 1581s [00:53:01.263] - state: ‘finished’ 1581s [00:53:01.263] - run: TRUE 1581s [00:53:01.263] - result: ‘FutureResult’ 1581s [00:53:01.263] resolved() for ‘SequentialFuture’ ... done 1581s [00:53:01.263] Future #1 1581s [00:53:01.263] signalConditionsASAP(SequentialFuture, pos=1) ... 1581s [00:53:01.264] - nx: 1 1581s [00:53:01.264] - relay: TRUE 1581s [00:53:01.264] - stdout: TRUE 1581s [00:53:01.264] - signal: TRUE 1581s [00:53:01.264] - resignal: FALSE 1581s [00:53:01.264] - force: TRUE 1581s [00:53:01.264] - relayed: [n=1] FALSE 1581s [00:53:01.264] - queued futures: [n=1] FALSE 1581s [00:53:01.264] - until=1 1581s [00:53:01.265] - relaying element #1 1581s [00:53:01.265] - relayed: [n=1] TRUE 1581s [00:53:01.265] - queued futures: [n=1] TRUE 1581s [00:53:01.265] signalConditionsASAP(SequentialFuture, pos=1) ... done 1581s [00:53:01.266] length: 0 (resolved future 1) 1581s [00:53:01.266] Relaying remaining futures 1581s [00:53:01.266] signalConditionsASAP(NULL, pos=0) ... 1581s [00:53:01.266] - nx: 1 1581s [00:53:01.266] - relay: TRUE 1581s [00:53:01.266] - stdout: TRUE 1581s [00:53:01.266] - signal: TRUE 1581s [00:53:01.266] - resignal: FALSE 1581s [00:53:01.266] - force: TRUE 1581s [00:53:01.267] - relayed: [n=1] TRUE 1581s [00:53:01.267] - queued futures: [n=1] TRUE 1581s - flush all 1581s [00:53:01.267] - relayed: [n=1] TRUE 1581s [00:53:01.267] - queued futures: [n=1] TRUE 1581s [00:53:01.267] signalConditionsASAP(NULL, pos=0) ... done 1581s [00:53:01.267] resolve() on list ... DONE 1581s [00:53:01.267] - Number of value chunks collected: 1 1581s [00:53:01.268] Resolving 1 futures (chunks) ... DONE 1581s [00:53:01.268] Reducing values from 1 chunks ... 1581s [00:53:01.268] - Number of values collected after concatenation: 6 1581s [00:53:01.268] - Number of values expected: 6 1581s [00:53:01.268] Reducing values from 1 chunks ... DONE 1581s [00:53:01.268] future_lapply() ... DONE 1581s Named int [1:6] 1 2 2 3 3 4 1581s ..- attr(*, "names")= chr [1:6] "a1" "a2" "b1" "b2" ... 1581s $ y1: Named int [1:6] 1 2 2 3 3 4 1581s ..- attr(*, "names")= chr [1:6] "a1" "a2" "b1" "b2" ... 1581s [00:53:01.274] future_lapply() ... 1581s [00:53:01.279] Number of chunks: 1 1581s [00:53:01.279] getGlobalsAndPackagesXApply() ... 1581s [00:53:01.280] - future.globals: TRUE 1581s [00:53:01.280] getGlobalsAndPackages() ... 1581s [00:53:01.280] Searching for globals... 1581s [00:53:01.282] - globals found: [2] ‘FUN’, ‘UseMethod’ 1581s [00:53:01.282] Searching for globals ... DONE 1581s [00:53:01.282] Resolving globals: FALSE 1581s [00:53:01.283] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1581s [00:53:01.283] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1581s [00:53:01.283] - globals: [1] ‘FUN’ 1581s [00:53:01.284] 1581s [00:53:01.284] getGlobalsAndPackages() ... DONE 1581s [00:53:01.284] - globals found/used: [n=1] ‘FUN’ 1581s [00:53:01.284] - needed namespaces: [n=0] 1581s [00:53:01.285] Finding globals ... DONE 1581s [00:53:01.285] - use_args: TRUE 1581s [00:53:01.285] - Getting '...' globals ... 1581s [00:53:01.286] resolve() on list ... 1581s [00:53:01.286] recursive: 0 1581s [00:53:01.286] length: 1 1581s [00:53:01.286] elements: ‘...’ 1581s [00:53:01.286] length: 0 (resolved future 1) 1581s [00:53:01.287] resolve() on list ... DONE 1581s [00:53:01.287] - '...' content: [n=0] 1581s [00:53:01.287] List of 1 1581s [00:53:01.287] $ ...: list() 1581s [00:53:01.287] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1581s [00:53:01.287] - attr(*, "where")=List of 1 1581s [00:53:01.287] ..$ ...: 1581s [00:53:01.287] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1581s [00:53:01.287] - attr(*, "resolved")= logi TRUE 1581s [00:53:01.287] - attr(*, "total_size")= num NA 1581s [00:53:01.291] - Getting '...' globals ... DONE 1581s [00:53:01.292] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1581s [00:53:01.292] List of 2 1581s [00:53:01.292] $ ...future.FUN:function (x, ...) 1581s [00:53:01.292] $ ... : list() 1581s [00:53:01.292] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1581s [00:53:01.292] - attr(*, "where")=List of 2 1581s [00:53:01.292] ..$ ...future.FUN: 1581s [00:53:01.292] ..$ ... : 1581s [00:53:01.292] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1581s [00:53:01.292] - attr(*, "resolved")= logi FALSE 1581s [00:53:01.292] - attr(*, "total_size")= num 1248 1581s [00:53:01.296] Packages to be attached in all futures: [n=0] 1581s [00:53:01.296] getGlobalsAndPackagesXApply() ... DONE 1581s [00:53:01.296] Number of futures (= number of chunks): 1 1581s [00:53:01.296] Launching 1 futures (chunks) ... 1581s [00:53:01.297] Chunk #1 of 1 ... 1581s [00:53:01.297] - Finding globals in 'X' for chunk #1 ... 1581s [00:53:01.297] getGlobalsAndPackages() ... 1581s [00:53:01.297] Searching for globals... 1581s [00:53:01.297] 1581s [00:53:01.298] Searching for globals ... DONE 1581s [00:53:01.298] - globals: [0] 1581s [00:53:01.298] getGlobalsAndPackages() ... DONE 1581s [00:53:01.298] + additional globals found: [n=0] 1581s [00:53:01.299] + additional namespaces needed: [n=0] 1581s [00:53:01.299] - Finding globals in 'X' for chunk #1 ... DONE 1581s [00:53:01.299] - seeds: 1581s [00:53:01.299] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1581s [00:53:01.299] getGlobalsAndPackages() ... 1581s [00:53:01.299] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1581s [00:53:01.300] Resolving globals: FALSE 1581s [00:53:01.300] Tweak future expression to call with '...' arguments ... 1581s [00:53:01.301] { 1581s [00:53:01.301] do.call(function(...) { 1581s [00:53:01.301] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1581s [00:53:01.301] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1581s [00:53:01.301] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1581s [00:53:01.301] on.exit(options(oopts), add = TRUE) 1581s [00:53:01.301] } 1581s [00:53:01.301] { 1581s [00:53:01.301] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1581s [00:53:01.301] ...future.X_jj <- ...future.elements_ii[[jj]] 1581s [00:53:01.301] ...future.FUN(...future.X_jj, ...) 1581s [00:53:01.301] }) 1581s [00:53:01.301] } 1581s [00:53:01.301] }, args = future.call.arguments) 1581s [00:53:01.301] } 1581s [00:53:01.301] Tweak future expression to call with '...' arguments ... DONE 1581s [00:53:01.302] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1581s [00:53:01.302] 1581s [00:53:01.302] getGlobalsAndPackages() ... DONE 1581s [00:53:01.303] run() for ‘Future’ ... 1581s [00:53:01.303] - state: ‘created’ 1581s [00:53:01.303] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1581s [00:53:01.308] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1581s [00:53:01.309] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1581s [00:53:01.309] - Field: ‘label’ 1581s [00:53:01.316] - Field: ‘local’ 1581s [00:53:01.317] - Field: ‘owner’ 1581s [00:53:01.317] - Field: ‘envir’ 1581s [00:53:01.317] - Field: ‘packages’ 1581s [00:53:01.317] - Field: ‘gc’ 1581s [00:53:01.318] - Field: ‘conditions’ 1581s [00:53:01.318] - Field: ‘expr’ 1581s [00:53:01.318] - Field: ‘uuid’ 1581s [00:53:01.318] - Field: ‘seed’ 1581s [00:53:01.319] - Field: ‘version’ 1581s [00:53:01.319] - Field: ‘result’ 1581s [00:53:01.319] - Field: ‘asynchronous’ 1581s [00:53:01.319] - Field: ‘calls’ 1581s [00:53:01.319] - Field: ‘globals’ 1581s [00:53:01.319] - Field: ‘stdout’ 1581s [00:53:01.320] - Field: ‘earlySignal’ 1581s [00:53:01.320] - Field: ‘lazy’ 1581s [00:53:01.320] - Field: ‘state’ 1581s [00:53:01.320] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1581s [00:53:01.320] - Launch lazy future ... 1581s [00:53:01.320] Packages needed by the future expression (n = 0): 1581s [00:53:01.321] Packages needed by future strategies (n = 0): 1581s [00:53:01.321] { 1581s [00:53:01.321] { 1581s [00:53:01.321] { 1581s [00:53:01.321] ...future.startTime <- base::Sys.time() 1581s [00:53:01.321] { 1581s [00:53:01.321] { 1581s [00:53:01.321] { 1581s [00:53:01.321] base::local({ 1581s [00:53:01.321] has_future <- base::requireNamespace("future", 1581s [00:53:01.321] quietly = TRUE) 1581s [00:53:01.321] if (has_future) { 1581s [00:53:01.321] ns <- base::getNamespace("future") 1581s [00:53:01.321] version <- ns[[".package"]][["version"]] 1581s [00:53:01.321] if (is.null(version)) 1581s [00:53:01.321] version <- utils::packageVersion("future") 1581s [00:53:01.321] } 1581s [00:53:01.321] else { 1581s [00:53:01.321] version <- NULL 1581s [00:53:01.321] } 1581s [00:53:01.321] if (!has_future || version < "1.8.0") { 1581s [00:53:01.321] info <- base::c(r_version = base::gsub("R version ", 1581s [00:53:01.321] "", base::R.version$version.string), 1581s [00:53:01.321] platform = base::sprintf("%s (%s-bit)", 1581s [00:53:01.321] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1581s [00:53:01.321] os = base::paste(base::Sys.info()[base::c("sysname", 1581s [00:53:01.321] "release", "version")], collapse = " "), 1581s [00:53:01.321] hostname = base::Sys.info()[["nodename"]]) 1581s [00:53:01.321] info <- base::sprintf("%s: %s", base::names(info), 1581s [00:53:01.321] info) 1581s [00:53:01.321] info <- base::paste(info, collapse = "; ") 1581s [00:53:01.321] if (!has_future) { 1581s [00:53:01.321] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1581s [00:53:01.321] info) 1581s [00:53:01.321] } 1581s [00:53:01.321] else { 1581s [00:53:01.321] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1581s [00:53:01.321] info, version) 1581s [00:53:01.321] } 1581s [00:53:01.321] base::stop(msg) 1581s [00:53:01.321] } 1581s [00:53:01.321] }) 1581s [00:53:01.321] } 1581s [00:53:01.321] options(future.plan = NULL) 1581s [00:53:01.321] Sys.unsetenv("R_FUTURE_PLAN") 1581s [00:53:01.321] future::plan("default", .cleanup = FALSE, .init = FALSE) 1581s [00:53:01.321] } 1581s [00:53:01.321] ...future.workdir <- getwd() 1581s [00:53:01.321] } 1581s [00:53:01.321] ...future.oldOptions <- base::as.list(base::.Options) 1581s [00:53:01.321] ...future.oldEnvVars <- base::Sys.getenv() 1581s [00:53:01.321] } 1581s [00:53:01.321] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1581s [00:53:01.321] future.globals.maxSize = NULL, future.globals.method = NULL, 1581s [00:53:01.321] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1581s [00:53:01.321] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1581s [00:53:01.321] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1581s [00:53:01.321] future.stdout.windows.reencode = NULL, width = 80L) 1581s [00:53:01.321] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1581s [00:53:01.321] base::names(...future.oldOptions)) 1581s [00:53:01.321] } 1581s [00:53:01.321] if (FALSE) { 1581s [00:53:01.321] } 1581s [00:53:01.321] else { 1581s [00:53:01.321] if (TRUE) { 1581s [00:53:01.321] ...future.stdout <- base::rawConnection(base::raw(0L), 1581s [00:53:01.321] open = "w") 1581s [00:53:01.321] } 1581s [00:53:01.321] else { 1581s [00:53:01.321] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1581s [00:53:01.321] windows = "NUL", "/dev/null"), open = "w") 1581s [00:53:01.321] } 1581s [00:53:01.321] base::sink(...future.stdout, type = "output", split = FALSE) 1581s [00:53:01.321] base::on.exit(if (!base::is.null(...future.stdout)) { 1581s [00:53:01.321] base::sink(type = "output", split = FALSE) 1581s [00:53:01.321] base::close(...future.stdout) 1581s [00:53:01.321] }, add = TRUE) 1581s [00:53:01.321] } 1581s [00:53:01.321] ...future.frame <- base::sys.nframe() 1581s [00:53:01.321] ...future.conditions <- base::list() 1581s [00:53:01.321] ...future.rng <- base::globalenv()$.Random.seed 1581s [00:53:01.321] if (FALSE) { 1581s [00:53:01.321] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1581s [00:53:01.321] "...future.value", "...future.globalenv.names", ".Random.seed") 1581s [00:53:01.321] } 1581s [00:53:01.321] ...future.result <- base::tryCatch({ 1581s [00:53:01.321] base::withCallingHandlers({ 1581s [00:53:01.321] ...future.value <- base::withVisible(base::local({ 1581s [00:53:01.321] do.call(function(...) { 1581s [00:53:01.321] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1581s [00:53:01.321] if (!identical(...future.globals.maxSize.org, 1581s [00:53:01.321] ...future.globals.maxSize)) { 1581s [00:53:01.321] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1581s [00:53:01.321] on.exit(options(oopts), add = TRUE) 1581s [00:53:01.321] } 1581s [00:53:01.321] { 1581s [00:53:01.321] lapply(seq_along(...future.elements_ii), 1581s [00:53:01.321] FUN = function(jj) { 1581s [00:53:01.321] ...future.X_jj <- ...future.elements_ii[[jj]] 1581s [00:53:01.321] ...future.FUN(...future.X_jj, ...) 1581s [00:53:01.321] }) 1581s [00:53:01.321] } 1581s [00:53:01.321] }, args = future.call.arguments) 1581s [00:53:01.321] })) 1581s [00:53:01.321] future::FutureResult(value = ...future.value$value, 1581s [00:53:01.321] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1581s [00:53:01.321] ...future.rng), globalenv = if (FALSE) 1581s [00:53:01.321] list(added = base::setdiff(base::names(base::.GlobalEnv), 1581s [00:53:01.321] ...future.globalenv.names)) 1581s [00:53:01.321] else NULL, started = ...future.startTime, version = "1.8") 1581s [00:53:01.321] }, condition = base::local({ 1581s [00:53:01.321] c <- base::c 1581s [00:53:01.321] inherits <- base::inherits 1581s [00:53:01.321] invokeRestart <- base::invokeRestart 1581s [00:53:01.321] length <- base::length 1581s [00:53:01.321] list <- base::list 1581s [00:53:01.321] seq.int <- base::seq.int 1581s [00:53:01.321] signalCondition <- base::signalCondition 1581s [00:53:01.321] sys.calls <- base::sys.calls 1581s [00:53:01.321] `[[` <- base::`[[` 1581s [00:53:01.321] `+` <- base::`+` 1581s [00:53:01.321] `<<-` <- base::`<<-` 1581s [00:53:01.321] sysCalls <- function(calls = sys.calls(), from = 1L) { 1581s [00:53:01.321] calls[seq.int(from = from + 12L, to = length(calls) - 1581s [00:53:01.321] 3L)] 1581s [00:53:01.321] } 1581s [00:53:01.321] function(cond) { 1581s [00:53:01.321] is_error <- inherits(cond, "error") 1581s [00:53:01.321] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1581s [00:53:01.321] NULL) 1581s [00:53:01.321] if (is_error) { 1581s [00:53:01.321] sessionInformation <- function() { 1581s [00:53:01.321] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1581s [00:53:01.321] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1581s [00:53:01.321] search = base::search(), system = base::Sys.info()) 1581s [00:53:01.321] } 1581s [00:53:01.321] ...future.conditions[[length(...future.conditions) + 1581s [00:53:01.321] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1581s [00:53:01.321] cond$call), session = sessionInformation(), 1581s [00:53:01.321] timestamp = base::Sys.time(), signaled = 0L) 1581s [00:53:01.321] signalCondition(cond) 1581s [00:53:01.321] } 1581s [00:53:01.321] else if (!ignore && TRUE && inherits(cond, c("condition", 1581s [00:53:01.321] "immediateCondition"))) { 1581s [00:53:01.321] signal <- TRUE && inherits(cond, "immediateCondition") 1581s [00:53:01.321] ...future.conditions[[length(...future.conditions) + 1581s [00:53:01.321] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1581s [00:53:01.321] if (TRUE && !signal) { 1581s [00:53:01.321] muffleCondition <- function (cond, pattern = "^muffle") 1581s [00:53:01.321] { 1581s [00:53:01.321] inherits <- base::inherits 1581s [00:53:01.321] invokeRestart <- base::invokeRestart 1581s [00:53:01.321] is.null <- base::is.null 1581s [00:53:01.321] muffled <- FALSE 1581s [00:53:01.321] if (inherits(cond, "message")) { 1581s [00:53:01.321] muffled <- grepl(pattern, "muffleMessage") 1581s [00:53:01.321] if (muffled) 1581s [00:53:01.321] invokeRestart("muffleMessage") 1581s [00:53:01.321] } 1581s [00:53:01.321] else if (inherits(cond, "warning")) { 1581s [00:53:01.321] muffled <- grepl(pattern, "muffleWarning") 1581s [00:53:01.321] if (muffled) 1581s [00:53:01.321] invokeRestart("muffleWarning") 1581s [00:53:01.321] } 1581s [00:53:01.321] else if (inherits(cond, "condition")) { 1581s [00:53:01.321] if (!is.null(pattern)) { 1581s [00:53:01.321] computeRestarts <- base::computeRestarts 1581s [00:53:01.321] grepl <- base::grepl 1581s [00:53:01.321] restarts <- computeRestarts(cond) 1581s [00:53:01.321] for (restart in restarts) { 1581s [00:53:01.321] name <- restart$name 1581s [00:53:01.321] if (is.null(name)) 1581s [00:53:01.321] next 1581s [00:53:01.321] if (!grepl(pattern, name)) 1581s [00:53:01.321] next 1581s [00:53:01.321] invokeRestart(restart) 1581s [00:53:01.321] muffled <- TRUE 1581s [00:53:01.321] break 1581s [00:53:01.321] } 1581s [00:53:01.321] } 1581s [00:53:01.321] } 1581s [00:53:01.321] invisible(muffled) 1581s [00:53:01.321] } 1581s [00:53:01.321] muffleCondition(cond, pattern = "^muffle") 1581s [00:53:01.321] } 1581s [00:53:01.321] } 1581s [00:53:01.321] else { 1581s [00:53:01.321] if (TRUE) { 1581s [00:53:01.321] muffleCondition <- function (cond, pattern = "^muffle") 1581s [00:53:01.321] { 1581s [00:53:01.321] inherits <- base::inherits 1581s [00:53:01.321] invokeRestart <- base::invokeRestart 1581s [00:53:01.321] is.null <- base::is.null 1581s [00:53:01.321] muffled <- FALSE 1581s [00:53:01.321] if (inherits(cond, "message")) { 1581s [00:53:01.321] muffled <- grepl(pattern, "muffleMessage") 1581s [00:53:01.321] if (muffled) 1581s [00:53:01.321] invokeRestart("muffleMessage") 1581s [00:53:01.321] } 1581s [00:53:01.321] else if (inherits(cond, "warning")) { 1581s [00:53:01.321] muffled <- grepl(pattern, "muffleWarning") 1581s [00:53:01.321] if (muffled) 1581s [00:53:01.321] invokeRestart("muffleWarning") 1581s [00:53:01.321] } 1581s [00:53:01.321] else if (inherits(cond, "condition")) { 1581s [00:53:01.321] if (!is.null(pattern)) { 1581s [00:53:01.321] computeRestarts <- base::computeRestarts 1581s [00:53:01.321] grepl <- base::grepl 1581s [00:53:01.321] restarts <- computeRestarts(cond) 1581s [00:53:01.321] for (restart in restarts) { 1581s [00:53:01.321] name <- restart$name 1581s [00:53:01.321] if (is.null(name)) 1581s [00:53:01.321] next 1581s [00:53:01.321] if (!grepl(pattern, name)) 1581s [00:53:01.321] next 1581s [00:53:01.321] invokeRestart(restart) 1581s [00:53:01.321] muffled <- TRUE 1581s [00:53:01.321] break 1581s [00:53:01.321] } 1581s [00:53:01.321] } 1581s [00:53:01.321] } 1581s [00:53:01.321] invisible(muffled) 1581s [00:53:01.321] } 1581s [00:53:01.321] muffleCondition(cond, pattern = "^muffle") 1581s [00:53:01.321] } 1581s [00:53:01.321] } 1581s [00:53:01.321] } 1581s [00:53:01.321] })) 1581s [00:53:01.321] }, error = function(ex) { 1581s [00:53:01.321] base::structure(base::list(value = NULL, visible = NULL, 1581s [00:53:01.321] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1581s [00:53:01.321] ...future.rng), started = ...future.startTime, 1581s [00:53:01.321] finished = Sys.time(), session_uuid = NA_character_, 1581s [00:53:01.321] version = "1.8"), class = "FutureResult") 1581s [00:53:01.321] }, finally = { 1581s [00:53:01.321] if (!identical(...future.workdir, getwd())) 1581s [00:53:01.321] setwd(...future.workdir) 1581s [00:53:01.321] { 1581s [00:53:01.321] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1581s [00:53:01.321] ...future.oldOptions$nwarnings <- NULL 1581s [00:53:01.321] } 1581s [00:53:01.321] base::options(...future.oldOptions) 1581s [00:53:01.321] if (.Platform$OS.type == "windows") { 1581s [00:53:01.321] old_names <- names(...future.oldEnvVars) 1581s [00:53:01.321] envs <- base::Sys.getenv() 1581s [00:53:01.321] names <- names(envs) 1581s [00:53:01.321] common <- intersect(names, old_names) 1581s [00:53:01.321] added <- setdiff(names, old_names) 1581s [00:53:01.321] removed <- setdiff(old_names, names) 1581s [00:53:01.321] changed <- common[...future.oldEnvVars[common] != 1581s [00:53:01.321] envs[common]] 1581s [00:53:01.321] NAMES <- toupper(changed) 1581s [00:53:01.321] args <- list() 1581s [00:53:01.321] for (kk in seq_along(NAMES)) { 1581s [00:53:01.321] name <- changed[[kk]] 1581s [00:53:01.321] NAME <- NAMES[[kk]] 1581s [00:53:01.321] if (name != NAME && is.element(NAME, old_names)) 1581s [00:53:01.321] next 1581s [00:53:01.321] args[[name]] <- ...future.oldEnvVars[[name]] 1581s [00:53:01.321] } 1581s [00:53:01.321] NAMES <- toupper(added) 1581s [00:53:01.321] for (kk in seq_along(NAMES)) { 1581s [00:53:01.321] name <- added[[kk]] 1581s [00:53:01.321] NAME <- NAMES[[kk]] 1581s [00:53:01.321] if (name != NAME && is.element(NAME, old_names)) 1581s [00:53:01.321] next 1581s [00:53:01.321] args[[name]] <- "" 1581s [00:53:01.321] } 1581s [00:53:01.321] NAMES <- toupper(removed) 1581s [00:53:01.321] for (kk in seq_along(NAMES)) { 1581s [00:53:01.321] name <- removed[[kk]] 1581s [00:53:01.321] NAME <- NAMES[[kk]] 1581s [00:53:01.321] if (name != NAME && is.element(NAME, old_names)) 1581s [00:53:01.321] next 1581s [00:53:01.321] args[[name]] <- ...future.oldEnvVars[[name]] 1581s [00:53:01.321] } 1581s [00:53:01.321] if (length(args) > 0) 1581s [00:53:01.321] base::do.call(base::Sys.setenv, args = args) 1581s [00:53:01.321] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1581s [00:53:01.321] } 1581s [00:53:01.321] else { 1581s [00:53:01.321] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1581s [00:53:01.321] } 1581s [00:53:01.321] { 1581s [00:53:01.321] if (base::length(...future.futureOptionsAdded) > 1581s [00:53:01.321] 0L) { 1581s [00:53:01.321] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1581s [00:53:01.321] base::names(opts) <- ...future.futureOptionsAdded 1581s [00:53:01.321] base::options(opts) 1581s [00:53:01.321] } 1581s [00:53:01.321] { 1581s [00:53:01.321] { 1581s [00:53:01.321] NULL 1581s [00:53:01.321] RNGkind("Mersenne-Twister") 1581s [00:53:01.321] base::rm(list = ".Random.seed", envir = base::globalenv(), 1581s [00:53:01.321] inherits = FALSE) 1581s [00:53:01.321] } 1581s [00:53:01.321] options(future.plan = NULL) 1581s [00:53:01.321] if (is.na(NA_character_)) 1581s [00:53:01.321] Sys.unsetenv("R_FUTURE_PLAN") 1581s [00:53:01.321] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1581s [00:53:01.321] future::plan(list(function (..., workers = availableCores(), 1581s [00:53:01.321] lazy = FALSE, rscript_libs = .libPaths(), 1581s [00:53:01.321] envir = parent.frame()) 1581s [00:53:01.321] { 1581s [00:53:01.321] if (is.function(workers)) 1581s [00:53:01.321] workers <- workers() 1581s [00:53:01.321] workers <- structure(as.integer(workers), 1581s [00:53:01.321] class = class(workers)) 1581s [00:53:01.321] stop_if_not(length(workers) == 1, is.finite(workers), 1581s [00:53:01.321] workers >= 1) 1581s [00:53:01.321] if (workers == 1L && !inherits(workers, "AsIs")) { 1581s [00:53:01.321] return(sequential(..., lazy = TRUE, envir = envir)) 1581s [00:53:01.321] } 1581s [00:53:01.321] future <- MultisessionFuture(..., workers = workers, 1581s [00:53:01.321] lazy = lazy, rscript_libs = rscript_libs, 1581s [00:53:01.321] envir = envir) 1581s [00:53:01.321] if (!future$lazy) 1581s [00:53:01.321] future <- run(future) 1581s [00:53:01.321] invisible(future) 1581s [00:53:01.321] }), .cleanup = FALSE, .init = FALSE) 1581s [00:53:01.321] } 1581s [00:53:01.321] } 1581s [00:53:01.321] } 1581s [00:53:01.321] }) 1581s [00:53:01.321] if (TRUE) { 1581s [00:53:01.321] base::sink(type = "output", split = FALSE) 1581s [00:53:01.321] if (TRUE) { 1581s [00:53:01.321] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1581s [00:53:01.321] } 1581s [00:53:01.321] else { 1581s [00:53:01.321] ...future.result["stdout"] <- base::list(NULL) 1581s [00:53:01.321] } 1581s [00:53:01.321] base::close(...future.stdout) 1581s [00:53:01.321] ...future.stdout <- NULL 1581s [00:53:01.321] } 1581s [00:53:01.321] ...future.result$conditions <- ...future.conditions 1581s [00:53:01.321] ...future.result$finished <- base::Sys.time() 1581s [00:53:01.321] ...future.result 1581s [00:53:01.321] } 1581s [00:53:01.326] assign_globals() ... 1581s [00:53:01.326] List of 5 1581s [00:53:01.326] $ ...future.FUN :function (x, ...) 1581s [00:53:01.326] $ future.call.arguments : list() 1581s [00:53:01.326] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1581s [00:53:01.326] $ ...future.elements_ii :List of 6 1581s [00:53:01.326] ..$ a1: int 1 1581s [00:53:01.326] ..$ a2: int 2 1581s [00:53:01.326] ..$ b1: int 2 1581s [00:53:01.326] ..$ b2: int 3 1581s [00:53:01.326] ..$ c1: int 3 1581s [00:53:01.326] ..$ c2: int 4 1581s [00:53:01.326] $ ...future.seeds_ii : NULL 1581s [00:53:01.326] $ ...future.globals.maxSize: NULL 1581s [00:53:01.326] - attr(*, "where")=List of 5 1581s [00:53:01.326] ..$ ...future.FUN : 1581s [00:53:01.326] ..$ future.call.arguments : 1581s [00:53:01.326] ..$ ...future.elements_ii : 1581s [00:53:01.326] ..$ ...future.seeds_ii : 1581s [00:53:01.326] ..$ ...future.globals.maxSize: 1581s [00:53:01.326] - attr(*, "resolved")= logi FALSE 1581s [00:53:01.326] - attr(*, "total_size")= num 1248 1581s [00:53:01.326] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1581s [00:53:01.326] - attr(*, "already-done")= logi TRUE 1581s [00:53:01.336] - copied ‘...future.FUN’ to environment 1581s [00:53:01.336] - copied ‘future.call.arguments’ to environment 1581s [00:53:01.336] - copied ‘...future.elements_ii’ to environment 1581s [00:53:01.336] - copied ‘...future.seeds_ii’ to environment 1581s [00:53:01.336] - copied ‘...future.globals.maxSize’ to environment 1581s [00:53:01.336] assign_globals() ... done 1581s [00:53:01.337] plan(): Setting new future strategy stack: 1581s [00:53:01.337] List of future strategies: 1581s [00:53:01.337] 1. sequential: 1581s [00:53:01.337] - args: function (..., envir = parent.frame()) 1581s [00:53:01.337] - tweaked: FALSE 1581s [00:53:01.337] - call: NULL 1581s [00:53:01.337] plan(): nbrOfWorkers() = 1 1581s [00:53:01.338] plan(): Setting new future strategy stack: 1581s [00:53:01.338] List of future strategies: 1581s [00:53:01.338] 1. multisession: 1581s [00:53:01.338] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1581s [00:53:01.338] - tweaked: FALSE 1581s [00:53:01.338] - call: plan(strategy) 1581s [00:53:01.342] plan(): nbrOfWorkers() = 1 1581s [00:53:01.342] SequentialFuture started (and completed) 1581s [00:53:01.342] - Launch lazy future ... done 1581s [00:53:01.342] run() for ‘SequentialFuture’ ... done 1581s [00:53:01.342] Created future: 1581s [00:53:01.343] SequentialFuture: 1581s [00:53:01.343] Label: ‘future_sapply-1’ 1581s [00:53:01.343] Expression: 1581s [00:53:01.343] { 1581s [00:53:01.343] do.call(function(...) { 1581s [00:53:01.343] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1581s [00:53:01.343] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1581s [00:53:01.343] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1581s [00:53:01.343] on.exit(options(oopts), add = TRUE) 1581s [00:53:01.343] } 1581s [00:53:01.343] { 1581s [00:53:01.343] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1581s [00:53:01.343] ...future.X_jj <- ...future.elements_ii[[jj]] 1581s [00:53:01.343] ...future.FUN(...future.X_jj, ...) 1581s [00:53:01.343] }) 1581s [00:53:01.343] } 1581s [00:53:01.343] }, args = future.call.arguments) 1581s [00:53:01.343] } 1581s [00:53:01.343] Lazy evaluation: FALSE 1581s [00:53:01.343] Asynchronous evaluation: FALSE 1581s [00:53:01.343] Local evaluation: TRUE 1581s [00:53:01.343] Environment: R_GlobalEnv 1581s [00:53:01.343] Capture standard output: TRUE 1581s [00:53:01.343] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1581s [00:53:01.343] Globals: 5 objects totaling 1.55 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1581s [00:53:01.343] Packages: 1581s [00:53:01.343] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1581s [00:53:01.343] Resolved: TRUE 1581s [00:53:01.343] Value: 1.31 KiB of class ‘list’ 1581s [00:53:01.343] Early signaling: FALSE 1581s [00:53:01.343] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1581s [00:53:01.343] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1581s [00:53:01.344] Chunk #1 of 1 ... DONE 1581s [00:53:01.344] Launching 1 futures (chunks) ... DONE 1581s [00:53:01.345] Resolving 1 futures (chunks) ... 1581s [00:53:01.345] resolve() on list ... 1581s [00:53:01.345] recursive: 0 1581s [00:53:01.345] length: 1 1581s [00:53:01.346] 1581s [00:53:01.346] resolved() for ‘SequentialFuture’ ... 1581s [00:53:01.346] - state: ‘finished’ 1581s [00:53:01.346] - run: TRUE 1581s [00:53:01.346] - result: ‘FutureResult’ 1581s [00:53:01.346] resolved() for ‘SequentialFuture’ ... done 1581s [00:53:01.346] Future #1 1581s [00:53:01.347] signalConditionsASAP(SequentialFuture, pos=1) ... 1581s [00:53:01.347] - nx: 1 1581s [00:53:01.347] - relay: TRUE 1581s [00:53:01.347] - stdout: TRUE 1581s [00:53:01.347] - signal: TRUE 1581s [00:53:01.348] - resignal: FALSE 1581s [00:53:01.348] - force: TRUE 1581s [00:53:01.348] - relayed: [n=1] FALSE 1581s [00:53:01.348] - queued futures: [n=1] FALSE 1581s [00:53:01.348] - until=1 1581s [00:53:01.349] - relaying element #1 1581s [00:53:01.349] - relayed: [n=1] TRUE 1581s [00:53:01.349] - queued futures: [n=1] TRUE 1581s [00:53:01.350] signalConditionsASAP(SequentialFuture, pos=1) ... done 1581s [00:53:01.350] length: 0 (resolved future 1) 1581s [00:53:01.350] Relaying remaining futures 1581s [00:53:01.350] signalConditionsASAP(NULL, pos=0) ... 1581s [00:53:01.350] - nx: 1 1581s [00:53:01.351] - relay: TRUE 1581s [00:53:01.351] - stdout: TRUE 1581s [00:53:01.351] - signal: TRUE 1581s [00:53:01.351] - resignal: FALSE 1581s [00:53:01.351] - force: TRUE 1581s [00:53:01.351] - relayed: [n=1] TRUE 1581s [00:53:01.351] - queued futures: [n=1] TRUE 1581s - flush all 1581s [00:53:01.352] - relayed: [n=1] TRUE 1581s [00:53:01.352] - queued futures: [n=1] TRUE 1581s [00:53:01.352] signalConditionsASAP(NULL, pos=0) ... done 1581s [00:53:01.352] resolve() on list ... DONE 1581s [00:53:01.352] - Number of value chunks collected: 1 1581s [00:53:01.353] Resolving 1 futures (chunks) ... DONE 1581s [00:53:01.353] Reducing values from 1 chunks ... 1581s [00:53:01.353] - Number of values collected after concatenation: 6 1581s [00:53:01.353] - Number of values expected: 6 1581s [00:53:01.353] Reducing values from 1 chunks ... DONE 1581s [00:53:01.353] future_lapply() ... DONE 1581s List of 2 1581s $ y0: Named int [1:6] 1 2 2 3 3 4 1581s ..- attr(*, "names")= chr [1:6] "a1" "a2" "b1" "b2" ... 1581s $ y1: Named int [1:6] 1 2 2 3 3 4 1581s ..- attr(*, "names")= chr [1:6] "a1" "a2" "b1" "b2" ... 1581s [00:53:01.356] future_lapply() ... 1581s [00:53:01.360] Number of chunks: 1 1581s [00:53:01.360] getGlobalsAndPackagesXApply() ... 1581s [00:53:01.360] - future.globals: TRUE 1581s [00:53:01.360] getGlobalsAndPackages() ... 1581s [00:53:01.361] Searching for globals... 1581s [00:53:01.362] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1581s [00:53:01.363] Searching for globals ... DONE 1581s [00:53:01.363] Resolving globals: FALSE 1581s [00:53:01.364] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1581s [00:53:01.364] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1581s [00:53:01.365] - globals: [1] ‘FUN’ 1581s [00:53:01.365] 1581s [00:53:01.365] getGlobalsAndPackages() ... DONE 1581s [00:53:01.365] - globals found/used: [n=1] ‘FUN’ 1581s [00:53:01.365] - needed namespaces: [n=0] 1581s [00:53:01.365] Finding globals ... DONE 1581s [00:53:01.365] - use_args: TRUE 1581s [00:53:01.366] - Getting '...' globals ... 1581s [00:53:01.366] resolve() on list ... 1581s [00:53:01.366] recursive: 0 1581s [00:53:01.366] length: 1 1581s [00:53:01.366] elements: ‘...’ 1581s [00:53:01.367] length: 0 (resolved future 1) 1581s [00:53:01.367] resolve() on list ... DONE 1581s [00:53:01.367] - '...' content: [n=0] 1581s [00:53:01.367] List of 1 1581s [00:53:01.367] $ ...: list() 1581s [00:53:01.367] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1581s [00:53:01.367] - attr(*, "where")=List of 1 1581s [00:53:01.367] ..$ ...: 1581s [00:53:01.367] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1581s [00:53:01.367] - attr(*, "resolved")= logi TRUE 1581s [00:53:01.367] - attr(*, "total_size")= num NA 1581s [00:53:01.370] - Getting '...' globals ... DONE 1581s [00:53:01.371] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1581s [00:53:01.371] List of 2 1581s [00:53:01.371] $ ...future.FUN:function (x, y = 2 * 1:5) 1581s [00:53:01.371] $ ... : list() 1581s [00:53:01.371] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1581s [00:53:01.371] - attr(*, "where")=List of 2 1581s [00:53:01.371] ..$ ...future.FUN: 1581s [00:53:01.371] ..$ ... : 1581s [00:53:01.371] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1581s [00:53:01.371] - attr(*, "resolved")= logi FALSE 1581s [00:53:01.371] - attr(*, "total_size")= num 4728 1581s [00:53:01.374] Packages to be attached in all futures: [n=0] 1581s [00:53:01.374] getGlobalsAndPackagesXApply() ... DONE 1581s [00:53:01.375] Number of futures (= number of chunks): 1 1581s [00:53:01.375] Launching 1 futures (chunks) ... 1581s [00:53:01.375] Chunk #1 of 1 ... 1581s [00:53:01.375] - Finding globals in 'X' for chunk #1 ... 1581s [00:53:01.375] getGlobalsAndPackages() ... 1581s [00:53:01.376] Searching for globals... 1581s [00:53:01.376] 1581s [00:53:01.376] Searching for globals ... DONE 1581s [00:53:01.376] - globals: [0] 1581s [00:53:01.376] getGlobalsAndPackages() ... DONE 1581s [00:53:01.376] + additional globals found: [n=0] 1581s [00:53:01.376] + additional namespaces needed: [n=0] 1581s [00:53:01.376] - Finding globals in 'X' for chunk #1 ... DONE 1581s [00:53:01.377] - seeds: 1581s [00:53:01.377] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1581s [00:53:01.377] getGlobalsAndPackages() ... 1581s [00:53:01.377] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1581s [00:53:01.377] Resolving globals: FALSE 1581s [00:53:01.377] Tweak future expression to call with '...' arguments ... 1581s [00:53:01.377] { 1581s [00:53:01.377] do.call(function(...) { 1581s [00:53:01.377] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1581s [00:53:01.377] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1581s [00:53:01.377] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1581s [00:53:01.377] on.exit(options(oopts), add = TRUE) 1581s [00:53:01.377] } 1581s [00:53:01.377] { 1581s [00:53:01.377] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1581s [00:53:01.377] ...future.X_jj <- ...future.elements_ii[[jj]] 1581s [00:53:01.377] ...future.FUN(...future.X_jj, ...) 1581s [00:53:01.377] }) 1581s [00:53:01.377] } 1581s [00:53:01.377] }, args = future.call.arguments) 1581s [00:53:01.377] } 1581s [00:53:01.378] Tweak future expression to call with '...' arguments ... DONE 1581s [00:53:01.378] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1581s [00:53:01.378] 1581s [00:53:01.379] getGlobalsAndPackages() ... DONE 1581s [00:53:01.379] run() for ‘Future’ ... 1581s [00:53:01.379] - state: ‘created’ 1581s [00:53:01.379] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1581s [00:53:01.383] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1581s [00:53:01.383] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1581s [00:53:01.384] - Field: ‘label’ 1581s [00:53:01.384] - Field: ‘local’ 1581s [00:53:01.384] - Field: ‘owner’ 1581s [00:53:01.384] - Field: ‘envir’ 1581s [00:53:01.384] - Field: ‘packages’ 1581s [00:53:01.385] - Field: ‘gc’ 1581s [00:53:01.385] - Field: ‘conditions’ 1581s [00:53:01.385] - Field: ‘expr’ 1581s [00:53:01.385] - Field: ‘uuid’ 1581s [00:53:01.385] - Field: ‘seed’ 1581s [00:53:01.385] - Field: ‘version’ 1581s [00:53:01.386] - Field: ‘result’ 1581s [00:53:01.386] - Field: ‘asynchronous’ 1581s [00:53:01.386] - Field: ‘calls’ 1581s [00:53:01.386] - Field: ‘globals’ 1581s [00:53:01.386] - Field: ‘stdout’ 1581s [00:53:01.387] - Field: ‘earlySignal’ 1581s [00:53:01.387] - Field: ‘lazy’ 1581s [00:53:01.387] - Field: ‘state’ 1581s [00:53:01.387] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1581s [00:53:01.387] - Launch lazy future ... 1581s [00:53:01.388] Packages needed by the future expression (n = 0): 1581s [00:53:01.388] Packages needed by future strategies (n = 0): 1581s [00:53:01.389] { 1581s [00:53:01.389] { 1581s [00:53:01.389] { 1581s [00:53:01.389] ...future.startTime <- base::Sys.time() 1581s [00:53:01.389] { 1581s [00:53:01.389] { 1581s [00:53:01.389] { 1581s [00:53:01.389] base::local({ 1581s [00:53:01.389] has_future <- base::requireNamespace("future", 1581s [00:53:01.389] quietly = TRUE) 1581s [00:53:01.389] if (has_future) { 1581s [00:53:01.389] ns <- base::getNamespace("future") 1581s [00:53:01.389] version <- ns[[".package"]][["version"]] 1581s [00:53:01.389] if (is.null(version)) 1581s [00:53:01.389] version <- utils::packageVersion("future") 1581s [00:53:01.389] } 1581s [00:53:01.389] else { 1581s [00:53:01.389] version <- NULL 1581s [00:53:01.389] } 1581s [00:53:01.389] if (!has_future || version < "1.8.0") { 1581s [00:53:01.389] info <- base::c(r_version = base::gsub("R version ", 1581s [00:53:01.389] "", base::R.version$version.string), 1581s [00:53:01.389] platform = base::sprintf("%s (%s-bit)", 1581s [00:53:01.389] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1581s [00:53:01.389] os = base::paste(base::Sys.info()[base::c("sysname", 1581s [00:53:01.389] "release", "version")], collapse = " "), 1581s [00:53:01.389] hostname = base::Sys.info()[["nodename"]]) 1581s [00:53:01.389] info <- base::sprintf("%s: %s", base::names(info), 1581s [00:53:01.389] info) 1581s [00:53:01.389] info <- base::paste(info, collapse = "; ") 1581s [00:53:01.389] if (!has_future) { 1581s [00:53:01.389] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1581s [00:53:01.389] info) 1581s [00:53:01.389] } 1581s [00:53:01.389] else { 1581s [00:53:01.389] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1581s [00:53:01.389] info, version) 1581s [00:53:01.389] } 1581s [00:53:01.389] base::stop(msg) 1581s [00:53:01.389] } 1581s [00:53:01.389] }) 1581s [00:53:01.389] } 1581s [00:53:01.389] options(future.plan = NULL) 1581s [00:53:01.389] Sys.unsetenv("R_FUTURE_PLAN") 1581s [00:53:01.389] future::plan("default", .cleanup = FALSE, .init = FALSE) 1581s [00:53:01.389] } 1581s [00:53:01.389] ...future.workdir <- getwd() 1581s [00:53:01.389] } 1581s [00:53:01.389] ...future.oldOptions <- base::as.list(base::.Options) 1581s [00:53:01.389] ...future.oldEnvVars <- base::Sys.getenv() 1581s [00:53:01.389] } 1581s [00:53:01.389] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1581s [00:53:01.389] future.globals.maxSize = NULL, future.globals.method = NULL, 1581s [00:53:01.389] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1581s [00:53:01.389] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1581s [00:53:01.389] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1581s [00:53:01.389] future.stdout.windows.reencode = NULL, width = 80L) 1581s [00:53:01.389] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1581s [00:53:01.389] base::names(...future.oldOptions)) 1581s [00:53:01.389] } 1581s [00:53:01.389] if (FALSE) { 1581s [00:53:01.389] } 1581s [00:53:01.389] else { 1581s [00:53:01.389] if (TRUE) { 1581s [00:53:01.389] ...future.stdout <- base::rawConnection(base::raw(0L), 1581s [00:53:01.389] open = "w") 1581s [00:53:01.389] } 1581s [00:53:01.389] else { 1581s [00:53:01.389] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1581s [00:53:01.389] windows = "NUL", "/dev/null"), open = "w") 1581s [00:53:01.389] } 1581s [00:53:01.389] base::sink(...future.stdout, type = "output", split = FALSE) 1581s [00:53:01.389] base::on.exit(if (!base::is.null(...future.stdout)) { 1581s [00:53:01.389] base::sink(type = "output", split = FALSE) 1581s [00:53:01.389] base::close(...future.stdout) 1581s [00:53:01.389] }, add = TRUE) 1581s [00:53:01.389] } 1581s [00:53:01.389] ...future.frame <- base::sys.nframe() 1581s [00:53:01.389] ...future.conditions <- base::list() 1581s [00:53:01.389] ...future.rng <- base::globalenv()$.Random.seed 1581s [00:53:01.389] if (FALSE) { 1581s [00:53:01.389] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1581s [00:53:01.389] "...future.value", "...future.globalenv.names", ".Random.seed") 1581s [00:53:01.389] } 1581s [00:53:01.389] ...future.result <- base::tryCatch({ 1581s [00:53:01.389] base::withCallingHandlers({ 1581s [00:53:01.389] ...future.value <- base::withVisible(base::local({ 1581s [00:53:01.389] do.call(function(...) { 1581s [00:53:01.389] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1581s [00:53:01.389] if (!identical(...future.globals.maxSize.org, 1581s [00:53:01.389] ...future.globals.maxSize)) { 1581s [00:53:01.389] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1581s [00:53:01.389] on.exit(options(oopts), add = TRUE) 1581s [00:53:01.389] } 1581s [00:53:01.389] { 1581s [00:53:01.389] lapply(seq_along(...future.elements_ii), 1581s [00:53:01.389] FUN = function(jj) { 1581s [00:53:01.389] ...future.X_jj <- ...future.elements_ii[[jj]] 1581s [00:53:01.389] ...future.FUN(...future.X_jj, ...) 1581s [00:53:01.389] }) 1581s [00:53:01.389] } 1581s [00:53:01.389] }, args = future.call.arguments) 1581s [00:53:01.389] })) 1581s [00:53:01.389] future::FutureResult(value = ...future.value$value, 1581s [00:53:01.389] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1581s [00:53:01.389] ...future.rng), globalenv = if (FALSE) 1581s [00:53:01.389] list(added = base::setdiff(base::names(base::.GlobalEnv), 1581s [00:53:01.389] ...future.globalenv.names)) 1581s [00:53:01.389] else NULL, started = ...future.startTime, version = "1.8") 1581s [00:53:01.389] }, condition = base::local({ 1581s [00:53:01.389] c <- base::c 1581s [00:53:01.389] inherits <- base::inherits 1581s [00:53:01.389] invokeRestart <- base::invokeRestart 1581s [00:53:01.389] length <- base::length 1581s [00:53:01.389] list <- base::list 1581s [00:53:01.389] seq.int <- base::seq.int 1581s [00:53:01.389] signalCondition <- base::signalCondition 1581s [00:53:01.389] sys.calls <- base::sys.calls 1581s [00:53:01.389] `[[` <- base::`[[` 1581s [00:53:01.389] `+` <- base::`+` 1581s [00:53:01.389] `<<-` <- base::`<<-` 1581s [00:53:01.389] sysCalls <- function(calls = sys.calls(), from = 1L) { 1581s [00:53:01.389] calls[seq.int(from = from + 12L, to = length(calls) - 1581s [00:53:01.389] 3L)] 1581s [00:53:01.389] } 1581s [00:53:01.389] function(cond) { 1581s [00:53:01.389] is_error <- inherits(cond, "error") 1581s [00:53:01.389] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1581s [00:53:01.389] NULL) 1581s [00:53:01.389] if (is_error) { 1581s [00:53:01.389] sessionInformation <- function() { 1581s [00:53:01.389] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1581s [00:53:01.389] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1581s [00:53:01.389] search = base::search(), system = base::Sys.info()) 1581s [00:53:01.389] } 1581s [00:53:01.389] ...future.conditions[[length(...future.conditions) + 1581s [00:53:01.389] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1581s [00:53:01.389] cond$call), session = sessionInformation(), 1581s [00:53:01.389] timestamp = base::Sys.time(), signaled = 0L) 1581s [00:53:01.389] signalCondition(cond) 1581s [00:53:01.389] } 1581s [00:53:01.389] else if (!ignore && TRUE && inherits(cond, c("condition", 1581s [00:53:01.389] "immediateCondition"))) { 1581s [00:53:01.389] signal <- TRUE && inherits(cond, "immediateCondition") 1581s [00:53:01.389] ...future.conditions[[length(...future.conditions) + 1581s [00:53:01.389] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1581s [00:53:01.389] if (TRUE && !signal) { 1581s [00:53:01.389] muffleCondition <- function (cond, pattern = "^muffle") 1581s [00:53:01.389] { 1581s [00:53:01.389] inherits <- base::inherits 1581s [00:53:01.389] invokeRestart <- base::invokeRestart 1581s [00:53:01.389] is.null <- base::is.null 1581s [00:53:01.389] muffled <- FALSE 1581s [00:53:01.389] if (inherits(cond, "message")) { 1581s [00:53:01.389] muffled <- grepl(pattern, "muffleMessage") 1581s [00:53:01.389] if (muffled) 1581s [00:53:01.389] invokeRestart("muffleMessage") 1581s [00:53:01.389] } 1581s [00:53:01.389] else if (inherits(cond, "warning")) { 1581s [00:53:01.389] muffled <- grepl(pattern, "muffleWarning") 1581s [00:53:01.389] if (muffled) 1581s [00:53:01.389] invokeRestart("muffleWarning") 1581s [00:53:01.389] } 1581s [00:53:01.389] else if (inherits(cond, "condition")) { 1581s [00:53:01.389] if (!is.null(pattern)) { 1581s [00:53:01.389] computeRestarts <- base::computeRestarts 1581s [00:53:01.389] grepl <- base::grepl 1581s [00:53:01.389] restarts <- computeRestarts(cond) 1581s [00:53:01.389] for (restart in restarts) { 1581s [00:53:01.389] name <- restart$name 1581s [00:53:01.389] if (is.null(name)) 1581s [00:53:01.389] next 1581s [00:53:01.389] if (!grepl(pattern, name)) 1581s [00:53:01.389] next 1581s [00:53:01.389] invokeRestart(restart) 1581s [00:53:01.389] muffled <- TRUE 1581s [00:53:01.389] break 1581s [00:53:01.389] } 1581s [00:53:01.389] } 1581s [00:53:01.389] } 1581s [00:53:01.389] invisible(muffled) 1581s [00:53:01.389] } 1581s [00:53:01.389] muffleCondition(cond, pattern = "^muffle") 1581s [00:53:01.389] } 1581s [00:53:01.389] } 1581s [00:53:01.389] else { 1581s [00:53:01.389] if (TRUE) { 1581s [00:53:01.389] muffleCondition <- function (cond, pattern = "^muffle") 1581s [00:53:01.389] { 1581s [00:53:01.389] inherits <- base::inherits 1581s [00:53:01.389] invokeRestart <- base::invokeRestart 1581s [00:53:01.389] is.null <- base::is.null 1581s [00:53:01.389] muffled <- FALSE 1581s [00:53:01.389] if (inherits(cond, "message")) { 1581s [00:53:01.389] muffled <- grepl(pattern, "muffleMessage") 1581s [00:53:01.389] if (muffled) 1581s [00:53:01.389] invokeRestart("muffleMessage") 1581s [00:53:01.389] } 1581s [00:53:01.389] else if (inherits(cond, "warning")) { 1581s [00:53:01.389] muffled <- grepl(pattern, "muffleWarning") 1581s [00:53:01.389] if (muffled) 1581s [00:53:01.389] invokeRestart("muffleWarning") 1581s [00:53:01.389] } 1581s [00:53:01.389] else if (inherits(cond, "condition")) { 1581s [00:53:01.389] if (!is.null(pattern)) { 1581s [00:53:01.389] computeRestarts <- base::computeRestarts 1581s [00:53:01.389] grepl <- base::grepl 1581s [00:53:01.389] restarts <- computeRestarts(cond) 1581s [00:53:01.389] for (restart in restarts) { 1581s [00:53:01.389] name <- restart$name 1581s [00:53:01.389] if (is.null(name)) 1581s [00:53:01.389] next 1581s [00:53:01.389] if (!grepl(pattern, name)) 1581s [00:53:01.389] next 1581s [00:53:01.389] invokeRestart(restart) 1581s [00:53:01.389] muffled <- TRUE 1581s [00:53:01.389] break 1581s [00:53:01.389] } 1581s [00:53:01.389] } 1581s [00:53:01.389] } 1581s [00:53:01.389] invisible(muffled) 1581s [00:53:01.389] } 1581s [00:53:01.389] muffleCondition(cond, pattern = "^muffle") 1581s [00:53:01.389] } 1581s [00:53:01.389] } 1581s [00:53:01.389] } 1581s [00:53:01.389] })) 1581s [00:53:01.389] }, error = function(ex) { 1581s [00:53:01.389] base::structure(base::list(value = NULL, visible = NULL, 1581s [00:53:01.389] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1581s [00:53:01.389] ...future.rng), started = ...future.startTime, 1581s [00:53:01.389] finished = Sys.time(), session_uuid = NA_character_, 1581s [00:53:01.389] version = "1.8"), class = "FutureResult") 1581s [00:53:01.389] }, finally = { 1581s [00:53:01.389] if (!identical(...future.workdir, getwd())) 1581s [00:53:01.389] setwd(...future.workdir) 1581s [00:53:01.389] { 1581s [00:53:01.389] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1581s [00:53:01.389] ...future.oldOptions$nwarnings <- NULL 1581s [00:53:01.389] } 1581s [00:53:01.389] base::options(...future.oldOptions) 1581s [00:53:01.389] if (.Platform$OS.type == "windows") { 1581s [00:53:01.389] old_names <- names(...future.oldEnvVars) 1581s [00:53:01.389] envs <- base::Sys.getenv() 1581s [00:53:01.389] names <- names(envs) 1581s [00:53:01.389] common <- intersect(names, old_names) 1581s [00:53:01.389] added <- setdiff(names, old_names) 1581s [00:53:01.389] removed <- setdiff(old_names, names) 1581s [00:53:01.389] changed <- common[...future.oldEnvVars[common] != 1581s [00:53:01.389] envs[common]] 1581s [00:53:01.389] NAMES <- toupper(changed) 1581s [00:53:01.389] args <- list() 1581s [00:53:01.389] for (kk in seq_along(NAMES)) { 1581s [00:53:01.389] name <- changed[[kk]] 1581s [00:53:01.389] NAME <- NAMES[[kk]] 1581s [00:53:01.389] if (name != NAME && is.element(NAME, old_names)) 1581s [00:53:01.389] next 1581s [00:53:01.389] args[[name]] <- ...future.oldEnvVars[[name]] 1581s [00:53:01.389] } 1581s [00:53:01.389] NAMES <- toupper(added) 1581s [00:53:01.389] for (kk in seq_along(NAMES)) { 1581s [00:53:01.389] name <- added[[kk]] 1581s [00:53:01.389] NAME <- NAMES[[kk]] 1581s [00:53:01.389] if (name != NAME && is.element(NAME, old_names)) 1581s [00:53:01.389] next 1581s [00:53:01.389] args[[name]] <- "" 1581s [00:53:01.389] } 1581s [00:53:01.389] NAMES <- toupper(removed) 1581s [00:53:01.389] for (kk in seq_along(NAMES)) { 1581s [00:53:01.389] name <- removed[[kk]] 1581s [00:53:01.389] NAME <- NAMES[[kk]] 1581s [00:53:01.389] if (name != NAME && is.element(NAME, old_names)) 1581s [00:53:01.389] next 1581s [00:53:01.389] args[[name]] <- ...future.oldEnvVars[[name]] 1581s [00:53:01.389] } 1581s [00:53:01.389] if (length(args) > 0) 1581s [00:53:01.389] base::do.call(base::Sys.setenv, args = args) 1581s [00:53:01.389] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1581s [00:53:01.389] } 1581s [00:53:01.389] else { 1581s [00:53:01.389] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1581s [00:53:01.389] } 1581s [00:53:01.389] { 1581s [00:53:01.389] if (base::length(...future.futureOptionsAdded) > 1581s [00:53:01.389] 0L) { 1581s [00:53:01.389] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1581s [00:53:01.389] base::names(opts) <- ...future.futureOptionsAdded 1581s [00:53:01.389] base::options(opts) 1581s [00:53:01.389] } 1581s [00:53:01.389] { 1581s [00:53:01.389] { 1581s [00:53:01.389] NULL 1581s [00:53:01.389] RNGkind("Mersenne-Twister") 1581s [00:53:01.389] base::rm(list = ".Random.seed", envir = base::globalenv(), 1581s [00:53:01.389] inherits = FALSE) 1581s [00:53:01.389] } 1581s [00:53:01.389] options(future.plan = NULL) 1581s [00:53:01.389] if (is.na(NA_character_)) 1581s [00:53:01.389] Sys.unsetenv("R_FUTURE_PLAN") 1581s [00:53:01.389] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1581s [00:53:01.389] future::plan(list(function (..., workers = availableCores(), 1581s [00:53:01.389] lazy = FALSE, rscript_libs = .libPaths(), 1581s [00:53:01.389] envir = parent.frame()) 1581s [00:53:01.389] { 1581s [00:53:01.389] if (is.function(workers)) 1581s [00:53:01.389] workers <- workers() 1581s [00:53:01.389] workers <- structure(as.integer(workers), 1581s [00:53:01.389] class = class(workers)) 1581s [00:53:01.389] stop_if_not(length(workers) == 1, is.finite(workers), 1581s [00:53:01.389] workers >= 1) 1581s [00:53:01.389] if (workers == 1L && !inherits(workers, "AsIs")) { 1581s [00:53:01.389] return(sequential(..., lazy = TRUE, envir = envir)) 1581s [00:53:01.389] } 1581s [00:53:01.389] future <- MultisessionFuture(..., workers = workers, 1581s [00:53:01.389] lazy = lazy, rscript_libs = rscript_libs, 1581s [00:53:01.389] envir = envir) 1581s [00:53:01.389] if (!future$lazy) 1581s [00:53:01.389] future <- run(future) 1581s [00:53:01.389] invisible(future) 1581s [00:53:01.389] }), .cleanup = FALSE, .init = FALSE) 1581s [00:53:01.389] } 1581s [00:53:01.389] } 1581s [00:53:01.389] } 1581s [00:53:01.389] }) 1581s [00:53:01.389] if (TRUE) { 1581s [00:53:01.389] base::sink(type = "output", split = FALSE) 1581s [00:53:01.389] if (TRUE) { 1581s [00:53:01.389] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1581s [00:53:01.389] } 1581s [00:53:01.389] else { 1581s [00:53:01.389] ...future.result["stdout"] <- base::list(NULL) 1581s [00:53:01.389] } 1581s [00:53:01.389] base::close(...future.stdout) 1581s [00:53:01.389] ...future.stdout <- NULL 1581s [00:53:01.389] } 1581s [00:53:01.389] ...future.result$conditions <- ...future.conditions 1581s [00:53:01.389] ...future.result$finished <- base::Sys.time() 1581s [00:53:01.389] ...future.result 1581s [00:53:01.389] } 1581s [00:53:01.396] assign_globals() ... 1581s [00:53:01.396] List of 5 1581s [00:53:01.396] $ ...future.FUN :function (x, y = 2 * 1:5) 1581s [00:53:01.396] $ future.call.arguments : list() 1581s [00:53:01.396] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1581s [00:53:01.396] $ ...future.elements_ii :List of 6 1581s [00:53:01.396] ..$ a1: int 1 1581s [00:53:01.396] ..$ a2: int 2 1581s [00:53:01.396] ..$ b1: int 2 1581s [00:53:01.396] ..$ b2: int 3 1581s [00:53:01.396] ..$ c1: int 3 1581s [00:53:01.396] ..$ c2: int 4 1581s [00:53:01.396] $ ...future.seeds_ii : NULL 1581s [00:53:01.396] $ ...future.globals.maxSize: NULL 1581s [00:53:01.396] - attr(*, "where")=List of 5 1581s [00:53:01.396] ..$ ...future.FUN : 1581s [00:53:01.396] ..$ future.call.arguments : 1581s [00:53:01.396] ..$ ...future.elements_ii : 1581s [00:53:01.396] ..$ ...future.seeds_ii : 1581s [00:53:01.396] ..$ ...future.globals.maxSize: 1581s [00:53:01.396] - attr(*, "resolved")= logi FALSE 1581s [00:53:01.396] - attr(*, "total_size")= num 4728 1581s [00:53:01.396] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1581s [00:53:01.396] - attr(*, "already-done")= logi TRUE 1581s [00:53:01.406] - reassign environment for ‘...future.FUN’ 1581s [00:53:01.406] - copied ‘...future.FUN’ to environment 1581s [00:53:01.407] - copied ‘future.call.arguments’ to environment 1581s [00:53:01.407] - copied ‘...future.elements_ii’ to environment 1581s [00:53:01.407] - copied ‘...future.seeds_ii’ to environment 1581s [00:53:01.407] - copied ‘...future.globals.maxSize’ to environment 1581s [00:53:01.407] assign_globals() ... done 1581s [00:53:01.408] plan(): Setting new future strategy stack: 1581s [00:53:01.408] List of future strategies: 1581s [00:53:01.408] 1. sequential: 1581s [00:53:01.408] - args: function (..., envir = parent.frame()) 1581s [00:53:01.408] - tweaked: FALSE 1581s [00:53:01.408] - call: NULL 1581s [00:53:01.408] plan(): nbrOfWorkers() = 1 1581s [00:53:01.409] plan(): Setting new future strategy stack: 1581s [00:53:01.409] List of future strategies: 1581s [00:53:01.409] 1. multisession: 1581s [00:53:01.409] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1581s [00:53:01.409] - tweaked: FALSE 1581s [00:53:01.409] - call: plan(strategy) 1581s [00:53:01.413] plan(): nbrOfWorkers() = 1 1581s [00:53:01.414] SequentialFuture started (and completed) 1581s [00:53:01.414] - Launch lazy future ... done 1581s [00:53:01.414] run() for ‘SequentialFuture’ ... done 1581s [00:53:01.414] Created future: 1581s [00:53:01.414] SequentialFuture: 1581s [00:53:01.414] Label: ‘future_sapply-1’ 1581s [00:53:01.414] Expression: 1581s [00:53:01.414] { 1581s [00:53:01.414] do.call(function(...) { 1581s [00:53:01.414] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1581s [00:53:01.414] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1581s [00:53:01.414] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1581s [00:53:01.414] on.exit(options(oopts), add = TRUE) 1581s [00:53:01.414] } 1581s [00:53:01.414] { 1581s [00:53:01.414] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1581s [00:53:01.414] ...future.X_jj <- ...future.elements_ii[[jj]] 1581s [00:53:01.414] ...future.FUN(...future.X_jj, ...) 1581s [00:53:01.414] }) 1581s [00:53:01.414] } 1581s [00:53:01.414] }, args = future.call.arguments) 1581s [00:53:01.414] } 1581s [00:53:01.414] Lazy evaluation: FALSE 1581s [00:53:01.414] Asynchronous evaluation: FALSE 1581s [00:53:01.414] Local evaluation: TRUE 1581s [00:53:01.414] Environment: R_GlobalEnv 1581s [00:53:01.414] Capture standard output: TRUE 1581s [00:53:01.414] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1581s [00:53:01.414] Globals: 5 objects totaling 4.95 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1581s [00:53:01.414] Packages: 1581s [00:53:01.414] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1581s [00:53:01.414] Resolved: TRUE 1581s [00:53:01.414] Value: 2.02 KiB of class ‘list’ 1581s [00:53:01.414] Early signaling: FALSE 1581s [00:53:01.414] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1581s [00:53:01.414] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1581s [00:53:01.417] Chunk #1 of 1 ... DONE 1581s [00:53:01.417] Launching 1 futures (chunks) ... DONE 1581s [00:53:01.417] Resolving 1 futures (chunks) ... 1581s [00:53:01.417] resolve() on list ... 1581s [00:53:01.418] recursive: 0 1581s [00:53:01.418] length: 1 1581s [00:53:01.418] 1581s [00:53:01.418] resolved() for ‘SequentialFuture’ ... 1581s [00:53:01.418] - state: ‘finished’ 1581s [00:53:01.418] - run: TRUE 1581s [00:53:01.418] - result: ‘FutureResult’ 1581s [00:53:01.418] resolved() for ‘SequentialFuture’ ... done 1581s [00:53:01.419] Future #1 1581s [00:53:01.419] signalConditionsASAP(SequentialFuture, pos=1) ... 1581s [00:53:01.419] - nx: 1 1581s [00:53:01.419] - relay: TRUE 1581s [00:53:01.419] - stdout: TRUE 1581s [00:53:01.420] - signal: TRUE 1581s [00:53:01.420] - resignal: FALSE 1581s [00:53:01.420] - force: TRUE 1581s [00:53:01.420] - relayed: [n=1] FALSE 1581s [00:53:01.421] - queued futures: [n=1] FALSE 1581s [00:53:01.421] - until=1 1581s [00:53:01.421] - relaying element #1 1581s [00:53:01.421] - relayed: [n=1] TRUE 1581s [00:53:01.422] - queued futures: [n=1] TRUE 1581s [00:53:01.422] signalConditionsASAP(SequentialFuture, pos=1) ... done 1581s [00:53:01.422] length: 0 (resolved future 1) 1581s [00:53:01.422] Relaying remaining futures 1581s [00:53:01.422] signalConditionsASAP(NULL, pos=0) ... 1581s [00:53:01.423] - nx: 1 1581s [00:53:01.423] - relay: TRUE 1581s [00:53:01.423] - stdout: TRUE 1581s [00:53:01.423] - signal: TRUE 1581s [00:53:01.423] - resignal: FALSE 1581s [00:53:01.424] - force: TRUE 1581s [00:53:01.424] - relayed: [n=1] TRUE 1581s [00:53:01.424] - queued futures: [n=1] TRUE 1581s - flush all 1581s [00:53:01.424] - relayed: [n=1] TRUE 1581s [00:53:01.424] - queued futures: [n=1] TRUE 1581s [00:53:01.424] signalConditionsASAP(NULL, pos=0) ... done 1581s [00:53:01.425] resolve() on list ... DONE 1581s [00:53:01.425] - Number of value chunks collected: 1 1581s [00:53:01.425] Resolving 1 futures (chunks) ... DONE 1581s [00:53:01.425] Reducing values from 1 chunks ... 1581s [00:53:01.426] - Number of values collected after concatenation: 6 1581s [00:53:01.426] - Number of values expected: 6 1581s [00:53:01.426] Reducing values from 1 chunks ... DONE 1581s [00:53:01.426] future_lapply() ... DONE 1581s List of 2 1581s $ y0: num [1:3, 1:5, 1:6] 2 2 2 4 4 4 6 6 6 8 ... 1581s ..- attr(*, "dimnames")=List of 3 1581s .. ..$ : NULL 1581s .. ..$ : NULL 1581s .. ..$ : chr [1:6] "a1" "a2" "b1" "b2" ... 1581s $ y1: num [1:3, 1:5, 1:6] 2 2 2 4 4 4 6 6 6 8 ... 1581s ..- attr(*, "dimnames")=List of 3 1581s .. ..$ : NULL 1581s .. ..$ : NULL 1581s .. ..$ : chr [1:6] "a1" "a2" "b1" "b2" ... 1581s [00:53:01.439] future_lapply() ... 1581s [00:53:01.443] Number of chunks: 1 1581s [00:53:01.444] getGlobalsAndPackagesXApply() ... 1581s [00:53:01.444] - future.globals: TRUE 1581s [00:53:01.445] getGlobalsAndPackages() ... 1581s [00:53:01.445] Searching for globals... 1581s [00:53:01.447] - globals found: [1] ‘FUN’ 1581s [00:53:01.447] Searching for globals ... DONE 1581s [00:53:01.447] Resolving globals: FALSE 1581s [00:53:01.448] The total size of the 1 globals is 848 bytes (848 bytes) 1581s [00:53:01.449] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1581s [00:53:01.449] - globals: [1] ‘FUN’ 1581s [00:53:01.449] 1581s [00:53:01.449] getGlobalsAndPackages() ... DONE 1581s [00:53:01.449] - globals found/used: [n=1] ‘FUN’ 1581s [00:53:01.449] - needed namespaces: [n=0] 1581s [00:53:01.450] Finding globals ... DONE 1581s [00:53:01.450] - use_args: TRUE 1581s [00:53:01.451] - Getting '...' globals ... 1581s [00:53:01.452] resolve() on list ... 1581s [00:53:01.452] recursive: 0 1581s [00:53:01.452] length: 1 1581s [00:53:01.452] elements: ‘...’ 1581s [00:53:01.452] length: 0 (resolved future 1) 1581s [00:53:01.452] resolve() on list ... DONE 1581s [00:53:01.453] - '...' content: [n=0] 1581s [00:53:01.453] List of 1 1581s [00:53:01.453] $ ...: list() 1581s [00:53:01.453] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1581s [00:53:01.453] - attr(*, "where")=List of 1 1581s [00:53:01.453] ..$ ...: 1581s [00:53:01.453] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1581s [00:53:01.453] - attr(*, "resolved")= logi TRUE 1581s [00:53:01.453] - attr(*, "total_size")= num NA 1581s [00:53:01.457] - Getting '...' globals ... DONE 1581s [00:53:01.457] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1581s [00:53:01.458] List of 2 1581s [00:53:01.458] $ ...future.FUN:function (x) 1581s [00:53:01.458] $ ... : list() 1581s [00:53:01.458] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1581s [00:53:01.458] - attr(*, "where")=List of 2 1581s [00:53:01.458] ..$ ...future.FUN: 1581s [00:53:01.458] ..$ ... : 1581s [00:53:01.458] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1581s [00:53:01.458] - attr(*, "resolved")= logi FALSE 1581s [00:53:01.458] - attr(*, "total_size")= num 848 1581s [00:53:01.462] Packages to be attached in all futures: [n=0] 1581s [00:53:01.462] getGlobalsAndPackagesXApply() ... DONE 1581s [00:53:01.462] Number of futures (= number of chunks): 1 1581s [00:53:01.462] Launching 1 futures (chunks) ... 1581s [00:53:01.463] Chunk #1 of 1 ... 1581s [00:53:01.463] - Finding globals in 'X' for chunk #1 ... 1581s [00:53:01.464] getGlobalsAndPackages() ... 1581s [00:53:01.464] Searching for globals... 1581s [00:53:01.464] 1581s [00:53:01.464] Searching for globals ... DONE 1581s [00:53:01.464] - globals: [0] 1581s [00:53:01.464] getGlobalsAndPackages() ... DONE 1581s [00:53:01.465] + additional globals found: [n=0] 1581s [00:53:01.465] + additional namespaces needed: [n=0] 1581s [00:53:01.465] - Finding globals in 'X' for chunk #1 ... DONE 1581s [00:53:01.465] - seeds: 1581s [00:53:01.465] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1581s [00:53:01.466] getGlobalsAndPackages() ... 1581s [00:53:01.466] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1581s [00:53:01.466] Resolving globals: FALSE 1581s [00:53:01.466] Tweak future expression to call with '...' arguments ... 1581s [00:53:01.466] { 1581s [00:53:01.466] do.call(function(...) { 1581s [00:53:01.466] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1581s [00:53:01.466] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1581s [00:53:01.466] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1581s [00:53:01.466] on.exit(options(oopts), add = TRUE) 1581s [00:53:01.466] } 1581s [00:53:01.466] { 1581s [00:53:01.466] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1581s [00:53:01.466] ...future.X_jj <- ...future.elements_ii[[jj]] 1581s [00:53:01.466] ...future.FUN(...future.X_jj, ...) 1581s [00:53:01.466] }) 1581s [00:53:01.466] } 1581s [00:53:01.466] }, args = future.call.arguments) 1581s [00:53:01.466] } 1581s [00:53:01.467] Tweak future expression to call with '...' arguments ... DONE 1581s [00:53:01.468] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1581s [00:53:01.468] 1581s [00:53:01.468] getGlobalsAndPackages() ... DONE 1581s [00:53:01.468] run() for ‘Future’ ... 1581s [00:53:01.469] - state: ‘created’ 1581s [00:53:01.469] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1581s [00:53:01.474] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1581s [00:53:01.474] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1581s [00:53:01.474] - Field: ‘label’ 1581s [00:53:01.475] - Field: ‘local’ 1581s [00:53:01.475] - Field: ‘owner’ 1581s [00:53:01.475] - Field: ‘envir’ 1581s [00:53:01.475] - Field: ‘packages’ 1581s [00:53:01.476] - Field: ‘gc’ 1581s [00:53:01.476] - Field: ‘conditions’ 1581s [00:53:01.476] - Field: ‘expr’ 1581s [00:53:01.476] - Field: ‘uuid’ 1581s [00:53:01.476] - Field: ‘seed’ 1581s [00:53:01.477] - Field: ‘version’ 1581s [00:53:01.477] - Field: ‘result’ 1581s [00:53:01.477] - Field: ‘asynchronous’ 1581s [00:53:01.477] - Field: ‘calls’ 1581s [00:53:01.478] - Field: ‘globals’ 1581s [00:53:01.478] - Field: ‘stdout’ 1581s [00:53:01.478] - Field: ‘earlySignal’ 1581s [00:53:01.479] - Field: ‘lazy’ 1581s [00:53:01.479] - Field: ‘state’ 1581s [00:53:01.479] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1581s [00:53:01.479] - Launch lazy future ... 1581s [00:53:01.480] Packages needed by the future expression (n = 0): 1581s [00:53:01.480] Packages needed by future strategies (n = 0): 1581s [00:53:01.481] { 1581s [00:53:01.481] { 1581s [00:53:01.481] { 1581s [00:53:01.481] ...future.startTime <- base::Sys.time() 1581s [00:53:01.481] { 1581s [00:53:01.481] { 1581s [00:53:01.481] { 1581s [00:53:01.481] base::local({ 1581s [00:53:01.481] has_future <- base::requireNamespace("future", 1581s [00:53:01.481] quietly = TRUE) 1581s [00:53:01.481] if (has_future) { 1581s [00:53:01.481] ns <- base::getNamespace("future") 1581s [00:53:01.481] version <- ns[[".package"]][["version"]] 1581s [00:53:01.481] if (is.null(version)) 1581s [00:53:01.481] version <- utils::packageVersion("future") 1581s [00:53:01.481] } 1581s [00:53:01.481] else { 1581s [00:53:01.481] version <- NULL 1581s [00:53:01.481] } 1581s [00:53:01.481] if (!has_future || version < "1.8.0") { 1581s [00:53:01.481] info <- base::c(r_version = base::gsub("R version ", 1581s [00:53:01.481] "", base::R.version$version.string), 1581s [00:53:01.481] platform = base::sprintf("%s (%s-bit)", 1581s [00:53:01.481] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1581s [00:53:01.481] os = base::paste(base::Sys.info()[base::c("sysname", 1581s [00:53:01.481] "release", "version")], collapse = " "), 1581s [00:53:01.481] hostname = base::Sys.info()[["nodename"]]) 1581s [00:53:01.481] info <- base::sprintf("%s: %s", base::names(info), 1581s [00:53:01.481] info) 1581s [00:53:01.481] info <- base::paste(info, collapse = "; ") 1581s [00:53:01.481] if (!has_future) { 1581s [00:53:01.481] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1581s [00:53:01.481] info) 1581s [00:53:01.481] } 1581s [00:53:01.481] else { 1581s [00:53:01.481] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1581s [00:53:01.481] info, version) 1581s [00:53:01.481] } 1581s [00:53:01.481] base::stop(msg) 1581s [00:53:01.481] } 1581s [00:53:01.481] }) 1581s [00:53:01.481] } 1581s [00:53:01.481] options(future.plan = NULL) 1581s [00:53:01.481] Sys.unsetenv("R_FUTURE_PLAN") 1581s [00:53:01.481] future::plan("default", .cleanup = FALSE, .init = FALSE) 1581s [00:53:01.481] } 1581s [00:53:01.481] ...future.workdir <- getwd() 1581s [00:53:01.481] } 1581s [00:53:01.481] ...future.oldOptions <- base::as.list(base::.Options) 1581s [00:53:01.481] ...future.oldEnvVars <- base::Sys.getenv() 1581s [00:53:01.481] } 1581s [00:53:01.481] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1581s [00:53:01.481] future.globals.maxSize = NULL, future.globals.method = NULL, 1581s [00:53:01.481] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1581s [00:53:01.481] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1581s [00:53:01.481] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1581s [00:53:01.481] future.stdout.windows.reencode = NULL, width = 80L) 1581s [00:53:01.481] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1581s [00:53:01.481] base::names(...future.oldOptions)) 1581s [00:53:01.481] } 1581s [00:53:01.481] if (FALSE) { 1581s [00:53:01.481] } 1581s [00:53:01.481] else { 1581s [00:53:01.481] if (TRUE) { 1581s [00:53:01.481] ...future.stdout <- base::rawConnection(base::raw(0L), 1581s [00:53:01.481] open = "w") 1581s [00:53:01.481] } 1581s [00:53:01.481] else { 1581s [00:53:01.481] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1581s [00:53:01.481] windows = "NUL", "/dev/null"), open = "w") 1581s [00:53:01.481] } 1581s [00:53:01.481] base::sink(...future.stdout, type = "output", split = FALSE) 1581s [00:53:01.481] base::on.exit(if (!base::is.null(...future.stdout)) { 1581s [00:53:01.481] base::sink(type = "output", split = FALSE) 1581s [00:53:01.481] base::close(...future.stdout) 1581s [00:53:01.481] }, add = TRUE) 1581s [00:53:01.481] } 1581s [00:53:01.481] ...future.frame <- base::sys.nframe() 1581s [00:53:01.481] ...future.conditions <- base::list() 1581s [00:53:01.481] ...future.rng <- base::globalenv()$.Random.seed 1581s [00:53:01.481] if (FALSE) { 1581s [00:53:01.481] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1581s [00:53:01.481] "...future.value", "...future.globalenv.names", ".Random.seed") 1581s [00:53:01.481] } 1581s [00:53:01.481] ...future.result <- base::tryCatch({ 1581s [00:53:01.481] base::withCallingHandlers({ 1581s [00:53:01.481] ...future.value <- base::withVisible(base::local({ 1581s [00:53:01.481] do.call(function(...) { 1581s [00:53:01.481] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1581s [00:53:01.481] if (!identical(...future.globals.maxSize.org, 1581s [00:53:01.481] ...future.globals.maxSize)) { 1581s [00:53:01.481] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1581s [00:53:01.481] on.exit(options(oopts), add = TRUE) 1581s [00:53:01.481] } 1581s [00:53:01.481] { 1581s [00:53:01.481] lapply(seq_along(...future.elements_ii), 1581s [00:53:01.481] FUN = function(jj) { 1581s [00:53:01.481] ...future.X_jj <- ...future.elements_ii[[jj]] 1581s [00:53:01.481] ...future.FUN(...future.X_jj, ...) 1581s [00:53:01.481] }) 1581s [00:53:01.481] } 1581s [00:53:01.481] }, args = future.call.arguments) 1581s [00:53:01.481] })) 1581s [00:53:01.481] future::FutureResult(value = ...future.value$value, 1581s [00:53:01.481] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1581s [00:53:01.481] ...future.rng), globalenv = if (FALSE) 1581s [00:53:01.481] list(added = base::setdiff(base::names(base::.GlobalEnv), 1581s [00:53:01.481] ...future.globalenv.names)) 1581s [00:53:01.481] else NULL, started = ...future.startTime, version = "1.8") 1581s [00:53:01.481] }, condition = base::local({ 1581s [00:53:01.481] c <- base::c 1581s [00:53:01.481] inherits <- base::inherits 1581s [00:53:01.481] invokeRestart <- base::invokeRestart 1581s [00:53:01.481] length <- base::length 1581s [00:53:01.481] list <- base::list 1581s [00:53:01.481] seq.int <- base::seq.int 1581s [00:53:01.481] signalCondition <- base::signalCondition 1581s [00:53:01.481] sys.calls <- base::sys.calls 1581s [00:53:01.481] `[[` <- base::`[[` 1581s [00:53:01.481] `+` <- base::`+` 1581s [00:53:01.481] `<<-` <- base::`<<-` 1581s [00:53:01.481] sysCalls <- function(calls = sys.calls(), from = 1L) { 1581s [00:53:01.481] calls[seq.int(from = from + 12L, to = length(calls) - 1581s [00:53:01.481] 3L)] 1581s [00:53:01.481] } 1581s [00:53:01.481] function(cond) { 1581s [00:53:01.481] is_error <- inherits(cond, "error") 1581s [00:53:01.481] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1581s [00:53:01.481] NULL) 1581s [00:53:01.481] if (is_error) { 1581s [00:53:01.481] sessionInformation <- function() { 1581s [00:53:01.481] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1581s [00:53:01.481] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1581s [00:53:01.481] search = base::search(), system = base::Sys.info()) 1581s [00:53:01.481] } 1581s [00:53:01.481] ...future.conditions[[length(...future.conditions) + 1581s [00:53:01.481] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1581s [00:53:01.481] cond$call), session = sessionInformation(), 1581s [00:53:01.481] timestamp = base::Sys.time(), signaled = 0L) 1581s [00:53:01.481] signalCondition(cond) 1581s [00:53:01.481] } 1581s [00:53:01.481] else if (!ignore && TRUE && inherits(cond, c("condition", 1581s [00:53:01.481] "immediateCondition"))) { 1581s [00:53:01.481] signal <- TRUE && inherits(cond, "immediateCondition") 1581s [00:53:01.481] ...future.conditions[[length(...future.conditions) + 1581s [00:53:01.481] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1581s [00:53:01.481] if (TRUE && !signal) { 1581s [00:53:01.481] muffleCondition <- function (cond, pattern = "^muffle") 1581s [00:53:01.481] { 1581s [00:53:01.481] inherits <- base::inherits 1581s [00:53:01.481] invokeRestart <- base::invokeRestart 1581s [00:53:01.481] is.null <- base::is.null 1581s [00:53:01.481] muffled <- FALSE 1581s [00:53:01.481] if (inherits(cond, "message")) { 1581s [00:53:01.481] muffled <- grepl(pattern, "muffleMessage") 1581s [00:53:01.481] if (muffled) 1581s [00:53:01.481] invokeRestart("muffleMessage") 1581s [00:53:01.481] } 1581s [00:53:01.481] else if (inherits(cond, "warning")) { 1581s [00:53:01.481] muffled <- grepl(pattern, "muffleWarning") 1581s [00:53:01.481] if (muffled) 1581s [00:53:01.481] invokeRestart("muffleWarning") 1581s [00:53:01.481] } 1581s [00:53:01.481] else if (inherits(cond, "condition")) { 1581s [00:53:01.481] if (!is.null(pattern)) { 1581s [00:53:01.481] computeRestarts <- base::computeRestarts 1581s [00:53:01.481] grepl <- base::grepl 1581s [00:53:01.481] restarts <- computeRestarts(cond) 1581s [00:53:01.481] for (restart in restarts) { 1581s [00:53:01.481] name <- restart$name 1581s [00:53:01.481] if (is.null(name)) 1581s [00:53:01.481] next 1581s [00:53:01.481] if (!grepl(pattern, name)) 1581s [00:53:01.481] next 1581s [00:53:01.481] invokeRestart(restart) 1581s [00:53:01.481] muffled <- TRUE 1581s [00:53:01.481] break 1581s [00:53:01.481] } 1581s [00:53:01.481] } 1581s [00:53:01.481] } 1581s [00:53:01.481] invisible(muffled) 1581s [00:53:01.481] } 1581s [00:53:01.481] muffleCondition(cond, pattern = "^muffle") 1581s [00:53:01.481] } 1581s [00:53:01.481] } 1581s [00:53:01.481] else { 1581s [00:53:01.481] if (TRUE) { 1581s [00:53:01.481] muffleCondition <- function (cond, pattern = "^muffle") 1581s [00:53:01.481] { 1581s [00:53:01.481] inherits <- base::inherits 1581s [00:53:01.481] invokeRestart <- base::invokeRestart 1581s [00:53:01.481] is.null <- base::is.null 1581s [00:53:01.481] muffled <- FALSE 1581s [00:53:01.481] if (inherits(cond, "message")) { 1581s [00:53:01.481] muffled <- grepl(pattern, "muffleMessage") 1581s [00:53:01.481] if (muffled) 1581s [00:53:01.481] invokeRestart("muffleMessage") 1581s [00:53:01.481] } 1581s [00:53:01.481] else if (inherits(cond, "warning")) { 1581s [00:53:01.481] muffled <- grepl(pattern, "muffleWarning") 1581s [00:53:01.481] if (muffled) 1581s [00:53:01.481] invokeRestart("muffleWarning") 1581s [00:53:01.481] } 1581s [00:53:01.481] else if (inherits(cond, "condition")) { 1581s [00:53:01.481] if (!is.null(pattern)) { 1581s [00:53:01.481] computeRestarts <- base::computeRestarts 1581s [00:53:01.481] grepl <- base::grepl 1581s [00:53:01.481] restarts <- computeRestarts(cond) 1581s [00:53:01.481] for (restart in restarts) { 1581s [00:53:01.481] name <- restart$name 1581s [00:53:01.481] if (is.null(name)) 1581s [00:53:01.481] next 1581s [00:53:01.481] if (!grepl(pattern, name)) 1581s [00:53:01.481] next 1581s [00:53:01.481] invokeRestart(restart) 1581s [00:53:01.481] muffled <- TRUE 1581s [00:53:01.481] break 1581s [00:53:01.481] } 1581s [00:53:01.481] } 1581s [00:53:01.481] } 1581s [00:53:01.481] invisible(muffled) 1581s [00:53:01.481] } 1581s [00:53:01.481] muffleCondition(cond, pattern = "^muffle") 1581s [00:53:01.481] } 1581s [00:53:01.481] } 1581s [00:53:01.481] } 1581s [00:53:01.481] })) 1581s [00:53:01.481] }, error = function(ex) { 1581s [00:53:01.481] base::structure(base::list(value = NULL, visible = NULL, 1581s [00:53:01.481] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1581s [00:53:01.481] ...future.rng), started = ...future.startTime, 1581s [00:53:01.481] finished = Sys.time(), session_uuid = NA_character_, 1581s [00:53:01.481] version = "1.8"), class = "FutureResult") 1581s [00:53:01.481] }, finally = { 1581s [00:53:01.481] if (!identical(...future.workdir, getwd())) 1581s [00:53:01.481] setwd(...future.workdir) 1581s [00:53:01.481] { 1581s [00:53:01.481] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1581s [00:53:01.481] ...future.oldOptions$nwarnings <- NULL 1581s [00:53:01.481] } 1581s [00:53:01.481] base::options(...future.oldOptions) 1581s [00:53:01.481] if (.Platform$OS.type == "windows") { 1581s [00:53:01.481] old_names <- names(...future.oldEnvVars) 1581s [00:53:01.481] envs <- base::Sys.getenv() 1581s [00:53:01.481] names <- names(envs) 1581s [00:53:01.481] common <- intersect(names, old_names) 1581s [00:53:01.481] added <- setdiff(names, old_names) 1581s [00:53:01.481] removed <- setdiff(old_names, names) 1581s [00:53:01.481] changed <- common[...future.oldEnvVars[common] != 1581s [00:53:01.481] envs[common]] 1581s [00:53:01.481] NAMES <- toupper(changed) 1581s [00:53:01.481] args <- list() 1581s [00:53:01.481] for (kk in seq_along(NAMES)) { 1581s [00:53:01.481] name <- changed[[kk]] 1581s [00:53:01.481] NAME <- NAMES[[kk]] 1581s [00:53:01.481] if (name != NAME && is.element(NAME, old_names)) 1581s [00:53:01.481] next 1581s [00:53:01.481] args[[name]] <- ...future.oldEnvVars[[name]] 1581s [00:53:01.481] } 1581s [00:53:01.481] NAMES <- toupper(added) 1581s [00:53:01.481] for (kk in seq_along(NAMES)) { 1581s [00:53:01.481] name <- added[[kk]] 1581s [00:53:01.481] NAME <- NAMES[[kk]] 1581s [00:53:01.481] if (name != NAME && is.element(NAME, old_names)) 1581s [00:53:01.481] next 1581s [00:53:01.481] args[[name]] <- "" 1581s [00:53:01.481] } 1581s [00:53:01.481] NAMES <- toupper(removed) 1581s [00:53:01.481] for (kk in seq_along(NAMES)) { 1581s [00:53:01.481] name <- removed[[kk]] 1581s [00:53:01.481] NAME <- NAMES[[kk]] 1581s [00:53:01.481] if (name != NAME && is.element(NAME, old_names)) 1581s [00:53:01.481] next 1581s [00:53:01.481] args[[name]] <- ...future.oldEnvVars[[name]] 1581s [00:53:01.481] } 1581s [00:53:01.481] if (length(args) > 0) 1581s [00:53:01.481] base::do.call(base::Sys.setenv, args = args) 1581s [00:53:01.481] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1581s [00:53:01.481] } 1581s [00:53:01.481] else { 1581s [00:53:01.481] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1581s [00:53:01.481] } 1581s [00:53:01.481] { 1581s [00:53:01.481] if (base::length(...future.futureOptionsAdded) > 1581s [00:53:01.481] 0L) { 1581s [00:53:01.481] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1581s [00:53:01.481] base::names(opts) <- ...future.futureOptionsAdded 1581s [00:53:01.481] base::options(opts) 1581s [00:53:01.481] } 1581s [00:53:01.481] { 1581s [00:53:01.481] { 1581s [00:53:01.481] NULL 1581s [00:53:01.481] RNGkind("Mersenne-Twister") 1581s [00:53:01.481] base::rm(list = ".Random.seed", envir = base::globalenv(), 1581s [00:53:01.481] inherits = FALSE) 1581s [00:53:01.481] } 1581s [00:53:01.481] options(future.plan = NULL) 1581s [00:53:01.481] if (is.na(NA_character_)) 1581s [00:53:01.481] Sys.unsetenv("R_FUTURE_PLAN") 1581s [00:53:01.481] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1581s [00:53:01.481] future::plan(list(function (..., workers = availableCores(), 1581s [00:53:01.481] lazy = FALSE, rscript_libs = .libPaths(), 1581s [00:53:01.481] envir = parent.frame()) 1581s [00:53:01.481] { 1581s [00:53:01.481] if (is.function(workers)) 1581s [00:53:01.481] workers <- workers() 1581s [00:53:01.481] workers <- structure(as.integer(workers), 1581s [00:53:01.481] class = class(workers)) 1581s [00:53:01.481] stop_if_not(length(workers) == 1, is.finite(workers), 1581s [00:53:01.481] workers >= 1) 1581s [00:53:01.481] if (workers == 1L && !inherits(workers, "AsIs")) { 1581s [00:53:01.481] return(sequential(..., lazy = TRUE, envir = envir)) 1581s [00:53:01.481] } 1581s [00:53:01.481] future <- MultisessionFuture(..., workers = workers, 1581s [00:53:01.481] lazy = lazy, rscript_libs = rscript_libs, 1581s [00:53:01.481] envir = envir) 1581s [00:53:01.481] if (!future$lazy) 1581s [00:53:01.481] future <- run(future) 1581s [00:53:01.481] invisible(future) 1581s [00:53:01.481] }), .cleanup = FALSE, .init = FALSE) 1581s [00:53:01.481] } 1581s [00:53:01.481] } 1581s [00:53:01.481] } 1581s [00:53:01.481] }) 1581s [00:53:01.481] if (TRUE) { 1581s [00:53:01.481] base::sink(type = "output", split = FALSE) 1581s [00:53:01.481] if (TRUE) { 1581s [00:53:01.481] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1581s [00:53:01.481] } 1581s [00:53:01.481] else { 1581s [00:53:01.481] ...future.result["stdout"] <- base::list(NULL) 1581s [00:53:01.481] } 1581s [00:53:01.481] base::close(...future.stdout) 1581s [00:53:01.481] ...future.stdout <- NULL 1581s [00:53:01.481] } 1581s [00:53:01.481] ...future.result$conditions <- ...future.conditions 1581s [00:53:01.481] ...future.result$finished <- base::Sys.time() 1581s [00:53:01.481] ...future.result 1581s [00:53:01.481] } 1581s [00:53:01.489] assign_globals() ... 1581s [00:53:01.489] List of 5 1581s [00:53:01.489] $ ...future.FUN :function (x) 1581s [00:53:01.489] $ future.call.arguments : list() 1581s [00:53:01.489] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1581s [00:53:01.489] $ ...future.elements_ii :List of 6 1581s [00:53:01.489] ..$ a1: int 1 1581s [00:53:01.489] ..$ a2: int 2 1581s [00:53:01.489] ..$ b1: int 2 1581s [00:53:01.489] ..$ b2: int 3 1581s [00:53:01.489] ..$ c1: int 3 1581s [00:53:01.489] ..$ c2: int 4 1581s [00:53:01.489] $ ...future.seeds_ii : NULL 1581s [00:53:01.489] $ ...future.globals.maxSize: NULL 1581s [00:53:01.489] - attr(*, "where")=List of 5 1581s [00:53:01.489] ..$ ...future.FUN : 1581s [00:53:01.489] ..$ future.call.arguments : 1581s [00:53:01.489] ..$ ...future.elements_ii : 1581s [00:53:01.489] ..$ ...future.seeds_ii : 1581s [00:53:01.489] ..$ ...future.globals.maxSize: 1581s [00:53:01.489] - attr(*, "resolved")= logi FALSE 1581s [00:53:01.489] - attr(*, "total_size")= num 848 1581s [00:53:01.489] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1581s [00:53:01.489] - attr(*, "already-done")= logi TRUE 1581s [00:53:01.497] - copied ‘...future.FUN’ to environment 1581s [00:53:01.498] - copied ‘future.call.arguments’ to environment 1581s [00:53:01.498] - copied ‘...future.elements_ii’ to environment 1581s [00:53:01.498] - copied ‘...future.seeds_ii’ to environment 1581s [00:53:01.498] - copied ‘...future.globals.maxSize’ to environment 1581s [00:53:01.498] assign_globals() ... done 1581s [00:53:01.499] plan(): Setting new future strategy stack: 1581s [00:53:01.499] List of future strategies: 1581s [00:53:01.499] 1. sequential: 1581s [00:53:01.499] - args: function (..., envir = parent.frame()) 1581s [00:53:01.499] - tweaked: FALSE 1581s [00:53:01.499] - call: NULL 1581s [00:53:01.499] plan(): nbrOfWorkers() = 1 1581s [00:53:01.500] plan(): Setting new future strategy stack: 1581s [00:53:01.500] List of future strategies: 1581s [00:53:01.500] 1. multisession: 1581s [00:53:01.500] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1581s [00:53:01.500] - tweaked: FALSE 1581s [00:53:01.500] - call: plan(strategy) 1581s [00:53:01.504] plan(): nbrOfWorkers() = 1 1581s [00:53:01.505] SequentialFuture started (and completed) 1581s [00:53:01.505] - Launch lazy future ... done 1581s [00:53:01.505] run() for ‘SequentialFuture’ ... done 1581s [00:53:01.505] Created future: 1581s [00:53:01.506] SequentialFuture: 1581s [00:53:01.506] Label: ‘future_sapply-1’ 1581s [00:53:01.506] Expression: 1581s [00:53:01.506] { 1581s [00:53:01.506] do.call(function(...) { 1581s [00:53:01.506] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1581s [00:53:01.506] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1581s [00:53:01.506] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1581s [00:53:01.506] on.exit(options(oopts), add = TRUE) 1581s [00:53:01.506] } 1581s [00:53:01.506] { 1581s [00:53:01.506] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1581s [00:53:01.506] ...future.X_jj <- ...future.elements_ii[[jj]] 1581s [00:53:01.506] ...future.FUN(...future.X_jj, ...) 1581s [00:53:01.506] }) 1581s [00:53:01.506] } 1581s [00:53:01.506] }, args = future.call.arguments) 1581s [00:53:01.506] } 1581s [00:53:01.506] Lazy evaluation: FALSE 1581s [00:53:01.506] Asynchronous evaluation: FALSE 1581s [00:53:01.506] Local evaluation: TRUE 1581s [00:53:01.506] Environment: R_GlobalEnv 1581s [00:53:01.506] Capture standard output: TRUE 1581s [00:53:01.506] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1581s [00:53:01.506] Globals: 5 objects totaling 1.16 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1581s [00:53:01.506] Packages: 1581s [00:53:01.506] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1581s [00:53:01.506] Resolved: TRUE 1581s [00:53:01.506] Value: 336 bytes of class ‘list’ 1581s [00:53:01.506] Early signaling: FALSE 1581s [00:53:01.506] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1581s [00:53:01.506] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1581s [00:53:01.508] Chunk #1 of 1 ... DONE 1581s [00:53:01.508] Launching 1 futures (chunks) ... DONE 1581s [00:53:01.508] Resolving 1 futures (chunks) ... 1581s [00:53:01.509] resolve() on list ... 1581s [00:53:01.509] recursive: 0 1581s [00:53:01.509] length: 1 1581s [00:53:01.509] 1581s [00:53:01.509] resolved() for ‘SequentialFuture’ ... 1581s [00:53:01.509] - state: ‘finished’ 1581s [00:53:01.509] - run: TRUE 1581s [00:53:01.509] - result: ‘FutureResult’ 1581s [00:53:01.510] resolved() for ‘SequentialFuture’ ... done 1581s [00:53:01.510] Future #1 1581s [00:53:01.510] signalConditionsASAP(SequentialFuture, pos=1) ... 1581s [00:53:01.510] - nx: 1 1581s [00:53:01.510] - relay: TRUE 1581s [00:53:01.511] - stdout: TRUE 1581s [00:53:01.511] - signal: TRUE 1581s [00:53:01.511] - resignal: FALSE 1581s [00:53:01.511] - force: TRUE 1581s [00:53:01.511] - relayed: [n=1] FALSE 1581s [00:53:01.511] - queued futures: [n=1] FALSE 1581s [00:53:01.512] - until=1 1581s List of 2 1581s $ y0:List[00:53:01.512] - relaying element #1 1581s [00:53:01.512] - relayed: [n=1] TRUE 1581s [00:53:01.512] - queued futures: [n=1] TRUE 1581s [00:53:01.513] signalConditionsASAP(SequentialFuture, pos=1) ... done 1581s [00:53:01.513] length: 0 (resolved future 1) 1581s [00:53:01.513] Relaying remaining futures 1581s [00:53:01.513] signalConditionsASAP(NULL, pos=0) ... 1581s [00:53:01.513] - nx: 1 1581s [00:53:01.513] - relay: TRUE 1581s [00:53:01.514] - stdout: TRUE 1581s [00:53:01.514] - signal: TRUE 1581s [00:53:01.514] - resignal: FALSE 1581s [00:53:01.514] - force: TRUE 1581s [00:53:01.514] - relayed: [n=1] TRUE 1581s [00:53:01.514] - queued futures: [n=1] TRUE 1581s - flush all 1581s [00:53:01.515] - relayed: [n=1] TRUE 1581s [00:53:01.515] - queued futures: [n=1] TRUE 1581s [00:53:01.515] signalConditionsASAP(NULL, pos=0) ... done 1581s [00:53:01.515] resolve() on list ... DONE 1581s [00:53:01.516] - Number of value chunks collected: 1 1581s [00:53:01.516] Resolving 1 futures (chunks) ... DONE 1581s [00:53:01.516] Reducing values from 1 chunks ... 1581s [00:53:01.516] - Number of values collected after concatenation: 6 1581s [00:53:01.516] - Number of values expected: 6 1581s [00:53:01.516] Reducing values from 1 chunks ... DONE 1581s [00:53:01.516] future_lapply() ... DONE 1581s of 6 1581s ..$ a1: int 1 1581s ..$ a2: int 2 1581s ..$ b1: int 2 1581s ..$ b2: int 3 1581s ..$ c1: int 3 1581s ..$ c2: int 4 1581s $ y1:List of 6 1581s ..$ a1: int 1 1581s ..$ a2: int 2 1581s ..$ b1: int 2 1581s ..$ b2: int 3 1581s ..$ c1: int 3 1581s ..$ c2: int 4 1581s List of 2 1581s $ y0:List of 6 1581s ..$ a1: int 1 1581s ..$ a2: int 2 1581s ..$ b1: int 2 1581s ..$ b2: int 3 1581s ..$ c1: int 3 1581s ..$ c2: int 4 1581s $ y2:List of 6 1581s ..$ a1: int 1 1581s ..$ a2: int 2 1581s ..$ b1: int 2 1581s ..$ b2: int 3 1581s ..$ c1: int 3 1581s ..$ c2: int 4 1581s [00:53:01.537] future_lapply() ... 1581s [00:53:01.542] Number of chunks: 1 1581s [00:53:01.542] getGlobalsAndPackagesXApply() ... 1581s [00:53:01.542] - future.globals: TRUE 1581s [00:53:01.542] getGlobalsAndPackages() ... 1581s [00:53:01.542] Searching for globals... 1581s [00:53:01.545] - globals found: [2] ‘FUN’, ‘UseMethod’ 1581s [00:53:01.546] Searching for globals ... DONE 1581s [00:53:01.546] Resolving globals: FALSE 1581s [00:53:01.547] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1581s [00:53:01.547] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1581s [00:53:01.548] - globals: [1] ‘FUN’ 1581s [00:53:01.548] 1581s [00:53:01.548] getGlobalsAndPackages() ... DONE 1581s [00:53:01.549] - globals found/used: [n=1] ‘FUN’ 1581s [00:53:01.549] - needed namespaces: [n=0] 1581s [00:53:01.549] Finding globals ... DONE 1581s [00:53:01.549] - use_args: TRUE 1581s [00:53:01.549] - Getting '...' globals ... 1581s [00:53:01.551] resolve() on list ... 1581s [00:53:01.551] recursive: 0 1581s [00:53:01.552] length: 1 1581s [00:53:01.552] elements: ‘...’ 1581s [00:53:01.552] length: 0 (resolved future 1) 1581s [00:53:01.552] resolve() on list ... DONE 1581s [00:53:01.552] - '...' content: [n=0] 1581s [00:53:01.553] List of 1 1581s [00:53:01.553] $ ...: list() 1581s [00:53:01.553] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1581s [00:53:01.553] - attr(*, "where")=List of 1 1581s [00:53:01.553] ..$ ...: 1581s [00:53:01.553] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1581s [00:53:01.553] - attr(*, "resolved")= logi TRUE 1581s [00:53:01.553] - attr(*, "total_size")= num NA 1581s [00:53:01.558] - Getting '...' globals ... DONE 1581s [00:53:01.559] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1581s [00:53:01.559] List of 2 1581s [00:53:01.559] $ ...future.FUN:function (x, ...) 1581s [00:53:01.559] $ ... : list() 1581s [00:53:01.559] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1581s [00:53:01.559] - attr(*, "where")=List of 2 1581s [00:53:01.559] ..$ ...future.FUN: 1581s [00:53:01.559] ..$ ... : 1581s [00:53:01.559] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1581s [00:53:01.559] - attr(*, "resolved")= logi FALSE 1581s [00:53:01.559] - attr(*, "total_size")= num 1248 1581s [00:53:01.566] Packages to be attached in all futures: [n=0] 1581s [00:53:01.566] getGlobalsAndPackagesXApply() ... DONE 1581s [00:53:01.566] Number of futures (= number of chunks): 1 1581s [00:53:01.566] Launching 1 futures (chunks) ... 1581s [00:53:01.567] Chunk #1 of 1 ... 1581s [00:53:01.568] - Finding globals in 'X' for chunk #1 ... 1581s [00:53:01.568] getGlobalsAndPackages() ... 1581s [00:53:01.568] Searching for globals... 1581s [00:53:01.569] 1581s [00:53:01.569] Searching for globals ... DONE 1581s [00:53:01.569] - globals: [0] 1581s [00:53:01.569] getGlobalsAndPackages() ... DONE 1581s [00:53:01.569] + additional globals found: [n=0] 1581s [00:53:01.576] + additional namespaces needed: [n=0] 1581s [00:53:01.577] - Finding globals in 'X' for chunk #1 ... DONE 1581s [00:53:01.577] - seeds: 1581s [00:53:01.578] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1581s [00:53:01.578] getGlobalsAndPackages() ... 1581s List of 2 1581s $ y0:List of 6 1581s ..$ a1: int [1, 1] 1 1581s ..$ a2: int [1, 1] 2 1581s ..$ b1: int [1, 1] 2 1581s ..$ b2: int [1, 1] 3 1581s ..$ c1: int [1, 1] 3 1581s ..$ c2: int [1, 1] 4 1581s $ y1:List of 6 1581s ..$ a1: int [1, 1] 1 1581s ..$ a2: int [1, 1] 2 1581s ..$ b1: int [1, 1] 2 1581s ..$ b2: int [1, 1] 3 1581s ..$ c1: int [1, 1] 3 1581s ..$ c2: int [1, 1] 4 1581s List of 2 1581s $ y0:List of 6 1581s ..$ a1: int [1, 1] 1 1581s ..$ a2: int [1, 1] 2 1581s ..$ b1: int [1, 1] 2 1581s ..$ b2: int [1, 1] 3 1581s ..$ c1: int [1, 1] 3 1581s ..$ c2: int [1, 1] 4 1581s $ y2:List of 6 1581s ..$ a1: int [1, 1] 1 1581s ..$ a2: int [1, 1] 2 1581s ..$ b1: int [1, 1] 2 1581s ..$ b2: int [1, 1] 3 1581s ..$ c1: int [1, 1] 3 1581s ..$ c2: int [1, 1] 4 1581s [00:53:01.578] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1581s [00:53:01.578] Resolving globals: FALSE 1581s [00:53:01.578] Tweak future expression to call with '...' arguments ... 1581s [00:53:01.579] { 1581s [00:53:01.579] do.call(function(...) { 1581s [00:53:01.579] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1581s [00:53:01.579] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1581s [00:53:01.579] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1581s [00:53:01.579] on.exit(options(oopts), add = TRUE) 1581s [00:53:01.579] } 1581s [00:53:01.579] { 1581s [00:53:01.579] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1581s [00:53:01.579] ...future.X_jj <- ...future.elements_ii[[jj]] 1581s [00:53:01.579] ...future.FUN(...future.X_jj, ...) 1581s [00:53:01.579] }) 1581s [00:53:01.579] } 1581s [00:53:01.579] }, args = future.call.arguments) 1581s [00:53:01.579] } 1581s [00:53:01.579] Tweak future expression to call with '...' arguments ... DONE 1581s [00:53:01.580] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1581s [00:53:01.581] 1581s [00:53:01.581] getGlobalsAndPackages() ... DONE 1581s [00:53:01.582] run() for ‘Future’ ... 1581s [00:53:01.582] - state: ‘created’ 1581s [00:53:01.582] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1581s [00:53:01.587] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1581s [00:53:01.587] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1581s [00:53:01.587] - Field: ‘label’ 1581s [00:53:01.587] - Field: ‘local’ 1581s [00:53:01.588] - Field: ‘owner’ 1581s [00:53:01.588] - Field: ‘envir’ 1581s [00:53:01.588] - Field: ‘packages’ 1581s [00:53:01.588] - Field: ‘gc’ 1581s [00:53:01.588] - Field: ‘conditions’ 1581s [00:53:01.589] - Field: ‘expr’ 1581s [00:53:01.589] - Field: ‘uuid’ 1581s [00:53:01.589] - Field: ‘seed’ 1581s [00:53:01.589] - Field: ‘version’ 1581s [00:53:01.589] - Field: ‘result’ 1581s [00:53:01.590] - Field: ‘asynchronous’ 1581s [00:53:01.590] - Field: ‘calls’ 1581s [00:53:01.590] - Field: ‘globals’ 1581s [00:53:01.591] - Field: ‘stdout’ 1581s [00:53:01.591] - Field: ‘earlySignal’ 1581s [00:53:01.591] - Field: ‘lazy’ 1581s [00:53:01.591] - Field: ‘state’ 1581s [00:53:01.591] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1581s [00:53:01.591] - Launch lazy future ... 1581s [00:53:01.592] Packages needed by the future expression (n = 0): 1581s [00:53:01.592] Packages needed by future strategies (n = 0): 1581s [00:53:01.593] { 1581s [00:53:01.593] { 1581s [00:53:01.593] { 1581s [00:53:01.593] ...future.startTime <- base::Sys.time() 1581s [00:53:01.593] { 1581s [00:53:01.593] { 1581s [00:53:01.593] { 1581s [00:53:01.593] base::local({ 1581s [00:53:01.593] has_future <- base::requireNamespace("future", 1581s [00:53:01.593] quietly = TRUE) 1581s [00:53:01.593] if (has_future) { 1581s [00:53:01.593] ns <- base::getNamespace("future") 1581s [00:53:01.593] version <- ns[[".package"]][["version"]] 1581s [00:53:01.593] if (is.null(version)) 1581s [00:53:01.593] version <- utils::packageVersion("future") 1581s [00:53:01.593] } 1581s [00:53:01.593] else { 1581s [00:53:01.593] version <- NULL 1581s [00:53:01.593] } 1581s [00:53:01.593] if (!has_future || version < "1.8.0") { 1581s [00:53:01.593] info <- base::c(r_version = base::gsub("R version ", 1581s [00:53:01.593] "", base::R.version$version.string), 1581s [00:53:01.593] platform = base::sprintf("%s (%s-bit)", 1581s [00:53:01.593] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1581s [00:53:01.593] os = base::paste(base::Sys.info()[base::c("sysname", 1581s [00:53:01.593] "release", "version")], collapse = " "), 1581s [00:53:01.593] hostname = base::Sys.info()[["nodename"]]) 1581s [00:53:01.593] info <- base::sprintf("%s: %s", base::names(info), 1581s [00:53:01.593] info) 1581s [00:53:01.593] info <- base::paste(info, collapse = "; ") 1581s [00:53:01.593] if (!has_future) { 1581s [00:53:01.593] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1581s [00:53:01.593] info) 1581s [00:53:01.593] } 1581s [00:53:01.593] else { 1581s [00:53:01.593] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1581s [00:53:01.593] info, version) 1581s [00:53:01.593] } 1581s [00:53:01.593] base::stop(msg) 1581s [00:53:01.593] } 1581s [00:53:01.593] }) 1581s [00:53:01.593] } 1581s [00:53:01.593] options(future.plan = NULL) 1581s [00:53:01.593] Sys.unsetenv("R_FUTURE_PLAN") 1581s [00:53:01.593] future::plan("default", .cleanup = FALSE, .init = FALSE) 1581s [00:53:01.593] } 1581s [00:53:01.593] ...future.workdir <- getwd() 1581s [00:53:01.593] } 1581s [00:53:01.593] ...future.oldOptions <- base::as.list(base::.Options) 1581s [00:53:01.593] ...future.oldEnvVars <- base::Sys.getenv() 1581s [00:53:01.593] } 1581s [00:53:01.593] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1581s [00:53:01.593] future.globals.maxSize = NULL, future.globals.method = NULL, 1581s [00:53:01.593] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1581s [00:53:01.593] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1581s [00:53:01.593] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1581s [00:53:01.593] future.stdout.windows.reencode = NULL, width = 80L) 1581s [00:53:01.593] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1581s [00:53:01.593] base::names(...future.oldOptions)) 1581s [00:53:01.593] } 1581s [00:53:01.593] if (FALSE) { 1581s [00:53:01.593] } 1581s [00:53:01.593] else { 1581s [00:53:01.593] if (TRUE) { 1581s [00:53:01.593] ...future.stdout <- base::rawConnection(base::raw(0L), 1581s [00:53:01.593] open = "w") 1581s [00:53:01.593] } 1581s [00:53:01.593] else { 1581s [00:53:01.593] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1581s [00:53:01.593] windows = "NUL", "/dev/null"), open = "w") 1581s [00:53:01.593] } 1581s [00:53:01.593] base::sink(...future.stdout, type = "output", split = FALSE) 1581s [00:53:01.593] base::on.exit(if (!base::is.null(...future.stdout)) { 1581s [00:53:01.593] base::sink(type = "output", split = FALSE) 1581s [00:53:01.593] base::close(...future.stdout) 1581s [00:53:01.593] }, add = TRUE) 1581s [00:53:01.593] } 1581s [00:53:01.593] ...future.frame <- base::sys.nframe() 1581s [00:53:01.593] ...future.conditions <- base::list() 1581s [00:53:01.593] ...future.rng <- base::globalenv()$.Random.seed 1581s [00:53:01.593] if (FALSE) { 1581s [00:53:01.593] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1581s [00:53:01.593] "...future.value", "...future.globalenv.names", ".Random.seed") 1581s [00:53:01.593] } 1581s [00:53:01.593] ...future.result <- base::tryCatch({ 1581s [00:53:01.593] base::withCallingHandlers({ 1581s [00:53:01.593] ...future.value <- base::withVisible(base::local({ 1581s [00:53:01.593] do.call(function(...) { 1581s [00:53:01.593] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1581s [00:53:01.593] if (!identical(...future.globals.maxSize.org, 1581s [00:53:01.593] ...future.globals.maxSize)) { 1581s [00:53:01.593] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1581s [00:53:01.593] on.exit(options(oopts), add = TRUE) 1581s [00:53:01.593] } 1581s [00:53:01.593] { 1581s [00:53:01.593] lapply(seq_along(...future.elements_ii), 1581s [00:53:01.593] FUN = function(jj) { 1581s [00:53:01.593] ...future.X_jj <- ...future.elements_ii[[jj]] 1581s [00:53:01.593] ...future.FUN(...future.X_jj, ...) 1581s [00:53:01.593] }) 1581s [00:53:01.593] } 1581s [00:53:01.593] }, args = future.call.arguments) 1581s [00:53:01.593] })) 1581s [00:53:01.593] future::FutureResult(value = ...future.value$value, 1581s [00:53:01.593] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1581s [00:53:01.593] ...future.rng), globalenv = if (FALSE) 1581s [00:53:01.593] list(added = base::setdiff(base::names(base::.GlobalEnv), 1581s [00:53:01.593] ...future.globalenv.names)) 1581s [00:53:01.593] else NULL, started = ...future.startTime, version = "1.8") 1581s [00:53:01.593] }, condition = base::local({ 1581s [00:53:01.593] c <- base::c 1581s [00:53:01.593] inherits <- base::inherits 1581s [00:53:01.593] invokeRestart <- base::invokeRestart 1581s [00:53:01.593] length <- base::length 1581s [00:53:01.593] list <- base::list 1581s [00:53:01.593] seq.int <- base::seq.int 1581s [00:53:01.593] signalCondition <- base::signalCondition 1581s [00:53:01.593] sys.calls <- base::sys.calls 1581s [00:53:01.593] `[[` <- base::`[[` 1581s [00:53:01.593] `+` <- base::`+` 1581s [00:53:01.593] `<<-` <- base::`<<-` 1581s [00:53:01.593] sysCalls <- function(calls = sys.calls(), from = 1L) { 1581s [00:53:01.593] calls[seq.int(from = from + 12L, to = length(calls) - 1581s [00:53:01.593] 3L)] 1581s [00:53:01.593] } 1581s [00:53:01.593] function(cond) { 1581s [00:53:01.593] is_error <- inherits(cond, "error") 1581s [00:53:01.593] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1581s [00:53:01.593] NULL) 1581s [00:53:01.593] if (is_error) { 1581s [00:53:01.593] sessionInformation <- function() { 1581s [00:53:01.593] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1581s [00:53:01.593] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1581s [00:53:01.593] search = base::search(), system = base::Sys.info()) 1581s [00:53:01.593] } 1581s [00:53:01.593] ...future.conditions[[length(...future.conditions) + 1581s [00:53:01.593] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1581s [00:53:01.593] cond$call), session = sessionInformation(), 1581s [00:53:01.593] timestamp = base::Sys.time(), signaled = 0L) 1581s [00:53:01.593] signalCondition(cond) 1581s [00:53:01.593] } 1581s [00:53:01.593] else if (!ignore && TRUE && inherits(cond, c("condition", 1581s [00:53:01.593] "immediateCondition"))) { 1581s [00:53:01.593] signal <- TRUE && inherits(cond, "immediateCondition") 1581s [00:53:01.593] ...future.conditions[[length(...future.conditions) + 1581s [00:53:01.593] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1581s [00:53:01.593] if (TRUE && !signal) { 1581s [00:53:01.593] muffleCondition <- function (cond, pattern = "^muffle") 1581s [00:53:01.593] { 1581s [00:53:01.593] inherits <- base::inherits 1581s [00:53:01.593] invokeRestart <- base::invokeRestart 1581s [00:53:01.593] is.null <- base::is.null 1581s [00:53:01.593] muffled <- FALSE 1581s [00:53:01.593] if (inherits(cond, "message")) { 1581s [00:53:01.593] muffled <- grepl(pattern, "muffleMessage") 1581s [00:53:01.593] if (muffled) 1581s [00:53:01.593] invokeRestart("muffleMessage") 1581s [00:53:01.593] } 1581s [00:53:01.593] else if (inherits(cond, "warning")) { 1581s [00:53:01.593] muffled <- grepl(pattern, "muffleWarning") 1581s [00:53:01.593] if (muffled) 1581s [00:53:01.593] invokeRestart("muffleWarning") 1581s [00:53:01.593] } 1581s [00:53:01.593] else if (inherits(cond, "condition")) { 1581s [00:53:01.593] if (!is.null(pattern)) { 1581s [00:53:01.593] computeRestarts <- base::computeRestarts 1581s [00:53:01.593] grepl <- base::grepl 1581s [00:53:01.593] restarts <- computeRestarts(cond) 1581s [00:53:01.593] for (restart in restarts) { 1581s [00:53:01.593] name <- restart$name 1581s [00:53:01.593] if (is.null(name)) 1581s [00:53:01.593] next 1581s [00:53:01.593] if (!grepl(pattern, name)) 1581s [00:53:01.593] next 1581s [00:53:01.593] invokeRestart(restart) 1581s [00:53:01.593] muffled <- TRUE 1581s [00:53:01.593] break 1581s [00:53:01.593] } 1581s [00:53:01.593] } 1581s [00:53:01.593] } 1581s [00:53:01.593] invisible(muffled) 1581s [00:53:01.593] } 1581s [00:53:01.593] muffleCondition(cond, pattern = "^muffle") 1581s [00:53:01.593] } 1581s [00:53:01.593] } 1581s [00:53:01.593] else { 1581s [00:53:01.593] if (TRUE) { 1581s [00:53:01.593] muffleCondition <- function (cond, pattern = "^muffle") 1581s [00:53:01.593] { 1581s [00:53:01.593] inherits <- base::inherits 1581s [00:53:01.593] invokeRestart <- base::invokeRestart 1581s [00:53:01.593] is.null <- base::is.null 1581s [00:53:01.593] muffled <- FALSE 1581s [00:53:01.593] if (inherits(cond, "message")) { 1581s [00:53:01.593] muffled <- grepl(pattern, "muffleMessage") 1581s [00:53:01.593] if (muffled) 1581s [00:53:01.593] invokeRestart("muffleMessage") 1581s [00:53:01.593] } 1581s [00:53:01.593] else if (inherits(cond, "warning")) { 1581s [00:53:01.593] muffled <- grepl(pattern, "muffleWarning") 1581s [00:53:01.593] if (muffled) 1581s [00:53:01.593] invokeRestart("muffleWarning") 1581s [00:53:01.593] } 1581s [00:53:01.593] else if (inherits(cond, "condition")) { 1581s [00:53:01.593] if (!is.null(pattern)) { 1581s [00:53:01.593] computeRestarts <- base::computeRestarts 1581s [00:53:01.593] grepl <- base::grepl 1581s [00:53:01.593] restarts <- computeRestarts(cond) 1581s [00:53:01.593] for (restart in restarts) { 1581s [00:53:01.593] name <- restart$name 1581s [00:53:01.593] if (is.null(name)) 1581s [00:53:01.593] next 1581s [00:53:01.593] if (!grepl(pattern, name)) 1581s [00:53:01.593] next 1581s [00:53:01.593] invokeRestart(restart) 1581s [00:53:01.593] muffled <- TRUE 1581s [00:53:01.593] break 1581s [00:53:01.593] } 1581s [00:53:01.593] } 1581s [00:53:01.593] } 1581s [00:53:01.593] invisible(muffled) 1581s [00:53:01.593] } 1581s [00:53:01.593] muffleCondition(cond, pattern = "^muffle") 1581s [00:53:01.593] } 1581s [00:53:01.593] } 1581s [00:53:01.593] } 1581s [00:53:01.593] })) 1581s [00:53:01.593] }, error = function(ex) { 1581s [00:53:01.593] base::structure(base::list(value = NULL, visible = NULL, 1581s [00:53:01.593] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1581s [00:53:01.593] ...future.rng), started = ...future.startTime, 1581s [00:53:01.593] finished = Sys.time(), session_uuid = NA_character_, 1581s [00:53:01.593] version = "1.8"), class = "FutureResult") 1581s [00:53:01.593] }, finally = { 1581s [00:53:01.593] if (!identical(...future.workdir, getwd())) 1581s [00:53:01.593] setwd(...future.workdir) 1581s [00:53:01.593] { 1581s [00:53:01.593] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1581s [00:53:01.593] ...future.oldOptions$nwarnings <- NULL 1581s [00:53:01.593] } 1581s [00:53:01.593] base::options(...future.oldOptions) 1581s [00:53:01.593] if (.Platform$OS.type == "windows") { 1581s [00:53:01.593] old_names <- names(...future.oldEnvVars) 1581s [00:53:01.593] envs <- base::Sys.getenv() 1581s [00:53:01.593] names <- names(envs) 1581s [00:53:01.593] common <- intersect(names, old_names) 1581s [00:53:01.593] added <- setdiff(names, old_names) 1581s [00:53:01.593] removed <- setdiff(old_names, names) 1581s [00:53:01.593] changed <- common[...future.oldEnvVars[common] != 1581s [00:53:01.593] envs[common]] 1581s [00:53:01.593] NAMES <- toupper(changed) 1581s [00:53:01.593] args <- list() 1581s [00:53:01.593] for (kk in seq_along(NAMES)) { 1581s [00:53:01.593] name <- changed[[kk]] 1581s [00:53:01.593] NAME <- NAMES[[kk]] 1581s [00:53:01.593] if (name != NAME && is.element(NAME, old_names)) 1581s [00:53:01.593] next 1581s [00:53:01.593] args[[name]] <- ...future.oldEnvVars[[name]] 1581s [00:53:01.593] } 1581s [00:53:01.593] NAMES <- toupper(added) 1581s [00:53:01.593] for (kk in seq_along(NAMES)) { 1581s [00:53:01.593] name <- added[[kk]] 1581s [00:53:01.593] NAME <- NAMES[[kk]] 1581s [00:53:01.593] if (name != NAME && is.element(NAME, old_names)) 1581s [00:53:01.593] next 1581s [00:53:01.593] args[[name]] <- "" 1581s [00:53:01.593] } 1581s [00:53:01.593] NAMES <- toupper(removed) 1581s [00:53:01.593] for (kk in seq_along(NAMES)) { 1581s [00:53:01.593] name <- removed[[kk]] 1581s [00:53:01.593] NAME <- NAMES[[kk]] 1581s [00:53:01.593] if (name != NAME && is.element(NAME, old_names)) 1581s [00:53:01.593] next 1581s [00:53:01.593] args[[name]] <- ...future.oldEnvVars[[name]] 1581s [00:53:01.593] } 1581s [00:53:01.593] if (length(args) > 0) 1581s [00:53:01.593] base::do.call(base::Sys.setenv, args = args) 1581s [00:53:01.593] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1581s [00:53:01.593] } 1581s [00:53:01.593] else { 1581s [00:53:01.593] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1581s [00:53:01.593] } 1581s [00:53:01.593] { 1581s [00:53:01.593] if (base::length(...future.futureOptionsAdded) > 1581s [00:53:01.593] 0L) { 1581s [00:53:01.593] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1581s [00:53:01.593] base::names(opts) <- ...future.futureOptionsAdded 1581s [00:53:01.593] base::options(opts) 1581s [00:53:01.593] } 1581s [00:53:01.593] { 1581s [00:53:01.593] { 1581s [00:53:01.593] NULL 1581s [00:53:01.593] RNGkind("Mersenne-Twister") 1581s [00:53:01.593] base::rm(list = ".Random.seed", envir = base::globalenv(), 1581s [00:53:01.593] inherits = FALSE) 1581s [00:53:01.593] } 1581s [00:53:01.593] options(future.plan = NULL) 1581s [00:53:01.593] if (is.na(NA_character_)) 1581s [00:53:01.593] Sys.unsetenv("R_FUTURE_PLAN") 1581s [00:53:01.593] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1581s [00:53:01.593] future::plan(list(function (..., workers = availableCores(), 1581s [00:53:01.593] lazy = FALSE, rscript_libs = .libPaths(), 1581s [00:53:01.593] envir = parent.frame()) 1581s [00:53:01.593] { 1581s [00:53:01.593] if (is.function(workers)) 1581s [00:53:01.593] workers <- workers() 1581s [00:53:01.593] workers <- structure(as.integer(workers), 1581s [00:53:01.593] class = class(workers)) 1581s [00:53:01.593] stop_if_not(length(workers) == 1, is.finite(workers), 1581s [00:53:01.593] workers >= 1) 1581s [00:53:01.593] if (workers == 1L && !inherits(workers, "AsIs")) { 1581s [00:53:01.593] return(sequential(..., lazy = TRUE, envir = envir)) 1581s [00:53:01.593] } 1581s [00:53:01.593] future <- MultisessionFuture(..., workers = workers, 1581s [00:53:01.593] lazy = lazy, rscript_libs = rscript_libs, 1581s [00:53:01.593] envir = envir) 1581s [00:53:01.593] if (!future$lazy) 1581s [00:53:01.593] future <- run(future) 1581s [00:53:01.593] invisible(future) 1581s [00:53:01.593] }), .cleanup = FALSE, .init = FALSE) 1581s [00:53:01.593] } 1581s [00:53:01.593] } 1581s [00:53:01.593] } 1581s [00:53:01.593] }) 1581s [00:53:01.593] if (TRUE) { 1581s [00:53:01.593] base::sink(type = "output", split = FALSE) 1581s [00:53:01.593] if (TRUE) { 1581s [00:53:01.593] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1581s [00:53:01.593] } 1581s [00:53:01.593] else { 1581s [00:53:01.593] ...future.result["stdout"] <- base::list(NULL) 1581s [00:53:01.593] } 1581s [00:53:01.593] base::close(...future.stdout) 1581s [00:53:01.593] ...future.stdout <- NULL 1581s [00:53:01.593] } 1581s [00:53:01.593] ...future.result$conditions <- ...future.conditions 1581s [00:53:01.593] ...future.result$finished <- base::Sys.time() 1581s [00:53:01.593] ...future.result 1581s [00:53:01.593] } 1581s [00:53:01.597] assign_globals() ... 1581s [00:53:01.597] List of 5 1581s [00:53:01.597] $ ...future.FUN :function (x, ...) 1581s [00:53:01.597] $ future.call.arguments : list() 1581s [00:53:01.597] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1581s [00:53:01.597] $ ...future.elements_ii :List of 6 1581s [00:53:01.597] ..$ a1: int 1 1581s [00:53:01.597] ..$ a2: int 2 1581s [00:53:01.597] ..$ b1: int 2 1581s [00:53:01.597] ..$ b2: int 3 1581s [00:53:01.597] ..$ c1: int 3 1581s [00:53:01.597] ..$ c2: int 4 1581s [00:53:01.597] $ ...future.seeds_ii : NULL 1581s [00:53:01.597] $ ...future.globals.maxSize: NULL 1581s [00:53:01.597] - attr(*, "where")=List of 5 1581s [00:53:01.597] ..$ ...future.FUN : 1581s [00:53:01.597] ..$ future.call.arguments : 1581s [00:53:01.597] ..$ ...future.elements_ii : 1581s [00:53:01.597] ..$ ...future.seeds_ii : 1581s [00:53:01.597] ..$ ...future.globals.maxSize: 1581s [00:53:01.597] - attr(*, "resolved")= logi FALSE 1581s [00:53:01.597] - attr(*, "total_size")= num 1248 1581s [00:53:01.597] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1581s [00:53:01.597] - attr(*, "already-done")= logi TRUE 1581s [00:53:01.608] - copied ‘...future.FUN’ to environment 1581s [00:53:01.609] - copied ‘future.call.arguments’ to environment 1581s [00:53:01.609] - copied ‘...future.elements_ii’ to environment 1581s [00:53:01.610] - copied ‘...future.seeds_ii’ to environment 1581s [00:53:01.610] - copied ‘...future.globals.maxSize’ to environment 1581s [00:53:01.610] assign_globals() ... done 1581s [00:53:01.611] plan(): Setting new future strategy stack: 1581s [00:53:01.612] List of future strategies: 1581s [00:53:01.612] 1. sequential: 1581s [00:53:01.612] - args: function (..., envir = parent.frame()) 1581s [00:53:01.612] - tweaked: FALSE 1581s [00:53:01.612] - call: NULL 1581s [00:53:01.613] plan(): nbrOfWorkers() = 1 1581s [00:53:01.614] plan(): Setting new future strategy stack: 1581s [00:53:01.614] List of future strategies: 1581s [00:53:01.614] 1. multisession: 1581s [00:53:01.614] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1581s [00:53:01.614] - tweaked: FALSE 1581s [00:53:01.614] - call: plan(strategy) 1581s [00:53:01.619] plan(): nbrOfWorkers() = 1 1581s [00:53:01.620] SequentialFuture started (and completed) 1581s [00:53:01.620] - Launch lazy future ... done 1581s [00:53:01.620] run() for ‘SequentialFuture’ ... done 1581s [00:53:01.620] Created future: 1581s [00:53:01.620] SequentialFuture: 1581s [00:53:01.620] Label: ‘future_sapply-1’ 1581s [00:53:01.620] Expression: 1581s [00:53:01.620] { 1581s [00:53:01.620] do.call(function(...) { 1581s [00:53:01.620] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1581s [00:53:01.620] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1581s [00:53:01.620] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1581s [00:53:01.620] on.exit(options(oopts), add = TRUE) 1581s [00:53:01.620] } 1581s [00:53:01.620] { 1581s [00:53:01.620] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1581s [00:53:01.620] ...future.X_jj <- ...future.elements_ii[[jj]] 1581s [00:53:01.620] ...future.FUN(...future.X_jj, ...) 1581s [00:53:01.620] }) 1581s [00:53:01.620] } 1581s [00:53:01.620] }, args = future.call.arguments) 1581s [00:53:01.620] } 1581s [00:53:01.620] Lazy evaluation: FALSE 1581s [00:53:01.620] Asynchronous evaluation: FALSE 1581s [00:53:01.620] Local evaluation: TRUE 1581s [00:53:01.620] Environment: R_GlobalEnv 1581s [00:53:01.620] Capture standard output: TRUE 1581s [00:53:01.620] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1581s [00:53:01.620] Globals: 5 objects totaling 1.55 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1581s [00:53:01.620] Packages: 1581s [00:53:01.620] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1581s [00:53:01.620] Resolved: TRUE 1581s [00:53:01.620] Value: 1.31 KiB of class ‘list’ 1581s [00:53:01.620] Early signaling: FALSE 1581s [00:53:01.620] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1581s [00:53:01.620] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1581s [00:53:01.623] Chunk #1 of 1 ... DONE 1581s [00:53:01.623] Launching 1 futures (chunks) ... DONE 1581s [00:53:01.623] Resolving 1 futures (chunks) ... 1581s [00:53:01.623] resolve() on list ... 1581s [00:53:01.623] recursive: 0 1581s [00:53:01.623] length: 1 1581s [00:53:01.623] 1581s [00:53:01.624] resolved() for ‘SequentialFuture’ ... 1581s [00:53:01.624] - state: ‘finished’ 1581s [00:53:01.624] - run: TRUE 1581s [00:53:01.624] - result: ‘FutureResult’ 1581s [00:53:01.624] resolved() for ‘SequentialFuture’ ... done 1581s [00:53:01.625] Future #1 1581s [00:53:01.625] signalConditionsASAP(SequentialFuture, pos=1) ... 1581s [00:53:01.625] - nx: 1 1581s [00:53:01.625] - relay: TRUE 1581s [00:53:01.625] - stdout: TRUE 1581s [00:53:01.625] - signal: TRUE 1581s [00:53:01.625] - resignal: FALSE 1581s [00:53:01.625] - force: TRUE 1581s [00:53:01.626] - relayed: [n=1] FALSE 1581s [00:53:01.626] - queued futures: [n=1] FALSE 1581s [00:53:01.626] - until=1 1581s [00:53:01.626] - relaying element #1 1581s [00:53:01.626] - relayed: [n=1] TRUE 1581s [00:53:01.626] - queued futures: [n=1] TRUE 1581s [00:53:01.627] signalConditionsASAP(SequentialFuture, pos=1) ... done 1581s [00:53:01.627] length: 0 (resolved future 1) 1581s [00:53:01.627] Relaying remaining futures 1581s [00:53:01.627] signalConditionsASAP(NULL, pos=0) ... 1581s [00:53:01.627] - nx: 1 1581s [00:53:01.627] - relay: TRUE 1581s [00:53:01.627] - stdout: TRUE 1581s [00:53:01.628] - signal: TRUE 1581s [00:53:01.628] - resignal: FALSE 1581s [00:53:01.628] - force: TRUE 1581s [00:53:01.628] - relayed: [n=1] TRUE 1581s [00:53:01.628] - queued futures: [n=1] TRUE 1581s - flush all 1581s [00:53:01.628] - relayed: [n=1] TRUE 1581s [00:53:01.628] - queued futures: [n=1] TRUE 1581s [00:53:01.628] signalConditionsASAP(NULL, pos=0) ... done 1581s [00:53:01.629] resolve() on list ... DONE 1581s [00:53:01.629] - Number of value chunks collected: 1 1581s [00:53:01.630] Resolving 1 futures (chunks) ... DONE 1581s [00:53:01.630] Reducing values from 1 chunks ... 1581s [00:53:01.631] - Number of values collected after concatenation: 6 1581s [00:53:01.631] - Number of values expected: 6 1581s [00:53:01.631] Reducing values from 1 chunks ... DONE 1581s [00:53:01.631] future_lapply() ... DONE 1581s [00:53:01.661] future_lapply() ... 1581s [00:53:01.666] Number of chunks: 1 1581s [00:53:01.666] getGlobalsAndPackagesXApply() ... 1581s [00:53:01.667] - future.globals: TRUE 1581s [00:53:01.667] getGlobalsAndPackages() ... 1581s [00:53:01.667] Searching for globals... 1581s [00:53:01.670] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1581s [00:53:01.670] Searching for globals ... DONE 1581s [00:53:01.670] Resolving globals: FALSE 1581s [00:53:01.671] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1581s [00:53:01.672] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1581s [00:53:01.672] - globals: [1] ‘FUN’ 1581s [00:53:01.672] 1581s [00:53:01.673] getGlobalsAndPackages() ... DONE 1581s [00:53:01.673] - globals found/used: [n=1] ‘FUN’ 1581s [00:53:01.673] - needed namespaces: [n=0] 1581s [00:53:01.674] Finding globals ... DONE 1581s [00:53:01.674] - use_args: TRUE 1581s [00:53:01.674] - Getting '...' globals ... 1581s [00:53:01.675] resolve() on list ... 1581s [00:53:01.675] recursive: 0 1581s [00:53:01.675] length: 1 1581s [00:53:01.676] elements: ‘...’ 1581s [00:53:01.676] length: 0 (resolved future 1) 1581s [00:53:01.676] resolve() on list ... DONE 1581s [00:53:01.676] - '...' content: [n=0] 1581s [00:53:01.676] List of 1 1581s [00:53:01.676] $ ...: list() 1581s [00:53:01.676] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1581s [00:53:01.676] - attr(*, "where")=List of 1 1581s [00:53:01.676] ..$ ...: 1581s [00:53:01.676] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1581s [00:53:01.676] - attr(*, "resolved")= logi TRUE 1581s [00:53:01.676] - attr(*, "total_size")= num NA 1581s [00:53:01.681] - Getting '...' globals ... DONE 1581s [00:53:01.681] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1581s [00:53:01.681] List of 2 1581s [00:53:01.681] $ ...future.FUN:function (x, y = 2 * 1:5) 1581s [00:53:01.681] $ ... : list() 1581s [00:53:01.681] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1581s [00:53:01.681] - attr(*, "where")=List of 2 1581s [00:53:01.681] ..$ ...future.FUN: 1581s [00:53:01.681] ..$ ... : 1581s [00:53:01.681] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1581s [00:53:01.681] - attr(*, "resolved")= logi FALSE 1581s [00:53:01.681] - attr(*, "total_size")= num 4728 1581s [00:53:01.686] Packages to be attached in all futures: [n=0] 1581s [00:53:01.687] getGlobalsAndPackagesXApply() ... DONE 1581s [00:53:01.687] Number of futures (= number of chunks): 1 1581s [00:53:01.687] Launching 1 futures (chunks) ... 1581s [00:53:01.688] Chunk #1 of 1 ... 1581s [00:53:01.688] - Finding globals in 'X' for chunk #1 ... 1581s [00:53:01.688] getGlobalsAndPackages() ... 1581s [00:53:01.688] Searching for globals... 1581s [00:53:01.688] 1581s [00:53:01.689] Searching for globals ... DONE 1581s [00:53:01.689] - globals: [0] 1581s [00:53:01.689] getGlobalsAndPackages() ... DONE 1581s [00:53:01.689] + additional globals found: [n=0] 1581s [00:53:01.689] + additional namespaces needed: [n=0] 1581s [00:53:01.690] - Finding globals in 'X' for chunk #1 ... DONE 1581s [00:53:01.690] - seeds: 1581s [00:53:01.690] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1581s [00:53:01.690] getGlobalsAndPackages() ... 1581s [00:53:01.691] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1581s [00:53:01.691] Resolving globals: FALSE 1581s [00:53:01.691] Tweak future expression to call with '...' arguments ... 1581s [00:53:01.692] { 1581s [00:53:01.692] do.call(function(...) { 1581s [00:53:01.692] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1581s [00:53:01.692] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1581s [00:53:01.692] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1581s [00:53:01.692] on.exit(options(oopts), add = TRUE) 1581s [00:53:01.692] } 1581s [00:53:01.692] { 1581s [00:53:01.692] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1581s [00:53:01.692] ...future.X_jj <- ...future.elements_ii[[jj]] 1581s [00:53:01.692] ...future.FUN(...future.X_jj, ...) 1581s [00:53:01.692] }) 1581s [00:53:01.692] } 1581s [00:53:01.692] }, args = future.call.arguments) 1581s [00:53:01.692] } 1581s [00:53:01.692] Tweak future expression to call with '...' arguments ... DONE 1581s [00:53:01.693] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1581s [00:53:01.693] 1581s [00:53:01.693] getGlobalsAndPackages() ... DONE 1581s [00:53:01.693] run() for ‘Future’ ... 1581s [00:53:01.693] - state: ‘created’ 1581s [00:53:01.694] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1581s [00:53:01.697] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1581s [00:53:01.697] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1581s [00:53:01.697] - Field: ‘label’ 1581s [00:53:01.698] - Field: ‘local’ 1581s [00:53:01.698] - Field: ‘owner’ 1581s [00:53:01.698] - Field: ‘envir’ 1581s [00:53:01.698] - Field: ‘packages’ 1581s [00:53:01.698] - Field: ‘gc’ 1581s [00:53:01.698] - Field: ‘conditions’ 1581s [00:53:01.699] - Field: ‘expr’ 1581s [00:53:01.699] - Field: ‘uuid’ 1581s [00:53:01.699] - Field: ‘seed’ 1581s [00:53:01.700] - Field: ‘version’ 1581s [00:53:01.700] - Field: ‘result’ 1581s [00:53:01.700] - Field: ‘asynchronous’ 1581s [00:53:01.701] - Field: ‘calls’ 1581s [00:53:01.701] - Field: ‘globals’ 1581s [00:53:01.701] - Field: ‘stdout’ 1581s [00:53:01.701] - Field: ‘earlySignal’ 1581s [00:53:01.701] - Field: ‘lazy’ 1581s [00:53:01.701] - Field: ‘state’ 1581s [00:53:01.702] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1581s [00:53:01.702] - Launch lazy future ... 1581s [00:53:01.702] Packages needed by the future expression (n = 0): 1581s [00:53:01.702] Packages needed by future strategies (n = 0): 1581s [00:53:01.703] { 1581s [00:53:01.703] { 1581s [00:53:01.703] { 1581s [00:53:01.703] ...future.startTime <- base::Sys.time() 1581s [00:53:01.703] { 1581s [00:53:01.703] { 1581s [00:53:01.703] { 1581s [00:53:01.703] base::local({ 1581s [00:53:01.703] has_future <- base::requireNamespace("future", 1581s [00:53:01.703] quietly = TRUE) 1581s [00:53:01.703] if (has_future) { 1581s [00:53:01.703] ns <- base::getNamespace("future") 1581s [00:53:01.703] version <- ns[[".package"]][["version"]] 1581s [00:53:01.703] if (is.null(version)) 1581s [00:53:01.703] version <- utils::packageVersion("future") 1581s [00:53:01.703] } 1581s [00:53:01.703] else { 1581s [00:53:01.703] version <- NULL 1581s [00:53:01.703] } 1581s [00:53:01.703] if (!has_future || version < "1.8.0") { 1581s [00:53:01.703] info <- base::c(r_version = base::gsub("R version ", 1581s [00:53:01.703] "", base::R.version$version.string), 1581s [00:53:01.703] platform = base::sprintf("%s (%s-bit)", 1581s [00:53:01.703] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1581s [00:53:01.703] os = base::paste(base::Sys.info()[base::c("sysname", 1581s [00:53:01.703] "release", "version")], collapse = " "), 1581s [00:53:01.703] hostname = base::Sys.info()[["nodename"]]) 1581s [00:53:01.703] info <- base::sprintf("%s: %s", base::names(info), 1581s [00:53:01.703] info) 1581s [00:53:01.703] info <- base::paste(info, collapse = "; ") 1581s [00:53:01.703] if (!has_future) { 1581s [00:53:01.703] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1581s [00:53:01.703] info) 1581s [00:53:01.703] } 1581s [00:53:01.703] else { 1581s [00:53:01.703] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1581s [00:53:01.703] info, version) 1581s [00:53:01.703] } 1581s [00:53:01.703] base::stop(msg) 1581s [00:53:01.703] } 1581s [00:53:01.703] }) 1581s [00:53:01.703] } 1581s [00:53:01.703] options(future.plan = NULL) 1581s [00:53:01.703] Sys.unsetenv("R_FUTURE_PLAN") 1581s [00:53:01.703] future::plan("default", .cleanup = FALSE, .init = FALSE) 1581s [00:53:01.703] } 1581s [00:53:01.703] ...future.workdir <- getwd() 1581s [00:53:01.703] } 1581s [00:53:01.703] ...future.oldOptions <- base::as.list(base::.Options) 1581s [00:53:01.703] ...future.oldEnvVars <- base::Sys.getenv() 1581s [00:53:01.703] } 1581s [00:53:01.703] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1581s [00:53:01.703] future.globals.maxSize = NULL, future.globals.method = NULL, 1581s [00:53:01.703] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1581s [00:53:01.703] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1581s [00:53:01.703] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1581s [00:53:01.703] future.stdout.windows.reencode = NULL, width = 80L) 1581s [00:53:01.703] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1581s [00:53:01.703] base::names(...future.oldOptions)) 1581s [00:53:01.703] } 1581s [00:53:01.703] if (FALSE) { 1581s [00:53:01.703] } 1581s [00:53:01.703] else { 1581s [00:53:01.703] if (TRUE) { 1581s [00:53:01.703] ...future.stdout <- base::rawConnection(base::raw(0L), 1581s [00:53:01.703] open = "w") 1581s [00:53:01.703] } 1581s [00:53:01.703] else { 1581s [00:53:01.703] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1581s [00:53:01.703] windows = "NUL", "/dev/null"), open = "w") 1581s [00:53:01.703] } 1581s [00:53:01.703] base::sink(...future.stdout, type = "output", split = FALSE) 1581s [00:53:01.703] base::on.exit(if (!base::is.null(...future.stdout)) { 1581s [00:53:01.703] base::sink(type = "output", split = FALSE) 1581s [00:53:01.703] base::close(...future.stdout) 1581s [00:53:01.703] }, add = TRUE) 1581s [00:53:01.703] } 1581s [00:53:01.703] ...future.frame <- base::sys.nframe() 1581s [00:53:01.703] ...future.conditions <- base::list() 1581s [00:53:01.703] ...future.rng <- base::globalenv()$.Random.seed 1581s [00:53:01.703] if (FALSE) { 1581s [00:53:01.703] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1581s [00:53:01.703] "...future.value", "...future.globalenv.names", ".Random.seed") 1581s [00:53:01.703] } 1581s [00:53:01.703] ...future.result <- base::tryCatch({ 1581s [00:53:01.703] base::withCallingHandlers({ 1581s [00:53:01.703] ...future.value <- base::withVisible(base::local({ 1581s [00:53:01.703] do.call(function(...) { 1581s [00:53:01.703] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1581s [00:53:01.703] if (!identical(...future.globals.maxSize.org, 1581s [00:53:01.703] ...future.globals.maxSize)) { 1581s [00:53:01.703] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1581s [00:53:01.703] on.exit(options(oopts), add = TRUE) 1581s [00:53:01.703] } 1581s [00:53:01.703] { 1581s [00:53:01.703] lapply(seq_along(...future.elements_ii), 1581s [00:53:01.703] FUN = function(jj) { 1581s [00:53:01.703] ...future.X_jj <- ...future.elements_ii[[jj]] 1581s [00:53:01.703] ...future.FUN(...future.X_jj, ...) 1581s [00:53:01.703] }) 1581s [00:53:01.703] } 1581s [00:53:01.703] }, args = future.call.arguments) 1581s [00:53:01.703] })) 1581s [00:53:01.703] future::FutureResult(value = ...future.value$value, 1581s [00:53:01.703] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1581s [00:53:01.703] ...future.rng), globalenv = if (FALSE) 1581s [00:53:01.703] list(added = base::setdiff(base::names(base::.GlobalEnv), 1581s [00:53:01.703] ...future.globalenv.names)) 1581s [00:53:01.703] else NULL, started = ...future.startTime, version = "1.8") 1581s [00:53:01.703] }, condition = base::local({ 1581s [00:53:01.703] c <- base::c 1581s [00:53:01.703] inherits <- base::inherits 1581s [00:53:01.703] invokeRestart <- base::invokeRestart 1581s [00:53:01.703] length <- base::length 1581s [00:53:01.703] list <- base::list 1581s [00:53:01.703] seq.int <- base::seq.int 1581s [00:53:01.703] signalCondition <- base::signalCondition 1581s [00:53:01.703] sys.calls <- base::sys.calls 1581s [00:53:01.703] `[[` <- base::`[[` 1581s [00:53:01.703] `+` <- base::`+` 1581s [00:53:01.703] `<<-` <- base::`<<-` 1581s [00:53:01.703] sysCalls <- function(calls = sys.calls(), from = 1L) { 1581s [00:53:01.703] calls[seq.int(from = from + 12L, to = length(calls) - 1581s [00:53:01.703] 3L)] 1581s [00:53:01.703] } 1581s [00:53:01.703] function(cond) { 1581s [00:53:01.703] is_error <- inherits(cond, "error") 1581s [00:53:01.703] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1581s [00:53:01.703] NULL) 1581s [00:53:01.703] if (is_error) { 1581s [00:53:01.703] sessionInformation <- function() { 1581s [00:53:01.703] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1581s [00:53:01.703] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1581s [00:53:01.703] search = base::search(), system = base::Sys.info()) 1581s [00:53:01.703] } 1581s [00:53:01.703] ...future.conditions[[length(...future.conditions) + 1581s [00:53:01.703] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1581s [00:53:01.703] cond$call), session = sessionInformation(), 1581s [00:53:01.703] timestamp = base::Sys.time(), signaled = 0L) 1581s [00:53:01.703] signalCondition(cond) 1581s [00:53:01.703] } 1581s [00:53:01.703] else if (!ignore && TRUE && inherits(cond, c("condition", 1581s [00:53:01.703] "immediateCondition"))) { 1581s [00:53:01.703] signal <- TRUE && inherits(cond, "immediateCondition") 1581s [00:53:01.703] ...future.conditions[[length(...future.conditions) + 1581s [00:53:01.703] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1581s [00:53:01.703] if (TRUE && !signal) { 1581s [00:53:01.703] muffleCondition <- function (cond, pattern = "^muffle") 1581s [00:53:01.703] { 1581s [00:53:01.703] inherits <- base::inherits 1581s [00:53:01.703] invokeRestart <- base::invokeRestart 1581s [00:53:01.703] is.null <- base::is.null 1581s [00:53:01.703] muffled <- FALSE 1581s [00:53:01.703] if (inherits(cond, "message")) { 1581s [00:53:01.703] muffled <- grepl(pattern, "muffleMessage") 1581s [00:53:01.703] if (muffled) 1581s [00:53:01.703] invokeRestart("muffleMessage") 1581s [00:53:01.703] } 1581s [00:53:01.703] else if (inherits(cond, "warning")) { 1581s [00:53:01.703] muffled <- grepl(pattern, "muffleWarning") 1581s [00:53:01.703] if (muffled) 1581s [00:53:01.703] invokeRestart("muffleWarning") 1581s [00:53:01.703] } 1581s [00:53:01.703] else if (inherits(cond, "condition")) { 1581s [00:53:01.703] if (!is.null(pattern)) { 1581s [00:53:01.703] computeRestarts <- base::computeRestarts 1581s [00:53:01.703] grepl <- base::grepl 1581s [00:53:01.703] restarts <- computeRestarts(cond) 1581s [00:53:01.703] for (restart in restarts) { 1581s [00:53:01.703] name <- restart$name 1581s [00:53:01.703] if (is.null(name)) 1581s [00:53:01.703] next 1581s [00:53:01.703] if (!grepl(pattern, name)) 1581s [00:53:01.703] next 1581s [00:53:01.703] invokeRestart(restart) 1581s [00:53:01.703] muffled <- TRUE 1581s [00:53:01.703] break 1581s [00:53:01.703] } 1581s [00:53:01.703] } 1581s [00:53:01.703] } 1581s [00:53:01.703] invisible(muffled) 1581s [00:53:01.703] } 1581s [00:53:01.703] muffleCondition(cond, pattern = "^muffle") 1581s [00:53:01.703] } 1581s [00:53:01.703] } 1581s [00:53:01.703] else { 1581s [00:53:01.703] if (TRUE) { 1581s [00:53:01.703] muffleCondition <- function (cond, pattern = "^muffle") 1581s [00:53:01.703] { 1581s [00:53:01.703] inherits <- base::inherits 1581s [00:53:01.703] invokeRestart <- base::invokeRestart 1581s [00:53:01.703] is.null <- base::is.null 1581s [00:53:01.703] muffled <- FALSE 1581s [00:53:01.703] if (inherits(cond, "message")) { 1581s [00:53:01.703] muffled <- grepl(pattern, "muffleMessage") 1581s [00:53:01.703] if (muffled) 1581s [00:53:01.703] invokeRestart("muffleMessage") 1581s [00:53:01.703] } 1581s [00:53:01.703] else if (inherits(cond, "warning")) { 1581s [00:53:01.703] muffled <- grepl(pattern, "muffleWarning") 1581s [00:53:01.703] if (muffled) 1581s [00:53:01.703] invokeRestart("muffleWarning") 1581s [00:53:01.703] } 1581s [00:53:01.703] else if (inherits(cond, "condition")) { 1581s [00:53:01.703] if (!is.null(pattern)) { 1581s [00:53:01.703] computeRestarts <- base::computeRestarts 1581s [00:53:01.703] grepl <- base::grepl 1581s [00:53:01.703] restarts <- computeRestarts(cond) 1581s [00:53:01.703] for (restart in restarts) { 1581s [00:53:01.703] name <- restart$name 1581s [00:53:01.703] if (is.null(name)) 1581s [00:53:01.703] next 1581s [00:53:01.703] if (!grepl(pattern, name)) 1581s [00:53:01.703] next 1581s [00:53:01.703] invokeRestart(restart) 1581s [00:53:01.703] muffled <- TRUE 1581s [00:53:01.703] break 1581s [00:53:01.703] } 1581s [00:53:01.703] } 1581s [00:53:01.703] } 1581s [00:53:01.703] invisible(muffled) 1581s [00:53:01.703] } 1581s [00:53:01.703] muffleCondition(cond, pattern = "^muffle") 1581s [00:53:01.703] } 1581s [00:53:01.703] } 1581s [00:53:01.703] } 1581s [00:53:01.703] })) 1581s [00:53:01.703] }, error = function(ex) { 1581s [00:53:01.703] base::structure(base::list(value = NULL, visible = NULL, 1581s [00:53:01.703] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1581s [00:53:01.703] ...future.rng), started = ...future.startTime, 1581s [00:53:01.703] finished = Sys.time(), session_uuid = NA_character_, 1581s [00:53:01.703] version = "1.8"), class = "FutureResult") 1581s [00:53:01.703] }, finally = { 1581s [00:53:01.703] if (!identical(...future.workdir, getwd())) 1581s [00:53:01.703] setwd(...future.workdir) 1581s [00:53:01.703] { 1581s [00:53:01.703] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1581s [00:53:01.703] ...future.oldOptions$nwarnings <- NULL 1581s [00:53:01.703] } 1581s [00:53:01.703] base::options(...future.oldOptions) 1581s [00:53:01.703] if (.Platform$OS.type == "windows") { 1581s [00:53:01.703] old_names <- names(...future.oldEnvVars) 1581s [00:53:01.703] envs <- base::Sys.getenv() 1581s [00:53:01.703] names <- names(envs) 1581s [00:53:01.703] common <- intersect(names, old_names) 1581s [00:53:01.703] added <- setdiff(names, old_names) 1581s [00:53:01.703] removed <- setdiff(old_names, names) 1581s [00:53:01.703] changed <- common[...future.oldEnvVars[common] != 1581s [00:53:01.703] envs[common]] 1581s [00:53:01.703] NAMES <- toupper(changed) 1581s [00:53:01.703] args <- list() 1581s [00:53:01.703] for (kk in seq_along(NAMES)) { 1581s [00:53:01.703] name <- changed[[kk]] 1581s [00:53:01.703] NAME <- NAMES[[kk]] 1581s [00:53:01.703] if (name != NAME && is.element(NAME, old_names)) 1581s [00:53:01.703] next 1581s [00:53:01.703] args[[name]] <- ...future.oldEnvVars[[name]] 1581s [00:53:01.703] } 1581s [00:53:01.703] NAMES <- toupper(added) 1581s [00:53:01.703] for (kk in seq_along(NAMES)) { 1581s [00:53:01.703] name <- added[[kk]] 1581s [00:53:01.703] NAME <- NAMES[[kk]] 1581s [00:53:01.703] if (name != NAME && is.element(NAME, old_names)) 1581s [00:53:01.703] next 1581s [00:53:01.703] args[[name]] <- "" 1581s [00:53:01.703] } 1581s [00:53:01.703] NAMES <- toupper(removed) 1581s [00:53:01.703] for (kk in seq_along(NAMES)) { 1581s [00:53:01.703] name <- removed[[kk]] 1581s [00:53:01.703] NAME <- NAMES[[kk]] 1581s [00:53:01.703] if (name != NAME && is.element(NAME, old_names)) 1581s [00:53:01.703] next 1581s [00:53:01.703] args[[name]] <- ...future.oldEnvVars[[name]] 1581s [00:53:01.703] } 1581s [00:53:01.703] if (length(args) > 0) 1581s [00:53:01.703] base::do.call(base::Sys.setenv, args = args) 1581s [00:53:01.703] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1581s [00:53:01.703] } 1581s [00:53:01.703] else { 1581s [00:53:01.703] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1581s [00:53:01.703] } 1581s [00:53:01.703] { 1581s [00:53:01.703] if (base::length(...future.futureOptionsAdded) > 1581s [00:53:01.703] 0L) { 1581s [00:53:01.703] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1581s [00:53:01.703] base::names(opts) <- ...future.futureOptionsAdded 1581s [00:53:01.703] base::options(opts) 1581s [00:53:01.703] } 1581s [00:53:01.703] { 1581s [00:53:01.703] { 1581s [00:53:01.703] NULL 1581s [00:53:01.703] RNGkind("Mersenne-Twister") 1581s [00:53:01.703] base::rm(list = ".Random.seed", envir = base::globalenv(), 1581s [00:53:01.703] inherits = FALSE) 1581s [00:53:01.703] } 1581s [00:53:01.703] options(future.plan = NULL) 1581s [00:53:01.703] if (is.na(NA_character_)) 1581s [00:53:01.703] Sys.unsetenv("R_FUTURE_PLAN") 1581s [00:53:01.703] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1581s [00:53:01.703] future::plan(list(function (..., workers = availableCores(), 1581s [00:53:01.703] lazy = FALSE, rscript_libs = .libPaths(), 1581s [00:53:01.703] envir = parent.frame()) 1581s [00:53:01.703] { 1581s [00:53:01.703] if (is.function(workers)) 1581s [00:53:01.703] workers <- workers() 1581s [00:53:01.703] workers <- structure(as.integer(workers), 1581s [00:53:01.703] class = class(workers)) 1581s [00:53:01.703] stop_if_not(length(workers) == 1, is.finite(workers), 1581s [00:53:01.703] workers >= 1) 1581s [00:53:01.703] if (workers == 1L && !inherits(workers, "AsIs")) { 1581s [00:53:01.703] return(sequential(..., lazy = TRUE, envir = envir)) 1581s [00:53:01.703] } 1581s [00:53:01.703] future <- MultisessionFuture(..., workers = workers, 1581s [00:53:01.703] lazy = lazy, rscript_libs = rscript_libs, 1581s [00:53:01.703] envir = envir) 1581s [00:53:01.703] if (!future$lazy) 1581s [00:53:01.703] future <- run(future) 1581s [00:53:01.703] invisible(future) 1581s [00:53:01.703] }), .cleanup = FALSE, .init = FALSE) 1581s [00:53:01.703] } 1581s [00:53:01.703] } 1581s [00:53:01.703] } 1581s [00:53:01.703] }) 1581s [00:53:01.703] if (TRUE) { 1581s [00:53:01.703] base::sink(type = "output", split = FALSE) 1581s [00:53:01.703] if (TRUE) { 1581s [00:53:01.703] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1581s [00:53:01.703] } 1581s [00:53:01.703] else { 1581s [00:53:01.703] ...future.result["stdout"] <- base::list(NULL) 1581s [00:53:01.703] } 1581s [00:53:01.703] base::close(...future.stdout) 1581s [00:53:01.703] ...future.stdout <- NULL 1581s [00:53:01.703] } 1581s [00:53:01.703] ...future.result$conditions <- ...future.conditions 1581s [00:53:01.703] ...future.result$finished <- base::Sys.time() 1581s [00:53:01.703] ...future.result 1581s [00:53:01.703] } 1581s [00:53:01.706] assign_globals() ... 1581s [00:53:01.706] List of 5 1581s [00:53:01.706] $ ...future.FUN :function (x, y = 2 * 1:5) 1581s [00:53:01.706] $ future.call.arguments : list() 1581s [00:53:01.706] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1581s [00:53:01.706] $ ...future.elements_ii :List of 6 1581s [00:53:01.706] ..$ a1: int 1 1581s [00:53:01.706] ..$ a2: int 2 1581s [00:53:01.706] ..$ b1: int 2 1581s [00:53:01.706] ..$ b2: int 3 1581s [00:53:01.706] ..$ c1: int 3 1581s [00:53:01.706] ..$ c2: int 4 1581s [00:53:01.706] $ ...future.seeds_ii : NULL 1581s [00:53:01.706] $ ...future.globals.maxSize: NULL 1581s [00:53:01.706] - attr(*, "where")=List of 5 1581s [00:53:01.706] ..$ ...future.FUN : 1581s [00:53:01.706] ..$ future.call.arguments : 1581s [00:53:01.706] ..$ ...future.elements_ii : 1581s [00:53:01.706] ..$ ...future.seeds_ii : 1581s [00:53:01.706] ..$ ...future.globals.maxSize: 1581s [00:53:01.706] - attr(*, "resolved")= logi FALSE 1581s [00:53:01.706] - attr(*, "total_size")= num 4728 1581s [00:53:01.706] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1581s [00:53:01.706] - attr(*, "already-done")= logi TRUE 1581s [00:53:01.726] - reassign environment for ‘...future.FUN’ 1581s [00:53:01.727] - copied ‘...future.FUN’ to environment 1581s [00:53:01.727] - copied ‘future.call.arguments’ to environment 1581s [00:53:01.728] - copied ‘...future.elements_ii’ to environment 1581s [00:53:01.728] - copied ‘...future.seeds_ii’ to environment 1581s [00:53:01.728] - copied ‘...future.globals.maxSize’ to environment 1581s [00:53:01.729] assign_globals() ... done 1581s [00:53:01.729] plan(): Setting new future strategy stack: 1581s [00:53:01.729] List of future strategies: 1581s [00:53:01.729] 1. sequential: 1581s [00:53:01.729] - args: function (..., envir = parent.frame()) 1581s [00:53:01.729] - tweaked: FALSE 1581s [00:53:01.729] - call: NULL 1581s [00:53:01.730] plan(): nbrOfWorkers() = 1 1581s [00:53:01.730] plan(): Setting new future strategy stack: 1581s [00:53:01.731] List of future strategies: 1581s [00:53:01.731] 1. multisession: 1581s [00:53:01.731] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1581s [00:53:01.731] - tweaked: FALSE 1581s [00:53:01.731] - call: plan(strategy) 1581s [00:53:01.735] plan(): nbrOfWorkers() = 1 1581s [00:53:01.735] SequentialFuture started (and completed) 1581s [00:53:01.735] - Launch lazy future ... done 1581s [00:53:01.736] run() for ‘SequentialFuture’ ... done 1581s [00:53:01.736] Created future: 1581s [00:53:01.736] SequentialFuture: 1581s [00:53:01.736] Label: ‘future_sapply-1’ 1581s [00:53:01.736] Expression: 1581s [00:53:01.736] { 1581s [00:53:01.736] do.call(function(...) { 1581s [00:53:01.736] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1581s [00:53:01.736] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1581s [00:53:01.736] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1581s [00:53:01.736] on.exit(options(oopts), add = TRUE) 1581s [00:53:01.736] } 1581s [00:53:01.736] { 1581s [00:53:01.736] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1581s [00:53:01.736] ...future.X_jj <- ...future.elements_ii[[jj]] 1581s [00:53:01.736] ...future.FUN(...future.X_jj, ...) 1581s [00:53:01.736] }) 1581s [00:53:01.736] } 1581s [00:53:01.736] }, args = future.call.arguments) 1581s [00:53:01.736] } 1581s [00:53:01.736] Lazy evaluation: FALSE 1581s [00:53:01.736] Asynchronous evaluation: FALSE 1581s [00:53:01.736] Local evaluation: TRUE 1581s [00:53:01.736] Environment: R_GlobalEnv 1581s [00:53:01.736] Capture standard output: TRUE 1581s [00:53:01.736] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1581s [00:53:01.736] Globals: 5 objects totaling 4.95 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1581s [00:53:01.736] Packages: 1581s [00:53:01.736] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1581s [00:53:01.736] Resolved: TRUE 1581s [00:53:01.736] Value: 2.02 KiB of class ‘list’ 1581s [00:53:01.736] Early signaling: FALSE 1581s [00:53:01.736] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1581s [00:53:01.736] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1581s [00:53:01.739] Chunk #1 of 1 ... DONE 1581s [00:53:01.739] Launching 1 futures (chunks) ... DONE 1581s [00:53:01.739] Resolving 1 futures (chunks) ... 1581s [00:53:01.739] resolve() on list ... 1581s [00:53:01.740] recursive: 0 1581s [00:53:01.740] length: 1 1581s [00:53:01.740] 1581s [00:53:01.740] resolved() for ‘SequentialFuture’ ... 1581s [00:53:01.740] - state: ‘finished’ 1581s [00:53:01.740] - run: TRUE 1581s [00:53:01.741] - result: ‘FutureResult’ 1581s [00:53:01.741] resolved() for ‘SequentialFuture’ ... done 1581s [00:53:01.741] Future #1 1581s [00:53:01.741] signalConditionsASAP(SequentialFuture, pos=1) ... 1581s [00:53:01.741] - nx: 1 1581s [00:53:01.741] - relay: TRUE 1581s [00:53:01.741] - stdout: TRUE 1581s [00:53:01.742] - signal: TRUE 1581s [00:53:01.742] - resignal: FALSE 1581s [00:53:01.742] - force: TRUE 1581s [00:53:01.742] - relayed: [n=1] FALSE 1581s [00:53:01.743] - queued futures: [n=1] FALSE 1581s [00:53:01.743] - until=1 1581s [00:53:01.743] - relaying element #1 1581s [00:53:01.743] - relayed: [n=1] TRUE 1581s [00:53:01.743] - queued futures: [n=1] TRUE 1581s [00:53:01.744] signalConditionsASAP(SequentialFuture, pos=1) ... done 1581s [00:53:01.744] length: 0 (resolved future 1) 1581s [00:53:01.744] Relaying remaining futures 1581s [00:53:01.744] signalConditionsASAP(NULL, pos=0) ... 1581s [00:53:01.744] - nx: 1 1581s [00:53:01.744] - relay: TRUE 1581s [00:53:01.744] - stdout: TRUE 1581s [00:53:01.745] - signal: TRUE 1581s [00:53:01.745] - resignal: FALSE 1581s List of 2 1581s $ y0:List of 6 1581s ..$ a1: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1581s ..$ a2: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1581s ..$ b1: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1581s ..$ b2: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1581s ..$ c1:[00:53:01.745] - force: TRUE 1581s [00:53:01.745] - relayed: [n=1] TRUE 1581s [00:53:01.745] - queued futures: [n=1] TRUE 1581s - flush all 1581s [00:53:01.746] - relayed: [n=1] TRUE 1581s [00:53:01.746] - queued futures: [n=1] TRUE 1581s [00:53:01.746] signalConditionsASAP(NULL, pos=0) ... done 1581s [00:53:01.746] resolve() on list ... DONE 1581s [00:53:01.746] - Number of value chunks collected: 1 1581s [00:53:01.747] Resolving 1 futures (chunks) ... DONE 1581s [00:53:01.747] Reducing values from 1 chunks ... 1581s [00:53:01.747] - Number of values collected after concatenation: 6 1581s [00:53:01.747] - Number of values expected: 6 1581s [00:53:01.747] Reducing values from 1 chunks ... DONE 1581s [00:53:01.748] future_lapply() ... DONE 1581s num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1581s ..$ c2: num [1:3, 1:5] 8 8 8 16 16 16 24 24 24 32 ... 1581s $ y1:List of 6 1581s ..$ a1: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1581s ..$ a2: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1581s ..$ b1: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1581s ..$ b2: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1581s ..$ c1: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1581s ..$ c2: num [1:3, 1:5] 8 8 8 16 16 16 24 24 24 32 ... 1581s List of 2 1581s $ y0:List of 6 1581s ..$ a1: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1581s ..$ a2: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1581s ..$ b1: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1581s ..$ b2: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1581s ..$ c1: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1581s ..$ c2: num [1:3, 1:5] 8 8 8 16 16 16 24 24 24 32 ... 1581s $ y2:List of 6 1581s ..$ a1: num [1:3, 1:5] 2 2 2 4 4 4 6 6 6 8 ... 1581s ..$ a2: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1581s ..$ b1: num [1:3, 1:5] 4 4 4 8 8 8 12 12 12 16 ... 1581s ..$ b2: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1581s ..$ c1: num [1:3, 1:5] 6 6 6 12 12 12 18 18 18 24 ... 1581s ..$ c2: num [1:3, 1:5] 8 8 8 16 16 16 24 24 24 32 ... 1581s [00:53:01.767] future_lapply() ... 1581s [00:53:01.771] Number of chunks: 1 1581s [00:53:01.771] getGlobalsAndPackagesXApply() ... 1581s [00:53:01.771] - future.globals: TRUE 1581s [00:53:01.772] getGlobalsAndPackages() ... 1581s [00:53:01.772] Searching for globals... 1581s [00:53:01.774] - globals found: [1] ‘FUN’ 1581s [00:53:01.774] Searching for globals ... DONE 1581s [00:53:01.774] Resolving globals: FALSE 1581s [00:53:01.774] The total size of the 1 globals is 848 bytes (848 bytes) 1581s [00:53:01.775] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1581s [00:53:01.775] - globals: [1] ‘FUN’ 1581s [00:53:01.775] 1581s [00:53:01.775] getGlobalsAndPackages() ... DONE 1581s [00:53:01.775] - globals found/used: [n=1] ‘FUN’ 1581s [00:53:01.776] - needed namespaces: [n=0] 1581s [00:53:01.776] Finding globals ... DONE 1581s [00:53:01.776] - use_args: TRUE 1581s [00:53:01.776] - Getting '...' globals ... 1581s [00:53:01.777] resolve() on list ... 1581s [00:53:01.777] recursive: 0 1581s [00:53:01.777] length: 1 1581s [00:53:01.777] elements: ‘...’ 1581s [00:53:01.777] length: 0 (resolved future 1) 1581s [00:53:01.777] resolve() on list ... DONE 1581s [00:53:01.777] - '...' content: [n=0] 1581s [00:53:01.778] List of 1 1581s [00:53:01.778] $ ...: list() 1581s [00:53:01.778] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1581s [00:53:01.778] - attr(*, "where")=List of 1 1581s [00:53:01.778] ..$ ...: 1581s [00:53:01.778] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1581s [00:53:01.778] - attr(*, "resolved")= logi TRUE 1581s [00:53:01.778] - attr(*, "total_size")= num NA 1581s [00:53:01.781] - Getting '...' globals ... DONE 1581s [00:53:01.781] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1581s [00:53:01.782] List of 2 1581s [00:53:01.782] $ ...future.FUN:function (x) 1581s [00:53:01.782] $ ... : list() 1581s [00:53:01.782] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1581s [00:53:01.782] - attr(*, "where")=List of 2 1581s [00:53:01.782] ..$ ...future.FUN: 1581s [00:53:01.782] ..$ ... : 1581s [00:53:01.782] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1581s [00:53:01.782] - attr(*, "resolved")= logi FALSE 1581s [00:53:01.782] - attr(*, "total_size")= num 848 1581s [00:53:01.785] Packages to be attached in all futures: [n=0] 1581s [00:53:01.785] getGlobalsAndPackagesXApply() ... DONE 1581s [00:53:01.785] Number of futures (= number of chunks): 1 1581s [00:53:01.786] Launching 1 futures (chunks) ... 1581s [00:53:01.786] Chunk #1 of 1 ... 1581s [00:53:01.786] - Finding globals in 'X' for chunk #1 ... 1581s [00:53:01.786] getGlobalsAndPackages() ... 1581s [00:53:01.786] Searching for globals... 1581s [00:53:01.786] 1581s [00:53:01.787] Searching for globals ... DONE 1581s [00:53:01.787] - globals: [0] 1581s [00:53:01.787] getGlobalsAndPackages() ... DONE 1581s [00:53:01.787] + additional globals found: [n=0] 1581s [00:53:01.787] + additional namespaces needed: [n=0] 1581s [00:53:01.787] - Finding globals in 'X' for chunk #1 ... DONE 1581s [00:53:01.787] - seeds: 1581s [00:53:01.787] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1581s [00:53:01.788] getGlobalsAndPackages() ... 1581s [00:53:01.788] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1581s [00:53:01.788] Resolving globals: FALSE 1581s [00:53:01.788] Tweak future expression to call with '...' arguments ... 1581s [00:53:01.788] { 1581s [00:53:01.788] do.call(function(...) { 1581s [00:53:01.788] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1581s [00:53:01.788] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1581s [00:53:01.788] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1581s [00:53:01.788] on.exit(options(oopts), add = TRUE) 1581s [00:53:01.788] } 1581s [00:53:01.788] { 1581s [00:53:01.788] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1581s [00:53:01.788] ...future.X_jj <- ...future.elements_ii[[jj]] 1581s [00:53:01.788] ...future.FUN(...future.X_jj, ...) 1581s [00:53:01.788] }) 1581s [00:53:01.788] } 1581s [00:53:01.788] }, args = future.call.arguments) 1581s [00:53:01.788] } 1581s [00:53:01.789] Tweak future expression to call with '...' arguments ... DONE 1581s [00:53:01.789] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1581s [00:53:01.789] 1581s [00:53:01.789] getGlobalsAndPackages() ... DONE 1581s [00:53:01.790] run() for ‘Future’ ... 1581s [00:53:01.790] - state: ‘created’ 1581s [00:53:01.790] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1581s [00:53:01.794] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1581s [00:53:01.794] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1581s [00:53:01.794] - Field: ‘label’ 1581s [00:53:01.794] - Field: ‘local’ 1581s [00:53:01.795] - Field: ‘owner’ 1581s [00:53:01.795] - Field: ‘envir’ 1581s [00:53:01.795] - Field: ‘packages’ 1581s [00:53:01.795] - Field: ‘gc’ 1581s [00:53:01.795] - Field: ‘conditions’ 1581s [00:53:01.796] - Field: ‘expr’ 1581s [00:53:01.796] - Field: ‘uuid’ 1581s [00:53:01.796] - Field: ‘seed’ 1581s [00:53:01.796] - Field: ‘version’ 1581s [00:53:01.796] - Field: ‘result’ 1581s [00:53:01.796] - Field: ‘asynchronous’ 1581s [00:53:01.796] - Field: ‘calls’ 1581s [00:53:01.797] - Field: ‘globals’ 1581s [00:53:01.797] - Field: ‘stdout’ 1581s [00:53:01.797] - Field: ‘earlySignal’ 1581s [00:53:01.797] - Field: ‘lazy’ 1581s [00:53:01.797] - Field: ‘state’ 1581s [00:53:01.797] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1581s [00:53:01.797] - Launch lazy future ... 1581s [00:53:01.798] Packages needed by the future expression (n = 0): 1581s [00:53:01.798] Packages needed by future strategies (n = 0): 1581s [00:53:01.799] { 1581s [00:53:01.799] { 1581s [00:53:01.799] { 1581s [00:53:01.799] ...future.startTime <- base::Sys.time() 1581s [00:53:01.799] { 1581s [00:53:01.799] { 1581s [00:53:01.799] { 1581s [00:53:01.799] base::local({ 1581s [00:53:01.799] has_future <- base::requireNamespace("future", 1581s [00:53:01.799] quietly = TRUE) 1581s [00:53:01.799] if (has_future) { 1581s [00:53:01.799] ns <- base::getNamespace("future") 1581s [00:53:01.799] version <- ns[[".package"]][["version"]] 1581s [00:53:01.799] if (is.null(version)) 1581s [00:53:01.799] version <- utils::packageVersion("future") 1581s [00:53:01.799] } 1581s [00:53:01.799] else { 1581s [00:53:01.799] version <- NULL 1581s [00:53:01.799] } 1581s [00:53:01.799] if (!has_future || version < "1.8.0") { 1581s [00:53:01.799] info <- base::c(r_version = base::gsub("R version ", 1581s [00:53:01.799] "", base::R.version$version.string), 1581s [00:53:01.799] platform = base::sprintf("%s (%s-bit)", 1581s [00:53:01.799] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1581s [00:53:01.799] os = base::paste(base::Sys.info()[base::c("sysname", 1581s [00:53:01.799] "release", "version")], collapse = " "), 1581s [00:53:01.799] hostname = base::Sys.info()[["nodename"]]) 1581s [00:53:01.799] info <- base::sprintf("%s: %s", base::names(info), 1581s [00:53:01.799] info) 1581s [00:53:01.799] info <- base::paste(info, collapse = "; ") 1581s [00:53:01.799] if (!has_future) { 1581s [00:53:01.799] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1581s [00:53:01.799] info) 1581s [00:53:01.799] } 1581s [00:53:01.799] else { 1581s [00:53:01.799] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1581s [00:53:01.799] info, version) 1581s [00:53:01.799] } 1581s [00:53:01.799] base::stop(msg) 1581s [00:53:01.799] } 1581s [00:53:01.799] }) 1581s [00:53:01.799] } 1581s [00:53:01.799] options(future.plan = NULL) 1581s [00:53:01.799] Sys.unsetenv("R_FUTURE_PLAN") 1581s [00:53:01.799] future::plan("default", .cleanup = FALSE, .init = FALSE) 1581s [00:53:01.799] } 1581s [00:53:01.799] ...future.workdir <- getwd() 1581s [00:53:01.799] } 1581s [00:53:01.799] ...future.oldOptions <- base::as.list(base::.Options) 1581s [00:53:01.799] ...future.oldEnvVars <- base::Sys.getenv() 1581s [00:53:01.799] } 1581s [00:53:01.799] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1581s [00:53:01.799] future.globals.maxSize = NULL, future.globals.method = NULL, 1581s [00:53:01.799] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1581s [00:53:01.799] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1581s [00:53:01.799] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1581s [00:53:01.799] future.stdout.windows.reencode = NULL, width = 80L) 1581s [00:53:01.799] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1581s [00:53:01.799] base::names(...future.oldOptions)) 1581s [00:53:01.799] } 1581s [00:53:01.799] if (FALSE) { 1581s [00:53:01.799] } 1581s [00:53:01.799] else { 1581s [00:53:01.799] if (TRUE) { 1581s [00:53:01.799] ...future.stdout <- base::rawConnection(base::raw(0L), 1581s [00:53:01.799] open = "w") 1581s [00:53:01.799] } 1581s [00:53:01.799] else { 1581s [00:53:01.799] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1581s [00:53:01.799] windows = "NUL", "/dev/null"), open = "w") 1581s [00:53:01.799] } 1581s [00:53:01.799] base::sink(...future.stdout, type = "output", split = FALSE) 1581s [00:53:01.799] base::on.exit(if (!base::is.null(...future.stdout)) { 1581s [00:53:01.799] base::sink(type = "output", split = FALSE) 1581s [00:53:01.799] base::close(...future.stdout) 1581s [00:53:01.799] }, add = TRUE) 1581s [00:53:01.799] } 1581s [00:53:01.799] ...future.frame <- base::sys.nframe() 1581s [00:53:01.799] ...future.conditions <- base::list() 1581s [00:53:01.799] ...future.rng <- base::globalenv()$.Random.seed 1581s [00:53:01.799] if (FALSE) { 1581s [00:53:01.799] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1581s [00:53:01.799] "...future.value", "...future.globalenv.names", ".Random.seed") 1581s [00:53:01.799] } 1581s [00:53:01.799] ...future.result <- base::tryCatch({ 1581s [00:53:01.799] base::withCallingHandlers({ 1581s [00:53:01.799] ...future.value <- base::withVisible(base::local({ 1581s [00:53:01.799] do.call(function(...) { 1581s [00:53:01.799] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1581s [00:53:01.799] if (!identical(...future.globals.maxSize.org, 1581s [00:53:01.799] ...future.globals.maxSize)) { 1581s [00:53:01.799] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1581s [00:53:01.799] on.exit(options(oopts), add = TRUE) 1581s [00:53:01.799] } 1581s [00:53:01.799] { 1581s [00:53:01.799] lapply(seq_along(...future.elements_ii), 1581s [00:53:01.799] FUN = function(jj) { 1581s [00:53:01.799] ...future.X_jj <- ...future.elements_ii[[jj]] 1581s [00:53:01.799] ...future.FUN(...future.X_jj, ...) 1581s [00:53:01.799] }) 1581s [00:53:01.799] } 1581s [00:53:01.799] }, args = future.call.arguments) 1581s [00:53:01.799] })) 1581s [00:53:01.799] future::FutureResult(value = ...future.value$value, 1581s [00:53:01.799] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1581s [00:53:01.799] ...future.rng), globalenv = if (FALSE) 1581s [00:53:01.799] list(added = base::setdiff(base::names(base::.GlobalEnv), 1581s [00:53:01.799] ...future.globalenv.names)) 1581s [00:53:01.799] else NULL, started = ...future.startTime, version = "1.8") 1581s [00:53:01.799] }, condition = base::local({ 1581s [00:53:01.799] c <- base::c 1581s [00:53:01.799] inherits <- base::inherits 1581s [00:53:01.799] invokeRestart <- base::invokeRestart 1581s [00:53:01.799] length <- base::length 1581s [00:53:01.799] list <- base::list 1581s [00:53:01.799] seq.int <- base::seq.int 1581s [00:53:01.799] signalCondition <- base::signalCondition 1581s [00:53:01.799] sys.calls <- base::sys.calls 1581s [00:53:01.799] `[[` <- base::`[[` 1581s [00:53:01.799] `+` <- base::`+` 1581s [00:53:01.799] `<<-` <- base::`<<-` 1581s [00:53:01.799] sysCalls <- function(calls = sys.calls(), from = 1L) { 1581s [00:53:01.799] calls[seq.int(from = from + 12L, to = length(calls) - 1581s [00:53:01.799] 3L)] 1581s [00:53:01.799] } 1581s [00:53:01.799] function(cond) { 1581s [00:53:01.799] is_error <- inherits(cond, "error") 1581s [00:53:01.799] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1581s [00:53:01.799] NULL) 1581s [00:53:01.799] if (is_error) { 1581s [00:53:01.799] sessionInformation <- function() { 1581s [00:53:01.799] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1581s [00:53:01.799] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1581s [00:53:01.799] search = base::search(), system = base::Sys.info()) 1581s [00:53:01.799] } 1581s [00:53:01.799] ...future.conditions[[length(...future.conditions) + 1581s [00:53:01.799] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1581s [00:53:01.799] cond$call), session = sessionInformation(), 1581s [00:53:01.799] timestamp = base::Sys.time(), signaled = 0L) 1581s [00:53:01.799] signalCondition(cond) 1581s [00:53:01.799] } 1581s [00:53:01.799] else if (!ignore && TRUE && inherits(cond, c("condition", 1581s [00:53:01.799] "immediateCondition"))) { 1581s [00:53:01.799] signal <- TRUE && inherits(cond, "immediateCondition") 1581s [00:53:01.799] ...future.conditions[[length(...future.conditions) + 1581s [00:53:01.799] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1581s [00:53:01.799] if (TRUE && !signal) { 1581s [00:53:01.799] muffleCondition <- function (cond, pattern = "^muffle") 1581s [00:53:01.799] { 1581s [00:53:01.799] inherits <- base::inherits 1581s [00:53:01.799] invokeRestart <- base::invokeRestart 1581s [00:53:01.799] is.null <- base::is.null 1581s [00:53:01.799] muffled <- FALSE 1581s [00:53:01.799] if (inherits(cond, "message")) { 1581s [00:53:01.799] muffled <- grepl(pattern, "muffleMessage") 1581s [00:53:01.799] if (muffled) 1581s [00:53:01.799] invokeRestart("muffleMessage") 1581s [00:53:01.799] } 1581s [00:53:01.799] else if (inherits(cond, "warning")) { 1581s [00:53:01.799] muffled <- grepl(pattern, "muffleWarning") 1581s [00:53:01.799] if (muffled) 1581s [00:53:01.799] invokeRestart("muffleWarning") 1581s [00:53:01.799] } 1581s [00:53:01.799] else if (inherits(cond, "condition")) { 1581s [00:53:01.799] if (!is.null(pattern)) { 1581s [00:53:01.799] computeRestarts <- base::computeRestarts 1581s [00:53:01.799] grepl <- base::grepl 1581s [00:53:01.799] restarts <- computeRestarts(cond) 1581s [00:53:01.799] for (restart in restarts) { 1581s [00:53:01.799] name <- restart$name 1581s [00:53:01.799] if (is.null(name)) 1581s [00:53:01.799] next 1581s [00:53:01.799] if (!grepl(pattern, name)) 1581s [00:53:01.799] next 1581s [00:53:01.799] invokeRestart(restart) 1581s [00:53:01.799] muffled <- TRUE 1581s [00:53:01.799] break 1581s [00:53:01.799] } 1581s [00:53:01.799] } 1581s [00:53:01.799] } 1581s [00:53:01.799] invisible(muffled) 1581s [00:53:01.799] } 1581s [00:53:01.799] muffleCondition(cond, pattern = "^muffle") 1581s [00:53:01.799] } 1581s [00:53:01.799] } 1581s [00:53:01.799] else { 1581s [00:53:01.799] if (TRUE) { 1581s [00:53:01.799] muffleCondition <- function (cond, pattern = "^muffle") 1581s [00:53:01.799] { 1581s [00:53:01.799] inherits <- base::inherits 1581s [00:53:01.799] invokeRestart <- base::invokeRestart 1581s [00:53:01.799] is.null <- base::is.null 1581s [00:53:01.799] muffled <- FALSE 1581s [00:53:01.799] if (inherits(cond, "message")) { 1581s [00:53:01.799] muffled <- grepl(pattern, "muffleMessage") 1581s [00:53:01.799] if (muffled) 1581s [00:53:01.799] invokeRestart("muffleMessage") 1581s [00:53:01.799] } 1581s [00:53:01.799] else if (inherits(cond, "warning")) { 1581s [00:53:01.799] muffled <- grepl(pattern, "muffleWarning") 1581s [00:53:01.799] if (muffled) 1581s [00:53:01.799] invokeRestart("muffleWarning") 1581s [00:53:01.799] } 1581s [00:53:01.799] else if (inherits(cond, "condition")) { 1581s [00:53:01.799] if (!is.null(pattern)) { 1581s [00:53:01.799] computeRestarts <- base::computeRestarts 1581s [00:53:01.799] grepl <- base::grepl 1581s [00:53:01.799] restarts <- computeRestarts(cond) 1581s [00:53:01.799] for (restart in restarts) { 1581s [00:53:01.799] name <- restart$name 1581s [00:53:01.799] if (is.null(name)) 1581s [00:53:01.799] next 1581s [00:53:01.799] if (!grepl(pattern, name)) 1581s [00:53:01.799] next 1581s [00:53:01.799] invokeRestart(restart) 1581s [00:53:01.799] muffled <- TRUE 1581s [00:53:01.799] break 1581s [00:53:01.799] } 1581s [00:53:01.799] } 1581s [00:53:01.799] } 1581s [00:53:01.799] invisible(muffled) 1581s [00:53:01.799] } 1581s [00:53:01.799] muffleCondition(cond, pattern = "^muffle") 1581s [00:53:01.799] } 1581s [00:53:01.799] } 1581s [00:53:01.799] } 1581s [00:53:01.799] })) 1581s [00:53:01.799] }, error = function(ex) { 1581s [00:53:01.799] base::structure(base::list(value = NULL, visible = NULL, 1581s [00:53:01.799] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1581s [00:53:01.799] ...future.rng), started = ...future.startTime, 1581s [00:53:01.799] finished = Sys.time(), session_uuid = NA_character_, 1581s [00:53:01.799] version = "1.8"), class = "FutureResult") 1581s [00:53:01.799] }, finally = { 1581s [00:53:01.799] if (!identical(...future.workdir, getwd())) 1581s [00:53:01.799] setwd(...future.workdir) 1581s [00:53:01.799] { 1581s [00:53:01.799] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1581s [00:53:01.799] ...future.oldOptions$nwarnings <- NULL 1581s [00:53:01.799] } 1581s [00:53:01.799] base::options(...future.oldOptions) 1581s [00:53:01.799] if (.Platform$OS.type == "windows") { 1581s [00:53:01.799] old_names <- names(...future.oldEnvVars) 1581s [00:53:01.799] envs <- base::Sys.getenv() 1581s [00:53:01.799] names <- names(envs) 1581s [00:53:01.799] common <- intersect(names, old_names) 1581s [00:53:01.799] added <- setdiff(names, old_names) 1581s [00:53:01.799] removed <- setdiff(old_names, names) 1581s [00:53:01.799] changed <- common[...future.oldEnvVars[common] != 1581s [00:53:01.799] envs[common]] 1581s [00:53:01.799] NAMES <- toupper(changed) 1581s [00:53:01.799] args <- list() 1581s [00:53:01.799] for (kk in seq_along(NAMES)) { 1581s [00:53:01.799] name <- changed[[kk]] 1581s [00:53:01.799] NAME <- NAMES[[kk]] 1581s [00:53:01.799] if (name != NAME && is.element(NAME, old_names)) 1581s [00:53:01.799] next 1581s [00:53:01.799] args[[name]] <- ...future.oldEnvVars[[name]] 1581s [00:53:01.799] } 1581s [00:53:01.799] NAMES <- toupper(added) 1581s [00:53:01.799] for (kk in seq_along(NAMES)) { 1581s [00:53:01.799] name <- added[[kk]] 1581s [00:53:01.799] NAME <- NAMES[[kk]] 1581s [00:53:01.799] if (name != NAME && is.element(NAME, old_names)) 1581s [00:53:01.799] next 1581s [00:53:01.799] args[[name]] <- "" 1581s [00:53:01.799] } 1581s [00:53:01.799] NAMES <- toupper(removed) 1581s [00:53:01.799] for (kk in seq_along(NAMES)) { 1581s [00:53:01.799] name <- removed[[kk]] 1581s [00:53:01.799] NAME <- NAMES[[kk]] 1581s [00:53:01.799] if (name != NAME && is.element(NAME, old_names)) 1581s [00:53:01.799] next 1581s [00:53:01.799] args[[name]] <- ...future.oldEnvVars[[name]] 1581s [00:53:01.799] } 1581s [00:53:01.799] if (length(args) > 0) 1581s [00:53:01.799] base::do.call(base::Sys.setenv, args = args) 1581s [00:53:01.799] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1581s [00:53:01.799] } 1581s [00:53:01.799] else { 1581s [00:53:01.799] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1581s [00:53:01.799] } 1581s [00:53:01.799] { 1581s [00:53:01.799] if (base::length(...future.futureOptionsAdded) > 1581s [00:53:01.799] 0L) { 1581s [00:53:01.799] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1581s [00:53:01.799] base::names(opts) <- ...future.futureOptionsAdded 1581s [00:53:01.799] base::options(opts) 1581s [00:53:01.799] } 1581s [00:53:01.799] { 1581s [00:53:01.799] { 1581s [00:53:01.799] NULL 1581s [00:53:01.799] RNGkind("Mersenne-Twister") 1581s [00:53:01.799] base::rm(list = ".Random.seed", envir = base::globalenv(), 1581s [00:53:01.799] inherits = FALSE) 1581s [00:53:01.799] } 1581s [00:53:01.799] options(future.plan = NULL) 1581s [00:53:01.799] if (is.na(NA_character_)) 1581s [00:53:01.799] Sys.unsetenv("R_FUTURE_PLAN") 1581s [00:53:01.799] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1581s [00:53:01.799] future::plan(list(function (..., workers = availableCores(), 1581s [00:53:01.799] lazy = FALSE, rscript_libs = .libPaths(), 1581s [00:53:01.799] envir = parent.frame()) 1581s [00:53:01.799] { 1581s [00:53:01.799] if (is.function(workers)) 1581s [00:53:01.799] workers <- workers() 1581s [00:53:01.799] workers <- structure(as.integer(workers), 1581s [00:53:01.799] class = class(workers)) 1581s [00:53:01.799] stop_if_not(length(workers) == 1, is.finite(workers), 1581s [00:53:01.799] workers >= 1) 1581s [00:53:01.799] if (workers == 1L && !inherits(workers, "AsIs")) { 1581s [00:53:01.799] return(sequential(..., lazy = TRUE, envir = envir)) 1581s [00:53:01.799] } 1581s [00:53:01.799] future <- MultisessionFuture(..., workers = workers, 1581s [00:53:01.799] lazy = lazy, rscript_libs = rscript_libs, 1581s [00:53:01.799] envir = envir) 1581s [00:53:01.799] if (!future$lazy) 1581s [00:53:01.799] future <- run(future) 1581s [00:53:01.799] invisible(future) 1581s [00:53:01.799] }), .cleanup = FALSE, .init = FALSE) 1581s [00:53:01.799] } 1581s [00:53:01.799] } 1581s [00:53:01.799] } 1581s [00:53:01.799] }) 1581s [00:53:01.799] if (TRUE) { 1581s [00:53:01.799] base::sink(type = "output", split = FALSE) 1581s [00:53:01.799] if (TRUE) { 1581s [00:53:01.799] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1581s [00:53:01.799] } 1581s [00:53:01.799] else { 1581s [00:53:01.799] ...future.result["stdout"] <- base::list(NULL) 1581s [00:53:01.799] } 1581s [00:53:01.799] base::close(...future.stdout) 1581s [00:53:01.799] ...future.stdout <- NULL 1581s [00:53:01.799] } 1581s [00:53:01.799] ...future.result$conditions <- ...future.conditions 1581s [00:53:01.799] ...future.result$finished <- base::Sys.time() 1581s [00:53:01.799] ...future.result 1581s [00:53:01.799] } 1581s [00:53:01.805] assign_globals() ... 1581s [00:53:01.806] List of 5 1581s [00:53:01.806] $ ...future.FUN :function (x) 1581s [00:53:01.806] $ future.call.arguments : list() 1581s [00:53:01.806] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1581s [00:53:01.806] $ ...future.elements_ii :List of 6 1581s [00:53:01.806] ..$ a1: int 1 1581s [00:53:01.806] ..$ a2: int 2 1581s [00:53:01.806] ..$ b1: int 2 1581s [00:53:01.806] ..$ b2: int 3 1581s [00:53:01.806] ..$ c1: int 3 1581s [00:53:01.806] ..$ c2: int 4 1581s [00:53:01.806] $ ...future.seeds_ii : NULL 1581s [00:53:01.806] $ ...future.globals.maxSize: NULL 1581s [00:53:01.806] - attr(*, "where")=List of 5 1581s [00:53:01.806] ..$ ...future.FUN : 1581s [00:53:01.806] ..$ future.call.arguments : 1581s [00:53:01.806] ..$ ...future.elements_ii : 1581s [00:53:01.806] ..$ ...future.seeds_ii : 1581s [00:53:01.806] ..$ ...future.globals.maxSize: 1581s [00:53:01.806] - attr(*, "resolved")= logi FALSE 1581s [00:53:01.806] - attr(*, "total_size")= num 848 1581s [00:53:01.806] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1581s [00:53:01.806] - attr(*, "already-done")= logi TRUE 1581s [00:53:01.814] - copied ‘...future.FUN’ to environment 1581s [00:53:01.815] - copied ‘future.call.arguments’ to environment 1581s [00:53:01.815] - copied ‘...future.elements_ii’ to environment 1581s [00:53:01.815] - copied ‘...future.seeds_ii’ to environment 1581s [00:53:01.816] - copied ‘...future.globals.maxSize’ to environment 1581s [00:53:01.816] assign_globals() ... done 1581s [00:53:01.816] plan(): Setting new future strategy stack: 1581s [00:53:01.816] List of future strategies: 1581s [00:53:01.816] 1. sequential: 1581s [00:53:01.816] - args: function (..., envir = parent.frame()) 1581s [00:53:01.816] - tweaked: FALSE 1581s [00:53:01.816] - call: NULL 1581s [00:53:01.817] plan(): nbrOfWorkers() = 1 1581s [00:53:01.819] plan(): Setting new future strategy stack: 1581s [00:53:01.819] List of future strategies: 1581s [00:53:01.819] 1. multisession: 1581s [00:53:01.819] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1581s [00:53:01.819] - tweaked: FALSE 1581s [00:53:01.819] - call: plan(strategy) 1581s [00:53:01.823] plan(): nbrOfWorkers() = 1 1581s [00:53:01.824] SequentialFuture started (and completed) 1581s [00:53:01.824] - Launch lazy future ... done 1581s [00:53:01.825] run() for ‘SequentialFuture’ ... done 1581s [00:53:01.825] Created future: 1581s [00:53:01.825] SequentialFuture: 1581s [00:53:01.825] Label: ‘future_sapply-1’ 1581s [00:53:01.825] Expression: 1581s [00:53:01.825] { 1581s [00:53:01.825] do.call(function(...) { 1581s [00:53:01.825] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1581s [00:53:01.825] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1581s [00:53:01.825] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1581s [00:53:01.825] on.exit(options(oopts), add = TRUE) 1581s [00:53:01.825] } 1581s [00:53:01.825] { 1581s [00:53:01.825] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1581s [00:53:01.825] ...future.X_jj <- ...future.elements_ii[[jj]] 1581s [00:53:01.825] ...future.FUN(...future.X_jj, ...) 1581s [00:53:01.825] }) 1581s [00:53:01.825] } 1581s [00:53:01.825] }, args = future.call.arguments) 1581s [00:53:01.825] } 1581s [00:53:01.825] Lazy evaluation: FALSE 1581s [00:53:01.825] Asynchronous evaluation: FALSE 1581s [00:53:01.825] Local evaluation: TRUE 1581s [00:53:01.825] Environment: R_GlobalEnv 1581s [00:53:01.825] Capture standard output: TRUE 1581s [00:53:01.825] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1581s [00:53:01.825] Globals: 5 objects totaling 1.16 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1581s [00:53:01.825] Packages: 1581s [00:53:01.825] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1581s [00:53:01.825] Resolved: TRUE 1581s [00:53:01.825] Value: 336 bytes of class ‘list’ 1581s [00:53:01.825] Early signaling: FALSE 1581s [00:53:01.825] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1581s [00:53:01.825] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1581s [00:53:01.828] Chunk #1 of 1 ... DONE 1581s [00:53:01.828] Launching 1 futures (chunks) ... DONE 1581s [00:53:01.828] Resolving 1 futures (chunks) ... 1581s [00:53:01.828] resolve() on list ... 1581s [00:53:01.829] recursive: 0 1581s [00:53:01.829] length: 1 1581s [00:53:01.829] 1581s [00:53:01.829] resolved() for ‘SequentialFuture’ ... 1581s [00:53:01.829] - state: ‘finished’ 1581s [00:53:01.830] - run: TRUE 1581s [00:53:01.830] - result: ‘FutureResult’ 1581s [00:53:01.830] resolved() for ‘SequentialFuture’ ... done 1581s [00:53:01.830] Future #1 1581s [00:53:01.831] signalConditionsASAP(SequentialFuture, pos=1) ... 1581s [00:53:01.831] - nx: 1 1581s [00:53:01.831] - relay: TRUE 1581s [00:53:01.831] - stdout: TRUE 1581s List of 2 1581s $ y0: Named int [1:6] 1 2 2 3 3 4 1581s ..- attr(*, "names")= chr [1:6] "a1" "a2" "b1" "b2" ... 1581s $ y1:[00:53:01.832] - signal: TRUE 1581s [00:53:01.832] - resignal: FALSE 1581s [00:53:01.832] - force: TRUE 1581s [00:53:01.833] - relayed: [n=1] FALSE 1581s [00:53:01.833] - queued futures: [n=1] FALSE 1581s [00:53:01.833] - until=1 1581s [00:53:01.833] - relaying element #1 1581s [00:53:01.834] - relayed: [n=1] TRUE 1581s [00:53:01.834] - queued futures: [n=1] TRUE 1581s [00:53:01.834] signalConditionsASAP(SequentialFuture, pos=1) ... done 1581s [00:53:01.834] length: 0 (resolved future 1) 1581s [00:53:01.835] Relaying remaining futures 1581s [00:53:01.835] signalConditionsASAP(NULL, pos=0) ... 1581s [00:53:01.835] - nx: 1 1581s [00:53:01.835] - relay: TRUE 1581s [00:53:01.835] - stdout: TRUE 1581s [00:53:01.835] - signal: TRUE 1581s [00:53:01.836] - resignal: FALSE 1581s [00:53:01.836] - force: TRUE 1581s [00:53:01.836] - relayed: [n=1] TRUE 1581s [00:53:01.836] - queued futures: [n=1] TRUE 1581s - flush all 1581s [00:53:01.836] - relayed: [n=1] TRUE 1581s [00:53:01.837] - queued futures: [n=1] TRUE 1581s [00:53:01.837] signalConditionsASAP(NULL, pos=0) ... done 1581s [00:53:01.837] resolve() on list ... DONE 1581s [00:53:01.837] - Number of value chunks collected: 1 1581s [00:53:01.837] Resolving 1 futures (chunks) ... DONE 1581s [00:53:01.837] Reducing values from 1 chunks ... 1581s [00:53:01.838] - Number of values collected after concatenation: 6 1581s [00:53:01.838] - Number of values expected: 6 1581s [00:53:01.838] Reducing values from 1 chunks ... DONE 1581s [00:53:01.838] future_lapply() ... DONE 1581s Named int [1:6] 1 2 2 3 3 4 1581s ..- attr(*, "names")= chr [1:6] "a1" "a2" "b1" "b2" ... 1581s [00:53:01.848] future_lapply() ... 1581s [00:53:01.854] Number of chunks: 1 1581s [00:53:01.855] getGlobalsAndPackagesXApply() ... 1581s [00:53:01.855] - future.globals: TRUE 1581s [00:53:01.855] getGlobalsAndPackages() ... 1581s [00:53:01.855] Searching for globals... 1581s [00:53:01.857] - globals found: [2] ‘FUN’, ‘UseMethod’ 1581s [00:53:01.858] Searching for globals ... DONE 1581s [00:53:01.858] Resolving globals: FALSE 1581s [00:53:01.859] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1581s [00:53:01.860] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1581s [00:53:01.860] - globals: [1] ‘FUN’ 1581s [00:53:01.860] 1581s [00:53:01.860] getGlobalsAndPackages() ... DONE 1581s [00:53:01.861] - globals found/used: [n=1] ‘FUN’ 1581s [00:53:01.861] - needed namespaces: [n=0] 1581s [00:53:01.861] Finding globals ... DONE 1581s [00:53:01.861] - use_args: TRUE 1581s [00:53:01.862] - Getting '...' globals ... 1581s [00:53:01.862] resolve() on list ... 1581s [00:53:01.863] recursive: 0 1581s [00:53:01.863] length: 1 1581s [00:53:01.863] elements: ‘...’ 1581s [00:53:01.863] length: 0 (resolved future 1) 1581s [00:53:01.864] resolve() on list ... DONE 1581s [00:53:01.864] - '...' content: [n=0] 1581s [00:53:01.864] List of 1 1581s [00:53:01.864] $ ...: list() 1581s [00:53:01.864] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1581s [00:53:01.864] - attr(*, "where")=List of 1 1581s [00:53:01.864] ..$ ...: 1581s [00:53:01.864] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1581s [00:53:01.864] - attr(*, "resolved")= logi TRUE 1581s [00:53:01.864] - attr(*, "total_size")= num NA 1581s [00:53:01.868] - Getting '...' globals ... DONE 1581s [00:53:01.868] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1581s [00:53:01.869] List of 2 1581s [00:53:01.869] $ ...future.FUN:function (x, ...) 1581s [00:53:01.869] $ ... : list() 1581s [00:53:01.869] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1581s [00:53:01.869] - attr(*, "where")=List of 2 1581s [00:53:01.869] ..$ ...future.FUN: 1581s [00:53:01.869] ..$ ... : 1581s [00:53:01.869] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1581s [00:53:01.869] - attr(*, "resolved")= logi FALSE 1581s [00:53:01.869] - attr(*, "total_size")= num 1248 1581s [00:53:01.873] Packages to be attached in all futures: [n=0] 1581s [00:53:01.873] getGlobalsAndPackagesXApply() ... DONE 1581s [00:53:01.874] Number of futures (= number of chunks): 1 1581s [00:53:01.874] Launching 1 futures (chunks) ... 1581s [00:53:01.874] Chunk #1 of 1 ... 1581s [00:53:01.874] - Finding globals in 'X' for chunk #1 ... 1581s [00:53:01.875] getGlobalsAndPackages() ... 1581s [00:53:01.875] Searching for globals... 1581s [00:53:01.875] 1581s [00:53:01.875] Searching for globals ... DONE 1581s [00:53:01.876] - globals: [0] 1581s [00:53:01.876] getGlobalsAndPackages() ... DONE 1581s [00:53:01.876] + additional globals found: [n=0] 1581s [00:53:01.876] + additional namespaces needed: [n=0] 1581s [00:53:01.876] - Finding globals in 'X' for chunk #1 ... DONE 1581s [00:53:01.877] - seeds: 1581s [00:53:01.877] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1581s [00:53:01.877] getGlobalsAndPackages() ... 1581s [00:53:01.877] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1581s [00:53:01.877] Resolving globals: FALSE 1581s [00:53:01.877] Tweak future expression to call with '...' arguments ... 1581s [00:53:01.877] { 1581s [00:53:01.877] do.call(function(...) { 1581s [00:53:01.877] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1581s [00:53:01.877] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1581s [00:53:01.877] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1581s [00:53:01.877] on.exit(options(oopts), add = TRUE) 1581s [00:53:01.877] } 1581s [00:53:01.877] { 1581s [00:53:01.877] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1581s [00:53:01.877] ...future.X_jj <- ...future.elements_ii[[jj]] 1581s [00:53:01.877] ...future.FUN(...future.X_jj, ...) 1581s [00:53:01.877] }) 1581s [00:53:01.877] } 1581s [00:53:01.877] }, args = future.call.arguments) 1581s [00:53:01.877] } 1581s [00:53:01.878] Tweak future expression to call with '...' arguments ... DONE 1581s [00:53:01.878] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1581s [00:53:01.879] 1581s [00:53:01.879] getGlobalsAndPackages() ... DONE 1581s [00:53:01.879] run() for ‘Future’ ... 1581s [00:53:01.879] - state: ‘created’ 1581s [00:53:01.879] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1581s [00:53:01.883] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1581s [00:53:01.884] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1581s [00:53:01.884] - Field: ‘label’ 1581s [00:53:01.884] - Field: ‘local’ 1581s [00:53:01.885] - Field: ‘owner’ 1581s [00:53:01.885] - Field: ‘envir’ 1581s [00:53:01.885] - Field: ‘packages’ 1581s [00:53:01.885] - Field: ‘gc’ 1581s [00:53:01.885] - Field: ‘conditions’ 1581s [00:53:01.885] - Field: ‘expr’ 1581s [00:53:01.885] - Field: ‘uuid’ 1581s [00:53:01.886] - Field: ‘seed’ 1581s [00:53:01.886] - Field: ‘version’ 1581s [00:53:01.886] - Field: ‘result’ 1581s [00:53:01.886] - Field: ‘asynchronous’ 1581s [00:53:01.887] - Field: ‘calls’ 1581s [00:53:01.887] - Field: ‘globals’ 1581s [00:53:01.887] - Field: ‘stdout’ 1581s [00:53:01.887] - Field: ‘earlySignal’ 1581s [00:53:01.887] - Field: ‘lazy’ 1581s [00:53:01.888] - Field: ‘state’ 1581s [00:53:01.888] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1581s [00:53:01.888] - Launch lazy future ... 1581s [00:53:01.888] Packages needed by the future expression (n = 0): 1581s [00:53:01.889] Packages needed by future strategies (n = 0): 1581s [00:53:01.890] { 1581s [00:53:01.890] { 1581s [00:53:01.890] { 1581s [00:53:01.890] ...future.startTime <- base::Sys.time() 1581s [00:53:01.890] { 1581s [00:53:01.890] { 1581s [00:53:01.890] { 1581s [00:53:01.890] base::local({ 1581s [00:53:01.890] has_future <- base::requireNamespace("future", 1581s [00:53:01.890] quietly = TRUE) 1581s [00:53:01.890] if (has_future) { 1581s [00:53:01.890] ns <- base::getNamespace("future") 1581s [00:53:01.890] version <- ns[[".package"]][["version"]] 1581s [00:53:01.890] if (is.null(version)) 1581s [00:53:01.890] version <- utils::packageVersion("future") 1581s [00:53:01.890] } 1581s [00:53:01.890] else { 1581s [00:53:01.890] version <- NULL 1581s [00:53:01.890] } 1581s [00:53:01.890] if (!has_future || version < "1.8.0") { 1581s [00:53:01.890] info <- base::c(r_version = base::gsub("R version ", 1581s [00:53:01.890] "", base::R.version$version.string), 1581s [00:53:01.890] platform = base::sprintf("%s (%s-bit)", 1581s [00:53:01.890] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1581s [00:53:01.890] os = base::paste(base::Sys.info()[base::c("sysname", 1581s [00:53:01.890] "release", "version")], collapse = " "), 1581s [00:53:01.890] hostname = base::Sys.info()[["nodename"]]) 1581s [00:53:01.890] info <- base::sprintf("%s: %s", base::names(info), 1581s [00:53:01.890] info) 1581s [00:53:01.890] info <- base::paste(info, collapse = "; ") 1581s [00:53:01.890] if (!has_future) { 1581s [00:53:01.890] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1581s [00:53:01.890] info) 1581s [00:53:01.890] } 1581s [00:53:01.890] else { 1581s [00:53:01.890] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1581s [00:53:01.890] info, version) 1581s [00:53:01.890] } 1581s [00:53:01.890] base::stop(msg) 1581s [00:53:01.890] } 1581s [00:53:01.890] }) 1581s [00:53:01.890] } 1581s [00:53:01.890] options(future.plan = NULL) 1581s [00:53:01.890] Sys.unsetenv("R_FUTURE_PLAN") 1581s [00:53:01.890] future::plan("default", .cleanup = FALSE, .init = FALSE) 1581s [00:53:01.890] } 1581s [00:53:01.890] ...future.workdir <- getwd() 1581s [00:53:01.890] } 1581s [00:53:01.890] ...future.oldOptions <- base::as.list(base::.Options) 1581s [00:53:01.890] ...future.oldEnvVars <- base::Sys.getenv() 1581s [00:53:01.890] } 1581s [00:53:01.890] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1581s [00:53:01.890] future.globals.maxSize = NULL, future.globals.method = NULL, 1581s [00:53:01.890] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1581s [00:53:01.890] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1581s [00:53:01.890] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1581s [00:53:01.890] future.stdout.windows.reencode = NULL, width = 80L) 1581s [00:53:01.890] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1581s [00:53:01.890] base::names(...future.oldOptions)) 1581s [00:53:01.890] } 1581s [00:53:01.890] if (FALSE) { 1581s [00:53:01.890] } 1581s [00:53:01.890] else { 1581s [00:53:01.890] if (TRUE) { 1581s [00:53:01.890] ...future.stdout <- base::rawConnection(base::raw(0L), 1581s [00:53:01.890] open = "w") 1581s [00:53:01.890] } 1581s [00:53:01.890] else { 1581s [00:53:01.890] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1581s [00:53:01.890] windows = "NUL", "/dev/null"), open = "w") 1581s [00:53:01.890] } 1581s [00:53:01.890] base::sink(...future.stdout, type = "output", split = FALSE) 1581s [00:53:01.890] base::on.exit(if (!base::is.null(...future.stdout)) { 1581s [00:53:01.890] base::sink(type = "output", split = FALSE) 1581s [00:53:01.890] base::close(...future.stdout) 1581s [00:53:01.890] }, add = TRUE) 1581s [00:53:01.890] } 1581s [00:53:01.890] ...future.frame <- base::sys.nframe() 1581s [00:53:01.890] ...future.conditions <- base::list() 1581s [00:53:01.890] ...future.rng <- base::globalenv()$.Random.seed 1581s [00:53:01.890] if (FALSE) { 1581s [00:53:01.890] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1581s [00:53:01.890] "...future.value", "...future.globalenv.names", ".Random.seed") 1581s [00:53:01.890] } 1581s [00:53:01.890] ...future.result <- base::tryCatch({ 1581s [00:53:01.890] base::withCallingHandlers({ 1581s [00:53:01.890] ...future.value <- base::withVisible(base::local({ 1581s [00:53:01.890] do.call(function(...) { 1581s [00:53:01.890] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1581s [00:53:01.890] if (!identical(...future.globals.maxSize.org, 1581s [00:53:01.890] ...future.globals.maxSize)) { 1581s [00:53:01.890] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1581s [00:53:01.890] on.exit(options(oopts), add = TRUE) 1581s [00:53:01.890] } 1581s [00:53:01.890] { 1581s [00:53:01.890] lapply(seq_along(...future.elements_ii), 1581s [00:53:01.890] FUN = function(jj) { 1581s [00:53:01.890] ...future.X_jj <- ...future.elements_ii[[jj]] 1581s [00:53:01.890] ...future.FUN(...future.X_jj, ...) 1581s [00:53:01.890] }) 1581s [00:53:01.890] } 1581s [00:53:01.890] }, args = future.call.arguments) 1581s [00:53:01.890] })) 1581s [00:53:01.890] future::FutureResult(value = ...future.value$value, 1581s [00:53:01.890] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1581s [00:53:01.890] ...future.rng), globalenv = if (FALSE) 1581s [00:53:01.890] list(added = base::setdiff(base::names(base::.GlobalEnv), 1581s [00:53:01.890] ...future.globalenv.names)) 1581s [00:53:01.890] else NULL, started = ...future.startTime, version = "1.8") 1581s [00:53:01.890] }, condition = base::local({ 1581s [00:53:01.890] c <- base::c 1581s [00:53:01.890] inherits <- base::inherits 1581s [00:53:01.890] invokeRestart <- base::invokeRestart 1581s [00:53:01.890] length <- base::length 1581s [00:53:01.890] list <- base::list 1581s [00:53:01.890] seq.int <- base::seq.int 1581s [00:53:01.890] signalCondition <- base::signalCondition 1581s [00:53:01.890] sys.calls <- base::sys.calls 1581s [00:53:01.890] `[[` <- base::`[[` 1581s [00:53:01.890] `+` <- base::`+` 1581s [00:53:01.890] `<<-` <- base::`<<-` 1581s [00:53:01.890] sysCalls <- function(calls = sys.calls(), from = 1L) { 1581s [00:53:01.890] calls[seq.int(from = from + 12L, to = length(calls) - 1581s [00:53:01.890] 3L)] 1581s [00:53:01.890] } 1581s [00:53:01.890] function(cond) { 1581s [00:53:01.890] is_error <- inherits(cond, "error") 1581s [00:53:01.890] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1581s [00:53:01.890] NULL) 1581s [00:53:01.890] if (is_error) { 1581s [00:53:01.890] sessionInformation <- function() { 1581s [00:53:01.890] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1581s [00:53:01.890] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1581s [00:53:01.890] search = base::search(), system = base::Sys.info()) 1581s [00:53:01.890] } 1581s [00:53:01.890] ...future.conditions[[length(...future.conditions) + 1581s [00:53:01.890] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1581s [00:53:01.890] cond$call), session = sessionInformation(), 1581s [00:53:01.890] timestamp = base::Sys.time(), signaled = 0L) 1581s [00:53:01.890] signalCondition(cond) 1581s [00:53:01.890] } 1581s [00:53:01.890] else if (!ignore && TRUE && inherits(cond, c("condition", 1581s [00:53:01.890] "immediateCondition"))) { 1581s [00:53:01.890] signal <- TRUE && inherits(cond, "immediateCondition") 1581s [00:53:01.890] ...future.conditions[[length(...future.conditions) + 1581s [00:53:01.890] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1581s [00:53:01.890] if (TRUE && !signal) { 1581s [00:53:01.890] muffleCondition <- function (cond, pattern = "^muffle") 1581s [00:53:01.890] { 1581s [00:53:01.890] inherits <- base::inherits 1581s [00:53:01.890] invokeRestart <- base::invokeRestart 1581s [00:53:01.890] is.null <- base::is.null 1581s [00:53:01.890] muffled <- FALSE 1581s [00:53:01.890] if (inherits(cond, "message")) { 1581s [00:53:01.890] muffled <- grepl(pattern, "muffleMessage") 1581s [00:53:01.890] if (muffled) 1581s [00:53:01.890] invokeRestart("muffleMessage") 1581s [00:53:01.890] } 1581s [00:53:01.890] else if (inherits(cond, "warning")) { 1581s [00:53:01.890] muffled <- grepl(pattern, "muffleWarning") 1581s [00:53:01.890] if (muffled) 1581s [00:53:01.890] invokeRestart("muffleWarning") 1581s [00:53:01.890] } 1581s [00:53:01.890] else if (inherits(cond, "condition")) { 1581s [00:53:01.890] if (!is.null(pattern)) { 1581s [00:53:01.890] computeRestarts <- base::computeRestarts 1581s [00:53:01.890] grepl <- base::grepl 1581s [00:53:01.890] restarts <- computeRestarts(cond) 1581s [00:53:01.890] for (restart in restarts) { 1581s [00:53:01.890] name <- restart$name 1581s [00:53:01.890] if (is.null(name)) 1581s [00:53:01.890] next 1581s [00:53:01.890] if (!grepl(pattern, name)) 1581s [00:53:01.890] next 1581s [00:53:01.890] invokeRestart(restart) 1581s [00:53:01.890] muffled <- TRUE 1581s [00:53:01.890] break 1581s [00:53:01.890] } 1581s [00:53:01.890] } 1581s [00:53:01.890] } 1581s [00:53:01.890] invisible(muffled) 1581s [00:53:01.890] } 1581s [00:53:01.890] muffleCondition(cond, pattern = "^muffle") 1581s [00:53:01.890] } 1581s [00:53:01.890] } 1581s [00:53:01.890] else { 1581s [00:53:01.890] if (TRUE) { 1581s [00:53:01.890] muffleCondition <- function (cond, pattern = "^muffle") 1581s [00:53:01.890] { 1581s [00:53:01.890] inherits <- base::inherits 1581s [00:53:01.890] invokeRestart <- base::invokeRestart 1581s [00:53:01.890] is.null <- base::is.null 1581s [00:53:01.890] muffled <- FALSE 1581s [00:53:01.890] if (inherits(cond, "message")) { 1581s [00:53:01.890] muffled <- grepl(pattern, "muffleMessage") 1581s [00:53:01.890] if (muffled) 1581s [00:53:01.890] invokeRestart("muffleMessage") 1581s [00:53:01.890] } 1581s [00:53:01.890] else if (inherits(cond, "warning")) { 1581s [00:53:01.890] muffled <- grepl(pattern, "muffleWarning") 1581s [00:53:01.890] if (muffled) 1581s [00:53:01.890] invokeRestart("muffleWarning") 1581s [00:53:01.890] } 1581s [00:53:01.890] else if (inherits(cond, "condition")) { 1581s [00:53:01.890] if (!is.null(pattern)) { 1581s [00:53:01.890] computeRestarts <- base::computeRestarts 1581s [00:53:01.890] grepl <- base::grepl 1581s [00:53:01.890] restarts <- computeRestarts(cond) 1581s [00:53:01.890] for (restart in restarts) { 1581s [00:53:01.890] name <- restart$name 1581s [00:53:01.890] if (is.null(name)) 1581s [00:53:01.890] next 1581s [00:53:01.890] if (!grepl(pattern, name)) 1581s [00:53:01.890] next 1581s [00:53:01.890] invokeRestart(restart) 1581s [00:53:01.890] muffled <- TRUE 1581s [00:53:01.890] break 1581s [00:53:01.890] } 1581s [00:53:01.890] } 1581s [00:53:01.890] } 1581s [00:53:01.890] invisible(muffled) 1581s [00:53:01.890] } 1581s [00:53:01.890] muffleCondition(cond, pattern = "^muffle") 1581s [00:53:01.890] } 1581s [00:53:01.890] } 1581s [00:53:01.890] } 1581s [00:53:01.890] })) 1581s [00:53:01.890] }, error = function(ex) { 1581s [00:53:01.890] base::structure(base::list(value = NULL, visible = NULL, 1581s [00:53:01.890] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1581s [00:53:01.890] ...future.rng), started = ...future.startTime, 1581s [00:53:01.890] finished = Sys.time(), session_uuid = NA_character_, 1581s [00:53:01.890] version = "1.8"), class = "FutureResult") 1581s [00:53:01.890] }, finally = { 1581s [00:53:01.890] if (!identical(...future.workdir, getwd())) 1581s [00:53:01.890] setwd(...future.workdir) 1581s [00:53:01.890] { 1581s [00:53:01.890] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1581s [00:53:01.890] ...future.oldOptions$nwarnings <- NULL 1581s [00:53:01.890] } 1581s [00:53:01.890] base::options(...future.oldOptions) 1581s [00:53:01.890] if (.Platform$OS.type == "windows") { 1581s [00:53:01.890] old_names <- names(...future.oldEnvVars) 1581s [00:53:01.890] envs <- base::Sys.getenv() 1581s [00:53:01.890] names <- names(envs) 1581s [00:53:01.890] common <- intersect(names, old_names) 1581s [00:53:01.890] added <- setdiff(names, old_names) 1581s [00:53:01.890] removed <- setdiff(old_names, names) 1581s [00:53:01.890] changed <- common[...future.oldEnvVars[common] != 1581s [00:53:01.890] envs[common]] 1581s [00:53:01.890] NAMES <- toupper(changed) 1581s [00:53:01.890] args <- list() 1581s [00:53:01.890] for (kk in seq_along(NAMES)) { 1581s [00:53:01.890] name <- changed[[kk]] 1581s [00:53:01.890] NAME <- NAMES[[kk]] 1581s [00:53:01.890] if (name != NAME && is.element(NAME, old_names)) 1581s [00:53:01.890] next 1581s [00:53:01.890] args[[name]] <- ...future.oldEnvVars[[name]] 1581s [00:53:01.890] } 1581s [00:53:01.890] NAMES <- toupper(added) 1581s [00:53:01.890] for (kk in seq_along(NAMES)) { 1581s [00:53:01.890] name <- added[[kk]] 1581s [00:53:01.890] NAME <- NAMES[[kk]] 1581s [00:53:01.890] if (name != NAME && is.element(NAME, old_names)) 1581s [00:53:01.890] next 1581s [00:53:01.890] args[[name]] <- "" 1581s [00:53:01.890] } 1581s [00:53:01.890] NAMES <- toupper(removed) 1581s [00:53:01.890] for (kk in seq_along(NAMES)) { 1581s [00:53:01.890] name <- removed[[kk]] 1581s [00:53:01.890] NAME <- NAMES[[kk]] 1581s [00:53:01.890] if (name != NAME && is.element(NAME, old_names)) 1581s [00:53:01.890] next 1581s [00:53:01.890] args[[name]] <- ...future.oldEnvVars[[name]] 1581s [00:53:01.890] } 1581s [00:53:01.890] if (length(args) > 0) 1581s [00:53:01.890] base::do.call(base::Sys.setenv, args = args) 1581s [00:53:01.890] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1581s [00:53:01.890] } 1581s [00:53:01.890] else { 1581s [00:53:01.890] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1581s [00:53:01.890] } 1581s [00:53:01.890] { 1581s [00:53:01.890] if (base::length(...future.futureOptionsAdded) > 1581s [00:53:01.890] 0L) { 1581s [00:53:01.890] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1581s [00:53:01.890] base::names(opts) <- ...future.futureOptionsAdded 1581s [00:53:01.890] base::options(opts) 1581s [00:53:01.890] } 1581s [00:53:01.890] { 1581s [00:53:01.890] { 1581s [00:53:01.890] NULL 1581s [00:53:01.890] RNGkind("Mersenne-Twister") 1581s [00:53:01.890] base::rm(list = ".Random.seed", envir = base::globalenv(), 1581s [00:53:01.890] inherits = FALSE) 1581s [00:53:01.890] } 1581s [00:53:01.890] options(future.plan = NULL) 1581s [00:53:01.890] if (is.na(NA_character_)) 1581s [00:53:01.890] Sys.unsetenv("R_FUTURE_PLAN") 1581s [00:53:01.890] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1581s [00:53:01.890] future::plan(list(function (..., workers = availableCores(), 1581s [00:53:01.890] lazy = FALSE, rscript_libs = .libPaths(), 1581s [00:53:01.890] envir = parent.frame()) 1581s [00:53:01.890] { 1581s [00:53:01.890] if (is.function(workers)) 1581s [00:53:01.890] workers <- workers() 1581s [00:53:01.890] workers <- structure(as.integer(workers), 1581s [00:53:01.890] class = class(workers)) 1581s [00:53:01.890] stop_if_not(length(workers) == 1, is.finite(workers), 1581s [00:53:01.890] workers >= 1) 1581s [00:53:01.890] if (workers == 1L && !inherits(workers, "AsIs")) { 1581s [00:53:01.890] return(sequential(..., lazy = TRUE, envir = envir)) 1581s [00:53:01.890] } 1581s [00:53:01.890] future <- MultisessionFuture(..., workers = workers, 1581s [00:53:01.890] lazy = lazy, rscript_libs = rscript_libs, 1581s [00:53:01.890] envir = envir) 1581s [00:53:01.890] if (!future$lazy) 1581s [00:53:01.890] future <- run(future) 1581s [00:53:01.890] invisible(future) 1581s [00:53:01.890] }), .cleanup = FALSE, .init = FALSE) 1581s [00:53:01.890] } 1581s [00:53:01.890] } 1581s [00:53:01.890] } 1581s [00:53:01.890] }) 1581s [00:53:01.890] if (TRUE) { 1581s [00:53:01.890] base::sink(type = "output", split = FALSE) 1581s [00:53:01.890] if (TRUE) { 1581s [00:53:01.890] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1581s [00:53:01.890] } 1581s [00:53:01.890] else { 1581s [00:53:01.890] ...future.result["stdout"] <- base::list(NULL) 1581s [00:53:01.890] } 1581s [00:53:01.890] base::close(...future.stdout) 1581s [00:53:01.890] ...future.stdout <- NULL 1581s [00:53:01.890] } 1581s [00:53:01.890] ...future.result$conditions <- ...future.conditions 1581s [00:53:01.890] ...future.result$finished <- base::Sys.time() 1581s [00:53:01.890] ...future.result 1581s [00:53:01.890] } 1581s [00:53:01.894] assign_globals() ... 1581s [00:53:01.894] List of 5 1581s [00:53:01.894] $ ...future.FUN :function (x, ...) 1581s [00:53:01.894] $ future.call.arguments : list() 1581s [00:53:01.894] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1581s [00:53:01.894] $ ...future.elements_ii :List of 6 1581s [00:53:01.894] ..$ a1: int 1 1581s [00:53:01.894] ..$ a2: int 2 1581s [00:53:01.894] ..$ b1: int 2 1581s [00:53:01.894] ..$ b2: int 3 1581s [00:53:01.894] ..$ c1: int 3 1581s [00:53:01.894] ..$ c2: int 4 1581s [00:53:01.894] $ ...future.seeds_ii : NULL 1581s [00:53:01.894] $ ...future.globals.maxSize: NULL 1581s [00:53:01.894] - attr(*, "where")=List of 5 1581s [00:53:01.894] ..$ ...future.FUN : 1581s [00:53:01.894] ..$ future.call.arguments : 1581s [00:53:01.894] ..$ ...future.elements_ii : 1581s [00:53:01.894] ..$ ...future.seeds_ii : 1581s [00:53:01.894] ..$ ...future.globals.maxSize: 1581s [00:53:01.894] - attr(*, "resolved")= logi FALSE 1581s [00:53:01.894] - attr(*, "total_size")= num 1248 1581s [00:53:01.894] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1581s [00:53:01.894] - attr(*, "already-done")= logi TRUE 1581s [00:53:01.905] - copied ‘...future.FUN’ to environment 1581s [00:53:01.905] - copied ‘future.call.arguments’ to environment 1581s [00:53:01.905] - copied ‘...future.elements_ii’ to environment 1581s [00:53:01.906] - copied ‘...future.seeds_ii’ to environment 1581s [00:53:01.906] - copied ‘...future.globals.maxSize’ to environment 1581s [00:53:01.906] assign_globals() ... done 1581s [00:53:01.907] plan(): Setting new future strategy stack: 1581s [00:53:01.907] List of future strategies: 1581s [00:53:01.907] 1. sequential: 1581s [00:53:01.907] - args: function (..., envir = parent.frame()) 1581s [00:53:01.907] - tweaked: FALSE 1581s [00:53:01.907] - call: NULL 1581s [00:53:01.907] plan(): nbrOfWorkers() = 1 1581s [00:53:01.908] plan(): Setting new future strategy stack: 1581s [00:53:01.909] List of future strategies: 1581s [00:53:01.909] 1. multisession: 1581s [00:53:01.909] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1581s [00:53:01.909] - tweaked: FALSE 1581s [00:53:01.909] - call: plan(strategy) 1581s [00:53:01.914] plan(): nbrOfWorkers() = 1 1581s [00:53:01.915] SequentialFuture started (and completed) 1581s [00:53:01.915] - Launch lazy future ... done 1581s [00:53:01.915] run() for ‘SequentialFuture’ ... done 1581s [00:53:01.915] Created future: 1581s [00:53:01.916] SequentialFuture: 1581s [00:53:01.916] Label: ‘future_sapply-1’ 1581s [00:53:01.916] Expression: 1581s [00:53:01.916] { 1581s [00:53:01.916] do.call(function(...) { 1581s [00:53:01.916] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1581s [00:53:01.916] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1581s [00:53:01.916] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1581s [00:53:01.916] on.exit(options(oopts), add = TRUE) 1581s [00:53:01.916] } 1581s [00:53:01.916] { 1581s [00:53:01.916] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1581s [00:53:01.916] ...future.X_jj <- ...future.elements_ii[[jj]] 1581s [00:53:01.916] ...future.FUN(...future.X_jj, ...) 1581s [00:53:01.916] }) 1581s [00:53:01.916] } 1581s [00:53:01.916] }, args = future.call.arguments) 1581s [00:53:01.916] } 1581s [00:53:01.916] Lazy evaluation: FALSE 1581s [00:53:01.916] Asynchronous evaluation: FALSE 1581s [00:53:01.916] Local evaluation: TRUE 1581s [00:53:01.916] Environment: R_GlobalEnv 1581s [00:53:01.916] Capture standard output: TRUE 1581s [00:53:01.916] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1581s [00:53:01.916] Globals: 5 objects totaling 1.55 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1581s [00:53:01.916] Packages: 1581s [00:53:01.916] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1581s [00:53:01.916] Resolved: TRUE 1581s [00:53:01.916] Value: 1.31 KiB of class ‘list’ 1581s [00:53:01.916] Early signaling: FALSE 1581s [00:53:01.916] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1581s [00:53:01.916] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1581s [00:53:01.918] Chunk #1 of 1 ... DONE 1581s [00:53:01.918] Launching 1 futures (chunks) ... DONE 1581s [00:53:01.918] Resolving 1 futures (chunks) ... 1581s [00:53:01.918] resolve() on list ... 1581s [00:53:01.918] recursive: 0 1581s [00:53:01.919] length: 1 1581s [00:53:01.919] 1581s [00:53:01.919] resolved() for ‘SequentialFuture’ ... 1581s [00:53:01.919] - state: ‘finished’ 1581s [00:53:01.919] - run: TRUE 1581s [00:53:01.920] - result: ‘FutureResult’ 1581s [00:53:01.920] resolved() for ‘SequentialFuture’ ... done 1581s [00:53:01.920] Future #1 1581s [00:53:01.920] signalConditionsASAP(SequentialFuture, pos=1) ... 1581s [00:53:01.920] - nx: 1 1581s [00:53:01.921] - relay: TRUE 1581s [00:53:01.921] - stdout: TRUE 1581s [00:53:01.921] - signal: TRUE 1581s [00:53:01.921] - resignal: FALSE 1581s [00:53:01.921] - force: TRUE 1581s [00:53:01.921] - relayed: [n=1] FALSE 1581s [00:53:01.921] - queued futures: [n=1] FALSE 1581s [00:53:01.922] - until=1 1581s [00:53:01.922] - relaying element #1 1581s [00:53:01.922] - relayed: [n=1] TRUE 1581s [00:53:01.923] - queued futures: [n=1] TRUE 1581s [00:53:01.923] signalConditionsASAP(SequentialFuture, pos=1) ... done 1581s [00:53:01.923] length: 0 (resolved future 1) 1581s [00:53:01.923] Relaying remaining futures 1581s [00:53:01.923] signalConditionsASAP(NULL, pos=0) ... 1581s [00:53:01.923] - nx: 1 1581s [00:53:01.924] - relay: TRUE 1581s [00:53:01.924] - stdout: TRUE 1581s [00:53:01.924] - signal: TRUE 1581s [00:53:01.924] - resignal: FALSE 1581s [00:53:01.924] - force: TRUE 1581s [00:53:01.924] - relayed: [n=1] TRUE 1581s [00:53:01.924] - queued futures: [n=1] TRUE 1581s - flush all 1581s [00:53:01.925] - relayed: [n=1] TRUE 1581s [00:53:01.925] - queued futures: [n=1] TRUE 1581s [00:53:01.925] signalConditionsASAP(NULL, pos=0) ... done 1581s [00:53:01.925] resolve() on list ... DONE 1581s [00:53:01.925] - Number of value chunks collected: 1 1581s [00:53:01.926] Resolving 1 futures (chunks) ... DONE 1581s [00:53:01.926] Reducing values from 1 chunks ... 1581s [00:53:01.926] - Number of values collected after concatenation: 6 1581s [00:53:01.926] - Number of values expected: 6 1581s [00:53:01.926] Reducing values from 1 chunks ... DONE 1581s [00:53:01.926] future_lapply() ... DONE 1581s List of 2 1581s $ y0: Named int [1:6] 1 2 2 3 3 4 1581s ..- attr(*, "names")= chr [1:6] "a1" "a2" "b1" "b2" ... 1581s $ y1: Named int [1:6] 1 2 2 3 3 4 1581s ..- attr(*, "names")= chr [1:6] "a1" "a2" "b1" "b2" ... 1581s [00:53:01.930] future_lapply() ... 1581s [00:53:01.934] Number of chunks: 1 1581s [00:53:01.935] getGlobalsAndPackagesXApply() ... 1581s [00:53:01.935] - future.globals: TRUE 1581s [00:53:01.935] getGlobalsAndPackages() ... 1581s [00:53:01.935] Searching for globals... 1581s [00:53:01.937] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1581s [00:53:01.938] Searching for globals ... DONE 1581s [00:53:01.938] Resolving globals: FALSE 1581s [00:53:01.938] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1581s [00:53:01.938] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1581s [00:53:01.939] - globals: [1] ‘FUN’ 1581s [00:53:01.939] 1581s [00:53:01.939] getGlobalsAndPackages() ... DONE 1581s [00:53:01.939] - globals found/used: [n=1] ‘FUN’ 1581s [00:53:01.939] - needed namespaces: [n=0] 1581s [00:53:01.939] Finding globals ... DONE 1581s [00:53:01.939] - use_args: TRUE 1581s [00:53:01.939] - Getting '...' globals ... 1581s [00:53:01.940] resolve() on list ... 1581s [00:53:01.940] recursive: 0 1581s [00:53:01.940] length: 1 1581s [00:53:01.940] elements: ‘...’ 1581s [00:53:01.940] length: 0 (resolved future 1) 1581s [00:53:01.941] resolve() on list ... DONE 1581s [00:53:01.941] - '...' content: [n=0] 1581s [00:53:01.941] List of 1 1581s [00:53:01.941] $ ...: list() 1581s [00:53:01.941] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1581s [00:53:01.941] - attr(*, "where")=List of 1 1581s [00:53:01.941] ..$ ...: 1581s [00:53:01.941] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1581s [00:53:01.941] - attr(*, "resolved")= logi TRUE 1581s [00:53:01.941] - attr(*, "total_size")= num NA 1581s [00:53:01.945] - Getting '...' globals ... DONE 1581s [00:53:01.945] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1581s [00:53:01.945] List of 2 1581s [00:53:01.945] $ ...future.FUN:function (x, y = 2 * 1:5) 1581s [00:53:01.945] $ ... : list() 1581s [00:53:01.945] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1581s [00:53:01.945] - attr(*, "where")=List of 2 1581s [00:53:01.945] ..$ ...future.FUN: 1581s [00:53:01.945] ..$ ... : 1581s [00:53:01.945] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1581s [00:53:01.945] - attr(*, "resolved")= logi FALSE 1581s [00:53:01.945] - attr(*, "total_size")= num 4728 1581s [00:53:01.949] Packages to be attached in all futures: [n=0] 1581s [00:53:01.949] getGlobalsAndPackagesXApply() ... DONE 1581s [00:53:01.949] Number of futures (= number of chunks): 1 1581s [00:53:01.950] Launching 1 futures (chunks) ... 1581s [00:53:01.950] Chunk #1 of 1 ... 1581s [00:53:01.950] - Finding globals in 'X' for chunk #1 ... 1581s [00:53:01.950] getGlobalsAndPackages() ... 1581s [00:53:01.950] Searching for globals... 1581s [00:53:01.951] 1581s [00:53:01.951] Searching for globals ... DONE 1581s [00:53:01.951] - globals: [0] 1581s [00:53:01.951] getGlobalsAndPackages() ... DONE 1581s [00:53:01.951] + additional globals found: [n=0] 1581s [00:53:01.951] + additional namespaces needed: [n=0] 1581s [00:53:01.952] - Finding globals in 'X' for chunk #1 ... DONE 1581s [00:53:01.952] - seeds: 1581s [00:53:01.952] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1581s [00:53:01.952] getGlobalsAndPackages() ... 1581s [00:53:01.952] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1581s [00:53:01.952] Resolving globals: FALSE 1581s [00:53:01.953] Tweak future expression to call with '...' arguments ... 1581s [00:53:01.953] { 1581s [00:53:01.953] do.call(function(...) { 1581s [00:53:01.953] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1581s [00:53:01.953] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1581s [00:53:01.953] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1581s [00:53:01.953] on.exit(options(oopts), add = TRUE) 1581s [00:53:01.953] } 1581s [00:53:01.953] { 1581s [00:53:01.953] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1581s [00:53:01.953] ...future.X_jj <- ...future.elements_ii[[jj]] 1581s [00:53:01.953] ...future.FUN(...future.X_jj, ...) 1581s [00:53:01.953] }) 1581s [00:53:01.953] } 1581s [00:53:01.953] }, args = future.call.arguments) 1581s [00:53:01.953] } 1581s [00:53:01.953] Tweak future expression to call with '...' arguments ... DONE 1581s [00:53:01.954] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1581s [00:53:01.954] 1581s [00:53:01.954] getGlobalsAndPackages() ... DONE 1581s [00:53:01.954] run() for ‘Future’ ... 1581s [00:53:01.955] - state: ‘created’ 1581s [00:53:01.955] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1581s [00:53:01.958] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1581s [00:53:01.958] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1581s [00:53:01.958] - Field: ‘label’ 1581s [00:53:01.959] - Field: ‘local’ 1581s [00:53:01.959] - Field: ‘owner’ 1581s [00:53:01.959] - Field: ‘envir’ 1581s [00:53:01.959] - Field: ‘packages’ 1581s [00:53:01.959] - Field: ‘gc’ 1581s [00:53:01.959] - Field: ‘conditions’ 1581s [00:53:01.959] - Field: ‘expr’ 1581s [00:53:01.960] - Field: ‘uuid’ 1581s [00:53:01.960] - Field: ‘seed’ 1581s [00:53:01.960] - Field: ‘version’ 1581s [00:53:01.960] - Field: ‘result’ 1581s [00:53:01.960] - Field: ‘asynchronous’ 1581s [00:53:01.960] - Field: ‘calls’ 1581s [00:53:01.961] - Field: ‘globals’ 1581s [00:53:01.961] - Field: ‘stdout’ 1581s [00:53:01.961] - Field: ‘earlySignal’ 1581s [00:53:01.961] - Field: ‘lazy’ 1581s [00:53:01.961] - Field: ‘state’ 1581s [00:53:01.961] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1581s [00:53:01.962] - Launch lazy future ... 1581s [00:53:01.962] Packages needed by the future expression (n = 0): 1581s [00:53:01.962] Packages needed by future strategies (n = 0): 1581s [00:53:01.963] { 1581s [00:53:01.963] { 1581s [00:53:01.963] { 1581s [00:53:01.963] ...future.startTime <- base::Sys.time() 1581s [00:53:01.963] { 1581s [00:53:01.963] { 1581s [00:53:01.963] { 1581s [00:53:01.963] base::local({ 1581s [00:53:01.963] has_future <- base::requireNamespace("future", 1582s [00:53:01.963] quietly = TRUE) 1582s [00:53:01.963] if (has_future) { 1582s [00:53:01.963] ns <- base::getNamespace("future") 1582s [00:53:01.963] version <- ns[[".package"]][["version"]] 1582s [00:53:01.963] if (is.null(version)) 1582s [00:53:01.963] version <- utils::packageVersion("future") 1582s [00:53:01.963] } 1582s [00:53:01.963] else { 1582s [00:53:01.963] version <- NULL 1582s [00:53:01.963] } 1582s [00:53:01.963] if (!has_future || version < "1.8.0") { 1582s [00:53:01.963] info <- base::c(r_version = base::gsub("R version ", 1582s [00:53:01.963] "", base::R.version$version.string), 1582s [00:53:01.963] platform = base::sprintf("%s (%s-bit)", 1582s [00:53:01.963] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1582s [00:53:01.963] os = base::paste(base::Sys.info()[base::c("sysname", 1582s [00:53:01.963] "release", "version")], collapse = " "), 1582s [00:53:01.963] hostname = base::Sys.info()[["nodename"]]) 1582s [00:53:01.963] info <- base::sprintf("%s: %s", base::names(info), 1582s [00:53:01.963] info) 1582s [00:53:01.963] info <- base::paste(info, collapse = "; ") 1582s [00:53:01.963] if (!has_future) { 1582s [00:53:01.963] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1582s [00:53:01.963] info) 1582s [00:53:01.963] } 1582s [00:53:01.963] else { 1582s [00:53:01.963] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1582s [00:53:01.963] info, version) 1582s [00:53:01.963] } 1582s [00:53:01.963] base::stop(msg) 1582s [00:53:01.963] } 1582s [00:53:01.963] }) 1582s [00:53:01.963] } 1582s [00:53:01.963] options(future.plan = NULL) 1582s [00:53:01.963] Sys.unsetenv("R_FUTURE_PLAN") 1582s [00:53:01.963] future::plan("default", .cleanup = FALSE, .init = FALSE) 1582s [00:53:01.963] } 1582s [00:53:01.963] ...future.workdir <- getwd() 1582s [00:53:01.963] } 1582s [00:53:01.963] ...future.oldOptions <- base::as.list(base::.Options) 1582s [00:53:01.963] ...future.oldEnvVars <- base::Sys.getenv() 1582s [00:53:01.963] } 1582s [00:53:01.963] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1582s [00:53:01.963] future.globals.maxSize = NULL, future.globals.method = NULL, 1582s [00:53:01.963] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1582s [00:53:01.963] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1582s [00:53:01.963] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1582s [00:53:01.963] future.stdout.windows.reencode = NULL, width = 80L) 1582s [00:53:01.963] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1582s [00:53:01.963] base::names(...future.oldOptions)) 1582s [00:53:01.963] } 1582s [00:53:01.963] if (FALSE) { 1582s [00:53:01.963] } 1582s [00:53:01.963] else { 1582s [00:53:01.963] if (TRUE) { 1582s [00:53:01.963] ...future.stdout <- base::rawConnection(base::raw(0L), 1582s [00:53:01.963] open = "w") 1582s [00:53:01.963] } 1582s [00:53:01.963] else { 1582s [00:53:01.963] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1582s [00:53:01.963] windows = "NUL", "/dev/null"), open = "w") 1582s [00:53:01.963] } 1582s [00:53:01.963] base::sink(...future.stdout, type = "output", split = FALSE) 1582s [00:53:01.963] base::on.exit(if (!base::is.null(...future.stdout)) { 1582s [00:53:01.963] base::sink(type = "output", split = FALSE) 1582s [00:53:01.963] base::close(...future.stdout) 1582s [00:53:01.963] }, add = TRUE) 1582s [00:53:01.963] } 1582s [00:53:01.963] ...future.frame <- base::sys.nframe() 1582s [00:53:01.963] ...future.conditions <- base::list() 1582s [00:53:01.963] ...future.rng <- base::globalenv()$.Random.seed 1582s [00:53:01.963] if (FALSE) { 1582s [00:53:01.963] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1582s [00:53:01.963] "...future.value", "...future.globalenv.names", ".Random.seed") 1582s [00:53:01.963] } 1582s [00:53:01.963] ...future.result <- base::tryCatch({ 1582s [00:53:01.963] base::withCallingHandlers({ 1582s [00:53:01.963] ...future.value <- base::withVisible(base::local({ 1582s [00:53:01.963] do.call(function(...) { 1582s [00:53:01.963] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1582s [00:53:01.963] if (!identical(...future.globals.maxSize.org, 1582s [00:53:01.963] ...future.globals.maxSize)) { 1582s [00:53:01.963] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1582s [00:53:01.963] on.exit(options(oopts), add = TRUE) 1582s [00:53:01.963] } 1582s [00:53:01.963] { 1582s [00:53:01.963] lapply(seq_along(...future.elements_ii), 1582s [00:53:01.963] FUN = function(jj) { 1582s [00:53:01.963] ...future.X_jj <- ...future.elements_ii[[jj]] 1582s [00:53:01.963] ...future.FUN(...future.X_jj, ...) 1582s [00:53:01.963] }) 1582s [00:53:01.963] } 1582s [00:53:01.963] }, args = future.call.arguments) 1582s [00:53:01.963] })) 1582s [00:53:01.963] future::FutureResult(value = ...future.value$value, 1582s [00:53:01.963] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1582s [00:53:01.963] ...future.rng), globalenv = if (FALSE) 1582s [00:53:01.963] list(added = base::setdiff(base::names(base::.GlobalEnv), 1582s [00:53:01.963] ...future.globalenv.names)) 1582s [00:53:01.963] else NULL, started = ...future.startTime, version = "1.8") 1582s [00:53:01.963] }, condition = base::local({ 1582s [00:53:01.963] c <- base::c 1582s [00:53:01.963] inherits <- base::inherits 1582s [00:53:01.963] invokeRestart <- base::invokeRestart 1582s [00:53:01.963] length <- base::length 1582s [00:53:01.963] list <- base::list 1582s [00:53:01.963] seq.int <- base::seq.int 1582s [00:53:01.963] signalCondition <- base::signalCondition 1582s [00:53:01.963] sys.calls <- base::sys.calls 1582s [00:53:01.963] `[[` <- base::`[[` 1582s [00:53:01.963] `+` <- base::`+` 1582s [00:53:01.963] `<<-` <- base::`<<-` 1582s [00:53:01.963] sysCalls <- function(calls = sys.calls(), from = 1L) { 1582s [00:53:01.963] calls[seq.int(from = from + 12L, to = length(calls) - 1582s [00:53:01.963] 3L)] 1582s [00:53:01.963] } 1582s [00:53:01.963] function(cond) { 1582s [00:53:01.963] is_error <- inherits(cond, "error") 1582s [00:53:01.963] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1582s [00:53:01.963] NULL) 1582s [00:53:01.963] if (is_error) { 1582s [00:53:01.963] sessionInformation <- function() { 1582s [00:53:01.963] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1582s [00:53:01.963] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1582s [00:53:01.963] search = base::search(), system = base::Sys.info()) 1582s [00:53:01.963] } 1582s [00:53:01.963] ...future.conditions[[length(...future.conditions) + 1582s [00:53:01.963] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1582s [00:53:01.963] cond$call), session = sessionInformation(), 1582s [00:53:01.963] timestamp = base::Sys.time(), signaled = 0L) 1582s [00:53:01.963] signalCondition(cond) 1582s [00:53:01.963] } 1582s [00:53:01.963] else if (!ignore && TRUE && inherits(cond, c("condition", 1582s [00:53:01.963] "immediateCondition"))) { 1582s [00:53:01.963] signal <- TRUE && inherits(cond, "immediateCondition") 1582s [00:53:01.963] ...future.conditions[[length(...future.conditions) + 1582s [00:53:01.963] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1582s [00:53:01.963] if (TRUE && !signal) { 1582s [00:53:01.963] muffleCondition <- function (cond, pattern = "^muffle") 1582s [00:53:01.963] { 1582s [00:53:01.963] inherits <- base::inherits 1582s [00:53:01.963] invokeRestart <- base::invokeRestart 1582s [00:53:01.963] is.null <- base::is.null 1582s [00:53:01.963] muffled <- FALSE 1582s [00:53:01.963] if (inherits(cond, "message")) { 1582s [00:53:01.963] muffled <- grepl(pattern, "muffleMessage") 1582s [00:53:01.963] if (muffled) 1582s [00:53:01.963] invokeRestart("muffleMessage") 1582s [00:53:01.963] } 1582s [00:53:01.963] else if (inherits(cond, "warning")) { 1582s [00:53:01.963] muffled <- grepl(pattern, "muffleWarning") 1582s [00:53:01.963] if (muffled) 1582s [00:53:01.963] invokeRestart("muffleWarning") 1582s [00:53:01.963] } 1582s [00:53:01.963] else if (inherits(cond, "condition")) { 1582s [00:53:01.963] if (!is.null(pattern)) { 1582s [00:53:01.963] computeRestarts <- base::computeRestarts 1582s [00:53:01.963] grepl <- base::grepl 1582s [00:53:01.963] restarts <- computeRestarts(cond) 1582s [00:53:01.963] for (restart in restarts) { 1582s [00:53:01.963] name <- restart$name 1582s [00:53:01.963] if (is.null(name)) 1582s [00:53:01.963] next 1582s [00:53:01.963] if (!grepl(pattern, name)) 1582s [00:53:01.963] next 1582s [00:53:01.963] invokeRestart(restart) 1582s [00:53:01.963] muffled <- TRUE 1582s [00:53:01.963] break 1582s [00:53:01.963] } 1582s [00:53:01.963] } 1582s [00:53:01.963] } 1582s [00:53:01.963] invisible(muffled) 1582s [00:53:01.963] } 1582s [00:53:01.963] muffleCondition(cond, pattern = "^muffle") 1582s [00:53:01.963] } 1582s [00:53:01.963] } 1582s [00:53:01.963] else { 1582s [00:53:01.963] if (TRUE) { 1582s [00:53:01.963] muffleCondition <- function (cond, pattern = "^muffle") 1582s [00:53:01.963] { 1582s [00:53:01.963] inherits <- base::inherits 1582s [00:53:01.963] invokeRestart <- base::invokeRestart 1582s [00:53:01.963] is.null <- base::is.null 1582s [00:53:01.963] muffled <- FALSE 1582s [00:53:01.963] if (inherits(cond, "message")) { 1582s [00:53:01.963] muffled <- grepl(pattern, "muffleMessage") 1582s [00:53:01.963] if (muffled) 1582s [00:53:01.963] invokeRestart("muffleMessage") 1582s [00:53:01.963] } 1582s [00:53:01.963] else if (inherits(cond, "warning")) { 1582s [00:53:01.963] muffled <- grepl(pattern, "muffleWarning") 1582s [00:53:01.963] if (muffled) 1582s [00:53:01.963] invokeRestart("muffleWarning") 1582s [00:53:01.963] } 1582s [00:53:01.963] else if (inherits(cond, "condition")) { 1582s [00:53:01.963] if (!is.null(pattern)) { 1582s [00:53:01.963] computeRestarts <- base::computeRestarts 1582s [00:53:01.963] grepl <- base::grepl 1582s [00:53:01.963] restarts <- computeRestarts(cond) 1582s [00:53:01.963] for (restart in restarts) { 1582s [00:53:01.963] name <- restart$name 1582s [00:53:01.963] if (is.null(name)) 1582s [00:53:01.963] next 1582s [00:53:01.963] if (!grepl(pattern, name)) 1582s [00:53:01.963] next 1582s [00:53:01.963] invokeRestart(restart) 1582s [00:53:01.963] muffled <- TRUE 1582s [00:53:01.963] break 1582s [00:53:01.963] } 1582s [00:53:01.963] } 1582s [00:53:01.963] } 1582s [00:53:01.963] invisible(muffled) 1582s [00:53:01.963] } 1582s [00:53:01.963] muffleCondition(cond, pattern = "^muffle") 1582s [00:53:01.963] } 1582s [00:53:01.963] } 1582s [00:53:01.963] } 1582s [00:53:01.963] })) 1582s [00:53:01.963] }, error = function(ex) { 1582s [00:53:01.963] base::structure(base::list(value = NULL, visible = NULL, 1582s [00:53:01.963] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1582s [00:53:01.963] ...future.rng), started = ...future.startTime, 1582s [00:53:01.963] finished = Sys.time(), session_uuid = NA_character_, 1582s [00:53:01.963] version = "1.8"), class = "FutureResult") 1582s [00:53:01.963] }, finally = { 1582s [00:53:01.963] if (!identical(...future.workdir, getwd())) 1582s [00:53:01.963] setwd(...future.workdir) 1582s [00:53:01.963] { 1582s [00:53:01.963] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1582s [00:53:01.963] ...future.oldOptions$nwarnings <- NULL 1582s [00:53:01.963] } 1582s [00:53:01.963] base::options(...future.oldOptions) 1582s [00:53:01.963] if (.Platform$OS.type == "windows") { 1582s [00:53:01.963] old_names <- names(...future.oldEnvVars) 1582s [00:53:01.963] envs <- base::Sys.getenv() 1582s [00:53:01.963] names <- names(envs) 1582s [00:53:01.963] common <- intersect(names, old_names) 1582s [00:53:01.963] added <- setdiff(names, old_names) 1582s [00:53:01.963] removed <- setdiff(old_names, names) 1582s [00:53:01.963] changed <- common[...future.oldEnvVars[common] != 1582s [00:53:01.963] envs[common]] 1582s [00:53:01.963] NAMES <- toupper(changed) 1582s [00:53:01.963] args <- list() 1582s [00:53:01.963] for (kk in seq_along(NAMES)) { 1582s [00:53:01.963] name <- changed[[kk]] 1582s [00:53:01.963] NAME <- NAMES[[kk]] 1582s [00:53:01.963] if (name != NAME && is.element(NAME, old_names)) 1582s [00:53:01.963] next 1582s [00:53:01.963] args[[name]] <- ...future.oldEnvVars[[name]] 1582s [00:53:01.963] } 1582s [00:53:01.963] NAMES <- toupper(added) 1582s [00:53:01.963] for (kk in seq_along(NAMES)) { 1582s [00:53:01.963] name <- added[[kk]] 1582s [00:53:01.963] NAME <- NAMES[[kk]] 1582s [00:53:01.963] if (name != NAME && is.element(NAME, old_names)) 1582s [00:53:01.963] next 1582s [00:53:01.963] args[[name]] <- "" 1582s [00:53:01.963] } 1582s [00:53:01.963] NAMES <- toupper(removed) 1582s [00:53:01.963] for (kk in seq_along(NAMES)) { 1582s [00:53:01.963] name <- removed[[kk]] 1582s [00:53:01.963] NAME <- NAMES[[kk]] 1582s [00:53:01.963] if (name != NAME && is.element(NAME, old_names)) 1582s [00:53:01.963] next 1582s [00:53:01.963] args[[name]] <- ...future.oldEnvVars[[name]] 1582s [00:53:01.963] } 1582s [00:53:01.963] if (length(args) > 0) 1582s [00:53:01.963] base::do.call(base::Sys.setenv, args = args) 1582s [00:53:01.963] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1582s [00:53:01.963] } 1582s [00:53:01.963] else { 1582s [00:53:01.963] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1582s [00:53:01.963] } 1582s [00:53:01.963] { 1582s [00:53:01.963] if (base::length(...future.futureOptionsAdded) > 1582s [00:53:01.963] 0L) { 1582s [00:53:01.963] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1582s [00:53:01.963] base::names(opts) <- ...future.futureOptionsAdded 1582s [00:53:01.963] base::options(opts) 1582s [00:53:01.963] } 1582s [00:53:01.963] { 1582s [00:53:01.963] { 1582s [00:53:01.963] NULL 1582s [00:53:01.963] RNGkind("Mersenne-Twister") 1582s [00:53:01.963] base::rm(list = ".Random.seed", envir = base::globalenv(), 1582s [00:53:01.963] inherits = FALSE) 1582s [00:53:01.963] } 1582s [00:53:01.963] options(future.plan = NULL) 1582s [00:53:01.963] if (is.na(NA_character_)) 1582s [00:53:01.963] Sys.unsetenv("R_FUTURE_PLAN") 1582s [00:53:01.963] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1582s [00:53:01.963] future::plan(list(function (..., workers = availableCores(), 1582s [00:53:01.963] lazy = FALSE, rscript_libs = .libPaths(), 1582s [00:53:01.963] envir = parent.frame()) 1582s [00:53:01.963] { 1582s [00:53:01.963] if (is.function(workers)) 1582s [00:53:01.963] workers <- workers() 1582s [00:53:01.963] workers <- structure(as.integer(workers), 1582s [00:53:01.963] class = class(workers)) 1582s [00:53:01.963] stop_if_not(length(workers) == 1, is.finite(workers), 1582s [00:53:01.963] workers >= 1) 1582s [00:53:01.963] if (workers == 1L && !inherits(workers, "AsIs")) { 1582s [00:53:01.963] return(sequential(..., lazy = TRUE, envir = envir)) 1582s [00:53:01.963] } 1582s [00:53:01.963] future <- MultisessionFuture(..., workers = workers, 1582s [00:53:01.963] lazy = lazy, rscript_libs = rscript_libs, 1582s [00:53:01.963] envir = envir) 1582s [00:53:01.963] if (!future$lazy) 1582s [00:53:01.963] future <- run(future) 1582s [00:53:01.963] invisible(future) 1582s [00:53:01.963] }), .cleanup = FALSE, .init = FALSE) 1582s [00:53:01.963] } 1582s [00:53:01.963] } 1582s [00:53:01.963] } 1582s [00:53:01.963] }) 1582s [00:53:01.963] if (TRUE) { 1582s [00:53:01.963] base::sink(type = "output", split = FALSE) 1582s [00:53:01.963] if (TRUE) { 1582s [00:53:01.963] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1582s [00:53:01.963] } 1582s [00:53:01.963] else { 1582s [00:53:01.963] ...future.result["stdout"] <- base::list(NULL) 1582s [00:53:01.963] } 1582s [00:53:01.963] base::close(...future.stdout) 1582s [00:53:01.963] ...future.stdout <- NULL 1582s [00:53:01.963] } 1582s [00:53:01.963] ...future.result$conditions <- ...future.conditions 1582s [00:53:01.963] ...future.result$finished <- base::Sys.time() 1582s [00:53:01.963] ...future.result 1582s [00:53:01.963] } 1582s [00:53:01.966] assign_globals() ... 1582s [00:53:01.966] List of 5 1582s [00:53:01.966] $ ...future.FUN :function (x, y = 2 * 1:5) 1582s [00:53:01.966] $ future.call.arguments : list() 1582s [00:53:01.966] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1582s [00:53:01.966] $ ...future.elements_ii :List of 6 1582s [00:53:01.966] ..$ a1: int 1 1582s [00:53:01.966] ..$ a2: int 2 1582s [00:53:01.966] ..$ b1: int 2 1582s [00:53:01.966] ..$ b2: int 3 1582s [00:53:01.966] ..$ c1: int 3 1582s [00:53:01.966] ..$ c2: int 4 1582s [00:53:01.966] $ ...future.seeds_ii : NULL 1582s [00:53:01.966] $ ...future.globals.maxSize: NULL 1582s [00:53:01.966] - attr(*, "where")=List of 5 1582s [00:53:01.966] ..$ ...future.FUN : 1582s [00:53:01.966] ..$ future.call.arguments : 1582s [00:53:01.966] ..$ ...future.elements_ii : 1582s [00:53:01.966] ..$ ...future.seeds_ii : 1582s [00:53:01.966] ..$ ...future.globals.maxSize: 1582s [00:53:01.966] - attr(*, "resolved")= logi FALSE 1582s [00:53:01.966] - attr(*, "total_size")= num 4728 1582s [00:53:01.966] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1582s [00:53:01.966] - attr(*, "already-done")= logi TRUE 1582s [00:53:01.980] - reassign environment for ‘...future.FUN’ 1582s [00:53:01.980] - copied ‘...future.FUN’ to environment 1582s [00:53:01.980] - copied ‘future.call.arguments’ to environment 1582s [00:53:01.981] - copied ‘...future.elements_ii’ to environment 1582s [00:53:01.981] - copied ‘...future.seeds_ii’ to environment 1582s [00:53:01.981] - copied ‘...future.globals.maxSize’ to environment 1582s [00:53:01.981] assign_globals() ... done 1582s [00:53:01.982] plan(): Setting new future strategy stack: 1582s [00:53:01.982] List of future strategies: 1582s [00:53:01.982] 1. sequential: 1582s [00:53:01.982] - args: function (..., envir = parent.frame()) 1582s [00:53:01.982] - tweaked: FALSE 1582s [00:53:01.982] - call: NULL 1582s [00:53:01.983] plan(): nbrOfWorkers() = 1 1582s [00:53:01.984] plan(): Setting new future strategy stack: 1582s [00:53:01.984] List of future strategies: 1582s [00:53:01.984] 1. multisession: 1582s [00:53:01.984] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1582s [00:53:01.984] - tweaked: FALSE 1582s [00:53:01.984] - call: plan(strategy) 1582s [00:53:01.989] plan(): nbrOfWorkers() = 1 1582s [00:53:01.990] SequentialFuture started (and completed) 1582s [00:53:01.990] - Launch lazy future ... done 1582s [00:53:01.991] run() for ‘SequentialFuture’ ... done 1582s [00:53:01.991] Created future: 1582s [00:53:01.991] SequentialFuture: 1582s [00:53:01.991] Label: ‘future_sapply-1’ 1582s [00:53:01.991] Expression: 1582s [00:53:01.991] { 1582s [00:53:01.991] do.call(function(...) { 1582s [00:53:01.991] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1582s [00:53:01.991] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1582s [00:53:01.991] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1582s [00:53:01.991] on.exit(options(oopts), add = TRUE) 1582s [00:53:01.991] } 1582s [00:53:01.991] { 1582s [00:53:01.991] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1582s [00:53:01.991] ...future.X_jj <- ...future.elements_ii[[jj]] 1582s [00:53:01.991] ...future.FUN(...future.X_jj, ...) 1582s [00:53:01.991] }) 1582s [00:53:01.991] } 1582s [00:53:01.991] }, args = future.call.arguments) 1582s [00:53:01.991] } 1582s [00:53:01.991] Lazy evaluation: FALSE 1582s [00:53:01.991] Asynchronous evaluation: FALSE 1582s [00:53:01.991] Local evaluation: TRUE 1582s [00:53:01.991] Environment: R_GlobalEnv 1582s [00:53:01.991] Capture standard output: TRUE 1582s [00:53:01.991] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1582s [00:53:01.991] Globals: 5 objects totaling 4.95 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1582s [00:53:01.991] Packages: 1582s [00:53:01.991] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1582s [00:53:01.991] Resolved: TRUE 1582s [00:53:01.991] Value: 2.02 KiB of class ‘list’ 1582s [00:53:01.991] Early signaling: FALSE 1582s [00:53:01.991] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1582s [00:53:01.991] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1582s [00:53:01.993] Chunk #1 of 1 ... DONE 1582s [00:53:01.993] Launching 1 futures (chunks) ... DONE 1582s [00:53:01.994] Resolving 1 futures (chunks) ... 1582s [00:53:01.994] resolve() on list ... 1582s [00:53:01.994] recursive: 0 1582s [00:53:01.994] length: 1 1582s [00:53:01.994] 1582s [00:53:01.995] resolved() for ‘SequentialFuture’ ... 1582s [00:53:01.995] - state: ‘finished’ 1582s [00:53:01.995] - run: TRUE 1582s [00:53:01.995] - result: ‘FutureResult’ 1582s [00:53:01.995] resolved() for ‘SequentialFuture’ ... done 1582s [00:53:01.995] Future #1 1582s [00:53:01.996] signalConditionsASAP(SequentialFuture, pos=1) ... 1582s [00:53:01.996] - nx: 1 1582s [00:53:01.996] - relay: TRUE 1582s [00:53:01.997] - stdout: TRUE 1582s [00:53:01.997] - signal: TRUE 1582s [00:53:01.997] - resignal: FALSE 1582s [00:53:01.997] - force: TRUE 1582s [00:53:01.997] - relayed: [n=1] FALSE 1582s [00:53:01.997] - queued futures: [n=1] FALSE 1582s [00:53:01.998] - until=1 1582s [00:53:01.998] - relaying element #1 1582s [00:53:01.998] - relayed: [n=1] TRUE 1582s [00:53:01.998] - queued futures: [n=1] TRUE 1582s [00:53:01.999] signalConditionsASAP(SequentialFuture, pos=1) ... done 1582s [00:53:01.999] length: 0 (resolved future 1) 1582s [00:53:01.999] Relaying remaining futures 1582s [00:53:01.999] signalConditionsASAP(NULL, pos=0) ... 1582s [00:53:02.000] - nx: 1 1582s [00:53:02.000] - relay: TRUE 1582s [00:53:02.000] - stdout: TRUE 1582s [00:53:02.000] - signal: TRUE 1582s [00:53:02.001] - resignal: FALSE 1582s [00:53:02.001] - force: TRUE 1582s [00:53:02.001] - relayed: [n=1] TRUE 1582s [00:53:02.001] - queued futures: [n=1] TRUE 1582s - flush all 1582s [00:53:02.001] - relayed: [n=1] TRUE 1582s [00:53:02.001] - queued futures: [n=1] TRUE 1582s [00:53:02.001] signalConditionsASAP(NULL, pos=0) ... done 1582s [00:53:02.002] resolve() on list ... DONE 1582s [00:53:02.002] - Number of value chunks collected: 1 1582s [00:53:02.002] Resolving 1 futures (chunks) ... DONE 1582s [00:53:02.002] Reducing values from 1 chunks ... 1582s [00:53:02.002] - Number of values collected after concatenation: 6 1582s [00:53:02.002] - Number of values expected: 6 1582s [00:53:02.003] Reducing values from 1 chunks ... DONE 1582s [00:53:02.003] future_lapply() ... DONE 1582s List of 2 1582s $ y0: num [1:15, 1:6] 2 2 2 4 4 4 6 6 6 8 ... 1582s ..- attr(*, "dimnames")=List of 2 1582s .. ..$ : NULL 1582s .. ..$ : chr [1:6] "a1" "a2" "b1" "b2" ... 1582s $ y1: num [1:15, 1:6] 2 2 2 4 4 4 6 6 6 8 ... 1582s ..- attr(*, "dimnames")=List of 2 1582s .. ..$ : NULL 1582s .. ..$ : chr [1:6] "a1" "a2" "b1" "b2" ... 1582s [00:53:02.009] future_lapply() ... 1582s [00:53:02.013] Number of chunks: 1 1582s [00:53:02.013] getGlobalsAndPackagesXApply() ... 1582s [00:53:02.013] - future.globals: TRUE 1582s [00:53:02.013] getGlobalsAndPackages() ... 1582s [00:53:02.014] Searching for globals... 1582s [00:53:02.015] - globals found: [1] ‘FUN’ 1582s [00:53:02.015] Searching for globals ... DONE 1582s [00:53:02.015] Resolving globals: FALSE 1582s [00:53:02.016] The total size of the 1 globals is 848 bytes (848 bytes) 1582s [00:53:02.016] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1582s [00:53:02.016] - globals: [1] ‘FUN’ 1582s [00:53:02.017] 1582s [00:53:02.017] getGlobalsAndPackages() ... DONE 1582s [00:53:02.017] - globals found/used: [n=1] ‘FUN’ 1582s [00:53:02.018] - needed namespaces: [n=0] 1582s [00:53:02.018] Finding globals ... DONE 1582s [00:53:02.018] - use_args: TRUE 1582s [00:53:02.018] - Getting '...' globals ... 1582s [00:53:02.019] resolve() on list ... 1582s [00:53:02.019] recursive: 0 1582s [00:53:02.020] length: 1 1582s [00:53:02.020] elements: ‘...’ 1582s [00:53:02.021] length: 0 (resolved future 1) 1582s [00:53:02.021] resolve() on list ... DONE 1582s [00:53:02.021] - '...' content: [n=0] 1582s [00:53:02.021] List of 1 1582s [00:53:02.021] $ ...: list() 1582s [00:53:02.021] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1582s [00:53:02.021] - attr(*, "where")=List of 1 1582s [00:53:02.021] ..$ ...: 1582s [00:53:02.021] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1582s [00:53:02.021] - attr(*, "resolved")= logi TRUE 1582s [00:53:02.021] - attr(*, "total_size")= num NA 1582s [00:53:02.026] - Getting '...' globals ... DONE 1582s [00:53:02.026] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1582s [00:53:02.026] List of 2 1582s [00:53:02.026] $ ...future.FUN:function (x) 1582s [00:53:02.026] $ ... : list() 1582s [00:53:02.026] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1582s [00:53:02.026] - attr(*, "where")=List of 2 1582s [00:53:02.026] ..$ ...future.FUN: 1582s [00:53:02.026] ..$ ... : 1582s [00:53:02.026] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1582s [00:53:02.026] - attr(*, "resolved")= logi FALSE 1582s [00:53:02.026] - attr(*, "total_size")= num 848 1582s [00:53:02.031] Packages to be attached in all futures: [n=0] 1582s [00:53:02.031] getGlobalsAndPackagesXApply() ... DONE 1582s [00:53:02.031] Number of futures (= number of chunks): 1 1582s [00:53:02.031] Launching 1 futures (chunks) ... 1582s [00:53:02.032] Chunk #1 of 1 ... 1582s [00:53:02.032] - Finding globals in 'X' for chunk #1 ... 1582s [00:53:02.033] getGlobalsAndPackages() ... 1582s [00:53:02.033] Searching for globals... 1582s [00:53:02.033] 1582s [00:53:02.034] Searching for globals ... DONE 1582s [00:53:02.034] - globals: [0] 1582s [00:53:02.034] getGlobalsAndPackages() ... DONE 1582s [00:53:02.034] + additional globals found: [n=0] 1582s [00:53:02.034] + additional namespaces needed: [n=0] 1582s [00:53:02.034] - Finding globals in 'X' for chunk #1 ... DONE 1582s [00:53:02.035] - seeds: 1582s [00:53:02.035] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1582s [00:53:02.035] getGlobalsAndPackages() ... 1582s [00:53:02.036] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1582s [00:53:02.036] Resolving globals: FALSE 1582s [00:53:02.036] Tweak future expression to call with '...' arguments ... 1582s [00:53:02.037] { 1582s [00:53:02.037] do.call(function(...) { 1582s [00:53:02.037] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1582s [00:53:02.037] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1582s [00:53:02.037] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1582s [00:53:02.037] on.exit(options(oopts), add = TRUE) 1582s [00:53:02.037] } 1582s [00:53:02.037] { 1582s [00:53:02.037] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1582s [00:53:02.037] ...future.X_jj <- ...future.elements_ii[[jj]] 1582s [00:53:02.037] ...future.FUN(...future.X_jj, ...) 1582s [00:53:02.037] }) 1582s [00:53:02.037] } 1582s [00:53:02.037] }, args = future.call.arguments) 1582s [00:53:02.037] } 1582s [00:53:02.037] Tweak future expression to call with '...' arguments ... DONE 1582s [00:53:02.038] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1582s [00:53:02.038] 1582s [00:53:02.038] getGlobalsAndPackages() ... DONE 1582s [00:53:02.039] run() for ‘Future’ ... 1582s [00:53:02.039] - state: ‘created’ 1582s [00:53:02.039] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1582s [00:53:02.044] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1582s [00:53:02.045] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1582s [00:53:02.045] - Field: ‘label’ 1582s [00:53:02.045] - Field: ‘local’ 1582s [00:53:02.046] - Field: ‘owner’ 1582s [00:53:02.046] - Field: ‘envir’ 1582s [00:53:02.046] - Field: ‘packages’ 1582s [00:53:02.047] - Field: ‘gc’ 1582s [00:53:02.047] - Field: ‘conditions’ 1582s [00:53:02.047] - Field: ‘expr’ 1582s [00:53:02.048] - Field: ‘uuid’ 1582s [00:53:02.048] - Field: ‘seed’ 1582s [00:53:02.048] - Field: ‘version’ 1582s [00:53:02.048] - Field: ‘result’ 1582s [00:53:02.048] - Field: ‘asynchronous’ 1582s [00:53:02.049] - Field: ‘calls’ 1582s [00:53:02.049] - Field: ‘globals’ 1582s [00:53:02.049] - Field: ‘stdout’ 1582s [00:53:02.049] - Field: ‘earlySignal’ 1582s [00:53:02.049] - Field: ‘lazy’ 1582s [00:53:02.049] - Field: ‘state’ 1582s [00:53:02.050] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1582s [00:53:02.051] - Launch lazy future ... 1582s [00:53:02.053] Packages needed by the future expression (n = 0): 1582s [00:53:02.054] Packages needed by future strategies (n = 0): 1582s [00:53:02.057] { 1582s [00:53:02.057] { 1582s [00:53:02.057] { 1582s [00:53:02.057] ...future.startTime <- base::Sys.time() 1582s [00:53:02.057] { 1582s [00:53:02.057] { 1582s [00:53:02.057] { 1582s [00:53:02.057] base::local({ 1582s [00:53:02.057] has_future <- base::requireNamespace("future", 1582s [00:53:02.057] quietly = TRUE) 1582s [00:53:02.057] if (has_future) { 1582s [00:53:02.057] ns <- base::getNamespace("future") 1582s [00:53:02.057] version <- ns[[".package"]][["version"]] 1582s [00:53:02.057] if (is.null(version)) 1582s [00:53:02.057] version <- utils::packageVersion("future") 1582s [00:53:02.057] } 1582s [00:53:02.057] else { 1582s [00:53:02.057] version <- NULL 1582s [00:53:02.057] } 1582s [00:53:02.057] if (!has_future || version < "1.8.0") { 1582s [00:53:02.057] info <- base::c(r_version = base::gsub("R version ", 1582s [00:53:02.057] "", base::R.version$version.string), 1582s [00:53:02.057] platform = base::sprintf("%s (%s-bit)", 1582s [00:53:02.057] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1582s [00:53:02.057] os = base::paste(base::Sys.info()[base::c("sysname", 1582s [00:53:02.057] "release", "version")], collapse = " "), 1582s [00:53:02.057] hostname = base::Sys.info()[["nodename"]]) 1582s [00:53:02.057] info <- base::sprintf("%s: %s", base::names(info), 1582s [00:53:02.057] info) 1582s [00:53:02.057] info <- base::paste(info, collapse = "; ") 1582s [00:53:02.057] if (!has_future) { 1582s [00:53:02.057] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1582s [00:53:02.057] info) 1582s [00:53:02.057] } 1582s [00:53:02.057] else { 1582s [00:53:02.057] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1582s [00:53:02.057] info, version) 1582s [00:53:02.057] } 1582s [00:53:02.057] base::stop(msg) 1582s [00:53:02.057] } 1582s [00:53:02.057] }) 1582s [00:53:02.057] } 1582s [00:53:02.057] options(future.plan = NULL) 1582s [00:53:02.057] Sys.unsetenv("R_FUTURE_PLAN") 1582s [00:53:02.057] future::plan("default", .cleanup = FALSE, .init = FALSE) 1582s [00:53:02.057] } 1582s [00:53:02.057] ...future.workdir <- getwd() 1582s [00:53:02.057] } 1582s [00:53:02.057] ...future.oldOptions <- base::as.list(base::.Options) 1582s [00:53:02.057] ...future.oldEnvVars <- base::Sys.getenv() 1582s [00:53:02.057] } 1582s [00:53:02.057] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1582s [00:53:02.057] future.globals.maxSize = NULL, future.globals.method = NULL, 1582s [00:53:02.057] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1582s [00:53:02.057] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1582s [00:53:02.057] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1582s [00:53:02.057] future.stdout.windows.reencode = NULL, width = 80L) 1582s [00:53:02.057] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1582s [00:53:02.057] base::names(...future.oldOptions)) 1582s [00:53:02.057] } 1582s [00:53:02.057] if (FALSE) { 1582s [00:53:02.057] } 1582s [00:53:02.057] else { 1582s [00:53:02.057] if (TRUE) { 1582s [00:53:02.057] ...future.stdout <- base::rawConnection(base::raw(0L), 1582s [00:53:02.057] open = "w") 1582s [00:53:02.057] } 1582s [00:53:02.057] else { 1582s [00:53:02.057] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1582s [00:53:02.057] windows = "NUL", "/dev/null"), open = "w") 1582s [00:53:02.057] } 1582s [00:53:02.057] base::sink(...future.stdout, type = "output", split = FALSE) 1582s [00:53:02.057] base::on.exit(if (!base::is.null(...future.stdout)) { 1582s [00:53:02.057] base::sink(type = "output", split = FALSE) 1582s [00:53:02.057] base::close(...future.stdout) 1582s [00:53:02.057] }, add = TRUE) 1582s [00:53:02.057] } 1582s [00:53:02.057] ...future.frame <- base::sys.nframe() 1582s [00:53:02.057] ...future.conditions <- base::list() 1582s [00:53:02.057] ...future.rng <- base::globalenv()$.Random.seed 1582s [00:53:02.057] if (FALSE) { 1582s [00:53:02.057] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1582s [00:53:02.057] "...future.value", "...future.globalenv.names", ".Random.seed") 1582s [00:53:02.057] } 1582s [00:53:02.057] ...future.result <- base::tryCatch({ 1582s [00:53:02.057] base::withCallingHandlers({ 1582s [00:53:02.057] ...future.value <- base::withVisible(base::local({ 1582s [00:53:02.057] do.call(function(...) { 1582s [00:53:02.057] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1582s [00:53:02.057] if (!identical(...future.globals.maxSize.org, 1582s [00:53:02.057] ...future.globals.maxSize)) { 1582s [00:53:02.057] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1582s [00:53:02.057] on.exit(options(oopts), add = TRUE) 1582s [00:53:02.057] } 1582s [00:53:02.057] { 1582s [00:53:02.057] lapply(seq_along(...future.elements_ii), 1582s [00:53:02.057] FUN = function(jj) { 1582s [00:53:02.057] ...future.X_jj <- ...future.elements_ii[[jj]] 1582s [00:53:02.057] ...future.FUN(...future.X_jj, ...) 1582s [00:53:02.057] }) 1582s [00:53:02.057] } 1582s [00:53:02.057] }, args = future.call.arguments) 1582s [00:53:02.057] })) 1582s [00:53:02.057] future::FutureResult(value = ...future.value$value, 1582s [00:53:02.057] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1582s [00:53:02.057] ...future.rng), globalenv = if (FALSE) 1582s [00:53:02.057] list(added = base::setdiff(base::names(base::.GlobalEnv), 1582s [00:53:02.057] ...future.globalenv.names)) 1582s [00:53:02.057] else NULL, started = ...future.startTime, version = "1.8") 1582s [00:53:02.057] }, condition = base::local({ 1582s [00:53:02.057] c <- base::c 1582s [00:53:02.057] inherits <- base::inherits 1582s [00:53:02.057] invokeRestart <- base::invokeRestart 1582s [00:53:02.057] length <- base::length 1582s [00:53:02.057] list <- base::list 1582s [00:53:02.057] seq.int <- base::seq.int 1582s [00:53:02.057] signalCondition <- base::signalCondition 1582s [00:53:02.057] sys.calls <- base::sys.calls 1582s [00:53:02.057] `[[` <- base::`[[` 1582s [00:53:02.057] `+` <- base::`+` 1582s [00:53:02.057] `<<-` <- base::`<<-` 1582s [00:53:02.057] sysCalls <- function(calls = sys.calls(), from = 1L) { 1582s [00:53:02.057] calls[seq.int(from = from + 12L, to = length(calls) - 1582s [00:53:02.057] 3L)] 1582s [00:53:02.057] } 1582s [00:53:02.057] function(cond) { 1582s [00:53:02.057] is_error <- inherits(cond, "error") 1582s [00:53:02.057] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1582s [00:53:02.057] NULL) 1582s [00:53:02.057] if (is_error) { 1582s [00:53:02.057] sessionInformation <- function() { 1582s [00:53:02.057] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1582s [00:53:02.057] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1582s [00:53:02.057] search = base::search(), system = base::Sys.info()) 1582s [00:53:02.057] } 1582s [00:53:02.057] ...future.conditions[[length(...future.conditions) + 1582s [00:53:02.057] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1582s [00:53:02.057] cond$call), session = sessionInformation(), 1582s [00:53:02.057] timestamp = base::Sys.time(), signaled = 0L) 1582s [00:53:02.057] signalCondition(cond) 1582s [00:53:02.057] } 1582s [00:53:02.057] else if (!ignore && TRUE && inherits(cond, c("condition", 1582s [00:53:02.057] "immediateCondition"))) { 1582s [00:53:02.057] signal <- TRUE && inherits(cond, "immediateCondition") 1582s [00:53:02.057] ...future.conditions[[length(...future.conditions) + 1582s [00:53:02.057] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1582s [00:53:02.057] if (TRUE && !signal) { 1582s [00:53:02.057] muffleCondition <- function (cond, pattern = "^muffle") 1582s [00:53:02.057] { 1582s [00:53:02.057] inherits <- base::inherits 1582s [00:53:02.057] invokeRestart <- base::invokeRestart 1582s [00:53:02.057] is.null <- base::is.null 1582s [00:53:02.057] muffled <- FALSE 1582s [00:53:02.057] if (inherits(cond, "message")) { 1582s [00:53:02.057] muffled <- grepl(pattern, "muffleMessage") 1582s [00:53:02.057] if (muffled) 1582s [00:53:02.057] invokeRestart("muffleMessage") 1582s [00:53:02.057] } 1582s [00:53:02.057] else if (inherits(cond, "warning")) { 1582s [00:53:02.057] muffled <- grepl(pattern, "muffleWarning") 1582s [00:53:02.057] if (muffled) 1582s [00:53:02.057] invokeRestart("muffleWarning") 1582s [00:53:02.057] } 1582s [00:53:02.057] else if (inherits(cond, "condition")) { 1582s [00:53:02.057] if (!is.null(pattern)) { 1582s [00:53:02.057] computeRestarts <- base::computeRestarts 1582s [00:53:02.057] grepl <- base::grepl 1582s [00:53:02.057] restarts <- computeRestarts(cond) 1582s [00:53:02.057] for (restart in restarts) { 1582s [00:53:02.057] name <- restart$name 1582s [00:53:02.057] if (is.null(name)) 1582s [00:53:02.057] next 1582s [00:53:02.057] if (!grepl(pattern, name)) 1582s [00:53:02.057] next 1582s [00:53:02.057] invokeRestart(restart) 1582s [00:53:02.057] muffled <- TRUE 1582s [00:53:02.057] break 1582s [00:53:02.057] } 1582s [00:53:02.057] } 1582s [00:53:02.057] } 1582s [00:53:02.057] invisible(muffled) 1582s [00:53:02.057] } 1582s [00:53:02.057] muffleCondition(cond, pattern = "^muffle") 1582s [00:53:02.057] } 1582s [00:53:02.057] } 1582s [00:53:02.057] else { 1582s [00:53:02.057] if (TRUE) { 1582s [00:53:02.057] muffleCondition <- function (cond, pattern = "^muffle") 1582s [00:53:02.057] { 1582s [00:53:02.057] inherits <- base::inherits 1582s [00:53:02.057] invokeRestart <- base::invokeRestart 1582s [00:53:02.057] is.null <- base::is.null 1582s [00:53:02.057] muffled <- FALSE 1582s [00:53:02.057] if (inherits(cond, "message")) { 1582s [00:53:02.057] muffled <- grepl(pattern, "muffleMessage") 1582s [00:53:02.057] if (muffled) 1582s [00:53:02.057] invokeRestart("muffleMessage") 1582s [00:53:02.057] } 1582s [00:53:02.057] else if (inherits(cond, "warning")) { 1582s [00:53:02.057] muffled <- grepl(pattern, "muffleWarning") 1582s [00:53:02.057] if (muffled) 1582s [00:53:02.057] invokeRestart("muffleWarning") 1582s [00:53:02.057] } 1582s [00:53:02.057] else if (inherits(cond, "condition")) { 1582s [00:53:02.057] if (!is.null(pattern)) { 1582s [00:53:02.057] computeRestarts <- base::computeRestarts 1582s [00:53:02.057] grepl <- base::grepl 1582s [00:53:02.057] restarts <- computeRestarts(cond) 1582s [00:53:02.057] for (restart in restarts) { 1582s [00:53:02.057] name <- restart$name 1582s [00:53:02.057] if (is.null(name)) 1582s [00:53:02.057] next 1582s [00:53:02.057] if (!grepl(pattern, name)) 1582s [00:53:02.057] next 1582s [00:53:02.057] invokeRestart(restart) 1582s [00:53:02.057] muffled <- TRUE 1582s [00:53:02.057] break 1582s [00:53:02.057] } 1582s [00:53:02.057] } 1582s [00:53:02.057] } 1582s [00:53:02.057] invisible(muffled) 1582s [00:53:02.057] } 1582s [00:53:02.057] muffleCondition(cond, pattern = "^muffle") 1582s [00:53:02.057] } 1582s [00:53:02.057] } 1582s [00:53:02.057] } 1582s [00:53:02.057] })) 1582s [00:53:02.057] }, error = function(ex) { 1582s [00:53:02.057] base::structure(base::list(value = NULL, visible = NULL, 1582s [00:53:02.057] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1582s [00:53:02.057] ...future.rng), started = ...future.startTime, 1582s [00:53:02.057] finished = Sys.time(), session_uuid = NA_character_, 1582s [00:53:02.057] version = "1.8"), class = "FutureResult") 1582s [00:53:02.057] }, finally = { 1582s [00:53:02.057] if (!identical(...future.workdir, getwd())) 1582s [00:53:02.057] setwd(...future.workdir) 1582s [00:53:02.057] { 1582s [00:53:02.057] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1582s [00:53:02.057] ...future.oldOptions$nwarnings <- NULL 1582s [00:53:02.057] } 1582s [00:53:02.057] base::options(...future.oldOptions) 1582s [00:53:02.057] if (.Platform$OS.type == "windows") { 1582s [00:53:02.057] old_names <- names(...future.oldEnvVars) 1582s [00:53:02.057] envs <- base::Sys.getenv() 1582s [00:53:02.057] names <- names(envs) 1582s [00:53:02.057] common <- intersect(names, old_names) 1582s [00:53:02.057] added <- setdiff(names, old_names) 1582s [00:53:02.057] removed <- setdiff(old_names, names) 1582s [00:53:02.057] changed <- common[...future.oldEnvVars[common] != 1582s [00:53:02.057] envs[common]] 1582s [00:53:02.057] NAMES <- toupper(changed) 1582s [00:53:02.057] args <- list() 1582s [00:53:02.057] for (kk in seq_along(NAMES)) { 1582s [00:53:02.057] name <- changed[[kk]] 1582s [00:53:02.057] NAME <- NAMES[[kk]] 1582s [00:53:02.057] if (name != NAME && is.element(NAME, old_names)) 1582s [00:53:02.057] next 1582s [00:53:02.057] args[[name]] <- ...future.oldEnvVars[[name]] 1582s [00:53:02.057] } 1582s [00:53:02.057] NAMES <- toupper(added) 1582s [00:53:02.057] for (kk in seq_along(NAMES)) { 1582s [00:53:02.057] name <- added[[kk]] 1582s [00:53:02.057] NAME <- NAMES[[kk]] 1582s [00:53:02.057] if (name != NAME && is.element(NAME, old_names)) 1582s [00:53:02.057] next 1582s [00:53:02.057] args[[name]] <- "" 1582s [00:53:02.057] } 1582s [00:53:02.057] NAMES <- toupper(removed) 1582s [00:53:02.057] for (kk in seq_along(NAMES)) { 1582s [00:53:02.057] name <- removed[[kk]] 1582s [00:53:02.057] NAME <- NAMES[[kk]] 1582s [00:53:02.057] if (name != NAME && is.element(NAME, old_names)) 1582s [00:53:02.057] next 1582s [00:53:02.057] args[[name]] <- ...future.oldEnvVars[[name]] 1582s [00:53:02.057] } 1582s [00:53:02.057] if (length(args) > 0) 1582s [00:53:02.057] base::do.call(base::Sys.setenv, args = args) 1582s [00:53:02.057] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1582s [00:53:02.057] } 1582s [00:53:02.057] else { 1582s [00:53:02.057] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1582s [00:53:02.057] } 1582s [00:53:02.057] { 1582s [00:53:02.057] if (base::length(...future.futureOptionsAdded) > 1582s [00:53:02.057] 0L) { 1582s [00:53:02.057] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1582s [00:53:02.057] base::names(opts) <- ...future.futureOptionsAdded 1582s [00:53:02.057] base::options(opts) 1582s [00:53:02.057] } 1582s [00:53:02.057] { 1582s [00:53:02.057] { 1582s [00:53:02.057] NULL 1582s [00:53:02.057] RNGkind("Mersenne-Twister") 1582s [00:53:02.057] base::rm(list = ".Random.seed", envir = base::globalenv(), 1582s [00:53:02.057] inherits = FALSE) 1582s [00:53:02.057] } 1582s [00:53:02.057] options(future.plan = NULL) 1582s [00:53:02.057] if (is.na(NA_character_)) 1582s [00:53:02.057] Sys.unsetenv("R_FUTURE_PLAN") 1582s [00:53:02.057] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1582s [00:53:02.057] future::plan(list(function (..., workers = availableCores(), 1582s [00:53:02.057] lazy = FALSE, rscript_libs = .libPaths(), 1582s [00:53:02.057] envir = parent.frame()) 1582s [00:53:02.057] { 1582s [00:53:02.057] if (is.function(workers)) 1582s [00:53:02.057] workers <- workers() 1582s [00:53:02.057] workers <- structure(as.integer(workers), 1582s [00:53:02.057] class = class(workers)) 1582s [00:53:02.057] stop_if_not(length(workers) == 1, is.finite(workers), 1582s [00:53:02.057] workers >= 1) 1582s [00:53:02.057] if (workers == 1L && !inherits(workers, "AsIs")) { 1582s [00:53:02.057] return(sequential(..., lazy = TRUE, envir = envir)) 1582s [00:53:02.057] } 1582s [00:53:02.057] future <- MultisessionFuture(..., workers = workers, 1582s [00:53:02.057] lazy = lazy, rscript_libs = rscript_libs, 1582s [00:53:02.057] envir = envir) 1582s [00:53:02.057] if (!future$lazy) 1582s [00:53:02.057] future <- run(future) 1582s [00:53:02.057] invisible(future) 1582s [00:53:02.057] }), .cleanup = FALSE, .init = FALSE) 1582s [00:53:02.057] } 1582s [00:53:02.057] } 1582s [00:53:02.057] } 1582s [00:53:02.057] }) 1582s [00:53:02.057] if (TRUE) { 1582s [00:53:02.057] base::sink(type = "output", split = FALSE) 1582s [00:53:02.057] if (TRUE) { 1582s [00:53:02.057] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1582s [00:53:02.057] } 1582s [00:53:02.057] else { 1582s [00:53:02.057] ...future.result["stdout"] <- base::list(NULL) 1582s [00:53:02.057] } 1582s [00:53:02.057] base::close(...future.stdout) 1582s [00:53:02.057] ...future.stdout <- NULL 1582s [00:53:02.057] } 1582s [00:53:02.057] ...future.result$conditions <- ...future.conditions 1582s [00:53:02.057] ...future.result$finished <- base::Sys.time() 1582s [00:53:02.057] ...future.result 1582s [00:53:02.057] } 1582s [00:53:02.072] assign_globals() ... 1582s [00:53:02.072] List of 5 1582s [00:53:02.072] $ ...future.FUN :function (x) 1582s [00:53:02.072] $ future.call.arguments : list() 1582s [00:53:02.072] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1582s [00:53:02.072] $ ...future.elements_ii :List of 6 1582s [00:53:02.072] ..$ a1: int 1 1582s [00:53:02.072] ..$ a2: int 2 1582s [00:53:02.072] ..$ b1: int 2 1582s [00:53:02.072] ..$ b2: int 3 1582s [00:53:02.072] ..$ c1: int 3 1582s [00:53:02.072] ..$ c2: int 4 1582s [00:53:02.072] $ ...future.seeds_ii : NULL 1582s [00:53:02.072] $ ...future.globals.maxSize: NULL 1582s [00:53:02.072] - attr(*, "where")=List of 5 1582s [00:53:02.072] ..$ ...future.FUN : 1582s [00:53:02.072] ..$ future.call.arguments : 1582s [00:53:02.072] ..$ ...future.elements_ii : 1582s [00:53:02.072] ..$ ...future.seeds_ii : 1582s [00:53:02.072] ..$ ...future.globals.maxSize: 1582s [00:53:02.072] - attr(*, "resolved")= logi FALSE 1582s [00:53:02.072] - attr(*, "total_size")= num 848 1582s [00:53:02.072] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1582s [00:53:02.072] - attr(*, "already-done")= logi TRUE 1582s [00:53:02.095] - copied ‘...future.FUN’ to environment 1582s [00:53:02.096] - copied ‘future.call.arguments’ to environment 1582s [00:53:02.098] - copied ‘...future.elements_ii’ to environment 1582s [00:53:02.098] - copied ‘...future.seeds_ii’ to environment 1582s [00:53:02.101] - copied ‘...future.globals.maxSize’ to environment 1582s [00:53:02.104] assign_globals() ... done 1582s [00:53:02.105] plan(): Setting new future strategy stack: 1582s [00:53:02.106] List of future strategies: 1582s [00:53:02.106] 1. sequential: 1582s [00:53:02.106] - args: function (..., envir = parent.frame()) 1582s [00:53:02.106] - tweaked: FALSE 1582s [00:53:02.106] - call: NULL 1582s [00:53:02.108] plan(): nbrOfWorkers() = 1 1582s [00:53:02.109] plan(): Setting new future strategy stack: 1582s [00:53:02.110] List of future strategies: 1582s [00:53:02.110] 1. multisession: 1582s [00:53:02.110] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1582s [00:53:02.110] - tweaked: FALSE 1582s [00:53:02.110] - call: plan(strategy) 1582s [00:53:02.118] plan(): nbrOfWorkers() = 1 1582s [00:53:02.119] SequentialFuture started (and completed) 1582s [00:53:02.120] - Launch lazy future ... done 1582s [00:53:02.121] run() for ‘SequentialFuture’ ... done 1582s [00:53:02.122] Created future: 1582s [00:53:02.122] SequentialFuture: 1582s [00:53:02.122] Label: ‘future_sapply-1’ 1582s [00:53:02.122] Expression: 1582s [00:53:02.122] { 1582s [00:53:02.122] do.call(function(...) { 1582s [00:53:02.122] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1582s [00:53:02.122] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1582s [00:53:02.122] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1582s [00:53:02.122] on.exit(options(oopts), add = TRUE) 1582s [00:53:02.122] } 1582s [00:53:02.122] { 1582s [00:53:02.122] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1582s [00:53:02.122] ...future.X_jj <- ...future.elements_ii[[jj]] 1582s [00:53:02.122] ...future.FUN(...future.X_jj, ...) 1582s [00:53:02.122] }) 1582s [00:53:02.122] } 1582s [00:53:02.122] }, args = future.call.arguments) 1582s [00:53:02.122] } 1582s [00:53:02.122] Lazy evaluation: FALSE 1582s [00:53:02.122] Asynchronous evaluation: FALSE 1582s [00:53:02.122] Local evaluation: TRUE 1582s [00:53:02.122] Environment: R_GlobalEnv 1582s [00:53:02.122] Capture standard output: TRUE 1582s [00:53:02.122] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1582s [00:53:02.122] Globals: 5 objects totaling 1.16 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1582s [00:53:02.122] Packages: 1582s [00:53:02.122] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1582s [00:53:02.122] Resolved: TRUE 1582s [00:53:02.122] Value: 336 bytes of class ‘list’ 1582s [00:53:02.122] Early signaling: FALSE 1582s [00:53:02.122] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1582s [00:53:02.122] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1582s [00:53:02.126] Chunk #1 of 1 ... DONE 1582s [00:53:02.126] Launching 1 futures (chunks) ... DONE 1582s [00:53:02.126] Resolving 1 futures (chunks) ... 1582s [00:53:02.127] resolve() on list ... 1582s [00:53:02.127] recursive: 0 1582s [00:53:02.127] length: 1 1582s [00:53:02.128] 1582s [00:53:02.128] resolved() for ‘SequentialFuture’ ... 1582s [00:53:02.128] - state: ‘finished’ 1582s [00:53:02.129] - run: TRUE 1582s [00:53:02.129] - result: ‘FutureResult’ 1582s [00:53:02.129] resolved() for ‘SequentialFuture’ ... done 1582s [00:53:02.129] Future #1 1582s [00:53:02.130] signalConditionsASAP(SequentialFuture, pos=1) ... 1582s [00:53:02.130] - nx: 1 1582s [00:53:02.131] - relay: TRUE 1582s [00:53:02.131] - stdout: TRUE 1582s [00:53:02.131] - signal: TRUE 1582s List of 2 1582s $ y0: Named int [1:6] 1 2 2 3 3 4 1582s ..- attr(*, "names")=[00:53:02.131] - resignal: FALSE 1582s [00:53:02.131] - force: TRUE 1582s [00:53:02.132] - relayed: [n=1] FALSE 1582s [00:53:02.132] - queued futures: [n=1] FALSE 1582s [00:53:02.132] - until=1 1582s [00:53:02.132] - relaying element #1 1582s [00:53:02.133] - relayed: [n=1] TRUE 1582s [00:53:02.133] - queued futures: [n=1] TRUE 1582s [00:53:02.133] signalConditionsASAP(SequentialFuture, pos=1) ... done 1582s [00:53:02.133] length: 0 (resolved future 1) 1582s [00:53:02.134] Relaying remaining futures 1582s [00:53:02.134] signalConditionsASAP(NULL, pos=0) ... 1582s [00:53:02.134] - nx: 1 1582s [00:53:02.134] - relay: TRUE 1582s [00:53:02.134] - stdout: TRUE 1582s [00:53:02.135] - signal: TRUE 1582s [00:53:02.135] - resignal: FALSE 1582s [00:53:02.135] - force: TRUE 1582s [00:53:02.135] - relayed: [n=1] TRUE 1582s [00:53:02.135] - queued futures: [n=1] TRUE 1582s - flush all 1582s [00:53:02.136] - relayed: [n=1] TRUE 1582s [00:53:02.136] - queued futures: [n=1] TRUE 1582s [00:53:02.136] signalConditionsASAP(NULL, pos=0) ... done 1582s [00:53:02.136] resolve() on list ... DONE 1582s [00:53:02.136] - Number of value chunks collected: 1 1582s [00:53:02.136] Resolving 1 futures (chunks) ... DONE 1582s [00:53:02.136] Reducing values from 1 chunks ... 1582s [00:53:02.137] - Number of values collected after concatenation: 6 1582s [00:53:02.137] - Number of values expected: 6 1582s [00:53:02.137] Reducing values from 1 chunks ... DONE 1582s [00:53:02.137] future_lapply() ... DONE 1582s chr [1:6] "a1" "a2" "b1" "b2" ... 1582s $ y1: Named int [1:6] 1 2 2 3 3 4 1582s ..- attr(*, "names")= chr [1:6] "a1" "a2" "b1" "b2" ... 1582s [00:53:02.141] future_lapply() ... 1582s [00:53:02.146] Number of chunks: 1 1582s [00:53:02.147] getGlobalsAndPackagesXApply() ... 1582s [00:53:02.147] - future.globals: TRUE 1582s [00:53:02.147] getGlobalsAndPackages() ... 1582s [00:53:02.148] Searching for globals... 1582s [00:53:02.160] - globals found: [2] ‘FUN’, ‘UseMethod’ 1582s [00:53:02.160] Searching for globals ... DONE 1582s [00:53:02.161] Resolving globals: FALSE 1582s [00:53:02.162] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1582s [00:53:02.163] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1582s [00:53:02.163] - globals: [1] ‘FUN’ 1582s [00:53:02.163] 1582s [00:53:02.164] getGlobalsAndPackages() ... DONE 1582s [00:53:02.164] - globals found/used: [n=1] ‘FUN’ 1582s [00:53:02.164] - needed namespaces: [n=0] 1582s [00:53:02.164] Finding globals ... DONE 1582s [00:53:02.164] - use_args: TRUE 1582s [00:53:02.164] - Getting '...' globals ... 1582s [00:53:02.165] resolve() on list ... 1582s [00:53:02.165] recursive: 0 1582s [00:53:02.166] length: 1 1582s [00:53:02.166] elements: ‘...’ 1582s [00:53:02.167] length: 0 (resolved future 1) 1582s [00:53:02.167] resolve() on list ... DONE 1582s [00:53:02.167] - '...' content: [n=0] 1582s [00:53:02.167] List of 1 1582s [00:53:02.167] $ ...: list() 1582s [00:53:02.167] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1582s [00:53:02.167] - attr(*, "where")=List of 1 1582s [00:53:02.167] ..$ ...: 1582s [00:53:02.167] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1582s [00:53:02.167] - attr(*, "resolved")= logi TRUE 1582s [00:53:02.167] - attr(*, "total_size")= num NA 1582s [00:53:02.175] - Getting '...' globals ... DONE 1582s [00:53:02.175] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1582s [00:53:02.176] List of 2 1582s [00:53:02.176] $ ...future.FUN:function (x, ...) 1582s [00:53:02.176] $ ... : list() 1582s [00:53:02.176] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1582s [00:53:02.176] - attr(*, "where")=List of 2 1582s [00:53:02.176] ..$ ...future.FUN: 1582s [00:53:02.176] ..$ ... : 1582s [00:53:02.176] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1582s [00:53:02.176] - attr(*, "resolved")= logi FALSE 1582s [00:53:02.176] - attr(*, "total_size")= num 1248 1582s [00:53:02.185] Packages to be attached in all futures: [n=0] 1582s [00:53:02.186] getGlobalsAndPackagesXApply() ... DONE 1582s [00:53:02.188] Number of futures (= number of chunks): 1 1582s [00:53:02.189] Launching 1 futures (chunks) ... 1582s [00:53:02.189] Chunk #1 of 1 ... 1582s [00:53:02.191] - Finding globals in 'X' for chunk #1 ... 1582s [00:53:02.192] getGlobalsAndPackages() ... 1582s [00:53:02.193] Searching for globals... 1582s [00:53:02.194] 1582s [00:53:02.194] Searching for globals ... DONE 1582s [00:53:02.195] - globals: [0] 1582s [00:53:02.195] getGlobalsAndPackages() ... DONE 1582s [00:53:02.195] + additional globals found: [n=0] 1582s [00:53:02.195] + additional namespaces needed: [n=0] 1582s [00:53:02.196] - Finding globals in 'X' for chunk #1 ... DONE 1582s [00:53:02.196] - seeds: 1582s [00:53:02.197] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1582s [00:53:02.197] getGlobalsAndPackages() ... 1582s [00:53:02.198] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1582s [00:53:02.198] Resolving globals: FALSE 1582s [00:53:02.199] Tweak future expression to call with '...' arguments ... 1582s [00:53:02.199] { 1582s [00:53:02.199] do.call(function(...) { 1582s [00:53:02.199] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1582s [00:53:02.199] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1582s [00:53:02.199] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1582s [00:53:02.199] on.exit(options(oopts), add = TRUE) 1582s [00:53:02.199] } 1582s [00:53:02.199] { 1582s [00:53:02.199] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1582s [00:53:02.199] ...future.X_jj <- ...future.elements_ii[[jj]] 1582s [00:53:02.199] ...future.FUN(...future.X_jj, ...) 1582s [00:53:02.199] }) 1582s [00:53:02.199] } 1582s [00:53:02.199] }, args = future.call.arguments) 1582s [00:53:02.199] } 1582s [00:53:02.202] Tweak future expression to call with '...' arguments ... DONE 1582s [00:53:02.203] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1582s [00:53:02.203] 1582s [00:53:02.204] getGlobalsAndPackages() ... DONE 1582s [00:53:02.204] run() for ‘Future’ ... 1582s [00:53:02.205] - state: ‘created’ 1582s [00:53:02.205] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1582s [00:53:02.210] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1582s [00:53:02.211] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1582s [00:53:02.211] - Field: ‘label’ 1582s [00:53:02.211] - Field: ‘local’ 1582s [00:53:02.212] - Field: ‘owner’ 1582s [00:53:02.212] - Field: ‘envir’ 1582s [00:53:02.212] - Field: ‘packages’ 1582s [00:53:02.213] - Field: ‘gc’ 1582s [00:53:02.213] - Field: ‘conditions’ 1582s [00:53:02.213] - Field: ‘expr’ 1582s [00:53:02.213] - Field: ‘uuid’ 1582s [00:53:02.213] - Field: ‘seed’ 1582s [00:53:02.214] - Field: ‘version’ 1582s [00:53:02.214] - Field: ‘result’ 1582s [00:53:02.214] - Field: ‘asynchronous’ 1582s [00:53:02.214] - Field: ‘calls’ 1582s [00:53:02.214] - Field: ‘globals’ 1582s [00:53:02.214] - Field: ‘stdout’ 1582s [00:53:02.215] - Field: ‘earlySignal’ 1582s [00:53:02.215] - Field: ‘lazy’ 1582s [00:53:02.215] - Field: ‘state’ 1582s [00:53:02.215] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1582s [00:53:02.216] - Launch lazy future ... 1582s [00:53:02.216] Packages needed by the future expression (n = 0): 1582s [00:53:02.216] Packages needed by future strategies (n = 0): 1582s [00:53:02.218] { 1582s [00:53:02.218] { 1582s [00:53:02.218] { 1582s [00:53:02.218] ...future.startTime <- base::Sys.time() 1582s [00:53:02.218] { 1582s [00:53:02.218] { 1582s [00:53:02.218] { 1582s [00:53:02.218] base::local({ 1582s [00:53:02.218] has_future <- base::requireNamespace("future", 1582s [00:53:02.218] quietly = TRUE) 1582s [00:53:02.218] if (has_future) { 1582s [00:53:02.218] ns <- base::getNamespace("future") 1582s [00:53:02.218] version <- ns[[".package"]][["version"]] 1582s [00:53:02.218] if (is.null(version)) 1582s [00:53:02.218] version <- utils::packageVersion("future") 1582s [00:53:02.218] } 1582s [00:53:02.218] else { 1582s [00:53:02.218] version <- NULL 1582s [00:53:02.218] } 1582s [00:53:02.218] if (!has_future || version < "1.8.0") { 1582s [00:53:02.218] info <- base::c(r_version = base::gsub("R version ", 1582s [00:53:02.218] "", base::R.version$version.string), 1582s [00:53:02.218] platform = base::sprintf("%s (%s-bit)", 1582s [00:53:02.218] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1582s [00:53:02.218] os = base::paste(base::Sys.info()[base::c("sysname", 1582s [00:53:02.218] "release", "version")], collapse = " "), 1582s [00:53:02.218] hostname = base::Sys.info()[["nodename"]]) 1582s [00:53:02.218] info <- base::sprintf("%s: %s", base::names(info), 1582s [00:53:02.218] info) 1582s [00:53:02.218] info <- base::paste(info, collapse = "; ") 1582s [00:53:02.218] if (!has_future) { 1582s [00:53:02.218] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1582s [00:53:02.218] info) 1582s [00:53:02.218] } 1582s [00:53:02.218] else { 1582s [00:53:02.218] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1582s [00:53:02.218] info, version) 1582s [00:53:02.218] } 1582s [00:53:02.218] base::stop(msg) 1582s [00:53:02.218] } 1582s [00:53:02.218] }) 1582s [00:53:02.218] } 1582s [00:53:02.218] options(future.plan = NULL) 1582s [00:53:02.218] Sys.unsetenv("R_FUTURE_PLAN") 1582s [00:53:02.218] future::plan("default", .cleanup = FALSE, .init = FALSE) 1582s [00:53:02.218] } 1582s [00:53:02.218] ...future.workdir <- getwd() 1582s [00:53:02.218] } 1582s [00:53:02.218] ...future.oldOptions <- base::as.list(base::.Options) 1582s [00:53:02.218] ...future.oldEnvVars <- base::Sys.getenv() 1582s [00:53:02.218] } 1582s [00:53:02.218] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1582s [00:53:02.218] future.globals.maxSize = NULL, future.globals.method = NULL, 1582s [00:53:02.218] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1582s [00:53:02.218] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1582s [00:53:02.218] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1582s [00:53:02.218] future.stdout.windows.reencode = NULL, width = 80L) 1582s [00:53:02.218] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1582s [00:53:02.218] base::names(...future.oldOptions)) 1582s [00:53:02.218] } 1582s [00:53:02.218] if (FALSE) { 1582s [00:53:02.218] } 1582s [00:53:02.218] else { 1582s [00:53:02.218] if (TRUE) { 1582s [00:53:02.218] ...future.stdout <- base::rawConnection(base::raw(0L), 1582s [00:53:02.218] open = "w") 1582s [00:53:02.218] } 1582s [00:53:02.218] else { 1582s [00:53:02.218] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1582s [00:53:02.218] windows = "NUL", "/dev/null"), open = "w") 1582s [00:53:02.218] } 1582s [00:53:02.218] base::sink(...future.stdout, type = "output", split = FALSE) 1582s [00:53:02.218] base::on.exit(if (!base::is.null(...future.stdout)) { 1582s [00:53:02.218] base::sink(type = "output", split = FALSE) 1582s [00:53:02.218] base::close(...future.stdout) 1582s [00:53:02.218] }, add = TRUE) 1582s [00:53:02.218] } 1582s [00:53:02.218] ...future.frame <- base::sys.nframe() 1582s [00:53:02.218] ...future.conditions <- base::list() 1582s [00:53:02.218] ...future.rng <- base::globalenv()$.Random.seed 1582s [00:53:02.218] if (FALSE) { 1582s [00:53:02.218] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1582s [00:53:02.218] "...future.value", "...future.globalenv.names", ".Random.seed") 1582s [00:53:02.218] } 1582s [00:53:02.218] ...future.result <- base::tryCatch({ 1582s [00:53:02.218] base::withCallingHandlers({ 1582s [00:53:02.218] ...future.value <- base::withVisible(base::local({ 1582s [00:53:02.218] do.call(function(...) { 1582s [00:53:02.218] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1582s [00:53:02.218] if (!identical(...future.globals.maxSize.org, 1582s [00:53:02.218] ...future.globals.maxSize)) { 1582s [00:53:02.218] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1582s [00:53:02.218] on.exit(options(oopts), add = TRUE) 1582s [00:53:02.218] } 1582s [00:53:02.218] { 1582s [00:53:02.218] lapply(seq_along(...future.elements_ii), 1582s [00:53:02.218] FUN = function(jj) { 1582s [00:53:02.218] ...future.X_jj <- ...future.elements_ii[[jj]] 1582s [00:53:02.218] ...future.FUN(...future.X_jj, ...) 1582s [00:53:02.218] }) 1582s [00:53:02.218] } 1582s [00:53:02.218] }, args = future.call.arguments) 1582s [00:53:02.218] })) 1582s [00:53:02.218] future::FutureResult(value = ...future.value$value, 1582s [00:53:02.218] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1582s [00:53:02.218] ...future.rng), globalenv = if (FALSE) 1582s [00:53:02.218] list(added = base::setdiff(base::names(base::.GlobalEnv), 1582s [00:53:02.218] ...future.globalenv.names)) 1582s [00:53:02.218] else NULL, started = ...future.startTime, version = "1.8") 1582s [00:53:02.218] }, condition = base::local({ 1582s [00:53:02.218] c <- base::c 1582s [00:53:02.218] inherits <- base::inherits 1582s [00:53:02.218] invokeRestart <- base::invokeRestart 1582s [00:53:02.218] length <- base::length 1582s [00:53:02.218] list <- base::list 1582s [00:53:02.218] seq.int <- base::seq.int 1582s [00:53:02.218] signalCondition <- base::signalCondition 1582s [00:53:02.218] sys.calls <- base::sys.calls 1582s [00:53:02.218] `[[` <- base::`[[` 1582s [00:53:02.218] `+` <- base::`+` 1582s [00:53:02.218] `<<-` <- base::`<<-` 1582s [00:53:02.218] sysCalls <- function(calls = sys.calls(), from = 1L) { 1582s [00:53:02.218] calls[seq.int(from = from + 12L, to = length(calls) - 1582s [00:53:02.218] 3L)] 1582s [00:53:02.218] } 1582s [00:53:02.218] function(cond) { 1582s [00:53:02.218] is_error <- inherits(cond, "error") 1582s [00:53:02.218] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1582s [00:53:02.218] NULL) 1582s [00:53:02.218] if (is_error) { 1582s [00:53:02.218] sessionInformation <- function() { 1582s [00:53:02.218] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1582s [00:53:02.218] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1582s [00:53:02.218] search = base::search(), system = base::Sys.info()) 1582s [00:53:02.218] } 1582s [00:53:02.218] ...future.conditions[[length(...future.conditions) + 1582s [00:53:02.218] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1582s [00:53:02.218] cond$call), session = sessionInformation(), 1582s [00:53:02.218] timestamp = base::Sys.time(), signaled = 0L) 1582s [00:53:02.218] signalCondition(cond) 1582s [00:53:02.218] } 1582s [00:53:02.218] else if (!ignore && TRUE && inherits(cond, c("condition", 1582s [00:53:02.218] "immediateCondition"))) { 1582s [00:53:02.218] signal <- TRUE && inherits(cond, "immediateCondition") 1582s [00:53:02.218] ...future.conditions[[length(...future.conditions) + 1582s [00:53:02.218] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1582s [00:53:02.218] if (TRUE && !signal) { 1582s [00:53:02.218] muffleCondition <- function (cond, pattern = "^muffle") 1582s [00:53:02.218] { 1582s [00:53:02.218] inherits <- base::inherits 1582s [00:53:02.218] invokeRestart <- base::invokeRestart 1582s [00:53:02.218] is.null <- base::is.null 1582s [00:53:02.218] muffled <- FALSE 1582s [00:53:02.218] if (inherits(cond, "message")) { 1582s [00:53:02.218] muffled <- grepl(pattern, "muffleMessage") 1582s [00:53:02.218] if (muffled) 1582s [00:53:02.218] invokeRestart("muffleMessage") 1582s [00:53:02.218] } 1582s [00:53:02.218] else if (inherits(cond, "warning")) { 1582s [00:53:02.218] muffled <- grepl(pattern, "muffleWarning") 1582s [00:53:02.218] if (muffled) 1582s [00:53:02.218] invokeRestart("muffleWarning") 1582s [00:53:02.218] } 1582s [00:53:02.218] else if (inherits(cond, "condition")) { 1582s [00:53:02.218] if (!is.null(pattern)) { 1582s [00:53:02.218] computeRestarts <- base::computeRestarts 1582s [00:53:02.218] grepl <- base::grepl 1582s [00:53:02.218] restarts <- computeRestarts(cond) 1582s [00:53:02.218] for (restart in restarts) { 1582s [00:53:02.218] name <- restart$name 1582s [00:53:02.218] if (is.null(name)) 1582s [00:53:02.218] next 1582s [00:53:02.218] if (!grepl(pattern, name)) 1582s [00:53:02.218] next 1582s [00:53:02.218] invokeRestart(restart) 1582s [00:53:02.218] muffled <- TRUE 1582s [00:53:02.218] break 1582s [00:53:02.218] } 1582s [00:53:02.218] } 1582s [00:53:02.218] } 1582s [00:53:02.218] invisible(muffled) 1582s [00:53:02.218] } 1582s [00:53:02.218] muffleCondition(cond, pattern = "^muffle") 1582s [00:53:02.218] } 1582s [00:53:02.218] } 1582s [00:53:02.218] else { 1582s [00:53:02.218] if (TRUE) { 1582s [00:53:02.218] muffleCondition <- function (cond, pattern = "^muffle") 1582s [00:53:02.218] { 1582s [00:53:02.218] inherits <- base::inherits 1582s [00:53:02.218] invokeRestart <- base::invokeRestart 1582s [00:53:02.218] is.null <- base::is.null 1582s [00:53:02.218] muffled <- FALSE 1582s [00:53:02.218] if (inherits(cond, "message")) { 1582s [00:53:02.218] muffled <- grepl(pattern, "muffleMessage") 1582s [00:53:02.218] if (muffled) 1582s [00:53:02.218] invokeRestart("muffleMessage") 1582s [00:53:02.218] } 1582s [00:53:02.218] else if (inherits(cond, "warning")) { 1582s [00:53:02.218] muffled <- grepl(pattern, "muffleWarning") 1582s [00:53:02.218] if (muffled) 1582s [00:53:02.218] invokeRestart("muffleWarning") 1582s [00:53:02.218] } 1582s [00:53:02.218] else if (inherits(cond, "condition")) { 1582s [00:53:02.218] if (!is.null(pattern)) { 1582s [00:53:02.218] computeRestarts <- base::computeRestarts 1582s [00:53:02.218] grepl <- base::grepl 1582s [00:53:02.218] restarts <- computeRestarts(cond) 1582s [00:53:02.218] for (restart in restarts) { 1582s [00:53:02.218] name <- restart$name 1582s [00:53:02.218] if (is.null(name)) 1582s [00:53:02.218] next 1582s [00:53:02.218] if (!grepl(pattern, name)) 1582s [00:53:02.218] next 1582s [00:53:02.218] invokeRestart(restart) 1582s [00:53:02.218] muffled <- TRUE 1582s [00:53:02.218] break 1582s [00:53:02.218] } 1582s [00:53:02.218] } 1582s [00:53:02.218] } 1582s [00:53:02.218] invisible(muffled) 1582s [00:53:02.218] } 1582s [00:53:02.218] muffleCondition(cond, pattern = "^muffle") 1582s [00:53:02.218] } 1582s [00:53:02.218] } 1582s [00:53:02.218] } 1582s [00:53:02.218] })) 1582s [00:53:02.218] }, error = function(ex) { 1582s [00:53:02.218] base::structure(base::list(value = NULL, visible = NULL, 1582s [00:53:02.218] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1582s [00:53:02.218] ...future.rng), started = ...future.startTime, 1582s [00:53:02.218] finished = Sys.time(), session_uuid = NA_character_, 1582s [00:53:02.218] version = "1.8"), class = "FutureResult") 1582s [00:53:02.218] }, finally = { 1582s [00:53:02.218] if (!identical(...future.workdir, getwd())) 1582s [00:53:02.218] setwd(...future.workdir) 1582s [00:53:02.218] { 1582s [00:53:02.218] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1582s [00:53:02.218] ...future.oldOptions$nwarnings <- NULL 1582s [00:53:02.218] } 1582s [00:53:02.218] base::options(...future.oldOptions) 1582s [00:53:02.218] if (.Platform$OS.type == "windows") { 1582s [00:53:02.218] old_names <- names(...future.oldEnvVars) 1582s [00:53:02.218] envs <- base::Sys.getenv() 1582s [00:53:02.218] names <- names(envs) 1582s [00:53:02.218] common <- intersect(names, old_names) 1582s [00:53:02.218] added <- setdiff(names, old_names) 1582s [00:53:02.218] removed <- setdiff(old_names, names) 1582s [00:53:02.218] changed <- common[...future.oldEnvVars[common] != 1582s [00:53:02.218] envs[common]] 1582s [00:53:02.218] NAMES <- toupper(changed) 1582s [00:53:02.218] args <- list() 1582s [00:53:02.218] for (kk in seq_along(NAMES)) { 1582s [00:53:02.218] name <- changed[[kk]] 1582s [00:53:02.218] NAME <- NAMES[[kk]] 1582s [00:53:02.218] if (name != NAME && is.element(NAME, old_names)) 1582s [00:53:02.218] next 1582s [00:53:02.218] args[[name]] <- ...future.oldEnvVars[[name]] 1582s [00:53:02.218] } 1582s [00:53:02.218] NAMES <- toupper(added) 1582s [00:53:02.218] for (kk in seq_along(NAMES)) { 1582s [00:53:02.218] name <- added[[kk]] 1582s [00:53:02.218] NAME <- NAMES[[kk]] 1582s [00:53:02.218] if (name != NAME && is.element(NAME, old_names)) 1582s [00:53:02.218] next 1582s [00:53:02.218] args[[name]] <- "" 1582s [00:53:02.218] } 1582s [00:53:02.218] NAMES <- toupper(removed) 1582s [00:53:02.218] for (kk in seq_along(NAMES)) { 1582s [00:53:02.218] name <- removed[[kk]] 1582s [00:53:02.218] NAME <- NAMES[[kk]] 1582s [00:53:02.218] if (name != NAME && is.element(NAME, old_names)) 1582s [00:53:02.218] next 1582s [00:53:02.218] args[[name]] <- ...future.oldEnvVars[[name]] 1582s [00:53:02.218] } 1582s [00:53:02.218] if (length(args) > 0) 1582s [00:53:02.218] base::do.call(base::Sys.setenv, args = args) 1582s [00:53:02.218] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1582s [00:53:02.218] } 1582s [00:53:02.218] else { 1582s [00:53:02.218] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1582s [00:53:02.218] } 1582s [00:53:02.218] { 1582s [00:53:02.218] if (base::length(...future.futureOptionsAdded) > 1582s [00:53:02.218] 0L) { 1582s [00:53:02.218] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1582s [00:53:02.218] base::names(opts) <- ...future.futureOptionsAdded 1582s [00:53:02.218] base::options(opts) 1582s [00:53:02.218] } 1582s [00:53:02.218] { 1582s [00:53:02.218] { 1582s [00:53:02.218] NULL 1582s [00:53:02.218] RNGkind("Mersenne-Twister") 1582s [00:53:02.218] base::rm(list = ".Random.seed", envir = base::globalenv(), 1582s [00:53:02.218] inherits = FALSE) 1582s [00:53:02.218] } 1582s [00:53:02.218] options(future.plan = NULL) 1582s [00:53:02.218] if (is.na(NA_character_)) 1582s [00:53:02.218] Sys.unsetenv("R_FUTURE_PLAN") 1582s [00:53:02.218] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1582s [00:53:02.218] future::plan(list(function (..., workers = availableCores(), 1582s [00:53:02.218] lazy = FALSE, rscript_libs = .libPaths(), 1582s [00:53:02.218] envir = parent.frame()) 1582s [00:53:02.218] { 1582s [00:53:02.218] if (is.function(workers)) 1582s [00:53:02.218] workers <- workers() 1582s [00:53:02.218] workers <- structure(as.integer(workers), 1582s [00:53:02.218] class = class(workers)) 1582s [00:53:02.218] stop_if_not(length(workers) == 1, is.finite(workers), 1582s [00:53:02.218] workers >= 1) 1582s [00:53:02.218] if (workers == 1L && !inherits(workers, "AsIs")) { 1582s [00:53:02.218] return(sequential(..., lazy = TRUE, envir = envir)) 1582s [00:53:02.218] } 1582s [00:53:02.218] future <- MultisessionFuture(..., workers = workers, 1582s [00:53:02.218] lazy = lazy, rscript_libs = rscript_libs, 1582s [00:53:02.218] envir = envir) 1582s [00:53:02.218] if (!future$lazy) 1582s [00:53:02.218] future <- run(future) 1582s [00:53:02.218] invisible(future) 1582s [00:53:02.218] }), .cleanup = FALSE, .init = FALSE) 1582s [00:53:02.218] } 1582s [00:53:02.218] } 1582s [00:53:02.218] } 1582s [00:53:02.218] }) 1582s [00:53:02.218] if (TRUE) { 1582s [00:53:02.218] base::sink(type = "output", split = FALSE) 1582s [00:53:02.218] if (TRUE) { 1582s [00:53:02.218] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1582s [00:53:02.218] } 1582s [00:53:02.218] else { 1582s [00:53:02.218] ...future.result["stdout"] <- base::list(NULL) 1582s [00:53:02.218] } 1582s [00:53:02.218] base::close(...future.stdout) 1582s [00:53:02.218] ...future.stdout <- NULL 1582s [00:53:02.218] } 1582s [00:53:02.218] ...future.result$conditions <- ...future.conditions 1582s [00:53:02.218] ...future.result$finished <- base::Sys.time() 1582s [00:53:02.218] ...future.result 1582s [00:53:02.218] } 1582s [00:53:02.230] assign_globals() ... 1582s [00:53:02.231] List of 5 1582s [00:53:02.231] $ ...future.FUN :function (x, ...) 1582s [00:53:02.231] $ future.call.arguments : list() 1582s [00:53:02.231] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1582s [00:53:02.231] $ ...future.elements_ii :List of 6 1582s [00:53:02.231] ..$ a1: int 1 1582s [00:53:02.231] ..$ a2: int 2 1582s [00:53:02.231] ..$ b1: int 2 1582s [00:53:02.231] ..$ b2: int 3 1582s [00:53:02.231] ..$ c1: int 3 1582s [00:53:02.231] ..$ c2: int 4 1582s [00:53:02.231] $ ...future.seeds_ii : NULL 1582s [00:53:02.231] $ ...future.globals.maxSize: NULL 1582s [00:53:02.231] - attr(*, "where")=List of 5 1582s [00:53:02.231] ..$ ...future.FUN : 1582s [00:53:02.231] ..$ future.call.arguments : 1582s [00:53:02.231] ..$ ...future.elements_ii : 1582s [00:53:02.231] ..$ ...future.seeds_ii : 1582s [00:53:02.231] ..$ ...future.globals.maxSize: 1582s [00:53:02.231] - attr(*, "resolved")= logi FALSE 1582s [00:53:02.231] - attr(*, "total_size")= num 1248 1582s [00:53:02.231] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1582s [00:53:02.231] - attr(*, "already-done")= logi TRUE 1582s [00:53:02.245] - copied ‘...future.FUN’ to environment 1582s [00:53:02.245] - copied ‘future.call.arguments’ to environment 1582s [00:53:02.245] - copied ‘...future.elements_ii’ to environment 1582s [00:53:02.245] - copied ‘...future.seeds_ii’ to environment 1582s [00:53:02.245] - copied ‘...future.globals.maxSize’ to environment 1582s [00:53:02.245] assign_globals() ... done 1582s [00:53:02.246] plan(): Setting new future strategy stack: 1582s [00:53:02.246] List of future strategies: 1582s [00:53:02.246] 1. sequential: 1582s [00:53:02.246] - args: function (..., envir = parent.frame()) 1582s [00:53:02.246] - tweaked: FALSE 1582s [00:53:02.246] - call: NULL 1582s [00:53:02.246] plan(): nbrOfWorkers() = 1 1582s [00:53:02.247] plan(): Setting new future strategy stack: 1582s [00:53:02.247] List of future strategies: 1582s [00:53:02.247] 1. multisession: 1582s [00:53:02.247] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1582s [00:53:02.247] - tweaked: FALSE 1582s [00:53:02.247] - call: plan(strategy) 1582s [00:53:02.255] plan(): nbrOfWorkers() = 1 1582s [00:53:02.256] SequentialFuture started (and completed) 1582s [00:53:02.256] - Launch lazy future ... done 1582s [00:53:02.256] run() for ‘SequentialFuture’ ... done 1582s [00:53:02.257] Created future: 1582s [00:53:02.257] SequentialFuture: 1582s [00:53:02.257] Label: ‘future_sapply-1’ 1582s [00:53:02.257] Expression: 1582s [00:53:02.257] { 1582s [00:53:02.257] do.call(function(...) { 1582s [00:53:02.257] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1582s [00:53:02.257] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1582s [00:53:02.257] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1582s [00:53:02.257] on.exit(options(oopts), add = TRUE) 1582s [00:53:02.257] } 1582s [00:53:02.257] { 1582s [00:53:02.257] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1582s [00:53:02.257] ...future.X_jj <- ...future.elements_ii[[jj]] 1582s [00:53:02.257] ...future.FUN(...future.X_jj, ...) 1582s [00:53:02.257] }) 1582s [00:53:02.257] } 1582s [00:53:02.257] }, args = future.call.arguments) 1582s [00:53:02.257] } 1582s [00:53:02.257] Lazy evaluation: FALSE 1582s [00:53:02.257] Asynchronous evaluation: FALSE 1582s [00:53:02.257] Local evaluation: TRUE 1582s [00:53:02.257] Environment: R_GlobalEnv 1582s [00:53:02.257] Capture standard output: TRUE 1582s [00:53:02.257] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1582s [00:53:02.257] Globals: 5 objects totaling 1.55 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1582s [00:53:02.257] Packages: 1582s [00:53:02.257] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1582s [00:53:02.257] Resolved: TRUE 1582s [00:53:02.257] Value: 1.31 KiB of class ‘list’ 1582s [00:53:02.257] Early signaling: FALSE 1582s [00:53:02.257] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1582s [00:53:02.257] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1582s [00:53:02.260] Chunk #1 of 1 ... DONE 1582s [00:53:02.260] Launching 1 futures (chunks) ... DONE 1582s [00:53:02.260] Resolving 1 futures (chunks) ... 1582s [00:53:02.260] resolve() on list ... 1582s [00:53:02.261] recursive: 0 1582s [00:53:02.261] length: 1 1582s [00:53:02.261] 1582s [00:53:02.262] resolved() for ‘SequentialFuture’ ... 1582s [00:53:02.262] - state: ‘finished’ 1582s [00:53:02.262] - run: TRUE 1582s [00:53:02.263] - result: ‘FutureResult’ 1582s [00:53:02.263] resolved() for ‘SequentialFuture’ ... done 1582s [00:53:02.263] Future #1 1582s [00:53:02.264] signalConditionsASAP(SequentialFuture, pos=1) ... 1582s [00:53:02.264] - nx: 1 1582s [00:53:02.264] - relay: TRUE 1582s [00:53:02.264] - stdout: TRUE 1582s [00:53:02.264] - signal: TRUE 1582s [00:53:02.265] - resignal: FALSE 1582s [00:53:02.265] - force: TRUE 1582s [00:53:02.265] - relayed: [n=1] FALSE 1582s [00:53:02.265] - queued futures: [n=1] FALSE 1582s [00:53:02.265] - until=1 1582s [00:53:02.265] - relaying element #1 1582s [00:53:02.266] - relayed: [n=1] TRUE 1582s [00:53:02.266] - queued futures: [n=1] TRUE 1582s [00:53:02.266] signalConditionsASAP(SequentialFuture, pos=1) ... done 1582s [00:53:02.266] length: 0 (resolved future 1) 1582s [00:53:02.266] Relaying remaining futures 1582s [00:53:02.267] signalConditionsASAP(NULL, pos=0) ... 1582s [00:53:02.267] - nx: 1 1582s [00:53:02.267] - relay: TRUE 1582s [00:53:02.267] - stdout: TRUE 1582s [00:53:02.267] - signal: TRUE 1582s [00:53:02.268] - resignal: FALSE 1582s [00:53:02.268] - force: TRUE 1582s [00:53:02.268] - relayed: [n=1] TRUE 1582s [00:53:02.268] - queued futures: [n=1] TRUE 1582s - flush all 1582s [00:53:02.269] - relayed: [n=1] TRUE 1582s [00:53:02.269] - queued futures: [n=1] TRUE 1582s [00:53:02.270] signalConditionsASAP(NULL, pos=0) ... done 1582s [00:53:02.270] resolve() on list ... DONE 1582s [00:53:02.271] - Number of value chunks collected: 1 1582s [00:53:02.271] Resolving 1 futures (chunks) ... DONE 1582s [00:53:02.271] Reducing values from 1 chunks ... 1582s [00:53:02.271] - Number of values collected after concatenation: 6 1582s [00:53:02.272] - Number of values expected: 6 1582s [00:53:02.272] Reducing values from 1 chunks ... DONE 1582s [00:53:02.272] future_lapply() ... DONE 1582s List of 2 1582s $ y0: Named int [1:6] 1 2 2 3 3 4 1582s ..- attr(*, "names")= chr [1:6] "a1" "a2" "b1" "b2" ... 1582s $ y1: Named int [1:6] 1 2 2 3 3 4 1582s ..- attr(*, "names")= chr [1:6] "a1" "a2" "b1" "b2" ... 1582s [00:53:02.278] future_lapply() ... 1582s [00:53:02.284] Number of chunks: 1 1582s [00:53:02.285] getGlobalsAndPackagesXApply() ... 1582s [00:53:02.285] - future.globals: TRUE 1582s [00:53:02.285] getGlobalsAndPackages() ... 1582s [00:53:02.285] Searching for globals... 1582s [00:53:02.287] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1582s [00:53:02.287] Searching for globals ... DONE 1582s [00:53:02.288] Resolving globals: FALSE 1582s [00:53:02.288] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1582s [00:53:02.289] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1582s [00:53:02.289] - globals: [1] ‘FUN’ 1582s [00:53:02.290] 1582s [00:53:02.290] getGlobalsAndPackages() ... DONE 1582s [00:53:02.290] - globals found/used: [n=1] ‘FUN’ 1582s [00:53:02.290] - needed namespaces: [n=0] 1582s [00:53:02.290] Finding globals ... DONE 1582s [00:53:02.291] - use_args: TRUE 1582s [00:53:02.291] - Getting '...' globals ... 1582s [00:53:02.291] resolve() on list ... 1582s [00:53:02.291] recursive: 0 1582s [00:53:02.292] length: 1 1582s [00:53:02.292] elements: ‘...’ 1582s [00:53:02.292] length: 0 (resolved future 1) 1582s [00:53:02.292] resolve() on list ... DONE 1582s [00:53:02.292] - '...' content: [n=0] 1582s [00:53:02.293] List of 1 1582s [00:53:02.293] $ ...: list() 1582s [00:53:02.293] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1582s [00:53:02.293] - attr(*, "where")=List of 1 1582s [00:53:02.293] ..$ ...: 1582s [00:53:02.293] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1582s [00:53:02.293] - attr(*, "resolved")= logi TRUE 1582s [00:53:02.293] - attr(*, "total_size")= num NA 1582s [00:53:02.297] - Getting '...' globals ... DONE 1582s [00:53:02.297] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1582s [00:53:02.298] List of 2 1582s [00:53:02.298] $ ...future.FUN:function (x, y = 2 * 1:5) 1582s [00:53:02.298] $ ... : list() 1582s [00:53:02.298] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1582s [00:53:02.298] - attr(*, "where")=List of 2 1582s [00:53:02.298] ..$ ...future.FUN: 1582s [00:53:02.298] ..$ ... : 1582s [00:53:02.298] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1582s [00:53:02.298] - attr(*, "resolved")= logi FALSE 1582s [00:53:02.298] - attr(*, "total_size")= num 4728 1582s [00:53:02.303] Packages to be attached in all futures: [n=0] 1582s [00:53:02.303] getGlobalsAndPackagesXApply() ... DONE 1582s [00:53:02.303] Number of futures (= number of chunks): 1 1582s [00:53:02.303] Launching 1 futures (chunks) ... 1582s [00:53:02.304] Chunk #1 of 1 ... 1582s [00:53:02.304] - Finding globals in 'X' for chunk #1 ... 1582s [00:53:02.304] getGlobalsAndPackages() ... 1582s [00:53:02.304] Searching for globals... 1582s [00:53:02.305] 1582s [00:53:02.305] Searching for globals ... DONE 1582s [00:53:02.305] - globals: [0] 1582s [00:53:02.305] getGlobalsAndPackages() ... DONE 1582s [00:53:02.305] + additional globals found: [n=0] 1582s [00:53:02.305] + additional namespaces needed: [n=0] 1582s [00:53:02.306] - Finding globals in 'X' for chunk #1 ... DONE 1582s [00:53:02.306] - seeds: 1582s [00:53:02.306] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1582s [00:53:02.306] getGlobalsAndPackages() ... 1582s [00:53:02.306] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1582s [00:53:02.307] Resolving globals: FALSE 1582s [00:53:02.307] Tweak future expression to call with '...' arguments ... 1582s [00:53:02.307] { 1582s [00:53:02.307] do.call(function(...) { 1582s [00:53:02.307] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1582s [00:53:02.307] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1582s [00:53:02.307] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1582s [00:53:02.307] on.exit(options(oopts), add = TRUE) 1582s [00:53:02.307] } 1582s [00:53:02.307] { 1582s [00:53:02.307] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1582s [00:53:02.307] ...future.X_jj <- ...future.elements_ii[[jj]] 1582s [00:53:02.307] ...future.FUN(...future.X_jj, ...) 1582s [00:53:02.307] }) 1582s [00:53:02.307] } 1582s [00:53:02.307] }, args = future.call.arguments) 1582s [00:53:02.307] } 1582s [00:53:02.308] Tweak future expression to call with '...' arguments ... DONE 1582s [00:53:02.308] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1582s [00:53:02.309] 1582s [00:53:02.309] getGlobalsAndPackages() ... DONE 1582s [00:53:02.309] run() for ‘Future’ ... 1582s [00:53:02.309] - state: ‘created’ 1582s [00:53:02.310] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1582s [00:53:02.314] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1582s [00:53:02.314] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1582s [00:53:02.314] - Field: ‘label’ 1582s [00:53:02.314] - Field: ‘local’ 1582s [00:53:02.315] - Field: ‘owner’ 1582s [00:53:02.315] - Field: ‘envir’ 1582s [00:53:02.315] - Field: ‘packages’ 1582s [00:53:02.315] - Field: ‘gc’ 1582s [00:53:02.315] - Field: ‘conditions’ 1582s [00:53:02.315] - Field: ‘expr’ 1582s [00:53:02.315] - Field: ‘uuid’ 1582s [00:53:02.316] - Field: ‘seed’ 1582s [00:53:02.316] - Field: ‘version’ 1582s [00:53:02.316] - Field: ‘result’ 1582s [00:53:02.316] - Field: ‘asynchronous’ 1582s [00:53:02.316] - Field: ‘calls’ 1582s [00:53:02.317] - Field: ‘globals’ 1582s [00:53:02.317] - Field: ‘stdout’ 1582s [00:53:02.317] - Field: ‘earlySignal’ 1582s [00:53:02.317] - Field: ‘lazy’ 1582s [00:53:02.318] - Field: ‘state’ 1582s [00:53:02.318] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1582s [00:53:02.318] - Launch lazy future ... 1582s [00:53:02.319] Packages needed by the future expression (n = 0): 1582s [00:53:02.319] Packages needed by future strategies (n = 0): 1582s [00:53:02.320] { 1582s [00:53:02.320] { 1582s [00:53:02.320] { 1582s [00:53:02.320] ...future.startTime <- base::Sys.time() 1582s [00:53:02.320] { 1582s [00:53:02.320] { 1582s [00:53:02.320] { 1582s [00:53:02.320] base::local({ 1582s [00:53:02.320] has_future <- base::requireNamespace("future", 1582s [00:53:02.320] quietly = TRUE) 1582s [00:53:02.320] if (has_future) { 1582s [00:53:02.320] ns <- base::getNamespace("future") 1582s [00:53:02.320] version <- ns[[".package"]][["version"]] 1582s [00:53:02.320] if (is.null(version)) 1582s [00:53:02.320] version <- utils::packageVersion("future") 1582s [00:53:02.320] } 1582s [00:53:02.320] else { 1582s [00:53:02.320] version <- NULL 1582s [00:53:02.320] } 1582s [00:53:02.320] if (!has_future || version < "1.8.0") { 1582s [00:53:02.320] info <- base::c(r_version = base::gsub("R version ", 1582s [00:53:02.320] "", base::R.version$version.string), 1582s [00:53:02.320] platform = base::sprintf("%s (%s-bit)", 1582s [00:53:02.320] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1582s [00:53:02.320] os = base::paste(base::Sys.info()[base::c("sysname", 1582s [00:53:02.320] "release", "version")], collapse = " "), 1582s [00:53:02.320] hostname = base::Sys.info()[["nodename"]]) 1582s [00:53:02.320] info <- base::sprintf("%s: %s", base::names(info), 1582s [00:53:02.320] info) 1582s [00:53:02.320] info <- base::paste(info, collapse = "; ") 1582s [00:53:02.320] if (!has_future) { 1582s [00:53:02.320] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1582s [00:53:02.320] info) 1582s [00:53:02.320] } 1582s [00:53:02.320] else { 1582s [00:53:02.320] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1582s [00:53:02.320] info, version) 1582s [00:53:02.320] } 1582s [00:53:02.320] base::stop(msg) 1582s [00:53:02.320] } 1582s [00:53:02.320] }) 1582s [00:53:02.320] } 1582s [00:53:02.320] options(future.plan = NULL) 1582s [00:53:02.320] Sys.unsetenv("R_FUTURE_PLAN") 1582s [00:53:02.320] future::plan("default", .cleanup = FALSE, .init = FALSE) 1582s [00:53:02.320] } 1582s [00:53:02.320] ...future.workdir <- getwd() 1582s [00:53:02.320] } 1582s [00:53:02.320] ...future.oldOptions <- base::as.list(base::.Options) 1582s [00:53:02.320] ...future.oldEnvVars <- base::Sys.getenv() 1582s [00:53:02.320] } 1582s [00:53:02.320] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1582s [00:53:02.320] future.globals.maxSize = NULL, future.globals.method = NULL, 1582s [00:53:02.320] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1582s [00:53:02.320] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1582s [00:53:02.320] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1582s [00:53:02.320] future.stdout.windows.reencode = NULL, width = 80L) 1582s [00:53:02.320] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1582s [00:53:02.320] base::names(...future.oldOptions)) 1582s [00:53:02.320] } 1582s [00:53:02.320] if (FALSE) { 1582s [00:53:02.320] } 1582s [00:53:02.320] else { 1582s [00:53:02.320] if (TRUE) { 1582s [00:53:02.320] ...future.stdout <- base::rawConnection(base::raw(0L), 1582s [00:53:02.320] open = "w") 1582s [00:53:02.320] } 1582s [00:53:02.320] else { 1582s [00:53:02.320] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1582s [00:53:02.320] windows = "NUL", "/dev/null"), open = "w") 1582s [00:53:02.320] } 1582s [00:53:02.320] base::sink(...future.stdout, type = "output", split = FALSE) 1582s [00:53:02.320] base::on.exit(if (!base::is.null(...future.stdout)) { 1582s [00:53:02.320] base::sink(type = "output", split = FALSE) 1582s [00:53:02.320] base::close(...future.stdout) 1582s [00:53:02.320] }, add = TRUE) 1582s [00:53:02.320] } 1582s [00:53:02.320] ...future.frame <- base::sys.nframe() 1582s [00:53:02.320] ...future.conditions <- base::list() 1582s [00:53:02.320] ...future.rng <- base::globalenv()$.Random.seed 1582s [00:53:02.320] if (FALSE) { 1582s [00:53:02.320] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1582s [00:53:02.320] "...future.value", "...future.globalenv.names", ".Random.seed") 1582s [00:53:02.320] } 1582s [00:53:02.320] ...future.result <- base::tryCatch({ 1582s [00:53:02.320] base::withCallingHandlers({ 1582s [00:53:02.320] ...future.value <- base::withVisible(base::local({ 1582s [00:53:02.320] do.call(function(...) { 1582s [00:53:02.320] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1582s [00:53:02.320] if (!identical(...future.globals.maxSize.org, 1582s [00:53:02.320] ...future.globals.maxSize)) { 1582s [00:53:02.320] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1582s [00:53:02.320] on.exit(options(oopts), add = TRUE) 1582s [00:53:02.320] } 1582s [00:53:02.320] { 1582s [00:53:02.320] lapply(seq_along(...future.elements_ii), 1582s [00:53:02.320] FUN = function(jj) { 1582s [00:53:02.320] ...future.X_jj <- ...future.elements_ii[[jj]] 1582s [00:53:02.320] ...future.FUN(...future.X_jj, ...) 1582s [00:53:02.320] }) 1582s [00:53:02.320] } 1582s [00:53:02.320] }, args = future.call.arguments) 1582s [00:53:02.320] })) 1582s [00:53:02.320] future::FutureResult(value = ...future.value$value, 1582s [00:53:02.320] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1582s [00:53:02.320] ...future.rng), globalenv = if (FALSE) 1582s [00:53:02.320] list(added = base::setdiff(base::names(base::.GlobalEnv), 1582s [00:53:02.320] ...future.globalenv.names)) 1582s [00:53:02.320] else NULL, started = ...future.startTime, version = "1.8") 1582s [00:53:02.320] }, condition = base::local({ 1582s [00:53:02.320] c <- base::c 1582s [00:53:02.320] inherits <- base::inherits 1582s [00:53:02.320] invokeRestart <- base::invokeRestart 1582s [00:53:02.320] length <- base::length 1582s [00:53:02.320] list <- base::list 1582s [00:53:02.320] seq.int <- base::seq.int 1582s [00:53:02.320] signalCondition <- base::signalCondition 1582s [00:53:02.320] sys.calls <- base::sys.calls 1582s [00:53:02.320] `[[` <- base::`[[` 1582s [00:53:02.320] `+` <- base::`+` 1582s [00:53:02.320] `<<-` <- base::`<<-` 1582s [00:53:02.320] sysCalls <- function(calls = sys.calls(), from = 1L) { 1582s [00:53:02.320] calls[seq.int(from = from + 12L, to = length(calls) - 1582s [00:53:02.320] 3L)] 1582s [00:53:02.320] } 1582s [00:53:02.320] function(cond) { 1582s [00:53:02.320] is_error <- inherits(cond, "error") 1582s [00:53:02.320] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1582s [00:53:02.320] NULL) 1582s [00:53:02.320] if (is_error) { 1582s [00:53:02.320] sessionInformation <- function() { 1582s [00:53:02.320] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1582s [00:53:02.320] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1582s [00:53:02.320] search = base::search(), system = base::Sys.info()) 1582s [00:53:02.320] } 1582s [00:53:02.320] ...future.conditions[[length(...future.conditions) + 1582s [00:53:02.320] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1582s [00:53:02.320] cond$call), session = sessionInformation(), 1582s [00:53:02.320] timestamp = base::Sys.time(), signaled = 0L) 1582s [00:53:02.320] signalCondition(cond) 1582s [00:53:02.320] } 1582s [00:53:02.320] else if (!ignore && TRUE && inherits(cond, c("condition", 1582s [00:53:02.320] "immediateCondition"))) { 1582s [00:53:02.320] signal <- TRUE && inherits(cond, "immediateCondition") 1582s [00:53:02.320] ...future.conditions[[length(...future.conditions) + 1582s [00:53:02.320] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1582s [00:53:02.320] if (TRUE && !signal) { 1582s [00:53:02.320] muffleCondition <- function (cond, pattern = "^muffle") 1582s [00:53:02.320] { 1582s [00:53:02.320] inherits <- base::inherits 1582s [00:53:02.320] invokeRestart <- base::invokeRestart 1582s [00:53:02.320] is.null <- base::is.null 1582s [00:53:02.320] muffled <- FALSE 1582s [00:53:02.320] if (inherits(cond, "message")) { 1582s [00:53:02.320] muffled <- grepl(pattern, "muffleMessage") 1582s [00:53:02.320] if (muffled) 1582s [00:53:02.320] invokeRestart("muffleMessage") 1582s [00:53:02.320] } 1582s [00:53:02.320] else if (inherits(cond, "warning")) { 1582s [00:53:02.320] muffled <- grepl(pattern, "muffleWarning") 1582s [00:53:02.320] if (muffled) 1582s [00:53:02.320] invokeRestart("muffleWarning") 1582s [00:53:02.320] } 1582s [00:53:02.320] else if (inherits(cond, "condition")) { 1582s [00:53:02.320] if (!is.null(pattern)) { 1582s [00:53:02.320] computeRestarts <- base::computeRestarts 1582s [00:53:02.320] grepl <- base::grepl 1582s [00:53:02.320] restarts <- computeRestarts(cond) 1582s [00:53:02.320] for (restart in restarts) { 1582s [00:53:02.320] name <- restart$name 1582s [00:53:02.320] if (is.null(name)) 1582s [00:53:02.320] next 1582s [00:53:02.320] if (!grepl(pattern, name)) 1582s [00:53:02.320] next 1582s [00:53:02.320] invokeRestart(restart) 1582s [00:53:02.320] muffled <- TRUE 1582s [00:53:02.320] break 1582s [00:53:02.320] } 1582s [00:53:02.320] } 1582s [00:53:02.320] } 1582s [00:53:02.320] invisible(muffled) 1582s [00:53:02.320] } 1582s [00:53:02.320] muffleCondition(cond, pattern = "^muffle") 1582s [00:53:02.320] } 1582s [00:53:02.320] } 1582s [00:53:02.320] else { 1582s [00:53:02.320] if (TRUE) { 1582s [00:53:02.320] muffleCondition <- function (cond, pattern = "^muffle") 1582s [00:53:02.320] { 1582s [00:53:02.320] inherits <- base::inherits 1582s [00:53:02.320] invokeRestart <- base::invokeRestart 1582s [00:53:02.320] is.null <- base::is.null 1582s [00:53:02.320] muffled <- FALSE 1582s [00:53:02.320] if (inherits(cond, "message")) { 1582s [00:53:02.320] muffled <- grepl(pattern, "muffleMessage") 1582s [00:53:02.320] if (muffled) 1582s [00:53:02.320] invokeRestart("muffleMessage") 1582s [00:53:02.320] } 1582s [00:53:02.320] else if (inherits(cond, "warning")) { 1582s [00:53:02.320] muffled <- grepl(pattern, "muffleWarning") 1582s [00:53:02.320] if (muffled) 1582s [00:53:02.320] invokeRestart("muffleWarning") 1582s [00:53:02.320] } 1582s [00:53:02.320] else if (inherits(cond, "condition")) { 1582s [00:53:02.320] if (!is.null(pattern)) { 1582s [00:53:02.320] computeRestarts <- base::computeRestarts 1582s [00:53:02.320] grepl <- base::grepl 1582s [00:53:02.320] restarts <- computeRestarts(cond) 1582s [00:53:02.320] for (restart in restarts) { 1582s [00:53:02.320] name <- restart$name 1582s [00:53:02.320] if (is.null(name)) 1582s [00:53:02.320] next 1582s [00:53:02.320] if (!grepl(pattern, name)) 1582s [00:53:02.320] next 1582s [00:53:02.320] invokeRestart(restart) 1582s [00:53:02.320] muffled <- TRUE 1582s [00:53:02.320] break 1582s [00:53:02.320] } 1582s [00:53:02.320] } 1582s [00:53:02.320] } 1582s [00:53:02.320] invisible(muffled) 1582s [00:53:02.320] } 1582s [00:53:02.320] muffleCondition(cond, pattern = "^muffle") 1582s [00:53:02.320] } 1582s [00:53:02.320] } 1582s [00:53:02.320] } 1582s [00:53:02.320] })) 1582s [00:53:02.320] }, error = function(ex) { 1582s [00:53:02.320] base::structure(base::list(value = NULL, visible = NULL, 1582s [00:53:02.320] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1582s [00:53:02.320] ...future.rng), started = ...future.startTime, 1582s [00:53:02.320] finished = Sys.time(), session_uuid = NA_character_, 1582s [00:53:02.320] version = "1.8"), class = "FutureResult") 1582s [00:53:02.320] }, finally = { 1582s [00:53:02.320] if (!identical(...future.workdir, getwd())) 1582s [00:53:02.320] setwd(...future.workdir) 1582s [00:53:02.320] { 1582s [00:53:02.320] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1582s [00:53:02.320] ...future.oldOptions$nwarnings <- NULL 1582s [00:53:02.320] } 1582s [00:53:02.320] base::options(...future.oldOptions) 1582s [00:53:02.320] if (.Platform$OS.type == "windows") { 1582s [00:53:02.320] old_names <- names(...future.oldEnvVars) 1582s [00:53:02.320] envs <- base::Sys.getenv() 1582s [00:53:02.320] names <- names(envs) 1582s [00:53:02.320] common <- intersect(names, old_names) 1582s [00:53:02.320] added <- setdiff(names, old_names) 1582s [00:53:02.320] removed <- setdiff(old_names, names) 1582s [00:53:02.320] changed <- common[...future.oldEnvVars[common] != 1582s [00:53:02.320] envs[common]] 1582s [00:53:02.320] NAMES <- toupper(changed) 1582s [00:53:02.320] args <- list() 1582s [00:53:02.320] for (kk in seq_along(NAMES)) { 1582s [00:53:02.320] name <- changed[[kk]] 1582s [00:53:02.320] NAME <- NAMES[[kk]] 1582s [00:53:02.320] if (name != NAME && is.element(NAME, old_names)) 1582s [00:53:02.320] next 1582s [00:53:02.320] args[[name]] <- ...future.oldEnvVars[[name]] 1582s [00:53:02.320] } 1582s [00:53:02.320] NAMES <- toupper(added) 1582s [00:53:02.320] for (kk in seq_along(NAMES)) { 1582s [00:53:02.320] name <- added[[kk]] 1582s [00:53:02.320] NAME <- NAMES[[kk]] 1582s [00:53:02.320] if (name != NAME && is.element(NAME, old_names)) 1582s [00:53:02.320] next 1582s [00:53:02.320] args[[name]] <- "" 1582s [00:53:02.320] } 1582s [00:53:02.320] NAMES <- toupper(removed) 1582s [00:53:02.320] for (kk in seq_along(NAMES)) { 1582s [00:53:02.320] name <- removed[[kk]] 1582s [00:53:02.320] NAME <- NAMES[[kk]] 1582s [00:53:02.320] if (name != NAME && is.element(NAME, old_names)) 1582s [00:53:02.320] next 1582s [00:53:02.320] args[[name]] <- ...future.oldEnvVars[[name]] 1582s [00:53:02.320] } 1582s [00:53:02.320] if (length(args) > 0) 1582s [00:53:02.320] base::do.call(base::Sys.setenv, args = args) 1582s [00:53:02.320] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1582s [00:53:02.320] } 1582s [00:53:02.320] else { 1582s [00:53:02.320] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1582s [00:53:02.320] } 1582s [00:53:02.320] { 1582s [00:53:02.320] if (base::length(...future.futureOptionsAdded) > 1582s [00:53:02.320] 0L) { 1582s [00:53:02.320] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1582s [00:53:02.320] base::names(opts) <- ...future.futureOptionsAdded 1582s [00:53:02.320] base::options(opts) 1582s [00:53:02.320] } 1582s [00:53:02.320] { 1582s [00:53:02.320] { 1582s [00:53:02.320] NULL 1582s [00:53:02.320] RNGkind("Mersenne-Twister") 1582s [00:53:02.320] base::rm(list = ".Random.seed", envir = base::globalenv(), 1582s [00:53:02.320] inherits = FALSE) 1582s [00:53:02.320] } 1582s [00:53:02.320] options(future.plan = NULL) 1582s [00:53:02.320] if (is.na(NA_character_)) 1582s [00:53:02.320] Sys.unsetenv("R_FUTURE_PLAN") 1582s [00:53:02.320] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1582s [00:53:02.320] future::plan(list(function (..., workers = availableCores(), 1582s [00:53:02.320] lazy = FALSE, rscript_libs = .libPaths(), 1582s [00:53:02.320] envir = parent.frame()) 1582s [00:53:02.320] { 1582s [00:53:02.320] if (is.function(workers)) 1582s [00:53:02.320] workers <- workers() 1582s [00:53:02.320] workers <- structure(as.integer(workers), 1582s [00:53:02.320] class = class(workers)) 1582s [00:53:02.320] stop_if_not(length(workers) == 1, is.finite(workers), 1582s [00:53:02.320] workers >= 1) 1582s [00:53:02.320] if (workers == 1L && !inherits(workers, "AsIs")) { 1582s [00:53:02.320] return(sequential(..., lazy = TRUE, envir = envir)) 1582s [00:53:02.320] } 1582s [00:53:02.320] future <- MultisessionFuture(..., workers = workers, 1582s [00:53:02.320] lazy = lazy, rscript_libs = rscript_libs, 1582s [00:53:02.320] envir = envir) 1582s [00:53:02.320] if (!future$lazy) 1582s [00:53:02.320] future <- run(future) 1582s [00:53:02.320] invisible(future) 1582s [00:53:02.320] }), .cleanup = FALSE, .init = FALSE) 1582s [00:53:02.320] } 1582s [00:53:02.320] } 1582s [00:53:02.320] } 1582s [00:53:02.320] }) 1582s [00:53:02.320] if (TRUE) { 1582s [00:53:02.320] base::sink(type = "output", split = FALSE) 1582s [00:53:02.320] if (TRUE) { 1582s [00:53:02.320] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1582s [00:53:02.320] } 1582s [00:53:02.320] else { 1582s [00:53:02.320] ...future.result["stdout"] <- base::list(NULL) 1582s [00:53:02.320] } 1582s [00:53:02.320] base::close(...future.stdout) 1582s [00:53:02.320] ...future.stdout <- NULL 1582s [00:53:02.320] } 1582s [00:53:02.320] ...future.result$conditions <- ...future.conditions 1582s [00:53:02.320] ...future.result$finished <- base::Sys.time() 1582s [00:53:02.320] ...future.result 1582s [00:53:02.320] } 1582s [00:53:02.325] assign_globals() ... 1582s [00:53:02.325] List of 5 1582s [00:53:02.325] $ ...future.FUN :function (x, y = 2 * 1:5) 1582s [00:53:02.325] $ future.call.arguments : list() 1582s [00:53:02.325] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1582s [00:53:02.325] $ ...future.elements_ii :List of 6 1582s [00:53:02.325] ..$ a1: int 1 1582s [00:53:02.325] ..$ a2: int 2 1582s [00:53:02.325] ..$ b1: int 2 1582s [00:53:02.325] ..$ b2: int 3 1582s [00:53:02.325] ..$ c1: int 3 1582s [00:53:02.325] ..$ c2: int 4 1582s [00:53:02.325] $ ...future.seeds_ii : NULL 1582s [00:53:02.325] $ ...future.globals.maxSize: NULL 1582s [00:53:02.325] - attr(*, "where")=List of 5 1582s [00:53:02.325] ..$ ...future.FUN : 1582s [00:53:02.325] ..$ future.call.arguments : 1582s [00:53:02.325] ..$ ...future.elements_ii : 1582s [00:53:02.325] ..$ ...future.seeds_ii : 1582s [00:53:02.325] ..$ ...future.globals.maxSize: 1582s [00:53:02.325] - attr(*, "resolved")= logi FALSE 1582s [00:53:02.325] - attr(*, "total_size")= num 4728 1582s [00:53:02.325] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1582s [00:53:02.325] - attr(*, "already-done")= logi TRUE 1582s [00:53:02.342] - reassign environment for ‘...future.FUN’ 1582s [00:53:02.343] - copied ‘...future.FUN’ to environment 1582s [00:53:02.343] - copied ‘future.call.arguments’ to environment 1582s [00:53:02.343] - copied ‘...future.elements_ii’ to environment 1582s [00:53:02.343] - copied ‘...future.seeds_ii’ to environment 1582s [00:53:02.344] - copied ‘...future.globals.maxSize’ to environment 1582s [00:53:02.344] assign_globals() ... done 1582s [00:53:02.344] plan(): Setting new future strategy stack: 1582s [00:53:02.344] List of future strategies: 1582s [00:53:02.344] 1. sequential: 1582s [00:53:02.344] - args: function (..., envir = parent.frame()) 1582s [00:53:02.344] - tweaked: FALSE 1582s [00:53:02.344] - call: NULL 1582s [00:53:02.345] plan(): nbrOfWorkers() = 1 1582s [00:53:02.346] plan(): Setting new future strategy stack: 1582s [00:53:02.346] List of future strategies: 1582s [00:53:02.346] 1. multisession: 1582s [00:53:02.346] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1582s [00:53:02.346] - tweaked: FALSE 1582s [00:53:02.346] - call: plan(strategy) 1582s [00:53:02.350] plan(): nbrOfWorkers() = 1 1582s [00:53:02.351] SequentialFuture started (and completed) 1582s [00:53:02.351] - Launch lazy future ... done 1582s [00:53:02.351] run() for ‘SequentialFuture’ ... done 1582s [00:53:02.351] Created future: 1582s [00:53:02.351] SequentialFuture: 1582s [00:53:02.351] Label: ‘future_sapply-1’ 1582s [00:53:02.351] Expression: 1582s [00:53:02.351] { 1582s [00:53:02.351] do.call(function(...) { 1582s [00:53:02.351] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1582s [00:53:02.351] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1582s [00:53:02.351] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1582s [00:53:02.351] on.exit(options(oopts), add = TRUE) 1582s [00:53:02.351] } 1582s [00:53:02.351] { 1582s [00:53:02.351] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1582s [00:53:02.351] ...future.X_jj <- ...future.elements_ii[[jj]] 1582s [00:53:02.351] ...future.FUN(...future.X_jj, ...) 1582s [00:53:02.351] }) 1582s [00:53:02.351] } 1582s [00:53:02.351] }, args = future.call.arguments) 1582s [00:53:02.351] } 1582s [00:53:02.351] Lazy evaluation: FALSE 1582s [00:53:02.351] Asynchronous evaluation: FALSE 1582s [00:53:02.351] Local evaluation: TRUE 1582s [00:53:02.351] Environment: R_GlobalEnv 1582s [00:53:02.351] Capture standard output: TRUE 1582s [00:53:02.351] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1582s [00:53:02.351] Globals: 5 objects totaling 4.95 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1582s [00:53:02.351] Packages: 1582s [00:53:02.351] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1582s [00:53:02.351] Resolved: TRUE 1582s [00:53:02.351] Value: 2.02 KiB of class ‘list’ 1582s [00:53:02.351] Early signaling: FALSE 1582s [00:53:02.351] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1582s [00:53:02.351] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1582s [00:53:02.354] Chunk #1 of 1 ... DONE 1582s [00:53:02.354] Launching 1 futures (chunks) ... DONE 1582s [00:53:02.354] Resolving 1 futures (chunks) ... 1582s [00:53:02.354] resolve() on list ... 1582s [00:53:02.355] recursive: 0 1582s [00:53:02.355] length: 1 1582s [00:53:02.355] 1582s [00:53:02.356] resolved() for ‘SequentialFuture’ ... 1582s [00:53:02.356] - state: ‘finished’ 1582s [00:53:02.356] - run: TRUE 1582s [00:53:02.356] - result: ‘FutureResult’ 1582s [00:53:02.356] resolved() for ‘SequentialFuture’ ... done 1582s [00:53:02.357] Future #1 1582s [00:53:02.357] signalConditionsASAP(SequentialFuture, pos=1) ... 1582s [00:53:02.357] - nx: 1 1582s [00:53:02.357] - relay: TRUE 1582s [00:53:02.358] - stdout: TRUE 1582s [00:53:02.358] - signal: TRUE 1582s [00:53:02.358] - resignal: FALSE 1582s [00:53:02.358] - force: TRUE 1582s [00:53:02.358] - relayed: [n=1] FALSE 1582s [00:53:02.359] - queued futures: [n=1] FALSE 1582s [00:53:02.359] - until=1 1582s [00:53:02.359] - relaying element #1 1582s [00:53:02.359] - relayed: [n=1] TRUE 1582s [00:53:02.360] - queued futures: [n=1] TRUE 1582s [00:53:02.360] signalConditionsASAP(SequentialFuture, pos=1) ... done 1582s [00:53:02.360] length: 0 (resolved future 1) 1582s [00:53:02.360] Relaying remaining futures 1582s [00:53:02.361] signalConditionsASAP(NULL, pos=0) ... 1582s [00:53:02.361] - nx: 1 1582s [00:53:02.362] - relay: TRUE 1582s [00:53:02.363] - stdout: TRUE 1582s [00:53:02.363] - signal: TRUE 1582s [00:53:02.363] - resignal: FALSE 1582s [00:53:02.363] - force: TRUE 1582s [00:53:02.363] - relayed: [n=1] TRUE 1582s [00:53:02.363] - queued futures: [n=1] TRUE 1582s - flush all 1582s [00:53:02.364] - relayed: [n=1] TRUE 1582s [00:53:02.364] - queued futures: [n=1] TRUE 1582s [00:53:02.364] signalConditionsASAP(NULL, pos=0) ... done 1582s [00:53:02.364] resolve() on list ... DONE 1582s [00:53:02.364] - Number of value chunks collected: 1 1582s [00:53:02.364] Resolving 1 futures (chunks) ... DONE 1582s [00:53:02.365] Reducing values from 1 chunks ... 1582s [00:53:02.365] - Number of values collected after concatenation: 6 1582s [00:53:02.365] - Number of values expected: 6 1582s [00:53:02.365] Reducing values from 1 chunks ... DONE 1582s [00:53:02.365] future_lapply() ... DONE 1582s List of 2 1582s $ y0: num [1:3, 1:5, 1:6] 2 2 2 4 4 4 6 6 6 8 ... 1582s ..- attr(*, "dimnames")=List of 3 1582s .. ..$ : NULL 1582s .. ..$ : NULL 1582s .. ..$ : chr [1:6] "a1" "a2" "b1" "b2" ... 1582s $ y1: num [1:3, 1:5, 1:6] 2 2 2 4 4 4 6 6 6 8 ... 1582s ..- attr(*, "dimnames")=List of 3 1582s .. ..$ : NULL 1582s .. ..$ : NULL 1582s .. ..$ : chr [1:6] "a1" "a2" "b1" "b2" ... 1582s [00:53:02.375] future_lapply() ... 1582s [00:53:02.380] Number of chunks: 1 1582s [00:53:02.380] getGlobalsAndPackagesXApply() ... 1582s [00:53:02.380] - future.globals: TRUE 1582s [00:53:02.381] getGlobalsAndPackages() ... 1582s [00:53:02.381] Searching for globals... 1582s [00:53:02.382] - globals found: [1] ‘FUN’ 1582s [00:53:02.382] Searching for globals ... DONE 1582s [00:53:02.383] Resolving globals: FALSE 1582s [00:53:02.383] The total size of the 1 globals is 848 bytes (848 bytes) 1582s [00:53:02.384] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1582s [00:53:02.384] - globals: [1] ‘FUN’ 1582s [00:53:02.384] 1582s [00:53:02.384] getGlobalsAndPackages() ... DONE 1582s [00:53:02.384] - globals found/used: [n=1] ‘FUN’ 1582s [00:53:02.385] - needed namespaces: [n=0] 1582s [00:53:02.385] Finding globals ... DONE 1582s [00:53:02.385] - use_args: TRUE 1582s [00:53:02.385] - Getting '...' globals ... 1582s [00:53:02.386] resolve() on list ... 1582s [00:53:02.386] recursive: 0 1582s [00:53:02.386] length: 1 1582s [00:53:02.386] elements: ‘...’ 1582s [00:53:02.386] length: 0 (resolved future 1) 1582s [00:53:02.386] resolve() on list ... DONE 1582s [00:53:02.386] - '...' content: [n=0] 1582s [00:53:02.387] List of 1 1582s [00:53:02.387] $ ...: list() 1582s [00:53:02.387] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1582s [00:53:02.387] - attr(*, "where")=List of 1 1582s [00:53:02.387] ..$ ...: 1582s [00:53:02.387] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1582s [00:53:02.387] - attr(*, "resolved")= logi TRUE 1582s [00:53:02.387] - attr(*, "total_size")= num NA 1582s [00:53:02.390] - Getting '...' globals ... DONE 1582s [00:53:02.391] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1582s [00:53:02.391] List of 2 1582s [00:53:02.391] $ ...future.FUN:function (x) 1582s [00:53:02.391] $ ... : list() 1582s [00:53:02.391] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1582s [00:53:02.391] - attr(*, "where")=List of 2 1582s [00:53:02.391] ..$ ...future.FUN: 1582s [00:53:02.391] ..$ ... : 1582s [00:53:02.391] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1582s [00:53:02.391] - attr(*, "resolved")= logi FALSE 1582s [00:53:02.391] - attr(*, "total_size")= num 848 1582s [00:53:02.395] Packages to be attached in all futures: [n=0] 1582s [00:53:02.395] getGlobalsAndPackagesXApply() ... DONE 1582s [00:53:02.395] Number of futures (= number of chunks): 1 1582s [00:53:02.396] Launching 1 futures (chunks) ... 1582s [00:53:02.396] Chunk #1 of 1 ... 1582s [00:53:02.396] - Finding globals in 'X' for chunk #1 ... 1582s [00:53:02.396] getGlobalsAndPackages() ... 1582s [00:53:02.396] Searching for globals... 1582s [00:53:02.397] 1582s [00:53:02.397] Searching for globals ... DONE 1582s [00:53:02.397] - globals: [0] 1582s [00:53:02.397] getGlobalsAndPackages() ... DONE 1582s [00:53:02.397] + additional globals found: [n=0] 1582s [00:53:02.397] + additional namespaces needed: [n=0] 1582s [00:53:02.397] - Finding globals in 'X' for chunk #1 ... DONE 1582s [00:53:02.398] - seeds: 1582s [00:53:02.398] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1582s [00:53:02.398] getGlobalsAndPackages() ... 1582s [00:53:02.398] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1582s [00:53:02.398] Resolving globals: FALSE 1582s [00:53:02.398] Tweak future expression to call with '...' arguments ... 1582s [00:53:02.399] { 1582s [00:53:02.399] do.call(function(...) { 1582s [00:53:02.399] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1582s [00:53:02.399] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1582s [00:53:02.399] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1582s [00:53:02.399] on.exit(options(oopts), add = TRUE) 1582s [00:53:02.399] } 1582s [00:53:02.399] { 1582s [00:53:02.399] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1582s [00:53:02.399] ...future.X_jj <- ...future.elements_ii[[jj]] 1582s [00:53:02.399] ...future.FUN(...future.X_jj, ...) 1582s [00:53:02.399] }) 1582s [00:53:02.399] } 1582s [00:53:02.399] }, args = future.call.arguments) 1582s [00:53:02.399] } 1582s [00:53:02.399] Tweak future expression to call with '...' arguments ... DONE 1582s [00:53:02.400] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1582s [00:53:02.400] 1582s [00:53:02.400] getGlobalsAndPackages() ... DONE 1582s [00:53:02.401] run() for ‘Future’ ... 1582s [00:53:02.401] - state: ‘created’ 1582s [00:53:02.402] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1582s [00:53:02.405] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1582s [00:53:02.405] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1582s [00:53:02.406] - Field: ‘label’ 1582s [00:53:02.406] - Field: ‘local’ 1582s [00:53:02.406] - Field: ‘owner’ 1582s [00:53:02.406] - Field: ‘envir’ 1582s [00:53:02.407] - Field: ‘packages’ 1582s [00:53:02.407] - Field: ‘gc’ 1582s [00:53:02.407] - Field: ‘conditions’ 1582s [00:53:02.407] - Field: ‘expr’ 1582s [00:53:02.407] - Field: ‘uuid’ 1582s [00:53:02.407] - Field: ‘seed’ 1582s [00:53:02.407] - Field: ‘version’ 1582s [00:53:02.408] - Field: ‘result’ 1582s [00:53:02.408] - Field: ‘asynchronous’ 1582s [00:53:02.408] - Field: ‘calls’ 1582s [00:53:02.408] - Field: ‘globals’ 1582s [00:53:02.408] - Field: ‘stdout’ 1582s [00:53:02.409] - Field: ‘earlySignal’ 1582s [00:53:02.409] - Field: ‘lazy’ 1582s [00:53:02.409] - Field: ‘state’ 1582s [00:53:02.409] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1582s [00:53:02.409] - Launch lazy future ... 1582s [00:53:02.410] Packages needed by the future expression (n = 0): 1582s [00:53:02.410] Packages needed by future strategies (n = 0): 1582s [00:53:02.410] { 1582s [00:53:02.410] { 1582s [00:53:02.410] { 1582s [00:53:02.410] ...future.startTime <- base::Sys.time() 1582s [00:53:02.410] { 1582s [00:53:02.410] { 1582s [00:53:02.410] { 1582s [00:53:02.410] base::local({ 1582s [00:53:02.410] has_future <- base::requireNamespace("future", 1582s [00:53:02.410] quietly = TRUE) 1582s [00:53:02.410] if (has_future) { 1582s [00:53:02.410] ns <- base::getNamespace("future") 1582s [00:53:02.410] version <- ns[[".package"]][["version"]] 1582s [00:53:02.410] if (is.null(version)) 1582s [00:53:02.410] version <- utils::packageVersion("future") 1582s [00:53:02.410] } 1582s [00:53:02.410] else { 1582s [00:53:02.410] version <- NULL 1582s [00:53:02.410] } 1582s [00:53:02.410] if (!has_future || version < "1.8.0") { 1582s [00:53:02.410] info <- base::c(r_version = base::gsub("R version ", 1582s [00:53:02.410] "", base::R.version$version.string), 1582s [00:53:02.410] platform = base::sprintf("%s (%s-bit)", 1582s [00:53:02.410] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1582s [00:53:02.410] os = base::paste(base::Sys.info()[base::c("sysname", 1582s [00:53:02.410] "release", "version")], collapse = " "), 1582s [00:53:02.410] hostname = base::Sys.info()[["nodename"]]) 1582s [00:53:02.410] info <- base::sprintf("%s: %s", base::names(info), 1582s [00:53:02.410] info) 1582s [00:53:02.410] info <- base::paste(info, collapse = "; ") 1582s [00:53:02.410] if (!has_future) { 1582s [00:53:02.410] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1582s [00:53:02.410] info) 1582s [00:53:02.410] } 1582s [00:53:02.410] else { 1582s [00:53:02.410] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1582s [00:53:02.410] info, version) 1582s [00:53:02.410] } 1582s [00:53:02.410] base::stop(msg) 1582s [00:53:02.410] } 1582s [00:53:02.410] }) 1582s [00:53:02.410] } 1582s [00:53:02.410] options(future.plan = NULL) 1582s [00:53:02.410] Sys.unsetenv("R_FUTURE_PLAN") 1582s [00:53:02.410] future::plan("default", .cleanup = FALSE, .init = FALSE) 1582s [00:53:02.410] } 1582s [00:53:02.410] ...future.workdir <- getwd() 1582s [00:53:02.410] } 1582s [00:53:02.410] ...future.oldOptions <- base::as.list(base::.Options) 1582s [00:53:02.410] ...future.oldEnvVars <- base::Sys.getenv() 1582s [00:53:02.410] } 1582s [00:53:02.410] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1582s [00:53:02.410] future.globals.maxSize = NULL, future.globals.method = NULL, 1582s [00:53:02.410] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1582s [00:53:02.410] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1582s [00:53:02.410] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1582s [00:53:02.410] future.stdout.windows.reencode = NULL, width = 80L) 1582s [00:53:02.410] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1582s [00:53:02.410] base::names(...future.oldOptions)) 1582s [00:53:02.410] } 1582s [00:53:02.410] if (FALSE) { 1582s [00:53:02.410] } 1582s [00:53:02.410] else { 1582s [00:53:02.410] if (TRUE) { 1582s [00:53:02.410] ...future.stdout <- base::rawConnection(base::raw(0L), 1582s [00:53:02.410] open = "w") 1582s [00:53:02.410] } 1582s [00:53:02.410] else { 1582s [00:53:02.410] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1582s [00:53:02.410] windows = "NUL", "/dev/null"), open = "w") 1582s [00:53:02.410] } 1582s [00:53:02.410] base::sink(...future.stdout, type = "output", split = FALSE) 1582s [00:53:02.410] base::on.exit(if (!base::is.null(...future.stdout)) { 1582s [00:53:02.410] base::sink(type = "output", split = FALSE) 1582s [00:53:02.410] base::close(...future.stdout) 1582s [00:53:02.410] }, add = TRUE) 1582s [00:53:02.410] } 1582s [00:53:02.410] ...future.frame <- base::sys.nframe() 1582s [00:53:02.410] ...future.conditions <- base::list() 1582s [00:53:02.410] ...future.rng <- base::globalenv()$.Random.seed 1582s [00:53:02.410] if (FALSE) { 1582s [00:53:02.410] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1582s [00:53:02.410] "...future.value", "...future.globalenv.names", ".Random.seed") 1582s [00:53:02.410] } 1582s [00:53:02.410] ...future.result <- base::tryCatch({ 1582s [00:53:02.410] base::withCallingHandlers({ 1582s [00:53:02.410] ...future.value <- base::withVisible(base::local({ 1582s [00:53:02.410] do.call(function(...) { 1582s [00:53:02.410] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1582s [00:53:02.410] if (!identical(...future.globals.maxSize.org, 1582s [00:53:02.410] ...future.globals.maxSize)) { 1582s [00:53:02.410] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1582s [00:53:02.410] on.exit(options(oopts), add = TRUE) 1582s [00:53:02.410] } 1582s [00:53:02.410] { 1582s [00:53:02.410] lapply(seq_along(...future.elements_ii), 1582s [00:53:02.410] FUN = function(jj) { 1582s [00:53:02.410] ...future.X_jj <- ...future.elements_ii[[jj]] 1582s [00:53:02.410] ...future.FUN(...future.X_jj, ...) 1582s [00:53:02.410] }) 1582s [00:53:02.410] } 1582s [00:53:02.410] }, args = future.call.arguments) 1582s [00:53:02.410] })) 1582s [00:53:02.410] future::FutureResult(value = ...future.value$value, 1582s [00:53:02.410] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1582s [00:53:02.410] ...future.rng), globalenv = if (FALSE) 1582s [00:53:02.410] list(added = base::setdiff(base::names(base::.GlobalEnv), 1582s [00:53:02.410] ...future.globalenv.names)) 1582s [00:53:02.410] else NULL, started = ...future.startTime, version = "1.8") 1582s [00:53:02.410] }, condition = base::local({ 1582s [00:53:02.410] c <- base::c 1582s [00:53:02.410] inherits <- base::inherits 1582s [00:53:02.410] invokeRestart <- base::invokeRestart 1582s [00:53:02.410] length <- base::length 1582s [00:53:02.410] list <- base::list 1582s [00:53:02.410] seq.int <- base::seq.int 1582s [00:53:02.410] signalCondition <- base::signalCondition 1582s [00:53:02.410] sys.calls <- base::sys.calls 1582s [00:53:02.410] `[[` <- base::`[[` 1582s [00:53:02.410] `+` <- base::`+` 1582s [00:53:02.410] `<<-` <- base::`<<-` 1582s [00:53:02.410] sysCalls <- function(calls = sys.calls(), from = 1L) { 1582s [00:53:02.410] calls[seq.int(from = from + 12L, to = length(calls) - 1582s [00:53:02.410] 3L)] 1582s [00:53:02.410] } 1582s [00:53:02.410] function(cond) { 1582s [00:53:02.410] is_error <- inherits(cond, "error") 1582s [00:53:02.410] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1582s [00:53:02.410] NULL) 1582s [00:53:02.410] if (is_error) { 1582s [00:53:02.410] sessionInformation <- function() { 1582s [00:53:02.410] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1582s [00:53:02.410] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1582s [00:53:02.410] search = base::search(), system = base::Sys.info()) 1582s [00:53:02.410] } 1582s [00:53:02.410] ...future.conditions[[length(...future.conditions) + 1582s [00:53:02.410] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1582s [00:53:02.410] cond$call), session = sessionInformation(), 1582s [00:53:02.410] timestamp = base::Sys.time(), signaled = 0L) 1582s [00:53:02.410] signalCondition(cond) 1582s [00:53:02.410] } 1582s [00:53:02.410] else if (!ignore && TRUE && inherits(cond, c("condition", 1582s [00:53:02.410] "immediateCondition"))) { 1582s [00:53:02.410] signal <- TRUE && inherits(cond, "immediateCondition") 1582s [00:53:02.410] ...future.conditions[[length(...future.conditions) + 1582s [00:53:02.410] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1582s [00:53:02.410] if (TRUE && !signal) { 1582s [00:53:02.410] muffleCondition <- function (cond, pattern = "^muffle") 1582s [00:53:02.410] { 1582s [00:53:02.410] inherits <- base::inherits 1582s [00:53:02.410] invokeRestart <- base::invokeRestart 1582s [00:53:02.410] is.null <- base::is.null 1582s [00:53:02.410] muffled <- FALSE 1582s [00:53:02.410] if (inherits(cond, "message")) { 1582s [00:53:02.410] muffled <- grepl(pattern, "muffleMessage") 1582s [00:53:02.410] if (muffled) 1582s [00:53:02.410] invokeRestart("muffleMessage") 1582s [00:53:02.410] } 1582s [00:53:02.410] else if (inherits(cond, "warning")) { 1582s [00:53:02.410] muffled <- grepl(pattern, "muffleWarning") 1582s [00:53:02.410] if (muffled) 1582s [00:53:02.410] invokeRestart("muffleWarning") 1582s [00:53:02.410] } 1582s [00:53:02.410] else if (inherits(cond, "condition")) { 1582s [00:53:02.410] if (!is.null(pattern)) { 1582s [00:53:02.410] computeRestarts <- base::computeRestarts 1582s [00:53:02.410] grepl <- base::grepl 1582s [00:53:02.410] restarts <- computeRestarts(cond) 1582s [00:53:02.410] for (restart in restarts) { 1582s [00:53:02.410] name <- restart$name 1582s [00:53:02.410] if (is.null(name)) 1582s [00:53:02.410] next 1582s [00:53:02.410] if (!grepl(pattern, name)) 1582s [00:53:02.410] next 1582s [00:53:02.410] invokeRestart(restart) 1582s [00:53:02.410] muffled <- TRUE 1582s [00:53:02.410] break 1582s [00:53:02.410] } 1582s [00:53:02.410] } 1582s [00:53:02.410] } 1582s [00:53:02.410] invisible(muffled) 1582s [00:53:02.410] } 1582s [00:53:02.410] muffleCondition(cond, pattern = "^muffle") 1582s [00:53:02.410] } 1582s [00:53:02.410] } 1582s [00:53:02.410] else { 1582s [00:53:02.410] if (TRUE) { 1582s [00:53:02.410] muffleCondition <- function (cond, pattern = "^muffle") 1582s [00:53:02.410] { 1582s [00:53:02.410] inherits <- base::inherits 1582s [00:53:02.410] invokeRestart <- base::invokeRestart 1582s [00:53:02.410] is.null <- base::is.null 1582s [00:53:02.410] muffled <- FALSE 1582s [00:53:02.410] if (inherits(cond, "message")) { 1582s [00:53:02.410] muffled <- grepl(pattern, "muffleMessage") 1582s [00:53:02.410] if (muffled) 1582s [00:53:02.410] invokeRestart("muffleMessage") 1582s [00:53:02.410] } 1582s [00:53:02.410] else if (inherits(cond, "warning")) { 1582s [00:53:02.410] muffled <- grepl(pattern, "muffleWarning") 1582s [00:53:02.410] if (muffled) 1582s [00:53:02.410] invokeRestart("muffleWarning") 1582s [00:53:02.410] } 1582s [00:53:02.410] else if (inherits(cond, "condition")) { 1582s [00:53:02.410] if (!is.null(pattern)) { 1582s [00:53:02.410] computeRestarts <- base::computeRestarts 1582s [00:53:02.410] grepl <- base::grepl 1582s [00:53:02.410] restarts <- computeRestarts(cond) 1582s [00:53:02.410] for (restart in restarts) { 1582s [00:53:02.410] name <- restart$name 1582s [00:53:02.410] if (is.null(name)) 1582s [00:53:02.410] next 1582s [00:53:02.410] if (!grepl(pattern, name)) 1582s [00:53:02.410] next 1582s [00:53:02.410] invokeRestart(restart) 1582s [00:53:02.410] muffled <- TRUE 1582s [00:53:02.410] break 1582s [00:53:02.410] } 1582s [00:53:02.410] } 1582s [00:53:02.410] } 1582s [00:53:02.410] invisible(muffled) 1582s [00:53:02.410] } 1582s [00:53:02.410] muffleCondition(cond, pattern = "^muffle") 1582s [00:53:02.410] } 1582s [00:53:02.410] } 1582s [00:53:02.410] } 1582s [00:53:02.410] })) 1582s [00:53:02.410] }, error = function(ex) { 1582s [00:53:02.410] base::structure(base::list(value = NULL, visible = NULL, 1582s [00:53:02.410] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1582s [00:53:02.410] ...future.rng), started = ...future.startTime, 1582s [00:53:02.410] finished = Sys.time(), session_uuid = NA_character_, 1582s [00:53:02.410] version = "1.8"), class = "FutureResult") 1582s [00:53:02.410] }, finally = { 1582s [00:53:02.410] if (!identical(...future.workdir, getwd())) 1582s [00:53:02.410] setwd(...future.workdir) 1582s [00:53:02.410] { 1582s [00:53:02.410] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1582s [00:53:02.410] ...future.oldOptions$nwarnings <- NULL 1582s [00:53:02.410] } 1582s [00:53:02.410] base::options(...future.oldOptions) 1582s [00:53:02.410] if (.Platform$OS.type == "windows") { 1582s [00:53:02.410] old_names <- names(...future.oldEnvVars) 1582s [00:53:02.410] envs <- base::Sys.getenv() 1582s [00:53:02.410] names <- names(envs) 1582s [00:53:02.410] common <- intersect(names, old_names) 1582s [00:53:02.410] added <- setdiff(names, old_names) 1582s [00:53:02.410] removed <- setdiff(old_names, names) 1582s [00:53:02.410] changed <- common[...future.oldEnvVars[common] != 1582s [00:53:02.410] envs[common]] 1582s [00:53:02.410] NAMES <- toupper(changed) 1582s [00:53:02.410] args <- list() 1582s [00:53:02.410] for (kk in seq_along(NAMES)) { 1582s [00:53:02.410] name <- changed[[kk]] 1582s [00:53:02.410] NAME <- NAMES[[kk]] 1582s [00:53:02.410] if (name != NAME && is.element(NAME, old_names)) 1582s [00:53:02.410] next 1582s [00:53:02.410] args[[name]] <- ...future.oldEnvVars[[name]] 1582s [00:53:02.410] } 1582s [00:53:02.410] NAMES <- toupper(added) 1582s [00:53:02.410] for (kk in seq_along(NAMES)) { 1582s [00:53:02.410] name <- added[[kk]] 1582s [00:53:02.410] NAME <- NAMES[[kk]] 1582s [00:53:02.410] if (name != NAME && is.element(NAME, old_names)) 1582s [00:53:02.410] next 1582s [00:53:02.410] args[[name]] <- "" 1582s [00:53:02.410] } 1582s [00:53:02.410] NAMES <- toupper(removed) 1582s [00:53:02.410] for (kk in seq_along(NAMES)) { 1582s [00:53:02.410] name <- removed[[kk]] 1582s [00:53:02.410] NAME <- NAMES[[kk]] 1582s [00:53:02.410] if (name != NAME && is.element(NAME, old_names)) 1582s [00:53:02.410] next 1582s [00:53:02.410] args[[name]] <- ...future.oldEnvVars[[name]] 1582s [00:53:02.410] } 1582s [00:53:02.410] if (length(args) > 0) 1582s [00:53:02.410] base::do.call(base::Sys.setenv, args = args) 1582s [00:53:02.410] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1582s [00:53:02.410] } 1582s [00:53:02.410] else { 1582s [00:53:02.410] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1582s [00:53:02.410] } 1582s [00:53:02.410] { 1582s [00:53:02.410] if (base::length(...future.futureOptionsAdded) > 1582s [00:53:02.410] 0L) { 1582s [00:53:02.410] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1582s [00:53:02.410] base::names(opts) <- ...future.futureOptionsAdded 1582s [00:53:02.410] base::options(opts) 1582s [00:53:02.410] } 1582s [00:53:02.410] { 1582s [00:53:02.410] { 1582s [00:53:02.410] NULL 1582s [00:53:02.410] RNGkind("Mersenne-Twister") 1582s [00:53:02.410] base::rm(list = ".Random.seed", envir = base::globalenv(), 1582s [00:53:02.410] inherits = FALSE) 1582s [00:53:02.410] } 1582s [00:53:02.410] options(future.plan = NULL) 1582s [00:53:02.410] if (is.na(NA_character_)) 1582s [00:53:02.410] Sys.unsetenv("R_FUTURE_PLAN") 1582s [00:53:02.410] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1582s [00:53:02.410] future::plan(list(function (..., workers = availableCores(), 1582s [00:53:02.410] lazy = FALSE, rscript_libs = .libPaths(), 1582s [00:53:02.410] envir = parent.frame()) 1582s [00:53:02.410] { 1582s [00:53:02.410] if (is.function(workers)) 1582s [00:53:02.410] workers <- workers() 1582s [00:53:02.410] workers <- structure(as.integer(workers), 1582s [00:53:02.410] class = class(workers)) 1582s [00:53:02.410] stop_if_not(length(workers) == 1, is.finite(workers), 1582s [00:53:02.410] workers >= 1) 1582s [00:53:02.410] if (workers == 1L && !inherits(workers, "AsIs")) { 1582s [00:53:02.410] return(sequential(..., lazy = TRUE, envir = envir)) 1582s [00:53:02.410] } 1582s [00:53:02.410] future <- MultisessionFuture(..., workers = workers, 1582s [00:53:02.410] lazy = lazy, rscript_libs = rscript_libs, 1582s [00:53:02.410] envir = envir) 1582s [00:53:02.410] if (!future$lazy) 1582s [00:53:02.410] future <- run(future) 1582s [00:53:02.410] invisible(future) 1582s [00:53:02.410] }), .cleanup = FALSE, .init = FALSE) 1582s [00:53:02.410] } 1582s [00:53:02.410] } 1582s [00:53:02.410] } 1582s [00:53:02.410] }) 1582s [00:53:02.410] if (TRUE) { 1582s [00:53:02.410] base::sink(type = "output", split = FALSE) 1582s [00:53:02.410] if (TRUE) { 1582s [00:53:02.410] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1582s [00:53:02.410] } 1582s [00:53:02.410] else { 1582s [00:53:02.410] ...future.result["stdout"] <- base::list(NULL) 1582s [00:53:02.410] } 1582s [00:53:02.410] base::close(...future.stdout) 1582s [00:53:02.410] ...future.stdout <- NULL 1582s [00:53:02.410] } 1582s [00:53:02.410] ...future.result$conditions <- ...future.conditions 1582s [00:53:02.410] ...future.result$finished <- base::Sys.time() 1582s [00:53:02.410] ...future.result 1582s [00:53:02.410] } 1582s [00:53:02.414] assign_globals() ... 1582s [00:53:02.414] List of 5 1582s [00:53:02.414] $ ...future.FUN :function (x) 1582s [00:53:02.414] $ future.call.arguments : list() 1582s [00:53:02.414] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1582s [00:53:02.414] $ ...future.elements_ii :List of 3 1582s [00:53:02.414] ..$ : chr "a" 1582s [00:53:02.414] ..$ : chr "b" 1582s [00:53:02.414] ..$ : chr "c" 1582s [00:53:02.414] $ ...future.seeds_ii : NULL 1582s [00:53:02.414] $ ...future.globals.maxSize: NULL 1582s [00:53:02.414] - attr(*, "where")=List of 5 1582s [00:53:02.414] ..$ ...future.FUN : 1582s [00:53:02.414] ..$ future.call.arguments : 1582s [00:53:02.414] ..$ ...future.elements_ii : 1582s [00:53:02.414] ..$ ...future.seeds_ii : 1582s [00:53:02.414] ..$ ...future.globals.maxSize: 1582s [00:53:02.414] - attr(*, "resolved")= logi FALSE 1582s [00:53:02.414] - attr(*, "total_size")= num 848 1582s [00:53:02.414] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1582s [00:53:02.414] - attr(*, "already-done")= logi TRUE 1582s [00:53:02.422] - copied ‘...future.FUN’ to environment 1582s [00:53:02.422] - copied ‘future.call.arguments’ to environment 1582s [00:53:02.422] - copied ‘...future.elements_ii’ to environment 1582s [00:53:02.423] - copied ‘...future.seeds_ii’ to environment 1582s [00:53:02.423] - copied ‘...future.globals.maxSize’ to environment 1582s [00:53:02.423] assign_globals() ... done 1582s [00:53:02.423] plan(): Setting new future strategy stack: 1582s [00:53:02.423] List of future strategies: 1582s [00:53:02.423] 1. sequential: 1582s [00:53:02.423] - args: function (..., envir = parent.frame()) 1582s [00:53:02.423] - tweaked: FALSE 1582s [00:53:02.423] - call: NULL 1582s [00:53:02.424] plan(): nbrOfWorkers() = 1 1582s [00:53:02.425] plan(): Setting new future strategy stack: 1582s [00:53:02.425] List of future strategies: 1582s [00:53:02.425] 1. multisession: 1582s [00:53:02.425] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1582s [00:53:02.425] - tweaked: FALSE 1582s [00:53:02.425] - call: plan(strategy) 1582s [00:53:02.428] plan(): nbrOfWorkers() = 1 1582s [00:53:02.429] SequentialFuture started (and completed) 1582s [00:53:02.429] - Launch lazy future ... done 1582s [00:53:02.429] run() for ‘SequentialFuture’ ... done 1582s [00:53:02.429] Created future: 1582s [00:53:02.429] SequentialFuture: 1582s [00:53:02.429] Label: ‘future_sapply-1’ 1582s [00:53:02.429] Expression: 1582s [00:53:02.429] { 1582s [00:53:02.429] do.call(function(...) { 1582s [00:53:02.429] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1582s [00:53:02.429] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1582s [00:53:02.429] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1582s [00:53:02.429] on.exit(options(oopts), add = TRUE) 1582s [00:53:02.429] } 1582s [00:53:02.429] { 1582s [00:53:02.429] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1582s [00:53:02.429] ...future.X_jj <- ...future.elements_ii[[jj]] 1582s [00:53:02.429] ...future.FUN(...future.X_jj, ...) 1582s [00:53:02.429] }) 1582s [00:53:02.429] } 1582s [00:53:02.429] }, args = future.call.arguments) 1582s [00:53:02.429] } 1582s [00:53:02.429] Lazy evaluation: FALSE 1582s [00:53:02.429] Asynchronous evaluation: FALSE 1582s [00:53:02.429] Local evaluation: TRUE 1582s [00:53:02.429] Environment: R_GlobalEnv 1582s [00:53:02.429] Capture standard output: TRUE 1582s [00:53:02.429] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1582s [00:53:02.429] Globals: 5 objects totaling 1.16 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1582s [00:53:02.429] Packages: 1582s [00:53:02.429] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1582s [00:53:02.429] Resolved: TRUE 1582s [00:53:02.429] Value: 336 bytes of class ‘list’ 1582s [00:53:02.429] Early signaling: FALSE 1582s [00:53:02.429] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1582s [00:53:02.429] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1582s [00:53:02.431] Chunk #1 of 1 ... DONE 1582s [00:53:02.432] Launching 1 futures (chunks) ... DONE 1582s [00:53:02.432] Resolving 1 futures (chunks) ... 1582s [00:53:02.432] resolve() on list ... 1582s [00:53:02.432] recursive: 0 1582s [00:53:02.432] length: 1 1582s [00:53:02.432] 1582s [00:53:02.433] resolved() for ‘SequentialFuture’ ... 1582s [00:53:02.433] - state: ‘finished’ 1582s [00:53:02.433] - run: TRUE 1582s [00:53:02.433] - result: ‘FutureResult’ 1582s [00:53:02.433] resolved() for ‘SequentialFuture’ ... done 1582s [00:53:02.433] Future #1 1582s [00:53:02.434] signalConditionsASAP(SequentialFuture, pos=1) ... 1582s [00:53:02.434] - nx: 1 1582s [00:53:02.434] - relay: TRUE 1582s [00:53:02.434] - stdout: TRUE 1582s [00:53:02.435] - signal: TRUE 1582s [00:53:02.435] - resignal: FALSE 1582s [00:53:02.435] - force: TRUE 1582s [00:53:02.436] - relayed: [n=1] FALSE 1582s [00:53:02.436] - queued futures: [n=1] FALSE 1582s [00:53:02.436] - until=1 1582s [00:53:02.436] - relaying element #1 1582s [00:53:02.437] - relayed: [n=1] TRUE 1582s [00:53:02.437] - queued futures: [n=1] TRUE 1582s [00:53:02.437] signalConditionsASAP(SequentialFuture, pos=1) ... done 1582s [00:53:02.437] length: 0 (resolved future 1) 1582s [00:53:02.438] Relaying remaining futures 1582s [00:53:02.438] signalConditionsASAP(NULL, pos=0) ... 1582s [00:53:02.438] - nx: 1 1582s [00:53:02.438] - relay: TRUE 1582s [00:53:02.438] - stdout: TRUE 1582s [00:53:02.438] - signal: TRUE 1582s [00:53:02.438] - resignal: FALSE 1582s [00:53:02.439] - force: TRUE 1582s [00:53:02.439] - relayed: [n=1] TRUE 1582s [00:53:02.439] - queued futures: [n=1] TRUE 1582s List of 2 1582s $ y0:List of 3 1582s ..$ : chr "a" 1582s ..$ : chr "b" 1582s ..$ : chr "c" 1582s $ y1: - flush all 1582s [00:53:02.439] - relayed: [n=1] TRUE 1582s [00:53:02.439] - queued futures: [n=1] TRUE 1582s [00:53:02.440] signalConditionsASAP(NULL, pos=0) ... done 1582s [00:53:02.440] resolve() on list ... DONE 1582s [00:53:02.441] - Number of value chunks collected: 1 1582s [00:53:02.441] Resolving 1 futures (chunks) ... DONE 1582s [00:53:02.441] Reducing values from 1 chunks ... 1582s [00:53:02.441] - Number of values collected after concatenation: 3 1582s [00:53:02.441] - Number of values expected: 3 1582s [00:53:02.441] Reducing values from 1 chunks ... DONE 1582s [00:53:02.441] future_lapply() ... DONE 1582s List of 3 1582s ..$ : chr "a" 1582s ..$ : chr "b" 1582s ..$ : chr "c" 1582s List of 2 1582s $ y0:List of 3 1582s ..$ : chr "a" 1582s ..$ : chr "b" 1582s ..$ : chr "c" 1582s $ y2:List of 3 1582s ..$ : chr "a" 1582s ..$ : chr "b" 1582s ..$ : chr "c" 1582s [00:53:02.450] future_lapply() ... 1582s [00:53:02.454] Number of chunks: 1 1582s [00:53:02.454] getGlobalsAndPackagesXApply() ... 1582s [00:53:02.454] - future.globals: TRUE 1582s [00:53:02.454] getGlobalsAndPackages() ... 1582s [00:53:02.455] Searching for globals... 1582s [00:53:02.466] - globals found: [2] ‘FUN’, ‘UseMethod’ 1582s [00:53:02.466] Searching for globals ... DONE 1582s [00:53:02.467] Resolving globals: FALSE 1582s [00:53:02.467] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1582s [00:53:02.468] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1582s [00:53:02.468] - globals: [1] ‘FUN’ 1582s [00:53:02.468] 1582s [00:53:02.469] getGlobalsAndPackages() ... DONE 1582s [00:53:02.469] - globals found/used: [n=1] ‘FUN’ 1582s [00:53:02.469] - needed namespaces: [n=0] 1582s [00:53:02.469] Finding globals ... DONE 1582s [00:53:02.470] - use_args: TRUE 1582s [00:53:02.470] - Getting '...' globals ... 1582s [00:53:02.470] resolve() on list ... 1582s [00:53:02.471] recursive: 0 1582s [00:53:02.471] length: 1 1582s [00:53:02.471] elements: ‘...’ 1582s [00:53:02.471] length: 0 (resolved future 1) 1582s [00:53:02.471] resolve() on list ... DONE 1582s [00:53:02.472] - '...' content: [n=0] 1582s [00:53:02.472] List of 1 1582s [00:53:02.472] $ ...: list() 1582s [00:53:02.472] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1582s [00:53:02.472] - attr(*, "where")=List of 1 1582s [00:53:02.472] ..$ ...: 1582s [00:53:02.472] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1582s [00:53:02.472] - attr(*, "resolved")= logi TRUE 1582s [00:53:02.472] - attr(*, "total_size")= num NA 1582s [00:53:02.475] - Getting '...' globals ... DONE 1582s [00:53:02.475] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1582s [00:53:02.475] List of 2 1582s [00:53:02.475] $ ...future.FUN:function (x, ...) 1582s [00:53:02.475] $ ... : list() 1582s [00:53:02.475] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1582s [00:53:02.475] - attr(*, "where")=List of 2 1582s [00:53:02.475] ..$ ...future.FUN: 1582s [00:53:02.475] ..$ ... : 1582s [00:53:02.475] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1582s [00:53:02.475] - attr(*, "resolved")= logi FALSE 1582s [00:53:02.475] - attr(*, "total_size")= num 1248 1582s [00:53:02.479] Packages to be attached in all futures: [n=0] 1582s [00:53:02.480] getGlobalsAndPackagesXApply() ... DONE 1582s [00:53:02.480] Number of futures (= number of chunks): 1 1582s [00:53:02.480] Launching 1 futures (chunks) ... 1582s [00:53:02.480] Chunk #1 of 1 ... 1582s [00:53:02.480] - Finding globals in 'X' for chunk #1 ... 1582s [00:53:02.481] getGlobalsAndPackages() ... 1582s [00:53:02.481] Searching for globals... 1582s [00:53:02.481] 1582s [00:53:02.482] Searching for globals ... DONE 1582s [00:53:02.482] - globals: [0] 1582s [00:53:02.482] getGlobalsAndPackages() ... DONE 1582s [00:53:02.482] + additional globals found: [n=0] 1582s [00:53:02.482] + additional namespaces needed: [n=0] 1582s [00:53:02.482] - Finding globals in 'X' for chunk #1 ... DONE 1582s [00:53:02.482] - seeds: 1582s [00:53:02.483] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1582s [00:53:02.483] getGlobalsAndPackages() ... 1582s [00:53:02.483] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1582s [00:53:02.483] Resolving globals: FALSE 1582s [00:53:02.483] Tweak future expression to call with '...' arguments ... 1582s [00:53:02.483] { 1582s [00:53:02.483] do.call(function(...) { 1582s [00:53:02.483] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1582s [00:53:02.483] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1582s [00:53:02.483] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1582s [00:53:02.483] on.exit(options(oopts), add = TRUE) 1582s [00:53:02.483] } 1582s [00:53:02.483] { 1582s [00:53:02.483] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1582s [00:53:02.483] ...future.X_jj <- ...future.elements_ii[[jj]] 1582s [00:53:02.483] ...future.FUN(...future.X_jj, ...) 1582s [00:53:02.483] }) 1582s [00:53:02.483] } 1582s [00:53:02.483] }, args = future.call.arguments) 1582s [00:53:02.483] } 1582s [00:53:02.484] Tweak future expression to call with '...' arguments ... DONE 1582s [00:53:02.484] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1582s [00:53:02.484] 1582s [00:53:02.484] getGlobalsAndPackages() ... DONE 1582s [00:53:02.485] run() for ‘Future’ ... 1582s [00:53:02.485] - state: ‘created’ 1582s [00:53:02.485] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1582s [00:53:02.489] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1582s [00:53:02.489] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1582s [00:53:02.489] - Field: ‘label’ 1582s [00:53:02.490] - Field: ‘local’ 1582s [00:53:02.490] - Field: ‘owner’ 1582s [00:53:02.490] - Field: ‘envir’ 1582s [00:53:02.490] - Field: ‘packages’ 1582s [00:53:02.490] - Field: ‘gc’ 1582s [00:53:02.490] - Field: ‘conditions’ 1582s [00:53:02.491] - Field: ‘expr’ 1582s [00:53:02.491] - Field: ‘uuid’ 1582s [00:53:02.491] - Field: ‘seed’ 1582s [00:53:02.491] - Field: ‘version’ 1582s [00:53:02.492] - Field: ‘result’ 1582s [00:53:02.492] - Field: ‘asynchronous’ 1582s [00:53:02.492] - Field: ‘calls’ 1582s [00:53:02.492] - Field: ‘globals’ 1582s [00:53:02.492] - Field: ‘stdout’ 1582s [00:53:02.492] - Field: ‘earlySignal’ 1582s [00:53:02.493] - Field: ‘lazy’ 1582s [00:53:02.493] - Field: ‘state’ 1582s [00:53:02.493] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1582s [00:53:02.493] - Launch lazy future ... 1582s [00:53:02.493] Packages needed by the future expression (n = 0): 1582s [00:53:02.494] Packages needed by future strategies (n = 0): 1582s [00:53:02.494] { 1582s [00:53:02.494] { 1582s [00:53:02.494] { 1582s [00:53:02.494] ...future.startTime <- base::Sys.time() 1582s [00:53:02.494] { 1582s [00:53:02.494] { 1582s [00:53:02.494] { 1582s [00:53:02.494] base::local({ 1582s [00:53:02.494] has_future <- base::requireNamespace("future", 1582s [00:53:02.494] quietly = TRUE) 1582s [00:53:02.494] if (has_future) { 1582s [00:53:02.494] ns <- base::getNamespace("future") 1582s [00:53:02.494] version <- ns[[".package"]][["version"]] 1582s [00:53:02.494] if (is.null(version)) 1582s [00:53:02.494] version <- utils::packageVersion("future") 1582s [00:53:02.494] } 1582s [00:53:02.494] else { 1582s [00:53:02.494] version <- NULL 1582s [00:53:02.494] } 1582s [00:53:02.494] if (!has_future || version < "1.8.0") { 1582s [00:53:02.494] info <- base::c(r_version = base::gsub("R version ", 1582s [00:53:02.494] "", base::R.version$version.string), 1582s [00:53:02.494] platform = base::sprintf("%s (%s-bit)", 1582s [00:53:02.494] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1582s [00:53:02.494] os = base::paste(base::Sys.info()[base::c("sysname", 1582s [00:53:02.494] "release", "version")], collapse = " "), 1582s [00:53:02.494] hostname = base::Sys.info()[["nodename"]]) 1582s [00:53:02.494] info <- base::sprintf("%s: %s", base::names(info), 1582s [00:53:02.494] info) 1582s [00:53:02.494] info <- base::paste(info, collapse = "; ") 1582s [00:53:02.494] if (!has_future) { 1582s [00:53:02.494] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1582s [00:53:02.494] info) 1582s [00:53:02.494] } 1582s [00:53:02.494] else { 1582s [00:53:02.494] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1582s [00:53:02.494] info, version) 1582s [00:53:02.494] } 1582s [00:53:02.494] base::stop(msg) 1582s [00:53:02.494] } 1582s [00:53:02.494] }) 1582s [00:53:02.494] } 1582s [00:53:02.494] options(future.plan = NULL) 1582s [00:53:02.494] Sys.unsetenv("R_FUTURE_PLAN") 1582s [00:53:02.494] future::plan("default", .cleanup = FALSE, .init = FALSE) 1582s [00:53:02.494] } 1582s [00:53:02.494] ...future.workdir <- getwd() 1582s [00:53:02.494] } 1582s [00:53:02.494] ...future.oldOptions <- base::as.list(base::.Options) 1582s [00:53:02.494] ...future.oldEnvVars <- base::Sys.getenv() 1582s [00:53:02.494] } 1582s [00:53:02.494] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1582s [00:53:02.494] future.globals.maxSize = NULL, future.globals.method = NULL, 1582s [00:53:02.494] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1582s [00:53:02.494] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1582s [00:53:02.494] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1582s [00:53:02.494] future.stdout.windows.reencode = NULL, width = 80L) 1582s [00:53:02.494] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1582s [00:53:02.494] base::names(...future.oldOptions)) 1582s [00:53:02.494] } 1582s [00:53:02.494] if (FALSE) { 1582s [00:53:02.494] } 1582s [00:53:02.494] else { 1582s [00:53:02.494] if (TRUE) { 1582s [00:53:02.494] ...future.stdout <- base::rawConnection(base::raw(0L), 1582s [00:53:02.494] open = "w") 1582s [00:53:02.494] } 1582s [00:53:02.494] else { 1582s [00:53:02.494] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1582s [00:53:02.494] windows = "NUL", "/dev/null"), open = "w") 1582s [00:53:02.494] } 1582s [00:53:02.494] base::sink(...future.stdout, type = "output", split = FALSE) 1582s [00:53:02.494] base::on.exit(if (!base::is.null(...future.stdout)) { 1582s [00:53:02.494] base::sink(type = "output", split = FALSE) 1582s [00:53:02.494] base::close(...future.stdout) 1582s [00:53:02.494] }, add = TRUE) 1582s [00:53:02.494] } 1582s [00:53:02.494] ...future.frame <- base::sys.nframe() 1582s [00:53:02.494] ...future.conditions <- base::list() 1582s [00:53:02.494] ...future.rng <- base::globalenv()$.Random.seed 1582s [00:53:02.494] if (FALSE) { 1582s [00:53:02.494] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1582s [00:53:02.494] "...future.value", "...future.globalenv.names", ".Random.seed") 1582s [00:53:02.494] } 1582s [00:53:02.494] ...future.result <- base::tryCatch({ 1582s [00:53:02.494] base::withCallingHandlers({ 1582s [00:53:02.494] ...future.value <- base::withVisible(base::local({ 1582s [00:53:02.494] do.call(function(...) { 1582s [00:53:02.494] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1582s [00:53:02.494] if (!identical(...future.globals.maxSize.org, 1582s [00:53:02.494] ...future.globals.maxSize)) { 1582s [00:53:02.494] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1582s [00:53:02.494] on.exit(options(oopts), add = TRUE) 1582s [00:53:02.494] } 1582s [00:53:02.494] { 1582s [00:53:02.494] lapply(seq_along(...future.elements_ii), 1582s [00:53:02.494] FUN = function(jj) { 1582s [00:53:02.494] ...future.X_jj <- ...future.elements_ii[[jj]] 1582s [00:53:02.494] ...future.FUN(...future.X_jj, ...) 1582s [00:53:02.494] }) 1582s [00:53:02.494] } 1582s [00:53:02.494] }, args = future.call.arguments) 1582s [00:53:02.494] })) 1582s [00:53:02.494] future::FutureResult(value = ...future.value$value, 1582s [00:53:02.494] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1582s [00:53:02.494] ...future.rng), globalenv = if (FALSE) 1582s [00:53:02.494] list(added = base::setdiff(base::names(base::.GlobalEnv), 1582s [00:53:02.494] ...future.globalenv.names)) 1582s [00:53:02.494] else NULL, started = ...future.startTime, version = "1.8") 1582s [00:53:02.494] }, condition = base::local({ 1582s [00:53:02.494] c <- base::c 1582s [00:53:02.494] inherits <- base::inherits 1582s [00:53:02.494] invokeRestart <- base::invokeRestart 1582s [00:53:02.494] length <- base::length 1582s [00:53:02.494] list <- base::list 1582s [00:53:02.494] seq.int <- base::seq.int 1582s [00:53:02.494] signalCondition <- base::signalCondition 1582s [00:53:02.494] sys.calls <- base::sys.calls 1582s [00:53:02.494] `[[` <- base::`[[` 1582s [00:53:02.494] `+` <- base::`+` 1582s [00:53:02.494] `<<-` <- base::`<<-` 1582s [00:53:02.494] sysCalls <- function(calls = sys.calls(), from = 1L) { 1582s [00:53:02.494] calls[seq.int(from = from + 12L, to = length(calls) - 1582s [00:53:02.494] 3L)] 1582s [00:53:02.494] } 1582s [00:53:02.494] function(cond) { 1582s [00:53:02.494] is_error <- inherits(cond, "error") 1582s [00:53:02.494] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1582s [00:53:02.494] NULL) 1582s [00:53:02.494] if (is_error) { 1582s [00:53:02.494] sessionInformation <- function() { 1582s [00:53:02.494] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1582s [00:53:02.494] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1582s [00:53:02.494] search = base::search(), system = base::Sys.info()) 1582s [00:53:02.494] } 1582s [00:53:02.494] ...future.conditions[[length(...future.conditions) + 1582s [00:53:02.494] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1582s [00:53:02.494] cond$call), session = sessionInformation(), 1582s [00:53:02.494] timestamp = base::Sys.time(), signaled = 0L) 1582s [00:53:02.494] signalCondition(cond) 1582s [00:53:02.494] } 1582s [00:53:02.494] else if (!ignore && TRUE && inherits(cond, c("condition", 1582s [00:53:02.494] "immediateCondition"))) { 1582s [00:53:02.494] signal <- TRUE && inherits(cond, "immediateCondition") 1582s [00:53:02.494] ...future.conditions[[length(...future.conditions) + 1582s [00:53:02.494] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1582s [00:53:02.494] if (TRUE && !signal) { 1582s [00:53:02.494] muffleCondition <- function (cond, pattern = "^muffle") 1582s [00:53:02.494] { 1582s [00:53:02.494] inherits <- base::inherits 1582s [00:53:02.494] invokeRestart <- base::invokeRestart 1582s [00:53:02.494] is.null <- base::is.null 1582s [00:53:02.494] muffled <- FALSE 1582s [00:53:02.494] if (inherits(cond, "message")) { 1582s [00:53:02.494] muffled <- grepl(pattern, "muffleMessage") 1582s [00:53:02.494] if (muffled) 1582s [00:53:02.494] invokeRestart("muffleMessage") 1582s [00:53:02.494] } 1582s [00:53:02.494] else if (inherits(cond, "warning")) { 1582s [00:53:02.494] muffled <- grepl(pattern, "muffleWarning") 1582s [00:53:02.494] if (muffled) 1582s [00:53:02.494] invokeRestart("muffleWarning") 1582s [00:53:02.494] } 1582s [00:53:02.494] else if (inherits(cond, "condition")) { 1582s [00:53:02.494] if (!is.null(pattern)) { 1582s [00:53:02.494] computeRestarts <- base::computeRestarts 1582s [00:53:02.494] grepl <- base::grepl 1582s [00:53:02.494] restarts <- computeRestarts(cond) 1582s [00:53:02.494] for (restart in restarts) { 1582s [00:53:02.494] name <- restart$name 1582s [00:53:02.494] if (is.null(name)) 1582s [00:53:02.494] next 1582s [00:53:02.494] if (!grepl(pattern, name)) 1582s [00:53:02.494] next 1582s [00:53:02.494] invokeRestart(restart) 1582s [00:53:02.494] muffled <- TRUE 1582s [00:53:02.494] break 1582s [00:53:02.494] } 1582s [00:53:02.494] } 1582s [00:53:02.494] } 1582s [00:53:02.494] invisible(muffled) 1582s [00:53:02.494] } 1582s [00:53:02.494] muffleCondition(cond, pattern = "^muffle") 1582s [00:53:02.494] } 1582s [00:53:02.494] } 1582s [00:53:02.494] else { 1582s [00:53:02.494] if (TRUE) { 1582s [00:53:02.494] muffleCondition <- function (cond, pattern = "^muffle") 1582s [00:53:02.494] { 1582s [00:53:02.494] inherits <- base::inherits 1582s [00:53:02.494] invokeRestart <- base::invokeRestart 1582s [00:53:02.494] is.null <- base::is.null 1582s [00:53:02.494] muffled <- FALSE 1582s [00:53:02.494] if (inherits(cond, "message")) { 1582s [00:53:02.494] muffled <- grepl(pattern, "muffleMessage") 1582s [00:53:02.494] if (muffled) 1582s [00:53:02.494] invokeRestart("muffleMessage") 1582s [00:53:02.494] } 1582s [00:53:02.494] else if (inherits(cond, "warning")) { 1582s [00:53:02.494] muffled <- grepl(pattern, "muffleWarning") 1582s [00:53:02.494] if (muffled) 1582s [00:53:02.494] invokeRestart("muffleWarning") 1582s [00:53:02.494] } 1582s [00:53:02.494] else if (inherits(cond, "condition")) { 1582s [00:53:02.494] if (!is.null(pattern)) { 1582s [00:53:02.494] computeRestarts <- base::computeRestarts 1582s [00:53:02.494] grepl <- base::grepl 1582s [00:53:02.494] restarts <- computeRestarts(cond) 1582s [00:53:02.494] for (restart in restarts) { 1582s [00:53:02.494] name <- restart$name 1582s [00:53:02.494] if (is.null(name)) 1582s [00:53:02.494] next 1582s [00:53:02.494] if (!grepl(pattern, name)) 1582s [00:53:02.494] next 1582s [00:53:02.494] invokeRestart(restart) 1582s [00:53:02.494] muffled <- TRUE 1582s [00:53:02.494] break 1582s [00:53:02.494] } 1582s [00:53:02.494] } 1582s [00:53:02.494] } 1582s [00:53:02.494] invisible(muffled) 1582s [00:53:02.494] } 1582s [00:53:02.494] muffleCondition(cond, pattern = "^muffle") 1582s [00:53:02.494] } 1582s [00:53:02.494] } 1582s [00:53:02.494] } 1582s [00:53:02.494] })) 1582s [00:53:02.494] }, error = function(ex) { 1582s [00:53:02.494] base::structure(base::list(value = NULL, visible = NULL, 1582s [00:53:02.494] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1582s [00:53:02.494] ...future.rng), started = ...future.startTime, 1582s [00:53:02.494] finished = Sys.time(), session_uuid = NA_character_, 1582s [00:53:02.494] version = "1.8"), class = "FutureResult") 1582s [00:53:02.494] }, finally = { 1582s [00:53:02.494] if (!identical(...future.workdir, getwd())) 1582s [00:53:02.494] setwd(...future.workdir) 1582s [00:53:02.494] { 1582s [00:53:02.494] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1582s [00:53:02.494] ...future.oldOptions$nwarnings <- NULL 1582s [00:53:02.494] } 1582s [00:53:02.494] base::options(...future.oldOptions) 1582s [00:53:02.494] if (.Platform$OS.type == "windows") { 1582s [00:53:02.494] old_names <- names(...future.oldEnvVars) 1582s [00:53:02.494] envs <- base::Sys.getenv() 1582s [00:53:02.494] names <- names(envs) 1582s [00:53:02.494] common <- intersect(names, old_names) 1582s [00:53:02.494] added <- setdiff(names, old_names) 1582s [00:53:02.494] removed <- setdiff(old_names, names) 1582s [00:53:02.494] changed <- common[...future.oldEnvVars[common] != 1582s [00:53:02.494] envs[common]] 1582s [00:53:02.494] NAMES <- toupper(changed) 1582s [00:53:02.494] args <- list() 1582s [00:53:02.494] for (kk in seq_along(NAMES)) { 1582s [00:53:02.494] name <- changed[[kk]] 1582s [00:53:02.494] NAME <- NAMES[[kk]] 1582s [00:53:02.494] if (name != NAME && is.element(NAME, old_names)) 1582s [00:53:02.494] next 1582s [00:53:02.494] args[[name]] <- ...future.oldEnvVars[[name]] 1582s [00:53:02.494] } 1582s [00:53:02.494] NAMES <- toupper(added) 1582s [00:53:02.494] for (kk in seq_along(NAMES)) { 1582s [00:53:02.494] name <- added[[kk]] 1582s [00:53:02.494] NAME <- NAMES[[kk]] 1582s [00:53:02.494] if (name != NAME && is.element(NAME, old_names)) 1582s [00:53:02.494] next 1582s [00:53:02.494] args[[name]] <- "" 1582s [00:53:02.494] } 1582s [00:53:02.494] NAMES <- toupper(removed) 1582s [00:53:02.494] for (kk in seq_along(NAMES)) { 1582s [00:53:02.494] name <- removed[[kk]] 1582s [00:53:02.494] NAME <- NAMES[[kk]] 1582s [00:53:02.494] if (name != NAME && is.element(NAME, old_names)) 1582s [00:53:02.494] next 1582s [00:53:02.494] args[[name]] <- ...future.oldEnvVars[[name]] 1582s [00:53:02.494] } 1582s [00:53:02.494] if (length(args) > 0) 1582s [00:53:02.494] base::do.call(base::Sys.setenv, args = args) 1582s [00:53:02.494] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1582s [00:53:02.494] } 1582s [00:53:02.494] else { 1582s [00:53:02.494] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1582s [00:53:02.494] } 1582s [00:53:02.494] { 1582s [00:53:02.494] if (base::length(...future.futureOptionsAdded) > 1582s [00:53:02.494] 0L) { 1582s [00:53:02.494] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1582s [00:53:02.494] base::names(opts) <- ...future.futureOptionsAdded 1582s [00:53:02.494] base::options(opts) 1582s [00:53:02.494] } 1582s [00:53:02.494] { 1582s [00:53:02.494] { 1582s [00:53:02.494] NULL 1582s [00:53:02.494] RNGkind("Mersenne-Twister") 1582s [00:53:02.494] base::rm(list = ".Random.seed", envir = base::globalenv(), 1582s [00:53:02.494] inherits = FALSE) 1582s [00:53:02.494] } 1582s [00:53:02.494] options(future.plan = NULL) 1582s [00:53:02.494] if (is.na(NA_character_)) 1582s [00:53:02.494] Sys.unsetenv("R_FUTURE_PLAN") 1582s [00:53:02.494] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1582s [00:53:02.494] future::plan(list(function (..., workers = availableCores(), 1582s [00:53:02.494] lazy = FALSE, rscript_libs = .libPaths(), 1582s [00:53:02.494] envir = parent.frame()) 1582s [00:53:02.494] { 1582s [00:53:02.494] if (is.function(workers)) 1582s [00:53:02.494] workers <- workers() 1582s [00:53:02.494] workers <- structure(as.integer(workers), 1582s [00:53:02.494] class = class(workers)) 1582s [00:53:02.494] stop_if_not(length(workers) == 1, is.finite(workers), 1582s [00:53:02.494] workers >= 1) 1582s [00:53:02.494] if (workers == 1L && !inherits(workers, "AsIs")) { 1582s [00:53:02.494] return(sequential(..., lazy = TRUE, envir = envir)) 1582s [00:53:02.494] } 1582s [00:53:02.494] future <- MultisessionFuture(..., workers = workers, 1582s [00:53:02.494] lazy = lazy, rscript_libs = rscript_libs, 1582s [00:53:02.494] envir = envir) 1582s [00:53:02.494] if (!future$lazy) 1582s [00:53:02.494] future <- run(future) 1582s [00:53:02.494] invisible(future) 1582s [00:53:02.494] }), .cleanup = FALSE, .init = FALSE) 1582s [00:53:02.494] } 1582s [00:53:02.494] } 1582s [00:53:02.494] } 1582s [00:53:02.494] }) 1582s [00:53:02.494] if (TRUE) { 1582s [00:53:02.494] base::sink(type = "output", split = FALSE) 1582s [00:53:02.494] if (TRUE) { 1582s [00:53:02.494] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1582s [00:53:02.494] } 1582s [00:53:02.494] else { 1582s [00:53:02.494] ...future.result["stdout"] <- base::list(NULL) 1582s [00:53:02.494] } 1582s [00:53:02.494] base::close(...future.stdout) 1582s [00:53:02.494] ...future.stdout <- NULL 1582s [00:53:02.494] } 1582s [00:53:02.494] ...future.result$conditions <- ...future.conditions 1582s [00:53:02.494] ...future.result$finished <- base::Sys.time() 1582s [00:53:02.494] ...future.result 1582s [00:53:02.494] } 1582s [00:53:02.500] assign_globals() ... 1582s [00:53:02.500] List of 5 1582s [00:53:02.500] $ ...future.FUN :function (x, ...) 1582s [00:53:02.500] $ future.call.arguments : list() 1582s [00:53:02.500] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1582s [00:53:02.500] $ ...future.elements_ii :List of 3 1582s [00:53:02.500] ..$ : chr "a" 1582s [00:53:02.500] ..$ : chr "b" 1582s [00:53:02.500] ..$ : chr "c" 1582s [00:53:02.500] $ ...future.seeds_ii : NULL 1582s [00:53:02.500] $ ...future.globals.maxSize: NULL 1582s [00:53:02.500] - attr(*, "where")=List of 5 1582s [00:53:02.500] ..$ ...future.FUN : 1582s [00:53:02.500] ..$ future.call.arguments : 1582s [00:53:02.500] ..$ ...future.elements_ii : 1582s [00:53:02.500] ..$ ...future.seeds_ii : 1582s [00:53:02.500] ..$ ...future.globals.maxSize: 1582s [00:53:02.500] - attr(*, "resolved")= logi FALSE 1582s [00:53:02.500] - attr(*, "total_size")= num 1248 1582s [00:53:02.500] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1582s [00:53:02.500] - attr(*, "already-done")= logi TRUE 1582s [00:53:02.508] - copied ‘...future.FUN’ to environment 1582s [00:53:02.508] - copied ‘future.call.arguments’ to environment 1582s [00:53:02.508] - copied ‘...future.elements_ii’ to environment 1582s [00:53:02.509] - copied ‘...future.seeds_ii’ to environment 1582s [00:53:02.509] - copied ‘...future.globals.maxSize’ to environment 1582s [00:53:02.509] assign_globals() ... done 1582s [00:53:02.509] plan(): Setting new future strategy stack: 1582s [00:53:02.509] List of future strategies: 1582s [00:53:02.509] 1. sequential: 1582s [00:53:02.509] - args: function (..., envir = parent.frame()) 1582s [00:53:02.509] - tweaked: FALSE 1582s [00:53:02.509] - call: NULL 1582s [00:53:02.510] plan(): nbrOfWorkers() = 1 1582s [00:53:02.511] plan(): Setting new future strategy stack: 1582s [00:53:02.511] List of future strategies: 1582s [00:53:02.511] 1. multisession: 1582s [00:53:02.511] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1582s [00:53:02.511] - tweaked: FALSE 1582s [00:53:02.511] - call: plan(strategy) 1582s [00:53:02.515] plan(): nbrOfWorkers() = 1 1582s [00:53:02.515] SequentialFuture started (and completed) 1582s [00:53:02.515] - Launch lazy future ... done 1582s [00:53:02.516] run() for ‘SequentialFuture’ ... done 1582s [00:53:02.516] Created future: 1582s [00:53:02.516] SequentialFuture: 1582s [00:53:02.516] Label: ‘future_sapply-1’ 1582s [00:53:02.516] Expression: 1582s [00:53:02.516] { 1582s [00:53:02.516] do.call(function(...) { 1582s [00:53:02.516] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1582s [00:53:02.516] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1582s [00:53:02.516] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1582s [00:53:02.516] on.exit(options(oopts), add = TRUE) 1582s [00:53:02.516] } 1582s [00:53:02.516] { 1582s [00:53:02.516] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1582s [00:53:02.516] ...future.X_jj <- ...future.elements_ii[[jj]] 1582s [00:53:02.516] ...future.FUN(...future.X_jj, ...) 1582s [00:53:02.516] }) 1582s [00:53:02.516] } 1582s [00:53:02.516] }, args = future.call.arguments) 1582s [00:53:02.516] } 1582s [00:53:02.516] Lazy evaluation: FALSE 1582s [00:53:02.516] Asynchronous evaluation: FALSE 1582s [00:53:02.516] Local evaluation: TRUE 1582s [00:53:02.516] Environment: R_GlobalEnv 1582s [00:53:02.516] Capture standard output: TRUE 1582s [00:53:02.516] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1582s [00:53:02.516] Globals: 5 objects totaling 1.55 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1582s [00:53:02.516] Packages: 1582s [00:53:02.516] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1582s [00:53:02.516] Resolved: TRUE 1582s [00:53:02.516] Value: 840 bytes of class ‘list’ 1582s [00:53:02.516] Early signaling: FALSE 1582s [00:53:02.516] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1582s [00:53:02.516] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1582s [00:53:02.517] Chunk #1 of 1 ... DONE 1582s [00:53:02.517] Launching 1 futures (chunks) ... DONE 1582s [00:53:02.517] Resolving 1 futures (chunks) ... 1582s [00:53:02.518] resolve() on list ... 1582s [00:53:02.518] recursive: 0 1582s [00:53:02.518] length: 1 1582s [00:53:02.518] 1582s [00:53:02.518] resolved() for ‘SequentialFuture’ ... 1582s [00:53:02.518] - state: ‘finished’ 1582s [00:53:02.519] - run: TRUE 1582s [00:53:02.519] - result: ‘FutureResult’ 1582s [00:53:02.519] resolved() for ‘SequentialFuture’ ... done 1582s [00:53:02.519] Future #1 1582s [00:53:02.519] signalConditionsASAP(SequentialFuture, pos=1) ... 1582s [00:53:02.519] - nx: 1 1582s [00:53:02.519] - relay: TRUE 1582s [00:53:02.520] - stdout: TRUE 1582s [00:53:02.520] - signal: TRUE 1582s [00:53:02.520] - resignal: FALSE 1582s [00:53:02.520] - force: TRUE 1582s [00:53:02.520] - relayed: [n=1] FALSE 1582s [00:53:02.520] - queued futures: [n=1] FALSE 1582s [00:53:02.521] - until=1 1582s [00:53:02.521] - relaying element #1 1582s [00:53:02.521] - relayed: [n=1] TRUE 1582s [00:53:02.521] - queued futures: [n=1] TRUE 1582s [00:53:02.521] signalConditionsASAP(SequentialFuture, pos=1) ... done 1582s [00:53:02.522] length: 0 (resolved future 1) 1582s [00:53:02.522] Relaying remaining futures 1582s [00:53:02.522] signalConditionsASAP(NULL, pos=0) ... 1582s [00:53:02.522] - nx: 1 1582s [00:53:02.522] - relay: TRUE 1582s [00:53:02.522] - stdout: TRUE 1582s [00:53:02.523] - signal: TRUE 1582s [00:53:02.523] - resignal: FALSE 1582s [00:53:02.523] - force: TRUE 1582s [00:53:02.523] - relayed: [n=1] TRUE 1582s [00:53:02.523] - queued futures: [n=1] TRUE 1582s - flush all 1582s [00:53:02.524] - relayed: [n=1] TRUE 1582s [00:53:02.524] - queued futures: [n=1] TRUE 1582s [00:53:02.524] signalConditionsASAP(NULL, pos=0) ... done 1582s List of 2 1582s $ y0:List of 3 1582s ..$ : chr [1, 1] "a" 1582s ..$ : chr [1, 1] "b" 1582s ..$ : chr [1, 1] "c" 1582s $ y1:List[00:53:02.524] resolve() on list ... DONE 1582s [00:53:02.525] - Number of value chunks collected: 1 1582s [00:53:02.525] Resolving 1 futures (chunks) ... DONE 1582s [00:53:02.525] Reducing values from 1 chunks ... 1582s [00:53:02.525] - Number of values collected after concatenation: 3 1582s [00:53:02.525] - Number of values expected: 3 1582s [00:53:02.525] Reducing values from 1 chunks ... DONE 1582s [00:53:02.525] future_lapply() ... DONE 1582s of 3 1582s ..$ : chr [1, 1] "a" 1582s ..$ : chr [1, 1] "b" 1582s ..$ : chr [1, 1] "c" 1582s List of 2 1582s $ y0:List of 3 1582s ..$ : chr [1, 1] "a" 1582s ..$ : chr [1, 1] "b" 1582s ..$ : chr [1, 1] "c" 1582s $ y2:List of 3 1582s ..$ : chr [1, 1] "a" 1582s ..$ : chr [1, 1] "b" 1582s ..$ : chr [1, 1] "c" 1582s [00:53:02.536] future_lapply() ... 1582s [00:53:02.541] Number of chunks: 1 1582s [00:53:02.541] getGlobalsAndPackagesXApply() ... 1582s [00:53:02.541] - future.globals: TRUE 1582s [00:53:02.541] getGlobalsAndPackages() ... 1582s [00:53:02.542] Searching for globals... 1582s [00:53:02.544] - globals found: [1] ‘FUN’ 1582s [00:53:02.544] Searching for globals ... DONE 1582s [00:53:02.545] Resolving globals: FALSE 1582s [00:53:02.545] The total size of the 1 globals is 848 bytes (848 bytes) 1582s [00:53:02.546] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1582s [00:53:02.546] - globals: [1] ‘FUN’ 1582s [00:53:02.546] 1582s [00:53:02.546] getGlobalsAndPackages() ... DONE 1582s [00:53:02.547] - globals found/used: [n=1] ‘FUN’ 1582s [00:53:02.547] - needed namespaces: [n=0] 1582s [00:53:02.547] Finding globals ... DONE 1582s [00:53:02.547] - use_args: TRUE 1582s [00:53:02.548] - Getting '...' globals ... 1582s [00:53:02.549] resolve() on list ... 1582s [00:53:02.549] recursive: 0 1582s [00:53:02.549] length: 1 1582s [00:53:02.550] elements: ‘...’ 1582s [00:53:02.550] length: 0 (resolved future 1) 1582s [00:53:02.551] resolve() on list ... DONE 1582s [00:53:02.551] - '...' content: [n=0] 1582s [00:53:02.551] List of 1 1582s [00:53:02.551] $ ...: list() 1582s [00:53:02.551] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1582s [00:53:02.551] - attr(*, "where")=List of 1 1582s [00:53:02.551] ..$ ...: 1582s [00:53:02.551] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1582s [00:53:02.551] - attr(*, "resolved")= logi TRUE 1582s [00:53:02.551] - attr(*, "total_size")= num NA 1582s [00:53:02.555] - Getting '...' globals ... DONE 1582s [00:53:02.555] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1582s [00:53:02.555] List of 2 1582s [00:53:02.555] $ ...future.FUN:function (x) 1582s [00:53:02.555] $ ... : list() 1582s [00:53:02.555] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1582s [00:53:02.555] - attr(*, "where")=List of 2 1582s [00:53:02.555] ..$ ...future.FUN: 1582s [00:53:02.555] ..$ ... : 1582s [00:53:02.555] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1582s [00:53:02.555] - attr(*, "resolved")= logi FALSE 1582s [00:53:02.555] - attr(*, "total_size")= num 848 1582s [00:53:02.560] Packages to be attached in all futures: [n=0] 1582s [00:53:02.561] getGlobalsAndPackagesXApply() ... DONE 1582s [00:53:02.561] Number of futures (= number of chunks): 1 1582s [00:53:02.561] Launching 1 futures (chunks) ... 1582s [00:53:02.561] Chunk #1 of 1 ... 1582s [00:53:02.562] - Finding globals in 'X' for chunk #1 ... 1582s [00:53:02.562] getGlobalsAndPackages() ... 1582s [00:53:02.562] Searching for globals... 1582s [00:53:02.563] 1582s [00:53:02.563] Searching for globals ... DONE 1582s [00:53:02.564] - globals: [0] 1582s [00:53:02.564] getGlobalsAndPackages() ... DONE 1582s [00:53:02.564] + additional globals found: [n=0] 1582s [00:53:02.565] + additional namespaces needed: [n=0] 1582s [00:53:02.565] - Finding globals in 'X' for chunk #1 ... DONE 1582s [00:53:02.565] - seeds: 1582s [00:53:02.565] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1582s [00:53:02.566] getGlobalsAndPackages() ... 1582s [00:53:02.566] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1582s [00:53:02.566] Resolving globals: FALSE 1582s [00:53:02.566] Tweak future expression to call with '...' arguments ... 1582s [00:53:02.566] { 1582s [00:53:02.566] do.call(function(...) { 1582s [00:53:02.566] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1582s [00:53:02.566] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1582s [00:53:02.566] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1582s [00:53:02.566] on.exit(options(oopts), add = TRUE) 1582s [00:53:02.566] } 1582s [00:53:02.566] { 1582s [00:53:02.566] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1582s [00:53:02.566] ...future.X_jj <- ...future.elements_ii[[jj]] 1582s [00:53:02.566] ...future.FUN(...future.X_jj, ...) 1582s [00:53:02.566] }) 1582s [00:53:02.566] } 1582s [00:53:02.566] }, args = future.call.arguments) 1582s [00:53:02.566] } 1582s [00:53:02.567] Tweak future expression to call with '...' arguments ... DONE 1582s [00:53:02.567] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1582s [00:53:02.568] 1582s [00:53:02.568] getGlobalsAndPackages() ... DONE 1582s [00:53:02.568] run() for ‘Future’ ... 1582s [00:53:02.568] - state: ‘created’ 1582s [00:53:02.568] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1582s [00:53:02.573] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1582s [00:53:02.573] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1582s [00:53:02.573] - Field: ‘label’ 1582s [00:53:02.573] - Field: ‘local’ 1582s [00:53:02.574] - Field: ‘owner’ 1582s [00:53:02.574] - Field: ‘envir’ 1582s [00:53:02.574] - Field: ‘packages’ 1582s [00:53:02.574] - Field: ‘gc’ 1582s [00:53:02.574] - Field: ‘conditions’ 1582s [00:53:02.575] - Field: ‘expr’ 1582s [00:53:02.575] - Field: ‘uuid’ 1582s [00:53:02.575] - Field: ‘seed’ 1582s [00:53:02.575] - Field: ‘version’ 1582s [00:53:02.576] - Field: ‘result’ 1582s [00:53:02.576] - Field: ‘asynchronous’ 1582s [00:53:02.576] - Field: ‘calls’ 1582s [00:53:02.576] - Field: ‘globals’ 1582s [00:53:02.576] - Field: ‘stdout’ 1582s [00:53:02.577] - Field: ‘earlySignal’ 1582s [00:53:02.577] - Field: ‘lazy’ 1582s [00:53:02.577] - Field: ‘state’ 1582s [00:53:02.577] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1582s [00:53:02.577] - Launch lazy future ... 1582s [00:53:02.578] Packages needed by the future expression (n = 0): 1582s [00:53:02.578] Packages needed by future strategies (n = 0): 1582s [00:53:02.579] { 1582s [00:53:02.579] { 1582s [00:53:02.579] { 1582s [00:53:02.579] ...future.startTime <- base::Sys.time() 1582s [00:53:02.579] { 1582s [00:53:02.579] { 1582s [00:53:02.579] { 1582s [00:53:02.579] base::local({ 1582s [00:53:02.579] has_future <- base::requireNamespace("future", 1582s [00:53:02.579] quietly = TRUE) 1582s [00:53:02.579] if (has_future) { 1582s [00:53:02.579] ns <- base::getNamespace("future") 1582s [00:53:02.579] version <- ns[[".package"]][["version"]] 1582s [00:53:02.579] if (is.null(version)) 1582s [00:53:02.579] version <- utils::packageVersion("future") 1582s [00:53:02.579] } 1582s [00:53:02.579] else { 1582s [00:53:02.579] version <- NULL 1582s [00:53:02.579] } 1582s [00:53:02.579] if (!has_future || version < "1.8.0") { 1582s [00:53:02.579] info <- base::c(r_version = base::gsub("R version ", 1582s [00:53:02.579] "", base::R.version$version.string), 1582s [00:53:02.579] platform = base::sprintf("%s (%s-bit)", 1582s [00:53:02.579] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1582s [00:53:02.579] os = base::paste(base::Sys.info()[base::c("sysname", 1582s [00:53:02.579] "release", "version")], collapse = " "), 1582s [00:53:02.579] hostname = base::Sys.info()[["nodename"]]) 1582s [00:53:02.579] info <- base::sprintf("%s: %s", base::names(info), 1582s [00:53:02.579] info) 1582s [00:53:02.579] info <- base::paste(info, collapse = "; ") 1582s [00:53:02.579] if (!has_future) { 1582s [00:53:02.579] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1582s [00:53:02.579] info) 1582s [00:53:02.579] } 1582s [00:53:02.579] else { 1582s [00:53:02.579] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1582s [00:53:02.579] info, version) 1582s [00:53:02.579] } 1582s [00:53:02.579] base::stop(msg) 1582s [00:53:02.579] } 1582s [00:53:02.579] }) 1582s [00:53:02.579] } 1582s [00:53:02.579] options(future.plan = NULL) 1582s [00:53:02.579] Sys.unsetenv("R_FUTURE_PLAN") 1582s [00:53:02.579] future::plan("default", .cleanup = FALSE, .init = FALSE) 1582s [00:53:02.579] } 1582s [00:53:02.579] ...future.workdir <- getwd() 1582s [00:53:02.579] } 1582s [00:53:02.579] ...future.oldOptions <- base::as.list(base::.Options) 1582s [00:53:02.579] ...future.oldEnvVars <- base::Sys.getenv() 1582s [00:53:02.579] } 1582s [00:53:02.579] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1582s [00:53:02.579] future.globals.maxSize = NULL, future.globals.method = NULL, 1582s [00:53:02.579] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1582s [00:53:02.579] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1582s [00:53:02.579] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1582s [00:53:02.579] future.stdout.windows.reencode = NULL, width = 80L) 1582s [00:53:02.579] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1582s [00:53:02.579] base::names(...future.oldOptions)) 1582s [00:53:02.579] } 1582s [00:53:02.579] if (FALSE) { 1582s [00:53:02.579] } 1582s [00:53:02.579] else { 1582s [00:53:02.579] if (TRUE) { 1582s [00:53:02.579] ...future.stdout <- base::rawConnection(base::raw(0L), 1582s [00:53:02.579] open = "w") 1582s [00:53:02.579] } 1582s [00:53:02.579] else { 1582s [00:53:02.579] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1582s [00:53:02.579] windows = "NUL", "/dev/null"), open = "w") 1582s [00:53:02.579] } 1582s [00:53:02.579] base::sink(...future.stdout, type = "output", split = FALSE) 1582s [00:53:02.579] base::on.exit(if (!base::is.null(...future.stdout)) { 1582s [00:53:02.579] base::sink(type = "output", split = FALSE) 1582s [00:53:02.579] base::close(...future.stdout) 1582s [00:53:02.579] }, add = TRUE) 1582s [00:53:02.579] } 1582s [00:53:02.579] ...future.frame <- base::sys.nframe() 1582s [00:53:02.579] ...future.conditions <- base::list() 1582s [00:53:02.579] ...future.rng <- base::globalenv()$.Random.seed 1582s [00:53:02.579] if (FALSE) { 1582s [00:53:02.579] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1582s [00:53:02.579] "...future.value", "...future.globalenv.names", ".Random.seed") 1582s [00:53:02.579] } 1582s [00:53:02.579] ...future.result <- base::tryCatch({ 1582s [00:53:02.579] base::withCallingHandlers({ 1582s [00:53:02.579] ...future.value <- base::withVisible(base::local({ 1582s [00:53:02.579] do.call(function(...) { 1582s [00:53:02.579] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1582s [00:53:02.579] if (!identical(...future.globals.maxSize.org, 1582s [00:53:02.579] ...future.globals.maxSize)) { 1582s [00:53:02.579] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1582s [00:53:02.579] on.exit(options(oopts), add = TRUE) 1582s [00:53:02.579] } 1582s [00:53:02.579] { 1582s [00:53:02.579] lapply(seq_along(...future.elements_ii), 1582s [00:53:02.579] FUN = function(jj) { 1582s [00:53:02.579] ...future.X_jj <- ...future.elements_ii[[jj]] 1582s [00:53:02.579] ...future.FUN(...future.X_jj, ...) 1582s [00:53:02.579] }) 1582s [00:53:02.579] } 1582s [00:53:02.579] }, args = future.call.arguments) 1582s [00:53:02.579] })) 1582s [00:53:02.579] future::FutureResult(value = ...future.value$value, 1582s [00:53:02.579] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1582s [00:53:02.579] ...future.rng), globalenv = if (FALSE) 1582s [00:53:02.579] list(added = base::setdiff(base::names(base::.GlobalEnv), 1582s [00:53:02.579] ...future.globalenv.names)) 1582s [00:53:02.579] else NULL, started = ...future.startTime, version = "1.8") 1582s [00:53:02.579] }, condition = base::local({ 1582s [00:53:02.579] c <- base::c 1582s [00:53:02.579] inherits <- base::inherits 1582s [00:53:02.579] invokeRestart <- base::invokeRestart 1582s [00:53:02.579] length <- base::length 1582s [00:53:02.579] list <- base::list 1582s [00:53:02.579] seq.int <- base::seq.int 1582s [00:53:02.579] signalCondition <- base::signalCondition 1582s [00:53:02.579] sys.calls <- base::sys.calls 1582s [00:53:02.579] `[[` <- base::`[[` 1582s [00:53:02.579] `+` <- base::`+` 1582s [00:53:02.579] `<<-` <- base::`<<-` 1582s [00:53:02.579] sysCalls <- function(calls = sys.calls(), from = 1L) { 1582s [00:53:02.579] calls[seq.int(from = from + 12L, to = length(calls) - 1582s [00:53:02.579] 3L)] 1582s [00:53:02.579] } 1582s [00:53:02.579] function(cond) { 1582s [00:53:02.579] is_error <- inherits(cond, "error") 1582s [00:53:02.579] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1582s [00:53:02.579] NULL) 1582s [00:53:02.579] if (is_error) { 1582s [00:53:02.579] sessionInformation <- function() { 1582s [00:53:02.579] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1582s [00:53:02.579] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1582s [00:53:02.579] search = base::search(), system = base::Sys.info()) 1582s [00:53:02.579] } 1582s [00:53:02.579] ...future.conditions[[length(...future.conditions) + 1582s [00:53:02.579] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1582s [00:53:02.579] cond$call), session = sessionInformation(), 1582s [00:53:02.579] timestamp = base::Sys.time(), signaled = 0L) 1582s [00:53:02.579] signalCondition(cond) 1582s [00:53:02.579] } 1582s [00:53:02.579] else if (!ignore && TRUE && inherits(cond, c("condition", 1582s [00:53:02.579] "immediateCondition"))) { 1582s [00:53:02.579] signal <- TRUE && inherits(cond, "immediateCondition") 1582s [00:53:02.579] ...future.conditions[[length(...future.conditions) + 1582s [00:53:02.579] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1582s [00:53:02.579] if (TRUE && !signal) { 1582s [00:53:02.579] muffleCondition <- function (cond, pattern = "^muffle") 1582s [00:53:02.579] { 1582s [00:53:02.579] inherits <- base::inherits 1582s [00:53:02.579] invokeRestart <- base::invokeRestart 1582s [00:53:02.579] is.null <- base::is.null 1582s [00:53:02.579] muffled <- FALSE 1582s [00:53:02.579] if (inherits(cond, "message")) { 1582s [00:53:02.579] muffled <- grepl(pattern, "muffleMessage") 1582s [00:53:02.579] if (muffled) 1582s [00:53:02.579] invokeRestart("muffleMessage") 1582s [00:53:02.579] } 1582s [00:53:02.579] else if (inherits(cond, "warning")) { 1582s [00:53:02.579] muffled <- grepl(pattern, "muffleWarning") 1582s [00:53:02.579] if (muffled) 1582s [00:53:02.579] invokeRestart("muffleWarning") 1582s [00:53:02.579] } 1582s [00:53:02.579] else if (inherits(cond, "condition")) { 1582s [00:53:02.579] if (!is.null(pattern)) { 1582s [00:53:02.579] computeRestarts <- base::computeRestarts 1582s [00:53:02.579] grepl <- base::grepl 1582s [00:53:02.579] restarts <- computeRestarts(cond) 1582s [00:53:02.579] for (restart in restarts) { 1582s [00:53:02.579] name <- restart$name 1582s [00:53:02.579] if (is.null(name)) 1582s [00:53:02.579] next 1582s [00:53:02.579] if (!grepl(pattern, name)) 1582s [00:53:02.579] next 1582s [00:53:02.579] invokeRestart(restart) 1582s [00:53:02.579] muffled <- TRUE 1582s [00:53:02.579] break 1582s [00:53:02.579] } 1582s [00:53:02.579] } 1582s [00:53:02.579] } 1582s [00:53:02.579] invisible(muffled) 1582s [00:53:02.579] } 1582s [00:53:02.579] muffleCondition(cond, pattern = "^muffle") 1582s [00:53:02.579] } 1582s [00:53:02.579] } 1582s [00:53:02.579] else { 1582s [00:53:02.579] if (TRUE) { 1582s [00:53:02.579] muffleCondition <- function (cond, pattern = "^muffle") 1582s [00:53:02.579] { 1582s [00:53:02.579] inherits <- base::inherits 1582s [00:53:02.579] invokeRestart <- base::invokeRestart 1582s [00:53:02.579] is.null <- base::is.null 1582s [00:53:02.579] muffled <- FALSE 1582s [00:53:02.579] if (inherits(cond, "message")) { 1582s [00:53:02.579] muffled <- grepl(pattern, "muffleMessage") 1582s [00:53:02.579] if (muffled) 1582s [00:53:02.579] invokeRestart("muffleMessage") 1582s [00:53:02.579] } 1582s [00:53:02.579] else if (inherits(cond, "warning")) { 1582s [00:53:02.579] muffled <- grepl(pattern, "muffleWarning") 1582s [00:53:02.579] if (muffled) 1582s [00:53:02.579] invokeRestart("muffleWarning") 1582s [00:53:02.579] } 1582s [00:53:02.579] else if (inherits(cond, "condition")) { 1582s [00:53:02.579] if (!is.null(pattern)) { 1582s [00:53:02.579] computeRestarts <- base::computeRestarts 1582s [00:53:02.579] grepl <- base::grepl 1582s [00:53:02.579] restarts <- computeRestarts(cond) 1582s [00:53:02.579] for (restart in restarts) { 1582s [00:53:02.579] name <- restart$name 1582s [00:53:02.579] if (is.null(name)) 1582s [00:53:02.579] next 1582s [00:53:02.579] if (!grepl(pattern, name)) 1582s [00:53:02.579] next 1582s [00:53:02.579] invokeRestart(restart) 1582s [00:53:02.579] muffled <- TRUE 1582s [00:53:02.579] break 1582s [00:53:02.579] } 1582s [00:53:02.579] } 1582s [00:53:02.579] } 1582s [00:53:02.579] invisible(muffled) 1582s [00:53:02.579] } 1582s [00:53:02.579] muffleCondition(cond, pattern = "^muffle") 1582s [00:53:02.579] } 1582s [00:53:02.579] } 1582s [00:53:02.579] } 1582s [00:53:02.579] })) 1582s [00:53:02.579] }, error = function(ex) { 1582s [00:53:02.579] base::structure(base::list(value = NULL, visible = NULL, 1582s [00:53:02.579] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1582s [00:53:02.579] ...future.rng), started = ...future.startTime, 1582s [00:53:02.579] finished = Sys.time(), session_uuid = NA_character_, 1582s [00:53:02.579] version = "1.8"), class = "FutureResult") 1582s [00:53:02.579] }, finally = { 1582s [00:53:02.579] if (!identical(...future.workdir, getwd())) 1582s [00:53:02.579] setwd(...future.workdir) 1582s [00:53:02.579] { 1582s [00:53:02.579] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1582s [00:53:02.579] ...future.oldOptions$nwarnings <- NULL 1582s [00:53:02.579] } 1582s [00:53:02.579] base::options(...future.oldOptions) 1582s [00:53:02.579] if (.Platform$OS.type == "windows") { 1582s [00:53:02.579] old_names <- names(...future.oldEnvVars) 1582s [00:53:02.579] envs <- base::Sys.getenv() 1582s [00:53:02.579] names <- names(envs) 1582s [00:53:02.579] common <- intersect(names, old_names) 1582s [00:53:02.579] added <- setdiff(names, old_names) 1582s [00:53:02.579] removed <- setdiff(old_names, names) 1582s [00:53:02.579] changed <- common[...future.oldEnvVars[common] != 1582s [00:53:02.579] envs[common]] 1582s [00:53:02.579] NAMES <- toupper(changed) 1582s [00:53:02.579] args <- list() 1582s [00:53:02.579] for (kk in seq_along(NAMES)) { 1582s [00:53:02.579] name <- changed[[kk]] 1582s [00:53:02.579] NAME <- NAMES[[kk]] 1582s [00:53:02.579] if (name != NAME && is.element(NAME, old_names)) 1582s [00:53:02.579] next 1582s [00:53:02.579] args[[name]] <- ...future.oldEnvVars[[name]] 1582s [00:53:02.579] } 1582s [00:53:02.579] NAMES <- toupper(added) 1582s [00:53:02.579] for (kk in seq_along(NAMES)) { 1582s [00:53:02.579] name <- added[[kk]] 1582s [00:53:02.579] NAME <- NAMES[[kk]] 1582s [00:53:02.579] if (name != NAME && is.element(NAME, old_names)) 1582s [00:53:02.579] next 1582s [00:53:02.579] args[[name]] <- "" 1582s [00:53:02.579] } 1582s [00:53:02.579] NAMES <- toupper(removed) 1582s [00:53:02.579] for (kk in seq_along(NAMES)) { 1582s [00:53:02.579] name <- removed[[kk]] 1582s [00:53:02.579] NAME <- NAMES[[kk]] 1582s [00:53:02.579] if (name != NAME && is.element(NAME, old_names)) 1582s [00:53:02.579] next 1582s [00:53:02.579] args[[name]] <- ...future.oldEnvVars[[name]] 1582s [00:53:02.579] } 1582s [00:53:02.579] if (length(args) > 0) 1582s [00:53:02.579] base::do.call(base::Sys.setenv, args = args) 1582s [00:53:02.579] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1582s [00:53:02.579] } 1582s [00:53:02.579] else { 1582s [00:53:02.579] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1582s [00:53:02.579] } 1582s [00:53:02.579] { 1582s [00:53:02.579] if (base::length(...future.futureOptionsAdded) > 1582s [00:53:02.579] 0L) { 1582s [00:53:02.579] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1582s [00:53:02.579] base::names(opts) <- ...future.futureOptionsAdded 1582s [00:53:02.579] base::options(opts) 1582s [00:53:02.579] } 1582s [00:53:02.579] { 1582s [00:53:02.579] { 1582s [00:53:02.579] NULL 1582s [00:53:02.579] RNGkind("Mersenne-Twister") 1582s [00:53:02.579] base::rm(list = ".Random.seed", envir = base::globalenv(), 1582s [00:53:02.579] inherits = FALSE) 1582s [00:53:02.579] } 1582s [00:53:02.579] options(future.plan = NULL) 1582s [00:53:02.579] if (is.na(NA_character_)) 1582s [00:53:02.579] Sys.unsetenv("R_FUTURE_PLAN") 1582s [00:53:02.579] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1582s [00:53:02.579] future::plan(list(function (..., workers = availableCores(), 1582s [00:53:02.579] lazy = FALSE, rscript_libs = .libPaths(), 1582s [00:53:02.579] envir = parent.frame()) 1582s [00:53:02.579] { 1582s [00:53:02.579] if (is.function(workers)) 1582s [00:53:02.579] workers <- workers() 1582s [00:53:02.579] workers <- structure(as.integer(workers), 1582s [00:53:02.579] class = class(workers)) 1582s [00:53:02.579] stop_if_not(length(workers) == 1, is.finite(workers), 1582s [00:53:02.579] workers >= 1) 1582s [00:53:02.579] if (workers == 1L && !inherits(workers, "AsIs")) { 1582s [00:53:02.579] return(sequential(..., lazy = TRUE, envir = envir)) 1582s [00:53:02.579] } 1582s [00:53:02.579] future <- MultisessionFuture(..., workers = workers, 1582s [00:53:02.579] lazy = lazy, rscript_libs = rscript_libs, 1582s [00:53:02.579] envir = envir) 1582s [00:53:02.579] if (!future$lazy) 1582s [00:53:02.579] future <- run(future) 1582s [00:53:02.579] invisible(future) 1582s [00:53:02.579] }), .cleanup = FALSE, .init = FALSE) 1582s [00:53:02.579] } 1582s [00:53:02.579] } 1582s [00:53:02.579] } 1582s [00:53:02.579] }) 1582s [00:53:02.579] if (TRUE) { 1582s [00:53:02.579] base::sink(type = "output", split = FALSE) 1582s [00:53:02.579] if (TRUE) { 1582s [00:53:02.579] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1582s [00:53:02.579] } 1582s [00:53:02.579] else { 1582s [00:53:02.579] ...future.result["stdout"] <- base::list(NULL) 1582s [00:53:02.579] } 1582s [00:53:02.579] base::close(...future.stdout) 1582s [00:53:02.579] ...future.stdout <- NULL 1582s [00:53:02.579] } 1582s [00:53:02.579] ...future.result$conditions <- ...future.conditions 1582s [00:53:02.579] ...future.result$finished <- base::Sys.time() 1582s [00:53:02.579] ...future.result 1582s [00:53:02.579] } 1582s [00:53:02.583] assign_globals() ... 1582s [00:53:02.584] List of 5 1582s [00:53:02.584] $ ...future.FUN :function (x) 1582s [00:53:02.584] $ future.call.arguments : list() 1582s [00:53:02.584] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1582s [00:53:02.584] $ ...future.elements_ii :List of 3 1582s [00:53:02.584] ..$ : chr "a" 1582s [00:53:02.584] ..$ : chr "b" 1582s [00:53:02.584] ..$ : chr "c" 1582s [00:53:02.584] $ ...future.seeds_ii : NULL 1582s [00:53:02.584] $ ...future.globals.maxSize: NULL 1582s [00:53:02.584] - attr(*, "where")=List of 5 1582s [00:53:02.584] ..$ ...future.FUN : 1582s [00:53:02.584] ..$ future.call.arguments : 1582s [00:53:02.584] ..$ ...future.elements_ii : 1582s [00:53:02.584] ..$ ...future.seeds_ii : 1582s [00:53:02.584] ..$ ...future.globals.maxSize: 1582s [00:53:02.584] - attr(*, "resolved")= logi FALSE 1582s [00:53:02.584] - attr(*, "total_size")= num 848 1582s [00:53:02.584] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1582s [00:53:02.584] - attr(*, "already-done")= logi TRUE 1582s [00:53:02.601] - copied ‘...future.FUN’ to environment 1582s [00:53:02.601] - copied ‘future.call.arguments’ to environment 1582s [00:53:02.601] - copied ‘...future.elements_ii’ to environment 1582s [00:53:02.601] - copied ‘...future.seeds_ii’ to environment 1582s [00:53:02.602] - copied ‘...future.globals.maxSize’ to environment 1582s [00:53:02.602] assign_globals() ... done 1582s [00:53:02.603] plan(): Setting new future strategy stack: 1582s [00:53:02.603] List of future strategies: 1582s [00:53:02.603] 1. sequential: 1582s [00:53:02.603] - args: function (..., envir = parent.frame()) 1582s [00:53:02.603] - tweaked: FALSE 1582s [00:53:02.603] - call: NULL 1582s [00:53:02.603] plan(): nbrOfWorkers() = 1 1582s [00:53:02.605] plan(): Setting new future strategy stack: 1582s [00:53:02.605] List of future strategies: 1582s [00:53:02.605] 1. multisession: 1582s [00:53:02.605] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1582s [00:53:02.605] - tweaked: FALSE 1582s [00:53:02.605] - call: plan(strategy) 1582s [00:53:02.613] plan(): nbrOfWorkers() = 1 1582s [00:53:02.614] SequentialFuture started (and completed) 1582s [00:53:02.614] - Launch lazy future ... done 1582s [00:53:02.614] run() for ‘SequentialFuture’ ... done 1582s [00:53:02.614] Created future: 1582s [00:53:02.615] SequentialFuture: 1582s [00:53:02.615] Label: ‘future_sapply-1’ 1582s [00:53:02.615] Expression: 1582s [00:53:02.615] { 1582s [00:53:02.615] do.call(function(...) { 1582s [00:53:02.615] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1582s [00:53:02.615] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1582s [00:53:02.615] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1582s [00:53:02.615] on.exit(options(oopts), add = TRUE) 1582s [00:53:02.615] } 1582s [00:53:02.615] { 1582s [00:53:02.615] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1582s [00:53:02.615] ...future.X_jj <- ...future.elements_ii[[jj]] 1582s [00:53:02.615] ...future.FUN(...future.X_jj, ...) 1582s [00:53:02.615] }) 1582s [00:53:02.615] } 1582s [00:53:02.615] }, args = future.call.arguments) 1582s [00:53:02.615] } 1582s [00:53:02.615] Lazy evaluation: FALSE 1582s [00:53:02.615] Asynchronous evaluation: FALSE 1582s [00:53:02.615] Local evaluation: TRUE 1582s [00:53:02.615] Environment: R_GlobalEnv 1582s [00:53:02.615] Capture standard output: TRUE 1582s [00:53:02.615] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1582s [00:53:02.615] Globals: 5 objects totaling 1.16 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1582s [00:53:02.615] Packages: 1582s [00:53:02.615] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1582s [00:53:02.615] Resolved: TRUE 1582s [00:53:02.615] Value: 336 bytes of class ‘list’ 1582s [00:53:02.615] Early signaling: FALSE 1582s [00:53:02.615] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1582s [00:53:02.615] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1582s [00:53:02.618] Chunk #1 of 1 ... DONE 1582s [00:53:02.618] Launching 1 futures (chunks) ... DONE 1582s [00:53:02.618] Resolving 1 futures (chunks) ... 1582s [00:53:02.618] resolve() on list ... 1582s [00:53:02.618] recursive: 0 1582s [00:53:02.619] length: 1 1582s [00:53:02.619] 1582s [00:53:02.619] resolved() for ‘SequentialFuture’ ... 1582s [00:53:02.619] - state: ‘finished’ 1582s [00:53:02.619] - run: TRUE 1582s [00:53:02.619] - result: ‘FutureResult’ 1582s [00:53:02.619] resolved() for ‘SequentialFuture’ ... done 1582s [00:53:02.620] Future #1 1582s [00:53:02.620] signalConditionsASAP(SequentialFuture, pos=1) ... 1582s [00:53:02.621] - nx: 1 1582s [00:53:02.621] - relay: TRUE 1582s [00:53:02.621] - stdout: TRUE 1582s [00:53:02.621] - signal: TRUE 1582s [00:53:02.621] - resignal: FALSE 1582s [00:53:02.621] - force: TRUE 1582s [00:53:02.621] - relayed: [n=1] FALSE 1582s [00:53:02.622] - queued futures: [n=1] FALSE 1582s [00:53:02.622] - until=1 1582s [00:53:02.622] - relaying element #1 1582s [00:53:02.622] - relayed: [n=1] TRUE 1582s [00:53:02.622] - queued futures: [n=1] TRUE 1582s [00:53:02.623] signalConditionsASAP(SequentialFuture, pos=1) ... done 1582s [00:53:02.623] length: 0 (resolved future 1) 1582s [00:53:02.623] Relaying remaining futures 1582s [00:53:02.623] signalConditionsASAP(NULL, pos=0) ... 1582s [00:53:02.623] - nx: 1 1582s [00:53:02.624] - relay: TRUE 1582s [00:53:02.624] - stdout: TRUE 1582s [00:53:02.624] - signal: TRUE 1582s [00:53:02.624] - resignal: FALSE 1582s [00:53:02.624] - force: TRUE 1582s [00:53:02.624] - relayed: [n=1] TRUE 1582s [00:53:02.624] - queued futures: [n=1] TRUE 1582s - flush all 1582s [00:53:02.625] - relayed: [n=1] TRUE 1582s [00:53:02.625] - queued futures: [n=1] TRUE 1582s [00:53:02.625] signalConditionsASAP(NULL, pos=0) ... done 1582s [00:53:02.625] resolve() on list ... DONE 1582s [00:53:02.625] - Number of value chunks collected: 1 1582s [00:53:02.626] Resolving 1 futures (chunks) ... DONE 1582s [00:53:02.626] Reducing values from 1 chunks ... 1582s [00:53:02.626] - Number of values collected after concatenation: 3 1582s [00:53:02.626] - Number of values expected: 3 1582s [00:53:02.626] Reducing values from 1 chunks ... DONE 1582s [00:53:02.626] future_lapply() ... DONE 1582s List of 2 1582s $ y0: chr [1:3] "a" "b" "c" 1582s $ y1: chr [1:3] "a" "b" "c" 1582s [00:53:02.629] future_lapply() ... 1582s [00:53:02.634] Number of chunks: 1 1582s [00:53:02.635] getGlobalsAndPackagesXApply() ... 1582s [00:53:02.635] - future.globals: TRUE 1582s [00:53:02.636] getGlobalsAndPackages() ... 1582s [00:53:02.636] Searching for globals... 1582s [00:53:02.639] - globals found: [2] ‘FUN’, ‘UseMethod’ 1582s [00:53:02.639] Searching for globals ... DONE 1582s [00:53:02.639] Resolving globals: FALSE 1582s [00:53:02.640] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1582s [00:53:02.641] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1582s [00:53:02.642] - globals: [1] ‘FUN’ 1582s [00:53:02.642] 1582s [00:53:02.642] getGlobalsAndPackages() ... DONE 1582s [00:53:02.642] - globals found/used: [n=1] ‘FUN’ 1582s [00:53:02.642] - needed namespaces: [n=0] 1582s [00:53:02.643] Finding globals ... DONE 1582s [00:53:02.643] - use_args: TRUE 1582s [00:53:02.644] - Getting '...' globals ... 1582s [00:53:02.644] resolve() on list ... 1582s [00:53:02.644] recursive: 0 1582s [00:53:02.644] length: 1 1582s [00:53:02.645] elements: ‘...’ 1582s [00:53:02.645] length: 0 (resolved future 1) 1582s [00:53:02.645] resolve() on list ... DONE 1582s [00:53:02.645] - '...' content: [n=0] 1582s [00:53:02.645] List of 1 1582s [00:53:02.645] $ ...: list() 1582s [00:53:02.645] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1582s [00:53:02.645] - attr(*, "where")=List of 1 1582s [00:53:02.645] ..$ ...: 1582s [00:53:02.645] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1582s [00:53:02.645] - attr(*, "resolved")= logi TRUE 1582s [00:53:02.645] - attr(*, "total_size")= num NA 1582s [00:53:02.651] - Getting '...' globals ... DONE 1582s [00:53:02.651] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1582s [00:53:02.651] List of 2 1582s [00:53:02.651] $ ...future.FUN:function (x, ...) 1582s [00:53:02.651] $ ... : list() 1582s [00:53:02.651] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1582s [00:53:02.651] - attr(*, "where")=List of 2 1582s [00:53:02.651] ..$ ...future.FUN: 1582s [00:53:02.651] ..$ ... : 1582s [00:53:02.651] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1582s [00:53:02.651] - attr(*, "resolved")= logi FALSE 1582s [00:53:02.651] - attr(*, "total_size")= num 1248 1582s [00:53:02.656] Packages to be attached in all futures: [n=0] 1582s [00:53:02.656] getGlobalsAndPackagesXApply() ... DONE 1582s [00:53:02.656] Number of futures (= number of chunks): 1 1582s [00:53:02.657] Launching 1 futures (chunks) ... 1582s [00:53:02.657] Chunk #1 of 1 ... 1582s [00:53:02.657] - Finding globals in 'X' for chunk #1 ... 1582s [00:53:02.658] getGlobalsAndPackages() ... 1582s [00:53:02.658] Searching for globals... 1582s [00:53:02.659] 1582s [00:53:02.659] Searching for globals ... DONE 1582s [00:53:02.659] - globals: [0] 1582s [00:53:02.660] getGlobalsAndPackages() ... DONE 1582s [00:53:02.660] + additional globals found: [n=0] 1582s [00:53:02.660] + additional namespaces needed: [n=0] 1582s [00:53:02.661] - Finding globals in 'X' for chunk #1 ... DONE 1582s [00:53:02.661] - seeds: 1582s [00:53:02.661] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1582s [00:53:02.661] getGlobalsAndPackages() ... 1582s [00:53:02.662] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1582s [00:53:02.662] Resolving globals: FALSE 1582s [00:53:02.662] Tweak future expression to call with '...' arguments ... 1582s [00:53:02.662] { 1582s [00:53:02.662] do.call(function(...) { 1582s [00:53:02.662] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1582s [00:53:02.662] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1582s [00:53:02.662] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1582s [00:53:02.662] on.exit(options(oopts), add = TRUE) 1582s [00:53:02.662] } 1582s [00:53:02.662] { 1582s [00:53:02.662] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1582s [00:53:02.662] ...future.X_jj <- ...future.elements_ii[[jj]] 1582s [00:53:02.662] ...future.FUN(...future.X_jj, ...) 1582s [00:53:02.662] }) 1582s [00:53:02.662] } 1582s [00:53:02.662] }, args = future.call.arguments) 1582s [00:53:02.662] } 1582s [00:53:02.663] Tweak future expression to call with '...' arguments ... DONE 1582s [00:53:02.664] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1582s [00:53:02.664] 1582s [00:53:02.664] getGlobalsAndPackages() ... DONE 1582s [00:53:02.664] run() for ‘Future’ ... 1582s [00:53:02.665] - state: ‘created’ 1582s [00:53:02.665] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1582s [00:53:02.669] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1582s [00:53:02.670] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1582s [00:53:02.670] - Field: ‘label’ 1582s [00:53:02.670] - Field: ‘local’ 1582s [00:53:02.670] - Field: ‘owner’ 1582s [00:53:02.670] - Field: ‘envir’ 1582s [00:53:02.671] - Field: ‘packages’ 1582s [00:53:02.671] - Field: ‘gc’ 1582s [00:53:02.671] - Field: ‘conditions’ 1582s [00:53:02.671] - Field: ‘expr’ 1582s [00:53:02.672] - Field: ‘uuid’ 1582s [00:53:02.672] - Field: ‘seed’ 1582s [00:53:02.672] - Field: ‘version’ 1582s [00:53:02.673] - Field: ‘result’ 1582s [00:53:02.673] - Field: ‘asynchronous’ 1582s [00:53:02.673] - Field: ‘calls’ 1582s [00:53:02.673] - Field: ‘globals’ 1582s [00:53:02.673] - Field: ‘stdout’ 1582s [00:53:02.673] - Field: ‘earlySignal’ 1582s [00:53:02.674] - Field: ‘lazy’ 1582s [00:53:02.674] - Field: ‘state’ 1582s [00:53:02.674] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1582s [00:53:02.674] - Launch lazy future ... 1582s [00:53:02.675] Packages needed by the future expression (n = 0): 1582s [00:53:02.675] Packages needed by future strategies (n = 0): 1582s [00:53:02.676] { 1582s [00:53:02.676] { 1582s [00:53:02.676] { 1582s [00:53:02.676] ...future.startTime <- base::Sys.time() 1582s [00:53:02.676] { 1582s [00:53:02.676] { 1582s [00:53:02.676] { 1582s [00:53:02.676] base::local({ 1582s [00:53:02.676] has_future <- base::requireNamespace("future", 1582s [00:53:02.676] quietly = TRUE) 1582s [00:53:02.676] if (has_future) { 1582s [00:53:02.676] ns <- base::getNamespace("future") 1582s [00:53:02.676] version <- ns[[".package"]][["version"]] 1582s [00:53:02.676] if (is.null(version)) 1582s [00:53:02.676] version <- utils::packageVersion("future") 1582s [00:53:02.676] } 1582s [00:53:02.676] else { 1582s [00:53:02.676] version <- NULL 1582s [00:53:02.676] } 1582s [00:53:02.676] if (!has_future || version < "1.8.0") { 1582s [00:53:02.676] info <- base::c(r_version = base::gsub("R version ", 1582s [00:53:02.676] "", base::R.version$version.string), 1582s [00:53:02.676] platform = base::sprintf("%s (%s-bit)", 1582s [00:53:02.676] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1582s [00:53:02.676] os = base::paste(base::Sys.info()[base::c("sysname", 1582s [00:53:02.676] "release", "version")], collapse = " "), 1582s [00:53:02.676] hostname = base::Sys.info()[["nodename"]]) 1582s [00:53:02.676] info <- base::sprintf("%s: %s", base::names(info), 1582s [00:53:02.676] info) 1582s [00:53:02.676] info <- base::paste(info, collapse = "; ") 1582s [00:53:02.676] if (!has_future) { 1582s [00:53:02.676] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1582s [00:53:02.676] info) 1582s [00:53:02.676] } 1582s [00:53:02.676] else { 1582s [00:53:02.676] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1582s [00:53:02.676] info, version) 1582s [00:53:02.676] } 1582s [00:53:02.676] base::stop(msg) 1582s [00:53:02.676] } 1582s [00:53:02.676] }) 1582s [00:53:02.676] } 1582s [00:53:02.676] options(future.plan = NULL) 1582s [00:53:02.676] Sys.unsetenv("R_FUTURE_PLAN") 1582s [00:53:02.676] future::plan("default", .cleanup = FALSE, .init = FALSE) 1582s [00:53:02.676] } 1582s [00:53:02.676] ...future.workdir <- getwd() 1582s [00:53:02.676] } 1582s [00:53:02.676] ...future.oldOptions <- base::as.list(base::.Options) 1582s [00:53:02.676] ...future.oldEnvVars <- base::Sys.getenv() 1582s [00:53:02.676] } 1582s [00:53:02.676] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1582s [00:53:02.676] future.globals.maxSize = NULL, future.globals.method = NULL, 1582s [00:53:02.676] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1582s [00:53:02.676] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1582s [00:53:02.676] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1582s [00:53:02.676] future.stdout.windows.reencode = NULL, width = 80L) 1582s [00:53:02.676] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1582s [00:53:02.676] base::names(...future.oldOptions)) 1582s [00:53:02.676] } 1582s [00:53:02.676] if (FALSE) { 1582s [00:53:02.676] } 1582s [00:53:02.676] else { 1582s [00:53:02.676] if (TRUE) { 1582s [00:53:02.676] ...future.stdout <- base::rawConnection(base::raw(0L), 1582s [00:53:02.676] open = "w") 1582s [00:53:02.676] } 1582s [00:53:02.676] else { 1582s [00:53:02.676] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1582s [00:53:02.676] windows = "NUL", "/dev/null"), open = "w") 1582s [00:53:02.676] } 1582s [00:53:02.676] base::sink(...future.stdout, type = "output", split = FALSE) 1582s [00:53:02.676] base::on.exit(if (!base::is.null(...future.stdout)) { 1582s [00:53:02.676] base::sink(type = "output", split = FALSE) 1582s [00:53:02.676] base::close(...future.stdout) 1582s [00:53:02.676] }, add = TRUE) 1582s [00:53:02.676] } 1582s [00:53:02.676] ...future.frame <- base::sys.nframe() 1582s [00:53:02.676] ...future.conditions <- base::list() 1582s [00:53:02.676] ...future.rng <- base::globalenv()$.Random.seed 1582s [00:53:02.676] if (FALSE) { 1582s [00:53:02.676] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1582s [00:53:02.676] "...future.value", "...future.globalenv.names", ".Random.seed") 1582s [00:53:02.676] } 1582s [00:53:02.676] ...future.result <- base::tryCatch({ 1582s [00:53:02.676] base::withCallingHandlers({ 1582s [00:53:02.676] ...future.value <- base::withVisible(base::local({ 1582s [00:53:02.676] do.call(function(...) { 1582s [00:53:02.676] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1582s [00:53:02.676] if (!identical(...future.globals.maxSize.org, 1582s [00:53:02.676] ...future.globals.maxSize)) { 1582s [00:53:02.676] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1582s [00:53:02.676] on.exit(options(oopts), add = TRUE) 1582s [00:53:02.676] } 1582s [00:53:02.676] { 1582s [00:53:02.676] lapply(seq_along(...future.elements_ii), 1582s [00:53:02.676] FUN = function(jj) { 1582s [00:53:02.676] ...future.X_jj <- ...future.elements_ii[[jj]] 1582s [00:53:02.676] ...future.FUN(...future.X_jj, ...) 1582s [00:53:02.676] }) 1582s [00:53:02.676] } 1582s [00:53:02.676] }, args = future.call.arguments) 1582s [00:53:02.676] })) 1582s [00:53:02.676] future::FutureResult(value = ...future.value$value, 1582s [00:53:02.676] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1582s [00:53:02.676] ...future.rng), globalenv = if (FALSE) 1582s [00:53:02.676] list(added = base::setdiff(base::names(base::.GlobalEnv), 1582s [00:53:02.676] ...future.globalenv.names)) 1582s [00:53:02.676] else NULL, started = ...future.startTime, version = "1.8") 1582s [00:53:02.676] }, condition = base::local({ 1582s [00:53:02.676] c <- base::c 1582s [00:53:02.676] inherits <- base::inherits 1582s [00:53:02.676] invokeRestart <- base::invokeRestart 1582s [00:53:02.676] length <- base::length 1582s [00:53:02.676] list <- base::list 1582s [00:53:02.676] seq.int <- base::seq.int 1582s [00:53:02.676] signalCondition <- base::signalCondition 1582s [00:53:02.676] sys.calls <- base::sys.calls 1582s [00:53:02.676] `[[` <- base::`[[` 1582s [00:53:02.676] `+` <- base::`+` 1582s [00:53:02.676] `<<-` <- base::`<<-` 1582s [00:53:02.676] sysCalls <- function(calls = sys.calls(), from = 1L) { 1582s [00:53:02.676] calls[seq.int(from = from + 12L, to = length(calls) - 1582s [00:53:02.676] 3L)] 1582s [00:53:02.676] } 1582s [00:53:02.676] function(cond) { 1582s [00:53:02.676] is_error <- inherits(cond, "error") 1582s [00:53:02.676] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1582s [00:53:02.676] NULL) 1582s [00:53:02.676] if (is_error) { 1582s [00:53:02.676] sessionInformation <- function() { 1582s [00:53:02.676] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1582s [00:53:02.676] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1582s [00:53:02.676] search = base::search(), system = base::Sys.info()) 1582s [00:53:02.676] } 1582s [00:53:02.676] ...future.conditions[[length(...future.conditions) + 1582s [00:53:02.676] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1582s [00:53:02.676] cond$call), session = sessionInformation(), 1582s [00:53:02.676] timestamp = base::Sys.time(), signaled = 0L) 1582s [00:53:02.676] signalCondition(cond) 1582s [00:53:02.676] } 1582s [00:53:02.676] else if (!ignore && TRUE && inherits(cond, c("condition", 1582s [00:53:02.676] "immediateCondition"))) { 1582s [00:53:02.676] signal <- TRUE && inherits(cond, "immediateCondition") 1582s [00:53:02.676] ...future.conditions[[length(...future.conditions) + 1582s [00:53:02.676] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1582s [00:53:02.676] if (TRUE && !signal) { 1582s [00:53:02.676] muffleCondition <- function (cond, pattern = "^muffle") 1582s [00:53:02.676] { 1582s [00:53:02.676] inherits <- base::inherits 1582s [00:53:02.676] invokeRestart <- base::invokeRestart 1582s [00:53:02.676] is.null <- base::is.null 1582s [00:53:02.676] muffled <- FALSE 1582s [00:53:02.676] if (inherits(cond, "message")) { 1582s [00:53:02.676] muffled <- grepl(pattern, "muffleMessage") 1582s [00:53:02.676] if (muffled) 1582s [00:53:02.676] invokeRestart("muffleMessage") 1582s [00:53:02.676] } 1582s [00:53:02.676] else if (inherits(cond, "warning")) { 1582s [00:53:02.676] muffled <- grepl(pattern, "muffleWarning") 1582s [00:53:02.676] if (muffled) 1582s [00:53:02.676] invokeRestart("muffleWarning") 1582s [00:53:02.676] } 1582s [00:53:02.676] else if (inherits(cond, "condition")) { 1582s [00:53:02.676] if (!is.null(pattern)) { 1582s [00:53:02.676] computeRestarts <- base::computeRestarts 1582s [00:53:02.676] grepl <- base::grepl 1582s [00:53:02.676] restarts <- computeRestarts(cond) 1582s [00:53:02.676] for (restart in restarts) { 1582s [00:53:02.676] name <- restart$name 1582s [00:53:02.676] if (is.null(name)) 1582s [00:53:02.676] next 1582s [00:53:02.676] if (!grepl(pattern, name)) 1582s [00:53:02.676] next 1582s [00:53:02.676] invokeRestart(restart) 1582s [00:53:02.676] muffled <- TRUE 1582s [00:53:02.676] break 1582s [00:53:02.676] } 1582s [00:53:02.676] } 1582s [00:53:02.676] } 1582s [00:53:02.676] invisible(muffled) 1582s [00:53:02.676] } 1582s [00:53:02.676] muffleCondition(cond, pattern = "^muffle") 1582s [00:53:02.676] } 1582s [00:53:02.676] } 1582s [00:53:02.676] else { 1582s [00:53:02.676] if (TRUE) { 1582s [00:53:02.676] muffleCondition <- function (cond, pattern = "^muffle") 1582s [00:53:02.676] { 1582s [00:53:02.676] inherits <- base::inherits 1582s [00:53:02.676] invokeRestart <- base::invokeRestart 1582s [00:53:02.676] is.null <- base::is.null 1582s [00:53:02.676] muffled <- FALSE 1582s [00:53:02.676] if (inherits(cond, "message")) { 1582s [00:53:02.676] muffled <- grepl(pattern, "muffleMessage") 1582s [00:53:02.676] if (muffled) 1582s [00:53:02.676] invokeRestart("muffleMessage") 1582s [00:53:02.676] } 1582s [00:53:02.676] else if (inherits(cond, "warning")) { 1582s [00:53:02.676] muffled <- grepl(pattern, "muffleWarning") 1582s [00:53:02.676] if (muffled) 1582s [00:53:02.676] invokeRestart("muffleWarning") 1582s [00:53:02.676] } 1582s [00:53:02.676] else if (inherits(cond, "condition")) { 1582s [00:53:02.676] if (!is.null(pattern)) { 1582s [00:53:02.676] computeRestarts <- base::computeRestarts 1582s [00:53:02.676] grepl <- base::grepl 1582s [00:53:02.676] restarts <- computeRestarts(cond) 1582s [00:53:02.676] for (restart in restarts) { 1582s [00:53:02.676] name <- restart$name 1582s [00:53:02.676] if (is.null(name)) 1582s [00:53:02.676] next 1582s [00:53:02.676] if (!grepl(pattern, name)) 1582s [00:53:02.676] next 1582s [00:53:02.676] invokeRestart(restart) 1582s [00:53:02.676] muffled <- TRUE 1582s [00:53:02.676] break 1582s [00:53:02.676] } 1582s [00:53:02.676] } 1582s [00:53:02.676] } 1582s [00:53:02.676] invisible(muffled) 1582s [00:53:02.676] } 1582s [00:53:02.676] muffleCondition(cond, pattern = "^muffle") 1582s [00:53:02.676] } 1582s [00:53:02.676] } 1582s [00:53:02.676] } 1582s [00:53:02.676] })) 1582s [00:53:02.676] }, error = function(ex) { 1582s [00:53:02.676] base::structure(base::list(value = NULL, visible = NULL, 1582s [00:53:02.676] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1582s [00:53:02.676] ...future.rng), started = ...future.startTime, 1582s [00:53:02.676] finished = Sys.time(), session_uuid = NA_character_, 1582s [00:53:02.676] version = "1.8"), class = "FutureResult") 1582s [00:53:02.676] }, finally = { 1582s [00:53:02.676] if (!identical(...future.workdir, getwd())) 1582s [00:53:02.676] setwd(...future.workdir) 1582s [00:53:02.676] { 1582s [00:53:02.676] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1582s [00:53:02.676] ...future.oldOptions$nwarnings <- NULL 1582s [00:53:02.676] } 1582s [00:53:02.676] base::options(...future.oldOptions) 1582s [00:53:02.676] if (.Platform$OS.type == "windows") { 1582s [00:53:02.676] old_names <- names(...future.oldEnvVars) 1582s [00:53:02.676] envs <- base::Sys.getenv() 1582s [00:53:02.676] names <- names(envs) 1582s [00:53:02.676] common <- intersect(names, old_names) 1582s [00:53:02.676] added <- setdiff(names, old_names) 1582s [00:53:02.676] removed <- setdiff(old_names, names) 1582s [00:53:02.676] changed <- common[...future.oldEnvVars[common] != 1582s [00:53:02.676] envs[common]] 1582s [00:53:02.676] NAMES <- toupper(changed) 1582s [00:53:02.676] args <- list() 1582s [00:53:02.676] for (kk in seq_along(NAMES)) { 1582s [00:53:02.676] name <- changed[[kk]] 1582s [00:53:02.676] NAME <- NAMES[[kk]] 1582s [00:53:02.676] if (name != NAME && is.element(NAME, old_names)) 1582s [00:53:02.676] next 1582s [00:53:02.676] args[[name]] <- ...future.oldEnvVars[[name]] 1582s [00:53:02.676] } 1582s [00:53:02.676] NAMES <- toupper(added) 1582s [00:53:02.676] for (kk in seq_along(NAMES)) { 1582s [00:53:02.676] name <- added[[kk]] 1582s [00:53:02.676] NAME <- NAMES[[kk]] 1582s [00:53:02.676] if (name != NAME && is.element(NAME, old_names)) 1582s [00:53:02.676] next 1582s [00:53:02.676] args[[name]] <- "" 1582s [00:53:02.676] } 1582s [00:53:02.676] NAMES <- toupper(removed) 1582s [00:53:02.676] for (kk in seq_along(NAMES)) { 1582s [00:53:02.676] name <- removed[[kk]] 1582s [00:53:02.676] NAME <- NAMES[[kk]] 1582s [00:53:02.676] if (name != NAME && is.element(NAME, old_names)) 1582s [00:53:02.676] next 1582s [00:53:02.676] args[[name]] <- ...future.oldEnvVars[[name]] 1582s [00:53:02.676] } 1582s [00:53:02.676] if (length(args) > 0) 1582s [00:53:02.676] base::do.call(base::Sys.setenv, args = args) 1582s [00:53:02.676] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1582s [00:53:02.676] } 1582s [00:53:02.676] else { 1582s [00:53:02.676] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1582s [00:53:02.676] } 1582s [00:53:02.676] { 1582s [00:53:02.676] if (base::length(...future.futureOptionsAdded) > 1582s [00:53:02.676] 0L) { 1582s [00:53:02.676] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1582s [00:53:02.676] base::names(opts) <- ...future.futureOptionsAdded 1582s [00:53:02.676] base::options(opts) 1582s [00:53:02.676] } 1582s [00:53:02.676] { 1582s [00:53:02.676] { 1582s [00:53:02.676] NULL 1582s [00:53:02.676] RNGkind("Mersenne-Twister") 1582s [00:53:02.676] base::rm(list = ".Random.seed", envir = base::globalenv(), 1582s [00:53:02.676] inherits = FALSE) 1582s [00:53:02.676] } 1582s [00:53:02.676] options(future.plan = NULL) 1582s [00:53:02.676] if (is.na(NA_character_)) 1582s [00:53:02.676] Sys.unsetenv("R_FUTURE_PLAN") 1582s [00:53:02.676] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1582s [00:53:02.676] future::plan(list(function (..., workers = availableCores(), 1582s [00:53:02.676] lazy = FALSE, rscript_libs = .libPaths(), 1582s [00:53:02.676] envir = parent.frame()) 1582s [00:53:02.676] { 1582s [00:53:02.676] if (is.function(workers)) 1582s [00:53:02.676] workers <- workers() 1582s [00:53:02.676] workers <- structure(as.integer(workers), 1582s [00:53:02.676] class = class(workers)) 1582s [00:53:02.676] stop_if_not(length(workers) == 1, is.finite(workers), 1582s [00:53:02.676] workers >= 1) 1582s [00:53:02.676] if (workers == 1L && !inherits(workers, "AsIs")) { 1582s [00:53:02.676] return(sequential(..., lazy = TRUE, envir = envir)) 1582s [00:53:02.676] } 1582s [00:53:02.676] future <- MultisessionFuture(..., workers = workers, 1582s [00:53:02.676] lazy = lazy, rscript_libs = rscript_libs, 1582s [00:53:02.676] envir = envir) 1582s [00:53:02.676] if (!future$lazy) 1582s [00:53:02.676] future <- run(future) 1582s [00:53:02.676] invisible(future) 1582s [00:53:02.676] }), .cleanup = FALSE, .init = FALSE) 1582s [00:53:02.676] } 1582s [00:53:02.676] } 1582s [00:53:02.676] } 1582s [00:53:02.676] }) 1582s [00:53:02.676] if (TRUE) { 1582s [00:53:02.676] base::sink(type = "output", split = FALSE) 1582s [00:53:02.676] if (TRUE) { 1582s [00:53:02.676] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1582s [00:53:02.676] } 1582s [00:53:02.676] else { 1582s [00:53:02.676] ...future.result["stdout"] <- base::list(NULL) 1582s [00:53:02.676] } 1582s [00:53:02.676] base::close(...future.stdout) 1582s [00:53:02.676] ...future.stdout <- NULL 1582s [00:53:02.676] } 1582s [00:53:02.676] ...future.result$conditions <- ...future.conditions 1582s [00:53:02.676] ...future.result$finished <- base::Sys.time() 1582s [00:53:02.676] ...future.result 1582s [00:53:02.676] } 1582s [00:53:02.681] assign_globals() ... 1582s [00:53:02.681] List of 5 1582s [00:53:02.681] $ ...future.FUN :function (x, ...) 1582s [00:53:02.681] $ future.call.arguments : list() 1582s [00:53:02.681] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1582s [00:53:02.681] $ ...future.elements_ii :List of 3 1582s [00:53:02.681] ..$ : chr "a" 1582s [00:53:02.681] ..$ : chr "b" 1582s [00:53:02.681] ..$ : chr "c" 1582s [00:53:02.681] $ ...future.seeds_ii : NULL 1582s [00:53:02.681] $ ...future.globals.maxSize: NULL 1582s [00:53:02.681] - attr(*, "where")=List of 5 1582s [00:53:02.681] ..$ ...future.FUN : 1582s [00:53:02.681] ..$ future.call.arguments : 1582s [00:53:02.681] ..$ ...future.elements_ii : 1582s [00:53:02.681] ..$ ...future.seeds_ii : 1582s [00:53:02.681] ..$ ...future.globals.maxSize: 1582s [00:53:02.681] - attr(*, "resolved")= logi FALSE 1582s [00:53:02.681] - attr(*, "total_size")= num 1248 1582s [00:53:02.681] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1582s [00:53:02.681] - attr(*, "already-done")= logi TRUE 1582s [00:53:02.689] - copied ‘...future.FUN’ to environment 1582s [00:53:02.689] - copied ‘future.call.arguments’ to environment 1582s [00:53:02.689] - copied ‘...future.elements_ii’ to environment 1582s [00:53:02.689] - copied ‘...future.seeds_ii’ to environment 1582s [00:53:02.689] - copied ‘...future.globals.maxSize’ to environment 1582s [00:53:02.689] assign_globals() ... done 1582s [00:53:02.690] plan(): Setting new future strategy stack: 1582s [00:53:02.690] List of future strategies: 1582s [00:53:02.690] 1. sequential: 1582s [00:53:02.690] - args: function (..., envir = parent.frame()) 1582s [00:53:02.690] - tweaked: FALSE 1582s [00:53:02.690] - call: NULL 1582s [00:53:02.691] plan(): nbrOfWorkers() = 1 1582s [00:53:02.692] plan(): Setting new future strategy stack: 1582s [00:53:02.692] List of future strategies: 1582s [00:53:02.692] 1. multisession: 1582s [00:53:02.692] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1582s [00:53:02.692] - tweaked: FALSE 1582s [00:53:02.692] - call: plan(strategy) 1582s [00:53:02.696] plan(): nbrOfWorkers() = 1 1582s [00:53:02.697] SequentialFuture started (and completed) 1582s [00:53:02.697] - Launch lazy future ... done 1582s [00:53:02.697] run() for ‘SequentialFuture’ ... done 1582s [00:53:02.697] Created future: 1582s [00:53:02.697] SequentialFuture: 1582s [00:53:02.697] Label: ‘future_sapply-1’ 1582s [00:53:02.697] Expression: 1582s [00:53:02.697] { 1582s [00:53:02.697] do.call(function(...) { 1582s [00:53:02.697] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1582s [00:53:02.697] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1582s [00:53:02.697] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1582s [00:53:02.697] on.exit(options(oopts), add = TRUE) 1582s [00:53:02.697] } 1582s [00:53:02.697] { 1582s [00:53:02.697] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1582s [00:53:02.697] ...future.X_jj <- ...future.elements_ii[[jj]] 1582s [00:53:02.697] ...future.FUN(...future.X_jj, ...) 1582s [00:53:02.697] }) 1582s [00:53:02.697] } 1582s [00:53:02.697] }, args = future.call.arguments) 1582s [00:53:02.697] } 1582s [00:53:02.697] Lazy evaluation: FALSE 1582s [00:53:02.697] Asynchronous evaluation: FALSE 1582s [00:53:02.697] Local evaluation: TRUE 1582s [00:53:02.697] Environment: R_GlobalEnv 1582s [00:53:02.697] Capture standard output: TRUE 1582s [00:53:02.697] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1582s [00:53:02.697] Globals: 5 objects totaling 1.55 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1582s [00:53:02.697] Packages: 1582s [00:53:02.697] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1582s [00:53:02.697] Resolved: TRUE 1582s [00:53:02.697] Value: 840 bytes of class ‘list’ 1582s [00:53:02.697] Early signaling: FALSE 1582s [00:53:02.697] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1582s [00:53:02.697] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1582s [00:53:02.699] Chunk #1 of 1 ... DONE 1582s [00:53:02.699] Launching 1 futures (chunks) ... DONE 1582s [00:53:02.699] Resolving 1 futures (chunks) ... 1582s [00:53:02.699] resolve() on list ... 1582s [00:53:02.700] recursive: 0 1582s [00:53:02.700] length: 1 1582s [00:53:02.700] 1582s [00:53:02.700] resolved() for ‘SequentialFuture’ ... 1582s [00:53:02.700] - state: ‘finished’ 1582s [00:53:02.700] - run: TRUE 1582s [00:53:02.701] - result: ‘FutureResult’ 1582s [00:53:02.701] resolved() for ‘SequentialFuture’ ... done 1582s [00:53:02.701] Future #1 1582s [00:53:02.701] signalConditionsASAP(SequentialFuture, pos=1) ... 1582s [00:53:02.701] - nx: 1 1582s [00:53:02.701] - relay: TRUE 1582s [00:53:02.702] - stdout: TRUE 1582s [00:53:02.702] - signal: TRUE 1582s [00:53:02.702] - resignal: FALSE 1582s [00:53:02.703] - force: TRUE 1582s [00:53:02.703] - relayed: [n=1] FALSE 1582s [00:53:02.703] - queued futures: [n=1] FALSE 1582s [00:53:02.703] - until=1 1582s [00:53:02.703] - relaying element #1 1582s [00:53:02.704] - relayed: [n=1] TRUE 1582s [00:53:02.704] - queued futures: [n=1] TRUE 1582s [00:53:02.704] signalConditionsASAP(SequentialFuture, pos=1) ... done 1582s [00:53:02.704] length: 0 (resolved future 1) 1582s [00:53:02.704] Relaying remaining futures 1582s [00:53:02.705] signalConditionsASAP(NULL, pos=0) ... 1582s [00:53:02.705] - nx: 1 1582s [00:53:02.705] - relay: TRUE 1582s [00:53:02.705] - stdout: TRUE 1582s [00:53:02.705] - signal: TRUE 1582s [00:53:02.705] - resignal: FALSE 1582s [00:53:02.706] - force: TRUE 1582s [00:53:02.706] - relayed: [n=1] TRUE 1582s [00:53:02.706] - queued futures: [n=1] TRUE 1582s - flush all 1582s [00:53:02.707] - relayed: [n=1] TRUE 1582s [00:53:02.707] - queued futures: [n=1] TRUE 1582s [00:53:02.707] signalConditionsASAP(NULL, pos=0) ... done 1582s [00:53:02.707] resolve() on list ... DONE 1582s [00:53:02.707] - Number of value chunks collected: 1 1582s [00:53:02.708] Resolving 1 futures (chunks) ... DONE 1582s [00:53:02.708] Reducing values from 1 chunks ... 1582s [00:53:02.708] - Number of values collected after concatenation: 3 1582s [00:53:02.708] - Number of values expected: 3 1582s [00:53:02.708] Reducing values from 1 chunks ... DONE 1582s [00:53:02.708] future_lapply() ... DONE 1582s [00:53:02.710] future_lapply() ... 1582s [00:53:02.715] Number of chunks: 1 1582s [00:53:02.715] getGlobalsAndPackagesXApply() ... 1582s [00:53:02.716] - future.globals: TRUE 1582s [00:53:02.716] getGlobalsAndPackages() ... 1582s [00:53:02.716] Searching for globals... 1582s [00:53:02.718] - globals found: [1] ‘FUN’ 1582s [00:53:02.718] Searching for globals ... DONE 1582s [00:53:02.718] Resolving globals: FALSE 1582s [00:53:02.718] The total size of the 1 globals is 848 bytes (848 bytes) 1582s [00:53:02.719] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1582s [00:53:02.719] - globals: [1] ‘FUN’ 1582s List of 2 1582s $ y0: chr [1:3] "a" "b" "c" 1582s $ y1: chr [1:3] "a" "b" "c" 1582s [00:53:02.720] 1582s [00:53:02.720] getGlobalsAndPackages() ... DONE 1582s [00:53:02.720] - globals found/used: [n=1] ‘FUN’ 1582s [00:53:02.720] - needed namespaces: [n=0] 1582s [00:53:02.721] Finding globals ... DONE 1582s [00:53:02.721] - use_args: TRUE 1582s [00:53:02.721] - Getting '...' globals ... 1582s [00:53:02.721] resolve() on list ... 1582s [00:53:02.722] recursive: 0 1582s [00:53:02.722] length: 1 1582s [00:53:02.722] elements: ‘...’ 1582s [00:53:02.723] length: 0 (resolved future 1) 1582s [00:53:02.723] resolve() on list ... DONE 1582s [00:53:02.723] - '...' content: [n=0] 1582s [00:53:02.724] List of 1 1582s [00:53:02.724] $ ...: list() 1582s [00:53:02.724] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1582s [00:53:02.724] - attr(*, "where")=List of 1 1582s [00:53:02.724] ..$ ...: 1582s [00:53:02.724] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1582s [00:53:02.724] - attr(*, "resolved")= logi TRUE 1582s [00:53:02.724] - attr(*, "total_size")= num NA 1582s [00:53:02.729] - Getting '...' globals ... DONE 1582s [00:53:02.729] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1582s [00:53:02.729] List of 2 1582s [00:53:02.729] $ ...future.FUN:function (x) 1582s [00:53:02.729] $ ... : list() 1582s [00:53:02.729] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1582s [00:53:02.729] - attr(*, "where")=List of 2 1582s [00:53:02.729] ..$ ...future.FUN: 1582s [00:53:02.729] ..$ ... : 1582s [00:53:02.729] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1582s [00:53:02.729] - attr(*, "resolved")= logi FALSE 1582s [00:53:02.729] - attr(*, "total_size")= num 848 1582s [00:53:02.735] Packages to be attached in all futures: [n=0] 1582s [00:53:02.736] getGlobalsAndPackagesXApply() ... DONE 1582s [00:53:02.736] Number of futures (= number of chunks): 1 1582s [00:53:02.736] Launching 1 futures (chunks) ... 1582s [00:53:02.736] Chunk #1 of 1 ... 1582s [00:53:02.736] - Finding globals in 'X' for chunk #1 ... 1582s [00:53:02.737] getGlobalsAndPackages() ... 1582s [00:53:02.737] Searching for globals... 1582s [00:53:02.737] 1582s [00:53:02.738] Searching for globals ... DONE 1582s [00:53:02.738] - globals: [0] 1582s [00:53:02.738] getGlobalsAndPackages() ... DONE 1582s [00:53:02.738] + additional globals found: [n=0] 1582s [00:53:02.738] + additional namespaces needed: [n=0] 1582s [00:53:02.739] - Finding globals in 'X' for chunk #1 ... DONE 1582s [00:53:02.739] - seeds: 1582s [00:53:02.739] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1582s [00:53:02.740] getGlobalsAndPackages() ... 1582s [00:53:02.746] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1582s [00:53:02.746] Resolving globals: FALSE 1582s [00:53:02.747] Tweak future expression to call with '...' arguments ... 1582s [00:53:02.747] { 1582s [00:53:02.747] do.call(function(...) { 1582s [00:53:02.747] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1582s [00:53:02.747] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1582s [00:53:02.747] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1582s [00:53:02.747] on.exit(options(oopts), add = TRUE) 1582s [00:53:02.747] } 1582s [00:53:02.747] { 1582s [00:53:02.747] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1582s [00:53:02.747] ...future.X_jj <- ...future.elements_ii[[jj]] 1582s [00:53:02.747] ...future.FUN(...future.X_jj, ...) 1582s [00:53:02.747] }) 1582s [00:53:02.747] } 1582s [00:53:02.747] }, args = future.call.arguments) 1582s [00:53:02.747] } 1582s [00:53:02.747] Tweak future expression to call with '...' arguments ... DONE 1582s [00:53:02.748] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1582s [00:53:02.748] 1582s [00:53:02.749] getGlobalsAndPackages() ... DONE 1582s [00:53:02.749] run() for ‘Future’ ... 1582s [00:53:02.749] - state: ‘created’ 1582s [00:53:02.749] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1582s [00:53:02.755] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1582s [00:53:02.755] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1582s [00:53:02.756] - Field: ‘label’ 1582s [00:53:02.756] - Field: ‘local’ 1582s [00:53:02.756] - Field: ‘owner’ 1582s [00:53:02.756] - Field: ‘envir’ 1582s [00:53:02.757] - Field: ‘packages’ 1582s [00:53:02.757] - Field: ‘gc’ 1582s [00:53:02.757] - Field: ‘conditions’ 1582s [00:53:02.757] - Field: ‘expr’ 1582s [00:53:02.758] - Field: ‘uuid’ 1582s [00:53:02.758] - Field: ‘seed’ 1582s [00:53:02.759] - Field: ‘version’ 1582s [00:53:02.759] - Field: ‘result’ 1582s [00:53:02.759] - Field: ‘asynchronous’ 1582s [00:53:02.759] - Field: ‘calls’ 1582s [00:53:02.760] - Field: ‘globals’ 1582s [00:53:02.760] - Field: ‘stdout’ 1582s [00:53:02.760] - Field: ‘earlySignal’ 1582s [00:53:02.760] - Field: ‘lazy’ 1582s [00:53:02.760] - Field: ‘state’ 1582s [00:53:02.761] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1582s [00:53:02.761] - Launch lazy future ... 1582s [00:53:02.761] Packages needed by the future expression (n = 0): 1582s [00:53:02.761] Packages needed by future strategies (n = 0): 1582s [00:53:02.762] { 1582s [00:53:02.762] { 1582s [00:53:02.762] { 1582s [00:53:02.762] ...future.startTime <- base::Sys.time() 1582s [00:53:02.762] { 1582s [00:53:02.762] { 1582s [00:53:02.762] { 1582s [00:53:02.762] base::local({ 1582s [00:53:02.762] has_future <- base::requireNamespace("future", 1582s [00:53:02.762] quietly = TRUE) 1582s [00:53:02.762] if (has_future) { 1582s [00:53:02.762] ns <- base::getNamespace("future") 1582s [00:53:02.762] version <- ns[[".package"]][["version"]] 1582s [00:53:02.762] if (is.null(version)) 1582s [00:53:02.762] version <- utils::packageVersion("future") 1582s [00:53:02.762] } 1582s [00:53:02.762] else { 1582s [00:53:02.762] version <- NULL 1582s [00:53:02.762] } 1582s [00:53:02.762] if (!has_future || version < "1.8.0") { 1582s [00:53:02.762] info <- base::c(r_version = base::gsub("R version ", 1582s [00:53:02.762] "", base::R.version$version.string), 1582s [00:53:02.762] platform = base::sprintf("%s (%s-bit)", 1582s [00:53:02.762] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1582s [00:53:02.762] os = base::paste(base::Sys.info()[base::c("sysname", 1582s [00:53:02.762] "release", "version")], collapse = " "), 1582s [00:53:02.762] hostname = base::Sys.info()[["nodename"]]) 1582s [00:53:02.762] info <- base::sprintf("%s: %s", base::names(info), 1582s [00:53:02.762] info) 1582s [00:53:02.762] info <- base::paste(info, collapse = "; ") 1582s [00:53:02.762] if (!has_future) { 1582s [00:53:02.762] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1582s [00:53:02.762] info) 1582s [00:53:02.762] } 1582s [00:53:02.762] else { 1582s [00:53:02.762] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1582s [00:53:02.762] info, version) 1582s [00:53:02.762] } 1582s [00:53:02.762] base::stop(msg) 1582s [00:53:02.762] } 1582s [00:53:02.762] }) 1582s [00:53:02.762] } 1582s [00:53:02.762] options(future.plan = NULL) 1582s [00:53:02.762] Sys.unsetenv("R_FUTURE_PLAN") 1582s [00:53:02.762] future::plan("default", .cleanup = FALSE, .init = FALSE) 1582s [00:53:02.762] } 1582s [00:53:02.762] ...future.workdir <- getwd() 1582s [00:53:02.762] } 1582s [00:53:02.762] ...future.oldOptions <- base::as.list(base::.Options) 1582s [00:53:02.762] ...future.oldEnvVars <- base::Sys.getenv() 1582s [00:53:02.762] } 1582s [00:53:02.762] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1582s [00:53:02.762] future.globals.maxSize = NULL, future.globals.method = NULL, 1582s [00:53:02.762] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1582s [00:53:02.762] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1582s [00:53:02.762] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1582s [00:53:02.762] future.stdout.windows.reencode = NULL, width = 80L) 1582s [00:53:02.762] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1582s [00:53:02.762] base::names(...future.oldOptions)) 1582s [00:53:02.762] } 1582s [00:53:02.762] if (FALSE) { 1582s [00:53:02.762] } 1582s [00:53:02.762] else { 1582s [00:53:02.762] if (TRUE) { 1582s [00:53:02.762] ...future.stdout <- base::rawConnection(base::raw(0L), 1582s [00:53:02.762] open = "w") 1582s [00:53:02.762] } 1582s [00:53:02.762] else { 1582s [00:53:02.762] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1582s [00:53:02.762] windows = "NUL", "/dev/null"), open = "w") 1582s [00:53:02.762] } 1582s [00:53:02.762] base::sink(...future.stdout, type = "output", split = FALSE) 1582s [00:53:02.762] base::on.exit(if (!base::is.null(...future.stdout)) { 1582s [00:53:02.762] base::sink(type = "output", split = FALSE) 1582s [00:53:02.762] base::close(...future.stdout) 1582s [00:53:02.762] }, add = TRUE) 1582s [00:53:02.762] } 1582s [00:53:02.762] ...future.frame <- base::sys.nframe() 1582s [00:53:02.762] ...future.conditions <- base::list() 1582s [00:53:02.762] ...future.rng <- base::globalenv()$.Random.seed 1582s [00:53:02.762] if (FALSE) { 1582s [00:53:02.762] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1582s [00:53:02.762] "...future.value", "...future.globalenv.names", ".Random.seed") 1582s [00:53:02.762] } 1582s [00:53:02.762] ...future.result <- base::tryCatch({ 1582s [00:53:02.762] base::withCallingHandlers({ 1582s [00:53:02.762] ...future.value <- base::withVisible(base::local({ 1582s [00:53:02.762] do.call(function(...) { 1582s [00:53:02.762] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1582s [00:53:02.762] if (!identical(...future.globals.maxSize.org, 1582s [00:53:02.762] ...future.globals.maxSize)) { 1582s [00:53:02.762] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1582s [00:53:02.762] on.exit(options(oopts), add = TRUE) 1582s [00:53:02.762] } 1582s [00:53:02.762] { 1582s [00:53:02.762] lapply(seq_along(...future.elements_ii), 1582s [00:53:02.762] FUN = function(jj) { 1582s [00:53:02.762] ...future.X_jj <- ...future.elements_ii[[jj]] 1582s [00:53:02.762] ...future.FUN(...future.X_jj, ...) 1582s [00:53:02.762] }) 1582s [00:53:02.762] } 1582s [00:53:02.762] }, args = future.call.arguments) 1582s [00:53:02.762] })) 1582s [00:53:02.762] future::FutureResult(value = ...future.value$value, 1582s [00:53:02.762] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1582s [00:53:02.762] ...future.rng), globalenv = if (FALSE) 1582s [00:53:02.762] list(added = base::setdiff(base::names(base::.GlobalEnv), 1582s [00:53:02.762] ...future.globalenv.names)) 1582s [00:53:02.762] else NULL, started = ...future.startTime, version = "1.8") 1582s [00:53:02.762] }, condition = base::local({ 1582s [00:53:02.762] c <- base::c 1582s [00:53:02.762] inherits <- base::inherits 1582s [00:53:02.762] invokeRestart <- base::invokeRestart 1582s [00:53:02.762] length <- base::length 1582s [00:53:02.762] list <- base::list 1582s [00:53:02.762] seq.int <- base::seq.int 1582s [00:53:02.762] signalCondition <- base::signalCondition 1582s [00:53:02.762] sys.calls <- base::sys.calls 1582s [00:53:02.762] `[[` <- base::`[[` 1582s [00:53:02.762] `+` <- base::`+` 1582s [00:53:02.762] `<<-` <- base::`<<-` 1582s [00:53:02.762] sysCalls <- function(calls = sys.calls(), from = 1L) { 1582s [00:53:02.762] calls[seq.int(from = from + 12L, to = length(calls) - 1582s [00:53:02.762] 3L)] 1582s [00:53:02.762] } 1582s [00:53:02.762] function(cond) { 1582s [00:53:02.762] is_error <- inherits(cond, "error") 1582s [00:53:02.762] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1582s [00:53:02.762] NULL) 1582s [00:53:02.762] if (is_error) { 1582s [00:53:02.762] sessionInformation <- function() { 1582s [00:53:02.762] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1582s [00:53:02.762] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1582s [00:53:02.762] search = base::search(), system = base::Sys.info()) 1582s [00:53:02.762] } 1582s [00:53:02.762] ...future.conditions[[length(...future.conditions) + 1582s [00:53:02.762] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1582s [00:53:02.762] cond$call), session = sessionInformation(), 1582s [00:53:02.762] timestamp = base::Sys.time(), signaled = 0L) 1582s [00:53:02.762] signalCondition(cond) 1582s [00:53:02.762] } 1582s [00:53:02.762] else if (!ignore && TRUE && inherits(cond, c("condition", 1582s [00:53:02.762] "immediateCondition"))) { 1582s [00:53:02.762] signal <- TRUE && inherits(cond, "immediateCondition") 1582s [00:53:02.762] ...future.conditions[[length(...future.conditions) + 1582s [00:53:02.762] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1582s [00:53:02.762] if (TRUE && !signal) { 1582s [00:53:02.762] muffleCondition <- function (cond, pattern = "^muffle") 1582s [00:53:02.762] { 1582s [00:53:02.762] inherits <- base::inherits 1582s [00:53:02.762] invokeRestart <- base::invokeRestart 1582s [00:53:02.762] is.null <- base::is.null 1582s [00:53:02.762] muffled <- FALSE 1582s [00:53:02.762] if (inherits(cond, "message")) { 1582s [00:53:02.762] muffled <- grepl(pattern, "muffleMessage") 1582s [00:53:02.762] if (muffled) 1582s [00:53:02.762] invokeRestart("muffleMessage") 1582s [00:53:02.762] } 1582s [00:53:02.762] else if (inherits(cond, "warning")) { 1582s [00:53:02.762] muffled <- grepl(pattern, "muffleWarning") 1582s [00:53:02.762] if (muffled) 1582s [00:53:02.762] invokeRestart("muffleWarning") 1582s [00:53:02.762] } 1582s [00:53:02.762] else if (inherits(cond, "condition")) { 1582s [00:53:02.762] if (!is.null(pattern)) { 1582s [00:53:02.762] computeRestarts <- base::computeRestarts 1582s [00:53:02.762] grepl <- base::grepl 1582s [00:53:02.762] restarts <- computeRestarts(cond) 1582s [00:53:02.762] for (restart in restarts) { 1582s [00:53:02.762] name <- restart$name 1582s [00:53:02.762] if (is.null(name)) 1582s [00:53:02.762] next 1582s [00:53:02.762] if (!grepl(pattern, name)) 1582s [00:53:02.762] next 1582s [00:53:02.762] invokeRestart(restart) 1582s [00:53:02.762] muffled <- TRUE 1582s [00:53:02.762] break 1582s [00:53:02.762] } 1582s [00:53:02.762] } 1582s [00:53:02.762] } 1582s [00:53:02.762] invisible(muffled) 1582s [00:53:02.762] } 1582s [00:53:02.762] muffleCondition(cond, pattern = "^muffle") 1582s [00:53:02.762] } 1582s [00:53:02.762] } 1582s [00:53:02.762] else { 1582s [00:53:02.762] if (TRUE) { 1582s [00:53:02.762] muffleCondition <- function (cond, pattern = "^muffle") 1582s [00:53:02.762] { 1582s [00:53:02.762] inherits <- base::inherits 1582s [00:53:02.762] invokeRestart <- base::invokeRestart 1582s [00:53:02.762] is.null <- base::is.null 1582s [00:53:02.762] muffled <- FALSE 1582s [00:53:02.762] if (inherits(cond, "message")) { 1582s [00:53:02.762] muffled <- grepl(pattern, "muffleMessage") 1582s [00:53:02.762] if (muffled) 1582s [00:53:02.762] invokeRestart("muffleMessage") 1582s [00:53:02.762] } 1582s [00:53:02.762] else if (inherits(cond, "warning")) { 1582s [00:53:02.762] muffled <- grepl(pattern, "muffleWarning") 1582s [00:53:02.762] if (muffled) 1582s [00:53:02.762] invokeRestart("muffleWarning") 1582s [00:53:02.762] } 1582s [00:53:02.762] else if (inherits(cond, "condition")) { 1582s [00:53:02.762] if (!is.null(pattern)) { 1582s [00:53:02.762] computeRestarts <- base::computeRestarts 1582s [00:53:02.762] grepl <- base::grepl 1582s [00:53:02.762] restarts <- computeRestarts(cond) 1582s [00:53:02.762] for (restart in restarts) { 1582s [00:53:02.762] name <- restart$name 1582s [00:53:02.762] if (is.null(name)) 1582s [00:53:02.762] next 1582s [00:53:02.762] if (!grepl(pattern, name)) 1582s [00:53:02.762] next 1582s [00:53:02.762] invokeRestart(restart) 1582s [00:53:02.762] muffled <- TRUE 1582s [00:53:02.762] break 1582s [00:53:02.762] } 1582s [00:53:02.762] } 1582s [00:53:02.762] } 1582s [00:53:02.762] invisible(muffled) 1582s [00:53:02.762] } 1582s [00:53:02.762] muffleCondition(cond, pattern = "^muffle") 1582s [00:53:02.762] } 1582s [00:53:02.762] } 1582s [00:53:02.762] } 1582s [00:53:02.762] })) 1582s [00:53:02.762] }, error = function(ex) { 1582s [00:53:02.762] base::structure(base::list(value = NULL, visible = NULL, 1582s [00:53:02.762] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1582s [00:53:02.762] ...future.rng), started = ...future.startTime, 1582s [00:53:02.762] finished = Sys.time(), session_uuid = NA_character_, 1582s [00:53:02.762] version = "1.8"), class = "FutureResult") 1582s [00:53:02.762] }, finally = { 1582s [00:53:02.762] if (!identical(...future.workdir, getwd())) 1582s [00:53:02.762] setwd(...future.workdir) 1582s [00:53:02.762] { 1582s [00:53:02.762] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1582s [00:53:02.762] ...future.oldOptions$nwarnings <- NULL 1582s [00:53:02.762] } 1582s [00:53:02.762] base::options(...future.oldOptions) 1582s [00:53:02.762] if (.Platform$OS.type == "windows") { 1582s [00:53:02.762] old_names <- names(...future.oldEnvVars) 1582s [00:53:02.762] envs <- base::Sys.getenv() 1582s [00:53:02.762] names <- names(envs) 1582s [00:53:02.762] common <- intersect(names, old_names) 1582s [00:53:02.762] added <- setdiff(names, old_names) 1582s [00:53:02.762] removed <- setdiff(old_names, names) 1582s [00:53:02.762] changed <- common[...future.oldEnvVars[common] != 1582s [00:53:02.762] envs[common]] 1582s [00:53:02.762] NAMES <- toupper(changed) 1582s [00:53:02.762] args <- list() 1582s [00:53:02.762] for (kk in seq_along(NAMES)) { 1582s [00:53:02.762] name <- changed[[kk]] 1582s [00:53:02.762] NAME <- NAMES[[kk]] 1582s [00:53:02.762] if (name != NAME && is.element(NAME, old_names)) 1582s [00:53:02.762] next 1582s [00:53:02.762] args[[name]] <- ...future.oldEnvVars[[name]] 1582s [00:53:02.762] } 1582s [00:53:02.762] NAMES <- toupper(added) 1582s [00:53:02.762] for (kk in seq_along(NAMES)) { 1582s [00:53:02.762] name <- added[[kk]] 1582s [00:53:02.762] NAME <- NAMES[[kk]] 1582s [00:53:02.762] if (name != NAME && is.element(NAME, old_names)) 1582s [00:53:02.762] next 1582s [00:53:02.762] args[[name]] <- "" 1582s [00:53:02.762] } 1582s [00:53:02.762] NAMES <- toupper(removed) 1582s [00:53:02.762] for (kk in seq_along(NAMES)) { 1582s [00:53:02.762] name <- removed[[kk]] 1582s [00:53:02.762] NAME <- NAMES[[kk]] 1582s [00:53:02.762] if (name != NAME && is.element(NAME, old_names)) 1582s [00:53:02.762] next 1582s [00:53:02.762] args[[name]] <- ...future.oldEnvVars[[name]] 1582s [00:53:02.762] } 1582s [00:53:02.762] if (length(args) > 0) 1582s [00:53:02.762] base::do.call(base::Sys.setenv, args = args) 1582s [00:53:02.762] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1582s [00:53:02.762] } 1582s [00:53:02.762] else { 1582s [00:53:02.762] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1582s [00:53:02.762] } 1582s [00:53:02.762] { 1582s [00:53:02.762] if (base::length(...future.futureOptionsAdded) > 1582s [00:53:02.762] 0L) { 1582s [00:53:02.762] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1582s [00:53:02.762] base::names(opts) <- ...future.futureOptionsAdded 1582s [00:53:02.762] base::options(opts) 1582s [00:53:02.762] } 1582s [00:53:02.762] { 1582s [00:53:02.762] { 1582s [00:53:02.762] NULL 1582s [00:53:02.762] RNGkind("Mersenne-Twister") 1582s [00:53:02.762] base::rm(list = ".Random.seed", envir = base::globalenv(), 1582s [00:53:02.762] inherits = FALSE) 1582s [00:53:02.762] } 1582s [00:53:02.762] options(future.plan = NULL) 1582s [00:53:02.762] if (is.na(NA_character_)) 1582s [00:53:02.762] Sys.unsetenv("R_FUTURE_PLAN") 1582s [00:53:02.762] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1582s [00:53:02.762] future::plan(list(function (..., workers = availableCores(), 1582s [00:53:02.762] lazy = FALSE, rscript_libs = .libPaths(), 1582s [00:53:02.762] envir = parent.frame()) 1582s [00:53:02.762] { 1582s [00:53:02.762] if (is.function(workers)) 1582s [00:53:02.762] workers <- workers() 1582s [00:53:02.762] workers <- structure(as.integer(workers), 1582s [00:53:02.762] class = class(workers)) 1582s [00:53:02.762] stop_if_not(length(workers) == 1, is.finite(workers), 1582s [00:53:02.762] workers >= 1) 1582s [00:53:02.762] if (workers == 1L && !inherits(workers, "AsIs")) { 1582s [00:53:02.762] return(sequential(..., lazy = TRUE, envir = envir)) 1582s [00:53:02.762] } 1582s [00:53:02.762] future <- MultisessionFuture(..., workers = workers, 1582s [00:53:02.762] lazy = lazy, rscript_libs = rscript_libs, 1582s [00:53:02.762] envir = envir) 1582s [00:53:02.762] if (!future$lazy) 1582s [00:53:02.762] future <- run(future) 1582s [00:53:02.762] invisible(future) 1582s [00:53:02.762] }), .cleanup = FALSE, .init = FALSE) 1582s [00:53:02.762] } 1582s [00:53:02.762] } 1582s [00:53:02.762] } 1582s [00:53:02.762] }) 1582s [00:53:02.762] if (TRUE) { 1582s [00:53:02.762] base::sink(type = "output", split = FALSE) 1582s [00:53:02.762] if (TRUE) { 1582s [00:53:02.762] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1582s [00:53:02.762] } 1582s [00:53:02.762] else { 1582s [00:53:02.762] ...future.result["stdout"] <- base::list(NULL) 1582s [00:53:02.762] } 1582s [00:53:02.762] base::close(...future.stdout) 1582s [00:53:02.762] ...future.stdout <- NULL 1582s [00:53:02.762] } 1582s [00:53:02.762] ...future.result$conditions <- ...future.conditions 1582s [00:53:02.762] ...future.result$finished <- base::Sys.time() 1582s [00:53:02.762] ...future.result 1582s [00:53:02.762] } 1582s [00:53:02.768] assign_globals() ... 1582s [00:53:02.768] List of 5 1582s [00:53:02.768] $ ...future.FUN :function (x) 1582s [00:53:02.768] $ future.call.arguments : list() 1582s [00:53:02.768] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1582s [00:53:02.768] $ ...future.elements_ii :List of 3 1582s [00:53:02.768] ..$ : chr "a" 1582s [00:53:02.768] ..$ : chr "b" 1582s [00:53:02.768] ..$ : chr "c" 1582s [00:53:02.768] $ ...future.seeds_ii : NULL 1582s [00:53:02.768] $ ...future.globals.maxSize: NULL 1582s [00:53:02.768] - attr(*, "where")=List of 5 1582s [00:53:02.768] ..$ ...future.FUN : 1582s [00:53:02.768] ..$ future.call.arguments : 1582s [00:53:02.768] ..$ ...future.elements_ii : 1582s [00:53:02.768] ..$ ...future.seeds_ii : 1582s [00:53:02.768] ..$ ...future.globals.maxSize: 1582s [00:53:02.768] - attr(*, "resolved")= logi FALSE 1582s [00:53:02.768] - attr(*, "total_size")= num 848 1582s [00:53:02.768] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1582s [00:53:02.768] - attr(*, "already-done")= logi TRUE 1582s [00:53:02.777] - copied ‘...future.FUN’ to environment 1582s [00:53:02.778] - copied ‘future.call.arguments’ to environment 1582s [00:53:02.778] - copied ‘...future.elements_ii’ to environment 1582s [00:53:02.778] - copied ‘...future.seeds_ii’ to environment 1582s [00:53:02.778] - copied ‘...future.globals.maxSize’ to environment 1582s [00:53:02.778] assign_globals() ... done 1582s [00:53:02.778] plan(): Setting new future strategy stack: 1582s [00:53:02.779] List of future strategies: 1582s [00:53:02.779] 1. sequential: 1582s [00:53:02.779] - args: function (..., envir = parent.frame()) 1582s [00:53:02.779] - tweaked: FALSE 1582s [00:53:02.779] - call: NULL 1582s [00:53:02.780] plan(): nbrOfWorkers() = 1 1582s [00:53:02.780] plan(): Setting new future strategy stack: 1582s [00:53:02.781] List of future strategies: 1582s [00:53:02.781] 1. multisession: 1582s [00:53:02.781] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1582s [00:53:02.781] - tweaked: FALSE 1582s [00:53:02.781] - call: plan(strategy) 1582s [00:53:02.785] plan(): nbrOfWorkers() = 1 1582s [00:53:02.786] SequentialFuture started (and completed) 1582s [00:53:02.786] - Launch lazy future ... done 1582s [00:53:02.786] run() for ‘SequentialFuture’ ... done 1582s [00:53:02.786] Created future: 1582s [00:53:02.786] SequentialFuture: 1582s [00:53:02.786] Label: ‘future_sapply-1’ 1582s [00:53:02.786] Expression: 1582s [00:53:02.786] { 1582s [00:53:02.786] do.call(function(...) { 1582s [00:53:02.786] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1582s [00:53:02.786] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1582s [00:53:02.786] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1582s [00:53:02.786] on.exit(options(oopts), add = TRUE) 1582s [00:53:02.786] } 1582s [00:53:02.786] { 1582s [00:53:02.786] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1582s [00:53:02.786] ...future.X_jj <- ...future.elements_ii[[jj]] 1582s [00:53:02.786] ...future.FUN(...future.X_jj, ...) 1582s [00:53:02.786] }) 1582s [00:53:02.786] } 1582s [00:53:02.786] }, args = future.call.arguments) 1582s [00:53:02.786] } 1582s [00:53:02.786] Lazy evaluation: FALSE 1582s [00:53:02.786] Asynchronous evaluation: FALSE 1582s [00:53:02.786] Local evaluation: TRUE 1582s [00:53:02.786] Environment: R_GlobalEnv 1582s [00:53:02.786] Capture standard output: TRUE 1582s [00:53:02.786] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1582s [00:53:02.786] Globals: 5 objects totaling 1.16 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1582s [00:53:02.786] Packages: 1582s [00:53:02.786] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1582s [00:53:02.786] Resolved: TRUE 1582s [00:53:02.786] Value: 336 bytes of class ‘list’ 1582s [00:53:02.786] Early signaling: FALSE 1582s [00:53:02.786] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1582s [00:53:02.786] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1582s [00:53:02.788] Chunk #1 of 1 ... DONE 1582s [00:53:02.789] Launching 1 futures (chunks) ... DONE 1582s [00:53:02.789] Resolving 1 futures (chunks) ... 1582s [00:53:02.789] resolve() on list ... 1582s [00:53:02.789] recursive: 0 1582s [00:53:02.789] length: 1 1582s [00:53:02.789] 1582s [00:53:02.790] resolved() for ‘SequentialFuture’ ... 1582s [00:53:02.790] - state: ‘finished’ 1582s [00:53:02.790] - run: TRUE 1582s [00:53:02.790] - result: ‘FutureResult’ 1582s [00:53:02.790] resolved() for ‘SequentialFuture’ ... done 1582s [00:53:02.790] Future #1 1582s [00:53:02.791] signalConditionsASAP(SequentialFuture, pos=1) ... 1582s [00:53:02.791] - nx: 1 1582s [00:53:02.791] - relay: TRUE 1582s [00:53:02.791] - stdout: TRUE 1582s [00:53:02.792] - signal: TRUE 1582s [00:53:02.792] - resignal: FALSE 1582s [00:53:02.792] - force: TRUE 1582s [00:53:02.792] - relayed: [n=1] FALSE 1582s [00:53:02.792] - queued futures: [n=1] FALSE 1582s [00:53:02.792] - until=1 1582s [00:53:02.792] - relaying element #1 1582s [00:53:02.793] - relayed: [n=1] TRUE 1582s [00:53:02.793] - queued futures: [n=1] TRUE 1582s [00:53:02.793] signalConditionsASAP(SequentialFuture, pos=1) ... done 1582s [00:53:02.793] length: 0 (resolved future 1) 1582s List of 2 1582s $ y0: chr [1:3] "a" "b" "c" 1582s $ y1:[00:53:02.793] Relaying remaining futures 1582s [00:53:02.793] signalConditionsASAP(NULL, pos=0) ... 1582s [00:53:02.794] - nx: 1 1582s [00:53:02.794] - relay: TRUE 1582s [00:53:02.794] - stdout: TRUE 1582s [00:53:02.794] - signal: TRUE 1582s [00:53:02.794] - resignal: FALSE 1582s [00:53:02.794] - force: TRUE 1582s [00:53:02.794] - relayed: [n=1] TRUE 1582s [00:53:02.794] - queued futures: [n=1] TRUE 1582s - flush all 1582s [00:53:02.795] - relayed: [n=1] TRUE 1582s [00:53:02.795] - queued futures: [n=1] TRUE 1582s [00:53:02.795] signalConditionsASAP(NULL, pos=0) ... done 1582s [00:53:02.795] resolve() on list ... DONE 1582s [00:53:02.795] - Number of value chunks collected: 1 1582s [00:53:02.795] Resolving 1 futures (chunks) ... DONE 1582s [00:53:02.795] Reducing values from 1 chunks ... 1582s [00:53:02.796] - Number of values collected after concatenation: 3 1582s [00:53:02.796] - Number of values expected: 3 1582s [00:53:02.796] Reducing values from 1 chunks ... DONE 1582s [00:53:02.796] future_lapply() ... DONE 1582s [00:53:02.797] future_lapply() ... 1582s chr [1:3] "a" "b" "c" 1582s [00:53:02.802] Number of chunks: 1 1582s [00:53:02.802] getGlobalsAndPackagesXApply() ... 1582s [00:53:02.803] - future.globals: TRUE 1582s [00:53:02.803] getGlobalsAndPackages() ... 1582s [00:53:02.803] Searching for globals... 1582s [00:53:02.805] - globals found: [2] ‘FUN’, ‘UseMethod’ 1582s [00:53:02.805] Searching for globals ... DONE 1582s [00:53:02.805] Resolving globals: FALSE 1582s [00:53:02.805] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1582s [00:53:02.806] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1582s [00:53:02.806] - globals: [1] ‘FUN’ 1582s [00:53:02.806] 1582s [00:53:02.806] getGlobalsAndPackages() ... DONE 1582s [00:53:02.807] - globals found/used: [n=1] ‘FUN’ 1582s [00:53:02.807] - needed namespaces: [n=0] 1582s [00:53:02.807] Finding globals ... DONE 1582s [00:53:02.807] - use_args: TRUE 1582s [00:53:02.807] - Getting '...' globals ... 1582s [00:53:02.808] resolve() on list ... 1582s [00:53:02.808] recursive: 0 1582s [00:53:02.808] length: 1 1582s [00:53:02.808] elements: ‘...’ 1582s [00:53:02.808] length: 0 (resolved future 1) 1582s [00:53:02.808] resolve() on list ... DONE 1582s [00:53:02.809] - '...' content: [n=0] 1582s [00:53:02.809] List of 1 1582s [00:53:02.809] $ ...: list() 1582s [00:53:02.809] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1582s [00:53:02.809] - attr(*, "where")=List of 1 1582s [00:53:02.809] ..$ ...: 1582s [00:53:02.809] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1582s [00:53:02.809] - attr(*, "resolved")= logi TRUE 1582s [00:53:02.809] - attr(*, "total_size")= num NA 1582s [00:53:02.812] - Getting '...' globals ... DONE 1582s [00:53:02.812] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1582s [00:53:02.813] List of 2 1582s [00:53:02.813] $ ...future.FUN:function (x, ...) 1582s [00:53:02.813] $ ... : list() 1582s [00:53:02.813] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1582s [00:53:02.813] - attr(*, "where")=List of 2 1582s [00:53:02.813] ..$ ...future.FUN: 1582s [00:53:02.813] ..$ ... : 1582s [00:53:02.813] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1582s [00:53:02.813] - attr(*, "resolved")= logi FALSE 1582s [00:53:02.813] - attr(*, "total_size")= num 1248 1582s [00:53:02.816] Packages to be attached in all futures: [n=0] 1582s [00:53:02.816] getGlobalsAndPackagesXApply() ... DONE 1582s [00:53:02.816] Number of futures (= number of chunks): 1 1582s [00:53:02.817] Launching 1 futures (chunks) ... 1582s [00:53:02.817] Chunk #1 of 1 ... 1582s [00:53:02.817] - Finding globals in 'X' for chunk #1 ... 1582s [00:53:02.817] getGlobalsAndPackages() ... 1582s [00:53:02.817] Searching for globals... 1582s [00:53:02.817] 1582s [00:53:02.818] Searching for globals ... DONE 1582s [00:53:02.818] - globals: [0] 1582s [00:53:02.818] getGlobalsAndPackages() ... DONE 1582s [00:53:02.818] + additional globals found: [n=0] 1582s [00:53:02.818] + additional namespaces needed: [n=0] 1582s [00:53:02.818] - Finding globals in 'X' for chunk #1 ... DONE 1582s [00:53:02.818] - seeds: 1582s [00:53:02.818] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1582s [00:53:02.818] getGlobalsAndPackages() ... 1582s [00:53:02.819] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1582s [00:53:02.819] Resolving globals: FALSE 1582s [00:53:02.819] Tweak future expression to call with '...' arguments ... 1582s [00:53:02.819] { 1582s [00:53:02.819] do.call(function(...) { 1582s [00:53:02.819] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1582s [00:53:02.819] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1582s [00:53:02.819] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1582s [00:53:02.819] on.exit(options(oopts), add = TRUE) 1582s [00:53:02.819] } 1582s [00:53:02.819] { 1582s [00:53:02.819] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1582s [00:53:02.819] ...future.X_jj <- ...future.elements_ii[[jj]] 1582s [00:53:02.819] ...future.FUN(...future.X_jj, ...) 1582s [00:53:02.819] }) 1582s [00:53:02.819] } 1582s [00:53:02.819] }, args = future.call.arguments) 1582s [00:53:02.819] } 1582s [00:53:02.819] Tweak future expression to call with '...' arguments ... DONE 1582s [00:53:02.820] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1582s [00:53:02.820] 1582s [00:53:02.820] getGlobalsAndPackages() ... DONE 1582s [00:53:02.821] run() for ‘Future’ ... 1582s [00:53:02.821] - state: ‘created’ 1582s [00:53:02.821] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1582s [00:53:02.825] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1582s [00:53:02.825] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1582s [00:53:02.825] - Field: ‘label’ 1582s [00:53:02.825] - Field: ‘local’ 1582s [00:53:02.825] - Field: ‘owner’ 1582s [00:53:02.826] - Field: ‘envir’ 1582s [00:53:02.826] - Field: ‘packages’ 1582s [00:53:02.826] - Field: ‘gc’ 1582s [00:53:02.826] - Field: ‘conditions’ 1582s [00:53:02.826] - Field: ‘expr’ 1582s [00:53:02.826] - Field: ‘uuid’ 1582s [00:53:02.826] - Field: ‘seed’ 1582s [00:53:02.826] - Field: ‘version’ 1582s [00:53:02.827] - Field: ‘result’ 1582s [00:53:02.827] - Field: ‘asynchronous’ 1582s [00:53:02.827] - Field: ‘calls’ 1582s [00:53:02.827] - Field: ‘globals’ 1582s [00:53:02.827] - Field: ‘stdout’ 1582s [00:53:02.827] - Field: ‘earlySignal’ 1582s [00:53:02.827] - Field: ‘lazy’ 1582s [00:53:02.827] - Field: ‘state’ 1582s [00:53:02.828] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1582s [00:53:02.828] - Launch lazy future ... 1582s [00:53:02.828] Packages needed by the future expression (n = 0): 1582s [00:53:02.828] Packages needed by future strategies (n = 0): 1582s [00:53:02.829] { 1582s [00:53:02.829] { 1582s [00:53:02.829] { 1582s [00:53:02.829] ...future.startTime <- base::Sys.time() 1582s [00:53:02.829] { 1582s [00:53:02.829] { 1582s [00:53:02.829] { 1582s [00:53:02.829] base::local({ 1582s [00:53:02.829] has_future <- base::requireNamespace("future", 1582s [00:53:02.829] quietly = TRUE) 1582s [00:53:02.829] if (has_future) { 1582s [00:53:02.829] ns <- base::getNamespace("future") 1582s [00:53:02.829] version <- ns[[".package"]][["version"]] 1582s [00:53:02.829] if (is.null(version)) 1582s [00:53:02.829] version <- utils::packageVersion("future") 1582s [00:53:02.829] } 1582s [00:53:02.829] else { 1582s [00:53:02.829] version <- NULL 1582s [00:53:02.829] } 1582s [00:53:02.829] if (!has_future || version < "1.8.0") { 1582s [00:53:02.829] info <- base::c(r_version = base::gsub("R version ", 1582s [00:53:02.829] "", base::R.version$version.string), 1582s [00:53:02.829] platform = base::sprintf("%s (%s-bit)", 1582s [00:53:02.829] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1582s [00:53:02.829] os = base::paste(base::Sys.info()[base::c("sysname", 1582s [00:53:02.829] "release", "version")], collapse = " "), 1582s [00:53:02.829] hostname = base::Sys.info()[["nodename"]]) 1582s [00:53:02.829] info <- base::sprintf("%s: %s", base::names(info), 1582s [00:53:02.829] info) 1582s [00:53:02.829] info <- base::paste(info, collapse = "; ") 1582s [00:53:02.829] if (!has_future) { 1582s [00:53:02.829] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1582s [00:53:02.829] info) 1582s [00:53:02.829] } 1582s [00:53:02.829] else { 1582s [00:53:02.829] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1582s [00:53:02.829] info, version) 1582s [00:53:02.829] } 1582s [00:53:02.829] base::stop(msg) 1582s [00:53:02.829] } 1582s [00:53:02.829] }) 1582s [00:53:02.829] } 1582s [00:53:02.829] options(future.plan = NULL) 1582s [00:53:02.829] Sys.unsetenv("R_FUTURE_PLAN") 1582s [00:53:02.829] future::plan("default", .cleanup = FALSE, .init = FALSE) 1582s [00:53:02.829] } 1582s [00:53:02.829] ...future.workdir <- getwd() 1582s [00:53:02.829] } 1582s [00:53:02.829] ...future.oldOptions <- base::as.list(base::.Options) 1582s [00:53:02.829] ...future.oldEnvVars <- base::Sys.getenv() 1582s [00:53:02.829] } 1582s [00:53:02.829] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1582s [00:53:02.829] future.globals.maxSize = NULL, future.globals.method = NULL, 1582s [00:53:02.829] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1582s [00:53:02.829] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1582s [00:53:02.829] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1582s [00:53:02.829] future.stdout.windows.reencode = NULL, width = 80L) 1582s [00:53:02.829] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1582s [00:53:02.829] base::names(...future.oldOptions)) 1582s [00:53:02.829] } 1582s [00:53:02.829] if (FALSE) { 1582s [00:53:02.829] } 1582s [00:53:02.829] else { 1582s [00:53:02.829] if (TRUE) { 1582s [00:53:02.829] ...future.stdout <- base::rawConnection(base::raw(0L), 1582s [00:53:02.829] open = "w") 1582s [00:53:02.829] } 1582s [00:53:02.829] else { 1582s [00:53:02.829] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1582s [00:53:02.829] windows = "NUL", "/dev/null"), open = "w") 1582s [00:53:02.829] } 1582s [00:53:02.829] base::sink(...future.stdout, type = "output", split = FALSE) 1582s [00:53:02.829] base::on.exit(if (!base::is.null(...future.stdout)) { 1582s [00:53:02.829] base::sink(type = "output", split = FALSE) 1582s [00:53:02.829] base::close(...future.stdout) 1582s [00:53:02.829] }, add = TRUE) 1582s [00:53:02.829] } 1582s [00:53:02.829] ...future.frame <- base::sys.nframe() 1582s [00:53:02.829] ...future.conditions <- base::list() 1582s [00:53:02.829] ...future.rng <- base::globalenv()$.Random.seed 1582s [00:53:02.829] if (FALSE) { 1582s [00:53:02.829] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1582s [00:53:02.829] "...future.value", "...future.globalenv.names", ".Random.seed") 1582s [00:53:02.829] } 1582s [00:53:02.829] ...future.result <- base::tryCatch({ 1582s [00:53:02.829] base::withCallingHandlers({ 1582s [00:53:02.829] ...future.value <- base::withVisible(base::local({ 1582s [00:53:02.829] do.call(function(...) { 1582s [00:53:02.829] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1582s [00:53:02.829] if (!identical(...future.globals.maxSize.org, 1582s [00:53:02.829] ...future.globals.maxSize)) { 1582s [00:53:02.829] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1582s [00:53:02.829] on.exit(options(oopts), add = TRUE) 1582s [00:53:02.829] } 1582s [00:53:02.829] { 1582s [00:53:02.829] lapply(seq_along(...future.elements_ii), 1582s [00:53:02.829] FUN = function(jj) { 1582s [00:53:02.829] ...future.X_jj <- ...future.elements_ii[[jj]] 1582s [00:53:02.829] ...future.FUN(...future.X_jj, ...) 1582s [00:53:02.829] }) 1582s [00:53:02.829] } 1582s [00:53:02.829] }, args = future.call.arguments) 1582s [00:53:02.829] })) 1582s [00:53:02.829] future::FutureResult(value = ...future.value$value, 1582s [00:53:02.829] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1582s [00:53:02.829] ...future.rng), globalenv = if (FALSE) 1582s [00:53:02.829] list(added = base::setdiff(base::names(base::.GlobalEnv), 1582s [00:53:02.829] ...future.globalenv.names)) 1582s [00:53:02.829] else NULL, started = ...future.startTime, version = "1.8") 1582s [00:53:02.829] }, condition = base::local({ 1582s [00:53:02.829] c <- base::c 1582s [00:53:02.829] inherits <- base::inherits 1582s [00:53:02.829] invokeRestart <- base::invokeRestart 1582s [00:53:02.829] length <- base::length 1582s [00:53:02.829] list <- base::list 1582s [00:53:02.829] seq.int <- base::seq.int 1582s [00:53:02.829] signalCondition <- base::signalCondition 1582s [00:53:02.829] sys.calls <- base::sys.calls 1582s [00:53:02.829] `[[` <- base::`[[` 1582s [00:53:02.829] `+` <- base::`+` 1582s [00:53:02.829] `<<-` <- base::`<<-` 1582s [00:53:02.829] sysCalls <- function(calls = sys.calls(), from = 1L) { 1582s [00:53:02.829] calls[seq.int(from = from + 12L, to = length(calls) - 1582s [00:53:02.829] 3L)] 1582s [00:53:02.829] } 1582s [00:53:02.829] function(cond) { 1582s [00:53:02.829] is_error <- inherits(cond, "error") 1582s [00:53:02.829] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1582s [00:53:02.829] NULL) 1582s [00:53:02.829] if (is_error) { 1582s [00:53:02.829] sessionInformation <- function() { 1582s [00:53:02.829] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1582s [00:53:02.829] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1582s [00:53:02.829] search = base::search(), system = base::Sys.info()) 1582s [00:53:02.829] } 1582s [00:53:02.829] ...future.conditions[[length(...future.conditions) + 1582s [00:53:02.829] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1582s [00:53:02.829] cond$call), session = sessionInformation(), 1582s [00:53:02.829] timestamp = base::Sys.time(), signaled = 0L) 1582s [00:53:02.829] signalCondition(cond) 1582s [00:53:02.829] } 1582s [00:53:02.829] else if (!ignore && TRUE && inherits(cond, c("condition", 1582s [00:53:02.829] "immediateCondition"))) { 1582s [00:53:02.829] signal <- TRUE && inherits(cond, "immediateCondition") 1582s [00:53:02.829] ...future.conditions[[length(...future.conditions) + 1582s [00:53:02.829] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1582s [00:53:02.829] if (TRUE && !signal) { 1582s [00:53:02.829] muffleCondition <- function (cond, pattern = "^muffle") 1582s [00:53:02.829] { 1582s [00:53:02.829] inherits <- base::inherits 1582s [00:53:02.829] invokeRestart <- base::invokeRestart 1582s [00:53:02.829] is.null <- base::is.null 1582s [00:53:02.829] muffled <- FALSE 1582s [00:53:02.829] if (inherits(cond, "message")) { 1582s [00:53:02.829] muffled <- grepl(pattern, "muffleMessage") 1582s [00:53:02.829] if (muffled) 1582s [00:53:02.829] invokeRestart("muffleMessage") 1582s [00:53:02.829] } 1582s [00:53:02.829] else if (inherits(cond, "warning")) { 1582s [00:53:02.829] muffled <- grepl(pattern, "muffleWarning") 1582s [00:53:02.829] if (muffled) 1582s [00:53:02.829] invokeRestart("muffleWarning") 1582s [00:53:02.829] } 1582s [00:53:02.829] else if (inherits(cond, "condition")) { 1582s [00:53:02.829] if (!is.null(pattern)) { 1582s [00:53:02.829] computeRestarts <- base::computeRestarts 1582s [00:53:02.829] grepl <- base::grepl 1582s [00:53:02.829] restarts <- computeRestarts(cond) 1582s [00:53:02.829] for (restart in restarts) { 1582s [00:53:02.829] name <- restart$name 1582s [00:53:02.829] if (is.null(name)) 1582s [00:53:02.829] next 1582s [00:53:02.829] if (!grepl(pattern, name)) 1582s [00:53:02.829] next 1582s [00:53:02.829] invokeRestart(restart) 1582s [00:53:02.829] muffled <- TRUE 1582s [00:53:02.829] break 1582s [00:53:02.829] } 1582s [00:53:02.829] } 1582s [00:53:02.829] } 1582s [00:53:02.829] invisible(muffled) 1582s [00:53:02.829] } 1582s [00:53:02.829] muffleCondition(cond, pattern = "^muffle") 1582s [00:53:02.829] } 1582s [00:53:02.829] } 1582s [00:53:02.829] else { 1582s [00:53:02.829] if (TRUE) { 1582s [00:53:02.829] muffleCondition <- function (cond, pattern = "^muffle") 1582s [00:53:02.829] { 1582s [00:53:02.829] inherits <- base::inherits 1582s [00:53:02.829] invokeRestart <- base::invokeRestart 1582s [00:53:02.829] is.null <- base::is.null 1582s [00:53:02.829] muffled <- FALSE 1582s [00:53:02.829] if (inherits(cond, "message")) { 1582s [00:53:02.829] muffled <- grepl(pattern, "muffleMessage") 1582s [00:53:02.829] if (muffled) 1582s [00:53:02.829] invokeRestart("muffleMessage") 1582s [00:53:02.829] } 1582s [00:53:02.829] else if (inherits(cond, "warning")) { 1582s [00:53:02.829] muffled <- grepl(pattern, "muffleWarning") 1582s [00:53:02.829] if (muffled) 1582s [00:53:02.829] invokeRestart("muffleWarning") 1582s [00:53:02.829] } 1582s [00:53:02.829] else if (inherits(cond, "condition")) { 1582s [00:53:02.829] if (!is.null(pattern)) { 1582s [00:53:02.829] computeRestarts <- base::computeRestarts 1582s [00:53:02.829] grepl <- base::grepl 1582s [00:53:02.829] restarts <- computeRestarts(cond) 1582s [00:53:02.829] for (restart in restarts) { 1582s [00:53:02.829] name <- restart$name 1582s [00:53:02.829] if (is.null(name)) 1582s [00:53:02.829] next 1582s [00:53:02.829] if (!grepl(pattern, name)) 1582s [00:53:02.829] next 1582s [00:53:02.829] invokeRestart(restart) 1582s [00:53:02.829] muffled <- TRUE 1582s [00:53:02.829] break 1582s [00:53:02.829] } 1582s [00:53:02.829] } 1582s [00:53:02.829] } 1582s [00:53:02.829] invisible(muffled) 1582s [00:53:02.829] } 1582s [00:53:02.829] muffleCondition(cond, pattern = "^muffle") 1582s [00:53:02.829] } 1582s [00:53:02.829] } 1582s [00:53:02.829] } 1582s [00:53:02.829] })) 1582s [00:53:02.829] }, error = function(ex) { 1582s [00:53:02.829] base::structure(base::list(value = NULL, visible = NULL, 1582s [00:53:02.829] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1582s [00:53:02.829] ...future.rng), started = ...future.startTime, 1582s [00:53:02.829] finished = Sys.time(), session_uuid = NA_character_, 1582s [00:53:02.829] version = "1.8"), class = "FutureResult") 1582s [00:53:02.829] }, finally = { 1582s [00:53:02.829] if (!identical(...future.workdir, getwd())) 1582s [00:53:02.829] setwd(...future.workdir) 1582s [00:53:02.829] { 1582s [00:53:02.829] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1582s [00:53:02.829] ...future.oldOptions$nwarnings <- NULL 1582s [00:53:02.829] } 1582s [00:53:02.829] base::options(...future.oldOptions) 1582s [00:53:02.829] if (.Platform$OS.type == "windows") { 1582s [00:53:02.829] old_names <- names(...future.oldEnvVars) 1582s [00:53:02.829] envs <- base::Sys.getenv() 1582s [00:53:02.829] names <- names(envs) 1582s [00:53:02.829] common <- intersect(names, old_names) 1582s [00:53:02.829] added <- setdiff(names, old_names) 1582s [00:53:02.829] removed <- setdiff(old_names, names) 1582s [00:53:02.829] changed <- common[...future.oldEnvVars[common] != 1582s [00:53:02.829] envs[common]] 1582s [00:53:02.829] NAMES <- toupper(changed) 1582s [00:53:02.829] args <- list() 1582s [00:53:02.829] for (kk in seq_along(NAMES)) { 1582s [00:53:02.829] name <- changed[[kk]] 1582s [00:53:02.829] NAME <- NAMES[[kk]] 1582s [00:53:02.829] if (name != NAME && is.element(NAME, old_names)) 1582s [00:53:02.829] next 1582s [00:53:02.829] args[[name]] <- ...future.oldEnvVars[[name]] 1582s [00:53:02.829] } 1582s [00:53:02.829] NAMES <- toupper(added) 1582s [00:53:02.829] for (kk in seq_along(NAMES)) { 1582s [00:53:02.829] name <- added[[kk]] 1582s [00:53:02.829] NAME <- NAMES[[kk]] 1582s [00:53:02.829] if (name != NAME && is.element(NAME, old_names)) 1582s [00:53:02.829] next 1582s [00:53:02.829] args[[name]] <- "" 1582s [00:53:02.829] } 1582s [00:53:02.829] NAMES <- toupper(removed) 1582s [00:53:02.829] for (kk in seq_along(NAMES)) { 1582s [00:53:02.829] name <- removed[[kk]] 1582s [00:53:02.829] NAME <- NAMES[[kk]] 1582s [00:53:02.829] if (name != NAME && is.element(NAME, old_names)) 1582s [00:53:02.829] next 1582s [00:53:02.829] args[[name]] <- ...future.oldEnvVars[[name]] 1582s [00:53:02.829] } 1582s [00:53:02.829] if (length(args) > 0) 1582s [00:53:02.829] base::do.call(base::Sys.setenv, args = args) 1582s [00:53:02.829] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1582s [00:53:02.829] } 1582s [00:53:02.829] else { 1582s [00:53:02.829] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1582s [00:53:02.829] } 1582s [00:53:02.829] { 1582s [00:53:02.829] if (base::length(...future.futureOptionsAdded) > 1582s [00:53:02.829] 0L) { 1582s [00:53:02.829] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1582s [00:53:02.829] base::names(opts) <- ...future.futureOptionsAdded 1582s [00:53:02.829] base::options(opts) 1582s [00:53:02.829] } 1582s [00:53:02.829] { 1582s [00:53:02.829] { 1582s [00:53:02.829] NULL 1582s [00:53:02.829] RNGkind("Mersenne-Twister") 1582s [00:53:02.829] base::rm(list = ".Random.seed", envir = base::globalenv(), 1582s [00:53:02.829] inherits = FALSE) 1582s [00:53:02.829] } 1582s [00:53:02.829] options(future.plan = NULL) 1582s [00:53:02.829] if (is.na(NA_character_)) 1582s [00:53:02.829] Sys.unsetenv("R_FUTURE_PLAN") 1582s [00:53:02.829] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1582s [00:53:02.829] future::plan(list(function (..., workers = availableCores(), 1582s [00:53:02.829] lazy = FALSE, rscript_libs = .libPaths(), 1582s [00:53:02.829] envir = parent.frame()) 1582s [00:53:02.829] { 1582s [00:53:02.829] if (is.function(workers)) 1582s [00:53:02.829] workers <- workers() 1582s [00:53:02.829] workers <- structure(as.integer(workers), 1582s [00:53:02.829] class = class(workers)) 1582s [00:53:02.829] stop_if_not(length(workers) == 1, is.finite(workers), 1582s [00:53:02.829] workers >= 1) 1582s [00:53:02.829] if (workers == 1L && !inherits(workers, "AsIs")) { 1582s [00:53:02.829] return(sequential(..., lazy = TRUE, envir = envir)) 1582s [00:53:02.829] } 1582s [00:53:02.829] future <- MultisessionFuture(..., workers = workers, 1582s [00:53:02.829] lazy = lazy, rscript_libs = rscript_libs, 1582s [00:53:02.829] envir = envir) 1582s [00:53:02.829] if (!future$lazy) 1582s [00:53:02.829] future <- run(future) 1582s [00:53:02.829] invisible(future) 1582s [00:53:02.829] }), .cleanup = FALSE, .init = FALSE) 1582s [00:53:02.829] } 1582s [00:53:02.829] } 1582s [00:53:02.829] } 1582s [00:53:02.829] }) 1582s [00:53:02.829] if (TRUE) { 1582s [00:53:02.829] base::sink(type = "output", split = FALSE) 1582s [00:53:02.829] if (TRUE) { 1582s [00:53:02.829] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1582s [00:53:02.829] } 1582s [00:53:02.829] else { 1582s [00:53:02.829] ...future.result["stdout"] <- base::list(NULL) 1582s [00:53:02.829] } 1582s [00:53:02.829] base::close(...future.stdout) 1582s [00:53:02.829] ...future.stdout <- NULL 1582s [00:53:02.829] } 1582s [00:53:02.829] ...future.result$conditions <- ...future.conditions 1582s [00:53:02.829] ...future.result$finished <- base::Sys.time() 1582s [00:53:02.829] ...future.result 1582s [00:53:02.829] } 1582s [00:53:02.835] assign_globals() ... 1582s [00:53:02.835] List of 5 1582s [00:53:02.835] $ ...future.FUN :function (x, ...) 1582s [00:53:02.835] $ future.call.arguments : list() 1582s [00:53:02.835] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1582s [00:53:02.835] $ ...future.elements_ii :List of 3 1582s [00:53:02.835] ..$ : chr "a" 1582s [00:53:02.835] ..$ : chr "b" 1582s [00:53:02.835] ..$ : chr "c" 1582s [00:53:02.835] $ ...future.seeds_ii : NULL 1582s [00:53:02.835] $ ...future.globals.maxSize: NULL 1582s [00:53:02.835] - attr(*, "where")=List of 5 1582s [00:53:02.835] ..$ ...future.FUN : 1582s [00:53:02.835] ..$ future.call.arguments : 1582s [00:53:02.835] ..$ ...future.elements_ii : 1582s [00:53:02.835] ..$ ...future.seeds_ii : 1582s [00:53:02.835] ..$ ...future.globals.maxSize: 1582s [00:53:02.835] - attr(*, "resolved")= logi FALSE 1582s [00:53:02.835] - attr(*, "total_size")= num 1248 1582s [00:53:02.835] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1582s [00:53:02.835] - attr(*, "already-done")= logi TRUE 1582s [00:53:02.842] - copied ‘...future.FUN’ to environment 1582s [00:53:02.842] - copied ‘future.call.arguments’ to environment 1582s [00:53:02.842] - copied ‘...future.elements_ii’ to environment 1582s [00:53:02.843] - copied ‘...future.seeds_ii’ to environment 1582s [00:53:02.843] - copied ‘...future.globals.maxSize’ to environment 1582s [00:53:02.843] assign_globals() ... done 1582s [00:53:02.843] plan(): Setting new future strategy stack: 1582s [00:53:02.843] List of future strategies: 1582s [00:53:02.843] 1. sequential: 1582s [00:53:02.843] - args: function (..., envir = parent.frame()) 1582s [00:53:02.843] - tweaked: FALSE 1582s [00:53:02.843] - call: NULL 1582s [00:53:02.844] plan(): nbrOfWorkers() = 1 1582s [00:53:02.845] plan(): Setting new future strategy stack: 1582s [00:53:02.845] List of future strategies: 1582s [00:53:02.845] 1. multisession: 1582s [00:53:02.845] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1582s [00:53:02.845] - tweaked: FALSE 1582s [00:53:02.845] - call: plan(strategy) 1582s [00:53:02.848] plan(): nbrOfWorkers() = 1 1582s [00:53:02.848] SequentialFuture started (and completed) 1582s [00:53:02.849] - Launch lazy future ... done 1582s [00:53:02.849] run() for ‘SequentialFuture’ ... done 1582s [00:53:02.849] Created future: 1582s [00:53:02.849] SequentialFuture: 1582s [00:53:02.849] Label: ‘future_sapply-1’ 1582s [00:53:02.849] Expression: 1582s [00:53:02.849] { 1582s [00:53:02.849] do.call(function(...) { 1582s [00:53:02.849] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1582s [00:53:02.849] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1582s [00:53:02.849] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1582s [00:53:02.849] on.exit(options(oopts), add = TRUE) 1582s [00:53:02.849] } 1582s [00:53:02.849] { 1582s [00:53:02.849] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1582s [00:53:02.849] ...future.X_jj <- ...future.elements_ii[[jj]] 1582s [00:53:02.849] ...future.FUN(...future.X_jj, ...) 1582s [00:53:02.849] }) 1582s [00:53:02.849] } 1582s [00:53:02.849] }, args = future.call.arguments) 1582s [00:53:02.849] } 1582s [00:53:02.849] Lazy evaluation: FALSE 1582s [00:53:02.849] Asynchronous evaluation: FALSE 1582s [00:53:02.849] Local evaluation: TRUE 1582s [00:53:02.849] Environment: R_GlobalEnv 1582s [00:53:02.849] Capture standard output: TRUE 1582s [00:53:02.849] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1582s [00:53:02.849] Globals: 5 objects totaling 1.55 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1582s [00:53:02.849] Packages: 1582s [00:53:02.849] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1582s [00:53:02.849] Resolved: TRUE 1582s [00:53:02.849] Value: 840 bytes of class ‘list’ 1582s [00:53:02.849] Early signaling: FALSE 1582s [00:53:02.849] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1582s [00:53:02.849] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1582s [00:53:02.851] Chunk #1 of 1 ... DONE 1582s [00:53:02.851] Launching 1 futures (chunks) ... DONE 1582s [00:53:02.851] Resolving 1 futures (chunks) ... 1582s [00:53:02.851] resolve() on list ... 1582s [00:53:02.851] recursive: 0 1582s [00:53:02.851] length: 1 1582s [00:53:02.851] 1582s [00:53:02.851] resolved() for ‘SequentialFuture’ ... 1582s [00:53:02.852] - state: ‘finished’ 1582s [00:53:02.852] - run: TRUE 1582s [00:53:02.852] - result: ‘FutureResult’ 1582s [00:53:02.852] resolved() for ‘SequentialFuture’ ... done 1582s [00:53:02.852] Future #1 1582s [00:53:02.852] signalConditionsASAP(SequentialFuture, pos=1) ... 1582s [00:53:02.852] - nx: 1 1582s [00:53:02.852] - relay: TRUE 1582s [00:53:02.853] - stdout: TRUE 1582s [00:53:02.853] - signal: TRUE 1582s [00:53:02.853] - resignal: FALSE 1582s [00:53:02.853] - force: TRUE 1582s [00:53:02.853] - relayed: [n=1] FALSE 1582s [00:53:02.853] - queued futures: [n=1] FALSE 1582s [00:53:02.853] - until=1 1582s [00:53:02.853] - relaying element #1 1582s [00:53:02.854] - relayed: [n=1] TRUE 1582s [00:53:02.854] - queued futures: [n=1] TRUE 1582s [00:53:02.854] signalConditionsASAP(SequentialFuture, pos=1) ... done 1582s [00:53:02.854] length: 0 (resolved future 1) 1582s [00:53:02.854] Relaying remaining futures 1582s [00:53:02.854] signalConditionsASAP(NULL, pos=0) ... 1582s [00:53:02.855] - nx: 1 1582s [00:53:02.855] - relay: TRUE 1582s [00:53:02.855] - stdout: TRUE 1582s [00:53:02.855] - signal: TRUE 1582s [00:53:02.856] - resignal: FALSE 1582s [00:53:02.856] - force: TRUE 1582s [00:53:02.856] - relayed: [n=1] TRUE 1582s [00:53:02.856] - queued futures: [n=1] TRUE 1582s - flush all 1582s [00:53:02.856] - relayed: [n=1] TRUE 1582s [00:53:02.857] - queued futures: [n=1] TRUE 1582s [00:53:02.857] signalConditionsASAP(NULL, pos=0) ... done 1582s [00:53:02.857] resolve() on list ... DONE 1582s [00:53:02.857] - Number of value chunks collected: 1 1582s [00:53:02.857] Resolving 1 futures (chunks) ... DONE 1582s [00:53:02.858] Reducing values from 1 chunks ... 1582s [00:53:02.858] - Number of values collected after concatenation: 3 1582s [00:53:02.858] - Number of values expected: 3 1582s [00:53:02.858] Reducing values from 1 chunks ... DONE 1582s [00:53:02.858] future_lapply() ... DONE 1582s List of 2 1582s $ y0: chr [1:3] "a" "b" "c" 1582s $ y1: chr [1:3] "a" "b" "c" 1582s [00:53:02.860] future_lapply() ... 1582s [00:53:02.864] Number of chunks: 1 1582s [00:53:02.864] getGlobalsAndPackagesXApply() ... 1582s [00:53:02.864] - future.globals: TRUE 1582s [00:53:02.864] getGlobalsAndPackages() ... 1582s [00:53:02.864] Searching for globals... 1582s [00:53:02.866] - globals found: [1] ‘FUN’ 1582s [00:53:02.866] Searching for globals ... DONE 1582s [00:53:02.866] Resolving globals: FALSE 1582s [00:53:02.870] The total size of the 1 globals is 848 bytes (848 bytes) 1582s [00:53:02.871] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1582s [00:53:02.871] - globals: [1] ‘FUN’ 1582s [00:53:02.871] 1582s [00:53:02.872] getGlobalsAndPackages() ... DONE 1582s [00:53:02.872] - globals found/used: [n=1] ‘FUN’ 1582s [00:53:02.872] - needed namespaces: [n=0] 1582s [00:53:02.872] Finding globals ... DONE 1582s [00:53:02.872] - use_args: TRUE 1582s [00:53:02.873] - Getting '...' globals ... 1582s [00:53:02.873] resolve() on list ... 1582s [00:53:02.873] recursive: 0 1582s [00:53:02.874] length: 1 1582s [00:53:02.874] elements: ‘...’ 1582s [00:53:02.874] length: 0 (resolved future 1) 1582s [00:53:02.874] resolve() on list ... DONE 1582s [00:53:02.874] - '...' content: [n=0] 1582s [00:53:02.874] List of 1 1582s [00:53:02.874] $ ...: list() 1582s [00:53:02.874] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1582s [00:53:02.874] - attr(*, "where")=List of 1 1582s [00:53:02.874] ..$ ...: 1582s [00:53:02.874] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1582s [00:53:02.874] - attr(*, "resolved")= logi TRUE 1582s [00:53:02.874] - attr(*, "total_size")= num NA 1582s [00:53:02.878] - Getting '...' globals ... DONE 1582s [00:53:02.878] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1582s [00:53:02.878] List of 2 1582s [00:53:02.878] $ ...future.FUN:function (x) 1582s [00:53:02.878] $ ... : list() 1582s [00:53:02.878] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1582s [00:53:02.878] - attr(*, "where")=List of 2 1582s [00:53:02.878] ..$ ...future.FUN: 1582s [00:53:02.878] ..$ ... : 1582s [00:53:02.878] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1582s [00:53:02.878] - attr(*, "resolved")= logi FALSE 1582s [00:53:02.878] - attr(*, "total_size")= num 848 1582s [00:53:02.882] Packages to be attached in all futures: [n=0] 1582s [00:53:02.882] getGlobalsAndPackagesXApply() ... DONE 1582s [00:53:02.882] Number of futures (= number of chunks): 1 1582s [00:53:02.882] Launching 1 futures (chunks) ... 1582s [00:53:02.882] Chunk #1 of 1 ... 1582s [00:53:02.882] - Finding globals in 'X' for chunk #1 ... 1582s [00:53:02.883] getGlobalsAndPackages() ... 1582s [00:53:02.883] Searching for globals... 1582s [00:53:02.883] 1582s [00:53:02.883] Searching for globals ... DONE 1582s [00:53:02.883] - globals: [0] 1582s [00:53:02.884] getGlobalsAndPackages() ... DONE 1582s [00:53:02.884] + additional globals found: [n=0] 1582s [00:53:02.884] + additional namespaces needed: [n=0] 1582s [00:53:02.884] - Finding globals in 'X' for chunk #1 ... DONE 1582s [00:53:02.884] - seeds: 1582s [00:53:02.884] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1582s [00:53:02.885] getGlobalsAndPackages() ... 1582s [00:53:02.885] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1582s [00:53:02.885] Resolving globals: FALSE 1582s [00:53:02.885] Tweak future expression to call with '...' arguments ... 1582s [00:53:02.885] { 1582s [00:53:02.885] do.call(function(...) { 1582s [00:53:02.885] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1582s [00:53:02.885] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1582s [00:53:02.885] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1582s [00:53:02.885] on.exit(options(oopts), add = TRUE) 1582s [00:53:02.885] } 1582s [00:53:02.885] { 1582s [00:53:02.885] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1582s [00:53:02.885] ...future.X_jj <- ...future.elements_ii[[jj]] 1582s [00:53:02.885] ...future.FUN(...future.X_jj, ...) 1582s [00:53:02.885] }) 1582s [00:53:02.885] } 1582s [00:53:02.885] }, args = future.call.arguments) 1582s [00:53:02.885] } 1582s [00:53:02.886] Tweak future expression to call with '...' arguments ... DONE 1582s [00:53:02.886] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1582s [00:53:02.887] 1582s [00:53:02.887] getGlobalsAndPackages() ... DONE 1582s [00:53:02.887] run() for ‘Future’ ... 1582s [00:53:02.887] - state: ‘created’ 1582s [00:53:02.888] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1582s [00:53:02.891] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1582s [00:53:02.891] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1582s [00:53:02.892] - Field: ‘label’ 1582s [00:53:02.892] - Field: ‘local’ 1582s [00:53:02.892] - Field: ‘owner’ 1582s [00:53:02.892] - Field: ‘envir’ 1582s [00:53:02.892] - Field: ‘packages’ 1582s [00:53:02.892] - Field: ‘gc’ 1582s [00:53:02.893] - Field: ‘conditions’ 1582s [00:53:02.893] - Field: ‘expr’ 1582s [00:53:02.893] - Field: ‘uuid’ 1582s [00:53:02.893] - Field: ‘seed’ 1582s [00:53:02.893] - Field: ‘version’ 1582s [00:53:02.894] - Field: ‘result’ 1582s [00:53:02.894] - Field: ‘asynchronous’ 1582s [00:53:02.894] - Field: ‘calls’ 1582s [00:53:02.894] - Field: ‘globals’ 1582s [00:53:02.894] - Field: ‘stdout’ 1582s [00:53:02.894] - Field: ‘earlySignal’ 1582s [00:53:02.894] - Field: ‘lazy’ 1582s [00:53:02.895] - Field: ‘state’ 1582s [00:53:02.895] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1582s [00:53:02.895] - Launch lazy future ... 1582s [00:53:02.895] Packages needed by the future expression (n = 0): 1582s [00:53:02.895] Packages needed by future strategies (n = 0): 1582s [00:53:02.896] { 1582s [00:53:02.896] { 1582s [00:53:02.896] { 1582s [00:53:02.896] ...future.startTime <- base::Sys.time() 1582s [00:53:02.896] { 1582s [00:53:02.896] { 1582s [00:53:02.896] { 1582s [00:53:02.896] base::local({ 1582s [00:53:02.896] has_future <- base::requireNamespace("future", 1582s [00:53:02.896] quietly = TRUE) 1582s [00:53:02.896] if (has_future) { 1582s [00:53:02.896] ns <- base::getNamespace("future") 1582s [00:53:02.896] version <- ns[[".package"]][["version"]] 1582s [00:53:02.896] if (is.null(version)) 1582s [00:53:02.896] version <- utils::packageVersion("future") 1582s [00:53:02.896] } 1582s [00:53:02.896] else { 1582s [00:53:02.896] version <- NULL 1582s [00:53:02.896] } 1582s [00:53:02.896] if (!has_future || version < "1.8.0") { 1582s [00:53:02.896] info <- base::c(r_version = base::gsub("R version ", 1582s [00:53:02.896] "", base::R.version$version.string), 1582s [00:53:02.896] platform = base::sprintf("%s (%s-bit)", 1582s [00:53:02.896] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1582s [00:53:02.896] os = base::paste(base::Sys.info()[base::c("sysname", 1582s [00:53:02.896] "release", "version")], collapse = " "), 1582s [00:53:02.896] hostname = base::Sys.info()[["nodename"]]) 1582s [00:53:02.896] info <- base::sprintf("%s: %s", base::names(info), 1582s [00:53:02.896] info) 1582s [00:53:02.896] info <- base::paste(info, collapse = "; ") 1582s [00:53:02.896] if (!has_future) { 1582s [00:53:02.896] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1582s [00:53:02.896] info) 1582s [00:53:02.896] } 1582s [00:53:02.896] else { 1582s [00:53:02.896] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1582s [00:53:02.896] info, version) 1582s [00:53:02.896] } 1582s [00:53:02.896] base::stop(msg) 1582s [00:53:02.896] } 1582s [00:53:02.896] }) 1582s [00:53:02.896] } 1582s [00:53:02.896] options(future.plan = NULL) 1582s [00:53:02.896] Sys.unsetenv("R_FUTURE_PLAN") 1582s [00:53:02.896] future::plan("default", .cleanup = FALSE, .init = FALSE) 1582s [00:53:02.896] } 1582s [00:53:02.896] ...future.workdir <- getwd() 1582s [00:53:02.896] } 1582s [00:53:02.896] ...future.oldOptions <- base::as.list(base::.Options) 1582s [00:53:02.896] ...future.oldEnvVars <- base::Sys.getenv() 1582s [00:53:02.896] } 1582s [00:53:02.896] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1582s [00:53:02.896] future.globals.maxSize = NULL, future.globals.method = NULL, 1582s [00:53:02.896] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1582s [00:53:02.896] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1582s [00:53:02.896] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1582s [00:53:02.896] future.stdout.windows.reencode = NULL, width = 80L) 1582s [00:53:02.896] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1582s [00:53:02.896] base::names(...future.oldOptions)) 1582s [00:53:02.896] } 1582s [00:53:02.896] if (FALSE) { 1582s [00:53:02.896] } 1582s [00:53:02.896] else { 1582s [00:53:02.896] if (TRUE) { 1582s [00:53:02.896] ...future.stdout <- base::rawConnection(base::raw(0L), 1582s [00:53:02.896] open = "w") 1582s [00:53:02.896] } 1582s [00:53:02.896] else { 1582s [00:53:02.896] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1582s [00:53:02.896] windows = "NUL", "/dev/null"), open = "w") 1582s [00:53:02.896] } 1582s [00:53:02.896] base::sink(...future.stdout, type = "output", split = FALSE) 1582s [00:53:02.896] base::on.exit(if (!base::is.null(...future.stdout)) { 1582s [00:53:02.896] base::sink(type = "output", split = FALSE) 1582s [00:53:02.896] base::close(...future.stdout) 1582s [00:53:02.896] }, add = TRUE) 1582s [00:53:02.896] } 1582s [00:53:02.896] ...future.frame <- base::sys.nframe() 1582s [00:53:02.896] ...future.conditions <- base::list() 1582s [00:53:02.896] ...future.rng <- base::globalenv()$.Random.seed 1582s [00:53:02.896] if (FALSE) { 1582s [00:53:02.896] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1582s [00:53:02.896] "...future.value", "...future.globalenv.names", ".Random.seed") 1582s [00:53:02.896] } 1582s [00:53:02.896] ...future.result <- base::tryCatch({ 1582s [00:53:02.896] base::withCallingHandlers({ 1582s [00:53:02.896] ...future.value <- base::withVisible(base::local({ 1582s [00:53:02.896] do.call(function(...) { 1582s [00:53:02.896] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1582s [00:53:02.896] if (!identical(...future.globals.maxSize.org, 1582s [00:53:02.896] ...future.globals.maxSize)) { 1582s [00:53:02.896] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1582s [00:53:02.896] on.exit(options(oopts), add = TRUE) 1582s [00:53:02.896] } 1582s [00:53:02.896] { 1582s [00:53:02.896] lapply(seq_along(...future.elements_ii), 1582s [00:53:02.896] FUN = function(jj) { 1582s [00:53:02.896] ...future.X_jj <- ...future.elements_ii[[jj]] 1582s [00:53:02.896] ...future.FUN(...future.X_jj, ...) 1582s [00:53:02.896] }) 1582s [00:53:02.896] } 1582s [00:53:02.896] }, args = future.call.arguments) 1582s [00:53:02.896] })) 1582s [00:53:02.896] future::FutureResult(value = ...future.value$value, 1582s [00:53:02.896] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1582s [00:53:02.896] ...future.rng), globalenv = if (FALSE) 1582s [00:53:02.896] list(added = base::setdiff(base::names(base::.GlobalEnv), 1582s [00:53:02.896] ...future.globalenv.names)) 1582s [00:53:02.896] else NULL, started = ...future.startTime, version = "1.8") 1582s [00:53:02.896] }, condition = base::local({ 1582s [00:53:02.896] c <- base::c 1582s [00:53:02.896] inherits <- base::inherits 1582s [00:53:02.896] invokeRestart <- base::invokeRestart 1582s [00:53:02.896] length <- base::length 1582s [00:53:02.896] list <- base::list 1582s [00:53:02.896] seq.int <- base::seq.int 1582s [00:53:02.896] signalCondition <- base::signalCondition 1582s [00:53:02.896] sys.calls <- base::sys.calls 1582s [00:53:02.896] `[[` <- base::`[[` 1582s [00:53:02.896] `+` <- base::`+` 1582s [00:53:02.896] `<<-` <- base::`<<-` 1582s [00:53:02.896] sysCalls <- function(calls = sys.calls(), from = 1L) { 1582s [00:53:02.896] calls[seq.int(from = from + 12L, to = length(calls) - 1582s [00:53:02.896] 3L)] 1582s [00:53:02.896] } 1582s [00:53:02.896] function(cond) { 1582s [00:53:02.896] is_error <- inherits(cond, "error") 1582s [00:53:02.896] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1582s [00:53:02.896] NULL) 1582s [00:53:02.896] if (is_error) { 1582s [00:53:02.896] sessionInformation <- function() { 1582s [00:53:02.896] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1582s [00:53:02.896] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1582s [00:53:02.896] search = base::search(), system = base::Sys.info()) 1582s [00:53:02.896] } 1582s [00:53:02.896] ...future.conditions[[length(...future.conditions) + 1582s [00:53:02.896] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1582s [00:53:02.896] cond$call), session = sessionInformation(), 1582s [00:53:02.896] timestamp = base::Sys.time(), signaled = 0L) 1582s [00:53:02.896] signalCondition(cond) 1582s [00:53:02.896] } 1582s [00:53:02.896] else if (!ignore && TRUE && inherits(cond, c("condition", 1582s [00:53:02.896] "immediateCondition"))) { 1582s [00:53:02.896] signal <- TRUE && inherits(cond, "immediateCondition") 1582s [00:53:02.896] ...future.conditions[[length(...future.conditions) + 1582s [00:53:02.896] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1582s [00:53:02.896] if (TRUE && !signal) { 1582s [00:53:02.896] muffleCondition <- function (cond, pattern = "^muffle") 1582s [00:53:02.896] { 1582s [00:53:02.896] inherits <- base::inherits 1582s [00:53:02.896] invokeRestart <- base::invokeRestart 1582s [00:53:02.896] is.null <- base::is.null 1582s [00:53:02.896] muffled <- FALSE 1582s [00:53:02.896] if (inherits(cond, "message")) { 1582s [00:53:02.896] muffled <- grepl(pattern, "muffleMessage") 1582s [00:53:02.896] if (muffled) 1582s [00:53:02.896] invokeRestart("muffleMessage") 1582s [00:53:02.896] } 1582s [00:53:02.896] else if (inherits(cond, "warning")) { 1582s [00:53:02.896] muffled <- grepl(pattern, "muffleWarning") 1582s [00:53:02.896] if (muffled) 1582s [00:53:02.896] invokeRestart("muffleWarning") 1582s [00:53:02.896] } 1582s [00:53:02.896] else if (inherits(cond, "condition")) { 1582s [00:53:02.896] if (!is.null(pattern)) { 1582s [00:53:02.896] computeRestarts <- base::computeRestarts 1582s [00:53:02.896] grepl <- base::grepl 1582s [00:53:02.896] restarts <- computeRestarts(cond) 1582s [00:53:02.896] for (restart in restarts) { 1582s [00:53:02.896] name <- restart$name 1582s [00:53:02.896] if (is.null(name)) 1582s [00:53:02.896] next 1582s [00:53:02.896] if (!grepl(pattern, name)) 1582s [00:53:02.896] next 1582s [00:53:02.896] invokeRestart(restart) 1582s [00:53:02.896] muffled <- TRUE 1582s [00:53:02.896] break 1582s [00:53:02.896] } 1582s [00:53:02.896] } 1582s [00:53:02.896] } 1582s [00:53:02.896] invisible(muffled) 1582s [00:53:02.896] } 1582s [00:53:02.896] muffleCondition(cond, pattern = "^muffle") 1582s [00:53:02.896] } 1582s [00:53:02.896] } 1582s [00:53:02.896] else { 1582s [00:53:02.896] if (TRUE) { 1582s [00:53:02.896] muffleCondition <- function (cond, pattern = "^muffle") 1582s [00:53:02.896] { 1582s [00:53:02.896] inherits <- base::inherits 1582s [00:53:02.896] invokeRestart <- base::invokeRestart 1582s [00:53:02.896] is.null <- base::is.null 1582s [00:53:02.896] muffled <- FALSE 1582s [00:53:02.896] if (inherits(cond, "message")) { 1582s [00:53:02.896] muffled <- grepl(pattern, "muffleMessage") 1582s [00:53:02.896] if (muffled) 1582s [00:53:02.896] invokeRestart("muffleMessage") 1582s [00:53:02.896] } 1582s [00:53:02.896] else if (inherits(cond, "warning")) { 1582s [00:53:02.896] muffled <- grepl(pattern, "muffleWarning") 1582s [00:53:02.896] if (muffled) 1582s [00:53:02.896] invokeRestart("muffleWarning") 1582s [00:53:02.896] } 1582s [00:53:02.896] else if (inherits(cond, "condition")) { 1582s [00:53:02.896] if (!is.null(pattern)) { 1582s [00:53:02.896] computeRestarts <- base::computeRestarts 1582s [00:53:02.896] grepl <- base::grepl 1582s [00:53:02.896] restarts <- computeRestarts(cond) 1582s [00:53:02.896] for (restart in restarts) { 1582s [00:53:02.896] name <- restart$name 1582s [00:53:02.896] if (is.null(name)) 1582s [00:53:02.896] next 1582s [00:53:02.896] if (!grepl(pattern, name)) 1582s [00:53:02.896] next 1582s [00:53:02.896] invokeRestart(restart) 1582s [00:53:02.896] muffled <- TRUE 1582s [00:53:02.896] break 1582s [00:53:02.896] } 1582s [00:53:02.896] } 1582s [00:53:02.896] } 1582s [00:53:02.896] invisible(muffled) 1582s [00:53:02.896] } 1582s [00:53:02.896] muffleCondition(cond, pattern = "^muffle") 1582s [00:53:02.896] } 1582s [00:53:02.896] } 1582s [00:53:02.896] } 1582s [00:53:02.896] })) 1582s [00:53:02.896] }, error = function(ex) { 1582s [00:53:02.896] base::structure(base::list(value = NULL, visible = NULL, 1582s [00:53:02.896] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1582s [00:53:02.896] ...future.rng), started = ...future.startTime, 1582s [00:53:02.896] finished = Sys.time(), session_uuid = NA_character_, 1582s [00:53:02.896] version = "1.8"), class = "FutureResult") 1582s [00:53:02.896] }, finally = { 1582s [00:53:02.896] if (!identical(...future.workdir, getwd())) 1582s [00:53:02.896] setwd(...future.workdir) 1582s [00:53:02.896] { 1582s [00:53:02.896] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1582s [00:53:02.896] ...future.oldOptions$nwarnings <- NULL 1582s [00:53:02.896] } 1582s [00:53:02.896] base::options(...future.oldOptions) 1582s [00:53:02.896] if (.Platform$OS.type == "windows") { 1582s [00:53:02.896] old_names <- names(...future.oldEnvVars) 1582s [00:53:02.896] envs <- base::Sys.getenv() 1582s [00:53:02.896] names <- names(envs) 1582s [00:53:02.896] common <- intersect(names, old_names) 1582s [00:53:02.896] added <- setdiff(names, old_names) 1582s [00:53:02.896] removed <- setdiff(old_names, names) 1582s [00:53:02.896] changed <- common[...future.oldEnvVars[common] != 1582s [00:53:02.896] envs[common]] 1582s [00:53:02.896] NAMES <- toupper(changed) 1582s [00:53:02.896] args <- list() 1582s [00:53:02.896] for (kk in seq_along(NAMES)) { 1582s [00:53:02.896] name <- changed[[kk]] 1582s [00:53:02.896] NAME <- NAMES[[kk]] 1582s [00:53:02.896] if (name != NAME && is.element(NAME, old_names)) 1582s [00:53:02.896] next 1582s [00:53:02.896] args[[name]] <- ...future.oldEnvVars[[name]] 1582s [00:53:02.896] } 1582s [00:53:02.896] NAMES <- toupper(added) 1582s [00:53:02.896] for (kk in seq_along(NAMES)) { 1582s [00:53:02.896] name <- added[[kk]] 1582s [00:53:02.896] NAME <- NAMES[[kk]] 1582s [00:53:02.896] if (name != NAME && is.element(NAME, old_names)) 1582s [00:53:02.896] next 1582s [00:53:02.896] args[[name]] <- "" 1582s [00:53:02.896] } 1582s [00:53:02.896] NAMES <- toupper(removed) 1582s [00:53:02.896] for (kk in seq_along(NAMES)) { 1582s [00:53:02.896] name <- removed[[kk]] 1582s [00:53:02.896] NAME <- NAMES[[kk]] 1582s [00:53:02.896] if (name != NAME && is.element(NAME, old_names)) 1582s [00:53:02.896] next 1582s [00:53:02.896] args[[name]] <- ...future.oldEnvVars[[name]] 1582s [00:53:02.896] } 1582s [00:53:02.896] if (length(args) > 0) 1582s [00:53:02.896] base::do.call(base::Sys.setenv, args = args) 1582s [00:53:02.896] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1582s [00:53:02.896] } 1582s [00:53:02.896] else { 1582s [00:53:02.896] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1582s [00:53:02.896] } 1582s [00:53:02.896] { 1582s [00:53:02.896] if (base::length(...future.futureOptionsAdded) > 1582s [00:53:02.896] 0L) { 1582s [00:53:02.896] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1582s [00:53:02.896] base::names(opts) <- ...future.futureOptionsAdded 1582s [00:53:02.896] base::options(opts) 1582s [00:53:02.896] } 1582s [00:53:02.896] { 1582s [00:53:02.896] { 1582s [00:53:02.896] NULL 1582s [00:53:02.896] RNGkind("Mersenne-Twister") 1582s [00:53:02.896] base::rm(list = ".Random.seed", envir = base::globalenv(), 1582s [00:53:02.896] inherits = FALSE) 1582s [00:53:02.896] } 1582s [00:53:02.896] options(future.plan = NULL) 1582s [00:53:02.896] if (is.na(NA_character_)) 1582s [00:53:02.896] Sys.unsetenv("R_FUTURE_PLAN") 1582s [00:53:02.896] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1582s [00:53:02.896] future::plan(list(function (..., workers = availableCores(), 1582s [00:53:02.896] lazy = FALSE, rscript_libs = .libPaths(), 1582s [00:53:02.896] envir = parent.frame()) 1582s [00:53:02.896] { 1582s [00:53:02.896] if (is.function(workers)) 1582s [00:53:02.896] workers <- workers() 1582s [00:53:02.896] workers <- structure(as.integer(workers), 1582s [00:53:02.896] class = class(workers)) 1582s [00:53:02.896] stop_if_not(length(workers) == 1, is.finite(workers), 1582s [00:53:02.896] workers >= 1) 1582s [00:53:02.896] if (workers == 1L && !inherits(workers, "AsIs")) { 1582s [00:53:02.896] return(sequential(..., lazy = TRUE, envir = envir)) 1582s [00:53:02.896] } 1582s [00:53:02.896] future <- MultisessionFuture(..., workers = workers, 1582s [00:53:02.896] lazy = lazy, rscript_libs = rscript_libs, 1582s [00:53:02.896] envir = envir) 1582s [00:53:02.896] if (!future$lazy) 1582s [00:53:02.896] future <- run(future) 1582s [00:53:02.896] invisible(future) 1582s [00:53:02.896] }), .cleanup = FALSE, .init = FALSE) 1582s [00:53:02.896] } 1582s [00:53:02.896] } 1582s [00:53:02.896] } 1582s [00:53:02.896] }) 1582s [00:53:02.896] if (TRUE) { 1582s [00:53:02.896] base::sink(type = "output", split = FALSE) 1582s [00:53:02.896] if (TRUE) { 1582s [00:53:02.896] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1582s [00:53:02.896] } 1582s [00:53:02.896] else { 1582s [00:53:02.896] ...future.result["stdout"] <- base::list(NULL) 1582s [00:53:02.896] } 1582s [00:53:02.896] base::close(...future.stdout) 1582s [00:53:02.896] ...future.stdout <- NULL 1582s [00:53:02.896] } 1582s [00:53:02.896] ...future.result$conditions <- ...future.conditions 1582s [00:53:02.896] ...future.result$finished <- base::Sys.time() 1582s [00:53:02.896] ...future.result 1582s [00:53:02.896] } 1582s [00:53:02.899] assign_globals() ... 1582s [00:53:02.899] List of 5 1582s [00:53:02.899] $ ...future.FUN :function (x) 1582s [00:53:02.899] $ future.call.arguments : list() 1582s [00:53:02.899] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1582s [00:53:02.899] $ ...future.elements_ii :List of 3 1582s [00:53:02.899] ..$ : chr "a" 1582s [00:53:02.899] ..$ : chr "b" 1582s [00:53:02.899] ..$ : chr "c" 1582s [00:53:02.899] $ ...future.seeds_ii : NULL 1582s [00:53:02.899] $ ...future.globals.maxSize: NULL 1582s [00:53:02.899] - attr(*, "where")=List of 5 1582s [00:53:02.899] ..$ ...future.FUN : 1582s [00:53:02.899] ..$ future.call.arguments : 1582s [00:53:02.899] ..$ ...future.elements_ii : 1582s [00:53:02.899] ..$ ...future.seeds_ii : 1582s [00:53:02.899] ..$ ...future.globals.maxSize: 1582s [00:53:02.899] - attr(*, "resolved")= logi FALSE 1582s [00:53:02.899] - attr(*, "total_size")= num 848 1582s [00:53:02.899] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1582s [00:53:02.899] - attr(*, "already-done")= logi TRUE 1582s [00:53:02.906] - copied ‘...future.FUN’ to environment 1582s [00:53:02.906] - copied ‘future.call.arguments’ to environment 1582s [00:53:02.906] - copied ‘...future.elements_ii’ to environment 1582s [00:53:02.906] - copied ‘...future.seeds_ii’ to environment 1582s [00:53:02.907] - copied ‘...future.globals.maxSize’ to environment 1582s [00:53:02.907] assign_globals() ... done 1582s [00:53:02.907] plan(): Setting new future strategy stack: 1582s [00:53:02.907] List of future strategies: 1582s [00:53:02.907] 1. sequential: 1582s [00:53:02.907] - args: function (..., envir = parent.frame()) 1582s [00:53:02.907] - tweaked: FALSE 1582s [00:53:02.907] - call: NULL 1582s [00:53:02.908] plan(): nbrOfWorkers() = 1 1582s [00:53:02.909] plan(): Setting new future strategy stack: 1582s [00:53:02.909] List of future strategies: 1582s [00:53:02.909] 1. multisession: 1582s [00:53:02.909] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1582s [00:53:02.909] - tweaked: FALSE 1582s [00:53:02.909] - call: plan(strategy) 1582s [00:53:02.913] plan(): nbrOfWorkers() = 1 1582s [00:53:02.913] SequentialFuture started (and completed) 1582s [00:53:02.913] - Launch lazy future ... done 1582s [00:53:02.913] run() for ‘SequentialFuture’ ... done 1582s [00:53:02.913] Created future: 1582s [00:53:02.914] SequentialFuture: 1582s [00:53:02.914] Label: ‘future_sapply-1’ 1582s [00:53:02.914] Expression: 1582s [00:53:02.914] { 1582s [00:53:02.914] do.call(function(...) { 1582s [00:53:02.914] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1582s [00:53:02.914] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1582s [00:53:02.914] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1582s [00:53:02.914] on.exit(options(oopts), add = TRUE) 1582s [00:53:02.914] } 1582s [00:53:02.914] { 1582s [00:53:02.914] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1582s [00:53:02.914] ...future.X_jj <- ...future.elements_ii[[jj]] 1582s [00:53:02.914] ...future.FUN(...future.X_jj, ...) 1582s [00:53:02.914] }) 1582s [00:53:02.914] } 1582s [00:53:02.914] }, args = future.call.arguments) 1582s [00:53:02.914] } 1582s [00:53:02.914] Lazy evaluation: FALSE 1582s [00:53:02.914] Asynchronous evaluation: FALSE 1582s [00:53:02.914] Local evaluation: TRUE 1582s [00:53:02.914] Environment: R_GlobalEnv 1582s [00:53:02.914] Capture standard output: TRUE 1582s [00:53:02.914] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1582s [00:53:02.914] Globals: 5 objects totaling 1.16 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1582s [00:53:02.914] Packages: 1582s [00:53:02.914] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1582s [00:53:02.914] Resolved: TRUE 1582s [00:53:02.914] Value: 336 bytes of class ‘list’ 1582s [00:53:02.914] Early signaling: FALSE 1582s [00:53:02.914] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1582s [00:53:02.914] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1582s [00:53:02.915] Chunk #1 of 1 ... DONE 1582s [00:53:02.915] Launching 1 futures (chunks) ... DONE 1582s [00:53:02.915] Resolving 1 futures (chunks) ... 1582s [00:53:02.915] resolve() on list ... 1582s [00:53:02.915] recursive: 0 1582s [00:53:02.915] length: 1 1582s [00:53:02.915] 1582s [00:53:02.916] resolved() for ‘SequentialFuture’ ... 1582s [00:53:02.916] - state: ‘finished’ 1582s [00:53:02.916] - run: TRUE 1582s [00:53:02.916] - result: ‘FutureResult’ 1582s [00:53:02.916] resolved() for ‘SequentialFuture’ ... done 1582s [00:53:02.916] Future #1 1582s [00:53:02.916] signalConditionsASAP(SequentialFuture, pos=1) ... 1582s [00:53:02.916] - nx: 1 1582s [00:53:02.917] - relay: TRUE 1582s [00:53:02.917] - stdout: TRUE 1582s [00:53:02.917] - signal: TRUE 1582s [00:53:02.917] - resignal: FALSE 1582s [00:53:02.917] - force: TRUE 1582s [00:53:02.917] - relayed: [n=1] FALSE 1582s [00:53:02.917] - queued futures: [n=1] FALSE 1582s [00:53:02.917] - until=1 1582s [00:53:02.917] - relaying element #1 1582s [00:53:02.918] - relayed: [n=1] TRUE 1582s [00:53:02.918] - queued futures: [n=1] TRUE 1582s [00:53:02.918] signalConditionsASAP(SequentialFuture, pos=1) ... done 1582s [00:53:02.918] length: 0 (resolved future 1) 1582s [00:53:02.918] Relaying remaining futures 1582s [00:53:02.918] signalConditionsASAP(NULL, pos=0) ... 1582s [00:53:02.918] - nx: 1 1582s [00:53:02.918] - relay: TRUE 1582s [00:53:02.919] - stdout: TRUE 1582s [00:53:02.919] - signal: TRUE 1582s [00:53:02.919] - resignal: FALSE 1582s [00:53:02.919] - force: TRUE 1582s [00:53:02.919] - relayed: [n=1] TRUE 1582s [00:53:02.919] - queued futures: [n=1] TRUE 1582s - flush all 1582s [00:53:02.919] - relayed: [n=1] TRUE 1582s [00:53:02.919] - queued futures: [n=1] TRUE 1582s [00:53:02.919] signalConditionsASAP(NULL, pos=0) ... done 1582s [00:53:02.920] resolve() on list ... DONE 1582s [00:53:02.920] - Number of value chunks collected: 1 1582s [00:53:02.920] Resolving 1 futures (chunks) ... DONE 1582s [00:53:02.920] Reducing values from 1 chunks ... 1582s [00:53:02.920] - Number of values collected after concatenation: 3 1582s [00:53:02.920] - Number of values expected: 3 1582s [00:53:02.921] Reducing values from 1 chunks ... DONE 1582s [00:53:02.921] future_lapply() ... DONE 1582s List of 2 1582s $ y0:List of 3 1582s ..$ a: chr "a" 1582s ..$ b: chr "b" 1582s ..$ c: chr "c" 1582s $ y1:List of 3 1582s ..$ a: chr "a" 1582s ..$ b: chr "b" 1582s ..$ c: chr "c" 1582s List of 2 1582s $ y0:List of 3 1582s ..$ a: chr "a" 1582s ..$ b: chr "b" 1582s ..$ c: chr "c" 1582s $ y2:List of 3 1582s ..$ : chr "a" 1582s ..$ : chr "b" 1582s ..$ : chr "c" 1582s [00:53:02.927] future_lapply() ... 1582s [00:53:02.931] Number of chunks: 1 1582s [00:53:02.931] getGlobalsAndPackagesXApply() ... 1582s [00:53:02.931] - future.globals: TRUE 1582s [00:53:02.931] getGlobalsAndPackages() ... 1582s [00:53:02.931] Searching for globals... 1582s [00:53:02.932] - globals found: [2] ‘FUN’, ‘UseMethod’ 1582s [00:53:02.933] Searching for globals ... DONE 1582s [00:53:02.933] Resolving globals: FALSE 1582s [00:53:02.933] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1582s [00:53:02.933] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1582s [00:53:02.934] - globals: [1] ‘FUN’ 1582s [00:53:02.934] 1582s [00:53:02.934] getGlobalsAndPackages() ... DONE 1582s [00:53:02.934] - globals found/used: [n=1] ‘FUN’ 1582s [00:53:02.934] - needed namespaces: [n=0] 1582s [00:53:02.934] Finding globals ... DONE 1582s [00:53:02.934] - use_args: TRUE 1582s [00:53:02.934] - Getting '...' globals ... 1582s [00:53:02.935] resolve() on list ... 1582s [00:53:02.935] recursive: 0 1582s [00:53:02.935] length: 1 1582s [00:53:02.935] elements: ‘...’ 1582s [00:53:02.935] length: 0 (resolved future 1) 1582s [00:53:02.935] resolve() on list ... DONE 1582s [00:53:02.936] - '...' content: [n=0] 1582s [00:53:02.936] List of 1 1582s [00:53:02.936] $ ...: list() 1582s [00:53:02.936] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1582s [00:53:02.936] - attr(*, "where")=List of 1 1582s [00:53:02.936] ..$ ...: 1582s [00:53:02.936] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1582s [00:53:02.936] - attr(*, "resolved")= logi TRUE 1582s [00:53:02.936] - attr(*, "total_size")= num NA 1582s [00:53:02.939] - Getting '...' globals ... DONE 1582s [00:53:02.939] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1582s [00:53:02.939] List of 2 1582s [00:53:02.939] $ ...future.FUN:function (x, ...) 1582s [00:53:02.939] $ ... : list() 1582s [00:53:02.939] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1582s [00:53:02.939] - attr(*, "where")=List of 2 1582s [00:53:02.939] ..$ ...future.FUN: 1582s [00:53:02.939] ..$ ... : 1582s [00:53:02.939] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1582s [00:53:02.939] - attr(*, "resolved")= logi FALSE 1582s [00:53:02.939] - attr(*, "total_size")= num 1248 1582s [00:53:02.943] Packages to be attached in all futures: [n=0] 1582s [00:53:02.943] getGlobalsAndPackagesXApply() ... DONE 1582s [00:53:02.943] Number of futures (= number of chunks): 1 1582s [00:53:02.944] Launching 1 futures (chunks) ... 1582s [00:53:02.944] Chunk #1 of 1 ... 1582s [00:53:02.944] - Finding globals in 'X' for chunk #1 ... 1582s [00:53:02.944] getGlobalsAndPackages() ... 1582s [00:53:02.944] Searching for globals... 1582s [00:53:02.944] 1582s [00:53:02.945] Searching for globals ... DONE 1582s [00:53:02.945] - globals: [0] 1582s [00:53:02.945] getGlobalsAndPackages() ... DONE 1582s [00:53:02.945] + additional globals found: [n=0] 1582s [00:53:02.945] + additional namespaces needed: [n=0] 1582s [00:53:02.945] - Finding globals in 'X' for chunk #1 ... DONE 1582s [00:53:02.946] - seeds: 1582s [00:53:02.946] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1582s [00:53:02.946] getGlobalsAndPackages() ... 1582s [00:53:02.946] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1582s [00:53:02.946] Resolving globals: FALSE 1582s [00:53:02.946] Tweak future expression to call with '...' arguments ... 1582s [00:53:02.947] { 1582s [00:53:02.947] do.call(function(...) { 1582s [00:53:02.947] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1582s [00:53:02.947] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1582s [00:53:02.947] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1582s [00:53:02.947] on.exit(options(oopts), add = TRUE) 1582s [00:53:02.947] } 1582s [00:53:02.947] { 1582s [00:53:02.947] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1582s [00:53:02.947] ...future.X_jj <- ...future.elements_ii[[jj]] 1582s [00:53:02.947] ...future.FUN(...future.X_jj, ...) 1582s [00:53:02.947] }) 1582s [00:53:02.947] } 1582s [00:53:02.947] }, args = future.call.arguments) 1582s [00:53:02.947] } 1582s [00:53:02.947] Tweak future expression to call with '...' arguments ... DONE 1582s [00:53:02.948] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1582s [00:53:02.948] 1582s [00:53:02.948] getGlobalsAndPackages() ... DONE 1582s [00:53:02.948] run() for ‘Future’ ... 1582s [00:53:02.948] - state: ‘created’ 1582s [00:53:02.949] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1582s [00:53:02.952] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1582s [00:53:02.953] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1582s [00:53:02.953] - Field: ‘label’ 1582s [00:53:02.953] - Field: ‘local’ 1582s [00:53:02.953] - Field: ‘owner’ 1582s [00:53:02.953] - Field: ‘envir’ 1582s [00:53:02.953] - Field: ‘packages’ 1582s [00:53:02.954] - Field: ‘gc’ 1582s [00:53:02.954] - Field: ‘conditions’ 1582s [00:53:02.954] - Field: ‘expr’ 1582s [00:53:02.954] - Field: ‘uuid’ 1582s [00:53:02.954] - Field: ‘seed’ 1582s [00:53:02.954] - Field: ‘version’ 1582s [00:53:02.955] - Field: ‘result’ 1582s [00:53:02.955] - Field: ‘asynchronous’ 1582s [00:53:02.955] - Field: ‘calls’ 1582s [00:53:02.955] - Field: ‘globals’ 1582s [00:53:02.955] - Field: ‘stdout’ 1582s [00:53:02.955] - Field: ‘earlySignal’ 1582s [00:53:02.956] - Field: ‘lazy’ 1582s [00:53:02.956] - Field: ‘state’ 1582s [00:53:02.956] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1582s [00:53:02.956] - Launch lazy future ... 1582s [00:53:02.956] Packages needed by the future expression (n = 0): 1582s [00:53:02.956] Packages needed by future strategies (n = 0): 1582s [00:53:02.957] { 1582s [00:53:02.957] { 1582s [00:53:02.957] { 1582s [00:53:02.957] ...future.startTime <- base::Sys.time() 1582s [00:53:02.957] { 1582s [00:53:02.957] { 1582s [00:53:02.957] { 1582s [00:53:02.957] base::local({ 1582s [00:53:02.957] has_future <- base::requireNamespace("future", 1582s [00:53:02.957] quietly = TRUE) 1582s [00:53:02.957] if (has_future) { 1582s [00:53:02.957] ns <- base::getNamespace("future") 1582s [00:53:02.957] version <- ns[[".package"]][["version"]] 1582s [00:53:02.957] if (is.null(version)) 1582s [00:53:02.957] version <- utils::packageVersion("future") 1582s [00:53:02.957] } 1582s [00:53:02.957] else { 1582s [00:53:02.957] version <- NULL 1582s [00:53:02.957] } 1582s [00:53:02.957] if (!has_future || version < "1.8.0") { 1582s [00:53:02.957] info <- base::c(r_version = base::gsub("R version ", 1582s [00:53:02.957] "", base::R.version$version.string), 1582s [00:53:02.957] platform = base::sprintf("%s (%s-bit)", 1582s [00:53:02.957] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1582s [00:53:02.957] os = base::paste(base::Sys.info()[base::c("sysname", 1582s [00:53:02.957] "release", "version")], collapse = " "), 1582s [00:53:02.957] hostname = base::Sys.info()[["nodename"]]) 1582s [00:53:02.957] info <- base::sprintf("%s: %s", base::names(info), 1582s [00:53:02.957] info) 1582s [00:53:02.957] info <- base::paste(info, collapse = "; ") 1582s [00:53:02.957] if (!has_future) { 1582s [00:53:02.957] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1582s [00:53:02.957] info) 1582s [00:53:02.957] } 1582s [00:53:02.957] else { 1582s [00:53:02.957] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1582s [00:53:02.957] info, version) 1582s [00:53:02.957] } 1582s [00:53:02.957] base::stop(msg) 1582s [00:53:02.957] } 1582s [00:53:02.957] }) 1582s [00:53:02.957] } 1582s [00:53:02.957] options(future.plan = NULL) 1582s [00:53:02.957] Sys.unsetenv("R_FUTURE_PLAN") 1582s [00:53:02.957] future::plan("default", .cleanup = FALSE, .init = FALSE) 1582s [00:53:02.957] } 1582s [00:53:02.957] ...future.workdir <- getwd() 1582s [00:53:02.957] } 1582s [00:53:02.957] ...future.oldOptions <- base::as.list(base::.Options) 1582s [00:53:02.957] ...future.oldEnvVars <- base::Sys.getenv() 1582s [00:53:02.957] } 1582s [00:53:02.957] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1582s [00:53:02.957] future.globals.maxSize = NULL, future.globals.method = NULL, 1582s [00:53:02.957] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1582s [00:53:02.957] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1582s [00:53:02.957] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1582s [00:53:02.957] future.stdout.windows.reencode = NULL, width = 80L) 1582s [00:53:02.957] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1582s [00:53:02.957] base::names(...future.oldOptions)) 1582s [00:53:02.957] } 1582s [00:53:02.957] if (FALSE) { 1582s [00:53:02.957] } 1582s [00:53:02.957] else { 1582s [00:53:02.957] if (TRUE) { 1582s [00:53:02.957] ...future.stdout <- base::rawConnection(base::raw(0L), 1582s [00:53:02.957] open = "w") 1582s [00:53:02.957] } 1582s [00:53:02.957] else { 1582s [00:53:02.957] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1582s [00:53:02.957] windows = "NUL", "/dev/null"), open = "w") 1582s [00:53:02.957] } 1582s [00:53:02.957] base::sink(...future.stdout, type = "output", split = FALSE) 1582s [00:53:02.957] base::on.exit(if (!base::is.null(...future.stdout)) { 1582s [00:53:02.957] base::sink(type = "output", split = FALSE) 1582s [00:53:02.957] base::close(...future.stdout) 1582s [00:53:02.957] }, add = TRUE) 1582s [00:53:02.957] } 1582s [00:53:02.957] ...future.frame <- base::sys.nframe() 1582s [00:53:02.957] ...future.conditions <- base::list() 1582s [00:53:02.957] ...future.rng <- base::globalenv()$.Random.seed 1582s [00:53:02.957] if (FALSE) { 1582s [00:53:02.957] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1582s [00:53:02.957] "...future.value", "...future.globalenv.names", ".Random.seed") 1582s [00:53:02.957] } 1582s [00:53:02.957] ...future.result <- base::tryCatch({ 1582s [00:53:02.957] base::withCallingHandlers({ 1582s [00:53:02.957] ...future.value <- base::withVisible(base::local({ 1582s [00:53:02.957] do.call(function(...) { 1582s [00:53:02.957] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1582s [00:53:02.957] if (!identical(...future.globals.maxSize.org, 1582s [00:53:02.957] ...future.globals.maxSize)) { 1582s [00:53:02.957] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1582s [00:53:02.957] on.exit(options(oopts), add = TRUE) 1582s [00:53:02.957] } 1582s [00:53:02.957] { 1582s [00:53:02.957] lapply(seq_along(...future.elements_ii), 1582s [00:53:02.957] FUN = function(jj) { 1582s [00:53:02.957] ...future.X_jj <- ...future.elements_ii[[jj]] 1582s [00:53:02.957] ...future.FUN(...future.X_jj, ...) 1582s [00:53:02.957] }) 1582s [00:53:02.957] } 1582s [00:53:02.957] }, args = future.call.arguments) 1582s [00:53:02.957] })) 1582s [00:53:02.957] future::FutureResult(value = ...future.value$value, 1582s [00:53:02.957] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1582s [00:53:02.957] ...future.rng), globalenv = if (FALSE) 1582s [00:53:02.957] list(added = base::setdiff(base::names(base::.GlobalEnv), 1582s [00:53:02.957] ...future.globalenv.names)) 1582s [00:53:02.957] else NULL, started = ...future.startTime, version = "1.8") 1582s [00:53:02.957] }, condition = base::local({ 1582s [00:53:02.957] c <- base::c 1582s [00:53:02.957] inherits <- base::inherits 1582s [00:53:02.957] invokeRestart <- base::invokeRestart 1582s [00:53:02.957] length <- base::length 1582s [00:53:02.957] list <- base::list 1582s [00:53:02.957] seq.int <- base::seq.int 1582s [00:53:02.957] signalCondition <- base::signalCondition 1582s [00:53:02.957] sys.calls <- base::sys.calls 1582s [00:53:02.957] `[[` <- base::`[[` 1582s [00:53:02.957] `+` <- base::`+` 1582s [00:53:02.957] `<<-` <- base::`<<-` 1582s [00:53:02.957] sysCalls <- function(calls = sys.calls(), from = 1L) { 1582s [00:53:02.957] calls[seq.int(from = from + 12L, to = length(calls) - 1582s [00:53:02.957] 3L)] 1582s [00:53:02.957] } 1582s [00:53:02.957] function(cond) { 1582s [00:53:02.957] is_error <- inherits(cond, "error") 1582s [00:53:02.957] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1582s [00:53:02.957] NULL) 1582s [00:53:02.957] if (is_error) { 1582s [00:53:02.957] sessionInformation <- function() { 1582s [00:53:02.957] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1582s [00:53:02.957] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1582s [00:53:02.957] search = base::search(), system = base::Sys.info()) 1582s [00:53:02.957] } 1582s [00:53:02.957] ...future.conditions[[length(...future.conditions) + 1582s [00:53:02.957] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1582s [00:53:02.957] cond$call), session = sessionInformation(), 1582s [00:53:02.957] timestamp = base::Sys.time(), signaled = 0L) 1582s [00:53:02.957] signalCondition(cond) 1582s [00:53:02.957] } 1582s [00:53:02.957] else if (!ignore && TRUE && inherits(cond, c("condition", 1582s [00:53:02.957] "immediateCondition"))) { 1582s [00:53:02.957] signal <- TRUE && inherits(cond, "immediateCondition") 1582s [00:53:02.957] ...future.conditions[[length(...future.conditions) + 1582s [00:53:02.957] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1582s [00:53:02.957] if (TRUE && !signal) { 1582s [00:53:02.957] muffleCondition <- function (cond, pattern = "^muffle") 1582s [00:53:02.957] { 1582s [00:53:02.957] inherits <- base::inherits 1582s [00:53:02.957] invokeRestart <- base::invokeRestart 1582s [00:53:02.957] is.null <- base::is.null 1582s [00:53:02.957] muffled <- FALSE 1582s [00:53:02.957] if (inherits(cond, "message")) { 1582s [00:53:02.957] muffled <- grepl(pattern, "muffleMessage") 1582s [00:53:02.957] if (muffled) 1582s [00:53:02.957] invokeRestart("muffleMessage") 1582s [00:53:02.957] } 1582s [00:53:02.957] else if (inherits(cond, "warning")) { 1582s [00:53:02.957] muffled <- grepl(pattern, "muffleWarning") 1582s [00:53:02.957] if (muffled) 1582s [00:53:02.957] invokeRestart("muffleWarning") 1582s [00:53:02.957] } 1582s [00:53:02.957] else if (inherits(cond, "condition")) { 1582s [00:53:02.957] if (!is.null(pattern)) { 1582s [00:53:02.957] computeRestarts <- base::computeRestarts 1582s [00:53:02.957] grepl <- base::grepl 1582s [00:53:02.957] restarts <- computeRestarts(cond) 1582s [00:53:02.957] for (restart in restarts) { 1582s [00:53:02.957] name <- restart$name 1582s [00:53:02.957] if (is.null(name)) 1582s [00:53:02.957] next 1582s [00:53:02.957] if (!grepl(pattern, name)) 1582s [00:53:02.957] next 1582s [00:53:02.957] invokeRestart(restart) 1582s [00:53:02.957] muffled <- TRUE 1582s [00:53:02.957] break 1582s [00:53:02.957] } 1582s [00:53:02.957] } 1582s [00:53:02.957] } 1582s [00:53:02.957] invisible(muffled) 1582s [00:53:02.957] } 1582s [00:53:02.957] muffleCondition(cond, pattern = "^muffle") 1582s [00:53:02.957] } 1582s [00:53:02.957] } 1582s [00:53:02.957] else { 1582s [00:53:02.957] if (TRUE) { 1582s [00:53:02.957] muffleCondition <- function (cond, pattern = "^muffle") 1582s [00:53:02.957] { 1582s [00:53:02.957] inherits <- base::inherits 1582s [00:53:02.957] invokeRestart <- base::invokeRestart 1582s [00:53:02.957] is.null <- base::is.null 1582s [00:53:02.957] muffled <- FALSE 1582s [00:53:02.957] if (inherits(cond, "message")) { 1582s [00:53:02.957] muffled <- grepl(pattern, "muffleMessage") 1582s [00:53:02.957] if (muffled) 1582s [00:53:02.957] invokeRestart("muffleMessage") 1582s [00:53:02.957] } 1582s [00:53:02.957] else if (inherits(cond, "warning")) { 1582s [00:53:02.957] muffled <- grepl(pattern, "muffleWarning") 1582s [00:53:02.957] if (muffled) 1582s [00:53:02.957] invokeRestart("muffleWarning") 1582s [00:53:02.957] } 1582s [00:53:02.957] else if (inherits(cond, "condition")) { 1582s [00:53:02.957] if (!is.null(pattern)) { 1582s [00:53:02.957] computeRestarts <- base::computeRestarts 1582s [00:53:02.957] grepl <- base::grepl 1582s [00:53:02.957] restarts <- computeRestarts(cond) 1582s [00:53:02.957] for (restart in restarts) { 1582s [00:53:02.957] name <- restart$name 1582s [00:53:02.957] if (is.null(name)) 1582s [00:53:02.957] next 1582s [00:53:02.957] if (!grepl(pattern, name)) 1582s [00:53:02.957] next 1582s [00:53:02.957] invokeRestart(restart) 1582s [00:53:02.957] muffled <- TRUE 1582s [00:53:02.957] break 1582s [00:53:02.957] } 1582s [00:53:02.957] } 1582s [00:53:02.957] } 1582s [00:53:02.957] invisible(muffled) 1582s [00:53:02.957] } 1582s [00:53:02.957] muffleCondition(cond, pattern = "^muffle") 1582s [00:53:02.957] } 1582s [00:53:02.957] } 1582s [00:53:02.957] } 1582s [00:53:02.957] })) 1582s [00:53:02.957] }, error = function(ex) { 1582s [00:53:02.957] base::structure(base::list(value = NULL, visible = NULL, 1582s [00:53:02.957] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1582s [00:53:02.957] ...future.rng), started = ...future.startTime, 1582s [00:53:02.957] finished = Sys.time(), session_uuid = NA_character_, 1582s [00:53:02.957] version = "1.8"), class = "FutureResult") 1582s [00:53:02.957] }, finally = { 1582s [00:53:02.957] if (!identical(...future.workdir, getwd())) 1582s [00:53:02.957] setwd(...future.workdir) 1582s [00:53:02.957] { 1582s [00:53:02.957] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1582s [00:53:02.957] ...future.oldOptions$nwarnings <- NULL 1582s [00:53:02.957] } 1582s [00:53:02.957] base::options(...future.oldOptions) 1582s [00:53:02.957] if (.Platform$OS.type == "windows") { 1582s [00:53:02.957] old_names <- names(...future.oldEnvVars) 1582s [00:53:02.957] envs <- base::Sys.getenv() 1582s [00:53:02.957] names <- names(envs) 1582s [00:53:02.957] common <- intersect(names, old_names) 1582s [00:53:02.957] added <- setdiff(names, old_names) 1582s [00:53:02.957] removed <- setdiff(old_names, names) 1582s [00:53:02.957] changed <- common[...future.oldEnvVars[common] != 1582s [00:53:02.957] envs[common]] 1582s [00:53:02.957] NAMES <- toupper(changed) 1582s [00:53:02.957] args <- list() 1582s [00:53:02.957] for (kk in seq_along(NAMES)) { 1582s [00:53:02.957] name <- changed[[kk]] 1582s [00:53:02.957] NAME <- NAMES[[kk]] 1582s [00:53:02.957] if (name != NAME && is.element(NAME, old_names)) 1582s [00:53:02.957] next 1582s [00:53:02.957] args[[name]] <- ...future.oldEnvVars[[name]] 1582s [00:53:02.957] } 1582s [00:53:02.957] NAMES <- toupper(added) 1582s [00:53:02.957] for (kk in seq_along(NAMES)) { 1582s [00:53:02.957] name <- added[[kk]] 1582s [00:53:02.957] NAME <- NAMES[[kk]] 1582s [00:53:02.957] if (name != NAME && is.element(NAME, old_names)) 1582s [00:53:02.957] next 1582s [00:53:02.957] args[[name]] <- "" 1582s [00:53:02.957] } 1582s [00:53:02.957] NAMES <- toupper(removed) 1582s [00:53:02.957] for (kk in seq_along(NAMES)) { 1582s [00:53:02.957] name <- removed[[kk]] 1582s [00:53:02.957] NAME <- NAMES[[kk]] 1582s [00:53:02.957] if (name != NAME && is.element(NAME, old_names)) 1582s [00:53:02.957] next 1582s [00:53:02.957] args[[name]] <- ...future.oldEnvVars[[name]] 1582s [00:53:02.957] } 1582s [00:53:02.957] if (length(args) > 0) 1582s [00:53:02.957] base::do.call(base::Sys.setenv, args = args) 1582s [00:53:02.957] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1582s [00:53:02.957] } 1582s [00:53:02.957] else { 1582s [00:53:02.957] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1582s [00:53:02.957] } 1582s [00:53:02.957] { 1582s [00:53:02.957] if (base::length(...future.futureOptionsAdded) > 1582s [00:53:02.957] 0L) { 1582s [00:53:02.957] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1582s [00:53:02.957] base::names(opts) <- ...future.futureOptionsAdded 1582s [00:53:02.957] base::options(opts) 1582s [00:53:02.957] } 1582s [00:53:02.957] { 1582s [00:53:02.957] { 1582s [00:53:02.957] NULL 1582s [00:53:02.957] RNGkind("Mersenne-Twister") 1582s [00:53:02.957] base::rm(list = ".Random.seed", envir = base::globalenv(), 1582s [00:53:02.957] inherits = FALSE) 1582s [00:53:02.957] } 1582s [00:53:02.957] options(future.plan = NULL) 1582s [00:53:02.957] if (is.na(NA_character_)) 1582s [00:53:02.957] Sys.unsetenv("R_FUTURE_PLAN") 1582s [00:53:02.957] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1582s [00:53:02.957] future::plan(list(function (..., workers = availableCores(), 1582s [00:53:02.957] lazy = FALSE, rscript_libs = .libPaths(), 1582s [00:53:02.957] envir = parent.frame()) 1582s [00:53:02.957] { 1582s [00:53:02.957] if (is.function(workers)) 1582s [00:53:02.957] workers <- workers() 1582s [00:53:02.957] workers <- structure(as.integer(workers), 1582s [00:53:02.957] class = class(workers)) 1582s [00:53:02.957] stop_if_not(length(workers) == 1, is.finite(workers), 1582s [00:53:02.957] workers >= 1) 1582s [00:53:02.957] if (workers == 1L && !inherits(workers, "AsIs")) { 1582s [00:53:02.957] return(sequential(..., lazy = TRUE, envir = envir)) 1582s [00:53:02.957] } 1582s [00:53:02.957] future <- MultisessionFuture(..., workers = workers, 1582s [00:53:02.957] lazy = lazy, rscript_libs = rscript_libs, 1582s [00:53:02.957] envir = envir) 1582s [00:53:02.957] if (!future$lazy) 1582s [00:53:02.957] future <- run(future) 1582s [00:53:02.957] invisible(future) 1582s [00:53:02.957] }), .cleanup = FALSE, .init = FALSE) 1582s [00:53:02.957] } 1582s [00:53:02.957] } 1582s [00:53:02.957] } 1582s [00:53:02.957] }) 1582s [00:53:02.957] if (TRUE) { 1582s [00:53:02.957] base::sink(type = "output", split = FALSE) 1582s [00:53:02.957] if (TRUE) { 1583s [00:53:02.957] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1583s [00:53:02.957] } 1583s [00:53:02.957] else { 1583s [00:53:02.957] ...future.result["stdout"] <- base::list(NULL) 1583s [00:53:02.957] } 1583s [00:53:02.957] base::close(...future.stdout) 1583s [00:53:02.957] ...future.stdout <- NULL 1583s [00:53:02.957] } 1583s [00:53:02.957] ...future.result$conditions <- ...future.conditions 1583s [00:53:02.957] ...future.result$finished <- base::Sys.time() 1583s [00:53:02.957] ...future.result 1583s [00:53:02.957] } 1583s [00:53:02.964] assign_globals() ... 1583s [00:53:02.964] List of 5 1583s [00:53:02.964] $ ...future.FUN :function (x, ...) 1583s [00:53:02.964] $ future.call.arguments : list() 1583s [00:53:02.964] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1583s [00:53:02.964] $ ...future.elements_ii :List of 3 1583s [00:53:02.964] ..$ : chr "a" 1583s [00:53:02.964] ..$ : chr "b" 1583s [00:53:02.964] ..$ : chr "c" 1583s [00:53:02.964] $ ...future.seeds_ii : NULL 1583s [00:53:02.964] $ ...future.globals.maxSize: NULL 1583s [00:53:02.964] - attr(*, "where")=List of 5 1583s [00:53:02.964] ..$ ...future.FUN : 1583s [00:53:02.964] ..$ future.call.arguments : 1583s [00:53:02.964] ..$ ...future.elements_ii : 1583s [00:53:02.964] ..$ ...future.seeds_ii : 1583s [00:53:02.964] ..$ ...future.globals.maxSize: 1583s [00:53:02.964] - attr(*, "resolved")= logi FALSE 1583s [00:53:02.964] - attr(*, "total_size")= num 1248 1583s [00:53:02.964] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1583s [00:53:02.964] - attr(*, "already-done")= logi TRUE 1583s [00:53:02.976] - copied ‘...future.FUN’ to environment 1583s [00:53:02.977] - copied ‘future.call.arguments’ to environment 1583s [00:53:02.977] - copied ‘...future.elements_ii’ to environment 1583s [00:53:02.977] - copied ‘...future.seeds_ii’ to environment 1583s [00:53:02.977] - copied ‘...future.globals.maxSize’ to environment 1583s [00:53:02.977] assign_globals() ... done 1583s [00:53:02.978] plan(): Setting new future strategy stack: 1583s [00:53:02.978] List of future strategies: 1583s [00:53:02.978] 1. sequential: 1583s [00:53:02.978] - args: function (..., envir = parent.frame()) 1583s [00:53:02.978] - tweaked: FALSE 1583s [00:53:02.978] - call: NULL 1583s [00:53:02.978] plan(): nbrOfWorkers() = 1 1583s [00:53:02.979] plan(): Setting new future strategy stack: 1583s [00:53:02.979] List of future strategies: 1583s [00:53:02.979] 1. multisession: 1583s [00:53:02.979] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1583s [00:53:02.979] - tweaked: FALSE 1583s [00:53:02.979] - call: plan(strategy) 1583s [00:53:02.983] plan(): nbrOfWorkers() = 1 1583s [00:53:02.983] SequentialFuture started (and completed) 1583s [00:53:02.984] - Launch lazy future ... done 1583s [00:53:02.984] run() for ‘SequentialFuture’ ... done 1583s [00:53:02.984] Created future: 1583s [00:53:02.984] SequentialFuture: 1583s [00:53:02.984] Label: ‘future_sapply-1’ 1583s [00:53:02.984] Expression: 1583s [00:53:02.984] { 1583s [00:53:02.984] do.call(function(...) { 1583s [00:53:02.984] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1583s [00:53:02.984] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1583s [00:53:02.984] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1583s [00:53:02.984] on.exit(options(oopts), add = TRUE) 1583s [00:53:02.984] } 1583s [00:53:02.984] { 1583s [00:53:02.984] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1583s [00:53:02.984] ...future.X_jj <- ...future.elements_ii[[jj]] 1583s [00:53:02.984] ...future.FUN(...future.X_jj, ...) 1583s [00:53:02.984] }) 1583s [00:53:02.984] } 1583s [00:53:02.984] }, args = future.call.arguments) 1583s [00:53:02.984] } 1583s [00:53:02.984] Lazy evaluation: FALSE 1583s [00:53:02.984] Asynchronous evaluation: FALSE 1583s [00:53:02.984] Local evaluation: TRUE 1583s [00:53:02.984] Environment: R_GlobalEnv 1583s [00:53:02.984] Capture standard output: TRUE 1583s [00:53:02.984] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1583s [00:53:02.984] Globals: 5 objects totaling 1.55 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1583s [00:53:02.984] Packages: 1583s [00:53:02.984] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1583s [00:53:02.984] Resolved: TRUE 1583s [00:53:02.984] Value: 840 bytes of class ‘list’ 1583s [00:53:02.984] Early signaling: FALSE 1583s [00:53:02.984] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1583s [00:53:02.984] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1583s [00:53:02.987] Chunk #1 of 1 ... DONE 1583s [00:53:02.987] Launching 1 futures (chunks) ... DONE 1583s [00:53:02.987] Resolving 1 futures (chunks) ... 1583s [00:53:02.987] resolve() on list ... 1583s [00:53:02.987] recursive: 0 1583s [00:53:02.988] length: 1 1583s [00:53:02.988] 1583s [00:53:02.988] resolved() for ‘SequentialFuture’ ... 1583s [00:53:02.988] - state: ‘finished’ 1583s [00:53:02.988] - run: TRUE 1583s [00:53:02.988] - result: ‘FutureResult’ 1583s [00:53:02.988] resolved() for ‘SequentialFuture’ ... done 1583s [00:53:02.989] Future #1 1583s [00:53:02.989] signalConditionsASAP(SequentialFuture, pos=1) ... 1583s [00:53:02.989] - nx: 1 1583s [00:53:02.989] - relay: TRUE 1583s [00:53:02.989] - stdout: TRUE 1583s [00:53:02.989] - signal: TRUE 1583s [00:53:02.990] - resignal: FALSE 1583s [00:53:02.990] - force: TRUE 1583s [00:53:02.990] - relayed: [n=1] FALSE 1583s [00:53:02.990] - queued futures: [n=1] FALSE 1583s [00:53:02.990] - until=1 1583s [00:53:02.990] - relaying element #1 1583s [00:53:02.991] - relayed: [n=1] TRUE 1583s [00:53:02.991] - queued futures: [n=1] TRUE 1583s [00:53:02.991] signalConditionsASAP(SequentialFuture, pos=1) ... done 1583s [00:53:02.991] length: 0 (resolved future 1) 1583s [00:53:02.991] Relaying remaining futures 1583s [00:53:02.991] signalConditionsASAP(NULL, pos=0) ... 1583s [00:53:02.991] - nx: 1 1583s [00:53:02.992] - relay: TRUE 1583s [00:53:02.992] - stdout: TRUE 1583s [00:53:02.992] - signal: TRUE 1583s [00:53:02.992] - resignal: FALSE 1583s [00:53:02.992] - force: TRUE 1583s [00:53:02.992] - relayed: [n=1] TRUE 1583s [00:53:02.992] - queued futures: [n=1] TRUE 1583s - flush all 1583s [00:53:02.993] - relayed: [n=1] TRUE 1583s [00:53:02.993] - queued futures: [n=1] TRUE 1583s [00:53:02.993] signalConditionsASAP(NULL, pos=0) ... done 1583s [00:53:02.993] resolve() on list ... DONE 1583s [00:53:02.993] - Number of value chunks collected: 1 1583s [00:53:02.993] Resolving 1 futures (chunks) ... DONE 1583s [00:53:02.993] Reducing values from 1 chunks ... 1583s [00:53:02.994] - Number of values collected after concatenation: 3 1583s [00:53:02.994] - Number of values expected: 3 1583s [00:53:02.994] Reducing values from 1 chunks ... DONE 1583s [00:53:02.994] future_lapply() ... DONE 1583s List of 2 1583s $ y0:List of 3 1583s ..$ a: chr [1, 1] "a" 1583s ..$ b: chr [1, 1] "b" 1583s ..$ c: chr [1, 1] "c" 1583s $ y1:List of 3 1583s ..$ a: chr [1, 1] "a" 1583s ..$ b: chr [1, 1] "b" 1583s ..$ c: chr [1, 1] "c" 1583s List of 2 1583s $ y0:List of 3 1583s ..$ a: chr [1, 1] "a" 1583s ..$ b: chr [1, 1] "b" 1583s ..$ c: chr [1, 1] "c" 1583s $ y2:List of 3 1583s ..$ : chr [1, 1] "a" 1583s ..$ : chr [1, 1] "b" 1583s ..$ : chr [1, 1] "c" 1583s [00:53:03.003] future_lapply() ... 1583s [00:53:03.006] Number of chunks: 1 1583s [00:53:03.006] getGlobalsAndPackagesXApply() ... 1583s [00:53:03.007] - future.globals: TRUE 1583s [00:53:03.007] getGlobalsAndPackages() ... 1583s [00:53:03.007] Searching for globals... 1583s [00:53:03.008] - globals found: [1] ‘FUN’ 1583s [00:53:03.008] Searching for globals ... DONE 1583s [00:53:03.008] Resolving globals: FALSE 1583s [00:53:03.009] The total size of the 1 globals is 848 bytes (848 bytes) 1583s [00:53:03.009] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1583s [00:53:03.009] - globals: [1] ‘FUN’ 1583s [00:53:03.010] 1583s [00:53:03.010] getGlobalsAndPackages() ... DONE 1583s [00:53:03.010] - globals found/used: [n=1] ‘FUN’ 1583s [00:53:03.010] - needed namespaces: [n=0] 1583s [00:53:03.010] Finding globals ... DONE 1583s [00:53:03.010] - use_args: TRUE 1583s [00:53:03.011] - Getting '...' globals ... 1583s [00:53:03.011] resolve() on list ... 1583s [00:53:03.011] recursive: 0 1583s [00:53:03.011] length: 1 1583s [00:53:03.011] elements: ‘...’ 1583s [00:53:03.012] length: 0 (resolved future 1) 1583s [00:53:03.012] resolve() on list ... DONE 1583s [00:53:03.012] - '...' content: [n=0] 1583s [00:53:03.012] List of 1 1583s [00:53:03.012] $ ...: list() 1583s [00:53:03.012] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1583s [00:53:03.012] - attr(*, "where")=List of 1 1583s [00:53:03.012] ..$ ...: 1583s [00:53:03.012] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1583s [00:53:03.012] - attr(*, "resolved")= logi TRUE 1583s [00:53:03.012] - attr(*, "total_size")= num NA 1583s [00:53:03.015] - Getting '...' globals ... DONE 1583s [00:53:03.015] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1583s [00:53:03.015] List of 2 1583s [00:53:03.015] $ ...future.FUN:function (x) 1583s [00:53:03.015] $ ... : list() 1583s [00:53:03.015] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1583s [00:53:03.015] - attr(*, "where")=List of 2 1583s [00:53:03.015] ..$ ...future.FUN: 1583s [00:53:03.015] ..$ ... : 1583s [00:53:03.015] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1583s [00:53:03.015] - attr(*, "resolved")= logi FALSE 1583s [00:53:03.015] - attr(*, "total_size")= num 848 1583s [00:53:03.019] Packages to be attached in all futures: [n=0] 1583s [00:53:03.019] getGlobalsAndPackagesXApply() ... DONE 1583s [00:53:03.019] Number of futures (= number of chunks): 1 1583s [00:53:03.019] Launching 1 futures (chunks) ... 1583s [00:53:03.019] Chunk #1 of 1 ... 1583s [00:53:03.019] - Finding globals in 'X' for chunk #1 ... 1583s [00:53:03.020] getGlobalsAndPackages() ... 1583s [00:53:03.020] Searching for globals... 1583s [00:53:03.020] 1583s [00:53:03.020] Searching for globals ... DONE 1583s [00:53:03.020] - globals: [0] 1583s [00:53:03.021] getGlobalsAndPackages() ... DONE 1583s [00:53:03.021] + additional globals found: [n=0] 1583s [00:53:03.021] + additional namespaces needed: [n=0] 1583s [00:53:03.021] - Finding globals in 'X' for chunk #1 ... DONE 1583s [00:53:03.021] - seeds: 1583s [00:53:03.022] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1583s [00:53:03.022] getGlobalsAndPackages() ... 1583s [00:53:03.022] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1583s [00:53:03.022] Resolving globals: FALSE 1583s [00:53:03.022] Tweak future expression to call with '...' arguments ... 1583s [00:53:03.023] { 1583s [00:53:03.023] do.call(function(...) { 1583s [00:53:03.023] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1583s [00:53:03.023] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1583s [00:53:03.023] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1583s [00:53:03.023] on.exit(options(oopts), add = TRUE) 1583s [00:53:03.023] } 1583s [00:53:03.023] { 1583s [00:53:03.023] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1583s [00:53:03.023] ...future.X_jj <- ...future.elements_ii[[jj]] 1583s [00:53:03.023] ...future.FUN(...future.X_jj, ...) 1583s [00:53:03.023] }) 1583s [00:53:03.023] } 1583s [00:53:03.023] }, args = future.call.arguments) 1583s [00:53:03.023] } 1583s [00:53:03.023] Tweak future expression to call with '...' arguments ... DONE 1583s [00:53:03.024] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1583s [00:53:03.024] 1583s [00:53:03.024] getGlobalsAndPackages() ... DONE 1583s [00:53:03.025] run() for ‘Future’ ... 1583s [00:53:03.025] - state: ‘created’ 1583s [00:53:03.025] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1583s [00:53:03.029] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1583s [00:53:03.029] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1583s [00:53:03.030] - Field: ‘label’ 1583s [00:53:03.030] - Field: ‘local’ 1583s [00:53:03.030] - Field: ‘owner’ 1583s [00:53:03.030] - Field: ‘envir’ 1583s [00:53:03.030] - Field: ‘packages’ 1583s [00:53:03.030] - Field: ‘gc’ 1583s [00:53:03.031] - Field: ‘conditions’ 1583s [00:53:03.031] - Field: ‘expr’ 1583s [00:53:03.031] - Field: ‘uuid’ 1583s [00:53:03.031] - Field: ‘seed’ 1583s [00:53:03.031] - Field: ‘version’ 1583s [00:53:03.031] - Field: ‘result’ 1583s [00:53:03.032] - Field: ‘asynchronous’ 1583s [00:53:03.032] - Field: ‘calls’ 1583s [00:53:03.032] - Field: ‘globals’ 1583s [00:53:03.032] - Field: ‘stdout’ 1583s [00:53:03.032] - Field: ‘earlySignal’ 1583s [00:53:03.032] - Field: ‘lazy’ 1583s [00:53:03.032] - Field: ‘state’ 1583s [00:53:03.032] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1583s [00:53:03.032] - Launch lazy future ... 1583s [00:53:03.033] Packages needed by the future expression (n = 0): 1583s [00:53:03.033] Packages needed by future strategies (n = 0): 1583s [00:53:03.033] { 1583s [00:53:03.033] { 1583s [00:53:03.033] { 1583s [00:53:03.033] ...future.startTime <- base::Sys.time() 1583s [00:53:03.033] { 1583s [00:53:03.033] { 1583s [00:53:03.033] { 1583s [00:53:03.033] base::local({ 1583s [00:53:03.033] has_future <- base::requireNamespace("future", 1583s [00:53:03.033] quietly = TRUE) 1583s [00:53:03.033] if (has_future) { 1583s [00:53:03.033] ns <- base::getNamespace("future") 1583s [00:53:03.033] version <- ns[[".package"]][["version"]] 1583s [00:53:03.033] if (is.null(version)) 1583s [00:53:03.033] version <- utils::packageVersion("future") 1583s [00:53:03.033] } 1583s [00:53:03.033] else { 1583s [00:53:03.033] version <- NULL 1583s [00:53:03.033] } 1583s [00:53:03.033] if (!has_future || version < "1.8.0") { 1583s [00:53:03.033] info <- base::c(r_version = base::gsub("R version ", 1583s [00:53:03.033] "", base::R.version$version.string), 1583s [00:53:03.033] platform = base::sprintf("%s (%s-bit)", 1583s [00:53:03.033] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1583s [00:53:03.033] os = base::paste(base::Sys.info()[base::c("sysname", 1583s [00:53:03.033] "release", "version")], collapse = " "), 1583s [00:53:03.033] hostname = base::Sys.info()[["nodename"]]) 1583s [00:53:03.033] info <- base::sprintf("%s: %s", base::names(info), 1583s [00:53:03.033] info) 1583s [00:53:03.033] info <- base::paste(info, collapse = "; ") 1583s [00:53:03.033] if (!has_future) { 1583s [00:53:03.033] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1583s [00:53:03.033] info) 1583s [00:53:03.033] } 1583s [00:53:03.033] else { 1583s [00:53:03.033] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1583s [00:53:03.033] info, version) 1583s [00:53:03.033] } 1583s [00:53:03.033] base::stop(msg) 1583s [00:53:03.033] } 1583s [00:53:03.033] }) 1583s [00:53:03.033] } 1583s [00:53:03.033] options(future.plan = NULL) 1583s [00:53:03.033] Sys.unsetenv("R_FUTURE_PLAN") 1583s [00:53:03.033] future::plan("default", .cleanup = FALSE, .init = FALSE) 1583s [00:53:03.033] } 1583s [00:53:03.033] ...future.workdir <- getwd() 1583s [00:53:03.033] } 1583s [00:53:03.033] ...future.oldOptions <- base::as.list(base::.Options) 1583s [00:53:03.033] ...future.oldEnvVars <- base::Sys.getenv() 1583s [00:53:03.033] } 1583s [00:53:03.033] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1583s [00:53:03.033] future.globals.maxSize = NULL, future.globals.method = NULL, 1583s [00:53:03.033] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1583s [00:53:03.033] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1583s [00:53:03.033] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1583s [00:53:03.033] future.stdout.windows.reencode = NULL, width = 80L) 1583s [00:53:03.033] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1583s [00:53:03.033] base::names(...future.oldOptions)) 1583s [00:53:03.033] } 1583s [00:53:03.033] if (FALSE) { 1583s [00:53:03.033] } 1583s [00:53:03.033] else { 1583s [00:53:03.033] if (TRUE) { 1583s [00:53:03.033] ...future.stdout <- base::rawConnection(base::raw(0L), 1583s [00:53:03.033] open = "w") 1583s [00:53:03.033] } 1583s [00:53:03.033] else { 1583s [00:53:03.033] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1583s [00:53:03.033] windows = "NUL", "/dev/null"), open = "w") 1583s [00:53:03.033] } 1583s [00:53:03.033] base::sink(...future.stdout, type = "output", split = FALSE) 1583s [00:53:03.033] base::on.exit(if (!base::is.null(...future.stdout)) { 1583s [00:53:03.033] base::sink(type = "output", split = FALSE) 1583s [00:53:03.033] base::close(...future.stdout) 1583s [00:53:03.033] }, add = TRUE) 1583s [00:53:03.033] } 1583s [00:53:03.033] ...future.frame <- base::sys.nframe() 1583s [00:53:03.033] ...future.conditions <- base::list() 1583s [00:53:03.033] ...future.rng <- base::globalenv()$.Random.seed 1583s [00:53:03.033] if (FALSE) { 1583s [00:53:03.033] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1583s [00:53:03.033] "...future.value", "...future.globalenv.names", ".Random.seed") 1583s [00:53:03.033] } 1583s [00:53:03.033] ...future.result <- base::tryCatch({ 1583s [00:53:03.033] base::withCallingHandlers({ 1583s [00:53:03.033] ...future.value <- base::withVisible(base::local({ 1583s [00:53:03.033] do.call(function(...) { 1583s [00:53:03.033] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1583s [00:53:03.033] if (!identical(...future.globals.maxSize.org, 1583s [00:53:03.033] ...future.globals.maxSize)) { 1583s [00:53:03.033] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1583s [00:53:03.033] on.exit(options(oopts), add = TRUE) 1583s [00:53:03.033] } 1583s [00:53:03.033] { 1583s [00:53:03.033] lapply(seq_along(...future.elements_ii), 1583s [00:53:03.033] FUN = function(jj) { 1583s [00:53:03.033] ...future.X_jj <- ...future.elements_ii[[jj]] 1583s [00:53:03.033] ...future.FUN(...future.X_jj, ...) 1583s [00:53:03.033] }) 1583s [00:53:03.033] } 1583s [00:53:03.033] }, args = future.call.arguments) 1583s [00:53:03.033] })) 1583s [00:53:03.033] future::FutureResult(value = ...future.value$value, 1583s [00:53:03.033] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1583s [00:53:03.033] ...future.rng), globalenv = if (FALSE) 1583s [00:53:03.033] list(added = base::setdiff(base::names(base::.GlobalEnv), 1583s [00:53:03.033] ...future.globalenv.names)) 1583s [00:53:03.033] else NULL, started = ...future.startTime, version = "1.8") 1583s [00:53:03.033] }, condition = base::local({ 1583s [00:53:03.033] c <- base::c 1583s [00:53:03.033] inherits <- base::inherits 1583s [00:53:03.033] invokeRestart <- base::invokeRestart 1583s [00:53:03.033] length <- base::length 1583s [00:53:03.033] list <- base::list 1583s [00:53:03.033] seq.int <- base::seq.int 1583s [00:53:03.033] signalCondition <- base::signalCondition 1583s [00:53:03.033] sys.calls <- base::sys.calls 1583s [00:53:03.033] `[[` <- base::`[[` 1583s [00:53:03.033] `+` <- base::`+` 1583s [00:53:03.033] `<<-` <- base::`<<-` 1583s [00:53:03.033] sysCalls <- function(calls = sys.calls(), from = 1L) { 1583s [00:53:03.033] calls[seq.int(from = from + 12L, to = length(calls) - 1583s [00:53:03.033] 3L)] 1583s [00:53:03.033] } 1583s [00:53:03.033] function(cond) { 1583s [00:53:03.033] is_error <- inherits(cond, "error") 1583s [00:53:03.033] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1583s [00:53:03.033] NULL) 1583s [00:53:03.033] if (is_error) { 1583s [00:53:03.033] sessionInformation <- function() { 1583s [00:53:03.033] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1583s [00:53:03.033] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1583s [00:53:03.033] search = base::search(), system = base::Sys.info()) 1583s [00:53:03.033] } 1583s [00:53:03.033] ...future.conditions[[length(...future.conditions) + 1583s [00:53:03.033] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1583s [00:53:03.033] cond$call), session = sessionInformation(), 1583s [00:53:03.033] timestamp = base::Sys.time(), signaled = 0L) 1583s [00:53:03.033] signalCondition(cond) 1583s [00:53:03.033] } 1583s [00:53:03.033] else if (!ignore && TRUE && inherits(cond, c("condition", 1583s [00:53:03.033] "immediateCondition"))) { 1583s [00:53:03.033] signal <- TRUE && inherits(cond, "immediateCondition") 1583s [00:53:03.033] ...future.conditions[[length(...future.conditions) + 1583s [00:53:03.033] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1583s [00:53:03.033] if (TRUE && !signal) { 1583s [00:53:03.033] muffleCondition <- function (cond, pattern = "^muffle") 1583s [00:53:03.033] { 1583s [00:53:03.033] inherits <- base::inherits 1583s [00:53:03.033] invokeRestart <- base::invokeRestart 1583s [00:53:03.033] is.null <- base::is.null 1583s [00:53:03.033] muffled <- FALSE 1583s [00:53:03.033] if (inherits(cond, "message")) { 1583s [00:53:03.033] muffled <- grepl(pattern, "muffleMessage") 1583s [00:53:03.033] if (muffled) 1583s [00:53:03.033] invokeRestart("muffleMessage") 1583s [00:53:03.033] } 1583s [00:53:03.033] else if (inherits(cond, "warning")) { 1583s [00:53:03.033] muffled <- grepl(pattern, "muffleWarning") 1583s [00:53:03.033] if (muffled) 1583s [00:53:03.033] invokeRestart("muffleWarning") 1583s [00:53:03.033] } 1583s [00:53:03.033] else if (inherits(cond, "condition")) { 1583s [00:53:03.033] if (!is.null(pattern)) { 1583s [00:53:03.033] computeRestarts <- base::computeRestarts 1583s [00:53:03.033] grepl <- base::grepl 1583s [00:53:03.033] restarts <- computeRestarts(cond) 1583s [00:53:03.033] for (restart in restarts) { 1583s [00:53:03.033] name <- restart$name 1583s [00:53:03.033] if (is.null(name)) 1583s [00:53:03.033] next 1583s [00:53:03.033] if (!grepl(pattern, name)) 1583s [00:53:03.033] next 1583s [00:53:03.033] invokeRestart(restart) 1583s [00:53:03.033] muffled <- TRUE 1583s [00:53:03.033] break 1583s [00:53:03.033] } 1583s [00:53:03.033] } 1583s [00:53:03.033] } 1583s [00:53:03.033] invisible(muffled) 1583s [00:53:03.033] } 1583s [00:53:03.033] muffleCondition(cond, pattern = "^muffle") 1583s [00:53:03.033] } 1583s [00:53:03.033] } 1583s [00:53:03.033] else { 1583s [00:53:03.033] if (TRUE) { 1583s [00:53:03.033] muffleCondition <- function (cond, pattern = "^muffle") 1583s [00:53:03.033] { 1583s [00:53:03.033] inherits <- base::inherits 1583s [00:53:03.033] invokeRestart <- base::invokeRestart 1583s [00:53:03.033] is.null <- base::is.null 1583s [00:53:03.033] muffled <- FALSE 1583s [00:53:03.033] if (inherits(cond, "message")) { 1583s [00:53:03.033] muffled <- grepl(pattern, "muffleMessage") 1583s [00:53:03.033] if (muffled) 1583s [00:53:03.033] invokeRestart("muffleMessage") 1583s [00:53:03.033] } 1583s [00:53:03.033] else if (inherits(cond, "warning")) { 1583s [00:53:03.033] muffled <- grepl(pattern, "muffleWarning") 1583s [00:53:03.033] if (muffled) 1583s [00:53:03.033] invokeRestart("muffleWarning") 1583s [00:53:03.033] } 1583s [00:53:03.033] else if (inherits(cond, "condition")) { 1583s [00:53:03.033] if (!is.null(pattern)) { 1583s [00:53:03.033] computeRestarts <- base::computeRestarts 1583s [00:53:03.033] grepl <- base::grepl 1583s [00:53:03.033] restarts <- computeRestarts(cond) 1583s [00:53:03.033] for (restart in restarts) { 1583s [00:53:03.033] name <- restart$name 1583s [00:53:03.033] if (is.null(name)) 1583s [00:53:03.033] next 1583s [00:53:03.033] if (!grepl(pattern, name)) 1583s [00:53:03.033] next 1583s [00:53:03.033] invokeRestart(restart) 1583s [00:53:03.033] muffled <- TRUE 1583s [00:53:03.033] break 1583s [00:53:03.033] } 1583s [00:53:03.033] } 1583s [00:53:03.033] } 1583s [00:53:03.033] invisible(muffled) 1583s [00:53:03.033] } 1583s [00:53:03.033] muffleCondition(cond, pattern = "^muffle") 1583s [00:53:03.033] } 1583s [00:53:03.033] } 1583s [00:53:03.033] } 1583s [00:53:03.033] })) 1583s [00:53:03.033] }, error = function(ex) { 1583s [00:53:03.033] base::structure(base::list(value = NULL, visible = NULL, 1583s [00:53:03.033] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1583s [00:53:03.033] ...future.rng), started = ...future.startTime, 1583s [00:53:03.033] finished = Sys.time(), session_uuid = NA_character_, 1583s [00:53:03.033] version = "1.8"), class = "FutureResult") 1583s [00:53:03.033] }, finally = { 1583s [00:53:03.033] if (!identical(...future.workdir, getwd())) 1583s [00:53:03.033] setwd(...future.workdir) 1583s [00:53:03.033] { 1583s [00:53:03.033] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1583s [00:53:03.033] ...future.oldOptions$nwarnings <- NULL 1583s [00:53:03.033] } 1583s [00:53:03.033] base::options(...future.oldOptions) 1583s [00:53:03.033] if (.Platform$OS.type == "windows") { 1583s [00:53:03.033] old_names <- names(...future.oldEnvVars) 1583s [00:53:03.033] envs <- base::Sys.getenv() 1583s [00:53:03.033] names <- names(envs) 1583s [00:53:03.033] common <- intersect(names, old_names) 1583s [00:53:03.033] added <- setdiff(names, old_names) 1583s [00:53:03.033] removed <- setdiff(old_names, names) 1583s [00:53:03.033] changed <- common[...future.oldEnvVars[common] != 1583s [00:53:03.033] envs[common]] 1583s [00:53:03.033] NAMES <- toupper(changed) 1583s [00:53:03.033] args <- list() 1583s [00:53:03.033] for (kk in seq_along(NAMES)) { 1583s [00:53:03.033] name <- changed[[kk]] 1583s [00:53:03.033] NAME <- NAMES[[kk]] 1583s [00:53:03.033] if (name != NAME && is.element(NAME, old_names)) 1583s [00:53:03.033] next 1583s [00:53:03.033] args[[name]] <- ...future.oldEnvVars[[name]] 1583s [00:53:03.033] } 1583s [00:53:03.033] NAMES <- toupper(added) 1583s [00:53:03.033] for (kk in seq_along(NAMES)) { 1583s [00:53:03.033] name <- added[[kk]] 1583s [00:53:03.033] NAME <- NAMES[[kk]] 1583s [00:53:03.033] if (name != NAME && is.element(NAME, old_names)) 1583s [00:53:03.033] next 1583s [00:53:03.033] args[[name]] <- "" 1583s [00:53:03.033] } 1583s [00:53:03.033] NAMES <- toupper(removed) 1583s [00:53:03.033] for (kk in seq_along(NAMES)) { 1583s [00:53:03.033] name <- removed[[kk]] 1583s [00:53:03.033] NAME <- NAMES[[kk]] 1583s [00:53:03.033] if (name != NAME && is.element(NAME, old_names)) 1583s [00:53:03.033] next 1583s [00:53:03.033] args[[name]] <- ...future.oldEnvVars[[name]] 1583s [00:53:03.033] } 1583s [00:53:03.033] if (length(args) > 0) 1583s [00:53:03.033] base::do.call(base::Sys.setenv, args = args) 1583s [00:53:03.033] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1583s [00:53:03.033] } 1583s [00:53:03.033] else { 1583s [00:53:03.033] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1583s [00:53:03.033] } 1583s [00:53:03.033] { 1583s [00:53:03.033] if (base::length(...future.futureOptionsAdded) > 1583s [00:53:03.033] 0L) { 1583s [00:53:03.033] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1583s [00:53:03.033] base::names(opts) <- ...future.futureOptionsAdded 1583s [00:53:03.033] base::options(opts) 1583s [00:53:03.033] } 1583s [00:53:03.033] { 1583s [00:53:03.033] { 1583s [00:53:03.033] NULL 1583s [00:53:03.033] RNGkind("Mersenne-Twister") 1583s [00:53:03.033] base::rm(list = ".Random.seed", envir = base::globalenv(), 1583s [00:53:03.033] inherits = FALSE) 1583s [00:53:03.033] } 1583s [00:53:03.033] options(future.plan = NULL) 1583s [00:53:03.033] if (is.na(NA_character_)) 1583s [00:53:03.033] Sys.unsetenv("R_FUTURE_PLAN") 1583s [00:53:03.033] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1583s [00:53:03.033] future::plan(list(function (..., workers = availableCores(), 1583s [00:53:03.033] lazy = FALSE, rscript_libs = .libPaths(), 1583s [00:53:03.033] envir = parent.frame()) 1583s [00:53:03.033] { 1583s [00:53:03.033] if (is.function(workers)) 1583s [00:53:03.033] workers <- workers() 1583s [00:53:03.033] workers <- structure(as.integer(workers), 1583s [00:53:03.033] class = class(workers)) 1583s [00:53:03.033] stop_if_not(length(workers) == 1, is.finite(workers), 1583s [00:53:03.033] workers >= 1) 1583s [00:53:03.033] if (workers == 1L && !inherits(workers, "AsIs")) { 1583s [00:53:03.033] return(sequential(..., lazy = TRUE, envir = envir)) 1583s [00:53:03.033] } 1583s [00:53:03.033] future <- MultisessionFuture(..., workers = workers, 1583s [00:53:03.033] lazy = lazy, rscript_libs = rscript_libs, 1583s [00:53:03.033] envir = envir) 1583s [00:53:03.033] if (!future$lazy) 1583s [00:53:03.033] future <- run(future) 1583s [00:53:03.033] invisible(future) 1583s [00:53:03.033] }), .cleanup = FALSE, .init = FALSE) 1583s [00:53:03.033] } 1583s [00:53:03.033] } 1583s [00:53:03.033] } 1583s [00:53:03.033] }) 1583s [00:53:03.033] if (TRUE) { 1583s [00:53:03.033] base::sink(type = "output", split = FALSE) 1583s [00:53:03.033] if (TRUE) { 1583s [00:53:03.033] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1583s [00:53:03.033] } 1583s [00:53:03.033] else { 1583s [00:53:03.033] ...future.result["stdout"] <- base::list(NULL) 1583s [00:53:03.033] } 1583s [00:53:03.033] base::close(...future.stdout) 1583s [00:53:03.033] ...future.stdout <- NULL 1583s [00:53:03.033] } 1583s [00:53:03.033] ...future.result$conditions <- ...future.conditions 1583s [00:53:03.033] ...future.result$finished <- base::Sys.time() 1583s [00:53:03.033] ...future.result 1583s [00:53:03.033] } 1583s [00:53:03.036] assign_globals() ... 1583s [00:53:03.036] List of 5 1583s [00:53:03.036] $ ...future.FUN :function (x) 1583s [00:53:03.036] $ future.call.arguments : list() 1583s [00:53:03.036] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1583s [00:53:03.036] $ ...future.elements_ii :List of 3 1583s [00:53:03.036] ..$ : chr "a" 1583s [00:53:03.036] ..$ : chr "b" 1583s [00:53:03.036] ..$ : chr "c" 1583s [00:53:03.036] $ ...future.seeds_ii : NULL 1583s [00:53:03.036] $ ...future.globals.maxSize: NULL 1583s [00:53:03.036] - attr(*, "where")=List of 5 1583s [00:53:03.036] ..$ ...future.FUN : 1583s [00:53:03.036] ..$ future.call.arguments : 1583s [00:53:03.036] ..$ ...future.elements_ii : 1583s [00:53:03.036] ..$ ...future.seeds_ii : 1583s [00:53:03.036] ..$ ...future.globals.maxSize: 1583s [00:53:03.036] - attr(*, "resolved")= logi FALSE 1583s [00:53:03.036] - attr(*, "total_size")= num 848 1583s [00:53:03.036] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1583s [00:53:03.036] - attr(*, "already-done")= logi TRUE 1583s [00:53:03.043] - copied ‘...future.FUN’ to environment 1583s [00:53:03.043] - copied ‘future.call.arguments’ to environment 1583s [00:53:03.043] - copied ‘...future.elements_ii’ to environment 1583s [00:53:03.044] - copied ‘...future.seeds_ii’ to environment 1583s [00:53:03.044] - copied ‘...future.globals.maxSize’ to environment 1583s [00:53:03.044] assign_globals() ... done 1583s [00:53:03.044] plan(): Setting new future strategy stack: 1583s [00:53:03.044] List of future strategies: 1583s [00:53:03.044] 1. sequential: 1583s [00:53:03.044] - args: function (..., envir = parent.frame()) 1583s [00:53:03.044] - tweaked: FALSE 1583s [00:53:03.044] - call: NULL 1583s [00:53:03.045] plan(): nbrOfWorkers() = 1 1583s [00:53:03.046] plan(): Setting new future strategy stack: 1583s [00:53:03.046] List of future strategies: 1583s [00:53:03.046] 1. multisession: 1583s [00:53:03.046] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1583s [00:53:03.046] - tweaked: FALSE 1583s [00:53:03.046] - call: plan(strategy) 1583s [00:53:03.049] plan(): nbrOfWorkers() = 1 1583s [00:53:03.049] SequentialFuture started (and completed) 1583s [00:53:03.049] - Launch lazy future ... done 1583s [00:53:03.050] run() for ‘SequentialFuture’ ... done 1583s [00:53:03.050] Created future: 1583s [00:53:03.050] SequentialFuture: 1583s [00:53:03.050] Label: ‘future_sapply-1’ 1583s [00:53:03.050] Expression: 1583s [00:53:03.050] { 1583s [00:53:03.050] do.call(function(...) { 1583s [00:53:03.050] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1583s [00:53:03.050] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1583s [00:53:03.050] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1583s [00:53:03.050] on.exit(options(oopts), add = TRUE) 1583s [00:53:03.050] } 1583s [00:53:03.050] { 1583s [00:53:03.050] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1583s [00:53:03.050] ...future.X_jj <- ...future.elements_ii[[jj]] 1583s [00:53:03.050] ...future.FUN(...future.X_jj, ...) 1583s [00:53:03.050] }) 1583s [00:53:03.050] } 1583s [00:53:03.050] }, args = future.call.arguments) 1583s [00:53:03.050] } 1583s [00:53:03.050] Lazy evaluation: FALSE 1583s [00:53:03.050] Asynchronous evaluation: FALSE 1583s [00:53:03.050] Local evaluation: TRUE 1583s [00:53:03.050] Environment: R_GlobalEnv 1583s [00:53:03.050] Capture standard output: TRUE 1583s [00:53:03.050] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1583s [00:53:03.050] Globals: 5 objects totaling 1.16 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1583s [00:53:03.050] Packages: 1583s [00:53:03.050] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1583s [00:53:03.050] Resolved: TRUE 1583s [00:53:03.050] Value: 336 bytes of class ‘list’ 1583s [00:53:03.050] Early signaling: FALSE 1583s [00:53:03.050] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1583s [00:53:03.050] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1583s [00:53:03.052] Chunk #1 of 1 ... DONE 1583s [00:53:03.052] Launching 1 futures (chunks) ... DONE 1583s [00:53:03.052] Resolving 1 futures (chunks) ... 1583s [00:53:03.052] resolve() on list ... 1583s [00:53:03.052] recursive: 0 1583s [00:53:03.052] length: 1 1583s [00:53:03.053] 1583s [00:53:03.053] resolved() for ‘SequentialFuture’ ... 1583s [00:53:03.053] - state: ‘finished’ 1583s [00:53:03.053] - run: TRUE 1583s [00:53:03.053] - result: ‘FutureResult’ 1583s [00:53:03.053] resolved() for ‘SequentialFuture’ ... done 1583s [00:53:03.054] Future #1 1583s [00:53:03.054] signalConditionsASAP(SequentialFuture, pos=1) ... 1583s [00:53:03.054] - nx: 1 1583s [00:53:03.054] - relay: TRUE 1583s [00:53:03.054] - stdout: TRUE 1583s [00:53:03.054] - signal: TRUE 1583s [00:53:03.055] - resignal: FALSE 1583s [00:53:03.055] - force: TRUE 1583s [00:53:03.055] - relayed: [n=1] FALSE 1583s [00:53:03.055] - queued futures: [n=1] FALSE 1583s [00:53:03.055] - until=1 1583s [00:53:03.055] - relaying element #1 1583s [00:53:03.055] - relayed: [n=1] TRUE 1583s [00:53:03.056] - queued futures: [n=1] TRUE 1583s [00:53:03.056] signalConditionsASAP(SequentialFuture, pos=1) ... done 1583s [00:53:03.056] length: 0 (resolved future 1) 1583s [00:53:03.056] Relaying remaining futures 1583s [00:53:03.056] signalConditionsASAP(NULL, pos=0) ... 1583s [00:53:03.056] - nx: 1 1583s [00:53:03.057] - relay: TRUE 1583s [00:53:03.057] - stdout: TRUE 1583s [00:53:03.057] - signal: TRUE 1583s [00:53:03.057] - resignal: FALSE 1583s [00:53:03.057] - force: TRUE 1583s [00:53:03.057] - relayed: [n=1] TRUE 1583s [00:53:03.057] - queued futures: [n=1] TRUE 1583s - flush all 1583s [00:53:03.058] - relayed: [n=1] TRUE 1583s [00:53:03.058] - queued futures: [n=1] TRUE 1583s [00:53:03.058] signalConditionsASAP(NULL, pos=0) ... done 1583s [00:53:03.058] resolve() on list ... DONE 1583s [00:53:03.058] - Number of value chunks collected: 1 1583s [00:53:03.058] Resolving 1 futures (chunks) ... DONE 1583s [00:53:03.059] Reducing values from 1 chunks ... 1583s [00:53:03.059] - Number of values collected after concatenation: 3 1583s [00:53:03.059] - Number of values expected: 3 1583s [00:53:03.059] Reducing values from 1 chunks ... DONE 1583s [00:53:03.059] future_lapply() ... DONE 1583s List of 2 1583s $ y0: Named chr [1:3] "a" "b" "c" 1583s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1583s $ y1:[00:53:03.062] future_lapply() ... 1583s Named chr [1:3] "a" "b" "c" 1583s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1583s [00:53:03.066] Number of chunks: 1 1583s [00:53:03.066] getGlobalsAndPackagesXApply() ... 1583s [00:53:03.066] - future.globals: TRUE 1583s [00:53:03.066] getGlobalsAndPackages() ... 1583s [00:53:03.066] Searching for globals... 1583s [00:53:03.068] - globals found: [2] ‘FUN’, ‘UseMethod’ 1583s [00:53:03.068] Searching for globals ... DONE 1583s [00:53:03.068] Resolving globals: FALSE 1583s [00:53:03.069] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1583s [00:53:03.069] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1583s [00:53:03.069] - globals: [1] ‘FUN’ 1583s [00:53:03.069] 1583s [00:53:03.069] getGlobalsAndPackages() ... DONE 1583s [00:53:03.070] - globals found/used: [n=1] ‘FUN’ 1583s [00:53:03.070] - needed namespaces: [n=0] 1583s [00:53:03.070] Finding globals ... DONE 1583s [00:53:03.070] - use_args: TRUE 1583s [00:53:03.070] - Getting '...' globals ... 1583s [00:53:03.071] resolve() on list ... 1583s [00:53:03.071] recursive: 0 1583s [00:53:03.071] length: 1 1583s [00:53:03.071] elements: ‘...’ 1583s [00:53:03.071] length: 0 (resolved future 1) 1583s [00:53:03.072] resolve() on list ... DONE 1583s [00:53:03.072] - '...' content: [n=0] 1583s [00:53:03.072] List of 1 1583s [00:53:03.072] $ ...: list() 1583s [00:53:03.072] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1583s [00:53:03.072] - attr(*, "where")=List of 1 1583s [00:53:03.072] ..$ ...: 1583s [00:53:03.072] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1583s [00:53:03.072] - attr(*, "resolved")= logi TRUE 1583s [00:53:03.072] - attr(*, "total_size")= num NA 1583s [00:53:03.079] - Getting '...' globals ... DONE 1583s [00:53:03.079] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1583s [00:53:03.080] List of 2 1583s [00:53:03.080] $ ...future.FUN:function (x, ...) 1583s [00:53:03.080] $ ... : list() 1583s [00:53:03.080] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1583s [00:53:03.080] - attr(*, "where")=List of 2 1583s [00:53:03.080] ..$ ...future.FUN: 1583s [00:53:03.080] ..$ ... : 1583s [00:53:03.080] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1583s [00:53:03.080] - attr(*, "resolved")= logi FALSE 1583s [00:53:03.080] - attr(*, "total_size")= num 1248 1583s [00:53:03.084] Packages to be attached in all futures: [n=0] 1583s [00:53:03.084] getGlobalsAndPackagesXApply() ... DONE 1583s [00:53:03.084] Number of futures (= number of chunks): 1 1583s [00:53:03.084] Launching 1 futures (chunks) ... 1583s [00:53:03.084] Chunk #1 of 1 ... 1583s [00:53:03.084] - Finding globals in 'X' for chunk #1 ... 1583s [00:53:03.084] getGlobalsAndPackages() ... 1583s [00:53:03.085] Searching for globals... 1583s [00:53:03.085] 1583s [00:53:03.085] Searching for globals ... DONE 1583s [00:53:03.085] - globals: [0] 1583s [00:53:03.085] getGlobalsAndPackages() ... DONE 1583s [00:53:03.085] + additional globals found: [n=0] 1583s [00:53:03.085] + additional namespaces needed: [n=0] 1583s [00:53:03.086] - Finding globals in 'X' for chunk #1 ... DONE 1583s [00:53:03.086] - seeds: 1583s [00:53:03.086] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1583s [00:53:03.086] getGlobalsAndPackages() ... 1583s [00:53:03.086] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1583s [00:53:03.086] Resolving globals: FALSE 1583s [00:53:03.086] Tweak future expression to call with '...' arguments ... 1583s [00:53:03.086] { 1583s [00:53:03.086] do.call(function(...) { 1583s [00:53:03.086] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1583s [00:53:03.086] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1583s [00:53:03.086] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1583s [00:53:03.086] on.exit(options(oopts), add = TRUE) 1583s [00:53:03.086] } 1583s [00:53:03.086] { 1583s [00:53:03.086] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1583s [00:53:03.086] ...future.X_jj <- ...future.elements_ii[[jj]] 1583s [00:53:03.086] ...future.FUN(...future.X_jj, ...) 1583s [00:53:03.086] }) 1583s [00:53:03.086] } 1583s [00:53:03.086] }, args = future.call.arguments) 1583s [00:53:03.086] } 1583s [00:53:03.087] Tweak future expression to call with '...' arguments ... DONE 1583s [00:53:03.087] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1583s [00:53:03.087] 1583s [00:53:03.087] getGlobalsAndPackages() ... DONE 1583s [00:53:03.088] run() for ‘Future’ ... 1583s [00:53:03.088] - state: ‘created’ 1583s [00:53:03.088] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1583s [00:53:03.092] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1583s [00:53:03.092] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1583s [00:53:03.092] - Field: ‘label’ 1583s [00:53:03.093] - Field: ‘local’ 1583s [00:53:03.093] - Field: ‘owner’ 1583s [00:53:03.093] - Field: ‘envir’ 1583s [00:53:03.094] - Field: ‘packages’ 1583s [00:53:03.094] - Field: ‘gc’ 1583s [00:53:03.094] - Field: ‘conditions’ 1583s [00:53:03.094] - Field: ‘expr’ 1583s [00:53:03.095] - Field: ‘uuid’ 1583s [00:53:03.095] - Field: ‘seed’ 1583s [00:53:03.096] - Field: ‘version’ 1583s [00:53:03.096] - Field: ‘result’ 1583s [00:53:03.096] - Field: ‘asynchronous’ 1583s [00:53:03.096] - Field: ‘calls’ 1583s [00:53:03.097] - Field: ‘globals’ 1583s [00:53:03.098] - Field: ‘stdout’ 1583s [00:53:03.098] - Field: ‘earlySignal’ 1583s [00:53:03.098] - Field: ‘lazy’ 1583s [00:53:03.098] - Field: ‘state’ 1583s [00:53:03.099] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1583s [00:53:03.099] - Launch lazy future ... 1583s [00:53:03.099] Packages needed by the future expression (n = 0): 1583s [00:53:03.100] Packages needed by future strategies (n = 0): 1583s [00:53:03.101] { 1583s [00:53:03.101] { 1583s [00:53:03.101] { 1583s [00:53:03.101] ...future.startTime <- base::Sys.time() 1583s [00:53:03.101] { 1583s [00:53:03.101] { 1583s [00:53:03.101] { 1583s [00:53:03.101] base::local({ 1583s [00:53:03.101] has_future <- base::requireNamespace("future", 1583s [00:53:03.101] quietly = TRUE) 1583s [00:53:03.101] if (has_future) { 1583s [00:53:03.101] ns <- base::getNamespace("future") 1583s [00:53:03.101] version <- ns[[".package"]][["version"]] 1583s [00:53:03.101] if (is.null(version)) 1583s [00:53:03.101] version <- utils::packageVersion("future") 1583s [00:53:03.101] } 1583s [00:53:03.101] else { 1583s [00:53:03.101] version <- NULL 1583s [00:53:03.101] } 1583s [00:53:03.101] if (!has_future || version < "1.8.0") { 1583s [00:53:03.101] info <- base::c(r_version = base::gsub("R version ", 1583s [00:53:03.101] "", base::R.version$version.string), 1583s [00:53:03.101] platform = base::sprintf("%s (%s-bit)", 1583s [00:53:03.101] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1583s [00:53:03.101] os = base::paste(base::Sys.info()[base::c("sysname", 1583s [00:53:03.101] "release", "version")], collapse = " "), 1583s [00:53:03.101] hostname = base::Sys.info()[["nodename"]]) 1583s [00:53:03.101] info <- base::sprintf("%s: %s", base::names(info), 1583s [00:53:03.101] info) 1583s [00:53:03.101] info <- base::paste(info, collapse = "; ") 1583s [00:53:03.101] if (!has_future) { 1583s [00:53:03.101] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1583s [00:53:03.101] info) 1583s [00:53:03.101] } 1583s [00:53:03.101] else { 1583s [00:53:03.101] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1583s [00:53:03.101] info, version) 1583s [00:53:03.101] } 1583s [00:53:03.101] base::stop(msg) 1583s [00:53:03.101] } 1583s [00:53:03.101] }) 1583s [00:53:03.101] } 1583s [00:53:03.101] options(future.plan = NULL) 1583s [00:53:03.101] Sys.unsetenv("R_FUTURE_PLAN") 1583s [00:53:03.101] future::plan("default", .cleanup = FALSE, .init = FALSE) 1583s [00:53:03.101] } 1583s [00:53:03.101] ...future.workdir <- getwd() 1583s [00:53:03.101] } 1583s [00:53:03.101] ...future.oldOptions <- base::as.list(base::.Options) 1583s [00:53:03.101] ...future.oldEnvVars <- base::Sys.getenv() 1583s [00:53:03.101] } 1583s [00:53:03.101] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1583s [00:53:03.101] future.globals.maxSize = NULL, future.globals.method = NULL, 1583s [00:53:03.101] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1583s [00:53:03.101] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1583s [00:53:03.101] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1583s [00:53:03.101] future.stdout.windows.reencode = NULL, width = 80L) 1583s [00:53:03.101] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1583s [00:53:03.101] base::names(...future.oldOptions)) 1583s [00:53:03.101] } 1583s [00:53:03.101] if (FALSE) { 1583s [00:53:03.101] } 1583s [00:53:03.101] else { 1583s [00:53:03.101] if (TRUE) { 1583s [00:53:03.101] ...future.stdout <- base::rawConnection(base::raw(0L), 1583s [00:53:03.101] open = "w") 1583s [00:53:03.101] } 1583s [00:53:03.101] else { 1583s [00:53:03.101] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1583s [00:53:03.101] windows = "NUL", "/dev/null"), open = "w") 1583s [00:53:03.101] } 1583s [00:53:03.101] base::sink(...future.stdout, type = "output", split = FALSE) 1583s [00:53:03.101] base::on.exit(if (!base::is.null(...future.stdout)) { 1583s [00:53:03.101] base::sink(type = "output", split = FALSE) 1583s [00:53:03.101] base::close(...future.stdout) 1583s [00:53:03.101] }, add = TRUE) 1583s [00:53:03.101] } 1583s [00:53:03.101] ...future.frame <- base::sys.nframe() 1583s [00:53:03.101] ...future.conditions <- base::list() 1583s [00:53:03.101] ...future.rng <- base::globalenv()$.Random.seed 1583s [00:53:03.101] if (FALSE) { 1583s [00:53:03.101] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1583s [00:53:03.101] "...future.value", "...future.globalenv.names", ".Random.seed") 1583s [00:53:03.101] } 1583s [00:53:03.101] ...future.result <- base::tryCatch({ 1583s [00:53:03.101] base::withCallingHandlers({ 1583s [00:53:03.101] ...future.value <- base::withVisible(base::local({ 1583s [00:53:03.101] do.call(function(...) { 1583s [00:53:03.101] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1583s [00:53:03.101] if (!identical(...future.globals.maxSize.org, 1583s [00:53:03.101] ...future.globals.maxSize)) { 1583s [00:53:03.101] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1583s [00:53:03.101] on.exit(options(oopts), add = TRUE) 1583s [00:53:03.101] } 1583s [00:53:03.101] { 1583s [00:53:03.101] lapply(seq_along(...future.elements_ii), 1583s [00:53:03.101] FUN = function(jj) { 1583s [00:53:03.101] ...future.X_jj <- ...future.elements_ii[[jj]] 1583s [00:53:03.101] ...future.FUN(...future.X_jj, ...) 1583s [00:53:03.101] }) 1583s [00:53:03.101] } 1583s [00:53:03.101] }, args = future.call.arguments) 1583s [00:53:03.101] })) 1583s [00:53:03.101] future::FutureResult(value = ...future.value$value, 1583s [00:53:03.101] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1583s [00:53:03.101] ...future.rng), globalenv = if (FALSE) 1583s [00:53:03.101] list(added = base::setdiff(base::names(base::.GlobalEnv), 1583s [00:53:03.101] ...future.globalenv.names)) 1583s [00:53:03.101] else NULL, started = ...future.startTime, version = "1.8") 1583s [00:53:03.101] }, condition = base::local({ 1583s [00:53:03.101] c <- base::c 1583s [00:53:03.101] inherits <- base::inherits 1583s [00:53:03.101] invokeRestart <- base::invokeRestart 1583s [00:53:03.101] length <- base::length 1583s [00:53:03.101] list <- base::list 1583s [00:53:03.101] seq.int <- base::seq.int 1583s [00:53:03.101] signalCondition <- base::signalCondition 1583s [00:53:03.101] sys.calls <- base::sys.calls 1583s [00:53:03.101] `[[` <- base::`[[` 1583s [00:53:03.101] `+` <- base::`+` 1583s [00:53:03.101] `<<-` <- base::`<<-` 1583s [00:53:03.101] sysCalls <- function(calls = sys.calls(), from = 1L) { 1583s [00:53:03.101] calls[seq.int(from = from + 12L, to = length(calls) - 1583s [00:53:03.101] 3L)] 1583s [00:53:03.101] } 1583s [00:53:03.101] function(cond) { 1583s [00:53:03.101] is_error <- inherits(cond, "error") 1583s [00:53:03.101] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1583s [00:53:03.101] NULL) 1583s [00:53:03.101] if (is_error) { 1583s [00:53:03.101] sessionInformation <- function() { 1583s [00:53:03.101] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1583s [00:53:03.101] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1583s [00:53:03.101] search = base::search(), system = base::Sys.info()) 1583s [00:53:03.101] } 1583s [00:53:03.101] ...future.conditions[[length(...future.conditions) + 1583s [00:53:03.101] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1583s [00:53:03.101] cond$call), session = sessionInformation(), 1583s [00:53:03.101] timestamp = base::Sys.time(), signaled = 0L) 1583s [00:53:03.101] signalCondition(cond) 1583s [00:53:03.101] } 1583s [00:53:03.101] else if (!ignore && TRUE && inherits(cond, c("condition", 1583s [00:53:03.101] "immediateCondition"))) { 1583s [00:53:03.101] signal <- TRUE && inherits(cond, "immediateCondition") 1583s [00:53:03.101] ...future.conditions[[length(...future.conditions) + 1583s [00:53:03.101] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1583s [00:53:03.101] if (TRUE && !signal) { 1583s [00:53:03.101] muffleCondition <- function (cond, pattern = "^muffle") 1583s [00:53:03.101] { 1583s [00:53:03.101] inherits <- base::inherits 1583s [00:53:03.101] invokeRestart <- base::invokeRestart 1583s [00:53:03.101] is.null <- base::is.null 1583s [00:53:03.101] muffled <- FALSE 1583s [00:53:03.101] if (inherits(cond, "message")) { 1583s [00:53:03.101] muffled <- grepl(pattern, "muffleMessage") 1583s [00:53:03.101] if (muffled) 1583s [00:53:03.101] invokeRestart("muffleMessage") 1583s [00:53:03.101] } 1583s [00:53:03.101] else if (inherits(cond, "warning")) { 1583s [00:53:03.101] muffled <- grepl(pattern, "muffleWarning") 1583s [00:53:03.101] if (muffled) 1583s [00:53:03.101] invokeRestart("muffleWarning") 1583s [00:53:03.101] } 1583s [00:53:03.101] else if (inherits(cond, "condition")) { 1583s [00:53:03.101] if (!is.null(pattern)) { 1583s [00:53:03.101] computeRestarts <- base::computeRestarts 1583s [00:53:03.101] grepl <- base::grepl 1583s [00:53:03.101] restarts <- computeRestarts(cond) 1583s [00:53:03.101] for (restart in restarts) { 1583s [00:53:03.101] name <- restart$name 1583s [00:53:03.101] if (is.null(name)) 1583s [00:53:03.101] next 1583s [00:53:03.101] if (!grepl(pattern, name)) 1583s [00:53:03.101] next 1583s [00:53:03.101] invokeRestart(restart) 1583s [00:53:03.101] muffled <- TRUE 1583s [00:53:03.101] break 1583s [00:53:03.101] } 1583s [00:53:03.101] } 1583s [00:53:03.101] } 1583s [00:53:03.101] invisible(muffled) 1583s [00:53:03.101] } 1583s [00:53:03.101] muffleCondition(cond, pattern = "^muffle") 1583s [00:53:03.101] } 1583s [00:53:03.101] } 1583s [00:53:03.101] else { 1583s [00:53:03.101] if (TRUE) { 1583s [00:53:03.101] muffleCondition <- function (cond, pattern = "^muffle") 1583s [00:53:03.101] { 1583s [00:53:03.101] inherits <- base::inherits 1583s [00:53:03.101] invokeRestart <- base::invokeRestart 1583s [00:53:03.101] is.null <- base::is.null 1583s [00:53:03.101] muffled <- FALSE 1583s [00:53:03.101] if (inherits(cond, "message")) { 1583s [00:53:03.101] muffled <- grepl(pattern, "muffleMessage") 1583s [00:53:03.101] if (muffled) 1583s [00:53:03.101] invokeRestart("muffleMessage") 1583s [00:53:03.101] } 1583s [00:53:03.101] else if (inherits(cond, "warning")) { 1583s [00:53:03.101] muffled <- grepl(pattern, "muffleWarning") 1583s [00:53:03.101] if (muffled) 1583s [00:53:03.101] invokeRestart("muffleWarning") 1583s [00:53:03.101] } 1583s [00:53:03.101] else if (inherits(cond, "condition")) { 1583s [00:53:03.101] if (!is.null(pattern)) { 1583s [00:53:03.101] computeRestarts <- base::computeRestarts 1583s [00:53:03.101] grepl <- base::grepl 1583s [00:53:03.101] restarts <- computeRestarts(cond) 1583s [00:53:03.101] for (restart in restarts) { 1583s [00:53:03.101] name <- restart$name 1583s [00:53:03.101] if (is.null(name)) 1583s [00:53:03.101] next 1583s [00:53:03.101] if (!grepl(pattern, name)) 1583s [00:53:03.101] next 1583s [00:53:03.101] invokeRestart(restart) 1583s [00:53:03.101] muffled <- TRUE 1583s [00:53:03.101] break 1583s [00:53:03.101] } 1583s [00:53:03.101] } 1583s [00:53:03.101] } 1583s [00:53:03.101] invisible(muffled) 1583s [00:53:03.101] } 1583s [00:53:03.101] muffleCondition(cond, pattern = "^muffle") 1583s [00:53:03.101] } 1583s [00:53:03.101] } 1583s [00:53:03.101] } 1583s [00:53:03.101] })) 1583s [00:53:03.101] }, error = function(ex) { 1583s [00:53:03.101] base::structure(base::list(value = NULL, visible = NULL, 1583s [00:53:03.101] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1583s [00:53:03.101] ...future.rng), started = ...future.startTime, 1583s [00:53:03.101] finished = Sys.time(), session_uuid = NA_character_, 1583s [00:53:03.101] version = "1.8"), class = "FutureResult") 1583s [00:53:03.101] }, finally = { 1583s [00:53:03.101] if (!identical(...future.workdir, getwd())) 1583s [00:53:03.101] setwd(...future.workdir) 1583s [00:53:03.101] { 1583s [00:53:03.101] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1583s [00:53:03.101] ...future.oldOptions$nwarnings <- NULL 1583s [00:53:03.101] } 1583s [00:53:03.101] base::options(...future.oldOptions) 1583s [00:53:03.101] if (.Platform$OS.type == "windows") { 1583s [00:53:03.101] old_names <- names(...future.oldEnvVars) 1583s [00:53:03.101] envs <- base::Sys.getenv() 1583s [00:53:03.101] names <- names(envs) 1583s [00:53:03.101] common <- intersect(names, old_names) 1583s [00:53:03.101] added <- setdiff(names, old_names) 1583s [00:53:03.101] removed <- setdiff(old_names, names) 1583s [00:53:03.101] changed <- common[...future.oldEnvVars[common] != 1583s [00:53:03.101] envs[common]] 1583s [00:53:03.101] NAMES <- toupper(changed) 1583s [00:53:03.101] args <- list() 1583s [00:53:03.101] for (kk in seq_along(NAMES)) { 1583s [00:53:03.101] name <- changed[[kk]] 1583s [00:53:03.101] NAME <- NAMES[[kk]] 1583s [00:53:03.101] if (name != NAME && is.element(NAME, old_names)) 1583s [00:53:03.101] next 1583s [00:53:03.101] args[[name]] <- ...future.oldEnvVars[[name]] 1583s [00:53:03.101] } 1583s [00:53:03.101] NAMES <- toupper(added) 1583s [00:53:03.101] for (kk in seq_along(NAMES)) { 1583s [00:53:03.101] name <- added[[kk]] 1583s [00:53:03.101] NAME <- NAMES[[kk]] 1583s [00:53:03.101] if (name != NAME && is.element(NAME, old_names)) 1583s [00:53:03.101] next 1583s [00:53:03.101] args[[name]] <- "" 1583s [00:53:03.101] } 1583s [00:53:03.101] NAMES <- toupper(removed) 1583s [00:53:03.101] for (kk in seq_along(NAMES)) { 1583s [00:53:03.101] name <- removed[[kk]] 1583s [00:53:03.101] NAME <- NAMES[[kk]] 1583s [00:53:03.101] if (name != NAME && is.element(NAME, old_names)) 1583s [00:53:03.101] next 1583s [00:53:03.101] args[[name]] <- ...future.oldEnvVars[[name]] 1583s [00:53:03.101] } 1583s [00:53:03.101] if (length(args) > 0) 1583s [00:53:03.101] base::do.call(base::Sys.setenv, args = args) 1583s [00:53:03.101] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1583s [00:53:03.101] } 1583s [00:53:03.101] else { 1583s [00:53:03.101] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1583s [00:53:03.101] } 1583s [00:53:03.101] { 1583s [00:53:03.101] if (base::length(...future.futureOptionsAdded) > 1583s [00:53:03.101] 0L) { 1583s [00:53:03.101] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1583s [00:53:03.101] base::names(opts) <- ...future.futureOptionsAdded 1583s [00:53:03.101] base::options(opts) 1583s [00:53:03.101] } 1583s [00:53:03.101] { 1583s [00:53:03.101] { 1583s [00:53:03.101] NULL 1583s [00:53:03.101] RNGkind("Mersenne-Twister") 1583s [00:53:03.101] base::rm(list = ".Random.seed", envir = base::globalenv(), 1583s [00:53:03.101] inherits = FALSE) 1583s [00:53:03.101] } 1583s [00:53:03.101] options(future.plan = NULL) 1583s [00:53:03.101] if (is.na(NA_character_)) 1583s [00:53:03.101] Sys.unsetenv("R_FUTURE_PLAN") 1583s [00:53:03.101] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1583s [00:53:03.101] future::plan(list(function (..., workers = availableCores(), 1583s [00:53:03.101] lazy = FALSE, rscript_libs = .libPaths(), 1583s [00:53:03.101] envir = parent.frame()) 1583s [00:53:03.101] { 1583s [00:53:03.101] if (is.function(workers)) 1583s [00:53:03.101] workers <- workers() 1583s [00:53:03.101] workers <- structure(as.integer(workers), 1583s [00:53:03.101] class = class(workers)) 1583s [00:53:03.101] stop_if_not(length(workers) == 1, is.finite(workers), 1583s [00:53:03.101] workers >= 1) 1583s [00:53:03.101] if (workers == 1L && !inherits(workers, "AsIs")) { 1583s [00:53:03.101] return(sequential(..., lazy = TRUE, envir = envir)) 1583s [00:53:03.101] } 1583s [00:53:03.101] future <- MultisessionFuture(..., workers = workers, 1583s [00:53:03.101] lazy = lazy, rscript_libs = rscript_libs, 1583s [00:53:03.101] envir = envir) 1583s [00:53:03.101] if (!future$lazy) 1583s [00:53:03.101] future <- run(future) 1583s [00:53:03.101] invisible(future) 1583s [00:53:03.101] }), .cleanup = FALSE, .init = FALSE) 1583s [00:53:03.101] } 1583s [00:53:03.101] } 1583s [00:53:03.101] } 1583s [00:53:03.101] }) 1583s [00:53:03.101] if (TRUE) { 1583s [00:53:03.101] base::sink(type = "output", split = FALSE) 1583s [00:53:03.101] if (TRUE) { 1583s [00:53:03.101] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1583s [00:53:03.101] } 1583s [00:53:03.101] else { 1583s [00:53:03.101] ...future.result["stdout"] <- base::list(NULL) 1583s [00:53:03.101] } 1583s [00:53:03.101] base::close(...future.stdout) 1583s [00:53:03.101] ...future.stdout <- NULL 1583s [00:53:03.101] } 1583s [00:53:03.101] ...future.result$conditions <- ...future.conditions 1583s [00:53:03.101] ...future.result$finished <- base::Sys.time() 1583s [00:53:03.101] ...future.result 1583s [00:53:03.101] } 1583s [00:53:03.107] assign_globals() ... 1583s [00:53:03.107] List of 5 1583s [00:53:03.107] $ ...future.FUN :function (x, ...) 1583s [00:53:03.107] $ future.call.arguments : list() 1583s [00:53:03.107] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1583s [00:53:03.107] $ ...future.elements_ii :List of 3 1583s [00:53:03.107] ..$ : chr "a" 1583s [00:53:03.107] ..$ : chr "b" 1583s [00:53:03.107] ..$ : chr "c" 1583s [00:53:03.107] $ ...future.seeds_ii : NULL 1583s [00:53:03.107] $ ...future.globals.maxSize: NULL 1583s [00:53:03.107] - attr(*, "where")=List of 5 1583s [00:53:03.107] ..$ ...future.FUN : 1583s [00:53:03.107] ..$ future.call.arguments : 1583s [00:53:03.107] ..$ ...future.elements_ii : 1583s [00:53:03.107] ..$ ...future.seeds_ii : 1583s [00:53:03.107] ..$ ...future.globals.maxSize: 1583s [00:53:03.107] - attr(*, "resolved")= logi FALSE 1583s [00:53:03.107] - attr(*, "total_size")= num 1248 1583s [00:53:03.107] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1583s [00:53:03.107] - attr(*, "already-done")= logi TRUE 1583s [00:53:03.114] - copied ‘...future.FUN’ to environment 1583s [00:53:03.114] - copied ‘future.call.arguments’ to environment 1583s [00:53:03.114] - copied ‘...future.elements_ii’ to environment 1583s [00:53:03.114] - copied ‘...future.seeds_ii’ to environment 1583s [00:53:03.115] - copied ‘...future.globals.maxSize’ to environment 1583s [00:53:03.115] assign_globals() ... done 1583s [00:53:03.115] plan(): Setting new future strategy stack: 1583s [00:53:03.115] List of future strategies: 1583s [00:53:03.115] 1. sequential: 1583s [00:53:03.115] - args: function (..., envir = parent.frame()) 1583s [00:53:03.115] - tweaked: FALSE 1583s [00:53:03.115] - call: NULL 1583s [00:53:03.116] plan(): nbrOfWorkers() = 1 1583s [00:53:03.117] plan(): Setting new future strategy stack: 1583s [00:53:03.117] List of future strategies: 1583s [00:53:03.117] 1. multisession: 1583s [00:53:03.117] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1583s [00:53:03.117] - tweaked: FALSE 1583s [00:53:03.117] - call: plan(strategy) 1583s [00:53:03.121] plan(): nbrOfWorkers() = 1 1583s [00:53:03.121] SequentialFuture started (and completed) 1583s [00:53:03.122] - Launch lazy future ... done 1583s [00:53:03.122] run() for ‘SequentialFuture’ ... done 1583s [00:53:03.122] Created future: 1583s [00:53:03.122] SequentialFuture: 1583s [00:53:03.122] Label: ‘future_sapply-1’ 1583s [00:53:03.122] Expression: 1583s [00:53:03.122] { 1583s [00:53:03.122] do.call(function(...) { 1583s [00:53:03.122] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1583s [00:53:03.122] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1583s [00:53:03.122] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1583s [00:53:03.122] on.exit(options(oopts), add = TRUE) 1583s [00:53:03.122] } 1583s [00:53:03.122] { 1583s [00:53:03.122] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1583s [00:53:03.122] ...future.X_jj <- ...future.elements_ii[[jj]] 1583s [00:53:03.122] ...future.FUN(...future.X_jj, ...) 1583s [00:53:03.122] }) 1583s [00:53:03.122] } 1583s [00:53:03.122] }, args = future.call.arguments) 1583s [00:53:03.122] } 1583s [00:53:03.122] Lazy evaluation: FALSE 1583s [00:53:03.122] Asynchronous evaluation: FALSE 1583s [00:53:03.122] Local evaluation: TRUE 1583s [00:53:03.122] Environment: R_GlobalEnv 1583s [00:53:03.122] Capture standard output: TRUE 1583s [00:53:03.122] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1583s [00:53:03.122] Globals: 5 objects totaling 1.55 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1583s [00:53:03.122] Packages: 1583s [00:53:03.122] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1583s [00:53:03.122] Resolved: TRUE 1583s [00:53:03.122] Value: 840 bytes of class ‘list’ 1583s [00:53:03.122] Early signaling: FALSE 1583s [00:53:03.122] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1583s [00:53:03.122] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1583s [00:53:03.124] Chunk #1 of 1 ... DONE 1583s [00:53:03.124] Launching 1 futures (chunks) ... DONE 1583s [00:53:03.125] Resolving 1 futures (chunks) ... 1583s [00:53:03.125] resolve() on list ... 1583s [00:53:03.125] recursive: 0 1583s [00:53:03.125] length: 1 1583s [00:53:03.126] 1583s [00:53:03.126] resolved() for ‘SequentialFuture’ ... 1583s [00:53:03.126] - state: ‘finished’ 1583s [00:53:03.126] - run: TRUE 1583s [00:53:03.126] - result: ‘FutureResult’ 1583s [00:53:03.126] resolved() for ‘SequentialFuture’ ... done 1583s [00:53:03.127] Future #1 1583s [00:53:03.127] signalConditionsASAP(SequentialFuture, pos=1) ... 1583s [00:53:03.127] - nx: 1 1583s [00:53:03.127] - relay: TRUE 1583s [00:53:03.127] - stdout: TRUE 1583s [00:53:03.127] - signal: TRUE 1583s [00:53:03.128] - resignal: FALSE 1583s [00:53:03.128] - force: TRUE 1583s [00:53:03.128] - relayed: [n=1] FALSE 1583s [00:53:03.128] - queued futures: [n=1] FALSE 1583s [00:53:03.128] - until=1 1583s [00:53:03.128] - relaying element #1 1583s [00:53:03.129] - relayed: [n=1] TRUE 1583s [00:53:03.129] - queued futures: [n=1] TRUE 1583s [00:53:03.129] signalConditionsASAP(SequentialFuture, pos=1) ... done 1583s [00:53:03.129] length: 0 (resolved future 1) 1583s [00:53:03.129] Relaying remaining futures 1583s [00:53:03.130] signalConditionsASAP(NULL, pos=0) ... 1583s [00:53:03.130] - nx: 1 1583s [00:53:03.130] - relay: TRUE 1583s [00:53:03.130] - stdout: TRUE 1583s [00:53:03.130] - signal: TRUE 1583s [00:53:03.130] - resignal: FALSE 1583s [00:53:03.130] - force: TRUE 1583s [00:53:03.131] - relayed: [n=1] TRUE 1583s [00:53:03.131] - queued futures: [n=1] TRUE 1583s - flush all 1583s [00:53:03.131] - relayed: [n=1] TRUE 1583s [00:53:03.131] - queued futures: [n=1] TRUE 1583s [00:53:03.131] signalConditionsASAP(NULL, pos=0) ... done 1583s [00:53:03.131] resolve() on list ... DONE 1583s [00:53:03.132] - Number of value chunks collected: 1 1583s [00:53:03.132] Resolving 1 futures (chunks) ... DONE 1583s [00:53:03.132] Reducing values from 1 chunks ... 1583s [00:53:03.132] - Number of values collected after concatenation: 3 1583s [00:53:03.132] - Number of values expected: 3 1583s [00:53:03.132] Reducing values from 1 chunks ... DONE 1583s [00:53:03.132] future_lapply() ... DONE 1583s List of 2 1583s $ y0: Named chr [1:3] "a" "b" "c" 1583s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1583s $ y1: Named chr [1:3] "a" "b" "c" 1583s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1583s [00:53:03.135] future_lapply() ... 1583s [00:53:03.139] Number of chunks: 1 1583s [00:53:03.139] getGlobalsAndPackagesXApply() ... 1583s [00:53:03.139] - future.globals: TRUE 1583s [00:53:03.139] getGlobalsAndPackages() ... 1583s [00:53:03.139] Searching for globals... 1583s [00:53:03.141] - globals found: [1] ‘FUN’ 1583s [00:53:03.141] Searching for globals ... DONE 1583s [00:53:03.141] Resolving globals: FALSE 1583s [00:53:03.141] The total size of the 1 globals is 848 bytes (848 bytes) 1583s [00:53:03.142] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1583s [00:53:03.142] - globals: [1] ‘FUN’ 1583s [00:53:03.142] 1583s [00:53:03.142] getGlobalsAndPackages() ... DONE 1583s [00:53:03.142] - globals found/used: [n=1] ‘FUN’ 1583s [00:53:03.143] - needed namespaces: [n=0] 1583s [00:53:03.143] Finding globals ... DONE 1583s [00:53:03.143] - use_args: TRUE 1583s [00:53:03.143] - Getting '...' globals ... 1583s [00:53:03.144] resolve() on list ... 1583s [00:53:03.144] recursive: 0 1583s [00:53:03.144] length: 1 1583s [00:53:03.144] elements: ‘...’ 1583s [00:53:03.144] length: 0 (resolved future 1) 1583s [00:53:03.144] resolve() on list ... DONE 1583s [00:53:03.145] - '...' content: [n=0] 1583s [00:53:03.145] List of 1 1583s [00:53:03.145] $ ...: list() 1583s [00:53:03.145] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1583s [00:53:03.145] - attr(*, "where")=List of 1 1583s [00:53:03.145] ..$ ...: 1583s [00:53:03.145] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1583s [00:53:03.145] - attr(*, "resolved")= logi TRUE 1583s [00:53:03.145] - attr(*, "total_size")= num NA 1583s [00:53:03.148] - Getting '...' globals ... DONE 1583s [00:53:03.148] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1583s [00:53:03.148] List of 2 1583s [00:53:03.148] $ ...future.FUN:function (x) 1583s [00:53:03.148] $ ... : list() 1583s [00:53:03.148] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1583s [00:53:03.148] - attr(*, "where")=List of 2 1583s [00:53:03.148] ..$ ...future.FUN: 1583s [00:53:03.148] ..$ ... : 1583s [00:53:03.148] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1583s [00:53:03.148] - attr(*, "resolved")= logi FALSE 1583s [00:53:03.148] - attr(*, "total_size")= num 848 1583s [00:53:03.153] Packages to be attached in all futures: [n=0] 1583s [00:53:03.153] getGlobalsAndPackagesXApply() ... DONE 1583s [00:53:03.153] Number of futures (= number of chunks): 1 1583s [00:53:03.153] Launching 1 futures (chunks) ... 1583s [00:53:03.153] Chunk #1 of 1 ... 1583s [00:53:03.154] - Finding globals in 'X' for chunk #1 ... 1583s [00:53:03.154] getGlobalsAndPackages() ... 1583s [00:53:03.154] Searching for globals... 1583s [00:53:03.154] 1583s [00:53:03.154] Searching for globals ... DONE 1583s [00:53:03.155] - globals: [0] 1583s [00:53:03.155] getGlobalsAndPackages() ... DONE 1583s [00:53:03.155] + additional globals found: [n=0] 1583s [00:53:03.155] + additional namespaces needed: [n=0] 1583s [00:53:03.155] - Finding globals in 'X' for chunk #1 ... DONE 1583s [00:53:03.155] - seeds: 1583s [00:53:03.155] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1583s [00:53:03.156] getGlobalsAndPackages() ... 1583s [00:53:03.156] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1583s [00:53:03.156] Resolving globals: FALSE 1583s [00:53:03.156] Tweak future expression to call with '...' arguments ... 1583s [00:53:03.156] { 1583s [00:53:03.156] do.call(function(...) { 1583s [00:53:03.156] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1583s [00:53:03.156] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1583s [00:53:03.156] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1583s [00:53:03.156] on.exit(options(oopts), add = TRUE) 1583s [00:53:03.156] } 1583s [00:53:03.156] { 1583s [00:53:03.156] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1583s [00:53:03.156] ...future.X_jj <- ...future.elements_ii[[jj]] 1583s [00:53:03.156] ...future.FUN(...future.X_jj, ...) 1583s [00:53:03.156] }) 1583s [00:53:03.156] } 1583s [00:53:03.156] }, args = future.call.arguments) 1583s [00:53:03.156] } 1583s [00:53:03.157] Tweak future expression to call with '...' arguments ... DONE 1583s [00:53:03.158] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1583s [00:53:03.158] 1583s [00:53:03.158] getGlobalsAndPackages() ... DONE 1583s [00:53:03.158] run() for ‘Future’ ... 1583s [00:53:03.159] - state: ‘created’ 1583s [00:53:03.159] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1583s [00:53:03.163] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1583s [00:53:03.163] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1583s [00:53:03.163] - Field: ‘label’ 1583s [00:53:03.163] - Field: ‘local’ 1583s [00:53:03.164] - Field: ‘owner’ 1583s [00:53:03.164] - Field: ‘envir’ 1583s [00:53:03.164] - Field: ‘packages’ 1583s [00:53:03.164] - Field: ‘gc’ 1583s [00:53:03.164] - Field: ‘conditions’ 1583s [00:53:03.164] - Field: ‘expr’ 1583s [00:53:03.165] - Field: ‘uuid’ 1583s [00:53:03.165] - Field: ‘seed’ 1583s [00:53:03.165] - Field: ‘version’ 1583s [00:53:03.165] - Field: ‘result’ 1583s [00:53:03.165] - Field: ‘asynchronous’ 1583s [00:53:03.165] - Field: ‘calls’ 1583s [00:53:03.166] - Field: ‘globals’ 1583s [00:53:03.166] - Field: ‘stdout’ 1583s [00:53:03.166] - Field: ‘earlySignal’ 1583s [00:53:03.166] - Field: ‘lazy’ 1583s [00:53:03.166] - Field: ‘state’ 1583s [00:53:03.167] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1583s [00:53:03.167] - Launch lazy future ... 1583s [00:53:03.167] Packages needed by the future expression (n = 0): 1583s [00:53:03.167] Packages needed by future strategies (n = 0): 1583s [00:53:03.168] { 1583s [00:53:03.168] { 1583s [00:53:03.168] { 1583s [00:53:03.168] ...future.startTime <- base::Sys.time() 1583s [00:53:03.168] { 1583s [00:53:03.168] { 1583s [00:53:03.168] { 1583s [00:53:03.168] base::local({ 1583s [00:53:03.168] has_future <- base::requireNamespace("future", 1583s [00:53:03.168] quietly = TRUE) 1583s [00:53:03.168] if (has_future) { 1583s [00:53:03.168] ns <- base::getNamespace("future") 1583s [00:53:03.168] version <- ns[[".package"]][["version"]] 1583s [00:53:03.168] if (is.null(version)) 1583s [00:53:03.168] version <- utils::packageVersion("future") 1583s [00:53:03.168] } 1583s [00:53:03.168] else { 1583s [00:53:03.168] version <- NULL 1583s [00:53:03.168] } 1583s [00:53:03.168] if (!has_future || version < "1.8.0") { 1583s [00:53:03.168] info <- base::c(r_version = base::gsub("R version ", 1583s [00:53:03.168] "", base::R.version$version.string), 1583s [00:53:03.168] platform = base::sprintf("%s (%s-bit)", 1583s [00:53:03.168] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1583s [00:53:03.168] os = base::paste(base::Sys.info()[base::c("sysname", 1583s [00:53:03.168] "release", "version")], collapse = " "), 1583s [00:53:03.168] hostname = base::Sys.info()[["nodename"]]) 1583s [00:53:03.168] info <- base::sprintf("%s: %s", base::names(info), 1583s [00:53:03.168] info) 1583s [00:53:03.168] info <- base::paste(info, collapse = "; ") 1583s [00:53:03.168] if (!has_future) { 1583s [00:53:03.168] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1583s [00:53:03.168] info) 1583s [00:53:03.168] } 1583s [00:53:03.168] else { 1583s [00:53:03.168] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1583s [00:53:03.168] info, version) 1583s [00:53:03.168] } 1583s [00:53:03.168] base::stop(msg) 1583s [00:53:03.168] } 1583s [00:53:03.168] }) 1583s [00:53:03.168] } 1583s [00:53:03.168] options(future.plan = NULL) 1583s [00:53:03.168] Sys.unsetenv("R_FUTURE_PLAN") 1583s [00:53:03.168] future::plan("default", .cleanup = FALSE, .init = FALSE) 1583s [00:53:03.168] } 1583s [00:53:03.168] ...future.workdir <- getwd() 1583s [00:53:03.168] } 1583s [00:53:03.168] ...future.oldOptions <- base::as.list(base::.Options) 1583s [00:53:03.168] ...future.oldEnvVars <- base::Sys.getenv() 1583s [00:53:03.168] } 1583s [00:53:03.168] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1583s [00:53:03.168] future.globals.maxSize = NULL, future.globals.method = NULL, 1583s [00:53:03.168] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1583s [00:53:03.168] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1583s [00:53:03.168] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1583s [00:53:03.168] future.stdout.windows.reencode = NULL, width = 80L) 1583s [00:53:03.168] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1583s [00:53:03.168] base::names(...future.oldOptions)) 1583s [00:53:03.168] } 1583s [00:53:03.168] if (FALSE) { 1583s [00:53:03.168] } 1583s [00:53:03.168] else { 1583s [00:53:03.168] if (TRUE) { 1583s [00:53:03.168] ...future.stdout <- base::rawConnection(base::raw(0L), 1583s [00:53:03.168] open = "w") 1583s [00:53:03.168] } 1583s [00:53:03.168] else { 1583s [00:53:03.168] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1583s [00:53:03.168] windows = "NUL", "/dev/null"), open = "w") 1583s [00:53:03.168] } 1583s [00:53:03.168] base::sink(...future.stdout, type = "output", split = FALSE) 1583s [00:53:03.168] base::on.exit(if (!base::is.null(...future.stdout)) { 1583s [00:53:03.168] base::sink(type = "output", split = FALSE) 1583s [00:53:03.168] base::close(...future.stdout) 1583s [00:53:03.168] }, add = TRUE) 1583s [00:53:03.168] } 1583s [00:53:03.168] ...future.frame <- base::sys.nframe() 1583s [00:53:03.168] ...future.conditions <- base::list() 1583s [00:53:03.168] ...future.rng <- base::globalenv()$.Random.seed 1583s [00:53:03.168] if (FALSE) { 1583s [00:53:03.168] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1583s [00:53:03.168] "...future.value", "...future.globalenv.names", ".Random.seed") 1583s [00:53:03.168] } 1583s [00:53:03.168] ...future.result <- base::tryCatch({ 1583s [00:53:03.168] base::withCallingHandlers({ 1583s [00:53:03.168] ...future.value <- base::withVisible(base::local({ 1583s [00:53:03.168] do.call(function(...) { 1583s [00:53:03.168] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1583s [00:53:03.168] if (!identical(...future.globals.maxSize.org, 1583s [00:53:03.168] ...future.globals.maxSize)) { 1583s [00:53:03.168] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1583s [00:53:03.168] on.exit(options(oopts), add = TRUE) 1583s [00:53:03.168] } 1583s [00:53:03.168] { 1583s [00:53:03.168] lapply(seq_along(...future.elements_ii), 1583s [00:53:03.168] FUN = function(jj) { 1583s [00:53:03.168] ...future.X_jj <- ...future.elements_ii[[jj]] 1583s [00:53:03.168] ...future.FUN(...future.X_jj, ...) 1583s [00:53:03.168] }) 1583s [00:53:03.168] } 1583s [00:53:03.168] }, args = future.call.arguments) 1583s [00:53:03.168] })) 1583s [00:53:03.168] future::FutureResult(value = ...future.value$value, 1583s [00:53:03.168] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1583s [00:53:03.168] ...future.rng), globalenv = if (FALSE) 1583s [00:53:03.168] list(added = base::setdiff(base::names(base::.GlobalEnv), 1583s [00:53:03.168] ...future.globalenv.names)) 1583s [00:53:03.168] else NULL, started = ...future.startTime, version = "1.8") 1583s [00:53:03.168] }, condition = base::local({ 1583s [00:53:03.168] c <- base::c 1583s [00:53:03.168] inherits <- base::inherits 1583s [00:53:03.168] invokeRestart <- base::invokeRestart 1583s [00:53:03.168] length <- base::length 1583s [00:53:03.168] list <- base::list 1583s [00:53:03.168] seq.int <- base::seq.int 1583s [00:53:03.168] signalCondition <- base::signalCondition 1583s [00:53:03.168] sys.calls <- base::sys.calls 1583s [00:53:03.168] `[[` <- base::`[[` 1583s [00:53:03.168] `+` <- base::`+` 1583s [00:53:03.168] `<<-` <- base::`<<-` 1583s [00:53:03.168] sysCalls <- function(calls = sys.calls(), from = 1L) { 1583s [00:53:03.168] calls[seq.int(from = from + 12L, to = length(calls) - 1583s [00:53:03.168] 3L)] 1583s [00:53:03.168] } 1583s [00:53:03.168] function(cond) { 1583s [00:53:03.168] is_error <- inherits(cond, "error") 1583s [00:53:03.168] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1583s [00:53:03.168] NULL) 1583s [00:53:03.168] if (is_error) { 1583s [00:53:03.168] sessionInformation <- function() { 1583s [00:53:03.168] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1583s [00:53:03.168] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1583s [00:53:03.168] search = base::search(), system = base::Sys.info()) 1583s [00:53:03.168] } 1583s [00:53:03.168] ...future.conditions[[length(...future.conditions) + 1583s [00:53:03.168] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1583s [00:53:03.168] cond$call), session = sessionInformation(), 1583s [00:53:03.168] timestamp = base::Sys.time(), signaled = 0L) 1583s [00:53:03.168] signalCondition(cond) 1583s [00:53:03.168] } 1583s [00:53:03.168] else if (!ignore && TRUE && inherits(cond, c("condition", 1583s [00:53:03.168] "immediateCondition"))) { 1583s [00:53:03.168] signal <- TRUE && inherits(cond, "immediateCondition") 1583s [00:53:03.168] ...future.conditions[[length(...future.conditions) + 1583s [00:53:03.168] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1583s [00:53:03.168] if (TRUE && !signal) { 1583s [00:53:03.168] muffleCondition <- function (cond, pattern = "^muffle") 1583s [00:53:03.168] { 1583s [00:53:03.168] inherits <- base::inherits 1583s [00:53:03.168] invokeRestart <- base::invokeRestart 1583s [00:53:03.168] is.null <- base::is.null 1583s [00:53:03.168] muffled <- FALSE 1583s [00:53:03.168] if (inherits(cond, "message")) { 1583s [00:53:03.168] muffled <- grepl(pattern, "muffleMessage") 1583s [00:53:03.168] if (muffled) 1583s [00:53:03.168] invokeRestart("muffleMessage") 1583s [00:53:03.168] } 1583s [00:53:03.168] else if (inherits(cond, "warning")) { 1583s [00:53:03.168] muffled <- grepl(pattern, "muffleWarning") 1583s [00:53:03.168] if (muffled) 1583s [00:53:03.168] invokeRestart("muffleWarning") 1583s [00:53:03.168] } 1583s [00:53:03.168] else if (inherits(cond, "condition")) { 1583s [00:53:03.168] if (!is.null(pattern)) { 1583s [00:53:03.168] computeRestarts <- base::computeRestarts 1583s [00:53:03.168] grepl <- base::grepl 1583s [00:53:03.168] restarts <- computeRestarts(cond) 1583s [00:53:03.168] for (restart in restarts) { 1583s [00:53:03.168] name <- restart$name 1583s [00:53:03.168] if (is.null(name)) 1583s [00:53:03.168] next 1583s [00:53:03.168] if (!grepl(pattern, name)) 1583s [00:53:03.168] next 1583s [00:53:03.168] invokeRestart(restart) 1583s [00:53:03.168] muffled <- TRUE 1583s [00:53:03.168] break 1583s [00:53:03.168] } 1583s [00:53:03.168] } 1583s [00:53:03.168] } 1583s [00:53:03.168] invisible(muffled) 1583s [00:53:03.168] } 1583s [00:53:03.168] muffleCondition(cond, pattern = "^muffle") 1583s [00:53:03.168] } 1583s [00:53:03.168] } 1583s [00:53:03.168] else { 1583s [00:53:03.168] if (TRUE) { 1583s [00:53:03.168] muffleCondition <- function (cond, pattern = "^muffle") 1583s [00:53:03.168] { 1583s [00:53:03.168] inherits <- base::inherits 1583s [00:53:03.168] invokeRestart <- base::invokeRestart 1583s [00:53:03.168] is.null <- base::is.null 1583s [00:53:03.168] muffled <- FALSE 1583s [00:53:03.168] if (inherits(cond, "message")) { 1583s [00:53:03.168] muffled <- grepl(pattern, "muffleMessage") 1583s [00:53:03.168] if (muffled) 1583s [00:53:03.168] invokeRestart("muffleMessage") 1583s [00:53:03.168] } 1583s [00:53:03.168] else if (inherits(cond, "warning")) { 1583s [00:53:03.168] muffled <- grepl(pattern, "muffleWarning") 1583s [00:53:03.168] if (muffled) 1583s [00:53:03.168] invokeRestart("muffleWarning") 1583s [00:53:03.168] } 1583s [00:53:03.168] else if (inherits(cond, "condition")) { 1583s [00:53:03.168] if (!is.null(pattern)) { 1583s [00:53:03.168] computeRestarts <- base::computeRestarts 1583s [00:53:03.168] grepl <- base::grepl 1583s [00:53:03.168] restarts <- computeRestarts(cond) 1583s [00:53:03.168] for (restart in restarts) { 1583s [00:53:03.168] name <- restart$name 1583s [00:53:03.168] if (is.null(name)) 1583s [00:53:03.168] next 1583s [00:53:03.168] if (!grepl(pattern, name)) 1583s [00:53:03.168] next 1583s [00:53:03.168] invokeRestart(restart) 1583s [00:53:03.168] muffled <- TRUE 1583s [00:53:03.168] break 1583s [00:53:03.168] } 1583s [00:53:03.168] } 1583s [00:53:03.168] } 1583s [00:53:03.168] invisible(muffled) 1583s [00:53:03.168] } 1583s [00:53:03.168] muffleCondition(cond, pattern = "^muffle") 1583s [00:53:03.168] } 1583s [00:53:03.168] } 1583s [00:53:03.168] } 1583s [00:53:03.168] })) 1583s [00:53:03.168] }, error = function(ex) { 1583s [00:53:03.168] base::structure(base::list(value = NULL, visible = NULL, 1583s [00:53:03.168] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1583s [00:53:03.168] ...future.rng), started = ...future.startTime, 1583s [00:53:03.168] finished = Sys.time(), session_uuid = NA_character_, 1583s [00:53:03.168] version = "1.8"), class = "FutureResult") 1583s [00:53:03.168] }, finally = { 1583s [00:53:03.168] if (!identical(...future.workdir, getwd())) 1583s [00:53:03.168] setwd(...future.workdir) 1583s [00:53:03.168] { 1583s [00:53:03.168] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1583s [00:53:03.168] ...future.oldOptions$nwarnings <- NULL 1583s [00:53:03.168] } 1583s [00:53:03.168] base::options(...future.oldOptions) 1583s [00:53:03.168] if (.Platform$OS.type == "windows") { 1583s [00:53:03.168] old_names <- names(...future.oldEnvVars) 1583s [00:53:03.168] envs <- base::Sys.getenv() 1583s [00:53:03.168] names <- names(envs) 1583s [00:53:03.168] common <- intersect(names, old_names) 1583s [00:53:03.168] added <- setdiff(names, old_names) 1583s [00:53:03.168] removed <- setdiff(old_names, names) 1583s [00:53:03.168] changed <- common[...future.oldEnvVars[common] != 1583s [00:53:03.168] envs[common]] 1583s [00:53:03.168] NAMES <- toupper(changed) 1583s [00:53:03.168] args <- list() 1583s [00:53:03.168] for (kk in seq_along(NAMES)) { 1583s [00:53:03.168] name <- changed[[kk]] 1583s [00:53:03.168] NAME <- NAMES[[kk]] 1583s [00:53:03.168] if (name != NAME && is.element(NAME, old_names)) 1583s [00:53:03.168] next 1583s [00:53:03.168] args[[name]] <- ...future.oldEnvVars[[name]] 1583s [00:53:03.168] } 1583s [00:53:03.168] NAMES <- toupper(added) 1583s [00:53:03.168] for (kk in seq_along(NAMES)) { 1583s [00:53:03.168] name <- added[[kk]] 1583s [00:53:03.168] NAME <- NAMES[[kk]] 1583s [00:53:03.168] if (name != NAME && is.element(NAME, old_names)) 1583s [00:53:03.168] next 1583s [00:53:03.168] args[[name]] <- "" 1583s [00:53:03.168] } 1583s [00:53:03.168] NAMES <- toupper(removed) 1583s [00:53:03.168] for (kk in seq_along(NAMES)) { 1583s [00:53:03.168] name <- removed[[kk]] 1583s [00:53:03.168] NAME <- NAMES[[kk]] 1583s [00:53:03.168] if (name != NAME && is.element(NAME, old_names)) 1583s [00:53:03.168] next 1583s [00:53:03.168] args[[name]] <- ...future.oldEnvVars[[name]] 1583s [00:53:03.168] } 1583s [00:53:03.168] if (length(args) > 0) 1583s [00:53:03.168] base::do.call(base::Sys.setenv, args = args) 1583s [00:53:03.168] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1583s [00:53:03.168] } 1583s [00:53:03.168] else { 1583s [00:53:03.168] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1583s [00:53:03.168] } 1583s [00:53:03.168] { 1583s [00:53:03.168] if (base::length(...future.futureOptionsAdded) > 1583s [00:53:03.168] 0L) { 1583s [00:53:03.168] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1583s [00:53:03.168] base::names(opts) <- ...future.futureOptionsAdded 1583s [00:53:03.168] base::options(opts) 1583s [00:53:03.168] } 1583s [00:53:03.168] { 1583s [00:53:03.168] { 1583s [00:53:03.168] NULL 1583s [00:53:03.168] RNGkind("Mersenne-Twister") 1583s [00:53:03.168] base::rm(list = ".Random.seed", envir = base::globalenv(), 1583s [00:53:03.168] inherits = FALSE) 1583s [00:53:03.168] } 1583s [00:53:03.168] options(future.plan = NULL) 1583s [00:53:03.168] if (is.na(NA_character_)) 1583s [00:53:03.168] Sys.unsetenv("R_FUTURE_PLAN") 1583s [00:53:03.168] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1583s [00:53:03.168] future::plan(list(function (..., workers = availableCores(), 1583s [00:53:03.168] lazy = FALSE, rscript_libs = .libPaths(), 1583s [00:53:03.168] envir = parent.frame()) 1583s [00:53:03.168] { 1583s [00:53:03.168] if (is.function(workers)) 1583s [00:53:03.168] workers <- workers() 1583s [00:53:03.168] workers <- structure(as.integer(workers), 1583s [00:53:03.168] class = class(workers)) 1583s [00:53:03.168] stop_if_not(length(workers) == 1, is.finite(workers), 1583s [00:53:03.168] workers >= 1) 1583s [00:53:03.168] if (workers == 1L && !inherits(workers, "AsIs")) { 1583s [00:53:03.168] return(sequential(..., lazy = TRUE, envir = envir)) 1583s [00:53:03.168] } 1583s [00:53:03.168] future <- MultisessionFuture(..., workers = workers, 1583s [00:53:03.168] lazy = lazy, rscript_libs = rscript_libs, 1583s [00:53:03.168] envir = envir) 1583s [00:53:03.168] if (!future$lazy) 1583s [00:53:03.168] future <- run(future) 1583s [00:53:03.168] invisible(future) 1583s [00:53:03.168] }), .cleanup = FALSE, .init = FALSE) 1583s [00:53:03.168] } 1583s [00:53:03.168] } 1583s [00:53:03.168] } 1583s [00:53:03.168] }) 1583s [00:53:03.168] if (TRUE) { 1583s [00:53:03.168] base::sink(type = "output", split = FALSE) 1583s [00:53:03.168] if (TRUE) { 1583s [00:53:03.168] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1583s [00:53:03.168] } 1583s [00:53:03.168] else { 1583s [00:53:03.168] ...future.result["stdout"] <- base::list(NULL) 1583s [00:53:03.168] } 1583s [00:53:03.168] base::close(...future.stdout) 1583s [00:53:03.168] ...future.stdout <- NULL 1583s [00:53:03.168] } 1583s [00:53:03.168] ...future.result$conditions <- ...future.conditions 1583s [00:53:03.168] ...future.result$finished <- base::Sys.time() 1583s [00:53:03.168] ...future.result 1583s [00:53:03.168] } 1583s [00:53:03.175] assign_globals() ... 1583s [00:53:03.176] List of 5 1583s [00:53:03.176] $ ...future.FUN :function (x) 1583s [00:53:03.176] $ future.call.arguments : list() 1583s [00:53:03.176] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1583s [00:53:03.176] $ ...future.elements_ii :List of 3 1583s [00:53:03.176] ..$ : chr "a" 1583s [00:53:03.176] ..$ : chr "b" 1583s [00:53:03.176] ..$ : chr "c" 1583s [00:53:03.176] $ ...future.seeds_ii : NULL 1583s [00:53:03.176] $ ...future.globals.maxSize: NULL 1583s [00:53:03.176] - attr(*, "where")=List of 5 1583s [00:53:03.176] ..$ ...future.FUN : 1583s [00:53:03.176] ..$ future.call.arguments : 1583s [00:53:03.176] ..$ ...future.elements_ii : 1583s [00:53:03.176] ..$ ...future.seeds_ii : 1583s [00:53:03.176] ..$ ...future.globals.maxSize: 1583s [00:53:03.176] - attr(*, "resolved")= logi FALSE 1583s [00:53:03.176] - attr(*, "total_size")= num 848 1583s [00:53:03.176] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1583s [00:53:03.176] - attr(*, "already-done")= logi TRUE 1583s [00:53:03.183] - copied ‘...future.FUN’ to environment 1583s [00:53:03.183] - copied ‘future.call.arguments’ to environment 1583s [00:53:03.183] - copied ‘...future.elements_ii’ to environment 1583s [00:53:03.183] - copied ‘...future.seeds_ii’ to environment 1583s [00:53:03.184] - copied ‘...future.globals.maxSize’ to environment 1583s [00:53:03.184] assign_globals() ... done 1583s [00:53:03.184] plan(): Setting new future strategy stack: 1583s [00:53:03.184] List of future strategies: 1583s [00:53:03.184] 1. sequential: 1583s [00:53:03.184] - args: function (..., envir = parent.frame()) 1583s [00:53:03.184] - tweaked: FALSE 1583s [00:53:03.184] - call: NULL 1583s [00:53:03.185] plan(): nbrOfWorkers() = 1 1583s [00:53:03.186] plan(): Setting new future strategy stack: 1583s [00:53:03.186] List of future strategies: 1583s [00:53:03.186] 1. multisession: 1583s [00:53:03.186] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1583s [00:53:03.186] - tweaked: FALSE 1583s [00:53:03.186] - call: plan(strategy) 1583s [00:53:03.189] plan(): nbrOfWorkers() = 1 1583s [00:53:03.189] SequentialFuture started (and completed) 1583s [00:53:03.190] - Launch lazy future ... done 1583s [00:53:03.190] run() for ‘SequentialFuture’ ... done 1583s [00:53:03.190] Created future: 1583s [00:53:03.190] SequentialFuture: 1583s [00:53:03.190] Label: ‘future_sapply-1’ 1583s [00:53:03.190] Expression: 1583s [00:53:03.190] { 1583s [00:53:03.190] do.call(function(...) { 1583s [00:53:03.190] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1583s [00:53:03.190] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1583s [00:53:03.190] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1583s [00:53:03.190] on.exit(options(oopts), add = TRUE) 1583s [00:53:03.190] } 1583s [00:53:03.190] { 1583s [00:53:03.190] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1583s [00:53:03.190] ...future.X_jj <- ...future.elements_ii[[jj]] 1583s [00:53:03.190] ...future.FUN(...future.X_jj, ...) 1583s [00:53:03.190] }) 1583s [00:53:03.190] } 1583s [00:53:03.190] }, args = future.call.arguments) 1583s [00:53:03.190] } 1583s [00:53:03.190] Lazy evaluation: FALSE 1583s [00:53:03.190] Asynchronous evaluation: FALSE 1583s [00:53:03.190] Local evaluation: TRUE 1583s [00:53:03.190] Environment: R_GlobalEnv 1583s [00:53:03.190] Capture standard output: TRUE 1583s [00:53:03.190] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1583s [00:53:03.190] Globals: 5 objects totaling 1.16 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1583s [00:53:03.190] Packages: 1583s [00:53:03.190] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1583s [00:53:03.190] Resolved: TRUE 1583s [00:53:03.190] Value: 336 bytes of class ‘list’ 1583s [00:53:03.190] Early signaling: FALSE 1583s [00:53:03.190] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1583s [00:53:03.190] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1583s [00:53:03.192] Chunk #1 of 1 ... DONE 1583s [00:53:03.192] Launching 1 futures (chunks) ... DONE 1583s [00:53:03.192] Resolving 1 futures (chunks) ... 1583s [00:53:03.192] resolve() on list ... 1583s [00:53:03.193] recursive: 0 1583s [00:53:03.193] length: 1 1583s [00:53:03.193] 1583s [00:53:03.193] resolved() for ‘SequentialFuture’ ... 1583s [00:53:03.193] - state: ‘finished’ 1583s [00:53:03.193] - run: TRUE 1583s [00:53:03.194] - result: ‘FutureResult’ 1583s [00:53:03.195] resolved() for ‘SequentialFuture’ ... done 1583s [00:53:03.195] Future #1 1583s [00:53:03.195] signalConditionsASAP(SequentialFuture, pos=1) ... 1583s [00:53:03.195] - nx: 1 1583s [00:53:03.196] - relay: TRUE 1583s [00:53:03.201] - stdout: TRUE 1583s [00:53:03.202] - signal: TRUE 1583s [00:53:03.202] - resignal: FALSE 1583s [00:53:03.202] - force: TRUE 1583s [00:53:03.202] - relayed: [n=1] FALSE 1583s [00:53:03.203] - queued futures: [n=1] FALSE 1583s [00:53:03.203] - until=1 1583s [00:53:03.203] - relaying element #1 1583s [00:53:03.203] - relayed: [n=1] TRUE 1583s [00:53:03.204] - queued futures: [n=1] TRUE 1583s [00:53:03.204] signalConditionsASAP(SequentialFuture, pos=1) ... done 1583s [00:53:03.204] length: 0 (resolved future 1) 1583s [00:53:03.204] Relaying remaining futures 1583s [00:53:03.204] signalConditionsASAP(NULL, pos=0) ... 1583s [00:53:03.204] - nx: 1 1583s [00:53:03.205] - relay: TRUE 1583s [00:53:03.205] - stdout: TRUE 1583s [00:53:03.205] - signal: TRUE 1583s [00:53:03.205] - resignal: FALSE 1583s [00:53:03.205] - force: TRUE 1583s [00:53:03.205] - relayed: [n=1] TRUE 1583s [00:53:03.206] - queued futures: [n=1] TRUE 1583s - flush all 1583s [00:53:03.206] - relayed: [n=1] TRUE 1583s [00:53:03.206] - queued futures: [n=1] TRUE 1583s [00:53:03.206] signalConditionsASAP(NULL, pos=0) ... done 1583s [00:53:03.206] resolve() on list ... DONE 1583s [00:53:03.207] - Number of value chunks collected: 1 1583s [00:53:03.207] Resolving 1 futures (chunks) ... DONE 1583s [00:53:03.207] Reducing values from 1 chunks ... 1583s [00:53:03.207] - Number of values collected after concatenation: 3 1583s [00:53:03.207] - Number of values expected: 3 1583s [00:53:03.208] Reducing values from 1 chunks ... DONE 1583s [00:53:03.208] future_lapply() ... DONE 1583s List of 2 1583s $ y0: Named chr [1:3] "a" "b" "c" 1583s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1583s $ y1: Named chr [1:3] "a" "b" "c" 1583s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1583s [00:53:03.210] future_lapply() ... 1583s [00:53:03.214] Number of chunks: 1 1583s [00:53:03.215] getGlobalsAndPackagesXApply() ... 1583s [00:53:03.215] - future.globals: TRUE 1583s [00:53:03.215] getGlobalsAndPackages() ... 1583s [00:53:03.215] Searching for globals... 1583s [00:53:03.216] - globals found: [2] ‘FUN’, ‘UseMethod’ 1583s [00:53:03.217] Searching for globals ... DONE 1583s [00:53:03.217] Resolving globals: FALSE 1583s [00:53:03.217] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1583s [00:53:03.218] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1583s [00:53:03.218] - globals: [1] ‘FUN’ 1583s [00:53:03.218] 1583s [00:53:03.218] getGlobalsAndPackages() ... DONE 1583s [00:53:03.218] - globals found/used: [n=1] ‘FUN’ 1583s [00:53:03.218] - needed namespaces: [n=0] 1583s [00:53:03.219] Finding globals ... DONE 1583s [00:53:03.219] - use_args: TRUE 1583s [00:53:03.219] - Getting '...' globals ... 1583s [00:53:03.219] resolve() on list ... 1583s [00:53:03.220] recursive: 0 1583s [00:53:03.220] length: 1 1583s [00:53:03.220] elements: ‘...’ 1583s [00:53:03.220] length: 0 (resolved future 1) 1583s [00:53:03.220] resolve() on list ... DONE 1583s [00:53:03.221] - '...' content: [n=0] 1583s [00:53:03.221] List of 1 1583s [00:53:03.221] $ ...: list() 1583s [00:53:03.221] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1583s [00:53:03.221] - attr(*, "where")=List of 1 1583s [00:53:03.221] ..$ ...: 1583s [00:53:03.221] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1583s [00:53:03.221] - attr(*, "resolved")= logi TRUE 1583s [00:53:03.221] - attr(*, "total_size")= num NA 1583s [00:53:03.224] - Getting '...' globals ... DONE 1583s [00:53:03.224] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1583s [00:53:03.225] List of 2 1583s [00:53:03.225] $ ...future.FUN:function (x, ...) 1583s [00:53:03.225] $ ... : list() 1583s [00:53:03.225] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1583s [00:53:03.225] - attr(*, "where")=List of 2 1583s [00:53:03.225] ..$ ...future.FUN: 1583s [00:53:03.225] ..$ ... : 1583s [00:53:03.225] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1583s [00:53:03.225] - attr(*, "resolved")= logi FALSE 1583s [00:53:03.225] - attr(*, "total_size")= num 1248 1583s [00:53:03.228] Packages to be attached in all futures: [n=0] 1583s [00:53:03.228] getGlobalsAndPackagesXApply() ... DONE 1583s [00:53:03.228] Number of futures (= number of chunks): 1 1583s [00:53:03.228] Launching 1 futures (chunks) ... 1583s [00:53:03.228] Chunk #1 of 1 ... 1583s [00:53:03.229] - Finding globals in 'X' for chunk #1 ... 1583s [00:53:03.229] getGlobalsAndPackages() ... 1583s [00:53:03.229] Searching for globals... 1583s [00:53:03.229] 1583s [00:53:03.229] Searching for globals ... DONE 1583s [00:53:03.230] - globals: [0] 1583s [00:53:03.230] getGlobalsAndPackages() ... DONE 1583s [00:53:03.230] + additional globals found: [n=0] 1583s [00:53:03.230] + additional namespaces needed: [n=0] 1583s [00:53:03.230] - Finding globals in 'X' for chunk #1 ... DONE 1583s [00:53:03.230] - seeds: 1583s [00:53:03.230] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1583s [00:53:03.231] getGlobalsAndPackages() ... 1583s [00:53:03.231] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1583s [00:53:03.231] Resolving globals: FALSE 1583s [00:53:03.231] Tweak future expression to call with '...' arguments ... 1583s [00:53:03.232] { 1583s [00:53:03.232] do.call(function(...) { 1583s [00:53:03.232] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1583s [00:53:03.232] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1583s [00:53:03.232] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1583s [00:53:03.232] on.exit(options(oopts), add = TRUE) 1583s [00:53:03.232] } 1583s [00:53:03.232] { 1583s [00:53:03.232] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1583s [00:53:03.232] ...future.X_jj <- ...future.elements_ii[[jj]] 1583s [00:53:03.232] ...future.FUN(...future.X_jj, ...) 1583s [00:53:03.232] }) 1583s [00:53:03.232] } 1583s [00:53:03.232] }, args = future.call.arguments) 1583s [00:53:03.232] } 1583s [00:53:03.232] Tweak future expression to call with '...' arguments ... DONE 1583s [00:53:03.233] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1583s [00:53:03.233] 1583s [00:53:03.233] getGlobalsAndPackages() ... DONE 1583s [00:53:03.234] run() for ‘Future’ ... 1583s [00:53:03.234] - state: ‘created’ 1583s [00:53:03.234] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1583s [00:53:03.237] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1583s [00:53:03.238] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1583s [00:53:03.238] - Field: ‘label’ 1583s [00:53:03.238] - Field: ‘local’ 1583s [00:53:03.238] - Field: ‘owner’ 1583s [00:53:03.238] - Field: ‘envir’ 1583s [00:53:03.238] - Field: ‘packages’ 1583s [00:53:03.239] - Field: ‘gc’ 1583s [00:53:03.239] - Field: ‘conditions’ 1583s [00:53:03.239] - Field: ‘expr’ 1583s [00:53:03.239] - Field: ‘uuid’ 1583s [00:53:03.239] - Field: ‘seed’ 1583s [00:53:03.239] - Field: ‘version’ 1583s [00:53:03.240] - Field: ‘result’ 1583s [00:53:03.240] - Field: ‘asynchronous’ 1583s [00:53:03.240] - Field: ‘calls’ 1583s [00:53:03.240] - Field: ‘globals’ 1583s [00:53:03.240] - Field: ‘stdout’ 1583s [00:53:03.240] - Field: ‘earlySignal’ 1583s [00:53:03.241] - Field: ‘lazy’ 1583s [00:53:03.241] - Field: ‘state’ 1583s [00:53:03.241] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1583s [00:53:03.241] - Launch lazy future ... 1583s [00:53:03.241] Packages needed by the future expression (n = 0): 1583s [00:53:03.242] Packages needed by future strategies (n = 0): 1583s [00:53:03.242] { 1583s [00:53:03.242] { 1583s [00:53:03.242] { 1583s [00:53:03.242] ...future.startTime <- base::Sys.time() 1583s [00:53:03.242] { 1583s [00:53:03.242] { 1583s [00:53:03.242] { 1583s [00:53:03.242] base::local({ 1583s [00:53:03.242] has_future <- base::requireNamespace("future", 1583s [00:53:03.242] quietly = TRUE) 1583s [00:53:03.242] if (has_future) { 1583s [00:53:03.242] ns <- base::getNamespace("future") 1583s [00:53:03.242] version <- ns[[".package"]][["version"]] 1583s [00:53:03.242] if (is.null(version)) 1583s [00:53:03.242] version <- utils::packageVersion("future") 1583s [00:53:03.242] } 1583s [00:53:03.242] else { 1583s [00:53:03.242] version <- NULL 1583s [00:53:03.242] } 1583s [00:53:03.242] if (!has_future || version < "1.8.0") { 1583s [00:53:03.242] info <- base::c(r_version = base::gsub("R version ", 1583s [00:53:03.242] "", base::R.version$version.string), 1583s [00:53:03.242] platform = base::sprintf("%s (%s-bit)", 1583s [00:53:03.242] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1583s [00:53:03.242] os = base::paste(base::Sys.info()[base::c("sysname", 1583s [00:53:03.242] "release", "version")], collapse = " "), 1583s [00:53:03.242] hostname = base::Sys.info()[["nodename"]]) 1583s [00:53:03.242] info <- base::sprintf("%s: %s", base::names(info), 1583s [00:53:03.242] info) 1583s [00:53:03.242] info <- base::paste(info, collapse = "; ") 1583s [00:53:03.242] if (!has_future) { 1583s [00:53:03.242] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1583s [00:53:03.242] info) 1583s [00:53:03.242] } 1583s [00:53:03.242] else { 1583s [00:53:03.242] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1583s [00:53:03.242] info, version) 1583s [00:53:03.242] } 1583s [00:53:03.242] base::stop(msg) 1583s [00:53:03.242] } 1583s [00:53:03.242] }) 1583s [00:53:03.242] } 1583s [00:53:03.242] options(future.plan = NULL) 1583s [00:53:03.242] Sys.unsetenv("R_FUTURE_PLAN") 1583s [00:53:03.242] future::plan("default", .cleanup = FALSE, .init = FALSE) 1583s [00:53:03.242] } 1583s [00:53:03.242] ...future.workdir <- getwd() 1583s [00:53:03.242] } 1583s [00:53:03.242] ...future.oldOptions <- base::as.list(base::.Options) 1583s [00:53:03.242] ...future.oldEnvVars <- base::Sys.getenv() 1583s [00:53:03.242] } 1583s [00:53:03.242] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1583s [00:53:03.242] future.globals.maxSize = NULL, future.globals.method = NULL, 1583s [00:53:03.242] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1583s [00:53:03.242] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1583s [00:53:03.242] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1583s [00:53:03.242] future.stdout.windows.reencode = NULL, width = 80L) 1583s [00:53:03.242] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1583s [00:53:03.242] base::names(...future.oldOptions)) 1583s [00:53:03.242] } 1583s [00:53:03.242] if (FALSE) { 1583s [00:53:03.242] } 1583s [00:53:03.242] else { 1583s [00:53:03.242] if (TRUE) { 1583s [00:53:03.242] ...future.stdout <- base::rawConnection(base::raw(0L), 1583s [00:53:03.242] open = "w") 1583s [00:53:03.242] } 1583s [00:53:03.242] else { 1583s [00:53:03.242] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1583s [00:53:03.242] windows = "NUL", "/dev/null"), open = "w") 1583s [00:53:03.242] } 1583s [00:53:03.242] base::sink(...future.stdout, type = "output", split = FALSE) 1583s [00:53:03.242] base::on.exit(if (!base::is.null(...future.stdout)) { 1583s [00:53:03.242] base::sink(type = "output", split = FALSE) 1583s [00:53:03.242] base::close(...future.stdout) 1583s [00:53:03.242] }, add = TRUE) 1583s [00:53:03.242] } 1583s [00:53:03.242] ...future.frame <- base::sys.nframe() 1583s [00:53:03.242] ...future.conditions <- base::list() 1583s [00:53:03.242] ...future.rng <- base::globalenv()$.Random.seed 1583s [00:53:03.242] if (FALSE) { 1583s [00:53:03.242] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1583s [00:53:03.242] "...future.value", "...future.globalenv.names", ".Random.seed") 1583s [00:53:03.242] } 1583s [00:53:03.242] ...future.result <- base::tryCatch({ 1583s [00:53:03.242] base::withCallingHandlers({ 1583s [00:53:03.242] ...future.value <- base::withVisible(base::local({ 1583s [00:53:03.242] do.call(function(...) { 1583s [00:53:03.242] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1583s [00:53:03.242] if (!identical(...future.globals.maxSize.org, 1583s [00:53:03.242] ...future.globals.maxSize)) { 1583s [00:53:03.242] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1583s [00:53:03.242] on.exit(options(oopts), add = TRUE) 1583s [00:53:03.242] } 1583s [00:53:03.242] { 1583s [00:53:03.242] lapply(seq_along(...future.elements_ii), 1583s [00:53:03.242] FUN = function(jj) { 1583s [00:53:03.242] ...future.X_jj <- ...future.elements_ii[[jj]] 1583s [00:53:03.242] ...future.FUN(...future.X_jj, ...) 1583s [00:53:03.242] }) 1583s [00:53:03.242] } 1583s [00:53:03.242] }, args = future.call.arguments) 1583s [00:53:03.242] })) 1583s [00:53:03.242] future::FutureResult(value = ...future.value$value, 1583s [00:53:03.242] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1583s [00:53:03.242] ...future.rng), globalenv = if (FALSE) 1583s [00:53:03.242] list(added = base::setdiff(base::names(base::.GlobalEnv), 1583s [00:53:03.242] ...future.globalenv.names)) 1583s [00:53:03.242] else NULL, started = ...future.startTime, version = "1.8") 1583s [00:53:03.242] }, condition = base::local({ 1583s [00:53:03.242] c <- base::c 1583s [00:53:03.242] inherits <- base::inherits 1583s [00:53:03.242] invokeRestart <- base::invokeRestart 1583s [00:53:03.242] length <- base::length 1583s [00:53:03.242] list <- base::list 1583s [00:53:03.242] seq.int <- base::seq.int 1583s [00:53:03.242] signalCondition <- base::signalCondition 1583s [00:53:03.242] sys.calls <- base::sys.calls 1583s [00:53:03.242] `[[` <- base::`[[` 1583s [00:53:03.242] `+` <- base::`+` 1583s [00:53:03.242] `<<-` <- base::`<<-` 1583s [00:53:03.242] sysCalls <- function(calls = sys.calls(), from = 1L) { 1583s [00:53:03.242] calls[seq.int(from = from + 12L, to = length(calls) - 1583s [00:53:03.242] 3L)] 1583s [00:53:03.242] } 1583s [00:53:03.242] function(cond) { 1583s [00:53:03.242] is_error <- inherits(cond, "error") 1583s [00:53:03.242] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1583s [00:53:03.242] NULL) 1583s [00:53:03.242] if (is_error) { 1583s [00:53:03.242] sessionInformation <- function() { 1583s [00:53:03.242] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1583s [00:53:03.242] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1583s [00:53:03.242] search = base::search(), system = base::Sys.info()) 1583s [00:53:03.242] } 1583s [00:53:03.242] ...future.conditions[[length(...future.conditions) + 1583s [00:53:03.242] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1583s [00:53:03.242] cond$call), session = sessionInformation(), 1583s [00:53:03.242] timestamp = base::Sys.time(), signaled = 0L) 1583s [00:53:03.242] signalCondition(cond) 1583s [00:53:03.242] } 1583s [00:53:03.242] else if (!ignore && TRUE && inherits(cond, c("condition", 1583s [00:53:03.242] "immediateCondition"))) { 1583s [00:53:03.242] signal <- TRUE && inherits(cond, "immediateCondition") 1583s [00:53:03.242] ...future.conditions[[length(...future.conditions) + 1583s [00:53:03.242] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1583s [00:53:03.242] if (TRUE && !signal) { 1583s [00:53:03.242] muffleCondition <- function (cond, pattern = "^muffle") 1583s [00:53:03.242] { 1583s [00:53:03.242] inherits <- base::inherits 1583s [00:53:03.242] invokeRestart <- base::invokeRestart 1583s [00:53:03.242] is.null <- base::is.null 1583s [00:53:03.242] muffled <- FALSE 1583s [00:53:03.242] if (inherits(cond, "message")) { 1583s [00:53:03.242] muffled <- grepl(pattern, "muffleMessage") 1583s [00:53:03.242] if (muffled) 1583s [00:53:03.242] invokeRestart("muffleMessage") 1583s [00:53:03.242] } 1583s [00:53:03.242] else if (inherits(cond, "warning")) { 1583s [00:53:03.242] muffled <- grepl(pattern, "muffleWarning") 1583s [00:53:03.242] if (muffled) 1583s [00:53:03.242] invokeRestart("muffleWarning") 1583s [00:53:03.242] } 1583s [00:53:03.242] else if (inherits(cond, "condition")) { 1583s [00:53:03.242] if (!is.null(pattern)) { 1583s [00:53:03.242] computeRestarts <- base::computeRestarts 1583s [00:53:03.242] grepl <- base::grepl 1583s [00:53:03.242] restarts <- computeRestarts(cond) 1583s [00:53:03.242] for (restart in restarts) { 1583s [00:53:03.242] name <- restart$name 1583s [00:53:03.242] if (is.null(name)) 1583s [00:53:03.242] next 1583s [00:53:03.242] if (!grepl(pattern, name)) 1583s [00:53:03.242] next 1583s [00:53:03.242] invokeRestart(restart) 1583s [00:53:03.242] muffled <- TRUE 1583s [00:53:03.242] break 1583s [00:53:03.242] } 1583s [00:53:03.242] } 1583s [00:53:03.242] } 1583s [00:53:03.242] invisible(muffled) 1583s [00:53:03.242] } 1583s [00:53:03.242] muffleCondition(cond, pattern = "^muffle") 1583s [00:53:03.242] } 1583s [00:53:03.242] } 1583s [00:53:03.242] else { 1583s [00:53:03.242] if (TRUE) { 1583s [00:53:03.242] muffleCondition <- function (cond, pattern = "^muffle") 1583s [00:53:03.242] { 1583s [00:53:03.242] inherits <- base::inherits 1583s [00:53:03.242] invokeRestart <- base::invokeRestart 1583s [00:53:03.242] is.null <- base::is.null 1583s [00:53:03.242] muffled <- FALSE 1583s [00:53:03.242] if (inherits(cond, "message")) { 1583s [00:53:03.242] muffled <- grepl(pattern, "muffleMessage") 1583s [00:53:03.242] if (muffled) 1583s [00:53:03.242] invokeRestart("muffleMessage") 1583s [00:53:03.242] } 1583s [00:53:03.242] else if (inherits(cond, "warning")) { 1583s [00:53:03.242] muffled <- grepl(pattern, "muffleWarning") 1583s [00:53:03.242] if (muffled) 1583s [00:53:03.242] invokeRestart("muffleWarning") 1583s [00:53:03.242] } 1583s [00:53:03.242] else if (inherits(cond, "condition")) { 1583s [00:53:03.242] if (!is.null(pattern)) { 1583s [00:53:03.242] computeRestarts <- base::computeRestarts 1583s [00:53:03.242] grepl <- base::grepl 1583s [00:53:03.242] restarts <- computeRestarts(cond) 1583s [00:53:03.242] for (restart in restarts) { 1583s [00:53:03.242] name <- restart$name 1583s [00:53:03.242] if (is.null(name)) 1583s [00:53:03.242] next 1583s [00:53:03.242] if (!grepl(pattern, name)) 1583s [00:53:03.242] next 1583s [00:53:03.242] invokeRestart(restart) 1583s [00:53:03.242] muffled <- TRUE 1583s [00:53:03.242] break 1583s [00:53:03.242] } 1583s [00:53:03.242] } 1583s [00:53:03.242] } 1583s [00:53:03.242] invisible(muffled) 1583s [00:53:03.242] } 1583s [00:53:03.242] muffleCondition(cond, pattern = "^muffle") 1583s [00:53:03.242] } 1583s [00:53:03.242] } 1583s [00:53:03.242] } 1583s [00:53:03.242] })) 1583s [00:53:03.242] }, error = function(ex) { 1583s [00:53:03.242] base::structure(base::list(value = NULL, visible = NULL, 1583s [00:53:03.242] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1583s [00:53:03.242] ...future.rng), started = ...future.startTime, 1583s [00:53:03.242] finished = Sys.time(), session_uuid = NA_character_, 1583s [00:53:03.242] version = "1.8"), class = "FutureResult") 1583s [00:53:03.242] }, finally = { 1583s [00:53:03.242] if (!identical(...future.workdir, getwd())) 1583s [00:53:03.242] setwd(...future.workdir) 1583s [00:53:03.242] { 1583s [00:53:03.242] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1583s [00:53:03.242] ...future.oldOptions$nwarnings <- NULL 1583s [00:53:03.242] } 1583s [00:53:03.242] base::options(...future.oldOptions) 1583s [00:53:03.242] if (.Platform$OS.type == "windows") { 1583s [00:53:03.242] old_names <- names(...future.oldEnvVars) 1583s [00:53:03.242] envs <- base::Sys.getenv() 1583s [00:53:03.242] names <- names(envs) 1583s [00:53:03.242] common <- intersect(names, old_names) 1583s [00:53:03.242] added <- setdiff(names, old_names) 1583s [00:53:03.242] removed <- setdiff(old_names, names) 1583s [00:53:03.242] changed <- common[...future.oldEnvVars[common] != 1583s [00:53:03.242] envs[common]] 1583s [00:53:03.242] NAMES <- toupper(changed) 1583s [00:53:03.242] args <- list() 1583s [00:53:03.242] for (kk in seq_along(NAMES)) { 1583s [00:53:03.242] name <- changed[[kk]] 1583s [00:53:03.242] NAME <- NAMES[[kk]] 1583s [00:53:03.242] if (name != NAME && is.element(NAME, old_names)) 1583s [00:53:03.242] next 1583s [00:53:03.242] args[[name]] <- ...future.oldEnvVars[[name]] 1583s [00:53:03.242] } 1583s [00:53:03.242] NAMES <- toupper(added) 1583s [00:53:03.242] for (kk in seq_along(NAMES)) { 1583s [00:53:03.242] name <- added[[kk]] 1583s [00:53:03.242] NAME <- NAMES[[kk]] 1583s [00:53:03.242] if (name != NAME && is.element(NAME, old_names)) 1583s [00:53:03.242] next 1583s [00:53:03.242] args[[name]] <- "" 1583s [00:53:03.242] } 1583s [00:53:03.242] NAMES <- toupper(removed) 1583s [00:53:03.242] for (kk in seq_along(NAMES)) { 1583s [00:53:03.242] name <- removed[[kk]] 1583s [00:53:03.242] NAME <- NAMES[[kk]] 1583s [00:53:03.242] if (name != NAME && is.element(NAME, old_names)) 1583s [00:53:03.242] next 1583s [00:53:03.242] args[[name]] <- ...future.oldEnvVars[[name]] 1583s [00:53:03.242] } 1583s [00:53:03.242] if (length(args) > 0) 1583s [00:53:03.242] base::do.call(base::Sys.setenv, args = args) 1583s [00:53:03.242] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1583s [00:53:03.242] } 1583s [00:53:03.242] else { 1583s [00:53:03.242] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1583s [00:53:03.242] } 1583s [00:53:03.242] { 1583s [00:53:03.242] if (base::length(...future.futureOptionsAdded) > 1583s [00:53:03.242] 0L) { 1583s [00:53:03.242] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1583s [00:53:03.242] base::names(opts) <- ...future.futureOptionsAdded 1583s [00:53:03.242] base::options(opts) 1583s [00:53:03.242] } 1583s [00:53:03.242] { 1583s [00:53:03.242] { 1583s [00:53:03.242] NULL 1583s [00:53:03.242] RNGkind("Mersenne-Twister") 1583s [00:53:03.242] base::rm(list = ".Random.seed", envir = base::globalenv(), 1583s [00:53:03.242] inherits = FALSE) 1583s [00:53:03.242] } 1583s [00:53:03.242] options(future.plan = NULL) 1583s [00:53:03.242] if (is.na(NA_character_)) 1583s [00:53:03.242] Sys.unsetenv("R_FUTURE_PLAN") 1583s [00:53:03.242] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1583s [00:53:03.242] future::plan(list(function (..., workers = availableCores(), 1583s [00:53:03.242] lazy = FALSE, rscript_libs = .libPaths(), 1583s [00:53:03.242] envir = parent.frame()) 1583s [00:53:03.242] { 1583s [00:53:03.242] if (is.function(workers)) 1583s [00:53:03.242] workers <- workers() 1583s [00:53:03.242] workers <- structure(as.integer(workers), 1583s [00:53:03.242] class = class(workers)) 1583s [00:53:03.242] stop_if_not(length(workers) == 1, is.finite(workers), 1583s [00:53:03.242] workers >= 1) 1583s [00:53:03.242] if (workers == 1L && !inherits(workers, "AsIs")) { 1583s [00:53:03.242] return(sequential(..., lazy = TRUE, envir = envir)) 1583s [00:53:03.242] } 1583s [00:53:03.242] future <- MultisessionFuture(..., workers = workers, 1583s [00:53:03.242] lazy = lazy, rscript_libs = rscript_libs, 1583s [00:53:03.242] envir = envir) 1583s [00:53:03.242] if (!future$lazy) 1583s [00:53:03.242] future <- run(future) 1583s [00:53:03.242] invisible(future) 1583s [00:53:03.242] }), .cleanup = FALSE, .init = FALSE) 1583s [00:53:03.242] } 1583s [00:53:03.242] } 1583s [00:53:03.242] } 1583s [00:53:03.242] }) 1583s [00:53:03.242] if (TRUE) { 1583s [00:53:03.242] base::sink(type = "output", split = FALSE) 1583s [00:53:03.242] if (TRUE) { 1583s [00:53:03.242] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1583s [00:53:03.242] } 1583s [00:53:03.242] else { 1583s [00:53:03.242] ...future.result["stdout"] <- base::list(NULL) 1583s [00:53:03.242] } 1583s [00:53:03.242] base::close(...future.stdout) 1583s [00:53:03.242] ...future.stdout <- NULL 1583s [00:53:03.242] } 1583s [00:53:03.242] ...future.result$conditions <- ...future.conditions 1583s [00:53:03.242] ...future.result$finished <- base::Sys.time() 1583s [00:53:03.242] ...future.result 1583s [00:53:03.242] } 1583s [00:53:03.245] assign_globals() ... 1583s [00:53:03.245] List of 5 1583s [00:53:03.245] $ ...future.FUN :function (x, ...) 1583s [00:53:03.245] $ future.call.arguments : list() 1583s [00:53:03.245] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1583s [00:53:03.245] $ ...future.elements_ii :List of 3 1583s [00:53:03.245] ..$ : chr "a" 1583s [00:53:03.245] ..$ : chr "b" 1583s [00:53:03.245] ..$ : chr "c" 1583s [00:53:03.245] $ ...future.seeds_ii : NULL 1583s [00:53:03.245] $ ...future.globals.maxSize: NULL 1583s [00:53:03.245] - attr(*, "where")=List of 5 1583s [00:53:03.245] ..$ ...future.FUN : 1583s [00:53:03.245] ..$ future.call.arguments : 1583s [00:53:03.245] ..$ ...future.elements_ii : 1583s [00:53:03.245] ..$ ...future.seeds_ii : 1583s [00:53:03.245] ..$ ...future.globals.maxSize: 1583s [00:53:03.245] - attr(*, "resolved")= logi FALSE 1583s [00:53:03.245] - attr(*, "total_size")= num 1248 1583s [00:53:03.245] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1583s [00:53:03.245] - attr(*, "already-done")= logi TRUE 1583s [00:53:03.253] - copied ‘...future.FUN’ to environment 1583s [00:53:03.253] - copied ‘future.call.arguments’ to environment 1583s [00:53:03.253] - copied ‘...future.elements_ii’ to environment 1583s [00:53:03.253] - copied ‘...future.seeds_ii’ to environment 1583s [00:53:03.254] - copied ‘...future.globals.maxSize’ to environment 1583s [00:53:03.254] assign_globals() ... done 1583s [00:53:03.254] plan(): Setting new future strategy stack: 1583s [00:53:03.254] List of future strategies: 1583s [00:53:03.254] 1. sequential: 1583s [00:53:03.254] - args: function (..., envir = parent.frame()) 1583s [00:53:03.254] - tweaked: FALSE 1583s [00:53:03.254] - call: NULL 1583s [00:53:03.255] plan(): nbrOfWorkers() = 1 1583s [00:53:03.256] plan(): Setting new future strategy stack: 1583s [00:53:03.256] List of future strategies: 1583s [00:53:03.256] 1. multisession: 1583s [00:53:03.256] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1583s [00:53:03.256] - tweaked: FALSE 1583s [00:53:03.256] - call: plan(strategy) 1583s [00:53:03.260] plan(): nbrOfWorkers() = 1 1583s [00:53:03.260] SequentialFuture started (and completed) 1583s [00:53:03.261] - Launch lazy future ... done 1583s [00:53:03.261] run() for ‘SequentialFuture’ ... done 1583s [00:53:03.261] Created future: 1583s [00:53:03.261] SequentialFuture: 1583s [00:53:03.261] Label: ‘future_sapply-1’ 1583s [00:53:03.261] Expression: 1583s [00:53:03.261] { 1583s [00:53:03.261] do.call(function(...) { 1583s [00:53:03.261] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1583s [00:53:03.261] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1583s [00:53:03.261] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1583s [00:53:03.261] on.exit(options(oopts), add = TRUE) 1583s [00:53:03.261] } 1583s [00:53:03.261] { 1583s [00:53:03.261] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1583s [00:53:03.261] ...future.X_jj <- ...future.elements_ii[[jj]] 1583s [00:53:03.261] ...future.FUN(...future.X_jj, ...) 1583s [00:53:03.261] }) 1583s [00:53:03.261] } 1583s [00:53:03.261] }, args = future.call.arguments) 1583s [00:53:03.261] } 1583s [00:53:03.261] Lazy evaluation: FALSE 1583s [00:53:03.261] Asynchronous evaluation: FALSE 1583s [00:53:03.261] Local evaluation: TRUE 1583s [00:53:03.261] Environment: R_GlobalEnv 1583s [00:53:03.261] Capture standard output: TRUE 1583s [00:53:03.261] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1583s [00:53:03.261] Globals: 5 objects totaling 1.55 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 336 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1583s [00:53:03.261] Packages: 1583s [00:53:03.261] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1583s [00:53:03.261] Resolved: TRUE 1583s [00:53:03.261] Value: 840 bytes of class ‘list’ 1583s [00:53:03.261] Early signaling: FALSE 1583s [00:53:03.261] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1583s [00:53:03.261] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1583s [00:53:03.263] Chunk #1 of 1 ... DONE 1583s [00:53:03.263] Launching 1 futures (chunks) ... DONE 1583s [00:53:03.264] Resolving 1 futures (chunks) ... 1583s [00:53:03.264] resolve() on list ... 1583s [00:53:03.264] recursive: 0 1583s [00:53:03.264] length: 1 1583s [00:53:03.264] 1583s [00:53:03.264] resolved() for ‘SequentialFuture’ ... 1583s [00:53:03.265] - state: ‘finished’ 1583s [00:53:03.265] - run: TRUE 1583s [00:53:03.265] - result: ‘FutureResult’ 1583s [00:53:03.265] resolved() for ‘SequentialFuture’ ... done 1583s [00:53:03.265] Future #1 1583s [00:53:03.265] signalConditionsASAP(SequentialFuture, pos=1) ... 1583s [00:53:03.265] - nx: 1 1583s [00:53:03.266] - relay: TRUE 1583s [00:53:03.266] - stdout: TRUE 1583s [00:53:03.266] - signal: TRUE 1583s [00:53:03.266] - resignal: FALSE 1583s [00:53:03.266] - force: TRUE 1583s [00:53:03.266] - relayed: [n=1] FALSE 1583s [00:53:03.266] - queued futures: [n=1] FALSE 1583s [00:53:03.267] - until=1 1583s [00:53:03.267] - relaying element #1 1583s [00:53:03.267] - relayed: [n=1] TRUE 1583s [00:53:03.267] - queued futures: [n=1] TRUE 1583s [00:53:03.267] signalConditionsASAP(SequentialFuture, pos=1) ... done 1583s [00:53:03.267] length: 0 (resolved future 1) 1583s [00:53:03.268] Relaying remaining futures 1583s [00:53:03.268] signalConditionsASAP(NULL, pos=0) ... 1583s [00:53:03.268] - nx: 1 1583s [00:53:03.268] - relay: TRUE 1583s [00:53:03.268] - stdout: TRUE 1583s [00:53:03.268] - signal: TRUE 1583s [00:53:03.268] - resignal: FALSE 1583s [00:53:03.268] - force: TRUE 1583s [00:53:03.269] - relayed: [n=1] TRUE 1583s [00:53:03.269] - queued futures: [n=1] TRUE 1583s - flush all 1583s [00:53:03.269] - relayed: [n=1] TRUE 1583s [00:53:03.269] - queued futures: [n=1] TRUE 1583s [00:53:03.269] signalConditionsASAP(NULL, pos=0) ... done 1583s [00:53:03.269] resolve() on list ... DONE 1583s [00:53:03.270] - Number of value chunks collected: 1 1583s [00:53:03.270] Resolving 1 futures (chunks) ... DONE 1583s [00:53:03.270] Reducing values from 1 chunks ... 1583s [00:53:03.270] - Number of values collected after concatenation: 3 1583s [00:53:03.270] - Number of values expected: 3 1583s [00:53:03.270] Reducing values from 1 chunks ... DONE 1583s [00:53:03.271] future_lapply() ... DONE 1583s List of [00:53:03.273] future_lapply() ... 1583s 2 1583s $ y0: Named chr [1:3] "a" "b" "c" 1583s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1583s $ y1: Named chr [1:3] "a" "b" "c" 1583s ..- attr(*, "names")= chr [1:3] "a" "b" "c" 1583s [00:53:03.276] Number of chunks: 1 1583s [00:53:03.276] getGlobalsAndPackagesXApply() ... 1583s [00:53:03.277] - future.globals: TRUE 1583s [00:53:03.277] getGlobalsAndPackages() ... 1583s [00:53:03.277] Searching for globals... 1583s [00:53:03.278] - globals found: [1] ‘FUN’ 1583s [00:53:03.278] Searching for globals ... DONE 1583s [00:53:03.278] Resolving globals: FALSE 1583s [00:53:03.279] The total size of the 1 globals is 848 bytes (848 bytes) 1583s [00:53:03.279] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1583s [00:53:03.279] - globals: [1] ‘FUN’ 1583s [00:53:03.279] 1583s [00:53:03.280] getGlobalsAndPackages() ... DONE 1583s [00:53:03.280] - globals found/used: [n=1] ‘FUN’ 1583s [00:53:03.280] - needed namespaces: [n=0] 1583s [00:53:03.280] Finding globals ... DONE 1583s [00:53:03.280] - use_args: TRUE 1583s [00:53:03.281] - Getting '...' globals ... 1583s [00:53:03.281] resolve() on list ... 1583s [00:53:03.281] recursive: 0 1583s [00:53:03.281] length: 1 1583s [00:53:03.282] elements: ‘...’ 1583s [00:53:03.282] length: 0 (resolved future 1) 1583s [00:53:03.282] resolve() on list ... DONE 1583s [00:53:03.282] - '...' content: [n=0] 1583s [00:53:03.282] List of 1 1583s [00:53:03.282] $ ...: list() 1583s [00:53:03.282] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1583s [00:53:03.282] - attr(*, "where")=List of 1 1583s [00:53:03.282] ..$ ...: 1583s [00:53:03.282] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1583s [00:53:03.282] - attr(*, "resolved")= logi TRUE 1583s [00:53:03.282] - attr(*, "total_size")= num NA 1583s [00:53:03.286] - Getting '...' globals ... DONE 1583s [00:53:03.286] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1583s [00:53:03.286] List of 2 1583s [00:53:03.286] $ ...future.FUN:function (x) 1583s [00:53:03.286] $ ... : list() 1583s [00:53:03.286] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1583s [00:53:03.286] - attr(*, "where")=List of 2 1583s [00:53:03.286] ..$ ...future.FUN: 1583s [00:53:03.286] ..$ ... : 1583s [00:53:03.286] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1583s [00:53:03.286] - attr(*, "resolved")= logi FALSE 1583s [00:53:03.286] - attr(*, "total_size")= num 848 1583s [00:53:03.290] Packages to be attached in all futures: [n=0] 1583s [00:53:03.290] getGlobalsAndPackagesXApply() ... DONE 1583s [00:53:03.291] Number of futures (= number of chunks): 1 1583s [00:53:03.291] Launching 1 futures (chunks) ... 1583s [00:53:03.291] Chunk #1 of 1 ... 1583s [00:53:03.291] - Finding globals in 'X' for chunk #1 ... 1583s [00:53:03.291] getGlobalsAndPackages() ... 1583s [00:53:03.292] Searching for globals... 1583s [00:53:03.292] 1583s [00:53:03.292] Searching for globals ... DONE 1583s [00:53:03.292] - globals: [0] 1583s [00:53:03.292] getGlobalsAndPackages() ... DONE 1583s [00:53:03.293] + additional globals found: [n=0] 1583s [00:53:03.293] + additional namespaces needed: [n=0] 1583s [00:53:03.293] - Finding globals in 'X' for chunk #1 ... DONE 1583s [00:53:03.293] - seeds: 1583s [00:53:03.293] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1583s [00:53:03.293] getGlobalsAndPackages() ... 1583s [00:53:03.294] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1583s [00:53:03.294] Resolving globals: FALSE 1583s [00:53:03.294] Tweak future expression to call with '...' arguments ... 1583s [00:53:03.294] { 1583s [00:53:03.294] do.call(function(...) { 1583s [00:53:03.294] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1583s [00:53:03.294] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1583s [00:53:03.294] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1583s [00:53:03.294] on.exit(options(oopts), add = TRUE) 1583s [00:53:03.294] } 1583s [00:53:03.294] { 1583s [00:53:03.294] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1583s [00:53:03.294] ...future.X_jj <- ...future.elements_ii[[jj]] 1583s [00:53:03.294] ...future.FUN(...future.X_jj, ...) 1583s [00:53:03.294] }) 1583s [00:53:03.294] } 1583s [00:53:03.294] }, args = future.call.arguments) 1583s [00:53:03.294] } 1583s [00:53:03.295] Tweak future expression to call with '...' arguments ... DONE 1583s [00:53:03.295] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1583s [00:53:03.295] 1583s [00:53:03.296] getGlobalsAndPackages() ... DONE 1583s [00:53:03.296] run() for ‘Future’ ... 1583s [00:53:03.296] - state: ‘created’ 1583s [00:53:03.296] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1583s [00:53:03.300] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1583s [00:53:03.300] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1583s [00:53:03.300] - Field: ‘label’ 1583s [00:53:03.300] - Field: ‘local’ 1583s [00:53:03.300] - Field: ‘owner’ 1583s [00:53:03.301] - Field: ‘envir’ 1583s [00:53:03.301] - Field: ‘packages’ 1583s [00:53:03.301] - Field: ‘gc’ 1583s [00:53:03.301] - Field: ‘conditions’ 1583s [00:53:03.301] - Field: ‘expr’ 1583s [00:53:03.301] - Field: ‘uuid’ 1583s [00:53:03.302] - Field: ‘seed’ 1583s [00:53:03.302] - Field: ‘version’ 1583s [00:53:03.302] - Field: ‘result’ 1583s [00:53:03.302] - Field: ‘asynchronous’ 1583s [00:53:03.302] - Field: ‘calls’ 1583s [00:53:03.302] - Field: ‘globals’ 1583s [00:53:03.302] - Field: ‘stdout’ 1583s [00:53:03.303] - Field: ‘earlySignal’ 1583s [00:53:03.303] - Field: ‘lazy’ 1583s [00:53:03.303] - Field: ‘state’ 1583s [00:53:03.303] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1583s [00:53:03.303] - Launch lazy future ... 1583s [00:53:03.304] Packages needed by the future expression (n = 0): 1583s [00:53:03.308] Packages needed by future strategies (n = 0): 1583s [00:53:03.309] { 1583s [00:53:03.309] { 1583s [00:53:03.309] { 1583s [00:53:03.309] ...future.startTime <- base::Sys.time() 1583s [00:53:03.309] { 1583s [00:53:03.309] { 1583s [00:53:03.309] { 1583s [00:53:03.309] base::local({ 1583s [00:53:03.309] has_future <- base::requireNamespace("future", 1583s [00:53:03.309] quietly = TRUE) 1583s [00:53:03.309] if (has_future) { 1583s [00:53:03.309] ns <- base::getNamespace("future") 1583s [00:53:03.309] version <- ns[[".package"]][["version"]] 1583s [00:53:03.309] if (is.null(version)) 1583s [00:53:03.309] version <- utils::packageVersion("future") 1583s [00:53:03.309] } 1583s [00:53:03.309] else { 1583s [00:53:03.309] version <- NULL 1583s [00:53:03.309] } 1583s [00:53:03.309] if (!has_future || version < "1.8.0") { 1583s [00:53:03.309] info <- base::c(r_version = base::gsub("R version ", 1583s [00:53:03.309] "", base::R.version$version.string), 1583s [00:53:03.309] platform = base::sprintf("%s (%s-bit)", 1583s [00:53:03.309] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1583s [00:53:03.309] os = base::paste(base::Sys.info()[base::c("sysname", 1583s [00:53:03.309] "release", "version")], collapse = " "), 1583s [00:53:03.309] hostname = base::Sys.info()[["nodename"]]) 1583s [00:53:03.309] info <- base::sprintf("%s: %s", base::names(info), 1583s [00:53:03.309] info) 1583s [00:53:03.309] info <- base::paste(info, collapse = "; ") 1583s [00:53:03.309] if (!has_future) { 1583s [00:53:03.309] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1583s [00:53:03.309] info) 1583s [00:53:03.309] } 1583s [00:53:03.309] else { 1583s [00:53:03.309] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1583s [00:53:03.309] info, version) 1583s [00:53:03.309] } 1583s [00:53:03.309] base::stop(msg) 1583s [00:53:03.309] } 1583s [00:53:03.309] }) 1583s [00:53:03.309] } 1583s [00:53:03.309] options(future.plan = NULL) 1583s [00:53:03.309] Sys.unsetenv("R_FUTURE_PLAN") 1583s [00:53:03.309] future::plan("default", .cleanup = FALSE, .init = FALSE) 1583s [00:53:03.309] } 1583s [00:53:03.309] ...future.workdir <- getwd() 1583s [00:53:03.309] } 1583s [00:53:03.309] ...future.oldOptions <- base::as.list(base::.Options) 1583s [00:53:03.309] ...future.oldEnvVars <- base::Sys.getenv() 1583s [00:53:03.309] } 1583s [00:53:03.309] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1583s [00:53:03.309] future.globals.maxSize = NULL, future.globals.method = NULL, 1583s [00:53:03.309] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1583s [00:53:03.309] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1583s [00:53:03.309] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1583s [00:53:03.309] future.stdout.windows.reencode = NULL, width = 80L) 1583s [00:53:03.309] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1583s [00:53:03.309] base::names(...future.oldOptions)) 1583s [00:53:03.309] } 1583s [00:53:03.309] if (FALSE) { 1583s [00:53:03.309] } 1583s [00:53:03.309] else { 1583s [00:53:03.309] if (TRUE) { 1583s [00:53:03.309] ...future.stdout <- base::rawConnection(base::raw(0L), 1583s [00:53:03.309] open = "w") 1583s [00:53:03.309] } 1583s [00:53:03.309] else { 1583s [00:53:03.309] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1583s [00:53:03.309] windows = "NUL", "/dev/null"), open = "w") 1583s [00:53:03.309] } 1583s [00:53:03.309] base::sink(...future.stdout, type = "output", split = FALSE) 1583s [00:53:03.309] base::on.exit(if (!base::is.null(...future.stdout)) { 1583s [00:53:03.309] base::sink(type = "output", split = FALSE) 1583s [00:53:03.309] base::close(...future.stdout) 1583s [00:53:03.309] }, add = TRUE) 1583s [00:53:03.309] } 1583s [00:53:03.309] ...future.frame <- base::sys.nframe() 1583s [00:53:03.309] ...future.conditions <- base::list() 1583s [00:53:03.309] ...future.rng <- base::globalenv()$.Random.seed 1583s [00:53:03.309] if (FALSE) { 1583s [00:53:03.309] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1583s [00:53:03.309] "...future.value", "...future.globalenv.names", ".Random.seed") 1583s [00:53:03.309] } 1583s [00:53:03.309] ...future.result <- base::tryCatch({ 1583s [00:53:03.309] base::withCallingHandlers({ 1583s [00:53:03.309] ...future.value <- base::withVisible(base::local({ 1583s [00:53:03.309] do.call(function(...) { 1583s [00:53:03.309] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1583s [00:53:03.309] if (!identical(...future.globals.maxSize.org, 1583s [00:53:03.309] ...future.globals.maxSize)) { 1583s [00:53:03.309] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1583s [00:53:03.309] on.exit(options(oopts), add = TRUE) 1583s [00:53:03.309] } 1583s [00:53:03.309] { 1583s [00:53:03.309] lapply(seq_along(...future.elements_ii), 1583s [00:53:03.309] FUN = function(jj) { 1583s [00:53:03.309] ...future.X_jj <- ...future.elements_ii[[jj]] 1583s [00:53:03.309] ...future.FUN(...future.X_jj, ...) 1583s [00:53:03.309] }) 1583s [00:53:03.309] } 1583s [00:53:03.309] }, args = future.call.arguments) 1583s [00:53:03.309] })) 1583s [00:53:03.309] future::FutureResult(value = ...future.value$value, 1583s [00:53:03.309] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1583s [00:53:03.309] ...future.rng), globalenv = if (FALSE) 1583s [00:53:03.309] list(added = base::setdiff(base::names(base::.GlobalEnv), 1583s [00:53:03.309] ...future.globalenv.names)) 1583s [00:53:03.309] else NULL, started = ...future.startTime, version = "1.8") 1583s [00:53:03.309] }, condition = base::local({ 1583s [00:53:03.309] c <- base::c 1583s [00:53:03.309] inherits <- base::inherits 1583s [00:53:03.309] invokeRestart <- base::invokeRestart 1583s [00:53:03.309] length <- base::length 1583s [00:53:03.309] list <- base::list 1583s [00:53:03.309] seq.int <- base::seq.int 1583s [00:53:03.309] signalCondition <- base::signalCondition 1583s [00:53:03.309] sys.calls <- base::sys.calls 1583s [00:53:03.309] `[[` <- base::`[[` 1583s [00:53:03.309] `+` <- base::`+` 1583s [00:53:03.309] `<<-` <- base::`<<-` 1583s [00:53:03.309] sysCalls <- function(calls = sys.calls(), from = 1L) { 1583s [00:53:03.309] calls[seq.int(from = from + 12L, to = length(calls) - 1583s [00:53:03.309] 3L)] 1583s [00:53:03.309] } 1583s [00:53:03.309] function(cond) { 1583s [00:53:03.309] is_error <- inherits(cond, "error") 1583s [00:53:03.309] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1583s [00:53:03.309] NULL) 1583s [00:53:03.309] if (is_error) { 1583s [00:53:03.309] sessionInformation <- function() { 1583s [00:53:03.309] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1583s [00:53:03.309] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1583s [00:53:03.309] search = base::search(), system = base::Sys.info()) 1583s [00:53:03.309] } 1583s [00:53:03.309] ...future.conditions[[length(...future.conditions) + 1583s [00:53:03.309] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1583s [00:53:03.309] cond$call), session = sessionInformation(), 1583s [00:53:03.309] timestamp = base::Sys.time(), signaled = 0L) 1583s [00:53:03.309] signalCondition(cond) 1583s [00:53:03.309] } 1583s [00:53:03.309] else if (!ignore && TRUE && inherits(cond, c("condition", 1583s [00:53:03.309] "immediateCondition"))) { 1583s [00:53:03.309] signal <- TRUE && inherits(cond, "immediateCondition") 1583s [00:53:03.309] ...future.conditions[[length(...future.conditions) + 1583s [00:53:03.309] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1583s [00:53:03.309] if (TRUE && !signal) { 1583s [00:53:03.309] muffleCondition <- function (cond, pattern = "^muffle") 1583s [00:53:03.309] { 1583s [00:53:03.309] inherits <- base::inherits 1583s [00:53:03.309] invokeRestart <- base::invokeRestart 1583s [00:53:03.309] is.null <- base::is.null 1583s [00:53:03.309] muffled <- FALSE 1583s [00:53:03.309] if (inherits(cond, "message")) { 1583s [00:53:03.309] muffled <- grepl(pattern, "muffleMessage") 1583s [00:53:03.309] if (muffled) 1583s [00:53:03.309] invokeRestart("muffleMessage") 1583s [00:53:03.309] } 1583s [00:53:03.309] else if (inherits(cond, "warning")) { 1583s [00:53:03.309] muffled <- grepl(pattern, "muffleWarning") 1583s [00:53:03.309] if (muffled) 1583s [00:53:03.309] invokeRestart("muffleWarning") 1583s [00:53:03.309] } 1583s [00:53:03.309] else if (inherits(cond, "condition")) { 1583s [00:53:03.309] if (!is.null(pattern)) { 1583s [00:53:03.309] computeRestarts <- base::computeRestarts 1583s [00:53:03.309] grepl <- base::grepl 1583s [00:53:03.309] restarts <- computeRestarts(cond) 1583s [00:53:03.309] for (restart in restarts) { 1583s [00:53:03.309] name <- restart$name 1583s [00:53:03.309] if (is.null(name)) 1583s [00:53:03.309] next 1583s [00:53:03.309] if (!grepl(pattern, name)) 1583s [00:53:03.309] next 1583s [00:53:03.309] invokeRestart(restart) 1583s [00:53:03.309] muffled <- TRUE 1583s [00:53:03.309] break 1583s [00:53:03.309] } 1583s [00:53:03.309] } 1583s [00:53:03.309] } 1583s [00:53:03.309] invisible(muffled) 1583s [00:53:03.309] } 1583s [00:53:03.309] muffleCondition(cond, pattern = "^muffle") 1583s [00:53:03.309] } 1583s [00:53:03.309] } 1583s [00:53:03.309] else { 1583s [00:53:03.309] if (TRUE) { 1583s [00:53:03.309] muffleCondition <- function (cond, pattern = "^muffle") 1583s [00:53:03.309] { 1583s [00:53:03.309] inherits <- base::inherits 1583s [00:53:03.309] invokeRestart <- base::invokeRestart 1583s [00:53:03.309] is.null <- base::is.null 1583s [00:53:03.309] muffled <- FALSE 1583s [00:53:03.309] if (inherits(cond, "message")) { 1583s [00:53:03.309] muffled <- grepl(pattern, "muffleMessage") 1583s [00:53:03.309] if (muffled) 1583s [00:53:03.309] invokeRestart("muffleMessage") 1583s [00:53:03.309] } 1583s [00:53:03.309] else if (inherits(cond, "warning")) { 1583s [00:53:03.309] muffled <- grepl(pattern, "muffleWarning") 1583s [00:53:03.309] if (muffled) 1583s [00:53:03.309] invokeRestart("muffleWarning") 1583s [00:53:03.309] } 1583s [00:53:03.309] else if (inherits(cond, "condition")) { 1583s [00:53:03.309] if (!is.null(pattern)) { 1583s [00:53:03.309] computeRestarts <- base::computeRestarts 1583s [00:53:03.309] grepl <- base::grepl 1583s [00:53:03.309] restarts <- computeRestarts(cond) 1583s [00:53:03.309] for (restart in restarts) { 1583s [00:53:03.309] name <- restart$name 1583s [00:53:03.309] if (is.null(name)) 1583s [00:53:03.309] next 1583s [00:53:03.309] if (!grepl(pattern, name)) 1583s [00:53:03.309] next 1583s [00:53:03.309] invokeRestart(restart) 1583s [00:53:03.309] muffled <- TRUE 1583s [00:53:03.309] break 1583s [00:53:03.309] } 1583s [00:53:03.309] } 1583s [00:53:03.309] } 1583s [00:53:03.309] invisible(muffled) 1583s [00:53:03.309] } 1583s [00:53:03.309] muffleCondition(cond, pattern = "^muffle") 1583s [00:53:03.309] } 1583s [00:53:03.309] } 1583s [00:53:03.309] } 1583s [00:53:03.309] })) 1583s [00:53:03.309] }, error = function(ex) { 1583s [00:53:03.309] base::structure(base::list(value = NULL, visible = NULL, 1583s [00:53:03.309] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1583s [00:53:03.309] ...future.rng), started = ...future.startTime, 1583s [00:53:03.309] finished = Sys.time(), session_uuid = NA_character_, 1583s [00:53:03.309] version = "1.8"), class = "FutureResult") 1583s [00:53:03.309] }, finally = { 1583s [00:53:03.309] if (!identical(...future.workdir, getwd())) 1583s [00:53:03.309] setwd(...future.workdir) 1583s [00:53:03.309] { 1583s [00:53:03.309] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1583s [00:53:03.309] ...future.oldOptions$nwarnings <- NULL 1583s [00:53:03.309] } 1583s [00:53:03.309] base::options(...future.oldOptions) 1583s [00:53:03.309] if (.Platform$OS.type == "windows") { 1583s [00:53:03.309] old_names <- names(...future.oldEnvVars) 1583s [00:53:03.309] envs <- base::Sys.getenv() 1583s [00:53:03.309] names <- names(envs) 1583s [00:53:03.309] common <- intersect(names, old_names) 1583s [00:53:03.309] added <- setdiff(names, old_names) 1583s [00:53:03.309] removed <- setdiff(old_names, names) 1583s [00:53:03.309] changed <- common[...future.oldEnvVars[common] != 1583s [00:53:03.309] envs[common]] 1583s [00:53:03.309] NAMES <- toupper(changed) 1583s [00:53:03.309] args <- list() 1583s [00:53:03.309] for (kk in seq_along(NAMES)) { 1583s [00:53:03.309] name <- changed[[kk]] 1583s [00:53:03.309] NAME <- NAMES[[kk]] 1583s [00:53:03.309] if (name != NAME && is.element(NAME, old_names)) 1583s [00:53:03.309] next 1583s [00:53:03.309] args[[name]] <- ...future.oldEnvVars[[name]] 1583s [00:53:03.309] } 1583s [00:53:03.309] NAMES <- toupper(added) 1583s [00:53:03.309] for (kk in seq_along(NAMES)) { 1583s [00:53:03.309] name <- added[[kk]] 1583s [00:53:03.309] NAME <- NAMES[[kk]] 1583s [00:53:03.309] if (name != NAME && is.element(NAME, old_names)) 1583s [00:53:03.309] next 1583s [00:53:03.309] args[[name]] <- "" 1583s [00:53:03.309] } 1583s [00:53:03.309] NAMES <- toupper(removed) 1583s [00:53:03.309] for (kk in seq_along(NAMES)) { 1583s [00:53:03.309] name <- removed[[kk]] 1583s [00:53:03.309] NAME <- NAMES[[kk]] 1583s [00:53:03.309] if (name != NAME && is.element(NAME, old_names)) 1583s [00:53:03.309] next 1583s [00:53:03.309] args[[name]] <- ...future.oldEnvVars[[name]] 1583s [00:53:03.309] } 1583s [00:53:03.309] if (length(args) > 0) 1583s [00:53:03.309] base::do.call(base::Sys.setenv, args = args) 1583s [00:53:03.309] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1583s [00:53:03.309] } 1583s [00:53:03.309] else { 1583s [00:53:03.309] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1583s [00:53:03.309] } 1583s [00:53:03.309] { 1583s [00:53:03.309] if (base::length(...future.futureOptionsAdded) > 1583s [00:53:03.309] 0L) { 1583s [00:53:03.309] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1583s [00:53:03.309] base::names(opts) <- ...future.futureOptionsAdded 1583s [00:53:03.309] base::options(opts) 1583s [00:53:03.309] } 1583s [00:53:03.309] { 1583s [00:53:03.309] { 1583s [00:53:03.309] NULL 1583s [00:53:03.309] RNGkind("Mersenne-Twister") 1583s [00:53:03.309] base::rm(list = ".Random.seed", envir = base::globalenv(), 1583s [00:53:03.309] inherits = FALSE) 1583s [00:53:03.309] } 1583s [00:53:03.309] options(future.plan = NULL) 1583s [00:53:03.309] if (is.na(NA_character_)) 1583s [00:53:03.309] Sys.unsetenv("R_FUTURE_PLAN") 1583s [00:53:03.309] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1583s [00:53:03.309] future::plan(list(function (..., workers = availableCores(), 1583s [00:53:03.309] lazy = FALSE, rscript_libs = .libPaths(), 1583s [00:53:03.309] envir = parent.frame()) 1583s [00:53:03.309] { 1583s [00:53:03.309] if (is.function(workers)) 1583s [00:53:03.309] workers <- workers() 1583s [00:53:03.309] workers <- structure(as.integer(workers), 1583s [00:53:03.309] class = class(workers)) 1583s [00:53:03.309] stop_if_not(length(workers) == 1, is.finite(workers), 1583s [00:53:03.309] workers >= 1) 1583s [00:53:03.309] if (workers == 1L && !inherits(workers, "AsIs")) { 1583s [00:53:03.309] return(sequential(..., lazy = TRUE, envir = envir)) 1583s [00:53:03.309] } 1583s [00:53:03.309] future <- MultisessionFuture(..., workers = workers, 1583s [00:53:03.309] lazy = lazy, rscript_libs = rscript_libs, 1583s [00:53:03.309] envir = envir) 1583s [00:53:03.309] if (!future$lazy) 1583s [00:53:03.309] future <- run(future) 1583s [00:53:03.309] invisible(future) 1583s [00:53:03.309] }), .cleanup = FALSE, .init = FALSE) 1583s [00:53:03.309] } 1583s [00:53:03.309] } 1583s [00:53:03.309] } 1583s [00:53:03.309] }) 1583s [00:53:03.309] if (TRUE) { 1583s [00:53:03.309] base::sink(type = "output", split = FALSE) 1583s [00:53:03.309] if (TRUE) { 1583s [00:53:03.309] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1583s [00:53:03.309] } 1583s [00:53:03.309] else { 1583s [00:53:03.309] ...future.result["stdout"] <- base::list(NULL) 1583s [00:53:03.309] } 1583s [00:53:03.309] base::close(...future.stdout) 1583s [00:53:03.309] ...future.stdout <- NULL 1583s [00:53:03.309] } 1583s [00:53:03.309] ...future.result$conditions <- ...future.conditions 1583s [00:53:03.309] ...future.result$finished <- base::Sys.time() 1583s [00:53:03.309] ...future.result 1583s [00:53:03.309] } 1583s [00:53:03.315] assign_globals() ... 1583s [00:53:03.315] List of 5 1583s [00:53:03.315] $ ...future.FUN :function (x) 1583s [00:53:03.315] $ future.call.arguments : list() 1583s [00:53:03.315] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1583s [00:53:03.315] $ ...future.elements_ii :List of 4 1583s [00:53:03.315] ..$ A: num 50 1583s [00:53:03.315] ..$ B: num 60 1583s [00:53:03.315] ..$ C: num 70 1583s [00:53:03.315] ..$ D: num 80 1583s [00:53:03.315] $ ...future.seeds_ii : NULL 1583s [00:53:03.315] $ ...future.globals.maxSize: NULL 1583s [00:53:03.315] - attr(*, "where")=List of 5 1583s [00:53:03.315] ..$ ...future.FUN : 1583s [00:53:03.315] ..$ future.call.arguments : 1583s [00:53:03.315] ..$ ...future.elements_ii : 1583s [00:53:03.315] ..$ ...future.seeds_ii : 1583s [00:53:03.315] ..$ ...future.globals.maxSize: 1583s [00:53:03.315] - attr(*, "resolved")= logi FALSE 1583s [00:53:03.315] - attr(*, "total_size")= num 848 1583s [00:53:03.315] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1583s [00:53:03.315] - attr(*, "already-done")= logi TRUE 1583s [00:53:03.324] - copied ‘...future.FUN’ to environment 1583s [00:53:03.325] - copied ‘future.call.arguments’ to environment 1583s [00:53:03.325] - copied ‘...future.elements_ii’ to environment 1583s [00:53:03.325] - copied ‘...future.seeds_ii’ to environment 1583s [00:53:03.325] - copied ‘...future.globals.maxSize’ to environment 1583s [00:53:03.325] assign_globals() ... done 1583s [00:53:03.326] plan(): Setting new future strategy stack: 1583s [00:53:03.326] List of future strategies: 1583s [00:53:03.326] 1. sequential: 1583s [00:53:03.326] - args: function (..., envir = parent.frame()) 1583s [00:53:03.326] - tweaked: FALSE 1583s [00:53:03.326] - call: NULL 1583s [00:53:03.326] plan(): nbrOfWorkers() = 1 1583s [00:53:03.327] plan(): Setting new future strategy stack: 1583s [00:53:03.327] List of future strategies: 1583s [00:53:03.327] 1. multisession: 1583s [00:53:03.327] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1583s [00:53:03.327] - tweaked: FALSE 1583s [00:53:03.327] - call: plan(strategy) 1583s [00:53:03.331] plan(): nbrOfWorkers() = 1 1583s [00:53:03.331] SequentialFuture started (and completed) 1583s [00:53:03.331] - Launch lazy future ... done 1583s [00:53:03.332] run() for ‘SequentialFuture’ ... done 1583s [00:53:03.332] Created future: 1583s [00:53:03.332] SequentialFuture: 1583s [00:53:03.332] Label: ‘future_sapply-1’ 1583s [00:53:03.332] Expression: 1583s [00:53:03.332] { 1583s [00:53:03.332] do.call(function(...) { 1583s [00:53:03.332] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1583s [00:53:03.332] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1583s [00:53:03.332] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1583s [00:53:03.332] on.exit(options(oopts), add = TRUE) 1583s [00:53:03.332] } 1583s [00:53:03.332] { 1583s [00:53:03.332] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1583s [00:53:03.332] ...future.X_jj <- ...future.elements_ii[[jj]] 1583s [00:53:03.332] ...future.FUN(...future.X_jj, ...) 1583s [00:53:03.332] }) 1583s [00:53:03.332] } 1583s [00:53:03.332] }, args = future.call.arguments) 1583s [00:53:03.332] } 1583s [00:53:03.332] Lazy evaluation: FALSE 1583s [00:53:03.332] Asynchronous evaluation: FALSE 1583s [00:53:03.332] Local evaluation: TRUE 1583s [00:53:03.332] Environment: R_GlobalEnv 1583s [00:53:03.332] Capture standard output: TRUE 1583s [00:53:03.332] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1583s [00:53:03.332] Globals: 5 objects totaling 1.05 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1583s [00:53:03.332] Packages: 1583s [00:53:03.332] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1583s [00:53:03.332] Resolved: TRUE 1583s [00:53:03.332] Value: 224 bytes of class ‘list’ 1583s [00:53:03.332] Early signaling: FALSE 1583s [00:53:03.332] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1583s [00:53:03.332] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1583s [00:53:03.334] Chunk #1 of 1 ... DONE 1583s [00:53:03.334] Launching 1 futures (chunks) ... DONE 1583s [00:53:03.334] Resolving 1 futures (chunks) ... 1583s [00:53:03.334] resolve() on list ... 1583s [00:53:03.334] recursive: 0 1583s [00:53:03.334] length: 1 1583s [00:53:03.334] 1583s [00:53:03.335] resolved() for ‘SequentialFuture’ ... 1583s [00:53:03.335] - state: ‘finished’ 1583s [00:53:03.335] - run: TRUE 1583s [00:53:03.335] - result: ‘FutureResult’ 1583s [00:53:03.335] resolved() for ‘SequentialFuture’ ... done 1583s [00:53:03.335] Future #1 1583s [00:53:03.336] signalConditionsASAP(SequentialFuture, pos=1) ... 1583s [00:53:03.336] - nx: 1 1583s [00:53:03.336] - relay: TRUE 1583s [00:53:03.336] - stdout: TRUE 1583s [00:53:03.336] - signal: TRUE 1583s [00:53:03.336] - resignal: FALSE 1583s [00:53:03.336] - force: TRUE 1583s [00:53:03.337] - relayed: [n=1] FALSE 1583s [00:53:03.337] - queued futures: [n=1] FALSE 1583s [00:53:03.337] - until=1 1583s [00:53:03.337] - relaying element #1 1583s [00:53:03.337] - relayed: [n=1] TRUE 1583s [00:53:03.338] - queued futures: [n=1] TRUE 1583s [00:53:03.338] signalConditionsASAP(SequentialFuture, pos=1) ... done 1583s [00:53:03.338] length: 0 (resolved future 1) 1583s [00:53:03.338] Relaying remaining futures 1583s [00:53:03.338] signalConditionsASAP(NULL, pos=0) ... 1583s [00:53:03.338] - nx: 1 1583s [00:53:03.338] - relay: TRUE 1583s [00:53:03.339] - stdout: TRUE 1583s [00:53:03.339] - signal: TRUE 1583s [00:53:03.339] - resignal: FALSE 1583s [00:53:03.339] - force: TRUE 1583s [00:53:03.339] - relayed: [n=1] TRUE 1583s [00:53:03.339] - queued futures: [n=1] TRUE 1583s - flush all 1583s [00:53:03.339] - relayed: [n=1] TRUE 1583s [00:53:03.340] - queued futures: [n=1] TRUE 1583s [00:53:03.340] signalConditionsASAP(NULL, pos=0) ... done 1583s [00:53:03.340] resolve() on list ... DONE 1583s List of 2 1583s $ y0:List of 4 1583s ..$ A: num 50 1583s ..$ B: num 60[00:53:03.340] - Number of value chunks collected: 1 1583s [00:53:03.340] Resolving 1 futures (chunks) ... DONE 1583s [00:53:03.340] Reducing values from 1 chunks ... 1583s [00:53:03.341] - Number of values collected after concatenation: 4 1583s [00:53:03.341] - Number of values expected: 4 1583s [00:53:03.341] Reducing values from 1 chunks ... DONE 1583s [00:53:03.341] future_lapply() ... DONE 1583s 1583s ..$ C: num 70 1583s ..$ D: num 80 1583s $ y1:List of 4 1583s ..$ A: num 50 1583s ..$ B: num 60 1583s ..$ C: num 70 1583s ..$ D: num 80 1583s List of 2 1583s $ y0:List of 4 1583s ..$ A: num 50 1583s ..$ B: num 60 1583s ..$ C: num 70 1583s ..$ D: num 80 1583s $ y2:List of 4 1583s ..$ A: num 50 1583s ..$ B: num 60 1583s ..$ C:[00:53:03.352] future_lapply() ... 1583s num 70 1583s ..$ D: num 80 1583s [00:53:03.355] Number of chunks: 1 1583s [00:53:03.355] getGlobalsAndPackagesXApply() ... 1583s [00:53:03.355] - future.globals: TRUE 1583s [00:53:03.356] getGlobalsAndPackages() ... 1583s [00:53:03.356] Searching for globals... 1583s [00:53:03.357] - globals found: [2] ‘FUN’, ‘UseMethod’ 1583s [00:53:03.357] Searching for globals ... DONE 1583s [00:53:03.357] Resolving globals: FALSE 1583s [00:53:03.358] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1583s [00:53:03.358] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1583s [00:53:03.358] - globals: [1] ‘FUN’ 1583s [00:53:03.359] 1583s [00:53:03.359] getGlobalsAndPackages() ... DONE 1583s [00:53:03.359] - globals found/used: [n=1] ‘FUN’ 1583s [00:53:03.359] - needed namespaces: [n=0] 1583s [00:53:03.359] Finding globals ... DONE 1583s [00:53:03.359] - use_args: TRUE 1583s [00:53:03.359] - Getting '...' globals ... 1583s [00:53:03.360] resolve() on list ... 1583s [00:53:03.360] recursive: 0 1583s [00:53:03.360] length: 1 1583s [00:53:03.361] elements: ‘...’ 1583s [00:53:03.361] length: 0 (resolved future 1) 1583s [00:53:03.361] resolve() on list ... DONE 1583s [00:53:03.361] - '...' content: [n=0] 1583s [00:53:03.361] List of 1 1583s [00:53:03.361] $ ...: list() 1583s [00:53:03.361] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1583s [00:53:03.361] - attr(*, "where")=List of 1 1583s [00:53:03.361] ..$ ...: 1583s [00:53:03.361] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1583s [00:53:03.361] - attr(*, "resolved")= logi TRUE 1583s [00:53:03.361] - attr(*, "total_size")= num NA 1583s [00:53:03.364] - Getting '...' globals ... DONE 1583s [00:53:03.365] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1583s [00:53:03.365] List of 2 1583s [00:53:03.365] $ ...future.FUN:function (x, ...) 1583s [00:53:03.365] $ ... : list() 1583s [00:53:03.365] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1583s [00:53:03.365] - attr(*, "where")=List of 2 1583s [00:53:03.365] ..$ ...future.FUN: 1583s [00:53:03.365] ..$ ... : 1583s [00:53:03.365] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1583s [00:53:03.365] - attr(*, "resolved")= logi FALSE 1583s [00:53:03.365] - attr(*, "total_size")= num 1248 1583s [00:53:03.368] Packages to be attached in all futures: [n=0] 1583s [00:53:03.369] getGlobalsAndPackagesXApply() ... DONE 1583s [00:53:03.369] Number of futures (= number of chunks): 1 1583s [00:53:03.369] Launching 1 futures (chunks) ... 1583s [00:53:03.369] Chunk #1 of 1 ... 1583s [00:53:03.369] - Finding globals in 'X' for chunk #1 ... 1583s [00:53:03.370] getGlobalsAndPackages() ... 1583s [00:53:03.370] Searching for globals... 1583s [00:53:03.370] 1583s [00:53:03.370] Searching for globals ... DONE 1583s [00:53:03.371] - globals: [0] 1583s [00:53:03.371] getGlobalsAndPackages() ... DONE 1583s [00:53:03.371] + additional globals found: [n=0] 1583s [00:53:03.371] + additional namespaces needed: [n=0] 1583s [00:53:03.371] - Finding globals in 'X' for chunk #1 ... DONE 1583s [00:53:03.371] - seeds: 1583s [00:53:03.371] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1583s [00:53:03.372] getGlobalsAndPackages() ... 1583s [00:53:03.372] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1583s [00:53:03.372] Resolving globals: FALSE 1583s [00:53:03.372] Tweak future expression to call with '...' arguments ... 1583s [00:53:03.372] { 1583s [00:53:03.372] do.call(function(...) { 1583s [00:53:03.372] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1583s [00:53:03.372] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1583s [00:53:03.372] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1583s [00:53:03.372] on.exit(options(oopts), add = TRUE) 1583s [00:53:03.372] } 1583s [00:53:03.372] { 1583s [00:53:03.372] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1583s [00:53:03.372] ...future.X_jj <- ...future.elements_ii[[jj]] 1583s [00:53:03.372] ...future.FUN(...future.X_jj, ...) 1583s [00:53:03.372] }) 1583s [00:53:03.372] } 1583s [00:53:03.372] }, args = future.call.arguments) 1583s [00:53:03.372] } 1583s [00:53:03.373] Tweak future expression to call with '...' arguments ... DONE 1583s [00:53:03.373] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1583s [00:53:03.373] 1583s [00:53:03.373] getGlobalsAndPackages() ... DONE 1583s [00:53:03.374] run() for ‘Future’ ... 1583s [00:53:03.374] - state: ‘created’ 1583s [00:53:03.374] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1583s [00:53:03.377] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1583s [00:53:03.377] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1583s [00:53:03.378] - Field: ‘label’ 1583s [00:53:03.378] - Field: ‘local’ 1583s [00:53:03.378] - Field: ‘owner’ 1583s [00:53:03.378] - Field: ‘envir’ 1583s [00:53:03.378] - Field: ‘packages’ 1583s [00:53:03.378] - Field: ‘gc’ 1583s [00:53:03.378] - Field: ‘conditions’ 1583s [00:53:03.379] - Field: ‘expr’ 1583s [00:53:03.379] - Field: ‘uuid’ 1583s [00:53:03.379] - Field: ‘seed’ 1583s [00:53:03.379] - Field: ‘version’ 1583s [00:53:03.379] - Field: ‘result’ 1583s [00:53:03.379] - Field: ‘asynchronous’ 1583s [00:53:03.380] - Field: ‘calls’ 1583s [00:53:03.380] - Field: ‘globals’ 1583s [00:53:03.380] - Field: ‘stdout’ 1583s [00:53:03.381] - Field: ‘earlySignal’ 1583s [00:53:03.381] - Field: ‘lazy’ 1583s [00:53:03.381] - Field: ‘state’ 1583s [00:53:03.381] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1583s [00:53:03.381] - Launch lazy future ... 1583s [00:53:03.382] Packages needed by the future expression (n = 0): 1583s [00:53:03.382] Packages needed by future strategies (n = 0): 1583s [00:53:03.382] { 1583s [00:53:03.382] { 1583s [00:53:03.382] { 1583s [00:53:03.382] ...future.startTime <- base::Sys.time() 1583s [00:53:03.382] { 1583s [00:53:03.382] { 1583s [00:53:03.382] { 1583s [00:53:03.382] base::local({ 1583s [00:53:03.382] has_future <- base::requireNamespace("future", 1583s [00:53:03.382] quietly = TRUE) 1583s [00:53:03.382] if (has_future) { 1583s [00:53:03.382] ns <- base::getNamespace("future") 1583s [00:53:03.382] version <- ns[[".package"]][["version"]] 1583s [00:53:03.382] if (is.null(version)) 1583s [00:53:03.382] version <- utils::packageVersion("future") 1583s [00:53:03.382] } 1583s [00:53:03.382] else { 1583s [00:53:03.382] version <- NULL 1583s [00:53:03.382] } 1583s [00:53:03.382] if (!has_future || version < "1.8.0") { 1583s [00:53:03.382] info <- base::c(r_version = base::gsub("R version ", 1583s [00:53:03.382] "", base::R.version$version.string), 1583s [00:53:03.382] platform = base::sprintf("%s (%s-bit)", 1583s [00:53:03.382] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1583s [00:53:03.382] os = base::paste(base::Sys.info()[base::c("sysname", 1583s [00:53:03.382] "release", "version")], collapse = " "), 1583s [00:53:03.382] hostname = base::Sys.info()[["nodename"]]) 1583s [00:53:03.382] info <- base::sprintf("%s: %s", base::names(info), 1583s [00:53:03.382] info) 1583s [00:53:03.382] info <- base::paste(info, collapse = "; ") 1583s [00:53:03.382] if (!has_future) { 1583s [00:53:03.382] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1583s [00:53:03.382] info) 1583s [00:53:03.382] } 1583s [00:53:03.382] else { 1583s [00:53:03.382] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1583s [00:53:03.382] info, version) 1583s [00:53:03.382] } 1583s [00:53:03.382] base::stop(msg) 1583s [00:53:03.382] } 1583s [00:53:03.382] }) 1583s [00:53:03.382] } 1583s [00:53:03.382] options(future.plan = NULL) 1583s [00:53:03.382] Sys.unsetenv("R_FUTURE_PLAN") 1583s [00:53:03.382] future::plan("default", .cleanup = FALSE, .init = FALSE) 1583s [00:53:03.382] } 1583s [00:53:03.382] ...future.workdir <- getwd() 1583s [00:53:03.382] } 1583s [00:53:03.382] ...future.oldOptions <- base::as.list(base::.Options) 1583s [00:53:03.382] ...future.oldEnvVars <- base::Sys.getenv() 1583s [00:53:03.382] } 1583s [00:53:03.382] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1583s [00:53:03.382] future.globals.maxSize = NULL, future.globals.method = NULL, 1583s [00:53:03.382] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1583s [00:53:03.382] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1583s [00:53:03.382] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1583s [00:53:03.382] future.stdout.windows.reencode = NULL, width = 80L) 1583s [00:53:03.382] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1583s [00:53:03.382] base::names(...future.oldOptions)) 1583s [00:53:03.382] } 1583s [00:53:03.382] if (FALSE) { 1583s [00:53:03.382] } 1583s [00:53:03.382] else { 1583s [00:53:03.382] if (TRUE) { 1583s [00:53:03.382] ...future.stdout <- base::rawConnection(base::raw(0L), 1583s [00:53:03.382] open = "w") 1583s [00:53:03.382] } 1583s [00:53:03.382] else { 1583s [00:53:03.382] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1583s [00:53:03.382] windows = "NUL", "/dev/null"), open = "w") 1583s [00:53:03.382] } 1583s [00:53:03.382] base::sink(...future.stdout, type = "output", split = FALSE) 1583s [00:53:03.382] base::on.exit(if (!base::is.null(...future.stdout)) { 1583s [00:53:03.382] base::sink(type = "output", split = FALSE) 1583s [00:53:03.382] base::close(...future.stdout) 1583s [00:53:03.382] }, add = TRUE) 1583s [00:53:03.382] } 1583s [00:53:03.382] ...future.frame <- base::sys.nframe() 1583s [00:53:03.382] ...future.conditions <- base::list() 1583s [00:53:03.382] ...future.rng <- base::globalenv()$.Random.seed 1583s [00:53:03.382] if (FALSE) { 1583s [00:53:03.382] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1583s [00:53:03.382] "...future.value", "...future.globalenv.names", ".Random.seed") 1583s [00:53:03.382] } 1583s [00:53:03.382] ...future.result <- base::tryCatch({ 1583s [00:53:03.382] base::withCallingHandlers({ 1583s [00:53:03.382] ...future.value <- base::withVisible(base::local({ 1583s [00:53:03.382] do.call(function(...) { 1583s [00:53:03.382] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1583s [00:53:03.382] if (!identical(...future.globals.maxSize.org, 1583s [00:53:03.382] ...future.globals.maxSize)) { 1583s [00:53:03.382] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1583s [00:53:03.382] on.exit(options(oopts), add = TRUE) 1583s [00:53:03.382] } 1583s [00:53:03.382] { 1583s [00:53:03.382] lapply(seq_along(...future.elements_ii), 1583s [00:53:03.382] FUN = function(jj) { 1583s [00:53:03.382] ...future.X_jj <- ...future.elements_ii[[jj]] 1583s [00:53:03.382] ...future.FUN(...future.X_jj, ...) 1583s [00:53:03.382] }) 1583s [00:53:03.382] } 1583s [00:53:03.382] }, args = future.call.arguments) 1583s [00:53:03.382] })) 1583s [00:53:03.382] future::FutureResult(value = ...future.value$value, 1583s [00:53:03.382] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1583s [00:53:03.382] ...future.rng), globalenv = if (FALSE) 1583s [00:53:03.382] list(added = base::setdiff(base::names(base::.GlobalEnv), 1583s [00:53:03.382] ...future.globalenv.names)) 1583s [00:53:03.382] else NULL, started = ...future.startTime, version = "1.8") 1583s [00:53:03.382] }, condition = base::local({ 1583s [00:53:03.382] c <- base::c 1583s [00:53:03.382] inherits <- base::inherits 1583s [00:53:03.382] invokeRestart <- base::invokeRestart 1583s [00:53:03.382] length <- base::length 1583s [00:53:03.382] list <- base::list 1583s [00:53:03.382] seq.int <- base::seq.int 1583s [00:53:03.382] signalCondition <- base::signalCondition 1583s [00:53:03.382] sys.calls <- base::sys.calls 1583s [00:53:03.382] `[[` <- base::`[[` 1583s [00:53:03.382] `+` <- base::`+` 1583s [00:53:03.382] `<<-` <- base::`<<-` 1583s [00:53:03.382] sysCalls <- function(calls = sys.calls(), from = 1L) { 1583s [00:53:03.382] calls[seq.int(from = from + 12L, to = length(calls) - 1583s [00:53:03.382] 3L)] 1583s [00:53:03.382] } 1583s [00:53:03.382] function(cond) { 1583s [00:53:03.382] is_error <- inherits(cond, "error") 1583s [00:53:03.382] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1583s [00:53:03.382] NULL) 1583s [00:53:03.382] if (is_error) { 1583s [00:53:03.382] sessionInformation <- function() { 1583s [00:53:03.382] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1583s [00:53:03.382] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1583s [00:53:03.382] search = base::search(), system = base::Sys.info()) 1583s [00:53:03.382] } 1583s [00:53:03.382] ...future.conditions[[length(...future.conditions) + 1583s [00:53:03.382] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1583s [00:53:03.382] cond$call), session = sessionInformation(), 1583s [00:53:03.382] timestamp = base::Sys.time(), signaled = 0L) 1583s [00:53:03.382] signalCondition(cond) 1583s [00:53:03.382] } 1583s [00:53:03.382] else if (!ignore && TRUE && inherits(cond, c("condition", 1583s [00:53:03.382] "immediateCondition"))) { 1583s [00:53:03.382] signal <- TRUE && inherits(cond, "immediateCondition") 1583s [00:53:03.382] ...future.conditions[[length(...future.conditions) + 1583s [00:53:03.382] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1583s [00:53:03.382] if (TRUE && !signal) { 1583s [00:53:03.382] muffleCondition <- function (cond, pattern = "^muffle") 1583s [00:53:03.382] { 1583s [00:53:03.382] inherits <- base::inherits 1583s [00:53:03.382] invokeRestart <- base::invokeRestart 1583s [00:53:03.382] is.null <- base::is.null 1583s [00:53:03.382] muffled <- FALSE 1583s [00:53:03.382] if (inherits(cond, "message")) { 1583s [00:53:03.382] muffled <- grepl(pattern, "muffleMessage") 1583s [00:53:03.382] if (muffled) 1583s [00:53:03.382] invokeRestart("muffleMessage") 1583s [00:53:03.382] } 1583s [00:53:03.382] else if (inherits(cond, "warning")) { 1583s [00:53:03.382] muffled <- grepl(pattern, "muffleWarning") 1583s [00:53:03.382] if (muffled) 1583s [00:53:03.382] invokeRestart("muffleWarning") 1583s [00:53:03.382] } 1583s [00:53:03.382] else if (inherits(cond, "condition")) { 1583s [00:53:03.382] if (!is.null(pattern)) { 1583s [00:53:03.382] computeRestarts <- base::computeRestarts 1583s [00:53:03.382] grepl <- base::grepl 1583s [00:53:03.382] restarts <- computeRestarts(cond) 1583s [00:53:03.382] for (restart in restarts) { 1583s [00:53:03.382] name <- restart$name 1583s [00:53:03.382] if (is.null(name)) 1583s [00:53:03.382] next 1583s [00:53:03.382] if (!grepl(pattern, name)) 1583s [00:53:03.382] next 1583s [00:53:03.382] invokeRestart(restart) 1583s [00:53:03.382] muffled <- TRUE 1583s [00:53:03.382] break 1583s [00:53:03.382] } 1583s [00:53:03.382] } 1583s [00:53:03.382] } 1583s [00:53:03.382] invisible(muffled) 1583s [00:53:03.382] } 1583s [00:53:03.382] muffleCondition(cond, pattern = "^muffle") 1583s [00:53:03.382] } 1583s [00:53:03.382] } 1583s [00:53:03.382] else { 1583s [00:53:03.382] if (TRUE) { 1583s [00:53:03.382] muffleCondition <- function (cond, pattern = "^muffle") 1583s [00:53:03.382] { 1583s [00:53:03.382] inherits <- base::inherits 1583s [00:53:03.382] invokeRestart <- base::invokeRestart 1583s [00:53:03.382] is.null <- base::is.null 1583s [00:53:03.382] muffled <- FALSE 1583s [00:53:03.382] if (inherits(cond, "message")) { 1583s [00:53:03.382] muffled <- grepl(pattern, "muffleMessage") 1583s [00:53:03.382] if (muffled) 1583s [00:53:03.382] invokeRestart("muffleMessage") 1583s [00:53:03.382] } 1583s [00:53:03.382] else if (inherits(cond, "warning")) { 1583s [00:53:03.382] muffled <- grepl(pattern, "muffleWarning") 1583s [00:53:03.382] if (muffled) 1583s [00:53:03.382] invokeRestart("muffleWarning") 1583s [00:53:03.382] } 1583s [00:53:03.382] else if (inherits(cond, "condition")) { 1583s [00:53:03.382] if (!is.null(pattern)) { 1583s [00:53:03.382] computeRestarts <- base::computeRestarts 1583s [00:53:03.382] grepl <- base::grepl 1583s [00:53:03.382] restarts <- computeRestarts(cond) 1583s [00:53:03.382] for (restart in restarts) { 1583s [00:53:03.382] name <- restart$name 1583s [00:53:03.382] if (is.null(name)) 1583s [00:53:03.382] next 1583s [00:53:03.382] if (!grepl(pattern, name)) 1583s [00:53:03.382] next 1583s [00:53:03.382] invokeRestart(restart) 1583s [00:53:03.382] muffled <- TRUE 1583s [00:53:03.382] break 1583s [00:53:03.382] } 1583s [00:53:03.382] } 1583s [00:53:03.382] } 1583s [00:53:03.382] invisible(muffled) 1583s [00:53:03.382] } 1583s [00:53:03.382] muffleCondition(cond, pattern = "^muffle") 1583s [00:53:03.382] } 1583s [00:53:03.382] } 1583s [00:53:03.382] } 1583s [00:53:03.382] })) 1583s [00:53:03.382] }, error = function(ex) { 1583s [00:53:03.382] base::structure(base::list(value = NULL, visible = NULL, 1583s [00:53:03.382] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1583s [00:53:03.382] ...future.rng), started = ...future.startTime, 1583s [00:53:03.382] finished = Sys.time(), session_uuid = NA_character_, 1583s [00:53:03.382] version = "1.8"), class = "FutureResult") 1583s [00:53:03.382] }, finally = { 1583s [00:53:03.382] if (!identical(...future.workdir, getwd())) 1583s [00:53:03.382] setwd(...future.workdir) 1583s [00:53:03.382] { 1583s [00:53:03.382] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1583s [00:53:03.382] ...future.oldOptions$nwarnings <- NULL 1583s [00:53:03.382] } 1583s [00:53:03.382] base::options(...future.oldOptions) 1583s [00:53:03.382] if (.Platform$OS.type == "windows") { 1583s [00:53:03.382] old_names <- names(...future.oldEnvVars) 1583s [00:53:03.382] envs <- base::Sys.getenv() 1583s [00:53:03.382] names <- names(envs) 1583s [00:53:03.382] common <- intersect(names, old_names) 1583s [00:53:03.382] added <- setdiff(names, old_names) 1583s [00:53:03.382] removed <- setdiff(old_names, names) 1583s [00:53:03.382] changed <- common[...future.oldEnvVars[common] != 1583s [00:53:03.382] envs[common]] 1583s [00:53:03.382] NAMES <- toupper(changed) 1583s [00:53:03.382] args <- list() 1583s [00:53:03.382] for (kk in seq_along(NAMES)) { 1583s [00:53:03.382] name <- changed[[kk]] 1583s [00:53:03.382] NAME <- NAMES[[kk]] 1583s [00:53:03.382] if (name != NAME && is.element(NAME, old_names)) 1583s [00:53:03.382] next 1583s [00:53:03.382] args[[name]] <- ...future.oldEnvVars[[name]] 1583s [00:53:03.382] } 1583s [00:53:03.382] NAMES <- toupper(added) 1583s [00:53:03.382] for (kk in seq_along(NAMES)) { 1583s [00:53:03.382] name <- added[[kk]] 1583s [00:53:03.382] NAME <- NAMES[[kk]] 1583s [00:53:03.382] if (name != NAME && is.element(NAME, old_names)) 1583s [00:53:03.382] next 1583s [00:53:03.382] args[[name]] <- "" 1583s [00:53:03.382] } 1583s [00:53:03.382] NAMES <- toupper(removed) 1583s [00:53:03.382] for (kk in seq_along(NAMES)) { 1583s [00:53:03.382] name <- removed[[kk]] 1583s [00:53:03.382] NAME <- NAMES[[kk]] 1583s [00:53:03.382] if (name != NAME && is.element(NAME, old_names)) 1583s [00:53:03.382] next 1583s [00:53:03.382] args[[name]] <- ...future.oldEnvVars[[name]] 1583s [00:53:03.382] } 1583s [00:53:03.382] if (length(args) > 0) 1583s [00:53:03.382] base::do.call(base::Sys.setenv, args = args) 1583s [00:53:03.382] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1583s [00:53:03.382] } 1583s [00:53:03.382] else { 1583s [00:53:03.382] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1583s [00:53:03.382] } 1583s [00:53:03.382] { 1583s [00:53:03.382] if (base::length(...future.futureOptionsAdded) > 1583s [00:53:03.382] 0L) { 1583s [00:53:03.382] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1583s [00:53:03.382] base::names(opts) <- ...future.futureOptionsAdded 1583s [00:53:03.382] base::options(opts) 1583s [00:53:03.382] } 1583s [00:53:03.382] { 1583s [00:53:03.382] { 1583s [00:53:03.382] NULL 1583s [00:53:03.382] RNGkind("Mersenne-Twister") 1583s [00:53:03.382] base::rm(list = ".Random.seed", envir = base::globalenv(), 1583s [00:53:03.382] inherits = FALSE) 1583s [00:53:03.382] } 1583s [00:53:03.382] options(future.plan = NULL) 1583s [00:53:03.382] if (is.na(NA_character_)) 1583s [00:53:03.382] Sys.unsetenv("R_FUTURE_PLAN") 1583s [00:53:03.382] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1583s [00:53:03.382] future::plan(list(function (..., workers = availableCores(), 1583s [00:53:03.382] lazy = FALSE, rscript_libs = .libPaths(), 1583s [00:53:03.382] envir = parent.frame()) 1583s [00:53:03.382] { 1583s [00:53:03.382] if (is.function(workers)) 1583s [00:53:03.382] workers <- workers() 1583s [00:53:03.382] workers <- structure(as.integer(workers), 1583s [00:53:03.382] class = class(workers)) 1583s [00:53:03.382] stop_if_not(length(workers) == 1, is.finite(workers), 1583s [00:53:03.382] workers >= 1) 1583s [00:53:03.382] if (workers == 1L && !inherits(workers, "AsIs")) { 1583s [00:53:03.382] return(sequential(..., lazy = TRUE, envir = envir)) 1583s [00:53:03.382] } 1583s [00:53:03.382] future <- MultisessionFuture(..., workers = workers, 1583s [00:53:03.382] lazy = lazy, rscript_libs = rscript_libs, 1583s [00:53:03.382] envir = envir) 1583s [00:53:03.382] if (!future$lazy) 1583s [00:53:03.382] future <- run(future) 1583s [00:53:03.382] invisible(future) 1583s [00:53:03.382] }), .cleanup = FALSE, .init = FALSE) 1583s [00:53:03.382] } 1583s [00:53:03.382] } 1583s [00:53:03.382] } 1583s [00:53:03.382] }) 1583s [00:53:03.382] if (TRUE) { 1583s [00:53:03.382] base::sink(type = "output", split = FALSE) 1583s [00:53:03.382] if (TRUE) { 1583s [00:53:03.382] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1583s [00:53:03.382] } 1583s [00:53:03.382] else { 1583s [00:53:03.382] ...future.result["stdout"] <- base::list(NULL) 1583s [00:53:03.382] } 1583s [00:53:03.382] base::close(...future.stdout) 1583s [00:53:03.382] ...future.stdout <- NULL 1583s [00:53:03.382] } 1583s [00:53:03.382] ...future.result$conditions <- ...future.conditions 1583s [00:53:03.382] ...future.result$finished <- base::Sys.time() 1583s [00:53:03.382] ...future.result 1583s [00:53:03.382] } 1583s [00:53:03.385] assign_globals() ... 1583s [00:53:03.386] List of 5 1583s [00:53:03.386] $ ...future.FUN :function (x, ...) 1583s [00:53:03.386] $ future.call.arguments : list() 1583s [00:53:03.386] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1583s [00:53:03.386] $ ...future.elements_ii :List of 4 1583s [00:53:03.386] ..$ A: num 50 1583s [00:53:03.386] ..$ B: num 60 1583s [00:53:03.386] ..$ C: num 70 1583s [00:53:03.386] ..$ D: num 80 1583s [00:53:03.386] $ ...future.seeds_ii : NULL 1583s [00:53:03.386] $ ...future.globals.maxSize: NULL 1583s [00:53:03.386] - attr(*, "where")=List of 5 1583s [00:53:03.386] ..$ ...future.FUN : 1583s [00:53:03.386] ..$ future.call.arguments : 1583s [00:53:03.386] ..$ ...future.elements_ii : 1583s [00:53:03.386] ..$ ...future.seeds_ii : 1583s [00:53:03.386] ..$ ...future.globals.maxSize: 1583s [00:53:03.386] - attr(*, "resolved")= logi FALSE 1583s [00:53:03.386] - attr(*, "total_size")= num 1248 1583s [00:53:03.386] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1583s [00:53:03.386] - attr(*, "already-done")= logi TRUE 1583s [00:53:03.394] - copied ‘...future.FUN’ to environment 1583s [00:53:03.394] - copied ‘future.call.arguments’ to environment 1583s [00:53:03.394] - copied ‘...future.elements_ii’ to environment 1583s [00:53:03.394] - copied ‘...future.seeds_ii’ to environment 1583s [00:53:03.395] - copied ‘...future.globals.maxSize’ to environment 1583s [00:53:03.395] assign_globals() ... done 1583s [00:53:03.395] plan(): Setting new future strategy stack: 1583s [00:53:03.395] List of future strategies: 1583s [00:53:03.395] 1. sequential: 1583s [00:53:03.395] - args: function (..., envir = parent.frame()) 1583s [00:53:03.395] - tweaked: FALSE 1583s [00:53:03.395] - call: NULL 1583s [00:53:03.396] plan(): nbrOfWorkers() = 1 1583s [00:53:03.397] plan(): Setting new future strategy stack: 1583s [00:53:03.397] List of future strategies: 1583s [00:53:03.397] 1. multisession: 1583s [00:53:03.397] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1583s [00:53:03.397] - tweaked: FALSE 1583s [00:53:03.397] - call: plan(strategy) 1583s [00:53:03.400] plan(): nbrOfWorkers() = 1 1583s [00:53:03.400] SequentialFuture started (and completed) 1583s [00:53:03.401] - Launch lazy future ... done 1583s [00:53:03.401] run() for ‘SequentialFuture’ ... done 1583s [00:53:03.401] Created future: 1583s [00:53:03.401] SequentialFuture: 1583s [00:53:03.401] Label: ‘future_sapply-1’ 1583s [00:53:03.401] Expression: 1583s [00:53:03.401] { 1583s [00:53:03.401] do.call(function(...) { 1583s [00:53:03.401] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1583s [00:53:03.401] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1583s [00:53:03.401] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1583s [00:53:03.401] on.exit(options(oopts), add = TRUE) 1583s [00:53:03.401] } 1583s [00:53:03.401] { 1583s [00:53:03.401] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1583s [00:53:03.401] ...future.X_jj <- ...future.elements_ii[[jj]] 1583s [00:53:03.401] ...future.FUN(...future.X_jj, ...) 1583s [00:53:03.401] }) 1583s [00:53:03.401] } 1583s [00:53:03.401] }, args = future.call.arguments) 1583s [00:53:03.401] } 1583s [00:53:03.401] Lazy evaluation: FALSE 1583s [00:53:03.401] Asynchronous evaluation: FALSE 1583s [00:53:03.401] Local evaluation: TRUE 1583s [00:53:03.401] Environment: R_GlobalEnv 1583s [00:53:03.401] Capture standard output: TRUE 1583s [00:53:03.401] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1583s [00:53:03.401] Globals: 5 objects totaling 1.44 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1583s [00:53:03.401] Packages: 1583s [00:53:03.401] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1583s [00:53:03.401] Resolved: TRUE 1583s [00:53:03.401] Value: 896 bytes of class ‘list’ 1583s [00:53:03.401] Early signaling: FALSE 1583s [00:53:03.401] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1583s [00:53:03.401] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1583s [00:53:03.403] Chunk #1 of 1 ... DONE 1583s [00:53:03.403] Launching 1 futures (chunks) ... DONE 1583s [00:53:03.403] Resolving 1 futures (chunks) ... 1583s [00:53:03.403] resolve() on list ... 1583s [00:53:03.403] recursive: 0 1583s [00:53:03.404] length: 1 1583s [00:53:03.404] 1583s [00:53:03.404] resolved() for ‘SequentialFuture’ ... 1583s [00:53:03.404] - state: ‘finished’ 1583s [00:53:03.404] - run: TRUE 1583s [00:53:03.404] - result: ‘FutureResult’ 1583s [00:53:03.405] resolved() for ‘SequentialFuture’ ... done 1583s [00:53:03.405] Future #1 1583s [00:53:03.405] signalConditionsASAP(SequentialFuture, pos=1) ... 1583s [00:53:03.405] - nx: 1 1583s [00:53:03.405] - relay: TRUE 1583s [00:53:03.405] - stdout: TRUE 1583s [00:53:03.406] - signal: TRUE 1583s [00:53:03.406] - resignal: FALSE 1583s [00:53:03.406] - force: TRUE 1583s [00:53:03.406] - relayed: [n=1] FALSE 1583s [00:53:03.406] - queued futures: [n=1] FALSE 1583s [00:53:03.406] - until=1 1583s [00:53:03.406] - relaying element #1 1583s [00:53:03.407] - relayed: [n=1] TRUE 1583s [00:53:03.407] - queued futures: [n=1] TRUE 1583s [00:53:03.407] signalConditionsASAP(SequentialFuture, pos=1) ... done 1583s [00:53:03.407] length: 0 (resolved future 1) 1583s [00:53:03.407] Relaying remaining futures 1583s [00:53:03.408] signalConditionsASAP(NULL, pos=0) ... 1583s [00:53:03.408] - nx: 1 1583s [00:53:03.408] - relay: TRUE 1583s [00:53:03.408] - stdout: TRUE 1583s [00:53:03.408] - signal: TRUE 1583s [00:53:03.408] - resignal: FALSE 1583s [00:53:03.408] - force: TRUE 1583s [00:53:03.408] - relayed: [n=1] TRUE 1583s [00:53:03.409] - queued futures: [n=1] TRUE 1583s - flush all 1583s [00:53:03.409] - relayed: [n=1] TRUE 1583s [00:53:03.409] - queued futures: [n=1] TRUE 1583s [00:53:03.409] signalConditionsASAP(NULL, pos=0) ... done 1583s [00:53:03.409] resolve() on list ... DONE 1583s [00:53:03.410] - Number of value chunks collected: 1 1583s [00:53:03.410] Resolving 1 futures (chunks) ... DONE 1583s [00:53:03.410] Reducing values from 1 chunks ... 1583s [00:53:03.411] - Number of values collected after concatenation: 4 1583s [00:53:03.411] - Number of values expected: 4 1583s [00:53:03.411] Reducing values from 1 chunks ... DONE 1583s [00:53:03.411] future_lapply() ... DONE 1583s List of 2 1583s $ y0:List of 4 1583s ..$ A: num [1, 1] 50 1583s ..$ B: num [1, 1] [00:53:03.428] future_lapply() ... 1583s 60 1583s ..$ C: num [1, 1] 70 1583s ..$ D: num [1, 1] 80 1583s $ y1:List of 4 1583s ..$ A: num [1, 1] 50 1583s ..$ B: num [1, 1] 60 1583s ..$ C: num [1, 1] 70 1583s ..$ D: num [1, 1] 80 1583s List of 2 1583s $ y0:List of 4 1583s ..$ A: num [1, 1] 50 1583s ..$ B: num [1, 1] 60 1583s ..$ C: num [1, 1] 70 1583s ..$ D: num [1, 1] 80 1583s $ y2:List of 4 1583s ..$ A: num [1, 1] 50 1583s ..$ B: num [1, 1] 60 1583s ..$ C: num [1, 1] 70 1583s ..$ D: num [1, 1] 80 1583s [00:53:03.432] Number of chunks: 1 1583s [00:53:03.432] getGlobalsAndPackagesXApply() ... 1583s [00:53:03.433] - future.globals: TRUE 1583s [00:53:03.433] getGlobalsAndPackages() ... 1583s [00:53:03.433] Searching for globals... 1583s [00:53:03.435] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1583s [00:53:03.435] Searching for globals ... DONE 1583s [00:53:03.435] Resolving globals: FALSE 1583s [00:53:03.436] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1583s [00:53:03.436] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1583s [00:53:03.436] - globals: [1] ‘FUN’ 1583s [00:53:03.436] 1583s [00:53:03.437] getGlobalsAndPackages() ... DONE 1583s [00:53:03.437] - globals found/used: [n=1] ‘FUN’ 1583s [00:53:03.437] - needed namespaces: [n=0] 1583s [00:53:03.437] Finding globals ... DONE 1583s [00:53:03.437] - use_args: TRUE 1583s [00:53:03.437] - Getting '...' globals ... 1583s [00:53:03.438] resolve() on list ... 1583s [00:53:03.438] recursive: 0 1583s [00:53:03.438] length: 1 1583s [00:53:03.438] elements: ‘...’ 1583s [00:53:03.439] length: 0 (resolved future 1) 1583s [00:53:03.439] resolve() on list ... DONE 1583s [00:53:03.439] - '...' content: [n=0] 1583s [00:53:03.439] List of 1 1583s [00:53:03.439] $ ...: list() 1583s [00:53:03.439] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1583s [00:53:03.439] - attr(*, "where")=List of 1 1583s [00:53:03.439] ..$ ...: 1583s [00:53:03.439] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1583s [00:53:03.439] - attr(*, "resolved")= logi TRUE 1583s [00:53:03.439] - attr(*, "total_size")= num NA 1583s [00:53:03.443] - Getting '...' globals ... DONE 1583s [00:53:03.443] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1583s [00:53:03.443] List of 2 1583s [00:53:03.443] $ ...future.FUN:function (x, y = 2 * 1:5) 1583s [00:53:03.443] $ ... : list() 1583s [00:53:03.443] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1583s [00:53:03.443] - attr(*, "where")=List of 2 1583s [00:53:03.443] ..$ ...future.FUN: 1583s [00:53:03.443] ..$ ... : 1583s [00:53:03.443] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1583s [00:53:03.443] - attr(*, "resolved")= logi FALSE 1583s [00:53:03.443] - attr(*, "total_size")= num 4728 1583s [00:53:03.446] Packages to be attached in all futures: [n=0] 1583s [00:53:03.447] getGlobalsAndPackagesXApply() ... DONE 1583s [00:53:03.447] Number of futures (= number of chunks): 1 1583s [00:53:03.447] Launching 1 futures (chunks) ... 1583s [00:53:03.447] Chunk #1 of 1 ... 1583s [00:53:03.447] - Finding globals in 'X' for chunk #1 ... 1583s [00:53:03.447] getGlobalsAndPackages() ... 1583s [00:53:03.448] Searching for globals... 1583s [00:53:03.448] 1583s [00:53:03.448] Searching for globals ... DONE 1583s [00:53:03.448] - globals: [0] 1583s [00:53:03.448] getGlobalsAndPackages() ... DONE 1583s [00:53:03.449] + additional globals found: [n=0] 1583s [00:53:03.449] + additional namespaces needed: [n=0] 1583s [00:53:03.449] - Finding globals in 'X' for chunk #1 ... DONE 1583s [00:53:03.449] - seeds: 1583s [00:53:03.449] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1583s [00:53:03.449] getGlobalsAndPackages() ... 1583s [00:53:03.450] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1583s [00:53:03.450] Resolving globals: FALSE 1583s [00:53:03.450] Tweak future expression to call with '...' arguments ... 1583s [00:53:03.450] { 1583s [00:53:03.450] do.call(function(...) { 1583s [00:53:03.450] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1583s [00:53:03.450] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1583s [00:53:03.450] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1583s [00:53:03.450] on.exit(options(oopts), add = TRUE) 1583s [00:53:03.450] } 1583s [00:53:03.450] { 1583s [00:53:03.450] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1583s [00:53:03.450] ...future.X_jj <- ...future.elements_ii[[jj]] 1583s [00:53:03.450] ...future.FUN(...future.X_jj, ...) 1583s [00:53:03.450] }) 1583s [00:53:03.450] } 1583s [00:53:03.450] }, args = future.call.arguments) 1583s [00:53:03.450] } 1583s [00:53:03.451] Tweak future expression to call with '...' arguments ... DONE 1583s [00:53:03.451] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1583s [00:53:03.452] 1583s [00:53:03.452] getGlobalsAndPackages() ... DONE 1583s [00:53:03.452] run() for ‘Future’ ... 1583s [00:53:03.452] - state: ‘created’ 1583s [00:53:03.453] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1583s [00:53:03.456] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1583s [00:53:03.456] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1583s [00:53:03.456] - Field: ‘label’ 1583s [00:53:03.456] - Field: ‘local’ 1583s [00:53:03.456] - Field: ‘owner’ 1583s [00:53:03.457] - Field: ‘envir’ 1583s [00:53:03.457] - Field: ‘packages’ 1583s [00:53:03.457] - Field: ‘gc’ 1583s [00:53:03.457] - Field: ‘conditions’ 1583s [00:53:03.457] - Field: ‘expr’ 1583s [00:53:03.457] - Field: ‘uuid’ 1583s [00:53:03.458] - Field: ‘seed’ 1583s [00:53:03.458] - Field: ‘version’ 1583s [00:53:03.458] - Field: ‘result’ 1583s [00:53:03.458] - Field: ‘asynchronous’ 1583s [00:53:03.458] - Field: ‘calls’ 1583s [00:53:03.458] - Field: ‘globals’ 1583s [00:53:03.458] - Field: ‘stdout’ 1583s [00:53:03.458] - Field: ‘earlySignal’ 1583s [00:53:03.458] - Field: ‘lazy’ 1583s [00:53:03.459] - Field: ‘state’ 1583s [00:53:03.459] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1583s [00:53:03.459] - Launch lazy future ... 1583s [00:53:03.459] Packages needed by the future expression (n = 0): 1583s [00:53:03.459] Packages needed by future strategies (n = 0): 1583s [00:53:03.460] { 1583s [00:53:03.460] { 1583s [00:53:03.460] { 1583s [00:53:03.460] ...future.startTime <- base::Sys.time() 1583s [00:53:03.460] { 1583s [00:53:03.460] { 1583s [00:53:03.460] { 1583s [00:53:03.460] base::local({ 1583s [00:53:03.460] has_future <- base::requireNamespace("future", 1583s [00:53:03.460] quietly = TRUE) 1583s [00:53:03.460] if (has_future) { 1583s [00:53:03.460] ns <- base::getNamespace("future") 1583s [00:53:03.460] version <- ns[[".package"]][["version"]] 1583s [00:53:03.460] if (is.null(version)) 1583s [00:53:03.460] version <- utils::packageVersion("future") 1583s [00:53:03.460] } 1583s [00:53:03.460] else { 1583s [00:53:03.460] version <- NULL 1583s [00:53:03.460] } 1583s [00:53:03.460] if (!has_future || version < "1.8.0") { 1583s [00:53:03.460] info <- base::c(r_version = base::gsub("R version ", 1583s [00:53:03.460] "", base::R.version$version.string), 1583s [00:53:03.460] platform = base::sprintf("%s (%s-bit)", 1583s [00:53:03.460] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1583s [00:53:03.460] os = base::paste(base::Sys.info()[base::c("sysname", 1583s [00:53:03.460] "release", "version")], collapse = " "), 1583s [00:53:03.460] hostname = base::Sys.info()[["nodename"]]) 1583s [00:53:03.460] info <- base::sprintf("%s: %s", base::names(info), 1583s [00:53:03.460] info) 1583s [00:53:03.460] info <- base::paste(info, collapse = "; ") 1583s [00:53:03.460] if (!has_future) { 1583s [00:53:03.460] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1583s [00:53:03.460] info) 1583s [00:53:03.460] } 1583s [00:53:03.460] else { 1583s [00:53:03.460] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1583s [00:53:03.460] info, version) 1583s [00:53:03.460] } 1583s [00:53:03.460] base::stop(msg) 1583s [00:53:03.460] } 1583s [00:53:03.460] }) 1583s [00:53:03.460] } 1583s [00:53:03.460] options(future.plan = NULL) 1583s [00:53:03.460] Sys.unsetenv("R_FUTURE_PLAN") 1583s [00:53:03.460] future::plan("default", .cleanup = FALSE, .init = FALSE) 1583s [00:53:03.460] } 1583s [00:53:03.460] ...future.workdir <- getwd() 1583s [00:53:03.460] } 1583s [00:53:03.460] ...future.oldOptions <- base::as.list(base::.Options) 1583s [00:53:03.460] ...future.oldEnvVars <- base::Sys.getenv() 1583s [00:53:03.460] } 1583s [00:53:03.460] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1583s [00:53:03.460] future.globals.maxSize = NULL, future.globals.method = NULL, 1583s [00:53:03.460] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1583s [00:53:03.460] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1583s [00:53:03.460] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1583s [00:53:03.460] future.stdout.windows.reencode = NULL, width = 80L) 1583s [00:53:03.460] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1583s [00:53:03.460] base::names(...future.oldOptions)) 1583s [00:53:03.460] } 1583s [00:53:03.460] if (FALSE) { 1583s [00:53:03.460] } 1583s [00:53:03.460] else { 1583s [00:53:03.460] if (TRUE) { 1583s [00:53:03.460] ...future.stdout <- base::rawConnection(base::raw(0L), 1583s [00:53:03.460] open = "w") 1583s [00:53:03.460] } 1583s [00:53:03.460] else { 1583s [00:53:03.460] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1583s [00:53:03.460] windows = "NUL", "/dev/null"), open = "w") 1583s [00:53:03.460] } 1583s [00:53:03.460] base::sink(...future.stdout, type = "output", split = FALSE) 1583s [00:53:03.460] base::on.exit(if (!base::is.null(...future.stdout)) { 1583s [00:53:03.460] base::sink(type = "output", split = FALSE) 1583s [00:53:03.460] base::close(...future.stdout) 1583s [00:53:03.460] }, add = TRUE) 1583s [00:53:03.460] } 1583s [00:53:03.460] ...future.frame <- base::sys.nframe() 1583s [00:53:03.460] ...future.conditions <- base::list() 1583s [00:53:03.460] ...future.rng <- base::globalenv()$.Random.seed 1583s [00:53:03.460] if (FALSE) { 1583s [00:53:03.460] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1583s [00:53:03.460] "...future.value", "...future.globalenv.names", ".Random.seed") 1583s [00:53:03.460] } 1583s [00:53:03.460] ...future.result <- base::tryCatch({ 1583s [00:53:03.460] base::withCallingHandlers({ 1583s [00:53:03.460] ...future.value <- base::withVisible(base::local({ 1583s [00:53:03.460] do.call(function(...) { 1583s [00:53:03.460] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1583s [00:53:03.460] if (!identical(...future.globals.maxSize.org, 1583s [00:53:03.460] ...future.globals.maxSize)) { 1583s [00:53:03.460] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1583s [00:53:03.460] on.exit(options(oopts), add = TRUE) 1583s [00:53:03.460] } 1583s [00:53:03.460] { 1583s [00:53:03.460] lapply(seq_along(...future.elements_ii), 1583s [00:53:03.460] FUN = function(jj) { 1583s [00:53:03.460] ...future.X_jj <- ...future.elements_ii[[jj]] 1583s [00:53:03.460] ...future.FUN(...future.X_jj, ...) 1583s [00:53:03.460] }) 1583s [00:53:03.460] } 1583s [00:53:03.460] }, args = future.call.arguments) 1583s [00:53:03.460] })) 1583s [00:53:03.460] future::FutureResult(value = ...future.value$value, 1583s [00:53:03.460] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1583s [00:53:03.460] ...future.rng), globalenv = if (FALSE) 1583s [00:53:03.460] list(added = base::setdiff(base::names(base::.GlobalEnv), 1583s [00:53:03.460] ...future.globalenv.names)) 1583s [00:53:03.460] else NULL, started = ...future.startTime, version = "1.8") 1583s [00:53:03.460] }, condition = base::local({ 1583s [00:53:03.460] c <- base::c 1583s [00:53:03.460] inherits <- base::inherits 1583s [00:53:03.460] invokeRestart <- base::invokeRestart 1583s [00:53:03.460] length <- base::length 1583s [00:53:03.460] list <- base::list 1583s [00:53:03.460] seq.int <- base::seq.int 1583s [00:53:03.460] signalCondition <- base::signalCondition 1583s [00:53:03.460] sys.calls <- base::sys.calls 1583s [00:53:03.460] `[[` <- base::`[[` 1583s [00:53:03.460] `+` <- base::`+` 1583s [00:53:03.460] `<<-` <- base::`<<-` 1583s [00:53:03.460] sysCalls <- function(calls = sys.calls(), from = 1L) { 1583s [00:53:03.460] calls[seq.int(from = from + 12L, to = length(calls) - 1583s [00:53:03.460] 3L)] 1583s [00:53:03.460] } 1583s [00:53:03.460] function(cond) { 1583s [00:53:03.460] is_error <- inherits(cond, "error") 1583s [00:53:03.460] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1583s [00:53:03.460] NULL) 1583s [00:53:03.460] if (is_error) { 1583s [00:53:03.460] sessionInformation <- function() { 1583s [00:53:03.460] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1583s [00:53:03.460] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1583s [00:53:03.460] search = base::search(), system = base::Sys.info()) 1583s [00:53:03.460] } 1583s [00:53:03.460] ...future.conditions[[length(...future.conditions) + 1583s [00:53:03.460] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1583s [00:53:03.460] cond$call), session = sessionInformation(), 1583s [00:53:03.460] timestamp = base::Sys.time(), signaled = 0L) 1583s [00:53:03.460] signalCondition(cond) 1583s [00:53:03.460] } 1583s [00:53:03.460] else if (!ignore && TRUE && inherits(cond, c("condition", 1583s [00:53:03.460] "immediateCondition"))) { 1583s [00:53:03.460] signal <- TRUE && inherits(cond, "immediateCondition") 1583s [00:53:03.460] ...future.conditions[[length(...future.conditions) + 1583s [00:53:03.460] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1583s [00:53:03.460] if (TRUE && !signal) { 1583s [00:53:03.460] muffleCondition <- function (cond, pattern = "^muffle") 1583s [00:53:03.460] { 1583s [00:53:03.460] inherits <- base::inherits 1583s [00:53:03.460] invokeRestart <- base::invokeRestart 1583s [00:53:03.460] is.null <- base::is.null 1583s [00:53:03.460] muffled <- FALSE 1583s [00:53:03.460] if (inherits(cond, "message")) { 1583s [00:53:03.460] muffled <- grepl(pattern, "muffleMessage") 1583s [00:53:03.460] if (muffled) 1583s [00:53:03.460] invokeRestart("muffleMessage") 1583s [00:53:03.460] } 1583s [00:53:03.460] else if (inherits(cond, "warning")) { 1583s [00:53:03.460] muffled <- grepl(pattern, "muffleWarning") 1583s [00:53:03.460] if (muffled) 1583s [00:53:03.460] invokeRestart("muffleWarning") 1583s [00:53:03.460] } 1583s [00:53:03.460] else if (inherits(cond, "condition")) { 1583s [00:53:03.460] if (!is.null(pattern)) { 1583s [00:53:03.460] computeRestarts <- base::computeRestarts 1583s [00:53:03.460] grepl <- base::grepl 1583s [00:53:03.460] restarts <- computeRestarts(cond) 1583s [00:53:03.460] for (restart in restarts) { 1583s [00:53:03.460] name <- restart$name 1583s [00:53:03.460] if (is.null(name)) 1583s [00:53:03.460] next 1583s [00:53:03.460] if (!grepl(pattern, name)) 1583s [00:53:03.460] next 1583s [00:53:03.460] invokeRestart(restart) 1583s [00:53:03.460] muffled <- TRUE 1583s [00:53:03.460] break 1583s [00:53:03.460] } 1583s [00:53:03.460] } 1583s [00:53:03.460] } 1583s [00:53:03.460] invisible(muffled) 1583s [00:53:03.460] } 1583s [00:53:03.460] muffleCondition(cond, pattern = "^muffle") 1583s [00:53:03.460] } 1583s [00:53:03.460] } 1583s [00:53:03.460] else { 1583s [00:53:03.460] if (TRUE) { 1583s [00:53:03.460] muffleCondition <- function (cond, pattern = "^muffle") 1583s [00:53:03.460] { 1583s [00:53:03.460] inherits <- base::inherits 1583s [00:53:03.460] invokeRestart <- base::invokeRestart 1583s [00:53:03.460] is.null <- base::is.null 1583s [00:53:03.460] muffled <- FALSE 1583s [00:53:03.460] if (inherits(cond, "message")) { 1583s [00:53:03.460] muffled <- grepl(pattern, "muffleMessage") 1583s [00:53:03.460] if (muffled) 1583s [00:53:03.460] invokeRestart("muffleMessage") 1583s [00:53:03.460] } 1583s [00:53:03.460] else if (inherits(cond, "warning")) { 1583s [00:53:03.460] muffled <- grepl(pattern, "muffleWarning") 1583s [00:53:03.460] if (muffled) 1583s [00:53:03.460] invokeRestart("muffleWarning") 1583s [00:53:03.460] } 1583s [00:53:03.460] else if (inherits(cond, "condition")) { 1583s [00:53:03.460] if (!is.null(pattern)) { 1583s [00:53:03.460] computeRestarts <- base::computeRestarts 1583s [00:53:03.460] grepl <- base::grepl 1583s [00:53:03.460] restarts <- computeRestarts(cond) 1583s [00:53:03.460] for (restart in restarts) { 1583s [00:53:03.460] name <- restart$name 1583s [00:53:03.460] if (is.null(name)) 1583s [00:53:03.460] next 1583s [00:53:03.460] if (!grepl(pattern, name)) 1583s [00:53:03.460] next 1583s [00:53:03.460] invokeRestart(restart) 1583s [00:53:03.460] muffled <- TRUE 1583s [00:53:03.460] break 1583s [00:53:03.460] } 1583s [00:53:03.460] } 1583s [00:53:03.460] } 1583s [00:53:03.460] invisible(muffled) 1583s [00:53:03.460] } 1583s [00:53:03.460] muffleCondition(cond, pattern = "^muffle") 1583s [00:53:03.460] } 1583s [00:53:03.460] } 1583s [00:53:03.460] } 1583s [00:53:03.460] })) 1583s [00:53:03.460] }, error = function(ex) { 1583s [00:53:03.460] base::structure(base::list(value = NULL, visible = NULL, 1583s [00:53:03.460] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1583s [00:53:03.460] ...future.rng), started = ...future.startTime, 1583s [00:53:03.460] finished = Sys.time(), session_uuid = NA_character_, 1583s [00:53:03.460] version = "1.8"), class = "FutureResult") 1583s [00:53:03.460] }, finally = { 1583s [00:53:03.460] if (!identical(...future.workdir, getwd())) 1583s [00:53:03.460] setwd(...future.workdir) 1583s [00:53:03.460] { 1583s [00:53:03.460] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1583s [00:53:03.460] ...future.oldOptions$nwarnings <- NULL 1583s [00:53:03.460] } 1583s [00:53:03.460] base::options(...future.oldOptions) 1583s [00:53:03.460] if (.Platform$OS.type == "windows") { 1583s [00:53:03.460] old_names <- names(...future.oldEnvVars) 1583s [00:53:03.460] envs <- base::Sys.getenv() 1583s [00:53:03.460] names <- names(envs) 1583s [00:53:03.460] common <- intersect(names, old_names) 1583s [00:53:03.460] added <- setdiff(names, old_names) 1583s [00:53:03.460] removed <- setdiff(old_names, names) 1583s [00:53:03.460] changed <- common[...future.oldEnvVars[common] != 1583s [00:53:03.460] envs[common]] 1583s [00:53:03.460] NAMES <- toupper(changed) 1583s [00:53:03.460] args <- list() 1583s [00:53:03.460] for (kk in seq_along(NAMES)) { 1583s [00:53:03.460] name <- changed[[kk]] 1583s [00:53:03.460] NAME <- NAMES[[kk]] 1583s [00:53:03.460] if (name != NAME && is.element(NAME, old_names)) 1583s [00:53:03.460] next 1583s [00:53:03.460] args[[name]] <- ...future.oldEnvVars[[name]] 1583s [00:53:03.460] } 1583s [00:53:03.460] NAMES <- toupper(added) 1583s [00:53:03.460] for (kk in seq_along(NAMES)) { 1583s [00:53:03.460] name <- added[[kk]] 1583s [00:53:03.460] NAME <- NAMES[[kk]] 1583s [00:53:03.460] if (name != NAME && is.element(NAME, old_names)) 1583s [00:53:03.460] next 1583s [00:53:03.460] args[[name]] <- "" 1583s [00:53:03.460] } 1583s [00:53:03.460] NAMES <- toupper(removed) 1583s [00:53:03.460] for (kk in seq_along(NAMES)) { 1583s [00:53:03.460] name <- removed[[kk]] 1583s [00:53:03.460] NAME <- NAMES[[kk]] 1583s [00:53:03.460] if (name != NAME && is.element(NAME, old_names)) 1583s [00:53:03.460] next 1583s [00:53:03.460] args[[name]] <- ...future.oldEnvVars[[name]] 1583s [00:53:03.460] } 1583s [00:53:03.460] if (length(args) > 0) 1583s [00:53:03.460] base::do.call(base::Sys.setenv, args = args) 1583s [00:53:03.460] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1583s [00:53:03.460] } 1583s [00:53:03.460] else { 1583s [00:53:03.460] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1583s [00:53:03.460] } 1583s [00:53:03.460] { 1583s [00:53:03.460] if (base::length(...future.futureOptionsAdded) > 1583s [00:53:03.460] 0L) { 1583s [00:53:03.460] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1583s [00:53:03.460] base::names(opts) <- ...future.futureOptionsAdded 1583s [00:53:03.460] base::options(opts) 1583s [00:53:03.460] } 1583s [00:53:03.460] { 1583s [00:53:03.460] { 1583s [00:53:03.460] NULL 1583s [00:53:03.460] RNGkind("Mersenne-Twister") 1583s [00:53:03.460] base::rm(list = ".Random.seed", envir = base::globalenv(), 1583s [00:53:03.460] inherits = FALSE) 1583s [00:53:03.460] } 1583s [00:53:03.460] options(future.plan = NULL) 1583s [00:53:03.460] if (is.na(NA_character_)) 1583s [00:53:03.460] Sys.unsetenv("R_FUTURE_PLAN") 1583s [00:53:03.460] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1583s [00:53:03.460] future::plan(list(function (..., workers = availableCores(), 1583s [00:53:03.460] lazy = FALSE, rscript_libs = .libPaths(), 1583s [00:53:03.460] envir = parent.frame()) 1583s [00:53:03.460] { 1583s [00:53:03.460] if (is.function(workers)) 1583s [00:53:03.460] workers <- workers() 1583s [00:53:03.460] workers <- structure(as.integer(workers), 1583s [00:53:03.460] class = class(workers)) 1583s [00:53:03.460] stop_if_not(length(workers) == 1, is.finite(workers), 1583s [00:53:03.460] workers >= 1) 1583s [00:53:03.460] if (workers == 1L && !inherits(workers, "AsIs")) { 1583s [00:53:03.460] return(sequential(..., lazy = TRUE, envir = envir)) 1583s [00:53:03.460] } 1583s [00:53:03.460] future <- MultisessionFuture(..., workers = workers, 1583s [00:53:03.460] lazy = lazy, rscript_libs = rscript_libs, 1583s [00:53:03.460] envir = envir) 1583s [00:53:03.460] if (!future$lazy) 1583s [00:53:03.460] future <- run(future) 1583s [00:53:03.460] invisible(future) 1583s [00:53:03.460] }), .cleanup = FALSE, .init = FALSE) 1583s [00:53:03.460] } 1583s [00:53:03.460] } 1583s [00:53:03.460] } 1583s [00:53:03.460] }) 1583s [00:53:03.460] if (TRUE) { 1583s [00:53:03.460] base::sink(type = "output", split = FALSE) 1583s [00:53:03.460] if (TRUE) { 1583s [00:53:03.460] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1583s [00:53:03.460] } 1583s [00:53:03.460] else { 1583s [00:53:03.460] ...future.result["stdout"] <- base::list(NULL) 1583s [00:53:03.460] } 1583s [00:53:03.460] base::close(...future.stdout) 1583s [00:53:03.460] ...future.stdout <- NULL 1583s [00:53:03.460] } 1583s [00:53:03.460] ...future.result$conditions <- ...future.conditions 1583s [00:53:03.460] ...future.result$finished <- base::Sys.time() 1583s [00:53:03.460] ...future.result 1583s [00:53:03.460] } 1583s [00:53:03.467] assign_globals() ... 1583s [00:53:03.467] List of 5 1583s [00:53:03.467] $ ...future.FUN :function (x, y = 2 * 1:5) 1583s [00:53:03.467] $ future.call.arguments : list() 1583s [00:53:03.467] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1583s [00:53:03.467] $ ...future.elements_ii :List of 4 1583s [00:53:03.467] ..$ A: num 50 1583s [00:53:03.467] ..$ B: num 60 1583s [00:53:03.467] ..$ C: num 70 1583s [00:53:03.467] ..$ D: num 80 1583s [00:53:03.467] $ ...future.seeds_ii : NULL 1583s [00:53:03.467] $ ...future.globals.maxSize: NULL 1583s [00:53:03.467] - attr(*, "where")=List of 5 1583s [00:53:03.467] ..$ ...future.FUN : 1583s [00:53:03.467] ..$ future.call.arguments : 1583s [00:53:03.467] ..$ ...future.elements_ii : 1583s [00:53:03.467] ..$ ...future.seeds_ii : 1583s [00:53:03.467] ..$ ...future.globals.maxSize: 1583s [00:53:03.467] - attr(*, "resolved")= logi FALSE 1583s [00:53:03.467] - attr(*, "total_size")= num 4728 1583s [00:53:03.467] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1583s [00:53:03.467] - attr(*, "already-done")= logi TRUE 1583s [00:53:03.475] - reassign environment for ‘...future.FUN’ 1583s [00:53:03.475] - copied ‘...future.FUN’ to environment 1583s [00:53:03.475] - copied ‘future.call.arguments’ to environment 1583s [00:53:03.475] - copied ‘...future.elements_ii’ to environment 1583s [00:53:03.475] - copied ‘...future.seeds_ii’ to environment 1583s [00:53:03.475] - copied ‘...future.globals.maxSize’ to environment 1583s [00:53:03.475] assign_globals() ... done 1583s [00:53:03.476] plan(): Setting new future strategy stack: 1583s [00:53:03.476] List of future strategies: 1583s [00:53:03.476] 1. sequential: 1583s [00:53:03.476] - args: function (..., envir = parent.frame()) 1583s [00:53:03.476] - tweaked: FALSE 1583s [00:53:03.476] - call: NULL 1583s [00:53:03.476] plan(): nbrOfWorkers() = 1 1583s [00:53:03.477] plan(): Setting new future strategy stack: 1583s [00:53:03.477] List of future strategies: 1583s [00:53:03.477] 1. multisession: 1583s [00:53:03.477] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1583s [00:53:03.477] - tweaked: FALSE 1583s [00:53:03.477] - call: plan(strategy) 1583s [00:53:03.481] plan(): nbrOfWorkers() = 1 1583s [00:53:03.481] SequentialFuture started (and completed) 1583s [00:53:03.481] - Launch lazy future ... done 1583s [00:53:03.482] run() for ‘SequentialFuture’ ... done 1583s [00:53:03.482] Created future: 1583s [00:53:03.482] SequentialFuture: 1583s [00:53:03.482] Label: ‘future_sapply-1’ 1583s [00:53:03.482] Expression: 1583s [00:53:03.482] { 1583s [00:53:03.482] do.call(function(...) { 1583s [00:53:03.482] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1583s [00:53:03.482] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1583s [00:53:03.482] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1583s [00:53:03.482] on.exit(options(oopts), add = TRUE) 1583s [00:53:03.482] } 1583s [00:53:03.482] { 1583s [00:53:03.482] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1583s [00:53:03.482] ...future.X_jj <- ...future.elements_ii[[jj]] 1583s [00:53:03.482] ...future.FUN(...future.X_jj, ...) 1583s [00:53:03.482] }) 1583s [00:53:03.482] } 1583s [00:53:03.482] }, args = future.call.arguments) 1583s [00:53:03.482] } 1583s [00:53:03.482] Lazy evaluation: FALSE 1583s [00:53:03.482] Asynchronous evaluation: FALSE 1583s [00:53:03.482] Local evaluation: TRUE 1583s [00:53:03.482] Environment: R_GlobalEnv 1583s [00:53:03.482] Capture standard output: TRUE 1583s [00:53:03.482] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1583s [00:53:03.482] Globals: 5 objects totaling 4.84 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1583s [00:53:03.482] Packages: 1583s [00:53:03.482] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1583s [00:53:03.482] Resolved: TRUE 1583s [00:53:03.482] Value: 1.34 KiB of class ‘list’ 1583s [00:53:03.482] Early signaling: FALSE 1583s [00:53:03.482] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1583s [00:53:03.482] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1583s [00:53:03.484] Chunk #1 of 1 ... DONE 1583s [00:53:03.484] Launching 1 futures (chunks) ... DONE 1583s [00:53:03.484] Resolving 1 futures (chunks) ... 1583s [00:53:03.484] resolve() on list ... 1583s [00:53:03.484] recursive: 0 1583s [00:53:03.484] length: 1 1583s [00:53:03.484] 1583s [00:53:03.485] resolved() for ‘SequentialFuture’ ... 1583s [00:53:03.485] - state: ‘finished’ 1583s [00:53:03.485] - run: TRUE 1583s [00:53:03.485] - result: ‘FutureResult’ 1583s [00:53:03.485] resolved() for ‘SequentialFuture’ ... done 1583s [00:53:03.485] Future #1 1583s [00:53:03.486] signalConditionsASAP(SequentialFuture, pos=1) ... 1583s [00:53:03.486] - nx: 1 1583s [00:53:03.486] - relay: TRUE 1583s [00:53:03.486] - stdout: TRUE 1583s [00:53:03.486] - signal: TRUE 1583s [00:53:03.486] - resignal: FALSE 1583s [00:53:03.486] - force: TRUE 1583s [00:53:03.487] - relayed: [n=1] FALSE 1583s [00:53:03.487] - queued futures: [n=1] FALSE 1583s [00:53:03.487] - until=1 1583s [00:53:03.487] - relaying element #1 1583s [00:53:03.487] - relayed: [n=1] TRUE 1583s [00:53:03.487] - queued futures: [n=1] TRUE 1583s [00:53:03.488] signalConditionsASAP(SequentialFuture, pos=1) ... done 1583s [00:53:03.488] length: 0 (resolved future 1) 1583s [00:53:03.488] Relaying remaining futures 1583s [00:53:03.488] signalConditionsASAP(NULL, pos=0) ... 1583s [00:53:03.488] - nx: 1 1583s [00:53:03.488] - relay: TRUE 1583s [00:53:03.489] - stdout: TRUE 1583s [00:53:03.489] - signal: TRUE 1583s [00:53:03.489] - resignal: FALSE 1583s [00:53:03.489] - force: TRUE 1583s [00:53:03.489] - relayed: [n=1] TRUE 1583s [00:53:03.489] - queued futures: [n=1] TRUE 1583s - flush all 1583s [00:53:03.490] - relayed: [n=1] TRUE 1583s [00:53:03.490] - queued futures: [n=1] TRUE 1583s [00:53:03.490] signalConditionsASAP(NULL, pos=0) ... done 1583s [00:53:03.490] resolve() on list ... DONE 1583s [00:53:03.491] - Number of value chunks collected: 1 1583s [00:53:03.491] Resolving 1 futures (chunks) ... DONE 1583s [00:53:03.491] Reducing values from 1 chunks ... 1583s [00:53:03.491] - Number of values collected after concatenation: 4 1583s [00:53:03.491] - Number of values expected: 4 1583s [00:53:03.491] Reducing values from 1 chunks ... DONE 1583s [00:53:03.491] future_lapply() ... DONE 1583s List of 2 1583s $ y0:List of 4 1583s ..$ A: num [1:3, 1:5] 100 100 100 200 200 200 300 300 300 400 ... 1583s ..$ B: num [1:3, 1:5] 120 120 120 240 240 240 360 360 360 480 ... 1583s ..$ C: num [1:3, 1:5] 140 140 140 280 280 280 420 420 420 560 ... 1583s ..$ D: num [1:3, 1:5] 160 160 160 320 320 320 480 480 480 640 ... 1583s $ y1:List of 4 1583s ..$ A: num [1:3, 1:5] 100 100 100 200 200 200 300 300 300 400 ... 1583s ..$ B: num [1:3, 1:5] 120 120 120 240 240 240 360 360 360 480 ... 1583s ..$ C: num [1:3, 1:5] 140 140 140 280 280 280 420 420 420 560 ... 1583s ..$ D: num [1:3, 1:5] 160 160 160 320 320 320 480 480 480 640 ... 1583s List of 2 1583s $ y0:List of 4 1583s ..$ A: num [1:3, 1:5] 100 100 100 200 200 200 300 300 300 400 ... 1583s ..$ B: num [1:3, 1:5] 120 120 120 240 240 240 360 360 360 480 ... 1583s ..$ C: num [1:3, 1:5] 140 140 140 280 280 280 420 420 420 560 ... 1583s ..$ D: num [1:3, 1:5] 160 160 160 320 320 320 480 480 480 640 ... 1583s $ y2:List of 4 1583s ..$ A: num [1:3, 1:5] 100 100 100 200 200 200 300 300 300 400 ... 1583s ..$ B: num [1:3, 1:5] 120 120 120 240 240 240 360 360 360 480 ... 1583s ..$ C: num [1:3, 1:5] 140 140 140 280 280 280 420 420 420 560 ... 1583s ..$ D: num [1:3, 1:5] 160 160 160 320 320 320 480 480 480 640 ... 1583s [00:53:03.505] future_lapply() ... 1583s [00:53:03.509] Number of chunks: 1 1583s [00:53:03.509] getGlobalsAndPackagesXApply() ... 1583s [00:53:03.509] - future.globals: TRUE 1583s [00:53:03.509] getGlobalsAndPackages() ... 1583s [00:53:03.509] Searching for globals... 1583s [00:53:03.511] - globals found: [1] ‘FUN’ 1583s [00:53:03.511] Searching for globals ... DONE 1583s [00:53:03.511] Resolving globals: FALSE 1583s [00:53:03.511] The total size of the 1 globals is 848 bytes (848 bytes) 1583s [00:53:03.512] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1583s [00:53:03.512] - globals: [1] ‘FUN’ 1583s [00:53:03.512] 1583s [00:53:03.513] getGlobalsAndPackages() ... DONE 1583s [00:53:03.513] - globals found/used: [n=1] ‘FUN’ 1583s [00:53:03.513] - needed namespaces: [n=0] 1583s [00:53:03.513] Finding globals ... DONE 1583s [00:53:03.513] - use_args: TRUE 1583s [00:53:03.513] - Getting '...' globals ... 1583s [00:53:03.514] resolve() on list ... 1583s [00:53:03.514] recursive: 0 1583s [00:53:03.514] length: 1 1583s [00:53:03.514] elements: ‘...’ 1583s [00:53:03.514] length: 0 (resolved future 1) 1583s [00:53:03.515] resolve() on list ... DONE 1583s [00:53:03.515] - '...' content: [n=0] 1583s [00:53:03.515] List of 1 1583s [00:53:03.515] $ ...: list() 1583s [00:53:03.515] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1583s [00:53:03.515] - attr(*, "where")=List of 1 1583s [00:53:03.515] ..$ ...: 1583s [00:53:03.515] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1583s [00:53:03.515] - attr(*, "resolved")= logi TRUE 1583s [00:53:03.515] - attr(*, "total_size")= num NA 1583s [00:53:03.522] - Getting '...' globals ... DONE 1583s [00:53:03.523] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1583s [00:53:03.523] List of 2 1583s [00:53:03.523] $ ...future.FUN:function (x) 1583s [00:53:03.523] $ ... : list() 1583s [00:53:03.523] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1583s [00:53:03.523] - attr(*, "where")=List of 2 1583s [00:53:03.523] ..$ ...future.FUN: 1583s [00:53:03.523] ..$ ... : 1583s [00:53:03.523] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1583s [00:53:03.523] - attr(*, "resolved")= logi FALSE 1583s [00:53:03.523] - attr(*, "total_size")= num 848 1583s [00:53:03.526] Packages to be attached in all futures: [n=0] 1583s [00:53:03.526] getGlobalsAndPackagesXApply() ... DONE 1583s [00:53:03.527] Number of futures (= number of chunks): 1 1583s [00:53:03.527] Launching 1 futures (chunks) ... 1583s [00:53:03.527] Chunk #1 of 1 ... 1583s [00:53:03.527] - Finding globals in 'X' for chunk #1 ... 1583s [00:53:03.527] getGlobalsAndPackages() ... 1583s [00:53:03.527] Searching for globals... 1583s [00:53:03.527] 1583s [00:53:03.528] Searching for globals ... DONE 1583s [00:53:03.528] - globals: [0] 1583s [00:53:03.528] getGlobalsAndPackages() ... DONE 1583s [00:53:03.528] + additional globals found: [n=0] 1583s [00:53:03.528] + additional namespaces needed: [n=0] 1583s [00:53:03.528] - Finding globals in 'X' for chunk #1 ... DONE 1583s [00:53:03.528] - seeds: 1583s [00:53:03.528] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1583s [00:53:03.529] getGlobalsAndPackages() ... 1583s [00:53:03.529] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1583s [00:53:03.529] Resolving globals: FALSE 1583s [00:53:03.529] Tweak future expression to call with '...' arguments ... 1583s [00:53:03.529] { 1583s [00:53:03.529] do.call(function(...) { 1583s [00:53:03.529] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1583s [00:53:03.529] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1583s [00:53:03.529] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1583s [00:53:03.529] on.exit(options(oopts), add = TRUE) 1583s [00:53:03.529] } 1583s [00:53:03.529] { 1583s [00:53:03.529] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1583s [00:53:03.529] ...future.X_jj <- ...future.elements_ii[[jj]] 1583s [00:53:03.529] ...future.FUN(...future.X_jj, ...) 1583s [00:53:03.529] }) 1583s [00:53:03.529] } 1583s [00:53:03.529] }, args = future.call.arguments) 1583s [00:53:03.529] } 1583s [00:53:03.529] Tweak future expression to call with '...' arguments ... DONE 1583s [00:53:03.530] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1583s [00:53:03.530] 1583s [00:53:03.530] getGlobalsAndPackages() ... DONE 1583s [00:53:03.531] run() for ‘Future’ ... 1583s [00:53:03.531] - state: ‘created’ 1583s [00:53:03.531] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1583s [00:53:03.534] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1583s [00:53:03.535] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1583s [00:53:03.535] - Field: ‘label’ 1583s [00:53:03.535] - Field: ‘local’ 1583s [00:53:03.535] - Field: ‘owner’ 1583s [00:53:03.535] - Field: ‘envir’ 1583s [00:53:03.535] - Field: ‘packages’ 1583s [00:53:03.535] - Field: ‘gc’ 1583s [00:53:03.536] - Field: ‘conditions’ 1583s [00:53:03.536] - Field: ‘expr’ 1583s [00:53:03.536] - Field: ‘uuid’ 1583s [00:53:03.536] - Field: ‘seed’ 1583s [00:53:03.536] - Field: ‘version’ 1583s [00:53:03.536] - Field: ‘result’ 1583s [00:53:03.537] - Field: ‘asynchronous’ 1583s [00:53:03.537] - Field: ‘calls’ 1583s [00:53:03.537] - Field: ‘globals’ 1583s [00:53:03.537] - Field: ‘stdout’ 1583s [00:53:03.537] - Field: ‘earlySignal’ 1583s [00:53:03.537] - Field: ‘lazy’ 1583s [00:53:03.538] - Field: ‘state’ 1583s [00:53:03.538] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1583s [00:53:03.538] - Launch lazy future ... 1583s [00:53:03.538] Packages needed by the future expression (n = 0): 1583s [00:53:03.538] Packages needed by future strategies (n = 0): 1583s [00:53:03.539] { 1583s [00:53:03.539] { 1583s [00:53:03.539] { 1583s [00:53:03.539] ...future.startTime <- base::Sys.time() 1583s [00:53:03.539] { 1583s [00:53:03.539] { 1583s [00:53:03.539] { 1583s [00:53:03.539] base::local({ 1583s [00:53:03.539] has_future <- base::requireNamespace("future", 1583s [00:53:03.539] quietly = TRUE) 1583s [00:53:03.539] if (has_future) { 1583s [00:53:03.539] ns <- base::getNamespace("future") 1583s [00:53:03.539] version <- ns[[".package"]][["version"]] 1583s [00:53:03.539] if (is.null(version)) 1583s [00:53:03.539] version <- utils::packageVersion("future") 1583s [00:53:03.539] } 1583s [00:53:03.539] else { 1583s [00:53:03.539] version <- NULL 1583s [00:53:03.539] } 1583s [00:53:03.539] if (!has_future || version < "1.8.0") { 1583s [00:53:03.539] info <- base::c(r_version = base::gsub("R version ", 1583s [00:53:03.539] "", base::R.version$version.string), 1583s [00:53:03.539] platform = base::sprintf("%s (%s-bit)", 1583s [00:53:03.539] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1583s [00:53:03.539] os = base::paste(base::Sys.info()[base::c("sysname", 1583s [00:53:03.539] "release", "version")], collapse = " "), 1583s [00:53:03.539] hostname = base::Sys.info()[["nodename"]]) 1583s [00:53:03.539] info <- base::sprintf("%s: %s", base::names(info), 1583s [00:53:03.539] info) 1583s [00:53:03.539] info <- base::paste(info, collapse = "; ") 1583s [00:53:03.539] if (!has_future) { 1583s [00:53:03.539] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1583s [00:53:03.539] info) 1583s [00:53:03.539] } 1583s [00:53:03.539] else { 1583s [00:53:03.539] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1583s [00:53:03.539] info, version) 1583s [00:53:03.539] } 1583s [00:53:03.539] base::stop(msg) 1583s [00:53:03.539] } 1583s [00:53:03.539] }) 1583s [00:53:03.539] } 1583s [00:53:03.539] options(future.plan = NULL) 1583s [00:53:03.539] Sys.unsetenv("R_FUTURE_PLAN") 1583s [00:53:03.539] future::plan("default", .cleanup = FALSE, .init = FALSE) 1583s [00:53:03.539] } 1583s [00:53:03.539] ...future.workdir <- getwd() 1583s [00:53:03.539] } 1583s [00:53:03.539] ...future.oldOptions <- base::as.list(base::.Options) 1583s [00:53:03.539] ...future.oldEnvVars <- base::Sys.getenv() 1583s [00:53:03.539] } 1583s [00:53:03.539] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1583s [00:53:03.539] future.globals.maxSize = NULL, future.globals.method = NULL, 1583s [00:53:03.539] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1583s [00:53:03.539] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1583s [00:53:03.539] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1583s [00:53:03.539] future.stdout.windows.reencode = NULL, width = 80L) 1583s [00:53:03.539] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1583s [00:53:03.539] base::names(...future.oldOptions)) 1583s [00:53:03.539] } 1583s [00:53:03.539] if (FALSE) { 1583s [00:53:03.539] } 1583s [00:53:03.539] else { 1583s [00:53:03.539] if (TRUE) { 1583s [00:53:03.539] ...future.stdout <- base::rawConnection(base::raw(0L), 1583s [00:53:03.539] open = "w") 1583s [00:53:03.539] } 1583s [00:53:03.539] else { 1583s [00:53:03.539] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1583s [00:53:03.539] windows = "NUL", "/dev/null"), open = "w") 1583s [00:53:03.539] } 1583s [00:53:03.539] base::sink(...future.stdout, type = "output", split = FALSE) 1583s [00:53:03.539] base::on.exit(if (!base::is.null(...future.stdout)) { 1583s [00:53:03.539] base::sink(type = "output", split = FALSE) 1583s [00:53:03.539] base::close(...future.stdout) 1583s [00:53:03.539] }, add = TRUE) 1583s [00:53:03.539] } 1583s [00:53:03.539] ...future.frame <- base::sys.nframe() 1583s [00:53:03.539] ...future.conditions <- base::list() 1583s [00:53:03.539] ...future.rng <- base::globalenv()$.Random.seed 1583s [00:53:03.539] if (FALSE) { 1583s [00:53:03.539] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1583s [00:53:03.539] "...future.value", "...future.globalenv.names", ".Random.seed") 1583s [00:53:03.539] } 1583s [00:53:03.539] ...future.result <- base::tryCatch({ 1583s [00:53:03.539] base::withCallingHandlers({ 1583s [00:53:03.539] ...future.value <- base::withVisible(base::local({ 1583s [00:53:03.539] do.call(function(...) { 1583s [00:53:03.539] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1583s [00:53:03.539] if (!identical(...future.globals.maxSize.org, 1583s [00:53:03.539] ...future.globals.maxSize)) { 1583s [00:53:03.539] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1583s [00:53:03.539] on.exit(options(oopts), add = TRUE) 1583s [00:53:03.539] } 1583s [00:53:03.539] { 1583s [00:53:03.539] lapply(seq_along(...future.elements_ii), 1583s [00:53:03.539] FUN = function(jj) { 1583s [00:53:03.539] ...future.X_jj <- ...future.elements_ii[[jj]] 1583s [00:53:03.539] ...future.FUN(...future.X_jj, ...) 1583s [00:53:03.539] }) 1583s [00:53:03.539] } 1583s [00:53:03.539] }, args = future.call.arguments) 1583s [00:53:03.539] })) 1583s [00:53:03.539] future::FutureResult(value = ...future.value$value, 1583s [00:53:03.539] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1583s [00:53:03.539] ...future.rng), globalenv = if (FALSE) 1583s [00:53:03.539] list(added = base::setdiff(base::names(base::.GlobalEnv), 1583s [00:53:03.539] ...future.globalenv.names)) 1583s [00:53:03.539] else NULL, started = ...future.startTime, version = "1.8") 1583s [00:53:03.539] }, condition = base::local({ 1583s [00:53:03.539] c <- base::c 1583s [00:53:03.539] inherits <- base::inherits 1583s [00:53:03.539] invokeRestart <- base::invokeRestart 1583s [00:53:03.539] length <- base::length 1583s [00:53:03.539] list <- base::list 1583s [00:53:03.539] seq.int <- base::seq.int 1583s [00:53:03.539] signalCondition <- base::signalCondition 1583s [00:53:03.539] sys.calls <- base::sys.calls 1583s [00:53:03.539] `[[` <- base::`[[` 1583s [00:53:03.539] `+` <- base::`+` 1583s [00:53:03.539] `<<-` <- base::`<<-` 1583s [00:53:03.539] sysCalls <- function(calls = sys.calls(), from = 1L) { 1583s [00:53:03.539] calls[seq.int(from = from + 12L, to = length(calls) - 1583s [00:53:03.539] 3L)] 1583s [00:53:03.539] } 1583s [00:53:03.539] function(cond) { 1583s [00:53:03.539] is_error <- inherits(cond, "error") 1583s [00:53:03.539] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1583s [00:53:03.539] NULL) 1583s [00:53:03.539] if (is_error) { 1583s [00:53:03.539] sessionInformation <- function() { 1583s [00:53:03.539] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1583s [00:53:03.539] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1583s [00:53:03.539] search = base::search(), system = base::Sys.info()) 1583s [00:53:03.539] } 1583s [00:53:03.539] ...future.conditions[[length(...future.conditions) + 1583s [00:53:03.539] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1583s [00:53:03.539] cond$call), session = sessionInformation(), 1583s [00:53:03.539] timestamp = base::Sys.time(), signaled = 0L) 1583s [00:53:03.539] signalCondition(cond) 1583s [00:53:03.539] } 1583s [00:53:03.539] else if (!ignore && TRUE && inherits(cond, c("condition", 1583s [00:53:03.539] "immediateCondition"))) { 1583s [00:53:03.539] signal <- TRUE && inherits(cond, "immediateCondition") 1583s [00:53:03.539] ...future.conditions[[length(...future.conditions) + 1583s [00:53:03.539] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1583s [00:53:03.539] if (TRUE && !signal) { 1583s [00:53:03.539] muffleCondition <- function (cond, pattern = "^muffle") 1583s [00:53:03.539] { 1583s [00:53:03.539] inherits <- base::inherits 1583s [00:53:03.539] invokeRestart <- base::invokeRestart 1583s [00:53:03.539] is.null <- base::is.null 1583s [00:53:03.539] muffled <- FALSE 1583s [00:53:03.539] if (inherits(cond, "message")) { 1583s [00:53:03.539] muffled <- grepl(pattern, "muffleMessage") 1583s [00:53:03.539] if (muffled) 1583s [00:53:03.539] invokeRestart("muffleMessage") 1583s [00:53:03.539] } 1583s [00:53:03.539] else if (inherits(cond, "warning")) { 1583s [00:53:03.539] muffled <- grepl(pattern, "muffleWarning") 1583s [00:53:03.539] if (muffled) 1583s [00:53:03.539] invokeRestart("muffleWarning") 1583s [00:53:03.539] } 1583s [00:53:03.539] else if (inherits(cond, "condition")) { 1583s [00:53:03.539] if (!is.null(pattern)) { 1583s [00:53:03.539] computeRestarts <- base::computeRestarts 1583s [00:53:03.539] grepl <- base::grepl 1583s [00:53:03.539] restarts <- computeRestarts(cond) 1583s [00:53:03.539] for (restart in restarts) { 1583s [00:53:03.539] name <- restart$name 1583s [00:53:03.539] if (is.null(name)) 1583s [00:53:03.539] next 1583s [00:53:03.539] if (!grepl(pattern, name)) 1583s [00:53:03.539] next 1583s [00:53:03.539] invokeRestart(restart) 1583s [00:53:03.539] muffled <- TRUE 1583s [00:53:03.539] break 1583s [00:53:03.539] } 1583s [00:53:03.539] } 1583s [00:53:03.539] } 1583s [00:53:03.539] invisible(muffled) 1583s [00:53:03.539] } 1583s [00:53:03.539] muffleCondition(cond, pattern = "^muffle") 1583s [00:53:03.539] } 1583s [00:53:03.539] } 1583s [00:53:03.539] else { 1583s [00:53:03.539] if (TRUE) { 1583s [00:53:03.539] muffleCondition <- function (cond, pattern = "^muffle") 1583s [00:53:03.539] { 1583s [00:53:03.539] inherits <- base::inherits 1583s [00:53:03.539] invokeRestart <- base::invokeRestart 1583s [00:53:03.539] is.null <- base::is.null 1583s [00:53:03.539] muffled <- FALSE 1583s [00:53:03.539] if (inherits(cond, "message")) { 1583s [00:53:03.539] muffled <- grepl(pattern, "muffleMessage") 1583s [00:53:03.539] if (muffled) 1583s [00:53:03.539] invokeRestart("muffleMessage") 1583s [00:53:03.539] } 1583s [00:53:03.539] else if (inherits(cond, "warning")) { 1583s [00:53:03.539] muffled <- grepl(pattern, "muffleWarning") 1583s [00:53:03.539] if (muffled) 1583s [00:53:03.539] invokeRestart("muffleWarning") 1583s [00:53:03.539] } 1583s [00:53:03.539] else if (inherits(cond, "condition")) { 1583s [00:53:03.539] if (!is.null(pattern)) { 1583s [00:53:03.539] computeRestarts <- base::computeRestarts 1583s [00:53:03.539] grepl <- base::grepl 1583s [00:53:03.539] restarts <- computeRestarts(cond) 1583s [00:53:03.539] for (restart in restarts) { 1583s [00:53:03.539] name <- restart$name 1583s [00:53:03.539] if (is.null(name)) 1583s [00:53:03.539] next 1583s [00:53:03.539] if (!grepl(pattern, name)) 1583s [00:53:03.539] next 1583s [00:53:03.539] invokeRestart(restart) 1583s [00:53:03.539] muffled <- TRUE 1583s [00:53:03.539] break 1583s [00:53:03.539] } 1583s [00:53:03.539] } 1583s [00:53:03.539] } 1583s [00:53:03.539] invisible(muffled) 1583s [00:53:03.539] } 1583s [00:53:03.539] muffleCondition(cond, pattern = "^muffle") 1583s [00:53:03.539] } 1583s [00:53:03.539] } 1583s [00:53:03.539] } 1583s [00:53:03.539] })) 1583s [00:53:03.539] }, error = function(ex) { 1583s [00:53:03.539] base::structure(base::list(value = NULL, visible = NULL, 1583s [00:53:03.539] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1583s [00:53:03.539] ...future.rng), started = ...future.startTime, 1583s [00:53:03.539] finished = Sys.time(), session_uuid = NA_character_, 1583s [00:53:03.539] version = "1.8"), class = "FutureResult") 1583s [00:53:03.539] }, finally = { 1583s [00:53:03.539] if (!identical(...future.workdir, getwd())) 1583s [00:53:03.539] setwd(...future.workdir) 1583s [00:53:03.539] { 1583s [00:53:03.539] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1583s [00:53:03.539] ...future.oldOptions$nwarnings <- NULL 1583s [00:53:03.539] } 1583s [00:53:03.539] base::options(...future.oldOptions) 1583s [00:53:03.539] if (.Platform$OS.type == "windows") { 1583s [00:53:03.539] old_names <- names(...future.oldEnvVars) 1583s [00:53:03.539] envs <- base::Sys.getenv() 1583s [00:53:03.539] names <- names(envs) 1583s [00:53:03.539] common <- intersect(names, old_names) 1583s [00:53:03.539] added <- setdiff(names, old_names) 1583s [00:53:03.539] removed <- setdiff(old_names, names) 1583s [00:53:03.539] changed <- common[...future.oldEnvVars[common] != 1583s [00:53:03.539] envs[common]] 1583s [00:53:03.539] NAMES <- toupper(changed) 1583s [00:53:03.539] args <- list() 1583s [00:53:03.539] for (kk in seq_along(NAMES)) { 1583s [00:53:03.539] name <- changed[[kk]] 1583s [00:53:03.539] NAME <- NAMES[[kk]] 1583s [00:53:03.539] if (name != NAME && is.element(NAME, old_names)) 1583s [00:53:03.539] next 1583s [00:53:03.539] args[[name]] <- ...future.oldEnvVars[[name]] 1583s [00:53:03.539] } 1583s [00:53:03.539] NAMES <- toupper(added) 1583s [00:53:03.539] for (kk in seq_along(NAMES)) { 1583s [00:53:03.539] name <- added[[kk]] 1583s [00:53:03.539] NAME <- NAMES[[kk]] 1583s [00:53:03.539] if (name != NAME && is.element(NAME, old_names)) 1583s [00:53:03.539] next 1583s [00:53:03.539] args[[name]] <- "" 1583s [00:53:03.539] } 1583s [00:53:03.539] NAMES <- toupper(removed) 1583s [00:53:03.539] for (kk in seq_along(NAMES)) { 1583s [00:53:03.539] name <- removed[[kk]] 1583s [00:53:03.539] NAME <- NAMES[[kk]] 1583s [00:53:03.539] if (name != NAME && is.element(NAME, old_names)) 1583s [00:53:03.539] next 1583s [00:53:03.539] args[[name]] <- ...future.oldEnvVars[[name]] 1583s [00:53:03.539] } 1583s [00:53:03.539] if (length(args) > 0) 1583s [00:53:03.539] base::do.call(base::Sys.setenv, args = args) 1583s [00:53:03.539] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1583s [00:53:03.539] } 1583s [00:53:03.539] else { 1583s [00:53:03.539] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1583s [00:53:03.539] } 1583s [00:53:03.539] { 1583s [00:53:03.539] if (base::length(...future.futureOptionsAdded) > 1583s [00:53:03.539] 0L) { 1583s [00:53:03.539] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1583s [00:53:03.539] base::names(opts) <- ...future.futureOptionsAdded 1583s [00:53:03.539] base::options(opts) 1583s [00:53:03.539] } 1583s [00:53:03.539] { 1583s [00:53:03.539] { 1583s [00:53:03.539] NULL 1583s [00:53:03.539] RNGkind("Mersenne-Twister") 1583s [00:53:03.539] base::rm(list = ".Random.seed", envir = base::globalenv(), 1583s [00:53:03.539] inherits = FALSE) 1583s [00:53:03.539] } 1583s [00:53:03.539] options(future.plan = NULL) 1583s [00:53:03.539] if (is.na(NA_character_)) 1583s [00:53:03.539] Sys.unsetenv("R_FUTURE_PLAN") 1583s [00:53:03.539] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1583s [00:53:03.539] future::plan(list(function (..., workers = availableCores(), 1583s [00:53:03.539] lazy = FALSE, rscript_libs = .libPaths(), 1583s [00:53:03.539] envir = parent.frame()) 1583s [00:53:03.539] { 1583s [00:53:03.539] if (is.function(workers)) 1583s [00:53:03.539] workers <- workers() 1583s [00:53:03.539] workers <- structure(as.integer(workers), 1583s [00:53:03.539] class = class(workers)) 1583s [00:53:03.539] stop_if_not(length(workers) == 1, is.finite(workers), 1583s [00:53:03.539] workers >= 1) 1583s [00:53:03.539] if (workers == 1L && !inherits(workers, "AsIs")) { 1583s [00:53:03.539] return(sequential(..., lazy = TRUE, envir = envir)) 1583s [00:53:03.539] } 1583s [00:53:03.539] future <- MultisessionFuture(..., workers = workers, 1583s [00:53:03.539] lazy = lazy, rscript_libs = rscript_libs, 1583s [00:53:03.539] envir = envir) 1583s [00:53:03.539] if (!future$lazy) 1583s [00:53:03.539] future <- run(future) 1583s [00:53:03.539] invisible(future) 1583s [00:53:03.539] }), .cleanup = FALSE, .init = FALSE) 1583s [00:53:03.539] } 1583s [00:53:03.539] } 1583s [00:53:03.539] } 1583s [00:53:03.539] }) 1583s [00:53:03.539] if (TRUE) { 1583s [00:53:03.539] base::sink(type = "output", split = FALSE) 1583s [00:53:03.539] if (TRUE) { 1583s [00:53:03.539] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1583s [00:53:03.539] } 1583s [00:53:03.539] else { 1583s [00:53:03.539] ...future.result["stdout"] <- base::list(NULL) 1583s [00:53:03.539] } 1583s [00:53:03.539] base::close(...future.stdout) 1583s [00:53:03.539] ...future.stdout <- NULL 1583s [00:53:03.539] } 1583s [00:53:03.539] ...future.result$conditions <- ...future.conditions 1583s [00:53:03.539] ...future.result$finished <- base::Sys.time() 1583s [00:53:03.539] ...future.result 1583s [00:53:03.539] } 1583s [00:53:03.546] assign_globals() ... 1583s [00:53:03.546] List of 5 1583s [00:53:03.546] $ ...future.FUN :function (x) 1583s [00:53:03.546] $ future.call.arguments : list() 1583s [00:53:03.546] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1583s [00:53:03.546] $ ...future.elements_ii :List of 4 1583s [00:53:03.546] ..$ A: num 50 1583s [00:53:03.546] ..$ B: num 60 1583s [00:53:03.546] ..$ C: num 70 1583s [00:53:03.546] ..$ D: num 80 1583s [00:53:03.546] $ ...future.seeds_ii : NULL 1583s [00:53:03.546] $ ...future.globals.maxSize: NULL 1583s [00:53:03.546] - attr(*, "where")=List of 5 1583s [00:53:03.546] ..$ ...future.FUN : 1583s [00:53:03.546] ..$ future.call.arguments : 1583s [00:53:03.546] ..$ ...future.elements_ii : 1583s [00:53:03.546] ..$ ...future.seeds_ii : 1583s [00:53:03.546] ..$ ...future.globals.maxSize: 1583s [00:53:03.546] - attr(*, "resolved")= logi FALSE 1583s [00:53:03.546] - attr(*, "total_size")= num 848 1583s [00:53:03.546] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1583s [00:53:03.546] - attr(*, "already-done")= logi TRUE 1583s [00:53:03.555] - copied ‘...future.FUN’ to environment 1583s [00:53:03.555] - copied ‘future.call.arguments’ to environment 1583s [00:53:03.555] - copied ‘...future.elements_ii’ to environment 1583s [00:53:03.555] - copied ‘...future.seeds_ii’ to environment 1583s [00:53:03.555] - copied ‘...future.globals.maxSize’ to environment 1583s [00:53:03.555] assign_globals() ... done 1583s [00:53:03.556] plan(): Setting new future strategy stack: 1583s [00:53:03.556] List of future strategies: 1583s [00:53:03.556] 1. sequential: 1583s [00:53:03.556] - args: function (..., envir = parent.frame()) 1583s [00:53:03.556] - tweaked: FALSE 1583s [00:53:03.556] - call: NULL 1583s [00:53:03.556] plan(): nbrOfWorkers() = 1 1583s [00:53:03.557] plan(): Setting new future strategy stack: 1583s [00:53:03.557] List of future strategies: 1583s [00:53:03.557] 1. multisession: 1583s [00:53:03.557] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1583s [00:53:03.557] - tweaked: FALSE 1583s [00:53:03.557] - call: plan(strategy) 1583s [00:53:03.560] plan(): nbrOfWorkers() = 1 1583s [00:53:03.561] SequentialFuture started (and completed) 1583s [00:53:03.561] - Launch lazy future ... done 1583s [00:53:03.561] run() for ‘SequentialFuture’ ... done 1583s [00:53:03.561] Created future: 1583s [00:53:03.561] SequentialFuture: 1583s [00:53:03.561] Label: ‘future_sapply-1’ 1583s [00:53:03.561] Expression: 1583s [00:53:03.561] { 1583s [00:53:03.561] do.call(function(...) { 1583s [00:53:03.561] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1583s [00:53:03.561] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1583s [00:53:03.561] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1583s [00:53:03.561] on.exit(options(oopts), add = TRUE) 1583s [00:53:03.561] } 1583s [00:53:03.561] { 1583s [00:53:03.561] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1583s [00:53:03.561] ...future.X_jj <- ...future.elements_ii[[jj]] 1583s [00:53:03.561] ...future.FUN(...future.X_jj, ...) 1583s [00:53:03.561] }) 1583s [00:53:03.561] } 1583s [00:53:03.561] }, args = future.call.arguments) 1583s [00:53:03.561] } 1583s [00:53:03.561] Lazy evaluation: FALSE 1583s [00:53:03.561] Asynchronous evaluation: FALSE 1583s [00:53:03.561] Local evaluation: TRUE 1583s [00:53:03.561] Environment: R_GlobalEnv 1583s [00:53:03.561] Capture standard output: TRUE 1583s [00:53:03.561] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1583s [00:53:03.561] Globals: 5 objects totaling 1.05 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1583s [00:53:03.561] Packages: 1583s [00:53:03.561] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1583s [00:53:03.561] Resolved: TRUE 1583s [00:53:03.561] Value: 224 bytes of class ‘list’ 1583s [00:53:03.561] Early signaling: FALSE 1583s [00:53:03.561] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1583s [00:53:03.561] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1583s [00:53:03.563] Chunk #1 of 1 ... DONE 1583s [00:53:03.564] Launching 1 futures (chunks) ... DONE 1583s [00:53:03.564] Resolving 1 futures (chunks) ... 1583s [00:53:03.564] resolve() on list ... 1583s [00:53:03.564] recursive: 0 1583s [00:53:03.564] length: 1 1583s [00:53:03.564] 1583s [00:53:03.564] resolved() for ‘SequentialFuture’ ... 1583s [00:53:03.565] - state: ‘finished’ 1583s [00:53:03.565] - run: TRUE 1583s [00:53:03.565] - result: ‘FutureResult’ 1583s [00:53:03.565] resolved() for ‘SequentialFuture’ ... done 1583s [00:53:03.565] Future #1 1583s [00:53:03.565] signalConditionsASAP(SequentialFuture, pos=1) ... 1583s [00:53:03.565] - nx: 1 1583s [00:53:03.566] - relay: TRUE 1583s [00:53:03.566] - stdout: TRUE 1583s [00:53:03.566] - signal: TRUE 1583s [00:53:03.566] - resignal: FALSE 1583s [00:53:03.566] - force: TRUE 1583s [00:53:03.566] - relayed: [n=1] FALSE 1583s [00:53:03.566] - queued futures: [n=1] FALSE 1583s [00:53:03.566] - until=1 1583s [00:53:03.566] - relaying element #1 1583s [00:53:03.567] - relayed: [n=1] TRUE 1583s [00:53:03.567] - queued futures: [n=1] TRUE 1583s [00:53:03.567] signalConditionsASAP(SequentialFuture, pos=1) ... done 1583s [00:53:03.567] length: 0 (resolved future 1) 1583s [00:53:03.567] Relaying remaining futures 1583s [00:53:03.567] signalConditionsASAP(NULL, pos=0) ... 1583s [00:53:03.567] - nx: 1 1583s [00:53:03.567] - relay: TRUE 1583s [00:53:03.568] - stdout: TRUE 1583s [00:53:03.568] - signal: TRUE 1583s [00:53:03.568] - resignal: FALSE 1583s [00:53:03.568] - force: TRUE 1583s [00:53:03.568] - relayed: [n=1] TRUE 1583s [00:53:03.568] - queued futures: [n=1] TRUE 1583s - flush all 1583s [00:53:03.568] - relayed: [n=1] TRUE 1583s [00:53:03.568] - queued futures: [n=1] TRUE 1583s [00:53:03.568] signalConditionsASAP(NULL, pos=0) ... done 1583s [00:53:03.569] resolve() on list ... DONE 1583s [00:53:03.569] - Number of value chunks collected: 1 1583s [00:53:03.569] Resolving 1 futures (chunks) ... DONE 1583s [00:53:03.569] Reducing values from 1 chunks ... 1583s [00:53:03.569] - Number of values collected after concatenation: 4 1583s [00:53:03.569] - Number of values expected: 4 1583s [00:53:03.569] Reducing values from 1 chunks ... DONE 1583s [00:53:03.569] future_lapply() ... DONE 1583s List of 2 1583s $ y0: Named num [1:4] 50 60 70 80 1583s ..- attr(*, "names")= chr [1:4] "A" "B" "C" "D" 1583s $ y1: Named num [1:4] 50 60 70 80 1583s ..- attr(*, "names")= chr [1:4] "A" "B" "C" "D" 1583s [00:53:03.572] future_lapply() ... 1583s [00:53:03.576] Number of chunks: 1 1583s [00:53:03.576] getGlobalsAndPackagesXApply() ... 1583s [00:53:03.576] - future.globals: TRUE 1583s [00:53:03.577] getGlobalsAndPackages() ... 1583s [00:53:03.577] Searching for globals... 1583s [00:53:03.578] - globals found: [2] ‘FUN’, ‘UseMethod’ 1583s [00:53:03.578] Searching for globals ... DONE 1583s [00:53:03.578] Resolving globals: FALSE 1583s [00:53:03.579] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1583s [00:53:03.579] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1583s [00:53:03.579] - globals: [1] ‘FUN’ 1583s [00:53:03.580] 1583s [00:53:03.580] getGlobalsAndPackages() ... DONE 1583s [00:53:03.580] - globals found/used: [n=1] ‘FUN’ 1583s [00:53:03.580] - needed namespaces: [n=0] 1583s [00:53:03.580] Finding globals ... DONE 1583s [00:53:03.580] - use_args: TRUE 1583s [00:53:03.580] - Getting '...' globals ... 1583s [00:53:03.581] resolve() on list ... 1583s [00:53:03.581] recursive: 0 1583s [00:53:03.581] length: 1 1583s [00:53:03.581] elements: ‘...’ 1583s [00:53:03.581] length: 0 (resolved future 1) 1583s [00:53:03.582] resolve() on list ... DONE 1583s [00:53:03.582] - '...' content: [n=0] 1583s [00:53:03.582] List of 1 1583s [00:53:03.582] $ ...: list() 1583s [00:53:03.582] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1583s [00:53:03.582] - attr(*, "where")=List of 1 1583s [00:53:03.582] ..$ ...: 1583s [00:53:03.582] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1583s [00:53:03.582] - attr(*, "resolved")= logi TRUE 1583s [00:53:03.582] - attr(*, "total_size")= num NA 1583s [00:53:03.585] - Getting '...' globals ... DONE 1583s [00:53:03.585] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1583s [00:53:03.585] List of 2 1583s [00:53:03.585] $ ...future.FUN:function (x, ...) 1583s [00:53:03.585] $ ... : list() 1583s [00:53:03.585] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1583s [00:53:03.585] - attr(*, "where")=List of 2 1583s [00:53:03.585] ..$ ...future.FUN: 1583s [00:53:03.585] ..$ ... : 1583s [00:53:03.585] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1583s [00:53:03.585] - attr(*, "resolved")= logi FALSE 1583s [00:53:03.585] - attr(*, "total_size")= num 1248 1583s [00:53:03.589] Packages to be attached in all futures: [n=0] 1583s [00:53:03.589] getGlobalsAndPackagesXApply() ... DONE 1583s [00:53:03.589] Number of futures (= number of chunks): 1 1583s [00:53:03.589] Launching 1 futures (chunks) ... 1583s [00:53:03.589] Chunk #1 of 1 ... 1583s [00:53:03.590] - Finding globals in 'X' for chunk #1 ... 1583s [00:53:03.590] getGlobalsAndPackages() ... 1583s [00:53:03.590] Searching for globals... 1583s [00:53:03.590] 1583s [00:53:03.590] Searching for globals ... DONE 1583s [00:53:03.590] - globals: [0] 1583s [00:53:03.590] getGlobalsAndPackages() ... DONE 1583s [00:53:03.591] + additional globals found: [n=0] 1583s [00:53:03.591] + additional namespaces needed: [n=0] 1583s [00:53:03.591] - Finding globals in 'X' for chunk #1 ... DONE 1583s [00:53:03.591] - seeds: 1583s [00:53:03.591] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1583s [00:53:03.591] getGlobalsAndPackages() ... 1583s [00:53:03.591] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1583s [00:53:03.591] Resolving globals: FALSE 1583s [00:53:03.591] Tweak future expression to call with '...' arguments ... 1583s [00:53:03.592] { 1583s [00:53:03.592] do.call(function(...) { 1583s [00:53:03.592] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1583s [00:53:03.592] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1583s [00:53:03.592] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1583s [00:53:03.592] on.exit(options(oopts), add = TRUE) 1583s [00:53:03.592] } 1583s [00:53:03.592] { 1583s [00:53:03.592] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1583s [00:53:03.592] ...future.X_jj <- ...future.elements_ii[[jj]] 1583s [00:53:03.592] ...future.FUN(...future.X_jj, ...) 1583s [00:53:03.592] }) 1583s [00:53:03.592] } 1583s [00:53:03.592] }, args = future.call.arguments) 1583s [00:53:03.592] } 1583s [00:53:03.592] Tweak future expression to call with '...' arguments ... DONE 1583s [00:53:03.592] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1583s [00:53:03.592] 1583s [00:53:03.593] getGlobalsAndPackages() ... DONE 1583s [00:53:03.593] run() for ‘Future’ ... 1583s [00:53:03.593] - state: ‘created’ 1583s [00:53:03.593] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1583s [00:53:03.596] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1583s [00:53:03.596] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1583s [00:53:03.597] - Field: ‘label’ 1583s [00:53:03.597] - Field: ‘local’ 1583s [00:53:03.597] - Field: ‘owner’ 1583s [00:53:03.597] - Field: ‘envir’ 1583s [00:53:03.597] - Field: ‘packages’ 1583s [00:53:03.597] - Field: ‘gc’ 1583s [00:53:03.597] - Field: ‘conditions’ 1583s [00:53:03.598] - Field: ‘expr’ 1583s [00:53:03.598] - Field: ‘uuid’ 1583s [00:53:03.598] - Field: ‘seed’ 1583s [00:53:03.598] - Field: ‘version’ 1583s [00:53:03.598] - Field: ‘result’ 1583s [00:53:03.598] - Field: ‘asynchronous’ 1583s [00:53:03.599] - Field: ‘calls’ 1583s [00:53:03.599] - Field: ‘globals’ 1583s [00:53:03.599] - Field: ‘stdout’ 1583s [00:53:03.599] - Field: ‘earlySignal’ 1583s [00:53:03.599] - Field: ‘lazy’ 1583s [00:53:03.599] - Field: ‘state’ 1583s [00:53:03.599] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1583s [00:53:03.600] - Launch lazy future ... 1583s [00:53:03.600] Packages needed by the future expression (n = 0): 1583s [00:53:03.600] Packages needed by future strategies (n = 0): 1583s [00:53:03.601] { 1583s [00:53:03.601] { 1583s [00:53:03.601] { 1583s [00:53:03.601] ...future.startTime <- base::Sys.time() 1583s [00:53:03.601] { 1583s [00:53:03.601] { 1583s [00:53:03.601] { 1583s [00:53:03.601] base::local({ 1583s [00:53:03.601] has_future <- base::requireNamespace("future", 1583s [00:53:03.601] quietly = TRUE) 1583s [00:53:03.601] if (has_future) { 1583s [00:53:03.601] ns <- base::getNamespace("future") 1583s [00:53:03.601] version <- ns[[".package"]][["version"]] 1583s [00:53:03.601] if (is.null(version)) 1583s [00:53:03.601] version <- utils::packageVersion("future") 1583s [00:53:03.601] } 1583s [00:53:03.601] else { 1583s [00:53:03.601] version <- NULL 1583s [00:53:03.601] } 1583s [00:53:03.601] if (!has_future || version < "1.8.0") { 1583s [00:53:03.601] info <- base::c(r_version = base::gsub("R version ", 1583s [00:53:03.601] "", base::R.version$version.string), 1583s [00:53:03.601] platform = base::sprintf("%s (%s-bit)", 1583s [00:53:03.601] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1583s [00:53:03.601] os = base::paste(base::Sys.info()[base::c("sysname", 1583s [00:53:03.601] "release", "version")], collapse = " "), 1583s [00:53:03.601] hostname = base::Sys.info()[["nodename"]]) 1583s [00:53:03.601] info <- base::sprintf("%s: %s", base::names(info), 1583s [00:53:03.601] info) 1583s [00:53:03.601] info <- base::paste(info, collapse = "; ") 1583s [00:53:03.601] if (!has_future) { 1583s [00:53:03.601] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1583s [00:53:03.601] info) 1583s [00:53:03.601] } 1583s [00:53:03.601] else { 1583s [00:53:03.601] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1583s [00:53:03.601] info, version) 1583s [00:53:03.601] } 1583s [00:53:03.601] base::stop(msg) 1583s [00:53:03.601] } 1583s [00:53:03.601] }) 1583s [00:53:03.601] } 1583s [00:53:03.601] options(future.plan = NULL) 1583s [00:53:03.601] Sys.unsetenv("R_FUTURE_PLAN") 1583s [00:53:03.601] future::plan("default", .cleanup = FALSE, .init = FALSE) 1583s [00:53:03.601] } 1583s [00:53:03.601] ...future.workdir <- getwd() 1583s [00:53:03.601] } 1583s [00:53:03.601] ...future.oldOptions <- base::as.list(base::.Options) 1583s [00:53:03.601] ...future.oldEnvVars <- base::Sys.getenv() 1583s [00:53:03.601] } 1583s [00:53:03.601] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1583s [00:53:03.601] future.globals.maxSize = NULL, future.globals.method = NULL, 1583s [00:53:03.601] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1583s [00:53:03.601] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1583s [00:53:03.601] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1583s [00:53:03.601] future.stdout.windows.reencode = NULL, width = 80L) 1583s [00:53:03.601] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1583s [00:53:03.601] base::names(...future.oldOptions)) 1583s [00:53:03.601] } 1583s [00:53:03.601] if (FALSE) { 1583s [00:53:03.601] } 1583s [00:53:03.601] else { 1583s [00:53:03.601] if (TRUE) { 1583s [00:53:03.601] ...future.stdout <- base::rawConnection(base::raw(0L), 1583s [00:53:03.601] open = "w") 1583s [00:53:03.601] } 1583s [00:53:03.601] else { 1583s [00:53:03.601] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1583s [00:53:03.601] windows = "NUL", "/dev/null"), open = "w") 1583s [00:53:03.601] } 1583s [00:53:03.601] base::sink(...future.stdout, type = "output", split = FALSE) 1583s [00:53:03.601] base::on.exit(if (!base::is.null(...future.stdout)) { 1583s [00:53:03.601] base::sink(type = "output", split = FALSE) 1583s [00:53:03.601] base::close(...future.stdout) 1583s [00:53:03.601] }, add = TRUE) 1583s [00:53:03.601] } 1583s [00:53:03.601] ...future.frame <- base::sys.nframe() 1583s [00:53:03.601] ...future.conditions <- base::list() 1583s [00:53:03.601] ...future.rng <- base::globalenv()$.Random.seed 1583s [00:53:03.601] if (FALSE) { 1583s [00:53:03.601] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1583s [00:53:03.601] "...future.value", "...future.globalenv.names", ".Random.seed") 1583s [00:53:03.601] } 1583s [00:53:03.601] ...future.result <- base::tryCatch({ 1583s [00:53:03.601] base::withCallingHandlers({ 1583s [00:53:03.601] ...future.value <- base::withVisible(base::local({ 1583s [00:53:03.601] do.call(function(...) { 1583s [00:53:03.601] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1583s [00:53:03.601] if (!identical(...future.globals.maxSize.org, 1583s [00:53:03.601] ...future.globals.maxSize)) { 1583s [00:53:03.601] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1583s [00:53:03.601] on.exit(options(oopts), add = TRUE) 1583s [00:53:03.601] } 1583s [00:53:03.601] { 1583s [00:53:03.601] lapply(seq_along(...future.elements_ii), 1583s [00:53:03.601] FUN = function(jj) { 1583s [00:53:03.601] ...future.X_jj <- ...future.elements_ii[[jj]] 1583s [00:53:03.601] ...future.FUN(...future.X_jj, ...) 1583s [00:53:03.601] }) 1583s [00:53:03.601] } 1583s [00:53:03.601] }, args = future.call.arguments) 1583s [00:53:03.601] })) 1583s [00:53:03.601] future::FutureResult(value = ...future.value$value, 1583s [00:53:03.601] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1583s [00:53:03.601] ...future.rng), globalenv = if (FALSE) 1583s [00:53:03.601] list(added = base::setdiff(base::names(base::.GlobalEnv), 1583s [00:53:03.601] ...future.globalenv.names)) 1583s [00:53:03.601] else NULL, started = ...future.startTime, version = "1.8") 1583s [00:53:03.601] }, condition = base::local({ 1583s [00:53:03.601] c <- base::c 1583s [00:53:03.601] inherits <- base::inherits 1583s [00:53:03.601] invokeRestart <- base::invokeRestart 1583s [00:53:03.601] length <- base::length 1583s [00:53:03.601] list <- base::list 1583s [00:53:03.601] seq.int <- base::seq.int 1583s [00:53:03.601] signalCondition <- base::signalCondition 1583s [00:53:03.601] sys.calls <- base::sys.calls 1583s [00:53:03.601] `[[` <- base::`[[` 1583s [00:53:03.601] `+` <- base::`+` 1583s [00:53:03.601] `<<-` <- base::`<<-` 1583s [00:53:03.601] sysCalls <- function(calls = sys.calls(), from = 1L) { 1583s [00:53:03.601] calls[seq.int(from = from + 12L, to = length(calls) - 1583s [00:53:03.601] 3L)] 1583s [00:53:03.601] } 1583s [00:53:03.601] function(cond) { 1583s [00:53:03.601] is_error <- inherits(cond, "error") 1583s [00:53:03.601] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1583s [00:53:03.601] NULL) 1583s [00:53:03.601] if (is_error) { 1583s [00:53:03.601] sessionInformation <- function() { 1583s [00:53:03.601] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1583s [00:53:03.601] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1583s [00:53:03.601] search = base::search(), system = base::Sys.info()) 1583s [00:53:03.601] } 1583s [00:53:03.601] ...future.conditions[[length(...future.conditions) + 1583s [00:53:03.601] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1583s [00:53:03.601] cond$call), session = sessionInformation(), 1583s [00:53:03.601] timestamp = base::Sys.time(), signaled = 0L) 1583s [00:53:03.601] signalCondition(cond) 1583s [00:53:03.601] } 1583s [00:53:03.601] else if (!ignore && TRUE && inherits(cond, c("condition", 1583s [00:53:03.601] "immediateCondition"))) { 1583s [00:53:03.601] signal <- TRUE && inherits(cond, "immediateCondition") 1583s [00:53:03.601] ...future.conditions[[length(...future.conditions) + 1583s [00:53:03.601] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1583s [00:53:03.601] if (TRUE && !signal) { 1583s [00:53:03.601] muffleCondition <- function (cond, pattern = "^muffle") 1583s [00:53:03.601] { 1583s [00:53:03.601] inherits <- base::inherits 1583s [00:53:03.601] invokeRestart <- base::invokeRestart 1583s [00:53:03.601] is.null <- base::is.null 1583s [00:53:03.601] muffled <- FALSE 1583s [00:53:03.601] if (inherits(cond, "message")) { 1583s [00:53:03.601] muffled <- grepl(pattern, "muffleMessage") 1583s [00:53:03.601] if (muffled) 1583s [00:53:03.601] invokeRestart("muffleMessage") 1583s [00:53:03.601] } 1583s [00:53:03.601] else if (inherits(cond, "warning")) { 1583s [00:53:03.601] muffled <- grepl(pattern, "muffleWarning") 1583s [00:53:03.601] if (muffled) 1583s [00:53:03.601] invokeRestart("muffleWarning") 1583s [00:53:03.601] } 1583s [00:53:03.601] else if (inherits(cond, "condition")) { 1583s [00:53:03.601] if (!is.null(pattern)) { 1583s [00:53:03.601] computeRestarts <- base::computeRestarts 1583s [00:53:03.601] grepl <- base::grepl 1583s [00:53:03.601] restarts <- computeRestarts(cond) 1583s [00:53:03.601] for (restart in restarts) { 1583s [00:53:03.601] name <- restart$name 1583s [00:53:03.601] if (is.null(name)) 1583s [00:53:03.601] next 1583s [00:53:03.601] if (!grepl(pattern, name)) 1583s [00:53:03.601] next 1583s [00:53:03.601] invokeRestart(restart) 1583s [00:53:03.601] muffled <- TRUE 1583s [00:53:03.601] break 1583s [00:53:03.601] } 1583s [00:53:03.601] } 1583s [00:53:03.601] } 1583s [00:53:03.601] invisible(muffled) 1583s [00:53:03.601] } 1583s [00:53:03.601] muffleCondition(cond, pattern = "^muffle") 1583s [00:53:03.601] } 1583s [00:53:03.601] } 1583s [00:53:03.601] else { 1583s [00:53:03.601] if (TRUE) { 1583s [00:53:03.601] muffleCondition <- function (cond, pattern = "^muffle") 1583s [00:53:03.601] { 1583s [00:53:03.601] inherits <- base::inherits 1583s [00:53:03.601] invokeRestart <- base::invokeRestart 1583s [00:53:03.601] is.null <- base::is.null 1583s [00:53:03.601] muffled <- FALSE 1583s [00:53:03.601] if (inherits(cond, "message")) { 1583s [00:53:03.601] muffled <- grepl(pattern, "muffleMessage") 1583s [00:53:03.601] if (muffled) 1583s [00:53:03.601] invokeRestart("muffleMessage") 1583s [00:53:03.601] } 1583s [00:53:03.601] else if (inherits(cond, "warning")) { 1583s [00:53:03.601] muffled <- grepl(pattern, "muffleWarning") 1583s [00:53:03.601] if (muffled) 1583s [00:53:03.601] invokeRestart("muffleWarning") 1583s [00:53:03.601] } 1583s [00:53:03.601] else if (inherits(cond, "condition")) { 1583s [00:53:03.601] if (!is.null(pattern)) { 1583s [00:53:03.601] computeRestarts <- base::computeRestarts 1583s [00:53:03.601] grepl <- base::grepl 1583s [00:53:03.601] restarts <- computeRestarts(cond) 1583s [00:53:03.601] for (restart in restarts) { 1583s [00:53:03.601] name <- restart$name 1583s [00:53:03.601] if (is.null(name)) 1583s [00:53:03.601] next 1583s [00:53:03.601] if (!grepl(pattern, name)) 1583s [00:53:03.601] next 1583s [00:53:03.601] invokeRestart(restart) 1583s [00:53:03.601] muffled <- TRUE 1583s [00:53:03.601] break 1583s [00:53:03.601] } 1583s [00:53:03.601] } 1583s [00:53:03.601] } 1583s [00:53:03.601] invisible(muffled) 1583s [00:53:03.601] } 1583s [00:53:03.601] muffleCondition(cond, pattern = "^muffle") 1583s [00:53:03.601] } 1583s [00:53:03.601] } 1583s [00:53:03.601] } 1583s [00:53:03.601] })) 1583s [00:53:03.601] }, error = function(ex) { 1583s [00:53:03.601] base::structure(base::list(value = NULL, visible = NULL, 1583s [00:53:03.601] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1583s [00:53:03.601] ...future.rng), started = ...future.startTime, 1583s [00:53:03.601] finished = Sys.time(), session_uuid = NA_character_, 1583s [00:53:03.601] version = "1.8"), class = "FutureResult") 1583s [00:53:03.601] }, finally = { 1583s [00:53:03.601] if (!identical(...future.workdir, getwd())) 1583s [00:53:03.601] setwd(...future.workdir) 1583s [00:53:03.601] { 1583s [00:53:03.601] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1583s [00:53:03.601] ...future.oldOptions$nwarnings <- NULL 1583s [00:53:03.601] } 1583s [00:53:03.601] base::options(...future.oldOptions) 1583s [00:53:03.601] if (.Platform$OS.type == "windows") { 1583s [00:53:03.601] old_names <- names(...future.oldEnvVars) 1583s [00:53:03.601] envs <- base::Sys.getenv() 1583s [00:53:03.601] names <- names(envs) 1583s [00:53:03.601] common <- intersect(names, old_names) 1583s [00:53:03.601] added <- setdiff(names, old_names) 1583s [00:53:03.601] removed <- setdiff(old_names, names) 1583s [00:53:03.601] changed <- common[...future.oldEnvVars[common] != 1583s [00:53:03.601] envs[common]] 1583s [00:53:03.601] NAMES <- toupper(changed) 1583s [00:53:03.601] args <- list() 1583s [00:53:03.601] for (kk in seq_along(NAMES)) { 1583s [00:53:03.601] name <- changed[[kk]] 1583s [00:53:03.601] NAME <- NAMES[[kk]] 1583s [00:53:03.601] if (name != NAME && is.element(NAME, old_names)) 1583s [00:53:03.601] next 1583s [00:53:03.601] args[[name]] <- ...future.oldEnvVars[[name]] 1583s [00:53:03.601] } 1583s [00:53:03.601] NAMES <- toupper(added) 1583s [00:53:03.601] for (kk in seq_along(NAMES)) { 1583s [00:53:03.601] name <- added[[kk]] 1583s [00:53:03.601] NAME <- NAMES[[kk]] 1583s [00:53:03.601] if (name != NAME && is.element(NAME, old_names)) 1583s [00:53:03.601] next 1583s [00:53:03.601] args[[name]] <- "" 1583s [00:53:03.601] } 1583s [00:53:03.601] NAMES <- toupper(removed) 1583s [00:53:03.601] for (kk in seq_along(NAMES)) { 1583s [00:53:03.601] name <- removed[[kk]] 1583s [00:53:03.601] NAME <- NAMES[[kk]] 1583s [00:53:03.601] if (name != NAME && is.element(NAME, old_names)) 1583s [00:53:03.601] next 1583s [00:53:03.601] args[[name]] <- ...future.oldEnvVars[[name]] 1583s [00:53:03.601] } 1583s [00:53:03.601] if (length(args) > 0) 1583s [00:53:03.601] base::do.call(base::Sys.setenv, args = args) 1583s [00:53:03.601] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1583s [00:53:03.601] } 1583s [00:53:03.601] else { 1583s [00:53:03.601] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1583s [00:53:03.601] } 1583s [00:53:03.601] { 1583s [00:53:03.601] if (base::length(...future.futureOptionsAdded) > 1583s [00:53:03.601] 0L) { 1583s [00:53:03.601] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1583s [00:53:03.601] base::names(opts) <- ...future.futureOptionsAdded 1583s [00:53:03.601] base::options(opts) 1583s [00:53:03.601] } 1583s [00:53:03.601] { 1583s [00:53:03.601] { 1583s [00:53:03.601] NULL 1583s [00:53:03.601] RNGkind("Mersenne-Twister") 1583s [00:53:03.601] base::rm(list = ".Random.seed", envir = base::globalenv(), 1583s [00:53:03.601] inherits = FALSE) 1583s [00:53:03.601] } 1583s [00:53:03.601] options(future.plan = NULL) 1583s [00:53:03.601] if (is.na(NA_character_)) 1583s [00:53:03.601] Sys.unsetenv("R_FUTURE_PLAN") 1583s [00:53:03.601] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1583s [00:53:03.601] future::plan(list(function (..., workers = availableCores(), 1583s [00:53:03.601] lazy = FALSE, rscript_libs = .libPaths(), 1583s [00:53:03.601] envir = parent.frame()) 1583s [00:53:03.601] { 1583s [00:53:03.601] if (is.function(workers)) 1583s [00:53:03.601] workers <- workers() 1583s [00:53:03.601] workers <- structure(as.integer(workers), 1583s [00:53:03.601] class = class(workers)) 1583s [00:53:03.601] stop_if_not(length(workers) == 1, is.finite(workers), 1583s [00:53:03.601] workers >= 1) 1583s [00:53:03.601] if (workers == 1L && !inherits(workers, "AsIs")) { 1583s [00:53:03.601] return(sequential(..., lazy = TRUE, envir = envir)) 1583s [00:53:03.601] } 1583s [00:53:03.601] future <- MultisessionFuture(..., workers = workers, 1583s [00:53:03.601] lazy = lazy, rscript_libs = rscript_libs, 1583s [00:53:03.601] envir = envir) 1583s [00:53:03.601] if (!future$lazy) 1583s [00:53:03.601] future <- run(future) 1583s [00:53:03.601] invisible(future) 1583s [00:53:03.601] }), .cleanup = FALSE, .init = FALSE) 1583s [00:53:03.601] } 1583s [00:53:03.601] } 1583s [00:53:03.601] } 1583s [00:53:03.601] }) 1583s [00:53:03.601] if (TRUE) { 1583s [00:53:03.601] base::sink(type = "output", split = FALSE) 1583s [00:53:03.601] if (TRUE) { 1583s [00:53:03.601] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1583s [00:53:03.601] } 1583s [00:53:03.601] else { 1583s [00:53:03.601] ...future.result["stdout"] <- base::list(NULL) 1583s [00:53:03.601] } 1583s [00:53:03.601] base::close(...future.stdout) 1583s [00:53:03.601] ...future.stdout <- NULL 1583s [00:53:03.601] } 1583s [00:53:03.601] ...future.result$conditions <- ...future.conditions 1583s [00:53:03.601] ...future.result$finished <- base::Sys.time() 1583s [00:53:03.601] ...future.result 1583s [00:53:03.601] } 1583s [00:53:03.604] assign_globals() ... 1583s [00:53:03.605] List of 5 1583s [00:53:03.605] $ ...future.FUN :function (x, ...) 1583s [00:53:03.605] $ future.call.arguments : list() 1583s [00:53:03.605] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1583s [00:53:03.605] $ ...future.elements_ii :List of 4 1583s [00:53:03.605] ..$ A: num 50 1583s [00:53:03.605] ..$ B: num 60 1583s [00:53:03.605] ..$ C: num 70 1583s [00:53:03.605] ..$ D: num 80 1583s [00:53:03.605] $ ...future.seeds_ii : NULL 1583s [00:53:03.605] $ ...future.globals.maxSize: NULL 1583s [00:53:03.605] - attr(*, "where")=List of 5 1583s [00:53:03.605] ..$ ...future.FUN : 1583s [00:53:03.605] ..$ future.call.arguments : 1583s [00:53:03.605] ..$ ...future.elements_ii : 1583s [00:53:03.605] ..$ ...future.seeds_ii : 1583s [00:53:03.605] ..$ ...future.globals.maxSize: 1583s [00:53:03.605] - attr(*, "resolved")= logi FALSE 1583s [00:53:03.605] - attr(*, "total_size")= num 1248 1583s [00:53:03.605] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1583s [00:53:03.605] - attr(*, "already-done")= logi TRUE 1583s [00:53:03.612] - copied ‘...future.FUN’ to environment 1583s [00:53:03.612] - copied ‘future.call.arguments’ to environment 1583s [00:53:03.612] - copied ‘...future.elements_ii’ to environment 1583s [00:53:03.612] - copied ‘...future.seeds_ii’ to environment 1583s [00:53:03.613] - copied ‘...future.globals.maxSize’ to environment 1583s [00:53:03.613] assign_globals() ... done 1583s [00:53:03.613] plan(): Setting new future strategy stack: 1583s [00:53:03.613] List of future strategies: 1583s [00:53:03.613] 1. sequential: 1583s [00:53:03.613] - args: function (..., envir = parent.frame()) 1583s [00:53:03.613] - tweaked: FALSE 1583s [00:53:03.613] - call: NULL 1583s [00:53:03.614] plan(): nbrOfWorkers() = 1 1583s [00:53:03.615] plan(): Setting new future strategy stack: 1583s [00:53:03.615] List of future strategies: 1583s [00:53:03.615] 1. multisession: 1583s [00:53:03.615] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1583s [00:53:03.615] - tweaked: FALSE 1583s [00:53:03.615] - call: plan(strategy) 1583s [00:53:03.620] plan(): nbrOfWorkers() = 1 1583s [00:53:03.620] SequentialFuture started (and completed) 1583s [00:53:03.621] - Launch lazy future ... done 1583s [00:53:03.625] run() for ‘SequentialFuture’ ... done 1583s [00:53:03.625] Created future: 1583s [00:53:03.625] SequentialFuture: 1583s [00:53:03.625] Label: ‘future_sapply-1’ 1583s [00:53:03.625] Expression: 1583s [00:53:03.625] { 1583s [00:53:03.625] do.call(function(...) { 1583s [00:53:03.625] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1583s [00:53:03.625] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1583s [00:53:03.625] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1583s [00:53:03.625] on.exit(options(oopts), add = TRUE) 1583s [00:53:03.625] } 1583s [00:53:03.625] { 1583s [00:53:03.625] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1583s [00:53:03.625] ...future.X_jj <- ...future.elements_ii[[jj]] 1583s [00:53:03.625] ...future.FUN(...future.X_jj, ...) 1583s [00:53:03.625] }) 1583s [00:53:03.625] } 1583s [00:53:03.625] }, args = future.call.arguments) 1583s [00:53:03.625] } 1583s [00:53:03.625] Lazy evaluation: FALSE 1583s [00:53:03.625] Asynchronous evaluation: FALSE 1583s [00:53:03.625] Local evaluation: TRUE 1583s [00:53:03.625] Environment: R_GlobalEnv 1583s [00:53:03.625] Capture standard output: TRUE 1583s [00:53:03.625] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1583s [00:53:03.625] Globals: 5 objects totaling 1.44 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1583s [00:53:03.625] Packages: 1583s [00:53:03.625] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1583s [00:53:03.625] Resolved: TRUE 1583s [00:53:03.625] Value: 896 bytes of class ‘list’ 1583s [00:53:03.625] Early signaling: FALSE 1583s [00:53:03.625] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1583s [00:53:03.625] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1583s [00:53:03.627] Chunk #1 of 1 ... DONE 1583s [00:53:03.627] Launching 1 futures (chunks) ... DONE 1583s [00:53:03.627] Resolving 1 futures (chunks) ... 1583s [00:53:03.628] resolve() on list ... 1583s [00:53:03.628] recursive: 0 1583s [00:53:03.628] length: 1 1583s [00:53:03.628] 1583s [00:53:03.628] resolved() for ‘SequentialFuture’ ... 1583s [00:53:03.628] - state: ‘finished’ 1583s [00:53:03.629] - run: TRUE 1583s [00:53:03.629] - result: ‘FutureResult’ 1583s [00:53:03.629] resolved() for ‘SequentialFuture’ ... done 1583s [00:53:03.629] Future #1 1583s [00:53:03.629] signalConditionsASAP(SequentialFuture, pos=1) ... 1583s [00:53:03.630] - nx: 1 1583s [00:53:03.630] - relay: TRUE 1583s [00:53:03.630] - stdout: TRUE 1583s [00:53:03.630] - signal: TRUE 1583s [00:53:03.630] - resignal: FALSE 1583s [00:53:03.630] - force: TRUE 1583s [00:53:03.630] - relayed: [n=1] FALSE 1583s [00:53:03.631] - queued futures: [n=1] FALSE 1583s [00:53:03.631] - until=1 1583s [00:53:03.631] - relaying element #1 1583s [00:53:03.631] - relayed: [n=1] TRUE 1583s [00:53:03.631] - queued futures: [n=1] TRUE 1583s [00:53:03.631] signalConditionsASAP(SequentialFuture, pos=1) ... done 1583s [00:53:03.632] length: 0 (resolved future 1) 1583s [00:53:03.632] Relaying remaining futures 1583s [00:53:03.632] signalConditionsASAP(NULL, pos=0) ... 1583s [00:53:03.632] - nx: 1 1583s [00:53:03.632] - relay: TRUE 1583s [00:53:03.632] - stdout: TRUE 1583s [00:53:03.632] - signal: TRUE 1583s [00:53:03.633] - resignal: FALSE 1583s [00:53:03.633] - force: TRUE 1583s [00:53:03.633] - relayed: [n=1] TRUE 1583s [00:53:03.633] - queued futures: [n=1] TRUE 1583s - flush all 1583s [00:53:03.633] - relayed: [n=1] TRUE 1583s [00:53:03.634] - queued futures: [n=1] TRUE 1583s [00:53:03.634] signalConditionsASAP(NULL, pos=0) ... done 1583s [00:53:03.634] resolve() on list ... DONE 1583s [00:53:03.634] - Number of value chunks collected: 1 1583s [00:53:03.634] Resolving 1 futures (chunks) ... DONE 1583s [00:53:03.634] Reducing values from 1 chunks ... 1583s [00:53:03.634] - Number of values collected after concatenation: 4 1583s [00:53:03.635] - Number of values expected: 4 1583s [00:53:03.635] Reducing values from 1 chunks ... DONE 1583s [00:53:03.635] future_lapply() ... DONE 1583s List of 2 1583s $ y0: Named num [1:4] 50 60 70 80 1583s ..- attr(*, "names")= chr [1:4] "A" "B" "C" "D" 1583s $ y1: Named num [1:4] 50 60 70 80 1583s ..- attr(*, "names")= chr [1:4] "A" "B" "C" "D" 1583s [00:53:03.638] future_lapply() ... 1583s [00:53:03.641] Number of chunks: 1 1583s [00:53:03.642] getGlobalsAndPackagesXApply() ... 1583s [00:53:03.642] - future.globals: TRUE 1583s [00:53:03.642] getGlobalsAndPackages() ... 1583s [00:53:03.642] Searching for globals... 1583s [00:53:03.644] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1583s [00:53:03.644] Searching for globals ... DONE 1583s [00:53:03.644] Resolving globals: FALSE 1583s [00:53:03.645] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1583s [00:53:03.645] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1583s [00:53:03.645] - globals: [1] ‘FUN’ 1583s [00:53:03.646] 1583s [00:53:03.646] getGlobalsAndPackages() ... DONE 1583s [00:53:03.646] - globals found/used: [n=1] ‘FUN’ 1583s [00:53:03.646] - needed namespaces: [n=0] 1583s [00:53:03.647] Finding globals ... DONE 1583s [00:53:03.647] - use_args: TRUE 1583s [00:53:03.647] - Getting '...' globals ... 1583s [00:53:03.648] resolve() on list ... 1583s [00:53:03.648] recursive: 0 1583s [00:53:03.648] length: 1 1583s [00:53:03.649] elements: ‘...’ 1583s [00:53:03.649] length: 0 (resolved future 1) 1583s [00:53:03.649] resolve() on list ... DONE 1583s [00:53:03.649] - '...' content: [n=0] 1583s [00:53:03.649] List of 1 1583s [00:53:03.649] $ ...: list() 1583s [00:53:03.649] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1583s [00:53:03.649] - attr(*, "where")=List of 1 1583s [00:53:03.649] ..$ ...: 1583s [00:53:03.649] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1583s [00:53:03.649] - attr(*, "resolved")= logi TRUE 1583s [00:53:03.649] - attr(*, "total_size")= num NA 1583s [00:53:03.653] - Getting '...' globals ... DONE 1583s [00:53:03.653] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1583s [00:53:03.653] List of 2 1583s [00:53:03.653] $ ...future.FUN:function (x, y = 2 * 1:5) 1583s [00:53:03.653] $ ... : list() 1583s [00:53:03.653] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1583s [00:53:03.653] - attr(*, "where")=List of 2 1583s [00:53:03.653] ..$ ...future.FUN: 1583s [00:53:03.653] ..$ ... : 1583s [00:53:03.653] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1583s [00:53:03.653] - attr(*, "resolved")= logi FALSE 1583s [00:53:03.653] - attr(*, "total_size")= num 4728 1583s [00:53:03.657] Packages to be attached in all futures: [n=0] 1583s [00:53:03.657] getGlobalsAndPackagesXApply() ... DONE 1583s [00:53:03.657] Number of futures (= number of chunks): 1 1583s [00:53:03.657] Launching 1 futures (chunks) ... 1583s [00:53:03.657] Chunk #1 of 1 ... 1583s [00:53:03.657] - Finding globals in 'X' for chunk #1 ... 1583s [00:53:03.657] getGlobalsAndPackages() ... 1583s [00:53:03.658] Searching for globals... 1583s [00:53:03.658] 1583s [00:53:03.658] Searching for globals ... DONE 1583s [00:53:03.658] - globals: [0] 1583s [00:53:03.658] getGlobalsAndPackages() ... DONE 1583s [00:53:03.658] + additional globals found: [n=0] 1583s [00:53:03.658] + additional namespaces needed: [n=0] 1583s [00:53:03.658] - Finding globals in 'X' for chunk #1 ... DONE 1583s [00:53:03.659] - seeds: 1583s [00:53:03.659] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1583s [00:53:03.659] getGlobalsAndPackages() ... 1583s [00:53:03.659] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1583s [00:53:03.659] Resolving globals: FALSE 1583s [00:53:03.659] Tweak future expression to call with '...' arguments ... 1583s [00:53:03.659] { 1583s [00:53:03.659] do.call(function(...) { 1583s [00:53:03.659] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1583s [00:53:03.659] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1583s [00:53:03.659] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1583s [00:53:03.659] on.exit(options(oopts), add = TRUE) 1583s [00:53:03.659] } 1583s [00:53:03.659] { 1583s [00:53:03.659] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1583s [00:53:03.659] ...future.X_jj <- ...future.elements_ii[[jj]] 1583s [00:53:03.659] ...future.FUN(...future.X_jj, ...) 1583s [00:53:03.659] }) 1583s [00:53:03.659] } 1583s [00:53:03.659] }, args = future.call.arguments) 1583s [00:53:03.659] } 1583s [00:53:03.660] Tweak future expression to call with '...' arguments ... DONE 1583s [00:53:03.660] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1583s [00:53:03.660] 1583s [00:53:03.660] getGlobalsAndPackages() ... DONE 1583s [00:53:03.661] run() for ‘Future’ ... 1583s [00:53:03.661] - state: ‘created’ 1583s [00:53:03.661] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1583s [00:53:03.665] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1583s [00:53:03.665] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1583s [00:53:03.665] - Field: ‘label’ 1583s [00:53:03.665] - Field: ‘local’ 1583s [00:53:03.665] - Field: ‘owner’ 1583s [00:53:03.666] - Field: ‘envir’ 1583s [00:53:03.666] - Field: ‘packages’ 1583s [00:53:03.666] - Field: ‘gc’ 1583s [00:53:03.666] - Field: ‘conditions’ 1583s [00:53:03.666] - Field: ‘expr’ 1583s [00:53:03.666] - Field: ‘uuid’ 1583s [00:53:03.666] - Field: ‘seed’ 1583s [00:53:03.667] - Field: ‘version’ 1583s [00:53:03.667] - Field: ‘result’ 1583s [00:53:03.667] - Field: ‘asynchronous’ 1583s [00:53:03.667] - Field: ‘calls’ 1583s [00:53:03.667] - Field: ‘globals’ 1583s [00:53:03.667] - Field: ‘stdout’ 1583s [00:53:03.668] - Field: ‘earlySignal’ 1583s [00:53:03.668] - Field: ‘lazy’ 1583s [00:53:03.668] - Field: ‘state’ 1583s [00:53:03.668] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1583s [00:53:03.668] - Launch lazy future ... 1583s [00:53:03.668] Packages needed by the future expression (n = 0): 1583s [00:53:03.669] Packages needed by future strategies (n = 0): 1583s [00:53:03.669] { 1583s [00:53:03.669] { 1583s [00:53:03.669] { 1583s [00:53:03.669] ...future.startTime <- base::Sys.time() 1583s [00:53:03.669] { 1583s [00:53:03.669] { 1583s [00:53:03.669] { 1583s [00:53:03.669] base::local({ 1583s [00:53:03.669] has_future <- base::requireNamespace("future", 1583s [00:53:03.669] quietly = TRUE) 1583s [00:53:03.669] if (has_future) { 1583s [00:53:03.669] ns <- base::getNamespace("future") 1583s [00:53:03.669] version <- ns[[".package"]][["version"]] 1583s [00:53:03.669] if (is.null(version)) 1583s [00:53:03.669] version <- utils::packageVersion("future") 1583s [00:53:03.669] } 1583s [00:53:03.669] else { 1583s [00:53:03.669] version <- NULL 1583s [00:53:03.669] } 1583s [00:53:03.669] if (!has_future || version < "1.8.0") { 1583s [00:53:03.669] info <- base::c(r_version = base::gsub("R version ", 1583s [00:53:03.669] "", base::R.version$version.string), 1583s [00:53:03.669] platform = base::sprintf("%s (%s-bit)", 1583s [00:53:03.669] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1583s [00:53:03.669] os = base::paste(base::Sys.info()[base::c("sysname", 1583s [00:53:03.669] "release", "version")], collapse = " "), 1583s [00:53:03.669] hostname = base::Sys.info()[["nodename"]]) 1583s [00:53:03.669] info <- base::sprintf("%s: %s", base::names(info), 1583s [00:53:03.669] info) 1583s [00:53:03.669] info <- base::paste(info, collapse = "; ") 1583s [00:53:03.669] if (!has_future) { 1583s [00:53:03.669] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1583s [00:53:03.669] info) 1583s [00:53:03.669] } 1583s [00:53:03.669] else { 1583s [00:53:03.669] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1583s [00:53:03.669] info, version) 1583s [00:53:03.669] } 1583s [00:53:03.669] base::stop(msg) 1583s [00:53:03.669] } 1583s [00:53:03.669] }) 1583s [00:53:03.669] } 1583s [00:53:03.669] options(future.plan = NULL) 1583s [00:53:03.669] Sys.unsetenv("R_FUTURE_PLAN") 1583s [00:53:03.669] future::plan("default", .cleanup = FALSE, .init = FALSE) 1583s [00:53:03.669] } 1583s [00:53:03.669] ...future.workdir <- getwd() 1583s [00:53:03.669] } 1583s [00:53:03.669] ...future.oldOptions <- base::as.list(base::.Options) 1583s [00:53:03.669] ...future.oldEnvVars <- base::Sys.getenv() 1583s [00:53:03.669] } 1583s [00:53:03.669] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1583s [00:53:03.669] future.globals.maxSize = NULL, future.globals.method = NULL, 1583s [00:53:03.669] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1583s [00:53:03.669] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1583s [00:53:03.669] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1583s [00:53:03.669] future.stdout.windows.reencode = NULL, width = 80L) 1583s [00:53:03.669] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1583s [00:53:03.669] base::names(...future.oldOptions)) 1583s [00:53:03.669] } 1583s [00:53:03.669] if (FALSE) { 1583s [00:53:03.669] } 1583s [00:53:03.669] else { 1583s [00:53:03.669] if (TRUE) { 1583s [00:53:03.669] ...future.stdout <- base::rawConnection(base::raw(0L), 1583s [00:53:03.669] open = "w") 1583s [00:53:03.669] } 1583s [00:53:03.669] else { 1583s [00:53:03.669] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1583s [00:53:03.669] windows = "NUL", "/dev/null"), open = "w") 1583s [00:53:03.669] } 1583s [00:53:03.669] base::sink(...future.stdout, type = "output", split = FALSE) 1583s [00:53:03.669] base::on.exit(if (!base::is.null(...future.stdout)) { 1583s [00:53:03.669] base::sink(type = "output", split = FALSE) 1583s [00:53:03.669] base::close(...future.stdout) 1583s [00:53:03.669] }, add = TRUE) 1583s [00:53:03.669] } 1583s [00:53:03.669] ...future.frame <- base::sys.nframe() 1583s [00:53:03.669] ...future.conditions <- base::list() 1583s [00:53:03.669] ...future.rng <- base::globalenv()$.Random.seed 1583s [00:53:03.669] if (FALSE) { 1583s [00:53:03.669] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1583s [00:53:03.669] "...future.value", "...future.globalenv.names", ".Random.seed") 1583s [00:53:03.669] } 1583s [00:53:03.669] ...future.result <- base::tryCatch({ 1583s [00:53:03.669] base::withCallingHandlers({ 1583s [00:53:03.669] ...future.value <- base::withVisible(base::local({ 1583s [00:53:03.669] do.call(function(...) { 1583s [00:53:03.669] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1583s [00:53:03.669] if (!identical(...future.globals.maxSize.org, 1583s [00:53:03.669] ...future.globals.maxSize)) { 1583s [00:53:03.669] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1583s [00:53:03.669] on.exit(options(oopts), add = TRUE) 1583s [00:53:03.669] } 1583s [00:53:03.669] { 1583s [00:53:03.669] lapply(seq_along(...future.elements_ii), 1583s [00:53:03.669] FUN = function(jj) { 1583s [00:53:03.669] ...future.X_jj <- ...future.elements_ii[[jj]] 1583s [00:53:03.669] ...future.FUN(...future.X_jj, ...) 1583s [00:53:03.669] }) 1583s [00:53:03.669] } 1583s [00:53:03.669] }, args = future.call.arguments) 1583s [00:53:03.669] })) 1583s [00:53:03.669] future::FutureResult(value = ...future.value$value, 1583s [00:53:03.669] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1583s [00:53:03.669] ...future.rng), globalenv = if (FALSE) 1583s [00:53:03.669] list(added = base::setdiff(base::names(base::.GlobalEnv), 1583s [00:53:03.669] ...future.globalenv.names)) 1583s [00:53:03.669] else NULL, started = ...future.startTime, version = "1.8") 1583s [00:53:03.669] }, condition = base::local({ 1583s [00:53:03.669] c <- base::c 1583s [00:53:03.669] inherits <- base::inherits 1583s [00:53:03.669] invokeRestart <- base::invokeRestart 1583s [00:53:03.669] length <- base::length 1583s [00:53:03.669] list <- base::list 1583s [00:53:03.669] seq.int <- base::seq.int 1583s [00:53:03.669] signalCondition <- base::signalCondition 1583s [00:53:03.669] sys.calls <- base::sys.calls 1583s [00:53:03.669] `[[` <- base::`[[` 1583s [00:53:03.669] `+` <- base::`+` 1583s [00:53:03.669] `<<-` <- base::`<<-` 1583s [00:53:03.669] sysCalls <- function(calls = sys.calls(), from = 1L) { 1583s [00:53:03.669] calls[seq.int(from = from + 12L, to = length(calls) - 1583s [00:53:03.669] 3L)] 1583s [00:53:03.669] } 1583s [00:53:03.669] function(cond) { 1583s [00:53:03.669] is_error <- inherits(cond, "error") 1583s [00:53:03.669] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1583s [00:53:03.669] NULL) 1583s [00:53:03.669] if (is_error) { 1583s [00:53:03.669] sessionInformation <- function() { 1583s [00:53:03.669] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1583s [00:53:03.669] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1583s [00:53:03.669] search = base::search(), system = base::Sys.info()) 1583s [00:53:03.669] } 1583s [00:53:03.669] ...future.conditions[[length(...future.conditions) + 1583s [00:53:03.669] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1583s [00:53:03.669] cond$call), session = sessionInformation(), 1583s [00:53:03.669] timestamp = base::Sys.time(), signaled = 0L) 1583s [00:53:03.669] signalCondition(cond) 1583s [00:53:03.669] } 1583s [00:53:03.669] else if (!ignore && TRUE && inherits(cond, c("condition", 1583s [00:53:03.669] "immediateCondition"))) { 1583s [00:53:03.669] signal <- TRUE && inherits(cond, "immediateCondition") 1583s [00:53:03.669] ...future.conditions[[length(...future.conditions) + 1583s [00:53:03.669] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1583s [00:53:03.669] if (TRUE && !signal) { 1583s [00:53:03.669] muffleCondition <- function (cond, pattern = "^muffle") 1583s [00:53:03.669] { 1583s [00:53:03.669] inherits <- base::inherits 1583s [00:53:03.669] invokeRestart <- base::invokeRestart 1583s [00:53:03.669] is.null <- base::is.null 1583s [00:53:03.669] muffled <- FALSE 1583s [00:53:03.669] if (inherits(cond, "message")) { 1583s [00:53:03.669] muffled <- grepl(pattern, "muffleMessage") 1583s [00:53:03.669] if (muffled) 1583s [00:53:03.669] invokeRestart("muffleMessage") 1583s [00:53:03.669] } 1583s [00:53:03.669] else if (inherits(cond, "warning")) { 1583s [00:53:03.669] muffled <- grepl(pattern, "muffleWarning") 1583s [00:53:03.669] if (muffled) 1583s [00:53:03.669] invokeRestart("muffleWarning") 1583s [00:53:03.669] } 1583s [00:53:03.669] else if (inherits(cond, "condition")) { 1583s [00:53:03.669] if (!is.null(pattern)) { 1583s [00:53:03.669] computeRestarts <- base::computeRestarts 1583s [00:53:03.669] grepl <- base::grepl 1583s [00:53:03.669] restarts <- computeRestarts(cond) 1583s [00:53:03.669] for (restart in restarts) { 1583s [00:53:03.669] name <- restart$name 1583s [00:53:03.669] if (is.null(name)) 1583s [00:53:03.669] next 1583s [00:53:03.669] if (!grepl(pattern, name)) 1583s [00:53:03.669] next 1583s [00:53:03.669] invokeRestart(restart) 1583s [00:53:03.669] muffled <- TRUE 1583s [00:53:03.669] break 1583s [00:53:03.669] } 1583s [00:53:03.669] } 1583s [00:53:03.669] } 1583s [00:53:03.669] invisible(muffled) 1583s [00:53:03.669] } 1583s [00:53:03.669] muffleCondition(cond, pattern = "^muffle") 1583s [00:53:03.669] } 1583s [00:53:03.669] } 1583s [00:53:03.669] else { 1583s [00:53:03.669] if (TRUE) { 1583s [00:53:03.669] muffleCondition <- function (cond, pattern = "^muffle") 1583s [00:53:03.669] { 1583s [00:53:03.669] inherits <- base::inherits 1583s [00:53:03.669] invokeRestart <- base::invokeRestart 1583s [00:53:03.669] is.null <- base::is.null 1583s [00:53:03.669] muffled <- FALSE 1583s [00:53:03.669] if (inherits(cond, "message")) { 1583s [00:53:03.669] muffled <- grepl(pattern, "muffleMessage") 1583s [00:53:03.669] if (muffled) 1583s [00:53:03.669] invokeRestart("muffleMessage") 1583s [00:53:03.669] } 1583s [00:53:03.669] else if (inherits(cond, "warning")) { 1583s [00:53:03.669] muffled <- grepl(pattern, "muffleWarning") 1583s [00:53:03.669] if (muffled) 1583s [00:53:03.669] invokeRestart("muffleWarning") 1583s [00:53:03.669] } 1583s [00:53:03.669] else if (inherits(cond, "condition")) { 1583s [00:53:03.669] if (!is.null(pattern)) { 1583s [00:53:03.669] computeRestarts <- base::computeRestarts 1583s [00:53:03.669] grepl <- base::grepl 1583s [00:53:03.669] restarts <- computeRestarts(cond) 1583s [00:53:03.669] for (restart in restarts) { 1583s [00:53:03.669] name <- restart$name 1583s [00:53:03.669] if (is.null(name)) 1583s [00:53:03.669] next 1583s [00:53:03.669] if (!grepl(pattern, name)) 1583s [00:53:03.669] next 1583s [00:53:03.669] invokeRestart(restart) 1583s [00:53:03.669] muffled <- TRUE 1583s [00:53:03.669] break 1583s [00:53:03.669] } 1583s [00:53:03.669] } 1583s [00:53:03.669] } 1583s [00:53:03.669] invisible(muffled) 1583s [00:53:03.669] } 1583s [00:53:03.669] muffleCondition(cond, pattern = "^muffle") 1583s [00:53:03.669] } 1583s [00:53:03.669] } 1583s [00:53:03.669] } 1583s [00:53:03.669] })) 1583s [00:53:03.669] }, error = function(ex) { 1583s [00:53:03.669] base::structure(base::list(value = NULL, visible = NULL, 1583s [00:53:03.669] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1583s [00:53:03.669] ...future.rng), started = ...future.startTime, 1583s [00:53:03.669] finished = Sys.time(), session_uuid = NA_character_, 1583s [00:53:03.669] version = "1.8"), class = "FutureResult") 1583s [00:53:03.669] }, finally = { 1583s [00:53:03.669] if (!identical(...future.workdir, getwd())) 1583s [00:53:03.669] setwd(...future.workdir) 1583s [00:53:03.669] { 1583s [00:53:03.669] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1583s [00:53:03.669] ...future.oldOptions$nwarnings <- NULL 1583s [00:53:03.669] } 1583s [00:53:03.669] base::options(...future.oldOptions) 1583s [00:53:03.669] if (.Platform$OS.type == "windows") { 1583s [00:53:03.669] old_names <- names(...future.oldEnvVars) 1583s [00:53:03.669] envs <- base::Sys.getenv() 1583s [00:53:03.669] names <- names(envs) 1583s [00:53:03.669] common <- intersect(names, old_names) 1583s [00:53:03.669] added <- setdiff(names, old_names) 1583s [00:53:03.669] removed <- setdiff(old_names, names) 1583s [00:53:03.669] changed <- common[...future.oldEnvVars[common] != 1583s [00:53:03.669] envs[common]] 1583s [00:53:03.669] NAMES <- toupper(changed) 1583s [00:53:03.669] args <- list() 1583s [00:53:03.669] for (kk in seq_along(NAMES)) { 1583s [00:53:03.669] name <- changed[[kk]] 1583s [00:53:03.669] NAME <- NAMES[[kk]] 1583s [00:53:03.669] if (name != NAME && is.element(NAME, old_names)) 1583s [00:53:03.669] next 1583s [00:53:03.669] args[[name]] <- ...future.oldEnvVars[[name]] 1583s [00:53:03.669] } 1583s [00:53:03.669] NAMES <- toupper(added) 1583s [00:53:03.669] for (kk in seq_along(NAMES)) { 1583s [00:53:03.669] name <- added[[kk]] 1583s [00:53:03.669] NAME <- NAMES[[kk]] 1583s [00:53:03.669] if (name != NAME && is.element(NAME, old_names)) 1583s [00:53:03.669] next 1583s [00:53:03.669] args[[name]] <- "" 1583s [00:53:03.669] } 1583s [00:53:03.669] NAMES <- toupper(removed) 1583s [00:53:03.669] for (kk in seq_along(NAMES)) { 1583s [00:53:03.669] name <- removed[[kk]] 1583s [00:53:03.669] NAME <- NAMES[[kk]] 1583s [00:53:03.669] if (name != NAME && is.element(NAME, old_names)) 1583s [00:53:03.669] next 1583s [00:53:03.669] args[[name]] <- ...future.oldEnvVars[[name]] 1583s [00:53:03.669] } 1583s [00:53:03.669] if (length(args) > 0) 1583s [00:53:03.669] base::do.call(base::Sys.setenv, args = args) 1583s [00:53:03.669] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1583s [00:53:03.669] } 1583s [00:53:03.669] else { 1583s [00:53:03.669] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1583s [00:53:03.669] } 1583s [00:53:03.669] { 1583s [00:53:03.669] if (base::length(...future.futureOptionsAdded) > 1583s [00:53:03.669] 0L) { 1583s [00:53:03.669] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1583s [00:53:03.669] base::names(opts) <- ...future.futureOptionsAdded 1583s [00:53:03.669] base::options(opts) 1583s [00:53:03.669] } 1583s [00:53:03.669] { 1583s [00:53:03.669] { 1583s [00:53:03.669] NULL 1583s [00:53:03.669] RNGkind("Mersenne-Twister") 1583s [00:53:03.669] base::rm(list = ".Random.seed", envir = base::globalenv(), 1583s [00:53:03.669] inherits = FALSE) 1583s [00:53:03.669] } 1583s [00:53:03.669] options(future.plan = NULL) 1583s [00:53:03.669] if (is.na(NA_character_)) 1583s [00:53:03.669] Sys.unsetenv("R_FUTURE_PLAN") 1583s [00:53:03.669] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1583s [00:53:03.669] future::plan(list(function (..., workers = availableCores(), 1583s [00:53:03.669] lazy = FALSE, rscript_libs = .libPaths(), 1583s [00:53:03.669] envir = parent.frame()) 1583s [00:53:03.669] { 1583s [00:53:03.669] if (is.function(workers)) 1583s [00:53:03.669] workers <- workers() 1583s [00:53:03.669] workers <- structure(as.integer(workers), 1583s [00:53:03.669] class = class(workers)) 1583s [00:53:03.669] stop_if_not(length(workers) == 1, is.finite(workers), 1583s [00:53:03.669] workers >= 1) 1583s [00:53:03.669] if (workers == 1L && !inherits(workers, "AsIs")) { 1583s [00:53:03.669] return(sequential(..., lazy = TRUE, envir = envir)) 1583s [00:53:03.669] } 1583s [00:53:03.669] future <- MultisessionFuture(..., workers = workers, 1583s [00:53:03.669] lazy = lazy, rscript_libs = rscript_libs, 1583s [00:53:03.669] envir = envir) 1583s [00:53:03.669] if (!future$lazy) 1583s [00:53:03.669] future <- run(future) 1583s [00:53:03.669] invisible(future) 1583s [00:53:03.669] }), .cleanup = FALSE, .init = FALSE) 1583s [00:53:03.669] } 1583s [00:53:03.669] } 1583s [00:53:03.669] } 1583s [00:53:03.669] }) 1583s [00:53:03.669] if (TRUE) { 1583s [00:53:03.669] base::sink(type = "output", split = FALSE) 1583s [00:53:03.669] if (TRUE) { 1583s [00:53:03.669] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1583s [00:53:03.669] } 1583s [00:53:03.669] else { 1583s [00:53:03.669] ...future.result["stdout"] <- base::list(NULL) 1583s [00:53:03.669] } 1583s [00:53:03.669] base::close(...future.stdout) 1583s [00:53:03.669] ...future.stdout <- NULL 1583s [00:53:03.669] } 1583s [00:53:03.669] ...future.result$conditions <- ...future.conditions 1583s [00:53:03.669] ...future.result$finished <- base::Sys.time() 1583s [00:53:03.669] ...future.result 1583s [00:53:03.669] } 1583s [00:53:03.675] assign_globals() ... 1583s [00:53:03.675] List of 5 1583s [00:53:03.675] $ ...future.FUN :function (x, y = 2 * 1:5) 1583s [00:53:03.675] $ future.call.arguments : list() 1583s [00:53:03.675] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1583s [00:53:03.675] $ ...future.elements_ii :List of 4 1583s [00:53:03.675] ..$ A: num 50 1583s [00:53:03.675] ..$ B: num 60 1583s [00:53:03.675] ..$ C: num 70 1583s [00:53:03.675] ..$ D: num 80 1583s [00:53:03.675] $ ...future.seeds_ii : NULL 1583s [00:53:03.675] $ ...future.globals.maxSize: NULL 1583s [00:53:03.675] - attr(*, "where")=List of 5 1583s [00:53:03.675] ..$ ...future.FUN : 1583s [00:53:03.675] ..$ future.call.arguments : 1583s [00:53:03.675] ..$ ...future.elements_ii : 1583s [00:53:03.675] ..$ ...future.seeds_ii : 1583s [00:53:03.675] ..$ ...future.globals.maxSize: 1583s [00:53:03.675] - attr(*, "resolved")= logi FALSE 1583s [00:53:03.675] - attr(*, "total_size")= num 4728 1583s [00:53:03.675] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1583s [00:53:03.675] - attr(*, "already-done")= logi TRUE 1583s [00:53:03.682] - reassign environment for ‘...future.FUN’ 1583s [00:53:03.682] - copied ‘...future.FUN’ to environment 1583s [00:53:03.682] - copied ‘future.call.arguments’ to environment 1583s [00:53:03.682] - copied ‘...future.elements_ii’ to environment 1583s [00:53:03.682] - copied ‘...future.seeds_ii’ to environment 1583s [00:53:03.683] - copied ‘...future.globals.maxSize’ to environment 1583s [00:53:03.683] assign_globals() ... done 1583s [00:53:03.683] plan(): Setting new future strategy stack: 1583s [00:53:03.683] List of future strategies: 1583s [00:53:03.683] 1. sequential: 1583s [00:53:03.683] - args: function (..., envir = parent.frame()) 1583s [00:53:03.683] - tweaked: FALSE 1583s [00:53:03.683] - call: NULL 1583s [00:53:03.684] plan(): nbrOfWorkers() = 1 1583s [00:53:03.685] plan(): Setting new future strategy stack: 1583s [00:53:03.685] List of future strategies: 1583s [00:53:03.685] 1. multisession: 1583s [00:53:03.685] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1583s [00:53:03.685] - tweaked: FALSE 1583s [00:53:03.685] - call: plan(strategy) 1583s [00:53:03.688] plan(): nbrOfWorkers() = 1 1583s [00:53:03.688] SequentialFuture started (and completed) 1583s [00:53:03.689] - Launch lazy future ... done 1583s [00:53:03.689] run() for ‘SequentialFuture’ ... done 1583s [00:53:03.689] Created future: 1583s [00:53:03.689] SequentialFuture: 1583s [00:53:03.689] Label: ‘future_sapply-1’ 1583s [00:53:03.689] Expression: 1583s [00:53:03.689] { 1583s [00:53:03.689] do.call(function(...) { 1583s [00:53:03.689] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1583s [00:53:03.689] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1583s [00:53:03.689] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1583s [00:53:03.689] on.exit(options(oopts), add = TRUE) 1583s [00:53:03.689] } 1583s [00:53:03.689] { 1583s [00:53:03.689] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1583s [00:53:03.689] ...future.X_jj <- ...future.elements_ii[[jj]] 1583s [00:53:03.689] ...future.FUN(...future.X_jj, ...) 1583s [00:53:03.689] }) 1583s [00:53:03.689] } 1583s [00:53:03.689] }, args = future.call.arguments) 1583s [00:53:03.689] } 1583s [00:53:03.689] Lazy evaluation: FALSE 1583s [00:53:03.689] Asynchronous evaluation: FALSE 1583s [00:53:03.689] Local evaluation: TRUE 1583s [00:53:03.689] Environment: R_GlobalEnv 1583s [00:53:03.689] Capture standard output: TRUE 1583s [00:53:03.689] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1583s [00:53:03.689] Globals: 5 objects totaling 4.84 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1583s [00:53:03.689] Packages: 1583s [00:53:03.689] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1583s [00:53:03.689] Resolved: TRUE 1583s [00:53:03.689] Value: 1.34 KiB of class ‘list’ 1583s [00:53:03.689] Early signaling: FALSE 1583s [00:53:03.689] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1583s [00:53:03.689] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1583s [00:53:03.691] Chunk #1 of 1 ... DONE 1583s [00:53:03.691] Launching 1 futures (chunks) ... DONE 1583s [00:53:03.691] Resolving 1 futures (chunks) ... 1583s [00:53:03.691] resolve() on list ... 1583s [00:53:03.691] recursive: 0 1583s [00:53:03.691] length: 1 1583s [00:53:03.692] 1583s [00:53:03.692] resolved() for ‘SequentialFuture’ ... 1583s [00:53:03.692] - state: ‘finished’ 1583s [00:53:03.692] - run: TRUE 1583s [00:53:03.692] - result: ‘FutureResult’ 1583s [00:53:03.693] resolved() for ‘SequentialFuture’ ... done 1583s [00:53:03.693] Future #1 1583s [00:53:03.693] signalConditionsASAP(SequentialFuture, pos=1) ... 1583s [00:53:03.693] - nx: 1 1583s [00:53:03.693] - relay: TRUE 1583s [00:53:03.693] - stdout: TRUE 1583s [00:53:03.694] - signal: TRUE 1583s [00:53:03.694] - resignal: FALSE 1583s [00:53:03.694] - force: TRUE 1583s [00:53:03.694] - relayed: [n=1] FALSE 1583s [00:53:03.694] - queued futures: [n=1] FALSE 1583s [00:53:03.694] - until=1 1583s [00:53:03.694] - relaying element #1 1583s [00:53:03.695] - relayed: [n=1] TRUE 1583s [00:53:03.695] - queued futures: [n=1] TRUE 1583s [00:53:03.695] signalConditionsASAP(SequentialFuture, pos=1) ... done 1583s [00:53:03.695] length: 0 (resolved future 1) 1583s [00:53:03.695] Relaying remaining futures 1583s [00:53:03.695] signalConditionsASAP(NULL, pos=0) ... 1583s [00:53:03.695] - nx: 1 1583s [00:53:03.696] - relay: TRUE 1583s [00:53:03.696] - stdout: TRUE 1583s [00:53:03.696] - signal: TRUE 1583s [00:53:03.696] - resignal: FALSE 1583s [00:53:03.696] - force: TRUE 1583s [00:53:03.696] - relayed: [n=1] TRUE 1583s [00:53:03.696] - queued futures: [n=1] TRUE 1583s - flush all 1583s [00:53:03.697] - relayed: [n=1] TRUE 1583s [00:53:03.697] - queued futures: [n=1] TRUE 1583s [00:53:03.697] signalConditionsASAP(NULL, pos=0) ... done 1583s [00:53:03.697] resolve() on list ... DONE 1583s [00:53:03.697] - Number of value chunks collected: 1 1583s [00:53:03.697] Resolving 1 futures (chunks) ... DONE 1583s [00:53:03.698] Reducing values from 1 chunks ... 1583s [00:53:03.698] - Number of values collected after concatenation: 4 1583s [00:53:03.698] - Number of values expected: 4 1583s [00:53:03.698] Reducing values from 1 chunks ... DONE 1583s List of 2 1583s $ y0: num [1:15, 1:4] 100 100 100 200 200 200 300 300 300 400 ... 1583s ..- attr(*, "dimnames")=[00:53:03.698] future_lapply() ... DONE 1583s List of 2 1583s .. ..$ : NULL 1583s .. ..$ : chr [1:4] "A" "B" "C" "D" 1583s $ y1: num [1:15, 1:4] 100 100 100 200 200 200 300 300 300 400 ... 1583s ..- attr(*, "dimnames")=List of 2 1583s .. ..$ : NULL 1583s .. ..$ : chr [1:4] "A" "B" "C" "D" 1583s [00:53:03.703] future_lapply() ... 1583s [00:53:03.706] Number of chunks: 1 1583s [00:53:03.706] getGlobalsAndPackagesXApply() ... 1583s [00:53:03.706] - future.globals: TRUE 1583s [00:53:03.706] getGlobalsAndPackages() ... 1583s [00:53:03.707] Searching for globals... 1583s [00:53:03.708] - globals found: [1] ‘FUN’ 1583s [00:53:03.708] Searching for globals ... DONE 1583s [00:53:03.708] Resolving globals: FALSE 1583s [00:53:03.708] The total size of the 1 globals is 848 bytes (848 bytes) 1583s [00:53:03.709] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1583s [00:53:03.709] - globals: [1] ‘FUN’ 1583s [00:53:03.709] 1583s [00:53:03.709] getGlobalsAndPackages() ... DONE 1583s [00:53:03.709] - globals found/used: [n=1] ‘FUN’ 1583s [00:53:03.709] - needed namespaces: [n=0] 1583s [00:53:03.710] Finding globals ... DONE 1583s [00:53:03.710] - use_args: TRUE 1583s [00:53:03.710] - Getting '...' globals ... 1583s [00:53:03.710] resolve() on list ... 1583s [00:53:03.710] recursive: 0 1583s [00:53:03.710] length: 1 1583s [00:53:03.711] elements: ‘...’ 1583s [00:53:03.711] length: 0 (resolved future 1) 1583s [00:53:03.711] resolve() on list ... DONE 1583s [00:53:03.711] - '...' content: [n=0] 1583s [00:53:03.711] List of 1 1583s [00:53:03.711] $ ...: list() 1583s [00:53:03.711] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1583s [00:53:03.711] - attr(*, "where")=List of 1 1583s [00:53:03.711] ..$ ...: 1583s [00:53:03.711] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1583s [00:53:03.711] - attr(*, "resolved")= logi TRUE 1583s [00:53:03.711] - attr(*, "total_size")= num NA 1583s [00:53:03.714] - Getting '...' globals ... DONE 1583s [00:53:03.714] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1583s [00:53:03.715] List of 2 1583s [00:53:03.715] $ ...future.FUN:function (x) 1583s [00:53:03.715] $ ... : list() 1583s [00:53:03.715] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1583s [00:53:03.715] - attr(*, "where")=List of 2 1583s [00:53:03.715] ..$ ...future.FUN: 1583s [00:53:03.715] ..$ ... : 1583s [00:53:03.715] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1583s [00:53:03.715] - attr(*, "resolved")= logi FALSE 1583s [00:53:03.715] - attr(*, "total_size")= num 848 1583s [00:53:03.718] Packages to be attached in all futures: [n=0] 1583s [00:53:03.718] getGlobalsAndPackagesXApply() ... DONE 1583s [00:53:03.719] Number of futures (= number of chunks): 1 1583s [00:53:03.719] Launching 1 futures (chunks) ... 1583s [00:53:03.719] Chunk #1 of 1 ... 1583s [00:53:03.723] - Finding globals in 'X' for chunk #1 ... 1583s [00:53:03.724] getGlobalsAndPackages() ... 1583s [00:53:03.724] Searching for globals... 1583s [00:53:03.724] 1583s [00:53:03.724] Searching for globals ... DONE 1583s [00:53:03.724] - globals: [0] 1583s [00:53:03.725] getGlobalsAndPackages() ... DONE 1583s [00:53:03.725] + additional globals found: [n=0] 1583s [00:53:03.725] + additional namespaces needed: [n=0] 1583s [00:53:03.725] - Finding globals in 'X' for chunk #1 ... DONE 1583s [00:53:03.725] - seeds: 1583s [00:53:03.725] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1583s [00:53:03.725] getGlobalsAndPackages() ... 1583s [00:53:03.726] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1583s [00:53:03.726] Resolving globals: FALSE 1583s [00:53:03.726] Tweak future expression to call with '...' arguments ... 1583s [00:53:03.726] { 1583s [00:53:03.726] do.call(function(...) { 1583s [00:53:03.726] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1583s [00:53:03.726] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1583s [00:53:03.726] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1583s [00:53:03.726] on.exit(options(oopts), add = TRUE) 1583s [00:53:03.726] } 1583s [00:53:03.726] { 1583s [00:53:03.726] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1583s [00:53:03.726] ...future.X_jj <- ...future.elements_ii[[jj]] 1583s [00:53:03.726] ...future.FUN(...future.X_jj, ...) 1583s [00:53:03.726] }) 1583s [00:53:03.726] } 1583s [00:53:03.726] }, args = future.call.arguments) 1583s [00:53:03.726] } 1583s [00:53:03.727] Tweak future expression to call with '...' arguments ... DONE 1583s [00:53:03.727] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1583s [00:53:03.727] 1583s [00:53:03.728] getGlobalsAndPackages() ... DONE 1583s [00:53:03.728] run() for ‘Future’ ... 1583s [00:53:03.728] - state: ‘created’ 1583s [00:53:03.728] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1583s [00:53:03.732] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1583s [00:53:03.732] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1583s [00:53:03.732] - Field: ‘label’ 1583s [00:53:03.732] - Field: ‘local’ 1583s [00:53:03.732] - Field: ‘owner’ 1583s [00:53:03.732] - Field: ‘envir’ 1583s [00:53:03.733] - Field: ‘packages’ 1583s [00:53:03.733] - Field: ‘gc’ 1583s [00:53:03.733] - Field: ‘conditions’ 1583s [00:53:03.733] - Field: ‘expr’ 1583s [00:53:03.733] - Field: ‘uuid’ 1583s [00:53:03.733] - Field: ‘seed’ 1583s [00:53:03.734] - Field: ‘version’ 1583s [00:53:03.734] - Field: ‘result’ 1583s [00:53:03.734] - Field: ‘asynchronous’ 1583s [00:53:03.734] - Field: ‘calls’ 1583s [00:53:03.734] - Field: ‘globals’ 1583s [00:53:03.734] - Field: ‘stdout’ 1583s [00:53:03.734] - Field: ‘earlySignal’ 1583s [00:53:03.735] - Field: ‘lazy’ 1583s [00:53:03.735] - Field: ‘state’ 1583s [00:53:03.735] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1583s [00:53:03.735] - Launch lazy future ... 1583s [00:53:03.735] Packages needed by the future expression (n = 0): 1583s [00:53:03.735] Packages needed by future strategies (n = 0): 1583s [00:53:03.736] { 1583s [00:53:03.736] { 1583s [00:53:03.736] { 1583s [00:53:03.736] ...future.startTime <- base::Sys.time() 1583s [00:53:03.736] { 1583s [00:53:03.736] { 1583s [00:53:03.736] { 1583s [00:53:03.736] base::local({ 1583s [00:53:03.736] has_future <- base::requireNamespace("future", 1583s [00:53:03.736] quietly = TRUE) 1583s [00:53:03.736] if (has_future) { 1583s [00:53:03.736] ns <- base::getNamespace("future") 1583s [00:53:03.736] version <- ns[[".package"]][["version"]] 1583s [00:53:03.736] if (is.null(version)) 1583s [00:53:03.736] version <- utils::packageVersion("future") 1583s [00:53:03.736] } 1583s [00:53:03.736] else { 1583s [00:53:03.736] version <- NULL 1583s [00:53:03.736] } 1583s [00:53:03.736] if (!has_future || version < "1.8.0") { 1583s [00:53:03.736] info <- base::c(r_version = base::gsub("R version ", 1583s [00:53:03.736] "", base::R.version$version.string), 1583s [00:53:03.736] platform = base::sprintf("%s (%s-bit)", 1583s [00:53:03.736] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1583s [00:53:03.736] os = base::paste(base::Sys.info()[base::c("sysname", 1583s [00:53:03.736] "release", "version")], collapse = " "), 1583s [00:53:03.736] hostname = base::Sys.info()[["nodename"]]) 1583s [00:53:03.736] info <- base::sprintf("%s: %s", base::names(info), 1583s [00:53:03.736] info) 1583s [00:53:03.736] info <- base::paste(info, collapse = "; ") 1583s [00:53:03.736] if (!has_future) { 1583s [00:53:03.736] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1583s [00:53:03.736] info) 1583s [00:53:03.736] } 1583s [00:53:03.736] else { 1583s [00:53:03.736] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1583s [00:53:03.736] info, version) 1583s [00:53:03.736] } 1583s [00:53:03.736] base::stop(msg) 1583s [00:53:03.736] } 1583s [00:53:03.736] }) 1583s [00:53:03.736] } 1583s [00:53:03.736] options(future.plan = NULL) 1583s [00:53:03.736] Sys.unsetenv("R_FUTURE_PLAN") 1583s [00:53:03.736] future::plan("default", .cleanup = FALSE, .init = FALSE) 1583s [00:53:03.736] } 1583s [00:53:03.736] ...future.workdir <- getwd() 1583s [00:53:03.736] } 1583s [00:53:03.736] ...future.oldOptions <- base::as.list(base::.Options) 1583s [00:53:03.736] ...future.oldEnvVars <- base::Sys.getenv() 1583s [00:53:03.736] } 1583s [00:53:03.736] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1583s [00:53:03.736] future.globals.maxSize = NULL, future.globals.method = NULL, 1583s [00:53:03.736] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1583s [00:53:03.736] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1583s [00:53:03.736] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1583s [00:53:03.736] future.stdout.windows.reencode = NULL, width = 80L) 1583s [00:53:03.736] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1583s [00:53:03.736] base::names(...future.oldOptions)) 1583s [00:53:03.736] } 1583s [00:53:03.736] if (FALSE) { 1583s [00:53:03.736] } 1583s [00:53:03.736] else { 1583s [00:53:03.736] if (TRUE) { 1583s [00:53:03.736] ...future.stdout <- base::rawConnection(base::raw(0L), 1583s [00:53:03.736] open = "w") 1583s [00:53:03.736] } 1583s [00:53:03.736] else { 1583s [00:53:03.736] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1583s [00:53:03.736] windows = "NUL", "/dev/null"), open = "w") 1583s [00:53:03.736] } 1583s [00:53:03.736] base::sink(...future.stdout, type = "output", split = FALSE) 1583s [00:53:03.736] base::on.exit(if (!base::is.null(...future.stdout)) { 1583s [00:53:03.736] base::sink(type = "output", split = FALSE) 1583s [00:53:03.736] base::close(...future.stdout) 1583s [00:53:03.736] }, add = TRUE) 1583s [00:53:03.736] } 1583s [00:53:03.736] ...future.frame <- base::sys.nframe() 1583s [00:53:03.736] ...future.conditions <- base::list() 1583s [00:53:03.736] ...future.rng <- base::globalenv()$.Random.seed 1583s [00:53:03.736] if (FALSE) { 1583s [00:53:03.736] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1583s [00:53:03.736] "...future.value", "...future.globalenv.names", ".Random.seed") 1583s [00:53:03.736] } 1583s [00:53:03.736] ...future.result <- base::tryCatch({ 1583s [00:53:03.736] base::withCallingHandlers({ 1583s [00:53:03.736] ...future.value <- base::withVisible(base::local({ 1583s [00:53:03.736] do.call(function(...) { 1583s [00:53:03.736] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1583s [00:53:03.736] if (!identical(...future.globals.maxSize.org, 1583s [00:53:03.736] ...future.globals.maxSize)) { 1583s [00:53:03.736] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1583s [00:53:03.736] on.exit(options(oopts), add = TRUE) 1583s [00:53:03.736] } 1583s [00:53:03.736] { 1583s [00:53:03.736] lapply(seq_along(...future.elements_ii), 1583s [00:53:03.736] FUN = function(jj) { 1583s [00:53:03.736] ...future.X_jj <- ...future.elements_ii[[jj]] 1583s [00:53:03.736] ...future.FUN(...future.X_jj, ...) 1583s [00:53:03.736] }) 1583s [00:53:03.736] } 1583s [00:53:03.736] }, args = future.call.arguments) 1583s [00:53:03.736] })) 1583s [00:53:03.736] future::FutureResult(value = ...future.value$value, 1583s [00:53:03.736] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1583s [00:53:03.736] ...future.rng), globalenv = if (FALSE) 1583s [00:53:03.736] list(added = base::setdiff(base::names(base::.GlobalEnv), 1583s [00:53:03.736] ...future.globalenv.names)) 1583s [00:53:03.736] else NULL, started = ...future.startTime, version = "1.8") 1583s [00:53:03.736] }, condition = base::local({ 1583s [00:53:03.736] c <- base::c 1583s [00:53:03.736] inherits <- base::inherits 1583s [00:53:03.736] invokeRestart <- base::invokeRestart 1583s [00:53:03.736] length <- base::length 1583s [00:53:03.736] list <- base::list 1583s [00:53:03.736] seq.int <- base::seq.int 1583s [00:53:03.736] signalCondition <- base::signalCondition 1583s [00:53:03.736] sys.calls <- base::sys.calls 1583s [00:53:03.736] `[[` <- base::`[[` 1583s [00:53:03.736] `+` <- base::`+` 1583s [00:53:03.736] `<<-` <- base::`<<-` 1583s [00:53:03.736] sysCalls <- function(calls = sys.calls(), from = 1L) { 1583s [00:53:03.736] calls[seq.int(from = from + 12L, to = length(calls) - 1583s [00:53:03.736] 3L)] 1583s [00:53:03.736] } 1583s [00:53:03.736] function(cond) { 1583s [00:53:03.736] is_error <- inherits(cond, "error") 1583s [00:53:03.736] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1583s [00:53:03.736] NULL) 1583s [00:53:03.736] if (is_error) { 1583s [00:53:03.736] sessionInformation <- function() { 1583s [00:53:03.736] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1583s [00:53:03.736] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1583s [00:53:03.736] search = base::search(), system = base::Sys.info()) 1583s [00:53:03.736] } 1583s [00:53:03.736] ...future.conditions[[length(...future.conditions) + 1583s [00:53:03.736] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1583s [00:53:03.736] cond$call), session = sessionInformation(), 1583s [00:53:03.736] timestamp = base::Sys.time(), signaled = 0L) 1583s [00:53:03.736] signalCondition(cond) 1583s [00:53:03.736] } 1583s [00:53:03.736] else if (!ignore && TRUE && inherits(cond, c("condition", 1583s [00:53:03.736] "immediateCondition"))) { 1583s [00:53:03.736] signal <- TRUE && inherits(cond, "immediateCondition") 1583s [00:53:03.736] ...future.conditions[[length(...future.conditions) + 1583s [00:53:03.736] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1583s [00:53:03.736] if (TRUE && !signal) { 1583s [00:53:03.736] muffleCondition <- function (cond, pattern = "^muffle") 1583s [00:53:03.736] { 1583s [00:53:03.736] inherits <- base::inherits 1583s [00:53:03.736] invokeRestart <- base::invokeRestart 1583s [00:53:03.736] is.null <- base::is.null 1583s [00:53:03.736] muffled <- FALSE 1583s [00:53:03.736] if (inherits(cond, "message")) { 1583s [00:53:03.736] muffled <- grepl(pattern, "muffleMessage") 1583s [00:53:03.736] if (muffled) 1583s [00:53:03.736] invokeRestart("muffleMessage") 1583s [00:53:03.736] } 1583s [00:53:03.736] else if (inherits(cond, "warning")) { 1583s [00:53:03.736] muffled <- grepl(pattern, "muffleWarning") 1583s [00:53:03.736] if (muffled) 1583s [00:53:03.736] invokeRestart("muffleWarning") 1583s [00:53:03.736] } 1583s [00:53:03.736] else if (inherits(cond, "condition")) { 1583s [00:53:03.736] if (!is.null(pattern)) { 1583s [00:53:03.736] computeRestarts <- base::computeRestarts 1583s [00:53:03.736] grepl <- base::grepl 1583s [00:53:03.736] restarts <- computeRestarts(cond) 1583s [00:53:03.736] for (restart in restarts) { 1583s [00:53:03.736] name <- restart$name 1583s [00:53:03.736] if (is.null(name)) 1583s [00:53:03.736] next 1583s [00:53:03.736] if (!grepl(pattern, name)) 1583s [00:53:03.736] next 1583s [00:53:03.736] invokeRestart(restart) 1583s [00:53:03.736] muffled <- TRUE 1583s [00:53:03.736] break 1583s [00:53:03.736] } 1583s [00:53:03.736] } 1583s [00:53:03.736] } 1583s [00:53:03.736] invisible(muffled) 1583s [00:53:03.736] } 1583s [00:53:03.736] muffleCondition(cond, pattern = "^muffle") 1583s [00:53:03.736] } 1583s [00:53:03.736] } 1583s [00:53:03.736] else { 1583s [00:53:03.736] if (TRUE) { 1583s [00:53:03.736] muffleCondition <- function (cond, pattern = "^muffle") 1583s [00:53:03.736] { 1583s [00:53:03.736] inherits <- base::inherits 1583s [00:53:03.736] invokeRestart <- base::invokeRestart 1583s [00:53:03.736] is.null <- base::is.null 1583s [00:53:03.736] muffled <- FALSE 1583s [00:53:03.736] if (inherits(cond, "message")) { 1583s [00:53:03.736] muffled <- grepl(pattern, "muffleMessage") 1583s [00:53:03.736] if (muffled) 1583s [00:53:03.736] invokeRestart("muffleMessage") 1583s [00:53:03.736] } 1583s [00:53:03.736] else if (inherits(cond, "warning")) { 1583s [00:53:03.736] muffled <- grepl(pattern, "muffleWarning") 1583s [00:53:03.736] if (muffled) 1583s [00:53:03.736] invokeRestart("muffleWarning") 1583s [00:53:03.736] } 1583s [00:53:03.736] else if (inherits(cond, "condition")) { 1583s [00:53:03.736] if (!is.null(pattern)) { 1583s [00:53:03.736] computeRestarts <- base::computeRestarts 1583s [00:53:03.736] grepl <- base::grepl 1583s [00:53:03.736] restarts <- computeRestarts(cond) 1583s [00:53:03.736] for (restart in restarts) { 1583s [00:53:03.736] name <- restart$name 1583s [00:53:03.736] if (is.null(name)) 1583s [00:53:03.736] next 1583s [00:53:03.736] if (!grepl(pattern, name)) 1583s [00:53:03.736] next 1583s [00:53:03.736] invokeRestart(restart) 1583s [00:53:03.736] muffled <- TRUE 1583s [00:53:03.736] break 1583s [00:53:03.736] } 1583s [00:53:03.736] } 1583s [00:53:03.736] } 1583s [00:53:03.736] invisible(muffled) 1583s [00:53:03.736] } 1583s [00:53:03.736] muffleCondition(cond, pattern = "^muffle") 1583s [00:53:03.736] } 1583s [00:53:03.736] } 1583s [00:53:03.736] } 1583s [00:53:03.736] })) 1583s [00:53:03.736] }, error = function(ex) { 1583s [00:53:03.736] base::structure(base::list(value = NULL, visible = NULL, 1583s [00:53:03.736] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1583s [00:53:03.736] ...future.rng), started = ...future.startTime, 1583s [00:53:03.736] finished = Sys.time(), session_uuid = NA_character_, 1583s [00:53:03.736] version = "1.8"), class = "FutureResult") 1583s [00:53:03.736] }, finally = { 1583s [00:53:03.736] if (!identical(...future.workdir, getwd())) 1583s [00:53:03.736] setwd(...future.workdir) 1583s [00:53:03.736] { 1583s [00:53:03.736] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1583s [00:53:03.736] ...future.oldOptions$nwarnings <- NULL 1583s [00:53:03.736] } 1583s [00:53:03.736] base::options(...future.oldOptions) 1583s [00:53:03.736] if (.Platform$OS.type == "windows") { 1583s [00:53:03.736] old_names <- names(...future.oldEnvVars) 1583s [00:53:03.736] envs <- base::Sys.getenv() 1583s [00:53:03.736] names <- names(envs) 1583s [00:53:03.736] common <- intersect(names, old_names) 1583s [00:53:03.736] added <- setdiff(names, old_names) 1583s [00:53:03.736] removed <- setdiff(old_names, names) 1583s [00:53:03.736] changed <- common[...future.oldEnvVars[common] != 1583s [00:53:03.736] envs[common]] 1583s [00:53:03.736] NAMES <- toupper(changed) 1583s [00:53:03.736] args <- list() 1583s [00:53:03.736] for (kk in seq_along(NAMES)) { 1583s [00:53:03.736] name <- changed[[kk]] 1583s [00:53:03.736] NAME <- NAMES[[kk]] 1583s [00:53:03.736] if (name != NAME && is.element(NAME, old_names)) 1583s [00:53:03.736] next 1583s [00:53:03.736] args[[name]] <- ...future.oldEnvVars[[name]] 1583s [00:53:03.736] } 1583s [00:53:03.736] NAMES <- toupper(added) 1583s [00:53:03.736] for (kk in seq_along(NAMES)) { 1583s [00:53:03.736] name <- added[[kk]] 1583s [00:53:03.736] NAME <- NAMES[[kk]] 1583s [00:53:03.736] if (name != NAME && is.element(NAME, old_names)) 1583s [00:53:03.736] next 1583s [00:53:03.736] args[[name]] <- "" 1583s [00:53:03.736] } 1583s [00:53:03.736] NAMES <- toupper(removed) 1583s [00:53:03.736] for (kk in seq_along(NAMES)) { 1583s [00:53:03.736] name <- removed[[kk]] 1583s [00:53:03.736] NAME <- NAMES[[kk]] 1583s [00:53:03.736] if (name != NAME && is.element(NAME, old_names)) 1583s [00:53:03.736] next 1583s [00:53:03.736] args[[name]] <- ...future.oldEnvVars[[name]] 1583s [00:53:03.736] } 1583s [00:53:03.736] if (length(args) > 0) 1583s [00:53:03.736] base::do.call(base::Sys.setenv, args = args) 1583s [00:53:03.736] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1583s [00:53:03.736] } 1583s [00:53:03.736] else { 1583s [00:53:03.736] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1583s [00:53:03.736] } 1583s [00:53:03.736] { 1583s [00:53:03.736] if (base::length(...future.futureOptionsAdded) > 1583s [00:53:03.736] 0L) { 1583s [00:53:03.736] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1583s [00:53:03.736] base::names(opts) <- ...future.futureOptionsAdded 1583s [00:53:03.736] base::options(opts) 1583s [00:53:03.736] } 1583s [00:53:03.736] { 1583s [00:53:03.736] { 1583s [00:53:03.736] NULL 1583s [00:53:03.736] RNGkind("Mersenne-Twister") 1583s [00:53:03.736] base::rm(list = ".Random.seed", envir = base::globalenv(), 1583s [00:53:03.736] inherits = FALSE) 1583s [00:53:03.736] } 1583s [00:53:03.736] options(future.plan = NULL) 1583s [00:53:03.736] if (is.na(NA_character_)) 1583s [00:53:03.736] Sys.unsetenv("R_FUTURE_PLAN") 1583s [00:53:03.736] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1583s [00:53:03.736] future::plan(list(function (..., workers = availableCores(), 1583s [00:53:03.736] lazy = FALSE, rscript_libs = .libPaths(), 1583s [00:53:03.736] envir = parent.frame()) 1583s [00:53:03.736] { 1583s [00:53:03.736] if (is.function(workers)) 1583s [00:53:03.736] workers <- workers() 1583s [00:53:03.736] workers <- structure(as.integer(workers), 1583s [00:53:03.736] class = class(workers)) 1583s [00:53:03.736] stop_if_not(length(workers) == 1, is.finite(workers), 1583s [00:53:03.736] workers >= 1) 1583s [00:53:03.736] if (workers == 1L && !inherits(workers, "AsIs")) { 1583s [00:53:03.736] return(sequential(..., lazy = TRUE, envir = envir)) 1583s [00:53:03.736] } 1583s [00:53:03.736] future <- MultisessionFuture(..., workers = workers, 1583s [00:53:03.736] lazy = lazy, rscript_libs = rscript_libs, 1583s [00:53:03.736] envir = envir) 1583s [00:53:03.736] if (!future$lazy) 1583s [00:53:03.736] future <- run(future) 1583s [00:53:03.736] invisible(future) 1583s [00:53:03.736] }), .cleanup = FALSE, .init = FALSE) 1583s [00:53:03.736] } 1583s [00:53:03.736] } 1583s [00:53:03.736] } 1583s [00:53:03.736] }) 1583s [00:53:03.736] if (TRUE) { 1583s [00:53:03.736] base::sink(type = "output", split = FALSE) 1583s [00:53:03.736] if (TRUE) { 1583s [00:53:03.736] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1583s [00:53:03.736] } 1583s [00:53:03.736] else { 1583s [00:53:03.736] ...future.result["stdout"] <- base::list(NULL) 1583s [00:53:03.736] } 1583s [00:53:03.736] base::close(...future.stdout) 1583s [00:53:03.736] ...future.stdout <- NULL 1583s [00:53:03.736] } 1583s [00:53:03.736] ...future.result$conditions <- ...future.conditions 1583s [00:53:03.736] ...future.result$finished <- base::Sys.time() 1583s [00:53:03.736] ...future.result 1583s [00:53:03.736] } 1583s [00:53:03.739] assign_globals() ... 1583s [00:53:03.739] List of 5 1583s [00:53:03.739] $ ...future.FUN :function (x) 1583s [00:53:03.739] $ future.call.arguments : list() 1583s [00:53:03.739] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1583s [00:53:03.739] $ ...future.elements_ii :List of 4 1583s [00:53:03.739] ..$ A: num 50 1583s [00:53:03.739] ..$ B: num 60 1583s [00:53:03.739] ..$ C: num 70 1583s [00:53:03.739] ..$ D: num 80 1583s [00:53:03.739] $ ...future.seeds_ii : NULL 1583s [00:53:03.739] $ ...future.globals.maxSize: NULL 1583s [00:53:03.739] - attr(*, "where")=List of 5 1583s [00:53:03.739] ..$ ...future.FUN : 1583s [00:53:03.739] ..$ future.call.arguments : 1583s [00:53:03.739] ..$ ...future.elements_ii : 1583s [00:53:03.739] ..$ ...future.seeds_ii : 1583s [00:53:03.739] ..$ ...future.globals.maxSize: 1583s [00:53:03.739] - attr(*, "resolved")= logi FALSE 1583s [00:53:03.739] - attr(*, "total_size")= num 848 1583s [00:53:03.739] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1583s [00:53:03.739] - attr(*, "already-done")= logi TRUE 1583s [00:53:03.746] - copied ‘...future.FUN’ to environment 1583s [00:53:03.747] - copied ‘future.call.arguments’ to environment 1583s [00:53:03.747] - copied ‘...future.elements_ii’ to environment 1583s [00:53:03.747] - copied ‘...future.seeds_ii’ to environment 1583s [00:53:03.747] - copied ‘...future.globals.maxSize’ to environment 1583s [00:53:03.747] assign_globals() ... done 1583s [00:53:03.747] plan(): Setting new future strategy stack: 1583s [00:53:03.748] List of future strategies: 1583s [00:53:03.748] 1. sequential: 1583s [00:53:03.748] - args: function (..., envir = parent.frame()) 1583s [00:53:03.748] - tweaked: FALSE 1583s [00:53:03.748] - call: NULL 1583s [00:53:03.748] plan(): nbrOfWorkers() = 1 1583s [00:53:03.749] plan(): Setting new future strategy stack: 1583s [00:53:03.749] List of future strategies: 1583s [00:53:03.749] 1. multisession: 1583s [00:53:03.749] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1583s [00:53:03.749] - tweaked: FALSE 1583s [00:53:03.749] - call: plan(strategy) 1583s [00:53:03.753] plan(): nbrOfWorkers() = 1 1583s [00:53:03.753] SequentialFuture started (and completed) 1583s [00:53:03.753] - Launch lazy future ... done 1583s [00:53:03.753] run() for ‘SequentialFuture’ ... done 1583s [00:53:03.754] Created future: 1583s [00:53:03.754] SequentialFuture: 1583s [00:53:03.754] Label: ‘future_sapply-1’ 1583s [00:53:03.754] Expression: 1583s [00:53:03.754] { 1583s [00:53:03.754] do.call(function(...) { 1583s [00:53:03.754] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1583s [00:53:03.754] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1583s [00:53:03.754] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1583s [00:53:03.754] on.exit(options(oopts), add = TRUE) 1583s [00:53:03.754] } 1583s [00:53:03.754] { 1583s [00:53:03.754] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1583s [00:53:03.754] ...future.X_jj <- ...future.elements_ii[[jj]] 1583s [00:53:03.754] ...future.FUN(...future.X_jj, ...) 1583s [00:53:03.754] }) 1583s [00:53:03.754] } 1583s [00:53:03.754] }, args = future.call.arguments) 1583s [00:53:03.754] } 1583s [00:53:03.754] Lazy evaluation: FALSE 1583s [00:53:03.754] Asynchronous evaluation: FALSE 1583s [00:53:03.754] Local evaluation: TRUE 1583s [00:53:03.754] Environment: R_GlobalEnv 1583s [00:53:03.754] Capture standard output: TRUE 1583s [00:53:03.754] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1583s [00:53:03.754] Globals: 5 objects totaling 1.05 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1583s [00:53:03.754] Packages: 1583s [00:53:03.754] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1583s [00:53:03.754] Resolved: TRUE 1583s [00:53:03.754] Value: 224 bytes of class ‘list’ 1583s [00:53:03.754] Early signaling: FALSE 1583s [00:53:03.754] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1583s [00:53:03.754] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1583s [00:53:03.755] Chunk #1 of 1 ... DONE 1583s [00:53:03.755] Launching 1 futures (chunks) ... DONE 1583s [00:53:03.756] Resolving 1 futures (chunks) ... 1583s [00:53:03.756] resolve() on list ... 1583s [00:53:03.756] recursive: 0 1583s [00:53:03.756] length: 1 1583s [00:53:03.756] 1583s [00:53:03.756] resolved() for ‘SequentialFuture’ ... 1583s [00:53:03.756] - state: ‘finished’ 1583s [00:53:03.757] - run: TRUE 1583s [00:53:03.757] - result: ‘FutureResult’ 1583s [00:53:03.757] resolved() for ‘SequentialFuture’ ... done 1583s [00:53:03.757] Future #1 1583s [00:53:03.757] signalConditionsASAP(SequentialFuture, pos=1) ... 1583s [00:53:03.757] - nx: 1 1583s [00:53:03.758] - relay: TRUE 1583s [00:53:03.758] - stdout: TRUE 1583s [00:53:03.758] - signal: TRUE 1583s [00:53:03.758] - resignal: FALSE 1583s [00:53:03.758] - force: TRUE 1583s [00:53:03.758] - relayed: [n=1] FALSE 1583s [00:53:03.758] - queued futures: [n=1] FALSE 1583s [00:53:03.759] - until=1 1583s [00:53:03.759] - relaying element #1 1583s [00:53:03.759] - relayed: [n=1] TRUE 1583s [00:53:03.759] - queued futures: [n=1] TRUE 1583s [00:53:03.759] signalConditionsASAP(SequentialFuture, pos=1) ... done 1583s [00:53:03.759] length: 0 (resolved future 1) 1583s [00:53:03.760] Relaying remaining futures 1583s [00:53:03.760] signalConditionsASAP(NULL, pos=0) ... 1583s [00:53:03.760] - nx: 1 1583s [00:53:03.760] - relay: TRUE 1583s [00:53:03.760] - stdout: TRUE 1583s [00:53:03.760] - signal: TRUE 1583s [00:53:03.761] - resignal: FALSE 1583s [00:53:03.761] - force: TRUE 1583s [00:53:03.761] - relayed: [n=1] TRUE 1583s [00:53:03.761] - queued futures: [n=1] TRUE 1583s - flush all 1583s [00:53:03.761] - relayed: [n=1] TRUE 1583s [00:53:03.761] - queued futures: [n=1] TRUE 1583s [00:53:03.762] signalConditionsASAP(NULL, pos=0) ... done 1583s [00:53:03.762] resolve() on list ... DONE 1583s [00:53:03.762] - Number of value chunks collected: 1 1583s [00:53:03.762] Resolving 1 futures (chunks) ... DONE 1583s [00:53:03.762] Reducing values from 1 chunks ... 1583s [00:53:03.762] - Number of values collected after concatenation: 4 1583s [00:53:03.763] - Number of values expected: 4 1583s [00:53:03.763] Reducing values from 1 chunks ... DONE 1583s List of 2 1583s $ y0: Named num [1:4] 50 60 70 80 1583s ..- attr(*, "names")= chr [1:4] "A" "B" "C" "D" 1583s $ y1[00:53:03.763] future_lapply() ... DONE 1583s : Named num [1:4] 50 60 70 80 1583s ..- attr(*, "names")= chr [1:4] "A" "B" "C" "D" 1583s [00:53:03.766] future_lapply() ... 1583s [00:53:03.769] Number of chunks: 1 1583s [00:53:03.770] getGlobalsAndPackagesXApply() ... 1583s [00:53:03.770] - future.globals: TRUE 1583s [00:53:03.770] getGlobalsAndPackages() ... 1583s [00:53:03.770] Searching for globals... 1583s [00:53:03.772] - globals found: [2] ‘FUN’, ‘UseMethod’ 1583s [00:53:03.772] Searching for globals ... DONE 1583s [00:53:03.772] Resolving globals: FALSE 1583s [00:53:03.773] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1583s [00:53:03.773] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1583s [00:53:03.774] - globals: [1] ‘FUN’ 1583s [00:53:03.774] 1583s [00:53:03.774] getGlobalsAndPackages() ... DONE 1583s [00:53:03.774] - globals found/used: [n=1] ‘FUN’ 1583s [00:53:03.774] - needed namespaces: [n=0] 1583s [00:53:03.774] Finding globals ... DONE 1583s [00:53:03.775] - use_args: TRUE 1583s [00:53:03.775] - Getting '...' globals ... 1583s [00:53:03.775] resolve() on list ... 1583s [00:53:03.775] recursive: 0 1583s [00:53:03.775] length: 1 1583s [00:53:03.776] elements: ‘...’ 1583s [00:53:03.776] length: 0 (resolved future 1) 1583s [00:53:03.776] resolve() on list ... DONE 1583s [00:53:03.776] - '...' content: [n=0] 1583s [00:53:03.776] List of 1 1583s [00:53:03.776] $ ...: list() 1583s [00:53:03.776] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1583s [00:53:03.776] - attr(*, "where")=List of 1 1583s [00:53:03.776] ..$ ...: 1583s [00:53:03.776] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1583s [00:53:03.776] - attr(*, "resolved")= logi TRUE 1583s [00:53:03.776] - attr(*, "total_size")= num NA 1583s [00:53:03.779] - Getting '...' globals ... DONE 1583s [00:53:03.779] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1583s [00:53:03.780] List of 2 1583s [00:53:03.780] $ ...future.FUN:function (x, ...) 1583s [00:53:03.780] $ ... : list() 1583s [00:53:03.780] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1583s [00:53:03.780] - attr(*, "where")=List of 2 1583s [00:53:03.780] ..$ ...future.FUN: 1583s [00:53:03.780] ..$ ... : 1583s [00:53:03.780] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1583s [00:53:03.780] - attr(*, "resolved")= logi FALSE 1583s [00:53:03.780] - attr(*, "total_size")= num 1248 1583s [00:53:03.783] Packages to be attached in all futures: [n=0] 1583s [00:53:03.783] getGlobalsAndPackagesXApply() ... DONE 1583s [00:53:03.783] Number of futures (= number of chunks): 1 1583s [00:53:03.783] Launching 1 futures (chunks) ... 1583s [00:53:03.784] Chunk #1 of 1 ... 1583s [00:53:03.784] - Finding globals in 'X' for chunk #1 ... 1583s [00:53:03.784] getGlobalsAndPackages() ... 1583s [00:53:03.784] Searching for globals... 1583s [00:53:03.784] 1583s [00:53:03.785] Searching for globals ... DONE 1583s [00:53:03.785] - globals: [0] 1583s [00:53:03.785] getGlobalsAndPackages() ... DONE 1583s [00:53:03.785] + additional globals found: [n=0] 1583s [00:53:03.785] + additional namespaces needed: [n=0] 1583s [00:53:03.785] - Finding globals in 'X' for chunk #1 ... DONE 1583s [00:53:03.785] - seeds: 1583s [00:53:03.785] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1583s [00:53:03.786] getGlobalsAndPackages() ... 1583s [00:53:03.786] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1583s [00:53:03.786] Resolving globals: FALSE 1583s [00:53:03.786] Tweak future expression to call with '...' arguments ... 1583s [00:53:03.786] { 1583s [00:53:03.786] do.call(function(...) { 1583s [00:53:03.786] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1583s [00:53:03.786] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1583s [00:53:03.786] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1583s [00:53:03.786] on.exit(options(oopts), add = TRUE) 1583s [00:53:03.786] } 1583s [00:53:03.786] { 1583s [00:53:03.786] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1583s [00:53:03.786] ...future.X_jj <- ...future.elements_ii[[jj]] 1583s [00:53:03.786] ...future.FUN(...future.X_jj, ...) 1583s [00:53:03.786] }) 1583s [00:53:03.786] } 1583s [00:53:03.786] }, args = future.call.arguments) 1583s [00:53:03.786] } 1583s [00:53:03.786] Tweak future expression to call with '...' arguments ... DONE 1583s [00:53:03.787] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1583s [00:53:03.787] 1583s [00:53:03.787] getGlobalsAndPackages() ... DONE 1583s [00:53:03.787] run() for ‘Future’ ... 1583s [00:53:03.788] - state: ‘created’ 1583s [00:53:03.788] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1583s [00:53:03.791] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1583s [00:53:03.791] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1583s [00:53:03.791] - Field: ‘label’ 1583s [00:53:03.792] - Field: ‘local’ 1583s [00:53:03.792] - Field: ‘owner’ 1583s [00:53:03.792] - Field: ‘envir’ 1583s [00:53:03.792] - Field: ‘packages’ 1583s [00:53:03.792] - Field: ‘gc’ 1583s [00:53:03.792] - Field: ‘conditions’ 1583s [00:53:03.792] - Field: ‘expr’ 1583s [00:53:03.793] - Field: ‘uuid’ 1583s [00:53:03.793] - Field: ‘seed’ 1583s [00:53:03.793] - Field: ‘version’ 1583s [00:53:03.793] - Field: ‘result’ 1583s [00:53:03.794] - Field: ‘asynchronous’ 1583s [00:53:03.794] - Field: ‘calls’ 1583s [00:53:03.794] - Field: ‘globals’ 1583s [00:53:03.795] - Field: ‘stdout’ 1583s [00:53:03.795] - Field: ‘earlySignal’ 1583s [00:53:03.795] - Field: ‘lazy’ 1583s [00:53:03.795] - Field: ‘state’ 1583s [00:53:03.795] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1583s [00:53:03.796] - Launch lazy future ... 1583s [00:53:03.796] Packages needed by the future expression (n = 0): 1583s [00:53:03.796] Packages needed by future strategies (n = 0): 1583s [00:53:03.797] { 1583s [00:53:03.797] { 1583s [00:53:03.797] { 1583s [00:53:03.797] ...future.startTime <- base::Sys.time() 1583s [00:53:03.797] { 1583s [00:53:03.797] { 1583s [00:53:03.797] { 1583s [00:53:03.797] base::local({ 1583s [00:53:03.797] has_future <- base::requireNamespace("future", 1583s [00:53:03.797] quietly = TRUE) 1583s [00:53:03.797] if (has_future) { 1583s [00:53:03.797] ns <- base::getNamespace("future") 1583s [00:53:03.797] version <- ns[[".package"]][["version"]] 1583s [00:53:03.797] if (is.null(version)) 1583s [00:53:03.797] version <- utils::packageVersion("future") 1583s [00:53:03.797] } 1583s [00:53:03.797] else { 1583s [00:53:03.797] version <- NULL 1583s [00:53:03.797] } 1583s [00:53:03.797] if (!has_future || version < "1.8.0") { 1583s [00:53:03.797] info <- base::c(r_version = base::gsub("R version ", 1583s [00:53:03.797] "", base::R.version$version.string), 1583s [00:53:03.797] platform = base::sprintf("%s (%s-bit)", 1583s [00:53:03.797] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1583s [00:53:03.797] os = base::paste(base::Sys.info()[base::c("sysname", 1583s [00:53:03.797] "release", "version")], collapse = " "), 1583s [00:53:03.797] hostname = base::Sys.info()[["nodename"]]) 1583s [00:53:03.797] info <- base::sprintf("%s: %s", base::names(info), 1583s [00:53:03.797] info) 1583s [00:53:03.797] info <- base::paste(info, collapse = "; ") 1583s [00:53:03.797] if (!has_future) { 1583s [00:53:03.797] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1583s [00:53:03.797] info) 1583s [00:53:03.797] } 1583s [00:53:03.797] else { 1583s [00:53:03.797] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1583s [00:53:03.797] info, version) 1583s [00:53:03.797] } 1583s [00:53:03.797] base::stop(msg) 1583s [00:53:03.797] } 1583s [00:53:03.797] }) 1583s [00:53:03.797] } 1583s [00:53:03.797] options(future.plan = NULL) 1583s [00:53:03.797] Sys.unsetenv("R_FUTURE_PLAN") 1583s [00:53:03.797] future::plan("default", .cleanup = FALSE, .init = FALSE) 1583s [00:53:03.797] } 1583s [00:53:03.797] ...future.workdir <- getwd() 1583s [00:53:03.797] } 1583s [00:53:03.797] ...future.oldOptions <- base::as.list(base::.Options) 1583s [00:53:03.797] ...future.oldEnvVars <- base::Sys.getenv() 1583s [00:53:03.797] } 1583s [00:53:03.797] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1583s [00:53:03.797] future.globals.maxSize = NULL, future.globals.method = NULL, 1583s [00:53:03.797] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1583s [00:53:03.797] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1583s [00:53:03.797] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1583s [00:53:03.797] future.stdout.windows.reencode = NULL, width = 80L) 1583s [00:53:03.797] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1583s [00:53:03.797] base::names(...future.oldOptions)) 1583s [00:53:03.797] } 1583s [00:53:03.797] if (FALSE) { 1583s [00:53:03.797] } 1583s [00:53:03.797] else { 1583s [00:53:03.797] if (TRUE) { 1583s [00:53:03.797] ...future.stdout <- base::rawConnection(base::raw(0L), 1583s [00:53:03.797] open = "w") 1583s [00:53:03.797] } 1583s [00:53:03.797] else { 1583s [00:53:03.797] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1583s [00:53:03.797] windows = "NUL", "/dev/null"), open = "w") 1583s [00:53:03.797] } 1583s [00:53:03.797] base::sink(...future.stdout, type = "output", split = FALSE) 1583s [00:53:03.797] base::on.exit(if (!base::is.null(...future.stdout)) { 1583s [00:53:03.797] base::sink(type = "output", split = FALSE) 1583s [00:53:03.797] base::close(...future.stdout) 1583s [00:53:03.797] }, add = TRUE) 1583s [00:53:03.797] } 1583s [00:53:03.797] ...future.frame <- base::sys.nframe() 1583s [00:53:03.797] ...future.conditions <- base::list() 1583s [00:53:03.797] ...future.rng <- base::globalenv()$.Random.seed 1583s [00:53:03.797] if (FALSE) { 1583s [00:53:03.797] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1583s [00:53:03.797] "...future.value", "...future.globalenv.names", ".Random.seed") 1583s [00:53:03.797] } 1583s [00:53:03.797] ...future.result <- base::tryCatch({ 1583s [00:53:03.797] base::withCallingHandlers({ 1583s [00:53:03.797] ...future.value <- base::withVisible(base::local({ 1583s [00:53:03.797] do.call(function(...) { 1583s [00:53:03.797] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1583s [00:53:03.797] if (!identical(...future.globals.maxSize.org, 1583s [00:53:03.797] ...future.globals.maxSize)) { 1583s [00:53:03.797] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1583s [00:53:03.797] on.exit(options(oopts), add = TRUE) 1583s [00:53:03.797] } 1583s [00:53:03.797] { 1583s [00:53:03.797] lapply(seq_along(...future.elements_ii), 1583s [00:53:03.797] FUN = function(jj) { 1583s [00:53:03.797] ...future.X_jj <- ...future.elements_ii[[jj]] 1583s [00:53:03.797] ...future.FUN(...future.X_jj, ...) 1583s [00:53:03.797] }) 1583s [00:53:03.797] } 1583s [00:53:03.797] }, args = future.call.arguments) 1583s [00:53:03.797] })) 1583s [00:53:03.797] future::FutureResult(value = ...future.value$value, 1583s [00:53:03.797] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1583s [00:53:03.797] ...future.rng), globalenv = if (FALSE) 1583s [00:53:03.797] list(added = base::setdiff(base::names(base::.GlobalEnv), 1583s [00:53:03.797] ...future.globalenv.names)) 1583s [00:53:03.797] else NULL, started = ...future.startTime, version = "1.8") 1583s [00:53:03.797] }, condition = base::local({ 1583s [00:53:03.797] c <- base::c 1583s [00:53:03.797] inherits <- base::inherits 1583s [00:53:03.797] invokeRestart <- base::invokeRestart 1583s [00:53:03.797] length <- base::length 1583s [00:53:03.797] list <- base::list 1583s [00:53:03.797] seq.int <- base::seq.int 1583s [00:53:03.797] signalCondition <- base::signalCondition 1583s [00:53:03.797] sys.calls <- base::sys.calls 1583s [00:53:03.797] `[[` <- base::`[[` 1583s [00:53:03.797] `+` <- base::`+` 1583s [00:53:03.797] `<<-` <- base::`<<-` 1583s [00:53:03.797] sysCalls <- function(calls = sys.calls(), from = 1L) { 1583s [00:53:03.797] calls[seq.int(from = from + 12L, to = length(calls) - 1583s [00:53:03.797] 3L)] 1583s [00:53:03.797] } 1583s [00:53:03.797] function(cond) { 1583s [00:53:03.797] is_error <- inherits(cond, "error") 1583s [00:53:03.797] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1583s [00:53:03.797] NULL) 1583s [00:53:03.797] if (is_error) { 1583s [00:53:03.797] sessionInformation <- function() { 1583s [00:53:03.797] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1583s [00:53:03.797] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1583s [00:53:03.797] search = base::search(), system = base::Sys.info()) 1583s [00:53:03.797] } 1583s [00:53:03.797] ...future.conditions[[length(...future.conditions) + 1583s [00:53:03.797] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1583s [00:53:03.797] cond$call), session = sessionInformation(), 1583s [00:53:03.797] timestamp = base::Sys.time(), signaled = 0L) 1583s [00:53:03.797] signalCondition(cond) 1583s [00:53:03.797] } 1583s [00:53:03.797] else if (!ignore && TRUE && inherits(cond, c("condition", 1583s [00:53:03.797] "immediateCondition"))) { 1583s [00:53:03.797] signal <- TRUE && inherits(cond, "immediateCondition") 1583s [00:53:03.797] ...future.conditions[[length(...future.conditions) + 1583s [00:53:03.797] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1583s [00:53:03.797] if (TRUE && !signal) { 1583s [00:53:03.797] muffleCondition <- function (cond, pattern = "^muffle") 1583s [00:53:03.797] { 1583s [00:53:03.797] inherits <- base::inherits 1583s [00:53:03.797] invokeRestart <- base::invokeRestart 1583s [00:53:03.797] is.null <- base::is.null 1583s [00:53:03.797] muffled <- FALSE 1583s [00:53:03.797] if (inherits(cond, "message")) { 1583s [00:53:03.797] muffled <- grepl(pattern, "muffleMessage") 1583s [00:53:03.797] if (muffled) 1583s [00:53:03.797] invokeRestart("muffleMessage") 1583s [00:53:03.797] } 1583s [00:53:03.797] else if (inherits(cond, "warning")) { 1583s [00:53:03.797] muffled <- grepl(pattern, "muffleWarning") 1583s [00:53:03.797] if (muffled) 1583s [00:53:03.797] invokeRestart("muffleWarning") 1583s [00:53:03.797] } 1583s [00:53:03.797] else if (inherits(cond, "condition")) { 1583s [00:53:03.797] if (!is.null(pattern)) { 1583s [00:53:03.797] computeRestarts <- base::computeRestarts 1583s [00:53:03.797] grepl <- base::grepl 1583s [00:53:03.797] restarts <- computeRestarts(cond) 1583s [00:53:03.797] for (restart in restarts) { 1583s [00:53:03.797] name <- restart$name 1583s [00:53:03.797] if (is.null(name)) 1583s [00:53:03.797] next 1583s [00:53:03.797] if (!grepl(pattern, name)) 1583s [00:53:03.797] next 1583s [00:53:03.797] invokeRestart(restart) 1583s [00:53:03.797] muffled <- TRUE 1583s [00:53:03.797] break 1583s [00:53:03.797] } 1583s [00:53:03.797] } 1583s [00:53:03.797] } 1583s [00:53:03.797] invisible(muffled) 1583s [00:53:03.797] } 1583s [00:53:03.797] muffleCondition(cond, pattern = "^muffle") 1583s [00:53:03.797] } 1583s [00:53:03.797] } 1583s [00:53:03.797] else { 1583s [00:53:03.797] if (TRUE) { 1583s [00:53:03.797] muffleCondition <- function (cond, pattern = "^muffle") 1583s [00:53:03.797] { 1583s [00:53:03.797] inherits <- base::inherits 1583s [00:53:03.797] invokeRestart <- base::invokeRestart 1583s [00:53:03.797] is.null <- base::is.null 1583s [00:53:03.797] muffled <- FALSE 1583s [00:53:03.797] if (inherits(cond, "message")) { 1583s [00:53:03.797] muffled <- grepl(pattern, "muffleMessage") 1583s [00:53:03.797] if (muffled) 1583s [00:53:03.797] invokeRestart("muffleMessage") 1583s [00:53:03.797] } 1583s [00:53:03.797] else if (inherits(cond, "warning")) { 1583s [00:53:03.797] muffled <- grepl(pattern, "muffleWarning") 1583s [00:53:03.797] if (muffled) 1583s [00:53:03.797] invokeRestart("muffleWarning") 1583s [00:53:03.797] } 1583s [00:53:03.797] else if (inherits(cond, "condition")) { 1583s [00:53:03.797] if (!is.null(pattern)) { 1583s [00:53:03.797] computeRestarts <- base::computeRestarts 1583s [00:53:03.797] grepl <- base::grepl 1583s [00:53:03.797] restarts <- computeRestarts(cond) 1583s [00:53:03.797] for (restart in restarts) { 1583s [00:53:03.797] name <- restart$name 1583s [00:53:03.797] if (is.null(name)) 1583s [00:53:03.797] next 1583s [00:53:03.797] if (!grepl(pattern, name)) 1583s [00:53:03.797] next 1583s [00:53:03.797] invokeRestart(restart) 1583s [00:53:03.797] muffled <- TRUE 1583s [00:53:03.797] break 1583s [00:53:03.797] } 1583s [00:53:03.797] } 1583s [00:53:03.797] } 1583s [00:53:03.797] invisible(muffled) 1583s [00:53:03.797] } 1583s [00:53:03.797] muffleCondition(cond, pattern = "^muffle") 1583s [00:53:03.797] } 1583s [00:53:03.797] } 1583s [00:53:03.797] } 1583s [00:53:03.797] })) 1583s [00:53:03.797] }, error = function(ex) { 1583s [00:53:03.797] base::structure(base::list(value = NULL, visible = NULL, 1583s [00:53:03.797] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1583s [00:53:03.797] ...future.rng), started = ...future.startTime, 1583s [00:53:03.797] finished = Sys.time(), session_uuid = NA_character_, 1583s [00:53:03.797] version = "1.8"), class = "FutureResult") 1583s [00:53:03.797] }, finally = { 1583s [00:53:03.797] if (!identical(...future.workdir, getwd())) 1583s [00:53:03.797] setwd(...future.workdir) 1583s [00:53:03.797] { 1583s [00:53:03.797] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1583s [00:53:03.797] ...future.oldOptions$nwarnings <- NULL 1583s [00:53:03.797] } 1583s [00:53:03.797] base::options(...future.oldOptions) 1583s [00:53:03.797] if (.Platform$OS.type == "windows") { 1583s [00:53:03.797] old_names <- names(...future.oldEnvVars) 1583s [00:53:03.797] envs <- base::Sys.getenv() 1583s [00:53:03.797] names <- names(envs) 1583s [00:53:03.797] common <- intersect(names, old_names) 1583s [00:53:03.797] added <- setdiff(names, old_names) 1583s [00:53:03.797] removed <- setdiff(old_names, names) 1583s [00:53:03.797] changed <- common[...future.oldEnvVars[common] != 1583s [00:53:03.797] envs[common]] 1583s [00:53:03.797] NAMES <- toupper(changed) 1583s [00:53:03.797] args <- list() 1583s [00:53:03.797] for (kk in seq_along(NAMES)) { 1583s [00:53:03.797] name <- changed[[kk]] 1583s [00:53:03.797] NAME <- NAMES[[kk]] 1583s [00:53:03.797] if (name != NAME && is.element(NAME, old_names)) 1583s [00:53:03.797] next 1583s [00:53:03.797] args[[name]] <- ...future.oldEnvVars[[name]] 1583s [00:53:03.797] } 1583s [00:53:03.797] NAMES <- toupper(added) 1583s [00:53:03.797] for (kk in seq_along(NAMES)) { 1583s [00:53:03.797] name <- added[[kk]] 1583s [00:53:03.797] NAME <- NAMES[[kk]] 1583s [00:53:03.797] if (name != NAME && is.element(NAME, old_names)) 1583s [00:53:03.797] next 1583s [00:53:03.797] args[[name]] <- "" 1583s [00:53:03.797] } 1583s [00:53:03.797] NAMES <- toupper(removed) 1583s [00:53:03.797] for (kk in seq_along(NAMES)) { 1583s [00:53:03.797] name <- removed[[kk]] 1583s [00:53:03.797] NAME <- NAMES[[kk]] 1583s [00:53:03.797] if (name != NAME && is.element(NAME, old_names)) 1583s [00:53:03.797] next 1583s [00:53:03.797] args[[name]] <- ...future.oldEnvVars[[name]] 1583s [00:53:03.797] } 1583s [00:53:03.797] if (length(args) > 0) 1583s [00:53:03.797] base::do.call(base::Sys.setenv, args = args) 1583s [00:53:03.797] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1583s [00:53:03.797] } 1583s [00:53:03.797] else { 1583s [00:53:03.797] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1583s [00:53:03.797] } 1583s [00:53:03.797] { 1583s [00:53:03.797] if (base::length(...future.futureOptionsAdded) > 1583s [00:53:03.797] 0L) { 1583s [00:53:03.797] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1583s [00:53:03.797] base::names(opts) <- ...future.futureOptionsAdded 1583s [00:53:03.797] base::options(opts) 1583s [00:53:03.797] } 1583s [00:53:03.797] { 1583s [00:53:03.797] { 1583s [00:53:03.797] NULL 1583s [00:53:03.797] RNGkind("Mersenne-Twister") 1583s [00:53:03.797] base::rm(list = ".Random.seed", envir = base::globalenv(), 1583s [00:53:03.797] inherits = FALSE) 1583s [00:53:03.797] } 1583s [00:53:03.797] options(future.plan = NULL) 1583s [00:53:03.797] if (is.na(NA_character_)) 1583s [00:53:03.797] Sys.unsetenv("R_FUTURE_PLAN") 1583s [00:53:03.797] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1583s [00:53:03.797] future::plan(list(function (..., workers = availableCores(), 1583s [00:53:03.797] lazy = FALSE, rscript_libs = .libPaths(), 1583s [00:53:03.797] envir = parent.frame()) 1583s [00:53:03.797] { 1583s [00:53:03.797] if (is.function(workers)) 1583s [00:53:03.797] workers <- workers() 1583s [00:53:03.797] workers <- structure(as.integer(workers), 1583s [00:53:03.797] class = class(workers)) 1583s [00:53:03.797] stop_if_not(length(workers) == 1, is.finite(workers), 1583s [00:53:03.797] workers >= 1) 1583s [00:53:03.797] if (workers == 1L && !inherits(workers, "AsIs")) { 1583s [00:53:03.797] return(sequential(..., lazy = TRUE, envir = envir)) 1583s [00:53:03.797] } 1583s [00:53:03.797] future <- MultisessionFuture(..., workers = workers, 1583s [00:53:03.797] lazy = lazy, rscript_libs = rscript_libs, 1583s [00:53:03.797] envir = envir) 1583s [00:53:03.797] if (!future$lazy) 1583s [00:53:03.797] future <- run(future) 1583s [00:53:03.797] invisible(future) 1583s [00:53:03.797] }), .cleanup = FALSE, .init = FALSE) 1583s [00:53:03.797] } 1583s [00:53:03.797] } 1583s [00:53:03.797] } 1583s [00:53:03.797] }) 1583s [00:53:03.797] if (TRUE) { 1583s [00:53:03.797] base::sink(type = "output", split = FALSE) 1583s [00:53:03.797] if (TRUE) { 1583s [00:53:03.797] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1583s [00:53:03.797] } 1583s [00:53:03.797] else { 1583s [00:53:03.797] ...future.result["stdout"] <- base::list(NULL) 1583s [00:53:03.797] } 1583s [00:53:03.797] base::close(...future.stdout) 1583s [00:53:03.797] ...future.stdout <- NULL 1583s [00:53:03.797] } 1583s [00:53:03.797] ...future.result$conditions <- ...future.conditions 1583s [00:53:03.797] ...future.result$finished <- base::Sys.time() 1583s [00:53:03.797] ...future.result 1583s [00:53:03.797] } 1583s [00:53:03.801] assign_globals() ... 1583s [00:53:03.801] List of 5 1583s [00:53:03.801] $ ...future.FUN :function (x, ...) 1583s [00:53:03.801] $ future.call.arguments : list() 1583s [00:53:03.801] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1583s [00:53:03.801] $ ...future.elements_ii :List of 4 1583s [00:53:03.801] ..$ A: num 50 1583s [00:53:03.801] ..$ B: num 60 1583s [00:53:03.801] ..$ C: num 70 1583s [00:53:03.801] ..$ D: num 80 1583s [00:53:03.801] $ ...future.seeds_ii : NULL 1583s [00:53:03.801] $ ...future.globals.maxSize: NULL 1583s [00:53:03.801] - attr(*, "where")=List of 5 1583s [00:53:03.801] ..$ ...future.FUN : 1583s [00:53:03.801] ..$ future.call.arguments : 1583s [00:53:03.801] ..$ ...future.elements_ii : 1583s [00:53:03.801] ..$ ...future.seeds_ii : 1583s [00:53:03.801] ..$ ...future.globals.maxSize: 1583s [00:53:03.801] - attr(*, "resolved")= logi FALSE 1583s [00:53:03.801] - attr(*, "total_size")= num 1248 1583s [00:53:03.801] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1583s [00:53:03.801] - attr(*, "already-done")= logi TRUE 1583s [00:53:03.809] - copied ‘...future.FUN’ to environment 1583s [00:53:03.809] - copied ‘future.call.arguments’ to environment 1583s [00:53:03.810] - copied ‘...future.elements_ii’ to environment 1583s [00:53:03.810] - copied ‘...future.seeds_ii’ to environment 1583s [00:53:03.810] - copied ‘...future.globals.maxSize’ to environment 1583s [00:53:03.810] assign_globals() ... done 1583s [00:53:03.811] plan(): Setting new future strategy stack: 1583s [00:53:03.811] List of future strategies: 1583s [00:53:03.811] 1. sequential: 1583s [00:53:03.811] - args: function (..., envir = parent.frame()) 1583s [00:53:03.811] - tweaked: FALSE 1583s [00:53:03.811] - call: NULL 1583s [00:53:03.811] plan(): nbrOfWorkers() = 1 1583s [00:53:03.812] plan(): Setting new future strategy stack: 1583s [00:53:03.812] List of future strategies: 1583s [00:53:03.812] 1. multisession: 1583s [00:53:03.812] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1583s [00:53:03.812] - tweaked: FALSE 1583s [00:53:03.812] - call: plan(strategy) 1583s [00:53:03.816] plan(): nbrOfWorkers() = 1 1583s [00:53:03.817] SequentialFuture started (and completed) 1583s [00:53:03.817] - Launch lazy future ... done 1583s [00:53:03.817] run() for ‘SequentialFuture’ ... done 1583s [00:53:03.817] Created future: 1583s [00:53:03.817] SequentialFuture: 1583s [00:53:03.817] Label: ‘future_sapply-1’ 1583s [00:53:03.817] Expression: 1583s [00:53:03.817] { 1583s [00:53:03.817] do.call(function(...) { 1583s [00:53:03.817] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1583s [00:53:03.817] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1583s [00:53:03.817] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1583s [00:53:03.817] on.exit(options(oopts), add = TRUE) 1583s [00:53:03.817] } 1583s [00:53:03.817] { 1583s [00:53:03.817] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1583s [00:53:03.817] ...future.X_jj <- ...future.elements_ii[[jj]] 1583s [00:53:03.817] ...future.FUN(...future.X_jj, ...) 1583s [00:53:03.817] }) 1583s [00:53:03.817] } 1583s [00:53:03.817] }, args = future.call.arguments) 1583s [00:53:03.817] } 1583s [00:53:03.817] Lazy evaluation: FALSE 1583s [00:53:03.817] Asynchronous evaluation: FALSE 1583s [00:53:03.817] Local evaluation: TRUE 1583s [00:53:03.817] Environment: R_GlobalEnv 1583s [00:53:03.817] Capture standard output: TRUE 1583s [00:53:03.817] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1583s [00:53:03.817] Globals: 5 objects totaling 1.44 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1583s [00:53:03.817] Packages: 1583s [00:53:03.817] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1583s [00:53:03.817] Resolved: TRUE 1583s [00:53:03.817] Value: 896 bytes of class ‘list’ 1583s [00:53:03.817] Early signaling: FALSE 1583s [00:53:03.817] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1583s [00:53:03.817] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1583s [00:53:03.819] Chunk #1 of 1 ... DONE 1583s [00:53:03.819] Launching 1 futures (chunks) ... DONE 1583s [00:53:03.819] Resolving 1 futures (chunks) ... 1583s [00:53:03.819] resolve() on list ... 1583s [00:53:03.819] recursive: 0 1583s [00:53:03.819] length: 1 1583s [00:53:03.820] 1583s [00:53:03.820] resolved() for ‘SequentialFuture’ ... 1583s [00:53:03.820] - state: ‘finished’ 1583s [00:53:03.820] - run: TRUE 1583s [00:53:03.820] - result: ‘FutureResult’ 1583s [00:53:03.821] resolved() for ‘SequentialFuture’ ... done 1583s [00:53:03.821] Future #1 1583s [00:53:03.821] signalConditionsASAP(SequentialFuture, pos=1) ... 1583s [00:53:03.821] - nx: 1 1583s [00:53:03.821] - relay: TRUE 1583s [00:53:03.822] - stdout: TRUE 1583s [00:53:03.822] - signal: TRUE 1583s [00:53:03.822] - resignal: FALSE 1583s [00:53:03.822] - force: TRUE 1583s [00:53:03.822] - relayed: [n=1] FALSE 1583s [00:53:03.822] - queued futures: [n=1] FALSE 1583s [00:53:03.822] - until=1 1583s [00:53:03.823] - relaying element #1 1583s [00:53:03.823] - relayed: [n=1] TRUE 1583s [00:53:03.823] - queued futures: [n=1] TRUE 1583s [00:53:03.823] signalConditionsASAP(SequentialFuture, pos=1) ... done 1583s [00:53:03.823] length: 0 (resolved future 1) 1583s [00:53:03.823] Relaying remaining futures 1583s [00:53:03.824] signalConditionsASAP(NULL, pos=0) ... 1583s [00:53:03.824] - nx: 1 1583s [00:53:03.824] - relay: TRUE 1583s [00:53:03.828] - stdout: TRUE 1583s [00:53:03.829] - signal: TRUE 1583s [00:53:03.829] - resignal: FALSE 1583s [00:53:03.829] - force: TRUE 1583s [00:53:03.830] - relayed: [n=1] TRUE 1583s List of 2 1583s $ y0:[00:53:03.830] - queued futures: [n=1] TRUE 1583s - flush all 1583s [00:53:03.830] - relayed: [n=1] TRUE 1583s [00:53:03.830] - queued futures: [n=1] TRUE 1583s [00:53:03.830] signalConditionsASAP(NULL, pos=0) ... done 1583s [00:53:03.831] resolve() on list ... DONE 1583s [00:53:03.831] - Number of value chunks collected: 1 1583s [00:53:03.831] Resolving 1 futures (chunks) ... DONE 1583s [00:53:03.831] Reducing values from 1 chunks ... 1583s [00:53:03.831] - Number of values collected after concatenation: 4 1583s [00:53:03.832] - Number of values expected: 4 1583s [00:53:03.832] Reducing values from 1 chunks ... DONE 1583s [00:53:03.832] future_lapply() ... DONE 1583s [00:53:03.835] future_lapply() ... 1583s Named num [1:4] 50 60 70 80 1583s ..- attr(*, "names")= chr [1:4] "A" "B" "C" "D" 1583s $ y1: Named num [1:4] 50 60 70 80 1583s ..- attr(*, "names")= chr [1:4] "A" "B" "C" "D" 1583s [00:53:03.839] Number of chunks: 1 1583s [00:53:03.839] getGlobalsAndPackagesXApply() ... 1583s [00:53:03.839] - future.globals: TRUE 1583s [00:53:03.840] getGlobalsAndPackages() ... 1583s [00:53:03.840] Searching for globals... 1583s [00:53:03.842] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1583s [00:53:03.842] Searching for globals ... DONE 1583s [00:53:03.843] Resolving globals: FALSE 1583s [00:53:03.843] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1583s [00:53:03.844] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1583s [00:53:03.844] - globals: [1] ‘FUN’ 1583s [00:53:03.844] 1583s [00:53:03.844] getGlobalsAndPackages() ... DONE 1583s [00:53:03.844] - globals found/used: [n=1] ‘FUN’ 1583s [00:53:03.844] - needed namespaces: [n=0] 1583s [00:53:03.845] Finding globals ... DONE 1583s [00:53:03.845] - use_args: TRUE 1583s [00:53:03.845] - Getting '...' globals ... 1583s [00:53:03.845] resolve() on list ... 1583s [00:53:03.845] recursive: 0 1583s [00:53:03.845] length: 1 1583s [00:53:03.846] elements: ‘...’ 1583s [00:53:03.846] length: 0 (resolved future 1) 1583s [00:53:03.846] resolve() on list ... DONE 1583s [00:53:03.846] - '...' content: [n=0] 1583s [00:53:03.846] List of 1 1583s [00:53:03.846] $ ...: list() 1583s [00:53:03.846] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1583s [00:53:03.846] - attr(*, "where")=List of 1 1583s [00:53:03.846] ..$ ...: 1583s [00:53:03.846] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1583s [00:53:03.846] - attr(*, "resolved")= logi TRUE 1583s [00:53:03.846] - attr(*, "total_size")= num NA 1583s [00:53:03.849] - Getting '...' globals ... DONE 1583s [00:53:03.850] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1583s [00:53:03.850] List of 2 1583s [00:53:03.850] $ ...future.FUN:function (x, y = 2 * 1:5) 1583s [00:53:03.850] $ ... : list() 1583s [00:53:03.850] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1583s [00:53:03.850] - attr(*, "where")=List of 2 1583s [00:53:03.850] ..$ ...future.FUN: 1583s [00:53:03.850] ..$ ... : 1583s [00:53:03.850] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1583s [00:53:03.850] - attr(*, "resolved")= logi FALSE 1583s [00:53:03.850] - attr(*, "total_size")= num 4728 1583s [00:53:03.854] Packages to be attached in all futures: [n=0] 1583s [00:53:03.854] getGlobalsAndPackagesXApply() ... DONE 1583s [00:53:03.854] Number of futures (= number of chunks): 1 1583s [00:53:03.854] Launching 1 futures (chunks) ... 1583s [00:53:03.854] Chunk #1 of 1 ... 1583s [00:53:03.855] - Finding globals in 'X' for chunk #1 ... 1583s [00:53:03.855] getGlobalsAndPackages() ... 1583s [00:53:03.855] Searching for globals... 1583s [00:53:03.855] 1583s [00:53:03.855] Searching for globals ... DONE 1583s [00:53:03.856] - globals: [0] 1583s [00:53:03.856] getGlobalsAndPackages() ... DONE 1583s [00:53:03.856] + additional globals found: [n=0] 1583s [00:53:03.856] + additional namespaces needed: [n=0] 1583s [00:53:03.856] - Finding globals in 'X' for chunk #1 ... DONE 1583s [00:53:03.856] - seeds: 1583s [00:53:03.856] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1583s [00:53:03.856] getGlobalsAndPackages() ... 1583s [00:53:03.857] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1583s [00:53:03.857] Resolving globals: FALSE 1583s [00:53:03.857] Tweak future expression to call with '...' arguments ... 1583s [00:53:03.857] { 1583s [00:53:03.857] do.call(function(...) { 1583s [00:53:03.857] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1583s [00:53:03.857] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1583s [00:53:03.857] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1583s [00:53:03.857] on.exit(options(oopts), add = TRUE) 1583s [00:53:03.857] } 1583s [00:53:03.857] { 1583s [00:53:03.857] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1583s [00:53:03.857] ...future.X_jj <- ...future.elements_ii[[jj]] 1583s [00:53:03.857] ...future.FUN(...future.X_jj, ...) 1583s [00:53:03.857] }) 1583s [00:53:03.857] } 1583s [00:53:03.857] }, args = future.call.arguments) 1583s [00:53:03.857] } 1583s [00:53:03.857] Tweak future expression to call with '...' arguments ... DONE 1583s [00:53:03.858] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1583s [00:53:03.858] 1583s [00:53:03.858] getGlobalsAndPackages() ... DONE 1583s [00:53:03.858] run() for ‘Future’ ... 1583s [00:53:03.859] - state: ‘created’ 1583s [00:53:03.859] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1583s [00:53:03.863] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1583s [00:53:03.863] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1583s [00:53:03.863] - Field: ‘label’ 1583s [00:53:03.863] - Field: ‘local’ 1583s [00:53:03.863] - Field: ‘owner’ 1583s [00:53:03.863] - Field: ‘envir’ 1583s [00:53:03.864] - Field: ‘packages’ 1583s [00:53:03.864] - Field: ‘gc’ 1583s [00:53:03.864] - Field: ‘conditions’ 1583s [00:53:03.864] - Field: ‘expr’ 1583s [00:53:03.864] - Field: ‘uuid’ 1583s [00:53:03.864] - Field: ‘seed’ 1583s [00:53:03.864] - Field: ‘version’ 1583s [00:53:03.865] - Field: ‘result’ 1583s [00:53:03.865] - Field: ‘asynchronous’ 1583s [00:53:03.865] - Field: ‘calls’ 1583s [00:53:03.865] - Field: ‘globals’ 1583s [00:53:03.865] - Field: ‘stdout’ 1583s [00:53:03.866] - Field: ‘earlySignal’ 1583s [00:53:03.866] - Field: ‘lazy’ 1583s [00:53:03.866] - Field: ‘state’ 1583s [00:53:03.866] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1583s [00:53:03.866] - Launch lazy future ... 1583s [00:53:03.867] Packages needed by the future expression (n = 0): 1583s [00:53:03.867] Packages needed by future strategies (n = 0): 1583s [00:53:03.867] { 1583s [00:53:03.867] { 1583s [00:53:03.867] { 1583s [00:53:03.867] ...future.startTime <- base::Sys.time() 1583s [00:53:03.867] { 1583s [00:53:03.867] { 1583s [00:53:03.867] { 1583s [00:53:03.867] base::local({ 1583s [00:53:03.867] has_future <- base::requireNamespace("future", 1583s [00:53:03.867] quietly = TRUE) 1583s [00:53:03.867] if (has_future) { 1583s [00:53:03.867] ns <- base::getNamespace("future") 1583s [00:53:03.867] version <- ns[[".package"]][["version"]] 1583s [00:53:03.867] if (is.null(version)) 1583s [00:53:03.867] version <- utils::packageVersion("future") 1583s [00:53:03.867] } 1583s [00:53:03.867] else { 1583s [00:53:03.867] version <- NULL 1583s [00:53:03.867] } 1583s [00:53:03.867] if (!has_future || version < "1.8.0") { 1583s [00:53:03.867] info <- base::c(r_version = base::gsub("R version ", 1583s [00:53:03.867] "", base::R.version$version.string), 1583s [00:53:03.867] platform = base::sprintf("%s (%s-bit)", 1583s [00:53:03.867] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1583s [00:53:03.867] os = base::paste(base::Sys.info()[base::c("sysname", 1583s [00:53:03.867] "release", "version")], collapse = " "), 1583s [00:53:03.867] hostname = base::Sys.info()[["nodename"]]) 1583s [00:53:03.867] info <- base::sprintf("%s: %s", base::names(info), 1583s [00:53:03.867] info) 1583s [00:53:03.867] info <- base::paste(info, collapse = "; ") 1583s [00:53:03.867] if (!has_future) { 1583s [00:53:03.867] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1583s [00:53:03.867] info) 1583s [00:53:03.867] } 1583s [00:53:03.867] else { 1583s [00:53:03.867] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1583s [00:53:03.867] info, version) 1583s [00:53:03.867] } 1583s [00:53:03.867] base::stop(msg) 1583s [00:53:03.867] } 1583s [00:53:03.867] }) 1583s [00:53:03.867] } 1583s [00:53:03.867] options(future.plan = NULL) 1583s [00:53:03.867] Sys.unsetenv("R_FUTURE_PLAN") 1583s [00:53:03.867] future::plan("default", .cleanup = FALSE, .init = FALSE) 1583s [00:53:03.867] } 1583s [00:53:03.867] ...future.workdir <- getwd() 1583s [00:53:03.867] } 1583s [00:53:03.867] ...future.oldOptions <- base::as.list(base::.Options) 1583s [00:53:03.867] ...future.oldEnvVars <- base::Sys.getenv() 1583s [00:53:03.867] } 1583s [00:53:03.867] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1583s [00:53:03.867] future.globals.maxSize = NULL, future.globals.method = NULL, 1583s [00:53:03.867] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1583s [00:53:03.867] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1583s [00:53:03.867] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1583s [00:53:03.867] future.stdout.windows.reencode = NULL, width = 80L) 1583s [00:53:03.867] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1583s [00:53:03.867] base::names(...future.oldOptions)) 1583s [00:53:03.867] } 1583s [00:53:03.867] if (FALSE) { 1583s [00:53:03.867] } 1583s [00:53:03.867] else { 1583s [00:53:03.867] if (TRUE) { 1583s [00:53:03.867] ...future.stdout <- base::rawConnection(base::raw(0L), 1583s [00:53:03.867] open = "w") 1583s [00:53:03.867] } 1583s [00:53:03.867] else { 1583s [00:53:03.867] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1583s [00:53:03.867] windows = "NUL", "/dev/null"), open = "w") 1583s [00:53:03.867] } 1583s [00:53:03.867] base::sink(...future.stdout, type = "output", split = FALSE) 1583s [00:53:03.867] base::on.exit(if (!base::is.null(...future.stdout)) { 1583s [00:53:03.867] base::sink(type = "output", split = FALSE) 1583s [00:53:03.867] base::close(...future.stdout) 1583s [00:53:03.867] }, add = TRUE) 1583s [00:53:03.867] } 1583s [00:53:03.867] ...future.frame <- base::sys.nframe() 1583s [00:53:03.867] ...future.conditions <- base::list() 1583s [00:53:03.867] ...future.rng <- base::globalenv()$.Random.seed 1583s [00:53:03.867] if (FALSE) { 1583s [00:53:03.867] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1583s [00:53:03.867] "...future.value", "...future.globalenv.names", ".Random.seed") 1583s [00:53:03.867] } 1583s [00:53:03.867] ...future.result <- base::tryCatch({ 1583s [00:53:03.867] base::withCallingHandlers({ 1583s [00:53:03.867] ...future.value <- base::withVisible(base::local({ 1583s [00:53:03.867] do.call(function(...) { 1583s [00:53:03.867] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1583s [00:53:03.867] if (!identical(...future.globals.maxSize.org, 1583s [00:53:03.867] ...future.globals.maxSize)) { 1583s [00:53:03.867] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1583s [00:53:03.867] on.exit(options(oopts), add = TRUE) 1583s [00:53:03.867] } 1583s [00:53:03.867] { 1583s [00:53:03.867] lapply(seq_along(...future.elements_ii), 1583s [00:53:03.867] FUN = function(jj) { 1583s [00:53:03.867] ...future.X_jj <- ...future.elements_ii[[jj]] 1583s [00:53:03.867] ...future.FUN(...future.X_jj, ...) 1583s [00:53:03.867] }) 1583s [00:53:03.867] } 1583s [00:53:03.867] }, args = future.call.arguments) 1583s [00:53:03.867] })) 1583s [00:53:03.867] future::FutureResult(value = ...future.value$value, 1583s [00:53:03.867] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1583s [00:53:03.867] ...future.rng), globalenv = if (FALSE) 1583s [00:53:03.867] list(added = base::setdiff(base::names(base::.GlobalEnv), 1583s [00:53:03.867] ...future.globalenv.names)) 1583s [00:53:03.867] else NULL, started = ...future.startTime, version = "1.8") 1583s [00:53:03.867] }, condition = base::local({ 1583s [00:53:03.867] c <- base::c 1583s [00:53:03.867] inherits <- base::inherits 1583s [00:53:03.867] invokeRestart <- base::invokeRestart 1583s [00:53:03.867] length <- base::length 1583s [00:53:03.867] list <- base::list 1583s [00:53:03.867] seq.int <- base::seq.int 1583s [00:53:03.867] signalCondition <- base::signalCondition 1583s [00:53:03.867] sys.calls <- base::sys.calls 1583s [00:53:03.867] `[[` <- base::`[[` 1583s [00:53:03.867] `+` <- base::`+` 1583s [00:53:03.867] `<<-` <- base::`<<-` 1583s [00:53:03.867] sysCalls <- function(calls = sys.calls(), from = 1L) { 1583s [00:53:03.867] calls[seq.int(from = from + 12L, to = length(calls) - 1583s [00:53:03.867] 3L)] 1583s [00:53:03.867] } 1583s [00:53:03.867] function(cond) { 1583s [00:53:03.867] is_error <- inherits(cond, "error") 1583s [00:53:03.867] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1583s [00:53:03.867] NULL) 1583s [00:53:03.867] if (is_error) { 1583s [00:53:03.867] sessionInformation <- function() { 1583s [00:53:03.867] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1583s [00:53:03.867] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1583s [00:53:03.867] search = base::search(), system = base::Sys.info()) 1583s [00:53:03.867] } 1583s [00:53:03.867] ...future.conditions[[length(...future.conditions) + 1583s [00:53:03.867] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1583s [00:53:03.867] cond$call), session = sessionInformation(), 1583s [00:53:03.867] timestamp = base::Sys.time(), signaled = 0L) 1583s [00:53:03.867] signalCondition(cond) 1583s [00:53:03.867] } 1583s [00:53:03.867] else if (!ignore && TRUE && inherits(cond, c("condition", 1583s [00:53:03.867] "immediateCondition"))) { 1583s [00:53:03.867] signal <- TRUE && inherits(cond, "immediateCondition") 1583s [00:53:03.867] ...future.conditions[[length(...future.conditions) + 1583s [00:53:03.867] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1583s [00:53:03.867] if (TRUE && !signal) { 1583s [00:53:03.867] muffleCondition <- function (cond, pattern = "^muffle") 1583s [00:53:03.867] { 1583s [00:53:03.867] inherits <- base::inherits 1583s [00:53:03.867] invokeRestart <- base::invokeRestart 1583s [00:53:03.867] is.null <- base::is.null 1583s [00:53:03.867] muffled <- FALSE 1583s [00:53:03.867] if (inherits(cond, "message")) { 1583s [00:53:03.867] muffled <- grepl(pattern, "muffleMessage") 1583s [00:53:03.867] if (muffled) 1583s [00:53:03.867] invokeRestart("muffleMessage") 1583s [00:53:03.867] } 1583s [00:53:03.867] else if (inherits(cond, "warning")) { 1583s [00:53:03.867] muffled <- grepl(pattern, "muffleWarning") 1583s [00:53:03.867] if (muffled) 1583s [00:53:03.867] invokeRestart("muffleWarning") 1583s [00:53:03.867] } 1583s [00:53:03.867] else if (inherits(cond, "condition")) { 1583s [00:53:03.867] if (!is.null(pattern)) { 1583s [00:53:03.867] computeRestarts <- base::computeRestarts 1583s [00:53:03.867] grepl <- base::grepl 1583s [00:53:03.867] restarts <- computeRestarts(cond) 1583s [00:53:03.867] for (restart in restarts) { 1583s [00:53:03.867] name <- restart$name 1583s [00:53:03.867] if (is.null(name)) 1583s [00:53:03.867] next 1583s [00:53:03.867] if (!grepl(pattern, name)) 1583s [00:53:03.867] next 1583s [00:53:03.867] invokeRestart(restart) 1583s [00:53:03.867] muffled <- TRUE 1583s [00:53:03.867] break 1583s [00:53:03.867] } 1583s [00:53:03.867] } 1583s [00:53:03.867] } 1583s [00:53:03.867] invisible(muffled) 1583s [00:53:03.867] } 1583s [00:53:03.867] muffleCondition(cond, pattern = "^muffle") 1583s [00:53:03.867] } 1583s [00:53:03.867] } 1583s [00:53:03.867] else { 1583s [00:53:03.867] if (TRUE) { 1583s [00:53:03.867] muffleCondition <- function (cond, pattern = "^muffle") 1583s [00:53:03.867] { 1583s [00:53:03.867] inherits <- base::inherits 1583s [00:53:03.867] invokeRestart <- base::invokeRestart 1583s [00:53:03.867] is.null <- base::is.null 1583s [00:53:03.867] muffled <- FALSE 1583s [00:53:03.867] if (inherits(cond, "message")) { 1583s [00:53:03.867] muffled <- grepl(pattern, "muffleMessage") 1583s [00:53:03.867] if (muffled) 1583s [00:53:03.867] invokeRestart("muffleMessage") 1583s [00:53:03.867] } 1583s [00:53:03.867] else if (inherits(cond, "warning")) { 1583s [00:53:03.867] muffled <- grepl(pattern, "muffleWarning") 1583s [00:53:03.867] if (muffled) 1583s [00:53:03.867] invokeRestart("muffleWarning") 1583s [00:53:03.867] } 1583s [00:53:03.867] else if (inherits(cond, "condition")) { 1583s [00:53:03.867] if (!is.null(pattern)) { 1583s [00:53:03.867] computeRestarts <- base::computeRestarts 1583s [00:53:03.867] grepl <- base::grepl 1583s [00:53:03.867] restarts <- computeRestarts(cond) 1583s [00:53:03.867] for (restart in restarts) { 1583s [00:53:03.867] name <- restart$name 1583s [00:53:03.867] if (is.null(name)) 1583s [00:53:03.867] next 1583s [00:53:03.867] if (!grepl(pattern, name)) 1583s [00:53:03.867] next 1583s [00:53:03.867] invokeRestart(restart) 1583s [00:53:03.867] muffled <- TRUE 1583s [00:53:03.867] break 1583s [00:53:03.867] } 1583s [00:53:03.867] } 1583s [00:53:03.867] } 1583s [00:53:03.867] invisible(muffled) 1583s [00:53:03.867] } 1583s [00:53:03.867] muffleCondition(cond, pattern = "^muffle") 1583s [00:53:03.867] } 1583s [00:53:03.867] } 1583s [00:53:03.867] } 1583s [00:53:03.867] })) 1583s [00:53:03.867] }, error = function(ex) { 1583s [00:53:03.867] base::structure(base::list(value = NULL, visible = NULL, 1583s [00:53:03.867] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1583s [00:53:03.867] ...future.rng), started = ...future.startTime, 1583s [00:53:03.867] finished = Sys.time(), session_uuid = NA_character_, 1583s [00:53:03.867] version = "1.8"), class = "FutureResult") 1583s [00:53:03.867] }, finally = { 1583s [00:53:03.867] if (!identical(...future.workdir, getwd())) 1583s [00:53:03.867] setwd(...future.workdir) 1583s [00:53:03.867] { 1583s [00:53:03.867] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1583s [00:53:03.867] ...future.oldOptions$nwarnings <- NULL 1583s [00:53:03.867] } 1583s [00:53:03.867] base::options(...future.oldOptions) 1583s [00:53:03.867] if (.Platform$OS.type == "windows") { 1583s [00:53:03.867] old_names <- names(...future.oldEnvVars) 1583s [00:53:03.867] envs <- base::Sys.getenv() 1583s [00:53:03.867] names <- names(envs) 1583s [00:53:03.867] common <- intersect(names, old_names) 1583s [00:53:03.867] added <- setdiff(names, old_names) 1583s [00:53:03.867] removed <- setdiff(old_names, names) 1583s [00:53:03.867] changed <- common[...future.oldEnvVars[common] != 1583s [00:53:03.867] envs[common]] 1583s [00:53:03.867] NAMES <- toupper(changed) 1583s [00:53:03.867] args <- list() 1583s [00:53:03.867] for (kk in seq_along(NAMES)) { 1583s [00:53:03.867] name <- changed[[kk]] 1583s [00:53:03.867] NAME <- NAMES[[kk]] 1583s [00:53:03.867] if (name != NAME && is.element(NAME, old_names)) 1583s [00:53:03.867] next 1583s [00:53:03.867] args[[name]] <- ...future.oldEnvVars[[name]] 1583s [00:53:03.867] } 1583s [00:53:03.867] NAMES <- toupper(added) 1583s [00:53:03.867] for (kk in seq_along(NAMES)) { 1583s [00:53:03.867] name <- added[[kk]] 1583s [00:53:03.867] NAME <- NAMES[[kk]] 1583s [00:53:03.867] if (name != NAME && is.element(NAME, old_names)) 1583s [00:53:03.867] next 1583s [00:53:03.867] args[[name]] <- "" 1583s [00:53:03.867] } 1583s [00:53:03.867] NAMES <- toupper(removed) 1583s [00:53:03.867] for (kk in seq_along(NAMES)) { 1583s [00:53:03.867] name <- removed[[kk]] 1583s [00:53:03.867] NAME <- NAMES[[kk]] 1583s [00:53:03.867] if (name != NAME && is.element(NAME, old_names)) 1583s [00:53:03.867] next 1583s [00:53:03.867] args[[name]] <- ...future.oldEnvVars[[name]] 1583s [00:53:03.867] } 1583s [00:53:03.867] if (length(args) > 0) 1583s [00:53:03.867] base::do.call(base::Sys.setenv, args = args) 1583s [00:53:03.867] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1583s [00:53:03.867] } 1583s [00:53:03.867] else { 1583s [00:53:03.867] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1583s [00:53:03.867] } 1583s [00:53:03.867] { 1583s [00:53:03.867] if (base::length(...future.futureOptionsAdded) > 1583s [00:53:03.867] 0L) { 1583s [00:53:03.867] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1583s [00:53:03.867] base::names(opts) <- ...future.futureOptionsAdded 1583s [00:53:03.867] base::options(opts) 1583s [00:53:03.867] } 1583s [00:53:03.867] { 1583s [00:53:03.867] { 1583s [00:53:03.867] NULL 1583s [00:53:03.867] RNGkind("Mersenne-Twister") 1583s [00:53:03.867] base::rm(list = ".Random.seed", envir = base::globalenv(), 1583s [00:53:03.867] inherits = FALSE) 1583s [00:53:03.867] } 1583s [00:53:03.867] options(future.plan = NULL) 1583s [00:53:03.867] if (is.na(NA_character_)) 1583s [00:53:03.867] Sys.unsetenv("R_FUTURE_PLAN") 1583s [00:53:03.867] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1583s [00:53:03.867] future::plan(list(function (..., workers = availableCores(), 1583s [00:53:03.867] lazy = FALSE, rscript_libs = .libPaths(), 1583s [00:53:03.867] envir = parent.frame()) 1583s [00:53:03.867] { 1583s [00:53:03.867] if (is.function(workers)) 1583s [00:53:03.867] workers <- workers() 1583s [00:53:03.867] workers <- structure(as.integer(workers), 1583s [00:53:03.867] class = class(workers)) 1583s [00:53:03.867] stop_if_not(length(workers) == 1, is.finite(workers), 1583s [00:53:03.867] workers >= 1) 1583s [00:53:03.867] if (workers == 1L && !inherits(workers, "AsIs")) { 1583s [00:53:03.867] return(sequential(..., lazy = TRUE, envir = envir)) 1583s [00:53:03.867] } 1583s [00:53:03.867] future <- MultisessionFuture(..., workers = workers, 1583s [00:53:03.867] lazy = lazy, rscript_libs = rscript_libs, 1583s [00:53:03.867] envir = envir) 1583s [00:53:03.867] if (!future$lazy) 1583s [00:53:03.867] future <- run(future) 1583s [00:53:03.867] invisible(future) 1583s [00:53:03.867] }), .cleanup = FALSE, .init = FALSE) 1583s [00:53:03.867] } 1583s [00:53:03.867] } 1583s [00:53:03.867] } 1583s [00:53:03.867] }) 1583s [00:53:03.867] if (TRUE) { 1583s [00:53:03.867] base::sink(type = "output", split = FALSE) 1583s [00:53:03.867] if (TRUE) { 1583s [00:53:03.867] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1583s [00:53:03.867] } 1583s [00:53:03.867] else { 1583s [00:53:03.867] ...future.result["stdout"] <- base::list(NULL) 1583s [00:53:03.867] } 1583s [00:53:03.867] base::close(...future.stdout) 1583s [00:53:03.867] ...future.stdout <- NULL 1583s [00:53:03.867] } 1583s [00:53:03.867] ...future.result$conditions <- ...future.conditions 1583s [00:53:03.867] ...future.result$finished <- base::Sys.time() 1583s [00:53:03.867] ...future.result 1583s [00:53:03.867] } 1583s [00:53:03.871] assign_globals() ... 1583s [00:53:03.872] List of 5 1583s [00:53:03.872] $ ...future.FUN :function (x, y = 2 * 1:5) 1583s [00:53:03.872] $ future.call.arguments : list() 1583s [00:53:03.872] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1583s [00:53:03.872] $ ...future.elements_ii :List of 4 1583s [00:53:03.872] ..$ A: num 50 1583s [00:53:03.872] ..$ B: num 60 1583s [00:53:03.872] ..$ C: num 70 1583s [00:53:03.872] ..$ D: num 80 1583s [00:53:03.872] $ ...future.seeds_ii : NULL 1583s [00:53:03.872] $ ...future.globals.maxSize: NULL 1583s [00:53:03.872] - attr(*, "where")=List of 5 1583s [00:53:03.872] ..$ ...future.FUN : 1583s [00:53:03.872] ..$ future.call.arguments : 1583s [00:53:03.872] ..$ ...future.elements_ii : 1583s [00:53:03.872] ..$ ...future.seeds_ii : 1583s [00:53:03.872] ..$ ...future.globals.maxSize: 1583s [00:53:03.872] - attr(*, "resolved")= logi FALSE 1583s [00:53:03.872] - attr(*, "total_size")= num 4728 1583s [00:53:03.872] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1583s [00:53:03.872] - attr(*, "already-done")= logi TRUE 1583s [00:53:03.879] - reassign environment for ‘...future.FUN’ 1583s [00:53:03.879] - copied ‘...future.FUN’ to environment 1583s [00:53:03.879] - copied ‘future.call.arguments’ to environment 1583s [00:53:03.879] - copied ‘...future.elements_ii’ to environment 1583s [00:53:03.879] - copied ‘...future.seeds_ii’ to environment 1583s [00:53:03.879] - copied ‘...future.globals.maxSize’ to environment 1583s [00:53:03.879] assign_globals() ... done 1583s [00:53:03.880] plan(): Setting new future strategy stack: 1583s [00:53:03.880] List of future strategies: 1583s [00:53:03.880] 1. sequential: 1583s [00:53:03.880] - args: function (..., envir = parent.frame()) 1583s [00:53:03.880] - tweaked: FALSE 1583s [00:53:03.880] - call: NULL 1583s [00:53:03.881] plan(): nbrOfWorkers() = 1 1583s [00:53:03.882] plan(): Setting new future strategy stack: 1583s [00:53:03.882] List of future strategies: 1583s [00:53:03.882] 1. multisession: 1583s [00:53:03.882] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1583s [00:53:03.882] - tweaked: FALSE 1583s [00:53:03.882] - call: plan(strategy) 1583s [00:53:03.885] plan(): nbrOfWorkers() = 1 1583s [00:53:03.885] SequentialFuture started (and completed) 1583s [00:53:03.886] - Launch lazy future ... done 1583s [00:53:03.886] run() for ‘SequentialFuture’ ... done 1583s [00:53:03.886] Created future: 1583s [00:53:03.886] SequentialFuture: 1583s [00:53:03.886] Label: ‘future_sapply-1’ 1583s [00:53:03.886] Expression: 1583s [00:53:03.886] { 1583s [00:53:03.886] do.call(function(...) { 1583s [00:53:03.886] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1583s [00:53:03.886] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1583s [00:53:03.886] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1583s [00:53:03.886] on.exit(options(oopts), add = TRUE) 1583s [00:53:03.886] } 1583s [00:53:03.886] { 1583s [00:53:03.886] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1583s [00:53:03.886] ...future.X_jj <- ...future.elements_ii[[jj]] 1583s [00:53:03.886] ...future.FUN(...future.X_jj, ...) 1583s [00:53:03.886] }) 1583s [00:53:03.886] } 1583s [00:53:03.886] }, args = future.call.arguments) 1583s [00:53:03.886] } 1583s [00:53:03.886] Lazy evaluation: FALSE 1583s [00:53:03.886] Asynchronous evaluation: FALSE 1583s [00:53:03.886] Local evaluation: TRUE 1583s [00:53:03.886] Environment: R_GlobalEnv 1583s [00:53:03.886] Capture standard output: TRUE 1583s [00:53:03.886] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1583s [00:53:03.886] Globals: 5 objects totaling 4.84 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1583s [00:53:03.886] Packages: 1583s [00:53:03.886] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1583s [00:53:03.886] Resolved: TRUE 1583s [00:53:03.886] Value: 1.34 KiB of class ‘list’ 1583s [00:53:03.886] Early signaling: FALSE 1583s [00:53:03.886] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1583s [00:53:03.886] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1583s [00:53:03.888] Chunk #1 of 1 ... DONE 1583s [00:53:03.888] Launching 1 futures (chunks) ... DONE 1583s [00:53:03.888] Resolving 1 futures (chunks) ... 1583s [00:53:03.888] resolve() on list ... 1583s [00:53:03.888] recursive: 0 1583s [00:53:03.888] length: 1 1583s [00:53:03.889] 1583s [00:53:03.889] resolved() for ‘SequentialFuture’ ... 1583s [00:53:03.889] - state: ‘finished’ 1583s [00:53:03.889] - run: TRUE 1583s [00:53:03.889] - result: ‘FutureResult’ 1583s [00:53:03.889] resolved() for ‘SequentialFuture’ ... done 1583s [00:53:03.890] Future #1 1583s [00:53:03.890] signalConditionsASAP(SequentialFuture, pos=1) ... 1583s [00:53:03.890] - nx: 1 1583s [00:53:03.890] - relay: TRUE 1583s [00:53:03.890] - stdout: TRUE 1583s [00:53:03.890] - signal: TRUE 1583s [00:53:03.891] - resignal: FALSE 1583s [00:53:03.891] - force: TRUE 1583s [00:53:03.891] - relayed: [n=1] FALSE 1583s [00:53:03.891] - queued futures: [n=1] FALSE 1583s [00:53:03.891] - until=1 1583s [00:53:03.891] - relaying element #1 1583s [00:53:03.892] - relayed: [n=1] TRUE 1583s [00:53:03.892] - queued futures: [n=1] TRUE 1583s [00:53:03.892] signalConditionsASAP(SequentialFuture, pos=1) ... done 1583s [00:53:03.892] length: 0 (resolved future 1) 1583s [00:53:03.892] Relaying remaining futures 1583s [00:53:03.892] signalConditionsASAP(NULL, pos=0) ... 1583s [00:53:03.892] - nx: 1 1583s [00:53:03.893] - relay: TRUE 1583s [00:53:03.893] - stdout: TRUE 1583s [00:53:03.893] - signal: TRUE 1583s [00:53:03.893] - resignal: FALSE 1583s [00:53:03.893] - force: TRUE 1583s [00:53:03.893] - relayed: [n=1] TRUE 1583s [00:53:03.893] - queued futures: [n=1] TRUE 1583s - flush all 1583s [00:53:03.894] - relayed: [n=1] TRUE 1583s [00:53:03.894] - queued futures: [n=1] TRUE 1583s [00:53:03.894] signalConditionsASAP(NULL, pos=0) ... done 1583s [00:53:03.894] resolve() on list ... DONE 1583s [00:53:03.894] - Number of value chunks collected: 1 1583s List of 2 1583s [00:53:03.894] Resolving 1 futures (chunks) ... DONE 1583s [00:53:03.894] Reducing values from 1 chunks ... 1583s [00:53:03.895] - Number of values collected after concatenation: 4 1583s [00:53:03.895] - Number of values expected: 4 1583s [00:53:03.895] Reducing values from 1 chunks ... DONE 1583s [00:53:03.895] future_lapply() ... DONE 1583s $ y0: num [1:3, 1:5, 1:4] 100 100 100 200 200 200 300 300 300 400 ... 1583s ..- attr(*, "dimnames")=List of 3 1583s .. ..$ : NULL 1583s .. ..$ : NULL 1583s .. ..$ : chr [1:4] "A" "B" "C" "D" 1583s $ y1: num [1:3, 1:5, 1:4] 100 100 100 200 200 200 300 300 300 400 ... 1583s ..- attr(*, "dimnames")=List of 3 1583s .. ..$ : NULL 1583s .. ..$ : NULL 1583s .. ..$ : chr [1:4] [00:53:03.900] future_lapply() ... 1583s "A" "B" "C" "D" 1583s [00:53:03.904] Number of chunks: 1 1583s [00:53:03.904] getGlobalsAndPackagesXApply() ... 1583s [00:53:03.904] - future.globals: TRUE 1583s [00:53:03.904] getGlobalsAndPackages() ... 1583s [00:53:03.904] Searching for globals... 1583s [00:53:03.905] - globals found: [1] ‘FUN’ 1583s [00:53:03.906] Searching for globals ... DONE 1583s [00:53:03.906] Resolving globals: FALSE 1583s [00:53:03.906] The total size of the 1 globals is 848 bytes (848 bytes) 1583s [00:53:03.906] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1583s [00:53:03.907] - globals: [1] ‘FUN’ 1583s [00:53:03.907] 1583s [00:53:03.907] getGlobalsAndPackages() ... DONE 1583s [00:53:03.907] - globals found/used: [n=1] ‘FUN’ 1583s [00:53:03.907] - needed namespaces: [n=0] 1583s [00:53:03.907] Finding globals ... DONE 1583s [00:53:03.908] - use_args: TRUE 1583s [00:53:03.908] - Getting '...' globals ... 1583s [00:53:03.908] resolve() on list ... 1583s [00:53:03.908] recursive: 0 1583s [00:53:03.908] length: 1 1583s [00:53:03.908] elements: ‘...’ 1583s [00:53:03.909] length: 0 (resolved future 1) 1583s [00:53:03.909] resolve() on list ... DONE 1583s [00:53:03.909] - '...' content: [n=0] 1583s [00:53:03.909] List of 1 1583s [00:53:03.909] $ ...: list() 1583s [00:53:03.909] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1583s [00:53:03.909] - attr(*, "where")=List of 1 1583s [00:53:03.909] ..$ ...: 1583s [00:53:03.909] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1583s [00:53:03.909] - attr(*, "resolved")= logi TRUE 1583s [00:53:03.909] - attr(*, "total_size")= num NA 1583s [00:53:03.912] - Getting '...' globals ... DONE 1583s [00:53:03.913] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1583s [00:53:03.913] List of 2 1583s [00:53:03.913] $ ...future.FUN:function (x) 1583s [00:53:03.913] $ ... : list() 1583s [00:53:03.913] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1583s [00:53:03.913] - attr(*, "where")=List of 2 1583s [00:53:03.913] ..$ ...future.FUN: 1583s [00:53:03.913] ..$ ... : 1583s [00:53:03.913] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1583s [00:53:03.913] - attr(*, "resolved")= logi FALSE 1583s [00:53:03.913] - attr(*, "total_size")= num 848 1583s [00:53:03.916] Packages to be attached in all futures: [n=0] 1583s [00:53:03.916] getGlobalsAndPackagesXApply() ... DONE 1583s [00:53:03.916] Number of futures (= number of chunks): 1 1583s [00:53:03.917] Launching 1 futures (chunks) ... 1583s [00:53:03.917] Chunk #1 of 1 ... 1583s [00:53:03.917] - Finding globals in 'X' for chunk #1 ... 1583s [00:53:03.917] getGlobalsAndPackages() ... 1583s [00:53:03.917] Searching for globals... 1583s [00:53:03.918] 1583s [00:53:03.918] Searching for globals ... DONE 1583s [00:53:03.918] - globals: [0] 1583s [00:53:03.919] getGlobalsAndPackages() ... DONE 1583s [00:53:03.919] + additional globals found: [n=0] 1583s [00:53:03.919] + additional namespaces needed: [n=0] 1583s [00:53:03.919] - Finding globals in 'X' for chunk #1 ... DONE 1583s [00:53:03.919] - seeds: 1583s [00:53:03.919] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1583s [00:53:03.920] getGlobalsAndPackages() ... 1583s [00:53:03.920] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1583s [00:53:03.920] Resolving globals: FALSE 1583s [00:53:03.920] Tweak future expression to call with '...' arguments ... 1583s [00:53:03.920] { 1583s [00:53:03.920] do.call(function(...) { 1583s [00:53:03.920] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1583s [00:53:03.920] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1583s [00:53:03.920] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1583s [00:53:03.920] on.exit(options(oopts), add = TRUE) 1583s [00:53:03.920] } 1583s [00:53:03.920] { 1583s [00:53:03.920] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1583s [00:53:03.920] ...future.X_jj <- ...future.elements_ii[[jj]] 1583s [00:53:03.920] ...future.FUN(...future.X_jj, ...) 1583s [00:53:03.920] }) 1583s [00:53:03.920] } 1583s [00:53:03.920] }, args = future.call.arguments) 1583s [00:53:03.920] } 1583s [00:53:03.921] Tweak future expression to call with '...' arguments ... DONE 1583s [00:53:03.921] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1583s [00:53:03.922] 1583s [00:53:03.922] getGlobalsAndPackages() ... DONE 1583s [00:53:03.922] run() for ‘Future’ ... 1583s [00:53:03.922] - state: ‘created’ 1583s [00:53:03.922] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1583s [00:53:03.931] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1583s [00:53:03.931] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1583s [00:53:03.932] - Field: ‘label’ 1583s [00:53:03.932] - Field: ‘local’ 1583s [00:53:03.932] - Field: ‘owner’ 1583s [00:53:03.932] - Field: ‘envir’ 1583s [00:53:03.933] - Field: ‘packages’ 1583s [00:53:03.933] - Field: ‘gc’ 1583s [00:53:03.933] - Field: ‘conditions’ 1583s [00:53:03.933] - Field: ‘expr’ 1583s [00:53:03.933] - Field: ‘uuid’ 1583s [00:53:03.934] - Field: ‘seed’ 1583s [00:53:03.934] - Field: ‘version’ 1583s [00:53:03.934] - Field: ‘result’ 1583s [00:53:03.934] - Field: ‘asynchronous’ 1583s [00:53:03.934] - Field: ‘calls’ 1583s [00:53:03.934] - Field: ‘globals’ 1583s [00:53:03.934] - Field: ‘stdout’ 1583s [00:53:03.935] - Field: ‘earlySignal’ 1583s [00:53:03.935] - Field: ‘lazy’ 1583s [00:53:03.935] - Field: ‘state’ 1583s [00:53:03.935] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1583s [00:53:03.935] - Launch lazy future ... 1583s [00:53:03.936] Packages needed by the future expression (n = 0): 1583s [00:53:03.936] Packages needed by future strategies (n = 0): 1583s [00:53:03.936] { 1583s [00:53:03.936] { 1583s [00:53:03.936] { 1583s [00:53:03.936] ...future.startTime <- base::Sys.time() 1583s [00:53:03.936] { 1583s [00:53:03.936] { 1583s [00:53:03.936] { 1583s [00:53:03.936] base::local({ 1583s [00:53:03.936] has_future <- base::requireNamespace("future", 1583s [00:53:03.936] quietly = TRUE) 1583s [00:53:03.936] if (has_future) { 1583s [00:53:03.936] ns <- base::getNamespace("future") 1583s [00:53:03.936] version <- ns[[".package"]][["version"]] 1583s [00:53:03.936] if (is.null(version)) 1583s [00:53:03.936] version <- utils::packageVersion("future") 1583s [00:53:03.936] } 1583s [00:53:03.936] else { 1583s [00:53:03.936] version <- NULL 1583s [00:53:03.936] } 1583s [00:53:03.936] if (!has_future || version < "1.8.0") { 1583s [00:53:03.936] info <- base::c(r_version = base::gsub("R version ", 1583s [00:53:03.936] "", base::R.version$version.string), 1583s [00:53:03.936] platform = base::sprintf("%s (%s-bit)", 1583s [00:53:03.936] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1583s [00:53:03.936] os = base::paste(base::Sys.info()[base::c("sysname", 1583s [00:53:03.936] "release", "version")], collapse = " "), 1583s [00:53:03.936] hostname = base::Sys.info()[["nodename"]]) 1583s [00:53:03.936] info <- base::sprintf("%s: %s", base::names(info), 1583s [00:53:03.936] info) 1583s [00:53:03.936] info <- base::paste(info, collapse = "; ") 1583s [00:53:03.936] if (!has_future) { 1583s [00:53:03.936] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1583s [00:53:03.936] info) 1583s [00:53:03.936] } 1583s [00:53:03.936] else { 1583s [00:53:03.936] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1583s [00:53:03.936] info, version) 1583s [00:53:03.936] } 1583s [00:53:03.936] base::stop(msg) 1583s [00:53:03.936] } 1583s [00:53:03.936] }) 1583s [00:53:03.936] } 1583s [00:53:03.936] options(future.plan = NULL) 1583s [00:53:03.936] Sys.unsetenv("R_FUTURE_PLAN") 1583s [00:53:03.936] future::plan("default", .cleanup = FALSE, .init = FALSE) 1583s [00:53:03.936] } 1583s [00:53:03.936] ...future.workdir <- getwd() 1583s [00:53:03.936] } 1583s [00:53:03.936] ...future.oldOptions <- base::as.list(base::.Options) 1583s [00:53:03.936] ...future.oldEnvVars <- base::Sys.getenv() 1583s [00:53:03.936] } 1583s [00:53:03.936] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1583s [00:53:03.936] future.globals.maxSize = NULL, future.globals.method = NULL, 1583s [00:53:03.936] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1583s [00:53:03.936] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1583s [00:53:03.936] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1583s [00:53:03.936] future.stdout.windows.reencode = NULL, width = 80L) 1583s [00:53:03.936] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1583s [00:53:03.936] base::names(...future.oldOptions)) 1583s [00:53:03.936] } 1583s [00:53:03.936] if (FALSE) { 1583s [00:53:03.936] } 1583s [00:53:03.936] else { 1583s [00:53:03.936] if (TRUE) { 1583s [00:53:03.936] ...future.stdout <- base::rawConnection(base::raw(0L), 1583s [00:53:03.936] open = "w") 1583s [00:53:03.936] } 1583s [00:53:03.936] else { 1583s [00:53:03.936] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1583s [00:53:03.936] windows = "NUL", "/dev/null"), open = "w") 1583s [00:53:03.936] } 1583s [00:53:03.936] base::sink(...future.stdout, type = "output", split = FALSE) 1583s [00:53:03.936] base::on.exit(if (!base::is.null(...future.stdout)) { 1583s [00:53:03.936] base::sink(type = "output", split = FALSE) 1583s [00:53:03.936] base::close(...future.stdout) 1583s [00:53:03.936] }, add = TRUE) 1583s [00:53:03.936] } 1583s [00:53:03.936] ...future.frame <- base::sys.nframe() 1583s [00:53:03.936] ...future.conditions <- base::list() 1583s [00:53:03.936] ...future.rng <- base::globalenv()$.Random.seed 1583s [00:53:03.936] if (FALSE) { 1583s [00:53:03.936] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1583s [00:53:03.936] "...future.value", "...future.globalenv.names", ".Random.seed") 1583s [00:53:03.936] } 1583s [00:53:03.936] ...future.result <- base::tryCatch({ 1583s [00:53:03.936] base::withCallingHandlers({ 1583s [00:53:03.936] ...future.value <- base::withVisible(base::local({ 1583s [00:53:03.936] do.call(function(...) { 1583s [00:53:03.936] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1583s [00:53:03.936] if (!identical(...future.globals.maxSize.org, 1583s [00:53:03.936] ...future.globals.maxSize)) { 1583s [00:53:03.936] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1583s [00:53:03.936] on.exit(options(oopts), add = TRUE) 1583s [00:53:03.936] } 1583s [00:53:03.936] { 1583s [00:53:03.936] lapply(seq_along(...future.elements_ii), 1583s [00:53:03.936] FUN = function(jj) { 1583s [00:53:03.936] ...future.X_jj <- ...future.elements_ii[[jj]] 1583s [00:53:03.936] ...future.FUN(...future.X_jj, ...) 1583s [00:53:03.936] }) 1583s [00:53:03.936] } 1583s [00:53:03.936] }, args = future.call.arguments) 1583s [00:53:03.936] })) 1583s [00:53:03.936] future::FutureResult(value = ...future.value$value, 1583s [00:53:03.936] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1583s [00:53:03.936] ...future.rng), globalenv = if (FALSE) 1583s [00:53:03.936] list(added = base::setdiff(base::names(base::.GlobalEnv), 1583s [00:53:03.936] ...future.globalenv.names)) 1583s [00:53:03.936] else NULL, started = ...future.startTime, version = "1.8") 1583s [00:53:03.936] }, condition = base::local({ 1583s [00:53:03.936] c <- base::c 1583s [00:53:03.936] inherits <- base::inherits 1583s [00:53:03.936] invokeRestart <- base::invokeRestart 1583s [00:53:03.936] length <- base::length 1583s [00:53:03.936] list <- base::list 1583s [00:53:03.936] seq.int <- base::seq.int 1583s [00:53:03.936] signalCondition <- base::signalCondition 1583s [00:53:03.936] sys.calls <- base::sys.calls 1583s [00:53:03.936] `[[` <- base::`[[` 1583s [00:53:03.936] `+` <- base::`+` 1583s [00:53:03.936] `<<-` <- base::`<<-` 1583s [00:53:03.936] sysCalls <- function(calls = sys.calls(), from = 1L) { 1583s [00:53:03.936] calls[seq.int(from = from + 12L, to = length(calls) - 1583s [00:53:03.936] 3L)] 1583s [00:53:03.936] } 1583s [00:53:03.936] function(cond) { 1583s [00:53:03.936] is_error <- inherits(cond, "error") 1583s [00:53:03.936] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1583s [00:53:03.936] NULL) 1583s [00:53:03.936] if (is_error) { 1583s [00:53:03.936] sessionInformation <- function() { 1583s [00:53:03.936] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1583s [00:53:03.936] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1583s [00:53:03.936] search = base::search(), system = base::Sys.info()) 1583s [00:53:03.936] } 1583s [00:53:03.936] ...future.conditions[[length(...future.conditions) + 1583s [00:53:03.936] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1583s [00:53:03.936] cond$call), session = sessionInformation(), 1583s [00:53:03.936] timestamp = base::Sys.time(), signaled = 0L) 1583s [00:53:03.936] signalCondition(cond) 1583s [00:53:03.936] } 1583s [00:53:03.936] else if (!ignore && TRUE && inherits(cond, c("condition", 1583s [00:53:03.936] "immediateCondition"))) { 1583s [00:53:03.936] signal <- TRUE && inherits(cond, "immediateCondition") 1583s [00:53:03.936] ...future.conditions[[length(...future.conditions) + 1583s [00:53:03.936] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1583s [00:53:03.936] if (TRUE && !signal) { 1583s [00:53:03.936] muffleCondition <- function (cond, pattern = "^muffle") 1583s [00:53:03.936] { 1583s [00:53:03.936] inherits <- base::inherits 1583s [00:53:03.936] invokeRestart <- base::invokeRestart 1583s [00:53:03.936] is.null <- base::is.null 1583s [00:53:03.936] muffled <- FALSE 1583s [00:53:03.936] if (inherits(cond, "message")) { 1583s [00:53:03.936] muffled <- grepl(pattern, "muffleMessage") 1583s [00:53:03.936] if (muffled) 1583s [00:53:03.936] invokeRestart("muffleMessage") 1583s [00:53:03.936] } 1583s [00:53:03.936] else if (inherits(cond, "warning")) { 1583s [00:53:03.936] muffled <- grepl(pattern, "muffleWarning") 1583s [00:53:03.936] if (muffled) 1583s [00:53:03.936] invokeRestart("muffleWarning") 1583s [00:53:03.936] } 1583s [00:53:03.936] else if (inherits(cond, "condition")) { 1583s [00:53:03.936] if (!is.null(pattern)) { 1583s [00:53:03.936] computeRestarts <- base::computeRestarts 1583s [00:53:03.936] grepl <- base::grepl 1583s [00:53:03.936] restarts <- computeRestarts(cond) 1583s [00:53:03.936] for (restart in restarts) { 1583s [00:53:03.936] name <- restart$name 1583s [00:53:03.936] if (is.null(name)) 1583s [00:53:03.936] next 1583s [00:53:03.936] if (!grepl(pattern, name)) 1583s [00:53:03.936] next 1583s [00:53:03.936] invokeRestart(restart) 1583s [00:53:03.936] muffled <- TRUE 1583s [00:53:03.936] break 1583s [00:53:03.936] } 1583s [00:53:03.936] } 1583s [00:53:03.936] } 1583s [00:53:03.936] invisible(muffled) 1583s [00:53:03.936] } 1583s [00:53:03.936] muffleCondition(cond, pattern = "^muffle") 1583s [00:53:03.936] } 1583s [00:53:03.936] } 1583s [00:53:03.936] else { 1583s [00:53:03.936] if (TRUE) { 1583s [00:53:03.936] muffleCondition <- function (cond, pattern = "^muffle") 1583s [00:53:03.936] { 1583s [00:53:03.936] inherits <- base::inherits 1583s [00:53:03.936] invokeRestart <- base::invokeRestart 1583s [00:53:03.936] is.null <- base::is.null 1583s [00:53:03.936] muffled <- FALSE 1583s [00:53:03.936] if (inherits(cond, "message")) { 1583s [00:53:03.936] muffled <- grepl(pattern, "muffleMessage") 1583s [00:53:03.936] if (muffled) 1583s [00:53:03.936] invokeRestart("muffleMessage") 1583s [00:53:03.936] } 1583s [00:53:03.936] else if (inherits(cond, "warning")) { 1583s [00:53:03.936] muffled <- grepl(pattern, "muffleWarning") 1583s [00:53:03.936] if (muffled) 1583s [00:53:03.936] invokeRestart("muffleWarning") 1583s [00:53:03.936] } 1583s [00:53:03.936] else if (inherits(cond, "condition")) { 1583s [00:53:03.936] if (!is.null(pattern)) { 1583s [00:53:03.936] computeRestarts <- base::computeRestarts 1583s [00:53:03.936] grepl <- base::grepl 1583s [00:53:03.936] restarts <- computeRestarts(cond) 1583s [00:53:03.936] for (restart in restarts) { 1583s [00:53:03.936] name <- restart$name 1583s [00:53:03.936] if (is.null(name)) 1583s [00:53:03.936] next 1583s [00:53:03.936] if (!grepl(pattern, name)) 1583s [00:53:03.936] next 1583s [00:53:03.936] invokeRestart(restart) 1583s [00:53:03.936] muffled <- TRUE 1583s [00:53:03.936] break 1583s [00:53:03.936] } 1583s [00:53:03.936] } 1583s [00:53:03.936] } 1583s [00:53:03.936] invisible(muffled) 1583s [00:53:03.936] } 1583s [00:53:03.936] muffleCondition(cond, pattern = "^muffle") 1583s [00:53:03.936] } 1583s [00:53:03.936] } 1583s [00:53:03.936] } 1583s [00:53:03.936] })) 1583s [00:53:03.936] }, error = function(ex) { 1583s [00:53:03.936] base::structure(base::list(value = NULL, visible = NULL, 1583s [00:53:03.936] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1583s [00:53:03.936] ...future.rng), started = ...future.startTime, 1583s [00:53:03.936] finished = Sys.time(), session_uuid = NA_character_, 1583s [00:53:03.936] version = "1.8"), class = "FutureResult") 1583s [00:53:03.936] }, finally = { 1583s [00:53:03.936] if (!identical(...future.workdir, getwd())) 1583s [00:53:03.936] setwd(...future.workdir) 1583s [00:53:03.936] { 1583s [00:53:03.936] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1583s [00:53:03.936] ...future.oldOptions$nwarnings <- NULL 1583s [00:53:03.936] } 1583s [00:53:03.936] base::options(...future.oldOptions) 1583s [00:53:03.936] if (.Platform$OS.type == "windows") { 1583s [00:53:03.936] old_names <- names(...future.oldEnvVars) 1583s [00:53:03.936] envs <- base::Sys.getenv() 1583s [00:53:03.936] names <- names(envs) 1583s [00:53:03.936] common <- intersect(names, old_names) 1583s [00:53:03.936] added <- setdiff(names, old_names) 1583s [00:53:03.936] removed <- setdiff(old_names, names) 1583s [00:53:03.936] changed <- common[...future.oldEnvVars[common] != 1583s [00:53:03.936] envs[common]] 1583s [00:53:03.936] NAMES <- toupper(changed) 1583s [00:53:03.936] args <- list() 1583s [00:53:03.936] for (kk in seq_along(NAMES)) { 1583s [00:53:03.936] name <- changed[[kk]] 1583s [00:53:03.936] NAME <- NAMES[[kk]] 1583s [00:53:03.936] if (name != NAME && is.element(NAME, old_names)) 1583s [00:53:03.936] next 1583s [00:53:03.936] args[[name]] <- ...future.oldEnvVars[[name]] 1583s [00:53:03.936] } 1583s [00:53:03.936] NAMES <- toupper(added) 1583s [00:53:03.936] for (kk in seq_along(NAMES)) { 1583s [00:53:03.936] name <- added[[kk]] 1583s [00:53:03.936] NAME <- NAMES[[kk]] 1583s [00:53:03.936] if (name != NAME && is.element(NAME, old_names)) 1583s [00:53:03.936] next 1583s [00:53:03.936] args[[name]] <- "" 1583s [00:53:03.936] } 1583s [00:53:03.936] NAMES <- toupper(removed) 1583s [00:53:03.936] for (kk in seq_along(NAMES)) { 1583s [00:53:03.936] name <- removed[[kk]] 1583s [00:53:03.936] NAME <- NAMES[[kk]] 1583s [00:53:03.936] if (name != NAME && is.element(NAME, old_names)) 1583s [00:53:03.936] next 1583s [00:53:03.936] args[[name]] <- ...future.oldEnvVars[[name]] 1583s [00:53:03.936] } 1583s [00:53:03.936] if (length(args) > 0) 1583s [00:53:03.936] base::do.call(base::Sys.setenv, args = args) 1583s [00:53:03.936] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1583s [00:53:03.936] } 1583s [00:53:03.936] else { 1583s [00:53:03.936] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1583s [00:53:03.936] } 1583s [00:53:03.936] { 1583s [00:53:03.936] if (base::length(...future.futureOptionsAdded) > 1583s [00:53:03.936] 0L) { 1583s [00:53:03.936] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1583s [00:53:03.936] base::names(opts) <- ...future.futureOptionsAdded 1583s [00:53:03.936] base::options(opts) 1583s [00:53:03.936] } 1583s [00:53:03.936] { 1583s [00:53:03.936] { 1583s [00:53:03.936] NULL 1583s [00:53:03.936] RNGkind("Mersenne-Twister") 1583s [00:53:03.936] base::rm(list = ".Random.seed", envir = base::globalenv(), 1583s [00:53:03.936] inherits = FALSE) 1583s [00:53:03.936] } 1583s [00:53:03.936] options(future.plan = NULL) 1583s [00:53:03.936] if (is.na(NA_character_)) 1583s [00:53:03.936] Sys.unsetenv("R_FUTURE_PLAN") 1583s [00:53:03.936] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1583s [00:53:03.936] future::plan(list(function (..., workers = availableCores(), 1583s [00:53:03.936] lazy = FALSE, rscript_libs = .libPaths(), 1583s [00:53:03.936] envir = parent.frame()) 1583s [00:53:03.936] { 1583s [00:53:03.936] if (is.function(workers)) 1583s [00:53:03.936] workers <- workers() 1583s [00:53:03.936] workers <- structure(as.integer(workers), 1583s [00:53:03.936] class = class(workers)) 1583s [00:53:03.936] stop_if_not(length(workers) == 1, is.finite(workers), 1583s [00:53:03.936] workers >= 1) 1583s [00:53:03.936] if (workers == 1L && !inherits(workers, "AsIs")) { 1583s [00:53:03.936] return(sequential(..., lazy = TRUE, envir = envir)) 1583s [00:53:03.936] } 1583s [00:53:03.936] future <- MultisessionFuture(..., workers = workers, 1583s [00:53:03.936] lazy = lazy, rscript_libs = rscript_libs, 1583s [00:53:03.936] envir = envir) 1583s [00:53:03.936] if (!future$lazy) 1583s [00:53:03.936] future <- run(future) 1583s [00:53:03.936] invisible(future) 1583s [00:53:03.936] }), .cleanup = FALSE, .init = FALSE) 1583s [00:53:03.936] } 1583s [00:53:03.936] } 1583s [00:53:03.936] } 1583s [00:53:03.936] }) 1583s [00:53:03.936] if (TRUE) { 1583s [00:53:03.936] base::sink(type = "output", split = FALSE) 1583s [00:53:03.936] if (TRUE) { 1583s [00:53:03.936] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1583s [00:53:03.936] } 1583s [00:53:03.936] else { 1583s [00:53:03.936] ...future.result["stdout"] <- base::list(NULL) 1583s [00:53:03.936] } 1583s [00:53:03.936] base::close(...future.stdout) 1583s [00:53:03.936] ...future.stdout <- NULL 1583s [00:53:03.936] } 1583s [00:53:03.936] ...future.result$conditions <- ...future.conditions 1583s [00:53:03.936] ...future.result$finished <- base::Sys.time() 1583s [00:53:03.936] ...future.result 1583s [00:53:03.936] } 1583s [00:53:03.939] assign_globals() ... 1583s [00:53:03.939] List of 5 1583s [00:53:03.939] $ ...future.FUN :function (x) 1583s [00:53:03.939] $ future.call.arguments : list() 1583s [00:53:03.939] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1583s [00:53:03.939] $ ...future.elements_ii :List of 4 1583s [00:53:03.939] ..$ A: num 50 1583s [00:53:03.939] ..$ B: num 60 1583s [00:53:03.939] ..$ C: num 70 1583s [00:53:03.939] ..$ D: num 80 1583s [00:53:03.939] $ ...future.seeds_ii : NULL 1583s [00:53:03.939] $ ...future.globals.maxSize: NULL 1583s [00:53:03.939] - attr(*, "where")=List of 5 1583s [00:53:03.939] ..$ ...future.FUN : 1583s [00:53:03.939] ..$ future.call.arguments : 1583s [00:53:03.939] ..$ ...future.elements_ii : 1583s [00:53:03.939] ..$ ...future.seeds_ii : 1583s [00:53:03.939] ..$ ...future.globals.maxSize: 1583s [00:53:03.939] - attr(*, "resolved")= logi FALSE 1583s [00:53:03.939] - attr(*, "total_size")= num 848 1583s [00:53:03.939] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1583s [00:53:03.939] - attr(*, "already-done")= logi TRUE 1583s [00:53:03.948] - copied ‘...future.FUN’ to environment 1583s [00:53:03.948] - copied ‘future.call.arguments’ to environment 1583s [00:53:03.948] - copied ‘...future.elements_ii’ to environment 1583s [00:53:03.948] - copied ‘...future.seeds_ii’ to environment 1583s [00:53:03.948] - copied ‘...future.globals.maxSize’ to environment 1583s [00:53:03.948] assign_globals() ... done 1583s [00:53:03.949] plan(): Setting new future strategy stack: 1583s [00:53:03.949] List of future strategies: 1583s [00:53:03.949] 1. sequential: 1583s [00:53:03.949] - args: function (..., envir = parent.frame()) 1583s [00:53:03.949] - tweaked: FALSE 1583s [00:53:03.949] - call: NULL 1583s [00:53:03.949] plan(): nbrOfWorkers() = 1 1583s [00:53:03.950] plan(): Setting new future strategy stack: 1583s [00:53:03.951] List of future strategies: 1583s [00:53:03.951] 1. multisession: 1583s [00:53:03.951] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1583s [00:53:03.951] - tweaked: FALSE 1583s [00:53:03.951] - call: plan(strategy) 1583s [00:53:03.954] plan(): nbrOfWorkers() = 1 1583s [00:53:03.954] SequentialFuture started (and completed) 1583s [00:53:03.954] - Launch lazy future ... done 1583s [00:53:03.954] run() for ‘SequentialFuture’ ... done 1583s [00:53:03.955] Created future: 1583s [00:53:03.955] SequentialFuture: 1583s [00:53:03.955] Label: ‘future_sapply-1’ 1583s [00:53:03.955] Expression: 1583s [00:53:03.955] { 1583s [00:53:03.955] do.call(function(...) { 1583s [00:53:03.955] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1583s [00:53:03.955] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1583s [00:53:03.955] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1583s [00:53:03.955] on.exit(options(oopts), add = TRUE) 1583s [00:53:03.955] } 1583s [00:53:03.955] { 1583s [00:53:03.955] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1583s [00:53:03.955] ...future.X_jj <- ...future.elements_ii[[jj]] 1583s [00:53:03.955] ...future.FUN(...future.X_jj, ...) 1583s [00:53:03.955] }) 1583s [00:53:03.955] } 1583s [00:53:03.955] }, args = future.call.arguments) 1583s [00:53:03.955] } 1583s [00:53:03.955] Lazy evaluation: FALSE 1583s [00:53:03.955] Asynchronous evaluation: FALSE 1583s [00:53:03.955] Local evaluation: TRUE 1583s [00:53:03.955] Environment: R_GlobalEnv 1583s [00:53:03.955] Capture standard output: TRUE 1583s [00:53:03.955] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1583s [00:53:03.955] Globals: 5 objects totaling 1.05 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1583s [00:53:03.955] Packages: 1583s [00:53:03.955] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1583s [00:53:03.955] Resolved: TRUE 1583s [00:53:03.955] Value: 224 bytes of class ‘list’ 1583s [00:53:03.955] Early signaling: FALSE 1583s [00:53:03.955] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1583s [00:53:03.955] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1583s [00:53:03.956] Chunk #1 of 1 ... DONE 1583s [00:53:03.957] Launching 1 futures (chunks) ... DONE 1583s [00:53:03.957] Resolving 1 futures (chunks) ... 1583s [00:53:03.957] resolve() on list ... 1583s [00:53:03.957] recursive: 0 1583s [00:53:03.957] length: 1 1583s [00:53:03.957] 1583s [00:53:03.958] resolved() for ‘SequentialFuture’ ... 1583s [00:53:03.958] - state: ‘finished’ 1583s [00:53:03.958] - run: TRUE 1583s [00:53:03.958] - result: ‘FutureResult’ 1583s [00:53:03.958] resolved() for ‘SequentialFuture’ ... done 1583s [00:53:03.958] Future #1 1583s [00:53:03.959] signalConditionsASAP(SequentialFuture, pos=1) ... 1583s [00:53:03.959] - nx: 1 1583s [00:53:03.959] - relay: TRUE 1583s [00:53:03.959] - stdout: TRUE 1583s [00:53:03.959] - signal: TRUE 1583s [00:53:03.959] - resignal: FALSE 1583s [00:53:03.959] - force: TRUE 1583s [00:53:03.960] - relayed: [n=1] FALSE 1583s [00:53:03.960] - queued futures: [n=1] FALSE 1583s [00:53:03.962] - until=1 1583s [00:53:03.962] - relaying element #1 1583s [00:53:03.962] - relayed: [n=1] TRUE 1583s [00:53:03.962] - queued futures: [n=1] TRUE 1583s [00:53:03.962] signalConditionsASAP(SequentialFuture, pos=1) ... done 1583s [00:53:03.963] length: 0 (resolved future 1) 1583s [00:53:03.963] Relaying remaining futures 1583s [00:53:03.963] signalConditionsASAP(NULL, pos=0) ... 1583s [00:53:03.963] - nx: 1 1583s [00:53:03.963] - relay: TRUE 1583s [00:53:03.963] - stdout: TRUE 1583s [00:53:03.963] - signal: TRUE 1583s [00:53:03.964] - resignal: FALSE 1583s [00:53:03.964] - force: TRUE 1583s [00:53:03.964] - relayed: [n=1] TRUE 1583s [00:53:03.964] - queued futures: [n=1] TRUE 1583s - flush all 1583s [00:53:03.964] - relayed: [n=1] TRUE 1583s [00:53:03.964] - queued futures: [n=1] TRUE 1583s [00:53:03.965] signalConditionsASAP(NULL, pos=0) ... done 1583s [00:53:03.965] resolve() on list ... DONE 1583s [00:53:03.965] - Number of value chunks collected: 1 1583s [00:53:03.965] Resolving 1 futures (chunks) ... DONE 1583s [00:53:03.965] Reducing values from 1 chunks ... 1583s [00:53:03.966] - Number of values collected after concatenation: 4 1583s [00:53:03.966] - Number of values expected: 4 1583s [00:53:03.966] Reducing values from 1 chunks ... DONE 1583s [00:53:03.966] future_lapply() ... DONE 1583s List of 2 1583s $ y0:List of 4 1584s ..$ A: num 50 1584s ..$ B: num 60 1584s ..$ C: num 70 1584s ..$ D: num 80 1584s $ y1:List of 4 1584s ..$ A: num 50 1584s ..$ B: num 60 1584s ..$ C: num 70 1584s ..$ D: num 80 1584s List of 2 1584s $ y0:List of 4 1584s ..$ A: num 50 1584s ..$ B: num 60 1584s ..$ C: num 70 1584s ..$ D: num 80 1584s $ y2:List of 4 1584s ..$ A: num 50 1584s ..$ B: num 60 1584s ..$ C: num 70 1584s ..$ D: num 80 1584s [00:53:03.978] future_lapply() ... 1584s [00:53:03.983] Number of chunks: 1 1584s [00:53:03.984] getGlobalsAndPackagesXApply() ... 1584s [00:53:03.984] - future.globals: TRUE 1584s [00:53:03.984] getGlobalsAndPackages() ... 1584s [00:53:03.984] Searching for globals... 1584s [00:53:03.986] - globals found: [2] ‘FUN’, ‘UseMethod’ 1584s [00:53:03.986] Searching for globals ... DONE 1584s [00:53:03.986] Resolving globals: FALSE 1584s [00:53:03.986] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1584s [00:53:03.987] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1584s [00:53:03.987] - globals: [1] ‘FUN’ 1584s [00:53:03.987] 1584s [00:53:03.987] getGlobalsAndPackages() ... DONE 1584s [00:53:03.987] - globals found/used: [n=1] ‘FUN’ 1584s [00:53:03.987] - needed namespaces: [n=0] 1584s [00:53:03.987] Finding globals ... DONE 1584s [00:53:03.988] - use_args: TRUE 1584s [00:53:03.988] - Getting '...' globals ... 1584s [00:53:03.988] resolve() on list ... 1584s [00:53:03.988] recursive: 0 1584s [00:53:03.988] length: 1 1584s [00:53:03.988] elements: ‘...’ 1584s [00:53:03.989] length: 0 (resolved future 1) 1584s [00:53:03.989] resolve() on list ... DONE 1584s [00:53:03.989] - '...' content: [n=0] 1584s [00:53:03.989] List of 1 1584s [00:53:03.989] $ ...: list() 1584s [00:53:03.989] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1584s [00:53:03.989] - attr(*, "where")=List of 1 1584s [00:53:03.989] ..$ ...: 1584s [00:53:03.989] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1584s [00:53:03.989] - attr(*, "resolved")= logi TRUE 1584s [00:53:03.989] - attr(*, "total_size")= num NA 1584s [00:53:03.992] - Getting '...' globals ... DONE 1584s [00:53:03.992] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1584s [00:53:03.993] List of 2 1584s [00:53:03.993] $ ...future.FUN:function (x, ...) 1584s [00:53:03.993] $ ... : list() 1584s [00:53:03.993] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1584s [00:53:03.993] - attr(*, "where")=List of 2 1584s [00:53:03.993] ..$ ...future.FUN: 1584s [00:53:03.993] ..$ ... : 1584s [00:53:03.993] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1584s [00:53:03.993] - attr(*, "resolved")= logi FALSE 1584s [00:53:03.993] - attr(*, "total_size")= num 1248 1584s [00:53:03.996] Packages to be attached in all futures: [n=0] 1584s [00:53:03.996] getGlobalsAndPackagesXApply() ... DONE 1584s [00:53:03.996] Number of futures (= number of chunks): 1 1584s [00:53:03.996] Launching 1 futures (chunks) ... 1584s [00:53:03.997] Chunk #1 of 1 ... 1584s [00:53:03.997] - Finding globals in 'X' for chunk #1 ... 1584s [00:53:03.997] getGlobalsAndPackages() ... 1584s [00:53:03.997] Searching for globals... 1584s [00:53:03.997] 1584s [00:53:03.997] Searching for globals ... DONE 1584s [00:53:03.998] - globals: [0] 1584s [00:53:03.998] getGlobalsAndPackages() ... DONE 1584s [00:53:03.998] + additional globals found: [n=0] 1584s [00:53:03.998] + additional namespaces needed: [n=0] 1584s [00:53:03.998] - Finding globals in 'X' for chunk #1 ... DONE 1584s [00:53:03.998] - seeds: 1584s [00:53:03.998] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1584s [00:53:03.999] getGlobalsAndPackages() ... 1584s [00:53:03.999] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1584s [00:53:03.999] Resolving globals: FALSE 1584s [00:53:03.999] Tweak future expression to call with '...' arguments ... 1584s [00:53:03.999] { 1584s [00:53:03.999] do.call(function(...) { 1584s [00:53:03.999] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1584s [00:53:03.999] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1584s [00:53:03.999] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1584s [00:53:03.999] on.exit(options(oopts), add = TRUE) 1584s [00:53:03.999] } 1584s [00:53:03.999] { 1584s [00:53:03.999] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1584s [00:53:03.999] ...future.X_jj <- ...future.elements_ii[[jj]] 1584s [00:53:03.999] ...future.FUN(...future.X_jj, ...) 1584s [00:53:03.999] }) 1584s [00:53:03.999] } 1584s [00:53:03.999] }, args = future.call.arguments) 1584s [00:53:03.999] } 1584s [00:53:04.000] Tweak future expression to call with '...' arguments ... DONE 1584s [00:53:04.000] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1584s [00:53:04.001] 1584s [00:53:04.001] getGlobalsAndPackages() ... DONE 1584s [00:53:04.001] run() for ‘Future’ ... 1584s [00:53:04.002] - state: ‘created’ 1584s [00:53:04.002] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1584s [00:53:04.005] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1584s [00:53:04.006] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1584s [00:53:04.006] - Field: ‘label’ 1584s [00:53:04.006] - Field: ‘local’ 1584s [00:53:04.006] - Field: ‘owner’ 1584s [00:53:04.006] - Field: ‘envir’ 1584s [00:53:04.006] - Field: ‘packages’ 1584s [00:53:04.007] - Field: ‘gc’ 1584s [00:53:04.007] - Field: ‘conditions’ 1584s [00:53:04.007] - Field: ‘expr’ 1584s [00:53:04.007] - Field: ‘uuid’ 1584s [00:53:04.007] - Field: ‘seed’ 1584s [00:53:04.007] - Field: ‘version’ 1584s [00:53:04.008] - Field: ‘result’ 1584s [00:53:04.008] - Field: ‘asynchronous’ 1584s [00:53:04.008] - Field: ‘calls’ 1584s [00:53:04.008] - Field: ‘globals’ 1584s [00:53:04.008] - Field: ‘stdout’ 1584s [00:53:04.008] - Field: ‘earlySignal’ 1584s [00:53:04.008] - Field: ‘lazy’ 1584s [00:53:04.009] - Field: ‘state’ 1584s [00:53:04.009] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1584s [00:53:04.009] - Launch lazy future ... 1584s [00:53:04.009] Packages needed by the future expression (n = 0): 1584s [00:53:04.009] Packages needed by future strategies (n = 0): 1584s [00:53:04.010] { 1584s [00:53:04.010] { 1584s [00:53:04.010] { 1584s [00:53:04.010] ...future.startTime <- base::Sys.time() 1584s [00:53:04.010] { 1584s [00:53:04.010] { 1584s [00:53:04.010] { 1584s [00:53:04.010] base::local({ 1584s [00:53:04.010] has_future <- base::requireNamespace("future", 1584s [00:53:04.010] quietly = TRUE) 1584s [00:53:04.010] if (has_future) { 1584s [00:53:04.010] ns <- base::getNamespace("future") 1584s [00:53:04.010] version <- ns[[".package"]][["version"]] 1584s [00:53:04.010] if (is.null(version)) 1584s [00:53:04.010] version <- utils::packageVersion("future") 1584s [00:53:04.010] } 1584s [00:53:04.010] else { 1584s [00:53:04.010] version <- NULL 1584s [00:53:04.010] } 1584s [00:53:04.010] if (!has_future || version < "1.8.0") { 1584s [00:53:04.010] info <- base::c(r_version = base::gsub("R version ", 1584s [00:53:04.010] "", base::R.version$version.string), 1584s [00:53:04.010] platform = base::sprintf("%s (%s-bit)", 1584s [00:53:04.010] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1584s [00:53:04.010] os = base::paste(base::Sys.info()[base::c("sysname", 1584s [00:53:04.010] "release", "version")], collapse = " "), 1584s [00:53:04.010] hostname = base::Sys.info()[["nodename"]]) 1584s [00:53:04.010] info <- base::sprintf("%s: %s", base::names(info), 1584s [00:53:04.010] info) 1584s [00:53:04.010] info <- base::paste(info, collapse = "; ") 1584s [00:53:04.010] if (!has_future) { 1584s [00:53:04.010] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1584s [00:53:04.010] info) 1584s [00:53:04.010] } 1584s [00:53:04.010] else { 1584s [00:53:04.010] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1584s [00:53:04.010] info, version) 1584s [00:53:04.010] } 1584s [00:53:04.010] base::stop(msg) 1584s [00:53:04.010] } 1584s [00:53:04.010] }) 1584s [00:53:04.010] } 1584s [00:53:04.010] options(future.plan = NULL) 1584s [00:53:04.010] Sys.unsetenv("R_FUTURE_PLAN") 1584s [00:53:04.010] future::plan("default", .cleanup = FALSE, .init = FALSE) 1584s [00:53:04.010] } 1584s [00:53:04.010] ...future.workdir <- getwd() 1584s [00:53:04.010] } 1584s [00:53:04.010] ...future.oldOptions <- base::as.list(base::.Options) 1584s [00:53:04.010] ...future.oldEnvVars <- base::Sys.getenv() 1584s [00:53:04.010] } 1584s [00:53:04.010] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1584s [00:53:04.010] future.globals.maxSize = NULL, future.globals.method = NULL, 1584s [00:53:04.010] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1584s [00:53:04.010] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1584s [00:53:04.010] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1584s [00:53:04.010] future.stdout.windows.reencode = NULL, width = 80L) 1584s [00:53:04.010] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1584s [00:53:04.010] base::names(...future.oldOptions)) 1584s [00:53:04.010] } 1584s [00:53:04.010] if (FALSE) { 1584s [00:53:04.010] } 1584s [00:53:04.010] else { 1584s [00:53:04.010] if (TRUE) { 1584s [00:53:04.010] ...future.stdout <- base::rawConnection(base::raw(0L), 1584s [00:53:04.010] open = "w") 1584s [00:53:04.010] } 1584s [00:53:04.010] else { 1584s [00:53:04.010] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1584s [00:53:04.010] windows = "NUL", "/dev/null"), open = "w") 1584s [00:53:04.010] } 1584s [00:53:04.010] base::sink(...future.stdout, type = "output", split = FALSE) 1584s [00:53:04.010] base::on.exit(if (!base::is.null(...future.stdout)) { 1584s [00:53:04.010] base::sink(type = "output", split = FALSE) 1584s [00:53:04.010] base::close(...future.stdout) 1584s [00:53:04.010] }, add = TRUE) 1584s [00:53:04.010] } 1584s [00:53:04.010] ...future.frame <- base::sys.nframe() 1584s [00:53:04.010] ...future.conditions <- base::list() 1584s [00:53:04.010] ...future.rng <- base::globalenv()$.Random.seed 1584s [00:53:04.010] if (FALSE) { 1584s [00:53:04.010] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1584s [00:53:04.010] "...future.value", "...future.globalenv.names", ".Random.seed") 1584s [00:53:04.010] } 1584s [00:53:04.010] ...future.result <- base::tryCatch({ 1584s [00:53:04.010] base::withCallingHandlers({ 1584s [00:53:04.010] ...future.value <- base::withVisible(base::local({ 1584s [00:53:04.010] do.call(function(...) { 1584s [00:53:04.010] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1584s [00:53:04.010] if (!identical(...future.globals.maxSize.org, 1584s [00:53:04.010] ...future.globals.maxSize)) { 1584s [00:53:04.010] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1584s [00:53:04.010] on.exit(options(oopts), add = TRUE) 1584s [00:53:04.010] } 1584s [00:53:04.010] { 1584s [00:53:04.010] lapply(seq_along(...future.elements_ii), 1584s [00:53:04.010] FUN = function(jj) { 1584s [00:53:04.010] ...future.X_jj <- ...future.elements_ii[[jj]] 1584s [00:53:04.010] ...future.FUN(...future.X_jj, ...) 1584s [00:53:04.010] }) 1584s [00:53:04.010] } 1584s [00:53:04.010] }, args = future.call.arguments) 1584s [00:53:04.010] })) 1584s [00:53:04.010] future::FutureResult(value = ...future.value$value, 1584s [00:53:04.010] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1584s [00:53:04.010] ...future.rng), globalenv = if (FALSE) 1584s [00:53:04.010] list(added = base::setdiff(base::names(base::.GlobalEnv), 1584s [00:53:04.010] ...future.globalenv.names)) 1584s [00:53:04.010] else NULL, started = ...future.startTime, version = "1.8") 1584s [00:53:04.010] }, condition = base::local({ 1584s [00:53:04.010] c <- base::c 1584s [00:53:04.010] inherits <- base::inherits 1584s [00:53:04.010] invokeRestart <- base::invokeRestart 1584s [00:53:04.010] length <- base::length 1584s [00:53:04.010] list <- base::list 1584s [00:53:04.010] seq.int <- base::seq.int 1584s [00:53:04.010] signalCondition <- base::signalCondition 1584s [00:53:04.010] sys.calls <- base::sys.calls 1584s [00:53:04.010] `[[` <- base::`[[` 1584s [00:53:04.010] `+` <- base::`+` 1584s [00:53:04.010] `<<-` <- base::`<<-` 1584s [00:53:04.010] sysCalls <- function(calls = sys.calls(), from = 1L) { 1584s [00:53:04.010] calls[seq.int(from = from + 12L, to = length(calls) - 1584s [00:53:04.010] 3L)] 1584s [00:53:04.010] } 1584s [00:53:04.010] function(cond) { 1584s [00:53:04.010] is_error <- inherits(cond, "error") 1584s [00:53:04.010] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1584s [00:53:04.010] NULL) 1584s [00:53:04.010] if (is_error) { 1584s [00:53:04.010] sessionInformation <- function() { 1584s [00:53:04.010] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1584s [00:53:04.010] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1584s [00:53:04.010] search = base::search(), system = base::Sys.info()) 1584s [00:53:04.010] } 1584s [00:53:04.010] ...future.conditions[[length(...future.conditions) + 1584s [00:53:04.010] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1584s [00:53:04.010] cond$call), session = sessionInformation(), 1584s [00:53:04.010] timestamp = base::Sys.time(), signaled = 0L) 1584s [00:53:04.010] signalCondition(cond) 1584s [00:53:04.010] } 1584s [00:53:04.010] else if (!ignore && TRUE && inherits(cond, c("condition", 1584s [00:53:04.010] "immediateCondition"))) { 1584s [00:53:04.010] signal <- TRUE && inherits(cond, "immediateCondition") 1584s [00:53:04.010] ...future.conditions[[length(...future.conditions) + 1584s [00:53:04.010] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1584s [00:53:04.010] if (TRUE && !signal) { 1584s [00:53:04.010] muffleCondition <- function (cond, pattern = "^muffle") 1584s [00:53:04.010] { 1584s [00:53:04.010] inherits <- base::inherits 1584s [00:53:04.010] invokeRestart <- base::invokeRestart 1584s [00:53:04.010] is.null <- base::is.null 1584s [00:53:04.010] muffled <- FALSE 1584s [00:53:04.010] if (inherits(cond, "message")) { 1584s [00:53:04.010] muffled <- grepl(pattern, "muffleMessage") 1584s [00:53:04.010] if (muffled) 1584s [00:53:04.010] invokeRestart("muffleMessage") 1584s [00:53:04.010] } 1584s [00:53:04.010] else if (inherits(cond, "warning")) { 1584s [00:53:04.010] muffled <- grepl(pattern, "muffleWarning") 1584s [00:53:04.010] if (muffled) 1584s [00:53:04.010] invokeRestart("muffleWarning") 1584s [00:53:04.010] } 1584s [00:53:04.010] else if (inherits(cond, "condition")) { 1584s [00:53:04.010] if (!is.null(pattern)) { 1584s [00:53:04.010] computeRestarts <- base::computeRestarts 1584s [00:53:04.010] grepl <- base::grepl 1584s [00:53:04.010] restarts <- computeRestarts(cond) 1584s [00:53:04.010] for (restart in restarts) { 1584s [00:53:04.010] name <- restart$name 1584s [00:53:04.010] if (is.null(name)) 1584s [00:53:04.010] next 1584s [00:53:04.010] if (!grepl(pattern, name)) 1584s [00:53:04.010] next 1584s [00:53:04.010] invokeRestart(restart) 1584s [00:53:04.010] muffled <- TRUE 1584s [00:53:04.010] break 1584s [00:53:04.010] } 1584s [00:53:04.010] } 1584s [00:53:04.010] } 1584s [00:53:04.010] invisible(muffled) 1584s [00:53:04.010] } 1584s [00:53:04.010] muffleCondition(cond, pattern = "^muffle") 1584s [00:53:04.010] } 1584s [00:53:04.010] } 1584s [00:53:04.010] else { 1584s [00:53:04.010] if (TRUE) { 1584s [00:53:04.010] muffleCondition <- function (cond, pattern = "^muffle") 1584s [00:53:04.010] { 1584s [00:53:04.010] inherits <- base::inherits 1584s [00:53:04.010] invokeRestart <- base::invokeRestart 1584s [00:53:04.010] is.null <- base::is.null 1584s [00:53:04.010] muffled <- FALSE 1584s [00:53:04.010] if (inherits(cond, "message")) { 1584s [00:53:04.010] muffled <- grepl(pattern, "muffleMessage") 1584s [00:53:04.010] if (muffled) 1584s [00:53:04.010] invokeRestart("muffleMessage") 1584s [00:53:04.010] } 1584s [00:53:04.010] else if (inherits(cond, "warning")) { 1584s [00:53:04.010] muffled <- grepl(pattern, "muffleWarning") 1584s [00:53:04.010] if (muffled) 1584s [00:53:04.010] invokeRestart("muffleWarning") 1584s [00:53:04.010] } 1584s [00:53:04.010] else if (inherits(cond, "condition")) { 1584s [00:53:04.010] if (!is.null(pattern)) { 1584s [00:53:04.010] computeRestarts <- base::computeRestarts 1584s [00:53:04.010] grepl <- base::grepl 1584s [00:53:04.010] restarts <- computeRestarts(cond) 1584s [00:53:04.010] for (restart in restarts) { 1584s [00:53:04.010] name <- restart$name 1584s [00:53:04.010] if (is.null(name)) 1584s [00:53:04.010] next 1584s [00:53:04.010] if (!grepl(pattern, name)) 1584s [00:53:04.010] next 1584s [00:53:04.010] invokeRestart(restart) 1584s [00:53:04.010] muffled <- TRUE 1584s [00:53:04.010] break 1584s [00:53:04.010] } 1584s [00:53:04.010] } 1584s [00:53:04.010] } 1584s [00:53:04.010] invisible(muffled) 1584s [00:53:04.010] } 1584s [00:53:04.010] muffleCondition(cond, pattern = "^muffle") 1584s [00:53:04.010] } 1584s [00:53:04.010] } 1584s [00:53:04.010] } 1584s [00:53:04.010] })) 1584s [00:53:04.010] }, error = function(ex) { 1584s [00:53:04.010] base::structure(base::list(value = NULL, visible = NULL, 1584s [00:53:04.010] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1584s [00:53:04.010] ...future.rng), started = ...future.startTime, 1584s [00:53:04.010] finished = Sys.time(), session_uuid = NA_character_, 1584s [00:53:04.010] version = "1.8"), class = "FutureResult") 1584s [00:53:04.010] }, finally = { 1584s [00:53:04.010] if (!identical(...future.workdir, getwd())) 1584s [00:53:04.010] setwd(...future.workdir) 1584s [00:53:04.010] { 1584s [00:53:04.010] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1584s [00:53:04.010] ...future.oldOptions$nwarnings <- NULL 1584s [00:53:04.010] } 1584s [00:53:04.010] base::options(...future.oldOptions) 1584s [00:53:04.010] if (.Platform$OS.type == "windows") { 1584s [00:53:04.010] old_names <- names(...future.oldEnvVars) 1584s [00:53:04.010] envs <- base::Sys.getenv() 1584s [00:53:04.010] names <- names(envs) 1584s [00:53:04.010] common <- intersect(names, old_names) 1584s [00:53:04.010] added <- setdiff(names, old_names) 1584s [00:53:04.010] removed <- setdiff(old_names, names) 1584s [00:53:04.010] changed <- common[...future.oldEnvVars[common] != 1584s [00:53:04.010] envs[common]] 1584s [00:53:04.010] NAMES <- toupper(changed) 1584s [00:53:04.010] args <- list() 1584s [00:53:04.010] for (kk in seq_along(NAMES)) { 1584s [00:53:04.010] name <- changed[[kk]] 1584s [00:53:04.010] NAME <- NAMES[[kk]] 1584s [00:53:04.010] if (name != NAME && is.element(NAME, old_names)) 1584s [00:53:04.010] next 1584s [00:53:04.010] args[[name]] <- ...future.oldEnvVars[[name]] 1584s [00:53:04.010] } 1584s [00:53:04.010] NAMES <- toupper(added) 1584s [00:53:04.010] for (kk in seq_along(NAMES)) { 1584s [00:53:04.010] name <- added[[kk]] 1584s [00:53:04.010] NAME <- NAMES[[kk]] 1584s [00:53:04.010] if (name != NAME && is.element(NAME, old_names)) 1584s [00:53:04.010] next 1584s [00:53:04.010] args[[name]] <- "" 1584s [00:53:04.010] } 1584s [00:53:04.010] NAMES <- toupper(removed) 1584s [00:53:04.010] for (kk in seq_along(NAMES)) { 1584s [00:53:04.010] name <- removed[[kk]] 1584s [00:53:04.010] NAME <- NAMES[[kk]] 1584s [00:53:04.010] if (name != NAME && is.element(NAME, old_names)) 1584s [00:53:04.010] next 1584s [00:53:04.010] args[[name]] <- ...future.oldEnvVars[[name]] 1584s [00:53:04.010] } 1584s [00:53:04.010] if (length(args) > 0) 1584s [00:53:04.010] base::do.call(base::Sys.setenv, args = args) 1584s [00:53:04.010] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1584s [00:53:04.010] } 1584s [00:53:04.010] else { 1584s [00:53:04.010] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1584s [00:53:04.010] } 1584s [00:53:04.010] { 1584s [00:53:04.010] if (base::length(...future.futureOptionsAdded) > 1584s [00:53:04.010] 0L) { 1584s [00:53:04.010] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1584s [00:53:04.010] base::names(opts) <- ...future.futureOptionsAdded 1584s [00:53:04.010] base::options(opts) 1584s [00:53:04.010] } 1584s [00:53:04.010] { 1584s [00:53:04.010] { 1584s [00:53:04.010] NULL 1584s [00:53:04.010] RNGkind("Mersenne-Twister") 1584s [00:53:04.010] base::rm(list = ".Random.seed", envir = base::globalenv(), 1584s [00:53:04.010] inherits = FALSE) 1584s [00:53:04.010] } 1584s [00:53:04.010] options(future.plan = NULL) 1584s [00:53:04.010] if (is.na(NA_character_)) 1584s [00:53:04.010] Sys.unsetenv("R_FUTURE_PLAN") 1584s [00:53:04.010] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1584s [00:53:04.010] future::plan(list(function (..., workers = availableCores(), 1584s [00:53:04.010] lazy = FALSE, rscript_libs = .libPaths(), 1584s [00:53:04.010] envir = parent.frame()) 1584s [00:53:04.010] { 1584s [00:53:04.010] if (is.function(workers)) 1584s [00:53:04.010] workers <- workers() 1584s [00:53:04.010] workers <- structure(as.integer(workers), 1584s [00:53:04.010] class = class(workers)) 1584s [00:53:04.010] stop_if_not(length(workers) == 1, is.finite(workers), 1584s [00:53:04.010] workers >= 1) 1584s [00:53:04.010] if (workers == 1L && !inherits(workers, "AsIs")) { 1584s [00:53:04.010] return(sequential(..., lazy = TRUE, envir = envir)) 1584s [00:53:04.010] } 1584s [00:53:04.010] future <- MultisessionFuture(..., workers = workers, 1584s [00:53:04.010] lazy = lazy, rscript_libs = rscript_libs, 1584s [00:53:04.010] envir = envir) 1584s [00:53:04.010] if (!future$lazy) 1584s [00:53:04.010] future <- run(future) 1584s [00:53:04.010] invisible(future) 1584s [00:53:04.010] }), .cleanup = FALSE, .init = FALSE) 1584s [00:53:04.010] } 1584s [00:53:04.010] } 1584s [00:53:04.010] } 1584s [00:53:04.010] }) 1584s [00:53:04.010] if (TRUE) { 1584s [00:53:04.010] base::sink(type = "output", split = FALSE) 1584s [00:53:04.010] if (TRUE) { 1584s [00:53:04.010] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1584s [00:53:04.010] } 1584s [00:53:04.010] else { 1584s [00:53:04.010] ...future.result["stdout"] <- base::list(NULL) 1584s [00:53:04.010] } 1584s [00:53:04.010] base::close(...future.stdout) 1584s [00:53:04.010] ...future.stdout <- NULL 1584s [00:53:04.010] } 1584s [00:53:04.010] ...future.result$conditions <- ...future.conditions 1584s [00:53:04.010] ...future.result$finished <- base::Sys.time() 1584s [00:53:04.010] ...future.result 1584s [00:53:04.010] } 1584s [00:53:04.017] assign_globals() ... 1584s [00:53:04.017] List of 5 1584s [00:53:04.017] $ ...future.FUN :function (x, ...) 1584s [00:53:04.017] $ future.call.arguments : list() 1584s [00:53:04.017] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1584s [00:53:04.017] $ ...future.elements_ii :List of 4 1584s [00:53:04.017] ..$ A: num 50 1584s [00:53:04.017] ..$ B: num 60 1584s [00:53:04.017] ..$ C: num 70 1584s [00:53:04.017] ..$ D: num 80 1584s [00:53:04.017] $ ...future.seeds_ii : NULL 1584s [00:53:04.017] $ ...future.globals.maxSize: NULL 1584s [00:53:04.017] - attr(*, "where")=List of 5 1584s [00:53:04.017] ..$ ...future.FUN : 1584s [00:53:04.017] ..$ future.call.arguments : 1584s [00:53:04.017] ..$ ...future.elements_ii : 1584s [00:53:04.017] ..$ ...future.seeds_ii : 1584s [00:53:04.017] ..$ ...future.globals.maxSize: 1584s [00:53:04.017] - attr(*, "resolved")= logi FALSE 1584s [00:53:04.017] - attr(*, "total_size")= num 1248 1584s [00:53:04.017] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1584s [00:53:04.017] - attr(*, "already-done")= logi TRUE 1584s [00:53:04.025] - copied ‘...future.FUN’ to environment 1584s [00:53:04.025] - copied ‘future.call.arguments’ to environment 1584s [00:53:04.025] - copied ‘...future.elements_ii’ to environment 1584s [00:53:04.025] - copied ‘...future.seeds_ii’ to environment 1584s [00:53:04.025] - copied ‘...future.globals.maxSize’ to environment 1584s [00:53:04.025] assign_globals() ... done 1584s [00:53:04.025] plan(): Setting new future strategy stack: 1584s [00:53:04.026] List of future strategies: 1584s [00:53:04.026] 1. sequential: 1584s [00:53:04.026] - args: function (..., envir = parent.frame()) 1584s [00:53:04.026] - tweaked: FALSE 1584s [00:53:04.026] - call: NULL 1584s [00:53:04.026] plan(): nbrOfWorkers() = 1 1584s [00:53:04.027] plan(): Setting new future strategy stack: 1584s [00:53:04.027] List of future strategies: 1584s [00:53:04.027] 1. multisession: 1584s [00:53:04.027] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1584s [00:53:04.027] - tweaked: FALSE 1584s [00:53:04.027] - call: plan(strategy) 1584s [00:53:04.031] plan(): nbrOfWorkers() = 1 1584s [00:53:04.031] SequentialFuture started (and completed) 1584s [00:53:04.031] - Launch lazy future ... done 1584s [00:53:04.032] run() for ‘SequentialFuture’ ... done 1584s [00:53:04.032] Created future: 1584s [00:53:04.032] SequentialFuture: 1584s [00:53:04.032] Label: ‘future_sapply-1’ 1584s [00:53:04.032] Expression: 1584s [00:53:04.032] { 1584s [00:53:04.032] do.call(function(...) { 1584s [00:53:04.032] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1584s [00:53:04.032] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1584s [00:53:04.032] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1584s [00:53:04.032] on.exit(options(oopts), add = TRUE) 1584s [00:53:04.032] } 1584s [00:53:04.032] { 1584s [00:53:04.032] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1584s [00:53:04.032] ...future.X_jj <- ...future.elements_ii[[jj]] 1584s [00:53:04.032] ...future.FUN(...future.X_jj, ...) 1584s [00:53:04.032] }) 1584s [00:53:04.032] } 1584s [00:53:04.032] }, args = future.call.arguments) 1584s [00:53:04.032] } 1584s [00:53:04.032] Lazy evaluation: FALSE 1584s [00:53:04.032] Asynchronous evaluation: FALSE 1584s [00:53:04.032] Local evaluation: TRUE 1584s [00:53:04.032] Environment: R_GlobalEnv 1584s [00:53:04.032] Capture standard output: TRUE 1584s [00:53:04.032] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1584s [00:53:04.032] Globals: 5 objects totaling 1.44 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1584s [00:53:04.032] Packages: 1584s [00:53:04.032] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1584s [00:53:04.032] Resolved: TRUE 1584s [00:53:04.032] Value: 896 bytes of class ‘list’ 1584s [00:53:04.032] Early signaling: FALSE 1584s [00:53:04.032] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1584s [00:53:04.032] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1584s [00:53:04.034] Chunk #1 of 1 ... DONE 1584s [00:53:04.034] Launching 1 futures (chunks) ... DONE 1584s [00:53:04.034] Resolving 1 futures (chunks) ... 1584s [00:53:04.034] resolve() on list ... 1584s [00:53:04.034] recursive: 0 1584s [00:53:04.035] length: 1 1584s [00:53:04.035] 1584s [00:53:04.035] resolved() for ‘SequentialFuture’ ... 1584s [00:53:04.040] - state: ‘finished’ 1584s [00:53:04.040] - run: TRUE 1584s [00:53:04.040] - result: ‘FutureResult’ 1584s [00:53:04.041] resolved() for ‘SequentialFuture’ ... done 1584s [00:53:04.041] Future #1 1584s [00:53:04.041] signalConditionsASAP(SequentialFuture, pos=1) ... 1584s [00:53:04.041] - nx: 1 1584s [00:53:04.042] - relay: TRUE 1584s [00:53:04.042] - stdout: TRUE 1584s [00:53:04.042] - signal: TRUE 1584s [00:53:04.042] - resignal: FALSE 1584s [00:53:04.042] - force: TRUE 1584s [00:53:04.042] - relayed: [n=1] FALSE 1584s [00:53:04.042] - queued futures: [n=1] FALSE 1584s [00:53:04.043] - until=1 1584s [00:53:04.043] - relaying element #1 1584s [00:53:04.043] - relayed: [n=1] TRUE 1584s [00:53:04.044] - queued futures: [n=1] TRUE 1584s [00:53:04.044] signalConditionsASAP(SequentialFuture, pos=1) ... done 1584s [00:53:04.044] length: 0 (resolved future 1) 1584s [00:53:04.044] Relaying remaining futures 1584s [00:53:04.044] signalConditionsASAP(NULL, pos=0) ... 1584s [00:53:04.044] - nx: 1 1584s [00:53:04.045] - relay: TRUE 1584s [00:53:04.045] - stdout: TRUE 1584s [00:53:04.045] - signal: TRUE 1584s [00:53:04.045] - resignal: FALSE 1584s [00:53:04.045] - force: TRUE 1584s [00:53:04.045] - relayed: [n=1] TRUE 1584s [00:53:04.045] - queued futures: [n=1] TRUE 1584s - flush all 1584s [00:53:04.046] - relayed: [n=1] TRUE 1584s [00:53:04.046] - queued futures: [n=1] TRUE 1584s [00:53:04.046] signalConditionsASAP(NULL, pos=0) ... done 1584s [00:53:04.046] resolve() on list ... DONE 1584s [00:53:04.046] - Number of value chunks collected: 1 1584s [00:53:04.047] Resolving 1 futures (chunks) ... DONE 1584s [00:53:04.047] Reducing values from 1 chunks ... 1584s [00:53:04.047] - Number of values collected after concatenation: 4 1584s [00:53:04.047] - Number of values expected: 4 1584s [00:53:04.047] Reducing values from 1 chunks ... DONE 1584s [00:53:04.047] future_lapply() ... DONE 1584s List of 2 1584s $ y0:List of 4 1584s ..$ A: num [1, 1] 50 1584s ..$ B: num [1, 1] 60 1584s ..$ C: num [1, 1] 70 1584s ..$ D: num [1, 1] 80 1584s $ y1:List of 4 1584s ..$ A: num [1, 1] 50 1584s ..$ B: num [1, 1] 60 1584s ..$ C: num [1, 1] 70 1584s ..$ D: num [1, 1] 80 1584s List of 2 1584s $ y0:List of 4 1584s ..$ A: num [1, 1] 50 1584s ..$ B: num [1, 1] 60 1584s ..$ C: num [1, 1] 70 1584s ..$ D: num [1, 1] 80 1584s $ y2:List of 4 1584s ..$ A: num [1, 1] 50 1584s ..$ B: num [1, 1] 60 1584s ..$ C: num [1, 1] 70 1584s ..$ D: num [1, 1] 80 1584s [00:53:04.058] future_lapply() ... 1584s [00:53:04.062] Number of chunks: 1 1584s [00:53:04.062] getGlobalsAndPackagesXApply() ... 1584s [00:53:04.062] - future.globals: TRUE 1584s [00:53:04.063] getGlobalsAndPackages() ... 1584s [00:53:04.063] Searching for globals... 1584s [00:53:04.065] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1584s [00:53:04.065] Searching for globals ... DONE 1584s [00:53:04.066] Resolving globals: FALSE 1584s [00:53:04.066] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1584s [00:53:04.066] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1584s [00:53:04.067] - globals: [1] ‘FUN’ 1584s [00:53:04.067] 1584s [00:53:04.067] getGlobalsAndPackages() ... DONE 1584s [00:53:04.067] - globals found/used: [n=1] ‘FUN’ 1584s [00:53:04.067] - needed namespaces: [n=0] 1584s [00:53:04.067] Finding globals ... DONE 1584s [00:53:04.068] - use_args: TRUE 1584s [00:53:04.068] - Getting '...' globals ... 1584s [00:53:04.068] resolve() on list ... 1584s [00:53:04.069] recursive: 0 1584s [00:53:04.069] length: 1 1584s [00:53:04.069] elements: ‘...’ 1584s [00:53:04.069] length: 0 (resolved future 1) 1584s [00:53:04.069] resolve() on list ... DONE 1584s [00:53:04.069] - '...' content: [n=0] 1584s [00:53:04.069] List of 1 1584s [00:53:04.069] $ ...: list() 1584s [00:53:04.069] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1584s [00:53:04.069] - attr(*, "where")=List of 1 1584s [00:53:04.069] ..$ ...: 1584s [00:53:04.069] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1584s [00:53:04.069] - attr(*, "resolved")= logi TRUE 1584s [00:53:04.069] - attr(*, "total_size")= num NA 1584s [00:53:04.073] - Getting '...' globals ... DONE 1584s [00:53:04.073] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1584s [00:53:04.073] List of 2 1584s [00:53:04.073] $ ...future.FUN:function (x, y = 2 * 1:5) 1584s [00:53:04.073] $ ... : list() 1584s [00:53:04.073] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1584s [00:53:04.073] - attr(*, "where")=List of 2 1584s [00:53:04.073] ..$ ...future.FUN: 1584s [00:53:04.073] ..$ ... : 1584s [00:53:04.073] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1584s [00:53:04.073] - attr(*, "resolved")= logi FALSE 1584s [00:53:04.073] - attr(*, "total_size")= num 4728 1584s [00:53:04.077] Packages to be attached in all futures: [n=0] 1584s [00:53:04.077] getGlobalsAndPackagesXApply() ... DONE 1584s [00:53:04.077] Number of futures (= number of chunks): 1 1584s [00:53:04.078] Launching 1 futures (chunks) ... 1584s [00:53:04.078] Chunk #1 of 1 ... 1584s [00:53:04.078] - Finding globals in 'X' for chunk #1 ... 1584s [00:53:04.078] getGlobalsAndPackages() ... 1584s [00:53:04.078] Searching for globals... 1584s [00:53:04.079] 1584s [00:53:04.079] Searching for globals ... DONE 1584s [00:53:04.079] - globals: [0] 1584s [00:53:04.079] getGlobalsAndPackages() ... DONE 1584s [00:53:04.079] + additional globals found: [n=0] 1584s [00:53:04.079] + additional namespaces needed: [n=0] 1584s [00:53:04.079] - Finding globals in 'X' for chunk #1 ... DONE 1584s [00:53:04.079] - seeds: 1584s [00:53:04.080] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1584s [00:53:04.080] getGlobalsAndPackages() ... 1584s [00:53:04.080] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1584s [00:53:04.080] Resolving globals: FALSE 1584s [00:53:04.081] Tweak future expression to call with '...' arguments ... 1584s [00:53:04.081] { 1584s [00:53:04.081] do.call(function(...) { 1584s [00:53:04.081] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1584s [00:53:04.081] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1584s [00:53:04.081] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1584s [00:53:04.081] on.exit(options(oopts), add = TRUE) 1584s [00:53:04.081] } 1584s [00:53:04.081] { 1584s [00:53:04.081] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1584s [00:53:04.081] ...future.X_jj <- ...future.elements_ii[[jj]] 1584s [00:53:04.081] ...future.FUN(...future.X_jj, ...) 1584s [00:53:04.081] }) 1584s [00:53:04.081] } 1584s [00:53:04.081] }, args = future.call.arguments) 1584s [00:53:04.081] } 1584s [00:53:04.082] Tweak future expression to call with '...' arguments ... DONE 1584s [00:53:04.082] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1584s [00:53:04.082] 1584s [00:53:04.082] getGlobalsAndPackages() ... DONE 1584s [00:53:04.083] run() for ‘Future’ ... 1584s [00:53:04.083] - state: ‘created’ 1584s [00:53:04.083] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1584s [00:53:04.087] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1584s [00:53:04.087] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1584s [00:53:04.087] - Field: ‘label’ 1584s [00:53:04.087] - Field: ‘local’ 1584s [00:53:04.088] - Field: ‘owner’ 1584s [00:53:04.088] - Field: ‘envir’ 1584s [00:53:04.088] - Field: ‘packages’ 1584s [00:53:04.088] - Field: ‘gc’ 1584s [00:53:04.088] - Field: ‘conditions’ 1584s [00:53:04.089] - Field: ‘expr’ 1584s [00:53:04.089] - Field: ‘uuid’ 1584s [00:53:04.089] - Field: ‘seed’ 1584s [00:53:04.089] - Field: ‘version’ 1584s [00:53:04.090] - Field: ‘result’ 1584s [00:53:04.090] - Field: ‘asynchronous’ 1584s [00:53:04.090] - Field: ‘calls’ 1584s [00:53:04.090] - Field: ‘globals’ 1584s [00:53:04.090] - Field: ‘stdout’ 1584s [00:53:04.090] - Field: ‘earlySignal’ 1584s [00:53:04.091] - Field: ‘lazy’ 1584s [00:53:04.091] - Field: ‘state’ 1584s [00:53:04.091] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1584s [00:53:04.091] - Launch lazy future ... 1584s [00:53:04.091] Packages needed by the future expression (n = 0): 1584s [00:53:04.092] Packages needed by future strategies (n = 0): 1584s [00:53:04.092] { 1584s [00:53:04.092] { 1584s [00:53:04.092] { 1584s [00:53:04.092] ...future.startTime <- base::Sys.time() 1584s [00:53:04.092] { 1584s [00:53:04.092] { 1584s [00:53:04.092] { 1584s [00:53:04.092] base::local({ 1584s [00:53:04.092] has_future <- base::requireNamespace("future", 1584s [00:53:04.092] quietly = TRUE) 1584s [00:53:04.092] if (has_future) { 1584s [00:53:04.092] ns <- base::getNamespace("future") 1584s [00:53:04.092] version <- ns[[".package"]][["version"]] 1584s [00:53:04.092] if (is.null(version)) 1584s [00:53:04.092] version <- utils::packageVersion("future") 1584s [00:53:04.092] } 1584s [00:53:04.092] else { 1584s [00:53:04.092] version <- NULL 1584s [00:53:04.092] } 1584s [00:53:04.092] if (!has_future || version < "1.8.0") { 1584s [00:53:04.092] info <- base::c(r_version = base::gsub("R version ", 1584s [00:53:04.092] "", base::R.version$version.string), 1584s [00:53:04.092] platform = base::sprintf("%s (%s-bit)", 1584s [00:53:04.092] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1584s [00:53:04.092] os = base::paste(base::Sys.info()[base::c("sysname", 1584s [00:53:04.092] "release", "version")], collapse = " "), 1584s [00:53:04.092] hostname = base::Sys.info()[["nodename"]]) 1584s [00:53:04.092] info <- base::sprintf("%s: %s", base::names(info), 1584s [00:53:04.092] info) 1584s [00:53:04.092] info <- base::paste(info, collapse = "; ") 1584s [00:53:04.092] if (!has_future) { 1584s [00:53:04.092] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1584s [00:53:04.092] info) 1584s [00:53:04.092] } 1584s [00:53:04.092] else { 1584s [00:53:04.092] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1584s [00:53:04.092] info, version) 1584s [00:53:04.092] } 1584s [00:53:04.092] base::stop(msg) 1584s [00:53:04.092] } 1584s [00:53:04.092] }) 1584s [00:53:04.092] } 1584s [00:53:04.092] options(future.plan = NULL) 1584s [00:53:04.092] Sys.unsetenv("R_FUTURE_PLAN") 1584s [00:53:04.092] future::plan("default", .cleanup = FALSE, .init = FALSE) 1584s [00:53:04.092] } 1584s [00:53:04.092] ...future.workdir <- getwd() 1584s [00:53:04.092] } 1584s [00:53:04.092] ...future.oldOptions <- base::as.list(base::.Options) 1584s [00:53:04.092] ...future.oldEnvVars <- base::Sys.getenv() 1584s [00:53:04.092] } 1584s [00:53:04.092] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1584s [00:53:04.092] future.globals.maxSize = NULL, future.globals.method = NULL, 1584s [00:53:04.092] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1584s [00:53:04.092] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1584s [00:53:04.092] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1584s [00:53:04.092] future.stdout.windows.reencode = NULL, width = 80L) 1584s [00:53:04.092] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1584s [00:53:04.092] base::names(...future.oldOptions)) 1584s [00:53:04.092] } 1584s [00:53:04.092] if (FALSE) { 1584s [00:53:04.092] } 1584s [00:53:04.092] else { 1584s [00:53:04.092] if (TRUE) { 1584s [00:53:04.092] ...future.stdout <- base::rawConnection(base::raw(0L), 1584s [00:53:04.092] open = "w") 1584s [00:53:04.092] } 1584s [00:53:04.092] else { 1584s [00:53:04.092] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1584s [00:53:04.092] windows = "NUL", "/dev/null"), open = "w") 1584s [00:53:04.092] } 1584s [00:53:04.092] base::sink(...future.stdout, type = "output", split = FALSE) 1584s [00:53:04.092] base::on.exit(if (!base::is.null(...future.stdout)) { 1584s [00:53:04.092] base::sink(type = "output", split = FALSE) 1584s [00:53:04.092] base::close(...future.stdout) 1584s [00:53:04.092] }, add = TRUE) 1584s [00:53:04.092] } 1584s [00:53:04.092] ...future.frame <- base::sys.nframe() 1584s [00:53:04.092] ...future.conditions <- base::list() 1584s [00:53:04.092] ...future.rng <- base::globalenv()$.Random.seed 1584s [00:53:04.092] if (FALSE) { 1584s [00:53:04.092] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1584s [00:53:04.092] "...future.value", "...future.globalenv.names", ".Random.seed") 1584s [00:53:04.092] } 1584s [00:53:04.092] ...future.result <- base::tryCatch({ 1584s [00:53:04.092] base::withCallingHandlers({ 1584s [00:53:04.092] ...future.value <- base::withVisible(base::local({ 1584s [00:53:04.092] do.call(function(...) { 1584s [00:53:04.092] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1584s [00:53:04.092] if (!identical(...future.globals.maxSize.org, 1584s [00:53:04.092] ...future.globals.maxSize)) { 1584s [00:53:04.092] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1584s [00:53:04.092] on.exit(options(oopts), add = TRUE) 1584s [00:53:04.092] } 1584s [00:53:04.092] { 1584s [00:53:04.092] lapply(seq_along(...future.elements_ii), 1584s [00:53:04.092] FUN = function(jj) { 1584s [00:53:04.092] ...future.X_jj <- ...future.elements_ii[[jj]] 1584s [00:53:04.092] ...future.FUN(...future.X_jj, ...) 1584s [00:53:04.092] }) 1584s [00:53:04.092] } 1584s [00:53:04.092] }, args = future.call.arguments) 1584s [00:53:04.092] })) 1584s [00:53:04.092] future::FutureResult(value = ...future.value$value, 1584s [00:53:04.092] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1584s [00:53:04.092] ...future.rng), globalenv = if (FALSE) 1584s [00:53:04.092] list(added = base::setdiff(base::names(base::.GlobalEnv), 1584s [00:53:04.092] ...future.globalenv.names)) 1584s [00:53:04.092] else NULL, started = ...future.startTime, version = "1.8") 1584s [00:53:04.092] }, condition = base::local({ 1584s [00:53:04.092] c <- base::c 1584s [00:53:04.092] inherits <- base::inherits 1584s [00:53:04.092] invokeRestart <- base::invokeRestart 1584s [00:53:04.092] length <- base::length 1584s [00:53:04.092] list <- base::list 1584s [00:53:04.092] seq.int <- base::seq.int 1584s [00:53:04.092] signalCondition <- base::signalCondition 1584s [00:53:04.092] sys.calls <- base::sys.calls 1584s [00:53:04.092] `[[` <- base::`[[` 1584s [00:53:04.092] `+` <- base::`+` 1584s [00:53:04.092] `<<-` <- base::`<<-` 1584s [00:53:04.092] sysCalls <- function(calls = sys.calls(), from = 1L) { 1584s [00:53:04.092] calls[seq.int(from = from + 12L, to = length(calls) - 1584s [00:53:04.092] 3L)] 1584s [00:53:04.092] } 1584s [00:53:04.092] function(cond) { 1584s [00:53:04.092] is_error <- inherits(cond, "error") 1584s [00:53:04.092] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1584s [00:53:04.092] NULL) 1584s [00:53:04.092] if (is_error) { 1584s [00:53:04.092] sessionInformation <- function() { 1584s [00:53:04.092] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1584s [00:53:04.092] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1584s [00:53:04.092] search = base::search(), system = base::Sys.info()) 1584s [00:53:04.092] } 1584s [00:53:04.092] ...future.conditions[[length(...future.conditions) + 1584s [00:53:04.092] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1584s [00:53:04.092] cond$call), session = sessionInformation(), 1584s [00:53:04.092] timestamp = base::Sys.time(), signaled = 0L) 1584s [00:53:04.092] signalCondition(cond) 1584s [00:53:04.092] } 1584s [00:53:04.092] else if (!ignore && TRUE && inherits(cond, c("condition", 1584s [00:53:04.092] "immediateCondition"))) { 1584s [00:53:04.092] signal <- TRUE && inherits(cond, "immediateCondition") 1584s [00:53:04.092] ...future.conditions[[length(...future.conditions) + 1584s [00:53:04.092] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1584s [00:53:04.092] if (TRUE && !signal) { 1584s [00:53:04.092] muffleCondition <- function (cond, pattern = "^muffle") 1584s [00:53:04.092] { 1584s [00:53:04.092] inherits <- base::inherits 1584s [00:53:04.092] invokeRestart <- base::invokeRestart 1584s [00:53:04.092] is.null <- base::is.null 1584s [00:53:04.092] muffled <- FALSE 1584s [00:53:04.092] if (inherits(cond, "message")) { 1584s [00:53:04.092] muffled <- grepl(pattern, "muffleMessage") 1584s [00:53:04.092] if (muffled) 1584s [00:53:04.092] invokeRestart("muffleMessage") 1584s [00:53:04.092] } 1584s [00:53:04.092] else if (inherits(cond, "warning")) { 1584s [00:53:04.092] muffled <- grepl(pattern, "muffleWarning") 1584s [00:53:04.092] if (muffled) 1584s [00:53:04.092] invokeRestart("muffleWarning") 1584s [00:53:04.092] } 1584s [00:53:04.092] else if (inherits(cond, "condition")) { 1584s [00:53:04.092] if (!is.null(pattern)) { 1584s [00:53:04.092] computeRestarts <- base::computeRestarts 1584s [00:53:04.092] grepl <- base::grepl 1584s [00:53:04.092] restarts <- computeRestarts(cond) 1584s [00:53:04.092] for (restart in restarts) { 1584s [00:53:04.092] name <- restart$name 1584s [00:53:04.092] if (is.null(name)) 1584s [00:53:04.092] next 1584s [00:53:04.092] if (!grepl(pattern, name)) 1584s [00:53:04.092] next 1584s [00:53:04.092] invokeRestart(restart) 1584s [00:53:04.092] muffled <- TRUE 1584s [00:53:04.092] break 1584s [00:53:04.092] } 1584s [00:53:04.092] } 1584s [00:53:04.092] } 1584s [00:53:04.092] invisible(muffled) 1584s [00:53:04.092] } 1584s [00:53:04.092] muffleCondition(cond, pattern = "^muffle") 1584s [00:53:04.092] } 1584s [00:53:04.092] } 1584s [00:53:04.092] else { 1584s [00:53:04.092] if (TRUE) { 1584s [00:53:04.092] muffleCondition <- function (cond, pattern = "^muffle") 1584s [00:53:04.092] { 1584s [00:53:04.092] inherits <- base::inherits 1584s [00:53:04.092] invokeRestart <- base::invokeRestart 1584s [00:53:04.092] is.null <- base::is.null 1584s [00:53:04.092] muffled <- FALSE 1584s [00:53:04.092] if (inherits(cond, "message")) { 1584s [00:53:04.092] muffled <- grepl(pattern, "muffleMessage") 1584s [00:53:04.092] if (muffled) 1584s [00:53:04.092] invokeRestart("muffleMessage") 1584s [00:53:04.092] } 1584s [00:53:04.092] else if (inherits(cond, "warning")) { 1584s [00:53:04.092] muffled <- grepl(pattern, "muffleWarning") 1584s [00:53:04.092] if (muffled) 1584s [00:53:04.092] invokeRestart("muffleWarning") 1584s [00:53:04.092] } 1584s [00:53:04.092] else if (inherits(cond, "condition")) { 1584s [00:53:04.092] if (!is.null(pattern)) { 1584s [00:53:04.092] computeRestarts <- base::computeRestarts 1584s [00:53:04.092] grepl <- base::grepl 1584s [00:53:04.092] restarts <- computeRestarts(cond) 1584s [00:53:04.092] for (restart in restarts) { 1584s [00:53:04.092] name <- restart$name 1584s [00:53:04.092] if (is.null(name)) 1584s [00:53:04.092] next 1584s [00:53:04.092] if (!grepl(pattern, name)) 1584s [00:53:04.092] next 1584s [00:53:04.092] invokeRestart(restart) 1584s [00:53:04.092] muffled <- TRUE 1584s [00:53:04.092] break 1584s [00:53:04.092] } 1584s [00:53:04.092] } 1584s [00:53:04.092] } 1584s [00:53:04.092] invisible(muffled) 1584s [00:53:04.092] } 1584s [00:53:04.092] muffleCondition(cond, pattern = "^muffle") 1584s [00:53:04.092] } 1584s [00:53:04.092] } 1584s [00:53:04.092] } 1584s [00:53:04.092] })) 1584s [00:53:04.092] }, error = function(ex) { 1584s [00:53:04.092] base::structure(base::list(value = NULL, visible = NULL, 1584s [00:53:04.092] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1584s [00:53:04.092] ...future.rng), started = ...future.startTime, 1584s [00:53:04.092] finished = Sys.time(), session_uuid = NA_character_, 1584s [00:53:04.092] version = "1.8"), class = "FutureResult") 1584s [00:53:04.092] }, finally = { 1584s [00:53:04.092] if (!identical(...future.workdir, getwd())) 1584s [00:53:04.092] setwd(...future.workdir) 1584s [00:53:04.092] { 1584s [00:53:04.092] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1584s [00:53:04.092] ...future.oldOptions$nwarnings <- NULL 1584s [00:53:04.092] } 1584s [00:53:04.092] base::options(...future.oldOptions) 1584s [00:53:04.092] if (.Platform$OS.type == "windows") { 1584s [00:53:04.092] old_names <- names(...future.oldEnvVars) 1584s [00:53:04.092] envs <- base::Sys.getenv() 1584s [00:53:04.092] names <- names(envs) 1584s [00:53:04.092] common <- intersect(names, old_names) 1584s [00:53:04.092] added <- setdiff(names, old_names) 1584s [00:53:04.092] removed <- setdiff(old_names, names) 1584s [00:53:04.092] changed <- common[...future.oldEnvVars[common] != 1584s [00:53:04.092] envs[common]] 1584s [00:53:04.092] NAMES <- toupper(changed) 1584s [00:53:04.092] args <- list() 1584s [00:53:04.092] for (kk in seq_along(NAMES)) { 1584s [00:53:04.092] name <- changed[[kk]] 1584s [00:53:04.092] NAME <- NAMES[[kk]] 1584s [00:53:04.092] if (name != NAME && is.element(NAME, old_names)) 1584s [00:53:04.092] next 1584s [00:53:04.092] args[[name]] <- ...future.oldEnvVars[[name]] 1584s [00:53:04.092] } 1584s [00:53:04.092] NAMES <- toupper(added) 1584s [00:53:04.092] for (kk in seq_along(NAMES)) { 1584s [00:53:04.092] name <- added[[kk]] 1584s [00:53:04.092] NAME <- NAMES[[kk]] 1584s [00:53:04.092] if (name != NAME && is.element(NAME, old_names)) 1584s [00:53:04.092] next 1584s [00:53:04.092] args[[name]] <- "" 1584s [00:53:04.092] } 1584s [00:53:04.092] NAMES <- toupper(removed) 1584s [00:53:04.092] for (kk in seq_along(NAMES)) { 1584s [00:53:04.092] name <- removed[[kk]] 1584s [00:53:04.092] NAME <- NAMES[[kk]] 1584s [00:53:04.092] if (name != NAME && is.element(NAME, old_names)) 1584s [00:53:04.092] next 1584s [00:53:04.092] args[[name]] <- ...future.oldEnvVars[[name]] 1584s [00:53:04.092] } 1584s [00:53:04.092] if (length(args) > 0) 1584s [00:53:04.092] base::do.call(base::Sys.setenv, args = args) 1584s [00:53:04.092] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1584s [00:53:04.092] } 1584s [00:53:04.092] else { 1584s [00:53:04.092] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1584s [00:53:04.092] } 1584s [00:53:04.092] { 1584s [00:53:04.092] if (base::length(...future.futureOptionsAdded) > 1584s [00:53:04.092] 0L) { 1584s [00:53:04.092] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1584s [00:53:04.092] base::names(opts) <- ...future.futureOptionsAdded 1584s [00:53:04.092] base::options(opts) 1584s [00:53:04.092] } 1584s [00:53:04.092] { 1584s [00:53:04.092] { 1584s [00:53:04.092] NULL 1584s [00:53:04.092] RNGkind("Mersenne-Twister") 1584s [00:53:04.092] base::rm(list = ".Random.seed", envir = base::globalenv(), 1584s [00:53:04.092] inherits = FALSE) 1584s [00:53:04.092] } 1584s [00:53:04.092] options(future.plan = NULL) 1584s [00:53:04.092] if (is.na(NA_character_)) 1584s [00:53:04.092] Sys.unsetenv("R_FUTURE_PLAN") 1584s [00:53:04.092] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1584s [00:53:04.092] future::plan(list(function (..., workers = availableCores(), 1584s [00:53:04.092] lazy = FALSE, rscript_libs = .libPaths(), 1584s [00:53:04.092] envir = parent.frame()) 1584s [00:53:04.092] { 1584s [00:53:04.092] if (is.function(workers)) 1584s [00:53:04.092] workers <- workers() 1584s [00:53:04.092] workers <- structure(as.integer(workers), 1584s [00:53:04.092] class = class(workers)) 1584s [00:53:04.092] stop_if_not(length(workers) == 1, is.finite(workers), 1584s [00:53:04.092] workers >= 1) 1584s [00:53:04.092] if (workers == 1L && !inherits(workers, "AsIs")) { 1584s [00:53:04.092] return(sequential(..., lazy = TRUE, envir = envir)) 1584s [00:53:04.092] } 1584s [00:53:04.092] future <- MultisessionFuture(..., workers = workers, 1584s [00:53:04.092] lazy = lazy, rscript_libs = rscript_libs, 1584s [00:53:04.092] envir = envir) 1584s [00:53:04.092] if (!future$lazy) 1584s [00:53:04.092] future <- run(future) 1584s [00:53:04.092] invisible(future) 1584s [00:53:04.092] }), .cleanup = FALSE, .init = FALSE) 1584s [00:53:04.092] } 1584s [00:53:04.092] } 1584s [00:53:04.092] } 1584s [00:53:04.092] }) 1584s [00:53:04.092] if (TRUE) { 1584s [00:53:04.092] base::sink(type = "output", split = FALSE) 1584s [00:53:04.092] if (TRUE) { 1584s [00:53:04.092] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1584s [00:53:04.092] } 1584s [00:53:04.092] else { 1584s [00:53:04.092] ...future.result["stdout"] <- base::list(NULL) 1584s [00:53:04.092] } 1584s [00:53:04.092] base::close(...future.stdout) 1584s [00:53:04.092] ...future.stdout <- NULL 1584s [00:53:04.092] } 1584s [00:53:04.092] ...future.result$conditions <- ...future.conditions 1584s [00:53:04.092] ...future.result$finished <- base::Sys.time() 1584s [00:53:04.092] ...future.result 1584s [00:53:04.092] } 1584s [00:53:04.097] assign_globals() ... 1584s [00:53:04.097] List of 5 1584s [00:53:04.097] $ ...future.FUN :function (x, y = 2 * 1:5) 1584s [00:53:04.097] $ future.call.arguments : list() 1584s [00:53:04.097] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1584s [00:53:04.097] $ ...future.elements_ii :List of 4 1584s [00:53:04.097] ..$ A: num 50 1584s [00:53:04.097] ..$ B: num 60 1584s [00:53:04.097] ..$ C: num 70 1584s [00:53:04.097] ..$ D: num 80 1584s [00:53:04.097] $ ...future.seeds_ii : NULL 1584s [00:53:04.097] $ ...future.globals.maxSize: NULL 1584s [00:53:04.097] - attr(*, "where")=List of 5 1584s [00:53:04.097] ..$ ...future.FUN : 1584s [00:53:04.097] ..$ future.call.arguments : 1584s [00:53:04.097] ..$ ...future.elements_ii : 1584s [00:53:04.097] ..$ ...future.seeds_ii : 1584s [00:53:04.097] ..$ ...future.globals.maxSize: 1584s [00:53:04.097] - attr(*, "resolved")= logi FALSE 1584s [00:53:04.097] - attr(*, "total_size")= num 4728 1584s [00:53:04.097] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1584s [00:53:04.097] - attr(*, "already-done")= logi TRUE 1584s [00:53:04.105] - reassign environment for ‘...future.FUN’ 1584s [00:53:04.105] - copied ‘...future.FUN’ to environment 1584s [00:53:04.105] - copied ‘future.call.arguments’ to environment 1584s [00:53:04.105] - copied ‘...future.elements_ii’ to environment 1584s [00:53:04.106] - copied ‘...future.seeds_ii’ to environment 1584s [00:53:04.106] - copied ‘...future.globals.maxSize’ to environment 1584s [00:53:04.106] assign_globals() ... done 1584s [00:53:04.106] plan(): Setting new future strategy stack: 1584s [00:53:04.107] List of future strategies: 1584s [00:53:04.107] 1. sequential: 1584s [00:53:04.107] - args: function (..., envir = parent.frame()) 1584s [00:53:04.107] - tweaked: FALSE 1584s [00:53:04.107] - call: NULL 1584s [00:53:04.107] plan(): nbrOfWorkers() = 1 1584s [00:53:04.108] plan(): Setting new future strategy stack: 1584s [00:53:04.109] List of future strategies: 1584s [00:53:04.109] 1. multisession: 1584s [00:53:04.109] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1584s [00:53:04.109] - tweaked: FALSE 1584s [00:53:04.109] - call: plan(strategy) 1584s [00:53:04.113] plan(): nbrOfWorkers() = 1 1584s [00:53:04.113] SequentialFuture started (and completed) 1584s [00:53:04.113] - Launch lazy future ... done 1584s [00:53:04.114] run() for ‘SequentialFuture’ ... done 1584s [00:53:04.114] Created future: 1584s [00:53:04.114] SequentialFuture: 1584s [00:53:04.114] Label: ‘future_sapply-1’ 1584s [00:53:04.114] Expression: 1584s [00:53:04.114] { 1584s [00:53:04.114] do.call(function(...) { 1584s [00:53:04.114] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1584s [00:53:04.114] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1584s [00:53:04.114] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1584s [00:53:04.114] on.exit(options(oopts), add = TRUE) 1584s [00:53:04.114] } 1584s [00:53:04.114] { 1584s [00:53:04.114] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1584s [00:53:04.114] ...future.X_jj <- ...future.elements_ii[[jj]] 1584s [00:53:04.114] ...future.FUN(...future.X_jj, ...) 1584s [00:53:04.114] }) 1584s [00:53:04.114] } 1584s [00:53:04.114] }, args = future.call.arguments) 1584s [00:53:04.114] } 1584s [00:53:04.114] Lazy evaluation: FALSE 1584s [00:53:04.114] Asynchronous evaluation: FALSE 1584s [00:53:04.114] Local evaluation: TRUE 1584s [00:53:04.114] Environment: R_GlobalEnv 1584s [00:53:04.114] Capture standard output: TRUE 1584s [00:53:04.114] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1584s [00:53:04.114] Globals: 5 objects totaling 4.84 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1584s [00:53:04.114] Packages: 1584s [00:53:04.114] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1584s [00:53:04.114] Resolved: TRUE 1584s [00:53:04.114] Value: 1.34 KiB of class ‘list’ 1584s [00:53:04.114] Early signaling: FALSE 1584s [00:53:04.114] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1584s [00:53:04.114] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1584s [00:53:04.116] Chunk #1 of 1 ... DONE 1584s [00:53:04.116] Launching 1 futures (chunks) ... DONE 1584s [00:53:04.116] Resolving 1 futures (chunks) ... 1584s [00:53:04.116] resolve() on list ... 1584s [00:53:04.116] recursive: 0 1584s [00:53:04.116] length: 1 1584s [00:53:04.117] 1584s [00:53:04.117] resolved() for ‘SequentialFuture’ ... 1584s [00:53:04.117] - state: ‘finished’ 1584s [00:53:04.117] - run: TRUE 1584s [00:53:04.117] - result: ‘FutureResult’ 1584s [00:53:04.117] resolved() for ‘SequentialFuture’ ... done 1584s [00:53:04.117] Future #1 1584s [00:53:04.118] signalConditionsASAP(SequentialFuture, pos=1) ... 1584s [00:53:04.118] - nx: 1 1584s [00:53:04.118] - relay: TRUE 1584s [00:53:04.118] - stdout: TRUE 1584s [00:53:04.118] - signal: TRUE 1584s [00:53:04.118] - resignal: FALSE 1584s [00:53:04.119] - force: TRUE 1584s [00:53:04.119] - relayed: [n=1] FALSE 1584s [00:53:04.119] - queued futures: [n=1] FALSE 1584s [00:53:04.119] - until=1 1584s [00:53:04.119] - relaying element #1 1584s [00:53:04.119] - relayed: [n=1] TRUE 1584s [00:53:04.119] - queued futures: [n=1] TRUE 1584s [00:53:04.120] signalConditionsASAP(SequentialFuture, pos=1) ... done 1584s [00:53:04.120] length: 0 (resolved future 1) 1584s [00:53:04.120] Relaying remaining futures 1584s [00:53:04.120] signalConditionsASAP(NULL, pos=0) ... 1584s [00:53:04.120] - nx: 1 1584s [00:53:04.121] - relay: TRUE 1584s [00:53:04.121] - stdout: TRUE 1584s [00:53:04.121] - signal: TRUE 1584s [00:53:04.121] - resignal: FALSE 1584s [00:53:04.121] - force: TRUE 1584s [00:53:04.121] - relayed: [n=1] TRUE 1584s [00:53:04.121] - queued futures: [n=1] TRUE 1584s - flush all 1584s [00:53:04.122] - relayed: [n=1] TRUE 1584s [00:53:04.122] - queued futures: [n=1] TRUE 1584s [00:53:04.122] signalConditionsASAP(NULL, pos=0) ... done 1584s [00:53:04.122] resolve() on list ... DONE 1584s [00:53:04.122] - Number of value chunks collected: 1 1584s [00:53:04.123] Resolving 1 futures (chunks) ... DONE 1584s [00:53:04.123] Reducing values from 1 chunks ... 1584s [00:53:04.123] - Number of values collected after concatenation: 4 1584s [00:53:04.123] - Number of values expected: 4 1584s [00:53:04.123] Reducing values from 1 chunks ... DONE 1584s [00:53:04.123] future_lapply() ... DONE 1584s List of 2 1584s $ y0:List of 4 1584s ..$ A: num [1:3, 1:5] 100 100 100 200 200 200 300 300 300 400 ... 1584s ..$ B: num [1:3, 1:5] 120 120 120 240 240 240 360 360 360 480 ... 1584s ..$ C: num [1:3, 1:5] 140 140 140 280 280 280 420 420 420 560 ... 1584s ..$ D: num [1:3, 1:5] 160 160 160 320 320 320 480 480 480 640 ... 1584s $ y1:List of 4 1584s ..$ A: num [1:3, 1:5] 100 100 100 200 200 200 300 300 300 400 ... 1584s ..$ B: num [1:3, 1:5] 120 120 120 240 240 240 360 360 360 480 ... 1584s ..$ C: num [1:3, 1:5] 140 140 140 280 280 280 420 420 420 560 ... 1584s ..$ D: num [1:3, 1:5] 160 160 160 320 320 320 480 480 480 640 ... 1584s List of 2 1584s $ y0:List of 4 1584s ..$ A: num [1:3, 1:5] 100 100 100 200 200 200 300 300 300 400 ... 1584s ..$ B: num [1:3, 1:5] 120 120 120 240 240 240 360 360 360 480 ... 1584s ..$ C: num [1:3, 1:5] 140 140 140 280 280 280 420 420 420 560 ... 1584s ..$ D: num [1:3, 1:5] 160 160 160 320 320 320 480 480 480 640 ... 1584s $ y2:List of 4 1584s ..$ A: num [1:3, 1:5] 100 100 100 200 200 200 300 300 300 400 ... 1584s ..$ B: num [1:3, 1:5] 120 120 120 240 240 240 360 360 360 480 ... 1584s ..$ C: num [1:3, 1:5] 140 140 140 280 280 280 420 420 420 560 ... 1584s ..$ D: num [1:3, 1:5] 160 160 160 320 320 320 480 480 480 640 ... 1584s [00:53:04.137] future_lapply() ... 1584s [00:53:04.146] Number of chunks: 1 1584s [00:53:04.146] getGlobalsAndPackagesXApply() ... 1584s [00:53:04.147] - future.globals: TRUE 1584s [00:53:04.147] getGlobalsAndPackages() ... 1584s [00:53:04.147] Searching for globals... 1584s [00:53:04.148] - globals found: [1] ‘FUN’ 1584s [00:53:04.148] Searching for globals ... DONE 1584s [00:53:04.149] Resolving globals: FALSE 1584s [00:53:04.149] The total size of the 1 globals is 848 bytes (848 bytes) 1584s [00:53:04.150] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1584s [00:53:04.150] - globals: [1] ‘FUN’ 1584s [00:53:04.151] 1584s [00:53:04.151] getGlobalsAndPackages() ... DONE 1584s [00:53:04.151] - globals found/used: [n=1] ‘FUN’ 1584s [00:53:04.151] - needed namespaces: [n=0] 1584s [00:53:04.151] Finding globals ... DONE 1584s [00:53:04.152] - use_args: TRUE 1584s [00:53:04.152] - Getting '...' globals ... 1584s [00:53:04.152] resolve() on list ... 1584s [00:53:04.152] recursive: 0 1584s [00:53:04.152] length: 1 1584s [00:53:04.153] elements: ‘...’ 1584s [00:53:04.153] length: 0 (resolved future 1) 1584s [00:53:04.153] resolve() on list ... DONE 1584s [00:53:04.153] - '...' content: [n=0] 1584s [00:53:04.153] List of 1 1584s [00:53:04.153] $ ...: list() 1584s [00:53:04.153] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1584s [00:53:04.153] - attr(*, "where")=List of 1 1584s [00:53:04.153] ..$ ...: 1584s [00:53:04.153] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1584s [00:53:04.153] - attr(*, "resolved")= logi TRUE 1584s [00:53:04.153] - attr(*, "total_size")= num NA 1584s [00:53:04.156] - Getting '...' globals ... DONE 1584s [00:53:04.157] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1584s [00:53:04.157] List of 2 1584s [00:53:04.157] $ ...future.FUN:function (x) 1584s [00:53:04.157] $ ... : list() 1584s [00:53:04.157] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1584s [00:53:04.157] - attr(*, "where")=List of 2 1584s [00:53:04.157] ..$ ...future.FUN: 1584s [00:53:04.157] ..$ ... : 1584s [00:53:04.157] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1584s [00:53:04.157] - attr(*, "resolved")= logi FALSE 1584s [00:53:04.157] - attr(*, "total_size")= num 848 1584s [00:53:04.162] Packages to be attached in all futures: [n=0] 1584s [00:53:04.162] getGlobalsAndPackagesXApply() ... DONE 1584s [00:53:04.162] Number of futures (= number of chunks): 1 1584s [00:53:04.162] Launching 1 futures (chunks) ... 1584s [00:53:04.162] Chunk #1 of 1 ... 1584s [00:53:04.163] - Finding globals in 'X' for chunk #1 ... 1584s [00:53:04.163] getGlobalsAndPackages() ... 1584s [00:53:04.163] Searching for globals... 1584s [00:53:04.163] 1584s [00:53:04.163] Searching for globals ... DONE 1584s [00:53:04.164] - globals: [0] 1584s [00:53:04.164] getGlobalsAndPackages() ... DONE 1584s [00:53:04.164] + additional globals found: [n=0] 1584s [00:53:04.164] + additional namespaces needed: [n=0] 1584s [00:53:04.164] - Finding globals in 'X' for chunk #1 ... DONE 1584s [00:53:04.164] - seeds: 1584s [00:53:04.164] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1584s [00:53:04.165] getGlobalsAndPackages() ... 1584s [00:53:04.165] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1584s [00:53:04.165] Resolving globals: FALSE 1584s [00:53:04.165] Tweak future expression to call with '...' arguments ... 1584s [00:53:04.165] { 1584s [00:53:04.165] do.call(function(...) { 1584s [00:53:04.165] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1584s [00:53:04.165] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1584s [00:53:04.165] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1584s [00:53:04.165] on.exit(options(oopts), add = TRUE) 1584s [00:53:04.165] } 1584s [00:53:04.165] { 1584s [00:53:04.165] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1584s [00:53:04.165] ...future.X_jj <- ...future.elements_ii[[jj]] 1584s [00:53:04.165] ...future.FUN(...future.X_jj, ...) 1584s [00:53:04.165] }) 1584s [00:53:04.165] } 1584s [00:53:04.165] }, args = future.call.arguments) 1584s [00:53:04.165] } 1584s [00:53:04.166] Tweak future expression to call with '...' arguments ... DONE 1584s [00:53:04.166] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1584s [00:53:04.166] 1584s [00:53:04.167] getGlobalsAndPackages() ... DONE 1584s [00:53:04.167] run() for ‘Future’ ... 1584s [00:53:04.167] - state: ‘created’ 1584s [00:53:04.167] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1584s [00:53:04.171] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1584s [00:53:04.171] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1584s [00:53:04.172] - Field: ‘label’ 1584s [00:53:04.172] - Field: ‘local’ 1584s [00:53:04.172] - Field: ‘owner’ 1584s [00:53:04.172] - Field: ‘envir’ 1584s [00:53:04.172] - Field: ‘packages’ 1584s [00:53:04.172] - Field: ‘gc’ 1584s [00:53:04.173] - Field: ‘conditions’ 1584s [00:53:04.173] - Field: ‘expr’ 1584s [00:53:04.173] - Field: ‘uuid’ 1584s [00:53:04.173] - Field: ‘seed’ 1584s [00:53:04.173] - Field: ‘version’ 1584s [00:53:04.173] - Field: ‘result’ 1584s [00:53:04.173] - Field: ‘asynchronous’ 1584s [00:53:04.174] - Field: ‘calls’ 1584s [00:53:04.174] - Field: ‘globals’ 1584s [00:53:04.174] - Field: ‘stdout’ 1584s [00:53:04.174] - Field: ‘earlySignal’ 1584s [00:53:04.174] - Field: ‘lazy’ 1584s [00:53:04.174] - Field: ‘state’ 1584s [00:53:04.175] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1584s [00:53:04.175] - Launch lazy future ... 1584s [00:53:04.175] Packages needed by the future expression (n = 0): 1584s [00:53:04.175] Packages needed by future strategies (n = 0): 1584s [00:53:04.176] { 1584s [00:53:04.176] { 1584s [00:53:04.176] { 1584s [00:53:04.176] ...future.startTime <- base::Sys.time() 1584s [00:53:04.176] { 1584s [00:53:04.176] { 1584s [00:53:04.176] { 1584s [00:53:04.176] base::local({ 1584s [00:53:04.176] has_future <- base::requireNamespace("future", 1584s [00:53:04.176] quietly = TRUE) 1584s [00:53:04.176] if (has_future) { 1584s [00:53:04.176] ns <- base::getNamespace("future") 1584s [00:53:04.176] version <- ns[[".package"]][["version"]] 1584s [00:53:04.176] if (is.null(version)) 1584s [00:53:04.176] version <- utils::packageVersion("future") 1584s [00:53:04.176] } 1584s [00:53:04.176] else { 1584s [00:53:04.176] version <- NULL 1584s [00:53:04.176] } 1584s [00:53:04.176] if (!has_future || version < "1.8.0") { 1584s [00:53:04.176] info <- base::c(r_version = base::gsub("R version ", 1584s [00:53:04.176] "", base::R.version$version.string), 1584s [00:53:04.176] platform = base::sprintf("%s (%s-bit)", 1584s [00:53:04.176] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1584s [00:53:04.176] os = base::paste(base::Sys.info()[base::c("sysname", 1584s [00:53:04.176] "release", "version")], collapse = " "), 1584s [00:53:04.176] hostname = base::Sys.info()[["nodename"]]) 1584s [00:53:04.176] info <- base::sprintf("%s: %s", base::names(info), 1584s [00:53:04.176] info) 1584s [00:53:04.176] info <- base::paste(info, collapse = "; ") 1584s [00:53:04.176] if (!has_future) { 1584s [00:53:04.176] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1584s [00:53:04.176] info) 1584s [00:53:04.176] } 1584s [00:53:04.176] else { 1584s [00:53:04.176] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1584s [00:53:04.176] info, version) 1584s [00:53:04.176] } 1584s [00:53:04.176] base::stop(msg) 1584s [00:53:04.176] } 1584s [00:53:04.176] }) 1584s [00:53:04.176] } 1584s [00:53:04.176] options(future.plan = NULL) 1584s [00:53:04.176] Sys.unsetenv("R_FUTURE_PLAN") 1584s [00:53:04.176] future::plan("default", .cleanup = FALSE, .init = FALSE) 1584s [00:53:04.176] } 1584s [00:53:04.176] ...future.workdir <- getwd() 1584s [00:53:04.176] } 1584s [00:53:04.176] ...future.oldOptions <- base::as.list(base::.Options) 1584s [00:53:04.176] ...future.oldEnvVars <- base::Sys.getenv() 1584s [00:53:04.176] } 1584s [00:53:04.176] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1584s [00:53:04.176] future.globals.maxSize = NULL, future.globals.method = NULL, 1584s [00:53:04.176] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1584s [00:53:04.176] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1584s [00:53:04.176] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1584s [00:53:04.176] future.stdout.windows.reencode = NULL, width = 80L) 1584s [00:53:04.176] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1584s [00:53:04.176] base::names(...future.oldOptions)) 1584s [00:53:04.176] } 1584s [00:53:04.176] if (FALSE) { 1584s [00:53:04.176] } 1584s [00:53:04.176] else { 1584s [00:53:04.176] if (TRUE) { 1584s [00:53:04.176] ...future.stdout <- base::rawConnection(base::raw(0L), 1584s [00:53:04.176] open = "w") 1584s [00:53:04.176] } 1584s [00:53:04.176] else { 1584s [00:53:04.176] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1584s [00:53:04.176] windows = "NUL", "/dev/null"), open = "w") 1584s [00:53:04.176] } 1584s [00:53:04.176] base::sink(...future.stdout, type = "output", split = FALSE) 1584s [00:53:04.176] base::on.exit(if (!base::is.null(...future.stdout)) { 1584s [00:53:04.176] base::sink(type = "output", split = FALSE) 1584s [00:53:04.176] base::close(...future.stdout) 1584s [00:53:04.176] }, add = TRUE) 1584s [00:53:04.176] } 1584s [00:53:04.176] ...future.frame <- base::sys.nframe() 1584s [00:53:04.176] ...future.conditions <- base::list() 1584s [00:53:04.176] ...future.rng <- base::globalenv()$.Random.seed 1584s [00:53:04.176] if (FALSE) { 1584s [00:53:04.176] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1584s [00:53:04.176] "...future.value", "...future.globalenv.names", ".Random.seed") 1584s [00:53:04.176] } 1584s [00:53:04.176] ...future.result <- base::tryCatch({ 1584s [00:53:04.176] base::withCallingHandlers({ 1584s [00:53:04.176] ...future.value <- base::withVisible(base::local({ 1584s [00:53:04.176] do.call(function(...) { 1584s [00:53:04.176] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1584s [00:53:04.176] if (!identical(...future.globals.maxSize.org, 1584s [00:53:04.176] ...future.globals.maxSize)) { 1584s [00:53:04.176] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1584s [00:53:04.176] on.exit(options(oopts), add = TRUE) 1584s [00:53:04.176] } 1584s [00:53:04.176] { 1584s [00:53:04.176] lapply(seq_along(...future.elements_ii), 1584s [00:53:04.176] FUN = function(jj) { 1584s [00:53:04.176] ...future.X_jj <- ...future.elements_ii[[jj]] 1584s [00:53:04.176] ...future.FUN(...future.X_jj, ...) 1584s [00:53:04.176] }) 1584s [00:53:04.176] } 1584s [00:53:04.176] }, args = future.call.arguments) 1584s [00:53:04.176] })) 1584s [00:53:04.176] future::FutureResult(value = ...future.value$value, 1584s [00:53:04.176] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1584s [00:53:04.176] ...future.rng), globalenv = if (FALSE) 1584s [00:53:04.176] list(added = base::setdiff(base::names(base::.GlobalEnv), 1584s [00:53:04.176] ...future.globalenv.names)) 1584s [00:53:04.176] else NULL, started = ...future.startTime, version = "1.8") 1584s [00:53:04.176] }, condition = base::local({ 1584s [00:53:04.176] c <- base::c 1584s [00:53:04.176] inherits <- base::inherits 1584s [00:53:04.176] invokeRestart <- base::invokeRestart 1584s [00:53:04.176] length <- base::length 1584s [00:53:04.176] list <- base::list 1584s [00:53:04.176] seq.int <- base::seq.int 1584s [00:53:04.176] signalCondition <- base::signalCondition 1584s [00:53:04.176] sys.calls <- base::sys.calls 1584s [00:53:04.176] `[[` <- base::`[[` 1584s [00:53:04.176] `+` <- base::`+` 1584s [00:53:04.176] `<<-` <- base::`<<-` 1584s [00:53:04.176] sysCalls <- function(calls = sys.calls(), from = 1L) { 1584s [00:53:04.176] calls[seq.int(from = from + 12L, to = length(calls) - 1584s [00:53:04.176] 3L)] 1584s [00:53:04.176] } 1584s [00:53:04.176] function(cond) { 1584s [00:53:04.176] is_error <- inherits(cond, "error") 1584s [00:53:04.176] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1584s [00:53:04.176] NULL) 1584s [00:53:04.176] if (is_error) { 1584s [00:53:04.176] sessionInformation <- function() { 1584s [00:53:04.176] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1584s [00:53:04.176] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1584s [00:53:04.176] search = base::search(), system = base::Sys.info()) 1584s [00:53:04.176] } 1584s [00:53:04.176] ...future.conditions[[length(...future.conditions) + 1584s [00:53:04.176] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1584s [00:53:04.176] cond$call), session = sessionInformation(), 1584s [00:53:04.176] timestamp = base::Sys.time(), signaled = 0L) 1584s [00:53:04.176] signalCondition(cond) 1584s [00:53:04.176] } 1584s [00:53:04.176] else if (!ignore && TRUE && inherits(cond, c("condition", 1584s [00:53:04.176] "immediateCondition"))) { 1584s [00:53:04.176] signal <- TRUE && inherits(cond, "immediateCondition") 1584s [00:53:04.176] ...future.conditions[[length(...future.conditions) + 1584s [00:53:04.176] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1584s [00:53:04.176] if (TRUE && !signal) { 1584s [00:53:04.176] muffleCondition <- function (cond, pattern = "^muffle") 1584s [00:53:04.176] { 1584s [00:53:04.176] inherits <- base::inherits 1584s [00:53:04.176] invokeRestart <- base::invokeRestart 1584s [00:53:04.176] is.null <- base::is.null 1584s [00:53:04.176] muffled <- FALSE 1584s [00:53:04.176] if (inherits(cond, "message")) { 1584s [00:53:04.176] muffled <- grepl(pattern, "muffleMessage") 1584s [00:53:04.176] if (muffled) 1584s [00:53:04.176] invokeRestart("muffleMessage") 1584s [00:53:04.176] } 1584s [00:53:04.176] else if (inherits(cond, "warning")) { 1584s [00:53:04.176] muffled <- grepl(pattern, "muffleWarning") 1584s [00:53:04.176] if (muffled) 1584s [00:53:04.176] invokeRestart("muffleWarning") 1584s [00:53:04.176] } 1584s [00:53:04.176] else if (inherits(cond, "condition")) { 1584s [00:53:04.176] if (!is.null(pattern)) { 1584s [00:53:04.176] computeRestarts <- base::computeRestarts 1584s [00:53:04.176] grepl <- base::grepl 1584s [00:53:04.176] restarts <- computeRestarts(cond) 1584s [00:53:04.176] for (restart in restarts) { 1584s [00:53:04.176] name <- restart$name 1584s [00:53:04.176] if (is.null(name)) 1584s [00:53:04.176] next 1584s [00:53:04.176] if (!grepl(pattern, name)) 1584s [00:53:04.176] next 1584s [00:53:04.176] invokeRestart(restart) 1584s [00:53:04.176] muffled <- TRUE 1584s [00:53:04.176] break 1584s [00:53:04.176] } 1584s [00:53:04.176] } 1584s [00:53:04.176] } 1584s [00:53:04.176] invisible(muffled) 1584s [00:53:04.176] } 1584s [00:53:04.176] muffleCondition(cond, pattern = "^muffle") 1584s [00:53:04.176] } 1584s [00:53:04.176] } 1584s [00:53:04.176] else { 1584s [00:53:04.176] if (TRUE) { 1584s [00:53:04.176] muffleCondition <- function (cond, pattern = "^muffle") 1584s [00:53:04.176] { 1584s [00:53:04.176] inherits <- base::inherits 1584s [00:53:04.176] invokeRestart <- base::invokeRestart 1584s [00:53:04.176] is.null <- base::is.null 1584s [00:53:04.176] muffled <- FALSE 1584s [00:53:04.176] if (inherits(cond, "message")) { 1584s [00:53:04.176] muffled <- grepl(pattern, "muffleMessage") 1584s [00:53:04.176] if (muffled) 1584s [00:53:04.176] invokeRestart("muffleMessage") 1584s [00:53:04.176] } 1584s [00:53:04.176] else if (inherits(cond, "warning")) { 1584s [00:53:04.176] muffled <- grepl(pattern, "muffleWarning") 1584s [00:53:04.176] if (muffled) 1584s [00:53:04.176] invokeRestart("muffleWarning") 1584s [00:53:04.176] } 1584s [00:53:04.176] else if (inherits(cond, "condition")) { 1584s [00:53:04.176] if (!is.null(pattern)) { 1584s [00:53:04.176] computeRestarts <- base::computeRestarts 1584s [00:53:04.176] grepl <- base::grepl 1584s [00:53:04.176] restarts <- computeRestarts(cond) 1584s [00:53:04.176] for (restart in restarts) { 1584s [00:53:04.176] name <- restart$name 1584s [00:53:04.176] if (is.null(name)) 1584s [00:53:04.176] next 1584s [00:53:04.176] if (!grepl(pattern, name)) 1584s [00:53:04.176] next 1584s [00:53:04.176] invokeRestart(restart) 1584s [00:53:04.176] muffled <- TRUE 1584s [00:53:04.176] break 1584s [00:53:04.176] } 1584s [00:53:04.176] } 1584s [00:53:04.176] } 1584s [00:53:04.176] invisible(muffled) 1584s [00:53:04.176] } 1584s [00:53:04.176] muffleCondition(cond, pattern = "^muffle") 1584s [00:53:04.176] } 1584s [00:53:04.176] } 1584s [00:53:04.176] } 1584s [00:53:04.176] })) 1584s [00:53:04.176] }, error = function(ex) { 1584s [00:53:04.176] base::structure(base::list(value = NULL, visible = NULL, 1584s [00:53:04.176] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1584s [00:53:04.176] ...future.rng), started = ...future.startTime, 1584s [00:53:04.176] finished = Sys.time(), session_uuid = NA_character_, 1584s [00:53:04.176] version = "1.8"), class = "FutureResult") 1584s [00:53:04.176] }, finally = { 1584s [00:53:04.176] if (!identical(...future.workdir, getwd())) 1584s [00:53:04.176] setwd(...future.workdir) 1584s [00:53:04.176] { 1584s [00:53:04.176] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1584s [00:53:04.176] ...future.oldOptions$nwarnings <- NULL 1584s [00:53:04.176] } 1584s [00:53:04.176] base::options(...future.oldOptions) 1584s [00:53:04.176] if (.Platform$OS.type == "windows") { 1584s [00:53:04.176] old_names <- names(...future.oldEnvVars) 1584s [00:53:04.176] envs <- base::Sys.getenv() 1584s [00:53:04.176] names <- names(envs) 1584s [00:53:04.176] common <- intersect(names, old_names) 1584s [00:53:04.176] added <- setdiff(names, old_names) 1584s [00:53:04.176] removed <- setdiff(old_names, names) 1584s [00:53:04.176] changed <- common[...future.oldEnvVars[common] != 1584s [00:53:04.176] envs[common]] 1584s [00:53:04.176] NAMES <- toupper(changed) 1584s [00:53:04.176] args <- list() 1584s [00:53:04.176] for (kk in seq_along(NAMES)) { 1584s [00:53:04.176] name <- changed[[kk]] 1584s [00:53:04.176] NAME <- NAMES[[kk]] 1584s [00:53:04.176] if (name != NAME && is.element(NAME, old_names)) 1584s [00:53:04.176] next 1584s [00:53:04.176] args[[name]] <- ...future.oldEnvVars[[name]] 1584s [00:53:04.176] } 1584s [00:53:04.176] NAMES <- toupper(added) 1584s [00:53:04.176] for (kk in seq_along(NAMES)) { 1584s [00:53:04.176] name <- added[[kk]] 1584s [00:53:04.176] NAME <- NAMES[[kk]] 1584s [00:53:04.176] if (name != NAME && is.element(NAME, old_names)) 1584s [00:53:04.176] next 1584s [00:53:04.176] args[[name]] <- "" 1584s [00:53:04.176] } 1584s [00:53:04.176] NAMES <- toupper(removed) 1584s [00:53:04.176] for (kk in seq_along(NAMES)) { 1584s [00:53:04.176] name <- removed[[kk]] 1584s [00:53:04.176] NAME <- NAMES[[kk]] 1584s [00:53:04.176] if (name != NAME && is.element(NAME, old_names)) 1584s [00:53:04.176] next 1584s [00:53:04.176] args[[name]] <- ...future.oldEnvVars[[name]] 1584s [00:53:04.176] } 1584s [00:53:04.176] if (length(args) > 0) 1584s [00:53:04.176] base::do.call(base::Sys.setenv, args = args) 1584s [00:53:04.176] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1584s [00:53:04.176] } 1584s [00:53:04.176] else { 1584s [00:53:04.176] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1584s [00:53:04.176] } 1584s [00:53:04.176] { 1584s [00:53:04.176] if (base::length(...future.futureOptionsAdded) > 1584s [00:53:04.176] 0L) { 1584s [00:53:04.176] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1584s [00:53:04.176] base::names(opts) <- ...future.futureOptionsAdded 1584s [00:53:04.176] base::options(opts) 1584s [00:53:04.176] } 1584s [00:53:04.176] { 1584s [00:53:04.176] { 1584s [00:53:04.176] NULL 1584s [00:53:04.176] RNGkind("Mersenne-Twister") 1584s [00:53:04.176] base::rm(list = ".Random.seed", envir = base::globalenv(), 1584s [00:53:04.176] inherits = FALSE) 1584s [00:53:04.176] } 1584s [00:53:04.176] options(future.plan = NULL) 1584s [00:53:04.176] if (is.na(NA_character_)) 1584s [00:53:04.176] Sys.unsetenv("R_FUTURE_PLAN") 1584s [00:53:04.176] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1584s [00:53:04.176] future::plan(list(function (..., workers = availableCores(), 1584s [00:53:04.176] lazy = FALSE, rscript_libs = .libPaths(), 1584s [00:53:04.176] envir = parent.frame()) 1584s [00:53:04.176] { 1584s [00:53:04.176] if (is.function(workers)) 1584s [00:53:04.176] workers <- workers() 1584s [00:53:04.176] workers <- structure(as.integer(workers), 1584s [00:53:04.176] class = class(workers)) 1584s [00:53:04.176] stop_if_not(length(workers) == 1, is.finite(workers), 1584s [00:53:04.176] workers >= 1) 1584s [00:53:04.176] if (workers == 1L && !inherits(workers, "AsIs")) { 1584s [00:53:04.176] return(sequential(..., lazy = TRUE, envir = envir)) 1584s [00:53:04.176] } 1584s [00:53:04.176] future <- MultisessionFuture(..., workers = workers, 1584s [00:53:04.176] lazy = lazy, rscript_libs = rscript_libs, 1584s [00:53:04.176] envir = envir) 1584s [00:53:04.176] if (!future$lazy) 1584s [00:53:04.176] future <- run(future) 1584s [00:53:04.176] invisible(future) 1584s [00:53:04.176] }), .cleanup = FALSE, .init = FALSE) 1584s [00:53:04.176] } 1584s [00:53:04.176] } 1584s [00:53:04.176] } 1584s [00:53:04.176] }) 1584s [00:53:04.176] if (TRUE) { 1584s [00:53:04.176] base::sink(type = "output", split = FALSE) 1584s [00:53:04.176] if (TRUE) { 1584s [00:53:04.176] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1584s [00:53:04.176] } 1584s [00:53:04.176] else { 1584s [00:53:04.176] ...future.result["stdout"] <- base::list(NULL) 1584s [00:53:04.176] } 1584s [00:53:04.176] base::close(...future.stdout) 1584s [00:53:04.176] ...future.stdout <- NULL 1584s [00:53:04.176] } 1584s [00:53:04.176] ...future.result$conditions <- ...future.conditions 1584s [00:53:04.176] ...future.result$finished <- base::Sys.time() 1584s [00:53:04.176] ...future.result 1584s [00:53:04.176] } 1584s [00:53:04.182] assign_globals() ... 1584s [00:53:04.182] List of 5 1584s [00:53:04.182] $ ...future.FUN :function (x) 1584s [00:53:04.182] $ future.call.arguments : list() 1584s [00:53:04.182] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1584s [00:53:04.182] $ ...future.elements_ii :List of 4 1584s [00:53:04.182] ..$ A: num 50 1584s [00:53:04.182] ..$ B: num 60 1584s [00:53:04.182] ..$ C: num 70 1584s [00:53:04.182] ..$ D: num 80 1584s [00:53:04.182] $ ...future.seeds_ii : NULL 1584s [00:53:04.182] $ ...future.globals.maxSize: NULL 1584s [00:53:04.182] - attr(*, "where")=List of 5 1584s [00:53:04.182] ..$ ...future.FUN : 1584s [00:53:04.182] ..$ future.call.arguments : 1584s [00:53:04.182] ..$ ...future.elements_ii : 1584s [00:53:04.182] ..$ ...future.seeds_ii : 1584s [00:53:04.182] ..$ ...future.globals.maxSize: 1584s [00:53:04.182] - attr(*, "resolved")= logi FALSE 1584s [00:53:04.182] - attr(*, "total_size")= num 848 1584s [00:53:04.182] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1584s [00:53:04.182] - attr(*, "already-done")= logi TRUE 1584s [00:53:04.201] - copied ‘...future.FUN’ to environment 1584s [00:53:04.201] - copied ‘future.call.arguments’ to environment 1584s [00:53:04.201] - copied ‘...future.elements_ii’ to environment 1584s [00:53:04.201] - copied ‘...future.seeds_ii’ to environment 1584s [00:53:04.201] - copied ‘...future.globals.maxSize’ to environment 1584s [00:53:04.202] assign_globals() ... done 1584s [00:53:04.202] plan(): Setting new future strategy stack: 1584s [00:53:04.202] List of future strategies: 1584s [00:53:04.202] 1. sequential: 1584s [00:53:04.202] - args: function (..., envir = parent.frame()) 1584s [00:53:04.202] - tweaked: FALSE 1584s [00:53:04.202] - call: NULL 1584s [00:53:04.203] plan(): nbrOfWorkers() = 1 1584s [00:53:04.204] plan(): Setting new future strategy stack: 1584s [00:53:04.204] List of future strategies: 1584s [00:53:04.204] 1. multisession: 1584s [00:53:04.204] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1584s [00:53:04.204] - tweaked: FALSE 1584s [00:53:04.204] - call: plan(strategy) 1584s [00:53:04.208] plan(): nbrOfWorkers() = 1 1584s [00:53:04.208] SequentialFuture started (and completed) 1584s [00:53:04.209] - Launch lazy future ... done 1584s [00:53:04.209] run() for ‘SequentialFuture’ ... done 1584s [00:53:04.209] Created future: 1584s [00:53:04.210] SequentialFuture: 1584s [00:53:04.210] Label: ‘future_sapply-1’ 1584s [00:53:04.210] Expression: 1584s [00:53:04.210] { 1584s [00:53:04.210] do.call(function(...) { 1584s [00:53:04.210] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1584s [00:53:04.210] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1584s [00:53:04.210] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1584s [00:53:04.210] on.exit(options(oopts), add = TRUE) 1584s [00:53:04.210] } 1584s [00:53:04.210] { 1584s [00:53:04.210] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1584s [00:53:04.210] ...future.X_jj <- ...future.elements_ii[[jj]] 1584s [00:53:04.210] ...future.FUN(...future.X_jj, ...) 1584s [00:53:04.210] }) 1584s [00:53:04.210] } 1584s [00:53:04.210] }, args = future.call.arguments) 1584s [00:53:04.210] } 1584s [00:53:04.210] Lazy evaluation: FALSE 1584s [00:53:04.210] Asynchronous evaluation: FALSE 1584s [00:53:04.210] Local evaluation: TRUE 1584s [00:53:04.210] Environment: R_GlobalEnv 1584s [00:53:04.210] Capture standard output: TRUE 1584s [00:53:04.210] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1584s [00:53:04.210] Globals: 5 objects totaling 1.05 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1584s [00:53:04.210] Packages: 1584s [00:53:04.210] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1584s [00:53:04.210] Resolved: TRUE 1584s [00:53:04.210] Value: 224 bytes of class ‘list’ 1584s [00:53:04.210] Early signaling: FALSE 1584s [00:53:04.210] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1584s [00:53:04.210] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1584s [00:53:04.213] Chunk #1 of 1 ... DONE 1584s [00:53:04.213] Launching 1 futures (chunks) ... DONE 1584s [00:53:04.213] Resolving 1 futures (chunks) ... 1584s [00:53:04.213] resolve() on list ... 1584s [00:53:04.214] recursive: 0 1584s [00:53:04.214] length: 1 1584s [00:53:04.214] 1584s [00:53:04.215] resolved() for ‘SequentialFuture’ ... 1584s [00:53:04.215] - state: ‘finished’ 1584s [00:53:04.215] - run: TRUE 1584s [00:53:04.215] - result: ‘FutureResult’ 1584s [00:53:04.215] resolved() for ‘SequentialFuture’ ... done 1584s [00:53:04.216] Future #1 1584s [00:53:04.216] signalConditionsASAP(SequentialFuture, pos=1) ... 1584s [00:53:04.216] - nx: 1 1584s [00:53:04.216] - relay: TRUE 1584s [00:53:04.216] - stdout: TRUE 1584s [00:53:04.216] - signal: TRUE 1584s [00:53:04.216] - resignal: FALSE 1584s [00:53:04.217] - force: TRUE 1584s [00:53:04.217] - relayed: [n=1] FALSE 1584s [00:53:04.217] - queued futures: [n=1] FALSE 1584s [00:53:04.217] - until=1 1584s [00:53:04.217] - relaying element #1 1584s [00:53:04.218] - relayed: [n=1] TRUE 1584s [00:53:04.218] - queued futures: [n=1] TRUE 1584s [00:53:04.218] signalConditionsASAP(SequentialFuture, pos=1) ... done 1584s [00:53:04.218] length: 0 (resolved future 1) 1584s [00:53:04.219] Relaying remaining futures 1584s [00:53:04.219] signalConditionsASAP(NULL, pos=0) ... 1584s [00:53:04.219] - nx: 1 1584s [00:53:04.219] - relay: TRUE 1584s [00:53:04.219] - stdout: TRUE 1584s [00:53:04.219] - signal: TRUE 1584s [00:53:04.220] - resignal: FALSE 1584s [00:53:04.220] - force: TRUE 1584s [00:53:04.220] - relayed: [n=1] TRUE 1584s [00:53:04.220] - queued futures: [n=1] TRUE 1584s - flush all 1584s [00:53:04.221] - relayed: [n=1] TRUE 1584s [00:53:04.221] - queued futures: [n=1] TRUE 1584s [00:53:04.221] signalConditionsASAP(NULL, pos=0) ... done 1584s [00:53:04.221] resolve() on list ... DONE 1584s [00:53:04.222] - Number of value chunks collected: 1 1584s [00:53:04.222] Resolving 1 futures (chunks) ... DONE 1584s [00:53:04.222] Reducing values from 1 chunks ... 1584s List[00:53:04.222] - Number of values collected after concatenation: 4 1584s [00:53:04.222] - Number of values expected: 4 1584s [00:53:04.223] Reducing values from 1 chunks ... DONE 1584s [00:53:04.223] future_lapply() ... DONE 1584s of 2 1584s $ y0: Named num [1:4] 50 60 70 80 1584s ..- attr(*, "names")= chr [1:4] "A" "B" "C" "D" 1584s $ y1: Named num [1:4] 50 60 70 80 1584s ..- attr(*, "names")= chr [1:4] "A" "B" "C" "D" 1584s [00:53:04.226] future_lapply() ... 1584s [00:53:04.233] Number of chunks: 1 1584s [00:53:04.234] getGlobalsAndPackagesXApply() ... 1584s [00:53:04.234] - future.globals: TRUE 1584s [00:53:04.235] getGlobalsAndPackages() ... 1584s [00:53:04.235] Searching for globals... 1584s [00:53:04.239] - globals found: [2] ‘FUN’, ‘UseMethod’ 1584s [00:53:04.240] Searching for globals ... DONE 1584s [00:53:04.240] Resolving globals: FALSE 1584s [00:53:04.241] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1584s [00:53:04.241] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1584s [00:53:04.242] - globals: [1] ‘FUN’ 1584s [00:53:04.242] 1584s [00:53:04.242] getGlobalsAndPackages() ... DONE 1584s [00:53:04.243] - globals found/used: [n=1] ‘FUN’ 1584s [00:53:04.243] - needed namespaces: [n=0] 1584s [00:53:04.243] Finding globals ... DONE 1584s [00:53:04.243] - use_args: TRUE 1584s [00:53:04.243] - Getting '...' globals ... 1584s [00:53:04.244] resolve() on list ... 1584s [00:53:04.244] recursive: 0 1584s [00:53:04.245] length: 1 1584s [00:53:04.245] elements: ‘...’ 1584s [00:53:04.245] length: 0 (resolved future 1) 1584s [00:53:04.246] resolve() on list ... DONE 1584s [00:53:04.246] - '...' content: [n=0] 1584s [00:53:04.246] List of 1 1584s [00:53:04.246] $ ...: list() 1584s [00:53:04.246] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1584s [00:53:04.246] - attr(*, "where")=List of 1 1584s [00:53:04.246] ..$ ...: 1584s [00:53:04.246] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1584s [00:53:04.246] - attr(*, "resolved")= logi TRUE 1584s [00:53:04.246] - attr(*, "total_size")= num NA 1584s [00:53:04.252] - Getting '...' globals ... DONE 1584s [00:53:04.252] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1584s [00:53:04.253] List of 2 1584s [00:53:04.253] $ ...future.FUN:function (x, ...) 1584s [00:53:04.253] $ ... : list() 1584s [00:53:04.253] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1584s [00:53:04.253] - attr(*, "where")=List of 2 1584s [00:53:04.253] ..$ ...future.FUN: 1584s [00:53:04.253] ..$ ... : 1584s [00:53:04.253] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1584s [00:53:04.253] - attr(*, "resolved")= logi FALSE 1584s [00:53:04.253] - attr(*, "total_size")= num 1248 1584s [00:53:04.258] Packages to be attached in all futures: [n=0] 1584s [00:53:04.258] getGlobalsAndPackagesXApply() ... DONE 1584s [00:53:04.259] Number of futures (= number of chunks): 1 1584s [00:53:04.260] Launching 1 futures (chunks) ... 1584s [00:53:04.260] Chunk #1 of 1 ... 1584s [00:53:04.261] - Finding globals in 'X' for chunk #1 ... 1584s [00:53:04.261] getGlobalsAndPackages() ... 1584s [00:53:04.261] Searching for globals... 1584s [00:53:04.262] 1584s [00:53:04.262] Searching for globals ... DONE 1584s [00:53:04.262] - globals: [0] 1584s [00:53:04.263] getGlobalsAndPackages() ... DONE 1584s [00:53:04.263] + additional globals found: [n=0] 1584s [00:53:04.263] + additional namespaces needed: [n=0] 1584s [00:53:04.264] - Finding globals in 'X' for chunk #1 ... DONE 1584s [00:53:04.264] - seeds: 1584s [00:53:04.264] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1584s [00:53:04.264] getGlobalsAndPackages() ... 1584s [00:53:04.265] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1584s [00:53:04.265] Resolving globals: FALSE 1584s [00:53:04.265] Tweak future expression to call with '...' arguments ... 1584s [00:53:04.265] { 1584s [00:53:04.265] do.call(function(...) { 1584s [00:53:04.265] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1584s [00:53:04.265] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1584s [00:53:04.265] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1584s [00:53:04.265] on.exit(options(oopts), add = TRUE) 1584s [00:53:04.265] } 1584s [00:53:04.265] { 1584s [00:53:04.265] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1584s [00:53:04.265] ...future.X_jj <- ...future.elements_ii[[jj]] 1584s [00:53:04.265] ...future.FUN(...future.X_jj, ...) 1584s [00:53:04.265] }) 1584s [00:53:04.265] } 1584s [00:53:04.265] }, args = future.call.arguments) 1584s [00:53:04.265] } 1584s [00:53:04.266] Tweak future expression to call with '...' arguments ... DONE 1584s [00:53:04.267] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1584s [00:53:04.268] 1584s [00:53:04.268] getGlobalsAndPackages() ... DONE 1584s [00:53:04.268] run() for ‘Future’ ... 1584s [00:53:04.268] - state: ‘created’ 1584s [00:53:04.268] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1584s [00:53:04.274] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1584s [00:53:04.274] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1584s [00:53:04.274] - Field: ‘label’ 1584s [00:53:04.274] - Field: ‘local’ 1584s [00:53:04.275] - Field: ‘owner’ 1584s [00:53:04.275] - Field: ‘envir’ 1584s [00:53:04.275] - Field: ‘packages’ 1584s [00:53:04.275] - Field: ‘gc’ 1584s [00:53:04.275] - Field: ‘conditions’ 1584s [00:53:04.276] - Field: ‘expr’ 1584s [00:53:04.276] - Field: ‘uuid’ 1584s [00:53:04.276] - Field: ‘seed’ 1584s [00:53:04.277] - Field: ‘version’ 1584s [00:53:04.277] - Field: ‘result’ 1584s [00:53:04.277] - Field: ‘asynchronous’ 1584s [00:53:04.277] - Field: ‘calls’ 1584s [00:53:04.277] - Field: ‘globals’ 1584s [00:53:04.278] - Field: ‘stdout’ 1584s [00:53:04.278] - Field: ‘earlySignal’ 1584s [00:53:04.278] - Field: ‘lazy’ 1584s [00:53:04.279] - Field: ‘state’ 1584s [00:53:04.279] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1584s [00:53:04.279] - Launch lazy future ... 1584s [00:53:04.280] Packages needed by the future expression (n = 0): 1584s [00:53:04.280] Packages needed by future strategies (n = 0): 1584s [00:53:04.282] { 1584s [00:53:04.282] { 1584s [00:53:04.282] { 1584s [00:53:04.282] ...future.startTime <- base::Sys.time() 1584s [00:53:04.282] { 1584s [00:53:04.282] { 1584s [00:53:04.282] { 1584s [00:53:04.282] base::local({ 1584s [00:53:04.282] has_future <- base::requireNamespace("future", 1584s [00:53:04.282] quietly = TRUE) 1584s [00:53:04.282] if (has_future) { 1584s [00:53:04.282] ns <- base::getNamespace("future") 1584s [00:53:04.282] version <- ns[[".package"]][["version"]] 1584s [00:53:04.282] if (is.null(version)) 1584s [00:53:04.282] version <- utils::packageVersion("future") 1584s [00:53:04.282] } 1584s [00:53:04.282] else { 1584s [00:53:04.282] version <- NULL 1584s [00:53:04.282] } 1584s [00:53:04.282] if (!has_future || version < "1.8.0") { 1584s [00:53:04.282] info <- base::c(r_version = base::gsub("R version ", 1584s [00:53:04.282] "", base::R.version$version.string), 1584s [00:53:04.282] platform = base::sprintf("%s (%s-bit)", 1584s [00:53:04.282] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1584s [00:53:04.282] os = base::paste(base::Sys.info()[base::c("sysname", 1584s [00:53:04.282] "release", "version")], collapse = " "), 1584s [00:53:04.282] hostname = base::Sys.info()[["nodename"]]) 1584s [00:53:04.282] info <- base::sprintf("%s: %s", base::names(info), 1584s [00:53:04.282] info) 1584s [00:53:04.282] info <- base::paste(info, collapse = "; ") 1584s [00:53:04.282] if (!has_future) { 1584s [00:53:04.282] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1584s [00:53:04.282] info) 1584s [00:53:04.282] } 1584s [00:53:04.282] else { 1584s [00:53:04.282] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1584s [00:53:04.282] info, version) 1584s [00:53:04.282] } 1584s [00:53:04.282] base::stop(msg) 1584s [00:53:04.282] } 1584s [00:53:04.282] }) 1584s [00:53:04.282] } 1584s [00:53:04.282] options(future.plan = NULL) 1584s [00:53:04.282] Sys.unsetenv("R_FUTURE_PLAN") 1584s [00:53:04.282] future::plan("default", .cleanup = FALSE, .init = FALSE) 1584s [00:53:04.282] } 1584s [00:53:04.282] ...future.workdir <- getwd() 1584s [00:53:04.282] } 1584s [00:53:04.282] ...future.oldOptions <- base::as.list(base::.Options) 1584s [00:53:04.282] ...future.oldEnvVars <- base::Sys.getenv() 1584s [00:53:04.282] } 1584s [00:53:04.282] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1584s [00:53:04.282] future.globals.maxSize = NULL, future.globals.method = NULL, 1584s [00:53:04.282] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1584s [00:53:04.282] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1584s [00:53:04.282] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1584s [00:53:04.282] future.stdout.windows.reencode = NULL, width = 80L) 1584s [00:53:04.282] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1584s [00:53:04.282] base::names(...future.oldOptions)) 1584s [00:53:04.282] } 1584s [00:53:04.282] if (FALSE) { 1584s [00:53:04.282] } 1584s [00:53:04.282] else { 1584s [00:53:04.282] if (TRUE) { 1584s [00:53:04.282] ...future.stdout <- base::rawConnection(base::raw(0L), 1584s [00:53:04.282] open = "w") 1584s [00:53:04.282] } 1584s [00:53:04.282] else { 1584s [00:53:04.282] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1584s [00:53:04.282] windows = "NUL", "/dev/null"), open = "w") 1584s [00:53:04.282] } 1584s [00:53:04.282] base::sink(...future.stdout, type = "output", split = FALSE) 1584s [00:53:04.282] base::on.exit(if (!base::is.null(...future.stdout)) { 1584s [00:53:04.282] base::sink(type = "output", split = FALSE) 1584s [00:53:04.282] base::close(...future.stdout) 1584s [00:53:04.282] }, add = TRUE) 1584s [00:53:04.282] } 1584s [00:53:04.282] ...future.frame <- base::sys.nframe() 1584s [00:53:04.282] ...future.conditions <- base::list() 1584s [00:53:04.282] ...future.rng <- base::globalenv()$.Random.seed 1584s [00:53:04.282] if (FALSE) { 1584s [00:53:04.282] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1584s [00:53:04.282] "...future.value", "...future.globalenv.names", ".Random.seed") 1584s [00:53:04.282] } 1584s [00:53:04.282] ...future.result <- base::tryCatch({ 1584s [00:53:04.282] base::withCallingHandlers({ 1584s [00:53:04.282] ...future.value <- base::withVisible(base::local({ 1584s [00:53:04.282] do.call(function(...) { 1584s [00:53:04.282] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1584s [00:53:04.282] if (!identical(...future.globals.maxSize.org, 1584s [00:53:04.282] ...future.globals.maxSize)) { 1584s [00:53:04.282] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1584s [00:53:04.282] on.exit(options(oopts), add = TRUE) 1584s [00:53:04.282] } 1584s [00:53:04.282] { 1584s [00:53:04.282] lapply(seq_along(...future.elements_ii), 1584s [00:53:04.282] FUN = function(jj) { 1584s [00:53:04.282] ...future.X_jj <- ...future.elements_ii[[jj]] 1584s [00:53:04.282] ...future.FUN(...future.X_jj, ...) 1584s [00:53:04.282] }) 1584s [00:53:04.282] } 1584s [00:53:04.282] }, args = future.call.arguments) 1584s [00:53:04.282] })) 1584s [00:53:04.282] future::FutureResult(value = ...future.value$value, 1584s [00:53:04.282] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1584s [00:53:04.282] ...future.rng), globalenv = if (FALSE) 1584s [00:53:04.282] list(added = base::setdiff(base::names(base::.GlobalEnv), 1584s [00:53:04.282] ...future.globalenv.names)) 1584s [00:53:04.282] else NULL, started = ...future.startTime, version = "1.8") 1584s [00:53:04.282] }, condition = base::local({ 1584s [00:53:04.282] c <- base::c 1584s [00:53:04.282] inherits <- base::inherits 1584s [00:53:04.282] invokeRestart <- base::invokeRestart 1584s [00:53:04.282] length <- base::length 1584s [00:53:04.282] list <- base::list 1584s [00:53:04.282] seq.int <- base::seq.int 1584s [00:53:04.282] signalCondition <- base::signalCondition 1584s [00:53:04.282] sys.calls <- base::sys.calls 1584s [00:53:04.282] `[[` <- base::`[[` 1584s [00:53:04.282] `+` <- base::`+` 1584s [00:53:04.282] `<<-` <- base::`<<-` 1584s [00:53:04.282] sysCalls <- function(calls = sys.calls(), from = 1L) { 1584s [00:53:04.282] calls[seq.int(from = from + 12L, to = length(calls) - 1584s [00:53:04.282] 3L)] 1584s [00:53:04.282] } 1584s [00:53:04.282] function(cond) { 1584s [00:53:04.282] is_error <- inherits(cond, "error") 1584s [00:53:04.282] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1584s [00:53:04.282] NULL) 1584s [00:53:04.282] if (is_error) { 1584s [00:53:04.282] sessionInformation <- function() { 1584s [00:53:04.282] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1584s [00:53:04.282] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1584s [00:53:04.282] search = base::search(), system = base::Sys.info()) 1584s [00:53:04.282] } 1584s [00:53:04.282] ...future.conditions[[length(...future.conditions) + 1584s [00:53:04.282] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1584s [00:53:04.282] cond$call), session = sessionInformation(), 1584s [00:53:04.282] timestamp = base::Sys.time(), signaled = 0L) 1584s [00:53:04.282] signalCondition(cond) 1584s [00:53:04.282] } 1584s [00:53:04.282] else if (!ignore && TRUE && inherits(cond, c("condition", 1584s [00:53:04.282] "immediateCondition"))) { 1584s [00:53:04.282] signal <- TRUE && inherits(cond, "immediateCondition") 1584s [00:53:04.282] ...future.conditions[[length(...future.conditions) + 1584s [00:53:04.282] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1584s [00:53:04.282] if (TRUE && !signal) { 1584s [00:53:04.282] muffleCondition <- function (cond, pattern = "^muffle") 1584s [00:53:04.282] { 1584s [00:53:04.282] inherits <- base::inherits 1584s [00:53:04.282] invokeRestart <- base::invokeRestart 1584s [00:53:04.282] is.null <- base::is.null 1584s [00:53:04.282] muffled <- FALSE 1584s [00:53:04.282] if (inherits(cond, "message")) { 1584s [00:53:04.282] muffled <- grepl(pattern, "muffleMessage") 1584s [00:53:04.282] if (muffled) 1584s [00:53:04.282] invokeRestart("muffleMessage") 1584s [00:53:04.282] } 1584s [00:53:04.282] else if (inherits(cond, "warning")) { 1584s [00:53:04.282] muffled <- grepl(pattern, "muffleWarning") 1584s [00:53:04.282] if (muffled) 1584s [00:53:04.282] invokeRestart("muffleWarning") 1584s [00:53:04.282] } 1584s [00:53:04.282] else if (inherits(cond, "condition")) { 1584s [00:53:04.282] if (!is.null(pattern)) { 1584s [00:53:04.282] computeRestarts <- base::computeRestarts 1584s [00:53:04.282] grepl <- base::grepl 1584s [00:53:04.282] restarts <- computeRestarts(cond) 1584s [00:53:04.282] for (restart in restarts) { 1584s [00:53:04.282] name <- restart$name 1584s [00:53:04.282] if (is.null(name)) 1584s [00:53:04.282] next 1584s [00:53:04.282] if (!grepl(pattern, name)) 1584s [00:53:04.282] next 1584s [00:53:04.282] invokeRestart(restart) 1584s [00:53:04.282] muffled <- TRUE 1584s [00:53:04.282] break 1584s [00:53:04.282] } 1584s [00:53:04.282] } 1584s [00:53:04.282] } 1584s [00:53:04.282] invisible(muffled) 1584s [00:53:04.282] } 1584s [00:53:04.282] muffleCondition(cond, pattern = "^muffle") 1584s [00:53:04.282] } 1584s [00:53:04.282] } 1584s [00:53:04.282] else { 1584s [00:53:04.282] if (TRUE) { 1584s [00:53:04.282] muffleCondition <- function (cond, pattern = "^muffle") 1584s [00:53:04.282] { 1584s [00:53:04.282] inherits <- base::inherits 1584s [00:53:04.282] invokeRestart <- base::invokeRestart 1584s [00:53:04.282] is.null <- base::is.null 1584s [00:53:04.282] muffled <- FALSE 1584s [00:53:04.282] if (inherits(cond, "message")) { 1584s [00:53:04.282] muffled <- grepl(pattern, "muffleMessage") 1584s [00:53:04.282] if (muffled) 1584s [00:53:04.282] invokeRestart("muffleMessage") 1584s [00:53:04.282] } 1584s [00:53:04.282] else if (inherits(cond, "warning")) { 1584s [00:53:04.282] muffled <- grepl(pattern, "muffleWarning") 1584s [00:53:04.282] if (muffled) 1584s [00:53:04.282] invokeRestart("muffleWarning") 1584s [00:53:04.282] } 1584s [00:53:04.282] else if (inherits(cond, "condition")) { 1584s [00:53:04.282] if (!is.null(pattern)) { 1584s [00:53:04.282] computeRestarts <- base::computeRestarts 1584s [00:53:04.282] grepl <- base::grepl 1584s [00:53:04.282] restarts <- computeRestarts(cond) 1584s [00:53:04.282] for (restart in restarts) { 1584s [00:53:04.282] name <- restart$name 1584s [00:53:04.282] if (is.null(name)) 1584s [00:53:04.282] next 1584s [00:53:04.282] if (!grepl(pattern, name)) 1584s [00:53:04.282] next 1584s [00:53:04.282] invokeRestart(restart) 1584s [00:53:04.282] muffled <- TRUE 1584s [00:53:04.282] break 1584s [00:53:04.282] } 1584s [00:53:04.282] } 1584s [00:53:04.282] } 1584s [00:53:04.282] invisible(muffled) 1584s [00:53:04.282] } 1584s [00:53:04.282] muffleCondition(cond, pattern = "^muffle") 1584s [00:53:04.282] } 1584s [00:53:04.282] } 1584s [00:53:04.282] } 1584s [00:53:04.282] })) 1584s [00:53:04.282] }, error = function(ex) { 1584s [00:53:04.282] base::structure(base::list(value = NULL, visible = NULL, 1584s [00:53:04.282] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1584s [00:53:04.282] ...future.rng), started = ...future.startTime, 1584s [00:53:04.282] finished = Sys.time(), session_uuid = NA_character_, 1584s [00:53:04.282] version = "1.8"), class = "FutureResult") 1584s [00:53:04.282] }, finally = { 1584s [00:53:04.282] if (!identical(...future.workdir, getwd())) 1584s [00:53:04.282] setwd(...future.workdir) 1584s [00:53:04.282] { 1584s [00:53:04.282] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1584s [00:53:04.282] ...future.oldOptions$nwarnings <- NULL 1584s [00:53:04.282] } 1584s [00:53:04.282] base::options(...future.oldOptions) 1584s [00:53:04.282] if (.Platform$OS.type == "windows") { 1584s [00:53:04.282] old_names <- names(...future.oldEnvVars) 1584s [00:53:04.282] envs <- base::Sys.getenv() 1584s [00:53:04.282] names <- names(envs) 1584s [00:53:04.282] common <- intersect(names, old_names) 1584s [00:53:04.282] added <- setdiff(names, old_names) 1584s [00:53:04.282] removed <- setdiff(old_names, names) 1584s [00:53:04.282] changed <- common[...future.oldEnvVars[common] != 1584s [00:53:04.282] envs[common]] 1584s [00:53:04.282] NAMES <- toupper(changed) 1584s [00:53:04.282] args <- list() 1584s [00:53:04.282] for (kk in seq_along(NAMES)) { 1584s [00:53:04.282] name <- changed[[kk]] 1584s [00:53:04.282] NAME <- NAMES[[kk]] 1584s [00:53:04.282] if (name != NAME && is.element(NAME, old_names)) 1584s [00:53:04.282] next 1584s [00:53:04.282] args[[name]] <- ...future.oldEnvVars[[name]] 1584s [00:53:04.282] } 1584s [00:53:04.282] NAMES <- toupper(added) 1584s [00:53:04.282] for (kk in seq_along(NAMES)) { 1584s [00:53:04.282] name <- added[[kk]] 1584s [00:53:04.282] NAME <- NAMES[[kk]] 1584s [00:53:04.282] if (name != NAME && is.element(NAME, old_names)) 1584s [00:53:04.282] next 1584s [00:53:04.282] args[[name]] <- "" 1584s [00:53:04.282] } 1584s [00:53:04.282] NAMES <- toupper(removed) 1584s [00:53:04.282] for (kk in seq_along(NAMES)) { 1584s [00:53:04.282] name <- removed[[kk]] 1584s [00:53:04.282] NAME <- NAMES[[kk]] 1584s [00:53:04.282] if (name != NAME && is.element(NAME, old_names)) 1584s [00:53:04.282] next 1584s [00:53:04.282] args[[name]] <- ...future.oldEnvVars[[name]] 1584s [00:53:04.282] } 1584s [00:53:04.282] if (length(args) > 0) 1584s [00:53:04.282] base::do.call(base::Sys.setenv, args = args) 1584s [00:53:04.282] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1584s [00:53:04.282] } 1584s [00:53:04.282] else { 1584s [00:53:04.282] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1584s [00:53:04.282] } 1584s [00:53:04.282] { 1584s [00:53:04.282] if (base::length(...future.futureOptionsAdded) > 1584s [00:53:04.282] 0L) { 1584s [00:53:04.282] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1584s [00:53:04.282] base::names(opts) <- ...future.futureOptionsAdded 1584s [00:53:04.282] base::options(opts) 1584s [00:53:04.282] } 1584s [00:53:04.282] { 1584s [00:53:04.282] { 1584s [00:53:04.282] NULL 1584s [00:53:04.282] RNGkind("Mersenne-Twister") 1584s [00:53:04.282] base::rm(list = ".Random.seed", envir = base::globalenv(), 1584s [00:53:04.282] inherits = FALSE) 1584s [00:53:04.282] } 1584s [00:53:04.282] options(future.plan = NULL) 1584s [00:53:04.282] if (is.na(NA_character_)) 1584s [00:53:04.282] Sys.unsetenv("R_FUTURE_PLAN") 1584s [00:53:04.282] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1584s [00:53:04.282] future::plan(list(function (..., workers = availableCores(), 1584s [00:53:04.282] lazy = FALSE, rscript_libs = .libPaths(), 1584s [00:53:04.282] envir = parent.frame()) 1584s [00:53:04.282] { 1584s [00:53:04.282] if (is.function(workers)) 1584s [00:53:04.282] workers <- workers() 1584s [00:53:04.282] workers <- structure(as.integer(workers), 1584s [00:53:04.282] class = class(workers)) 1584s [00:53:04.282] stop_if_not(length(workers) == 1, is.finite(workers), 1584s [00:53:04.282] workers >= 1) 1584s [00:53:04.282] if (workers == 1L && !inherits(workers, "AsIs")) { 1584s [00:53:04.282] return(sequential(..., lazy = TRUE, envir = envir)) 1584s [00:53:04.282] } 1584s [00:53:04.282] future <- MultisessionFuture(..., workers = workers, 1584s [00:53:04.282] lazy = lazy, rscript_libs = rscript_libs, 1584s [00:53:04.282] envir = envir) 1584s [00:53:04.282] if (!future$lazy) 1584s [00:53:04.282] future <- run(future) 1584s [00:53:04.282] invisible(future) 1584s [00:53:04.282] }), .cleanup = FALSE, .init = FALSE) 1584s [00:53:04.282] } 1584s [00:53:04.282] } 1584s [00:53:04.282] } 1584s [00:53:04.282] }) 1584s [00:53:04.282] if (TRUE) { 1584s [00:53:04.282] base::sink(type = "output", split = FALSE) 1584s [00:53:04.282] if (TRUE) { 1584s [00:53:04.282] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1584s [00:53:04.282] } 1584s [00:53:04.282] else { 1584s [00:53:04.282] ...future.result["stdout"] <- base::list(NULL) 1584s [00:53:04.282] } 1584s [00:53:04.282] base::close(...future.stdout) 1584s [00:53:04.282] ...future.stdout <- NULL 1584s [00:53:04.282] } 1584s [00:53:04.282] ...future.result$conditions <- ...future.conditions 1584s [00:53:04.282] ...future.result$finished <- base::Sys.time() 1584s [00:53:04.282] ...future.result 1584s [00:53:04.282] } 1584s [00:53:04.288] assign_globals() ... 1584s [00:53:04.288] List of 5 1584s [00:53:04.288] $ ...future.FUN :function (x, ...) 1584s [00:53:04.288] $ future.call.arguments : list() 1584s [00:53:04.288] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1584s [00:53:04.288] $ ...future.elements_ii :List of 4 1584s [00:53:04.288] ..$ A: num 50 1584s [00:53:04.288] ..$ B: num 60 1584s [00:53:04.288] ..$ C: num 70 1584s [00:53:04.288] ..$ D: num 80 1584s [00:53:04.288] $ ...future.seeds_ii : NULL 1584s [00:53:04.288] $ ...future.globals.maxSize: NULL 1584s [00:53:04.288] - attr(*, "where")=List of 5 1584s [00:53:04.288] ..$ ...future.FUN : 1584s [00:53:04.288] ..$ future.call.arguments : 1584s [00:53:04.288] ..$ ...future.elements_ii : 1584s [00:53:04.288] ..$ ...future.seeds_ii : 1584s [00:53:04.288] ..$ ...future.globals.maxSize: 1584s [00:53:04.288] - attr(*, "resolved")= logi FALSE 1584s [00:53:04.288] - attr(*, "total_size")= num 1248 1584s [00:53:04.288] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1584s [00:53:04.288] - attr(*, "already-done")= logi TRUE 1584s [00:53:04.313] - copied ‘...future.FUN’ to environment 1584s [00:53:04.313] - copied ‘future.call.arguments’ to environment 1584s [00:53:04.314] - copied ‘...future.elements_ii’ to environment 1584s [00:53:04.314] - copied ‘...future.seeds_ii’ to environment 1584s [00:53:04.314] - copied ‘...future.globals.maxSize’ to environment 1584s [00:53:04.314] assign_globals() ... done 1584s [00:53:04.315] plan(): Setting new future strategy stack: 1584s [00:53:04.315] List of future strategies: 1584s [00:53:04.315] 1. sequential: 1584s [00:53:04.315] - args: function (..., envir = parent.frame()) 1584s [00:53:04.315] - tweaked: FALSE 1584s [00:53:04.315] - call: NULL 1584s [00:53:04.316] plan(): nbrOfWorkers() = 1 1584s [00:53:04.317] plan(): Setting new future strategy stack: 1584s [00:53:04.317] List of future strategies: 1584s [00:53:04.317] 1. multisession: 1584s [00:53:04.317] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1584s [00:53:04.317] - tweaked: FALSE 1584s [00:53:04.317] - call: plan(strategy) 1584s [00:53:04.321] plan(): nbrOfWorkers() = 1 1584s [00:53:04.321] SequentialFuture started (and completed) 1584s [00:53:04.322] - Launch lazy future ... done 1584s [00:53:04.322] run() for ‘SequentialFuture’ ... done 1584s [00:53:04.322] Created future: 1584s [00:53:04.322] SequentialFuture: 1584s [00:53:04.322] Label: ‘future_sapply-1’ 1584s [00:53:04.322] Expression: 1584s [00:53:04.322] { 1584s [00:53:04.322] do.call(function(...) { 1584s [00:53:04.322] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1584s [00:53:04.322] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1584s [00:53:04.322] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1584s [00:53:04.322] on.exit(options(oopts), add = TRUE) 1584s [00:53:04.322] } 1584s [00:53:04.322] { 1584s [00:53:04.322] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1584s [00:53:04.322] ...future.X_jj <- ...future.elements_ii[[jj]] 1584s [00:53:04.322] ...future.FUN(...future.X_jj, ...) 1584s [00:53:04.322] }) 1584s [00:53:04.322] } 1584s [00:53:04.322] }, args = future.call.arguments) 1584s [00:53:04.322] } 1584s [00:53:04.322] Lazy evaluation: FALSE 1584s [00:53:04.322] Asynchronous evaluation: FALSE 1584s [00:53:04.322] Local evaluation: TRUE 1584s [00:53:04.322] Environment: R_GlobalEnv 1584s [00:53:04.322] Capture standard output: TRUE 1584s [00:53:04.322] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1584s [00:53:04.322] Globals: 5 objects totaling 1.44 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NList of 2 1584s $ y0:ULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1584s [00:53:04.322] Packages: 1584s [00:53:04.322] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1584s [00:53:04.322] Resolved: TRUE 1584s [00:53:04.322] Value: 896 bytes of class ‘list’ 1584s [00:53:04.322] Early signaling: FALSE 1584s [00:53:04.322] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1584s [00:53:04.322] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1584s [00:53:04.324] Chunk #1 of 1 ... DONE 1584s [00:53:04.324] Launching 1 futures (chunks) ... DONE 1584s [00:53:04.324] Resolving 1 futures (chunks) ... 1584s [00:53:04.325] resolve() on list ... 1584s [00:53:04.325] recursive: 0 1584s [00:53:04.325] length: 1 1584s [00:53:04.325] 1584s [00:53:04.325] resolved() for ‘SequentialFuture’ ... 1584s [00:53:04.325] - state: ‘finished’ 1584s [00:53:04.325] - run: TRUE 1584s [00:53:04.325] - result: ‘FutureResult’ 1584s [00:53:04.326] resolved() for ‘SequentialFuture’ ... done 1584s [00:53:04.326] Future #1 1584s [00:53:04.326] signalConditionsASAP(SequentialFuture, pos=1) ... 1584s [00:53:04.326] - nx: 1 1584s [00:53:04.326] - relay: TRUE 1584s [00:53:04.326] - stdout: TRUE 1584s [00:53:04.326] - signal: TRUE 1584s [00:53:04.326] - resignal: FALSE 1584s [00:53:04.326] - force: TRUE 1584s [00:53:04.327] - relayed: [n=1] FALSE 1584s [00:53:04.327] - queued futures: [n=1] FALSE 1584s [00:53:04.327] - until=1 1584s [00:53:04.327] - relaying element #1 1584s [00:53:04.327] - relayed: [n=1] TRUE 1584s [00:53:04.327] - queued futures: [n=1] TRUE 1584s [00:53:04.327] signalConditionsASAP(SequentialFuture, pos=1) ... done 1584s [00:53:04.328] length: 0 (resolved future 1) 1584s [00:53:04.328] Relaying remaining futures 1584s [00:53:04.328] signalConditionsASAP(NULL, pos=0) ... 1584s [00:53:04.328] - nx: 1 1584s [00:53:04.328] - relay: TRUE 1584s [00:53:04.328] - stdout: TRUE 1584s [00:53:04.328] - signal: TRUE 1584s [00:53:04.328] - resignal: FALSE 1584s [00:53:04.328] - force: TRUE 1584s [00:53:04.328] - relayed: [n=1] TRUE 1584s [00:53:04.329] - queued futures: [n=1] TRUE 1584s - flush all 1584s [00:53:04.329] - relayed: [n=1] TRUE 1584s [00:53:04.329] - queued futures: [n=1] TRUE 1584s [00:53:04.329] signalConditionsASAP(NULL, pos=0) ... done 1584s [00:53:04.329] resolve() on list ... DONE 1584s [00:53:04.329] - Number of value chunks collected: 1 1584s [00:53:04.329] Resolving 1 futures (chunks) ... DONE 1584s [00:53:04.330] Reducing values from 1 chunks ... 1584s [00:53:04.330] - Number of values collected after concatenation: 4 1584s [00:53:04.330] - Number of values expected: 4 1584s [00:53:04.330] Reducing values from 1 chunks ... DONE 1584s [00:53:04.330] future_lapply() ... DONE 1584s Named num [1:4] 50 60 70 80 1584s ..- attr(*, "names")= chr [1:4] "A" "B" "C" "D" 1584s $ y1: Named num [1:4] 50 60 70 80 1584s ..- attr(*, "names")= chr [1:4] "A" "B" "C" "D" 1584s [00:53:04.333] future_lapply() ... 1584s [00:53:04.337] Number of chunks: 1 1584s [00:53:04.337] getGlobalsAndPackagesXApply() ... 1584s [00:53:04.338] - future.globals: TRUE 1584s [00:53:04.338] getGlobalsAndPackages() ... 1584s [00:53:04.338] Searching for globals... 1584s [00:53:04.340] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1584s [00:53:04.340] Searching for globals ... DONE 1584s [00:53:04.340] Resolving globals: FALSE 1584s [00:53:04.341] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1584s [00:53:04.341] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1584s [00:53:04.341] - globals: [1] ‘FUN’ 1584s [00:53:04.342] 1584s [00:53:04.342] getGlobalsAndPackages() ... DONE 1584s [00:53:04.342] - globals found/used: [n=1] ‘FUN’ 1584s [00:53:04.342] - needed namespaces: [n=0] 1584s [00:53:04.342] Finding globals ... DONE 1584s [00:53:04.343] - use_args: TRUE 1584s [00:53:04.343] - Getting '...' globals ... 1584s [00:53:04.343] resolve() on list ... 1584s [00:53:04.343] recursive: 0 1584s [00:53:04.344] length: 1 1584s [00:53:04.344] elements: ‘...’ 1584s [00:53:04.344] length: 0 (resolved future 1) 1584s [00:53:04.344] resolve() on list ... DONE 1584s [00:53:04.344] - '...' content: [n=0] 1584s [00:53:04.344] List of 1 1584s [00:53:04.344] $ ...: list() 1584s [00:53:04.344] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1584s [00:53:04.344] - attr(*, "where")=List of 1 1584s [00:53:04.344] ..$ ...: 1584s [00:53:04.344] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1584s [00:53:04.344] - attr(*, "resolved")= logi TRUE 1584s [00:53:04.344] - attr(*, "total_size")= num NA 1584s [00:53:04.348] - Getting '...' globals ... DONE 1584s [00:53:04.348] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1584s [00:53:04.349] List of 2 1584s [00:53:04.349] $ ...future.FUN:function (x, y = 2 * 1:5) 1584s [00:53:04.349] $ ... : list() 1584s [00:53:04.349] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1584s [00:53:04.349] - attr(*, "where")=List of 2 1584s [00:53:04.349] ..$ ...future.FUN: 1584s [00:53:04.349] ..$ ... : 1584s [00:53:04.349] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1584s [00:53:04.349] - attr(*, "resolved")= logi FALSE 1584s [00:53:04.349] - attr(*, "total_size")= num 4728 1584s [00:53:04.352] Packages to be attached in all futures: [n=0] 1584s [00:53:04.352] getGlobalsAndPackagesXApply() ... DONE 1584s [00:53:04.353] Number of futures (= number of chunks): 1 1584s [00:53:04.353] Launching 1 futures (chunks) ... 1584s [00:53:04.353] Chunk #1 of 1 ... 1584s [00:53:04.353] - Finding globals in 'X' for chunk #1 ... 1584s [00:53:04.353] getGlobalsAndPackages() ... 1584s [00:53:04.353] Searching for globals... 1584s [00:53:04.354] 1584s [00:53:04.354] Searching for globals ... DONE 1584s [00:53:04.354] - globals: [0] 1584s [00:53:04.354] getGlobalsAndPackages() ... DONE 1584s [00:53:04.354] + additional globals found: [n=0] 1584s [00:53:04.355] + additional namespaces needed: [n=0] 1584s [00:53:04.355] - Finding globals in 'X' for chunk #1 ... DONE 1584s [00:53:04.355] - seeds: 1584s [00:53:04.355] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1584s [00:53:04.355] getGlobalsAndPackages() ... 1584s [00:53:04.355] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1584s [00:53:04.356] Resolving globals: FALSE 1584s [00:53:04.356] Tweak future expression to call with '...' arguments ... 1584s [00:53:04.356] { 1584s [00:53:04.356] do.call(function(...) { 1584s [00:53:04.356] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1584s [00:53:04.356] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1584s [00:53:04.356] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1584s [00:53:04.356] on.exit(options(oopts), add = TRUE) 1584s [00:53:04.356] } 1584s [00:53:04.356] { 1584s [00:53:04.356] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1584s [00:53:04.356] ...future.X_jj <- ...future.elements_ii[[jj]] 1584s [00:53:04.356] ...future.FUN(...future.X_jj, ...) 1584s [00:53:04.356] }) 1584s [00:53:04.356] } 1584s [00:53:04.356] }, args = future.call.arguments) 1584s [00:53:04.356] } 1584s [00:53:04.356] Tweak future expression to call with '...' arguments ... DONE 1584s [00:53:04.357] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1584s [00:53:04.357] 1584s [00:53:04.357] getGlobalsAndPackages() ... DONE 1584s [00:53:04.358] run() for ‘Future’ ... 1584s [00:53:04.358] - state: ‘created’ 1584s [00:53:04.358] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1584s [00:53:04.361] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1584s [00:53:04.361] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1584s [00:53:04.362] - Field: ‘label’ 1584s [00:53:04.362] - Field: ‘local’ 1584s [00:53:04.362] - Field: ‘owner’ 1584s [00:53:04.362] - Field: ‘envir’ 1584s [00:53:04.362] - Field: ‘packages’ 1584s [00:53:04.362] - Field: ‘gc’ 1584s [00:53:04.363] - Field: ‘conditions’ 1584s [00:53:04.363] - Field: ‘expr’ 1584s [00:53:04.363] - Field: ‘uuid’ 1584s [00:53:04.363] - Field: ‘seed’ 1584s [00:53:04.363] - Field: ‘version’ 1584s [00:53:04.363] - Field: ‘result’ 1584s [00:53:04.364] - Field: ‘asynchronous’ 1584s [00:53:04.364] - Field: ‘calls’ 1584s [00:53:04.364] - Field: ‘globals’ 1584s [00:53:04.364] - Field: ‘stdout’ 1584s [00:53:04.364] - Field: ‘earlySignal’ 1584s [00:53:04.364] - Field: ‘lazy’ 1584s [00:53:04.364] - Field: ‘state’ 1584s [00:53:04.365] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1584s [00:53:04.365] - Launch lazy future ... 1584s [00:53:04.365] Packages needed by the future expression (n = 0): 1584s [00:53:04.365] Packages needed by future strategies (n = 0): 1584s [00:53:04.366] { 1584s [00:53:04.366] { 1584s [00:53:04.366] { 1584s [00:53:04.366] ...future.startTime <- base::Sys.time() 1584s [00:53:04.366] { 1584s [00:53:04.366] { 1584s [00:53:04.366] { 1584s [00:53:04.366] base::local({ 1584s [00:53:04.366] has_future <- base::requireNamespace("future", 1584s [00:53:04.366] quietly = TRUE) 1584s [00:53:04.366] if (has_future) { 1584s [00:53:04.366] ns <- base::getNamespace("future") 1584s [00:53:04.366] version <- ns[[".package"]][["version"]] 1584s [00:53:04.366] if (is.null(version)) 1584s [00:53:04.366] version <- utils::packageVersion("future") 1584s [00:53:04.366] } 1584s [00:53:04.366] else { 1584s [00:53:04.366] version <- NULL 1584s [00:53:04.366] } 1584s [00:53:04.366] if (!has_future || version < "1.8.0") { 1584s [00:53:04.366] info <- base::c(r_version = base::gsub("R version ", 1584s [00:53:04.366] "", base::R.version$version.string), 1584s [00:53:04.366] platform = base::sprintf("%s (%s-bit)", 1584s [00:53:04.366] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1584s [00:53:04.366] os = base::paste(base::Sys.info()[base::c("sysname", 1584s [00:53:04.366] "release", "version")], collapse = " "), 1584s [00:53:04.366] hostname = base::Sys.info()[["nodename"]]) 1584s [00:53:04.366] info <- base::sprintf("%s: %s", base::names(info), 1584s [00:53:04.366] info) 1584s [00:53:04.366] info <- base::paste(info, collapse = "; ") 1584s [00:53:04.366] if (!has_future) { 1584s [00:53:04.366] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1584s [00:53:04.366] info) 1584s [00:53:04.366] } 1584s [00:53:04.366] else { 1584s [00:53:04.366] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1584s [00:53:04.366] info, version) 1584s [00:53:04.366] } 1584s [00:53:04.366] base::stop(msg) 1584s [00:53:04.366] } 1584s [00:53:04.366] }) 1584s [00:53:04.366] } 1584s [00:53:04.366] options(future.plan = NULL) 1584s [00:53:04.366] Sys.unsetenv("R_FUTURE_PLAN") 1584s [00:53:04.366] future::plan("default", .cleanup = FALSE, .init = FALSE) 1584s [00:53:04.366] } 1584s [00:53:04.366] ...future.workdir <- getwd() 1584s [00:53:04.366] } 1584s [00:53:04.366] ...future.oldOptions <- base::as.list(base::.Options) 1584s [00:53:04.366] ...future.oldEnvVars <- base::Sys.getenv() 1584s [00:53:04.366] } 1584s [00:53:04.366] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1584s [00:53:04.366] future.globals.maxSize = NULL, future.globals.method = NULL, 1584s [00:53:04.366] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1584s [00:53:04.366] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1584s [00:53:04.366] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1584s [00:53:04.366] future.stdout.windows.reencode = NULL, width = 80L) 1584s [00:53:04.366] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1584s [00:53:04.366] base::names(...future.oldOptions)) 1584s [00:53:04.366] } 1584s [00:53:04.366] if (FALSE) { 1584s [00:53:04.366] } 1584s [00:53:04.366] else { 1584s [00:53:04.366] if (TRUE) { 1584s [00:53:04.366] ...future.stdout <- base::rawConnection(base::raw(0L), 1584s [00:53:04.366] open = "w") 1584s [00:53:04.366] } 1584s [00:53:04.366] else { 1584s [00:53:04.366] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1584s [00:53:04.366] windows = "NUL", "/dev/null"), open = "w") 1584s [00:53:04.366] } 1584s [00:53:04.366] base::sink(...future.stdout, type = "output", split = FALSE) 1584s [00:53:04.366] base::on.exit(if (!base::is.null(...future.stdout)) { 1584s [00:53:04.366] base::sink(type = "output", split = FALSE) 1584s [00:53:04.366] base::close(...future.stdout) 1584s [00:53:04.366] }, add = TRUE) 1584s [00:53:04.366] } 1584s [00:53:04.366] ...future.frame <- base::sys.nframe() 1584s [00:53:04.366] ...future.conditions <- base::list() 1584s [00:53:04.366] ...future.rng <- base::globalenv()$.Random.seed 1584s [00:53:04.366] if (FALSE) { 1584s [00:53:04.366] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1584s [00:53:04.366] "...future.value", "...future.globalenv.names", ".Random.seed") 1584s [00:53:04.366] } 1584s [00:53:04.366] ...future.result <- base::tryCatch({ 1584s [00:53:04.366] base::withCallingHandlers({ 1584s [00:53:04.366] ...future.value <- base::withVisible(base::local({ 1584s [00:53:04.366] do.call(function(...) { 1584s [00:53:04.366] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1584s [00:53:04.366] if (!identical(...future.globals.maxSize.org, 1584s [00:53:04.366] ...future.globals.maxSize)) { 1584s [00:53:04.366] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1584s [00:53:04.366] on.exit(options(oopts), add = TRUE) 1584s [00:53:04.366] } 1584s [00:53:04.366] { 1584s [00:53:04.366] lapply(seq_along(...future.elements_ii), 1584s [00:53:04.366] FUN = function(jj) { 1584s [00:53:04.366] ...future.X_jj <- ...future.elements_ii[[jj]] 1584s [00:53:04.366] ...future.FUN(...future.X_jj, ...) 1584s [00:53:04.366] }) 1584s [00:53:04.366] } 1584s [00:53:04.366] }, args = future.call.arguments) 1584s [00:53:04.366] })) 1584s [00:53:04.366] future::FutureResult(value = ...future.value$value, 1584s [00:53:04.366] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1584s [00:53:04.366] ...future.rng), globalenv = if (FALSE) 1584s [00:53:04.366] list(added = base::setdiff(base::names(base::.GlobalEnv), 1584s [00:53:04.366] ...future.globalenv.names)) 1584s [00:53:04.366] else NULL, started = ...future.startTime, version = "1.8") 1584s [00:53:04.366] }, condition = base::local({ 1584s [00:53:04.366] c <- base::c 1584s [00:53:04.366] inherits <- base::inherits 1584s [00:53:04.366] invokeRestart <- base::invokeRestart 1584s [00:53:04.366] length <- base::length 1584s [00:53:04.366] list <- base::list 1584s [00:53:04.366] seq.int <- base::seq.int 1584s [00:53:04.366] signalCondition <- base::signalCondition 1584s [00:53:04.366] sys.calls <- base::sys.calls 1584s [00:53:04.366] `[[` <- base::`[[` 1584s [00:53:04.366] `+` <- base::`+` 1584s [00:53:04.366] `<<-` <- base::`<<-` 1584s [00:53:04.366] sysCalls <- function(calls = sys.calls(), from = 1L) { 1584s [00:53:04.366] calls[seq.int(from = from + 12L, to = length(calls) - 1584s [00:53:04.366] 3L)] 1584s [00:53:04.366] } 1584s [00:53:04.366] function(cond) { 1584s [00:53:04.366] is_error <- inherits(cond, "error") 1584s [00:53:04.366] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1584s [00:53:04.366] NULL) 1584s [00:53:04.366] if (is_error) { 1584s [00:53:04.366] sessionInformation <- function() { 1584s [00:53:04.366] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1584s [00:53:04.366] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1584s [00:53:04.366] search = base::search(), system = base::Sys.info()) 1584s [00:53:04.366] } 1584s [00:53:04.366] ...future.conditions[[length(...future.conditions) + 1584s [00:53:04.366] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1584s [00:53:04.366] cond$call), session = sessionInformation(), 1584s [00:53:04.366] timestamp = base::Sys.time(), signaled = 0L) 1584s [00:53:04.366] signalCondition(cond) 1584s [00:53:04.366] } 1584s [00:53:04.366] else if (!ignore && TRUE && inherits(cond, c("condition", 1584s [00:53:04.366] "immediateCondition"))) { 1584s [00:53:04.366] signal <- TRUE && inherits(cond, "immediateCondition") 1584s [00:53:04.366] ...future.conditions[[length(...future.conditions) + 1584s [00:53:04.366] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1584s [00:53:04.366] if (TRUE && !signal) { 1584s [00:53:04.366] muffleCondition <- function (cond, pattern = "^muffle") 1584s [00:53:04.366] { 1584s [00:53:04.366] inherits <- base::inherits 1584s [00:53:04.366] invokeRestart <- base::invokeRestart 1584s [00:53:04.366] is.null <- base::is.null 1584s [00:53:04.366] muffled <- FALSE 1584s [00:53:04.366] if (inherits(cond, "message")) { 1584s [00:53:04.366] muffled <- grepl(pattern, "muffleMessage") 1584s [00:53:04.366] if (muffled) 1584s [00:53:04.366] invokeRestart("muffleMessage") 1584s [00:53:04.366] } 1584s [00:53:04.366] else if (inherits(cond, "warning")) { 1584s [00:53:04.366] muffled <- grepl(pattern, "muffleWarning") 1584s [00:53:04.366] if (muffled) 1584s [00:53:04.366] invokeRestart("muffleWarning") 1584s [00:53:04.366] } 1584s [00:53:04.366] else if (inherits(cond, "condition")) { 1584s [00:53:04.366] if (!is.null(pattern)) { 1584s [00:53:04.366] computeRestarts <- base::computeRestarts 1584s [00:53:04.366] grepl <- base::grepl 1584s [00:53:04.366] restarts <- computeRestarts(cond) 1584s [00:53:04.366] for (restart in restarts) { 1584s [00:53:04.366] name <- restart$name 1584s [00:53:04.366] if (is.null(name)) 1584s [00:53:04.366] next 1584s [00:53:04.366] if (!grepl(pattern, name)) 1584s [00:53:04.366] next 1584s [00:53:04.366] invokeRestart(restart) 1584s [00:53:04.366] muffled <- TRUE 1584s [00:53:04.366] break 1584s [00:53:04.366] } 1584s [00:53:04.366] } 1584s [00:53:04.366] } 1584s [00:53:04.366] invisible(muffled) 1584s [00:53:04.366] } 1584s [00:53:04.366] muffleCondition(cond, pattern = "^muffle") 1584s [00:53:04.366] } 1584s [00:53:04.366] } 1584s [00:53:04.366] else { 1584s [00:53:04.366] if (TRUE) { 1584s [00:53:04.366] muffleCondition <- function (cond, pattern = "^muffle") 1584s [00:53:04.366] { 1584s [00:53:04.366] inherits <- base::inherits 1584s [00:53:04.366] invokeRestart <- base::invokeRestart 1584s [00:53:04.366] is.null <- base::is.null 1584s [00:53:04.366] muffled <- FALSE 1584s [00:53:04.366] if (inherits(cond, "message")) { 1584s [00:53:04.366] muffled <- grepl(pattern, "muffleMessage") 1584s [00:53:04.366] if (muffled) 1584s [00:53:04.366] invokeRestart("muffleMessage") 1584s [00:53:04.366] } 1584s [00:53:04.366] else if (inherits(cond, "warning")) { 1584s [00:53:04.366] muffled <- grepl(pattern, "muffleWarning") 1584s [00:53:04.366] if (muffled) 1584s [00:53:04.366] invokeRestart("muffleWarning") 1584s [00:53:04.366] } 1584s [00:53:04.366] else if (inherits(cond, "condition")) { 1584s [00:53:04.366] if (!is.null(pattern)) { 1584s [00:53:04.366] computeRestarts <- base::computeRestarts 1584s [00:53:04.366] grepl <- base::grepl 1584s [00:53:04.366] restarts <- computeRestarts(cond) 1584s [00:53:04.366] for (restart in restarts) { 1584s [00:53:04.366] name <- restart$name 1584s [00:53:04.366] if (is.null(name)) 1584s [00:53:04.366] next 1584s [00:53:04.366] if (!grepl(pattern, name)) 1584s [00:53:04.366] next 1584s [00:53:04.366] invokeRestart(restart) 1584s [00:53:04.366] muffled <- TRUE 1584s [00:53:04.366] break 1584s [00:53:04.366] } 1584s [00:53:04.366] } 1584s [00:53:04.366] } 1584s [00:53:04.366] invisible(muffled) 1584s [00:53:04.366] } 1584s [00:53:04.366] muffleCondition(cond, pattern = "^muffle") 1584s [00:53:04.366] } 1584s [00:53:04.366] } 1584s [00:53:04.366] } 1584s [00:53:04.366] })) 1584s [00:53:04.366] }, error = function(ex) { 1584s [00:53:04.366] base::structure(base::list(value = NULL, visible = NULL, 1584s [00:53:04.366] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1584s [00:53:04.366] ...future.rng), started = ...future.startTime, 1584s [00:53:04.366] finished = Sys.time(), session_uuid = NA_character_, 1584s [00:53:04.366] version = "1.8"), class = "FutureResult") 1584s [00:53:04.366] }, finally = { 1584s [00:53:04.366] if (!identical(...future.workdir, getwd())) 1584s [00:53:04.366] setwd(...future.workdir) 1584s [00:53:04.366] { 1584s [00:53:04.366] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1584s [00:53:04.366] ...future.oldOptions$nwarnings <- NULL 1584s [00:53:04.366] } 1584s [00:53:04.366] base::options(...future.oldOptions) 1584s [00:53:04.366] if (.Platform$OS.type == "windows") { 1584s [00:53:04.366] old_names <- names(...future.oldEnvVars) 1584s [00:53:04.366] envs <- base::Sys.getenv() 1584s [00:53:04.366] names <- names(envs) 1584s [00:53:04.366] common <- intersect(names, old_names) 1584s [00:53:04.366] added <- setdiff(names, old_names) 1584s [00:53:04.366] removed <- setdiff(old_names, names) 1584s [00:53:04.366] changed <- common[...future.oldEnvVars[common] != 1584s [00:53:04.366] envs[common]] 1584s [00:53:04.366] NAMES <- toupper(changed) 1584s [00:53:04.366] args <- list() 1584s [00:53:04.366] for (kk in seq_along(NAMES)) { 1584s [00:53:04.366] name <- changed[[kk]] 1584s [00:53:04.366] NAME <- NAMES[[kk]] 1584s [00:53:04.366] if (name != NAME && is.element(NAME, old_names)) 1584s [00:53:04.366] next 1584s [00:53:04.366] args[[name]] <- ...future.oldEnvVars[[name]] 1584s [00:53:04.366] } 1584s [00:53:04.366] NAMES <- toupper(added) 1584s [00:53:04.366] for (kk in seq_along(NAMES)) { 1584s [00:53:04.366] name <- added[[kk]] 1584s [00:53:04.366] NAME <- NAMES[[kk]] 1584s [00:53:04.366] if (name != NAME && is.element(NAME, old_names)) 1584s [00:53:04.366] next 1584s [00:53:04.366] args[[name]] <- "" 1584s [00:53:04.366] } 1584s [00:53:04.366] NAMES <- toupper(removed) 1584s [00:53:04.366] for (kk in seq_along(NAMES)) { 1584s [00:53:04.366] name <- removed[[kk]] 1584s [00:53:04.366] NAME <- NAMES[[kk]] 1584s [00:53:04.366] if (name != NAME && is.element(NAME, old_names)) 1584s [00:53:04.366] next 1584s [00:53:04.366] args[[name]] <- ...future.oldEnvVars[[name]] 1584s [00:53:04.366] } 1584s [00:53:04.366] if (length(args) > 0) 1584s [00:53:04.366] base::do.call(base::Sys.setenv, args = args) 1584s [00:53:04.366] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1584s [00:53:04.366] } 1584s [00:53:04.366] else { 1584s [00:53:04.366] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1584s [00:53:04.366] } 1584s [00:53:04.366] { 1584s [00:53:04.366] if (base::length(...future.futureOptionsAdded) > 1584s [00:53:04.366] 0L) { 1584s [00:53:04.366] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1584s [00:53:04.366] base::names(opts) <- ...future.futureOptionsAdded 1584s [00:53:04.366] base::options(opts) 1584s [00:53:04.366] } 1584s [00:53:04.366] { 1584s [00:53:04.366] { 1584s [00:53:04.366] NULL 1584s [00:53:04.366] RNGkind("Mersenne-Twister") 1584s [00:53:04.366] base::rm(list = ".Random.seed", envir = base::globalenv(), 1584s [00:53:04.366] inherits = FALSE) 1584s [00:53:04.366] } 1584s [00:53:04.366] options(future.plan = NULL) 1584s [00:53:04.366] if (is.na(NA_character_)) 1584s [00:53:04.366] Sys.unsetenv("R_FUTURE_PLAN") 1584s [00:53:04.366] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1584s [00:53:04.366] future::plan(list(function (..., workers = availableCores(), 1584s [00:53:04.366] lazy = FALSE, rscript_libs = .libPaths(), 1584s [00:53:04.366] envir = parent.frame()) 1584s [00:53:04.366] { 1584s [00:53:04.366] if (is.function(workers)) 1584s [00:53:04.366] workers <- workers() 1584s [00:53:04.366] workers <- structure(as.integer(workers), 1584s [00:53:04.366] class = class(workers)) 1584s [00:53:04.366] stop_if_not(length(workers) == 1, is.finite(workers), 1584s [00:53:04.366] workers >= 1) 1584s [00:53:04.366] if (workers == 1L && !inherits(workers, "AsIs")) { 1584s [00:53:04.366] return(sequential(..., lazy = TRUE, envir = envir)) 1584s [00:53:04.366] } 1584s [00:53:04.366] future <- MultisessionFuture(..., workers = workers, 1584s [00:53:04.366] lazy = lazy, rscript_libs = rscript_libs, 1584s [00:53:04.366] envir = envir) 1584s [00:53:04.366] if (!future$lazy) 1584s [00:53:04.366] future <- run(future) 1584s [00:53:04.366] invisible(future) 1584s [00:53:04.366] }), .cleanup = FALSE, .init = FALSE) 1584s [00:53:04.366] } 1584s [00:53:04.366] } 1584s [00:53:04.366] } 1584s [00:53:04.366] }) 1584s [00:53:04.366] if (TRUE) { 1584s [00:53:04.366] base::sink(type = "output", split = FALSE) 1584s [00:53:04.366] if (TRUE) { 1584s [00:53:04.366] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1584s [00:53:04.366] } 1584s [00:53:04.366] else { 1584s [00:53:04.366] ...future.result["stdout"] <- base::list(NULL) 1584s [00:53:04.366] } 1584s [00:53:04.366] base::close(...future.stdout) 1584s [00:53:04.366] ...future.stdout <- NULL 1584s [00:53:04.366] } 1584s [00:53:04.366] ...future.result$conditions <- ...future.conditions 1584s [00:53:04.366] ...future.result$finished <- base::Sys.time() 1584s [00:53:04.366] ...future.result 1584s [00:53:04.366] } 1584s [00:53:04.370] assign_globals() ... 1584s [00:53:04.370] List of 5 1584s [00:53:04.370] $ ...future.FUN :function (x, y = 2 * 1:5) 1584s [00:53:04.370] $ future.call.arguments : list() 1584s [00:53:04.370] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1584s [00:53:04.370] $ ...future.elements_ii :List of 4 1584s [00:53:04.370] ..$ A: num 50 1584s [00:53:04.370] ..$ B: num 60 1584s [00:53:04.370] ..$ C: num 70 1584s [00:53:04.370] ..$ D: num 80 1584s [00:53:04.370] $ ...future.seeds_ii : NULL 1584s [00:53:04.370] $ ...future.globals.maxSize: NULL 1584s [00:53:04.370] - attr(*, "where")=List of 5 1584s [00:53:04.370] ..$ ...future.FUN : 1584s [00:53:04.370] ..$ future.call.arguments : 1584s [00:53:04.370] ..$ ...future.elements_ii : 1584s [00:53:04.370] ..$ ...future.seeds_ii : 1584s [00:53:04.370] ..$ ...future.globals.maxSize: 1584s [00:53:04.370] - attr(*, "resolved")= logi FALSE 1584s [00:53:04.370] - attr(*, "total_size")= num 4728 1584s [00:53:04.370] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1584s [00:53:04.370] - attr(*, "already-done")= logi TRUE 1584s [00:53:04.377] - reassign environment for ‘...future.FUN’ 1584s [00:53:04.377] - copied ‘...future.FUN’ to environment 1584s [00:53:04.377] - copied ‘future.call.arguments’ to environment 1584s [00:53:04.377] - copied ‘...future.elements_ii’ to environment 1584s [00:53:04.377] - copied ‘...future.seeds_ii’ to environment 1584s [00:53:04.377] - copied ‘...future.globals.maxSize’ to environment 1584s [00:53:04.378] assign_globals() ... done 1584s [00:53:04.378] plan(): Setting new future strategy stack: 1584s [00:53:04.378] List of future strategies: 1584s [00:53:04.378] 1. sequential: 1584s [00:53:04.378] - args: function (..., envir = parent.frame()) 1584s [00:53:04.378] - tweaked: FALSE 1584s [00:53:04.378] - call: NULL 1584s [00:53:04.378] plan(): nbrOfWorkers() = 1 1584s [00:53:04.379] plan(): Setting new future strategy stack: 1584s [00:53:04.379] List of future strategies: 1584s [00:53:04.379] 1. multisession: 1584s [00:53:04.379] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1584s [00:53:04.379] - tweaked: FALSE 1584s [00:53:04.379] - call: plan(strategy) 1584s [00:53:04.382] plan(): nbrOfWorkers() = 1 1584s [00:53:04.383] SequentialFuture started (and completed) 1584s [00:53:04.383] - Launch lazy future ... done 1584s [00:53:04.383] run() for ‘SequentialFuture’ ... done 1584s [00:53:04.383] Created future: 1584s [00:53:04.383] SequentialFuture: 1584s [00:53:04.383] Label: ‘future_sapply-1’ 1584s [00:53:04.383] Expression: 1584s [00:53:04.383] { 1584s [00:53:04.383] do.call(function(...) { 1584s [00:53:04.383] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1584s [00:53:04.383] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1584s [00:53:04.383] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1584s [00:53:04.383] on.exit(options(oopts), add = TRUE) 1584s [00:53:04.383] } 1584s [00:53:04.383] { 1584s [00:53:04.383] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1584s [00:53:04.383] ...future.X_jj <- ...future.elements_ii[[jj]] 1584s [00:53:04.383] ...future.FUN(...future.X_jj, ...) 1584s [00:53:04.383] }) 1584s [00:53:04.383] } 1584s [00:53:04.383] }, args = future.call.arguments) 1584s [00:53:04.383] } 1584s [00:53:04.383] Lazy evaluation: FALSE 1584s [00:53:04.383] Asynchronous evaluation: FALSE 1584s [00:53:04.383] Local evaluation: TRUE 1584s [00:53:04.383] Environment: R_GlobalEnv 1584s [00:53:04.383] Capture standard output: TRUE 1584s [00:53:04.383] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1584s [00:53:04.383] Globals: 5 objects totaling 4.84 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1584s [00:53:04.383] Packages: 1584s [00:53:04.383] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1584s [00:53:04.383] Resolved: TRUE 1584s [00:53:04.383] Value: 1.34 KiB of class ‘list’ 1584s [00:53:04.383] Early signaling: FALSE 1584s [00:53:04.383] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1584s [00:53:04.383] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1584s [00:53:04.385] Chunk #1 of 1 ... DONE 1584s [00:53:04.385] Launching 1 futures (chunks) ... DONE 1584s [00:53:04.385] Resolving 1 futures (chunks) ... 1584s [00:53:04.385] resolve() on list ... 1584s [00:53:04.386] recursive: 0 1584s [00:53:04.386] length: 1 1584s [00:53:04.386] 1584s [00:53:04.386] resolved() for ‘SequentialFuture’ ... 1584s [00:53:04.386] - state: ‘finished’ 1584s [00:53:04.386] - run: TRUE 1584s [00:53:04.386] - result: ‘FutureResult’ 1584s [00:53:04.387] resolved() for ‘SequentialFuture’ ... done 1584s [00:53:04.387] Future #1 1584s [00:53:04.387] signalConditionsASAP(SequentialFuture, pos=1) ... 1584s [00:53:04.387] - nx: 1 1584s [00:53:04.387] - relay: TRUE 1584s [00:53:04.387] - stdout: TRUE 1584s [00:53:04.388] - signal: TRUE 1584s [00:53:04.388] - resignal: FALSE 1584s [00:53:04.388] - force: TRUE 1584s [00:53:04.388] - relayed: [n=1] FALSE 1584s [00:53:04.388] - queued futures: [n=1] FALSE 1584s [00:53:04.388] - until=1 1584s [00:53:04.388] - relaying element #1 1584s [00:53:04.389] - relayed: [n=1] TRUE 1584s [00:53:04.389] - queued futures: [n=1] TRUE 1584s [00:53:04.389] signalConditionsASAP(SequentialFuture, pos=1) ... done 1584s [00:53:04.389] length: 0 (resolved future 1) 1584s [00:53:04.389] Relaying remaining futures 1584s [00:53:04.389] signalConditionsASAP(NULL, pos=0) ... 1584s [00:53:04.390] - nx: 1 1584s [00:53:04.390] - relay: TRUE 1584s [00:53:04.390] - stdout: TRUE 1584s [00:53:04.390] - signal: TRUE 1584s [00:53:04.390] - resignal: FALSE 1584s [00:53:04.390] - force: TRUE 1584s [00:53:04.390] - relayed: [n=1] TRUE 1584s [00:53:04.391] - queued futures: [n=1] TRUE 1584s - flush all 1584s [00:53:04.391] - relayed: [n=1] TRUE 1584s [00:53:04.391] - queued futures: [n=1] TRUE 1584s [00:53:04.391] signalConditionsASAP(NULL, pos=0) ... done 1584s [00:53:04.391] resolve() on list ... DONE 1584s [00:53:04.391] - Number of value chunks collected: 1 1584s [00:53:04.392] Resolving 1 futures (chunks) ... DONE 1584s [00:53:04.392] Reducing values from 1 chunks ... 1584s [00:53:04.392] - Number of values collected after concatenation: 4 1584s [00:53:04.392] - Number of values expected: 4 1584s [00:53:04.392] Reducing values from 1 chunks ... DONE 1584s [00:53:04.392] future_lapply() ... DONE 1584s List of 2 1584s $ y0: num [1:15, 1:4] 100 100 100 200 200 200 300 300 300 400 ... 1584s ..- attr(*, "dimnames")=List of 2 1584s .. ..$ : NULL 1584s .. ..$ : chr [1:4] "A" "B" "C" "D" 1584s $ y1: num [1:15, 1:4] 100 100 100 200 200 200 300 300 300 400 ... 1584s ..- attr(*, "dimnames")=List of 2 1584s .. ..$ : NULL 1584s .. ..$ : chr [1:4] "A" "B" "C" "D" 1584s [00:53:04.397] future_lapply() ... 1584s [00:53:04.400] Number of chunks: 1 1584s [00:53:04.401] getGlobalsAndPackagesXApply() ... 1584s [00:53:04.401] - future.globals: TRUE 1584s [00:53:04.401] getGlobalsAndPackages() ... 1584s [00:53:04.401] Searching for globals... 1584s [00:53:04.403] - globals found: [1] ‘FUN’ 1584s [00:53:04.403] Searching for globals ... DONE 1584s [00:53:04.403] Resolving globals: FALSE 1584s [00:53:04.403] The total size of the 1 globals is 848 bytes (848 bytes) 1584s [00:53:04.408] The total size of the 1 globals exported for future expression (‘FUN()’) is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (848 bytes of class ‘function’) 1584s [00:53:04.408] - globals: [1] ‘FUN’ 1584s [00:53:04.408] 1584s [00:53:04.408] getGlobalsAndPackages() ... DONE 1584s [00:53:04.408] - globals found/used: [n=1] ‘FUN’ 1584s [00:53:04.409] - needed namespaces: [n=0] 1584s [00:53:04.409] Finding globals ... DONE 1584s [00:53:04.409] - use_args: TRUE 1584s [00:53:04.409] - Getting '...' globals ... 1584s [00:53:04.409] resolve() on list ... 1584s [00:53:04.410] recursive: 0 1584s [00:53:04.410] length: 1 1584s [00:53:04.410] elements: ‘...’ 1584s [00:53:04.410] length: 0 (resolved future 1) 1584s [00:53:04.410] resolve() on list ... DONE 1584s [00:53:04.410] - '...' content: [n=0] 1584s [00:53:04.411] List of 1 1584s [00:53:04.411] $ ...: list() 1584s [00:53:04.411] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1584s [00:53:04.411] - attr(*, "where")=List of 1 1584s [00:53:04.411] ..$ ...: 1584s [00:53:04.411] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1584s [00:53:04.411] - attr(*, "resolved")= logi TRUE 1584s [00:53:04.411] - attr(*, "total_size")= num NA 1584s [00:53:04.414] - Getting '...' globals ... DONE 1584s [00:53:04.414] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1584s [00:53:04.415] List of 2 1584s [00:53:04.415] $ ...future.FUN:function (x) 1584s [00:53:04.415] $ ... : list() 1584s [00:53:04.415] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1584s [00:53:04.415] - attr(*, "where")=List of 2 1584s [00:53:04.415] ..$ ...future.FUN: 1584s [00:53:04.415] ..$ ... : 1584s [00:53:04.415] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1584s [00:53:04.415] - attr(*, "resolved")= logi FALSE 1584s [00:53:04.415] - attr(*, "total_size")= num 848 1584s [00:53:04.418] Packages to be attached in all futures: [n=0] 1584s [00:53:04.418] getGlobalsAndPackagesXApply() ... DONE 1584s [00:53:04.418] Number of futures (= number of chunks): 1 1584s [00:53:04.418] Launching 1 futures (chunks) ... 1584s [00:53:04.419] Chunk #1 of 1 ... 1584s [00:53:04.419] - Finding globals in 'X' for chunk #1 ... 1584s [00:53:04.419] getGlobalsAndPackages() ... 1584s [00:53:04.419] Searching for globals... 1584s [00:53:04.419] 1584s [00:53:04.419] Searching for globals ... DONE 1584s [00:53:04.420] - globals: [0] 1584s [00:53:04.420] getGlobalsAndPackages() ... DONE 1584s [00:53:04.420] + additional globals found: [n=0] 1584s [00:53:04.420] + additional namespaces needed: [n=0] 1584s [00:53:04.420] - Finding globals in 'X' for chunk #1 ... DONE 1584s [00:53:04.420] - seeds: 1584s [00:53:04.420] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1584s [00:53:04.421] getGlobalsAndPackages() ... 1584s [00:53:04.421] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1584s [00:53:04.421] Resolving globals: FALSE 1584s [00:53:04.421] Tweak future expression to call with '...' arguments ... 1584s [00:53:04.421] { 1584s [00:53:04.421] do.call(function(...) { 1584s [00:53:04.421] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1584s [00:53:04.421] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1584s [00:53:04.421] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1584s [00:53:04.421] on.exit(options(oopts), add = TRUE) 1584s [00:53:04.421] } 1584s [00:53:04.421] { 1584s [00:53:04.421] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1584s [00:53:04.421] ...future.X_jj <- ...future.elements_ii[[jj]] 1584s [00:53:04.421] ...future.FUN(...future.X_jj, ...) 1584s [00:53:04.421] }) 1584s [00:53:04.421] } 1584s [00:53:04.421] }, args = future.call.arguments) 1584s [00:53:04.421] } 1584s [00:53:04.422] Tweak future expression to call with '...' arguments ... DONE 1584s [00:53:04.422] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1584s [00:53:04.422] 1584s [00:53:04.423] getGlobalsAndPackages() ... DONE 1584s [00:53:04.423] run() for ‘Future’ ... 1584s [00:53:04.423] - state: ‘created’ 1584s [00:53:04.423] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1584s [00:53:04.426] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1584s [00:53:04.427] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1584s [00:53:04.427] - Field: ‘label’ 1584s [00:53:04.427] - Field: ‘local’ 1584s [00:53:04.427] - Field: ‘owner’ 1584s [00:53:04.427] - Field: ‘envir’ 1584s [00:53:04.427] - Field: ‘packages’ 1584s [00:53:04.428] - Field: ‘gc’ 1584s [00:53:04.428] - Field: ‘conditions’ 1584s [00:53:04.428] - Field: ‘expr’ 1584s [00:53:04.428] - Field: ‘uuid’ 1584s [00:53:04.428] - Field: ‘seed’ 1584s [00:53:04.428] - Field: ‘version’ 1584s [00:53:04.429] - Field: ‘result’ 1584s [00:53:04.429] - Field: ‘asynchronous’ 1584s [00:53:04.429] - Field: ‘calls’ 1584s [00:53:04.429] - Field: ‘globals’ 1584s [00:53:04.429] - Field: ‘stdout’ 1584s [00:53:04.429] - Field: ‘earlySignal’ 1584s [00:53:04.429] - Field: ‘lazy’ 1584s [00:53:04.430] - Field: ‘state’ 1584s [00:53:04.430] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1584s [00:53:04.430] - Launch lazy future ... 1584s [00:53:04.430] Packages needed by the future expression (n = 0): 1584s [00:53:04.430] Packages needed by future strategies (n = 0): 1584s [00:53:04.431] { 1584s [00:53:04.431] { 1584s [00:53:04.431] { 1584s [00:53:04.431] ...future.startTime <- base::Sys.time() 1584s [00:53:04.431] { 1584s [00:53:04.431] { 1584s [00:53:04.431] { 1584s [00:53:04.431] base::local({ 1584s [00:53:04.431] has_future <- base::requireNamespace("future", 1584s [00:53:04.431] quietly = TRUE) 1584s [00:53:04.431] if (has_future) { 1584s [00:53:04.431] ns <- base::getNamespace("future") 1584s [00:53:04.431] version <- ns[[".package"]][["version"]] 1584s [00:53:04.431] if (is.null(version)) 1584s [00:53:04.431] version <- utils::packageVersion("future") 1584s [00:53:04.431] } 1584s [00:53:04.431] else { 1584s [00:53:04.431] version <- NULL 1584s [00:53:04.431] } 1584s [00:53:04.431] if (!has_future || version < "1.8.0") { 1584s [00:53:04.431] info <- base::c(r_version = base::gsub("R version ", 1584s [00:53:04.431] "", base::R.version$version.string), 1584s [00:53:04.431] platform = base::sprintf("%s (%s-bit)", 1584s [00:53:04.431] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1584s [00:53:04.431] os = base::paste(base::Sys.info()[base::c("sysname", 1584s [00:53:04.431] "release", "version")], collapse = " "), 1584s [00:53:04.431] hostname = base::Sys.info()[["nodename"]]) 1584s [00:53:04.431] info <- base::sprintf("%s: %s", base::names(info), 1584s [00:53:04.431] info) 1584s [00:53:04.431] info <- base::paste(info, collapse = "; ") 1584s [00:53:04.431] if (!has_future) { 1584s [00:53:04.431] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1584s [00:53:04.431] info) 1584s [00:53:04.431] } 1584s [00:53:04.431] else { 1584s [00:53:04.431] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1584s [00:53:04.431] info, version) 1584s [00:53:04.431] } 1584s [00:53:04.431] base::stop(msg) 1584s [00:53:04.431] } 1584s [00:53:04.431] }) 1584s [00:53:04.431] } 1584s [00:53:04.431] options(future.plan = NULL) 1584s [00:53:04.431] Sys.unsetenv("R_FUTURE_PLAN") 1584s [00:53:04.431] future::plan("default", .cleanup = FALSE, .init = FALSE) 1584s [00:53:04.431] } 1584s [00:53:04.431] ...future.workdir <- getwd() 1584s [00:53:04.431] } 1584s [00:53:04.431] ...future.oldOptions <- base::as.list(base::.Options) 1584s [00:53:04.431] ...future.oldEnvVars <- base::Sys.getenv() 1584s [00:53:04.431] } 1584s [00:53:04.431] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1584s [00:53:04.431] future.globals.maxSize = NULL, future.globals.method = NULL, 1584s [00:53:04.431] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1584s [00:53:04.431] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1584s [00:53:04.431] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1584s [00:53:04.431] future.stdout.windows.reencode = NULL, width = 80L) 1584s [00:53:04.431] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1584s [00:53:04.431] base::names(...future.oldOptions)) 1584s [00:53:04.431] } 1584s [00:53:04.431] if (FALSE) { 1584s [00:53:04.431] } 1584s [00:53:04.431] else { 1584s [00:53:04.431] if (TRUE) { 1584s [00:53:04.431] ...future.stdout <- base::rawConnection(base::raw(0L), 1584s [00:53:04.431] open = "w") 1584s [00:53:04.431] } 1584s [00:53:04.431] else { 1584s [00:53:04.431] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1584s [00:53:04.431] windows = "NUL", "/dev/null"), open = "w") 1584s [00:53:04.431] } 1584s [00:53:04.431] base::sink(...future.stdout, type = "output", split = FALSE) 1584s [00:53:04.431] base::on.exit(if (!base::is.null(...future.stdout)) { 1584s [00:53:04.431] base::sink(type = "output", split = FALSE) 1584s [00:53:04.431] base::close(...future.stdout) 1584s [00:53:04.431] }, add = TRUE) 1584s [00:53:04.431] } 1584s [00:53:04.431] ...future.frame <- base::sys.nframe() 1584s [00:53:04.431] ...future.conditions <- base::list() 1584s [00:53:04.431] ...future.rng <- base::globalenv()$.Random.seed 1584s [00:53:04.431] if (FALSE) { 1584s [00:53:04.431] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1584s [00:53:04.431] "...future.value", "...future.globalenv.names", ".Random.seed") 1584s [00:53:04.431] } 1584s [00:53:04.431] ...future.result <- base::tryCatch({ 1584s [00:53:04.431] base::withCallingHandlers({ 1584s [00:53:04.431] ...future.value <- base::withVisible(base::local({ 1584s [00:53:04.431] do.call(function(...) { 1584s [00:53:04.431] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1584s [00:53:04.431] if (!identical(...future.globals.maxSize.org, 1584s [00:53:04.431] ...future.globals.maxSize)) { 1584s [00:53:04.431] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1584s [00:53:04.431] on.exit(options(oopts), add = TRUE) 1584s [00:53:04.431] } 1584s [00:53:04.431] { 1584s [00:53:04.431] lapply(seq_along(...future.elements_ii), 1584s [00:53:04.431] FUN = function(jj) { 1584s [00:53:04.431] ...future.X_jj <- ...future.elements_ii[[jj]] 1584s [00:53:04.431] ...future.FUN(...future.X_jj, ...) 1584s [00:53:04.431] }) 1584s [00:53:04.431] } 1584s [00:53:04.431] }, args = future.call.arguments) 1584s [00:53:04.431] })) 1584s [00:53:04.431] future::FutureResult(value = ...future.value$value, 1584s [00:53:04.431] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1584s [00:53:04.431] ...future.rng), globalenv = if (FALSE) 1584s [00:53:04.431] list(added = base::setdiff(base::names(base::.GlobalEnv), 1584s [00:53:04.431] ...future.globalenv.names)) 1584s [00:53:04.431] else NULL, started = ...future.startTime, version = "1.8") 1584s [00:53:04.431] }, condition = base::local({ 1584s [00:53:04.431] c <- base::c 1584s [00:53:04.431] inherits <- base::inherits 1584s [00:53:04.431] invokeRestart <- base::invokeRestart 1584s [00:53:04.431] length <- base::length 1584s [00:53:04.431] list <- base::list 1584s [00:53:04.431] seq.int <- base::seq.int 1584s [00:53:04.431] signalCondition <- base::signalCondition 1584s [00:53:04.431] sys.calls <- base::sys.calls 1584s [00:53:04.431] `[[` <- base::`[[` 1584s [00:53:04.431] `+` <- base::`+` 1584s [00:53:04.431] `<<-` <- base::`<<-` 1584s [00:53:04.431] sysCalls <- function(calls = sys.calls(), from = 1L) { 1584s [00:53:04.431] calls[seq.int(from = from + 12L, to = length(calls) - 1584s [00:53:04.431] 3L)] 1584s [00:53:04.431] } 1584s [00:53:04.431] function(cond) { 1584s [00:53:04.431] is_error <- inherits(cond, "error") 1584s [00:53:04.431] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1584s [00:53:04.431] NULL) 1584s [00:53:04.431] if (is_error) { 1584s [00:53:04.431] sessionInformation <- function() { 1584s [00:53:04.431] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1584s [00:53:04.431] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1584s [00:53:04.431] search = base::search(), system = base::Sys.info()) 1584s [00:53:04.431] } 1584s [00:53:04.431] ...future.conditions[[length(...future.conditions) + 1584s [00:53:04.431] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1584s [00:53:04.431] cond$call), session = sessionInformation(), 1584s [00:53:04.431] timestamp = base::Sys.time(), signaled = 0L) 1584s [00:53:04.431] signalCondition(cond) 1584s [00:53:04.431] } 1584s [00:53:04.431] else if (!ignore && TRUE && inherits(cond, c("condition", 1584s [00:53:04.431] "immediateCondition"))) { 1584s [00:53:04.431] signal <- TRUE && inherits(cond, "immediateCondition") 1584s [00:53:04.431] ...future.conditions[[length(...future.conditions) + 1584s [00:53:04.431] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1584s [00:53:04.431] if (TRUE && !signal) { 1584s [00:53:04.431] muffleCondition <- function (cond, pattern = "^muffle") 1584s [00:53:04.431] { 1584s [00:53:04.431] inherits <- base::inherits 1584s [00:53:04.431] invokeRestart <- base::invokeRestart 1584s [00:53:04.431] is.null <- base::is.null 1584s [00:53:04.431] muffled <- FALSE 1584s [00:53:04.431] if (inherits(cond, "message")) { 1584s [00:53:04.431] muffled <- grepl(pattern, "muffleMessage") 1584s [00:53:04.431] if (muffled) 1584s [00:53:04.431] invokeRestart("muffleMessage") 1584s [00:53:04.431] } 1584s [00:53:04.431] else if (inherits(cond, "warning")) { 1584s [00:53:04.431] muffled <- grepl(pattern, "muffleWarning") 1584s [00:53:04.431] if (muffled) 1584s [00:53:04.431] invokeRestart("muffleWarning") 1584s [00:53:04.431] } 1584s [00:53:04.431] else if (inherits(cond, "condition")) { 1584s [00:53:04.431] if (!is.null(pattern)) { 1584s [00:53:04.431] computeRestarts <- base::computeRestarts 1584s [00:53:04.431] grepl <- base::grepl 1584s [00:53:04.431] restarts <- computeRestarts(cond) 1584s [00:53:04.431] for (restart in restarts) { 1584s [00:53:04.431] name <- restart$name 1584s [00:53:04.431] if (is.null(name)) 1584s [00:53:04.431] next 1584s [00:53:04.431] if (!grepl(pattern, name)) 1584s [00:53:04.431] next 1584s [00:53:04.431] invokeRestart(restart) 1584s [00:53:04.431] muffled <- TRUE 1584s [00:53:04.431] break 1584s [00:53:04.431] } 1584s [00:53:04.431] } 1584s [00:53:04.431] } 1584s [00:53:04.431] invisible(muffled) 1584s [00:53:04.431] } 1584s [00:53:04.431] muffleCondition(cond, pattern = "^muffle") 1584s [00:53:04.431] } 1584s [00:53:04.431] } 1584s [00:53:04.431] else { 1584s [00:53:04.431] if (TRUE) { 1584s [00:53:04.431] muffleCondition <- function (cond, pattern = "^muffle") 1584s [00:53:04.431] { 1584s [00:53:04.431] inherits <- base::inherits 1584s [00:53:04.431] invokeRestart <- base::invokeRestart 1584s [00:53:04.431] is.null <- base::is.null 1584s [00:53:04.431] muffled <- FALSE 1584s [00:53:04.431] if (inherits(cond, "message")) { 1584s [00:53:04.431] muffled <- grepl(pattern, "muffleMessage") 1584s [00:53:04.431] if (muffled) 1584s [00:53:04.431] invokeRestart("muffleMessage") 1584s [00:53:04.431] } 1584s [00:53:04.431] else if (inherits(cond, "warning")) { 1584s [00:53:04.431] muffled <- grepl(pattern, "muffleWarning") 1584s [00:53:04.431] if (muffled) 1584s [00:53:04.431] invokeRestart("muffleWarning") 1584s [00:53:04.431] } 1584s [00:53:04.431] else if (inherits(cond, "condition")) { 1584s [00:53:04.431] if (!is.null(pattern)) { 1584s [00:53:04.431] computeRestarts <- base::computeRestarts 1584s [00:53:04.431] grepl <- base::grepl 1584s [00:53:04.431] restarts <- computeRestarts(cond) 1584s [00:53:04.431] for (restart in restarts) { 1584s [00:53:04.431] name <- restart$name 1584s [00:53:04.431] if (is.null(name)) 1584s [00:53:04.431] next 1584s [00:53:04.431] if (!grepl(pattern, name)) 1584s [00:53:04.431] next 1584s [00:53:04.431] invokeRestart(restart) 1584s [00:53:04.431] muffled <- TRUE 1584s [00:53:04.431] break 1584s [00:53:04.431] } 1584s [00:53:04.431] } 1584s [00:53:04.431] } 1584s [00:53:04.431] invisible(muffled) 1584s [00:53:04.431] } 1584s [00:53:04.431] muffleCondition(cond, pattern = "^muffle") 1584s [00:53:04.431] } 1584s [00:53:04.431] } 1584s [00:53:04.431] } 1584s [00:53:04.431] })) 1584s [00:53:04.431] }, error = function(ex) { 1584s [00:53:04.431] base::structure(base::list(value = NULL, visible = NULL, 1584s [00:53:04.431] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1584s [00:53:04.431] ...future.rng), started = ...future.startTime, 1584s [00:53:04.431] finished = Sys.time(), session_uuid = NA_character_, 1584s [00:53:04.431] version = "1.8"), class = "FutureResult") 1584s [00:53:04.431] }, finally = { 1584s [00:53:04.431] if (!identical(...future.workdir, getwd())) 1584s [00:53:04.431] setwd(...future.workdir) 1584s [00:53:04.431] { 1584s [00:53:04.431] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1584s [00:53:04.431] ...future.oldOptions$nwarnings <- NULL 1584s [00:53:04.431] } 1584s [00:53:04.431] base::options(...future.oldOptions) 1584s [00:53:04.431] if (.Platform$OS.type == "windows") { 1584s [00:53:04.431] old_names <- names(...future.oldEnvVars) 1584s [00:53:04.431] envs <- base::Sys.getenv() 1584s [00:53:04.431] names <- names(envs) 1584s [00:53:04.431] common <- intersect(names, old_names) 1584s [00:53:04.431] added <- setdiff(names, old_names) 1584s [00:53:04.431] removed <- setdiff(old_names, names) 1584s [00:53:04.431] changed <- common[...future.oldEnvVars[common] != 1584s [00:53:04.431] envs[common]] 1584s [00:53:04.431] NAMES <- toupper(changed) 1584s [00:53:04.431] args <- list() 1584s [00:53:04.431] for (kk in seq_along(NAMES)) { 1584s [00:53:04.431] name <- changed[[kk]] 1584s [00:53:04.431] NAME <- NAMES[[kk]] 1584s [00:53:04.431] if (name != NAME && is.element(NAME, old_names)) 1584s [00:53:04.431] next 1584s [00:53:04.431] args[[name]] <- ...future.oldEnvVars[[name]] 1584s [00:53:04.431] } 1584s [00:53:04.431] NAMES <- toupper(added) 1584s [00:53:04.431] for (kk in seq_along(NAMES)) { 1584s [00:53:04.431] name <- added[[kk]] 1584s [00:53:04.431] NAME <- NAMES[[kk]] 1584s [00:53:04.431] if (name != NAME && is.element(NAME, old_names)) 1584s [00:53:04.431] next 1584s [00:53:04.431] args[[name]] <- "" 1584s [00:53:04.431] } 1584s [00:53:04.431] NAMES <- toupper(removed) 1584s [00:53:04.431] for (kk in seq_along(NAMES)) { 1584s [00:53:04.431] name <- removed[[kk]] 1584s [00:53:04.431] NAME <- NAMES[[kk]] 1584s [00:53:04.431] if (name != NAME && is.element(NAME, old_names)) 1584s [00:53:04.431] next 1584s [00:53:04.431] args[[name]] <- ...future.oldEnvVars[[name]] 1584s [00:53:04.431] } 1584s [00:53:04.431] if (length(args) > 0) 1584s [00:53:04.431] base::do.call(base::Sys.setenv, args = args) 1584s [00:53:04.431] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1584s [00:53:04.431] } 1584s [00:53:04.431] else { 1584s [00:53:04.431] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1584s [00:53:04.431] } 1584s [00:53:04.431] { 1584s [00:53:04.431] if (base::length(...future.futureOptionsAdded) > 1584s [00:53:04.431] 0L) { 1584s [00:53:04.431] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1584s [00:53:04.431] base::names(opts) <- ...future.futureOptionsAdded 1584s [00:53:04.431] base::options(opts) 1584s [00:53:04.431] } 1584s [00:53:04.431] { 1584s [00:53:04.431] { 1584s [00:53:04.431] NULL 1584s [00:53:04.431] RNGkind("Mersenne-Twister") 1584s [00:53:04.431] base::rm(list = ".Random.seed", envir = base::globalenv(), 1584s [00:53:04.431] inherits = FALSE) 1584s [00:53:04.431] } 1584s [00:53:04.431] options(future.plan = NULL) 1584s [00:53:04.431] if (is.na(NA_character_)) 1584s [00:53:04.431] Sys.unsetenv("R_FUTURE_PLAN") 1584s [00:53:04.431] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1584s [00:53:04.431] future::plan(list(function (..., workers = availableCores(), 1584s [00:53:04.431] lazy = FALSE, rscript_libs = .libPaths(), 1584s [00:53:04.431] envir = parent.frame()) 1584s [00:53:04.431] { 1584s [00:53:04.431] if (is.function(workers)) 1584s [00:53:04.431] workers <- workers() 1584s [00:53:04.431] workers <- structure(as.integer(workers), 1584s [00:53:04.431] class = class(workers)) 1584s [00:53:04.431] stop_if_not(length(workers) == 1, is.finite(workers), 1584s [00:53:04.431] workers >= 1) 1584s [00:53:04.431] if (workers == 1L && !inherits(workers, "AsIs")) { 1584s [00:53:04.431] return(sequential(..., lazy = TRUE, envir = envir)) 1584s [00:53:04.431] } 1584s [00:53:04.431] future <- MultisessionFuture(..., workers = workers, 1584s [00:53:04.431] lazy = lazy, rscript_libs = rscript_libs, 1584s [00:53:04.431] envir = envir) 1584s [00:53:04.431] if (!future$lazy) 1584s [00:53:04.431] future <- run(future) 1584s [00:53:04.431] invisible(future) 1584s [00:53:04.431] }), .cleanup = FALSE, .init = FALSE) 1584s [00:53:04.431] } 1584s [00:53:04.431] } 1584s [00:53:04.431] } 1584s [00:53:04.431] }) 1584s [00:53:04.431] if (TRUE) { 1584s [00:53:04.431] base::sink(type = "output", split = FALSE) 1584s [00:53:04.431] if (TRUE) { 1584s [00:53:04.431] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1584s [00:53:04.431] } 1584s [00:53:04.431] else { 1584s [00:53:04.431] ...future.result["stdout"] <- base::list(NULL) 1584s [00:53:04.431] } 1584s [00:53:04.431] base::close(...future.stdout) 1584s [00:53:04.431] ...future.stdout <- NULL 1584s [00:53:04.431] } 1584s [00:53:04.431] ...future.result$conditions <- ...future.conditions 1584s [00:53:04.431] ...future.result$finished <- base::Sys.time() 1584s [00:53:04.431] ...future.result 1584s [00:53:04.431] } 1584s [00:53:04.436] assign_globals() ... 1584s [00:53:04.436] List of 5 1584s [00:53:04.436] $ ...future.FUN :function (x) 1584s [00:53:04.436] $ future.call.arguments : list() 1584s [00:53:04.436] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1584s [00:53:04.436] $ ...future.elements_ii :List of 4 1584s [00:53:04.436] ..$ A: num 50 1584s [00:53:04.436] ..$ B: num 60 1584s [00:53:04.436] ..$ C: num 70 1584s [00:53:04.436] ..$ D: num 80 1584s [00:53:04.436] $ ...future.seeds_ii : NULL 1584s [00:53:04.436] $ ...future.globals.maxSize: NULL 1584s [00:53:04.436] - attr(*, "where")=List of 5 1584s [00:53:04.436] ..$ ...future.FUN : 1584s [00:53:04.436] ..$ future.call.arguments : 1584s [00:53:04.436] ..$ ...future.elements_ii : 1584s [00:53:04.436] ..$ ...future.seeds_ii : 1584s [00:53:04.436] ..$ ...future.globals.maxSize: 1584s [00:53:04.436] - attr(*, "resolved")= logi FALSE 1584s [00:53:04.436] - attr(*, "total_size")= num 848 1584s [00:53:04.436] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1584s [00:53:04.436] - attr(*, "already-done")= logi TRUE 1584s [00:53:04.443] - copied ‘...future.FUN’ to environment 1584s [00:53:04.443] - copied ‘future.call.arguments’ to environment 1584s [00:53:04.443] - copied ‘...future.elements_ii’ to environment 1584s [00:53:04.443] - copied ‘...future.seeds_ii’ to environment 1584s [00:53:04.444] - copied ‘...future.globals.maxSize’ to environment 1584s [00:53:04.444] assign_globals() ... done 1584s [00:53:04.444] plan(): Setting new future strategy stack: 1584s [00:53:04.444] List of future strategies: 1584s [00:53:04.444] 1. sequential: 1584s [00:53:04.444] - args: function (..., envir = parent.frame()) 1584s [00:53:04.444] - tweaked: FALSE 1584s [00:53:04.444] - call: NULL 1584s [00:53:04.445] plan(): nbrOfWorkers() = 1 1584s [00:53:04.445] plan(): Setting new future strategy stack: 1584s [00:53:04.445] List of future strategies: 1584s [00:53:04.445] 1. multisession: 1584s [00:53:04.445] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1584s [00:53:04.445] - tweaked: FALSE 1584s [00:53:04.445] - call: plan(strategy) 1584s [00:53:04.449] plan(): nbrOfWorkers() = 1 1584s [00:53:04.449] SequentialFuture started (and completed) 1584s [00:53:04.449] - Launch lazy future ... done 1584s [00:53:04.449] run() for ‘SequentialFuture’ ... done 1584s [00:53:04.449] Created future: 1584s [00:53:04.450] SequentialFuture: 1584s [00:53:04.450] Label: ‘future_sapply-1’ 1584s [00:53:04.450] Expression: 1584s [00:53:04.450] { 1584s [00:53:04.450] do.call(function(...) { 1584s [00:53:04.450] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1584s [00:53:04.450] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1584s [00:53:04.450] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1584s [00:53:04.450] on.exit(options(oopts), add = TRUE) 1584s [00:53:04.450] } 1584s [00:53:04.450] { 1584s [00:53:04.450] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1584s [00:53:04.450] ...future.X_jj <- ...future.elements_ii[[jj]] 1584s [00:53:04.450] ...future.FUN(...future.X_jj, ...) 1584s [00:53:04.450] }) 1584s [00:53:04.450] } 1584s [00:53:04.450] }, args = future.call.arguments) 1584s [00:53:04.450] } 1584s [00:53:04.450] Lazy evaluation: FALSE 1584s [00:53:04.450] Asynchronous evaluation: FALSE 1584s [00:53:04.450] Local evaluation: TRUE 1584s [00:53:04.450] Environment: R_GlobalEnv 1584s [00:53:04.450] Capture standard output: TRUE 1584s [00:53:04.450] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1584s [00:53:04.450] Globals: 5 objects totaling 1.05 KiB (function ‘...future.FUN’ of 848 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1584s [00:53:04.450] Packages: 1584s [00:53:04.450] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1584s [00:53:04.450] Resolved: TRUE 1584s [00:53:04.450] Value: 224 bytes of class ‘list’ 1584s [00:53:04.450] Early signaling: FALSE 1584s [00:53:04.450] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1584s [00:53:04.450] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1584s [00:53:04.451] Chunk #1 of 1 ... DONE 1584s [00:53:04.451] Launching 1 futures (chunks) ... DONE 1584s [00:53:04.452] Resolving 1 futures (chunks) ... 1584s [00:53:04.452] resolve() on list ... 1584s [00:53:04.452] recursive: 0 1584s [00:53:04.452] length: 1 1584s [00:53:04.452] 1584s [00:53:04.452] resolved() for ‘SequentialFuture’ ... 1584s [00:53:04.452] - state: ‘finished’ 1584s [00:53:04.453] - run: TRUE 1584s [00:53:04.453] - result: ‘FutureResult’ 1584s [00:53:04.453] resolved() for ‘SequentialFuture’ ... done 1584s [00:53:04.453] Future #1 1584s [00:53:04.453] signalConditionsASAP(SequentialFuture, pos=1) ... 1584s [00:53:04.454] - nx: 1 1584s [00:53:04.454] - relay: TRUE 1584s [00:53:04.454] - stdout: TRUE 1584s [00:53:04.454] - signal: TRUE 1584s [00:53:04.454] - resignal: FALSE 1584s [00:53:04.455] - force: TRUE 1584s [00:53:04.455] - relayed: [n=1] FALSE 1584s [00:53:04.455] - queued futures: [n=1] FALSE 1584s [00:53:04.455] - until=1 1584s [00:53:04.456] - relaying element #1 1584s [00:53:04.456] - relayed: [n=1] TRUE 1584s [00:53:04.456] - queued futures: [n=1] TRUE 1584s [00:53:04.456] signalConditionsASAP(SequentialFuture, pos=1) ... done 1584s [00:53:04.457] length: 0 (resolved future 1) 1584s [00:53:04.457] Relaying remaining futures 1584s [00:53:04.457] signalConditionsASAP(NULL, pos=0) ... 1584s [00:53:04.457] - nx: 1 1584s [00:53:04.457] - relay: TRUE 1584s [00:53:04.457] - stdout: TRUE 1584s [00:53:04.458] - signal: TRUE 1584s [00:53:04.458] - resignal: FALSE 1584s [00:53:04.458] - force: TRUE 1584s [00:53:04.458] - relayed: [n=1] TRUE 1584s [00:53:04.458] - queued futures: [n=1] TRUE 1584s - flush all 1584s [00:53:04.459] - relayed: [n=1] TRUE 1584s [00:53:04.459] - queued futures: [n=1] TRUE 1584s [00:53:04.459] signalConditionsASAP(NULL, pos=0) ... done 1584s [00:53:04.459] resolve() on list ... DONE 1584s [00:53:04.460] - Number of value chunks collected: 1 1584s [00:53:04.460] Resolving 1 futures (chunks) ... DONE 1584s [00:53:04.460] Reducing values from 1 chunks ... 1584s [00:53:04.460] - Number of values collected after concatenation: 4 1584s [00:53:04.460] - Number of values expected: 4 1584s [00:53:04.460] Reducing values from 1 chunks ... DONE 1584s [00:53:04.461] future_lapply() ... DONE 1584s List of 2 1584s $ y0: Named num [1:4] 50 60 70 80 1584s ..- attr(*, "names")= chr [1:4] "A" "B" "C" "D" 1584s $ y1: Named num [1:4] 50 60 70 80 1584s ..- attr(*, "names")= chr [1:4] "A" "B" "C" "D" 1584s [00:53:04.464] future_lapply() ... 1584s [00:53:04.467] Number of chunks: 1 1584s [00:53:04.467] getGlobalsAndPackagesXApply() ... 1584s [00:53:04.468] - future.globals: TRUE 1584s [00:53:04.468] getGlobalsAndPackages() ... 1584s [00:53:04.468] Searching for globals... 1584s [00:53:04.469] - globals found: [2] ‘FUN’, ‘UseMethod’ 1584s [00:53:04.469] Searching for globals ... DONE 1584s [00:53:04.469] Resolving globals: FALSE 1584s [00:53:04.470] The total size of the 1 globals is 1.22 KiB (1248 bytes) 1584s [00:53:04.470] The total size of the 1 globals exported for future expression (‘FUN()’) is 1.22 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (1.22 KiB of class ‘function’) 1584s [00:53:04.470] - globals: [1] ‘FUN’ 1584s [00:53:04.471] 1584s [00:53:04.471] getGlobalsAndPackages() ... DONE 1584s [00:53:04.471] - globals found/used: [n=1] ‘FUN’ 1584s [00:53:04.471] - needed namespaces: [n=0] 1584s [00:53:04.471] Finding globals ... DONE 1584s [00:53:04.471] - use_args: TRUE 1584s [00:53:04.471] - Getting '...' globals ... 1584s [00:53:04.472] resolve() on list ... 1584s [00:53:04.472] recursive: 0 1584s [00:53:04.472] length: 1 1584s [00:53:04.472] elements: ‘...’ 1584s [00:53:04.472] length: 0 (resolved future 1) 1584s [00:53:04.472] resolve() on list ... DONE 1584s [00:53:04.472] - '...' content: [n=0] 1584s [00:53:04.472] List of 1 1584s [00:53:04.472] $ ...: list() 1584s [00:53:04.472] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1584s [00:53:04.472] - attr(*, "where")=List of 1 1584s [00:53:04.472] ..$ ...: 1584s [00:53:04.472] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1584s [00:53:04.472] - attr(*, "resolved")= logi TRUE 1584s [00:53:04.472] - attr(*, "total_size")= num NA 1584s [00:53:04.475] - Getting '...' globals ... DONE 1584s [00:53:04.475] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1584s [00:53:04.475] List of 2 1584s [00:53:04.475] $ ...future.FUN:function (x, ...) 1584s [00:53:04.475] $ ... : list() 1584s [00:53:04.475] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1584s [00:53:04.475] - attr(*, "where")=List of 2 1584s [00:53:04.475] ..$ ...future.FUN: 1584s [00:53:04.475] ..$ ... : 1584s [00:53:04.475] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1584s [00:53:04.475] - attr(*, "resolved")= logi FALSE 1584s [00:53:04.475] - attr(*, "total_size")= num 1248 1584s [00:53:04.478] Packages to be attached in all futures: [n=0] 1584s [00:53:04.479] getGlobalsAndPackagesXApply() ... DONE 1584s [00:53:04.479] Number of futures (= number of chunks): 1 1584s [00:53:04.479] Launching 1 futures (chunks) ... 1584s [00:53:04.479] Chunk #1 of 1 ... 1584s [00:53:04.479] - Finding globals in 'X' for chunk #1 ... 1584s [00:53:04.479] getGlobalsAndPackages() ... 1584s [00:53:04.479] Searching for globals... 1584s [00:53:04.480] 1584s [00:53:04.480] Searching for globals ... DONE 1584s [00:53:04.480] - globals: [0] 1584s [00:53:04.480] getGlobalsAndPackages() ... DONE 1584s [00:53:04.480] + additional globals found: [n=0] 1584s [00:53:04.480] + additional namespaces needed: [n=0] 1584s [00:53:04.480] - Finding globals in 'X' for chunk #1 ... DONE 1584s [00:53:04.481] - seeds: 1584s [00:53:04.481] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1584s [00:53:04.481] getGlobalsAndPackages() ... 1584s [00:53:04.481] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1584s [00:53:04.481] Resolving globals: FALSE 1584s [00:53:04.481] Tweak future expression to call with '...' arguments ... 1584s [00:53:04.482] { 1584s [00:53:04.482] do.call(function(...) { 1584s [00:53:04.482] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1584s [00:53:04.482] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1584s [00:53:04.482] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1584s [00:53:04.482] on.exit(options(oopts), add = TRUE) 1584s [00:53:04.482] } 1584s [00:53:04.482] { 1584s [00:53:04.482] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1584s [00:53:04.482] ...future.X_jj <- ...future.elements_ii[[jj]] 1584s [00:53:04.482] ...future.FUN(...future.X_jj, ...) 1584s [00:53:04.482] }) 1584s [00:53:04.482] } 1584s [00:53:04.482] }, args = future.call.arguments) 1584s [00:53:04.482] } 1584s [00:53:04.482] Tweak future expression to call with '...' arguments ... DONE 1584s [00:53:04.482] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1584s [00:53:04.483] 1584s [00:53:04.483] getGlobalsAndPackages() ... DONE 1584s [00:53:04.483] run() for ‘Future’ ... 1584s [00:53:04.483] - state: ‘created’ 1584s [00:53:04.483] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1584s [00:53:04.486] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1584s [00:53:04.487] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1584s [00:53:04.487] - Field: ‘label’ 1584s [00:53:04.487] - Field: ‘local’ 1584s [00:53:04.487] - Field: ‘owner’ 1584s [00:53:04.487] - Field: ‘envir’ 1584s [00:53:04.487] - Field: ‘packages’ 1584s [00:53:04.488] - Field: ‘gc’ 1584s [00:53:04.488] - Field: ‘conditions’ 1584s [00:53:04.488] - Field: ‘expr’ 1584s [00:53:04.488] - Field: ‘uuid’ 1584s [00:53:04.488] - Field: ‘seed’ 1584s [00:53:04.488] - Field: ‘version’ 1584s [00:53:04.488] - Field: ‘result’ 1584s [00:53:04.489] - Field: ‘asynchronous’ 1584s [00:53:04.489] - Field: ‘calls’ 1584s [00:53:04.489] - Field: ‘globals’ 1584s [00:53:04.489] - Field: ‘stdout’ 1584s [00:53:04.489] - Field: ‘earlySignal’ 1584s [00:53:04.489] - Field: ‘lazy’ 1584s [00:53:04.489] - Field: ‘state’ 1584s [00:53:04.490] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1584s [00:53:04.490] - Launch lazy future ... 1584s [00:53:04.490] Packages needed by the future expression (n = 0): 1584s [00:53:04.490] Packages needed by future strategies (n = 0): 1584s [00:53:04.491] { 1584s [00:53:04.491] { 1584s [00:53:04.491] { 1584s [00:53:04.491] ...future.startTime <- base::Sys.time() 1584s [00:53:04.491] { 1584s [00:53:04.491] { 1584s [00:53:04.491] { 1584s [00:53:04.491] base::local({ 1584s [00:53:04.491] has_future <- base::requireNamespace("future", 1584s [00:53:04.491] quietly = TRUE) 1584s [00:53:04.491] if (has_future) { 1584s [00:53:04.491] ns <- base::getNamespace("future") 1584s [00:53:04.491] version <- ns[[".package"]][["version"]] 1584s [00:53:04.491] if (is.null(version)) 1584s [00:53:04.491] version <- utils::packageVersion("future") 1584s [00:53:04.491] } 1584s [00:53:04.491] else { 1584s [00:53:04.491] version <- NULL 1584s [00:53:04.491] } 1584s [00:53:04.491] if (!has_future || version < "1.8.0") { 1584s [00:53:04.491] info <- base::c(r_version = base::gsub("R version ", 1584s [00:53:04.491] "", base::R.version$version.string), 1584s [00:53:04.491] platform = base::sprintf("%s (%s-bit)", 1584s [00:53:04.491] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1584s [00:53:04.491] os = base::paste(base::Sys.info()[base::c("sysname", 1584s [00:53:04.491] "release", "version")], collapse = " "), 1584s [00:53:04.491] hostname = base::Sys.info()[["nodename"]]) 1584s [00:53:04.491] info <- base::sprintf("%s: %s", base::names(info), 1584s [00:53:04.491] info) 1584s [00:53:04.491] info <- base::paste(info, collapse = "; ") 1584s [00:53:04.491] if (!has_future) { 1584s [00:53:04.491] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1584s [00:53:04.491] info) 1584s [00:53:04.491] } 1584s [00:53:04.491] else { 1584s [00:53:04.491] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1584s [00:53:04.491] info, version) 1584s [00:53:04.491] } 1584s [00:53:04.491] base::stop(msg) 1584s [00:53:04.491] } 1584s [00:53:04.491] }) 1584s [00:53:04.491] } 1584s [00:53:04.491] options(future.plan = NULL) 1584s [00:53:04.491] Sys.unsetenv("R_FUTURE_PLAN") 1584s [00:53:04.491] future::plan("default", .cleanup = FALSE, .init = FALSE) 1584s [00:53:04.491] } 1584s [00:53:04.491] ...future.workdir <- getwd() 1584s [00:53:04.491] } 1584s [00:53:04.491] ...future.oldOptions <- base::as.list(base::.Options) 1584s [00:53:04.491] ...future.oldEnvVars <- base::Sys.getenv() 1584s [00:53:04.491] } 1584s [00:53:04.491] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1584s [00:53:04.491] future.globals.maxSize = NULL, future.globals.method = NULL, 1584s [00:53:04.491] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1584s [00:53:04.491] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1584s [00:53:04.491] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1584s [00:53:04.491] future.stdout.windows.reencode = NULL, width = 80L) 1584s [00:53:04.491] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1584s [00:53:04.491] base::names(...future.oldOptions)) 1584s [00:53:04.491] } 1584s [00:53:04.491] if (FALSE) { 1584s [00:53:04.491] } 1584s [00:53:04.491] else { 1584s [00:53:04.491] if (TRUE) { 1584s [00:53:04.491] ...future.stdout <- base::rawConnection(base::raw(0L), 1584s [00:53:04.491] open = "w") 1584s [00:53:04.491] } 1584s [00:53:04.491] else { 1584s [00:53:04.491] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1584s [00:53:04.491] windows = "NUL", "/dev/null"), open = "w") 1584s [00:53:04.491] } 1584s [00:53:04.491] base::sink(...future.stdout, type = "output", split = FALSE) 1584s [00:53:04.491] base::on.exit(if (!base::is.null(...future.stdout)) { 1584s [00:53:04.491] base::sink(type = "output", split = FALSE) 1584s [00:53:04.491] base::close(...future.stdout) 1584s [00:53:04.491] }, add = TRUE) 1584s [00:53:04.491] } 1584s [00:53:04.491] ...future.frame <- base::sys.nframe() 1584s [00:53:04.491] ...future.conditions <- base::list() 1584s [00:53:04.491] ...future.rng <- base::globalenv()$.Random.seed 1584s [00:53:04.491] if (FALSE) { 1584s [00:53:04.491] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1584s [00:53:04.491] "...future.value", "...future.globalenv.names", ".Random.seed") 1584s [00:53:04.491] } 1584s [00:53:04.491] ...future.result <- base::tryCatch({ 1584s [00:53:04.491] base::withCallingHandlers({ 1584s [00:53:04.491] ...future.value <- base::withVisible(base::local({ 1584s [00:53:04.491] do.call(function(...) { 1584s [00:53:04.491] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1584s [00:53:04.491] if (!identical(...future.globals.maxSize.org, 1584s [00:53:04.491] ...future.globals.maxSize)) { 1584s [00:53:04.491] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1584s [00:53:04.491] on.exit(options(oopts), add = TRUE) 1584s [00:53:04.491] } 1584s [00:53:04.491] { 1584s [00:53:04.491] lapply(seq_along(...future.elements_ii), 1584s [00:53:04.491] FUN = function(jj) { 1584s [00:53:04.491] ...future.X_jj <- ...future.elements_ii[[jj]] 1584s [00:53:04.491] ...future.FUN(...future.X_jj, ...) 1584s [00:53:04.491] }) 1584s [00:53:04.491] } 1584s [00:53:04.491] }, args = future.call.arguments) 1584s [00:53:04.491] })) 1584s [00:53:04.491] future::FutureResult(value = ...future.value$value, 1584s [00:53:04.491] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1584s [00:53:04.491] ...future.rng), globalenv = if (FALSE) 1584s [00:53:04.491] list(added = base::setdiff(base::names(base::.GlobalEnv), 1584s [00:53:04.491] ...future.globalenv.names)) 1584s [00:53:04.491] else NULL, started = ...future.startTime, version = "1.8") 1584s [00:53:04.491] }, condition = base::local({ 1584s [00:53:04.491] c <- base::c 1584s [00:53:04.491] inherits <- base::inherits 1584s [00:53:04.491] invokeRestart <- base::invokeRestart 1584s [00:53:04.491] length <- base::length 1584s [00:53:04.491] list <- base::list 1584s [00:53:04.491] seq.int <- base::seq.int 1584s [00:53:04.491] signalCondition <- base::signalCondition 1584s [00:53:04.491] sys.calls <- base::sys.calls 1584s [00:53:04.491] `[[` <- base::`[[` 1584s [00:53:04.491] `+` <- base::`+` 1584s [00:53:04.491] `<<-` <- base::`<<-` 1584s [00:53:04.491] sysCalls <- function(calls = sys.calls(), from = 1L) { 1584s [00:53:04.491] calls[seq.int(from = from + 12L, to = length(calls) - 1584s [00:53:04.491] 3L)] 1584s [00:53:04.491] } 1584s [00:53:04.491] function(cond) { 1584s [00:53:04.491] is_error <- inherits(cond, "error") 1584s [00:53:04.491] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1584s [00:53:04.491] NULL) 1584s [00:53:04.491] if (is_error) { 1584s [00:53:04.491] sessionInformation <- function() { 1584s [00:53:04.491] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1584s [00:53:04.491] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1584s [00:53:04.491] search = base::search(), system = base::Sys.info()) 1584s [00:53:04.491] } 1584s [00:53:04.491] ...future.conditions[[length(...future.conditions) + 1584s [00:53:04.491] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1584s [00:53:04.491] cond$call), session = sessionInformation(), 1584s [00:53:04.491] timestamp = base::Sys.time(), signaled = 0L) 1584s [00:53:04.491] signalCondition(cond) 1584s [00:53:04.491] } 1584s [00:53:04.491] else if (!ignore && TRUE && inherits(cond, c("condition", 1584s [00:53:04.491] "immediateCondition"))) { 1584s [00:53:04.491] signal <- TRUE && inherits(cond, "immediateCondition") 1584s [00:53:04.491] ...future.conditions[[length(...future.conditions) + 1584s [00:53:04.491] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1584s [00:53:04.491] if (TRUE && !signal) { 1584s [00:53:04.491] muffleCondition <- function (cond, pattern = "^muffle") 1584s [00:53:04.491] { 1584s [00:53:04.491] inherits <- base::inherits 1584s [00:53:04.491] invokeRestart <- base::invokeRestart 1584s [00:53:04.491] is.null <- base::is.null 1584s [00:53:04.491] muffled <- FALSE 1584s [00:53:04.491] if (inherits(cond, "message")) { 1584s [00:53:04.491] muffled <- grepl(pattern, "muffleMessage") 1584s [00:53:04.491] if (muffled) 1584s [00:53:04.491] invokeRestart("muffleMessage") 1584s [00:53:04.491] } 1584s [00:53:04.491] else if (inherits(cond, "warning")) { 1584s [00:53:04.491] muffled <- grepl(pattern, "muffleWarning") 1584s [00:53:04.491] if (muffled) 1584s [00:53:04.491] invokeRestart("muffleWarning") 1584s [00:53:04.491] } 1584s [00:53:04.491] else if (inherits(cond, "condition")) { 1584s [00:53:04.491] if (!is.null(pattern)) { 1584s [00:53:04.491] computeRestarts <- base::computeRestarts 1584s [00:53:04.491] grepl <- base::grepl 1584s [00:53:04.491] restarts <- computeRestarts(cond) 1584s [00:53:04.491] for (restart in restarts) { 1584s [00:53:04.491] name <- restart$name 1584s [00:53:04.491] if (is.null(name)) 1584s [00:53:04.491] next 1584s [00:53:04.491] if (!grepl(pattern, name)) 1584s [00:53:04.491] next 1584s [00:53:04.491] invokeRestart(restart) 1584s [00:53:04.491] muffled <- TRUE 1584s [00:53:04.491] break 1584s [00:53:04.491] } 1584s [00:53:04.491] } 1584s [00:53:04.491] } 1584s [00:53:04.491] invisible(muffled) 1584s [00:53:04.491] } 1584s [00:53:04.491] muffleCondition(cond, pattern = "^muffle") 1584s [00:53:04.491] } 1584s [00:53:04.491] } 1584s [00:53:04.491] else { 1584s [00:53:04.491] if (TRUE) { 1584s [00:53:04.491] muffleCondition <- function (cond, pattern = "^muffle") 1584s [00:53:04.491] { 1584s [00:53:04.491] inherits <- base::inherits 1584s [00:53:04.491] invokeRestart <- base::invokeRestart 1584s [00:53:04.491] is.null <- base::is.null 1584s [00:53:04.491] muffled <- FALSE 1584s [00:53:04.491] if (inherits(cond, "message")) { 1584s [00:53:04.491] muffled <- grepl(pattern, "muffleMessage") 1584s [00:53:04.491] if (muffled) 1584s [00:53:04.491] invokeRestart("muffleMessage") 1584s [00:53:04.491] } 1584s [00:53:04.491] else if (inherits(cond, "warning")) { 1584s [00:53:04.491] muffled <- grepl(pattern, "muffleWarning") 1584s [00:53:04.491] if (muffled) 1584s [00:53:04.491] invokeRestart("muffleWarning") 1584s [00:53:04.491] } 1584s [00:53:04.491] else if (inherits(cond, "condition")) { 1584s [00:53:04.491] if (!is.null(pattern)) { 1584s [00:53:04.491] computeRestarts <- base::computeRestarts 1584s [00:53:04.491] grepl <- base::grepl 1584s [00:53:04.491] restarts <- computeRestarts(cond) 1584s [00:53:04.491] for (restart in restarts) { 1584s [00:53:04.491] name <- restart$name 1584s [00:53:04.491] if (is.null(name)) 1584s [00:53:04.491] next 1584s [00:53:04.491] if (!grepl(pattern, name)) 1584s [00:53:04.491] next 1584s [00:53:04.491] invokeRestart(restart) 1584s [00:53:04.491] muffled <- TRUE 1584s [00:53:04.491] break 1584s [00:53:04.491] } 1584s [00:53:04.491] } 1584s [00:53:04.491] } 1584s [00:53:04.491] invisible(muffled) 1584s [00:53:04.491] } 1584s [00:53:04.491] muffleCondition(cond, pattern = "^muffle") 1584s [00:53:04.491] } 1584s [00:53:04.491] } 1584s [00:53:04.491] } 1584s [00:53:04.491] })) 1584s [00:53:04.491] }, error = function(ex) { 1584s [00:53:04.491] base::structure(base::list(value = NULL, visible = NULL, 1584s [00:53:04.491] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1584s [00:53:04.491] ...future.rng), started = ...future.startTime, 1584s [00:53:04.491] finished = Sys.time(), session_uuid = NA_character_, 1584s [00:53:04.491] version = "1.8"), class = "FutureResult") 1584s [00:53:04.491] }, finally = { 1584s [00:53:04.491] if (!identical(...future.workdir, getwd())) 1584s [00:53:04.491] setwd(...future.workdir) 1584s [00:53:04.491] { 1584s [00:53:04.491] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1584s [00:53:04.491] ...future.oldOptions$nwarnings <- NULL 1584s [00:53:04.491] } 1584s [00:53:04.491] base::options(...future.oldOptions) 1584s [00:53:04.491] if (.Platform$OS.type == "windows") { 1584s [00:53:04.491] old_names <- names(...future.oldEnvVars) 1584s [00:53:04.491] envs <- base::Sys.getenv() 1584s [00:53:04.491] names <- names(envs) 1584s [00:53:04.491] common <- intersect(names, old_names) 1584s [00:53:04.491] added <- setdiff(names, old_names) 1584s [00:53:04.491] removed <- setdiff(old_names, names) 1584s [00:53:04.491] changed <- common[...future.oldEnvVars[common] != 1584s [00:53:04.491] envs[common]] 1584s [00:53:04.491] NAMES <- toupper(changed) 1584s [00:53:04.491] args <- list() 1584s [00:53:04.491] for (kk in seq_along(NAMES)) { 1584s [00:53:04.491] name <- changed[[kk]] 1584s [00:53:04.491] NAME <- NAMES[[kk]] 1584s [00:53:04.491] if (name != NAME && is.element(NAME, old_names)) 1584s [00:53:04.491] next 1584s [00:53:04.491] args[[name]] <- ...future.oldEnvVars[[name]] 1584s [00:53:04.491] } 1584s [00:53:04.491] NAMES <- toupper(added) 1584s [00:53:04.491] for (kk in seq_along(NAMES)) { 1584s [00:53:04.491] name <- added[[kk]] 1584s [00:53:04.491] NAME <- NAMES[[kk]] 1584s [00:53:04.491] if (name != NAME && is.element(NAME, old_names)) 1584s [00:53:04.491] next 1584s [00:53:04.491] args[[name]] <- "" 1584s [00:53:04.491] } 1584s [00:53:04.491] NAMES <- toupper(removed) 1584s [00:53:04.491] for (kk in seq_along(NAMES)) { 1584s [00:53:04.491] name <- removed[[kk]] 1584s [00:53:04.491] NAME <- NAMES[[kk]] 1584s [00:53:04.491] if (name != NAME && is.element(NAME, old_names)) 1584s [00:53:04.491] next 1584s [00:53:04.491] args[[name]] <- ...future.oldEnvVars[[name]] 1584s [00:53:04.491] } 1584s [00:53:04.491] if (length(args) > 0) 1584s [00:53:04.491] base::do.call(base::Sys.setenv, args = args) 1584s [00:53:04.491] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1584s [00:53:04.491] } 1584s [00:53:04.491] else { 1584s [00:53:04.491] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1584s [00:53:04.491] } 1584s [00:53:04.491] { 1584s [00:53:04.491] if (base::length(...future.futureOptionsAdded) > 1584s [00:53:04.491] 0L) { 1584s [00:53:04.491] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1584s [00:53:04.491] base::names(opts) <- ...future.futureOptionsAdded 1584s [00:53:04.491] base::options(opts) 1584s [00:53:04.491] } 1584s [00:53:04.491] { 1584s [00:53:04.491] { 1584s [00:53:04.491] NULL 1584s [00:53:04.491] RNGkind("Mersenne-Twister") 1584s [00:53:04.491] base::rm(list = ".Random.seed", envir = base::globalenv(), 1584s [00:53:04.491] inherits = FALSE) 1584s [00:53:04.491] } 1584s [00:53:04.491] options(future.plan = NULL) 1584s [00:53:04.491] if (is.na(NA_character_)) 1584s [00:53:04.491] Sys.unsetenv("R_FUTURE_PLAN") 1584s [00:53:04.491] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1584s [00:53:04.491] future::plan(list(function (..., workers = availableCores(), 1584s [00:53:04.491] lazy = FALSE, rscript_libs = .libPaths(), 1584s [00:53:04.491] envir = parent.frame()) 1584s [00:53:04.491] { 1584s [00:53:04.491] if (is.function(workers)) 1584s [00:53:04.491] workers <- workers() 1584s [00:53:04.491] workers <- structure(as.integer(workers), 1584s [00:53:04.491] class = class(workers)) 1584s [00:53:04.491] stop_if_not(length(workers) == 1, is.finite(workers), 1584s [00:53:04.491] workers >= 1) 1584s [00:53:04.491] if (workers == 1L && !inherits(workers, "AsIs")) { 1584s [00:53:04.491] return(sequential(..., lazy = TRUE, envir = envir)) 1584s [00:53:04.491] } 1584s [00:53:04.491] future <- MultisessionFuture(..., workers = workers, 1584s [00:53:04.491] lazy = lazy, rscript_libs = rscript_libs, 1584s [00:53:04.491] envir = envir) 1584s [00:53:04.491] if (!future$lazy) 1584s [00:53:04.491] future <- run(future) 1584s [00:53:04.491] invisible(future) 1584s [00:53:04.491] }), .cleanup = FALSE, .init = FALSE) 1584s [00:53:04.491] } 1584s [00:53:04.491] } 1584s [00:53:04.491] } 1584s [00:53:04.491] }) 1584s [00:53:04.491] if (TRUE) { 1584s [00:53:04.491] base::sink(type = "output", split = FALSE) 1584s [00:53:04.491] if (TRUE) { 1584s [00:53:04.491] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1584s [00:53:04.491] } 1584s [00:53:04.491] else { 1584s [00:53:04.491] ...future.result["stdout"] <- base::list(NULL) 1584s [00:53:04.491] } 1584s [00:53:04.491] base::close(...future.stdout) 1584s [00:53:04.491] ...future.stdout <- NULL 1584s [00:53:04.491] } 1584s [00:53:04.491] ...future.result$conditions <- ...future.conditions 1584s [00:53:04.491] ...future.result$finished <- base::Sys.time() 1584s [00:53:04.491] ...future.result 1584s [00:53:04.491] } 1584s [00:53:04.497] assign_globals() ... 1584s [00:53:04.497] List of 5 1584s [00:53:04.497] $ ...future.FUN :function (x, ...) 1584s [00:53:04.497] $ future.call.arguments : list() 1584s [00:53:04.497] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1584s [00:53:04.497] $ ...future.elements_ii :List of 4 1584s [00:53:04.497] ..$ A: num 50 1584s [00:53:04.497] ..$ B: num 60 1584s [00:53:04.497] ..$ C: num 70 1584s [00:53:04.497] ..$ D: num 80 1584s [00:53:04.497] $ ...future.seeds_ii : NULL 1584s [00:53:04.497] $ ...future.globals.maxSize: NULL 1584s [00:53:04.497] - attr(*, "where")=List of 5 1584s [00:53:04.497] ..$ ...future.FUN : 1584s [00:53:04.497] ..$ future.call.arguments : 1584s [00:53:04.497] ..$ ...future.elements_ii : 1584s [00:53:04.497] ..$ ...future.seeds_ii : 1584s [00:53:04.497] ..$ ...future.globals.maxSize: 1584s [00:53:04.497] - attr(*, "resolved")= logi FALSE 1584s [00:53:04.497] - attr(*, "total_size")= num 1248 1584s [00:53:04.497] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1584s [00:53:04.497] - attr(*, "already-done")= logi TRUE 1584s [00:53:04.510] - copied ‘...future.FUN’ to environment 1584s [00:53:04.510] - copied ‘future.call.arguments’ to environment 1584s [00:53:04.510] - copied ‘...future.elements_ii’ to environment 1584s [00:53:04.510] - copied ‘...future.seeds_ii’ to environment 1584s [00:53:04.511] - copied ‘...future.globals.maxSize’ to environment 1584s [00:53:04.511] assign_globals() ... done 1584s [00:53:04.511] plan(): Setting new future strategy stack: 1584s [00:53:04.511] List of future strategies: 1584s [00:53:04.511] 1. sequential: 1584s [00:53:04.511] - args: function (..., envir = parent.frame()) 1584s [00:53:04.511] - tweaked: FALSE 1584s [00:53:04.511] - call: NULL 1584s [00:53:04.512] plan(): nbrOfWorkers() = 1 1584s [00:53:04.513] plan(): Setting new future strategy stack: 1584s [00:53:04.513] List of future strategies: 1584s [00:53:04.513] 1. multisession: 1584s [00:53:04.513] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1584s [00:53:04.513] - tweaked: FALSE 1584s [00:53:04.513] - call: plan(strategy) 1584s [00:53:04.517] plan(): nbrOfWorkers() = 1 1584s [00:53:04.518] SequentialFuture started (and completed) 1584s [00:53:04.518] - Launch lazy future ... done 1584s [00:53:04.518] run() for ‘SequentialFuture’ ... done 1584s [00:53:04.518] Created future: 1584s [00:53:04.519] SequentialFuture: 1584s [00:53:04.519] Label: ‘future_sapply-1’ 1584s [00:53:04.519] Expression: 1584s [00:53:04.519] { 1584s [00:53:04.519] do.call(function(...) { 1584s [00:53:04.519] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1584s [00:53:04.519] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1584s [00:53:04.519] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1584s [00:53:04.519] on.exit(options(oopts), add = TRUE) 1584s [00:53:04.519] } 1584s [00:53:04.519] { 1584s [00:53:04.519] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1584s [00:53:04.519] ...future.X_jj <- ...future.elements_ii[[jj]] 1584s [00:53:04.519] ...future.FUN(...future.X_jj, ...) 1584s [00:53:04.519] }) 1584s [00:53:04.519] } 1584s [00:53:04.519] }, args = future.call.arguments) 1584s [00:53:04.519] } 1584s [00:53:04.519] Lazy evaluation: FALSE 1584s [00:53:04.519] Asynchronous evaluation: FALSE 1584s [00:53:04.519] Local evaluation: TRUE 1584s [00:53:04.519] Environment: R_GlobalEnv 1584s [00:53:04.519] Capture standard output: TRUE 1584s [00:53:04.519] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1584s [00:53:04.519] Globals: 5 objects totaling 1.44 KiB (function ‘...future.FUN’ of 1.22 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1584s [00:53:04.519] Packages: 1584s [00:53:04.519] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1584s [00:53:04.519] Resolved: TRUE 1584s [00:53:04.519] Value: 896 bytes of class ‘list’ 1584s [00:53:04.519] Early signaling: FALSE 1584s [00:53:04.519] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1584s [00:53:04.519] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1584s [00:53:04.521] Chunk #1 of 1 ... DONE 1584s [00:53:04.521] Launching 1 futures (chunks) ... DONE 1584s [00:53:04.521] Resolving 1 futures (chunks) ... 1584s [00:53:04.522] resolve() on list ... 1584s [00:53:04.522] recursive: 0 1584s [00:53:04.522] length: 1 1584s [00:53:04.522] 1584s [00:53:04.522] resolved() for ‘SequentialFuture’ ... 1584s [00:53:04.523] - state: ‘finished’ 1584s [00:53:04.523] - run: TRUE 1584s [00:53:04.523] - result: ‘FutureResult’ 1584s [00:53:04.523] resolved() for ‘SequentialFuture’ ... done 1584s [00:53:04.523] Future #1 1584s [00:53:04.524] signalConditionsASAP(SequentialFuture, pos=1) ... 1584s [00:53:04.524] - nx: 1 1584s [00:53:04.524] - relay: TRUE 1584s [00:53:04.524] - stdout: TRUE 1584s [00:53:04.524] - signal: TRUE 1584s [00:53:04.524] - resignal: FALSE 1584s [00:53:04.525] - force: TRUE 1584s [00:53:04.525] - relayed: [n=1] FALSE 1584s [00:53:04.525] - queued futures: [n=1] FALSE 1584s [00:53:04.525] - until=1 1584s [00:53:04.525] - relaying element #1 1584s [00:53:04.526] - relayed: [n=1] TRUE 1584s [00:53:04.526] - queued futures: [n=1] TRUE 1584s [00:53:04.526] signalConditionsASAP(SequentialFuture, pos=1) ... done 1584s [00:53:04.526] length: 0 (resolved future 1) 1584s [00:53:04.527] Relaying remaining futures 1584s [00:53:04.527] signalConditionsASAP(NULL, pos=0) ... 1584s [00:53:04.527] - nx: 1 1584s [00:53:04.527] - relay: TRUE 1584s [00:53:04.527] - stdout: TRUE 1584s [00:53:04.527] - signal: TRUE 1584s [00:53:04.528] - resignal: FALSE 1584s [00:53:04.528] - force: TRUE 1584s [00:53:04.528] - relayed: [n=1] TRUE 1584s [00:53:04.528] - queued futures: [n=1] TRUE 1584s - flush all 1584s [00:53:04.529] - relayed: [n=1] TRUE 1584s [00:53:04.529] - queued futures: [n=1] TRUE 1584s [00:53:04.529] signalConditionsASAP(NULL, pos=0) ... done 1584s [00:53:04.529] resolve() on list ... DONE 1584s [00:53:04.529] - Number of value chunks collected: 1 1584s [00:53:04.530] Resolving 1 futures (chunks) ... DONE 1584s [00:53:04.530] Reducing values from 1 chunks ... 1584s [00:53:04.530] - Number of values collected after concatenation: 4 1584s [00:53:04.530] - Number of values expected: 4 1584s [00:53:04.530] Reducing values from 1 chunks ... DONE 1584s [00:53:04.530] future_lapply() ... DONE 1584s List of 2 1584s $ y0: Named num [1:4] 50 60 70 80 1584s ..- attr(*, "names")= chr [1:4] "A" "B" "C" "D" 1584s $ y1: Named num [1:4] 50 60 70 80 1584s ..- attr(*, "names")= chr [1:4] "A" "B" "C" "D" 1584s [00:53:04.534] future_lapply() ... 1584s [00:53:04.538] Number of chunks: 1 1584s [00:53:04.538] getGlobalsAndPackagesXApply() ... 1584s [00:53:04.538] - future.globals: TRUE 1584s [00:53:04.538] getGlobalsAndPackages() ... 1584s [00:53:04.538] Searching for globals... 1584s [00:53:04.540] - globals found: [5] ‘FUN’, ‘*’, ‘:’, ‘outer’, ‘rep’ 1584s [00:53:04.540] Searching for globals ... DONE 1584s [00:53:04.540] Resolving globals: FALSE 1584s [00:53:04.541] The total size of the 1 globals is 4.62 KiB (4728 bytes) 1584s [00:53:04.541] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.62 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.62 KiB of class ‘function’) 1584s [00:53:04.541] - globals: [1] ‘FUN’ 1584s [00:53:04.542] 1584s [00:53:04.542] getGlobalsAndPackages() ... DONE 1584s [00:53:04.542] - globals found/used: [n=1] ‘FUN’ 1584s [00:53:04.542] - needed namespaces: [n=0] 1584s [00:53:04.542] Finding globals ... DONE 1584s [00:53:04.542] - use_args: TRUE 1584s [00:53:04.542] - Getting '...' globals ... 1584s [00:53:04.543] resolve() on list ... 1584s [00:53:04.543] recursive: 0 1584s [00:53:04.543] length: 1 1584s [00:53:04.543] elements: ‘...’ 1584s [00:53:04.543] length: 0 (resolved future 1) 1584s [00:53:04.544] resolve() on list ... DONE 1584s [00:53:04.544] - '...' content: [n=0] 1584s [00:53:04.544] List of 1 1584s [00:53:04.544] $ ...: list() 1584s [00:53:04.544] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1584s [00:53:04.544] - attr(*, "where")=List of 1 1584s [00:53:04.544] ..$ ...: 1584s [00:53:04.544] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1584s [00:53:04.544] - attr(*, "resolved")= logi TRUE 1584s [00:53:04.544] - attr(*, "total_size")= num NA 1584s [00:53:04.547] - Getting '...' globals ... DONE 1584s [00:53:04.547] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1584s [00:53:04.547] List of 2 1584s [00:53:04.547] $ ...future.FUN:function (x, y = 2 * 1:5) 1584s [00:53:04.547] $ ... : list() 1584s [00:53:04.547] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1584s [00:53:04.547] - attr(*, "where")=List of 2 1584s [00:53:04.547] ..$ ...future.FUN: 1584s [00:53:04.547] ..$ ... : 1584s [00:53:04.547] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1584s [00:53:04.547] - attr(*, "resolved")= logi FALSE 1584s [00:53:04.547] - attr(*, "total_size")= num 4728 1584s [00:53:04.550] Packages to be attached in all futures: [n=0] 1584s [00:53:04.551] getGlobalsAndPackagesXApply() ... DONE 1584s [00:53:04.551] Number of futures (= number of chunks): 1 1584s [00:53:04.551] Launching 1 futures (chunks) ... 1584s [00:53:04.551] Chunk #1 of 1 ... 1584s [00:53:04.551] - Finding globals in 'X' for chunk #1 ... 1584s [00:53:04.551] getGlobalsAndPackages() ... 1584s [00:53:04.552] Searching for globals... 1584s [00:53:04.552] 1584s [00:53:04.552] Searching for globals ... DONE 1584s [00:53:04.552] - globals: [0] 1584s [00:53:04.552] getGlobalsAndPackages() ... DONE 1584s [00:53:04.552] + additional globals found: [n=0] 1584s [00:53:04.553] + additional namespaces needed: [n=0] 1584s [00:53:04.553] - Finding globals in 'X' for chunk #1 ... DONE 1584s [00:53:04.553] - seeds: 1584s [00:53:04.553] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1584s [00:53:04.553] getGlobalsAndPackages() ... 1584s [00:53:04.554] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1584s [00:53:04.554] Resolving globals: FALSE 1584s [00:53:04.554] Tweak future expression to call with '...' arguments ... 1584s [00:53:04.554] { 1584s [00:53:04.554] do.call(function(...) { 1584s [00:53:04.554] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1584s [00:53:04.554] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1584s [00:53:04.554] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1584s [00:53:04.554] on.exit(options(oopts), add = TRUE) 1584s [00:53:04.554] } 1584s [00:53:04.554] { 1584s [00:53:04.554] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1584s [00:53:04.554] ...future.X_jj <- ...future.elements_ii[[jj]] 1584s [00:53:04.554] ...future.FUN(...future.X_jj, ...) 1584s [00:53:04.554] }) 1584s [00:53:04.554] } 1584s [00:53:04.554] }, args = future.call.arguments) 1584s [00:53:04.554] } 1584s [00:53:04.555] Tweak future expression to call with '...' arguments ... DONE 1584s [00:53:04.555] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1584s [00:53:04.555] 1584s [00:53:04.555] getGlobalsAndPackages() ... DONE 1584s [00:53:04.556] run() for ‘Future’ ... 1584s [00:53:04.556] - state: ‘created’ 1584s [00:53:04.556] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1584s [00:53:04.559] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1584s [00:53:04.560] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1584s [00:53:04.560] - Field: ‘label’ 1584s [00:53:04.560] - Field: ‘local’ 1584s [00:53:04.560] - Field: ‘owner’ 1584s [00:53:04.560] - Field: ‘envir’ 1584s [00:53:04.560] - Field: ‘packages’ 1584s [00:53:04.560] - Field: ‘gc’ 1584s [00:53:04.561] - Field: ‘conditions’ 1584s [00:53:04.561] - Field: ‘expr’ 1584s [00:53:04.561] - Field: ‘uuid’ 1584s [00:53:04.561] - Field: ‘seed’ 1584s [00:53:04.561] - Field: ‘version’ 1584s [00:53:04.561] - Field: ‘result’ 1584s [00:53:04.561] - Field: ‘asynchronous’ 1584s [00:53:04.562] - Field: ‘calls’ 1584s [00:53:04.562] - Field: ‘globals’ 1584s [00:53:04.562] - Field: ‘stdout’ 1584s [00:53:04.562] - Field: ‘earlySignal’ 1584s [00:53:04.562] - Field: ‘lazy’ 1584s [00:53:04.562] - Field: ‘state’ 1584s [00:53:04.562] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1584s [00:53:04.563] - Launch lazy future ... 1584s [00:53:04.563] Packages needed by the future expression (n = 0): 1584s [00:53:04.563] Packages needed by future strategies (n = 0): 1584s [00:53:04.564] { 1584s [00:53:04.564] { 1584s [00:53:04.564] { 1584s [00:53:04.564] ...future.startTime <- base::Sys.time() 1584s [00:53:04.564] { 1584s [00:53:04.564] { 1584s [00:53:04.564] { 1584s [00:53:04.564] base::local({ 1584s [00:53:04.564] has_future <- base::requireNamespace("future", 1584s [00:53:04.564] quietly = TRUE) 1584s [00:53:04.564] if (has_future) { 1584s [00:53:04.564] ns <- base::getNamespace("future") 1584s [00:53:04.564] version <- ns[[".package"]][["version"]] 1584s [00:53:04.564] if (is.null(version)) 1584s [00:53:04.564] version <- utils::packageVersion("future") 1584s [00:53:04.564] } 1584s [00:53:04.564] else { 1584s [00:53:04.564] version <- NULL 1584s [00:53:04.564] } 1584s [00:53:04.564] if (!has_future || version < "1.8.0") { 1584s [00:53:04.564] info <- base::c(r_version = base::gsub("R version ", 1584s [00:53:04.564] "", base::R.version$version.string), 1584s [00:53:04.564] platform = base::sprintf("%s (%s-bit)", 1584s [00:53:04.564] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1584s [00:53:04.564] os = base::paste(base::Sys.info()[base::c("sysname", 1584s [00:53:04.564] "release", "version")], collapse = " "), 1584s [00:53:04.564] hostname = base::Sys.info()[["nodename"]]) 1584s [00:53:04.564] info <- base::sprintf("%s: %s", base::names(info), 1584s [00:53:04.564] info) 1584s [00:53:04.564] info <- base::paste(info, collapse = "; ") 1584s [00:53:04.564] if (!has_future) { 1584s [00:53:04.564] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1584s [00:53:04.564] info) 1584s [00:53:04.564] } 1584s [00:53:04.564] else { 1584s [00:53:04.564] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1584s [00:53:04.564] info, version) 1584s [00:53:04.564] } 1584s [00:53:04.564] base::stop(msg) 1584s [00:53:04.564] } 1584s [00:53:04.564] }) 1584s [00:53:04.564] } 1584s [00:53:04.564] options(future.plan = NULL) 1584s [00:53:04.564] Sys.unsetenv("R_FUTURE_PLAN") 1584s [00:53:04.564] future::plan("default", .cleanup = FALSE, .init = FALSE) 1584s [00:53:04.564] } 1584s [00:53:04.564] ...future.workdir <- getwd() 1584s [00:53:04.564] } 1584s [00:53:04.564] ...future.oldOptions <- base::as.list(base::.Options) 1584s [00:53:04.564] ...future.oldEnvVars <- base::Sys.getenv() 1584s [00:53:04.564] } 1584s [00:53:04.564] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1584s [00:53:04.564] future.globals.maxSize = NULL, future.globals.method = NULL, 1584s [00:53:04.564] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1584s [00:53:04.564] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1584s [00:53:04.564] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1584s [00:53:04.564] future.stdout.windows.reencode = NULL, width = 80L) 1584s [00:53:04.564] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1584s [00:53:04.564] base::names(...future.oldOptions)) 1584s [00:53:04.564] } 1584s [00:53:04.564] if (FALSE) { 1584s [00:53:04.564] } 1584s [00:53:04.564] else { 1584s [00:53:04.564] if (TRUE) { 1584s [00:53:04.564] ...future.stdout <- base::rawConnection(base::raw(0L), 1584s [00:53:04.564] open = "w") 1584s [00:53:04.564] } 1584s [00:53:04.564] else { 1584s [00:53:04.564] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1584s [00:53:04.564] windows = "NUL", "/dev/null"), open = "w") 1584s [00:53:04.564] } 1584s [00:53:04.564] base::sink(...future.stdout, type = "output", split = FALSE) 1584s [00:53:04.564] base::on.exit(if (!base::is.null(...future.stdout)) { 1584s [00:53:04.564] base::sink(type = "output", split = FALSE) 1584s [00:53:04.564] base::close(...future.stdout) 1584s [00:53:04.564] }, add = TRUE) 1584s [00:53:04.564] } 1584s [00:53:04.564] ...future.frame <- base::sys.nframe() 1584s [00:53:04.564] ...future.conditions <- base::list() 1584s [00:53:04.564] ...future.rng <- base::globalenv()$.Random.seed 1584s [00:53:04.564] if (FALSE) { 1584s [00:53:04.564] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1584s [00:53:04.564] "...future.value", "...future.globalenv.names", ".Random.seed") 1584s [00:53:04.564] } 1584s [00:53:04.564] ...future.result <- base::tryCatch({ 1584s [00:53:04.564] base::withCallingHandlers({ 1584s [00:53:04.564] ...future.value <- base::withVisible(base::local({ 1584s [00:53:04.564] do.call(function(...) { 1584s [00:53:04.564] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1584s [00:53:04.564] if (!identical(...future.globals.maxSize.org, 1584s [00:53:04.564] ...future.globals.maxSize)) { 1584s [00:53:04.564] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1584s [00:53:04.564] on.exit(options(oopts), add = TRUE) 1584s [00:53:04.564] } 1584s [00:53:04.564] { 1584s [00:53:04.564] lapply(seq_along(...future.elements_ii), 1584s [00:53:04.564] FUN = function(jj) { 1584s [00:53:04.564] ...future.X_jj <- ...future.elements_ii[[jj]] 1584s [00:53:04.564] ...future.FUN(...future.X_jj, ...) 1584s [00:53:04.564] }) 1584s [00:53:04.564] } 1584s [00:53:04.564] }, args = future.call.arguments) 1584s [00:53:04.564] })) 1584s [00:53:04.564] future::FutureResult(value = ...future.value$value, 1584s [00:53:04.564] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1584s [00:53:04.564] ...future.rng), globalenv = if (FALSE) 1584s [00:53:04.564] list(added = base::setdiff(base::names(base::.GlobalEnv), 1584s [00:53:04.564] ...future.globalenv.names)) 1584s [00:53:04.564] else NULL, started = ...future.startTime, version = "1.8") 1584s [00:53:04.564] }, condition = base::local({ 1584s [00:53:04.564] c <- base::c 1584s [00:53:04.564] inherits <- base::inherits 1584s [00:53:04.564] invokeRestart <- base::invokeRestart 1584s [00:53:04.564] length <- base::length 1584s [00:53:04.564] list <- base::list 1584s [00:53:04.564] seq.int <- base::seq.int 1584s [00:53:04.564] signalCondition <- base::signalCondition 1584s [00:53:04.564] sys.calls <- base::sys.calls 1584s [00:53:04.564] `[[` <- base::`[[` 1584s [00:53:04.564] `+` <- base::`+` 1584s [00:53:04.564] `<<-` <- base::`<<-` 1584s [00:53:04.564] sysCalls <- function(calls = sys.calls(), from = 1L) { 1584s [00:53:04.564] calls[seq.int(from = from + 12L, to = length(calls) - 1584s [00:53:04.564] 3L)] 1584s [00:53:04.564] } 1584s [00:53:04.564] function(cond) { 1584s [00:53:04.564] is_error <- inherits(cond, "error") 1584s [00:53:04.564] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1584s [00:53:04.564] NULL) 1584s [00:53:04.564] if (is_error) { 1584s [00:53:04.564] sessionInformation <- function() { 1584s [00:53:04.564] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1584s [00:53:04.564] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1584s [00:53:04.564] search = base::search(), system = base::Sys.info()) 1584s [00:53:04.564] } 1584s [00:53:04.564] ...future.conditions[[length(...future.conditions) + 1584s [00:53:04.564] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1584s [00:53:04.564] cond$call), session = sessionInformation(), 1584s [00:53:04.564] timestamp = base::Sys.time(), signaled = 0L) 1584s [00:53:04.564] signalCondition(cond) 1584s [00:53:04.564] } 1584s [00:53:04.564] else if (!ignore && TRUE && inherits(cond, c("condition", 1584s [00:53:04.564] "immediateCondition"))) { 1584s [00:53:04.564] signal <- TRUE && inherits(cond, "immediateCondition") 1584s [00:53:04.564] ...future.conditions[[length(...future.conditions) + 1584s [00:53:04.564] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1584s [00:53:04.564] if (TRUE && !signal) { 1584s [00:53:04.564] muffleCondition <- function (cond, pattern = "^muffle") 1584s [00:53:04.564] { 1584s [00:53:04.564] inherits <- base::inherits 1584s [00:53:04.564] invokeRestart <- base::invokeRestart 1584s [00:53:04.564] is.null <- base::is.null 1584s [00:53:04.564] muffled <- FALSE 1584s [00:53:04.564] if (inherits(cond, "message")) { 1584s [00:53:04.564] muffled <- grepl(pattern, "muffleMessage") 1584s [00:53:04.564] if (muffled) 1584s [00:53:04.564] invokeRestart("muffleMessage") 1584s [00:53:04.564] } 1584s [00:53:04.564] else if (inherits(cond, "warning")) { 1584s [00:53:04.564] muffled <- grepl(pattern, "muffleWarning") 1584s [00:53:04.564] if (muffled) 1584s [00:53:04.564] invokeRestart("muffleWarning") 1584s [00:53:04.564] } 1584s [00:53:04.564] else if (inherits(cond, "condition")) { 1584s [00:53:04.564] if (!is.null(pattern)) { 1584s [00:53:04.564] computeRestarts <- base::computeRestarts 1584s [00:53:04.564] grepl <- base::grepl 1584s [00:53:04.564] restarts <- computeRestarts(cond) 1584s [00:53:04.564] for (restart in restarts) { 1584s [00:53:04.564] name <- restart$name 1584s [00:53:04.564] if (is.null(name)) 1584s [00:53:04.564] next 1584s [00:53:04.564] if (!grepl(pattern, name)) 1584s [00:53:04.564] next 1584s [00:53:04.564] invokeRestart(restart) 1584s [00:53:04.564] muffled <- TRUE 1584s [00:53:04.564] break 1584s [00:53:04.564] } 1584s [00:53:04.564] } 1584s [00:53:04.564] } 1584s [00:53:04.564] invisible(muffled) 1584s [00:53:04.564] } 1584s [00:53:04.564] muffleCondition(cond, pattern = "^muffle") 1584s [00:53:04.564] } 1584s [00:53:04.564] } 1584s [00:53:04.564] else { 1584s [00:53:04.564] if (TRUE) { 1584s [00:53:04.564] muffleCondition <- function (cond, pattern = "^muffle") 1584s [00:53:04.564] { 1584s [00:53:04.564] inherits <- base::inherits 1584s [00:53:04.564] invokeRestart <- base::invokeRestart 1584s [00:53:04.564] is.null <- base::is.null 1584s [00:53:04.564] muffled <- FALSE 1584s [00:53:04.564] if (inherits(cond, "message")) { 1584s [00:53:04.564] muffled <- grepl(pattern, "muffleMessage") 1584s [00:53:04.564] if (muffled) 1584s [00:53:04.564] invokeRestart("muffleMessage") 1584s [00:53:04.564] } 1584s [00:53:04.564] else if (inherits(cond, "warning")) { 1584s [00:53:04.564] muffled <- grepl(pattern, "muffleWarning") 1584s [00:53:04.564] if (muffled) 1584s [00:53:04.564] invokeRestart("muffleWarning") 1584s [00:53:04.564] } 1584s [00:53:04.564] else if (inherits(cond, "condition")) { 1584s [00:53:04.564] if (!is.null(pattern)) { 1584s [00:53:04.564] computeRestarts <- base::computeRestarts 1584s [00:53:04.564] grepl <- base::grepl 1584s [00:53:04.564] restarts <- computeRestarts(cond) 1584s [00:53:04.564] for (restart in restarts) { 1584s [00:53:04.564] name <- restart$name 1584s [00:53:04.564] if (is.null(name)) 1584s [00:53:04.564] next 1584s [00:53:04.564] if (!grepl(pattern, name)) 1584s [00:53:04.564] next 1584s [00:53:04.564] invokeRestart(restart) 1584s [00:53:04.564] muffled <- TRUE 1584s [00:53:04.564] break 1584s [00:53:04.564] } 1584s [00:53:04.564] } 1584s [00:53:04.564] } 1584s [00:53:04.564] invisible(muffled) 1584s [00:53:04.564] } 1584s [00:53:04.564] muffleCondition(cond, pattern = "^muffle") 1584s [00:53:04.564] } 1584s [00:53:04.564] } 1584s [00:53:04.564] } 1584s [00:53:04.564] })) 1584s [00:53:04.564] }, error = function(ex) { 1584s [00:53:04.564] base::structure(base::list(value = NULL, visible = NULL, 1584s [00:53:04.564] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1584s [00:53:04.564] ...future.rng), started = ...future.startTime, 1584s [00:53:04.564] finished = Sys.time(), session_uuid = NA_character_, 1584s [00:53:04.564] version = "1.8"), class = "FutureResult") 1584s [00:53:04.564] }, finally = { 1584s [00:53:04.564] if (!identical(...future.workdir, getwd())) 1584s [00:53:04.564] setwd(...future.workdir) 1584s [00:53:04.564] { 1584s [00:53:04.564] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1584s [00:53:04.564] ...future.oldOptions$nwarnings <- NULL 1584s [00:53:04.564] } 1584s [00:53:04.564] base::options(...future.oldOptions) 1584s [00:53:04.564] if (.Platform$OS.type == "windows") { 1584s [00:53:04.564] old_names <- names(...future.oldEnvVars) 1584s [00:53:04.564] envs <- base::Sys.getenv() 1584s [00:53:04.564] names <- names(envs) 1584s [00:53:04.564] common <- intersect(names, old_names) 1584s [00:53:04.564] added <- setdiff(names, old_names) 1584s [00:53:04.564] removed <- setdiff(old_names, names) 1584s [00:53:04.564] changed <- common[...future.oldEnvVars[common] != 1584s [00:53:04.564] envs[common]] 1584s [00:53:04.564] NAMES <- toupper(changed) 1584s [00:53:04.564] args <- list() 1584s [00:53:04.564] for (kk in seq_along(NAMES)) { 1584s [00:53:04.564] name <- changed[[kk]] 1584s [00:53:04.564] NAME <- NAMES[[kk]] 1584s [00:53:04.564] if (name != NAME && is.element(NAME, old_names)) 1584s [00:53:04.564] next 1584s [00:53:04.564] args[[name]] <- ...future.oldEnvVars[[name]] 1584s [00:53:04.564] } 1584s [00:53:04.564] NAMES <- toupper(added) 1584s [00:53:04.564] for (kk in seq_along(NAMES)) { 1584s [00:53:04.564] name <- added[[kk]] 1584s [00:53:04.564] NAME <- NAMES[[kk]] 1584s [00:53:04.564] if (name != NAME && is.element(NAME, old_names)) 1584s [00:53:04.564] next 1584s [00:53:04.564] args[[name]] <- "" 1584s [00:53:04.564] } 1584s [00:53:04.564] NAMES <- toupper(removed) 1584s [00:53:04.564] for (kk in seq_along(NAMES)) { 1584s [00:53:04.564] name <- removed[[kk]] 1584s [00:53:04.564] NAME <- NAMES[[kk]] 1584s [00:53:04.564] if (name != NAME && is.element(NAME, old_names)) 1584s [00:53:04.564] next 1584s [00:53:04.564] args[[name]] <- ...future.oldEnvVars[[name]] 1584s [00:53:04.564] } 1584s [00:53:04.564] if (length(args) > 0) 1584s [00:53:04.564] base::do.call(base::Sys.setenv, args = args) 1584s [00:53:04.564] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1584s [00:53:04.564] } 1584s [00:53:04.564] else { 1584s [00:53:04.564] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1584s [00:53:04.564] } 1584s [00:53:04.564] { 1584s [00:53:04.564] if (base::length(...future.futureOptionsAdded) > 1584s [00:53:04.564] 0L) { 1584s [00:53:04.564] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1584s [00:53:04.564] base::names(opts) <- ...future.futureOptionsAdded 1584s [00:53:04.564] base::options(opts) 1584s [00:53:04.564] } 1584s [00:53:04.564] { 1584s [00:53:04.564] { 1584s [00:53:04.564] NULL 1584s [00:53:04.564] RNGkind("Mersenne-Twister") 1584s [00:53:04.564] base::rm(list = ".Random.seed", envir = base::globalenv(), 1584s [00:53:04.564] inherits = FALSE) 1584s [00:53:04.564] } 1584s [00:53:04.564] options(future.plan = NULL) 1584s [00:53:04.564] if (is.na(NA_character_)) 1584s [00:53:04.564] Sys.unsetenv("R_FUTURE_PLAN") 1584s [00:53:04.564] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1584s [00:53:04.564] future::plan(list(function (..., workers = availableCores(), 1584s [00:53:04.564] lazy = FALSE, rscript_libs = .libPaths(), 1584s [00:53:04.564] envir = parent.frame()) 1584s [00:53:04.564] { 1584s [00:53:04.564] if (is.function(workers)) 1584s [00:53:04.564] workers <- workers() 1584s [00:53:04.564] workers <- structure(as.integer(workers), 1584s [00:53:04.564] class = class(workers)) 1584s [00:53:04.564] stop_if_not(length(workers) == 1, is.finite(workers), 1584s [00:53:04.564] workers >= 1) 1584s [00:53:04.564] if (workers == 1L && !inherits(workers, "AsIs")) { 1584s [00:53:04.564] return(sequential(..., lazy = TRUE, envir = envir)) 1584s [00:53:04.564] } 1584s [00:53:04.564] future <- MultisessionFuture(..., workers = workers, 1584s [00:53:04.564] lazy = lazy, rscript_libs = rscript_libs, 1584s [00:53:04.564] envir = envir) 1584s [00:53:04.564] if (!future$lazy) 1584s [00:53:04.564] future <- run(future) 1584s [00:53:04.564] invisible(future) 1584s [00:53:04.564] }), .cleanup = FALSE, .init = FALSE) 1584s [00:53:04.564] } 1584s [00:53:04.564] } 1584s [00:53:04.564] } 1584s [00:53:04.564] }) 1584s [00:53:04.564] if (TRUE) { 1584s [00:53:04.564] base::sink(type = "output", split = FALSE) 1584s [00:53:04.564] if (TRUE) { 1584s [00:53:04.564] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1584s [00:53:04.564] } 1584s [00:53:04.564] else { 1584s [00:53:04.564] ...future.result["stdout"] <- base::list(NULL) 1584s [00:53:04.564] } 1584s [00:53:04.564] base::close(...future.stdout) 1584s [00:53:04.564] ...future.stdout <- NULL 1584s [00:53:04.564] } 1584s [00:53:04.564] ...future.result$conditions <- ...future.conditions 1584s [00:53:04.564] ...future.result$finished <- base::Sys.time() 1584s [00:53:04.564] ...future.result 1584s [00:53:04.564] } 1584s [00:53:04.567] assign_globals() ... 1584s [00:53:04.567] List of 5 1584s [00:53:04.567] $ ...future.FUN :function (x, y = 2 * 1:5) 1584s [00:53:04.567] $ future.call.arguments : list() 1584s [00:53:04.567] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1584s [00:53:04.567] $ ...future.elements_ii :List of 4 1584s [00:53:04.567] ..$ A: num 50 1584s [00:53:04.567] ..$ B: num 60 1584s [00:53:04.567] ..$ C: num 70 1584s [00:53:04.567] ..$ D: num 80 1584s [00:53:04.567] $ ...future.seeds_ii : NULL 1584s [00:53:04.567] $ ...future.globals.maxSize: NULL 1584s [00:53:04.567] - attr(*, "where")=List of 5 1584s [00:53:04.567] ..$ ...future.FUN : 1584s [00:53:04.567] ..$ future.call.arguments : 1584s [00:53:04.567] ..$ ...future.elements_ii : 1584s [00:53:04.567] ..$ ...future.seeds_ii : 1584s [00:53:04.567] ..$ ...future.globals.maxSize: 1584s [00:53:04.567] - attr(*, "resolved")= logi FALSE 1584s [00:53:04.567] - attr(*, "total_size")= num 4728 1584s [00:53:04.567] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1584s [00:53:04.567] - attr(*, "already-done")= logi TRUE 1584s [00:53:04.573] - reassign environment for ‘...future.FUN’ 1584s [00:53:04.574] - copied ‘...future.FUN’ to environment 1584s [00:53:04.574] - copied ‘future.call.arguments’ to environment 1584s [00:53:04.574] - copied ‘...future.elements_ii’ to environment 1584s [00:53:04.574] - copied ‘...future.seeds_ii’ to environment 1584s [00:53:04.574] - copied ‘...future.globals.maxSize’ to environment 1584s [00:53:04.574] assign_globals() ... done 1584s [00:53:04.575] plan(): Setting new future strategy stack: 1584s [00:53:04.575] List of future strategies: 1584s [00:53:04.575] 1. sequential: 1584s [00:53:04.575] - args: function (..., envir = parent.frame()) 1584s [00:53:04.575] - tweaked: FALSE 1584s [00:53:04.575] - call: NULL 1584s [00:53:04.575] plan(): nbrOfWorkers() = 1 1584s [00:53:04.576] plan(): Setting new future strategy stack: 1584s [00:53:04.576] List of future strategies: 1584s [00:53:04.576] 1. multisession: 1584s [00:53:04.576] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1584s [00:53:04.576] - tweaked: FALSE 1584s [00:53:04.576] - call: plan(strategy) 1584s [00:53:04.579] plan(): nbrOfWorkers() = 1 1584s [00:53:04.580] SequentialFuture started (and completed) 1584s [00:53:04.580] - Launch lazy future ... done 1584s [00:53:04.580] run() for ‘SequentialFuture’ ... done 1584s [00:53:04.580] Created future: 1584s [00:53:04.581] SequentialFuture: 1584s [00:53:04.581] Label: ‘future_sapply-1’ 1584s [00:53:04.581] Expression: 1584s [00:53:04.581] { 1584s [00:53:04.581] do.call(function(...) { 1584s [00:53:04.581] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1584s [00:53:04.581] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1584s [00:53:04.581] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1584s [00:53:04.581] on.exit(options(oopts), add = TRUE) 1584s [00:53:04.581] } 1584s [00:53:04.581] { 1584s [00:53:04.581] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1584s [00:53:04.581] ...future.X_jj <- ...future.elements_ii[[jj]] 1584s [00:53:04.581] ...future.FUN(...future.X_jj, ...) 1584s [00:53:04.581] }) 1584s [00:53:04.581] } 1584s [00:53:04.581] }, args = future.call.arguments) 1584s [00:53:04.581] } 1584s [00:53:04.581] Lazy evaluation: FALSE 1584s [00:53:04.581] Asynchronous evaluation: FALSE 1584s [00:53:04.581] Local evaluation: TRUE 1584s [00:53:04.581] Environment: R_GlobalEnv 1584s [00:53:04.581] Capture standard output: TRUE 1584s [00:53:04.581] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1584s [00:53:04.581] Globals: 5 objects totaling 4.84 KiB (function ‘...future.FUN’ of 4.62 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1584s [00:53:04.581] Packages: 1584s [00:53:04.581] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1584s [00:53:04.581] Resolved: TRUE 1584s [00:53:04.581] Value: 1.34 KiB of class ‘list’ 1584s [00:53:04.581] Early signaling: FALSE 1584s [00:53:04.581] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1584s [00:53:04.581] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1584s [00:53:04.582] Chunk #1 of 1 ... DONE 1584s [00:53:04.583] Launching 1 futures (chunks) ... DONE 1584s [00:53:04.583] Resolving 1 futures (chunks) ... 1584s [00:53:04.583] resolve() on list ... 1584s [00:53:04.583] recursive: 0 1584s [00:53:04.583] length: 1 1584s [00:53:04.583] 1584s [00:53:04.584] resolved() for ‘SequentialFuture’ ... 1584s [00:53:04.584] - state: ‘finished’ 1584s [00:53:04.584] - run: TRUE 1584s [00:53:04.584] - result: ‘FutureResult’ 1584s [00:53:04.584] resolved() for ‘SequentialFuture’ ... done 1584s [00:53:04.584] Future #1 1584s [00:53:04.584] signalConditionsASAP(SequentialFuture, pos=1) ... 1584s [00:53:04.585] - nx: 1 1584s [00:53:04.585] - relay: TRUE 1584s [00:53:04.585] - stdout: TRUE 1584s [00:53:04.585] - signal: TRUE 1584s [00:53:04.585] - resignal: FALSE 1584s [00:53:04.585] - force: TRUE 1584s [00:53:04.585] - relayed: [n=1] FALSE 1584s [00:53:04.585] - queued futures: [n=1] FALSE 1584s [00:53:04.586] - until=1 1584s [00:53:04.586] - relaying element #1 1584s [00:53:04.586] - relayed: [n=1] TRUE 1584s [00:53:04.586] - queued futures: [n=1] TRUE 1584s [00:53:04.586] signalConditionsASAP(SequentialFuture, pos=1) ... done 1584s [00:53:04.586] length: 0 (resolved future 1) 1584s [00:53:04.587] Relaying remaining futures 1584s [00:53:04.587] signalConditionsASAP(NULL, pos=0) ... 1584s [00:53:04.587] - nx: 1 1584s [00:53:04.587] - relay: TRUE 1584s [00:53:04.587] - stdout: TRUE 1584s [00:53:04.587] - signal: TRUE 1584s [00:53:04.587] - resignal: FALSE 1584s [00:53:04.587] - force: TRUE 1584s [00:53:04.588] - relayed: [n=1] TRUE 1584s [00:53:04.588] - queued futures: [n=1] TRUE 1584s - flush all 1584s [00:53:04.588] - relayed: [n=1] TRUE 1584s [00:53:04.588] - queued futures: [n=1] TRUE 1584s [00:53:04.588] signalConditionsASAP(NULL, pos=0) ... done 1584s [00:53:04.588] resolve() on list ... DONE 1584s [00:53:04.589] - Number of value chunks collected: 1 1584s [00:53:04.589] Resolving 1 futures (chunks) ... DONE 1584s [00:53:04.589] Reducing values from 1 chunks ... 1584s [00:53:04.589] - Number of values collected after concatenation: 4 1584s [00:53:04.589] - Number of values expected: 4 1584s [00:53:04.589] Reducing values from 1 chunks ... DONE 1584s [00:53:04.589] future_lapply() ... DONE 1584s List of 2 1584s $ y0: num [1:3, 1:5, 1:4] 100 100 100 200 200 200 300 300 300 400 ... 1584s ..- attr(*, "dimnames")=List of 3 1584s .. ..$ : NULL 1584s .. ..$ : NULL 1584s .. ..$ : chr [1:4] "A" "B" "C" "D" 1584s $ y1: num [1:3, 1:5, 1:4] 100 100 100 200 200 200 300 300 300 400 ... 1584s ..- attr(*, "dimnames")=List of 3 1584s .. ..$ : NULL 1584s .. ..$ : NULL 1584s .. ..$ : chr [1:4] "A" "B" "C" "D" 1584s [00:53:04.594] future_lapply() ... 1584s [00:53:04.597] Number of chunks: 1 1584s [00:53:04.597] getGlobalsAndPackagesXApply() ... 1584s [00:53:04.598] - future.globals: TRUE 1584s [00:53:04.598] getGlobalsAndPackages() ... 1584s [00:53:04.598] Searching for globals... 1584s [00:53:04.598] - globals found: [1] ‘FUN’ 1584s [00:53:04.599] Searching for globals ... DONE 1584s [00:53:04.599] Resolving globals: FALSE 1584s [00:53:04.599] The total size of the 1 globals is 56 bytes (56 bytes) 1584s [00:53:04.599] The total size of the 1 globals exported for future expression (‘FUN()’) is 56 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (56 bytes of class ‘function’) 1584s [00:53:04.600] - globals: [1] ‘FUN’ 1584s [00:53:04.600] 1584s [00:53:04.600] getGlobalsAndPackages() ... DONE 1584s [00:53:04.600] - globals found/used: [n=1] ‘FUN’ 1584s [00:53:04.600] - needed namespaces: [n=0] 1584s [00:53:04.600] Finding globals ... DONE 1584s [00:53:04.601] - use_args: TRUE 1584s [00:53:04.601] - Getting '...' globals ... 1584s [00:53:04.601] resolve() on list ... 1584s [00:53:04.604] recursive: 0 1584s [00:53:04.604] length: 1 1584s [00:53:04.605] elements: ‘...’ 1584s [00:53:04.605] length: 0 (resolved future 1) 1584s [00:53:04.605] resolve() on list ... DONE 1584s [00:53:04.605] - '...' content: [n=0] 1584s [00:53:04.605] List of 1 1584s [00:53:04.605] $ ...: list() 1584s [00:53:04.605] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1584s [00:53:04.605] - attr(*, "where")=List of 1 1584s [00:53:04.605] ..$ ...: 1584s [00:53:04.605] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1584s [00:53:04.605] - attr(*, "resolved")= logi TRUE 1584s [00:53:04.605] - attr(*, "total_size")= num NA 1584s [00:53:04.608] - Getting '...' globals ... DONE 1584s [00:53:04.609] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1584s [00:53:04.609] List of 2 1584s [00:53:04.609] $ ...future.FUN:function (x) 1584s [00:53:04.609] $ ... : list() 1584s [00:53:04.609] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1584s [00:53:04.609] - attr(*, "where")=List of 2 1584s [00:53:04.609] ..$ ...future.FUN: 1584s [00:53:04.609] ..$ ... : 1584s [00:53:04.609] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1584s [00:53:04.609] - attr(*, "resolved")= logi FALSE 1584s [00:53:04.609] - attr(*, "total_size")= num 56 1584s [00:53:04.612] Packages to be attached in all futures: [n=0] 1584s [00:53:04.612] getGlobalsAndPackagesXApply() ... DONE 1584s [00:53:04.612] Number of futures (= number of chunks): 1 1584s [00:53:04.612] Launching 1 futures (chunks) ... 1584s [00:53:04.613] Chunk #1 of 1 ... 1584s [00:53:04.613] - Finding globals in 'X' for chunk #1 ... 1584s [00:53:04.613] getGlobalsAndPackages() ... 1584s [00:53:04.613] Searching for globals... 1584s [00:53:04.613] 1584s [00:53:04.613] Searching for globals ... DONE 1584s [00:53:04.614] - globals: [0] 1584s [00:53:04.614] getGlobalsAndPackages() ... DONE 1584s [00:53:04.614] + additional globals found: [n=0] 1584s [00:53:04.614] + additional namespaces needed: [n=0] 1584s [00:53:04.614] - Finding globals in 'X' for chunk #1 ... DONE 1584s [00:53:04.614] - seeds: 1584s [00:53:04.614] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1584s [00:53:04.614] getGlobalsAndPackages() ... 1584s [00:53:04.614] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1584s [00:53:04.615] Resolving globals: FALSE 1584s [00:53:04.615] Tweak future expression to call with '...' arguments ... 1584s [00:53:04.615] { 1584s [00:53:04.615] do.call(function(...) { 1584s [00:53:04.615] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1584s [00:53:04.615] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1584s [00:53:04.615] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1584s [00:53:04.615] on.exit(options(oopts), add = TRUE) 1584s [00:53:04.615] } 1584s [00:53:04.615] { 1584s [00:53:04.615] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1584s [00:53:04.615] ...future.X_jj <- ...future.elements_ii[[jj]] 1584s [00:53:04.615] ...future.FUN(...future.X_jj, ...) 1584s [00:53:04.615] }) 1584s [00:53:04.615] } 1584s [00:53:04.615] }, args = future.call.arguments) 1584s [00:53:04.615] } 1584s [00:53:04.615] Tweak future expression to call with '...' arguments ... DONE 1584s [00:53:04.615] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1584s [00:53:04.616] 1584s [00:53:04.616] getGlobalsAndPackages() ... DONE 1584s [00:53:04.616] run() for ‘Future’ ... 1584s [00:53:04.616] - state: ‘created’ 1584s [00:53:04.616] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1584s [00:53:04.619] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1584s [00:53:04.619] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1584s [00:53:04.620] - Field: ‘label’ 1584s [00:53:04.620] - Field: ‘local’ 1584s [00:53:04.620] - Field: ‘owner’ 1584s [00:53:04.620] - Field: ‘envir’ 1584s [00:53:04.620] - Field: ‘packages’ 1584s [00:53:04.620] - Field: ‘gc’ 1584s [00:53:04.621] - Field: ‘conditions’ 1584s [00:53:04.621] - Field: ‘expr’ 1584s [00:53:04.621] - Field: ‘uuid’ 1584s [00:53:04.621] - Field: ‘seed’ 1584s [00:53:04.621] - Field: ‘version’ 1584s [00:53:04.621] - Field: ‘result’ 1584s [00:53:04.622] - Field: ‘asynchronous’ 1584s [00:53:04.622] - Field: ‘calls’ 1584s [00:53:04.622] - Field: ‘globals’ 1584s [00:53:04.622] - Field: ‘stdout’ 1584s [00:53:04.622] - Field: ‘earlySignal’ 1584s [00:53:04.622] - Field: ‘lazy’ 1584s [00:53:04.622] - Field: ‘state’ 1584s [00:53:04.623] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1584s [00:53:04.623] - Launch lazy future ... 1584s [00:53:04.623] Packages needed by the future expression (n = 0): 1584s [00:53:04.623] Packages needed by future strategies (n = 0): 1584s [00:53:04.624] { 1584s [00:53:04.624] { 1584s [00:53:04.624] { 1584s [00:53:04.624] ...future.startTime <- base::Sys.time() 1584s [00:53:04.624] { 1584s [00:53:04.624] { 1584s [00:53:04.624] { 1584s [00:53:04.624] base::local({ 1584s [00:53:04.624] has_future <- base::requireNamespace("future", 1584s [00:53:04.624] quietly = TRUE) 1584s [00:53:04.624] if (has_future) { 1584s [00:53:04.624] ns <- base::getNamespace("future") 1584s [00:53:04.624] version <- ns[[".package"]][["version"]] 1584s [00:53:04.624] if (is.null(version)) 1584s [00:53:04.624] version <- utils::packageVersion("future") 1584s [00:53:04.624] } 1584s [00:53:04.624] else { 1584s [00:53:04.624] version <- NULL 1584s [00:53:04.624] } 1584s [00:53:04.624] if (!has_future || version < "1.8.0") { 1584s [00:53:04.624] info <- base::c(r_version = base::gsub("R version ", 1584s [00:53:04.624] "", base::R.version$version.string), 1584s [00:53:04.624] platform = base::sprintf("%s (%s-bit)", 1584s [00:53:04.624] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1584s [00:53:04.624] os = base::paste(base::Sys.info()[base::c("sysname", 1584s [00:53:04.624] "release", "version")], collapse = " "), 1584s [00:53:04.624] hostname = base::Sys.info()[["nodename"]]) 1584s [00:53:04.624] info <- base::sprintf("%s: %s", base::names(info), 1584s [00:53:04.624] info) 1584s [00:53:04.624] info <- base::paste(info, collapse = "; ") 1584s [00:53:04.624] if (!has_future) { 1584s [00:53:04.624] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1584s [00:53:04.624] info) 1584s [00:53:04.624] } 1584s [00:53:04.624] else { 1584s [00:53:04.624] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1584s [00:53:04.624] info, version) 1584s [00:53:04.624] } 1584s [00:53:04.624] base::stop(msg) 1584s [00:53:04.624] } 1584s [00:53:04.624] }) 1584s [00:53:04.624] } 1584s [00:53:04.624] options(future.plan = NULL) 1584s [00:53:04.624] Sys.unsetenv("R_FUTURE_PLAN") 1584s [00:53:04.624] future::plan("default", .cleanup = FALSE, .init = FALSE) 1584s [00:53:04.624] } 1584s [00:53:04.624] ...future.workdir <- getwd() 1584s [00:53:04.624] } 1584s [00:53:04.624] ...future.oldOptions <- base::as.list(base::.Options) 1584s [00:53:04.624] ...future.oldEnvVars <- base::Sys.getenv() 1584s [00:53:04.624] } 1584s [00:53:04.624] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1584s [00:53:04.624] future.globals.maxSize = NULL, future.globals.method = NULL, 1584s [00:53:04.624] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1584s [00:53:04.624] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1584s [00:53:04.624] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1584s [00:53:04.624] future.stdout.windows.reencode = NULL, width = 80L) 1584s [00:53:04.624] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1584s [00:53:04.624] base::names(...future.oldOptions)) 1584s [00:53:04.624] } 1584s [00:53:04.624] if (FALSE) { 1584s [00:53:04.624] } 1584s [00:53:04.624] else { 1584s [00:53:04.624] if (TRUE) { 1584s [00:53:04.624] ...future.stdout <- base::rawConnection(base::raw(0L), 1584s [00:53:04.624] open = "w") 1584s [00:53:04.624] } 1584s [00:53:04.624] else { 1584s [00:53:04.624] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1584s [00:53:04.624] windows = "NUL", "/dev/null"), open = "w") 1584s [00:53:04.624] } 1584s [00:53:04.624] base::sink(...future.stdout, type = "output", split = FALSE) 1584s [00:53:04.624] base::on.exit(if (!base::is.null(...future.stdout)) { 1584s [00:53:04.624] base::sink(type = "output", split = FALSE) 1584s [00:53:04.624] base::close(...future.stdout) 1584s [00:53:04.624] }, add = TRUE) 1584s [00:53:04.624] } 1584s [00:53:04.624] ...future.frame <- base::sys.nframe() 1584s [00:53:04.624] ...future.conditions <- base::list() 1584s [00:53:04.624] ...future.rng <- base::globalenv()$.Random.seed 1584s [00:53:04.624] if (FALSE) { 1584s [00:53:04.624] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1584s [00:53:04.624] "...future.value", "...future.globalenv.names", ".Random.seed") 1584s [00:53:04.624] } 1584s [00:53:04.624] ...future.result <- base::tryCatch({ 1584s [00:53:04.624] base::withCallingHandlers({ 1584s [00:53:04.624] ...future.value <- base::withVisible(base::local({ 1584s [00:53:04.624] do.call(function(...) { 1584s [00:53:04.624] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1584s [00:53:04.624] if (!identical(...future.globals.maxSize.org, 1584s [00:53:04.624] ...future.globals.maxSize)) { 1584s [00:53:04.624] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1584s [00:53:04.624] on.exit(options(oopts), add = TRUE) 1584s [00:53:04.624] } 1584s [00:53:04.624] { 1584s [00:53:04.624] lapply(seq_along(...future.elements_ii), 1584s [00:53:04.624] FUN = function(jj) { 1584s [00:53:04.624] ...future.X_jj <- ...future.elements_ii[[jj]] 1584s [00:53:04.624] ...future.FUN(...future.X_jj, ...) 1584s [00:53:04.624] }) 1584s [00:53:04.624] } 1584s [00:53:04.624] }, args = future.call.arguments) 1584s [00:53:04.624] })) 1584s [00:53:04.624] future::FutureResult(value = ...future.value$value, 1584s [00:53:04.624] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1584s [00:53:04.624] ...future.rng), globalenv = if (FALSE) 1584s [00:53:04.624] list(added = base::setdiff(base::names(base::.GlobalEnv), 1584s [00:53:04.624] ...future.globalenv.names)) 1584s [00:53:04.624] else NULL, started = ...future.startTime, version = "1.8") 1584s [00:53:04.624] }, condition = base::local({ 1584s [00:53:04.624] c <- base::c 1584s [00:53:04.624] inherits <- base::inherits 1584s [00:53:04.624] invokeRestart <- base::invokeRestart 1584s [00:53:04.624] length <- base::length 1584s [00:53:04.624] list <- base::list 1584s [00:53:04.624] seq.int <- base::seq.int 1584s [00:53:04.624] signalCondition <- base::signalCondition 1584s [00:53:04.624] sys.calls <- base::sys.calls 1584s [00:53:04.624] `[[` <- base::`[[` 1584s [00:53:04.624] `+` <- base::`+` 1584s [00:53:04.624] `<<-` <- base::`<<-` 1584s [00:53:04.624] sysCalls <- function(calls = sys.calls(), from = 1L) { 1584s [00:53:04.624] calls[seq.int(from = from + 12L, to = length(calls) - 1584s [00:53:04.624] 3L)] 1584s [00:53:04.624] } 1584s [00:53:04.624] function(cond) { 1584s [00:53:04.624] is_error <- inherits(cond, "error") 1584s [00:53:04.624] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1584s [00:53:04.624] NULL) 1584s [00:53:04.624] if (is_error) { 1584s [00:53:04.624] sessionInformation <- function() { 1584s [00:53:04.624] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1584s [00:53:04.624] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1584s [00:53:04.624] search = base::search(), system = base::Sys.info()) 1584s [00:53:04.624] } 1584s [00:53:04.624] ...future.conditions[[length(...future.conditions) + 1584s [00:53:04.624] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1584s [00:53:04.624] cond$call), session = sessionInformation(), 1584s [00:53:04.624] timestamp = base::Sys.time(), signaled = 0L) 1584s [00:53:04.624] signalCondition(cond) 1584s [00:53:04.624] } 1584s [00:53:04.624] else if (!ignore && TRUE && inherits(cond, c("condition", 1584s [00:53:04.624] "immediateCondition"))) { 1584s [00:53:04.624] signal <- TRUE && inherits(cond, "immediateCondition") 1584s [00:53:04.624] ...future.conditions[[length(...future.conditions) + 1584s [00:53:04.624] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1584s [00:53:04.624] if (TRUE && !signal) { 1584s [00:53:04.624] muffleCondition <- function (cond, pattern = "^muffle") 1584s [00:53:04.624] { 1584s [00:53:04.624] inherits <- base::inherits 1584s [00:53:04.624] invokeRestart <- base::invokeRestart 1584s [00:53:04.624] is.null <- base::is.null 1584s [00:53:04.624] muffled <- FALSE 1584s [00:53:04.624] if (inherits(cond, "message")) { 1584s [00:53:04.624] muffled <- grepl(pattern, "muffleMessage") 1584s [00:53:04.624] if (muffled) 1584s [00:53:04.624] invokeRestart("muffleMessage") 1584s [00:53:04.624] } 1584s [00:53:04.624] else if (inherits(cond, "warning")) { 1584s [00:53:04.624] muffled <- grepl(pattern, "muffleWarning") 1584s [00:53:04.624] if (muffled) 1584s [00:53:04.624] invokeRestart("muffleWarning") 1584s [00:53:04.624] } 1584s [00:53:04.624] else if (inherits(cond, "condition")) { 1584s [00:53:04.624] if (!is.null(pattern)) { 1584s [00:53:04.624] computeRestarts <- base::computeRestarts 1584s [00:53:04.624] grepl <- base::grepl 1584s [00:53:04.624] restarts <- computeRestarts(cond) 1584s [00:53:04.624] for (restart in restarts) { 1584s [00:53:04.624] name <- restart$name 1584s [00:53:04.624] if (is.null(name)) 1584s [00:53:04.624] next 1584s [00:53:04.624] if (!grepl(pattern, name)) 1584s [00:53:04.624] next 1584s [00:53:04.624] invokeRestart(restart) 1584s [00:53:04.624] muffled <- TRUE 1584s [00:53:04.624] break 1584s [00:53:04.624] } 1584s [00:53:04.624] } 1584s [00:53:04.624] } 1584s [00:53:04.624] invisible(muffled) 1584s [00:53:04.624] } 1584s [00:53:04.624] muffleCondition(cond, pattern = "^muffle") 1584s [00:53:04.624] } 1584s [00:53:04.624] } 1584s [00:53:04.624] else { 1584s [00:53:04.624] if (TRUE) { 1584s [00:53:04.624] muffleCondition <- function (cond, pattern = "^muffle") 1584s [00:53:04.624] { 1584s [00:53:04.624] inherits <- base::inherits 1584s [00:53:04.624] invokeRestart <- base::invokeRestart 1584s [00:53:04.624] is.null <- base::is.null 1584s [00:53:04.624] muffled <- FALSE 1584s [00:53:04.624] if (inherits(cond, "message")) { 1584s [00:53:04.624] muffled <- grepl(pattern, "muffleMessage") 1584s [00:53:04.624] if (muffled) 1584s [00:53:04.624] invokeRestart("muffleMessage") 1584s [00:53:04.624] } 1584s [00:53:04.624] else if (inherits(cond, "warning")) { 1584s [00:53:04.624] muffled <- grepl(pattern, "muffleWarning") 1584s [00:53:04.624] if (muffled) 1584s [00:53:04.624] invokeRestart("muffleWarning") 1584s [00:53:04.624] } 1584s [00:53:04.624] else if (inherits(cond, "condition")) { 1584s [00:53:04.624] if (!is.null(pattern)) { 1584s [00:53:04.624] computeRestarts <- base::computeRestarts 1584s [00:53:04.624] grepl <- base::grepl 1584s [00:53:04.624] restarts <- computeRestarts(cond) 1584s [00:53:04.624] for (restart in restarts) { 1584s [00:53:04.624] name <- restart$name 1584s [00:53:04.624] if (is.null(name)) 1584s [00:53:04.624] next 1584s [00:53:04.624] if (!grepl(pattern, name)) 1584s [00:53:04.624] next 1584s [00:53:04.624] invokeRestart(restart) 1584s [00:53:04.624] muffled <- TRUE 1584s [00:53:04.624] break 1584s [00:53:04.624] } 1584s [00:53:04.624] } 1584s [00:53:04.624] } 1584s [00:53:04.624] invisible(muffled) 1584s [00:53:04.624] } 1584s [00:53:04.624] muffleCondition(cond, pattern = "^muffle") 1584s [00:53:04.624] } 1584s [00:53:04.624] } 1584s [00:53:04.624] } 1584s [00:53:04.624] })) 1584s [00:53:04.624] }, error = function(ex) { 1584s [00:53:04.624] base::structure(base::list(value = NULL, visible = NULL, 1584s [00:53:04.624] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1584s [00:53:04.624] ...future.rng), started = ...future.startTime, 1584s [00:53:04.624] finished = Sys.time(), session_uuid = NA_character_, 1584s [00:53:04.624] version = "1.8"), class = "FutureResult") 1584s [00:53:04.624] }, finally = { 1584s [00:53:04.624] if (!identical(...future.workdir, getwd())) 1584s [00:53:04.624] setwd(...future.workdir) 1584s [00:53:04.624] { 1584s [00:53:04.624] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1584s [00:53:04.624] ...future.oldOptions$nwarnings <- NULL 1584s [00:53:04.624] } 1584s [00:53:04.624] base::options(...future.oldOptions) 1584s [00:53:04.624] if (.Platform$OS.type == "windows") { 1584s [00:53:04.624] old_names <- names(...future.oldEnvVars) 1584s [00:53:04.624] envs <- base::Sys.getenv() 1584s [00:53:04.624] names <- names(envs) 1584s [00:53:04.624] common <- intersect(names, old_names) 1584s [00:53:04.624] added <- setdiff(names, old_names) 1584s [00:53:04.624] removed <- setdiff(old_names, names) 1584s [00:53:04.624] changed <- common[...future.oldEnvVars[common] != 1584s [00:53:04.624] envs[common]] 1584s [00:53:04.624] NAMES <- toupper(changed) 1584s [00:53:04.624] args <- list() 1584s [00:53:04.624] for (kk in seq_along(NAMES)) { 1584s [00:53:04.624] name <- changed[[kk]] 1584s [00:53:04.624] NAME <- NAMES[[kk]] 1584s [00:53:04.624] if (name != NAME && is.element(NAME, old_names)) 1584s [00:53:04.624] next 1584s [00:53:04.624] args[[name]] <- ...future.oldEnvVars[[name]] 1584s [00:53:04.624] } 1584s [00:53:04.624] NAMES <- toupper(added) 1584s [00:53:04.624] for (kk in seq_along(NAMES)) { 1584s [00:53:04.624] name <- added[[kk]] 1584s [00:53:04.624] NAME <- NAMES[[kk]] 1584s [00:53:04.624] if (name != NAME && is.element(NAME, old_names)) 1584s [00:53:04.624] next 1584s [00:53:04.624] args[[name]] <- "" 1584s [00:53:04.624] } 1584s [00:53:04.624] NAMES <- toupper(removed) 1584s [00:53:04.624] for (kk in seq_along(NAMES)) { 1584s [00:53:04.624] name <- removed[[kk]] 1584s [00:53:04.624] NAME <- NAMES[[kk]] 1584s [00:53:04.624] if (name != NAME && is.element(NAME, old_names)) 1584s [00:53:04.624] next 1584s [00:53:04.624] args[[name]] <- ...future.oldEnvVars[[name]] 1584s [00:53:04.624] } 1584s [00:53:04.624] if (length(args) > 0) 1584s [00:53:04.624] base::do.call(base::Sys.setenv, args = args) 1584s [00:53:04.624] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1584s [00:53:04.624] } 1584s [00:53:04.624] else { 1584s [00:53:04.624] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1584s [00:53:04.624] } 1584s [00:53:04.624] { 1584s [00:53:04.624] if (base::length(...future.futureOptionsAdded) > 1584s [00:53:04.624] 0L) { 1584s [00:53:04.624] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1584s [00:53:04.624] base::names(opts) <- ...future.futureOptionsAdded 1584s [00:53:04.624] base::options(opts) 1584s [00:53:04.624] } 1584s [00:53:04.624] { 1584s [00:53:04.624] { 1584s [00:53:04.624] NULL 1584s [00:53:04.624] RNGkind("Mersenne-Twister") 1584s [00:53:04.624] base::rm(list = ".Random.seed", envir = base::globalenv(), 1584s [00:53:04.624] inherits = FALSE) 1584s [00:53:04.624] } 1584s [00:53:04.624] options(future.plan = NULL) 1584s [00:53:04.624] if (is.na(NA_character_)) 1584s [00:53:04.624] Sys.unsetenv("R_FUTURE_PLAN") 1584s [00:53:04.624] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1584s [00:53:04.624] future::plan(list(function (..., workers = availableCores(), 1584s [00:53:04.624] lazy = FALSE, rscript_libs = .libPaths(), 1584s [00:53:04.624] envir = parent.frame()) 1584s [00:53:04.624] { 1584s [00:53:04.624] if (is.function(workers)) 1584s [00:53:04.624] workers <- workers() 1584s [00:53:04.624] workers <- structure(as.integer(workers), 1584s [00:53:04.624] class = class(workers)) 1584s [00:53:04.624] stop_if_not(length(workers) == 1, is.finite(workers), 1584s [00:53:04.624] workers >= 1) 1584s [00:53:04.624] if (workers == 1L && !inherits(workers, "AsIs")) { 1584s [00:53:04.624] return(sequential(..., lazy = TRUE, envir = envir)) 1584s [00:53:04.624] } 1584s [00:53:04.624] future <- MultisessionFuture(..., workers = workers, 1584s [00:53:04.624] lazy = lazy, rscript_libs = rscript_libs, 1584s [00:53:04.624] envir = envir) 1584s [00:53:04.624] if (!future$lazy) 1584s [00:53:04.624] future <- run(future) 1584s [00:53:04.624] invisible(future) 1584s [00:53:04.624] }), .cleanup = FALSE, .init = FALSE) 1584s [00:53:04.624] } 1584s [00:53:04.624] } 1584s [00:53:04.624] } 1584s [00:53:04.624] }) 1584s [00:53:04.624] if (TRUE) { 1584s [00:53:04.624] base::sink(type = "output", split = FALSE) 1584s [00:53:04.624] if (TRUE) { 1584s [00:53:04.624] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1584s [00:53:04.624] } 1584s [00:53:04.624] else { 1584s [00:53:04.624] ...future.result["stdout"] <- base::list(NULL) 1584s [00:53:04.624] } 1584s [00:53:04.624] base::close(...future.stdout) 1584s [00:53:04.624] ...future.stdout <- NULL 1584s [00:53:04.624] } 1584s [00:53:04.624] ...future.result$conditions <- ...future.conditions 1584s [00:53:04.624] ...future.result$finished <- base::Sys.time() 1584s [00:53:04.624] ...future.result 1584s [00:53:04.624] } 1584s [00:53:04.629] assign_globals() ... 1584s [00:53:04.629] List of 5 1584s [00:53:04.629] $ ...future.FUN :function (x) 1584s [00:53:04.629] $ future.call.arguments : list() 1584s [00:53:04.629] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1584s [00:53:04.629] $ ...future.elements_ii :List of 3 1584s [00:53:04.629] ..$ : int 1 1584s [00:53:04.629] ..$ : int 2 1584s [00:53:04.629] ..$ : int 3 1584s [00:53:04.629] $ ...future.seeds_ii : NULL 1584s [00:53:04.629] $ ...future.globals.maxSize: NULL 1584s [00:53:04.629] - attr(*, "where")=List of 5 1584s [00:53:04.629] ..$ ...future.FUN : 1584s [00:53:04.629] ..$ future.call.arguments : 1584s [00:53:04.629] ..$ ...future.elements_ii : 1584s [00:53:04.629] ..$ ...future.seeds_ii : 1584s [00:53:04.629] ..$ ...future.globals.maxSize: 1584s [00:53:04.629] - attr(*, "resolved")= logi FALSE 1584s [00:53:04.629] - attr(*, "total_size")= num 56 1584s [00:53:04.629] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1584s [00:53:04.629] - attr(*, "already-done")= logi TRUE 1584s [00:53:04.635] - copied ‘...future.FUN’ to environment 1584s [00:53:04.635] - copied ‘future.call.arguments’ to environment 1584s [00:53:04.635] - copied ‘...future.elements_ii’ to environment 1584s [00:53:04.635] - copied ‘...future.seeds_ii’ to environment 1584s [00:53:04.636] - copied ‘...future.globals.maxSize’ to environment 1584s [00:53:04.636] assign_globals() ... done 1584s [00:53:04.636] plan(): Setting new future strategy stack: 1584s [00:53:04.636] List of future strategies: 1584s [00:53:04.636] 1. sequential: 1584s [00:53:04.636] - args: function (..., envir = parent.frame()) 1584s [00:53:04.636] - tweaked: FALSE 1584s [00:53:04.636] - call: NULL 1584s [00:53:04.637] plan(): nbrOfWorkers() = 1 1584s [00:53:04.637] plan(): Setting new future strategy stack: 1584s [00:53:04.637] List of future strategies: 1584s [00:53:04.637] 1. multisession: 1584s [00:53:04.637] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1584s [00:53:04.637] - tweaked: FALSE 1584s [00:53:04.637] - call: plan(strategy) 1584s [00:53:04.641] plan(): nbrOfWorkers() = 1 1584s [00:53:04.641] SequentialFuture started (and completed) 1584s [00:53:04.641] - Launch lazy future ... done 1584s [00:53:04.641] run() for ‘SequentialFuture’ ... done 1584s [00:53:04.641] Created future: 1584s [00:53:04.641] SequentialFuture: 1584s [00:53:04.641] Label: ‘future_sapply-1’ 1584s [00:53:04.641] Expression: 1584s [00:53:04.641] { 1584s [00:53:04.641] do.call(function(...) { 1584s [00:53:04.641] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1584s [00:53:04.641] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1584s [00:53:04.641] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1584s [00:53:04.641] on.exit(options(oopts), add = TRUE) 1584s [00:53:04.641] } 1584s [00:53:04.641] { 1584s [00:53:04.641] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1584s [00:53:04.641] ...future.X_jj <- ...future.elements_ii[[jj]] 1584s [00:53:04.641] ...future.FUN(...future.X_jj, ...) 1584s [00:53:04.641] }) 1584s [00:53:04.641] } 1584s [00:53:04.641] }, args = future.call.arguments) 1584s [00:53:04.641] } 1584s [00:53:04.641] Lazy evaluation: FALSE 1584s [00:53:04.641] Asynchronous evaluation: FALSE 1584s [00:53:04.641] Local evaluation: TRUE 1584s [00:53:04.641] Environment: R_GlobalEnv 1584s [00:53:04.641] Capture standard output: TRUE 1584s [00:53:04.641] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1584s [00:53:04.641] Globals: 5 objects totaling 224 bytes (function ‘...future.FUN’ of 56 bytes, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 168 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1584s [00:53:04.641] Packages: 1584s [00:53:04.641] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1584s [00:53:04.641] Resolved: TRUE 1584s [00:53:04.641] Value: 168 bytes of class ‘list’ 1584s [00:53:04.641] Early signaling: FALSE 1584s [00:53:04.641] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1584s [00:53:04.641] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1584s [00:53:04.643] Chunk #1 of 1 ... DONE 1584s [00:53:04.643] Launching 1 futures (chunks) ... DONE 1584s [00:53:04.643] Resolving 1 futures (chunks) ... 1584s [00:53:04.643] resolve() on list ... 1584s [00:53:04.643] recursive: 0 1584s [00:53:04.644] length: 1 1584s [00:53:04.644] 1584s [00:53:04.644] resolved() for ‘SequentialFuture’ ... 1584s [00:53:04.644] - state: ‘finished’ 1584s [00:53:04.644] - run: TRUE 1584s [00:53:04.644] - result: ‘FutureResult’ 1584s [00:53:04.644] resolved() for ‘SequentialFuture’ ... done 1584s [00:53:04.644] Future #1 1584s [00:53:04.645] signalConditionsASAP(SequentialFuture, pos=1) ... 1584s [00:53:04.645] - nx: 1 1584s [00:53:04.645] - relay: TRUE 1584s [00:53:04.645] - stdout: TRUE 1584s [00:53:04.645] - signal: TRUE 1584s [00:53:04.645] - resignal: FALSE 1584s [00:53:04.645] - force: TRUE 1584s [00:53:04.645] - relayed: [n=1] FALSE 1584s [00:53:04.645] - queued futures: [n=1] FALSE 1584s [00:53:04.646] - until=1 1584s [00:53:04.646] - relaying element #1 1584s [00:53:04.646] - relayed: [n=1] TRUE 1584s [00:53:04.646] - queued futures: [n=1] TRUE 1584s [00:53:04.646] signalConditionsASAP(SequentialFuture, pos=1) ... done 1584s [00:53:04.646] length: 0 (resolved future 1) 1584s [00:53:04.646] Relaying remaining futures 1584s [00:53:04.647] signalConditionsASAP(NULL, pos=0) ... 1584s [00:53:04.647] - nx: 1 1584s [00:53:04.647] - relay: TRUE 1584s [00:53:04.647] - stdout: TRUE 1584s [00:53:04.647] - signal: TRUE 1584s [00:53:04.647] - resignal: FALSE 1584s [00:53:04.647] - force: TRUE 1584s [00:53:04.647] - relayed: [n=1] TRUE 1584s [00:53:04.647] - queued futures: [n=1] TRUE 1584s - flush all 1584s [00:53:04.648] - relayed: [n=1] TRUE 1584s [00:53:04.648] - queued futures: [n=1] TRUE 1584s [00:53:04.648] signalConditionsASAP(NULL, pos=0) ... done 1584s [00:53:04.648] resolve() on list ... DONE 1584s [00:53:04.648] - Number of value chunks collected: 1 1584s [00:53:04.648] Resolving 1 futures (chunks) ... DONE 1584s [00:53:04.648] Reducing values from 1 chunks ... 1584s [00:53:04.648] - Number of values collected after concatenation: 3 1584s [00:53:04.648] - Number of values expected: 3 1584s [00:53:04.649] Reducing values from 1 chunks ... DONE 1584s [00:53:04.649] future_lapply() ... DONE 1584s [00:53:04.649] future_lapply() ... 1584s [00:53:04.653] Number of chunks: 1 1584s [00:53:04.653] getGlobalsAndPackagesXApply() ... 1584s [00:53:04.653] - future.globals: TRUE 1584s [00:53:04.653] getGlobalsAndPackages() ... 1584s [00:53:04.653] Searching for globals... 1584s [00:53:04.656] - globals found: [4] ‘FUN’, ‘compute’, ‘...’, ‘+’ 1584s [00:53:04.656] Searching for globals ... DONE 1584s [00:53:04.656] Resolving globals: FALSE 1584s [00:53:04.656] Tweak future expression to call with '...' arguments ... 1584s [00:53:04.656] { 1584s [00:53:04.656] do.call(function(...) FUN(), args = future.call.arguments) 1584s [00:53:04.656] } 1584s [00:53:04.657] Tweak future expression to call with '...' arguments ... DONE 1584s [00:53:04.657] The total size of the 3 globals is 3.92 KiB (4016 bytes) 1584s [00:53:04.658] The total size of the 3 globals exported for future expression (‘FUN()’) is 3.92 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are three globals: ‘FUN’ (2.43 KiB of class ‘function’), ‘compute’ (1.44 KiB of class ‘function’) and ‘future.call.arguments’ (56 bytes of class ‘list’) 1584s [00:53:04.658] - globals: [3] ‘FUN’, ‘compute’, ‘future.call.arguments’ 1584s [00:53:04.658] 1584s [00:53:04.658] getGlobalsAndPackages() ... DONE 1584s [00:53:04.658] - globals found/used: [n=3] ‘FUN’, ‘compute’, ‘future.call.arguments’ 1584s [00:53:04.659] - needed namespaces: [n=0] 1584s [00:53:04.659] Finding globals ... DONE 1584s [00:53:04.659] - use_args: TRUE 1584s [00:53:04.659] - Getting '...' globals ... 1584s [00:53:04.659] resolve() on list ... 1584s [00:53:04.659] recursive: 0 1584s [00:53:04.660] length: 1 1584s [00:53:04.660] elements: ‘...’ 1584s [00:53:04.660] length: 0 (resolved future 1) 1584s [00:53:04.660] resolve() on list ... DONE 1584s [00:53:04.660] - '...' content: [n=0] 1584s [00:53:04.660] List of 1 1584s [00:53:04.660] $ ...: list() 1584s [00:53:04.660] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1584s [00:53:04.660] - attr(*, "where")=List of 1 1584s [00:53:04.660] ..$ ...: 1584s [00:53:04.660] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1584s [00:53:04.660] - attr(*, "resolved")= logi TRUE 1584s [00:53:04.660] - attr(*, "total_size")= num NA 1584s [00:53:04.663] - Getting '...' globals ... DONE 1584s [00:53:04.664] Globals to be used in all futures (chunks): [n=4] ‘...future.FUN’, ‘compute’, ‘future.call.arguments’, ‘...’ 1584s [00:53:04.664] List of 4 1584s [00:53:04.664] $ ...future.FUN :function (x) 1584s [00:53:04.664] $ compute :function (a, x_vec) 1584s [00:53:04.664] $ future.call.arguments:List of 1 1584s [00:53:04.664] ..$ : int 0 1584s [00:53:04.664] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1584s [00:53:04.664] $ ... : list() 1584s [00:53:04.664] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1584s [00:53:04.664] - attr(*, "where")=List of 4 1584s [00:53:04.664] ..$ ...future.FUN : 1584s [00:53:04.664] ..$ compute : 1584s [00:53:04.664] ..$ future.call.arguments: 1584s [00:53:04.664] ..$ ... : 1584s [00:53:04.664] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1584s [00:53:04.664] - attr(*, "resolved")= logi FALSE 1584s [00:53:04.664] - attr(*, "total_size")= num 4016 1584s [00:53:04.669] Packages to be attached in all futures: [n=0] 1584s [00:53:04.669] getGlobalsAndPackagesXApply() ... DONE 1584s [00:53:04.669] Number of futures (= number of chunks): 1 1584s [00:53:04.669] Launching 1 futures (chunks) ... 1584s [00:53:04.670] Chunk #1 of 1 ... 1584s [00:53:04.670] - Finding globals in 'X' for chunk #1 ... 1584s [00:53:04.670] getGlobalsAndPackages() ... 1584s [00:53:04.670] Searching for globals... 1584s [00:53:04.670] 1584s [00:53:04.670] Searching for globals ... DONE 1584s [00:53:04.671] - globals: [0] 1584s [00:53:04.671] getGlobalsAndPackages() ... DONE 1584s [00:53:04.671] + additional globals found: [n=0] 1584s [00:53:04.671] + additional namespaces needed: [n=0] 1584s [00:53:04.671] - Finding globals in 'X' for chunk #1 ... DONE 1584s [00:53:04.671] - seeds: 1584s [00:53:04.671] - All globals exported: [n=7] ‘...future.FUN’, ‘compute’, ‘future.call.arguments’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1584s [00:53:04.672] getGlobalsAndPackages() ... 1584s [00:53:04.672] - globals passed as-is: [7] ‘...future.FUN’, ‘compute’, ‘future.call.arguments’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1584s [00:53:04.672] Resolving globals: FALSE 1584s [00:53:04.672] Tweak future expression to call with '...' arguments ... 1584s [00:53:04.672] - Detected 2 'future.call.arguments' global entries: 1584s [00:53:04.672] List of 2 1584s [00:53:04.672] $ future.call.arguments:List of 1 1584s [00:53:04.672] ..$ : int 0 1584s [00:53:04.672] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1584s [00:53:04.672] $ future.call.arguments: list() 1584s [00:53:04.672] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1584s [00:53:04.672] - attr(*, "where")=List of 2 1584s [00:53:04.672] ..$ future.call.arguments: 1584s [00:53:04.672] ..$ future.call.arguments: 1584s [00:53:04.672] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1584s [00:53:04.672] - attr(*, "resolved")= logi FALSE 1584s [00:53:04.672] - attr(*, "total_size")= num 4016 1584s [00:53:04.676] future.call.arguments future.call.arguments 1584s [00:53:04.676] 1 0 1584s [00:53:04.677] - 'future.call.arguments' global entries: 1584s [00:53:04.677] List of 2 1584s [00:53:04.677] $ future.call.arguments:List of 1 1584s [00:53:04.677] ..$ : int 0 1584s [00:53:04.677] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1584s [00:53:04.677] $ ...future.elements_ii:List of 2 1584s [00:53:04.677] ..$ : int 1 1584s [00:53:04.677] ..$ : int 2 1584s [00:53:04.677] - attr(*, "where")=List of 2 1584s [00:53:04.677] ..$ future.call.arguments: 1584s [00:53:04.677] ..$ ...future.elements_ii: 1584s [00:53:04.677] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1584s [00:53:04.677] - attr(*, "resolved")= logi FALSE 1584s [00:53:04.677] - attr(*, "total_size")= num 4016 1584s [00:53:04.681] { 1584s [00:53:04.681] do.call(function(...) { 1584s [00:53:04.681] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1584s [00:53:04.681] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1584s [00:53:04.681] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1584s [00:53:04.681] on.exit(options(oopts), add = TRUE) 1584s [00:53:04.681] } 1584s [00:53:04.681] { 1584s [00:53:04.681] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1584s [00:53:04.681] ...future.X_jj <- ...future.elements_ii[[jj]] 1584s [00:53:04.681] ...future.FUN(...future.X_jj) 1584s [00:53:04.681] }) 1584s [00:53:04.681] } 1584s [00:53:04.681] }, args = future.call.arguments) 1584s [00:53:04.681] } 1584s [00:53:04.682] Tweak future expression to call with '...' arguments ... DONE 1584s [00:53:04.682] - globals: [6] ‘...future.FUN’, ‘compute’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1584s [00:53:04.686] 1584s [00:53:04.686] getGlobalsAndPackages() ... DONE 1584s [00:53:04.686] run() for ‘Future’ ... 1584s [00:53:04.687] - state: ‘created’ 1584s [00:53:04.687] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1584s [00:53:04.690] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1584s [00:53:04.690] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1584s [00:53:04.690] - Field: ‘label’ 1584s [00:53:04.691] - Field: ‘local’ 1584s [00:53:04.691] - Field: ‘owner’ 1584s [00:53:04.691] - Field: ‘envir’ 1584s [00:53:04.691] - Field: ‘packages’ 1584s [00:53:04.691] - Field: ‘gc’ 1584s [00:53:04.691] - Field: ‘conditions’ 1584s [00:53:04.692] - Field: ‘expr’ 1584s [00:53:04.692] - Field: ‘uuid’ 1584s [00:53:04.692] - Field: ‘seed’ 1584s [00:53:04.692] - Field: ‘version’ 1584s [00:53:04.692] - Field: ‘result’ 1584s [00:53:04.692] - Field: ‘asynchronous’ 1584s [00:53:04.693] - Field: ‘calls’ 1584s [00:53:04.693] - Field: ‘globals’ 1584s [00:53:04.693] - Field: ‘stdout’ 1584s [00:53:04.693] - Field: ‘earlySignal’ 1584s [00:53:04.693] - Field: ‘lazy’ 1584s [00:53:04.694] - Field: ‘state’ 1584s [00:53:04.694] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1584s [00:53:04.694] - Launch lazy future ... 1584s [00:53:04.694] Packages needed by the future expression (n = 0): 1584s [00:53:04.694] Packages needed by future strategies (n = 0): 1584s [00:53:04.695] { 1584s [00:53:04.695] { 1584s [00:53:04.695] { 1584s [00:53:04.695] ...future.startTime <- base::Sys.time() 1584s [00:53:04.695] { 1584s [00:53:04.695] { 1584s [00:53:04.695] { 1584s [00:53:04.695] base::local({ 1584s [00:53:04.695] has_future <- base::requireNamespace("future", 1584s [00:53:04.695] quietly = TRUE) 1584s [00:53:04.695] if (has_future) { 1584s [00:53:04.695] ns <- base::getNamespace("future") 1584s [00:53:04.695] version <- ns[[".package"]][["version"]] 1584s [00:53:04.695] if (is.null(version)) 1584s [00:53:04.695] version <- utils::packageVersion("future") 1584s [00:53:04.695] } 1584s [00:53:04.695] else { 1584s [00:53:04.695] version <- NULL 1584s [00:53:04.695] } 1584s [00:53:04.695] if (!has_future || version < "1.8.0") { 1584s [00:53:04.695] info <- base::c(r_version = base::gsub("R version ", 1584s [00:53:04.695] "", base::R.version$version.string), 1584s [00:53:04.695] platform = base::sprintf("%s (%s-bit)", 1584s [00:53:04.695] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1584s [00:53:04.695] os = base::paste(base::Sys.info()[base::c("sysname", 1584s [00:53:04.695] "release", "version")], collapse = " "), 1584s [00:53:04.695] hostname = base::Sys.info()[["nodename"]]) 1584s [00:53:04.695] info <- base::sprintf("%s: %s", base::names(info), 1584s [00:53:04.695] info) 1584s [00:53:04.695] info <- base::paste(info, collapse = "; ") 1584s [00:53:04.695] if (!has_future) { 1584s [00:53:04.695] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1584s [00:53:04.695] info) 1584s [00:53:04.695] } 1584s [00:53:04.695] else { 1584s [00:53:04.695] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1584s [00:53:04.695] info, version) 1584s [00:53:04.695] } 1584s [00:53:04.695] base::stop(msg) 1584s [00:53:04.695] } 1584s [00:53:04.695] }) 1584s [00:53:04.695] } 1584s [00:53:04.695] options(future.plan = NULL) 1584s [00:53:04.695] Sys.unsetenv("R_FUTURE_PLAN") 1584s [00:53:04.695] future::plan("default", .cleanup = FALSE, .init = FALSE) 1584s [00:53:04.695] } 1584s [00:53:04.695] ...future.workdir <- getwd() 1584s [00:53:04.695] } 1584s [00:53:04.695] ...future.oldOptions <- base::as.list(base::.Options) 1584s [00:53:04.695] ...future.oldEnvVars <- base::Sys.getenv() 1584s [00:53:04.695] } 1584s [00:53:04.695] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1584s [00:53:04.695] future.globals.maxSize = NULL, future.globals.method = NULL, 1584s [00:53:04.695] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1584s [00:53:04.695] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1584s [00:53:04.695] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1584s [00:53:04.695] future.stdout.windows.reencode = NULL, width = 80L) 1584s [00:53:04.695] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1584s [00:53:04.695] base::names(...future.oldOptions)) 1584s [00:53:04.695] } 1584s [00:53:04.695] if (FALSE) { 1584s [00:53:04.695] } 1584s [00:53:04.695] else { 1584s [00:53:04.695] if (TRUE) { 1584s [00:53:04.695] ...future.stdout <- base::rawConnection(base::raw(0L), 1584s [00:53:04.695] open = "w") 1584s [00:53:04.695] } 1584s [00:53:04.695] else { 1584s [00:53:04.695] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1584s [00:53:04.695] windows = "NUL", "/dev/null"), open = "w") 1584s [00:53:04.695] } 1584s [00:53:04.695] base::sink(...future.stdout, type = "output", split = FALSE) 1584s [00:53:04.695] base::on.exit(if (!base::is.null(...future.stdout)) { 1584s [00:53:04.695] base::sink(type = "output", split = FALSE) 1584s [00:53:04.695] base::close(...future.stdout) 1584s [00:53:04.695] }, add = TRUE) 1584s [00:53:04.695] } 1584s [00:53:04.695] ...future.frame <- base::sys.nframe() 1584s [00:53:04.695] ...future.conditions <- base::list() 1584s [00:53:04.695] ...future.rng <- base::globalenv()$.Random.seed 1584s [00:53:04.695] if (FALSE) { 1584s [00:53:04.695] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1584s [00:53:04.695] "...future.value", "...future.globalenv.names", ".Random.seed") 1584s [00:53:04.695] } 1584s [00:53:04.695] ...future.result <- base::tryCatch({ 1584s [00:53:04.695] base::withCallingHandlers({ 1584s [00:53:04.695] ...future.value <- base::withVisible(base::local({ 1584s [00:53:04.695] do.call(function(...) { 1584s [00:53:04.695] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1584s [00:53:04.695] if (!identical(...future.globals.maxSize.org, 1584s [00:53:04.695] ...future.globals.maxSize)) { 1584s [00:53:04.695] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1584s [00:53:04.695] on.exit(options(oopts), add = TRUE) 1584s [00:53:04.695] } 1584s [00:53:04.695] { 1584s [00:53:04.695] lapply(seq_along(...future.elements_ii), 1584s [00:53:04.695] FUN = function(jj) { 1584s [00:53:04.695] ...future.X_jj <- ...future.elements_ii[[jj]] 1584s [00:53:04.695] ...future.FUN(...future.X_jj) 1584s [00:53:04.695] }) 1584s [00:53:04.695] } 1584s [00:53:04.695] }, args = future.call.arguments) 1584s [00:53:04.695] })) 1584s [00:53:04.695] future::FutureResult(value = ...future.value$value, 1584s [00:53:04.695] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1584s [00:53:04.695] ...future.rng), globalenv = if (FALSE) 1584s [00:53:04.695] list(added = base::setdiff(base::names(base::.GlobalEnv), 1584s [00:53:04.695] ...future.globalenv.names)) 1584s [00:53:04.695] else NULL, started = ...future.startTime, version = "1.8") 1584s [00:53:04.695] }, condition = base::local({ 1584s [00:53:04.695] c <- base::c 1584s [00:53:04.695] inherits <- base::inherits 1584s [00:53:04.695] invokeRestart <- base::invokeRestart 1584s [00:53:04.695] length <- base::length 1584s [00:53:04.695] list <- base::list 1584s [00:53:04.695] seq.int <- base::seq.int 1584s [00:53:04.695] signalCondition <- base::signalCondition 1584s [00:53:04.695] sys.calls <- base::sys.calls 1584s [00:53:04.695] `[[` <- base::`[[` 1584s [00:53:04.695] `+` <- base::`+` 1584s [00:53:04.695] `<<-` <- base::`<<-` 1584s [00:53:04.695] sysCalls <- function(calls = sys.calls(), from = 1L) { 1584s [00:53:04.695] calls[seq.int(from = from + 12L, to = length(calls) - 1584s [00:53:04.695] 3L)] 1584s [00:53:04.695] } 1584s [00:53:04.695] function(cond) { 1584s [00:53:04.695] is_error <- inherits(cond, "error") 1584s [00:53:04.695] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1584s [00:53:04.695] NULL) 1584s [00:53:04.695] if (is_error) { 1584s [00:53:04.695] sessionInformation <- function() { 1584s [00:53:04.695] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1584s [00:53:04.695] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1584s [00:53:04.695] search = base::search(), system = base::Sys.info()) 1584s [00:53:04.695] } 1584s [00:53:04.695] ...future.conditions[[length(...future.conditions) + 1584s [00:53:04.695] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1584s [00:53:04.695] cond$call), session = sessionInformation(), 1584s [00:53:04.695] timestamp = base::Sys.time(), signaled = 0L) 1584s [00:53:04.695] signalCondition(cond) 1584s [00:53:04.695] } 1584s [00:53:04.695] else if (!ignore && TRUE && inherits(cond, c("condition", 1584s [00:53:04.695] "immediateCondition"))) { 1584s [00:53:04.695] signal <- TRUE && inherits(cond, "immediateCondition") 1584s [00:53:04.695] ...future.conditions[[length(...future.conditions) + 1584s [00:53:04.695] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1584s [00:53:04.695] if (TRUE && !signal) { 1584s [00:53:04.695] muffleCondition <- function (cond, pattern = "^muffle") 1584s [00:53:04.695] { 1584s [00:53:04.695] inherits <- base::inherits 1584s [00:53:04.695] invokeRestart <- base::invokeRestart 1584s [00:53:04.695] is.null <- base::is.null 1584s [00:53:04.695] muffled <- FALSE 1584s [00:53:04.695] if (inherits(cond, "message")) { 1584s [00:53:04.695] muffled <- grepl(pattern, "muffleMessage") 1584s [00:53:04.695] if (muffled) 1584s [00:53:04.695] invokeRestart("muffleMessage") 1584s [00:53:04.695] } 1584s [00:53:04.695] else if (inherits(cond, "warning")) { 1584s [00:53:04.695] muffled <- grepl(pattern, "muffleWarning") 1584s [00:53:04.695] if (muffled) 1584s [00:53:04.695] invokeRestart("muffleWarning") 1584s [00:53:04.695] } 1584s [00:53:04.695] else if (inherits(cond, "condition")) { 1584s [00:53:04.695] if (!is.null(pattern)) { 1584s [00:53:04.695] computeRestarts <- base::computeRestarts 1584s [00:53:04.695] grepl <- base::grepl 1584s [00:53:04.695] restarts <- computeRestarts(cond) 1584s [00:53:04.695] for (restart in restarts) { 1584s [00:53:04.695] name <- restart$name 1584s [00:53:04.695] if (is.null(name)) 1584s [00:53:04.695] next 1584s [00:53:04.695] if (!grepl(pattern, name)) 1584s [00:53:04.695] next 1584s [00:53:04.695] invokeRestart(restart) 1584s [00:53:04.695] muffled <- TRUE 1584s [00:53:04.695] break 1584s [00:53:04.695] } 1584s [00:53:04.695] } 1584s [00:53:04.695] } 1584s [00:53:04.695] invisible(muffled) 1584s [00:53:04.695] } 1584s [00:53:04.695] muffleCondition(cond, pattern = "^muffle") 1584s [00:53:04.695] } 1584s [00:53:04.695] } 1584s [00:53:04.695] else { 1584s [00:53:04.695] if (TRUE) { 1584s [00:53:04.695] muffleCondition <- function (cond, pattern = "^muffle") 1584s [00:53:04.695] { 1584s [00:53:04.695] inherits <- base::inherits 1584s [00:53:04.695] invokeRestart <- base::invokeRestart 1584s [00:53:04.695] is.null <- base::is.null 1584s [00:53:04.695] muffled <- FALSE 1584s [00:53:04.695] if (inherits(cond, "message")) { 1584s [00:53:04.695] muffled <- grepl(pattern, "muffleMessage") 1584s [00:53:04.695] if (muffled) 1584s [00:53:04.695] invokeRestart("muffleMessage") 1584s [00:53:04.695] } 1584s [00:53:04.695] else if (inherits(cond, "warning")) { 1584s [00:53:04.695] muffled <- grepl(pattern, "muffleWarning") 1584s [00:53:04.695] if (muffled) 1584s [00:53:04.695] invokeRestart("muffleWarning") 1584s [00:53:04.695] } 1584s [00:53:04.695] else if (inherits(cond, "condition")) { 1584s [00:53:04.695] if (!is.null(pattern)) { 1584s [00:53:04.695] computeRestarts <- base::computeRestarts 1584s [00:53:04.695] grepl <- base::grepl 1584s [00:53:04.695] restarts <- computeRestarts(cond) 1584s [00:53:04.695] for (restart in restarts) { 1584s [00:53:04.695] name <- restart$name 1584s [00:53:04.695] if (is.null(name)) 1584s [00:53:04.695] next 1584s [00:53:04.695] if (!grepl(pattern, name)) 1584s [00:53:04.695] next 1584s [00:53:04.695] invokeRestart(restart) 1584s [00:53:04.695] muffled <- TRUE 1584s [00:53:04.695] break 1584s [00:53:04.695] } 1584s [00:53:04.695] } 1584s [00:53:04.695] } 1584s [00:53:04.695] invisible(muffled) 1584s [00:53:04.695] } 1584s [00:53:04.695] muffleCondition(cond, pattern = "^muffle") 1584s [00:53:04.695] } 1584s [00:53:04.695] } 1584s [00:53:04.695] } 1584s [00:53:04.695] })) 1584s [00:53:04.695] }, error = function(ex) { 1584s [00:53:04.695] base::structure(base::list(value = NULL, visible = NULL, 1584s [00:53:04.695] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1584s [00:53:04.695] ...future.rng), started = ...future.startTime, 1584s [00:53:04.695] finished = Sys.time(), session_uuid = NA_character_, 1584s [00:53:04.695] version = "1.8"), class = "FutureResult") 1584s [00:53:04.695] }, finally = { 1584s [00:53:04.695] if (!identical(...future.workdir, getwd())) 1584s [00:53:04.695] setwd(...future.workdir) 1584s [00:53:04.695] { 1584s [00:53:04.695] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1584s [00:53:04.695] ...future.oldOptions$nwarnings <- NULL 1584s [00:53:04.695] } 1584s [00:53:04.695] base::options(...future.oldOptions) 1584s [00:53:04.695] if (.Platform$OS.type == "windows") { 1584s [00:53:04.695] old_names <- names(...future.oldEnvVars) 1584s [00:53:04.695] envs <- base::Sys.getenv() 1584s [00:53:04.695] names <- names(envs) 1584s [00:53:04.695] common <- intersect(names, old_names) 1584s [00:53:04.695] added <- setdiff(names, old_names) 1584s [00:53:04.695] removed <- setdiff(old_names, names) 1584s [00:53:04.695] changed <- common[...future.oldEnvVars[common] != 1584s [00:53:04.695] envs[common]] 1584s [00:53:04.695] NAMES <- toupper(changed) 1584s [00:53:04.695] args <- list() 1584s [00:53:04.695] for (kk in seq_along(NAMES)) { 1584s [00:53:04.695] name <- changed[[kk]] 1584s [00:53:04.695] NAME <- NAMES[[kk]] 1584s [00:53:04.695] if (name != NAME && is.element(NAME, old_names)) 1584s [00:53:04.695] next 1584s [00:53:04.695] args[[name]] <- ...future.oldEnvVars[[name]] 1584s [00:53:04.695] } 1584s [00:53:04.695] NAMES <- toupper(added) 1584s [00:53:04.695] for (kk in seq_along(NAMES)) { 1584s [00:53:04.695] name <- added[[kk]] 1584s [00:53:04.695] NAME <- NAMES[[kk]] 1584s [00:53:04.695] if (name != NAME && is.element(NAME, old_names)) 1584s [00:53:04.695] next 1584s [00:53:04.695] args[[name]] <- "" 1584s [00:53:04.695] } 1584s [00:53:04.695] NAMES <- toupper(removed) 1584s [00:53:04.695] for (kk in seq_along(NAMES)) { 1584s [00:53:04.695] name <- removed[[kk]] 1584s [00:53:04.695] NAME <- NAMES[[kk]] 1584s [00:53:04.695] if (name != NAME && is.element(NAME, old_names)) 1584s [00:53:04.695] next 1584s [00:53:04.695] args[[name]] <- ...future.oldEnvVars[[name]] 1584s [00:53:04.695] } 1584s [00:53:04.695] if (length(args) > 0) 1584s [00:53:04.695] base::do.call(base::Sys.setenv, args = args) 1584s [00:53:04.695] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1584s [00:53:04.695] } 1584s [00:53:04.695] else { 1584s [00:53:04.695] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1584s [00:53:04.695] } 1584s [00:53:04.695] { 1584s [00:53:04.695] if (base::length(...future.futureOptionsAdded) > 1584s [00:53:04.695] 0L) { 1584s [00:53:04.695] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1584s [00:53:04.695] base::names(opts) <- ...future.futureOptionsAdded 1584s [00:53:04.695] base::options(opts) 1584s [00:53:04.695] } 1584s [00:53:04.695] { 1584s [00:53:04.695] { 1584s [00:53:04.695] NULL 1584s [00:53:04.695] RNGkind("Mersenne-Twister") 1584s [00:53:04.695] base::rm(list = ".Random.seed", envir = base::globalenv(), 1584s [00:53:04.695] inherits = FALSE) 1584s [00:53:04.695] } 1584s [00:53:04.695] options(future.plan = NULL) 1584s [00:53:04.695] if (is.na(NA_character_)) 1584s [00:53:04.695] Sys.unsetenv("R_FUTURE_PLAN") 1584s [00:53:04.695] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1584s [00:53:04.695] future::plan(list(function (..., workers = availableCores(), 1584s [00:53:04.695] lazy = FALSE, rscript_libs = .libPaths(), 1584s [00:53:04.695] envir = parent.frame()) 1584s [00:53:04.695] { 1584s [00:53:04.695] if (is.function(workers)) 1584s [00:53:04.695] workers <- workers() 1584s [00:53:04.695] workers <- structure(as.integer(workers), 1584s [00:53:04.695] class = class(workers)) 1584s [00:53:04.695] stop_if_not(length(workers) == 1, is.finite(workers), 1584s [00:53:04.695] workers >= 1) 1584s [00:53:04.695] if (workers == 1L && !inherits(workers, "AsIs")) { 1584s [00:53:04.695] return(sequential(..., lazy = TRUE, envir = envir)) 1584s [00:53:04.695] } 1584s [00:53:04.695] future <- MultisessionFuture(..., workers = workers, 1584s [00:53:04.695] lazy = lazy, rscript_libs = rscript_libs, 1584s [00:53:04.695] envir = envir) 1584s [00:53:04.695] if (!future$lazy) 1584s [00:53:04.695] future <- run(future) 1584s [00:53:04.695] invisible(future) 1584s [00:53:04.695] }), .cleanup = FALSE, .init = FALSE) 1584s [00:53:04.695] } 1584s [00:53:04.695] } 1584s [00:53:04.695] } 1584s [00:53:04.695] }) 1584s [00:53:04.695] if (TRUE) { 1584s [00:53:04.695] base::sink(type = "output", split = FALSE) 1584s [00:53:04.695] if (TRUE) { 1584s [00:53:04.695] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1584s [00:53:04.695] } 1584s [00:53:04.695] else { 1584s [00:53:04.695] ...future.result["stdout"] <- base::list(NULL) 1584s [00:53:04.695] } 1584s [00:53:04.695] base::close(...future.stdout) 1584s [00:53:04.695] ...future.stdout <- NULL 1584s [00:53:04.695] } 1584s [00:53:04.695] ...future.result$conditions <- ...future.conditions 1584s [00:53:04.695] ...future.result$finished <- base::Sys.time() 1584s [00:53:04.695] ...future.result 1584s [00:53:04.695] } 1584s [00:53:04.701] assign_globals() ... 1584s [00:53:04.701] List of 6 1584s [00:53:04.701] $ ...future.FUN :function (x) 1584s [00:53:04.701] $ compute :function (a, x_vec) 1584s [00:53:04.701] $ future.call.arguments :List of 1 1584s [00:53:04.701] ..$ : int 0 1584s [00:53:04.701] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1584s [00:53:04.701] $ ...future.elements_ii :List of 2 1584s [00:53:04.701] ..$ : int 1 1584s [00:53:04.701] ..$ : int 2 1584s [00:53:04.701] $ ...future.seeds_ii : NULL 1584s [00:53:04.701] $ ...future.globals.maxSize: NULL 1584s [00:53:04.701] - attr(*, "where")=List of 6 1584s [00:53:04.701] ..$ ...future.FUN : 1584s [00:53:04.701] ..$ compute : 1584s [00:53:04.701] ..$ future.call.arguments : 1584s [00:53:04.701] ..$ ...future.elements_ii : 1584s [00:53:04.701] ..$ ...future.seeds_ii : 1584s [00:53:04.701] ..$ ...future.globals.maxSize: 1584s [00:53:04.701] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1584s [00:53:04.701] - attr(*, "resolved")= logi FALSE 1584s [00:53:04.701] - attr(*, "total_size")= num 4016 1584s [00:53:04.701] - attr(*, "already-done")= logi TRUE 1584s [00:53:04.707] - reassign environment for ‘...future.FUN’ 1584s [00:53:04.707] - copied ‘...future.FUN’ to environment 1584s [00:53:04.708] - reassign environment for ‘compute’ 1584s [00:53:04.708] - copied ‘compute’ to environment 1584s [00:53:04.708] - copied ‘future.call.arguments’ to environment 1584s [00:53:04.708] - copied ‘...future.elements_ii’ to environment 1584s [00:53:04.708] - copied ‘...future.seeds_ii’ to environment 1584s [00:53:04.708] - copied ‘...future.globals.maxSize’ to environment 1584s [00:53:04.708] assign_globals() ... done 1584s [00:53:04.708] plan(): Setting new future strategy stack: 1584s [00:53:04.709] List of future strategies: 1584s [00:53:04.709] 1. sequential: 1584s [00:53:04.709] - args: function (..., envir = parent.frame()) 1584s [00:53:04.709] - tweaked: FALSE 1584s [00:53:04.709] - call: NULL 1584s [00:53:04.709] plan(): nbrOfWorkers() = 1 1584s [00:53:04.710] plan(): Setting new future strategy stack: 1584s [00:53:04.710] List of future strategies: 1584s [00:53:04.710] 1. multisession: 1584s [00:53:04.710] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1584s [00:53:04.710] - tweaked: FALSE 1584s [00:53:04.710] - call: plan(strategy) 1584s [00:53:04.713] plan(): nbrOfWorkers() = 1 1584s [00:53:04.713] SequentialFuture started (and completed) 1584s [00:53:04.714] - Launch lazy future ... done 1584s [00:53:04.714] run() for ‘SequentialFuture’ ... done 1584s [00:53:04.714] Created future: 1584s [00:53:04.714] SequentialFuture: 1584s [00:53:04.714] Label: ‘future_sapply-1’ 1584s [00:53:04.714] Expression: 1584s [00:53:04.714] { 1584s [00:53:04.714] do.call(function(...) { 1584s [00:53:04.714] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1584s [00:53:04.714] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1584s [00:53:04.714] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1584s [00:53:04.714] on.exit(options(oopts), add = TRUE) 1584s [00:53:04.714] } 1584s [00:53:04.714] { 1584s [00:53:04.714] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1584s [00:53:04.714] ...future.X_jj <- ...future.elements_ii[[jj]] 1584s [00:53:04.714] ...future.FUN(...future.X_jj) 1584s [00:53:04.714] }) 1584s [00:53:04.714] } 1584s [00:53:04.714] }, args = future.call.arguments) 1584s [00:53:04.714] } 1584s [00:53:04.714] Lazy evaluation: FALSE 1584s [00:53:04.714] Asynchronous evaluation: FALSE 1584s [00:53:04.714] Local evaluation: TRUE 1584s [00:53:04.714] Environment: 0x2aa3c97f0e8 1584s [00:53:04.714] Capture standard output: TRUE 1584s [00:53:04.714] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1584s [00:53:04.714] Globals: 6 objects totaling 4.03 KiB (function ‘...future.FUN’ of 2.43 KiB, function ‘compute’ of 1.44 KiB, DotDotDotList ‘future.call.arguments’ of 56 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, ...) 1584s [00:53:04.714] Packages: 1584s [00:53:04.714] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1584s [00:53:04.714] Resolved: TRUE 1584s [00:53:04.714] Value: 112 bytes of class ‘list’ 1584s [00:53:04.714] Early signaling: FALSE 1584s [00:53:04.714] Owner process: 94afcc1c-274b-a54c-e9a0-bd635abe4a7e 1584s [00:53:04.714] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1584s [00:53:04.716] Chunk #1 of 1 ... DONE 1584s [00:53:04.716] Launching 1 futures (chunks) ... DONE 1584s [00:53:04.716] Resolving 1 futures (chunks) ... 1584s [00:53:04.716] resolve() on list ... 1584s [00:53:04.716] recursive: 0 1584s [00:53:04.716] length: 1 1584s [00:53:04.717] 1584s [00:53:04.717] resolved() for ‘SequentialFuture’ ... 1584s [00:53:04.717] - state: ‘finished’ 1584s [00:53:04.717] - run: TRUE 1584s [00:53:04.717] - result: ‘FutureResult’ 1584s [00:53:04.717] resolved() for ‘SequentialFuture’ ... done 1584s [00:53:04.717] Future #1 1584s [00:53:04.718] signalConditionsASAP(SequentialFuture, pos=1) ... 1584s [00:53:04.718] - nx: 1 1584s [00:53:04.718] - relay: TRUE 1584s [00:53:04.718] - stdout: TRUE 1584s [00:53:04.718] - signal: TRUE 1584s [00:53:04.718] - resignal: FALSE 1584s [00:53:04.718] - force: TRUE 1584s [00:53:04.718] - relayed: [n=1] FALSE 1584s [00:53:04.719] - queued futures: [n=1] FALSE 1584s [00:53:04.719] - until=1 1584s [00:53:04.719] - relaying element #1 1584s [00:53:04.719] - relayed: [n=1] TRUE 1584s [00:53:04.719] - queued futures: [n=1] TRUE 1584s [00:53:04.719] signalConditionsASAP(SequentialFuture, pos=1) ... done 1584s [00:53:04.720] length: 0 (resolved future 1) 1584s [00:53:04.720] Relaying remaining futures 1584s [00:53:04.720] signalConditionsASAP(NULL, pos=0) ... 1584s [00:53:04.720] - nx: 1 1584s [00:53:04.720] - relay: TRUE 1584s [00:53:04.720] - stdout: TRUE 1584s [00:53:04.720] - signal: TRUE 1584s [00:53:04.721] - resignal: FALSE 1584s [00:53:04.721] - force: TRUE 1584s [00:53:04.721] - relayed: [n=1] TRUE 1584s [00:53:04.721] - queued futures: [n=1] TRUE 1584s - flush all 1584s [00:53:04.721] - relayed: [n=1] TRUE 1584s [00:53:04.721] - queued futures: [n=1] TRUE 1584s [00:53:04.721] signalConditionsASAP(NULL, pos=0) ... done 1584s [00:53:04.722] resolve() on list ... DONE 1584s [00:53:04.722] - Number of value chunks collected: 1 1584s [00:53:04.722] Resolving 1 futures (chunks) ... DONE 1584s [00:53:04.722] Reducing values from 1 chunks ... 1584s [00:53:04.722] - Number of values collected after concatenation: 2 1584s [1] 1 2 1584s > 1584s > message("*** future_sapply() ... DONE") 1584s > 1584s > source("incl/end.R") 1584s [00:53:04.722] - Number of values expected: 2 1584s [00:53:04.722] Reducing values from 1 chunks ... DONE 1584s [00:53:04.723] future_lapply() ... DONE 1584s [00:53:04.723] plan(): Setting new future strategy stack: 1584s [00:53:04.723] List of future strategies: 1584s [00:53:04.723] 1. sequential: 1584s [00:53:04.723] - args: function (..., envir = parent.frame()) 1584s [00:53:04.723] - tweaked: FALSE 1584s [00:53:04.723] - call: plan(sequential) 1584s [00:53:04.724] plan(): nbrOfWorkers() = 1 1584s *** strategy = ‘multisession’ ... done 1584s *** future_sapply() ... DONE 1584s [00:53:04.725] plan(): Setting new future strategy stack: 1584s [00:53:04.725] List of future strategies: 1584s [00:53:04.725] 1. FutureStrategy: 1584s [00:53:04.725] - args: function (..., envir = parent.frame()) 1584s [00:53:04.725] - tweaked: FALSE 1584s [00:53:04.725] - call: future::plan(oplan) 1584s [00:53:04.726] plan(): nbrOfWorkers() = 1 1584s > 1584s BEGIN TEST future_tapply.R 1584s 1584s R version 4.3.3 (2024-02-29) -- "Angel Food Cake" 1584s Copyright (C) 2024 The R Foundation for Statistical Computing 1584s Platform: s390x-ibm-linux-gnu (64-bit) 1584s 1584s R is free software and comes with ABSOLUTELY NO WARRANTY. 1584s You are welcome to redistribute it under certain conditions. 1584s Type 'license()' or 'licence()' for distribution details. 1584s 1584s R is a collaborative project with many contributors. 1584s Type 'contributors()' for more information and 1584s 'citation()' on how to cite R or R packages in publications. 1584s 1584s Type 'demo()' for some demos, 'help()' for on-line help, or 1584s 'help.start()' for an HTML browser interface to help. 1584s Type 'q()' to quit R. 1584s 1584s > source("incl/start.R") 1584s Loading required package: future 1585s [00:53:05.048] plan(): Setting new future strategy stack: 1585s [00:53:05.049] List of future strategies: 1585s [00:53:05.049] 1. sequential: 1585s [00:53:05.049] - args: function (..., envir = parent.frame()) 1585s [00:53:05.049] - tweaked: FALSE 1585s [00:53:05.049] - call: future::plan("sequential") 1585s [00:53:05.067] plan(): nbrOfWorkers() = 1 1585s > 1585s > library("datasets") ## warpbreaks, iris 1585s > 1585s > options(future.debug = FALSE) 1585s > message("*** future_tapply() ...") 1585s > *** future_tapply() ... 1585s 1585s > for (strategy in supportedStrategies()[1]) { 1585s + message(sprintf("*** strategy = %s ...", sQuote(strategy))) 1585s + plan(strategy) 1585s + 1585s + message("- From example(tapply) ...") 1585s + 1585s + message(" - Example #1") 1585s + library("stats") ## rbinom() 1585s + groups <- as.factor(stats::rbinom(32, n = 5, prob = 0.4)) 1585s + t <- table(groups) 1585s + print(t) 1585s + y0 <- tapply(groups, INDEX = groups, FUN = length) 1585s + print(y0) 1585s + y1 <- future_tapply(groups, INDEX = groups, FUN = length) 1585s + print(y1) 1585s + stopifnot(all.equal(y1, y0)) 1585s + y2 <- future_tapply(groups, INDEX = groups, FUN = "length") 1585s + print(y2) 1585s + stopifnot(all.equal(y2, y0)) 1585s + 1585s + message(" - Example #2") 1585s + ## contingency table from data.frame : array with named dimnames 1585s + y0 <- tapply(warpbreaks$breaks, INDEX = warpbreaks[,-1], FUN = sum) 1585s + print(y0) 1585s + y1 <- future_tapply(warpbreaks$breaks, INDEX = warpbreaks[,-1], FUN = sum) 1585s + print(y1) 1585s + stopifnot(all.equal(y1, y0)) 1585s + 1585s + message(" - Example #3") 1585s + y0 <- tapply(warpbreaks$breaks, warpbreaks[, 3, drop = FALSE], sum) 1585s + print(y0) 1585s + y1 <- future_tapply(warpbreaks$breaks, warpbreaks[, 3, drop = FALSE], sum) 1585s + print(y1) 1585s + stopifnot(all.equal(y1, y0)) 1585s + 1585s + message(" - Example #4") 1585s + n <- 17 1585s + fac <- factor(rep_len(1:3, n), levels = 1:5) 1585s + t <- table(fac) 1585s + y0 <- tapply(1:n, fac, sum) 1585s + print(y0) 1585s + y1 <- future_tapply(1:n, fac, sum) 1585s + print(y1) 1585s + stopifnot(all.equal(y1, y0)) 1585s + 1585s + message(" - Example #5") 1585s + if ("default" %in% names(formals(tapply))) { 1585s + y0 <- tapply(1:n, fac, sum, default = 0) # maybe more desirable 1585s + print(y0) 1585s + y1 <- future_tapply(1:n, fac, sum, default = 0) # maybe more desirable 1585s + print(y1) 1585s + stopifnot(all.equal(y1, y0)) 1585s + } 1585s + 1585s + message(" - Example #6") 1585s + y0 <- tapply(1:n, fac, sum, simplify = FALSE) 1585s + print(y0) 1585s + y1 <- future_tapply(1:n, fac, sum, simplify = FALSE) 1585s + print(y1) 1585s + stopifnot(all.equal(y1, y0)) 1585s + 1585s + message(" - Example #7") 1585s + y0 <- tapply(1:n, fac, range) 1585s + print(y0) 1585s + y1 <- future_tapply(1:n, fac, range) 1585s + print(y1) 1585s + stopifnot(all.equal(y1, y0)) 1585s + 1585s + message(" - Example #8") 1585s + y0 <- tapply(1:n, fac, quantile) 1585s + print(y0) 1585s + y1 <- future_tapply(1:n, fac, quantile) 1585s + print(y1) 1585s + stopifnot(all.equal(y1, y0)) 1585s + 1585s + message(" - Example #9") 1585s + y0 <- tapply(1:n, fac, length) ## NA's 1585s + print(y0) 1585s + y1 <- future_tapply(1:n, fac, length) ## NA's 1585s + print(y1) 1585s + stopifnot(all.equal(y1, y0)) 1585s + 1585s + message(" - Example #10") 1585s + if ("default" %in% names(formals(tapply))) { 1585s + y0 <- tapply(1:n, fac, length, default = 0) # == table(fac) 1585s + print(y0) 1585s + y1 <- future_tapply(1:n, fac, length, default = 0) # == table(fac) 1585s + print(y1) 1585s + stopifnot(all.equal(y1, y0)) 1585s + } 1585s + 1585s + message(" - Example #11") 1585s + ## example of ... argument: find quarterly means 1585s + y0 <- tapply(presidents, cycle(presidents), mean, na.rm = TRUE) 1585s + print(y0) 1585s + y1 <- future_tapply(presidents, cycle(presidents), mean, na.rm = TRUE) 1585s + print(y1) 1585s + stopifnot(all.equal(y1, y0)) 1585s + 1585s + message(" - Example #12") 1585s + ind <- list(c(1, 2, 2), c("A", "A", "B")) 1585s + t <- table(ind) 1585s + print(t) 1585s + y0 <- tapply(1:3, ind) #-> the split vector 1585s + print(y0) 1585s + y1 <- future_tapply(1:3, ind) #-> the split vector 1585s + print(y1) 1585s + stopifnot(all.equal(y1, y0)) 1585s + 1585s + message(" - Example #13") 1585s + y0 <- tapply(1:3, ind, sum) 1585s + print(y0) 1585s + y1 <- future_tapply(1:3, ind, sum) 1585s + print(y1) 1585s + stopifnot(all.equal(y1, y0)) 1585s + 1585s + ## Some assertions (not held by all patch propsals): 1585s + message(" - Example #14") 1585s + nq <- names(quantile(1:5)) 1585s + y_truth <- c(1L, 2L, 4L) 1585s + stopifnot(identical(tapply(1:3, ind), y_truth)) 1585s + stopifnot(identical(future_tapply(1:3, ind), y_truth)) 1585s + 1585s + message(" - Example #15") 1585s + y_truth <- matrix(c(1L, 2L, NA, 3L), nrow = 2L, 1585s + dimnames = list(c("1", "2"), c("A", "B"))) 1585s + stopifnot(identical(tapply(1:3, ind, sum), y_truth)) 1585s + stopifnot(identical(future_tapply(1:3, ind, sum), y_truth)) 1585s + 1585s + message(" - Example #16") 1585s + y_truth <- array(list( 1585s + `2` = structure(c(2, 5.75, 9.5, 13.25, 17), .Names = nq), 1585s + `3` = structure(c(3, 6, 9, 12, 15), .Names = nq), 1585s + `4` = NULL, `5` = NULL), 1585s + dim = 4L, dimnames = list(as.character(2:5))) 1585s + stopifnot(identical(tapply(1:n, fac, quantile)[-1], y_truth)) 1585s + stopifnot(identical(future_tapply(1:n, fac, quantile)[-1], y_truth)) 1585s + 1585s + if (getRversion() >= "4.3.0") { 1585s + data <- iris[, c("Sepal.Length", "Sepal.Width")] 1585s + y_truth <- tapply(data, INDEX = iris$Species, FUN = sum) 1585s + y <- future_tapply(data, INDEX = iris$Species, FUN = sum) 1585s + stopifnot(identical(y, y_truth)) 1585s + 1585s + y_truth2 <- tapply(data, INDEX = ~ iris$Species + iris$Petal.Width, FUN = sum) 1585s + y2 <- future_tapply(data, INDEX = ~ iris$Species + iris$Petal.Width, FUN = sum) 1585s + stopifnot(identical(y2, y_truth2)) 1585s + } 1585s + 1585s + plan(sequential) 1585s + message(sprintf("*** strategy = %s ... done", sQuote(strategy))) 1585s + } ## for (strategy in ...) 1585s *** strategy = ‘sequential’ ... 1585s - From example(tapply) ... 1585s - Example #1 1585s groups 1585s 10 12 13 14 15 1585s 1 1 1 1 1 1585s 10 12 13 14 15 1585s 1 1 1 1 1 1585s 10 12 13 14 15 1585s 1 1 1 1 1 1585s 10 - Example #2 1585s 12 13 14 15 1585s 1 1 1 1 1 1585s tension 1585s wool L M H 1585s A 401 216 221 1585s B 254 259 169 1585s tension 1585s wool L M H 1585s A 401 216 221 1585s B 254 259 169 1585s tension 1585s L M H 1585s 655 475 390 1585s - Example #3 1585s tension 1585s L M H 1585s 655 475 390 1585s - Example #4 1585s 1 2 3 4 5 1585s 51 57 45 NA NA 1585s 1 2 3 4 5 1585s 51 57 45 NA NA 1585s 1 2 3 4 5 1585s - Example #5 1585s 51 57 45 0 0 1585s 1 2 3 4 5 1585s 51 57 45 0 0 1585s - Example #6 1585s $`1` 1585s [1] 51 1585s 1585s $`2` 1585s [1] 57 1585s 1585s $`3` 1585s [1] 45 1585s 1585s $`4` 1585s NULL 1585s 1585s $`5` 1585s NULL 1585s 1585s $`1` 1585s [1] 51 1585s 1585s $`2` 1585s [1] 57 1585s 1585s $`3` 1585s [1] 45 1585s 1585s $`4` 1585s NULL 1585s 1585s $`5` 1585s NULL 1585s 1585s - Example #7 1585s $`1` 1585s [1] 1 16 1585s 1585s $`2` 1585s [1] 2 17 1585s 1585s $`3` 1585s [1] 3 15 1585s 1585s $`4` 1585s NULL 1585s 1585s $`5` 1585s NULL 1585s 1585s $`1` 1585s [1] 1 16 1585s 1585s $`2` 1585s [1] 2 17 1585s 1585s $`3` 1585s [1] 3 15 1585s 1585s $`4` 1585s NULL 1585s 1585s $`5` 1585s NULL 1585s 1585s - Example #8 1585s $`1` 1585s 0% 25% 50% 75% 100% 1585s 1.00 4.75 8.50 12.25 16.00 1585s 1585s $`2` 1585s 0% 25% 50% 75% 100% 1585s 2.00 5.75 9.50 13.25 17.00 1585s 1585s $`3` 1585s 0% 25% 50% 75% 100% 1585s 3 6 9 12 15 1585s 1585s $`4` 1585s NULL 1585s 1585s $`5` 1585s NULL 1585s 1585s $`1` 1585s 0% 25% 50% 75% 100% 1585s 1.00 4.75 8.50 12.25 16.00 1585s 1585s $`2` 1585s 0% 25% 50% 75% 100% 1585s 2.00 5.75 9.50 13.25 17.00 1585s 1585s $`3` 1585s 0% 25% 50% 75% 100% 1585s 3 6 9 12 15 1585s 1585s $`4` 1585s NULL 1585s 1585s $`5` 1585s NULL 1585s 1585s 1 2 3 4 5 1585s 6 6 5 NA NA 1585s 1 2 3 4 5 1585s 6 6 5 NA NA 1585s 1 2 3 4 5 1585s 6 6 5 0 0 1585s - Example #9 1585s - Example #10 1585s 1 2 3 4 5 1585s 6 6 5 0 0 1585s - Example #11 1585s 1 2 3 4 1585s 58.44828 56.43333 57.22222 53.07143 1585s 1 2 3 4 1585s 58.44828 56.43333 57.22222 53.07143 1585s ind.2 1585s ind.1 A B 1585s 1 1 0 1585s 2 1 1 1585s [1] 1 2 4 1585s [1] - Example #12 1585s 1 2 - Example #13 1585s 4 1585s A B 1585s 1 1 NA 1585s 2 2 3 1585s A B 1585s 1 - Example #14 1585s 1 NA 1585s 2 2 3 1585s - Example #15 1585s - Example #16 1585s *** strategy = ‘sequential’ ... done 1585s *** exceptions ... 1585s > 1585s > 1585s > message("*** exceptions ...") 1585s > 1585s > ## Error: 'INDEX' is of length zero 1585s > res <- tryCatch({ 1585s + y <- future_tapply(1L, INDEX = list()) 1585s + }, error = identity) 1585s > stopifnot(inherits(res, "error")) 1585s > 1585s > ## Error: total number of levels >= 2^31 1585s > res <- tryCatch({ 1585s + y <- future_tapply(1:216, INDEX = rep(list(1:216), times = 4L)) 1585s + }, error = identity) 1585s > stopifnot(inherits(res, "error")) 1585s > 1585s > ## Error: arguments must have same length 1585s > res <- tryCatch({ 1585s + y <- future_tapply(1L, INDEX = list(1:2)) 1585s + }, error = identity) 1585s > stopifnot(inherits(res, "error")) 1585s > 1585s > message("*** future_tapply() ... DONE") 1585s > *** future_tapply() ... DONE 1585s 1585s > source("incl/end.R") 1585s > 1585s BEGIN TEST future_vapply.R 1585s 1585s R version 4.3.3 (2024-02-29) -- "Angel Food Cake" 1585s Copyright (C) 2024 The R Foundation for Statistical Computing 1585s Platform: s390x-ibm-linux-gnu (64-bit) 1585s 1585s R is free software and comes with ABSOLUTELY NO WARRANTY. 1585s You are welcome to redistribute it under certain conditions. 1585s Type 'license()' or 'licence()' for distribution details. 1585s 1585s R is a collaborative project with many contributors. 1585s Type 'contributors()' for more information and 1585s 'citation()' on how to cite R or R packages in publications. 1585s 1585s Type 'demo()' for some demos, 'help()' for on-line help, or 1585s 'help.start()' for an HTML browser interface to help. 1585s Type 'q()' to quit R. 1585s 1585s > source("incl/start.R") 1585s Loading required package: future 1585s [00:53:05.696] plan(): Setting new future strategy stack: 1585s [00:53:05.697] List of future strategies: 1585s [00:53:05.697] 1. sequential: 1585s [00:53:05.697] - args: function (..., envir = parent.frame()) 1585s [00:53:05.697] - tweaked: FALSE 1585s [00:53:05.697] - call: future::plan("sequential") 1585s [00:53:05.716] plan(): nbrOfWorkers() = 1 1585s *** future_vapply() ... 1585s > 1585s > 1585s > message("*** future_vapply() ...") 1585s > 1585s > for (strategy in supportedStrategies()) { 1585s + message(sprintf("*** strategy = %s ...", sQuote(strategy))) 1585s + plan(strategy) 1585s + 1585s + x <- NULL 1585s + fun <- is.factor 1585s + fun_name <- "is.factor" 1585s + fun_value <- logical(1L) 1585s + y0 <- vapply(x, FUN = fun, FUN.VALUE = fun_value) 1585s + str(y0) 1585s + y1 <- future_vapply(x, FUN = fun, FUN.VALUE = fun_value) 1585s + str(y1) 1585s + stopifnot(all.equal(y1, y0)) 1585s + y2 <- future_vapply(x, FUN = fun_name, FUN.VALUE = fun_value) 1585s + str(y2) 1585s + stopifnot(all.equal(y2, y0)) 1585s + 1585s + x <- list() 1585s + fun <- is.numeric 1585s + fun_value <- logical(1L) 1585s + y0 <- vapply(x, FUN = fun, FUN.VALUE = fun_value) 1585s + str(y0) 1585s + y1 <- future_vapply(x, FUN = fun, FUN.VALUE = fun_value) 1585s + str(y1) 1585s + stopifnot(all.equal(y1, y0)) 1585s + 1585s + x <- integer() 1585s + fun <- identity 1585s + fun_value <- fun(integer(1L)) 1585s + y0 <- vapply(x, FUN = fun, FUN.VALUE = fun_value) 1585s + str(y0) 1585s + y1 <- future_vapply(x, FUN = fun, FUN.VALUE = fun_value) 1585s + str(y1) 1585s + stopifnot(all.equal(y1, y0)) 1585s + 1585s + 1585s + df <- data.frame(x = 1:10, y = letters[1:10], stringsAsFactors=FALSE) 1585s + fun <- class 1585s + fun_value <- character(1L) 1585s + y0 <- vapply(df, FUN = fun, FUN.VALUE = fun_value) 1585s + str(y0) 1585s + y1 <- future_vapply(df, FUN = fun, FUN.VALUE = fun_value) 1585s + str(y1) 1585s + stopifnot(all.equal(y1, y0)) 1585s + 1585s + x <- 1:10 1585s + fun <- function(x) double(0L) 1585s + fun_value <- fun(double(1L)) 1585s + y0 <- vapply(x, FUN = fun, FUN.VALUE = fun_value) 1585s + str(y0) 1585s + y1 <- future_vapply(x, FUN = fun, FUN.VALUE = fun_value) 1585s + str(y1) 1585s + stopifnot(all.equal(y1, y0)) 1585s + 1585s + fun <- function(x) integer(0L) 1585s + fun_value <- fun(double(1L)) 1585s + y0 <- vapply(x, FUN = fun, FUN.VALUE = fun_value) 1585s + str(y0) 1585s + y1 <- future_vapply(x, FUN = fun, FUN.VALUE = fun_value) 1585s + str(y1) 1585s + stopifnot(all.equal(y1, y0)) 1585s + 1585s + fun <- sqrt 1585s + fun_value <- fun(double(1L)) 1585s + y0 <- vapply(x, FUN = fun, FUN.VALUE = fun_value) 1585s + str(y0) 1585s + y1 <- future_vapply(x, FUN = fun, FUN.VALUE = fun_value) 1585s + str(y1) 1585s + stopifnot(all.equal(y1, y0)) 1585s + 1585s + fun <- function(x) c(x, x^2) 1585s + fun_value <- fun(double(1L)) 1585s + y0 <- vapply(x, FUN = fun, FUN.VALUE = fun_value) 1585s + str(y0) 1585s + y1 <- future_vapply(x, FUN = fun, FUN.VALUE = fun_value) 1585s + str(y1) 1585s + stopifnot(all.equal(y1, y0)) 1585s + 1585s + fun <- function(x) matrix(x, nrow = 2L, ncol = 2L) 1585s + fun_value <- fun(integer(1L)) 1585s + y0 <- vapply(x, FUN = fun, FUN.VALUE = fun_value) 1585s + str(y0) 1585s + y1 <- future_vapply(x, FUN = fun, FUN.VALUE = fun_value) 1585s + str(y1) 1585s + stopifnot(all.equal(y1, y0)) 1585s + 1585s + fun <- function(x) matrix(x, nrow = 2L, ncol = 2L) 1585s + fun_value <- fun(double(1L)) 1585s + y0 <- vapply(x, FUN = fun, FUN.VALUE = fun_value) 1585s + str(y0) 1585s + y1 <- future_vapply(x, FUN = fun, FUN.VALUE = fun_value) 1585s + str(y1) 1585s + stopifnot(all.equal(y1, y0)) 1585s + 1585s + ## Ditto with dimnames on FUN.VALUE 1585s + fun <- function(x) { 1585s + matrix(x, nrow = 2L, ncol = 2L, dimnames = list(c("a", "b"), c("A", "B"))) 1585s + } 1585s + fun_value <- fun(double(1L)) 1585s + y0 <- vapply(x, FUN = fun, FUN.VALUE = fun_value) 1585s + str(y0) 1585s + y1 <- future_vapply(x, FUN = fun, FUN.VALUE = fun_value) 1585s + str(y1) 1585s + stopifnot(all.equal(y1, y0)) 1585s + 1585s + message("- From example(vapply) ...") 1585s + x <- list(a = 1:10, beta = exp(-3:3), logic = c(TRUE, FALSE, FALSE, TRUE)) 1585s + y0 <- vapply(x, FUN = quantile, FUN.VALUE = double(5L)) 1585s + y1 <- future_vapply(x, FUN = quantile, FUN.VALUE = double(5L)) 1585s + str(y1) 1585s + stopifnot(all.equal(y1, y0)) 1585s + 1585s + i39 <- sapply(3:9, seq) 1585s + ys0 <- sapply(i39, fivenum) 1585s + ys1 <- future_sapply(i39, fivenum) 1585s + stopifnot(all.equal(ys1, ys0)) 1585s + 1585s + yv0 <- vapply(i39, fivenum, 1585s + c(Min. = 0, "1st Qu." = 0, Median = 0, "3rd Qu." = 0, Max. = 0)) 1585s + yv1 <- future_vapply(i39, fivenum, 1585s + c(Min. = 0, "1st Qu." = 0, Median = 0, "3rd Qu." = 0, Max. = 0)) 1585s + str(yv1) 1585s + stopifnot(all.equal(yv1, yv0)) 1585s + 1585s + v <- structure(10*(5:8), names = LETTERS[1:4]) 1585s + f <- function(x, y) outer(rep(x, length.out = 3L), y) 1585s + ys0 <- sapply(v, f, y = 2*(1:5), simplify = "array") 1585s + ys1 <- future_sapply(v, f, y = 2*(1:5), simplify = "array") 1585s + stopifnot(all.equal(ys1, ys0)) 1585s + 1585s + fv <- outer(1:3, 1:5) 1585s + y <- 2*(1:5) 1585s + yv0 <- vapply(v, f, fv, y = y) 1585s + yv1 <- future_vapply(v, f, fv, y = y) 1585s + str(yv1) 1585s + stopifnot(all.equal(yv1, yv0)) 1585s + 1585s + y0 <- vapply(mtcars, FUN = is.numeric, FUN.VALUE = logical(1L)) 1585s + y1 <- future_vapply(mtcars, FUN = is.numeric, FUN.VALUE = logical(1L)) 1585s + str(y1) 1585s + stopifnot(all.equal(y1, y0)) 1585s + 1585s + message("- future_vapply(x, ...) where length(x) != length(as.list(x)) ...") 1585s + x <- structure(list(a = 1, b = 2), class = "Foo") 1585s + as.list.Foo <- function(x, ...) c(x, c = 3) 1585s + y0 <- vapply(x, FUN = length, FUN.VALUE = -1L) 1585s + y1 <- future_vapply(x, FUN = length, FUN.VALUE = -1L) 1585s + stopifnot(identical(y1, y0)) 1585s + 1585s + message("- exceptions ...") 1585s + res <- tryCatch({ 1585s + y0 <- vapply(1:3, FUN = identity, FUN.VALUE = c(3, 3)) 1585s + }, error = identity) 1585s + stopifnot(inherits(res, "error")) 1585s + res <- tryCatch({ 1585s + y1 <- future_vapply(1:3, FUN = identity, FUN.VALUE = c(3, 3)) 1585s + }, error = identity) 1585s + stopifnot(inherits(res, "error")) 1585s + 1585s + plan(sequential) 1585s + message(sprintf("*** strategy = %s ... done", sQuote(strategy))) 1585s + } ## for (strategy in ...) 1585s *** strategy = ‘sequential’ ... 1585s [00:53:05.921] plan(): Setting new future strategy stack: 1585s [00:53:05.922] List of future strategies: 1585s [00:53:05.922] 1. sequential: 1585s [00:53:05.922] - args: function (..., envir = parent.frame()) 1585s [00:53:05.922] - tweaked: FALSE 1585s [00:53:05.922] - call: plan(strategy) 1585s [00:53:05.945] plan(): nbrOfWorkers() = 1 1585s logi(0) 1585s logi(0) 1585s logi(0) 1585s logi(0) 1585s logi(0) 1585s int(0) 1585s int(0) 1585s Named chr [1:2] "integer" "character" 1585s - attr(*, "names")= chr [1:2] "x" "y" 1585s [00:53:05.958] future_lapply() ... 1586s [00:53:05.969] Number of chunks: 1 1586s [00:53:05.970] getGlobalsAndPackagesXApply() ... 1586s [00:53:05.970] - future.globals: TRUE 1586s [00:53:05.972] getGlobalsAndPackages() ... 1586s [00:53:05.972] Searching for globals... 1586s [00:53:05.982] - globals found: [16] ‘FUN’, ‘{’, ‘<-’, ‘x_FUN’, ‘if’, ‘!=’, ‘length’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘all’, ‘==’, ‘dim’, ‘%in%’, ‘typeof’, ‘valid_types’ 1586s [00:53:05.982] Searching for globals ... DONE 1586s [00:53:05.983] Resolving globals: FALSE 1586s [00:53:05.987] The total size of the 7 globals is 92.00 KiB (94208 bytes) 1586s [00:53:05.990] The total size of the 7 globals exported for future expression (‘FUN()’) is 92.00 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘stop_if_not’ (44.12 KiB of class ‘function’), ‘stopf’ (26.43 KiB of class ‘function’) and ‘FUN’ (21.22 KiB of class ‘function’) 1586s [00:53:05.991] - globals: [7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1586s [00:53:05.993] - packages: [1] ‘future.apply’ 1586s [00:53:05.993] getGlobalsAndPackages() ... DONE 1586s [00:53:05.994] - globals found/used: [n=7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1586s [00:53:05.994] - needed namespaces: [n=1] ‘future.apply’ 1586s [00:53:05.995] Finding globals ... DONE 1586s [00:53:05.996] - use_args: TRUE 1586s [00:53:05.996] - Getting '...' globals ... 1586s [00:53:06.000] resolve() on list ... 1586s [00:53:06.000] recursive: 0 1586s [00:53:06.002] length: 1 1586s [00:53:06.003] elements: ‘...’ 1586s [00:53:06.004] length: 0 (resolved future 1) 1586s [00:53:06.004] resolve() on list ... DONE 1586s [00:53:06.004] - '...' content: [n=0] 1586s [00:53:06.005] List of 1 1586s [00:53:06.005] $ ...: list() 1586s [00:53:06.005] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1586s [00:53:06.005] - attr(*, "where")=List of 1 1586s [00:53:06.005] ..$ ...: 1586s [00:53:06.005] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1586s [00:53:06.005] - attr(*, "resolved")= logi TRUE 1586s [00:53:06.005] - attr(*, "total_size")= num NA 1586s [00:53:06.011] - Getting '...' globals ... DONE 1586s [00:53:06.011] Globals to be used in all futures (chunks): [n=8] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’ 1586s [00:53:06.012] List of 8 1586s [00:53:06.012] $ ...future.FUN:function (x, ...) 1586s [00:53:06.012] $ x_FUN :function (x) 1586s [00:53:06.012] $ times : int 1 1586s [00:53:06.012] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1586s [00:53:06.012] $ stop_if_not :function (...) 1586s [00:53:06.012] $ dim : NULL 1586s [00:53:06.012] $ valid_types : chr "character" 1586s [00:53:06.012] $ ... : list() 1586s [00:53:06.012] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1586s [00:53:06.012] - attr(*, "where")=List of 8 1586s [00:53:06.012] ..$ ...future.FUN: 1586s [00:53:06.012] ..$ x_FUN : 1586s [00:53:06.012] ..$ times : 1586s [00:53:06.012] ..$ stopf : 1586s [00:53:06.012] ..$ stop_if_not : 1586s [00:53:06.012] ..$ dim : 1586s [00:53:06.012] ..$ valid_types : 1586s [00:53:06.012] ..$ ... : 1586s [00:53:06.012] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1586s [00:53:06.012] - attr(*, "resolved")= logi FALSE 1586s [00:53:06.012] - attr(*, "total_size")= num 94208 1586s [00:53:06.022] Packages to be attached in all futures: [n=1] ‘future.apply’ 1586s [00:53:06.023] getGlobalsAndPackagesXApply() ... DONE 1586s [00:53:06.024] Number of futures (= number of chunks): 1 1586s [00:53:06.024] Launching 1 futures (chunks) ... 1586s [00:53:06.024] Chunk #1 of 1 ... 1586s [00:53:06.025] - Finding globals in 'X' for chunk #1 ... 1586s [00:53:06.029] getGlobalsAndPackages() ... 1586s [00:53:06.029] Searching for globals... 1586s [00:53:06.030] 1586s [00:53:06.030] Searching for globals ... DONE 1586s [00:53:06.030] - globals: [0] 1586s [00:53:06.030] getGlobalsAndPackages() ... DONE 1586s [00:53:06.030] + additional globals found: [n=0] 1586s [00:53:06.031] + additional namespaces needed: [n=0] 1586s [00:53:06.031] - Finding globals in 'X' for chunk #1 ... DONE 1586s [00:53:06.031] - seeds: 1586s [00:53:06.032] - All globals exported: [n=11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1586s [00:53:06.033] getGlobalsAndPackages() ... 1586s [00:53:06.033] - globals passed as-is: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1586s [00:53:06.034] Resolving globals: FALSE 1586s [00:53:06.034] Tweak future expression to call with '...' arguments ... 1586s [00:53:06.034] { 1586s [00:53:06.034] do.call(function(...) { 1586s [00:53:06.034] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1586s [00:53:06.034] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1586s [00:53:06.034] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1586s [00:53:06.034] on.exit(options(oopts), add = TRUE) 1586s [00:53:06.034] } 1586s [00:53:06.034] { 1586s [00:53:06.034] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1586s [00:53:06.034] ...future.X_jj <- ...future.elements_ii[[jj]] 1586s [00:53:06.034] ...future.FUN(...future.X_jj, ...) 1586s [00:53:06.034] }) 1586s [00:53:06.034] } 1586s [00:53:06.034] }, args = future.call.arguments) 1586s [00:53:06.034] } 1586s [00:53:06.035] Tweak future expression to call with '...' arguments ... DONE 1586s [00:53:06.036] - globals: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1586s [00:53:06.037] - packages: [1] ‘future.apply’ 1586s [00:53:06.037] getGlobalsAndPackages() ... DONE 1586s [00:53:06.039] run() for ‘Future’ ... 1586s [00:53:06.039] - state: ‘created’ 1586s [00:53:06.040] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1586s [00:53:06.041] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1586s [00:53:06.042] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1586s [00:53:06.042] - Field: ‘label’ 1586s [00:53:06.043] - Field: ‘local’ 1586s [00:53:06.043] - Field: ‘owner’ 1586s [00:53:06.044] - Field: ‘envir’ 1586s [00:53:06.044] - Field: ‘packages’ 1586s [00:53:06.045] - Field: ‘gc’ 1586s [00:53:06.045] - Field: ‘conditions’ 1586s [00:53:06.046] - Field: ‘expr’ 1586s [00:53:06.046] - Field: ‘uuid’ 1586s [00:53:06.047] - Field: ‘seed’ 1586s [00:53:06.047] - Field: ‘version’ 1586s [00:53:06.047] - Field: ‘result’ 1586s [00:53:06.048] - Field: ‘asynchronous’ 1586s [00:53:06.048] - Field: ‘calls’ 1586s [00:53:06.049] - Field: ‘globals’ 1586s [00:53:06.049] - Field: ‘stdout’ 1586s [00:53:06.049] - Field: ‘earlySignal’ 1586s [00:53:06.050] - Field: ‘lazy’ 1586s [00:53:06.051] - Field: ‘state’ 1586s [00:53:06.051] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1586s [00:53:06.052] - Launch lazy future ... 1586s [00:53:06.056] Packages needed by the future expression (n = 1): ‘future.apply’ 1586s [00:53:06.056] Packages needed by future strategies (n = 0): 1586s [00:53:06.058] { 1586s [00:53:06.058] { 1586s [00:53:06.058] { 1586s [00:53:06.058] ...future.startTime <- base::Sys.time() 1586s [00:53:06.058] { 1586s [00:53:06.058] { 1586s [00:53:06.058] { 1586s [00:53:06.058] { 1586s [00:53:06.058] base::local({ 1586s [00:53:06.058] has_future <- base::requireNamespace("future", 1586s [00:53:06.058] quietly = TRUE) 1586s [00:53:06.058] if (has_future) { 1586s [00:53:06.058] ns <- base::getNamespace("future") 1586s [00:53:06.058] version <- ns[[".package"]][["version"]] 1586s [00:53:06.058] if (is.null(version)) 1586s [00:53:06.058] version <- utils::packageVersion("future") 1586s [00:53:06.058] } 1586s [00:53:06.058] else { 1586s [00:53:06.058] version <- NULL 1586s [00:53:06.058] } 1586s [00:53:06.058] if (!has_future || version < "1.8.0") { 1586s [00:53:06.058] info <- base::c(r_version = base::gsub("R version ", 1586s [00:53:06.058] "", base::R.version$version.string), 1586s [00:53:06.058] platform = base::sprintf("%s (%s-bit)", 1586s [00:53:06.058] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1586s [00:53:06.058] os = base::paste(base::Sys.info()[base::c("sysname", 1586s [00:53:06.058] "release", "version")], collapse = " "), 1586s [00:53:06.058] hostname = base::Sys.info()[["nodename"]]) 1586s [00:53:06.058] info <- base::sprintf("%s: %s", base::names(info), 1586s [00:53:06.058] info) 1586s [00:53:06.058] info <- base::paste(info, collapse = "; ") 1586s [00:53:06.058] if (!has_future) { 1586s [00:53:06.058] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1586s [00:53:06.058] info) 1586s [00:53:06.058] } 1586s [00:53:06.058] else { 1586s [00:53:06.058] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1586s [00:53:06.058] info, version) 1586s [00:53:06.058] } 1586s [00:53:06.058] base::stop(msg) 1586s [00:53:06.058] } 1586s [00:53:06.058] }) 1586s [00:53:06.058] } 1586s [00:53:06.058] base::local({ 1586s [00:53:06.058] for (pkg in "future.apply") { 1586s [00:53:06.058] base::loadNamespace(pkg) 1586s [00:53:06.058] base::library(pkg, character.only = TRUE) 1586s [00:53:06.058] } 1586s [00:53:06.058] }) 1586s [00:53:06.058] } 1586s [00:53:06.058] options(future.plan = NULL) 1586s [00:53:06.058] Sys.unsetenv("R_FUTURE_PLAN") 1586s [00:53:06.058] future::plan("default", .cleanup = FALSE, .init = FALSE) 1586s [00:53:06.058] } 1586s [00:53:06.058] ...future.workdir <- getwd() 1586s [00:53:06.058] } 1586s [00:53:06.058] ...future.oldOptions <- base::as.list(base::.Options) 1586s [00:53:06.058] ...future.oldEnvVars <- base::Sys.getenv() 1586s [00:53:06.058] } 1586s [00:53:06.058] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1586s [00:53:06.058] future.globals.maxSize = NULL, future.globals.method = NULL, 1586s [00:53:06.058] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1586s [00:53:06.058] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1586s [00:53:06.058] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1586s [00:53:06.058] future.stdout.windows.reencode = NULL, width = 80L) 1586s [00:53:06.058] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1586s [00:53:06.058] base::names(...future.oldOptions)) 1586s [00:53:06.058] } 1586s [00:53:06.058] if (FALSE) { 1586s [00:53:06.058] } 1586s [00:53:06.058] else { 1586s [00:53:06.058] if (TRUE) { 1586s [00:53:06.058] ...future.stdout <- base::rawConnection(base::raw(0L), 1586s [00:53:06.058] open = "w") 1586s [00:53:06.058] } 1586s [00:53:06.058] else { 1586s [00:53:06.058] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1586s [00:53:06.058] windows = "NUL", "/dev/null"), open = "w") 1586s [00:53:06.058] } 1586s [00:53:06.058] base::sink(...future.stdout, type = "output", split = FALSE) 1586s [00:53:06.058] base::on.exit(if (!base::is.null(...future.stdout)) { 1586s [00:53:06.058] base::sink(type = "output", split = FALSE) 1586s [00:53:06.058] base::close(...future.stdout) 1586s [00:53:06.058] }, add = TRUE) 1586s [00:53:06.058] } 1586s [00:53:06.058] ...future.frame <- base::sys.nframe() 1586s [00:53:06.058] ...future.conditions <- base::list() 1586s [00:53:06.058] ...future.rng <- base::globalenv()$.Random.seed 1586s [00:53:06.058] if (FALSE) { 1586s [00:53:06.058] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1586s [00:53:06.058] "...future.value", "...future.globalenv.names", ".Random.seed") 1586s [00:53:06.058] } 1586s [00:53:06.058] ...future.result <- base::tryCatch({ 1586s [00:53:06.058] base::withCallingHandlers({ 1586s [00:53:06.058] ...future.value <- base::withVisible(base::local({ 1586s [00:53:06.058] do.call(function(...) { 1586s [00:53:06.058] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1586s [00:53:06.058] if (!identical(...future.globals.maxSize.org, 1586s [00:53:06.058] ...future.globals.maxSize)) { 1586s [00:53:06.058] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1586s [00:53:06.058] on.exit(options(oopts), add = TRUE) 1586s [00:53:06.058] } 1586s [00:53:06.058] { 1586s [00:53:06.058] lapply(seq_along(...future.elements_ii), 1586s [00:53:06.058] FUN = function(jj) { 1586s [00:53:06.058] ...future.X_jj <- ...future.elements_ii[[jj]] 1586s [00:53:06.058] ...future.FUN(...future.X_jj, ...) 1586s [00:53:06.058] }) 1586s [00:53:06.058] } 1586s [00:53:06.058] }, args = future.call.arguments) 1586s [00:53:06.058] })) 1586s [00:53:06.058] future::FutureResult(value = ...future.value$value, 1586s [00:53:06.058] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1586s [00:53:06.058] ...future.rng), globalenv = if (FALSE) 1586s [00:53:06.058] list(added = base::setdiff(base::names(base::.GlobalEnv), 1586s [00:53:06.058] ...future.globalenv.names)) 1586s [00:53:06.058] else NULL, started = ...future.startTime, version = "1.8") 1586s [00:53:06.058] }, condition = base::local({ 1586s [00:53:06.058] c <- base::c 1586s [00:53:06.058] inherits <- base::inherits 1586s [00:53:06.058] invokeRestart <- base::invokeRestart 1586s [00:53:06.058] length <- base::length 1586s [00:53:06.058] list <- base::list 1586s [00:53:06.058] seq.int <- base::seq.int 1586s [00:53:06.058] signalCondition <- base::signalCondition 1586s [00:53:06.058] sys.calls <- base::sys.calls 1586s [00:53:06.058] `[[` <- base::`[[` 1586s [00:53:06.058] `+` <- base::`+` 1586s [00:53:06.058] `<<-` <- base::`<<-` 1586s [00:53:06.058] sysCalls <- function(calls = sys.calls(), from = 1L) { 1586s [00:53:06.058] calls[seq.int(from = from + 12L, to = length(calls) - 1586s [00:53:06.058] 3L)] 1586s [00:53:06.058] } 1586s [00:53:06.058] function(cond) { 1586s [00:53:06.058] is_error <- inherits(cond, "error") 1586s [00:53:06.058] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1586s [00:53:06.058] NULL) 1586s [00:53:06.058] if (is_error) { 1586s [00:53:06.058] sessionInformation <- function() { 1586s [00:53:06.058] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1586s [00:53:06.058] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1586s [00:53:06.058] search = base::search(), system = base::Sys.info()) 1586s [00:53:06.058] } 1586s [00:53:06.058] ...future.conditions[[length(...future.conditions) + 1586s [00:53:06.058] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1586s [00:53:06.058] cond$call), session = sessionInformation(), 1586s [00:53:06.058] timestamp = base::Sys.time(), signaled = 0L) 1586s [00:53:06.058] signalCondition(cond) 1586s [00:53:06.058] } 1586s [00:53:06.058] else if (!ignore && TRUE && inherits(cond, c("condition", 1586s [00:53:06.058] "immediateCondition"))) { 1586s [00:53:06.058] signal <- TRUE && inherits(cond, "immediateCondition") 1586s [00:53:06.058] ...future.conditions[[length(...future.conditions) + 1586s [00:53:06.058] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1586s [00:53:06.058] if (TRUE && !signal) { 1586s [00:53:06.058] muffleCondition <- function (cond, pattern = "^muffle") 1586s [00:53:06.058] { 1586s [00:53:06.058] inherits <- base::inherits 1586s [00:53:06.058] invokeRestart <- base::invokeRestart 1586s [00:53:06.058] is.null <- base::is.null 1586s [00:53:06.058] muffled <- FALSE 1586s [00:53:06.058] if (inherits(cond, "message")) { 1586s [00:53:06.058] muffled <- grepl(pattern, "muffleMessage") 1586s [00:53:06.058] if (muffled) 1586s [00:53:06.058] invokeRestart("muffleMessage") 1586s [00:53:06.058] } 1586s [00:53:06.058] else if (inherits(cond, "warning")) { 1586s [00:53:06.058] muffled <- grepl(pattern, "muffleWarning") 1586s [00:53:06.058] if (muffled) 1586s [00:53:06.058] invokeRestart("muffleWarning") 1586s [00:53:06.058] } 1586s [00:53:06.058] else if (inherits(cond, "condition")) { 1586s [00:53:06.058] if (!is.null(pattern)) { 1586s [00:53:06.058] computeRestarts <- base::computeRestarts 1586s [00:53:06.058] grepl <- base::grepl 1586s [00:53:06.058] restarts <- computeRestarts(cond) 1586s [00:53:06.058] for (restart in restarts) { 1586s [00:53:06.058] name <- restart$name 1586s [00:53:06.058] if (is.null(name)) 1586s [00:53:06.058] next 1586s [00:53:06.058] if (!grepl(pattern, name)) 1586s [00:53:06.058] next 1586s [00:53:06.058] invokeRestart(restart) 1586s [00:53:06.058] muffled <- TRUE 1586s [00:53:06.058] break 1586s [00:53:06.058] } 1586s [00:53:06.058] } 1586s [00:53:06.058] } 1586s [00:53:06.058] invisible(muffled) 1586s [00:53:06.058] } 1586s [00:53:06.058] muffleCondition(cond, pattern = "^muffle") 1586s [00:53:06.058] } 1586s [00:53:06.058] } 1586s [00:53:06.058] else { 1586s [00:53:06.058] if (TRUE) { 1586s [00:53:06.058] muffleCondition <- function (cond, pattern = "^muffle") 1586s [00:53:06.058] { 1586s [00:53:06.058] inherits <- base::inherits 1586s [00:53:06.058] invokeRestart <- base::invokeRestart 1586s [00:53:06.058] is.null <- base::is.null 1586s [00:53:06.058] muffled <- FALSE 1586s [00:53:06.058] if (inherits(cond, "message")) { 1586s [00:53:06.058] muffled <- grepl(pattern, "muffleMessage") 1586s [00:53:06.058] if (muffled) 1586s [00:53:06.058] invokeRestart("muffleMessage") 1586s [00:53:06.058] } 1586s [00:53:06.058] else if (inherits(cond, "warning")) { 1586s [00:53:06.058] muffled <- grepl(pattern, "muffleWarning") 1586s [00:53:06.058] if (muffled) 1586s [00:53:06.058] invokeRestart("muffleWarning") 1586s [00:53:06.058] } 1586s [00:53:06.058] else if (inherits(cond, "condition")) { 1586s [00:53:06.058] if (!is.null(pattern)) { 1586s [00:53:06.058] computeRestarts <- base::computeRestarts 1586s [00:53:06.058] grepl <- base::grepl 1586s [00:53:06.058] restarts <- computeRestarts(cond) 1586s [00:53:06.058] for (restart in restarts) { 1586s [00:53:06.058] name <- restart$name 1586s [00:53:06.058] if (is.null(name)) 1586s [00:53:06.058] next 1586s [00:53:06.058] if (!grepl(pattern, name)) 1586s [00:53:06.058] next 1586s [00:53:06.058] invokeRestart(restart) 1586s [00:53:06.058] muffled <- TRUE 1586s [00:53:06.058] break 1586s [00:53:06.058] } 1586s [00:53:06.058] } 1586s [00:53:06.058] } 1586s [00:53:06.058] invisible(muffled) 1586s [00:53:06.058] } 1586s [00:53:06.058] muffleCondition(cond, pattern = "^muffle") 1586s [00:53:06.058] } 1586s [00:53:06.058] } 1586s [00:53:06.058] } 1586s [00:53:06.058] })) 1586s [00:53:06.058] }, error = function(ex) { 1586s [00:53:06.058] base::structure(base::list(value = NULL, visible = NULL, 1586s [00:53:06.058] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1586s [00:53:06.058] ...future.rng), started = ...future.startTime, 1586s [00:53:06.058] finished = Sys.time(), session_uuid = NA_character_, 1586s [00:53:06.058] version = "1.8"), class = "FutureResult") 1586s [00:53:06.058] }, finally = { 1586s [00:53:06.058] if (!identical(...future.workdir, getwd())) 1586s [00:53:06.058] setwd(...future.workdir) 1586s [00:53:06.058] { 1586s [00:53:06.058] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1586s [00:53:06.058] ...future.oldOptions$nwarnings <- NULL 1586s [00:53:06.058] } 1586s [00:53:06.058] base::options(...future.oldOptions) 1586s [00:53:06.058] if (.Platform$OS.type == "windows") { 1586s [00:53:06.058] old_names <- names(...future.oldEnvVars) 1586s [00:53:06.058] envs <- base::Sys.getenv() 1586s [00:53:06.058] names <- names(envs) 1586s [00:53:06.058] common <- intersect(names, old_names) 1586s [00:53:06.058] added <- setdiff(names, old_names) 1586s [00:53:06.058] removed <- setdiff(old_names, names) 1586s [00:53:06.058] changed <- common[...future.oldEnvVars[common] != 1586s [00:53:06.058] envs[common]] 1586s [00:53:06.058] NAMES <- toupper(changed) 1586s [00:53:06.058] args <- list() 1586s [00:53:06.058] for (kk in seq_along(NAMES)) { 1586s [00:53:06.058] name <- changed[[kk]] 1586s [00:53:06.058] NAME <- NAMES[[kk]] 1586s [00:53:06.058] if (name != NAME && is.element(NAME, old_names)) 1586s [00:53:06.058] next 1586s [00:53:06.058] args[[name]] <- ...future.oldEnvVars[[name]] 1586s [00:53:06.058] } 1586s [00:53:06.058] NAMES <- toupper(added) 1586s [00:53:06.058] for (kk in seq_along(NAMES)) { 1586s [00:53:06.058] name <- added[[kk]] 1586s [00:53:06.058] NAME <- NAMES[[kk]] 1586s [00:53:06.058] if (name != NAME && is.element(NAME, old_names)) 1586s [00:53:06.058] next 1586s [00:53:06.058] args[[name]] <- "" 1586s [00:53:06.058] } 1586s [00:53:06.058] NAMES <- toupper(removed) 1586s [00:53:06.058] for (kk in seq_along(NAMES)) { 1586s [00:53:06.058] name <- removed[[kk]] 1586s [00:53:06.058] NAME <- NAMES[[kk]] 1586s [00:53:06.058] if (name != NAME && is.element(NAME, old_names)) 1586s [00:53:06.058] next 1586s [00:53:06.058] args[[name]] <- ...future.oldEnvVars[[name]] 1586s [00:53:06.058] } 1586s [00:53:06.058] if (length(args) > 0) 1586s [00:53:06.058] base::do.call(base::Sys.setenv, args = args) 1586s [00:53:06.058] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1586s [00:53:06.058] } 1586s [00:53:06.058] else { 1586s [00:53:06.058] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1586s [00:53:06.058] } 1586s [00:53:06.058] { 1586s [00:53:06.058] if (base::length(...future.futureOptionsAdded) > 1586s [00:53:06.058] 0L) { 1586s [00:53:06.058] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1586s [00:53:06.058] base::names(opts) <- ...future.futureOptionsAdded 1586s [00:53:06.058] base::options(opts) 1586s [00:53:06.058] } 1586s [00:53:06.058] { 1586s [00:53:06.058] { 1586s [00:53:06.058] NULL 1586s [00:53:06.058] RNGkind("Mersenne-Twister") 1586s [00:53:06.058] base::rm(list = ".Random.seed", envir = base::globalenv(), 1586s [00:53:06.058] inherits = FALSE) 1586s [00:53:06.058] } 1586s [00:53:06.058] options(future.plan = NULL) 1586s [00:53:06.058] if (is.na(NA_character_)) 1586s [00:53:06.058] Sys.unsetenv("R_FUTURE_PLAN") 1586s [00:53:06.058] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1586s [00:53:06.058] future::plan(list(function (..., envir = parent.frame()) 1586s [00:53:06.058] { 1586s [00:53:06.058] future <- SequentialFuture(..., envir = envir) 1586s [00:53:06.058] if (!future$lazy) 1586s [00:53:06.058] future <- run(future) 1586s [00:53:06.058] invisible(future) 1586s [00:53:06.058] }), .cleanup = FALSE, .init = FALSE) 1586s [00:53:06.058] } 1586s [00:53:06.058] } 1586s [00:53:06.058] } 1586s [00:53:06.058] }) 1586s [00:53:06.058] if (TRUE) { 1586s [00:53:06.058] base::sink(type = "output", split = FALSE) 1586s [00:53:06.058] if (TRUE) { 1586s [00:53:06.058] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1586s [00:53:06.058] } 1586s [00:53:06.058] else { 1586s [00:53:06.058] ...future.result["stdout"] <- base::list(NULL) 1586s [00:53:06.058] } 1586s [00:53:06.058] base::close(...future.stdout) 1586s [00:53:06.058] ...future.stdout <- NULL 1586s [00:53:06.058] } 1586s [00:53:06.058] ...future.result$conditions <- ...future.conditions 1586s [00:53:06.058] ...future.result$finished <- base::Sys.time() 1586s [00:53:06.058] ...future.result 1586s [00:53:06.058] } 1586s [00:53:06.064] assign_globals() ... 1586s [00:53:06.065] List of 11 1586s [00:53:06.065] $ ...future.FUN :function (x, ...) 1586s [00:53:06.065] $ x_FUN :function (x) 1586s [00:53:06.065] $ times : int 1 1586s [00:53:06.065] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1586s [00:53:06.065] $ stop_if_not :function (...) 1586s [00:53:06.065] $ dim : NULL 1586s [00:53:06.065] $ valid_types : chr "character" 1586s [00:53:06.065] $ future.call.arguments : list() 1586s [00:53:06.065] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1586s [00:53:06.065] $ ...future.elements_ii :List of 2 1586s [00:53:06.065] ..$ x: int [1:10] 1 2 3 4 5 6 7 8 9 10 1586s [00:53:06.065] ..$ y: chr [1:10] "a" "b" "c" "d" ... 1586s [00:53:06.065] $ ...future.seeds_ii : NULL 1586s [00:53:06.065] $ ...future.globals.maxSize: NULL 1586s [00:53:06.065] - attr(*, "where")=List of 11 1586s [00:53:06.065] ..$ ...future.FUN : 1586s [00:53:06.065] ..$ x_FUN : 1586s [00:53:06.065] ..$ times : 1586s [00:53:06.065] ..$ stopf : 1586s [00:53:06.065] ..$ stop_if_not : 1586s [00:53:06.065] ..$ dim : 1586s [00:53:06.065] ..$ valid_types : 1586s [00:53:06.065] ..$ future.call.arguments : 1586s [00:53:06.065] ..$ ...future.elements_ii : 1586s [00:53:06.065] ..$ ...future.seeds_ii : 1586s [00:53:06.065] ..$ ...future.globals.maxSize: 1586s [00:53:06.065] - attr(*, "resolved")= logi FALSE 1586s [00:53:06.065] - attr(*, "total_size")= num 94208 1586s [00:53:06.065] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1586s [00:53:06.065] - attr(*, "already-done")= logi TRUE 1586s [00:53:06.079] - copied ‘...future.FUN’ to environment 1586s [00:53:06.080] - copied ‘x_FUN’ to environment 1586s [00:53:06.080] - copied ‘times’ to environment 1586s [00:53:06.082] - copied ‘stopf’ to environment 1586s [00:53:06.083] - copied ‘stop_if_not’ to environment 1586s [00:53:06.084] - copied ‘dim’ to environment 1586s [00:53:06.085] - copied ‘valid_types’ to environment 1586s [00:53:06.085] - copied ‘future.call.arguments’ to environment 1586s [00:53:06.086] - copied ‘...future.elements_ii’ to environment 1586s [00:53:06.086] - copied ‘...future.seeds_ii’ to environment 1586s [00:53:06.086] - copied ‘...future.globals.maxSize’ to environment 1586s [00:53:06.086] assign_globals() ... done 1586s [00:53:06.088] plan(): Setting new future strategy stack: 1586s [00:53:06.089] List of future strategies: 1586s [00:53:06.089] 1. sequential: 1586s [00:53:06.089] - args: function (..., envir = parent.frame()) 1586s [00:53:06.089] - tweaked: FALSE 1586s [00:53:06.089] - call: NULL 1586s [00:53:06.092] plan(): nbrOfWorkers() = 1 1586s [00:53:06.096] plan(): Setting new future strategy stack: 1586s [00:53:06.096] List of future strategies: 1586s [00:53:06.096] 1. sequential: 1586s [00:53:06.096] - args: function (..., envir = parent.frame()) 1586s [00:53:06.096] - tweaked: FALSE 1586s [00:53:06.096] - call: plan(strategy) 1586s [00:53:06.097] plan(): nbrOfWorkers() = 1 1586s [00:53:06.098] SequentialFuture started (and completed) 1586s [00:53:06.099] - Launch lazy future ... done 1586s [00:53:06.100] run() for ‘SequentialFuture’ ... done 1586s [00:53:06.100] Created future: 1586s [00:53:06.102] SequentialFuture: 1586s [00:53:06.102] Label: ‘future_vapply-1’ 1586s [00:53:06.102] Expression: 1586s [00:53:06.102] { 1586s [00:53:06.102] do.call(function(...) { 1586s [00:53:06.102] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1586s [00:53:06.102] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1586s [00:53:06.102] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1586s [00:53:06.102] on.exit(options(oopts), add = TRUE) 1586s [00:53:06.102] } 1586s [00:53:06.102] { 1586s [00:53:06.102] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1586s [00:53:06.102] ...future.X_jj <- ...future.elements_ii[[jj]] 1586s [00:53:06.102] ...future.FUN(...future.X_jj, ...) 1586s [00:53:06.102] }) 1586s [00:53:06.102] } 1586s [00:53:06.102] }, args = future.call.arguments) 1586s [00:53:06.102] } 1586s [00:53:06.102] Lazy evaluation: FALSE 1586s [00:53:06.102] Asynchronous evaluation: FALSE 1586s [00:53:06.102] Local evaluation: TRUE 1586s [00:53:06.102] Environment: R_GlobalEnv 1586s [00:53:06.102] Capture standard output: TRUE 1586s [00:53:06.102] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1586s [00:53:06.102] Globals: 11 objects totaling 92.81 KiB (function ‘...future.FUN’ of 21.22 KiB, function ‘x_FUN’ of 56 bytes, integer ‘times’ of 56 bytes, function ‘stopf’ of 26.43 KiB, function ‘stop_if_not’ of 44.12 KiB, ...) 1586s [00:53:06.102] Packages: 1 packages (‘future.apply’) 1586s [00:53:06.102] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1586s [00:53:06.102] Resolved: TRUE 1586s [00:53:06.102] Value: 232 bytes of class ‘list’ 1586s [00:53:06.102] Early signaling: FALSE 1586s [00:53:06.102] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1586s [00:53:06.102] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1586s [00:53:06.111] Chunk #1 of 1 ... DONE 1586s [00:53:06.111] Launching 1 futures (chunks) ... DONE 1586s [00:53:06.112] Resolving 1 futures (chunks) ... 1586s [00:53:06.112] resolve() on list ... 1586s [00:53:06.112] recursive: 0 1586s [00:53:06.112] length: 1 1586s [00:53:06.112] 1586s [00:53:06.113] resolved() for ‘SequentialFuture’ ... 1586s [00:53:06.113] - state: ‘finished’ 1586s [00:53:06.113] - run: TRUE 1586s [00:53:06.113] - result: ‘FutureResult’ 1586s [00:53:06.113] resolved() for ‘SequentialFuture’ ... done 1586s [00:53:06.113] Future #1 1586s [00:53:06.114] signalConditionsASAP(SequentialFuture, pos=1) ... 1586s [00:53:06.114] - nx: 1 1586s [00:53:06.114] - relay: TRUE 1586s [00:53:06.114] - stdout: TRUE 1586s [00:53:06.114] - signal: TRUE 1586s [00:53:06.114] - resignal: FALSE 1586s [00:53:06.115] - force: TRUE 1586s [00:53:06.115] - relayed: [n=1] FALSE 1586s [00:53:06.115] - queued futures: [n=1] FALSE 1586s [00:53:06.115] - until=1 1586s [00:53:06.115] - relaying element #1 1586s [00:53:06.115] - relayed: [n=1] TRUE 1586s [00:53:06.115] - queued futures: [n=1] TRUE 1586s [00:53:06.115] signalConditionsASAP(SequentialFuture, pos=1) ... done 1586s [00:53:06.116] length: 0 (resolved future 1) 1586s [00:53:06.119] Relaying remaining futures 1586s [00:53:06.119] signalConditionsASAP(NULL, pos=0) ... 1586s [00:53:06.119] - nx: 1 1586s [00:53:06.119] - relay: TRUE 1586s [00:53:06.119] - stdout: TRUE 1586s [00:53:06.119] - signal: TRUE 1586s [00:53:06.119] - resignal: FALSE 1586s [00:53:06.119] - force: TRUE 1586s [00:53:06.119] - relayed: [n=1] TRUE 1586s [00:53:06.120] - queued futures: [n=1] TRUE 1586s - flush all 1586s [00:53:06.120] - relayed: [n=1] TRUE 1586s [00:53:06.120] - queued futures: [n=1] TRUE 1586s [00:53:06.120] signalConditionsASAP(NULL, pos=0) ... done 1586s [00:53:06.120] resolve() on list ... DONE 1586s [00:53:06.121] - Number of value chunks collected: 1 1586s [00:53:06.121] Resolving 1 futures (chunks) ... DONE 1586s [00:53:06.121] Reducing values from 1 chunks ... 1586s [00:53:06.121] - Number of values collected after concatenation: 2 1586s [00:53:06.121] - Number of values expected: 2 1586s [00:53:06.121] Reducing values from 1 chunks ... DONE 1586s [00:53:06.122] future_lapply() ... DONE 1586s Named chr [1:2] "integer" "character" 1586s - attr(*, "names")= chr [1:2] "x" "y" 1586s num[0 , 1:10] 1586s [00:53:06.125] future_lapply() ... 1586s [00:53:06.133] Number of chunks: 1 1586s [00:53:06.133] getGlobalsAndPackagesXApply() ... 1586s [00:53:06.134] - future.globals: TRUE 1586s [00:53:06.135] getGlobalsAndPackages() ... 1586s [00:53:06.135] Searching for globals... 1586s [00:53:06.148] - globals found: [17] ‘FUN’, ‘{’, ‘<-’, ‘x_FUN’, ‘if’, ‘!=’, ‘length’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘all’, ‘==’, ‘dim’, ‘%in%’, ‘typeof’, ‘valid_types’, ‘double’ 1586s [00:53:06.149] Searching for globals ... DONE 1586s [00:53:06.152] Resolving globals: FALSE 1586s [00:53:06.153] The total size of the 7 globals is 93.23 KiB (95472 bytes) 1586s [00:53:06.154] The total size of the 7 globals exported for future expression (‘FUN()’) is 93.23 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘stop_if_not’ (44.12 KiB of class ‘function’), ‘stopf’ (26.43 KiB of class ‘function’) and ‘FUN’ (21.22 KiB of class ‘function’) 1586s [00:53:06.155] - globals: [7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1586s [00:53:06.156] - packages: [1] ‘future.apply’ 1586s [00:53:06.156] getGlobalsAndPackages() ... DONE 1586s [00:53:06.156] - globals found/used: [n=7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1586s [00:53:06.156] - needed namespaces: [n=1] ‘future.apply’ 1586s [00:53:06.156] Finding globals ... DONE 1586s [00:53:06.157] - use_args: TRUE 1586s [00:53:06.157] - Getting '...' globals ... 1586s [00:53:06.158] resolve() on list ... 1586s [00:53:06.158] recursive: 0 1586s [00:53:06.159] length: 1 1586s [00:53:06.159] elements: ‘...’ 1586s [00:53:06.161] length: 0 (resolved future 1) 1586s [00:53:06.162] resolve() on list ... DONE 1586s [00:53:06.162] - '...' content: [n=0] 1586s [00:53:06.163] List of 1 1586s [00:53:06.163] $ ...: list() 1586s [00:53:06.163] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1586s [00:53:06.163] - attr(*, "where")=List of 1 1586s [00:53:06.163] ..$ ...: 1586s [00:53:06.163] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1586s [00:53:06.163] - attr(*, "resolved")= logi TRUE 1586s [00:53:06.163] - attr(*, "total_size")= num NA 1586s [00:53:06.168] - Getting '...' globals ... DONE 1586s [00:53:06.168] Globals to be used in all futures (chunks): [n=8] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’ 1586s [00:53:06.168] List of 8 1586s [00:53:06.168] $ ...future.FUN:function (x, ...) 1586s [00:53:06.168] $ x_FUN :function (x) 1586s [00:53:06.168] $ times : int 0 1586s [00:53:06.168] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1586s [00:53:06.168] $ stop_if_not :function (...) 1586s [00:53:06.168] $ dim : NULL 1586s [00:53:06.168] $ valid_types : chr [1:3] "logical" "integer" "double" 1586s [00:53:06.168] $ ... : list() 1586s [00:53:06.168] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1586s [00:53:06.168] - attr(*, "where")=List of 8 1586s [00:53:06.168] ..$ ...future.FUN: 1586s [00:53:06.168] ..$ x_FUN : 1586s [00:53:06.168] ..$ times : 1586s [00:53:06.168] ..$ stopf : 1586s [00:53:06.168] ..$ stop_if_not : 1586s [00:53:06.168] ..$ dim : 1586s [00:53:06.168] ..$ valid_types : 1586s [00:53:06.168] ..$ ... : 1586s [00:53:06.168] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1586s [00:53:06.168] - attr(*, "resolved")= logi FALSE 1586s [00:53:06.168] - attr(*, "total_size")= num 95472 1586s [00:53:06.179] Packages to be attached in all futures: [n=1] ‘future.apply’ 1586s [00:53:06.179] getGlobalsAndPackagesXApply() ... DONE 1586s [00:53:06.180] Number of futures (= number of chunks): 1 1586s [00:53:06.180] Launching 1 futures (chunks) ... 1586s [00:53:06.180] Chunk #1 of 1 ... 1586s [00:53:06.181] - Finding globals in 'X' for chunk #1 ... 1586s [00:53:06.181] getGlobalsAndPackages() ... 1586s [00:53:06.181] Searching for globals... 1586s [00:53:06.184] 1586s [00:53:06.184] Searching for globals ... DONE 1586s [00:53:06.184] - globals: [0] 1586s [00:53:06.184] getGlobalsAndPackages() ... DONE 1586s [00:53:06.185] + additional globals found: [n=0] 1586s [00:53:06.185] + additional namespaces needed: [n=0] 1586s [00:53:06.185] - Finding globals in 'X' for chunk #1 ... DONE 1586s [00:53:06.185] - seeds: 1586s [00:53:06.185] - All globals exported: [n=11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1586s [00:53:06.186] getGlobalsAndPackages() ... 1586s [00:53:06.186] - globals passed as-is: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1586s [00:53:06.186] Resolving globals: FALSE 1586s [00:53:06.186] Tweak future expression to call with '...' arguments ... 1586s [00:53:06.186] { 1586s [00:53:06.186] do.call(function(...) { 1586s [00:53:06.186] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1586s [00:53:06.186] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1586s [00:53:06.186] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1586s [00:53:06.186] on.exit(options(oopts), add = TRUE) 1586s [00:53:06.186] } 1586s [00:53:06.186] { 1586s [00:53:06.186] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1586s [00:53:06.186] ...future.X_jj <- ...future.elements_ii[[jj]] 1586s [00:53:06.186] ...future.FUN(...future.X_jj, ...) 1586s [00:53:06.186] }) 1586s [00:53:06.186] } 1586s [00:53:06.186] }, args = future.call.arguments) 1586s [00:53:06.186] } 1586s [00:53:06.187] Tweak future expression to call with '...' arguments ... DONE 1586s [00:53:06.188] - globals: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1586s [00:53:06.188] - packages: [1] ‘future.apply’ 1586s [00:53:06.189] getGlobalsAndPackages() ... DONE 1586s [00:53:06.189] run() for ‘Future’ ... 1586s [00:53:06.189] - state: ‘created’ 1586s [00:53:06.190] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1586s [00:53:06.190] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1586s [00:53:06.190] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1586s [00:53:06.191] - Field: ‘label’ 1586s [00:53:06.191] - Field: ‘local’ 1586s [00:53:06.191] - Field: ‘owner’ 1586s [00:53:06.191] - Field: ‘envir’ 1586s [00:53:06.191] - Field: ‘packages’ 1586s [00:53:06.191] - Field: ‘gc’ 1586s [00:53:06.192] - Field: ‘conditions’ 1586s [00:53:06.192] - Field: ‘expr’ 1586s [00:53:06.192] - Field: ‘uuid’ 1586s [00:53:06.192] - Field: ‘seed’ 1586s [00:53:06.192] - Field: ‘version’ 1586s [00:53:06.193] - Field: ‘result’ 1586s [00:53:06.193] - Field: ‘asynchronous’ 1586s [00:53:06.193] - Field: ‘calls’ 1586s [00:53:06.193] - Field: ‘globals’ 1586s [00:53:06.193] - Field: ‘stdout’ 1586s [00:53:06.193] - Field: ‘earlySignal’ 1586s [00:53:06.194] - Field: ‘lazy’ 1586s [00:53:06.194] - Field: ‘state’ 1586s [00:53:06.194] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1586s [00:53:06.194] - Launch lazy future ... 1586s [00:53:06.195] Packages needed by the future expression (n = 1): ‘future.apply’ 1586s [00:53:06.195] Packages needed by future strategies (n = 0): 1586s [00:53:06.195] { 1586s [00:53:06.195] { 1586s [00:53:06.195] { 1586s [00:53:06.195] ...future.startTime <- base::Sys.time() 1586s [00:53:06.195] { 1586s [00:53:06.195] { 1586s [00:53:06.195] { 1586s [00:53:06.195] { 1586s [00:53:06.195] base::local({ 1586s [00:53:06.195] has_future <- base::requireNamespace("future", 1586s [00:53:06.195] quietly = TRUE) 1586s [00:53:06.195] if (has_future) { 1586s [00:53:06.195] ns <- base::getNamespace("future") 1586s [00:53:06.195] version <- ns[[".package"]][["version"]] 1586s [00:53:06.195] if (is.null(version)) 1586s [00:53:06.195] version <- utils::packageVersion("future") 1586s [00:53:06.195] } 1586s [00:53:06.195] else { 1586s [00:53:06.195] version <- NULL 1586s [00:53:06.195] } 1586s [00:53:06.195] if (!has_future || version < "1.8.0") { 1586s [00:53:06.195] info <- base::c(r_version = base::gsub("R version ", 1586s [00:53:06.195] "", base::R.version$version.string), 1586s [00:53:06.195] platform = base::sprintf("%s (%s-bit)", 1586s [00:53:06.195] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1586s [00:53:06.195] os = base::paste(base::Sys.info()[base::c("sysname", 1586s [00:53:06.195] "release", "version")], collapse = " "), 1586s [00:53:06.195] hostname = base::Sys.info()[["nodename"]]) 1586s [00:53:06.195] info <- base::sprintf("%s: %s", base::names(info), 1586s [00:53:06.195] info) 1586s [00:53:06.195] info <- base::paste(info, collapse = "; ") 1586s [00:53:06.195] if (!has_future) { 1586s [00:53:06.195] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1586s [00:53:06.195] info) 1586s [00:53:06.195] } 1586s [00:53:06.195] else { 1586s [00:53:06.195] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1586s [00:53:06.195] info, version) 1586s [00:53:06.195] } 1586s [00:53:06.195] base::stop(msg) 1586s [00:53:06.195] } 1586s [00:53:06.195] }) 1586s [00:53:06.195] } 1586s [00:53:06.195] base::local({ 1586s [00:53:06.195] for (pkg in "future.apply") { 1586s [00:53:06.195] base::loadNamespace(pkg) 1586s [00:53:06.195] base::library(pkg, character.only = TRUE) 1586s [00:53:06.195] } 1586s [00:53:06.195] }) 1586s [00:53:06.195] } 1586s [00:53:06.195] options(future.plan = NULL) 1586s [00:53:06.195] Sys.unsetenv("R_FUTURE_PLAN") 1586s [00:53:06.195] future::plan("default", .cleanup = FALSE, .init = FALSE) 1586s [00:53:06.195] } 1586s [00:53:06.195] ...future.workdir <- getwd() 1586s [00:53:06.195] } 1586s [00:53:06.195] ...future.oldOptions <- base::as.list(base::.Options) 1586s [00:53:06.195] ...future.oldEnvVars <- base::Sys.getenv() 1586s [00:53:06.195] } 1586s [00:53:06.195] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1586s [00:53:06.195] future.globals.maxSize = NULL, future.globals.method = NULL, 1586s [00:53:06.195] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1586s [00:53:06.195] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1586s [00:53:06.195] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1586s [00:53:06.195] future.stdout.windows.reencode = NULL, width = 80L) 1586s [00:53:06.195] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1586s [00:53:06.195] base::names(...future.oldOptions)) 1586s [00:53:06.195] } 1586s [00:53:06.195] if (FALSE) { 1586s [00:53:06.195] } 1586s [00:53:06.195] else { 1586s [00:53:06.195] if (TRUE) { 1586s [00:53:06.195] ...future.stdout <- base::rawConnection(base::raw(0L), 1586s [00:53:06.195] open = "w") 1586s [00:53:06.195] } 1586s [00:53:06.195] else { 1586s [00:53:06.195] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1586s [00:53:06.195] windows = "NUL", "/dev/null"), open = "w") 1586s [00:53:06.195] } 1586s [00:53:06.195] base::sink(...future.stdout, type = "output", split = FALSE) 1586s [00:53:06.195] base::on.exit(if (!base::is.null(...future.stdout)) { 1586s [00:53:06.195] base::sink(type = "output", split = FALSE) 1586s [00:53:06.195] base::close(...future.stdout) 1586s [00:53:06.195] }, add = TRUE) 1586s [00:53:06.195] } 1586s [00:53:06.195] ...future.frame <- base::sys.nframe() 1586s [00:53:06.195] ...future.conditions <- base::list() 1586s [00:53:06.195] ...future.rng <- base::globalenv()$.Random.seed 1586s [00:53:06.195] if (FALSE) { 1586s [00:53:06.195] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1586s [00:53:06.195] "...future.value", "...future.globalenv.names", ".Random.seed") 1586s [00:53:06.195] } 1586s [00:53:06.195] ...future.result <- base::tryCatch({ 1586s [00:53:06.195] base::withCallingHandlers({ 1586s [00:53:06.195] ...future.value <- base::withVisible(base::local({ 1586s [00:53:06.195] do.call(function(...) { 1586s [00:53:06.195] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1586s [00:53:06.195] if (!identical(...future.globals.maxSize.org, 1586s [00:53:06.195] ...future.globals.maxSize)) { 1586s [00:53:06.195] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1586s [00:53:06.195] on.exit(options(oopts), add = TRUE) 1586s [00:53:06.195] } 1586s [00:53:06.195] { 1586s [00:53:06.195] lapply(seq_along(...future.elements_ii), 1586s [00:53:06.195] FUN = function(jj) { 1586s [00:53:06.195] ...future.X_jj <- ...future.elements_ii[[jj]] 1586s [00:53:06.195] ...future.FUN(...future.X_jj, ...) 1586s [00:53:06.195] }) 1586s [00:53:06.195] } 1586s [00:53:06.195] }, args = future.call.arguments) 1586s [00:53:06.195] })) 1586s [00:53:06.195] future::FutureResult(value = ...future.value$value, 1586s [00:53:06.195] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1586s [00:53:06.195] ...future.rng), globalenv = if (FALSE) 1586s [00:53:06.195] list(added = base::setdiff(base::names(base::.GlobalEnv), 1586s [00:53:06.195] ...future.globalenv.names)) 1586s [00:53:06.195] else NULL, started = ...future.startTime, version = "1.8") 1586s [00:53:06.195] }, condition = base::local({ 1586s [00:53:06.195] c <- base::c 1586s [00:53:06.195] inherits <- base::inherits 1586s [00:53:06.195] invokeRestart <- base::invokeRestart 1586s [00:53:06.195] length <- base::length 1586s [00:53:06.195] list <- base::list 1586s [00:53:06.195] seq.int <- base::seq.int 1586s [00:53:06.195] signalCondition <- base::signalCondition 1586s [00:53:06.195] sys.calls <- base::sys.calls 1586s [00:53:06.195] `[[` <- base::`[[` 1586s [00:53:06.195] `+` <- base::`+` 1586s [00:53:06.195] `<<-` <- base::`<<-` 1586s [00:53:06.195] sysCalls <- function(calls = sys.calls(), from = 1L) { 1586s [00:53:06.195] calls[seq.int(from = from + 12L, to = length(calls) - 1586s [00:53:06.195] 3L)] 1586s [00:53:06.195] } 1586s [00:53:06.195] function(cond) { 1586s [00:53:06.195] is_error <- inherits(cond, "error") 1586s [00:53:06.195] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1586s [00:53:06.195] NULL) 1586s [00:53:06.195] if (is_error) { 1586s [00:53:06.195] sessionInformation <- function() { 1586s [00:53:06.195] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1586s [00:53:06.195] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1586s [00:53:06.195] search = base::search(), system = base::Sys.info()) 1586s [00:53:06.195] } 1586s [00:53:06.195] ...future.conditions[[length(...future.conditions) + 1586s [00:53:06.195] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1586s [00:53:06.195] cond$call), session = sessionInformation(), 1586s [00:53:06.195] timestamp = base::Sys.time(), signaled = 0L) 1586s [00:53:06.195] signalCondition(cond) 1586s [00:53:06.195] } 1586s [00:53:06.195] else if (!ignore && TRUE && inherits(cond, c("condition", 1586s [00:53:06.195] "immediateCondition"))) { 1586s [00:53:06.195] signal <- TRUE && inherits(cond, "immediateCondition") 1586s [00:53:06.195] ...future.conditions[[length(...future.conditions) + 1586s [00:53:06.195] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1586s [00:53:06.195] if (TRUE && !signal) { 1586s [00:53:06.195] muffleCondition <- function (cond, pattern = "^muffle") 1586s [00:53:06.195] { 1586s [00:53:06.195] inherits <- base::inherits 1586s [00:53:06.195] invokeRestart <- base::invokeRestart 1586s [00:53:06.195] is.null <- base::is.null 1586s [00:53:06.195] muffled <- FALSE 1586s [00:53:06.195] if (inherits(cond, "message")) { 1586s [00:53:06.195] muffled <- grepl(pattern, "muffleMessage") 1586s [00:53:06.195] if (muffled) 1586s [00:53:06.195] invokeRestart("muffleMessage") 1586s [00:53:06.195] } 1586s [00:53:06.195] else if (inherits(cond, "warning")) { 1586s [00:53:06.195] muffled <- grepl(pattern, "muffleWarning") 1586s [00:53:06.195] if (muffled) 1586s [00:53:06.195] invokeRestart("muffleWarning") 1586s [00:53:06.195] } 1586s [00:53:06.195] else if (inherits(cond, "condition")) { 1586s [00:53:06.195] if (!is.null(pattern)) { 1586s [00:53:06.195] computeRestarts <- base::computeRestarts 1586s [00:53:06.195] grepl <- base::grepl 1586s [00:53:06.195] restarts <- computeRestarts(cond) 1586s [00:53:06.195] for (restart in restarts) { 1586s [00:53:06.195] name <- restart$name 1586s [00:53:06.195] if (is.null(name)) 1586s [00:53:06.195] next 1586s [00:53:06.195] if (!grepl(pattern, name)) 1586s [00:53:06.195] next 1586s [00:53:06.195] invokeRestart(restart) 1586s [00:53:06.195] muffled <- TRUE 1586s [00:53:06.195] break 1586s [00:53:06.195] } 1586s [00:53:06.195] } 1586s [00:53:06.195] } 1586s [00:53:06.195] invisible(muffled) 1586s [00:53:06.195] } 1586s [00:53:06.195] muffleCondition(cond, pattern = "^muffle") 1586s [00:53:06.195] } 1586s [00:53:06.195] } 1586s [00:53:06.195] else { 1586s [00:53:06.195] if (TRUE) { 1586s [00:53:06.195] muffleCondition <- function (cond, pattern = "^muffle") 1586s [00:53:06.195] { 1586s [00:53:06.195] inherits <- base::inherits 1586s [00:53:06.195] invokeRestart <- base::invokeRestart 1586s [00:53:06.195] is.null <- base::is.null 1586s [00:53:06.195] muffled <- FALSE 1586s [00:53:06.195] if (inherits(cond, "message")) { 1586s [00:53:06.195] muffled <- grepl(pattern, "muffleMessage") 1586s [00:53:06.195] if (muffled) 1586s [00:53:06.195] invokeRestart("muffleMessage") 1586s [00:53:06.195] } 1586s [00:53:06.195] else if (inherits(cond, "warning")) { 1586s [00:53:06.195] muffled <- grepl(pattern, "muffleWarning") 1586s [00:53:06.195] if (muffled) 1586s [00:53:06.195] invokeRestart("muffleWarning") 1586s [00:53:06.195] } 1586s [00:53:06.195] else if (inherits(cond, "condition")) { 1586s [00:53:06.195] if (!is.null(pattern)) { 1586s [00:53:06.195] computeRestarts <- base::computeRestarts 1586s [00:53:06.195] grepl <- base::grepl 1586s [00:53:06.195] restarts <- computeRestarts(cond) 1586s [00:53:06.195] for (restart in restarts) { 1586s [00:53:06.195] name <- restart$name 1586s [00:53:06.195] if (is.null(name)) 1586s [00:53:06.195] next 1586s [00:53:06.195] if (!grepl(pattern, name)) 1586s [00:53:06.195] next 1586s [00:53:06.195] invokeRestart(restart) 1586s [00:53:06.195] muffled <- TRUE 1586s [00:53:06.195] break 1586s [00:53:06.195] } 1586s [00:53:06.195] } 1586s [00:53:06.195] } 1586s [00:53:06.195] invisible(muffled) 1586s [00:53:06.195] } 1586s [00:53:06.195] muffleCondition(cond, pattern = "^muffle") 1586s [00:53:06.195] } 1586s [00:53:06.195] } 1586s [00:53:06.195] } 1586s [00:53:06.195] })) 1586s [00:53:06.195] }, error = function(ex) { 1586s [00:53:06.195] base::structure(base::list(value = NULL, visible = NULL, 1586s [00:53:06.195] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1586s [00:53:06.195] ...future.rng), started = ...future.startTime, 1586s [00:53:06.195] finished = Sys.time(), session_uuid = NA_character_, 1586s [00:53:06.195] version = "1.8"), class = "FutureResult") 1586s [00:53:06.195] }, finally = { 1586s [00:53:06.195] if (!identical(...future.workdir, getwd())) 1586s [00:53:06.195] setwd(...future.workdir) 1586s [00:53:06.195] { 1586s [00:53:06.195] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1586s [00:53:06.195] ...future.oldOptions$nwarnings <- NULL 1586s [00:53:06.195] } 1586s [00:53:06.195] base::options(...future.oldOptions) 1586s [00:53:06.195] if (.Platform$OS.type == "windows") { 1586s [00:53:06.195] old_names <- names(...future.oldEnvVars) 1586s [00:53:06.195] envs <- base::Sys.getenv() 1586s [00:53:06.195] names <- names(envs) 1586s [00:53:06.195] common <- intersect(names, old_names) 1586s [00:53:06.195] added <- setdiff(names, old_names) 1586s [00:53:06.195] removed <- setdiff(old_names, names) 1586s [00:53:06.195] changed <- common[...future.oldEnvVars[common] != 1586s [00:53:06.195] envs[common]] 1586s [00:53:06.195] NAMES <- toupper(changed) 1586s [00:53:06.195] args <- list() 1586s [00:53:06.195] for (kk in seq_along(NAMES)) { 1586s [00:53:06.195] name <- changed[[kk]] 1586s [00:53:06.195] NAME <- NAMES[[kk]] 1586s [00:53:06.195] if (name != NAME && is.element(NAME, old_names)) 1586s [00:53:06.195] next 1586s [00:53:06.195] args[[name]] <- ...future.oldEnvVars[[name]] 1586s [00:53:06.195] } 1586s [00:53:06.195] NAMES <- toupper(added) 1586s [00:53:06.195] for (kk in seq_along(NAMES)) { 1586s [00:53:06.195] name <- added[[kk]] 1586s [00:53:06.195] NAME <- NAMES[[kk]] 1586s [00:53:06.195] if (name != NAME && is.element(NAME, old_names)) 1586s [00:53:06.195] next 1586s [00:53:06.195] args[[name]] <- "" 1586s [00:53:06.195] } 1586s [00:53:06.195] NAMES <- toupper(removed) 1586s [00:53:06.195] for (kk in seq_along(NAMES)) { 1586s [00:53:06.195] name <- removed[[kk]] 1586s [00:53:06.195] NAME <- NAMES[[kk]] 1586s [00:53:06.195] if (name != NAME && is.element(NAME, old_names)) 1586s [00:53:06.195] next 1586s [00:53:06.195] args[[name]] <- ...future.oldEnvVars[[name]] 1586s [00:53:06.195] } 1586s [00:53:06.195] if (length(args) > 0) 1586s [00:53:06.195] base::do.call(base::Sys.setenv, args = args) 1586s [00:53:06.195] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1586s [00:53:06.195] } 1586s [00:53:06.195] else { 1586s [00:53:06.195] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1586s [00:53:06.195] } 1586s [00:53:06.195] { 1586s [00:53:06.195] if (base::length(...future.futureOptionsAdded) > 1586s [00:53:06.195] 0L) { 1586s [00:53:06.195] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1586s [00:53:06.195] base::names(opts) <- ...future.futureOptionsAdded 1586s [00:53:06.195] base::options(opts) 1586s [00:53:06.195] } 1586s [00:53:06.195] { 1586s [00:53:06.195] { 1586s [00:53:06.195] NULL 1586s [00:53:06.195] RNGkind("Mersenne-Twister") 1586s [00:53:06.195] base::rm(list = ".Random.seed", envir = base::globalenv(), 1586s [00:53:06.195] inherits = FALSE) 1586s [00:53:06.195] } 1586s [00:53:06.195] options(future.plan = NULL) 1586s [00:53:06.195] if (is.na(NA_character_)) 1586s [00:53:06.195] Sys.unsetenv("R_FUTURE_PLAN") 1586s [00:53:06.195] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1586s [00:53:06.195] future::plan(list(function (..., envir = parent.frame()) 1586s [00:53:06.195] { 1586s [00:53:06.195] future <- SequentialFuture(..., envir = envir) 1586s [00:53:06.195] if (!future$lazy) 1586s [00:53:06.195] future <- run(future) 1586s [00:53:06.195] invisible(future) 1586s [00:53:06.195] }), .cleanup = FALSE, .init = FALSE) 1586s [00:53:06.195] } 1586s [00:53:06.195] } 1586s [00:53:06.195] } 1586s [00:53:06.195] }) 1586s [00:53:06.195] if (TRUE) { 1586s [00:53:06.195] base::sink(type = "output", split = FALSE) 1586s [00:53:06.195] if (TRUE) { 1586s [00:53:06.195] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1586s [00:53:06.195] } 1586s [00:53:06.195] else { 1586s [00:53:06.195] ...future.result["stdout"] <- base::list(NULL) 1586s [00:53:06.195] } 1586s [00:53:06.195] base::close(...future.stdout) 1586s [00:53:06.195] ...future.stdout <- NULL 1586s [00:53:06.195] } 1586s [00:53:06.195] ...future.result$conditions <- ...future.conditions 1586s [00:53:06.195] ...future.result$finished <- base::Sys.time() 1586s [00:53:06.195] ...future.result 1586s [00:53:06.195] } 1586s [00:53:06.201] assign_globals() ... 1586s [00:53:06.201] List of 11 1586s [00:53:06.201] $ ...future.FUN :function (x, ...) 1586s [00:53:06.201] $ x_FUN :function (x) 1586s [00:53:06.201] $ times : int 0 1586s [00:53:06.201] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1586s [00:53:06.201] $ stop_if_not :function (...) 1586s [00:53:06.201] $ dim : NULL 1586s [00:53:06.201] $ valid_types : chr [1:3] "logical" "integer" "double" 1586s [00:53:06.201] $ future.call.arguments : list() 1586s [00:53:06.201] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1586s [00:53:06.201] $ ...future.elements_ii :List of 10 1586s [00:53:06.201] ..$ : int 1 1586s [00:53:06.201] ..$ : int 2 1586s [00:53:06.201] ..$ : int 3 1586s [00:53:06.201] ..$ : int 4 1586s [00:53:06.201] ..$ : int 5 1586s [00:53:06.201] ..$ : int 6 1586s [00:53:06.201] ..$ : int 7 1586s [00:53:06.201] ..$ : int 8 1586s [00:53:06.201] ..$ : int 9 1586s [00:53:06.201] ..$ : int 10 1586s [00:53:06.201] $ ...future.seeds_ii : NULL 1586s [00:53:06.201] $ ...future.globals.maxSize: NULL 1586s [00:53:06.201] - attr(*, "where")=List of 11 1586s [00:53:06.201] ..$ ...future.FUN : 1586s [00:53:06.201] ..$ x_FUN : 1586s [00:53:06.201] ..$ times : 1586s [00:53:06.201] ..$ stopf : 1586s [00:53:06.201] ..$ stop_if_not : 1586s [00:53:06.201] ..$ dim : 1586s [00:53:06.201] ..$ valid_types : 1586s [00:53:06.201] ..$ future.call.arguments : 1586s [00:53:06.201] ..$ ...future.elements_ii : 1586s [00:53:06.201] ..$ ...future.seeds_ii : 1586s [00:53:06.201] ..$ ...future.globals.maxSize: 1586s [00:53:06.201] - attr(*, "resolved")= logi FALSE 1586s [00:53:06.201] - attr(*, "total_size")= num 95472 1586s [00:53:06.201] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1586s [00:53:06.201] - attr(*, "already-done")= logi TRUE 1586s [00:53:06.214] - copied ‘...future.FUN’ to environment 1586s [00:53:06.215] - reassign environment for ‘x_FUN’ 1586s [00:53:06.215] - copied ‘x_FUN’ to environment 1586s [00:53:06.215] - copied ‘times’ to environment 1586s [00:53:06.215] - copied ‘stopf’ to environment 1586s [00:53:06.215] - copied ‘stop_if_not’ to environment 1586s [00:53:06.215] - copied ‘dim’ to environment 1586s [00:53:06.215] - copied ‘valid_types’ to environment 1586s [00:53:06.216] - copied ‘future.call.arguments’ to environment 1586s [00:53:06.216] - copied ‘...future.elements_ii’ to environment 1586s [00:53:06.216] - copied ‘...future.seeds_ii’ to environment 1586s [00:53:06.216] - copied ‘...future.globals.maxSize’ to environment 1586s [00:53:06.216] assign_globals() ... done 1586s [00:53:06.217] plan(): Setting new future strategy stack: 1586s [00:53:06.217] List of future strategies: 1586s [00:53:06.217] 1. sequential: 1586s [00:53:06.217] - args: function (..., envir = parent.frame()) 1586s [00:53:06.217] - tweaked: FALSE 1586s [00:53:06.217] - call: NULL 1586s [00:53:06.217] plan(): nbrOfWorkers() = 1 1586s [00:53:06.218] plan(): Setting new future strategy stack: 1586s [00:53:06.218] List of future strategies: 1586s [00:53:06.218] 1. sequential: 1586s [00:53:06.218] - args: function (..., envir = parent.frame()) 1586s [00:53:06.218] - tweaked: FALSE 1586s [00:53:06.218] - call: plan(strategy) 1586s [00:53:06.219] plan(): nbrOfWorkers() = 1 1586s [00:53:06.219] SequentialFuture started (and completed) 1586s [00:53:06.220] - Launch lazy future ... done 1586s [00:53:06.220] run() for ‘SequentialFuture’ ... done 1586s [00:53:06.220] Created future: 1586s [00:53:06.220] SequentialFuture: 1586s [00:53:06.220] Label: ‘future_vapply-1’ 1586s [00:53:06.220] Expression: 1586s [00:53:06.220] { 1586s [00:53:06.220] do.call(function(...) { 1586s [00:53:06.220] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1586s [00:53:06.220] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1586s [00:53:06.220] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1586s [00:53:06.220] on.exit(options(oopts), add = TRUE) 1586s [00:53:06.220] } 1586s [00:53:06.220] { 1586s [00:53:06.220] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1586s [00:53:06.220] ...future.X_jj <- ...future.elements_ii[[jj]] 1586s [00:53:06.220] ...future.FUN(...future.X_jj, ...) 1586s [00:53:06.220] }) 1586s [00:53:06.220] } 1586s [00:53:06.220] }, args = future.call.arguments) 1586s [00:53:06.220] } 1586s [00:53:06.220] Lazy evaluation: FALSE 1586s [00:53:06.220] Asynchronous evaluation: FALSE 1586s [00:53:06.220] Local evaluation: TRUE 1586s [00:53:06.220] Environment: R_GlobalEnv 1586s [00:53:06.220] Capture standard output: TRUE 1586s [00:53:06.220] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1586s [00:53:06.220] Globals: 11 objects totaling 93.78 KiB (function ‘...future.FUN’ of 21.22 KiB, function ‘x_FUN’ of 1.16 KiB, integer ‘times’ of 56 bytes, function ‘stopf’ of 26.43 KiB, function ‘stop_if_not’ of 44.12 KiB, ...) 1586s [00:53:06.220] Packages: 1 packages (‘future.apply’) 1586s [00:53:06.220] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1586s [00:53:06.220] Resolved: TRUE 1586s [00:53:06.220] Value: 480 bytes of class ‘list’ 1586s [00:53:06.220] Early signaling: FALSE 1586s [00:53:06.220] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1586s [00:53:06.220] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1586s [00:53:06.224] Chunk #1 of 1 ... DONE 1586s [00:53:06.224] Launching 1 futures (chunks) ... DONE 1586s [00:53:06.224] Resolving 1 futures (chunks) ... 1586s [00:53:06.224] resolve() on list ... 1586s [00:53:06.225] recursive: 0 1586s [00:53:06.225] length: 1 1586s [00:53:06.225] 1586s [00:53:06.225] resolved() for ‘SequentialFuture’ ... 1586s [00:53:06.225] - state: ‘finished’ 1586s [00:53:06.226] - run: TRUE 1586s [00:53:06.226] - result: ‘FutureResult’ 1586s [00:53:06.226] resolved() for ‘SequentialFuture’ ... done 1586s [00:53:06.226] Future #1 1586s [00:53:06.226] signalConditionsASAP(SequentialFuture, pos=1) ... 1586s [00:53:06.226] - nx: 1 1586s [00:53:06.227] - relay: TRUE 1586s [00:53:06.227] - stdout: TRUE 1586s [00:53:06.227] - signal: TRUE 1586s [00:53:06.227] - resignal: FALSE 1586s [00:53:06.227] - force: TRUE 1586s [00:53:06.227] - relayed: [n=1] FALSE 1586s [00:53:06.228] - queued futures: [n=1] FALSE 1586s [00:53:06.228] - until=1 1586s [00:53:06.228] - relaying element #1 1586s [00:53:06.228] - relayed: [n=1] TRUE 1586s [00:53:06.228] - queued futures: [n=1] TRUE 1586s [00:53:06.229] signalConditionsASAP(SequentialFuture, pos=1) ... done 1586s [00:53:06.229] length: 0 (resolved future 1) 1586s [00:53:06.229] Relaying remaining futures 1586s [00:53:06.230] signalConditionsASAP(NULL, pos=0) ... 1586s [00:53:06.230] - nx: 1 1586s [00:53:06.230] - relay: TRUE 1586s [00:53:06.230] - stdout: TRUE 1586s [00:53:06.230] - signal: TRUE 1586s [00:53:06.230] - resignal: FALSE 1586s [00:53:06.230] - force: TRUE 1586s [00:53:06.231] - relayed: [n=1] TRUE 1586s [00:53:06.231] - queued futures: [n=1] TRUE 1586s - flush all 1586s [00:53:06.231] - relayed: [n=1] TRUE 1586s [00:53:06.231] - queued futures: [n=1] TRUE 1586s [00:53:06.231] signalConditionsASAP(NULL, pos=0) ... done 1586s [00:53:06.231] resolve() on list ... DONE 1586s [00:53:06.232] - Number of value chunks collected: 1 1586s [00:53:06.232] Resolving 1 futures (chunks) ... DONE 1586s [00:53:06.232] Reducing values from 1 chunks ... 1586s [00:53:06.232] - Number of values collected after concatenation: 10 1586s [00:53:06.232] - Number of values expected: 10 1586s num[0 , 1:10] 1586s [00:53:06.232] Reducing values from 1 chunks ... DONE 1586s [00:53:06.232] future_lapply() ... DONE 1586s int[0 , 1:10] 1586s [00:53:06.234] future_lapply() ... 1586s [00:53:06.237] Number of chunks: 1 1586s [00:53:06.237] getGlobalsAndPackagesXApply() ... 1586s [00:53:06.237] - future.globals: TRUE 1586s [00:53:06.237] getGlobalsAndPackages() ... 1586s [00:53:06.238] Searching for globals... 1586s [00:53:06.242] - globals found: [17] ‘FUN’, ‘{’, ‘<-’, ‘x_FUN’, ‘if’, ‘!=’, ‘length’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘all’, ‘==’, ‘dim’, ‘%in%’, ‘typeof’, ‘valid_types’, ‘integer’ 1586s [00:53:06.242] Searching for globals ... DONE 1586s [00:53:06.242] Resolving globals: FALSE 1586s [00:53:06.244] The total size of the 7 globals is 93.16 KiB (95400 bytes) 1586s [00:53:06.244] The total size of the 7 globals exported for future expression (‘FUN()’) is 93.16 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘stop_if_not’ (44.12 KiB of class ‘function’), ‘stopf’ (26.43 KiB of class ‘function’) and ‘FUN’ (21.22 KiB of class ‘function’) 1586s [00:53:06.244] - globals: [7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1586s [00:53:06.245] - packages: [1] ‘future.apply’ 1586s [00:53:06.245] getGlobalsAndPackages() ... DONE 1586s [00:53:06.245] - globals found/used: [n=7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1586s [00:53:06.245] - needed namespaces: [n=1] ‘future.apply’ 1586s [00:53:06.245] Finding globals ... DONE 1586s [00:53:06.245] - use_args: TRUE 1586s [00:53:06.245] - Getting '...' globals ... 1586s [00:53:06.246] resolve() on list ... 1586s [00:53:06.246] recursive: 0 1586s [00:53:06.246] length: 1 1586s [00:53:06.246] elements: ‘...’ 1586s [00:53:06.247] length: 0 (resolved future 1) 1586s [00:53:06.247] resolve() on list ... DONE 1586s [00:53:06.247] - '...' content: [n=0] 1586s [00:53:06.247] List of 1 1586s [00:53:06.247] $ ...: list() 1586s [00:53:06.247] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1586s [00:53:06.247] - attr(*, "where")=List of 1 1586s [00:53:06.247] ..$ ...: 1586s [00:53:06.247] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1586s [00:53:06.247] - attr(*, "resolved")= logi TRUE 1586s [00:53:06.247] - attr(*, "total_size")= num NA 1586s [00:53:06.251] - Getting '...' globals ... DONE 1586s [00:53:06.251] Globals to be used in all futures (chunks): [n=8] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’ 1586s [00:53:06.251] List of 8 1586s [00:53:06.251] $ ...future.FUN:function (x, ...) 1586s [00:53:06.251] $ x_FUN :function (x) 1586s [00:53:06.251] $ times : int 0 1586s [00:53:06.251] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1586s [00:53:06.251] $ stop_if_not :function (...) 1586s [00:53:06.251] $ dim : NULL 1586s [00:53:06.251] $ valid_types : chr [1:2] "logical" "integer" 1586s [00:53:06.251] $ ... : list() 1586s [00:53:06.251] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1586s [00:53:06.251] - attr(*, "where")=List of 8 1586s [00:53:06.251] ..$ ...future.FUN: 1586s [00:53:06.251] ..$ x_FUN : 1586s [00:53:06.251] ..$ times : 1586s [00:53:06.251] ..$ stopf : 1586s [00:53:06.251] ..$ stop_if_not : 1586s [00:53:06.251] ..$ dim : 1586s [00:53:06.251] ..$ valid_types : 1586s [00:53:06.251] ..$ ... : 1586s [00:53:06.251] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1586s [00:53:06.251] - attr(*, "resolved")= logi FALSE 1586s [00:53:06.251] - attr(*, "total_size")= num 95400 1586s [00:53:06.261] Packages to be attached in all futures: [n=1] ‘future.apply’ 1586s [00:53:06.261] getGlobalsAndPackagesXApply() ... DONE 1586s [00:53:06.261] Number of futures (= number of chunks): 1 1586s [00:53:06.261] Launching 1 futures (chunks) ... 1586s [00:53:06.261] Chunk #1 of 1 ... 1586s [00:53:06.262] - Finding globals in 'X' for chunk #1 ... 1586s [00:53:06.262] getGlobalsAndPackages() ... 1586s [00:53:06.262] Searching for globals... 1586s [00:53:06.262] 1586s [00:53:06.262] Searching for globals ... DONE 1586s [00:53:06.263] - globals: [0] 1586s [00:53:06.263] getGlobalsAndPackages() ... DONE 1586s [00:53:06.263] + additional globals found: [n=0] 1586s [00:53:06.263] + additional namespaces needed: [n=0] 1586s [00:53:06.263] - Finding globals in 'X' for chunk #1 ... DONE 1586s [00:53:06.263] - seeds: 1586s [00:53:06.264] - All globals exported: [n=11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1586s [00:53:06.264] getGlobalsAndPackages() ... 1586s [00:53:06.264] - globals passed as-is: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1586s [00:53:06.264] Resolving globals: FALSE 1586s [00:53:06.264] Tweak future expression to call with '...' arguments ... 1586s [00:53:06.265] { 1586s [00:53:06.265] do.call(function(...) { 1586s [00:53:06.265] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1586s [00:53:06.265] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1586s [00:53:06.265] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1586s [00:53:06.265] on.exit(options(oopts), add = TRUE) 1586s [00:53:06.265] } 1586s [00:53:06.265] { 1586s [00:53:06.265] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1586s [00:53:06.265] ...future.X_jj <- ...future.elements_ii[[jj]] 1586s [00:53:06.265] ...future.FUN(...future.X_jj, ...) 1586s [00:53:06.265] }) 1586s [00:53:06.265] } 1586s [00:53:06.265] }, args = future.call.arguments) 1586s [00:53:06.265] } 1586s [00:53:06.265] Tweak future expression to call with '...' arguments ... DONE 1586s [00:53:06.266] - globals: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1586s [00:53:06.266] - packages: [1] ‘future.apply’ 1586s [00:53:06.266] getGlobalsAndPackages() ... DONE 1586s [00:53:06.266] run() for ‘Future’ ... 1586s [00:53:06.266] - state: ‘created’ 1586s [00:53:06.267] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1586s [00:53:06.267] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1586s [00:53:06.267] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1586s [00:53:06.267] - Field: ‘label’ 1586s [00:53:06.267] - Field: ‘local’ 1586s [00:53:06.267] - Field: ‘owner’ 1586s [00:53:06.268] - Field: ‘envir’ 1586s [00:53:06.268] - Field: ‘packages’ 1586s [00:53:06.268] - Field: ‘gc’ 1586s [00:53:06.268] - Field: ‘conditions’ 1586s [00:53:06.268] - Field: ‘expr’ 1586s [00:53:06.268] - Field: ‘uuid’ 1586s [00:53:06.268] - Field: ‘seed’ 1586s [00:53:06.268] - Field: ‘version’ 1586s [00:53:06.268] - Field: ‘result’ 1586s [00:53:06.268] - Field: ‘asynchronous’ 1586s [00:53:06.269] - Field: ‘calls’ 1586s [00:53:06.269] - Field: ‘globals’ 1586s [00:53:06.269] - Field: ‘stdout’ 1586s [00:53:06.269] - Field: ‘earlySignal’ 1586s [00:53:06.269] - Field: ‘lazy’ 1586s [00:53:06.269] - Field: ‘state’ 1586s [00:53:06.269] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1586s [00:53:06.269] - Launch lazy future ... 1586s [00:53:06.270] Packages needed by the future expression (n = 1): ‘future.apply’ 1586s [00:53:06.270] Packages needed by future strategies (n = 0): 1586s [00:53:06.270] { 1586s [00:53:06.270] { 1586s [00:53:06.270] { 1586s [00:53:06.270] ...future.startTime <- base::Sys.time() 1586s [00:53:06.270] { 1586s [00:53:06.270] { 1586s [00:53:06.270] { 1586s [00:53:06.270] { 1586s [00:53:06.270] base::local({ 1586s [00:53:06.270] has_future <- base::requireNamespace("future", 1586s [00:53:06.270] quietly = TRUE) 1586s [00:53:06.270] if (has_future) { 1586s [00:53:06.270] ns <- base::getNamespace("future") 1586s [00:53:06.270] version <- ns[[".package"]][["version"]] 1586s [00:53:06.270] if (is.null(version)) 1586s [00:53:06.270] version <- utils::packageVersion("future") 1586s [00:53:06.270] } 1586s [00:53:06.270] else { 1586s [00:53:06.270] version <- NULL 1586s [00:53:06.270] } 1586s [00:53:06.270] if (!has_future || version < "1.8.0") { 1586s [00:53:06.270] info <- base::c(r_version = base::gsub("R version ", 1586s [00:53:06.270] "", base::R.version$version.string), 1586s [00:53:06.270] platform = base::sprintf("%s (%s-bit)", 1586s [00:53:06.270] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1586s [00:53:06.270] os = base::paste(base::Sys.info()[base::c("sysname", 1586s [00:53:06.270] "release", "version")], collapse = " "), 1586s [00:53:06.270] hostname = base::Sys.info()[["nodename"]]) 1586s [00:53:06.270] info <- base::sprintf("%s: %s", base::names(info), 1586s [00:53:06.270] info) 1586s [00:53:06.270] info <- base::paste(info, collapse = "; ") 1586s [00:53:06.270] if (!has_future) { 1586s [00:53:06.270] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1586s [00:53:06.270] info) 1586s [00:53:06.270] } 1586s [00:53:06.270] else { 1586s [00:53:06.270] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1586s [00:53:06.270] info, version) 1586s [00:53:06.270] } 1586s [00:53:06.270] base::stop(msg) 1586s [00:53:06.270] } 1586s [00:53:06.270] }) 1586s [00:53:06.270] } 1586s [00:53:06.270] base::local({ 1586s [00:53:06.270] for (pkg in "future.apply") { 1586s [00:53:06.270] base::loadNamespace(pkg) 1586s [00:53:06.270] base::library(pkg, character.only = TRUE) 1586s [00:53:06.270] } 1586s [00:53:06.270] }) 1586s [00:53:06.270] } 1586s [00:53:06.270] options(future.plan = NULL) 1586s [00:53:06.270] Sys.unsetenv("R_FUTURE_PLAN") 1586s [00:53:06.270] future::plan("default", .cleanup = FALSE, .init = FALSE) 1586s [00:53:06.270] } 1586s [00:53:06.270] ...future.workdir <- getwd() 1586s [00:53:06.270] } 1586s [00:53:06.270] ...future.oldOptions <- base::as.list(base::.Options) 1586s [00:53:06.270] ...future.oldEnvVars <- base::Sys.getenv() 1586s [00:53:06.270] } 1586s [00:53:06.270] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1586s [00:53:06.270] future.globals.maxSize = NULL, future.globals.method = NULL, 1586s [00:53:06.270] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1586s [00:53:06.270] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1586s [00:53:06.270] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1586s [00:53:06.270] future.stdout.windows.reencode = NULL, width = 80L) 1586s [00:53:06.270] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1586s [00:53:06.270] base::names(...future.oldOptions)) 1586s [00:53:06.270] } 1586s [00:53:06.270] if (FALSE) { 1586s [00:53:06.270] } 1586s [00:53:06.270] else { 1586s [00:53:06.270] if (TRUE) { 1586s [00:53:06.270] ...future.stdout <- base::rawConnection(base::raw(0L), 1586s [00:53:06.270] open = "w") 1586s [00:53:06.270] } 1586s [00:53:06.270] else { 1586s [00:53:06.270] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1586s [00:53:06.270] windows = "NUL", "/dev/null"), open = "w") 1586s [00:53:06.270] } 1586s [00:53:06.270] base::sink(...future.stdout, type = "output", split = FALSE) 1586s [00:53:06.270] base::on.exit(if (!base::is.null(...future.stdout)) { 1586s [00:53:06.270] base::sink(type = "output", split = FALSE) 1586s [00:53:06.270] base::close(...future.stdout) 1586s [00:53:06.270] }, add = TRUE) 1586s [00:53:06.270] } 1586s [00:53:06.270] ...future.frame <- base::sys.nframe() 1586s [00:53:06.270] ...future.conditions <- base::list() 1586s [00:53:06.270] ...future.rng <- base::globalenv()$.Random.seed 1586s [00:53:06.270] if (FALSE) { 1586s [00:53:06.270] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1586s [00:53:06.270] "...future.value", "...future.globalenv.names", ".Random.seed") 1586s [00:53:06.270] } 1586s [00:53:06.270] ...future.result <- base::tryCatch({ 1586s [00:53:06.270] base::withCallingHandlers({ 1586s [00:53:06.270] ...future.value <- base::withVisible(base::local({ 1586s [00:53:06.270] do.call(function(...) { 1586s [00:53:06.270] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1586s [00:53:06.270] if (!identical(...future.globals.maxSize.org, 1586s [00:53:06.270] ...future.globals.maxSize)) { 1586s [00:53:06.270] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1586s [00:53:06.270] on.exit(options(oopts), add = TRUE) 1586s [00:53:06.270] } 1586s [00:53:06.270] { 1586s [00:53:06.270] lapply(seq_along(...future.elements_ii), 1586s [00:53:06.270] FUN = function(jj) { 1586s [00:53:06.270] ...future.X_jj <- ...future.elements_ii[[jj]] 1586s [00:53:06.270] ...future.FUN(...future.X_jj, ...) 1586s [00:53:06.270] }) 1586s [00:53:06.270] } 1586s [00:53:06.270] }, args = future.call.arguments) 1586s [00:53:06.270] })) 1586s [00:53:06.270] future::FutureResult(value = ...future.value$value, 1586s [00:53:06.270] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1586s [00:53:06.270] ...future.rng), globalenv = if (FALSE) 1586s [00:53:06.270] list(added = base::setdiff(base::names(base::.GlobalEnv), 1586s [00:53:06.270] ...future.globalenv.names)) 1586s [00:53:06.270] else NULL, started = ...future.startTime, version = "1.8") 1586s [00:53:06.270] }, condition = base::local({ 1586s [00:53:06.270] c <- base::c 1586s [00:53:06.270] inherits <- base::inherits 1586s [00:53:06.270] invokeRestart <- base::invokeRestart 1586s [00:53:06.270] length <- base::length 1586s [00:53:06.270] list <- base::list 1586s [00:53:06.270] seq.int <- base::seq.int 1586s [00:53:06.270] signalCondition <- base::signalCondition 1586s [00:53:06.270] sys.calls <- base::sys.calls 1586s [00:53:06.270] `[[` <- base::`[[` 1586s [00:53:06.270] `+` <- base::`+` 1586s [00:53:06.270] `<<-` <- base::`<<-` 1586s [00:53:06.270] sysCalls <- function(calls = sys.calls(), from = 1L) { 1586s [00:53:06.270] calls[seq.int(from = from + 12L, to = length(calls) - 1586s [00:53:06.270] 3L)] 1586s [00:53:06.270] } 1586s [00:53:06.270] function(cond) { 1586s [00:53:06.270] is_error <- inherits(cond, "error") 1586s [00:53:06.270] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1586s [00:53:06.270] NULL) 1586s [00:53:06.270] if (is_error) { 1586s [00:53:06.270] sessionInformation <- function() { 1586s [00:53:06.270] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1586s [00:53:06.270] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1586s [00:53:06.270] search = base::search(), system = base::Sys.info()) 1586s [00:53:06.270] } 1586s [00:53:06.270] ...future.conditions[[length(...future.conditions) + 1586s [00:53:06.270] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1586s [00:53:06.270] cond$call), session = sessionInformation(), 1586s [00:53:06.270] timestamp = base::Sys.time(), signaled = 0L) 1586s [00:53:06.270] signalCondition(cond) 1586s [00:53:06.270] } 1586s [00:53:06.270] else if (!ignore && TRUE && inherits(cond, c("condition", 1586s [00:53:06.270] "immediateCondition"))) { 1586s [00:53:06.270] signal <- TRUE && inherits(cond, "immediateCondition") 1586s [00:53:06.270] ...future.conditions[[length(...future.conditions) + 1586s [00:53:06.270] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1586s [00:53:06.270] if (TRUE && !signal) { 1586s [00:53:06.270] muffleCondition <- function (cond, pattern = "^muffle") 1586s [00:53:06.270] { 1586s [00:53:06.270] inherits <- base::inherits 1586s [00:53:06.270] invokeRestart <- base::invokeRestart 1586s [00:53:06.270] is.null <- base::is.null 1586s [00:53:06.270] muffled <- FALSE 1586s [00:53:06.270] if (inherits(cond, "message")) { 1586s [00:53:06.270] muffled <- grepl(pattern, "muffleMessage") 1586s [00:53:06.270] if (muffled) 1586s [00:53:06.270] invokeRestart("muffleMessage") 1586s [00:53:06.270] } 1586s [00:53:06.270] else if (inherits(cond, "warning")) { 1586s [00:53:06.270] muffled <- grepl(pattern, "muffleWarning") 1586s [00:53:06.270] if (muffled) 1586s [00:53:06.270] invokeRestart("muffleWarning") 1586s [00:53:06.270] } 1586s [00:53:06.270] else if (inherits(cond, "condition")) { 1586s [00:53:06.270] if (!is.null(pattern)) { 1586s [00:53:06.270] computeRestarts <- base::computeRestarts 1586s [00:53:06.270] grepl <- base::grepl 1586s [00:53:06.270] restarts <- computeRestarts(cond) 1586s [00:53:06.270] for (restart in restarts) { 1586s [00:53:06.270] name <- restart$name 1586s [00:53:06.270] if (is.null(name)) 1586s [00:53:06.270] next 1586s [00:53:06.270] if (!grepl(pattern, name)) 1586s [00:53:06.270] next 1586s [00:53:06.270] invokeRestart(restart) 1586s [00:53:06.270] muffled <- TRUE 1586s [00:53:06.270] break 1586s [00:53:06.270] } 1586s [00:53:06.270] } 1586s [00:53:06.270] } 1586s [00:53:06.270] invisible(muffled) 1586s [00:53:06.270] } 1586s [00:53:06.270] muffleCondition(cond, pattern = "^muffle") 1586s [00:53:06.270] } 1586s [00:53:06.270] } 1586s [00:53:06.270] else { 1586s [00:53:06.270] if (TRUE) { 1586s [00:53:06.270] muffleCondition <- function (cond, pattern = "^muffle") 1586s [00:53:06.270] { 1586s [00:53:06.270] inherits <- base::inherits 1586s [00:53:06.270] invokeRestart <- base::invokeRestart 1586s [00:53:06.270] is.null <- base::is.null 1586s [00:53:06.270] muffled <- FALSE 1586s [00:53:06.270] if (inherits(cond, "message")) { 1586s [00:53:06.270] muffled <- grepl(pattern, "muffleMessage") 1586s [00:53:06.270] if (muffled) 1586s [00:53:06.270] invokeRestart("muffleMessage") 1586s [00:53:06.270] } 1586s [00:53:06.270] else if (inherits(cond, "warning")) { 1586s [00:53:06.270] muffled <- grepl(pattern, "muffleWarning") 1586s [00:53:06.270] if (muffled) 1586s [00:53:06.270] invokeRestart("muffleWarning") 1586s [00:53:06.270] } 1586s [00:53:06.270] else if (inherits(cond, "condition")) { 1586s [00:53:06.270] if (!is.null(pattern)) { 1586s [00:53:06.270] computeRestarts <- base::computeRestarts 1586s [00:53:06.270] grepl <- base::grepl 1586s [00:53:06.270] restarts <- computeRestarts(cond) 1586s [00:53:06.270] for (restart in restarts) { 1586s [00:53:06.270] name <- restart$name 1586s [00:53:06.270] if (is.null(name)) 1586s [00:53:06.270] next 1586s [00:53:06.270] if (!grepl(pattern, name)) 1586s [00:53:06.270] next 1586s [00:53:06.270] invokeRestart(restart) 1586s [00:53:06.270] muffled <- TRUE 1586s [00:53:06.270] break 1586s [00:53:06.270] } 1586s [00:53:06.270] } 1586s [00:53:06.270] } 1586s [00:53:06.270] invisible(muffled) 1586s [00:53:06.270] } 1586s [00:53:06.270] muffleCondition(cond, pattern = "^muffle") 1586s [00:53:06.270] } 1586s [00:53:06.270] } 1586s [00:53:06.270] } 1586s [00:53:06.270] })) 1586s [00:53:06.270] }, error = function(ex) { 1586s [00:53:06.270] base::structure(base::list(value = NULL, visible = NULL, 1586s [00:53:06.270] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1586s [00:53:06.270] ...future.rng), started = ...future.startTime, 1586s [00:53:06.270] finished = Sys.time(), session_uuid = NA_character_, 1586s [00:53:06.270] version = "1.8"), class = "FutureResult") 1586s [00:53:06.270] }, finally = { 1586s [00:53:06.270] if (!identical(...future.workdir, getwd())) 1586s [00:53:06.270] setwd(...future.workdir) 1586s [00:53:06.270] { 1586s [00:53:06.270] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1586s [00:53:06.270] ...future.oldOptions$nwarnings <- NULL 1586s [00:53:06.270] } 1586s [00:53:06.270] base::options(...future.oldOptions) 1586s [00:53:06.270] if (.Platform$OS.type == "windows") { 1586s [00:53:06.270] old_names <- names(...future.oldEnvVars) 1586s [00:53:06.270] envs <- base::Sys.getenv() 1586s [00:53:06.270] names <- names(envs) 1586s [00:53:06.270] common <- intersect(names, old_names) 1586s [00:53:06.270] added <- setdiff(names, old_names) 1586s [00:53:06.270] removed <- setdiff(old_names, names) 1586s [00:53:06.270] changed <- common[...future.oldEnvVars[common] != 1586s [00:53:06.270] envs[common]] 1586s [00:53:06.270] NAMES <- toupper(changed) 1586s [00:53:06.270] args <- list() 1586s [00:53:06.270] for (kk in seq_along(NAMES)) { 1586s [00:53:06.270] name <- changed[[kk]] 1586s [00:53:06.270] NAME <- NAMES[[kk]] 1586s [00:53:06.270] if (name != NAME && is.element(NAME, old_names)) 1586s [00:53:06.270] next 1586s [00:53:06.270] args[[name]] <- ...future.oldEnvVars[[name]] 1586s [00:53:06.270] } 1586s [00:53:06.270] NAMES <- toupper(added) 1586s [00:53:06.270] for (kk in seq_along(NAMES)) { 1586s [00:53:06.270] name <- added[[kk]] 1586s [00:53:06.270] NAME <- NAMES[[kk]] 1586s [00:53:06.270] if (name != NAME && is.element(NAME, old_names)) 1586s [00:53:06.270] next 1586s [00:53:06.270] args[[name]] <- "" 1586s [00:53:06.270] } 1586s [00:53:06.270] NAMES <- toupper(removed) 1586s [00:53:06.270] for (kk in seq_along(NAMES)) { 1586s [00:53:06.270] name <- removed[[kk]] 1586s [00:53:06.270] NAME <- NAMES[[kk]] 1586s [00:53:06.270] if (name != NAME && is.element(NAME, old_names)) 1586s [00:53:06.270] next 1586s [00:53:06.270] args[[name]] <- ...future.oldEnvVars[[name]] 1586s [00:53:06.270] } 1586s [00:53:06.270] if (length(args) > 0) 1586s [00:53:06.270] base::do.call(base::Sys.setenv, args = args) 1586s [00:53:06.270] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1586s [00:53:06.270] } 1586s [00:53:06.270] else { 1586s [00:53:06.270] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1586s [00:53:06.270] } 1586s [00:53:06.270] { 1586s [00:53:06.270] if (base::length(...future.futureOptionsAdded) > 1586s [00:53:06.270] 0L) { 1586s [00:53:06.270] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1586s [00:53:06.270] base::names(opts) <- ...future.futureOptionsAdded 1586s [00:53:06.270] base::options(opts) 1586s [00:53:06.270] } 1586s [00:53:06.270] { 1586s [00:53:06.270] { 1586s [00:53:06.270] NULL 1586s [00:53:06.270] RNGkind("Mersenne-Twister") 1586s [00:53:06.270] base::rm(list = ".Random.seed", envir = base::globalenv(), 1586s [00:53:06.270] inherits = FALSE) 1586s [00:53:06.270] } 1586s [00:53:06.270] options(future.plan = NULL) 1586s [00:53:06.270] if (is.na(NA_character_)) 1586s [00:53:06.270] Sys.unsetenv("R_FUTURE_PLAN") 1586s [00:53:06.270] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1586s [00:53:06.270] future::plan(list(function (..., envir = parent.frame()) 1586s [00:53:06.270] { 1586s [00:53:06.270] future <- SequentialFuture(..., envir = envir) 1586s [00:53:06.270] if (!future$lazy) 1586s [00:53:06.270] future <- run(future) 1586s [00:53:06.270] invisible(future) 1586s [00:53:06.270] }), .cleanup = FALSE, .init = FALSE) 1586s [00:53:06.270] } 1586s [00:53:06.270] } 1586s [00:53:06.270] } 1586s [00:53:06.270] }) 1586s [00:53:06.270] if (TRUE) { 1586s [00:53:06.270] base::sink(type = "output", split = FALSE) 1586s [00:53:06.270] if (TRUE) { 1586s [00:53:06.270] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1586s [00:53:06.270] } 1586s [00:53:06.270] else { 1586s [00:53:06.270] ...future.result["stdout"] <- base::list(NULL) 1586s [00:53:06.270] } 1586s [00:53:06.270] base::close(...future.stdout) 1586s [00:53:06.270] ...future.stdout <- NULL 1586s [00:53:06.270] } 1586s [00:53:06.270] ...future.result$conditions <- ...future.conditions 1586s [00:53:06.270] ...future.result$finished <- base::Sys.time() 1586s [00:53:06.270] ...future.result 1586s [00:53:06.270] } 1586s [00:53:06.273] assign_globals() ... 1586s [00:53:06.273] List of 11 1586s [00:53:06.273] $ ...future.FUN :function (x, ...) 1586s [00:53:06.273] $ x_FUN :function (x) 1586s [00:53:06.273] $ times : int 0 1586s [00:53:06.273] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1586s [00:53:06.273] $ stop_if_not :function (...) 1586s [00:53:06.273] $ dim : NULL 1586s [00:53:06.273] $ valid_types : chr [1:2] "logical" "integer" 1586s [00:53:06.273] $ future.call.arguments : list() 1586s [00:53:06.273] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1586s [00:53:06.273] $ ...future.elements_ii :List of 10 1586s [00:53:06.273] ..$ : int 1 1586s [00:53:06.273] ..$ : int 2 1586s [00:53:06.273] ..$ : int 3 1586s [00:53:06.273] ..$ : int 4 1586s [00:53:06.273] ..$ : int 5 1586s [00:53:06.273] ..$ : int 6 1586s [00:53:06.273] ..$ : int 7 1586s [00:53:06.273] ..$ : int 8 1586s [00:53:06.273] ..$ : int 9 1586s [00:53:06.273] ..$ : int 10 1586s [00:53:06.273] $ ...future.seeds_ii : NULL 1586s [00:53:06.273] $ ...future.globals.maxSize: NULL 1586s [00:53:06.273] - attr(*, "where")=List of 11 1586s [00:53:06.273] ..$ ...future.FUN : 1586s [00:53:06.273] ..$ x_FUN : 1586s [00:53:06.273] ..$ times : 1586s [00:53:06.273] ..$ stopf : 1586s [00:53:06.273] ..$ stop_if_not : 1586s [00:53:06.273] ..$ dim : 1586s [00:53:06.273] ..$ valid_types : 1586s [00:53:06.273] ..$ future.call.arguments : 1586s [00:53:06.273] ..$ ...future.elements_ii : 1586s [00:53:06.273] ..$ ...future.seeds_ii : 1586s [00:53:06.273] ..$ ...future.globals.maxSize: 1586s [00:53:06.273] - attr(*, "resolved")= logi FALSE 1586s [00:53:06.273] - attr(*, "total_size")= num 95400 1586s [00:53:06.273] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1586s [00:53:06.273] - attr(*, "already-done")= logi TRUE 1586s [00:53:06.290] - copied ‘...future.FUN’ to environment 1586s [00:53:06.291] - reassign environment for ‘x_FUN’ 1586s [00:53:06.291] - copied ‘x_FUN’ to environment 1586s [00:53:06.291] - copied ‘times’ to environment 1586s [00:53:06.292] - copied ‘stopf’ to environment 1586s [00:53:06.292] - copied ‘stop_if_not’ to environment 1586s [00:53:06.292] - copied ‘dim’ to environment 1586s [00:53:06.292] - copied ‘valid_types’ to environment 1586s [00:53:06.292] - copied ‘future.call.arguments’ to environment 1586s [00:53:06.292] - copied ‘...future.elements_ii’ to environment 1586s [00:53:06.292] - copied ‘...future.seeds_ii’ to environment 1586s [00:53:06.294] - copied ‘...future.globals.maxSize’ to environment 1586s [00:53:06.294] assign_globals() ... done 1586s [00:53:06.295] plan(): Setting new future strategy stack: 1586s [00:53:06.295] List of future strategies: 1586s [00:53:06.295] 1. sequential: 1586s [00:53:06.295] - args: function (..., envir = parent.frame()) 1586s [00:53:06.295] - tweaked: FALSE 1586s [00:53:06.295] - call: NULL 1586s [00:53:06.296] plan(): nbrOfWorkers() = 1 1586s [00:53:06.296] plan(): Setting new future strategy stack: 1586s [00:53:06.297] List of future strategies: 1586s [00:53:06.297] 1. sequential: 1586s [00:53:06.297] - args: function (..., envir = parent.frame()) 1586s [00:53:06.297] - tweaked: FALSE 1586s [00:53:06.297] - call: plan(strategy) 1586s [00:53:06.297] plan(): nbrOfWorkers() = 1 1586s [00:53:06.297] SequentialFuture started (and completed) 1586s [00:53:06.297] - Launch lazy future ... done 1586s [00:53:06.298] run() for ‘SequentialFuture’ ... done 1586s [00:53:06.298] Created future: 1586s [00:53:06.298] SequentialFuture: 1586s [00:53:06.298] Label: ‘future_vapply-1’ 1586s [00:53:06.298] Expression: 1586s [00:53:06.298] { 1586s [00:53:06.298] do.call(function(...) { 1586s [00:53:06.298] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1586s [00:53:06.298] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1586s [00:53:06.298] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1586s [00:53:06.298] on.exit(options(oopts), add = TRUE) 1586s [00:53:06.298] } 1586s [00:53:06.298] { 1586s [00:53:06.298] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1586s [00:53:06.298] ...future.X_jj <- ...future.elements_ii[[jj]] 1586s [00:53:06.298] ...future.FUN(...future.X_jj, ...) 1586s [00:53:06.298] }) 1586s [00:53:06.298] } 1586s [00:53:06.298] }, args = future.call.arguments) 1586s [00:53:06.298] } 1586s [00:53:06.298] Lazy evaluation: FALSE 1586s [00:53:06.298] Asynchronous evaluation: FALSE 1586s [00:53:06.298] Local evaluation: TRUE 1586s [00:53:06.298] Environment: R_GlobalEnv 1586s [00:53:06.298] Capture standard output: TRUE 1586s [00:53:06.298] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1586s [00:53:06.298] Globals: 11 objects totaling 93.71 KiB (function ‘...future.FUN’ of 21.22 KiB, function ‘x_FUN’ of 1.16 KiB, integer ‘times’ of 56 bytes, function ‘stopf’ of 26.43 KiB, function ‘stop_if_not’ of 44.12 KiB, ...) 1586s [00:53:06.298] Packages: 1 packages (‘future.apply’) 1586s [00:53:06.298] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1586s [00:53:06.298] Resolved: TRUE 1586s [00:53:06.298] Value: 480 bytes of class ‘list’ 1586s [00:53:06.298] Early signaling: FALSE 1586s [00:53:06.298] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1586s [00:53:06.298] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1586s [00:53:06.300] Chunk #1 of 1 ... DONE 1586s [00:53:06.300] Launching 1 futures (chunks) ... DONE 1586s [00:53:06.300] Resolving 1 futures (chunks) ... 1586s [00:53:06.300] resolve() on list ... 1586s [00:53:06.300] recursive: 0 1586s [00:53:06.300] length: 1 1586s [00:53:06.301] 1586s [00:53:06.301] resolved() for ‘SequentialFuture’ ... 1586s [00:53:06.301] - state: ‘finished’ 1586s [00:53:06.301] - run: TRUE 1586s [00:53:06.301] - result: ‘FutureResult’ 1586s [00:53:06.301] resolved() for ‘SequentialFuture’ ... done 1586s [00:53:06.302] Future #1 1586s [00:53:06.302] signalConditionsASAP(SequentialFuture, pos=1) ... 1586s [00:53:06.302] - nx: 1 1586s [00:53:06.302] - relay: TRUE 1586s [00:53:06.302] - stdout: TRUE 1586s [00:53:06.302] - signal: TRUE 1586s [00:53:06.302] - resignal: FALSE 1586s [00:53:06.303] - force: TRUE 1586s [00:53:06.303] - relayed: [n=1] FALSE 1586s [00:53:06.303] - queued futures: [n=1] FALSE 1586s [00:53:06.303] - until=1 1586s [00:53:06.303] - relaying element #1 1586s [00:53:06.303] - relayed: [n=1] TRUE 1586s [00:53:06.304] - queued futures: [n=1] TRUE 1586s [00:53:06.304] signalConditionsASAP(SequentialFuture, pos=1) ... done 1586s [00:53:06.304] length: 0 (resolved future 1) 1586s [00:53:06.304] Relaying remaining futures 1586s [00:53:06.304] signalConditionsASAP(NULL, pos=0) ... 1586s [00:53:06.304] - nx: 1 1586s [00:53:06.304] - relay: TRUE 1586s [00:53:06.305] - stdout: TRUE 1586s [00:53:06.305] - signal: TRUE 1586s [00:53:06.305] - resignal: FALSE 1586s [00:53:06.305] - force: TRUE 1586s [00:53:06.305] - relayed: [n=1] TRUE 1586s [00:53:06.305] - queued futures: [n=1] TRUE 1586s - flush all 1586s [00:53:06.306] - relayed: [n=1] TRUE 1586s [00:53:06.306] - queued futures: [n=1] TRUE 1586s [00:53:06.306] signalConditionsASAP(NULL, pos=0) ... done 1586s [00:53:06.306] resolve() on list ... DONE 1586s [00:53:06.306] - Number of value chunks collected: 1 1586s [00:53:06.306] Resolving 1 futures (chunks) ... DONE 1586s [00:53:06.306] Reducing values from 1 chunks ... 1586s [00:53:06.307] - Number of values collected after concatenation: 10 1586s [00:53:06.307] - Number of values expected: 10 1586s [00:53:06.307] Reducing values from 1 chunks ... DONE 1586s [00:53:06.307] future_lapply() ... DONE 1586s int[0 , 1:10] 1586s num [1:10] [00:53:06.308] future_lapply() ... 1586s 1 1.41 1.73 2 2.24 ... 1586s [00:53:06.310] Number of chunks: 1 1586s [00:53:06.311] getGlobalsAndPackagesXApply() ... 1586s [00:53:06.311] - future.globals: TRUE 1586s [00:53:06.311] getGlobalsAndPackages() ... 1586s [00:53:06.311] Searching for globals... 1586s [00:53:06.315] - globals found: [16] ‘FUN’, ‘{’, ‘<-’, ‘x_FUN’, ‘if’, ‘!=’, ‘length’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘all’, ‘==’, ‘dim’, ‘%in%’, ‘typeof’, ‘valid_types’ 1586s [00:53:06.315] Searching for globals ... DONE 1586s [00:53:06.315] Resolving globals: FALSE 1586s [00:53:06.317] The total size of the 7 globals is 92.12 KiB (94336 bytes) 1586s [00:53:06.317] The total size of the 7 globals exported for future expression (‘FUN()’) is 92.12 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘stop_if_not’ (44.12 KiB of class ‘function’), ‘stopf’ (26.43 KiB of class ‘function’) and ‘FUN’ (21.22 KiB of class ‘function’) 1586s [00:53:06.318] - globals: [7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1586s [00:53:06.318] - packages: [1] ‘future.apply’ 1586s [00:53:06.318] getGlobalsAndPackages() ... DONE 1586s [00:53:06.319] - globals found/used: [n=7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1586s [00:53:06.319] - needed namespaces: [n=1] ‘future.apply’ 1586s [00:53:06.319] Finding globals ... DONE 1586s [00:53:06.319] - use_args: TRUE 1586s [00:53:06.320] - Getting '...' globals ... 1586s [00:53:06.320] resolve() on list ... 1586s [00:53:06.320] recursive: 0 1586s [00:53:06.320] length: 1 1586s [00:53:06.320] elements: ‘...’ 1586s [00:53:06.321] length: 0 (resolved future 1) 1586s [00:53:06.321] resolve() on list ... DONE 1586s [00:53:06.321] - '...' content: [n=0] 1586s [00:53:06.321] List of 1 1586s [00:53:06.321] $ ...: list() 1586s [00:53:06.321] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1586s [00:53:06.321] - attr(*, "where")=List of 1 1586s [00:53:06.321] ..$ ...: 1586s [00:53:06.321] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1586s [00:53:06.321] - attr(*, "resolved")= logi TRUE 1586s [00:53:06.321] - attr(*, "total_size")= num NA 1586s [00:53:06.324] - Getting '...' globals ... DONE 1586s [00:53:06.324] Globals to be used in all futures (chunks): [n=8] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’ 1586s [00:53:06.325] List of 8 1586s [00:53:06.325] $ ...future.FUN:function (x, ...) 1586s [00:53:06.325] $ x_FUN :function (x) 1586s [00:53:06.325] $ times : int 1 1586s [00:53:06.325] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1586s [00:53:06.325] $ stop_if_not :function (...) 1586s [00:53:06.325] $ dim : NULL 1586s [00:53:06.325] $ valid_types : chr [1:3] "logical" "integer" "double" 1586s [00:53:06.325] $ ... : list() 1586s [00:53:06.325] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1586s [00:53:06.325] - attr(*, "where")=List of 8 1586s [00:53:06.325] ..$ ...future.FUN: 1586s [00:53:06.325] ..$ x_FUN : 1586s [00:53:06.325] ..$ times : 1586s [00:53:06.325] ..$ stopf : 1586s [00:53:06.325] ..$ stop_if_not : 1586s [00:53:06.325] ..$ dim : 1586s [00:53:06.325] ..$ valid_types : 1586s [00:53:06.325] ..$ ... : 1586s [00:53:06.325] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1586s [00:53:06.325] - attr(*, "resolved")= logi FALSE 1586s [00:53:06.325] - attr(*, "total_size")= num 94336 1586s [00:53:06.333] Packages to be attached in all futures: [n=1] ‘future.apply’ 1586s [00:53:06.333] getGlobalsAndPackagesXApply() ... DONE 1586s [00:53:06.334] Number of futures (= number of chunks): 1 1586s [00:53:06.334] Launching 1 futures (chunks) ... 1586s [00:53:06.334] Chunk #1 of 1 ... 1586s [00:53:06.334] - Finding globals in 'X' for chunk #1 ... 1586s [00:53:06.334] getGlobalsAndPackages() ... 1586s [00:53:06.334] Searching for globals... 1586s [00:53:06.335] 1586s [00:53:06.335] Searching for globals ... DONE 1586s [00:53:06.335] - globals: [0] 1586s [00:53:06.335] getGlobalsAndPackages() ... DONE 1586s [00:53:06.335] + additional globals found: [n=0] 1586s [00:53:06.335] + additional namespaces needed: [n=0] 1586s [00:53:06.335] - Finding globals in 'X' for chunk #1 ... DONE 1586s [00:53:06.336] - seeds: 1586s [00:53:06.336] - All globals exported: [n=11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1586s [00:53:06.336] getGlobalsAndPackages() ... 1586s [00:53:06.336] - globals passed as-is: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1586s [00:53:06.336] Resolving globals: FALSE 1586s [00:53:06.336] Tweak future expression to call with '...' arguments ... 1586s [00:53:06.337] { 1586s [00:53:06.337] do.call(function(...) { 1586s [00:53:06.337] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1586s [00:53:06.337] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1586s [00:53:06.337] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1586s [00:53:06.337] on.exit(options(oopts), add = TRUE) 1586s [00:53:06.337] } 1586s [00:53:06.337] { 1586s [00:53:06.337] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1586s [00:53:06.337] ...future.X_jj <- ...future.elements_ii[[jj]] 1586s [00:53:06.337] ...future.FUN(...future.X_jj, ...) 1586s [00:53:06.337] }) 1586s [00:53:06.337] } 1586s [00:53:06.337] }, args = future.call.arguments) 1586s [00:53:06.337] } 1586s [00:53:06.337] Tweak future expression to call with '...' arguments ... DONE 1586s [00:53:06.338] - globals: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1586s [00:53:06.338] - packages: [1] ‘future.apply’ 1586s [00:53:06.338] getGlobalsAndPackages() ... DONE 1586s [00:53:06.339] run() for ‘Future’ ... 1586s [00:53:06.339] - state: ‘created’ 1586s [00:53:06.339] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1586s [00:53:06.339] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1586s [00:53:06.339] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1586s [00:53:06.340] - Field: ‘label’ 1586s [00:53:06.340] - Field: ‘local’ 1586s [00:53:06.340] - Field: ‘owner’ 1586s [00:53:06.340] - Field: ‘envir’ 1586s [00:53:06.340] - Field: ‘packages’ 1586s [00:53:06.340] - Field: ‘gc’ 1586s [00:53:06.340] - Field: ‘conditions’ 1586s [00:53:06.341] - Field: ‘expr’ 1586s [00:53:06.341] - Field: ‘uuid’ 1586s [00:53:06.341] - Field: ‘seed’ 1586s [00:53:06.341] - Field: ‘version’ 1586s [00:53:06.341] - Field: ‘result’ 1586s [00:53:06.342] - Field: ‘asynchronous’ 1586s [00:53:06.342] - Field: ‘calls’ 1586s [00:53:06.342] - Field: ‘globals’ 1586s [00:53:06.342] - Field: ‘stdout’ 1586s [00:53:06.343] - Field: ‘earlySignal’ 1586s [00:53:06.343] - Field: ‘lazy’ 1586s [00:53:06.343] - Field: ‘state’ 1586s [00:53:06.343] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1586s [00:53:06.343] - Launch lazy future ... 1586s [00:53:06.343] Packages needed by the future expression (n = 1): ‘future.apply’ 1586s [00:53:06.344] Packages needed by future strategies (n = 0): 1586s [00:53:06.344] { 1586s [00:53:06.344] { 1586s [00:53:06.344] { 1586s [00:53:06.344] ...future.startTime <- base::Sys.time() 1586s [00:53:06.344] { 1586s [00:53:06.344] { 1586s [00:53:06.344] { 1586s [00:53:06.344] { 1586s [00:53:06.344] base::local({ 1586s [00:53:06.344] has_future <- base::requireNamespace("future", 1586s [00:53:06.344] quietly = TRUE) 1586s [00:53:06.344] if (has_future) { 1586s [00:53:06.344] ns <- base::getNamespace("future") 1586s [00:53:06.344] version <- ns[[".package"]][["version"]] 1586s [00:53:06.344] if (is.null(version)) 1586s [00:53:06.344] version <- utils::packageVersion("future") 1586s [00:53:06.344] } 1586s [00:53:06.344] else { 1586s [00:53:06.344] version <- NULL 1586s [00:53:06.344] } 1586s [00:53:06.344] if (!has_future || version < "1.8.0") { 1586s [00:53:06.344] info <- base::c(r_version = base::gsub("R version ", 1586s [00:53:06.344] "", base::R.version$version.string), 1586s [00:53:06.344] platform = base::sprintf("%s (%s-bit)", 1586s [00:53:06.344] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1586s [00:53:06.344] os = base::paste(base::Sys.info()[base::c("sysname", 1586s [00:53:06.344] "release", "version")], collapse = " "), 1586s [00:53:06.344] hostname = base::Sys.info()[["nodename"]]) 1586s [00:53:06.344] info <- base::sprintf("%s: %s", base::names(info), 1586s [00:53:06.344] info) 1586s [00:53:06.344] info <- base::paste(info, collapse = "; ") 1586s [00:53:06.344] if (!has_future) { 1586s [00:53:06.344] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1586s [00:53:06.344] info) 1586s [00:53:06.344] } 1586s [00:53:06.344] else { 1586s [00:53:06.344] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1586s [00:53:06.344] info, version) 1586s [00:53:06.344] } 1586s [00:53:06.344] base::stop(msg) 1586s [00:53:06.344] } 1586s [00:53:06.344] }) 1586s [00:53:06.344] } 1586s [00:53:06.344] base::local({ 1586s [00:53:06.344] for (pkg in "future.apply") { 1586s [00:53:06.344] base::loadNamespace(pkg) 1586s [00:53:06.344] base::library(pkg, character.only = TRUE) 1586s [00:53:06.344] } 1586s [00:53:06.344] }) 1586s [00:53:06.344] } 1586s [00:53:06.344] options(future.plan = NULL) 1586s [00:53:06.344] Sys.unsetenv("R_FUTURE_PLAN") 1586s [00:53:06.344] future::plan("default", .cleanup = FALSE, .init = FALSE) 1586s [00:53:06.344] } 1586s [00:53:06.344] ...future.workdir <- getwd() 1586s [00:53:06.344] } 1586s [00:53:06.344] ...future.oldOptions <- base::as.list(base::.Options) 1586s [00:53:06.344] ...future.oldEnvVars <- base::Sys.getenv() 1586s [00:53:06.344] } 1586s [00:53:06.344] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1586s [00:53:06.344] future.globals.maxSize = NULL, future.globals.method = NULL, 1586s [00:53:06.344] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1586s [00:53:06.344] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1586s [00:53:06.344] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1586s [00:53:06.344] future.stdout.windows.reencode = NULL, width = 80L) 1586s [00:53:06.344] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1586s [00:53:06.344] base::names(...future.oldOptions)) 1586s [00:53:06.344] } 1586s [00:53:06.344] if (FALSE) { 1586s [00:53:06.344] } 1586s [00:53:06.344] else { 1586s [00:53:06.344] if (TRUE) { 1586s [00:53:06.344] ...future.stdout <- base::rawConnection(base::raw(0L), 1586s [00:53:06.344] open = "w") 1586s [00:53:06.344] } 1586s [00:53:06.344] else { 1586s [00:53:06.344] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1586s [00:53:06.344] windows = "NUL", "/dev/null"), open = "w") 1586s [00:53:06.344] } 1586s [00:53:06.344] base::sink(...future.stdout, type = "output", split = FALSE) 1586s [00:53:06.344] base::on.exit(if (!base::is.null(...future.stdout)) { 1586s [00:53:06.344] base::sink(type = "output", split = FALSE) 1586s [00:53:06.344] base::close(...future.stdout) 1586s [00:53:06.344] }, add = TRUE) 1586s [00:53:06.344] } 1586s [00:53:06.344] ...future.frame <- base::sys.nframe() 1586s [00:53:06.344] ...future.conditions <- base::list() 1586s [00:53:06.344] ...future.rng <- base::globalenv()$.Random.seed 1586s [00:53:06.344] if (FALSE) { 1586s [00:53:06.344] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1586s [00:53:06.344] "...future.value", "...future.globalenv.names", ".Random.seed") 1586s [00:53:06.344] } 1586s [00:53:06.344] ...future.result <- base::tryCatch({ 1586s [00:53:06.344] base::withCallingHandlers({ 1586s [00:53:06.344] ...future.value <- base::withVisible(base::local({ 1586s [00:53:06.344] do.call(function(...) { 1586s [00:53:06.344] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1586s [00:53:06.344] if (!identical(...future.globals.maxSize.org, 1586s [00:53:06.344] ...future.globals.maxSize)) { 1586s [00:53:06.344] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1586s [00:53:06.344] on.exit(options(oopts), add = TRUE) 1586s [00:53:06.344] } 1586s [00:53:06.344] { 1586s [00:53:06.344] lapply(seq_along(...future.elements_ii), 1586s [00:53:06.344] FUN = function(jj) { 1586s [00:53:06.344] ...future.X_jj <- ...future.elements_ii[[jj]] 1586s [00:53:06.344] ...future.FUN(...future.X_jj, ...) 1586s [00:53:06.344] }) 1586s [00:53:06.344] } 1586s [00:53:06.344] }, args = future.call.arguments) 1586s [00:53:06.344] })) 1586s [00:53:06.344] future::FutureResult(value = ...future.value$value, 1586s [00:53:06.344] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1586s [00:53:06.344] ...future.rng), globalenv = if (FALSE) 1586s [00:53:06.344] list(added = base::setdiff(base::names(base::.GlobalEnv), 1586s [00:53:06.344] ...future.globalenv.names)) 1586s [00:53:06.344] else NULL, started = ...future.startTime, version = "1.8") 1586s [00:53:06.344] }, condition = base::local({ 1586s [00:53:06.344] c <- base::c 1586s [00:53:06.344] inherits <- base::inherits 1586s [00:53:06.344] invokeRestart <- base::invokeRestart 1586s [00:53:06.344] length <- base::length 1586s [00:53:06.344] list <- base::list 1586s [00:53:06.344] seq.int <- base::seq.int 1586s [00:53:06.344] signalCondition <- base::signalCondition 1586s [00:53:06.344] sys.calls <- base::sys.calls 1586s [00:53:06.344] `[[` <- base::`[[` 1586s [00:53:06.344] `+` <- base::`+` 1586s [00:53:06.344] `<<-` <- base::`<<-` 1586s [00:53:06.344] sysCalls <- function(calls = sys.calls(), from = 1L) { 1586s [00:53:06.344] calls[seq.int(from = from + 12L, to = length(calls) - 1586s [00:53:06.344] 3L)] 1586s [00:53:06.344] } 1586s [00:53:06.344] function(cond) { 1586s [00:53:06.344] is_error <- inherits(cond, "error") 1586s [00:53:06.344] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1586s [00:53:06.344] NULL) 1586s [00:53:06.344] if (is_error) { 1586s [00:53:06.344] sessionInformation <- function() { 1586s [00:53:06.344] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1586s [00:53:06.344] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1586s [00:53:06.344] search = base::search(), system = base::Sys.info()) 1586s [00:53:06.344] } 1586s [00:53:06.344] ...future.conditions[[length(...future.conditions) + 1586s [00:53:06.344] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1586s [00:53:06.344] cond$call), session = sessionInformation(), 1586s [00:53:06.344] timestamp = base::Sys.time(), signaled = 0L) 1586s [00:53:06.344] signalCondition(cond) 1586s [00:53:06.344] } 1586s [00:53:06.344] else if (!ignore && TRUE && inherits(cond, c("condition", 1586s [00:53:06.344] "immediateCondition"))) { 1586s [00:53:06.344] signal <- TRUE && inherits(cond, "immediateCondition") 1586s [00:53:06.344] ...future.conditions[[length(...future.conditions) + 1586s [00:53:06.344] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1586s [00:53:06.344] if (TRUE && !signal) { 1586s [00:53:06.344] muffleCondition <- function (cond, pattern = "^muffle") 1586s [00:53:06.344] { 1586s [00:53:06.344] inherits <- base::inherits 1586s [00:53:06.344] invokeRestart <- base::invokeRestart 1586s [00:53:06.344] is.null <- base::is.null 1586s [00:53:06.344] muffled <- FALSE 1586s [00:53:06.344] if (inherits(cond, "message")) { 1586s [00:53:06.344] muffled <- grepl(pattern, "muffleMessage") 1586s [00:53:06.344] if (muffled) 1586s [00:53:06.344] invokeRestart("muffleMessage") 1586s [00:53:06.344] } 1586s [00:53:06.344] else if (inherits(cond, "warning")) { 1586s [00:53:06.344] muffled <- grepl(pattern, "muffleWarning") 1586s [00:53:06.344] if (muffled) 1586s [00:53:06.344] invokeRestart("muffleWarning") 1586s [00:53:06.344] } 1586s [00:53:06.344] else if (inherits(cond, "condition")) { 1586s [00:53:06.344] if (!is.null(pattern)) { 1586s [00:53:06.344] computeRestarts <- base::computeRestarts 1586s [00:53:06.344] grepl <- base::grepl 1586s [00:53:06.344] restarts <- computeRestarts(cond) 1586s [00:53:06.344] for (restart in restarts) { 1586s [00:53:06.344] name <- restart$name 1586s [00:53:06.344] if (is.null(name)) 1586s [00:53:06.344] next 1586s [00:53:06.344] if (!grepl(pattern, name)) 1586s [00:53:06.344] next 1586s [00:53:06.344] invokeRestart(restart) 1586s [00:53:06.344] muffled <- TRUE 1586s [00:53:06.344] break 1586s [00:53:06.344] } 1586s [00:53:06.344] } 1586s [00:53:06.344] } 1586s [00:53:06.344] invisible(muffled) 1586s [00:53:06.344] } 1586s [00:53:06.344] muffleCondition(cond, pattern = "^muffle") 1586s [00:53:06.344] } 1586s [00:53:06.344] } 1586s [00:53:06.344] else { 1586s [00:53:06.344] if (TRUE) { 1586s [00:53:06.344] muffleCondition <- function (cond, pattern = "^muffle") 1586s [00:53:06.344] { 1586s [00:53:06.344] inherits <- base::inherits 1586s [00:53:06.344] invokeRestart <- base::invokeRestart 1586s [00:53:06.344] is.null <- base::is.null 1586s [00:53:06.344] muffled <- FALSE 1586s [00:53:06.344] if (inherits(cond, "message")) { 1586s [00:53:06.344] muffled <- grepl(pattern, "muffleMessage") 1586s [00:53:06.344] if (muffled) 1586s [00:53:06.344] invokeRestart("muffleMessage") 1586s [00:53:06.344] } 1586s [00:53:06.344] else if (inherits(cond, "warning")) { 1586s [00:53:06.344] muffled <- grepl(pattern, "muffleWarning") 1586s [00:53:06.344] if (muffled) 1586s [00:53:06.344] invokeRestart("muffleWarning") 1586s [00:53:06.344] } 1586s [00:53:06.344] else if (inherits(cond, "condition")) { 1586s [00:53:06.344] if (!is.null(pattern)) { 1586s [00:53:06.344] computeRestarts <- base::computeRestarts 1586s [00:53:06.344] grepl <- base::grepl 1586s [00:53:06.344] restarts <- computeRestarts(cond) 1586s [00:53:06.344] for (restart in restarts) { 1586s [00:53:06.344] name <- restart$name 1586s [00:53:06.344] if (is.null(name)) 1586s [00:53:06.344] next 1586s [00:53:06.344] if (!grepl(pattern, name)) 1586s [00:53:06.344] next 1586s [00:53:06.344] invokeRestart(restart) 1586s [00:53:06.344] muffled <- TRUE 1586s [00:53:06.344] break 1586s [00:53:06.344] } 1586s [00:53:06.344] } 1586s [00:53:06.344] } 1586s [00:53:06.344] invisible(muffled) 1586s [00:53:06.344] } 1586s [00:53:06.344] muffleCondition(cond, pattern = "^muffle") 1586s [00:53:06.344] } 1586s [00:53:06.344] } 1586s [00:53:06.344] } 1586s [00:53:06.344] })) 1586s [00:53:06.344] }, error = function(ex) { 1586s [00:53:06.344] base::structure(base::list(value = NULL, visible = NULL, 1586s [00:53:06.344] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1586s [00:53:06.344] ...future.rng), started = ...future.startTime, 1586s [00:53:06.344] finished = Sys.time(), session_uuid = NA_character_, 1586s [00:53:06.344] version = "1.8"), class = "FutureResult") 1586s [00:53:06.344] }, finally = { 1586s [00:53:06.344] if (!identical(...future.workdir, getwd())) 1586s [00:53:06.344] setwd(...future.workdir) 1586s [00:53:06.344] { 1586s [00:53:06.344] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1586s [00:53:06.344] ...future.oldOptions$nwarnings <- NULL 1586s [00:53:06.344] } 1586s [00:53:06.344] base::options(...future.oldOptions) 1586s [00:53:06.344] if (.Platform$OS.type == "windows") { 1586s [00:53:06.344] old_names <- names(...future.oldEnvVars) 1586s [00:53:06.344] envs <- base::Sys.getenv() 1586s [00:53:06.344] names <- names(envs) 1586s [00:53:06.344] common <- intersect(names, old_names) 1586s [00:53:06.344] added <- setdiff(names, old_names) 1586s [00:53:06.344] removed <- setdiff(old_names, names) 1586s [00:53:06.344] changed <- common[...future.oldEnvVars[common] != 1586s [00:53:06.344] envs[common]] 1586s [00:53:06.344] NAMES <- toupper(changed) 1586s [00:53:06.344] args <- list() 1586s [00:53:06.344] for (kk in seq_along(NAMES)) { 1586s [00:53:06.344] name <- changed[[kk]] 1586s [00:53:06.344] NAME <- NAMES[[kk]] 1586s [00:53:06.344] if (name != NAME && is.element(NAME, old_names)) 1586s [00:53:06.344] next 1586s [00:53:06.344] args[[name]] <- ...future.oldEnvVars[[name]] 1586s [00:53:06.344] } 1586s [00:53:06.344] NAMES <- toupper(added) 1586s [00:53:06.344] for (kk in seq_along(NAMES)) { 1586s [00:53:06.344] name <- added[[kk]] 1586s [00:53:06.344] NAME <- NAMES[[kk]] 1586s [00:53:06.344] if (name != NAME && is.element(NAME, old_names)) 1586s [00:53:06.344] next 1586s [00:53:06.344] args[[name]] <- "" 1586s [00:53:06.344] } 1586s [00:53:06.344] NAMES <- toupper(removed) 1586s [00:53:06.344] for (kk in seq_along(NAMES)) { 1586s [00:53:06.344] name <- removed[[kk]] 1586s [00:53:06.344] NAME <- NAMES[[kk]] 1586s [00:53:06.344] if (name != NAME && is.element(NAME, old_names)) 1586s [00:53:06.344] next 1586s [00:53:06.344] args[[name]] <- ...future.oldEnvVars[[name]] 1586s [00:53:06.344] } 1586s [00:53:06.344] if (length(args) > 0) 1586s [00:53:06.344] base::do.call(base::Sys.setenv, args = args) 1586s [00:53:06.344] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1586s [00:53:06.344] } 1586s [00:53:06.344] else { 1586s [00:53:06.344] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1586s [00:53:06.344] } 1586s [00:53:06.344] { 1586s [00:53:06.344] if (base::length(...future.futureOptionsAdded) > 1586s [00:53:06.344] 0L) { 1586s [00:53:06.344] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1586s [00:53:06.344] base::names(opts) <- ...future.futureOptionsAdded 1586s [00:53:06.344] base::options(opts) 1586s [00:53:06.344] } 1586s [00:53:06.344] { 1586s [00:53:06.344] { 1586s [00:53:06.344] NULL 1586s [00:53:06.344] RNGkind("Mersenne-Twister") 1586s [00:53:06.344] base::rm(list = ".Random.seed", envir = base::globalenv(), 1586s [00:53:06.344] inherits = FALSE) 1586s [00:53:06.344] } 1586s [00:53:06.344] options(future.plan = NULL) 1586s [00:53:06.344] if (is.na(NA_character_)) 1586s [00:53:06.344] Sys.unsetenv("R_FUTURE_PLAN") 1586s [00:53:06.344] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1586s [00:53:06.344] future::plan(list(function (..., envir = parent.frame()) 1586s [00:53:06.344] { 1586s [00:53:06.344] future <- SequentialFuture(..., envir = envir) 1586s [00:53:06.344] if (!future$lazy) 1586s [00:53:06.344] future <- run(future) 1586s [00:53:06.344] invisible(future) 1586s [00:53:06.344] }), .cleanup = FALSE, .init = FALSE) 1586s [00:53:06.344] } 1586s [00:53:06.344] } 1586s [00:53:06.344] } 1586s [00:53:06.344] }) 1586s [00:53:06.344] if (TRUE) { 1586s [00:53:06.344] base::sink(type = "output", split = FALSE) 1586s [00:53:06.344] if (TRUE) { 1586s [00:53:06.344] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1586s [00:53:06.344] } 1586s [00:53:06.344] else { 1586s [00:53:06.344] ...future.result["stdout"] <- base::list(NULL) 1586s [00:53:06.344] } 1586s [00:53:06.344] base::close(...future.stdout) 1586s [00:53:06.344] ...future.stdout <- NULL 1586s [00:53:06.344] } 1586s [00:53:06.344] ...future.result$conditions <- ...future.conditions 1586s [00:53:06.344] ...future.result$finished <- base::Sys.time() 1586s [00:53:06.344] ...future.result 1586s [00:53:06.344] } 1586s [00:53:06.347] assign_globals() ... 1586s [00:53:06.347] List of 11 1586s [00:53:06.347] $ ...future.FUN :function (x, ...) 1586s [00:53:06.347] $ x_FUN :function (x) 1586s [00:53:06.347] $ times : int 1 1586s [00:53:06.347] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1586s [00:53:06.347] $ stop_if_not :function (...) 1586s [00:53:06.347] $ dim : NULL 1586s [00:53:06.347] $ valid_types : chr [1:3] "logical" "integer" "double" 1586s [00:53:06.347] $ future.call.arguments : list() 1586s [00:53:06.347] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1586s [00:53:06.347] $ ...future.elements_ii :List of 10 1586s [00:53:06.347] ..$ : int 1 1586s [00:53:06.347] ..$ : int 2 1586s [00:53:06.347] ..$ : int 3 1586s [00:53:06.347] ..$ : int 4 1586s [00:53:06.347] ..$ : int 5 1586s [00:53:06.347] ..$ : int 6 1586s [00:53:06.347] ..$ : int 7 1586s [00:53:06.347] ..$ : int 8 1586s [00:53:06.347] ..$ : int 9 1586s [00:53:06.347] ..$ : int 10 1586s [00:53:06.347] $ ...future.seeds_ii : NULL 1586s [00:53:06.347] $ ...future.globals.maxSize: NULL 1586s [00:53:06.347] - attr(*, "where")=List of 11 1586s [00:53:06.347] ..$ ...future.FUN : 1586s [00:53:06.347] ..$ x_FUN : 1586s [00:53:06.347] ..$ times : 1586s [00:53:06.347] ..$ stopf : 1586s [00:53:06.347] ..$ stop_if_not : 1586s [00:53:06.347] ..$ dim : 1586s [00:53:06.347] ..$ valid_types : 1586s [00:53:06.347] ..$ future.call.arguments : 1586s [00:53:06.347] ..$ ...future.elements_ii : 1586s [00:53:06.347] ..$ ...future.seeds_ii : 1586s [00:53:06.347] ..$ ...future.globals.maxSize: 1586s [00:53:06.347] - attr(*, "resolved")= logi FALSE 1586s [00:53:06.347] - attr(*, "total_size")= num 94336 1586s [00:53:06.347] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1586s [00:53:06.347] - attr(*, "already-done")= logi TRUE 1586s [00:53:06.361] - copied ‘...future.FUN’ to environment 1586s [00:53:06.361] - copied ‘x_FUN’ to environment 1586s [00:53:06.361] - copied ‘times’ to environment 1586s [00:53:06.362] - copied ‘stopf’ to environment 1586s [00:53:06.362] - copied ‘stop_if_not’ to environment 1586s [00:53:06.362] - copied ‘dim’ to environment 1586s [00:53:06.362] - copied ‘valid_types’ to environment 1586s [00:53:06.362] - copied ‘future.call.arguments’ to environment 1586s [00:53:06.362] - copied ‘...future.elements_ii’ to environment 1586s [00:53:06.363] - copied ‘...future.seeds_ii’ to environment 1586s [00:53:06.363] - copied ‘...future.globals.maxSize’ to environment 1586s [00:53:06.363] assign_globals() ... done 1586s [00:53:06.363] plan(): Setting new future strategy stack: 1586s [00:53:06.363] List of future strategies: 1586s [00:53:06.363] 1. sequential: 1586s [00:53:06.363] - args: function (..., envir = parent.frame()) 1586s [00:53:06.363] - tweaked: FALSE 1586s [00:53:06.363] - call: NULL 1586s [00:53:06.364] plan(): nbrOfWorkers() = 1 1586s [00:53:06.365] plan(): Setting new future strategy stack: 1586s [00:53:06.365] List of future strategies: 1586s [00:53:06.365] 1. sequential: 1586s [00:53:06.365] - args: function (..., envir = parent.frame()) 1586s [00:53:06.365] - tweaked: FALSE 1586s [00:53:06.365] - call: plan(strategy) 1586s [00:53:06.365] plan(): nbrOfWorkers() = 1 1586s [00:53:06.365] SequentialFuture started (and completed) 1586s [00:53:06.366] - Launch lazy future ... done 1586s [00:53:06.366] run() for ‘SequentialFuture’ ... done 1586s [00:53:06.366] Created future: 1586s [00:53:06.366] SequentialFuture: 1586s [00:53:06.366] Label: ‘future_vapply-1’ 1586s [00:53:06.366] Expression: 1586s [00:53:06.366] { 1586s [00:53:06.366] do.call(function(...) { 1586s [00:53:06.366] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1586s [00:53:06.366] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1586s [00:53:06.366] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1586s [00:53:06.366] on.exit(options(oopts), add = TRUE) 1586s [00:53:06.366] } 1586s [00:53:06.366] { 1586s [00:53:06.366] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1586s [00:53:06.366] ...future.X_jj <- ...future.elements_ii[[jj]] 1586s [00:53:06.366] ...future.FUN(...future.X_jj, ...) 1586s [00:53:06.366] }) 1586s [00:53:06.366] } 1586s [00:53:06.366] }, args = future.call.arguments) 1586s [00:53:06.366] } 1586s [00:53:06.366] Lazy evaluation: FALSE 1586s [00:53:06.366] Asynchronous evaluation: FALSE 1586s [00:53:06.366] Local evaluation: TRUE 1586s [00:53:06.366] Environment: R_GlobalEnv 1586s [00:53:06.366] Capture standard output: TRUE 1586s [00:53:06.366] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1586s [00:53:06.366] Globals: 11 objects totaling 92.67 KiB (function ‘...future.FUN’ of 21.22 KiB, function ‘x_FUN’ of 56 bytes, integer ‘times’ of 56 bytes, function ‘stopf’ of 26.43 KiB, function ‘stop_if_not’ of 44.12 KiB, ...) 1586s [00:53:06.366] Packages: 1 packages (‘future.apply’) 1586s [00:53:06.366] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1586s [00:53:06.366] Resolved: TRUE 1586s [00:53:06.366] Value: 560 bytes of class ‘list’ 1586s [00:53:06.366] Early signaling: FALSE 1586s [00:53:06.366] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1586s [00:53:06.366] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1586s [00:53:06.368] Chunk #1 of 1 ... DONE 1586s [00:53:06.368] Launching 1 futures (chunks) ... DONE 1586s [00:53:06.368] Resolving 1 futures (chunks) ... 1586s [00:53:06.368] resolve() on list ... 1586s [00:53:06.368] recursive: 0 1586s [00:53:06.369] length: 1 1586s [00:53:06.369] 1586s [00:53:06.369] resolved() for ‘SequentialFuture’ ... 1586s [00:53:06.369] - state: ‘finished’ 1586s [00:53:06.369] - run: TRUE 1586s [00:53:06.369] - result: ‘FutureResult’ 1586s [00:53:06.369] resolved() for ‘SequentialFuture’ ... done 1586s [00:53:06.370] Future #1 1586s [00:53:06.370] signalConditionsASAP(SequentialFuture, pos=1) ... 1586s [00:53:06.370] - nx: 1 1586s [00:53:06.370] - relay: TRUE 1586s [00:53:06.370] - stdout: TRUE 1586s [00:53:06.370] - signal: TRUE 1586s [00:53:06.370] - resignal: FALSE 1586s [00:53:06.371] - force: TRUE 1586s [00:53:06.371] - relayed: [n=1] FALSE 1586s [00:53:06.371] - queued futures: [n=1] FALSE 1586s [00:53:06.371] - until=1 1586s [00:53:06.371] - relaying element #1 1586s [00:53:06.371] - relayed: [n=1] TRUE 1586s [00:53:06.372] - queued futures: [n=1] TRUE 1586s [00:53:06.372] signalConditionsASAP(SequentialFuture, pos=1) ... done 1586s [00:53:06.372] length: 0 (resolved future 1) 1586s [00:53:06.372] Relaying remaining futures 1586s [00:53:06.372] signalConditionsASAP(NULL, pos=0) ... 1586s [00:53:06.372] - nx: 1 1586s [00:53:06.372] - relay: TRUE 1586s [00:53:06.373] - stdout: TRUE 1586s [00:53:06.373] - signal: TRUE 1586s [00:53:06.373] - resignal: FALSE 1586s [00:53:06.373] - force: TRUE 1586s [00:53:06.373] - relayed: [n=1] TRUE 1586s [00:53:06.373] - queued futures: [n=1] TRUE 1586s - flush all 1586s [00:53:06.373] - relayed: [n=1] TRUE 1586s [00:53:06.373] - queued futures: [n=1] TRUE 1586s [00:53:06.374] signalConditionsASAP(NULL, pos=0) ... done 1586s [00:53:06.374] resolve() on list ... DONE 1586s [00:53:06.374] - Number of value chunks collected: 1 1586s [00:53:06.374] Resolving 1 futures (chunks) ... DONE 1586s [00:53:06.374] Reducing values from 1 chunks ... 1586s [00:53:06.374] - Number of values collected after concatenation: 10 1586s [00:53:06.374] - Number of values expected: 10 1586s [00:53:06.374] Reducing values from 1 chunks ... DONE 1586s [00:53:06.374] future_lapply() ... DONE 1586s [00:53:06.375] future_lapply() ... 1586s num [1:10] 1 1.41 1.73 2 2.24 ... 1586s num [1:2, 1:10] 1 1 2 4 3 9 4 16 5 25 ... 1586s [00:53:06.378] Number of chunks: 1 1586s [00:53:06.378] getGlobalsAndPackagesXApply() ... 1586s [00:53:06.378] - future.globals: TRUE 1586s [00:53:06.378] getGlobalsAndPackages() ... 1586s [00:53:06.378] Searching for globals... 1586s [00:53:06.382] - globals found: [18] ‘FUN’, ‘{’, ‘<-’, ‘x_FUN’, ‘if’, ‘!=’, ‘length’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘all’, ‘==’, ‘dim’, ‘%in%’, ‘typeof’, ‘valid_types’, ‘c’, ‘^’ 1586s [00:53:06.383] Searching for globals ... DONE 1586s [00:53:06.383] Resolving globals: FALSE 1586s [00:53:06.384] The total size of the 7 globals is 94.20 KiB (96456 bytes) 1586s [00:53:06.385] The total size of the 7 globals exported for future expression (‘FUN()’) is 94.20 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘stop_if_not’ (44.12 KiB of class ‘function’), ‘stopf’ (26.43 KiB of class ‘function’) and ‘FUN’ (21.22 KiB of class ‘function’) 1586s [00:53:06.385] - globals: [7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1586s [00:53:06.385] - packages: [1] ‘future.apply’ 1586s [00:53:06.385] getGlobalsAndPackages() ... DONE 1586s [00:53:06.385] - globals found/used: [n=7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1586s [00:53:06.386] - needed namespaces: [n=1] ‘future.apply’ 1586s [00:53:06.386] Finding globals ... DONE 1586s [00:53:06.386] - use_args: TRUE 1586s [00:53:06.386] - Getting '...' globals ... 1586s [00:53:06.387] resolve() on list ... 1586s [00:53:06.387] recursive: 0 1586s [00:53:06.387] length: 1 1586s [00:53:06.387] elements: ‘...’ 1586s [00:53:06.388] length: 0 (resolved future 1) 1586s [00:53:06.388] resolve() on list ... DONE 1586s [00:53:06.389] - '...' content: [n=0] 1586s [00:53:06.389] List of 1 1586s [00:53:06.389] $ ...: list() 1586s [00:53:06.389] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1586s [00:53:06.389] - attr(*, "where")=List of 1 1586s [00:53:06.389] ..$ ...: 1586s [00:53:06.389] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1586s [00:53:06.389] - attr(*, "resolved")= logi TRUE 1586s [00:53:06.389] - attr(*, "total_size")= num NA 1586s [00:53:06.392] - Getting '...' globals ... DONE 1586s [00:53:06.392] Globals to be used in all futures (chunks): [n=8] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’ 1586s [00:53:06.392] List of 8 1586s [00:53:06.392] $ ...future.FUN:function (x, ...) 1586s [00:53:06.392] $ x_FUN :function (x) 1586s [00:53:06.392] $ times : int 2 1586s [00:53:06.392] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1586s [00:53:06.392] $ stop_if_not :function (...) 1586s [00:53:06.392] $ dim : NULL 1586s [00:53:06.392] $ valid_types : chr [1:3] "logical" "integer" "double" 1586s [00:53:06.392] $ ... : list() 1586s [00:53:06.392] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1586s [00:53:06.392] - attr(*, "where")=List of 8 1586s [00:53:06.392] ..$ ...future.FUN: 1586s [00:53:06.392] ..$ x_FUN : 1586s [00:53:06.392] ..$ times : 1586s [00:53:06.392] ..$ stopf : 1586s [00:53:06.392] ..$ stop_if_not : 1586s [00:53:06.392] ..$ dim : 1586s [00:53:06.392] ..$ valid_types : 1586s [00:53:06.392] ..$ ... : 1586s [00:53:06.392] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1586s [00:53:06.392] - attr(*, "resolved")= logi FALSE 1586s [00:53:06.392] - attr(*, "total_size")= num 96456 1586s [00:53:06.399] Packages to be attached in all futures: [n=1] ‘future.apply’ 1586s [00:53:06.400] getGlobalsAndPackagesXApply() ... DONE 1586s [00:53:06.400] Number of futures (= number of chunks): 1 1586s [00:53:06.400] Launching 1 futures (chunks) ... 1586s [00:53:06.400] Chunk #1 of 1 ... 1586s [00:53:06.400] - Finding globals in 'X' for chunk #1 ... 1586s [00:53:06.401] getGlobalsAndPackages() ... 1586s [00:53:06.401] Searching for globals... 1586s [00:53:06.401] 1586s [00:53:06.401] Searching for globals ... DONE 1586s [00:53:06.401] - globals: [0] 1586s [00:53:06.401] getGlobalsAndPackages() ... DONE 1586s [00:53:06.402] + additional globals found: [n=0] 1586s [00:53:06.402] + additional namespaces needed: [n=0] 1586s [00:53:06.402] - Finding globals in 'X' for chunk #1 ... DONE 1586s [00:53:06.402] - seeds: 1586s [00:53:06.402] - All globals exported: [n=11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1586s [00:53:06.402] getGlobalsAndPackages() ... 1586s [00:53:06.402] - globals passed as-is: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1586s [00:53:06.403] Resolving globals: FALSE 1586s [00:53:06.403] Tweak future expression to call with '...' arguments ... 1586s [00:53:06.403] { 1586s [00:53:06.403] do.call(function(...) { 1586s [00:53:06.403] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1586s [00:53:06.403] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1586s [00:53:06.403] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1586s [00:53:06.403] on.exit(options(oopts), add = TRUE) 1586s [00:53:06.403] } 1586s [00:53:06.403] { 1586s [00:53:06.403] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1586s [00:53:06.403] ...future.X_jj <- ...future.elements_ii[[jj]] 1586s [00:53:06.403] ...future.FUN(...future.X_jj, ...) 1586s [00:53:06.403] }) 1586s [00:53:06.403] } 1586s [00:53:06.403] }, args = future.call.arguments) 1586s [00:53:06.403] } 1586s [00:53:06.404] Tweak future expression to call with '...' arguments ... DONE 1586s [00:53:06.404] - globals: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1586s [00:53:06.405] - packages: [1] ‘future.apply’ 1586s [00:53:06.405] getGlobalsAndPackages() ... DONE 1586s [00:53:06.405] run() for ‘Future’ ... 1586s [00:53:06.405] - state: ‘created’ 1586s [00:53:06.405] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1586s [00:53:06.406] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1586s [00:53:06.406] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1586s [00:53:06.406] - Field: ‘label’ 1586s [00:53:06.406] - Field: ‘local’ 1586s [00:53:06.406] - Field: ‘owner’ 1586s [00:53:06.407] - Field: ‘envir’ 1586s [00:53:06.407] - Field: ‘packages’ 1586s [00:53:06.407] - Field: ‘gc’ 1586s [00:53:06.407] - Field: ‘conditions’ 1586s [00:53:06.407] - Field: ‘expr’ 1586s [00:53:06.407] - Field: ‘uuid’ 1586s [00:53:06.407] - Field: ‘seed’ 1586s [00:53:06.408] - Field: ‘version’ 1586s [00:53:06.408] - Field: ‘result’ 1586s [00:53:06.408] - Field: ‘asynchronous’ 1586s [00:53:06.408] - Field: ‘calls’ 1586s [00:53:06.408] - Field: ‘globals’ 1586s [00:53:06.408] - Field: ‘stdout’ 1586s [00:53:06.409] - Field: ‘earlySignal’ 1586s [00:53:06.409] - Field: ‘lazy’ 1586s [00:53:06.409] - Field: ‘state’ 1586s [00:53:06.409] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1586s [00:53:06.409] - Launch lazy future ... 1586s [00:53:06.409] Packages needed by the future expression (n = 1): ‘future.apply’ 1586s [00:53:06.410] Packages needed by future strategies (n = 0): 1586s [00:53:06.410] { 1586s [00:53:06.410] { 1586s [00:53:06.410] { 1586s [00:53:06.410] ...future.startTime <- base::Sys.time() 1586s [00:53:06.410] { 1586s [00:53:06.410] { 1586s [00:53:06.410] { 1586s [00:53:06.410] { 1586s [00:53:06.410] base::local({ 1586s [00:53:06.410] has_future <- base::requireNamespace("future", 1586s [00:53:06.410] quietly = TRUE) 1586s [00:53:06.410] if (has_future) { 1586s [00:53:06.410] ns <- base::getNamespace("future") 1586s [00:53:06.410] version <- ns[[".package"]][["version"]] 1586s [00:53:06.410] if (is.null(version)) 1586s [00:53:06.410] version <- utils::packageVersion("future") 1586s [00:53:06.410] } 1586s [00:53:06.410] else { 1586s [00:53:06.410] version <- NULL 1586s [00:53:06.410] } 1586s [00:53:06.410] if (!has_future || version < "1.8.0") { 1586s [00:53:06.410] info <- base::c(r_version = base::gsub("R version ", 1586s [00:53:06.410] "", base::R.version$version.string), 1586s [00:53:06.410] platform = base::sprintf("%s (%s-bit)", 1586s [00:53:06.410] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1586s [00:53:06.410] os = base::paste(base::Sys.info()[base::c("sysname", 1586s [00:53:06.410] "release", "version")], collapse = " "), 1586s [00:53:06.410] hostname = base::Sys.info()[["nodename"]]) 1586s [00:53:06.410] info <- base::sprintf("%s: %s", base::names(info), 1586s [00:53:06.410] info) 1586s [00:53:06.410] info <- base::paste(info, collapse = "; ") 1586s [00:53:06.410] if (!has_future) { 1586s [00:53:06.410] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1586s [00:53:06.410] info) 1586s [00:53:06.410] } 1586s [00:53:06.410] else { 1586s [00:53:06.410] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1586s [00:53:06.410] info, version) 1586s [00:53:06.410] } 1586s [00:53:06.410] base::stop(msg) 1586s [00:53:06.410] } 1586s [00:53:06.410] }) 1586s [00:53:06.410] } 1586s [00:53:06.410] base::local({ 1586s [00:53:06.410] for (pkg in "future.apply") { 1586s [00:53:06.410] base::loadNamespace(pkg) 1586s [00:53:06.410] base::library(pkg, character.only = TRUE) 1586s [00:53:06.410] } 1586s [00:53:06.410] }) 1586s [00:53:06.410] } 1586s [00:53:06.410] options(future.plan = NULL) 1586s [00:53:06.410] Sys.unsetenv("R_FUTURE_PLAN") 1586s [00:53:06.410] future::plan("default", .cleanup = FALSE, .init = FALSE) 1586s [00:53:06.410] } 1586s [00:53:06.410] ...future.workdir <- getwd() 1586s [00:53:06.410] } 1586s [00:53:06.410] ...future.oldOptions <- base::as.list(base::.Options) 1586s [00:53:06.410] ...future.oldEnvVars <- base::Sys.getenv() 1586s [00:53:06.410] } 1586s [00:53:06.410] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1586s [00:53:06.410] future.globals.maxSize = NULL, future.globals.method = NULL, 1586s [00:53:06.410] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1586s [00:53:06.410] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1586s [00:53:06.410] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1586s [00:53:06.410] future.stdout.windows.reencode = NULL, width = 80L) 1586s [00:53:06.410] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1586s [00:53:06.410] base::names(...future.oldOptions)) 1586s [00:53:06.410] } 1586s [00:53:06.410] if (FALSE) { 1586s [00:53:06.410] } 1586s [00:53:06.410] else { 1586s [00:53:06.410] if (TRUE) { 1586s [00:53:06.410] ...future.stdout <- base::rawConnection(base::raw(0L), 1586s [00:53:06.410] open = "w") 1586s [00:53:06.410] } 1586s [00:53:06.410] else { 1586s [00:53:06.410] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1586s [00:53:06.410] windows = "NUL", "/dev/null"), open = "w") 1586s [00:53:06.410] } 1586s [00:53:06.410] base::sink(...future.stdout, type = "output", split = FALSE) 1586s [00:53:06.410] base::on.exit(if (!base::is.null(...future.stdout)) { 1586s [00:53:06.410] base::sink(type = "output", split = FALSE) 1586s [00:53:06.410] base::close(...future.stdout) 1586s [00:53:06.410] }, add = TRUE) 1586s [00:53:06.410] } 1586s [00:53:06.410] ...future.frame <- base::sys.nframe() 1586s [00:53:06.410] ...future.conditions <- base::list() 1586s [00:53:06.410] ...future.rng <- base::globalenv()$.Random.seed 1586s [00:53:06.410] if (FALSE) { 1586s [00:53:06.410] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1586s [00:53:06.410] "...future.value", "...future.globalenv.names", ".Random.seed") 1586s [00:53:06.410] } 1586s [00:53:06.410] ...future.result <- base::tryCatch({ 1586s [00:53:06.410] base::withCallingHandlers({ 1586s [00:53:06.410] ...future.value <- base::withVisible(base::local({ 1586s [00:53:06.410] do.call(function(...) { 1586s [00:53:06.410] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1586s [00:53:06.410] if (!identical(...future.globals.maxSize.org, 1586s [00:53:06.410] ...future.globals.maxSize)) { 1586s [00:53:06.410] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1586s [00:53:06.410] on.exit(options(oopts), add = TRUE) 1586s [00:53:06.410] } 1586s [00:53:06.410] { 1586s [00:53:06.410] lapply(seq_along(...future.elements_ii), 1586s [00:53:06.410] FUN = function(jj) { 1586s [00:53:06.410] ...future.X_jj <- ...future.elements_ii[[jj]] 1586s [00:53:06.410] ...future.FUN(...future.X_jj, ...) 1586s [00:53:06.410] }) 1586s [00:53:06.410] } 1586s [00:53:06.410] }, args = future.call.arguments) 1586s [00:53:06.410] })) 1586s [00:53:06.410] future::FutureResult(value = ...future.value$value, 1586s [00:53:06.410] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1586s [00:53:06.410] ...future.rng), globalenv = if (FALSE) 1586s [00:53:06.410] list(added = base::setdiff(base::names(base::.GlobalEnv), 1586s [00:53:06.410] ...future.globalenv.names)) 1586s [00:53:06.410] else NULL, started = ...future.startTime, version = "1.8") 1586s [00:53:06.410] }, condition = base::local({ 1586s [00:53:06.410] c <- base::c 1586s [00:53:06.410] inherits <- base::inherits 1586s [00:53:06.410] invokeRestart <- base::invokeRestart 1586s [00:53:06.410] length <- base::length 1586s [00:53:06.410] list <- base::list 1586s [00:53:06.410] seq.int <- base::seq.int 1586s [00:53:06.410] signalCondition <- base::signalCondition 1586s [00:53:06.410] sys.calls <- base::sys.calls 1586s [00:53:06.410] `[[` <- base::`[[` 1586s [00:53:06.410] `+` <- base::`+` 1586s [00:53:06.410] `<<-` <- base::`<<-` 1586s [00:53:06.410] sysCalls <- function(calls = sys.calls(), from = 1L) { 1586s [00:53:06.410] calls[seq.int(from = from + 12L, to = length(calls) - 1586s [00:53:06.410] 3L)] 1586s [00:53:06.410] } 1586s [00:53:06.410] function(cond) { 1586s [00:53:06.410] is_error <- inherits(cond, "error") 1586s [00:53:06.410] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1586s [00:53:06.410] NULL) 1586s [00:53:06.410] if (is_error) { 1586s [00:53:06.410] sessionInformation <- function() { 1586s [00:53:06.410] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1586s [00:53:06.410] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1586s [00:53:06.410] search = base::search(), system = base::Sys.info()) 1586s [00:53:06.410] } 1586s [00:53:06.410] ...future.conditions[[length(...future.conditions) + 1586s [00:53:06.410] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1586s [00:53:06.410] cond$call), session = sessionInformation(), 1586s [00:53:06.410] timestamp = base::Sys.time(), signaled = 0L) 1586s [00:53:06.410] signalCondition(cond) 1586s [00:53:06.410] } 1586s [00:53:06.410] else if (!ignore && TRUE && inherits(cond, c("condition", 1586s [00:53:06.410] "immediateCondition"))) { 1586s [00:53:06.410] signal <- TRUE && inherits(cond, "immediateCondition") 1586s [00:53:06.410] ...future.conditions[[length(...future.conditions) + 1586s [00:53:06.410] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1586s [00:53:06.410] if (TRUE && !signal) { 1586s [00:53:06.410] muffleCondition <- function (cond, pattern = "^muffle") 1586s [00:53:06.410] { 1586s [00:53:06.410] inherits <- base::inherits 1586s [00:53:06.410] invokeRestart <- base::invokeRestart 1586s [00:53:06.410] is.null <- base::is.null 1586s [00:53:06.410] muffled <- FALSE 1586s [00:53:06.410] if (inherits(cond, "message")) { 1586s [00:53:06.410] muffled <- grepl(pattern, "muffleMessage") 1586s [00:53:06.410] if (muffled) 1586s [00:53:06.410] invokeRestart("muffleMessage") 1586s [00:53:06.410] } 1586s [00:53:06.410] else if (inherits(cond, "warning")) { 1586s [00:53:06.410] muffled <- grepl(pattern, "muffleWarning") 1586s [00:53:06.410] if (muffled) 1586s [00:53:06.410] invokeRestart("muffleWarning") 1586s [00:53:06.410] } 1586s [00:53:06.410] else if (inherits(cond, "condition")) { 1586s [00:53:06.410] if (!is.null(pattern)) { 1586s [00:53:06.410] computeRestarts <- base::computeRestarts 1586s [00:53:06.410] grepl <- base::grepl 1586s [00:53:06.410] restarts <- computeRestarts(cond) 1586s [00:53:06.410] for (restart in restarts) { 1586s [00:53:06.410] name <- restart$name 1586s [00:53:06.410] if (is.null(name)) 1586s [00:53:06.410] next 1586s [00:53:06.410] if (!grepl(pattern, name)) 1586s [00:53:06.410] next 1586s [00:53:06.410] invokeRestart(restart) 1586s [00:53:06.410] muffled <- TRUE 1586s [00:53:06.410] break 1586s [00:53:06.410] } 1586s [00:53:06.410] } 1586s [00:53:06.410] } 1586s [00:53:06.410] invisible(muffled) 1586s [00:53:06.410] } 1586s [00:53:06.410] muffleCondition(cond, pattern = "^muffle") 1586s [00:53:06.410] } 1586s [00:53:06.410] } 1586s [00:53:06.410] else { 1586s [00:53:06.410] if (TRUE) { 1586s [00:53:06.410] muffleCondition <- function (cond, pattern = "^muffle") 1586s [00:53:06.410] { 1586s [00:53:06.410] inherits <- base::inherits 1586s [00:53:06.410] invokeRestart <- base::invokeRestart 1586s [00:53:06.410] is.null <- base::is.null 1586s [00:53:06.410] muffled <- FALSE 1586s [00:53:06.410] if (inherits(cond, "message")) { 1586s [00:53:06.410] muffled <- grepl(pattern, "muffleMessage") 1586s [00:53:06.410] if (muffled) 1586s [00:53:06.410] invokeRestart("muffleMessage") 1586s [00:53:06.410] } 1586s [00:53:06.410] else if (inherits(cond, "warning")) { 1586s [00:53:06.410] muffled <- grepl(pattern, "muffleWarning") 1586s [00:53:06.410] if (muffled) 1586s [00:53:06.410] invokeRestart("muffleWarning") 1586s [00:53:06.410] } 1586s [00:53:06.410] else if (inherits(cond, "condition")) { 1586s [00:53:06.410] if (!is.null(pattern)) { 1586s [00:53:06.410] computeRestarts <- base::computeRestarts 1586s [00:53:06.410] grepl <- base::grepl 1586s [00:53:06.410] restarts <- computeRestarts(cond) 1586s [00:53:06.410] for (restart in restarts) { 1586s [00:53:06.410] name <- restart$name 1586s [00:53:06.410] if (is.null(name)) 1586s [00:53:06.410] next 1586s [00:53:06.410] if (!grepl(pattern, name)) 1586s [00:53:06.410] next 1586s [00:53:06.410] invokeRestart(restart) 1586s [00:53:06.410] muffled <- TRUE 1586s [00:53:06.410] break 1586s [00:53:06.410] } 1586s [00:53:06.410] } 1586s [00:53:06.410] } 1586s [00:53:06.410] invisible(muffled) 1586s [00:53:06.410] } 1586s [00:53:06.410] muffleCondition(cond, pattern = "^muffle") 1586s [00:53:06.410] } 1586s [00:53:06.410] } 1586s [00:53:06.410] } 1586s [00:53:06.410] })) 1586s [00:53:06.410] }, error = function(ex) { 1586s [00:53:06.410] base::structure(base::list(value = NULL, visible = NULL, 1586s [00:53:06.410] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1586s [00:53:06.410] ...future.rng), started = ...future.startTime, 1586s [00:53:06.410] finished = Sys.time(), session_uuid = NA_character_, 1586s [00:53:06.410] version = "1.8"), class = "FutureResult") 1586s [00:53:06.410] }, finally = { 1586s [00:53:06.410] if (!identical(...future.workdir, getwd())) 1586s [00:53:06.410] setwd(...future.workdir) 1586s [00:53:06.410] { 1586s [00:53:06.410] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1586s [00:53:06.410] ...future.oldOptions$nwarnings <- NULL 1586s [00:53:06.410] } 1586s [00:53:06.410] base::options(...future.oldOptions) 1586s [00:53:06.410] if (.Platform$OS.type == "windows") { 1586s [00:53:06.410] old_names <- names(...future.oldEnvVars) 1586s [00:53:06.410] envs <- base::Sys.getenv() 1586s [00:53:06.410] names <- names(envs) 1586s [00:53:06.410] common <- intersect(names, old_names) 1586s [00:53:06.410] added <- setdiff(names, old_names) 1586s [00:53:06.410] removed <- setdiff(old_names, names) 1586s [00:53:06.410] changed <- common[...future.oldEnvVars[common] != 1586s [00:53:06.410] envs[common]] 1586s [00:53:06.410] NAMES <- toupper(changed) 1586s [00:53:06.410] args <- list() 1586s [00:53:06.410] for (kk in seq_along(NAMES)) { 1586s [00:53:06.410] name <- changed[[kk]] 1586s [00:53:06.410] NAME <- NAMES[[kk]] 1586s [00:53:06.410] if (name != NAME && is.element(NAME, old_names)) 1586s [00:53:06.410] next 1586s [00:53:06.410] args[[name]] <- ...future.oldEnvVars[[name]] 1586s [00:53:06.410] } 1586s [00:53:06.410] NAMES <- toupper(added) 1586s [00:53:06.410] for (kk in seq_along(NAMES)) { 1586s [00:53:06.410] name <- added[[kk]] 1586s [00:53:06.410] NAME <- NAMES[[kk]] 1586s [00:53:06.410] if (name != NAME && is.element(NAME, old_names)) 1586s [00:53:06.410] next 1586s [00:53:06.410] args[[name]] <- "" 1586s [00:53:06.410] } 1586s [00:53:06.410] NAMES <- toupper(removed) 1586s [00:53:06.410] for (kk in seq_along(NAMES)) { 1586s [00:53:06.410] name <- removed[[kk]] 1586s [00:53:06.410] NAME <- NAMES[[kk]] 1586s [00:53:06.410] if (name != NAME && is.element(NAME, old_names)) 1586s [00:53:06.410] next 1586s [00:53:06.410] args[[name]] <- ...future.oldEnvVars[[name]] 1586s [00:53:06.410] } 1586s [00:53:06.410] if (length(args) > 0) 1586s [00:53:06.410] base::do.call(base::Sys.setenv, args = args) 1586s [00:53:06.410] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1586s [00:53:06.410] } 1586s [00:53:06.410] else { 1586s [00:53:06.410] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1586s [00:53:06.410] } 1586s [00:53:06.410] { 1586s [00:53:06.410] if (base::length(...future.futureOptionsAdded) > 1586s [00:53:06.410] 0L) { 1586s [00:53:06.410] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1586s [00:53:06.410] base::names(opts) <- ...future.futureOptionsAdded 1586s [00:53:06.410] base::options(opts) 1586s [00:53:06.410] } 1586s [00:53:06.410] { 1586s [00:53:06.410] { 1586s [00:53:06.410] NULL 1586s [00:53:06.410] RNGkind("Mersenne-Twister") 1586s [00:53:06.410] base::rm(list = ".Random.seed", envir = base::globalenv(), 1586s [00:53:06.410] inherits = FALSE) 1586s [00:53:06.410] } 1586s [00:53:06.410] options(future.plan = NULL) 1586s [00:53:06.410] if (is.na(NA_character_)) 1586s [00:53:06.410] Sys.unsetenv("R_FUTURE_PLAN") 1586s [00:53:06.410] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1586s [00:53:06.410] future::plan(list(function (..., envir = parent.frame()) 1586s [00:53:06.410] { 1586s [00:53:06.410] future <- SequentialFuture(..., envir = envir) 1586s [00:53:06.410] if (!future$lazy) 1586s [00:53:06.410] future <- run(future) 1586s [00:53:06.410] invisible(future) 1586s [00:53:06.410] }), .cleanup = FALSE, .init = FALSE) 1586s [00:53:06.410] } 1586s [00:53:06.410] } 1586s [00:53:06.410] } 1586s [00:53:06.410] }) 1586s [00:53:06.410] if (TRUE) { 1586s [00:53:06.410] base::sink(type = "output", split = FALSE) 1586s [00:53:06.410] if (TRUE) { 1586s [00:53:06.410] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1586s [00:53:06.410] } 1586s [00:53:06.410] else { 1586s [00:53:06.410] ...future.result["stdout"] <- base::list(NULL) 1586s [00:53:06.410] } 1586s [00:53:06.410] base::close(...future.stdout) 1586s [00:53:06.410] ...future.stdout <- NULL 1586s [00:53:06.410] } 1586s [00:53:06.410] ...future.result$conditions <- ...future.conditions 1586s [00:53:06.410] ...future.result$finished <- base::Sys.time() 1586s [00:53:06.410] ...future.result 1586s [00:53:06.410] } 1586s [00:53:06.413] assign_globals() ... 1586s [00:53:06.413] List of 11 1586s [00:53:06.413] $ ...future.FUN :function (x, ...) 1586s [00:53:06.413] $ x_FUN :function (x) 1586s [00:53:06.413] $ times : int 2 1586s [00:53:06.413] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1586s [00:53:06.413] $ stop_if_not :function (...) 1586s [00:53:06.413] $ dim : NULL 1586s [00:53:06.413] $ valid_types : chr [1:3] "logical" "integer" "double" 1586s [00:53:06.413] $ future.call.arguments : list() 1586s [00:53:06.413] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1586s [00:53:06.413] $ ...future.elements_ii :List of 10 1586s [00:53:06.413] ..$ : int 1 1586s [00:53:06.413] ..$ : int 2 1586s [00:53:06.413] ..$ : int 3 1586s [00:53:06.413] ..$ : int 4 1586s [00:53:06.413] ..$ : int 5 1586s [00:53:06.413] ..$ : int 6 1586s [00:53:06.413] ..$ : int 7 1586s [00:53:06.413] ..$ : int 8 1586s [00:53:06.413] ..$ : int 9 1586s [00:53:06.413] ..$ : int 10 1586s [00:53:06.413] $ ...future.seeds_ii : NULL 1586s [00:53:06.413] $ ...future.globals.maxSize: NULL 1586s [00:53:06.413] - attr(*, "where")=List of 11 1586s [00:53:06.413] ..$ ...future.FUN : 1586s [00:53:06.413] ..$ x_FUN : 1586s [00:53:06.413] ..$ times : 1586s [00:53:06.413] ..$ stopf : 1586s [00:53:06.413] ..$ stop_if_not : 1586s [00:53:06.413] ..$ dim : 1586s [00:53:06.413] ..$ valid_types : 1586s [00:53:06.413] ..$ future.call.arguments : 1586s [00:53:06.413] ..$ ...future.elements_ii : 1586s [00:53:06.413] ..$ ...future.seeds_ii : 1586s [00:53:06.413] ..$ ...future.globals.maxSize: 1586s [00:53:06.413] - attr(*, "resolved")= logi FALSE 1586s [00:53:06.413] - attr(*, "total_size")= num 96456 1586s [00:53:06.413] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1586s [00:53:06.413] - attr(*, "already-done")= logi TRUE 1586s [00:53:06.427] - copied ‘...future.FUN’ to environment 1586s [00:53:06.427] - reassign environment for ‘x_FUN’ 1586s [00:53:06.427] - copied ‘x_FUN’ to environment 1586s [00:53:06.427] - copied ‘times’ to environment 1586s [00:53:06.427] - copied ‘stopf’ to environment 1586s [00:53:06.428] - copied ‘stop_if_not’ to environment 1586s [00:53:06.428] - copied ‘dim’ to environment 1586s [00:53:06.428] - copied ‘valid_types’ to environment 1586s [00:53:06.428] - copied ‘future.call.arguments’ to environment 1586s [00:53:06.428] - copied ‘...future.elements_ii’ to environment 1586s [00:53:06.428] - copied ‘...future.seeds_ii’ to environment 1586s [00:53:06.428] - copied ‘...future.globals.maxSize’ to environment 1586s [00:53:06.429] assign_globals() ... done 1586s [00:53:06.429] plan(): Setting new future strategy stack: 1586s [00:53:06.429] List of future strategies: 1586s [00:53:06.429] 1. sequential: 1586s [00:53:06.429] - args: function (..., envir = parent.frame()) 1586s [00:53:06.429] - tweaked: FALSE 1586s [00:53:06.429] - call: NULL 1586s [00:53:06.430] plan(): nbrOfWorkers() = 1 1586s [00:53:06.431] plan(): Setting new future strategy stack: 1586s [00:53:06.431] List of future strategies: 1586s [00:53:06.431] 1. sequential: 1586s [00:53:06.431] - args: function (..., envir = parent.frame()) 1586s [00:53:06.431] - tweaked: FALSE 1586s [00:53:06.431] - call: plan(strategy) 1586s [00:53:06.431] plan(): nbrOfWorkers() = 1 1586s [00:53:06.431] SequentialFuture started (and completed) 1586s [00:53:06.432] - Launch lazy future ... done 1586s [00:53:06.432] run() for ‘SequentialFuture’ ... done 1586s [00:53:06.432] Created future: 1586s [00:53:06.432] SequentialFuture: 1586s [00:53:06.432] Label: ‘future_vapply-1’ 1586s [00:53:06.432] Expression: 1586s [00:53:06.432] { 1586s [00:53:06.432] do.call(function(...) { 1586s [00:53:06.432] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1586s [00:53:06.432] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1586s [00:53:06.432] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1586s [00:53:06.432] on.exit(options(oopts), add = TRUE) 1586s [00:53:06.432] } 1586s [00:53:06.432] { 1586s [00:53:06.432] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1586s [00:53:06.432] ...future.X_jj <- ...future.elements_ii[[jj]] 1586s [00:53:06.432] ...future.FUN(...future.X_jj, ...) 1586s [00:53:06.432] }) 1586s [00:53:06.432] } 1586s [00:53:06.432] }, args = future.call.arguments) 1586s [00:53:06.432] } 1586s [00:53:06.432] Lazy evaluation: FALSE 1586s [00:53:06.432] Asynchronous evaluation: FALSE 1586s [00:53:06.432] Local evaluation: TRUE 1586s [00:53:06.432] Environment: R_GlobalEnv 1586s [00:53:06.432] Capture standard output: TRUE 1586s [00:53:06.432] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1586s [00:53:06.432] Globals: 11 objects totaling 94.74 KiB (function ‘...future.FUN’ of 21.22 KiB, function ‘x_FUN’ of 2.12 KiB, integer ‘times’ of 56 bytes, function ‘stopf’ of 26.43 KiB, function ‘stop_if_not’ of 44.12 KiB, ...) 1586s [00:53:06.432] Packages: 1 packages (‘future.apply’) 1586s [00:53:06.432] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1586s [00:53:06.432] Resolved: TRUE 1586s [00:53:06.432] Value: 640 bytes of class ‘list’ 1586s [00:53:06.432] Early signaling: FALSE 1586s [00:53:06.432] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1586s [00:53:06.432] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1586s [00:53:06.435] Chunk #1 of 1 ... DONE 1586s [00:53:06.435] Launching 1 futures (chunks) ... DONE 1586s [00:53:06.435] Resolving 1 futures (chunks) ... 1586s [00:53:06.435] resolve() on list ... 1586s [00:53:06.435] recursive: 0 1586s [00:53:06.435] length: 1 1586s [00:53:06.436] 1586s [00:53:06.436] resolved() for ‘SequentialFuture’ ... 1586s [00:53:06.436] - state: ‘finished’ 1586s [00:53:06.436] - run: TRUE 1586s [00:53:06.436] - result: ‘FutureResult’ 1586s [00:53:06.436] resolved() for ‘SequentialFuture’ ... done 1586s [00:53:06.436] Future #1 1586s [00:53:06.437] signalConditionsASAP(SequentialFuture, pos=1) ... 1586s [00:53:06.437] - nx: 1 1586s [00:53:06.437] - relay: TRUE 1586s [00:53:06.437] - stdout: TRUE 1586s [00:53:06.437] - signal: TRUE 1586s [00:53:06.437] - resignal: FALSE 1586s [00:53:06.437] - force: TRUE 1586s [00:53:06.438] - relayed: [n=1] FALSE 1586s [00:53:06.438] - queued futures: [n=1] FALSE 1586s [00:53:06.438] - until=1 1586s [00:53:06.438] - relaying element #1 1586s [00:53:06.438] - relayed: [n=1] TRUE 1586s [00:53:06.438] - queued futures: [n=1] TRUE 1586s [00:53:06.439] signalConditionsASAP(SequentialFuture, pos=1) ... done 1586s [00:53:06.439] length: 0 (resolved future 1) 1586s [00:53:06.439] Relaying remaining futures 1586s [00:53:06.439] signalConditionsASAP(NULL, pos=0) ... 1586s [00:53:06.439] - nx: 1 1586s [00:53:06.439] - relay: TRUE 1586s [00:53:06.439] - stdout: TRUE 1586s [00:53:06.440] - signal: TRUE 1586s [00:53:06.440] - resignal: FALSE 1586s [00:53:06.440] - force: TRUE 1586s [00:53:06.440] - relayed: [n=1] TRUE 1586s [00:53:06.440] - queued futures: [n=1] TRUE 1586s - flush all 1586s [00:53:06.440] - relayed: [n=1] TRUE 1586s [00:53:06.440] - queued futures: [n=1] TRUE 1586s [00:53:06.441] signalConditionsASAP(NULL, pos=0) ... done 1586s [00:53:06.441] resolve() on list ... DONE 1586s num [1:2, 1:10] 1 1 2 4 3 9 4 16 5 25 ... 1586s int [1:2, 1:2, 1:10] 1 1 1 1 2 2 2 2 3 3 ... 1586s [00:53:06.441] - Number of value chunks collected: 1 1586s [00:53:06.441] Resolving 1 futures (chunks) ... DONE 1586s [00:53:06.441] Reducing values from 1 chunks ... 1586s [00:53:06.441] - Number of values collected after concatenation: 10 1586s [00:53:06.442] - Number of values expected: 10 1586s [00:53:06.442] Reducing values from 1 chunks ... DONE 1586s [00:53:06.442] future_lapply() ... DONE 1586s [00:53:06.443] future_lapply() ... 1586s [00:53:06.445] Number of chunks: 1 1586s [00:53:06.446] getGlobalsAndPackagesXApply() ... 1586s [00:53:06.446] - future.globals: TRUE 1586s [00:53:06.446] getGlobalsAndPackages() ... 1586s [00:53:06.446] Searching for globals... 1586s [00:53:06.452] - globals found: [17] ‘FUN’, ‘{’, ‘<-’, ‘x_FUN’, ‘if’, ‘!=’, ‘length’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘all’, ‘==’, ‘dim’, ‘%in%’, ‘typeof’, ‘valid_types’, ‘matrix’ 1586s [00:53:06.452] Searching for globals ... DONE 1586s [00:53:06.452] Resolving globals: FALSE 1586s [00:53:06.453] The total size of the 7 globals is 94.95 KiB (97232 bytes) 1586s [00:53:06.454] The total size of the 7 globals exported for future expression (‘FUN()’) is 94.95 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘stop_if_not’ (44.12 KiB of class ‘function’), ‘stopf’ (26.43 KiB of class ‘function’) and ‘FUN’ (21.22 KiB of class ‘function’) 1586s [00:53:06.454] - globals: [7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1586s [00:53:06.454] - packages: [1] ‘future.apply’ 1586s [00:53:06.454] getGlobalsAndPackages() ... DONE 1586s [00:53:06.454] - globals found/used: [n=7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1586s [00:53:06.454] - needed namespaces: [n=1] ‘future.apply’ 1586s [00:53:06.455] Finding globals ... DONE 1586s [00:53:06.455] - use_args: TRUE 1586s [00:53:06.455] - Getting '...' globals ... 1586s [00:53:06.455] resolve() on list ... 1586s [00:53:06.455] recursive: 0 1586s [00:53:06.456] length: 1 1586s [00:53:06.456] elements: ‘...’ 1586s [00:53:06.456] length: 0 (resolved future 1) 1586s [00:53:06.456] resolve() on list ... DONE 1586s [00:53:06.456] - '...' content: [n=0] 1586s [00:53:06.456] List of 1 1586s [00:53:06.456] $ ...: list() 1586s [00:53:06.456] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1586s [00:53:06.456] - attr(*, "where")=List of 1 1586s [00:53:06.456] ..$ ...: 1586s [00:53:06.456] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1586s [00:53:06.456] - attr(*, "resolved")= logi TRUE 1586s [00:53:06.456] - attr(*, "total_size")= num NA 1586s [00:53:06.459] - Getting '...' globals ... DONE 1586s [00:53:06.459] Globals to be used in all futures (chunks): [n=8] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’ 1586s [00:53:06.460] List of 8 1586s [00:53:06.460] $ ...future.FUN:function (x, ...) 1586s [00:53:06.460] $ x_FUN :function (x) 1586s [00:53:06.460] $ times : int 4 1586s [00:53:06.460] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1586s [00:53:06.460] $ stop_if_not :function (...) 1586s [00:53:06.460] $ dim : int [1:2] 2 2 1586s [00:53:06.460] $ valid_types : chr [1:2] "logical" "integer" 1586s [00:53:06.460] $ ... : list() 1586s [00:53:06.460] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1586s [00:53:06.460] - attr(*, "where")=List of 8 1586s [00:53:06.460] ..$ ...future.FUN: 1586s [00:53:06.460] ..$ x_FUN : 1586s [00:53:06.460] ..$ times : 1586s [00:53:06.460] ..$ stopf : 1586s [00:53:06.460] ..$ stop_if_not : 1586s [00:53:06.460] ..$ dim : 1586s [00:53:06.460] ..$ valid_types : 1586s [00:53:06.460] ..$ ... : 1586s [00:53:06.460] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1586s [00:53:06.460] - attr(*, "resolved")= logi FALSE 1586s [00:53:06.460] - attr(*, "total_size")= num 97232 1586s [00:53:06.466] Packages to be attached in all futures: [n=1] ‘future.apply’ 1586s [00:53:06.466] getGlobalsAndPackagesXApply() ... DONE 1586s [00:53:06.467] Number of futures (= number of chunks): 1 1586s [00:53:06.467] Launching 1 futures (chunks) ... 1586s [00:53:06.467] Chunk #1 of 1 ... 1586s [00:53:06.467] - Finding globals in 'X' for chunk #1 ... 1586s [00:53:06.467] getGlobalsAndPackages() ... 1586s [00:53:06.467] Searching for globals... 1586s [00:53:06.468] 1586s [00:53:06.468] Searching for globals ... DONE 1586s [00:53:06.468] - globals: [0] 1586s [00:53:06.468] getGlobalsAndPackages() ... DONE 1586s [00:53:06.468] + additional globals found: [n=0] 1586s [00:53:06.468] + additional namespaces needed: [n=0] 1586s [00:53:06.469] - Finding globals in 'X' for chunk #1 ... DONE 1586s [00:53:06.469] - seeds: 1586s [00:53:06.469] - All globals exported: [n=11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1586s [00:53:06.469] getGlobalsAndPackages() ... 1586s [00:53:06.469] - globals passed as-is: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1586s [00:53:06.469] Resolving globals: FALSE 1586s [00:53:06.470] Tweak future expression to call with '...' arguments ... 1586s [00:53:06.470] { 1586s [00:53:06.470] do.call(function(...) { 1586s [00:53:06.470] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1586s [00:53:06.470] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1586s [00:53:06.470] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1586s [00:53:06.470] on.exit(options(oopts), add = TRUE) 1586s [00:53:06.470] } 1586s [00:53:06.470] { 1586s [00:53:06.470] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1586s [00:53:06.470] ...future.X_jj <- ...future.elements_ii[[jj]] 1586s [00:53:06.470] ...future.FUN(...future.X_jj, ...) 1586s [00:53:06.470] }) 1586s [00:53:06.470] } 1586s [00:53:06.470] }, args = future.call.arguments) 1586s [00:53:06.470] } 1586s [00:53:06.470] Tweak future expression to call with '...' arguments ... DONE 1586s [00:53:06.471] - globals: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1586s [00:53:06.471] - packages: [1] ‘future.apply’ 1586s [00:53:06.471] getGlobalsAndPackages() ... DONE 1586s [00:53:06.472] run() for ‘Future’ ... 1586s [00:53:06.472] - state: ‘created’ 1586s [00:53:06.472] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1586s [00:53:06.472] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1586s [00:53:06.473] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1586s [00:53:06.473] - Field: ‘label’ 1586s [00:53:06.473] - Field: ‘local’ 1586s [00:53:06.473] - Field: ‘owner’ 1586s [00:53:06.473] - Field: ‘envir’ 1586s [00:53:06.473] - Field: ‘packages’ 1586s [00:53:06.473] - Field: ‘gc’ 1586s [00:53:06.474] - Field: ‘conditions’ 1586s [00:53:06.474] - Field: ‘expr’ 1586s [00:53:06.474] - Field: ‘uuid’ 1586s [00:53:06.474] - Field: ‘seed’ 1586s [00:53:06.474] - Field: ‘version’ 1586s [00:53:06.474] - Field: ‘result’ 1586s [00:53:06.474] - Field: ‘asynchronous’ 1586s [00:53:06.474] - Field: ‘calls’ 1586s [00:53:06.474] - Field: ‘globals’ 1586s [00:53:06.475] - Field: ‘stdout’ 1586s [00:53:06.475] - Field: ‘earlySignal’ 1586s [00:53:06.475] - Field: ‘lazy’ 1586s [00:53:06.475] - Field: ‘state’ 1586s [00:53:06.475] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1586s [00:53:06.475] - Launch lazy future ... 1586s [00:53:06.475] Packages needed by the future expression (n = 1): ‘future.apply’ 1586s [00:53:06.475] Packages needed by future strategies (n = 0): 1586s [00:53:06.477] { 1586s [00:53:06.477] { 1586s [00:53:06.477] { 1586s [00:53:06.477] ...future.startTime <- base::Sys.time() 1586s [00:53:06.477] { 1586s [00:53:06.477] { 1586s [00:53:06.477] { 1586s [00:53:06.477] { 1586s [00:53:06.477] base::local({ 1586s [00:53:06.477] has_future <- base::requireNamespace("future", 1586s [00:53:06.477] quietly = TRUE) 1586s [00:53:06.477] if (has_future) { 1586s [00:53:06.477] ns <- base::getNamespace("future") 1586s [00:53:06.477] version <- ns[[".package"]][["version"]] 1586s [00:53:06.477] if (is.null(version)) 1586s [00:53:06.477] version <- utils::packageVersion("future") 1586s [00:53:06.477] } 1586s [00:53:06.477] else { 1586s [00:53:06.477] version <- NULL 1586s [00:53:06.477] } 1586s [00:53:06.477] if (!has_future || version < "1.8.0") { 1586s [00:53:06.477] info <- base::c(r_version = base::gsub("R version ", 1586s [00:53:06.477] "", base::R.version$version.string), 1586s [00:53:06.477] platform = base::sprintf("%s (%s-bit)", 1586s [00:53:06.477] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1586s [00:53:06.477] os = base::paste(base::Sys.info()[base::c("sysname", 1586s [00:53:06.477] "release", "version")], collapse = " "), 1586s [00:53:06.477] hostname = base::Sys.info()[["nodename"]]) 1586s [00:53:06.477] info <- base::sprintf("%s: %s", base::names(info), 1586s [00:53:06.477] info) 1586s [00:53:06.477] info <- base::paste(info, collapse = "; ") 1586s [00:53:06.477] if (!has_future) { 1586s [00:53:06.477] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1586s [00:53:06.477] info) 1586s [00:53:06.477] } 1586s [00:53:06.477] else { 1586s [00:53:06.477] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1586s [00:53:06.477] info, version) 1586s [00:53:06.477] } 1586s [00:53:06.477] base::stop(msg) 1586s [00:53:06.477] } 1586s [00:53:06.477] }) 1586s [00:53:06.477] } 1586s [00:53:06.477] base::local({ 1586s [00:53:06.477] for (pkg in "future.apply") { 1586s [00:53:06.477] base::loadNamespace(pkg) 1586s [00:53:06.477] base::library(pkg, character.only = TRUE) 1586s [00:53:06.477] } 1586s [00:53:06.477] }) 1586s [00:53:06.477] } 1586s [00:53:06.477] options(future.plan = NULL) 1586s [00:53:06.477] Sys.unsetenv("R_FUTURE_PLAN") 1586s [00:53:06.477] future::plan("default", .cleanup = FALSE, .init = FALSE) 1586s [00:53:06.477] } 1586s [00:53:06.477] ...future.workdir <- getwd() 1586s [00:53:06.477] } 1586s [00:53:06.477] ...future.oldOptions <- base::as.list(base::.Options) 1586s [00:53:06.477] ...future.oldEnvVars <- base::Sys.getenv() 1586s [00:53:06.477] } 1586s [00:53:06.477] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1586s [00:53:06.477] future.globals.maxSize = NULL, future.globals.method = NULL, 1586s [00:53:06.477] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1586s [00:53:06.477] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1586s [00:53:06.477] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1586s [00:53:06.477] future.stdout.windows.reencode = NULL, width = 80L) 1586s [00:53:06.477] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1586s [00:53:06.477] base::names(...future.oldOptions)) 1586s [00:53:06.477] } 1586s [00:53:06.477] if (FALSE) { 1586s [00:53:06.477] } 1586s [00:53:06.477] else { 1586s [00:53:06.477] if (TRUE) { 1586s [00:53:06.477] ...future.stdout <- base::rawConnection(base::raw(0L), 1586s [00:53:06.477] open = "w") 1586s [00:53:06.477] } 1586s [00:53:06.477] else { 1586s [00:53:06.477] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1586s [00:53:06.477] windows = "NUL", "/dev/null"), open = "w") 1586s [00:53:06.477] } 1586s [00:53:06.477] base::sink(...future.stdout, type = "output", split = FALSE) 1586s [00:53:06.477] base::on.exit(if (!base::is.null(...future.stdout)) { 1586s [00:53:06.477] base::sink(type = "output", split = FALSE) 1586s [00:53:06.477] base::close(...future.stdout) 1586s [00:53:06.477] }, add = TRUE) 1586s [00:53:06.477] } 1586s [00:53:06.477] ...future.frame <- base::sys.nframe() 1586s [00:53:06.477] ...future.conditions <- base::list() 1586s [00:53:06.477] ...future.rng <- base::globalenv()$.Random.seed 1586s [00:53:06.477] if (FALSE) { 1586s [00:53:06.477] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1586s [00:53:06.477] "...future.value", "...future.globalenv.names", ".Random.seed") 1586s [00:53:06.477] } 1586s [00:53:06.477] ...future.result <- base::tryCatch({ 1586s [00:53:06.477] base::withCallingHandlers({ 1586s [00:53:06.477] ...future.value <- base::withVisible(base::local({ 1586s [00:53:06.477] do.call(function(...) { 1586s [00:53:06.477] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1586s [00:53:06.477] if (!identical(...future.globals.maxSize.org, 1586s [00:53:06.477] ...future.globals.maxSize)) { 1586s [00:53:06.477] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1586s [00:53:06.477] on.exit(options(oopts), add = TRUE) 1586s [00:53:06.477] } 1586s [00:53:06.477] { 1586s [00:53:06.477] lapply(seq_along(...future.elements_ii), 1586s [00:53:06.477] FUN = function(jj) { 1586s [00:53:06.477] ...future.X_jj <- ...future.elements_ii[[jj]] 1586s [00:53:06.477] ...future.FUN(...future.X_jj, ...) 1586s [00:53:06.477] }) 1586s [00:53:06.477] } 1586s [00:53:06.477] }, args = future.call.arguments) 1586s [00:53:06.477] })) 1586s [00:53:06.477] future::FutureResult(value = ...future.value$value, 1586s [00:53:06.477] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1586s [00:53:06.477] ...future.rng), globalenv = if (FALSE) 1586s [00:53:06.477] list(added = base::setdiff(base::names(base::.GlobalEnv), 1586s [00:53:06.477] ...future.globalenv.names)) 1586s [00:53:06.477] else NULL, started = ...future.startTime, version = "1.8") 1586s [00:53:06.477] }, condition = base::local({ 1586s [00:53:06.477] c <- base::c 1586s [00:53:06.477] inherits <- base::inherits 1586s [00:53:06.477] invokeRestart <- base::invokeRestart 1586s [00:53:06.477] length <- base::length 1586s [00:53:06.477] list <- base::list 1586s [00:53:06.477] seq.int <- base::seq.int 1586s [00:53:06.477] signalCondition <- base::signalCondition 1586s [00:53:06.477] sys.calls <- base::sys.calls 1586s [00:53:06.477] `[[` <- base::`[[` 1586s [00:53:06.477] `+` <- base::`+` 1586s [00:53:06.477] `<<-` <- base::`<<-` 1586s [00:53:06.477] sysCalls <- function(calls = sys.calls(), from = 1L) { 1586s [00:53:06.477] calls[seq.int(from = from + 12L, to = length(calls) - 1586s [00:53:06.477] 3L)] 1586s [00:53:06.477] } 1586s [00:53:06.477] function(cond) { 1586s [00:53:06.477] is_error <- inherits(cond, "error") 1586s [00:53:06.477] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1586s [00:53:06.477] NULL) 1586s [00:53:06.477] if (is_error) { 1586s [00:53:06.477] sessionInformation <- function() { 1586s [00:53:06.477] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1586s [00:53:06.477] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1586s [00:53:06.477] search = base::search(), system = base::Sys.info()) 1586s [00:53:06.477] } 1586s [00:53:06.477] ...future.conditions[[length(...future.conditions) + 1586s [00:53:06.477] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1586s [00:53:06.477] cond$call), session = sessionInformation(), 1586s [00:53:06.477] timestamp = base::Sys.time(), signaled = 0L) 1586s [00:53:06.477] signalCondition(cond) 1586s [00:53:06.477] } 1586s [00:53:06.477] else if (!ignore && TRUE && inherits(cond, c("condition", 1586s [00:53:06.477] "immediateCondition"))) { 1586s [00:53:06.477] signal <- TRUE && inherits(cond, "immediateCondition") 1586s [00:53:06.477] ...future.conditions[[length(...future.conditions) + 1586s [00:53:06.477] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1586s [00:53:06.477] if (TRUE && !signal) { 1586s [00:53:06.477] muffleCondition <- function (cond, pattern = "^muffle") 1586s [00:53:06.477] { 1586s [00:53:06.477] inherits <- base::inherits 1586s [00:53:06.477] invokeRestart <- base::invokeRestart 1586s [00:53:06.477] is.null <- base::is.null 1586s [00:53:06.477] muffled <- FALSE 1586s [00:53:06.477] if (inherits(cond, "message")) { 1586s [00:53:06.477] muffled <- grepl(pattern, "muffleMessage") 1586s [00:53:06.477] if (muffled) 1586s [00:53:06.477] invokeRestart("muffleMessage") 1586s [00:53:06.477] } 1586s [00:53:06.477] else if (inherits(cond, "warning")) { 1586s [00:53:06.477] muffled <- grepl(pattern, "muffleWarning") 1586s [00:53:06.477] if (muffled) 1586s [00:53:06.477] invokeRestart("muffleWarning") 1586s [00:53:06.477] } 1586s [00:53:06.477] else if (inherits(cond, "condition")) { 1586s [00:53:06.477] if (!is.null(pattern)) { 1586s [00:53:06.477] computeRestarts <- base::computeRestarts 1586s [00:53:06.477] grepl <- base::grepl 1586s [00:53:06.477] restarts <- computeRestarts(cond) 1586s [00:53:06.477] for (restart in restarts) { 1586s [00:53:06.477] name <- restart$name 1586s [00:53:06.477] if (is.null(name)) 1586s [00:53:06.477] next 1586s [00:53:06.477] if (!grepl(pattern, name)) 1586s [00:53:06.477] next 1586s [00:53:06.477] invokeRestart(restart) 1586s [00:53:06.477] muffled <- TRUE 1586s [00:53:06.477] break 1586s [00:53:06.477] } 1586s [00:53:06.477] } 1586s [00:53:06.477] } 1586s [00:53:06.477] invisible(muffled) 1586s [00:53:06.477] } 1586s [00:53:06.477] muffleCondition(cond, pattern = "^muffle") 1586s [00:53:06.477] } 1586s [00:53:06.477] } 1586s [00:53:06.477] else { 1586s [00:53:06.477] if (TRUE) { 1586s [00:53:06.477] muffleCondition <- function (cond, pattern = "^muffle") 1586s [00:53:06.477] { 1586s [00:53:06.477] inherits <- base::inherits 1586s [00:53:06.477] invokeRestart <- base::invokeRestart 1586s [00:53:06.477] is.null <- base::is.null 1586s [00:53:06.477] muffled <- FALSE 1586s [00:53:06.477] if (inherits(cond, "message")) { 1586s [00:53:06.477] muffled <- grepl(pattern, "muffleMessage") 1586s [00:53:06.477] if (muffled) 1586s [00:53:06.477] invokeRestart("muffleMessage") 1586s [00:53:06.477] } 1586s [00:53:06.477] else if (inherits(cond, "warning")) { 1586s [00:53:06.477] muffled <- grepl(pattern, "muffleWarning") 1586s [00:53:06.477] if (muffled) 1586s [00:53:06.477] invokeRestart("muffleWarning") 1586s [00:53:06.477] } 1586s [00:53:06.477] else if (inherits(cond, "condition")) { 1586s [00:53:06.477] if (!is.null(pattern)) { 1586s [00:53:06.477] computeRestarts <- base::computeRestarts 1586s [00:53:06.477] grepl <- base::grepl 1586s [00:53:06.477] restarts <- computeRestarts(cond) 1586s [00:53:06.477] for (restart in restarts) { 1586s [00:53:06.477] name <- restart$name 1586s [00:53:06.477] if (is.null(name)) 1586s [00:53:06.477] next 1586s [00:53:06.477] if (!grepl(pattern, name)) 1586s [00:53:06.477] next 1586s [00:53:06.477] invokeRestart(restart) 1586s [00:53:06.477] muffled <- TRUE 1586s [00:53:06.477] break 1586s [00:53:06.477] } 1586s [00:53:06.477] } 1586s [00:53:06.477] } 1586s [00:53:06.477] invisible(muffled) 1586s [00:53:06.477] } 1586s [00:53:06.477] muffleCondition(cond, pattern = "^muffle") 1586s [00:53:06.477] } 1586s [00:53:06.477] } 1586s [00:53:06.477] } 1586s [00:53:06.477] })) 1586s [00:53:06.477] }, error = function(ex) { 1586s [00:53:06.477] base::structure(base::list(value = NULL, visible = NULL, 1586s [00:53:06.477] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1586s [00:53:06.477] ...future.rng), started = ...future.startTime, 1586s [00:53:06.477] finished = Sys.time(), session_uuid = NA_character_, 1586s [00:53:06.477] version = "1.8"), class = "FutureResult") 1586s [00:53:06.477] }, finally = { 1586s [00:53:06.477] if (!identical(...future.workdir, getwd())) 1586s [00:53:06.477] setwd(...future.workdir) 1586s [00:53:06.477] { 1586s [00:53:06.477] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1586s [00:53:06.477] ...future.oldOptions$nwarnings <- NULL 1586s [00:53:06.477] } 1586s [00:53:06.477] base::options(...future.oldOptions) 1586s [00:53:06.477] if (.Platform$OS.type == "windows") { 1586s [00:53:06.477] old_names <- names(...future.oldEnvVars) 1586s [00:53:06.477] envs <- base::Sys.getenv() 1586s [00:53:06.477] names <- names(envs) 1586s [00:53:06.477] common <- intersect(names, old_names) 1586s [00:53:06.477] added <- setdiff(names, old_names) 1586s [00:53:06.477] removed <- setdiff(old_names, names) 1586s [00:53:06.477] changed <- common[...future.oldEnvVars[common] != 1586s [00:53:06.477] envs[common]] 1586s [00:53:06.477] NAMES <- toupper(changed) 1586s [00:53:06.477] args <- list() 1586s [00:53:06.477] for (kk in seq_along(NAMES)) { 1586s [00:53:06.477] name <- changed[[kk]] 1586s [00:53:06.477] NAME <- NAMES[[kk]] 1586s [00:53:06.477] if (name != NAME && is.element(NAME, old_names)) 1586s [00:53:06.477] next 1586s [00:53:06.477] args[[name]] <- ...future.oldEnvVars[[name]] 1586s [00:53:06.477] } 1586s [00:53:06.477] NAMES <- toupper(added) 1586s [00:53:06.477] for (kk in seq_along(NAMES)) { 1586s [00:53:06.477] name <- added[[kk]] 1586s [00:53:06.477] NAME <- NAMES[[kk]] 1586s [00:53:06.477] if (name != NAME && is.element(NAME, old_names)) 1586s [00:53:06.477] next 1586s [00:53:06.477] args[[name]] <- "" 1586s [00:53:06.477] } 1586s [00:53:06.477] NAMES <- toupper(removed) 1586s [00:53:06.477] for (kk in seq_along(NAMES)) { 1586s [00:53:06.477] name <- removed[[kk]] 1586s [00:53:06.477] NAME <- NAMES[[kk]] 1586s [00:53:06.477] if (name != NAME && is.element(NAME, old_names)) 1586s [00:53:06.477] next 1586s [00:53:06.477] args[[name]] <- ...future.oldEnvVars[[name]] 1586s [00:53:06.477] } 1586s [00:53:06.477] if (length(args) > 0) 1586s [00:53:06.477] base::do.call(base::Sys.setenv, args = args) 1586s [00:53:06.477] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1586s [00:53:06.477] } 1586s [00:53:06.477] else { 1586s [00:53:06.477] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1586s [00:53:06.477] } 1586s [00:53:06.477] { 1586s [00:53:06.477] if (base::length(...future.futureOptionsAdded) > 1586s [00:53:06.477] 0L) { 1586s [00:53:06.477] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1586s [00:53:06.477] base::names(opts) <- ...future.futureOptionsAdded 1586s [00:53:06.477] base::options(opts) 1586s [00:53:06.477] } 1586s [00:53:06.477] { 1586s [00:53:06.477] { 1586s [00:53:06.477] NULL 1586s [00:53:06.477] RNGkind("Mersenne-Twister") 1586s [00:53:06.477] base::rm(list = ".Random.seed", envir = base::globalenv(), 1586s [00:53:06.477] inherits = FALSE) 1586s [00:53:06.477] } 1586s [00:53:06.477] options(future.plan = NULL) 1586s [00:53:06.477] if (is.na(NA_character_)) 1586s [00:53:06.477] Sys.unsetenv("R_FUTURE_PLAN") 1586s [00:53:06.477] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1586s [00:53:06.477] future::plan(list(function (..., envir = parent.frame()) 1586s [00:53:06.477] { 1586s [00:53:06.477] future <- SequentialFuture(..., envir = envir) 1586s [00:53:06.477] if (!future$lazy) 1586s [00:53:06.477] future <- run(future) 1586s [00:53:06.477] invisible(future) 1586s [00:53:06.477] }), .cleanup = FALSE, .init = FALSE) 1586s [00:53:06.477] } 1586s [00:53:06.477] } 1586s [00:53:06.477] } 1586s [00:53:06.477] }) 1586s [00:53:06.477] if (TRUE) { 1586s [00:53:06.477] base::sink(type = "output", split = FALSE) 1586s [00:53:06.477] if (TRUE) { 1586s [00:53:06.477] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1586s [00:53:06.477] } 1586s [00:53:06.477] else { 1586s [00:53:06.477] ...future.result["stdout"] <- base::list(NULL) 1586s [00:53:06.477] } 1586s [00:53:06.477] base::close(...future.stdout) 1586s [00:53:06.477] ...future.stdout <- NULL 1586s [00:53:06.477] } 1586s [00:53:06.477] ...future.result$conditions <- ...future.conditions 1586s [00:53:06.477] ...future.result$finished <- base::Sys.time() 1586s [00:53:06.477] ...future.result 1586s [00:53:06.477] } 1586s [00:53:06.483] assign_globals() ... 1586s [00:53:06.484] List of 11 1586s [00:53:06.484] $ ...future.FUN :function (x, ...) 1586s [00:53:06.484] $ x_FUN :function (x) 1586s [00:53:06.484] $ times : int 4 1586s [00:53:06.484] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1586s [00:53:06.484] $ stop_if_not :function (...) 1586s [00:53:06.484] $ dim : int [1:2] 2 2 1586s [00:53:06.484] $ valid_types : chr [1:2] "logical" "integer" 1586s [00:53:06.484] $ future.call.arguments : list() 1586s [00:53:06.484] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1586s [00:53:06.484] $ ...future.elements_ii :List of 10 1586s [00:53:06.484] ..$ : int 1 1586s [00:53:06.484] ..$ : int 2 1586s [00:53:06.484] ..$ : int 3 1586s [00:53:06.484] ..$ : int 4 1586s [00:53:06.484] ..$ : int 5 1586s [00:53:06.484] ..$ : int 6 1586s [00:53:06.484] ..$ : int 7 1586s [00:53:06.484] ..$ : int 8 1586s [00:53:06.484] ..$ : int 9 1586s [00:53:06.484] ..$ : int 10 1586s [00:53:06.484] $ ...future.seeds_ii : NULL 1586s [00:53:06.484] $ ...future.globals.maxSize: NULL 1586s [00:53:06.484] - attr(*, "where")=List of 11 1586s [00:53:06.484] ..$ ...future.FUN : 1586s [00:53:06.484] ..$ x_FUN : 1586s [00:53:06.484] ..$ times : 1586s [00:53:06.484] ..$ stopf : 1586s [00:53:06.484] ..$ stop_if_not : 1586s [00:53:06.484] ..$ dim : 1586s [00:53:06.484] ..$ valid_types : 1586s [00:53:06.484] ..$ future.call.arguments : 1586s [00:53:06.484] ..$ ...future.elements_ii : 1586s [00:53:06.484] ..$ ...future.seeds_ii : 1586s [00:53:06.484] ..$ ...future.globals.maxSize: 1586s [00:53:06.484] - attr(*, "resolved")= logi FALSE 1586s [00:53:06.484] - attr(*, "total_size")= num 97232 1586s [00:53:06.484] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1586s [00:53:06.484] - attr(*, "already-done")= logi TRUE 1586s [00:53:06.497] - copied ‘...future.FUN’ to environment 1586s [00:53:06.497] - reassign environment for ‘x_FUN’ 1586s [00:53:06.497] - copied ‘x_FUN’ to environment 1586s [00:53:06.498] - copied ‘times’ to environment 1586s [00:53:06.498] - copied ‘stopf’ to environment 1586s [00:53:06.498] - copied ‘stop_if_not’ to environment 1586s [00:53:06.498] - copied ‘dim’ to environment 1586s [00:53:06.498] - copied ‘valid_types’ to environment 1586s [00:53:06.498] - copied ‘future.call.arguments’ to environment 1586s [00:53:06.498] - copied ‘...future.elements_ii’ to environment 1586s [00:53:06.499] - copied ‘...future.seeds_ii’ to environment 1586s [00:53:06.499] - copied ‘...future.globals.maxSize’ to environment 1586s [00:53:06.499] assign_globals() ... done 1586s [00:53:06.499] plan(): Setting new future strategy stack: 1586s [00:53:06.499] List of future strategies: 1586s [00:53:06.499] 1. sequential: 1586s [00:53:06.499] - args: function (..., envir = parent.frame()) 1586s [00:53:06.499] - tweaked: FALSE 1586s [00:53:06.499] - call: NULL 1586s [00:53:06.500] plan(): nbrOfWorkers() = 1 1586s [00:53:06.501] plan(): Setting new future strategy stack: 1586s [00:53:06.501] List of future strategies: 1586s [00:53:06.501] 1. sequential: 1586s [00:53:06.501] - args: function (..., envir = parent.frame()) 1586s [00:53:06.501] - tweaked: FALSE 1586s [00:53:06.501] - call: plan(strategy) 1586s [00:53:06.501] plan(): nbrOfWorkers() = 1 1586s [00:53:06.502] SequentialFuture started (and completed) 1586s [00:53:06.502] - Launch lazy future ... done 1586s [00:53:06.502] run() for ‘SequentialFuture’ ... done 1586s [00:53:06.502] Created future: 1586s [00:53:06.502] SequentialFuture: 1586s [00:53:06.502] Label: ‘future_vapply-1’ 1586s [00:53:06.502] Expression: 1586s [00:53:06.502] { 1586s [00:53:06.502] do.call(function(...) { 1586s [00:53:06.502] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1586s [00:53:06.502] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1586s [00:53:06.502] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1586s [00:53:06.502] on.exit(options(oopts), add = TRUE) 1586s [00:53:06.502] } 1586s [00:53:06.502] { 1586s [00:53:06.502] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1586s [00:53:06.502] ...future.X_jj <- ...future.elements_ii[[jj]] 1586s [00:53:06.502] ...future.FUN(...future.X_jj, ...) 1586s [00:53:06.502] }) 1586s [00:53:06.502] } 1586s [00:53:06.502] }, args = future.call.arguments) 1586s [00:53:06.502] } 1586s [00:53:06.502] Lazy evaluation: FALSE 1586s [00:53:06.502] Asynchronous evaluation: FALSE 1586s [00:53:06.502] Local evaluation: TRUE 1586s [00:53:06.502] Environment: R_GlobalEnv 1586s [00:53:06.502] Capture standard output: TRUE 1586s [00:53:06.502] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1586s [00:53:06.502] Globals: 11 objects totaling 95.50 KiB (function ‘...future.FUN’ of 21.22 KiB, function ‘x_FUN’ of 2.90 KiB, integer ‘times’ of 56 bytes, function ‘stopf’ of 26.43 KiB, function ‘stop_if_not’ of 44.12 KiB, ...) 1586s [00:53:06.502] Packages: 1 packages (‘future.apply’) 1586s [00:53:06.502] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1586s [00:53:06.502] Resolved: TRUE 1586s [00:53:06.502] Value: 2.27 KiB of class ‘list’ 1586s [00:53:06.502] Early signaling: FALSE 1586s [00:53:06.502] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1586s [00:53:06.502] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1586s [00:53:06.504] Chunk #1 of 1 ... DONE 1586s [00:53:06.504] Launching 1 futures (chunks) ... DONE 1586s [00:53:06.504] Resolving 1 futures (chunks) ... 1586s [00:53:06.504] resolve() on list ... 1586s [00:53:06.505] recursive: 0 1586s [00:53:06.505] length: 1 1586s [00:53:06.505] 1586s [00:53:06.505] resolved() for ‘SequentialFuture’ ... 1586s [00:53:06.505] - state: ‘finished’ 1586s [00:53:06.505] - run: TRUE 1586s [00:53:06.505] - result: ‘FutureResult’ 1586s [00:53:06.506] resolved() for ‘SequentialFuture’ ... done 1586s [00:53:06.506] Future #1 1586s [00:53:06.506] signalConditionsASAP(SequentialFuture, pos=1) ... 1586s [00:53:06.506] - nx: 1 1586s [00:53:06.506] - relay: TRUE 1586s [00:53:06.506] - stdout: TRUE 1586s [00:53:06.506] - signal: TRUE 1586s [00:53:06.507] - resignal: FALSE 1586s [00:53:06.507] - force: TRUE 1586s [00:53:06.507] - relayed: [n=1] FALSE 1586s [00:53:06.507] - queued futures: [n=1] FALSE 1586s [00:53:06.507] - until=1 1586s [00:53:06.507] - relaying element #1 1586s [00:53:06.508] - relayed: [n=1] TRUE 1586s [00:53:06.508] - queued futures: [n=1] TRUE 1586s [00:53:06.508] signalConditionsASAP(SequentialFuture, pos=1) ... done 1586s [00:53:06.508] length: 0 (resolved future 1) 1586s [00:53:06.508] Relaying remaining futures 1586s [00:53:06.509] signalConditionsASAP(NULL, pos=0) ... 1586s [00:53:06.509] - nx: 1 1586s [00:53:06.509] - relay: TRUE 1586s [00:53:06.509] - stdout: TRUE 1586s [00:53:06.509] - signal: TRUE 1586s [00:53:06.509] - resignal: FALSE 1586s [00:53:06.510] - force: TRUE 1586s [00:53:06.510] - relayed: [n=1] TRUE 1586s [00:53:06.510] - queued futures: [n=1] TRUE 1586s - flush all 1586s [00:53:06.511] - relayed: [n=1] TRUE 1586s [00:53:06.511] - queued futures: [n=1] TRUE 1586s [00:53:06.511] signalConditionsASAP(NULL, pos=0) ... done 1586s [00:53:06.512] resolve() on list ... DONE 1586s [00:53:06.514] - Number of value chunks collected: 1 1586s [00:53:06.514] Resolving 1 futures (chunks) ... DONE 1586s [00:53:06.514] Reducing values from 1 chunks ... 1586s [00:53:06.515] - Number of values collected after concatenation: 10 1586s [00:53:06.515] - Number of values expected: 10 1586s [00:53:06.515] Reducing values from 1 chunks ... DONE 1586s [00:53:06.515] future_lapply() ... DONE 1586s int [1:2, 1:2, 1:10] 1 1 1 1 2 2 2 2 3 3 ... 1586s num [1:2, 1:2, 1:10] [00:53:06.517] future_lapply() ... 1586s 1 1 1 1 2 2 2 2 3 3 ... 1586s [00:53:06.520] Number of chunks: 1 1586s [00:53:06.520] getGlobalsAndPackagesXApply() ... 1586s [00:53:06.520] - future.globals: TRUE 1586s [00:53:06.520] getGlobalsAndPackages() ... 1586s [00:53:06.520] Searching for globals... 1586s [00:53:06.525] - globals found: [17] ‘FUN’, ‘{’, ‘<-’, ‘x_FUN’, ‘if’, ‘!=’, ‘length’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘all’, ‘==’, ‘dim’, ‘%in%’, ‘typeof’, ‘valid_types’, ‘matrix’ 1586s [00:53:06.525] Searching for globals ... DONE 1586s [00:53:06.525] Resolving globals: FALSE 1586s [00:53:06.526] The total size of the 7 globals is 95.02 KiB (97304 bytes) 1586s [00:53:06.527] The total size of the 7 globals exported for future expression (‘FUN()’) is 95.02 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘stop_if_not’ (44.12 KiB of class ‘function’), ‘stopf’ (26.43 KiB of class ‘function’) and ‘FUN’ (21.22 KiB of class ‘function’) 1586s [00:53:06.527] - globals: [7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1586s [00:53:06.527] - packages: [1] ‘future.apply’ 1586s [00:53:06.528] getGlobalsAndPackages() ... DONE 1586s [00:53:06.528] - globals found/used: [n=7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1586s [00:53:06.528] - needed namespaces: [n=1] ‘future.apply’ 1586s [00:53:06.528] Finding globals ... DONE 1586s [00:53:06.528] - use_args: TRUE 1586s [00:53:06.528] - Getting '...' globals ... 1586s [00:53:06.529] resolve() on list ... 1586s [00:53:06.529] recursive: 0 1586s [00:53:06.529] length: 1 1586s [00:53:06.529] elements: ‘...’ 1586s [00:53:06.529] length: 0 (resolved future 1) 1586s [00:53:06.529] resolve() on list ... DONE 1586s [00:53:06.530] - '...' content: [n=0] 1586s [00:53:06.530] List of 1 1586s [00:53:06.530] $ ...: list() 1586s [00:53:06.530] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1586s [00:53:06.530] - attr(*, "where")=List of 1 1586s [00:53:06.530] ..$ ...: 1586s [00:53:06.530] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1586s [00:53:06.530] - attr(*, "resolved")= logi TRUE 1586s [00:53:06.530] - attr(*, "total_size")= num NA 1586s [00:53:06.533] - Getting '...' globals ... DONE 1586s [00:53:06.533] Globals to be used in all futures (chunks): [n=8] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’ 1586s [00:53:06.533] List of 8 1586s [00:53:06.533] $ ...future.FUN:function (x, ...) 1586s [00:53:06.533] $ x_FUN :function (x) 1586s [00:53:06.533] $ times : int 4 1586s [00:53:06.533] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1586s [00:53:06.533] $ stop_if_not :function (...) 1586s [00:53:06.533] $ dim : int [1:2] 2 2 1586s [00:53:06.533] $ valid_types : chr [1:3] "logical" "integer" "double" 1586s [00:53:06.533] $ ... : list() 1586s [00:53:06.533] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1586s [00:53:06.533] - attr(*, "where")=List of 8 1586s [00:53:06.533] ..$ ...future.FUN: 1586s [00:53:06.533] ..$ x_FUN : 1586s [00:53:06.533] ..$ times : 1586s [00:53:06.533] ..$ stopf : 1586s [00:53:06.533] ..$ stop_if_not : 1586s [00:53:06.533] ..$ dim : 1586s [00:53:06.533] ..$ valid_types : 1586s [00:53:06.533] ..$ ... : 1586s [00:53:06.533] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1586s [00:53:06.533] - attr(*, "resolved")= logi FALSE 1586s [00:53:06.533] - attr(*, "total_size")= num 97304 1586s [00:53:06.540] Packages to be attached in all futures: [n=1] ‘future.apply’ 1586s [00:53:06.540] getGlobalsAndPackagesXApply() ... DONE 1586s [00:53:06.541] Number of futures (= number of chunks): 1 1586s [00:53:06.541] Launching 1 futures (chunks) ... 1586s [00:53:06.542] Chunk #1 of 1 ... 1586s [00:53:06.542] - Finding globals in 'X' for chunk #1 ... 1586s [00:53:06.543] getGlobalsAndPackages() ... 1586s [00:53:06.543] Searching for globals... 1586s [00:53:06.543] 1586s [00:53:06.543] Searching for globals ... DONE 1586s [00:53:06.543] - globals: [0] 1586s [00:53:06.543] getGlobalsAndPackages() ... DONE 1586s [00:53:06.544] + additional globals found: [n=0] 1586s [00:53:06.544] + additional namespaces needed: [n=0] 1586s [00:53:06.544] - Finding globals in 'X' for chunk #1 ... DONE 1586s [00:53:06.544] - seeds: 1586s [00:53:06.544] - All globals exported: [n=11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1586s [00:53:06.544] getGlobalsAndPackages() ... 1586s [00:53:06.544] - globals passed as-is: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1586s [00:53:06.544] Resolving globals: FALSE 1586s [00:53:06.545] Tweak future expression to call with '...' arguments ... 1586s [00:53:06.545] { 1586s [00:53:06.545] do.call(function(...) { 1586s [00:53:06.545] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1586s [00:53:06.545] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1586s [00:53:06.545] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1586s [00:53:06.545] on.exit(options(oopts), add = TRUE) 1586s [00:53:06.545] } 1586s [00:53:06.545] { 1586s [00:53:06.545] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1586s [00:53:06.545] ...future.X_jj <- ...future.elements_ii[[jj]] 1586s [00:53:06.545] ...future.FUN(...future.X_jj, ...) 1586s [00:53:06.545] }) 1586s [00:53:06.545] } 1586s [00:53:06.545] }, args = future.call.arguments) 1586s [00:53:06.545] } 1586s [00:53:06.545] Tweak future expression to call with '...' arguments ... DONE 1586s [00:53:06.546] - globals: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1586s [00:53:06.546] - packages: [1] ‘future.apply’ 1586s [00:53:06.546] getGlobalsAndPackages() ... DONE 1586s [00:53:06.546] run() for ‘Future’ ... 1586s [00:53:06.546] - state: ‘created’ 1586s [00:53:06.547] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1586s [00:53:06.547] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1586s [00:53:06.547] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1586s [00:53:06.547] - Field: ‘label’ 1586s [00:53:06.547] - Field: ‘local’ 1586s [00:53:06.547] - Field: ‘owner’ 1586s [00:53:06.548] - Field: ‘envir’ 1586s [00:53:06.548] - Field: ‘packages’ 1586s [00:53:06.548] - Field: ‘gc’ 1586s [00:53:06.548] - Field: ‘conditions’ 1586s [00:53:06.548] - Field: ‘expr’ 1586s [00:53:06.548] - Field: ‘uuid’ 1586s [00:53:06.548] - Field: ‘seed’ 1586s [00:53:06.548] - Field: ‘version’ 1586s [00:53:06.548] - Field: ‘result’ 1586s [00:53:06.549] - Field: ‘asynchronous’ 1586s [00:53:06.549] - Field: ‘calls’ 1586s [00:53:06.549] - Field: ‘globals’ 1586s [00:53:06.549] - Field: ‘stdout’ 1586s [00:53:06.549] - Field: ‘earlySignal’ 1586s [00:53:06.549] - Field: ‘lazy’ 1586s [00:53:06.549] - Field: ‘state’ 1586s [00:53:06.549] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1586s [00:53:06.549] - Launch lazy future ... 1586s [00:53:06.550] Packages needed by the future expression (n = 1): ‘future.apply’ 1586s [00:53:06.550] Packages needed by future strategies (n = 0): 1586s [00:53:06.550] { 1586s [00:53:06.550] { 1586s [00:53:06.550] { 1586s [00:53:06.550] ...future.startTime <- base::Sys.time() 1586s [00:53:06.550] { 1586s [00:53:06.550] { 1586s [00:53:06.550] { 1586s [00:53:06.550] { 1586s [00:53:06.550] base::local({ 1586s [00:53:06.550] has_future <- base::requireNamespace("future", 1586s [00:53:06.550] quietly = TRUE) 1586s [00:53:06.550] if (has_future) { 1586s [00:53:06.550] ns <- base::getNamespace("future") 1586s [00:53:06.550] version <- ns[[".package"]][["version"]] 1586s [00:53:06.550] if (is.null(version)) 1586s [00:53:06.550] version <- utils::packageVersion("future") 1586s [00:53:06.550] } 1586s [00:53:06.550] else { 1586s [00:53:06.550] version <- NULL 1586s [00:53:06.550] } 1586s [00:53:06.550] if (!has_future || version < "1.8.0") { 1586s [00:53:06.550] info <- base::c(r_version = base::gsub("R version ", 1586s [00:53:06.550] "", base::R.version$version.string), 1586s [00:53:06.550] platform = base::sprintf("%s (%s-bit)", 1586s [00:53:06.550] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1586s [00:53:06.550] os = base::paste(base::Sys.info()[base::c("sysname", 1586s [00:53:06.550] "release", "version")], collapse = " "), 1586s [00:53:06.550] hostname = base::Sys.info()[["nodename"]]) 1586s [00:53:06.550] info <- base::sprintf("%s: %s", base::names(info), 1586s [00:53:06.550] info) 1586s [00:53:06.550] info <- base::paste(info, collapse = "; ") 1586s [00:53:06.550] if (!has_future) { 1586s [00:53:06.550] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1586s [00:53:06.550] info) 1586s [00:53:06.550] } 1586s [00:53:06.550] else { 1586s [00:53:06.550] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1586s [00:53:06.550] info, version) 1586s [00:53:06.550] } 1586s [00:53:06.550] base::stop(msg) 1586s [00:53:06.550] } 1586s [00:53:06.550] }) 1586s [00:53:06.550] } 1586s [00:53:06.550] base::local({ 1586s [00:53:06.550] for (pkg in "future.apply") { 1586s [00:53:06.550] base::loadNamespace(pkg) 1586s [00:53:06.550] base::library(pkg, character.only = TRUE) 1586s [00:53:06.550] } 1586s [00:53:06.550] }) 1586s [00:53:06.550] } 1586s [00:53:06.550] options(future.plan = NULL) 1586s [00:53:06.550] Sys.unsetenv("R_FUTURE_PLAN") 1586s [00:53:06.550] future::plan("default", .cleanup = FALSE, .init = FALSE) 1586s [00:53:06.550] } 1586s [00:53:06.550] ...future.workdir <- getwd() 1586s [00:53:06.550] } 1586s [00:53:06.550] ...future.oldOptions <- base::as.list(base::.Options) 1586s [00:53:06.550] ...future.oldEnvVars <- base::Sys.getenv() 1586s [00:53:06.550] } 1586s [00:53:06.550] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1586s [00:53:06.550] future.globals.maxSize = NULL, future.globals.method = NULL, 1586s [00:53:06.550] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1586s [00:53:06.550] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1586s [00:53:06.550] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1586s [00:53:06.550] future.stdout.windows.reencode = NULL, width = 80L) 1586s [00:53:06.550] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1586s [00:53:06.550] base::names(...future.oldOptions)) 1586s [00:53:06.550] } 1586s [00:53:06.550] if (FALSE) { 1586s [00:53:06.550] } 1586s [00:53:06.550] else { 1586s [00:53:06.550] if (TRUE) { 1586s [00:53:06.550] ...future.stdout <- base::rawConnection(base::raw(0L), 1586s [00:53:06.550] open = "w") 1586s [00:53:06.550] } 1586s [00:53:06.550] else { 1586s [00:53:06.550] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1586s [00:53:06.550] windows = "NUL", "/dev/null"), open = "w") 1586s [00:53:06.550] } 1586s [00:53:06.550] base::sink(...future.stdout, type = "output", split = FALSE) 1586s [00:53:06.550] base::on.exit(if (!base::is.null(...future.stdout)) { 1586s [00:53:06.550] base::sink(type = "output", split = FALSE) 1586s [00:53:06.550] base::close(...future.stdout) 1586s [00:53:06.550] }, add = TRUE) 1586s [00:53:06.550] } 1586s [00:53:06.550] ...future.frame <- base::sys.nframe() 1586s [00:53:06.550] ...future.conditions <- base::list() 1586s [00:53:06.550] ...future.rng <- base::globalenv()$.Random.seed 1586s [00:53:06.550] if (FALSE) { 1586s [00:53:06.550] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1586s [00:53:06.550] "...future.value", "...future.globalenv.names", ".Random.seed") 1586s [00:53:06.550] } 1586s [00:53:06.550] ...future.result <- base::tryCatch({ 1586s [00:53:06.550] base::withCallingHandlers({ 1586s [00:53:06.550] ...future.value <- base::withVisible(base::local({ 1586s [00:53:06.550] do.call(function(...) { 1586s [00:53:06.550] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1586s [00:53:06.550] if (!identical(...future.globals.maxSize.org, 1586s [00:53:06.550] ...future.globals.maxSize)) { 1586s [00:53:06.550] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1586s [00:53:06.550] on.exit(options(oopts), add = TRUE) 1586s [00:53:06.550] } 1586s [00:53:06.550] { 1586s [00:53:06.550] lapply(seq_along(...future.elements_ii), 1586s [00:53:06.550] FUN = function(jj) { 1586s [00:53:06.550] ...future.X_jj <- ...future.elements_ii[[jj]] 1586s [00:53:06.550] ...future.FUN(...future.X_jj, ...) 1586s [00:53:06.550] }) 1586s [00:53:06.550] } 1586s [00:53:06.550] }, args = future.call.arguments) 1586s [00:53:06.550] })) 1586s [00:53:06.550] future::FutureResult(value = ...future.value$value, 1586s [00:53:06.550] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1586s [00:53:06.550] ...future.rng), globalenv = if (FALSE) 1586s [00:53:06.550] list(added = base::setdiff(base::names(base::.GlobalEnv), 1586s [00:53:06.550] ...future.globalenv.names)) 1586s [00:53:06.550] else NULL, started = ...future.startTime, version = "1.8") 1586s [00:53:06.550] }, condition = base::local({ 1586s [00:53:06.550] c <- base::c 1586s [00:53:06.550] inherits <- base::inherits 1586s [00:53:06.550] invokeRestart <- base::invokeRestart 1586s [00:53:06.550] length <- base::length 1586s [00:53:06.550] list <- base::list 1586s [00:53:06.550] seq.int <- base::seq.int 1586s [00:53:06.550] signalCondition <- base::signalCondition 1586s [00:53:06.550] sys.calls <- base::sys.calls 1586s [00:53:06.550] `[[` <- base::`[[` 1586s [00:53:06.550] `+` <- base::`+` 1586s [00:53:06.550] `<<-` <- base::`<<-` 1586s [00:53:06.550] sysCalls <- function(calls = sys.calls(), from = 1L) { 1586s [00:53:06.550] calls[seq.int(from = from + 12L, to = length(calls) - 1586s [00:53:06.550] 3L)] 1586s [00:53:06.550] } 1586s [00:53:06.550] function(cond) { 1586s [00:53:06.550] is_error <- inherits(cond, "error") 1586s [00:53:06.550] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1586s [00:53:06.550] NULL) 1586s [00:53:06.550] if (is_error) { 1586s [00:53:06.550] sessionInformation <- function() { 1586s [00:53:06.550] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1586s [00:53:06.550] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1586s [00:53:06.550] search = base::search(), system = base::Sys.info()) 1586s [00:53:06.550] } 1586s [00:53:06.550] ...future.conditions[[length(...future.conditions) + 1586s [00:53:06.550] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1586s [00:53:06.550] cond$call), session = sessionInformation(), 1586s [00:53:06.550] timestamp = base::Sys.time(), signaled = 0L) 1586s [00:53:06.550] signalCondition(cond) 1586s [00:53:06.550] } 1586s [00:53:06.550] else if (!ignore && TRUE && inherits(cond, c("condition", 1586s [00:53:06.550] "immediateCondition"))) { 1586s [00:53:06.550] signal <- TRUE && inherits(cond, "immediateCondition") 1586s [00:53:06.550] ...future.conditions[[length(...future.conditions) + 1586s [00:53:06.550] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1586s [00:53:06.550] if (TRUE && !signal) { 1586s [00:53:06.550] muffleCondition <- function (cond, pattern = "^muffle") 1586s [00:53:06.550] { 1586s [00:53:06.550] inherits <- base::inherits 1586s [00:53:06.550] invokeRestart <- base::invokeRestart 1586s [00:53:06.550] is.null <- base::is.null 1586s [00:53:06.550] muffled <- FALSE 1586s [00:53:06.550] if (inherits(cond, "message")) { 1586s [00:53:06.550] muffled <- grepl(pattern, "muffleMessage") 1586s [00:53:06.550] if (muffled) 1586s [00:53:06.550] invokeRestart("muffleMessage") 1586s [00:53:06.550] } 1586s [00:53:06.550] else if (inherits(cond, "warning")) { 1586s [00:53:06.550] muffled <- grepl(pattern, "muffleWarning") 1586s [00:53:06.550] if (muffled) 1586s [00:53:06.550] invokeRestart("muffleWarning") 1586s [00:53:06.550] } 1586s [00:53:06.550] else if (inherits(cond, "condition")) { 1586s [00:53:06.550] if (!is.null(pattern)) { 1586s [00:53:06.550] computeRestarts <- base::computeRestarts 1586s [00:53:06.550] grepl <- base::grepl 1586s [00:53:06.550] restarts <- computeRestarts(cond) 1586s [00:53:06.550] for (restart in restarts) { 1586s [00:53:06.550] name <- restart$name 1586s [00:53:06.550] if (is.null(name)) 1586s [00:53:06.550] next 1586s [00:53:06.550] if (!grepl(pattern, name)) 1586s [00:53:06.550] next 1586s [00:53:06.550] invokeRestart(restart) 1586s [00:53:06.550] muffled <- TRUE 1586s [00:53:06.550] break 1586s [00:53:06.550] } 1586s [00:53:06.550] } 1586s [00:53:06.550] } 1586s [00:53:06.550] invisible(muffled) 1586s [00:53:06.550] } 1586s [00:53:06.550] muffleCondition(cond, pattern = "^muffle") 1586s [00:53:06.550] } 1586s [00:53:06.550] } 1586s [00:53:06.550] else { 1586s [00:53:06.550] if (TRUE) { 1586s [00:53:06.550] muffleCondition <- function (cond, pattern = "^muffle") 1586s [00:53:06.550] { 1586s [00:53:06.550] inherits <- base::inherits 1586s [00:53:06.550] invokeRestart <- base::invokeRestart 1586s [00:53:06.550] is.null <- base::is.null 1586s [00:53:06.550] muffled <- FALSE 1586s [00:53:06.550] if (inherits(cond, "message")) { 1586s [00:53:06.550] muffled <- grepl(pattern, "muffleMessage") 1586s [00:53:06.550] if (muffled) 1586s [00:53:06.550] invokeRestart("muffleMessage") 1586s [00:53:06.550] } 1586s [00:53:06.550] else if (inherits(cond, "warning")) { 1586s [00:53:06.550] muffled <- grepl(pattern, "muffleWarning") 1586s [00:53:06.550] if (muffled) 1586s [00:53:06.550] invokeRestart("muffleWarning") 1586s [00:53:06.550] } 1586s [00:53:06.550] else if (inherits(cond, "condition")) { 1586s [00:53:06.550] if (!is.null(pattern)) { 1586s [00:53:06.550] computeRestarts <- base::computeRestarts 1586s [00:53:06.550] grepl <- base::grepl 1586s [00:53:06.550] restarts <- computeRestarts(cond) 1586s [00:53:06.550] for (restart in restarts) { 1586s [00:53:06.550] name <- restart$name 1586s [00:53:06.550] if (is.null(name)) 1586s [00:53:06.550] next 1586s [00:53:06.550] if (!grepl(pattern, name)) 1586s [00:53:06.550] next 1586s [00:53:06.550] invokeRestart(restart) 1586s [00:53:06.550] muffled <- TRUE 1586s [00:53:06.550] break 1586s [00:53:06.550] } 1586s [00:53:06.550] } 1586s [00:53:06.550] } 1586s [00:53:06.550] invisible(muffled) 1586s [00:53:06.550] } 1586s [00:53:06.550] muffleCondition(cond, pattern = "^muffle") 1586s [00:53:06.550] } 1586s [00:53:06.550] } 1586s [00:53:06.550] } 1586s [00:53:06.550] })) 1586s [00:53:06.550] }, error = function(ex) { 1586s [00:53:06.550] base::structure(base::list(value = NULL, visible = NULL, 1586s [00:53:06.550] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1586s [00:53:06.550] ...future.rng), started = ...future.startTime, 1586s [00:53:06.550] finished = Sys.time(), session_uuid = NA_character_, 1586s [00:53:06.550] version = "1.8"), class = "FutureResult") 1586s [00:53:06.550] }, finally = { 1586s [00:53:06.550] if (!identical(...future.workdir, getwd())) 1586s [00:53:06.550] setwd(...future.workdir) 1586s [00:53:06.550] { 1586s [00:53:06.550] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1586s [00:53:06.550] ...future.oldOptions$nwarnings <- NULL 1586s [00:53:06.550] } 1586s [00:53:06.550] base::options(...future.oldOptions) 1586s [00:53:06.550] if (.Platform$OS.type == "windows") { 1586s [00:53:06.550] old_names <- names(...future.oldEnvVars) 1586s [00:53:06.550] envs <- base::Sys.getenv() 1586s [00:53:06.550] names <- names(envs) 1586s [00:53:06.550] common <- intersect(names, old_names) 1586s [00:53:06.550] added <- setdiff(names, old_names) 1586s [00:53:06.550] removed <- setdiff(old_names, names) 1586s [00:53:06.550] changed <- common[...future.oldEnvVars[common] != 1586s [00:53:06.550] envs[common]] 1586s [00:53:06.550] NAMES <- toupper(changed) 1586s [00:53:06.550] args <- list() 1586s [00:53:06.550] for (kk in seq_along(NAMES)) { 1586s [00:53:06.550] name <- changed[[kk]] 1586s [00:53:06.550] NAME <- NAMES[[kk]] 1586s [00:53:06.550] if (name != NAME && is.element(NAME, old_names)) 1586s [00:53:06.550] next 1586s [00:53:06.550] args[[name]] <- ...future.oldEnvVars[[name]] 1586s [00:53:06.550] } 1586s [00:53:06.550] NAMES <- toupper(added) 1586s [00:53:06.550] for (kk in seq_along(NAMES)) { 1586s [00:53:06.550] name <- added[[kk]] 1586s [00:53:06.550] NAME <- NAMES[[kk]] 1586s [00:53:06.550] if (name != NAME && is.element(NAME, old_names)) 1586s [00:53:06.550] next 1586s [00:53:06.550] args[[name]] <- "" 1586s [00:53:06.550] } 1586s [00:53:06.550] NAMES <- toupper(removed) 1586s [00:53:06.550] for (kk in seq_along(NAMES)) { 1586s [00:53:06.550] name <- removed[[kk]] 1586s [00:53:06.550] NAME <- NAMES[[kk]] 1586s [00:53:06.550] if (name != NAME && is.element(NAME, old_names)) 1586s [00:53:06.550] next 1586s [00:53:06.550] args[[name]] <- ...future.oldEnvVars[[name]] 1586s [00:53:06.550] } 1586s [00:53:06.550] if (length(args) > 0) 1586s [00:53:06.550] base::do.call(base::Sys.setenv, args = args) 1586s [00:53:06.550] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1586s [00:53:06.550] } 1586s [00:53:06.550] else { 1586s [00:53:06.550] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1586s [00:53:06.550] } 1586s [00:53:06.550] { 1586s [00:53:06.550] if (base::length(...future.futureOptionsAdded) > 1586s [00:53:06.550] 0L) { 1586s [00:53:06.550] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1586s [00:53:06.550] base::names(opts) <- ...future.futureOptionsAdded 1586s [00:53:06.550] base::options(opts) 1586s [00:53:06.550] } 1586s [00:53:06.550] { 1586s [00:53:06.550] { 1586s [00:53:06.550] NULL 1586s [00:53:06.550] RNGkind("Mersenne-Twister") 1586s [00:53:06.550] base::rm(list = ".Random.seed", envir = base::globalenv(), 1586s [00:53:06.550] inherits = FALSE) 1586s [00:53:06.550] } 1586s [00:53:06.550] options(future.plan = NULL) 1586s [00:53:06.550] if (is.na(NA_character_)) 1586s [00:53:06.550] Sys.unsetenv("R_FUTURE_PLAN") 1586s [00:53:06.550] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1586s [00:53:06.550] future::plan(list(function (..., envir = parent.frame()) 1586s [00:53:06.550] { 1586s [00:53:06.550] future <- SequentialFuture(..., envir = envir) 1586s [00:53:06.550] if (!future$lazy) 1586s [00:53:06.550] future <- run(future) 1586s [00:53:06.550] invisible(future) 1586s [00:53:06.550] }), .cleanup = FALSE, .init = FALSE) 1586s [00:53:06.550] } 1586s [00:53:06.550] } 1586s [00:53:06.550] } 1586s [00:53:06.550] }) 1586s [00:53:06.550] if (TRUE) { 1586s [00:53:06.550] base::sink(type = "output", split = FALSE) 1586s [00:53:06.550] if (TRUE) { 1586s [00:53:06.550] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1586s [00:53:06.550] } 1586s [00:53:06.550] else { 1586s [00:53:06.550] ...future.result["stdout"] <- base::list(NULL) 1586s [00:53:06.550] } 1586s [00:53:06.550] base::close(...future.stdout) 1586s [00:53:06.550] ...future.stdout <- NULL 1586s [00:53:06.550] } 1586s [00:53:06.550] ...future.result$conditions <- ...future.conditions 1586s [00:53:06.550] ...future.result$finished <- base::Sys.time() 1586s [00:53:06.550] ...future.result 1586s [00:53:06.550] } 1586s [00:53:06.554] assign_globals() ... 1586s [00:53:06.554] List of 11 1586s [00:53:06.554] $ ...future.FUN :function (x, ...) 1586s [00:53:06.554] $ x_FUN :function (x) 1586s [00:53:06.554] $ times : int 4 1586s [00:53:06.554] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1586s [00:53:06.554] $ stop_if_not :function (...) 1586s [00:53:06.554] $ dim : int [1:2] 2 2 1586s [00:53:06.554] $ valid_types : chr [1:3] "logical" "integer" "double" 1586s [00:53:06.554] $ future.call.arguments : list() 1586s [00:53:06.554] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1586s [00:53:06.554] $ ...future.elements_ii :List of 10 1586s [00:53:06.554] ..$ : int 1 1586s [00:53:06.554] ..$ : int 2 1586s [00:53:06.554] ..$ : int 3 1586s [00:53:06.554] ..$ : int 4 1586s [00:53:06.554] ..$ : int 5 1586s [00:53:06.554] ..$ : int 6 1586s [00:53:06.554] ..$ : int 7 1586s [00:53:06.554] ..$ : int 8 1586s [00:53:06.554] ..$ : int 9 1586s [00:53:06.554] ..$ : int 10 1586s [00:53:06.554] $ ...future.seeds_ii : NULL 1586s [00:53:06.554] $ ...future.globals.maxSize: NULL 1586s [00:53:06.554] - attr(*, "where")=List of 11 1586s [00:53:06.554] ..$ ...future.FUN : 1586s [00:53:06.554] ..$ x_FUN : 1586s [00:53:06.554] ..$ times : 1586s [00:53:06.554] ..$ stopf : 1586s [00:53:06.554] ..$ stop_if_not : 1586s [00:53:06.554] ..$ dim : 1586s [00:53:06.554] ..$ valid_types : 1586s [00:53:06.554] ..$ future.call.arguments : 1586s [00:53:06.554] ..$ ...future.elements_ii : 1586s [00:53:06.554] ..$ ...future.seeds_ii : 1586s [00:53:06.554] ..$ ...future.globals.maxSize: 1586s [00:53:06.554] - attr(*, "resolved")= logi FALSE 1586s [00:53:06.554] - attr(*, "total_size")= num 97304 1586s [00:53:06.554] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1586s [00:53:06.554] - attr(*, "already-done")= logi TRUE 1586s [00:53:06.567] - copied ‘...future.FUN’ to environment 1586s [00:53:06.567] - reassign environment for ‘x_FUN’ 1586s [00:53:06.567] - copied ‘x_FUN’ to environment 1586s [00:53:06.567] - copied ‘times’ to environment 1586s [00:53:06.567] - copied ‘stopf’ to environment 1586s [00:53:06.567] - copied ‘stop_if_not’ to environment 1586s [00:53:06.568] - copied ‘dim’ to environment 1586s [00:53:06.568] - copied ‘valid_types’ to environment 1586s [00:53:06.568] - copied ‘future.call.arguments’ to environment 1586s [00:53:06.568] - copied ‘...future.elements_ii’ to environment 1586s [00:53:06.568] - copied ‘...future.seeds_ii’ to environment 1586s [00:53:06.568] - copied ‘...future.globals.maxSize’ to environment 1586s [00:53:06.568] assign_globals() ... done 1586s [00:53:06.569] plan(): Setting new future strategy stack: 1586s [00:53:06.569] List of future strategies: 1586s [00:53:06.569] 1. sequential: 1586s [00:53:06.569] - args: function (..., envir = parent.frame()) 1586s [00:53:06.569] - tweaked: FALSE 1586s [00:53:06.569] - call: NULL 1586s [00:53:06.569] plan(): nbrOfWorkers() = 1 1586s [00:53:06.597] plan(): Setting new future strategy stack: 1586s [00:53:06.597] List of future strategies: 1586s [00:53:06.597] 1. sequential: 1586s [00:53:06.597] - args: function (..., envir = parent.frame()) 1586s [00:53:06.597] - tweaked: FALSE 1586s [00:53:06.597] - call: plan(strategy) 1586s [00:53:06.598] plan(): nbrOfWorkers() = 1 1586s [00:53:06.598] SequentialFuture started (and completed) 1586s [00:53:06.598] - Launch lazy future ... done 1586s [00:53:06.598] run() for ‘SequentialFuture’ ... done 1586s [00:53:06.598] Created future: 1586s [00:53:06.598] SequentialFuture: 1586s [00:53:06.598] Label: ‘future_vapply-1’ 1586s [00:53:06.598] Expression: 1586s [00:53:06.598] { 1586s [00:53:06.598] do.call(function(...) { 1586s [00:53:06.598] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1586s [00:53:06.598] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1586s [00:53:06.598] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1586s [00:53:06.598] on.exit(options(oopts), add = TRUE) 1586s [00:53:06.598] } 1586s [00:53:06.598] { 1586s [00:53:06.598] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1586s [00:53:06.598] ...future.X_jj <- ...future.elements_ii[[jj]] 1586s [00:53:06.598] ...future.FUN(...future.X_jj, ...) 1586s [00:53:06.598] }) 1586s [00:53:06.598] } 1586s [00:53:06.598] }, args = future.call.arguments) 1586s [00:53:06.598] } 1586s [00:53:06.598] Lazy evaluation: FALSE 1586s [00:53:06.598] Asynchronous evaluation: FALSE 1586s [00:53:06.598] Local evaluation: TRUE 1586s [00:53:06.598] Environment: R_GlobalEnv 1586s [00:53:06.598] Capture standard output: TRUE 1586s [00:53:06.598] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1586s [00:53:06.598] Globals: 11 objects totaling 95.57 KiB (function ‘...future.FUN’ of 21.22 KiB, function ‘x_FUN’ of 2.90 KiB, integer ‘times’ of 56 bytes, function ‘stopf’ of 26.43 KiB, function ‘stop_if_not’ of 44.12 KiB, ...) 1586s [00:53:06.598] Packages: 1 packages (‘future.apply’) 1586s [00:53:06.598] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1586s [00:53:06.598] Resolved: TRUE 1586s [00:53:06.598] Value: 2.27 KiB of class ‘list’ 1586s [00:53:06.598] Early signaling: FALSE 1586s [00:53:06.598] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1586s [00:53:06.598] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1586s [00:53:06.600] Chunk #1 of 1 ... DONE 1586s [00:53:06.600] Launching 1 futures (chunks) ... DONE 1586s [00:53:06.600] Resolving 1 futures (chunks) ... 1586s [00:53:06.600] resolve() on list ... 1586s [00:53:06.601] recursive: 0 1586s [00:53:06.601] length: 1 1586s [00:53:06.601] 1586s [00:53:06.601] resolved() for ‘SequentialFuture’ ... 1586s [00:53:06.601] - state: ‘finished’ 1586s [00:53:06.601] - run: TRUE 1586s [00:53:06.601] - result: ‘FutureResult’ 1586s [00:53:06.601] resolved() for ‘SequentialFuture’ ... done 1586s [00:53:06.601] Future #1 1586s [00:53:06.602] signalConditionsASAP(SequentialFuture, pos=1) ... 1586s [00:53:06.602] - nx: 1 1586s [00:53:06.602] - relay: TRUE 1586s [00:53:06.602] - stdout: TRUE 1586s [00:53:06.602] - signal: TRUE 1586s [00:53:06.602] - resignal: FALSE 1586s [00:53:06.602] - force: TRUE 1586s [00:53:06.602] - relayed: [n=1] FALSE 1586s [00:53:06.602] - queued futures: [n=1] FALSE 1586s [00:53:06.602] - until=1 1586s [00:53:06.603] - relaying element #1 1586s [00:53:06.603] - relayed: [n=1] TRUE 1586s [00:53:06.603] - queued futures: [n=1] TRUE 1586s [00:53:06.603] signalConditionsASAP(SequentialFuture, pos=1) ... done 1586s [00:53:06.603] length: 0 (resolved future 1) 1586s [00:53:06.603] Relaying remaining futures 1586s [00:53:06.603] signalConditionsASAP(NULL, pos=0) ... 1586s [00:53:06.603] - nx: 1 1586s [00:53:06.603] - relay: TRUE 1586s [00:53:06.604] - stdout: TRUE 1586s [00:53:06.604] - signal: TRUE 1586s [00:53:06.604] - resignal: FALSE 1586s [00:53:06.604] - force: TRUE 1586s [00:53:06.604] - relayed: [n=1] TRUE 1586s [00:53:06.604] - queued futures: [n=1] TRUE 1586s - flush all 1586s [00:53:06.604] - relayed: [n=1] TRUE 1586s [00:53:06.604] - queued futures: [n=1] TRUE 1586s [00:53:06.604] signalConditionsASAP(NULL, pos=0) ... done 1586s [00:53:06.605] resolve() on list ... DONE 1586s [00:53:06.605] - Number of value chunks collected: 1 1586s [00:53:06.605] Resolving 1 futures (chunks) ... DONE 1586s [00:53:06.605] Reducing values from 1 chunks ... 1586s [00:53:06.605] - Number of values collected after concatenation: 10 1586s [00:53:06.605] - Number of values expected: 10 1586s [00:53:06.605] Reducing values from 1 chunks ... DONE 1586s [00:53:06.605] future_lapply() ... DONE 1586s int [1:2, 1:2, 1:10] 1 1 1 1 2 2 2 2 3 3 ... 1586s num [1:2, 1:2, 1:10] 1 1 1 1 2 2 2 2 3 3 ... 1586s - attr(*, "dimnames")=List of 3 1586s ..$ : chr [1:2] "a" "b" 1586s ..$ : chr [1:2] "A" "B" 1586s ..$ : NULL 1586s [00:53:06.608] future_lapply() ... 1586s [00:53:06.610] Number of chunks: 1 1586s [00:53:06.610] getGlobalsAndPackagesXApply() ... 1586s [00:53:06.611] - future.globals: TRUE 1586s [00:53:06.611] getGlobalsAndPackages() ... 1586s [00:53:06.611] Searching for globals... 1586s [00:53:06.615] - globals found: [19] ‘FUN’, ‘{’, ‘<-’, ‘x_FUN’, ‘if’, ‘!=’, ‘length’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘all’, ‘==’, ‘dim’, ‘%in%’, ‘typeof’, ‘valid_types’, ‘matrix’, ‘list’, ‘c’ 1586s [00:53:06.616] Searching for globals ... DONE 1586s [00:53:06.616] Resolving globals: FALSE 1586s [00:53:06.617] The total size of the 7 globals is 103.08 KiB (105552 bytes) 1586s [00:53:06.617] The total size of the 7 globals exported for future expression (‘FUN()’) is 103.08 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘stop_if_not’ (44.12 KiB of class ‘function’), ‘stopf’ (26.43 KiB of class ‘function’) and ‘FUN’ (21.22 KiB of class ‘function’) 1586s [00:53:06.618] - globals: [7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1586s [00:53:06.618] - packages: [1] ‘future.apply’ 1586s [00:53:06.618] getGlobalsAndPackages() ... DONE 1586s [00:53:06.618] - globals found/used: [n=7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1586s [00:53:06.618] - needed namespaces: [n=1] ‘future.apply’ 1586s [00:53:06.619] Finding globals ... DONE 1586s [00:53:06.619] - use_args: TRUE 1586s [00:53:06.619] - Getting '...' globals ... 1586s [00:53:06.619] resolve() on list ... 1586s [00:53:06.620] recursive: 0 1586s [00:53:06.620] length: 1 1586s [00:53:06.620] elements: ‘...’ 1586s [00:53:06.620] length: 0 (resolved future 1) 1586s [00:53:06.620] resolve() on list ... DONE 1586s [00:53:06.620] - '...' content: [n=0] 1586s [00:53:06.621] List of 1 1586s [00:53:06.621] $ ...: list() 1586s [00:53:06.621] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1586s [00:53:06.621] - attr(*, "where")=List of 1 1586s [00:53:06.621] ..$ ...: 1586s [00:53:06.621] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1586s [00:53:06.621] - attr(*, "resolved")= logi TRUE 1586s [00:53:06.621] - attr(*, "total_size")= num NA 1586s [00:53:06.624] - Getting '...' globals ... DONE 1586s [00:53:06.624] Globals to be used in all futures (chunks): [n=8] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’ 1586s [00:53:06.624] List of 8 1586s [00:53:06.624] $ ...future.FUN:function (x, ...) 1586s [00:53:06.624] $ x_FUN :function (x) 1586s [00:53:06.624] $ times : int 4 1586s [00:53:06.624] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1586s [00:53:06.624] $ stop_if_not :function (...) 1586s [00:53:06.624] $ dim : int [1:2] 2 2 1586s [00:53:06.624] $ valid_types : chr [1:3] "logical" "integer" "double" 1586s [00:53:06.624] $ ... : list() 1586s [00:53:06.624] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1586s [00:53:06.624] - attr(*, "where")=List of 8 1586s [00:53:06.624] ..$ ...future.FUN: 1586s [00:53:06.624] ..$ x_FUN : 1586s [00:53:06.624] ..$ times : 1586s [00:53:06.624] ..$ stopf : 1586s [00:53:06.624] ..$ stop_if_not : 1586s [00:53:06.624] ..$ dim : 1586s [00:53:06.624] ..$ valid_types : 1586s [00:53:06.624] ..$ ... : 1586s [00:53:06.624] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1586s [00:53:06.624] - attr(*, "resolved")= logi FALSE 1586s [00:53:06.624] - attr(*, "total_size")= num 105552 1586s [00:53:06.632] Packages to be attached in all futures: [n=1] ‘future.apply’ 1586s [00:53:06.632] getGlobalsAndPackagesXApply() ... DONE 1586s [00:53:06.633] Number of futures (= number of chunks): 1 1586s [00:53:06.633] Launching 1 futures (chunks) ... 1586s [00:53:06.633] Chunk #1 of 1 ... 1586s [00:53:06.633] - Finding globals in 'X' for chunk #1 ... 1586s [00:53:06.633] getGlobalsAndPackages() ... 1586s [00:53:06.633] Searching for globals... 1586s [00:53:06.634] 1586s [00:53:06.634] Searching for globals ... DONE 1586s [00:53:06.634] - globals: [0] 1586s [00:53:06.634] getGlobalsAndPackages() ... DONE 1586s [00:53:06.634] + additional globals found: [n=0] 1586s [00:53:06.634] + additional namespaces needed: [n=0] 1586s [00:53:06.635] - Finding globals in 'X' for chunk #1 ... DONE 1586s [00:53:06.635] - seeds: 1586s [00:53:06.635] - All globals exported: [n=11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1586s [00:53:06.635] getGlobalsAndPackages() ... 1586s [00:53:06.635] - globals passed as-is: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1586s [00:53:06.635] Resolving globals: FALSE 1586s [00:53:06.636] Tweak future expression to call with '...' arguments ... 1586s [00:53:06.636] { 1586s [00:53:06.636] do.call(function(...) { 1586s [00:53:06.636] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1586s [00:53:06.636] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1586s [00:53:06.636] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1586s [00:53:06.636] on.exit(options(oopts), add = TRUE) 1586s [00:53:06.636] } 1586s [00:53:06.636] { 1586s [00:53:06.636] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1586s [00:53:06.636] ...future.X_jj <- ...future.elements_ii[[jj]] 1586s [00:53:06.636] ...future.FUN(...future.X_jj, ...) 1586s [00:53:06.636] }) 1586s [00:53:06.636] } 1586s [00:53:06.636] }, args = future.call.arguments) 1586s [00:53:06.636] } 1586s [00:53:06.637] Tweak future expression to call with '...' arguments ... DONE 1586s [00:53:06.638] - globals: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1586s [00:53:06.638] - packages: [1] ‘future.apply’ 1586s [00:53:06.638] getGlobalsAndPackages() ... DONE 1586s [00:53:06.638] run() for ‘Future’ ... 1586s [00:53:06.639] - state: ‘created’ 1586s [00:53:06.639] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1586s [00:53:06.639] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1586s [00:53:06.640] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1586s [00:53:06.640] - Field: ‘label’ 1586s [00:53:06.640] - Field: ‘local’ 1586s [00:53:06.640] - Field: ‘owner’ 1586s [00:53:06.640] - Field: ‘envir’ 1586s [00:53:06.640] - Field: ‘packages’ 1586s [00:53:06.641] - Field: ‘gc’ 1586s [00:53:06.641] - Field: ‘conditions’ 1586s [00:53:06.641] - Field: ‘expr’ 1586s [00:53:06.641] - Field: ‘uuid’ 1586s [00:53:06.641] - Field: ‘seed’ 1586s [00:53:06.641] - Field: ‘version’ 1586s [00:53:06.641] - Field: ‘result’ 1586s [00:53:06.642] - Field: ‘asynchronous’ 1586s [00:53:06.642] - Field: ‘calls’ 1586s [00:53:06.642] - Field: ‘globals’ 1586s [00:53:06.642] - Field: ‘stdout’ 1586s [00:53:06.642] - Field: ‘earlySignal’ 1586s [00:53:06.642] - Field: ‘lazy’ 1586s [00:53:06.642] - Field: ‘state’ 1586s [00:53:06.643] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1586s [00:53:06.643] - Launch lazy future ... 1586s [00:53:06.643] Packages needed by the future expression (n = 1): ‘future.apply’ 1586s [00:53:06.643] Packages needed by future strategies (n = 0): 1586s [00:53:06.644] { 1586s [00:53:06.644] { 1586s [00:53:06.644] { 1586s [00:53:06.644] ...future.startTime <- base::Sys.time() 1586s [00:53:06.644] { 1586s [00:53:06.644] { 1586s [00:53:06.644] { 1586s [00:53:06.644] { 1586s [00:53:06.644] base::local({ 1586s [00:53:06.644] has_future <- base::requireNamespace("future", 1586s [00:53:06.644] quietly = TRUE) 1586s [00:53:06.644] if (has_future) { 1586s [00:53:06.644] ns <- base::getNamespace("future") 1586s [00:53:06.644] version <- ns[[".package"]][["version"]] 1586s [00:53:06.644] if (is.null(version)) 1586s [00:53:06.644] version <- utils::packageVersion("future") 1586s [00:53:06.644] } 1586s [00:53:06.644] else { 1586s [00:53:06.644] version <- NULL 1586s [00:53:06.644] } 1586s [00:53:06.644] if (!has_future || version < "1.8.0") { 1586s [00:53:06.644] info <- base::c(r_version = base::gsub("R version ", 1586s [00:53:06.644] "", base::R.version$version.string), 1586s [00:53:06.644] platform = base::sprintf("%s (%s-bit)", 1586s [00:53:06.644] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1586s [00:53:06.644] os = base::paste(base::Sys.info()[base::c("sysname", 1586s [00:53:06.644] "release", "version")], collapse = " "), 1586s [00:53:06.644] hostname = base::Sys.info()[["nodename"]]) 1586s [00:53:06.644] info <- base::sprintf("%s: %s", base::names(info), 1586s [00:53:06.644] info) 1586s [00:53:06.644] info <- base::paste(info, collapse = "; ") 1586s [00:53:06.644] if (!has_future) { 1586s [00:53:06.644] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1586s [00:53:06.644] info) 1586s [00:53:06.644] } 1586s [00:53:06.644] else { 1586s [00:53:06.644] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1586s [00:53:06.644] info, version) 1586s [00:53:06.644] } 1586s [00:53:06.644] base::stop(msg) 1586s [00:53:06.644] } 1586s [00:53:06.644] }) 1586s [00:53:06.644] } 1586s [00:53:06.644] base::local({ 1586s [00:53:06.644] for (pkg in "future.apply") { 1586s [00:53:06.644] base::loadNamespace(pkg) 1586s [00:53:06.644] base::library(pkg, character.only = TRUE) 1586s [00:53:06.644] } 1586s [00:53:06.644] }) 1586s [00:53:06.644] } 1586s [00:53:06.644] options(future.plan = NULL) 1586s [00:53:06.644] Sys.unsetenv("R_FUTURE_PLAN") 1586s [00:53:06.644] future::plan("default", .cleanup = FALSE, .init = FALSE) 1586s [00:53:06.644] } 1586s [00:53:06.644] ...future.workdir <- getwd() 1586s [00:53:06.644] } 1586s [00:53:06.644] ...future.oldOptions <- base::as.list(base::.Options) 1586s [00:53:06.644] ...future.oldEnvVars <- base::Sys.getenv() 1586s [00:53:06.644] } 1586s [00:53:06.644] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1586s [00:53:06.644] future.globals.maxSize = NULL, future.globals.method = NULL, 1586s [00:53:06.644] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1586s [00:53:06.644] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1586s [00:53:06.644] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1586s [00:53:06.644] future.stdout.windows.reencode = NULL, width = 80L) 1586s [00:53:06.644] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1586s [00:53:06.644] base::names(...future.oldOptions)) 1586s [00:53:06.644] } 1586s [00:53:06.644] if (FALSE) { 1586s [00:53:06.644] } 1586s [00:53:06.644] else { 1586s [00:53:06.644] if (TRUE) { 1586s [00:53:06.644] ...future.stdout <- base::rawConnection(base::raw(0L), 1586s [00:53:06.644] open = "w") 1586s [00:53:06.644] } 1586s [00:53:06.644] else { 1586s [00:53:06.644] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1586s [00:53:06.644] windows = "NUL", "/dev/null"), open = "w") 1586s [00:53:06.644] } 1586s [00:53:06.644] base::sink(...future.stdout, type = "output", split = FALSE) 1586s [00:53:06.644] base::on.exit(if (!base::is.null(...future.stdout)) { 1586s [00:53:06.644] base::sink(type = "output", split = FALSE) 1586s [00:53:06.644] base::close(...future.stdout) 1586s [00:53:06.644] }, add = TRUE) 1586s [00:53:06.644] } 1586s [00:53:06.644] ...future.frame <- base::sys.nframe() 1586s [00:53:06.644] ...future.conditions <- base::list() 1586s [00:53:06.644] ...future.rng <- base::globalenv()$.Random.seed 1586s [00:53:06.644] if (FALSE) { 1586s [00:53:06.644] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1586s [00:53:06.644] "...future.value", "...future.globalenv.names", ".Random.seed") 1586s [00:53:06.644] } 1586s [00:53:06.644] ...future.result <- base::tryCatch({ 1586s [00:53:06.644] base::withCallingHandlers({ 1586s [00:53:06.644] ...future.value <- base::withVisible(base::local({ 1586s [00:53:06.644] do.call(function(...) { 1586s [00:53:06.644] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1586s [00:53:06.644] if (!identical(...future.globals.maxSize.org, 1586s [00:53:06.644] ...future.globals.maxSize)) { 1586s [00:53:06.644] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1586s [00:53:06.644] on.exit(options(oopts), add = TRUE) 1586s [00:53:06.644] } 1586s [00:53:06.644] { 1586s [00:53:06.644] lapply(seq_along(...future.elements_ii), 1586s [00:53:06.644] FUN = function(jj) { 1586s [00:53:06.644] ...future.X_jj <- ...future.elements_ii[[jj]] 1586s [00:53:06.644] ...future.FUN(...future.X_jj, ...) 1586s [00:53:06.644] }) 1586s [00:53:06.644] } 1586s [00:53:06.644] }, args = future.call.arguments) 1586s [00:53:06.644] })) 1586s [00:53:06.644] future::FutureResult(value = ...future.value$value, 1586s [00:53:06.644] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1586s [00:53:06.644] ...future.rng), globalenv = if (FALSE) 1586s [00:53:06.644] list(added = base::setdiff(base::names(base::.GlobalEnv), 1586s [00:53:06.644] ...future.globalenv.names)) 1586s [00:53:06.644] else NULL, started = ...future.startTime, version = "1.8") 1586s [00:53:06.644] }, condition = base::local({ 1586s [00:53:06.644] c <- base::c 1586s [00:53:06.644] inherits <- base::inherits 1586s [00:53:06.644] invokeRestart <- base::invokeRestart 1586s [00:53:06.644] length <- base::length 1586s [00:53:06.644] list <- base::list 1586s [00:53:06.644] seq.int <- base::seq.int 1586s [00:53:06.644] signalCondition <- base::signalCondition 1586s [00:53:06.644] sys.calls <- base::sys.calls 1586s [00:53:06.644] `[[` <- base::`[[` 1586s [00:53:06.644] `+` <- base::`+` 1586s [00:53:06.644] `<<-` <- base::`<<-` 1586s [00:53:06.644] sysCalls <- function(calls = sys.calls(), from = 1L) { 1586s [00:53:06.644] calls[seq.int(from = from + 12L, to = length(calls) - 1586s [00:53:06.644] 3L)] 1586s [00:53:06.644] } 1586s [00:53:06.644] function(cond) { 1586s [00:53:06.644] is_error <- inherits(cond, "error") 1586s [00:53:06.644] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1586s [00:53:06.644] NULL) 1586s [00:53:06.644] if (is_error) { 1586s [00:53:06.644] sessionInformation <- function() { 1586s [00:53:06.644] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1586s [00:53:06.644] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1586s [00:53:06.644] search = base::search(), system = base::Sys.info()) 1586s [00:53:06.644] } 1586s [00:53:06.644] ...future.conditions[[length(...future.conditions) + 1586s [00:53:06.644] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1586s [00:53:06.644] cond$call), session = sessionInformation(), 1586s [00:53:06.644] timestamp = base::Sys.time(), signaled = 0L) 1586s [00:53:06.644] signalCondition(cond) 1586s [00:53:06.644] } 1586s [00:53:06.644] else if (!ignore && TRUE && inherits(cond, c("condition", 1586s [00:53:06.644] "immediateCondition"))) { 1586s [00:53:06.644] signal <- TRUE && inherits(cond, "immediateCondition") 1586s [00:53:06.644] ...future.conditions[[length(...future.conditions) + 1586s [00:53:06.644] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1586s [00:53:06.644] if (TRUE && !signal) { 1586s [00:53:06.644] muffleCondition <- function (cond, pattern = "^muffle") 1586s [00:53:06.644] { 1586s [00:53:06.644] inherits <- base::inherits 1586s [00:53:06.644] invokeRestart <- base::invokeRestart 1586s [00:53:06.644] is.null <- base::is.null 1586s [00:53:06.644] muffled <- FALSE 1586s [00:53:06.644] if (inherits(cond, "message")) { 1586s [00:53:06.644] muffled <- grepl(pattern, "muffleMessage") 1586s [00:53:06.644] if (muffled) 1586s [00:53:06.644] invokeRestart("muffleMessage") 1586s [00:53:06.644] } 1586s [00:53:06.644] else if (inherits(cond, "warning")) { 1586s [00:53:06.644] muffled <- grepl(pattern, "muffleWarning") 1586s [00:53:06.644] if (muffled) 1586s [00:53:06.644] invokeRestart("muffleWarning") 1586s [00:53:06.644] } 1586s [00:53:06.644] else if (inherits(cond, "condition")) { 1586s [00:53:06.644] if (!is.null(pattern)) { 1586s [00:53:06.644] computeRestarts <- base::computeRestarts 1586s [00:53:06.644] grepl <- base::grepl 1586s [00:53:06.644] restarts <- computeRestarts(cond) 1586s [00:53:06.644] for (restart in restarts) { 1586s [00:53:06.644] name <- restart$name 1586s [00:53:06.644] if (is.null(name)) 1586s [00:53:06.644] next 1586s [00:53:06.644] if (!grepl(pattern, name)) 1586s [00:53:06.644] next 1586s [00:53:06.644] invokeRestart(restart) 1586s [00:53:06.644] muffled <- TRUE 1586s [00:53:06.644] break 1586s [00:53:06.644] } 1586s [00:53:06.644] } 1586s [00:53:06.644] } 1586s [00:53:06.644] invisible(muffled) 1586s [00:53:06.644] } 1586s [00:53:06.644] muffleCondition(cond, pattern = "^muffle") 1586s [00:53:06.644] } 1586s [00:53:06.644] } 1586s [00:53:06.644] else { 1586s [00:53:06.644] if (TRUE) { 1586s [00:53:06.644] muffleCondition <- function (cond, pattern = "^muffle") 1586s [00:53:06.644] { 1586s [00:53:06.644] inherits <- base::inherits 1586s [00:53:06.644] invokeRestart <- base::invokeRestart 1586s [00:53:06.644] is.null <- base::is.null 1586s [00:53:06.644] muffled <- FALSE 1586s [00:53:06.644] if (inherits(cond, "message")) { 1586s [00:53:06.644] muffled <- grepl(pattern, "muffleMessage") 1586s [00:53:06.644] if (muffled) 1586s [00:53:06.644] invokeRestart("muffleMessage") 1586s [00:53:06.644] } 1586s [00:53:06.644] else if (inherits(cond, "warning")) { 1586s [00:53:06.644] muffled <- grepl(pattern, "muffleWarning") 1586s [00:53:06.644] if (muffled) 1586s [00:53:06.644] invokeRestart("muffleWarning") 1586s [00:53:06.644] } 1586s [00:53:06.644] else if (inherits(cond, "condition")) { 1586s [00:53:06.644] if (!is.null(pattern)) { 1586s [00:53:06.644] computeRestarts <- base::computeRestarts 1586s [00:53:06.644] grepl <- base::grepl 1586s [00:53:06.644] restarts <- computeRestarts(cond) 1586s [00:53:06.644] for (restart in restarts) { 1586s [00:53:06.644] name <- restart$name 1586s [00:53:06.644] if (is.null(name)) 1586s [00:53:06.644] next 1586s [00:53:06.644] if (!grepl(pattern, name)) 1586s [00:53:06.644] next 1586s [00:53:06.644] invokeRestart(restart) 1586s [00:53:06.644] muffled <- TRUE 1586s [00:53:06.644] break 1586s [00:53:06.644] } 1586s [00:53:06.644] } 1586s [00:53:06.644] } 1586s [00:53:06.644] invisible(muffled) 1586s [00:53:06.644] } 1586s [00:53:06.644] muffleCondition(cond, pattern = "^muffle") 1586s [00:53:06.644] } 1586s [00:53:06.644] } 1586s [00:53:06.644] } 1586s [00:53:06.644] })) 1586s [00:53:06.644] }, error = function(ex) { 1586s [00:53:06.644] base::structure(base::list(value = NULL, visible = NULL, 1586s [00:53:06.644] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1586s [00:53:06.644] ...future.rng), started = ...future.startTime, 1586s [00:53:06.644] finished = Sys.time(), session_uuid = NA_character_, 1586s [00:53:06.644] version = "1.8"), class = "FutureResult") 1586s [00:53:06.644] }, finally = { 1586s [00:53:06.644] if (!identical(...future.workdir, getwd())) 1586s [00:53:06.644] setwd(...future.workdir) 1586s [00:53:06.644] { 1586s [00:53:06.644] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1586s [00:53:06.644] ...future.oldOptions$nwarnings <- NULL 1586s [00:53:06.644] } 1586s [00:53:06.644] base::options(...future.oldOptions) 1586s [00:53:06.644] if (.Platform$OS.type == "windows") { 1586s [00:53:06.644] old_names <- names(...future.oldEnvVars) 1586s [00:53:06.644] envs <- base::Sys.getenv() 1586s [00:53:06.644] names <- names(envs) 1586s [00:53:06.644] common <- intersect(names, old_names) 1586s [00:53:06.644] added <- setdiff(names, old_names) 1586s [00:53:06.644] removed <- setdiff(old_names, names) 1586s [00:53:06.644] changed <- common[...future.oldEnvVars[common] != 1586s [00:53:06.644] envs[common]] 1586s [00:53:06.644] NAMES <- toupper(changed) 1586s [00:53:06.644] args <- list() 1586s [00:53:06.644] for (kk in seq_along(NAMES)) { 1586s [00:53:06.644] name <- changed[[kk]] 1586s [00:53:06.644] NAME <- NAMES[[kk]] 1586s [00:53:06.644] if (name != NAME && is.element(NAME, old_names)) 1586s [00:53:06.644] next 1586s [00:53:06.644] args[[name]] <- ...future.oldEnvVars[[name]] 1586s [00:53:06.644] } 1586s [00:53:06.644] NAMES <- toupper(added) 1586s [00:53:06.644] for (kk in seq_along(NAMES)) { 1586s [00:53:06.644] name <- added[[kk]] 1586s [00:53:06.644] NAME <- NAMES[[kk]] 1586s [00:53:06.644] if (name != NAME && is.element(NAME, old_names)) 1586s [00:53:06.644] next 1586s [00:53:06.644] args[[name]] <- "" 1586s [00:53:06.644] } 1586s [00:53:06.644] NAMES <- toupper(removed) 1586s [00:53:06.644] for (kk in seq_along(NAMES)) { 1586s [00:53:06.644] name <- removed[[kk]] 1586s [00:53:06.644] NAME <- NAMES[[kk]] 1586s [00:53:06.644] if (name != NAME && is.element(NAME, old_names)) 1586s [00:53:06.644] next 1586s [00:53:06.644] args[[name]] <- ...future.oldEnvVars[[name]] 1586s [00:53:06.644] } 1586s [00:53:06.644] if (length(args) > 0) 1586s [00:53:06.644] base::do.call(base::Sys.setenv, args = args) 1586s [00:53:06.644] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1586s [00:53:06.644] } 1586s [00:53:06.644] else { 1586s [00:53:06.644] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1586s [00:53:06.644] } 1586s [00:53:06.644] { 1586s [00:53:06.644] if (base::length(...future.futureOptionsAdded) > 1586s [00:53:06.644] 0L) { 1586s [00:53:06.644] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1586s [00:53:06.644] base::names(opts) <- ...future.futureOptionsAdded 1586s [00:53:06.644] base::options(opts) 1586s [00:53:06.644] } 1586s [00:53:06.644] { 1586s [00:53:06.644] { 1586s [00:53:06.644] NULL 1586s [00:53:06.644] RNGkind("Mersenne-Twister") 1586s [00:53:06.644] base::rm(list = ".Random.seed", envir = base::globalenv(), 1586s [00:53:06.644] inherits = FALSE) 1586s [00:53:06.644] } 1586s [00:53:06.644] options(future.plan = NULL) 1586s [00:53:06.644] if (is.na(NA_character_)) 1586s [00:53:06.644] Sys.unsetenv("R_FUTURE_PLAN") 1586s [00:53:06.644] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1586s [00:53:06.644] future::plan(list(function (..., envir = parent.frame()) 1586s [00:53:06.644] { 1586s [00:53:06.644] future <- SequentialFuture(..., envir = envir) 1586s [00:53:06.644] if (!future$lazy) 1586s [00:53:06.644] future <- run(future) 1586s [00:53:06.644] invisible(future) 1586s [00:53:06.644] }), .cleanup = FALSE, .init = FALSE) 1586s [00:53:06.644] } 1586s [00:53:06.644] } 1586s [00:53:06.644] } 1586s [00:53:06.644] }) 1586s [00:53:06.644] if (TRUE) { 1586s [00:53:06.644] base::sink(type = "output", split = FALSE) 1586s [00:53:06.644] if (TRUE) { 1586s [00:53:06.644] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1586s [00:53:06.644] } 1586s [00:53:06.644] else { 1586s [00:53:06.644] ...future.result["stdout"] <- base::list(NULL) 1586s [00:53:06.644] } 1586s [00:53:06.644] base::close(...future.stdout) 1586s [00:53:06.644] ...future.stdout <- NULL 1586s [00:53:06.644] } 1586s [00:53:06.644] ...future.result$conditions <- ...future.conditions 1586s [00:53:06.644] ...future.result$finished <- base::Sys.time() 1586s [00:53:06.644] ...future.result 1586s [00:53:06.644] } 1586s [00:53:06.649] assign_globals() ... 1586s [00:53:06.649] List of 11 1586s [00:53:06.649] $ ...future.FUN :function (x, ...) 1586s [00:53:06.649] $ x_FUN :function (x) 1586s [00:53:06.649] $ times : int 4 1586s [00:53:06.649] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1586s [00:53:06.649] $ stop_if_not :function (...) 1586s [00:53:06.649] $ dim : int [1:2] 2 2 1586s [00:53:06.649] $ valid_types : chr [1:3] "logical" "integer" "double" 1586s [00:53:06.649] $ future.call.arguments : list() 1586s [00:53:06.649] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1586s [00:53:06.649] $ ...future.elements_ii :List of 10 1586s [00:53:06.649] ..$ : int 1 1586s [00:53:06.649] ..$ : int 2 1586s [00:53:06.649] ..$ : int 3 1586s [00:53:06.649] ..$ : int 4 1586s [00:53:06.649] ..$ : int 5 1586s [00:53:06.649] ..$ : int 6 1586s [00:53:06.649] ..$ : int 7 1586s [00:53:06.649] ..$ : int 8 1586s [00:53:06.649] ..$ : int 9 1586s [00:53:06.649] ..$ : int 10 1586s [00:53:06.649] $ ...future.seeds_ii : NULL 1586s [00:53:06.649] $ ...future.globals.maxSize: NULL 1586s [00:53:06.649] - attr(*, "where")=List of 11 1586s [00:53:06.649] ..$ ...future.FUN : 1586s [00:53:06.649] ..$ x_FUN : 1586s [00:53:06.649] ..$ times : 1586s [00:53:06.649] ..$ stopf : 1586s [00:53:06.649] ..$ stop_if_not : 1586s [00:53:06.649] ..$ dim : 1586s [00:53:06.649] ..$ valid_types : 1586s [00:53:06.649] ..$ future.call.arguments : 1586s [00:53:06.649] ..$ ...future.elements_ii : 1586s [00:53:06.649] ..$ ...future.seeds_ii : 1586s [00:53:06.649] ..$ ...future.globals.maxSize: 1586s [00:53:06.649] - attr(*, "resolved")= logi FALSE 1586s [00:53:06.649] - attr(*, "total_size")= num 105552 1586s [00:53:06.649] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1586s [00:53:06.649] - attr(*, "already-done")= logi TRUE 1586s [00:53:06.663] - copied ‘...future.FUN’ to environment 1586s [00:53:06.663] - reassign environment for ‘x_FUN’ 1586s [00:53:06.663] - copied ‘x_FUN’ to environment 1586s [00:53:06.663] - copied ‘times’ to environment 1586s [00:53:06.663] - copied ‘stopf’ to environment 1586s [00:53:06.663] - copied ‘stop_if_not’ to environment 1586s [00:53:06.664] - copied ‘dim’ to environment 1586s [00:53:06.664] - copied ‘valid_types’ to environment 1586s [00:53:06.664] - copied ‘future.call.arguments’ to environment 1586s [00:53:06.664] - copied ‘...future.elements_ii’ to environment 1586s [00:53:06.664] - copied ‘...future.seeds_ii’ to environment 1586s [00:53:06.664] - copied ‘...future.globals.maxSize’ to environment 1586s [00:53:06.664] assign_globals() ... done 1586s [00:53:06.665] plan(): Setting new future strategy stack: 1586s [00:53:06.665] List of future strategies: 1586s [00:53:06.665] 1. sequential: 1586s [00:53:06.665] - args: function (..., envir = parent.frame()) 1586s [00:53:06.665] - tweaked: FALSE 1586s [00:53:06.665] - call: NULL 1586s [00:53:06.666] plan(): nbrOfWorkers() = 1 1586s [00:53:06.666] plan(): Setting new future strategy stack: 1586s [00:53:06.666] List of future strategies: 1586s [00:53:06.666] 1. sequential: 1586s [00:53:06.666] - args: function (..., envir = parent.frame()) 1586s [00:53:06.666] - tweaked: FALSE 1586s [00:53:06.666] - call: plan(strategy) 1586s [00:53:06.667] plan(): nbrOfWorkers() = 1 1586s [00:53:06.667] SequentialFuture started (and completed) 1586s [00:53:06.667] - Launch lazy future ... done 1586s [00:53:06.667] run() for ‘SequentialFuture’ ... done 1586s [00:53:06.668] Created future: 1586s [00:53:06.668] SequentialFuture: 1586s [00:53:06.668] Label: ‘future_vapply-1’ 1586s [00:53:06.668] Expression: 1586s [00:53:06.668] { 1586s [00:53:06.668] do.call(function(...) { 1586s [00:53:06.668] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1586s [00:53:06.668] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1586s [00:53:06.668] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1586s [00:53:06.668] on.exit(options(oopts), add = TRUE) 1586s [00:53:06.668] } 1586s [00:53:06.668] { 1586s [00:53:06.668] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1586s [00:53:06.668] ...future.X_jj <- ...future.elements_ii[[jj]] 1586s [00:53:06.668] ...future.FUN(...future.X_jj, ...) 1586s [00:53:06.668] }) 1586s [00:53:06.668] } 1586s [00:53:06.668] }, args = future.call.arguments) 1586s [00:53:06.668] } 1586s [00:53:06.668] Lazy evaluation: FALSE 1586s [00:53:06.668] Asynchronous evaluation: FALSE 1586s [00:53:06.668] Local evaluation: TRUE 1586s [00:53:06.668] Environment: R_GlobalEnv 1586s [00:53:06.668] Capture standard output: TRUE 1586s [00:53:06.668] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1586s [00:53:06.668] Globals: 11 objects totaling 103.62 KiB (function ‘...future.FUN’ of 21.22 KiB, function ‘x_FUN’ of 10.95 KiB, integer ‘times’ of 56 bytes, function ‘stopf’ of 26.43 KiB, function ‘stop_if_not’ of 44.12 KiB, ...) 1586s [00:53:06.668] Packages: 1 packages (‘future.apply’) 1586s [00:53:06.668] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1586s [00:53:06.668] Resolved: TRUE 1586s [00:53:06.668] Value: 7.42 KiB of class ‘list’ 1586s [00:53:06.668] Early signaling: FALSE 1586s [00:53:06.668] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1586s [00:53:06.668] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1586s [00:53:06.670] Chunk #1 of 1 ... DONE 1586s [00:53:06.670] Launching 1 futures (chunks) ... DONE 1586s [00:53:06.670] Resolving 1 futures (chunks) ... 1586s [00:53:06.670] resolve() on list ... 1586s [00:53:06.670] recursive: 0 1586s [00:53:06.670] length: 1 1586s int [1:2, 1:2, 1:10] [00:53:06.670] 1586s [00:53:06.671] resolved() for ‘SequentialFuture’ ... 1586s [00:53:06.671] - state: ‘finished’ 1586s [00:53:06.671] - run: TRUE 1586s [00:53:06.671] - result: ‘FutureResult’ 1586s [00:53:06.671] resolved() for ‘SequentialFuture’ ... done 1586s [00:53:06.671] Future #1 1586s [00:53:06.671] signalConditionsASAP(SequentialFuture, pos=1) ... 1586s [00:53:06.671] - nx: 1 1586s [00:53:06.671] - relay: TRUE 1586s [00:53:06.672] - stdout: TRUE 1586s [00:53:06.672] - signal: TRUE 1586s [00:53:06.672] - resignal: FALSE 1586s [00:53:06.672] - force: TRUE 1586s [00:53:06.672] - relayed: [n=1] FALSE 1586s [00:53:06.672] - queued futures: [n=1] FALSE 1586s [00:53:06.672] - until=1 1586s [00:53:06.672] - relaying element #1 1586s [00:53:06.673] - relayed: [n=1] TRUE 1586s [00:53:06.673] - queued futures: [n=1] TRUE 1586s [00:53:06.673] signalConditionsASAP(SequentialFuture, pos=1) ... done 1586s [00:53:06.673] length: 0 (resolved future 1) 1586s [00:53:06.673] Relaying remaining futures 1586s [00:53:06.673] signalConditionsASAP(NULL, pos=0) ... 1586s [00:53:06.673] - nx: 1 1586s [00:53:06.673] - relay: TRUE 1586s [00:53:06.673] - stdout: TRUE 1586s [00:53:06.674] - signal: TRUE 1586s [00:53:06.674] - resignal: FALSE 1586s [00:53:06.674] - force: TRUE 1586s [00:53:06.674] - relayed: [n=1] TRUE 1586s [00:53:06.674] - queued futures: [n=1] TRUE 1586s - flush all 1586s [00:53:06.674] - relayed: [n=1] TRUE 1586s [00:53:06.674] - queued futures: [n=1] TRUE 1586s [00:53:06.674] signalConditionsASAP(NULL, pos=0) ... done 1586s [00:53:06.674] resolve() on list ... DONE 1586s [00:53:06.675] - Number of value chunks collected: 1 1586s [00:53:06.675] Resolving 1 futures (chunks) ... DONE 1586s [00:53:06.675] Reducing values from 1 chunks ... 1586s [00:53:06.675] - Number of values collected after concatenation: 10 1586s [00:53:06.675] - Number of values expected: 10 1586s [00:53:06.675] Reducing values from 1 chunks ... DONE 1586s [00:53:06.675] future_lapply() ... DONE 1586s 1 1 1 1 2 2 2 2 3 3 ... 1586s - attr(*, "dimnames")=List of 3 1586s ..$ : chr [1:2] "a" "b" 1586s ..$ : chr [1:2] "A" "B" 1586s ..$ : NULL 1586s - From example(vapply) ... 1586s [00:53:06.681] future_lapply() ... 1586s [00:53:06.683] Number of chunks: 1 1586s [00:53:06.683] getGlobalsAndPackagesXApply() ... 1586s [00:53:06.683] - future.globals: TRUE 1586s [00:53:06.684] getGlobalsAndPackages() ... 1586s [00:53:06.684] Searching for globals... 1586s [00:53:06.688] - globals found: [17] ‘FUN’, ‘{’, ‘<-’, ‘x_FUN’, ‘if’, ‘!=’, ‘length’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘all’, ‘==’, ‘dim’, ‘%in%’, ‘typeof’, ‘valid_types’, ‘UseMethod’ 1586s [00:53:06.688] Searching for globals ... DONE 1586s [00:53:06.688] Resolving globals: FALSE 1586s [00:53:06.689] The total size of the 7 globals is 93.29 KiB (95528 bytes) 1586s [00:53:06.690] The total size of the 7 globals exported for future expression (‘FUN()’) is 93.29 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘stop_if_not’ (44.12 KiB of class ‘function’), ‘stopf’ (26.43 KiB of class ‘function’) and ‘FUN’ (21.22 KiB of class ‘function’) 1586s [00:53:06.690] - globals: [7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1586s [00:53:06.690] - packages: [2] ‘stats’, ‘future.apply’ 1586s [00:53:06.690] getGlobalsAndPackages() ... DONE 1586s [00:53:06.691] - globals found/used: [n=7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1586s [00:53:06.691] - needed namespaces: [n=2] ‘stats’, ‘future.apply’ 1586s [00:53:06.691] Finding globals ... DONE 1586s [00:53:06.691] - use_args: TRUE 1586s [00:53:06.691] - Getting '...' globals ... 1586s [00:53:06.692] resolve() on list ... 1586s [00:53:06.692] recursive: 0 1586s [00:53:06.692] length: 1 1586s [00:53:06.692] elements: ‘...’ 1586s [00:53:06.692] length: 0 (resolved future 1) 1586s [00:53:06.692] resolve() on list ... DONE 1586s [00:53:06.692] - '...' content: [n=0] 1586s [00:53:06.693] List of 1 1586s [00:53:06.693] $ ...: list() 1586s [00:53:06.693] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1586s [00:53:06.693] - attr(*, "where")=List of 1 1586s [00:53:06.693] ..$ ...: 1586s [00:53:06.693] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1586s [00:53:06.693] - attr(*, "resolved")= logi TRUE 1586s [00:53:06.693] - attr(*, "total_size")= num NA 1586s [00:53:06.697] - Getting '...' globals ... DONE 1586s [00:53:06.697] Globals to be used in all futures (chunks): [n=8] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’ 1586s [00:53:06.698] List of 8 1586s [00:53:06.698] $ ...future.FUN:function (x, ...) 1586s [00:53:06.698] $ x_FUN :function (x, ...) 1586s [00:53:06.698] $ times : int 5 1586s [00:53:06.698] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1586s [00:53:06.698] $ stop_if_not :function (...) 1586s [00:53:06.698] $ dim : NULL 1586s [00:53:06.698] $ valid_types : chr [1:3] "logical" "integer" "double" 1586s [00:53:06.698] $ ... : list() 1586s [00:53:06.698] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1586s [00:53:06.698] - attr(*, "where")=List of 8 1586s [00:53:06.698] ..$ ...future.FUN: 1586s [00:53:06.698] ..$ x_FUN : 1586s [00:53:06.698] ..$ times : 1586s [00:53:06.698] ..$ stopf : 1586s [00:53:06.698] ..$ stop_if_not : 1586s [00:53:06.698] ..$ dim : 1586s [00:53:06.698] ..$ valid_types : 1586s [00:53:06.698] ..$ ... : 1586s [00:53:06.698] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1586s [00:53:06.698] - attr(*, "resolved")= logi FALSE 1586s [00:53:06.698] - attr(*, "total_size")= num 95528 1586s [00:53:06.704] Packages to be attached in all futures: [n=2] ‘stats’, ‘future.apply’ 1586s [00:53:06.704] getGlobalsAndPackagesXApply() ... DONE 1586s [00:53:06.705] Number of futures (= number of chunks): 1 1586s [00:53:06.705] Launching 1 futures (chunks) ... 1586s [00:53:06.705] Chunk #1 of 1 ... 1586s [00:53:06.705] - Finding globals in 'X' for chunk #1 ... 1586s [00:53:06.705] getGlobalsAndPackages() ... 1586s [00:53:06.705] Searching for globals... 1586s [00:53:06.706] 1586s [00:53:06.706] Searching for globals ... DONE 1586s [00:53:06.706] - globals: [0] 1586s [00:53:06.706] getGlobalsAndPackages() ... DONE 1586s [00:53:06.706] + additional globals found: [n=0] 1586s [00:53:06.706] + additional namespaces needed: [n=0] 1586s [00:53:06.707] - Finding globals in 'X' for chunk #1 ... DONE 1586s [00:53:06.707] - seeds: 1586s [00:53:06.707] - All globals exported: [n=11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1586s [00:53:06.707] getGlobalsAndPackages() ... 1586s [00:53:06.707] - globals passed as-is: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1586s [00:53:06.707] Resolving globals: FALSE 1586s [00:53:06.708] Tweak future expression to call with '...' arguments ... 1586s [00:53:06.708] { 1586s [00:53:06.708] do.call(function(...) { 1586s [00:53:06.708] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1586s [00:53:06.708] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1586s [00:53:06.708] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1586s [00:53:06.708] on.exit(options(oopts), add = TRUE) 1586s [00:53:06.708] } 1586s [00:53:06.708] { 1586s [00:53:06.708] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1586s [00:53:06.708] ...future.X_jj <- ...future.elements_ii[[jj]] 1586s [00:53:06.708] ...future.FUN(...future.X_jj, ...) 1586s [00:53:06.708] }) 1586s [00:53:06.708] } 1586s [00:53:06.708] }, args = future.call.arguments) 1586s [00:53:06.708] } 1586s [00:53:06.708] Tweak future expression to call with '...' arguments ... DONE 1586s [00:53:06.709] - globals: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1586s [00:53:06.709] - packages: [2] ‘stats’, ‘future.apply’ 1586s [00:53:06.709] getGlobalsAndPackages() ... DONE 1586s [00:53:06.710] run() for ‘Future’ ... 1586s [00:53:06.710] - state: ‘created’ 1586s [00:53:06.710] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1586s [00:53:06.710] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1586s [00:53:06.711] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1586s [00:53:06.711] - Field: ‘label’ 1586s [00:53:06.711] - Field: ‘local’ 1586s [00:53:06.711] - Field: ‘owner’ 1586s [00:53:06.711] - Field: ‘envir’ 1586s [00:53:06.711] - Field: ‘packages’ 1586s [00:53:06.711] - Field: ‘gc’ 1586s [00:53:06.712] - Field: ‘conditions’ 1586s [00:53:06.712] - Field: ‘expr’ 1586s [00:53:06.712] - Field: ‘uuid’ 1586s [00:53:06.712] - Field: ‘seed’ 1586s [00:53:06.712] - Field: ‘version’ 1586s [00:53:06.712] - Field: ‘result’ 1586s [00:53:06.713] - Field: ‘asynchronous’ 1586s [00:53:06.713] - Field: ‘calls’ 1586s [00:53:06.713] - Field: ‘globals’ 1586s [00:53:06.713] - Field: ‘stdout’ 1586s [00:53:06.713] - Field: ‘earlySignal’ 1586s [00:53:06.713] - Field: ‘lazy’ 1586s [00:53:06.714] - Field: ‘state’ 1586s [00:53:06.714] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1586s [00:53:06.714] - Launch lazy future ... 1586s [00:53:06.714] Packages needed by the future expression (n = 2): ‘stats’, ‘future.apply’ 1586s [00:53:06.714] Packages needed by future strategies (n = 0): 1586s [00:53:06.715] { 1586s [00:53:06.715] { 1586s [00:53:06.715] { 1586s [00:53:06.715] ...future.startTime <- base::Sys.time() 1586s [00:53:06.715] { 1586s [00:53:06.715] { 1586s [00:53:06.715] { 1586s [00:53:06.715] { 1586s [00:53:06.715] base::local({ 1586s [00:53:06.715] has_future <- base::requireNamespace("future", 1586s [00:53:06.715] quietly = TRUE) 1586s [00:53:06.715] if (has_future) { 1586s [00:53:06.715] ns <- base::getNamespace("future") 1586s [00:53:06.715] version <- ns[[".package"]][["version"]] 1586s [00:53:06.715] if (is.null(version)) 1586s [00:53:06.715] version <- utils::packageVersion("future") 1586s [00:53:06.715] } 1586s [00:53:06.715] else { 1586s [00:53:06.715] version <- NULL 1586s [00:53:06.715] } 1586s [00:53:06.715] if (!has_future || version < "1.8.0") { 1586s [00:53:06.715] info <- base::c(r_version = base::gsub("R version ", 1586s [00:53:06.715] "", base::R.version$version.string), 1586s [00:53:06.715] platform = base::sprintf("%s (%s-bit)", 1586s [00:53:06.715] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1586s [00:53:06.715] os = base::paste(base::Sys.info()[base::c("sysname", 1586s [00:53:06.715] "release", "version")], collapse = " "), 1586s [00:53:06.715] hostname = base::Sys.info()[["nodename"]]) 1586s [00:53:06.715] info <- base::sprintf("%s: %s", base::names(info), 1586s [00:53:06.715] info) 1586s [00:53:06.715] info <- base::paste(info, collapse = "; ") 1586s [00:53:06.715] if (!has_future) { 1586s [00:53:06.715] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1586s [00:53:06.715] info) 1586s [00:53:06.715] } 1586s [00:53:06.715] else { 1586s [00:53:06.715] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1586s [00:53:06.715] info, version) 1586s [00:53:06.715] } 1586s [00:53:06.715] base::stop(msg) 1586s [00:53:06.715] } 1586s [00:53:06.715] }) 1586s [00:53:06.715] } 1586s [00:53:06.715] base::local({ 1586s [00:53:06.715] for (pkg in c("stats", "future.apply")) { 1586s [00:53:06.715] base::loadNamespace(pkg) 1586s [00:53:06.715] base::library(pkg, character.only = TRUE) 1586s [00:53:06.715] } 1586s [00:53:06.715] }) 1586s [00:53:06.715] } 1586s [00:53:06.715] options(future.plan = NULL) 1586s [00:53:06.715] Sys.unsetenv("R_FUTURE_PLAN") 1586s [00:53:06.715] future::plan("default", .cleanup = FALSE, .init = FALSE) 1586s [00:53:06.715] } 1586s [00:53:06.715] ...future.workdir <- getwd() 1586s [00:53:06.715] } 1586s [00:53:06.715] ...future.oldOptions <- base::as.list(base::.Options) 1586s [00:53:06.715] ...future.oldEnvVars <- base::Sys.getenv() 1586s [00:53:06.715] } 1586s [00:53:06.715] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1586s [00:53:06.715] future.globals.maxSize = NULL, future.globals.method = NULL, 1586s [00:53:06.715] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1586s [00:53:06.715] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1586s [00:53:06.715] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1586s [00:53:06.715] future.stdout.windows.reencode = NULL, width = 80L) 1586s [00:53:06.715] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1586s [00:53:06.715] base::names(...future.oldOptions)) 1586s [00:53:06.715] } 1586s [00:53:06.715] if (FALSE) { 1586s [00:53:06.715] } 1586s [00:53:06.715] else { 1586s [00:53:06.715] if (TRUE) { 1586s [00:53:06.715] ...future.stdout <- base::rawConnection(base::raw(0L), 1586s [00:53:06.715] open = "w") 1586s [00:53:06.715] } 1586s [00:53:06.715] else { 1586s [00:53:06.715] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1586s [00:53:06.715] windows = "NUL", "/dev/null"), open = "w") 1586s [00:53:06.715] } 1586s [00:53:06.715] base::sink(...future.stdout, type = "output", split = FALSE) 1586s [00:53:06.715] base::on.exit(if (!base::is.null(...future.stdout)) { 1586s [00:53:06.715] base::sink(type = "output", split = FALSE) 1586s [00:53:06.715] base::close(...future.stdout) 1586s [00:53:06.715] }, add = TRUE) 1586s [00:53:06.715] } 1586s [00:53:06.715] ...future.frame <- base::sys.nframe() 1586s [00:53:06.715] ...future.conditions <- base::list() 1586s [00:53:06.715] ...future.rng <- base::globalenv()$.Random.seed 1586s [00:53:06.715] if (FALSE) { 1586s [00:53:06.715] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1586s [00:53:06.715] "...future.value", "...future.globalenv.names", ".Random.seed") 1586s [00:53:06.715] } 1586s [00:53:06.715] ...future.result <- base::tryCatch({ 1586s [00:53:06.715] base::withCallingHandlers({ 1586s [00:53:06.715] ...future.value <- base::withVisible(base::local({ 1586s [00:53:06.715] do.call(function(...) { 1586s [00:53:06.715] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1586s [00:53:06.715] if (!identical(...future.globals.maxSize.org, 1586s [00:53:06.715] ...future.globals.maxSize)) { 1586s [00:53:06.715] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1586s [00:53:06.715] on.exit(options(oopts), add = TRUE) 1586s [00:53:06.715] } 1586s [00:53:06.715] { 1586s [00:53:06.715] lapply(seq_along(...future.elements_ii), 1586s [00:53:06.715] FUN = function(jj) { 1586s [00:53:06.715] ...future.X_jj <- ...future.elements_ii[[jj]] 1586s [00:53:06.715] ...future.FUN(...future.X_jj, ...) 1586s [00:53:06.715] }) 1586s [00:53:06.715] } 1586s [00:53:06.715] }, args = future.call.arguments) 1586s [00:53:06.715] })) 1586s [00:53:06.715] future::FutureResult(value = ...future.value$value, 1586s [00:53:06.715] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1586s [00:53:06.715] ...future.rng), globalenv = if (FALSE) 1586s [00:53:06.715] list(added = base::setdiff(base::names(base::.GlobalEnv), 1586s [00:53:06.715] ...future.globalenv.names)) 1586s [00:53:06.715] else NULL, started = ...future.startTime, version = "1.8") 1586s [00:53:06.715] }, condition = base::local({ 1586s [00:53:06.715] c <- base::c 1586s [00:53:06.715] inherits <- base::inherits 1586s [00:53:06.715] invokeRestart <- base::invokeRestart 1586s [00:53:06.715] length <- base::length 1586s [00:53:06.715] list <- base::list 1586s [00:53:06.715] seq.int <- base::seq.int 1586s [00:53:06.715] signalCondition <- base::signalCondition 1586s [00:53:06.715] sys.calls <- base::sys.calls 1586s [00:53:06.715] `[[` <- base::`[[` 1586s [00:53:06.715] `+` <- base::`+` 1586s [00:53:06.715] `<<-` <- base::`<<-` 1586s [00:53:06.715] sysCalls <- function(calls = sys.calls(), from = 1L) { 1586s [00:53:06.715] calls[seq.int(from = from + 12L, to = length(calls) - 1586s [00:53:06.715] 3L)] 1586s [00:53:06.715] } 1586s [00:53:06.715] function(cond) { 1586s [00:53:06.715] is_error <- inherits(cond, "error") 1586s [00:53:06.715] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1586s [00:53:06.715] NULL) 1586s [00:53:06.715] if (is_error) { 1586s [00:53:06.715] sessionInformation <- function() { 1586s [00:53:06.715] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1586s [00:53:06.715] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1586s [00:53:06.715] search = base::search(), system = base::Sys.info()) 1586s [00:53:06.715] } 1586s [00:53:06.715] ...future.conditions[[length(...future.conditions) + 1586s [00:53:06.715] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1586s [00:53:06.715] cond$call), session = sessionInformation(), 1586s [00:53:06.715] timestamp = base::Sys.time(), signaled = 0L) 1586s [00:53:06.715] signalCondition(cond) 1586s [00:53:06.715] } 1586s [00:53:06.715] else if (!ignore && TRUE && inherits(cond, c("condition", 1586s [00:53:06.715] "immediateCondition"))) { 1586s [00:53:06.715] signal <- TRUE && inherits(cond, "immediateCondition") 1586s [00:53:06.715] ...future.conditions[[length(...future.conditions) + 1586s [00:53:06.715] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1586s [00:53:06.715] if (TRUE && !signal) { 1586s [00:53:06.715] muffleCondition <- function (cond, pattern = "^muffle") 1586s [00:53:06.715] { 1586s [00:53:06.715] inherits <- base::inherits 1586s [00:53:06.715] invokeRestart <- base::invokeRestart 1586s [00:53:06.715] is.null <- base::is.null 1586s [00:53:06.715] muffled <- FALSE 1586s [00:53:06.715] if (inherits(cond, "message")) { 1586s [00:53:06.715] muffled <- grepl(pattern, "muffleMessage") 1586s [00:53:06.715] if (muffled) 1586s [00:53:06.715] invokeRestart("muffleMessage") 1586s [00:53:06.715] } 1586s [00:53:06.715] else if (inherits(cond, "warning")) { 1586s [00:53:06.715] muffled <- grepl(pattern, "muffleWarning") 1586s [00:53:06.715] if (muffled) 1586s [00:53:06.715] invokeRestart("muffleWarning") 1586s [00:53:06.715] } 1586s [00:53:06.715] else if (inherits(cond, "condition")) { 1586s [00:53:06.715] if (!is.null(pattern)) { 1586s [00:53:06.715] computeRestarts <- base::computeRestarts 1586s [00:53:06.715] grepl <- base::grepl 1586s [00:53:06.715] restarts <- computeRestarts(cond) 1586s [00:53:06.715] for (restart in restarts) { 1586s [00:53:06.715] name <- restart$name 1586s [00:53:06.715] if (is.null(name)) 1586s [00:53:06.715] next 1586s [00:53:06.715] if (!grepl(pattern, name)) 1586s [00:53:06.715] next 1586s [00:53:06.715] invokeRestart(restart) 1586s [00:53:06.715] muffled <- TRUE 1586s [00:53:06.715] break 1586s [00:53:06.715] } 1586s [00:53:06.715] } 1586s [00:53:06.715] } 1586s [00:53:06.715] invisible(muffled) 1586s [00:53:06.715] } 1586s [00:53:06.715] muffleCondition(cond, pattern = "^muffle") 1586s [00:53:06.715] } 1586s [00:53:06.715] } 1586s [00:53:06.715] else { 1586s [00:53:06.715] if (TRUE) { 1586s [00:53:06.715] muffleCondition <- function (cond, pattern = "^muffle") 1586s [00:53:06.715] { 1586s [00:53:06.715] inherits <- base::inherits 1586s [00:53:06.715] invokeRestart <- base::invokeRestart 1586s [00:53:06.715] is.null <- base::is.null 1586s [00:53:06.715] muffled <- FALSE 1586s [00:53:06.715] if (inherits(cond, "message")) { 1586s [00:53:06.715] muffled <- grepl(pattern, "muffleMessage") 1586s [00:53:06.715] if (muffled) 1586s [00:53:06.715] invokeRestart("muffleMessage") 1586s [00:53:06.715] } 1586s [00:53:06.715] else if (inherits(cond, "warning")) { 1586s [00:53:06.715] muffled <- grepl(pattern, "muffleWarning") 1586s [00:53:06.715] if (muffled) 1586s [00:53:06.715] invokeRestart("muffleWarning") 1586s [00:53:06.715] } 1586s [00:53:06.715] else if (inherits(cond, "condition")) { 1586s [00:53:06.715] if (!is.null(pattern)) { 1586s [00:53:06.715] computeRestarts <- base::computeRestarts 1586s [00:53:06.715] grepl <- base::grepl 1586s [00:53:06.715] restarts <- computeRestarts(cond) 1586s [00:53:06.715] for (restart in restarts) { 1586s [00:53:06.715] name <- restart$name 1586s [00:53:06.715] if (is.null(name)) 1586s [00:53:06.715] next 1586s [00:53:06.715] if (!grepl(pattern, name)) 1586s [00:53:06.715] next 1586s [00:53:06.715] invokeRestart(restart) 1586s [00:53:06.715] muffled <- TRUE 1586s [00:53:06.715] break 1586s [00:53:06.715] } 1586s [00:53:06.715] } 1586s [00:53:06.715] } 1586s [00:53:06.715] invisible(muffled) 1586s [00:53:06.715] } 1586s [00:53:06.715] muffleCondition(cond, pattern = "^muffle") 1586s [00:53:06.715] } 1586s [00:53:06.715] } 1586s [00:53:06.715] } 1586s [00:53:06.715] })) 1586s [00:53:06.715] }, error = function(ex) { 1586s [00:53:06.715] base::structure(base::list(value = NULL, visible = NULL, 1586s [00:53:06.715] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1586s [00:53:06.715] ...future.rng), started = ...future.startTime, 1586s [00:53:06.715] finished = Sys.time(), session_uuid = NA_character_, 1586s [00:53:06.715] version = "1.8"), class = "FutureResult") 1586s [00:53:06.715] }, finally = { 1586s [00:53:06.715] if (!identical(...future.workdir, getwd())) 1586s [00:53:06.715] setwd(...future.workdir) 1586s [00:53:06.715] { 1586s [00:53:06.715] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1586s [00:53:06.715] ...future.oldOptions$nwarnings <- NULL 1586s [00:53:06.715] } 1586s [00:53:06.715] base::options(...future.oldOptions) 1586s [00:53:06.715] if (.Platform$OS.type == "windows") { 1586s [00:53:06.715] old_names <- names(...future.oldEnvVars) 1586s [00:53:06.715] envs <- base::Sys.getenv() 1586s [00:53:06.715] names <- names(envs) 1586s [00:53:06.715] common <- intersect(names, old_names) 1586s [00:53:06.715] added <- setdiff(names, old_names) 1586s [00:53:06.715] removed <- setdiff(old_names, names) 1586s [00:53:06.715] changed <- common[...future.oldEnvVars[common] != 1586s [00:53:06.715] envs[common]] 1586s [00:53:06.715] NAMES <- toupper(changed) 1586s [00:53:06.715] args <- list() 1586s [00:53:06.715] for (kk in seq_along(NAMES)) { 1586s [00:53:06.715] name <- changed[[kk]] 1586s [00:53:06.715] NAME <- NAMES[[kk]] 1586s [00:53:06.715] if (name != NAME && is.element(NAME, old_names)) 1586s [00:53:06.715] next 1586s [00:53:06.715] args[[name]] <- ...future.oldEnvVars[[name]] 1586s [00:53:06.715] } 1586s [00:53:06.715] NAMES <- toupper(added) 1586s [00:53:06.715] for (kk in seq_along(NAMES)) { 1586s [00:53:06.715] name <- added[[kk]] 1586s [00:53:06.715] NAME <- NAMES[[kk]] 1586s [00:53:06.715] if (name != NAME && is.element(NAME, old_names)) 1586s [00:53:06.715] next 1586s [00:53:06.715] args[[name]] <- "" 1586s [00:53:06.715] } 1586s [00:53:06.715] NAMES <- toupper(removed) 1586s [00:53:06.715] for (kk in seq_along(NAMES)) { 1586s [00:53:06.715] name <- removed[[kk]] 1586s [00:53:06.715] NAME <- NAMES[[kk]] 1586s [00:53:06.715] if (name != NAME && is.element(NAME, old_names)) 1586s [00:53:06.715] next 1586s [00:53:06.715] args[[name]] <- ...future.oldEnvVars[[name]] 1586s [00:53:06.715] } 1586s [00:53:06.715] if (length(args) > 0) 1586s [00:53:06.715] base::do.call(base::Sys.setenv, args = args) 1586s [00:53:06.715] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1586s [00:53:06.715] } 1586s [00:53:06.715] else { 1586s [00:53:06.715] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1586s [00:53:06.715] } 1586s [00:53:06.715] { 1586s [00:53:06.715] if (base::length(...future.futureOptionsAdded) > 1586s [00:53:06.715] 0L) { 1586s [00:53:06.715] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1586s [00:53:06.715] base::names(opts) <- ...future.futureOptionsAdded 1586s [00:53:06.715] base::options(opts) 1586s [00:53:06.715] } 1586s [00:53:06.715] { 1586s [00:53:06.715] { 1586s [00:53:06.715] NULL 1586s [00:53:06.715] RNGkind("Mersenne-Twister") 1586s [00:53:06.715] base::rm(list = ".Random.seed", envir = base::globalenv(), 1586s [00:53:06.715] inherits = FALSE) 1586s [00:53:06.715] } 1586s [00:53:06.715] options(future.plan = NULL) 1586s [00:53:06.715] if (is.na(NA_character_)) 1586s [00:53:06.715] Sys.unsetenv("R_FUTURE_PLAN") 1586s [00:53:06.715] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1586s [00:53:06.715] future::plan(list(function (..., envir = parent.frame()) 1586s [00:53:06.715] { 1586s [00:53:06.715] future <- SequentialFuture(..., envir = envir) 1586s [00:53:06.715] if (!future$lazy) 1586s [00:53:06.715] future <- run(future) 1586s [00:53:06.715] invisible(future) 1586s [00:53:06.715] }), .cleanup = FALSE, .init = FALSE) 1586s [00:53:06.715] } 1586s [00:53:06.715] } 1586s [00:53:06.715] } 1586s [00:53:06.715] }) 1586s [00:53:06.715] if (TRUE) { 1586s [00:53:06.715] base::sink(type = "output", split = FALSE) 1586s [00:53:06.715] if (TRUE) { 1586s [00:53:06.715] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1586s [00:53:06.715] } 1586s [00:53:06.715] else { 1586s [00:53:06.715] ...future.result["stdout"] <- base::list(NULL) 1586s [00:53:06.715] } 1586s [00:53:06.715] base::close(...future.stdout) 1586s [00:53:06.715] ...future.stdout <- NULL 1586s [00:53:06.715] } 1586s [00:53:06.715] ...future.result$conditions <- ...future.conditions 1586s [00:53:06.715] ...future.result$finished <- base::Sys.time() 1586s [00:53:06.715] ...future.result 1586s [00:53:06.715] } 1586s [00:53:06.719] assign_globals() ... 1586s [00:53:06.719] List of 11 1586s [00:53:06.719] $ ...future.FUN :function (x, ...) 1586s [00:53:06.719] $ x_FUN :function (x, ...) 1586s [00:53:06.719] $ times : int 5 1586s [00:53:06.719] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1586s [00:53:06.719] $ stop_if_not :function (...) 1586s [00:53:06.719] $ dim : NULL 1586s [00:53:06.719] $ valid_types : chr [1:3] "logical" "integer" "double" 1586s [00:53:06.719] $ future.call.arguments : list() 1586s [00:53:06.719] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1586s [00:53:06.719] $ ...future.elements_ii :List of 3 1586s [00:53:06.719] ..$ a : int [1:10] 1 2 3 4 5 6 7 8 9 10 1586s [00:53:06.719] ..$ beta : num [1:7] 0.0498 0.1353 0.3679 1 2.7183 ... 1586s [00:53:06.719] ..$ logic: logi [1:4] TRUE FALSE FALSE TRUE 1586s [00:53:06.719] $ ...future.seeds_ii : NULL 1586s [00:53:06.719] $ ...future.globals.maxSize: NULL 1586s [00:53:06.719] - attr(*, "where")=List of 11 1586s [00:53:06.719] ..$ ...future.FUN : 1586s [00:53:06.719] ..$ x_FUN : 1586s [00:53:06.719] ..$ times : 1586s [00:53:06.719] ..$ stopf : 1586s [00:53:06.719] ..$ stop_if_not : 1586s [00:53:06.719] ..$ dim : 1586s [00:53:06.719] ..$ valid_types : 1586s [00:53:06.719] ..$ future.call.arguments : 1586s [00:53:06.719] ..$ ...future.elements_ii : 1586s [00:53:06.719] ..$ ...future.seeds_ii : 1586s [00:53:06.719] ..$ ...future.globals.maxSize: 1586s [00:53:06.719] - attr(*, "resolved")= logi FALSE 1586s [00:53:06.719] - attr(*, "total_size")= num 95528 1586s [00:53:06.719] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1586s [00:53:06.719] - attr(*, "already-done")= logi TRUE 1586s [00:53:06.730] - copied ‘...future.FUN’ to environment 1586s [00:53:06.730] - copied ‘x_FUN’ to environment 1586s [00:53:06.730] - copied ‘times’ to environment 1586s [00:53:06.730] - copied ‘stopf’ to environment 1586s [00:53:06.730] - copied ‘stop_if_not’ to environment 1586s [00:53:06.730] - copied ‘dim’ to environment 1586s [00:53:06.730] - copied ‘valid_types’ to environment 1586s [00:53:06.731] - copied ‘future.call.arguments’ to environment 1586s [00:53:06.731] - copied ‘...future.elements_ii’ to environment 1586s [00:53:06.731] - copied ‘...future.seeds_ii’ to environment 1586s [00:53:06.731] - copied ‘...future.globals.maxSize’ to environment 1586s [00:53:06.731] assign_globals() ... done 1586s [00:53:06.731] plan(): Setting new future strategy stack: 1586s [00:53:06.732] List of future strategies: 1586s [00:53:06.732] 1. sequential: 1586s [00:53:06.732] - args: function (..., envir = parent.frame()) 1586s [00:53:06.732] - tweaked: FALSE 1586s [00:53:06.732] - call: NULL 1586s [00:53:06.732] plan(): nbrOfWorkers() = 1 1586s [00:53:06.733] plan(): Setting new future strategy stack: 1586s [00:53:06.733] List of future strategies: 1586s [00:53:06.733] 1. sequential: 1586s [00:53:06.733] - args: function (..., envir = parent.frame()) 1586s [00:53:06.733] - tweaked: FALSE 1586s [00:53:06.733] - call: plan(strategy) 1586s [00:53:06.734] plan(): nbrOfWorkers() = 1 1586s [00:53:06.734] SequentialFuture started (and completed) 1586s [00:53:06.734] - Launch lazy future ... done 1586s [00:53:06.734] run() for ‘SequentialFuture’ ... done 1586s [00:53:06.734] Created future: 1586s [00:53:06.734] SequentialFuture: 1586s [00:53:06.734] Label: ‘future_vapply-1’ 1586s [00:53:06.734] Expression: 1586s [00:53:06.734] { 1586s [00:53:06.734] do.call(function(...) { 1586s [00:53:06.734] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1586s [00:53:06.734] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1586s [00:53:06.734] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1586s [00:53:06.734] on.exit(options(oopts), add = TRUE) 1586s [00:53:06.734] } 1586s [00:53:06.734] { 1586s [00:53:06.734] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1586s [00:53:06.734] ...future.X_jj <- ...future.elements_ii[[jj]] 1586s [00:53:06.734] ...future.FUN(...future.X_jj, ...) 1586s [00:53:06.734] }) 1586s [00:53:06.734] } 1586s [00:53:06.734] }, args = future.call.arguments) 1586s [00:53:06.734] } 1586s [00:53:06.734] Lazy evaluation: FALSE 1586s [00:53:06.734] Asynchronous evaluation: FALSE 1586s [00:53:06.734] Local evaluation: TRUE 1586s [00:53:06.734] Environment: R_GlobalEnv 1586s [00:53:06.734] Capture standard output: TRUE 1586s [00:53:06.734] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1586s [00:53:06.734] Globals: 11 objects totaling 93.55 KiB (function ‘...future.FUN’ of 21.22 KiB, function ‘x_FUN’ of 1.22 KiB, integer ‘times’ of 56 bytes, function ‘stopf’ of 26.43 KiB, function ‘stop_if_not’ of 44.12 KiB, ...) 1586s [00:53:06.734] Packages: 2 packages (‘stats’, ‘future.apply’) 1586s [00:53:06.734] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1586s [00:53:06.734] Resolved: TRUE 1586s [00:53:06.734] Value: 1.71 KiB of class ‘list’ 1586s [00:53:06.734] Early signaling: FALSE 1586s [00:53:06.734] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1586s [00:53:06.734] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1586s [00:53:06.736] Chunk #1 of 1 ... DONE 1586s [00:53:06.736] Launching 1 futures (chunks) ... DONE 1586s [00:53:06.736] Resolving 1 futures (chunks) ... 1586s [00:53:06.736] resolve() on list ... 1586s [00:53:06.736] recursive: 0 1586s [00:53:06.736] length: 1 1586s [00:53:06.736] 1586s [00:53:06.736] resolved() for ‘SequentialFuture’ ... 1586s [00:53:06.736] - state: ‘finished’ 1586s [00:53:06.737] - run: TRUE 1586s [00:53:06.737] - result: ‘FutureResult’ 1586s [00:53:06.737] resolved() for ‘SequentialFuture’ ... done 1586s [00:53:06.737] Future #1 1586s [00:53:06.737] signalConditionsASAP(SequentialFuture, pos=1) ... 1586s [00:53:06.737] - nx: 1 1586s [00:53:06.737] - relay: TRUE 1586s [00:53:06.737] - stdout: TRUE 1586s [00:53:06.737] - signal: TRUE 1586s [00:53:06.737] - resignal: FALSE 1586s [00:53:06.738] - force: TRUE 1586s [00:53:06.738] - relayed: [n=1] FALSE 1586s [00:53:06.738] - queued futures: [n=1] FALSE 1586s [00:53:06.738] - until=1 1586s [00:53:06.738] - relaying element #1 1586s [00:53:06.738] - relayed: [n=1] TRUE 1586s [00:53:06.738] - queued futures: [n=1] TRUE 1586s [00:53:06.738] signalConditionsASAP(SequentialFuture, pos=1) ... done 1586s [00:53:06.739] length: 0 (resolved future 1) 1586s [00:53:06.739] Relaying remaining futures 1586s [00:53:06.739] signalConditionsASAP(NULL, pos=0) ... 1586s [00:53:06.739] - nx: 1 1586s [00:53:06.739] - relay: TRUE 1586s [00:53:06.739] - stdout: TRUE 1586s [00:53:06.739] - signal: TRUE 1586s [00:53:06.739] - resignal: FALSE 1586s [00:53:06.739] - force: TRUE 1586s [00:53:06.739] - relayed: [n=1] TRUE 1586s [00:53:06.739] - queued futures: [n=1] TRUE 1586s - flush all 1586s [00:53:06.740] - relayed: [n=1] TRUE 1586s [00:53:06.740] - queued futures: [n=1] TRUE 1586s [00:53:06.740] signalConditionsASAP(NULL, pos=0) ... done 1586s [00:53:06.740] resolve() on list ... DONE 1586s [00:53:06.740] - Number of value chunks collected: 1 1586s [00:53:06.740] Resolving 1 futures (chunks) ... DONE 1586s [00:53:06.741] Reducing values from 1 chunks ... 1586s [00:53:06.741] - Number of values collected after concatenation: 3 1586s [00:53:06.741] - Number of values expected: 3 1586s [00:53:06.742] Reducing values from 1 chunks ... DONE 1586s [00:53:06.742] future_lapply() ... DONE 1586s num [1:5, 1:3] 1 3.25 5.5 7.75 10 ... 1586s - attr(*, "dimnames")=List of 2 1586s ..$ : chr [1:5] "0%" "25%" "50%" "75%" ... 1586s ..$ : chr [1:3] "a" "beta" "logic" 1586s [00:53:06.745] future_lapply() ... 1586s [00:53:06.750] Number of chunks: 1 1586s [00:53:06.751] getGlobalsAndPackagesXApply() ... 1586s [00:53:06.751] - future.globals: TRUE 1586s [00:53:06.751] getGlobalsAndPackages() ... 1586s [00:53:06.751] Searching for globals... 1586s [00:53:06.759] - globals found: [21] ‘FUN’, ‘{’, ‘<-’, ‘is.na’, ‘if’, ‘any’, ‘[’, ‘!’, ‘return’, ‘rep.int’, ‘sort’, ‘length’, ‘==’, ‘/’, ‘floor’, ‘(’, ‘+’, ‘c’, ‘-’, ‘*’, ‘ceiling’ 1586s [00:53:06.760] Searching for globals ... DONE 1586s [00:53:06.760] Resolving globals: FALSE 1586s [00:53:06.761] The total size of the 1 globals is 45.86 KiB (46960 bytes) 1586s [00:53:06.761] The total size of the 1 globals exported for future expression (‘FUN()’) is 45.86 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (45.86 KiB of class ‘function’) 1586s [00:53:06.761] - globals: [1] ‘FUN’ 1586s [00:53:06.762] - packages: [1] ‘stats’ 1586s [00:53:06.762] getGlobalsAndPackages() ... DONE 1586s [00:53:06.762] - globals found/used: [n=1] ‘FUN’ 1586s [00:53:06.762] - needed namespaces: [n=1] ‘stats’ 1586s [00:53:06.762] Finding globals ... DONE 1586s [00:53:06.762] - use_args: TRUE 1586s [00:53:06.763] - Getting '...' globals ... 1586s [00:53:06.763] resolve() on list ... 1586s [00:53:06.763] recursive: 0 1586s [00:53:06.763] length: 1 1586s [00:53:06.763] elements: ‘...’ 1586s [00:53:06.764] length: 0 (resolved future 1) 1586s [00:53:06.764] resolve() on list ... DONE 1586s [00:53:06.764] - '...' content: [n=0] 1586s [00:53:06.764] List of 1 1586s [00:53:06.764] $ ...: list() 1586s [00:53:06.764] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1586s [00:53:06.764] - attr(*, "where")=List of 1 1586s [00:53:06.764] ..$ ...: 1586s [00:53:06.764] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1586s [00:53:06.764] - attr(*, "resolved")= logi TRUE 1586s [00:53:06.764] - attr(*, "total_size")= num NA 1586s [00:53:06.767] - Getting '...' globals ... DONE 1586s [00:53:06.767] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1586s [00:53:06.768] List of 2 1586s [00:53:06.768] $ ...future.FUN:function (x, na.rm = TRUE) 1586s [00:53:06.768] $ ... : list() 1586s [00:53:06.768] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1586s [00:53:06.768] - attr(*, "where")=List of 2 1586s [00:53:06.768] ..$ ...future.FUN: 1586s [00:53:06.768] ..$ ... : 1586s [00:53:06.768] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1586s [00:53:06.768] - attr(*, "resolved")= logi FALSE 1586s [00:53:06.768] - attr(*, "total_size")= num 46960 1586s [00:53:06.771] Packages to be attached in all futures: [n=1] ‘stats’ 1586s [00:53:06.771] getGlobalsAndPackagesXApply() ... DONE 1586s [00:53:06.771] Number of futures (= number of chunks): 1 1586s [00:53:06.772] Launching 1 futures (chunks) ... 1586s [00:53:06.772] Chunk #1 of 1 ... 1586s [00:53:06.772] - Finding globals in 'X' for chunk #1 ... 1586s [00:53:06.772] getGlobalsAndPackages() ... 1586s [00:53:06.772] Searching for globals... 1586s [00:53:06.773] 1586s [00:53:06.773] Searching for globals ... DONE 1586s [00:53:06.773] - globals: [0] 1586s [00:53:06.773] getGlobalsAndPackages() ... DONE 1586s [00:53:06.773] + additional globals found: [n=0] 1586s [00:53:06.773] + additional namespaces needed: [n=0] 1586s [00:53:06.773] - Finding globals in 'X' for chunk #1 ... DONE 1586s [00:53:06.774] - seeds: 1586s [00:53:06.774] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1586s [00:53:06.774] getGlobalsAndPackages() ... 1586s [00:53:06.774] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1586s [00:53:06.774] Resolving globals: FALSE 1586s [00:53:06.774] Tweak future expression to call with '...' arguments ... 1586s [00:53:06.775] { 1586s [00:53:06.775] do.call(function(...) { 1586s [00:53:06.775] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1586s [00:53:06.775] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1586s [00:53:06.775] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1586s [00:53:06.775] on.exit(options(oopts), add = TRUE) 1586s [00:53:06.775] } 1586s [00:53:06.775] { 1586s [00:53:06.775] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1586s [00:53:06.775] ...future.X_jj <- ...future.elements_ii[[jj]] 1586s [00:53:06.775] ...future.FUN(...future.X_jj, ...) 1586s [00:53:06.775] }) 1586s [00:53:06.775] } 1586s [00:53:06.775] }, args = future.call.arguments) 1586s [00:53:06.775] } 1586s [00:53:06.775] Tweak future expression to call with '...' arguments ... DONE 1586s [00:53:06.776] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1586s [00:53:06.776] - packages: [1] ‘stats’ 1586s [00:53:06.776] getGlobalsAndPackages() ... DONE 1586s [00:53:06.776] run() for ‘Future’ ... 1586s [00:53:06.776] - state: ‘created’ 1586s [00:53:06.777] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1586s [00:53:06.777] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1586s [00:53:06.777] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1586s [00:53:06.777] - Field: ‘label’ 1586s [00:53:06.777] - Field: ‘local’ 1586s [00:53:06.778] - Field: ‘owner’ 1586s [00:53:06.778] - Field: ‘envir’ 1586s [00:53:06.778] - Field: ‘packages’ 1586s [00:53:06.778] - Field: ‘gc’ 1586s [00:53:06.778] - Field: ‘conditions’ 1586s [00:53:06.778] - Field: ‘expr’ 1586s [00:53:06.779] - Field: ‘uuid’ 1586s [00:53:06.779] - Field: ‘seed’ 1586s [00:53:06.779] - Field: ‘version’ 1586s [00:53:06.779] - Field: ‘result’ 1586s [00:53:06.779] - Field: ‘asynchronous’ 1586s [00:53:06.779] - Field: ‘calls’ 1586s [00:53:06.779] - Field: ‘globals’ 1586s [00:53:06.780] - Field: ‘stdout’ 1586s [00:53:06.780] - Field: ‘earlySignal’ 1586s [00:53:06.780] - Field: ‘lazy’ 1586s [00:53:06.780] - Field: ‘state’ 1586s [00:53:06.780] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1586s [00:53:06.781] - Launch lazy future ... 1586s [00:53:06.781] Packages needed by the future expression (n = 1): ‘stats’ 1586s [00:53:06.781] Packages needed by future strategies (n = 0): 1586s [00:53:06.782] { 1586s [00:53:06.782] { 1586s [00:53:06.782] { 1586s [00:53:06.782] ...future.startTime <- base::Sys.time() 1586s [00:53:06.782] { 1586s [00:53:06.782] { 1586s [00:53:06.782] { 1586s [00:53:06.782] { 1586s [00:53:06.782] base::local({ 1586s [00:53:06.782] has_future <- base::requireNamespace("future", 1586s [00:53:06.782] quietly = TRUE) 1586s [00:53:06.782] if (has_future) { 1586s [00:53:06.782] ns <- base::getNamespace("future") 1586s [00:53:06.782] version <- ns[[".package"]][["version"]] 1586s [00:53:06.782] if (is.null(version)) 1586s [00:53:06.782] version <- utils::packageVersion("future") 1586s [00:53:06.782] } 1586s [00:53:06.782] else { 1586s [00:53:06.782] version <- NULL 1586s [00:53:06.782] } 1586s [00:53:06.782] if (!has_future || version < "1.8.0") { 1586s [00:53:06.782] info <- base::c(r_version = base::gsub("R version ", 1586s [00:53:06.782] "", base::R.version$version.string), 1586s [00:53:06.782] platform = base::sprintf("%s (%s-bit)", 1586s [00:53:06.782] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1586s [00:53:06.782] os = base::paste(base::Sys.info()[base::c("sysname", 1586s [00:53:06.782] "release", "version")], collapse = " "), 1586s [00:53:06.782] hostname = base::Sys.info()[["nodename"]]) 1586s [00:53:06.782] info <- base::sprintf("%s: %s", base::names(info), 1586s [00:53:06.782] info) 1586s [00:53:06.782] info <- base::paste(info, collapse = "; ") 1586s [00:53:06.782] if (!has_future) { 1586s [00:53:06.782] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1586s [00:53:06.782] info) 1586s [00:53:06.782] } 1586s [00:53:06.782] else { 1586s [00:53:06.782] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1586s [00:53:06.782] info, version) 1586s [00:53:06.782] } 1586s [00:53:06.782] base::stop(msg) 1586s [00:53:06.782] } 1586s [00:53:06.782] }) 1586s [00:53:06.782] } 1586s [00:53:06.782] base::local({ 1586s [00:53:06.782] for (pkg in "stats") { 1586s [00:53:06.782] base::loadNamespace(pkg) 1586s [00:53:06.782] base::library(pkg, character.only = TRUE) 1586s [00:53:06.782] } 1586s [00:53:06.782] }) 1586s [00:53:06.782] } 1586s [00:53:06.782] options(future.plan = NULL) 1586s [00:53:06.782] Sys.unsetenv("R_FUTURE_PLAN") 1586s [00:53:06.782] future::plan("default", .cleanup = FALSE, .init = FALSE) 1586s [00:53:06.782] } 1586s [00:53:06.782] ...future.workdir <- getwd() 1586s [00:53:06.782] } 1586s [00:53:06.782] ...future.oldOptions <- base::as.list(base::.Options) 1586s [00:53:06.782] ...future.oldEnvVars <- base::Sys.getenv() 1586s [00:53:06.782] } 1586s [00:53:06.782] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1586s [00:53:06.782] future.globals.maxSize = NULL, future.globals.method = NULL, 1586s [00:53:06.782] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1586s [00:53:06.782] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1586s [00:53:06.782] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1586s [00:53:06.782] future.stdout.windows.reencode = NULL, width = 80L) 1586s [00:53:06.782] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1586s [00:53:06.782] base::names(...future.oldOptions)) 1586s [00:53:06.782] } 1586s [00:53:06.782] if (FALSE) { 1586s [00:53:06.782] } 1586s [00:53:06.782] else { 1586s [00:53:06.782] if (TRUE) { 1586s [00:53:06.782] ...future.stdout <- base::rawConnection(base::raw(0L), 1586s [00:53:06.782] open = "w") 1586s [00:53:06.782] } 1586s [00:53:06.782] else { 1586s [00:53:06.782] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1586s [00:53:06.782] windows = "NUL", "/dev/null"), open = "w") 1586s [00:53:06.782] } 1586s [00:53:06.782] base::sink(...future.stdout, type = "output", split = FALSE) 1586s [00:53:06.782] base::on.exit(if (!base::is.null(...future.stdout)) { 1586s [00:53:06.782] base::sink(type = "output", split = FALSE) 1586s [00:53:06.782] base::close(...future.stdout) 1586s [00:53:06.782] }, add = TRUE) 1586s [00:53:06.782] } 1586s [00:53:06.782] ...future.frame <- base::sys.nframe() 1586s [00:53:06.782] ...future.conditions <- base::list() 1586s [00:53:06.782] ...future.rng <- base::globalenv()$.Random.seed 1586s [00:53:06.782] if (FALSE) { 1586s [00:53:06.782] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1586s [00:53:06.782] "...future.value", "...future.globalenv.names", ".Random.seed") 1586s [00:53:06.782] } 1586s [00:53:06.782] ...future.result <- base::tryCatch({ 1586s [00:53:06.782] base::withCallingHandlers({ 1586s [00:53:06.782] ...future.value <- base::withVisible(base::local({ 1586s [00:53:06.782] do.call(function(...) { 1586s [00:53:06.782] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1586s [00:53:06.782] if (!identical(...future.globals.maxSize.org, 1586s [00:53:06.782] ...future.globals.maxSize)) { 1586s [00:53:06.782] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1586s [00:53:06.782] on.exit(options(oopts), add = TRUE) 1586s [00:53:06.782] } 1586s [00:53:06.782] { 1586s [00:53:06.782] lapply(seq_along(...future.elements_ii), 1586s [00:53:06.782] FUN = function(jj) { 1586s [00:53:06.782] ...future.X_jj <- ...future.elements_ii[[jj]] 1586s [00:53:06.782] ...future.FUN(...future.X_jj, ...) 1586s [00:53:06.782] }) 1586s [00:53:06.782] } 1586s [00:53:06.782] }, args = future.call.arguments) 1586s [00:53:06.782] })) 1586s [00:53:06.782] future::FutureResult(value = ...future.value$value, 1586s [00:53:06.782] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1586s [00:53:06.782] ...future.rng), globalenv = if (FALSE) 1586s [00:53:06.782] list(added = base::setdiff(base::names(base::.GlobalEnv), 1586s [00:53:06.782] ...future.globalenv.names)) 1586s [00:53:06.782] else NULL, started = ...future.startTime, version = "1.8") 1586s [00:53:06.782] }, condition = base::local({ 1586s [00:53:06.782] c <- base::c 1586s [00:53:06.782] inherits <- base::inherits 1586s [00:53:06.782] invokeRestart <- base::invokeRestart 1586s [00:53:06.782] length <- base::length 1586s [00:53:06.782] list <- base::list 1586s [00:53:06.782] seq.int <- base::seq.int 1586s [00:53:06.782] signalCondition <- base::signalCondition 1586s [00:53:06.782] sys.calls <- base::sys.calls 1586s [00:53:06.782] `[[` <- base::`[[` 1586s [00:53:06.782] `+` <- base::`+` 1586s [00:53:06.782] `<<-` <- base::`<<-` 1586s [00:53:06.782] sysCalls <- function(calls = sys.calls(), from = 1L) { 1586s [00:53:06.782] calls[seq.int(from = from + 12L, to = length(calls) - 1586s [00:53:06.782] 3L)] 1586s [00:53:06.782] } 1586s [00:53:06.782] function(cond) { 1586s [00:53:06.782] is_error <- inherits(cond, "error") 1586s [00:53:06.782] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1586s [00:53:06.782] NULL) 1586s [00:53:06.782] if (is_error) { 1586s [00:53:06.782] sessionInformation <- function() { 1586s [00:53:06.782] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1586s [00:53:06.782] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1586s [00:53:06.782] search = base::search(), system = base::Sys.info()) 1586s [00:53:06.782] } 1586s [00:53:06.782] ...future.conditions[[length(...future.conditions) + 1586s [00:53:06.782] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1586s [00:53:06.782] cond$call), session = sessionInformation(), 1586s [00:53:06.782] timestamp = base::Sys.time(), signaled = 0L) 1586s [00:53:06.782] signalCondition(cond) 1586s [00:53:06.782] } 1586s [00:53:06.782] else if (!ignore && TRUE && inherits(cond, c("condition", 1586s [00:53:06.782] "immediateCondition"))) { 1586s [00:53:06.782] signal <- TRUE && inherits(cond, "immediateCondition") 1586s [00:53:06.782] ...future.conditions[[length(...future.conditions) + 1586s [00:53:06.782] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1586s [00:53:06.782] if (TRUE && !signal) { 1586s [00:53:06.782] muffleCondition <- function (cond, pattern = "^muffle") 1586s [00:53:06.782] { 1586s [00:53:06.782] inherits <- base::inherits 1586s [00:53:06.782] invokeRestart <- base::invokeRestart 1586s [00:53:06.782] is.null <- base::is.null 1586s [00:53:06.782] muffled <- FALSE 1586s [00:53:06.782] if (inherits(cond, "message")) { 1586s [00:53:06.782] muffled <- grepl(pattern, "muffleMessage") 1586s [00:53:06.782] if (muffled) 1586s [00:53:06.782] invokeRestart("muffleMessage") 1586s [00:53:06.782] } 1586s [00:53:06.782] else if (inherits(cond, "warning")) { 1586s [00:53:06.782] muffled <- grepl(pattern, "muffleWarning") 1586s [00:53:06.782] if (muffled) 1586s [00:53:06.782] invokeRestart("muffleWarning") 1586s [00:53:06.782] } 1586s [00:53:06.782] else if (inherits(cond, "condition")) { 1586s [00:53:06.782] if (!is.null(pattern)) { 1586s [00:53:06.782] computeRestarts <- base::computeRestarts 1586s [00:53:06.782] grepl <- base::grepl 1586s [00:53:06.782] restarts <- computeRestarts(cond) 1586s [00:53:06.782] for (restart in restarts) { 1586s [00:53:06.782] name <- restart$name 1586s [00:53:06.782] if (is.null(name)) 1586s [00:53:06.782] next 1586s [00:53:06.782] if (!grepl(pattern, name)) 1586s [00:53:06.782] next 1586s [00:53:06.782] invokeRestart(restart) 1586s [00:53:06.782] muffled <- TRUE 1586s [00:53:06.782] break 1586s [00:53:06.782] } 1586s [00:53:06.782] } 1586s [00:53:06.782] } 1586s [00:53:06.782] invisible(muffled) 1586s [00:53:06.782] } 1586s [00:53:06.782] muffleCondition(cond, pattern = "^muffle") 1586s [00:53:06.782] } 1586s [00:53:06.782] } 1586s [00:53:06.782] else { 1586s [00:53:06.782] if (TRUE) { 1586s [00:53:06.782] muffleCondition <- function (cond, pattern = "^muffle") 1586s [00:53:06.782] { 1586s [00:53:06.782] inherits <- base::inherits 1586s [00:53:06.782] invokeRestart <- base::invokeRestart 1586s [00:53:06.782] is.null <- base::is.null 1586s [00:53:06.782] muffled <- FALSE 1586s [00:53:06.782] if (inherits(cond, "message")) { 1586s [00:53:06.782] muffled <- grepl(pattern, "muffleMessage") 1586s [00:53:06.782] if (muffled) 1586s [00:53:06.782] invokeRestart("muffleMessage") 1586s [00:53:06.782] } 1586s [00:53:06.782] else if (inherits(cond, "warning")) { 1586s [00:53:06.782] muffled <- grepl(pattern, "muffleWarning") 1586s [00:53:06.782] if (muffled) 1586s [00:53:06.782] invokeRestart("muffleWarning") 1586s [00:53:06.782] } 1586s [00:53:06.782] else if (inherits(cond, "condition")) { 1586s [00:53:06.782] if (!is.null(pattern)) { 1586s [00:53:06.782] computeRestarts <- base::computeRestarts 1586s [00:53:06.782] grepl <- base::grepl 1586s [00:53:06.782] restarts <- computeRestarts(cond) 1586s [00:53:06.782] for (restart in restarts) { 1586s [00:53:06.782] name <- restart$name 1586s [00:53:06.782] if (is.null(name)) 1586s [00:53:06.782] next 1586s [00:53:06.782] if (!grepl(pattern, name)) 1586s [00:53:06.782] next 1586s [00:53:06.782] invokeRestart(restart) 1586s [00:53:06.782] muffled <- TRUE 1586s [00:53:06.782] break 1586s [00:53:06.782] } 1586s [00:53:06.782] } 1586s [00:53:06.782] } 1586s [00:53:06.782] invisible(muffled) 1586s [00:53:06.782] } 1586s [00:53:06.782] muffleCondition(cond, pattern = "^muffle") 1586s [00:53:06.782] } 1586s [00:53:06.782] } 1586s [00:53:06.782] } 1586s [00:53:06.782] })) 1586s [00:53:06.782] }, error = function(ex) { 1586s [00:53:06.782] base::structure(base::list(value = NULL, visible = NULL, 1586s [00:53:06.782] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1586s [00:53:06.782] ...future.rng), started = ...future.startTime, 1586s [00:53:06.782] finished = Sys.time(), session_uuid = NA_character_, 1586s [00:53:06.782] version = "1.8"), class = "FutureResult") 1586s [00:53:06.782] }, finally = { 1586s [00:53:06.782] if (!identical(...future.workdir, getwd())) 1586s [00:53:06.782] setwd(...future.workdir) 1586s [00:53:06.782] { 1586s [00:53:06.782] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1586s [00:53:06.782] ...future.oldOptions$nwarnings <- NULL 1586s [00:53:06.782] } 1586s [00:53:06.782] base::options(...future.oldOptions) 1586s [00:53:06.782] if (.Platform$OS.type == "windows") { 1586s [00:53:06.782] old_names <- names(...future.oldEnvVars) 1586s [00:53:06.782] envs <- base::Sys.getenv() 1586s [00:53:06.782] names <- names(envs) 1586s [00:53:06.782] common <- intersect(names, old_names) 1586s [00:53:06.782] added <- setdiff(names, old_names) 1586s [00:53:06.782] removed <- setdiff(old_names, names) 1586s [00:53:06.782] changed <- common[...future.oldEnvVars[common] != 1586s [00:53:06.782] envs[common]] 1586s [00:53:06.782] NAMES <- toupper(changed) 1586s [00:53:06.782] args <- list() 1586s [00:53:06.782] for (kk in seq_along(NAMES)) { 1586s [00:53:06.782] name <- changed[[kk]] 1586s [00:53:06.782] NAME <- NAMES[[kk]] 1586s [00:53:06.782] if (name != NAME && is.element(NAME, old_names)) 1586s [00:53:06.782] next 1586s [00:53:06.782] args[[name]] <- ...future.oldEnvVars[[name]] 1586s [00:53:06.782] } 1586s [00:53:06.782] NAMES <- toupper(added) 1586s [00:53:06.782] for (kk in seq_along(NAMES)) { 1586s [00:53:06.782] name <- added[[kk]] 1586s [00:53:06.782] NAME <- NAMES[[kk]] 1586s [00:53:06.782] if (name != NAME && is.element(NAME, old_names)) 1586s [00:53:06.782] next 1586s [00:53:06.782] args[[name]] <- "" 1586s [00:53:06.782] } 1586s [00:53:06.782] NAMES <- toupper(removed) 1586s [00:53:06.782] for (kk in seq_along(NAMES)) { 1586s [00:53:06.782] name <- removed[[kk]] 1586s [00:53:06.782] NAME <- NAMES[[kk]] 1586s [00:53:06.782] if (name != NAME && is.element(NAME, old_names)) 1586s [00:53:06.782] next 1586s [00:53:06.782] args[[name]] <- ...future.oldEnvVars[[name]] 1586s [00:53:06.782] } 1586s [00:53:06.782] if (length(args) > 0) 1586s [00:53:06.782] base::do.call(base::Sys.setenv, args = args) 1586s [00:53:06.782] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1586s [00:53:06.782] } 1586s [00:53:06.782] else { 1586s [00:53:06.782] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1586s [00:53:06.782] } 1586s [00:53:06.782] { 1586s [00:53:06.782] if (base::length(...future.futureOptionsAdded) > 1586s [00:53:06.782] 0L) { 1586s [00:53:06.782] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1586s [00:53:06.782] base::names(opts) <- ...future.futureOptionsAdded 1586s [00:53:06.782] base::options(opts) 1586s [00:53:06.782] } 1586s [00:53:06.782] { 1586s [00:53:06.782] { 1586s [00:53:06.782] NULL 1586s [00:53:06.782] RNGkind("Mersenne-Twister") 1586s [00:53:06.782] base::rm(list = ".Random.seed", envir = base::globalenv(), 1586s [00:53:06.782] inherits = FALSE) 1586s [00:53:06.782] } 1586s [00:53:06.782] options(future.plan = NULL) 1586s [00:53:06.782] if (is.na(NA_character_)) 1586s [00:53:06.782] Sys.unsetenv("R_FUTURE_PLAN") 1586s [00:53:06.782] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1586s [00:53:06.782] future::plan(list(function (..., envir = parent.frame()) 1586s [00:53:06.782] { 1586s [00:53:06.782] future <- SequentialFuture(..., envir = envir) 1586s [00:53:06.782] if (!future$lazy) 1586s [00:53:06.782] future <- run(future) 1586s [00:53:06.782] invisible(future) 1586s [00:53:06.782] }), .cleanup = FALSE, .init = FALSE) 1586s [00:53:06.782] } 1586s [00:53:06.782] } 1586s [00:53:06.782] } 1586s [00:53:06.782] }) 1586s [00:53:06.782] if (TRUE) { 1586s [00:53:06.782] base::sink(type = "output", split = FALSE) 1586s [00:53:06.782] if (TRUE) { 1586s [00:53:06.782] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1586s [00:53:06.782] } 1586s [00:53:06.782] else { 1586s [00:53:06.782] ...future.result["stdout"] <- base::list(NULL) 1586s [00:53:06.782] } 1586s [00:53:06.782] base::close(...future.stdout) 1586s [00:53:06.782] ...future.stdout <- NULL 1586s [00:53:06.782] } 1586s [00:53:06.782] ...future.result$conditions <- ...future.conditions 1586s [00:53:06.782] ...future.result$finished <- base::Sys.time() 1586s [00:53:06.782] ...future.result 1586s [00:53:06.782] } 1586s [00:53:06.788] assign_globals() ... 1586s [00:53:06.788] List of 5 1586s [00:53:06.788] $ ...future.FUN :function (x, na.rm = TRUE) 1586s [00:53:06.788] $ future.call.arguments : list() 1586s [00:53:06.788] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1586s [00:53:06.788] $ ...future.elements_ii :List of 7 1586s [00:53:06.788] ..$ : int [1:3] 1 2 3 1586s [00:53:06.788] ..$ : int [1:4] 1 2 3 4 1586s [00:53:06.788] ..$ : int [1:5] 1 2 3 4 5 1586s [00:53:06.788] ..$ : int [1:6] 1 2 3 4 5 6 1586s [00:53:06.788] ..$ : int [1:7] 1 2 3 4 5 6 7 1586s [00:53:06.788] ..$ : int [1:8] 1 2 3 4 5 6 7 8 1586s [00:53:06.788] ..$ : int [1:9] 1 2 3 4 5 6 7 8 9 1586s [00:53:06.788] $ ...future.seeds_ii : NULL 1586s [00:53:06.788] $ ...future.globals.maxSize: NULL 1586s [00:53:06.788] - attr(*, "where")=List of 5 1586s [00:53:06.788] ..$ ...future.FUN : 1586s [00:53:06.788] ..$ future.call.arguments : 1586s [00:53:06.788] ..$ ...future.elements_ii : 1586s [00:53:06.788] ..$ ...future.seeds_ii : 1586s [00:53:06.788] ..$ ...future.globals.maxSize: 1586s [00:53:06.788] - attr(*, "resolved")= logi FALSE 1586s [00:53:06.788] - attr(*, "total_size")= num 46960 1586s [00:53:06.788] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1586s [00:53:06.788] - attr(*, "already-done")= logi TRUE 1586s [00:53:06.798] - copied ‘...future.FUN’ to environment 1586s [00:53:06.798] - copied ‘future.call.arguments’ to environment 1586s [00:53:06.799] - copied ‘...future.elements_ii’ to environment 1586s [00:53:06.799] - copied ‘...future.seeds_ii’ to environment 1586s [00:53:06.799] - copied ‘...future.globals.maxSize’ to environment 1586s [00:53:06.799] assign_globals() ... done 1586s [00:53:06.800] plan(): Setting new future strategy stack: 1586s [00:53:06.800] List of future strategies: 1586s [00:53:06.800] 1. sequential: 1586s [00:53:06.800] - args: function (..., envir = parent.frame()) 1586s [00:53:06.800] - tweaked: FALSE 1586s [00:53:06.800] - call: NULL 1586s [00:53:06.800] plan(): nbrOfWorkers() = 1 1586s [00:53:06.801] plan(): Setting new future strategy stack: 1586s [00:53:06.802] List of future strategies: 1586s [00:53:06.802] 1. sequential: 1586s [00:53:06.802] - args: function (..., envir = parent.frame()) 1586s [00:53:06.802] - tweaked: FALSE 1586s [00:53:06.802] - call: plan(strategy) 1586s [00:53:06.802] plan(): nbrOfWorkers() = 1 1586s [00:53:06.802] SequentialFuture started (and completed) 1586s [00:53:06.803] - Launch lazy future ... done 1586s [00:53:06.803] run() for ‘SequentialFuture’ ... done 1586s [00:53:06.803] Created future: 1586s [00:53:06.803] SequentialFuture: 1586s [00:53:06.803] Label: ‘future_sapply-1’ 1586s [00:53:06.803] Expression: 1586s [00:53:06.803] { 1586s [00:53:06.803] do.call(function(...) { 1586s [00:53:06.803] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1586s [00:53:06.803] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1586s [00:53:06.803] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1586s [00:53:06.803] on.exit(options(oopts), add = TRUE) 1586s [00:53:06.803] } 1586s [00:53:06.803] { 1586s [00:53:06.803] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1586s [00:53:06.803] ...future.X_jj <- ...future.elements_ii[[jj]] 1586s [00:53:06.803] ...future.FUN(...future.X_jj, ...) 1586s [00:53:06.803] }) 1586s [00:53:06.803] } 1586s [00:53:06.803] }, args = future.call.arguments) 1586s [00:53:06.803] } 1586s [00:53:06.803] Lazy evaluation: FALSE 1586s [00:53:06.803] Asynchronous evaluation: FALSE 1586s [00:53:06.803] Local evaluation: TRUE 1586s [00:53:06.803] Environment: R_GlobalEnv 1586s [00:53:06.803] Capture standard output: TRUE 1586s [00:53:06.803] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1586s [00:53:06.803] Globals: 5 objects totaling 46.39 KiB (function ‘...future.FUN’ of 45.86 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 544 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1586s [00:53:06.803] Packages: 1 packages (‘stats’) 1586s [00:53:06.803] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1586s [00:53:06.803] Resolved: TRUE 1586s [00:53:06.803] Value: 672 bytes of class ‘list’ 1586s [00:53:06.803] Early signaling: FALSE 1586s [00:53:06.803] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1586s [00:53:06.803] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1586s [00:53:06.804] Chunk #1 of 1 ... DONE 1586s [00:53:06.804] Launching 1 futures (chunks) ... DONE 1586s [00:53:06.804] Resolving 1 futures (chunks) ... 1586s [00:53:06.805] resolve() on list ... 1586s [00:53:06.805] recursive: 0 1586s [00:53:06.805] length: 1 1586s [00:53:06.805] 1586s [00:53:06.805] resolved() for ‘SequentialFuture’ ... 1586s [00:53:06.805] - state: ‘finished’ 1586s [00:53:06.805] - run: TRUE 1586s [00:53:06.805] - result: ‘FutureResult’ 1586s [00:53:06.805] resolved() for ‘SequentialFuture’ ... done 1586s [00:53:06.806] Future #1 1586s [00:53:06.806] signalConditionsASAP(SequentialFuture, pos=1) ... 1586s [00:53:06.806] - nx: 1 1586s [00:53:06.806] - relay: TRUE 1586s [00:53:06.806] - stdout: TRUE 1586s [00:53:06.806] - signal: TRUE 1586s [00:53:06.806] - resignal: FALSE 1586s [00:53:06.806] - force: TRUE 1586s [00:53:06.806] - relayed: [n=1] FALSE 1586s [00:53:06.806] - queued futures: [n=1] FALSE 1586s [00:53:06.807] - until=1 1586s [00:53:06.807] - relaying element #1 1586s [00:53:06.807] - relayed: [n=1] TRUE 1586s [00:53:06.807] - queued futures: [n=1] TRUE 1586s [00:53:06.807] signalConditionsASAP(SequentialFuture, pos=1) ... done 1586s [00:53:06.807] length: 0 (resolved future 1) 1586s [00:53:06.807] Relaying remaining futures 1586s [00:53:06.807] signalConditionsASAP(NULL, pos=0) ... 1586s [00:53:06.808] - nx: 1 1586s [00:53:06.808] - relay: TRUE 1586s [00:53:06.808] - stdout: TRUE 1586s [00:53:06.808] - signal: TRUE 1586s [00:53:06.808] - resignal: FALSE 1586s [00:53:06.808] - force: TRUE 1586s [00:53:06.808] - relayed: [n=1] TRUE 1586s [00:53:06.808] - queued futures: [n=1] TRUE 1586s - flush all 1586s [00:53:06.808] - relayed: [n=1] TRUE 1586s [00:53:06.808] - queued futures: [n=1] TRUE 1586s [00:53:06.809] signalConditionsASAP(NULL, pos=0) ... done 1586s [00:53:06.809] resolve() on list ... DONE 1586s [00:53:06.809] - Number of value chunks collected: 1 1586s [00:53:06.809] Resolving 1 futures (chunks) ... DONE 1586s [00:53:06.809] Reducing values from 1 chunks ... 1586s [00:53:06.809] - Number of values collected after concatenation: 7 1586s [00:53:06.809] - Number of values expected: 7 1586s [00:53:06.809] Reducing values from 1 chunks ... DONE 1586s [00:53:06.809] future_lapply() ... DONE 1586s [00:53:06.810] future_lapply() ... 1586s [00:53:06.812] Number of chunks: 1 1586s [00:53:06.812] getGlobalsAndPackagesXApply() ... 1586s [00:53:06.812] - future.globals: TRUE 1586s [00:53:06.813] getGlobalsAndPackages() ... 1586s [00:53:06.813] Searching for globals... 1586s [00:53:06.823] - globals found: [31] ‘FUN’, ‘{’, ‘<-’, ‘x_FUN’, ‘if’, ‘!=’, ‘length’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘all’, ‘==’, ‘dim’, ‘%in%’, ‘typeof’, ‘valid_types’, ‘is.na’, ‘any’, ‘[’, ‘!’, ‘return’, ‘rep.int’, ‘sort’, ‘/’, ‘floor’, ‘(’, ‘+’, ‘c’, ‘-’, ‘*’, ‘ceiling’ 1586s [00:53:06.824] Searching for globals ... DONE 1586s [00:53:06.824] Resolving globals: FALSE 1586s [00:53:06.825] The total size of the 7 globals is 137.93 KiB (141240 bytes) 1586s [00:53:06.826] The total size of the 7 globals exported for future expression (‘FUN()’) is 137.93 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘x_FUN’ (45.86 KiB of class ‘function’), ‘stop_if_not’ (44.12 KiB of class ‘function’) and ‘stopf’ (26.43 KiB of class ‘function’) 1586s [00:53:06.826] - globals: [7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1586s [00:53:06.826] - packages: [2] ‘stats’, ‘future.apply’ 1586s [00:53:06.826] getGlobalsAndPackages() ... DONE 1586s [00:53:06.827] - globals found/used: [n=7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1586s [00:53:06.827] - needed namespaces: [n=2] ‘stats’, ‘future.apply’ 1586s [00:53:06.827] Finding globals ... DONE 1586s [00:53:06.827] - use_args: TRUE 1586s [00:53:06.827] - Getting '...' globals ... 1586s [00:53:06.828] resolve() on list ... 1586s [00:53:06.828] recursive: 0 1586s [00:53:06.828] length: 1 1586s [00:53:06.828] elements: ‘...’ 1586s [00:53:06.828] length: 0 (resolved future 1) 1586s [00:53:06.828] resolve() on list ... DONE 1586s [00:53:06.828] - '...' content: [n=0] 1586s [00:53:06.829] List of 1 1586s [00:53:06.829] $ ...: list() 1586s [00:53:06.829] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1586s [00:53:06.829] - attr(*, "where")=List of 1 1586s [00:53:06.829] ..$ ...: 1586s [00:53:06.829] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1586s [00:53:06.829] - attr(*, "resolved")= logi TRUE 1586s [00:53:06.829] - attr(*, "total_size")= num NA 1586s [00:53:06.832] - Getting '...' globals ... DONE 1586s [00:53:06.832] Globals to be used in all futures (chunks): [n=8] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’ 1586s [00:53:06.832] List of 8 1586s [00:53:06.832] $ ...future.FUN:function (x, ...) 1586s [00:53:06.832] $ x_FUN :function (x, na.rm = TRUE) 1586s [00:53:06.832] $ times : int 5 1586s [00:53:06.832] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1586s [00:53:06.832] $ stop_if_not :function (...) 1586s [00:53:06.832] $ dim : NULL 1586s [00:53:06.832] $ valid_types : chr [1:3] "logical" "integer" "double" 1586s [00:53:06.832] $ ... : list() 1586s [00:53:06.832] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1586s [00:53:06.832] - attr(*, "where")=List of 8 1586s [00:53:06.832] ..$ ...future.FUN: 1586s [00:53:06.832] ..$ x_FUN : 1586s [00:53:06.832] ..$ times : 1586s [00:53:06.832] ..$ stopf : 1586s [00:53:06.832] ..$ stop_if_not : 1586s [00:53:06.832] ..$ dim : 1586s [00:53:06.832] ..$ valid_types : 1586s [00:53:06.832] ..$ ... : 1586s [00:53:06.832] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1586s [00:53:06.832] - attr(*, "resolved")= logi FALSE 1586s [00:53:06.832] - attr(*, "total_size")= num 141240 1586s [00:53:06.838] Packages to be attached in all futures: [n=2] ‘stats’, ‘future.apply’ 1586s [00:53:06.838] getGlobalsAndPackagesXApply() ... DONE 1586s [00:53:06.839] Number of futures (= number of chunks): 1 1586s [00:53:06.839] Launching 1 futures (chunks) ... 1586s [00:53:06.839] Chunk #1 of 1 ... 1586s [00:53:06.839] - Finding globals in 'X' for chunk #1 ... 1586s [00:53:06.839] getGlobalsAndPackages() ... 1586s [00:53:06.839] Searching for globals... 1586s [00:53:06.840] 1586s [00:53:06.840] Searching for globals ... DONE 1586s [00:53:06.840] - globals: [0] 1586s [00:53:06.840] getGlobalsAndPackages() ... DONE 1586s [00:53:06.840] + additional globals found: [n=0] 1586s [00:53:06.840] + additional namespaces needed: [n=0] 1586s [00:53:06.841] - Finding globals in 'X' for chunk #1 ... DONE 1586s [00:53:06.841] - seeds: 1586s [00:53:06.841] - All globals exported: [n=11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1586s [00:53:06.841] getGlobalsAndPackages() ... 1586s [00:53:06.841] - globals passed as-is: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1586s [00:53:06.841] Resolving globals: FALSE 1586s [00:53:06.842] Tweak future expression to call with '...' arguments ... 1586s [00:53:06.842] { 1586s [00:53:06.842] do.call(function(...) { 1586s [00:53:06.842] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1586s [00:53:06.842] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1586s [00:53:06.842] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1586s [00:53:06.842] on.exit(options(oopts), add = TRUE) 1586s [00:53:06.842] } 1586s [00:53:06.842] { 1586s [00:53:06.842] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1586s [00:53:06.842] ...future.X_jj <- ...future.elements_ii[[jj]] 1586s [00:53:06.842] ...future.FUN(...future.X_jj, ...) 1586s [00:53:06.842] }) 1586s [00:53:06.842] } 1586s [00:53:06.842] }, args = future.call.arguments) 1586s [00:53:06.842] } 1586s [00:53:06.842] Tweak future expression to call with '...' arguments ... DONE 1586s [00:53:06.843] - globals: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1586s [00:53:06.843] - packages: [2] ‘stats’, ‘future.apply’ 1586s [00:53:06.843] getGlobalsAndPackages() ... DONE 1586s [00:53:06.844] run() for ‘Future’ ... 1586s [00:53:06.844] - state: ‘created’ 1586s [00:53:06.844] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1586s [00:53:06.845] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1586s [00:53:06.846] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1586s [00:53:06.846] - Field: ‘label’ 1586s [00:53:06.846] - Field: ‘local’ 1586s [00:53:06.846] - Field: ‘owner’ 1586s [00:53:06.846] - Field: ‘envir’ 1586s [00:53:06.846] - Field: ‘packages’ 1586s [00:53:06.847] - Field: ‘gc’ 1586s [00:53:06.847] - Field: ‘conditions’ 1586s [00:53:06.847] - Field: ‘expr’ 1586s [00:53:06.847] - Field: ‘uuid’ 1586s [00:53:06.847] - Field: ‘seed’ 1586s [00:53:06.847] - Field: ‘version’ 1586s [00:53:06.847] - Field: ‘result’ 1586s [00:53:06.848] - Field: ‘asynchronous’ 1586s [00:53:06.848] - Field: ‘calls’ 1586s [00:53:06.848] - Field: ‘globals’ 1586s [00:53:06.848] - Field: ‘stdout’ 1586s [00:53:06.848] - Field: ‘earlySignal’ 1586s [00:53:06.848] - Field: ‘lazy’ 1586s [00:53:06.849] - Field: ‘state’ 1586s [00:53:06.849] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1586s [00:53:06.849] - Launch lazy future ... 1586s [00:53:06.849] Packages needed by the future expression (n = 2): ‘stats’, ‘future.apply’ 1586s [00:53:06.849] Packages needed by future strategies (n = 0): 1586s [00:53:06.850] { 1586s [00:53:06.850] { 1586s [00:53:06.850] { 1586s [00:53:06.850] ...future.startTime <- base::Sys.time() 1586s [00:53:06.850] { 1586s [00:53:06.850] { 1586s [00:53:06.850] { 1586s [00:53:06.850] { 1586s [00:53:06.850] base::local({ 1586s [00:53:06.850] has_future <- base::requireNamespace("future", 1586s [00:53:06.850] quietly = TRUE) 1586s [00:53:06.850] if (has_future) { 1586s [00:53:06.850] ns <- base::getNamespace("future") 1586s [00:53:06.850] version <- ns[[".package"]][["version"]] 1586s [00:53:06.850] if (is.null(version)) 1586s [00:53:06.850] version <- utils::packageVersion("future") 1586s [00:53:06.850] } 1586s [00:53:06.850] else { 1586s [00:53:06.850] version <- NULL 1586s [00:53:06.850] } 1586s [00:53:06.850] if (!has_future || version < "1.8.0") { 1586s [00:53:06.850] info <- base::c(r_version = base::gsub("R version ", 1586s [00:53:06.850] "", base::R.version$version.string), 1586s [00:53:06.850] platform = base::sprintf("%s (%s-bit)", 1586s [00:53:06.850] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1586s [00:53:06.850] os = base::paste(base::Sys.info()[base::c("sysname", 1586s [00:53:06.850] "release", "version")], collapse = " "), 1586s [00:53:06.850] hostname = base::Sys.info()[["nodename"]]) 1586s [00:53:06.850] info <- base::sprintf("%s: %s", base::names(info), 1586s [00:53:06.850] info) 1586s [00:53:06.850] info <- base::paste(info, collapse = "; ") 1586s [00:53:06.850] if (!has_future) { 1586s [00:53:06.850] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1586s [00:53:06.850] info) 1586s [00:53:06.850] } 1586s [00:53:06.850] else { 1586s [00:53:06.850] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1586s [00:53:06.850] info, version) 1586s [00:53:06.850] } 1586s [00:53:06.850] base::stop(msg) 1586s [00:53:06.850] } 1586s [00:53:06.850] }) 1586s [00:53:06.850] } 1586s [00:53:06.850] base::local({ 1586s [00:53:06.850] for (pkg in c("stats", "future.apply")) { 1586s [00:53:06.850] base::loadNamespace(pkg) 1586s [00:53:06.850] base::library(pkg, character.only = TRUE) 1586s [00:53:06.850] } 1586s [00:53:06.850] }) 1586s [00:53:06.850] } 1586s [00:53:06.850] options(future.plan = NULL) 1586s [00:53:06.850] Sys.unsetenv("R_FUTURE_PLAN") 1586s [00:53:06.850] future::plan("default", .cleanup = FALSE, .init = FALSE) 1586s [00:53:06.850] } 1586s [00:53:06.850] ...future.workdir <- getwd() 1586s [00:53:06.850] } 1586s [00:53:06.850] ...future.oldOptions <- base::as.list(base::.Options) 1586s [00:53:06.850] ...future.oldEnvVars <- base::Sys.getenv() 1586s [00:53:06.850] } 1586s [00:53:06.850] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1586s [00:53:06.850] future.globals.maxSize = NULL, future.globals.method = NULL, 1586s [00:53:06.850] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1586s [00:53:06.850] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1586s [00:53:06.850] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1586s [00:53:06.850] future.stdout.windows.reencode = NULL, width = 80L) 1586s [00:53:06.850] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1586s [00:53:06.850] base::names(...future.oldOptions)) 1586s [00:53:06.850] } 1586s [00:53:06.850] if (FALSE) { 1586s [00:53:06.850] } 1586s [00:53:06.850] else { 1586s [00:53:06.850] if (TRUE) { 1586s [00:53:06.850] ...future.stdout <- base::rawConnection(base::raw(0L), 1586s [00:53:06.850] open = "w") 1586s [00:53:06.850] } 1586s [00:53:06.850] else { 1586s [00:53:06.850] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1586s [00:53:06.850] windows = "NUL", "/dev/null"), open = "w") 1586s [00:53:06.850] } 1586s [00:53:06.850] base::sink(...future.stdout, type = "output", split = FALSE) 1586s [00:53:06.850] base::on.exit(if (!base::is.null(...future.stdout)) { 1586s [00:53:06.850] base::sink(type = "output", split = FALSE) 1586s [00:53:06.850] base::close(...future.stdout) 1586s [00:53:06.850] }, add = TRUE) 1586s [00:53:06.850] } 1586s [00:53:06.850] ...future.frame <- base::sys.nframe() 1586s [00:53:06.850] ...future.conditions <- base::list() 1586s [00:53:06.850] ...future.rng <- base::globalenv()$.Random.seed 1586s [00:53:06.850] if (FALSE) { 1586s [00:53:06.850] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1586s [00:53:06.850] "...future.value", "...future.globalenv.names", ".Random.seed") 1586s [00:53:06.850] } 1586s [00:53:06.850] ...future.result <- base::tryCatch({ 1586s [00:53:06.850] base::withCallingHandlers({ 1586s [00:53:06.850] ...future.value <- base::withVisible(base::local({ 1586s [00:53:06.850] do.call(function(...) { 1586s [00:53:06.850] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1586s [00:53:06.850] if (!identical(...future.globals.maxSize.org, 1586s [00:53:06.850] ...future.globals.maxSize)) { 1586s [00:53:06.850] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1586s [00:53:06.850] on.exit(options(oopts), add = TRUE) 1586s [00:53:06.850] } 1586s [00:53:06.850] { 1586s [00:53:06.850] lapply(seq_along(...future.elements_ii), 1586s [00:53:06.850] FUN = function(jj) { 1586s [00:53:06.850] ...future.X_jj <- ...future.elements_ii[[jj]] 1586s [00:53:06.850] ...future.FUN(...future.X_jj, ...) 1586s [00:53:06.850] }) 1586s [00:53:06.850] } 1586s [00:53:06.850] }, args = future.call.arguments) 1586s [00:53:06.850] })) 1586s [00:53:06.850] future::FutureResult(value = ...future.value$value, 1586s [00:53:06.850] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1586s [00:53:06.850] ...future.rng), globalenv = if (FALSE) 1586s [00:53:06.850] list(added = base::setdiff(base::names(base::.GlobalEnv), 1586s [00:53:06.850] ...future.globalenv.names)) 1586s [00:53:06.850] else NULL, started = ...future.startTime, version = "1.8") 1586s [00:53:06.850] }, condition = base::local({ 1586s [00:53:06.850] c <- base::c 1586s [00:53:06.850] inherits <- base::inherits 1586s [00:53:06.850] invokeRestart <- base::invokeRestart 1586s [00:53:06.850] length <- base::length 1586s [00:53:06.850] list <- base::list 1586s [00:53:06.850] seq.int <- base::seq.int 1586s [00:53:06.850] signalCondition <- base::signalCondition 1586s [00:53:06.850] sys.calls <- base::sys.calls 1586s [00:53:06.850] `[[` <- base::`[[` 1586s [00:53:06.850] `+` <- base::`+` 1586s [00:53:06.850] `<<-` <- base::`<<-` 1586s [00:53:06.850] sysCalls <- function(calls = sys.calls(), from = 1L) { 1586s [00:53:06.850] calls[seq.int(from = from + 12L, to = length(calls) - 1586s [00:53:06.850] 3L)] 1586s [00:53:06.850] } 1586s [00:53:06.850] function(cond) { 1586s [00:53:06.850] is_error <- inherits(cond, "error") 1586s [00:53:06.850] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1586s [00:53:06.850] NULL) 1586s [00:53:06.850] if (is_error) { 1586s [00:53:06.850] sessionInformation <- function() { 1586s [00:53:06.850] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1586s [00:53:06.850] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1586s [00:53:06.850] search = base::search(), system = base::Sys.info()) 1586s [00:53:06.850] } 1586s [00:53:06.850] ...future.conditions[[length(...future.conditions) + 1586s [00:53:06.850] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1586s [00:53:06.850] cond$call), session = sessionInformation(), 1586s [00:53:06.850] timestamp = base::Sys.time(), signaled = 0L) 1586s [00:53:06.850] signalCondition(cond) 1586s [00:53:06.850] } 1586s [00:53:06.850] else if (!ignore && TRUE && inherits(cond, c("condition", 1586s [00:53:06.850] "immediateCondition"))) { 1586s [00:53:06.850] signal <- TRUE && inherits(cond, "immediateCondition") 1586s [00:53:06.850] ...future.conditions[[length(...future.conditions) + 1586s [00:53:06.850] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1586s [00:53:06.850] if (TRUE && !signal) { 1586s [00:53:06.850] muffleCondition <- function (cond, pattern = "^muffle") 1586s [00:53:06.850] { 1586s [00:53:06.850] inherits <- base::inherits 1586s [00:53:06.850] invokeRestart <- base::invokeRestart 1586s [00:53:06.850] is.null <- base::is.null 1586s [00:53:06.850] muffled <- FALSE 1586s [00:53:06.850] if (inherits(cond, "message")) { 1586s [00:53:06.850] muffled <- grepl(pattern, "muffleMessage") 1586s [00:53:06.850] if (muffled) 1586s [00:53:06.850] invokeRestart("muffleMessage") 1586s [00:53:06.850] } 1586s [00:53:06.850] else if (inherits(cond, "warning")) { 1586s [00:53:06.850] muffled <- grepl(pattern, "muffleWarning") 1586s [00:53:06.850] if (muffled) 1586s [00:53:06.850] invokeRestart("muffleWarning") 1586s [00:53:06.850] } 1586s [00:53:06.850] else if (inherits(cond, "condition")) { 1586s [00:53:06.850] if (!is.null(pattern)) { 1586s [00:53:06.850] computeRestarts <- base::computeRestarts 1586s [00:53:06.850] grepl <- base::grepl 1586s [00:53:06.850] restarts <- computeRestarts(cond) 1586s [00:53:06.850] for (restart in restarts) { 1586s [00:53:06.850] name <- restart$name 1586s [00:53:06.850] if (is.null(name)) 1586s [00:53:06.850] next 1586s [00:53:06.850] if (!grepl(pattern, name)) 1586s [00:53:06.850] next 1586s [00:53:06.850] invokeRestart(restart) 1586s [00:53:06.850] muffled <- TRUE 1586s [00:53:06.850] break 1586s [00:53:06.850] } 1586s [00:53:06.850] } 1586s [00:53:06.850] } 1586s [00:53:06.850] invisible(muffled) 1586s [00:53:06.850] } 1586s [00:53:06.850] muffleCondition(cond, pattern = "^muffle") 1586s [00:53:06.850] } 1586s [00:53:06.850] } 1586s [00:53:06.850] else { 1586s [00:53:06.850] if (TRUE) { 1586s [00:53:06.850] muffleCondition <- function (cond, pattern = "^muffle") 1586s [00:53:06.850] { 1586s [00:53:06.850] inherits <- base::inherits 1586s [00:53:06.850] invokeRestart <- base::invokeRestart 1586s [00:53:06.850] is.null <- base::is.null 1586s [00:53:06.850] muffled <- FALSE 1586s [00:53:06.850] if (inherits(cond, "message")) { 1586s [00:53:06.850] muffled <- grepl(pattern, "muffleMessage") 1586s [00:53:06.850] if (muffled) 1586s [00:53:06.850] invokeRestart("muffleMessage") 1586s [00:53:06.850] } 1586s [00:53:06.850] else if (inherits(cond, "warning")) { 1586s [00:53:06.850] muffled <- grepl(pattern, "muffleWarning") 1586s [00:53:06.850] if (muffled) 1586s [00:53:06.850] invokeRestart("muffleWarning") 1586s [00:53:06.850] } 1586s [00:53:06.850] else if (inherits(cond, "condition")) { 1586s [00:53:06.850] if (!is.null(pattern)) { 1586s [00:53:06.850] computeRestarts <- base::computeRestarts 1586s [00:53:06.850] grepl <- base::grepl 1586s [00:53:06.850] restarts <- computeRestarts(cond) 1586s [00:53:06.850] for (restart in restarts) { 1586s [00:53:06.850] name <- restart$name 1586s [00:53:06.850] if (is.null(name)) 1586s [00:53:06.850] next 1586s [00:53:06.850] if (!grepl(pattern, name)) 1586s [00:53:06.850] next 1586s [00:53:06.850] invokeRestart(restart) 1586s [00:53:06.850] muffled <- TRUE 1586s [00:53:06.850] break 1586s [00:53:06.850] } 1586s [00:53:06.850] } 1586s [00:53:06.850] } 1586s [00:53:06.850] invisible(muffled) 1586s [00:53:06.850] } 1586s [00:53:06.850] muffleCondition(cond, pattern = "^muffle") 1586s [00:53:06.850] } 1586s [00:53:06.850] } 1586s [00:53:06.850] } 1586s [00:53:06.850] })) 1586s [00:53:06.850] }, error = function(ex) { 1586s [00:53:06.850] base::structure(base::list(value = NULL, visible = NULL, 1586s [00:53:06.850] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1586s [00:53:06.850] ...future.rng), started = ...future.startTime, 1586s [00:53:06.850] finished = Sys.time(), session_uuid = NA_character_, 1586s [00:53:06.850] version = "1.8"), class = "FutureResult") 1586s [00:53:06.850] }, finally = { 1586s [00:53:06.850] if (!identical(...future.workdir, getwd())) 1586s [00:53:06.850] setwd(...future.workdir) 1586s [00:53:06.850] { 1586s [00:53:06.850] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1586s [00:53:06.850] ...future.oldOptions$nwarnings <- NULL 1586s [00:53:06.850] } 1586s [00:53:06.850] base::options(...future.oldOptions) 1586s [00:53:06.850] if (.Platform$OS.type == "windows") { 1586s [00:53:06.850] old_names <- names(...future.oldEnvVars) 1586s [00:53:06.850] envs <- base::Sys.getenv() 1586s [00:53:06.850] names <- names(envs) 1586s [00:53:06.850] common <- intersect(names, old_names) 1586s [00:53:06.850] added <- setdiff(names, old_names) 1586s [00:53:06.850] removed <- setdiff(old_names, names) 1586s [00:53:06.850] changed <- common[...future.oldEnvVars[common] != 1586s [00:53:06.850] envs[common]] 1586s [00:53:06.850] NAMES <- toupper(changed) 1586s [00:53:06.850] args <- list() 1586s [00:53:06.850] for (kk in seq_along(NAMES)) { 1586s [00:53:06.850] name <- changed[[kk]] 1586s [00:53:06.850] NAME <- NAMES[[kk]] 1586s [00:53:06.850] if (name != NAME && is.element(NAME, old_names)) 1586s [00:53:06.850] next 1586s [00:53:06.850] args[[name]] <- ...future.oldEnvVars[[name]] 1586s [00:53:06.850] } 1586s [00:53:06.850] NAMES <- toupper(added) 1586s [00:53:06.850] for (kk in seq_along(NAMES)) { 1586s [00:53:06.850] name <- added[[kk]] 1586s [00:53:06.850] NAME <- NAMES[[kk]] 1586s [00:53:06.850] if (name != NAME && is.element(NAME, old_names)) 1586s [00:53:06.850] next 1586s [00:53:06.850] args[[name]] <- "" 1586s [00:53:06.850] } 1586s [00:53:06.850] NAMES <- toupper(removed) 1586s [00:53:06.850] for (kk in seq_along(NAMES)) { 1586s [00:53:06.850] name <- removed[[kk]] 1586s [00:53:06.850] NAME <- NAMES[[kk]] 1586s [00:53:06.850] if (name != NAME && is.element(NAME, old_names)) 1586s [00:53:06.850] next 1586s [00:53:06.850] args[[name]] <- ...future.oldEnvVars[[name]] 1586s [00:53:06.850] } 1586s [00:53:06.850] if (length(args) > 0) 1586s [00:53:06.850] base::do.call(base::Sys.setenv, args = args) 1586s [00:53:06.850] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1586s [00:53:06.850] } 1586s [00:53:06.850] else { 1586s [00:53:06.850] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1586s [00:53:06.850] } 1586s [00:53:06.850] { 1586s [00:53:06.850] if (base::length(...future.futureOptionsAdded) > 1586s [00:53:06.850] 0L) { 1586s [00:53:06.850] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1586s [00:53:06.850] base::names(opts) <- ...future.futureOptionsAdded 1586s [00:53:06.850] base::options(opts) 1586s [00:53:06.850] } 1586s [00:53:06.850] { 1586s [00:53:06.850] { 1586s [00:53:06.850] NULL 1586s [00:53:06.850] RNGkind("Mersenne-Twister") 1586s [00:53:06.850] base::rm(list = ".Random.seed", envir = base::globalenv(), 1586s [00:53:06.850] inherits = FALSE) 1586s [00:53:06.850] } 1586s [00:53:06.850] options(future.plan = NULL) 1586s [00:53:06.850] if (is.na(NA_character_)) 1586s [00:53:06.850] Sys.unsetenv("R_FUTURE_PLAN") 1586s [00:53:06.850] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1586s [00:53:06.850] future::plan(list(function (..., envir = parent.frame()) 1586s [00:53:06.850] { 1586s [00:53:06.850] future <- SequentialFuture(..., envir = envir) 1586s [00:53:06.850] if (!future$lazy) 1586s [00:53:06.850] future <- run(future) 1586s [00:53:06.850] invisible(future) 1586s [00:53:06.850] }), .cleanup = FALSE, .init = FALSE) 1586s [00:53:06.850] } 1586s [00:53:06.850] } 1586s [00:53:06.850] } 1586s [00:53:06.850] }) 1586s [00:53:06.850] if (TRUE) { 1586s [00:53:06.850] base::sink(type = "output", split = FALSE) 1586s [00:53:06.850] if (TRUE) { 1586s [00:53:06.850] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1586s [00:53:06.850] } 1586s [00:53:06.850] else { 1586s [00:53:06.850] ...future.result["stdout"] <- base::list(NULL) 1586s [00:53:06.850] } 1586s [00:53:06.850] base::close(...future.stdout) 1586s [00:53:06.850] ...future.stdout <- NULL 1586s [00:53:06.850] } 1586s [00:53:06.850] ...future.result$conditions <- ...future.conditions 1586s [00:53:06.850] ...future.result$finished <- base::Sys.time() 1586s [00:53:06.850] ...future.result 1586s [00:53:06.850] } 1586s [00:53:06.857] assign_globals() ... 1586s [00:53:06.857] List of 11 1586s [00:53:06.857] $ ...future.FUN :function (x, ...) 1586s [00:53:06.857] $ x_FUN :function (x, na.rm = TRUE) 1586s [00:53:06.857] $ times : int 5 1586s [00:53:06.857] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1586s [00:53:06.857] $ stop_if_not :function (...) 1586s [00:53:06.857] $ dim : NULL 1586s [00:53:06.857] $ valid_types : chr [1:3] "logical" "integer" "double" 1586s [00:53:06.857] $ future.call.arguments : list() 1586s [00:53:06.857] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1586s [00:53:06.857] $ ...future.elements_ii :List of 7 1586s [00:53:06.857] ..$ : int [1:3] 1 2 3 1586s [00:53:06.857] ..$ : int [1:4] 1 2 3 4 1586s [00:53:06.857] ..$ : int [1:5] 1 2 3 4 5 1586s [00:53:06.857] ..$ : int [1:6] 1 2 3 4 5 6 1586s [00:53:06.857] ..$ : int [1:7] 1 2 3 4 5 6 7 1586s [00:53:06.857] ..$ : int [1:8] 1 2 3 4 5 6 7 8 1586s [00:53:06.857] ..$ : int [1:9] 1 2 3 4 5 6 7 8 9 1586s [00:53:06.857] $ ...future.seeds_ii : NULL 1586s [00:53:06.857] $ ...future.globals.maxSize: NULL 1586s [00:53:06.857] - attr(*, "where")=List of 11 1586s [00:53:06.857] ..$ ...future.FUN : 1586s [00:53:06.857] ..$ x_FUN : 1586s [00:53:06.857] ..$ times : 1586s [00:53:06.857] ..$ stopf : 1586s [00:53:06.857] ..$ stop_if_not : 1586s [00:53:06.857] ..$ dim : 1586s [00:53:06.857] ..$ valid_types : 1586s [00:53:06.857] ..$ future.call.arguments : 1586s [00:53:06.857] ..$ ...future.elements_ii : 1586s [00:53:06.857] ..$ ...future.seeds_ii : 1586s [00:53:06.857] ..$ ...future.globals.maxSize: 1586s [00:53:06.857] - attr(*, "resolved")= logi FALSE 1586s [00:53:06.857] - attr(*, "total_size")= num 141240 1586s [00:53:06.857] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1586s [00:53:06.857] - attr(*, "already-done")= logi TRUE 1586s [00:53:06.868] - copied ‘...future.FUN’ to environment 1586s [00:53:06.868] - copied ‘x_FUN’ to environment 1586s [00:53:06.868] - copied ‘times’ to environment 1586s [00:53:06.869] - copied ‘stopf’ to environment 1586s [00:53:06.869] - copied ‘stop_if_not’ to environment 1586s [00:53:06.869] - copied ‘dim’ to environment 1586s [00:53:06.869] - copied ‘valid_types’ to environment 1586s [00:53:06.869] - copied ‘future.call.arguments’ to environment 1586s [00:53:06.869] - copied ‘...future.elements_ii’ to environment 1586s [00:53:06.869] - copied ‘...future.seeds_ii’ to environment 1586s [00:53:06.869] - copied ‘...future.globals.maxSize’ to environment 1586s [00:53:06.869] assign_globals() ... done 1586s [00:53:06.870] plan(): Setting new future strategy stack: 1586s [00:53:06.870] List of future strategies: 1586s [00:53:06.870] 1. sequential: 1586s [00:53:06.870] - args: function (..., envir = parent.frame()) 1586s [00:53:06.870] - tweaked: FALSE 1586s [00:53:06.870] - call: NULL 1586s [00:53:06.871] plan(): nbrOfWorkers() = 1 1586s [00:53:06.871] plan(): Setting new future strategy stack: 1586s [00:53:06.872] List of future strategies: 1586s [00:53:06.872] 1. sequential: 1586s [00:53:06.872] - args: function (..., envir = parent.frame()) 1586s [00:53:06.872] - tweaked: FALSE 1586s [00:53:06.872] - call: plan(strategy) 1586s [00:53:06.872] plan(): nbrOfWorkers() = 1 1586s [00:53:06.872] SequentialFuture started (and completed) 1586s [00:53:06.872] - Launch lazy future ... done 1586s [00:53:06.873] run() for ‘SequentialFuture’ ... done 1586s [00:53:06.873] Created future: 1586s [00:53:06.873] SequentialFuture: 1586s [00:53:06.873] Label: ‘future_vapply-1’ 1586s [00:53:06.873] Expression: 1586s [00:53:06.873] { 1586s [00:53:06.873] do.call(function(...) { 1586s [00:53:06.873] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1586s [00:53:06.873] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1586s [00:53:06.873] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1586s [00:53:06.873] on.exit(options(oopts), add = TRUE) 1586s [00:53:06.873] } 1586s [00:53:06.873] { 1586s [00:53:06.873] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1586s [00:53:06.873] ...future.X_jj <- ...future.elements_ii[[jj]] 1586s [00:53:06.873] ...future.FUN(...future.X_jj, ...) 1586s [00:53:06.873] }) 1586s [00:53:06.873] } 1586s [00:53:06.873] }, args = future.call.arguments) 1586s [00:53:06.873] } 1586s [00:53:06.873] Lazy evaluation: FALSE 1586s [00:53:06.873] Asynchronous evaluation: FALSE 1586s [00:53:06.873] Local evaluation: TRUE 1586s [00:53:06.873] Environment: R_GlobalEnv 1586s [00:53:06.873] Capture standard output: TRUE 1586s [00:53:06.873] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1586s [00:53:06.873] Globals: 11 objects totaling 138.46 KiB (function ‘...future.FUN’ of 21.22 KiB, function ‘x_FUN’ of 45.86 KiB, integer ‘times’ of 56 bytes, function ‘stopf’ of 26.43 KiB, function ‘stop_if_not’ of 44.12 KiB, ...) 1586s [00:53:06.873] Packages: 2 packages (‘stats’, ‘future.apply’) 1586s [00:53:06.873] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1586s [00:53:06.873] Resolved: TRUE 1586s [00:53:06.873] Value: 672 bytes of class ‘list’ 1586s [00:53:06.873] Early signaling: FALSE 1586s [00:53:06.873] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1586s [00:53:06.873] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1586s [00:53:06.875] Chunk #1 of 1 ... DONE 1586s [00:53:06.875] Launching 1 futures (chunks) ... DONE 1586s [00:53:06.875] Resolving 1 futures (chunks) ... 1586s [00:53:06.875] resolve() on list ... 1586s [00:53:06.875] recursive: 0 1586s [00:53:06.875] length: 1 1586s [00:53:06.875] 1586s [00:53:06.876] resolved() for ‘SequentialFuture’ ... 1586s [00:53:06.876] - state: ‘finished’ 1586s [00:53:06.876] - run: TRUE 1586s [00:53:06.876] - result: ‘FutureResult’ 1586s [00:53:06.876] resolved() for ‘SequentialFuture’ ... done 1586s [00:53:06.876] Future #1 1586s [00:53:06.877] signalConditionsASAP(SequentialFuture, pos=1) ... 1586s [00:53:06.877] - nx: 1 1586s [00:53:06.877] - relay: TRUE 1586s [00:53:06.877] - stdout: TRUE 1586s [00:53:06.877] - signal: TRUE 1586s [00:53:06.877] - resignal: FALSE 1586s [00:53:06.877] - force: TRUE 1586s [00:53:06.877] - relayed: [n=1] FALSE 1586s [00:53:06.877] - queued futures: [n=1] FALSE 1586s [00:53:06.878] - until=1 1586s [00:53:06.878] - relaying element #1 1586s [00:53:06.878] - relayed: [n=1] TRUE 1586s [00:53:06.879] - queued futures: [n=1] TRUE 1586s [00:53:06.879] signalConditionsASAP(SequentialFuture, pos=1) ... done 1586s [00:53:06.879] length: 0 (resolved future 1) 1586s [00:53:06.880] Relaying remaining futures 1586s [00:53:06.880] signalConditionsASAP(NULL, pos=0) ... 1586s [00:53:06.880] - nx: 1 1586s [00:53:06.880] - relay: TRUE 1586s [00:53:06.880] - stdout: TRUE 1586s [00:53:06.880] - signal: TRUE 1586s [00:53:06.880] - resignal: FALSE 1586s [00:53:06.881] - force: TRUE 1586s [00:53:06.881] - relayed: [n=1] TRUE 1586s [00:53:06.881] - queued futures: [n=1] TRUE 1586s - flush all 1586s [00:53:06.881] - relayed: [n=1] TRUE 1586s [00:53:06.881] - queued futures: [n=1] TRUE 1586s [00:53:06.881] signalConditionsASAP(NULL, pos=0) ... done 1586s [00:53:06.882] resolve() on list ... DONE 1586s [00:53:06.882] - Number of value chunks collected: 1 1586s [00:53:06.882] Resolving 1 futures (chunks) ... DONE 1586s [00:53:06.882] Reducing values from 1 chunks ... 1586s [00:53:06.882] - Number of values collected after concatenation: 7 1586s [00:53:06.882] - Number of values expected: 7 1586s [00:53:06.883] Reducing values from 1 chunks ... DONE 1586s [00:53:06.883] future_lapply() ... DONE 1586s num [1:5, 1:7] 1 1.5 2 2.5 3 1 1.5 2.5 3.5 4 ... 1586s - attr(*, "dimnames")=List of 2 1586s ..$ : chr [1:5] "Min." "1st Qu." "Median" "3rd Qu." ... 1586s ..$ : NULL 1586s [00:53:06.885] future_lapply() ... 1586s [00:53:06.886] Number of chunks: 1 1586s [00:53:06.886] getGlobalsAndPackagesXApply() ... 1586s [00:53:06.886] - future.globals: TRUE 1586s [00:53:06.886] getGlobalsAndPackages() ... 1586s [00:53:06.886] Searching for globals... 1586s [00:53:06.888] - globals found: [3] ‘FUN’, ‘outer’, ‘rep’ 1586s [00:53:06.888] Searching for globals ... DONE 1586s [00:53:06.888] Resolving globals: FALSE 1586s [00:53:06.888] The total size of the 1 globals is 4.07 KiB (4168 bytes) 1586s [00:53:06.889] The total size of the 1 globals exported for future expression (‘FUN(y = c(2, 4, 6, 8, 10))’) is 4.07 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.07 KiB of class ‘function’) 1586s [00:53:06.889] - globals: [1] ‘FUN’ 1586s [00:53:06.889] 1586s [00:53:06.889] getGlobalsAndPackages() ... DONE 1586s [00:53:06.889] - globals found/used: [n=1] ‘FUN’ 1586s [00:53:06.890] - needed namespaces: [n=0] 1586s [00:53:06.890] Finding globals ... DONE 1586s [00:53:06.890] - use_args: TRUE 1586s [00:53:06.890] - Getting '...' globals ... 1586s [00:53:06.890] resolve() on list ... 1586s [00:53:06.891] recursive: 0 1586s [00:53:06.891] length: 1 1586s [00:53:06.891] elements: ‘...’ 1586s [00:53:06.891] length: 0 (resolved future 1) 1586s [00:53:06.891] resolve() on list ... DONE 1586s [00:53:06.891] - '...' content: [n=1] ‘y’ 1586s [00:53:06.891] List of 1 1586s [00:53:06.891] $ ...:List of 1 1586s [00:53:06.891] ..$ y: num [1:5] 2 4 6 8 10 1586s [00:53:06.891] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1586s [00:53:06.891] - attr(*, "where")=List of 1 1586s [00:53:06.891] ..$ ...: 1586s [00:53:06.891] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1586s [00:53:06.891] - attr(*, "resolved")= logi TRUE 1586s [00:53:06.891] - attr(*, "total_size")= num NA 1586s [00:53:06.895] - Getting '...' globals ... DONE 1586s [00:53:06.895] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1586s [00:53:06.895] List of 2 1586s [00:53:06.895] $ ...future.FUN:function (x, y) 1586s [00:53:06.895] $ ... :List of 1 1586s [00:53:06.895] ..$ y: num [1:5] 2 4 6 8 10 1586s [00:53:06.895] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1586s [00:53:06.895] - attr(*, "where")=List of 2 1586s [00:53:06.895] ..$ ...future.FUN: 1586s [00:53:06.895] ..$ ... : 1586s [00:53:06.895] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1586s [00:53:06.895] - attr(*, "resolved")= logi FALSE 1586s [00:53:06.895] - attr(*, "total_size")= num 4264 1586s [00:53:06.899] Packages to be attached in all futures: [n=0] 1586s [00:53:06.899] getGlobalsAndPackagesXApply() ... DONE 1586s [00:53:06.899] Number of futures (= number of chunks): 1 1586s [00:53:06.899] Launching 1 futures (chunks) ... 1586s [00:53:06.899] Chunk #1 of 1 ... 1586s [00:53:06.900] - Finding globals in 'X' for chunk #1 ... 1586s [00:53:06.900] getGlobalsAndPackages() ... 1586s [00:53:06.900] Searching for globals... 1586s [00:53:06.900] 1586s [00:53:06.900] Searching for globals ... DONE 1586s [00:53:06.900] - globals: [0] 1586s [00:53:06.901] getGlobalsAndPackages() ... DONE 1586s [00:53:06.901] + additional globals found: [n=0] 1586s [00:53:06.901] + additional namespaces needed: [n=0] 1586s [00:53:06.901] - Finding globals in 'X' for chunk #1 ... DONE 1586s [00:53:06.901] - seeds: 1586s [00:53:06.901] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1586s [00:53:06.901] getGlobalsAndPackages() ... 1586s [00:53:06.901] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1586s [00:53:06.901] Resolving globals: FALSE 1586s [00:53:06.902] Tweak future expression to call with '...' arguments ... 1586s [00:53:06.902] { 1586s [00:53:06.902] do.call(function(...) { 1586s [00:53:06.902] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1586s [00:53:06.902] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1586s [00:53:06.902] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1586s [00:53:06.902] on.exit(options(oopts), add = TRUE) 1586s [00:53:06.902] } 1586s [00:53:06.902] { 1586s [00:53:06.902] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1586s [00:53:06.902] ...future.X_jj <- ...future.elements_ii[[jj]] 1586s [00:53:06.902] ...future.FUN(...future.X_jj, ...) 1586s [00:53:06.902] }) 1586s [00:53:06.902] } 1586s [00:53:06.902] }, args = future.call.arguments) 1586s [00:53:06.902] } 1586s [00:53:06.902] Tweak future expression to call with '...' arguments ... DONE 1586s [00:53:06.902] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1586s [00:53:06.903] 1586s [00:53:06.903] getGlobalsAndPackages() ... DONE 1586s [00:53:06.903] run() for ‘Future’ ... 1586s [00:53:06.903] - state: ‘created’ 1586s [00:53:06.903] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1586s [00:53:06.904] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1586s [00:53:06.904] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1586s [00:53:06.904] - Field: ‘label’ 1586s [00:53:06.904] - Field: ‘local’ 1586s [00:53:06.904] - Field: ‘owner’ 1586s [00:53:06.904] - Field: ‘envir’ 1586s [00:53:06.904] - Field: ‘packages’ 1586s [00:53:06.904] - Field: ‘gc’ 1586s [00:53:06.904] - Field: ‘conditions’ 1586s [00:53:06.905] - Field: ‘expr’ 1586s [00:53:06.905] - Field: ‘uuid’ 1586s [00:53:06.905] - Field: ‘seed’ 1586s [00:53:06.905] - Field: ‘version’ 1586s [00:53:06.905] - Field: ‘result’ 1586s [00:53:06.905] - Field: ‘asynchronous’ 1586s [00:53:06.905] - Field: ‘calls’ 1586s [00:53:06.905] - Field: ‘globals’ 1586s [00:53:06.905] - Field: ‘stdout’ 1586s [00:53:06.906] - Field: ‘earlySignal’ 1586s [00:53:06.906] - Field: ‘lazy’ 1586s [00:53:06.907] - Field: ‘state’ 1586s [00:53:06.907] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1586s [00:53:06.907] - Launch lazy future ... 1586s [00:53:06.908] Packages needed by the future expression (n = 0): 1586s [00:53:06.908] Packages needed by future strategies (n = 0): 1586s [00:53:06.908] { 1586s [00:53:06.908] { 1586s [00:53:06.908] { 1586s [00:53:06.908] ...future.startTime <- base::Sys.time() 1586s [00:53:06.908] { 1586s [00:53:06.908] { 1586s [00:53:06.908] { 1586s [00:53:06.908] base::local({ 1586s [00:53:06.908] has_future <- base::requireNamespace("future", 1586s [00:53:06.908] quietly = TRUE) 1586s [00:53:06.908] if (has_future) { 1586s [00:53:06.908] ns <- base::getNamespace("future") 1586s [00:53:06.908] version <- ns[[".package"]][["version"]] 1586s [00:53:06.908] if (is.null(version)) 1586s [00:53:06.908] version <- utils::packageVersion("future") 1586s [00:53:06.908] } 1586s [00:53:06.908] else { 1586s [00:53:06.908] version <- NULL 1586s [00:53:06.908] } 1586s [00:53:06.908] if (!has_future || version < "1.8.0") { 1586s [00:53:06.908] info <- base::c(r_version = base::gsub("R version ", 1586s [00:53:06.908] "", base::R.version$version.string), 1586s [00:53:06.908] platform = base::sprintf("%s (%s-bit)", 1586s [00:53:06.908] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1586s [00:53:06.908] os = base::paste(base::Sys.info()[base::c("sysname", 1586s [00:53:06.908] "release", "version")], collapse = " "), 1586s [00:53:06.908] hostname = base::Sys.info()[["nodename"]]) 1586s [00:53:06.908] info <- base::sprintf("%s: %s", base::names(info), 1586s [00:53:06.908] info) 1586s [00:53:06.908] info <- base::paste(info, collapse = "; ") 1586s [00:53:06.908] if (!has_future) { 1586s [00:53:06.908] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1586s [00:53:06.908] info) 1586s [00:53:06.908] } 1586s [00:53:06.908] else { 1586s [00:53:06.908] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1586s [00:53:06.908] info, version) 1586s [00:53:06.908] } 1586s [00:53:06.908] base::stop(msg) 1586s [00:53:06.908] } 1586s [00:53:06.908] }) 1586s [00:53:06.908] } 1586s [00:53:06.908] options(future.plan = NULL) 1586s [00:53:06.908] Sys.unsetenv("R_FUTURE_PLAN") 1586s [00:53:06.908] future::plan("default", .cleanup = FALSE, .init = FALSE) 1586s [00:53:06.908] } 1586s [00:53:06.908] ...future.workdir <- getwd() 1586s [00:53:06.908] } 1586s [00:53:06.908] ...future.oldOptions <- base::as.list(base::.Options) 1586s [00:53:06.908] ...future.oldEnvVars <- base::Sys.getenv() 1586s [00:53:06.908] } 1586s [00:53:06.908] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1586s [00:53:06.908] future.globals.maxSize = NULL, future.globals.method = NULL, 1586s [00:53:06.908] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1586s [00:53:06.908] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1586s [00:53:06.908] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1586s [00:53:06.908] future.stdout.windows.reencode = NULL, width = 80L) 1586s [00:53:06.908] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1586s [00:53:06.908] base::names(...future.oldOptions)) 1586s [00:53:06.908] } 1586s [00:53:06.908] if (FALSE) { 1586s [00:53:06.908] } 1586s [00:53:06.908] else { 1586s [00:53:06.908] if (TRUE) { 1586s [00:53:06.908] ...future.stdout <- base::rawConnection(base::raw(0L), 1586s [00:53:06.908] open = "w") 1586s [00:53:06.908] } 1586s [00:53:06.908] else { 1586s [00:53:06.908] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1586s [00:53:06.908] windows = "NUL", "/dev/null"), open = "w") 1586s [00:53:06.908] } 1586s [00:53:06.908] base::sink(...future.stdout, type = "output", split = FALSE) 1586s [00:53:06.908] base::on.exit(if (!base::is.null(...future.stdout)) { 1586s [00:53:06.908] base::sink(type = "output", split = FALSE) 1586s [00:53:06.908] base::close(...future.stdout) 1586s [00:53:06.908] }, add = TRUE) 1586s [00:53:06.908] } 1586s [00:53:06.908] ...future.frame <- base::sys.nframe() 1586s [00:53:06.908] ...future.conditions <- base::list() 1586s [00:53:06.908] ...future.rng <- base::globalenv()$.Random.seed 1586s [00:53:06.908] if (FALSE) { 1586s [00:53:06.908] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1586s [00:53:06.908] "...future.value", "...future.globalenv.names", ".Random.seed") 1586s [00:53:06.908] } 1586s [00:53:06.908] ...future.result <- base::tryCatch({ 1586s [00:53:06.908] base::withCallingHandlers({ 1586s [00:53:06.908] ...future.value <- base::withVisible(base::local({ 1586s [00:53:06.908] do.call(function(...) { 1586s [00:53:06.908] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1586s [00:53:06.908] if (!identical(...future.globals.maxSize.org, 1586s [00:53:06.908] ...future.globals.maxSize)) { 1586s [00:53:06.908] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1586s [00:53:06.908] on.exit(options(oopts), add = TRUE) 1586s [00:53:06.908] } 1586s [00:53:06.908] { 1586s [00:53:06.908] lapply(seq_along(...future.elements_ii), 1586s [00:53:06.908] FUN = function(jj) { 1586s [00:53:06.908] ...future.X_jj <- ...future.elements_ii[[jj]] 1586s [00:53:06.908] ...future.FUN(...future.X_jj, ...) 1586s [00:53:06.908] }) 1586s [00:53:06.908] } 1586s [00:53:06.908] }, args = future.call.arguments) 1586s [00:53:06.908] })) 1586s [00:53:06.908] future::FutureResult(value = ...future.value$value, 1586s [00:53:06.908] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1586s [00:53:06.908] ...future.rng), globalenv = if (FALSE) 1586s [00:53:06.908] list(added = base::setdiff(base::names(base::.GlobalEnv), 1586s [00:53:06.908] ...future.globalenv.names)) 1586s [00:53:06.908] else NULL, started = ...future.startTime, version = "1.8") 1586s [00:53:06.908] }, condition = base::local({ 1586s [00:53:06.908] c <- base::c 1586s [00:53:06.908] inherits <- base::inherits 1586s [00:53:06.908] invokeRestart <- base::invokeRestart 1586s [00:53:06.908] length <- base::length 1586s [00:53:06.908] list <- base::list 1586s [00:53:06.908] seq.int <- base::seq.int 1586s [00:53:06.908] signalCondition <- base::signalCondition 1586s [00:53:06.908] sys.calls <- base::sys.calls 1586s [00:53:06.908] `[[` <- base::`[[` 1586s [00:53:06.908] `+` <- base::`+` 1586s [00:53:06.908] `<<-` <- base::`<<-` 1586s [00:53:06.908] sysCalls <- function(calls = sys.calls(), from = 1L) { 1586s [00:53:06.908] calls[seq.int(from = from + 12L, to = length(calls) - 1586s [00:53:06.908] 3L)] 1586s [00:53:06.908] } 1586s [00:53:06.908] function(cond) { 1586s [00:53:06.908] is_error <- inherits(cond, "error") 1586s [00:53:06.908] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1586s [00:53:06.908] NULL) 1586s [00:53:06.908] if (is_error) { 1586s [00:53:06.908] sessionInformation <- function() { 1586s [00:53:06.908] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1586s [00:53:06.908] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1586s [00:53:06.908] search = base::search(), system = base::Sys.info()) 1586s [00:53:06.908] } 1586s [00:53:06.908] ...future.conditions[[length(...future.conditions) + 1586s [00:53:06.908] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1586s [00:53:06.908] cond$call), session = sessionInformation(), 1586s [00:53:06.908] timestamp = base::Sys.time(), signaled = 0L) 1586s [00:53:06.908] signalCondition(cond) 1586s [00:53:06.908] } 1586s [00:53:06.908] else if (!ignore && TRUE && inherits(cond, c("condition", 1586s [00:53:06.908] "immediateCondition"))) { 1586s [00:53:06.908] signal <- TRUE && inherits(cond, "immediateCondition") 1586s [00:53:06.908] ...future.conditions[[length(...future.conditions) + 1586s [00:53:06.908] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1586s [00:53:06.908] if (TRUE && !signal) { 1586s [00:53:06.908] muffleCondition <- function (cond, pattern = "^muffle") 1586s [00:53:06.908] { 1586s [00:53:06.908] inherits <- base::inherits 1586s [00:53:06.908] invokeRestart <- base::invokeRestart 1586s [00:53:06.908] is.null <- base::is.null 1586s [00:53:06.908] muffled <- FALSE 1586s [00:53:06.908] if (inherits(cond, "message")) { 1586s [00:53:06.908] muffled <- grepl(pattern, "muffleMessage") 1586s [00:53:06.908] if (muffled) 1586s [00:53:06.908] invokeRestart("muffleMessage") 1586s [00:53:06.908] } 1586s [00:53:06.908] else if (inherits(cond, "warning")) { 1586s [00:53:06.908] muffled <- grepl(pattern, "muffleWarning") 1586s [00:53:06.908] if (muffled) 1586s [00:53:06.908] invokeRestart("muffleWarning") 1586s [00:53:06.908] } 1586s [00:53:06.908] else if (inherits(cond, "condition")) { 1586s [00:53:06.908] if (!is.null(pattern)) { 1586s [00:53:06.908] computeRestarts <- base::computeRestarts 1586s [00:53:06.908] grepl <- base::grepl 1586s [00:53:06.908] restarts <- computeRestarts(cond) 1586s [00:53:06.908] for (restart in restarts) { 1586s [00:53:06.908] name <- restart$name 1586s [00:53:06.908] if (is.null(name)) 1586s [00:53:06.908] next 1586s [00:53:06.908] if (!grepl(pattern, name)) 1586s [00:53:06.908] next 1586s [00:53:06.908] invokeRestart(restart) 1586s [00:53:06.908] muffled <- TRUE 1586s [00:53:06.908] break 1586s [00:53:06.908] } 1586s [00:53:06.908] } 1586s [00:53:06.908] } 1586s [00:53:06.908] invisible(muffled) 1586s [00:53:06.908] } 1586s [00:53:06.908] muffleCondition(cond, pattern = "^muffle") 1586s [00:53:06.908] } 1586s [00:53:06.908] } 1586s [00:53:06.908] else { 1586s [00:53:06.908] if (TRUE) { 1586s [00:53:06.908] muffleCondition <- function (cond, pattern = "^muffle") 1586s [00:53:06.908] { 1586s [00:53:06.908] inherits <- base::inherits 1586s [00:53:06.908] invokeRestart <- base::invokeRestart 1586s [00:53:06.908] is.null <- base::is.null 1586s [00:53:06.908] muffled <- FALSE 1586s [00:53:06.908] if (inherits(cond, "message")) { 1586s [00:53:06.908] muffled <- grepl(pattern, "muffleMessage") 1586s [00:53:06.908] if (muffled) 1586s [00:53:06.908] invokeRestart("muffleMessage") 1586s [00:53:06.908] } 1586s [00:53:06.908] else if (inherits(cond, "warning")) { 1586s [00:53:06.908] muffled <- grepl(pattern, "muffleWarning") 1586s [00:53:06.908] if (muffled) 1586s [00:53:06.908] invokeRestart("muffleWarning") 1586s [00:53:06.908] } 1586s [00:53:06.908] else if (inherits(cond, "condition")) { 1586s [00:53:06.908] if (!is.null(pattern)) { 1586s [00:53:06.908] computeRestarts <- base::computeRestarts 1586s [00:53:06.908] grepl <- base::grepl 1586s [00:53:06.908] restarts <- computeRestarts(cond) 1586s [00:53:06.908] for (restart in restarts) { 1586s [00:53:06.908] name <- restart$name 1586s [00:53:06.908] if (is.null(name)) 1586s [00:53:06.908] next 1586s [00:53:06.908] if (!grepl(pattern, name)) 1586s [00:53:06.908] next 1586s [00:53:06.908] invokeRestart(restart) 1586s [00:53:06.908] muffled <- TRUE 1586s [00:53:06.908] break 1586s [00:53:06.908] } 1586s [00:53:06.908] } 1586s [00:53:06.908] } 1586s [00:53:06.908] invisible(muffled) 1586s [00:53:06.908] } 1586s [00:53:06.908] muffleCondition(cond, pattern = "^muffle") 1586s [00:53:06.908] } 1586s [00:53:06.908] } 1586s [00:53:06.908] } 1586s [00:53:06.908] })) 1586s [00:53:06.908] }, error = function(ex) { 1586s [00:53:06.908] base::structure(base::list(value = NULL, visible = NULL, 1586s [00:53:06.908] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1586s [00:53:06.908] ...future.rng), started = ...future.startTime, 1586s [00:53:06.908] finished = Sys.time(), session_uuid = NA_character_, 1586s [00:53:06.908] version = "1.8"), class = "FutureResult") 1586s [00:53:06.908] }, finally = { 1586s [00:53:06.908] if (!identical(...future.workdir, getwd())) 1586s [00:53:06.908] setwd(...future.workdir) 1586s [00:53:06.908] { 1586s [00:53:06.908] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1586s [00:53:06.908] ...future.oldOptions$nwarnings <- NULL 1586s [00:53:06.908] } 1586s [00:53:06.908] base::options(...future.oldOptions) 1586s [00:53:06.908] if (.Platform$OS.type == "windows") { 1586s [00:53:06.908] old_names <- names(...future.oldEnvVars) 1586s [00:53:06.908] envs <- base::Sys.getenv() 1586s [00:53:06.908] names <- names(envs) 1586s [00:53:06.908] common <- intersect(names, old_names) 1586s [00:53:06.908] added <- setdiff(names, old_names) 1586s [00:53:06.908] removed <- setdiff(old_names, names) 1586s [00:53:06.908] changed <- common[...future.oldEnvVars[common] != 1586s [00:53:06.908] envs[common]] 1586s [00:53:06.908] NAMES <- toupper(changed) 1586s [00:53:06.908] args <- list() 1586s [00:53:06.908] for (kk in seq_along(NAMES)) { 1586s [00:53:06.908] name <- changed[[kk]] 1586s [00:53:06.908] NAME <- NAMES[[kk]] 1586s [00:53:06.908] if (name != NAME && is.element(NAME, old_names)) 1586s [00:53:06.908] next 1586s [00:53:06.908] args[[name]] <- ...future.oldEnvVars[[name]] 1586s [00:53:06.908] } 1586s [00:53:06.908] NAMES <- toupper(added) 1586s [00:53:06.908] for (kk in seq_along(NAMES)) { 1586s [00:53:06.908] name <- added[[kk]] 1586s [00:53:06.908] NAME <- NAMES[[kk]] 1586s [00:53:06.908] if (name != NAME && is.element(NAME, old_names)) 1586s [00:53:06.908] next 1586s [00:53:06.908] args[[name]] <- "" 1586s [00:53:06.908] } 1586s [00:53:06.908] NAMES <- toupper(removed) 1586s [00:53:06.908] for (kk in seq_along(NAMES)) { 1586s [00:53:06.908] name <- removed[[kk]] 1586s [00:53:06.908] NAME <- NAMES[[kk]] 1586s [00:53:06.908] if (name != NAME && is.element(NAME, old_names)) 1586s [00:53:06.908] next 1586s [00:53:06.908] args[[name]] <- ...future.oldEnvVars[[name]] 1586s [00:53:06.908] } 1586s [00:53:06.908] if (length(args) > 0) 1586s [00:53:06.908] base::do.call(base::Sys.setenv, args = args) 1586s [00:53:06.908] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1586s [00:53:06.908] } 1586s [00:53:06.908] else { 1586s [00:53:06.908] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1586s [00:53:06.908] } 1586s [00:53:06.908] { 1586s [00:53:06.908] if (base::length(...future.futureOptionsAdded) > 1586s [00:53:06.908] 0L) { 1586s [00:53:06.908] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1586s [00:53:06.908] base::names(opts) <- ...future.futureOptionsAdded 1586s [00:53:06.908] base::options(opts) 1586s [00:53:06.908] } 1586s [00:53:06.908] { 1586s [00:53:06.908] { 1586s [00:53:06.908] NULL 1586s [00:53:06.908] RNGkind("Mersenne-Twister") 1586s [00:53:06.908] base::rm(list = ".Random.seed", envir = base::globalenv(), 1586s [00:53:06.908] inherits = FALSE) 1586s [00:53:06.908] } 1586s [00:53:06.908] options(future.plan = NULL) 1586s [00:53:06.908] if (is.na(NA_character_)) 1586s [00:53:06.908] Sys.unsetenv("R_FUTURE_PLAN") 1586s [00:53:06.908] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1586s [00:53:06.908] future::plan(list(function (..., envir = parent.frame()) 1586s [00:53:06.908] { 1586s [00:53:06.908] future <- SequentialFuture(..., envir = envir) 1586s [00:53:06.908] if (!future$lazy) 1586s [00:53:06.908] future <- run(future) 1586s [00:53:06.908] invisible(future) 1586s [00:53:06.908] }), .cleanup = FALSE, .init = FALSE) 1586s [00:53:06.908] } 1586s [00:53:06.908] } 1586s [00:53:06.908] } 1586s [00:53:06.908] }) 1586s [00:53:06.908] if (TRUE) { 1586s [00:53:06.908] base::sink(type = "output", split = FALSE) 1586s [00:53:06.908] if (TRUE) { 1586s [00:53:06.908] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1586s [00:53:06.908] } 1586s [00:53:06.908] else { 1586s [00:53:06.908] ...future.result["stdout"] <- base::list(NULL) 1586s [00:53:06.908] } 1586s [00:53:06.908] base::close(...future.stdout) 1586s [00:53:06.908] ...future.stdout <- NULL 1586s [00:53:06.908] } 1586s [00:53:06.908] ...future.result$conditions <- ...future.conditions 1586s [00:53:06.908] ...future.result$finished <- base::Sys.time() 1586s [00:53:06.908] ...future.result 1586s [00:53:06.908] } 1586s [00:53:06.915] assign_globals() ... 1586s [00:53:06.915] List of 5 1586s [00:53:06.915] $ ...future.FUN :function (x, y) 1586s [00:53:06.915] $ future.call.arguments :List of 1 1586s [00:53:06.915] ..$ y: num [1:5] 2 4 6 8 10 1586s [00:53:06.915] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1586s [00:53:06.915] $ ...future.elements_ii :List of 4 1586s [00:53:06.915] ..$ A: num 50 1586s [00:53:06.915] ..$ B: num 60 1586s [00:53:06.915] ..$ C: num 70 1586s [00:53:06.915] ..$ D: num 80 1586s [00:53:06.915] $ ...future.seeds_ii : NULL 1586s [00:53:06.915] $ ...future.globals.maxSize: NULL 1586s [00:53:06.915] - attr(*, "where")=List of 5 1586s [00:53:06.915] ..$ ...future.FUN : 1586s [00:53:06.915] ..$ future.call.arguments : 1586s [00:53:06.915] ..$ ...future.elements_ii : 1586s [00:53:06.915] ..$ ...future.seeds_ii : 1586s [00:53:06.915] ..$ ...future.globals.maxSize: 1586s [00:53:06.915] - attr(*, "resolved")= logi FALSE 1586s [00:53:06.915] - attr(*, "total_size")= num 4264 1586s [00:53:06.915] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1586s [00:53:06.915] - attr(*, "already-done")= logi TRUE 1586s [00:53:06.922] - reassign environment for ‘...future.FUN’ 1586s [00:53:06.922] - copied ‘...future.FUN’ to environment 1586s [00:53:06.923] - copied ‘future.call.arguments’ to environment 1586s [00:53:06.923] - copied ‘...future.elements_ii’ to environment 1586s [00:53:06.923] - copied ‘...future.seeds_ii’ to environment 1586s [00:53:06.923] - copied ‘...future.globals.maxSize’ to environment 1586s [00:53:06.923] assign_globals() ... done 1586s [00:53:06.923] plan(): Setting new future strategy stack: 1586s [00:53:06.924] List of future strategies: 1586s [00:53:06.924] 1. sequential: 1586s [00:53:06.924] - args: function (..., envir = parent.frame()) 1586s [00:53:06.924] - tweaked: FALSE 1586s [00:53:06.924] - call: NULL 1586s [00:53:06.924] plan(): nbrOfWorkers() = 1 1586s [00:53:06.925] plan(): Setting new future strategy stack: 1586s [00:53:06.925] List of future strategies: 1586s [00:53:06.925] 1. sequential: 1586s [00:53:06.925] - args: function (..., envir = parent.frame()) 1586s [00:53:06.925] - tweaked: FALSE 1586s [00:53:06.925] - call: plan(strategy) 1586s [00:53:06.925] plan(): nbrOfWorkers() = 1 1586s [00:53:06.926] SequentialFuture started (and completed) 1586s [00:53:06.926] - Launch lazy future ... done 1586s [00:53:06.926] run() for ‘SequentialFuture’ ... done 1586s [00:53:06.926] Created future: 1586s [00:53:06.926] SequentialFuture: 1586s [00:53:06.926] Label: ‘future_sapply-1’ 1586s [00:53:06.926] Expression: 1586s [00:53:06.926] { 1586s [00:53:06.926] do.call(function(...) { 1586s [00:53:06.926] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1586s [00:53:06.926] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1586s [00:53:06.926] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1586s [00:53:06.926] on.exit(options(oopts), add = TRUE) 1586s [00:53:06.926] } 1586s [00:53:06.926] { 1586s [00:53:06.926] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1586s [00:53:06.926] ...future.X_jj <- ...future.elements_ii[[jj]] 1586s [00:53:06.926] ...future.FUN(...future.X_jj, ...) 1586s [00:53:06.926] }) 1586s [00:53:06.926] } 1586s [00:53:06.926] }, args = future.call.arguments) 1586s [00:53:06.926] } 1586s [00:53:06.926] Lazy evaluation: FALSE 1586s [00:53:06.926] Asynchronous evaluation: FALSE 1586s [00:53:06.926] Local evaluation: TRUE 1586s [00:53:06.926] Environment: R_GlobalEnv 1586s [00:53:06.926] Capture standard output: TRUE 1586s [00:53:06.926] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1586s [00:53:06.926] Globals: 5 objects totaling 4.38 KiB (function ‘...future.FUN’ of 4.07 KiB, DotDotDotList ‘future.call.arguments’ of 96 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1586s [00:53:06.926] Packages: 1586s [00:53:06.926] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1586s [00:53:06.926] Resolved: TRUE 1586s [00:53:06.926] Value: 1.34 KiB of class ‘list’ 1586s [00:53:06.926] Early signaling: FALSE 1586s [00:53:06.926] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1586s [00:53:06.926] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1586s [00:53:06.928] Chunk #1 of 1 ... DONE 1586s [00:53:06.928] Launching 1 futures (chunks) ... DONE 1586s [00:53:06.928] Resolving 1 futures (chunks) ... 1586s [00:53:06.928] resolve() on list ... 1586s [00:53:06.928] recursive: 0 1586s [00:53:06.928] length: 1 1586s [00:53:06.929] 1586s [00:53:06.929] resolved() for ‘SequentialFuture’ ... 1586s [00:53:06.929] - state: ‘finished’ 1586s [00:53:06.929] - run: TRUE 1586s [00:53:06.929] - result: ‘FutureResult’ 1586s [00:53:06.929] resolved() for ‘SequentialFuture’ ... done 1586s [00:53:06.929] Future #1 1586s [00:53:06.930] signalConditionsASAP(SequentialFuture, pos=1) ... 1586s [00:53:06.930] - nx: 1 1586s [00:53:06.930] - relay: TRUE 1586s [00:53:06.930] - stdout: TRUE 1586s [00:53:06.930] - signal: TRUE 1586s [00:53:06.930] - resignal: FALSE 1586s [00:53:06.930] - force: TRUE 1586s [00:53:06.931] - relayed: [n=1] FALSE 1586s [00:53:06.931] - queued futures: [n=1] FALSE 1586s [00:53:06.931] - until=1 1586s [00:53:06.931] - relaying element #1 1586s [00:53:06.931] - relayed: [n=1] TRUE 1586s [00:53:06.931] - queued futures: [n=1] TRUE 1586s [00:53:06.932] signalConditionsASAP(SequentialFuture, pos=1) ... done 1586s [00:53:06.932] length: 0 (resolved future 1) 1586s [00:53:06.932] Relaying remaining futures 1586s [00:53:06.932] signalConditionsASAP(NULL, pos=0) ... 1586s [00:53:06.932] - nx: 1 1586s [00:53:06.932] - relay: TRUE 1586s [00:53:06.932] - stdout: TRUE 1586s [00:53:06.933] - signal: TRUE 1586s [00:53:06.933] - resignal: FALSE 1586s [00:53:06.933] - force: TRUE 1586s [00:53:06.933] - relayed: [n=1] TRUE 1586s [00:53:06.933] - queued futures: [n=1] TRUE 1586s - flush all 1586s [00:53:06.933] - relayed: [n=1] TRUE 1586s [00:53:06.933] - queued futures: [n=1] TRUE 1586s [00:53:06.934] signalConditionsASAP(NULL, pos=0) ... done 1586s [00:53:06.934] resolve() on list ... DONE 1586s [00:53:06.934] - Number of value chunks collected: 1 1586s [00:53:06.934] Resolving 1 futures (chunks) ... DONE 1586s [00:53:06.934] Reducing values from 1 chunks ... 1586s [00:53:06.934] - Number of values collected after concatenation: 4 1586s [00:53:06.935] - Number of values expected: 4 1586s [00:53:06.935] Reducing values from 1 chunks ... DONE 1586s [00:53:06.935] future_lapply() ... DONE 1586s [00:53:06.935] future_lapply() ... 1586s [00:53:06.938] Number of chunks: 1 1586s [00:53:06.938] getGlobalsAndPackagesXApply() ... 1586s [00:53:06.938] - future.globals: TRUE 1586s [00:53:06.938] getGlobalsAndPackages() ... 1586s [00:53:06.938] Searching for globals... 1586s [00:53:06.944] - globals found: [18] ‘FUN’, ‘{’, ‘<-’, ‘x_FUN’, ‘if’, ‘!=’, ‘length’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘all’, ‘==’, ‘dim’, ‘%in%’, ‘typeof’, ‘valid_types’, ‘outer’, ‘rep’ 1586s [00:53:06.944] Searching for globals ... DONE 1586s [00:53:06.945] Resolving globals: FALSE 1586s [00:53:06.946] The total size of the 7 globals is 96.20 KiB (98504 bytes) 1586s [00:53:06.946] The total size of the 7 globals exported for future expression (‘FUN(y = c(2, 4, 6, 8, 10))’) is 96.20 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘stop_if_not’ (44.12 KiB of class ‘function’), ‘stopf’ (26.43 KiB of class ‘function’) and ‘FUN’ (21.22 KiB of class ‘function’) 1586s [00:53:06.946] - globals: [7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1586s [00:53:06.947] - packages: [1] ‘future.apply’ 1586s [00:53:06.947] getGlobalsAndPackages() ... DONE 1586s [00:53:06.947] - globals found/used: [n=7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1586s [00:53:06.947] - needed namespaces: [n=1] ‘future.apply’ 1586s [00:53:06.947] Finding globals ... DONE 1586s [00:53:06.947] - use_args: TRUE 1586s [00:53:06.947] - Getting '...' globals ... 1586s [00:53:06.948] resolve() on list ... 1586s [00:53:06.948] recursive: 0 1586s [00:53:06.948] length: 1 1586s [00:53:06.949] elements: ‘...’ 1586s [00:53:06.949] length: 0 (resolved future 1) 1586s [00:53:06.949] resolve() on list ... DONE 1586s [00:53:06.949] - '...' content: [n=1] ‘y’ 1586s [00:53:06.949] List of 1 1586s [00:53:06.949] $ ...:List of 1 1586s [00:53:06.949] ..$ y: num [1:5] 2 4 6 8 10 1586s [00:53:06.949] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1586s [00:53:06.949] - attr(*, "where")=List of 1 1586s [00:53:06.949] ..$ ...: 1586s [00:53:06.949] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1586s [00:53:06.949] - attr(*, "resolved")= logi TRUE 1586s [00:53:06.949] - attr(*, "total_size")= num NA 1586s [00:53:06.953] - Getting '...' globals ... DONE 1586s [00:53:06.954] Globals to be used in all futures (chunks): [n=8] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’ 1586s [00:53:06.954] List of 8 1586s [00:53:06.954] $ ...future.FUN:function (x, ...) 1586s [00:53:06.954] $ x_FUN :function (x, y) 1586s [00:53:06.954] $ times : int 15 1586s [00:53:06.954] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1586s [00:53:06.954] $ stop_if_not :function (...) 1586s [00:53:06.954] $ dim : int [1:2] 3 5 1586s [00:53:06.954] $ valid_types : chr [1:3] "logical" "integer" "double" 1586s [00:53:06.954] $ ... :List of 1 1586s [00:53:06.954] ..$ y: num [1:5] 2 4 6 8 10 1586s [00:53:06.954] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1586s [00:53:06.954] - attr(*, "where")=List of 8 1586s [00:53:06.954] ..$ ...future.FUN: 1586s [00:53:06.954] ..$ x_FUN : 1586s [00:53:06.954] ..$ times : 1586s [00:53:06.954] ..$ stopf : 1586s [00:53:06.954] ..$ stop_if_not : 1586s [00:53:06.954] ..$ dim : 1586s [00:53:06.954] ..$ valid_types : 1586s [00:53:06.954] ..$ ... : 1586s [00:53:06.954] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1586s [00:53:06.954] - attr(*, "resolved")= logi FALSE 1586s [00:53:06.954] - attr(*, "total_size")= num 98600 1586s [00:53:06.962] Packages to be attached in all futures: [n=1] ‘future.apply’ 1586s [00:53:06.962] getGlobalsAndPackagesXApply() ... DONE 1586s [00:53:06.962] Number of futures (= number of chunks): 1 1586s [00:53:06.963] Launching 1 futures (chunks) ... 1586s [00:53:06.963] Chunk #1 of 1 ... 1586s [00:53:06.963] - Finding globals in 'X' for chunk #1 ... 1586s [00:53:06.963] getGlobalsAndPackages() ... 1586s [00:53:06.963] Searching for globals... 1586s [00:53:06.963] 1586s [00:53:06.964] Searching for globals ... DONE 1586s [00:53:06.964] - globals: [0] 1586s [00:53:06.964] getGlobalsAndPackages() ... DONE 1586s [00:53:06.964] + additional globals found: [n=0] 1586s [00:53:06.964] + additional namespaces needed: [n=0] 1586s [00:53:06.965] - Finding globals in 'X' for chunk #1 ... DONE 1586s [00:53:06.965] - seeds: 1586s [00:53:06.965] - All globals exported: [n=11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1587s [00:53:06.965] getGlobalsAndPackages() ... 1587s [00:53:06.965] - globals passed as-is: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1587s [00:53:06.965] Resolving globals: FALSE 1587s [00:53:06.965] Tweak future expression to call with '...' arguments ... 1587s [00:53:06.966] { 1587s [00:53:06.966] do.call(function(...) { 1587s [00:53:06.966] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1587s [00:53:06.966] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1587s [00:53:06.966] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1587s [00:53:06.966] on.exit(options(oopts), add = TRUE) 1587s [00:53:06.966] } 1587s [00:53:06.966] { 1587s [00:53:06.966] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1587s [00:53:06.966] ...future.X_jj <- ...future.elements_ii[[jj]] 1587s [00:53:06.966] ...future.FUN(...future.X_jj, ...) 1587s [00:53:06.966] }) 1587s [00:53:06.966] } 1587s [00:53:06.966] }, args = future.call.arguments) 1587s [00:53:06.966] } 1587s [00:53:06.966] Tweak future expression to call with '...' arguments ... DONE 1587s [00:53:06.967] - globals: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1587s [00:53:06.967] - packages: [1] ‘future.apply’ 1587s [00:53:06.967] getGlobalsAndPackages() ... DONE 1587s [00:53:06.967] run() for ‘Future’ ... 1587s [00:53:06.967] - state: ‘created’ 1587s [00:53:06.967] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1587s [00:53:06.968] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1587s [00:53:06.968] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1587s [00:53:06.968] - Field: ‘label’ 1587s [00:53:06.968] - Field: ‘local’ 1587s [00:53:06.968] - Field: ‘owner’ 1587s [00:53:06.968] - Field: ‘envir’ 1587s [00:53:06.968] - Field: ‘packages’ 1587s [00:53:06.968] - Field: ‘gc’ 1587s [00:53:06.969] - Field: ‘conditions’ 1587s [00:53:06.969] - Field: ‘expr’ 1587s [00:53:06.969] - Field: ‘uuid’ 1587s [00:53:06.970] - Field: ‘seed’ 1587s [00:53:06.971] - Field: ‘version’ 1587s [00:53:06.971] - Field: ‘result’ 1587s [00:53:06.971] - Field: ‘asynchronous’ 1587s [00:53:06.971] - Field: ‘calls’ 1587s [00:53:06.971] - Field: ‘globals’ 1587s [00:53:06.971] - Field: ‘stdout’ 1587s [00:53:06.972] - Field: ‘earlySignal’ 1587s [00:53:06.972] - Field: ‘lazy’ 1587s [00:53:06.972] - Field: ‘state’ 1587s [00:53:06.972] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1587s [00:53:06.972] - Launch lazy future ... 1587s [00:53:06.973] Packages needed by the future expression (n = 1): ‘future.apply’ 1587s [00:53:06.973] Packages needed by future strategies (n = 0): 1587s [00:53:06.973] { 1587s [00:53:06.973] { 1587s [00:53:06.973] { 1587s [00:53:06.973] ...future.startTime <- base::Sys.time() 1587s [00:53:06.973] { 1587s [00:53:06.973] { 1587s [00:53:06.973] { 1587s [00:53:06.973] { 1587s [00:53:06.973] base::local({ 1587s [00:53:06.973] has_future <- base::requireNamespace("future", 1587s [00:53:06.973] quietly = TRUE) 1587s [00:53:06.973] if (has_future) { 1587s [00:53:06.973] ns <- base::getNamespace("future") 1587s [00:53:06.973] version <- ns[[".package"]][["version"]] 1587s [00:53:06.973] if (is.null(version)) 1587s [00:53:06.973] version <- utils::packageVersion("future") 1587s [00:53:06.973] } 1587s [00:53:06.973] else { 1587s [00:53:06.973] version <- NULL 1587s [00:53:06.973] } 1587s [00:53:06.973] if (!has_future || version < "1.8.0") { 1587s [00:53:06.973] info <- base::c(r_version = base::gsub("R version ", 1587s [00:53:06.973] "", base::R.version$version.string), 1587s [00:53:06.973] platform = base::sprintf("%s (%s-bit)", 1587s [00:53:06.973] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1587s [00:53:06.973] os = base::paste(base::Sys.info()[base::c("sysname", 1587s [00:53:06.973] "release", "version")], collapse = " "), 1587s [00:53:06.973] hostname = base::Sys.info()[["nodename"]]) 1587s [00:53:06.973] info <- base::sprintf("%s: %s", base::names(info), 1587s [00:53:06.973] info) 1587s [00:53:06.973] info <- base::paste(info, collapse = "; ") 1587s [00:53:06.973] if (!has_future) { 1587s [00:53:06.973] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1587s [00:53:06.973] info) 1587s [00:53:06.973] } 1587s [00:53:06.973] else { 1587s [00:53:06.973] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1587s [00:53:06.973] info, version) 1587s [00:53:06.973] } 1587s [00:53:06.973] base::stop(msg) 1587s [00:53:06.973] } 1587s [00:53:06.973] }) 1587s [00:53:06.973] } 1587s [00:53:06.973] base::local({ 1587s [00:53:06.973] for (pkg in "future.apply") { 1587s [00:53:06.973] base::loadNamespace(pkg) 1587s [00:53:06.973] base::library(pkg, character.only = TRUE) 1587s [00:53:06.973] } 1587s [00:53:06.973] }) 1587s [00:53:06.973] } 1587s [00:53:06.973] options(future.plan = NULL) 1587s [00:53:06.973] Sys.unsetenv("R_FUTURE_PLAN") 1587s [00:53:06.973] future::plan("default", .cleanup = FALSE, .init = FALSE) 1587s [00:53:06.973] } 1587s [00:53:06.973] ...future.workdir <- getwd() 1587s [00:53:06.973] } 1587s [00:53:06.973] ...future.oldOptions <- base::as.list(base::.Options) 1587s [00:53:06.973] ...future.oldEnvVars <- base::Sys.getenv() 1587s [00:53:06.973] } 1587s [00:53:06.973] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1587s [00:53:06.973] future.globals.maxSize = NULL, future.globals.method = NULL, 1587s [00:53:06.973] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1587s [00:53:06.973] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1587s [00:53:06.973] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1587s [00:53:06.973] future.stdout.windows.reencode = NULL, width = 80L) 1587s [00:53:06.973] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1587s [00:53:06.973] base::names(...future.oldOptions)) 1587s [00:53:06.973] } 1587s [00:53:06.973] if (FALSE) { 1587s [00:53:06.973] } 1587s [00:53:06.973] else { 1587s [00:53:06.973] if (TRUE) { 1587s [00:53:06.973] ...future.stdout <- base::rawConnection(base::raw(0L), 1587s [00:53:06.973] open = "w") 1587s [00:53:06.973] } 1587s [00:53:06.973] else { 1587s [00:53:06.973] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1587s [00:53:06.973] windows = "NUL", "/dev/null"), open = "w") 1587s [00:53:06.973] } 1587s [00:53:06.973] base::sink(...future.stdout, type = "output", split = FALSE) 1587s [00:53:06.973] base::on.exit(if (!base::is.null(...future.stdout)) { 1587s [00:53:06.973] base::sink(type = "output", split = FALSE) 1587s [00:53:06.973] base::close(...future.stdout) 1587s [00:53:06.973] }, add = TRUE) 1587s [00:53:06.973] } 1587s [00:53:06.973] ...future.frame <- base::sys.nframe() 1587s [00:53:06.973] ...future.conditions <- base::list() 1587s [00:53:06.973] ...future.rng <- base::globalenv()$.Random.seed 1587s [00:53:06.973] if (FALSE) { 1587s [00:53:06.973] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1587s [00:53:06.973] "...future.value", "...future.globalenv.names", ".Random.seed") 1587s [00:53:06.973] } 1587s [00:53:06.973] ...future.result <- base::tryCatch({ 1587s [00:53:06.973] base::withCallingHandlers({ 1587s [00:53:06.973] ...future.value <- base::withVisible(base::local({ 1587s [00:53:06.973] do.call(function(...) { 1587s [00:53:06.973] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1587s [00:53:06.973] if (!identical(...future.globals.maxSize.org, 1587s [00:53:06.973] ...future.globals.maxSize)) { 1587s [00:53:06.973] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1587s [00:53:06.973] on.exit(options(oopts), add = TRUE) 1587s [00:53:06.973] } 1587s [00:53:06.973] { 1587s [00:53:06.973] lapply(seq_along(...future.elements_ii), 1587s [00:53:06.973] FUN = function(jj) { 1587s [00:53:06.973] ...future.X_jj <- ...future.elements_ii[[jj]] 1587s [00:53:06.973] ...future.FUN(...future.X_jj, ...) 1587s [00:53:06.973] }) 1587s [00:53:06.973] } 1587s [00:53:06.973] }, args = future.call.arguments) 1587s [00:53:06.973] })) 1587s [00:53:06.973] future::FutureResult(value = ...future.value$value, 1587s [00:53:06.973] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1587s [00:53:06.973] ...future.rng), globalenv = if (FALSE) 1587s [00:53:06.973] list(added = base::setdiff(base::names(base::.GlobalEnv), 1587s [00:53:06.973] ...future.globalenv.names)) 1587s [00:53:06.973] else NULL, started = ...future.startTime, version = "1.8") 1587s [00:53:06.973] }, condition = base::local({ 1587s [00:53:06.973] c <- base::c 1587s [00:53:06.973] inherits <- base::inherits 1587s [00:53:06.973] invokeRestart <- base::invokeRestart 1587s [00:53:06.973] length <- base::length 1587s [00:53:06.973] list <- base::list 1587s [00:53:06.973] seq.int <- base::seq.int 1587s [00:53:06.973] signalCondition <- base::signalCondition 1587s [00:53:06.973] sys.calls <- base::sys.calls 1587s [00:53:06.973] `[[` <- base::`[[` 1587s [00:53:06.973] `+` <- base::`+` 1587s [00:53:06.973] `<<-` <- base::`<<-` 1587s [00:53:06.973] sysCalls <- function(calls = sys.calls(), from = 1L) { 1587s [00:53:06.973] calls[seq.int(from = from + 12L, to = length(calls) - 1587s [00:53:06.973] 3L)] 1587s [00:53:06.973] } 1587s [00:53:06.973] function(cond) { 1587s [00:53:06.973] is_error <- inherits(cond, "error") 1587s [00:53:06.973] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1587s [00:53:06.973] NULL) 1587s [00:53:06.973] if (is_error) { 1587s [00:53:06.973] sessionInformation <- function() { 1587s [00:53:06.973] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1587s [00:53:06.973] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1587s [00:53:06.973] search = base::search(), system = base::Sys.info()) 1587s [00:53:06.973] } 1587s [00:53:06.973] ...future.conditions[[length(...future.conditions) + 1587s [00:53:06.973] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1587s [00:53:06.973] cond$call), session = sessionInformation(), 1587s [00:53:06.973] timestamp = base::Sys.time(), signaled = 0L) 1587s [00:53:06.973] signalCondition(cond) 1587s [00:53:06.973] } 1587s [00:53:06.973] else if (!ignore && TRUE && inherits(cond, c("condition", 1587s [00:53:06.973] "immediateCondition"))) { 1587s [00:53:06.973] signal <- TRUE && inherits(cond, "immediateCondition") 1587s [00:53:06.973] ...future.conditions[[length(...future.conditions) + 1587s [00:53:06.973] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1587s [00:53:06.973] if (TRUE && !signal) { 1587s [00:53:06.973] muffleCondition <- function (cond, pattern = "^muffle") 1587s [00:53:06.973] { 1587s [00:53:06.973] inherits <- base::inherits 1587s [00:53:06.973] invokeRestart <- base::invokeRestart 1587s [00:53:06.973] is.null <- base::is.null 1587s [00:53:06.973] muffled <- FALSE 1587s [00:53:06.973] if (inherits(cond, "message")) { 1587s [00:53:06.973] muffled <- grepl(pattern, "muffleMessage") 1587s [00:53:06.973] if (muffled) 1587s [00:53:06.973] invokeRestart("muffleMessage") 1587s [00:53:06.973] } 1587s [00:53:06.973] else if (inherits(cond, "warning")) { 1587s [00:53:06.973] muffled <- grepl(pattern, "muffleWarning") 1587s [00:53:06.973] if (muffled) 1587s [00:53:06.973] invokeRestart("muffleWarning") 1587s [00:53:06.973] } 1587s [00:53:06.973] else if (inherits(cond, "condition")) { 1587s [00:53:06.973] if (!is.null(pattern)) { 1587s [00:53:06.973] computeRestarts <- base::computeRestarts 1587s [00:53:06.973] grepl <- base::grepl 1587s [00:53:06.973] restarts <- computeRestarts(cond) 1587s [00:53:06.973] for (restart in restarts) { 1587s [00:53:06.973] name <- restart$name 1587s [00:53:06.973] if (is.null(name)) 1587s [00:53:06.973] next 1587s [00:53:06.973] if (!grepl(pattern, name)) 1587s [00:53:06.973] next 1587s [00:53:06.973] invokeRestart(restart) 1587s [00:53:06.973] muffled <- TRUE 1587s [00:53:06.973] break 1587s [00:53:06.973] } 1587s [00:53:06.973] } 1587s [00:53:06.973] } 1587s [00:53:06.973] invisible(muffled) 1587s [00:53:06.973] } 1587s [00:53:06.973] muffleCondition(cond, pattern = "^muffle") 1587s [00:53:06.973] } 1587s [00:53:06.973] } 1587s [00:53:06.973] else { 1587s [00:53:06.973] if (TRUE) { 1587s [00:53:06.973] muffleCondition <- function (cond, pattern = "^muffle") 1587s [00:53:06.973] { 1587s [00:53:06.973] inherits <- base::inherits 1587s [00:53:06.973] invokeRestart <- base::invokeRestart 1587s [00:53:06.973] is.null <- base::is.null 1587s [00:53:06.973] muffled <- FALSE 1587s [00:53:06.973] if (inherits(cond, "message")) { 1587s [00:53:06.973] muffled <- grepl(pattern, "muffleMessage") 1587s [00:53:06.973] if (muffled) 1587s [00:53:06.973] invokeRestart("muffleMessage") 1587s [00:53:06.973] } 1587s [00:53:06.973] else if (inherits(cond, "warning")) { 1587s [00:53:06.973] muffled <- grepl(pattern, "muffleWarning") 1587s [00:53:06.973] if (muffled) 1587s [00:53:06.973] invokeRestart("muffleWarning") 1587s [00:53:06.973] } 1587s [00:53:06.973] else if (inherits(cond, "condition")) { 1587s [00:53:06.973] if (!is.null(pattern)) { 1587s [00:53:06.973] computeRestarts <- base::computeRestarts 1587s [00:53:06.973] grepl <- base::grepl 1587s [00:53:06.973] restarts <- computeRestarts(cond) 1587s [00:53:06.973] for (restart in restarts) { 1587s [00:53:06.973] name <- restart$name 1587s [00:53:06.973] if (is.null(name)) 1587s [00:53:06.973] next 1587s [00:53:06.973] if (!grepl(pattern, name)) 1587s [00:53:06.973] next 1587s [00:53:06.973] invokeRestart(restart) 1587s [00:53:06.973] muffled <- TRUE 1587s [00:53:06.973] break 1587s [00:53:06.973] } 1587s [00:53:06.973] } 1587s [00:53:06.973] } 1587s [00:53:06.973] invisible(muffled) 1587s [00:53:06.973] } 1587s [00:53:06.973] muffleCondition(cond, pattern = "^muffle") 1587s [00:53:06.973] } 1587s [00:53:06.973] } 1587s [00:53:06.973] } 1587s [00:53:06.973] })) 1587s [00:53:06.973] }, error = function(ex) { 1587s [00:53:06.973] base::structure(base::list(value = NULL, visible = NULL, 1587s [00:53:06.973] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1587s [00:53:06.973] ...future.rng), started = ...future.startTime, 1587s [00:53:06.973] finished = Sys.time(), session_uuid = NA_character_, 1587s [00:53:06.973] version = "1.8"), class = "FutureResult") 1587s [00:53:06.973] }, finally = { 1587s [00:53:06.973] if (!identical(...future.workdir, getwd())) 1587s [00:53:06.973] setwd(...future.workdir) 1587s [00:53:06.973] { 1587s [00:53:06.973] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1587s [00:53:06.973] ...future.oldOptions$nwarnings <- NULL 1587s [00:53:06.973] } 1587s [00:53:06.973] base::options(...future.oldOptions) 1587s [00:53:06.973] if (.Platform$OS.type == "windows") { 1587s [00:53:06.973] old_names <- names(...future.oldEnvVars) 1587s [00:53:06.973] envs <- base::Sys.getenv() 1587s [00:53:06.973] names <- names(envs) 1587s [00:53:06.973] common <- intersect(names, old_names) 1587s [00:53:06.973] added <- setdiff(names, old_names) 1587s [00:53:06.973] removed <- setdiff(old_names, names) 1587s [00:53:06.973] changed <- common[...future.oldEnvVars[common] != 1587s [00:53:06.973] envs[common]] 1587s [00:53:06.973] NAMES <- toupper(changed) 1587s [00:53:06.973] args <- list() 1587s [00:53:06.973] for (kk in seq_along(NAMES)) { 1587s [00:53:06.973] name <- changed[[kk]] 1587s [00:53:06.973] NAME <- NAMES[[kk]] 1587s [00:53:06.973] if (name != NAME && is.element(NAME, old_names)) 1587s [00:53:06.973] next 1587s [00:53:06.973] args[[name]] <- ...future.oldEnvVars[[name]] 1587s [00:53:06.973] } 1587s [00:53:06.973] NAMES <- toupper(added) 1587s [00:53:06.973] for (kk in seq_along(NAMES)) { 1587s [00:53:06.973] name <- added[[kk]] 1587s [00:53:06.973] NAME <- NAMES[[kk]] 1587s [00:53:06.973] if (name != NAME && is.element(NAME, old_names)) 1587s [00:53:06.973] next 1587s [00:53:06.973] args[[name]] <- "" 1587s [00:53:06.973] } 1587s [00:53:06.973] NAMES <- toupper(removed) 1587s [00:53:06.973] for (kk in seq_along(NAMES)) { 1587s [00:53:06.973] name <- removed[[kk]] 1587s [00:53:06.973] NAME <- NAMES[[kk]] 1587s [00:53:06.973] if (name != NAME && is.element(NAME, old_names)) 1587s [00:53:06.973] next 1587s [00:53:06.973] args[[name]] <- ...future.oldEnvVars[[name]] 1587s [00:53:06.973] } 1587s [00:53:06.973] if (length(args) > 0) 1587s [00:53:06.973] base::do.call(base::Sys.setenv, args = args) 1587s [00:53:06.973] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1587s [00:53:06.973] } 1587s [00:53:06.973] else { 1587s [00:53:06.973] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1587s [00:53:06.973] } 1587s [00:53:06.973] { 1587s [00:53:06.973] if (base::length(...future.futureOptionsAdded) > 1587s [00:53:06.973] 0L) { 1587s [00:53:06.973] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1587s [00:53:06.973] base::names(opts) <- ...future.futureOptionsAdded 1587s [00:53:06.973] base::options(opts) 1587s [00:53:06.973] } 1587s [00:53:06.973] { 1587s [00:53:06.973] { 1587s [00:53:06.973] NULL 1587s [00:53:06.973] RNGkind("Mersenne-Twister") 1587s [00:53:06.973] base::rm(list = ".Random.seed", envir = base::globalenv(), 1587s [00:53:06.973] inherits = FALSE) 1587s [00:53:06.973] } 1587s [00:53:06.973] options(future.plan = NULL) 1587s [00:53:06.973] if (is.na(NA_character_)) 1587s [00:53:06.973] Sys.unsetenv("R_FUTURE_PLAN") 1587s [00:53:06.973] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1587s [00:53:06.973] future::plan(list(function (..., envir = parent.frame()) 1587s [00:53:06.973] { 1587s [00:53:06.973] future <- SequentialFuture(..., envir = envir) 1587s [00:53:06.973] if (!future$lazy) 1587s [00:53:06.973] future <- run(future) 1587s [00:53:06.973] invisible(future) 1587s [00:53:06.973] }), .cleanup = FALSE, .init = FALSE) 1587s [00:53:06.973] } 1587s [00:53:06.973] } 1587s [00:53:06.973] } 1587s [00:53:06.973] }) 1587s [00:53:06.973] if (TRUE) { 1587s [00:53:06.973] base::sink(type = "output", split = FALSE) 1587s [00:53:06.973] if (TRUE) { 1587s [00:53:06.973] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1587s [00:53:06.973] } 1587s [00:53:06.973] else { 1587s [00:53:06.973] ...future.result["stdout"] <- base::list(NULL) 1587s [00:53:06.973] } 1587s [00:53:06.973] base::close(...future.stdout) 1587s [00:53:06.973] ...future.stdout <- NULL 1587s [00:53:06.973] } 1587s [00:53:06.973] ...future.result$conditions <- ...future.conditions 1587s [00:53:06.973] ...future.result$finished <- base::Sys.time() 1587s [00:53:06.973] ...future.result 1587s [00:53:06.973] } 1587s [00:53:06.976] assign_globals() ... 1587s [00:53:06.976] List of 11 1587s [00:53:06.976] $ ...future.FUN :function (x, ...) 1587s [00:53:06.976] $ x_FUN :function (x, y) 1587s [00:53:06.976] $ times : int 15 1587s [00:53:06.976] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1587s [00:53:06.976] $ stop_if_not :function (...) 1587s [00:53:06.976] $ dim : int [1:2] 3 5 1587s [00:53:06.976] $ valid_types : chr [1:3] "logical" "integer" "double" 1587s [00:53:06.976] $ future.call.arguments :List of 1 1587s [00:53:06.976] ..$ y: num [1:5] 2 4 6 8 10 1587s [00:53:06.976] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1587s [00:53:06.976] $ ...future.elements_ii :List of 4 1587s [00:53:06.976] ..$ A: num 50 1587s [00:53:06.976] ..$ B: num 60 1587s [00:53:06.976] ..$ C: num 70 1587s [00:53:06.976] ..$ D: num 80 1587s [00:53:06.976] $ ...future.seeds_ii : NULL 1587s [00:53:06.976] $ ...future.globals.maxSize: NULL 1587s [00:53:06.976] - attr(*, "where")=List of 11 1587s [00:53:06.976] ..$ ...future.FUN : 1587s [00:53:06.976] ..$ x_FUN : 1587s [00:53:06.976] ..$ times : 1587s [00:53:06.976] ..$ stopf : 1587s [00:53:06.976] ..$ stop_if_not : 1587s [00:53:06.976] ..$ dim : 1587s [00:53:06.976] ..$ valid_types : 1587s [00:53:06.976] ..$ future.call.arguments : 1587s [00:53:06.976] ..$ ...future.elements_ii : 1587s [00:53:06.976] ..$ ...future.seeds_ii : 1587s [00:53:06.976] ..$ ...future.globals.maxSize: 1587s [00:53:06.976] - attr(*, "resolved")= logi FALSE 1587s [00:53:06.976] - attr(*, "total_size")= num 98600 1587s [00:53:06.976] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1587s [00:53:06.976] - attr(*, "already-done")= logi TRUE 1587s [00:53:06.988] - copied ‘...future.FUN’ to environment 1587s [00:53:06.988] - reassign environment for ‘x_FUN’ 1587s [00:53:06.988] - copied ‘x_FUN’ to environment 1587s [00:53:06.988] - copied ‘times’ to environment 1587s [00:53:06.988] - copied ‘stopf’ to environment 1587s [00:53:06.988] - copied ‘stop_if_not’ to environment 1587s [00:53:06.989] - copied ‘dim’ to environment 1587s [00:53:06.989] - copied ‘valid_types’ to environment 1587s [00:53:06.989] - copied ‘future.call.arguments’ to environment 1587s [00:53:06.989] - copied ‘...future.elements_ii’ to environment 1587s [00:53:06.989] - copied ‘...future.seeds_ii’ to environment 1587s [00:53:06.989] - copied ‘...future.globals.maxSize’ to environment 1587s [00:53:06.989] assign_globals() ... done 1587s [00:53:06.990] plan(): Setting new future strategy stack: 1587s [00:53:06.990] List of future strategies: 1587s [00:53:06.990] 1. sequential: 1587s [00:53:06.990] - args: function (..., envir = parent.frame()) 1587s [00:53:06.990] - tweaked: FALSE 1587s [00:53:06.990] - call: NULL 1587s [00:53:06.991] plan(): nbrOfWorkers() = 1 1587s [00:53:06.991] plan(): Setting new future strategy stack: 1587s [00:53:06.991] List of future strategies: 1587s [00:53:06.991] 1. sequential: 1587s [00:53:06.991] - args: function (..., envir = parent.frame()) 1587s [00:53:06.991] - tweaked: FALSE 1587s [00:53:06.991] - call: plan(strategy) 1587s [00:53:06.992] plan(): nbrOfWorkers() = 1 1587s [00:53:06.992] SequentialFuture started (and completed) 1587s [00:53:06.992] - Launch lazy future ... done 1587s [00:53:06.992] run() for ‘SequentialFuture’ ... done 1587s [00:53:06.993] Created future: 1587s [00:53:06.993] SequentialFuture: 1587s [00:53:06.993] Label: ‘future_vapply-1’ 1587s [00:53:06.993] Expression: 1587s [00:53:06.993] { 1587s [00:53:06.993] do.call(function(...) { 1587s [00:53:06.993] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1587s [00:53:06.993] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1587s [00:53:06.993] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1587s [00:53:06.993] on.exit(options(oopts), add = TRUE) 1587s [00:53:06.993] } 1587s [00:53:06.993] { 1587s [00:53:06.993] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1587s [00:53:06.993] ...future.X_jj <- ...future.elements_ii[[jj]] 1587s [00:53:06.993] ...future.FUN(...future.X_jj, ...) 1587s [00:53:06.993] }) 1587s [00:53:06.993] } 1587s [00:53:06.993] }, args = future.call.arguments) 1587s [00:53:06.993] } 1587s [00:53:06.993] Lazy evaluation: FALSE 1587s [00:53:06.993] Asynchronous evaluation: FALSE 1587s [00:53:06.993] Local evaluation: TRUE 1587s [00:53:06.993] Environment: R_GlobalEnv 1587s [00:53:06.993] Capture standard output: TRUE 1587s [00:53:06.993] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1587s [00:53:06.993] Globals: 11 objects totaling 96.51 KiB (function ‘...future.FUN’ of 21.22 KiB, function ‘x_FUN’ of 4.07 KiB, integer ‘times’ of 56 bytes, function ‘stopf’ of 26.43 KiB, function ‘stop_if_not’ of 44.12 KiB, ...) 1587s [00:53:06.993] Packages: 1 packages (‘future.apply’) 1587s [00:53:06.993] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1587s [00:53:06.993] Resolved: TRUE 1587s [00:53:06.993] Value: 1.34 KiB of class ‘list’ 1587s [00:53:06.993] Early signaling: FALSE 1587s [00:53:06.993] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1587s [00:53:06.993] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1587s [00:53:06.994] Chunk #1 of 1 ... DONE 1587s [00:53:06.995] Launching 1 futures (chunks) ... DONE 1587s [00:53:06.995] Resolving 1 futures (chunks) ... 1587s [00:53:06.995] resolve() on list ... 1587s [00:53:06.995] recursive: 0 1587s [00:53:06.995] length: 1 1587s [00:53:06.995] 1587s [00:53:06.995] resolved() for ‘SequentialFuture’ ... 1587s [00:53:06.996] - state: ‘finished’ 1587s [00:53:06.996] - run: TRUE 1587s [00:53:06.996] - result: ‘FutureResult’ 1587s [00:53:06.996] resolved() for ‘SequentialFuture’ ... done 1587s [00:53:06.996] Future #1 1587s [00:53:06.996] signalConditionsASAP(SequentialFuture, pos=1) ... 1587s [00:53:06.997] - nx: 1 1587s [00:53:06.997] - relay: TRUE 1587s [00:53:06.997] - stdout: TRUE 1587s [00:53:06.997] - signal: TRUE 1587s [00:53:06.997] - resignal: FALSE 1587s [00:53:06.997] - force: TRUE 1587s [00:53:06.997] - relayed: [n=1] FALSE 1587s [00:53:06.998] - queued futures: [n=1] FALSE 1587s [00:53:06.998] - until=1 1587s [00:53:06.998] - relaying element #1 1587s [00:53:06.998] - relayed: [n=1] TRUE 1587s [00:53:06.998] - queued futures: [n=1] TRUE 1587s [00:53:06.998] signalConditionsASAP(SequentialFuture, pos=1) ... done 1587s [00:53:06.999] length: 0 (resolved future 1) 1587s [00:53:06.999] Relaying remaining futures 1587s [00:53:06.999] signalConditionsASAP(NULL, pos=0) ... 1587s [00:53:06.999] - nx: 1 1587s [00:53:06.999] - relay: TRUE 1587s [00:53:06.999] - stdout: TRUE 1587s [00:53:06.999] - signal: TRUE 1587s [00:53:06.999] - resignal: FALSE 1587s [00:53:07.000] - force: TRUE 1587s [00:53:07.000] - relayed: [n=1] TRUE 1587s [00:53:07.000] - queued futures: [n=1] TRUE 1587s - flush all 1587s [00:53:07.000] - relayed: [n=1] TRUE 1587s [00:53:07.002] - queued futures: [n=1] TRUE 1587s [00:53:07.002] signalConditionsASAP(NULL, pos=0) ... done 1587s [00:53:07.002] resolve() on list ... DONE 1587s [00:53:07.002] - Number of value chunks collected: 1 1587s [00:53:07.002] Resolving 1 futures (chunks) ... DONE 1587s [00:53:07.002] Reducing values from 1 chunks ... 1587s [00:53:07.003] - Number of values collected after concatenation: 4 1587s [00:53:07.003] - Number of values expected: 4 1587s [00:53:07.003] Reducing values from 1 chunks ... DONE 1587s [00:53:07.003] future_lapply() ... DONE 1587s num [1:3, 1:5, 1:4] 100 100 100 200 200 200 300 300 300 400 ... 1587s - attr(*, "dimnames")=List of 3 1587s ..$ : NULL 1587s ..$ : NULL 1587s ..$ : chr [1:4] "A" "B" "C" "D" 1587s [00:53:07.005] future_lapply() ... 1587s [00:53:07.008] Number of chunks: 1 1587s [00:53:07.008] getGlobalsAndPackagesXApply() ... 1587s [00:53:07.008] - future.globals: TRUE 1587s [00:53:07.008] getGlobalsAndPackages() ... 1587s [00:53:07.008] Searching for globals... 1587s [00:53:07.012] - globals found: [16] ‘FUN’, ‘{’, ‘<-’, ‘x_FUN’, ‘if’, ‘!=’, ‘length’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘all’, ‘==’, ‘dim’, ‘%in%’, ‘typeof’, ‘valid_types’ 1587s [00:53:07.012] Searching for globals ... DONE 1587s [00:53:07.012] Resolving globals: FALSE 1587s [00:53:07.013] The total size of the 7 globals is 91.99 KiB (94200 bytes) 1587s [00:53:07.014] The total size of the 7 globals exported for future expression (‘FUN()’) is 91.99 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘stop_if_not’ (44.12 KiB of class ‘function’), ‘stopf’ (26.43 KiB of class ‘function’) and ‘FUN’ (21.22 KiB of class ‘function’) 1587s [00:53:07.014] - globals: [7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1587s [00:53:07.014] - packages: [1] ‘future.apply’ 1587s [00:53:07.014] getGlobalsAndPackages() ... DONE 1587s [00:53:07.014] - globals found/used: [n=7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1587s [00:53:07.015] - needed namespaces: [n=1] ‘future.apply’ 1587s [00:53:07.015] Finding globals ... DONE 1587s [00:53:07.015] - use_args: TRUE 1587s [00:53:07.015] - Getting '...' globals ... 1587s [00:53:07.015] resolve() on list ... 1587s [00:53:07.016] recursive: 0 1587s [00:53:07.016] length: 1 1587s [00:53:07.016] elements: ‘...’ 1587s [00:53:07.016] length: 0 (resolved future 1) 1587s [00:53:07.016] resolve() on list ... DONE 1587s [00:53:07.016] - '...' content: [n=0] 1587s [00:53:07.016] List of 1 1587s [00:53:07.016] $ ...: list() 1587s [00:53:07.016] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1587s [00:53:07.016] - attr(*, "where")=List of 1 1587s [00:53:07.016] ..$ ...: 1587s [00:53:07.016] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1587s [00:53:07.016] - attr(*, "resolved")= logi TRUE 1587s [00:53:07.016] - attr(*, "total_size")= num NA 1587s [00:53:07.019] - Getting '...' globals ... DONE 1587s [00:53:07.019] Globals to be used in all futures (chunks): [n=8] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’ 1587s [00:53:07.020] List of 8 1587s [00:53:07.020] $ ...future.FUN:function (x, ...) 1587s [00:53:07.020] $ x_FUN :function (x) 1587s [00:53:07.020] $ times : int 1 1587s [00:53:07.020] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1587s [00:53:07.020] $ stop_if_not :function (...) 1587s [00:53:07.020] $ dim : NULL 1587s [00:53:07.020] $ valid_types : chr "logical" 1587s [00:53:07.020] $ ... : list() 1587s [00:53:07.020] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1587s [00:53:07.020] - attr(*, "where")=List of 8 1587s [00:53:07.020] ..$ ...future.FUN: 1587s [00:53:07.020] ..$ x_FUN : 1587s [00:53:07.020] ..$ times : 1587s [00:53:07.020] ..$ stopf : 1587s [00:53:07.020] ..$ stop_if_not : 1587s [00:53:07.020] ..$ dim : 1587s [00:53:07.020] ..$ valid_types : 1587s [00:53:07.020] ..$ ... : 1587s [00:53:07.020] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1587s [00:53:07.020] - attr(*, "resolved")= logi FALSE 1587s [00:53:07.020] - attr(*, "total_size")= num 94200 1587s [00:53:07.028] Packages to be attached in all futures: [n=1] ‘future.apply’ 1587s [00:53:07.028] getGlobalsAndPackagesXApply() ... DONE 1587s [00:53:07.028] Number of futures (= number of chunks): 1 1587s [00:53:07.029] Launching 1 futures (chunks) ... 1587s [00:53:07.029] Chunk #1 of 1 ... 1587s [00:53:07.029] - Finding globals in 'X' for chunk #1 ... 1587s [00:53:07.029] getGlobalsAndPackages() ... 1587s [00:53:07.029] Searching for globals... 1587s [00:53:07.030] 1587s [00:53:07.030] Searching for globals ... DONE 1587s [00:53:07.030] - globals: [0] 1587s [00:53:07.030] getGlobalsAndPackages() ... DONE 1587s [00:53:07.030] + additional globals found: [n=0] 1587s [00:53:07.030] + additional namespaces needed: [n=0] 1587s [00:53:07.030] - Finding globals in 'X' for chunk #1 ... DONE 1587s [00:53:07.030] - seeds: 1587s [00:53:07.031] - All globals exported: [n=11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1587s [00:53:07.031] getGlobalsAndPackages() ... 1587s [00:53:07.031] - globals passed as-is: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1587s [00:53:07.031] Resolving globals: FALSE 1587s [00:53:07.031] Tweak future expression to call with '...' arguments ... 1587s [00:53:07.031] { 1587s [00:53:07.031] do.call(function(...) { 1587s [00:53:07.031] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1587s [00:53:07.031] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1587s [00:53:07.031] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1587s [00:53:07.031] on.exit(options(oopts), add = TRUE) 1587s [00:53:07.031] } 1587s [00:53:07.031] { 1587s [00:53:07.031] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1587s [00:53:07.031] ...future.X_jj <- ...future.elements_ii[[jj]] 1587s [00:53:07.031] ...future.FUN(...future.X_jj, ...) 1587s [00:53:07.031] }) 1587s [00:53:07.031] } 1587s [00:53:07.031] }, args = future.call.arguments) 1587s [00:53:07.031] } 1587s [00:53:07.031] Tweak future expression to call with '...' arguments ... DONE 1587s [00:53:07.032] - globals: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1587s [00:53:07.032] - packages: [1] ‘future.apply’ 1587s [00:53:07.032] getGlobalsAndPackages() ... DONE 1587s [00:53:07.033] run() for ‘Future’ ... 1587s [00:53:07.033] - state: ‘created’ 1587s [00:53:07.033] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1587s [00:53:07.033] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1587s [00:53:07.034] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1587s [00:53:07.034] - Field: ‘label’ 1587s [00:53:07.034] - Field: ‘local’ 1587s [00:53:07.034] - Field: ‘owner’ 1587s [00:53:07.035] - Field: ‘envir’ 1587s [00:53:07.035] - Field: ‘packages’ 1587s [00:53:07.035] - Field: ‘gc’ 1587s [00:53:07.035] - Field: ‘conditions’ 1587s [00:53:07.035] - Field: ‘expr’ 1587s [00:53:07.035] - Field: ‘uuid’ 1587s [00:53:07.035] - Field: ‘seed’ 1587s [00:53:07.036] - Field: ‘version’ 1587s [00:53:07.036] - Field: ‘result’ 1587s [00:53:07.036] - Field: ‘asynchronous’ 1587s [00:53:07.036] - Field: ‘calls’ 1587s [00:53:07.036] - Field: ‘globals’ 1587s [00:53:07.036] - Field: ‘stdout’ 1587s [00:53:07.036] - Field: ‘earlySignal’ 1587s [00:53:07.036] - Field: ‘lazy’ 1587s [00:53:07.037] - Field: ‘state’ 1587s [00:53:07.037] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1587s [00:53:07.037] - Launch lazy future ... 1587s [00:53:07.037] Packages needed by the future expression (n = 1): ‘future.apply’ 1587s [00:53:07.037] Packages needed by future strategies (n = 0): 1587s [00:53:07.038] { 1587s [00:53:07.038] { 1587s [00:53:07.038] { 1587s [00:53:07.038] ...future.startTime <- base::Sys.time() 1587s [00:53:07.038] { 1587s [00:53:07.038] { 1587s [00:53:07.038] { 1587s [00:53:07.038] { 1587s [00:53:07.038] base::local({ 1587s [00:53:07.038] has_future <- base::requireNamespace("future", 1587s [00:53:07.038] quietly = TRUE) 1587s [00:53:07.038] if (has_future) { 1587s [00:53:07.038] ns <- base::getNamespace("future") 1587s [00:53:07.038] version <- ns[[".package"]][["version"]] 1587s [00:53:07.038] if (is.null(version)) 1587s [00:53:07.038] version <- utils::packageVersion("future") 1587s [00:53:07.038] } 1587s [00:53:07.038] else { 1587s [00:53:07.038] version <- NULL 1587s [00:53:07.038] } 1587s [00:53:07.038] if (!has_future || version < "1.8.0") { 1587s [00:53:07.038] info <- base::c(r_version = base::gsub("R version ", 1587s [00:53:07.038] "", base::R.version$version.string), 1587s [00:53:07.038] platform = base::sprintf("%s (%s-bit)", 1587s [00:53:07.038] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1587s [00:53:07.038] os = base::paste(base::Sys.info()[base::c("sysname", 1587s [00:53:07.038] "release", "version")], collapse = " "), 1587s [00:53:07.038] hostname = base::Sys.info()[["nodename"]]) 1587s [00:53:07.038] info <- base::sprintf("%s: %s", base::names(info), 1587s [00:53:07.038] info) 1587s [00:53:07.038] info <- base::paste(info, collapse = "; ") 1587s [00:53:07.038] if (!has_future) { 1587s [00:53:07.038] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1587s [00:53:07.038] info) 1587s [00:53:07.038] } 1587s [00:53:07.038] else { 1587s [00:53:07.038] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1587s [00:53:07.038] info, version) 1587s [00:53:07.038] } 1587s [00:53:07.038] base::stop(msg) 1587s [00:53:07.038] } 1587s [00:53:07.038] }) 1587s [00:53:07.038] } 1587s [00:53:07.038] base::local({ 1587s [00:53:07.038] for (pkg in "future.apply") { 1587s [00:53:07.038] base::loadNamespace(pkg) 1587s [00:53:07.038] base::library(pkg, character.only = TRUE) 1587s [00:53:07.038] } 1587s [00:53:07.038] }) 1587s [00:53:07.038] } 1587s [00:53:07.038] options(future.plan = NULL) 1587s [00:53:07.038] Sys.unsetenv("R_FUTURE_PLAN") 1587s [00:53:07.038] future::plan("default", .cleanup = FALSE, .init = FALSE) 1587s [00:53:07.038] } 1587s [00:53:07.038] ...future.workdir <- getwd() 1587s [00:53:07.038] } 1587s [00:53:07.038] ...future.oldOptions <- base::as.list(base::.Options) 1587s [00:53:07.038] ...future.oldEnvVars <- base::Sys.getenv() 1587s [00:53:07.038] } 1587s [00:53:07.038] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1587s [00:53:07.038] future.globals.maxSize = NULL, future.globals.method = NULL, 1587s [00:53:07.038] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1587s [00:53:07.038] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1587s [00:53:07.038] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1587s [00:53:07.038] future.stdout.windows.reencode = NULL, width = 80L) 1587s [00:53:07.038] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1587s [00:53:07.038] base::names(...future.oldOptions)) 1587s [00:53:07.038] } 1587s [00:53:07.038] if (FALSE) { 1587s [00:53:07.038] } 1587s [00:53:07.038] else { 1587s [00:53:07.038] if (TRUE) { 1587s [00:53:07.038] ...future.stdout <- base::rawConnection(base::raw(0L), 1587s [00:53:07.038] open = "w") 1587s [00:53:07.038] } 1587s [00:53:07.038] else { 1587s [00:53:07.038] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1587s [00:53:07.038] windows = "NUL", "/dev/null"), open = "w") 1587s [00:53:07.038] } 1587s [00:53:07.038] base::sink(...future.stdout, type = "output", split = FALSE) 1587s [00:53:07.038] base::on.exit(if (!base::is.null(...future.stdout)) { 1587s [00:53:07.038] base::sink(type = "output", split = FALSE) 1587s [00:53:07.038] base::close(...future.stdout) 1587s [00:53:07.038] }, add = TRUE) 1587s [00:53:07.038] } 1587s [00:53:07.038] ...future.frame <- base::sys.nframe() 1587s [00:53:07.038] ...future.conditions <- base::list() 1587s [00:53:07.038] ...future.rng <- base::globalenv()$.Random.seed 1587s [00:53:07.038] if (FALSE) { 1587s [00:53:07.038] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1587s [00:53:07.038] "...future.value", "...future.globalenv.names", ".Random.seed") 1587s [00:53:07.038] } 1587s [00:53:07.038] ...future.result <- base::tryCatch({ 1587s [00:53:07.038] base::withCallingHandlers({ 1587s [00:53:07.038] ...future.value <- base::withVisible(base::local({ 1587s [00:53:07.038] do.call(function(...) { 1587s [00:53:07.038] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1587s [00:53:07.038] if (!identical(...future.globals.maxSize.org, 1587s [00:53:07.038] ...future.globals.maxSize)) { 1587s [00:53:07.038] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1587s [00:53:07.038] on.exit(options(oopts), add = TRUE) 1587s [00:53:07.038] } 1587s [00:53:07.038] { 1587s [00:53:07.038] lapply(seq_along(...future.elements_ii), 1587s [00:53:07.038] FUN = function(jj) { 1587s [00:53:07.038] ...future.X_jj <- ...future.elements_ii[[jj]] 1587s [00:53:07.038] ...future.FUN(...future.X_jj, ...) 1587s [00:53:07.038] }) 1587s [00:53:07.038] } 1587s [00:53:07.038] }, args = future.call.arguments) 1587s [00:53:07.038] })) 1587s [00:53:07.038] future::FutureResult(value = ...future.value$value, 1587s [00:53:07.038] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1587s [00:53:07.038] ...future.rng), globalenv = if (FALSE) 1587s [00:53:07.038] list(added = base::setdiff(base::names(base::.GlobalEnv), 1587s [00:53:07.038] ...future.globalenv.names)) 1587s [00:53:07.038] else NULL, started = ...future.startTime, version = "1.8") 1587s [00:53:07.038] }, condition = base::local({ 1587s [00:53:07.038] c <- base::c 1587s [00:53:07.038] inherits <- base::inherits 1587s [00:53:07.038] invokeRestart <- base::invokeRestart 1587s [00:53:07.038] length <- base::length 1587s [00:53:07.038] list <- base::list 1587s [00:53:07.038] seq.int <- base::seq.int 1587s [00:53:07.038] signalCondition <- base::signalCondition 1587s [00:53:07.038] sys.calls <- base::sys.calls 1587s [00:53:07.038] `[[` <- base::`[[` 1587s [00:53:07.038] `+` <- base::`+` 1587s [00:53:07.038] `<<-` <- base::`<<-` 1587s [00:53:07.038] sysCalls <- function(calls = sys.calls(), from = 1L) { 1587s [00:53:07.038] calls[seq.int(from = from + 12L, to = length(calls) - 1587s [00:53:07.038] 3L)] 1587s [00:53:07.038] } 1587s [00:53:07.038] function(cond) { 1587s [00:53:07.038] is_error <- inherits(cond, "error") 1587s [00:53:07.038] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1587s [00:53:07.038] NULL) 1587s [00:53:07.038] if (is_error) { 1587s [00:53:07.038] sessionInformation <- function() { 1587s [00:53:07.038] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1587s [00:53:07.038] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1587s [00:53:07.038] search = base::search(), system = base::Sys.info()) 1587s [00:53:07.038] } 1587s [00:53:07.038] ...future.conditions[[length(...future.conditions) + 1587s [00:53:07.038] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1587s [00:53:07.038] cond$call), session = sessionInformation(), 1587s [00:53:07.038] timestamp = base::Sys.time(), signaled = 0L) 1587s [00:53:07.038] signalCondition(cond) 1587s [00:53:07.038] } 1587s [00:53:07.038] else if (!ignore && TRUE && inherits(cond, c("condition", 1587s [00:53:07.038] "immediateCondition"))) { 1587s [00:53:07.038] signal <- TRUE && inherits(cond, "immediateCondition") 1587s [00:53:07.038] ...future.conditions[[length(...future.conditions) + 1587s [00:53:07.038] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1587s [00:53:07.038] if (TRUE && !signal) { 1587s [00:53:07.038] muffleCondition <- function (cond, pattern = "^muffle") 1587s [00:53:07.038] { 1587s [00:53:07.038] inherits <- base::inherits 1587s [00:53:07.038] invokeRestart <- base::invokeRestart 1587s [00:53:07.038] is.null <- base::is.null 1587s [00:53:07.038] muffled <- FALSE 1587s [00:53:07.038] if (inherits(cond, "message")) { 1587s [00:53:07.038] muffled <- grepl(pattern, "muffleMessage") 1587s [00:53:07.038] if (muffled) 1587s [00:53:07.038] invokeRestart("muffleMessage") 1587s [00:53:07.038] } 1587s [00:53:07.038] else if (inherits(cond, "warning")) { 1587s [00:53:07.038] muffled <- grepl(pattern, "muffleWarning") 1587s [00:53:07.038] if (muffled) 1587s [00:53:07.038] invokeRestart("muffleWarning") 1587s [00:53:07.038] } 1587s [00:53:07.038] else if (inherits(cond, "condition")) { 1587s [00:53:07.038] if (!is.null(pattern)) { 1587s [00:53:07.038] computeRestarts <- base::computeRestarts 1587s [00:53:07.038] grepl <- base::grepl 1587s [00:53:07.038] restarts <- computeRestarts(cond) 1587s [00:53:07.038] for (restart in restarts) { 1587s [00:53:07.038] name <- restart$name 1587s [00:53:07.038] if (is.null(name)) 1587s [00:53:07.038] next 1587s [00:53:07.038] if (!grepl(pattern, name)) 1587s [00:53:07.038] next 1587s [00:53:07.038] invokeRestart(restart) 1587s [00:53:07.038] muffled <- TRUE 1587s [00:53:07.038] break 1587s [00:53:07.038] } 1587s [00:53:07.038] } 1587s [00:53:07.038] } 1587s [00:53:07.038] invisible(muffled) 1587s [00:53:07.038] } 1587s [00:53:07.038] muffleCondition(cond, pattern = "^muffle") 1587s [00:53:07.038] } 1587s [00:53:07.038] } 1587s [00:53:07.038] else { 1587s [00:53:07.038] if (TRUE) { 1587s [00:53:07.038] muffleCondition <- function (cond, pattern = "^muffle") 1587s [00:53:07.038] { 1587s [00:53:07.038] inherits <- base::inherits 1587s [00:53:07.038] invokeRestart <- base::invokeRestart 1587s [00:53:07.038] is.null <- base::is.null 1587s [00:53:07.038] muffled <- FALSE 1587s [00:53:07.038] if (inherits(cond, "message")) { 1587s [00:53:07.038] muffled <- grepl(pattern, "muffleMessage") 1587s [00:53:07.038] if (muffled) 1587s [00:53:07.038] invokeRestart("muffleMessage") 1587s [00:53:07.038] } 1587s [00:53:07.038] else if (inherits(cond, "warning")) { 1587s [00:53:07.038] muffled <- grepl(pattern, "muffleWarning") 1587s [00:53:07.038] if (muffled) 1587s [00:53:07.038] invokeRestart("muffleWarning") 1587s [00:53:07.038] } 1587s [00:53:07.038] else if (inherits(cond, "condition")) { 1587s [00:53:07.038] if (!is.null(pattern)) { 1587s [00:53:07.038] computeRestarts <- base::computeRestarts 1587s [00:53:07.038] grepl <- base::grepl 1587s [00:53:07.038] restarts <- computeRestarts(cond) 1587s [00:53:07.038] for (restart in restarts) { 1587s [00:53:07.038] name <- restart$name 1587s [00:53:07.038] if (is.null(name)) 1587s [00:53:07.038] next 1587s [00:53:07.038] if (!grepl(pattern, name)) 1587s [00:53:07.038] next 1587s [00:53:07.038] invokeRestart(restart) 1587s [00:53:07.038] muffled <- TRUE 1587s [00:53:07.038] break 1587s [00:53:07.038] } 1587s [00:53:07.038] } 1587s [00:53:07.038] } 1587s [00:53:07.038] invisible(muffled) 1587s [00:53:07.038] } 1587s [00:53:07.038] muffleCondition(cond, pattern = "^muffle") 1587s [00:53:07.038] } 1587s [00:53:07.038] } 1587s [00:53:07.038] } 1587s [00:53:07.038] })) 1587s [00:53:07.038] }, error = function(ex) { 1587s [00:53:07.038] base::structure(base::list(value = NULL, visible = NULL, 1587s [00:53:07.038] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1587s [00:53:07.038] ...future.rng), started = ...future.startTime, 1587s [00:53:07.038] finished = Sys.time(), session_uuid = NA_character_, 1587s [00:53:07.038] version = "1.8"), class = "FutureResult") 1587s [00:53:07.038] }, finally = { 1587s [00:53:07.038] if (!identical(...future.workdir, getwd())) 1587s [00:53:07.038] setwd(...future.workdir) 1587s [00:53:07.038] { 1587s [00:53:07.038] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1587s [00:53:07.038] ...future.oldOptions$nwarnings <- NULL 1587s [00:53:07.038] } 1587s [00:53:07.038] base::options(...future.oldOptions) 1587s [00:53:07.038] if (.Platform$OS.type == "windows") { 1587s [00:53:07.038] old_names <- names(...future.oldEnvVars) 1587s [00:53:07.038] envs <- base::Sys.getenv() 1587s [00:53:07.038] names <- names(envs) 1587s [00:53:07.038] common <- intersect(names, old_names) 1587s [00:53:07.038] added <- setdiff(names, old_names) 1587s [00:53:07.038] removed <- setdiff(old_names, names) 1587s [00:53:07.038] changed <- common[...future.oldEnvVars[common] != 1587s [00:53:07.038] envs[common]] 1587s [00:53:07.038] NAMES <- toupper(changed) 1587s [00:53:07.038] args <- list() 1587s [00:53:07.038] for (kk in seq_along(NAMES)) { 1587s [00:53:07.038] name <- changed[[kk]] 1587s [00:53:07.038] NAME <- NAMES[[kk]] 1587s [00:53:07.038] if (name != NAME && is.element(NAME, old_names)) 1587s [00:53:07.038] next 1587s [00:53:07.038] args[[name]] <- ...future.oldEnvVars[[name]] 1587s [00:53:07.038] } 1587s [00:53:07.038] NAMES <- toupper(added) 1587s [00:53:07.038] for (kk in seq_along(NAMES)) { 1587s [00:53:07.038] name <- added[[kk]] 1587s [00:53:07.038] NAME <- NAMES[[kk]] 1587s [00:53:07.038] if (name != NAME && is.element(NAME, old_names)) 1587s [00:53:07.038] next 1587s [00:53:07.038] args[[name]] <- "" 1587s [00:53:07.038] } 1587s [00:53:07.038] NAMES <- toupper(removed) 1587s [00:53:07.038] for (kk in seq_along(NAMES)) { 1587s [00:53:07.038] name <- removed[[kk]] 1587s [00:53:07.038] NAME <- NAMES[[kk]] 1587s [00:53:07.038] if (name != NAME && is.element(NAME, old_names)) 1587s [00:53:07.038] next 1587s [00:53:07.038] args[[name]] <- ...future.oldEnvVars[[name]] 1587s [00:53:07.038] } 1587s [00:53:07.038] if (length(args) > 0) 1587s [00:53:07.038] base::do.call(base::Sys.setenv, args = args) 1587s [00:53:07.038] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1587s [00:53:07.038] } 1587s [00:53:07.038] else { 1587s [00:53:07.038] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1587s [00:53:07.038] } 1587s [00:53:07.038] { 1587s [00:53:07.038] if (base::length(...future.futureOptionsAdded) > 1587s [00:53:07.038] 0L) { 1587s [00:53:07.038] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1587s [00:53:07.038] base::names(opts) <- ...future.futureOptionsAdded 1587s [00:53:07.038] base::options(opts) 1587s [00:53:07.038] } 1587s [00:53:07.038] { 1587s [00:53:07.038] { 1587s [00:53:07.038] NULL 1587s [00:53:07.038] RNGkind("Mersenne-Twister") 1587s [00:53:07.038] base::rm(list = ".Random.seed", envir = base::globalenv(), 1587s [00:53:07.038] inherits = FALSE) 1587s [00:53:07.038] } 1587s [00:53:07.038] options(future.plan = NULL) 1587s [00:53:07.038] if (is.na(NA_character_)) 1587s [00:53:07.038] Sys.unsetenv("R_FUTURE_PLAN") 1587s [00:53:07.038] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1587s [00:53:07.038] future::plan(list(function (..., envir = parent.frame()) 1587s [00:53:07.038] { 1587s [00:53:07.038] future <- SequentialFuture(..., envir = envir) 1587s [00:53:07.038] if (!future$lazy) 1587s [00:53:07.038] future <- run(future) 1587s [00:53:07.038] invisible(future) 1587s [00:53:07.038] }), .cleanup = FALSE, .init = FALSE) 1587s [00:53:07.038] } 1587s [00:53:07.038] } 1587s [00:53:07.038] } 1587s [00:53:07.038] }) 1587s [00:53:07.038] if (TRUE) { 1587s [00:53:07.038] base::sink(type = "output", split = FALSE) 1587s [00:53:07.038] if (TRUE) { 1587s [00:53:07.038] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1587s [00:53:07.038] } 1587s [00:53:07.038] else { 1587s [00:53:07.038] ...future.result["stdout"] <- base::list(NULL) 1587s [00:53:07.038] } 1587s [00:53:07.038] base::close(...future.stdout) 1587s [00:53:07.038] ...future.stdout <- NULL 1587s [00:53:07.038] } 1587s [00:53:07.038] ...future.result$conditions <- ...future.conditions 1587s [00:53:07.038] ...future.result$finished <- base::Sys.time() 1587s [00:53:07.038] ...future.result 1587s [00:53:07.038] } 1587s [00:53:07.046] assign_globals() ... 1587s [00:53:07.046] List of 11 1587s [00:53:07.046] $ ...future.FUN :function (x, ...) 1587s [00:53:07.046] $ x_FUN :function (x) 1587s [00:53:07.046] $ times : int 1 1587s [00:53:07.046] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1587s [00:53:07.046] $ stop_if_not :function (...) 1587s [00:53:07.046] $ dim : NULL 1587s [00:53:07.046] $ valid_types : chr "logical" 1587s [00:53:07.046] $ future.call.arguments : list() 1587s [00:53:07.046] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1587s [00:53:07.046] $ ...future.elements_ii :List of 11 1587s [00:53:07.046] ..$ mpg : num [1:32] 21 21 22.8 21.4 18.7 18.1 14.3 24.4 22.8 19.2 ... 1587s [00:53:07.046] ..$ cyl : num [1:32] 6 6 4 6 8 6 8 4 4 6 ... 1587s [00:53:07.046] ..$ disp: num [1:32] 160 160 108 258 360 ... 1587s [00:53:07.046] ..$ hp : num [1:32] 110 110 93 110 175 105 245 62 95 123 ... 1587s [00:53:07.046] ..$ drat: num [1:32] 3.9 3.9 3.85 3.08 3.15 2.76 3.21 3.69 3.92 3.92 ... 1587s [00:53:07.046] ..$ wt : num [1:32] 2.62 2.88 2.32 3.21 3.44 ... 1587s [00:53:07.046] ..$ qsec: num [1:32] 16.5 17 18.6 19.4 17 ... 1587s [00:53:07.046] ..$ vs : num [1:32] 0 0 1 1 0 1 0 1 1 1 ... 1587s [00:53:07.046] ..$ am : num [1:32] 1 1 1 0 0 0 0 0 0 0 ... 1587s [00:53:07.046] ..$ gear: num [1:32] 4 4 4 3 3 3 3 4 4 4 ... 1587s [00:53:07.046] ..$ carb: num [1:32] 4 4 1 1 2 1 4 2 2 4 ... 1587s [00:53:07.046] $ ...future.seeds_ii : NULL 1587s [00:53:07.046] $ ...future.globals.maxSize: NULL 1587s [00:53:07.046] - attr(*, "where")=List of 11 1587s [00:53:07.046] ..$ ...future.FUN : 1587s [00:53:07.046] ..$ x_FUN : 1587s [00:53:07.046] ..$ times : 1587s [00:53:07.046] ..$ stopf : 1587s [00:53:07.046] ..$ stop_if_not : 1587s [00:53:07.046] ..$ dim : 1587s [00:53:07.046] ..$ valid_types : 1587s [00:53:07.046] ..$ future.call.arguments : 1587s [00:53:07.046] ..$ ...future.elements_ii : 1587s [00:53:07.046] ..$ ...future.seeds_ii : 1587s [00:53:07.046] ..$ ...future.globals.maxSize: 1587s [00:53:07.046] - attr(*, "resolved")= logi FALSE 1587s [00:53:07.046] - attr(*, "total_size")= num 94200 1587s [00:53:07.046] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1587s [00:53:07.046] - attr(*, "already-done")= logi TRUE 1587s [00:53:07.060] - copied ‘...future.FUN’ to environment 1587s [00:53:07.060] - copied ‘x_FUN’ to environment 1587s [00:53:07.061] - copied ‘times’ to environment 1587s [00:53:07.061] - copied ‘stopf’ to environment 1587s [00:53:07.061] - copied ‘stop_if_not’ to environment 1587s [00:53:07.061] - copied ‘dim’ to environment 1587s [00:53:07.061] - copied ‘valid_types’ to environment 1587s [00:53:07.061] - copied ‘future.call.arguments’ to environment 1587s [00:53:07.061] - copied ‘...future.elements_ii’ to environment 1587s [00:53:07.062] - copied ‘...future.seeds_ii’ to environment 1587s [00:53:07.063] - copied ‘...future.globals.maxSize’ to environment 1587s [00:53:07.063] assign_globals() ... done 1587s [00:53:07.064] plan(): Setting new future strategy stack: 1587s [00:53:07.064] List of future strategies: 1587s [00:53:07.064] 1. sequential: 1587s [00:53:07.064] - args: function (..., envir = parent.frame()) 1587s [00:53:07.064] - tweaked: FALSE 1587s [00:53:07.064] - call: NULL 1587s [00:53:07.065] plan(): nbrOfWorkers() = 1 1587s [00:53:07.065] plan(): Setting new future strategy stack: 1587s [00:53:07.065] List of future strategies: 1587s [00:53:07.065] 1. sequential: 1587s [00:53:07.065] - args: function (..., envir = parent.frame()) 1587s [00:53:07.065] - tweaked: FALSE 1587s [00:53:07.065] - call: plan(strategy) 1587s [00:53:07.066] plan(): nbrOfWorkers() = 1 1587s [00:53:07.066] SequentialFuture started (and completed) 1587s [00:53:07.066] - Launch lazy future ... done 1587s [00:53:07.066] run() for ‘SequentialFuture’ ... done 1587s [00:53:07.067] Created future: 1587s [00:53:07.067] SequentialFuture: 1587s [00:53:07.067] Label: ‘future_vapply-1’ 1587s [00:53:07.067] Expression: 1587s [00:53:07.067] { 1587s [00:53:07.067] do.call(function(...) { 1587s [00:53:07.067] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1587s [00:53:07.067] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1587s [00:53:07.067] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1587s [00:53:07.067] on.exit(options(oopts), add = TRUE) 1587s [00:53:07.067] } 1587s [00:53:07.067] { 1587s [00:53:07.067] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1587s [00:53:07.067] ...future.X_jj <- ...future.elements_ii[[jj]] 1587s [00:53:07.067] ...future.FUN(...future.X_jj, ...) 1587s [00:53:07.067] }) 1587s [00:53:07.067] } 1587s [00:53:07.067] }, args = future.call.arguments) 1587s [00:53:07.067] } 1587s [00:53:07.067] Lazy evaluation: FALSE 1587s [00:53:07.067] Asynchronous evaluation: FALSE 1587s [00:53:07.067] Local evaluation: TRUE 1587s [00:53:07.067] Environment: R_GlobalEnv 1587s [00:53:07.067] Capture standard output: TRUE 1587s [00:53:07.067] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1587s [00:53:07.067] Globals: 11 objects totaling 95.26 KiB (function ‘...future.FUN’ of 21.22 KiB, function ‘x_FUN’ of 56 bytes, integer ‘times’ of 56 bytes, function ‘stopf’ of 26.43 KiB, function ‘stop_if_not’ of 44.12 KiB, ...) 1587s [00:53:07.067] Packages: 1 packages (‘future.apply’) 1587s [00:53:07.067] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1587s [00:53:07.067] Resolved: TRUE 1587s [00:53:07.067] Value: 616 bytes of class ‘list’ 1587s [00:53:07.067] Early signaling: FALSE 1587s [00:53:07.067] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1587s [00:53:07.067] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1587s [00:53:07.069] Chunk #1 of 1 ... DONE 1587s [00:53:07.069] Launching 1 futures (chunks) ... DONE 1587s [00:53:07.069] Resolving 1 futures (chunks) ... 1587s [00:53:07.069] resolve() on list ... 1587s [00:53:07.069] recursive: 0 1587s [00:53:07.069] length: 1 1587s [00:53:07.069] 1587s [00:53:07.070] resolved() for ‘SequentialFuture’ ... 1587s [00:53:07.070] - state: ‘finished’ 1587s [00:53:07.070] - run: TRUE 1587s [00:53:07.071] - result: ‘FutureResult’ 1587s [00:53:07.071] resolved() for ‘SequentialFuture’ ... done 1587s [00:53:07.071] Future #1 1587s [00:53:07.071] signalConditionsASAP(SequentialFuture, pos=1) ... 1587s [00:53:07.071] - nx: 1 1587s [00:53:07.072] - relay: TRUE 1587s [00:53:07.072] - stdout: TRUE 1587s [00:53:07.072] - signal: TRUE 1587s [00:53:07.072] - resignal: FALSE 1587s [00:53:07.072] - force: TRUE 1587s [00:53:07.072] - relayed: [n=1] FALSE 1587s [00:53:07.072] - queued futures: [n=1] FALSE 1587s [00:53:07.073] - until=1 1587s [00:53:07.073] - relaying element #1 1587s [00:53:07.073] - relayed: [n=1] TRUE 1587s [00:53:07.073] - queued futures: [n=1] TRUE 1587s [00:53:07.073] signalConditionsASAP(SequentialFuture, pos=1) ... done 1587s [00:53:07.073] length: 0 (resolved future 1) 1587s [00:53:07.074] Relaying remaining futures 1587s [00:53:07.074] signalConditionsASAP(NULL, pos=0) ... 1587s [00:53:07.074] - nx: 1 1587s [00:53:07.074] - relay: TRUE 1587s [00:53:07.074] - stdout: TRUE 1587s [00:53:07.074] - signal: TRUE 1587s [00:53:07.074] - resignal: FALSE 1587s [00:53:07.075] - force: TRUE 1587s [00:53:07.075] - relayed: [n=1] TRUE 1587s [00:53:07.075] - queued futures: [n=1] TRUE 1587s - flush all 1587s [00:53:07.075] - relayed: [n=1] TRUE 1587s [00:53:07.075] - queued futures: [n=1] TRUE 1587s [00:53:07.075] signalConditionsASAP(NULL, pos=0) ... done 1587s [00:53:07.075] resolve() on list ... DONE 1587s [00:53:07.076] - Number of value chunks collected: 1 1587s [00:53:07.076] Resolving 1 futures (chunks) ... DONE 1587s [00:53:07.076] Reducing values from 1 chunks ... 1587s [00:53:07.076] - Number of values collected after concatenation: 11 1587s [00:53:07.076] - Number of values expected: 11 1587s [00:53:07.076] Reducing values from 1 chunks ... DONE 1587s [00:53:07.077] future_lapply() ... DONE 1587s Named logi [1:11] TRUE TRUE TRUE TRUE TRUE TRUE ... 1587s - attr(*, "names")= chr [1:11] "mpg" "cyl" "disp" "hp" ... 1587s - future_vapply(x, ...) where length(x) != length(as.list(x)) ... 1587s [00:53:07.078] future_lapply() ... 1587s [00:53:07.081] Number of chunks: 1 1587s [00:53:07.081] getGlobalsAndPackagesXApply() ... 1587s [00:53:07.081] - future.globals: TRUE 1587s [00:53:07.081] getGlobalsAndPackages() ... 1587s [00:53:07.082] Searching for globals... 1587s [00:53:07.086] - globals found: [16] ‘FUN’, ‘{’, ‘<-’, ‘x_FUN’, ‘if’, ‘!=’, ‘length’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘all’, ‘==’, ‘dim’, ‘%in%’, ‘typeof’, ‘valid_types’ 1587s [00:53:07.086] Searching for globals ... DONE 1587s [00:53:07.087] Resolving globals: FALSE 1587s [00:53:07.088] The total size of the 7 globals is 92.05 KiB (94264 bytes) 1587s [00:53:07.088] The total size of the 7 globals exported for future expression (‘FUN()’) is 92.05 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘stop_if_not’ (44.12 KiB of class ‘function’), ‘stopf’ (26.43 KiB of class ‘function’) and ‘FUN’ (21.22 KiB of class ‘function’) 1587s [00:53:07.088] - globals: [7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1587s [00:53:07.089] - packages: [1] ‘future.apply’ 1587s [00:53:07.089] getGlobalsAndPackages() ... DONE 1587s [00:53:07.089] - globals found/used: [n=7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1587s [00:53:07.089] - needed namespaces: [n=1] ‘future.apply’ 1587s [00:53:07.089] Finding globals ... DONE 1587s [00:53:07.089] - use_args: TRUE 1587s [00:53:07.089] - Getting '...' globals ... 1587s [00:53:07.090] resolve() on list ... 1587s [00:53:07.090] recursive: 0 1587s [00:53:07.090] length: 1 1587s [00:53:07.091] elements: ‘...’ 1587s [00:53:07.091] length: 0 (resolved future 1) 1587s [00:53:07.091] resolve() on list ... DONE 1587s [00:53:07.091] - '...' content: [n=0] 1587s [00:53:07.092] List of 1 1587s [00:53:07.092] $ ...: list() 1587s [00:53:07.092] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1587s [00:53:07.092] - attr(*, "where")=List of 1 1587s [00:53:07.092] ..$ ...: 1587s [00:53:07.092] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1587s [00:53:07.092] - attr(*, "resolved")= logi TRUE 1587s [00:53:07.092] - attr(*, "total_size")= num NA 1587s [00:53:07.097] - Getting '...' globals ... DONE 1587s [00:53:07.097] Globals to be used in all futures (chunks): [n=8] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’ 1587s [00:53:07.097] List of 8 1587s [00:53:07.097] $ ...future.FUN:function (x, ...) 1587s [00:53:07.097] $ x_FUN :function (x) 1587s [00:53:07.097] $ times : int 1 1587s [00:53:07.097] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1587s [00:53:07.097] $ stop_if_not :function (...) 1587s [00:53:07.097] $ dim : NULL 1587s [00:53:07.097] $ valid_types : chr [1:2] "logical" "integer" 1587s [00:53:07.097] $ ... : list() 1587s [00:53:07.097] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1587s [00:53:07.097] - attr(*, "where")=List of 8 1587s [00:53:07.097] ..$ ...future.FUN: 1587s [00:53:07.097] ..$ x_FUN : 1587s [00:53:07.097] ..$ times : 1587s [00:53:07.097] ..$ stopf : 1587s [00:53:07.097] ..$ stop_if_not : 1587s [00:53:07.097] ..$ dim : 1587s [00:53:07.097] ..$ valid_types : 1587s [00:53:07.097] ..$ ... : 1587s [00:53:07.097] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1587s [00:53:07.097] - attr(*, "resolved")= logi FALSE 1587s [00:53:07.097] - attr(*, "total_size")= num 94264 1587s [00:53:07.106] Packages to be attached in all futures: [n=1] ‘future.apply’ 1587s [00:53:07.106] getGlobalsAndPackagesXApply() ... DONE 1587s [00:53:07.107] Number of futures (= number of chunks): 1 1587s [00:53:07.107] Launching 1 futures (chunks) ... 1587s [00:53:07.108] Chunk #1 of 1 ... 1587s [00:53:07.108] - Finding globals in 'X' for chunk #1 ... 1587s [00:53:07.108] getGlobalsAndPackages() ... 1587s [00:53:07.109] Searching for globals... 1587s [00:53:07.109] 1587s [00:53:07.109] Searching for globals ... DONE 1587s [00:53:07.109] - globals: [0] 1587s [00:53:07.110] getGlobalsAndPackages() ... DONE 1587s [00:53:07.110] + additional globals found: [n=0] 1587s [00:53:07.110] + additional namespaces needed: [n=0] 1587s [00:53:07.110] - Finding globals in 'X' for chunk #1 ... DONE 1587s [00:53:07.110] - seeds: 1587s [00:53:07.110] - All globals exported: [n=11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1587s [00:53:07.111] getGlobalsAndPackages() ... 1587s [00:53:07.111] - globals passed as-is: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1587s [00:53:07.111] Resolving globals: FALSE 1587s [00:53:07.111] Tweak future expression to call with '...' arguments ... 1587s [00:53:07.111] { 1587s [00:53:07.111] do.call(function(...) { 1587s [00:53:07.111] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1587s [00:53:07.111] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1587s [00:53:07.111] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1587s [00:53:07.111] on.exit(options(oopts), add = TRUE) 1587s [00:53:07.111] } 1587s [00:53:07.111] { 1587s [00:53:07.111] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1587s [00:53:07.111] ...future.X_jj <- ...future.elements_ii[[jj]] 1587s [00:53:07.111] ...future.FUN(...future.X_jj, ...) 1587s [00:53:07.111] }) 1587s [00:53:07.111] } 1587s [00:53:07.111] }, args = future.call.arguments) 1587s [00:53:07.111] } 1587s [00:53:07.112] Tweak future expression to call with '...' arguments ... DONE 1587s [00:53:07.112] - globals: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1587s [00:53:07.112] - packages: [1] ‘future.apply’ 1587s [00:53:07.113] getGlobalsAndPackages() ... DONE 1587s [00:53:07.113] run() for ‘Future’ ... 1587s [00:53:07.113] - state: ‘created’ 1587s [00:53:07.113] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1587s [00:53:07.113] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1587s [00:53:07.114] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1587s [00:53:07.114] - Field: ‘label’ 1587s [00:53:07.114] - Field: ‘local’ 1587s [00:53:07.114] - Field: ‘owner’ 1587s [00:53:07.114] - Field: ‘envir’ 1587s [00:53:07.114] - Field: ‘packages’ 1587s [00:53:07.114] - Field: ‘gc’ 1587s [00:53:07.114] - Field: ‘conditions’ 1587s [00:53:07.115] - Field: ‘expr’ 1587s [00:53:07.115] - Field: ‘uuid’ 1587s [00:53:07.115] - Field: ‘seed’ 1587s [00:53:07.115] - Field: ‘version’ 1587s [00:53:07.115] - Field: ‘result’ 1587s [00:53:07.115] - Field: ‘asynchronous’ 1587s [00:53:07.115] - Field: ‘calls’ 1587s [00:53:07.115] - Field: ‘globals’ 1587s [00:53:07.115] - Field: ‘stdout’ 1587s [00:53:07.116] - Field: ‘earlySignal’ 1587s [00:53:07.116] - Field: ‘lazy’ 1587s [00:53:07.116] - Field: ‘state’ 1587s [00:53:07.116] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1587s [00:53:07.116] - Launch lazy future ... 1587s [00:53:07.116] Packages needed by the future expression (n = 1): ‘future.apply’ 1587s [00:53:07.116] Packages needed by future strategies (n = 0): 1587s [00:53:07.117] { 1587s [00:53:07.117] { 1587s [00:53:07.117] { 1587s [00:53:07.117] ...future.startTime <- base::Sys.time() 1587s [00:53:07.117] { 1587s [00:53:07.117] { 1587s [00:53:07.117] { 1587s [00:53:07.117] { 1587s [00:53:07.117] base::local({ 1587s [00:53:07.117] has_future <- base::requireNamespace("future", 1587s [00:53:07.117] quietly = TRUE) 1587s [00:53:07.117] if (has_future) { 1587s [00:53:07.117] ns <- base::getNamespace("future") 1587s [00:53:07.117] version <- ns[[".package"]][["version"]] 1587s [00:53:07.117] if (is.null(version)) 1587s [00:53:07.117] version <- utils::packageVersion("future") 1587s [00:53:07.117] } 1587s [00:53:07.117] else { 1587s [00:53:07.117] version <- NULL 1587s [00:53:07.117] } 1587s [00:53:07.117] if (!has_future || version < "1.8.0") { 1587s [00:53:07.117] info <- base::c(r_version = base::gsub("R version ", 1587s [00:53:07.117] "", base::R.version$version.string), 1587s [00:53:07.117] platform = base::sprintf("%s (%s-bit)", 1587s [00:53:07.117] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1587s [00:53:07.117] os = base::paste(base::Sys.info()[base::c("sysname", 1587s [00:53:07.117] "release", "version")], collapse = " "), 1587s [00:53:07.117] hostname = base::Sys.info()[["nodename"]]) 1587s [00:53:07.117] info <- base::sprintf("%s: %s", base::names(info), 1587s [00:53:07.117] info) 1587s [00:53:07.117] info <- base::paste(info, collapse = "; ") 1587s [00:53:07.117] if (!has_future) { 1587s [00:53:07.117] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1587s [00:53:07.117] info) 1587s [00:53:07.117] } 1587s [00:53:07.117] else { 1587s [00:53:07.117] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1587s [00:53:07.117] info, version) 1587s [00:53:07.117] } 1587s [00:53:07.117] base::stop(msg) 1587s [00:53:07.117] } 1587s [00:53:07.117] }) 1587s [00:53:07.117] } 1587s [00:53:07.117] base::local({ 1587s [00:53:07.117] for (pkg in "future.apply") { 1587s [00:53:07.117] base::loadNamespace(pkg) 1587s [00:53:07.117] base::library(pkg, character.only = TRUE) 1587s [00:53:07.117] } 1587s [00:53:07.117] }) 1587s [00:53:07.117] } 1587s [00:53:07.117] options(future.plan = NULL) 1587s [00:53:07.117] Sys.unsetenv("R_FUTURE_PLAN") 1587s [00:53:07.117] future::plan("default", .cleanup = FALSE, .init = FALSE) 1587s [00:53:07.117] } 1587s [00:53:07.117] ...future.workdir <- getwd() 1587s [00:53:07.117] } 1587s [00:53:07.117] ...future.oldOptions <- base::as.list(base::.Options) 1587s [00:53:07.117] ...future.oldEnvVars <- base::Sys.getenv() 1587s [00:53:07.117] } 1587s [00:53:07.117] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1587s [00:53:07.117] future.globals.maxSize = NULL, future.globals.method = NULL, 1587s [00:53:07.117] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1587s [00:53:07.117] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1587s [00:53:07.117] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1587s [00:53:07.117] future.stdout.windows.reencode = NULL, width = 80L) 1587s [00:53:07.117] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1587s [00:53:07.117] base::names(...future.oldOptions)) 1587s [00:53:07.117] } 1587s [00:53:07.117] if (FALSE) { 1587s [00:53:07.117] } 1587s [00:53:07.117] else { 1587s [00:53:07.117] if (TRUE) { 1587s [00:53:07.117] ...future.stdout <- base::rawConnection(base::raw(0L), 1587s [00:53:07.117] open = "w") 1587s [00:53:07.117] } 1587s [00:53:07.117] else { 1587s [00:53:07.117] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1587s [00:53:07.117] windows = "NUL", "/dev/null"), open = "w") 1587s [00:53:07.117] } 1587s [00:53:07.117] base::sink(...future.stdout, type = "output", split = FALSE) 1587s [00:53:07.117] base::on.exit(if (!base::is.null(...future.stdout)) { 1587s [00:53:07.117] base::sink(type = "output", split = FALSE) 1587s [00:53:07.117] base::close(...future.stdout) 1587s [00:53:07.117] }, add = TRUE) 1587s [00:53:07.117] } 1587s [00:53:07.117] ...future.frame <- base::sys.nframe() 1587s [00:53:07.117] ...future.conditions <- base::list() 1587s [00:53:07.117] ...future.rng <- base::globalenv()$.Random.seed 1587s [00:53:07.117] if (FALSE) { 1587s [00:53:07.117] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1587s [00:53:07.117] "...future.value", "...future.globalenv.names", ".Random.seed") 1587s [00:53:07.117] } 1587s [00:53:07.117] ...future.result <- base::tryCatch({ 1587s [00:53:07.117] base::withCallingHandlers({ 1587s [00:53:07.117] ...future.value <- base::withVisible(base::local({ 1587s [00:53:07.117] do.call(function(...) { 1587s [00:53:07.117] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1587s [00:53:07.117] if (!identical(...future.globals.maxSize.org, 1587s [00:53:07.117] ...future.globals.maxSize)) { 1587s [00:53:07.117] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1587s [00:53:07.117] on.exit(options(oopts), add = TRUE) 1587s [00:53:07.117] } 1587s [00:53:07.117] { 1587s [00:53:07.117] lapply(seq_along(...future.elements_ii), 1587s [00:53:07.117] FUN = function(jj) { 1587s [00:53:07.117] ...future.X_jj <- ...future.elements_ii[[jj]] 1587s [00:53:07.117] ...future.FUN(...future.X_jj, ...) 1587s [00:53:07.117] }) 1587s [00:53:07.117] } 1587s [00:53:07.117] }, args = future.call.arguments) 1587s [00:53:07.117] })) 1587s [00:53:07.117] future::FutureResult(value = ...future.value$value, 1587s [00:53:07.117] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1587s [00:53:07.117] ...future.rng), globalenv = if (FALSE) 1587s [00:53:07.117] list(added = base::setdiff(base::names(base::.GlobalEnv), 1587s [00:53:07.117] ...future.globalenv.names)) 1587s [00:53:07.117] else NULL, started = ...future.startTime, version = "1.8") 1587s [00:53:07.117] }, condition = base::local({ 1587s [00:53:07.117] c <- base::c 1587s [00:53:07.117] inherits <- base::inherits 1587s [00:53:07.117] invokeRestart <- base::invokeRestart 1587s [00:53:07.117] length <- base::length 1587s [00:53:07.117] list <- base::list 1587s [00:53:07.117] seq.int <- base::seq.int 1587s [00:53:07.117] signalCondition <- base::signalCondition 1587s [00:53:07.117] sys.calls <- base::sys.calls 1587s [00:53:07.117] `[[` <- base::`[[` 1587s [00:53:07.117] `+` <- base::`+` 1587s [00:53:07.117] `<<-` <- base::`<<-` 1587s [00:53:07.117] sysCalls <- function(calls = sys.calls(), from = 1L) { 1587s [00:53:07.117] calls[seq.int(from = from + 12L, to = length(calls) - 1587s [00:53:07.117] 3L)] 1587s [00:53:07.117] } 1587s [00:53:07.117] function(cond) { 1587s [00:53:07.117] is_error <- inherits(cond, "error") 1587s [00:53:07.117] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1587s [00:53:07.117] NULL) 1587s [00:53:07.117] if (is_error) { 1587s [00:53:07.117] sessionInformation <- function() { 1587s [00:53:07.117] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1587s [00:53:07.117] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1587s [00:53:07.117] search = base::search(), system = base::Sys.info()) 1587s [00:53:07.117] } 1587s [00:53:07.117] ...future.conditions[[length(...future.conditions) + 1587s [00:53:07.117] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1587s [00:53:07.117] cond$call), session = sessionInformation(), 1587s [00:53:07.117] timestamp = base::Sys.time(), signaled = 0L) 1587s [00:53:07.117] signalCondition(cond) 1587s [00:53:07.117] } 1587s [00:53:07.117] else if (!ignore && TRUE && inherits(cond, c("condition", 1587s [00:53:07.117] "immediateCondition"))) { 1587s [00:53:07.117] signal <- TRUE && inherits(cond, "immediateCondition") 1587s [00:53:07.117] ...future.conditions[[length(...future.conditions) + 1587s [00:53:07.117] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1587s [00:53:07.117] if (TRUE && !signal) { 1587s [00:53:07.117] muffleCondition <- function (cond, pattern = "^muffle") 1587s [00:53:07.117] { 1587s [00:53:07.117] inherits <- base::inherits 1587s [00:53:07.117] invokeRestart <- base::invokeRestart 1587s [00:53:07.117] is.null <- base::is.null 1587s [00:53:07.117] muffled <- FALSE 1587s [00:53:07.117] if (inherits(cond, "message")) { 1587s [00:53:07.117] muffled <- grepl(pattern, "muffleMessage") 1587s [00:53:07.117] if (muffled) 1587s [00:53:07.117] invokeRestart("muffleMessage") 1587s [00:53:07.117] } 1587s [00:53:07.117] else if (inherits(cond, "warning")) { 1587s [00:53:07.117] muffled <- grepl(pattern, "muffleWarning") 1587s [00:53:07.117] if (muffled) 1587s [00:53:07.117] invokeRestart("muffleWarning") 1587s [00:53:07.117] } 1587s [00:53:07.117] else if (inherits(cond, "condition")) { 1587s [00:53:07.117] if (!is.null(pattern)) { 1587s [00:53:07.117] computeRestarts <- base::computeRestarts 1587s [00:53:07.117] grepl <- base::grepl 1587s [00:53:07.117] restarts <- computeRestarts(cond) 1587s [00:53:07.117] for (restart in restarts) { 1587s [00:53:07.117] name <- restart$name 1587s [00:53:07.117] if (is.null(name)) 1587s [00:53:07.117] next 1587s [00:53:07.117] if (!grepl(pattern, name)) 1587s [00:53:07.117] next 1587s [00:53:07.117] invokeRestart(restart) 1587s [00:53:07.117] muffled <- TRUE 1587s [00:53:07.117] break 1587s [00:53:07.117] } 1587s [00:53:07.117] } 1587s [00:53:07.117] } 1587s [00:53:07.117] invisible(muffled) 1587s [00:53:07.117] } 1587s [00:53:07.117] muffleCondition(cond, pattern = "^muffle") 1587s [00:53:07.117] } 1587s [00:53:07.117] } 1587s [00:53:07.117] else { 1587s [00:53:07.117] if (TRUE) { 1587s [00:53:07.117] muffleCondition <- function (cond, pattern = "^muffle") 1587s [00:53:07.117] { 1587s [00:53:07.117] inherits <- base::inherits 1587s [00:53:07.117] invokeRestart <- base::invokeRestart 1587s [00:53:07.117] is.null <- base::is.null 1587s [00:53:07.117] muffled <- FALSE 1587s [00:53:07.117] if (inherits(cond, "message")) { 1587s [00:53:07.117] muffled <- grepl(pattern, "muffleMessage") 1587s [00:53:07.117] if (muffled) 1587s [00:53:07.117] invokeRestart("muffleMessage") 1587s [00:53:07.117] } 1587s [00:53:07.117] else if (inherits(cond, "warning")) { 1587s [00:53:07.117] muffled <- grepl(pattern, "muffleWarning") 1587s [00:53:07.117] if (muffled) 1587s [00:53:07.117] invokeRestart("muffleWarning") 1587s [00:53:07.117] } 1587s [00:53:07.117] else if (inherits(cond, "condition")) { 1587s [00:53:07.117] if (!is.null(pattern)) { 1587s [00:53:07.117] computeRestarts <- base::computeRestarts 1587s [00:53:07.117] grepl <- base::grepl 1587s [00:53:07.117] restarts <- computeRestarts(cond) 1587s [00:53:07.117] for (restart in restarts) { 1587s [00:53:07.117] name <- restart$name 1587s [00:53:07.117] if (is.null(name)) 1587s [00:53:07.117] next 1587s [00:53:07.117] if (!grepl(pattern, name)) 1587s [00:53:07.117] next 1587s [00:53:07.117] invokeRestart(restart) 1587s [00:53:07.117] muffled <- TRUE 1587s [00:53:07.117] break 1587s [00:53:07.117] } 1587s [00:53:07.117] } 1587s [00:53:07.117] } 1587s [00:53:07.117] invisible(muffled) 1587s [00:53:07.117] } 1587s [00:53:07.117] muffleCondition(cond, pattern = "^muffle") 1587s [00:53:07.117] } 1587s [00:53:07.117] } 1587s [00:53:07.117] } 1587s [00:53:07.117] })) 1587s [00:53:07.117] }, error = function(ex) { 1587s [00:53:07.117] base::structure(base::list(value = NULL, visible = NULL, 1587s [00:53:07.117] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1587s [00:53:07.117] ...future.rng), started = ...future.startTime, 1587s [00:53:07.117] finished = Sys.time(), session_uuid = NA_character_, 1587s [00:53:07.117] version = "1.8"), class = "FutureResult") 1587s [00:53:07.117] }, finally = { 1587s [00:53:07.117] if (!identical(...future.workdir, getwd())) 1587s [00:53:07.117] setwd(...future.workdir) 1587s [00:53:07.117] { 1587s [00:53:07.117] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1587s [00:53:07.117] ...future.oldOptions$nwarnings <- NULL 1587s [00:53:07.117] } 1587s [00:53:07.117] base::options(...future.oldOptions) 1587s [00:53:07.117] if (.Platform$OS.type == "windows") { 1587s [00:53:07.117] old_names <- names(...future.oldEnvVars) 1587s [00:53:07.117] envs <- base::Sys.getenv() 1587s [00:53:07.117] names <- names(envs) 1587s [00:53:07.117] common <- intersect(names, old_names) 1587s [00:53:07.117] added <- setdiff(names, old_names) 1587s [00:53:07.117] removed <- setdiff(old_names, names) 1587s [00:53:07.117] changed <- common[...future.oldEnvVars[common] != 1587s [00:53:07.117] envs[common]] 1587s [00:53:07.117] NAMES <- toupper(changed) 1587s [00:53:07.117] args <- list() 1587s [00:53:07.117] for (kk in seq_along(NAMES)) { 1587s [00:53:07.117] name <- changed[[kk]] 1587s [00:53:07.117] NAME <- NAMES[[kk]] 1587s [00:53:07.117] if (name != NAME && is.element(NAME, old_names)) 1587s [00:53:07.117] next 1587s [00:53:07.117] args[[name]] <- ...future.oldEnvVars[[name]] 1587s [00:53:07.117] } 1587s [00:53:07.117] NAMES <- toupper(added) 1587s [00:53:07.117] for (kk in seq_along(NAMES)) { 1587s [00:53:07.117] name <- added[[kk]] 1587s [00:53:07.117] NAME <- NAMES[[kk]] 1587s [00:53:07.117] if (name != NAME && is.element(NAME, old_names)) 1587s [00:53:07.117] next 1587s [00:53:07.117] args[[name]] <- "" 1587s [00:53:07.117] } 1587s [00:53:07.117] NAMES <- toupper(removed) 1587s [00:53:07.117] for (kk in seq_along(NAMES)) { 1587s [00:53:07.117] name <- removed[[kk]] 1587s [00:53:07.117] NAME <- NAMES[[kk]] 1587s [00:53:07.117] if (name != NAME && is.element(NAME, old_names)) 1587s [00:53:07.117] next 1587s [00:53:07.117] args[[name]] <- ...future.oldEnvVars[[name]] 1587s [00:53:07.117] } 1587s [00:53:07.117] if (length(args) > 0) 1587s [00:53:07.117] base::do.call(base::Sys.setenv, args = args) 1587s [00:53:07.117] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1587s [00:53:07.117] } 1587s [00:53:07.117] else { 1587s [00:53:07.117] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1587s [00:53:07.117] } 1587s [00:53:07.117] { 1587s [00:53:07.117] if (base::length(...future.futureOptionsAdded) > 1587s [00:53:07.117] 0L) { 1587s [00:53:07.117] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1587s [00:53:07.117] base::names(opts) <- ...future.futureOptionsAdded 1587s [00:53:07.117] base::options(opts) 1587s [00:53:07.117] } 1587s [00:53:07.117] { 1587s [00:53:07.117] { 1587s [00:53:07.117] NULL 1587s [00:53:07.117] RNGkind("Mersenne-Twister") 1587s [00:53:07.117] base::rm(list = ".Random.seed", envir = base::globalenv(), 1587s [00:53:07.117] inherits = FALSE) 1587s [00:53:07.117] } 1587s [00:53:07.117] options(future.plan = NULL) 1587s [00:53:07.117] if (is.na(NA_character_)) 1587s [00:53:07.117] Sys.unsetenv("R_FUTURE_PLAN") 1587s [00:53:07.117] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1587s [00:53:07.117] future::plan(list(function (..., envir = parent.frame()) 1587s [00:53:07.117] { 1587s [00:53:07.117] future <- SequentialFuture(..., envir = envir) 1587s [00:53:07.117] if (!future$lazy) 1587s [00:53:07.117] future <- run(future) 1587s [00:53:07.117] invisible(future) 1587s [00:53:07.117] }), .cleanup = FALSE, .init = FALSE) 1587s [00:53:07.117] } 1587s [00:53:07.117] } 1587s [00:53:07.117] } 1587s [00:53:07.117] }) 1587s [00:53:07.117] if (TRUE) { 1587s [00:53:07.117] base::sink(type = "output", split = FALSE) 1587s [00:53:07.117] if (TRUE) { 1587s [00:53:07.117] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1587s [00:53:07.117] } 1587s [00:53:07.117] else { 1587s [00:53:07.117] ...future.result["stdout"] <- base::list(NULL) 1587s [00:53:07.117] } 1587s [00:53:07.117] base::close(...future.stdout) 1587s [00:53:07.117] ...future.stdout <- NULL 1587s [00:53:07.117] } 1587s [00:53:07.117] ...future.result$conditions <- ...future.conditions 1587s [00:53:07.117] ...future.result$finished <- base::Sys.time() 1587s [00:53:07.117] ...future.result 1587s [00:53:07.117] } 1587s [00:53:07.120] assign_globals() ... 1587s [00:53:07.121] List of 11 1587s [00:53:07.121] $ ...future.FUN :function (x, ...) 1587s [00:53:07.121] $ x_FUN :function (x) 1587s [00:53:07.121] $ times : int 1 1587s [00:53:07.121] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1587s [00:53:07.121] $ stop_if_not :function (...) 1587s [00:53:07.121] $ dim : NULL 1587s [00:53:07.121] $ valid_types : chr [1:2] "logical" "integer" 1587s [00:53:07.121] $ future.call.arguments : list() 1587s [00:53:07.121] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1587s [00:53:07.121] $ ...future.elements_ii :List of 3 1587s [00:53:07.121] ..$ a: num 1 1587s [00:53:07.121] ..$ b: num 2 1587s [00:53:07.121] ..$ c: num 3 1587s [00:53:07.121] $ ...future.seeds_ii : NULL 1587s [00:53:07.121] $ ...future.globals.maxSize: NULL 1587s [00:53:07.121] - attr(*, "where")=List of 11 1587s [00:53:07.121] ..$ ...future.FUN : 1587s [00:53:07.121] ..$ x_FUN : 1587s [00:53:07.121] ..$ times : 1587s [00:53:07.121] ..$ stopf : 1587s [00:53:07.121] ..$ stop_if_not : 1587s [00:53:07.121] ..$ dim : 1587s [00:53:07.121] ..$ valid_types : 1587s [00:53:07.121] ..$ future.call.arguments : 1587s [00:53:07.121] ..$ ...future.elements_ii : 1587s [00:53:07.121] ..$ ...future.seeds_ii : 1587s [00:53:07.121] ..$ ...future.globals.maxSize: 1587s [00:53:07.121] - attr(*, "resolved")= logi FALSE 1587s [00:53:07.121] - attr(*, "total_size")= num 94264 1587s [00:53:07.121] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1587s [00:53:07.121] - attr(*, "already-done")= logi TRUE 1587s [00:53:07.136] - copied ‘...future.FUN’ to environment 1587s [00:53:07.136] - copied ‘x_FUN’ to environment 1587s [00:53:07.136] - copied ‘times’ to environment 1587s [00:53:07.137] - copied ‘stopf’ to environment 1587s [00:53:07.137] - copied ‘stop_if_not’ to environment 1587s [00:53:07.137] - copied ‘dim’ to environment 1587s [00:53:07.137] - copied ‘valid_types’ to environment 1587s [00:53:07.137] - copied ‘future.call.arguments’ to environment 1587s [00:53:07.137] - copied ‘...future.elements_ii’ to environment 1587s [00:53:07.138] - copied ‘...future.seeds_ii’ to environment 1587s [00:53:07.138] - copied ‘...future.globals.maxSize’ to environment 1587s [00:53:07.138] assign_globals() ... done 1587s [00:53:07.138] plan(): Setting new future strategy stack: 1587s [00:53:07.139] List of future strategies: 1587s [00:53:07.139] 1. sequential: 1587s [00:53:07.139] - args: function (..., envir = parent.frame()) 1587s [00:53:07.139] - tweaked: FALSE 1587s [00:53:07.139] - call: NULL 1587s [00:53:07.140] plan(): nbrOfWorkers() = 1 1587s [00:53:07.141] plan(): Setting new future strategy stack: 1587s [00:53:07.141] List of future strategies: 1587s [00:53:07.141] 1. sequential: 1587s [00:53:07.141] - args: function (..., envir = parent.frame()) 1587s [00:53:07.141] - tweaked: FALSE 1587s [00:53:07.141] - call: plan(strategy) 1587s [00:53:07.142] plan(): nbrOfWorkers() = 1 1587s [00:53:07.142] SequentialFuture started (and completed) 1587s [00:53:07.142] - Launch lazy future ... done 1587s [00:53:07.142] run() for ‘SequentialFuture’ ... done 1587s [00:53:07.143] Created future: 1587s [00:53:07.143] SequentialFuture: 1587s [00:53:07.143] Label: ‘future_vapply-1’ 1587s [00:53:07.143] Expression: 1587s [00:53:07.143] { 1587s [00:53:07.143] do.call(function(...) { 1587s [00:53:07.143] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1587s [00:53:07.143] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1587s [00:53:07.143] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1587s [00:53:07.143] on.exit(options(oopts), add = TRUE) 1587s [00:53:07.143] } 1587s [00:53:07.143] { 1587s [00:53:07.143] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1587s [00:53:07.143] ...future.X_jj <- ...future.elements_ii[[jj]] 1587s [00:53:07.143] ...future.FUN(...future.X_jj, ...) 1587s [00:53:07.143] }) 1587s [00:53:07.143] } 1587s [00:53:07.143] }, args = future.call.arguments) 1587s [00:53:07.143] } 1587s [00:53:07.143] Lazy evaluation: FALSE 1587s [00:53:07.143] Asynchronous evaluation: FALSE 1587s [00:53:07.143] Local evaluation: TRUE 1587s [00:53:07.143] Environment: R_GlobalEnv 1587s [00:53:07.143] Capture standard output: TRUE 1587s [00:53:07.143] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1587s [00:53:07.143] Globals: 11 objects totaling 92.22 KiB (function ‘...future.FUN’ of 21.22 KiB, function ‘x_FUN’ of 56 bytes, integer ‘times’ of 56 bytes, function ‘stopf’ of 26.43 KiB, function ‘stop_if_not’ of 44.12 KiB, ...) 1587s [00:53:07.143] Packages: 1 packages (‘future.apply’) 1587s [00:53:07.143] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1587s [00:53:07.143] Resolved: TRUE 1587s [00:53:07.143] Value: 168 bytes of class ‘list’ 1587s [00:53:07.143] Early signaling: FALSE 1587s [00:53:07.143] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1587s [00:53:07.143] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1587s [00:53:07.145] Chunk #1 of 1 ... DONE 1587s [00:53:07.145] Launching 1 futures (chunks) ... DONE 1587s [00:53:07.145] Resolving 1 futures (chunks) ... 1587s [00:53:07.145] resolve() on list ... 1587s [00:53:07.145] recursive: 0 1587s [00:53:07.146] length: 1 1587s [00:53:07.146] 1587s [00:53:07.146] resolved() for ‘SequentialFuture’ ... 1587s [00:53:07.146] - state: ‘finished’ 1587s [00:53:07.146] - run: TRUE 1587s [00:53:07.146] - result: ‘FutureResult’ 1587s [00:53:07.146] resolved() for ‘SequentialFuture’ ... done 1587s [00:53:07.146] Future #1 1587s [00:53:07.147] signalConditionsASAP(SequentialFuture, pos=1) ... 1587s [00:53:07.147] - nx: 1 1587s [00:53:07.147] - relay: TRUE 1587s [00:53:07.147] - stdout: TRUE 1587s [00:53:07.147] - signal: TRUE 1587s [00:53:07.147] - resignal: FALSE 1587s [00:53:07.147] - force: TRUE 1587s [00:53:07.147] - relayed: [n=1] FALSE 1587s [00:53:07.147] - queued futures: [n=1] FALSE 1587s [00:53:07.147] - until=1 1587s [00:53:07.148] - relaying element #1 1587s [00:53:07.148] - relayed: [n=1] TRUE 1587s [00:53:07.148] - queued futures: [n=1] TRUE 1587s [00:53:07.148] signalConditionsASAP(SequentialFuture, pos=1) ... done 1587s [00:53:07.148] length: 0 (resolved future 1) 1587s [00:53:07.148] Relaying remaining futures 1587s [00:53:07.148] signalConditionsASAP(NULL, pos=0) ... 1587s [00:53:07.149] - nx: 1 1587s [00:53:07.149] - relay: TRUE 1587s [00:53:07.149] - stdout: TRUE 1587s [00:53:07.149] - signal: TRUE 1587s [00:53:07.149] - resignal: FALSE 1587s [00:53:07.149] - force: TRUE 1587s [00:53:07.149] - relayed: [n=1] TRUE 1587s [00:53:07.149] - queued futures: [n=1] TRUE 1587s - flush all 1587s [00:53:07.150] - relayed: [n=1] TRUE 1587s [00:53:07.150] - queued futures: [n=1] TRUE 1587s [00:53:07.150] signalConditionsASAP(NULL, pos=0) ... done 1587s [00:53:07.150] resolve() on list ... DONE 1587s [00:53:07.150] - Number of value chunks collected: 1 1587s [00:53:07.150] Resolving 1 futures (chunks) ... DONE 1587s [00:53:07.151] Reducing values from 1 chunks ... 1587s [00:53:07.151] - Number of values collected after concatenation: 3 1587s [00:53:07.151] - Number of values expected: 3 1587s [00:53:07.151] Reducing values from 1 chunks ... DONE 1587s [00:53:07.151] future_lapply() ... DONE 1587s - exceptions ... 1587s [00:53:07.152] future_lapply() ... 1587s [00:53:07.154] Number of chunks: 1 1587s [00:53:07.154] getGlobalsAndPackagesXApply() ... 1587s [00:53:07.154] - future.globals: TRUE 1587s [00:53:07.154] getGlobalsAndPackages() ... 1587s [00:53:07.154] Searching for globals... 1587s [00:53:07.159] - globals found: [16] ‘FUN’, ‘{’, ‘<-’, ‘x_FUN’, ‘if’, ‘!=’, ‘length’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘all’, ‘==’, ‘dim’, ‘%in%’, ‘typeof’, ‘valid_types’ 1587s [00:53:07.159] Searching for globals ... DONE 1587s [00:53:07.159] Resolving globals: FALSE 1587s [00:53:07.162] The total size of the 7 globals is 92.90 KiB (95128 bytes) 1587s [00:53:07.162] The total size of the 7 globals exported for future expression (‘FUN()’) is 92.90 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘stop_if_not’ (44.12 KiB of class ‘function’), ‘stopf’ (26.43 KiB of class ‘function’) and ‘FUN’ (21.22 KiB of class ‘function’) 1587s [00:53:07.162] - globals: [7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1587s [00:53:07.163] - packages: [1] ‘future.apply’ 1587s [00:53:07.163] getGlobalsAndPackages() ... DONE 1587s [00:53:07.163] - globals found/used: [n=7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1587s [00:53:07.163] - needed namespaces: [n=1] ‘future.apply’ 1587s [00:53:07.163] Finding globals ... DONE 1587s [00:53:07.164] - use_args: TRUE 1587s [00:53:07.164] - Getting '...' globals ... 1587s [00:53:07.165] resolve() on list ... 1587s [00:53:07.165] recursive: 0 1587s [00:53:07.165] length: 1 1587s [00:53:07.165] elements: ‘...’ 1587s [00:53:07.165] length: 0 (resolved future 1) 1587s [00:53:07.166] resolve() on list ... DONE 1587s [00:53:07.166] - '...' content: [n=0] 1587s [00:53:07.166] List of 1 1587s [00:53:07.166] $ ...: list() 1587s [00:53:07.166] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1587s [00:53:07.166] - attr(*, "where")=List of 1 1587s [00:53:07.166] ..$ ...: 1587s [00:53:07.166] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1587s [00:53:07.166] - attr(*, "resolved")= logi TRUE 1587s [00:53:07.166] - attr(*, "total_size")= num NA 1587s [00:53:07.169] - Getting '...' globals ... DONE 1587s [00:53:07.169] Globals to be used in all futures (chunks): [n=8] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’ 1587s [00:53:07.170] List of 8 1587s [00:53:07.170] $ ...future.FUN:function (x, ...) 1587s [00:53:07.170] $ x_FUN :function (x) 1587s [00:53:07.170] $ times : int 2 1587s [00:53:07.170] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1587s [00:53:07.170] $ stop_if_not :function (...) 1587s [00:53:07.170] $ dim : NULL 1587s [00:53:07.170] $ valid_types : chr [1:3] "logical" "integer" "double" 1587s [00:53:07.170] $ ... : list() 1587s [00:53:07.170] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1587s [00:53:07.170] - attr(*, "where")=List of 8 1587s [00:53:07.170] ..$ ...future.FUN: 1587s [00:53:07.170] ..$ x_FUN : 1587s [00:53:07.170] ..$ times : 1587s [00:53:07.170] ..$ stopf : 1587s [00:53:07.170] ..$ stop_if_not : 1587s [00:53:07.170] ..$ dim : 1587s [00:53:07.170] ..$ valid_types : 1587s [00:53:07.170] ..$ ... : 1587s [00:53:07.170] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1587s [00:53:07.170] - attr(*, "resolved")= logi FALSE 1587s [00:53:07.170] - attr(*, "total_size")= num 95128 1587s [00:53:07.177] Packages to be attached in all futures: [n=1] ‘future.apply’ 1587s [00:53:07.177] getGlobalsAndPackagesXApply() ... DONE 1587s [00:53:07.178] Number of futures (= number of chunks): 1 1587s [00:53:07.178] Launching 1 futures (chunks) ... 1587s [00:53:07.178] Chunk #1 of 1 ... 1587s [00:53:07.178] - Finding globals in 'X' for chunk #1 ... 1587s [00:53:07.178] getGlobalsAndPackages() ... 1587s [00:53:07.178] Searching for globals... 1587s [00:53:07.179] 1587s [00:53:07.180] Searching for globals ... DONE 1587s [00:53:07.180] - globals: [0] 1587s [00:53:07.180] getGlobalsAndPackages() ... DONE 1587s [00:53:07.180] + additional globals found: [n=0] 1587s [00:53:07.181] + additional namespaces needed: [n=0] 1587s [00:53:07.182] - Finding globals in 'X' for chunk #1 ... DONE 1587s [00:53:07.182] - seeds: 1587s [00:53:07.182] - All globals exported: [n=11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1587s [00:53:07.182] getGlobalsAndPackages() ... 1587s [00:53:07.183] - globals passed as-is: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1587s [00:53:07.183] Resolving globals: FALSE 1587s [00:53:07.184] Tweak future expression to call with '...' arguments ... 1587s [00:53:07.184] { 1587s [00:53:07.184] do.call(function(...) { 1587s [00:53:07.184] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1587s [00:53:07.184] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1587s [00:53:07.184] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1587s [00:53:07.184] on.exit(options(oopts), add = TRUE) 1587s [00:53:07.184] } 1587s [00:53:07.184] { 1587s [00:53:07.184] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1587s [00:53:07.184] ...future.X_jj <- ...future.elements_ii[[jj]] 1587s [00:53:07.184] ...future.FUN(...future.X_jj, ...) 1587s [00:53:07.184] }) 1587s [00:53:07.184] } 1587s [00:53:07.184] }, args = future.call.arguments) 1587s [00:53:07.184] } 1587s [00:53:07.185] Tweak future expression to call with '...' arguments ... DONE 1587s [00:53:07.186] - globals: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1587s [00:53:07.186] - packages: [1] ‘future.apply’ 1587s [00:53:07.187] getGlobalsAndPackages() ... DONE 1587s [00:53:07.188] run() for ‘Future’ ... 1587s [00:53:07.188] - state: ‘created’ 1587s [00:53:07.188] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1587s [00:53:07.190] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1587s [00:53:07.190] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1587s [00:53:07.190] - Field: ‘label’ 1587s [00:53:07.191] - Field: ‘local’ 1587s [00:53:07.191] - Field: ‘owner’ 1587s [00:53:07.191] - Field: ‘envir’ 1587s [00:53:07.191] - Field: ‘packages’ 1587s [00:53:07.192] - Field: ‘gc’ 1587s [00:53:07.192] - Field: ‘conditions’ 1587s [00:53:07.192] - Field: ‘expr’ 1587s [00:53:07.193] - Field: ‘uuid’ 1587s [00:53:07.193] - Field: ‘seed’ 1587s [00:53:07.193] - Field: ‘version’ 1587s [00:53:07.193] - Field: ‘result’ 1587s [00:53:07.194] - Field: ‘asynchronous’ 1587s [00:53:07.194] - Field: ‘calls’ 1587s [00:53:07.194] - Field: ‘globals’ 1587s [00:53:07.195] - Field: ‘stdout’ 1587s [00:53:07.195] - Field: ‘earlySignal’ 1587s [00:53:07.195] - Field: ‘lazy’ 1587s [00:53:07.196] - Field: ‘state’ 1587s [00:53:07.196] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1587s [00:53:07.196] - Launch lazy future ... 1587s [00:53:07.197] Packages needed by the future expression (n = 1): ‘future.apply’ 1587s [00:53:07.197] Packages needed by future strategies (n = 0): 1587s [00:53:07.198] { 1587s [00:53:07.198] { 1587s [00:53:07.198] { 1587s [00:53:07.198] ...future.startTime <- base::Sys.time() 1587s [00:53:07.198] { 1587s [00:53:07.198] { 1587s [00:53:07.198] { 1587s [00:53:07.198] { 1587s [00:53:07.198] base::local({ 1587s [00:53:07.198] has_future <- base::requireNamespace("future", 1587s [00:53:07.198] quietly = TRUE) 1587s [00:53:07.198] if (has_future) { 1587s [00:53:07.198] ns <- base::getNamespace("future") 1587s [00:53:07.198] version <- ns[[".package"]][["version"]] 1587s [00:53:07.198] if (is.null(version)) 1587s [00:53:07.198] version <- utils::packageVersion("future") 1587s [00:53:07.198] } 1587s [00:53:07.198] else { 1587s [00:53:07.198] version <- NULL 1587s [00:53:07.198] } 1587s [00:53:07.198] if (!has_future || version < "1.8.0") { 1587s [00:53:07.198] info <- base::c(r_version = base::gsub("R version ", 1587s [00:53:07.198] "", base::R.version$version.string), 1587s [00:53:07.198] platform = base::sprintf("%s (%s-bit)", 1587s [00:53:07.198] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1587s [00:53:07.198] os = base::paste(base::Sys.info()[base::c("sysname", 1587s [00:53:07.198] "release", "version")], collapse = " "), 1587s [00:53:07.198] hostname = base::Sys.info()[["nodename"]]) 1587s [00:53:07.198] info <- base::sprintf("%s: %s", base::names(info), 1587s [00:53:07.198] info) 1587s [00:53:07.198] info <- base::paste(info, collapse = "; ") 1587s [00:53:07.198] if (!has_future) { 1587s [00:53:07.198] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1587s [00:53:07.198] info) 1587s [00:53:07.198] } 1587s [00:53:07.198] else { 1587s [00:53:07.198] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1587s [00:53:07.198] info, version) 1587s [00:53:07.198] } 1587s [00:53:07.198] base::stop(msg) 1587s [00:53:07.198] } 1587s [00:53:07.198] }) 1587s [00:53:07.198] } 1587s [00:53:07.198] base::local({ 1587s [00:53:07.198] for (pkg in "future.apply") { 1587s [00:53:07.198] base::loadNamespace(pkg) 1587s [00:53:07.198] base::library(pkg, character.only = TRUE) 1587s [00:53:07.198] } 1587s [00:53:07.198] }) 1587s [00:53:07.198] } 1587s [00:53:07.198] options(future.plan = NULL) 1587s [00:53:07.198] Sys.unsetenv("R_FUTURE_PLAN") 1587s [00:53:07.198] future::plan("default", .cleanup = FALSE, .init = FALSE) 1587s [00:53:07.198] } 1587s [00:53:07.198] ...future.workdir <- getwd() 1587s [00:53:07.198] } 1587s [00:53:07.198] ...future.oldOptions <- base::as.list(base::.Options) 1587s [00:53:07.198] ...future.oldEnvVars <- base::Sys.getenv() 1587s [00:53:07.198] } 1587s [00:53:07.198] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1587s [00:53:07.198] future.globals.maxSize = NULL, future.globals.method = NULL, 1587s [00:53:07.198] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1587s [00:53:07.198] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1587s [00:53:07.198] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1587s [00:53:07.198] future.stdout.windows.reencode = NULL, width = 80L) 1587s [00:53:07.198] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1587s [00:53:07.198] base::names(...future.oldOptions)) 1587s [00:53:07.198] } 1587s [00:53:07.198] if (FALSE) { 1587s [00:53:07.198] } 1587s [00:53:07.198] else { 1587s [00:53:07.198] if (TRUE) { 1587s [00:53:07.198] ...future.stdout <- base::rawConnection(base::raw(0L), 1587s [00:53:07.198] open = "w") 1587s [00:53:07.198] } 1587s [00:53:07.198] else { 1587s [00:53:07.198] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1587s [00:53:07.198] windows = "NUL", "/dev/null"), open = "w") 1587s [00:53:07.198] } 1587s [00:53:07.198] base::sink(...future.stdout, type = "output", split = FALSE) 1587s [00:53:07.198] base::on.exit(if (!base::is.null(...future.stdout)) { 1587s [00:53:07.198] base::sink(type = "output", split = FALSE) 1587s [00:53:07.198] base::close(...future.stdout) 1587s [00:53:07.198] }, add = TRUE) 1587s [00:53:07.198] } 1587s [00:53:07.198] ...future.frame <- base::sys.nframe() 1587s [00:53:07.198] ...future.conditions <- base::list() 1587s [00:53:07.198] ...future.rng <- base::globalenv()$.Random.seed 1587s [00:53:07.198] if (FALSE) { 1587s [00:53:07.198] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1587s [00:53:07.198] "...future.value", "...future.globalenv.names", ".Random.seed") 1587s [00:53:07.198] } 1587s [00:53:07.198] ...future.result <- base::tryCatch({ 1587s [00:53:07.198] base::withCallingHandlers({ 1587s [00:53:07.198] ...future.value <- base::withVisible(base::local({ 1587s [00:53:07.198] do.call(function(...) { 1587s [00:53:07.198] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1587s [00:53:07.198] if (!identical(...future.globals.maxSize.org, 1587s [00:53:07.198] ...future.globals.maxSize)) { 1587s [00:53:07.198] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1587s [00:53:07.198] on.exit(options(oopts), add = TRUE) 1587s [00:53:07.198] } 1587s [00:53:07.198] { 1587s [00:53:07.198] lapply(seq_along(...future.elements_ii), 1587s [00:53:07.198] FUN = function(jj) { 1587s [00:53:07.198] ...future.X_jj <- ...future.elements_ii[[jj]] 1587s [00:53:07.198] ...future.FUN(...future.X_jj, ...) 1587s [00:53:07.198] }) 1587s [00:53:07.198] } 1587s [00:53:07.198] }, args = future.call.arguments) 1587s [00:53:07.198] })) 1587s [00:53:07.198] future::FutureResult(value = ...future.value$value, 1587s [00:53:07.198] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1587s [00:53:07.198] ...future.rng), globalenv = if (FALSE) 1587s [00:53:07.198] list(added = base::setdiff(base::names(base::.GlobalEnv), 1587s [00:53:07.198] ...future.globalenv.names)) 1587s [00:53:07.198] else NULL, started = ...future.startTime, version = "1.8") 1587s [00:53:07.198] }, condition = base::local({ 1587s [00:53:07.198] c <- base::c 1587s [00:53:07.198] inherits <- base::inherits 1587s [00:53:07.198] invokeRestart <- base::invokeRestart 1587s [00:53:07.198] length <- base::length 1587s [00:53:07.198] list <- base::list 1587s [00:53:07.198] seq.int <- base::seq.int 1587s [00:53:07.198] signalCondition <- base::signalCondition 1587s [00:53:07.198] sys.calls <- base::sys.calls 1587s [00:53:07.198] `[[` <- base::`[[` 1587s [00:53:07.198] `+` <- base::`+` 1587s [00:53:07.198] `<<-` <- base::`<<-` 1587s [00:53:07.198] sysCalls <- function(calls = sys.calls(), from = 1L) { 1587s [00:53:07.198] calls[seq.int(from = from + 12L, to = length(calls) - 1587s [00:53:07.198] 3L)] 1587s [00:53:07.198] } 1587s [00:53:07.198] function(cond) { 1587s [00:53:07.198] is_error <- inherits(cond, "error") 1587s [00:53:07.198] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1587s [00:53:07.198] NULL) 1587s [00:53:07.198] if (is_error) { 1587s [00:53:07.198] sessionInformation <- function() { 1587s [00:53:07.198] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1587s [00:53:07.198] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1587s [00:53:07.198] search = base::search(), system = base::Sys.info()) 1587s [00:53:07.198] } 1587s [00:53:07.198] ...future.conditions[[length(...future.conditions) + 1587s [00:53:07.198] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1587s [00:53:07.198] cond$call), session = sessionInformation(), 1587s [00:53:07.198] timestamp = base::Sys.time(), signaled = 0L) 1587s [00:53:07.198] signalCondition(cond) 1587s [00:53:07.198] } 1587s [00:53:07.198] else if (!ignore && TRUE && inherits(cond, c("condition", 1587s [00:53:07.198] "immediateCondition"))) { 1587s [00:53:07.198] signal <- TRUE && inherits(cond, "immediateCondition") 1587s [00:53:07.198] ...future.conditions[[length(...future.conditions) + 1587s [00:53:07.198] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1587s [00:53:07.198] if (TRUE && !signal) { 1587s [00:53:07.198] muffleCondition <- function (cond, pattern = "^muffle") 1587s [00:53:07.198] { 1587s [00:53:07.198] inherits <- base::inherits 1587s [00:53:07.198] invokeRestart <- base::invokeRestart 1587s [00:53:07.198] is.null <- base::is.null 1587s [00:53:07.198] muffled <- FALSE 1587s [00:53:07.198] if (inherits(cond, "message")) { 1587s [00:53:07.198] muffled <- grepl(pattern, "muffleMessage") 1587s [00:53:07.198] if (muffled) 1587s [00:53:07.198] invokeRestart("muffleMessage") 1587s [00:53:07.198] } 1587s [00:53:07.198] else if (inherits(cond, "warning")) { 1587s [00:53:07.198] muffled <- grepl(pattern, "muffleWarning") 1587s [00:53:07.198] if (muffled) 1587s [00:53:07.198] invokeRestart("muffleWarning") 1587s [00:53:07.198] } 1587s [00:53:07.198] else if (inherits(cond, "condition")) { 1587s [00:53:07.198] if (!is.null(pattern)) { 1587s [00:53:07.198] computeRestarts <- base::computeRestarts 1587s [00:53:07.198] grepl <- base::grepl 1587s [00:53:07.198] restarts <- computeRestarts(cond) 1587s [00:53:07.198] for (restart in restarts) { 1587s [00:53:07.198] name <- restart$name 1587s [00:53:07.198] if (is.null(name)) 1587s [00:53:07.198] next 1587s [00:53:07.198] if (!grepl(pattern, name)) 1587s [00:53:07.198] next 1587s [00:53:07.198] invokeRestart(restart) 1587s [00:53:07.198] muffled <- TRUE 1587s [00:53:07.198] break 1587s [00:53:07.198] } 1587s [00:53:07.198] } 1587s [00:53:07.198] } 1587s [00:53:07.198] invisible(muffled) 1587s [00:53:07.198] } 1587s [00:53:07.198] muffleCondition(cond, pattern = "^muffle") 1587s [00:53:07.198] } 1587s [00:53:07.198] } 1587s [00:53:07.198] else { 1587s [00:53:07.198] if (TRUE) { 1587s [00:53:07.198] muffleCondition <- function (cond, pattern = "^muffle") 1587s [00:53:07.198] { 1587s [00:53:07.198] inherits <- base::inherits 1587s [00:53:07.198] invokeRestart <- base::invokeRestart 1587s [00:53:07.198] is.null <- base::is.null 1587s [00:53:07.198] muffled <- FALSE 1587s [00:53:07.198] if (inherits(cond, "message")) { 1587s [00:53:07.198] muffled <- grepl(pattern, "muffleMessage") 1587s [00:53:07.198] if (muffled) 1587s [00:53:07.198] invokeRestart("muffleMessage") 1587s [00:53:07.198] } 1587s [00:53:07.198] else if (inherits(cond, "warning")) { 1587s [00:53:07.198] muffled <- grepl(pattern, "muffleWarning") 1587s [00:53:07.198] if (muffled) 1587s [00:53:07.198] invokeRestart("muffleWarning") 1587s [00:53:07.198] } 1587s [00:53:07.198] else if (inherits(cond, "condition")) { 1587s [00:53:07.198] if (!is.null(pattern)) { 1587s [00:53:07.198] computeRestarts <- base::computeRestarts 1587s [00:53:07.198] grepl <- base::grepl 1587s [00:53:07.198] restarts <- computeRestarts(cond) 1587s [00:53:07.198] for (restart in restarts) { 1587s [00:53:07.198] name <- restart$name 1587s [00:53:07.198] if (is.null(name)) 1587s [00:53:07.198] next 1587s [00:53:07.198] if (!grepl(pattern, name)) 1587s [00:53:07.198] next 1587s [00:53:07.198] invokeRestart(restart) 1587s [00:53:07.198] muffled <- TRUE 1587s [00:53:07.198] break 1587s [00:53:07.198] } 1587s [00:53:07.198] } 1587s [00:53:07.198] } 1587s [00:53:07.198] invisible(muffled) 1587s [00:53:07.198] } 1587s [00:53:07.198] muffleCondition(cond, pattern = "^muffle") 1587s [00:53:07.198] } 1587s [00:53:07.198] } 1587s [00:53:07.198] } 1587s [00:53:07.198] })) 1587s [00:53:07.198] }, error = function(ex) { 1587s [00:53:07.198] base::structure(base::list(value = NULL, visible = NULL, 1587s [00:53:07.198] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1587s [00:53:07.198] ...future.rng), started = ...future.startTime, 1587s [00:53:07.198] finished = Sys.time(), session_uuid = NA_character_, 1587s [00:53:07.198] version = "1.8"), class = "FutureResult") 1587s [00:53:07.198] }, finally = { 1587s [00:53:07.198] if (!identical(...future.workdir, getwd())) 1587s [00:53:07.198] setwd(...future.workdir) 1587s [00:53:07.198] { 1587s [00:53:07.198] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1587s [00:53:07.198] ...future.oldOptions$nwarnings <- NULL 1587s [00:53:07.198] } 1587s [00:53:07.198] base::options(...future.oldOptions) 1587s [00:53:07.198] if (.Platform$OS.type == "windows") { 1587s [00:53:07.198] old_names <- names(...future.oldEnvVars) 1587s [00:53:07.198] envs <- base::Sys.getenv() 1587s [00:53:07.198] names <- names(envs) 1587s [00:53:07.198] common <- intersect(names, old_names) 1587s [00:53:07.198] added <- setdiff(names, old_names) 1587s [00:53:07.198] removed <- setdiff(old_names, names) 1587s [00:53:07.198] changed <- common[...future.oldEnvVars[common] != 1587s [00:53:07.198] envs[common]] 1587s [00:53:07.198] NAMES <- toupper(changed) 1587s [00:53:07.198] args <- list() 1587s [00:53:07.198] for (kk in seq_along(NAMES)) { 1587s [00:53:07.198] name <- changed[[kk]] 1587s [00:53:07.198] NAME <- NAMES[[kk]] 1587s [00:53:07.198] if (name != NAME && is.element(NAME, old_names)) 1587s [00:53:07.198] next 1587s [00:53:07.198] args[[name]] <- ...future.oldEnvVars[[name]] 1587s [00:53:07.198] } 1587s [00:53:07.198] NAMES <- toupper(added) 1587s [00:53:07.198] for (kk in seq_along(NAMES)) { 1587s [00:53:07.198] name <- added[[kk]] 1587s [00:53:07.198] NAME <- NAMES[[kk]] 1587s [00:53:07.198] if (name != NAME && is.element(NAME, old_names)) 1587s [00:53:07.198] next 1587s [00:53:07.198] args[[name]] <- "" 1587s [00:53:07.198] } 1587s [00:53:07.198] NAMES <- toupper(removed) 1587s [00:53:07.198] for (kk in seq_along(NAMES)) { 1587s [00:53:07.198] name <- removed[[kk]] 1587s [00:53:07.198] NAME <- NAMES[[kk]] 1587s [00:53:07.198] if (name != NAME && is.element(NAME, old_names)) 1587s [00:53:07.198] next 1587s [00:53:07.198] args[[name]] <- ...future.oldEnvVars[[name]] 1587s [00:53:07.198] } 1587s [00:53:07.198] if (length(args) > 0) 1587s [00:53:07.198] base::do.call(base::Sys.setenv, args = args) 1587s [00:53:07.198] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1587s [00:53:07.198] } 1587s [00:53:07.198] else { 1587s [00:53:07.198] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1587s [00:53:07.198] } 1587s [00:53:07.198] { 1587s [00:53:07.198] if (base::length(...future.futureOptionsAdded) > 1587s [00:53:07.198] 0L) { 1587s [00:53:07.198] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1587s [00:53:07.198] base::names(opts) <- ...future.futureOptionsAdded 1587s [00:53:07.198] base::options(opts) 1587s [00:53:07.198] } 1587s [00:53:07.198] { 1587s [00:53:07.198] { 1587s [00:53:07.198] NULL 1587s [00:53:07.198] RNGkind("Mersenne-Twister") 1587s [00:53:07.198] base::rm(list = ".Random.seed", envir = base::globalenv(), 1587s [00:53:07.198] inherits = FALSE) 1587s [00:53:07.198] } 1587s [00:53:07.198] options(future.plan = NULL) 1587s [00:53:07.198] if (is.na(NA_character_)) 1587s [00:53:07.198] Sys.unsetenv("R_FUTURE_PLAN") 1587s [00:53:07.198] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1587s [00:53:07.198] future::plan(list(function (..., envir = parent.frame()) 1587s [00:53:07.198] { 1587s [00:53:07.198] future <- SequentialFuture(..., envir = envir) 1587s [00:53:07.198] if (!future$lazy) 1587s [00:53:07.198] future <- run(future) 1587s [00:53:07.198] invisible(future) 1587s [00:53:07.198] }), .cleanup = FALSE, .init = FALSE) 1587s [00:53:07.198] } 1587s [00:53:07.198] } 1587s [00:53:07.198] } 1587s [00:53:07.198] }) 1587s [00:53:07.198] if (TRUE) { 1587s [00:53:07.198] base::sink(type = "output", split = FALSE) 1587s [00:53:07.198] if (TRUE) { 1587s [00:53:07.198] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1587s [00:53:07.198] } 1587s [00:53:07.198] else { 1587s [00:53:07.198] ...future.result["stdout"] <- base::list(NULL) 1587s [00:53:07.198] } 1587s [00:53:07.198] base::close(...future.stdout) 1587s [00:53:07.198] ...future.stdout <- NULL 1587s [00:53:07.198] } 1587s [00:53:07.198] ...future.result$conditions <- ...future.conditions 1587s [00:53:07.198] ...future.result$finished <- base::Sys.time() 1587s [00:53:07.198] ...future.result 1587s [00:53:07.198] } 1587s [00:53:07.204] assign_globals() ... 1587s [00:53:07.204] List of 11 1587s [00:53:07.204] $ ...future.FUN :function (x, ...) 1587s [00:53:07.204] $ x_FUN :function (x) 1587s [00:53:07.204] $ times : int 2 1587s [00:53:07.204] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1587s [00:53:07.204] $ stop_if_not :function (...) 1587s [00:53:07.204] $ dim : NULL 1587s [00:53:07.204] $ valid_types : chr [1:3] "logical" "integer" "double" 1587s [00:53:07.204] $ future.call.arguments : list() 1587s [00:53:07.204] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1587s [00:53:07.204] $ ...future.elements_ii :List of 3 1587s [00:53:07.204] ..$ : int 1 1587s [00:53:07.204] ..$ : int 2 1587s [00:53:07.204] ..$ : int 3 1587s [00:53:07.204] $ ...future.seeds_ii : NULL 1587s [00:53:07.204] $ ...future.globals.maxSize: NULL 1587s [00:53:07.204] - attr(*, "where")=List of 11 1587s [00:53:07.204] ..$ ...future.FUN : 1587s [00:53:07.204] ..$ x_FUN : 1587s [00:53:07.204] ..$ times : 1587s [00:53:07.204] ..$ stopf : 1587s [00:53:07.204] ..$ stop_if_not : 1587s [00:53:07.204] ..$ dim : 1587s [00:53:07.204] ..$ valid_types : 1587s [00:53:07.204] ..$ future.call.arguments : 1587s [00:53:07.204] ..$ ...future.elements_ii : 1587s [00:53:07.204] ..$ ...future.seeds_ii : 1587s [00:53:07.204] ..$ ...future.globals.maxSize: 1587s [00:53:07.204] - attr(*, "resolved")= logi FALSE 1587s [00:53:07.204] - attr(*, "total_size")= num 95128 1587s [00:53:07.204] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1587s [00:53:07.204] - attr(*, "already-done")= logi TRUE 1587s [00:53:07.220] - copied ‘...future.FUN’ to environment 1587s [00:53:07.220] - copied ‘x_FUN’ to environment 1587s [00:53:07.220] - copied ‘times’ to environment 1587s [00:53:07.220] - copied ‘stopf’ to environment 1587s [00:53:07.221] - copied ‘stop_if_not’ to environment 1587s [00:53:07.221] - copied ‘dim’ to environment 1587s [00:53:07.221] - copied ‘valid_types’ to environment 1587s [00:53:07.221] - copied ‘future.call.arguments’ to environment 1587s [00:53:07.221] - copied ‘...future.elements_ii’ to environment 1587s [00:53:07.221] - copied ‘...future.seeds_ii’ to environment 1587s [00:53:07.221] - copied ‘...future.globals.maxSize’ to environment 1587s [00:53:07.222] assign_globals() ... done 1587s [00:53:07.222] plan(): Setting new future strategy stack: 1587s [00:53:07.222] List of future strategies: 1587s [00:53:07.222] 1. sequential: 1587s [00:53:07.222] - args: function (..., envir = parent.frame()) 1587s [00:53:07.222] - tweaked: FALSE 1587s [00:53:07.222] - call: NULL 1587s [00:53:07.223] plan(): nbrOfWorkers() = 1 1587s [00:53:07.224] plan(): Setting new future strategy stack: 1587s [00:53:07.224] List of future strategies: 1587s [00:53:07.224] 1. sequential: 1587s [00:53:07.224] - args: function (..., envir = parent.frame()) 1587s [00:53:07.224] - tweaked: FALSE 1587s [00:53:07.224] - call: plan(strategy) 1587s [00:53:07.224] plan(): nbrOfWorkers() = 1 1587s [00:53:07.225] SequentialFuture started (and completed) 1587s [00:53:07.225] signalConditions() ... 1587s [00:53:07.225] - include = ‘immediateCondition’ 1587s [00:53:07.225] - exclude = 1587s [00:53:07.225] - resignal = FALSE 1587s [00:53:07.225] - Number of conditions: 1 1587s [00:53:07.226] signalConditions() ... done 1587s [00:53:07.226] - Launch lazy future ... done 1587s [00:53:07.226] run() for ‘SequentialFuture’ ... done 1587s [00:53:07.226] Created future: 1587s [00:53:07.226] SequentialFuture: 1587s [00:53:07.226] Label: ‘future_vapply-1’ 1587s [00:53:07.226] Expression: 1587s [00:53:07.226] { 1587s [00:53:07.226] do.call(function(...) { 1587s [00:53:07.226] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1587s [00:53:07.226] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1587s [00:53:07.226] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1587s [00:53:07.226] on.exit(options(oopts), add = TRUE) 1587s [00:53:07.226] } 1587s [00:53:07.226] { 1587s [00:53:07.226] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1587s [00:53:07.226] ...future.X_jj <- ...future.elements_ii[[jj]] 1587s [00:53:07.226] ...future.FUN(...future.X_jj, ...) 1587s [00:53:07.226] }) 1587s [00:53:07.226] } 1587s [00:53:07.226] }, args = future.call.arguments) 1587s [00:53:07.226] } 1587s [00:53:07.226] Lazy evaluation: FALSE 1587s [00:53:07.226] Asynchronous evaluation: FALSE 1587s [00:53:07.226] Local evaluation: TRUE 1587s [00:53:07.226] Environment: R_GlobalEnv 1587s [00:53:07.226] Capture standard output: TRUE 1587s [00:53:07.226] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1587s [00:53:07.226] Globals: 11 objects totaling 93.06 KiB (function ‘...future.FUN’ of 21.22 KiB, function ‘x_FUN’ of 848 bytes, integer ‘times’ of 56 bytes, function ‘stopf’ of 26.43 KiB, function ‘stop_if_not’ of 44.12 KiB, ...) 1587s [00:53:07.226] Packages: 1 packages (‘future.apply’) 1587s [00:53:07.226] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1587s [00:53:07.226] Resolved: TRUE 1587s [00:53:07.226] Value: 0 bytes of class ‘NULL’ 1587s [00:53:07.226] Conditions captured: [n=1] ‘simpleError’ 1587s [00:53:07.226] Early signaling: FALSE 1587s [00:53:07.226] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1587s [00:53:07.226] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1587s [00:53:07.228] Chunk #1 of 1 ... DONE 1587s [00:53:07.228] Launching 1 futures (chunks) ... DONE 1587s [00:53:07.228] Resolving 1 futures (chunks) ... 1587s [00:53:07.228] resolve() on list ... 1587s [00:53:07.229] recursive: 0 1587s [00:53:07.229] length: 1 1587s [00:53:07.229] 1587s [00:53:07.229] resolved() for ‘SequentialFuture’ ... 1587s [00:53:07.229] - state: ‘finished’ 1587s [00:53:07.230] - run: TRUE 1587s [00:53:07.230] - result: ‘FutureResult’ 1587s [00:53:07.230] resolved() for ‘SequentialFuture’ ... done 1587s [00:53:07.230] Future #1 1587s [00:53:07.230] signalConditions() ... 1587s [00:53:07.231] - include = ‘immediateCondition’ 1587s [00:53:07.231] - exclude = 1587s [00:53:07.231] - resignal = FALSE 1587s [00:53:07.231] - Number of conditions: 1 1587s [00:53:07.231] signalConditions() ... done 1587s [00:53:07.231] signalConditionsASAP(SequentialFuture, pos=1) ... 1587s [00:53:07.231] - nx: 1 1587s [00:53:07.232] - relay: TRUE 1587s [00:53:07.232] - stdout: TRUE 1587s [00:53:07.232] - signal: TRUE 1587s [00:53:07.233] - resignal: FALSE 1587s [00:53:07.233] - force: TRUE 1587s [00:53:07.233] - relayed: [n=1] FALSE 1587s [00:53:07.234] - queued futures: [n=1] FALSE 1587s [00:53:07.234] - until=1 1587s [00:53:07.234] - relaying element #1 1587s [00:53:07.234] signalConditions() ... 1587s [00:53:07.234] - include = ‘immediateCondition’ 1587s [00:53:07.235] - exclude = 1587s [00:53:07.235] - resignal = FALSE 1587s [00:53:07.235] - Number of conditions: 1 1587s [00:53:07.235] signalConditions() ... done 1587s [00:53:07.236] signalConditions() ... 1587s [00:53:07.236] - include = ‘immediateCondition’ 1587s [00:53:07.237] - exclude = 1587s [00:53:07.237] - resignal = FALSE 1587s [00:53:07.237] - Number of conditions: 1 1587s [00:53:07.237] signalConditions() ... done 1587s [00:53:07.237] signalConditions() ... 1587s [00:53:07.238] - include = ‘condition’ 1587s [00:53:07.238] - exclude = ‘immediateCondition’ 1587s [00:53:07.238] - resignal = TRUE 1587s [00:53:07.238] - Number of conditions: 1 1587s [00:53:07.238] - Condition #1: ‘simpleError’, ‘error’, ‘condition’ 1587s [00:53:07.238] signalConditions() ... done 1587s [00:53:07.239] - relayed: [n=1] FALSE 1587s [00:53:07.239] - queued futures: [n=1] TRUE 1587s [00:53:07.239] signalConditionsASAP(SequentialFuture, pos=1) ... done 1587s [00:53:07.240] plan(): Setting new future strategy stack: 1587s [00:53:07.240] List of future strategies: 1587s [00:53:07.240] 1. sequential: 1587s [00:53:07.240] - args: function (..., envir = parent.frame()) 1587s [00:53:07.240] - tweaked: FALSE 1587s [00:53:07.240] - call: plan(sequential) 1587s [00:53:07.241] plan(): nbrOfWorkers() = 1 1587s *** strategy = ‘sequential’ ... done 1587s *** strategy = ‘multicore’ ... 1587s [00:53:07.242] plan(): Setting new future strategy stack: 1587s [00:53:07.242] List of future strategies: 1587s [00:53:07.242] 1. multicore: 1587s [00:53:07.242] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1587s [00:53:07.242] - tweaked: FALSE 1587s [00:53:07.242] - call: plan(strategy) 1587s logi(0) 1587s logi(0) [00:53:07.250] plan(): nbrOfWorkers() = 1 1587s 1587s logi(0) 1587s logi(0) 1587s logi(0) 1587s int(0) 1587s int(0) 1587s Named chr [1:2] "integer" "character" 1587s - attr(*, "names")= chr [1:2] "x" "y" 1587s [00:53:07.256] future_lapply() ... 1587s [00:53:07.266] Number of chunks: 1 1587s [00:53:07.267] getGlobalsAndPackagesXApply() ... 1587s [00:53:07.267] - future.globals: TRUE 1587s [00:53:07.267] getGlobalsAndPackages() ... 1587s [00:53:07.267] Searching for globals... 1587s [00:53:07.273] - globals found: [16] ‘FUN’, ‘{’, ‘<-’, ‘x_FUN’, ‘if’, ‘!=’, ‘length’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘all’, ‘==’, ‘dim’, ‘%in%’, ‘typeof’, ‘valid_types’ 1587s [00:53:07.273] Searching for globals ... DONE 1587s [00:53:07.273] Resolving globals: FALSE 1587s [00:53:07.274] The total size of the 7 globals is 92.00 KiB (94208 bytes) 1587s [00:53:07.275] The total size of the 7 globals exported for future expression (‘FUN()’) is 92.00 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘stop_if_not’ (44.12 KiB of class ‘function’), ‘stopf’ (26.43 KiB of class ‘function’) and ‘FUN’ (21.22 KiB of class ‘function’) 1587s [00:53:07.276] - globals: [7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1587s [00:53:07.276] - packages: [1] ‘future.apply’ 1587s [00:53:07.276] getGlobalsAndPackages() ... DONE 1587s [00:53:07.276] - globals found/used: [n=7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1587s [00:53:07.276] - needed namespaces: [n=1] ‘future.apply’ 1587s [00:53:07.277] Finding globals ... DONE 1587s [00:53:07.277] - use_args: TRUE 1587s [00:53:07.277] - Getting '...' globals ... 1587s [00:53:07.278] resolve() on list ... 1587s [00:53:07.278] recursive: 0 1587s [00:53:07.278] length: 1 1587s [00:53:07.279] elements: ‘...’ 1587s [00:53:07.279] length: 0 (resolved future 1) 1587s [00:53:07.279] resolve() on list ... DONE 1587s [00:53:07.279] - '...' content: [n=0] 1587s [00:53:07.280] List of 1 1587s [00:53:07.280] $ ...: list() 1587s [00:53:07.280] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1587s [00:53:07.280] - attr(*, "where")=List of 1 1587s [00:53:07.280] ..$ ...: 1587s [00:53:07.280] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1587s [00:53:07.280] - attr(*, "resolved")= logi TRUE 1587s [00:53:07.280] - attr(*, "total_size")= num NA 1587s [00:53:07.283] - Getting '...' globals ... DONE 1587s [00:53:07.284] Globals to be used in all futures (chunks): [n=8] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’ 1587s [00:53:07.284] List of 8 1587s [00:53:07.284] $ ...future.FUN:function (x, ...) 1587s [00:53:07.284] $ x_FUN :function (x) 1587s [00:53:07.284] $ times : int 1 1587s [00:53:07.284] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1587s [00:53:07.284] $ stop_if_not :function (...) 1587s [00:53:07.284] $ dim : NULL 1587s [00:53:07.284] $ valid_types : chr "character" 1587s [00:53:07.284] $ ... : list() 1587s [00:53:07.284] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1587s [00:53:07.284] - attr(*, "where")=List of 8 1587s [00:53:07.284] ..$ ...future.FUN: 1587s [00:53:07.284] ..$ x_FUN : 1587s [00:53:07.284] ..$ times : 1587s [00:53:07.284] ..$ stopf : 1587s [00:53:07.284] ..$ stop_if_not : 1587s [00:53:07.284] ..$ dim : 1587s [00:53:07.284] ..$ valid_types : 1587s [00:53:07.284] ..$ ... : 1587s [00:53:07.284] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1587s [00:53:07.284] - attr(*, "resolved")= logi FALSE 1587s [00:53:07.284] - attr(*, "total_size")= num 94208 1587s [00:53:07.297] Packages to be attached in all futures: [n=1] ‘future.apply’ 1587s [00:53:07.297] getGlobalsAndPackagesXApply() ... DONE 1587s [00:53:07.298] Number of futures (= number of chunks): 1 1587s [00:53:07.298] Launching 1 futures (chunks) ... 1587s [00:53:07.298] Chunk #1 of 1 ... 1587s [00:53:07.298] - Finding globals in 'X' for chunk #1 ... 1587s [00:53:07.299] getGlobalsAndPackages() ... 1587s [00:53:07.299] Searching for globals... 1587s [00:53:07.299] 1587s [00:53:07.300] Searching for globals ... DONE 1587s [00:53:07.300] - globals: [0] 1587s [00:53:07.300] getGlobalsAndPackages() ... DONE 1587s [00:53:07.300] + additional globals found: [n=0] 1587s [00:53:07.300] + additional namespaces needed: [n=0] 1587s [00:53:07.301] - Finding globals in 'X' for chunk #1 ... DONE 1587s [00:53:07.301] - seeds: 1587s [00:53:07.301] - All globals exported: [n=11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1587s [00:53:07.301] getGlobalsAndPackages() ... 1587s [00:53:07.301] - globals passed as-is: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1587s [00:53:07.302] Resolving globals: FALSE 1587s [00:53:07.302] Tweak future expression to call with '...' arguments ... 1587s [00:53:07.302] { 1587s [00:53:07.302] do.call(function(...) { 1587s [00:53:07.302] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1587s [00:53:07.302] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1587s [00:53:07.302] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1587s [00:53:07.302] on.exit(options(oopts), add = TRUE) 1587s [00:53:07.302] } 1587s [00:53:07.302] { 1587s [00:53:07.302] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1587s [00:53:07.302] ...future.X_jj <- ...future.elements_ii[[jj]] 1587s [00:53:07.302] ...future.FUN(...future.X_jj, ...) 1587s [00:53:07.302] }) 1587s [00:53:07.302] } 1587s [00:53:07.302] }, args = future.call.arguments) 1587s [00:53:07.302] } 1587s [00:53:07.303] Tweak future expression to call with '...' arguments ... DONE 1587s [00:53:07.304] - globals: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1587s [00:53:07.304] - packages: [1] ‘future.apply’ 1587s [00:53:07.304] getGlobalsAndPackages() ... DONE 1587s [00:53:07.304] run() for ‘Future’ ... 1587s [00:53:07.305] - state: ‘created’ 1587s [00:53:07.305] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1587s [00:53:07.310] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1587s [00:53:07.310] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1587s [00:53:07.310] - Field: ‘label’ 1587s [00:53:07.311] - Field: ‘local’ 1587s [00:53:07.311] - Field: ‘owner’ 1587s [00:53:07.311] - Field: ‘envir’ 1587s [00:53:07.311] - Field: ‘packages’ 1587s [00:53:07.312] - Field: ‘gc’ 1587s [00:53:07.312] - Field: ‘conditions’ 1587s [00:53:07.312] - Field: ‘expr’ 1587s [00:53:07.312] - Field: ‘uuid’ 1587s [00:53:07.312] - Field: ‘seed’ 1587s [00:53:07.313] - Field: ‘version’ 1587s [00:53:07.313] - Field: ‘result’ 1587s [00:53:07.313] - Field: ‘asynchronous’ 1587s [00:53:07.313] - Field: ‘calls’ 1587s [00:53:07.313] - Field: ‘globals’ 1587s [00:53:07.313] - Field: ‘stdout’ 1587s [00:53:07.314] - Field: ‘earlySignal’ 1587s [00:53:07.314] - Field: ‘lazy’ 1587s [00:53:07.314] - Field: ‘state’ 1587s [00:53:07.314] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1587s [00:53:07.314] - Launch lazy future ... 1587s [00:53:07.314] Packages needed by the future expression (n = 1): ‘future.apply’ 1587s [00:53:07.315] Packages needed by future strategies (n = 0): 1587s [00:53:07.316] { 1587s [00:53:07.316] { 1587s [00:53:07.316] { 1587s [00:53:07.316] ...future.startTime <- base::Sys.time() 1587s [00:53:07.316] { 1587s [00:53:07.316] { 1587s [00:53:07.316] { 1587s [00:53:07.316] { 1587s [00:53:07.316] base::local({ 1587s [00:53:07.316] has_future <- base::requireNamespace("future", 1587s [00:53:07.316] quietly = TRUE) 1587s [00:53:07.316] if (has_future) { 1587s [00:53:07.316] ns <- base::getNamespace("future") 1587s [00:53:07.316] version <- ns[[".package"]][["version"]] 1587s [00:53:07.316] if (is.null(version)) 1587s [00:53:07.316] version <- utils::packageVersion("future") 1587s [00:53:07.316] } 1587s [00:53:07.316] else { 1587s [00:53:07.316] version <- NULL 1587s [00:53:07.316] } 1587s [00:53:07.316] if (!has_future || version < "1.8.0") { 1587s [00:53:07.316] info <- base::c(r_version = base::gsub("R version ", 1587s [00:53:07.316] "", base::R.version$version.string), 1587s [00:53:07.316] platform = base::sprintf("%s (%s-bit)", 1587s [00:53:07.316] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1587s [00:53:07.316] os = base::paste(base::Sys.info()[base::c("sysname", 1587s [00:53:07.316] "release", "version")], collapse = " "), 1587s [00:53:07.316] hostname = base::Sys.info()[["nodename"]]) 1587s [00:53:07.316] info <- base::sprintf("%s: %s", base::names(info), 1587s [00:53:07.316] info) 1587s [00:53:07.316] info <- base::paste(info, collapse = "; ") 1587s [00:53:07.316] if (!has_future) { 1587s [00:53:07.316] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1587s [00:53:07.316] info) 1587s [00:53:07.316] } 1587s [00:53:07.316] else { 1587s [00:53:07.316] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1587s [00:53:07.316] info, version) 1587s [00:53:07.316] } 1587s [00:53:07.316] base::stop(msg) 1587s [00:53:07.316] } 1587s [00:53:07.316] }) 1587s [00:53:07.316] } 1587s [00:53:07.316] base::local({ 1587s [00:53:07.316] for (pkg in "future.apply") { 1587s [00:53:07.316] base::loadNamespace(pkg) 1587s [00:53:07.316] base::library(pkg, character.only = TRUE) 1587s [00:53:07.316] } 1587s [00:53:07.316] }) 1587s [00:53:07.316] } 1587s [00:53:07.316] options(future.plan = NULL) 1587s [00:53:07.316] Sys.unsetenv("R_FUTURE_PLAN") 1587s [00:53:07.316] future::plan("default", .cleanup = FALSE, .init = FALSE) 1587s [00:53:07.316] } 1587s [00:53:07.316] ...future.workdir <- getwd() 1587s [00:53:07.316] } 1587s [00:53:07.316] ...future.oldOptions <- base::as.list(base::.Options) 1587s [00:53:07.316] ...future.oldEnvVars <- base::Sys.getenv() 1587s [00:53:07.316] } 1587s [00:53:07.316] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1587s [00:53:07.316] future.globals.maxSize = NULL, future.globals.method = NULL, 1587s [00:53:07.316] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1587s [00:53:07.316] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1587s [00:53:07.316] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1587s [00:53:07.316] future.stdout.windows.reencode = NULL, width = 80L) 1587s [00:53:07.316] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1587s [00:53:07.316] base::names(...future.oldOptions)) 1587s [00:53:07.316] } 1587s [00:53:07.316] if (FALSE) { 1587s [00:53:07.316] } 1587s [00:53:07.316] else { 1587s [00:53:07.316] if (TRUE) { 1587s [00:53:07.316] ...future.stdout <- base::rawConnection(base::raw(0L), 1587s [00:53:07.316] open = "w") 1587s [00:53:07.316] } 1587s [00:53:07.316] else { 1587s [00:53:07.316] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1587s [00:53:07.316] windows = "NUL", "/dev/null"), open = "w") 1587s [00:53:07.316] } 1587s [00:53:07.316] base::sink(...future.stdout, type = "output", split = FALSE) 1587s [00:53:07.316] base::on.exit(if (!base::is.null(...future.stdout)) { 1587s [00:53:07.316] base::sink(type = "output", split = FALSE) 1587s [00:53:07.316] base::close(...future.stdout) 1587s [00:53:07.316] }, add = TRUE) 1587s [00:53:07.316] } 1587s [00:53:07.316] ...future.frame <- base::sys.nframe() 1587s [00:53:07.316] ...future.conditions <- base::list() 1587s [00:53:07.316] ...future.rng <- base::globalenv()$.Random.seed 1587s [00:53:07.316] if (FALSE) { 1587s [00:53:07.316] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1587s [00:53:07.316] "...future.value", "...future.globalenv.names", ".Random.seed") 1587s [00:53:07.316] } 1587s [00:53:07.316] ...future.result <- base::tryCatch({ 1587s [00:53:07.316] base::withCallingHandlers({ 1587s [00:53:07.316] ...future.value <- base::withVisible(base::local({ 1587s [00:53:07.316] do.call(function(...) { 1587s [00:53:07.316] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1587s [00:53:07.316] if (!identical(...future.globals.maxSize.org, 1587s [00:53:07.316] ...future.globals.maxSize)) { 1587s [00:53:07.316] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1587s [00:53:07.316] on.exit(options(oopts), add = TRUE) 1587s [00:53:07.316] } 1587s [00:53:07.316] { 1587s [00:53:07.316] lapply(seq_along(...future.elements_ii), 1587s [00:53:07.316] FUN = function(jj) { 1587s [00:53:07.316] ...future.X_jj <- ...future.elements_ii[[jj]] 1587s [00:53:07.316] ...future.FUN(...future.X_jj, ...) 1587s [00:53:07.316] }) 1587s [00:53:07.316] } 1587s [00:53:07.316] }, args = future.call.arguments) 1587s [00:53:07.316] })) 1587s [00:53:07.316] future::FutureResult(value = ...future.value$value, 1587s [00:53:07.316] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1587s [00:53:07.316] ...future.rng), globalenv = if (FALSE) 1587s [00:53:07.316] list(added = base::setdiff(base::names(base::.GlobalEnv), 1587s [00:53:07.316] ...future.globalenv.names)) 1587s [00:53:07.316] else NULL, started = ...future.startTime, version = "1.8") 1587s [00:53:07.316] }, condition = base::local({ 1587s [00:53:07.316] c <- base::c 1587s [00:53:07.316] inherits <- base::inherits 1587s [00:53:07.316] invokeRestart <- base::invokeRestart 1587s [00:53:07.316] length <- base::length 1587s [00:53:07.316] list <- base::list 1587s [00:53:07.316] seq.int <- base::seq.int 1587s [00:53:07.316] signalCondition <- base::signalCondition 1587s [00:53:07.316] sys.calls <- base::sys.calls 1587s [00:53:07.316] `[[` <- base::`[[` 1587s [00:53:07.316] `+` <- base::`+` 1587s [00:53:07.316] `<<-` <- base::`<<-` 1587s [00:53:07.316] sysCalls <- function(calls = sys.calls(), from = 1L) { 1587s [00:53:07.316] calls[seq.int(from = from + 12L, to = length(calls) - 1587s [00:53:07.316] 3L)] 1587s [00:53:07.316] } 1587s [00:53:07.316] function(cond) { 1587s [00:53:07.316] is_error <- inherits(cond, "error") 1587s [00:53:07.316] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1587s [00:53:07.316] NULL) 1587s [00:53:07.316] if (is_error) { 1587s [00:53:07.316] sessionInformation <- function() { 1587s [00:53:07.316] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1587s [00:53:07.316] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1587s [00:53:07.316] search = base::search(), system = base::Sys.info()) 1587s [00:53:07.316] } 1587s [00:53:07.316] ...future.conditions[[length(...future.conditions) + 1587s [00:53:07.316] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1587s [00:53:07.316] cond$call), session = sessionInformation(), 1587s [00:53:07.316] timestamp = base::Sys.time(), signaled = 0L) 1587s [00:53:07.316] signalCondition(cond) 1587s [00:53:07.316] } 1587s [00:53:07.316] else if (!ignore && TRUE && inherits(cond, c("condition", 1587s [00:53:07.316] "immediateCondition"))) { 1587s [00:53:07.316] signal <- TRUE && inherits(cond, "immediateCondition") 1587s [00:53:07.316] ...future.conditions[[length(...future.conditions) + 1587s [00:53:07.316] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1587s [00:53:07.316] if (TRUE && !signal) { 1587s [00:53:07.316] muffleCondition <- function (cond, pattern = "^muffle") 1587s [00:53:07.316] { 1587s [00:53:07.316] inherits <- base::inherits 1587s [00:53:07.316] invokeRestart <- base::invokeRestart 1587s [00:53:07.316] is.null <- base::is.null 1587s [00:53:07.316] muffled <- FALSE 1587s [00:53:07.316] if (inherits(cond, "message")) { 1587s [00:53:07.316] muffled <- grepl(pattern, "muffleMessage") 1587s [00:53:07.316] if (muffled) 1587s [00:53:07.316] invokeRestart("muffleMessage") 1587s [00:53:07.316] } 1587s [00:53:07.316] else if (inherits(cond, "warning")) { 1587s [00:53:07.316] muffled <- grepl(pattern, "muffleWarning") 1587s [00:53:07.316] if (muffled) 1587s [00:53:07.316] invokeRestart("muffleWarning") 1587s [00:53:07.316] } 1587s [00:53:07.316] else if (inherits(cond, "condition")) { 1587s [00:53:07.316] if (!is.null(pattern)) { 1587s [00:53:07.316] computeRestarts <- base::computeRestarts 1587s [00:53:07.316] grepl <- base::grepl 1587s [00:53:07.316] restarts <- computeRestarts(cond) 1587s [00:53:07.316] for (restart in restarts) { 1587s [00:53:07.316] name <- restart$name 1587s [00:53:07.316] if (is.null(name)) 1587s [00:53:07.316] next 1587s [00:53:07.316] if (!grepl(pattern, name)) 1587s [00:53:07.316] next 1587s [00:53:07.316] invokeRestart(restart) 1587s [00:53:07.316] muffled <- TRUE 1587s [00:53:07.316] break 1587s [00:53:07.316] } 1587s [00:53:07.316] } 1587s [00:53:07.316] } 1587s [00:53:07.316] invisible(muffled) 1587s [00:53:07.316] } 1587s [00:53:07.316] muffleCondition(cond, pattern = "^muffle") 1587s [00:53:07.316] } 1587s [00:53:07.316] } 1587s [00:53:07.316] else { 1587s [00:53:07.316] if (TRUE) { 1587s [00:53:07.316] muffleCondition <- function (cond, pattern = "^muffle") 1587s [00:53:07.316] { 1587s [00:53:07.316] inherits <- base::inherits 1587s [00:53:07.316] invokeRestart <- base::invokeRestart 1587s [00:53:07.316] is.null <- base::is.null 1587s [00:53:07.316] muffled <- FALSE 1587s [00:53:07.316] if (inherits(cond, "message")) { 1587s [00:53:07.316] muffled <- grepl(pattern, "muffleMessage") 1587s [00:53:07.316] if (muffled) 1587s [00:53:07.316] invokeRestart("muffleMessage") 1587s [00:53:07.316] } 1587s [00:53:07.316] else if (inherits(cond, "warning")) { 1587s [00:53:07.316] muffled <- grepl(pattern, "muffleWarning") 1587s [00:53:07.316] if (muffled) 1587s [00:53:07.316] invokeRestart("muffleWarning") 1587s [00:53:07.316] } 1587s [00:53:07.316] else if (inherits(cond, "condition")) { 1587s [00:53:07.316] if (!is.null(pattern)) { 1587s [00:53:07.316] computeRestarts <- base::computeRestarts 1587s [00:53:07.316] grepl <- base::grepl 1587s [00:53:07.316] restarts <- computeRestarts(cond) 1587s [00:53:07.316] for (restart in restarts) { 1587s [00:53:07.316] name <- restart$name 1587s [00:53:07.316] if (is.null(name)) 1587s [00:53:07.316] next 1587s [00:53:07.316] if (!grepl(pattern, name)) 1587s [00:53:07.316] next 1587s [00:53:07.316] invokeRestart(restart) 1587s [00:53:07.316] muffled <- TRUE 1587s [00:53:07.316] break 1587s [00:53:07.316] } 1587s [00:53:07.316] } 1587s [00:53:07.316] } 1587s [00:53:07.316] invisible(muffled) 1587s [00:53:07.316] } 1587s [00:53:07.316] muffleCondition(cond, pattern = "^muffle") 1587s [00:53:07.316] } 1587s [00:53:07.316] } 1587s [00:53:07.316] } 1587s [00:53:07.316] })) 1587s [00:53:07.316] }, error = function(ex) { 1587s [00:53:07.316] base::structure(base::list(value = NULL, visible = NULL, 1587s [00:53:07.316] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1587s [00:53:07.316] ...future.rng), started = ...future.startTime, 1587s [00:53:07.316] finished = Sys.time(), session_uuid = NA_character_, 1587s [00:53:07.316] version = "1.8"), class = "FutureResult") 1587s [00:53:07.316] }, finally = { 1587s [00:53:07.316] if (!identical(...future.workdir, getwd())) 1587s [00:53:07.316] setwd(...future.workdir) 1587s [00:53:07.316] { 1587s [00:53:07.316] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1587s [00:53:07.316] ...future.oldOptions$nwarnings <- NULL 1587s [00:53:07.316] } 1587s [00:53:07.316] base::options(...future.oldOptions) 1587s [00:53:07.316] if (.Platform$OS.type == "windows") { 1587s [00:53:07.316] old_names <- names(...future.oldEnvVars) 1587s [00:53:07.316] envs <- base::Sys.getenv() 1587s [00:53:07.316] names <- names(envs) 1587s [00:53:07.316] common <- intersect(names, old_names) 1587s [00:53:07.316] added <- setdiff(names, old_names) 1587s [00:53:07.316] removed <- setdiff(old_names, names) 1587s [00:53:07.316] changed <- common[...future.oldEnvVars[common] != 1587s [00:53:07.316] envs[common]] 1587s [00:53:07.316] NAMES <- toupper(changed) 1587s [00:53:07.316] args <- list() 1587s [00:53:07.316] for (kk in seq_along(NAMES)) { 1587s [00:53:07.316] name <- changed[[kk]] 1587s [00:53:07.316] NAME <- NAMES[[kk]] 1587s [00:53:07.316] if (name != NAME && is.element(NAME, old_names)) 1587s [00:53:07.316] next 1587s [00:53:07.316] args[[name]] <- ...future.oldEnvVars[[name]] 1587s [00:53:07.316] } 1587s [00:53:07.316] NAMES <- toupper(added) 1587s [00:53:07.316] for (kk in seq_along(NAMES)) { 1587s [00:53:07.316] name <- added[[kk]] 1587s [00:53:07.316] NAME <- NAMES[[kk]] 1587s [00:53:07.316] if (name != NAME && is.element(NAME, old_names)) 1587s [00:53:07.316] next 1587s [00:53:07.316] args[[name]] <- "" 1587s [00:53:07.316] } 1587s [00:53:07.316] NAMES <- toupper(removed) 1587s [00:53:07.316] for (kk in seq_along(NAMES)) { 1587s [00:53:07.316] name <- removed[[kk]] 1587s [00:53:07.316] NAME <- NAMES[[kk]] 1587s [00:53:07.316] if (name != NAME && is.element(NAME, old_names)) 1587s [00:53:07.316] next 1587s [00:53:07.316] args[[name]] <- ...future.oldEnvVars[[name]] 1587s [00:53:07.316] } 1587s [00:53:07.316] if (length(args) > 0) 1587s [00:53:07.316] base::do.call(base::Sys.setenv, args = args) 1587s [00:53:07.316] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1587s [00:53:07.316] } 1587s [00:53:07.316] else { 1587s [00:53:07.316] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1587s [00:53:07.316] } 1587s [00:53:07.316] { 1587s [00:53:07.316] if (base::length(...future.futureOptionsAdded) > 1587s [00:53:07.316] 0L) { 1587s [00:53:07.316] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1587s [00:53:07.316] base::names(opts) <- ...future.futureOptionsAdded 1587s [00:53:07.316] base::options(opts) 1587s [00:53:07.316] } 1587s [00:53:07.316] { 1587s [00:53:07.316] { 1587s [00:53:07.316] NULL 1587s [00:53:07.316] RNGkind("Mersenne-Twister") 1587s [00:53:07.316] base::rm(list = ".Random.seed", envir = base::globalenv(), 1587s [00:53:07.316] inherits = FALSE) 1587s [00:53:07.316] } 1587s [00:53:07.316] options(future.plan = NULL) 1587s [00:53:07.316] if (is.na(NA_character_)) 1587s [00:53:07.316] Sys.unsetenv("R_FUTURE_PLAN") 1587s [00:53:07.316] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1587s [00:53:07.316] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1587s [00:53:07.316] envir = parent.frame()) 1587s [00:53:07.316] { 1587s [00:53:07.316] default_workers <- missing(workers) 1587s [00:53:07.316] if (is.function(workers)) 1587s [00:53:07.316] workers <- workers() 1587s [00:53:07.316] workers <- structure(as.integer(workers), 1587s [00:53:07.316] class = class(workers)) 1587s [00:53:07.316] stop_if_not(is.finite(workers), workers >= 1587s [00:53:07.316] 1L) 1587s [00:53:07.316] if ((workers == 1L && !inherits(workers, 1587s [00:53:07.316] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1587s [00:53:07.316] if (default_workers) 1587s [00:53:07.316] supportsMulticore(warn = TRUE) 1587s [00:53:07.316] return(sequential(..., envir = envir)) 1587s [00:53:07.316] } 1587s [00:53:07.316] oopts <- options(mc.cores = workers) 1587s [00:53:07.316] on.exit(options(oopts)) 1587s [00:53:07.316] future <- MulticoreFuture(..., workers = workers, 1587s [00:53:07.316] envir = envir) 1587s [00:53:07.316] if (!future$lazy) 1587s [00:53:07.316] future <- run(future) 1587s [00:53:07.316] invisible(future) 1587s [00:53:07.316] }), .cleanup = FALSE, .init = FALSE) 1587s [00:53:07.316] } 1587s [00:53:07.316] } 1587s [00:53:07.316] } 1587s [00:53:07.316] }) 1587s [00:53:07.316] if (TRUE) { 1587s [00:53:07.316] base::sink(type = "output", split = FALSE) 1587s [00:53:07.316] if (TRUE) { 1587s [00:53:07.316] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1587s [00:53:07.316] } 1587s [00:53:07.316] else { 1587s [00:53:07.316] ...future.result["stdout"] <- base::list(NULL) 1587s [00:53:07.316] } 1587s [00:53:07.316] base::close(...future.stdout) 1587s [00:53:07.316] ...future.stdout <- NULL 1587s [00:53:07.316] } 1587s [00:53:07.316] ...future.result$conditions <- ...future.conditions 1587s [00:53:07.316] ...future.result$finished <- base::Sys.time() 1587s [00:53:07.316] ...future.result 1587s [00:53:07.316] } 1587s [00:53:07.321] assign_globals() ... 1587s [00:53:07.321] List of 11 1587s [00:53:07.321] $ ...future.FUN :function (x, ...) 1587s [00:53:07.321] $ x_FUN :function (x) 1587s [00:53:07.321] $ times : int 1 1587s [00:53:07.321] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1587s [00:53:07.321] $ stop_if_not :function (...) 1587s [00:53:07.321] $ dim : NULL 1587s [00:53:07.321] $ valid_types : chr "character" 1587s [00:53:07.321] $ future.call.arguments : list() 1587s [00:53:07.321] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1587s [00:53:07.321] $ ...future.elements_ii :List of 2 1587s [00:53:07.321] ..$ x: int [1:10] 1 2 3 4 5 6 7 8 9 10 1587s [00:53:07.321] ..$ y: chr [1:10] "a" "b" "c" "d" ... 1587s [00:53:07.321] $ ...future.seeds_ii : NULL 1587s [00:53:07.321] $ ...future.globals.maxSize: NULL 1587s [00:53:07.321] - attr(*, "where")=List of 11 1587s [00:53:07.321] ..$ ...future.FUN : 1587s [00:53:07.321] ..$ x_FUN : 1587s [00:53:07.321] ..$ times : 1587s [00:53:07.321] ..$ stopf : 1587s [00:53:07.321] ..$ stop_if_not : 1587s [00:53:07.321] ..$ dim : 1587s [00:53:07.321] ..$ valid_types : 1587s [00:53:07.321] ..$ future.call.arguments : 1587s [00:53:07.321] ..$ ...future.elements_ii : 1587s [00:53:07.321] ..$ ...future.seeds_ii : 1587s [00:53:07.321] ..$ ...future.globals.maxSize: 1587s [00:53:07.321] - attr(*, "resolved")= logi FALSE 1587s [00:53:07.321] - attr(*, "total_size")= num 94208 1587s [00:53:07.321] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1587s [00:53:07.321] - attr(*, "already-done")= logi TRUE 1587s [00:53:07.333] - copied ‘...future.FUN’ to environment 1587s [00:53:07.333] - copied ‘x_FUN’ to environment 1587s [00:53:07.333] - copied ‘times’ to environment 1587s [00:53:07.334] - copied ‘stopf’ to environment 1587s [00:53:07.334] - copied ‘stop_if_not’ to environment 1587s [00:53:07.334] - copied ‘dim’ to environment 1587s [00:53:07.334] - copied ‘valid_types’ to environment 1587s [00:53:07.334] - copied ‘future.call.arguments’ to environment 1587s [00:53:07.334] - copied ‘...future.elements_ii’ to environment 1587s [00:53:07.335] - copied ‘...future.seeds_ii’ to environment 1587s [00:53:07.335] - copied ‘...future.globals.maxSize’ to environment 1587s [00:53:07.335] assign_globals() ... done 1587s [00:53:07.335] plan(): Setting new future strategy stack: 1587s [00:53:07.335] List of future strategies: 1587s [00:53:07.335] 1. sequential: 1587s [00:53:07.335] - args: function (..., envir = parent.frame()) 1587s [00:53:07.335] - tweaked: FALSE 1587s [00:53:07.335] - call: NULL 1587s [00:53:07.336] plan(): nbrOfWorkers() = 1 1587s [00:53:07.339] plan(): Setting new future strategy stack: 1587s [00:53:07.340] List of future strategies: 1587s [00:53:07.340] 1. multicore: 1587s [00:53:07.340] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1587s [00:53:07.340] - tweaked: FALSE 1587s [00:53:07.340] - call: plan(strategy) 1587s [00:53:07.344] plan(): nbrOfWorkers() = 1 1587s [00:53:07.345] SequentialFuture started (and completed) 1587s [00:53:07.345] - Launch lazy future ... done 1587s [00:53:07.346] run() for ‘SequentialFuture’ ... done 1587s [00:53:07.346] Created future: 1587s [00:53:07.346] SequentialFuture: 1587s [00:53:07.346] Label: ‘future_vapply-1’ 1587s [00:53:07.346] Expression: 1587s [00:53:07.346] { 1587s [00:53:07.346] do.call(function(...) { 1587s [00:53:07.346] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1587s [00:53:07.346] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1587s [00:53:07.346] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1587s [00:53:07.346] on.exit(options(oopts), add = TRUE) 1587s [00:53:07.346] } 1587s [00:53:07.346] { 1587s [00:53:07.346] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1587s [00:53:07.346] ...future.X_jj <- ...future.elements_ii[[jj]] 1587s [00:53:07.346] ...future.FUN(...future.X_jj, ...) 1587s [00:53:07.346] }) 1587s [00:53:07.346] } 1587s [00:53:07.346] }, args = future.call.arguments) 1587s [00:53:07.346] } 1587s [00:53:07.346] Lazy evaluation: FALSE 1587s [00:53:07.346] Asynchronous evaluation: FALSE 1587s [00:53:07.346] Local evaluation: TRUE 1587s [00:53:07.346] Environment: R_GlobalEnv 1587s [00:53:07.346] Capture standard output: TRUE 1587s [00:53:07.346] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1587s [00:53:07.346] Globals: 11 objects totaling 92.81 KiB (function ‘...future.FUN’ of 21.22 KiB, function ‘x_FUN’ of 56 bytes, integer ‘times’ of 56 bytes, function ‘stopf’ of 26.43 KiB, function ‘stop_if_not’ of 44.12 KiB, ...) 1587s [00:53:07.346] Packages: 1 packages (‘future.apply’) 1587s [00:53:07.346] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1587s [00:53:07.346] Resolved: TRUE 1587s [00:53:07.346] Value: 232 bytes of class ‘list’ 1587s [00:53:07.346] Early signaling: FALSE 1587s [00:53:07.346] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1587s [00:53:07.346] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1587s [00:53:07.349] Chunk #1 of 1 ... DONE 1587s [00:53:07.349] Launching 1 futures (chunks) ... DONE 1587s [00:53:07.349] Resolving 1 futures (chunks) ... 1587s [00:53:07.350] resolve() on list ... 1587s [00:53:07.350] recursive: 0 1587s [00:53:07.350] length: 1 1587s [00:53:07.350] 1587s [00:53:07.351] resolved() for ‘SequentialFuture’ ... 1587s [00:53:07.351] - state: ‘finished’ 1587s [00:53:07.352] - run: TRUE 1587s [00:53:07.352] - result: ‘FutureResult’ 1587s [00:53:07.352] resolved() for ‘SequentialFuture’ ... done 1587s [00:53:07.352] Future #1 1587s [00:53:07.352] signalConditionsASAP(SequentialFuture, pos=1) ... 1587s [00:53:07.353] - nx: 1 1587s [00:53:07.353] - relay: TRUE 1587s [00:53:07.353] - stdout: TRUE 1587s [00:53:07.353] - signal: TRUE 1587s [00:53:07.353] - resignal: FALSE 1587s [00:53:07.353] - force: TRUE 1587s [00:53:07.354] - relayed: [n=1] FALSE 1587s [00:53:07.354] - queued futures: [n=1] FALSE 1587s [00:53:07.354] - until=1 1587s [00:53:07.354] - relaying element #1 1587s [00:53:07.354] - relayed: [n=1] TRUE 1587s [00:53:07.355] - queued futures: [n=1] TRUE 1587s [00:53:07.355] signalConditionsASAP(SequentialFuture, pos=1) ... done 1587s [00:53:07.355] length: 0 (resolved future 1) 1587s [00:53:07.355] Relaying remaining futures 1587s [00:53:07.355] signalConditionsASAP(NULL, pos=0) ... 1587s [00:53:07.355] - nx: 1 1587s [00:53:07.356] - relay: TRUE 1587s [00:53:07.356] - stdout: TRUE 1587s [00:53:07.356] - signal: TRUE 1587s [00:53:07.356] - resignal: FALSE 1587s [00:53:07.356] - force: TRUE 1587s [00:53:07.356] - relayed: [n=1] TRUE 1587s [00:53:07.356] - queued futures: [n=1] TRUE 1587s - flush all 1587s [00:53:07.357] - relayed: [n=1] TRUE 1587s [00:53:07.357] - queued futures: [n=1] TRUE 1587s [00:53:07.357] signalConditionsASAP(NULL, pos=0) ... done 1587s [00:53:07.358] resolve() on list ... DONE 1587s [00:53:07.358] - Number of value chunks collected: 1 1587s [00:53:07.358] Resolving 1 futures (chunks) ... DONE 1587s [00:53:07.358] Reducing values from 1 chunks ... 1587s [00:53:07.358] - Number of values collected after concatenation: 2 1587s [00:53:07.359] - Number of values expected: 2 1587s [00:53:07.359] Reducing values from 1 chunks ... DONE 1587s [00:53:07.359] future_lapply() ... DONE 1587s Named chr [1:2] "integer" "character" 1587s - attr(*, "names")= chr [1:2] "x" "y" 1587s num[0 , 1:10] 1587s [00:53:07.361] future_lapply() ... 1587s [00:53:07.366] Number of chunks: 1 1587s [00:53:07.367] getGlobalsAndPackagesXApply() ... 1587s [00:53:07.367] - future.globals: TRUE 1587s [00:53:07.367] getGlobalsAndPackages() ... 1587s [00:53:07.367] Searching for globals... 1587s [00:53:07.373] - globals found: [17] ‘FUN’, ‘{’, ‘<-’, ‘x_FUN’, ‘if’, ‘!=’, ‘length’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘all’, ‘==’, ‘dim’, ‘%in%’, ‘typeof’, ‘valid_types’, ‘double’ 1587s [00:53:07.373] Searching for globals ... DONE 1587s [00:53:07.374] Resolving globals: FALSE 1587s [00:53:07.375] The total size of the 7 globals is 93.23 KiB (95472 bytes) 1587s [00:53:07.376] The total size of the 7 globals exported for future expression (‘FUN()’) is 93.23 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘stop_if_not’ (44.12 KiB of class ‘function’), ‘stopf’ (26.43 KiB of class ‘function’) and ‘FUN’ (21.22 KiB of class ‘function’) 1587s [00:53:07.376] - globals: [7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1587s [00:53:07.376] - packages: [1] ‘future.apply’ 1587s [00:53:07.376] getGlobalsAndPackages() ... DONE 1587s [00:53:07.377] - globals found/used: [n=7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1587s [00:53:07.377] - needed namespaces: [n=1] ‘future.apply’ 1587s [00:53:07.377] Finding globals ... DONE 1587s [00:53:07.377] - use_args: TRUE 1587s [00:53:07.377] - Getting '...' globals ... 1587s [00:53:07.378] resolve() on list ... 1587s [00:53:07.378] recursive: 0 1587s [00:53:07.378] length: 1 1587s [00:53:07.378] elements: ‘...’ 1587s [00:53:07.378] length: 0 (resolved future 1) 1587s [00:53:07.378] resolve() on list ... DONE 1587s [00:53:07.379] - '...' content: [n=0] 1587s [00:53:07.379] List of 1 1587s [00:53:07.379] $ ...: list() 1587s [00:53:07.379] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1587s [00:53:07.379] - attr(*, "where")=List of 1 1587s [00:53:07.379] ..$ ...: 1587s [00:53:07.379] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1587s [00:53:07.379] - attr(*, "resolved")= logi TRUE 1587s [00:53:07.379] - attr(*, "total_size")= num NA 1587s [00:53:07.385] - Getting '...' globals ... DONE 1587s [00:53:07.386] Globals to be used in all futures (chunks): [n=8] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’ 1587s [00:53:07.386] List of 8 1587s [00:53:07.386] $ ...future.FUN:function (x, ...) 1587s [00:53:07.386] $ x_FUN :function (x) 1587s [00:53:07.386] $ times : int 0 1587s [00:53:07.386] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1587s [00:53:07.386] $ stop_if_not :function (...) 1587s [00:53:07.386] $ dim : NULL 1587s [00:53:07.386] $ valid_types : chr [1:3] "logical" "integer" "double" 1587s [00:53:07.386] $ ... : list() 1587s [00:53:07.386] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1587s [00:53:07.386] - attr(*, "where")=List of 8 1587s [00:53:07.386] ..$ ...future.FUN: 1587s [00:53:07.386] ..$ x_FUN : 1587s [00:53:07.386] ..$ times : 1587s [00:53:07.386] ..$ stopf : 1587s [00:53:07.386] ..$ stop_if_not : 1587s [00:53:07.386] ..$ dim : 1587s [00:53:07.386] ..$ valid_types : 1587s [00:53:07.386] ..$ ... : 1587s [00:53:07.386] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1587s [00:53:07.386] - attr(*, "resolved")= logi FALSE 1587s [00:53:07.386] - attr(*, "total_size")= num 95472 1587s [00:53:07.397] Packages to be attached in all futures: [n=1] ‘future.apply’ 1587s [00:53:07.398] getGlobalsAndPackagesXApply() ... DONE 1587s [00:53:07.398] Number of futures (= number of chunks): 1 1587s [00:53:07.398] Launching 1 futures (chunks) ... 1587s [00:53:07.399] Chunk #1 of 1 ... 1587s [00:53:07.399] - Finding globals in 'X' for chunk #1 ... 1587s [00:53:07.399] getGlobalsAndPackages() ... 1587s [00:53:07.399] Searching for globals... 1587s [00:53:07.400] 1587s [00:53:07.400] Searching for globals ... DONE 1587s [00:53:07.400] - globals: [0] 1587s [00:53:07.400] getGlobalsAndPackages() ... DONE 1587s [00:53:07.401] + additional globals found: [n=0] 1587s [00:53:07.401] + additional namespaces needed: [n=0] 1587s [00:53:07.401] - Finding globals in 'X' for chunk #1 ... DONE 1587s [00:53:07.401] - seeds: 1587s [00:53:07.402] - All globals exported: [n=11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1587s [00:53:07.402] getGlobalsAndPackages() ... 1587s [00:53:07.402] - globals passed as-is: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1587s [00:53:07.403] Resolving globals: FALSE 1587s [00:53:07.403] Tweak future expression to call with '...' arguments ... 1587s [00:53:07.403] { 1587s [00:53:07.403] do.call(function(...) { 1587s [00:53:07.403] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1587s [00:53:07.403] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1587s [00:53:07.403] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1587s [00:53:07.403] on.exit(options(oopts), add = TRUE) 1587s [00:53:07.403] } 1587s [00:53:07.403] { 1587s [00:53:07.403] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1587s [00:53:07.403] ...future.X_jj <- ...future.elements_ii[[jj]] 1587s [00:53:07.403] ...future.FUN(...future.X_jj, ...) 1587s [00:53:07.403] }) 1587s [00:53:07.403] } 1587s [00:53:07.403] }, args = future.call.arguments) 1587s [00:53:07.403] } 1587s [00:53:07.404] Tweak future expression to call with '...' arguments ... DONE 1587s [00:53:07.405] - globals: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1587s [00:53:07.405] - packages: [1] ‘future.apply’ 1587s [00:53:07.406] getGlobalsAndPackages() ... DONE 1587s [00:53:07.406] run() for ‘Future’ ... 1587s [00:53:07.406] - state: ‘created’ 1587s [00:53:07.406] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1587s [00:53:07.410] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1587s [00:53:07.410] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1587s [00:53:07.410] - Field: ‘label’ 1587s [00:53:07.410] - Field: ‘local’ 1587s [00:53:07.410] - Field: ‘owner’ 1587s [00:53:07.411] - Field: ‘envir’ 1587s [00:53:07.411] - Field: ‘packages’ 1587s [00:53:07.411] - Field: ‘gc’ 1587s [00:53:07.411] - Field: ‘conditions’ 1587s [00:53:07.411] - Field: ‘expr’ 1587s [00:53:07.411] - Field: ‘uuid’ 1587s [00:53:07.412] - Field: ‘seed’ 1587s [00:53:07.412] - Field: ‘version’ 1587s [00:53:07.412] - Field: ‘result’ 1587s [00:53:07.412] - Field: ‘asynchronous’ 1587s [00:53:07.413] - Field: ‘calls’ 1587s [00:53:07.413] - Field: ‘globals’ 1587s [00:53:07.413] - Field: ‘stdout’ 1587s [00:53:07.413] - Field: ‘earlySignal’ 1587s [00:53:07.414] - Field: ‘lazy’ 1587s [00:53:07.414] - Field: ‘state’ 1587s [00:53:07.414] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1587s [00:53:07.414] - Launch lazy future ... 1587s [00:53:07.414] Packages needed by the future expression (n = 1): ‘future.apply’ 1587s [00:53:07.415] Packages needed by future strategies (n = 0): 1587s [00:53:07.415] { 1587s [00:53:07.415] { 1587s [00:53:07.415] { 1587s [00:53:07.415] ...future.startTime <- base::Sys.time() 1587s [00:53:07.415] { 1587s [00:53:07.415] { 1587s [00:53:07.415] { 1587s [00:53:07.415] { 1587s [00:53:07.415] base::local({ 1587s [00:53:07.415] has_future <- base::requireNamespace("future", 1587s [00:53:07.415] quietly = TRUE) 1587s [00:53:07.415] if (has_future) { 1587s [00:53:07.415] ns <- base::getNamespace("future") 1587s [00:53:07.415] version <- ns[[".package"]][["version"]] 1587s [00:53:07.415] if (is.null(version)) 1587s [00:53:07.415] version <- utils::packageVersion("future") 1587s [00:53:07.415] } 1587s [00:53:07.415] else { 1587s [00:53:07.415] version <- NULL 1587s [00:53:07.415] } 1587s [00:53:07.415] if (!has_future || version < "1.8.0") { 1587s [00:53:07.415] info <- base::c(r_version = base::gsub("R version ", 1587s [00:53:07.415] "", base::R.version$version.string), 1587s [00:53:07.415] platform = base::sprintf("%s (%s-bit)", 1587s [00:53:07.415] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1587s [00:53:07.415] os = base::paste(base::Sys.info()[base::c("sysname", 1587s [00:53:07.415] "release", "version")], collapse = " "), 1587s [00:53:07.415] hostname = base::Sys.info()[["nodename"]]) 1587s [00:53:07.415] info <- base::sprintf("%s: %s", base::names(info), 1587s [00:53:07.415] info) 1587s [00:53:07.415] info <- base::paste(info, collapse = "; ") 1587s [00:53:07.415] if (!has_future) { 1587s [00:53:07.415] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1587s [00:53:07.415] info) 1587s [00:53:07.415] } 1587s [00:53:07.415] else { 1587s [00:53:07.415] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1587s [00:53:07.415] info, version) 1587s [00:53:07.415] } 1587s [00:53:07.415] base::stop(msg) 1587s [00:53:07.415] } 1587s [00:53:07.415] }) 1587s [00:53:07.415] } 1587s [00:53:07.415] base::local({ 1587s [00:53:07.415] for (pkg in "future.apply") { 1587s [00:53:07.415] base::loadNamespace(pkg) 1587s [00:53:07.415] base::library(pkg, character.only = TRUE) 1587s [00:53:07.415] } 1587s [00:53:07.415] }) 1587s [00:53:07.415] } 1587s [00:53:07.415] options(future.plan = NULL) 1587s [00:53:07.415] Sys.unsetenv("R_FUTURE_PLAN") 1587s [00:53:07.415] future::plan("default", .cleanup = FALSE, .init = FALSE) 1587s [00:53:07.415] } 1587s [00:53:07.415] ...future.workdir <- getwd() 1587s [00:53:07.415] } 1587s [00:53:07.415] ...future.oldOptions <- base::as.list(base::.Options) 1587s [00:53:07.415] ...future.oldEnvVars <- base::Sys.getenv() 1587s [00:53:07.415] } 1587s [00:53:07.415] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1587s [00:53:07.415] future.globals.maxSize = NULL, future.globals.method = NULL, 1587s [00:53:07.415] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1587s [00:53:07.415] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1587s [00:53:07.415] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1587s [00:53:07.415] future.stdout.windows.reencode = NULL, width = 80L) 1587s [00:53:07.415] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1587s [00:53:07.415] base::names(...future.oldOptions)) 1587s [00:53:07.415] } 1587s [00:53:07.415] if (FALSE) { 1587s [00:53:07.415] } 1587s [00:53:07.415] else { 1587s [00:53:07.415] if (TRUE) { 1587s [00:53:07.415] ...future.stdout <- base::rawConnection(base::raw(0L), 1587s [00:53:07.415] open = "w") 1587s [00:53:07.415] } 1587s [00:53:07.415] else { 1587s [00:53:07.415] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1587s [00:53:07.415] windows = "NUL", "/dev/null"), open = "w") 1587s [00:53:07.415] } 1587s [00:53:07.415] base::sink(...future.stdout, type = "output", split = FALSE) 1587s [00:53:07.415] base::on.exit(if (!base::is.null(...future.stdout)) { 1587s [00:53:07.415] base::sink(type = "output", split = FALSE) 1587s [00:53:07.415] base::close(...future.stdout) 1587s [00:53:07.415] }, add = TRUE) 1587s [00:53:07.415] } 1587s [00:53:07.415] ...future.frame <- base::sys.nframe() 1587s [00:53:07.415] ...future.conditions <- base::list() 1587s [00:53:07.415] ...future.rng <- base::globalenv()$.Random.seed 1587s [00:53:07.415] if (FALSE) { 1587s [00:53:07.415] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1587s [00:53:07.415] "...future.value", "...future.globalenv.names", ".Random.seed") 1587s [00:53:07.415] } 1587s [00:53:07.415] ...future.result <- base::tryCatch({ 1587s [00:53:07.415] base::withCallingHandlers({ 1587s [00:53:07.415] ...future.value <- base::withVisible(base::local({ 1587s [00:53:07.415] do.call(function(...) { 1587s [00:53:07.415] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1587s [00:53:07.415] if (!identical(...future.globals.maxSize.org, 1587s [00:53:07.415] ...future.globals.maxSize)) { 1587s [00:53:07.415] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1587s [00:53:07.415] on.exit(options(oopts), add = TRUE) 1587s [00:53:07.415] } 1587s [00:53:07.415] { 1587s [00:53:07.415] lapply(seq_along(...future.elements_ii), 1587s [00:53:07.415] FUN = function(jj) { 1587s [00:53:07.415] ...future.X_jj <- ...future.elements_ii[[jj]] 1587s [00:53:07.415] ...future.FUN(...future.X_jj, ...) 1587s [00:53:07.415] }) 1587s [00:53:07.415] } 1587s [00:53:07.415] }, args = future.call.arguments) 1587s [00:53:07.415] })) 1587s [00:53:07.415] future::FutureResult(value = ...future.value$value, 1587s [00:53:07.415] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1587s [00:53:07.415] ...future.rng), globalenv = if (FALSE) 1587s [00:53:07.415] list(added = base::setdiff(base::names(base::.GlobalEnv), 1587s [00:53:07.415] ...future.globalenv.names)) 1587s [00:53:07.415] else NULL, started = ...future.startTime, version = "1.8") 1587s [00:53:07.415] }, condition = base::local({ 1587s [00:53:07.415] c <- base::c 1587s [00:53:07.415] inherits <- base::inherits 1587s [00:53:07.415] invokeRestart <- base::invokeRestart 1587s [00:53:07.415] length <- base::length 1587s [00:53:07.415] list <- base::list 1587s [00:53:07.415] seq.int <- base::seq.int 1587s [00:53:07.415] signalCondition <- base::signalCondition 1587s [00:53:07.415] sys.calls <- base::sys.calls 1587s [00:53:07.415] `[[` <- base::`[[` 1587s [00:53:07.415] `+` <- base::`+` 1587s [00:53:07.415] `<<-` <- base::`<<-` 1587s [00:53:07.415] sysCalls <- function(calls = sys.calls(), from = 1L) { 1587s [00:53:07.415] calls[seq.int(from = from + 12L, to = length(calls) - 1587s [00:53:07.415] 3L)] 1587s [00:53:07.415] } 1587s [00:53:07.415] function(cond) { 1587s [00:53:07.415] is_error <- inherits(cond, "error") 1587s [00:53:07.415] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1587s [00:53:07.415] NULL) 1587s [00:53:07.415] if (is_error) { 1587s [00:53:07.415] sessionInformation <- function() { 1587s [00:53:07.415] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1587s [00:53:07.415] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1587s [00:53:07.415] search = base::search(), system = base::Sys.info()) 1587s [00:53:07.415] } 1587s [00:53:07.415] ...future.conditions[[length(...future.conditions) + 1587s [00:53:07.415] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1587s [00:53:07.415] cond$call), session = sessionInformation(), 1587s [00:53:07.415] timestamp = base::Sys.time(), signaled = 0L) 1587s [00:53:07.415] signalCondition(cond) 1587s [00:53:07.415] } 1587s [00:53:07.415] else if (!ignore && TRUE && inherits(cond, c("condition", 1587s [00:53:07.415] "immediateCondition"))) { 1587s [00:53:07.415] signal <- TRUE && inherits(cond, "immediateCondition") 1587s [00:53:07.415] ...future.conditions[[length(...future.conditions) + 1587s [00:53:07.415] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1587s [00:53:07.415] if (TRUE && !signal) { 1587s [00:53:07.415] muffleCondition <- function (cond, pattern = "^muffle") 1587s [00:53:07.415] { 1587s [00:53:07.415] inherits <- base::inherits 1587s [00:53:07.415] invokeRestart <- base::invokeRestart 1587s [00:53:07.415] is.null <- base::is.null 1587s [00:53:07.415] muffled <- FALSE 1587s [00:53:07.415] if (inherits(cond, "message")) { 1587s [00:53:07.415] muffled <- grepl(pattern, "muffleMessage") 1587s [00:53:07.415] if (muffled) 1587s [00:53:07.415] invokeRestart("muffleMessage") 1587s [00:53:07.415] } 1587s [00:53:07.415] else if (inherits(cond, "warning")) { 1587s [00:53:07.415] muffled <- grepl(pattern, "muffleWarning") 1587s [00:53:07.415] if (muffled) 1587s [00:53:07.415] invokeRestart("muffleWarning") 1587s [00:53:07.415] } 1587s [00:53:07.415] else if (inherits(cond, "condition")) { 1587s [00:53:07.415] if (!is.null(pattern)) { 1587s [00:53:07.415] computeRestarts <- base::computeRestarts 1587s [00:53:07.415] grepl <- base::grepl 1587s [00:53:07.415] restarts <- computeRestarts(cond) 1587s [00:53:07.415] for (restart in restarts) { 1587s [00:53:07.415] name <- restart$name 1587s [00:53:07.415] if (is.null(name)) 1587s [00:53:07.415] next 1587s [00:53:07.415] if (!grepl(pattern, name)) 1587s [00:53:07.415] next 1587s [00:53:07.415] invokeRestart(restart) 1587s [00:53:07.415] muffled <- TRUE 1587s [00:53:07.415] break 1587s [00:53:07.415] } 1587s [00:53:07.415] } 1587s [00:53:07.415] } 1587s [00:53:07.415] invisible(muffled) 1587s [00:53:07.415] } 1587s [00:53:07.415] muffleCondition(cond, pattern = "^muffle") 1587s [00:53:07.415] } 1587s [00:53:07.415] } 1587s [00:53:07.415] else { 1587s [00:53:07.415] if (TRUE) { 1587s [00:53:07.415] muffleCondition <- function (cond, pattern = "^muffle") 1587s [00:53:07.415] { 1587s [00:53:07.415] inherits <- base::inherits 1587s [00:53:07.415] invokeRestart <- base::invokeRestart 1587s [00:53:07.415] is.null <- base::is.null 1587s [00:53:07.415] muffled <- FALSE 1587s [00:53:07.415] if (inherits(cond, "message")) { 1587s [00:53:07.415] muffled <- grepl(pattern, "muffleMessage") 1587s [00:53:07.415] if (muffled) 1587s [00:53:07.415] invokeRestart("muffleMessage") 1587s [00:53:07.415] } 1587s [00:53:07.415] else if (inherits(cond, "warning")) { 1587s [00:53:07.415] muffled <- grepl(pattern, "muffleWarning") 1587s [00:53:07.415] if (muffled) 1587s [00:53:07.415] invokeRestart("muffleWarning") 1587s [00:53:07.415] } 1587s [00:53:07.415] else if (inherits(cond, "condition")) { 1587s [00:53:07.415] if (!is.null(pattern)) { 1587s [00:53:07.415] computeRestarts <- base::computeRestarts 1587s [00:53:07.415] grepl <- base::grepl 1587s [00:53:07.415] restarts <- computeRestarts(cond) 1587s [00:53:07.415] for (restart in restarts) { 1587s [00:53:07.415] name <- restart$name 1587s [00:53:07.415] if (is.null(name)) 1587s [00:53:07.415] next 1587s [00:53:07.415] if (!grepl(pattern, name)) 1587s [00:53:07.415] next 1587s [00:53:07.415] invokeRestart(restart) 1587s [00:53:07.415] muffled <- TRUE 1587s [00:53:07.415] break 1587s [00:53:07.415] } 1587s [00:53:07.415] } 1587s [00:53:07.415] } 1587s [00:53:07.415] invisible(muffled) 1587s [00:53:07.415] } 1587s [00:53:07.415] muffleCondition(cond, pattern = "^muffle") 1587s [00:53:07.415] } 1587s [00:53:07.415] } 1587s [00:53:07.415] } 1587s [00:53:07.415] })) 1587s [00:53:07.415] }, error = function(ex) { 1587s [00:53:07.415] base::structure(base::list(value = NULL, visible = NULL, 1587s [00:53:07.415] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1587s [00:53:07.415] ...future.rng), started = ...future.startTime, 1587s [00:53:07.415] finished = Sys.time(), session_uuid = NA_character_, 1587s [00:53:07.415] version = "1.8"), class = "FutureResult") 1587s [00:53:07.415] }, finally = { 1587s [00:53:07.415] if (!identical(...future.workdir, getwd())) 1587s [00:53:07.415] setwd(...future.workdir) 1587s [00:53:07.415] { 1587s [00:53:07.415] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1587s [00:53:07.415] ...future.oldOptions$nwarnings <- NULL 1587s [00:53:07.415] } 1587s [00:53:07.415] base::options(...future.oldOptions) 1587s [00:53:07.415] if (.Platform$OS.type == "windows") { 1587s [00:53:07.415] old_names <- names(...future.oldEnvVars) 1587s [00:53:07.415] envs <- base::Sys.getenv() 1587s [00:53:07.415] names <- names(envs) 1587s [00:53:07.415] common <- intersect(names, old_names) 1587s [00:53:07.415] added <- setdiff(names, old_names) 1587s [00:53:07.415] removed <- setdiff(old_names, names) 1587s [00:53:07.415] changed <- common[...future.oldEnvVars[common] != 1587s [00:53:07.415] envs[common]] 1587s [00:53:07.415] NAMES <- toupper(changed) 1587s [00:53:07.415] args <- list() 1587s [00:53:07.415] for (kk in seq_along(NAMES)) { 1587s [00:53:07.415] name <- changed[[kk]] 1587s [00:53:07.415] NAME <- NAMES[[kk]] 1587s [00:53:07.415] if (name != NAME && is.element(NAME, old_names)) 1587s [00:53:07.415] next 1587s [00:53:07.415] args[[name]] <- ...future.oldEnvVars[[name]] 1587s [00:53:07.415] } 1587s [00:53:07.415] NAMES <- toupper(added) 1587s [00:53:07.415] for (kk in seq_along(NAMES)) { 1587s [00:53:07.415] name <- added[[kk]] 1587s [00:53:07.415] NAME <- NAMES[[kk]] 1587s [00:53:07.415] if (name != NAME && is.element(NAME, old_names)) 1587s [00:53:07.415] next 1587s [00:53:07.415] args[[name]] <- "" 1587s [00:53:07.415] } 1587s [00:53:07.415] NAMES <- toupper(removed) 1587s [00:53:07.415] for (kk in seq_along(NAMES)) { 1587s [00:53:07.415] name <- removed[[kk]] 1587s [00:53:07.415] NAME <- NAMES[[kk]] 1587s [00:53:07.415] if (name != NAME && is.element(NAME, old_names)) 1587s [00:53:07.415] next 1587s [00:53:07.415] args[[name]] <- ...future.oldEnvVars[[name]] 1587s [00:53:07.415] } 1587s [00:53:07.415] if (length(args) > 0) 1587s [00:53:07.415] base::do.call(base::Sys.setenv, args = args) 1587s [00:53:07.415] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1587s [00:53:07.415] } 1587s [00:53:07.415] else { 1587s [00:53:07.415] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1587s [00:53:07.415] } 1587s [00:53:07.415] { 1587s [00:53:07.415] if (base::length(...future.futureOptionsAdded) > 1587s [00:53:07.415] 0L) { 1587s [00:53:07.415] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1587s [00:53:07.415] base::names(opts) <- ...future.futureOptionsAdded 1587s [00:53:07.415] base::options(opts) 1587s [00:53:07.415] } 1587s [00:53:07.415] { 1587s [00:53:07.415] { 1587s [00:53:07.415] NULL 1587s [00:53:07.415] RNGkind("Mersenne-Twister") 1587s [00:53:07.415] base::rm(list = ".Random.seed", envir = base::globalenv(), 1587s [00:53:07.415] inherits = FALSE) 1587s [00:53:07.415] } 1587s [00:53:07.415] options(future.plan = NULL) 1587s [00:53:07.415] if (is.na(NA_character_)) 1587s [00:53:07.415] Sys.unsetenv("R_FUTURE_PLAN") 1587s [00:53:07.415] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1587s [00:53:07.415] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1587s [00:53:07.415] envir = parent.frame()) 1587s [00:53:07.415] { 1587s [00:53:07.415] default_workers <- missing(workers) 1587s [00:53:07.415] if (is.function(workers)) 1587s [00:53:07.415] workers <- workers() 1587s [00:53:07.415] workers <- structure(as.integer(workers), 1587s [00:53:07.415] class = class(workers)) 1587s [00:53:07.415] stop_if_not(is.finite(workers), workers >= 1587s [00:53:07.415] 1L) 1587s [00:53:07.415] if ((workers == 1L && !inherits(workers, 1587s [00:53:07.415] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1587s [00:53:07.415] if (default_workers) 1587s [00:53:07.415] supportsMulticore(warn = TRUE) 1587s [00:53:07.415] return(sequential(..., envir = envir)) 1587s [00:53:07.415] } 1587s [00:53:07.415] oopts <- options(mc.cores = workers) 1587s [00:53:07.415] on.exit(options(oopts)) 1587s [00:53:07.415] future <- MulticoreFuture(..., workers = workers, 1587s [00:53:07.415] envir = envir) 1587s [00:53:07.415] if (!future$lazy) 1587s [00:53:07.415] future <- run(future) 1587s [00:53:07.415] invisible(future) 1587s [00:53:07.415] }), .cleanup = FALSE, .init = FALSE) 1587s [00:53:07.415] } 1587s [00:53:07.415] } 1587s [00:53:07.415] } 1587s [00:53:07.415] }) 1587s [00:53:07.415] if (TRUE) { 1587s [00:53:07.415] base::sink(type = "output", split = FALSE) 1587s [00:53:07.415] if (TRUE) { 1587s [00:53:07.415] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1587s [00:53:07.415] } 1587s [00:53:07.415] else { 1587s [00:53:07.415] ...future.result["stdout"] <- base::list(NULL) 1587s [00:53:07.415] } 1587s [00:53:07.415] base::close(...future.stdout) 1587s [00:53:07.415] ...future.stdout <- NULL 1587s [00:53:07.415] } 1587s [00:53:07.415] ...future.result$conditions <- ...future.conditions 1587s [00:53:07.415] ...future.result$finished <- base::Sys.time() 1587s [00:53:07.415] ...future.result 1587s [00:53:07.415] } 1587s [00:53:07.419] assign_globals() ... 1587s [00:53:07.419] List of 11 1587s [00:53:07.419] $ ...future.FUN :function (x, ...) 1587s [00:53:07.419] $ x_FUN :function (x) 1587s [00:53:07.419] $ times : int 0 1587s [00:53:07.419] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1587s [00:53:07.419] $ stop_if_not :function (...) 1587s [00:53:07.419] $ dim : NULL 1587s [00:53:07.419] $ valid_types : chr [1:3] "logical" "integer" "double" 1587s [00:53:07.419] $ future.call.arguments : list() 1587s [00:53:07.419] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1587s [00:53:07.419] $ ...future.elements_ii :List of 10 1587s [00:53:07.419] ..$ : int 1 1587s [00:53:07.419] ..$ : int 2 1587s [00:53:07.419] ..$ : int 3 1587s [00:53:07.419] ..$ : int 4 1587s [00:53:07.419] ..$ : int 5 1587s [00:53:07.419] ..$ : int 6 1587s [00:53:07.419] ..$ : int 7 1587s [00:53:07.419] ..$ : int 8 1587s [00:53:07.419] ..$ : int 9 1587s [00:53:07.419] ..$ : int 10 1587s [00:53:07.419] $ ...future.seeds_ii : NULL 1587s [00:53:07.419] $ ...future.globals.maxSize: NULL 1587s [00:53:07.419] - attr(*, "where")=List of 11 1587s [00:53:07.419] ..$ ...future.FUN : 1587s [00:53:07.419] ..$ x_FUN : 1587s [00:53:07.419] ..$ times : 1587s [00:53:07.419] ..$ stopf : 1587s [00:53:07.419] ..$ stop_if_not : 1587s [00:53:07.419] ..$ dim : 1587s [00:53:07.419] ..$ valid_types : 1587s [00:53:07.419] ..$ future.call.arguments : 1587s [00:53:07.419] ..$ ...future.elements_ii : 1587s [00:53:07.419] ..$ ...future.seeds_ii : 1587s [00:53:07.419] ..$ ...future.globals.maxSize: 1587s [00:53:07.419] - attr(*, "resolved")= logi FALSE 1587s [00:53:07.419] - attr(*, "total_size")= num 95472 1587s [00:53:07.419] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1587s [00:53:07.419] - attr(*, "already-done")= logi TRUE 1587s [00:53:07.435] - copied ‘...future.FUN’ to environment 1587s [00:53:07.436] - reassign environment for ‘x_FUN’ 1587s [00:53:07.436] - copied ‘x_FUN’ to environment 1587s [00:53:07.436] - copied ‘times’ to environment 1587s [00:53:07.436] - copied ‘stopf’ to environment 1587s [00:53:07.436] - copied ‘stop_if_not’ to environment 1587s [00:53:07.436] - copied ‘dim’ to environment 1587s [00:53:07.436] - copied ‘valid_types’ to environment 1587s [00:53:07.437] - copied ‘future.call.arguments’ to environment 1587s [00:53:07.437] - copied ‘...future.elements_ii’ to environment 1587s [00:53:07.437] - copied ‘...future.seeds_ii’ to environment 1587s [00:53:07.437] - copied ‘...future.globals.maxSize’ to environment 1587s [00:53:07.437] assign_globals() ... done 1587s [00:53:07.437] plan(): Setting new future strategy stack: 1587s [00:53:07.438] List of future strategies: 1587s [00:53:07.438] 1. sequential: 1587s [00:53:07.438] - args: function (..., envir = parent.frame()) 1587s [00:53:07.438] - tweaked: FALSE 1587s [00:53:07.438] - call: NULL 1587s [00:53:07.438] plan(): nbrOfWorkers() = 1 1587s [00:53:07.439] plan(): Setting new future strategy stack: 1587s [00:53:07.440] List of future strategies: 1587s [00:53:07.440] 1. multicore: 1587s [00:53:07.440] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1587s [00:53:07.440] - tweaked: FALSE 1587s [00:53:07.440] - call: plan(strategy) 1587s [00:53:07.444] plan(): nbrOfWorkers() = 1 1587s [00:53:07.444] SequentialFuture started (and completed) 1587s [00:53:07.444] - Launch lazy future ... done 1587s [00:53:07.444] run() for ‘SequentialFuture’ ... done 1587s [00:53:07.445] Created future: 1587s [00:53:07.445] SequentialFuture: 1587s [00:53:07.445] Label: ‘future_vapply-1’ 1587s [00:53:07.445] Expression: 1587s [00:53:07.445] { 1587s [00:53:07.445] do.call(function(...) { 1587s [00:53:07.445] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1587s [00:53:07.445] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1587s [00:53:07.445] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1587s [00:53:07.445] on.exit(options(oopts), add = TRUE) 1587s [00:53:07.445] } 1587s [00:53:07.445] { 1587s [00:53:07.445] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1587s [00:53:07.445] ...future.X_jj <- ...future.elements_ii[[jj]] 1587s [00:53:07.445] ...future.FUN(...future.X_jj, ...) 1587s [00:53:07.445] }) 1587s [00:53:07.445] } 1587s [00:53:07.445] }, args = future.call.arguments) 1587s [00:53:07.445] } 1587s [00:53:07.445] Lazy evaluation: FALSE 1587s [00:53:07.445] Asynchronous evaluation: FALSE 1587s [00:53:07.445] Local evaluation: TRUE 1587s [00:53:07.445] Environment: R_GlobalEnv 1587s [00:53:07.445] Capture standard output: TRUE 1587s [00:53:07.445] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1587s [00:53:07.445] Globals: 11 objects totaling 93.78 KiB (function ‘...future.FUN’ of 21.22 KiB, function ‘x_FUN’ of 1.16 KiB, integer ‘times’ of 56 bytes, function ‘stopf’ of 26.43 KiB, function ‘stop_if_not’ of 44.12 KiB, ...) 1587s [00:53:07.445] Packages: 1 packages (‘future.apply’) 1587s [00:53:07.445] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1587s [00:53:07.445] Resolved: TRUE 1587s [00:53:07.445] Value: 480 bytes of class ‘list’ 1587s [00:53:07.445] Early signaling: FALSE 1587s [00:53:07.445] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1587s [00:53:07.445] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1587s [00:53:07.447] Chunk #1 of 1 ... DONE 1587s [00:53:07.447] Launching 1 futures (chunks) ... DONE 1587s [00:53:07.447] Resolving 1 futures (chunks) ... 1587s [00:53:07.447] resolve() on list ... 1587s [00:53:07.447] recursive: 0 1587s [00:53:07.448] length: 1 1587s [00:53:07.448] 1587s [00:53:07.448] resolved() for ‘SequentialFuture’ ... 1587s [00:53:07.448] - state: ‘finished’ 1587s [00:53:07.448] - run: TRUE 1587s [00:53:07.448] - result: ‘FutureResult’ 1587s [00:53:07.448] resolved() for ‘SequentialFuture’ ... done 1587s [00:53:07.449] Future #1 1587s [00:53:07.449] signalConditionsASAP(SequentialFuture, pos=1) ... 1587s [00:53:07.449] - nx: 1 1587s [00:53:07.449] - relay: TRUE 1587s [00:53:07.450] - stdout: TRUE 1587s [00:53:07.450] - signal: TRUE 1587s [00:53:07.450] - resignal: FALSE 1587s [00:53:07.450] - force: TRUE 1587s [00:53:07.450] - relayed: [n=1] FALSE 1587s [00:53:07.451] - queued futures: [n=1] FALSE 1587s [00:53:07.451] - until=1 1587s [00:53:07.451] - relaying element #1 1587s [00:53:07.452] - relayed: [n=1] TRUE 1587s [00:53:07.452] - queued futures: [n=1] TRUE 1587s [00:53:07.452] signalConditionsASAP(SequentialFuture, pos=1) ... done 1587s [00:53:07.453] length: 0 (resolved future 1) 1587s [00:53:07.453] Relaying remaining futures 1587s [00:53:07.453] signalConditionsASAP(NULL, pos=0) ... 1587s [00:53:07.453] - nx: 1 1587s [00:53:07.453] - relay: TRUE 1587s [00:53:07.454] - stdout: TRUE 1587s [00:53:07.454] - signal: TRUE 1587s [00:53:07.454] - resignal: FALSE 1587s [00:53:07.454] - force: TRUE 1587s [00:53:07.455] - relayed: [n=1] TRUE 1587s [00:53:07.455] - queued futures: [n=1] TRUE 1587s - flush all 1587s [00:53:07.455] - relayed: [n=1] TRUE 1587s [00:53:07.455] - queued futures: [n=1] TRUE 1587s [00:53:07.455] signalConditionsASAP(NULL, pos=0) ... done 1587s [00:53:07.456] resolve() on list ... DONE 1587s [00:53:07.456] - Number of value chunks collected: 1 1587s [00:53:07.457] Resolving 1 futures (chunks) ... DONE 1587s [00:53:07.457] Reducing values from 1 chunks ... 1587s num[0 , 1:10] 1587s [00:53:07.457] - Number of values collected after concatenation: 10 1587s [00:53:07.457] - Number of values expected: 10 1587s [00:53:07.457] Reducing values from 1 chunks ... DONE 1587s [00:53:07.457] future_lapply() ... DONE 1587s int[0 , 1:10] 1587s [00:53:07.459] future_lapply() ... 1587s [00:53:07.467] Number of chunks: 1 1587s [00:53:07.467] getGlobalsAndPackagesXApply() ... 1587s [00:53:07.468] - future.globals: TRUE 1587s [00:53:07.468] getGlobalsAndPackages() ... 1587s [00:53:07.468] Searching for globals... 1587s [00:53:07.477] - globals found: [17] ‘FUN’, ‘{’, ‘<-’, ‘x_FUN’, ‘if’, ‘!=’, ‘length’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘all’, ‘==’, ‘dim’, ‘%in%’, ‘typeof’, ‘valid_types’, ‘integer’ 1587s [00:53:07.478] Searching for globals ... DONE 1587s [00:53:07.478] Resolving globals: FALSE 1587s [00:53:07.479] The total size of the 7 globals is 93.16 KiB (95400 bytes) 1587s [00:53:07.479] The total size of the 7 globals exported for future expression (‘FUN()’) is 93.16 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘stop_if_not’ (44.12 KiB of class ‘function’), ‘stopf’ (26.43 KiB of class ‘function’) and ‘FUN’ (21.22 KiB of class ‘function’) 1587s [00:53:07.480] - globals: [7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1587s [00:53:07.480] - packages: [1] ‘future.apply’ 1587s [00:53:07.480] getGlobalsAndPackages() ... DONE 1587s [00:53:07.480] - globals found/used: [n=7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1587s [00:53:07.480] - needed namespaces: [n=1] ‘future.apply’ 1587s [00:53:07.480] Finding globals ... DONE 1587s [00:53:07.481] - use_args: TRUE 1587s [00:53:07.481] - Getting '...' globals ... 1587s [00:53:07.481] resolve() on list ... 1587s [00:53:07.481] recursive: 0 1587s [00:53:07.481] length: 1 1587s [00:53:07.482] elements: ‘...’ 1587s [00:53:07.482] length: 0 (resolved future 1) 1587s [00:53:07.482] resolve() on list ... DONE 1587s [00:53:07.482] - '...' content: [n=0] 1587s [00:53:07.482] List of 1 1587s [00:53:07.482] $ ...: list() 1587s [00:53:07.482] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1587s [00:53:07.482] - attr(*, "where")=List of 1 1587s [00:53:07.482] ..$ ...: 1587s [00:53:07.482] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1587s [00:53:07.482] - attr(*, "resolved")= logi TRUE 1587s [00:53:07.482] - attr(*, "total_size")= num NA 1587s [00:53:07.486] - Getting '...' globals ... DONE 1587s [00:53:07.486] Globals to be used in all futures (chunks): [n=8] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’ 1587s [00:53:07.486] List of 8 1587s [00:53:07.486] $ ...future.FUN:function (x, ...) 1587s [00:53:07.486] $ x_FUN :function (x) 1587s [00:53:07.486] $ times : int 0 1587s [00:53:07.486] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1587s [00:53:07.486] $ stop_if_not :function (...) 1587s [00:53:07.486] $ dim : NULL 1587s [00:53:07.486] $ valid_types : chr [1:2] "logical" "integer" 1587s [00:53:07.486] $ ... : list() 1587s [00:53:07.486] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1587s [00:53:07.486] - attr(*, "where")=List of 8 1587s [00:53:07.486] ..$ ...future.FUN: 1587s [00:53:07.486] ..$ x_FUN : 1587s [00:53:07.486] ..$ times : 1587s [00:53:07.486] ..$ stopf : 1587s [00:53:07.486] ..$ stop_if_not : 1587s [00:53:07.486] ..$ dim : 1587s [00:53:07.486] ..$ valid_types : 1587s [00:53:07.486] ..$ ... : 1587s [00:53:07.486] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1587s [00:53:07.486] - attr(*, "resolved")= logi FALSE 1587s [00:53:07.486] - attr(*, "total_size")= num 95400 1587s [00:53:07.493] Packages to be attached in all futures: [n=1] ‘future.apply’ 1587s [00:53:07.493] getGlobalsAndPackagesXApply() ... DONE 1587s [00:53:07.493] Number of futures (= number of chunks): 1 1587s [00:53:07.493] Launching 1 futures (chunks) ... 1587s [00:53:07.493] Chunk #1 of 1 ... 1587s [00:53:07.493] - Finding globals in 'X' for chunk #1 ... 1587s [00:53:07.493] getGlobalsAndPackages() ... 1587s [00:53:07.494] Searching for globals... 1587s [00:53:07.494] 1587s [00:53:07.494] Searching for globals ... DONE 1587s [00:53:07.494] - globals: [0] 1587s [00:53:07.494] getGlobalsAndPackages() ... DONE 1587s [00:53:07.494] + additional globals found: [n=0] 1587s [00:53:07.494] + additional namespaces needed: [n=0] 1587s [00:53:07.494] - Finding globals in 'X' for chunk #1 ... DONE 1587s [00:53:07.495] - seeds: 1587s [00:53:07.495] - All globals exported: [n=11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1587s [00:53:07.495] getGlobalsAndPackages() ... 1587s [00:53:07.495] - globals passed as-is: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1587s [00:53:07.495] Resolving globals: FALSE 1587s [00:53:07.495] Tweak future expression to call with '...' arguments ... 1587s [00:53:07.495] { 1587s [00:53:07.495] do.call(function(...) { 1587s [00:53:07.495] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1587s [00:53:07.495] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1587s [00:53:07.495] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1587s [00:53:07.495] on.exit(options(oopts), add = TRUE) 1587s [00:53:07.495] } 1587s [00:53:07.495] { 1587s [00:53:07.495] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1587s [00:53:07.495] ...future.X_jj <- ...future.elements_ii[[jj]] 1587s [00:53:07.495] ...future.FUN(...future.X_jj, ...) 1587s [00:53:07.495] }) 1587s [00:53:07.495] } 1587s [00:53:07.495] }, args = future.call.arguments) 1587s [00:53:07.495] } 1587s [00:53:07.496] Tweak future expression to call with '...' arguments ... DONE 1587s [00:53:07.496] - globals: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1587s [00:53:07.496] - packages: [1] ‘future.apply’ 1587s [00:53:07.496] getGlobalsAndPackages() ... DONE 1587s [00:53:07.497] run() for ‘Future’ ... 1587s [00:53:07.497] - state: ‘created’ 1587s [00:53:07.497] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1587s [00:53:07.502] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1587s [00:53:07.502] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1587s [00:53:07.505] - Field: ‘label’ 1587s [00:53:07.505] - Field: ‘local’ 1587s [00:53:07.506] - Field: ‘owner’ 1587s [00:53:07.506] - Field: ‘envir’ 1587s [00:53:07.506] - Field: ‘packages’ 1587s [00:53:07.506] - Field: ‘gc’ 1587s [00:53:07.506] - Field: ‘conditions’ 1587s [00:53:07.507] - Field: ‘expr’ 1587s [00:53:07.507] - Field: ‘uuid’ 1587s [00:53:07.507] - Field: ‘seed’ 1587s [00:53:07.507] - Field: ‘version’ 1587s [00:53:07.508] - Field: ‘result’ 1587s [00:53:07.508] - Field: ‘asynchronous’ 1587s [00:53:07.508] - Field: ‘calls’ 1587s [00:53:07.508] - Field: ‘globals’ 1587s [00:53:07.508] - Field: ‘stdout’ 1587s [00:53:07.509] - Field: ‘earlySignal’ 1587s [00:53:07.509] - Field: ‘lazy’ 1587s [00:53:07.509] - Field: ‘state’ 1587s [00:53:07.509] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1587s [00:53:07.509] - Launch lazy future ... 1587s [00:53:07.510] Packages needed by the future expression (n = 1): ‘future.apply’ 1587s [00:53:07.510] Packages needed by future strategies (n = 0): 1587s [00:53:07.510] { 1587s [00:53:07.510] { 1587s [00:53:07.510] { 1587s [00:53:07.510] ...future.startTime <- base::Sys.time() 1587s [00:53:07.510] { 1587s [00:53:07.510] { 1587s [00:53:07.510] { 1587s [00:53:07.510] { 1587s [00:53:07.510] base::local({ 1587s [00:53:07.510] has_future <- base::requireNamespace("future", 1587s [00:53:07.510] quietly = TRUE) 1587s [00:53:07.510] if (has_future) { 1587s [00:53:07.510] ns <- base::getNamespace("future") 1587s [00:53:07.510] version <- ns[[".package"]][["version"]] 1587s [00:53:07.510] if (is.null(version)) 1587s [00:53:07.510] version <- utils::packageVersion("future") 1587s [00:53:07.510] } 1587s [00:53:07.510] else { 1587s [00:53:07.510] version <- NULL 1587s [00:53:07.510] } 1587s [00:53:07.510] if (!has_future || version < "1.8.0") { 1587s [00:53:07.510] info <- base::c(r_version = base::gsub("R version ", 1587s [00:53:07.510] "", base::R.version$version.string), 1587s [00:53:07.510] platform = base::sprintf("%s (%s-bit)", 1587s [00:53:07.510] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1587s [00:53:07.510] os = base::paste(base::Sys.info()[base::c("sysname", 1587s [00:53:07.510] "release", "version")], collapse = " "), 1587s [00:53:07.510] hostname = base::Sys.info()[["nodename"]]) 1587s [00:53:07.510] info <- base::sprintf("%s: %s", base::names(info), 1587s [00:53:07.510] info) 1587s [00:53:07.510] info <- base::paste(info, collapse = "; ") 1587s [00:53:07.510] if (!has_future) { 1587s [00:53:07.510] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1587s [00:53:07.510] info) 1587s [00:53:07.510] } 1587s [00:53:07.510] else { 1587s [00:53:07.510] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1587s [00:53:07.510] info, version) 1587s [00:53:07.510] } 1587s [00:53:07.510] base::stop(msg) 1587s [00:53:07.510] } 1587s [00:53:07.510] }) 1587s [00:53:07.510] } 1587s [00:53:07.510] base::local({ 1587s [00:53:07.510] for (pkg in "future.apply") { 1587s [00:53:07.510] base::loadNamespace(pkg) 1587s [00:53:07.510] base::library(pkg, character.only = TRUE) 1587s [00:53:07.510] } 1587s [00:53:07.510] }) 1587s [00:53:07.510] } 1587s [00:53:07.510] options(future.plan = NULL) 1587s [00:53:07.510] Sys.unsetenv("R_FUTURE_PLAN") 1587s [00:53:07.510] future::plan("default", .cleanup = FALSE, .init = FALSE) 1587s [00:53:07.510] } 1587s [00:53:07.510] ...future.workdir <- getwd() 1587s [00:53:07.510] } 1587s [00:53:07.510] ...future.oldOptions <- base::as.list(base::.Options) 1587s [00:53:07.510] ...future.oldEnvVars <- base::Sys.getenv() 1587s [00:53:07.510] } 1587s [00:53:07.510] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1587s [00:53:07.510] future.globals.maxSize = NULL, future.globals.method = NULL, 1587s [00:53:07.510] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1587s [00:53:07.510] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1587s [00:53:07.510] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1587s [00:53:07.510] future.stdout.windows.reencode = NULL, width = 80L) 1587s [00:53:07.510] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1587s [00:53:07.510] base::names(...future.oldOptions)) 1587s [00:53:07.510] } 1587s [00:53:07.510] if (FALSE) { 1587s [00:53:07.510] } 1587s [00:53:07.510] else { 1587s [00:53:07.510] if (TRUE) { 1587s [00:53:07.510] ...future.stdout <- base::rawConnection(base::raw(0L), 1587s [00:53:07.510] open = "w") 1587s [00:53:07.510] } 1587s [00:53:07.510] else { 1587s [00:53:07.510] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1587s [00:53:07.510] windows = "NUL", "/dev/null"), open = "w") 1587s [00:53:07.510] } 1587s [00:53:07.510] base::sink(...future.stdout, type = "output", split = FALSE) 1587s [00:53:07.510] base::on.exit(if (!base::is.null(...future.stdout)) { 1587s [00:53:07.510] base::sink(type = "output", split = FALSE) 1587s [00:53:07.510] base::close(...future.stdout) 1587s [00:53:07.510] }, add = TRUE) 1587s [00:53:07.510] } 1587s [00:53:07.510] ...future.frame <- base::sys.nframe() 1587s [00:53:07.510] ...future.conditions <- base::list() 1587s [00:53:07.510] ...future.rng <- base::globalenv()$.Random.seed 1587s [00:53:07.510] if (FALSE) { 1587s [00:53:07.510] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1587s [00:53:07.510] "...future.value", "...future.globalenv.names", ".Random.seed") 1587s [00:53:07.510] } 1587s [00:53:07.510] ...future.result <- base::tryCatch({ 1587s [00:53:07.510] base::withCallingHandlers({ 1587s [00:53:07.510] ...future.value <- base::withVisible(base::local({ 1587s [00:53:07.510] do.call(function(...) { 1587s [00:53:07.510] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1587s [00:53:07.510] if (!identical(...future.globals.maxSize.org, 1587s [00:53:07.510] ...future.globals.maxSize)) { 1587s [00:53:07.510] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1587s [00:53:07.510] on.exit(options(oopts), add = TRUE) 1587s [00:53:07.510] } 1587s [00:53:07.510] { 1587s [00:53:07.510] lapply(seq_along(...future.elements_ii), 1587s [00:53:07.510] FUN = function(jj) { 1587s [00:53:07.510] ...future.X_jj <- ...future.elements_ii[[jj]] 1587s [00:53:07.510] ...future.FUN(...future.X_jj, ...) 1587s [00:53:07.510] }) 1587s [00:53:07.510] } 1587s [00:53:07.510] }, args = future.call.arguments) 1587s [00:53:07.510] })) 1587s [00:53:07.510] future::FutureResult(value = ...future.value$value, 1587s [00:53:07.510] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1587s [00:53:07.510] ...future.rng), globalenv = if (FALSE) 1587s [00:53:07.510] list(added = base::setdiff(base::names(base::.GlobalEnv), 1587s [00:53:07.510] ...future.globalenv.names)) 1587s [00:53:07.510] else NULL, started = ...future.startTime, version = "1.8") 1587s [00:53:07.510] }, condition = base::local({ 1587s [00:53:07.510] c <- base::c 1587s [00:53:07.510] inherits <- base::inherits 1587s [00:53:07.510] invokeRestart <- base::invokeRestart 1587s [00:53:07.510] length <- base::length 1587s [00:53:07.510] list <- base::list 1587s [00:53:07.510] seq.int <- base::seq.int 1587s [00:53:07.510] signalCondition <- base::signalCondition 1587s [00:53:07.510] sys.calls <- base::sys.calls 1587s [00:53:07.510] `[[` <- base::`[[` 1587s [00:53:07.510] `+` <- base::`+` 1587s [00:53:07.510] `<<-` <- base::`<<-` 1587s [00:53:07.510] sysCalls <- function(calls = sys.calls(), from = 1L) { 1587s [00:53:07.510] calls[seq.int(from = from + 12L, to = length(calls) - 1587s [00:53:07.510] 3L)] 1587s [00:53:07.510] } 1587s [00:53:07.510] function(cond) { 1587s [00:53:07.510] is_error <- inherits(cond, "error") 1587s [00:53:07.510] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1587s [00:53:07.510] NULL) 1587s [00:53:07.510] if (is_error) { 1587s [00:53:07.510] sessionInformation <- function() { 1587s [00:53:07.510] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1587s [00:53:07.510] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1587s [00:53:07.510] search = base::search(), system = base::Sys.info()) 1587s [00:53:07.510] } 1587s [00:53:07.510] ...future.conditions[[length(...future.conditions) + 1587s [00:53:07.510] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1587s [00:53:07.510] cond$call), session = sessionInformation(), 1587s [00:53:07.510] timestamp = base::Sys.time(), signaled = 0L) 1587s [00:53:07.510] signalCondition(cond) 1587s [00:53:07.510] } 1587s [00:53:07.510] else if (!ignore && TRUE && inherits(cond, c("condition", 1587s [00:53:07.510] "immediateCondition"))) { 1587s [00:53:07.510] signal <- TRUE && inherits(cond, "immediateCondition") 1587s [00:53:07.510] ...future.conditions[[length(...future.conditions) + 1587s [00:53:07.510] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1587s [00:53:07.510] if (TRUE && !signal) { 1587s [00:53:07.510] muffleCondition <- function (cond, pattern = "^muffle") 1587s [00:53:07.510] { 1587s [00:53:07.510] inherits <- base::inherits 1587s [00:53:07.510] invokeRestart <- base::invokeRestart 1587s [00:53:07.510] is.null <- base::is.null 1587s [00:53:07.510] muffled <- FALSE 1587s [00:53:07.510] if (inherits(cond, "message")) { 1587s [00:53:07.510] muffled <- grepl(pattern, "muffleMessage") 1587s [00:53:07.510] if (muffled) 1587s [00:53:07.510] invokeRestart("muffleMessage") 1587s [00:53:07.510] } 1587s [00:53:07.510] else if (inherits(cond, "warning")) { 1587s [00:53:07.510] muffled <- grepl(pattern, "muffleWarning") 1587s [00:53:07.510] if (muffled) 1587s [00:53:07.510] invokeRestart("muffleWarning") 1587s [00:53:07.510] } 1587s [00:53:07.510] else if (inherits(cond, "condition")) { 1587s [00:53:07.510] if (!is.null(pattern)) { 1587s [00:53:07.510] computeRestarts <- base::computeRestarts 1587s [00:53:07.510] grepl <- base::grepl 1587s [00:53:07.510] restarts <- computeRestarts(cond) 1587s [00:53:07.510] for (restart in restarts) { 1587s [00:53:07.510] name <- restart$name 1587s [00:53:07.510] if (is.null(name)) 1587s [00:53:07.510] next 1587s [00:53:07.510] if (!grepl(pattern, name)) 1587s [00:53:07.510] next 1587s [00:53:07.510] invokeRestart(restart) 1587s [00:53:07.510] muffled <- TRUE 1587s [00:53:07.510] break 1587s [00:53:07.510] } 1587s [00:53:07.510] } 1587s [00:53:07.510] } 1587s [00:53:07.510] invisible(muffled) 1587s [00:53:07.510] } 1587s [00:53:07.510] muffleCondition(cond, pattern = "^muffle") 1587s [00:53:07.510] } 1587s [00:53:07.510] } 1587s [00:53:07.510] else { 1587s [00:53:07.510] if (TRUE) { 1587s [00:53:07.510] muffleCondition <- function (cond, pattern = "^muffle") 1587s [00:53:07.510] { 1587s [00:53:07.510] inherits <- base::inherits 1587s [00:53:07.510] invokeRestart <- base::invokeRestart 1587s [00:53:07.510] is.null <- base::is.null 1587s [00:53:07.510] muffled <- FALSE 1587s [00:53:07.510] if (inherits(cond, "message")) { 1587s [00:53:07.510] muffled <- grepl(pattern, "muffleMessage") 1587s [00:53:07.510] if (muffled) 1587s [00:53:07.510] invokeRestart("muffleMessage") 1587s [00:53:07.510] } 1587s [00:53:07.510] else if (inherits(cond, "warning")) { 1587s [00:53:07.510] muffled <- grepl(pattern, "muffleWarning") 1587s [00:53:07.510] if (muffled) 1587s [00:53:07.510] invokeRestart("muffleWarning") 1587s [00:53:07.510] } 1587s [00:53:07.510] else if (inherits(cond, "condition")) { 1587s [00:53:07.510] if (!is.null(pattern)) { 1587s [00:53:07.510] computeRestarts <- base::computeRestarts 1587s [00:53:07.510] grepl <- base::grepl 1587s [00:53:07.510] restarts <- computeRestarts(cond) 1587s [00:53:07.510] for (restart in restarts) { 1587s [00:53:07.510] name <- restart$name 1587s [00:53:07.510] if (is.null(name)) 1587s [00:53:07.510] next 1587s [00:53:07.510] if (!grepl(pattern, name)) 1587s [00:53:07.510] next 1587s [00:53:07.510] invokeRestart(restart) 1587s [00:53:07.510] muffled <- TRUE 1587s [00:53:07.510] break 1587s [00:53:07.510] } 1587s [00:53:07.510] } 1587s [00:53:07.510] } 1587s [00:53:07.510] invisible(muffled) 1587s [00:53:07.510] } 1587s [00:53:07.510] muffleCondition(cond, pattern = "^muffle") 1587s [00:53:07.510] } 1587s [00:53:07.510] } 1587s [00:53:07.510] } 1587s [00:53:07.510] })) 1587s [00:53:07.510] }, error = function(ex) { 1587s [00:53:07.510] base::structure(base::list(value = NULL, visible = NULL, 1587s [00:53:07.510] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1587s [00:53:07.510] ...future.rng), started = ...future.startTime, 1587s [00:53:07.510] finished = Sys.time(), session_uuid = NA_character_, 1587s [00:53:07.510] version = "1.8"), class = "FutureResult") 1587s [00:53:07.510] }, finally = { 1587s [00:53:07.510] if (!identical(...future.workdir, getwd())) 1587s [00:53:07.510] setwd(...future.workdir) 1587s [00:53:07.510] { 1587s [00:53:07.510] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1587s [00:53:07.510] ...future.oldOptions$nwarnings <- NULL 1587s [00:53:07.510] } 1587s [00:53:07.510] base::options(...future.oldOptions) 1587s [00:53:07.510] if (.Platform$OS.type == "windows") { 1587s [00:53:07.510] old_names <- names(...future.oldEnvVars) 1587s [00:53:07.510] envs <- base::Sys.getenv() 1587s [00:53:07.510] names <- names(envs) 1587s [00:53:07.510] common <- intersect(names, old_names) 1587s [00:53:07.510] added <- setdiff(names, old_names) 1587s [00:53:07.510] removed <- setdiff(old_names, names) 1587s [00:53:07.510] changed <- common[...future.oldEnvVars[common] != 1587s [00:53:07.510] envs[common]] 1587s [00:53:07.510] NAMES <- toupper(changed) 1587s [00:53:07.510] args <- list() 1587s [00:53:07.510] for (kk in seq_along(NAMES)) { 1587s [00:53:07.510] name <- changed[[kk]] 1587s [00:53:07.510] NAME <- NAMES[[kk]] 1587s [00:53:07.510] if (name != NAME && is.element(NAME, old_names)) 1587s [00:53:07.510] next 1587s [00:53:07.510] args[[name]] <- ...future.oldEnvVars[[name]] 1587s [00:53:07.510] } 1587s [00:53:07.510] NAMES <- toupper(added) 1587s [00:53:07.510] for (kk in seq_along(NAMES)) { 1587s [00:53:07.510] name <- added[[kk]] 1587s [00:53:07.510] NAME <- NAMES[[kk]] 1587s [00:53:07.510] if (name != NAME && is.element(NAME, old_names)) 1587s [00:53:07.510] next 1587s [00:53:07.510] args[[name]] <- "" 1587s [00:53:07.510] } 1587s [00:53:07.510] NAMES <- toupper(removed) 1587s [00:53:07.510] for (kk in seq_along(NAMES)) { 1587s [00:53:07.510] name <- removed[[kk]] 1587s [00:53:07.510] NAME <- NAMES[[kk]] 1587s [00:53:07.510] if (name != NAME && is.element(NAME, old_names)) 1587s [00:53:07.510] next 1587s [00:53:07.510] args[[name]] <- ...future.oldEnvVars[[name]] 1587s [00:53:07.510] } 1587s [00:53:07.510] if (length(args) > 0) 1587s [00:53:07.510] base::do.call(base::Sys.setenv, args = args) 1587s [00:53:07.510] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1587s [00:53:07.510] } 1587s [00:53:07.510] else { 1587s [00:53:07.510] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1587s [00:53:07.510] } 1587s [00:53:07.510] { 1587s [00:53:07.510] if (base::length(...future.futureOptionsAdded) > 1587s [00:53:07.510] 0L) { 1587s [00:53:07.510] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1587s [00:53:07.510] base::names(opts) <- ...future.futureOptionsAdded 1587s [00:53:07.510] base::options(opts) 1587s [00:53:07.510] } 1587s [00:53:07.510] { 1587s [00:53:07.510] { 1587s [00:53:07.510] NULL 1587s [00:53:07.510] RNGkind("Mersenne-Twister") 1587s [00:53:07.510] base::rm(list = ".Random.seed", envir = base::globalenv(), 1587s [00:53:07.510] inherits = FALSE) 1587s [00:53:07.510] } 1587s [00:53:07.510] options(future.plan = NULL) 1587s [00:53:07.510] if (is.na(NA_character_)) 1587s [00:53:07.510] Sys.unsetenv("R_FUTURE_PLAN") 1587s [00:53:07.510] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1587s [00:53:07.510] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1587s [00:53:07.510] envir = parent.frame()) 1587s [00:53:07.510] { 1587s [00:53:07.510] default_workers <- missing(workers) 1587s [00:53:07.510] if (is.function(workers)) 1587s [00:53:07.510] workers <- workers() 1587s [00:53:07.510] workers <- structure(as.integer(workers), 1587s [00:53:07.510] class = class(workers)) 1587s [00:53:07.510] stop_if_not(is.finite(workers), workers >= 1587s [00:53:07.510] 1L) 1587s [00:53:07.510] if ((workers == 1L && !inherits(workers, 1587s [00:53:07.510] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1587s [00:53:07.510] if (default_workers) 1587s [00:53:07.510] supportsMulticore(warn = TRUE) 1587s [00:53:07.510] return(sequential(..., envir = envir)) 1587s [00:53:07.510] } 1587s [00:53:07.510] oopts <- options(mc.cores = workers) 1587s [00:53:07.510] on.exit(options(oopts)) 1587s [00:53:07.510] future <- MulticoreFuture(..., workers = workers, 1587s [00:53:07.510] envir = envir) 1587s [00:53:07.510] if (!future$lazy) 1587s [00:53:07.510] future <- run(future) 1587s [00:53:07.510] invisible(future) 1587s [00:53:07.510] }), .cleanup = FALSE, .init = FALSE) 1587s [00:53:07.510] } 1587s [00:53:07.510] } 1587s [00:53:07.510] } 1587s [00:53:07.510] }) 1587s [00:53:07.510] if (TRUE) { 1587s [00:53:07.510] base::sink(type = "output", split = FALSE) 1587s [00:53:07.510] if (TRUE) { 1587s [00:53:07.510] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1587s [00:53:07.510] } 1587s [00:53:07.510] else { 1587s [00:53:07.510] ...future.result["stdout"] <- base::list(NULL) 1587s [00:53:07.510] } 1587s [00:53:07.510] base::close(...future.stdout) 1587s [00:53:07.510] ...future.stdout <- NULL 1587s [00:53:07.510] } 1587s [00:53:07.510] ...future.result$conditions <- ...future.conditions 1587s [00:53:07.510] ...future.result$finished <- base::Sys.time() 1587s [00:53:07.510] ...future.result 1587s [00:53:07.510] } 1587s [00:53:07.517] assign_globals() ... 1587s [00:53:07.517] List of 11 1587s [00:53:07.517] $ ...future.FUN :function (x, ...) 1587s [00:53:07.517] $ x_FUN :function (x) 1587s [00:53:07.517] $ times : int 0 1587s [00:53:07.517] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1587s [00:53:07.517] $ stop_if_not :function (...) 1587s [00:53:07.517] $ dim : NULL 1587s [00:53:07.517] $ valid_types : chr [1:2] "logical" "integer" 1587s [00:53:07.517] $ future.call.arguments : list() 1587s [00:53:07.517] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1587s [00:53:07.517] $ ...future.elements_ii :List of 10 1587s [00:53:07.517] ..$ : int 1 1587s [00:53:07.517] ..$ : int 2 1587s [00:53:07.517] ..$ : int 3 1587s [00:53:07.517] ..$ : int 4 1587s [00:53:07.517] ..$ : int 5 1587s [00:53:07.517] ..$ : int 6 1587s [00:53:07.517] ..$ : int 7 1587s [00:53:07.517] ..$ : int 8 1587s [00:53:07.517] ..$ : int 9 1587s [00:53:07.517] ..$ : int 10 1587s [00:53:07.517] $ ...future.seeds_ii : NULL 1587s [00:53:07.517] $ ...future.globals.maxSize: NULL 1587s [00:53:07.517] - attr(*, "where")=List of 11 1587s [00:53:07.517] ..$ ...future.FUN : 1587s [00:53:07.517] ..$ x_FUN : 1587s [00:53:07.517] ..$ times : 1587s [00:53:07.517] ..$ stopf : 1587s [00:53:07.517] ..$ stop_if_not : 1587s [00:53:07.517] ..$ dim : 1587s [00:53:07.517] ..$ valid_types : 1587s [00:53:07.517] ..$ future.call.arguments : 1587s [00:53:07.517] ..$ ...future.elements_ii : 1587s [00:53:07.517] ..$ ...future.seeds_ii : 1587s [00:53:07.517] ..$ ...future.globals.maxSize: 1587s [00:53:07.517] - attr(*, "resolved")= logi FALSE 1587s [00:53:07.517] - attr(*, "total_size")= num 95400 1587s [00:53:07.517] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1587s [00:53:07.517] - attr(*, "already-done")= logi TRUE 1587s [00:53:07.535] - copied ‘...future.FUN’ to environment 1587s [00:53:07.536] - reassign environment for ‘x_FUN’ 1587s [00:53:07.536] - copied ‘x_FUN’ to environment 1587s [00:53:07.537] - copied ‘times’ to environment 1587s [00:53:07.537] - copied ‘stopf’ to environment 1587s [00:53:07.537] - copied ‘stop_if_not’ to environment 1587s [00:53:07.537] - copied ‘dim’ to environment 1587s [00:53:07.537] - copied ‘valid_types’ to environment 1587s [00:53:07.537] - copied ‘future.call.arguments’ to environment 1587s [00:53:07.538] - copied ‘...future.elements_ii’ to environment 1587s [00:53:07.538] - copied ‘...future.seeds_ii’ to environment 1587s [00:53:07.538] - copied ‘...future.globals.maxSize’ to environment 1587s [00:53:07.538] assign_globals() ... done 1587s [00:53:07.538] plan(): Setting new future strategy stack: 1587s [00:53:07.539] List of future strategies: 1587s [00:53:07.539] 1. sequential: 1587s [00:53:07.539] - args: function (..., envir = parent.frame()) 1587s [00:53:07.539] - tweaked: FALSE 1587s [00:53:07.539] - call: NULL 1587s [00:53:07.540] plan(): nbrOfWorkers() = 1 1587s [00:53:07.543] plan(): Setting new future strategy stack: 1587s [00:53:07.543] List of future strategies: 1587s [00:53:07.543] 1. multicore: 1587s [00:53:07.543] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1587s [00:53:07.543] - tweaked: FALSE 1587s [00:53:07.543] - call: plan(strategy) 1587s [00:53:07.546] plan(): nbrOfWorkers() = 1 1587s [00:53:07.547] SequentialFuture started (and completed) 1587s [00:53:07.547] - Launch lazy future ... done 1587s [00:53:07.547] run() for ‘SequentialFuture’ ... done 1587s [00:53:07.547] Created future: 1587s [00:53:07.548] SequentialFuture: 1587s [00:53:07.548] Label: ‘future_vapply-1’ 1587s [00:53:07.548] Expression: 1587s [00:53:07.548] { 1587s [00:53:07.548] do.call(function(...) { 1587s [00:53:07.548] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1587s [00:53:07.548] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1587s [00:53:07.548] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1587s [00:53:07.548] on.exit(options(oopts), add = TRUE) 1587s [00:53:07.548] } 1587s [00:53:07.548] { 1587s [00:53:07.548] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1587s [00:53:07.548] ...future.X_jj <- ...future.elements_ii[[jj]] 1587s [00:53:07.548] ...future.FUN(...future.X_jj, ...) 1587s [00:53:07.548] }) 1587s [00:53:07.548] } 1587s [00:53:07.548] }, args = future.call.arguments) 1587s [00:53:07.548] } 1587s [00:53:07.548] Lazy evaluation: FALSE 1587s [00:53:07.548] Asynchronous evaluation: FALSE 1587s [00:53:07.548] Local evaluation: TRUE 1587s [00:53:07.548] Environment: R_GlobalEnv 1587s [00:53:07.548] Capture standard output: TRUE 1587s [00:53:07.548] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1587s [00:53:07.548] Globals: 11 objects totaling 93.71 KiB (function ‘...future.FUN’ of 21.22 KiB, function ‘x_FUN’ of 1.16 KiB, integer ‘times’ of 56 bytes, function ‘stopf’ of 26.43 KiB, function ‘stop_if_not’ of 44.12 KiB, ...) 1587s [00:53:07.548] Packages: 1 packages (‘future.apply’) 1587s [00:53:07.548] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1587s [00:53:07.548] Resolved: TRUE 1587s [00:53:07.548] Value: 480 bytes of class ‘list’ 1587s [00:53:07.548] Early signaling: FALSE 1587s [00:53:07.548] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1587s [00:53:07.548] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1587s [00:53:07.551] Chunk #1 of 1 ... DONE 1587s [00:53:07.551] Launching 1 futures (chunks) ... DONE 1587s [00:53:07.551] Resolving 1 futures (chunks) ... 1587s [00:53:07.552] resolve() on list ... 1587s [00:53:07.552] recursive: 0 1587s [00:53:07.555] length: 1 1587s [00:53:07.555] 1587s [00:53:07.555] resolved() for ‘SequentialFuture’ ... 1587s [00:53:07.556] - state: ‘finished’ 1587s [00:53:07.556] - run: TRUE 1587s [00:53:07.556] - result: ‘FutureResult’ 1587s [00:53:07.556] resolved() for ‘SequentialFuture’ ... done 1587s [00:53:07.556] Future #1 1587s [00:53:07.557] signalConditionsASAP(SequentialFuture, pos=1) ... 1587s [00:53:07.557] - nx: 1 1587s [00:53:07.557] - relay: TRUE 1587s [00:53:07.558] - stdout: TRUE 1587s [00:53:07.558] - signal: TRUE 1587s [00:53:07.558] - resignal: FALSE 1587s [00:53:07.558] - force: TRUE 1587s [00:53:07.558] - relayed: [n=1] FALSE 1587s [00:53:07.558] - queued futures: [n=1] FALSE 1587s [00:53:07.559] - until=1 1587s [00:53:07.559] - relaying element #1 1587s [00:53:07.559] - relayed: [n=1] TRUE 1587s [00:53:07.560] - queued futures: [n=1] TRUE 1587s [00:53:07.560] signalConditionsASAP(SequentialFuture, pos=1) ... done 1587s [00:53:07.560] length: 0 (resolved future 1) 1587s [00:53:07.560] Relaying remaining futures 1587s [00:53:07.561] signalConditionsASAP(NULL, pos=0) ... 1587s [00:53:07.561] - nx: 1 1587s [00:53:07.561] - relay: TRUE 1587s [00:53:07.561] - stdout: TRUE 1587s [00:53:07.562] - signal: TRUE 1587s [00:53:07.562] - resignal: FALSE 1587s [00:53:07.562] - force: TRUE 1587s [00:53:07.562] - relayed: [n=1] TRUE 1587s int[0 , 1:10] 1587s num [1:10] 1 1.41 1.73 2 2.24 ... 1587s [00:53:07.562] - queued futures: [n=1] TRUE 1587s - flush all 1587s [00:53:07.563] - relayed: [n=1] TRUE 1587s [00:53:07.563] - queued futures: [n=1] TRUE 1587s [00:53:07.563] signalConditionsASAP(NULL, pos=0) ... done 1587s [00:53:07.563] resolve() on list ... DONE 1587s [00:53:07.563] - Number of value chunks collected: 1 1587s [00:53:07.564] Resolving 1 futures (chunks) ... DONE 1587s [00:53:07.564] Reducing values from 1 chunks ... 1587s [00:53:07.564] - Number of values collected after concatenation: 10 1587s [00:53:07.564] - Number of values expected: 10 1587s [00:53:07.565] Reducing values from 1 chunks ... DONE 1587s [00:53:07.565] future_lapply() ... DONE 1587s [00:53:07.567] future_lapply() ... 1587s [00:53:07.576] Number of chunks: 1 1587s [00:53:07.577] getGlobalsAndPackagesXApply() ... 1587s [00:53:07.579] - future.globals: TRUE 1587s [00:53:07.580] getGlobalsAndPackages() ... 1587s [00:53:07.581] Searching for globals... 1587s [00:53:07.591] - globals found: [16] ‘FUN’, ‘{’, ‘<-’, ‘x_FUN’, ‘if’, ‘!=’, ‘length’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘all’, ‘==’, ‘dim’, ‘%in%’, ‘typeof’, ‘valid_types’ 1587s [00:53:07.591] Searching for globals ... DONE 1587s [00:53:07.591] Resolving globals: FALSE 1587s [00:53:07.593] The total size of the 7 globals is 92.12 KiB (94336 bytes) 1587s [00:53:07.593] The total size of the 7 globals exported for future expression (‘FUN()’) is 92.12 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘stop_if_not’ (44.12 KiB of class ‘function’), ‘stopf’ (26.43 KiB of class ‘function’) and ‘FUN’ (21.22 KiB of class ‘function’) 1587s [00:53:07.594] - globals: [7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1587s [00:53:07.594] - packages: [1] ‘future.apply’ 1587s [00:53:07.594] getGlobalsAndPackages() ... DONE 1587s [00:53:07.594] - globals found/used: [n=7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1587s [00:53:07.594] - needed namespaces: [n=1] ‘future.apply’ 1587s [00:53:07.594] Finding globals ... DONE 1587s [00:53:07.595] - use_args: TRUE 1587s [00:53:07.595] - Getting '...' globals ... 1587s [00:53:07.595] resolve() on list ... 1587s [00:53:07.595] recursive: 0 1587s [00:53:07.596] length: 1 1587s [00:53:07.596] elements: ‘...’ 1587s [00:53:07.596] length: 0 (resolved future 1) 1587s [00:53:07.596] resolve() on list ... DONE 1587s [00:53:07.596] - '...' content: [n=0] 1587s [00:53:07.596] List of 1 1587s [00:53:07.596] $ ...: list() 1587s [00:53:07.596] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1587s [00:53:07.596] - attr(*, "where")=List of 1 1587s [00:53:07.596] ..$ ...: 1587s [00:53:07.596] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1587s [00:53:07.596] - attr(*, "resolved")= logi TRUE 1587s [00:53:07.596] - attr(*, "total_size")= num NA 1587s [00:53:07.599] - Getting '...' globals ... DONE 1587s [00:53:07.600] Globals to be used in all futures (chunks): [n=8] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’ 1587s [00:53:07.600] List of 8 1587s [00:53:07.600] $ ...future.FUN:function (x, ...) 1587s [00:53:07.600] $ x_FUN :function (x) 1587s [00:53:07.600] $ times : int 1 1587s [00:53:07.600] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1587s [00:53:07.600] $ stop_if_not :function (...) 1587s [00:53:07.600] $ dim : NULL 1587s [00:53:07.600] $ valid_types : chr [1:3] "logical" "integer" "double" 1587s [00:53:07.600] $ ... : list() 1587s [00:53:07.600] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1587s [00:53:07.600] - attr(*, "where")=List of 8 1587s [00:53:07.600] ..$ ...future.FUN: 1587s [00:53:07.600] ..$ x_FUN : 1587s [00:53:07.600] ..$ times : 1587s [00:53:07.600] ..$ stopf : 1587s [00:53:07.600] ..$ stop_if_not : 1587s [00:53:07.600] ..$ dim : 1587s [00:53:07.600] ..$ valid_types : 1587s [00:53:07.600] ..$ ... : 1587s [00:53:07.600] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1587s [00:53:07.600] - attr(*, "resolved")= logi FALSE 1587s [00:53:07.600] - attr(*, "total_size")= num 94336 1587s [00:53:07.613] Packages to be attached in all futures: [n=1] ‘future.apply’ 1587s [00:53:07.613] getGlobalsAndPackagesXApply() ... DONE 1587s [00:53:07.613] Number of futures (= number of chunks): 1 1587s [00:53:07.614] Launching 1 futures (chunks) ... 1587s [00:53:07.614] Chunk #1 of 1 ... 1587s [00:53:07.614] - Finding globals in 'X' for chunk #1 ... 1587s [00:53:07.614] getGlobalsAndPackages() ... 1587s [00:53:07.614] Searching for globals... 1587s [00:53:07.615] 1587s [00:53:07.615] Searching for globals ... DONE 1587s [00:53:07.615] - globals: [0] 1587s [00:53:07.615] getGlobalsAndPackages() ... DONE 1587s [00:53:07.615] + additional globals found: [n=0] 1587s [00:53:07.615] + additional namespaces needed: [n=0] 1587s [00:53:07.616] - Finding globals in 'X' for chunk #1 ... DONE 1587s [00:53:07.616] - seeds: 1587s [00:53:07.616] - All globals exported: [n=11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1587s [00:53:07.616] getGlobalsAndPackages() ... 1587s [00:53:07.616] - globals passed as-is: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1587s [00:53:07.616] Resolving globals: FALSE 1587s [00:53:07.617] Tweak future expression to call with '...' arguments ... 1587s [00:53:07.617] { 1587s [00:53:07.617] do.call(function(...) { 1587s [00:53:07.617] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1587s [00:53:07.617] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1587s [00:53:07.617] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1587s [00:53:07.617] on.exit(options(oopts), add = TRUE) 1587s [00:53:07.617] } 1587s [00:53:07.617] { 1587s [00:53:07.617] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1587s [00:53:07.617] ...future.X_jj <- ...future.elements_ii[[jj]] 1587s [00:53:07.617] ...future.FUN(...future.X_jj, ...) 1587s [00:53:07.617] }) 1587s [00:53:07.617] } 1587s [00:53:07.617] }, args = future.call.arguments) 1587s [00:53:07.617] } 1587s [00:53:07.617] Tweak future expression to call with '...' arguments ... DONE 1587s [00:53:07.618] - globals: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1587s [00:53:07.618] - packages: [1] ‘future.apply’ 1587s [00:53:07.619] getGlobalsAndPackages() ... DONE 1587s [00:53:07.619] run() for ‘Future’ ... 1587s [00:53:07.620] - state: ‘created’ 1587s [00:53:07.620] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1587s [00:53:07.624] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1587s [00:53:07.624] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1587s [00:53:07.624] - Field: ‘label’ 1587s [00:53:07.625] - Field: ‘local’ 1587s [00:53:07.625] - Field: ‘owner’ 1587s [00:53:07.625] - Field: ‘envir’ 1587s [00:53:07.625] - Field: ‘packages’ 1587s [00:53:07.625] - Field: ‘gc’ 1587s [00:53:07.625] - Field: ‘conditions’ 1587s [00:53:07.626] - Field: ‘expr’ 1587s [00:53:07.626] - Field: ‘uuid’ 1587s [00:53:07.626] - Field: ‘seed’ 1587s [00:53:07.626] - Field: ‘version’ 1587s [00:53:07.626] - Field: ‘result’ 1587s [00:53:07.626] - Field: ‘asynchronous’ 1587s [00:53:07.626] - Field: ‘calls’ 1587s [00:53:07.627] - Field: ‘globals’ 1587s [00:53:07.627] - Field: ‘stdout’ 1587s [00:53:07.627] - Field: ‘earlySignal’ 1587s [00:53:07.627] - Field: ‘lazy’ 1587s [00:53:07.627] - Field: ‘state’ 1587s [00:53:07.627] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1587s [00:53:07.628] - Launch lazy future ... 1587s [00:53:07.628] Packages needed by the future expression (n = 1): ‘future.apply’ 1587s [00:53:07.628] Packages needed by future strategies (n = 0): 1587s [00:53:07.629] { 1587s [00:53:07.629] { 1587s [00:53:07.629] { 1587s [00:53:07.629] ...future.startTime <- base::Sys.time() 1587s [00:53:07.629] { 1587s [00:53:07.629] { 1587s [00:53:07.629] { 1587s [00:53:07.629] { 1587s [00:53:07.629] base::local({ 1587s [00:53:07.629] has_future <- base::requireNamespace("future", 1587s [00:53:07.629] quietly = TRUE) 1587s [00:53:07.629] if (has_future) { 1587s [00:53:07.629] ns <- base::getNamespace("future") 1587s [00:53:07.629] version <- ns[[".package"]][["version"]] 1587s [00:53:07.629] if (is.null(version)) 1587s [00:53:07.629] version <- utils::packageVersion("future") 1587s [00:53:07.629] } 1587s [00:53:07.629] else { 1587s [00:53:07.629] version <- NULL 1587s [00:53:07.629] } 1587s [00:53:07.629] if (!has_future || version < "1.8.0") { 1587s [00:53:07.629] info <- base::c(r_version = base::gsub("R version ", 1587s [00:53:07.629] "", base::R.version$version.string), 1587s [00:53:07.629] platform = base::sprintf("%s (%s-bit)", 1587s [00:53:07.629] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1587s [00:53:07.629] os = base::paste(base::Sys.info()[base::c("sysname", 1587s [00:53:07.629] "release", "version")], collapse = " "), 1587s [00:53:07.629] hostname = base::Sys.info()[["nodename"]]) 1587s [00:53:07.629] info <- base::sprintf("%s: %s", base::names(info), 1587s [00:53:07.629] info) 1587s [00:53:07.629] info <- base::paste(info, collapse = "; ") 1587s [00:53:07.629] if (!has_future) { 1587s [00:53:07.629] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1587s [00:53:07.629] info) 1587s [00:53:07.629] } 1587s [00:53:07.629] else { 1587s [00:53:07.629] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1587s [00:53:07.629] info, version) 1587s [00:53:07.629] } 1587s [00:53:07.629] base::stop(msg) 1587s [00:53:07.629] } 1587s [00:53:07.629] }) 1587s [00:53:07.629] } 1587s [00:53:07.629] base::local({ 1587s [00:53:07.629] for (pkg in "future.apply") { 1587s [00:53:07.629] base::loadNamespace(pkg) 1587s [00:53:07.629] base::library(pkg, character.only = TRUE) 1587s [00:53:07.629] } 1587s [00:53:07.629] }) 1587s [00:53:07.629] } 1587s [00:53:07.629] options(future.plan = NULL) 1587s [00:53:07.629] Sys.unsetenv("R_FUTURE_PLAN") 1587s [00:53:07.629] future::plan("default", .cleanup = FALSE, .init = FALSE) 1587s [00:53:07.629] } 1587s [00:53:07.629] ...future.workdir <- getwd() 1587s [00:53:07.629] } 1587s [00:53:07.629] ...future.oldOptions <- base::as.list(base::.Options) 1587s [00:53:07.629] ...future.oldEnvVars <- base::Sys.getenv() 1587s [00:53:07.629] } 1587s [00:53:07.629] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1587s [00:53:07.629] future.globals.maxSize = NULL, future.globals.method = NULL, 1587s [00:53:07.629] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1587s [00:53:07.629] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1587s [00:53:07.629] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1587s [00:53:07.629] future.stdout.windows.reencode = NULL, width = 80L) 1587s [00:53:07.629] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1587s [00:53:07.629] base::names(...future.oldOptions)) 1587s [00:53:07.629] } 1587s [00:53:07.629] if (FALSE) { 1587s [00:53:07.629] } 1587s [00:53:07.629] else { 1587s [00:53:07.629] if (TRUE) { 1587s [00:53:07.629] ...future.stdout <- base::rawConnection(base::raw(0L), 1587s [00:53:07.629] open = "w") 1587s [00:53:07.629] } 1587s [00:53:07.629] else { 1587s [00:53:07.629] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1587s [00:53:07.629] windows = "NUL", "/dev/null"), open = "w") 1587s [00:53:07.629] } 1587s [00:53:07.629] base::sink(...future.stdout, type = "output", split = FALSE) 1587s [00:53:07.629] base::on.exit(if (!base::is.null(...future.stdout)) { 1587s [00:53:07.629] base::sink(type = "output", split = FALSE) 1587s [00:53:07.629] base::close(...future.stdout) 1587s [00:53:07.629] }, add = TRUE) 1587s [00:53:07.629] } 1587s [00:53:07.629] ...future.frame <- base::sys.nframe() 1587s [00:53:07.629] ...future.conditions <- base::list() 1587s [00:53:07.629] ...future.rng <- base::globalenv()$.Random.seed 1587s [00:53:07.629] if (FALSE) { 1587s [00:53:07.629] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1587s [00:53:07.629] "...future.value", "...future.globalenv.names", ".Random.seed") 1587s [00:53:07.629] } 1587s [00:53:07.629] ...future.result <- base::tryCatch({ 1587s [00:53:07.629] base::withCallingHandlers({ 1587s [00:53:07.629] ...future.value <- base::withVisible(base::local({ 1587s [00:53:07.629] do.call(function(...) { 1587s [00:53:07.629] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1587s [00:53:07.629] if (!identical(...future.globals.maxSize.org, 1587s [00:53:07.629] ...future.globals.maxSize)) { 1587s [00:53:07.629] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1587s [00:53:07.629] on.exit(options(oopts), add = TRUE) 1587s [00:53:07.629] } 1587s [00:53:07.629] { 1587s [00:53:07.629] lapply(seq_along(...future.elements_ii), 1587s [00:53:07.629] FUN = function(jj) { 1587s [00:53:07.629] ...future.X_jj <- ...future.elements_ii[[jj]] 1587s [00:53:07.629] ...future.FUN(...future.X_jj, ...) 1587s [00:53:07.629] }) 1587s [00:53:07.629] } 1587s [00:53:07.629] }, args = future.call.arguments) 1587s [00:53:07.629] })) 1587s [00:53:07.629] future::FutureResult(value = ...future.value$value, 1587s [00:53:07.629] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1587s [00:53:07.629] ...future.rng), globalenv = if (FALSE) 1587s [00:53:07.629] list(added = base::setdiff(base::names(base::.GlobalEnv), 1587s [00:53:07.629] ...future.globalenv.names)) 1587s [00:53:07.629] else NULL, started = ...future.startTime, version = "1.8") 1587s [00:53:07.629] }, condition = base::local({ 1587s [00:53:07.629] c <- base::c 1587s [00:53:07.629] inherits <- base::inherits 1587s [00:53:07.629] invokeRestart <- base::invokeRestart 1587s [00:53:07.629] length <- base::length 1587s [00:53:07.629] list <- base::list 1587s [00:53:07.629] seq.int <- base::seq.int 1587s [00:53:07.629] signalCondition <- base::signalCondition 1587s [00:53:07.629] sys.calls <- base::sys.calls 1587s [00:53:07.629] `[[` <- base::`[[` 1587s [00:53:07.629] `+` <- base::`+` 1587s [00:53:07.629] `<<-` <- base::`<<-` 1587s [00:53:07.629] sysCalls <- function(calls = sys.calls(), from = 1L) { 1587s [00:53:07.629] calls[seq.int(from = from + 12L, to = length(calls) - 1587s [00:53:07.629] 3L)] 1587s [00:53:07.629] } 1587s [00:53:07.629] function(cond) { 1587s [00:53:07.629] is_error <- inherits(cond, "error") 1587s [00:53:07.629] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1587s [00:53:07.629] NULL) 1587s [00:53:07.629] if (is_error) { 1587s [00:53:07.629] sessionInformation <- function() { 1587s [00:53:07.629] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1587s [00:53:07.629] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1587s [00:53:07.629] search = base::search(), system = base::Sys.info()) 1587s [00:53:07.629] } 1587s [00:53:07.629] ...future.conditions[[length(...future.conditions) + 1587s [00:53:07.629] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1587s [00:53:07.629] cond$call), session = sessionInformation(), 1587s [00:53:07.629] timestamp = base::Sys.time(), signaled = 0L) 1587s [00:53:07.629] signalCondition(cond) 1587s [00:53:07.629] } 1587s [00:53:07.629] else if (!ignore && TRUE && inherits(cond, c("condition", 1587s [00:53:07.629] "immediateCondition"))) { 1587s [00:53:07.629] signal <- TRUE && inherits(cond, "immediateCondition") 1587s [00:53:07.629] ...future.conditions[[length(...future.conditions) + 1587s [00:53:07.629] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1587s [00:53:07.629] if (TRUE && !signal) { 1587s [00:53:07.629] muffleCondition <- function (cond, pattern = "^muffle") 1587s [00:53:07.629] { 1587s [00:53:07.629] inherits <- base::inherits 1587s [00:53:07.629] invokeRestart <- base::invokeRestart 1587s [00:53:07.629] is.null <- base::is.null 1587s [00:53:07.629] muffled <- FALSE 1587s [00:53:07.629] if (inherits(cond, "message")) { 1587s [00:53:07.629] muffled <- grepl(pattern, "muffleMessage") 1587s [00:53:07.629] if (muffled) 1587s [00:53:07.629] invokeRestart("muffleMessage") 1587s [00:53:07.629] } 1587s [00:53:07.629] else if (inherits(cond, "warning")) { 1587s [00:53:07.629] muffled <- grepl(pattern, "muffleWarning") 1587s [00:53:07.629] if (muffled) 1587s [00:53:07.629] invokeRestart("muffleWarning") 1587s [00:53:07.629] } 1587s [00:53:07.629] else if (inherits(cond, "condition")) { 1587s [00:53:07.629] if (!is.null(pattern)) { 1587s [00:53:07.629] computeRestarts <- base::computeRestarts 1587s [00:53:07.629] grepl <- base::grepl 1587s [00:53:07.629] restarts <- computeRestarts(cond) 1587s [00:53:07.629] for (restart in restarts) { 1587s [00:53:07.629] name <- restart$name 1587s [00:53:07.629] if (is.null(name)) 1587s [00:53:07.629] next 1587s [00:53:07.629] if (!grepl(pattern, name)) 1587s [00:53:07.629] next 1587s [00:53:07.629] invokeRestart(restart) 1587s [00:53:07.629] muffled <- TRUE 1587s [00:53:07.629] break 1587s [00:53:07.629] } 1587s [00:53:07.629] } 1587s [00:53:07.629] } 1587s [00:53:07.629] invisible(muffled) 1587s [00:53:07.629] } 1587s [00:53:07.629] muffleCondition(cond, pattern = "^muffle") 1587s [00:53:07.629] } 1587s [00:53:07.629] } 1587s [00:53:07.629] else { 1587s [00:53:07.629] if (TRUE) { 1587s [00:53:07.629] muffleCondition <- function (cond, pattern = "^muffle") 1587s [00:53:07.629] { 1587s [00:53:07.629] inherits <- base::inherits 1587s [00:53:07.629] invokeRestart <- base::invokeRestart 1587s [00:53:07.629] is.null <- base::is.null 1587s [00:53:07.629] muffled <- FALSE 1587s [00:53:07.629] if (inherits(cond, "message")) { 1587s [00:53:07.629] muffled <- grepl(pattern, "muffleMessage") 1587s [00:53:07.629] if (muffled) 1587s [00:53:07.629] invokeRestart("muffleMessage") 1587s [00:53:07.629] } 1587s [00:53:07.629] else if (inherits(cond, "warning")) { 1587s [00:53:07.629] muffled <- grepl(pattern, "muffleWarning") 1587s [00:53:07.629] if (muffled) 1587s [00:53:07.629] invokeRestart("muffleWarning") 1587s [00:53:07.629] } 1587s [00:53:07.629] else if (inherits(cond, "condition")) { 1587s [00:53:07.629] if (!is.null(pattern)) { 1587s [00:53:07.629] computeRestarts <- base::computeRestarts 1587s [00:53:07.629] grepl <- base::grepl 1587s [00:53:07.629] restarts <- computeRestarts(cond) 1587s [00:53:07.629] for (restart in restarts) { 1587s [00:53:07.629] name <- restart$name 1587s [00:53:07.629] if (is.null(name)) 1587s [00:53:07.629] next 1587s [00:53:07.629] if (!grepl(pattern, name)) 1587s [00:53:07.629] next 1587s [00:53:07.629] invokeRestart(restart) 1587s [00:53:07.629] muffled <- TRUE 1587s [00:53:07.629] break 1587s [00:53:07.629] } 1587s [00:53:07.629] } 1587s [00:53:07.629] } 1587s [00:53:07.629] invisible(muffled) 1587s [00:53:07.629] } 1587s [00:53:07.629] muffleCondition(cond, pattern = "^muffle") 1587s [00:53:07.629] } 1587s [00:53:07.629] } 1587s [00:53:07.629] } 1587s [00:53:07.629] })) 1587s [00:53:07.629] }, error = function(ex) { 1587s [00:53:07.629] base::structure(base::list(value = NULL, visible = NULL, 1587s [00:53:07.629] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1587s [00:53:07.629] ...future.rng), started = ...future.startTime, 1587s [00:53:07.629] finished = Sys.time(), session_uuid = NA_character_, 1587s [00:53:07.629] version = "1.8"), class = "FutureResult") 1587s [00:53:07.629] }, finally = { 1587s [00:53:07.629] if (!identical(...future.workdir, getwd())) 1587s [00:53:07.629] setwd(...future.workdir) 1587s [00:53:07.629] { 1587s [00:53:07.629] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1587s [00:53:07.629] ...future.oldOptions$nwarnings <- NULL 1587s [00:53:07.629] } 1587s [00:53:07.629] base::options(...future.oldOptions) 1587s [00:53:07.629] if (.Platform$OS.type == "windows") { 1587s [00:53:07.629] old_names <- names(...future.oldEnvVars) 1587s [00:53:07.629] envs <- base::Sys.getenv() 1587s [00:53:07.629] names <- names(envs) 1587s [00:53:07.629] common <- intersect(names, old_names) 1587s [00:53:07.629] added <- setdiff(names, old_names) 1587s [00:53:07.629] removed <- setdiff(old_names, names) 1587s [00:53:07.629] changed <- common[...future.oldEnvVars[common] != 1587s [00:53:07.629] envs[common]] 1587s [00:53:07.629] NAMES <- toupper(changed) 1587s [00:53:07.629] args <- list() 1587s [00:53:07.629] for (kk in seq_along(NAMES)) { 1587s [00:53:07.629] name <- changed[[kk]] 1587s [00:53:07.629] NAME <- NAMES[[kk]] 1587s [00:53:07.629] if (name != NAME && is.element(NAME, old_names)) 1587s [00:53:07.629] next 1587s [00:53:07.629] args[[name]] <- ...future.oldEnvVars[[name]] 1587s [00:53:07.629] } 1587s [00:53:07.629] NAMES <- toupper(added) 1587s [00:53:07.629] for (kk in seq_along(NAMES)) { 1587s [00:53:07.629] name <- added[[kk]] 1587s [00:53:07.629] NAME <- NAMES[[kk]] 1587s [00:53:07.629] if (name != NAME && is.element(NAME, old_names)) 1587s [00:53:07.629] next 1587s [00:53:07.629] args[[name]] <- "" 1587s [00:53:07.629] } 1587s [00:53:07.629] NAMES <- toupper(removed) 1587s [00:53:07.629] for (kk in seq_along(NAMES)) { 1587s [00:53:07.629] name <- removed[[kk]] 1587s [00:53:07.629] NAME <- NAMES[[kk]] 1587s [00:53:07.629] if (name != NAME && is.element(NAME, old_names)) 1587s [00:53:07.629] next 1587s [00:53:07.629] args[[name]] <- ...future.oldEnvVars[[name]] 1587s [00:53:07.629] } 1587s [00:53:07.629] if (length(args) > 0) 1587s [00:53:07.629] base::do.call(base::Sys.setenv, args = args) 1587s [00:53:07.629] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1587s [00:53:07.629] } 1587s [00:53:07.629] else { 1587s [00:53:07.629] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1587s [00:53:07.629] } 1587s [00:53:07.629] { 1587s [00:53:07.629] if (base::length(...future.futureOptionsAdded) > 1587s [00:53:07.629] 0L) { 1587s [00:53:07.629] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1587s [00:53:07.629] base::names(opts) <- ...future.futureOptionsAdded 1587s [00:53:07.629] base::options(opts) 1587s [00:53:07.629] } 1587s [00:53:07.629] { 1587s [00:53:07.629] { 1587s [00:53:07.629] NULL 1587s [00:53:07.629] RNGkind("Mersenne-Twister") 1587s [00:53:07.629] base::rm(list = ".Random.seed", envir = base::globalenv(), 1587s [00:53:07.629] inherits = FALSE) 1587s [00:53:07.629] } 1587s [00:53:07.629] options(future.plan = NULL) 1587s [00:53:07.629] if (is.na(NA_character_)) 1587s [00:53:07.629] Sys.unsetenv("R_FUTURE_PLAN") 1587s [00:53:07.629] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1587s [00:53:07.629] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1587s [00:53:07.629] envir = parent.frame()) 1587s [00:53:07.629] { 1587s [00:53:07.629] default_workers <- missing(workers) 1587s [00:53:07.629] if (is.function(workers)) 1587s [00:53:07.629] workers <- workers() 1587s [00:53:07.629] workers <- structure(as.integer(workers), 1587s [00:53:07.629] class = class(workers)) 1587s [00:53:07.629] stop_if_not(is.finite(workers), workers >= 1587s [00:53:07.629] 1L) 1587s [00:53:07.629] if ((workers == 1L && !inherits(workers, 1587s [00:53:07.629] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1587s [00:53:07.629] if (default_workers) 1587s [00:53:07.629] supportsMulticore(warn = TRUE) 1587s [00:53:07.629] return(sequential(..., envir = envir)) 1587s [00:53:07.629] } 1587s [00:53:07.629] oopts <- options(mc.cores = workers) 1587s [00:53:07.629] on.exit(options(oopts)) 1587s [00:53:07.629] future <- MulticoreFuture(..., workers = workers, 1587s [00:53:07.629] envir = envir) 1587s [00:53:07.629] if (!future$lazy) 1587s [00:53:07.629] future <- run(future) 1587s [00:53:07.629] invisible(future) 1587s [00:53:07.629] }), .cleanup = FALSE, .init = FALSE) 1587s [00:53:07.629] } 1587s [00:53:07.629] } 1587s [00:53:07.629] } 1587s [00:53:07.629] }) 1587s [00:53:07.629] if (TRUE) { 1587s [00:53:07.629] base::sink(type = "output", split = FALSE) 1587s [00:53:07.629] if (TRUE) { 1587s [00:53:07.629] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1587s [00:53:07.629] } 1587s [00:53:07.629] else { 1587s [00:53:07.629] ...future.result["stdout"] <- base::list(NULL) 1587s [00:53:07.629] } 1587s [00:53:07.629] base::close(...future.stdout) 1587s [00:53:07.629] ...future.stdout <- NULL 1587s [00:53:07.629] } 1587s [00:53:07.629] ...future.result$conditions <- ...future.conditions 1587s [00:53:07.629] ...future.result$finished <- base::Sys.time() 1587s [00:53:07.629] ...future.result 1587s [00:53:07.629] } 1587s [00:53:07.635] assign_globals() ... 1587s [00:53:07.635] List of 11 1587s [00:53:07.635] $ ...future.FUN :function (x, ...) 1587s [00:53:07.635] $ x_FUN :function (x) 1587s [00:53:07.635] $ times : int 1 1587s [00:53:07.635] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1587s [00:53:07.635] $ stop_if_not :function (...) 1587s [00:53:07.635] $ dim : NULL 1587s [00:53:07.635] $ valid_types : chr [1:3] "logical" "integer" "double" 1587s [00:53:07.635] $ future.call.arguments : list() 1587s [00:53:07.635] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1587s [00:53:07.635] $ ...future.elements_ii :List of 10 1587s [00:53:07.635] ..$ : int 1 1587s [00:53:07.635] ..$ : int 2 1587s [00:53:07.635] ..$ : int 3 1587s [00:53:07.635] ..$ : int 4 1587s [00:53:07.635] ..$ : int 5 1587s [00:53:07.635] ..$ : int 6 1587s [00:53:07.635] ..$ : int 7 1587s [00:53:07.635] ..$ : int 8 1587s [00:53:07.635] ..$ : int 9 1587s [00:53:07.635] ..$ : int 10 1587s [00:53:07.635] $ ...future.seeds_ii : NULL 1587s [00:53:07.635] $ ...future.globals.maxSize: NULL 1587s [00:53:07.635] - attr(*, "where")=List of 11 1587s [00:53:07.635] ..$ ...future.FUN : 1587s [00:53:07.635] ..$ x_FUN : 1587s [00:53:07.635] ..$ times : 1587s [00:53:07.635] ..$ stopf : 1587s [00:53:07.635] ..$ stop_if_not : 1587s [00:53:07.635] ..$ dim : 1587s [00:53:07.635] ..$ valid_types : 1587s [00:53:07.635] ..$ future.call.arguments : 1587s [00:53:07.635] ..$ ...future.elements_ii : 1587s [00:53:07.635] ..$ ...future.seeds_ii : 1587s [00:53:07.635] ..$ ...future.globals.maxSize: 1587s [00:53:07.635] - attr(*, "resolved")= logi FALSE 1587s [00:53:07.635] - attr(*, "total_size")= num 94336 1587s [00:53:07.635] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1587s [00:53:07.635] - attr(*, "already-done")= logi TRUE 1587s [00:53:07.656] - copied ‘...future.FUN’ to environment 1587s [00:53:07.657] - copied ‘x_FUN’ to environment 1587s [00:53:07.657] - copied ‘times’ to environment 1587s [00:53:07.657] - copied ‘stopf’ to environment 1587s [00:53:07.657] - copied ‘stop_if_not’ to environment 1587s [00:53:07.658] - copied ‘dim’ to environment 1587s [00:53:07.658] - copied ‘valid_types’ to environment 1587s [00:53:07.658] - copied ‘future.call.arguments’ to environment 1587s [00:53:07.659] - copied ‘...future.elements_ii’ to environment 1587s [00:53:07.659] - copied ‘...future.seeds_ii’ to environment 1587s [00:53:07.659] - copied ‘...future.globals.maxSize’ to environment 1587s [00:53:07.659] assign_globals() ... done 1587s [00:53:07.660] plan(): Setting new future strategy stack: 1587s [00:53:07.660] List of future strategies: 1587s [00:53:07.660] 1. sequential: 1587s [00:53:07.660] - args: function (..., envir = parent.frame()) 1587s [00:53:07.660] - tweaked: FALSE 1587s [00:53:07.660] - call: NULL 1587s [00:53:07.661] plan(): nbrOfWorkers() = 1 1587s [00:53:07.662] plan(): Setting new future strategy stack: 1587s [00:53:07.663] List of future strategies: 1587s [00:53:07.663] 1. multicore: 1587s [00:53:07.663] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1587s [00:53:07.663] - tweaked: FALSE 1587s [00:53:07.663] - call: plan(strategy) 1587s [00:53:07.667] plan(): nbrOfWorkers() = 1 1587s [00:53:07.667] SequentialFuture started (and completed) 1587s [00:53:07.668] - Launch lazy future ... done 1587s [00:53:07.668] run() for ‘SequentialFuture’ ... done 1587s [00:53:07.668] Created future: 1587s [00:53:07.668] SequentialFuture: 1587s [00:53:07.668] Label: ‘future_vapply-1’ 1587s [00:53:07.668] Expression: 1587s [00:53:07.668] { 1587s [00:53:07.668] do.call(function(...) { 1587s [00:53:07.668] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1587s [00:53:07.668] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1587s [00:53:07.668] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1587s [00:53:07.668] on.exit(options(oopts), add = TRUE) 1587s [00:53:07.668] } 1587s [00:53:07.668] { 1587s [00:53:07.668] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1587s [00:53:07.668] ...future.X_jj <- ...future.elements_ii[[jj]] 1587s [00:53:07.668] ...future.FUN(...future.X_jj, ...) 1587s [00:53:07.668] }) 1587s [00:53:07.668] } 1587s [00:53:07.668] }, args = future.call.arguments) 1587s [00:53:07.668] } 1587s [00:53:07.668] Lazy evaluation: FALSE 1587s [00:53:07.668] Asynchronous evaluation: FALSE 1587s [00:53:07.668] Local evaluation: TRUE 1587s [00:53:07.668] Environment: R_GlobalEnv 1587s [00:53:07.668] Capture standard output: TRUE 1587s [00:53:07.668] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1587s [00:53:07.668] Globals: 11 objects totaling 92.67 KiB (function ‘...future.FUN’ of 21.22 KiB, function ‘x_FUN’ of 56 bytes, integer ‘times’ of 56 bytes, function ‘stopf’ of 26.43 KiB, function ‘stop_if_not’ of 44.12 KiB, ...) 1587s [00:53:07.668] Packages: 1 packages (‘future.apply’) 1587s [00:53:07.668] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1587s [00:53:07.668] Resolved: TRUE 1587s [00:53:07.668] Value: 560 bytes of class ‘list’ 1587s [00:53:07.668] Early signaling: FALSE 1587s [00:53:07.668] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1587s [00:53:07.668] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1587s [00:53:07.670] Chunk #1 of 1 ... DONE 1587s [00:53:07.670] Launching 1 futures (chunks) ... DONE 1587s [00:53:07.670] Resolving 1 futures (chunks) ... 1587s [00:53:07.671] resolve() on list ... 1587s [00:53:07.671] recursive: 0 1587s [00:53:07.671] length: 1 1587s [00:53:07.671] 1587s [00:53:07.671] resolved() for ‘SequentialFuture’ ... 1587s [00:53:07.671] - state: ‘finished’ 1587s [00:53:07.671] - run: TRUE 1587s [00:53:07.672] - result: ‘FutureResult’ 1587s [00:53:07.672] resolved() for ‘SequentialFuture’ ... done 1587s [00:53:07.672] Future #1 1587s [00:53:07.672] signalConditionsASAP(SequentialFuture, pos=1) ... 1587s [00:53:07.672] - nx: 1 1587s [00:53:07.673] - relay: TRUE 1587s [00:53:07.673] - stdout: TRUE 1587s [00:53:07.673] - signal: TRUE 1587s [00:53:07.673] - resignal: FALSE 1587s [00:53:07.673] - force: TRUE 1587s [00:53:07.673] - relayed: [n=1] FALSE 1587s [00:53:07.674] - queued futures: [n=1] FALSE 1587s [00:53:07.674] - until=1 1587s [00:53:07.674] - relaying element #1 1587s [00:53:07.674] - relayed: [n=1] TRUE 1587s [00:53:07.674] - queued futures: [n=1] TRUE 1587s [00:53:07.675] signalConditionsASAP(SequentialFuture, pos=1) ... done 1587s [00:53:07.675] length: 0 (resolved future 1) 1587s [00:53:07.675] Relaying remaining futures 1587s [00:53:07.675] signalConditionsASAP(NULL, pos=0) ... 1587s [00:53:07.675] - nx: 1 1587s [00:53:07.675] - relay: TRUE 1587s [00:53:07.675] - stdout: TRUE 1587s [00:53:07.676] - signal: TRUE 1587s [00:53:07.676] - resignal: FALSE 1587s [00:53:07.676] - force: TRUE 1587s [00:53:07.676] - relayed: [n=1] TRUE 1587s [00:53:07.676] - queued futures: [n=1] TRUE 1587s - flush all 1587s [00:53:07.677] - relayed: [n=1] TRUE 1587s [00:53:07.677] - queued futures: [n=1] TRUE 1587s [00:53:07.677] signalConditionsASAP(NULL, pos=0) ... done 1587s [00:53:07.677] resolve() on list ... DONE 1587s [00:53:07.677] - Number of value chunks collected: 1 1587s [00:53:07.677] Resolving 1 futures (chunks) ... DONE 1587s [00:53:07.678] Reducing values from 1 chunks ... 1587s [00:53:07.678] - Number of values collected after concatenation: 10 1587s [00:53:07.678] - Number of values expected: 10 1587s [00:53:07.678] Reducing values from 1 chunks ... DONE 1587s [00:53:07.678] future_lapply() ... DONE 1587s num [1:10] 1 1.41 1.73 2 2.24 ... 1587s num [1:2, 1:10] [00:53:07.679] future_lapply() ... 1587s 1 1 2 4 3 9 4 16 5 25 ... 1587s [00:53:07.687] Number of chunks: 1 1587s [00:53:07.687] getGlobalsAndPackagesXApply() ... 1587s [00:53:07.687] - future.globals: TRUE 1587s [00:53:07.688] getGlobalsAndPackages() ... 1587s [00:53:07.688] Searching for globals... 1587s [00:53:07.696] - globals found: [18] ‘FUN’, ‘{’, ‘<-’, ‘x_FUN’, ‘if’, ‘!=’, ‘length’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘all’, ‘==’, ‘dim’, ‘%in%’, ‘typeof’, ‘valid_types’, ‘c’, ‘^’ 1587s [00:53:07.697] Searching for globals ... DONE 1587s [00:53:07.697] Resolving globals: FALSE 1587s [00:53:07.700] The total size of the 7 globals is 94.20 KiB (96456 bytes) 1587s [00:53:07.701] The total size of the 7 globals exported for future expression (‘FUN()’) is 94.20 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘stop_if_not’ (44.12 KiB of class ‘function’), ‘stopf’ (26.43 KiB of class ‘function’) and ‘FUN’ (21.22 KiB of class ‘function’) 1587s [00:53:07.701] - globals: [7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1587s [00:53:07.702] - packages: [1] ‘future.apply’ 1587s [00:53:07.702] getGlobalsAndPackages() ... DONE 1587s [00:53:07.702] - globals found/used: [n=7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1587s [00:53:07.703] - needed namespaces: [n=1] ‘future.apply’ 1587s [00:53:07.703] Finding globals ... DONE 1587s [00:53:07.703] - use_args: TRUE 1587s [00:53:07.703] - Getting '...' globals ... 1587s [00:53:07.704] resolve() on list ... 1587s [00:53:07.704] recursive: 0 1587s [00:53:07.704] length: 1 1587s [00:53:07.705] elements: ‘...’ 1587s [00:53:07.705] length: 0 (resolved future 1) 1587s [00:53:07.705] resolve() on list ... DONE 1587s [00:53:07.705] - '...' content: [n=0] 1587s [00:53:07.705] List of 1 1587s [00:53:07.705] $ ...: list() 1587s [00:53:07.705] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1587s [00:53:07.705] - attr(*, "where")=List of 1 1587s [00:53:07.705] ..$ ...: 1587s [00:53:07.705] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1587s [00:53:07.705] - attr(*, "resolved")= logi TRUE 1587s [00:53:07.705] - attr(*, "total_size")= num NA 1587s [00:53:07.710] - Getting '...' globals ... DONE 1587s [00:53:07.710] Globals to be used in all futures (chunks): [n=8] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’ 1587s [00:53:07.710] List of 8 1587s [00:53:07.710] $ ...future.FUN:function (x, ...) 1587s [00:53:07.710] $ x_FUN :function (x) 1587s [00:53:07.710] $ times : int 2 1587s [00:53:07.710] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1587s [00:53:07.710] $ stop_if_not :function (...) 1587s [00:53:07.710] $ dim : NULL 1587s [00:53:07.710] $ valid_types : chr [1:3] "logical" "integer" "double" 1587s [00:53:07.710] $ ... : list() 1587s [00:53:07.710] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1587s [00:53:07.710] - attr(*, "where")=List of 8 1587s [00:53:07.710] ..$ ...future.FUN: 1587s [00:53:07.710] ..$ x_FUN : 1587s [00:53:07.710] ..$ times : 1587s [00:53:07.710] ..$ stopf : 1587s [00:53:07.710] ..$ stop_if_not : 1587s [00:53:07.710] ..$ dim : 1587s [00:53:07.710] ..$ valid_types : 1587s [00:53:07.710] ..$ ... : 1587s [00:53:07.710] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1587s [00:53:07.710] - attr(*, "resolved")= logi FALSE 1587s [00:53:07.710] - attr(*, "total_size")= num 96456 1587s [00:53:07.721] Packages to be attached in all futures: [n=1] ‘future.apply’ 1587s [00:53:07.721] getGlobalsAndPackagesXApply() ... DONE 1587s [00:53:07.721] Number of futures (= number of chunks): 1 1587s [00:53:07.722] Launching 1 futures (chunks) ... 1587s [00:53:07.722] Chunk #1 of 1 ... 1587s [00:53:07.722] - Finding globals in 'X' for chunk #1 ... 1587s [00:53:07.722] getGlobalsAndPackages() ... 1587s [00:53:07.722] Searching for globals... 1587s [00:53:07.723] 1587s [00:53:07.723] Searching for globals ... DONE 1587s [00:53:07.723] - globals: [0] 1587s [00:53:07.723] getGlobalsAndPackages() ... DONE 1587s [00:53:07.723] + additional globals found: [n=0] 1587s [00:53:07.723] + additional namespaces needed: [n=0] 1587s [00:53:07.724] - Finding globals in 'X' for chunk #1 ... DONE 1587s [00:53:07.724] - seeds: 1587s [00:53:07.724] - All globals exported: [n=11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1587s [00:53:07.724] getGlobalsAndPackages() ... 1587s [00:53:07.724] - globals passed as-is: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1587s [00:53:07.725] Resolving globals: FALSE 1587s [00:53:07.725] Tweak future expression to call with '...' arguments ... 1587s [00:53:07.725] { 1587s [00:53:07.725] do.call(function(...) { 1587s [00:53:07.725] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1587s [00:53:07.725] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1587s [00:53:07.725] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1587s [00:53:07.725] on.exit(options(oopts), add = TRUE) 1587s [00:53:07.725] } 1587s [00:53:07.725] { 1587s [00:53:07.725] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1587s [00:53:07.725] ...future.X_jj <- ...future.elements_ii[[jj]] 1587s [00:53:07.725] ...future.FUN(...future.X_jj, ...) 1587s [00:53:07.725] }) 1587s [00:53:07.725] } 1587s [00:53:07.725] }, args = future.call.arguments) 1587s [00:53:07.725] } 1587s [00:53:07.725] Tweak future expression to call with '...' arguments ... DONE 1587s [00:53:07.726] - globals: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1587s [00:53:07.727] - packages: [1] ‘future.apply’ 1587s [00:53:07.727] getGlobalsAndPackages() ... DONE 1587s [00:53:07.728] run() for ‘Future’ ... 1587s [00:53:07.728] - state: ‘created’ 1587s [00:53:07.728] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1587s [00:53:07.733] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1587s [00:53:07.733] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1587s [00:53:07.734] - Field: ‘label’ 1587s [00:53:07.734] - Field: ‘local’ 1587s [00:53:07.735] - Field: ‘owner’ 1587s [00:53:07.735] - Field: ‘envir’ 1587s [00:53:07.736] - Field: ‘packages’ 1587s [00:53:07.736] - Field: ‘gc’ 1587s [00:53:07.737] - Field: ‘conditions’ 1587s [00:53:07.737] - Field: ‘expr’ 1587s [00:53:07.738] - Field: ‘uuid’ 1587s [00:53:07.738] - Field: ‘seed’ 1587s [00:53:07.738] - Field: ‘version’ 1587s [00:53:07.739] - Field: ‘result’ 1587s [00:53:07.739] - Field: ‘asynchronous’ 1587s [00:53:07.739] - Field: ‘calls’ 1587s [00:53:07.740] - Field: ‘globals’ 1587s [00:53:07.740] - Field: ‘stdout’ 1587s [00:53:07.744] - Field: ‘earlySignal’ 1587s [00:53:07.744] - Field: ‘lazy’ 1587s [00:53:07.744] - Field: ‘state’ 1587s [00:53:07.744] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1587s [00:53:07.745] - Launch lazy future ... 1587s [00:53:07.745] Packages needed by the future expression (n = 1): ‘future.apply’ 1587s [00:53:07.745] Packages needed by future strategies (n = 0): 1587s [00:53:07.748] { 1587s [00:53:07.748] { 1587s [00:53:07.748] { 1587s [00:53:07.748] ...future.startTime <- base::Sys.time() 1587s [00:53:07.748] { 1587s [00:53:07.748] { 1587s [00:53:07.748] { 1587s [00:53:07.748] { 1587s [00:53:07.748] base::local({ 1587s [00:53:07.748] has_future <- base::requireNamespace("future", 1587s [00:53:07.748] quietly = TRUE) 1587s [00:53:07.748] if (has_future) { 1587s [00:53:07.748] ns <- base::getNamespace("future") 1587s [00:53:07.748] version <- ns[[".package"]][["version"]] 1587s [00:53:07.748] if (is.null(version)) 1587s [00:53:07.748] version <- utils::packageVersion("future") 1587s [00:53:07.748] } 1587s [00:53:07.748] else { 1587s [00:53:07.748] version <- NULL 1587s [00:53:07.748] } 1587s [00:53:07.748] if (!has_future || version < "1.8.0") { 1587s [00:53:07.748] info <- base::c(r_version = base::gsub("R version ", 1587s [00:53:07.748] "", base::R.version$version.string), 1587s [00:53:07.748] platform = base::sprintf("%s (%s-bit)", 1587s [00:53:07.748] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1587s [00:53:07.748] os = base::paste(base::Sys.info()[base::c("sysname", 1587s [00:53:07.748] "release", "version")], collapse = " "), 1587s [00:53:07.748] hostname = base::Sys.info()[["nodename"]]) 1587s [00:53:07.748] info <- base::sprintf("%s: %s", base::names(info), 1587s [00:53:07.748] info) 1587s [00:53:07.748] info <- base::paste(info, collapse = "; ") 1587s [00:53:07.748] if (!has_future) { 1587s [00:53:07.748] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1587s [00:53:07.748] info) 1587s [00:53:07.748] } 1587s [00:53:07.748] else { 1587s [00:53:07.748] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1587s [00:53:07.748] info, version) 1587s [00:53:07.748] } 1587s [00:53:07.748] base::stop(msg) 1587s [00:53:07.748] } 1587s [00:53:07.748] }) 1587s [00:53:07.748] } 1587s [00:53:07.748] base::local({ 1587s [00:53:07.748] for (pkg in "future.apply") { 1587s [00:53:07.748] base::loadNamespace(pkg) 1587s [00:53:07.748] base::library(pkg, character.only = TRUE) 1587s [00:53:07.748] } 1587s [00:53:07.748] }) 1587s [00:53:07.748] } 1587s [00:53:07.748] options(future.plan = NULL) 1587s [00:53:07.748] Sys.unsetenv("R_FUTURE_PLAN") 1587s [00:53:07.748] future::plan("default", .cleanup = FALSE, .init = FALSE) 1587s [00:53:07.748] } 1587s [00:53:07.748] ...future.workdir <- getwd() 1587s [00:53:07.748] } 1587s [00:53:07.748] ...future.oldOptions <- base::as.list(base::.Options) 1587s [00:53:07.748] ...future.oldEnvVars <- base::Sys.getenv() 1587s [00:53:07.748] } 1587s [00:53:07.748] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1587s [00:53:07.748] future.globals.maxSize = NULL, future.globals.method = NULL, 1587s [00:53:07.748] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1587s [00:53:07.748] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1587s [00:53:07.748] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1587s [00:53:07.748] future.stdout.windows.reencode = NULL, width = 80L) 1587s [00:53:07.748] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1587s [00:53:07.748] base::names(...future.oldOptions)) 1587s [00:53:07.748] } 1587s [00:53:07.748] if (FALSE) { 1587s [00:53:07.748] } 1587s [00:53:07.748] else { 1587s [00:53:07.748] if (TRUE) { 1587s [00:53:07.748] ...future.stdout <- base::rawConnection(base::raw(0L), 1587s [00:53:07.748] open = "w") 1587s [00:53:07.748] } 1587s [00:53:07.748] else { 1587s [00:53:07.748] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1587s [00:53:07.748] windows = "NUL", "/dev/null"), open = "w") 1587s [00:53:07.748] } 1587s [00:53:07.748] base::sink(...future.stdout, type = "output", split = FALSE) 1587s [00:53:07.748] base::on.exit(if (!base::is.null(...future.stdout)) { 1587s [00:53:07.748] base::sink(type = "output", split = FALSE) 1587s [00:53:07.748] base::close(...future.stdout) 1587s [00:53:07.748] }, add = TRUE) 1587s [00:53:07.748] } 1587s [00:53:07.748] ...future.frame <- base::sys.nframe() 1587s [00:53:07.748] ...future.conditions <- base::list() 1587s [00:53:07.748] ...future.rng <- base::globalenv()$.Random.seed 1587s [00:53:07.748] if (FALSE) { 1587s [00:53:07.748] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1587s [00:53:07.748] "...future.value", "...future.globalenv.names", ".Random.seed") 1587s [00:53:07.748] } 1587s [00:53:07.748] ...future.result <- base::tryCatch({ 1587s [00:53:07.748] base::withCallingHandlers({ 1587s [00:53:07.748] ...future.value <- base::withVisible(base::local({ 1587s [00:53:07.748] do.call(function(...) { 1587s [00:53:07.748] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1587s [00:53:07.748] if (!identical(...future.globals.maxSize.org, 1587s [00:53:07.748] ...future.globals.maxSize)) { 1587s [00:53:07.748] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1587s [00:53:07.748] on.exit(options(oopts), add = TRUE) 1587s [00:53:07.748] } 1587s [00:53:07.748] { 1587s [00:53:07.748] lapply(seq_along(...future.elements_ii), 1587s [00:53:07.748] FUN = function(jj) { 1587s [00:53:07.748] ...future.X_jj <- ...future.elements_ii[[jj]] 1587s [00:53:07.748] ...future.FUN(...future.X_jj, ...) 1587s [00:53:07.748] }) 1587s [00:53:07.748] } 1587s [00:53:07.748] }, args = future.call.arguments) 1587s [00:53:07.748] })) 1587s [00:53:07.748] future::FutureResult(value = ...future.value$value, 1587s [00:53:07.748] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1587s [00:53:07.748] ...future.rng), globalenv = if (FALSE) 1587s [00:53:07.748] list(added = base::setdiff(base::names(base::.GlobalEnv), 1587s [00:53:07.748] ...future.globalenv.names)) 1587s [00:53:07.748] else NULL, started = ...future.startTime, version = "1.8") 1587s [00:53:07.748] }, condition = base::local({ 1587s [00:53:07.748] c <- base::c 1587s [00:53:07.748] inherits <- base::inherits 1587s [00:53:07.748] invokeRestart <- base::invokeRestart 1587s [00:53:07.748] length <- base::length 1587s [00:53:07.748] list <- base::list 1587s [00:53:07.748] seq.int <- base::seq.int 1587s [00:53:07.748] signalCondition <- base::signalCondition 1587s [00:53:07.748] sys.calls <- base::sys.calls 1587s [00:53:07.748] `[[` <- base::`[[` 1587s [00:53:07.748] `+` <- base::`+` 1587s [00:53:07.748] `<<-` <- base::`<<-` 1587s [00:53:07.748] sysCalls <- function(calls = sys.calls(), from = 1L) { 1587s [00:53:07.748] calls[seq.int(from = from + 12L, to = length(calls) - 1587s [00:53:07.748] 3L)] 1587s [00:53:07.748] } 1587s [00:53:07.748] function(cond) { 1587s [00:53:07.748] is_error <- inherits(cond, "error") 1587s [00:53:07.748] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1587s [00:53:07.748] NULL) 1587s [00:53:07.748] if (is_error) { 1587s [00:53:07.748] sessionInformation <- function() { 1587s [00:53:07.748] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1587s [00:53:07.748] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1587s [00:53:07.748] search = base::search(), system = base::Sys.info()) 1587s [00:53:07.748] } 1587s [00:53:07.748] ...future.conditions[[length(...future.conditions) + 1587s [00:53:07.748] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1587s [00:53:07.748] cond$call), session = sessionInformation(), 1587s [00:53:07.748] timestamp = base::Sys.time(), signaled = 0L) 1587s [00:53:07.748] signalCondition(cond) 1587s [00:53:07.748] } 1587s [00:53:07.748] else if (!ignore && TRUE && inherits(cond, c("condition", 1587s [00:53:07.748] "immediateCondition"))) { 1587s [00:53:07.748] signal <- TRUE && inherits(cond, "immediateCondition") 1587s [00:53:07.748] ...future.conditions[[length(...future.conditions) + 1587s [00:53:07.748] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1587s [00:53:07.748] if (TRUE && !signal) { 1587s [00:53:07.748] muffleCondition <- function (cond, pattern = "^muffle") 1587s [00:53:07.748] { 1587s [00:53:07.748] inherits <- base::inherits 1587s [00:53:07.748] invokeRestart <- base::invokeRestart 1587s [00:53:07.748] is.null <- base::is.null 1587s [00:53:07.748] muffled <- FALSE 1587s [00:53:07.748] if (inherits(cond, "message")) { 1587s [00:53:07.748] muffled <- grepl(pattern, "muffleMessage") 1587s [00:53:07.748] if (muffled) 1587s [00:53:07.748] invokeRestart("muffleMessage") 1587s [00:53:07.748] } 1587s [00:53:07.748] else if (inherits(cond, "warning")) { 1587s [00:53:07.748] muffled <- grepl(pattern, "muffleWarning") 1587s [00:53:07.748] if (muffled) 1587s [00:53:07.748] invokeRestart("muffleWarning") 1587s [00:53:07.748] } 1587s [00:53:07.748] else if (inherits(cond, "condition")) { 1587s [00:53:07.748] if (!is.null(pattern)) { 1587s [00:53:07.748] computeRestarts <- base::computeRestarts 1587s [00:53:07.748] grepl <- base::grepl 1587s [00:53:07.748] restarts <- computeRestarts(cond) 1587s [00:53:07.748] for (restart in restarts) { 1587s [00:53:07.748] name <- restart$name 1587s [00:53:07.748] if (is.null(name)) 1587s [00:53:07.748] next 1587s [00:53:07.748] if (!grepl(pattern, name)) 1587s [00:53:07.748] next 1587s [00:53:07.748] invokeRestart(restart) 1587s [00:53:07.748] muffled <- TRUE 1587s [00:53:07.748] break 1587s [00:53:07.748] } 1587s [00:53:07.748] } 1587s [00:53:07.748] } 1587s [00:53:07.748] invisible(muffled) 1587s [00:53:07.748] } 1587s [00:53:07.748] muffleCondition(cond, pattern = "^muffle") 1587s [00:53:07.748] } 1587s [00:53:07.748] } 1587s [00:53:07.748] else { 1587s [00:53:07.748] if (TRUE) { 1587s [00:53:07.748] muffleCondition <- function (cond, pattern = "^muffle") 1587s [00:53:07.748] { 1587s [00:53:07.748] inherits <- base::inherits 1587s [00:53:07.748] invokeRestart <- base::invokeRestart 1587s [00:53:07.748] is.null <- base::is.null 1587s [00:53:07.748] muffled <- FALSE 1587s [00:53:07.748] if (inherits(cond, "message")) { 1587s [00:53:07.748] muffled <- grepl(pattern, "muffleMessage") 1587s [00:53:07.748] if (muffled) 1587s [00:53:07.748] invokeRestart("muffleMessage") 1587s [00:53:07.748] } 1587s [00:53:07.748] else if (inherits(cond, "warning")) { 1587s [00:53:07.748] muffled <- grepl(pattern, "muffleWarning") 1587s [00:53:07.748] if (muffled) 1587s [00:53:07.748] invokeRestart("muffleWarning") 1587s [00:53:07.748] } 1587s [00:53:07.748] else if (inherits(cond, "condition")) { 1587s [00:53:07.748] if (!is.null(pattern)) { 1587s [00:53:07.748] computeRestarts <- base::computeRestarts 1587s [00:53:07.748] grepl <- base::grepl 1587s [00:53:07.748] restarts <- computeRestarts(cond) 1587s [00:53:07.748] for (restart in restarts) { 1587s [00:53:07.748] name <- restart$name 1587s [00:53:07.748] if (is.null(name)) 1587s [00:53:07.748] next 1587s [00:53:07.748] if (!grepl(pattern, name)) 1587s [00:53:07.748] next 1587s [00:53:07.748] invokeRestart(restart) 1587s [00:53:07.748] muffled <- TRUE 1587s [00:53:07.748] break 1587s [00:53:07.748] } 1587s [00:53:07.748] } 1587s [00:53:07.748] } 1587s [00:53:07.748] invisible(muffled) 1587s [00:53:07.748] } 1587s [00:53:07.748] muffleCondition(cond, pattern = "^muffle") 1587s [00:53:07.748] } 1587s [00:53:07.748] } 1587s [00:53:07.748] } 1587s [00:53:07.748] })) 1587s [00:53:07.748] }, error = function(ex) { 1587s [00:53:07.748] base::structure(base::list(value = NULL, visible = NULL, 1587s [00:53:07.748] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1587s [00:53:07.748] ...future.rng), started = ...future.startTime, 1587s [00:53:07.748] finished = Sys.time(), session_uuid = NA_character_, 1587s [00:53:07.748] version = "1.8"), class = "FutureResult") 1587s [00:53:07.748] }, finally = { 1587s [00:53:07.748] if (!identical(...future.workdir, getwd())) 1587s [00:53:07.748] setwd(...future.workdir) 1587s [00:53:07.748] { 1587s [00:53:07.748] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1587s [00:53:07.748] ...future.oldOptions$nwarnings <- NULL 1587s [00:53:07.748] } 1587s [00:53:07.748] base::options(...future.oldOptions) 1587s [00:53:07.748] if (.Platform$OS.type == "windows") { 1587s [00:53:07.748] old_names <- names(...future.oldEnvVars) 1587s [00:53:07.748] envs <- base::Sys.getenv() 1587s [00:53:07.748] names <- names(envs) 1587s [00:53:07.748] common <- intersect(names, old_names) 1587s [00:53:07.748] added <- setdiff(names, old_names) 1587s [00:53:07.748] removed <- setdiff(old_names, names) 1587s [00:53:07.748] changed <- common[...future.oldEnvVars[common] != 1587s [00:53:07.748] envs[common]] 1587s [00:53:07.748] NAMES <- toupper(changed) 1587s [00:53:07.748] args <- list() 1587s [00:53:07.748] for (kk in seq_along(NAMES)) { 1587s [00:53:07.748] name <- changed[[kk]] 1587s [00:53:07.748] NAME <- NAMES[[kk]] 1587s [00:53:07.748] if (name != NAME && is.element(NAME, old_names)) 1587s [00:53:07.748] next 1587s [00:53:07.748] args[[name]] <- ...future.oldEnvVars[[name]] 1587s [00:53:07.748] } 1587s [00:53:07.748] NAMES <- toupper(added) 1587s [00:53:07.748] for (kk in seq_along(NAMES)) { 1587s [00:53:07.748] name <- added[[kk]] 1587s [00:53:07.748] NAME <- NAMES[[kk]] 1587s [00:53:07.748] if (name != NAME && is.element(NAME, old_names)) 1587s [00:53:07.748] next 1587s [00:53:07.748] args[[name]] <- "" 1587s [00:53:07.748] } 1587s [00:53:07.748] NAMES <- toupper(removed) 1587s [00:53:07.748] for (kk in seq_along(NAMES)) { 1587s [00:53:07.748] name <- removed[[kk]] 1587s [00:53:07.748] NAME <- NAMES[[kk]] 1587s [00:53:07.748] if (name != NAME && is.element(NAME, old_names)) 1587s [00:53:07.748] next 1587s [00:53:07.748] args[[name]] <- ...future.oldEnvVars[[name]] 1587s [00:53:07.748] } 1587s [00:53:07.748] if (length(args) > 0) 1587s [00:53:07.748] base::do.call(base::Sys.setenv, args = args) 1587s [00:53:07.748] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1587s [00:53:07.748] } 1587s [00:53:07.748] else { 1587s [00:53:07.748] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1587s [00:53:07.748] } 1587s [00:53:07.748] { 1587s [00:53:07.748] if (base::length(...future.futureOptionsAdded) > 1587s [00:53:07.748] 0L) { 1587s [00:53:07.748] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1587s [00:53:07.748] base::names(opts) <- ...future.futureOptionsAdded 1587s [00:53:07.748] base::options(opts) 1587s [00:53:07.748] } 1587s [00:53:07.748] { 1587s [00:53:07.748] { 1587s [00:53:07.748] NULL 1587s [00:53:07.748] RNGkind("Mersenne-Twister") 1587s [00:53:07.748] base::rm(list = ".Random.seed", envir = base::globalenv(), 1587s [00:53:07.748] inherits = FALSE) 1587s [00:53:07.748] } 1587s [00:53:07.748] options(future.plan = NULL) 1587s [00:53:07.748] if (is.na(NA_character_)) 1587s [00:53:07.748] Sys.unsetenv("R_FUTURE_PLAN") 1587s [00:53:07.748] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1587s [00:53:07.748] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1587s [00:53:07.748] envir = parent.frame()) 1587s [00:53:07.748] { 1587s [00:53:07.748] default_workers <- missing(workers) 1587s [00:53:07.748] if (is.function(workers)) 1587s [00:53:07.748] workers <- workers() 1587s [00:53:07.748] workers <- structure(as.integer(workers), 1587s [00:53:07.748] class = class(workers)) 1587s [00:53:07.748] stop_if_not(is.finite(workers), workers >= 1587s [00:53:07.748] 1L) 1587s [00:53:07.748] if ((workers == 1L && !inherits(workers, 1587s [00:53:07.748] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1587s [00:53:07.748] if (default_workers) 1587s [00:53:07.748] supportsMulticore(warn = TRUE) 1587s [00:53:07.748] return(sequential(..., envir = envir)) 1587s [00:53:07.748] } 1587s [00:53:07.748] oopts <- options(mc.cores = workers) 1587s [00:53:07.748] on.exit(options(oopts)) 1587s [00:53:07.748] future <- MulticoreFuture(..., workers = workers, 1587s [00:53:07.748] envir = envir) 1587s [00:53:07.748] if (!future$lazy) 1587s [00:53:07.748] future <- run(future) 1587s [00:53:07.748] invisible(future) 1587s [00:53:07.748] }), .cleanup = FALSE, .init = FALSE) 1587s [00:53:07.748] } 1587s [00:53:07.748] } 1587s [00:53:07.748] } 1587s [00:53:07.748] }) 1587s [00:53:07.748] if (TRUE) { 1587s [00:53:07.748] base::sink(type = "output", split = FALSE) 1587s [00:53:07.748] if (TRUE) { 1587s [00:53:07.748] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1587s [00:53:07.748] } 1587s [00:53:07.748] else { 1587s [00:53:07.748] ...future.result["stdout"] <- base::list(NULL) 1587s [00:53:07.748] } 1587s [00:53:07.748] base::close(...future.stdout) 1587s [00:53:07.748] ...future.stdout <- NULL 1587s [00:53:07.748] } 1587s [00:53:07.748] ...future.result$conditions <- ...future.conditions 1587s [00:53:07.748] ...future.result$finished <- base::Sys.time() 1587s [00:53:07.748] ...future.result 1587s [00:53:07.748] } 1587s [00:53:07.757] assign_globals() ... 1587s [00:53:07.758] List of 11 1587s [00:53:07.758] $ ...future.FUN :function (x, ...) 1587s [00:53:07.758] $ x_FUN :function (x) 1587s [00:53:07.758] $ times : int 2 1587s [00:53:07.758] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1587s [00:53:07.758] $ stop_if_not :function (...) 1587s [00:53:07.758] $ dim : NULL 1587s [00:53:07.758] $ valid_types : chr [1:3] "logical" "integer" "double" 1587s [00:53:07.758] $ future.call.arguments : list() 1587s [00:53:07.758] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1587s [00:53:07.758] $ ...future.elements_ii :List of 10 1587s [00:53:07.758] ..$ : int 1 1587s [00:53:07.758] ..$ : int 2 1587s [00:53:07.758] ..$ : int 3 1587s [00:53:07.758] ..$ : int 4 1587s [00:53:07.758] ..$ : int 5 1587s [00:53:07.758] ..$ : int 6 1587s [00:53:07.758] ..$ : int 7 1587s [00:53:07.758] ..$ : int 8 1587s [00:53:07.758] ..$ : int 9 1587s [00:53:07.758] ..$ : int 10 1587s [00:53:07.758] $ ...future.seeds_ii : NULL 1587s [00:53:07.758] $ ...future.globals.maxSize: NULL 1587s [00:53:07.758] - attr(*, "where")=List of 11 1587s [00:53:07.758] ..$ ...future.FUN : 1587s [00:53:07.758] ..$ x_FUN : 1587s [00:53:07.758] ..$ times : 1587s [00:53:07.758] ..$ stopf : 1587s [00:53:07.758] ..$ stop_if_not : 1587s [00:53:07.758] ..$ dim : 1587s [00:53:07.758] ..$ valid_types : 1587s [00:53:07.758] ..$ future.call.arguments : 1587s [00:53:07.758] ..$ ...future.elements_ii : 1587s [00:53:07.758] ..$ ...future.seeds_ii : 1587s [00:53:07.758] ..$ ...future.globals.maxSize: 1587s [00:53:07.758] - attr(*, "resolved")= logi FALSE 1587s [00:53:07.758] - attr(*, "total_size")= num 96456 1587s [00:53:07.758] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1587s [00:53:07.758] - attr(*, "already-done")= logi TRUE 1587s [00:53:07.776] - copied ‘...future.FUN’ to environment 1587s [00:53:07.776] - reassign environment for ‘x_FUN’ 1587s [00:53:07.777] - copied ‘x_FUN’ to environment 1587s [00:53:07.777] - copied ‘times’ to environment 1587s [00:53:07.777] - copied ‘stopf’ to environment 1587s [00:53:07.777] - copied ‘stop_if_not’ to environment 1587s [00:53:07.777] - copied ‘dim’ to environment 1587s [00:53:07.777] - copied ‘valid_types’ to environment 1587s [00:53:07.778] - copied ‘future.call.arguments’ to environment 1587s [00:53:07.778] - copied ‘...future.elements_ii’ to environment 1587s [00:53:07.778] - copied ‘...future.seeds_ii’ to environment 1587s [00:53:07.778] - copied ‘...future.globals.maxSize’ to environment 1587s [00:53:07.778] assign_globals() ... done 1587s [00:53:07.779] plan(): Setting new future strategy stack: 1587s [00:53:07.779] List of future strategies: 1587s [00:53:07.779] 1. sequential: 1587s [00:53:07.779] - args: function (..., envir = parent.frame()) 1587s [00:53:07.779] - tweaked: FALSE 1587s [00:53:07.779] - call: NULL 1587s [00:53:07.780] plan(): nbrOfWorkers() = 1 1587s [00:53:07.781] plan(): Setting new future strategy stack: 1587s [00:53:07.781] List of future strategies: 1587s [00:53:07.781] 1. multicore: 1587s [00:53:07.781] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1587s [00:53:07.781] - tweaked: FALSE 1587s [00:53:07.781] - call: plan(strategy) 1587s [00:53:07.786] plan(): nbrOfWorkers() = 1 1587s [00:53:07.787] SequentialFuture started (and completed) 1587s [00:53:07.787] - Launch lazy future ... done 1587s [00:53:07.787] run() for ‘SequentialFuture’ ... done 1587s [00:53:07.788] Created future: 1587s [00:53:07.788] SequentialFuture: 1587s [00:53:07.788] Label: ‘future_vapply-1’ 1587s [00:53:07.788] Expression: 1587s [00:53:07.788] { 1587s [00:53:07.788] do.call(function(...) { 1587s [00:53:07.788] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1587s [00:53:07.788] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1587s [00:53:07.788] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1587s [00:53:07.788] on.exit(options(oopts), add = TRUE) 1587s [00:53:07.788] } 1587s [00:53:07.788] { 1587s [00:53:07.788] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1587s [00:53:07.788] ...future.X_jj <- ...future.elements_ii[[jj]] 1587s [00:53:07.788] ...future.FUN(...future.X_jj, ...) 1587s [00:53:07.788] }) 1587s [00:53:07.788] } 1587s [00:53:07.788] }, args = future.call.arguments) 1587s [00:53:07.788] } 1587s [00:53:07.788] Lazy evaluation: FALSE 1587s [00:53:07.788] Asynchronous evaluation: FALSE 1587s [00:53:07.788] Local evaluation: TRUE 1587s [00:53:07.788] Environment: R_GlobalEnv 1587s [00:53:07.788] Capture standard output: TRUE 1587s [00:53:07.788] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1587s [00:53:07.788] Globals: 11 objects totaling 94.74 KiB (function ‘...future.FUN’ of 21.22 KiB, function ‘x_FUN’ of 2.12 KiB, integer ‘times’ of 56 bytes, function ‘stopf’ of 26.43 KiB, function ‘stop_if_not’ of 44.12 KiB, ...) 1587s [00:53:07.788] Packages: 1 packages (‘future.apply’) 1587s [00:53:07.788] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1587s [00:53:07.788] Resolved: TRUE 1587s [00:53:07.788] Value: 640 bytes of class ‘list’ 1587s [00:53:07.788] Early signaling: FALSE 1587s [00:53:07.788] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1587s [00:53:07.788] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1587s [00:53:07.790] Chunk #1 of 1 ... DONE 1587s [00:53:07.790] Launching 1 futures (chunks) ... DONE 1587s [00:53:07.790] Resolving 1 futures (chunks) ... 1587s [00:53:07.790] resolve() on list ... 1587s [00:53:07.790] recursive: 0 1587s [00:53:07.791] length: 1 1587s [00:53:07.791] 1587s [00:53:07.791] resolved() for ‘SequentialFuture’ ... 1587s [00:53:07.791] - state: ‘finished’ 1587s [00:53:07.791] - run: TRUE 1587s [00:53:07.791] - result: ‘FutureResult’ 1587s [00:53:07.792] resolved() for ‘SequentialFuture’ ... done 1587s [00:53:07.792] Future #1 1587s [00:53:07.793] signalConditionsASAP(SequentialFuture, pos=1) ... 1587s [00:53:07.796] - nx: 1 1587s [00:53:07.797] - relay: TRUE 1587s [00:53:07.797] - stdout: TRUE 1587s [00:53:07.797] - signal: TRUE 1587s [00:53:07.797] - resignal: FALSE 1587s [00:53:07.798] - force: TRUE 1587s [00:53:07.798] - relayed: [n=1] FALSE 1587s [00:53:07.798] - queued futures: [n=1] FALSE 1587s [00:53:07.798] - until=1 1587s [00:53:07.799] - relaying element #1 1587s [00:53:07.799] - relayed: [n=1] TRUE 1587s [00:53:07.799] - queued futures: [n=1] TRUE 1587s [00:53:07.801] signalConditionsASAP(SequentialFuture, pos=1) ... done 1587s [00:53:07.801] length: 0 (resolved future 1) 1587s [00:53:07.801] Relaying remaining futures 1587s [00:53:07.801] signalConditionsASAP(NULL, pos=0) ... 1587s [00:53:07.802] - nx: 1 1587s [00:53:07.802] - relay: TRUE 1587s [00:53:07.802] - stdout: TRUE 1587s [00:53:07.803] - signal: TRUE 1587s [00:53:07.803] - resignal: FALSE 1587s [00:53:07.803] - force: TRUE 1587s [00:53:07.803] - relayed: [n=1] TRUE 1587s [00:53:07.803] - queued futures: [n=1] TRUE 1587s - flush all 1587s [00:53:07.804] - relayed: [n=1] TRUE 1587s [00:53:07.804] - queued futures: [n=1] TRUE 1587s [00:53:07.804] signalConditionsASAP(NULL, pos=0) ... done 1587s [00:53:07.804] resolve() on list ... DONE 1587s [00:53:07.804] - Number of value chunks collected: 1 1587s [00:53:07.805] Resolving 1 futures (chunks) ... DONE 1587s [00:53:07.805] Reducing values from 1 chunks ... 1587s [00:53:07.805] - Number of values collected after concatenation: 10 1587s [00:53:07.805] - Number of values expected: 10 1587s [00:53:07.805] Reducing values from 1 chunks ... DONE 1587s [00:53:07.805] future_lapply() ... DONE 1587s num [1:2, 1:10] 1 1 2 4 3 9 4 16 5 25 ... 1587s int [1:2, 1:2, 1:10] 1 1 1 1 2 2 2 2 3 3 ... 1587s [00:53:07.807] future_lapply() ... 1587s [00:53:07.812] Number of chunks: 1 1587s [00:53:07.812] getGlobalsAndPackagesXApply() ... 1587s [00:53:07.812] - future.globals: TRUE 1587s [00:53:07.813] getGlobalsAndPackages() ... 1587s [00:53:07.813] Searching for globals... 1587s [00:53:07.818] - globals found: [17] ‘FUN’, ‘{’, ‘<-’, ‘x_FUN’, ‘if’, ‘!=’, ‘length’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘all’, ‘==’, ‘dim’, ‘%in%’, ‘typeof’, ‘valid_types’, ‘matrix’ 1587s [00:53:07.818] Searching for globals ... DONE 1587s [00:53:07.818] Resolving globals: FALSE 1587s [00:53:07.819] The total size of the 7 globals is 94.95 KiB (97232 bytes) 1587s [00:53:07.820] The total size of the 7 globals exported for future expression (‘FUN()’) is 94.95 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘stop_if_not’ (44.12 KiB of class ‘function’), ‘stopf’ (26.43 KiB of class ‘function’) and ‘FUN’ (21.22 KiB of class ‘function’) 1587s [00:53:07.820] - globals: [7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1587s [00:53:07.820] - packages: [1] ‘future.apply’ 1587s [00:53:07.820] getGlobalsAndPackages() ... DONE 1587s [00:53:07.821] - globals found/used: [n=7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1587s [00:53:07.821] - needed namespaces: [n=1] ‘future.apply’ 1587s [00:53:07.821] Finding globals ... DONE 1587s [00:53:07.821] - use_args: TRUE 1587s [00:53:07.821] - Getting '...' globals ... 1587s [00:53:07.822] resolve() on list ... 1587s [00:53:07.822] recursive: 0 1587s [00:53:07.822] length: 1 1587s [00:53:07.822] elements: ‘...’ 1587s [00:53:07.822] length: 0 (resolved future 1) 1587s [00:53:07.822] resolve() on list ... DONE 1587s [00:53:07.823] - '...' content: [n=0] 1587s [00:53:07.823] List of 1 1587s [00:53:07.823] $ ...: list() 1587s [00:53:07.823] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1587s [00:53:07.823] - attr(*, "where")=List of 1 1587s [00:53:07.823] ..$ ...: 1587s [00:53:07.823] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1587s [00:53:07.823] - attr(*, "resolved")= logi TRUE 1587s [00:53:07.823] - attr(*, "total_size")= num NA 1587s [00:53:07.826] - Getting '...' globals ... DONE 1587s [00:53:07.826] Globals to be used in all futures (chunks): [n=8] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’ 1587s [00:53:07.826] List of 8 1587s [00:53:07.826] $ ...future.FUN:function (x, ...) 1587s [00:53:07.826] $ x_FUN :function (x) 1587s [00:53:07.826] $ times : int 4 1587s [00:53:07.826] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1587s [00:53:07.826] $ stop_if_not :function (...) 1587s [00:53:07.826] $ dim : int [1:2] 2 2 1587s [00:53:07.826] $ valid_types : chr [1:2] "logical" "integer" 1587s [00:53:07.826] $ ... : list() 1587s [00:53:07.826] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1587s [00:53:07.826] - attr(*, "where")=List of 8 1587s [00:53:07.826] ..$ ...future.FUN: 1587s [00:53:07.826] ..$ x_FUN : 1587s [00:53:07.826] ..$ times : 1587s [00:53:07.826] ..$ stopf : 1587s [00:53:07.826] ..$ stop_if_not : 1587s [00:53:07.826] ..$ dim : 1587s [00:53:07.826] ..$ valid_types : 1587s [00:53:07.826] ..$ ... : 1587s [00:53:07.826] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1587s [00:53:07.826] - attr(*, "resolved")= logi FALSE 1587s [00:53:07.826] - attr(*, "total_size")= num 97232 1587s [00:53:07.835] Packages to be attached in all futures: [n=1] ‘future.apply’ 1587s [00:53:07.835] getGlobalsAndPackagesXApply() ... DONE 1587s [00:53:07.835] Number of futures (= number of chunks): 1 1587s [00:53:07.835] Launching 1 futures (chunks) ... 1587s [00:53:07.836] Chunk #1 of 1 ... 1587s [00:53:07.836] - Finding globals in 'X' for chunk #1 ... 1587s [00:53:07.836] getGlobalsAndPackages() ... 1587s [00:53:07.836] Searching for globals... 1587s [00:53:07.836] 1587s [00:53:07.837] Searching for globals ... DONE 1587s [00:53:07.837] - globals: [0] 1587s [00:53:07.837] getGlobalsAndPackages() ... DONE 1587s [00:53:07.837] + additional globals found: [n=0] 1587s [00:53:07.837] + additional namespaces needed: [n=0] 1587s [00:53:07.837] - Finding globals in 'X' for chunk #1 ... DONE 1587s [00:53:07.837] - seeds: 1587s [00:53:07.837] - All globals exported: [n=11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1587s [00:53:07.838] getGlobalsAndPackages() ... 1587s [00:53:07.838] - globals passed as-is: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1587s [00:53:07.838] Resolving globals: FALSE 1587s [00:53:07.838] Tweak future expression to call with '...' arguments ... 1587s [00:53:07.838] { 1587s [00:53:07.838] do.call(function(...) { 1587s [00:53:07.838] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1587s [00:53:07.838] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1587s [00:53:07.838] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1587s [00:53:07.838] on.exit(options(oopts), add = TRUE) 1587s [00:53:07.838] } 1587s [00:53:07.838] { 1587s [00:53:07.838] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1587s [00:53:07.838] ...future.X_jj <- ...future.elements_ii[[jj]] 1587s [00:53:07.838] ...future.FUN(...future.X_jj, ...) 1587s [00:53:07.838] }) 1587s [00:53:07.838] } 1587s [00:53:07.838] }, args = future.call.arguments) 1587s [00:53:07.838] } 1587s [00:53:07.839] Tweak future expression to call with '...' arguments ... DONE 1587s [00:53:07.839] - globals: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1587s [00:53:07.840] - packages: [1] ‘future.apply’ 1587s [00:53:07.840] getGlobalsAndPackages() ... DONE 1587s [00:53:07.840] run() for ‘Future’ ... 1587s [00:53:07.840] - state: ‘created’ 1587s [00:53:07.840] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1587s [00:53:07.844] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1587s [00:53:07.844] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1587s [00:53:07.844] - Field: ‘label’ 1587s [00:53:07.844] - Field: ‘local’ 1587s [00:53:07.845] - Field: ‘owner’ 1587s [00:53:07.845] - Field: ‘envir’ 1587s [00:53:07.845] - Field: ‘packages’ 1587s [00:53:07.845] - Field: ‘gc’ 1587s [00:53:07.845] - Field: ‘conditions’ 1587s [00:53:07.845] - Field: ‘expr’ 1587s [00:53:07.846] - Field: ‘uuid’ 1587s [00:53:07.846] - Field: ‘seed’ 1587s [00:53:07.846] - Field: ‘version’ 1587s [00:53:07.846] - Field: ‘result’ 1587s [00:53:07.846] - Field: ‘asynchronous’ 1587s [00:53:07.846] - Field: ‘calls’ 1587s [00:53:07.846] - Field: ‘globals’ 1587s [00:53:07.847] - Field: ‘stdout’ 1587s [00:53:07.847] - Field: ‘earlySignal’ 1587s [00:53:07.847] - Field: ‘lazy’ 1587s [00:53:07.847] - Field: ‘state’ 1587s [00:53:07.847] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1587s [00:53:07.847] - Launch lazy future ... 1587s [00:53:07.848] Packages needed by the future expression (n = 1): ‘future.apply’ 1587s [00:53:07.848] Packages needed by future strategies (n = 0): 1587s [00:53:07.848] { 1587s [00:53:07.848] { 1587s [00:53:07.848] { 1587s [00:53:07.848] ...future.startTime <- base::Sys.time() 1587s [00:53:07.848] { 1587s [00:53:07.848] { 1587s [00:53:07.848] { 1587s [00:53:07.848] { 1587s [00:53:07.848] base::local({ 1587s [00:53:07.848] has_future <- base::requireNamespace("future", 1587s [00:53:07.848] quietly = TRUE) 1587s [00:53:07.848] if (has_future) { 1587s [00:53:07.848] ns <- base::getNamespace("future") 1587s [00:53:07.848] version <- ns[[".package"]][["version"]] 1587s [00:53:07.848] if (is.null(version)) 1587s [00:53:07.848] version <- utils::packageVersion("future") 1587s [00:53:07.848] } 1587s [00:53:07.848] else { 1587s [00:53:07.848] version <- NULL 1587s [00:53:07.848] } 1587s [00:53:07.848] if (!has_future || version < "1.8.0") { 1587s [00:53:07.848] info <- base::c(r_version = base::gsub("R version ", 1587s [00:53:07.848] "", base::R.version$version.string), 1587s [00:53:07.848] platform = base::sprintf("%s (%s-bit)", 1587s [00:53:07.848] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1587s [00:53:07.848] os = base::paste(base::Sys.info()[base::c("sysname", 1587s [00:53:07.848] "release", "version")], collapse = " "), 1587s [00:53:07.848] hostname = base::Sys.info()[["nodename"]]) 1587s [00:53:07.848] info <- base::sprintf("%s: %s", base::names(info), 1587s [00:53:07.848] info) 1587s [00:53:07.848] info <- base::paste(info, collapse = "; ") 1587s [00:53:07.848] if (!has_future) { 1587s [00:53:07.848] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1587s [00:53:07.848] info) 1587s [00:53:07.848] } 1587s [00:53:07.848] else { 1587s [00:53:07.848] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1587s [00:53:07.848] info, version) 1587s [00:53:07.848] } 1587s [00:53:07.848] base::stop(msg) 1587s [00:53:07.848] } 1587s [00:53:07.848] }) 1587s [00:53:07.848] } 1587s [00:53:07.848] base::local({ 1587s [00:53:07.848] for (pkg in "future.apply") { 1587s [00:53:07.848] base::loadNamespace(pkg) 1587s [00:53:07.848] base::library(pkg, character.only = TRUE) 1587s [00:53:07.848] } 1587s [00:53:07.848] }) 1587s [00:53:07.848] } 1587s [00:53:07.848] options(future.plan = NULL) 1587s [00:53:07.848] Sys.unsetenv("R_FUTURE_PLAN") 1587s [00:53:07.848] future::plan("default", .cleanup = FALSE, .init = FALSE) 1587s [00:53:07.848] } 1587s [00:53:07.848] ...future.workdir <- getwd() 1587s [00:53:07.848] } 1587s [00:53:07.848] ...future.oldOptions <- base::as.list(base::.Options) 1587s [00:53:07.848] ...future.oldEnvVars <- base::Sys.getenv() 1587s [00:53:07.848] } 1587s [00:53:07.848] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1587s [00:53:07.848] future.globals.maxSize = NULL, future.globals.method = NULL, 1587s [00:53:07.848] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1587s [00:53:07.848] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1587s [00:53:07.848] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1587s [00:53:07.848] future.stdout.windows.reencode = NULL, width = 80L) 1587s [00:53:07.848] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1587s [00:53:07.848] base::names(...future.oldOptions)) 1587s [00:53:07.848] } 1587s [00:53:07.848] if (FALSE) { 1587s [00:53:07.848] } 1587s [00:53:07.848] else { 1587s [00:53:07.848] if (TRUE) { 1587s [00:53:07.848] ...future.stdout <- base::rawConnection(base::raw(0L), 1587s [00:53:07.848] open = "w") 1587s [00:53:07.848] } 1587s [00:53:07.848] else { 1587s [00:53:07.848] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1587s [00:53:07.848] windows = "NUL", "/dev/null"), open = "w") 1587s [00:53:07.848] } 1587s [00:53:07.848] base::sink(...future.stdout, type = "output", split = FALSE) 1587s [00:53:07.848] base::on.exit(if (!base::is.null(...future.stdout)) { 1587s [00:53:07.848] base::sink(type = "output", split = FALSE) 1587s [00:53:07.848] base::close(...future.stdout) 1587s [00:53:07.848] }, add = TRUE) 1587s [00:53:07.848] } 1587s [00:53:07.848] ...future.frame <- base::sys.nframe() 1587s [00:53:07.848] ...future.conditions <- base::list() 1587s [00:53:07.848] ...future.rng <- base::globalenv()$.Random.seed 1587s [00:53:07.848] if (FALSE) { 1587s [00:53:07.848] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1587s [00:53:07.848] "...future.value", "...future.globalenv.names", ".Random.seed") 1587s [00:53:07.848] } 1587s [00:53:07.848] ...future.result <- base::tryCatch({ 1587s [00:53:07.848] base::withCallingHandlers({ 1587s [00:53:07.848] ...future.value <- base::withVisible(base::local({ 1587s [00:53:07.848] do.call(function(...) { 1587s [00:53:07.848] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1587s [00:53:07.848] if (!identical(...future.globals.maxSize.org, 1587s [00:53:07.848] ...future.globals.maxSize)) { 1587s [00:53:07.848] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1587s [00:53:07.848] on.exit(options(oopts), add = TRUE) 1587s [00:53:07.848] } 1587s [00:53:07.848] { 1587s [00:53:07.848] lapply(seq_along(...future.elements_ii), 1587s [00:53:07.848] FUN = function(jj) { 1587s [00:53:07.848] ...future.X_jj <- ...future.elements_ii[[jj]] 1587s [00:53:07.848] ...future.FUN(...future.X_jj, ...) 1587s [00:53:07.848] }) 1587s [00:53:07.848] } 1587s [00:53:07.848] }, args = future.call.arguments) 1587s [00:53:07.848] })) 1587s [00:53:07.848] future::FutureResult(value = ...future.value$value, 1587s [00:53:07.848] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1587s [00:53:07.848] ...future.rng), globalenv = if (FALSE) 1587s [00:53:07.848] list(added = base::setdiff(base::names(base::.GlobalEnv), 1587s [00:53:07.848] ...future.globalenv.names)) 1587s [00:53:07.848] else NULL, started = ...future.startTime, version = "1.8") 1587s [00:53:07.848] }, condition = base::local({ 1587s [00:53:07.848] c <- base::c 1587s [00:53:07.848] inherits <- base::inherits 1587s [00:53:07.848] invokeRestart <- base::invokeRestart 1587s [00:53:07.848] length <- base::length 1587s [00:53:07.848] list <- base::list 1587s [00:53:07.848] seq.int <- base::seq.int 1587s [00:53:07.848] signalCondition <- base::signalCondition 1587s [00:53:07.848] sys.calls <- base::sys.calls 1587s [00:53:07.848] `[[` <- base::`[[` 1587s [00:53:07.848] `+` <- base::`+` 1587s [00:53:07.848] `<<-` <- base::`<<-` 1587s [00:53:07.848] sysCalls <- function(calls = sys.calls(), from = 1L) { 1587s [00:53:07.848] calls[seq.int(from = from + 12L, to = length(calls) - 1587s [00:53:07.848] 3L)] 1587s [00:53:07.848] } 1587s [00:53:07.848] function(cond) { 1587s [00:53:07.848] is_error <- inherits(cond, "error") 1587s [00:53:07.848] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1587s [00:53:07.848] NULL) 1587s [00:53:07.848] if (is_error) { 1587s [00:53:07.848] sessionInformation <- function() { 1587s [00:53:07.848] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1587s [00:53:07.848] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1587s [00:53:07.848] search = base::search(), system = base::Sys.info()) 1587s [00:53:07.848] } 1587s [00:53:07.848] ...future.conditions[[length(...future.conditions) + 1587s [00:53:07.848] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1587s [00:53:07.848] cond$call), session = sessionInformation(), 1587s [00:53:07.848] timestamp = base::Sys.time(), signaled = 0L) 1587s [00:53:07.848] signalCondition(cond) 1587s [00:53:07.848] } 1587s [00:53:07.848] else if (!ignore && TRUE && inherits(cond, c("condition", 1587s [00:53:07.848] "immediateCondition"))) { 1587s [00:53:07.848] signal <- TRUE && inherits(cond, "immediateCondition") 1587s [00:53:07.848] ...future.conditions[[length(...future.conditions) + 1587s [00:53:07.848] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1587s [00:53:07.848] if (TRUE && !signal) { 1587s [00:53:07.848] muffleCondition <- function (cond, pattern = "^muffle") 1587s [00:53:07.848] { 1587s [00:53:07.848] inherits <- base::inherits 1587s [00:53:07.848] invokeRestart <- base::invokeRestart 1587s [00:53:07.848] is.null <- base::is.null 1587s [00:53:07.848] muffled <- FALSE 1587s [00:53:07.848] if (inherits(cond, "message")) { 1587s [00:53:07.848] muffled <- grepl(pattern, "muffleMessage") 1587s [00:53:07.848] if (muffled) 1587s [00:53:07.848] invokeRestart("muffleMessage") 1587s [00:53:07.848] } 1587s [00:53:07.848] else if (inherits(cond, "warning")) { 1587s [00:53:07.848] muffled <- grepl(pattern, "muffleWarning") 1587s [00:53:07.848] if (muffled) 1587s [00:53:07.848] invokeRestart("muffleWarning") 1587s [00:53:07.848] } 1587s [00:53:07.848] else if (inherits(cond, "condition")) { 1587s [00:53:07.848] if (!is.null(pattern)) { 1587s [00:53:07.848] computeRestarts <- base::computeRestarts 1587s [00:53:07.848] grepl <- base::grepl 1587s [00:53:07.848] restarts <- computeRestarts(cond) 1587s [00:53:07.848] for (restart in restarts) { 1587s [00:53:07.848] name <- restart$name 1587s [00:53:07.848] if (is.null(name)) 1587s [00:53:07.848] next 1587s [00:53:07.848] if (!grepl(pattern, name)) 1587s [00:53:07.848] next 1587s [00:53:07.848] invokeRestart(restart) 1587s [00:53:07.848] muffled <- TRUE 1587s [00:53:07.848] break 1587s [00:53:07.848] } 1587s [00:53:07.848] } 1587s [00:53:07.848] } 1587s [00:53:07.848] invisible(muffled) 1587s [00:53:07.848] } 1587s [00:53:07.848] muffleCondition(cond, pattern = "^muffle") 1587s [00:53:07.848] } 1587s [00:53:07.848] } 1587s [00:53:07.848] else { 1587s [00:53:07.848] if (TRUE) { 1587s [00:53:07.848] muffleCondition <- function (cond, pattern = "^muffle") 1587s [00:53:07.848] { 1587s [00:53:07.848] inherits <- base::inherits 1587s [00:53:07.848] invokeRestart <- base::invokeRestart 1587s [00:53:07.848] is.null <- base::is.null 1587s [00:53:07.848] muffled <- FALSE 1587s [00:53:07.848] if (inherits(cond, "message")) { 1587s [00:53:07.848] muffled <- grepl(pattern, "muffleMessage") 1587s [00:53:07.848] if (muffled) 1587s [00:53:07.848] invokeRestart("muffleMessage") 1587s [00:53:07.848] } 1587s [00:53:07.848] else if (inherits(cond, "warning")) { 1587s [00:53:07.848] muffled <- grepl(pattern, "muffleWarning") 1587s [00:53:07.848] if (muffled) 1587s [00:53:07.848] invokeRestart("muffleWarning") 1587s [00:53:07.848] } 1587s [00:53:07.848] else if (inherits(cond, "condition")) { 1587s [00:53:07.848] if (!is.null(pattern)) { 1587s [00:53:07.848] computeRestarts <- base::computeRestarts 1587s [00:53:07.848] grepl <- base::grepl 1587s [00:53:07.848] restarts <- computeRestarts(cond) 1587s [00:53:07.848] for (restart in restarts) { 1587s [00:53:07.848] name <- restart$name 1587s [00:53:07.848] if (is.null(name)) 1587s [00:53:07.848] next 1587s [00:53:07.848] if (!grepl(pattern, name)) 1587s [00:53:07.848] next 1587s [00:53:07.848] invokeRestart(restart) 1587s [00:53:07.848] muffled <- TRUE 1587s [00:53:07.848] break 1587s [00:53:07.848] } 1587s [00:53:07.848] } 1587s [00:53:07.848] } 1587s [00:53:07.848] invisible(muffled) 1587s [00:53:07.848] } 1587s [00:53:07.848] muffleCondition(cond, pattern = "^muffle") 1587s [00:53:07.848] } 1587s [00:53:07.848] } 1587s [00:53:07.848] } 1587s [00:53:07.848] })) 1587s [00:53:07.848] }, error = function(ex) { 1587s [00:53:07.848] base::structure(base::list(value = NULL, visible = NULL, 1587s [00:53:07.848] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1587s [00:53:07.848] ...future.rng), started = ...future.startTime, 1587s [00:53:07.848] finished = Sys.time(), session_uuid = NA_character_, 1587s [00:53:07.848] version = "1.8"), class = "FutureResult") 1587s [00:53:07.848] }, finally = { 1587s [00:53:07.848] if (!identical(...future.workdir, getwd())) 1587s [00:53:07.848] setwd(...future.workdir) 1587s [00:53:07.848] { 1587s [00:53:07.848] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1587s [00:53:07.848] ...future.oldOptions$nwarnings <- NULL 1587s [00:53:07.848] } 1587s [00:53:07.848] base::options(...future.oldOptions) 1587s [00:53:07.848] if (.Platform$OS.type == "windows") { 1587s [00:53:07.848] old_names <- names(...future.oldEnvVars) 1587s [00:53:07.848] envs <- base::Sys.getenv() 1587s [00:53:07.848] names <- names(envs) 1587s [00:53:07.848] common <- intersect(names, old_names) 1587s [00:53:07.848] added <- setdiff(names, old_names) 1587s [00:53:07.848] removed <- setdiff(old_names, names) 1587s [00:53:07.848] changed <- common[...future.oldEnvVars[common] != 1587s [00:53:07.848] envs[common]] 1587s [00:53:07.848] NAMES <- toupper(changed) 1587s [00:53:07.848] args <- list() 1587s [00:53:07.848] for (kk in seq_along(NAMES)) { 1587s [00:53:07.848] name <- changed[[kk]] 1587s [00:53:07.848] NAME <- NAMES[[kk]] 1587s [00:53:07.848] if (name != NAME && is.element(NAME, old_names)) 1587s [00:53:07.848] next 1587s [00:53:07.848] args[[name]] <- ...future.oldEnvVars[[name]] 1587s [00:53:07.848] } 1587s [00:53:07.848] NAMES <- toupper(added) 1587s [00:53:07.848] for (kk in seq_along(NAMES)) { 1587s [00:53:07.848] name <- added[[kk]] 1587s [00:53:07.848] NAME <- NAMES[[kk]] 1587s [00:53:07.848] if (name != NAME && is.element(NAME, old_names)) 1587s [00:53:07.848] next 1587s [00:53:07.848] args[[name]] <- "" 1587s [00:53:07.848] } 1587s [00:53:07.848] NAMES <- toupper(removed) 1587s [00:53:07.848] for (kk in seq_along(NAMES)) { 1587s [00:53:07.848] name <- removed[[kk]] 1587s [00:53:07.848] NAME <- NAMES[[kk]] 1587s [00:53:07.848] if (name != NAME && is.element(NAME, old_names)) 1587s [00:53:07.848] next 1587s [00:53:07.848] args[[name]] <- ...future.oldEnvVars[[name]] 1587s [00:53:07.848] } 1587s [00:53:07.848] if (length(args) > 0) 1587s [00:53:07.848] base::do.call(base::Sys.setenv, args = args) 1587s [00:53:07.848] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1587s [00:53:07.848] } 1587s [00:53:07.848] else { 1587s [00:53:07.848] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1587s [00:53:07.848] } 1587s [00:53:07.848] { 1587s [00:53:07.848] if (base::length(...future.futureOptionsAdded) > 1587s [00:53:07.848] 0L) { 1587s [00:53:07.848] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1587s [00:53:07.848] base::names(opts) <- ...future.futureOptionsAdded 1587s [00:53:07.848] base::options(opts) 1587s [00:53:07.848] } 1587s [00:53:07.848] { 1587s [00:53:07.848] { 1587s [00:53:07.848] NULL 1587s [00:53:07.848] RNGkind("Mersenne-Twister") 1587s [00:53:07.848] base::rm(list = ".Random.seed", envir = base::globalenv(), 1587s [00:53:07.848] inherits = FALSE) 1587s [00:53:07.848] } 1587s [00:53:07.848] options(future.plan = NULL) 1587s [00:53:07.848] if (is.na(NA_character_)) 1587s [00:53:07.848] Sys.unsetenv("R_FUTURE_PLAN") 1587s [00:53:07.848] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1587s [00:53:07.848] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1587s [00:53:07.848] envir = parent.frame()) 1587s [00:53:07.848] { 1587s [00:53:07.848] default_workers <- missing(workers) 1587s [00:53:07.848] if (is.function(workers)) 1587s [00:53:07.848] workers <- workers() 1587s [00:53:07.848] workers <- structure(as.integer(workers), 1587s [00:53:07.848] class = class(workers)) 1587s [00:53:07.848] stop_if_not(is.finite(workers), workers >= 1587s [00:53:07.848] 1L) 1587s [00:53:07.848] if ((workers == 1L && !inherits(workers, 1587s [00:53:07.848] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1587s [00:53:07.848] if (default_workers) 1587s [00:53:07.848] supportsMulticore(warn = TRUE) 1587s [00:53:07.848] return(sequential(..., envir = envir)) 1587s [00:53:07.848] } 1587s [00:53:07.848] oopts <- options(mc.cores = workers) 1587s [00:53:07.848] on.exit(options(oopts)) 1587s [00:53:07.848] future <- MulticoreFuture(..., workers = workers, 1587s [00:53:07.848] envir = envir) 1587s [00:53:07.848] if (!future$lazy) 1587s [00:53:07.848] future <- run(future) 1587s [00:53:07.848] invisible(future) 1587s [00:53:07.848] }), .cleanup = FALSE, .init = FALSE) 1587s [00:53:07.848] } 1587s [00:53:07.848] } 1587s [00:53:07.848] } 1587s [00:53:07.848] }) 1587s [00:53:07.848] if (TRUE) { 1587s [00:53:07.848] base::sink(type = "output", split = FALSE) 1587s [00:53:07.848] if (TRUE) { 1587s [00:53:07.848] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1587s [00:53:07.848] } 1587s [00:53:07.848] else { 1587s [00:53:07.848] ...future.result["stdout"] <- base::list(NULL) 1587s [00:53:07.848] } 1587s [00:53:07.848] base::close(...future.stdout) 1587s [00:53:07.848] ...future.stdout <- NULL 1587s [00:53:07.848] } 1587s [00:53:07.848] ...future.result$conditions <- ...future.conditions 1587s [00:53:07.848] ...future.result$finished <- base::Sys.time() 1587s [00:53:07.848] ...future.result 1587s [00:53:07.848] } 1587s [00:53:07.852] assign_globals() ... 1587s [00:53:07.852] List of 11 1587s [00:53:07.852] $ ...future.FUN :function (x, ...) 1587s [00:53:07.852] $ x_FUN :function (x) 1587s [00:53:07.852] $ times : int 4 1587s [00:53:07.852] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1587s [00:53:07.852] $ stop_if_not :function (...) 1587s [00:53:07.852] $ dim : int [1:2] 2 2 1587s [00:53:07.852] $ valid_types : chr [1:2] "logical" "integer" 1587s [00:53:07.852] $ future.call.arguments : list() 1587s [00:53:07.852] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1587s [00:53:07.852] $ ...future.elements_ii :List of 10 1587s [00:53:07.852] ..$ : int 1 1587s [00:53:07.852] ..$ : int 2 1587s [00:53:07.852] ..$ : int 3 1587s [00:53:07.852] ..$ : int 4 1587s [00:53:07.852] ..$ : int 5 1587s [00:53:07.852] ..$ : int 6 1587s [00:53:07.852] ..$ : int 7 1587s [00:53:07.852] ..$ : int 8 1587s [00:53:07.852] ..$ : int 9 1587s [00:53:07.852] ..$ : int 10 1587s [00:53:07.852] $ ...future.seeds_ii : NULL 1587s [00:53:07.852] $ ...future.globals.maxSize: NULL 1587s [00:53:07.852] - attr(*, "where")=List of 11 1587s [00:53:07.852] ..$ ...future.FUN : 1587s [00:53:07.852] ..$ x_FUN : 1587s [00:53:07.852] ..$ times : 1587s [00:53:07.852] ..$ stopf : 1587s [00:53:07.852] ..$ stop_if_not : 1587s [00:53:07.852] ..$ dim : 1587s [00:53:07.852] ..$ valid_types : 1587s [00:53:07.852] ..$ future.call.arguments : 1587s [00:53:07.852] ..$ ...future.elements_ii : 1587s [00:53:07.852] ..$ ...future.seeds_ii : 1587s [00:53:07.852] ..$ ...future.globals.maxSize: 1587s [00:53:07.852] - attr(*, "resolved")= logi FALSE 1587s [00:53:07.852] - attr(*, "total_size")= num 97232 1587s [00:53:07.852] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1587s [00:53:07.852] - attr(*, "already-done")= logi TRUE 1587s [00:53:07.867] - copied ‘...future.FUN’ to environment 1587s [00:53:07.867] - reassign environment for ‘x_FUN’ 1587s [00:53:07.867] - copied ‘x_FUN’ to environment 1587s [00:53:07.868] - copied ‘times’ to environment 1587s [00:53:07.868] - copied ‘stopf’ to environment 1587s [00:53:07.868] - copied ‘stop_if_not’ to environment 1587s [00:53:07.868] - copied ‘dim’ to environment 1587s [00:53:07.868] - copied ‘valid_types’ to environment 1587s [00:53:07.869] - copied ‘future.call.arguments’ to environment 1587s [00:53:07.869] - copied ‘...future.elements_ii’ to environment 1587s [00:53:07.869] - copied ‘...future.seeds_ii’ to environment 1587s [00:53:07.869] - copied ‘...future.globals.maxSize’ to environment 1587s [00:53:07.869] assign_globals() ... done 1587s [00:53:07.870] plan(): Setting new future strategy stack: 1587s [00:53:07.870] List of future strategies: 1587s [00:53:07.870] 1. sequential: 1587s [00:53:07.870] - args: function (..., envir = parent.frame()) 1587s [00:53:07.870] - tweaked: FALSE 1587s [00:53:07.870] - call: NULL 1587s [00:53:07.871] plan(): nbrOfWorkers() = 1 1587s [00:53:07.872] plan(): Setting new future strategy stack: 1587s [00:53:07.872] List of future strategies: 1587s [00:53:07.872] 1. multicore: 1587s [00:53:07.872] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1587s [00:53:07.872] - tweaked: FALSE 1587s [00:53:07.872] - call: plan(strategy) 1587s [00:53:07.877] plan(): nbrOfWorkers() = 1 1587s [00:53:07.877] SequentialFuture started (and completed) 1587s [00:53:07.877] - Launch lazy future ... done 1587s [00:53:07.877] run() for ‘SequentialFuture’ ... done 1587s [00:53:07.877] Created future: 1587s [00:53:07.878] SequentialFuture: 1587s [00:53:07.878] Label: ‘future_vapply-1’ 1587s [00:53:07.878] Expression: 1587s [00:53:07.878] { 1587s [00:53:07.878] do.call(function(...) { 1587s [00:53:07.878] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1587s [00:53:07.878] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1587s [00:53:07.878] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1587s [00:53:07.878] on.exit(options(oopts), add = TRUE) 1587s [00:53:07.878] } 1587s [00:53:07.878] { 1587s [00:53:07.878] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1587s [00:53:07.878] ...future.X_jj <- ...future.elements_ii[[jj]] 1587s [00:53:07.878] ...future.FUN(...future.X_jj, ...) 1587s [00:53:07.878] }) 1587s [00:53:07.878] } 1587s [00:53:07.878] }, args = future.call.arguments) 1587s [00:53:07.878] } 1587s [00:53:07.878] Lazy evaluation: FALSE 1587s [00:53:07.878] Asynchronous evaluation: FALSE 1587s [00:53:07.878] Local evaluation: TRUE 1587s [00:53:07.878] Environment: R_GlobalEnv 1587s [00:53:07.878] Capture standard output: TRUE 1587s [00:53:07.878] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1587s [00:53:07.878] Globals: 11 objects totaling 95.50 KiB (function ‘...future.FUN’ of 21.22 KiB, function ‘x_FUN’ of 2.90 KiB, integer ‘times’ of 56 bytes, function ‘stopf’ of 26.43 KiB, function ‘stop_if_not’ of 44.12 KiB, ...) 1587s [00:53:07.878] Packages: 1 packages (‘future.apply’) 1587s [00:53:07.878] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1587s [00:53:07.878] Resolved: TRUE 1587s [00:53:07.878] Value: 2.27 KiB of class ‘list’ 1587s [00:53:07.878] Early signaling: FALSE 1587s [00:53:07.878] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1587s [00:53:07.878] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1587s [00:53:07.880] Chunk #1 of 1 ... DONE 1587s [00:53:07.880] Launching 1 futures (chunks) ... DONE 1587s [00:53:07.880] Resolving 1 futures (chunks) ... 1587s [00:53:07.880] resolve() on list ... 1587s [00:53:07.880] recursive: 0 1587s [00:53:07.881] length: 1 1587s [00:53:07.881] 1587s [00:53:07.881] resolved() for ‘SequentialFuture’ ... 1587s [00:53:07.881] - state: ‘finished’ 1587s [00:53:07.881] - run: TRUE 1587s [00:53:07.882] - result: ‘FutureResult’ 1587s [00:53:07.882] resolved() for ‘SequentialFuture’ ... done 1587s [00:53:07.882] Future #1 1587s [00:53:07.882] signalConditionsASAP(SequentialFuture, pos=1) ... 1587s [00:53:07.882] - nx: 1 1587s [00:53:07.883] - relay: TRUE 1587s [00:53:07.883] - stdout: TRUE 1587s [00:53:07.883] - signal: TRUE 1587s [00:53:07.883] - resignal: FALSE 1587s [00:53:07.883] - force: TRUE 1587s [00:53:07.883] - relayed: [n=1] FALSE 1587s [00:53:07.883] - queued futures: [n=1] FALSE 1587s [00:53:07.884] - until=1 1587s [00:53:07.884] - relaying element #1 1587s [00:53:07.884] - relayed: [n=1] TRUE 1587s [00:53:07.884] - queued futures: [n=1] TRUE 1587s [00:53:07.884] signalConditionsASAP(SequentialFuture, pos=1) ... done 1587s [00:53:07.885] length: 0 (resolved future 1) 1587s [00:53:07.885] Relaying remaining futures 1587s [00:53:07.885] signalConditionsASAP(NULL, pos=0) ... 1587s [00:53:07.885] - nx: 1 1587s [00:53:07.885] - relay: TRUE 1587s [00:53:07.885] - stdout: TRUE 1587s [00:53:07.885] - signal: TRUE 1587s [00:53:07.886] - resignal: FALSE 1587s [00:53:07.886] - force: TRUE 1587s [00:53:07.886] - relayed: [n=1] TRUE 1587s [00:53:07.886] - queued futures: [n=1] TRUE 1587s - flush all 1587s [00:53:07.886] - relayed: [n=1] TRUE 1587s [00:53:07.886] - queued futures: [n=1] TRUE 1587s [00:53:07.886] signalConditionsASAP(NULL, pos=0) ... done 1587s [00:53:07.887] resolve() on list ... DONE 1587s [00:53:07.887] - Number of value chunks collected: 1 1587s [00:53:07.887] Resolving 1 futures (chunks) ... DONE 1587s [00:53:07.887] Reducing values from 1 chunks ... 1587s [00:53:07.887] - Number of values collected after concatenation: 10 1587s [00:53:07.887] - Number of values expected: 10 1587s [00:53:07.888] Reducing values from 1 chunks ... DONE 1587s [00:53:07.888] future_lapply() ... DONE 1587s int [1:2, 1:2, 1:10] 1 1 1 1 2 2 2 2 3 3 ... 1587s num [1:2, 1:2, 1:10] 1 1 1 1 2 2 2 2 3 3 ... 1587s [00:53:07.890] future_lapply() ... 1587s [00:53:07.897] Number of chunks: 1 1587s [00:53:07.897] getGlobalsAndPackagesXApply() ... 1587s [00:53:07.897] - future.globals: TRUE 1587s [00:53:07.897] getGlobalsAndPackages() ... 1587s [00:53:07.898] Searching for globals... 1587s [00:53:07.906] - globals found: [17] ‘FUN’, ‘{’, ‘<-’, ‘x_FUN’, ‘if’, ‘!=’, ‘length’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘all’, ‘==’, ‘dim’, ‘%in%’, ‘typeof’, ‘valid_types’, ‘matrix’ 1587s [00:53:07.906] Searching for globals ... DONE 1587s [00:53:07.906] Resolving globals: FALSE 1587s [00:53:07.908] The total size of the 7 globals is 95.02 KiB (97304 bytes) 1587s [00:53:07.908] The total size of the 7 globals exported for future expression (‘FUN()’) is 95.02 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘stop_if_not’ (44.12 KiB of class ‘function’), ‘stopf’ (26.43 KiB of class ‘function’) and ‘FUN’ (21.22 KiB of class ‘function’) 1587s [00:53:07.908] - globals: [7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1587s [00:53:07.909] - packages: [1] ‘future.apply’ 1587s [00:53:07.909] getGlobalsAndPackages() ... DONE 1587s [00:53:07.909] - globals found/used: [n=7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1587s [00:53:07.909] - needed namespaces: [n=1] ‘future.apply’ 1587s [00:53:07.909] Finding globals ... DONE 1587s [00:53:07.909] - use_args: TRUE 1587s [00:53:07.909] - Getting '...' globals ... 1587s [00:53:07.910] resolve() on list ... 1587s [00:53:07.910] recursive: 0 1587s [00:53:07.910] length: 1 1587s [00:53:07.911] elements: ‘...’ 1587s [00:53:07.911] length: 0 (resolved future 1) 1587s [00:53:07.911] resolve() on list ... DONE 1587s [00:53:07.911] - '...' content: [n=0] 1587s [00:53:07.912] List of 1 1587s [00:53:07.912] $ ...: list() 1587s [00:53:07.912] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1587s [00:53:07.912] - attr(*, "where")=List of 1 1587s [00:53:07.912] ..$ ...: 1587s [00:53:07.912] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1587s [00:53:07.912] - attr(*, "resolved")= logi TRUE 1587s [00:53:07.912] - attr(*, "total_size")= num NA 1587s [00:53:07.915] - Getting '...' globals ... DONE 1587s [00:53:07.915] Globals to be used in all futures (chunks): [n=8] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’ 1587s [00:53:07.915] List of 8 1587s [00:53:07.915] $ ...future.FUN:function (x, ...) 1587s [00:53:07.915] $ x_FUN :function (x) 1587s [00:53:07.915] $ times : int 4 1587s [00:53:07.915] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1587s [00:53:07.915] $ stop_if_not :function (...) 1587s [00:53:07.915] $ dim : int [1:2] 2 2 1587s [00:53:07.915] $ valid_types : chr [1:3] "logical" "integer" "double" 1587s [00:53:07.915] $ ... : list() 1587s [00:53:07.915] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1587s [00:53:07.915] - attr(*, "where")=List of 8 1587s [00:53:07.915] ..$ ...future.FUN: 1587s [00:53:07.915] ..$ x_FUN : 1587s [00:53:07.915] ..$ times : 1587s [00:53:07.915] ..$ stopf : 1587s [00:53:07.915] ..$ stop_if_not : 1587s [00:53:07.915] ..$ dim : 1587s [00:53:07.915] ..$ valid_types : 1587s [00:53:07.915] ..$ ... : 1587s [00:53:07.915] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1587s [00:53:07.915] - attr(*, "resolved")= logi FALSE 1587s [00:53:07.915] - attr(*, "total_size")= num 97304 1587s [00:53:07.922] Packages to be attached in all futures: [n=1] ‘future.apply’ 1587s [00:53:07.923] getGlobalsAndPackagesXApply() ... DONE 1587s [00:53:07.923] Number of futures (= number of chunks): 1 1587s [00:53:07.923] Launching 1 futures (chunks) ... 1587s [00:53:07.923] Chunk #1 of 1 ... 1587s [00:53:07.923] - Finding globals in 'X' for chunk #1 ... 1587s [00:53:07.923] getGlobalsAndPackages() ... 1587s [00:53:07.924] Searching for globals... 1587s [00:53:07.924] 1587s [00:53:07.924] Searching for globals ... DONE 1587s [00:53:07.924] - globals: [0] 1587s [00:53:07.924] getGlobalsAndPackages() ... DONE 1587s [00:53:07.924] + additional globals found: [n=0] 1587s [00:53:07.925] + additional namespaces needed: [n=0] 1587s [00:53:07.925] - Finding globals in 'X' for chunk #1 ... DONE 1587s [00:53:07.925] - seeds: 1587s [00:53:07.925] - All globals exported: [n=11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1587s [00:53:07.925] getGlobalsAndPackages() ... 1587s [00:53:07.925] - globals passed as-is: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1587s [00:53:07.925] Resolving globals: FALSE 1587s [00:53:07.926] Tweak future expression to call with '...' arguments ... 1587s [00:53:07.926] { 1587s [00:53:07.926] do.call(function(...) { 1587s [00:53:07.926] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1587s [00:53:07.926] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1587s [00:53:07.926] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1587s [00:53:07.926] on.exit(options(oopts), add = TRUE) 1587s [00:53:07.926] } 1587s [00:53:07.926] { 1587s [00:53:07.926] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1587s [00:53:07.926] ...future.X_jj <- ...future.elements_ii[[jj]] 1587s [00:53:07.926] ...future.FUN(...future.X_jj, ...) 1587s [00:53:07.926] }) 1587s [00:53:07.926] } 1587s [00:53:07.926] }, args = future.call.arguments) 1587s [00:53:07.926] } 1587s [00:53:07.926] Tweak future expression to call with '...' arguments ... DONE 1587s [00:53:07.927] - globals: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1587s [00:53:07.927] - packages: [1] ‘future.apply’ 1587s [00:53:07.927] getGlobalsAndPackages() ... DONE 1587s [00:53:07.928] run() for ‘Future’ ... 1587s [00:53:07.928] - state: ‘created’ 1587s [00:53:07.928] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1587s [00:53:07.933] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1587s [00:53:07.933] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1587s [00:53:07.933] - Field: ‘label’ 1587s [00:53:07.933] - Field: ‘local’ 1587s [00:53:07.933] - Field: ‘owner’ 1587s [00:53:07.933] - Field: ‘envir’ 1587s [00:53:07.934] - Field: ‘packages’ 1587s [00:53:07.934] - Field: ‘gc’ 1587s [00:53:07.934] - Field: ‘conditions’ 1587s [00:53:07.934] - Field: ‘expr’ 1587s [00:53:07.935] - Field: ‘uuid’ 1587s [00:53:07.935] - Field: ‘seed’ 1587s [00:53:07.935] - Field: ‘version’ 1587s [00:53:07.935] - Field: ‘result’ 1587s [00:53:07.935] - Field: ‘asynchronous’ 1587s [00:53:07.935] - Field: ‘calls’ 1587s [00:53:07.935] - Field: ‘globals’ 1587s [00:53:07.936] - Field: ‘stdout’ 1587s [00:53:07.936] - Field: ‘earlySignal’ 1587s [00:53:07.936] - Field: ‘lazy’ 1587s [00:53:07.936] - Field: ‘state’ 1587s [00:53:07.936] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1587s [00:53:07.936] - Launch lazy future ... 1587s [00:53:07.937] Packages needed by the future expression (n = 1): ‘future.apply’ 1587s [00:53:07.937] Packages needed by future strategies (n = 0): 1587s [00:53:07.938] { 1587s [00:53:07.938] { 1587s [00:53:07.938] { 1587s [00:53:07.938] ...future.startTime <- base::Sys.time() 1587s [00:53:07.938] { 1587s [00:53:07.938] { 1587s [00:53:07.938] { 1587s [00:53:07.938] { 1587s [00:53:07.938] base::local({ 1587s [00:53:07.938] has_future <- base::requireNamespace("future", 1587s [00:53:07.938] quietly = TRUE) 1587s [00:53:07.938] if (has_future) { 1587s [00:53:07.938] ns <- base::getNamespace("future") 1587s [00:53:07.938] version <- ns[[".package"]][["version"]] 1587s [00:53:07.938] if (is.null(version)) 1587s [00:53:07.938] version <- utils::packageVersion("future") 1587s [00:53:07.938] } 1587s [00:53:07.938] else { 1587s [00:53:07.938] version <- NULL 1587s [00:53:07.938] } 1587s [00:53:07.938] if (!has_future || version < "1.8.0") { 1587s [00:53:07.938] info <- base::c(r_version = base::gsub("R version ", 1587s [00:53:07.938] "", base::R.version$version.string), 1587s [00:53:07.938] platform = base::sprintf("%s (%s-bit)", 1587s [00:53:07.938] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1587s [00:53:07.938] os = base::paste(base::Sys.info()[base::c("sysname", 1587s [00:53:07.938] "release", "version")], collapse = " "), 1587s [00:53:07.938] hostname = base::Sys.info()[["nodename"]]) 1587s [00:53:07.938] info <- base::sprintf("%s: %s", base::names(info), 1587s [00:53:07.938] info) 1587s [00:53:07.938] info <- base::paste(info, collapse = "; ") 1587s [00:53:07.938] if (!has_future) { 1587s [00:53:07.938] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1587s [00:53:07.938] info) 1587s [00:53:07.938] } 1587s [00:53:07.938] else { 1587s [00:53:07.938] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1587s [00:53:07.938] info, version) 1587s [00:53:07.938] } 1587s [00:53:07.938] base::stop(msg) 1587s [00:53:07.938] } 1587s [00:53:07.938] }) 1587s [00:53:07.938] } 1587s [00:53:07.938] base::local({ 1587s [00:53:07.938] for (pkg in "future.apply") { 1587s [00:53:07.938] base::loadNamespace(pkg) 1587s [00:53:07.938] base::library(pkg, character.only = TRUE) 1587s [00:53:07.938] } 1587s [00:53:07.938] }) 1587s [00:53:07.938] } 1587s [00:53:07.938] options(future.plan = NULL) 1587s [00:53:07.938] Sys.unsetenv("R_FUTURE_PLAN") 1587s [00:53:07.938] future::plan("default", .cleanup = FALSE, .init = FALSE) 1587s [00:53:07.938] } 1587s [00:53:07.938] ...future.workdir <- getwd() 1587s [00:53:07.938] } 1587s [00:53:07.938] ...future.oldOptions <- base::as.list(base::.Options) 1587s [00:53:07.938] ...future.oldEnvVars <- base::Sys.getenv() 1587s [00:53:07.938] } 1587s [00:53:07.938] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1587s [00:53:07.938] future.globals.maxSize = NULL, future.globals.method = NULL, 1587s [00:53:07.938] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1587s [00:53:07.938] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1587s [00:53:07.938] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1587s [00:53:07.938] future.stdout.windows.reencode = NULL, width = 80L) 1587s [00:53:07.938] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1587s [00:53:07.938] base::names(...future.oldOptions)) 1587s [00:53:07.938] } 1587s [00:53:07.938] if (FALSE) { 1587s [00:53:07.938] } 1587s [00:53:07.938] else { 1587s [00:53:07.938] if (TRUE) { 1587s [00:53:07.938] ...future.stdout <- base::rawConnection(base::raw(0L), 1587s [00:53:07.938] open = "w") 1587s [00:53:07.938] } 1587s [00:53:07.938] else { 1587s [00:53:07.938] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1587s [00:53:07.938] windows = "NUL", "/dev/null"), open = "w") 1587s [00:53:07.938] } 1587s [00:53:07.938] base::sink(...future.stdout, type = "output", split = FALSE) 1587s [00:53:07.938] base::on.exit(if (!base::is.null(...future.stdout)) { 1587s [00:53:07.938] base::sink(type = "output", split = FALSE) 1587s [00:53:07.938] base::close(...future.stdout) 1587s [00:53:07.938] }, add = TRUE) 1587s [00:53:07.938] } 1587s [00:53:07.938] ...future.frame <- base::sys.nframe() 1587s [00:53:07.938] ...future.conditions <- base::list() 1587s [00:53:07.938] ...future.rng <- base::globalenv()$.Random.seed 1587s [00:53:07.938] if (FALSE) { 1587s [00:53:07.938] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1587s [00:53:07.938] "...future.value", "...future.globalenv.names", ".Random.seed") 1587s [00:53:07.938] } 1587s [00:53:07.938] ...future.result <- base::tryCatch({ 1587s [00:53:07.938] base::withCallingHandlers({ 1587s [00:53:07.938] ...future.value <- base::withVisible(base::local({ 1587s [00:53:07.938] do.call(function(...) { 1587s [00:53:07.938] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1587s [00:53:07.938] if (!identical(...future.globals.maxSize.org, 1587s [00:53:07.938] ...future.globals.maxSize)) { 1587s [00:53:07.938] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1587s [00:53:07.938] on.exit(options(oopts), add = TRUE) 1587s [00:53:07.938] } 1587s [00:53:07.938] { 1587s [00:53:07.938] lapply(seq_along(...future.elements_ii), 1587s [00:53:07.938] FUN = function(jj) { 1587s [00:53:07.938] ...future.X_jj <- ...future.elements_ii[[jj]] 1587s [00:53:07.938] ...future.FUN(...future.X_jj, ...) 1587s [00:53:07.938] }) 1587s [00:53:07.938] } 1587s [00:53:07.938] }, args = future.call.arguments) 1587s [00:53:07.938] })) 1587s [00:53:07.938] future::FutureResult(value = ...future.value$value, 1587s [00:53:07.938] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1587s [00:53:07.938] ...future.rng), globalenv = if (FALSE) 1587s [00:53:07.938] list(added = base::setdiff(base::names(base::.GlobalEnv), 1587s [00:53:07.938] ...future.globalenv.names)) 1587s [00:53:07.938] else NULL, started = ...future.startTime, version = "1.8") 1587s [00:53:07.938] }, condition = base::local({ 1587s [00:53:07.938] c <- base::c 1587s [00:53:07.938] inherits <- base::inherits 1587s [00:53:07.938] invokeRestart <- base::invokeRestart 1587s [00:53:07.938] length <- base::length 1587s [00:53:07.938] list <- base::list 1587s [00:53:07.938] seq.int <- base::seq.int 1587s [00:53:07.938] signalCondition <- base::signalCondition 1587s [00:53:07.938] sys.calls <- base::sys.calls 1587s [00:53:07.938] `[[` <- base::`[[` 1587s [00:53:07.938] `+` <- base::`+` 1587s [00:53:07.938] `<<-` <- base::`<<-` 1587s [00:53:07.938] sysCalls <- function(calls = sys.calls(), from = 1L) { 1587s [00:53:07.938] calls[seq.int(from = from + 12L, to = length(calls) - 1587s [00:53:07.938] 3L)] 1587s [00:53:07.938] } 1587s [00:53:07.938] function(cond) { 1587s [00:53:07.938] is_error <- inherits(cond, "error") 1587s [00:53:07.938] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1587s [00:53:07.938] NULL) 1587s [00:53:07.938] if (is_error) { 1587s [00:53:07.938] sessionInformation <- function() { 1587s [00:53:07.938] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1587s [00:53:07.938] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1587s [00:53:07.938] search = base::search(), system = base::Sys.info()) 1587s [00:53:07.938] } 1587s [00:53:07.938] ...future.conditions[[length(...future.conditions) + 1587s [00:53:07.938] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1587s [00:53:07.938] cond$call), session = sessionInformation(), 1587s [00:53:07.938] timestamp = base::Sys.time(), signaled = 0L) 1587s [00:53:07.938] signalCondition(cond) 1587s [00:53:07.938] } 1587s [00:53:07.938] else if (!ignore && TRUE && inherits(cond, c("condition", 1587s [00:53:07.938] "immediateCondition"))) { 1587s [00:53:07.938] signal <- TRUE && inherits(cond, "immediateCondition") 1587s [00:53:07.938] ...future.conditions[[length(...future.conditions) + 1587s [00:53:07.938] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1587s [00:53:07.938] if (TRUE && !signal) { 1587s [00:53:07.938] muffleCondition <- function (cond, pattern = "^muffle") 1587s [00:53:07.938] { 1587s [00:53:07.938] inherits <- base::inherits 1587s [00:53:07.938] invokeRestart <- base::invokeRestart 1587s [00:53:07.938] is.null <- base::is.null 1587s [00:53:07.938] muffled <- FALSE 1587s [00:53:07.938] if (inherits(cond, "message")) { 1587s [00:53:07.938] muffled <- grepl(pattern, "muffleMessage") 1587s [00:53:07.938] if (muffled) 1587s [00:53:07.938] invokeRestart("muffleMessage") 1587s [00:53:07.938] } 1587s [00:53:07.938] else if (inherits(cond, "warning")) { 1587s [00:53:07.938] muffled <- grepl(pattern, "muffleWarning") 1587s [00:53:07.938] if (muffled) 1587s [00:53:07.938] invokeRestart("muffleWarning") 1587s [00:53:07.938] } 1587s [00:53:07.938] else if (inherits(cond, "condition")) { 1587s [00:53:07.938] if (!is.null(pattern)) { 1587s [00:53:07.938] computeRestarts <- base::computeRestarts 1587s [00:53:07.938] grepl <- base::grepl 1587s [00:53:07.938] restarts <- computeRestarts(cond) 1587s [00:53:07.938] for (restart in restarts) { 1587s [00:53:07.938] name <- restart$name 1587s [00:53:07.938] if (is.null(name)) 1587s [00:53:07.938] next 1587s [00:53:07.938] if (!grepl(pattern, name)) 1587s [00:53:07.938] next 1587s [00:53:07.938] invokeRestart(restart) 1587s [00:53:07.938] muffled <- TRUE 1587s [00:53:07.938] break 1587s [00:53:07.938] } 1587s [00:53:07.938] } 1587s [00:53:07.938] } 1587s [00:53:07.938] invisible(muffled) 1587s [00:53:07.938] } 1587s [00:53:07.938] muffleCondition(cond, pattern = "^muffle") 1587s [00:53:07.938] } 1587s [00:53:07.938] } 1587s [00:53:07.938] else { 1587s [00:53:07.938] if (TRUE) { 1587s [00:53:07.938] muffleCondition <- function (cond, pattern = "^muffle") 1587s [00:53:07.938] { 1587s [00:53:07.938] inherits <- base::inherits 1587s [00:53:07.938] invokeRestart <- base::invokeRestart 1587s [00:53:07.938] is.null <- base::is.null 1587s [00:53:07.938] muffled <- FALSE 1587s [00:53:07.938] if (inherits(cond, "message")) { 1587s [00:53:07.938] muffled <- grepl(pattern, "muffleMessage") 1587s [00:53:07.938] if (muffled) 1587s [00:53:07.938] invokeRestart("muffleMessage") 1587s [00:53:07.938] } 1587s [00:53:07.938] else if (inherits(cond, "warning")) { 1587s [00:53:07.938] muffled <- grepl(pattern, "muffleWarning") 1587s [00:53:07.938] if (muffled) 1587s [00:53:07.938] invokeRestart("muffleWarning") 1587s [00:53:07.938] } 1587s [00:53:07.938] else if (inherits(cond, "condition")) { 1587s [00:53:07.938] if (!is.null(pattern)) { 1587s [00:53:07.938] computeRestarts <- base::computeRestarts 1587s [00:53:07.938] grepl <- base::grepl 1587s [00:53:07.938] restarts <- computeRestarts(cond) 1587s [00:53:07.938] for (restart in restarts) { 1587s [00:53:07.938] name <- restart$name 1587s [00:53:07.938] if (is.null(name)) 1587s [00:53:07.938] next 1587s [00:53:07.938] if (!grepl(pattern, name)) 1587s [00:53:07.938] next 1587s [00:53:07.938] invokeRestart(restart) 1587s [00:53:07.938] muffled <- TRUE 1587s [00:53:07.938] break 1587s [00:53:07.938] } 1587s [00:53:07.938] } 1587s [00:53:07.938] } 1587s [00:53:07.938] invisible(muffled) 1587s [00:53:07.938] } 1587s [00:53:07.938] muffleCondition(cond, pattern = "^muffle") 1587s [00:53:07.938] } 1587s [00:53:07.938] } 1587s [00:53:07.938] } 1587s [00:53:07.938] })) 1587s [00:53:07.938] }, error = function(ex) { 1587s [00:53:07.938] base::structure(base::list(value = NULL, visible = NULL, 1587s [00:53:07.938] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1587s [00:53:07.938] ...future.rng), started = ...future.startTime, 1587s [00:53:07.938] finished = Sys.time(), session_uuid = NA_character_, 1587s [00:53:07.938] version = "1.8"), class = "FutureResult") 1587s [00:53:07.938] }, finally = { 1587s [00:53:07.938] if (!identical(...future.workdir, getwd())) 1587s [00:53:07.938] setwd(...future.workdir) 1587s [00:53:07.938] { 1587s [00:53:07.938] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1587s [00:53:07.938] ...future.oldOptions$nwarnings <- NULL 1587s [00:53:07.938] } 1587s [00:53:07.938] base::options(...future.oldOptions) 1587s [00:53:07.938] if (.Platform$OS.type == "windows") { 1587s [00:53:07.938] old_names <- names(...future.oldEnvVars) 1587s [00:53:07.938] envs <- base::Sys.getenv() 1587s [00:53:07.938] names <- names(envs) 1587s [00:53:07.938] common <- intersect(names, old_names) 1587s [00:53:07.938] added <- setdiff(names, old_names) 1587s [00:53:07.938] removed <- setdiff(old_names, names) 1587s [00:53:07.938] changed <- common[...future.oldEnvVars[common] != 1587s [00:53:07.938] envs[common]] 1587s [00:53:07.938] NAMES <- toupper(changed) 1587s [00:53:07.938] args <- list() 1587s [00:53:07.938] for (kk in seq_along(NAMES)) { 1587s [00:53:07.938] name <- changed[[kk]] 1587s [00:53:07.938] NAME <- NAMES[[kk]] 1587s [00:53:07.938] if (name != NAME && is.element(NAME, old_names)) 1587s [00:53:07.938] next 1587s [00:53:07.938] args[[name]] <- ...future.oldEnvVars[[name]] 1587s [00:53:07.938] } 1587s [00:53:07.938] NAMES <- toupper(added) 1587s [00:53:07.938] for (kk in seq_along(NAMES)) { 1587s [00:53:07.938] name <- added[[kk]] 1587s [00:53:07.938] NAME <- NAMES[[kk]] 1587s [00:53:07.938] if (name != NAME && is.element(NAME, old_names)) 1587s [00:53:07.938] next 1587s [00:53:07.938] args[[name]] <- "" 1587s [00:53:07.938] } 1587s [00:53:07.938] NAMES <- toupper(removed) 1587s [00:53:07.938] for (kk in seq_along(NAMES)) { 1587s [00:53:07.938] name <- removed[[kk]] 1587s [00:53:07.938] NAME <- NAMES[[kk]] 1587s [00:53:07.938] if (name != NAME && is.element(NAME, old_names)) 1587s [00:53:07.938] next 1587s [00:53:07.938] args[[name]] <- ...future.oldEnvVars[[name]] 1587s [00:53:07.938] } 1587s [00:53:07.938] if (length(args) > 0) 1587s [00:53:07.938] base::do.call(base::Sys.setenv, args = args) 1587s [00:53:07.938] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1587s [00:53:07.938] } 1587s [00:53:07.938] else { 1587s [00:53:07.938] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1587s [00:53:07.938] } 1587s [00:53:07.938] { 1587s [00:53:07.938] if (base::length(...future.futureOptionsAdded) > 1587s [00:53:07.938] 0L) { 1587s [00:53:07.938] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1587s [00:53:07.938] base::names(opts) <- ...future.futureOptionsAdded 1587s [00:53:07.938] base::options(opts) 1587s [00:53:07.938] } 1587s [00:53:07.938] { 1587s [00:53:07.938] { 1587s [00:53:07.938] NULL 1587s [00:53:07.938] RNGkind("Mersenne-Twister") 1587s [00:53:07.938] base::rm(list = ".Random.seed", envir = base::globalenv(), 1587s [00:53:07.938] inherits = FALSE) 1587s [00:53:07.938] } 1587s [00:53:07.938] options(future.plan = NULL) 1587s [00:53:07.938] if (is.na(NA_character_)) 1587s [00:53:07.938] Sys.unsetenv("R_FUTURE_PLAN") 1587s [00:53:07.938] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1587s [00:53:07.938] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1587s [00:53:07.938] envir = parent.frame()) 1587s [00:53:07.938] { 1587s [00:53:07.938] default_workers <- missing(workers) 1587s [00:53:07.938] if (is.function(workers)) 1587s [00:53:07.938] workers <- workers() 1587s [00:53:07.938] workers <- structure(as.integer(workers), 1587s [00:53:07.938] class = class(workers)) 1587s [00:53:07.938] stop_if_not(is.finite(workers), workers >= 1587s [00:53:07.938] 1L) 1587s [00:53:07.938] if ((workers == 1L && !inherits(workers, 1587s [00:53:07.938] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1587s [00:53:07.938] if (default_workers) 1587s [00:53:07.938] supportsMulticore(warn = TRUE) 1587s [00:53:07.938] return(sequential(..., envir = envir)) 1587s [00:53:07.938] } 1587s [00:53:07.938] oopts <- options(mc.cores = workers) 1587s [00:53:07.938] on.exit(options(oopts)) 1587s [00:53:07.938] future <- MulticoreFuture(..., workers = workers, 1587s [00:53:07.938] envir = envir) 1587s [00:53:07.938] if (!future$lazy) 1587s [00:53:07.938] future <- run(future) 1587s [00:53:07.938] invisible(future) 1587s [00:53:07.938] }), .cleanup = FALSE, .init = FALSE) 1587s [00:53:07.938] } 1587s [00:53:07.938] } 1587s [00:53:07.938] } 1587s [00:53:07.938] }) 1587s [00:53:07.938] if (TRUE) { 1587s [00:53:07.938] base::sink(type = "output", split = FALSE) 1587s [00:53:07.938] if (TRUE) { 1587s [00:53:07.938] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1587s [00:53:07.938] } 1587s [00:53:07.938] else { 1587s [00:53:07.938] ...future.result["stdout"] <- base::list(NULL) 1587s [00:53:07.938] } 1587s [00:53:07.938] base::close(...future.stdout) 1587s [00:53:07.938] ...future.stdout <- NULL 1587s [00:53:07.938] } 1587s [00:53:07.938] ...future.result$conditions <- ...future.conditions 1587s [00:53:07.938] ...future.result$finished <- base::Sys.time() 1587s [00:53:07.938] ...future.result 1587s [00:53:07.938] } 1587s [00:53:07.943] assign_globals() ... 1587s [00:53:07.943] List of 11 1587s [00:53:07.943] $ ...future.FUN :function (x, ...) 1587s [00:53:07.943] $ x_FUN :function (x) 1587s [00:53:07.943] $ times : int 4 1587s [00:53:07.943] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1587s [00:53:07.943] $ stop_if_not :function (...) 1587s [00:53:07.943] $ dim : int [1:2] 2 2 1587s [00:53:07.943] $ valid_types : chr [1:3] "logical" "integer" "double" 1587s [00:53:07.943] $ future.call.arguments : list() 1587s [00:53:07.943] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1587s [00:53:07.943] $ ...future.elements_ii :List of 10 1587s [00:53:07.943] ..$ : int 1 1587s [00:53:07.943] ..$ : int 2 1587s [00:53:07.943] ..$ : int 3 1587s [00:53:07.943] ..$ : int 4 1587s [00:53:07.943] ..$ : int 5 1587s [00:53:07.943] ..$ : int 6 1587s [00:53:07.943] ..$ : int 7 1587s [00:53:07.943] ..$ : int 8 1587s [00:53:07.943] ..$ : int 9 1587s [00:53:07.943] ..$ : int 10 1587s [00:53:07.943] $ ...future.seeds_ii : NULL 1587s [00:53:07.943] $ ...future.globals.maxSize: NULL 1587s [00:53:07.943] - attr(*, "where")=List of 11 1587s [00:53:07.943] ..$ ...future.FUN : 1587s [00:53:07.943] ..$ x_FUN : 1587s [00:53:07.943] ..$ times : 1587s [00:53:07.943] ..$ stopf : 1587s [00:53:07.943] ..$ stop_if_not : 1587s [00:53:07.943] ..$ dim : 1587s [00:53:07.943] ..$ valid_types : 1587s [00:53:07.943] ..$ future.call.arguments : 1587s [00:53:07.943] ..$ ...future.elements_ii : 1587s [00:53:07.943] ..$ ...future.seeds_ii : 1587s [00:53:07.943] ..$ ...future.globals.maxSize: 1587s [00:53:07.943] - attr(*, "resolved")= logi FALSE 1587s [00:53:07.943] - attr(*, "total_size")= num 97304 1587s [00:53:07.943] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1587s [00:53:07.943] - attr(*, "already-done")= logi TRUE 1587s [00:53:07.956] - copied ‘...future.FUN’ to environment 1587s [00:53:07.956] - reassign environment for ‘x_FUN’ 1587s [00:53:07.956] - copied ‘x_FUN’ to environment 1587s [00:53:07.956] - copied ‘times’ to environment 1587s [00:53:07.956] - copied ‘stopf’ to environment 1587s [00:53:07.956] - copied ‘stop_if_not’ to environment 1587s [00:53:07.956] - copied ‘dim’ to environment 1587s [00:53:07.957] - copied ‘valid_types’ to environment 1587s [00:53:07.957] - copied ‘future.call.arguments’ to environment 1587s [00:53:07.957] - copied ‘...future.elements_ii’ to environment 1587s [00:53:07.957] - copied ‘...future.seeds_ii’ to environment 1587s [00:53:07.957] - copied ‘...future.globals.maxSize’ to environment 1587s [00:53:07.957] assign_globals() ... done 1587s [00:53:07.958] plan(): Setting new future strategy stack: 1587s [00:53:07.958] List of future strategies: 1587s [00:53:07.958] 1. sequential: 1587s [00:53:07.958] - args: function (..., envir = parent.frame()) 1587s [00:53:07.958] - tweaked: FALSE 1587s [00:53:07.958] - call: NULL 1587s [00:53:07.958] plan(): nbrOfWorkers() = 1 1587s [00:53:07.959] plan(): Setting new future strategy stack: 1587s [00:53:07.959] List of future strategies: 1587s [00:53:07.959] 1. multicore: 1587s [00:53:07.959] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1587s [00:53:07.959] - tweaked: FALSE 1587s [00:53:07.959] - call: plan(strategy) 1587s [00:53:07.964] plan(): nbrOfWorkers() = 1 1587s [00:53:07.964] SequentialFuture started (and completed) 1587s [00:53:07.964] - Launch lazy future ... done 1587s [00:53:07.965] run() for ‘SequentialFuture’ ... done 1587s [00:53:07.965] Created future: 1588s [00:53:07.965] SequentialFuture: 1588s [00:53:07.965] Label: ‘future_vapply-1’ 1588s [00:53:07.965] Expression: 1588s [00:53:07.965] { 1588s [00:53:07.965] do.call(function(...) { 1588s [00:53:07.965] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1588s [00:53:07.965] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1588s [00:53:07.965] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1588s [00:53:07.965] on.exit(options(oopts), add = TRUE) 1588s [00:53:07.965] } 1588s [00:53:07.965] { 1588s [00:53:07.965] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1588s [00:53:07.965] ...future.X_jj <- ...future.elements_ii[[jj]] 1588s [00:53:07.965] ...future.FUN(...future.X_jj, ...) 1588s [00:53:07.965] }) 1588s [00:53:07.965] } 1588s [00:53:07.965] }, args = future.call.arguments) 1588s [00:53:07.965] } 1588s [00:53:07.965] Lazy evaluation: FALSE 1588s [00:53:07.965] Asynchronous evaluation: FALSE 1588s [00:53:07.965] Local evaluation: TRUE 1588s [00:53:07.965] Environment: R_GlobalEnv 1588s [00:53:07.965] Capture standard output: TRUE 1588s [00:53:07.965] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1588s [00:53:07.965] Globals: 11 objects totaling 95.57 KiB (function ‘...future.FUN’ of 21.22 KiB, function ‘x_FUN’ of 2.90 KiB, integer ‘times’ of 56 bytes, function ‘stopf’ of 26.43 KiB, function ‘stop_if_not’ of 44.12 KiB, ...) 1588s [00:53:07.965] Packages: 1 packages (‘future.apply’) 1588s [00:53:07.965] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1588s [00:53:07.965] Resolved: TRUE 1588s [00:53:07.965] Value: 2.27 KiB of class ‘list’ 1588s [00:53:07.965] Early signaling: FALSE 1588s [00:53:07.965] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1588s [00:53:07.965] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1588s [00:53:07.967] Chunk #1 of 1 ... DONE 1588s [00:53:07.967] Launching 1 futures (chunks) ... DONE 1588s [00:53:07.967] Resolving 1 futures (chunks) ... 1588s [00:53:07.967] resolve() on list ... 1588s [00:53:07.967] recursive: 0 1588s [00:53:07.967] length: 1 1588s [00:53:07.968] 1588s [00:53:07.968] resolved() for ‘SequentialFuture’ ... 1588s [00:53:07.968] - state: ‘finished’ 1588s [00:53:07.968] - run: TRUE 1588s [00:53:07.968] - result: ‘FutureResult’ 1588s [00:53:07.968] resolved() for ‘SequentialFuture’ ... done 1588s [00:53:07.969] Future #1 1588s [00:53:07.969] signalConditionsASAP(SequentialFuture, pos=1) ... 1588s [00:53:07.969] - nx: 1 1588s [00:53:07.969] - relay: TRUE 1588s [00:53:07.969] - stdout: TRUE 1588s [00:53:07.969] - signal: TRUE 1588s [00:53:07.969] - resignal: FALSE 1588s [00:53:07.970] - force: TRUE 1588s [00:53:07.970] - relayed: [n=1] FALSE 1588s [00:53:07.970] - queued futures: [n=1] FALSE 1588s [00:53:07.970] - until=1 1588s [00:53:07.970] - relaying element #1 1588s [00:53:07.970] - relayed: [n=1] TRUE 1588s [00:53:07.971] - queued futures: [n=1] TRUE 1588s [00:53:07.971] signalConditionsASAP(SequentialFuture, pos=1) ... done 1588s [00:53:07.971] length: 0 (resolved future 1) 1588s int [1:2, 1:2, 1:10] 1 1 1 1 2 2 2 2 3 3 ... 1588s [00:53:07.971] Relaying remaining futures 1588s [00:53:07.971] signalConditionsASAP(NULL, pos=0) ... 1588s [00:53:07.971] - nx: 1 1588s [00:53:07.971] - relay: TRUE 1588s [00:53:07.971] - stdout: TRUE 1588s [00:53:07.971] - signal: TRUE 1588s [00:53:07.972] - resignal: FALSE 1588s [00:53:07.972] - force: TRUE 1588s [00:53:07.972] - relayed: [n=1] TRUE 1588s [00:53:07.972] - queued futures: [n=1] TRUE 1588s - flush all 1588s [00:53:07.972] - relayed: [n=1] TRUE 1588s [00:53:07.972] - queued futures: [n=1] TRUE 1588s [00:53:07.972] signalConditionsASAP(NULL, pos=0) ... done 1588s [00:53:07.972] resolve() on list ... DONE 1588s [00:53:07.972] - Number of value chunks collected: 1 1588s [00:53:07.973] Resolving 1 futures (chunks) ... DONE 1588s [00:53:07.973] Reducing values from 1 chunks ... 1588s [00:53:07.973] - Number of values collected after concatenation: 10 1588s [00:53:07.973] - Number of values expected: 10 1588s [00:53:07.973] Reducing values from 1 chunks ... DONE 1588s [00:53:07.973] future_lapply() ... DONE 1588s num [1:2, 1:2, 1:10] 1 1 1 1 2 2 2 2 3 3 ... 1588s - attr(*, "dimnames")=List of 3 1588s ..$ : chr [1:2] "a" "b" 1588s ..$ : chr [1:2] "A" "B" 1588s ..$ : NULL 1588s [00:53:07.976] future_lapply() ... 1588s [00:53:07.981] Number of chunks: 1 1588s [00:53:07.981] getGlobalsAndPackagesXApply() ... 1588s [00:53:07.981] - future.globals: TRUE 1588s [00:53:07.982] getGlobalsAndPackages() ... 1588s [00:53:07.982] Searching for globals... 1588s [00:53:07.986] - globals found: [19] ‘FUN’, ‘{’, ‘<-’, ‘x_FUN’, ‘if’, ‘!=’, ‘length’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘all’, ‘==’, ‘dim’, ‘%in%’, ‘typeof’, ‘valid_types’, ‘matrix’, ‘list’, ‘c’ 1588s [00:53:07.987] Searching for globals ... DONE 1588s [00:53:07.987] Resolving globals: FALSE 1588s [00:53:07.988] The total size of the 7 globals is 103.08 KiB (105552 bytes) 1588s [00:53:07.988] The total size of the 7 globals exported for future expression (‘FUN()’) is 103.08 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘stop_if_not’ (44.12 KiB of class ‘function’), ‘stopf’ (26.43 KiB of class ‘function’) and ‘FUN’ (21.22 KiB of class ‘function’) 1588s [00:53:07.989] - globals: [7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1588s [00:53:07.989] - packages: [1] ‘future.apply’ 1588s [00:53:07.989] getGlobalsAndPackages() ... DONE 1588s [00:53:07.989] - globals found/used: [n=7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1588s [00:53:07.989] - needed namespaces: [n=1] ‘future.apply’ 1588s [00:53:07.989] Finding globals ... DONE 1588s [00:53:07.989] - use_args: TRUE 1588s [00:53:07.990] - Getting '...' globals ... 1588s [00:53:07.991] resolve() on list ... 1588s [00:53:07.992] recursive: 0 1588s [00:53:07.992] length: 1 1588s [00:53:07.992] elements: ‘...’ 1588s [00:53:07.992] length: 0 (resolved future 1) 1588s [00:53:07.992] resolve() on list ... DONE 1588s [00:53:07.992] - '...' content: [n=0] 1588s [00:53:07.993] List of 1 1588s [00:53:07.993] $ ...: list() 1588s [00:53:07.993] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1588s [00:53:07.993] - attr(*, "where")=List of 1 1588s [00:53:07.993] ..$ ...: 1588s [00:53:07.993] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1588s [00:53:07.993] - attr(*, "resolved")= logi TRUE 1588s [00:53:07.993] - attr(*, "total_size")= num NA 1588s [00:53:07.996] - Getting '...' globals ... DONE 1588s [00:53:07.996] Globals to be used in all futures (chunks): [n=8] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’ 1588s [00:53:07.996] List of 8 1588s [00:53:07.996] $ ...future.FUN:function (x, ...) 1588s [00:53:07.996] $ x_FUN :function (x) 1588s [00:53:07.996] $ times : int 4 1588s [00:53:07.996] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1588s [00:53:07.996] $ stop_if_not :function (...) 1588s [00:53:07.996] $ dim : int [1:2] 2 2 1588s [00:53:07.996] $ valid_types : chr [1:3] "logical" "integer" "double" 1588s [00:53:07.996] $ ... : list() 1588s [00:53:07.996] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1588s [00:53:07.996] - attr(*, "where")=List of 8 1588s [00:53:07.996] ..$ ...future.FUN: 1588s [00:53:07.996] ..$ x_FUN : 1588s [00:53:07.996] ..$ times : 1588s [00:53:07.996] ..$ stopf : 1588s [00:53:07.996] ..$ stop_if_not : 1588s [00:53:07.996] ..$ dim : 1588s [00:53:07.996] ..$ valid_types : 1588s [00:53:07.996] ..$ ... : 1588s [00:53:07.996] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1588s [00:53:07.996] - attr(*, "resolved")= logi FALSE 1588s [00:53:07.996] - attr(*, "total_size")= num 105552 1588s [00:53:08.003] Packages to be attached in all futures: [n=1] ‘future.apply’ 1588s [00:53:08.003] getGlobalsAndPackagesXApply() ... DONE 1588s [00:53:08.003] Number of futures (= number of chunks): 1 1588s [00:53:08.004] Launching 1 futures (chunks) ... 1588s [00:53:08.004] Chunk #1 of 1 ... 1588s [00:53:08.004] - Finding globals in 'X' for chunk #1 ... 1588s [00:53:08.004] getGlobalsAndPackages() ... 1588s [00:53:08.004] Searching for globals... 1588s [00:53:08.004] 1588s [00:53:08.005] Searching for globals ... DONE 1588s [00:53:08.005] - globals: [0] 1588s [00:53:08.005] getGlobalsAndPackages() ... DONE 1588s [00:53:08.005] + additional globals found: [n=0] 1588s [00:53:08.005] + additional namespaces needed: [n=0] 1588s [00:53:08.005] - Finding globals in 'X' for chunk #1 ... DONE 1588s [00:53:08.005] - seeds: 1588s [00:53:08.006] - All globals exported: [n=11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1588s [00:53:08.006] getGlobalsAndPackages() ... 1588s [00:53:08.006] - globals passed as-is: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1588s [00:53:08.006] Resolving globals: FALSE 1588s [00:53:08.006] Tweak future expression to call with '...' arguments ... 1588s [00:53:08.006] { 1588s [00:53:08.006] do.call(function(...) { 1588s [00:53:08.006] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1588s [00:53:08.006] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1588s [00:53:08.006] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1588s [00:53:08.006] on.exit(options(oopts), add = TRUE) 1588s [00:53:08.006] } 1588s [00:53:08.006] { 1588s [00:53:08.006] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1588s [00:53:08.006] ...future.X_jj <- ...future.elements_ii[[jj]] 1588s [00:53:08.006] ...future.FUN(...future.X_jj, ...) 1588s [00:53:08.006] }) 1588s [00:53:08.006] } 1588s [00:53:08.006] }, args = future.call.arguments) 1588s [00:53:08.006] } 1588s [00:53:08.007] Tweak future expression to call with '...' arguments ... DONE 1588s [00:53:08.008] - globals: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1588s [00:53:08.008] - packages: [1] ‘future.apply’ 1588s [00:53:08.008] getGlobalsAndPackages() ... DONE 1588s [00:53:08.008] run() for ‘Future’ ... 1588s [00:53:08.008] - state: ‘created’ 1588s [00:53:08.009] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1588s [00:53:08.012] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1588s [00:53:08.012] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1588s [00:53:08.012] - Field: ‘label’ 1588s [00:53:08.012] - Field: ‘local’ 1588s [00:53:08.012] - Field: ‘owner’ 1588s [00:53:08.013] - Field: ‘envir’ 1588s [00:53:08.013] - Field: ‘packages’ 1588s [00:53:08.013] - Field: ‘gc’ 1588s [00:53:08.013] - Field: ‘conditions’ 1588s [00:53:08.013] - Field: ‘expr’ 1588s [00:53:08.013] - Field: ‘uuid’ 1588s [00:53:08.013] - Field: ‘seed’ 1588s [00:53:08.013] - Field: ‘version’ 1588s [00:53:08.013] - Field: ‘result’ 1588s [00:53:08.014] - Field: ‘asynchronous’ 1588s [00:53:08.014] - Field: ‘calls’ 1588s [00:53:08.014] - Field: ‘globals’ 1588s [00:53:08.014] - Field: ‘stdout’ 1588s [00:53:08.014] - Field: ‘earlySignal’ 1588s [00:53:08.014] - Field: ‘lazy’ 1588s [00:53:08.014] - Field: ‘state’ 1588s [00:53:08.014] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1588s [00:53:08.015] - Launch lazy future ... 1588s [00:53:08.015] Packages needed by the future expression (n = 1): ‘future.apply’ 1588s [00:53:08.015] Packages needed by future strategies (n = 0): 1588s [00:53:08.015] { 1588s [00:53:08.015] { 1588s [00:53:08.015] { 1588s [00:53:08.015] ...future.startTime <- base::Sys.time() 1588s [00:53:08.015] { 1588s [00:53:08.015] { 1588s [00:53:08.015] { 1588s [00:53:08.015] { 1588s [00:53:08.015] base::local({ 1588s [00:53:08.015] has_future <- base::requireNamespace("future", 1588s [00:53:08.015] quietly = TRUE) 1588s [00:53:08.015] if (has_future) { 1588s [00:53:08.015] ns <- base::getNamespace("future") 1588s [00:53:08.015] version <- ns[[".package"]][["version"]] 1588s [00:53:08.015] if (is.null(version)) 1588s [00:53:08.015] version <- utils::packageVersion("future") 1588s [00:53:08.015] } 1588s [00:53:08.015] else { 1588s [00:53:08.015] version <- NULL 1588s [00:53:08.015] } 1588s [00:53:08.015] if (!has_future || version < "1.8.0") { 1588s [00:53:08.015] info <- base::c(r_version = base::gsub("R version ", 1588s [00:53:08.015] "", base::R.version$version.string), 1588s [00:53:08.015] platform = base::sprintf("%s (%s-bit)", 1588s [00:53:08.015] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1588s [00:53:08.015] os = base::paste(base::Sys.info()[base::c("sysname", 1588s [00:53:08.015] "release", "version")], collapse = " "), 1588s [00:53:08.015] hostname = base::Sys.info()[["nodename"]]) 1588s [00:53:08.015] info <- base::sprintf("%s: %s", base::names(info), 1588s [00:53:08.015] info) 1588s [00:53:08.015] info <- base::paste(info, collapse = "; ") 1588s [00:53:08.015] if (!has_future) { 1588s [00:53:08.015] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1588s [00:53:08.015] info) 1588s [00:53:08.015] } 1588s [00:53:08.015] else { 1588s [00:53:08.015] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1588s [00:53:08.015] info, version) 1588s [00:53:08.015] } 1588s [00:53:08.015] base::stop(msg) 1588s [00:53:08.015] } 1588s [00:53:08.015] }) 1588s [00:53:08.015] } 1588s [00:53:08.015] base::local({ 1588s [00:53:08.015] for (pkg in "future.apply") { 1588s [00:53:08.015] base::loadNamespace(pkg) 1588s [00:53:08.015] base::library(pkg, character.only = TRUE) 1588s [00:53:08.015] } 1588s [00:53:08.015] }) 1588s [00:53:08.015] } 1588s [00:53:08.015] options(future.plan = NULL) 1588s [00:53:08.015] Sys.unsetenv("R_FUTURE_PLAN") 1588s [00:53:08.015] future::plan("default", .cleanup = FALSE, .init = FALSE) 1588s [00:53:08.015] } 1588s [00:53:08.015] ...future.workdir <- getwd() 1588s [00:53:08.015] } 1588s [00:53:08.015] ...future.oldOptions <- base::as.list(base::.Options) 1588s [00:53:08.015] ...future.oldEnvVars <- base::Sys.getenv() 1588s [00:53:08.015] } 1588s [00:53:08.015] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1588s [00:53:08.015] future.globals.maxSize = NULL, future.globals.method = NULL, 1588s [00:53:08.015] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1588s [00:53:08.015] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1588s [00:53:08.015] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1588s [00:53:08.015] future.stdout.windows.reencode = NULL, width = 80L) 1588s [00:53:08.015] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1588s [00:53:08.015] base::names(...future.oldOptions)) 1588s [00:53:08.015] } 1588s [00:53:08.015] if (FALSE) { 1588s [00:53:08.015] } 1588s [00:53:08.015] else { 1588s [00:53:08.015] if (TRUE) { 1588s [00:53:08.015] ...future.stdout <- base::rawConnection(base::raw(0L), 1588s [00:53:08.015] open = "w") 1588s [00:53:08.015] } 1588s [00:53:08.015] else { 1588s [00:53:08.015] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1588s [00:53:08.015] windows = "NUL", "/dev/null"), open = "w") 1588s [00:53:08.015] } 1588s [00:53:08.015] base::sink(...future.stdout, type = "output", split = FALSE) 1588s [00:53:08.015] base::on.exit(if (!base::is.null(...future.stdout)) { 1588s [00:53:08.015] base::sink(type = "output", split = FALSE) 1588s [00:53:08.015] base::close(...future.stdout) 1588s [00:53:08.015] }, add = TRUE) 1588s [00:53:08.015] } 1588s [00:53:08.015] ...future.frame <- base::sys.nframe() 1588s [00:53:08.015] ...future.conditions <- base::list() 1588s [00:53:08.015] ...future.rng <- base::globalenv()$.Random.seed 1588s [00:53:08.015] if (FALSE) { 1588s [00:53:08.015] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1588s [00:53:08.015] "...future.value", "...future.globalenv.names", ".Random.seed") 1588s [00:53:08.015] } 1588s [00:53:08.015] ...future.result <- base::tryCatch({ 1588s [00:53:08.015] base::withCallingHandlers({ 1588s [00:53:08.015] ...future.value <- base::withVisible(base::local({ 1588s [00:53:08.015] do.call(function(...) { 1588s [00:53:08.015] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1588s [00:53:08.015] if (!identical(...future.globals.maxSize.org, 1588s [00:53:08.015] ...future.globals.maxSize)) { 1588s [00:53:08.015] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1588s [00:53:08.015] on.exit(options(oopts), add = TRUE) 1588s [00:53:08.015] } 1588s [00:53:08.015] { 1588s [00:53:08.015] lapply(seq_along(...future.elements_ii), 1588s [00:53:08.015] FUN = function(jj) { 1588s [00:53:08.015] ...future.X_jj <- ...future.elements_ii[[jj]] 1588s [00:53:08.015] ...future.FUN(...future.X_jj, ...) 1588s [00:53:08.015] }) 1588s [00:53:08.015] } 1588s [00:53:08.015] }, args = future.call.arguments) 1588s [00:53:08.015] })) 1588s [00:53:08.015] future::FutureResult(value = ...future.value$value, 1588s [00:53:08.015] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1588s [00:53:08.015] ...future.rng), globalenv = if (FALSE) 1588s [00:53:08.015] list(added = base::setdiff(base::names(base::.GlobalEnv), 1588s [00:53:08.015] ...future.globalenv.names)) 1588s [00:53:08.015] else NULL, started = ...future.startTime, version = "1.8") 1588s [00:53:08.015] }, condition = base::local({ 1588s [00:53:08.015] c <- base::c 1588s [00:53:08.015] inherits <- base::inherits 1588s [00:53:08.015] invokeRestart <- base::invokeRestart 1588s [00:53:08.015] length <- base::length 1588s [00:53:08.015] list <- base::list 1588s [00:53:08.015] seq.int <- base::seq.int 1588s [00:53:08.015] signalCondition <- base::signalCondition 1588s [00:53:08.015] sys.calls <- base::sys.calls 1588s [00:53:08.015] `[[` <- base::`[[` 1588s [00:53:08.015] `+` <- base::`+` 1588s [00:53:08.015] `<<-` <- base::`<<-` 1588s [00:53:08.015] sysCalls <- function(calls = sys.calls(), from = 1L) { 1588s [00:53:08.015] calls[seq.int(from = from + 12L, to = length(calls) - 1588s [00:53:08.015] 3L)] 1588s [00:53:08.015] } 1588s [00:53:08.015] function(cond) { 1588s [00:53:08.015] is_error <- inherits(cond, "error") 1588s [00:53:08.015] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1588s [00:53:08.015] NULL) 1588s [00:53:08.015] if (is_error) { 1588s [00:53:08.015] sessionInformation <- function() { 1588s [00:53:08.015] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1588s [00:53:08.015] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1588s [00:53:08.015] search = base::search(), system = base::Sys.info()) 1588s [00:53:08.015] } 1588s [00:53:08.015] ...future.conditions[[length(...future.conditions) + 1588s [00:53:08.015] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1588s [00:53:08.015] cond$call), session = sessionInformation(), 1588s [00:53:08.015] timestamp = base::Sys.time(), signaled = 0L) 1588s [00:53:08.015] signalCondition(cond) 1588s [00:53:08.015] } 1588s [00:53:08.015] else if (!ignore && TRUE && inherits(cond, c("condition", 1588s [00:53:08.015] "immediateCondition"))) { 1588s [00:53:08.015] signal <- TRUE && inherits(cond, "immediateCondition") 1588s [00:53:08.015] ...future.conditions[[length(...future.conditions) + 1588s [00:53:08.015] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1588s [00:53:08.015] if (TRUE && !signal) { 1588s [00:53:08.015] muffleCondition <- function (cond, pattern = "^muffle") 1588s [00:53:08.015] { 1588s [00:53:08.015] inherits <- base::inherits 1588s [00:53:08.015] invokeRestart <- base::invokeRestart 1588s [00:53:08.015] is.null <- base::is.null 1588s [00:53:08.015] muffled <- FALSE 1588s [00:53:08.015] if (inherits(cond, "message")) { 1588s [00:53:08.015] muffled <- grepl(pattern, "muffleMessage") 1588s [00:53:08.015] if (muffled) 1588s [00:53:08.015] invokeRestart("muffleMessage") 1588s [00:53:08.015] } 1588s [00:53:08.015] else if (inherits(cond, "warning")) { 1588s [00:53:08.015] muffled <- grepl(pattern, "muffleWarning") 1588s [00:53:08.015] if (muffled) 1588s [00:53:08.015] invokeRestart("muffleWarning") 1588s [00:53:08.015] } 1588s [00:53:08.015] else if (inherits(cond, "condition")) { 1588s [00:53:08.015] if (!is.null(pattern)) { 1588s [00:53:08.015] computeRestarts <- base::computeRestarts 1588s [00:53:08.015] grepl <- base::grepl 1588s [00:53:08.015] restarts <- computeRestarts(cond) 1588s [00:53:08.015] for (restart in restarts) { 1588s [00:53:08.015] name <- restart$name 1588s [00:53:08.015] if (is.null(name)) 1588s [00:53:08.015] next 1588s [00:53:08.015] if (!grepl(pattern, name)) 1588s [00:53:08.015] next 1588s [00:53:08.015] invokeRestart(restart) 1588s [00:53:08.015] muffled <- TRUE 1588s [00:53:08.015] break 1588s [00:53:08.015] } 1588s [00:53:08.015] } 1588s [00:53:08.015] } 1588s [00:53:08.015] invisible(muffled) 1588s [00:53:08.015] } 1588s [00:53:08.015] muffleCondition(cond, pattern = "^muffle") 1588s [00:53:08.015] } 1588s [00:53:08.015] } 1588s [00:53:08.015] else { 1588s [00:53:08.015] if (TRUE) { 1588s [00:53:08.015] muffleCondition <- function (cond, pattern = "^muffle") 1588s [00:53:08.015] { 1588s [00:53:08.015] inherits <- base::inherits 1588s [00:53:08.015] invokeRestart <- base::invokeRestart 1588s [00:53:08.015] is.null <- base::is.null 1588s [00:53:08.015] muffled <- FALSE 1588s [00:53:08.015] if (inherits(cond, "message")) { 1588s [00:53:08.015] muffled <- grepl(pattern, "muffleMessage") 1588s [00:53:08.015] if (muffled) 1588s [00:53:08.015] invokeRestart("muffleMessage") 1588s [00:53:08.015] } 1588s [00:53:08.015] else if (inherits(cond, "warning")) { 1588s [00:53:08.015] muffled <- grepl(pattern, "muffleWarning") 1588s [00:53:08.015] if (muffled) 1588s [00:53:08.015] invokeRestart("muffleWarning") 1588s [00:53:08.015] } 1588s [00:53:08.015] else if (inherits(cond, "condition")) { 1588s [00:53:08.015] if (!is.null(pattern)) { 1588s [00:53:08.015] computeRestarts <- base::computeRestarts 1588s [00:53:08.015] grepl <- base::grepl 1588s [00:53:08.015] restarts <- computeRestarts(cond) 1588s [00:53:08.015] for (restart in restarts) { 1588s [00:53:08.015] name <- restart$name 1588s [00:53:08.015] if (is.null(name)) 1588s [00:53:08.015] next 1588s [00:53:08.015] if (!grepl(pattern, name)) 1588s [00:53:08.015] next 1588s [00:53:08.015] invokeRestart(restart) 1588s [00:53:08.015] muffled <- TRUE 1588s [00:53:08.015] break 1588s [00:53:08.015] } 1588s [00:53:08.015] } 1588s [00:53:08.015] } 1588s [00:53:08.015] invisible(muffled) 1588s [00:53:08.015] } 1588s [00:53:08.015] muffleCondition(cond, pattern = "^muffle") 1588s [00:53:08.015] } 1588s [00:53:08.015] } 1588s [00:53:08.015] } 1588s [00:53:08.015] })) 1588s [00:53:08.015] }, error = function(ex) { 1588s [00:53:08.015] base::structure(base::list(value = NULL, visible = NULL, 1588s [00:53:08.015] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1588s [00:53:08.015] ...future.rng), started = ...future.startTime, 1588s [00:53:08.015] finished = Sys.time(), session_uuid = NA_character_, 1588s [00:53:08.015] version = "1.8"), class = "FutureResult") 1588s [00:53:08.015] }, finally = { 1588s [00:53:08.015] if (!identical(...future.workdir, getwd())) 1588s [00:53:08.015] setwd(...future.workdir) 1588s [00:53:08.015] { 1588s [00:53:08.015] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1588s [00:53:08.015] ...future.oldOptions$nwarnings <- NULL 1588s [00:53:08.015] } 1588s [00:53:08.015] base::options(...future.oldOptions) 1588s [00:53:08.015] if (.Platform$OS.type == "windows") { 1588s [00:53:08.015] old_names <- names(...future.oldEnvVars) 1588s [00:53:08.015] envs <- base::Sys.getenv() 1588s [00:53:08.015] names <- names(envs) 1588s [00:53:08.015] common <- intersect(names, old_names) 1588s [00:53:08.015] added <- setdiff(names, old_names) 1588s [00:53:08.015] removed <- setdiff(old_names, names) 1588s [00:53:08.015] changed <- common[...future.oldEnvVars[common] != 1588s [00:53:08.015] envs[common]] 1588s [00:53:08.015] NAMES <- toupper(changed) 1588s [00:53:08.015] args <- list() 1588s [00:53:08.015] for (kk in seq_along(NAMES)) { 1588s [00:53:08.015] name <- changed[[kk]] 1588s [00:53:08.015] NAME <- NAMES[[kk]] 1588s [00:53:08.015] if (name != NAME && is.element(NAME, old_names)) 1588s [00:53:08.015] next 1588s [00:53:08.015] args[[name]] <- ...future.oldEnvVars[[name]] 1588s [00:53:08.015] } 1588s [00:53:08.015] NAMES <- toupper(added) 1588s [00:53:08.015] for (kk in seq_along(NAMES)) { 1588s [00:53:08.015] name <- added[[kk]] 1588s [00:53:08.015] NAME <- NAMES[[kk]] 1588s [00:53:08.015] if (name != NAME && is.element(NAME, old_names)) 1588s [00:53:08.015] next 1588s [00:53:08.015] args[[name]] <- "" 1588s [00:53:08.015] } 1588s [00:53:08.015] NAMES <- toupper(removed) 1588s [00:53:08.015] for (kk in seq_along(NAMES)) { 1588s [00:53:08.015] name <- removed[[kk]] 1588s [00:53:08.015] NAME <- NAMES[[kk]] 1588s [00:53:08.015] if (name != NAME && is.element(NAME, old_names)) 1588s [00:53:08.015] next 1588s [00:53:08.015] args[[name]] <- ...future.oldEnvVars[[name]] 1588s [00:53:08.015] } 1588s [00:53:08.015] if (length(args) > 0) 1588s [00:53:08.015] base::do.call(base::Sys.setenv, args = args) 1588s [00:53:08.015] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1588s [00:53:08.015] } 1588s [00:53:08.015] else { 1588s [00:53:08.015] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1588s [00:53:08.015] } 1588s [00:53:08.015] { 1588s [00:53:08.015] if (base::length(...future.futureOptionsAdded) > 1588s [00:53:08.015] 0L) { 1588s [00:53:08.015] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1588s [00:53:08.015] base::names(opts) <- ...future.futureOptionsAdded 1588s [00:53:08.015] base::options(opts) 1588s [00:53:08.015] } 1588s [00:53:08.015] { 1588s [00:53:08.015] { 1588s [00:53:08.015] NULL 1588s [00:53:08.015] RNGkind("Mersenne-Twister") 1588s [00:53:08.015] base::rm(list = ".Random.seed", envir = base::globalenv(), 1588s [00:53:08.015] inherits = FALSE) 1588s [00:53:08.015] } 1588s [00:53:08.015] options(future.plan = NULL) 1588s [00:53:08.015] if (is.na(NA_character_)) 1588s [00:53:08.015] Sys.unsetenv("R_FUTURE_PLAN") 1588s [00:53:08.015] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1588s [00:53:08.015] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1588s [00:53:08.015] envir = parent.frame()) 1588s [00:53:08.015] { 1588s [00:53:08.015] default_workers <- missing(workers) 1588s [00:53:08.015] if (is.function(workers)) 1588s [00:53:08.015] workers <- workers() 1588s [00:53:08.015] workers <- structure(as.integer(workers), 1588s [00:53:08.015] class = class(workers)) 1588s [00:53:08.015] stop_if_not(is.finite(workers), workers >= 1588s [00:53:08.015] 1L) 1588s [00:53:08.015] if ((workers == 1L && !inherits(workers, 1588s [00:53:08.015] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1588s [00:53:08.015] if (default_workers) 1588s [00:53:08.015] supportsMulticore(warn = TRUE) 1588s [00:53:08.015] return(sequential(..., envir = envir)) 1588s [00:53:08.015] } 1588s [00:53:08.015] oopts <- options(mc.cores = workers) 1588s [00:53:08.015] on.exit(options(oopts)) 1588s [00:53:08.015] future <- MulticoreFuture(..., workers = workers, 1588s [00:53:08.015] envir = envir) 1588s [00:53:08.015] if (!future$lazy) 1588s [00:53:08.015] future <- run(future) 1588s [00:53:08.015] invisible(future) 1588s [00:53:08.015] }), .cleanup = FALSE, .init = FALSE) 1588s [00:53:08.015] } 1588s [00:53:08.015] } 1588s [00:53:08.015] } 1588s [00:53:08.015] }) 1588s [00:53:08.015] if (TRUE) { 1588s [00:53:08.015] base::sink(type = "output", split = FALSE) 1588s [00:53:08.015] if (TRUE) { 1588s [00:53:08.015] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1588s [00:53:08.015] } 1588s [00:53:08.015] else { 1588s [00:53:08.015] ...future.result["stdout"] <- base::list(NULL) 1588s [00:53:08.015] } 1588s [00:53:08.015] base::close(...future.stdout) 1588s [00:53:08.015] ...future.stdout <- NULL 1588s [00:53:08.015] } 1588s [00:53:08.015] ...future.result$conditions <- ...future.conditions 1588s [00:53:08.015] ...future.result$finished <- base::Sys.time() 1588s [00:53:08.015] ...future.result 1588s [00:53:08.015] } 1588s [00:53:08.018] assign_globals() ... 1588s [00:53:08.018] List of 11 1588s [00:53:08.018] $ ...future.FUN :function (x, ...) 1588s [00:53:08.018] $ x_FUN :function (x) 1588s [00:53:08.018] $ times : int 4 1588s [00:53:08.018] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1588s [00:53:08.018] $ stop_if_not :function (...) 1588s [00:53:08.018] $ dim : int [1:2] 2 2 1588s [00:53:08.018] $ valid_types : chr [1:3] "logical" "integer" "double" 1588s [00:53:08.018] $ future.call.arguments : list() 1588s [00:53:08.018] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1588s [00:53:08.018] $ ...future.elements_ii :List of 10 1588s [00:53:08.018] ..$ : int 1 1588s [00:53:08.018] ..$ : int 2 1588s [00:53:08.018] ..$ : int 3 1588s [00:53:08.018] ..$ : int 4 1588s [00:53:08.018] ..$ : int 5 1588s [00:53:08.018] ..$ : int 6 1588s [00:53:08.018] ..$ : int 7 1588s [00:53:08.018] ..$ : int 8 1588s [00:53:08.018] ..$ : int 9 1588s [00:53:08.018] ..$ : int 10 1588s [00:53:08.018] $ ...future.seeds_ii : NULL 1588s [00:53:08.018] $ ...future.globals.maxSize: NULL 1588s [00:53:08.018] - attr(*, "where")=List of 11 1588s [00:53:08.018] ..$ ...future.FUN : 1588s [00:53:08.018] ..$ x_FUN : 1588s [00:53:08.018] ..$ times : 1588s [00:53:08.018] ..$ stopf : 1588s [00:53:08.018] ..$ stop_if_not : 1588s [00:53:08.018] ..$ dim : 1588s [00:53:08.018] ..$ valid_types : 1588s [00:53:08.018] ..$ future.call.arguments : 1588s [00:53:08.018] ..$ ...future.elements_ii : 1588s [00:53:08.018] ..$ ...future.seeds_ii : 1588s [00:53:08.018] ..$ ...future.globals.maxSize: 1588s [00:53:08.018] - attr(*, "resolved")= logi FALSE 1588s [00:53:08.018] - attr(*, "total_size")= num 105552 1588s [00:53:08.018] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1588s [00:53:08.018] - attr(*, "already-done")= logi TRUE 1588s [00:53:08.033] - copied ‘...future.FUN’ to environment 1588s [00:53:08.033] - reassign environment for ‘x_FUN’ 1588s [00:53:08.033] - copied ‘x_FUN’ to environment 1588s [00:53:08.033] - copied ‘times’ to environment 1588s [00:53:08.033] - copied ‘stopf’ to environment 1588s [00:53:08.033] - copied ‘stop_if_not’ to environment 1588s [00:53:08.034] - copied ‘dim’ to environment 1588s [00:53:08.034] - copied ‘valid_types’ to environment 1588s [00:53:08.034] - copied ‘future.call.arguments’ to environment 1588s [00:53:08.034] - copied ‘...future.elements_ii’ to environment 1588s [00:53:08.034] - copied ‘...future.seeds_ii’ to environment 1588s [00:53:08.034] - copied ‘...future.globals.maxSize’ to environment 1588s [00:53:08.034] assign_globals() ... done 1588s [00:53:08.035] plan(): Setting new future strategy stack: 1588s [00:53:08.035] List of future strategies: 1588s [00:53:08.035] 1. sequential: 1588s [00:53:08.035] - args: function (..., envir = parent.frame()) 1588s [00:53:08.035] - tweaked: FALSE 1588s [00:53:08.035] - call: NULL 1588s [00:53:08.036] plan(): nbrOfWorkers() = 1 1588s [00:53:08.036] plan(): Setting new future strategy stack: 1588s [00:53:08.037] List of future strategies: 1588s [00:53:08.037] 1. multicore: 1588s [00:53:08.037] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1588s [00:53:08.037] - tweaked: FALSE 1588s [00:53:08.037] - call: plan(strategy) 1588s [00:53:08.040] plan(): nbrOfWorkers() = 1 1588s [00:53:08.040] SequentialFuture started (and completed) 1588s [00:53:08.040] - Launch lazy future ... done 1588s [00:53:08.040] run() for ‘SequentialFuture’ ... done 1588s [00:53:08.041] Created future: 1588s [00:53:08.041] SequentialFuture: 1588s [00:53:08.041] Label: ‘future_vapply-1’ 1588s [00:53:08.041] Expression: 1588s [00:53:08.041] { 1588s [00:53:08.041] do.call(function(...) { 1588s [00:53:08.041] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1588s [00:53:08.041] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1588s [00:53:08.041] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1588s [00:53:08.041] on.exit(options(oopts), add = TRUE) 1588s [00:53:08.041] } 1588s [00:53:08.041] { 1588s [00:53:08.041] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1588s [00:53:08.041] ...future.X_jj <- ...future.elements_ii[[jj]] 1588s [00:53:08.041] ...future.FUN(...future.X_jj, ...) 1588s [00:53:08.041] }) 1588s [00:53:08.041] } 1588s [00:53:08.041] }, args = future.call.arguments) 1588s [00:53:08.041] } 1588s [00:53:08.041] Lazy evaluation: FALSE 1588s [00:53:08.041] Asynchronous evaluation: FALSE 1588s [00:53:08.041] Local evaluation: TRUE 1588s [00:53:08.041] Environment: R_GlobalEnv 1588s [00:53:08.041] Capture standard output: TRUE 1588s [00:53:08.041] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1588s [00:53:08.041] Globals: 11 objects totaling 103.62 KiB (function ‘...future.FUN’ of 21.22 KiB, function ‘x_FUN’ of 10.95 KiB, integer ‘times’ of 56 bytes, function ‘stopf’ of 26.43 KiB, function ‘stop_if_not’ of 44.12 KiB, ...) 1588s [00:53:08.041] Packages: 1 packages (‘future.apply’) 1588s [00:53:08.041] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1588s [00:53:08.041] Resolved: TRUE 1588s [00:53:08.041] Value: 7.42 KiB of class ‘list’ 1588s [00:53:08.041] Early signaling: FALSE 1588s [00:53:08.041] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1588s [00:53:08.041] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1588s [00:53:08.042] Chunk #1 of 1 ... DONE 1588s [00:53:08.043] Launching 1 futures (chunks) ... DONE 1588s [00:53:08.043] Resolving 1 futures (chunks) ... 1588s [00:53:08.043] resolve() on list ... 1588s [00:53:08.043] recursive: 0 1588s [00:53:08.043] length: 1 1588s [00:53:08.043] 1588s [00:53:08.043] resolved() for ‘SequentialFuture’ ... 1588s [00:53:08.044] - state: ‘finished’ 1588s [00:53:08.044] - run: TRUE 1588s [00:53:08.044] - result: ‘FutureResult’ 1588s [00:53:08.044] resolved() for ‘SequentialFuture’ ... done 1588s [00:53:08.044] Future #1 1588s [00:53:08.044] signalConditionsASAP(SequentialFuture, pos=1) ... 1588s [00:53:08.045] - nx: 1 1588s [00:53:08.045] - relay: TRUE 1588s [00:53:08.045] - stdout: TRUE 1588s [00:53:08.045] - signal: TRUE 1588s [00:53:08.045] - resignal: FALSE 1588s [00:53:08.045] - force: TRUE 1588s [00:53:08.045] - relayed: [n=1] FALSE 1588s [00:53:08.045] - queued futures: [n=1] FALSE 1588s [00:53:08.046] - until=1 1588s [00:53:08.046] - relaying element #1 1588s [00:53:08.046] - relayed: [n=1] TRUE 1588s [00:53:08.046] - queued futures: [n=1] TRUE 1588s [00:53:08.048] signalConditionsASAP(SequentialFuture, pos=1) ... done 1588s [00:53:08.048] length: 0 (resolved future 1) 1588s [00:53:08.048] Relaying remaining futures 1588s [00:53:08.048] signalConditionsASAP(NULL, pos=0) ... 1588s [00:53:08.048] - nx: 1 1588s [00:53:08.048] - relay: TRUE 1588s [00:53:08.049] - stdout: TRUE 1588s [00:53:08.049] - signal: TRUE 1588s [00:53:08.049] - resignal: FALSE 1588s [00:53:08.049] - force: TRUE 1588s [00:53:08.049] - relayed: [n=1] TRUE 1588s [00:53:08.049] - queued futures: [n=1] TRUE 1588s - flush all 1588s [00:53:08.050] - relayed: [n=1] TRUE 1588s [00:53:08.050] - queued futures: [n=1] TRUE 1588s [00:53:08.050] signalConditionsASAP(NULL, pos=0) ... done 1588s [00:53:08.050] resolve() on list ... DONE 1588s [00:53:08.050] - Number of value chunks collected: 1 1588s [00:53:08.050] Resolving 1 futures (chunks) ... DONE 1588s [00:53:08.050] Reducing values from 1 chunks ... 1588s [00:53:08.051] - Number of values collected after concatenation: 10 1588s [00:53:08.051] - Number of values expected: 10 1588s [00:53:08.051] Reducing values from 1 chunks ... DONE 1588s [00:53:08.051] future_lapply() ... DONE 1588s int [1:2, 1:2, 1:10] 1 1 1 1 2 2 2 2 3 3 ... 1588s - attr(*, "dimnames")=List of 3 1588s ..$ : chr [1:2] "a" "b" 1588s ..$ : chr [1:2] "A" "B" 1588s ..$ : NULL 1588s - From example(vapply) ... 1588s [00:53:08.055] future_lapply() ... 1588s [00:53:08.060] Number of chunks: 1 1588s [00:53:08.060] getGlobalsAndPackagesXApply() ... 1588s [00:53:08.060] - future.globals: TRUE 1588s [00:53:08.060] getGlobalsAndPackages() ... 1588s [00:53:08.060] Searching for globals... 1588s [00:53:08.064] - globals found: [17] ‘FUN’, ‘{’, ‘<-’, ‘x_FUN’, ‘if’, ‘!=’, ‘length’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘all’, ‘==’, ‘dim’, ‘%in%’, ‘typeof’, ‘valid_types’, ‘UseMethod’ 1588s [00:53:08.065] Searching for globals ... DONE 1588s [00:53:08.065] Resolving globals: FALSE 1588s [00:53:08.066] The total size of the 7 globals is 93.29 KiB (95528 bytes) 1588s [00:53:08.066] The total size of the 7 globals exported for future expression (‘FUN()’) is 93.29 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘stop_if_not’ (44.12 KiB of class ‘function’), ‘stopf’ (26.43 KiB of class ‘function’) and ‘FUN’ (21.22 KiB of class ‘function’) 1588s [00:53:08.067] - globals: [7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1588s [00:53:08.067] - packages: [2] ‘stats’, ‘future.apply’ 1588s [00:53:08.067] getGlobalsAndPackages() ... DONE 1588s [00:53:08.067] - globals found/used: [n=7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1588s [00:53:08.067] - needed namespaces: [n=2] ‘stats’, ‘future.apply’ 1588s [00:53:08.067] Finding globals ... DONE 1588s [00:53:08.068] - use_args: TRUE 1588s [00:53:08.068] - Getting '...' globals ... 1588s [00:53:08.068] resolve() on list ... 1588s [00:53:08.068] recursive: 0 1588s [00:53:08.068] length: 1 1588s [00:53:08.069] elements: ‘...’ 1588s [00:53:08.069] length: 0 (resolved future 1) 1588s [00:53:08.069] resolve() on list ... DONE 1588s [00:53:08.069] - '...' content: [n=0] 1588s [00:53:08.069] List of 1 1588s [00:53:08.069] $ ...: list() 1588s [00:53:08.069] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1588s [00:53:08.069] - attr(*, "where")=List of 1 1588s [00:53:08.069] ..$ ...: 1588s [00:53:08.069] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1588s [00:53:08.069] - attr(*, "resolved")= logi TRUE 1588s [00:53:08.069] - attr(*, "total_size")= num NA 1588s [00:53:08.072] - Getting '...' globals ... DONE 1588s [00:53:08.072] Globals to be used in all futures (chunks): [n=8] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’ 1588s [00:53:08.073] List of 8 1588s [00:53:08.073] $ ...future.FUN:function (x, ...) 1588s [00:53:08.073] $ x_FUN :function (x, ...) 1588s [00:53:08.073] $ times : int 5 1588s [00:53:08.073] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1588s [00:53:08.073] $ stop_if_not :function (...) 1588s [00:53:08.073] $ dim : NULL 1588s [00:53:08.073] $ valid_types : chr [1:3] "logical" "integer" "double" 1588s [00:53:08.073] $ ... : list() 1588s [00:53:08.073] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1588s [00:53:08.073] - attr(*, "where")=List of 8 1588s [00:53:08.073] ..$ ...future.FUN: 1588s [00:53:08.073] ..$ x_FUN : 1588s [00:53:08.073] ..$ times : 1588s [00:53:08.073] ..$ stopf : 1588s [00:53:08.073] ..$ stop_if_not : 1588s [00:53:08.073] ..$ dim : 1588s [00:53:08.073] ..$ valid_types : 1588s [00:53:08.073] ..$ ... : 1588s [00:53:08.073] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1588s [00:53:08.073] - attr(*, "resolved")= logi FALSE 1588s [00:53:08.073] - attr(*, "total_size")= num 95528 1588s [00:53:08.081] Packages to be attached in all futures: [n=2] ‘stats’, ‘future.apply’ 1588s [00:53:08.082] getGlobalsAndPackagesXApply() ... DONE 1588s [00:53:08.082] Number of futures (= number of chunks): 1 1588s [00:53:08.082] Launching 1 futures (chunks) ... 1588s [00:53:08.082] Chunk #1 of 1 ... 1588s [00:53:08.082] - Finding globals in 'X' for chunk #1 ... 1588s [00:53:08.082] getGlobalsAndPackages() ... 1588s [00:53:08.083] Searching for globals... 1588s [00:53:08.083] 1588s [00:53:08.083] Searching for globals ... DONE 1588s [00:53:08.083] - globals: [0] 1588s [00:53:08.083] getGlobalsAndPackages() ... DONE 1588s [00:53:08.084] + additional globals found: [n=0] 1588s [00:53:08.084] + additional namespaces needed: [n=0] 1588s [00:53:08.084] - Finding globals in 'X' for chunk #1 ... DONE 1588s [00:53:08.084] - seeds: 1588s [00:53:08.084] - All globals exported: [n=11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1588s [00:53:08.084] getGlobalsAndPackages() ... 1588s [00:53:08.084] - globals passed as-is: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1588s [00:53:08.085] Resolving globals: FALSE 1588s [00:53:08.085] Tweak future expression to call with '...' arguments ... 1588s [00:53:08.085] { 1588s [00:53:08.085] do.call(function(...) { 1588s [00:53:08.085] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1588s [00:53:08.085] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1588s [00:53:08.085] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1588s [00:53:08.085] on.exit(options(oopts), add = TRUE) 1588s [00:53:08.085] } 1588s [00:53:08.085] { 1588s [00:53:08.085] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1588s [00:53:08.085] ...future.X_jj <- ...future.elements_ii[[jj]] 1588s [00:53:08.085] ...future.FUN(...future.X_jj, ...) 1588s [00:53:08.085] }) 1588s [00:53:08.085] } 1588s [00:53:08.085] }, args = future.call.arguments) 1588s [00:53:08.085] } 1588s [00:53:08.085] Tweak future expression to call with '...' arguments ... DONE 1588s [00:53:08.086] - globals: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1588s [00:53:08.086] - packages: [2] ‘stats’, ‘future.apply’ 1588s [00:53:08.087] getGlobalsAndPackages() ... DONE 1588s [00:53:08.087] run() for ‘Future’ ... 1588s [00:53:08.087] - state: ‘created’ 1588s [00:53:08.087] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1588s [00:53:08.091] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1588s [00:53:08.091] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1588s [00:53:08.091] - Field: ‘label’ 1588s [00:53:08.091] - Field: ‘local’ 1588s [00:53:08.091] - Field: ‘owner’ 1588s [00:53:08.091] - Field: ‘envir’ 1588s [00:53:08.092] - Field: ‘packages’ 1588s [00:53:08.092] - Field: ‘gc’ 1588s [00:53:08.092] - Field: ‘conditions’ 1588s [00:53:08.092] - Field: ‘expr’ 1588s [00:53:08.092] - Field: ‘uuid’ 1588s [00:53:08.092] - Field: ‘seed’ 1588s [00:53:08.092] - Field: ‘version’ 1588s [00:53:08.093] - Field: ‘result’ 1588s [00:53:08.093] - Field: ‘asynchronous’ 1588s [00:53:08.093] - Field: ‘calls’ 1588s [00:53:08.093] - Field: ‘globals’ 1588s [00:53:08.093] - Field: ‘stdout’ 1588s [00:53:08.093] - Field: ‘earlySignal’ 1588s [00:53:08.094] - Field: ‘lazy’ 1588s [00:53:08.094] - Field: ‘state’ 1588s [00:53:08.094] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1588s [00:53:08.094] - Launch lazy future ... 1588s [00:53:08.094] Packages needed by the future expression (n = 2): ‘stats’, ‘future.apply’ 1588s [00:53:08.095] Packages needed by future strategies (n = 0): 1588s [00:53:08.095] { 1588s [00:53:08.095] { 1588s [00:53:08.095] { 1588s [00:53:08.095] ...future.startTime <- base::Sys.time() 1588s [00:53:08.095] { 1588s [00:53:08.095] { 1588s [00:53:08.095] { 1588s [00:53:08.095] { 1588s [00:53:08.095] base::local({ 1588s [00:53:08.095] has_future <- base::requireNamespace("future", 1588s [00:53:08.095] quietly = TRUE) 1588s [00:53:08.095] if (has_future) { 1588s [00:53:08.095] ns <- base::getNamespace("future") 1588s [00:53:08.095] version <- ns[[".package"]][["version"]] 1588s [00:53:08.095] if (is.null(version)) 1588s [00:53:08.095] version <- utils::packageVersion("future") 1588s [00:53:08.095] } 1588s [00:53:08.095] else { 1588s [00:53:08.095] version <- NULL 1588s [00:53:08.095] } 1588s [00:53:08.095] if (!has_future || version < "1.8.0") { 1588s [00:53:08.095] info <- base::c(r_version = base::gsub("R version ", 1588s [00:53:08.095] "", base::R.version$version.string), 1588s [00:53:08.095] platform = base::sprintf("%s (%s-bit)", 1588s [00:53:08.095] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1588s [00:53:08.095] os = base::paste(base::Sys.info()[base::c("sysname", 1588s [00:53:08.095] "release", "version")], collapse = " "), 1588s [00:53:08.095] hostname = base::Sys.info()[["nodename"]]) 1588s [00:53:08.095] info <- base::sprintf("%s: %s", base::names(info), 1588s [00:53:08.095] info) 1588s [00:53:08.095] info <- base::paste(info, collapse = "; ") 1588s [00:53:08.095] if (!has_future) { 1588s [00:53:08.095] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1588s [00:53:08.095] info) 1588s [00:53:08.095] } 1588s [00:53:08.095] else { 1588s [00:53:08.095] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1588s [00:53:08.095] info, version) 1588s [00:53:08.095] } 1588s [00:53:08.095] base::stop(msg) 1588s [00:53:08.095] } 1588s [00:53:08.095] }) 1588s [00:53:08.095] } 1588s [00:53:08.095] base::local({ 1588s [00:53:08.095] for (pkg in c("stats", "future.apply")) { 1588s [00:53:08.095] base::loadNamespace(pkg) 1588s [00:53:08.095] base::library(pkg, character.only = TRUE) 1588s [00:53:08.095] } 1588s [00:53:08.095] }) 1588s [00:53:08.095] } 1588s [00:53:08.095] options(future.plan = NULL) 1588s [00:53:08.095] Sys.unsetenv("R_FUTURE_PLAN") 1588s [00:53:08.095] future::plan("default", .cleanup = FALSE, .init = FALSE) 1588s [00:53:08.095] } 1588s [00:53:08.095] ...future.workdir <- getwd() 1588s [00:53:08.095] } 1588s [00:53:08.095] ...future.oldOptions <- base::as.list(base::.Options) 1588s [00:53:08.095] ...future.oldEnvVars <- base::Sys.getenv() 1588s [00:53:08.095] } 1588s [00:53:08.095] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1588s [00:53:08.095] future.globals.maxSize = NULL, future.globals.method = NULL, 1588s [00:53:08.095] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1588s [00:53:08.095] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1588s [00:53:08.095] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1588s [00:53:08.095] future.stdout.windows.reencode = NULL, width = 80L) 1588s [00:53:08.095] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1588s [00:53:08.095] base::names(...future.oldOptions)) 1588s [00:53:08.095] } 1588s [00:53:08.095] if (FALSE) { 1588s [00:53:08.095] } 1588s [00:53:08.095] else { 1588s [00:53:08.095] if (TRUE) { 1588s [00:53:08.095] ...future.stdout <- base::rawConnection(base::raw(0L), 1588s [00:53:08.095] open = "w") 1588s [00:53:08.095] } 1588s [00:53:08.095] else { 1588s [00:53:08.095] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1588s [00:53:08.095] windows = "NUL", "/dev/null"), open = "w") 1588s [00:53:08.095] } 1588s [00:53:08.095] base::sink(...future.stdout, type = "output", split = FALSE) 1588s [00:53:08.095] base::on.exit(if (!base::is.null(...future.stdout)) { 1588s [00:53:08.095] base::sink(type = "output", split = FALSE) 1588s [00:53:08.095] base::close(...future.stdout) 1588s [00:53:08.095] }, add = TRUE) 1588s [00:53:08.095] } 1588s [00:53:08.095] ...future.frame <- base::sys.nframe() 1588s [00:53:08.095] ...future.conditions <- base::list() 1588s [00:53:08.095] ...future.rng <- base::globalenv()$.Random.seed 1588s [00:53:08.095] if (FALSE) { 1588s [00:53:08.095] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1588s [00:53:08.095] "...future.value", "...future.globalenv.names", ".Random.seed") 1588s [00:53:08.095] } 1588s [00:53:08.095] ...future.result <- base::tryCatch({ 1588s [00:53:08.095] base::withCallingHandlers({ 1588s [00:53:08.095] ...future.value <- base::withVisible(base::local({ 1588s [00:53:08.095] do.call(function(...) { 1588s [00:53:08.095] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1588s [00:53:08.095] if (!identical(...future.globals.maxSize.org, 1588s [00:53:08.095] ...future.globals.maxSize)) { 1588s [00:53:08.095] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1588s [00:53:08.095] on.exit(options(oopts), add = TRUE) 1588s [00:53:08.095] } 1588s [00:53:08.095] { 1588s [00:53:08.095] lapply(seq_along(...future.elements_ii), 1588s [00:53:08.095] FUN = function(jj) { 1588s [00:53:08.095] ...future.X_jj <- ...future.elements_ii[[jj]] 1588s [00:53:08.095] ...future.FUN(...future.X_jj, ...) 1588s [00:53:08.095] }) 1588s [00:53:08.095] } 1588s [00:53:08.095] }, args = future.call.arguments) 1588s [00:53:08.095] })) 1588s [00:53:08.095] future::FutureResult(value = ...future.value$value, 1588s [00:53:08.095] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1588s [00:53:08.095] ...future.rng), globalenv = if (FALSE) 1588s [00:53:08.095] list(added = base::setdiff(base::names(base::.GlobalEnv), 1588s [00:53:08.095] ...future.globalenv.names)) 1588s [00:53:08.095] else NULL, started = ...future.startTime, version = "1.8") 1588s [00:53:08.095] }, condition = base::local({ 1588s [00:53:08.095] c <- base::c 1588s [00:53:08.095] inherits <- base::inherits 1588s [00:53:08.095] invokeRestart <- base::invokeRestart 1588s [00:53:08.095] length <- base::length 1588s [00:53:08.095] list <- base::list 1588s [00:53:08.095] seq.int <- base::seq.int 1588s [00:53:08.095] signalCondition <- base::signalCondition 1588s [00:53:08.095] sys.calls <- base::sys.calls 1588s [00:53:08.095] `[[` <- base::`[[` 1588s [00:53:08.095] `+` <- base::`+` 1588s [00:53:08.095] `<<-` <- base::`<<-` 1588s [00:53:08.095] sysCalls <- function(calls = sys.calls(), from = 1L) { 1588s [00:53:08.095] calls[seq.int(from = from + 12L, to = length(calls) - 1588s [00:53:08.095] 3L)] 1588s [00:53:08.095] } 1588s [00:53:08.095] function(cond) { 1588s [00:53:08.095] is_error <- inherits(cond, "error") 1588s [00:53:08.095] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1588s [00:53:08.095] NULL) 1588s [00:53:08.095] if (is_error) { 1588s [00:53:08.095] sessionInformation <- function() { 1588s [00:53:08.095] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1588s [00:53:08.095] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1588s [00:53:08.095] search = base::search(), system = base::Sys.info()) 1588s [00:53:08.095] } 1588s [00:53:08.095] ...future.conditions[[length(...future.conditions) + 1588s [00:53:08.095] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1588s [00:53:08.095] cond$call), session = sessionInformation(), 1588s [00:53:08.095] timestamp = base::Sys.time(), signaled = 0L) 1588s [00:53:08.095] signalCondition(cond) 1588s [00:53:08.095] } 1588s [00:53:08.095] else if (!ignore && TRUE && inherits(cond, c("condition", 1588s [00:53:08.095] "immediateCondition"))) { 1588s [00:53:08.095] signal <- TRUE && inherits(cond, "immediateCondition") 1588s [00:53:08.095] ...future.conditions[[length(...future.conditions) + 1588s [00:53:08.095] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1588s [00:53:08.095] if (TRUE && !signal) { 1588s [00:53:08.095] muffleCondition <- function (cond, pattern = "^muffle") 1588s [00:53:08.095] { 1588s [00:53:08.095] inherits <- base::inherits 1588s [00:53:08.095] invokeRestart <- base::invokeRestart 1588s [00:53:08.095] is.null <- base::is.null 1588s [00:53:08.095] muffled <- FALSE 1588s [00:53:08.095] if (inherits(cond, "message")) { 1588s [00:53:08.095] muffled <- grepl(pattern, "muffleMessage") 1588s [00:53:08.095] if (muffled) 1588s [00:53:08.095] invokeRestart("muffleMessage") 1588s [00:53:08.095] } 1588s [00:53:08.095] else if (inherits(cond, "warning")) { 1588s [00:53:08.095] muffled <- grepl(pattern, "muffleWarning") 1588s [00:53:08.095] if (muffled) 1588s [00:53:08.095] invokeRestart("muffleWarning") 1588s [00:53:08.095] } 1588s [00:53:08.095] else if (inherits(cond, "condition")) { 1588s [00:53:08.095] if (!is.null(pattern)) { 1588s [00:53:08.095] computeRestarts <- base::computeRestarts 1588s [00:53:08.095] grepl <- base::grepl 1588s [00:53:08.095] restarts <- computeRestarts(cond) 1588s [00:53:08.095] for (restart in restarts) { 1588s [00:53:08.095] name <- restart$name 1588s [00:53:08.095] if (is.null(name)) 1588s [00:53:08.095] next 1588s [00:53:08.095] if (!grepl(pattern, name)) 1588s [00:53:08.095] next 1588s [00:53:08.095] invokeRestart(restart) 1588s [00:53:08.095] muffled <- TRUE 1588s [00:53:08.095] break 1588s [00:53:08.095] } 1588s [00:53:08.095] } 1588s [00:53:08.095] } 1588s [00:53:08.095] invisible(muffled) 1588s [00:53:08.095] } 1588s [00:53:08.095] muffleCondition(cond, pattern = "^muffle") 1588s [00:53:08.095] } 1588s [00:53:08.095] } 1588s [00:53:08.095] else { 1588s [00:53:08.095] if (TRUE) { 1588s [00:53:08.095] muffleCondition <- function (cond, pattern = "^muffle") 1588s [00:53:08.095] { 1588s [00:53:08.095] inherits <- base::inherits 1588s [00:53:08.095] invokeRestart <- base::invokeRestart 1588s [00:53:08.095] is.null <- base::is.null 1588s [00:53:08.095] muffled <- FALSE 1588s [00:53:08.095] if (inherits(cond, "message")) { 1588s [00:53:08.095] muffled <- grepl(pattern, "muffleMessage") 1588s [00:53:08.095] if (muffled) 1588s [00:53:08.095] invokeRestart("muffleMessage") 1588s [00:53:08.095] } 1588s [00:53:08.095] else if (inherits(cond, "warning")) { 1588s [00:53:08.095] muffled <- grepl(pattern, "muffleWarning") 1588s [00:53:08.095] if (muffled) 1588s [00:53:08.095] invokeRestart("muffleWarning") 1588s [00:53:08.095] } 1588s [00:53:08.095] else if (inherits(cond, "condition")) { 1588s [00:53:08.095] if (!is.null(pattern)) { 1588s [00:53:08.095] computeRestarts <- base::computeRestarts 1588s [00:53:08.095] grepl <- base::grepl 1588s [00:53:08.095] restarts <- computeRestarts(cond) 1588s [00:53:08.095] for (restart in restarts) { 1588s [00:53:08.095] name <- restart$name 1588s [00:53:08.095] if (is.null(name)) 1588s [00:53:08.095] next 1588s [00:53:08.095] if (!grepl(pattern, name)) 1588s [00:53:08.095] next 1588s [00:53:08.095] invokeRestart(restart) 1588s [00:53:08.095] muffled <- TRUE 1588s [00:53:08.095] break 1588s [00:53:08.095] } 1588s [00:53:08.095] } 1588s [00:53:08.095] } 1588s [00:53:08.095] invisible(muffled) 1588s [00:53:08.095] } 1588s [00:53:08.095] muffleCondition(cond, pattern = "^muffle") 1588s [00:53:08.095] } 1588s [00:53:08.095] } 1588s [00:53:08.095] } 1588s [00:53:08.095] })) 1588s [00:53:08.095] }, error = function(ex) { 1588s [00:53:08.095] base::structure(base::list(value = NULL, visible = NULL, 1588s [00:53:08.095] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1588s [00:53:08.095] ...future.rng), started = ...future.startTime, 1588s [00:53:08.095] finished = Sys.time(), session_uuid = NA_character_, 1588s [00:53:08.095] version = "1.8"), class = "FutureResult") 1588s [00:53:08.095] }, finally = { 1588s [00:53:08.095] if (!identical(...future.workdir, getwd())) 1588s [00:53:08.095] setwd(...future.workdir) 1588s [00:53:08.095] { 1588s [00:53:08.095] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1588s [00:53:08.095] ...future.oldOptions$nwarnings <- NULL 1588s [00:53:08.095] } 1588s [00:53:08.095] base::options(...future.oldOptions) 1588s [00:53:08.095] if (.Platform$OS.type == "windows") { 1588s [00:53:08.095] old_names <- names(...future.oldEnvVars) 1588s [00:53:08.095] envs <- base::Sys.getenv() 1588s [00:53:08.095] names <- names(envs) 1588s [00:53:08.095] common <- intersect(names, old_names) 1588s [00:53:08.095] added <- setdiff(names, old_names) 1588s [00:53:08.095] removed <- setdiff(old_names, names) 1588s [00:53:08.095] changed <- common[...future.oldEnvVars[common] != 1588s [00:53:08.095] envs[common]] 1588s [00:53:08.095] NAMES <- toupper(changed) 1588s [00:53:08.095] args <- list() 1588s [00:53:08.095] for (kk in seq_along(NAMES)) { 1588s [00:53:08.095] name <- changed[[kk]] 1588s [00:53:08.095] NAME <- NAMES[[kk]] 1588s [00:53:08.095] if (name != NAME && is.element(NAME, old_names)) 1588s [00:53:08.095] next 1588s [00:53:08.095] args[[name]] <- ...future.oldEnvVars[[name]] 1588s [00:53:08.095] } 1588s [00:53:08.095] NAMES <- toupper(added) 1588s [00:53:08.095] for (kk in seq_along(NAMES)) { 1588s [00:53:08.095] name <- added[[kk]] 1588s [00:53:08.095] NAME <- NAMES[[kk]] 1588s [00:53:08.095] if (name != NAME && is.element(NAME, old_names)) 1588s [00:53:08.095] next 1588s [00:53:08.095] args[[name]] <- "" 1588s [00:53:08.095] } 1588s [00:53:08.095] NAMES <- toupper(removed) 1588s [00:53:08.095] for (kk in seq_along(NAMES)) { 1588s [00:53:08.095] name <- removed[[kk]] 1588s [00:53:08.095] NAME <- NAMES[[kk]] 1588s [00:53:08.095] if (name != NAME && is.element(NAME, old_names)) 1588s [00:53:08.095] next 1588s [00:53:08.095] args[[name]] <- ...future.oldEnvVars[[name]] 1588s [00:53:08.095] } 1588s [00:53:08.095] if (length(args) > 0) 1588s [00:53:08.095] base::do.call(base::Sys.setenv, args = args) 1588s [00:53:08.095] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1588s [00:53:08.095] } 1588s [00:53:08.095] else { 1588s [00:53:08.095] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1588s [00:53:08.095] } 1588s [00:53:08.095] { 1588s [00:53:08.095] if (base::length(...future.futureOptionsAdded) > 1588s [00:53:08.095] 0L) { 1588s [00:53:08.095] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1588s [00:53:08.095] base::names(opts) <- ...future.futureOptionsAdded 1588s [00:53:08.095] base::options(opts) 1588s [00:53:08.095] } 1588s [00:53:08.095] { 1588s [00:53:08.095] { 1588s [00:53:08.095] NULL 1588s [00:53:08.095] RNGkind("Mersenne-Twister") 1588s [00:53:08.095] base::rm(list = ".Random.seed", envir = base::globalenv(), 1588s [00:53:08.095] inherits = FALSE) 1588s [00:53:08.095] } 1588s [00:53:08.095] options(future.plan = NULL) 1588s [00:53:08.095] if (is.na(NA_character_)) 1588s [00:53:08.095] Sys.unsetenv("R_FUTURE_PLAN") 1588s [00:53:08.095] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1588s [00:53:08.095] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1588s [00:53:08.095] envir = parent.frame()) 1588s [00:53:08.095] { 1588s [00:53:08.095] default_workers <- missing(workers) 1588s [00:53:08.095] if (is.function(workers)) 1588s [00:53:08.095] workers <- workers() 1588s [00:53:08.095] workers <- structure(as.integer(workers), 1588s [00:53:08.095] class = class(workers)) 1588s [00:53:08.095] stop_if_not(is.finite(workers), workers >= 1588s [00:53:08.095] 1L) 1588s [00:53:08.095] if ((workers == 1L && !inherits(workers, 1588s [00:53:08.095] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1588s [00:53:08.095] if (default_workers) 1588s [00:53:08.095] supportsMulticore(warn = TRUE) 1588s [00:53:08.095] return(sequential(..., envir = envir)) 1588s [00:53:08.095] } 1588s [00:53:08.095] oopts <- options(mc.cores = workers) 1588s [00:53:08.095] on.exit(options(oopts)) 1588s [00:53:08.095] future <- MulticoreFuture(..., workers = workers, 1588s [00:53:08.095] envir = envir) 1588s [00:53:08.095] if (!future$lazy) 1588s [00:53:08.095] future <- run(future) 1588s [00:53:08.095] invisible(future) 1588s [00:53:08.095] }), .cleanup = FALSE, .init = FALSE) 1588s [00:53:08.095] } 1588s [00:53:08.095] } 1588s [00:53:08.095] } 1588s [00:53:08.095] }) 1588s [00:53:08.095] if (TRUE) { 1588s [00:53:08.095] base::sink(type = "output", split = FALSE) 1588s [00:53:08.095] if (TRUE) { 1588s [00:53:08.095] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1588s [00:53:08.095] } 1588s [00:53:08.095] else { 1588s [00:53:08.095] ...future.result["stdout"] <- base::list(NULL) 1588s [00:53:08.095] } 1588s [00:53:08.095] base::close(...future.stdout) 1588s [00:53:08.095] ...future.stdout <- NULL 1588s [00:53:08.095] } 1588s [00:53:08.095] ...future.result$conditions <- ...future.conditions 1588s [00:53:08.095] ...future.result$finished <- base::Sys.time() 1588s [00:53:08.095] ...future.result 1588s [00:53:08.095] } 1588s [00:53:08.099] assign_globals() ... 1588s [00:53:08.099] List of 11 1588s [00:53:08.099] $ ...future.FUN :function (x, ...) 1588s [00:53:08.099] $ x_FUN :function (x, ...) 1588s [00:53:08.099] $ times : int 5 1588s [00:53:08.099] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1588s [00:53:08.099] $ stop_if_not :function (...) 1588s [00:53:08.099] $ dim : NULL 1588s [00:53:08.099] $ valid_types : chr [1:3] "logical" "integer" "double" 1588s [00:53:08.099] $ future.call.arguments : list() 1588s [00:53:08.099] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1588s [00:53:08.099] $ ...future.elements_ii :List of 3 1588s [00:53:08.099] ..$ a : int [1:10] 1 2 3 4 5 6 7 8 9 10 1588s [00:53:08.099] ..$ beta : num [1:7] 0.0498 0.1353 0.3679 1 2.7183 ... 1588s [00:53:08.099] ..$ logic: logi [1:4] TRUE FALSE FALSE TRUE 1588s [00:53:08.099] $ ...future.seeds_ii : NULL 1588s [00:53:08.099] $ ...future.globals.maxSize: NULL 1588s [00:53:08.099] - attr(*, "where")=List of 11 1588s [00:53:08.099] ..$ ...future.FUN : 1588s [00:53:08.099] ..$ x_FUN : 1588s [00:53:08.099] ..$ times : 1588s [00:53:08.099] ..$ stopf : 1588s [00:53:08.099] ..$ stop_if_not : 1588s [00:53:08.099] ..$ dim : 1588s [00:53:08.099] ..$ valid_types : 1588s [00:53:08.099] ..$ future.call.arguments : 1588s [00:53:08.099] ..$ ...future.elements_ii : 1588s [00:53:08.099] ..$ ...future.seeds_ii : 1588s [00:53:08.099] ..$ ...future.globals.maxSize: 1588s [00:53:08.099] - attr(*, "resolved")= logi FALSE 1588s [00:53:08.099] - attr(*, "total_size")= num 95528 1588s [00:53:08.099] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1588s [00:53:08.099] - attr(*, "already-done")= logi TRUE 1588s [00:53:08.114] - copied ‘...future.FUN’ to environment 1588s [00:53:08.115] - copied ‘x_FUN’ to environment 1588s [00:53:08.115] - copied ‘times’ to environment 1588s [00:53:08.115] - copied ‘stopf’ to environment 1588s [00:53:08.115] - copied ‘stop_if_not’ to environment 1588s [00:53:08.115] - copied ‘dim’ to environment 1588s [00:53:08.115] - copied ‘valid_types’ to environment 1588s [00:53:08.115] - copied ‘future.call.arguments’ to environment 1588s [00:53:08.115] - copied ‘...future.elements_ii’ to environment 1588s [00:53:08.116] - copied ‘...future.seeds_ii’ to environment 1588s [00:53:08.116] - copied ‘...future.globals.maxSize’ to environment 1588s [00:53:08.116] assign_globals() ... done 1588s [00:53:08.116] plan(): Setting new future strategy stack: 1588s [00:53:08.116] List of future strategies: 1588s [00:53:08.116] 1. sequential: 1588s [00:53:08.116] - args: function (..., envir = parent.frame()) 1588s [00:53:08.116] - tweaked: FALSE 1588s [00:53:08.116] - call: NULL 1588s [00:53:08.117] plan(): nbrOfWorkers() = 1 1588s [00:53:08.119] plan(): Setting new future strategy stack: 1588s [00:53:08.119] List of future strategies: 1588s [00:53:08.119] 1. multicore: 1588s [00:53:08.119] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1588s [00:53:08.119] - tweaked: FALSE 1588s [00:53:08.119] - call: plan(strategy) 1588s [00:53:08.122] plan(): nbrOfWorkers() = 1 1588s [00:53:08.123] SequentialFuture started (and completed) 1588s [00:53:08.123] - Launch lazy future ... done 1588s [00:53:08.123] run() for ‘SequentialFuture’ ... done 1588s [00:53:08.123] Created future: 1588s [00:53:08.123] SequentialFuture: 1588s [00:53:08.123] Label: ‘future_vapply-1’ 1588s [00:53:08.123] Expression: 1588s [00:53:08.123] { 1588s [00:53:08.123] do.call(function(...) { 1588s [00:53:08.123] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1588s [00:53:08.123] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1588s [00:53:08.123] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1588s [00:53:08.123] on.exit(options(oopts), add = TRUE) 1588s [00:53:08.123] } 1588s [00:53:08.123] { 1588s [00:53:08.123] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1588s [00:53:08.123] ...future.X_jj <- ...future.elements_ii[[jj]] 1588s [00:53:08.123] ...future.FUN(...future.X_jj, ...) 1588s [00:53:08.123] }) 1588s [00:53:08.123] } 1588s [00:53:08.123] }, args = future.call.arguments) 1588s [00:53:08.123] } 1588s [00:53:08.123] Lazy evaluation: FALSE 1588s [00:53:08.123] Asynchronous evaluation: FALSE 1588s [00:53:08.123] Local evaluation: TRUE 1588s [00:53:08.123] Environment: R_GlobalEnv 1588s [00:53:08.123] Capture standard output: TRUE 1588s [00:53:08.123] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1588s [00:53:08.123] Globals: 11 objects totaling 93.55 KiB (function ‘...future.FUN’ of 21.22 KiB, function ‘x_FUN’ of 1.22 KiB, integer ‘times’ of 56 bytes, function ‘stopf’ of 26.43 KiB, function ‘stop_if_not’ of 44.12 KiB, ...) 1588s [00:53:08.123] Packages: 2 packages (‘stats’, ‘future.apply’) 1588s [00:53:08.123] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1588s [00:53:08.123] Resolved: TRUE 1588s [00:53:08.123] Value: 1.71 KiB of class ‘list’ 1588s [00:53:08.123] Early signaling: FALSE 1588s [00:53:08.123] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1588s [00:53:08.123] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1588s [00:53:08.125] Chunk #1 of 1 ... DONE 1588s [00:53:08.125] Launching 1 futures (chunks) ... DONE 1588s [00:53:08.125] Resolving 1 futures (chunks) ... 1588s [00:53:08.126] resolve() on list ... 1588s [00:53:08.126] recursive: 0 1588s [00:53:08.126] length: 1 1588s [00:53:08.126] 1588s [00:53:08.126] resolved() for ‘SequentialFuture’ ... 1588s [00:53:08.126] - state: ‘finished’ 1588s [00:53:08.126] - run: TRUE 1588s [00:53:08.127] - result: ‘FutureResult’ 1588s [00:53:08.127] resolved() for ‘SequentialFuture’ ... done 1588s [00:53:08.127] Future #1 1588s [00:53:08.127] signalConditionsASAP(SequentialFuture, pos=1) ... 1588s [00:53:08.127] - nx: 1 1588s [00:53:08.127] - relay: TRUE 1588s [00:53:08.128] - stdout: TRUE 1588s [00:53:08.128] - signal: TRUE 1588s [00:53:08.128] - resignal: FALSE 1588s [00:53:08.128] - force: TRUE 1588s [00:53:08.128] - relayed: [n=1] FALSE 1588s [00:53:08.128] - queued futures: [n=1] FALSE 1588s [00:53:08.128] - until=1 1588s [00:53:08.128] - relaying element #1 1588s [00:53:08.129] - relayed: [n=1] TRUE 1588s [00:53:08.129] - queued futures: [n=1] TRUE 1588s [00:53:08.129] signalConditionsASAP(SequentialFuture, pos=1) ... done 1588s [00:53:08.129] length: 0 (resolved future 1) 1588s [00:53:08.129] Relaying remaining futures 1588s [00:53:08.129] signalConditionsASAP(NULL, pos=0) ... 1588s [00:53:08.130] - nx: 1 1588s [00:53:08.130] - relay: TRUE 1588s [00:53:08.130] - stdout: TRUE 1588s [00:53:08.130] - signal: TRUE 1588s [00:53:08.130] - resignal: FALSE 1588s [00:53:08.130] - force: TRUE 1588s [00:53:08.130] - relayed: [n=1] TRUE 1588s [00:53:08.131] - queued futures: [n=1] TRUE 1588s - flush all 1588s [00:53:08.131] - relayed: [n=1] TRUE 1588s [00:53:08.131] - queued futures: [n=1] TRUE 1588s [00:53:08.131] signalConditionsASAP(NULL, pos=0) ... done 1588s [00:53:08.131] resolve() on list ... DONE 1588s [00:53:08.131] - Number of value chunks collected: 1 1588s [00:53:08.132] Resolving 1 futures (chunks) ... DONE 1588s [00:53:08.132] Reducing values from 1 chunks ... 1588s [00:53:08.132] - Number of values collected after concatenation: 3 1588s [00:53:08.132] - Number of values expected: 3 1588s [00:53:08.133] Reducing values from 1 chunks ... DONE 1588s [00:53:08.133] future_lapply() ... DONE 1588s num [1:5, 1:3] 1 3.25 5.5 7.75 10 ... 1588s - attr(*, "dimnames")=List of 2 1588s ..$ : chr [1:5] "0%" "25%" "50%" "75%" ... 1588s ..$ : chr [1:3] "a" "beta" "logic" 1588s [00:53:08.135] future_lapply() ... 1588s [00:53:08.146] Number of chunks: 1 1588s [00:53:08.146] getGlobalsAndPackagesXApply() ... 1588s [00:53:08.146] - future.globals: TRUE 1588s [00:53:08.147] getGlobalsAndPackages() ... 1588s [00:53:08.147] Searching for globals... 1588s [00:53:08.155] - globals found: [21] ‘FUN’, ‘{’, ‘<-’, ‘is.na’, ‘if’, ‘any’, ‘[’, ‘!’, ‘return’, ‘rep.int’, ‘sort’, ‘length’, ‘==’, ‘/’, ‘floor’, ‘(’, ‘+’, ‘c’, ‘-’, ‘*’, ‘ceiling’ 1588s [00:53:08.155] Searching for globals ... DONE 1588s [00:53:08.155] Resolving globals: FALSE 1588s [00:53:08.157] The total size of the 1 globals is 45.86 KiB (46960 bytes) 1588s [00:53:08.158] The total size of the 1 globals exported for future expression (‘FUN()’) is 45.86 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (45.86 KiB of class ‘function’) 1588s [00:53:08.158] - globals: [1] ‘FUN’ 1588s [00:53:08.158] - packages: [1] ‘stats’ 1588s [00:53:08.158] getGlobalsAndPackages() ... DONE 1588s [00:53:08.158] - globals found/used: [n=1] ‘FUN’ 1588s [00:53:08.158] - needed namespaces: [n=1] ‘stats’ 1588s [00:53:08.159] Finding globals ... DONE 1588s [00:53:08.159] - use_args: TRUE 1588s [00:53:08.159] - Getting '...' globals ... 1588s [00:53:08.159] resolve() on list ... 1588s [00:53:08.159] recursive: 0 1588s [00:53:08.160] length: 1 1588s [00:53:08.160] elements: ‘...’ 1588s [00:53:08.160] length: 0 (resolved future 1) 1588s [00:53:08.160] resolve() on list ... DONE 1588s [00:53:08.161] - '...' content: [n=0] 1588s [00:53:08.161] List of 1 1588s [00:53:08.161] $ ...: list() 1588s [00:53:08.161] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1588s [00:53:08.161] - attr(*, "where")=List of 1 1588s [00:53:08.161] ..$ ...: 1588s [00:53:08.161] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1588s [00:53:08.161] - attr(*, "resolved")= logi TRUE 1588s [00:53:08.161] - attr(*, "total_size")= num NA 1588s [00:53:08.164] - Getting '...' globals ... DONE 1588s [00:53:08.164] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1588s [00:53:08.165] List of 2 1588s [00:53:08.165] $ ...future.FUN:function (x, na.rm = TRUE) 1588s [00:53:08.165] $ ... : list() 1588s [00:53:08.165] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1588s [00:53:08.165] - attr(*, "where")=List of 2 1588s [00:53:08.165] ..$ ...future.FUN: 1588s [00:53:08.165] ..$ ... : 1588s [00:53:08.165] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1588s [00:53:08.165] - attr(*, "resolved")= logi FALSE 1588s [00:53:08.165] - attr(*, "total_size")= num 46960 1588s [00:53:08.168] Packages to be attached in all futures: [n=1] ‘stats’ 1588s [00:53:08.168] getGlobalsAndPackagesXApply() ... DONE 1588s [00:53:08.168] Number of futures (= number of chunks): 1 1588s [00:53:08.168] Launching 1 futures (chunks) ... 1588s [00:53:08.169] Chunk #1 of 1 ... 1588s [00:53:08.169] - Finding globals in 'X' for chunk #1 ... 1588s [00:53:08.169] getGlobalsAndPackages() ... 1588s [00:53:08.169] Searching for globals... 1588s [00:53:08.170] 1588s [00:53:08.170] Searching for globals ... DONE 1588s [00:53:08.170] - globals: [0] 1588s [00:53:08.170] getGlobalsAndPackages() ... DONE 1588s [00:53:08.171] + additional globals found: [n=0] 1588s [00:53:08.171] + additional namespaces needed: [n=0] 1588s [00:53:08.171] - Finding globals in 'X' for chunk #1 ... DONE 1588s [00:53:08.171] - seeds: 1588s [00:53:08.171] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1588s [00:53:08.171] getGlobalsAndPackages() ... 1588s [00:53:08.171] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1588s [00:53:08.172] Resolving globals: FALSE 1588s [00:53:08.172] Tweak future expression to call with '...' arguments ... 1588s [00:53:08.172] { 1588s [00:53:08.172] do.call(function(...) { 1588s [00:53:08.172] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1588s [00:53:08.172] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1588s [00:53:08.172] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1588s [00:53:08.172] on.exit(options(oopts), add = TRUE) 1588s [00:53:08.172] } 1588s [00:53:08.172] { 1588s [00:53:08.172] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1588s [00:53:08.172] ...future.X_jj <- ...future.elements_ii[[jj]] 1588s [00:53:08.172] ...future.FUN(...future.X_jj, ...) 1588s [00:53:08.172] }) 1588s [00:53:08.172] } 1588s [00:53:08.172] }, args = future.call.arguments) 1588s [00:53:08.172] } 1588s [00:53:08.173] Tweak future expression to call with '...' arguments ... DONE 1588s [00:53:08.174] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1588s [00:53:08.174] - packages: [1] ‘stats’ 1588s [00:53:08.174] getGlobalsAndPackages() ... DONE 1588s [00:53:08.175] run() for ‘Future’ ... 1588s [00:53:08.175] - state: ‘created’ 1588s [00:53:08.175] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1588s [00:53:08.182] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1588s [00:53:08.182] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1588s [00:53:08.182] - Field: ‘label’ 1588s [00:53:08.182] - Field: ‘local’ 1588s [00:53:08.182] - Field: ‘owner’ 1588s [00:53:08.183] - Field: ‘envir’ 1588s [00:53:08.183] - Field: ‘packages’ 1588s [00:53:08.183] - Field: ‘gc’ 1588s [00:53:08.183] - Field: ‘conditions’ 1588s [00:53:08.183] - Field: ‘expr’ 1588s [00:53:08.183] - Field: ‘uuid’ 1588s [00:53:08.183] - Field: ‘seed’ 1588s [00:53:08.183] - Field: ‘version’ 1588s [00:53:08.184] - Field: ‘result’ 1588s [00:53:08.184] - Field: ‘asynchronous’ 1588s [00:53:08.184] - Field: ‘calls’ 1588s [00:53:08.184] - Field: ‘globals’ 1588s [00:53:08.184] - Field: ‘stdout’ 1588s [00:53:08.184] - Field: ‘earlySignal’ 1588s [00:53:08.184] - Field: ‘lazy’ 1588s [00:53:08.184] - Field: ‘state’ 1588s [00:53:08.185] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1588s [00:53:08.185] - Launch lazy future ... 1588s [00:53:08.185] Packages needed by the future expression (n = 1): ‘stats’ 1588s [00:53:08.185] Packages needed by future strategies (n = 0): 1588s [00:53:08.186] { 1588s [00:53:08.186] { 1588s [00:53:08.186] { 1588s [00:53:08.186] ...future.startTime <- base::Sys.time() 1588s [00:53:08.186] { 1588s [00:53:08.186] { 1588s [00:53:08.186] { 1588s [00:53:08.186] { 1588s [00:53:08.186] base::local({ 1588s [00:53:08.186] has_future <- base::requireNamespace("future", 1588s [00:53:08.186] quietly = TRUE) 1588s [00:53:08.186] if (has_future) { 1588s [00:53:08.186] ns <- base::getNamespace("future") 1588s [00:53:08.186] version <- ns[[".package"]][["version"]] 1588s [00:53:08.186] if (is.null(version)) 1588s [00:53:08.186] version <- utils::packageVersion("future") 1588s [00:53:08.186] } 1588s [00:53:08.186] else { 1588s [00:53:08.186] version <- NULL 1588s [00:53:08.186] } 1588s [00:53:08.186] if (!has_future || version < "1.8.0") { 1588s [00:53:08.186] info <- base::c(r_version = base::gsub("R version ", 1588s [00:53:08.186] "", base::R.version$version.string), 1588s [00:53:08.186] platform = base::sprintf("%s (%s-bit)", 1588s [00:53:08.186] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1588s [00:53:08.186] os = base::paste(base::Sys.info()[base::c("sysname", 1588s [00:53:08.186] "release", "version")], collapse = " "), 1588s [00:53:08.186] hostname = base::Sys.info()[["nodename"]]) 1588s [00:53:08.186] info <- base::sprintf("%s: %s", base::names(info), 1588s [00:53:08.186] info) 1588s [00:53:08.186] info <- base::paste(info, collapse = "; ") 1588s [00:53:08.186] if (!has_future) { 1588s [00:53:08.186] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1588s [00:53:08.186] info) 1588s [00:53:08.186] } 1588s [00:53:08.186] else { 1588s [00:53:08.186] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1588s [00:53:08.186] info, version) 1588s [00:53:08.186] } 1588s [00:53:08.186] base::stop(msg) 1588s [00:53:08.186] } 1588s [00:53:08.186] }) 1588s [00:53:08.186] } 1588s [00:53:08.186] base::local({ 1588s [00:53:08.186] for (pkg in "stats") { 1588s [00:53:08.186] base::loadNamespace(pkg) 1588s [00:53:08.186] base::library(pkg, character.only = TRUE) 1588s [00:53:08.186] } 1588s [00:53:08.186] }) 1588s [00:53:08.186] } 1588s [00:53:08.186] options(future.plan = NULL) 1588s [00:53:08.186] Sys.unsetenv("R_FUTURE_PLAN") 1588s [00:53:08.186] future::plan("default", .cleanup = FALSE, .init = FALSE) 1588s [00:53:08.186] } 1588s [00:53:08.186] ...future.workdir <- getwd() 1588s [00:53:08.186] } 1588s [00:53:08.186] ...future.oldOptions <- base::as.list(base::.Options) 1588s [00:53:08.186] ...future.oldEnvVars <- base::Sys.getenv() 1588s [00:53:08.186] } 1588s [00:53:08.186] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1588s [00:53:08.186] future.globals.maxSize = NULL, future.globals.method = NULL, 1588s [00:53:08.186] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1588s [00:53:08.186] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1588s [00:53:08.186] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1588s [00:53:08.186] future.stdout.windows.reencode = NULL, width = 80L) 1588s [00:53:08.186] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1588s [00:53:08.186] base::names(...future.oldOptions)) 1588s [00:53:08.186] } 1588s [00:53:08.186] if (FALSE) { 1588s [00:53:08.186] } 1588s [00:53:08.186] else { 1588s [00:53:08.186] if (TRUE) { 1588s [00:53:08.186] ...future.stdout <- base::rawConnection(base::raw(0L), 1588s [00:53:08.186] open = "w") 1588s [00:53:08.186] } 1588s [00:53:08.186] else { 1588s [00:53:08.186] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1588s [00:53:08.186] windows = "NUL", "/dev/null"), open = "w") 1588s [00:53:08.186] } 1588s [00:53:08.186] base::sink(...future.stdout, type = "output", split = FALSE) 1588s [00:53:08.186] base::on.exit(if (!base::is.null(...future.stdout)) { 1588s [00:53:08.186] base::sink(type = "output", split = FALSE) 1588s [00:53:08.186] base::close(...future.stdout) 1588s [00:53:08.186] }, add = TRUE) 1588s [00:53:08.186] } 1588s [00:53:08.186] ...future.frame <- base::sys.nframe() 1588s [00:53:08.186] ...future.conditions <- base::list() 1588s [00:53:08.186] ...future.rng <- base::globalenv()$.Random.seed 1588s [00:53:08.186] if (FALSE) { 1588s [00:53:08.186] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1588s [00:53:08.186] "...future.value", "...future.globalenv.names", ".Random.seed") 1588s [00:53:08.186] } 1588s [00:53:08.186] ...future.result <- base::tryCatch({ 1588s [00:53:08.186] base::withCallingHandlers({ 1588s [00:53:08.186] ...future.value <- base::withVisible(base::local({ 1588s [00:53:08.186] do.call(function(...) { 1588s [00:53:08.186] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1588s [00:53:08.186] if (!identical(...future.globals.maxSize.org, 1588s [00:53:08.186] ...future.globals.maxSize)) { 1588s [00:53:08.186] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1588s [00:53:08.186] on.exit(options(oopts), add = TRUE) 1588s [00:53:08.186] } 1588s [00:53:08.186] { 1588s [00:53:08.186] lapply(seq_along(...future.elements_ii), 1588s [00:53:08.186] FUN = function(jj) { 1588s [00:53:08.186] ...future.X_jj <- ...future.elements_ii[[jj]] 1588s [00:53:08.186] ...future.FUN(...future.X_jj, ...) 1588s [00:53:08.186] }) 1588s [00:53:08.186] } 1588s [00:53:08.186] }, args = future.call.arguments) 1588s [00:53:08.186] })) 1588s [00:53:08.186] future::FutureResult(value = ...future.value$value, 1588s [00:53:08.186] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1588s [00:53:08.186] ...future.rng), globalenv = if (FALSE) 1588s [00:53:08.186] list(added = base::setdiff(base::names(base::.GlobalEnv), 1588s [00:53:08.186] ...future.globalenv.names)) 1588s [00:53:08.186] else NULL, started = ...future.startTime, version = "1.8") 1588s [00:53:08.186] }, condition = base::local({ 1588s [00:53:08.186] c <- base::c 1588s [00:53:08.186] inherits <- base::inherits 1588s [00:53:08.186] invokeRestart <- base::invokeRestart 1588s [00:53:08.186] length <- base::length 1588s [00:53:08.186] list <- base::list 1588s [00:53:08.186] seq.int <- base::seq.int 1588s [00:53:08.186] signalCondition <- base::signalCondition 1588s [00:53:08.186] sys.calls <- base::sys.calls 1588s [00:53:08.186] `[[` <- base::`[[` 1588s [00:53:08.186] `+` <- base::`+` 1588s [00:53:08.186] `<<-` <- base::`<<-` 1588s [00:53:08.186] sysCalls <- function(calls = sys.calls(), from = 1L) { 1588s [00:53:08.186] calls[seq.int(from = from + 12L, to = length(calls) - 1588s [00:53:08.186] 3L)] 1588s [00:53:08.186] } 1588s [00:53:08.186] function(cond) { 1588s [00:53:08.186] is_error <- inherits(cond, "error") 1588s [00:53:08.186] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1588s [00:53:08.186] NULL) 1588s [00:53:08.186] if (is_error) { 1588s [00:53:08.186] sessionInformation <- function() { 1588s [00:53:08.186] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1588s [00:53:08.186] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1588s [00:53:08.186] search = base::search(), system = base::Sys.info()) 1588s [00:53:08.186] } 1588s [00:53:08.186] ...future.conditions[[length(...future.conditions) + 1588s [00:53:08.186] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1588s [00:53:08.186] cond$call), session = sessionInformation(), 1588s [00:53:08.186] timestamp = base::Sys.time(), signaled = 0L) 1588s [00:53:08.186] signalCondition(cond) 1588s [00:53:08.186] } 1588s [00:53:08.186] else if (!ignore && TRUE && inherits(cond, c("condition", 1588s [00:53:08.186] "immediateCondition"))) { 1588s [00:53:08.186] signal <- TRUE && inherits(cond, "immediateCondition") 1588s [00:53:08.186] ...future.conditions[[length(...future.conditions) + 1588s [00:53:08.186] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1588s [00:53:08.186] if (TRUE && !signal) { 1588s [00:53:08.186] muffleCondition <- function (cond, pattern = "^muffle") 1588s [00:53:08.186] { 1588s [00:53:08.186] inherits <- base::inherits 1588s [00:53:08.186] invokeRestart <- base::invokeRestart 1588s [00:53:08.186] is.null <- base::is.null 1588s [00:53:08.186] muffled <- FALSE 1588s [00:53:08.186] if (inherits(cond, "message")) { 1588s [00:53:08.186] muffled <- grepl(pattern, "muffleMessage") 1588s [00:53:08.186] if (muffled) 1588s [00:53:08.186] invokeRestart("muffleMessage") 1588s [00:53:08.186] } 1588s [00:53:08.186] else if (inherits(cond, "warning")) { 1588s [00:53:08.186] muffled <- grepl(pattern, "muffleWarning") 1588s [00:53:08.186] if (muffled) 1588s [00:53:08.186] invokeRestart("muffleWarning") 1588s [00:53:08.186] } 1588s [00:53:08.186] else if (inherits(cond, "condition")) { 1588s [00:53:08.186] if (!is.null(pattern)) { 1588s [00:53:08.186] computeRestarts <- base::computeRestarts 1588s [00:53:08.186] grepl <- base::grepl 1588s [00:53:08.186] restarts <- computeRestarts(cond) 1588s [00:53:08.186] for (restart in restarts) { 1588s [00:53:08.186] name <- restart$name 1588s [00:53:08.186] if (is.null(name)) 1588s [00:53:08.186] next 1588s [00:53:08.186] if (!grepl(pattern, name)) 1588s [00:53:08.186] next 1588s [00:53:08.186] invokeRestart(restart) 1588s [00:53:08.186] muffled <- TRUE 1588s [00:53:08.186] break 1588s [00:53:08.186] } 1588s [00:53:08.186] } 1588s [00:53:08.186] } 1588s [00:53:08.186] invisible(muffled) 1588s [00:53:08.186] } 1588s [00:53:08.186] muffleCondition(cond, pattern = "^muffle") 1588s [00:53:08.186] } 1588s [00:53:08.186] } 1588s [00:53:08.186] else { 1588s [00:53:08.186] if (TRUE) { 1588s [00:53:08.186] muffleCondition <- function (cond, pattern = "^muffle") 1588s [00:53:08.186] { 1588s [00:53:08.186] inherits <- base::inherits 1588s [00:53:08.186] invokeRestart <- base::invokeRestart 1588s [00:53:08.186] is.null <- base::is.null 1588s [00:53:08.186] muffled <- FALSE 1588s [00:53:08.186] if (inherits(cond, "message")) { 1588s [00:53:08.186] muffled <- grepl(pattern, "muffleMessage") 1588s [00:53:08.186] if (muffled) 1588s [00:53:08.186] invokeRestart("muffleMessage") 1588s [00:53:08.186] } 1588s [00:53:08.186] else if (inherits(cond, "warning")) { 1588s [00:53:08.186] muffled <- grepl(pattern, "muffleWarning") 1588s [00:53:08.186] if (muffled) 1588s [00:53:08.186] invokeRestart("muffleWarning") 1588s [00:53:08.186] } 1588s [00:53:08.186] else if (inherits(cond, "condition")) { 1588s [00:53:08.186] if (!is.null(pattern)) { 1588s [00:53:08.186] computeRestarts <- base::computeRestarts 1588s [00:53:08.186] grepl <- base::grepl 1588s [00:53:08.186] restarts <- computeRestarts(cond) 1588s [00:53:08.186] for (restart in restarts) { 1588s [00:53:08.186] name <- restart$name 1588s [00:53:08.186] if (is.null(name)) 1588s [00:53:08.186] next 1588s [00:53:08.186] if (!grepl(pattern, name)) 1588s [00:53:08.186] next 1588s [00:53:08.186] invokeRestart(restart) 1588s [00:53:08.186] muffled <- TRUE 1588s [00:53:08.186] break 1588s [00:53:08.186] } 1588s [00:53:08.186] } 1588s [00:53:08.186] } 1588s [00:53:08.186] invisible(muffled) 1588s [00:53:08.186] } 1588s [00:53:08.186] muffleCondition(cond, pattern = "^muffle") 1588s [00:53:08.186] } 1588s [00:53:08.186] } 1588s [00:53:08.186] } 1588s [00:53:08.186] })) 1588s [00:53:08.186] }, error = function(ex) { 1588s [00:53:08.186] base::structure(base::list(value = NULL, visible = NULL, 1588s [00:53:08.186] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1588s [00:53:08.186] ...future.rng), started = ...future.startTime, 1588s [00:53:08.186] finished = Sys.time(), session_uuid = NA_character_, 1588s [00:53:08.186] version = "1.8"), class = "FutureResult") 1588s [00:53:08.186] }, finally = { 1588s [00:53:08.186] if (!identical(...future.workdir, getwd())) 1588s [00:53:08.186] setwd(...future.workdir) 1588s [00:53:08.186] { 1588s [00:53:08.186] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1588s [00:53:08.186] ...future.oldOptions$nwarnings <- NULL 1588s [00:53:08.186] } 1588s [00:53:08.186] base::options(...future.oldOptions) 1588s [00:53:08.186] if (.Platform$OS.type == "windows") { 1588s [00:53:08.186] old_names <- names(...future.oldEnvVars) 1588s [00:53:08.186] envs <- base::Sys.getenv() 1588s [00:53:08.186] names <- names(envs) 1588s [00:53:08.186] common <- intersect(names, old_names) 1588s [00:53:08.186] added <- setdiff(names, old_names) 1588s [00:53:08.186] removed <- setdiff(old_names, names) 1588s [00:53:08.186] changed <- common[...future.oldEnvVars[common] != 1588s [00:53:08.186] envs[common]] 1588s [00:53:08.186] NAMES <- toupper(changed) 1588s [00:53:08.186] args <- list() 1588s [00:53:08.186] for (kk in seq_along(NAMES)) { 1588s [00:53:08.186] name <- changed[[kk]] 1588s [00:53:08.186] NAME <- NAMES[[kk]] 1588s [00:53:08.186] if (name != NAME && is.element(NAME, old_names)) 1588s [00:53:08.186] next 1588s [00:53:08.186] args[[name]] <- ...future.oldEnvVars[[name]] 1588s [00:53:08.186] } 1588s [00:53:08.186] NAMES <- toupper(added) 1588s [00:53:08.186] for (kk in seq_along(NAMES)) { 1588s [00:53:08.186] name <- added[[kk]] 1588s [00:53:08.186] NAME <- NAMES[[kk]] 1588s [00:53:08.186] if (name != NAME && is.element(NAME, old_names)) 1588s [00:53:08.186] next 1588s [00:53:08.186] args[[name]] <- "" 1588s [00:53:08.186] } 1588s [00:53:08.186] NAMES <- toupper(removed) 1588s [00:53:08.186] for (kk in seq_along(NAMES)) { 1588s [00:53:08.186] name <- removed[[kk]] 1588s [00:53:08.186] NAME <- NAMES[[kk]] 1588s [00:53:08.186] if (name != NAME && is.element(NAME, old_names)) 1588s [00:53:08.186] next 1588s [00:53:08.186] args[[name]] <- ...future.oldEnvVars[[name]] 1588s [00:53:08.186] } 1588s [00:53:08.186] if (length(args) > 0) 1588s [00:53:08.186] base::do.call(base::Sys.setenv, args = args) 1588s [00:53:08.186] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1588s [00:53:08.186] } 1588s [00:53:08.186] else { 1588s [00:53:08.186] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1588s [00:53:08.186] } 1588s [00:53:08.186] { 1588s [00:53:08.186] if (base::length(...future.futureOptionsAdded) > 1588s [00:53:08.186] 0L) { 1588s [00:53:08.186] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1588s [00:53:08.186] base::names(opts) <- ...future.futureOptionsAdded 1588s [00:53:08.186] base::options(opts) 1588s [00:53:08.186] } 1588s [00:53:08.186] { 1588s [00:53:08.186] { 1588s [00:53:08.186] NULL 1588s [00:53:08.186] RNGkind("Mersenne-Twister") 1588s [00:53:08.186] base::rm(list = ".Random.seed", envir = base::globalenv(), 1588s [00:53:08.186] inherits = FALSE) 1588s [00:53:08.186] } 1588s [00:53:08.186] options(future.plan = NULL) 1588s [00:53:08.186] if (is.na(NA_character_)) 1588s [00:53:08.186] Sys.unsetenv("R_FUTURE_PLAN") 1588s [00:53:08.186] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1588s [00:53:08.186] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1588s [00:53:08.186] envir = parent.frame()) 1588s [00:53:08.186] { 1588s [00:53:08.186] default_workers <- missing(workers) 1588s [00:53:08.186] if (is.function(workers)) 1588s [00:53:08.186] workers <- workers() 1588s [00:53:08.186] workers <- structure(as.integer(workers), 1588s [00:53:08.186] class = class(workers)) 1588s [00:53:08.186] stop_if_not(is.finite(workers), workers >= 1588s [00:53:08.186] 1L) 1588s [00:53:08.186] if ((workers == 1L && !inherits(workers, 1588s [00:53:08.186] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1588s [00:53:08.186] if (default_workers) 1588s [00:53:08.186] supportsMulticore(warn = TRUE) 1588s [00:53:08.186] return(sequential(..., envir = envir)) 1588s [00:53:08.186] } 1588s [00:53:08.186] oopts <- options(mc.cores = workers) 1588s [00:53:08.186] on.exit(options(oopts)) 1588s [00:53:08.186] future <- MulticoreFuture(..., workers = workers, 1588s [00:53:08.186] envir = envir) 1588s [00:53:08.186] if (!future$lazy) 1588s [00:53:08.186] future <- run(future) 1588s [00:53:08.186] invisible(future) 1588s [00:53:08.186] }), .cleanup = FALSE, .init = FALSE) 1588s [00:53:08.186] } 1588s [00:53:08.186] } 1588s [00:53:08.186] } 1588s [00:53:08.186] }) 1588s [00:53:08.186] if (TRUE) { 1588s [00:53:08.186] base::sink(type = "output", split = FALSE) 1588s [00:53:08.186] if (TRUE) { 1588s [00:53:08.186] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1588s [00:53:08.186] } 1588s [00:53:08.186] else { 1588s [00:53:08.186] ...future.result["stdout"] <- base::list(NULL) 1588s [00:53:08.186] } 1588s [00:53:08.186] base::close(...future.stdout) 1588s [00:53:08.186] ...future.stdout <- NULL 1588s [00:53:08.186] } 1588s [00:53:08.186] ...future.result$conditions <- ...future.conditions 1588s [00:53:08.186] ...future.result$finished <- base::Sys.time() 1588s [00:53:08.186] ...future.result 1588s [00:53:08.186] } 1588s [00:53:08.189] assign_globals() ... 1588s [00:53:08.189] List of 5 1588s [00:53:08.189] $ ...future.FUN :function (x, na.rm = TRUE) 1588s [00:53:08.189] $ future.call.arguments : list() 1588s [00:53:08.189] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1588s [00:53:08.189] $ ...future.elements_ii :List of 7 1588s [00:53:08.189] ..$ : int [1:3] 1 2 3 1588s [00:53:08.189] ..$ : int [1:4] 1 2 3 4 1588s [00:53:08.189] ..$ : int [1:5] 1 2 3 4 5 1588s [00:53:08.189] ..$ : int [1:6] 1 2 3 4 5 6 1588s [00:53:08.189] ..$ : int [1:7] 1 2 3 4 5 6 7 1588s [00:53:08.189] ..$ : int [1:8] 1 2 3 4 5 6 7 8 1588s [00:53:08.189] ..$ : int [1:9] 1 2 3 4 5 6 7 8 9 1588s [00:53:08.189] $ ...future.seeds_ii : NULL 1588s [00:53:08.189] $ ...future.globals.maxSize: NULL 1588s [00:53:08.189] - attr(*, "where")=List of 5 1588s [00:53:08.189] ..$ ...future.FUN : 1588s [00:53:08.189] ..$ future.call.arguments : 1588s [00:53:08.189] ..$ ...future.elements_ii : 1588s [00:53:08.189] ..$ ...future.seeds_ii : 1588s [00:53:08.189] ..$ ...future.globals.maxSize: 1588s [00:53:08.189] - attr(*, "resolved")= logi FALSE 1588s [00:53:08.189] - attr(*, "total_size")= num 46960 1588s [00:53:08.189] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1588s [00:53:08.189] - attr(*, "already-done")= logi TRUE 1588s [00:53:08.197] - copied ‘...future.FUN’ to environment 1588s [00:53:08.198] - copied ‘future.call.arguments’ to environment 1588s [00:53:08.198] - copied ‘...future.elements_ii’ to environment 1588s [00:53:08.198] - copied ‘...future.seeds_ii’ to environment 1588s [00:53:08.198] - copied ‘...future.globals.maxSize’ to environment 1588s [00:53:08.198] assign_globals() ... done 1588s [00:53:08.199] plan(): Setting new future strategy stack: 1588s [00:53:08.199] List of future strategies: 1588s [00:53:08.199] 1. sequential: 1588s [00:53:08.199] - args: function (..., envir = parent.frame()) 1588s [00:53:08.199] - tweaked: FALSE 1588s [00:53:08.199] - call: NULL 1588s [00:53:08.199] plan(): nbrOfWorkers() = 1 1588s [00:53:08.200] plan(): Setting new future strategy stack: 1588s [00:53:08.201] List of future strategies: 1588s [00:53:08.201] 1. multicore: 1588s [00:53:08.201] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1588s [00:53:08.201] - tweaked: FALSE 1588s [00:53:08.201] - call: plan(strategy) 1588s [00:53:08.205] plan(): nbrOfWorkers() = 1 1588s [00:53:08.205] SequentialFuture started (and completed) 1588s [00:53:08.205] - Launch lazy future ... done 1588s [00:53:08.205] run() for ‘SequentialFuture’ ... done 1588s [00:53:08.206] Created future: 1588s [00:53:08.206] SequentialFuture: 1588s [00:53:08.206] Label: ‘future_sapply-1’ 1588s [00:53:08.206] Expression: 1588s [00:53:08.206] { 1588s [00:53:08.206] do.call(function(...) { 1588s [00:53:08.206] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1588s [00:53:08.206] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1588s [00:53:08.206] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1588s [00:53:08.206] on.exit(options(oopts), add = TRUE) 1588s [00:53:08.206] } 1588s [00:53:08.206] { 1588s [00:53:08.206] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1588s [00:53:08.206] ...future.X_jj <- ...future.elements_ii[[jj]] 1588s [00:53:08.206] ...future.FUN(...future.X_jj, ...) 1588s [00:53:08.206] }) 1588s [00:53:08.206] } 1588s [00:53:08.206] }, args = future.call.arguments) 1588s [00:53:08.206] } 1588s [00:53:08.206] Lazy evaluation: FALSE 1588s [00:53:08.206] Asynchronous evaluation: FALSE 1588s [00:53:08.206] Local evaluation: TRUE 1588s [00:53:08.206] Environment: R_GlobalEnv 1588s [00:53:08.206] Capture standard output: TRUE 1588s [00:53:08.206] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1588s [00:53:08.206] Globals: 5 objects totaling 46.39 KiB (function ‘...future.FUN’ of 45.86 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 544 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1588s [00:53:08.206] Packages: 1 packages (‘stats’) 1588s [00:53:08.206] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1588s [00:53:08.206] Resolved: TRUE 1588s [00:53:08.206] Value: 672 bytes of class ‘list’ 1588s [00:53:08.206] Early signaling: FALSE 1588s [00:53:08.206] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1588s [00:53:08.206] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1588s [00:53:08.207] Chunk #1 of 1 ... DONE 1588s [00:53:08.208] Launching 1 futures (chunks) ... DONE 1588s [00:53:08.208] Resolving 1 futures (chunks) ... 1588s [00:53:08.208] resolve() on list ... 1588s [00:53:08.208] recursive: 0 1588s [00:53:08.208] length: 1 1588s [00:53:08.208] 1588s [00:53:08.208] resolved() for ‘SequentialFuture’ ... 1588s [00:53:08.209] - state: ‘finished’ 1588s [00:53:08.209] - run: TRUE 1588s [00:53:08.209] - result: ‘FutureResult’ 1588s [00:53:08.209] resolved() for ‘SequentialFuture’ ... done 1588s [00:53:08.209] Future #1 1588s [00:53:08.209] signalConditionsASAP(SequentialFuture, pos=1) ... 1588s [00:53:08.210] - nx: 1 1588s [00:53:08.210] - relay: TRUE 1588s [00:53:08.210] - stdout: TRUE 1588s [00:53:08.210] - signal: TRUE 1588s [00:53:08.210] - resignal: FALSE 1588s [00:53:08.210] - force: TRUE 1588s [00:53:08.210] - relayed: [n=1] FALSE 1588s [00:53:08.211] - queued futures: [n=1] FALSE 1588s [00:53:08.211] - until=1 1588s [00:53:08.211] - relaying element #1 1588s [00:53:08.211] - relayed: [n=1] TRUE 1588s [00:53:08.211] - queued futures: [n=1] TRUE 1588s [00:53:08.211] signalConditionsASAP(SequentialFuture, pos=1) ... done 1588s [00:53:08.212] length: 0 (resolved future 1) 1588s [00:53:08.212] Relaying remaining futures 1588s [00:53:08.212] signalConditionsASAP(NULL, pos=0) ... 1588s [00:53:08.212] - nx: 1 1588s [00:53:08.212] - relay: TRUE 1588s [00:53:08.212] - stdout: TRUE 1588s [00:53:08.212] - signal: TRUE 1588s [00:53:08.213] - resignal: FALSE 1588s [00:53:08.213] - force: TRUE 1588s [00:53:08.213] - relayed: [n=1] TRUE 1588s [00:53:08.213] - queued futures: [n=1] TRUE 1588s - flush all 1588s [00:53:08.213] - relayed: [n=1] TRUE 1588s [00:53:08.213] - queued futures: [n=1] TRUE 1588s [00:53:08.214] signalConditionsASAP(NULL, pos=0) ... done 1588s [00:53:08.214] resolve() on list ... DONE 1588s [00:53:08.216] - Number of value chunks collected: 1 1588s [00:53:08.217] Resolving 1 futures (chunks) ... DONE 1588s [00:53:08.217] Reducing values from 1 chunks ... 1588s [00:53:08.217] - Number of values collected after concatenation: 7 1588s [00:53:08.217] - Number of values expected: 7 1588s [00:53:08.217] Reducing values from 1 chunks ... DONE 1588s [00:53:08.217] future_lapply() ... DONE 1588s [00:53:08.218] future_lapply() ... 1588s [00:53:08.224] Number of chunks: 1 1588s [00:53:08.224] getGlobalsAndPackagesXApply() ... 1588s [00:53:08.224] - future.globals: TRUE 1588s [00:53:08.224] getGlobalsAndPackages() ... 1588s [00:53:08.224] Searching for globals... 1588s [00:53:08.234] - globals found: [31] ‘FUN’, ‘{’, ‘<-’, ‘x_FUN’, ‘if’, ‘!=’, ‘length’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘all’, ‘==’, ‘dim’, ‘%in%’, ‘typeof’, ‘valid_types’, ‘is.na’, ‘any’, ‘[’, ‘!’, ‘return’, ‘rep.int’, ‘sort’, ‘/’, ‘floor’, ‘(’, ‘+’, ‘c’, ‘-’, ‘*’, ‘ceiling’ 1588s [00:53:08.235] Searching for globals ... DONE 1588s [00:53:08.235] Resolving globals: FALSE 1588s [00:53:08.237] The total size of the 7 globals is 137.93 KiB (141240 bytes) 1588s [00:53:08.237] The total size of the 7 globals exported for future expression (‘FUN()’) is 137.93 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘x_FUN’ (45.86 KiB of class ‘function’), ‘stop_if_not’ (44.12 KiB of class ‘function’) and ‘stopf’ (26.43 KiB of class ‘function’) 1588s [00:53:08.237] - globals: [7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1588s [00:53:08.237] - packages: [2] ‘stats’, ‘future.apply’ 1588s [00:53:08.238] getGlobalsAndPackages() ... DONE 1588s [00:53:08.238] - globals found/used: [n=7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1588s [00:53:08.238] - needed namespaces: [n=2] ‘stats’, ‘future.apply’ 1588s [00:53:08.238] Finding globals ... DONE 1588s [00:53:08.238] - use_args: TRUE 1588s [00:53:08.238] - Getting '...' globals ... 1588s [00:53:08.239] resolve() on list ... 1588s [00:53:08.239] recursive: 0 1588s [00:53:08.239] length: 1 1588s [00:53:08.239] elements: ‘...’ 1588s [00:53:08.239] length: 0 (resolved future 1) 1588s [00:53:08.239] resolve() on list ... DONE 1588s [00:53:08.239] - '...' content: [n=0] 1588s [00:53:08.240] List of 1 1588s [00:53:08.240] $ ...: list() 1588s [00:53:08.240] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1588s [00:53:08.240] - attr(*, "where")=List of 1 1588s [00:53:08.240] ..$ ...: 1588s [00:53:08.240] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1588s [00:53:08.240] - attr(*, "resolved")= logi TRUE 1588s [00:53:08.240] - attr(*, "total_size")= num NA 1588s [00:53:08.243] - Getting '...' globals ... DONE 1588s [00:53:08.243] Globals to be used in all futures (chunks): [n=8] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’ 1588s [00:53:08.243] List of 8 1588s [00:53:08.243] $ ...future.FUN:function (x, ...) 1588s [00:53:08.243] $ x_FUN :function (x, na.rm = TRUE) 1588s [00:53:08.243] $ times : int 5 1588s [00:53:08.243] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1588s [00:53:08.243] $ stop_if_not :function (...) 1588s [00:53:08.243] $ dim : NULL 1588s [00:53:08.243] $ valid_types : chr [1:3] "logical" "integer" "double" 1588s [00:53:08.243] $ ... : list() 1588s [00:53:08.243] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1588s [00:53:08.243] - attr(*, "where")=List of 8 1588s [00:53:08.243] ..$ ...future.FUN: 1588s [00:53:08.243] ..$ x_FUN : 1588s [00:53:08.243] ..$ times : 1588s [00:53:08.243] ..$ stopf : 1588s [00:53:08.243] ..$ stop_if_not : 1588s [00:53:08.243] ..$ dim : 1588s [00:53:08.243] ..$ valid_types : 1588s [00:53:08.243] ..$ ... : 1588s [00:53:08.243] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1588s [00:53:08.243] - attr(*, "resolved")= logi FALSE 1588s [00:53:08.243] - attr(*, "total_size")= num 141240 1588s [00:53:08.251] Packages to be attached in all futures: [n=2] ‘stats’, ‘future.apply’ 1588s [00:53:08.252] getGlobalsAndPackagesXApply() ... DONE 1588s [00:53:08.252] Number of futures (= number of chunks): 1 1588s [00:53:08.252] Launching 1 futures (chunks) ... 1588s [00:53:08.252] Chunk #1 of 1 ... 1588s [00:53:08.252] - Finding globals in 'X' for chunk #1 ... 1588s [00:53:08.252] getGlobalsAndPackages() ... 1588s [00:53:08.253] Searching for globals... 1588s [00:53:08.253] 1588s [00:53:08.253] Searching for globals ... DONE 1588s [00:53:08.253] - globals: [0] 1588s [00:53:08.253] getGlobalsAndPackages() ... DONE 1588s [00:53:08.253] + additional globals found: [n=0] 1588s [00:53:08.254] + additional namespaces needed: [n=0] 1588s [00:53:08.254] - Finding globals in 'X' for chunk #1 ... DONE 1588s [00:53:08.254] - seeds: 1588s [00:53:08.254] - All globals exported: [n=11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1588s [00:53:08.254] getGlobalsAndPackages() ... 1588s [00:53:08.254] - globals passed as-is: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1588s [00:53:08.255] Resolving globals: FALSE 1588s [00:53:08.255] Tweak future expression to call with '...' arguments ... 1588s [00:53:08.255] { 1588s [00:53:08.255] do.call(function(...) { 1588s [00:53:08.255] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1588s [00:53:08.255] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1588s [00:53:08.255] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1588s [00:53:08.255] on.exit(options(oopts), add = TRUE) 1588s [00:53:08.255] } 1588s [00:53:08.255] { 1588s [00:53:08.255] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1588s [00:53:08.255] ...future.X_jj <- ...future.elements_ii[[jj]] 1588s [00:53:08.255] ...future.FUN(...future.X_jj, ...) 1588s [00:53:08.255] }) 1588s [00:53:08.255] } 1588s [00:53:08.255] }, args = future.call.arguments) 1588s [00:53:08.255] } 1588s [00:53:08.256] Tweak future expression to call with '...' arguments ... DONE 1588s [00:53:08.256] - globals: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1588s [00:53:08.257] - packages: [2] ‘stats’, ‘future.apply’ 1588s [00:53:08.257] getGlobalsAndPackages() ... DONE 1588s [00:53:08.257] run() for ‘Future’ ... 1588s [00:53:08.257] - state: ‘created’ 1588s [00:53:08.257] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1588s [00:53:08.261] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1588s [00:53:08.261] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1588s [00:53:08.261] - Field: ‘label’ 1588s [00:53:08.261] - Field: ‘local’ 1588s [00:53:08.261] - Field: ‘owner’ 1588s [00:53:08.262] - Field: ‘envir’ 1588s [00:53:08.262] - Field: ‘packages’ 1588s [00:53:08.262] - Field: ‘gc’ 1588s [00:53:08.262] - Field: ‘conditions’ 1588s [00:53:08.262] - Field: ‘expr’ 1588s [00:53:08.262] - Field: ‘uuid’ 1588s [00:53:08.263] - Field: ‘seed’ 1588s [00:53:08.263] - Field: ‘version’ 1588s [00:53:08.263] - Field: ‘result’ 1588s [00:53:08.263] - Field: ‘asynchronous’ 1588s [00:53:08.263] - Field: ‘calls’ 1588s [00:53:08.263] - Field: ‘globals’ 1588s [00:53:08.263] - Field: ‘stdout’ 1588s [00:53:08.264] - Field: ‘earlySignal’ 1588s [00:53:08.264] - Field: ‘lazy’ 1588s [00:53:08.264] - Field: ‘state’ 1588s [00:53:08.264] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1588s [00:53:08.264] - Launch lazy future ... 1588s [00:53:08.264] Packages needed by the future expression (n = 2): ‘stats’, ‘future.apply’ 1588s [00:53:08.265] Packages needed by future strategies (n = 0): 1588s [00:53:08.265] { 1588s [00:53:08.265] { 1588s [00:53:08.265] { 1588s [00:53:08.265] ...future.startTime <- base::Sys.time() 1588s [00:53:08.265] { 1588s [00:53:08.265] { 1588s [00:53:08.265] { 1588s [00:53:08.265] { 1588s [00:53:08.265] base::local({ 1588s [00:53:08.265] has_future <- base::requireNamespace("future", 1588s [00:53:08.265] quietly = TRUE) 1588s [00:53:08.265] if (has_future) { 1588s [00:53:08.265] ns <- base::getNamespace("future") 1588s [00:53:08.265] version <- ns[[".package"]][["version"]] 1588s [00:53:08.265] if (is.null(version)) 1588s [00:53:08.265] version <- utils::packageVersion("future") 1588s [00:53:08.265] } 1588s [00:53:08.265] else { 1588s [00:53:08.265] version <- NULL 1588s [00:53:08.265] } 1588s [00:53:08.265] if (!has_future || version < "1.8.0") { 1588s [00:53:08.265] info <- base::c(r_version = base::gsub("R version ", 1588s [00:53:08.265] "", base::R.version$version.string), 1588s [00:53:08.265] platform = base::sprintf("%s (%s-bit)", 1588s [00:53:08.265] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1588s [00:53:08.265] os = base::paste(base::Sys.info()[base::c("sysname", 1588s [00:53:08.265] "release", "version")], collapse = " "), 1588s [00:53:08.265] hostname = base::Sys.info()[["nodename"]]) 1588s [00:53:08.265] info <- base::sprintf("%s: %s", base::names(info), 1588s [00:53:08.265] info) 1588s [00:53:08.265] info <- base::paste(info, collapse = "; ") 1588s [00:53:08.265] if (!has_future) { 1588s [00:53:08.265] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1588s [00:53:08.265] info) 1588s [00:53:08.265] } 1588s [00:53:08.265] else { 1588s [00:53:08.265] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1588s [00:53:08.265] info, version) 1588s [00:53:08.265] } 1588s [00:53:08.265] base::stop(msg) 1588s [00:53:08.265] } 1588s [00:53:08.265] }) 1588s [00:53:08.265] } 1588s [00:53:08.265] base::local({ 1588s [00:53:08.265] for (pkg in c("stats", "future.apply")) { 1588s [00:53:08.265] base::loadNamespace(pkg) 1588s [00:53:08.265] base::library(pkg, character.only = TRUE) 1588s [00:53:08.265] } 1588s [00:53:08.265] }) 1588s [00:53:08.265] } 1588s [00:53:08.265] options(future.plan = NULL) 1588s [00:53:08.265] Sys.unsetenv("R_FUTURE_PLAN") 1588s [00:53:08.265] future::plan("default", .cleanup = FALSE, .init = FALSE) 1588s [00:53:08.265] } 1588s [00:53:08.265] ...future.workdir <- getwd() 1588s [00:53:08.265] } 1588s [00:53:08.265] ...future.oldOptions <- base::as.list(base::.Options) 1588s [00:53:08.265] ...future.oldEnvVars <- base::Sys.getenv() 1588s [00:53:08.265] } 1588s [00:53:08.265] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1588s [00:53:08.265] future.globals.maxSize = NULL, future.globals.method = NULL, 1588s [00:53:08.265] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1588s [00:53:08.265] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1588s [00:53:08.265] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1588s [00:53:08.265] future.stdout.windows.reencode = NULL, width = 80L) 1588s [00:53:08.265] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1588s [00:53:08.265] base::names(...future.oldOptions)) 1588s [00:53:08.265] } 1588s [00:53:08.265] if (FALSE) { 1588s [00:53:08.265] } 1588s [00:53:08.265] else { 1588s [00:53:08.265] if (TRUE) { 1588s [00:53:08.265] ...future.stdout <- base::rawConnection(base::raw(0L), 1588s [00:53:08.265] open = "w") 1588s [00:53:08.265] } 1588s [00:53:08.265] else { 1588s [00:53:08.265] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1588s [00:53:08.265] windows = "NUL", "/dev/null"), open = "w") 1588s [00:53:08.265] } 1588s [00:53:08.265] base::sink(...future.stdout, type = "output", split = FALSE) 1588s [00:53:08.265] base::on.exit(if (!base::is.null(...future.stdout)) { 1588s [00:53:08.265] base::sink(type = "output", split = FALSE) 1588s [00:53:08.265] base::close(...future.stdout) 1588s [00:53:08.265] }, add = TRUE) 1588s [00:53:08.265] } 1588s [00:53:08.265] ...future.frame <- base::sys.nframe() 1588s [00:53:08.265] ...future.conditions <- base::list() 1588s [00:53:08.265] ...future.rng <- base::globalenv()$.Random.seed 1588s [00:53:08.265] if (FALSE) { 1588s [00:53:08.265] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1588s [00:53:08.265] "...future.value", "...future.globalenv.names", ".Random.seed") 1588s [00:53:08.265] } 1588s [00:53:08.265] ...future.result <- base::tryCatch({ 1588s [00:53:08.265] base::withCallingHandlers({ 1588s [00:53:08.265] ...future.value <- base::withVisible(base::local({ 1588s [00:53:08.265] do.call(function(...) { 1588s [00:53:08.265] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1588s [00:53:08.265] if (!identical(...future.globals.maxSize.org, 1588s [00:53:08.265] ...future.globals.maxSize)) { 1588s [00:53:08.265] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1588s [00:53:08.265] on.exit(options(oopts), add = TRUE) 1588s [00:53:08.265] } 1588s [00:53:08.265] { 1588s [00:53:08.265] lapply(seq_along(...future.elements_ii), 1588s [00:53:08.265] FUN = function(jj) { 1588s [00:53:08.265] ...future.X_jj <- ...future.elements_ii[[jj]] 1588s [00:53:08.265] ...future.FUN(...future.X_jj, ...) 1588s [00:53:08.265] }) 1588s [00:53:08.265] } 1588s [00:53:08.265] }, args = future.call.arguments) 1588s [00:53:08.265] })) 1588s [00:53:08.265] future::FutureResult(value = ...future.value$value, 1588s [00:53:08.265] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1588s [00:53:08.265] ...future.rng), globalenv = if (FALSE) 1588s [00:53:08.265] list(added = base::setdiff(base::names(base::.GlobalEnv), 1588s [00:53:08.265] ...future.globalenv.names)) 1588s [00:53:08.265] else NULL, started = ...future.startTime, version = "1.8") 1588s [00:53:08.265] }, condition = base::local({ 1588s [00:53:08.265] c <- base::c 1588s [00:53:08.265] inherits <- base::inherits 1588s [00:53:08.265] invokeRestart <- base::invokeRestart 1588s [00:53:08.265] length <- base::length 1588s [00:53:08.265] list <- base::list 1588s [00:53:08.265] seq.int <- base::seq.int 1588s [00:53:08.265] signalCondition <- base::signalCondition 1588s [00:53:08.265] sys.calls <- base::sys.calls 1588s [00:53:08.265] `[[` <- base::`[[` 1588s [00:53:08.265] `+` <- base::`+` 1588s [00:53:08.265] `<<-` <- base::`<<-` 1588s [00:53:08.265] sysCalls <- function(calls = sys.calls(), from = 1L) { 1588s [00:53:08.265] calls[seq.int(from = from + 12L, to = length(calls) - 1588s [00:53:08.265] 3L)] 1588s [00:53:08.265] } 1588s [00:53:08.265] function(cond) { 1588s [00:53:08.265] is_error <- inherits(cond, "error") 1588s [00:53:08.265] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1588s [00:53:08.265] NULL) 1588s [00:53:08.265] if (is_error) { 1588s [00:53:08.265] sessionInformation <- function() { 1588s [00:53:08.265] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1588s [00:53:08.265] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1588s [00:53:08.265] search = base::search(), system = base::Sys.info()) 1588s [00:53:08.265] } 1588s [00:53:08.265] ...future.conditions[[length(...future.conditions) + 1588s [00:53:08.265] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1588s [00:53:08.265] cond$call), session = sessionInformation(), 1588s [00:53:08.265] timestamp = base::Sys.time(), signaled = 0L) 1588s [00:53:08.265] signalCondition(cond) 1588s [00:53:08.265] } 1588s [00:53:08.265] else if (!ignore && TRUE && inherits(cond, c("condition", 1588s [00:53:08.265] "immediateCondition"))) { 1588s [00:53:08.265] signal <- TRUE && inherits(cond, "immediateCondition") 1588s [00:53:08.265] ...future.conditions[[length(...future.conditions) + 1588s [00:53:08.265] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1588s [00:53:08.265] if (TRUE && !signal) { 1588s [00:53:08.265] muffleCondition <- function (cond, pattern = "^muffle") 1588s [00:53:08.265] { 1588s [00:53:08.265] inherits <- base::inherits 1588s [00:53:08.265] invokeRestart <- base::invokeRestart 1588s [00:53:08.265] is.null <- base::is.null 1588s [00:53:08.265] muffled <- FALSE 1588s [00:53:08.265] if (inherits(cond, "message")) { 1588s [00:53:08.265] muffled <- grepl(pattern, "muffleMessage") 1588s [00:53:08.265] if (muffled) 1588s [00:53:08.265] invokeRestart("muffleMessage") 1588s [00:53:08.265] } 1588s [00:53:08.265] else if (inherits(cond, "warning")) { 1588s [00:53:08.265] muffled <- grepl(pattern, "muffleWarning") 1588s [00:53:08.265] if (muffled) 1588s [00:53:08.265] invokeRestart("muffleWarning") 1588s [00:53:08.265] } 1588s [00:53:08.265] else if (inherits(cond, "condition")) { 1588s [00:53:08.265] if (!is.null(pattern)) { 1588s [00:53:08.265] computeRestarts <- base::computeRestarts 1588s [00:53:08.265] grepl <- base::grepl 1588s [00:53:08.265] restarts <- computeRestarts(cond) 1588s [00:53:08.265] for (restart in restarts) { 1588s [00:53:08.265] name <- restart$name 1588s [00:53:08.265] if (is.null(name)) 1588s [00:53:08.265] next 1588s [00:53:08.265] if (!grepl(pattern, name)) 1588s [00:53:08.265] next 1588s [00:53:08.265] invokeRestart(restart) 1588s [00:53:08.265] muffled <- TRUE 1588s [00:53:08.265] break 1588s [00:53:08.265] } 1588s [00:53:08.265] } 1588s [00:53:08.265] } 1588s [00:53:08.265] invisible(muffled) 1588s [00:53:08.265] } 1588s [00:53:08.265] muffleCondition(cond, pattern = "^muffle") 1588s [00:53:08.265] } 1588s [00:53:08.265] } 1588s [00:53:08.265] else { 1588s [00:53:08.265] if (TRUE) { 1588s [00:53:08.265] muffleCondition <- function (cond, pattern = "^muffle") 1588s [00:53:08.265] { 1588s [00:53:08.265] inherits <- base::inherits 1588s [00:53:08.265] invokeRestart <- base::invokeRestart 1588s [00:53:08.265] is.null <- base::is.null 1588s [00:53:08.265] muffled <- FALSE 1588s [00:53:08.265] if (inherits(cond, "message")) { 1588s [00:53:08.265] muffled <- grepl(pattern, "muffleMessage") 1588s [00:53:08.265] if (muffled) 1588s [00:53:08.265] invokeRestart("muffleMessage") 1588s [00:53:08.265] } 1588s [00:53:08.265] else if (inherits(cond, "warning")) { 1588s [00:53:08.265] muffled <- grepl(pattern, "muffleWarning") 1588s [00:53:08.265] if (muffled) 1588s [00:53:08.265] invokeRestart("muffleWarning") 1588s [00:53:08.265] } 1588s [00:53:08.265] else if (inherits(cond, "condition")) { 1588s [00:53:08.265] if (!is.null(pattern)) { 1588s [00:53:08.265] computeRestarts <- base::computeRestarts 1588s [00:53:08.265] grepl <- base::grepl 1588s [00:53:08.265] restarts <- computeRestarts(cond) 1588s [00:53:08.265] for (restart in restarts) { 1588s [00:53:08.265] name <- restart$name 1588s [00:53:08.265] if (is.null(name)) 1588s [00:53:08.265] next 1588s [00:53:08.265] if (!grepl(pattern, name)) 1588s [00:53:08.265] next 1588s [00:53:08.265] invokeRestart(restart) 1588s [00:53:08.265] muffled <- TRUE 1588s [00:53:08.265] break 1588s [00:53:08.265] } 1588s [00:53:08.265] } 1588s [00:53:08.265] } 1588s [00:53:08.265] invisible(muffled) 1588s [00:53:08.265] } 1588s [00:53:08.265] muffleCondition(cond, pattern = "^muffle") 1588s [00:53:08.265] } 1588s [00:53:08.265] } 1588s [00:53:08.265] } 1588s [00:53:08.265] })) 1588s [00:53:08.265] }, error = function(ex) { 1588s [00:53:08.265] base::structure(base::list(value = NULL, visible = NULL, 1588s [00:53:08.265] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1588s [00:53:08.265] ...future.rng), started = ...future.startTime, 1588s [00:53:08.265] finished = Sys.time(), session_uuid = NA_character_, 1588s [00:53:08.265] version = "1.8"), class = "FutureResult") 1588s [00:53:08.265] }, finally = { 1588s [00:53:08.265] if (!identical(...future.workdir, getwd())) 1588s [00:53:08.265] setwd(...future.workdir) 1588s [00:53:08.265] { 1588s [00:53:08.265] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1588s [00:53:08.265] ...future.oldOptions$nwarnings <- NULL 1588s [00:53:08.265] } 1588s [00:53:08.265] base::options(...future.oldOptions) 1588s [00:53:08.265] if (.Platform$OS.type == "windows") { 1588s [00:53:08.265] old_names <- names(...future.oldEnvVars) 1588s [00:53:08.265] envs <- base::Sys.getenv() 1588s [00:53:08.265] names <- names(envs) 1588s [00:53:08.265] common <- intersect(names, old_names) 1588s [00:53:08.265] added <- setdiff(names, old_names) 1588s [00:53:08.265] removed <- setdiff(old_names, names) 1588s [00:53:08.265] changed <- common[...future.oldEnvVars[common] != 1588s [00:53:08.265] envs[common]] 1588s [00:53:08.265] NAMES <- toupper(changed) 1588s [00:53:08.265] args <- list() 1588s [00:53:08.265] for (kk in seq_along(NAMES)) { 1588s [00:53:08.265] name <- changed[[kk]] 1588s [00:53:08.265] NAME <- NAMES[[kk]] 1588s [00:53:08.265] if (name != NAME && is.element(NAME, old_names)) 1588s [00:53:08.265] next 1588s [00:53:08.265] args[[name]] <- ...future.oldEnvVars[[name]] 1588s [00:53:08.265] } 1588s [00:53:08.265] NAMES <- toupper(added) 1588s [00:53:08.265] for (kk in seq_along(NAMES)) { 1588s [00:53:08.265] name <- added[[kk]] 1588s [00:53:08.265] NAME <- NAMES[[kk]] 1588s [00:53:08.265] if (name != NAME && is.element(NAME, old_names)) 1588s [00:53:08.265] next 1588s [00:53:08.265] args[[name]] <- "" 1588s [00:53:08.265] } 1588s [00:53:08.265] NAMES <- toupper(removed) 1588s [00:53:08.265] for (kk in seq_along(NAMES)) { 1588s [00:53:08.265] name <- removed[[kk]] 1588s [00:53:08.265] NAME <- NAMES[[kk]] 1588s [00:53:08.265] if (name != NAME && is.element(NAME, old_names)) 1588s [00:53:08.265] next 1588s [00:53:08.265] args[[name]] <- ...future.oldEnvVars[[name]] 1588s [00:53:08.265] } 1588s [00:53:08.265] if (length(args) > 0) 1588s [00:53:08.265] base::do.call(base::Sys.setenv, args = args) 1588s [00:53:08.265] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1588s [00:53:08.265] } 1588s [00:53:08.265] else { 1588s [00:53:08.265] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1588s [00:53:08.265] } 1588s [00:53:08.265] { 1588s [00:53:08.265] if (base::length(...future.futureOptionsAdded) > 1588s [00:53:08.265] 0L) { 1588s [00:53:08.265] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1588s [00:53:08.265] base::names(opts) <- ...future.futureOptionsAdded 1588s [00:53:08.265] base::options(opts) 1588s [00:53:08.265] } 1588s [00:53:08.265] { 1588s [00:53:08.265] { 1588s [00:53:08.265] NULL 1588s [00:53:08.265] RNGkind("Mersenne-Twister") 1588s [00:53:08.265] base::rm(list = ".Random.seed", envir = base::globalenv(), 1588s [00:53:08.265] inherits = FALSE) 1588s [00:53:08.265] } 1588s [00:53:08.265] options(future.plan = NULL) 1588s [00:53:08.265] if (is.na(NA_character_)) 1588s [00:53:08.265] Sys.unsetenv("R_FUTURE_PLAN") 1588s [00:53:08.265] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1588s [00:53:08.265] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1588s [00:53:08.265] envir = parent.frame()) 1588s [00:53:08.265] { 1588s [00:53:08.265] default_workers <- missing(workers) 1588s [00:53:08.265] if (is.function(workers)) 1588s [00:53:08.265] workers <- workers() 1588s [00:53:08.265] workers <- structure(as.integer(workers), 1588s [00:53:08.265] class = class(workers)) 1588s [00:53:08.265] stop_if_not(is.finite(workers), workers >= 1588s [00:53:08.265] 1L) 1588s [00:53:08.265] if ((workers == 1L && !inherits(workers, 1588s [00:53:08.265] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1588s [00:53:08.265] if (default_workers) 1588s [00:53:08.265] supportsMulticore(warn = TRUE) 1588s [00:53:08.265] return(sequential(..., envir = envir)) 1588s [00:53:08.265] } 1588s [00:53:08.265] oopts <- options(mc.cores = workers) 1588s [00:53:08.265] on.exit(options(oopts)) 1588s [00:53:08.265] future <- MulticoreFuture(..., workers = workers, 1588s [00:53:08.265] envir = envir) 1588s [00:53:08.265] if (!future$lazy) 1588s [00:53:08.265] future <- run(future) 1588s [00:53:08.265] invisible(future) 1588s [00:53:08.265] }), .cleanup = FALSE, .init = FALSE) 1588s [00:53:08.265] } 1588s [00:53:08.265] } 1588s [00:53:08.265] } 1588s [00:53:08.265] }) 1588s [00:53:08.265] if (TRUE) { 1588s [00:53:08.265] base::sink(type = "output", split = FALSE) 1588s [00:53:08.265] if (TRUE) { 1588s [00:53:08.265] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1588s [00:53:08.265] } 1588s [00:53:08.265] else { 1588s [00:53:08.265] ...future.result["stdout"] <- base::list(NULL) 1588s [00:53:08.265] } 1588s [00:53:08.265] base::close(...future.stdout) 1588s [00:53:08.265] ...future.stdout <- NULL 1588s [00:53:08.265] } 1588s [00:53:08.265] ...future.result$conditions <- ...future.conditions 1588s [00:53:08.265] ...future.result$finished <- base::Sys.time() 1588s [00:53:08.265] ...future.result 1588s [00:53:08.265] } 1588s [00:53:08.269] assign_globals() ... 1588s [00:53:08.269] List of 11 1588s [00:53:08.269] $ ...future.FUN :function (x, ...) 1588s [00:53:08.269] $ x_FUN :function (x, na.rm = TRUE) 1588s [00:53:08.269] $ times : int 5 1588s [00:53:08.269] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1588s [00:53:08.269] $ stop_if_not :function (...) 1588s [00:53:08.269] $ dim : NULL 1588s [00:53:08.269] $ valid_types : chr [1:3] "logical" "integer" "double" 1588s [00:53:08.269] $ future.call.arguments : list() 1588s [00:53:08.269] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1588s [00:53:08.269] $ ...future.elements_ii :List of 7 1588s [00:53:08.269] ..$ : int [1:3] 1 2 3 1588s [00:53:08.269] ..$ : int [1:4] 1 2 3 4 1588s [00:53:08.269] ..$ : int [1:5] 1 2 3 4 5 1588s [00:53:08.269] ..$ : int [1:6] 1 2 3 4 5 6 1588s [00:53:08.269] ..$ : int [1:7] 1 2 3 4 5 6 7 1588s [00:53:08.269] ..$ : int [1:8] 1 2 3 4 5 6 7 8 1588s [00:53:08.269] ..$ : int [1:9] 1 2 3 4 5 6 7 8 9 1588s [00:53:08.269] $ ...future.seeds_ii : NULL 1588s [00:53:08.269] $ ...future.globals.maxSize: NULL 1588s [00:53:08.269] - attr(*, "where")=List of 11 1588s [00:53:08.269] ..$ ...future.FUN : 1588s [00:53:08.269] ..$ x_FUN : 1588s [00:53:08.269] ..$ times : 1588s [00:53:08.269] ..$ stopf : 1588s [00:53:08.269] ..$ stop_if_not : 1588s [00:53:08.269] ..$ dim : 1588s [00:53:08.269] ..$ valid_types : 1588s [00:53:08.269] ..$ future.call.arguments : 1588s [00:53:08.269] ..$ ...future.elements_ii : 1588s [00:53:08.269] ..$ ...future.seeds_ii : 1588s [00:53:08.269] ..$ ...future.globals.maxSize: 1588s [00:53:08.269] - attr(*, "resolved")= logi FALSE 1588s [00:53:08.269] - attr(*, "total_size")= num 141240 1588s [00:53:08.269] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1588s [00:53:08.269] - attr(*, "already-done")= logi TRUE 1588s [00:53:08.282] - copied ‘...future.FUN’ to environment 1588s [00:53:08.282] - copied ‘x_FUN’ to environment 1588s [00:53:08.283] - copied ‘times’ to environment 1588s [00:53:08.283] - copied ‘stopf’ to environment 1588s [00:53:08.283] - copied ‘stop_if_not’ to environment 1588s [00:53:08.283] - copied ‘dim’ to environment 1588s [00:53:08.283] - copied ‘valid_types’ to environment 1588s [00:53:08.283] - copied ‘future.call.arguments’ to environment 1588s [00:53:08.283] - copied ‘...future.elements_ii’ to environment 1588s [00:53:08.283] - copied ‘...future.seeds_ii’ to environment 1588s [00:53:08.284] - copied ‘...future.globals.maxSize’ to environment 1588s [00:53:08.284] assign_globals() ... done 1588s [00:53:08.284] plan(): Setting new future strategy stack: 1588s [00:53:08.284] List of future strategies: 1588s [00:53:08.284] 1. sequential: 1588s [00:53:08.284] - args: function (..., envir = parent.frame()) 1588s [00:53:08.284] - tweaked: FALSE 1588s [00:53:08.284] - call: NULL 1588s [00:53:08.285] plan(): nbrOfWorkers() = 1 1588s [00:53:08.285] plan(): Setting new future strategy stack: 1588s [00:53:08.285] List of future strategies: 1588s [00:53:08.285] 1. multicore: 1588s [00:53:08.285] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1588s [00:53:08.285] - tweaked: FALSE 1588s [00:53:08.285] - call: plan(strategy) 1588s [00:53:08.289] plan(): nbrOfWorkers() = 1 1588s [00:53:08.289] SequentialFuture started (and completed) 1588s [00:53:08.289] - Launch lazy future ... done 1588s [00:53:08.289] run() for ‘SequentialFuture’ ... done 1588s [00:53:08.289] Created future: 1588s [00:53:08.290] SequentialFuture: 1588s [00:53:08.290] Label: ‘future_vapply-1’ 1588s [00:53:08.290] Expression: 1588s [00:53:08.290] { 1588s [00:53:08.290] do.call(function(...) { 1588s [00:53:08.290] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1588s [00:53:08.290] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1588s [00:53:08.290] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1588s [00:53:08.290] on.exit(options(oopts), add = TRUE) 1588s [00:53:08.290] } 1588s [00:53:08.290] { 1588s [00:53:08.290] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1588s [00:53:08.290] ...future.X_jj <- ...future.elements_ii[[jj]] 1588s [00:53:08.290] ...future.FUN(...future.X_jj, ...) 1588s [00:53:08.290] }) 1588s [00:53:08.290] } 1588s [00:53:08.290] }, args = future.call.arguments) 1588s [00:53:08.290] } 1588s [00:53:08.290] Lazy evaluation: FALSE 1588s [00:53:08.290] Asynchronous evaluation: FALSE 1588s [00:53:08.290] Local evaluation: TRUE 1588s [00:53:08.290] Environment: R_GlobalEnv 1588s [00:53:08.290] Capture standard output: TRUE 1588s [00:53:08.290] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1588s [00:53:08.290] Globals: 11 objects totaling 138.46 KiB (function ‘...future.FUN’ of 21.22 KiB, function ‘x_FUN’ of 45.86 KiB, integer ‘times’ of 56 bytes, function ‘stopf’ of 26.43 KiB, function ‘stop_if_not’ of 44.12 KiB, ...) 1588s [00:53:08.290] Packages: 2 packages (‘stats’, ‘future.apply’) 1588s [00:53:08.290] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1588s [00:53:08.290] Resolved: TRUE 1588s [00:53:08.290] Value: 672 bytes of class ‘list’ 1588s [00:53:08.290] Early signaling: FALSE 1588s [00:53:08.290] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1588s [00:53:08.290] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1588s [00:53:08.291] Chunk #1 of 1 ... DONE 1588s [00:53:08.291] Launching 1 futures (chunks) ... DONE 1588s [00:53:08.291] Resolving 1 futures (chunks) ... 1588s [00:53:08.292] resolve() on list ... 1588s [00:53:08.292] recursive: 0 1588s [00:53:08.292] length: 1 1588s [00:53:08.292] 1588s [00:53:08.292] resolved() for ‘SequentialFuture’ ... 1588s [00:53:08.292] - state: ‘finished’ 1588s [00:53:08.292] - run: TRUE 1588s [00:53:08.293] - result: ‘FutureResult’ 1588s [00:53:08.293] resolved() for ‘SequentialFuture’ ... done 1588s [00:53:08.293] Future #1 1588s [00:53:08.293] signalConditionsASAP(SequentialFuture, pos=1) ... 1588s [00:53:08.293] - nx: 1 1588s [00:53:08.293] - relay: TRUE 1588s [00:53:08.293] - stdout: TRUE 1588s [00:53:08.294] - signal: TRUE 1588s [00:53:08.294] - resignal: FALSE 1588s [00:53:08.294] - force: TRUE 1588s [00:53:08.294] - relayed: [n=1] FALSE 1588s [00:53:08.294] - queued futures: [n=1] FALSE 1588s [00:53:08.294] - until=1 1588s [00:53:08.294] - relaying element #1 1588s [00:53:08.295] - relayed: [n=1] TRUE 1588s [00:53:08.295] - queued futures: [n=1] TRUE 1588s [00:53:08.295] signalConditionsASAP(SequentialFuture, pos=1) ... done 1588s [00:53:08.295] length: 0 (resolved future 1) 1588s [00:53:08.295] Relaying remaining futures 1588s [00:53:08.295] signalConditionsASAP(NULL, pos=0) ... 1588s [00:53:08.295] - nx: 1 1588s [00:53:08.296] - relay: TRUE 1588s [00:53:08.296] - stdout: TRUE 1588s [00:53:08.296] - signal: TRUE 1588s [00:53:08.296] - resignal: FALSE 1588s [00:53:08.296] - force: TRUE 1588s [00:53:08.296] - relayed: [n=1] TRUE 1588s [00:53:08.296] - queued futures: [n=1] TRUE 1588s - flush all 1588s [00:53:08.297] - relayed: [n=1] TRUE 1588s [00:53:08.297] - queued futures: [n=1] TRUE 1588s [00:53:08.297] signalConditionsASAP(NULL, pos=0) ... done 1588s [00:53:08.297] resolve() on list ... DONE 1588s [00:53:08.297] - Number of value chunks collected: 1 1588s [00:53:08.297] Resolving 1 futures (chunks) ... DONE 1588s [00:53:08.297] Reducing values from 1 chunks ... 1588s [00:53:08.298] - Number of values collected after concatenation: 7 1588s [00:53:08.298] - Number of values expected: 7 1588s [00:53:08.298] Reducing values from 1 chunks ... DONE 1588s [00:53:08.298] future_lapply() ... DONE 1588s num [1:5, 1:7] 1 1.5 2 2.5 3 1 1.5 2.5 3.5 4 ... 1588s - attr(*, "dimnames")=List of 2 1588s ..$ : chr [1:5] "Min." "1st Qu." "Median" "3rd Qu." ... 1588s ..$ : NULL 1588s [00:53:08.300] future_lapply() ... 1588s [00:53:08.303] Number of chunks: 1 1588s [00:53:08.304] getGlobalsAndPackagesXApply() ... 1588s [00:53:08.304] - future.globals: TRUE 1588s [00:53:08.304] getGlobalsAndPackages() ... 1588s [00:53:08.304] Searching for globals... 1588s [00:53:08.305] - globals found: [3] ‘FUN’, ‘outer’, ‘rep’ 1588s [00:53:08.306] Searching for globals ... DONE 1588s [00:53:08.306] Resolving globals: FALSE 1588s [00:53:08.308] The total size of the 1 globals is 4.07 KiB (4168 bytes) 1588s [00:53:08.308] The total size of the 1 globals exported for future expression (‘FUN(y = c(2, 4, 6, 8, 10))’) is 4.07 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.07 KiB of class ‘function’) 1588s [00:53:08.308] - globals: [1] ‘FUN’ 1588s [00:53:08.309] 1588s [00:53:08.309] getGlobalsAndPackages() ... DONE 1588s [00:53:08.309] - globals found/used: [n=1] ‘FUN’ 1588s [00:53:08.309] - needed namespaces: [n=0] 1588s [00:53:08.309] Finding globals ... DONE 1588s [00:53:08.309] - use_args: TRUE 1588s [00:53:08.309] - Getting '...' globals ... 1588s [00:53:08.310] resolve() on list ... 1588s [00:53:08.310] recursive: 0 1588s [00:53:08.310] length: 1 1588s [00:53:08.310] elements: ‘...’ 1588s [00:53:08.311] length: 0 (resolved future 1) 1588s [00:53:08.311] resolve() on list ... DONE 1588s [00:53:08.311] - '...' content: [n=1] ‘y’ 1588s [00:53:08.311] List of 1 1588s [00:53:08.311] $ ...:List of 1 1588s [00:53:08.311] ..$ y: num [1:5] 2 4 6 8 10 1588s [00:53:08.311] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1588s [00:53:08.311] - attr(*, "where")=List of 1 1588s [00:53:08.311] ..$ ...: 1588s [00:53:08.311] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1588s [00:53:08.311] - attr(*, "resolved")= logi TRUE 1588s [00:53:08.311] - attr(*, "total_size")= num NA 1588s [00:53:08.315] - Getting '...' globals ... DONE 1588s [00:53:08.315] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1588s [00:53:08.315] List of 2 1588s [00:53:08.315] $ ...future.FUN:function (x, y) 1588s [00:53:08.315] $ ... :List of 1 1588s [00:53:08.315] ..$ y: num [1:5] 2 4 6 8 10 1588s [00:53:08.315] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1588s [00:53:08.315] - attr(*, "where")=List of 2 1588s [00:53:08.315] ..$ ...future.FUN: 1588s [00:53:08.315] ..$ ... : 1588s [00:53:08.315] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1588s [00:53:08.315] - attr(*, "resolved")= logi FALSE 1588s [00:53:08.315] - attr(*, "total_size")= num 4264 1588s [00:53:08.318] Packages to be attached in all futures: [n=0] 1588s [00:53:08.318] getGlobalsAndPackagesXApply() ... DONE 1588s [00:53:08.319] Number of futures (= number of chunks): 1 1588s [00:53:08.319] Launching 1 futures (chunks) ... 1588s [00:53:08.319] Chunk #1 of 1 ... 1588s [00:53:08.319] - Finding globals in 'X' for chunk #1 ... 1588s [00:53:08.319] getGlobalsAndPackages() ... 1588s [00:53:08.319] Searching for globals... 1588s [00:53:08.319] 1588s [00:53:08.320] Searching for globals ... DONE 1588s [00:53:08.320] - globals: [0] 1588s [00:53:08.320] getGlobalsAndPackages() ... DONE 1588s [00:53:08.320] + additional globals found: [n=0] 1588s [00:53:08.320] + additional namespaces needed: [n=0] 1588s [00:53:08.320] - Finding globals in 'X' for chunk #1 ... DONE 1588s [00:53:08.320] - seeds: 1588s [00:53:08.321] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1588s [00:53:08.321] getGlobalsAndPackages() ... 1588s [00:53:08.321] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1588s [00:53:08.321] Resolving globals: FALSE 1588s [00:53:08.321] Tweak future expression to call with '...' arguments ... 1588s [00:53:08.321] { 1588s [00:53:08.321] do.call(function(...) { 1588s [00:53:08.321] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1588s [00:53:08.321] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1588s [00:53:08.321] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1588s [00:53:08.321] on.exit(options(oopts), add = TRUE) 1588s [00:53:08.321] } 1588s [00:53:08.321] { 1588s [00:53:08.321] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1588s [00:53:08.321] ...future.X_jj <- ...future.elements_ii[[jj]] 1588s [00:53:08.321] ...future.FUN(...future.X_jj, ...) 1588s [00:53:08.321] }) 1588s [00:53:08.321] } 1588s [00:53:08.321] }, args = future.call.arguments) 1588s [00:53:08.321] } 1588s [00:53:08.322] Tweak future expression to call with '...' arguments ... DONE 1588s [00:53:08.322] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1588s [00:53:08.323] 1588s [00:53:08.323] getGlobalsAndPackages() ... DONE 1588s [00:53:08.323] run() for ‘Future’ ... 1588s [00:53:08.323] - state: ‘created’ 1588s [00:53:08.323] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1588s [00:53:08.327] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1588s [00:53:08.328] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1588s [00:53:08.328] - Field: ‘label’ 1588s [00:53:08.328] - Field: ‘local’ 1588s [00:53:08.328] - Field: ‘owner’ 1588s [00:53:08.328] - Field: ‘envir’ 1588s [00:53:08.329] - Field: ‘packages’ 1588s [00:53:08.329] - Field: ‘gc’ 1588s [00:53:08.329] - Field: ‘conditions’ 1588s [00:53:08.329] - Field: ‘expr’ 1588s [00:53:08.329] - Field: ‘uuid’ 1588s [00:53:08.330] - Field: ‘seed’ 1588s [00:53:08.330] - Field: ‘version’ 1588s [00:53:08.330] - Field: ‘result’ 1588s [00:53:08.330] - Field: ‘asynchronous’ 1588s [00:53:08.330] - Field: ‘calls’ 1588s [00:53:08.330] - Field: ‘globals’ 1588s [00:53:08.331] - Field: ‘stdout’ 1588s [00:53:08.331] - Field: ‘earlySignal’ 1588s [00:53:08.331] - Field: ‘lazy’ 1588s [00:53:08.331] - Field: ‘state’ 1588s [00:53:08.331] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1588s [00:53:08.331] - Launch lazy future ... 1588s [00:53:08.332] Packages needed by the future expression (n = 0): 1588s [00:53:08.332] Packages needed by future strategies (n = 0): 1588s [00:53:08.332] { 1588s [00:53:08.332] { 1588s [00:53:08.332] { 1588s [00:53:08.332] ...future.startTime <- base::Sys.time() 1588s [00:53:08.332] { 1588s [00:53:08.332] { 1588s [00:53:08.332] { 1588s [00:53:08.332] base::local({ 1588s [00:53:08.332] has_future <- base::requireNamespace("future", 1588s [00:53:08.332] quietly = TRUE) 1588s [00:53:08.332] if (has_future) { 1588s [00:53:08.332] ns <- base::getNamespace("future") 1588s [00:53:08.332] version <- ns[[".package"]][["version"]] 1588s [00:53:08.332] if (is.null(version)) 1588s [00:53:08.332] version <- utils::packageVersion("future") 1588s [00:53:08.332] } 1588s [00:53:08.332] else { 1588s [00:53:08.332] version <- NULL 1588s [00:53:08.332] } 1588s [00:53:08.332] if (!has_future || version < "1.8.0") { 1588s [00:53:08.332] info <- base::c(r_version = base::gsub("R version ", 1588s [00:53:08.332] "", base::R.version$version.string), 1588s [00:53:08.332] platform = base::sprintf("%s (%s-bit)", 1588s [00:53:08.332] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1588s [00:53:08.332] os = base::paste(base::Sys.info()[base::c("sysname", 1588s [00:53:08.332] "release", "version")], collapse = " "), 1588s [00:53:08.332] hostname = base::Sys.info()[["nodename"]]) 1588s [00:53:08.332] info <- base::sprintf("%s: %s", base::names(info), 1588s [00:53:08.332] info) 1588s [00:53:08.332] info <- base::paste(info, collapse = "; ") 1588s [00:53:08.332] if (!has_future) { 1588s [00:53:08.332] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1588s [00:53:08.332] info) 1588s [00:53:08.332] } 1588s [00:53:08.332] else { 1588s [00:53:08.332] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1588s [00:53:08.332] info, version) 1588s [00:53:08.332] } 1588s [00:53:08.332] base::stop(msg) 1588s [00:53:08.332] } 1588s [00:53:08.332] }) 1588s [00:53:08.332] } 1588s [00:53:08.332] options(future.plan = NULL) 1588s [00:53:08.332] Sys.unsetenv("R_FUTURE_PLAN") 1588s [00:53:08.332] future::plan("default", .cleanup = FALSE, .init = FALSE) 1588s [00:53:08.332] } 1588s [00:53:08.332] ...future.workdir <- getwd() 1588s [00:53:08.332] } 1588s [00:53:08.332] ...future.oldOptions <- base::as.list(base::.Options) 1588s [00:53:08.332] ...future.oldEnvVars <- base::Sys.getenv() 1588s [00:53:08.332] } 1588s [00:53:08.332] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1588s [00:53:08.332] future.globals.maxSize = NULL, future.globals.method = NULL, 1588s [00:53:08.332] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1588s [00:53:08.332] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1588s [00:53:08.332] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1588s [00:53:08.332] future.stdout.windows.reencode = NULL, width = 80L) 1588s [00:53:08.332] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1588s [00:53:08.332] base::names(...future.oldOptions)) 1588s [00:53:08.332] } 1588s [00:53:08.332] if (FALSE) { 1588s [00:53:08.332] } 1588s [00:53:08.332] else { 1588s [00:53:08.332] if (TRUE) { 1588s [00:53:08.332] ...future.stdout <- base::rawConnection(base::raw(0L), 1588s [00:53:08.332] open = "w") 1588s [00:53:08.332] } 1588s [00:53:08.332] else { 1588s [00:53:08.332] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1588s [00:53:08.332] windows = "NUL", "/dev/null"), open = "w") 1588s [00:53:08.332] } 1588s [00:53:08.332] base::sink(...future.stdout, type = "output", split = FALSE) 1588s [00:53:08.332] base::on.exit(if (!base::is.null(...future.stdout)) { 1588s [00:53:08.332] base::sink(type = "output", split = FALSE) 1588s [00:53:08.332] base::close(...future.stdout) 1588s [00:53:08.332] }, add = TRUE) 1588s [00:53:08.332] } 1588s [00:53:08.332] ...future.frame <- base::sys.nframe() 1588s [00:53:08.332] ...future.conditions <- base::list() 1588s [00:53:08.332] ...future.rng <- base::globalenv()$.Random.seed 1588s [00:53:08.332] if (FALSE) { 1588s [00:53:08.332] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1588s [00:53:08.332] "...future.value", "...future.globalenv.names", ".Random.seed") 1588s [00:53:08.332] } 1588s [00:53:08.332] ...future.result <- base::tryCatch({ 1588s [00:53:08.332] base::withCallingHandlers({ 1588s [00:53:08.332] ...future.value <- base::withVisible(base::local({ 1588s [00:53:08.332] do.call(function(...) { 1588s [00:53:08.332] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1588s [00:53:08.332] if (!identical(...future.globals.maxSize.org, 1588s [00:53:08.332] ...future.globals.maxSize)) { 1588s [00:53:08.332] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1588s [00:53:08.332] on.exit(options(oopts), add = TRUE) 1588s [00:53:08.332] } 1588s [00:53:08.332] { 1588s [00:53:08.332] lapply(seq_along(...future.elements_ii), 1588s [00:53:08.332] FUN = function(jj) { 1588s [00:53:08.332] ...future.X_jj <- ...future.elements_ii[[jj]] 1588s [00:53:08.332] ...future.FUN(...future.X_jj, ...) 1588s [00:53:08.332] }) 1588s [00:53:08.332] } 1588s [00:53:08.332] }, args = future.call.arguments) 1588s [00:53:08.332] })) 1588s [00:53:08.332] future::FutureResult(value = ...future.value$value, 1588s [00:53:08.332] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1588s [00:53:08.332] ...future.rng), globalenv = if (FALSE) 1588s [00:53:08.332] list(added = base::setdiff(base::names(base::.GlobalEnv), 1588s [00:53:08.332] ...future.globalenv.names)) 1588s [00:53:08.332] else NULL, started = ...future.startTime, version = "1.8") 1588s [00:53:08.332] }, condition = base::local({ 1588s [00:53:08.332] c <- base::c 1588s [00:53:08.332] inherits <- base::inherits 1588s [00:53:08.332] invokeRestart <- base::invokeRestart 1588s [00:53:08.332] length <- base::length 1588s [00:53:08.332] list <- base::list 1588s [00:53:08.332] seq.int <- base::seq.int 1588s [00:53:08.332] signalCondition <- base::signalCondition 1588s [00:53:08.332] sys.calls <- base::sys.calls 1588s [00:53:08.332] `[[` <- base::`[[` 1588s [00:53:08.332] `+` <- base::`+` 1588s [00:53:08.332] `<<-` <- base::`<<-` 1588s [00:53:08.332] sysCalls <- function(calls = sys.calls(), from = 1L) { 1588s [00:53:08.332] calls[seq.int(from = from + 12L, to = length(calls) - 1588s [00:53:08.332] 3L)] 1588s [00:53:08.332] } 1588s [00:53:08.332] function(cond) { 1588s [00:53:08.332] is_error <- inherits(cond, "error") 1588s [00:53:08.332] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1588s [00:53:08.332] NULL) 1588s [00:53:08.332] if (is_error) { 1588s [00:53:08.332] sessionInformation <- function() { 1588s [00:53:08.332] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1588s [00:53:08.332] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1588s [00:53:08.332] search = base::search(), system = base::Sys.info()) 1588s [00:53:08.332] } 1588s [00:53:08.332] ...future.conditions[[length(...future.conditions) + 1588s [00:53:08.332] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1588s [00:53:08.332] cond$call), session = sessionInformation(), 1588s [00:53:08.332] timestamp = base::Sys.time(), signaled = 0L) 1588s [00:53:08.332] signalCondition(cond) 1588s [00:53:08.332] } 1588s [00:53:08.332] else if (!ignore && TRUE && inherits(cond, c("condition", 1588s [00:53:08.332] "immediateCondition"))) { 1588s [00:53:08.332] signal <- TRUE && inherits(cond, "immediateCondition") 1588s [00:53:08.332] ...future.conditions[[length(...future.conditions) + 1588s [00:53:08.332] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1588s [00:53:08.332] if (TRUE && !signal) { 1588s [00:53:08.332] muffleCondition <- function (cond, pattern = "^muffle") 1588s [00:53:08.332] { 1588s [00:53:08.332] inherits <- base::inherits 1588s [00:53:08.332] invokeRestart <- base::invokeRestart 1588s [00:53:08.332] is.null <- base::is.null 1588s [00:53:08.332] muffled <- FALSE 1588s [00:53:08.332] if (inherits(cond, "message")) { 1588s [00:53:08.332] muffled <- grepl(pattern, "muffleMessage") 1588s [00:53:08.332] if (muffled) 1588s [00:53:08.332] invokeRestart("muffleMessage") 1588s [00:53:08.332] } 1588s [00:53:08.332] else if (inherits(cond, "warning")) { 1588s [00:53:08.332] muffled <- grepl(pattern, "muffleWarning") 1588s [00:53:08.332] if (muffled) 1588s [00:53:08.332] invokeRestart("muffleWarning") 1588s [00:53:08.332] } 1588s [00:53:08.332] else if (inherits(cond, "condition")) { 1588s [00:53:08.332] if (!is.null(pattern)) { 1588s [00:53:08.332] computeRestarts <- base::computeRestarts 1588s [00:53:08.332] grepl <- base::grepl 1588s [00:53:08.332] restarts <- computeRestarts(cond) 1588s [00:53:08.332] for (restart in restarts) { 1588s [00:53:08.332] name <- restart$name 1588s [00:53:08.332] if (is.null(name)) 1588s [00:53:08.332] next 1588s [00:53:08.332] if (!grepl(pattern, name)) 1588s [00:53:08.332] next 1588s [00:53:08.332] invokeRestart(restart) 1588s [00:53:08.332] muffled <- TRUE 1588s [00:53:08.332] break 1588s [00:53:08.332] } 1588s [00:53:08.332] } 1588s [00:53:08.332] } 1588s [00:53:08.332] invisible(muffled) 1588s [00:53:08.332] } 1588s [00:53:08.332] muffleCondition(cond, pattern = "^muffle") 1588s [00:53:08.332] } 1588s [00:53:08.332] } 1588s [00:53:08.332] else { 1588s [00:53:08.332] if (TRUE) { 1588s [00:53:08.332] muffleCondition <- function (cond, pattern = "^muffle") 1588s [00:53:08.332] { 1588s [00:53:08.332] inherits <- base::inherits 1588s [00:53:08.332] invokeRestart <- base::invokeRestart 1588s [00:53:08.332] is.null <- base::is.null 1588s [00:53:08.332] muffled <- FALSE 1588s [00:53:08.332] if (inherits(cond, "message")) { 1588s [00:53:08.332] muffled <- grepl(pattern, "muffleMessage") 1588s [00:53:08.332] if (muffled) 1588s [00:53:08.332] invokeRestart("muffleMessage") 1588s [00:53:08.332] } 1588s [00:53:08.332] else if (inherits(cond, "warning")) { 1588s [00:53:08.332] muffled <- grepl(pattern, "muffleWarning") 1588s [00:53:08.332] if (muffled) 1588s [00:53:08.332] invokeRestart("muffleWarning") 1588s [00:53:08.332] } 1588s [00:53:08.332] else if (inherits(cond, "condition")) { 1588s [00:53:08.332] if (!is.null(pattern)) { 1588s [00:53:08.332] computeRestarts <- base::computeRestarts 1588s [00:53:08.332] grepl <- base::grepl 1588s [00:53:08.332] restarts <- computeRestarts(cond) 1588s [00:53:08.332] for (restart in restarts) { 1588s [00:53:08.332] name <- restart$name 1588s [00:53:08.332] if (is.null(name)) 1588s [00:53:08.332] next 1588s [00:53:08.332] if (!grepl(pattern, name)) 1588s [00:53:08.332] next 1588s [00:53:08.332] invokeRestart(restart) 1588s [00:53:08.332] muffled <- TRUE 1588s [00:53:08.332] break 1588s [00:53:08.332] } 1588s [00:53:08.332] } 1588s [00:53:08.332] } 1588s [00:53:08.332] invisible(muffled) 1588s [00:53:08.332] } 1588s [00:53:08.332] muffleCondition(cond, pattern = "^muffle") 1588s [00:53:08.332] } 1588s [00:53:08.332] } 1588s [00:53:08.332] } 1588s [00:53:08.332] })) 1588s [00:53:08.332] }, error = function(ex) { 1588s [00:53:08.332] base::structure(base::list(value = NULL, visible = NULL, 1588s [00:53:08.332] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1588s [00:53:08.332] ...future.rng), started = ...future.startTime, 1588s [00:53:08.332] finished = Sys.time(), session_uuid = NA_character_, 1588s [00:53:08.332] version = "1.8"), class = "FutureResult") 1588s [00:53:08.332] }, finally = { 1588s [00:53:08.332] if (!identical(...future.workdir, getwd())) 1588s [00:53:08.332] setwd(...future.workdir) 1588s [00:53:08.332] { 1588s [00:53:08.332] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1588s [00:53:08.332] ...future.oldOptions$nwarnings <- NULL 1588s [00:53:08.332] } 1588s [00:53:08.332] base::options(...future.oldOptions) 1588s [00:53:08.332] if (.Platform$OS.type == "windows") { 1588s [00:53:08.332] old_names <- names(...future.oldEnvVars) 1588s [00:53:08.332] envs <- base::Sys.getenv() 1588s [00:53:08.332] names <- names(envs) 1588s [00:53:08.332] common <- intersect(names, old_names) 1588s [00:53:08.332] added <- setdiff(names, old_names) 1588s [00:53:08.332] removed <- setdiff(old_names, names) 1588s [00:53:08.332] changed <- common[...future.oldEnvVars[common] != 1588s [00:53:08.332] envs[common]] 1588s [00:53:08.332] NAMES <- toupper(changed) 1588s [00:53:08.332] args <- list() 1588s [00:53:08.332] for (kk in seq_along(NAMES)) { 1588s [00:53:08.332] name <- changed[[kk]] 1588s [00:53:08.332] NAME <- NAMES[[kk]] 1588s [00:53:08.332] if (name != NAME && is.element(NAME, old_names)) 1588s [00:53:08.332] next 1588s [00:53:08.332] args[[name]] <- ...future.oldEnvVars[[name]] 1588s [00:53:08.332] } 1588s [00:53:08.332] NAMES <- toupper(added) 1588s [00:53:08.332] for (kk in seq_along(NAMES)) { 1588s [00:53:08.332] name <- added[[kk]] 1588s [00:53:08.332] NAME <- NAMES[[kk]] 1588s [00:53:08.332] if (name != NAME && is.element(NAME, old_names)) 1588s [00:53:08.332] next 1588s [00:53:08.332] args[[name]] <- "" 1588s [00:53:08.332] } 1588s [00:53:08.332] NAMES <- toupper(removed) 1588s [00:53:08.332] for (kk in seq_along(NAMES)) { 1588s [00:53:08.332] name <- removed[[kk]] 1588s [00:53:08.332] NAME <- NAMES[[kk]] 1588s [00:53:08.332] if (name != NAME && is.element(NAME, old_names)) 1588s [00:53:08.332] next 1588s [00:53:08.332] args[[name]] <- ...future.oldEnvVars[[name]] 1588s [00:53:08.332] } 1588s [00:53:08.332] if (length(args) > 0) 1588s [00:53:08.332] base::do.call(base::Sys.setenv, args = args) 1588s [00:53:08.332] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1588s [00:53:08.332] } 1588s [00:53:08.332] else { 1588s [00:53:08.332] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1588s [00:53:08.332] } 1588s [00:53:08.332] { 1588s [00:53:08.332] if (base::length(...future.futureOptionsAdded) > 1588s [00:53:08.332] 0L) { 1588s [00:53:08.332] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1588s [00:53:08.332] base::names(opts) <- ...future.futureOptionsAdded 1588s [00:53:08.332] base::options(opts) 1588s [00:53:08.332] } 1588s [00:53:08.332] { 1588s [00:53:08.332] { 1588s [00:53:08.332] NULL 1588s [00:53:08.332] RNGkind("Mersenne-Twister") 1588s [00:53:08.332] base::rm(list = ".Random.seed", envir = base::globalenv(), 1588s [00:53:08.332] inherits = FALSE) 1588s [00:53:08.332] } 1588s [00:53:08.332] options(future.plan = NULL) 1588s [00:53:08.332] if (is.na(NA_character_)) 1588s [00:53:08.332] Sys.unsetenv("R_FUTURE_PLAN") 1588s [00:53:08.332] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1588s [00:53:08.332] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1588s [00:53:08.332] envir = parent.frame()) 1588s [00:53:08.332] { 1588s [00:53:08.332] default_workers <- missing(workers) 1588s [00:53:08.332] if (is.function(workers)) 1588s [00:53:08.332] workers <- workers() 1588s [00:53:08.332] workers <- structure(as.integer(workers), 1588s [00:53:08.332] class = class(workers)) 1588s [00:53:08.332] stop_if_not(is.finite(workers), workers >= 1588s [00:53:08.332] 1L) 1588s [00:53:08.332] if ((workers == 1L && !inherits(workers, 1588s [00:53:08.332] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1588s [00:53:08.332] if (default_workers) 1588s [00:53:08.332] supportsMulticore(warn = TRUE) 1588s [00:53:08.332] return(sequential(..., envir = envir)) 1588s [00:53:08.332] } 1588s [00:53:08.332] oopts <- options(mc.cores = workers) 1588s [00:53:08.332] on.exit(options(oopts)) 1588s [00:53:08.332] future <- MulticoreFuture(..., workers = workers, 1588s [00:53:08.332] envir = envir) 1588s [00:53:08.332] if (!future$lazy) 1588s [00:53:08.332] future <- run(future) 1588s [00:53:08.332] invisible(future) 1588s [00:53:08.332] }), .cleanup = FALSE, .init = FALSE) 1588s [00:53:08.332] } 1588s [00:53:08.332] } 1588s [00:53:08.332] } 1588s [00:53:08.332] }) 1588s [00:53:08.332] if (TRUE) { 1588s [00:53:08.332] base::sink(type = "output", split = FALSE) 1588s [00:53:08.332] if (TRUE) { 1588s [00:53:08.332] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1588s [00:53:08.332] } 1588s [00:53:08.332] else { 1588s [00:53:08.332] ...future.result["stdout"] <- base::list(NULL) 1588s [00:53:08.332] } 1588s [00:53:08.332] base::close(...future.stdout) 1588s [00:53:08.332] ...future.stdout <- NULL 1588s [00:53:08.332] } 1588s [00:53:08.332] ...future.result$conditions <- ...future.conditions 1588s [00:53:08.332] ...future.result$finished <- base::Sys.time() 1588s [00:53:08.332] ...future.result 1588s [00:53:08.332] } 1588s [00:53:08.339] assign_globals() ... 1588s [00:53:08.339] List of 5 1588s [00:53:08.339] $ ...future.FUN :function (x, y) 1588s [00:53:08.339] $ future.call.arguments :List of 1 1588s [00:53:08.339] ..$ y: num [1:5] 2 4 6 8 10 1588s [00:53:08.339] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1588s [00:53:08.339] $ ...future.elements_ii :List of 4 1588s [00:53:08.339] ..$ A: num 50 1588s [00:53:08.339] ..$ B: num 60 1588s [00:53:08.339] ..$ C: num 70 1588s [00:53:08.339] ..$ D: num 80 1588s [00:53:08.339] $ ...future.seeds_ii : NULL 1588s [00:53:08.339] $ ...future.globals.maxSize: NULL 1588s [00:53:08.339] - attr(*, "where")=List of 5 1588s [00:53:08.339] ..$ ...future.FUN : 1588s [00:53:08.339] ..$ future.call.arguments : 1588s [00:53:08.339] ..$ ...future.elements_ii : 1588s [00:53:08.339] ..$ ...future.seeds_ii : 1588s [00:53:08.339] ..$ ...future.globals.maxSize: 1588s [00:53:08.339] - attr(*, "resolved")= logi FALSE 1588s [00:53:08.339] - attr(*, "total_size")= num 4264 1588s [00:53:08.339] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1588s [00:53:08.339] - attr(*, "already-done")= logi TRUE 1588s [00:53:08.349] - reassign environment for ‘...future.FUN’ 1588s [00:53:08.349] - copied ‘...future.FUN’ to environment 1588s [00:53:08.350] - copied ‘future.call.arguments’ to environment 1588s [00:53:08.350] - copied ‘...future.elements_ii’ to environment 1588s [00:53:08.350] - copied ‘...future.seeds_ii’ to environment 1588s [00:53:08.350] - copied ‘...future.globals.maxSize’ to environment 1588s [00:53:08.351] assign_globals() ... done 1588s [00:53:08.351] plan(): Setting new future strategy stack: 1588s [00:53:08.351] List of future strategies: 1588s [00:53:08.351] 1. sequential: 1588s [00:53:08.351] - args: function (..., envir = parent.frame()) 1588s [00:53:08.351] - tweaked: FALSE 1588s [00:53:08.351] - call: NULL 1588s [00:53:08.351] plan(): nbrOfWorkers() = 1 1588s [00:53:08.352] plan(): Setting new future strategy stack: 1588s [00:53:08.352] List of future strategies: 1588s [00:53:08.352] 1. multicore: 1588s [00:53:08.352] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1588s [00:53:08.352] - tweaked: FALSE 1588s [00:53:08.352] - call: plan(strategy) 1588s [00:53:08.356] plan(): nbrOfWorkers() = 1 1588s [00:53:08.356] SequentialFuture started (and completed) 1588s [00:53:08.356] - Launch lazy future ... done 1588s [00:53:08.356] run() for ‘SequentialFuture’ ... done 1588s [00:53:08.356] Created future: 1588s [00:53:08.357] SequentialFuture: 1588s [00:53:08.357] Label: ‘future_sapply-1’ 1588s [00:53:08.357] Expression: 1588s [00:53:08.357] { 1588s [00:53:08.357] do.call(function(...) { 1588s [00:53:08.357] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1588s [00:53:08.357] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1588s [00:53:08.357] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1588s [00:53:08.357] on.exit(options(oopts), add = TRUE) 1588s [00:53:08.357] } 1588s [00:53:08.357] { 1588s [00:53:08.357] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1588s [00:53:08.357] ...future.X_jj <- ...future.elements_ii[[jj]] 1588s [00:53:08.357] ...future.FUN(...future.X_jj, ...) 1588s [00:53:08.357] }) 1588s [00:53:08.357] } 1588s [00:53:08.357] }, args = future.call.arguments) 1588s [00:53:08.357] } 1588s [00:53:08.357] Lazy evaluation: FALSE 1588s [00:53:08.357] Asynchronous evaluation: FALSE 1588s [00:53:08.357] Local evaluation: TRUE 1588s [00:53:08.357] Environment: R_GlobalEnv 1588s [00:53:08.357] Capture standard output: TRUE 1588s [00:53:08.357] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1588s [00:53:08.357] Globals: 5 objects totaling 4.38 KiB (function ‘...future.FUN’ of 4.07 KiB, DotDotDotList ‘future.call.arguments’ of 96 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1588s [00:53:08.357] Packages: 1588s [00:53:08.357] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1588s [00:53:08.357] Resolved: TRUE 1588s [00:53:08.357] Value: 1.34 KiB of class ‘list’ 1588s [00:53:08.357] Early signaling: FALSE 1588s [00:53:08.357] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1588s [00:53:08.357] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1588s [00:53:08.359] Chunk #1 of 1 ... DONE 1588s [00:53:08.359] Launching 1 futures (chunks) ... DONE 1588s [00:53:08.359] Resolving 1 futures (chunks) ... 1588s [00:53:08.359] resolve() on list ... 1588s [00:53:08.359] recursive: 0 1588s [00:53:08.360] length: 1 1588s [00:53:08.360] 1588s [00:53:08.360] resolved() for ‘SequentialFuture’ ... 1588s [00:53:08.360] - state: ‘finished’ 1588s [00:53:08.360] - run: TRUE 1588s [00:53:08.360] - result: ‘FutureResult’ 1588s [00:53:08.361] resolved() for ‘SequentialFuture’ ... done 1588s [00:53:08.361] Future #1 1588s [00:53:08.361] signalConditionsASAP(SequentialFuture, pos=1) ... 1588s [00:53:08.361] - nx: 1 1588s [00:53:08.361] - relay: TRUE 1588s [00:53:08.362] - stdout: TRUE 1588s [00:53:08.362] - signal: TRUE 1588s [00:53:08.362] - resignal: FALSE 1588s [00:53:08.362] - force: TRUE 1588s [00:53:08.362] - relayed: [n=1] FALSE 1588s [00:53:08.362] - queued futures: [n=1] FALSE 1588s [00:53:08.362] - until=1 1588s [00:53:08.363] - relaying element #1 1588s [00:53:08.363] - relayed: [n=1] TRUE 1588s [00:53:08.363] - queued futures: [n=1] TRUE 1588s [00:53:08.363] signalConditionsASAP(SequentialFuture, pos=1) ... done 1588s [00:53:08.364] length: 0 (resolved future 1) 1588s [00:53:08.364] Relaying remaining futures 1588s [00:53:08.364] signalConditionsASAP(NULL, pos=0) ... 1588s [00:53:08.364] - nx: 1 1588s [00:53:08.364] - relay: TRUE 1588s [00:53:08.364] - stdout: TRUE 1588s [00:53:08.365] - signal: TRUE 1588s [00:53:08.365] - resignal: FALSE 1588s [00:53:08.365] - force: TRUE 1588s [00:53:08.365] - relayed: [n=1] TRUE 1588s [00:53:08.365] - queued futures: [n=1] TRUE 1588s - flush all 1588s [00:53:08.366] - relayed: [n=1] TRUE 1588s [00:53:08.366] - queued futures: [n=1] TRUE 1588s [00:53:08.366] signalConditionsASAP(NULL, pos=0) ... done 1588s [00:53:08.366] resolve() on list ... DONE 1588s [00:53:08.366] - Number of value chunks collected: 1 1588s [00:53:08.367] Resolving 1 futures (chunks) ... DONE 1588s [00:53:08.367] Reducing values from 1 chunks ... 1588s [00:53:08.367] - Number of values collected after concatenation: 4 1588s [00:53:08.367] - Number of values expected: 4 1588s [00:53:08.367] Reducing values from 1 chunks ... DONE 1588s [00:53:08.367] future_lapply() ... DONE 1588s [00:53:08.368] future_lapply() ... 1588s [00:53:08.374] Number of chunks: 1 1588s [00:53:08.374] getGlobalsAndPackagesXApply() ... 1588s [00:53:08.375] - future.globals: TRUE 1588s [00:53:08.375] getGlobalsAndPackages() ... 1588s [00:53:08.375] Searching for globals... 1588s [00:53:08.382] - globals found: [18] ‘FUN’, ‘{’, ‘<-’, ‘x_FUN’, ‘if’, ‘!=’, ‘length’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘all’, ‘==’, ‘dim’, ‘%in%’, ‘typeof’, ‘valid_types’, ‘outer’, ‘rep’ 1588s [00:53:08.382] Searching for globals ... DONE 1588s [00:53:08.383] Resolving globals: FALSE 1588s [00:53:08.384] The total size of the 7 globals is 96.20 KiB (98504 bytes) 1588s [00:53:08.385] The total size of the 7 globals exported for future expression (‘FUN(y = c(2, 4, 6, 8, 10))’) is 96.20 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘stop_if_not’ (44.12 KiB of class ‘function’), ‘stopf’ (26.43 KiB of class ‘function’) and ‘FUN’ (21.22 KiB of class ‘function’) 1588s [00:53:08.385] - globals: [7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1588s [00:53:08.385] - packages: [1] ‘future.apply’ 1588s [00:53:08.385] getGlobalsAndPackages() ... DONE 1588s [00:53:08.386] - globals found/used: [n=7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1588s [00:53:08.386] - needed namespaces: [n=1] ‘future.apply’ 1588s [00:53:08.386] Finding globals ... DONE 1588s [00:53:08.386] - use_args: TRUE 1588s [00:53:08.386] - Getting '...' globals ... 1588s [00:53:08.387] resolve() on list ... 1588s [00:53:08.387] recursive: 0 1588s [00:53:08.387] length: 1 1588s [00:53:08.387] elements: ‘...’ 1588s [00:53:08.387] length: 0 (resolved future 1) 1588s [00:53:08.387] resolve() on list ... DONE 1588s [00:53:08.387] - '...' content: [n=1] ‘y’ 1588s [00:53:08.387] List of 1 1588s [00:53:08.387] $ ...:List of 1 1588s [00:53:08.387] ..$ y: num [1:5] 2 4 6 8 10 1588s [00:53:08.387] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1588s [00:53:08.387] - attr(*, "where")=List of 1 1588s [00:53:08.387] ..$ ...: 1588s [00:53:08.387] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1588s [00:53:08.387] - attr(*, "resolved")= logi TRUE 1588s [00:53:08.387] - attr(*, "total_size")= num NA 1588s [00:53:08.391] - Getting '...' globals ... DONE 1588s [00:53:08.392] Globals to be used in all futures (chunks): [n=8] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’ 1588s [00:53:08.392] List of 8 1588s [00:53:08.392] $ ...future.FUN:function (x, ...) 1588s [00:53:08.392] $ x_FUN :function (x, y) 1588s [00:53:08.392] $ times : int 15 1588s [00:53:08.392] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1588s [00:53:08.392] $ stop_if_not :function (...) 1588s [00:53:08.392] $ dim : int [1:2] 3 5 1588s [00:53:08.392] $ valid_types : chr [1:3] "logical" "integer" "double" 1588s [00:53:08.392] $ ... :List of 1 1588s [00:53:08.392] ..$ y: num [1:5] 2 4 6 8 10 1588s [00:53:08.392] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1588s [00:53:08.392] - attr(*, "where")=List of 8 1588s [00:53:08.392] ..$ ...future.FUN: 1588s [00:53:08.392] ..$ x_FUN : 1588s [00:53:08.392] ..$ times : 1588s [00:53:08.392] ..$ stopf : 1588s [00:53:08.392] ..$ stop_if_not : 1588s [00:53:08.392] ..$ dim : 1588s [00:53:08.392] ..$ valid_types : 1588s [00:53:08.392] ..$ ... : 1588s [00:53:08.392] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1588s [00:53:08.392] - attr(*, "resolved")= logi FALSE 1588s [00:53:08.392] - attr(*, "total_size")= num 98600 1588s [00:53:08.399] Packages to be attached in all futures: [n=1] ‘future.apply’ 1588s [00:53:08.399] getGlobalsAndPackagesXApply() ... DONE 1588s [00:53:08.399] Number of futures (= number of chunks): 1 1588s [00:53:08.400] Launching 1 futures (chunks) ... 1588s [00:53:08.400] Chunk #1 of 1 ... 1588s [00:53:08.400] - Finding globals in 'X' for chunk #1 ... 1588s [00:53:08.400] getGlobalsAndPackages() ... 1588s [00:53:08.400] Searching for globals... 1588s [00:53:08.401] 1588s [00:53:08.401] Searching for globals ... DONE 1588s [00:53:08.401] - globals: [0] 1588s [00:53:08.401] getGlobalsAndPackages() ... DONE 1588s [00:53:08.401] + additional globals found: [n=0] 1588s [00:53:08.401] + additional namespaces needed: [n=0] 1588s [00:53:08.402] - Finding globals in 'X' for chunk #1 ... DONE 1588s [00:53:08.402] - seeds: 1588s [00:53:08.402] - All globals exported: [n=11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1588s [00:53:08.402] getGlobalsAndPackages() ... 1588s [00:53:08.402] - globals passed as-is: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1588s [00:53:08.402] Resolving globals: FALSE 1588s [00:53:08.403] Tweak future expression to call with '...' arguments ... 1588s [00:53:08.403] { 1588s [00:53:08.403] do.call(function(...) { 1588s [00:53:08.403] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1588s [00:53:08.403] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1588s [00:53:08.403] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1588s [00:53:08.403] on.exit(options(oopts), add = TRUE) 1588s [00:53:08.403] } 1588s [00:53:08.403] { 1588s [00:53:08.403] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1588s [00:53:08.403] ...future.X_jj <- ...future.elements_ii[[jj]] 1588s [00:53:08.403] ...future.FUN(...future.X_jj, ...) 1588s [00:53:08.403] }) 1588s [00:53:08.403] } 1588s [00:53:08.403] }, args = future.call.arguments) 1588s [00:53:08.403] } 1588s [00:53:08.403] Tweak future expression to call with '...' arguments ... DONE 1588s [00:53:08.404] - globals: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1588s [00:53:08.404] - packages: [1] ‘future.apply’ 1588s [00:53:08.404] getGlobalsAndPackages() ... DONE 1588s [00:53:08.405] run() for ‘Future’ ... 1588s [00:53:08.405] - state: ‘created’ 1588s [00:53:08.405] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1588s [00:53:08.408] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1588s [00:53:08.408] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1588s [00:53:08.410] - Field: ‘label’ 1588s [00:53:08.411] - Field: ‘local’ 1588s [00:53:08.411] - Field: ‘owner’ 1588s [00:53:08.411] - Field: ‘envir’ 1588s [00:53:08.411] - Field: ‘packages’ 1588s [00:53:08.411] - Field: ‘gc’ 1588s [00:53:08.411] - Field: ‘conditions’ 1588s [00:53:08.412] - Field: ‘expr’ 1588s [00:53:08.412] - Field: ‘uuid’ 1588s [00:53:08.412] - Field: ‘seed’ 1588s [00:53:08.412] - Field: ‘version’ 1588s [00:53:08.412] - Field: ‘result’ 1588s [00:53:08.412] - Field: ‘asynchronous’ 1588s [00:53:08.413] - Field: ‘calls’ 1588s [00:53:08.413] - Field: ‘globals’ 1588s [00:53:08.413] - Field: ‘stdout’ 1588s [00:53:08.413] - Field: ‘earlySignal’ 1588s [00:53:08.413] - Field: ‘lazy’ 1588s [00:53:08.413] - Field: ‘state’ 1588s [00:53:08.413] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1588s [00:53:08.414] - Launch lazy future ... 1588s [00:53:08.414] Packages needed by the future expression (n = 1): ‘future.apply’ 1588s [00:53:08.414] Packages needed by future strategies (n = 0): 1588s [00:53:08.415] { 1588s [00:53:08.415] { 1588s [00:53:08.415] { 1588s [00:53:08.415] ...future.startTime <- base::Sys.time() 1588s [00:53:08.415] { 1588s [00:53:08.415] { 1588s [00:53:08.415] { 1588s [00:53:08.415] { 1588s [00:53:08.415] base::local({ 1588s [00:53:08.415] has_future <- base::requireNamespace("future", 1588s [00:53:08.415] quietly = TRUE) 1588s [00:53:08.415] if (has_future) { 1588s [00:53:08.415] ns <- base::getNamespace("future") 1588s [00:53:08.415] version <- ns[[".package"]][["version"]] 1588s [00:53:08.415] if (is.null(version)) 1588s [00:53:08.415] version <- utils::packageVersion("future") 1588s [00:53:08.415] } 1588s [00:53:08.415] else { 1588s [00:53:08.415] version <- NULL 1588s [00:53:08.415] } 1588s [00:53:08.415] if (!has_future || version < "1.8.0") { 1588s [00:53:08.415] info <- base::c(r_version = base::gsub("R version ", 1588s [00:53:08.415] "", base::R.version$version.string), 1588s [00:53:08.415] platform = base::sprintf("%s (%s-bit)", 1588s [00:53:08.415] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1588s [00:53:08.415] os = base::paste(base::Sys.info()[base::c("sysname", 1588s [00:53:08.415] "release", "version")], collapse = " "), 1588s [00:53:08.415] hostname = base::Sys.info()[["nodename"]]) 1588s [00:53:08.415] info <- base::sprintf("%s: %s", base::names(info), 1588s [00:53:08.415] info) 1588s [00:53:08.415] info <- base::paste(info, collapse = "; ") 1588s [00:53:08.415] if (!has_future) { 1588s [00:53:08.415] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1588s [00:53:08.415] info) 1588s [00:53:08.415] } 1588s [00:53:08.415] else { 1588s [00:53:08.415] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1588s [00:53:08.415] info, version) 1588s [00:53:08.415] } 1588s [00:53:08.415] base::stop(msg) 1588s [00:53:08.415] } 1588s [00:53:08.415] }) 1588s [00:53:08.415] } 1588s [00:53:08.415] base::local({ 1588s [00:53:08.415] for (pkg in "future.apply") { 1588s [00:53:08.415] base::loadNamespace(pkg) 1588s [00:53:08.415] base::library(pkg, character.only = TRUE) 1588s [00:53:08.415] } 1588s [00:53:08.415] }) 1588s [00:53:08.415] } 1588s [00:53:08.415] options(future.plan = NULL) 1588s [00:53:08.415] Sys.unsetenv("R_FUTURE_PLAN") 1588s [00:53:08.415] future::plan("default", .cleanup = FALSE, .init = FALSE) 1588s [00:53:08.415] } 1588s [00:53:08.415] ...future.workdir <- getwd() 1588s [00:53:08.415] } 1588s [00:53:08.415] ...future.oldOptions <- base::as.list(base::.Options) 1588s [00:53:08.415] ...future.oldEnvVars <- base::Sys.getenv() 1588s [00:53:08.415] } 1588s [00:53:08.415] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1588s [00:53:08.415] future.globals.maxSize = NULL, future.globals.method = NULL, 1588s [00:53:08.415] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1588s [00:53:08.415] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1588s [00:53:08.415] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1588s [00:53:08.415] future.stdout.windows.reencode = NULL, width = 80L) 1588s [00:53:08.415] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1588s [00:53:08.415] base::names(...future.oldOptions)) 1588s [00:53:08.415] } 1588s [00:53:08.415] if (FALSE) { 1588s [00:53:08.415] } 1588s [00:53:08.415] else { 1588s [00:53:08.415] if (TRUE) { 1588s [00:53:08.415] ...future.stdout <- base::rawConnection(base::raw(0L), 1588s [00:53:08.415] open = "w") 1588s [00:53:08.415] } 1588s [00:53:08.415] else { 1588s [00:53:08.415] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1588s [00:53:08.415] windows = "NUL", "/dev/null"), open = "w") 1588s [00:53:08.415] } 1588s [00:53:08.415] base::sink(...future.stdout, type = "output", split = FALSE) 1588s [00:53:08.415] base::on.exit(if (!base::is.null(...future.stdout)) { 1588s [00:53:08.415] base::sink(type = "output", split = FALSE) 1588s [00:53:08.415] base::close(...future.stdout) 1588s [00:53:08.415] }, add = TRUE) 1588s [00:53:08.415] } 1588s [00:53:08.415] ...future.frame <- base::sys.nframe() 1588s [00:53:08.415] ...future.conditions <- base::list() 1588s [00:53:08.415] ...future.rng <- base::globalenv()$.Random.seed 1588s [00:53:08.415] if (FALSE) { 1588s [00:53:08.415] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1588s [00:53:08.415] "...future.value", "...future.globalenv.names", ".Random.seed") 1588s [00:53:08.415] } 1588s [00:53:08.415] ...future.result <- base::tryCatch({ 1588s [00:53:08.415] base::withCallingHandlers({ 1588s [00:53:08.415] ...future.value <- base::withVisible(base::local({ 1588s [00:53:08.415] do.call(function(...) { 1588s [00:53:08.415] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1588s [00:53:08.415] if (!identical(...future.globals.maxSize.org, 1588s [00:53:08.415] ...future.globals.maxSize)) { 1588s [00:53:08.415] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1588s [00:53:08.415] on.exit(options(oopts), add = TRUE) 1588s [00:53:08.415] } 1588s [00:53:08.415] { 1588s [00:53:08.415] lapply(seq_along(...future.elements_ii), 1588s [00:53:08.415] FUN = function(jj) { 1588s [00:53:08.415] ...future.X_jj <- ...future.elements_ii[[jj]] 1588s [00:53:08.415] ...future.FUN(...future.X_jj, ...) 1588s [00:53:08.415] }) 1588s [00:53:08.415] } 1588s [00:53:08.415] }, args = future.call.arguments) 1588s [00:53:08.415] })) 1588s [00:53:08.415] future::FutureResult(value = ...future.value$value, 1588s [00:53:08.415] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1588s [00:53:08.415] ...future.rng), globalenv = if (FALSE) 1588s [00:53:08.415] list(added = base::setdiff(base::names(base::.GlobalEnv), 1588s [00:53:08.415] ...future.globalenv.names)) 1588s [00:53:08.415] else NULL, started = ...future.startTime, version = "1.8") 1588s [00:53:08.415] }, condition = base::local({ 1588s [00:53:08.415] c <- base::c 1588s [00:53:08.415] inherits <- base::inherits 1588s [00:53:08.415] invokeRestart <- base::invokeRestart 1588s [00:53:08.415] length <- base::length 1588s [00:53:08.415] list <- base::list 1588s [00:53:08.415] seq.int <- base::seq.int 1588s [00:53:08.415] signalCondition <- base::signalCondition 1588s [00:53:08.415] sys.calls <- base::sys.calls 1588s [00:53:08.415] `[[` <- base::`[[` 1588s [00:53:08.415] `+` <- base::`+` 1588s [00:53:08.415] `<<-` <- base::`<<-` 1588s [00:53:08.415] sysCalls <- function(calls = sys.calls(), from = 1L) { 1588s [00:53:08.415] calls[seq.int(from = from + 12L, to = length(calls) - 1588s [00:53:08.415] 3L)] 1588s [00:53:08.415] } 1588s [00:53:08.415] function(cond) { 1588s [00:53:08.415] is_error <- inherits(cond, "error") 1588s [00:53:08.415] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1588s [00:53:08.415] NULL) 1588s [00:53:08.415] if (is_error) { 1588s [00:53:08.415] sessionInformation <- function() { 1588s [00:53:08.415] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1588s [00:53:08.415] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1588s [00:53:08.415] search = base::search(), system = base::Sys.info()) 1588s [00:53:08.415] } 1588s [00:53:08.415] ...future.conditions[[length(...future.conditions) + 1588s [00:53:08.415] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1588s [00:53:08.415] cond$call), session = sessionInformation(), 1588s [00:53:08.415] timestamp = base::Sys.time(), signaled = 0L) 1588s [00:53:08.415] signalCondition(cond) 1588s [00:53:08.415] } 1588s [00:53:08.415] else if (!ignore && TRUE && inherits(cond, c("condition", 1588s [00:53:08.415] "immediateCondition"))) { 1588s [00:53:08.415] signal <- TRUE && inherits(cond, "immediateCondition") 1588s [00:53:08.415] ...future.conditions[[length(...future.conditions) + 1588s [00:53:08.415] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1588s [00:53:08.415] if (TRUE && !signal) { 1588s [00:53:08.415] muffleCondition <- function (cond, pattern = "^muffle") 1588s [00:53:08.415] { 1588s [00:53:08.415] inherits <- base::inherits 1588s [00:53:08.415] invokeRestart <- base::invokeRestart 1588s [00:53:08.415] is.null <- base::is.null 1588s [00:53:08.415] muffled <- FALSE 1588s [00:53:08.415] if (inherits(cond, "message")) { 1588s [00:53:08.415] muffled <- grepl(pattern, "muffleMessage") 1588s [00:53:08.415] if (muffled) 1588s [00:53:08.415] invokeRestart("muffleMessage") 1588s [00:53:08.415] } 1588s [00:53:08.415] else if (inherits(cond, "warning")) { 1588s [00:53:08.415] muffled <- grepl(pattern, "muffleWarning") 1588s [00:53:08.415] if (muffled) 1588s [00:53:08.415] invokeRestart("muffleWarning") 1588s [00:53:08.415] } 1588s [00:53:08.415] else if (inherits(cond, "condition")) { 1588s [00:53:08.415] if (!is.null(pattern)) { 1588s [00:53:08.415] computeRestarts <- base::computeRestarts 1588s [00:53:08.415] grepl <- base::grepl 1588s [00:53:08.415] restarts <- computeRestarts(cond) 1588s [00:53:08.415] for (restart in restarts) { 1588s [00:53:08.415] name <- restart$name 1588s [00:53:08.415] if (is.null(name)) 1588s [00:53:08.415] next 1588s [00:53:08.415] if (!grepl(pattern, name)) 1588s [00:53:08.415] next 1588s [00:53:08.415] invokeRestart(restart) 1588s [00:53:08.415] muffled <- TRUE 1588s [00:53:08.415] break 1588s [00:53:08.415] } 1588s [00:53:08.415] } 1588s [00:53:08.415] } 1588s [00:53:08.415] invisible(muffled) 1588s [00:53:08.415] } 1588s [00:53:08.415] muffleCondition(cond, pattern = "^muffle") 1588s [00:53:08.415] } 1588s [00:53:08.415] } 1588s [00:53:08.415] else { 1588s [00:53:08.415] if (TRUE) { 1588s [00:53:08.415] muffleCondition <- function (cond, pattern = "^muffle") 1588s [00:53:08.415] { 1588s [00:53:08.415] inherits <- base::inherits 1588s [00:53:08.415] invokeRestart <- base::invokeRestart 1588s [00:53:08.415] is.null <- base::is.null 1588s [00:53:08.415] muffled <- FALSE 1588s [00:53:08.415] if (inherits(cond, "message")) { 1588s [00:53:08.415] muffled <- grepl(pattern, "muffleMessage") 1588s [00:53:08.415] if (muffled) 1588s [00:53:08.415] invokeRestart("muffleMessage") 1588s [00:53:08.415] } 1588s [00:53:08.415] else if (inherits(cond, "warning")) { 1588s [00:53:08.415] muffled <- grepl(pattern, "muffleWarning") 1588s [00:53:08.415] if (muffled) 1588s [00:53:08.415] invokeRestart("muffleWarning") 1588s [00:53:08.415] } 1588s [00:53:08.415] else if (inherits(cond, "condition")) { 1588s [00:53:08.415] if (!is.null(pattern)) { 1588s [00:53:08.415] computeRestarts <- base::computeRestarts 1588s [00:53:08.415] grepl <- base::grepl 1588s [00:53:08.415] restarts <- computeRestarts(cond) 1588s [00:53:08.415] for (restart in restarts) { 1588s [00:53:08.415] name <- restart$name 1588s [00:53:08.415] if (is.null(name)) 1588s [00:53:08.415] next 1588s [00:53:08.415] if (!grepl(pattern, name)) 1588s [00:53:08.415] next 1588s [00:53:08.415] invokeRestart(restart) 1588s [00:53:08.415] muffled <- TRUE 1588s [00:53:08.415] break 1588s [00:53:08.415] } 1588s [00:53:08.415] } 1588s [00:53:08.415] } 1588s [00:53:08.415] invisible(muffled) 1588s [00:53:08.415] } 1588s [00:53:08.415] muffleCondition(cond, pattern = "^muffle") 1588s [00:53:08.415] } 1588s [00:53:08.415] } 1588s [00:53:08.415] } 1588s [00:53:08.415] })) 1588s [00:53:08.415] }, error = function(ex) { 1588s [00:53:08.415] base::structure(base::list(value = NULL, visible = NULL, 1588s [00:53:08.415] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1588s [00:53:08.415] ...future.rng), started = ...future.startTime, 1588s [00:53:08.415] finished = Sys.time(), session_uuid = NA_character_, 1588s [00:53:08.415] version = "1.8"), class = "FutureResult") 1588s [00:53:08.415] }, finally = { 1588s [00:53:08.415] if (!identical(...future.workdir, getwd())) 1588s [00:53:08.415] setwd(...future.workdir) 1588s [00:53:08.415] { 1588s [00:53:08.415] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1588s [00:53:08.415] ...future.oldOptions$nwarnings <- NULL 1588s [00:53:08.415] } 1588s [00:53:08.415] base::options(...future.oldOptions) 1588s [00:53:08.415] if (.Platform$OS.type == "windows") { 1588s [00:53:08.415] old_names <- names(...future.oldEnvVars) 1588s [00:53:08.415] envs <- base::Sys.getenv() 1588s [00:53:08.415] names <- names(envs) 1588s [00:53:08.415] common <- intersect(names, old_names) 1588s [00:53:08.415] added <- setdiff(names, old_names) 1588s [00:53:08.415] removed <- setdiff(old_names, names) 1588s [00:53:08.415] changed <- common[...future.oldEnvVars[common] != 1588s [00:53:08.415] envs[common]] 1588s [00:53:08.415] NAMES <- toupper(changed) 1588s [00:53:08.415] args <- list() 1588s [00:53:08.415] for (kk in seq_along(NAMES)) { 1588s [00:53:08.415] name <- changed[[kk]] 1588s [00:53:08.415] NAME <- NAMES[[kk]] 1588s [00:53:08.415] if (name != NAME && is.element(NAME, old_names)) 1588s [00:53:08.415] next 1588s [00:53:08.415] args[[name]] <- ...future.oldEnvVars[[name]] 1588s [00:53:08.415] } 1588s [00:53:08.415] NAMES <- toupper(added) 1588s [00:53:08.415] for (kk in seq_along(NAMES)) { 1588s [00:53:08.415] name <- added[[kk]] 1588s [00:53:08.415] NAME <- NAMES[[kk]] 1588s [00:53:08.415] if (name != NAME && is.element(NAME, old_names)) 1588s [00:53:08.415] next 1588s [00:53:08.415] args[[name]] <- "" 1588s [00:53:08.415] } 1588s [00:53:08.415] NAMES <- toupper(removed) 1588s [00:53:08.415] for (kk in seq_along(NAMES)) { 1588s [00:53:08.415] name <- removed[[kk]] 1588s [00:53:08.415] NAME <- NAMES[[kk]] 1588s [00:53:08.415] if (name != NAME && is.element(NAME, old_names)) 1588s [00:53:08.415] next 1588s [00:53:08.415] args[[name]] <- ...future.oldEnvVars[[name]] 1588s [00:53:08.415] } 1588s [00:53:08.415] if (length(args) > 0) 1588s [00:53:08.415] base::do.call(base::Sys.setenv, args = args) 1588s [00:53:08.415] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1588s [00:53:08.415] } 1588s [00:53:08.415] else { 1588s [00:53:08.415] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1588s [00:53:08.415] } 1588s [00:53:08.415] { 1588s [00:53:08.415] if (base::length(...future.futureOptionsAdded) > 1588s [00:53:08.415] 0L) { 1588s [00:53:08.415] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1588s [00:53:08.415] base::names(opts) <- ...future.futureOptionsAdded 1588s [00:53:08.415] base::options(opts) 1588s [00:53:08.415] } 1588s [00:53:08.415] { 1588s [00:53:08.415] { 1588s [00:53:08.415] NULL 1588s [00:53:08.415] RNGkind("Mersenne-Twister") 1588s [00:53:08.415] base::rm(list = ".Random.seed", envir = base::globalenv(), 1588s [00:53:08.415] inherits = FALSE) 1588s [00:53:08.415] } 1588s [00:53:08.415] options(future.plan = NULL) 1588s [00:53:08.415] if (is.na(NA_character_)) 1588s [00:53:08.415] Sys.unsetenv("R_FUTURE_PLAN") 1588s [00:53:08.415] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1588s [00:53:08.415] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1588s [00:53:08.415] envir = parent.frame()) 1588s [00:53:08.415] { 1588s [00:53:08.415] default_workers <- missing(workers) 1588s [00:53:08.415] if (is.function(workers)) 1588s [00:53:08.415] workers <- workers() 1588s [00:53:08.415] workers <- structure(as.integer(workers), 1588s [00:53:08.415] class = class(workers)) 1588s [00:53:08.415] stop_if_not(is.finite(workers), workers >= 1588s [00:53:08.415] 1L) 1588s [00:53:08.415] if ((workers == 1L && !inherits(workers, 1588s [00:53:08.415] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1588s [00:53:08.415] if (default_workers) 1588s [00:53:08.415] supportsMulticore(warn = TRUE) 1588s [00:53:08.415] return(sequential(..., envir = envir)) 1588s [00:53:08.415] } 1588s [00:53:08.415] oopts <- options(mc.cores = workers) 1588s [00:53:08.415] on.exit(options(oopts)) 1588s [00:53:08.415] future <- MulticoreFuture(..., workers = workers, 1588s [00:53:08.415] envir = envir) 1588s [00:53:08.415] if (!future$lazy) 1588s [00:53:08.415] future <- run(future) 1588s [00:53:08.415] invisible(future) 1588s [00:53:08.415] }), .cleanup = FALSE, .init = FALSE) 1588s [00:53:08.415] } 1588s [00:53:08.415] } 1588s [00:53:08.415] } 1588s [00:53:08.415] }) 1588s [00:53:08.415] if (TRUE) { 1588s [00:53:08.415] base::sink(type = "output", split = FALSE) 1588s [00:53:08.415] if (TRUE) { 1588s [00:53:08.415] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1588s [00:53:08.415] } 1588s [00:53:08.415] else { 1588s [00:53:08.415] ...future.result["stdout"] <- base::list(NULL) 1588s [00:53:08.415] } 1588s [00:53:08.415] base::close(...future.stdout) 1588s [00:53:08.415] ...future.stdout <- NULL 1588s [00:53:08.415] } 1588s [00:53:08.415] ...future.result$conditions <- ...future.conditions 1588s [00:53:08.415] ...future.result$finished <- base::Sys.time() 1588s [00:53:08.415] ...future.result 1588s [00:53:08.415] } 1588s [00:53:08.418] assign_globals() ... 1588s [00:53:08.419] List of 11 1588s [00:53:08.419] $ ...future.FUN :function (x, ...) 1588s [00:53:08.419] $ x_FUN :function (x, y) 1588s [00:53:08.419] $ times : int 15 1588s [00:53:08.419] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1588s [00:53:08.419] $ stop_if_not :function (...) 1588s [00:53:08.419] $ dim : int [1:2] 3 5 1588s [00:53:08.419] $ valid_types : chr [1:3] "logical" "integer" "double" 1588s [00:53:08.419] $ future.call.arguments :List of 1 1588s [00:53:08.419] ..$ y: num [1:5] 2 4 6 8 10 1588s [00:53:08.419] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1588s [00:53:08.419] $ ...future.elements_ii :List of 4 1588s [00:53:08.419] ..$ A: num 50 1588s [00:53:08.419] ..$ B: num 60 1588s [00:53:08.419] ..$ C: num 70 1588s [00:53:08.419] ..$ D: num 80 1588s [00:53:08.419] $ ...future.seeds_ii : NULL 1588s [00:53:08.419] $ ...future.globals.maxSize: NULL 1588s [00:53:08.419] - attr(*, "where")=List of 11 1588s [00:53:08.419] ..$ ...future.FUN : 1588s [00:53:08.419] ..$ x_FUN : 1588s [00:53:08.419] ..$ times : 1588s [00:53:08.419] ..$ stopf : 1588s [00:53:08.419] ..$ stop_if_not : 1588s [00:53:08.419] ..$ dim : 1588s [00:53:08.419] ..$ valid_types : 1588s [00:53:08.419] ..$ future.call.arguments : 1588s [00:53:08.419] ..$ ...future.elements_ii : 1588s [00:53:08.419] ..$ ...future.seeds_ii : 1588s [00:53:08.419] ..$ ...future.globals.maxSize: 1588s [00:53:08.419] - attr(*, "resolved")= logi FALSE 1588s [00:53:08.419] - attr(*, "total_size")= num 98600 1588s [00:53:08.419] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1588s [00:53:08.419] - attr(*, "already-done")= logi TRUE 1588s [00:53:08.430] - copied ‘...future.FUN’ to environment 1588s [00:53:08.431] - reassign environment for ‘x_FUN’ 1588s [00:53:08.431] - copied ‘x_FUN’ to environment 1588s [00:53:08.431] - copied ‘times’ to environment 1588s [00:53:08.431] - copied ‘stopf’ to environment 1588s [00:53:08.431] - copied ‘stop_if_not’ to environment 1588s [00:53:08.431] - copied ‘dim’ to environment 1588s [00:53:08.431] - copied ‘valid_types’ to environment 1588s [00:53:08.432] - copied ‘future.call.arguments’ to environment 1588s [00:53:08.432] - copied ‘...future.elements_ii’ to environment 1588s [00:53:08.432] - copied ‘...future.seeds_ii’ to environment 1588s [00:53:08.432] - copied ‘...future.globals.maxSize’ to environment 1588s [00:53:08.432] assign_globals() ... done 1588s [00:53:08.433] plan(): Setting new future strategy stack: 1588s [00:53:08.433] List of future strategies: 1588s [00:53:08.433] 1. sequential: 1588s [00:53:08.433] - args: function (..., envir = parent.frame()) 1588s [00:53:08.433] - tweaked: FALSE 1588s [00:53:08.433] - call: NULL 1588s [00:53:08.433] plan(): nbrOfWorkers() = 1 1588s [00:53:08.434] plan(): Setting new future strategy stack: 1588s [00:53:08.435] List of future strategies: 1588s [00:53:08.435] 1. multicore: 1588s [00:53:08.435] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1588s [00:53:08.435] - tweaked: FALSE 1588s [00:53:08.435] - call: plan(strategy) 1588s [00:53:08.438] plan(): nbrOfWorkers() = 1 1588s [00:53:08.438] SequentialFuture started (and completed) 1588s [00:53:08.439] - Launch lazy future ... done 1588s [00:53:08.439] run() for ‘SequentialFuture’ ... done 1588s [00:53:08.439] Created future: 1588s [00:53:08.439] SequentialFuture: 1588s [00:53:08.439] Label: ‘future_vapply-1’ 1588s [00:53:08.439] Expression: 1588s [00:53:08.439] { 1588s [00:53:08.439] do.call(function(...) { 1588s [00:53:08.439] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1588s [00:53:08.439] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1588s [00:53:08.439] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1588s [00:53:08.439] on.exit(options(oopts), add = TRUE) 1588s [00:53:08.439] } 1588s [00:53:08.439] { 1588s [00:53:08.439] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1588s [00:53:08.439] ...future.X_jj <- ...future.elements_ii[[jj]] 1588s [00:53:08.439] ...future.FUN(...future.X_jj, ...) 1588s [00:53:08.439] }) 1588s [00:53:08.439] } 1588s [00:53:08.439] }, args = future.call.arguments) 1588s [00:53:08.439] } 1588s [00:53:08.439] Lazy evaluation: FALSE 1588s [00:53:08.439] Asynchronous evaluation: FALSE 1588s [00:53:08.439] Local evaluation: TRUE 1588s [00:53:08.439] Environment: R_GlobalEnv 1588s [00:53:08.439] Capture standard output: TRUE 1588s [00:53:08.439] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1588s [00:53:08.439] Globals: 11 objects totaling 96.51 KiB (function ‘...future.FUN’ of 21.22 KiB, function ‘x_FUN’ of 4.07 KiB, integer ‘times’ of 56 bytes, function ‘stopf’ of 26.43 KiB, function ‘stop_if_not’ of 44.12 KiB, ...) 1588s [00:53:08.439] Packages: 1 packages (‘future.apply’) 1588s [00:53:08.439] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1588s [00:53:08.439] Resolved: TRUE 1588s [00:53:08.439] Value: 1.34 KiB of class ‘list’ 1588s [00:53:08.439] Early signaling: FALSE 1588s [00:53:08.439] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1588s [00:53:08.439] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1588s [00:53:08.441] Chunk #1 of 1 ... DONE 1588s [00:53:08.441] Launching 1 futures (chunks) ... DONE 1588s num [1:3, 1:5, 1:4] 100 100 100 200 200 200 300 300 300 400 ... 1588s - attr(*, "dimnames")=[00:53:08.441] Resolving 1 futures (chunks) ... 1588s [00:53:08.441] resolve() on list ... 1588s [00:53:08.441] recursive: 0 1588s [00:53:08.441] length: 1 1588s [00:53:08.442] 1588s [00:53:08.442] resolved() for ‘SequentialFuture’ ... 1588s [00:53:08.442] - state: ‘finished’ 1588s [00:53:08.444] - run: TRUE 1588s [00:53:08.444] - result: ‘FutureResult’ 1588s [00:53:08.444] resolved() for ‘SequentialFuture’ ... done 1588s [00:53:08.444] Future #1 1588s [00:53:08.444] signalConditionsASAP(SequentialFuture, pos=1) ... 1588s [00:53:08.444] - nx: 1 1588s [00:53:08.444] - relay: TRUE 1588s [00:53:08.444] - stdout: TRUE 1588s [00:53:08.444] - signal: TRUE 1588s [00:53:08.445] - resignal: FALSE 1588s [00:53:08.445] - force: TRUE 1588s [00:53:08.445] - relayed: [n=1] FALSE 1588s [00:53:08.445] - queued futures: [n=1] FALSE 1588s [00:53:08.445] - until=1 1588s [00:53:08.445] - relaying element #1 1588s [00:53:08.445] - relayed: [n=1] TRUE 1588s [00:53:08.446] - queued futures: [n=1] TRUE 1588s [00:53:08.446] signalConditionsASAP(SequentialFuture, pos=1) ... done 1588s [00:53:08.446] length: 0 (resolved future 1) 1588s [00:53:08.446] Relaying remaining futures 1588s [00:53:08.446] signalConditionsASAP(NULL, pos=0) ... 1588s [00:53:08.446] - nx: 1 1588s [00:53:08.446] - relay: TRUE 1588s [00:53:08.446] - stdout: TRUE 1588s [00:53:08.446] - signal: TRUE 1588s [00:53:08.446] - resignal: FALSE 1588s [00:53:08.447] - force: TRUE 1588s [00:53:08.447] - relayed: [n=1] TRUE 1588s [00:53:08.447] - queued futures: [n=1] TRUE 1588s - flush all 1588s [00:53:08.447] - relayed: [n=1] TRUE 1588s [00:53:08.447] - queued futures: [n=1] TRUE 1588s [00:53:08.447] signalConditionsASAP(NULL, pos=0) ... done 1588s [00:53:08.447] resolve() on list ... DONE 1588s [00:53:08.447] - Number of value chunks collected: 1 1588s [00:53:08.448] Resolving 1 futures (chunks) ... DONE 1588s [00:53:08.448] Reducing values from 1 chunks ... 1588s [00:53:08.448] - Number of values collected after concatenation: 4 1588s [00:53:08.448] - Number of values expected: 4 1588s [00:53:08.448] Reducing values from 1 chunks ... DONE 1588s [00:53:08.448] future_lapply() ... DONE 1588s List of 3 1588s ..$ : NULL 1588s ..$ : NULL 1588s ..$ : chr [1:4] "A" "B" "C" "D" 1588s [00:53:08.451] future_lapply() ... 1588s [00:53:08.456] Number of chunks: 1 1588s [00:53:08.456] getGlobalsAndPackagesXApply() ... 1588s [00:53:08.457] - future.globals: TRUE 1588s [00:53:08.457] getGlobalsAndPackages() ... 1588s [00:53:08.457] Searching for globals... 1588s [00:53:08.461] - globals found: [16] ‘FUN’, ‘{’, ‘<-’, ‘x_FUN’, ‘if’, ‘!=’, ‘length’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘all’, ‘==’, ‘dim’, ‘%in%’, ‘typeof’, ‘valid_types’ 1588s [00:53:08.461] Searching for globals ... DONE 1588s [00:53:08.461] Resolving globals: FALSE 1588s [00:53:08.462] The total size of the 7 globals is 91.99 KiB (94200 bytes) 1588s [00:53:08.462] The total size of the 7 globals exported for future expression (‘FUN()’) is 91.99 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘stop_if_not’ (44.12 KiB of class ‘function’), ‘stopf’ (26.43 KiB of class ‘function’) and ‘FUN’ (21.22 KiB of class ‘function’) 1588s [00:53:08.463] - globals: [7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1588s [00:53:08.463] - packages: [1] ‘future.apply’ 1588s [00:53:08.463] getGlobalsAndPackages() ... DONE 1588s [00:53:08.463] - globals found/used: [n=7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1588s [00:53:08.463] - needed namespaces: [n=1] ‘future.apply’ 1588s [00:53:08.463] Finding globals ... DONE 1588s [00:53:08.464] - use_args: TRUE 1588s [00:53:08.464] - Getting '...' globals ... 1588s [00:53:08.464] resolve() on list ... 1588s [00:53:08.464] recursive: 0 1588s [00:53:08.464] length: 1 1588s [00:53:08.465] elements: ‘...’ 1588s [00:53:08.465] length: 0 (resolved future 1) 1588s [00:53:08.465] resolve() on list ... DONE 1588s [00:53:08.465] - '...' content: [n=0] 1588s [00:53:08.465] List of 1 1588s [00:53:08.465] $ ...: list() 1588s [00:53:08.465] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1588s [00:53:08.465] - attr(*, "where")=List of 1 1588s [00:53:08.465] ..$ ...: 1588s [00:53:08.465] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1588s [00:53:08.465] - attr(*, "resolved")= logi TRUE 1588s [00:53:08.465] - attr(*, "total_size")= num NA 1588s [00:53:08.468] - Getting '...' globals ... DONE 1588s [00:53:08.468] Globals to be used in all futures (chunks): [n=8] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’ 1588s [00:53:08.469] List of 8 1588s [00:53:08.469] $ ...future.FUN:function (x, ...) 1588s [00:53:08.469] $ x_FUN :function (x) 1588s [00:53:08.469] $ times : int 1 1588s [00:53:08.469] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1588s [00:53:08.469] $ stop_if_not :function (...) 1588s [00:53:08.469] $ dim : NULL 1588s [00:53:08.469] $ valid_types : chr "logical" 1588s [00:53:08.469] $ ... : list() 1588s [00:53:08.469] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1588s [00:53:08.469] - attr(*, "where")=List of 8 1588s [00:53:08.469] ..$ ...future.FUN: 1588s [00:53:08.469] ..$ x_FUN : 1588s [00:53:08.469] ..$ times : 1588s [00:53:08.469] ..$ stopf : 1588s [00:53:08.469] ..$ stop_if_not : 1588s [00:53:08.469] ..$ dim : 1588s [00:53:08.469] ..$ valid_types : 1588s [00:53:08.469] ..$ ... : 1588s [00:53:08.469] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1588s [00:53:08.469] - attr(*, "resolved")= logi FALSE 1588s [00:53:08.469] - attr(*, "total_size")= num 94200 1588s [00:53:08.477] Packages to be attached in all futures: [n=1] ‘future.apply’ 1588s [00:53:08.477] getGlobalsAndPackagesXApply() ... DONE 1588s [00:53:08.477] Number of futures (= number of chunks): 1 1588s [00:53:08.477] Launching 1 futures (chunks) ... 1588s [00:53:08.478] Chunk #1 of 1 ... 1588s [00:53:08.478] - Finding globals in 'X' for chunk #1 ... 1588s [00:53:08.478] getGlobalsAndPackages() ... 1588s [00:53:08.478] Searching for globals... 1588s [00:53:08.478] 1588s [00:53:08.479] Searching for globals ... DONE 1588s [00:53:08.479] - globals: [0] 1588s [00:53:08.479] getGlobalsAndPackages() ... DONE 1588s [00:53:08.479] + additional globals found: [n=0] 1588s [00:53:08.479] + additional namespaces needed: [n=0] 1588s [00:53:08.479] - Finding globals in 'X' for chunk #1 ... DONE 1588s [00:53:08.479] - seeds: 1588s [00:53:08.480] - All globals exported: [n=11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1588s [00:53:08.480] getGlobalsAndPackages() ... 1588s [00:53:08.480] - globals passed as-is: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1588s [00:53:08.480] Resolving globals: FALSE 1588s [00:53:08.480] Tweak future expression to call with '...' arguments ... 1588s [00:53:08.481] { 1588s [00:53:08.481] do.call(function(...) { 1588s [00:53:08.481] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1588s [00:53:08.481] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1588s [00:53:08.481] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1588s [00:53:08.481] on.exit(options(oopts), add = TRUE) 1588s [00:53:08.481] } 1588s [00:53:08.481] { 1588s [00:53:08.481] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1588s [00:53:08.481] ...future.X_jj <- ...future.elements_ii[[jj]] 1588s [00:53:08.481] ...future.FUN(...future.X_jj, ...) 1588s [00:53:08.481] }) 1588s [00:53:08.481] } 1588s [00:53:08.481] }, args = future.call.arguments) 1588s [00:53:08.481] } 1588s [00:53:08.481] Tweak future expression to call with '...' arguments ... DONE 1588s [00:53:08.482] - globals: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1588s [00:53:08.482] - packages: [1] ‘future.apply’ 1588s [00:53:08.482] getGlobalsAndPackages() ... DONE 1588s [00:53:08.482] run() for ‘Future’ ... 1588s [00:53:08.483] - state: ‘created’ 1588s [00:53:08.483] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1588s [00:53:08.486] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1588s [00:53:08.487] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1588s [00:53:08.487] - Field: ‘label’ 1588s [00:53:08.487] - Field: ‘local’ 1588s [00:53:08.487] - Field: ‘owner’ 1588s [00:53:08.487] - Field: ‘envir’ 1588s [00:53:08.487] - Field: ‘packages’ 1588s [00:53:08.488] - Field: ‘gc’ 1588s [00:53:08.488] - Field: ‘conditions’ 1588s [00:53:08.488] - Field: ‘expr’ 1588s [00:53:08.488] - Field: ‘uuid’ 1588s [00:53:08.488] - Field: ‘seed’ 1588s [00:53:08.488] - Field: ‘version’ 1588s [00:53:08.488] - Field: ‘result’ 1588s [00:53:08.489] - Field: ‘asynchronous’ 1588s [00:53:08.489] - Field: ‘calls’ 1588s [00:53:08.489] - Field: ‘globals’ 1588s [00:53:08.489] - Field: ‘stdout’ 1588s [00:53:08.489] - Field: ‘earlySignal’ 1588s [00:53:08.489] - Field: ‘lazy’ 1588s [00:53:08.489] - Field: ‘state’ 1588s [00:53:08.489] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1588s [00:53:08.490] - Launch lazy future ... 1588s [00:53:08.490] Packages needed by the future expression (n = 1): ‘future.apply’ 1588s [00:53:08.490] Packages needed by future strategies (n = 0): 1588s [00:53:08.491] { 1588s [00:53:08.491] { 1588s [00:53:08.491] { 1588s [00:53:08.491] ...future.startTime <- base::Sys.time() 1588s [00:53:08.491] { 1588s [00:53:08.491] { 1588s [00:53:08.491] { 1588s [00:53:08.491] { 1588s [00:53:08.491] base::local({ 1588s [00:53:08.491] has_future <- base::requireNamespace("future", 1588s [00:53:08.491] quietly = TRUE) 1588s [00:53:08.491] if (has_future) { 1588s [00:53:08.491] ns <- base::getNamespace("future") 1588s [00:53:08.491] version <- ns[[".package"]][["version"]] 1588s [00:53:08.491] if (is.null(version)) 1588s [00:53:08.491] version <- utils::packageVersion("future") 1588s [00:53:08.491] } 1588s [00:53:08.491] else { 1588s [00:53:08.491] version <- NULL 1588s [00:53:08.491] } 1588s [00:53:08.491] if (!has_future || version < "1.8.0") { 1588s [00:53:08.491] info <- base::c(r_version = base::gsub("R version ", 1588s [00:53:08.491] "", base::R.version$version.string), 1588s [00:53:08.491] platform = base::sprintf("%s (%s-bit)", 1588s [00:53:08.491] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1588s [00:53:08.491] os = base::paste(base::Sys.info()[base::c("sysname", 1588s [00:53:08.491] "release", "version")], collapse = " "), 1588s [00:53:08.491] hostname = base::Sys.info()[["nodename"]]) 1588s [00:53:08.491] info <- base::sprintf("%s: %s", base::names(info), 1588s [00:53:08.491] info) 1588s [00:53:08.491] info <- base::paste(info, collapse = "; ") 1588s [00:53:08.491] if (!has_future) { 1588s [00:53:08.491] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1588s [00:53:08.491] info) 1588s [00:53:08.491] } 1588s [00:53:08.491] else { 1588s [00:53:08.491] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1588s [00:53:08.491] info, version) 1588s [00:53:08.491] } 1588s [00:53:08.491] base::stop(msg) 1588s [00:53:08.491] } 1588s [00:53:08.491] }) 1588s [00:53:08.491] } 1588s [00:53:08.491] base::local({ 1588s [00:53:08.491] for (pkg in "future.apply") { 1588s [00:53:08.491] base::loadNamespace(pkg) 1588s [00:53:08.491] base::library(pkg, character.only = TRUE) 1588s [00:53:08.491] } 1588s [00:53:08.491] }) 1588s [00:53:08.491] } 1588s [00:53:08.491] options(future.plan = NULL) 1588s [00:53:08.491] Sys.unsetenv("R_FUTURE_PLAN") 1588s [00:53:08.491] future::plan("default", .cleanup = FALSE, .init = FALSE) 1588s [00:53:08.491] } 1588s [00:53:08.491] ...future.workdir <- getwd() 1588s [00:53:08.491] } 1588s [00:53:08.491] ...future.oldOptions <- base::as.list(base::.Options) 1588s [00:53:08.491] ...future.oldEnvVars <- base::Sys.getenv() 1588s [00:53:08.491] } 1588s [00:53:08.491] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1588s [00:53:08.491] future.globals.maxSize = NULL, future.globals.method = NULL, 1588s [00:53:08.491] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1588s [00:53:08.491] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1588s [00:53:08.491] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1588s [00:53:08.491] future.stdout.windows.reencode = NULL, width = 80L) 1588s [00:53:08.491] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1588s [00:53:08.491] base::names(...future.oldOptions)) 1588s [00:53:08.491] } 1588s [00:53:08.491] if (FALSE) { 1588s [00:53:08.491] } 1588s [00:53:08.491] else { 1588s [00:53:08.491] if (TRUE) { 1588s [00:53:08.491] ...future.stdout <- base::rawConnection(base::raw(0L), 1588s [00:53:08.491] open = "w") 1588s [00:53:08.491] } 1588s [00:53:08.491] else { 1588s [00:53:08.491] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1588s [00:53:08.491] windows = "NUL", "/dev/null"), open = "w") 1588s [00:53:08.491] } 1588s [00:53:08.491] base::sink(...future.stdout, type = "output", split = FALSE) 1588s [00:53:08.491] base::on.exit(if (!base::is.null(...future.stdout)) { 1588s [00:53:08.491] base::sink(type = "output", split = FALSE) 1588s [00:53:08.491] base::close(...future.stdout) 1588s [00:53:08.491] }, add = TRUE) 1588s [00:53:08.491] } 1588s [00:53:08.491] ...future.frame <- base::sys.nframe() 1588s [00:53:08.491] ...future.conditions <- base::list() 1588s [00:53:08.491] ...future.rng <- base::globalenv()$.Random.seed 1588s [00:53:08.491] if (FALSE) { 1588s [00:53:08.491] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1588s [00:53:08.491] "...future.value", "...future.globalenv.names", ".Random.seed") 1588s [00:53:08.491] } 1588s [00:53:08.491] ...future.result <- base::tryCatch({ 1588s [00:53:08.491] base::withCallingHandlers({ 1588s [00:53:08.491] ...future.value <- base::withVisible(base::local({ 1588s [00:53:08.491] do.call(function(...) { 1588s [00:53:08.491] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1588s [00:53:08.491] if (!identical(...future.globals.maxSize.org, 1588s [00:53:08.491] ...future.globals.maxSize)) { 1588s [00:53:08.491] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1588s [00:53:08.491] on.exit(options(oopts), add = TRUE) 1588s [00:53:08.491] } 1588s [00:53:08.491] { 1588s [00:53:08.491] lapply(seq_along(...future.elements_ii), 1588s [00:53:08.491] FUN = function(jj) { 1588s [00:53:08.491] ...future.X_jj <- ...future.elements_ii[[jj]] 1588s [00:53:08.491] ...future.FUN(...future.X_jj, ...) 1588s [00:53:08.491] }) 1588s [00:53:08.491] } 1588s [00:53:08.491] }, args = future.call.arguments) 1588s [00:53:08.491] })) 1588s [00:53:08.491] future::FutureResult(value = ...future.value$value, 1588s [00:53:08.491] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1588s [00:53:08.491] ...future.rng), globalenv = if (FALSE) 1588s [00:53:08.491] list(added = base::setdiff(base::names(base::.GlobalEnv), 1588s [00:53:08.491] ...future.globalenv.names)) 1588s [00:53:08.491] else NULL, started = ...future.startTime, version = "1.8") 1588s [00:53:08.491] }, condition = base::local({ 1588s [00:53:08.491] c <- base::c 1588s [00:53:08.491] inherits <- base::inherits 1588s [00:53:08.491] invokeRestart <- base::invokeRestart 1588s [00:53:08.491] length <- base::length 1588s [00:53:08.491] list <- base::list 1588s [00:53:08.491] seq.int <- base::seq.int 1588s [00:53:08.491] signalCondition <- base::signalCondition 1588s [00:53:08.491] sys.calls <- base::sys.calls 1588s [00:53:08.491] `[[` <- base::`[[` 1588s [00:53:08.491] `+` <- base::`+` 1588s [00:53:08.491] `<<-` <- base::`<<-` 1588s [00:53:08.491] sysCalls <- function(calls = sys.calls(), from = 1L) { 1588s [00:53:08.491] calls[seq.int(from = from + 12L, to = length(calls) - 1588s [00:53:08.491] 3L)] 1588s [00:53:08.491] } 1588s [00:53:08.491] function(cond) { 1588s [00:53:08.491] is_error <- inherits(cond, "error") 1588s [00:53:08.491] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1588s [00:53:08.491] NULL) 1588s [00:53:08.491] if (is_error) { 1588s [00:53:08.491] sessionInformation <- function() { 1588s [00:53:08.491] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1588s [00:53:08.491] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1588s [00:53:08.491] search = base::search(), system = base::Sys.info()) 1588s [00:53:08.491] } 1588s [00:53:08.491] ...future.conditions[[length(...future.conditions) + 1588s [00:53:08.491] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1588s [00:53:08.491] cond$call), session = sessionInformation(), 1588s [00:53:08.491] timestamp = base::Sys.time(), signaled = 0L) 1588s [00:53:08.491] signalCondition(cond) 1588s [00:53:08.491] } 1588s [00:53:08.491] else if (!ignore && TRUE && inherits(cond, c("condition", 1588s [00:53:08.491] "immediateCondition"))) { 1588s [00:53:08.491] signal <- TRUE && inherits(cond, "immediateCondition") 1588s [00:53:08.491] ...future.conditions[[length(...future.conditions) + 1588s [00:53:08.491] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1588s [00:53:08.491] if (TRUE && !signal) { 1588s [00:53:08.491] muffleCondition <- function (cond, pattern = "^muffle") 1588s [00:53:08.491] { 1588s [00:53:08.491] inherits <- base::inherits 1588s [00:53:08.491] invokeRestart <- base::invokeRestart 1588s [00:53:08.491] is.null <- base::is.null 1588s [00:53:08.491] muffled <- FALSE 1588s [00:53:08.491] if (inherits(cond, "message")) { 1588s [00:53:08.491] muffled <- grepl(pattern, "muffleMessage") 1588s [00:53:08.491] if (muffled) 1588s [00:53:08.491] invokeRestart("muffleMessage") 1588s [00:53:08.491] } 1588s [00:53:08.491] else if (inherits(cond, "warning")) { 1588s [00:53:08.491] muffled <- grepl(pattern, "muffleWarning") 1588s [00:53:08.491] if (muffled) 1588s [00:53:08.491] invokeRestart("muffleWarning") 1588s [00:53:08.491] } 1588s [00:53:08.491] else if (inherits(cond, "condition")) { 1588s [00:53:08.491] if (!is.null(pattern)) { 1588s [00:53:08.491] computeRestarts <- base::computeRestarts 1588s [00:53:08.491] grepl <- base::grepl 1588s [00:53:08.491] restarts <- computeRestarts(cond) 1588s [00:53:08.491] for (restart in restarts) { 1588s [00:53:08.491] name <- restart$name 1588s [00:53:08.491] if (is.null(name)) 1588s [00:53:08.491] next 1588s [00:53:08.491] if (!grepl(pattern, name)) 1588s [00:53:08.491] next 1588s [00:53:08.491] invokeRestart(restart) 1588s [00:53:08.491] muffled <- TRUE 1588s [00:53:08.491] break 1588s [00:53:08.491] } 1588s [00:53:08.491] } 1588s [00:53:08.491] } 1588s [00:53:08.491] invisible(muffled) 1588s [00:53:08.491] } 1588s [00:53:08.491] muffleCondition(cond, pattern = "^muffle") 1588s [00:53:08.491] } 1588s [00:53:08.491] } 1588s [00:53:08.491] else { 1588s [00:53:08.491] if (TRUE) { 1588s [00:53:08.491] muffleCondition <- function (cond, pattern = "^muffle") 1588s [00:53:08.491] { 1588s [00:53:08.491] inherits <- base::inherits 1588s [00:53:08.491] invokeRestart <- base::invokeRestart 1588s [00:53:08.491] is.null <- base::is.null 1588s [00:53:08.491] muffled <- FALSE 1588s [00:53:08.491] if (inherits(cond, "message")) { 1588s [00:53:08.491] muffled <- grepl(pattern, "muffleMessage") 1588s [00:53:08.491] if (muffled) 1588s [00:53:08.491] invokeRestart("muffleMessage") 1588s [00:53:08.491] } 1588s [00:53:08.491] else if (inherits(cond, "warning")) { 1588s [00:53:08.491] muffled <- grepl(pattern, "muffleWarning") 1588s [00:53:08.491] if (muffled) 1588s [00:53:08.491] invokeRestart("muffleWarning") 1588s [00:53:08.491] } 1588s [00:53:08.491] else if (inherits(cond, "condition")) { 1588s [00:53:08.491] if (!is.null(pattern)) { 1588s [00:53:08.491] computeRestarts <- base::computeRestarts 1588s [00:53:08.491] grepl <- base::grepl 1588s [00:53:08.491] restarts <- computeRestarts(cond) 1588s [00:53:08.491] for (restart in restarts) { 1588s [00:53:08.491] name <- restart$name 1588s [00:53:08.491] if (is.null(name)) 1588s [00:53:08.491] next 1588s [00:53:08.491] if (!grepl(pattern, name)) 1588s [00:53:08.491] next 1588s [00:53:08.491] invokeRestart(restart) 1588s [00:53:08.491] muffled <- TRUE 1588s [00:53:08.491] break 1588s [00:53:08.491] } 1588s [00:53:08.491] } 1588s [00:53:08.491] } 1588s [00:53:08.491] invisible(muffled) 1588s [00:53:08.491] } 1588s [00:53:08.491] muffleCondition(cond, pattern = "^muffle") 1588s [00:53:08.491] } 1588s [00:53:08.491] } 1588s [00:53:08.491] } 1588s [00:53:08.491] })) 1588s [00:53:08.491] }, error = function(ex) { 1588s [00:53:08.491] base::structure(base::list(value = NULL, visible = NULL, 1588s [00:53:08.491] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1588s [00:53:08.491] ...future.rng), started = ...future.startTime, 1588s [00:53:08.491] finished = Sys.time(), session_uuid = NA_character_, 1588s [00:53:08.491] version = "1.8"), class = "FutureResult") 1588s [00:53:08.491] }, finally = { 1588s [00:53:08.491] if (!identical(...future.workdir, getwd())) 1588s [00:53:08.491] setwd(...future.workdir) 1588s [00:53:08.491] { 1588s [00:53:08.491] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1588s [00:53:08.491] ...future.oldOptions$nwarnings <- NULL 1588s [00:53:08.491] } 1588s [00:53:08.491] base::options(...future.oldOptions) 1588s [00:53:08.491] if (.Platform$OS.type == "windows") { 1588s [00:53:08.491] old_names <- names(...future.oldEnvVars) 1588s [00:53:08.491] envs <- base::Sys.getenv() 1588s [00:53:08.491] names <- names(envs) 1588s [00:53:08.491] common <- intersect(names, old_names) 1588s [00:53:08.491] added <- setdiff(names, old_names) 1588s [00:53:08.491] removed <- setdiff(old_names, names) 1588s [00:53:08.491] changed <- common[...future.oldEnvVars[common] != 1588s [00:53:08.491] envs[common]] 1588s [00:53:08.491] NAMES <- toupper(changed) 1588s [00:53:08.491] args <- list() 1588s [00:53:08.491] for (kk in seq_along(NAMES)) { 1588s [00:53:08.491] name <- changed[[kk]] 1588s [00:53:08.491] NAME <- NAMES[[kk]] 1588s [00:53:08.491] if (name != NAME && is.element(NAME, old_names)) 1588s [00:53:08.491] next 1588s [00:53:08.491] args[[name]] <- ...future.oldEnvVars[[name]] 1588s [00:53:08.491] } 1588s [00:53:08.491] NAMES <- toupper(added) 1588s [00:53:08.491] for (kk in seq_along(NAMES)) { 1588s [00:53:08.491] name <- added[[kk]] 1588s [00:53:08.491] NAME <- NAMES[[kk]] 1588s [00:53:08.491] if (name != NAME && is.element(NAME, old_names)) 1588s [00:53:08.491] next 1588s [00:53:08.491] args[[name]] <- "" 1588s [00:53:08.491] } 1588s [00:53:08.491] NAMES <- toupper(removed) 1588s [00:53:08.491] for (kk in seq_along(NAMES)) { 1588s [00:53:08.491] name <- removed[[kk]] 1588s [00:53:08.491] NAME <- NAMES[[kk]] 1588s [00:53:08.491] if (name != NAME && is.element(NAME, old_names)) 1588s [00:53:08.491] next 1588s [00:53:08.491] args[[name]] <- ...future.oldEnvVars[[name]] 1588s [00:53:08.491] } 1588s [00:53:08.491] if (length(args) > 0) 1588s [00:53:08.491] base::do.call(base::Sys.setenv, args = args) 1588s [00:53:08.491] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1588s [00:53:08.491] } 1588s [00:53:08.491] else { 1588s [00:53:08.491] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1588s [00:53:08.491] } 1588s [00:53:08.491] { 1588s [00:53:08.491] if (base::length(...future.futureOptionsAdded) > 1588s [00:53:08.491] 0L) { 1588s [00:53:08.491] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1588s [00:53:08.491] base::names(opts) <- ...future.futureOptionsAdded 1588s [00:53:08.491] base::options(opts) 1588s [00:53:08.491] } 1588s [00:53:08.491] { 1588s [00:53:08.491] { 1588s [00:53:08.491] NULL 1588s [00:53:08.491] RNGkind("Mersenne-Twister") 1588s [00:53:08.491] base::rm(list = ".Random.seed", envir = base::globalenv(), 1588s [00:53:08.491] inherits = FALSE) 1588s [00:53:08.491] } 1588s [00:53:08.491] options(future.plan = NULL) 1588s [00:53:08.491] if (is.na(NA_character_)) 1588s [00:53:08.491] Sys.unsetenv("R_FUTURE_PLAN") 1588s [00:53:08.491] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1588s [00:53:08.491] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1588s [00:53:08.491] envir = parent.frame()) 1588s [00:53:08.491] { 1588s [00:53:08.491] default_workers <- missing(workers) 1588s [00:53:08.491] if (is.function(workers)) 1588s [00:53:08.491] workers <- workers() 1588s [00:53:08.491] workers <- structure(as.integer(workers), 1588s [00:53:08.491] class = class(workers)) 1588s [00:53:08.491] stop_if_not(is.finite(workers), workers >= 1588s [00:53:08.491] 1L) 1588s [00:53:08.491] if ((workers == 1L && !inherits(workers, 1588s [00:53:08.491] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1588s [00:53:08.491] if (default_workers) 1588s [00:53:08.491] supportsMulticore(warn = TRUE) 1588s [00:53:08.491] return(sequential(..., envir = envir)) 1588s [00:53:08.491] } 1588s [00:53:08.491] oopts <- options(mc.cores = workers) 1588s [00:53:08.491] on.exit(options(oopts)) 1588s [00:53:08.491] future <- MulticoreFuture(..., workers = workers, 1588s [00:53:08.491] envir = envir) 1588s [00:53:08.491] if (!future$lazy) 1588s [00:53:08.491] future <- run(future) 1588s [00:53:08.491] invisible(future) 1588s [00:53:08.491] }), .cleanup = FALSE, .init = FALSE) 1588s [00:53:08.491] } 1588s [00:53:08.491] } 1588s [00:53:08.491] } 1588s [00:53:08.491] }) 1588s [00:53:08.491] if (TRUE) { 1588s [00:53:08.491] base::sink(type = "output", split = FALSE) 1588s [00:53:08.491] if (TRUE) { 1588s [00:53:08.491] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1588s [00:53:08.491] } 1588s [00:53:08.491] else { 1588s [00:53:08.491] ...future.result["stdout"] <- base::list(NULL) 1588s [00:53:08.491] } 1588s [00:53:08.491] base::close(...future.stdout) 1588s [00:53:08.491] ...future.stdout <- NULL 1588s [00:53:08.491] } 1588s [00:53:08.491] ...future.result$conditions <- ...future.conditions 1588s [00:53:08.491] ...future.result$finished <- base::Sys.time() 1588s [00:53:08.491] ...future.result 1588s [00:53:08.491] } 1588s [00:53:08.498] assign_globals() ... 1588s [00:53:08.498] List of 11 1588s [00:53:08.498] $ ...future.FUN :function (x, ...) 1588s [00:53:08.498] $ x_FUN :function (x) 1588s [00:53:08.498] $ times : int 1 1588s [00:53:08.498] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1588s [00:53:08.498] $ stop_if_not :function (...) 1588s [00:53:08.498] $ dim : NULL 1588s [00:53:08.498] $ valid_types : chr "logical" 1588s [00:53:08.498] $ future.call.arguments : list() 1588s [00:53:08.498] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1588s [00:53:08.498] $ ...future.elements_ii :List of 11 1588s [00:53:08.498] ..$ mpg : num [1:32] 21 21 22.8 21.4 18.7 18.1 14.3 24.4 22.8 19.2 ... 1588s [00:53:08.498] ..$ cyl : num [1:32] 6 6 4 6 8 6 8 4 4 6 ... 1588s [00:53:08.498] ..$ disp: num [1:32] 160 160 108 258 360 ... 1588s [00:53:08.498] ..$ hp : num [1:32] 110 110 93 110 175 105 245 62 95 123 ... 1588s [00:53:08.498] ..$ drat: num [1:32] 3.9 3.9 3.85 3.08 3.15 2.76 3.21 3.69 3.92 3.92 ... 1588s [00:53:08.498] ..$ wt : num [1:32] 2.62 2.88 2.32 3.21 3.44 ... 1588s [00:53:08.498] ..$ qsec: num [1:32] 16.5 17 18.6 19.4 17 ... 1588s [00:53:08.498] ..$ vs : num [1:32] 0 0 1 1 0 1 0 1 1 1 ... 1588s [00:53:08.498] ..$ am : num [1:32] 1 1 1 0 0 0 0 0 0 0 ... 1588s [00:53:08.498] ..$ gear: num [1:32] 4 4 4 3 3 3 3 4 4 4 ... 1588s [00:53:08.498] ..$ carb: num [1:32] 4 4 1 1 2 1 4 2 2 4 ... 1588s [00:53:08.498] $ ...future.seeds_ii : NULL 1588s [00:53:08.498] $ ...future.globals.maxSize: NULL 1588s [00:53:08.498] - attr(*, "where")=List of 11 1588s [00:53:08.498] ..$ ...future.FUN : 1588s [00:53:08.498] ..$ x_FUN : 1588s [00:53:08.498] ..$ times : 1588s [00:53:08.498] ..$ stopf : 1588s [00:53:08.498] ..$ stop_if_not : 1588s [00:53:08.498] ..$ dim : 1588s [00:53:08.498] ..$ valid_types : 1588s [00:53:08.498] ..$ future.call.arguments : 1588s [00:53:08.498] ..$ ...future.elements_ii : 1588s [00:53:08.498] ..$ ...future.seeds_ii : 1588s [00:53:08.498] ..$ ...future.globals.maxSize: 1588s [00:53:08.498] - attr(*, "resolved")= logi FALSE 1588s [00:53:08.498] - attr(*, "total_size")= num 94200 1588s [00:53:08.498] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1588s [00:53:08.498] - attr(*, "already-done")= logi TRUE 1588s [00:53:08.513] - copied ‘...future.FUN’ to environment 1588s [00:53:08.514] - copied ‘x_FUN’ to environment 1588s [00:53:08.514] - copied ‘times’ to environment 1588s [00:53:08.514] - copied ‘stopf’ to environment 1588s [00:53:08.514] - copied ‘stop_if_not’ to environment 1588s [00:53:08.514] - copied ‘dim’ to environment 1588s [00:53:08.514] - copied ‘valid_types’ to environment 1588s [00:53:08.514] - copied ‘future.call.arguments’ to environment 1588s [00:53:08.515] - copied ‘...future.elements_ii’ to environment 1588s [00:53:08.515] - copied ‘...future.seeds_ii’ to environment 1588s [00:53:08.515] - copied ‘...future.globals.maxSize’ to environment 1588s [00:53:08.515] assign_globals() ... done 1588s [00:53:08.515] plan(): Setting new future strategy stack: 1588s [00:53:08.516] List of future strategies: 1588s [00:53:08.516] 1. sequential: 1588s [00:53:08.516] - args: function (..., envir = parent.frame()) 1588s [00:53:08.516] - tweaked: FALSE 1588s [00:53:08.516] - call: NULL 1588s [00:53:08.516] plan(): nbrOfWorkers() = 1 1588s [00:53:08.517] plan(): Setting new future strategy stack: 1588s [00:53:08.517] List of future strategies: 1588s [00:53:08.517] 1. multicore: 1588s [00:53:08.517] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1588s [00:53:08.517] - tweaked: FALSE 1588s [00:53:08.517] - call: plan(strategy) 1588s [00:53:08.520] plan(): nbrOfWorkers() = 1 1588s [00:53:08.521] SequentialFuture started (and completed) 1588s [00:53:08.521] - Launch lazy future ... done 1588s [00:53:08.521] run() for ‘SequentialFuture’ ... done 1588s Named logi [1:11] TRUE TRUE TRUE TRUE TRUE TRUE ... 1588s - attr(*, "names")= chr [1:11] [00:53:08.522] Created future: 1588s [00:53:08.522] SequentialFuture: 1588s [00:53:08.522] Label: ‘future_vapply-1’ 1588s [00:53:08.522] Expression: 1588s [00:53:08.522] { 1588s [00:53:08.522] do.call(function(...) { 1588s [00:53:08.522] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1588s [00:53:08.522] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1588s [00:53:08.522] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1588s [00:53:08.522] on.exit(options(oopts), add = TRUE) 1588s [00:53:08.522] } 1588s [00:53:08.522] { 1588s [00:53:08.522] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1588s [00:53:08.522] ...future.X_jj <- ...future.elements_ii[[jj]] 1588s [00:53:08.522] ...future.FUN(...future.X_jj, ...) 1588s [00:53:08.522] }) 1588s [00:53:08.522] } 1588s [00:53:08.522] }, args = future.call.arguments) 1588s [00:53:08.522] } 1588s [00:53:08.522] Lazy evaluation: FALSE 1588s [00:53:08.522] Asynchronous evaluation: FALSE 1588s [00:53:08.522] Local evaluation: TRUE 1588s [00:53:08.522] Environment: R_GlobalEnv 1588s [00:53:08.522] Capture standard output: TRUE 1588s [00:53:08.522] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1588s [00:53:08.522] Globals: 11 objects totaling 95.26 KiB (function ‘...future.FUN’ of 21.22 KiB, function ‘x_FUN’ of 56 bytes, integer ‘times’ of 56 bytes, function ‘stopf’ of 26.43 KiB, function ‘stop_if_not’ of 44.12 KiB, ...) 1588s [00:53:08.522] Packages: 1 packages (‘future.apply’) 1588s [00:53:08.522] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1588s [00:53:08.522] Resolved: TRUE 1588s [00:53:08.522] Value: 616 bytes of class ‘list’ 1588s [00:53:08.522] Early signaling: FALSE 1588s [00:53:08.522] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1588s [00:53:08.522] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1588s [00:53:08.523] Chunk #1 of 1 ... DONE 1588s [00:53:08.524] Launching 1 futures (chunks) ... DONE 1588s [00:53:08.524] Resolving 1 futures (chunks) ... 1588s [00:53:08.524] resolve() on list ... 1588s [00:53:08.524] recursive: 0 1588s [00:53:08.524] length: 1 1588s [00:53:08.524] 1588s [00:53:08.524] resolved() for ‘SequentialFuture’ ... 1588s [00:53:08.524] - state: ‘finished’ 1588s [00:53:08.525] - run: TRUE 1588s [00:53:08.525] - result: ‘FutureResult’ 1588s [00:53:08.525] resolved() for ‘SequentialFuture’ ... done 1588s [00:53:08.525] Future #1 1588s [00:53:08.525] signalConditionsASAP(SequentialFuture, pos=1) ... 1588s [00:53:08.525] - nx: 1 1588s [00:53:08.525] - relay: TRUE 1588s [00:53:08.525] - stdout: TRUE 1588s [00:53:08.525] - signal: TRUE 1588s [00:53:08.526] - resignal: FALSE 1588s [00:53:08.526] - force: TRUE 1588s [00:53:08.526] - relayed: [n=1] FALSE 1588s [00:53:08.526] - queued futures: [n=1] FALSE 1588s [00:53:08.526] - until=1 1588s [00:53:08.526] - relaying element #1 1588s [00:53:08.526] - relayed: [n=1] TRUE 1588s [00:53:08.526] - queued futures: [n=1] TRUE 1588s [00:53:08.527] signalConditionsASAP(SequentialFuture, pos=1) ... done 1588s [00:53:08.527] length: 0 (resolved future 1) 1588s [00:53:08.527] Relaying remaining futures 1588s [00:53:08.527] signalConditionsASAP(NULL, pos=0) ... 1588s [00:53:08.527] - nx: 1 1588s [00:53:08.527] - relay: TRUE 1588s [00:53:08.527] - stdout: TRUE 1588s [00:53:08.527] - signal: TRUE 1588s [00:53:08.527] - resignal: FALSE 1588s [00:53:08.528] - force: TRUE 1588s [00:53:08.528] - relayed: [n=1] TRUE 1588s [00:53:08.528] - queued futures: [n=1] TRUE 1588s - flush all 1588s [00:53:08.528] - relayed: [n=1] TRUE 1588s [00:53:08.528] - queued futures: [n=1] TRUE 1588s [00:53:08.528] signalConditionsASAP(NULL, pos=0) ... done 1588s [00:53:08.528] resolve() on list ... DONE 1588s [00:53:08.528] - Number of value chunks collected: 1 1588s [00:53:08.529] Resolving 1 futures (chunks) ... DONE 1588s [00:53:08.529] Reducing values from 1 chunks ... 1588s [00:53:08.529] - Number of values collected after concatenation: 11 1588s [00:53:08.529] - Number of values expected: 11 1588s [00:53:08.529] Reducing values from 1 chunks ... DONE 1588s [00:53:08.529] future_lapply() ... DONE 1588s "mpg" "cyl" "disp" "hp" ... 1588s - future_vapply(x, ...) where length(x) != length(as.list(x)) ... 1588s [00:53:08.530] future_lapply() ... 1588s [00:53:08.539] Number of chunks: 1 1588s [00:53:08.540] getGlobalsAndPackagesXApply() ... 1588s [00:53:08.540] - future.globals: TRUE 1588s [00:53:08.540] getGlobalsAndPackages() ... 1588s [00:53:08.541] Searching for globals... 1588s [00:53:08.547] - globals found: [16] ‘FUN’, ‘{’, ‘<-’, ‘x_FUN’, ‘if’, ‘!=’, ‘length’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘all’, ‘==’, ‘dim’, ‘%in%’, ‘typeof’, ‘valid_types’ 1588s [00:53:08.547] Searching for globals ... DONE 1588s [00:53:08.547] Resolving globals: FALSE 1588s [00:53:08.548] The total size of the 7 globals is 92.05 KiB (94264 bytes) 1588s [00:53:08.549] The total size of the 7 globals exported for future expression (‘FUN()’) is 92.05 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘stop_if_not’ (44.12 KiB of class ‘function’), ‘stopf’ (26.43 KiB of class ‘function’) and ‘FUN’ (21.22 KiB of class ‘function’) 1588s [00:53:08.550] - globals: [7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1588s [00:53:08.550] - packages: [1] ‘future.apply’ 1588s [00:53:08.550] getGlobalsAndPackages() ... DONE 1588s [00:53:08.551] - globals found/used: [n=7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1588s [00:53:08.552] - needed namespaces: [n=1] ‘future.apply’ 1588s [00:53:08.552] Finding globals ... DONE 1588s [00:53:08.552] - use_args: TRUE 1588s [00:53:08.553] - Getting '...' globals ... 1588s [00:53:08.554] resolve() on list ... 1588s [00:53:08.554] recursive: 0 1588s [00:53:08.555] length: 1 1588s [00:53:08.555] elements: ‘...’ 1588s [00:53:08.556] length: 0 (resolved future 1) 1588s [00:53:08.556] resolve() on list ... DONE 1588s [00:53:08.556] - '...' content: [n=0] 1588s [00:53:08.557] List of 1 1588s [00:53:08.557] $ ...: list() 1588s [00:53:08.557] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1588s [00:53:08.557] - attr(*, "where")=List of 1 1588s [00:53:08.557] ..$ ...: 1588s [00:53:08.557] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1588s [00:53:08.557] - attr(*, "resolved")= logi TRUE 1588s [00:53:08.557] - attr(*, "total_size")= num NA 1588s [00:53:08.560] - Getting '...' globals ... DONE 1588s [00:53:08.560] Globals to be used in all futures (chunks): [n=8] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’ 1588s [00:53:08.560] List of 8 1588s [00:53:08.560] $ ...future.FUN:function (x, ...) 1588s [00:53:08.560] $ x_FUN :function (x) 1588s [00:53:08.560] $ times : int 1 1588s [00:53:08.560] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1588s [00:53:08.560] $ stop_if_not :function (...) 1588s [00:53:08.560] $ dim : NULL 1588s [00:53:08.560] $ valid_types : chr [1:2] "logical" "integer" 1588s [00:53:08.560] $ ... : list() 1588s [00:53:08.560] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1588s [00:53:08.560] - attr(*, "where")=List of 8 1588s [00:53:08.560] ..$ ...future.FUN: 1588s [00:53:08.560] ..$ x_FUN : 1588s [00:53:08.560] ..$ times : 1588s [00:53:08.560] ..$ stopf : 1588s [00:53:08.560] ..$ stop_if_not : 1588s [00:53:08.560] ..$ dim : 1588s [00:53:08.560] ..$ valid_types : 1588s [00:53:08.560] ..$ ... : 1588s [00:53:08.560] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1588s [00:53:08.560] - attr(*, "resolved")= logi FALSE 1588s [00:53:08.560] - attr(*, "total_size")= num 94264 1588s [00:53:08.568] Packages to be attached in all futures: [n=1] ‘future.apply’ 1588s [00:53:08.569] getGlobalsAndPackagesXApply() ... DONE 1588s [00:53:08.569] Number of futures (= number of chunks): 1 1588s [00:53:08.569] Launching 1 futures (chunks) ... 1588s [00:53:08.569] Chunk #1 of 1 ... 1588s [00:53:08.570] - Finding globals in 'X' for chunk #1 ... 1588s [00:53:08.570] getGlobalsAndPackages() ... 1588s [00:53:08.570] Searching for globals... 1588s [00:53:08.570] 1588s [00:53:08.571] Searching for globals ... DONE 1588s [00:53:08.571] - globals: [0] 1588s [00:53:08.571] getGlobalsAndPackages() ... DONE 1588s [00:53:08.571] + additional globals found: [n=0] 1588s [00:53:08.571] + additional namespaces needed: [n=0] 1588s [00:53:08.575] - Finding globals in 'X' for chunk #1 ... DONE 1588s [00:53:08.575] - seeds: 1588s [00:53:08.575] - All globals exported: [n=11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1588s [00:53:08.575] getGlobalsAndPackages() ... 1588s [00:53:08.576] - globals passed as-is: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1588s [00:53:08.576] Resolving globals: FALSE 1588s [00:53:08.576] Tweak future expression to call with '...' arguments ... 1588s [00:53:08.576] { 1588s [00:53:08.576] do.call(function(...) { 1588s [00:53:08.576] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1588s [00:53:08.576] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1588s [00:53:08.576] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1588s [00:53:08.576] on.exit(options(oopts), add = TRUE) 1588s [00:53:08.576] } 1588s [00:53:08.576] { 1588s [00:53:08.576] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1588s [00:53:08.576] ...future.X_jj <- ...future.elements_ii[[jj]] 1588s [00:53:08.576] ...future.FUN(...future.X_jj, ...) 1588s [00:53:08.576] }) 1588s [00:53:08.576] } 1588s [00:53:08.576] }, args = future.call.arguments) 1588s [00:53:08.576] } 1588s [00:53:08.577] Tweak future expression to call with '...' arguments ... DONE 1588s [00:53:08.577] - globals: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1588s [00:53:08.578] - packages: [1] ‘future.apply’ 1588s [00:53:08.578] getGlobalsAndPackages() ... DONE 1588s [00:53:08.579] run() for ‘Future’ ... 1588s [00:53:08.579] - state: ‘created’ 1588s [00:53:08.580] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1588s [00:53:08.584] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1588s [00:53:08.584] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1588s [00:53:08.584] - Field: ‘label’ 1588s [00:53:08.584] - Field: ‘local’ 1588s [00:53:08.584] - Field: ‘owner’ 1588s [00:53:08.585] - Field: ‘envir’ 1588s [00:53:08.585] - Field: ‘packages’ 1588s [00:53:08.585] - Field: ‘gc’ 1588s [00:53:08.585] - Field: ‘conditions’ 1588s [00:53:08.585] - Field: ‘expr’ 1588s [00:53:08.585] - Field: ‘uuid’ 1588s [00:53:08.585] - Field: ‘seed’ 1588s [00:53:08.586] - Field: ‘version’ 1588s [00:53:08.586] - Field: ‘result’ 1588s [00:53:08.586] - Field: ‘asynchronous’ 1588s [00:53:08.586] - Field: ‘calls’ 1588s [00:53:08.586] - Field: ‘globals’ 1588s [00:53:08.586] - Field: ‘stdout’ 1588s [00:53:08.587] - Field: ‘earlySignal’ 1588s [00:53:08.587] - Field: ‘lazy’ 1588s [00:53:08.587] - Field: ‘state’ 1588s [00:53:08.587] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1588s [00:53:08.587] - Launch lazy future ... 1588s [00:53:08.587] Packages needed by the future expression (n = 1): ‘future.apply’ 1588s [00:53:08.588] Packages needed by future strategies (n = 0): 1588s [00:53:08.588] { 1588s [00:53:08.588] { 1588s [00:53:08.588] { 1588s [00:53:08.588] ...future.startTime <- base::Sys.time() 1588s [00:53:08.588] { 1588s [00:53:08.588] { 1588s [00:53:08.588] { 1588s [00:53:08.588] { 1588s [00:53:08.588] base::local({ 1588s [00:53:08.588] has_future <- base::requireNamespace("future", 1588s [00:53:08.588] quietly = TRUE) 1588s [00:53:08.588] if (has_future) { 1588s [00:53:08.588] ns <- base::getNamespace("future") 1588s [00:53:08.588] version <- ns[[".package"]][["version"]] 1588s [00:53:08.588] if (is.null(version)) 1588s [00:53:08.588] version <- utils::packageVersion("future") 1588s [00:53:08.588] } 1588s [00:53:08.588] else { 1588s [00:53:08.588] version <- NULL 1588s [00:53:08.588] } 1588s [00:53:08.588] if (!has_future || version < "1.8.0") { 1588s [00:53:08.588] info <- base::c(r_version = base::gsub("R version ", 1588s [00:53:08.588] "", base::R.version$version.string), 1588s [00:53:08.588] platform = base::sprintf("%s (%s-bit)", 1588s [00:53:08.588] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1588s [00:53:08.588] os = base::paste(base::Sys.info()[base::c("sysname", 1588s [00:53:08.588] "release", "version")], collapse = " "), 1588s [00:53:08.588] hostname = base::Sys.info()[["nodename"]]) 1588s [00:53:08.588] info <- base::sprintf("%s: %s", base::names(info), 1588s [00:53:08.588] info) 1588s [00:53:08.588] info <- base::paste(info, collapse = "; ") 1588s [00:53:08.588] if (!has_future) { 1588s [00:53:08.588] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1588s [00:53:08.588] info) 1588s [00:53:08.588] } 1588s [00:53:08.588] else { 1588s [00:53:08.588] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1588s [00:53:08.588] info, version) 1588s [00:53:08.588] } 1588s [00:53:08.588] base::stop(msg) 1588s [00:53:08.588] } 1588s [00:53:08.588] }) 1588s [00:53:08.588] } 1588s [00:53:08.588] base::local({ 1588s [00:53:08.588] for (pkg in "future.apply") { 1588s [00:53:08.588] base::loadNamespace(pkg) 1588s [00:53:08.588] base::library(pkg, character.only = TRUE) 1588s [00:53:08.588] } 1588s [00:53:08.588] }) 1588s [00:53:08.588] } 1588s [00:53:08.588] options(future.plan = NULL) 1588s [00:53:08.588] Sys.unsetenv("R_FUTURE_PLAN") 1588s [00:53:08.588] future::plan("default", .cleanup = FALSE, .init = FALSE) 1588s [00:53:08.588] } 1588s [00:53:08.588] ...future.workdir <- getwd() 1588s [00:53:08.588] } 1588s [00:53:08.588] ...future.oldOptions <- base::as.list(base::.Options) 1588s [00:53:08.588] ...future.oldEnvVars <- base::Sys.getenv() 1588s [00:53:08.588] } 1588s [00:53:08.588] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1588s [00:53:08.588] future.globals.maxSize = NULL, future.globals.method = NULL, 1588s [00:53:08.588] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1588s [00:53:08.588] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1588s [00:53:08.588] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1588s [00:53:08.588] future.stdout.windows.reencode = NULL, width = 80L) 1588s [00:53:08.588] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1588s [00:53:08.588] base::names(...future.oldOptions)) 1588s [00:53:08.588] } 1588s [00:53:08.588] if (FALSE) { 1588s [00:53:08.588] } 1588s [00:53:08.588] else { 1588s [00:53:08.588] if (TRUE) { 1588s [00:53:08.588] ...future.stdout <- base::rawConnection(base::raw(0L), 1588s [00:53:08.588] open = "w") 1588s [00:53:08.588] } 1588s [00:53:08.588] else { 1588s [00:53:08.588] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1588s [00:53:08.588] windows = "NUL", "/dev/null"), open = "w") 1588s [00:53:08.588] } 1588s [00:53:08.588] base::sink(...future.stdout, type = "output", split = FALSE) 1588s [00:53:08.588] base::on.exit(if (!base::is.null(...future.stdout)) { 1588s [00:53:08.588] base::sink(type = "output", split = FALSE) 1588s [00:53:08.588] base::close(...future.stdout) 1588s [00:53:08.588] }, add = TRUE) 1588s [00:53:08.588] } 1588s [00:53:08.588] ...future.frame <- base::sys.nframe() 1588s [00:53:08.588] ...future.conditions <- base::list() 1588s [00:53:08.588] ...future.rng <- base::globalenv()$.Random.seed 1588s [00:53:08.588] if (FALSE) { 1588s [00:53:08.588] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1588s [00:53:08.588] "...future.value", "...future.globalenv.names", ".Random.seed") 1588s [00:53:08.588] } 1588s [00:53:08.588] ...future.result <- base::tryCatch({ 1588s [00:53:08.588] base::withCallingHandlers({ 1588s [00:53:08.588] ...future.value <- base::withVisible(base::local({ 1588s [00:53:08.588] do.call(function(...) { 1588s [00:53:08.588] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1588s [00:53:08.588] if (!identical(...future.globals.maxSize.org, 1588s [00:53:08.588] ...future.globals.maxSize)) { 1588s [00:53:08.588] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1588s [00:53:08.588] on.exit(options(oopts), add = TRUE) 1588s [00:53:08.588] } 1588s [00:53:08.588] { 1588s [00:53:08.588] lapply(seq_along(...future.elements_ii), 1588s [00:53:08.588] FUN = function(jj) { 1588s [00:53:08.588] ...future.X_jj <- ...future.elements_ii[[jj]] 1588s [00:53:08.588] ...future.FUN(...future.X_jj, ...) 1588s [00:53:08.588] }) 1588s [00:53:08.588] } 1588s [00:53:08.588] }, args = future.call.arguments) 1588s [00:53:08.588] })) 1588s [00:53:08.588] future::FutureResult(value = ...future.value$value, 1588s [00:53:08.588] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1588s [00:53:08.588] ...future.rng), globalenv = if (FALSE) 1588s [00:53:08.588] list(added = base::setdiff(base::names(base::.GlobalEnv), 1588s [00:53:08.588] ...future.globalenv.names)) 1588s [00:53:08.588] else NULL, started = ...future.startTime, version = "1.8") 1588s [00:53:08.588] }, condition = base::local({ 1588s [00:53:08.588] c <- base::c 1588s [00:53:08.588] inherits <- base::inherits 1588s [00:53:08.588] invokeRestart <- base::invokeRestart 1588s [00:53:08.588] length <- base::length 1588s [00:53:08.588] list <- base::list 1588s [00:53:08.588] seq.int <- base::seq.int 1588s [00:53:08.588] signalCondition <- base::signalCondition 1588s [00:53:08.588] sys.calls <- base::sys.calls 1588s [00:53:08.588] `[[` <- base::`[[` 1588s [00:53:08.588] `+` <- base::`+` 1588s [00:53:08.588] `<<-` <- base::`<<-` 1588s [00:53:08.588] sysCalls <- function(calls = sys.calls(), from = 1L) { 1588s [00:53:08.588] calls[seq.int(from = from + 12L, to = length(calls) - 1588s [00:53:08.588] 3L)] 1588s [00:53:08.588] } 1588s [00:53:08.588] function(cond) { 1588s [00:53:08.588] is_error <- inherits(cond, "error") 1588s [00:53:08.588] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1588s [00:53:08.588] NULL) 1588s [00:53:08.588] if (is_error) { 1588s [00:53:08.588] sessionInformation <- function() { 1588s [00:53:08.588] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1588s [00:53:08.588] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1588s [00:53:08.588] search = base::search(), system = base::Sys.info()) 1588s [00:53:08.588] } 1588s [00:53:08.588] ...future.conditions[[length(...future.conditions) + 1588s [00:53:08.588] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1588s [00:53:08.588] cond$call), session = sessionInformation(), 1588s [00:53:08.588] timestamp = base::Sys.time(), signaled = 0L) 1588s [00:53:08.588] signalCondition(cond) 1588s [00:53:08.588] } 1588s [00:53:08.588] else if (!ignore && TRUE && inherits(cond, c("condition", 1588s [00:53:08.588] "immediateCondition"))) { 1588s [00:53:08.588] signal <- TRUE && inherits(cond, "immediateCondition") 1588s [00:53:08.588] ...future.conditions[[length(...future.conditions) + 1588s [00:53:08.588] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1588s [00:53:08.588] if (TRUE && !signal) { 1588s [00:53:08.588] muffleCondition <- function (cond, pattern = "^muffle") 1588s [00:53:08.588] { 1588s [00:53:08.588] inherits <- base::inherits 1588s [00:53:08.588] invokeRestart <- base::invokeRestart 1588s [00:53:08.588] is.null <- base::is.null 1588s [00:53:08.588] muffled <- FALSE 1588s [00:53:08.588] if (inherits(cond, "message")) { 1588s [00:53:08.588] muffled <- grepl(pattern, "muffleMessage") 1588s [00:53:08.588] if (muffled) 1588s [00:53:08.588] invokeRestart("muffleMessage") 1588s [00:53:08.588] } 1588s [00:53:08.588] else if (inherits(cond, "warning")) { 1588s [00:53:08.588] muffled <- grepl(pattern, "muffleWarning") 1588s [00:53:08.588] if (muffled) 1588s [00:53:08.588] invokeRestart("muffleWarning") 1588s [00:53:08.588] } 1588s [00:53:08.588] else if (inherits(cond, "condition")) { 1588s [00:53:08.588] if (!is.null(pattern)) { 1588s [00:53:08.588] computeRestarts <- base::computeRestarts 1588s [00:53:08.588] grepl <- base::grepl 1588s [00:53:08.588] restarts <- computeRestarts(cond) 1588s [00:53:08.588] for (restart in restarts) { 1588s [00:53:08.588] name <- restart$name 1588s [00:53:08.588] if (is.null(name)) 1588s [00:53:08.588] next 1588s [00:53:08.588] if (!grepl(pattern, name)) 1588s [00:53:08.588] next 1588s [00:53:08.588] invokeRestart(restart) 1588s [00:53:08.588] muffled <- TRUE 1588s [00:53:08.588] break 1588s [00:53:08.588] } 1588s [00:53:08.588] } 1588s [00:53:08.588] } 1588s [00:53:08.588] invisible(muffled) 1588s [00:53:08.588] } 1588s [00:53:08.588] muffleCondition(cond, pattern = "^muffle") 1588s [00:53:08.588] } 1588s [00:53:08.588] } 1588s [00:53:08.588] else { 1588s [00:53:08.588] if (TRUE) { 1588s [00:53:08.588] muffleCondition <- function (cond, pattern = "^muffle") 1588s [00:53:08.588] { 1588s [00:53:08.588] inherits <- base::inherits 1588s [00:53:08.588] invokeRestart <- base::invokeRestart 1588s [00:53:08.588] is.null <- base::is.null 1588s [00:53:08.588] muffled <- FALSE 1588s [00:53:08.588] if (inherits(cond, "message")) { 1588s [00:53:08.588] muffled <- grepl(pattern, "muffleMessage") 1588s [00:53:08.588] if (muffled) 1588s [00:53:08.588] invokeRestart("muffleMessage") 1588s [00:53:08.588] } 1588s [00:53:08.588] else if (inherits(cond, "warning")) { 1588s [00:53:08.588] muffled <- grepl(pattern, "muffleWarning") 1588s [00:53:08.588] if (muffled) 1588s [00:53:08.588] invokeRestart("muffleWarning") 1588s [00:53:08.588] } 1588s [00:53:08.588] else if (inherits(cond, "condition")) { 1588s [00:53:08.588] if (!is.null(pattern)) { 1588s [00:53:08.588] computeRestarts <- base::computeRestarts 1588s [00:53:08.588] grepl <- base::grepl 1588s [00:53:08.588] restarts <- computeRestarts(cond) 1588s [00:53:08.588] for (restart in restarts) { 1588s [00:53:08.588] name <- restart$name 1588s [00:53:08.588] if (is.null(name)) 1588s [00:53:08.588] next 1588s [00:53:08.588] if (!grepl(pattern, name)) 1588s [00:53:08.588] next 1588s [00:53:08.588] invokeRestart(restart) 1588s [00:53:08.588] muffled <- TRUE 1588s [00:53:08.588] break 1588s [00:53:08.588] } 1588s [00:53:08.588] } 1588s [00:53:08.588] } 1588s [00:53:08.588] invisible(muffled) 1588s [00:53:08.588] } 1588s [00:53:08.588] muffleCondition(cond, pattern = "^muffle") 1588s [00:53:08.588] } 1588s [00:53:08.588] } 1588s [00:53:08.588] } 1588s [00:53:08.588] })) 1588s [00:53:08.588] }, error = function(ex) { 1588s [00:53:08.588] base::structure(base::list(value = NULL, visible = NULL, 1588s [00:53:08.588] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1588s [00:53:08.588] ...future.rng), started = ...future.startTime, 1588s [00:53:08.588] finished = Sys.time(), session_uuid = NA_character_, 1588s [00:53:08.588] version = "1.8"), class = "FutureResult") 1588s [00:53:08.588] }, finally = { 1588s [00:53:08.588] if (!identical(...future.workdir, getwd())) 1588s [00:53:08.588] setwd(...future.workdir) 1588s [00:53:08.588] { 1588s [00:53:08.588] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1588s [00:53:08.588] ...future.oldOptions$nwarnings <- NULL 1588s [00:53:08.588] } 1588s [00:53:08.588] base::options(...future.oldOptions) 1588s [00:53:08.588] if (.Platform$OS.type == "windows") { 1588s [00:53:08.588] old_names <- names(...future.oldEnvVars) 1588s [00:53:08.588] envs <- base::Sys.getenv() 1588s [00:53:08.588] names <- names(envs) 1588s [00:53:08.588] common <- intersect(names, old_names) 1588s [00:53:08.588] added <- setdiff(names, old_names) 1588s [00:53:08.588] removed <- setdiff(old_names, names) 1588s [00:53:08.588] changed <- common[...future.oldEnvVars[common] != 1588s [00:53:08.588] envs[common]] 1588s [00:53:08.588] NAMES <- toupper(changed) 1588s [00:53:08.588] args <- list() 1588s [00:53:08.588] for (kk in seq_along(NAMES)) { 1588s [00:53:08.588] name <- changed[[kk]] 1588s [00:53:08.588] NAME <- NAMES[[kk]] 1588s [00:53:08.588] if (name != NAME && is.element(NAME, old_names)) 1588s [00:53:08.588] next 1588s [00:53:08.588] args[[name]] <- ...future.oldEnvVars[[name]] 1588s [00:53:08.588] } 1588s [00:53:08.588] NAMES <- toupper(added) 1588s [00:53:08.588] for (kk in seq_along(NAMES)) { 1588s [00:53:08.588] name <- added[[kk]] 1588s [00:53:08.588] NAME <- NAMES[[kk]] 1588s [00:53:08.588] if (name != NAME && is.element(NAME, old_names)) 1588s [00:53:08.588] next 1588s [00:53:08.588] args[[name]] <- "" 1588s [00:53:08.588] } 1588s [00:53:08.588] NAMES <- toupper(removed) 1588s [00:53:08.588] for (kk in seq_along(NAMES)) { 1588s [00:53:08.588] name <- removed[[kk]] 1588s [00:53:08.588] NAME <- NAMES[[kk]] 1588s [00:53:08.588] if (name != NAME && is.element(NAME, old_names)) 1588s [00:53:08.588] next 1588s [00:53:08.588] args[[name]] <- ...future.oldEnvVars[[name]] 1588s [00:53:08.588] } 1588s [00:53:08.588] if (length(args) > 0) 1588s [00:53:08.588] base::do.call(base::Sys.setenv, args = args) 1588s [00:53:08.588] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1588s [00:53:08.588] } 1588s [00:53:08.588] else { 1588s [00:53:08.588] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1588s [00:53:08.588] } 1588s [00:53:08.588] { 1588s [00:53:08.588] if (base::length(...future.futureOptionsAdded) > 1588s [00:53:08.588] 0L) { 1588s [00:53:08.588] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1588s [00:53:08.588] base::names(opts) <- ...future.futureOptionsAdded 1588s [00:53:08.588] base::options(opts) 1588s [00:53:08.588] } 1588s [00:53:08.588] { 1588s [00:53:08.588] { 1588s [00:53:08.588] NULL 1588s [00:53:08.588] RNGkind("Mersenne-Twister") 1588s [00:53:08.588] base::rm(list = ".Random.seed", envir = base::globalenv(), 1588s [00:53:08.588] inherits = FALSE) 1588s [00:53:08.588] } 1588s [00:53:08.588] options(future.plan = NULL) 1588s [00:53:08.588] if (is.na(NA_character_)) 1588s [00:53:08.588] Sys.unsetenv("R_FUTURE_PLAN") 1588s [00:53:08.588] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1588s [00:53:08.588] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1588s [00:53:08.588] envir = parent.frame()) 1588s [00:53:08.588] { 1588s [00:53:08.588] default_workers <- missing(workers) 1588s [00:53:08.588] if (is.function(workers)) 1588s [00:53:08.588] workers <- workers() 1588s [00:53:08.588] workers <- structure(as.integer(workers), 1588s [00:53:08.588] class = class(workers)) 1588s [00:53:08.588] stop_if_not(is.finite(workers), workers >= 1588s [00:53:08.588] 1L) 1588s [00:53:08.588] if ((workers == 1L && !inherits(workers, 1588s [00:53:08.588] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1588s [00:53:08.588] if (default_workers) 1588s [00:53:08.588] supportsMulticore(warn = TRUE) 1588s [00:53:08.588] return(sequential(..., envir = envir)) 1588s [00:53:08.588] } 1588s [00:53:08.588] oopts <- options(mc.cores = workers) 1588s [00:53:08.588] on.exit(options(oopts)) 1588s [00:53:08.588] future <- MulticoreFuture(..., workers = workers, 1588s [00:53:08.588] envir = envir) 1588s [00:53:08.588] if (!future$lazy) 1588s [00:53:08.588] future <- run(future) 1588s [00:53:08.588] invisible(future) 1588s [00:53:08.588] }), .cleanup = FALSE, .init = FALSE) 1588s [00:53:08.588] } 1588s [00:53:08.588] } 1588s [00:53:08.588] } 1588s [00:53:08.588] }) 1588s [00:53:08.588] if (TRUE) { 1588s [00:53:08.588] base::sink(type = "output", split = FALSE) 1588s [00:53:08.588] if (TRUE) { 1588s [00:53:08.588] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1588s [00:53:08.588] } 1588s [00:53:08.588] else { 1588s [00:53:08.588] ...future.result["stdout"] <- base::list(NULL) 1588s [00:53:08.588] } 1588s [00:53:08.588] base::close(...future.stdout) 1588s [00:53:08.588] ...future.stdout <- NULL 1588s [00:53:08.588] } 1588s [00:53:08.588] ...future.result$conditions <- ...future.conditions 1588s [00:53:08.588] ...future.result$finished <- base::Sys.time() 1588s [00:53:08.588] ...future.result 1588s [00:53:08.588] } 1588s [00:53:08.593] assign_globals() ... 1588s [00:53:08.593] List of 11 1588s [00:53:08.593] $ ...future.FUN :function (x, ...) 1588s [00:53:08.593] $ x_FUN :function (x) 1588s [00:53:08.593] $ times : int 1 1588s [00:53:08.593] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1588s [00:53:08.593] $ stop_if_not :function (...) 1588s [00:53:08.593] $ dim : NULL 1588s [00:53:08.593] $ valid_types : chr [1:2] "logical" "integer" 1588s [00:53:08.593] $ future.call.arguments : list() 1588s [00:53:08.593] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1588s [00:53:08.593] $ ...future.elements_ii :List of 3 1588s [00:53:08.593] ..$ a: num 1 1588s [00:53:08.593] ..$ b: num 2 1588s [00:53:08.593] ..$ c: num 3 1588s [00:53:08.593] $ ...future.seeds_ii : NULL 1588s [00:53:08.593] $ ...future.globals.maxSize: NULL 1588s [00:53:08.593] - attr(*, "where")=List of 11 1588s [00:53:08.593] ..$ ...future.FUN : 1588s [00:53:08.593] ..$ x_FUN : 1588s [00:53:08.593] ..$ times : 1588s [00:53:08.593] ..$ stopf : 1588s [00:53:08.593] ..$ stop_if_not : 1588s [00:53:08.593] ..$ dim : 1588s [00:53:08.593] ..$ valid_types : 1588s [00:53:08.593] ..$ future.call.arguments : 1588s [00:53:08.593] ..$ ...future.elements_ii : 1588s [00:53:08.593] ..$ ...future.seeds_ii : 1588s [00:53:08.593] ..$ ...future.globals.maxSize: 1588s [00:53:08.593] - attr(*, "resolved")= logi FALSE 1588s [00:53:08.593] - attr(*, "total_size")= num 94264 1588s [00:53:08.593] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1588s [00:53:08.593] - attr(*, "already-done")= logi TRUE 1588s [00:53:08.604] - copied ‘...future.FUN’ to environment 1588s [00:53:08.604] - copied ‘x_FUN’ to environment 1588s [00:53:08.604] - copied ‘times’ to environment 1588s [00:53:08.605] - copied ‘stopf’ to environment 1588s [00:53:08.605] - copied ‘stop_if_not’ to environment 1588s [00:53:08.605] - copied ‘dim’ to environment 1588s [00:53:08.605] - copied ‘valid_types’ to environment 1588s [00:53:08.605] - copied ‘future.call.arguments’ to environment 1588s [00:53:08.605] - copied ‘...future.elements_ii’ to environment 1588s [00:53:08.605] - copied ‘...future.seeds_ii’ to environment 1588s [00:53:08.606] - copied ‘...future.globals.maxSize’ to environment 1588s [00:53:08.606] assign_globals() ... done 1588s [00:53:08.606] plan(): Setting new future strategy stack: 1588s [00:53:08.606] List of future strategies: 1588s [00:53:08.606] 1. sequential: 1588s [00:53:08.606] - args: function (..., envir = parent.frame()) 1588s [00:53:08.606] - tweaked: FALSE 1588s [00:53:08.606] - call: NULL 1588s [00:53:08.607] plan(): nbrOfWorkers() = 1 1588s [00:53:08.608] plan(): Setting new future strategy stack: 1588s [00:53:08.608] List of future strategies: 1588s [00:53:08.608] 1. multicore: 1588s [00:53:08.608] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1588s [00:53:08.608] - tweaked: FALSE 1588s [00:53:08.608] - call: plan(strategy) 1588s [00:53:08.614] plan(): nbrOfWorkers() = 1 1588s [00:53:08.614] SequentialFuture started (and completed) 1588s [00:53:08.614] - Launch lazy future ... done 1588s [00:53:08.614] run() for ‘SequentialFuture’ ... done 1588s [00:53:08.615] Created future: 1588s [00:53:08.615] SequentialFuture: 1588s [00:53:08.615] Label: ‘future_vapply-1’ 1588s [00:53:08.615] Expression: 1588s [00:53:08.615] { 1588s [00:53:08.615] do.call(function(...) { 1588s [00:53:08.615] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1588s [00:53:08.615] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1588s [00:53:08.615] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1588s [00:53:08.615] on.exit(options(oopts), add = TRUE) 1588s [00:53:08.615] } 1588s [00:53:08.615] { 1588s [00:53:08.615] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1588s [00:53:08.615] ...future.X_jj <- ...future.elements_ii[[jj]] 1588s [00:53:08.615] ...future.FUN(...future.X_jj, ...) 1588s [00:53:08.615] }) 1588s [00:53:08.615] } 1588s [00:53:08.615] }, args = future.call.arguments) 1588s [00:53:08.615] } 1588s [00:53:08.615] Lazy evaluation: FALSE 1588s [00:53:08.615] Asynchronous evaluation: FALSE 1588s [00:53:08.615] Local evaluation: TRUE 1588s [00:53:08.615] Environment: R_GlobalEnv 1588s [00:53:08.615] Capture standard output: TRUE 1588s [00:53:08.615] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1588s [00:53:08.615] Globals: 11 objects totaling 92.22 KiB (function ‘...future.FUN’ of 21.22 KiB, function ‘x_FUN’ of 56 bytes, integer ‘times’ of 56 bytes, function ‘stopf’ of 26.43 KiB, function ‘stop_if_not’ of 44.12 KiB, ...) 1588s [00:53:08.615] Packages: 1 packages (‘future.apply’) 1588s [00:53:08.615] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1588s [00:53:08.615] Resolved: TRUE 1588s [00:53:08.615] Value: 168 bytes of class ‘list’ 1588s [00:53:08.615] Early signaling: FALSE 1588s [00:53:08.615] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1588s [00:53:08.615] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1588s [00:53:08.616] Chunk #1 of 1 ... DONE 1588s [00:53:08.617] Launching 1 futures (chunks) ... DONE 1588s [00:53:08.617] Resolving 1 futures (chunks) ... 1588s [00:53:08.617] resolve() on list ... 1588s [00:53:08.617] recursive: 0 1588s [00:53:08.617] length: 1 1588s [00:53:08.617] 1588s [00:53:08.618] resolved() for ‘SequentialFuture’ ... 1588s [00:53:08.618] - state: ‘finished’ 1588s [00:53:08.618] - run: TRUE 1588s [00:53:08.618] - result: ‘FutureResult’ 1588s [00:53:08.618] resolved() for ‘SequentialFuture’ ... done 1588s [00:53:08.618] Future #1 1588s [00:53:08.619] signalConditionsASAP(SequentialFuture, pos=1) ... 1588s [00:53:08.619] - nx: 1 1588s [00:53:08.619] - relay: TRUE 1588s [00:53:08.619] - stdout: TRUE 1588s [00:53:08.619] - signal: TRUE 1588s [00:53:08.619] - resignal: FALSE 1588s [00:53:08.619] - force: TRUE 1588s [00:53:08.620] - relayed: [n=1] FALSE 1588s [00:53:08.620] - queued futures: [n=1] FALSE 1588s [00:53:08.620] - until=1 1588s [00:53:08.620] - relaying element #1 1588s [00:53:08.620] - relayed: [n=1] TRUE 1588s [00:53:08.621] - queued futures: [n=1] TRUE 1588s [00:53:08.621] signalConditionsASAP(SequentialFuture, pos=1) ... done 1588s [00:53:08.621] length: 0 (resolved future 1) 1588s [00:53:08.621] Relaying remaining futures 1588s [00:53:08.621] signalConditionsASAP(NULL, pos=0) ... 1588s [00:53:08.621] - nx: 1 1588s [00:53:08.621] - relay: TRUE 1588s [00:53:08.622] - stdout: TRUE 1588s [00:53:08.622] - signal: TRUE 1588s [00:53:08.622] - resignal: FALSE 1588s [00:53:08.622] - force: TRUE 1588s [00:53:08.623] - relayed: [n=1] TRUE 1588s [00:53:08.623] - queued futures: [n=1] TRUE 1588s - flush all 1588s [00:53:08.623] - relayed: [n=1] TRUE 1588s [00:53:08.624] - queued futures: [n=1] TRUE 1588s [00:53:08.624] signalConditionsASAP(NULL, pos=0) ... done 1588s [00:53:08.624] resolve() on list ... DONE 1588s [00:53:08.624] - Number of value chunks collected: 1 1588s [00:53:08.625] Resolving 1 futures (chunks) ... DONE 1588s [00:53:08.625] Reducing values from 1 chunks ... 1588s [00:53:08.625] - Number of values collected after concatenation: 3 1588s [00:53:08.625] - Number of values expected: 3 1588s [00:53:08.625] Reducing values from 1 chunks ... DONE 1588s [00:53:08.626] future_lapply() ... DONE 1588s - exceptions ... 1588s [00:53:08.626] future_lapply() ... 1588s [00:53:08.634] Number of chunks: 1 1588s [00:53:08.634] getGlobalsAndPackagesXApply() ... 1588s [00:53:08.634] - future.globals: TRUE 1588s [00:53:08.635] getGlobalsAndPackages() ... 1588s [00:53:08.635] Searching for globals... 1588s [00:53:08.639] - globals found: [16] ‘FUN’, ‘{’, ‘<-’, ‘x_FUN’, ‘if’, ‘!=’, ‘length’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘all’, ‘==’, ‘dim’, ‘%in%’, ‘typeof’, ‘valid_types’ 1588s [00:53:08.639] Searching for globals ... DONE 1588s [00:53:08.639] Resolving globals: FALSE 1588s [00:53:08.640] The total size of the 7 globals is 92.90 KiB (95128 bytes) 1588s [00:53:08.641] The total size of the 7 globals exported for future expression (‘FUN()’) is 92.90 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘stop_if_not’ (44.12 KiB of class ‘function’), ‘stopf’ (26.43 KiB of class ‘function’) and ‘FUN’ (21.22 KiB of class ‘function’) 1588s [00:53:08.641] - globals: [7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1588s [00:53:08.641] - packages: [1] ‘future.apply’ 1588s [00:53:08.642] getGlobalsAndPackages() ... DONE 1588s [00:53:08.642] - globals found/used: [n=7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1588s [00:53:08.642] - needed namespaces: [n=1] ‘future.apply’ 1588s [00:53:08.642] Finding globals ... DONE 1588s [00:53:08.642] - use_args: TRUE 1588s [00:53:08.642] - Getting '...' globals ... 1588s [00:53:08.643] resolve() on list ... 1588s [00:53:08.643] recursive: 0 1588s [00:53:08.643] length: 1 1588s [00:53:08.643] elements: ‘...’ 1588s [00:53:08.643] length: 0 (resolved future 1) 1588s [00:53:08.644] resolve() on list ... DONE 1588s [00:53:08.644] - '...' content: [n=0] 1588s [00:53:08.644] List of 1 1588s [00:53:08.644] $ ...: list() 1588s [00:53:08.644] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1588s [00:53:08.644] - attr(*, "where")=List of 1 1588s [00:53:08.644] ..$ ...: 1588s [00:53:08.644] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1588s [00:53:08.644] - attr(*, "resolved")= logi TRUE 1588s [00:53:08.644] - attr(*, "total_size")= num NA 1588s [00:53:08.649] - Getting '...' globals ... DONE 1588s [00:53:08.649] Globals to be used in all futures (chunks): [n=8] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’ 1588s [00:53:08.650] List of 8 1588s [00:53:08.650] $ ...future.FUN:function (x, ...) 1588s [00:53:08.650] $ x_FUN :function (x) 1588s [00:53:08.650] $ times : int 2 1588s [00:53:08.650] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1588s [00:53:08.650] $ stop_if_not :function (...) 1588s [00:53:08.650] $ dim : NULL 1588s [00:53:08.650] $ valid_types : chr [1:3] "logical" "integer" "double" 1588s [00:53:08.650] $ ... : list() 1588s [00:53:08.650] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1588s [00:53:08.650] - attr(*, "where")=List of 8 1588s [00:53:08.650] ..$ ...future.FUN: 1588s [00:53:08.650] ..$ x_FUN : 1588s [00:53:08.650] ..$ times : 1588s [00:53:08.650] ..$ stopf : 1588s [00:53:08.650] ..$ stop_if_not : 1588s [00:53:08.650] ..$ dim : 1588s [00:53:08.650] ..$ valid_types : 1588s [00:53:08.650] ..$ ... : 1588s [00:53:08.650] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1588s [00:53:08.650] - attr(*, "resolved")= logi FALSE 1588s [00:53:08.650] - attr(*, "total_size")= num 95128 1588s [00:53:08.658] Packages to be attached in all futures: [n=1] ‘future.apply’ 1588s [00:53:08.658] getGlobalsAndPackagesXApply() ... DONE 1588s [00:53:08.658] Number of futures (= number of chunks): 1 1588s [00:53:08.658] Launching 1 futures (chunks) ... 1588s [00:53:08.658] Chunk #1 of 1 ... 1588s [00:53:08.659] - Finding globals in 'X' for chunk #1 ... 1588s [00:53:08.659] getGlobalsAndPackages() ... 1588s [00:53:08.659] Searching for globals... 1588s [00:53:08.659] 1588s [00:53:08.659] Searching for globals ... DONE 1588s [00:53:08.659] - globals: [0] 1588s [00:53:08.660] getGlobalsAndPackages() ... DONE 1588s [00:53:08.660] + additional globals found: [n=0] 1588s [00:53:08.660] + additional namespaces needed: [n=0] 1588s [00:53:08.660] - Finding globals in 'X' for chunk #1 ... DONE 1588s [00:53:08.660] - seeds: 1588s [00:53:08.660] - All globals exported: [n=11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1588s [00:53:08.661] getGlobalsAndPackages() ... 1588s [00:53:08.661] - globals passed as-is: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1588s [00:53:08.661] Resolving globals: FALSE 1588s [00:53:08.661] Tweak future expression to call with '...' arguments ... 1588s [00:53:08.661] { 1588s [00:53:08.661] do.call(function(...) { 1588s [00:53:08.661] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1588s [00:53:08.661] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1588s [00:53:08.661] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1588s [00:53:08.661] on.exit(options(oopts), add = TRUE) 1588s [00:53:08.661] } 1588s [00:53:08.661] { 1588s [00:53:08.661] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1588s [00:53:08.661] ...future.X_jj <- ...future.elements_ii[[jj]] 1588s [00:53:08.661] ...future.FUN(...future.X_jj, ...) 1588s [00:53:08.661] }) 1588s [00:53:08.661] } 1588s [00:53:08.661] }, args = future.call.arguments) 1588s [00:53:08.661] } 1588s [00:53:08.662] Tweak future expression to call with '...' arguments ... DONE 1588s [00:53:08.662] - globals: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1588s [00:53:08.663] - packages: [1] ‘future.apply’ 1588s [00:53:08.663] getGlobalsAndPackages() ... DONE 1588s [00:53:08.663] run() for ‘Future’ ... 1588s [00:53:08.663] - state: ‘created’ 1588s [00:53:08.664] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1588s [00:53:08.667] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1588s [00:53:08.667] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1588s [00:53:08.667] - Field: ‘label’ 1588s [00:53:08.667] - Field: ‘local’ 1588s [00:53:08.667] - Field: ‘owner’ 1588s [00:53:08.668] - Field: ‘envir’ 1588s [00:53:08.668] - Field: ‘packages’ 1588s [00:53:08.668] - Field: ‘gc’ 1588s [00:53:08.668] - Field: ‘conditions’ 1588s [00:53:08.668] - Field: ‘expr’ 1588s [00:53:08.668] - Field: ‘uuid’ 1588s [00:53:08.668] - Field: ‘seed’ 1588s [00:53:08.669] - Field: ‘version’ 1588s [00:53:08.669] - Field: ‘result’ 1588s [00:53:08.669] - Field: ‘asynchronous’ 1588s [00:53:08.669] - Field: ‘calls’ 1588s [00:53:08.669] - Field: ‘globals’ 1588s [00:53:08.669] - Field: ‘stdout’ 1588s [00:53:08.670] - Field: ‘earlySignal’ 1588s [00:53:08.670] - Field: ‘lazy’ 1588s [00:53:08.670] - Field: ‘state’ 1588s [00:53:08.670] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1588s [00:53:08.670] - Launch lazy future ... 1588s [00:53:08.670] Packages needed by the future expression (n = 1): ‘future.apply’ 1588s [00:53:08.671] Packages needed by future strategies (n = 0): 1588s [00:53:08.671] { 1588s [00:53:08.671] { 1588s [00:53:08.671] { 1588s [00:53:08.671] ...future.startTime <- base::Sys.time() 1588s [00:53:08.671] { 1588s [00:53:08.671] { 1588s [00:53:08.671] { 1588s [00:53:08.671] { 1588s [00:53:08.671] base::local({ 1588s [00:53:08.671] has_future <- base::requireNamespace("future", 1588s [00:53:08.671] quietly = TRUE) 1588s [00:53:08.671] if (has_future) { 1588s [00:53:08.671] ns <- base::getNamespace("future") 1588s [00:53:08.671] version <- ns[[".package"]][["version"]] 1588s [00:53:08.671] if (is.null(version)) 1588s [00:53:08.671] version <- utils::packageVersion("future") 1588s [00:53:08.671] } 1588s [00:53:08.671] else { 1588s [00:53:08.671] version <- NULL 1588s [00:53:08.671] } 1588s [00:53:08.671] if (!has_future || version < "1.8.0") { 1588s [00:53:08.671] info <- base::c(r_version = base::gsub("R version ", 1588s [00:53:08.671] "", base::R.version$version.string), 1588s [00:53:08.671] platform = base::sprintf("%s (%s-bit)", 1588s [00:53:08.671] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1588s [00:53:08.671] os = base::paste(base::Sys.info()[base::c("sysname", 1588s [00:53:08.671] "release", "version")], collapse = " "), 1588s [00:53:08.671] hostname = base::Sys.info()[["nodename"]]) 1588s [00:53:08.671] info <- base::sprintf("%s: %s", base::names(info), 1588s [00:53:08.671] info) 1588s [00:53:08.671] info <- base::paste(info, collapse = "; ") 1588s [00:53:08.671] if (!has_future) { 1588s [00:53:08.671] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1588s [00:53:08.671] info) 1588s [00:53:08.671] } 1588s [00:53:08.671] else { 1588s [00:53:08.671] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1588s [00:53:08.671] info, version) 1588s [00:53:08.671] } 1588s [00:53:08.671] base::stop(msg) 1588s [00:53:08.671] } 1588s [00:53:08.671] }) 1588s [00:53:08.671] } 1588s [00:53:08.671] base::local({ 1588s [00:53:08.671] for (pkg in "future.apply") { 1588s [00:53:08.671] base::loadNamespace(pkg) 1588s [00:53:08.671] base::library(pkg, character.only = TRUE) 1588s [00:53:08.671] } 1588s [00:53:08.671] }) 1588s [00:53:08.671] } 1588s [00:53:08.671] options(future.plan = NULL) 1588s [00:53:08.671] Sys.unsetenv("R_FUTURE_PLAN") 1588s [00:53:08.671] future::plan("default", .cleanup = FALSE, .init = FALSE) 1588s [00:53:08.671] } 1588s [00:53:08.671] ...future.workdir <- getwd() 1588s [00:53:08.671] } 1588s [00:53:08.671] ...future.oldOptions <- base::as.list(base::.Options) 1588s [00:53:08.671] ...future.oldEnvVars <- base::Sys.getenv() 1588s [00:53:08.671] } 1588s [00:53:08.671] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1588s [00:53:08.671] future.globals.maxSize = NULL, future.globals.method = NULL, 1588s [00:53:08.671] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1588s [00:53:08.671] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1588s [00:53:08.671] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1588s [00:53:08.671] future.stdout.windows.reencode = NULL, width = 80L) 1588s [00:53:08.671] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1588s [00:53:08.671] base::names(...future.oldOptions)) 1588s [00:53:08.671] } 1588s [00:53:08.671] if (FALSE) { 1588s [00:53:08.671] } 1588s [00:53:08.671] else { 1588s [00:53:08.671] if (TRUE) { 1588s [00:53:08.671] ...future.stdout <- base::rawConnection(base::raw(0L), 1588s [00:53:08.671] open = "w") 1588s [00:53:08.671] } 1588s [00:53:08.671] else { 1588s [00:53:08.671] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1588s [00:53:08.671] windows = "NUL", "/dev/null"), open = "w") 1588s [00:53:08.671] } 1588s [00:53:08.671] base::sink(...future.stdout, type = "output", split = FALSE) 1588s [00:53:08.671] base::on.exit(if (!base::is.null(...future.stdout)) { 1588s [00:53:08.671] base::sink(type = "output", split = FALSE) 1588s [00:53:08.671] base::close(...future.stdout) 1588s [00:53:08.671] }, add = TRUE) 1588s [00:53:08.671] } 1588s [00:53:08.671] ...future.frame <- base::sys.nframe() 1588s [00:53:08.671] ...future.conditions <- base::list() 1588s [00:53:08.671] ...future.rng <- base::globalenv()$.Random.seed 1588s [00:53:08.671] if (FALSE) { 1588s [00:53:08.671] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1588s [00:53:08.671] "...future.value", "...future.globalenv.names", ".Random.seed") 1588s [00:53:08.671] } 1588s [00:53:08.671] ...future.result <- base::tryCatch({ 1588s [00:53:08.671] base::withCallingHandlers({ 1588s [00:53:08.671] ...future.value <- base::withVisible(base::local({ 1588s [00:53:08.671] do.call(function(...) { 1588s [00:53:08.671] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1588s [00:53:08.671] if (!identical(...future.globals.maxSize.org, 1588s [00:53:08.671] ...future.globals.maxSize)) { 1588s [00:53:08.671] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1588s [00:53:08.671] on.exit(options(oopts), add = TRUE) 1588s [00:53:08.671] } 1588s [00:53:08.671] { 1588s [00:53:08.671] lapply(seq_along(...future.elements_ii), 1588s [00:53:08.671] FUN = function(jj) { 1588s [00:53:08.671] ...future.X_jj <- ...future.elements_ii[[jj]] 1588s [00:53:08.671] ...future.FUN(...future.X_jj, ...) 1588s [00:53:08.671] }) 1588s [00:53:08.671] } 1588s [00:53:08.671] }, args = future.call.arguments) 1588s [00:53:08.671] })) 1588s [00:53:08.671] future::FutureResult(value = ...future.value$value, 1588s [00:53:08.671] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1588s [00:53:08.671] ...future.rng), globalenv = if (FALSE) 1588s [00:53:08.671] list(added = base::setdiff(base::names(base::.GlobalEnv), 1588s [00:53:08.671] ...future.globalenv.names)) 1588s [00:53:08.671] else NULL, started = ...future.startTime, version = "1.8") 1588s [00:53:08.671] }, condition = base::local({ 1588s [00:53:08.671] c <- base::c 1588s [00:53:08.671] inherits <- base::inherits 1588s [00:53:08.671] invokeRestart <- base::invokeRestart 1588s [00:53:08.671] length <- base::length 1588s [00:53:08.671] list <- base::list 1588s [00:53:08.671] seq.int <- base::seq.int 1588s [00:53:08.671] signalCondition <- base::signalCondition 1588s [00:53:08.671] sys.calls <- base::sys.calls 1588s [00:53:08.671] `[[` <- base::`[[` 1588s [00:53:08.671] `+` <- base::`+` 1588s [00:53:08.671] `<<-` <- base::`<<-` 1588s [00:53:08.671] sysCalls <- function(calls = sys.calls(), from = 1L) { 1588s [00:53:08.671] calls[seq.int(from = from + 12L, to = length(calls) - 1588s [00:53:08.671] 3L)] 1588s [00:53:08.671] } 1588s [00:53:08.671] function(cond) { 1588s [00:53:08.671] is_error <- inherits(cond, "error") 1588s [00:53:08.671] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1588s [00:53:08.671] NULL) 1588s [00:53:08.671] if (is_error) { 1588s [00:53:08.671] sessionInformation <- function() { 1588s [00:53:08.671] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1588s [00:53:08.671] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1588s [00:53:08.671] search = base::search(), system = base::Sys.info()) 1588s [00:53:08.671] } 1588s [00:53:08.671] ...future.conditions[[length(...future.conditions) + 1588s [00:53:08.671] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1588s [00:53:08.671] cond$call), session = sessionInformation(), 1588s [00:53:08.671] timestamp = base::Sys.time(), signaled = 0L) 1588s [00:53:08.671] signalCondition(cond) 1588s [00:53:08.671] } 1588s [00:53:08.671] else if (!ignore && TRUE && inherits(cond, c("condition", 1588s [00:53:08.671] "immediateCondition"))) { 1588s [00:53:08.671] signal <- TRUE && inherits(cond, "immediateCondition") 1588s [00:53:08.671] ...future.conditions[[length(...future.conditions) + 1588s [00:53:08.671] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1588s [00:53:08.671] if (TRUE && !signal) { 1588s [00:53:08.671] muffleCondition <- function (cond, pattern = "^muffle") 1588s [00:53:08.671] { 1588s [00:53:08.671] inherits <- base::inherits 1588s [00:53:08.671] invokeRestart <- base::invokeRestart 1588s [00:53:08.671] is.null <- base::is.null 1588s [00:53:08.671] muffled <- FALSE 1588s [00:53:08.671] if (inherits(cond, "message")) { 1588s [00:53:08.671] muffled <- grepl(pattern, "muffleMessage") 1588s [00:53:08.671] if (muffled) 1588s [00:53:08.671] invokeRestart("muffleMessage") 1588s [00:53:08.671] } 1588s [00:53:08.671] else if (inherits(cond, "warning")) { 1588s [00:53:08.671] muffled <- grepl(pattern, "muffleWarning") 1588s [00:53:08.671] if (muffled) 1588s [00:53:08.671] invokeRestart("muffleWarning") 1588s [00:53:08.671] } 1588s [00:53:08.671] else if (inherits(cond, "condition")) { 1588s [00:53:08.671] if (!is.null(pattern)) { 1588s [00:53:08.671] computeRestarts <- base::computeRestarts 1588s [00:53:08.671] grepl <- base::grepl 1588s [00:53:08.671] restarts <- computeRestarts(cond) 1588s [00:53:08.671] for (restart in restarts) { 1588s [00:53:08.671] name <- restart$name 1588s [00:53:08.671] if (is.null(name)) 1588s [00:53:08.671] next 1588s [00:53:08.671] if (!grepl(pattern, name)) 1588s [00:53:08.671] next 1588s [00:53:08.671] invokeRestart(restart) 1588s [00:53:08.671] muffled <- TRUE 1588s [00:53:08.671] break 1588s [00:53:08.671] } 1588s [00:53:08.671] } 1588s [00:53:08.671] } 1588s [00:53:08.671] invisible(muffled) 1588s [00:53:08.671] } 1588s [00:53:08.671] muffleCondition(cond, pattern = "^muffle") 1588s [00:53:08.671] } 1588s [00:53:08.671] } 1588s [00:53:08.671] else { 1588s [00:53:08.671] if (TRUE) { 1588s [00:53:08.671] muffleCondition <- function (cond, pattern = "^muffle") 1588s [00:53:08.671] { 1588s [00:53:08.671] inherits <- base::inherits 1588s [00:53:08.671] invokeRestart <- base::invokeRestart 1588s [00:53:08.671] is.null <- base::is.null 1588s [00:53:08.671] muffled <- FALSE 1588s [00:53:08.671] if (inherits(cond, "message")) { 1588s [00:53:08.671] muffled <- grepl(pattern, "muffleMessage") 1588s [00:53:08.671] if (muffled) 1588s [00:53:08.671] invokeRestart("muffleMessage") 1588s [00:53:08.671] } 1588s [00:53:08.671] else if (inherits(cond, "warning")) { 1588s [00:53:08.671] muffled <- grepl(pattern, "muffleWarning") 1588s [00:53:08.671] if (muffled) 1588s [00:53:08.671] invokeRestart("muffleWarning") 1588s [00:53:08.671] } 1588s [00:53:08.671] else if (inherits(cond, "condition")) { 1588s [00:53:08.671] if (!is.null(pattern)) { 1588s [00:53:08.671] computeRestarts <- base::computeRestarts 1588s [00:53:08.671] grepl <- base::grepl 1588s [00:53:08.671] restarts <- computeRestarts(cond) 1588s [00:53:08.671] for (restart in restarts) { 1588s [00:53:08.671] name <- restart$name 1588s [00:53:08.671] if (is.null(name)) 1588s [00:53:08.671] next 1588s [00:53:08.671] if (!grepl(pattern, name)) 1588s [00:53:08.671] next 1588s [00:53:08.671] invokeRestart(restart) 1588s [00:53:08.671] muffled <- TRUE 1588s [00:53:08.671] break 1588s [00:53:08.671] } 1588s [00:53:08.671] } 1588s [00:53:08.671] } 1588s [00:53:08.671] invisible(muffled) 1588s [00:53:08.671] } 1588s [00:53:08.671] muffleCondition(cond, pattern = "^muffle") 1588s [00:53:08.671] } 1588s [00:53:08.671] } 1588s [00:53:08.671] } 1588s [00:53:08.671] })) 1588s [00:53:08.671] }, error = function(ex) { 1588s [00:53:08.671] base::structure(base::list(value = NULL, visible = NULL, 1588s [00:53:08.671] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1588s [00:53:08.671] ...future.rng), started = ...future.startTime, 1588s [00:53:08.671] finished = Sys.time(), session_uuid = NA_character_, 1588s [00:53:08.671] version = "1.8"), class = "FutureResult") 1588s [00:53:08.671] }, finally = { 1588s [00:53:08.671] if (!identical(...future.workdir, getwd())) 1588s [00:53:08.671] setwd(...future.workdir) 1588s [00:53:08.671] { 1588s [00:53:08.671] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1588s [00:53:08.671] ...future.oldOptions$nwarnings <- NULL 1588s [00:53:08.671] } 1588s [00:53:08.671] base::options(...future.oldOptions) 1588s [00:53:08.671] if (.Platform$OS.type == "windows") { 1588s [00:53:08.671] old_names <- names(...future.oldEnvVars) 1588s [00:53:08.671] envs <- base::Sys.getenv() 1588s [00:53:08.671] names <- names(envs) 1588s [00:53:08.671] common <- intersect(names, old_names) 1588s [00:53:08.671] added <- setdiff(names, old_names) 1588s [00:53:08.671] removed <- setdiff(old_names, names) 1588s [00:53:08.671] changed <- common[...future.oldEnvVars[common] != 1588s [00:53:08.671] envs[common]] 1588s [00:53:08.671] NAMES <- toupper(changed) 1588s [00:53:08.671] args <- list() 1588s [00:53:08.671] for (kk in seq_along(NAMES)) { 1588s [00:53:08.671] name <- changed[[kk]] 1588s [00:53:08.671] NAME <- NAMES[[kk]] 1588s [00:53:08.671] if (name != NAME && is.element(NAME, old_names)) 1588s [00:53:08.671] next 1588s [00:53:08.671] args[[name]] <- ...future.oldEnvVars[[name]] 1588s [00:53:08.671] } 1588s [00:53:08.671] NAMES <- toupper(added) 1588s [00:53:08.671] for (kk in seq_along(NAMES)) { 1588s [00:53:08.671] name <- added[[kk]] 1588s [00:53:08.671] NAME <- NAMES[[kk]] 1588s [00:53:08.671] if (name != NAME && is.element(NAME, old_names)) 1588s [00:53:08.671] next 1588s [00:53:08.671] args[[name]] <- "" 1588s [00:53:08.671] } 1588s [00:53:08.671] NAMES <- toupper(removed) 1588s [00:53:08.671] for (kk in seq_along(NAMES)) { 1588s [00:53:08.671] name <- removed[[kk]] 1588s [00:53:08.671] NAME <- NAMES[[kk]] 1588s [00:53:08.671] if (name != NAME && is.element(NAME, old_names)) 1588s [00:53:08.671] next 1588s [00:53:08.671] args[[name]] <- ...future.oldEnvVars[[name]] 1588s [00:53:08.671] } 1588s [00:53:08.671] if (length(args) > 0) 1588s [00:53:08.671] base::do.call(base::Sys.setenv, args = args) 1588s [00:53:08.671] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1588s [00:53:08.671] } 1588s [00:53:08.671] else { 1588s [00:53:08.671] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1588s [00:53:08.671] } 1588s [00:53:08.671] { 1588s [00:53:08.671] if (base::length(...future.futureOptionsAdded) > 1588s [00:53:08.671] 0L) { 1588s [00:53:08.671] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1588s [00:53:08.671] base::names(opts) <- ...future.futureOptionsAdded 1588s [00:53:08.671] base::options(opts) 1588s [00:53:08.671] } 1588s [00:53:08.671] { 1588s [00:53:08.671] { 1588s [00:53:08.671] NULL 1588s [00:53:08.671] RNGkind("Mersenne-Twister") 1588s [00:53:08.671] base::rm(list = ".Random.seed", envir = base::globalenv(), 1588s [00:53:08.671] inherits = FALSE) 1588s [00:53:08.671] } 1588s [00:53:08.671] options(future.plan = NULL) 1588s [00:53:08.671] if (is.na(NA_character_)) 1588s [00:53:08.671] Sys.unsetenv("R_FUTURE_PLAN") 1588s [00:53:08.671] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1588s [00:53:08.671] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1588s [00:53:08.671] envir = parent.frame()) 1588s [00:53:08.671] { 1588s [00:53:08.671] default_workers <- missing(workers) 1588s [00:53:08.671] if (is.function(workers)) 1588s [00:53:08.671] workers <- workers() 1588s [00:53:08.671] workers <- structure(as.integer(workers), 1588s [00:53:08.671] class = class(workers)) 1588s [00:53:08.671] stop_if_not(is.finite(workers), workers >= 1588s [00:53:08.671] 1L) 1588s [00:53:08.671] if ((workers == 1L && !inherits(workers, 1588s [00:53:08.671] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1588s [00:53:08.671] if (default_workers) 1588s [00:53:08.671] supportsMulticore(warn = TRUE) 1588s [00:53:08.671] return(sequential(..., envir = envir)) 1588s [00:53:08.671] } 1588s [00:53:08.671] oopts <- options(mc.cores = workers) 1588s [00:53:08.671] on.exit(options(oopts)) 1588s [00:53:08.671] future <- MulticoreFuture(..., workers = workers, 1588s [00:53:08.671] envir = envir) 1588s [00:53:08.671] if (!future$lazy) 1588s [00:53:08.671] future <- run(future) 1588s [00:53:08.671] invisible(future) 1588s [00:53:08.671] }), .cleanup = FALSE, .init = FALSE) 1588s [00:53:08.671] } 1588s [00:53:08.671] } 1588s [00:53:08.671] } 1588s [00:53:08.671] }) 1588s [00:53:08.671] if (TRUE) { 1588s [00:53:08.671] base::sink(type = "output", split = FALSE) 1588s [00:53:08.671] if (TRUE) { 1588s [00:53:08.671] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1588s [00:53:08.671] } 1588s [00:53:08.671] else { 1588s [00:53:08.671] ...future.result["stdout"] <- base::list(NULL) 1588s [00:53:08.671] } 1588s [00:53:08.671] base::close(...future.stdout) 1588s [00:53:08.671] ...future.stdout <- NULL 1588s [00:53:08.671] } 1588s [00:53:08.671] ...future.result$conditions <- ...future.conditions 1588s [00:53:08.671] ...future.result$finished <- base::Sys.time() 1588s [00:53:08.671] ...future.result 1588s [00:53:08.671] } 1588s [00:53:08.675] assign_globals() ... 1588s [00:53:08.675] List of 11 1588s [00:53:08.675] $ ...future.FUN :function (x, ...) 1588s [00:53:08.675] $ x_FUN :function (x) 1588s [00:53:08.675] $ times : int 2 1588s [00:53:08.675] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1588s [00:53:08.675] $ stop_if_not :function (...) 1588s [00:53:08.675] $ dim : NULL 1588s [00:53:08.675] $ valid_types : chr [1:3] "logical" "integer" "double" 1588s [00:53:08.675] $ future.call.arguments : list() 1588s [00:53:08.675] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1588s [00:53:08.675] $ ...future.elements_ii :List of 3 1588s [00:53:08.675] ..$ : int 1 1588s [00:53:08.675] ..$ : int 2 1588s [00:53:08.675] ..$ : int 3 1588s [00:53:08.675] $ ...future.seeds_ii : NULL 1588s [00:53:08.675] $ ...future.globals.maxSize: NULL 1588s [00:53:08.675] - attr(*, "where")=List of 11 1588s [00:53:08.675] ..$ ...future.FUN : 1588s [00:53:08.675] ..$ x_FUN : 1588s [00:53:08.675] ..$ times : 1588s [00:53:08.675] ..$ stopf : 1588s [00:53:08.675] ..$ stop_if_not : 1588s [00:53:08.675] ..$ dim : 1588s [00:53:08.675] ..$ valid_types : 1588s [00:53:08.675] ..$ future.call.arguments : 1588s [00:53:08.675] ..$ ...future.elements_ii : 1588s [00:53:08.675] ..$ ...future.seeds_ii : 1588s [00:53:08.675] ..$ ...future.globals.maxSize: 1588s [00:53:08.675] - attr(*, "resolved")= logi FALSE 1588s [00:53:08.675] - attr(*, "total_size")= num 95128 1588s [00:53:08.675] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1588s [00:53:08.675] - attr(*, "already-done")= logi TRUE 1588s [00:53:08.689] - copied ‘...future.FUN’ to environment 1588s [00:53:08.689] - copied ‘x_FUN’ to environment 1588s [00:53:08.689] - copied ‘times’ to environment 1588s [00:53:08.689] - copied ‘stopf’ to environment 1588s [00:53:08.689] - copied ‘stop_if_not’ to environment 1588s [00:53:08.690] - copied ‘dim’ to environment 1588s [00:53:08.690] - copied ‘valid_types’ to environment 1588s [00:53:08.690] - copied ‘future.call.arguments’ to environment 1588s [00:53:08.690] - copied ‘...future.elements_ii’ to environment 1588s [00:53:08.690] - copied ‘...future.seeds_ii’ to environment 1588s [00:53:08.691] - copied ‘...future.globals.maxSize’ to environment 1588s [00:53:08.691] assign_globals() ... done 1588s [00:53:08.692] plan(): Setting new future strategy stack: 1588s [00:53:08.692] List of future strategies: 1588s [00:53:08.692] 1. sequential: 1588s [00:53:08.692] - args: function (..., envir = parent.frame()) 1588s [00:53:08.692] - tweaked: FALSE 1588s [00:53:08.692] - call: NULL 1588s [00:53:08.693] plan(): nbrOfWorkers() = 1 1588s [00:53:08.694] plan(): Setting new future strategy stack: 1588s [00:53:08.695] List of future strategies: 1588s [00:53:08.695] 1. multicore: 1588s [00:53:08.695] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1588s [00:53:08.695] - tweaked: FALSE 1588s [00:53:08.695] - call: plan(strategy) 1588s [00:53:08.699] plan(): nbrOfWorkers() = 1 1588s [00:53:08.699] SequentialFuture started (and completed) 1588s [00:53:08.699] signalConditions() ... 1588s [00:53:08.699] - include = ‘immediateCondition’ 1588s [00:53:08.699] - exclude = 1588s [00:53:08.699] - resignal = FALSE 1588s [00:53:08.700] - Number of conditions: 1 1588s [00:53:08.700] signalConditions() ... done 1588s [00:53:08.700] - Launch lazy future ... done 1588s [00:53:08.700] run() for ‘SequentialFuture’ ... done 1588s [00:53:08.701] Created future: 1588s [00:53:08.701] SequentialFuture: 1588s [00:53:08.701] Label: ‘future_vapply-1’ 1588s [00:53:08.701] Expression: 1588s [00:53:08.701] { 1588s [00:53:08.701] do.call(function(...) { 1588s [00:53:08.701] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1588s [00:53:08.701] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1588s [00:53:08.701] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1588s [00:53:08.701] on.exit(options(oopts), add = TRUE) 1588s [00:53:08.701] } 1588s [00:53:08.701] { 1588s [00:53:08.701] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1588s [00:53:08.701] ...future.X_jj <- ...future.elements_ii[[jj]] 1588s [00:53:08.701] ...future.FUN(...future.X_jj, ...) 1588s [00:53:08.701] }) 1588s [00:53:08.701] } 1588s [00:53:08.701] }, args = future.call.arguments) 1588s [00:53:08.701] } 1588s [00:53:08.701] Lazy evaluation: FALSE 1588s [00:53:08.701] Asynchronous evaluation: FALSE 1588s [00:53:08.701] Local evaluation: TRUE 1588s [00:53:08.701] Environment: R_GlobalEnv 1588s [00:53:08.701] Capture standard output: TRUE 1588s [00:53:08.701] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1588s [00:53:08.701] Globals: 11 objects totaling 93.06 KiB (function ‘...future.FUN’ of 21.22 KiB, function ‘x_FUN’ of 848 bytes, integer ‘times’ of 56 bytes, function ‘stopf’ of 26.43 KiB, function ‘stop_if_not’ of 44.12 KiB, ...) 1588s [00:53:08.701] Packages: 1 packages (‘future.apply’) 1588s [00:53:08.701] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1588s [00:53:08.701] Resolved: TRUE 1588s [00:53:08.701] Value: 0 bytes of class ‘NULL’ 1588s [00:53:08.701] Conditions captured: [n=1] ‘simpleError’ 1588s [00:53:08.701] Early signaling: FALSE 1588s [00:53:08.701] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1588s [00:53:08.701] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1588s [00:53:08.702] Chunk #1 of 1 ... DONE 1588s [00:53:08.702] Launching 1 futures (chunks) ... DONE 1588s [00:53:08.702] Resolving 1 futures (chunks) ... 1588s [00:53:08.703] resolve() on list ... 1588s [00:53:08.703] recursive: 0 1588s [00:53:08.703] length: 1 1588s [00:53:08.703] 1588s [00:53:08.703] resolved() for ‘SequentialFuture’ ... 1588s [00:53:08.703] - state: ‘finished’ 1588s [00:53:08.703] - run: TRUE 1588s [00:53:08.703] - result: ‘FutureResult’ 1588s [00:53:08.703] resolved() for ‘SequentialFuture’ ... done 1588s [00:53:08.704] Future #1 1588s [00:53:08.704] signalConditions() ... 1588s [00:53:08.704] - include = ‘immediateCondition’ 1588s [00:53:08.704] - exclude = 1588s [00:53:08.704] - resignal = FALSE 1588s [00:53:08.704] - Number of conditions: 1 1588s [00:53:08.704] signalConditions() ... done 1588s [00:53:08.705] signalConditionsASAP(SequentialFuture, pos=1) ... 1588s [00:53:08.705] - nx: 1 1588s [00:53:08.705] - relay: TRUE 1588s [00:53:08.705] - stdout: TRUE 1588s [00:53:08.705] - signal: TRUE 1588s [00:53:08.705] - resignal: FALSE 1588s [00:53:08.705] - force: TRUE 1588s [00:53:08.705] - relayed: [n=1] FALSE 1588s [00:53:08.705] - queued futures: [n=1] FALSE 1588s [00:53:08.706] - until=1 1588s [00:53:08.706] - relaying element #1 1588s [00:53:08.706] signalConditions() ... 1588s [00:53:08.706] - include = ‘immediateCondition’ 1588s [00:53:08.706] - exclude = 1588s [00:53:08.706] - resignal = FALSE 1588s [00:53:08.706] - Number of conditions: 1 1588s [00:53:08.706] signalConditions() ... done 1588s [00:53:08.706] signalConditions() ... 1588s [00:53:08.707] - include = ‘immediateCondition’ 1588s [00:53:08.707] - exclude = 1588s [00:53:08.707] - resignal = FALSE 1588s [00:53:08.707] - Number of conditions: 1 1588s [00:53:08.707] signalConditions() ... done 1588s [00:53:08.707] signalConditions() ... 1588s [00:53:08.707] - include = ‘condition’ 1588s [00:53:08.707] - exclude = ‘immediateCondition’ 1588s [00:53:08.707] - resignal = TRUE 1588s [00:53:08.708] - Number of conditions: 1 1588s [00:53:08.708] - Condition #1: ‘simpleError’, ‘error’, ‘condition’ 1588s [00:53:08.708] signalConditions() ... done 1588s [00:53:08.708] - relayed: [n=1] FALSE 1588s [00:53:08.708] - queued futures: [n=1] TRUE 1588s [00:53:08.708] signalConditionsASAP(SequentialFuture, pos=1) ... done 1588s [00:53:08.708] plan(): Setting new future strategy stack: 1588s [00:53:08.708] List of future strategies: 1588s [00:53:08.708] 1. sequential: 1588s [00:53:08.708] - args: function (..., envir = parent.frame()) 1588s [00:53:08.708] - tweaked: FALSE 1588s [00:53:08.708] - call: plan(sequential) 1588s [00:53:08.709] plan(): nbrOfWorkers() = 1 1588s *** strategy = ‘multicore’ ... done 1588s *** strategy = ‘multisession’ ... 1588s [00:53:08.711] plan(): Setting new future strategy stack: 1588s [00:53:08.712] List of future strategies: 1588s [00:53:08.712] 1. multisession: 1588s [00:53:08.712] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1588s [00:53:08.712] - tweaked: FALSE 1588s [00:53:08.712] - call: plan(strategy) 1588s [00:53:08.712] plan(): plan_init() of ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ ... 1588s [00:53:08.712] multisession: 1588s [00:53:08.712] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1588s [00:53:08.712] - tweaked: FALSE 1588s [00:53:08.712] - call: plan(strategy) 1588s [00:53:08.716] getGlobalsAndPackages() ... 1588s [00:53:08.716] Not searching for globals 1588s [00:53:08.717] - globals: [0] 1588s [00:53:08.717] getGlobalsAndPackages() ... DONE 1588s [00:53:08.718] Packages needed by the future expression (n = 0): 1588s [00:53:08.718] Packages needed by future strategies (n = 0): 1588s [00:53:08.718] { 1588s [00:53:08.718] { 1588s [00:53:08.718] { 1588s [00:53:08.718] ...future.startTime <- base::Sys.time() 1588s [00:53:08.718] { 1588s [00:53:08.718] { 1588s [00:53:08.718] { 1588s [00:53:08.718] base::local({ 1588s [00:53:08.718] has_future <- base::requireNamespace("future", 1588s [00:53:08.718] quietly = TRUE) 1588s [00:53:08.718] if (has_future) { 1588s [00:53:08.718] ns <- base::getNamespace("future") 1588s [00:53:08.718] version <- ns[[".package"]][["version"]] 1588s [00:53:08.718] if (is.null(version)) 1588s [00:53:08.718] version <- utils::packageVersion("future") 1588s [00:53:08.718] } 1588s [00:53:08.718] else { 1588s [00:53:08.718] version <- NULL 1588s [00:53:08.718] } 1588s [00:53:08.718] if (!has_future || version < "1.8.0") { 1588s [00:53:08.718] info <- base::c(r_version = base::gsub("R version ", 1588s [00:53:08.718] "", base::R.version$version.string), 1588s [00:53:08.718] platform = base::sprintf("%s (%s-bit)", 1588s [00:53:08.718] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1588s [00:53:08.718] os = base::paste(base::Sys.info()[base::c("sysname", 1588s [00:53:08.718] "release", "version")], collapse = " "), 1588s [00:53:08.718] hostname = base::Sys.info()[["nodename"]]) 1588s [00:53:08.718] info <- base::sprintf("%s: %s", base::names(info), 1588s [00:53:08.718] info) 1588s [00:53:08.718] info <- base::paste(info, collapse = "; ") 1588s [00:53:08.718] if (!has_future) { 1588s [00:53:08.718] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1588s [00:53:08.718] info) 1588s [00:53:08.718] } 1588s [00:53:08.718] else { 1588s [00:53:08.718] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1588s [00:53:08.718] info, version) 1588s [00:53:08.718] } 1588s [00:53:08.718] base::stop(msg) 1588s [00:53:08.718] } 1588s [00:53:08.718] }) 1588s [00:53:08.718] } 1588s [00:53:08.718] options(future.plan = NULL) 1588s [00:53:08.718] Sys.unsetenv("R_FUTURE_PLAN") 1588s [00:53:08.718] future::plan("default", .cleanup = FALSE, .init = FALSE) 1588s [00:53:08.718] } 1588s [00:53:08.718] ...future.workdir <- getwd() 1588s [00:53:08.718] } 1588s [00:53:08.718] ...future.oldOptions <- base::as.list(base::.Options) 1588s [00:53:08.718] ...future.oldEnvVars <- base::Sys.getenv() 1588s [00:53:08.718] } 1588s [00:53:08.718] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1588s [00:53:08.718] future.globals.maxSize = NULL, future.globals.method = NULL, 1588s [00:53:08.718] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1588s [00:53:08.718] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1588s [00:53:08.718] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1588s [00:53:08.718] future.stdout.windows.reencode = NULL, width = 80L) 1588s [00:53:08.718] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1588s [00:53:08.718] base::names(...future.oldOptions)) 1588s [00:53:08.718] } 1588s [00:53:08.718] if (FALSE) { 1588s [00:53:08.718] } 1588s [00:53:08.718] else { 1588s [00:53:08.718] if (TRUE) { 1588s [00:53:08.718] ...future.stdout <- base::rawConnection(base::raw(0L), 1588s [00:53:08.718] open = "w") 1588s [00:53:08.718] } 1588s [00:53:08.718] else { 1588s [00:53:08.718] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1588s [00:53:08.718] windows = "NUL", "/dev/null"), open = "w") 1588s [00:53:08.718] } 1588s [00:53:08.718] base::sink(...future.stdout, type = "output", split = FALSE) 1588s [00:53:08.718] base::on.exit(if (!base::is.null(...future.stdout)) { 1588s [00:53:08.718] base::sink(type = "output", split = FALSE) 1588s [00:53:08.718] base::close(...future.stdout) 1588s [00:53:08.718] }, add = TRUE) 1588s [00:53:08.718] } 1588s [00:53:08.718] ...future.frame <- base::sys.nframe() 1588s [00:53:08.718] ...future.conditions <- base::list() 1588s [00:53:08.718] ...future.rng <- base::globalenv()$.Random.seed 1588s [00:53:08.718] if (FALSE) { 1588s [00:53:08.718] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1588s [00:53:08.718] "...future.value", "...future.globalenv.names", ".Random.seed") 1588s [00:53:08.718] } 1588s [00:53:08.718] ...future.result <- base::tryCatch({ 1588s [00:53:08.718] base::withCallingHandlers({ 1588s [00:53:08.718] ...future.value <- base::withVisible(base::local(NA)) 1588s [00:53:08.718] future::FutureResult(value = ...future.value$value, 1588s [00:53:08.718] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1588s [00:53:08.718] ...future.rng), globalenv = if (FALSE) 1588s [00:53:08.718] list(added = base::setdiff(base::names(base::.GlobalEnv), 1588s [00:53:08.718] ...future.globalenv.names)) 1588s [00:53:08.718] else NULL, started = ...future.startTime, version = "1.8") 1588s [00:53:08.718] }, condition = base::local({ 1588s [00:53:08.718] c <- base::c 1588s [00:53:08.718] inherits <- base::inherits 1588s [00:53:08.718] invokeRestart <- base::invokeRestart 1588s [00:53:08.718] length <- base::length 1588s [00:53:08.718] list <- base::list 1588s [00:53:08.718] seq.int <- base::seq.int 1588s [00:53:08.718] signalCondition <- base::signalCondition 1588s [00:53:08.718] sys.calls <- base::sys.calls 1588s [00:53:08.718] `[[` <- base::`[[` 1588s [00:53:08.718] `+` <- base::`+` 1588s [00:53:08.718] `<<-` <- base::`<<-` 1588s [00:53:08.718] sysCalls <- function(calls = sys.calls(), from = 1L) { 1588s [00:53:08.718] calls[seq.int(from = from + 12L, to = length(calls) - 1588s [00:53:08.718] 3L)] 1588s [00:53:08.718] } 1588s [00:53:08.718] function(cond) { 1588s [00:53:08.718] is_error <- inherits(cond, "error") 1588s [00:53:08.718] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1588s [00:53:08.718] NULL) 1588s [00:53:08.718] if (is_error) { 1588s [00:53:08.718] sessionInformation <- function() { 1588s [00:53:08.718] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1588s [00:53:08.718] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1588s [00:53:08.718] search = base::search(), system = base::Sys.info()) 1588s [00:53:08.718] } 1588s [00:53:08.718] ...future.conditions[[length(...future.conditions) + 1588s [00:53:08.718] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1588s [00:53:08.718] cond$call), session = sessionInformation(), 1588s [00:53:08.718] timestamp = base::Sys.time(), signaled = 0L) 1588s [00:53:08.718] signalCondition(cond) 1588s [00:53:08.718] } 1588s [00:53:08.718] else if (!ignore && TRUE && inherits(cond, c("condition", 1588s [00:53:08.718] "immediateCondition"))) { 1588s [00:53:08.718] signal <- TRUE && inherits(cond, "immediateCondition") 1588s [00:53:08.718] ...future.conditions[[length(...future.conditions) + 1588s [00:53:08.718] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1588s [00:53:08.718] if (TRUE && !signal) { 1588s [00:53:08.718] muffleCondition <- function (cond, pattern = "^muffle") 1588s [00:53:08.718] { 1588s [00:53:08.718] inherits <- base::inherits 1588s [00:53:08.718] invokeRestart <- base::invokeRestart 1588s [00:53:08.718] is.null <- base::is.null 1588s [00:53:08.718] muffled <- FALSE 1588s [00:53:08.718] if (inherits(cond, "message")) { 1588s [00:53:08.718] muffled <- grepl(pattern, "muffleMessage") 1588s [00:53:08.718] if (muffled) 1588s [00:53:08.718] invokeRestart("muffleMessage") 1588s [00:53:08.718] } 1588s [00:53:08.718] else if (inherits(cond, "warning")) { 1588s [00:53:08.718] muffled <- grepl(pattern, "muffleWarning") 1588s [00:53:08.718] if (muffled) 1588s [00:53:08.718] invokeRestart("muffleWarning") 1588s [00:53:08.718] } 1588s [00:53:08.718] else if (inherits(cond, "condition")) { 1588s [00:53:08.718] if (!is.null(pattern)) { 1588s [00:53:08.718] computeRestarts <- base::computeRestarts 1588s [00:53:08.718] grepl <- base::grepl 1588s [00:53:08.718] restarts <- computeRestarts(cond) 1588s [00:53:08.718] for (restart in restarts) { 1588s [00:53:08.718] name <- restart$name 1588s [00:53:08.718] if (is.null(name)) 1588s [00:53:08.718] next 1588s [00:53:08.718] if (!grepl(pattern, name)) 1588s [00:53:08.718] next 1588s [00:53:08.718] invokeRestart(restart) 1588s [00:53:08.718] muffled <- TRUE 1588s [00:53:08.718] break 1588s [00:53:08.718] } 1588s [00:53:08.718] } 1588s [00:53:08.718] } 1588s [00:53:08.718] invisible(muffled) 1588s [00:53:08.718] } 1588s [00:53:08.718] muffleCondition(cond, pattern = "^muffle") 1588s [00:53:08.718] } 1588s [00:53:08.718] } 1588s [00:53:08.718] else { 1588s [00:53:08.718] if (TRUE) { 1588s [00:53:08.718] muffleCondition <- function (cond, pattern = "^muffle") 1588s [00:53:08.718] { 1588s [00:53:08.718] inherits <- base::inherits 1588s [00:53:08.718] invokeRestart <- base::invokeRestart 1588s [00:53:08.718] is.null <- base::is.null 1588s [00:53:08.718] muffled <- FALSE 1588s [00:53:08.718] if (inherits(cond, "message")) { 1588s [00:53:08.718] muffled <- grepl(pattern, "muffleMessage") 1588s [00:53:08.718] if (muffled) 1588s [00:53:08.718] invokeRestart("muffleMessage") 1588s [00:53:08.718] } 1588s [00:53:08.718] else if (inherits(cond, "warning")) { 1588s [00:53:08.718] muffled <- grepl(pattern, "muffleWarning") 1588s [00:53:08.718] if (muffled) 1588s [00:53:08.718] invokeRestart("muffleWarning") 1588s [00:53:08.718] } 1588s [00:53:08.718] else if (inherits(cond, "condition")) { 1588s [00:53:08.718] if (!is.null(pattern)) { 1588s [00:53:08.718] computeRestarts <- base::computeRestarts 1588s [00:53:08.718] grepl <- base::grepl 1588s [00:53:08.718] restarts <- computeRestarts(cond) 1588s [00:53:08.718] for (restart in restarts) { 1588s [00:53:08.718] name <- restart$name 1588s [00:53:08.718] if (is.null(name)) 1588s [00:53:08.718] next 1588s [00:53:08.718] if (!grepl(pattern, name)) 1588s [00:53:08.718] next 1588s [00:53:08.718] invokeRestart(restart) 1588s [00:53:08.718] muffled <- TRUE 1588s [00:53:08.718] break 1588s [00:53:08.718] } 1588s [00:53:08.718] } 1588s [00:53:08.718] } 1588s [00:53:08.718] invisible(muffled) 1588s [00:53:08.718] } 1588s [00:53:08.718] muffleCondition(cond, pattern = "^muffle") 1588s [00:53:08.718] } 1588s [00:53:08.718] } 1588s [00:53:08.718] } 1588s [00:53:08.718] })) 1588s [00:53:08.718] }, error = function(ex) { 1588s [00:53:08.718] base::structure(base::list(value = NULL, visible = NULL, 1588s [00:53:08.718] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1588s [00:53:08.718] ...future.rng), started = ...future.startTime, 1588s [00:53:08.718] finished = Sys.time(), session_uuid = NA_character_, 1588s [00:53:08.718] version = "1.8"), class = "FutureResult") 1588s [00:53:08.718] }, finally = { 1588s [00:53:08.718] if (!identical(...future.workdir, getwd())) 1588s [00:53:08.718] setwd(...future.workdir) 1588s [00:53:08.718] { 1588s [00:53:08.718] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1588s [00:53:08.718] ...future.oldOptions$nwarnings <- NULL 1588s [00:53:08.718] } 1588s [00:53:08.718] base::options(...future.oldOptions) 1588s [00:53:08.718] if (.Platform$OS.type == "windows") { 1588s [00:53:08.718] old_names <- names(...future.oldEnvVars) 1588s [00:53:08.718] envs <- base::Sys.getenv() 1588s [00:53:08.718] names <- names(envs) 1588s [00:53:08.718] common <- intersect(names, old_names) 1588s [00:53:08.718] added <- setdiff(names, old_names) 1588s [00:53:08.718] removed <- setdiff(old_names, names) 1588s [00:53:08.718] changed <- common[...future.oldEnvVars[common] != 1588s [00:53:08.718] envs[common]] 1588s [00:53:08.718] NAMES <- toupper(changed) 1588s [00:53:08.718] args <- list() 1588s [00:53:08.718] for (kk in seq_along(NAMES)) { 1588s [00:53:08.718] name <- changed[[kk]] 1588s [00:53:08.718] NAME <- NAMES[[kk]] 1588s [00:53:08.718] if (name != NAME && is.element(NAME, old_names)) 1588s [00:53:08.718] next 1588s [00:53:08.718] args[[name]] <- ...future.oldEnvVars[[name]] 1588s [00:53:08.718] } 1588s [00:53:08.718] NAMES <- toupper(added) 1588s [00:53:08.718] for (kk in seq_along(NAMES)) { 1588s [00:53:08.718] name <- added[[kk]] 1588s [00:53:08.718] NAME <- NAMES[[kk]] 1588s [00:53:08.718] if (name != NAME && is.element(NAME, old_names)) 1588s [00:53:08.718] next 1588s [00:53:08.718] args[[name]] <- "" 1588s [00:53:08.718] } 1588s [00:53:08.718] NAMES <- toupper(removed) 1588s [00:53:08.718] for (kk in seq_along(NAMES)) { 1588s [00:53:08.718] name <- removed[[kk]] 1588s [00:53:08.718] NAME <- NAMES[[kk]] 1588s [00:53:08.718] if (name != NAME && is.element(NAME, old_names)) 1588s [00:53:08.718] next 1588s [00:53:08.718] args[[name]] <- ...future.oldEnvVars[[name]] 1588s [00:53:08.718] } 1588s [00:53:08.718] if (length(args) > 0) 1588s [00:53:08.718] base::do.call(base::Sys.setenv, args = args) 1588s [00:53:08.718] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1588s [00:53:08.718] } 1588s [00:53:08.718] else { 1588s [00:53:08.718] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1588s [00:53:08.718] } 1588s [00:53:08.718] { 1588s [00:53:08.718] if (base::length(...future.futureOptionsAdded) > 1588s [00:53:08.718] 0L) { 1588s [00:53:08.718] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1588s [00:53:08.718] base::names(opts) <- ...future.futureOptionsAdded 1588s [00:53:08.718] base::options(opts) 1588s [00:53:08.718] } 1588s [00:53:08.718] { 1588s [00:53:08.718] { 1588s [00:53:08.718] NULL 1588s [00:53:08.718] RNGkind("Mersenne-Twister") 1588s [00:53:08.718] base::rm(list = ".Random.seed", envir = base::globalenv(), 1588s [00:53:08.718] inherits = FALSE) 1588s [00:53:08.718] } 1588s [00:53:08.718] options(future.plan = NULL) 1588s [00:53:08.718] if (is.na(NA_character_)) 1588s [00:53:08.718] Sys.unsetenv("R_FUTURE_PLAN") 1588s [00:53:08.718] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1588s [00:53:08.718] future::plan(list(function (..., workers = availableCores(), 1588s [00:53:08.718] lazy = FALSE, rscript_libs = .libPaths(), 1588s [00:53:08.718] envir = parent.frame()) 1588s [00:53:08.718] { 1588s [00:53:08.718] if (is.function(workers)) 1588s [00:53:08.718] workers <- workers() 1588s [00:53:08.718] workers <- structure(as.integer(workers), 1588s [00:53:08.718] class = class(workers)) 1588s [00:53:08.718] stop_if_not(length(workers) == 1, is.finite(workers), 1588s [00:53:08.718] workers >= 1) 1588s [00:53:08.718] if (workers == 1L && !inherits(workers, "AsIs")) { 1588s [00:53:08.718] return(sequential(..., lazy = TRUE, envir = envir)) 1588s [00:53:08.718] } 1588s [00:53:08.718] future <- MultisessionFuture(..., workers = workers, 1588s [00:53:08.718] lazy = lazy, rscript_libs = rscript_libs, 1588s [00:53:08.718] envir = envir) 1588s [00:53:08.718] if (!future$lazy) 1588s [00:53:08.718] future <- run(future) 1588s [00:53:08.718] invisible(future) 1588s [00:53:08.718] }), .cleanup = FALSE, .init = FALSE) 1588s [00:53:08.718] } 1588s [00:53:08.718] } 1588s [00:53:08.718] } 1588s [00:53:08.718] }) 1588s [00:53:08.718] if (TRUE) { 1588s [00:53:08.718] base::sink(type = "output", split = FALSE) 1588s [00:53:08.718] if (TRUE) { 1588s [00:53:08.718] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1588s [00:53:08.718] } 1588s [00:53:08.718] else { 1588s [00:53:08.718] ...future.result["stdout"] <- base::list(NULL) 1588s [00:53:08.718] } 1588s [00:53:08.718] base::close(...future.stdout) 1588s [00:53:08.718] ...future.stdout <- NULL 1588s [00:53:08.718] } 1588s [00:53:08.718] ...future.result$conditions <- ...future.conditions 1588s [00:53:08.718] ...future.result$finished <- base::Sys.time() 1588s [00:53:08.718] ...future.result 1588s [00:53:08.718] } 1588s [00:53:08.722] plan(): Setting new future strategy stack: 1588s [00:53:08.722] List of future strategies: 1588s [00:53:08.722] 1. sequential: 1588s [00:53:08.722] - args: function (..., envir = parent.frame()) 1588s [00:53:08.722] - tweaked: FALSE 1588s [00:53:08.722] - call: NULL 1588s [00:53:08.722] plan(): nbrOfWorkers() = 1 1588s [00:53:08.723] plan(): Setting new future strategy stack: 1588s [00:53:08.723] List of future strategies: 1588s [00:53:08.723] 1. multisession: 1588s [00:53:08.723] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1588s [00:53:08.723] - tweaked: FALSE 1588s [00:53:08.723] - call: plan(strategy) 1588s [00:53:08.727] plan(): nbrOfWorkers() = 1 1588s [00:53:08.727] SequentialFuture started (and completed) 1588s [00:53:08.727] plan(): plan_init() of ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ ... DONE 1588s [00:53:08.731] plan(): nbrOfWorkers() = 1 1588s logi(0) 1588s logi(0) 1588s logi(0) 1588s logi(0) 1588s logi(0) 1588s int(0) 1588s int(0) 1588s [00:53:08.735] future_lapply() ... 1588s Named chr [1:2] "integer" "character" 1588s - attr(*, "names")= chr [1:2] "x" "y" 1588s [00:53:08.741] Number of chunks: 1 1588s [00:53:08.742] getGlobalsAndPackagesXApply() ... 1588s [00:53:08.742] - future.globals: TRUE 1588s [00:53:08.742] getGlobalsAndPackages() ... 1588s [00:53:08.742] Searching for globals... 1588s [00:53:08.746] - globals found: [16] ‘FUN’, ‘{’, ‘<-’, ‘x_FUN’, ‘if’, ‘!=’, ‘length’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘all’, ‘==’, ‘dim’, ‘%in%’, ‘typeof’, ‘valid_types’ 1588s [00:53:08.746] Searching for globals ... DONE 1588s [00:53:08.747] Resolving globals: FALSE 1588s [00:53:08.748] The total size of the 7 globals is 92.00 KiB (94208 bytes) 1588s [00:53:08.748] The total size of the 7 globals exported for future expression (‘FUN()’) is 92.00 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘stop_if_not’ (44.12 KiB of class ‘function’), ‘stopf’ (26.43 KiB of class ‘function’) and ‘FUN’ (21.22 KiB of class ‘function’) 1588s [00:53:08.749] - globals: [7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1588s [00:53:08.749] - packages: [1] ‘future.apply’ 1588s [00:53:08.749] getGlobalsAndPackages() ... DONE 1588s [00:53:08.750] - globals found/used: [n=7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1588s [00:53:08.750] - needed namespaces: [n=1] ‘future.apply’ 1588s [00:53:08.750] Finding globals ... DONE 1588s [00:53:08.750] - use_args: TRUE 1588s [00:53:08.750] - Getting '...' globals ... 1588s [00:53:08.753] resolve() on list ... 1588s [00:53:08.753] recursive: 0 1588s [00:53:08.753] length: 1 1588s [00:53:08.753] elements: ‘...’ 1588s [00:53:08.754] length: 0 (resolved future 1) 1588s [00:53:08.754] resolve() on list ... DONE 1588s [00:53:08.754] - '...' content: [n=0] 1588s [00:53:08.754] List of 1 1588s [00:53:08.754] $ ...: list() 1588s [00:53:08.754] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1588s [00:53:08.754] - attr(*, "where")=List of 1 1588s [00:53:08.754] ..$ ...: 1588s [00:53:08.754] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1588s [00:53:08.754] - attr(*, "resolved")= logi TRUE 1588s [00:53:08.754] - attr(*, "total_size")= num NA 1588s [00:53:08.757] - Getting '...' globals ... DONE 1588s [00:53:08.757] Globals to be used in all futures (chunks): [n=8] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’ 1588s [00:53:08.757] List of 8 1588s [00:53:08.757] $ ...future.FUN:function (x, ...) 1588s [00:53:08.757] $ x_FUN :function (x) 1588s [00:53:08.757] $ times : int 1 1588s [00:53:08.757] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1588s [00:53:08.757] $ stop_if_not :function (...) 1588s [00:53:08.757] $ dim : NULL 1588s [00:53:08.757] $ valid_types : chr "character" 1588s [00:53:08.757] $ ... : list() 1588s [00:53:08.757] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1588s [00:53:08.757] - attr(*, "where")=List of 8 1588s [00:53:08.757] ..$ ...future.FUN: 1588s [00:53:08.757] ..$ x_FUN : 1588s [00:53:08.757] ..$ times : 1588s [00:53:08.757] ..$ stopf : 1588s [00:53:08.757] ..$ stop_if_not : 1588s [00:53:08.757] ..$ dim : 1588s [00:53:08.757] ..$ valid_types : 1588s [00:53:08.757] ..$ ... : 1588s [00:53:08.757] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1588s [00:53:08.757] - attr(*, "resolved")= logi FALSE 1588s [00:53:08.757] - attr(*, "total_size")= num 94208 1588s [00:53:08.766] Packages to be attached in all futures: [n=1] ‘future.apply’ 1588s [00:53:08.766] getGlobalsAndPackagesXApply() ... DONE 1588s [00:53:08.766] Number of futures (= number of chunks): 1 1588s [00:53:08.766] Launching 1 futures (chunks) ... 1588s [00:53:08.766] Chunk #1 of 1 ... 1588s [00:53:08.767] - Finding globals in 'X' for chunk #1 ... 1588s [00:53:08.767] getGlobalsAndPackages() ... 1588s [00:53:08.767] Searching for globals... 1588s [00:53:08.767] 1588s [00:53:08.767] Searching for globals ... DONE 1588s [00:53:08.768] - globals: [0] 1588s [00:53:08.768] getGlobalsAndPackages() ... DONE 1588s [00:53:08.768] + additional globals found: [n=0] 1588s [00:53:08.768] + additional namespaces needed: [n=0] 1588s [00:53:08.768] - Finding globals in 'X' for chunk #1 ... DONE 1588s [00:53:08.768] - seeds: 1588s [00:53:08.768] - All globals exported: [n=11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1588s [00:53:08.769] getGlobalsAndPackages() ... 1588s [00:53:08.769] - globals passed as-is: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1588s [00:53:08.769] Resolving globals: FALSE 1588s [00:53:08.769] Tweak future expression to call with '...' arguments ... 1588s [00:53:08.769] { 1588s [00:53:08.769] do.call(function(...) { 1588s [00:53:08.769] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1588s [00:53:08.769] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1588s [00:53:08.769] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1588s [00:53:08.769] on.exit(options(oopts), add = TRUE) 1588s [00:53:08.769] } 1588s [00:53:08.769] { 1588s [00:53:08.769] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1588s [00:53:08.769] ...future.X_jj <- ...future.elements_ii[[jj]] 1588s [00:53:08.769] ...future.FUN(...future.X_jj, ...) 1588s [00:53:08.769] }) 1588s [00:53:08.769] } 1588s [00:53:08.769] }, args = future.call.arguments) 1588s [00:53:08.769] } 1588s [00:53:08.770] Tweak future expression to call with '...' arguments ... DONE 1588s [00:53:08.771] - globals: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1588s [00:53:08.771] - packages: [1] ‘future.apply’ 1588s [00:53:08.771] getGlobalsAndPackages() ... DONE 1588s [00:53:08.771] run() for ‘Future’ ... 1588s [00:53:08.771] - state: ‘created’ 1588s [00:53:08.772] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1588s [00:53:08.775] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1588s [00:53:08.775] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1588s [00:53:08.775] - Field: ‘label’ 1588s [00:53:08.776] - Field: ‘local’ 1588s [00:53:08.776] - Field: ‘owner’ 1588s [00:53:08.776] - Field: ‘envir’ 1588s [00:53:08.776] - Field: ‘packages’ 1588s [00:53:08.776] - Field: ‘gc’ 1588s [00:53:08.776] - Field: ‘conditions’ 1588s [00:53:08.776] - Field: ‘expr’ 1588s [00:53:08.777] - Field: ‘uuid’ 1588s [00:53:08.777] - Field: ‘seed’ 1588s [00:53:08.777] - Field: ‘version’ 1588s [00:53:08.777] - Field: ‘result’ 1588s [00:53:08.777] - Field: ‘asynchronous’ 1588s [00:53:08.778] - Field: ‘calls’ 1588s [00:53:08.778] - Field: ‘globals’ 1588s [00:53:08.778] - Field: ‘stdout’ 1588s [00:53:08.778] - Field: ‘earlySignal’ 1588s [00:53:08.778] - Field: ‘lazy’ 1588s [00:53:08.778] - Field: ‘state’ 1588s [00:53:08.778] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1588s [00:53:08.778] - Launch lazy future ... 1588s [00:53:08.779] Packages needed by the future expression (n = 1): ‘future.apply’ 1588s [00:53:08.779] Packages needed by future strategies (n = 0): 1588s [00:53:08.780] { 1588s [00:53:08.780] { 1588s [00:53:08.780] { 1588s [00:53:08.780] ...future.startTime <- base::Sys.time() 1588s [00:53:08.780] { 1588s [00:53:08.780] { 1588s [00:53:08.780] { 1588s [00:53:08.780] { 1588s [00:53:08.780] base::local({ 1588s [00:53:08.780] has_future <- base::requireNamespace("future", 1588s [00:53:08.780] quietly = TRUE) 1588s [00:53:08.780] if (has_future) { 1588s [00:53:08.780] ns <- base::getNamespace("future") 1588s [00:53:08.780] version <- ns[[".package"]][["version"]] 1588s [00:53:08.780] if (is.null(version)) 1588s [00:53:08.780] version <- utils::packageVersion("future") 1588s [00:53:08.780] } 1588s [00:53:08.780] else { 1588s [00:53:08.780] version <- NULL 1588s [00:53:08.780] } 1588s [00:53:08.780] if (!has_future || version < "1.8.0") { 1588s [00:53:08.780] info <- base::c(r_version = base::gsub("R version ", 1588s [00:53:08.780] "", base::R.version$version.string), 1588s [00:53:08.780] platform = base::sprintf("%s (%s-bit)", 1588s [00:53:08.780] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1588s [00:53:08.780] os = base::paste(base::Sys.info()[base::c("sysname", 1588s [00:53:08.780] "release", "version")], collapse = " "), 1588s [00:53:08.780] hostname = base::Sys.info()[["nodename"]]) 1588s [00:53:08.780] info <- base::sprintf("%s: %s", base::names(info), 1588s [00:53:08.780] info) 1588s [00:53:08.780] info <- base::paste(info, collapse = "; ") 1588s [00:53:08.780] if (!has_future) { 1588s [00:53:08.780] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1588s [00:53:08.780] info) 1588s [00:53:08.780] } 1588s [00:53:08.780] else { 1588s [00:53:08.780] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1588s [00:53:08.780] info, version) 1588s [00:53:08.780] } 1588s [00:53:08.780] base::stop(msg) 1588s [00:53:08.780] } 1588s [00:53:08.780] }) 1588s [00:53:08.780] } 1588s [00:53:08.780] base::local({ 1588s [00:53:08.780] for (pkg in "future.apply") { 1588s [00:53:08.780] base::loadNamespace(pkg) 1588s [00:53:08.780] base::library(pkg, character.only = TRUE) 1588s [00:53:08.780] } 1588s [00:53:08.780] }) 1588s [00:53:08.780] } 1588s [00:53:08.780] options(future.plan = NULL) 1588s [00:53:08.780] Sys.unsetenv("R_FUTURE_PLAN") 1588s [00:53:08.780] future::plan("default", .cleanup = FALSE, .init = FALSE) 1588s [00:53:08.780] } 1588s [00:53:08.780] ...future.workdir <- getwd() 1588s [00:53:08.780] } 1588s [00:53:08.780] ...future.oldOptions <- base::as.list(base::.Options) 1588s [00:53:08.780] ...future.oldEnvVars <- base::Sys.getenv() 1588s [00:53:08.780] } 1588s [00:53:08.780] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1588s [00:53:08.780] future.globals.maxSize = NULL, future.globals.method = NULL, 1588s [00:53:08.780] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1588s [00:53:08.780] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1588s [00:53:08.780] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1588s [00:53:08.780] future.stdout.windows.reencode = NULL, width = 80L) 1588s [00:53:08.780] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1588s [00:53:08.780] base::names(...future.oldOptions)) 1588s [00:53:08.780] } 1588s [00:53:08.780] if (FALSE) { 1588s [00:53:08.780] } 1588s [00:53:08.780] else { 1588s [00:53:08.780] if (TRUE) { 1588s [00:53:08.780] ...future.stdout <- base::rawConnection(base::raw(0L), 1588s [00:53:08.780] open = "w") 1588s [00:53:08.780] } 1588s [00:53:08.780] else { 1588s [00:53:08.780] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1588s [00:53:08.780] windows = "NUL", "/dev/null"), open = "w") 1588s [00:53:08.780] } 1588s [00:53:08.780] base::sink(...future.stdout, type = "output", split = FALSE) 1588s [00:53:08.780] base::on.exit(if (!base::is.null(...future.stdout)) { 1588s [00:53:08.780] base::sink(type = "output", split = FALSE) 1588s [00:53:08.780] base::close(...future.stdout) 1588s [00:53:08.780] }, add = TRUE) 1588s [00:53:08.780] } 1588s [00:53:08.780] ...future.frame <- base::sys.nframe() 1588s [00:53:08.780] ...future.conditions <- base::list() 1588s [00:53:08.780] ...future.rng <- base::globalenv()$.Random.seed 1588s [00:53:08.780] if (FALSE) { 1588s [00:53:08.780] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1588s [00:53:08.780] "...future.value", "...future.globalenv.names", ".Random.seed") 1588s [00:53:08.780] } 1588s [00:53:08.780] ...future.result <- base::tryCatch({ 1588s [00:53:08.780] base::withCallingHandlers({ 1588s [00:53:08.780] ...future.value <- base::withVisible(base::local({ 1588s [00:53:08.780] do.call(function(...) { 1588s [00:53:08.780] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1588s [00:53:08.780] if (!identical(...future.globals.maxSize.org, 1588s [00:53:08.780] ...future.globals.maxSize)) { 1588s [00:53:08.780] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1588s [00:53:08.780] on.exit(options(oopts), add = TRUE) 1588s [00:53:08.780] } 1588s [00:53:08.780] { 1588s [00:53:08.780] lapply(seq_along(...future.elements_ii), 1588s [00:53:08.780] FUN = function(jj) { 1588s [00:53:08.780] ...future.X_jj <- ...future.elements_ii[[jj]] 1588s [00:53:08.780] ...future.FUN(...future.X_jj, ...) 1588s [00:53:08.780] }) 1588s [00:53:08.780] } 1588s [00:53:08.780] }, args = future.call.arguments) 1588s [00:53:08.780] })) 1588s [00:53:08.780] future::FutureResult(value = ...future.value$value, 1588s [00:53:08.780] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1588s [00:53:08.780] ...future.rng), globalenv = if (FALSE) 1588s [00:53:08.780] list(added = base::setdiff(base::names(base::.GlobalEnv), 1588s [00:53:08.780] ...future.globalenv.names)) 1588s [00:53:08.780] else NULL, started = ...future.startTime, version = "1.8") 1588s [00:53:08.780] }, condition = base::local({ 1588s [00:53:08.780] c <- base::c 1588s [00:53:08.780] inherits <- base::inherits 1588s [00:53:08.780] invokeRestart <- base::invokeRestart 1588s [00:53:08.780] length <- base::length 1588s [00:53:08.780] list <- base::list 1588s [00:53:08.780] seq.int <- base::seq.int 1588s [00:53:08.780] signalCondition <- base::signalCondition 1588s [00:53:08.780] sys.calls <- base::sys.calls 1588s [00:53:08.780] `[[` <- base::`[[` 1588s [00:53:08.780] `+` <- base::`+` 1588s [00:53:08.780] `<<-` <- base::`<<-` 1588s [00:53:08.780] sysCalls <- function(calls = sys.calls(), from = 1L) { 1588s [00:53:08.780] calls[seq.int(from = from + 12L, to = length(calls) - 1588s [00:53:08.780] 3L)] 1588s [00:53:08.780] } 1588s [00:53:08.780] function(cond) { 1588s [00:53:08.780] is_error <- inherits(cond, "error") 1588s [00:53:08.780] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1588s [00:53:08.780] NULL) 1588s [00:53:08.780] if (is_error) { 1588s [00:53:08.780] sessionInformation <- function() { 1588s [00:53:08.780] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1588s [00:53:08.780] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1588s [00:53:08.780] search = base::search(), system = base::Sys.info()) 1588s [00:53:08.780] } 1588s [00:53:08.780] ...future.conditions[[length(...future.conditions) + 1588s [00:53:08.780] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1588s [00:53:08.780] cond$call), session = sessionInformation(), 1588s [00:53:08.780] timestamp = base::Sys.time(), signaled = 0L) 1588s [00:53:08.780] signalCondition(cond) 1588s [00:53:08.780] } 1588s [00:53:08.780] else if (!ignore && TRUE && inherits(cond, c("condition", 1588s [00:53:08.780] "immediateCondition"))) { 1588s [00:53:08.780] signal <- TRUE && inherits(cond, "immediateCondition") 1588s [00:53:08.780] ...future.conditions[[length(...future.conditions) + 1588s [00:53:08.780] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1588s [00:53:08.780] if (TRUE && !signal) { 1588s [00:53:08.780] muffleCondition <- function (cond, pattern = "^muffle") 1588s [00:53:08.780] { 1588s [00:53:08.780] inherits <- base::inherits 1588s [00:53:08.780] invokeRestart <- base::invokeRestart 1588s [00:53:08.780] is.null <- base::is.null 1588s [00:53:08.780] muffled <- FALSE 1588s [00:53:08.780] if (inherits(cond, "message")) { 1588s [00:53:08.780] muffled <- grepl(pattern, "muffleMessage") 1588s [00:53:08.780] if (muffled) 1588s [00:53:08.780] invokeRestart("muffleMessage") 1588s [00:53:08.780] } 1588s [00:53:08.780] else if (inherits(cond, "warning")) { 1588s [00:53:08.780] muffled <- grepl(pattern, "muffleWarning") 1588s [00:53:08.780] if (muffled) 1588s [00:53:08.780] invokeRestart("muffleWarning") 1588s [00:53:08.780] } 1588s [00:53:08.780] else if (inherits(cond, "condition")) { 1588s [00:53:08.780] if (!is.null(pattern)) { 1588s [00:53:08.780] computeRestarts <- base::computeRestarts 1588s [00:53:08.780] grepl <- base::grepl 1588s [00:53:08.780] restarts <- computeRestarts(cond) 1588s [00:53:08.780] for (restart in restarts) { 1588s [00:53:08.780] name <- restart$name 1588s [00:53:08.780] if (is.null(name)) 1588s [00:53:08.780] next 1588s [00:53:08.780] if (!grepl(pattern, name)) 1588s [00:53:08.780] next 1588s [00:53:08.780] invokeRestart(restart) 1588s [00:53:08.780] muffled <- TRUE 1588s [00:53:08.780] break 1588s [00:53:08.780] } 1588s [00:53:08.780] } 1588s [00:53:08.780] } 1588s [00:53:08.780] invisible(muffled) 1588s [00:53:08.780] } 1588s [00:53:08.780] muffleCondition(cond, pattern = "^muffle") 1588s [00:53:08.780] } 1588s [00:53:08.780] } 1588s [00:53:08.780] else { 1588s [00:53:08.780] if (TRUE) { 1588s [00:53:08.780] muffleCondition <- function (cond, pattern = "^muffle") 1588s [00:53:08.780] { 1588s [00:53:08.780] inherits <- base::inherits 1588s [00:53:08.780] invokeRestart <- base::invokeRestart 1588s [00:53:08.780] is.null <- base::is.null 1588s [00:53:08.780] muffled <- FALSE 1588s [00:53:08.780] if (inherits(cond, "message")) { 1588s [00:53:08.780] muffled <- grepl(pattern, "muffleMessage") 1588s [00:53:08.780] if (muffled) 1588s [00:53:08.780] invokeRestart("muffleMessage") 1588s [00:53:08.780] } 1588s [00:53:08.780] else if (inherits(cond, "warning")) { 1588s [00:53:08.780] muffled <- grepl(pattern, "muffleWarning") 1588s [00:53:08.780] if (muffled) 1588s [00:53:08.780] invokeRestart("muffleWarning") 1588s [00:53:08.780] } 1588s [00:53:08.780] else if (inherits(cond, "condition")) { 1588s [00:53:08.780] if (!is.null(pattern)) { 1588s [00:53:08.780] computeRestarts <- base::computeRestarts 1588s [00:53:08.780] grepl <- base::grepl 1588s [00:53:08.780] restarts <- computeRestarts(cond) 1588s [00:53:08.780] for (restart in restarts) { 1588s [00:53:08.780] name <- restart$name 1588s [00:53:08.780] if (is.null(name)) 1588s [00:53:08.780] next 1588s [00:53:08.780] if (!grepl(pattern, name)) 1588s [00:53:08.780] next 1588s [00:53:08.780] invokeRestart(restart) 1588s [00:53:08.780] muffled <- TRUE 1588s [00:53:08.780] break 1588s [00:53:08.780] } 1588s [00:53:08.780] } 1588s [00:53:08.780] } 1588s [00:53:08.780] invisible(muffled) 1588s [00:53:08.780] } 1588s [00:53:08.780] muffleCondition(cond, pattern = "^muffle") 1588s [00:53:08.780] } 1588s [00:53:08.780] } 1588s [00:53:08.780] } 1588s [00:53:08.780] })) 1588s [00:53:08.780] }, error = function(ex) { 1588s [00:53:08.780] base::structure(base::list(value = NULL, visible = NULL, 1588s [00:53:08.780] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1588s [00:53:08.780] ...future.rng), started = ...future.startTime, 1588s [00:53:08.780] finished = Sys.time(), session_uuid = NA_character_, 1588s [00:53:08.780] version = "1.8"), class = "FutureResult") 1588s [00:53:08.780] }, finally = { 1588s [00:53:08.780] if (!identical(...future.workdir, getwd())) 1588s [00:53:08.780] setwd(...future.workdir) 1588s [00:53:08.780] { 1588s [00:53:08.780] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1588s [00:53:08.780] ...future.oldOptions$nwarnings <- NULL 1588s [00:53:08.780] } 1588s [00:53:08.780] base::options(...future.oldOptions) 1588s [00:53:08.780] if (.Platform$OS.type == "windows") { 1588s [00:53:08.780] old_names <- names(...future.oldEnvVars) 1588s [00:53:08.780] envs <- base::Sys.getenv() 1588s [00:53:08.780] names <- names(envs) 1588s [00:53:08.780] common <- intersect(names, old_names) 1588s [00:53:08.780] added <- setdiff(names, old_names) 1588s [00:53:08.780] removed <- setdiff(old_names, names) 1588s [00:53:08.780] changed <- common[...future.oldEnvVars[common] != 1588s [00:53:08.780] envs[common]] 1588s [00:53:08.780] NAMES <- toupper(changed) 1588s [00:53:08.780] args <- list() 1588s [00:53:08.780] for (kk in seq_along(NAMES)) { 1588s [00:53:08.780] name <- changed[[kk]] 1588s [00:53:08.780] NAME <- NAMES[[kk]] 1588s [00:53:08.780] if (name != NAME && is.element(NAME, old_names)) 1588s [00:53:08.780] next 1588s [00:53:08.780] args[[name]] <- ...future.oldEnvVars[[name]] 1588s [00:53:08.780] } 1588s [00:53:08.780] NAMES <- toupper(added) 1588s [00:53:08.780] for (kk in seq_along(NAMES)) { 1588s [00:53:08.780] name <- added[[kk]] 1588s [00:53:08.780] NAME <- NAMES[[kk]] 1588s [00:53:08.780] if (name != NAME && is.element(NAME, old_names)) 1588s [00:53:08.780] next 1588s [00:53:08.780] args[[name]] <- "" 1588s [00:53:08.780] } 1588s [00:53:08.780] NAMES <- toupper(removed) 1588s [00:53:08.780] for (kk in seq_along(NAMES)) { 1588s [00:53:08.780] name <- removed[[kk]] 1588s [00:53:08.780] NAME <- NAMES[[kk]] 1588s [00:53:08.780] if (name != NAME && is.element(NAME, old_names)) 1588s [00:53:08.780] next 1588s [00:53:08.780] args[[name]] <- ...future.oldEnvVars[[name]] 1588s [00:53:08.780] } 1588s [00:53:08.780] if (length(args) > 0) 1588s [00:53:08.780] base::do.call(base::Sys.setenv, args = args) 1588s [00:53:08.780] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1588s [00:53:08.780] } 1588s [00:53:08.780] else { 1588s [00:53:08.780] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1588s [00:53:08.780] } 1588s [00:53:08.780] { 1588s [00:53:08.780] if (base::length(...future.futureOptionsAdded) > 1588s [00:53:08.780] 0L) { 1588s [00:53:08.780] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1588s [00:53:08.780] base::names(opts) <- ...future.futureOptionsAdded 1588s [00:53:08.780] base::options(opts) 1588s [00:53:08.780] } 1588s [00:53:08.780] { 1588s [00:53:08.780] { 1588s [00:53:08.780] NULL 1588s [00:53:08.780] RNGkind("Mersenne-Twister") 1588s [00:53:08.780] base::rm(list = ".Random.seed", envir = base::globalenv(), 1588s [00:53:08.780] inherits = FALSE) 1588s [00:53:08.780] } 1588s [00:53:08.780] options(future.plan = NULL) 1588s [00:53:08.780] if (is.na(NA_character_)) 1588s [00:53:08.780] Sys.unsetenv("R_FUTURE_PLAN") 1588s [00:53:08.780] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1588s [00:53:08.780] future::plan(list(function (..., workers = availableCores(), 1588s [00:53:08.780] lazy = FALSE, rscript_libs = .libPaths(), 1588s [00:53:08.780] envir = parent.frame()) 1588s [00:53:08.780] { 1588s [00:53:08.780] if (is.function(workers)) 1588s [00:53:08.780] workers <- workers() 1588s [00:53:08.780] workers <- structure(as.integer(workers), 1588s [00:53:08.780] class = class(workers)) 1588s [00:53:08.780] stop_if_not(length(workers) == 1, is.finite(workers), 1588s [00:53:08.780] workers >= 1) 1588s [00:53:08.780] if (workers == 1L && !inherits(workers, "AsIs")) { 1588s [00:53:08.780] return(sequential(..., lazy = TRUE, envir = envir)) 1588s [00:53:08.780] } 1588s [00:53:08.780] future <- MultisessionFuture(..., workers = workers, 1588s [00:53:08.780] lazy = lazy, rscript_libs = rscript_libs, 1588s [00:53:08.780] envir = envir) 1588s [00:53:08.780] if (!future$lazy) 1588s [00:53:08.780] future <- run(future) 1588s [00:53:08.780] invisible(future) 1588s [00:53:08.780] }), .cleanup = FALSE, .init = FALSE) 1588s [00:53:08.780] } 1588s [00:53:08.780] } 1588s [00:53:08.780] } 1588s [00:53:08.780] }) 1588s [00:53:08.780] if (TRUE) { 1588s [00:53:08.780] base::sink(type = "output", split = FALSE) 1588s [00:53:08.780] if (TRUE) { 1588s [00:53:08.780] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1588s [00:53:08.780] } 1588s [00:53:08.780] else { 1588s [00:53:08.780] ...future.result["stdout"] <- base::list(NULL) 1588s [00:53:08.780] } 1588s [00:53:08.780] base::close(...future.stdout) 1588s [00:53:08.780] ...future.stdout <- NULL 1588s [00:53:08.780] } 1588s [00:53:08.780] ...future.result$conditions <- ...future.conditions 1588s [00:53:08.780] ...future.result$finished <- base::Sys.time() 1588s [00:53:08.780] ...future.result 1588s [00:53:08.780] } 1588s [00:53:08.786] assign_globals() ... 1588s [00:53:08.786] List of 11 1588s [00:53:08.786] $ ...future.FUN :function (x, ...) 1588s [00:53:08.786] $ x_FUN :function (x) 1588s [00:53:08.786] $ times : int 1 1588s [00:53:08.786] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1588s [00:53:08.786] $ stop_if_not :function (...) 1588s [00:53:08.786] $ dim : NULL 1588s [00:53:08.786] $ valid_types : chr "character" 1588s [00:53:08.786] $ future.call.arguments : list() 1588s [00:53:08.786] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1588s [00:53:08.786] $ ...future.elements_ii :List of 2 1588s [00:53:08.786] ..$ x: int [1:10] 1 2 3 4 5 6 7 8 9 10 1588s [00:53:08.786] ..$ y: chr [1:10] "a" "b" "c" "d" ... 1588s [00:53:08.786] $ ...future.seeds_ii : NULL 1588s [00:53:08.786] $ ...future.globals.maxSize: NULL 1588s [00:53:08.786] - attr(*, "where")=List of 11 1588s [00:53:08.786] ..$ ...future.FUN : 1588s [00:53:08.786] ..$ x_FUN : 1588s [00:53:08.786] ..$ times : 1588s [00:53:08.786] ..$ stopf : 1588s [00:53:08.786] ..$ stop_if_not : 1588s [00:53:08.786] ..$ dim : 1588s [00:53:08.786] ..$ valid_types : 1588s [00:53:08.786] ..$ future.call.arguments : 1588s [00:53:08.786] ..$ ...future.elements_ii : 1588s [00:53:08.786] ..$ ...future.seeds_ii : 1588s [00:53:08.786] ..$ ...future.globals.maxSize: 1588s [00:53:08.786] - attr(*, "resolved")= logi FALSE 1588s [00:53:08.786] - attr(*, "total_size")= num 94208 1588s [00:53:08.786] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1588s [00:53:08.786] - attr(*, "already-done")= logi TRUE 1588s [00:53:08.796] - copied ‘...future.FUN’ to environment 1588s [00:53:08.796] - copied ‘x_FUN’ to environment 1588s [00:53:08.796] - copied ‘times’ to environment 1588s [00:53:08.796] - copied ‘stopf’ to environment 1588s [00:53:08.796] - copied ‘stop_if_not’ to environment 1588s [00:53:08.797] - copied ‘dim’ to environment 1588s [00:53:08.797] - copied ‘valid_types’ to environment 1588s [00:53:08.797] - copied ‘future.call.arguments’ to environment 1588s [00:53:08.797] - copied ‘...future.elements_ii’ to environment 1588s [00:53:08.797] - copied ‘...future.seeds_ii’ to environment 1588s [00:53:08.798] - copied ‘...future.globals.maxSize’ to environment 1588s [00:53:08.798] assign_globals() ... done 1588s [00:53:08.798] plan(): Setting new future strategy stack: 1588s [00:53:08.799] List of future strategies: 1588s [00:53:08.799] 1. sequential: 1588s [00:53:08.799] - args: function (..., envir = parent.frame()) 1588s [00:53:08.799] - tweaked: FALSE 1588s [00:53:08.799] - call: NULL 1588s [00:53:08.799] plan(): nbrOfWorkers() = 1 1588s [00:53:08.800] plan(): Setting new future strategy stack: 1588s [00:53:08.801] List of future strategies: 1588s [00:53:08.801] 1. multisession: 1588s [00:53:08.801] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1588s [00:53:08.801] - tweaked: FALSE 1588s [00:53:08.801] - call: plan(strategy) 1588s [00:53:08.804] plan(): nbrOfWorkers() = 1 1588s [00:53:08.805] SequentialFuture started (and completed) 1588s [00:53:08.805] - Launch lazy future ... done 1588s [00:53:08.805] run() for ‘SequentialFuture’ ... done 1588s [00:53:08.806] Created future: 1588s [00:53:08.806] SequentialFuture: 1588s [00:53:08.806] Label: ‘future_vapply-1’ 1588s [00:53:08.806] Expression: 1588s [00:53:08.806] { 1588s [00:53:08.806] do.call(function(...) { 1588s [00:53:08.806] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1588s [00:53:08.806] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1588s [00:53:08.806] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1588s [00:53:08.806] on.exit(options(oopts), add = TRUE) 1588s [00:53:08.806] } 1588s [00:53:08.806] { 1588s [00:53:08.806] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1588s [00:53:08.806] ...future.X_jj <- ...future.elements_ii[[jj]] 1588s [00:53:08.806] ...future.FUN(...future.X_jj, ...) 1588s [00:53:08.806] }) 1588s [00:53:08.806] } 1588s [00:53:08.806] }, args = future.call.arguments) 1588s [00:53:08.806] } 1588s [00:53:08.806] Lazy evaluation: FALSE 1588s [00:53:08.806] Asynchronous evaluation: FALSE 1588s [00:53:08.806] Local evaluation: TRUE 1588s [00:53:08.806] Environment: R_GlobalEnv 1588s [00:53:08.806] Capture standard output: TRUE 1588s [00:53:08.806] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1588s [00:53:08.806] Globals: 11 objects totaling 92.81 KiB (function ‘...future.FUN’ of 21.22 KiB, function ‘x_FUN’ of 56 bytes, integer ‘times’ of 56 bytes, function ‘stopf’ of 26.43 KiB, function ‘stop_if_not’ of 44.12 KiB, ...) 1588s [00:53:08.806] Packages: 1 packages (‘future.apply’) 1588s [00:53:08.806] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1588s [00:53:08.806] Resolved: TRUE 1588s [00:53:08.806] Value: 232 bytes of class ‘list’ 1588s [00:53:08.806] Early signaling: FALSE 1588s [00:53:08.806] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1588s [00:53:08.806] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1588s [00:53:08.807] Chunk #1 of 1 ... DONE 1588s [00:53:08.807] Launching 1 futures (chunks) ... DONE 1588s [00:53:08.807] Resolving 1 futures (chunks) ... 1588s [00:53:08.808] resolve() on list ... 1588s [00:53:08.808] recursive: 0 1588s [00:53:08.808] length: 1 1588s [00:53:08.808] 1588s [00:53:08.808] resolved() for ‘SequentialFuture’ ... 1588s [00:53:08.808] - state: ‘finished’ 1588s [00:53:08.808] - run: TRUE 1588s [00:53:08.808] - result: ‘FutureResult’ 1588s [00:53:08.808] resolved() for ‘SequentialFuture’ ... done 1588s [00:53:08.809] Future #1 1588s [00:53:08.809] signalConditionsASAP(SequentialFuture, pos=1) ... 1588s [00:53:08.809] - nx: 1 1588s [00:53:08.809] - relay: TRUE 1588s [00:53:08.809] - stdout: TRUE 1588s [00:53:08.809] - signal: TRUE 1588s [00:53:08.809] - resignal: FALSE 1588s [00:53:08.809] - force: TRUE 1588s [00:53:08.809] - relayed: [n=1] FALSE 1588s [00:53:08.809] - queued futures: [n=1] FALSE 1588s [00:53:08.810] - until=1 1588s [00:53:08.810] - relaying element #1 1588s [00:53:08.810] - relayed: [n=1] TRUE 1588s [00:53:08.810] - queued futures: [n=1] TRUE 1588s [00:53:08.811] signalConditionsASAP(SequentialFuture, pos=1) ... done 1588s [00:53:08.811] length: 0 (resolved future 1) 1588s [00:53:08.811] Relaying remaining futures 1588s [00:53:08.811] signalConditionsASAP(NULL, pos=0) ... 1588s [00:53:08.811] - nx: 1 1588s [00:53:08.812] - relay: TRUE 1588s [00:53:08.812] - stdout: TRUE 1588s [00:53:08.812] - signal: TRUE 1588s [00:53:08.812] - resignal: FALSE 1588s [00:53:08.813] - force: TRUE 1588s [00:53:08.813] - relayed: [n=1] TRUE 1588s [00:53:08.813] - queued futures: [n=1] TRUE 1588s - flush all 1588s [00:53:08.813] - relayed: [n=1] TRUE 1588s [00:53:08.816] - queued futures: [n=1] TRUE 1588s [00:53:08.817] signalConditionsASAP(NULL, pos=0) ... done 1588s [00:53:08.817] resolve() on list ... DONE 1588s [00:53:08.817] - Number of value chunks collected: 1 1588s [00:53:08.817] Resolving 1 futures (chunks) ... DONE 1588s [00:53:08.817] Reducing values from 1 chunks ... 1588s [00:53:08.817] - Number of values collected after concatenation: 2 1588s [00:53:08.817] - Number of values expected: 2 1588s [00:53:08.818] Reducing values from 1 chunks ... DONE 1588s [00:53:08.818] future_lapply() ... DONE 1588s Named chr [1:2] "integer" "character" 1588s - attr(*, "names")= chr [1:2] "x" "y" 1588s num[0 , 1:10] 1588s [00:53:08.819] future_lapply() ... 1588s [00:53:08.825] Number of chunks: 1 1588s [00:53:08.825] getGlobalsAndPackagesXApply() ... 1588s [00:53:08.825] - future.globals: TRUE 1588s [00:53:08.825] getGlobalsAndPackages() ... 1588s [00:53:08.825] Searching for globals... 1588s [00:53:08.830] - globals found: [17] ‘FUN’, ‘{’, ‘<-’, ‘x_FUN’, ‘if’, ‘!=’, ‘length’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘all’, ‘==’, ‘dim’, ‘%in%’, ‘typeof’, ‘valid_types’, ‘double’ 1588s [00:53:08.830] Searching for globals ... DONE 1588s [00:53:08.830] Resolving globals: FALSE 1588s [00:53:08.832] The total size of the 7 globals is 93.23 KiB (95472 bytes) 1588s [00:53:08.832] The total size of the 7 globals exported for future expression (‘FUN()’) is 93.23 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘stop_if_not’ (44.12 KiB of class ‘function’), ‘stopf’ (26.43 KiB of class ‘function’) and ‘FUN’ (21.22 KiB of class ‘function’) 1588s [00:53:08.833] - globals: [7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1588s [00:53:08.833] - packages: [1] ‘future.apply’ 1588s [00:53:08.833] getGlobalsAndPackages() ... DONE 1588s [00:53:08.833] - globals found/used: [n=7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1588s [00:53:08.833] - needed namespaces: [n=1] ‘future.apply’ 1588s [00:53:08.833] Finding globals ... DONE 1588s [00:53:08.833] - use_args: TRUE 1588s [00:53:08.834] - Getting '...' globals ... 1588s [00:53:08.834] resolve() on list ... 1588s [00:53:08.834] recursive: 0 1588s [00:53:08.834] length: 1 1588s [00:53:08.834] elements: ‘...’ 1588s [00:53:08.834] length: 0 (resolved future 1) 1588s [00:53:08.835] resolve() on list ... DONE 1588s [00:53:08.835] - '...' content: [n=0] 1588s [00:53:08.835] List of 1 1588s [00:53:08.835] $ ...: list() 1588s [00:53:08.835] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1588s [00:53:08.835] - attr(*, "where")=List of 1 1588s [00:53:08.835] ..$ ...: 1588s [00:53:08.835] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1588s [00:53:08.835] - attr(*, "resolved")= logi TRUE 1588s [00:53:08.835] - attr(*, "total_size")= num NA 1588s [00:53:08.838] - Getting '...' globals ... DONE 1588s [00:53:08.838] Globals to be used in all futures (chunks): [n=8] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’ 1588s [00:53:08.838] List of 8 1588s [00:53:08.838] $ ...future.FUN:function (x, ...) 1588s [00:53:08.838] $ x_FUN :function (x) 1588s [00:53:08.838] $ times : int 0 1588s [00:53:08.838] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1588s [00:53:08.838] $ stop_if_not :function (...) 1588s [00:53:08.838] $ dim : NULL 1588s [00:53:08.838] $ valid_types : chr [1:3] "logical" "integer" "double" 1588s [00:53:08.838] $ ... : list() 1588s [00:53:08.838] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1588s [00:53:08.838] - attr(*, "where")=List of 8 1588s [00:53:08.838] ..$ ...future.FUN: 1588s [00:53:08.838] ..$ x_FUN : 1588s [00:53:08.838] ..$ times : 1588s [00:53:08.838] ..$ stopf : 1588s [00:53:08.838] ..$ stop_if_not : 1588s [00:53:08.838] ..$ dim : 1588s [00:53:08.838] ..$ valid_types : 1588s [00:53:08.838] ..$ ... : 1588s [00:53:08.838] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1588s [00:53:08.838] - attr(*, "resolved")= logi FALSE 1588s [00:53:08.838] - attr(*, "total_size")= num 95472 1588s [00:53:08.847] Packages to be attached in all futures: [n=1] ‘future.apply’ 1588s [00:53:08.848] getGlobalsAndPackagesXApply() ... DONE 1588s [00:53:08.848] Number of futures (= number of chunks): 1 1588s [00:53:08.848] Launching 1 futures (chunks) ... 1588s [00:53:08.848] Chunk #1 of 1 ... 1588s [00:53:08.848] - Finding globals in 'X' for chunk #1 ... 1588s [00:53:08.848] getGlobalsAndPackages() ... 1588s [00:53:08.849] Searching for globals... 1588s [00:53:08.849] 1588s [00:53:08.849] Searching for globals ... DONE 1588s [00:53:08.849] - globals: [0] 1588s [00:53:08.849] getGlobalsAndPackages() ... DONE 1588s [00:53:08.850] + additional globals found: [n=0] 1588s [00:53:08.850] + additional namespaces needed: [n=0] 1588s [00:53:08.850] - Finding globals in 'X' for chunk #1 ... DONE 1588s [00:53:08.850] - seeds: 1588s [00:53:08.850] - All globals exported: [n=11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1588s [00:53:08.850] getGlobalsAndPackages() ... 1588s [00:53:08.851] - globals passed as-is: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1588s [00:53:08.851] Resolving globals: FALSE 1588s [00:53:08.851] Tweak future expression to call with '...' arguments ... 1588s [00:53:08.851] { 1588s [00:53:08.851] do.call(function(...) { 1588s [00:53:08.851] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1588s [00:53:08.851] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1588s [00:53:08.851] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1588s [00:53:08.851] on.exit(options(oopts), add = TRUE) 1588s [00:53:08.851] } 1588s [00:53:08.851] { 1588s [00:53:08.851] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1588s [00:53:08.851] ...future.X_jj <- ...future.elements_ii[[jj]] 1588s [00:53:08.851] ...future.FUN(...future.X_jj, ...) 1588s [00:53:08.851] }) 1588s [00:53:08.851] } 1588s [00:53:08.851] }, args = future.call.arguments) 1588s [00:53:08.851] } 1588s [00:53:08.852] Tweak future expression to call with '...' arguments ... DONE 1588s [00:53:08.852] - globals: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1588s [00:53:08.853] - packages: [1] ‘future.apply’ 1588s [00:53:08.853] getGlobalsAndPackages() ... DONE 1588s [00:53:08.853] run() for ‘Future’ ... 1588s [00:53:08.853] - state: ‘created’ 1588s [00:53:08.853] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1588s [00:53:08.857] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1588s [00:53:08.857] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1588s [00:53:08.857] - Field: ‘label’ 1588s [00:53:08.857] - Field: ‘local’ 1588s [00:53:08.857] - Field: ‘owner’ 1588s [00:53:08.858] - Field: ‘envir’ 1588s [00:53:08.858] - Field: ‘packages’ 1588s [00:53:08.858] - Field: ‘gc’ 1588s [00:53:08.858] - Field: ‘conditions’ 1588s [00:53:08.858] - Field: ‘expr’ 1588s [00:53:08.858] - Field: ‘uuid’ 1588s [00:53:08.858] - Field: ‘seed’ 1588s [00:53:08.859] - Field: ‘version’ 1588s [00:53:08.859] - Field: ‘result’ 1588s [00:53:08.859] - Field: ‘asynchronous’ 1588s [00:53:08.859] - Field: ‘calls’ 1588s [00:53:08.859] - Field: ‘globals’ 1588s [00:53:08.859] - Field: ‘stdout’ 1588s [00:53:08.859] - Field: ‘earlySignal’ 1588s [00:53:08.860] - Field: ‘lazy’ 1588s [00:53:08.860] - Field: ‘state’ 1588s [00:53:08.860] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1588s [00:53:08.860] - Launch lazy future ... 1588s [00:53:08.860] Packages needed by the future expression (n = 1): ‘future.apply’ 1588s [00:53:08.860] Packages needed by future strategies (n = 0): 1588s [00:53:08.861] { 1588s [00:53:08.861] { 1588s [00:53:08.861] { 1588s [00:53:08.861] ...future.startTime <- base::Sys.time() 1588s [00:53:08.861] { 1588s [00:53:08.861] { 1588s [00:53:08.861] { 1588s [00:53:08.861] { 1588s [00:53:08.861] base::local({ 1588s [00:53:08.861] has_future <- base::requireNamespace("future", 1588s [00:53:08.861] quietly = TRUE) 1588s [00:53:08.861] if (has_future) { 1588s [00:53:08.861] ns <- base::getNamespace("future") 1588s [00:53:08.861] version <- ns[[".package"]][["version"]] 1588s [00:53:08.861] if (is.null(version)) 1588s [00:53:08.861] version <- utils::packageVersion("future") 1588s [00:53:08.861] } 1588s [00:53:08.861] else { 1588s [00:53:08.861] version <- NULL 1588s [00:53:08.861] } 1588s [00:53:08.861] if (!has_future || version < "1.8.0") { 1588s [00:53:08.861] info <- base::c(r_version = base::gsub("R version ", 1588s [00:53:08.861] "", base::R.version$version.string), 1588s [00:53:08.861] platform = base::sprintf("%s (%s-bit)", 1588s [00:53:08.861] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1588s [00:53:08.861] os = base::paste(base::Sys.info()[base::c("sysname", 1588s [00:53:08.861] "release", "version")], collapse = " "), 1588s [00:53:08.861] hostname = base::Sys.info()[["nodename"]]) 1588s [00:53:08.861] info <- base::sprintf("%s: %s", base::names(info), 1588s [00:53:08.861] info) 1588s [00:53:08.861] info <- base::paste(info, collapse = "; ") 1588s [00:53:08.861] if (!has_future) { 1588s [00:53:08.861] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1588s [00:53:08.861] info) 1588s [00:53:08.861] } 1588s [00:53:08.861] else { 1588s [00:53:08.861] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1588s [00:53:08.861] info, version) 1588s [00:53:08.861] } 1588s [00:53:08.861] base::stop(msg) 1588s [00:53:08.861] } 1588s [00:53:08.861] }) 1588s [00:53:08.861] } 1588s [00:53:08.861] base::local({ 1588s [00:53:08.861] for (pkg in "future.apply") { 1588s [00:53:08.861] base::loadNamespace(pkg) 1588s [00:53:08.861] base::library(pkg, character.only = TRUE) 1588s [00:53:08.861] } 1588s [00:53:08.861] }) 1588s [00:53:08.861] } 1588s [00:53:08.861] options(future.plan = NULL) 1588s [00:53:08.861] Sys.unsetenv("R_FUTURE_PLAN") 1588s [00:53:08.861] future::plan("default", .cleanup = FALSE, .init = FALSE) 1588s [00:53:08.861] } 1588s [00:53:08.861] ...future.workdir <- getwd() 1588s [00:53:08.861] } 1588s [00:53:08.861] ...future.oldOptions <- base::as.list(base::.Options) 1588s [00:53:08.861] ...future.oldEnvVars <- base::Sys.getenv() 1588s [00:53:08.861] } 1588s [00:53:08.861] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1588s [00:53:08.861] future.globals.maxSize = NULL, future.globals.method = NULL, 1588s [00:53:08.861] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1588s [00:53:08.861] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1588s [00:53:08.861] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1588s [00:53:08.861] future.stdout.windows.reencode = NULL, width = 80L) 1588s [00:53:08.861] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1588s [00:53:08.861] base::names(...future.oldOptions)) 1588s [00:53:08.861] } 1588s [00:53:08.861] if (FALSE) { 1588s [00:53:08.861] } 1588s [00:53:08.861] else { 1588s [00:53:08.861] if (TRUE) { 1588s [00:53:08.861] ...future.stdout <- base::rawConnection(base::raw(0L), 1588s [00:53:08.861] open = "w") 1588s [00:53:08.861] } 1588s [00:53:08.861] else { 1588s [00:53:08.861] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1588s [00:53:08.861] windows = "NUL", "/dev/null"), open = "w") 1588s [00:53:08.861] } 1588s [00:53:08.861] base::sink(...future.stdout, type = "output", split = FALSE) 1588s [00:53:08.861] base::on.exit(if (!base::is.null(...future.stdout)) { 1588s [00:53:08.861] base::sink(type = "output", split = FALSE) 1588s [00:53:08.861] base::close(...future.stdout) 1588s [00:53:08.861] }, add = TRUE) 1588s [00:53:08.861] } 1588s [00:53:08.861] ...future.frame <- base::sys.nframe() 1588s [00:53:08.861] ...future.conditions <- base::list() 1588s [00:53:08.861] ...future.rng <- base::globalenv()$.Random.seed 1588s [00:53:08.861] if (FALSE) { 1588s [00:53:08.861] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1588s [00:53:08.861] "...future.value", "...future.globalenv.names", ".Random.seed") 1588s [00:53:08.861] } 1588s [00:53:08.861] ...future.result <- base::tryCatch({ 1588s [00:53:08.861] base::withCallingHandlers({ 1588s [00:53:08.861] ...future.value <- base::withVisible(base::local({ 1588s [00:53:08.861] do.call(function(...) { 1588s [00:53:08.861] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1588s [00:53:08.861] if (!identical(...future.globals.maxSize.org, 1588s [00:53:08.861] ...future.globals.maxSize)) { 1588s [00:53:08.861] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1588s [00:53:08.861] on.exit(options(oopts), add = TRUE) 1588s [00:53:08.861] } 1588s [00:53:08.861] { 1588s [00:53:08.861] lapply(seq_along(...future.elements_ii), 1588s [00:53:08.861] FUN = function(jj) { 1588s [00:53:08.861] ...future.X_jj <- ...future.elements_ii[[jj]] 1588s [00:53:08.861] ...future.FUN(...future.X_jj, ...) 1588s [00:53:08.861] }) 1588s [00:53:08.861] } 1588s [00:53:08.861] }, args = future.call.arguments) 1588s [00:53:08.861] })) 1588s [00:53:08.861] future::FutureResult(value = ...future.value$value, 1588s [00:53:08.861] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1588s [00:53:08.861] ...future.rng), globalenv = if (FALSE) 1588s [00:53:08.861] list(added = base::setdiff(base::names(base::.GlobalEnv), 1588s [00:53:08.861] ...future.globalenv.names)) 1588s [00:53:08.861] else NULL, started = ...future.startTime, version = "1.8") 1588s [00:53:08.861] }, condition = base::local({ 1588s [00:53:08.861] c <- base::c 1588s [00:53:08.861] inherits <- base::inherits 1588s [00:53:08.861] invokeRestart <- base::invokeRestart 1588s [00:53:08.861] length <- base::length 1588s [00:53:08.861] list <- base::list 1588s [00:53:08.861] seq.int <- base::seq.int 1588s [00:53:08.861] signalCondition <- base::signalCondition 1588s [00:53:08.861] sys.calls <- base::sys.calls 1588s [00:53:08.861] `[[` <- base::`[[` 1588s [00:53:08.861] `+` <- base::`+` 1588s [00:53:08.861] `<<-` <- base::`<<-` 1588s [00:53:08.861] sysCalls <- function(calls = sys.calls(), from = 1L) { 1588s [00:53:08.861] calls[seq.int(from = from + 12L, to = length(calls) - 1588s [00:53:08.861] 3L)] 1588s [00:53:08.861] } 1588s [00:53:08.861] function(cond) { 1588s [00:53:08.861] is_error <- inherits(cond, "error") 1588s [00:53:08.861] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1588s [00:53:08.861] NULL) 1588s [00:53:08.861] if (is_error) { 1588s [00:53:08.861] sessionInformation <- function() { 1588s [00:53:08.861] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1588s [00:53:08.861] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1588s [00:53:08.861] search = base::search(), system = base::Sys.info()) 1588s [00:53:08.861] } 1588s [00:53:08.861] ...future.conditions[[length(...future.conditions) + 1588s [00:53:08.861] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1588s [00:53:08.861] cond$call), session = sessionInformation(), 1588s [00:53:08.861] timestamp = base::Sys.time(), signaled = 0L) 1588s [00:53:08.861] signalCondition(cond) 1588s [00:53:08.861] } 1588s [00:53:08.861] else if (!ignore && TRUE && inherits(cond, c("condition", 1588s [00:53:08.861] "immediateCondition"))) { 1588s [00:53:08.861] signal <- TRUE && inherits(cond, "immediateCondition") 1588s [00:53:08.861] ...future.conditions[[length(...future.conditions) + 1588s [00:53:08.861] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1588s [00:53:08.861] if (TRUE && !signal) { 1588s [00:53:08.861] muffleCondition <- function (cond, pattern = "^muffle") 1588s [00:53:08.861] { 1588s [00:53:08.861] inherits <- base::inherits 1588s [00:53:08.861] invokeRestart <- base::invokeRestart 1588s [00:53:08.861] is.null <- base::is.null 1588s [00:53:08.861] muffled <- FALSE 1588s [00:53:08.861] if (inherits(cond, "message")) { 1588s [00:53:08.861] muffled <- grepl(pattern, "muffleMessage") 1588s [00:53:08.861] if (muffled) 1588s [00:53:08.861] invokeRestart("muffleMessage") 1588s [00:53:08.861] } 1588s [00:53:08.861] else if (inherits(cond, "warning")) { 1588s [00:53:08.861] muffled <- grepl(pattern, "muffleWarning") 1588s [00:53:08.861] if (muffled) 1588s [00:53:08.861] invokeRestart("muffleWarning") 1588s [00:53:08.861] } 1588s [00:53:08.861] else if (inherits(cond, "condition")) { 1588s [00:53:08.861] if (!is.null(pattern)) { 1588s [00:53:08.861] computeRestarts <- base::computeRestarts 1588s [00:53:08.861] grepl <- base::grepl 1588s [00:53:08.861] restarts <- computeRestarts(cond) 1588s [00:53:08.861] for (restart in restarts) { 1588s [00:53:08.861] name <- restart$name 1588s [00:53:08.861] if (is.null(name)) 1588s [00:53:08.861] next 1588s [00:53:08.861] if (!grepl(pattern, name)) 1588s [00:53:08.861] next 1588s [00:53:08.861] invokeRestart(restart) 1588s [00:53:08.861] muffled <- TRUE 1588s [00:53:08.861] break 1588s [00:53:08.861] } 1588s [00:53:08.861] } 1588s [00:53:08.861] } 1588s [00:53:08.861] invisible(muffled) 1588s [00:53:08.861] } 1588s [00:53:08.861] muffleCondition(cond, pattern = "^muffle") 1588s [00:53:08.861] } 1588s [00:53:08.861] } 1588s [00:53:08.861] else { 1588s [00:53:08.861] if (TRUE) { 1588s [00:53:08.861] muffleCondition <- function (cond, pattern = "^muffle") 1588s [00:53:08.861] { 1588s [00:53:08.861] inherits <- base::inherits 1588s [00:53:08.861] invokeRestart <- base::invokeRestart 1588s [00:53:08.861] is.null <- base::is.null 1588s [00:53:08.861] muffled <- FALSE 1588s [00:53:08.861] if (inherits(cond, "message")) { 1588s [00:53:08.861] muffled <- grepl(pattern, "muffleMessage") 1588s [00:53:08.861] if (muffled) 1588s [00:53:08.861] invokeRestart("muffleMessage") 1588s [00:53:08.861] } 1588s [00:53:08.861] else if (inherits(cond, "warning")) { 1588s [00:53:08.861] muffled <- grepl(pattern, "muffleWarning") 1588s [00:53:08.861] if (muffled) 1588s [00:53:08.861] invokeRestart("muffleWarning") 1588s [00:53:08.861] } 1588s [00:53:08.861] else if (inherits(cond, "condition")) { 1588s [00:53:08.861] if (!is.null(pattern)) { 1588s [00:53:08.861] computeRestarts <- base::computeRestarts 1588s [00:53:08.861] grepl <- base::grepl 1588s [00:53:08.861] restarts <- computeRestarts(cond) 1588s [00:53:08.861] for (restart in restarts) { 1588s [00:53:08.861] name <- restart$name 1588s [00:53:08.861] if (is.null(name)) 1588s [00:53:08.861] next 1588s [00:53:08.861] if (!grepl(pattern, name)) 1588s [00:53:08.861] next 1588s [00:53:08.861] invokeRestart(restart) 1588s [00:53:08.861] muffled <- TRUE 1588s [00:53:08.861] break 1588s [00:53:08.861] } 1588s [00:53:08.861] } 1588s [00:53:08.861] } 1588s [00:53:08.861] invisible(muffled) 1588s [00:53:08.861] } 1588s [00:53:08.861] muffleCondition(cond, pattern = "^muffle") 1588s [00:53:08.861] } 1588s [00:53:08.861] } 1588s [00:53:08.861] } 1588s [00:53:08.861] })) 1588s [00:53:08.861] }, error = function(ex) { 1588s [00:53:08.861] base::structure(base::list(value = NULL, visible = NULL, 1588s [00:53:08.861] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1588s [00:53:08.861] ...future.rng), started = ...future.startTime, 1588s [00:53:08.861] finished = Sys.time(), session_uuid = NA_character_, 1588s [00:53:08.861] version = "1.8"), class = "FutureResult") 1588s [00:53:08.861] }, finally = { 1588s [00:53:08.861] if (!identical(...future.workdir, getwd())) 1588s [00:53:08.861] setwd(...future.workdir) 1588s [00:53:08.861] { 1588s [00:53:08.861] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1588s [00:53:08.861] ...future.oldOptions$nwarnings <- NULL 1588s [00:53:08.861] } 1588s [00:53:08.861] base::options(...future.oldOptions) 1588s [00:53:08.861] if (.Platform$OS.type == "windows") { 1588s [00:53:08.861] old_names <- names(...future.oldEnvVars) 1588s [00:53:08.861] envs <- base::Sys.getenv() 1588s [00:53:08.861] names <- names(envs) 1588s [00:53:08.861] common <- intersect(names, old_names) 1588s [00:53:08.861] added <- setdiff(names, old_names) 1588s [00:53:08.861] removed <- setdiff(old_names, names) 1588s [00:53:08.861] changed <- common[...future.oldEnvVars[common] != 1588s [00:53:08.861] envs[common]] 1588s [00:53:08.861] NAMES <- toupper(changed) 1588s [00:53:08.861] args <- list() 1588s [00:53:08.861] for (kk in seq_along(NAMES)) { 1588s [00:53:08.861] name <- changed[[kk]] 1588s [00:53:08.861] NAME <- NAMES[[kk]] 1588s [00:53:08.861] if (name != NAME && is.element(NAME, old_names)) 1588s [00:53:08.861] next 1588s [00:53:08.861] args[[name]] <- ...future.oldEnvVars[[name]] 1588s [00:53:08.861] } 1588s [00:53:08.861] NAMES <- toupper(added) 1588s [00:53:08.861] for (kk in seq_along(NAMES)) { 1588s [00:53:08.861] name <- added[[kk]] 1588s [00:53:08.861] NAME <- NAMES[[kk]] 1588s [00:53:08.861] if (name != NAME && is.element(NAME, old_names)) 1588s [00:53:08.861] next 1588s [00:53:08.861] args[[name]] <- "" 1588s [00:53:08.861] } 1588s [00:53:08.861] NAMES <- toupper(removed) 1588s [00:53:08.861] for (kk in seq_along(NAMES)) { 1588s [00:53:08.861] name <- removed[[kk]] 1588s [00:53:08.861] NAME <- NAMES[[kk]] 1588s [00:53:08.861] if (name != NAME && is.element(NAME, old_names)) 1588s [00:53:08.861] next 1588s [00:53:08.861] args[[name]] <- ...future.oldEnvVars[[name]] 1588s [00:53:08.861] } 1588s [00:53:08.861] if (length(args) > 0) 1588s [00:53:08.861] base::do.call(base::Sys.setenv, args = args) 1588s [00:53:08.861] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1588s [00:53:08.861] } 1588s [00:53:08.861] else { 1588s [00:53:08.861] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1588s [00:53:08.861] } 1588s [00:53:08.861] { 1588s [00:53:08.861] if (base::length(...future.futureOptionsAdded) > 1588s [00:53:08.861] 0L) { 1588s [00:53:08.861] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1588s [00:53:08.861] base::names(opts) <- ...future.futureOptionsAdded 1588s [00:53:08.861] base::options(opts) 1588s [00:53:08.861] } 1588s [00:53:08.861] { 1588s [00:53:08.861] { 1588s [00:53:08.861] NULL 1588s [00:53:08.861] RNGkind("Mersenne-Twister") 1588s [00:53:08.861] base::rm(list = ".Random.seed", envir = base::globalenv(), 1588s [00:53:08.861] inherits = FALSE) 1588s [00:53:08.861] } 1588s [00:53:08.861] options(future.plan = NULL) 1588s [00:53:08.861] if (is.na(NA_character_)) 1588s [00:53:08.861] Sys.unsetenv("R_FUTURE_PLAN") 1588s [00:53:08.861] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1588s [00:53:08.861] future::plan(list(function (..., workers = availableCores(), 1588s [00:53:08.861] lazy = FALSE, rscript_libs = .libPaths(), 1588s [00:53:08.861] envir = parent.frame()) 1588s [00:53:08.861] { 1588s [00:53:08.861] if (is.function(workers)) 1588s [00:53:08.861] workers <- workers() 1588s [00:53:08.861] workers <- structure(as.integer(workers), 1588s [00:53:08.861] class = class(workers)) 1588s [00:53:08.861] stop_if_not(length(workers) == 1, is.finite(workers), 1588s [00:53:08.861] workers >= 1) 1588s [00:53:08.861] if (workers == 1L && !inherits(workers, "AsIs")) { 1588s [00:53:08.861] return(sequential(..., lazy = TRUE, envir = envir)) 1588s [00:53:08.861] } 1588s [00:53:08.861] future <- MultisessionFuture(..., workers = workers, 1588s [00:53:08.861] lazy = lazy, rscript_libs = rscript_libs, 1588s [00:53:08.861] envir = envir) 1588s [00:53:08.861] if (!future$lazy) 1588s [00:53:08.861] future <- run(future) 1588s [00:53:08.861] invisible(future) 1588s [00:53:08.861] }), .cleanup = FALSE, .init = FALSE) 1588s [00:53:08.861] } 1588s [00:53:08.861] } 1588s [00:53:08.861] } 1588s [00:53:08.861] }) 1588s [00:53:08.861] if (TRUE) { 1588s [00:53:08.861] base::sink(type = "output", split = FALSE) 1588s [00:53:08.861] if (TRUE) { 1588s [00:53:08.861] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1588s [00:53:08.861] } 1588s [00:53:08.861] else { 1588s [00:53:08.861] ...future.result["stdout"] <- base::list(NULL) 1588s [00:53:08.861] } 1588s [00:53:08.861] base::close(...future.stdout) 1588s [00:53:08.861] ...future.stdout <- NULL 1588s [00:53:08.861] } 1588s [00:53:08.861] ...future.result$conditions <- ...future.conditions 1588s [00:53:08.861] ...future.result$finished <- base::Sys.time() 1588s [00:53:08.861] ...future.result 1588s [00:53:08.861] } 1588s [00:53:08.865] assign_globals() ... 1588s [00:53:08.865] List of 11 1588s [00:53:08.865] $ ...future.FUN :function (x, ...) 1588s [00:53:08.865] $ x_FUN :function (x) 1588s [00:53:08.865] $ times : int 0 1588s [00:53:08.865] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1588s [00:53:08.865] $ stop_if_not :function (...) 1588s [00:53:08.865] $ dim : NULL 1588s [00:53:08.865] $ valid_types : chr [1:3] "logical" "integer" "double" 1588s [00:53:08.865] $ future.call.arguments : list() 1588s [00:53:08.865] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1588s [00:53:08.865] $ ...future.elements_ii :List of 10 1588s [00:53:08.865] ..$ : int 1 1588s [00:53:08.865] ..$ : int 2 1588s [00:53:08.865] ..$ : int 3 1588s [00:53:08.865] ..$ : int 4 1588s [00:53:08.865] ..$ : int 5 1588s [00:53:08.865] ..$ : int 6 1588s [00:53:08.865] ..$ : int 7 1588s [00:53:08.865] ..$ : int 8 1588s [00:53:08.865] ..$ : int 9 1588s [00:53:08.865] ..$ : int 10 1588s [00:53:08.865] $ ...future.seeds_ii : NULL 1588s [00:53:08.865] $ ...future.globals.maxSize: NULL 1588s [00:53:08.865] - attr(*, "where")=List of 11 1588s [00:53:08.865] ..$ ...future.FUN : 1588s [00:53:08.865] ..$ x_FUN : 1588s [00:53:08.865] ..$ times : 1588s [00:53:08.865] ..$ stopf : 1588s [00:53:08.865] ..$ stop_if_not : 1588s [00:53:08.865] ..$ dim : 1588s [00:53:08.865] ..$ valid_types : 1588s [00:53:08.865] ..$ future.call.arguments : 1588s [00:53:08.865] ..$ ...future.elements_ii : 1588s [00:53:08.865] ..$ ...future.seeds_ii : 1588s [00:53:08.865] ..$ ...future.globals.maxSize: 1588s [00:53:08.865] - attr(*, "resolved")= logi FALSE 1588s [00:53:08.865] - attr(*, "total_size")= num 95472 1588s [00:53:08.865] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1588s [00:53:08.865] - attr(*, "already-done")= logi TRUE 1588s [00:53:08.880] - copied ‘...future.FUN’ to environment 1588s [00:53:08.880] - reassign environment for ‘x_FUN’ 1588s [00:53:08.881] - copied ‘x_FUN’ to environment 1588s [00:53:08.881] - copied ‘times’ to environment 1588s [00:53:08.881] - copied ‘stopf’ to environment 1588s [00:53:08.881] - copied ‘stop_if_not’ to environment 1588s [00:53:08.882] - copied ‘dim’ to environment 1588s [00:53:08.882] - copied ‘valid_types’ to environment 1588s [00:53:08.882] - copied ‘future.call.arguments’ to environment 1588s [00:53:08.882] - copied ‘...future.elements_ii’ to environment 1588s [00:53:08.882] - copied ‘...future.seeds_ii’ to environment 1588s [00:53:08.882] - copied ‘...future.globals.maxSize’ to environment 1588s [00:53:08.883] assign_globals() ... done 1588s [00:53:08.883] plan(): Setting new future strategy stack: 1588s [00:53:08.883] List of future strategies: 1588s [00:53:08.883] 1. sequential: 1588s [00:53:08.883] - args: function (..., envir = parent.frame()) 1588s [00:53:08.883] - tweaked: FALSE 1588s [00:53:08.883] - call: NULL 1588s [00:53:08.884] plan(): nbrOfWorkers() = 1 1588s [00:53:08.885] plan(): Setting new future strategy stack: 1588s [00:53:08.885] List of future strategies: 1588s [00:53:08.885] 1. multisession: 1588s [00:53:08.885] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1588s [00:53:08.885] - tweaked: FALSE 1588s [00:53:08.885] - call: plan(strategy) 1588s [00:53:08.889] plan(): nbrOfWorkers() = 1 1588s [00:53:08.889] SequentialFuture started (and completed) 1588s [00:53:08.889] - Launch lazy future ... done 1588s [00:53:08.890] run() for ‘SequentialFuture’ ... done 1588s [00:53:08.890] Created future: 1588s [00:53:08.890] SequentialFuture: 1588s [00:53:08.890] Label: ‘future_vapply-1’ 1588s [00:53:08.890] Expression: 1588s [00:53:08.890] { 1588s [00:53:08.890] do.call(function(...) { 1588s [00:53:08.890] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1588s [00:53:08.890] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1588s [00:53:08.890] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1588s [00:53:08.890] on.exit(options(oopts), add = TRUE) 1588s [00:53:08.890] } 1588s [00:53:08.890] { 1588s [00:53:08.890] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1588s [00:53:08.890] ...future.X_jj <- ...future.elements_ii[[jj]] 1588s [00:53:08.890] ...future.FUN(...future.X_jj, ...) 1588s [00:53:08.890] }) 1588s [00:53:08.890] } 1588s [00:53:08.890] }, args = future.call.arguments) 1588s [00:53:08.890] } 1588s [00:53:08.890] Lazy evaluation: FALSE 1588s [00:53:08.890] Asynchronous evaluation: FALSE 1588s [00:53:08.890] Local evaluation: TRUE 1588s [00:53:08.890] Environment: R_GlobalEnv 1588s [00:53:08.890] Capture standard output: TRUE 1588s [00:53:08.890] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1588s [00:53:08.890] Globals: 11 objects totaling 93.78 KiB (function ‘...future.FUN’ of 21.22 KiB, function ‘x_FUN’ of 1.16 KiB, integer ‘times’ of 56 bytes, function ‘stopf’ of 26.43 KiB, function ‘stop_if_not’ of 44.12 KiB, ...) 1588s [00:53:08.890] Packages: 1 packages (‘future.apply’) 1588s [00:53:08.890] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1588s [00:53:08.890] Resolved: TRUE 1588s [00:53:08.890] Value: 480 bytes of class ‘list’ 1588s [00:53:08.890] Early signaling: FALSE 1588s [00:53:08.890] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1588s [00:53:08.890] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1588s [00:53:08.892] Chunk #1 of 1 ... DONE 1588s [00:53:08.892] Launching 1 futures (chunks) ... DONE 1588s [00:53:08.892] Resolving 1 futures (chunks) ... 1588s [00:53:08.893] resolve() on list ... 1588s [00:53:08.893] recursive: 0 1588s [00:53:08.893] length: 1 1588s [00:53:08.893] 1588s [00:53:08.893] resolved() for ‘SequentialFuture’ ... 1588s [00:53:08.894] - state: ‘finished’ 1588s [00:53:08.894] - run: TRUE 1588s [00:53:08.894] - result: ‘FutureResult’ 1588s [00:53:08.894] resolved() for ‘SequentialFuture’ ... done 1588s [00:53:08.894] Future #1 1588s [00:53:08.894] signalConditionsASAP(SequentialFuture, pos=1) ... 1588s [00:53:08.894] - nx: 1 1588s [00:53:08.895] - relay: TRUE 1588s [00:53:08.895] - stdout: TRUE 1588s [00:53:08.895] - signal: TRUE 1588s [00:53:08.895] - resignal: FALSE 1588s [00:53:08.895] - force: TRUE 1588s [00:53:08.895] - relayed: [n=1] FALSE 1588s [00:53:08.896] - queued futures: [n=1] FALSE 1588s [00:53:08.896] - until=1 1588s [00:53:08.896] - relaying element #1 1588s [00:53:08.896] - relayed: [n=1] TRUE 1588s [00:53:08.897] - queued futures: [n=1] TRUE 1588s [00:53:08.897] signalConditionsASAP(SequentialFuture, pos=1) ... done 1588s [00:53:08.897] length: 0 (resolved future 1) 1588s [00:53:08.897] Relaying remaining futures 1588s [00:53:08.897] signalConditionsASAP(NULL, pos=0) ... 1588s [00:53:08.898] - nx: 1 1588s [00:53:08.898] - relay: TRUE 1588s [00:53:08.898] - stdout: TRUE 1588s [00:53:08.898] - signal: TRUE 1588s [00:53:08.898] - resignal: FALSE 1588s [00:53:08.899] - force: TRUE 1588s [00:53:08.899] - relayed: [n=1] TRUE 1588s [00:53:08.899] - queued futures: [n=1] TRUE 1588s - flush all 1588s [00:53:08.899] - relayed: [n=1] TRUE 1588s [00:53:08.899] - queued futures: [n=1] TRUE 1588s [00:53:08.900] signalConditionsASAP(NULL, pos=0) ... done 1588s [00:53:08.900] resolve() on list ... DONE 1588s [00:53:08.901] - Number of value chunks collected: 1 1588s [00:53:08.902] Resolving 1 futures (chunks) ... DONE 1588s [00:53:08.902] Reducing values from 1 chunks ... 1588s [00:53:08.902] - Number of values collected after concatenation: 10 1588s [00:53:08.902] - Number of values expected: 10 1588s [00:53:08.902] Reducing values from 1 chunks ... DONE 1588s [00:53:08.903] future_lapply() ... DONE 1588s num[0 , 1:10] 1588s int[0 , 1:10] 1588s [00:53:08.904] future_lapply() ... 1588s [00:53:08.910] Number of chunks: 1 1588s [00:53:08.910] getGlobalsAndPackagesXApply() ... 1588s [00:53:08.911] - future.globals: TRUE 1588s [00:53:08.911] getGlobalsAndPackages() ... 1588s [00:53:08.911] Searching for globals... 1588s [00:53:08.918] - globals found: [17] ‘FUN’, ‘{’, ‘<-’, ‘x_FUN’, ‘if’, ‘!=’, ‘length’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘all’, ‘==’, ‘dim’, ‘%in%’, ‘typeof’, ‘valid_types’, ‘integer’ 1588s [00:53:08.919] Searching for globals ... DONE 1588s [00:53:08.919] Resolving globals: FALSE 1588s [00:53:08.920] The total size of the 7 globals is 93.16 KiB (95400 bytes) 1588s [00:53:08.921] The total size of the 7 globals exported for future expression (‘FUN()’) is 93.16 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘stop_if_not’ (44.12 KiB of class ‘function’), ‘stopf’ (26.43 KiB of class ‘function’) and ‘FUN’ (21.22 KiB of class ‘function’) 1588s [00:53:08.921] - globals: [7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1588s [00:53:08.921] - packages: [1] ‘future.apply’ 1588s [00:53:08.921] getGlobalsAndPackages() ... DONE 1588s [00:53:08.921] - globals found/used: [n=7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1588s [00:53:08.921] - needed namespaces: [n=1] ‘future.apply’ 1588s [00:53:08.922] Finding globals ... DONE 1588s [00:53:08.922] - use_args: TRUE 1588s [00:53:08.922] - Getting '...' globals ... 1588s [00:53:08.922] resolve() on list ... 1588s [00:53:08.922] recursive: 0 1588s [00:53:08.922] length: 1 1588s [00:53:08.922] elements: ‘...’ 1588s [00:53:08.923] length: 0 (resolved future 1) 1588s [00:53:08.923] resolve() on list ... DONE 1588s [00:53:08.923] - '...' content: [n=0] 1588s [00:53:08.923] List of 1 1588s [00:53:08.923] $ ...: list() 1588s [00:53:08.923] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1588s [00:53:08.923] - attr(*, "where")=List of 1 1588s [00:53:08.923] ..$ ...: 1588s [00:53:08.923] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1588s [00:53:08.923] - attr(*, "resolved")= logi TRUE 1588s [00:53:08.923] - attr(*, "total_size")= num NA 1588s [00:53:08.926] - Getting '...' globals ... DONE 1588s [00:53:08.926] Globals to be used in all futures (chunks): [n=8] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’ 1588s [00:53:08.926] List of 8 1588s [00:53:08.926] $ ...future.FUN:function (x, ...) 1588s [00:53:08.926] $ x_FUN :function (x) 1588s [00:53:08.926] $ times : int 0 1588s [00:53:08.926] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1588s [00:53:08.926] $ stop_if_not :function (...) 1588s [00:53:08.926] $ dim : NULL 1588s [00:53:08.926] $ valid_types : chr [1:2] "logical" "integer" 1588s [00:53:08.926] $ ... : list() 1588s [00:53:08.926] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1588s [00:53:08.926] - attr(*, "where")=List of 8 1588s [00:53:08.926] ..$ ...future.FUN: 1588s [00:53:08.926] ..$ x_FUN : 1588s [00:53:08.926] ..$ times : 1588s [00:53:08.926] ..$ stopf : 1588s [00:53:08.926] ..$ stop_if_not : 1588s [00:53:08.926] ..$ dim : 1588s [00:53:08.926] ..$ valid_types : 1588s [00:53:08.926] ..$ ... : 1588s [00:53:08.926] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1588s [00:53:08.926] - attr(*, "resolved")= logi FALSE 1588s [00:53:08.926] - attr(*, "total_size")= num 95400 1588s [00:53:08.933] Packages to be attached in all futures: [n=1] ‘future.apply’ 1588s [00:53:08.933] getGlobalsAndPackagesXApply() ... DONE 1588s [00:53:08.934] Number of futures (= number of chunks): 1 1588s [00:53:08.934] Launching 1 futures (chunks) ... 1588s [00:53:08.934] Chunk #1 of 1 ... 1588s [00:53:08.934] - Finding globals in 'X' for chunk #1 ... 1588s [00:53:08.934] getGlobalsAndPackages() ... 1588s [00:53:08.934] Searching for globals... 1588s [00:53:08.935] 1588s [00:53:08.935] Searching for globals ... DONE 1588s [00:53:08.935] - globals: [0] 1588s [00:53:08.935] getGlobalsAndPackages() ... DONE 1588s [00:53:08.935] + additional globals found: [n=0] 1588s [00:53:08.935] + additional namespaces needed: [n=0] 1588s [00:53:08.936] - Finding globals in 'X' for chunk #1 ... DONE 1588s [00:53:08.936] - seeds: 1588s [00:53:08.936] - All globals exported: [n=11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1588s [00:53:08.936] getGlobalsAndPackages() ... 1588s [00:53:08.936] - globals passed as-is: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1588s [00:53:08.937] Resolving globals: FALSE 1588s [00:53:08.937] Tweak future expression to call with '...' arguments ... 1588s [00:53:08.937] { 1588s [00:53:08.937] do.call(function(...) { 1588s [00:53:08.937] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1588s [00:53:08.937] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1588s [00:53:08.937] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1588s [00:53:08.937] on.exit(options(oopts), add = TRUE) 1588s [00:53:08.937] } 1588s [00:53:08.937] { 1588s [00:53:08.937] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1588s [00:53:08.937] ...future.X_jj <- ...future.elements_ii[[jj]] 1588s [00:53:08.937] ...future.FUN(...future.X_jj, ...) 1588s [00:53:08.937] }) 1588s [00:53:08.937] } 1588s [00:53:08.937] }, args = future.call.arguments) 1588s [00:53:08.937] } 1588s [00:53:08.937] Tweak future expression to call with '...' arguments ... DONE 1588s [00:53:08.938] - globals: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1588s [00:53:08.938] - packages: [1] ‘future.apply’ 1588s [00:53:08.938] getGlobalsAndPackages() ... DONE 1588s [00:53:08.939] run() for ‘Future’ ... 1588s [00:53:08.939] - state: ‘created’ 1588s [00:53:08.939] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1588s [00:53:08.942] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1588s [00:53:08.943] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1588s [00:53:08.943] - Field: ‘label’ 1588s [00:53:08.943] - Field: ‘local’ 1588s [00:53:08.943] - Field: ‘owner’ 1588s [00:53:08.943] - Field: ‘envir’ 1588s [00:53:08.944] - Field: ‘packages’ 1588s [00:53:08.944] - Field: ‘gc’ 1588s [00:53:08.944] - Field: ‘conditions’ 1588s [00:53:08.944] - Field: ‘expr’ 1588s [00:53:08.944] - Field: ‘uuid’ 1588s [00:53:08.944] - Field: ‘seed’ 1588s [00:53:08.944] - Field: ‘version’ 1588s [00:53:08.946] - Field: ‘result’ 1588s [00:53:08.946] - Field: ‘asynchronous’ 1588s [00:53:08.946] - Field: ‘calls’ 1588s [00:53:08.947] - Field: ‘globals’ 1588s [00:53:08.947] - Field: ‘stdout’ 1588s [00:53:08.947] - Field: ‘earlySignal’ 1588s [00:53:08.947] - Field: ‘lazy’ 1588s [00:53:08.947] - Field: ‘state’ 1588s [00:53:08.947] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1588s [00:53:08.948] - Launch lazy future ... 1588s [00:53:08.948] Packages needed by the future expression (n = 1): ‘future.apply’ 1588s [00:53:08.948] Packages needed by future strategies (n = 0): 1588s [00:53:08.949] { 1588s [00:53:08.949] { 1588s [00:53:08.949] { 1588s [00:53:08.949] ...future.startTime <- base::Sys.time() 1588s [00:53:08.949] { 1588s [00:53:08.949] { 1588s [00:53:08.949] { 1588s [00:53:08.949] { 1588s [00:53:08.949] base::local({ 1588s [00:53:08.949] has_future <- base::requireNamespace("future", 1588s [00:53:08.949] quietly = TRUE) 1588s [00:53:08.949] if (has_future) { 1588s [00:53:08.949] ns <- base::getNamespace("future") 1588s [00:53:08.949] version <- ns[[".package"]][["version"]] 1588s [00:53:08.949] if (is.null(version)) 1588s [00:53:08.949] version <- utils::packageVersion("future") 1588s [00:53:08.949] } 1588s [00:53:08.949] else { 1588s [00:53:08.949] version <- NULL 1588s [00:53:08.949] } 1588s [00:53:08.949] if (!has_future || version < "1.8.0") { 1588s [00:53:08.949] info <- base::c(r_version = base::gsub("R version ", 1588s [00:53:08.949] "", base::R.version$version.string), 1588s [00:53:08.949] platform = base::sprintf("%s (%s-bit)", 1588s [00:53:08.949] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1588s [00:53:08.949] os = base::paste(base::Sys.info()[base::c("sysname", 1588s [00:53:08.949] "release", "version")], collapse = " "), 1588s [00:53:08.949] hostname = base::Sys.info()[["nodename"]]) 1588s [00:53:08.949] info <- base::sprintf("%s: %s", base::names(info), 1588s [00:53:08.949] info) 1588s [00:53:08.949] info <- base::paste(info, collapse = "; ") 1588s [00:53:08.949] if (!has_future) { 1588s [00:53:08.949] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1588s [00:53:08.949] info) 1588s [00:53:08.949] } 1588s [00:53:08.949] else { 1588s [00:53:08.949] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1588s [00:53:08.949] info, version) 1588s [00:53:08.949] } 1588s [00:53:08.949] base::stop(msg) 1588s [00:53:08.949] } 1588s [00:53:08.949] }) 1588s [00:53:08.949] } 1588s [00:53:08.949] base::local({ 1588s [00:53:08.949] for (pkg in "future.apply") { 1588s [00:53:08.949] base::loadNamespace(pkg) 1588s [00:53:08.949] base::library(pkg, character.only = TRUE) 1588s [00:53:08.949] } 1588s [00:53:08.949] }) 1588s [00:53:08.949] } 1588s [00:53:08.949] options(future.plan = NULL) 1588s [00:53:08.949] Sys.unsetenv("R_FUTURE_PLAN") 1588s [00:53:08.949] future::plan("default", .cleanup = FALSE, .init = FALSE) 1588s [00:53:08.949] } 1588s [00:53:08.949] ...future.workdir <- getwd() 1588s [00:53:08.949] } 1588s [00:53:08.949] ...future.oldOptions <- base::as.list(base::.Options) 1588s [00:53:08.949] ...future.oldEnvVars <- base::Sys.getenv() 1588s [00:53:08.949] } 1588s [00:53:08.949] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1588s [00:53:08.949] future.globals.maxSize = NULL, future.globals.method = NULL, 1588s [00:53:08.949] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1588s [00:53:08.949] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1588s [00:53:08.949] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1588s [00:53:08.949] future.stdout.windows.reencode = NULL, width = 80L) 1588s [00:53:08.949] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1588s [00:53:08.949] base::names(...future.oldOptions)) 1588s [00:53:08.949] } 1588s [00:53:08.949] if (FALSE) { 1588s [00:53:08.949] } 1588s [00:53:08.949] else { 1588s [00:53:08.949] if (TRUE) { 1588s [00:53:08.949] ...future.stdout <- base::rawConnection(base::raw(0L), 1588s [00:53:08.949] open = "w") 1588s [00:53:08.949] } 1588s [00:53:08.949] else { 1588s [00:53:08.949] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1588s [00:53:08.949] windows = "NUL", "/dev/null"), open = "w") 1588s [00:53:08.949] } 1588s [00:53:08.949] base::sink(...future.stdout, type = "output", split = FALSE) 1588s [00:53:08.949] base::on.exit(if (!base::is.null(...future.stdout)) { 1588s [00:53:08.949] base::sink(type = "output", split = FALSE) 1588s [00:53:08.949] base::close(...future.stdout) 1588s [00:53:08.949] }, add = TRUE) 1588s [00:53:08.949] } 1588s [00:53:08.949] ...future.frame <- base::sys.nframe() 1588s [00:53:08.949] ...future.conditions <- base::list() 1588s [00:53:08.949] ...future.rng <- base::globalenv()$.Random.seed 1588s [00:53:08.949] if (FALSE) { 1588s [00:53:08.949] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1588s [00:53:08.949] "...future.value", "...future.globalenv.names", ".Random.seed") 1588s [00:53:08.949] } 1588s [00:53:08.949] ...future.result <- base::tryCatch({ 1588s [00:53:08.949] base::withCallingHandlers({ 1588s [00:53:08.949] ...future.value <- base::withVisible(base::local({ 1588s [00:53:08.949] do.call(function(...) { 1588s [00:53:08.949] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1588s [00:53:08.949] if (!identical(...future.globals.maxSize.org, 1588s [00:53:08.949] ...future.globals.maxSize)) { 1588s [00:53:08.949] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1588s [00:53:08.949] on.exit(options(oopts), add = TRUE) 1588s [00:53:08.949] } 1588s [00:53:08.949] { 1588s [00:53:08.949] lapply(seq_along(...future.elements_ii), 1588s [00:53:08.949] FUN = function(jj) { 1588s [00:53:08.949] ...future.X_jj <- ...future.elements_ii[[jj]] 1588s [00:53:08.949] ...future.FUN(...future.X_jj, ...) 1588s [00:53:08.949] }) 1588s [00:53:08.949] } 1588s [00:53:08.949] }, args = future.call.arguments) 1588s [00:53:08.949] })) 1588s [00:53:08.949] future::FutureResult(value = ...future.value$value, 1588s [00:53:08.949] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1588s [00:53:08.949] ...future.rng), globalenv = if (FALSE) 1588s [00:53:08.949] list(added = base::setdiff(base::names(base::.GlobalEnv), 1588s [00:53:08.949] ...future.globalenv.names)) 1588s [00:53:08.949] else NULL, started = ...future.startTime, version = "1.8") 1588s [00:53:08.949] }, condition = base::local({ 1588s [00:53:08.949] c <- base::c 1588s [00:53:08.949] inherits <- base::inherits 1588s [00:53:08.949] invokeRestart <- base::invokeRestart 1588s [00:53:08.949] length <- base::length 1588s [00:53:08.949] list <- base::list 1588s [00:53:08.949] seq.int <- base::seq.int 1588s [00:53:08.949] signalCondition <- base::signalCondition 1588s [00:53:08.949] sys.calls <- base::sys.calls 1588s [00:53:08.949] `[[` <- base::`[[` 1588s [00:53:08.949] `+` <- base::`+` 1588s [00:53:08.949] `<<-` <- base::`<<-` 1588s [00:53:08.949] sysCalls <- function(calls = sys.calls(), from = 1L) { 1588s [00:53:08.949] calls[seq.int(from = from + 12L, to = length(calls) - 1588s [00:53:08.949] 3L)] 1588s [00:53:08.949] } 1588s [00:53:08.949] function(cond) { 1588s [00:53:08.949] is_error <- inherits(cond, "error") 1588s [00:53:08.949] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1588s [00:53:08.949] NULL) 1588s [00:53:08.949] if (is_error) { 1588s [00:53:08.949] sessionInformation <- function() { 1588s [00:53:08.949] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1588s [00:53:08.949] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1588s [00:53:08.949] search = base::search(), system = base::Sys.info()) 1588s [00:53:08.949] } 1588s [00:53:08.949] ...future.conditions[[length(...future.conditions) + 1588s [00:53:08.949] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1588s [00:53:08.949] cond$call), session = sessionInformation(), 1588s [00:53:08.949] timestamp = base::Sys.time(), signaled = 0L) 1588s [00:53:08.949] signalCondition(cond) 1588s [00:53:08.949] } 1588s [00:53:08.949] else if (!ignore && TRUE && inherits(cond, c("condition", 1588s [00:53:08.949] "immediateCondition"))) { 1588s [00:53:08.949] signal <- TRUE && inherits(cond, "immediateCondition") 1588s [00:53:08.949] ...future.conditions[[length(...future.conditions) + 1588s [00:53:08.949] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1588s [00:53:08.949] if (TRUE && !signal) { 1588s [00:53:08.949] muffleCondition <- function (cond, pattern = "^muffle") 1588s [00:53:08.949] { 1588s [00:53:08.949] inherits <- base::inherits 1588s [00:53:08.949] invokeRestart <- base::invokeRestart 1588s [00:53:08.949] is.null <- base::is.null 1588s [00:53:08.949] muffled <- FALSE 1588s [00:53:08.949] if (inherits(cond, "message")) { 1588s [00:53:08.949] muffled <- grepl(pattern, "muffleMessage") 1588s [00:53:08.949] if (muffled) 1588s [00:53:08.949] invokeRestart("muffleMessage") 1588s [00:53:08.949] } 1588s [00:53:08.949] else if (inherits(cond, "warning")) { 1588s [00:53:08.949] muffled <- grepl(pattern, "muffleWarning") 1588s [00:53:08.949] if (muffled) 1588s [00:53:08.949] invokeRestart("muffleWarning") 1588s [00:53:08.949] } 1588s [00:53:08.949] else if (inherits(cond, "condition")) { 1588s [00:53:08.949] if (!is.null(pattern)) { 1588s [00:53:08.949] computeRestarts <- base::computeRestarts 1588s [00:53:08.949] grepl <- base::grepl 1588s [00:53:08.949] restarts <- computeRestarts(cond) 1588s [00:53:08.949] for (restart in restarts) { 1588s [00:53:08.949] name <- restart$name 1588s [00:53:08.949] if (is.null(name)) 1588s [00:53:08.949] next 1588s [00:53:08.949] if (!grepl(pattern, name)) 1588s [00:53:08.949] next 1588s [00:53:08.949] invokeRestart(restart) 1588s [00:53:08.949] muffled <- TRUE 1588s [00:53:08.949] break 1588s [00:53:08.949] } 1588s [00:53:08.949] } 1588s [00:53:08.949] } 1588s [00:53:08.949] invisible(muffled) 1588s [00:53:08.949] } 1588s [00:53:08.949] muffleCondition(cond, pattern = "^muffle") 1588s [00:53:08.949] } 1588s [00:53:08.949] } 1588s [00:53:08.949] else { 1588s [00:53:08.949] if (TRUE) { 1588s [00:53:08.949] muffleCondition <- function (cond, pattern = "^muffle") 1588s [00:53:08.949] { 1588s [00:53:08.949] inherits <- base::inherits 1588s [00:53:08.949] invokeRestart <- base::invokeRestart 1588s [00:53:08.949] is.null <- base::is.null 1588s [00:53:08.949] muffled <- FALSE 1588s [00:53:08.949] if (inherits(cond, "message")) { 1588s [00:53:08.949] muffled <- grepl(pattern, "muffleMessage") 1588s [00:53:08.949] if (muffled) 1588s [00:53:08.949] invokeRestart("muffleMessage") 1588s [00:53:08.949] } 1588s [00:53:08.949] else if (inherits(cond, "warning")) { 1588s [00:53:08.949] muffled <- grepl(pattern, "muffleWarning") 1588s [00:53:08.949] if (muffled) 1588s [00:53:08.949] invokeRestart("muffleWarning") 1588s [00:53:08.949] } 1588s [00:53:08.949] else if (inherits(cond, "condition")) { 1588s [00:53:08.949] if (!is.null(pattern)) { 1588s [00:53:08.949] computeRestarts <- base::computeRestarts 1588s [00:53:08.949] grepl <- base::grepl 1588s [00:53:08.949] restarts <- computeRestarts(cond) 1588s [00:53:08.949] for (restart in restarts) { 1588s [00:53:08.949] name <- restart$name 1588s [00:53:08.949] if (is.null(name)) 1588s [00:53:08.949] next 1588s [00:53:08.949] if (!grepl(pattern, name)) 1588s [00:53:08.949] next 1588s [00:53:08.949] invokeRestart(restart) 1588s [00:53:08.949] muffled <- TRUE 1588s [00:53:08.949] break 1588s [00:53:08.949] } 1588s [00:53:08.949] } 1588s [00:53:08.949] } 1588s [00:53:08.949] invisible(muffled) 1588s [00:53:08.949] } 1588s [00:53:08.949] muffleCondition(cond, pattern = "^muffle") 1588s [00:53:08.949] } 1588s [00:53:08.949] } 1588s [00:53:08.949] } 1588s [00:53:08.949] })) 1588s [00:53:08.949] }, error = function(ex) { 1588s [00:53:08.949] base::structure(base::list(value = NULL, visible = NULL, 1588s [00:53:08.949] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1588s [00:53:08.949] ...future.rng), started = ...future.startTime, 1588s [00:53:08.949] finished = Sys.time(), session_uuid = NA_character_, 1588s [00:53:08.949] version = "1.8"), class = "FutureResult") 1588s [00:53:08.949] }, finally = { 1588s [00:53:08.949] if (!identical(...future.workdir, getwd())) 1588s [00:53:08.949] setwd(...future.workdir) 1588s [00:53:08.949] { 1588s [00:53:08.949] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1588s [00:53:08.949] ...future.oldOptions$nwarnings <- NULL 1588s [00:53:08.949] } 1588s [00:53:08.949] base::options(...future.oldOptions) 1588s [00:53:08.949] if (.Platform$OS.type == "windows") { 1588s [00:53:08.949] old_names <- names(...future.oldEnvVars) 1588s [00:53:08.949] envs <- base::Sys.getenv() 1588s [00:53:08.949] names <- names(envs) 1588s [00:53:08.949] common <- intersect(names, old_names) 1588s [00:53:08.949] added <- setdiff(names, old_names) 1588s [00:53:08.949] removed <- setdiff(old_names, names) 1588s [00:53:08.949] changed <- common[...future.oldEnvVars[common] != 1588s [00:53:08.949] envs[common]] 1588s [00:53:08.949] NAMES <- toupper(changed) 1588s [00:53:08.949] args <- list() 1588s [00:53:08.949] for (kk in seq_along(NAMES)) { 1588s [00:53:08.949] name <- changed[[kk]] 1588s [00:53:08.949] NAME <- NAMES[[kk]] 1588s [00:53:08.949] if (name != NAME && is.element(NAME, old_names)) 1588s [00:53:08.949] next 1588s [00:53:08.949] args[[name]] <- ...future.oldEnvVars[[name]] 1588s [00:53:08.949] } 1588s [00:53:08.949] NAMES <- toupper(added) 1588s [00:53:08.949] for (kk in seq_along(NAMES)) { 1588s [00:53:08.949] name <- added[[kk]] 1588s [00:53:08.949] NAME <- NAMES[[kk]] 1588s [00:53:08.949] if (name != NAME && is.element(NAME, old_names)) 1588s [00:53:08.949] next 1588s [00:53:08.949] args[[name]] <- "" 1588s [00:53:08.949] } 1588s [00:53:08.949] NAMES <- toupper(removed) 1588s [00:53:08.949] for (kk in seq_along(NAMES)) { 1588s [00:53:08.949] name <- removed[[kk]] 1588s [00:53:08.949] NAME <- NAMES[[kk]] 1588s [00:53:08.949] if (name != NAME && is.element(NAME, old_names)) 1588s [00:53:08.949] next 1588s [00:53:08.949] args[[name]] <- ...future.oldEnvVars[[name]] 1588s [00:53:08.949] } 1588s [00:53:08.949] if (length(args) > 0) 1588s [00:53:08.949] base::do.call(base::Sys.setenv, args = args) 1588s [00:53:08.949] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1588s [00:53:08.949] } 1588s [00:53:08.949] else { 1588s [00:53:08.949] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1588s [00:53:08.949] } 1588s [00:53:08.949] { 1588s [00:53:08.949] if (base::length(...future.futureOptionsAdded) > 1588s [00:53:08.949] 0L) { 1588s [00:53:08.949] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1588s [00:53:08.949] base::names(opts) <- ...future.futureOptionsAdded 1588s [00:53:08.949] base::options(opts) 1588s [00:53:08.949] } 1588s [00:53:08.949] { 1588s [00:53:08.949] { 1588s [00:53:08.949] NULL 1588s [00:53:08.949] RNGkind("Mersenne-Twister") 1588s [00:53:08.949] base::rm(list = ".Random.seed", envir = base::globalenv(), 1588s [00:53:08.949] inherits = FALSE) 1588s [00:53:08.949] } 1588s [00:53:08.949] options(future.plan = NULL) 1588s [00:53:08.949] if (is.na(NA_character_)) 1588s [00:53:08.949] Sys.unsetenv("R_FUTURE_PLAN") 1588s [00:53:08.949] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1588s [00:53:08.949] future::plan(list(function (..., workers = availableCores(), 1588s [00:53:08.949] lazy = FALSE, rscript_libs = .libPaths(), 1588s [00:53:08.949] envir = parent.frame()) 1588s [00:53:08.949] { 1588s [00:53:08.949] if (is.function(workers)) 1588s [00:53:08.949] workers <- workers() 1588s [00:53:08.949] workers <- structure(as.integer(workers), 1588s [00:53:08.949] class = class(workers)) 1588s [00:53:08.949] stop_if_not(length(workers) == 1, is.finite(workers), 1588s [00:53:08.949] workers >= 1) 1588s [00:53:08.949] if (workers == 1L && !inherits(workers, "AsIs")) { 1588s [00:53:08.949] return(sequential(..., lazy = TRUE, envir = envir)) 1588s [00:53:08.949] } 1588s [00:53:08.949] future <- MultisessionFuture(..., workers = workers, 1588s [00:53:08.949] lazy = lazy, rscript_libs = rscript_libs, 1588s [00:53:08.949] envir = envir) 1588s [00:53:08.949] if (!future$lazy) 1588s [00:53:08.949] future <- run(future) 1588s [00:53:08.949] invisible(future) 1588s [00:53:08.949] }), .cleanup = FALSE, .init = FALSE) 1588s [00:53:08.949] } 1588s [00:53:08.949] } 1588s [00:53:08.949] } 1588s [00:53:08.949] }) 1588s [00:53:08.949] if (TRUE) { 1588s [00:53:08.949] base::sink(type = "output", split = FALSE) 1588s [00:53:08.949] if (TRUE) { 1588s [00:53:08.949] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1588s [00:53:08.949] } 1588s [00:53:08.949] else { 1588s [00:53:08.949] ...future.result["stdout"] <- base::list(NULL) 1588s [00:53:08.949] } 1588s [00:53:08.949] base::close(...future.stdout) 1588s [00:53:08.949] ...future.stdout <- NULL 1588s [00:53:08.949] } 1588s [00:53:08.949] ...future.result$conditions <- ...future.conditions 1588s [00:53:08.949] ...future.result$finished <- base::Sys.time() 1588s [00:53:08.949] ...future.result 1588s [00:53:08.949] } 1588s [00:53:08.956] assign_globals() ... 1589s [00:53:08.956] List of 11 1589s [00:53:08.956] $ ...future.FUN :function (x, ...) 1589s [00:53:08.956] $ x_FUN :function (x) 1589s [00:53:08.956] $ times : int 0 1589s [00:53:08.956] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1589s [00:53:08.956] $ stop_if_not :function (...) 1589s [00:53:08.956] $ dim : NULL 1589s [00:53:08.956] $ valid_types : chr [1:2] "logical" "integer" 1589s [00:53:08.956] $ future.call.arguments : list() 1589s [00:53:08.956] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1589s [00:53:08.956] $ ...future.elements_ii :List of 10 1589s [00:53:08.956] ..$ : int 1 1589s [00:53:08.956] ..$ : int 2 1589s [00:53:08.956] ..$ : int 3 1589s [00:53:08.956] ..$ : int 4 1589s [00:53:08.956] ..$ : int 5 1589s [00:53:08.956] ..$ : int 6 1589s [00:53:08.956] ..$ : int 7 1589s [00:53:08.956] ..$ : int 8 1589s [00:53:08.956] ..$ : int 9 1589s [00:53:08.956] ..$ : int 10 1589s [00:53:08.956] $ ...future.seeds_ii : NULL 1589s [00:53:08.956] $ ...future.globals.maxSize: NULL 1589s [00:53:08.956] - attr(*, "where")=List of 11 1589s [00:53:08.956] ..$ ...future.FUN : 1589s [00:53:08.956] ..$ x_FUN : 1589s [00:53:08.956] ..$ times : 1589s [00:53:08.956] ..$ stopf : 1589s [00:53:08.956] ..$ stop_if_not : 1589s [00:53:08.956] ..$ dim : 1589s [00:53:08.956] ..$ valid_types : 1589s [00:53:08.956] ..$ future.call.arguments : 1589s [00:53:08.956] ..$ ...future.elements_ii : 1589s [00:53:08.956] ..$ ...future.seeds_ii : 1589s [00:53:08.956] ..$ ...future.globals.maxSize: 1589s [00:53:08.956] - attr(*, "resolved")= logi FALSE 1589s [00:53:08.956] - attr(*, "total_size")= num 95400 1589s [00:53:08.956] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1589s [00:53:08.956] - attr(*, "already-done")= logi TRUE 1589s [00:53:08.969] - copied ‘...future.FUN’ to environment 1589s [00:53:08.969] - reassign environment for ‘x_FUN’ 1589s [00:53:08.969] - copied ‘x_FUN’ to environment 1589s [00:53:08.969] - copied ‘times’ to environment 1589s [00:53:08.969] - copied ‘stopf’ to environment 1589s [00:53:08.969] - copied ‘stop_if_not’ to environment 1589s [00:53:08.970] - copied ‘dim’ to environment 1589s [00:53:08.970] - copied ‘valid_types’ to environment 1589s [00:53:08.970] - copied ‘future.call.arguments’ to environment 1589s [00:53:08.970] - copied ‘...future.elements_ii’ to environment 1589s [00:53:08.970] - copied ‘...future.seeds_ii’ to environment 1589s [00:53:08.971] - copied ‘...future.globals.maxSize’ to environment 1589s [00:53:08.971] assign_globals() ... done 1589s [00:53:08.971] plan(): Setting new future strategy stack: 1589s [00:53:08.971] List of future strategies: 1589s [00:53:08.971] 1. sequential: 1589s [00:53:08.971] - args: function (..., envir = parent.frame()) 1589s [00:53:08.971] - tweaked: FALSE 1589s [00:53:08.971] - call: NULL 1589s [00:53:08.972] plan(): nbrOfWorkers() = 1 1589s [00:53:08.973] plan(): Setting new future strategy stack: 1589s [00:53:08.973] List of future strategies: 1589s [00:53:08.973] 1. multisession: 1589s [00:53:08.973] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1589s [00:53:08.973] - tweaked: FALSE 1589s [00:53:08.973] - call: plan(strategy) 1589s [00:53:08.976] plan(): nbrOfWorkers() = 1 1589s [00:53:08.976] SequentialFuture started (and completed) 1589s [00:53:08.976] - Launch lazy future ... done 1589s [00:53:08.976] run() for ‘SequentialFuture’ ... done 1589s [00:53:08.977] Created future: 1589s [00:53:08.977] SequentialFuture: 1589s [00:53:08.977] Label: ‘future_vapply-1’ 1589s [00:53:08.977] Expression: 1589s [00:53:08.977] { 1589s [00:53:08.977] do.call(function(...) { 1589s [00:53:08.977] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1589s [00:53:08.977] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1589s [00:53:08.977] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1589s [00:53:08.977] on.exit(options(oopts), add = TRUE) 1589s [00:53:08.977] } 1589s [00:53:08.977] { 1589s [00:53:08.977] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1589s [00:53:08.977] ...future.X_jj <- ...future.elements_ii[[jj]] 1589s [00:53:08.977] ...future.FUN(...future.X_jj, ...) 1589s [00:53:08.977] }) 1589s [00:53:08.977] } 1589s [00:53:08.977] }, args = future.call.arguments) 1589s [00:53:08.977] } 1589s [00:53:08.977] Lazy evaluation: FALSE 1589s [00:53:08.977] Asynchronous evaluation: FALSE 1589s [00:53:08.977] Local evaluation: TRUE 1589s [00:53:08.977] Environment: R_GlobalEnv 1589s [00:53:08.977] Capture standard output: TRUE 1589s [00:53:08.977] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1589s [00:53:08.977] Globals: 11 objects totaling 93.71 KiB (function ‘...future.FUN’ of 21.22 KiB, function ‘x_FUN’ of 1.16 KiB, integer ‘times’ of 56 bytes, function ‘stopf’ of 26.43 KiB, function ‘stop_if_not’ of 44.12 KiB, ...) 1589s [00:53:08.977] Packages: 1 packages (‘future.apply’) 1589s [00:53:08.977] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1589s [00:53:08.977] Resolved: TRUE 1589s [00:53:08.977] Value: 480 bytes of class ‘list’ 1589s [00:53:08.977] Early signaling: FALSE 1589s [00:53:08.977] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1589s [00:53:08.977] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1589s [00:53:08.979] Chunk #1 of 1 ... DONE 1589s [00:53:08.980] Launching 1 futures (chunks) ... DONE 1589s [00:53:08.981] Resolving 1 futures (chunks) ... 1589s [00:53:08.981] resolve() on list ... 1589s [00:53:08.981] recursive: 0 1589s [00:53:08.981] length: 1 1589s [00:53:08.981] 1589s [00:53:08.981] resolved() for ‘SequentialFuture’ ... 1589s [00:53:08.981] - state: ‘finished’ 1589s [00:53:08.982] - run: TRUE 1589s [00:53:08.982] - result: ‘FutureResult’ 1589s [00:53:08.982] resolved() for ‘SequentialFuture’ ... done 1589s [00:53:08.982] Future #1 1589s [00:53:08.982] signalConditionsASAP(SequentialFuture, pos=1) ... 1589s [00:53:08.982] - nx: 1 1589s [00:53:08.983] - relay: TRUE 1589s [00:53:08.983] - stdout: TRUE 1589s [00:53:08.983] - signal: TRUE 1589s [00:53:08.983] - resignal: FALSE 1589s [00:53:08.983] - force: TRUE 1589s [00:53:08.983] - relayed: [n=1] FALSE 1589s [00:53:08.983] - queued futures: [n=1] FALSE 1589s [00:53:08.984] - until=1 1589s [00:53:08.984] - relaying element #1 1589s [00:53:08.984] - relayed: [n=1] TRUE 1589s [00:53:08.984] - queued futures: [n=1] TRUE 1589s [00:53:08.984] signalConditionsASAP(SequentialFuture, pos=1) ... done 1589s [00:53:08.984] length: 0 (resolved future 1) 1589s [00:53:08.985] Relaying remaining futures 1589s [00:53:08.985] signalConditionsASAP(NULL, pos=0) ... 1589s [00:53:08.985] - nx: 1 1589s [00:53:08.985] - relay: TRUE 1589s [00:53:08.985] - stdout: TRUE 1589s [00:53:08.985] - signal: TRUE 1589s [00:53:08.985] - resignal: FALSE 1589s [00:53:08.986] - force: TRUE 1589s [00:53:08.986] - relayed: [n=1] TRUE 1589s [00:53:08.986] - queued futures: [n=1] TRUE 1589s - flush all 1589s [00:53:08.986] - relayed: [n=1] TRUE 1589s [00:53:08.986] - queued futures: [n=1] TRUE 1589s [00:53:08.986] signalConditionsASAP(NULL, pos=0) ... done 1589s [00:53:08.987] resolve() on list ... DONE 1589s [00:53:08.987] - Number of value chunks collected: 1 1589s [00:53:08.987] Resolving 1 futures (chunks) ... DONE 1589s [00:53:08.987] Reducing values from 1 chunks ... 1589s [00:53:08.987] - Number of values collected after concatenation: 10 1589s [00:53:08.987] - Number of values expected: 10 1589s [00:53:08.988] Reducing values from 1 chunks ... DONE 1589s [00:53:08.988] future_lapply() ... DONE 1589s int[0 , 1:10] 1589s num [1:10] 1 1.41 1.73 2 2.24 ... 1589s [00:53:08.989] future_lapply() ... 1589s [00:53:08.994] Number of chunks: 1 1589s [00:53:08.994] getGlobalsAndPackagesXApply() ... 1589s [00:53:08.994] - future.globals: TRUE 1589s [00:53:08.994] getGlobalsAndPackages() ... 1589s [00:53:08.995] Searching for globals... 1589s [00:53:08.998] - globals found: [16] ‘FUN’, ‘{’, ‘<-’, ‘x_FUN’, ‘if’, ‘!=’, ‘length’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘all’, ‘==’, ‘dim’, ‘%in%’, ‘typeof’, ‘valid_types’ 1589s [00:53:08.998] Searching for globals ... DONE 1589s [00:53:08.999] Resolving globals: FALSE 1589s [00:53:09.000] The total size of the 7 globals is 92.12 KiB (94336 bytes) 1589s [00:53:09.000] The total size of the 7 globals exported for future expression (‘FUN()’) is 92.12 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘stop_if_not’ (44.12 KiB of class ‘function’), ‘stopf’ (26.43 KiB of class ‘function’) and ‘FUN’ (21.22 KiB of class ‘function’) 1589s [00:53:09.001] - globals: [7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1589s [00:53:09.001] - packages: [1] ‘future.apply’ 1589s [00:53:09.001] getGlobalsAndPackages() ... DONE 1589s [00:53:09.002] - globals found/used: [n=7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1589s [00:53:09.002] - needed namespaces: [n=1] ‘future.apply’ 1589s [00:53:09.002] Finding globals ... DONE 1589s [00:53:09.002] - use_args: TRUE 1589s [00:53:09.002] - Getting '...' globals ... 1589s [00:53:09.003] resolve() on list ... 1589s [00:53:09.003] recursive: 0 1589s [00:53:09.003] length: 1 1589s [00:53:09.003] elements: ‘...’ 1589s [00:53:09.003] length: 0 (resolved future 1) 1589s [00:53:09.004] resolve() on list ... DONE 1589s [00:53:09.004] - '...' content: [n=0] 1589s [00:53:09.004] List of 1 1589s [00:53:09.004] $ ...: list() 1589s [00:53:09.004] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1589s [00:53:09.004] - attr(*, "where")=List of 1 1589s [00:53:09.004] ..$ ...: 1589s [00:53:09.004] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1589s [00:53:09.004] - attr(*, "resolved")= logi TRUE 1589s [00:53:09.004] - attr(*, "total_size")= num NA 1589s [00:53:09.007] - Getting '...' globals ... DONE 1589s [00:53:09.007] Globals to be used in all futures (chunks): [n=8] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’ 1589s [00:53:09.007] List of 8 1589s [00:53:09.007] $ ...future.FUN:function (x, ...) 1589s [00:53:09.007] $ x_FUN :function (x) 1589s [00:53:09.007] $ times : int 1 1589s [00:53:09.007] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1589s [00:53:09.007] $ stop_if_not :function (...) 1589s [00:53:09.007] $ dim : NULL 1589s [00:53:09.007] $ valid_types : chr [1:3] "logical" "integer" "double" 1589s [00:53:09.007] $ ... : list() 1589s [00:53:09.007] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1589s [00:53:09.007] - attr(*, "where")=List of 8 1589s [00:53:09.007] ..$ ...future.FUN: 1589s [00:53:09.007] ..$ x_FUN : 1589s [00:53:09.007] ..$ times : 1589s [00:53:09.007] ..$ stopf : 1589s [00:53:09.007] ..$ stop_if_not : 1589s [00:53:09.007] ..$ dim : 1589s [00:53:09.007] ..$ valid_types : 1589s [00:53:09.007] ..$ ... : 1589s [00:53:09.007] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1589s [00:53:09.007] - attr(*, "resolved")= logi FALSE 1589s [00:53:09.007] - attr(*, "total_size")= num 94336 1589s [00:53:09.016] Packages to be attached in all futures: [n=1] ‘future.apply’ 1589s [00:53:09.016] getGlobalsAndPackagesXApply() ... DONE 1589s [00:53:09.016] Number of futures (= number of chunks): 1 1589s [00:53:09.017] Launching 1 futures (chunks) ... 1589s [00:53:09.017] Chunk #1 of 1 ... 1589s [00:53:09.017] - Finding globals in 'X' for chunk #1 ... 1589s [00:53:09.017] getGlobalsAndPackages() ... 1589s [00:53:09.017] Searching for globals... 1589s [00:53:09.018] 1589s [00:53:09.018] Searching for globals ... DONE 1589s [00:53:09.018] - globals: [0] 1589s [00:53:09.018] getGlobalsAndPackages() ... DONE 1589s [00:53:09.018] + additional globals found: [n=0] 1589s [00:53:09.018] + additional namespaces needed: [n=0] 1589s [00:53:09.019] - Finding globals in 'X' for chunk #1 ... DONE 1589s [00:53:09.019] - seeds: 1589s [00:53:09.019] - All globals exported: [n=11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1589s [00:53:09.019] getGlobalsAndPackages() ... 1589s [00:53:09.020] - globals passed as-is: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1589s [00:53:09.020] Resolving globals: FALSE 1589s [00:53:09.020] Tweak future expression to call with '...' arguments ... 1589s [00:53:09.020] { 1589s [00:53:09.020] do.call(function(...) { 1589s [00:53:09.020] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1589s [00:53:09.020] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1589s [00:53:09.020] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1589s [00:53:09.020] on.exit(options(oopts), add = TRUE) 1589s [00:53:09.020] } 1589s [00:53:09.020] { 1589s [00:53:09.020] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1589s [00:53:09.020] ...future.X_jj <- ...future.elements_ii[[jj]] 1589s [00:53:09.020] ...future.FUN(...future.X_jj, ...) 1589s [00:53:09.020] }) 1589s [00:53:09.020] } 1589s [00:53:09.020] }, args = future.call.arguments) 1589s [00:53:09.020] } 1589s [00:53:09.021] Tweak future expression to call with '...' arguments ... DONE 1589s [00:53:09.022] - globals: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1589s [00:53:09.022] - packages: [1] ‘future.apply’ 1589s [00:53:09.022] getGlobalsAndPackages() ... DONE 1589s [00:53:09.023] run() for ‘Future’ ... 1589s [00:53:09.023] - state: ‘created’ 1589s [00:53:09.023] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1589s [00:53:09.027] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1589s [00:53:09.027] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1589s [00:53:09.027] - Field: ‘label’ 1589s [00:53:09.027] - Field: ‘local’ 1589s [00:53:09.027] - Field: ‘owner’ 1589s [00:53:09.027] - Field: ‘envir’ 1589s [00:53:09.027] - Field: ‘packages’ 1589s [00:53:09.028] - Field: ‘gc’ 1589s [00:53:09.028] - Field: ‘conditions’ 1589s [00:53:09.028] - Field: ‘expr’ 1589s [00:53:09.028] - Field: ‘uuid’ 1589s [00:53:09.028] - Field: ‘seed’ 1589s [00:53:09.028] - Field: ‘version’ 1589s [00:53:09.028] - Field: ‘result’ 1589s [00:53:09.029] - Field: ‘asynchronous’ 1589s [00:53:09.029] - Field: ‘calls’ 1589s [00:53:09.029] - Field: ‘globals’ 1589s [00:53:09.029] - Field: ‘stdout’ 1589s [00:53:09.029] - Field: ‘earlySignal’ 1589s [00:53:09.029] - Field: ‘lazy’ 1589s [00:53:09.029] - Field: ‘state’ 1589s [00:53:09.029] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1589s [00:53:09.029] - Launch lazy future ... 1589s [00:53:09.030] Packages needed by the future expression (n = 1): ‘future.apply’ 1589s [00:53:09.030] Packages needed by future strategies (n = 0): 1589s [00:53:09.030] { 1589s [00:53:09.030] { 1589s [00:53:09.030] { 1589s [00:53:09.030] ...future.startTime <- base::Sys.time() 1589s [00:53:09.030] { 1589s [00:53:09.030] { 1589s [00:53:09.030] { 1589s [00:53:09.030] { 1589s [00:53:09.030] base::local({ 1589s [00:53:09.030] has_future <- base::requireNamespace("future", 1589s [00:53:09.030] quietly = TRUE) 1589s [00:53:09.030] if (has_future) { 1589s [00:53:09.030] ns <- base::getNamespace("future") 1589s [00:53:09.030] version <- ns[[".package"]][["version"]] 1589s [00:53:09.030] if (is.null(version)) 1589s [00:53:09.030] version <- utils::packageVersion("future") 1589s [00:53:09.030] } 1589s [00:53:09.030] else { 1589s [00:53:09.030] version <- NULL 1589s [00:53:09.030] } 1589s [00:53:09.030] if (!has_future || version < "1.8.0") { 1589s [00:53:09.030] info <- base::c(r_version = base::gsub("R version ", 1589s [00:53:09.030] "", base::R.version$version.string), 1589s [00:53:09.030] platform = base::sprintf("%s (%s-bit)", 1589s [00:53:09.030] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1589s [00:53:09.030] os = base::paste(base::Sys.info()[base::c("sysname", 1589s [00:53:09.030] "release", "version")], collapse = " "), 1589s [00:53:09.030] hostname = base::Sys.info()[["nodename"]]) 1589s [00:53:09.030] info <- base::sprintf("%s: %s", base::names(info), 1589s [00:53:09.030] info) 1589s [00:53:09.030] info <- base::paste(info, collapse = "; ") 1589s [00:53:09.030] if (!has_future) { 1589s [00:53:09.030] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1589s [00:53:09.030] info) 1589s [00:53:09.030] } 1589s [00:53:09.030] else { 1589s [00:53:09.030] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1589s [00:53:09.030] info, version) 1589s [00:53:09.030] } 1589s [00:53:09.030] base::stop(msg) 1589s [00:53:09.030] } 1589s [00:53:09.030] }) 1589s [00:53:09.030] } 1589s [00:53:09.030] base::local({ 1589s [00:53:09.030] for (pkg in "future.apply") { 1589s [00:53:09.030] base::loadNamespace(pkg) 1589s [00:53:09.030] base::library(pkg, character.only = TRUE) 1589s [00:53:09.030] } 1589s [00:53:09.030] }) 1589s [00:53:09.030] } 1589s [00:53:09.030] options(future.plan = NULL) 1589s [00:53:09.030] Sys.unsetenv("R_FUTURE_PLAN") 1589s [00:53:09.030] future::plan("default", .cleanup = FALSE, .init = FALSE) 1589s [00:53:09.030] } 1589s [00:53:09.030] ...future.workdir <- getwd() 1589s [00:53:09.030] } 1589s [00:53:09.030] ...future.oldOptions <- base::as.list(base::.Options) 1589s [00:53:09.030] ...future.oldEnvVars <- base::Sys.getenv() 1589s [00:53:09.030] } 1589s [00:53:09.030] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1589s [00:53:09.030] future.globals.maxSize = NULL, future.globals.method = NULL, 1589s [00:53:09.030] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1589s [00:53:09.030] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1589s [00:53:09.030] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1589s [00:53:09.030] future.stdout.windows.reencode = NULL, width = 80L) 1589s [00:53:09.030] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1589s [00:53:09.030] base::names(...future.oldOptions)) 1589s [00:53:09.030] } 1589s [00:53:09.030] if (FALSE) { 1589s [00:53:09.030] } 1589s [00:53:09.030] else { 1589s [00:53:09.030] if (TRUE) { 1589s [00:53:09.030] ...future.stdout <- base::rawConnection(base::raw(0L), 1589s [00:53:09.030] open = "w") 1589s [00:53:09.030] } 1589s [00:53:09.030] else { 1589s [00:53:09.030] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1589s [00:53:09.030] windows = "NUL", "/dev/null"), open = "w") 1589s [00:53:09.030] } 1589s [00:53:09.030] base::sink(...future.stdout, type = "output", split = FALSE) 1589s [00:53:09.030] base::on.exit(if (!base::is.null(...future.stdout)) { 1589s [00:53:09.030] base::sink(type = "output", split = FALSE) 1589s [00:53:09.030] base::close(...future.stdout) 1589s [00:53:09.030] }, add = TRUE) 1589s [00:53:09.030] } 1589s [00:53:09.030] ...future.frame <- base::sys.nframe() 1589s [00:53:09.030] ...future.conditions <- base::list() 1589s [00:53:09.030] ...future.rng <- base::globalenv()$.Random.seed 1589s [00:53:09.030] if (FALSE) { 1589s [00:53:09.030] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1589s [00:53:09.030] "...future.value", "...future.globalenv.names", ".Random.seed") 1589s [00:53:09.030] } 1589s [00:53:09.030] ...future.result <- base::tryCatch({ 1589s [00:53:09.030] base::withCallingHandlers({ 1589s [00:53:09.030] ...future.value <- base::withVisible(base::local({ 1589s [00:53:09.030] do.call(function(...) { 1589s [00:53:09.030] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1589s [00:53:09.030] if (!identical(...future.globals.maxSize.org, 1589s [00:53:09.030] ...future.globals.maxSize)) { 1589s [00:53:09.030] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1589s [00:53:09.030] on.exit(options(oopts), add = TRUE) 1589s [00:53:09.030] } 1589s [00:53:09.030] { 1589s [00:53:09.030] lapply(seq_along(...future.elements_ii), 1589s [00:53:09.030] FUN = function(jj) { 1589s [00:53:09.030] ...future.X_jj <- ...future.elements_ii[[jj]] 1589s [00:53:09.030] ...future.FUN(...future.X_jj, ...) 1589s [00:53:09.030] }) 1589s [00:53:09.030] } 1589s [00:53:09.030] }, args = future.call.arguments) 1589s [00:53:09.030] })) 1589s [00:53:09.030] future::FutureResult(value = ...future.value$value, 1589s [00:53:09.030] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1589s [00:53:09.030] ...future.rng), globalenv = if (FALSE) 1589s [00:53:09.030] list(added = base::setdiff(base::names(base::.GlobalEnv), 1589s [00:53:09.030] ...future.globalenv.names)) 1589s [00:53:09.030] else NULL, started = ...future.startTime, version = "1.8") 1589s [00:53:09.030] }, condition = base::local({ 1589s [00:53:09.030] c <- base::c 1589s [00:53:09.030] inherits <- base::inherits 1589s [00:53:09.030] invokeRestart <- base::invokeRestart 1589s [00:53:09.030] length <- base::length 1589s [00:53:09.030] list <- base::list 1589s [00:53:09.030] seq.int <- base::seq.int 1589s [00:53:09.030] signalCondition <- base::signalCondition 1589s [00:53:09.030] sys.calls <- base::sys.calls 1589s [00:53:09.030] `[[` <- base::`[[` 1589s [00:53:09.030] `+` <- base::`+` 1589s [00:53:09.030] `<<-` <- base::`<<-` 1589s [00:53:09.030] sysCalls <- function(calls = sys.calls(), from = 1L) { 1589s [00:53:09.030] calls[seq.int(from = from + 12L, to = length(calls) - 1589s [00:53:09.030] 3L)] 1589s [00:53:09.030] } 1589s [00:53:09.030] function(cond) { 1589s [00:53:09.030] is_error <- inherits(cond, "error") 1589s [00:53:09.030] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1589s [00:53:09.030] NULL) 1589s [00:53:09.030] if (is_error) { 1589s [00:53:09.030] sessionInformation <- function() { 1589s [00:53:09.030] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1589s [00:53:09.030] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1589s [00:53:09.030] search = base::search(), system = base::Sys.info()) 1589s [00:53:09.030] } 1589s [00:53:09.030] ...future.conditions[[length(...future.conditions) + 1589s [00:53:09.030] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1589s [00:53:09.030] cond$call), session = sessionInformation(), 1589s [00:53:09.030] timestamp = base::Sys.time(), signaled = 0L) 1589s [00:53:09.030] signalCondition(cond) 1589s [00:53:09.030] } 1589s [00:53:09.030] else if (!ignore && TRUE && inherits(cond, c("condition", 1589s [00:53:09.030] "immediateCondition"))) { 1589s [00:53:09.030] signal <- TRUE && inherits(cond, "immediateCondition") 1589s [00:53:09.030] ...future.conditions[[length(...future.conditions) + 1589s [00:53:09.030] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1589s [00:53:09.030] if (TRUE && !signal) { 1589s [00:53:09.030] muffleCondition <- function (cond, pattern = "^muffle") 1589s [00:53:09.030] { 1589s [00:53:09.030] inherits <- base::inherits 1589s [00:53:09.030] invokeRestart <- base::invokeRestart 1589s [00:53:09.030] is.null <- base::is.null 1589s [00:53:09.030] muffled <- FALSE 1589s [00:53:09.030] if (inherits(cond, "message")) { 1589s [00:53:09.030] muffled <- grepl(pattern, "muffleMessage") 1589s [00:53:09.030] if (muffled) 1589s [00:53:09.030] invokeRestart("muffleMessage") 1589s [00:53:09.030] } 1589s [00:53:09.030] else if (inherits(cond, "warning")) { 1589s [00:53:09.030] muffled <- grepl(pattern, "muffleWarning") 1589s [00:53:09.030] if (muffled) 1589s [00:53:09.030] invokeRestart("muffleWarning") 1589s [00:53:09.030] } 1589s [00:53:09.030] else if (inherits(cond, "condition")) { 1589s [00:53:09.030] if (!is.null(pattern)) { 1589s [00:53:09.030] computeRestarts <- base::computeRestarts 1589s [00:53:09.030] grepl <- base::grepl 1589s [00:53:09.030] restarts <- computeRestarts(cond) 1589s [00:53:09.030] for (restart in restarts) { 1589s [00:53:09.030] name <- restart$name 1589s [00:53:09.030] if (is.null(name)) 1589s [00:53:09.030] next 1589s [00:53:09.030] if (!grepl(pattern, name)) 1589s [00:53:09.030] next 1589s [00:53:09.030] invokeRestart(restart) 1589s [00:53:09.030] muffled <- TRUE 1589s [00:53:09.030] break 1589s [00:53:09.030] } 1589s [00:53:09.030] } 1589s [00:53:09.030] } 1589s [00:53:09.030] invisible(muffled) 1589s [00:53:09.030] } 1589s [00:53:09.030] muffleCondition(cond, pattern = "^muffle") 1589s [00:53:09.030] } 1589s [00:53:09.030] } 1589s [00:53:09.030] else { 1589s [00:53:09.030] if (TRUE) { 1589s [00:53:09.030] muffleCondition <- function (cond, pattern = "^muffle") 1589s [00:53:09.030] { 1589s [00:53:09.030] inherits <- base::inherits 1589s [00:53:09.030] invokeRestart <- base::invokeRestart 1589s [00:53:09.030] is.null <- base::is.null 1589s [00:53:09.030] muffled <- FALSE 1589s [00:53:09.030] if (inherits(cond, "message")) { 1589s [00:53:09.030] muffled <- grepl(pattern, "muffleMessage") 1589s [00:53:09.030] if (muffled) 1589s [00:53:09.030] invokeRestart("muffleMessage") 1589s [00:53:09.030] } 1589s [00:53:09.030] else if (inherits(cond, "warning")) { 1589s [00:53:09.030] muffled <- grepl(pattern, "muffleWarning") 1589s [00:53:09.030] if (muffled) 1589s [00:53:09.030] invokeRestart("muffleWarning") 1589s [00:53:09.030] } 1589s [00:53:09.030] else if (inherits(cond, "condition")) { 1589s [00:53:09.030] if (!is.null(pattern)) { 1589s [00:53:09.030] computeRestarts <- base::computeRestarts 1589s [00:53:09.030] grepl <- base::grepl 1589s [00:53:09.030] restarts <- computeRestarts(cond) 1589s [00:53:09.030] for (restart in restarts) { 1589s [00:53:09.030] name <- restart$name 1589s [00:53:09.030] if (is.null(name)) 1589s [00:53:09.030] next 1589s [00:53:09.030] if (!grepl(pattern, name)) 1589s [00:53:09.030] next 1589s [00:53:09.030] invokeRestart(restart) 1589s [00:53:09.030] muffled <- TRUE 1589s [00:53:09.030] break 1589s [00:53:09.030] } 1589s [00:53:09.030] } 1589s [00:53:09.030] } 1589s [00:53:09.030] invisible(muffled) 1589s [00:53:09.030] } 1589s [00:53:09.030] muffleCondition(cond, pattern = "^muffle") 1589s [00:53:09.030] } 1589s [00:53:09.030] } 1589s [00:53:09.030] } 1589s [00:53:09.030] })) 1589s [00:53:09.030] }, error = function(ex) { 1589s [00:53:09.030] base::structure(base::list(value = NULL, visible = NULL, 1589s [00:53:09.030] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1589s [00:53:09.030] ...future.rng), started = ...future.startTime, 1589s [00:53:09.030] finished = Sys.time(), session_uuid = NA_character_, 1589s [00:53:09.030] version = "1.8"), class = "FutureResult") 1589s [00:53:09.030] }, finally = { 1589s [00:53:09.030] if (!identical(...future.workdir, getwd())) 1589s [00:53:09.030] setwd(...future.workdir) 1589s [00:53:09.030] { 1589s [00:53:09.030] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1589s [00:53:09.030] ...future.oldOptions$nwarnings <- NULL 1589s [00:53:09.030] } 1589s [00:53:09.030] base::options(...future.oldOptions) 1589s [00:53:09.030] if (.Platform$OS.type == "windows") { 1589s [00:53:09.030] old_names <- names(...future.oldEnvVars) 1589s [00:53:09.030] envs <- base::Sys.getenv() 1589s [00:53:09.030] names <- names(envs) 1589s [00:53:09.030] common <- intersect(names, old_names) 1589s [00:53:09.030] added <- setdiff(names, old_names) 1589s [00:53:09.030] removed <- setdiff(old_names, names) 1589s [00:53:09.030] changed <- common[...future.oldEnvVars[common] != 1589s [00:53:09.030] envs[common]] 1589s [00:53:09.030] NAMES <- toupper(changed) 1589s [00:53:09.030] args <- list() 1589s [00:53:09.030] for (kk in seq_along(NAMES)) { 1589s [00:53:09.030] name <- changed[[kk]] 1589s [00:53:09.030] NAME <- NAMES[[kk]] 1589s [00:53:09.030] if (name != NAME && is.element(NAME, old_names)) 1589s [00:53:09.030] next 1589s [00:53:09.030] args[[name]] <- ...future.oldEnvVars[[name]] 1589s [00:53:09.030] } 1589s [00:53:09.030] NAMES <- toupper(added) 1589s [00:53:09.030] for (kk in seq_along(NAMES)) { 1589s [00:53:09.030] name <- added[[kk]] 1589s [00:53:09.030] NAME <- NAMES[[kk]] 1589s [00:53:09.030] if (name != NAME && is.element(NAME, old_names)) 1589s [00:53:09.030] next 1589s [00:53:09.030] args[[name]] <- "" 1589s [00:53:09.030] } 1589s [00:53:09.030] NAMES <- toupper(removed) 1589s [00:53:09.030] for (kk in seq_along(NAMES)) { 1589s [00:53:09.030] name <- removed[[kk]] 1589s [00:53:09.030] NAME <- NAMES[[kk]] 1589s [00:53:09.030] if (name != NAME && is.element(NAME, old_names)) 1589s [00:53:09.030] next 1589s [00:53:09.030] args[[name]] <- ...future.oldEnvVars[[name]] 1589s [00:53:09.030] } 1589s [00:53:09.030] if (length(args) > 0) 1589s [00:53:09.030] base::do.call(base::Sys.setenv, args = args) 1589s [00:53:09.030] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1589s [00:53:09.030] } 1589s [00:53:09.030] else { 1589s [00:53:09.030] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1589s [00:53:09.030] } 1589s [00:53:09.030] { 1589s [00:53:09.030] if (base::length(...future.futureOptionsAdded) > 1589s [00:53:09.030] 0L) { 1589s [00:53:09.030] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1589s [00:53:09.030] base::names(opts) <- ...future.futureOptionsAdded 1589s [00:53:09.030] base::options(opts) 1589s [00:53:09.030] } 1589s [00:53:09.030] { 1589s [00:53:09.030] { 1589s [00:53:09.030] NULL 1589s [00:53:09.030] RNGkind("Mersenne-Twister") 1589s [00:53:09.030] base::rm(list = ".Random.seed", envir = base::globalenv(), 1589s [00:53:09.030] inherits = FALSE) 1589s [00:53:09.030] } 1589s [00:53:09.030] options(future.plan = NULL) 1589s [00:53:09.030] if (is.na(NA_character_)) 1589s [00:53:09.030] Sys.unsetenv("R_FUTURE_PLAN") 1589s [00:53:09.030] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1589s [00:53:09.030] future::plan(list(function (..., workers = availableCores(), 1589s [00:53:09.030] lazy = FALSE, rscript_libs = .libPaths(), 1589s [00:53:09.030] envir = parent.frame()) 1589s [00:53:09.030] { 1589s [00:53:09.030] if (is.function(workers)) 1589s [00:53:09.030] workers <- workers() 1589s [00:53:09.030] workers <- structure(as.integer(workers), 1589s [00:53:09.030] class = class(workers)) 1589s [00:53:09.030] stop_if_not(length(workers) == 1, is.finite(workers), 1589s [00:53:09.030] workers >= 1) 1589s [00:53:09.030] if (workers == 1L && !inherits(workers, "AsIs")) { 1589s [00:53:09.030] return(sequential(..., lazy = TRUE, envir = envir)) 1589s [00:53:09.030] } 1589s [00:53:09.030] future <- MultisessionFuture(..., workers = workers, 1589s [00:53:09.030] lazy = lazy, rscript_libs = rscript_libs, 1589s [00:53:09.030] envir = envir) 1589s [00:53:09.030] if (!future$lazy) 1589s [00:53:09.030] future <- run(future) 1589s [00:53:09.030] invisible(future) 1589s [00:53:09.030] }), .cleanup = FALSE, .init = FALSE) 1589s [00:53:09.030] } 1589s [00:53:09.030] } 1589s [00:53:09.030] } 1589s [00:53:09.030] }) 1589s [00:53:09.030] if (TRUE) { 1589s [00:53:09.030] base::sink(type = "output", split = FALSE) 1589s [00:53:09.030] if (TRUE) { 1589s [00:53:09.030] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1589s [00:53:09.030] } 1589s [00:53:09.030] else { 1589s [00:53:09.030] ...future.result["stdout"] <- base::list(NULL) 1589s [00:53:09.030] } 1589s [00:53:09.030] base::close(...future.stdout) 1589s [00:53:09.030] ...future.stdout <- NULL 1589s [00:53:09.030] } 1589s [00:53:09.030] ...future.result$conditions <- ...future.conditions 1589s [00:53:09.030] ...future.result$finished <- base::Sys.time() 1589s [00:53:09.030] ...future.result 1589s [00:53:09.030] } 1589s [00:53:09.034] assign_globals() ... 1589s [00:53:09.034] List of 11 1589s [00:53:09.034] $ ...future.FUN :function (x, ...) 1589s [00:53:09.034] $ x_FUN :function (x) 1589s [00:53:09.034] $ times : int 1 1589s [00:53:09.034] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1589s [00:53:09.034] $ stop_if_not :function (...) 1589s [00:53:09.034] $ dim : NULL 1589s [00:53:09.034] $ valid_types : chr [1:3] "logical" "integer" "double" 1589s [00:53:09.034] $ future.call.arguments : list() 1589s [00:53:09.034] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1589s [00:53:09.034] $ ...future.elements_ii :List of 10 1589s [00:53:09.034] ..$ : int 1 1589s [00:53:09.034] ..$ : int 2 1589s [00:53:09.034] ..$ : int 3 1589s [00:53:09.034] ..$ : int 4 1589s [00:53:09.034] ..$ : int 5 1589s [00:53:09.034] ..$ : int 6 1589s [00:53:09.034] ..$ : int 7 1589s [00:53:09.034] ..$ : int 8 1589s [00:53:09.034] ..$ : int 9 1589s [00:53:09.034] ..$ : int 10 1589s [00:53:09.034] $ ...future.seeds_ii : NULL 1589s [00:53:09.034] $ ...future.globals.maxSize: NULL 1589s [00:53:09.034] - attr(*, "where")=List of 11 1589s [00:53:09.034] ..$ ...future.FUN : 1589s [00:53:09.034] ..$ x_FUN : 1589s [00:53:09.034] ..$ times : 1589s [00:53:09.034] ..$ stopf : 1589s [00:53:09.034] ..$ stop_if_not : 1589s [00:53:09.034] ..$ dim : 1589s [00:53:09.034] ..$ valid_types : 1589s [00:53:09.034] ..$ future.call.arguments : 1589s [00:53:09.034] ..$ ...future.elements_ii : 1589s [00:53:09.034] ..$ ...future.seeds_ii : 1589s [00:53:09.034] ..$ ...future.globals.maxSize: 1589s [00:53:09.034] - attr(*, "resolved")= logi FALSE 1589s [00:53:09.034] - attr(*, "total_size")= num 94336 1589s [00:53:09.034] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1589s [00:53:09.034] - attr(*, "already-done")= logi TRUE 1589s [00:53:09.049] - copied ‘...future.FUN’ to environment 1589s [00:53:09.049] - copied ‘x_FUN’ to environment 1589s [00:53:09.049] - copied ‘times’ to environment 1589s [00:53:09.049] - copied ‘stopf’ to environment 1589s [00:53:09.050] - copied ‘stop_if_not’ to environment 1589s [00:53:09.050] - copied ‘dim’ to environment 1589s [00:53:09.050] - copied ‘valid_types’ to environment 1589s [00:53:09.050] - copied ‘future.call.arguments’ to environment 1589s [00:53:09.050] - copied ‘...future.elements_ii’ to environment 1589s [00:53:09.050] - copied ‘...future.seeds_ii’ to environment 1589s [00:53:09.050] - copied ‘...future.globals.maxSize’ to environment 1589s [00:53:09.051] assign_globals() ... done 1589s [00:53:09.051] plan(): Setting new future strategy stack: 1589s [00:53:09.051] List of future strategies: 1589s [00:53:09.051] 1. sequential: 1589s [00:53:09.051] - args: function (..., envir = parent.frame()) 1589s [00:53:09.051] - tweaked: FALSE 1589s [00:53:09.051] - call: NULL 1589s [00:53:09.052] plan(): nbrOfWorkers() = 1 1589s [00:53:09.053] plan(): Setting new future strategy stack: 1589s [00:53:09.053] List of future strategies: 1589s [00:53:09.053] 1. multisession: 1589s [00:53:09.053] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1589s [00:53:09.053] - tweaked: FALSE 1589s [00:53:09.053] - call: plan(strategy) 1589s [00:53:09.056] plan(): nbrOfWorkers() = 1 1589s [00:53:09.056] SequentialFuture started (and completed) 1589s [00:53:09.056] - Launch lazy future ... done 1589s [00:53:09.056] run() for ‘SequentialFuture’ ... done 1589s [00:53:09.057] Created future: 1589s [00:53:09.057] SequentialFuture: 1589s [00:53:09.057] Label: ‘future_vapply-1’ 1589s [00:53:09.057] Expression: 1589s [00:53:09.057] { 1589s [00:53:09.057] do.call(function(...) { 1589s [00:53:09.057] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1589s [00:53:09.057] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1589s [00:53:09.057] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1589s [00:53:09.057] on.exit(options(oopts), add = TRUE) 1589s [00:53:09.057] } 1589s [00:53:09.057] { 1589s [00:53:09.057] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1589s [00:53:09.057] ...future.X_jj <- ...future.elements_ii[[jj]] 1589s [00:53:09.057] ...future.FUN(...future.X_jj, ...) 1589s [00:53:09.057] }) 1589s [00:53:09.057] } 1589s [00:53:09.057] }, args = future.call.arguments) 1589s [00:53:09.057] } 1589s [00:53:09.057] Lazy evaluation: FALSE 1589s [00:53:09.057] Asynchronous evaluation: FALSE 1589s [00:53:09.057] Local evaluation: TRUE 1589s [00:53:09.057] Environment: R_GlobalEnv 1589s [00:53:09.057] Capture standard output: TRUE 1589s [00:53:09.057] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1589s [00:53:09.057] Globals: 11 objects totaling 92.67 KiB (function ‘...future.FUN’ of 21.22 KiB, function ‘x_FUN’ of 56 bytes, integer ‘times’ of 56 bytes, function ‘stopf’ of 26.43 KiB, function ‘stop_if_not’ of 44.12 KiB, ...) 1589s [00:53:09.057] Packages: 1 packages (‘future.apply’) 1589s [00:53:09.057] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1589s [00:53:09.057] Resolved: TRUE 1589s [00:53:09.057] Value: 560 bytes of class ‘list’ 1589s [00:53:09.057] Early signaling: FALSE 1589s [00:53:09.057] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1589s [00:53:09.057] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1589s [00:53:09.058] Chunk #1 of 1 ... DONE 1589s [00:53:09.059] Launching 1 futures (chunks) ... DONE 1589s [00:53:09.059] Resolving 1 futures (chunks) ... 1589s [00:53:09.059] resolve() on list ... 1589s [00:53:09.059] recursive: 0 1589s [00:53:09.059] length: 1 1589s [00:53:09.059] 1589s [00:53:09.059] resolved() for ‘SequentialFuture’ ... 1589s [00:53:09.060] - state: ‘finished’ 1589s [00:53:09.060] - run: TRUE 1589s [00:53:09.060] - result: ‘FutureResult’ 1589s [00:53:09.060] resolved() for ‘SequentialFuture’ ... done 1589s [00:53:09.060] Future #1 1589s [00:53:09.060] signalConditionsASAP(SequentialFuture, pos=1) ... 1589s [00:53:09.061] - nx: 1 1589s [00:53:09.061] - relay: TRUE 1589s [00:53:09.061] - stdout: TRUE 1589s [00:53:09.061] - signal: TRUE 1589s [00:53:09.061] - resignal: FALSE 1589s [00:53:09.061] - force: TRUE 1589s [00:53:09.061] - relayed: [n=1] FALSE 1589s [00:53:09.061] - queued futures: [n=1] FALSE 1589s [00:53:09.062] - until=1 1589s [00:53:09.062] - relaying element #1 1589s [00:53:09.062] - relayed: [n=1] TRUE 1589s [00:53:09.063] - queued futures: [n=1] TRUE 1589s [00:53:09.063] signalConditionsASAP(SequentialFuture, pos=1) ... done 1589s [00:53:09.063] length: 0 (resolved future 1) 1589s [00:53:09.063] Relaying remaining futures 1589s [00:53:09.063] signalConditionsASAP(NULL, pos=0) ... 1589s [00:53:09.063] - nx: 1 1589s [00:53:09.063] - relay: TRUE 1589s [00:53:09.064] - stdout: TRUE 1589s [00:53:09.064] - signal: TRUE 1589s [00:53:09.064] - resignal: FALSE 1589s [00:53:09.064] - force: TRUE 1589s [00:53:09.064] - relayed: [n=1] TRUE 1589s [00:53:09.064] - queued futures: [n=1] TRUE 1589s - flush all 1589s [00:53:09.064] - relayed: [n=1] TRUE 1589s [00:53:09.065] - queued futures: [n=1] TRUE 1589s [00:53:09.065] signalConditionsASAP(NULL, pos=0) ... done 1589s [00:53:09.065] resolve() on list ... DONE 1589s [00:53:09.065] - Number of value chunks collected: 1 1589s [00:53:09.065] Resolving 1 futures (chunks) ... DONE 1589s [00:53:09.065] Reducing values from 1 chunks ... 1589s [00:53:09.066] - Number of values collected after concatenation: 10 1589s [00:53:09.066] - Number of values expected: 10 1589s [00:53:09.066] Reducing values from 1 chunks ... DONE 1589s [00:53:09.066] future_lapply() ... DONE 1589s num [1:10] 1 1.41 1.73 2 2.24 ... 1589s num [1:2, 1:10] 1 1 2 4 3 9 4 16 5 25 ... 1589s [00:53:09.067] future_lapply() ... 1589s [00:53:09.075] Number of chunks: 1 1589s [00:53:09.075] getGlobalsAndPackagesXApply() ... 1589s [00:53:09.075] - future.globals: TRUE 1589s [00:53:09.075] getGlobalsAndPackages() ... 1589s [00:53:09.075] Searching for globals... 1589s [00:53:09.080] - globals found: [18] ‘FUN’, ‘{’, ‘<-’, ‘x_FUN’, ‘if’, ‘!=’, ‘length’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘all’, ‘==’, ‘dim’, ‘%in%’, ‘typeof’, ‘valid_types’, ‘c’, ‘^’ 1589s [00:53:09.080] Searching for globals ... DONE 1589s [00:53:09.081] Resolving globals: FALSE 1589s [00:53:09.082] The total size of the 7 globals is 94.20 KiB (96456 bytes) 1589s [00:53:09.083] The total size of the 7 globals exported for future expression (‘FUN()’) is 94.20 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘stop_if_not’ (44.12 KiB of class ‘function’), ‘stopf’ (26.43 KiB of class ‘function’) and ‘FUN’ (21.22 KiB of class ‘function’) 1589s [00:53:09.084] - globals: [7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1589s [00:53:09.084] - packages: [1] ‘future.apply’ 1589s [00:53:09.084] getGlobalsAndPackages() ... DONE 1589s [00:53:09.084] - globals found/used: [n=7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1589s [00:53:09.084] - needed namespaces: [n=1] ‘future.apply’ 1589s [00:53:09.085] Finding globals ... DONE 1589s [00:53:09.085] - use_args: TRUE 1589s [00:53:09.085] - Getting '...' globals ... 1589s [00:53:09.085] resolve() on list ... 1589s [00:53:09.085] recursive: 0 1589s [00:53:09.086] length: 1 1589s [00:53:09.086] elements: ‘...’ 1589s [00:53:09.086] length: 0 (resolved future 1) 1589s [00:53:09.086] resolve() on list ... DONE 1589s [00:53:09.086] - '...' content: [n=0] 1589s [00:53:09.086] List of 1 1589s [00:53:09.086] $ ...: list() 1589s [00:53:09.086] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1589s [00:53:09.086] - attr(*, "where")=List of 1 1589s [00:53:09.086] ..$ ...: 1589s [00:53:09.086] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1589s [00:53:09.086] - attr(*, "resolved")= logi TRUE 1589s [00:53:09.086] - attr(*, "total_size")= num NA 1589s [00:53:09.090] - Getting '...' globals ... DONE 1589s [00:53:09.090] Globals to be used in all futures (chunks): [n=8] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’ 1589s [00:53:09.090] List of 8 1589s [00:53:09.090] $ ...future.FUN:function (x, ...) 1589s [00:53:09.090] $ x_FUN :function (x) 1589s [00:53:09.090] $ times : int 2 1589s [00:53:09.090] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1589s [00:53:09.090] $ stop_if_not :function (...) 1589s [00:53:09.090] $ dim : NULL 1589s [00:53:09.090] $ valid_types : chr [1:3] "logical" "integer" "double" 1589s [00:53:09.090] $ ... : list() 1589s [00:53:09.090] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1589s [00:53:09.090] - attr(*, "where")=List of 8 1589s [00:53:09.090] ..$ ...future.FUN: 1589s [00:53:09.090] ..$ x_FUN : 1589s [00:53:09.090] ..$ times : 1589s [00:53:09.090] ..$ stopf : 1589s [00:53:09.090] ..$ stop_if_not : 1589s [00:53:09.090] ..$ dim : 1589s [00:53:09.090] ..$ valid_types : 1589s [00:53:09.090] ..$ ... : 1589s [00:53:09.090] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1589s [00:53:09.090] - attr(*, "resolved")= logi FALSE 1589s [00:53:09.090] - attr(*, "total_size")= num 96456 1589s [00:53:09.098] Packages to be attached in all futures: [n=1] ‘future.apply’ 1589s [00:53:09.098] getGlobalsAndPackagesXApply() ... DONE 1589s [00:53:09.099] Number of futures (= number of chunks): 1 1589s [00:53:09.099] Launching 1 futures (chunks) ... 1589s [00:53:09.103] Chunk #1 of 1 ... 1589s [00:53:09.103] - Finding globals in 'X' for chunk #1 ... 1589s [00:53:09.103] getGlobalsAndPackages() ... 1589s [00:53:09.104] Searching for globals... 1589s [00:53:09.104] 1589s [00:53:09.104] Searching for globals ... DONE 1589s [00:53:09.104] - globals: [0] 1589s [00:53:09.105] getGlobalsAndPackages() ... DONE 1589s [00:53:09.105] + additional globals found: [n=0] 1589s [00:53:09.105] + additional namespaces needed: [n=0] 1589s [00:53:09.105] - Finding globals in 'X' for chunk #1 ... DONE 1589s [00:53:09.106] - seeds: 1589s [00:53:09.106] - All globals exported: [n=11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1589s [00:53:09.106] getGlobalsAndPackages() ... 1589s [00:53:09.106] - globals passed as-is: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1589s [00:53:09.107] Resolving globals: FALSE 1589s [00:53:09.107] Tweak future expression to call with '...' arguments ... 1589s [00:53:09.107] { 1589s [00:53:09.107] do.call(function(...) { 1589s [00:53:09.107] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1589s [00:53:09.107] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1589s [00:53:09.107] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1589s [00:53:09.107] on.exit(options(oopts), add = TRUE) 1589s [00:53:09.107] } 1589s [00:53:09.107] { 1589s [00:53:09.107] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1589s [00:53:09.107] ...future.X_jj <- ...future.elements_ii[[jj]] 1589s [00:53:09.107] ...future.FUN(...future.X_jj, ...) 1589s [00:53:09.107] }) 1589s [00:53:09.107] } 1589s [00:53:09.107] }, args = future.call.arguments) 1589s [00:53:09.107] } 1589s [00:53:09.108] Tweak future expression to call with '...' arguments ... DONE 1589s [00:53:09.109] - globals: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1589s [00:53:09.109] - packages: [1] ‘future.apply’ 1589s [00:53:09.109] getGlobalsAndPackages() ... DONE 1589s [00:53:09.110] run() for ‘Future’ ... 1589s [00:53:09.111] - state: ‘created’ 1589s [00:53:09.111] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1589s [00:53:09.115] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1589s [00:53:09.115] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1589s [00:53:09.116] - Field: ‘label’ 1589s [00:53:09.116] - Field: ‘local’ 1589s [00:53:09.116] - Field: ‘owner’ 1589s [00:53:09.116] - Field: ‘envir’ 1589s [00:53:09.116] - Field: ‘packages’ 1589s [00:53:09.116] - Field: ‘gc’ 1589s [00:53:09.116] - Field: ‘conditions’ 1589s [00:53:09.117] - Field: ‘expr’ 1589s [00:53:09.117] - Field: ‘uuid’ 1589s [00:53:09.117] - Field: ‘seed’ 1589s [00:53:09.117] - Field: ‘version’ 1589s [00:53:09.117] - Field: ‘result’ 1589s [00:53:09.117] - Field: ‘asynchronous’ 1589s [00:53:09.117] - Field: ‘calls’ 1589s [00:53:09.118] - Field: ‘globals’ 1589s [00:53:09.118] - Field: ‘stdout’ 1589s [00:53:09.118] - Field: ‘earlySignal’ 1589s [00:53:09.118] - Field: ‘lazy’ 1589s [00:53:09.118] - Field: ‘state’ 1589s [00:53:09.119] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1589s [00:53:09.119] - Launch lazy future ... 1589s [00:53:09.119] Packages needed by the future expression (n = 1): ‘future.apply’ 1589s [00:53:09.120] Packages needed by future strategies (n = 0): 1589s [00:53:09.120] { 1589s [00:53:09.120] { 1589s [00:53:09.120] { 1589s [00:53:09.120] ...future.startTime <- base::Sys.time() 1589s [00:53:09.120] { 1589s [00:53:09.120] { 1589s [00:53:09.120] { 1589s [00:53:09.120] { 1589s [00:53:09.120] base::local({ 1589s [00:53:09.120] has_future <- base::requireNamespace("future", 1589s [00:53:09.120] quietly = TRUE) 1589s [00:53:09.120] if (has_future) { 1589s [00:53:09.120] ns <- base::getNamespace("future") 1589s [00:53:09.120] version <- ns[[".package"]][["version"]] 1589s [00:53:09.120] if (is.null(version)) 1589s [00:53:09.120] version <- utils::packageVersion("future") 1589s [00:53:09.120] } 1589s [00:53:09.120] else { 1589s [00:53:09.120] version <- NULL 1589s [00:53:09.120] } 1589s [00:53:09.120] if (!has_future || version < "1.8.0") { 1589s [00:53:09.120] info <- base::c(r_version = base::gsub("R version ", 1589s [00:53:09.120] "", base::R.version$version.string), 1589s [00:53:09.120] platform = base::sprintf("%s (%s-bit)", 1589s [00:53:09.120] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1589s [00:53:09.120] os = base::paste(base::Sys.info()[base::c("sysname", 1589s [00:53:09.120] "release", "version")], collapse = " "), 1589s [00:53:09.120] hostname = base::Sys.info()[["nodename"]]) 1589s [00:53:09.120] info <- base::sprintf("%s: %s", base::names(info), 1589s [00:53:09.120] info) 1589s [00:53:09.120] info <- base::paste(info, collapse = "; ") 1589s [00:53:09.120] if (!has_future) { 1589s [00:53:09.120] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1589s [00:53:09.120] info) 1589s [00:53:09.120] } 1589s [00:53:09.120] else { 1589s [00:53:09.120] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1589s [00:53:09.120] info, version) 1589s [00:53:09.120] } 1589s [00:53:09.120] base::stop(msg) 1589s [00:53:09.120] } 1589s [00:53:09.120] }) 1589s [00:53:09.120] } 1589s [00:53:09.120] base::local({ 1589s [00:53:09.120] for (pkg in "future.apply") { 1589s [00:53:09.120] base::loadNamespace(pkg) 1589s [00:53:09.120] base::library(pkg, character.only = TRUE) 1589s [00:53:09.120] } 1589s [00:53:09.120] }) 1589s [00:53:09.120] } 1589s [00:53:09.120] options(future.plan = NULL) 1589s [00:53:09.120] Sys.unsetenv("R_FUTURE_PLAN") 1589s [00:53:09.120] future::plan("default", .cleanup = FALSE, .init = FALSE) 1589s [00:53:09.120] } 1589s [00:53:09.120] ...future.workdir <- getwd() 1589s [00:53:09.120] } 1589s [00:53:09.120] ...future.oldOptions <- base::as.list(base::.Options) 1589s [00:53:09.120] ...future.oldEnvVars <- base::Sys.getenv() 1589s [00:53:09.120] } 1589s [00:53:09.120] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1589s [00:53:09.120] future.globals.maxSize = NULL, future.globals.method = NULL, 1589s [00:53:09.120] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1589s [00:53:09.120] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1589s [00:53:09.120] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1589s [00:53:09.120] future.stdout.windows.reencode = NULL, width = 80L) 1589s [00:53:09.120] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1589s [00:53:09.120] base::names(...future.oldOptions)) 1589s [00:53:09.120] } 1589s [00:53:09.120] if (FALSE) { 1589s [00:53:09.120] } 1589s [00:53:09.120] else { 1589s [00:53:09.120] if (TRUE) { 1589s [00:53:09.120] ...future.stdout <- base::rawConnection(base::raw(0L), 1589s [00:53:09.120] open = "w") 1589s [00:53:09.120] } 1589s [00:53:09.120] else { 1589s [00:53:09.120] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1589s [00:53:09.120] windows = "NUL", "/dev/null"), open = "w") 1589s [00:53:09.120] } 1589s [00:53:09.120] base::sink(...future.stdout, type = "output", split = FALSE) 1589s [00:53:09.120] base::on.exit(if (!base::is.null(...future.stdout)) { 1589s [00:53:09.120] base::sink(type = "output", split = FALSE) 1589s [00:53:09.120] base::close(...future.stdout) 1589s [00:53:09.120] }, add = TRUE) 1589s [00:53:09.120] } 1589s [00:53:09.120] ...future.frame <- base::sys.nframe() 1589s [00:53:09.120] ...future.conditions <- base::list() 1589s [00:53:09.120] ...future.rng <- base::globalenv()$.Random.seed 1589s [00:53:09.120] if (FALSE) { 1589s [00:53:09.120] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1589s [00:53:09.120] "...future.value", "...future.globalenv.names", ".Random.seed") 1589s [00:53:09.120] } 1589s [00:53:09.120] ...future.result <- base::tryCatch({ 1589s [00:53:09.120] base::withCallingHandlers({ 1589s [00:53:09.120] ...future.value <- base::withVisible(base::local({ 1589s [00:53:09.120] do.call(function(...) { 1589s [00:53:09.120] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1589s [00:53:09.120] if (!identical(...future.globals.maxSize.org, 1589s [00:53:09.120] ...future.globals.maxSize)) { 1589s [00:53:09.120] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1589s [00:53:09.120] on.exit(options(oopts), add = TRUE) 1589s [00:53:09.120] } 1589s [00:53:09.120] { 1589s [00:53:09.120] lapply(seq_along(...future.elements_ii), 1589s [00:53:09.120] FUN = function(jj) { 1589s [00:53:09.120] ...future.X_jj <- ...future.elements_ii[[jj]] 1589s [00:53:09.120] ...future.FUN(...future.X_jj, ...) 1589s [00:53:09.120] }) 1589s [00:53:09.120] } 1589s [00:53:09.120] }, args = future.call.arguments) 1589s [00:53:09.120] })) 1589s [00:53:09.120] future::FutureResult(value = ...future.value$value, 1589s [00:53:09.120] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1589s [00:53:09.120] ...future.rng), globalenv = if (FALSE) 1589s [00:53:09.120] list(added = base::setdiff(base::names(base::.GlobalEnv), 1589s [00:53:09.120] ...future.globalenv.names)) 1589s [00:53:09.120] else NULL, started = ...future.startTime, version = "1.8") 1589s [00:53:09.120] }, condition = base::local({ 1589s [00:53:09.120] c <- base::c 1589s [00:53:09.120] inherits <- base::inherits 1589s [00:53:09.120] invokeRestart <- base::invokeRestart 1589s [00:53:09.120] length <- base::length 1589s [00:53:09.120] list <- base::list 1589s [00:53:09.120] seq.int <- base::seq.int 1589s [00:53:09.120] signalCondition <- base::signalCondition 1589s [00:53:09.120] sys.calls <- base::sys.calls 1589s [00:53:09.120] `[[` <- base::`[[` 1589s [00:53:09.120] `+` <- base::`+` 1589s [00:53:09.120] `<<-` <- base::`<<-` 1589s [00:53:09.120] sysCalls <- function(calls = sys.calls(), from = 1L) { 1589s [00:53:09.120] calls[seq.int(from = from + 12L, to = length(calls) - 1589s [00:53:09.120] 3L)] 1589s [00:53:09.120] } 1589s [00:53:09.120] function(cond) { 1589s [00:53:09.120] is_error <- inherits(cond, "error") 1589s [00:53:09.120] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1589s [00:53:09.120] NULL) 1589s [00:53:09.120] if (is_error) { 1589s [00:53:09.120] sessionInformation <- function() { 1589s [00:53:09.120] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1589s [00:53:09.120] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1589s [00:53:09.120] search = base::search(), system = base::Sys.info()) 1589s [00:53:09.120] } 1589s [00:53:09.120] ...future.conditions[[length(...future.conditions) + 1589s [00:53:09.120] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1589s [00:53:09.120] cond$call), session = sessionInformation(), 1589s [00:53:09.120] timestamp = base::Sys.time(), signaled = 0L) 1589s [00:53:09.120] signalCondition(cond) 1589s [00:53:09.120] } 1589s [00:53:09.120] else if (!ignore && TRUE && inherits(cond, c("condition", 1589s [00:53:09.120] "immediateCondition"))) { 1589s [00:53:09.120] signal <- TRUE && inherits(cond, "immediateCondition") 1589s [00:53:09.120] ...future.conditions[[length(...future.conditions) + 1589s [00:53:09.120] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1589s [00:53:09.120] if (TRUE && !signal) { 1589s [00:53:09.120] muffleCondition <- function (cond, pattern = "^muffle") 1589s [00:53:09.120] { 1589s [00:53:09.120] inherits <- base::inherits 1589s [00:53:09.120] invokeRestart <- base::invokeRestart 1589s [00:53:09.120] is.null <- base::is.null 1589s [00:53:09.120] muffled <- FALSE 1589s [00:53:09.120] if (inherits(cond, "message")) { 1589s [00:53:09.120] muffled <- grepl(pattern, "muffleMessage") 1589s [00:53:09.120] if (muffled) 1589s [00:53:09.120] invokeRestart("muffleMessage") 1589s [00:53:09.120] } 1589s [00:53:09.120] else if (inherits(cond, "warning")) { 1589s [00:53:09.120] muffled <- grepl(pattern, "muffleWarning") 1589s [00:53:09.120] if (muffled) 1589s [00:53:09.120] invokeRestart("muffleWarning") 1589s [00:53:09.120] } 1589s [00:53:09.120] else if (inherits(cond, "condition")) { 1589s [00:53:09.120] if (!is.null(pattern)) { 1589s [00:53:09.120] computeRestarts <- base::computeRestarts 1589s [00:53:09.120] grepl <- base::grepl 1589s [00:53:09.120] restarts <- computeRestarts(cond) 1589s [00:53:09.120] for (restart in restarts) { 1589s [00:53:09.120] name <- restart$name 1589s [00:53:09.120] if (is.null(name)) 1589s [00:53:09.120] next 1589s [00:53:09.120] if (!grepl(pattern, name)) 1589s [00:53:09.120] next 1589s [00:53:09.120] invokeRestart(restart) 1589s [00:53:09.120] muffled <- TRUE 1589s [00:53:09.120] break 1589s [00:53:09.120] } 1589s [00:53:09.120] } 1589s [00:53:09.120] } 1589s [00:53:09.120] invisible(muffled) 1589s [00:53:09.120] } 1589s [00:53:09.120] muffleCondition(cond, pattern = "^muffle") 1589s [00:53:09.120] } 1589s [00:53:09.120] } 1589s [00:53:09.120] else { 1589s [00:53:09.120] if (TRUE) { 1589s [00:53:09.120] muffleCondition <- function (cond, pattern = "^muffle") 1589s [00:53:09.120] { 1589s [00:53:09.120] inherits <- base::inherits 1589s [00:53:09.120] invokeRestart <- base::invokeRestart 1589s [00:53:09.120] is.null <- base::is.null 1589s [00:53:09.120] muffled <- FALSE 1589s [00:53:09.120] if (inherits(cond, "message")) { 1589s [00:53:09.120] muffled <- grepl(pattern, "muffleMessage") 1589s [00:53:09.120] if (muffled) 1589s [00:53:09.120] invokeRestart("muffleMessage") 1589s [00:53:09.120] } 1589s [00:53:09.120] else if (inherits(cond, "warning")) { 1589s [00:53:09.120] muffled <- grepl(pattern, "muffleWarning") 1589s [00:53:09.120] if (muffled) 1589s [00:53:09.120] invokeRestart("muffleWarning") 1589s [00:53:09.120] } 1589s [00:53:09.120] else if (inherits(cond, "condition")) { 1589s [00:53:09.120] if (!is.null(pattern)) { 1589s [00:53:09.120] computeRestarts <- base::computeRestarts 1589s [00:53:09.120] grepl <- base::grepl 1589s [00:53:09.120] restarts <- computeRestarts(cond) 1589s [00:53:09.120] for (restart in restarts) { 1589s [00:53:09.120] name <- restart$name 1589s [00:53:09.120] if (is.null(name)) 1589s [00:53:09.120] next 1589s [00:53:09.120] if (!grepl(pattern, name)) 1589s [00:53:09.120] next 1589s [00:53:09.120] invokeRestart(restart) 1589s [00:53:09.120] muffled <- TRUE 1589s [00:53:09.120] break 1589s [00:53:09.120] } 1589s [00:53:09.120] } 1589s [00:53:09.120] } 1589s [00:53:09.120] invisible(muffled) 1589s [00:53:09.120] } 1589s [00:53:09.120] muffleCondition(cond, pattern = "^muffle") 1589s [00:53:09.120] } 1589s [00:53:09.120] } 1589s [00:53:09.120] } 1589s [00:53:09.120] })) 1589s [00:53:09.120] }, error = function(ex) { 1589s [00:53:09.120] base::structure(base::list(value = NULL, visible = NULL, 1589s [00:53:09.120] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1589s [00:53:09.120] ...future.rng), started = ...future.startTime, 1589s [00:53:09.120] finished = Sys.time(), session_uuid = NA_character_, 1589s [00:53:09.120] version = "1.8"), class = "FutureResult") 1589s [00:53:09.120] }, finally = { 1589s [00:53:09.120] if (!identical(...future.workdir, getwd())) 1589s [00:53:09.120] setwd(...future.workdir) 1589s [00:53:09.120] { 1589s [00:53:09.120] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1589s [00:53:09.120] ...future.oldOptions$nwarnings <- NULL 1589s [00:53:09.120] } 1589s [00:53:09.120] base::options(...future.oldOptions) 1589s [00:53:09.120] if (.Platform$OS.type == "windows") { 1589s [00:53:09.120] old_names <- names(...future.oldEnvVars) 1589s [00:53:09.120] envs <- base::Sys.getenv() 1589s [00:53:09.120] names <- names(envs) 1589s [00:53:09.120] common <- intersect(names, old_names) 1589s [00:53:09.120] added <- setdiff(names, old_names) 1589s [00:53:09.120] removed <- setdiff(old_names, names) 1589s [00:53:09.120] changed <- common[...future.oldEnvVars[common] != 1589s [00:53:09.120] envs[common]] 1589s [00:53:09.120] NAMES <- toupper(changed) 1589s [00:53:09.120] args <- list() 1589s [00:53:09.120] for (kk in seq_along(NAMES)) { 1589s [00:53:09.120] name <- changed[[kk]] 1589s [00:53:09.120] NAME <- NAMES[[kk]] 1589s [00:53:09.120] if (name != NAME && is.element(NAME, old_names)) 1589s [00:53:09.120] next 1589s [00:53:09.120] args[[name]] <- ...future.oldEnvVars[[name]] 1589s [00:53:09.120] } 1589s [00:53:09.120] NAMES <- toupper(added) 1589s [00:53:09.120] for (kk in seq_along(NAMES)) { 1589s [00:53:09.120] name <- added[[kk]] 1589s [00:53:09.120] NAME <- NAMES[[kk]] 1589s [00:53:09.120] if (name != NAME && is.element(NAME, old_names)) 1589s [00:53:09.120] next 1589s [00:53:09.120] args[[name]] <- "" 1589s [00:53:09.120] } 1589s [00:53:09.120] NAMES <- toupper(removed) 1589s [00:53:09.120] for (kk in seq_along(NAMES)) { 1589s [00:53:09.120] name <- removed[[kk]] 1589s [00:53:09.120] NAME <- NAMES[[kk]] 1589s [00:53:09.120] if (name != NAME && is.element(NAME, old_names)) 1589s [00:53:09.120] next 1589s [00:53:09.120] args[[name]] <- ...future.oldEnvVars[[name]] 1589s [00:53:09.120] } 1589s [00:53:09.120] if (length(args) > 0) 1589s [00:53:09.120] base::do.call(base::Sys.setenv, args = args) 1589s [00:53:09.120] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1589s [00:53:09.120] } 1589s [00:53:09.120] else { 1589s [00:53:09.120] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1589s [00:53:09.120] } 1589s [00:53:09.120] { 1589s [00:53:09.120] if (base::length(...future.futureOptionsAdded) > 1589s [00:53:09.120] 0L) { 1589s [00:53:09.120] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1589s [00:53:09.120] base::names(opts) <- ...future.futureOptionsAdded 1589s [00:53:09.120] base::options(opts) 1589s [00:53:09.120] } 1589s [00:53:09.120] { 1589s [00:53:09.120] { 1589s [00:53:09.120] NULL 1589s [00:53:09.120] RNGkind("Mersenne-Twister") 1589s [00:53:09.120] base::rm(list = ".Random.seed", envir = base::globalenv(), 1589s [00:53:09.120] inherits = FALSE) 1589s [00:53:09.120] } 1589s [00:53:09.120] options(future.plan = NULL) 1589s [00:53:09.120] if (is.na(NA_character_)) 1589s [00:53:09.120] Sys.unsetenv("R_FUTURE_PLAN") 1589s [00:53:09.120] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1589s [00:53:09.120] future::plan(list(function (..., workers = availableCores(), 1589s [00:53:09.120] lazy = FALSE, rscript_libs = .libPaths(), 1589s [00:53:09.120] envir = parent.frame()) 1589s [00:53:09.120] { 1589s [00:53:09.120] if (is.function(workers)) 1589s [00:53:09.120] workers <- workers() 1589s [00:53:09.120] workers <- structure(as.integer(workers), 1589s [00:53:09.120] class = class(workers)) 1589s [00:53:09.120] stop_if_not(length(workers) == 1, is.finite(workers), 1589s [00:53:09.120] workers >= 1) 1589s [00:53:09.120] if (workers == 1L && !inherits(workers, "AsIs")) { 1589s [00:53:09.120] return(sequential(..., lazy = TRUE, envir = envir)) 1589s [00:53:09.120] } 1589s [00:53:09.120] future <- MultisessionFuture(..., workers = workers, 1589s [00:53:09.120] lazy = lazy, rscript_libs = rscript_libs, 1589s [00:53:09.120] envir = envir) 1589s [00:53:09.120] if (!future$lazy) 1589s [00:53:09.120] future <- run(future) 1589s [00:53:09.120] invisible(future) 1589s [00:53:09.120] }), .cleanup = FALSE, .init = FALSE) 1589s [00:53:09.120] } 1589s [00:53:09.120] } 1589s [00:53:09.120] } 1589s [00:53:09.120] }) 1589s [00:53:09.120] if (TRUE) { 1589s [00:53:09.120] base::sink(type = "output", split = FALSE) 1589s [00:53:09.120] if (TRUE) { 1589s [00:53:09.120] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1589s [00:53:09.120] } 1589s [00:53:09.120] else { 1589s [00:53:09.120] ...future.result["stdout"] <- base::list(NULL) 1589s [00:53:09.120] } 1589s [00:53:09.120] base::close(...future.stdout) 1589s [00:53:09.120] ...future.stdout <- NULL 1589s [00:53:09.120] } 1589s [00:53:09.120] ...future.result$conditions <- ...future.conditions 1589s [00:53:09.120] ...future.result$finished <- base::Sys.time() 1589s [00:53:09.120] ...future.result 1589s [00:53:09.120] } 1589s [00:53:09.128] assign_globals() ... 1589s [00:53:09.128] List of 11 1589s [00:53:09.128] $ ...future.FUN :function (x, ...) 1589s [00:53:09.128] $ x_FUN :function (x) 1589s [00:53:09.128] $ times : int 2 1589s [00:53:09.128] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1589s [00:53:09.128] $ stop_if_not :function (...) 1589s [00:53:09.128] $ dim : NULL 1589s [00:53:09.128] $ valid_types : chr [1:3] "logical" "integer" "double" 1589s [00:53:09.128] $ future.call.arguments : list() 1589s [00:53:09.128] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1589s [00:53:09.128] $ ...future.elements_ii :List of 10 1589s [00:53:09.128] ..$ : int 1 1589s [00:53:09.128] ..$ : int 2 1589s [00:53:09.128] ..$ : int 3 1589s [00:53:09.128] ..$ : int 4 1589s [00:53:09.128] ..$ : int 5 1589s [00:53:09.128] ..$ : int 6 1589s [00:53:09.128] ..$ : int 7 1589s [00:53:09.128] ..$ : int 8 1589s [00:53:09.128] ..$ : int 9 1589s [00:53:09.128] ..$ : int 10 1589s [00:53:09.128] $ ...future.seeds_ii : NULL 1589s [00:53:09.128] $ ...future.globals.maxSize: NULL 1589s [00:53:09.128] - attr(*, "where")=List of 11 1589s [00:53:09.128] ..$ ...future.FUN : 1589s [00:53:09.128] ..$ x_FUN : 1589s [00:53:09.128] ..$ times : 1589s [00:53:09.128] ..$ stopf : 1589s [00:53:09.128] ..$ stop_if_not : 1589s [00:53:09.128] ..$ dim : 1589s [00:53:09.128] ..$ valid_types : 1589s [00:53:09.128] ..$ future.call.arguments : 1589s [00:53:09.128] ..$ ...future.elements_ii : 1589s [00:53:09.128] ..$ ...future.seeds_ii : 1589s [00:53:09.128] ..$ ...future.globals.maxSize: 1589s [00:53:09.128] - attr(*, "resolved")= logi FALSE 1589s [00:53:09.128] - attr(*, "total_size")= num 96456 1589s [00:53:09.128] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1589s [00:53:09.128] - attr(*, "already-done")= logi TRUE 1589s [00:53:09.152] - copied ‘...future.FUN’ to environment 1589s [00:53:09.152] - reassign environment for ‘x_FUN’ 1589s [00:53:09.152] - copied ‘x_FUN’ to environment 1589s [00:53:09.153] - copied ‘times’ to environment 1589s [00:53:09.155] - copied ‘stopf’ to environment 1589s [00:53:09.156] - copied ‘stop_if_not’ to environment 1589s [00:53:09.156] - copied ‘dim’ to environment 1589s [00:53:09.156] - copied ‘valid_types’ to environment 1589s [00:53:09.156] - copied ‘future.call.arguments’ to environment 1589s [00:53:09.157] - copied ‘...future.elements_ii’ to environment 1589s [00:53:09.158] - copied ‘...future.seeds_ii’ to environment 1589s [00:53:09.158] - copied ‘...future.globals.maxSize’ to environment 1589s [00:53:09.158] assign_globals() ... done 1589s [00:53:09.161] plan(): Setting new future strategy stack: 1589s [00:53:09.162] List of future strategies: 1589s [00:53:09.162] 1. sequential: 1589s [00:53:09.162] - args: function (..., envir = parent.frame()) 1589s [00:53:09.162] - tweaked: FALSE 1589s [00:53:09.162] - call: NULL 1589s [00:53:09.164] plan(): nbrOfWorkers() = 1 1589s [00:53:09.167] plan(): Setting new future strategy stack: 1589s [00:53:09.168] List of future strategies: 1589s [00:53:09.168] 1. multisession: 1589s [00:53:09.168] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1589s [00:53:09.168] - tweaked: FALSE 1589s [00:53:09.168] - call: plan(strategy) 1589s [00:53:09.177] plan(): nbrOfWorkers() = 1 1589s [00:53:09.178] SequentialFuture started (and completed) 1589s [00:53:09.178] - Launch lazy future ... done 1589s [00:53:09.179] run() for ‘SequentialFuture’ ... done 1589s [00:53:09.179] Created future: 1589s [00:53:09.179] SequentialFuture: 1589s [00:53:09.179] Label: ‘future_vapply-1’ 1589s [00:53:09.179] Expression: 1589s [00:53:09.179] { 1589s [00:53:09.179] do.call(function(...) { 1589s [00:53:09.179] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1589s [00:53:09.179] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1589s [00:53:09.179] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1589s [00:53:09.179] on.exit(options(oopts), add = TRUE) 1589s [00:53:09.179] } 1589s [00:53:09.179] { 1589s [00:53:09.179] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1589s [00:53:09.179] ...future.X_jj <- ...future.elements_ii[[jj]] 1589s [00:53:09.179] ...future.FUN(...future.X_jj, ...) 1589s [00:53:09.179] }) 1589s [00:53:09.179] } 1589s [00:53:09.179] }, args = future.call.arguments) 1589s [00:53:09.179] } 1589s [00:53:09.179] Lazy evaluation: FALSE 1589s [00:53:09.179] Asynchronous evaluation: FALSE 1589s [00:53:09.179] Local evaluation: TRUE 1589s [00:53:09.179] Environment: R_GlobalEnv 1589s [00:53:09.179] Capture standard output: TRUE 1589s [00:53:09.179] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1589s [00:53:09.179] Globals: 11 objects totaling 94.74 KiB (function ‘...future.FUN’ of 21.22 KiB, function ‘x_FUN’ of 2.12 KiB, integer ‘times’ of 56 bytes, function ‘stopf’ of 26.43 KiB, function ‘stop_if_not’ of 44.12 KiB, ...) 1589s [00:53:09.179] Packages: 1 packages (‘future.apply’) 1589s [00:53:09.179] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1589s [00:53:09.179] Resolved: TRUE 1589s [00:53:09.179] Value: 640 bytes of class ‘list’ 1589s [00:53:09.179] Early signaling: FALSE 1589s [00:53:09.179] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1589s [00:53:09.179] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1589s [00:53:09.184] Chunk #1 of 1 ... DONE 1589s [00:53:09.185] Launching 1 futures (chunks) ... DONE 1589s [00:53:09.185] Resolving 1 futures (chunks) ... 1589s [00:53:09.185] resolve() on list ... 1589s [00:53:09.185] recursive: 0 1589s [00:53:09.186] length: 1 1589s [00:53:09.186] 1589s [00:53:09.186] resolved() for ‘SequentialFuture’ ... 1589s [00:53:09.186] - state: ‘finished’ 1589s [00:53:09.187] - run: TRUE 1589s [00:53:09.187] - result: ‘FutureResult’ 1589s [00:53:09.187] resolved() for ‘SequentialFuture’ ... done 1589s [00:53:09.188] Future #1 1589s [00:53:09.188] signalConditionsASAP(SequentialFuture, pos=1) ... 1589s [00:53:09.189] - nx: 1 1589s [00:53:09.189] - relay: TRUE 1589s [00:53:09.189] - stdout: TRUE 1589s [00:53:09.190] - signal: TRUE 1589s [00:53:09.191] - resignal: FALSE 1589s [00:53:09.191] - force: TRUE 1589s [00:53:09.192] - relayed: [n=1] FALSE 1589s [00:53:09.192] - queued futures: [n=1] FALSE 1589s [00:53:09.193] - until=1 1589s [00:53:09.195] - relaying element #1 1589s [00:53:09.196] - relayed: [n=1] TRUE 1589s [00:53:09.196] - queued futures: [n=1] TRUE 1589s [00:53:09.197] signalConditionsASAP(SequentialFuture, pos=1) ... done 1589s [00:53:09.198] length: 0 (resolved future 1) 1589s [00:53:09.199] Relaying remaining futures 1589s [00:53:09.200] signalConditionsASAP(NULL, pos=0) ... 1589s [00:53:09.201] - nx: 1 1589s [00:53:09.201] - relay: TRUE 1589s [00:53:09.203] - stdout: TRUE 1589s [00:53:09.205] - signal: TRUE 1589s [00:53:09.205] - resignal: FALSE 1589s [00:53:09.205] - force: TRUE 1589s [00:53:09.205] - relayed: [n=1] TRUE 1589s [00:53:09.206] - queued futures: [n=1] TRUE 1589s num [1:2, 1:10] - flush all 1589s [00:53:09.206] - relayed: [n=1] TRUE 1589s [00:53:09.206] - queued futures: [n=1] TRUE 1589s [00:53:09.206] signalConditionsASAP(NULL, pos=0) ... done 1589s [00:53:09.206] resolve() on list ... DONE 1589s [00:53:09.207] - Number of value chunks collected: 1 1589s [00:53:09.207] Resolving 1 futures (chunks) ... DONE 1589s [00:53:09.207] Reducing values from 1 chunks ... 1589s [00:53:09.207] - Number of values collected after concatenation: 10 1589s [00:53:09.207] - Number of values expected: 10 1589s [00:53:09.207] Reducing values from 1 chunks ... DONE 1589s [00:53:09.207] future_lapply() ... DONE 1589s 1 1 2 4 3 9 4 16 5 25 ... 1589s int [1:2, 1:2, 1:10] 1 1 1 1 2 2 2 2 3 3 ... 1589s [00:53:09.210] future_lapply() ... 1589s [00:53:09.218] Number of chunks: 1 1589s [00:53:09.218] getGlobalsAndPackagesXApply() ... 1589s [00:53:09.218] - future.globals: TRUE 1589s [00:53:09.219] getGlobalsAndPackages() ... 1589s [00:53:09.219] Searching for globals... 1589s [00:53:09.232] - globals found: [17] ‘FUN’, ‘{’, ‘<-’, ‘x_FUN’, ‘if’, ‘!=’, ‘length’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘all’, ‘==’, ‘dim’, ‘%in%’, ‘typeof’, ‘valid_types’, ‘matrix’ 1589s [00:53:09.234] Searching for globals ... DONE 1589s [00:53:09.235] Resolving globals: FALSE 1589s [00:53:09.237] The total size of the 7 globals is 94.95 KiB (97232 bytes) 1589s [00:53:09.238] The total size of the 7 globals exported for future expression (‘FUN()’) is 94.95 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘stop_if_not’ (44.12 KiB of class ‘function’), ‘stopf’ (26.43 KiB of class ‘function’) and ‘FUN’ (21.22 KiB of class ‘function’) 1589s [00:53:09.238] - globals: [7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1589s [00:53:09.238] - packages: [1] ‘future.apply’ 1589s [00:53:09.239] getGlobalsAndPackages() ... DONE 1589s [00:53:09.239] - globals found/used: [n=7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1589s [00:53:09.239] - needed namespaces: [n=1] ‘future.apply’ 1589s [00:53:09.239] Finding globals ... DONE 1589s [00:53:09.240] - use_args: TRUE 1589s [00:53:09.240] - Getting '...' globals ... 1589s [00:53:09.241] resolve() on list ... 1589s [00:53:09.241] recursive: 0 1589s [00:53:09.242] length: 1 1589s [00:53:09.242] elements: ‘...’ 1589s [00:53:09.242] length: 0 (resolved future 1) 1589s [00:53:09.242] resolve() on list ... DONE 1589s [00:53:09.243] - '...' content: [n=0] 1589s [00:53:09.243] List of 1 1589s [00:53:09.243] $ ...: list() 1589s [00:53:09.243] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1589s [00:53:09.243] - attr(*, "where")=List of 1 1589s [00:53:09.243] ..$ ...: 1589s [00:53:09.243] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1589s [00:53:09.243] - attr(*, "resolved")= logi TRUE 1589s [00:53:09.243] - attr(*, "total_size")= num NA 1589s [00:53:09.248] - Getting '...' globals ... DONE 1589s [00:53:09.249] Globals to be used in all futures (chunks): [n=8] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’ 1589s [00:53:09.250] List of 8 1589s [00:53:09.250] $ ...future.FUN:function (x, ...) 1589s [00:53:09.250] $ x_FUN :function (x) 1589s [00:53:09.250] $ times : int 4 1589s [00:53:09.250] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1589s [00:53:09.250] $ stop_if_not :function (...) 1589s [00:53:09.250] $ dim : int [1:2] 2 2 1589s [00:53:09.250] $ valid_types : chr [1:2] "logical" "integer" 1589s [00:53:09.250] $ ... : list() 1589s [00:53:09.250] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1589s [00:53:09.250] - attr(*, "where")=List of 8 1589s [00:53:09.250] ..$ ...future.FUN: 1589s [00:53:09.250] ..$ x_FUN : 1589s [00:53:09.250] ..$ times : 1589s [00:53:09.250] ..$ stopf : 1589s [00:53:09.250] ..$ stop_if_not : 1589s [00:53:09.250] ..$ dim : 1589s [00:53:09.250] ..$ valid_types : 1589s [00:53:09.250] ..$ ... : 1589s [00:53:09.250] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1589s [00:53:09.250] - attr(*, "resolved")= logi FALSE 1589s [00:53:09.250] - attr(*, "total_size")= num 97232 1589s [00:53:09.262] Packages to be attached in all futures: [n=1] ‘future.apply’ 1589s [00:53:09.262] getGlobalsAndPackagesXApply() ... DONE 1589s [00:53:09.263] Number of futures (= number of chunks): 1 1589s [00:53:09.263] Launching 1 futures (chunks) ... 1589s [00:53:09.263] Chunk #1 of 1 ... 1589s [00:53:09.263] - Finding globals in 'X' for chunk #1 ... 1589s [00:53:09.264] getGlobalsAndPackages() ... 1589s [00:53:09.264] Searching for globals... 1589s [00:53:09.264] 1589s [00:53:09.264] Searching for globals ... DONE 1589s [00:53:09.264] - globals: [0] 1589s [00:53:09.264] getGlobalsAndPackages() ... DONE 1589s [00:53:09.265] + additional globals found: [n=0] 1589s [00:53:09.266] + additional namespaces needed: [n=0] 1589s [00:53:09.266] - Finding globals in 'X' for chunk #1 ... DONE 1589s [00:53:09.268] - seeds: 1589s [00:53:09.272] - All globals exported: [n=11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1589s [00:53:09.273] getGlobalsAndPackages() ... 1589s [00:53:09.273] - globals passed as-is: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1589s [00:53:09.273] Resolving globals: FALSE 1589s [00:53:09.273] Tweak future expression to call with '...' arguments ... 1589s [00:53:09.273] { 1589s [00:53:09.273] do.call(function(...) { 1589s [00:53:09.273] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1589s [00:53:09.273] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1589s [00:53:09.273] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1589s [00:53:09.273] on.exit(options(oopts), add = TRUE) 1589s [00:53:09.273] } 1589s [00:53:09.273] { 1589s [00:53:09.273] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1589s [00:53:09.273] ...future.X_jj <- ...future.elements_ii[[jj]] 1589s [00:53:09.273] ...future.FUN(...future.X_jj, ...) 1589s [00:53:09.273] }) 1589s [00:53:09.273] } 1589s [00:53:09.273] }, args = future.call.arguments) 1589s [00:53:09.273] } 1589s [00:53:09.274] Tweak future expression to call with '...' arguments ... DONE 1589s [00:53:09.275] - globals: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1589s [00:53:09.275] - packages: [1] ‘future.apply’ 1589s [00:53:09.275] getGlobalsAndPackages() ... DONE 1589s [00:53:09.276] run() for ‘Future’ ... 1589s [00:53:09.276] - state: ‘created’ 1589s [00:53:09.276] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1589s [00:53:09.280] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1589s [00:53:09.280] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1589s [00:53:09.280] - Field: ‘label’ 1589s [00:53:09.280] - Field: ‘local’ 1589s [00:53:09.283] - Field: ‘owner’ 1589s [00:53:09.283] - Field: ‘envir’ 1589s [00:53:09.283] - Field: ‘packages’ 1589s [00:53:09.283] - Field: ‘gc’ 1589s [00:53:09.283] - Field: ‘conditions’ 1589s [00:53:09.284] - Field: ‘expr’ 1589s [00:53:09.284] - Field: ‘uuid’ 1589s [00:53:09.284] - Field: ‘seed’ 1589s [00:53:09.284] - Field: ‘version’ 1589s [00:53:09.284] - Field: ‘result’ 1589s [00:53:09.284] - Field: ‘asynchronous’ 1589s [00:53:09.284] - Field: ‘calls’ 1589s [00:53:09.285] - Field: ‘globals’ 1589s [00:53:09.285] - Field: ‘stdout’ 1589s [00:53:09.285] - Field: ‘earlySignal’ 1589s [00:53:09.286] - Field: ‘lazy’ 1589s [00:53:09.286] - Field: ‘state’ 1589s [00:53:09.287] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1589s [00:53:09.287] - Launch lazy future ... 1589s [00:53:09.288] Packages needed by the future expression (n = 1): ‘future.apply’ 1589s [00:53:09.288] Packages needed by future strategies (n = 0): 1589s [00:53:09.290] { 1589s [00:53:09.290] { 1589s [00:53:09.290] { 1589s [00:53:09.290] ...future.startTime <- base::Sys.time() 1589s [00:53:09.290] { 1589s [00:53:09.290] { 1589s [00:53:09.290] { 1589s [00:53:09.290] { 1589s [00:53:09.290] base::local({ 1589s [00:53:09.290] has_future <- base::requireNamespace("future", 1589s [00:53:09.290] quietly = TRUE) 1589s [00:53:09.290] if (has_future) { 1589s [00:53:09.290] ns <- base::getNamespace("future") 1589s [00:53:09.290] version <- ns[[".package"]][["version"]] 1589s [00:53:09.290] if (is.null(version)) 1589s [00:53:09.290] version <- utils::packageVersion("future") 1589s [00:53:09.290] } 1589s [00:53:09.290] else { 1589s [00:53:09.290] version <- NULL 1589s [00:53:09.290] } 1589s [00:53:09.290] if (!has_future || version < "1.8.0") { 1589s [00:53:09.290] info <- base::c(r_version = base::gsub("R version ", 1589s [00:53:09.290] "", base::R.version$version.string), 1589s [00:53:09.290] platform = base::sprintf("%s (%s-bit)", 1589s [00:53:09.290] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1589s [00:53:09.290] os = base::paste(base::Sys.info()[base::c("sysname", 1589s [00:53:09.290] "release", "version")], collapse = " "), 1589s [00:53:09.290] hostname = base::Sys.info()[["nodename"]]) 1589s [00:53:09.290] info <- base::sprintf("%s: %s", base::names(info), 1589s [00:53:09.290] info) 1589s [00:53:09.290] info <- base::paste(info, collapse = "; ") 1589s [00:53:09.290] if (!has_future) { 1589s [00:53:09.290] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1589s [00:53:09.290] info) 1589s [00:53:09.290] } 1589s [00:53:09.290] else { 1589s [00:53:09.290] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1589s [00:53:09.290] info, version) 1589s [00:53:09.290] } 1589s [00:53:09.290] base::stop(msg) 1589s [00:53:09.290] } 1589s [00:53:09.290] }) 1589s [00:53:09.290] } 1589s [00:53:09.290] base::local({ 1589s [00:53:09.290] for (pkg in "future.apply") { 1589s [00:53:09.290] base::loadNamespace(pkg) 1589s [00:53:09.290] base::library(pkg, character.only = TRUE) 1589s [00:53:09.290] } 1589s [00:53:09.290] }) 1589s [00:53:09.290] } 1589s [00:53:09.290] options(future.plan = NULL) 1589s [00:53:09.290] Sys.unsetenv("R_FUTURE_PLAN") 1589s [00:53:09.290] future::plan("default", .cleanup = FALSE, .init = FALSE) 1589s [00:53:09.290] } 1589s [00:53:09.290] ...future.workdir <- getwd() 1589s [00:53:09.290] } 1589s [00:53:09.290] ...future.oldOptions <- base::as.list(base::.Options) 1589s [00:53:09.290] ...future.oldEnvVars <- base::Sys.getenv() 1589s [00:53:09.290] } 1589s [00:53:09.290] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1589s [00:53:09.290] future.globals.maxSize = NULL, future.globals.method = NULL, 1589s [00:53:09.290] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1589s [00:53:09.290] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1589s [00:53:09.290] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1589s [00:53:09.290] future.stdout.windows.reencode = NULL, width = 80L) 1589s [00:53:09.290] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1589s [00:53:09.290] base::names(...future.oldOptions)) 1589s [00:53:09.290] } 1589s [00:53:09.290] if (FALSE) { 1589s [00:53:09.290] } 1589s [00:53:09.290] else { 1589s [00:53:09.290] if (TRUE) { 1589s [00:53:09.290] ...future.stdout <- base::rawConnection(base::raw(0L), 1589s [00:53:09.290] open = "w") 1589s [00:53:09.290] } 1589s [00:53:09.290] else { 1589s [00:53:09.290] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1589s [00:53:09.290] windows = "NUL", "/dev/null"), open = "w") 1589s [00:53:09.290] } 1589s [00:53:09.290] base::sink(...future.stdout, type = "output", split = FALSE) 1589s [00:53:09.290] base::on.exit(if (!base::is.null(...future.stdout)) { 1589s [00:53:09.290] base::sink(type = "output", split = FALSE) 1589s [00:53:09.290] base::close(...future.stdout) 1589s [00:53:09.290] }, add = TRUE) 1589s [00:53:09.290] } 1589s [00:53:09.290] ...future.frame <- base::sys.nframe() 1589s [00:53:09.290] ...future.conditions <- base::list() 1589s [00:53:09.290] ...future.rng <- base::globalenv()$.Random.seed 1589s [00:53:09.290] if (FALSE) { 1589s [00:53:09.290] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1589s [00:53:09.290] "...future.value", "...future.globalenv.names", ".Random.seed") 1589s [00:53:09.290] } 1589s [00:53:09.290] ...future.result <- base::tryCatch({ 1589s [00:53:09.290] base::withCallingHandlers({ 1589s [00:53:09.290] ...future.value <- base::withVisible(base::local({ 1589s [00:53:09.290] do.call(function(...) { 1589s [00:53:09.290] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1589s [00:53:09.290] if (!identical(...future.globals.maxSize.org, 1589s [00:53:09.290] ...future.globals.maxSize)) { 1589s [00:53:09.290] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1589s [00:53:09.290] on.exit(options(oopts), add = TRUE) 1589s [00:53:09.290] } 1589s [00:53:09.290] { 1589s [00:53:09.290] lapply(seq_along(...future.elements_ii), 1589s [00:53:09.290] FUN = function(jj) { 1589s [00:53:09.290] ...future.X_jj <- ...future.elements_ii[[jj]] 1589s [00:53:09.290] ...future.FUN(...future.X_jj, ...) 1589s [00:53:09.290] }) 1589s [00:53:09.290] } 1589s [00:53:09.290] }, args = future.call.arguments) 1589s [00:53:09.290] })) 1589s [00:53:09.290] future::FutureResult(value = ...future.value$value, 1589s [00:53:09.290] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1589s [00:53:09.290] ...future.rng), globalenv = if (FALSE) 1589s [00:53:09.290] list(added = base::setdiff(base::names(base::.GlobalEnv), 1589s [00:53:09.290] ...future.globalenv.names)) 1589s [00:53:09.290] else NULL, started = ...future.startTime, version = "1.8") 1589s [00:53:09.290] }, condition = base::local({ 1589s [00:53:09.290] c <- base::c 1589s [00:53:09.290] inherits <- base::inherits 1589s [00:53:09.290] invokeRestart <- base::invokeRestart 1589s [00:53:09.290] length <- base::length 1589s [00:53:09.290] list <- base::list 1589s [00:53:09.290] seq.int <- base::seq.int 1589s [00:53:09.290] signalCondition <- base::signalCondition 1589s [00:53:09.290] sys.calls <- base::sys.calls 1589s [00:53:09.290] `[[` <- base::`[[` 1589s [00:53:09.290] `+` <- base::`+` 1589s [00:53:09.290] `<<-` <- base::`<<-` 1589s [00:53:09.290] sysCalls <- function(calls = sys.calls(), from = 1L) { 1589s [00:53:09.290] calls[seq.int(from = from + 12L, to = length(calls) - 1589s [00:53:09.290] 3L)] 1589s [00:53:09.290] } 1589s [00:53:09.290] function(cond) { 1589s [00:53:09.290] is_error <- inherits(cond, "error") 1589s [00:53:09.290] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1589s [00:53:09.290] NULL) 1589s [00:53:09.290] if (is_error) { 1589s [00:53:09.290] sessionInformation <- function() { 1589s [00:53:09.290] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1589s [00:53:09.290] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1589s [00:53:09.290] search = base::search(), system = base::Sys.info()) 1589s [00:53:09.290] } 1589s [00:53:09.290] ...future.conditions[[length(...future.conditions) + 1589s [00:53:09.290] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1589s [00:53:09.290] cond$call), session = sessionInformation(), 1589s [00:53:09.290] timestamp = base::Sys.time(), signaled = 0L) 1589s [00:53:09.290] signalCondition(cond) 1589s [00:53:09.290] } 1589s [00:53:09.290] else if (!ignore && TRUE && inherits(cond, c("condition", 1589s [00:53:09.290] "immediateCondition"))) { 1589s [00:53:09.290] signal <- TRUE && inherits(cond, "immediateCondition") 1589s [00:53:09.290] ...future.conditions[[length(...future.conditions) + 1589s [00:53:09.290] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1589s [00:53:09.290] if (TRUE && !signal) { 1589s [00:53:09.290] muffleCondition <- function (cond, pattern = "^muffle") 1589s [00:53:09.290] { 1589s [00:53:09.290] inherits <- base::inherits 1589s [00:53:09.290] invokeRestart <- base::invokeRestart 1589s [00:53:09.290] is.null <- base::is.null 1589s [00:53:09.290] muffled <- FALSE 1589s [00:53:09.290] if (inherits(cond, "message")) { 1589s [00:53:09.290] muffled <- grepl(pattern, "muffleMessage") 1589s [00:53:09.290] if (muffled) 1589s [00:53:09.290] invokeRestart("muffleMessage") 1589s [00:53:09.290] } 1589s [00:53:09.290] else if (inherits(cond, "warning")) { 1589s [00:53:09.290] muffled <- grepl(pattern, "muffleWarning") 1589s [00:53:09.290] if (muffled) 1589s [00:53:09.290] invokeRestart("muffleWarning") 1589s [00:53:09.290] } 1589s [00:53:09.290] else if (inherits(cond, "condition")) { 1589s [00:53:09.290] if (!is.null(pattern)) { 1589s [00:53:09.290] computeRestarts <- base::computeRestarts 1589s [00:53:09.290] grepl <- base::grepl 1589s [00:53:09.290] restarts <- computeRestarts(cond) 1589s [00:53:09.290] for (restart in restarts) { 1589s [00:53:09.290] name <- restart$name 1589s [00:53:09.290] if (is.null(name)) 1589s [00:53:09.290] next 1589s [00:53:09.290] if (!grepl(pattern, name)) 1589s [00:53:09.290] next 1589s [00:53:09.290] invokeRestart(restart) 1589s [00:53:09.290] muffled <- TRUE 1589s [00:53:09.290] break 1589s [00:53:09.290] } 1589s [00:53:09.290] } 1589s [00:53:09.290] } 1589s [00:53:09.290] invisible(muffled) 1589s [00:53:09.290] } 1589s [00:53:09.290] muffleCondition(cond, pattern = "^muffle") 1589s [00:53:09.290] } 1589s [00:53:09.290] } 1589s [00:53:09.290] else { 1589s [00:53:09.290] if (TRUE) { 1589s [00:53:09.290] muffleCondition <- function (cond, pattern = "^muffle") 1589s [00:53:09.290] { 1589s [00:53:09.290] inherits <- base::inherits 1589s [00:53:09.290] invokeRestart <- base::invokeRestart 1589s [00:53:09.290] is.null <- base::is.null 1589s [00:53:09.290] muffled <- FALSE 1589s [00:53:09.290] if (inherits(cond, "message")) { 1589s [00:53:09.290] muffled <- grepl(pattern, "muffleMessage") 1589s [00:53:09.290] if (muffled) 1589s [00:53:09.290] invokeRestart("muffleMessage") 1589s [00:53:09.290] } 1589s [00:53:09.290] else if (inherits(cond, "warning")) { 1589s [00:53:09.290] muffled <- grepl(pattern, "muffleWarning") 1589s [00:53:09.290] if (muffled) 1589s [00:53:09.290] invokeRestart("muffleWarning") 1589s [00:53:09.290] } 1589s [00:53:09.290] else if (inherits(cond, "condition")) { 1589s [00:53:09.290] if (!is.null(pattern)) { 1589s [00:53:09.290] computeRestarts <- base::computeRestarts 1589s [00:53:09.290] grepl <- base::grepl 1589s [00:53:09.290] restarts <- computeRestarts(cond) 1589s [00:53:09.290] for (restart in restarts) { 1589s [00:53:09.290] name <- restart$name 1589s [00:53:09.290] if (is.null(name)) 1589s [00:53:09.290] next 1589s [00:53:09.290] if (!grepl(pattern, name)) 1589s [00:53:09.290] next 1589s [00:53:09.290] invokeRestart(restart) 1589s [00:53:09.290] muffled <- TRUE 1589s [00:53:09.290] break 1589s [00:53:09.290] } 1589s [00:53:09.290] } 1589s [00:53:09.290] } 1589s [00:53:09.290] invisible(muffled) 1589s [00:53:09.290] } 1589s [00:53:09.290] muffleCondition(cond, pattern = "^muffle") 1589s [00:53:09.290] } 1589s [00:53:09.290] } 1589s [00:53:09.290] } 1589s [00:53:09.290] })) 1589s [00:53:09.290] }, error = function(ex) { 1589s [00:53:09.290] base::structure(base::list(value = NULL, visible = NULL, 1589s [00:53:09.290] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1589s [00:53:09.290] ...future.rng), started = ...future.startTime, 1589s [00:53:09.290] finished = Sys.time(), session_uuid = NA_character_, 1589s [00:53:09.290] version = "1.8"), class = "FutureResult") 1589s [00:53:09.290] }, finally = { 1589s [00:53:09.290] if (!identical(...future.workdir, getwd())) 1589s [00:53:09.290] setwd(...future.workdir) 1589s [00:53:09.290] { 1589s [00:53:09.290] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1589s [00:53:09.290] ...future.oldOptions$nwarnings <- NULL 1589s [00:53:09.290] } 1589s [00:53:09.290] base::options(...future.oldOptions) 1589s [00:53:09.290] if (.Platform$OS.type == "windows") { 1589s [00:53:09.290] old_names <- names(...future.oldEnvVars) 1589s [00:53:09.290] envs <- base::Sys.getenv() 1589s [00:53:09.290] names <- names(envs) 1589s [00:53:09.290] common <- intersect(names, old_names) 1589s [00:53:09.290] added <- setdiff(names, old_names) 1589s [00:53:09.290] removed <- setdiff(old_names, names) 1589s [00:53:09.290] changed <- common[...future.oldEnvVars[common] != 1589s [00:53:09.290] envs[common]] 1589s [00:53:09.290] NAMES <- toupper(changed) 1589s [00:53:09.290] args <- list() 1589s [00:53:09.290] for (kk in seq_along(NAMES)) { 1589s [00:53:09.290] name <- changed[[kk]] 1589s [00:53:09.290] NAME <- NAMES[[kk]] 1589s [00:53:09.290] if (name != NAME && is.element(NAME, old_names)) 1589s [00:53:09.290] next 1589s [00:53:09.290] args[[name]] <- ...future.oldEnvVars[[name]] 1589s [00:53:09.290] } 1589s [00:53:09.290] NAMES <- toupper(added) 1589s [00:53:09.290] for (kk in seq_along(NAMES)) { 1589s [00:53:09.290] name <- added[[kk]] 1589s [00:53:09.290] NAME <- NAMES[[kk]] 1589s [00:53:09.290] if (name != NAME && is.element(NAME, old_names)) 1589s [00:53:09.290] next 1589s [00:53:09.290] args[[name]] <- "" 1589s [00:53:09.290] } 1589s [00:53:09.290] NAMES <- toupper(removed) 1589s [00:53:09.290] for (kk in seq_along(NAMES)) { 1589s [00:53:09.290] name <- removed[[kk]] 1589s [00:53:09.290] NAME <- NAMES[[kk]] 1589s [00:53:09.290] if (name != NAME && is.element(NAME, old_names)) 1589s [00:53:09.290] next 1589s [00:53:09.290] args[[name]] <- ...future.oldEnvVars[[name]] 1589s [00:53:09.290] } 1589s [00:53:09.290] if (length(args) > 0) 1589s [00:53:09.290] base::do.call(base::Sys.setenv, args = args) 1589s [00:53:09.290] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1589s [00:53:09.290] } 1589s [00:53:09.290] else { 1589s [00:53:09.290] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1589s [00:53:09.290] } 1589s [00:53:09.290] { 1589s [00:53:09.290] if (base::length(...future.futureOptionsAdded) > 1589s [00:53:09.290] 0L) { 1589s [00:53:09.290] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1589s [00:53:09.290] base::names(opts) <- ...future.futureOptionsAdded 1589s [00:53:09.290] base::options(opts) 1589s [00:53:09.290] } 1589s [00:53:09.290] { 1589s [00:53:09.290] { 1589s [00:53:09.290] NULL 1589s [00:53:09.290] RNGkind("Mersenne-Twister") 1589s [00:53:09.290] base::rm(list = ".Random.seed", envir = base::globalenv(), 1589s [00:53:09.290] inherits = FALSE) 1589s [00:53:09.290] } 1589s [00:53:09.290] options(future.plan = NULL) 1589s [00:53:09.290] if (is.na(NA_character_)) 1589s [00:53:09.290] Sys.unsetenv("R_FUTURE_PLAN") 1589s [00:53:09.290] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1589s [00:53:09.290] future::plan(list(function (..., workers = availableCores(), 1589s [00:53:09.290] lazy = FALSE, rscript_libs = .libPaths(), 1589s [00:53:09.290] envir = parent.frame()) 1589s [00:53:09.290] { 1589s [00:53:09.290] if (is.function(workers)) 1589s [00:53:09.290] workers <- workers() 1589s [00:53:09.290] workers <- structure(as.integer(workers), 1589s [00:53:09.290] class = class(workers)) 1589s [00:53:09.290] stop_if_not(length(workers) == 1, is.finite(workers), 1589s [00:53:09.290] workers >= 1) 1589s [00:53:09.290] if (workers == 1L && !inherits(workers, "AsIs")) { 1589s [00:53:09.290] return(sequential(..., lazy = TRUE, envir = envir)) 1589s [00:53:09.290] } 1589s [00:53:09.290] future <- MultisessionFuture(..., workers = workers, 1589s [00:53:09.290] lazy = lazy, rscript_libs = rscript_libs, 1589s [00:53:09.290] envir = envir) 1589s [00:53:09.290] if (!future$lazy) 1589s [00:53:09.290] future <- run(future) 1589s [00:53:09.290] invisible(future) 1589s [00:53:09.290] }), .cleanup = FALSE, .init = FALSE) 1589s [00:53:09.290] } 1589s [00:53:09.290] } 1589s [00:53:09.290] } 1589s [00:53:09.290] }) 1589s [00:53:09.290] if (TRUE) { 1589s [00:53:09.290] base::sink(type = "output", split = FALSE) 1589s [00:53:09.290] if (TRUE) { 1589s [00:53:09.290] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1589s [00:53:09.290] } 1589s [00:53:09.290] else { 1589s [00:53:09.290] ...future.result["stdout"] <- base::list(NULL) 1589s [00:53:09.290] } 1589s [00:53:09.290] base::close(...future.stdout) 1589s [00:53:09.290] ...future.stdout <- NULL 1589s [00:53:09.290] } 1589s [00:53:09.290] ...future.result$conditions <- ...future.conditions 1589s [00:53:09.290] ...future.result$finished <- base::Sys.time() 1589s [00:53:09.290] ...future.result 1589s [00:53:09.290] } 1589s [00:53:09.297] assign_globals() ... 1589s [00:53:09.297] List of 11 1589s [00:53:09.297] $ ...future.FUN :function (x, ...) 1589s [00:53:09.297] $ x_FUN :function (x) 1589s [00:53:09.297] $ times : int 4 1589s [00:53:09.297] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1589s [00:53:09.297] $ stop_if_not :function (...) 1589s [00:53:09.297] $ dim : int [1:2] 2 2 1589s [00:53:09.297] $ valid_types : chr [1:2] "logical" "integer" 1589s [00:53:09.297] $ future.call.arguments : list() 1589s [00:53:09.297] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1589s [00:53:09.297] $ ...future.elements_ii :List of 10 1589s [00:53:09.297] ..$ : int 1 1589s [00:53:09.297] ..$ : int 2 1589s [00:53:09.297] ..$ : int 3 1589s [00:53:09.297] ..$ : int 4 1589s [00:53:09.297] ..$ : int 5 1589s [00:53:09.297] ..$ : int 6 1589s [00:53:09.297] ..$ : int 7 1589s [00:53:09.297] ..$ : int 8 1589s [00:53:09.297] ..$ : int 9 1589s [00:53:09.297] ..$ : int 10 1589s [00:53:09.297] $ ...future.seeds_ii : NULL 1589s [00:53:09.297] $ ...future.globals.maxSize: NULL 1589s [00:53:09.297] - attr(*, "where")=List of 11 1589s [00:53:09.297] ..$ ...future.FUN : 1589s [00:53:09.297] ..$ x_FUN : 1589s [00:53:09.297] ..$ times : 1589s [00:53:09.297] ..$ stopf : 1589s [00:53:09.297] ..$ stop_if_not : 1589s [00:53:09.297] ..$ dim : 1589s [00:53:09.297] ..$ valid_types : 1589s [00:53:09.297] ..$ future.call.arguments : 1589s [00:53:09.297] ..$ ...future.elements_ii : 1589s [00:53:09.297] ..$ ...future.seeds_ii : 1589s [00:53:09.297] ..$ ...future.globals.maxSize: 1589s [00:53:09.297] - attr(*, "resolved")= logi FALSE 1589s [00:53:09.297] - attr(*, "total_size")= num 97232 1589s [00:53:09.297] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1589s [00:53:09.297] - attr(*, "already-done")= logi TRUE 1589s [00:53:09.316] - copied ‘...future.FUN’ to environment 1589s [00:53:09.317] - reassign environment for ‘x_FUN’ 1589s [00:53:09.317] - copied ‘x_FUN’ to environment 1589s [00:53:09.317] - copied ‘times’ to environment 1589s [00:53:09.317] - copied ‘stopf’ to environment 1589s [00:53:09.318] - copied ‘stop_if_not’ to environment 1589s [00:53:09.318] - copied ‘dim’ to environment 1589s [00:53:09.318] - copied ‘valid_types’ to environment 1589s [00:53:09.318] - copied ‘future.call.arguments’ to environment 1589s [00:53:09.319] - copied ‘...future.elements_ii’ to environment 1589s [00:53:09.319] - copied ‘...future.seeds_ii’ to environment 1589s [00:53:09.319] - copied ‘...future.globals.maxSize’ to environment 1589s [00:53:09.319] assign_globals() ... done 1589s [00:53:09.320] plan(): Setting new future strategy stack: 1589s [00:53:09.321] List of future strategies: 1589s [00:53:09.321] 1. sequential: 1589s [00:53:09.321] - args: function (..., envir = parent.frame()) 1589s [00:53:09.321] - tweaked: FALSE 1589s [00:53:09.321] - call: NULL 1589s [00:53:09.321] plan(): nbrOfWorkers() = 1 1589s [00:53:09.322] plan(): Setting new future strategy stack: 1589s [00:53:09.323] List of future strategies: 1589s [00:53:09.323] 1. multisession: 1589s [00:53:09.323] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1589s [00:53:09.323] - tweaked: FALSE 1589s [00:53:09.323] - call: plan(strategy) 1589s [00:53:09.331] plan(): nbrOfWorkers() = 1 1589s [00:53:09.332] SequentialFuture started (and completed) 1589s [00:53:09.332] - Launch lazy future ... done 1589s [00:53:09.332] run() for ‘SequentialFuture’ ... done 1589s [00:53:09.333] Created future: 1589s [00:53:09.333] SequentialFuture: 1589s [00:53:09.333] Label: ‘future_vapply-1’ 1589s [00:53:09.333] Expression: 1589s [00:53:09.333] { 1589s [00:53:09.333] do.call(function(...) { 1589s [00:53:09.333] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1589s [00:53:09.333] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1589s [00:53:09.333] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1589s [00:53:09.333] on.exit(options(oopts), add = TRUE) 1589s [00:53:09.333] } 1589s [00:53:09.333] { 1589s [00:53:09.333] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1589s [00:53:09.333] ...future.X_jj <- ...future.elements_ii[[jj]] 1589s [00:53:09.333] ...future.FUN(...future.X_jj, ...) 1589s [00:53:09.333] }) 1589s [00:53:09.333] } 1589s [00:53:09.333] }, args = future.call.arguments) 1589s [00:53:09.333] } 1589s [00:53:09.333] Lazy evaluation: FALSE 1589s [00:53:09.333] Asynchronous evaluation: FALSE 1589s [00:53:09.333] Local evaluation: TRUE 1589s [00:53:09.333] Environment: R_GlobalEnv 1589s [00:53:09.333] Capture standard output: TRUE 1589s [00:53:09.333] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1589s [00:53:09.333] Globals: 11 objects totaling 95.50 KiB (function ‘...future.FUN’ of 21.22 KiB, function ‘x_FUN’ of 2.90 KiB, integer ‘times’ of 56 bytes, function ‘stopf’ of 26.43 KiB, function ‘stop_if_not’ of 44.12 KiB, ...) 1589s [00:53:09.333] Packages: 1 packages (‘future.apply’) 1589s [00:53:09.333] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1589s [00:53:09.333] Resolved: TRUE 1589s [00:53:09.333] Value: 2.27 KiB of class ‘list’ 1589s [00:53:09.333] Early signaling: FALSE 1589s [00:53:09.333] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1589s [00:53:09.333] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1589s [00:53:09.336] Chunk #1 of 1 ... DONE 1589s [00:53:09.336] Launching 1 futures (chunks) ... DONE 1589s [00:53:09.336] Resolving 1 futures (chunks) ... 1589s [00:53:09.337] resolve() on list ... 1589s [00:53:09.337] recursive: 0 1589s [00:53:09.337] length: 1 1589s [00:53:09.337] 1589s [00:53:09.337] resolved() for ‘SequentialFuture’ ... 1589s [00:53:09.337] - state: ‘finished’ 1589s [00:53:09.338] - run: TRUE 1589s [00:53:09.338] - result: ‘FutureResult’ 1589s [00:53:09.338] resolved() for ‘SequentialFuture’ ... done 1589s [00:53:09.338] Future #1 1589s [00:53:09.339] signalConditionsASAP(SequentialFuture, pos=1) ... 1589s [00:53:09.339] - nx: 1 1589s [00:53:09.339] - relay: TRUE 1589s [00:53:09.339] - stdout: TRUE 1589s [00:53:09.339] - signal: TRUE 1589s [00:53:09.339] - resignal: FALSE 1589s [00:53:09.339] - force: TRUE 1589s [00:53:09.340] - relayed: [n=1] FALSE 1589s [00:53:09.340] - queued futures: [n=1] FALSE 1589s [00:53:09.340] - until=1 1589s [00:53:09.340] - relaying element #1 1589s [00:53:09.341] - relayed: [n=1] TRUE 1589s [00:53:09.341] - queued futures: [n=1] TRUE 1589s [00:53:09.341] signalConditionsASAP(SequentialFuture, pos=1) ... done 1589s [00:53:09.341] length: 0 (resolved future 1) 1589s [00:53:09.341] Relaying remaining futures 1589s [00:53:09.342] signalConditionsASAP(NULL, pos=0) ... 1589s [00:53:09.342] - nx: 1 1589s [00:53:09.342] - relay: TRUE 1589s [00:53:09.342] - stdout: TRUE 1589s [00:53:09.342] - signal: TRUE 1589s [00:53:09.343] - resignal: FALSE 1589s [00:53:09.343] - force: TRUE 1589s [00:53:09.343] - relayed: [n=1] TRUE 1589s [00:53:09.343] - queued futures: [n=1] TRUE 1589s - flush all 1589s [00:53:09.343] - relayed: [n=1] TRUE 1589s [00:53:09.344] - queued futures: [n=1] TRUE 1589s [00:53:09.344] signalConditionsASAP(NULL, pos=0) ... done 1589s [00:53:09.344] resolve() on list ... DONE 1589s [00:53:09.344] - Number of value chunks collected: 1 1589s int [1:2, 1:2, 1:10] 1 1 1 1 2 2 2 2 3 3 ... 1589s [00:53:09.345] Resolving 1 futures (chunks) ... DONE 1589s [00:53:09.345] Reducing values from 1 chunks ... 1589s [00:53:09.345] - Number of values collected after concatenation: 10 1589s [00:53:09.345] - Number of values expected: 10 1589s [00:53:09.345] Reducing values from 1 chunks ... DONE 1589s [00:53:09.346] future_lapply() ... DONE 1589s num [1:2, 1:2, 1:10] 1 1 1 1 2 2 2 2 3 3 ... 1589s [00:53:09.347] future_lapply() ... 1589s [00:53:09.355] Number of chunks: 1 1589s [00:53:09.355] getGlobalsAndPackagesXApply() ... 1589s [00:53:09.355] - future.globals: TRUE 1589s [00:53:09.356] getGlobalsAndPackages() ... 1589s [00:53:09.356] Searching for globals... 1589s [00:53:09.361] - globals found: [17] ‘FUN’, ‘{’, ‘<-’, ‘x_FUN’, ‘if’, ‘!=’, ‘length’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘all’, ‘==’, ‘dim’, ‘%in%’, ‘typeof’, ‘valid_types’, ‘matrix’ 1589s [00:53:09.362] Searching for globals ... DONE 1589s [00:53:09.362] Resolving globals: FALSE 1589s [00:53:09.364] The total size of the 7 globals is 95.02 KiB (97304 bytes) 1589s [00:53:09.364] The total size of the 7 globals exported for future expression (‘FUN()’) is 95.02 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘stop_if_not’ (44.12 KiB of class ‘function’), ‘stopf’ (26.43 KiB of class ‘function’) and ‘FUN’ (21.22 KiB of class ‘function’) 1589s [00:53:09.364] - globals: [7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1589s [00:53:09.365] - packages: [1] ‘future.apply’ 1589s [00:53:09.365] getGlobalsAndPackages() ... DONE 1589s [00:53:09.365] - globals found/used: [n=7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1589s [00:53:09.365] - needed namespaces: [n=1] ‘future.apply’ 1589s [00:53:09.365] Finding globals ... DONE 1589s [00:53:09.366] - use_args: TRUE 1589s [00:53:09.366] - Getting '...' globals ... 1589s [00:53:09.366] resolve() on list ... 1589s [00:53:09.366] recursive: 0 1589s [00:53:09.366] length: 1 1589s [00:53:09.366] elements: ‘...’ 1589s [00:53:09.367] length: 0 (resolved future 1) 1589s [00:53:09.367] resolve() on list ... DONE 1589s [00:53:09.367] - '...' content: [n=0] 1589s [00:53:09.370] List of 1 1589s [00:53:09.370] $ ...: list() 1589s [00:53:09.370] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1589s [00:53:09.370] - attr(*, "where")=List of 1 1589s [00:53:09.370] ..$ ...: 1589s [00:53:09.370] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1589s [00:53:09.370] - attr(*, "resolved")= logi TRUE 1589s [00:53:09.370] - attr(*, "total_size")= num NA 1589s [00:53:09.378] - Getting '...' globals ... DONE 1589s [00:53:09.378] Globals to be used in all futures (chunks): [n=8] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’ 1589s [00:53:09.378] List of 8 1589s [00:53:09.378] $ ...future.FUN:function (x, ...) 1589s [00:53:09.378] $ x_FUN :function (x) 1589s [00:53:09.378] $ times : int 4 1589s [00:53:09.378] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1589s [00:53:09.378] $ stop_if_not :function (...) 1589s [00:53:09.378] $ dim : int [1:2] 2 2 1589s [00:53:09.378] $ valid_types : chr [1:3] "logical" "integer" "double" 1589s [00:53:09.378] $ ... : list() 1589s [00:53:09.378] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1589s [00:53:09.378] - attr(*, "where")=List of 8 1589s [00:53:09.378] ..$ ...future.FUN: 1589s [00:53:09.378] ..$ x_FUN : 1589s [00:53:09.378] ..$ times : 1589s [00:53:09.378] ..$ stopf : 1589s [00:53:09.378] ..$ stop_if_not : 1589s [00:53:09.378] ..$ dim : 1589s [00:53:09.378] ..$ valid_types : 1589s [00:53:09.378] ..$ ... : 1589s [00:53:09.378] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1589s [00:53:09.378] - attr(*, "resolved")= logi FALSE 1589s [00:53:09.378] - attr(*, "total_size")= num 97304 1589s [00:53:09.389] Packages to be attached in all futures: [n=1] ‘future.apply’ 1589s [00:53:09.390] getGlobalsAndPackagesXApply() ... DONE 1589s [00:53:09.390] Number of futures (= number of chunks): 1 1589s [00:53:09.390] Launching 1 futures (chunks) ... 1589s [00:53:09.391] Chunk #1 of 1 ... 1589s [00:53:09.391] - Finding globals in 'X' for chunk #1 ... 1589s [00:53:09.391] getGlobalsAndPackages() ... 1589s [00:53:09.391] Searching for globals... 1589s [00:53:09.392] 1589s [00:53:09.392] Searching for globals ... DONE 1589s [00:53:09.392] - globals: [0] 1589s [00:53:09.392] getGlobalsAndPackages() ... DONE 1589s [00:53:09.392] + additional globals found: [n=0] 1589s [00:53:09.392] + additional namespaces needed: [n=0] 1589s [00:53:09.393] - Finding globals in 'X' for chunk #1 ... DONE 1589s [00:53:09.393] - seeds: 1589s [00:53:09.393] - All globals exported: [n=11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1589s [00:53:09.393] getGlobalsAndPackages() ... 1589s [00:53:09.394] - globals passed as-is: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1589s [00:53:09.394] Resolving globals: FALSE 1589s [00:53:09.394] Tweak future expression to call with '...' arguments ... 1589s [00:53:09.394] { 1589s [00:53:09.394] do.call(function(...) { 1589s [00:53:09.394] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1589s [00:53:09.394] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1589s [00:53:09.394] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1589s [00:53:09.394] on.exit(options(oopts), add = TRUE) 1589s [00:53:09.394] } 1589s [00:53:09.394] { 1589s [00:53:09.394] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1589s [00:53:09.394] ...future.X_jj <- ...future.elements_ii[[jj]] 1589s [00:53:09.394] ...future.FUN(...future.X_jj, ...) 1589s [00:53:09.394] }) 1589s [00:53:09.394] } 1589s [00:53:09.394] }, args = future.call.arguments) 1589s [00:53:09.394] } 1589s [00:53:09.395] Tweak future expression to call with '...' arguments ... DONE 1589s [00:53:09.396] - globals: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1589s [00:53:09.397] - packages: [1] ‘future.apply’ 1589s [00:53:09.397] getGlobalsAndPackages() ... DONE 1589s [00:53:09.397] run() for ‘Future’ ... 1589s [00:53:09.398] - state: ‘created’ 1589s [00:53:09.398] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1589s [00:53:09.403] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1589s [00:53:09.403] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1589s [00:53:09.404] - Field: ‘label’ 1589s [00:53:09.404] - Field: ‘local’ 1589s [00:53:09.404] - Field: ‘owner’ 1589s [00:53:09.404] - Field: ‘envir’ 1589s [00:53:09.405] - Field: ‘packages’ 1589s [00:53:09.405] - Field: ‘gc’ 1589s [00:53:09.405] - Field: ‘conditions’ 1589s [00:53:09.405] - Field: ‘expr’ 1589s [00:53:09.405] - Field: ‘uuid’ 1589s [00:53:09.405] - Field: ‘seed’ 1589s [00:53:09.406] - Field: ‘version’ 1589s [00:53:09.406] - Field: ‘result’ 1589s [00:53:09.406] - Field: ‘asynchronous’ 1589s [00:53:09.406] - Field: ‘calls’ 1589s [00:53:09.406] - Field: ‘globals’ 1589s [00:53:09.406] - Field: ‘stdout’ 1589s [00:53:09.407] - Field: ‘earlySignal’ 1589s [00:53:09.407] - Field: ‘lazy’ 1589s [00:53:09.407] - Field: ‘state’ 1589s [00:53:09.407] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1589s [00:53:09.407] - Launch lazy future ... 1589s [00:53:09.408] Packages needed by the future expression (n = 1): ‘future.apply’ 1589s [00:53:09.408] Packages needed by future strategies (n = 0): 1589s [00:53:09.409] { 1589s [00:53:09.409] { 1589s [00:53:09.409] { 1589s [00:53:09.409] ...future.startTime <- base::Sys.time() 1589s [00:53:09.409] { 1589s [00:53:09.409] { 1589s [00:53:09.409] { 1589s [00:53:09.409] { 1589s [00:53:09.409] base::local({ 1589s [00:53:09.409] has_future <- base::requireNamespace("future", 1589s [00:53:09.409] quietly = TRUE) 1589s [00:53:09.409] if (has_future) { 1589s [00:53:09.409] ns <- base::getNamespace("future") 1589s [00:53:09.409] version <- ns[[".package"]][["version"]] 1589s [00:53:09.409] if (is.null(version)) 1589s [00:53:09.409] version <- utils::packageVersion("future") 1589s [00:53:09.409] } 1589s [00:53:09.409] else { 1589s [00:53:09.409] version <- NULL 1589s [00:53:09.409] } 1589s [00:53:09.409] if (!has_future || version < "1.8.0") { 1589s [00:53:09.409] info <- base::c(r_version = base::gsub("R version ", 1589s [00:53:09.409] "", base::R.version$version.string), 1589s [00:53:09.409] platform = base::sprintf("%s (%s-bit)", 1589s [00:53:09.409] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1589s [00:53:09.409] os = base::paste(base::Sys.info()[base::c("sysname", 1589s [00:53:09.409] "release", "version")], collapse = " "), 1589s [00:53:09.409] hostname = base::Sys.info()[["nodename"]]) 1589s [00:53:09.409] info <- base::sprintf("%s: %s", base::names(info), 1589s [00:53:09.409] info) 1589s [00:53:09.409] info <- base::paste(info, collapse = "; ") 1589s [00:53:09.409] if (!has_future) { 1589s [00:53:09.409] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1589s [00:53:09.409] info) 1589s [00:53:09.409] } 1589s [00:53:09.409] else { 1589s [00:53:09.409] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1589s [00:53:09.409] info, version) 1589s [00:53:09.409] } 1589s [00:53:09.409] base::stop(msg) 1589s [00:53:09.409] } 1589s [00:53:09.409] }) 1589s [00:53:09.409] } 1589s [00:53:09.409] base::local({ 1589s [00:53:09.409] for (pkg in "future.apply") { 1589s [00:53:09.409] base::loadNamespace(pkg) 1589s [00:53:09.409] base::library(pkg, character.only = TRUE) 1589s [00:53:09.409] } 1589s [00:53:09.409] }) 1589s [00:53:09.409] } 1589s [00:53:09.409] options(future.plan = NULL) 1589s [00:53:09.409] Sys.unsetenv("R_FUTURE_PLAN") 1589s [00:53:09.409] future::plan("default", .cleanup = FALSE, .init = FALSE) 1589s [00:53:09.409] } 1589s [00:53:09.409] ...future.workdir <- getwd() 1589s [00:53:09.409] } 1589s [00:53:09.409] ...future.oldOptions <- base::as.list(base::.Options) 1589s [00:53:09.409] ...future.oldEnvVars <- base::Sys.getenv() 1589s [00:53:09.409] } 1589s [00:53:09.409] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1589s [00:53:09.409] future.globals.maxSize = NULL, future.globals.method = NULL, 1589s [00:53:09.409] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1589s [00:53:09.409] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1589s [00:53:09.409] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1589s [00:53:09.409] future.stdout.windows.reencode = NULL, width = 80L) 1589s [00:53:09.409] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1589s [00:53:09.409] base::names(...future.oldOptions)) 1589s [00:53:09.409] } 1589s [00:53:09.409] if (FALSE) { 1589s [00:53:09.409] } 1589s [00:53:09.409] else { 1589s [00:53:09.409] if (TRUE) { 1589s [00:53:09.409] ...future.stdout <- base::rawConnection(base::raw(0L), 1589s [00:53:09.409] open = "w") 1589s [00:53:09.409] } 1589s [00:53:09.409] else { 1589s [00:53:09.409] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1589s [00:53:09.409] windows = "NUL", "/dev/null"), open = "w") 1589s [00:53:09.409] } 1589s [00:53:09.409] base::sink(...future.stdout, type = "output", split = FALSE) 1589s [00:53:09.409] base::on.exit(if (!base::is.null(...future.stdout)) { 1589s [00:53:09.409] base::sink(type = "output", split = FALSE) 1589s [00:53:09.409] base::close(...future.stdout) 1589s [00:53:09.409] }, add = TRUE) 1589s [00:53:09.409] } 1589s [00:53:09.409] ...future.frame <- base::sys.nframe() 1589s [00:53:09.409] ...future.conditions <- base::list() 1589s [00:53:09.409] ...future.rng <- base::globalenv()$.Random.seed 1589s [00:53:09.409] if (FALSE) { 1589s [00:53:09.409] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1589s [00:53:09.409] "...future.value", "...future.globalenv.names", ".Random.seed") 1589s [00:53:09.409] } 1589s [00:53:09.409] ...future.result <- base::tryCatch({ 1589s [00:53:09.409] base::withCallingHandlers({ 1589s [00:53:09.409] ...future.value <- base::withVisible(base::local({ 1589s [00:53:09.409] do.call(function(...) { 1589s [00:53:09.409] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1589s [00:53:09.409] if (!identical(...future.globals.maxSize.org, 1589s [00:53:09.409] ...future.globals.maxSize)) { 1589s [00:53:09.409] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1589s [00:53:09.409] on.exit(options(oopts), add = TRUE) 1589s [00:53:09.409] } 1589s [00:53:09.409] { 1589s [00:53:09.409] lapply(seq_along(...future.elements_ii), 1589s [00:53:09.409] FUN = function(jj) { 1589s [00:53:09.409] ...future.X_jj <- ...future.elements_ii[[jj]] 1589s [00:53:09.409] ...future.FUN(...future.X_jj, ...) 1589s [00:53:09.409] }) 1589s [00:53:09.409] } 1589s [00:53:09.409] }, args = future.call.arguments) 1589s [00:53:09.409] })) 1589s [00:53:09.409] future::FutureResult(value = ...future.value$value, 1589s [00:53:09.409] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1589s [00:53:09.409] ...future.rng), globalenv = if (FALSE) 1589s [00:53:09.409] list(added = base::setdiff(base::names(base::.GlobalEnv), 1589s [00:53:09.409] ...future.globalenv.names)) 1589s [00:53:09.409] else NULL, started = ...future.startTime, version = "1.8") 1589s [00:53:09.409] }, condition = base::local({ 1589s [00:53:09.409] c <- base::c 1589s [00:53:09.409] inherits <- base::inherits 1589s [00:53:09.409] invokeRestart <- base::invokeRestart 1589s [00:53:09.409] length <- base::length 1589s [00:53:09.409] list <- base::list 1589s [00:53:09.409] seq.int <- base::seq.int 1589s [00:53:09.409] signalCondition <- base::signalCondition 1589s [00:53:09.409] sys.calls <- base::sys.calls 1589s [00:53:09.409] `[[` <- base::`[[` 1589s [00:53:09.409] `+` <- base::`+` 1589s [00:53:09.409] `<<-` <- base::`<<-` 1589s [00:53:09.409] sysCalls <- function(calls = sys.calls(), from = 1L) { 1589s [00:53:09.409] calls[seq.int(from = from + 12L, to = length(calls) - 1589s [00:53:09.409] 3L)] 1589s [00:53:09.409] } 1589s [00:53:09.409] function(cond) { 1589s [00:53:09.409] is_error <- inherits(cond, "error") 1589s [00:53:09.409] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1589s [00:53:09.409] NULL) 1589s [00:53:09.409] if (is_error) { 1589s [00:53:09.409] sessionInformation <- function() { 1589s [00:53:09.409] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1589s [00:53:09.409] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1589s [00:53:09.409] search = base::search(), system = base::Sys.info()) 1589s [00:53:09.409] } 1589s [00:53:09.409] ...future.conditions[[length(...future.conditions) + 1589s [00:53:09.409] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1589s [00:53:09.409] cond$call), session = sessionInformation(), 1589s [00:53:09.409] timestamp = base::Sys.time(), signaled = 0L) 1589s [00:53:09.409] signalCondition(cond) 1589s [00:53:09.409] } 1589s [00:53:09.409] else if (!ignore && TRUE && inherits(cond, c("condition", 1589s [00:53:09.409] "immediateCondition"))) { 1589s [00:53:09.409] signal <- TRUE && inherits(cond, "immediateCondition") 1589s [00:53:09.409] ...future.conditions[[length(...future.conditions) + 1589s [00:53:09.409] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1589s [00:53:09.409] if (TRUE && !signal) { 1589s [00:53:09.409] muffleCondition <- function (cond, pattern = "^muffle") 1589s [00:53:09.409] { 1589s [00:53:09.409] inherits <- base::inherits 1589s [00:53:09.409] invokeRestart <- base::invokeRestart 1589s [00:53:09.409] is.null <- base::is.null 1589s [00:53:09.409] muffled <- FALSE 1589s [00:53:09.409] if (inherits(cond, "message")) { 1589s [00:53:09.409] muffled <- grepl(pattern, "muffleMessage") 1589s [00:53:09.409] if (muffled) 1589s [00:53:09.409] invokeRestart("muffleMessage") 1589s [00:53:09.409] } 1589s [00:53:09.409] else if (inherits(cond, "warning")) { 1589s [00:53:09.409] muffled <- grepl(pattern, "muffleWarning") 1589s [00:53:09.409] if (muffled) 1589s [00:53:09.409] invokeRestart("muffleWarning") 1589s [00:53:09.409] } 1589s [00:53:09.409] else if (inherits(cond, "condition")) { 1589s [00:53:09.409] if (!is.null(pattern)) { 1589s [00:53:09.409] computeRestarts <- base::computeRestarts 1589s [00:53:09.409] grepl <- base::grepl 1589s [00:53:09.409] restarts <- computeRestarts(cond) 1589s [00:53:09.409] for (restart in restarts) { 1589s [00:53:09.409] name <- restart$name 1589s [00:53:09.409] if (is.null(name)) 1589s [00:53:09.409] next 1589s [00:53:09.409] if (!grepl(pattern, name)) 1589s [00:53:09.409] next 1589s [00:53:09.409] invokeRestart(restart) 1589s [00:53:09.409] muffled <- TRUE 1589s [00:53:09.409] break 1589s [00:53:09.409] } 1589s [00:53:09.409] } 1589s [00:53:09.409] } 1589s [00:53:09.409] invisible(muffled) 1589s [00:53:09.409] } 1589s [00:53:09.409] muffleCondition(cond, pattern = "^muffle") 1589s [00:53:09.409] } 1589s [00:53:09.409] } 1589s [00:53:09.409] else { 1589s [00:53:09.409] if (TRUE) { 1589s [00:53:09.409] muffleCondition <- function (cond, pattern = "^muffle") 1589s [00:53:09.409] { 1589s [00:53:09.409] inherits <- base::inherits 1589s [00:53:09.409] invokeRestart <- base::invokeRestart 1589s [00:53:09.409] is.null <- base::is.null 1589s [00:53:09.409] muffled <- FALSE 1589s [00:53:09.409] if (inherits(cond, "message")) { 1589s [00:53:09.409] muffled <- grepl(pattern, "muffleMessage") 1589s [00:53:09.409] if (muffled) 1589s [00:53:09.409] invokeRestart("muffleMessage") 1589s [00:53:09.409] } 1589s [00:53:09.409] else if (inherits(cond, "warning")) { 1589s [00:53:09.409] muffled <- grepl(pattern, "muffleWarning") 1589s [00:53:09.409] if (muffled) 1589s [00:53:09.409] invokeRestart("muffleWarning") 1589s [00:53:09.409] } 1589s [00:53:09.409] else if (inherits(cond, "condition")) { 1589s [00:53:09.409] if (!is.null(pattern)) { 1589s [00:53:09.409] computeRestarts <- base::computeRestarts 1589s [00:53:09.409] grepl <- base::grepl 1589s [00:53:09.409] restarts <- computeRestarts(cond) 1589s [00:53:09.409] for (restart in restarts) { 1589s [00:53:09.409] name <- restart$name 1589s [00:53:09.409] if (is.null(name)) 1589s [00:53:09.409] next 1589s [00:53:09.409] if (!grepl(pattern, name)) 1589s [00:53:09.409] next 1589s [00:53:09.409] invokeRestart(restart) 1589s [00:53:09.409] muffled <- TRUE 1589s [00:53:09.409] break 1589s [00:53:09.409] } 1589s [00:53:09.409] } 1589s [00:53:09.409] } 1589s [00:53:09.409] invisible(muffled) 1589s [00:53:09.409] } 1589s [00:53:09.409] muffleCondition(cond, pattern = "^muffle") 1589s [00:53:09.409] } 1589s [00:53:09.409] } 1589s [00:53:09.409] } 1589s [00:53:09.409] })) 1589s [00:53:09.409] }, error = function(ex) { 1589s [00:53:09.409] base::structure(base::list(value = NULL, visible = NULL, 1589s [00:53:09.409] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1589s [00:53:09.409] ...future.rng), started = ...future.startTime, 1589s [00:53:09.409] finished = Sys.time(), session_uuid = NA_character_, 1589s [00:53:09.409] version = "1.8"), class = "FutureResult") 1589s [00:53:09.409] }, finally = { 1589s [00:53:09.409] if (!identical(...future.workdir, getwd())) 1589s [00:53:09.409] setwd(...future.workdir) 1589s [00:53:09.409] { 1589s [00:53:09.409] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1589s [00:53:09.409] ...future.oldOptions$nwarnings <- NULL 1589s [00:53:09.409] } 1589s [00:53:09.409] base::options(...future.oldOptions) 1589s [00:53:09.409] if (.Platform$OS.type == "windows") { 1589s [00:53:09.409] old_names <- names(...future.oldEnvVars) 1589s [00:53:09.409] envs <- base::Sys.getenv() 1589s [00:53:09.409] names <- names(envs) 1589s [00:53:09.409] common <- intersect(names, old_names) 1589s [00:53:09.409] added <- setdiff(names, old_names) 1589s [00:53:09.409] removed <- setdiff(old_names, names) 1589s [00:53:09.409] changed <- common[...future.oldEnvVars[common] != 1589s [00:53:09.409] envs[common]] 1589s [00:53:09.409] NAMES <- toupper(changed) 1589s [00:53:09.409] args <- list() 1589s [00:53:09.409] for (kk in seq_along(NAMES)) { 1589s [00:53:09.409] name <- changed[[kk]] 1589s [00:53:09.409] NAME <- NAMES[[kk]] 1589s [00:53:09.409] if (name != NAME && is.element(NAME, old_names)) 1589s [00:53:09.409] next 1589s [00:53:09.409] args[[name]] <- ...future.oldEnvVars[[name]] 1589s [00:53:09.409] } 1589s [00:53:09.409] NAMES <- toupper(added) 1589s [00:53:09.409] for (kk in seq_along(NAMES)) { 1589s [00:53:09.409] name <- added[[kk]] 1589s [00:53:09.409] NAME <- NAMES[[kk]] 1589s [00:53:09.409] if (name != NAME && is.element(NAME, old_names)) 1589s [00:53:09.409] next 1589s [00:53:09.409] args[[name]] <- "" 1589s [00:53:09.409] } 1589s [00:53:09.409] NAMES <- toupper(removed) 1589s [00:53:09.409] for (kk in seq_along(NAMES)) { 1589s [00:53:09.409] name <- removed[[kk]] 1589s [00:53:09.409] NAME <- NAMES[[kk]] 1589s [00:53:09.409] if (name != NAME && is.element(NAME, old_names)) 1589s [00:53:09.409] next 1589s [00:53:09.409] args[[name]] <- ...future.oldEnvVars[[name]] 1589s [00:53:09.409] } 1589s [00:53:09.409] if (length(args) > 0) 1589s [00:53:09.409] base::do.call(base::Sys.setenv, args = args) 1589s [00:53:09.409] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1589s [00:53:09.409] } 1589s [00:53:09.409] else { 1589s [00:53:09.409] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1589s [00:53:09.409] } 1589s [00:53:09.409] { 1589s [00:53:09.409] if (base::length(...future.futureOptionsAdded) > 1589s [00:53:09.409] 0L) { 1589s [00:53:09.409] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1589s [00:53:09.409] base::names(opts) <- ...future.futureOptionsAdded 1589s [00:53:09.409] base::options(opts) 1589s [00:53:09.409] } 1589s [00:53:09.409] { 1589s [00:53:09.409] { 1589s [00:53:09.409] NULL 1589s [00:53:09.409] RNGkind("Mersenne-Twister") 1589s [00:53:09.409] base::rm(list = ".Random.seed", envir = base::globalenv(), 1589s [00:53:09.409] inherits = FALSE) 1589s [00:53:09.409] } 1589s [00:53:09.409] options(future.plan = NULL) 1589s [00:53:09.409] if (is.na(NA_character_)) 1589s [00:53:09.409] Sys.unsetenv("R_FUTURE_PLAN") 1589s [00:53:09.409] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1589s [00:53:09.409] future::plan(list(function (..., workers = availableCores(), 1589s [00:53:09.409] lazy = FALSE, rscript_libs = .libPaths(), 1589s [00:53:09.409] envir = parent.frame()) 1589s [00:53:09.409] { 1589s [00:53:09.409] if (is.function(workers)) 1589s [00:53:09.409] workers <- workers() 1589s [00:53:09.409] workers <- structure(as.integer(workers), 1589s [00:53:09.409] class = class(workers)) 1589s [00:53:09.409] stop_if_not(length(workers) == 1, is.finite(workers), 1589s [00:53:09.409] workers >= 1) 1589s [00:53:09.409] if (workers == 1L && !inherits(workers, "AsIs")) { 1589s [00:53:09.409] return(sequential(..., lazy = TRUE, envir = envir)) 1589s [00:53:09.409] } 1589s [00:53:09.409] future <- MultisessionFuture(..., workers = workers, 1589s [00:53:09.409] lazy = lazy, rscript_libs = rscript_libs, 1589s [00:53:09.409] envir = envir) 1589s [00:53:09.409] if (!future$lazy) 1589s [00:53:09.409] future <- run(future) 1589s [00:53:09.409] invisible(future) 1589s [00:53:09.409] }), .cleanup = FALSE, .init = FALSE) 1589s [00:53:09.409] } 1589s [00:53:09.409] } 1589s [00:53:09.409] } 1589s [00:53:09.409] }) 1589s [00:53:09.409] if (TRUE) { 1589s [00:53:09.409] base::sink(type = "output", split = FALSE) 1589s [00:53:09.409] if (TRUE) { 1589s [00:53:09.409] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1589s [00:53:09.409] } 1589s [00:53:09.409] else { 1589s [00:53:09.409] ...future.result["stdout"] <- base::list(NULL) 1589s [00:53:09.409] } 1589s [00:53:09.409] base::close(...future.stdout) 1589s [00:53:09.409] ...future.stdout <- NULL 1589s [00:53:09.409] } 1589s [00:53:09.409] ...future.result$conditions <- ...future.conditions 1589s [00:53:09.409] ...future.result$finished <- base::Sys.time() 1589s [00:53:09.409] ...future.result 1589s [00:53:09.409] } 1589s [00:53:09.415] assign_globals() ... 1589s [00:53:09.415] List of 11 1589s [00:53:09.415] $ ...future.FUN :function (x, ...) 1589s [00:53:09.415] $ x_FUN :function (x) 1589s [00:53:09.415] $ times : int 4 1589s [00:53:09.415] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1589s [00:53:09.415] $ stop_if_not :function (...) 1589s [00:53:09.415] $ dim : int [1:2] 2 2 1589s [00:53:09.415] $ valid_types : chr [1:3] "logical" "integer" "double" 1589s [00:53:09.415] $ future.call.arguments : list() 1589s [00:53:09.415] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1589s [00:53:09.415] $ ...future.elements_ii :List of 10 1589s [00:53:09.415] ..$ : int 1 1589s [00:53:09.415] ..$ : int 2 1589s [00:53:09.415] ..$ : int 3 1589s [00:53:09.415] ..$ : int 4 1589s [00:53:09.415] ..$ : int 5 1589s [00:53:09.415] ..$ : int 6 1589s [00:53:09.415] ..$ : int 7 1589s [00:53:09.415] ..$ : int 8 1589s [00:53:09.415] ..$ : int 9 1589s [00:53:09.415] ..$ : int 10 1589s [00:53:09.415] $ ...future.seeds_ii : NULL 1589s [00:53:09.415] $ ...future.globals.maxSize: NULL 1589s [00:53:09.415] - attr(*, "where")=List of 11 1589s [00:53:09.415] ..$ ...future.FUN : 1589s [00:53:09.415] ..$ x_FUN : 1589s [00:53:09.415] ..$ times : 1589s [00:53:09.415] ..$ stopf : 1589s [00:53:09.415] ..$ stop_if_not : 1589s [00:53:09.415] ..$ dim : 1589s [00:53:09.415] ..$ valid_types : 1589s [00:53:09.415] ..$ future.call.arguments : 1589s [00:53:09.415] ..$ ...future.elements_ii : 1589s [00:53:09.415] ..$ ...future.seeds_ii : 1589s [00:53:09.415] ..$ ...future.globals.maxSize: 1589s [00:53:09.415] - attr(*, "resolved")= logi FALSE 1589s [00:53:09.415] - attr(*, "total_size")= num 97304 1589s [00:53:09.415] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1589s [00:53:09.415] - attr(*, "already-done")= logi TRUE 1589s [00:53:09.437] - copied ‘...future.FUN’ to environment 1589s [00:53:09.437] - reassign environment for ‘x_FUN’ 1589s [00:53:09.437] - copied ‘x_FUN’ to environment 1589s [00:53:09.438] - copied ‘times’ to environment 1589s [00:53:09.438] - copied ‘stopf’ to environment 1589s [00:53:09.438] - copied ‘stop_if_not’ to environment 1589s [00:53:09.438] - copied ‘dim’ to environment 1589s [00:53:09.438] - copied ‘valid_types’ to environment 1589s [00:53:09.438] - copied ‘future.call.arguments’ to environment 1589s [00:53:09.438] - copied ‘...future.elements_ii’ to environment 1589s [00:53:09.439] - copied ‘...future.seeds_ii’ to environment 1589s [00:53:09.439] - copied ‘...future.globals.maxSize’ to environment 1589s [00:53:09.439] assign_globals() ... done 1589s [00:53:09.440] plan(): Setting new future strategy stack: 1589s [00:53:09.440] List of future strategies: 1589s [00:53:09.440] 1. sequential: 1589s [00:53:09.440] - args: function (..., envir = parent.frame()) 1589s [00:53:09.440] - tweaked: FALSE 1589s [00:53:09.440] - call: NULL 1589s [00:53:09.441] plan(): nbrOfWorkers() = 1 1589s [00:53:09.442] plan(): Setting new future strategy stack: 1589s [00:53:09.442] List of future strategies: 1589s [00:53:09.442] 1. multisession: 1589s [00:53:09.442] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1589s [00:53:09.442] - tweaked: FALSE 1589s [00:53:09.442] - call: plan(strategy) 1589s [00:53:09.447] plan(): nbrOfWorkers() = 1 1589s [00:53:09.447] SequentialFuture started (and completed) 1589s [00:53:09.448] - Launch lazy future ... done 1589s [00:53:09.448] run() for ‘SequentialFuture’ ... done 1589s [00:53:09.448] Created future: 1589s [00:53:09.448] SequentialFuture: 1589s [00:53:09.448] Label: ‘future_vapply-1’ 1589s [00:53:09.448] Expression: 1589s [00:53:09.448] { 1589s [00:53:09.448] do.call(function(...) { 1589s [00:53:09.448] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1589s [00:53:09.448] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1589s [00:53:09.448] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1589s [00:53:09.448] on.exit(options(oopts), add = TRUE) 1589s [00:53:09.448] } 1589s [00:53:09.448] { 1589s [00:53:09.448] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1589s [00:53:09.448] ...future.X_jj <- ...future.elements_ii[[jj]] 1589s [00:53:09.448] ...future.FUN(...future.X_jj, ...) 1589s [00:53:09.448] }) 1589s [00:53:09.448] } 1589s [00:53:09.448] }, args = future.call.arguments) 1589s [00:53:09.448] } 1589s [00:53:09.448] Lazy evaluation: FALSE 1589s [00:53:09.448] Asynchronous evaluation: FALSE 1589s [00:53:09.448] Local evaluation: TRUE 1589s [00:53:09.448] Environment: R_GlobalEnv 1589s [00:53:09.448] Capture standard output: TRUE 1589s [00:53:09.448] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1589s [00:53:09.448] Globals: 11 objects totaling 95.57 KiB (function ‘...future.FUN’ of 21.22 KiB, function ‘x_FUN’ of 2.90 KiB, integer ‘times’ of 56 bytes, function ‘stopf’ of 26.43 KiB, function ‘stop_if_not’ of 44.12 KiB, ...) 1589s [00:53:09.448] Packages: 1 packages (‘future.apply’) 1589s [00:53:09.448] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1589s [00:53:09.448] Resolved: TRUE 1589s [00:53:09.448] Value: 2.27 KiB of class ‘list’ 1589s [00:53:09.448] Early signaling: FALSE 1589s [00:53:09.448] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1589s [00:53:09.448] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1589s [00:53:09.451] Chunk #1 of 1 ... DONE 1589s [00:53:09.452] Launching 1 futures (chunks) ... DONE 1589s [00:53:09.452] Resolving 1 futures (chunks) ... 1589s [00:53:09.452] resolve() on list ... 1589s [00:53:09.452] recursive: 0 1589s [00:53:09.452] length: 1 1589s [00:53:09.453] 1589s [00:53:09.453] resolved() for ‘SequentialFuture’ ... 1589s [00:53:09.453] - state: ‘finished’ 1589s [00:53:09.453] - run: TRUE 1589s [00:53:09.454] - result: ‘FutureResult’ 1589s [00:53:09.454] resolved() for ‘SequentialFuture’ ... done 1589s [00:53:09.454] Future #1 1589s [00:53:09.457] signalConditionsASAP(SequentialFuture, pos=1) ... 1589s [00:53:09.457] - nx: 1 1589s [00:53:09.458] - relay: TRUE 1589s [00:53:09.458] - stdout: TRUE 1589s [00:53:09.458] - signal: TRUE 1589s [00:53:09.458] - resignal: FALSE 1589s [00:53:09.459] - force: TRUE 1589s [00:53:09.459] - relayed: [n=1] FALSE 1589s [00:53:09.459] - queued futures: [n=1] FALSE 1589s [00:53:09.460] - until=1 1589s [00:53:09.460] - relaying element #1 1589s [00:53:09.460] - relayed: [n=1] TRUE 1589s [00:53:09.460] - queued futures: [n=1] TRUE 1589s [00:53:09.461] signalConditionsASAP(SequentialFuture, pos=1) ... done 1589s [00:53:09.461] length: 0 (resolved future 1) 1589s [00:53:09.461] Relaying remaining futures 1589s [00:53:09.461] signalConditionsASAP(NULL, pos=0) ... 1589s [00:53:09.461] - nx: 1 1589s [00:53:09.462] - relay: TRUE 1589s [00:53:09.462] - stdout: TRUE 1589s [00:53:09.462] - signal: TRUE 1589s [00:53:09.462] - resignal: FALSE 1589s [00:53:09.462] - force: TRUE 1589s [00:53:09.463] - relayed: [n=1] TRUE 1589s [00:53:09.463] - queued futures: [n=1] TRUE 1589s - flush all 1589s [00:53:09.463] - relayed: [n=1] TRUE 1589s [00:53:09.463] - queued futures: [n=1] TRUE 1589s [00:53:09.464] signalConditionsASAP(NULL, pos=0) ... done 1589s [00:53:09.464] resolve() on list ... DONE 1589s [00:53:09.464] - Number of value chunks collected: 1 1589s [00:53:09.465] Resolving 1 futures (chunks) ... DONE 1589s [00:53:09.465] Reducing values from 1 chunks ... 1589s [00:53:09.465] - Number of values collected after concatenation: 10 1589s [00:53:09.465] - Number of values expected: 10 1589s [00:53:09.465] Reducing values from 1 chunks ... DONE 1589s [00:53:09.465] future_lapply() ... DONE 1589s int [1:2, 1:2, 1:10] 1 1 1 1 2 2 2 2 3 3 ... 1589s num [1:2, 1:2, 1:10] 1 1 1 1 2 2 2 2 3 3 ... 1589s - attr(*, "dimnames")=List of 3 1589s ..$ : chr [1:2] "a" "b" 1589s ..$ : chr [1:2] "A" "B" 1589s ..$ : NULL 1589s [00:53:09.470] future_lapply() ... 1589s [00:53:09.477] Number of chunks: 1 1589s [00:53:09.477] getGlobalsAndPackagesXApply() ... 1589s [00:53:09.477] - future.globals: TRUE 1589s [00:53:09.477] getGlobalsAndPackages() ... 1589s [00:53:09.478] Searching for globals... 1589s [00:53:09.484] - globals found: [19] ‘FUN’, ‘{’, ‘<-’, ‘x_FUN’, ‘if’, ‘!=’, ‘length’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘all’, ‘==’, ‘dim’, ‘%in%’, ‘typeof’, ‘valid_types’, ‘matrix’, ‘list’, ‘c’ 1589s [00:53:09.484] Searching for globals ... DONE 1589s [00:53:09.484] Resolving globals: FALSE 1589s [00:53:09.486] The total size of the 7 globals is 103.08 KiB (105552 bytes) 1589s [00:53:09.487] The total size of the 7 globals exported for future expression (‘FUN()’) is 103.08 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘stop_if_not’ (44.12 KiB of class ‘function’), ‘stopf’ (26.43 KiB of class ‘function’) and ‘FUN’ (21.22 KiB of class ‘function’) 1589s [00:53:09.487] - globals: [7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1589s [00:53:09.487] - packages: [1] ‘future.apply’ 1589s [00:53:09.487] getGlobalsAndPackages() ... DONE 1589s [00:53:09.487] - globals found/used: [n=7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1589s [00:53:09.487] - needed namespaces: [n=1] ‘future.apply’ 1589s [00:53:09.488] Finding globals ... DONE 1589s [00:53:09.488] - use_args: TRUE 1589s [00:53:09.488] - Getting '...' globals ... 1589s [00:53:09.489] resolve() on list ... 1589s [00:53:09.489] recursive: 0 1589s [00:53:09.489] length: 1 1589s [00:53:09.489] elements: ‘...’ 1589s [00:53:09.489] length: 0 (resolved future 1) 1589s [00:53:09.489] resolve() on list ... DONE 1589s [00:53:09.490] - '...' content: [n=0] 1589s [00:53:09.490] List of 1 1589s [00:53:09.490] $ ...: list() 1589s [00:53:09.490] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1589s [00:53:09.490] - attr(*, "where")=List of 1 1589s [00:53:09.490] ..$ ...: 1589s [00:53:09.490] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1589s [00:53:09.490] - attr(*, "resolved")= logi TRUE 1589s [00:53:09.490] - attr(*, "total_size")= num NA 1589s [00:53:09.497] - Getting '...' globals ... DONE 1589s [00:53:09.498] Globals to be used in all futures (chunks): [n=8] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’ 1589s [00:53:09.498] List of 8 1589s [00:53:09.498] $ ...future.FUN:function (x, ...) 1589s [00:53:09.498] $ x_FUN :function (x) 1589s [00:53:09.498] $ times : int 4 1589s [00:53:09.498] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1589s [00:53:09.498] $ stop_if_not :function (...) 1589s [00:53:09.498] $ dim : int [1:2] 2 2 1589s [00:53:09.498] $ valid_types : chr [1:3] "logical" "integer" "double" 1589s [00:53:09.498] $ ... : list() 1589s [00:53:09.498] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1589s [00:53:09.498] - attr(*, "where")=List of 8 1589s [00:53:09.498] ..$ ...future.FUN: 1589s [00:53:09.498] ..$ x_FUN : 1589s [00:53:09.498] ..$ times : 1589s [00:53:09.498] ..$ stopf : 1589s [00:53:09.498] ..$ stop_if_not : 1589s [00:53:09.498] ..$ dim : 1589s [00:53:09.498] ..$ valid_types : 1589s [00:53:09.498] ..$ ... : 1589s [00:53:09.498] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1589s [00:53:09.498] - attr(*, "resolved")= logi FALSE 1589s [00:53:09.498] - attr(*, "total_size")= num 105552 1589s [00:53:09.510] Packages to be attached in all futures: [n=1] ‘future.apply’ 1589s [00:53:09.510] getGlobalsAndPackagesXApply() ... DONE 1589s [00:53:09.510] Number of futures (= number of chunks): 1 1589s [00:53:09.511] Launching 1 futures (chunks) ... 1589s [00:53:09.511] Chunk #1 of 1 ... 1589s [00:53:09.511] - Finding globals in 'X' for chunk #1 ... 1589s [00:53:09.511] getGlobalsAndPackages() ... 1589s [00:53:09.511] Searching for globals... 1589s [00:53:09.512] 1589s [00:53:09.512] Searching for globals ... DONE 1589s [00:53:09.512] - globals: [0] 1589s [00:53:09.512] getGlobalsAndPackages() ... DONE 1589s [00:53:09.512] + additional globals found: [n=0] 1589s [00:53:09.513] + additional namespaces needed: [n=0] 1589s [00:53:09.513] - Finding globals in 'X' for chunk #1 ... DONE 1589s [00:53:09.513] - seeds: 1589s [00:53:09.513] - All globals exported: [n=11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1589s [00:53:09.513] getGlobalsAndPackages() ... 1589s [00:53:09.513] - globals passed as-is: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1589s [00:53:09.514] Resolving globals: FALSE 1589s [00:53:09.514] Tweak future expression to call with '...' arguments ... 1589s [00:53:09.514] { 1589s [00:53:09.514] do.call(function(...) { 1589s [00:53:09.514] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1589s [00:53:09.514] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1589s [00:53:09.514] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1589s [00:53:09.514] on.exit(options(oopts), add = TRUE) 1589s [00:53:09.514] } 1589s [00:53:09.514] { 1589s [00:53:09.514] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1589s [00:53:09.514] ...future.X_jj <- ...future.elements_ii[[jj]] 1589s [00:53:09.514] ...future.FUN(...future.X_jj, ...) 1589s [00:53:09.514] }) 1589s [00:53:09.514] } 1589s [00:53:09.514] }, args = future.call.arguments) 1589s [00:53:09.514] } 1589s [00:53:09.514] Tweak future expression to call with '...' arguments ... DONE 1589s [00:53:09.515] - globals: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1589s [00:53:09.515] - packages: [1] ‘future.apply’ 1589s [00:53:09.516] getGlobalsAndPackages() ... DONE 1589s [00:53:09.516] run() for ‘Future’ ... 1589s [00:53:09.517] - state: ‘created’ 1589s [00:53:09.517] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1589s [00:53:09.521] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1589s [00:53:09.521] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1589s [00:53:09.521] - Field: ‘label’ 1589s [00:53:09.521] - Field: ‘local’ 1589s [00:53:09.521] - Field: ‘owner’ 1589s [00:53:09.522] - Field: ‘envir’ 1589s [00:53:09.522] - Field: ‘packages’ 1589s [00:53:09.522] - Field: ‘gc’ 1589s [00:53:09.522] - Field: ‘conditions’ 1589s [00:53:09.523] - Field: ‘expr’ 1589s [00:53:09.523] - Field: ‘uuid’ 1589s [00:53:09.523] - Field: ‘seed’ 1589s [00:53:09.523] - Field: ‘version’ 1589s [00:53:09.523] - Field: ‘result’ 1589s [00:53:09.523] - Field: ‘asynchronous’ 1589s [00:53:09.523] - Field: ‘calls’ 1589s [00:53:09.524] - Field: ‘globals’ 1589s [00:53:09.524] - Field: ‘stdout’ 1589s [00:53:09.524] - Field: ‘earlySignal’ 1589s [00:53:09.524] - Field: ‘lazy’ 1589s [00:53:09.524] - Field: ‘state’ 1589s [00:53:09.525] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1589s [00:53:09.525] - Launch lazy future ... 1589s [00:53:09.525] Packages needed by the future expression (n = 1): ‘future.apply’ 1589s [00:53:09.525] Packages needed by future strategies (n = 0): 1589s [00:53:09.526] { 1589s [00:53:09.526] { 1589s [00:53:09.526] { 1589s [00:53:09.526] ...future.startTime <- base::Sys.time() 1589s [00:53:09.526] { 1589s [00:53:09.526] { 1589s [00:53:09.526] { 1589s [00:53:09.526] { 1589s [00:53:09.526] base::local({ 1589s [00:53:09.526] has_future <- base::requireNamespace("future", 1589s [00:53:09.526] quietly = TRUE) 1589s [00:53:09.526] if (has_future) { 1589s [00:53:09.526] ns <- base::getNamespace("future") 1589s [00:53:09.526] version <- ns[[".package"]][["version"]] 1589s [00:53:09.526] if (is.null(version)) 1589s [00:53:09.526] version <- utils::packageVersion("future") 1589s [00:53:09.526] } 1589s [00:53:09.526] else { 1589s [00:53:09.526] version <- NULL 1589s [00:53:09.526] } 1589s [00:53:09.526] if (!has_future || version < "1.8.0") { 1589s [00:53:09.526] info <- base::c(r_version = base::gsub("R version ", 1589s [00:53:09.526] "", base::R.version$version.string), 1589s [00:53:09.526] platform = base::sprintf("%s (%s-bit)", 1589s [00:53:09.526] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1589s [00:53:09.526] os = base::paste(base::Sys.info()[base::c("sysname", 1589s [00:53:09.526] "release", "version")], collapse = " "), 1589s [00:53:09.526] hostname = base::Sys.info()[["nodename"]]) 1589s [00:53:09.526] info <- base::sprintf("%s: %s", base::names(info), 1589s [00:53:09.526] info) 1589s [00:53:09.526] info <- base::paste(info, collapse = "; ") 1589s [00:53:09.526] if (!has_future) { 1589s [00:53:09.526] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1589s [00:53:09.526] info) 1589s [00:53:09.526] } 1589s [00:53:09.526] else { 1589s [00:53:09.526] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1589s [00:53:09.526] info, version) 1589s [00:53:09.526] } 1589s [00:53:09.526] base::stop(msg) 1589s [00:53:09.526] } 1589s [00:53:09.526] }) 1589s [00:53:09.526] } 1589s [00:53:09.526] base::local({ 1589s [00:53:09.526] for (pkg in "future.apply") { 1589s [00:53:09.526] base::loadNamespace(pkg) 1589s [00:53:09.526] base::library(pkg, character.only = TRUE) 1589s [00:53:09.526] } 1589s [00:53:09.526] }) 1589s [00:53:09.526] } 1589s [00:53:09.526] options(future.plan = NULL) 1589s [00:53:09.526] Sys.unsetenv("R_FUTURE_PLAN") 1589s [00:53:09.526] future::plan("default", .cleanup = FALSE, .init = FALSE) 1589s [00:53:09.526] } 1589s [00:53:09.526] ...future.workdir <- getwd() 1589s [00:53:09.526] } 1589s [00:53:09.526] ...future.oldOptions <- base::as.list(base::.Options) 1589s [00:53:09.526] ...future.oldEnvVars <- base::Sys.getenv() 1589s [00:53:09.526] } 1589s [00:53:09.526] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1589s [00:53:09.526] future.globals.maxSize = NULL, future.globals.method = NULL, 1589s [00:53:09.526] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1589s [00:53:09.526] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1589s [00:53:09.526] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1589s [00:53:09.526] future.stdout.windows.reencode = NULL, width = 80L) 1589s [00:53:09.526] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1589s [00:53:09.526] base::names(...future.oldOptions)) 1589s [00:53:09.526] } 1589s [00:53:09.526] if (FALSE) { 1589s [00:53:09.526] } 1589s [00:53:09.526] else { 1589s [00:53:09.526] if (TRUE) { 1589s [00:53:09.526] ...future.stdout <- base::rawConnection(base::raw(0L), 1589s [00:53:09.526] open = "w") 1589s [00:53:09.526] } 1589s [00:53:09.526] else { 1589s [00:53:09.526] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1589s [00:53:09.526] windows = "NUL", "/dev/null"), open = "w") 1589s [00:53:09.526] } 1589s [00:53:09.526] base::sink(...future.stdout, type = "output", split = FALSE) 1589s [00:53:09.526] base::on.exit(if (!base::is.null(...future.stdout)) { 1589s [00:53:09.526] base::sink(type = "output", split = FALSE) 1589s [00:53:09.526] base::close(...future.stdout) 1589s [00:53:09.526] }, add = TRUE) 1589s [00:53:09.526] } 1589s [00:53:09.526] ...future.frame <- base::sys.nframe() 1589s [00:53:09.526] ...future.conditions <- base::list() 1589s [00:53:09.526] ...future.rng <- base::globalenv()$.Random.seed 1589s [00:53:09.526] if (FALSE) { 1589s [00:53:09.526] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1589s [00:53:09.526] "...future.value", "...future.globalenv.names", ".Random.seed") 1589s [00:53:09.526] } 1589s [00:53:09.526] ...future.result <- base::tryCatch({ 1589s [00:53:09.526] base::withCallingHandlers({ 1589s [00:53:09.526] ...future.value <- base::withVisible(base::local({ 1589s [00:53:09.526] do.call(function(...) { 1589s [00:53:09.526] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1589s [00:53:09.526] if (!identical(...future.globals.maxSize.org, 1589s [00:53:09.526] ...future.globals.maxSize)) { 1589s [00:53:09.526] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1589s [00:53:09.526] on.exit(options(oopts), add = TRUE) 1589s [00:53:09.526] } 1589s [00:53:09.526] { 1589s [00:53:09.526] lapply(seq_along(...future.elements_ii), 1589s [00:53:09.526] FUN = function(jj) { 1589s [00:53:09.526] ...future.X_jj <- ...future.elements_ii[[jj]] 1589s [00:53:09.526] ...future.FUN(...future.X_jj, ...) 1589s [00:53:09.526] }) 1589s [00:53:09.526] } 1589s [00:53:09.526] }, args = future.call.arguments) 1589s [00:53:09.526] })) 1589s [00:53:09.526] future::FutureResult(value = ...future.value$value, 1589s [00:53:09.526] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1589s [00:53:09.526] ...future.rng), globalenv = if (FALSE) 1589s [00:53:09.526] list(added = base::setdiff(base::names(base::.GlobalEnv), 1589s [00:53:09.526] ...future.globalenv.names)) 1589s [00:53:09.526] else NULL, started = ...future.startTime, version = "1.8") 1589s [00:53:09.526] }, condition = base::local({ 1589s [00:53:09.526] c <- base::c 1589s [00:53:09.526] inherits <- base::inherits 1589s [00:53:09.526] invokeRestart <- base::invokeRestart 1589s [00:53:09.526] length <- base::length 1589s [00:53:09.526] list <- base::list 1589s [00:53:09.526] seq.int <- base::seq.int 1589s [00:53:09.526] signalCondition <- base::signalCondition 1589s [00:53:09.526] sys.calls <- base::sys.calls 1589s [00:53:09.526] `[[` <- base::`[[` 1589s [00:53:09.526] `+` <- base::`+` 1589s [00:53:09.526] `<<-` <- base::`<<-` 1589s [00:53:09.526] sysCalls <- function(calls = sys.calls(), from = 1L) { 1589s [00:53:09.526] calls[seq.int(from = from + 12L, to = length(calls) - 1589s [00:53:09.526] 3L)] 1589s [00:53:09.526] } 1589s [00:53:09.526] function(cond) { 1589s [00:53:09.526] is_error <- inherits(cond, "error") 1589s [00:53:09.526] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1589s [00:53:09.526] NULL) 1589s [00:53:09.526] if (is_error) { 1589s [00:53:09.526] sessionInformation <- function() { 1589s [00:53:09.526] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1589s [00:53:09.526] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1589s [00:53:09.526] search = base::search(), system = base::Sys.info()) 1589s [00:53:09.526] } 1589s [00:53:09.526] ...future.conditions[[length(...future.conditions) + 1589s [00:53:09.526] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1589s [00:53:09.526] cond$call), session = sessionInformation(), 1589s [00:53:09.526] timestamp = base::Sys.time(), signaled = 0L) 1589s [00:53:09.526] signalCondition(cond) 1589s [00:53:09.526] } 1589s [00:53:09.526] else if (!ignore && TRUE && inherits(cond, c("condition", 1589s [00:53:09.526] "immediateCondition"))) { 1589s [00:53:09.526] signal <- TRUE && inherits(cond, "immediateCondition") 1589s [00:53:09.526] ...future.conditions[[length(...future.conditions) + 1589s [00:53:09.526] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1589s [00:53:09.526] if (TRUE && !signal) { 1589s [00:53:09.526] muffleCondition <- function (cond, pattern = "^muffle") 1589s [00:53:09.526] { 1589s [00:53:09.526] inherits <- base::inherits 1589s [00:53:09.526] invokeRestart <- base::invokeRestart 1589s [00:53:09.526] is.null <- base::is.null 1589s [00:53:09.526] muffled <- FALSE 1589s [00:53:09.526] if (inherits(cond, "message")) { 1589s [00:53:09.526] muffled <- grepl(pattern, "muffleMessage") 1589s [00:53:09.526] if (muffled) 1589s [00:53:09.526] invokeRestart("muffleMessage") 1589s [00:53:09.526] } 1589s [00:53:09.526] else if (inherits(cond, "warning")) { 1589s [00:53:09.526] muffled <- grepl(pattern, "muffleWarning") 1589s [00:53:09.526] if (muffled) 1589s [00:53:09.526] invokeRestart("muffleWarning") 1589s [00:53:09.526] } 1589s [00:53:09.526] else if (inherits(cond, "condition")) { 1589s [00:53:09.526] if (!is.null(pattern)) { 1589s [00:53:09.526] computeRestarts <- base::computeRestarts 1589s [00:53:09.526] grepl <- base::grepl 1589s [00:53:09.526] restarts <- computeRestarts(cond) 1589s [00:53:09.526] for (restart in restarts) { 1589s [00:53:09.526] name <- restart$name 1589s [00:53:09.526] if (is.null(name)) 1589s [00:53:09.526] next 1589s [00:53:09.526] if (!grepl(pattern, name)) 1589s [00:53:09.526] next 1589s [00:53:09.526] invokeRestart(restart) 1589s [00:53:09.526] muffled <- TRUE 1589s [00:53:09.526] break 1589s [00:53:09.526] } 1589s [00:53:09.526] } 1589s [00:53:09.526] } 1589s [00:53:09.526] invisible(muffled) 1589s [00:53:09.526] } 1589s [00:53:09.526] muffleCondition(cond, pattern = "^muffle") 1589s [00:53:09.526] } 1589s [00:53:09.526] } 1589s [00:53:09.526] else { 1589s [00:53:09.526] if (TRUE) { 1589s [00:53:09.526] muffleCondition <- function (cond, pattern = "^muffle") 1589s [00:53:09.526] { 1589s [00:53:09.526] inherits <- base::inherits 1589s [00:53:09.526] invokeRestart <- base::invokeRestart 1589s [00:53:09.526] is.null <- base::is.null 1589s [00:53:09.526] muffled <- FALSE 1589s [00:53:09.526] if (inherits(cond, "message")) { 1589s [00:53:09.526] muffled <- grepl(pattern, "muffleMessage") 1589s [00:53:09.526] if (muffled) 1589s [00:53:09.526] invokeRestart("muffleMessage") 1589s [00:53:09.526] } 1589s [00:53:09.526] else if (inherits(cond, "warning")) { 1589s [00:53:09.526] muffled <- grepl(pattern, "muffleWarning") 1589s [00:53:09.526] if (muffled) 1589s [00:53:09.526] invokeRestart("muffleWarning") 1589s [00:53:09.526] } 1589s [00:53:09.526] else if (inherits(cond, "condition")) { 1589s [00:53:09.526] if (!is.null(pattern)) { 1589s [00:53:09.526] computeRestarts <- base::computeRestarts 1589s [00:53:09.526] grepl <- base::grepl 1589s [00:53:09.526] restarts <- computeRestarts(cond) 1589s [00:53:09.526] for (restart in restarts) { 1589s [00:53:09.526] name <- restart$name 1589s [00:53:09.526] if (is.null(name)) 1589s [00:53:09.526] next 1589s [00:53:09.526] if (!grepl(pattern, name)) 1589s [00:53:09.526] next 1589s [00:53:09.526] invokeRestart(restart) 1589s [00:53:09.526] muffled <- TRUE 1589s [00:53:09.526] break 1589s [00:53:09.526] } 1589s [00:53:09.526] } 1589s [00:53:09.526] } 1589s [00:53:09.526] invisible(muffled) 1589s [00:53:09.526] } 1589s [00:53:09.526] muffleCondition(cond, pattern = "^muffle") 1589s [00:53:09.526] } 1589s [00:53:09.526] } 1589s [00:53:09.526] } 1589s [00:53:09.526] })) 1589s [00:53:09.526] }, error = function(ex) { 1589s [00:53:09.526] base::structure(base::list(value = NULL, visible = NULL, 1589s [00:53:09.526] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1589s [00:53:09.526] ...future.rng), started = ...future.startTime, 1589s [00:53:09.526] finished = Sys.time(), session_uuid = NA_character_, 1589s [00:53:09.526] version = "1.8"), class = "FutureResult") 1589s [00:53:09.526] }, finally = { 1589s [00:53:09.526] if (!identical(...future.workdir, getwd())) 1589s [00:53:09.526] setwd(...future.workdir) 1589s [00:53:09.526] { 1589s [00:53:09.526] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1589s [00:53:09.526] ...future.oldOptions$nwarnings <- NULL 1589s [00:53:09.526] } 1589s [00:53:09.526] base::options(...future.oldOptions) 1589s [00:53:09.526] if (.Platform$OS.type == "windows") { 1589s [00:53:09.526] old_names <- names(...future.oldEnvVars) 1589s [00:53:09.526] envs <- base::Sys.getenv() 1589s [00:53:09.526] names <- names(envs) 1589s [00:53:09.526] common <- intersect(names, old_names) 1589s [00:53:09.526] added <- setdiff(names, old_names) 1589s [00:53:09.526] removed <- setdiff(old_names, names) 1589s [00:53:09.526] changed <- common[...future.oldEnvVars[common] != 1589s [00:53:09.526] envs[common]] 1589s [00:53:09.526] NAMES <- toupper(changed) 1589s [00:53:09.526] args <- list() 1589s [00:53:09.526] for (kk in seq_along(NAMES)) { 1589s [00:53:09.526] name <- changed[[kk]] 1589s [00:53:09.526] NAME <- NAMES[[kk]] 1589s [00:53:09.526] if (name != NAME && is.element(NAME, old_names)) 1589s [00:53:09.526] next 1589s [00:53:09.526] args[[name]] <- ...future.oldEnvVars[[name]] 1589s [00:53:09.526] } 1589s [00:53:09.526] NAMES <- toupper(added) 1589s [00:53:09.526] for (kk in seq_along(NAMES)) { 1589s [00:53:09.526] name <- added[[kk]] 1589s [00:53:09.526] NAME <- NAMES[[kk]] 1589s [00:53:09.526] if (name != NAME && is.element(NAME, old_names)) 1589s [00:53:09.526] next 1589s [00:53:09.526] args[[name]] <- "" 1589s [00:53:09.526] } 1589s [00:53:09.526] NAMES <- toupper(removed) 1589s [00:53:09.526] for (kk in seq_along(NAMES)) { 1589s [00:53:09.526] name <- removed[[kk]] 1589s [00:53:09.526] NAME <- NAMES[[kk]] 1589s [00:53:09.526] if (name != NAME && is.element(NAME, old_names)) 1589s [00:53:09.526] next 1589s [00:53:09.526] args[[name]] <- ...future.oldEnvVars[[name]] 1589s [00:53:09.526] } 1589s [00:53:09.526] if (length(args) > 0) 1589s [00:53:09.526] base::do.call(base::Sys.setenv, args = args) 1589s [00:53:09.526] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1589s [00:53:09.526] } 1589s [00:53:09.526] else { 1589s [00:53:09.526] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1589s [00:53:09.526] } 1589s [00:53:09.526] { 1589s [00:53:09.526] if (base::length(...future.futureOptionsAdded) > 1589s [00:53:09.526] 0L) { 1589s [00:53:09.526] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1589s [00:53:09.526] base::names(opts) <- ...future.futureOptionsAdded 1589s [00:53:09.526] base::options(opts) 1589s [00:53:09.526] } 1589s [00:53:09.526] { 1589s [00:53:09.526] { 1589s [00:53:09.526] NULL 1589s [00:53:09.526] RNGkind("Mersenne-Twister") 1589s [00:53:09.526] base::rm(list = ".Random.seed", envir = base::globalenv(), 1589s [00:53:09.526] inherits = FALSE) 1589s [00:53:09.526] } 1589s [00:53:09.526] options(future.plan = NULL) 1589s [00:53:09.526] if (is.na(NA_character_)) 1589s [00:53:09.526] Sys.unsetenv("R_FUTURE_PLAN") 1589s [00:53:09.526] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1589s [00:53:09.526] future::plan(list(function (..., workers = availableCores(), 1589s [00:53:09.526] lazy = FALSE, rscript_libs = .libPaths(), 1589s [00:53:09.526] envir = parent.frame()) 1589s [00:53:09.526] { 1589s [00:53:09.526] if (is.function(workers)) 1589s [00:53:09.526] workers <- workers() 1589s [00:53:09.526] workers <- structure(as.integer(workers), 1589s [00:53:09.526] class = class(workers)) 1589s [00:53:09.526] stop_if_not(length(workers) == 1, is.finite(workers), 1589s [00:53:09.526] workers >= 1) 1589s [00:53:09.526] if (workers == 1L && !inherits(workers, "AsIs")) { 1589s [00:53:09.526] return(sequential(..., lazy = TRUE, envir = envir)) 1589s [00:53:09.526] } 1589s [00:53:09.526] future <- MultisessionFuture(..., workers = workers, 1589s [00:53:09.526] lazy = lazy, rscript_libs = rscript_libs, 1589s [00:53:09.526] envir = envir) 1589s [00:53:09.526] if (!future$lazy) 1589s [00:53:09.526] future <- run(future) 1589s [00:53:09.526] invisible(future) 1589s [00:53:09.526] }), .cleanup = FALSE, .init = FALSE) 1589s [00:53:09.526] } 1589s [00:53:09.526] } 1589s [00:53:09.526] } 1589s [00:53:09.526] }) 1589s [00:53:09.526] if (TRUE) { 1589s [00:53:09.526] base::sink(type = "output", split = FALSE) 1589s [00:53:09.526] if (TRUE) { 1589s [00:53:09.526] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1589s [00:53:09.526] } 1589s [00:53:09.526] else { 1589s [00:53:09.526] ...future.result["stdout"] <- base::list(NULL) 1589s [00:53:09.526] } 1589s [00:53:09.526] base::close(...future.stdout) 1589s [00:53:09.526] ...future.stdout <- NULL 1589s [00:53:09.526] } 1589s [00:53:09.526] ...future.result$conditions <- ...future.conditions 1589s [00:53:09.526] ...future.result$finished <- base::Sys.time() 1589s [00:53:09.526] ...future.result 1589s [00:53:09.526] } 1589s [00:53:09.531] assign_globals() ... 1589s [00:53:09.531] List of 11 1589s [00:53:09.531] $ ...future.FUN :function (x, ...) 1589s [00:53:09.531] $ x_FUN :function (x) 1589s [00:53:09.531] $ times : int 4 1589s [00:53:09.531] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1589s [00:53:09.531] $ stop_if_not :function (...) 1589s [00:53:09.531] $ dim : int [1:2] 2 2 1589s [00:53:09.531] $ valid_types : chr [1:3] "logical" "integer" "double" 1589s [00:53:09.531] $ future.call.arguments : list() 1589s [00:53:09.531] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1589s [00:53:09.531] $ ...future.elements_ii :List of 10 1589s [00:53:09.531] ..$ : int 1 1589s [00:53:09.531] ..$ : int 2 1589s [00:53:09.531] ..$ : int 3 1589s [00:53:09.531] ..$ : int 4 1589s [00:53:09.531] ..$ : int 5 1589s [00:53:09.531] ..$ : int 6 1589s [00:53:09.531] ..$ : int 7 1589s [00:53:09.531] ..$ : int 8 1589s [00:53:09.531] ..$ : int 9 1589s [00:53:09.531] ..$ : int 10 1589s [00:53:09.531] $ ...future.seeds_ii : NULL 1589s [00:53:09.531] $ ...future.globals.maxSize: NULL 1589s [00:53:09.531] - attr(*, "where")=List of 11 1589s [00:53:09.531] ..$ ...future.FUN : 1589s [00:53:09.531] ..$ x_FUN : 1589s [00:53:09.531] ..$ times : 1589s [00:53:09.531] ..$ stopf : 1589s [00:53:09.531] ..$ stop_if_not : 1589s [00:53:09.531] ..$ dim : 1589s [00:53:09.531] ..$ valid_types : 1589s [00:53:09.531] ..$ future.call.arguments : 1589s [00:53:09.531] ..$ ...future.elements_ii : 1589s [00:53:09.531] ..$ ...future.seeds_ii : 1589s [00:53:09.531] ..$ ...future.globals.maxSize: 1589s [00:53:09.531] - attr(*, "resolved")= logi FALSE 1589s [00:53:09.531] - attr(*, "total_size")= num 105552 1589s [00:53:09.531] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1589s [00:53:09.531] - attr(*, "already-done")= logi TRUE 1589s [00:53:09.552] - copied ‘...future.FUN’ to environment 1589s [00:53:09.552] - reassign environment for ‘x_FUN’ 1589s [00:53:09.552] - copied ‘x_FUN’ to environment 1589s [00:53:09.552] - copied ‘times’ to environment 1589s [00:53:09.552] - copied ‘stopf’ to environment 1589s [00:53:09.553] - copied ‘stop_if_not’ to environment 1589s [00:53:09.553] - copied ‘dim’ to environment 1589s [00:53:09.553] - copied ‘valid_types’ to environment 1589s [00:53:09.554] - copied ‘future.call.arguments’ to environment 1589s [00:53:09.554] - copied ‘...future.elements_ii’ to environment 1589s [00:53:09.554] - copied ‘...future.seeds_ii’ to environment 1589s [00:53:09.554] - copied ‘...future.globals.maxSize’ to environment 1589s [00:53:09.554] assign_globals() ... done 1589s [00:53:09.555] plan(): Setting new future strategy stack: 1589s [00:53:09.555] List of future strategies: 1589s [00:53:09.555] 1. sequential: 1589s [00:53:09.555] - args: function (..., envir = parent.frame()) 1589s [00:53:09.555] - tweaked: FALSE 1589s [00:53:09.555] - call: NULL 1589s [00:53:09.556] plan(): nbrOfWorkers() = 1 1589s [00:53:09.557] plan(): Setting new future strategy stack: 1589s [00:53:09.557] List of future strategies: 1589s [00:53:09.557] 1. multisession: 1589s [00:53:09.557] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1589s [00:53:09.557] - tweaked: FALSE 1589s [00:53:09.557] - call: plan(strategy) 1589s [00:53:09.562] plan(): nbrOfWorkers() = 1 1589s [00:53:09.562] SequentialFuture started (and completed) 1589s [00:53:09.562] - Launch lazy future ... done 1589s [00:53:09.563] run() for ‘SequentialFuture’ ... done 1589s [00:53:09.563] Created future: 1589s [00:53:09.563] SequentialFuture: 1589s [00:53:09.563] Label: ‘future_vapply-1’ 1589s [00:53:09.563] Expression: 1589s [00:53:09.563] { 1589s [00:53:09.563] do.call(function(...) { 1589s [00:53:09.563] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1589s [00:53:09.563] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1589s [00:53:09.563] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1589s [00:53:09.563] on.exit(options(oopts), add = TRUE) 1589s [00:53:09.563] } 1589s [00:53:09.563] { 1589s [00:53:09.563] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1589s [00:53:09.563] ...future.X_jj <- ...future.elements_ii[[jj]] 1589s [00:53:09.563] ...future.FUN(...future.X_jj, ...) 1589s [00:53:09.563] }) 1589s [00:53:09.563] } 1589s [00:53:09.563] }, args = future.call.arguments) 1589s [00:53:09.563] } 1589s [00:53:09.563] Lazy evaluation: FALSE 1589s [00:53:09.563] Asynchronous evaluation: FALSE 1589s [00:53:09.563] Local evaluation: TRUE 1589s [00:53:09.563] Environment: R_GlobalEnv 1589s [00:53:09.563] Capture standard output: TRUE 1589s [00:53:09.563] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1589s [00:53:09.563] Globals: 11 objects totaling 103.62 KiB (function ‘...future.FUN’ of 21.22 KiB, function ‘x_FUN’ of 10.95 KiB, integer ‘times’ of 56 bytes, function ‘stopf’ of 26.43 KiB, function ‘stop_if_not’ of 44.12 KiB, ...) 1589s [00:53:09.563] Packages: 1 packages (‘future.apply’) 1589s [00:53:09.563] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1589s [00:53:09.563] Resolved: TRUE 1589s [00:53:09.563] Value: 7.42 KiB of class ‘list’ 1589s [00:53:09.563] Early signaling: FALSE 1589s [00:53:09.563] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1589s [00:53:09.563] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1589s [00:53:09.565] Chunk #1 of 1 ... DONE 1589s [00:53:09.565] Launching 1 futures (chunks) ... DONE 1589s [00:53:09.565] Resolving 1 futures (chunks) ... 1589s [00:53:09.566] resolve() on list ... 1589s [00:53:09.566] recursive: 0 1589s [00:53:09.566] length: 1 1589s [00:53:09.566] 1589s [00:53:09.566] resolved() for ‘SequentialFuture’ ... 1589s [00:53:09.566] - state: ‘finished’ 1589s [00:53:09.567] - run: TRUE 1589s [00:53:09.567] - result: ‘FutureResult’ 1589s [00:53:09.567] resolved() for ‘SequentialFuture’ ... done 1589s [00:53:09.567] Future #1 1589s [00:53:09.567] signalConditionsASAP(SequentialFuture, pos=1) ... 1589s [00:53:09.567] - nx: 1 1589s [00:53:09.568] - relay: TRUE 1589s [00:53:09.570] - stdout: TRUE 1589s [00:53:09.571] - signal: TRUE 1589s [00:53:09.571] - resignal: FALSE 1589s [00:53:09.571] - force: TRUE 1589s [00:53:09.571] - relayed: [n=1] FALSE 1589s [00:53:09.571] - queued futures: [n=1] FALSE 1589s [00:53:09.572] - until=1 1589s [00:53:09.572] - relaying element #1 1589s [00:53:09.572] - relayed: [n=1] TRUE 1589s [00:53:09.572] - queued futures: [n=1] TRUE 1589s [00:53:09.572] signalConditionsASAP(SequentialFuture, pos=1) ... done 1589s [00:53:09.573] length: 0 (resolved future 1) 1589s [00:53:09.573] Relaying remaining futures 1589s [00:53:09.573] signalConditionsASAP(NULL, pos=0) ... 1589s [00:53:09.573] - nx: 1 1589s [00:53:09.573] - relay: TRUE 1589s [00:53:09.574] - stdout: TRUE 1589s [00:53:09.574] - signal: TRUE 1589s [00:53:09.574] - resignal: FALSE 1589s [00:53:09.574] - force: TRUE 1589s [00:53:09.574] - relayed: [n=1] TRUE 1589s [00:53:09.574] - queued futures: [n=1] TRUE 1589s - flush all 1589s [00:53:09.575] - relayed: [n=1] TRUE 1589s [00:53:09.575] - queued futures: [n=1] TRUE 1589s [00:53:09.575] signalConditionsASAP(NULL, pos=0) ... done 1589s [00:53:09.576] resolve() on list ... DONE 1589s [00:53:09.576] - Number of value chunks collected: 1 1589s [00:53:09.576] Resolving 1 futures (chunks) ... DONE 1589s [00:53:09.576] Reducing values from 1 chunks ... 1589s [00:53:09.576] - Number of values collected after concatenation: 10 1589s [00:53:09.576] - Number of values expected: 10 1589s [00:53:09.577] Reducing values from 1 chunks ... DONE 1589s [00:53:09.577] future_lapply() ... DONE 1589s int [1:2, 1:2, 1:10] 1 1 1 1 2 2 2 2 3 3- From example(vapply) ... 1589s ... 1589s - attr(*, "dimnames")=List of 3 1589s ..$ : chr [1:2] "a" "b" 1589s ..$ : chr [1:2] "A" "B" 1589s ..$ : NULL 1589s [00:53:09.581] future_lapply() ... 1589s [00:53:09.587] Number of chunks: 1 1589s [00:53:09.587] getGlobalsAndPackagesXApply() ... 1589s [00:53:09.588] - future.globals: TRUE 1589s [00:53:09.588] getGlobalsAndPackages() ... 1589s [00:53:09.588] Searching for globals... 1589s [00:53:09.593] - globals found: [17] ‘FUN’, ‘{’, ‘<-’, ‘x_FUN’, ‘if’, ‘!=’, ‘length’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘all’, ‘==’, ‘dim’, ‘%in%’, ‘typeof’, ‘valid_types’, ‘UseMethod’ 1589s [00:53:09.594] Searching for globals ... DONE 1589s [00:53:09.594] Resolving globals: FALSE 1589s [00:53:09.595] The total size of the 7 globals is 93.29 KiB (95528 bytes) 1589s [00:53:09.596] The total size of the 7 globals exported for future expression (‘FUN()’) is 93.29 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘stop_if_not’ (44.12 KiB of class ‘function’), ‘stopf’ (26.43 KiB of class ‘function’) and ‘FUN’ (21.22 KiB of class ‘function’) 1589s [00:53:09.597] - globals: [7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1589s [00:53:09.597] - packages: [2] ‘stats’, ‘future.apply’ 1589s [00:53:09.597] getGlobalsAndPackages() ... DONE 1589s [00:53:09.598] - globals found/used: [n=7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1589s [00:53:09.598] - needed namespaces: [n=2] ‘stats’, ‘future.apply’ 1589s [00:53:09.598] Finding globals ... DONE 1589s [00:53:09.598] - use_args: TRUE 1589s [00:53:09.598] - Getting '...' globals ... 1589s [00:53:09.599] resolve() on list ... 1589s [00:53:09.599] recursive: 0 1589s [00:53:09.599] length: 1 1589s [00:53:09.599] elements: ‘...’ 1589s [00:53:09.599] length: 0 (resolved future 1) 1589s [00:53:09.599] resolve() on list ... DONE 1589s [00:53:09.600] - '...' content: [n=0] 1589s [00:53:09.600] List of 1 1589s [00:53:09.600] $ ...: list() 1589s [00:53:09.600] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1589s [00:53:09.600] - attr(*, "where")=List of 1 1589s [00:53:09.600] ..$ ...: 1589s [00:53:09.600] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1589s [00:53:09.600] - attr(*, "resolved")= logi TRUE 1589s [00:53:09.600] - attr(*, "total_size")= num NA 1589s [00:53:09.606] - Getting '...' globals ... DONE 1589s [00:53:09.607] Globals to be used in all futures (chunks): [n=8] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’ 1589s [00:53:09.607] List of 8 1589s [00:53:09.607] $ ...future.FUN:function (x, ...) 1589s [00:53:09.607] $ x_FUN :function (x, ...) 1589s [00:53:09.607] $ times : int 5 1589s [00:53:09.607] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1589s [00:53:09.607] $ stop_if_not :function (...) 1589s [00:53:09.607] $ dim : NULL 1589s [00:53:09.607] $ valid_types : chr [1:3] "logical" "integer" "double" 1589s [00:53:09.607] $ ... : list() 1589s [00:53:09.607] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1589s [00:53:09.607] - attr(*, "where")=List of 8 1589s [00:53:09.607] ..$ ...future.FUN: 1589s [00:53:09.607] ..$ x_FUN : 1589s [00:53:09.607] ..$ times : 1589s [00:53:09.607] ..$ stopf : 1589s [00:53:09.607] ..$ stop_if_not : 1589s [00:53:09.607] ..$ dim : 1589s [00:53:09.607] ..$ valid_types : 1589s [00:53:09.607] ..$ ... : 1589s [00:53:09.607] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1589s [00:53:09.607] - attr(*, "resolved")= logi FALSE 1589s [00:53:09.607] - attr(*, "total_size")= num 95528 1589s [00:53:09.616] Packages to be attached in all futures: [n=2] ‘stats’, ‘future.apply’ 1589s [00:53:09.616] getGlobalsAndPackagesXApply() ... DONE 1589s [00:53:09.616] Number of futures (= number of chunks): 1 1589s [00:53:09.617] Launching 1 futures (chunks) ... 1589s [00:53:09.617] Chunk #1 of 1 ... 1589s [00:53:09.617] - Finding globals in 'X' for chunk #1 ... 1589s [00:53:09.618] getGlobalsAndPackages() ... 1589s [00:53:09.618] Searching for globals... 1589s [00:53:09.618] 1589s [00:53:09.618] Searching for globals ... DONE 1589s [00:53:09.618] - globals: [0] 1589s [00:53:09.619] getGlobalsAndPackages() ... DONE 1589s [00:53:09.619] + additional globals found: [n=0] 1589s [00:53:09.619] + additional namespaces needed: [n=0] 1589s [00:53:09.619] - Finding globals in 'X' for chunk #1 ... DONE 1589s [00:53:09.619] - seeds: 1589s [00:53:09.619] - All globals exported: [n=11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1589s [00:53:09.620] getGlobalsAndPackages() ... 1589s [00:53:09.620] - globals passed as-is: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1589s [00:53:09.620] Resolving globals: FALSE 1589s [00:53:09.620] Tweak future expression to call with '...' arguments ... 1589s [00:53:09.621] { 1589s [00:53:09.621] do.call(function(...) { 1589s [00:53:09.621] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1589s [00:53:09.621] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1589s [00:53:09.621] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1589s [00:53:09.621] on.exit(options(oopts), add = TRUE) 1589s [00:53:09.621] } 1589s [00:53:09.621] { 1589s [00:53:09.621] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1589s [00:53:09.621] ...future.X_jj <- ...future.elements_ii[[jj]] 1589s [00:53:09.621] ...future.FUN(...future.X_jj, ...) 1589s [00:53:09.621] }) 1589s [00:53:09.621] } 1589s [00:53:09.621] }, args = future.call.arguments) 1589s [00:53:09.621] } 1589s [00:53:09.621] Tweak future expression to call with '...' arguments ... DONE 1589s [00:53:09.622] - globals: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1589s [00:53:09.623] - packages: [2] ‘stats’, ‘future.apply’ 1589s [00:53:09.623] getGlobalsAndPackages() ... DONE 1589s [00:53:09.623] run() for ‘Future’ ... 1589s [00:53:09.624] - state: ‘created’ 1589s [00:53:09.624] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1589s [00:53:09.628] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1589s [00:53:09.628] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1589s [00:53:09.628] - Field: ‘label’ 1589s [00:53:09.629] - Field: ‘local’ 1589s [00:53:09.629] - Field: ‘owner’ 1589s [00:53:09.629] - Field: ‘envir’ 1589s [00:53:09.629] - Field: ‘packages’ 1589s [00:53:09.629] - Field: ‘gc’ 1589s [00:53:09.629] - Field: ‘conditions’ 1589s [00:53:09.629] - Field: ‘expr’ 1589s [00:53:09.630] - Field: ‘uuid’ 1589s [00:53:09.630] - Field: ‘seed’ 1589s [00:53:09.630] - Field: ‘version’ 1589s [00:53:09.630] - Field: ‘result’ 1589s [00:53:09.630] - Field: ‘asynchronous’ 1589s [00:53:09.630] - Field: ‘calls’ 1589s [00:53:09.631] - Field: ‘globals’ 1589s [00:53:09.631] - Field: ‘stdout’ 1589s [00:53:09.631] - Field: ‘earlySignal’ 1589s [00:53:09.631] - Field: ‘lazy’ 1589s [00:53:09.631] - Field: ‘state’ 1589s [00:53:09.631] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1589s [00:53:09.632] - Launch lazy future ... 1589s [00:53:09.632] Packages needed by the future expression (n = 2): ‘stats’, ‘future.apply’ 1589s [00:53:09.632] Packages needed by future strategies (n = 0): 1589s [00:53:09.633] { 1589s [00:53:09.633] { 1589s [00:53:09.633] { 1589s [00:53:09.633] ...future.startTime <- base::Sys.time() 1589s [00:53:09.633] { 1589s [00:53:09.633] { 1589s [00:53:09.633] { 1589s [00:53:09.633] { 1589s [00:53:09.633] base::local({ 1589s [00:53:09.633] has_future <- base::requireNamespace("future", 1589s [00:53:09.633] quietly = TRUE) 1589s [00:53:09.633] if (has_future) { 1589s [00:53:09.633] ns <- base::getNamespace("future") 1589s [00:53:09.633] version <- ns[[".package"]][["version"]] 1589s [00:53:09.633] if (is.null(version)) 1589s [00:53:09.633] version <- utils::packageVersion("future") 1589s [00:53:09.633] } 1589s [00:53:09.633] else { 1589s [00:53:09.633] version <- NULL 1589s [00:53:09.633] } 1589s [00:53:09.633] if (!has_future || version < "1.8.0") { 1589s [00:53:09.633] info <- base::c(r_version = base::gsub("R version ", 1589s [00:53:09.633] "", base::R.version$version.string), 1589s [00:53:09.633] platform = base::sprintf("%s (%s-bit)", 1589s [00:53:09.633] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1589s [00:53:09.633] os = base::paste(base::Sys.info()[base::c("sysname", 1589s [00:53:09.633] "release", "version")], collapse = " "), 1589s [00:53:09.633] hostname = base::Sys.info()[["nodename"]]) 1589s [00:53:09.633] info <- base::sprintf("%s: %s", base::names(info), 1589s [00:53:09.633] info) 1589s [00:53:09.633] info <- base::paste(info, collapse = "; ") 1589s [00:53:09.633] if (!has_future) { 1589s [00:53:09.633] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1589s [00:53:09.633] info) 1589s [00:53:09.633] } 1589s [00:53:09.633] else { 1589s [00:53:09.633] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1589s [00:53:09.633] info, version) 1589s [00:53:09.633] } 1589s [00:53:09.633] base::stop(msg) 1589s [00:53:09.633] } 1589s [00:53:09.633] }) 1589s [00:53:09.633] } 1589s [00:53:09.633] base::local({ 1589s [00:53:09.633] for (pkg in c("stats", "future.apply")) { 1589s [00:53:09.633] base::loadNamespace(pkg) 1589s [00:53:09.633] base::library(pkg, character.only = TRUE) 1589s [00:53:09.633] } 1589s [00:53:09.633] }) 1589s [00:53:09.633] } 1589s [00:53:09.633] options(future.plan = NULL) 1589s [00:53:09.633] Sys.unsetenv("R_FUTURE_PLAN") 1589s [00:53:09.633] future::plan("default", .cleanup = FALSE, .init = FALSE) 1589s [00:53:09.633] } 1589s [00:53:09.633] ...future.workdir <- getwd() 1589s [00:53:09.633] } 1589s [00:53:09.633] ...future.oldOptions <- base::as.list(base::.Options) 1589s [00:53:09.633] ...future.oldEnvVars <- base::Sys.getenv() 1589s [00:53:09.633] } 1589s [00:53:09.633] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1589s [00:53:09.633] future.globals.maxSize = NULL, future.globals.method = NULL, 1589s [00:53:09.633] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1589s [00:53:09.633] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1589s [00:53:09.633] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1589s [00:53:09.633] future.stdout.windows.reencode = NULL, width = 80L) 1589s [00:53:09.633] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1589s [00:53:09.633] base::names(...future.oldOptions)) 1589s [00:53:09.633] } 1589s [00:53:09.633] if (FALSE) { 1589s [00:53:09.633] } 1589s [00:53:09.633] else { 1589s [00:53:09.633] if (TRUE) { 1589s [00:53:09.633] ...future.stdout <- base::rawConnection(base::raw(0L), 1589s [00:53:09.633] open = "w") 1589s [00:53:09.633] } 1589s [00:53:09.633] else { 1589s [00:53:09.633] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1589s [00:53:09.633] windows = "NUL", "/dev/null"), open = "w") 1589s [00:53:09.633] } 1589s [00:53:09.633] base::sink(...future.stdout, type = "output", split = FALSE) 1589s [00:53:09.633] base::on.exit(if (!base::is.null(...future.stdout)) { 1589s [00:53:09.633] base::sink(type = "output", split = FALSE) 1589s [00:53:09.633] base::close(...future.stdout) 1589s [00:53:09.633] }, add = TRUE) 1589s [00:53:09.633] } 1589s [00:53:09.633] ...future.frame <- base::sys.nframe() 1589s [00:53:09.633] ...future.conditions <- base::list() 1589s [00:53:09.633] ...future.rng <- base::globalenv()$.Random.seed 1589s [00:53:09.633] if (FALSE) { 1589s [00:53:09.633] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1589s [00:53:09.633] "...future.value", "...future.globalenv.names", ".Random.seed") 1589s [00:53:09.633] } 1589s [00:53:09.633] ...future.result <- base::tryCatch({ 1589s [00:53:09.633] base::withCallingHandlers({ 1589s [00:53:09.633] ...future.value <- base::withVisible(base::local({ 1589s [00:53:09.633] do.call(function(...) { 1589s [00:53:09.633] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1589s [00:53:09.633] if (!identical(...future.globals.maxSize.org, 1589s [00:53:09.633] ...future.globals.maxSize)) { 1589s [00:53:09.633] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1589s [00:53:09.633] on.exit(options(oopts), add = TRUE) 1589s [00:53:09.633] } 1589s [00:53:09.633] { 1589s [00:53:09.633] lapply(seq_along(...future.elements_ii), 1589s [00:53:09.633] FUN = function(jj) { 1589s [00:53:09.633] ...future.X_jj <- ...future.elements_ii[[jj]] 1589s [00:53:09.633] ...future.FUN(...future.X_jj, ...) 1589s [00:53:09.633] }) 1589s [00:53:09.633] } 1589s [00:53:09.633] }, args = future.call.arguments) 1589s [00:53:09.633] })) 1589s [00:53:09.633] future::FutureResult(value = ...future.value$value, 1589s [00:53:09.633] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1589s [00:53:09.633] ...future.rng), globalenv = if (FALSE) 1589s [00:53:09.633] list(added = base::setdiff(base::names(base::.GlobalEnv), 1589s [00:53:09.633] ...future.globalenv.names)) 1589s [00:53:09.633] else NULL, started = ...future.startTime, version = "1.8") 1589s [00:53:09.633] }, condition = base::local({ 1589s [00:53:09.633] c <- base::c 1589s [00:53:09.633] inherits <- base::inherits 1589s [00:53:09.633] invokeRestart <- base::invokeRestart 1589s [00:53:09.633] length <- base::length 1589s [00:53:09.633] list <- base::list 1589s [00:53:09.633] seq.int <- base::seq.int 1589s [00:53:09.633] signalCondition <- base::signalCondition 1589s [00:53:09.633] sys.calls <- base::sys.calls 1589s [00:53:09.633] `[[` <- base::`[[` 1589s [00:53:09.633] `+` <- base::`+` 1589s [00:53:09.633] `<<-` <- base::`<<-` 1589s [00:53:09.633] sysCalls <- function(calls = sys.calls(), from = 1L) { 1589s [00:53:09.633] calls[seq.int(from = from + 12L, to = length(calls) - 1589s [00:53:09.633] 3L)] 1589s [00:53:09.633] } 1589s [00:53:09.633] function(cond) { 1589s [00:53:09.633] is_error <- inherits(cond, "error") 1589s [00:53:09.633] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1589s [00:53:09.633] NULL) 1589s [00:53:09.633] if (is_error) { 1589s [00:53:09.633] sessionInformation <- function() { 1589s [00:53:09.633] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1589s [00:53:09.633] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1589s [00:53:09.633] search = base::search(), system = base::Sys.info()) 1589s [00:53:09.633] } 1589s [00:53:09.633] ...future.conditions[[length(...future.conditions) + 1589s [00:53:09.633] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1589s [00:53:09.633] cond$call), session = sessionInformation(), 1589s [00:53:09.633] timestamp = base::Sys.time(), signaled = 0L) 1589s [00:53:09.633] signalCondition(cond) 1589s [00:53:09.633] } 1589s [00:53:09.633] else if (!ignore && TRUE && inherits(cond, c("condition", 1589s [00:53:09.633] "immediateCondition"))) { 1589s [00:53:09.633] signal <- TRUE && inherits(cond, "immediateCondition") 1589s [00:53:09.633] ...future.conditions[[length(...future.conditions) + 1589s [00:53:09.633] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1589s [00:53:09.633] if (TRUE && !signal) { 1589s [00:53:09.633] muffleCondition <- function (cond, pattern = "^muffle") 1589s [00:53:09.633] { 1589s [00:53:09.633] inherits <- base::inherits 1589s [00:53:09.633] invokeRestart <- base::invokeRestart 1589s [00:53:09.633] is.null <- base::is.null 1589s [00:53:09.633] muffled <- FALSE 1589s [00:53:09.633] if (inherits(cond, "message")) { 1589s [00:53:09.633] muffled <- grepl(pattern, "muffleMessage") 1589s [00:53:09.633] if (muffled) 1589s [00:53:09.633] invokeRestart("muffleMessage") 1589s [00:53:09.633] } 1589s [00:53:09.633] else if (inherits(cond, "warning")) { 1589s [00:53:09.633] muffled <- grepl(pattern, "muffleWarning") 1589s [00:53:09.633] if (muffled) 1589s [00:53:09.633] invokeRestart("muffleWarning") 1589s [00:53:09.633] } 1589s [00:53:09.633] else if (inherits(cond, "condition")) { 1589s [00:53:09.633] if (!is.null(pattern)) { 1589s [00:53:09.633] computeRestarts <- base::computeRestarts 1589s [00:53:09.633] grepl <- base::grepl 1589s [00:53:09.633] restarts <- computeRestarts(cond) 1589s [00:53:09.633] for (restart in restarts) { 1589s [00:53:09.633] name <- restart$name 1589s [00:53:09.633] if (is.null(name)) 1589s [00:53:09.633] next 1589s [00:53:09.633] if (!grepl(pattern, name)) 1589s [00:53:09.633] next 1589s [00:53:09.633] invokeRestart(restart) 1589s [00:53:09.633] muffled <- TRUE 1589s [00:53:09.633] break 1589s [00:53:09.633] } 1589s [00:53:09.633] } 1589s [00:53:09.633] } 1589s [00:53:09.633] invisible(muffled) 1589s [00:53:09.633] } 1589s [00:53:09.633] muffleCondition(cond, pattern = "^muffle") 1589s [00:53:09.633] } 1589s [00:53:09.633] } 1589s [00:53:09.633] else { 1589s [00:53:09.633] if (TRUE) { 1589s [00:53:09.633] muffleCondition <- function (cond, pattern = "^muffle") 1589s [00:53:09.633] { 1589s [00:53:09.633] inherits <- base::inherits 1589s [00:53:09.633] invokeRestart <- base::invokeRestart 1589s [00:53:09.633] is.null <- base::is.null 1589s [00:53:09.633] muffled <- FALSE 1589s [00:53:09.633] if (inherits(cond, "message")) { 1589s [00:53:09.633] muffled <- grepl(pattern, "muffleMessage") 1589s [00:53:09.633] if (muffled) 1589s [00:53:09.633] invokeRestart("muffleMessage") 1589s [00:53:09.633] } 1589s [00:53:09.633] else if (inherits(cond, "warning")) { 1589s [00:53:09.633] muffled <- grepl(pattern, "muffleWarning") 1589s [00:53:09.633] if (muffled) 1589s [00:53:09.633] invokeRestart("muffleWarning") 1589s [00:53:09.633] } 1589s [00:53:09.633] else if (inherits(cond, "condition")) { 1589s [00:53:09.633] if (!is.null(pattern)) { 1589s [00:53:09.633] computeRestarts <- base::computeRestarts 1589s [00:53:09.633] grepl <- base::grepl 1589s [00:53:09.633] restarts <- computeRestarts(cond) 1589s [00:53:09.633] for (restart in restarts) { 1589s [00:53:09.633] name <- restart$name 1589s [00:53:09.633] if (is.null(name)) 1589s [00:53:09.633] next 1589s [00:53:09.633] if (!grepl(pattern, name)) 1589s [00:53:09.633] next 1589s [00:53:09.633] invokeRestart(restart) 1589s [00:53:09.633] muffled <- TRUE 1589s [00:53:09.633] break 1589s [00:53:09.633] } 1589s [00:53:09.633] } 1589s [00:53:09.633] } 1589s [00:53:09.633] invisible(muffled) 1589s [00:53:09.633] } 1589s [00:53:09.633] muffleCondition(cond, pattern = "^muffle") 1589s [00:53:09.633] } 1589s [00:53:09.633] } 1589s [00:53:09.633] } 1589s [00:53:09.633] })) 1589s [00:53:09.633] }, error = function(ex) { 1589s [00:53:09.633] base::structure(base::list(value = NULL, visible = NULL, 1589s [00:53:09.633] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1589s [00:53:09.633] ...future.rng), started = ...future.startTime, 1589s [00:53:09.633] finished = Sys.time(), session_uuid = NA_character_, 1589s [00:53:09.633] version = "1.8"), class = "FutureResult") 1589s [00:53:09.633] }, finally = { 1589s [00:53:09.633] if (!identical(...future.workdir, getwd())) 1589s [00:53:09.633] setwd(...future.workdir) 1589s [00:53:09.633] { 1589s [00:53:09.633] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1589s [00:53:09.633] ...future.oldOptions$nwarnings <- NULL 1589s [00:53:09.633] } 1589s [00:53:09.633] base::options(...future.oldOptions) 1589s [00:53:09.633] if (.Platform$OS.type == "windows") { 1589s [00:53:09.633] old_names <- names(...future.oldEnvVars) 1589s [00:53:09.633] envs <- base::Sys.getenv() 1589s [00:53:09.633] names <- names(envs) 1589s [00:53:09.633] common <- intersect(names, old_names) 1589s [00:53:09.633] added <- setdiff(names, old_names) 1589s [00:53:09.633] removed <- setdiff(old_names, names) 1589s [00:53:09.633] changed <- common[...future.oldEnvVars[common] != 1589s [00:53:09.633] envs[common]] 1589s [00:53:09.633] NAMES <- toupper(changed) 1589s [00:53:09.633] args <- list() 1589s [00:53:09.633] for (kk in seq_along(NAMES)) { 1589s [00:53:09.633] name <- changed[[kk]] 1589s [00:53:09.633] NAME <- NAMES[[kk]] 1589s [00:53:09.633] if (name != NAME && is.element(NAME, old_names)) 1589s [00:53:09.633] next 1589s [00:53:09.633] args[[name]] <- ...future.oldEnvVars[[name]] 1589s [00:53:09.633] } 1589s [00:53:09.633] NAMES <- toupper(added) 1589s [00:53:09.633] for (kk in seq_along(NAMES)) { 1589s [00:53:09.633] name <- added[[kk]] 1589s [00:53:09.633] NAME <- NAMES[[kk]] 1589s [00:53:09.633] if (name != NAME && is.element(NAME, old_names)) 1589s [00:53:09.633] next 1589s [00:53:09.633] args[[name]] <- "" 1589s [00:53:09.633] } 1589s [00:53:09.633] NAMES <- toupper(removed) 1589s [00:53:09.633] for (kk in seq_along(NAMES)) { 1589s [00:53:09.633] name <- removed[[kk]] 1589s [00:53:09.633] NAME <- NAMES[[kk]] 1589s [00:53:09.633] if (name != NAME && is.element(NAME, old_names)) 1589s [00:53:09.633] next 1589s [00:53:09.633] args[[name]] <- ...future.oldEnvVars[[name]] 1589s [00:53:09.633] } 1589s [00:53:09.633] if (length(args) > 0) 1589s [00:53:09.633] base::do.call(base::Sys.setenv, args = args) 1589s [00:53:09.633] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1589s [00:53:09.633] } 1589s [00:53:09.633] else { 1589s [00:53:09.633] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1589s [00:53:09.633] } 1589s [00:53:09.633] { 1589s [00:53:09.633] if (base::length(...future.futureOptionsAdded) > 1589s [00:53:09.633] 0L) { 1589s [00:53:09.633] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1589s [00:53:09.633] base::names(opts) <- ...future.futureOptionsAdded 1589s [00:53:09.633] base::options(opts) 1589s [00:53:09.633] } 1589s [00:53:09.633] { 1589s [00:53:09.633] { 1589s [00:53:09.633] NULL 1589s [00:53:09.633] RNGkind("Mersenne-Twister") 1589s [00:53:09.633] base::rm(list = ".Random.seed", envir = base::globalenv(), 1589s [00:53:09.633] inherits = FALSE) 1589s [00:53:09.633] } 1589s [00:53:09.633] options(future.plan = NULL) 1589s [00:53:09.633] if (is.na(NA_character_)) 1589s [00:53:09.633] Sys.unsetenv("R_FUTURE_PLAN") 1589s [00:53:09.633] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1589s [00:53:09.633] future::plan(list(function (..., workers = availableCores(), 1589s [00:53:09.633] lazy = FALSE, rscript_libs = .libPaths(), 1589s [00:53:09.633] envir = parent.frame()) 1589s [00:53:09.633] { 1589s [00:53:09.633] if (is.function(workers)) 1589s [00:53:09.633] workers <- workers() 1589s [00:53:09.633] workers <- structure(as.integer(workers), 1589s [00:53:09.633] class = class(workers)) 1589s [00:53:09.633] stop_if_not(length(workers) == 1, is.finite(workers), 1589s [00:53:09.633] workers >= 1) 1589s [00:53:09.633] if (workers == 1L && !inherits(workers, "AsIs")) { 1589s [00:53:09.633] return(sequential(..., lazy = TRUE, envir = envir)) 1589s [00:53:09.633] } 1589s [00:53:09.633] future <- MultisessionFuture(..., workers = workers, 1589s [00:53:09.633] lazy = lazy, rscript_libs = rscript_libs, 1589s [00:53:09.633] envir = envir) 1589s [00:53:09.633] if (!future$lazy) 1589s [00:53:09.633] future <- run(future) 1589s [00:53:09.633] invisible(future) 1589s [00:53:09.633] }), .cleanup = FALSE, .init = FALSE) 1589s [00:53:09.633] } 1589s [00:53:09.633] } 1589s [00:53:09.633] } 1589s [00:53:09.633] }) 1589s [00:53:09.633] if (TRUE) { 1589s [00:53:09.633] base::sink(type = "output", split = FALSE) 1589s [00:53:09.633] if (TRUE) { 1589s [00:53:09.633] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1589s [00:53:09.633] } 1589s [00:53:09.633] else { 1589s [00:53:09.633] ...future.result["stdout"] <- base::list(NULL) 1589s [00:53:09.633] } 1589s [00:53:09.633] base::close(...future.stdout) 1589s [00:53:09.633] ...future.stdout <- NULL 1589s [00:53:09.633] } 1589s [00:53:09.633] ...future.result$conditions <- ...future.conditions 1589s [00:53:09.633] ...future.result$finished <- base::Sys.time() 1589s [00:53:09.633] ...future.result 1589s [00:53:09.633] } 1589s [00:53:09.638] assign_globals() ... 1589s [00:53:09.638] List of 11 1589s [00:53:09.638] $ ...future.FUN :function (x, ...) 1589s [00:53:09.638] $ x_FUN :function (x, ...) 1589s [00:53:09.638] $ times : int 5 1589s [00:53:09.638] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1589s [00:53:09.638] $ stop_if_not :function (...) 1589s [00:53:09.638] $ dim : NULL 1589s [00:53:09.638] $ valid_types : chr [1:3] "logical" "integer" "double" 1589s [00:53:09.638] $ future.call.arguments : list() 1589s [00:53:09.638] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1589s [00:53:09.638] $ ...future.elements_ii :List of 3 1589s [00:53:09.638] ..$ a : int [1:10] 1 2 3 4 5 6 7 8 9 10 1589s [00:53:09.638] ..$ beta : num [1:7] 0.0498 0.1353 0.3679 1 2.7183 ... 1589s [00:53:09.638] ..$ logic: logi [1:4] TRUE FALSE FALSE TRUE 1589s [00:53:09.638] $ ...future.seeds_ii : NULL 1589s [00:53:09.638] $ ...future.globals.maxSize: NULL 1589s [00:53:09.638] - attr(*, "where")=List of 11 1589s [00:53:09.638] ..$ ...future.FUN : 1589s [00:53:09.638] ..$ x_FUN : 1589s [00:53:09.638] ..$ times : 1589s [00:53:09.638] ..$ stopf : 1589s [00:53:09.638] ..$ stop_if_not : 1589s [00:53:09.638] ..$ dim : 1589s [00:53:09.638] ..$ valid_types : 1589s [00:53:09.638] ..$ future.call.arguments : 1589s [00:53:09.638] ..$ ...future.elements_ii : 1589s [00:53:09.638] ..$ ...future.seeds_ii : 1589s [00:53:09.638] ..$ ...future.globals.maxSize: 1589s [00:53:09.638] - attr(*, "resolved")= logi FALSE 1589s [00:53:09.638] - attr(*, "total_size")= num 95528 1589s [00:53:09.638] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1589s [00:53:09.638] - attr(*, "already-done")= logi TRUE 1589s [00:53:09.658] - copied ‘...future.FUN’ to environment 1589s [00:53:09.659] - copied ‘x_FUN’ to environment 1589s [00:53:09.659] - copied ‘times’ to environment 1589s [00:53:09.659] - copied ‘stopf’ to environment 1589s [00:53:09.659] - copied ‘stop_if_not’ to environment 1589s [00:53:09.659] - copied ‘dim’ to environment 1589s [00:53:09.659] - copied ‘valid_types’ to environment 1589s [00:53:09.659] - copied ‘future.call.arguments’ to environment 1589s [00:53:09.660] - copied ‘...future.elements_ii’ to environment 1589s [00:53:09.660] - copied ‘...future.seeds_ii’ to environment 1589s [00:53:09.660] - copied ‘...future.globals.maxSize’ to environment 1589s [00:53:09.660] assign_globals() ... done 1589s [00:53:09.661] plan(): Setting new future strategy stack: 1589s [00:53:09.661] List of future strategies: 1589s [00:53:09.661] 1. sequential: 1589s [00:53:09.661] - args: function (..., envir = parent.frame()) 1589s [00:53:09.661] - tweaked: FALSE 1589s [00:53:09.661] - call: NULL 1589s [00:53:09.662] plan(): nbrOfWorkers() = 1 1589s [00:53:09.664] plan(): Setting new future strategy stack: 1589s [00:53:09.664] List of future strategies: 1589s [00:53:09.664] 1. multisession: 1589s [00:53:09.664] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1589s [00:53:09.664] - tweaked: FALSE 1589s [00:53:09.664] - call: plan(strategy) 1589s [00:53:09.668] plan(): nbrOfWorkers() = 1 1589s [00:53:09.668] SequentialFuture started (and completed) 1589s [00:53:09.668] - Launch lazy future ... done 1589s [00:53:09.668] run() for ‘SequentialFuture’ ... done 1589s [00:53:09.669] Created future: 1589s [00:53:09.669] SequentialFuture: 1589s [00:53:09.669] Label: ‘future_vapply-1’ 1589s [00:53:09.669] Expression: 1589s [00:53:09.669] { 1589s [00:53:09.669] do.call(function(...) { 1589s [00:53:09.669] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1589s [00:53:09.669] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1589s [00:53:09.669] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1589s [00:53:09.669] on.exit(options(oopts), add = TRUE) 1589s [00:53:09.669] } 1589s [00:53:09.669] { 1589s [00:53:09.669] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1589s [00:53:09.669] ...future.X_jj <- ...future.elements_ii[[jj]] 1589s [00:53:09.669] ...future.FUN(...future.X_jj, ...) 1589s [00:53:09.669] }) 1589s [00:53:09.669] } 1589s [00:53:09.669] }, args = future.call.arguments) 1589s [00:53:09.669] } 1589s [00:53:09.669] Lazy evaluation: FALSE 1589s [00:53:09.669] Asynchronous evaluation: FALSE 1589s [00:53:09.669] Local evaluation: TRUE 1589s [00:53:09.669] Environment: R_GlobalEnv 1589s [00:53:09.669] Capture standard output: TRUE 1589s [00:53:09.669] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1589s [00:53:09.669] Globals: 11 objects totaling 93.55 KiB (function ‘...future.FUN’ of 21.22 KiB, function ‘x_FUN’ of 1.22 KiB, integer ‘times’ of 56 bytes, function ‘stopf’ of 26.43 KiB, function ‘stop_if_not’ of 44.12 KiB, ...) 1589s [00:53:09.669] Packages: 2 packages (‘stats’, ‘future.apply’) 1589s [00:53:09.669] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1589s [00:53:09.669] Resolved: TRUE 1589s [00:53:09.669] Value: 1.71 KiB of class ‘list’ 1589s [00:53:09.669] Early signaling: FALSE 1589s [00:53:09.669] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1589s [00:53:09.669] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1589s [00:53:09.671] Chunk #1 of 1 ... DONE 1589s [00:53:09.671] Launching 1 futures (chunks) ... DONE 1589s [00:53:09.671] Resolving 1 futures (chunks) ... 1589s [00:53:09.671] resolve() on list ... 1589s [00:53:09.671] recursive: 0 1589s [00:53:09.672] length: 1 1589s [00:53:09.672] 1589s [00:53:09.672] resolved() for ‘SequentialFuture’ ... 1589s [00:53:09.672] - state: ‘finished’ 1589s [00:53:09.672] - run: TRUE 1589s [00:53:09.672] - result: ‘FutureResult’ 1589s [00:53:09.673] resolved() for ‘SequentialFuture’ ... done 1589s [00:53:09.673] Future #1 1589s [00:53:09.673] signalConditionsASAP(SequentialFuture, pos=1) ... 1589s [00:53:09.673] - nx: 1 1589s [00:53:09.673] - relay: TRUE 1589s [00:53:09.674] - stdout: TRUE 1589s [00:53:09.674] - signal: TRUE 1589s [00:53:09.674] - resignal: FALSE 1589s [00:53:09.674] - force: TRUE 1589s [00:53:09.674] - relayed: [n=1] FALSE 1589s [00:53:09.674] - queued futures: [n=1] FALSE 1589s [00:53:09.674] - until=1 1589s [00:53:09.675] - relaying element #1 1589s [00:53:09.675] - relayed: [n=1] TRUE 1589s [00:53:09.675] - queued futures: [n=1] TRUE 1589s [00:53:09.675] signalConditionsASAP(SequentialFuture, pos=1) ... done 1589s [00:53:09.675] length: 0 (resolved future 1) 1589s [00:53:09.676] Relaying remaining futures 1589s [00:53:09.676] signalConditionsASAP(NULL, pos=0) ... 1589s [00:53:09.676] - nx: 1 1589s [00:53:09.676] - relay: TRUE 1589s [00:53:09.676] - stdout: TRUE 1589s [00:53:09.676] - signal: TRUE 1589s [00:53:09.676] - resignal: FALSE 1589s [00:53:09.676] - force: TRUE 1589s [00:53:09.677] - relayed: [n=1] TRUE 1589s [00:53:09.677] - queued futures: [n=1] TRUE 1589s - flush all 1589s [00:53:09.677] - relayed: [n=1] TRUE 1589s [00:53:09.677] - queued futures: [n=1] TRUE 1589s [00:53:09.677] signalConditionsASAP(NULL, pos=0) ... done 1589s [00:53:09.677] resolve() on list ... DONE 1589s [00:53:09.678] - Number of value chunks collected: 1 1589s [00:53:09.678] Resolving 1 futures (chunks) ... DONE 1589s [00:53:09.678] Reducing values from 1 chunks ... 1589s [00:53:09.678] - Number of values collected after concatenation: 3 1589s [00:53:09.678] - Number of values expected: 3 1589s [00:53:09.678] Reducing values from 1 chunks ... DONE 1589s [00:53:09.679] future_lapply() ... DONE 1589s [00:53:09.685] future_lapply() ... 1589s num [1:5, 1:3] 1 3.25 5.5 7.75 10 ... 1589s - attr(*, "dimnames")=List of 2 1589s ..$ : chr [1:5] "0%" "25%" "50%" "75%" ... 1589s ..$ : chr [1:3] "a" "beta" "logic" 1589s [00:53:09.695] Number of chunks: 1 1589s [00:53:09.695] getGlobalsAndPackagesXApply() ... 1589s [00:53:09.695] - future.globals: TRUE 1589s [00:53:09.695] getGlobalsAndPackages() ... 1589s [00:53:09.695] Searching for globals... 1589s [00:53:09.703] - globals found: [21] ‘FUN’, ‘{’, ‘<-’, ‘is.na’, ‘if’, ‘any’, ‘[’, ‘!’, ‘return’, ‘rep.int’, ‘sort’, ‘length’, ‘==’, ‘/’, ‘floor’, ‘(’, ‘+’, ‘c’, ‘-’, ‘*’, ‘ceiling’ 1589s [00:53:09.704] Searching for globals ... DONE 1589s [00:53:09.704] Resolving globals: FALSE 1589s [00:53:09.705] The total size of the 1 globals is 45.86 KiB (46960 bytes) 1589s [00:53:09.706] The total size of the 1 globals exported for future expression (‘FUN()’) is 45.86 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (45.86 KiB of class ‘function’) 1589s [00:53:09.706] - globals: [1] ‘FUN’ 1589s [00:53:09.707] - packages: [1] ‘stats’ 1589s [00:53:09.707] getGlobalsAndPackages() ... DONE 1589s [00:53:09.707] - globals found/used: [n=1] ‘FUN’ 1589s [00:53:09.707] - needed namespaces: [n=1] ‘stats’ 1589s [00:53:09.707] Finding globals ... DONE 1589s [00:53:09.707] - use_args: TRUE 1589s [00:53:09.708] - Getting '...' globals ... 1589s [00:53:09.708] resolve() on list ... 1589s [00:53:09.708] recursive: 0 1589s [00:53:09.708] length: 1 1589s [00:53:09.709] elements: ‘...’ 1589s [00:53:09.709] length: 0 (resolved future 1) 1589s [00:53:09.709] resolve() on list ... DONE 1589s [00:53:09.709] - '...' content: [n=0] 1589s [00:53:09.709] List of 1 1589s [00:53:09.709] $ ...: list() 1589s [00:53:09.709] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1589s [00:53:09.709] - attr(*, "where")=List of 1 1589s [00:53:09.709] ..$ ...: 1589s [00:53:09.709] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1589s [00:53:09.709] - attr(*, "resolved")= logi TRUE 1589s [00:53:09.709] - attr(*, "total_size")= num NA 1589s [00:53:09.716] - Getting '...' globals ... DONE 1589s [00:53:09.717] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1589s [00:53:09.717] List of 2 1589s [00:53:09.717] $ ...future.FUN:function (x, na.rm = TRUE) 1589s [00:53:09.717] $ ... : list() 1589s [00:53:09.717] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1589s [00:53:09.717] - attr(*, "where")=List of 2 1589s [00:53:09.717] ..$ ...future.FUN: 1589s [00:53:09.717] ..$ ... : 1589s [00:53:09.717] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1589s [00:53:09.717] - attr(*, "resolved")= logi FALSE 1589s [00:53:09.717] - attr(*, "total_size")= num 46960 1589s [00:53:09.722] Packages to be attached in all futures: [n=1] ‘stats’ 1589s [00:53:09.722] getGlobalsAndPackagesXApply() ... DONE 1589s [00:53:09.722] Number of futures (= number of chunks): 1 1589s [00:53:09.723] Launching 1 futures (chunks) ... 1589s [00:53:09.723] Chunk #1 of 1 ... 1589s [00:53:09.723] - Finding globals in 'X' for chunk #1 ... 1589s [00:53:09.723] getGlobalsAndPackages() ... 1589s [00:53:09.723] Searching for globals... 1589s [00:53:09.724] 1589s [00:53:09.724] Searching for globals ... DONE 1589s [00:53:09.724] - globals: [0] 1589s [00:53:09.724] getGlobalsAndPackages() ... DONE 1589s [00:53:09.724] + additional globals found: [n=0] 1589s [00:53:09.725] + additional namespaces needed: [n=0] 1589s [00:53:09.725] - Finding globals in 'X' for chunk #1 ... DONE 1589s [00:53:09.725] - seeds: 1589s [00:53:09.725] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1589s [00:53:09.725] getGlobalsAndPackages() ... 1589s [00:53:09.725] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1589s [00:53:09.725] Resolving globals: FALSE 1589s [00:53:09.726] Tweak future expression to call with '...' arguments ... 1589s [00:53:09.726] { 1589s [00:53:09.726] do.call(function(...) { 1589s [00:53:09.726] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1589s [00:53:09.726] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1589s [00:53:09.726] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1589s [00:53:09.726] on.exit(options(oopts), add = TRUE) 1589s [00:53:09.726] } 1589s [00:53:09.726] { 1589s [00:53:09.726] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1589s [00:53:09.726] ...future.X_jj <- ...future.elements_ii[[jj]] 1589s [00:53:09.726] ...future.FUN(...future.X_jj, ...) 1589s [00:53:09.726] }) 1589s [00:53:09.726] } 1589s [00:53:09.726] }, args = future.call.arguments) 1589s [00:53:09.726] } 1589s [00:53:09.726] Tweak future expression to call with '...' arguments ... DONE 1589s [00:53:09.727] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1589s [00:53:09.727] - packages: [1] ‘stats’ 1589s [00:53:09.727] getGlobalsAndPackages() ... DONE 1589s [00:53:09.728] run() for ‘Future’ ... 1589s [00:53:09.728] - state: ‘created’ 1589s [00:53:09.728] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1589s [00:53:09.732] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1589s [00:53:09.733] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1589s [00:53:09.733] - Field: ‘label’ 1589s [00:53:09.733] - Field: ‘local’ 1589s [00:53:09.733] - Field: ‘owner’ 1589s [00:53:09.733] - Field: ‘envir’ 1589s [00:53:09.734] - Field: ‘packages’ 1589s [00:53:09.734] - Field: ‘gc’ 1589s [00:53:09.734] - Field: ‘conditions’ 1589s [00:53:09.735] - Field: ‘expr’ 1589s [00:53:09.735] - Field: ‘uuid’ 1589s [00:53:09.735] - Field: ‘seed’ 1589s [00:53:09.735] - Field: ‘version’ 1589s [00:53:09.735] - Field: ‘result’ 1589s [00:53:09.736] - Field: ‘asynchronous’ 1589s [00:53:09.736] - Field: ‘calls’ 1589s [00:53:09.736] - Field: ‘globals’ 1589s [00:53:09.736] - Field: ‘stdout’ 1589s [00:53:09.737] - Field: ‘earlySignal’ 1589s [00:53:09.737] - Field: ‘lazy’ 1589s [00:53:09.737] - Field: ‘state’ 1589s [00:53:09.737] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1589s [00:53:09.737] - Launch lazy future ... 1589s [00:53:09.738] Packages needed by the future expression (n = 1): ‘stats’ 1589s [00:53:09.738] Packages needed by future strategies (n = 0): 1589s [00:53:09.739] { 1589s [00:53:09.739] { 1589s [00:53:09.739] { 1589s [00:53:09.739] ...future.startTime <- base::Sys.time() 1589s [00:53:09.739] { 1589s [00:53:09.739] { 1589s [00:53:09.739] { 1589s [00:53:09.739] { 1589s [00:53:09.739] base::local({ 1589s [00:53:09.739] has_future <- base::requireNamespace("future", 1589s [00:53:09.739] quietly = TRUE) 1589s [00:53:09.739] if (has_future) { 1589s [00:53:09.739] ns <- base::getNamespace("future") 1589s [00:53:09.739] version <- ns[[".package"]][["version"]] 1589s [00:53:09.739] if (is.null(version)) 1589s [00:53:09.739] version <- utils::packageVersion("future") 1589s [00:53:09.739] } 1589s [00:53:09.739] else { 1589s [00:53:09.739] version <- NULL 1589s [00:53:09.739] } 1589s [00:53:09.739] if (!has_future || version < "1.8.0") { 1589s [00:53:09.739] info <- base::c(r_version = base::gsub("R version ", 1589s [00:53:09.739] "", base::R.version$version.string), 1589s [00:53:09.739] platform = base::sprintf("%s (%s-bit)", 1589s [00:53:09.739] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1589s [00:53:09.739] os = base::paste(base::Sys.info()[base::c("sysname", 1589s [00:53:09.739] "release", "version")], collapse = " "), 1589s [00:53:09.739] hostname = base::Sys.info()[["nodename"]]) 1589s [00:53:09.739] info <- base::sprintf("%s: %s", base::names(info), 1589s [00:53:09.739] info) 1589s [00:53:09.739] info <- base::paste(info, collapse = "; ") 1589s [00:53:09.739] if (!has_future) { 1589s [00:53:09.739] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1589s [00:53:09.739] info) 1589s [00:53:09.739] } 1589s [00:53:09.739] else { 1589s [00:53:09.739] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1589s [00:53:09.739] info, version) 1589s [00:53:09.739] } 1589s [00:53:09.739] base::stop(msg) 1589s [00:53:09.739] } 1589s [00:53:09.739] }) 1589s [00:53:09.739] } 1589s [00:53:09.739] base::local({ 1589s [00:53:09.739] for (pkg in "stats") { 1589s [00:53:09.739] base::loadNamespace(pkg) 1589s [00:53:09.739] base::library(pkg, character.only = TRUE) 1589s [00:53:09.739] } 1589s [00:53:09.739] }) 1589s [00:53:09.739] } 1589s [00:53:09.739] options(future.plan = NULL) 1589s [00:53:09.739] Sys.unsetenv("R_FUTURE_PLAN") 1589s [00:53:09.739] future::plan("default", .cleanup = FALSE, .init = FALSE) 1589s [00:53:09.739] } 1589s [00:53:09.739] ...future.workdir <- getwd() 1589s [00:53:09.739] } 1589s [00:53:09.739] ...future.oldOptions <- base::as.list(base::.Options) 1589s [00:53:09.739] ...future.oldEnvVars <- base::Sys.getenv() 1589s [00:53:09.739] } 1589s [00:53:09.739] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1589s [00:53:09.739] future.globals.maxSize = NULL, future.globals.method = NULL, 1589s [00:53:09.739] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1589s [00:53:09.739] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1589s [00:53:09.739] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1589s [00:53:09.739] future.stdout.windows.reencode = NULL, width = 80L) 1589s [00:53:09.739] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1589s [00:53:09.739] base::names(...future.oldOptions)) 1589s [00:53:09.739] } 1589s [00:53:09.739] if (FALSE) { 1589s [00:53:09.739] } 1589s [00:53:09.739] else { 1589s [00:53:09.739] if (TRUE) { 1589s [00:53:09.739] ...future.stdout <- base::rawConnection(base::raw(0L), 1589s [00:53:09.739] open = "w") 1589s [00:53:09.739] } 1589s [00:53:09.739] else { 1589s [00:53:09.739] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1589s [00:53:09.739] windows = "NUL", "/dev/null"), open = "w") 1589s [00:53:09.739] } 1589s [00:53:09.739] base::sink(...future.stdout, type = "output", split = FALSE) 1589s [00:53:09.739] base::on.exit(if (!base::is.null(...future.stdout)) { 1589s [00:53:09.739] base::sink(type = "output", split = FALSE) 1589s [00:53:09.739] base::close(...future.stdout) 1589s [00:53:09.739] }, add = TRUE) 1589s [00:53:09.739] } 1589s [00:53:09.739] ...future.frame <- base::sys.nframe() 1589s [00:53:09.739] ...future.conditions <- base::list() 1589s [00:53:09.739] ...future.rng <- base::globalenv()$.Random.seed 1589s [00:53:09.739] if (FALSE) { 1589s [00:53:09.739] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1589s [00:53:09.739] "...future.value", "...future.globalenv.names", ".Random.seed") 1589s [00:53:09.739] } 1589s [00:53:09.739] ...future.result <- base::tryCatch({ 1589s [00:53:09.739] base::withCallingHandlers({ 1589s [00:53:09.739] ...future.value <- base::withVisible(base::local({ 1589s [00:53:09.739] do.call(function(...) { 1589s [00:53:09.739] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1589s [00:53:09.739] if (!identical(...future.globals.maxSize.org, 1589s [00:53:09.739] ...future.globals.maxSize)) { 1589s [00:53:09.739] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1589s [00:53:09.739] on.exit(options(oopts), add = TRUE) 1589s [00:53:09.739] } 1589s [00:53:09.739] { 1589s [00:53:09.739] lapply(seq_along(...future.elements_ii), 1589s [00:53:09.739] FUN = function(jj) { 1589s [00:53:09.739] ...future.X_jj <- ...future.elements_ii[[jj]] 1589s [00:53:09.739] ...future.FUN(...future.X_jj, ...) 1589s [00:53:09.739] }) 1589s [00:53:09.739] } 1589s [00:53:09.739] }, args = future.call.arguments) 1589s [00:53:09.739] })) 1589s [00:53:09.739] future::FutureResult(value = ...future.value$value, 1589s [00:53:09.739] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1589s [00:53:09.739] ...future.rng), globalenv = if (FALSE) 1589s [00:53:09.739] list(added = base::setdiff(base::names(base::.GlobalEnv), 1589s [00:53:09.739] ...future.globalenv.names)) 1589s [00:53:09.739] else NULL, started = ...future.startTime, version = "1.8") 1589s [00:53:09.739] }, condition = base::local({ 1589s [00:53:09.739] c <- base::c 1589s [00:53:09.739] inherits <- base::inherits 1589s [00:53:09.739] invokeRestart <- base::invokeRestart 1589s [00:53:09.739] length <- base::length 1589s [00:53:09.739] list <- base::list 1589s [00:53:09.739] seq.int <- base::seq.int 1589s [00:53:09.739] signalCondition <- base::signalCondition 1589s [00:53:09.739] sys.calls <- base::sys.calls 1589s [00:53:09.739] `[[` <- base::`[[` 1589s [00:53:09.739] `+` <- base::`+` 1589s [00:53:09.739] `<<-` <- base::`<<-` 1589s [00:53:09.739] sysCalls <- function(calls = sys.calls(), from = 1L) { 1589s [00:53:09.739] calls[seq.int(from = from + 12L, to = length(calls) - 1589s [00:53:09.739] 3L)] 1589s [00:53:09.739] } 1589s [00:53:09.739] function(cond) { 1589s [00:53:09.739] is_error <- inherits(cond, "error") 1589s [00:53:09.739] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1589s [00:53:09.739] NULL) 1589s [00:53:09.739] if (is_error) { 1589s [00:53:09.739] sessionInformation <- function() { 1589s [00:53:09.739] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1589s [00:53:09.739] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1589s [00:53:09.739] search = base::search(), system = base::Sys.info()) 1589s [00:53:09.739] } 1589s [00:53:09.739] ...future.conditions[[length(...future.conditions) + 1589s [00:53:09.739] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1589s [00:53:09.739] cond$call), session = sessionInformation(), 1589s [00:53:09.739] timestamp = base::Sys.time(), signaled = 0L) 1589s [00:53:09.739] signalCondition(cond) 1589s [00:53:09.739] } 1589s [00:53:09.739] else if (!ignore && TRUE && inherits(cond, c("condition", 1589s [00:53:09.739] "immediateCondition"))) { 1589s [00:53:09.739] signal <- TRUE && inherits(cond, "immediateCondition") 1589s [00:53:09.739] ...future.conditions[[length(...future.conditions) + 1589s [00:53:09.739] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1589s [00:53:09.739] if (TRUE && !signal) { 1589s [00:53:09.739] muffleCondition <- function (cond, pattern = "^muffle") 1589s [00:53:09.739] { 1589s [00:53:09.739] inherits <- base::inherits 1589s [00:53:09.739] invokeRestart <- base::invokeRestart 1589s [00:53:09.739] is.null <- base::is.null 1589s [00:53:09.739] muffled <- FALSE 1589s [00:53:09.739] if (inherits(cond, "message")) { 1589s [00:53:09.739] muffled <- grepl(pattern, "muffleMessage") 1589s [00:53:09.739] if (muffled) 1589s [00:53:09.739] invokeRestart("muffleMessage") 1589s [00:53:09.739] } 1589s [00:53:09.739] else if (inherits(cond, "warning")) { 1589s [00:53:09.739] muffled <- grepl(pattern, "muffleWarning") 1589s [00:53:09.739] if (muffled) 1589s [00:53:09.739] invokeRestart("muffleWarning") 1589s [00:53:09.739] } 1589s [00:53:09.739] else if (inherits(cond, "condition")) { 1589s [00:53:09.739] if (!is.null(pattern)) { 1589s [00:53:09.739] computeRestarts <- base::computeRestarts 1589s [00:53:09.739] grepl <- base::grepl 1589s [00:53:09.739] restarts <- computeRestarts(cond) 1589s [00:53:09.739] for (restart in restarts) { 1589s [00:53:09.739] name <- restart$name 1589s [00:53:09.739] if (is.null(name)) 1589s [00:53:09.739] next 1589s [00:53:09.739] if (!grepl(pattern, name)) 1589s [00:53:09.739] next 1589s [00:53:09.739] invokeRestart(restart) 1589s [00:53:09.739] muffled <- TRUE 1589s [00:53:09.739] break 1589s [00:53:09.739] } 1589s [00:53:09.739] } 1589s [00:53:09.739] } 1589s [00:53:09.739] invisible(muffled) 1589s [00:53:09.739] } 1589s [00:53:09.739] muffleCondition(cond, pattern = "^muffle") 1589s [00:53:09.739] } 1589s [00:53:09.739] } 1589s [00:53:09.739] else { 1589s [00:53:09.739] if (TRUE) { 1589s [00:53:09.739] muffleCondition <- function (cond, pattern = "^muffle") 1589s [00:53:09.739] { 1589s [00:53:09.739] inherits <- base::inherits 1589s [00:53:09.739] invokeRestart <- base::invokeRestart 1589s [00:53:09.739] is.null <- base::is.null 1589s [00:53:09.739] muffled <- FALSE 1589s [00:53:09.739] if (inherits(cond, "message")) { 1589s [00:53:09.739] muffled <- grepl(pattern, "muffleMessage") 1589s [00:53:09.739] if (muffled) 1589s [00:53:09.739] invokeRestart("muffleMessage") 1589s [00:53:09.739] } 1589s [00:53:09.739] else if (inherits(cond, "warning")) { 1589s [00:53:09.739] muffled <- grepl(pattern, "muffleWarning") 1589s [00:53:09.739] if (muffled) 1589s [00:53:09.739] invokeRestart("muffleWarning") 1589s [00:53:09.739] } 1589s [00:53:09.739] else if (inherits(cond, "condition")) { 1589s [00:53:09.739] if (!is.null(pattern)) { 1589s [00:53:09.739] computeRestarts <- base::computeRestarts 1589s [00:53:09.739] grepl <- base::grepl 1589s [00:53:09.739] restarts <- computeRestarts(cond) 1589s [00:53:09.739] for (restart in restarts) { 1589s [00:53:09.739] name <- restart$name 1589s [00:53:09.739] if (is.null(name)) 1589s [00:53:09.739] next 1589s [00:53:09.739] if (!grepl(pattern, name)) 1589s [00:53:09.739] next 1589s [00:53:09.739] invokeRestart(restart) 1589s [00:53:09.739] muffled <- TRUE 1589s [00:53:09.739] break 1589s [00:53:09.739] } 1589s [00:53:09.739] } 1589s [00:53:09.739] } 1589s [00:53:09.739] invisible(muffled) 1589s [00:53:09.739] } 1589s [00:53:09.739] muffleCondition(cond, pattern = "^muffle") 1589s [00:53:09.739] } 1589s [00:53:09.739] } 1589s [00:53:09.739] } 1589s [00:53:09.739] })) 1589s [00:53:09.739] }, error = function(ex) { 1589s [00:53:09.739] base::structure(base::list(value = NULL, visible = NULL, 1589s [00:53:09.739] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1589s [00:53:09.739] ...future.rng), started = ...future.startTime, 1589s [00:53:09.739] finished = Sys.time(), session_uuid = NA_character_, 1589s [00:53:09.739] version = "1.8"), class = "FutureResult") 1589s [00:53:09.739] }, finally = { 1589s [00:53:09.739] if (!identical(...future.workdir, getwd())) 1589s [00:53:09.739] setwd(...future.workdir) 1589s [00:53:09.739] { 1589s [00:53:09.739] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1589s [00:53:09.739] ...future.oldOptions$nwarnings <- NULL 1589s [00:53:09.739] } 1589s [00:53:09.739] base::options(...future.oldOptions) 1589s [00:53:09.739] if (.Platform$OS.type == "windows") { 1589s [00:53:09.739] old_names <- names(...future.oldEnvVars) 1589s [00:53:09.739] envs <- base::Sys.getenv() 1589s [00:53:09.739] names <- names(envs) 1589s [00:53:09.739] common <- intersect(names, old_names) 1589s [00:53:09.739] added <- setdiff(names, old_names) 1589s [00:53:09.739] removed <- setdiff(old_names, names) 1589s [00:53:09.739] changed <- common[...future.oldEnvVars[common] != 1589s [00:53:09.739] envs[common]] 1589s [00:53:09.739] NAMES <- toupper(changed) 1589s [00:53:09.739] args <- list() 1589s [00:53:09.739] for (kk in seq_along(NAMES)) { 1589s [00:53:09.739] name <- changed[[kk]] 1589s [00:53:09.739] NAME <- NAMES[[kk]] 1589s [00:53:09.739] if (name != NAME && is.element(NAME, old_names)) 1589s [00:53:09.739] next 1589s [00:53:09.739] args[[name]] <- ...future.oldEnvVars[[name]] 1589s [00:53:09.739] } 1589s [00:53:09.739] NAMES <- toupper(added) 1589s [00:53:09.739] for (kk in seq_along(NAMES)) { 1589s [00:53:09.739] name <- added[[kk]] 1589s [00:53:09.739] NAME <- NAMES[[kk]] 1589s [00:53:09.739] if (name != NAME && is.element(NAME, old_names)) 1589s [00:53:09.739] next 1589s [00:53:09.739] args[[name]] <- "" 1589s [00:53:09.739] } 1589s [00:53:09.739] NAMES <- toupper(removed) 1589s [00:53:09.739] for (kk in seq_along(NAMES)) { 1589s [00:53:09.739] name <- removed[[kk]] 1589s [00:53:09.739] NAME <- NAMES[[kk]] 1589s [00:53:09.739] if (name != NAME && is.element(NAME, old_names)) 1589s [00:53:09.739] next 1589s [00:53:09.739] args[[name]] <- ...future.oldEnvVars[[name]] 1589s [00:53:09.739] } 1589s [00:53:09.739] if (length(args) > 0) 1589s [00:53:09.739] base::do.call(base::Sys.setenv, args = args) 1589s [00:53:09.739] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1589s [00:53:09.739] } 1589s [00:53:09.739] else { 1589s [00:53:09.739] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1589s [00:53:09.739] } 1589s [00:53:09.739] { 1589s [00:53:09.739] if (base::length(...future.futureOptionsAdded) > 1589s [00:53:09.739] 0L) { 1589s [00:53:09.739] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1589s [00:53:09.739] base::names(opts) <- ...future.futureOptionsAdded 1589s [00:53:09.739] base::options(opts) 1589s [00:53:09.739] } 1589s [00:53:09.739] { 1589s [00:53:09.739] { 1589s [00:53:09.739] NULL 1589s [00:53:09.739] RNGkind("Mersenne-Twister") 1589s [00:53:09.739] base::rm(list = ".Random.seed", envir = base::globalenv(), 1589s [00:53:09.739] inherits = FALSE) 1589s [00:53:09.739] } 1589s [00:53:09.739] options(future.plan = NULL) 1589s [00:53:09.739] if (is.na(NA_character_)) 1589s [00:53:09.739] Sys.unsetenv("R_FUTURE_PLAN") 1589s [00:53:09.739] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1589s [00:53:09.739] future::plan(list(function (..., workers = availableCores(), 1589s [00:53:09.739] lazy = FALSE, rscript_libs = .libPaths(), 1589s [00:53:09.739] envir = parent.frame()) 1589s [00:53:09.739] { 1589s [00:53:09.739] if (is.function(workers)) 1589s [00:53:09.739] workers <- workers() 1589s [00:53:09.739] workers <- structure(as.integer(workers), 1589s [00:53:09.739] class = class(workers)) 1589s [00:53:09.739] stop_if_not(length(workers) == 1, is.finite(workers), 1589s [00:53:09.739] workers >= 1) 1589s [00:53:09.739] if (workers == 1L && !inherits(workers, "AsIs")) { 1589s [00:53:09.739] return(sequential(..., lazy = TRUE, envir = envir)) 1589s [00:53:09.739] } 1589s [00:53:09.739] future <- MultisessionFuture(..., workers = workers, 1589s [00:53:09.739] lazy = lazy, rscript_libs = rscript_libs, 1589s [00:53:09.739] envir = envir) 1589s [00:53:09.739] if (!future$lazy) 1589s [00:53:09.739] future <- run(future) 1589s [00:53:09.739] invisible(future) 1589s [00:53:09.739] }), .cleanup = FALSE, .init = FALSE) 1589s [00:53:09.739] } 1589s [00:53:09.739] } 1589s [00:53:09.739] } 1589s [00:53:09.739] }) 1589s [00:53:09.739] if (TRUE) { 1589s [00:53:09.739] base::sink(type = "output", split = FALSE) 1589s [00:53:09.739] if (TRUE) { 1589s [00:53:09.739] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1589s [00:53:09.739] } 1589s [00:53:09.739] else { 1589s [00:53:09.739] ...future.result["stdout"] <- base::list(NULL) 1589s [00:53:09.739] } 1589s [00:53:09.739] base::close(...future.stdout) 1589s [00:53:09.739] ...future.stdout <- NULL 1589s [00:53:09.739] } 1589s [00:53:09.739] ...future.result$conditions <- ...future.conditions 1589s [00:53:09.739] ...future.result$finished <- base::Sys.time() 1589s [00:53:09.739] ...future.result 1589s [00:53:09.739] } 1589s [00:53:09.746] assign_globals() ... 1589s [00:53:09.746] List of 5 1589s [00:53:09.746] $ ...future.FUN :function (x, na.rm = TRUE) 1589s [00:53:09.746] $ future.call.arguments : list() 1589s [00:53:09.746] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1589s [00:53:09.746] $ ...future.elements_ii :List of 7 1589s [00:53:09.746] ..$ : int [1:3] 1 2 3 1589s [00:53:09.746] ..$ : int [1:4] 1 2 3 4 1589s [00:53:09.746] ..$ : int [1:5] 1 2 3 4 5 1589s [00:53:09.746] ..$ : int [1:6] 1 2 3 4 5 6 1589s [00:53:09.746] ..$ : int [1:7] 1 2 3 4 5 6 7 1589s [00:53:09.746] ..$ : int [1:8] 1 2 3 4 5 6 7 8 1589s [00:53:09.746] ..$ : int [1:9] 1 2 3 4 5 6 7 8 9 1589s [00:53:09.746] $ ...future.seeds_ii : NULL 1589s [00:53:09.746] $ ...future.globals.maxSize: NULL 1589s [00:53:09.746] - attr(*, "where")=List of 5 1589s [00:53:09.746] ..$ ...future.FUN : 1589s [00:53:09.746] ..$ future.call.arguments : 1589s [00:53:09.746] ..$ ...future.elements_ii : 1589s [00:53:09.746] ..$ ...future.seeds_ii : 1589s [00:53:09.746] ..$ ...future.globals.maxSize: 1589s [00:53:09.746] - attr(*, "resolved")= logi FALSE 1589s [00:53:09.746] - attr(*, "total_size")= num 46960 1589s [00:53:09.746] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1589s [00:53:09.746] - attr(*, "already-done")= logi TRUE 1589s [00:53:09.759] - copied ‘...future.FUN’ to environment 1589s [00:53:09.759] - copied ‘future.call.arguments’ to environment 1589s [00:53:09.759] - copied ‘...future.elements_ii’ to environment 1589s [00:53:09.759] - copied ‘...future.seeds_ii’ to environment 1589s [00:53:09.760] - copied ‘...future.globals.maxSize’ to environment 1589s [00:53:09.760] assign_globals() ... done 1589s [00:53:09.762] plan(): Setting new future strategy stack: 1589s [00:53:09.762] List of future strategies: 1589s [00:53:09.762] 1. sequential: 1589s [00:53:09.762] - args: function (..., envir = parent.frame()) 1589s [00:53:09.762] - tweaked: FALSE 1589s [00:53:09.762] - call: NULL 1589s [00:53:09.764] plan(): nbrOfWorkers() = 1 1589s [00:53:09.765] plan(): Setting new future strategy stack: 1589s [00:53:09.765] List of future strategies: 1589s [00:53:09.765] 1. multisession: 1589s [00:53:09.765] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1589s [00:53:09.765] - tweaked: FALSE 1589s [00:53:09.765] - call: plan(strategy) 1589s [00:53:09.770] plan(): nbrOfWorkers() = 1 1589s [00:53:09.770] SequentialFuture started (and completed) 1589s [00:53:09.770] - Launch lazy future ... done 1589s [00:53:09.771] run() for ‘SequentialFuture’ ... done 1589s [00:53:09.771] Created future: 1589s [00:53:09.771] SequentialFuture: 1589s [00:53:09.771] Label: ‘future_sapply-1’ 1589s [00:53:09.771] Expression: 1589s [00:53:09.771] { 1589s [00:53:09.771] do.call(function(...) { 1589s [00:53:09.771] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1589s [00:53:09.771] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1589s [00:53:09.771] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1589s [00:53:09.771] on.exit(options(oopts), add = TRUE) 1589s [00:53:09.771] } 1589s [00:53:09.771] { 1589s [00:53:09.771] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1589s [00:53:09.771] ...future.X_jj <- ...future.elements_ii[[jj]] 1589s [00:53:09.771] ...future.FUN(...future.X_jj, ...) 1589s [00:53:09.771] }) 1589s [00:53:09.771] } 1589s [00:53:09.771] }, args = future.call.arguments) 1589s [00:53:09.771] } 1589s [00:53:09.771] Lazy evaluation: FALSE 1589s [00:53:09.771] Asynchronous evaluation: FALSE 1589s [00:53:09.771] Local evaluation: TRUE 1589s [00:53:09.771] Environment: R_GlobalEnv 1589s [00:53:09.771] Capture standard output: TRUE 1589s [00:53:09.771] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1589s [00:53:09.771] Globals: 5 objects totaling 46.39 KiB (function ‘...future.FUN’ of 45.86 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 544 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1589s [00:53:09.771] Packages: 1 packages (‘stats’) 1589s [00:53:09.771] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1589s [00:53:09.771] Resolved: TRUE 1589s [00:53:09.771] Value: 672 bytes of class ‘list’ 1589s [00:53:09.771] Early signaling: FALSE 1589s [00:53:09.771] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1589s [00:53:09.771] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1589s [00:53:09.773] Chunk #1 of 1 ... DONE 1589s [00:53:09.773] Launching 1 futures (chunks) ... DONE 1589s [00:53:09.773] Resolving 1 futures (chunks) ... 1589s [00:53:09.773] resolve() on list ... 1589s [00:53:09.773] recursive: 0 1589s [00:53:09.773] length: 1 1589s [00:53:09.774] 1589s [00:53:09.774] resolved() for ‘SequentialFuture’ ... 1589s [00:53:09.774] - state: ‘finished’ 1589s [00:53:09.774] - run: TRUE 1589s [00:53:09.774] - result: ‘FutureResult’ 1589s [00:53:09.774] resolved() for ‘SequentialFuture’ ... done 1589s [00:53:09.774] Future #1 1589s [00:53:09.774] signalConditionsASAP(SequentialFuture, pos=1) ... 1589s [00:53:09.775] - nx: 1 1589s [00:53:09.775] - relay: TRUE 1589s [00:53:09.775] - stdout: TRUE 1589s [00:53:09.775] - signal: TRUE 1589s [00:53:09.775] - resignal: FALSE 1589s [00:53:09.775] - force: TRUE 1589s [00:53:09.775] - relayed: [n=1] FALSE 1589s [00:53:09.775] - queued futures: [n=1] FALSE 1589s [00:53:09.775] - until=1 1589s [00:53:09.776] - relaying element #1 1589s [00:53:09.776] - relayed: [n=1] TRUE 1589s [00:53:09.776] - queued futures: [n=1] TRUE 1589s [00:53:09.776] signalConditionsASAP(SequentialFuture, pos=1) ... done 1589s [00:53:09.776] length: 0 (resolved future 1) 1589s [00:53:09.776] Relaying remaining futures 1589s [00:53:09.777] signalConditionsASAP(NULL, pos=0) ... 1589s [00:53:09.777] - nx: 1 1589s [00:53:09.777] - relay: TRUE 1589s [00:53:09.777] - stdout: TRUE 1589s [00:53:09.777] - signal: TRUE 1589s [00:53:09.778] - resignal: FALSE 1589s [00:53:09.778] - force: TRUE 1589s [00:53:09.778] - relayed: [n=1] TRUE 1589s [00:53:09.779] - queued futures: [n=1] TRUE 1589s - flush all 1589s [00:53:09.779] - relayed: [n=1] TRUE 1589s [00:53:09.779] - queued futures: [n=1] TRUE 1589s [00:53:09.779] signalConditionsASAP(NULL, pos=0) ... done 1589s [00:53:09.779] resolve() on list ... DONE 1589s [00:53:09.779] - Number of value chunks collected: 1 1589s [00:53:09.780] Resolving 1 futures (chunks) ... DONE 1589s [00:53:09.780] Reducing values from 1 chunks ... 1589s [00:53:09.780] - Number of values collected after concatenation: 7 1589s [00:53:09.780] - Number of values expected: 7 1589s [00:53:09.780] Reducing values from 1 chunks ... DONE 1589s [00:53:09.781] future_lapply() ... DONE 1589s [00:53:09.781] future_lapply() ... 1589s [00:53:09.788] Number of chunks: 1 1589s [00:53:09.788] getGlobalsAndPackagesXApply() ... 1589s [00:53:09.788] - future.globals: TRUE 1589s [00:53:09.789] getGlobalsAndPackages() ... 1589s [00:53:09.789] Searching for globals... 1589s [00:53:09.808] - globals found: [31] ‘FUN’, ‘{’, ‘<-’, ‘x_FUN’, ‘if’, ‘!=’, ‘length’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘all’, ‘==’, ‘dim’, ‘%in%’, ‘typeof’, ‘valid_types’, ‘is.na’, ‘any’, ‘[’, ‘!’, ‘return’, ‘rep.int’, ‘sort’, ‘/’, ‘floor’, ‘(’, ‘+’, ‘c’, ‘-’, ‘*’, ‘ceiling’ 1589s [00:53:09.809] Searching for globals ... DONE 1589s [00:53:09.809] Resolving globals: FALSE 1589s [00:53:09.811] The total size of the 7 globals is 137.93 KiB (141240 bytes) 1589s [00:53:09.812] The total size of the 7 globals exported for future expression (‘FUN()’) is 137.93 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘x_FUN’ (45.86 KiB of class ‘function’), ‘stop_if_not’ (44.12 KiB of class ‘function’) and ‘stopf’ (26.43 KiB of class ‘function’) 1589s [00:53:09.813] - globals: [7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1589s [00:53:09.813] - packages: [2] ‘stats’, ‘future.apply’ 1589s [00:53:09.813] getGlobalsAndPackages() ... DONE 1589s [00:53:09.814] - globals found/used: [n=7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1589s [00:53:09.814] - needed namespaces: [n=2] ‘stats’, ‘future.apply’ 1589s [00:53:09.814] Finding globals ... DONE 1589s [00:53:09.815] - use_args: TRUE 1589s [00:53:09.815] - Getting '...' globals ... 1589s [00:53:09.816] resolve() on list ... 1589s [00:53:09.816] recursive: 0 1589s [00:53:09.816] length: 1 1589s [00:53:09.817] elements: ‘...’ 1589s [00:53:09.817] length: 0 (resolved future 1) 1589s [00:53:09.818] resolve() on list ... DONE 1589s [00:53:09.818] - '...' content: [n=0] 1589s [00:53:09.818] List of 1 1589s [00:53:09.818] $ ...: list() 1589s [00:53:09.818] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1589s [00:53:09.818] - attr(*, "where")=List of 1 1589s [00:53:09.818] ..$ ...: 1589s [00:53:09.818] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1589s [00:53:09.818] - attr(*, "resolved")= logi TRUE 1589s [00:53:09.818] - attr(*, "total_size")= num NA 1589s [00:53:09.824] - Getting '...' globals ... DONE 1589s [00:53:09.824] Globals to be used in all futures (chunks): [n=8] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’ 1589s [00:53:09.824] List of 8 1589s [00:53:09.824] $ ...future.FUN:function (x, ...) 1589s [00:53:09.824] $ x_FUN :function (x, na.rm = TRUE) 1589s [00:53:09.824] $ times : int 5 1589s [00:53:09.824] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1589s [00:53:09.824] $ stop_if_not :function (...) 1589s [00:53:09.824] $ dim : NULL 1589s [00:53:09.824] $ valid_types : chr [1:3] "logical" "integer" "double" 1589s [00:53:09.824] $ ... : list() 1589s [00:53:09.824] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1589s [00:53:09.824] - attr(*, "where")=List of 8 1589s [00:53:09.824] ..$ ...future.FUN: 1589s [00:53:09.824] ..$ x_FUN : 1589s [00:53:09.824] ..$ times : 1589s [00:53:09.824] ..$ stopf : 1589s [00:53:09.824] ..$ stop_if_not : 1589s [00:53:09.824] ..$ dim : 1589s [00:53:09.824] ..$ valid_types : 1589s [00:53:09.824] ..$ ... : 1589s [00:53:09.824] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1589s [00:53:09.824] - attr(*, "resolved")= logi FALSE 1589s [00:53:09.824] - attr(*, "total_size")= num 141240 1589s [00:53:09.832] Packages to be attached in all futures: [n=2] ‘stats’, ‘future.apply’ 1589s [00:53:09.832] getGlobalsAndPackagesXApply() ... DONE 1589s [00:53:09.833] Number of futures (= number of chunks): 1 1589s [00:53:09.833] Launching 1 futures (chunks) ... 1589s [00:53:09.833] Chunk #1 of 1 ... 1589s [00:53:09.834] - Finding globals in 'X' for chunk #1 ... 1589s [00:53:09.834] getGlobalsAndPackages() ... 1589s [00:53:09.834] Searching for globals... 1589s [00:53:09.834] 1589s [00:53:09.835] Searching for globals ... DONE 1589s [00:53:09.835] - globals: [0] 1589s [00:53:09.835] getGlobalsAndPackages() ... DONE 1589s [00:53:09.836] + additional globals found: [n=0] 1589s [00:53:09.836] + additional namespaces needed: [n=0] 1589s [00:53:09.836] - Finding globals in 'X' for chunk #1 ... DONE 1589s [00:53:09.836] - seeds: 1589s [00:53:09.836] - All globals exported: [n=11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1589s [00:53:09.836] getGlobalsAndPackages() ... 1589s [00:53:09.836] - globals passed as-is: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1589s [00:53:09.837] Resolving globals: FALSE 1589s [00:53:09.837] Tweak future expression to call with '...' arguments ... 1589s [00:53:09.840] { 1589s [00:53:09.840] do.call(function(...) { 1589s [00:53:09.840] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1589s [00:53:09.840] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1589s [00:53:09.840] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1589s [00:53:09.840] on.exit(options(oopts), add = TRUE) 1589s [00:53:09.840] } 1589s [00:53:09.840] { 1589s [00:53:09.840] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1589s [00:53:09.840] ...future.X_jj <- ...future.elements_ii[[jj]] 1589s [00:53:09.840] ...future.FUN(...future.X_jj, ...) 1589s [00:53:09.840] }) 1589s [00:53:09.840] } 1589s [00:53:09.840] }, args = future.call.arguments) 1589s [00:53:09.840] } 1589s [00:53:09.841] Tweak future expression to call with '...' arguments ... DONE 1589s [00:53:09.842] - globals: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1589s [00:53:09.842] - packages: [2] ‘stats’, ‘future.apply’ 1589s [00:53:09.842] getGlobalsAndPackages() ... DONE 1589s [00:53:09.843] run() for ‘Future’ ... 1589s [00:53:09.843] - state: ‘created’ 1589s [00:53:09.843] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1589s [00:53:09.848] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1589s [00:53:09.848] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1589s [00:53:09.848] - Field: ‘label’ 1589s [00:53:09.848] - Field: ‘local’ 1589s [00:53:09.848] - Field: ‘owner’ 1589s [00:53:09.848] - Field: ‘envir’ 1589s [00:53:09.849] - Field: ‘packages’ 1589s [00:53:09.849] - Field: ‘gc’ 1589s [00:53:09.849] - Field: ‘conditions’ 1589s [00:53:09.849] - Field: ‘expr’ 1589s [00:53:09.849] - Field: ‘uuid’ 1589s [00:53:09.849] - Field: ‘seed’ 1589s [00:53:09.850] - Field: ‘version’ 1589s [00:53:09.850] - Field: ‘result’ 1589s [00:53:09.850] - Field: ‘asynchronous’ 1589s [00:53:09.850] - Field: ‘calls’ 1589s [00:53:09.850] - Field: ‘globals’ 1589s [00:53:09.851] - Field: ‘stdout’ 1589s [00:53:09.851] - Field: ‘earlySignal’ 1589s [00:53:09.851] - Field: ‘lazy’ 1589s [00:53:09.851] - Field: ‘state’ 1589s [00:53:09.851] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1589s [00:53:09.852] - Launch lazy future ... 1589s [00:53:09.852] Packages needed by the future expression (n = 2): ‘stats’, ‘future.apply’ 1589s [00:53:09.852] Packages needed by future strategies (n = 0): 1589s [00:53:09.853] { 1589s [00:53:09.853] { 1589s [00:53:09.853] { 1589s [00:53:09.853] ...future.startTime <- base::Sys.time() 1589s [00:53:09.853] { 1589s [00:53:09.853] { 1589s [00:53:09.853] { 1589s [00:53:09.853] { 1589s [00:53:09.853] base::local({ 1589s [00:53:09.853] has_future <- base::requireNamespace("future", 1589s [00:53:09.853] quietly = TRUE) 1589s [00:53:09.853] if (has_future) { 1589s [00:53:09.853] ns <- base::getNamespace("future") 1589s [00:53:09.853] version <- ns[[".package"]][["version"]] 1589s [00:53:09.853] if (is.null(version)) 1589s [00:53:09.853] version <- utils::packageVersion("future") 1589s [00:53:09.853] } 1589s [00:53:09.853] else { 1589s [00:53:09.853] version <- NULL 1589s [00:53:09.853] } 1589s [00:53:09.853] if (!has_future || version < "1.8.0") { 1589s [00:53:09.853] info <- base::c(r_version = base::gsub("R version ", 1589s [00:53:09.853] "", base::R.version$version.string), 1589s [00:53:09.853] platform = base::sprintf("%s (%s-bit)", 1589s [00:53:09.853] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1589s [00:53:09.853] os = base::paste(base::Sys.info()[base::c("sysname", 1589s [00:53:09.853] "release", "version")], collapse = " "), 1589s [00:53:09.853] hostname = base::Sys.info()[["nodename"]]) 1589s [00:53:09.853] info <- base::sprintf("%s: %s", base::names(info), 1589s [00:53:09.853] info) 1589s [00:53:09.853] info <- base::paste(info, collapse = "; ") 1589s [00:53:09.853] if (!has_future) { 1589s [00:53:09.853] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1589s [00:53:09.853] info) 1589s [00:53:09.853] } 1589s [00:53:09.853] else { 1589s [00:53:09.853] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1589s [00:53:09.853] info, version) 1589s [00:53:09.853] } 1589s [00:53:09.853] base::stop(msg) 1589s [00:53:09.853] } 1589s [00:53:09.853] }) 1589s [00:53:09.853] } 1589s [00:53:09.853] base::local({ 1589s [00:53:09.853] for (pkg in c("stats", "future.apply")) { 1589s [00:53:09.853] base::loadNamespace(pkg) 1589s [00:53:09.853] base::library(pkg, character.only = TRUE) 1589s [00:53:09.853] } 1589s [00:53:09.853] }) 1589s [00:53:09.853] } 1589s [00:53:09.853] options(future.plan = NULL) 1589s [00:53:09.853] Sys.unsetenv("R_FUTURE_PLAN") 1589s [00:53:09.853] future::plan("default", .cleanup = FALSE, .init = FALSE) 1589s [00:53:09.853] } 1589s [00:53:09.853] ...future.workdir <- getwd() 1589s [00:53:09.853] } 1589s [00:53:09.853] ...future.oldOptions <- base::as.list(base::.Options) 1589s [00:53:09.853] ...future.oldEnvVars <- base::Sys.getenv() 1589s [00:53:09.853] } 1589s [00:53:09.853] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1589s [00:53:09.853] future.globals.maxSize = NULL, future.globals.method = NULL, 1589s [00:53:09.853] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1589s [00:53:09.853] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1589s [00:53:09.853] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1589s [00:53:09.853] future.stdout.windows.reencode = NULL, width = 80L) 1589s [00:53:09.853] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1589s [00:53:09.853] base::names(...future.oldOptions)) 1589s [00:53:09.853] } 1589s [00:53:09.853] if (FALSE) { 1589s [00:53:09.853] } 1589s [00:53:09.853] else { 1589s [00:53:09.853] if (TRUE) { 1589s [00:53:09.853] ...future.stdout <- base::rawConnection(base::raw(0L), 1589s [00:53:09.853] open = "w") 1589s [00:53:09.853] } 1589s [00:53:09.853] else { 1589s [00:53:09.853] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1589s [00:53:09.853] windows = "NUL", "/dev/null"), open = "w") 1589s [00:53:09.853] } 1589s [00:53:09.853] base::sink(...future.stdout, type = "output", split = FALSE) 1589s [00:53:09.853] base::on.exit(if (!base::is.null(...future.stdout)) { 1589s [00:53:09.853] base::sink(type = "output", split = FALSE) 1589s [00:53:09.853] base::close(...future.stdout) 1589s [00:53:09.853] }, add = TRUE) 1589s [00:53:09.853] } 1589s [00:53:09.853] ...future.frame <- base::sys.nframe() 1589s [00:53:09.853] ...future.conditions <- base::list() 1589s [00:53:09.853] ...future.rng <- base::globalenv()$.Random.seed 1589s [00:53:09.853] if (FALSE) { 1589s [00:53:09.853] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1589s [00:53:09.853] "...future.value", "...future.globalenv.names", ".Random.seed") 1589s [00:53:09.853] } 1589s [00:53:09.853] ...future.result <- base::tryCatch({ 1589s [00:53:09.853] base::withCallingHandlers({ 1589s [00:53:09.853] ...future.value <- base::withVisible(base::local({ 1589s [00:53:09.853] do.call(function(...) { 1589s [00:53:09.853] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1589s [00:53:09.853] if (!identical(...future.globals.maxSize.org, 1589s [00:53:09.853] ...future.globals.maxSize)) { 1589s [00:53:09.853] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1589s [00:53:09.853] on.exit(options(oopts), add = TRUE) 1589s [00:53:09.853] } 1589s [00:53:09.853] { 1589s [00:53:09.853] lapply(seq_along(...future.elements_ii), 1589s [00:53:09.853] FUN = function(jj) { 1589s [00:53:09.853] ...future.X_jj <- ...future.elements_ii[[jj]] 1589s [00:53:09.853] ...future.FUN(...future.X_jj, ...) 1589s [00:53:09.853] }) 1589s [00:53:09.853] } 1589s [00:53:09.853] }, args = future.call.arguments) 1589s [00:53:09.853] })) 1589s [00:53:09.853] future::FutureResult(value = ...future.value$value, 1589s [00:53:09.853] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1589s [00:53:09.853] ...future.rng), globalenv = if (FALSE) 1589s [00:53:09.853] list(added = base::setdiff(base::names(base::.GlobalEnv), 1589s [00:53:09.853] ...future.globalenv.names)) 1589s [00:53:09.853] else NULL, started = ...future.startTime, version = "1.8") 1589s [00:53:09.853] }, condition = base::local({ 1589s [00:53:09.853] c <- base::c 1589s [00:53:09.853] inherits <- base::inherits 1589s [00:53:09.853] invokeRestart <- base::invokeRestart 1589s [00:53:09.853] length <- base::length 1589s [00:53:09.853] list <- base::list 1589s [00:53:09.853] seq.int <- base::seq.int 1589s [00:53:09.853] signalCondition <- base::signalCondition 1589s [00:53:09.853] sys.calls <- base::sys.calls 1589s [00:53:09.853] `[[` <- base::`[[` 1589s [00:53:09.853] `+` <- base::`+` 1589s [00:53:09.853] `<<-` <- base::`<<-` 1589s [00:53:09.853] sysCalls <- function(calls = sys.calls(), from = 1L) { 1589s [00:53:09.853] calls[seq.int(from = from + 12L, to = length(calls) - 1589s [00:53:09.853] 3L)] 1589s [00:53:09.853] } 1589s [00:53:09.853] function(cond) { 1589s [00:53:09.853] is_error <- inherits(cond, "error") 1589s [00:53:09.853] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1589s [00:53:09.853] NULL) 1589s [00:53:09.853] if (is_error) { 1589s [00:53:09.853] sessionInformation <- function() { 1589s [00:53:09.853] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1589s [00:53:09.853] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1589s [00:53:09.853] search = base::search(), system = base::Sys.info()) 1589s [00:53:09.853] } 1589s [00:53:09.853] ...future.conditions[[length(...future.conditions) + 1589s [00:53:09.853] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1589s [00:53:09.853] cond$call), session = sessionInformation(), 1589s [00:53:09.853] timestamp = base::Sys.time(), signaled = 0L) 1589s [00:53:09.853] signalCondition(cond) 1589s [00:53:09.853] } 1589s [00:53:09.853] else if (!ignore && TRUE && inherits(cond, c("condition", 1589s [00:53:09.853] "immediateCondition"))) { 1589s [00:53:09.853] signal <- TRUE && inherits(cond, "immediateCondition") 1589s [00:53:09.853] ...future.conditions[[length(...future.conditions) + 1589s [00:53:09.853] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1589s [00:53:09.853] if (TRUE && !signal) { 1589s [00:53:09.853] muffleCondition <- function (cond, pattern = "^muffle") 1589s [00:53:09.853] { 1589s [00:53:09.853] inherits <- base::inherits 1589s [00:53:09.853] invokeRestart <- base::invokeRestart 1589s [00:53:09.853] is.null <- base::is.null 1589s [00:53:09.853] muffled <- FALSE 1589s [00:53:09.853] if (inherits(cond, "message")) { 1589s [00:53:09.853] muffled <- grepl(pattern, "muffleMessage") 1589s [00:53:09.853] if (muffled) 1589s [00:53:09.853] invokeRestart("muffleMessage") 1589s [00:53:09.853] } 1589s [00:53:09.853] else if (inherits(cond, "warning")) { 1589s [00:53:09.853] muffled <- grepl(pattern, "muffleWarning") 1589s [00:53:09.853] if (muffled) 1589s [00:53:09.853] invokeRestart("muffleWarning") 1589s [00:53:09.853] } 1589s [00:53:09.853] else if (inherits(cond, "condition")) { 1589s [00:53:09.853] if (!is.null(pattern)) { 1589s [00:53:09.853] computeRestarts <- base::computeRestarts 1589s [00:53:09.853] grepl <- base::grepl 1589s [00:53:09.853] restarts <- computeRestarts(cond) 1589s [00:53:09.853] for (restart in restarts) { 1589s [00:53:09.853] name <- restart$name 1589s [00:53:09.853] if (is.null(name)) 1589s [00:53:09.853] next 1589s [00:53:09.853] if (!grepl(pattern, name)) 1589s [00:53:09.853] next 1589s [00:53:09.853] invokeRestart(restart) 1589s [00:53:09.853] muffled <- TRUE 1589s [00:53:09.853] break 1589s [00:53:09.853] } 1589s [00:53:09.853] } 1589s [00:53:09.853] } 1589s [00:53:09.853] invisible(muffled) 1589s [00:53:09.853] } 1589s [00:53:09.853] muffleCondition(cond, pattern = "^muffle") 1589s [00:53:09.853] } 1589s [00:53:09.853] } 1589s [00:53:09.853] else { 1589s [00:53:09.853] if (TRUE) { 1589s [00:53:09.853] muffleCondition <- function (cond, pattern = "^muffle") 1589s [00:53:09.853] { 1589s [00:53:09.853] inherits <- base::inherits 1589s [00:53:09.853] invokeRestart <- base::invokeRestart 1589s [00:53:09.853] is.null <- base::is.null 1589s [00:53:09.853] muffled <- FALSE 1589s [00:53:09.853] if (inherits(cond, "message")) { 1589s [00:53:09.853] muffled <- grepl(pattern, "muffleMessage") 1589s [00:53:09.853] if (muffled) 1589s [00:53:09.853] invokeRestart("muffleMessage") 1589s [00:53:09.853] } 1589s [00:53:09.853] else if (inherits(cond, "warning")) { 1589s [00:53:09.853] muffled <- grepl(pattern, "muffleWarning") 1589s [00:53:09.853] if (muffled) 1589s [00:53:09.853] invokeRestart("muffleWarning") 1589s [00:53:09.853] } 1589s [00:53:09.853] else if (inherits(cond, "condition")) { 1589s [00:53:09.853] if (!is.null(pattern)) { 1589s [00:53:09.853] computeRestarts <- base::computeRestarts 1589s [00:53:09.853] grepl <- base::grepl 1589s [00:53:09.853] restarts <- computeRestarts(cond) 1589s [00:53:09.853] for (restart in restarts) { 1589s [00:53:09.853] name <- restart$name 1589s [00:53:09.853] if (is.null(name)) 1589s [00:53:09.853] next 1589s [00:53:09.853] if (!grepl(pattern, name)) 1589s [00:53:09.853] next 1589s [00:53:09.853] invokeRestart(restart) 1589s [00:53:09.853] muffled <- TRUE 1589s [00:53:09.853] break 1589s [00:53:09.853] } 1589s [00:53:09.853] } 1589s [00:53:09.853] } 1589s [00:53:09.853] invisible(muffled) 1589s [00:53:09.853] } 1589s [00:53:09.853] muffleCondition(cond, pattern = "^muffle") 1589s [00:53:09.853] } 1589s [00:53:09.853] } 1589s [00:53:09.853] } 1589s [00:53:09.853] })) 1589s [00:53:09.853] }, error = function(ex) { 1589s [00:53:09.853] base::structure(base::list(value = NULL, visible = NULL, 1589s [00:53:09.853] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1589s [00:53:09.853] ...future.rng), started = ...future.startTime, 1589s [00:53:09.853] finished = Sys.time(), session_uuid = NA_character_, 1589s [00:53:09.853] version = "1.8"), class = "FutureResult") 1589s [00:53:09.853] }, finally = { 1589s [00:53:09.853] if (!identical(...future.workdir, getwd())) 1589s [00:53:09.853] setwd(...future.workdir) 1589s [00:53:09.853] { 1589s [00:53:09.853] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1589s [00:53:09.853] ...future.oldOptions$nwarnings <- NULL 1589s [00:53:09.853] } 1589s [00:53:09.853] base::options(...future.oldOptions) 1589s [00:53:09.853] if (.Platform$OS.type == "windows") { 1589s [00:53:09.853] old_names <- names(...future.oldEnvVars) 1589s [00:53:09.853] envs <- base::Sys.getenv() 1589s [00:53:09.853] names <- names(envs) 1589s [00:53:09.853] common <- intersect(names, old_names) 1589s [00:53:09.853] added <- setdiff(names, old_names) 1589s [00:53:09.853] removed <- setdiff(old_names, names) 1589s [00:53:09.853] changed <- common[...future.oldEnvVars[common] != 1589s [00:53:09.853] envs[common]] 1589s [00:53:09.853] NAMES <- toupper(changed) 1589s [00:53:09.853] args <- list() 1589s [00:53:09.853] for (kk in seq_along(NAMES)) { 1589s [00:53:09.853] name <- changed[[kk]] 1589s [00:53:09.853] NAME <- NAMES[[kk]] 1589s [00:53:09.853] if (name != NAME && is.element(NAME, old_names)) 1589s [00:53:09.853] next 1589s [00:53:09.853] args[[name]] <- ...future.oldEnvVars[[name]] 1589s [00:53:09.853] } 1589s [00:53:09.853] NAMES <- toupper(added) 1589s [00:53:09.853] for (kk in seq_along(NAMES)) { 1589s [00:53:09.853] name <- added[[kk]] 1589s [00:53:09.853] NAME <- NAMES[[kk]] 1589s [00:53:09.853] if (name != NAME && is.element(NAME, old_names)) 1589s [00:53:09.853] next 1589s [00:53:09.853] args[[name]] <- "" 1589s [00:53:09.853] } 1589s [00:53:09.853] NAMES <- toupper(removed) 1589s [00:53:09.853] for (kk in seq_along(NAMES)) { 1589s [00:53:09.853] name <- removed[[kk]] 1589s [00:53:09.853] NAME <- NAMES[[kk]] 1589s [00:53:09.853] if (name != NAME && is.element(NAME, old_names)) 1589s [00:53:09.853] next 1589s [00:53:09.853] args[[name]] <- ...future.oldEnvVars[[name]] 1589s [00:53:09.853] } 1589s [00:53:09.853] if (length(args) > 0) 1589s [00:53:09.853] base::do.call(base::Sys.setenv, args = args) 1589s [00:53:09.853] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1589s [00:53:09.853] } 1589s [00:53:09.853] else { 1589s [00:53:09.853] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1589s [00:53:09.853] } 1589s [00:53:09.853] { 1589s [00:53:09.853] if (base::length(...future.futureOptionsAdded) > 1589s [00:53:09.853] 0L) { 1589s [00:53:09.853] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1589s [00:53:09.853] base::names(opts) <- ...future.futureOptionsAdded 1589s [00:53:09.853] base::options(opts) 1589s [00:53:09.853] } 1589s [00:53:09.853] { 1589s [00:53:09.853] { 1589s [00:53:09.853] NULL 1589s [00:53:09.853] RNGkind("Mersenne-Twister") 1589s [00:53:09.853] base::rm(list = ".Random.seed", envir = base::globalenv(), 1589s [00:53:09.853] inherits = FALSE) 1589s [00:53:09.853] } 1589s [00:53:09.853] options(future.plan = NULL) 1589s [00:53:09.853] if (is.na(NA_character_)) 1589s [00:53:09.853] Sys.unsetenv("R_FUTURE_PLAN") 1589s [00:53:09.853] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1589s [00:53:09.853] future::plan(list(function (..., workers = availableCores(), 1589s [00:53:09.853] lazy = FALSE, rscript_libs = .libPaths(), 1589s [00:53:09.853] envir = parent.frame()) 1589s [00:53:09.853] { 1589s [00:53:09.853] if (is.function(workers)) 1589s [00:53:09.853] workers <- workers() 1589s [00:53:09.853] workers <- structure(as.integer(workers), 1589s [00:53:09.853] class = class(workers)) 1589s [00:53:09.853] stop_if_not(length(workers) == 1, is.finite(workers), 1589s [00:53:09.853] workers >= 1) 1589s [00:53:09.853] if (workers == 1L && !inherits(workers, "AsIs")) { 1589s [00:53:09.853] return(sequential(..., lazy = TRUE, envir = envir)) 1589s [00:53:09.853] } 1589s [00:53:09.853] future <- MultisessionFuture(..., workers = workers, 1589s [00:53:09.853] lazy = lazy, rscript_libs = rscript_libs, 1589s [00:53:09.853] envir = envir) 1589s [00:53:09.853] if (!future$lazy) 1589s [00:53:09.853] future <- run(future) 1589s [00:53:09.853] invisible(future) 1589s [00:53:09.853] }), .cleanup = FALSE, .init = FALSE) 1589s [00:53:09.853] } 1589s [00:53:09.853] } 1589s [00:53:09.853] } 1589s [00:53:09.853] }) 1589s [00:53:09.853] if (TRUE) { 1589s [00:53:09.853] base::sink(type = "output", split = FALSE) 1589s [00:53:09.853] if (TRUE) { 1589s [00:53:09.853] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1589s [00:53:09.853] } 1589s [00:53:09.853] else { 1589s [00:53:09.853] ...future.result["stdout"] <- base::list(NULL) 1589s [00:53:09.853] } 1589s [00:53:09.853] base::close(...future.stdout) 1589s [00:53:09.853] ...future.stdout <- NULL 1589s [00:53:09.853] } 1589s [00:53:09.853] ...future.result$conditions <- ...future.conditions 1589s [00:53:09.853] ...future.result$finished <- base::Sys.time() 1589s [00:53:09.853] ...future.result 1589s [00:53:09.853] } 1589s [00:53:09.858] assign_globals() ... 1589s [00:53:09.859] List of 11 1589s [00:53:09.859] $ ...future.FUN :function (x, ...) 1589s [00:53:09.859] $ x_FUN :function (x, na.rm = TRUE) 1589s [00:53:09.859] $ times : int 5 1589s [00:53:09.859] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1589s [00:53:09.859] $ stop_if_not :function (...) 1589s [00:53:09.859] $ dim : NULL 1589s [00:53:09.859] $ valid_types : chr [1:3] "logical" "integer" "double" 1589s [00:53:09.859] $ future.call.arguments : list() 1589s [00:53:09.859] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1589s [00:53:09.859] $ ...future.elements_ii :List of 7 1589s [00:53:09.859] ..$ : int [1:3] 1 2 3 1589s [00:53:09.859] ..$ : int [1:4] 1 2 3 4 1589s [00:53:09.859] ..$ : int [1:5] 1 2 3 4 5 1589s [00:53:09.859] ..$ : int [1:6] 1 2 3 4 5 6 1589s [00:53:09.859] ..$ : int [1:7] 1 2 3 4 5 6 7 1589s [00:53:09.859] ..$ : int [1:8] 1 2 3 4 5 6 7 8 1589s [00:53:09.859] ..$ : int [1:9] 1 2 3 4 5 6 7 8 9 1589s [00:53:09.859] $ ...future.seeds_ii : NULL 1589s [00:53:09.859] $ ...future.globals.maxSize: NULL 1589s [00:53:09.859] - attr(*, "where")=List of 11 1589s [00:53:09.859] ..$ ...future.FUN : 1589s [00:53:09.859] ..$ x_FUN : 1589s [00:53:09.859] ..$ times : 1589s [00:53:09.859] ..$ stopf : 1589s [00:53:09.859] ..$ stop_if_not : 1589s [00:53:09.859] ..$ dim : 1589s [00:53:09.859] ..$ valid_types : 1589s [00:53:09.859] ..$ future.call.arguments : 1589s [00:53:09.859] ..$ ...future.elements_ii : 1589s [00:53:09.859] ..$ ...future.seeds_ii : 1589s [00:53:09.859] ..$ ...future.globals.maxSize: 1589s [00:53:09.859] - attr(*, "resolved")= logi FALSE 1589s [00:53:09.859] - attr(*, "total_size")= num 141240 1589s [00:53:09.859] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1589s [00:53:09.859] - attr(*, "already-done")= logi TRUE 1589s [00:53:09.873] - copied ‘...future.FUN’ to environment 1589s [00:53:09.874] - copied ‘x_FUN’ to environment 1589s [00:53:09.874] - copied ‘times’ to environment 1589s [00:53:09.874] - copied ‘stopf’ to environment 1589s [00:53:09.874] - copied ‘stop_if_not’ to environment 1589s [00:53:09.874] - copied ‘dim’ to environment 1589s [00:53:09.874] - copied ‘valid_types’ to environment 1589s [00:53:09.874] - copied ‘future.call.arguments’ to environment 1589s [00:53:09.874] - copied ‘...future.elements_ii’ to environment 1589s [00:53:09.875] - copied ‘...future.seeds_ii’ to environment 1589s [00:53:09.875] - copied ‘...future.globals.maxSize’ to environment 1589s [00:53:09.875] assign_globals() ... done 1589s [00:53:09.875] plan(): Setting new future strategy stack: 1589s [00:53:09.876] List of future strategies: 1589s [00:53:09.876] 1. sequential: 1589s [00:53:09.876] - args: function (..., envir = parent.frame()) 1589s [00:53:09.876] - tweaked: FALSE 1589s [00:53:09.876] - call: NULL 1589s [00:53:09.878] plan(): nbrOfWorkers() = 1 1589s [00:53:09.880] plan(): Setting new future strategy stack: 1589s [00:53:09.880] List of future strategies: 1589s [00:53:09.880] 1. multisession: 1589s [00:53:09.880] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1589s [00:53:09.880] - tweaked: FALSE 1589s [00:53:09.880] - call: plan(strategy) 1589s [00:53:09.884] plan(): nbrOfWorkers() = 1 1589s [00:53:09.885] SequentialFuture started (and completed) 1589s [00:53:09.885] - Launch lazy future ... done 1589s [00:53:09.885] run() for ‘SequentialFuture’ ... done 1589s [00:53:09.886] Created future: 1589s [00:53:09.886] SequentialFuture: 1589s [00:53:09.886] Label: ‘future_vapply-1’ 1589s [00:53:09.886] Expression: 1589s [00:53:09.886] { 1589s [00:53:09.886] do.call(function(...) { 1589s [00:53:09.886] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1589s [00:53:09.886] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1589s [00:53:09.886] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1589s [00:53:09.886] on.exit(options(oopts), add = TRUE) 1589s [00:53:09.886] } 1589s [00:53:09.886] { 1589s [00:53:09.886] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1589s [00:53:09.886] ...future.X_jj <- ...future.elements_ii[[jj]] 1589s [00:53:09.886] ...future.FUN(...future.X_jj, ...) 1589s [00:53:09.886] }) 1589s [00:53:09.886] } 1589s [00:53:09.886] }, args = future.call.arguments) 1589s [00:53:09.886] } 1589s [00:53:09.886] Lazy evaluation: FALSE 1589s [00:53:09.886] Asynchronous evaluation: FALSE 1589s [00:53:09.886] Local evaluation: TRUE 1589s [00:53:09.886] Environment: R_GlobalEnv 1589s [00:53:09.886] Capture standard output: TRUE 1589s [00:53:09.886] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1589s [00:53:09.886] Globals: 11 objects totaling 138.46 KiB (function ‘...future.FUN’ of 21.22 KiB, function ‘x_FUN’ of 45.86 KiB, integer ‘times’ of 56 bytes, function ‘stopf’ of 26.43 KiB, function ‘stop_if_not’ of 44.12 KiB, ...) 1589s [00:53:09.886] Packages: 2 packages (‘stats’, ‘future.apply’) 1589s [00:53:09.886] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1589s [00:53:09.886] Resolved: TRUE 1589s [00:53:09.886] Value: 672 bytes of class ‘list’ 1589s [00:53:09.886] Early signaling: FALSE 1589s [00:53:09.886] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1589s [00:53:09.886] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1589s [00:53:09.888] Chunk #1 of 1 ... DONE 1589s [00:53:09.889] Launching 1 futures (chunks) ... DONE 1589s [00:53:09.889] Resolving 1 futures (chunks) ... 1589s [00:53:09.889] resolve() on list ... 1589s [00:53:09.889] recursive: 0 1589s [00:53:09.889] length: 1 1589s [00:53:09.890] 1589s [00:53:09.890] resolved() for ‘SequentialFuture’ ... 1589s [00:53:09.890] - state: ‘finished’ 1589s [00:53:09.890] - run: TRUE 1589s [00:53:09.891] - result: ‘FutureResult’ 1589s [00:53:09.891] resolved() for ‘SequentialFuture’ ... done 1589s [00:53:09.891] Future #1 1589s [00:53:09.891] signalConditionsASAP(SequentialFuture, pos=1) ... 1589s [00:53:09.892] - nx: 1 1589s [00:53:09.892] - relay: TRUE 1589s [00:53:09.892] - stdout: TRUE 1589s [00:53:09.892] - signal: TRUE 1589s [00:53:09.892] - resignal: FALSE 1589s [00:53:09.892] - force: TRUE 1589s [00:53:09.893] - relayed: [n=1] FALSE 1589s [00:53:09.893] - queued futures: [n=1] FALSE 1589s [00:53:09.893] - until=1 1589s [00:53:09.893] - relaying element #1 1589s [00:53:09.894] - relayed: [n=1] TRUE 1589s [00:53:09.894] - queued futures: [n=1] TRUE 1589s [00:53:09.894] signalConditionsASAP(SequentialFuture, pos=1) ... done 1589s [00:53:09.894] length: 0 (resolved future 1) 1589s [00:53:09.894] Relaying remaining futures 1589s [00:53:09.895] signalConditionsASAP(NULL, pos=0) ... 1589s [00:53:09.895] - nx: 1 1589s [00:53:09.895] - relay: TRUE 1589s [00:53:09.895] - stdout: TRUE 1589s [00:53:09.895] - signal: TRUE 1589s [00:53:09.895] - resignal: FALSE 1589s [00:53:09.896] - force: TRUE 1589s [00:53:09.896] - relayed: [n=1] TRUE 1589s [00:53:09.896] - queued futures: [n=1] TRUE 1589s - flush all 1589s [00:53:09.896] - relayed: [n=1] TRUE 1589s [00:53:09.896] - queued futures: [n=1] TRUE 1589s [00:53:09.896] signalConditionsASAP(NULL, pos=0) ... done 1589s [00:53:09.897] resolve() on list ... DONE 1589s [00:53:09.897] - Number of value chunks collected: 1 1589s [00:53:09.897] Resolving 1 futures (chunks) ... DONE 1589s [00:53:09.897] Reducing values from 1 chunks ... 1589s [00:53:09.897] - Number of values collected after concatenation: 7 1589s [00:53:09.898] - Number of values expected: 7 1589s [00:53:09.898] Reducing values from 1 chunks ... DONE 1589s [00:53:09.898] future_lapply() ... DONE 1589s num [1:5, 1:7] 1 1.5 2 2.5 3 1 1.5 2.5 3.5 4 ... 1589s - attr(*, "dimnames")=List of 2 1589s ..$ : chr [1:5] "Min." "1st Qu." "Median" "3rd Qu." ... 1589s ..$ : NULL 1589s [00:53:09.900] future_lapply() ... 1589s [00:53:09.904] Number of chunks: 1 1589s [00:53:09.904] getGlobalsAndPackagesXApply() ... 1589s [00:53:09.905] - future.globals: TRUE 1589s [00:53:09.905] getGlobalsAndPackages() ... 1589s [00:53:09.905] Searching for globals... 1589s [00:53:09.907] - globals found: [3] ‘FUN’, ‘outer’, ‘rep’ 1589s [00:53:09.907] Searching for globals ... DONE 1589s [00:53:09.907] Resolving globals: FALSE 1589s [00:53:09.908] The total size of the 1 globals is 4.07 KiB (4168 bytes) 1589s [00:53:09.908] The total size of the 1 globals exported for future expression (‘FUN(y = c(2, 4, 6, 8, 10))’) is 4.07 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.07 KiB of class ‘function’) 1589s [00:53:09.908] - globals: [1] ‘FUN’ 1589s [00:53:09.908] 1589s [00:53:09.909] getGlobalsAndPackages() ... DONE 1589s [00:53:09.909] - globals found/used: [n=1] ‘FUN’ 1589s [00:53:09.909] - needed namespaces: [n=0] 1589s [00:53:09.909] Finding globals ... DONE 1589s [00:53:09.909] - use_args: TRUE 1589s [00:53:09.909] - Getting '...' globals ... 1589s [00:53:09.910] resolve() on list ... 1589s [00:53:09.910] recursive: 0 1589s [00:53:09.910] length: 1 1589s [00:53:09.910] elements: ‘...’ 1589s [00:53:09.910] length: 0 (resolved future 1) 1589s [00:53:09.911] resolve() on list ... DONE 1589s [00:53:09.911] - '...' content: [n=1] ‘y’ 1589s [00:53:09.911] List of 1 1589s [00:53:09.911] $ ...:List of 1 1589s [00:53:09.911] ..$ y: num [1:5] 2 4 6 8 10 1589s [00:53:09.911] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1589s [00:53:09.911] - attr(*, "where")=List of 1 1589s [00:53:09.911] ..$ ...: 1589s [00:53:09.911] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1589s [00:53:09.911] - attr(*, "resolved")= logi TRUE 1589s [00:53:09.911] - attr(*, "total_size")= num NA 1589s [00:53:09.916] - Getting '...' globals ... DONE 1589s [00:53:09.917] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1589s [00:53:09.917] List of 2 1589s [00:53:09.917] $ ...future.FUN:function (x, y) 1589s [00:53:09.917] $ ... :List of 1 1589s [00:53:09.917] ..$ y: num [1:5] 2 4 6 8 10 1589s [00:53:09.917] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1589s [00:53:09.917] - attr(*, "where")=List of 2 1589s [00:53:09.917] ..$ ...future.FUN: 1589s [00:53:09.917] ..$ ... : 1589s [00:53:09.917] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1589s [00:53:09.917] - attr(*, "resolved")= logi FALSE 1589s [00:53:09.917] - attr(*, "total_size")= num 4264 1589s [00:53:09.921] Packages to be attached in all futures: [n=0] 1589s [00:53:09.922] getGlobalsAndPackagesXApply() ... DONE 1589s [00:53:09.922] Number of futures (= number of chunks): 1 1589s [00:53:09.922] Launching 1 futures (chunks) ... 1589s [00:53:09.922] Chunk #1 of 1 ... 1589s [00:53:09.923] - Finding globals in 'X' for chunk #1 ... 1589s [00:53:09.923] getGlobalsAndPackages() ... 1589s [00:53:09.923] Searching for globals... 1589s [00:53:09.923] 1589s [00:53:09.923] Searching for globals ... DONE 1589s [00:53:09.924] - globals: [0] 1589s [00:53:09.924] getGlobalsAndPackages() ... DONE 1589s [00:53:09.924] + additional globals found: [n=0] 1589s [00:53:09.924] + additional namespaces needed: [n=0] 1589s [00:53:09.924] - Finding globals in 'X' for chunk #1 ... DONE 1589s [00:53:09.924] - seeds: 1589s [00:53:09.925] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1589s [00:53:09.925] getGlobalsAndPackages() ... 1589s [00:53:09.925] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1589s [00:53:09.925] Resolving globals: FALSE 1589s [00:53:09.926] Tweak future expression to call with '...' arguments ... 1589s [00:53:09.926] { 1589s [00:53:09.926] do.call(function(...) { 1589s [00:53:09.926] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1589s [00:53:09.926] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1589s [00:53:09.926] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1589s [00:53:09.926] on.exit(options(oopts), add = TRUE) 1589s [00:53:09.926] } 1589s [00:53:09.926] { 1589s [00:53:09.926] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1589s [00:53:09.926] ...future.X_jj <- ...future.elements_ii[[jj]] 1589s [00:53:09.926] ...future.FUN(...future.X_jj, ...) 1589s [00:53:09.926] }) 1589s [00:53:09.926] } 1589s [00:53:09.926] }, args = future.call.arguments) 1589s [00:53:09.926] } 1589s [00:53:09.926] Tweak future expression to call with '...' arguments ... DONE 1589s [00:53:09.927] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1589s [00:53:09.927] 1589s [00:53:09.927] getGlobalsAndPackages() ... DONE 1589s [00:53:09.928] run() for ‘Future’ ... 1589s [00:53:09.928] - state: ‘created’ 1589s [00:53:09.928] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1589s [00:53:09.931] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1589s [00:53:09.932] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1589s [00:53:09.932] - Field: ‘label’ 1589s [00:53:09.932] - Field: ‘local’ 1589s [00:53:09.932] - Field: ‘owner’ 1589s [00:53:09.933] - Field: ‘envir’ 1589s [00:53:09.933] - Field: ‘packages’ 1589s [00:53:09.933] - Field: ‘gc’ 1589s [00:53:09.933] - Field: ‘conditions’ 1589s [00:53:09.933] - Field: ‘expr’ 1589s [00:53:09.933] - Field: ‘uuid’ 1589s [00:53:09.933] - Field: ‘seed’ 1589s [00:53:09.934] - Field: ‘version’ 1589s [00:53:09.934] - Field: ‘result’ 1589s [00:53:09.934] - Field: ‘asynchronous’ 1589s [00:53:09.934] - Field: ‘calls’ 1589s [00:53:09.934] - Field: ‘globals’ 1589s [00:53:09.934] - Field: ‘stdout’ 1589s [00:53:09.934] - Field: ‘earlySignal’ 1589s [00:53:09.934] - Field: ‘lazy’ 1589s [00:53:09.934] - Field: ‘state’ 1589s [00:53:09.935] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1589s [00:53:09.935] - Launch lazy future ... 1589s [00:53:09.935] Packages needed by the future expression (n = 0): 1589s [00:53:09.935] Packages needed by future strategies (n = 0): 1589s [00:53:09.936] { 1589s [00:53:09.936] { 1589s [00:53:09.936] { 1589s [00:53:09.936] ...future.startTime <- base::Sys.time() 1589s [00:53:09.936] { 1589s [00:53:09.936] { 1589s [00:53:09.936] { 1589s [00:53:09.936] base::local({ 1589s [00:53:09.936] has_future <- base::requireNamespace("future", 1589s [00:53:09.936] quietly = TRUE) 1589s [00:53:09.936] if (has_future) { 1589s [00:53:09.936] ns <- base::getNamespace("future") 1589s [00:53:09.936] version <- ns[[".package"]][["version"]] 1589s [00:53:09.936] if (is.null(version)) 1589s [00:53:09.936] version <- utils::packageVersion("future") 1589s [00:53:09.936] } 1589s [00:53:09.936] else { 1589s [00:53:09.936] version <- NULL 1589s [00:53:09.936] } 1589s [00:53:09.936] if (!has_future || version < "1.8.0") { 1589s [00:53:09.936] info <- base::c(r_version = base::gsub("R version ", 1589s [00:53:09.936] "", base::R.version$version.string), 1589s [00:53:09.936] platform = base::sprintf("%s (%s-bit)", 1589s [00:53:09.936] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1589s [00:53:09.936] os = base::paste(base::Sys.info()[base::c("sysname", 1589s [00:53:09.936] "release", "version")], collapse = " "), 1589s [00:53:09.936] hostname = base::Sys.info()[["nodename"]]) 1589s [00:53:09.936] info <- base::sprintf("%s: %s", base::names(info), 1589s [00:53:09.936] info) 1589s [00:53:09.936] info <- base::paste(info, collapse = "; ") 1589s [00:53:09.936] if (!has_future) { 1589s [00:53:09.936] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1589s [00:53:09.936] info) 1589s [00:53:09.936] } 1589s [00:53:09.936] else { 1589s [00:53:09.936] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1589s [00:53:09.936] info, version) 1589s [00:53:09.936] } 1589s [00:53:09.936] base::stop(msg) 1589s [00:53:09.936] } 1589s [00:53:09.936] }) 1589s [00:53:09.936] } 1589s [00:53:09.936] options(future.plan = NULL) 1589s [00:53:09.936] Sys.unsetenv("R_FUTURE_PLAN") 1589s [00:53:09.936] future::plan("default", .cleanup = FALSE, .init = FALSE) 1589s [00:53:09.936] } 1589s [00:53:09.936] ...future.workdir <- getwd() 1589s [00:53:09.936] } 1589s [00:53:09.936] ...future.oldOptions <- base::as.list(base::.Options) 1589s [00:53:09.936] ...future.oldEnvVars <- base::Sys.getenv() 1589s [00:53:09.936] } 1589s [00:53:09.936] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1589s [00:53:09.936] future.globals.maxSize = NULL, future.globals.method = NULL, 1589s [00:53:09.936] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1589s [00:53:09.936] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1589s [00:53:09.936] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1589s [00:53:09.936] future.stdout.windows.reencode = NULL, width = 80L) 1589s [00:53:09.936] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1589s [00:53:09.936] base::names(...future.oldOptions)) 1589s [00:53:09.936] } 1589s [00:53:09.936] if (FALSE) { 1589s [00:53:09.936] } 1589s [00:53:09.936] else { 1589s [00:53:09.936] if (TRUE) { 1589s [00:53:09.936] ...future.stdout <- base::rawConnection(base::raw(0L), 1589s [00:53:09.936] open = "w") 1589s [00:53:09.936] } 1589s [00:53:09.936] else { 1589s [00:53:09.936] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1589s [00:53:09.936] windows = "NUL", "/dev/null"), open = "w") 1589s [00:53:09.936] } 1589s [00:53:09.936] base::sink(...future.stdout, type = "output", split = FALSE) 1589s [00:53:09.936] base::on.exit(if (!base::is.null(...future.stdout)) { 1589s [00:53:09.936] base::sink(type = "output", split = FALSE) 1589s [00:53:09.936] base::close(...future.stdout) 1589s [00:53:09.936] }, add = TRUE) 1589s [00:53:09.936] } 1589s [00:53:09.936] ...future.frame <- base::sys.nframe() 1589s [00:53:09.936] ...future.conditions <- base::list() 1589s [00:53:09.936] ...future.rng <- base::globalenv()$.Random.seed 1589s [00:53:09.936] if (FALSE) { 1589s [00:53:09.936] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1589s [00:53:09.936] "...future.value", "...future.globalenv.names", ".Random.seed") 1589s [00:53:09.936] } 1589s [00:53:09.936] ...future.result <- base::tryCatch({ 1589s [00:53:09.936] base::withCallingHandlers({ 1589s [00:53:09.936] ...future.value <- base::withVisible(base::local({ 1589s [00:53:09.936] do.call(function(...) { 1589s [00:53:09.936] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1589s [00:53:09.936] if (!identical(...future.globals.maxSize.org, 1589s [00:53:09.936] ...future.globals.maxSize)) { 1589s [00:53:09.936] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1589s [00:53:09.936] on.exit(options(oopts), add = TRUE) 1589s [00:53:09.936] } 1589s [00:53:09.936] { 1589s [00:53:09.936] lapply(seq_along(...future.elements_ii), 1589s [00:53:09.936] FUN = function(jj) { 1589s [00:53:09.936] ...future.X_jj <- ...future.elements_ii[[jj]] 1589s [00:53:09.936] ...future.FUN(...future.X_jj, ...) 1589s [00:53:09.936] }) 1589s [00:53:09.936] } 1589s [00:53:09.936] }, args = future.call.arguments) 1589s [00:53:09.936] })) 1589s [00:53:09.936] future::FutureResult(value = ...future.value$value, 1589s [00:53:09.936] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1589s [00:53:09.936] ...future.rng), globalenv = if (FALSE) 1589s [00:53:09.936] list(added = base::setdiff(base::names(base::.GlobalEnv), 1589s [00:53:09.936] ...future.globalenv.names)) 1589s [00:53:09.936] else NULL, started = ...future.startTime, version = "1.8") 1589s [00:53:09.936] }, condition = base::local({ 1589s [00:53:09.936] c <- base::c 1589s [00:53:09.936] inherits <- base::inherits 1589s [00:53:09.936] invokeRestart <- base::invokeRestart 1589s [00:53:09.936] length <- base::length 1589s [00:53:09.936] list <- base::list 1589s [00:53:09.936] seq.int <- base::seq.int 1589s [00:53:09.936] signalCondition <- base::signalCondition 1589s [00:53:09.936] sys.calls <- base::sys.calls 1589s [00:53:09.936] `[[` <- base::`[[` 1589s [00:53:09.936] `+` <- base::`+` 1589s [00:53:09.936] `<<-` <- base::`<<-` 1589s [00:53:09.936] sysCalls <- function(calls = sys.calls(), from = 1L) { 1589s [00:53:09.936] calls[seq.int(from = from + 12L, to = length(calls) - 1589s [00:53:09.936] 3L)] 1589s [00:53:09.936] } 1589s [00:53:09.936] function(cond) { 1589s [00:53:09.936] is_error <- inherits(cond, "error") 1589s [00:53:09.936] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1589s [00:53:09.936] NULL) 1589s [00:53:09.936] if (is_error) { 1589s [00:53:09.936] sessionInformation <- function() { 1589s [00:53:09.936] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1589s [00:53:09.936] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1589s [00:53:09.936] search = base::search(), system = base::Sys.info()) 1589s [00:53:09.936] } 1589s [00:53:09.936] ...future.conditions[[length(...future.conditions) + 1589s [00:53:09.936] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1589s [00:53:09.936] cond$call), session = sessionInformation(), 1589s [00:53:09.936] timestamp = base::Sys.time(), signaled = 0L) 1589s [00:53:09.936] signalCondition(cond) 1589s [00:53:09.936] } 1589s [00:53:09.936] else if (!ignore && TRUE && inherits(cond, c("condition", 1589s [00:53:09.936] "immediateCondition"))) { 1589s [00:53:09.936] signal <- TRUE && inherits(cond, "immediateCondition") 1589s [00:53:09.936] ...future.conditions[[length(...future.conditions) + 1589s [00:53:09.936] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1589s [00:53:09.936] if (TRUE && !signal) { 1589s [00:53:09.936] muffleCondition <- function (cond, pattern = "^muffle") 1589s [00:53:09.936] { 1589s [00:53:09.936] inherits <- base::inherits 1589s [00:53:09.936] invokeRestart <- base::invokeRestart 1589s [00:53:09.936] is.null <- base::is.null 1589s [00:53:09.936] muffled <- FALSE 1589s [00:53:09.936] if (inherits(cond, "message")) { 1589s [00:53:09.936] muffled <- grepl(pattern, "muffleMessage") 1589s [00:53:09.936] if (muffled) 1589s [00:53:09.936] invokeRestart("muffleMessage") 1589s [00:53:09.936] } 1589s [00:53:09.936] else if (inherits(cond, "warning")) { 1589s [00:53:09.936] muffled <- grepl(pattern, "muffleWarning") 1589s [00:53:09.936] if (muffled) 1589s [00:53:09.936] invokeRestart("muffleWarning") 1589s [00:53:09.936] } 1589s [00:53:09.936] else if (inherits(cond, "condition")) { 1589s [00:53:09.936] if (!is.null(pattern)) { 1589s [00:53:09.936] computeRestarts <- base::computeRestarts 1589s [00:53:09.936] grepl <- base::grepl 1589s [00:53:09.936] restarts <- computeRestarts(cond) 1589s [00:53:09.936] for (restart in restarts) { 1589s [00:53:09.936] name <- restart$name 1589s [00:53:09.936] if (is.null(name)) 1589s [00:53:09.936] next 1589s [00:53:09.936] if (!grepl(pattern, name)) 1589s [00:53:09.936] next 1589s [00:53:09.936] invokeRestart(restart) 1589s [00:53:09.936] muffled <- TRUE 1589s [00:53:09.936] break 1589s [00:53:09.936] } 1589s [00:53:09.936] } 1589s [00:53:09.936] } 1589s [00:53:09.936] invisible(muffled) 1589s [00:53:09.936] } 1589s [00:53:09.936] muffleCondition(cond, pattern = "^muffle") 1589s [00:53:09.936] } 1589s [00:53:09.936] } 1589s [00:53:09.936] else { 1589s [00:53:09.936] if (TRUE) { 1589s [00:53:09.936] muffleCondition <- function (cond, pattern = "^muffle") 1589s [00:53:09.936] { 1589s [00:53:09.936] inherits <- base::inherits 1589s [00:53:09.936] invokeRestart <- base::invokeRestart 1589s [00:53:09.936] is.null <- base::is.null 1589s [00:53:09.936] muffled <- FALSE 1589s [00:53:09.936] if (inherits(cond, "message")) { 1589s [00:53:09.936] muffled <- grepl(pattern, "muffleMessage") 1589s [00:53:09.936] if (muffled) 1589s [00:53:09.936] invokeRestart("muffleMessage") 1589s [00:53:09.936] } 1589s [00:53:09.936] else if (inherits(cond, "warning")) { 1589s [00:53:09.936] muffled <- grepl(pattern, "muffleWarning") 1589s [00:53:09.936] if (muffled) 1589s [00:53:09.936] invokeRestart("muffleWarning") 1589s [00:53:09.936] } 1589s [00:53:09.936] else if (inherits(cond, "condition")) { 1589s [00:53:09.936] if (!is.null(pattern)) { 1589s [00:53:09.936] computeRestarts <- base::computeRestarts 1589s [00:53:09.936] grepl <- base::grepl 1589s [00:53:09.936] restarts <- computeRestarts(cond) 1589s [00:53:09.936] for (restart in restarts) { 1589s [00:53:09.936] name <- restart$name 1589s [00:53:09.936] if (is.null(name)) 1589s [00:53:09.936] next 1589s [00:53:09.936] if (!grepl(pattern, name)) 1589s [00:53:09.936] next 1589s [00:53:09.936] invokeRestart(restart) 1589s [00:53:09.936] muffled <- TRUE 1589s [00:53:09.936] break 1589s [00:53:09.936] } 1589s [00:53:09.936] } 1589s [00:53:09.936] } 1589s [00:53:09.936] invisible(muffled) 1589s [00:53:09.936] } 1589s [00:53:09.936] muffleCondition(cond, pattern = "^muffle") 1589s [00:53:09.936] } 1589s [00:53:09.936] } 1589s [00:53:09.936] } 1589s [00:53:09.936] })) 1589s [00:53:09.936] }, error = function(ex) { 1589s [00:53:09.936] base::structure(base::list(value = NULL, visible = NULL, 1589s [00:53:09.936] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1589s [00:53:09.936] ...future.rng), started = ...future.startTime, 1589s [00:53:09.936] finished = Sys.time(), session_uuid = NA_character_, 1589s [00:53:09.936] version = "1.8"), class = "FutureResult") 1589s [00:53:09.936] }, finally = { 1589s [00:53:09.936] if (!identical(...future.workdir, getwd())) 1589s [00:53:09.936] setwd(...future.workdir) 1589s [00:53:09.936] { 1589s [00:53:09.936] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1589s [00:53:09.936] ...future.oldOptions$nwarnings <- NULL 1589s [00:53:09.936] } 1589s [00:53:09.936] base::options(...future.oldOptions) 1589s [00:53:09.936] if (.Platform$OS.type == "windows") { 1589s [00:53:09.936] old_names <- names(...future.oldEnvVars) 1589s [00:53:09.936] envs <- base::Sys.getenv() 1589s [00:53:09.936] names <- names(envs) 1589s [00:53:09.936] common <- intersect(names, old_names) 1589s [00:53:09.936] added <- setdiff(names, old_names) 1589s [00:53:09.936] removed <- setdiff(old_names, names) 1589s [00:53:09.936] changed <- common[...future.oldEnvVars[common] != 1589s [00:53:09.936] envs[common]] 1589s [00:53:09.936] NAMES <- toupper(changed) 1589s [00:53:09.936] args <- list() 1589s [00:53:09.936] for (kk in seq_along(NAMES)) { 1589s [00:53:09.936] name <- changed[[kk]] 1589s [00:53:09.936] NAME <- NAMES[[kk]] 1589s [00:53:09.936] if (name != NAME && is.element(NAME, old_names)) 1589s [00:53:09.936] next 1589s [00:53:09.936] args[[name]] <- ...future.oldEnvVars[[name]] 1589s [00:53:09.936] } 1589s [00:53:09.936] NAMES <- toupper(added) 1589s [00:53:09.936] for (kk in seq_along(NAMES)) { 1589s [00:53:09.936] name <- added[[kk]] 1589s [00:53:09.936] NAME <- NAMES[[kk]] 1589s [00:53:09.936] if (name != NAME && is.element(NAME, old_names)) 1589s [00:53:09.936] next 1589s [00:53:09.936] args[[name]] <- "" 1589s [00:53:09.936] } 1589s [00:53:09.936] NAMES <- toupper(removed) 1589s [00:53:09.936] for (kk in seq_along(NAMES)) { 1589s [00:53:09.936] name <- removed[[kk]] 1589s [00:53:09.936] NAME <- NAMES[[kk]] 1589s [00:53:09.936] if (name != NAME && is.element(NAME, old_names)) 1589s [00:53:09.936] next 1589s [00:53:09.936] args[[name]] <- ...future.oldEnvVars[[name]] 1589s [00:53:09.936] } 1589s [00:53:09.936] if (length(args) > 0) 1589s [00:53:09.936] base::do.call(base::Sys.setenv, args = args) 1589s [00:53:09.936] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1589s [00:53:09.936] } 1589s [00:53:09.936] else { 1589s [00:53:09.936] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1589s [00:53:09.936] } 1589s [00:53:09.936] { 1589s [00:53:09.936] if (base::length(...future.futureOptionsAdded) > 1589s [00:53:09.936] 0L) { 1589s [00:53:09.936] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1589s [00:53:09.936] base::names(opts) <- ...future.futureOptionsAdded 1589s [00:53:09.936] base::options(opts) 1589s [00:53:09.936] } 1589s [00:53:09.936] { 1589s [00:53:09.936] { 1589s [00:53:09.936] NULL 1589s [00:53:09.936] RNGkind("Mersenne-Twister") 1589s [00:53:09.936] base::rm(list = ".Random.seed", envir = base::globalenv(), 1589s [00:53:09.936] inherits = FALSE) 1589s [00:53:09.936] } 1589s [00:53:09.936] options(future.plan = NULL) 1589s [00:53:09.936] if (is.na(NA_character_)) 1589s [00:53:09.936] Sys.unsetenv("R_FUTURE_PLAN") 1589s [00:53:09.936] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1589s [00:53:09.936] future::plan(list(function (..., workers = availableCores(), 1589s [00:53:09.936] lazy = FALSE, rscript_libs = .libPaths(), 1589s [00:53:09.936] envir = parent.frame()) 1589s [00:53:09.936] { 1589s [00:53:09.936] if (is.function(workers)) 1589s [00:53:09.936] workers <- workers() 1589s [00:53:09.936] workers <- structure(as.integer(workers), 1589s [00:53:09.936] class = class(workers)) 1589s [00:53:09.936] stop_if_not(length(workers) == 1, is.finite(workers), 1589s [00:53:09.936] workers >= 1) 1589s [00:53:09.936] if (workers == 1L && !inherits(workers, "AsIs")) { 1589s [00:53:09.936] return(sequential(..., lazy = TRUE, envir = envir)) 1589s [00:53:09.936] } 1589s [00:53:09.936] future <- MultisessionFuture(..., workers = workers, 1589s [00:53:09.936] lazy = lazy, rscript_libs = rscript_libs, 1589s [00:53:09.936] envir = envir) 1589s [00:53:09.936] if (!future$lazy) 1589s [00:53:09.936] future <- run(future) 1589s [00:53:09.936] invisible(future) 1589s [00:53:09.936] }), .cleanup = FALSE, .init = FALSE) 1589s [00:53:09.936] } 1589s [00:53:09.936] } 1589s [00:53:09.936] } 1589s [00:53:09.936] }) 1589s [00:53:09.936] if (TRUE) { 1589s [00:53:09.936] base::sink(type = "output", split = FALSE) 1589s [00:53:09.936] if (TRUE) { 1589s [00:53:09.936] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1589s [00:53:09.936] } 1589s [00:53:09.936] else { 1589s [00:53:09.936] ...future.result["stdout"] <- base::list(NULL) 1589s [00:53:09.936] } 1589s [00:53:09.936] base::close(...future.stdout) 1589s [00:53:09.936] ...future.stdout <- NULL 1589s [00:53:09.936] } 1589s [00:53:09.936] ...future.result$conditions <- ...future.conditions 1589s [00:53:09.936] ...future.result$finished <- base::Sys.time() 1589s [00:53:09.936] ...future.result 1589s [00:53:09.936] } 1589s [00:53:09.938] assign_globals() ... 1589s [00:53:09.939] List of 5 1589s [00:53:09.939] $ ...future.FUN :function (x, y) 1589s [00:53:09.939] $ future.call.arguments :List of 1 1589s [00:53:09.939] ..$ y: num [1:5] 2 4 6 8 10 1589s [00:53:09.939] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1589s [00:53:09.939] $ ...future.elements_ii :List of 4 1589s [00:53:09.939] ..$ A: num 50 1589s [00:53:09.939] ..$ B: num 60 1589s [00:53:09.939] ..$ C: num 70 1589s [00:53:09.939] ..$ D: num 80 1589s [00:53:09.939] $ ...future.seeds_ii : NULL 1589s [00:53:09.939] $ ...future.globals.maxSize: NULL 1589s [00:53:09.939] - attr(*, "where")=List of 5 1589s [00:53:09.939] ..$ ...future.FUN : 1589s [00:53:09.939] ..$ future.call.arguments : 1589s [00:53:09.939] ..$ ...future.elements_ii : 1589s [00:53:09.939] ..$ ...future.seeds_ii : 1589s [00:53:09.939] ..$ ...future.globals.maxSize: 1589s [00:53:09.939] - attr(*, "resolved")= logi FALSE 1589s [00:53:09.939] - attr(*, "total_size")= num 4264 1589s [00:53:09.939] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1589s [00:53:09.939] - attr(*, "already-done")= logi TRUE 1589s [00:53:09.949] - reassign environment for ‘...future.FUN’ 1589s [00:53:09.949] - copied ‘...future.FUN’ to environment 1589s [00:53:09.949] - copied ‘future.call.arguments’ to environment 1589s [00:53:09.949] - copied ‘...future.elements_ii’ to environment 1589s [00:53:09.950] - copied ‘...future.seeds_ii’ to environment 1589s [00:53:09.950] - copied ‘...future.globals.maxSize’ to environment 1589s [00:53:09.950] assign_globals() ... done 1589s [00:53:09.951] plan(): Setting new future strategy stack: 1589s [00:53:09.951] List of future strategies: 1589s [00:53:09.951] 1. sequential: 1589s [00:53:09.951] - args: function (..., envir = parent.frame()) 1589s [00:53:09.951] - tweaked: FALSE 1589s [00:53:09.951] - call: NULL 1589s [00:53:09.951] plan(): nbrOfWorkers() = 1 1589s [00:53:09.953] plan(): Setting new future strategy stack: 1589s [00:53:09.953] List of future strategies: 1589s [00:53:09.953] 1. multisession: 1589s [00:53:09.953] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1589s [00:53:09.953] - tweaked: FALSE 1589s [00:53:09.953] - call: plan(strategy) 1589s [00:53:09.957] plan(): nbrOfWorkers() = 1 1589s [00:53:09.957] SequentialFuture started (and completed) 1589s [00:53:09.958] - Launch lazy future ... done 1589s [00:53:09.958] run() for ‘SequentialFuture’ ... done 1589s [00:53:09.958] Created future: 1589s [00:53:09.958] SequentialFuture: 1589s [00:53:09.958] Label: ‘future_sapply-1’ 1589s [00:53:09.958] Expression: 1589s [00:53:09.958] { 1589s [00:53:09.958] do.call(function(...) { 1589s [00:53:09.958] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1589s [00:53:09.958] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1589s [00:53:09.958] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1589s [00:53:09.958] on.exit(options(oopts), add = TRUE) 1589s [00:53:09.958] } 1589s [00:53:09.958] { 1589s [00:53:09.958] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1589s [00:53:09.958] ...future.X_jj <- ...future.elements_ii[[jj]] 1589s [00:53:09.958] ...future.FUN(...future.X_jj, ...) 1589s [00:53:09.958] }) 1589s [00:53:09.958] } 1589s [00:53:09.958] }, args = future.call.arguments) 1589s [00:53:09.958] } 1589s [00:53:09.958] Lazy evaluation: FALSE 1589s [00:53:09.958] Asynchronous evaluation: FALSE 1589s [00:53:09.958] Local evaluation: TRUE 1589s [00:53:09.958] Environment: R_GlobalEnv 1589s [00:53:09.958] Capture standard output: TRUE 1589s [00:53:09.958] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1589s [00:53:09.958] Globals: 5 objects totaling 4.38 KiB (function ‘...future.FUN’ of 4.07 KiB, DotDotDotList ‘future.call.arguments’ of 96 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1589s [00:53:09.958] Packages: 1589s [00:53:09.958] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1589s [00:53:09.958] Resolved: TRUE 1589s [00:53:09.958] Value: 1.34 KiB of class ‘list’ 1589s [00:53:09.958] Early signaling: FALSE 1589s [00:53:09.958] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1589s [00:53:09.958] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1589s [00:53:09.960] Chunk #1 of 1 ... DONE 1589s [00:53:09.960] Launching 1 futures (chunks) ... DONE 1589s [00:53:09.960] Resolving 1 futures (chunks) ... 1589s [00:53:09.961] resolve() on list ... 1589s [00:53:09.961] recursive: 0 1589s [00:53:09.961] length: 1 1589s [00:53:09.961] 1589s [00:53:09.962] resolved() for ‘SequentialFuture’ ... 1589s [00:53:09.962] - state: ‘finished’ 1589s [00:53:09.962] - run: TRUE 1589s [00:53:09.962] - result: ‘FutureResult’ 1589s [00:53:09.962] resolved() for ‘SequentialFuture’ ... done 1589s [00:53:09.962] Future #1 1589s [00:53:09.963] signalConditionsASAP(SequentialFuture, pos=1) ... 1589s [00:53:09.963] - nx: 1 1589s [00:53:09.963] - relay: TRUE 1589s [00:53:09.963] - stdout: TRUE 1589s [00:53:09.963] - signal: TRUE 1589s [00:53:09.964] - resignal: FALSE 1589s [00:53:09.964] - force: TRUE 1589s [00:53:09.964] - relayed: [n=1] FALSE 1589s [00:53:09.964] - queued futures: [n=1] FALSE 1589s [00:53:09.964] - until=1 1589s [00:53:09.965] - relaying element #1 1589s [00:53:09.965] - relayed: [n=1] TRUE 1589s [00:53:09.965] - queued futures: [n=1] TRUE 1589s [00:53:09.965] signalConditionsASAP(SequentialFuture, pos=1) ... done 1589s [00:53:09.966] length: 0 (resolved future 1) 1589s [00:53:09.966] Relaying remaining futures 1589s [00:53:09.966] signalConditionsASAP(NULL, pos=0) ... 1589s [00:53:09.966] - nx: 1 1589s [00:53:09.966] - relay: TRUE 1589s [00:53:09.966] - stdout: TRUE 1590s [00:53:09.966] - signal: TRUE 1590s [00:53:09.967] - resignal: FALSE 1590s [00:53:09.967] - force: TRUE 1590s [00:53:09.967] - relayed: [n=1] TRUE 1590s [00:53:09.967] - queued futures: [n=1] TRUE 1590s - flush all 1590s [00:53:09.967] - relayed: [n=1] TRUE 1590s [00:53:09.967] - queued futures: [n=1] TRUE 1590s [00:53:09.968] signalConditionsASAP(NULL, pos=0) ... done 1590s [00:53:09.968] resolve() on list ... DONE 1590s [00:53:09.968] - Number of value chunks collected: 1 1590s [00:53:09.968] Resolving 1 futures (chunks) ... DONE 1590s [00:53:09.968] Reducing values from 1 chunks ... 1590s [00:53:09.968] - Number of values collected after concatenation: 4 1590s [00:53:09.969] - Number of values expected: 4 1590s [00:53:09.969] Reducing values from 1 chunks ... DONE 1590s [00:53:09.969] future_lapply() ... DONE 1590s [00:53:09.969] future_lapply() ... 1590s [00:53:09.974] Number of chunks: 1 1590s [00:53:09.975] getGlobalsAndPackagesXApply() ... 1590s [00:53:09.975] - future.globals: TRUE 1590s [00:53:09.975] getGlobalsAndPackages() ... 1590s [00:53:09.975] Searching for globals... 1590s [00:53:09.981] - globals found: [18] ‘FUN’, ‘{’, ‘<-’, ‘x_FUN’, ‘if’, ‘!=’, ‘length’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘all’, ‘==’, ‘dim’, ‘%in%’, ‘typeof’, ‘valid_types’, ‘outer’, ‘rep’ 1590s [00:53:09.981] Searching for globals ... DONE 1590s [00:53:09.981] Resolving globals: FALSE 1590s [00:53:09.985] The total size of the 7 globals is 96.20 KiB (98504 bytes) 1590s [00:53:09.986] The total size of the 7 globals exported for future expression (‘FUN(y = c(2, 4, 6, 8, 10))’) is 96.20 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘stop_if_not’ (44.12 KiB of class ‘function’), ‘stopf’ (26.43 KiB of class ‘function’) and ‘FUN’ (21.22 KiB of class ‘function’) 1590s [00:53:09.986] - globals: [7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1590s [00:53:09.987] - packages: [1] ‘future.apply’ 1590s [00:53:09.987] getGlobalsAndPackages() ... DONE 1590s [00:53:09.987] - globals found/used: [n=7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1590s [00:53:09.988] - needed namespaces: [n=1] ‘future.apply’ 1590s [00:53:09.988] Finding globals ... DONE 1590s [00:53:09.988] - use_args: TRUE 1590s [00:53:09.988] - Getting '...' globals ... 1590s [00:53:09.989] resolve() on list ... 1590s [00:53:09.989] recursive: 0 1590s [00:53:09.989] length: 1 1590s [00:53:09.989] elements: ‘...’ 1590s [00:53:09.990] length: 0 (resolved future 1) 1590s [00:53:09.990] resolve() on list ... DONE 1590s [00:53:09.990] - '...' content: [n=1] ‘y’ 1590s [00:53:09.990] List of 1 1590s [00:53:09.990] $ ...:List of 1 1590s [00:53:09.990] ..$ y: num [1:5] 2 4 6 8 10 1590s [00:53:09.990] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1590s [00:53:09.990] - attr(*, "where")=List of 1 1590s [00:53:09.990] ..$ ...: 1590s [00:53:09.990] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1590s [00:53:09.990] - attr(*, "resolved")= logi TRUE 1590s [00:53:09.990] - attr(*, "total_size")= num NA 1590s [00:53:09.995] - Getting '...' globals ... DONE 1590s [00:53:09.995] Globals to be used in all futures (chunks): [n=8] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’ 1590s [00:53:09.995] List of 8 1590s [00:53:09.995] $ ...future.FUN:function (x, ...) 1590s [00:53:09.995] $ x_FUN :function (x, y) 1590s [00:53:09.995] $ times : int 15 1590s [00:53:09.995] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1590s [00:53:09.995] $ stop_if_not :function (...) 1590s [00:53:09.995] $ dim : int [1:2] 3 5 1590s [00:53:09.995] $ valid_types : chr [1:3] "logical" "integer" "double" 1590s [00:53:09.995] $ ... :List of 1 1590s [00:53:09.995] ..$ y: num [1:5] 2 4 6 8 10 1590s [00:53:09.995] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1590s [00:53:09.995] - attr(*, "where")=List of 8 1590s [00:53:09.995] ..$ ...future.FUN: 1590s [00:53:09.995] ..$ x_FUN : 1590s [00:53:09.995] ..$ times : 1590s [00:53:09.995] ..$ stopf : 1590s [00:53:09.995] ..$ stop_if_not : 1590s [00:53:09.995] ..$ dim : 1590s [00:53:09.995] ..$ valid_types : 1590s [00:53:09.995] ..$ ... : 1590s [00:53:09.995] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1590s [00:53:09.995] - attr(*, "resolved")= logi FALSE 1590s [00:53:09.995] - attr(*, "total_size")= num 98600 1590s [00:53:10.006] Packages to be attached in all futures: [n=1] ‘future.apply’ 1590s [00:53:10.006] getGlobalsAndPackagesXApply() ... DONE 1590s [00:53:10.007] Number of futures (= number of chunks): 1 1590s [00:53:10.007] Launching 1 futures (chunks) ... 1590s [00:53:10.007] Chunk #1 of 1 ... 1590s [00:53:10.007] - Finding globals in 'X' for chunk #1 ... 1590s [00:53:10.007] getGlobalsAndPackages() ... 1590s [00:53:10.007] Searching for globals... 1590s [00:53:10.008] 1590s [00:53:10.008] Searching for globals ... DONE 1590s [00:53:10.008] - globals: [0] 1590s [00:53:10.009] getGlobalsAndPackages() ... DONE 1590s [00:53:10.009] + additional globals found: [n=0] 1590s [00:53:10.009] + additional namespaces needed: [n=0] 1590s [00:53:10.009] - Finding globals in 'X' for chunk #1 ... DONE 1590s [00:53:10.010] - seeds: 1590s [00:53:10.010] - All globals exported: [n=11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1590s [00:53:10.010] getGlobalsAndPackages() ... 1590s [00:53:10.010] - globals passed as-is: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1590s [00:53:10.010] Resolving globals: FALSE 1590s [00:53:10.011] Tweak future expression to call with '...' arguments ... 1590s [00:53:10.011] { 1590s [00:53:10.011] do.call(function(...) { 1590s [00:53:10.011] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1590s [00:53:10.011] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1590s [00:53:10.011] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1590s [00:53:10.011] on.exit(options(oopts), add = TRUE) 1590s [00:53:10.011] } 1590s [00:53:10.011] { 1590s [00:53:10.011] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1590s [00:53:10.011] ...future.X_jj <- ...future.elements_ii[[jj]] 1590s [00:53:10.011] ...future.FUN(...future.X_jj, ...) 1590s [00:53:10.011] }) 1590s [00:53:10.011] } 1590s [00:53:10.011] }, args = future.call.arguments) 1590s [00:53:10.011] } 1590s [00:53:10.011] Tweak future expression to call with '...' arguments ... DONE 1590s [00:53:10.012] - globals: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1590s [00:53:10.012] - packages: [1] ‘future.apply’ 1590s [00:53:10.013] getGlobalsAndPackages() ... DONE 1590s [00:53:10.013] run() for ‘Future’ ... 1590s [00:53:10.014] - state: ‘created’ 1590s [00:53:10.014] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1590s [00:53:10.019] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1590s [00:53:10.020] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1590s [00:53:10.020] - Field: ‘label’ 1590s [00:53:10.021] - Field: ‘local’ 1590s [00:53:10.025] - Field: ‘owner’ 1590s [00:53:10.025] - Field: ‘envir’ 1590s [00:53:10.025] - Field: ‘packages’ 1590s [00:53:10.026] - Field: ‘gc’ 1590s [00:53:10.026] - Field: ‘conditions’ 1590s [00:53:10.027] - Field: ‘expr’ 1590s [00:53:10.027] - Field: ‘uuid’ 1590s [00:53:10.027] - Field: ‘seed’ 1590s [00:53:10.027] - Field: ‘version’ 1590s [00:53:10.028] - Field: ‘result’ 1590s [00:53:10.028] - Field: ‘asynchronous’ 1590s [00:53:10.028] - Field: ‘calls’ 1590s [00:53:10.029] - Field: ‘globals’ 1590s [00:53:10.029] - Field: ‘stdout’ 1590s [00:53:10.029] - Field: ‘earlySignal’ 1590s [00:53:10.030] - Field: ‘lazy’ 1590s [00:53:10.030] - Field: ‘state’ 1590s [00:53:10.030] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1590s [00:53:10.030] - Launch lazy future ... 1590s [00:53:10.031] Packages needed by the future expression (n = 1): ‘future.apply’ 1590s [00:53:10.031] Packages needed by future strategies (n = 0): 1590s [00:53:10.032] { 1590s [00:53:10.032] { 1590s [00:53:10.032] { 1590s [00:53:10.032] ...future.startTime <- base::Sys.time() 1590s [00:53:10.032] { 1590s [00:53:10.032] { 1590s [00:53:10.032] { 1590s [00:53:10.032] { 1590s [00:53:10.032] base::local({ 1590s [00:53:10.032] has_future <- base::requireNamespace("future", 1590s [00:53:10.032] quietly = TRUE) 1590s [00:53:10.032] if (has_future) { 1590s [00:53:10.032] ns <- base::getNamespace("future") 1590s [00:53:10.032] version <- ns[[".package"]][["version"]] 1590s [00:53:10.032] if (is.null(version)) 1590s [00:53:10.032] version <- utils::packageVersion("future") 1590s [00:53:10.032] } 1590s [00:53:10.032] else { 1590s [00:53:10.032] version <- NULL 1590s [00:53:10.032] } 1590s [00:53:10.032] if (!has_future || version < "1.8.0") { 1590s [00:53:10.032] info <- base::c(r_version = base::gsub("R version ", 1590s [00:53:10.032] "", base::R.version$version.string), 1590s [00:53:10.032] platform = base::sprintf("%s (%s-bit)", 1590s [00:53:10.032] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1590s [00:53:10.032] os = base::paste(base::Sys.info()[base::c("sysname", 1590s [00:53:10.032] "release", "version")], collapse = " "), 1590s [00:53:10.032] hostname = base::Sys.info()[["nodename"]]) 1590s [00:53:10.032] info <- base::sprintf("%s: %s", base::names(info), 1590s [00:53:10.032] info) 1590s [00:53:10.032] info <- base::paste(info, collapse = "; ") 1590s [00:53:10.032] if (!has_future) { 1590s [00:53:10.032] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1590s [00:53:10.032] info) 1590s [00:53:10.032] } 1590s [00:53:10.032] else { 1590s [00:53:10.032] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1590s [00:53:10.032] info, version) 1590s [00:53:10.032] } 1590s [00:53:10.032] base::stop(msg) 1590s [00:53:10.032] } 1590s [00:53:10.032] }) 1590s [00:53:10.032] } 1590s [00:53:10.032] base::local({ 1590s [00:53:10.032] for (pkg in "future.apply") { 1590s [00:53:10.032] base::loadNamespace(pkg) 1590s [00:53:10.032] base::library(pkg, character.only = TRUE) 1590s [00:53:10.032] } 1590s [00:53:10.032] }) 1590s [00:53:10.032] } 1590s [00:53:10.032] options(future.plan = NULL) 1590s [00:53:10.032] Sys.unsetenv("R_FUTURE_PLAN") 1590s [00:53:10.032] future::plan("default", .cleanup = FALSE, .init = FALSE) 1590s [00:53:10.032] } 1590s [00:53:10.032] ...future.workdir <- getwd() 1590s [00:53:10.032] } 1590s [00:53:10.032] ...future.oldOptions <- base::as.list(base::.Options) 1590s [00:53:10.032] ...future.oldEnvVars <- base::Sys.getenv() 1590s [00:53:10.032] } 1590s [00:53:10.032] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1590s [00:53:10.032] future.globals.maxSize = NULL, future.globals.method = NULL, 1590s [00:53:10.032] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1590s [00:53:10.032] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1590s [00:53:10.032] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1590s [00:53:10.032] future.stdout.windows.reencode = NULL, width = 80L) 1590s [00:53:10.032] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1590s [00:53:10.032] base::names(...future.oldOptions)) 1590s [00:53:10.032] } 1590s [00:53:10.032] if (FALSE) { 1590s [00:53:10.032] } 1590s [00:53:10.032] else { 1590s [00:53:10.032] if (TRUE) { 1590s [00:53:10.032] ...future.stdout <- base::rawConnection(base::raw(0L), 1590s [00:53:10.032] open = "w") 1590s [00:53:10.032] } 1590s [00:53:10.032] else { 1590s [00:53:10.032] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1590s [00:53:10.032] windows = "NUL", "/dev/null"), open = "w") 1590s [00:53:10.032] } 1590s [00:53:10.032] base::sink(...future.stdout, type = "output", split = FALSE) 1590s [00:53:10.032] base::on.exit(if (!base::is.null(...future.stdout)) { 1590s [00:53:10.032] base::sink(type = "output", split = FALSE) 1590s [00:53:10.032] base::close(...future.stdout) 1590s [00:53:10.032] }, add = TRUE) 1590s [00:53:10.032] } 1590s [00:53:10.032] ...future.frame <- base::sys.nframe() 1590s [00:53:10.032] ...future.conditions <- base::list() 1590s [00:53:10.032] ...future.rng <- base::globalenv()$.Random.seed 1590s [00:53:10.032] if (FALSE) { 1590s [00:53:10.032] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1590s [00:53:10.032] "...future.value", "...future.globalenv.names", ".Random.seed") 1590s [00:53:10.032] } 1590s [00:53:10.032] ...future.result <- base::tryCatch({ 1590s [00:53:10.032] base::withCallingHandlers({ 1590s [00:53:10.032] ...future.value <- base::withVisible(base::local({ 1590s [00:53:10.032] do.call(function(...) { 1590s [00:53:10.032] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1590s [00:53:10.032] if (!identical(...future.globals.maxSize.org, 1590s [00:53:10.032] ...future.globals.maxSize)) { 1590s [00:53:10.032] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1590s [00:53:10.032] on.exit(options(oopts), add = TRUE) 1590s [00:53:10.032] } 1590s [00:53:10.032] { 1590s [00:53:10.032] lapply(seq_along(...future.elements_ii), 1590s [00:53:10.032] FUN = function(jj) { 1590s [00:53:10.032] ...future.X_jj <- ...future.elements_ii[[jj]] 1590s [00:53:10.032] ...future.FUN(...future.X_jj, ...) 1590s [00:53:10.032] }) 1590s [00:53:10.032] } 1590s [00:53:10.032] }, args = future.call.arguments) 1590s [00:53:10.032] })) 1590s [00:53:10.032] future::FutureResult(value = ...future.value$value, 1590s [00:53:10.032] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1590s [00:53:10.032] ...future.rng), globalenv = if (FALSE) 1590s [00:53:10.032] list(added = base::setdiff(base::names(base::.GlobalEnv), 1590s [00:53:10.032] ...future.globalenv.names)) 1590s [00:53:10.032] else NULL, started = ...future.startTime, version = "1.8") 1590s [00:53:10.032] }, condition = base::local({ 1590s [00:53:10.032] c <- base::c 1590s [00:53:10.032] inherits <- base::inherits 1590s [00:53:10.032] invokeRestart <- base::invokeRestart 1590s [00:53:10.032] length <- base::length 1590s [00:53:10.032] list <- base::list 1590s [00:53:10.032] seq.int <- base::seq.int 1590s [00:53:10.032] signalCondition <- base::signalCondition 1590s [00:53:10.032] sys.calls <- base::sys.calls 1590s [00:53:10.032] `[[` <- base::`[[` 1590s [00:53:10.032] `+` <- base::`+` 1590s [00:53:10.032] `<<-` <- base::`<<-` 1590s [00:53:10.032] sysCalls <- function(calls = sys.calls(), from = 1L) { 1590s [00:53:10.032] calls[seq.int(from = from + 12L, to = length(calls) - 1590s [00:53:10.032] 3L)] 1590s [00:53:10.032] } 1590s [00:53:10.032] function(cond) { 1590s [00:53:10.032] is_error <- inherits(cond, "error") 1590s [00:53:10.032] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1590s [00:53:10.032] NULL) 1590s [00:53:10.032] if (is_error) { 1590s [00:53:10.032] sessionInformation <- function() { 1590s [00:53:10.032] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1590s [00:53:10.032] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1590s [00:53:10.032] search = base::search(), system = base::Sys.info()) 1590s [00:53:10.032] } 1590s [00:53:10.032] ...future.conditions[[length(...future.conditions) + 1590s [00:53:10.032] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1590s [00:53:10.032] cond$call), session = sessionInformation(), 1590s [00:53:10.032] timestamp = base::Sys.time(), signaled = 0L) 1590s [00:53:10.032] signalCondition(cond) 1590s [00:53:10.032] } 1590s [00:53:10.032] else if (!ignore && TRUE && inherits(cond, c("condition", 1590s [00:53:10.032] "immediateCondition"))) { 1590s [00:53:10.032] signal <- TRUE && inherits(cond, "immediateCondition") 1590s [00:53:10.032] ...future.conditions[[length(...future.conditions) + 1590s [00:53:10.032] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1590s [00:53:10.032] if (TRUE && !signal) { 1590s [00:53:10.032] muffleCondition <- function (cond, pattern = "^muffle") 1590s [00:53:10.032] { 1590s [00:53:10.032] inherits <- base::inherits 1590s [00:53:10.032] invokeRestart <- base::invokeRestart 1590s [00:53:10.032] is.null <- base::is.null 1590s [00:53:10.032] muffled <- FALSE 1590s [00:53:10.032] if (inherits(cond, "message")) { 1590s [00:53:10.032] muffled <- grepl(pattern, "muffleMessage") 1590s [00:53:10.032] if (muffled) 1590s [00:53:10.032] invokeRestart("muffleMessage") 1590s [00:53:10.032] } 1590s [00:53:10.032] else if (inherits(cond, "warning")) { 1590s [00:53:10.032] muffled <- grepl(pattern, "muffleWarning") 1590s [00:53:10.032] if (muffled) 1590s [00:53:10.032] invokeRestart("muffleWarning") 1590s [00:53:10.032] } 1590s [00:53:10.032] else if (inherits(cond, "condition")) { 1590s [00:53:10.032] if (!is.null(pattern)) { 1590s [00:53:10.032] computeRestarts <- base::computeRestarts 1590s [00:53:10.032] grepl <- base::grepl 1590s [00:53:10.032] restarts <- computeRestarts(cond) 1590s [00:53:10.032] for (restart in restarts) { 1590s [00:53:10.032] name <- restart$name 1590s [00:53:10.032] if (is.null(name)) 1590s [00:53:10.032] next 1590s [00:53:10.032] if (!grepl(pattern, name)) 1590s [00:53:10.032] next 1590s [00:53:10.032] invokeRestart(restart) 1590s [00:53:10.032] muffled <- TRUE 1590s [00:53:10.032] break 1590s [00:53:10.032] } 1590s [00:53:10.032] } 1590s [00:53:10.032] } 1590s [00:53:10.032] invisible(muffled) 1590s [00:53:10.032] } 1590s [00:53:10.032] muffleCondition(cond, pattern = "^muffle") 1590s [00:53:10.032] } 1590s [00:53:10.032] } 1590s [00:53:10.032] else { 1590s [00:53:10.032] if (TRUE) { 1590s [00:53:10.032] muffleCondition <- function (cond, pattern = "^muffle") 1590s [00:53:10.032] { 1590s [00:53:10.032] inherits <- base::inherits 1590s [00:53:10.032] invokeRestart <- base::invokeRestart 1590s [00:53:10.032] is.null <- base::is.null 1590s [00:53:10.032] muffled <- FALSE 1590s [00:53:10.032] if (inherits(cond, "message")) { 1590s [00:53:10.032] muffled <- grepl(pattern, "muffleMessage") 1590s [00:53:10.032] if (muffled) 1590s [00:53:10.032] invokeRestart("muffleMessage") 1590s [00:53:10.032] } 1590s [00:53:10.032] else if (inherits(cond, "warning")) { 1590s [00:53:10.032] muffled <- grepl(pattern, "muffleWarning") 1590s [00:53:10.032] if (muffled) 1590s [00:53:10.032] invokeRestart("muffleWarning") 1590s [00:53:10.032] } 1590s [00:53:10.032] else if (inherits(cond, "condition")) { 1590s [00:53:10.032] if (!is.null(pattern)) { 1590s [00:53:10.032] computeRestarts <- base::computeRestarts 1590s [00:53:10.032] grepl <- base::grepl 1590s [00:53:10.032] restarts <- computeRestarts(cond) 1590s [00:53:10.032] for (restart in restarts) { 1590s [00:53:10.032] name <- restart$name 1590s [00:53:10.032] if (is.null(name)) 1590s [00:53:10.032] next 1590s [00:53:10.032] if (!grepl(pattern, name)) 1590s [00:53:10.032] next 1590s [00:53:10.032] invokeRestart(restart) 1590s [00:53:10.032] muffled <- TRUE 1590s [00:53:10.032] break 1590s [00:53:10.032] } 1590s [00:53:10.032] } 1590s [00:53:10.032] } 1590s [00:53:10.032] invisible(muffled) 1590s [00:53:10.032] } 1590s [00:53:10.032] muffleCondition(cond, pattern = "^muffle") 1590s [00:53:10.032] } 1590s [00:53:10.032] } 1590s [00:53:10.032] } 1590s [00:53:10.032] })) 1590s [00:53:10.032] }, error = function(ex) { 1590s [00:53:10.032] base::structure(base::list(value = NULL, visible = NULL, 1590s [00:53:10.032] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1590s [00:53:10.032] ...future.rng), started = ...future.startTime, 1590s [00:53:10.032] finished = Sys.time(), session_uuid = NA_character_, 1590s [00:53:10.032] version = "1.8"), class = "FutureResult") 1590s [00:53:10.032] }, finally = { 1590s [00:53:10.032] if (!identical(...future.workdir, getwd())) 1590s [00:53:10.032] setwd(...future.workdir) 1590s [00:53:10.032] { 1590s [00:53:10.032] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1590s [00:53:10.032] ...future.oldOptions$nwarnings <- NULL 1590s [00:53:10.032] } 1590s [00:53:10.032] base::options(...future.oldOptions) 1590s [00:53:10.032] if (.Platform$OS.type == "windows") { 1590s [00:53:10.032] old_names <- names(...future.oldEnvVars) 1590s [00:53:10.032] envs <- base::Sys.getenv() 1590s [00:53:10.032] names <- names(envs) 1590s [00:53:10.032] common <- intersect(names, old_names) 1590s [00:53:10.032] added <- setdiff(names, old_names) 1590s [00:53:10.032] removed <- setdiff(old_names, names) 1590s [00:53:10.032] changed <- common[...future.oldEnvVars[common] != 1590s [00:53:10.032] envs[common]] 1590s [00:53:10.032] NAMES <- toupper(changed) 1590s [00:53:10.032] args <- list() 1590s [00:53:10.032] for (kk in seq_along(NAMES)) { 1590s [00:53:10.032] name <- changed[[kk]] 1590s [00:53:10.032] NAME <- NAMES[[kk]] 1590s [00:53:10.032] if (name != NAME && is.element(NAME, old_names)) 1590s [00:53:10.032] next 1590s [00:53:10.032] args[[name]] <- ...future.oldEnvVars[[name]] 1590s [00:53:10.032] } 1590s [00:53:10.032] NAMES <- toupper(added) 1590s [00:53:10.032] for (kk in seq_along(NAMES)) { 1590s [00:53:10.032] name <- added[[kk]] 1590s [00:53:10.032] NAME <- NAMES[[kk]] 1590s [00:53:10.032] if (name != NAME && is.element(NAME, old_names)) 1590s [00:53:10.032] next 1590s [00:53:10.032] args[[name]] <- "" 1590s [00:53:10.032] } 1590s [00:53:10.032] NAMES <- toupper(removed) 1590s [00:53:10.032] for (kk in seq_along(NAMES)) { 1590s [00:53:10.032] name <- removed[[kk]] 1590s [00:53:10.032] NAME <- NAMES[[kk]] 1590s [00:53:10.032] if (name != NAME && is.element(NAME, old_names)) 1590s [00:53:10.032] next 1590s [00:53:10.032] args[[name]] <- ...future.oldEnvVars[[name]] 1590s [00:53:10.032] } 1590s [00:53:10.032] if (length(args) > 0) 1590s [00:53:10.032] base::do.call(base::Sys.setenv, args = args) 1590s [00:53:10.032] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1590s [00:53:10.032] } 1590s [00:53:10.032] else { 1590s [00:53:10.032] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1590s [00:53:10.032] } 1590s [00:53:10.032] { 1590s [00:53:10.032] if (base::length(...future.futureOptionsAdded) > 1590s [00:53:10.032] 0L) { 1590s [00:53:10.032] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1590s [00:53:10.032] base::names(opts) <- ...future.futureOptionsAdded 1590s [00:53:10.032] base::options(opts) 1590s [00:53:10.032] } 1590s [00:53:10.032] { 1590s [00:53:10.032] { 1590s [00:53:10.032] NULL 1590s [00:53:10.032] RNGkind("Mersenne-Twister") 1590s [00:53:10.032] base::rm(list = ".Random.seed", envir = base::globalenv(), 1590s [00:53:10.032] inherits = FALSE) 1590s [00:53:10.032] } 1590s [00:53:10.032] options(future.plan = NULL) 1590s [00:53:10.032] if (is.na(NA_character_)) 1590s [00:53:10.032] Sys.unsetenv("R_FUTURE_PLAN") 1590s [00:53:10.032] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1590s [00:53:10.032] future::plan(list(function (..., workers = availableCores(), 1590s [00:53:10.032] lazy = FALSE, rscript_libs = .libPaths(), 1590s [00:53:10.032] envir = parent.frame()) 1590s [00:53:10.032] { 1590s [00:53:10.032] if (is.function(workers)) 1590s [00:53:10.032] workers <- workers() 1590s [00:53:10.032] workers <- structure(as.integer(workers), 1590s [00:53:10.032] class = class(workers)) 1590s [00:53:10.032] stop_if_not(length(workers) == 1, is.finite(workers), 1590s [00:53:10.032] workers >= 1) 1590s [00:53:10.032] if (workers == 1L && !inherits(workers, "AsIs")) { 1590s [00:53:10.032] return(sequential(..., lazy = TRUE, envir = envir)) 1590s [00:53:10.032] } 1590s [00:53:10.032] future <- MultisessionFuture(..., workers = workers, 1590s [00:53:10.032] lazy = lazy, rscript_libs = rscript_libs, 1590s [00:53:10.032] envir = envir) 1590s [00:53:10.032] if (!future$lazy) 1590s [00:53:10.032] future <- run(future) 1590s [00:53:10.032] invisible(future) 1590s [00:53:10.032] }), .cleanup = FALSE, .init = FALSE) 1590s [00:53:10.032] } 1590s [00:53:10.032] } 1590s [00:53:10.032] } 1590s [00:53:10.032] }) 1590s [00:53:10.032] if (TRUE) { 1590s [00:53:10.032] base::sink(type = "output", split = FALSE) 1590s [00:53:10.032] if (TRUE) { 1590s [00:53:10.032] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1590s [00:53:10.032] } 1590s [00:53:10.032] else { 1590s [00:53:10.032] ...future.result["stdout"] <- base::list(NULL) 1590s [00:53:10.032] } 1590s [00:53:10.032] base::close(...future.stdout) 1590s [00:53:10.032] ...future.stdout <- NULL 1590s [00:53:10.032] } 1590s [00:53:10.032] ...future.result$conditions <- ...future.conditions 1590s [00:53:10.032] ...future.result$finished <- base::Sys.time() 1590s [00:53:10.032] ...future.result 1590s [00:53:10.032] } 1590s [00:53:10.038] assign_globals() ... 1590s [00:53:10.038] List of 11 1590s [00:53:10.038] $ ...future.FUN :function (x, ...) 1590s [00:53:10.038] $ x_FUN :function (x, y) 1590s [00:53:10.038] $ times : int 15 1590s [00:53:10.038] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1590s [00:53:10.038] $ stop_if_not :function (...) 1590s [00:53:10.038] $ dim : int [1:2] 3 5 1590s [00:53:10.038] $ valid_types : chr [1:3] "logical" "integer" "double" 1590s [00:53:10.038] $ future.call.arguments :List of 1 1590s [00:53:10.038] ..$ y: num [1:5] 2 4 6 8 10 1590s [00:53:10.038] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1590s [00:53:10.038] $ ...future.elements_ii :List of 4 1590s [00:53:10.038] ..$ A: num 50 1590s [00:53:10.038] ..$ B: num 60 1590s [00:53:10.038] ..$ C: num 70 1590s [00:53:10.038] ..$ D: num 80 1590s [00:53:10.038] $ ...future.seeds_ii : NULL 1590s [00:53:10.038] $ ...future.globals.maxSize: NULL 1590s [00:53:10.038] - attr(*, "where")=List of 11 1590s [00:53:10.038] ..$ ...future.FUN : 1590s [00:53:10.038] ..$ x_FUN : 1590s [00:53:10.038] ..$ times : 1590s [00:53:10.038] ..$ stopf : 1590s [00:53:10.038] ..$ stop_if_not : 1590s [00:53:10.038] ..$ dim : 1590s [00:53:10.038] ..$ valid_types : 1590s [00:53:10.038] ..$ future.call.arguments : 1590s [00:53:10.038] ..$ ...future.elements_ii : 1590s [00:53:10.038] ..$ ...future.seeds_ii : 1590s [00:53:10.038] ..$ ...future.globals.maxSize: 1590s [00:53:10.038] - attr(*, "resolved")= logi FALSE 1590s [00:53:10.038] - attr(*, "total_size")= num 98600 1590s [00:53:10.038] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1590s [00:53:10.038] - attr(*, "already-done")= logi TRUE 1590s [00:53:10.055] - copied ‘...future.FUN’ to environment 1590s [00:53:10.056] - reassign environment for ‘x_FUN’ 1590s [00:53:10.056] - copied ‘x_FUN’ to environment 1590s [00:53:10.057] - copied ‘times’ to environment 1590s [00:53:10.057] - copied ‘stopf’ to environment 1590s [00:53:10.057] - copied ‘stop_if_not’ to environment 1590s [00:53:10.058] - copied ‘dim’ to environment 1590s [00:53:10.058] - copied ‘valid_types’ to environment 1590s [00:53:10.058] - copied ‘future.call.arguments’ to environment 1590s [00:53:10.059] - copied ‘...future.elements_ii’ to environment 1590s [00:53:10.059] - copied ‘...future.seeds_ii’ to environment 1590s [00:53:10.059] - copied ‘...future.globals.maxSize’ to environment 1590s [00:53:10.059] assign_globals() ... done 1590s [00:53:10.061] plan(): Setting new future strategy stack: 1590s [00:53:10.061] List of future strategies: 1590s [00:53:10.061] 1. sequential: 1590s [00:53:10.061] - args: function (..., envir = parent.frame()) 1590s [00:53:10.061] - tweaked: FALSE 1590s [00:53:10.061] - call: NULL 1590s [00:53:10.062] plan(): nbrOfWorkers() = 1 1590s [00:53:10.063] plan(): Setting new future strategy stack: 1590s [00:53:10.063] List of future strategies: 1590s [00:53:10.063] 1. multisession: 1590s [00:53:10.063] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1590s [00:53:10.063] - tweaked: FALSE 1590s [00:53:10.063] - call: plan(strategy) 1590s [00:53:10.069] plan(): nbrOfWorkers() = 1 1590s [00:53:10.069] SequentialFuture started (and completed) 1590s [00:53:10.070] - Launch lazy future ... done 1590s [00:53:10.070] run() for ‘SequentialFuture’ ... done 1590s [00:53:10.071] Created future: 1590s [00:53:10.071] SequentialFuture: 1590s [00:53:10.071] Label: ‘future_vapply-1’ 1590s [00:53:10.071] Expression: 1590s [00:53:10.071] { 1590s [00:53:10.071] do.call(function(...) { 1590s [00:53:10.071] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1590s [00:53:10.071] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1590s [00:53:10.071] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1590s [00:53:10.071] on.exit(options(oopts), add = TRUE) 1590s [00:53:10.071] } 1590s [00:53:10.071] { 1590s [00:53:10.071] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1590s [00:53:10.071] ...future.X_jj <- ...future.elements_ii[[jj]] 1590s [00:53:10.071] ...future.FUN(...future.X_jj, ...) 1590s [00:53:10.071] }) 1590s [00:53:10.071] } 1590s [00:53:10.071] }, args = future.call.arguments) 1590s [00:53:10.071] } 1590s [00:53:10.071] Lazy evaluation: FALSE 1590s [00:53:10.071] Asynchronous evaluation: FALSE 1590s [00:53:10.071] Local evaluation: TRUE 1590s [00:53:10.071] Environment: R_GlobalEnv 1590s [00:53:10.071] Capture standard output: TRUE 1590s [00:53:10.071] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1590s [00:53:10.071] Globals: 11 objects totaling 96.51 KiB (function ‘...future.FUN’ of 21.22 KiB, function ‘x_FUN’ of 4.07 KiB, integer ‘times’ of 56 bytes, function ‘stopf’ of 26.43 KiB, function ‘stop_if_not’ of 44.12 KiB, ...) 1590s [00:53:10.071] Packages: 1 packages (‘future.apply’) 1590s [00:53:10.071] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1590s [00:53:10.071] Resolved: TRUE 1590s [00:53:10.071] Value: 1.34 KiB of class ‘list’ 1590s [00:53:10.071] Early signaling: FALSE 1590s [00:53:10.071] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1590s [00:53:10.071] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1590s [00:53:10.076] Chunk #1 of 1 ... DONE 1590s [00:53:10.076] Launching 1 futures (chunks) ... DONE 1590s [00:53:10.076] Resolving 1 futures (chunks) ... 1590s [00:53:10.077] resolve() on list ... 1590s [00:53:10.077] recursive: 0 1590s [00:53:10.077] length: 1 1590s [00:53:10.077] 1590s [00:53:10.078] resolved() for ‘SequentialFuture’ ... 1590s [00:53:10.078] - state: ‘finished’ 1590s [00:53:10.078] - run: TRUE 1590s [00:53:10.078] - result: ‘FutureResult’ 1590s [00:53:10.079] resolved() for ‘SequentialFuture’ ... done 1590s [00:53:10.079] Future #1 1590s [00:53:10.079] signalConditionsASAP(SequentialFuture, pos=1) ... 1590s [00:53:10.079] - nx: 1 1590s [00:53:10.080] - relay: TRUE 1590s [00:53:10.080] - stdout: TRUE 1590s [00:53:10.080] - signal: TRUE 1590s [00:53:10.080] - resignal: FALSE 1590s [00:53:10.080] - force: TRUE 1590s [00:53:10.080] - relayed: [n=1] FALSE 1590s [00:53:10.081] - queued futures: [n=1] FALSE 1590s [00:53:10.081] - until=1 1590s [00:53:10.081] - relaying element #1 1590s [00:53:10.081] - relayed: [n=1] TRUE 1590s [00:53:10.081] - queued futures: [n=1] TRUE 1590s [00:53:10.082] signalConditionsASAP(SequentialFuture, pos=1) ... done 1590s [00:53:10.082] length: 0 (resolved future 1) 1590s [00:53:10.082] Relaying remaining futures 1590s [00:53:10.082] signalConditionsASAP(NULL, pos=0) ... 1590s [00:53:10.082] - nx: 1 1590s [00:53:10.082] - relay: TRUE 1590s [00:53:10.083] - stdout: TRUE 1590s [00:53:10.083] - signal: TRUE 1590s [00:53:10.083] - resignal: FALSE 1590s [00:53:10.084] - force: TRUE 1590s [00:53:10.084] - relayed: [n=1] TRUE 1590s [00:53:10.084] - queued futures: [n=1] TRUE 1590s - flush all 1590s [00:53:10.084] - relayed: [n=1] TRUE 1590s [00:53:10.084] - queued futures: [n=1] TRUE 1590s [00:53:10.085] signalConditionsASAP(NULL, pos=0) ... done 1590s [00:53:10.085] resolve() on list ... DONE 1590s [00:53:10.085] - Number of value chunks collected: 1 1590s [00:53:10.085] Resolving 1 futures (chunks) ... DONE 1590s [00:53:10.086] Reducing values from 1 chunks ... 1590s [00:53:10.086] - Number of values collected after concatenation: 4 1590s [00:53:10.086] - Number of values expected: 4 1590s [00:53:10.086] Reducing values from 1 chunks ... DONE 1590s [00:53:10.086] future_lapply() ... DONE 1590s num [1:3, 1:5, 1:4] 100 100 100 200 200 200 300 300 300 400 ... 1590s - attr(*, "dimnames")=List of 3 1590s ..$ : NULL 1590s ..$ : NULL 1590s ..$ : chr [1:4] "A" "B" "C" "D" 1590s [00:53:10.090] future_lapply() ... 1591s [00:53:10.104] Number of chunks: 1 1591s Named logi [1:11] TRUE TRUE TRUE TRUE TRUE TRUE ... 1591s - attr(*, "names")= chr [1:11] "mpg" "cyl" "disp" "hp" ... 1591s > 1591s > 1591s > message("*** future_vapply() ... DONE") 1591s > 1591s > source("incl/end.R") 1591s > 1591s BEGIN TEST globals,tricky_recursive.R 1591s 1591s R version 4.3.3 (2024-02-29) -- "Angel Food Cake" 1591s Copyright (C) 2024 The R Foundation for Statistical Computing 1591s Platform: s390x-ibm-linux-gnu (64-bit) 1591s 1591s R is free software and comes with ABSOLUTELY NO WARRANTY. 1591s You are welcome to redistribute it under certain conditions. 1591s Type 'license()' or 'licence()' for distribution details. 1591s 1591s R is a collaborative project with many contributors. 1591s Type 'contributors()' for more information and 1591s 'citation()' on how to cite R or R packages in publications. 1591s 1591s Type 'demo()' for some demos, 'help()' for on-line help, or 1591s 'help.start()' for an HTML browser interface to help. 1591s Type 'q()' to quit R. 1591s 1591s > source("incl/start.R") 1591s > 1591s > ## Test adopted from http://stackoverflow.com/questions/42561088/nested-do-call-within-a-foreach-dopar-environment-cant-find-function-passed-w 1591s > 1591s > options(future.debug = FALSE) 1591s > 1591s > message("*** Tricky globals requiring recursive search ...") 1591s > 1591s > my_add <- function(a, b) a + b 1591s > 1591s > call_my_add <- function(a, b) { 1591s + do.call(my_add, args = list(a = a, b = b)) 1591s + } 1591s > 1591s > call_my_add_caller <- function(a, b, FUN = call_my_add) { 1591s + do.call(FUN, args = list(a = a, b = b)) 1591s + } 1591s > 1591s > main_lapply <- function(x = 1:2, caller = call_my_add_caller, 1591s + args = list(FUN = call_my_add)) { 1591s + lapply(x, FUN = function(i) { 1591s + do.call(caller, args = c(list(a = i, b = i+1L), args)) 1591s + }) 1591s + } 1591s > 1591s > main_lapply_no_FUN <- function(x = 1:2, caller = call_my_add_caller, 1591s + args = list(FUN = call_my_add)) { 1591s + lapply(x, FUN = function(i) { 1591s + do.call(caller, args = list(a = i, b = i+1L)) 1591s + }) 1591s + } 1591s > 1591s > main_future_lapply <- function(x = 1:2, caller = call_my_add_caller, 1591s + args = list(FUN = call_my_add)) { 1591s + future_lapply(x, FUN = function(i) { 1591s + do.call(caller, args = c(list(a = i, b = i + 1L), args)) 1591s + }) 1591s + } 1591s > 1591s > main_future_lapply_no_FUN <- function(x = 1:2, caller = call_my_add_caller, 1591s + args = list(FUN = call_my_add)) { 1591s + future_lapply(x, FUN = function(i) { 1591s + do.call(caller, args = list(a = i, b = i + 1L)) 1591s + }) 1591s + } 1591s > 1591s > x0 <- y0 <- z0 <- NULL 1591s > for (strategy in supportedStrategies()) { 1591s + message(sprintf("*** strategy = %s ...", sQuote(strategy))) 1591s + 1591s + plan(strategy) 1591s + 1591s + z <- main_lapply() 1591s + str(list(z = z)) 1591s + if (is.null(z0)) z0 <- z 1591s + stopifnot(identical(z, z0)) 1591s + 1591s + z2 <- main_lapply_no_FUN() 1591s + str(list(z2 = z2)) 1591s + stopifnot(identical(z2, z0)) 1591s + 1591s + z3 <- main_future_lapply() 1591s + str(list(z3 = z3)) 1591s + stopifnot(identical(z3, z0)) 1591s + 1591s + z4 <- main_future_lapply_no_FUN() 1591s + str(list(z4 = z4)) 1591s + stopifnot(identical(z4, z0)) 1591s + 1591s + message(sprintf("*** strategy = %s ... DONE", sQuote(strategy))) 1591s + } 1591s List of 1 1591s $ z:List of 2 1591s ..$ : int 3 1591s ..$ : int 5 1591s List of 1 1591s $ z2:List of 2 1591s ..$ : int 3 1591s ..$ : int 5 1591s List of 1 1591s $ z3:List of 2 1591s ..$ : int 3 1591s ..$ : int 5 1591s List of 1 1591s $ z4:List of 2 1591s ..$ : int 3 1591s ..$ : int 5 1591s List of 1 1591s $ z:List of 2 1591s ..$ : int 3 1591s ..$ : int 5 1591s List of 1 1591s $ z2:List of 2 1591s ..$ : int 3 1591s ..$ : int 5 1591s [00:53:10.105] getGlobalsAndPackagesXApply() ... 1591s [00:53:10.106] - future.globals: TRUE 1591s [00:53:10.106] getGlobalsAndPackages() ... 1591s [00:53:10.106] Searching for globals... 1591s [00:53:10.114] - globals found: [16] ‘FUN’, ‘{’, ‘<-’, ‘x_FUN’, ‘if’, ‘!=’, ‘length’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘all’, ‘==’, ‘dim’, ‘%in%’, ‘typeof’, ‘valid_types’ 1591s [00:53:10.115] Searching for globals ... DONE 1591s [00:53:10.115] Resolving globals: FALSE 1591s [00:53:10.117] The total size of the 7 globals is 91.99 KiB (94200 bytes) 1591s [00:53:10.118] The total size of the 7 globals exported for future expression (‘FUN()’) is 91.99 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘stop_if_not’ (44.12 KiB of class ‘function’), ‘stopf’ (26.43 KiB of class ‘function’) and ‘FUN’ (21.22 KiB of class ‘function’) 1591s [00:53:10.118] - globals: [7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1591s [00:53:10.119] - packages: [1] ‘future.apply’ 1591s [00:53:10.119] getGlobalsAndPackages() ... DONE 1591s [00:53:10.119] - globals found/used: [n=7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1591s [00:53:10.120] - needed namespaces: [n=1] ‘future.apply’ 1591s [00:53:10.121] Finding globals ... DONE 1591s [00:53:10.121] - use_args: TRUE 1591s [00:53:10.122] - Getting '...' globals ... 1591s [00:53:10.123] resolve() on list ... 1591s [00:53:10.124] recursive: 0 1591s [00:53:10.124] length: 1 1591s [00:53:10.125] elements: ‘...’ 1591s [00:53:10.125] length: 0 (resolved future 1) 1591s [00:53:10.126] resolve() on list ... DONE 1591s [00:53:10.126] - '...' content: [n=0] 1591s [00:53:10.127] List of 1 1591s [00:53:10.127] $ ...: list() 1591s [00:53:10.127] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1591s [00:53:10.127] - attr(*, "where")=List of 1 1591s [00:53:10.127] ..$ ...: 1591s [00:53:10.127] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1591s [00:53:10.127] - attr(*, "resolved")= logi TRUE 1591s [00:53:10.127] - attr(*, "total_size")= num NA 1591s [00:53:10.136] - Getting '...' globals ... DONE 1591s [00:53:10.136] Globals to be used in all futures (chunks): [n=8] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’ 1591s [00:53:10.137] List of 8 1591s [00:53:10.137] $ ...future.FUN:function (x, ...) 1591s [00:53:10.137] $ x_FUN :function (x) 1591s [00:53:10.137] $ times : int 1 1591s [00:53:10.137] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1591s [00:53:10.137] $ stop_if_not :function (...) 1591s [00:53:10.137] $ dim : NULL 1591s [00:53:10.137] $ valid_types : chr "logical" 1591s [00:53:10.137] $ ... : list() 1591s [00:53:10.137] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1591s [00:53:10.137] - attr(*, "where")=List of 8 1591s [00:53:10.137] ..$ ...future.FUN: 1591s [00:53:10.137] ..$ x_FUN : 1591s [00:53:10.137] ..$ times : 1591s [00:53:10.137] ..$ stopf : 1591s [00:53:10.137] ..$ stop_if_not : 1591s [00:53:10.137] ..$ dim : 1591s [00:53:10.137] ..$ valid_types : 1591s [00:53:10.137] ..$ ... : 1591s [00:53:10.137] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1591s [00:53:10.137] - attr(*, "resolved")= logi FALSE 1591s [00:53:10.137] - attr(*, "total_size")= num 94200 1591s [00:53:10.147] Packages to be attached in all futures: [n=1] ‘future.apply’ 1591s [00:53:10.147] getGlobalsAndPackagesXApply() ... DONE 1591s [00:53:10.147] Number of futures (= number of chunks): 1 1591s [00:53:10.148] Launching 1 futures (chunks) ... 1591s [00:53:10.148] Chunk #1 of 1 ... 1591s [00:53:10.148] - Finding globals in 'X' for chunk #1 ... 1591s [00:53:10.149] getGlobalsAndPackages() ... 1591s [00:53:10.149] Searching for globals... 1591s [00:53:10.150] 1591s [00:53:10.150] Searching for globals ... DONE 1591s [00:53:10.151] - globals: [0] 1591s [00:53:10.151] getGlobalsAndPackages() ... DONE 1591s [00:53:10.151] + additional globals found: [n=0] 1591s [00:53:10.152] + additional namespaces needed: [n=0] 1591s [00:53:10.152] - Finding globals in 'X' for chunk #1 ... DONE 1591s [00:53:10.152] - seeds: 1591s [00:53:10.153] - All globals exported: [n=11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1591s [00:53:10.153] getGlobalsAndPackages() ... 1591s [00:53:10.154] - globals passed as-is: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1591s [00:53:10.154] Resolving globals: FALSE 1591s [00:53:10.154] Tweak future expression to call with '...' arguments ... 1591s [00:53:10.155] { 1591s [00:53:10.155] do.call(function(...) { 1591s [00:53:10.155] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1591s [00:53:10.155] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1591s [00:53:10.155] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1591s [00:53:10.155] on.exit(options(oopts), add = TRUE) 1591s [00:53:10.155] } 1591s [00:53:10.155] { 1591s [00:53:10.155] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1591s [00:53:10.155] ...future.X_jj <- ...future.elements_ii[[jj]] 1591s [00:53:10.155] ...future.FUN(...future.X_jj, ...) 1591s [00:53:10.155] }) 1591s [00:53:10.155] } 1591s [00:53:10.155] }, args = future.call.arguments) 1591s [00:53:10.155] } 1591s [00:53:10.156] Tweak future expression to call with '...' arguments ... DONE 1591s [00:53:10.157] - globals: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1591s [00:53:10.157] - packages: [1] ‘future.apply’ 1591s [00:53:10.158] getGlobalsAndPackages() ... DONE 1591s [00:53:10.159] run() for ‘Future’ ... 1591s [00:53:10.159] - state: ‘created’ 1591s [00:53:10.159] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1591s [00:53:10.166] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1591s [00:53:10.166] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1591s [00:53:10.166] - Field: ‘label’ 1591s [00:53:10.167] - Field: ‘local’ 1591s [00:53:10.167] - Field: ‘owner’ 1591s [00:53:10.167] - Field: ‘envir’ 1591s [00:53:10.168] - Field: ‘packages’ 1591s [00:53:10.168] - Field: ‘gc’ 1591s [00:53:10.168] - Field: ‘conditions’ 1591s [00:53:10.168] - Field: ‘expr’ 1591s [00:53:10.169] - Field: ‘uuid’ 1591s [00:53:10.169] - Field: ‘seed’ 1591s [00:53:10.169] - Field: ‘version’ 1591s [00:53:10.170] - Field: ‘result’ 1591s [00:53:10.170] - Field: ‘asynchronous’ 1591s [00:53:10.170] - Field: ‘calls’ 1591s [00:53:10.170] - Field: ‘globals’ 1591s [00:53:10.171] - Field: ‘stdout’ 1591s [00:53:10.171] - Field: ‘earlySignal’ 1591s [00:53:10.171] - Field: ‘lazy’ 1591s [00:53:10.171] - Field: ‘state’ 1591s [00:53:10.171] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1591s [00:53:10.171] - Launch lazy future ... 1591s [00:53:10.172] Packages needed by the future expression (n = 1): ‘future.apply’ 1591s [00:53:10.172] Packages needed by future strategies (n = 0): 1591s [00:53:10.173] { 1591s [00:53:10.173] { 1591s [00:53:10.173] { 1591s [00:53:10.173] ...future.startTime <- base::Sys.time() 1591s [00:53:10.173] { 1591s [00:53:10.173] { 1591s [00:53:10.173] { 1591s [00:53:10.173] { 1591s [00:53:10.173] base::local({ 1591s [00:53:10.173] has_future <- base::requireNamespace("future", 1591s [00:53:10.173] quietly = TRUE) 1591s [00:53:10.173] if (has_future) { 1591s [00:53:10.173] ns <- base::getNamespace("future") 1591s [00:53:10.173] version <- ns[[".package"]][["version"]] 1591s [00:53:10.173] if (is.null(version)) 1591s [00:53:10.173] version <- utils::packageVersion("future") 1591s [00:53:10.173] } 1591s [00:53:10.173] else { 1591s [00:53:10.173] version <- NULL 1591s [00:53:10.173] } 1591s [00:53:10.173] if (!has_future || version < "1.8.0") { 1591s [00:53:10.173] info <- base::c(r_version = base::gsub("R version ", 1591s [00:53:10.173] "", base::R.version$version.string), 1591s [00:53:10.173] platform = base::sprintf("%s (%s-bit)", 1591s [00:53:10.173] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1591s [00:53:10.173] os = base::paste(base::Sys.info()[base::c("sysname", 1591s [00:53:10.173] "release", "version")], collapse = " "), 1591s [00:53:10.173] hostname = base::Sys.info()[["nodename"]]) 1591s [00:53:10.173] info <- base::sprintf("%s: %s", base::names(info), 1591s [00:53:10.173] info) 1591s [00:53:10.173] info <- base::paste(info, collapse = "; ") 1591s [00:53:10.173] if (!has_future) { 1591s [00:53:10.173] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1591s [00:53:10.173] info) 1591s [00:53:10.173] } 1591s [00:53:10.173] else { 1591s [00:53:10.173] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1591s [00:53:10.173] info, version) 1591s [00:53:10.173] } 1591s [00:53:10.173] base::stop(msg) 1591s [00:53:10.173] } 1591s [00:53:10.173] }) 1591s [00:53:10.173] } 1591s [00:53:10.173] base::local({ 1591s [00:53:10.173] for (pkg in "future.apply") { 1591s [00:53:10.173] base::loadNamespace(pkg) 1591s [00:53:10.173] base::library(pkg, character.only = TRUE) 1591s [00:53:10.173] } 1591s [00:53:10.173] }) 1591s [00:53:10.173] } 1591s [00:53:10.173] options(future.plan = NULL) 1591s [00:53:10.173] Sys.unsetenv("R_FUTURE_PLAN") 1591s [00:53:10.173] future::plan("default", .cleanup = FALSE, .init = FALSE) 1591s [00:53:10.173] } 1591s [00:53:10.173] ...future.workdir <- getwd() 1591s [00:53:10.173] } 1591s [00:53:10.173] ...future.oldOptions <- base::as.list(base::.Options) 1591s [00:53:10.173] ...future.oldEnvVars <- base::Sys.getenv() 1591s [00:53:10.173] } 1591s [00:53:10.173] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1591s [00:53:10.173] future.globals.maxSize = NULL, future.globals.method = NULL, 1591s [00:53:10.173] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1591s [00:53:10.173] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1591s [00:53:10.173] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1591s [00:53:10.173] future.stdout.windows.reencode = NULL, width = 80L) 1591s [00:53:10.173] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1591s [00:53:10.173] base::names(...future.oldOptions)) 1591s [00:53:10.173] } 1591s [00:53:10.173] if (FALSE) { 1591s [00:53:10.173] } 1591s [00:53:10.173] else { 1591s [00:53:10.173] if (TRUE) { 1591s [00:53:10.173] ...future.stdout <- base::rawConnection(base::raw(0L), 1591s [00:53:10.173] open = "w") 1591s [00:53:10.173] } 1591s [00:53:10.173] else { 1591s [00:53:10.173] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1591s [00:53:10.173] windows = "NUL", "/dev/null"), open = "w") 1591s [00:53:10.173] } 1591s [00:53:10.173] base::sink(...future.stdout, type = "output", split = FALSE) 1591s [00:53:10.173] base::on.exit(if (!base::is.null(...future.stdout)) { 1591s [00:53:10.173] base::sink(type = "output", split = FALSE) 1591s [00:53:10.173] base::close(...future.stdout) 1591s [00:53:10.173] }, add = TRUE) 1591s [00:53:10.173] } 1591s [00:53:10.173] ...future.frame <- base::sys.nframe() 1591s [00:53:10.173] ...future.conditions <- base::list() 1591s [00:53:10.173] ...future.rng <- base::globalenv()$.Random.seed 1591s [00:53:10.173] if (FALSE) { 1591s [00:53:10.173] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1591s [00:53:10.173] "...future.value", "...future.globalenv.names", ".Random.seed") 1591s [00:53:10.173] } 1591s [00:53:10.173] ...future.result <- base::tryCatch({ 1591s [00:53:10.173] base::withCallingHandlers({ 1591s [00:53:10.173] ...future.value <- base::withVisible(base::local({ 1591s [00:53:10.173] do.call(function(...) { 1591s [00:53:10.173] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1591s [00:53:10.173] if (!identical(...future.globals.maxSize.org, 1591s [00:53:10.173] ...future.globals.maxSize)) { 1591s [00:53:10.173] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1591s [00:53:10.173] on.exit(options(oopts), add = TRUE) 1591s [00:53:10.173] } 1591s [00:53:10.173] { 1591s [00:53:10.173] lapply(seq_along(...future.elements_ii), 1591s [00:53:10.173] FUN = function(jj) { 1591s [00:53:10.173] ...future.X_jj <- ...future.elements_ii[[jj]] 1591s [00:53:10.173] ...future.FUN(...future.X_jj, ...) 1591s [00:53:10.173] }) 1591s [00:53:10.173] } 1591s [00:53:10.173] }, args = future.call.arguments) 1591s [00:53:10.173] })) 1591s [00:53:10.173] future::FutureResult(value = ...future.value$value, 1591s [00:53:10.173] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1591s [00:53:10.173] ...future.rng), globalenv = if (FALSE) 1591s [00:53:10.173] list(added = base::setdiff(base::names(base::.GlobalEnv), 1591s [00:53:10.173] ...future.globalenv.names)) 1591s [00:53:10.173] else NULL, started = ...future.startTime, version = "1.8") 1591s [00:53:10.173] }, condition = base::local({ 1591s [00:53:10.173] c <- base::c 1591s [00:53:10.173] inherits <- base::inherits 1591s [00:53:10.173] invokeRestart <- base::invokeRestart 1591s [00:53:10.173] length <- base::length 1591s [00:53:10.173] list <- base::list 1591s [00:53:10.173] seq.int <- base::seq.int 1591s [00:53:10.173] signalCondition <- base::signalCondition 1591s [00:53:10.173] sys.calls <- base::sys.calls 1591s [00:53:10.173] `[[` <- base::`[[` 1591s [00:53:10.173] `+` <- base::`+` 1591s [00:53:10.173] `<<-` <- base::`<<-` 1591s [00:53:10.173] sysCalls <- function(calls = sys.calls(), from = 1L) { 1591s [00:53:10.173] calls[seq.int(from = from + 12L, to = length(calls) - 1591s [00:53:10.173] 3L)] 1591s [00:53:10.173] } 1591s [00:53:10.173] function(cond) { 1591s [00:53:10.173] is_error <- inherits(cond, "error") 1591s [00:53:10.173] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1591s [00:53:10.173] NULL) 1591s [00:53:10.173] if (is_error) { 1591s [00:53:10.173] sessionInformation <- function() { 1591s [00:53:10.173] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1591s [00:53:10.173] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1591s [00:53:10.173] search = base::search(), system = base::Sys.info()) 1591s [00:53:10.173] } 1591s [00:53:10.173] ...future.conditions[[length(...future.conditions) + 1591s [00:53:10.173] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1591s [00:53:10.173] cond$call), session = sessionInformation(), 1591s [00:53:10.173] timestamp = base::Sys.time(), signaled = 0L) 1591s [00:53:10.173] signalCondition(cond) 1591s [00:53:10.173] } 1591s [00:53:10.173] else if (!ignore && TRUE && inherits(cond, c("condition", 1591s [00:53:10.173] "immediateCondition"))) { 1591s [00:53:10.173] signal <- TRUE && inherits(cond, "immediateCondition") 1591s [00:53:10.173] ...future.conditions[[length(...future.conditions) + 1591s [00:53:10.173] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1591s [00:53:10.173] if (TRUE && !signal) { 1591s [00:53:10.173] muffleCondition <- function (cond, pattern = "^muffle") 1591s [00:53:10.173] { 1591s [00:53:10.173] inherits <- base::inherits 1591s [00:53:10.173] invokeRestart <- base::invokeRestart 1591s [00:53:10.173] is.null <- base::is.null 1591s [00:53:10.173] muffled <- FALSE 1591s [00:53:10.173] if (inherits(cond, "message")) { 1591s [00:53:10.173] muffled <- grepl(pattern, "muffleMessage") 1591s [00:53:10.173] if (muffled) 1591s [00:53:10.173] invokeRestart("muffleMessage") 1591s [00:53:10.173] } 1591s [00:53:10.173] else if (inherits(cond, "warning")) { 1591s [00:53:10.173] muffled <- grepl(pattern, "muffleWarning") 1591s [00:53:10.173] if (muffled) 1591s [00:53:10.173] invokeRestart("muffleWarning") 1591s [00:53:10.173] } 1591s [00:53:10.173] else if (inherits(cond, "condition")) { 1591s [00:53:10.173] if (!is.null(pattern)) { 1591s [00:53:10.173] computeRestarts <- base::computeRestarts 1591s [00:53:10.173] grepl <- base::grepl 1591s [00:53:10.173] restarts <- computeRestarts(cond) 1591s [00:53:10.173] for (restart in restarts) { 1591s [00:53:10.173] name <- restart$name 1591s [00:53:10.173] if (is.null(name)) 1591s [00:53:10.173] next 1591s [00:53:10.173] if (!grepl(pattern, name)) 1591s [00:53:10.173] next 1591s [00:53:10.173] invokeRestart(restart) 1591s [00:53:10.173] muffled <- TRUE 1591s [00:53:10.173] break 1591s [00:53:10.173] } 1591s [00:53:10.173] } 1591s [00:53:10.173] } 1591s [00:53:10.173] invisible(muffled) 1591s [00:53:10.173] } 1591s [00:53:10.173] muffleCondition(cond, pattern = "^muffle") 1591s [00:53:10.173] } 1591s [00:53:10.173] } 1591s [00:53:10.173] else { 1591s [00:53:10.173] if (TRUE) { 1591s [00:53:10.173] muffleCondition <- function (cond, pattern = "^muffle") 1591s [00:53:10.173] { 1591s [00:53:10.173] inherits <- base::inherits 1591s [00:53:10.173] invokeRestart <- base::invokeRestart 1591s [00:53:10.173] is.null <- base::is.null 1591s [00:53:10.173] muffled <- FALSE 1591s [00:53:10.173] if (inherits(cond, "message")) { 1591s [00:53:10.173] muffled <- grepl(pattern, "muffleMessage") 1591s [00:53:10.173] if (muffled) 1591s [00:53:10.173] invokeRestart("muffleMessage") 1591s [00:53:10.173] } 1591s [00:53:10.173] else if (inherits(cond, "warning")) { 1591s [00:53:10.173] muffled <- grepl(pattern, "muffleWarning") 1591s [00:53:10.173] if (muffled) 1591s [00:53:10.173] invokeRestart("muffleWarning") 1591s [00:53:10.173] } 1591s [00:53:10.173] else if (inherits(cond, "condition")) { 1591s [00:53:10.173] if (!is.null(pattern)) { 1591s [00:53:10.173] computeRestarts <- base::computeRestarts 1591s [00:53:10.173] grepl <- base::grepl 1591s [00:53:10.173] restarts <- computeRestarts(cond) 1591s [00:53:10.173] for (restart in restarts) { 1591s [00:53:10.173] name <- restart$name 1591s [00:53:10.173] if (is.null(name)) 1591s [00:53:10.173] next 1591s [00:53:10.173] if (!grepl(pattern, name)) 1591s [00:53:10.173] next 1591s [00:53:10.173] invokeRestart(restart) 1591s [00:53:10.173] muffled <- TRUE 1591s [00:53:10.173] break 1591s [00:53:10.173] } 1591s [00:53:10.173] } 1591s [00:53:10.173] } 1591s [00:53:10.173] invisible(muffled) 1591s [00:53:10.173] } 1591s [00:53:10.173] muffleCondition(cond, pattern = "^muffle") 1591s [00:53:10.173] } 1591s [00:53:10.173] } 1591s [00:53:10.173] } 1591s [00:53:10.173] })) 1591s [00:53:10.173] }, error = function(ex) { 1591s [00:53:10.173] base::structure(base::list(value = NULL, visible = NULL, 1591s [00:53:10.173] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1591s [00:53:10.173] ...future.rng), started = ...future.startTime, 1591s [00:53:10.173] finished = Sys.time(), session_uuid = NA_character_, 1591s [00:53:10.173] version = "1.8"), class = "FutureResult") 1591s [00:53:10.173] }, finally = { 1591s [00:53:10.173] if (!identical(...future.workdir, getwd())) 1591s [00:53:10.173] setwd(...future.workdir) 1591s [00:53:10.173] { 1591s [00:53:10.173] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1591s [00:53:10.173] ...future.oldOptions$nwarnings <- NULL 1591s [00:53:10.173] } 1591s [00:53:10.173] base::options(...future.oldOptions) 1591s [00:53:10.173] if (.Platform$OS.type == "windows") { 1591s [00:53:10.173] old_names <- names(...future.oldEnvVars) 1591s [00:53:10.173] envs <- base::Sys.getenv() 1591s [00:53:10.173] names <- names(envs) 1591s [00:53:10.173] common <- intersect(names, old_names) 1591s [00:53:10.173] added <- setdiff(names, old_names) 1591s [00:53:10.173] removed <- setdiff(old_names, names) 1591s [00:53:10.173] changed <- common[...future.oldEnvVars[common] != 1591s [00:53:10.173] envs[common]] 1591s [00:53:10.173] NAMES <- toupper(changed) 1591s [00:53:10.173] args <- list() 1591s [00:53:10.173] for (kk in seq_along(NAMES)) { 1591s [00:53:10.173] name <- changed[[kk]] 1591s [00:53:10.173] NAME <- NAMES[[kk]] 1591s [00:53:10.173] if (name != NAME && is.element(NAME, old_names)) 1591s [00:53:10.173] next 1591s [00:53:10.173] args[[name]] <- ...future.oldEnvVars[[name]] 1591s [00:53:10.173] } 1591s [00:53:10.173] NAMES <- toupper(added) 1591s [00:53:10.173] for (kk in seq_along(NAMES)) { 1591s [00:53:10.173] name <- added[[kk]] 1591s [00:53:10.173] NAME <- NAMES[[kk]] 1591s [00:53:10.173] if (name != NAME && is.element(NAME, old_names)) 1591s [00:53:10.173] next 1591s [00:53:10.173] args[[name]] <- "" 1591s [00:53:10.173] } 1591s [00:53:10.173] NAMES <- toupper(removed) 1591s [00:53:10.173] for (kk in seq_along(NAMES)) { 1591s [00:53:10.173] name <- removed[[kk]] 1591s [00:53:10.173] NAME <- NAMES[[kk]] 1591s [00:53:10.173] if (name != NAME && is.element(NAME, old_names)) 1591s [00:53:10.173] next 1591s [00:53:10.173] args[[name]] <- ...future.oldEnvVars[[name]] 1591s [00:53:10.173] } 1591s [00:53:10.173] if (length(args) > 0) 1591s [00:53:10.173] base::do.call(base::Sys.setenv, args = args) 1591s [00:53:10.173] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1591s [00:53:10.173] } 1591s [00:53:10.173] else { 1591s [00:53:10.173] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1591s [00:53:10.173] } 1591s [00:53:10.173] { 1591s [00:53:10.173] if (base::length(...future.futureOptionsAdded) > 1591s [00:53:10.173] 0L) { 1591s [00:53:10.173] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1591s [00:53:10.173] base::names(opts) <- ...future.futureOptionsAdded 1591s [00:53:10.173] base::options(opts) 1591s [00:53:10.173] } 1591s [00:53:10.173] { 1591s [00:53:10.173] { 1591s [00:53:10.173] NULL 1591s [00:53:10.173] RNGkind("Mersenne-Twister") 1591s [00:53:10.173] base::rm(list = ".Random.seed", envir = base::globalenv(), 1591s [00:53:10.173] inherits = FALSE) 1591s [00:53:10.173] } 1591s [00:53:10.173] options(future.plan = NULL) 1591s [00:53:10.173] if (is.na(NA_character_)) 1591s [00:53:10.173] Sys.unsetenv("R_FUTURE_PLAN") 1591s [00:53:10.173] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1591s [00:53:10.173] future::plan(list(function (..., workers = availableCores(), 1591s [00:53:10.173] lazy = FALSE, rscript_libs = .libPaths(), 1591s [00:53:10.173] envir = parent.frame()) 1591s [00:53:10.173] { 1591s [00:53:10.173] if (is.function(workers)) 1591s [00:53:10.173] workers <- workers() 1591s [00:53:10.173] workers <- structure(as.integer(workers), 1591s [00:53:10.173] class = class(workers)) 1591s [00:53:10.173] stop_if_not(length(workers) == 1, is.finite(workers), 1591s [00:53:10.173] workers >= 1) 1591s [00:53:10.173] if (workers == 1L && !inherits(workers, "AsIs")) { 1591s [00:53:10.173] return(sequential(..., lazy = TRUE, envir = envir)) 1591s [00:53:10.173] } 1591s [00:53:10.173] future <- MultisessionFuture(..., workers = workers, 1591s [00:53:10.173] lazy = lazy, rscript_libs = rscript_libs, 1591s [00:53:10.173] envir = envir) 1591s [00:53:10.173] if (!future$lazy) 1591s [00:53:10.173] future <- run(future) 1591s [00:53:10.173] invisible(future) 1591s [00:53:10.173] }), .cleanup = FALSE, .init = FALSE) 1591s [00:53:10.173] } 1591s [00:53:10.173] } 1591s [00:53:10.173] } 1591s [00:53:10.173] }) 1591s [00:53:10.173] if (TRUE) { 1591s [00:53:10.173] base::sink(type = "output", split = FALSE) 1591s [00:53:10.173] if (TRUE) { 1591s [00:53:10.173] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1591s [00:53:10.173] } 1591s [00:53:10.173] else { 1591s [00:53:10.173] ...future.result["stdout"] <- base::list(NULL) 1591s [00:53:10.173] } 1591s [00:53:10.173] base::close(...future.stdout) 1591s [00:53:10.173] ...future.stdout <- NULL 1591s [00:53:10.173] } 1591s [00:53:10.173] ...future.result$conditions <- ...future.conditions 1591s [00:53:10.173] ...future.result$finished <- base::Sys.time() 1591s [00:53:10.173] ...future.result 1591s [00:53:10.173] } 1591s [00:53:10.177] assign_globals() ... 1591s [00:53:10.177] List of 11 1591s [00:53:10.177] $ ...future.FUN :function (x, ...) 1591s [00:53:10.177] $ x_FUN :function (x) 1591s [00:53:10.177] $ times : int 1 1591s [00:53:10.177] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1591s [00:53:10.177] $ stop_if_not :function (...) 1591s [00:53:10.177] $ dim : NULL 1591s [00:53:10.177] $ valid_types : chr "logical" 1591s [00:53:10.177] $ future.call.arguments : list() 1591s [00:53:10.177] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1591s [00:53:10.177] $ ...future.elements_ii :List of 11 1591s [00:53:10.177] ..$ mpg : num [1:32] 21 21 22.8 21.4 18.7 18.1 14.3 24.4 22.8 19.2 ... 1591s [00:53:10.177] ..$ cyl : num [1:32] 6 6 4 6 8 6 8 4 4 6 ... 1591s [00:53:10.177] ..$ disp: num [1:32] 160 160 108 258 360 ... 1591s [00:53:10.177] ..$ hp : num [1:32] 110 110 93 110 175 105 245 62 95 123 ... 1591s [00:53:10.177] ..$ drat: num [1:32] 3.9 3.9 3.85 3.08 3.15 2.76 3.21 3.69 3.92 3.92 ... 1591s [00:53:10.177] ..$ wt : num [1:32] 2.62 2.88 2.32 3.21 3.44 ... 1591s [00:53:10.177] ..$ qsec: num [1:32] 16.5 17 18.6 19.4 17 ... 1591s [00:53:10.177] ..$ vs : num [1:32] 0 0 1 1 0 1 0 1 1 1 ... 1591s [00:53:10.177] ..$ am : num [1:32] 1 1 1 0 0 0 0 0 0 0 ... 1591s [00:53:10.177] ..$ gear: num [1:32] 4 4 4 3 3 3 3 4 4 4 ... 1591s [00:53:10.177] ..$ carb: num [1:32] 4 4 1 1 2 1 4 2 2 4 ... 1591s [00:53:10.177] $ ...future.seeds_ii : NULL 1591s [00:53:10.177] $ ...future.globals.maxSize: NULL 1591s [00:53:10.177] - attr(*, "where")=List of 11 1591s [00:53:10.177] ..$ ...future.FUN : 1591s [00:53:10.177] ..$ x_FUN : 1591s [00:53:10.177] ..$ times : 1591s [00:53:10.177] ..$ stopf : 1591s [00:53:10.177] ..$ stop_if_not : 1591s [00:53:10.177] ..$ dim : 1591s [00:53:10.177] ..$ valid_types : 1591s [00:53:10.177] ..$ future.call.arguments : 1591s [00:53:10.177] ..$ ...future.elements_ii : 1591s [00:53:10.177] ..$ ...future.seeds_ii : 1591s [00:53:10.177] ..$ ...future.globals.maxSize: 1591s [00:53:10.177] - attr(*, "resolved")= logi FALSE 1591s [00:53:10.177] - attr(*, "total_size")= num 94200 1591s [00:53:10.177] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1591s [00:53:10.177] - attr(*, "already-done")= logi TRUE 1591s [00:53:10.201] - copied ‘...future.FUN’ to environment 1591s [00:53:10.202] - copied ‘x_FUN’ to environment 1591s [00:53:10.202] - copied ‘times’ to environment 1591s [00:53:10.202] - copied ‘stopf’ to environment 1591s [00:53:10.202] - copied ‘stop_if_not’ to environment 1591s [00:53:10.202] - copied ‘dim’ to environment 1591s [00:53:10.202] - copied ‘valid_types’ to environment 1591s [00:53:10.203] - copied ‘future.call.arguments’ to environment 1591s [00:53:10.203] - copied ‘...future.elements_ii’ to environment 1591s [00:53:10.203] - copied ‘...future.seeds_ii’ to environment 1591s [00:53:10.203] - copied ‘...future.globals.maxSize’ to environment 1591s [00:53:10.203] assign_globals() ... done 1591s [00:53:10.204] plan(): Setting new future strategy stack: 1591s [00:53:10.205] List of future strategies: 1591s [00:53:10.205] 1. sequential: 1591s [00:53:10.205] - args: function (..., envir = parent.frame()) 1591s [00:53:10.205] - tweaked: FALSE 1591s [00:53:10.205] - call: NULL 1591s [00:53:10.205] plan(): nbrOfWorkers() = 1 1591s [00:53:10.206] plan(): Setting new future strategy stack: 1591s [00:53:10.207] List of future strategies: 1591s [00:53:10.207] 1. multisession: 1591s [00:53:10.207] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1591s [00:53:10.207] - tweaked: FALSE 1591s [00:53:10.207] - call: plan(strategy) 1591s [00:53:10.211] plan(): nbrOfWorkers() = 1 1591s [00:53:10.211] SequentialFuture started (and completed) 1591s [00:53:10.211] - Launch lazy future ... done 1591s [00:53:10.212] run() for ‘SequentialFuture’ ... done 1591s [00:53:10.212] Created future: 1591s [00:53:10.212] SequentialFuture: 1591s [00:53:10.212] Label: ‘future_vapply-1’ 1591s [00:53:10.212] Expression: 1591s [00:53:10.212] { 1591s [00:53:10.212] do.call(function(...) { 1591s [00:53:10.212] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1591s [00:53:10.212] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1591s [00:53:10.212] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1591s [00:53:10.212] on.exit(options(oopts), add = TRUE) 1591s [00:53:10.212] } 1591s [00:53:10.212] { 1591s [00:53:10.212] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1591s [00:53:10.212] ...future.X_jj <- ...future.elements_ii[[jj]] 1591s [00:53:10.212] ...future.FUN(...future.X_jj, ...) 1591s [00:53:10.212] }) 1591s [00:53:10.212] } 1591s [00:53:10.212] }, args = future.call.arguments) 1591s [00:53:10.212] } 1591s [00:53:10.212] Lazy evaluation: FALSE 1591s [00:53:10.212] Asynchronous evaluation: FALSE 1591s [00:53:10.212] Local evaluation: TRUE 1591s [00:53:10.212] Environment: R_GlobalEnv 1591s [00:53:10.212] Capture standard output: TRUE 1591s [00:53:10.212] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1591s [00:53:10.212] Globals: 11 objects totaling 95.26 KiB (function ‘...future.FUN’ of 21.22 KiB, function ‘x_FUN’ of 56 bytes, integer ‘times’ of 56 bytes, function ‘stopf’ of 26.43 KiB, function ‘stop_if_not’ of 44.12 KiB, ...) 1591s [00:53:10.212] Packages: 1 packages (‘future.apply’) 1591s [00:53:10.212] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1591s [00:53:10.212] Resolved: TRUE 1591s [00:53:10.212] Value: 616 bytes of class ‘list’ 1591s [00:53:10.212] Early signaling: FALSE 1591s [00:53:10.212] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1591s [00:53:10.212] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1591s [00:53:10.215] Chunk #1 of 1 ... DONE 1591s [00:53:10.215] Launching 1 futures (chunks) ... DONE 1591s [00:53:10.216] Resolving 1 futures (chunks) ... 1591s [00:53:10.216] resolve() on list ... 1591s [00:53:10.217] recursive: 0 1591s [00:53:10.217] length: 1 1591s [00:53:10.217] 1591s [00:53:10.218] resolved() for ‘SequentialFuture’ ... 1591s [00:53:10.218] - state: ‘finished’ 1591s [00:53:10.218] - run: TRUE 1591s [00:53:10.218] - result: ‘FutureResult’ 1591s [00:53:10.219] resolved() for ‘SequentialFuture’ ... done 1591s [00:53:10.219] Future #1 1591s [00:53:10.220] signalConditionsASAP(SequentialFuture, pos=1) ... 1591s [00:53:10.222] - nx: 1 1591s [00:53:10.223] - relay: TRUE 1591s [00:53:10.223] - stdout: TRUE 1591s [00:53:10.223] - signal: TRUE 1591s [00:53:10.223] - resignal: FALSE 1591s [00:53:10.223] - force: TRUE 1591s [00:53:10.224] - relayed: [n=1] FALSE 1591s [00:53:10.224] - queued futures: [n=1] FALSE 1591s [00:53:10.224] - until=1 1591s [00:53:10.224] - relaying element #1 1591s [00:53:10.225] - relayed: [n=1] TRUE 1591s [00:53:10.225] - queued futures: [n=1] TRUE 1591s [00:53:10.225] signalConditionsASAP(SequentialFuture, pos=1) ... done 1591s [00:53:10.226] length: 0 (resolved future 1) 1591s [00:53:10.226] Relaying remaining futures 1591s [00:53:10.226] signalConditionsASAP(NULL, pos=0) ... 1591s [00:53:10.226] - nx: 1 1591s [00:53:10.226] - relay: TRUE 1591s [00:53:10.227] - stdout: TRUE 1591s [00:53:10.227] - signal: TRUE 1591s [00:53:10.227] - resignal: FALSE 1591s [00:53:10.227] - force: TRUE 1591s [00:53:10.228] - relayed: [n=1] TRUE 1591s [00:53:10.228] - queued futures: [n=1] TRUE 1591s - flush all 1591s [00:53:10.228] - relayed: [n=1] TRUE 1591s [00:53:10.228] - queued futures: [n=1] TRUE 1591s [00:53:10.228] signalConditionsASAP(NULL, pos=0) ... done 1591s [00:53:10.229] resolve() on list ... DONE 1591s [00:53:10.229] - Number of value chunks collected: 1 1591s [00:53:10.229] Resolving 1 futures (chunks) ... DONE 1591s [00:53:10.229] Reducing values from 1 chunks ... 1591s [00:53:10.229] - Number of values collected after concatenation: 11 1591s [00:53:10.229] - Number of values expected: 11 1591s [00:53:10.230] Reducing values from 1 chunks ... DONE 1591s [00:53:10.230] future_lapply() ... DONE 1591s - future_vapply(x, ...) where length(x) != length(as.list(x)) ... 1591s [00:53:10.231] future_lapply() ... 1591s [00:53:10.243] Number of chunks: 1 1591s [00:53:10.243] getGlobalsAndPackagesXApply() ... 1591s [00:53:10.243] - future.globals: TRUE 1591s [00:53:10.243] getGlobalsAndPackages() ... 1591s [00:53:10.244] Searching for globals... 1591s [00:53:10.248] - globals found: [16] ‘FUN’, ‘{’, ‘<-’, ‘x_FUN’, ‘if’, ‘!=’, ‘length’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘all’, ‘==’, ‘dim’, ‘%in%’, ‘typeof’, ‘valid_types’ 1591s [00:53:10.248] Searching for globals ... DONE 1591s [00:53:10.248] Resolving globals: FALSE 1591s [00:53:10.249] The total size of the 7 globals is 92.05 KiB (94264 bytes) 1591s [00:53:10.250] The total size of the 7 globals exported for future expression (‘FUN()’) is 92.05 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘stop_if_not’ (44.12 KiB of class ‘function’), ‘stopf’ (26.43 KiB of class ‘function’) and ‘FUN’ (21.22 KiB of class ‘function’) 1591s [00:53:10.250] - globals: [7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1591s [00:53:10.251] - packages: [1] ‘future.apply’ 1591s [00:53:10.251] getGlobalsAndPackages() ... DONE 1591s [00:53:10.251] - globals found/used: [n=7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1591s [00:53:10.251] - needed namespaces: [n=1] ‘future.apply’ 1591s [00:53:10.251] Finding globals ... DONE 1591s [00:53:10.252] - use_args: TRUE 1591s [00:53:10.252] - Getting '...' globals ... 1591s [00:53:10.252] resolve() on list ... 1591s [00:53:10.252] recursive: 0 1591s [00:53:10.252] length: 1 1591s [00:53:10.252] elements: ‘...’ 1591s [00:53:10.253] length: 0 (resolved future 1) 1591s [00:53:10.253] resolve() on list ... DONE 1591s [00:53:10.253] - '...' content: [n=0] 1591s [00:53:10.253] List of 1 1591s [00:53:10.253] $ ...: list() 1591s [00:53:10.253] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1591s [00:53:10.253] - attr(*, "where")=List of 1 1591s [00:53:10.253] ..$ ...: 1591s [00:53:10.253] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1591s [00:53:10.253] - attr(*, "resolved")= logi TRUE 1591s [00:53:10.253] - attr(*, "total_size")= num NA 1591s [00:53:10.257] - Getting '...' globals ... DONE 1591s [00:53:10.257] Globals to be used in all futures (chunks): [n=8] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’ 1591s [00:53:10.257] List of 8 1591s [00:53:10.257] $ ...future.FUN:function (x, ...) 1591s [00:53:10.257] $ x_FUN :function (x) 1591s [00:53:10.257] $ times : int 1 1591s [00:53:10.257] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1591s [00:53:10.257] $ stop_if_not :function (...) 1591s [00:53:10.257] $ dim : NULL 1591s [00:53:10.257] $ valid_types : chr [1:2] "logical" "integer" 1591s [00:53:10.257] $ ... : list() 1591s [00:53:10.257] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1591s [00:53:10.257] - attr(*, "where")=List of 8 1591s [00:53:10.257] ..$ ...future.FUN: 1591s [00:53:10.257] ..$ x_FUN : 1591s [00:53:10.257] ..$ times : 1591s [00:53:10.257] ..$ stopf : 1591s [00:53:10.257] ..$ stop_if_not : 1591s [00:53:10.257] ..$ dim : 1591s [00:53:10.257] ..$ valid_types : 1591s [00:53:10.257] ..$ ... : 1591s [00:53:10.257] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1591s [00:53:10.257] - attr(*, "resolved")= logi FALSE 1591s [00:53:10.257] - attr(*, "total_size")= num 94264 1591s [00:53:10.268] Packages to be attached in all futures: [n=1] ‘future.apply’ 1591s [00:53:10.268] getGlobalsAndPackagesXApply() ... DONE 1591s [00:53:10.269] Number of futures (= number of chunks): 1 1591s [00:53:10.269] Launching 1 futures (chunks) ... 1591s [00:53:10.269] Chunk #1 of 1 ... 1591s [00:53:10.269] - Finding globals in 'X' for chunk #1 ... 1591s [00:53:10.270] getGlobalsAndPackages() ... 1591s [00:53:10.270] Searching for globals... 1591s [00:53:10.270] 1591s [00:53:10.271] Searching for globals ... DONE 1591s [00:53:10.271] - globals: [0] 1591s [00:53:10.271] getGlobalsAndPackages() ... DONE 1591s [00:53:10.271] + additional globals found: [n=0] 1591s [00:53:10.271] + additional namespaces needed: [n=0] 1591s [00:53:10.271] - Finding globals in 'X' for chunk #1 ... DONE 1591s [00:53:10.272] - seeds: 1591s [00:53:10.272] - All globals exported: [n=11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1591s [00:53:10.272] getGlobalsAndPackages() ... 1591s [00:53:10.272] - globals passed as-is: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1591s [00:53:10.272] Resolving globals: FALSE 1591s [00:53:10.273] Tweak future expression to call with '...' arguments ... 1591s [00:53:10.273] { 1591s [00:53:10.273] do.call(function(...) { 1591s [00:53:10.273] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1591s [00:53:10.273] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1591s [00:53:10.273] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1591s [00:53:10.273] on.exit(options(oopts), add = TRUE) 1591s [00:53:10.273] } 1591s [00:53:10.273] { 1591s [00:53:10.273] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1591s [00:53:10.273] ...future.X_jj <- ...future.elements_ii[[jj]] 1591s [00:53:10.273] ...future.FUN(...future.X_jj, ...) 1591s [00:53:10.273] }) 1591s [00:53:10.273] } 1591s [00:53:10.273] }, args = future.call.arguments) 1591s [00:53:10.273] } 1591s [00:53:10.273] Tweak future expression to call with '...' arguments ... DONE 1591s [00:53:10.274] - globals: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1591s [00:53:10.274] - packages: [1] ‘future.apply’ 1591s [00:53:10.274] getGlobalsAndPackages() ... DONE 1591s [00:53:10.275] run() for ‘Future’ ... 1591s [00:53:10.275] - state: ‘created’ 1591s [00:53:10.275] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1591s [00:53:10.279] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1591s [00:53:10.279] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1591s [00:53:10.279] - Field: ‘label’ 1591s [00:53:10.279] - Field: ‘local’ 1591s [00:53:10.280] - Field: ‘owner’ 1591s [00:53:10.280] - Field: ‘envir’ 1591s [00:53:10.280] - Field: ‘packages’ 1591s [00:53:10.280] - Field: ‘gc’ 1591s [00:53:10.280] - Field: ‘conditions’ 1591s [00:53:10.280] - Field: ‘expr’ 1591s [00:53:10.281] - Field: ‘uuid’ 1591s [00:53:10.281] - Field: ‘seed’ 1591s [00:53:10.281] - Field: ‘version’ 1591s [00:53:10.281] - Field: ‘result’ 1591s [00:53:10.281] - Field: ‘asynchronous’ 1591s [00:53:10.281] - Field: ‘calls’ 1591s [00:53:10.282] - Field: ‘globals’ 1591s [00:53:10.282] - Field: ‘stdout’ 1591s [00:53:10.282] - Field: ‘earlySignal’ 1591s [00:53:10.282] - Field: ‘lazy’ 1591s [00:53:10.282] - Field: ‘state’ 1591s [00:53:10.283] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1591s [00:53:10.283] - Launch lazy future ... 1591s [00:53:10.283] Packages needed by the future expression (n = 1): ‘future.apply’ 1591s [00:53:10.283] Packages needed by future strategies (n = 0): 1591s [00:53:10.284] { 1591s [00:53:10.284] { 1591s [00:53:10.284] { 1591s [00:53:10.284] ...future.startTime <- base::Sys.time() 1591s [00:53:10.284] { 1591s [00:53:10.284] { 1591s [00:53:10.284] { 1591s [00:53:10.284] { 1591s [00:53:10.284] base::local({ 1591s [00:53:10.284] has_future <- base::requireNamespace("future", 1591s [00:53:10.284] quietly = TRUE) 1591s [00:53:10.284] if (has_future) { 1591s [00:53:10.284] ns <- base::getNamespace("future") 1591s [00:53:10.284] version <- ns[[".package"]][["version"]] 1591s [00:53:10.284] if (is.null(version)) 1591s [00:53:10.284] version <- utils::packageVersion("future") 1591s [00:53:10.284] } 1591s [00:53:10.284] else { 1591s [00:53:10.284] version <- NULL 1591s [00:53:10.284] } 1591s [00:53:10.284] if (!has_future || version < "1.8.0") { 1591s [00:53:10.284] info <- base::c(r_version = base::gsub("R version ", 1591s [00:53:10.284] "", base::R.version$version.string), 1591s [00:53:10.284] platform = base::sprintf("%s (%s-bit)", 1591s [00:53:10.284] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1591s [00:53:10.284] os = base::paste(base::Sys.info()[base::c("sysname", 1591s [00:53:10.284] "release", "version")], collapse = " "), 1591s [00:53:10.284] hostname = base::Sys.info()[["nodename"]]) 1591s [00:53:10.284] info <- base::sprintf("%s: %s", base::names(info), 1591s [00:53:10.284] info) 1591s [00:53:10.284] info <- base::paste(info, collapse = "; ") 1591s [00:53:10.284] if (!has_future) { 1591s [00:53:10.284] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1591s [00:53:10.284] info) 1591s [00:53:10.284] } 1591s [00:53:10.284] else { 1591s [00:53:10.284] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1591s [00:53:10.284] info, version) 1591s [00:53:10.284] } 1591s [00:53:10.284] base::stop(msg) 1591s [00:53:10.284] } 1591s [00:53:10.284] }) 1591s [00:53:10.284] } 1591s [00:53:10.284] base::local({ 1591s [00:53:10.284] for (pkg in "future.apply") { 1591s [00:53:10.284] base::loadNamespace(pkg) 1591s [00:53:10.284] base::library(pkg, character.only = TRUE) 1591s [00:53:10.284] } 1591s [00:53:10.284] }) 1591s [00:53:10.284] } 1591s [00:53:10.284] options(future.plan = NULL) 1591s [00:53:10.284] Sys.unsetenv("R_FUTURE_PLAN") 1591s [00:53:10.284] future::plan("default", .cleanup = FALSE, .init = FALSE) 1591s [00:53:10.284] } 1591s [00:53:10.284] ...future.workdir <- getwd() 1591s [00:53:10.284] } 1591s [00:53:10.284] ...future.oldOptions <- base::as.list(base::.Options) 1591s [00:53:10.284] ...future.oldEnvVars <- base::Sys.getenv() 1591s [00:53:10.284] } 1591s [00:53:10.284] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1591s [00:53:10.284] future.globals.maxSize = NULL, future.globals.method = NULL, 1591s [00:53:10.284] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1591s [00:53:10.284] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1591s [00:53:10.284] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1591s [00:53:10.284] future.stdout.windows.reencode = NULL, width = 80L) 1591s [00:53:10.284] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1591s [00:53:10.284] base::names(...future.oldOptions)) 1591s [00:53:10.284] } 1591s [00:53:10.284] if (FALSE) { 1591s [00:53:10.284] } 1591s [00:53:10.284] else { 1591s [00:53:10.284] if (TRUE) { 1591s [00:53:10.284] ...future.stdout <- base::rawConnection(base::raw(0L), 1591s [00:53:10.284] open = "w") 1591s [00:53:10.284] } 1591s [00:53:10.284] else { 1591s [00:53:10.284] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1591s [00:53:10.284] windows = "NUL", "/dev/null"), open = "w") 1591s [00:53:10.284] } 1591s [00:53:10.284] base::sink(...future.stdout, type = "output", split = FALSE) 1591s [00:53:10.284] base::on.exit(if (!base::is.null(...future.stdout)) { 1591s [00:53:10.284] base::sink(type = "output", split = FALSE) 1591s [00:53:10.284] base::close(...future.stdout) 1591s [00:53:10.284] }, add = TRUE) 1591s [00:53:10.284] } 1591s [00:53:10.284] ...future.frame <- base::sys.nframe() 1591s [00:53:10.284] ...future.conditions <- base::list() 1591s [00:53:10.284] ...future.rng <- base::globalenv()$.Random.seed 1591s [00:53:10.284] if (FALSE) { 1591s [00:53:10.284] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1591s [00:53:10.284] "...future.value", "...future.globalenv.names", ".Random.seed") 1591s [00:53:10.284] } 1591s [00:53:10.284] ...future.result <- base::tryCatch({ 1591s [00:53:10.284] base::withCallingHandlers({ 1591s [00:53:10.284] ...future.value <- base::withVisible(base::local({ 1591s [00:53:10.284] do.call(function(...) { 1591s [00:53:10.284] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1591s [00:53:10.284] if (!identical(...future.globals.maxSize.org, 1591s [00:53:10.284] ...future.globals.maxSize)) { 1591s [00:53:10.284] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1591s [00:53:10.284] on.exit(options(oopts), add = TRUE) 1591s [00:53:10.284] } 1591s [00:53:10.284] { 1591s [00:53:10.284] lapply(seq_along(...future.elements_ii), 1591s [00:53:10.284] FUN = function(jj) { 1591s [00:53:10.284] ...future.X_jj <- ...future.elements_ii[[jj]] 1591s [00:53:10.284] ...future.FUN(...future.X_jj, ...) 1591s [00:53:10.284] }) 1591s [00:53:10.284] } 1591s [00:53:10.284] }, args = future.call.arguments) 1591s [00:53:10.284] })) 1591s [00:53:10.284] future::FutureResult(value = ...future.value$value, 1591s [00:53:10.284] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1591s [00:53:10.284] ...future.rng), globalenv = if (FALSE) 1591s [00:53:10.284] list(added = base::setdiff(base::names(base::.GlobalEnv), 1591s [00:53:10.284] ...future.globalenv.names)) 1591s [00:53:10.284] else NULL, started = ...future.startTime, version = "1.8") 1591s [00:53:10.284] }, condition = base::local({ 1591s [00:53:10.284] c <- base::c 1591s [00:53:10.284] inherits <- base::inherits 1591s [00:53:10.284] invokeRestart <- base::invokeRestart 1591s [00:53:10.284] length <- base::length 1591s [00:53:10.284] list <- base::list 1591s [00:53:10.284] seq.int <- base::seq.int 1591s [00:53:10.284] signalCondition <- base::signalCondition 1591s [00:53:10.284] sys.calls <- base::sys.calls 1591s [00:53:10.284] `[[` <- base::`[[` 1591s [00:53:10.284] `+` <- base::`+` 1591s [00:53:10.284] `<<-` <- base::`<<-` 1591s [00:53:10.284] sysCalls <- function(calls = sys.calls(), from = 1L) { 1591s [00:53:10.284] calls[seq.int(from = from + 12L, to = length(calls) - 1591s [00:53:10.284] 3L)] 1591s [00:53:10.284] } 1591s [00:53:10.284] function(cond) { 1591s [00:53:10.284] is_error <- inherits(cond, "error") 1591s [00:53:10.284] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1591s [00:53:10.284] NULL) 1591s [00:53:10.284] if (is_error) { 1591s [00:53:10.284] sessionInformation <- function() { 1591s [00:53:10.284] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1591s [00:53:10.284] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1591s [00:53:10.284] search = base::search(), system = base::Sys.info()) 1591s [00:53:10.284] } 1591s [00:53:10.284] ...future.conditions[[length(...future.conditions) + 1591s [00:53:10.284] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1591s [00:53:10.284] cond$call), session = sessionInformation(), 1591s [00:53:10.284] timestamp = base::Sys.time(), signaled = 0L) 1591s [00:53:10.284] signalCondition(cond) 1591s [00:53:10.284] } 1591s [00:53:10.284] else if (!ignore && TRUE && inherits(cond, c("condition", 1591s [00:53:10.284] "immediateCondition"))) { 1591s [00:53:10.284] signal <- TRUE && inherits(cond, "immediateCondition") 1591s [00:53:10.284] ...future.conditions[[length(...future.conditions) + 1591s [00:53:10.284] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1591s [00:53:10.284] if (TRUE && !signal) { 1591s [00:53:10.284] muffleCondition <- function (cond, pattern = "^muffle") 1591s [00:53:10.284] { 1591s [00:53:10.284] inherits <- base::inherits 1591s [00:53:10.284] invokeRestart <- base::invokeRestart 1591s [00:53:10.284] is.null <- base::is.null 1591s [00:53:10.284] muffled <- FALSE 1591s [00:53:10.284] if (inherits(cond, "message")) { 1591s [00:53:10.284] muffled <- grepl(pattern, "muffleMessage") 1591s [00:53:10.284] if (muffled) 1591s [00:53:10.284] invokeRestart("muffleMessage") 1591s [00:53:10.284] } 1591s [00:53:10.284] else if (inherits(cond, "warning")) { 1591s [00:53:10.284] muffled <- grepl(pattern, "muffleWarning") 1591s [00:53:10.284] if (muffled) 1591s [00:53:10.284] invokeRestart("muffleWarning") 1591s [00:53:10.284] } 1591s [00:53:10.284] else if (inherits(cond, "condition")) { 1591s [00:53:10.284] if (!is.null(pattern)) { 1591s [00:53:10.284] computeRestarts <- base::computeRestarts 1591s [00:53:10.284] grepl <- base::grepl 1591s [00:53:10.284] restarts <- computeRestarts(cond) 1591s [00:53:10.284] for (restart in restarts) { 1591s [00:53:10.284] name <- restart$name 1591s [00:53:10.284] if (is.null(name)) 1591s [00:53:10.284] next 1591s [00:53:10.284] if (!grepl(pattern, name)) 1591s [00:53:10.284] next 1591s [00:53:10.284] invokeRestart(restart) 1591s [00:53:10.284] muffled <- TRUE 1591s [00:53:10.284] break 1591s [00:53:10.284] } 1591s [00:53:10.284] } 1591s [00:53:10.284] } 1591s [00:53:10.284] invisible(muffled) 1591s [00:53:10.284] } 1591s [00:53:10.284] muffleCondition(cond, pattern = "^muffle") 1591s [00:53:10.284] } 1591s [00:53:10.284] } 1591s [00:53:10.284] else { 1591s [00:53:10.284] if (TRUE) { 1591s [00:53:10.284] muffleCondition <- function (cond, pattern = "^muffle") 1591s [00:53:10.284] { 1591s [00:53:10.284] inherits <- base::inherits 1591s [00:53:10.284] invokeRestart <- base::invokeRestart 1591s [00:53:10.284] is.null <- base::is.null 1591s [00:53:10.284] muffled <- FALSE 1591s [00:53:10.284] if (inherits(cond, "message")) { 1591s [00:53:10.284] muffled <- grepl(pattern, "muffleMessage") 1591s [00:53:10.284] if (muffled) 1591s [00:53:10.284] invokeRestart("muffleMessage") 1591s [00:53:10.284] } 1591s [00:53:10.284] else if (inherits(cond, "warning")) { 1591s [00:53:10.284] muffled <- grepl(pattern, "muffleWarning") 1591s [00:53:10.284] if (muffled) 1591s [00:53:10.284] invokeRestart("muffleWarning") 1591s [00:53:10.284] } 1591s [00:53:10.284] else if (inherits(cond, "condition")) { 1591s [00:53:10.284] if (!is.null(pattern)) { 1591s [00:53:10.284] computeRestarts <- base::computeRestarts 1591s [00:53:10.284] grepl <- base::grepl 1591s [00:53:10.284] restarts <- computeRestarts(cond) 1591s [00:53:10.284] for (restart in restarts) { 1591s [00:53:10.284] name <- restart$name 1591s [00:53:10.284] if (is.null(name)) 1591s [00:53:10.284] next 1591s [00:53:10.284] if (!grepl(pattern, name)) 1591s [00:53:10.284] next 1591s [00:53:10.284] invokeRestart(restart) 1591s [00:53:10.284] muffled <- TRUE 1591s [00:53:10.284] break 1591s [00:53:10.284] } 1591s [00:53:10.284] } 1591s [00:53:10.284] } 1591s [00:53:10.284] invisible(muffled) 1591s [00:53:10.284] } 1591s [00:53:10.284] muffleCondition(cond, pattern = "^muffle") 1591s [00:53:10.284] } 1591s [00:53:10.284] } 1591s [00:53:10.284] } 1591s [00:53:10.284] })) 1591s [00:53:10.284] }, error = function(ex) { 1591s [00:53:10.284] base::structure(base::list(value = NULL, visible = NULL, 1591s [00:53:10.284] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1591s [00:53:10.284] ...future.rng), started = ...future.startTime, 1591s [00:53:10.284] finished = Sys.time(), session_uuid = NA_character_, 1591s [00:53:10.284] version = "1.8"), class = "FutureResult") 1591s [00:53:10.284] }, finally = { 1591s [00:53:10.284] if (!identical(...future.workdir, getwd())) 1591s [00:53:10.284] setwd(...future.workdir) 1591s [00:53:10.284] { 1591s [00:53:10.284] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1591s [00:53:10.284] ...future.oldOptions$nwarnings <- NULL 1591s [00:53:10.284] } 1591s [00:53:10.284] base::options(...future.oldOptions) 1591s [00:53:10.284] if (.Platform$OS.type == "windows") { 1591s [00:53:10.284] old_names <- names(...future.oldEnvVars) 1591s [00:53:10.284] envs <- base::Sys.getenv() 1591s [00:53:10.284] names <- names(envs) 1591s [00:53:10.284] common <- intersect(names, old_names) 1591s [00:53:10.284] added <- setdiff(names, old_names) 1591s [00:53:10.284] removed <- setdiff(old_names, names) 1591s [00:53:10.284] changed <- common[...future.oldEnvVars[common] != 1591s [00:53:10.284] envs[common]] 1591s [00:53:10.284] NAMES <- toupper(changed) 1591s [00:53:10.284] args <- list() 1591s [00:53:10.284] for (kk in seq_along(NAMES)) { 1591s [00:53:10.284] name <- changed[[kk]] 1591s [00:53:10.284] NAME <- NAMES[[kk]] 1591s [00:53:10.284] if (name != NAME && is.element(NAME, old_names)) 1591s [00:53:10.284] next 1591s [00:53:10.284] args[[name]] <- ...future.oldEnvVars[[name]] 1591s [00:53:10.284] } 1591s [00:53:10.284] NAMES <- toupper(added) 1591s [00:53:10.284] for (kk in seq_along(NAMES)) { 1591s [00:53:10.284] name <- added[[kk]] 1591s [00:53:10.284] NAME <- NAMES[[kk]] 1591s [00:53:10.284] if (name != NAME && is.element(NAME, old_names)) 1591s [00:53:10.284] next 1591s [00:53:10.284] args[[name]] <- "" 1591s [00:53:10.284] } 1591s [00:53:10.284] NAMES <- toupper(removed) 1591s [00:53:10.284] for (kk in seq_along(NAMES)) { 1591s [00:53:10.284] name <- removed[[kk]] 1591s [00:53:10.284] NAME <- NAMES[[kk]] 1591s [00:53:10.284] if (name != NAME && is.element(NAME, old_names)) 1591s [00:53:10.284] next 1591s [00:53:10.284] args[[name]] <- ...future.oldEnvVars[[name]] 1591s [00:53:10.284] } 1591s [00:53:10.284] if (length(args) > 0) 1591s [00:53:10.284] base::do.call(base::Sys.setenv, args = args) 1591s [00:53:10.284] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1591s [00:53:10.284] } 1591s [00:53:10.284] else { 1591s [00:53:10.284] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1591s [00:53:10.284] } 1591s [00:53:10.284] { 1591s [00:53:10.284] if (base::length(...future.futureOptionsAdded) > 1591s [00:53:10.284] 0L) { 1591s [00:53:10.284] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1591s [00:53:10.284] base::names(opts) <- ...future.futureOptionsAdded 1591s [00:53:10.284] base::options(opts) 1591s [00:53:10.284] } 1591s [00:53:10.284] { 1591s [00:53:10.284] { 1591s [00:53:10.284] NULL 1591s [00:53:10.284] RNGkind("Mersenne-Twister") 1591s [00:53:10.284] base::rm(list = ".Random.seed", envir = base::globalenv(), 1591s [00:53:10.284] inherits = FALSE) 1591s [00:53:10.284] } 1591s [00:53:10.284] options(future.plan = NULL) 1591s [00:53:10.284] if (is.na(NA_character_)) 1591s [00:53:10.284] Sys.unsetenv("R_FUTURE_PLAN") 1591s [00:53:10.284] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1591s [00:53:10.284] future::plan(list(function (..., workers = availableCores(), 1591s [00:53:10.284] lazy = FALSE, rscript_libs = .libPaths(), 1591s [00:53:10.284] envir = parent.frame()) 1591s [00:53:10.284] { 1591s [00:53:10.284] if (is.function(workers)) 1591s [00:53:10.284] workers <- workers() 1591s [00:53:10.284] workers <- structure(as.integer(workers), 1591s [00:53:10.284] class = class(workers)) 1591s [00:53:10.284] stop_if_not(length(workers) == 1, is.finite(workers), 1591s [00:53:10.284] workers >= 1) 1591s [00:53:10.284] if (workers == 1L && !inherits(workers, "AsIs")) { 1591s [00:53:10.284] return(sequential(..., lazy = TRUE, envir = envir)) 1591s [00:53:10.284] } 1591s [00:53:10.284] future <- MultisessionFuture(..., workers = workers, 1591s [00:53:10.284] lazy = lazy, rscript_libs = rscript_libs, 1591s [00:53:10.284] envir = envir) 1591s [00:53:10.284] if (!future$lazy) 1591s [00:53:10.284] future <- run(future) 1591s [00:53:10.284] invisible(future) 1591s [00:53:10.284] }), .cleanup = FALSE, .init = FALSE) 1591s [00:53:10.284] } 1591s [00:53:10.284] } 1591s [00:53:10.284] } 1591s [00:53:10.284] }) 1591s [00:53:10.284] if (TRUE) { 1591s [00:53:10.284] base::sink(type = "output", split = FALSE) 1591s [00:53:10.284] if (TRUE) { 1591s [00:53:10.284] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1591s [00:53:10.284] } 1591s [00:53:10.284] else { 1591s [00:53:10.284] ...future.result["stdout"] <- base::list(NULL) 1591s [00:53:10.284] } 1591s [00:53:10.284] base::close(...future.stdout) 1591s [00:53:10.284] ...future.stdout <- NULL 1591s [00:53:10.284] } 1591s [00:53:10.284] ...future.result$conditions <- ...future.conditions 1591s [00:53:10.284] ...future.result$finished <- base::Sys.time() 1591s [00:53:10.284] ...future.result 1591s [00:53:10.284] } 1591s [00:53:10.290] assign_globals() ... 1591s [00:53:10.290] List of 11 1591s [00:53:10.290] $ ...future.FUN :function (x, ...) 1591s [00:53:10.290] $ x_FUN :function (x) 1591s [00:53:10.290] $ times : int 1 1591s [00:53:10.290] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1591s [00:53:10.290] $ stop_if_not :function (...) 1591s [00:53:10.290] $ dim : NULL 1591s [00:53:10.290] $ valid_types : chr [1:2] "logical" "integer" 1591s [00:53:10.290] $ future.call.arguments : list() 1591s [00:53:10.290] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1591s [00:53:10.290] $ ...future.elements_ii :List of 3 1591s [00:53:10.290] ..$ a: num 1 1591s [00:53:10.290] ..$ b: num 2 1591s [00:53:10.290] ..$ c: num 3 1591s [00:53:10.290] $ ...future.seeds_ii : NULL 1591s [00:53:10.290] $ ...future.globals.maxSize: NULL 1591s [00:53:10.290] - attr(*, "where")=List of 11 1591s [00:53:10.290] ..$ ...future.FUN : 1591s [00:53:10.290] ..$ x_FUN : 1591s [00:53:10.290] ..$ times : 1591s [00:53:10.290] ..$ stopf : 1591s [00:53:10.290] ..$ stop_if_not : 1591s [00:53:10.290] ..$ dim : 1591s [00:53:10.290] ..$ valid_types : 1591s [00:53:10.290] ..$ future.call.arguments : 1591s [00:53:10.290] ..$ ...future.elements_ii : 1591s [00:53:10.290] ..$ ...future.seeds_ii : 1591s [00:53:10.290] ..$ ...future.globals.maxSize: 1591s [00:53:10.290] - attr(*, "resolved")= logi FALSE 1591s [00:53:10.290] - attr(*, "total_size")= num 94264 1591s [00:53:10.290] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1591s [00:53:10.290] - attr(*, "already-done")= logi TRUE 1591s [00:53:10.305] - copied ‘...future.FUN’ to environment 1591s [00:53:10.305] - copied ‘x_FUN’ to environment 1591s [00:53:10.305] - copied ‘times’ to environment 1591s [00:53:10.306] - copied ‘stopf’ to environment 1591s [00:53:10.306] - copied ‘stop_if_not’ to environment 1591s [00:53:10.306] - copied ‘dim’ to environment 1591s [00:53:10.306] - copied ‘valid_types’ to environment 1591s [00:53:10.306] - copied ‘future.call.arguments’ to environment 1591s [00:53:10.306] - copied ‘...future.elements_ii’ to environment 1591s [00:53:10.307] - copied ‘...future.seeds_ii’ to environment 1591s [00:53:10.307] - copied ‘...future.globals.maxSize’ to environment 1591s [00:53:10.307] assign_globals() ... done 1591s [00:53:10.307] plan(): Setting new future strategy stack: 1591s [00:53:10.308] List of future strategies: 1591s [00:53:10.308] 1. sequential: 1591s [00:53:10.308] - args: function (..., envir = parent.frame()) 1591s [00:53:10.308] - tweaked: FALSE 1591s [00:53:10.308] - call: NULL 1591s [00:53:10.308] plan(): nbrOfWorkers() = 1 1591s [00:53:10.309] plan(): Setting new future strategy stack: 1591s [00:53:10.309] List of future strategies: 1591s [00:53:10.309] 1. multisession: 1591s [00:53:10.309] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1591s [00:53:10.309] - tweaked: FALSE 1591s [00:53:10.309] - call: plan(strategy) 1591s [00:53:10.313] plan(): nbrOfWorkers() = 1 1591s [00:53:10.313] SequentialFuture started (and completed) 1591s [00:53:10.313] - Launch lazy future ... done 1591s [00:53:10.313] run() for ‘SequentialFuture’ ... done 1591s [00:53:10.313] Created future: 1591s [00:53:10.314] SequentialFuture: 1591s [00:53:10.314] Label: ‘future_vapply-1’ 1591s [00:53:10.314] Expression: 1591s [00:53:10.314] { 1591s [00:53:10.314] do.call(function(...) { 1591s [00:53:10.314] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1591s [00:53:10.314] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1591s [00:53:10.314] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1591s [00:53:10.314] on.exit(options(oopts), add = TRUE) 1591s [00:53:10.314] } 1591s [00:53:10.314] { 1591s [00:53:10.314] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1591s [00:53:10.314] ...future.X_jj <- ...future.elements_ii[[jj]] 1591s [00:53:10.314] ...future.FUN(...future.X_jj, ...) 1591s [00:53:10.314] }) 1591s [00:53:10.314] } 1591s [00:53:10.314] }, args = future.call.arguments) 1591s [00:53:10.314] } 1591s [00:53:10.314] Lazy evaluation: FALSE 1591s [00:53:10.314] Asynchronous evaluation: FALSE 1591s [00:53:10.314] Local evaluation: TRUE 1591s [00:53:10.314] Environment: R_GlobalEnv 1591s [00:53:10.314] Capture standard output: TRUE 1591s [00:53:10.314] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1591s [00:53:10.314] Globals: 11 objects totaling 92.22 KiB (function ‘...future.FUN’ of 21.22 KiB, function ‘x_FUN’ of 56 bytes, integer ‘times’ of 56 bytes, function ‘stopf’ of 26.43 KiB, function ‘stop_if_not’ of 44.12 KiB, ...) 1591s [00:53:10.314] Packages: 1 packages (‘future.apply’) 1591s [00:53:10.314] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1591s [00:53:10.314] Resolved: TRUE 1591s [00:53:10.314] Value: 168 bytes of class ‘list’ 1591s [00:53:10.314] Early signaling: FALSE 1591s [00:53:10.314] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1591s [00:53:10.314] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1591s [00:53:10.316] Chunk #1 of 1 ... DONE 1591s [00:53:10.316] Launching 1 futures (chunks) ... DONE 1591s [00:53:10.316] Resolving 1 futures (chunks) ... 1591s [00:53:10.316] resolve() on list ... 1591s [00:53:10.316] recursive: 0 1591s [00:53:10.316] length: 1 1591s [00:53:10.316] 1591s [00:53:10.317] resolved() for ‘SequentialFuture’ ... 1591s [00:53:10.317] - state: ‘finished’ 1591s [00:53:10.317] - run: TRUE 1591s [00:53:10.317] - result: ‘FutureResult’ 1591s [00:53:10.317] resolved() for ‘SequentialFuture’ ... done 1591s [00:53:10.318] Future #1 1591s [00:53:10.318] signalConditionsASAP(SequentialFuture, pos=1) ... 1591s [00:53:10.318] - nx: 1 1591s [00:53:10.318] - relay: TRUE 1591s [00:53:10.318] - stdout: TRUE 1591s [00:53:10.318] - signal: TRUE 1591s [00:53:10.319] - resignal: FALSE 1591s [00:53:10.319] - force: TRUE 1591s [00:53:10.319] - relayed: [n=1] FALSE 1591s [00:53:10.319] - queued futures: [n=1] FALSE 1591s [00:53:10.319] - until=1 1591s [00:53:10.319] - relaying element #1 1591s [00:53:10.320] - relayed: [n=1] TRUE 1591s [00:53:10.320] - queued futures: [n=1] TRUE 1591s [00:53:10.320] signalConditionsASAP(SequentialFuture, pos=1) ... done 1591s [00:53:10.320] length: 0 (resolved future 1) 1591s [00:53:10.320] Relaying remaining futures 1591s [00:53:10.320] signalConditionsASAP(NULL, pos=0) ... 1591s [00:53:10.321] - nx: 1 1591s [00:53:10.321] - relay: TRUE 1591s [00:53:10.321] - stdout: TRUE 1591s [00:53:10.321] - signal: TRUE 1591s [00:53:10.321] - resignal: FALSE 1591s [00:53:10.321] - force: TRUE 1591s [00:53:10.321] - relayed: [n=1] TRUE 1591s [00:53:10.322] - queued futures: [n=1] TRUE 1591s - flush all 1591s [00:53:10.322] - relayed: [n=1] TRUE 1591s [00:53:10.322] - queued futures: [n=1] TRUE 1591s [00:53:10.322] signalConditionsASAP(NULL, pos=0) ... done 1591s [00:53:10.322] resolve() on list ... DONE 1591s [00:53:10.322] - Number of value chunks collected: 1 1591s [00:53:10.323] Resolving 1 futures (chunks) ... DONE 1591s [00:53:10.323] Reducing values from 1 chunks ... 1591s [00:53:10.323] - Number of values collected after concatenation: 3 1591s [00:53:10.323] - Number of values expected: 3 1591s [00:53:10.323] Reducing values from 1 chunks ... DONE 1591s [00:53:10.323] future_lapply() ... DONE 1591s - exceptions ... 1591s [00:53:10.324] future_lapply() ... 1591s [00:53:10.331] Number of chunks: 1 1591s [00:53:10.331] getGlobalsAndPackagesXApply() ... 1591s [00:53:10.331] - future.globals: TRUE 1591s [00:53:10.332] getGlobalsAndPackages() ... 1591s [00:53:10.332] Searching for globals... 1591s [00:53:10.341] - globals found: [16] ‘FUN’, ‘{’, ‘<-’, ‘x_FUN’, ‘if’, ‘!=’, ‘length’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘all’, ‘==’, ‘dim’, ‘%in%’, ‘typeof’, ‘valid_types’ 1591s [00:53:10.342] Searching for globals ... DONE 1591s [00:53:10.342] Resolving globals: FALSE 1591s [00:53:10.344] The total size of the 7 globals is 92.90 KiB (95128 bytes) 1591s [00:53:10.344] The total size of the 7 globals exported for future expression (‘FUN()’) is 92.90 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘stop_if_not’ (44.12 KiB of class ‘function’), ‘stopf’ (26.43 KiB of class ‘function’) and ‘FUN’ (21.22 KiB of class ‘function’) 1591s [00:53:10.345] - globals: [7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1591s [00:53:10.345] - packages: [1] ‘future.apply’ 1591s [00:53:10.345] getGlobalsAndPackages() ... DONE 1591s [00:53:10.345] - globals found/used: [n=7] ‘FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’ 1591s [00:53:10.345] - needed namespaces: [n=1] ‘future.apply’ 1591s [00:53:10.346] Finding globals ... DONE 1591s [00:53:10.346] - use_args: TRUE 1591s [00:53:10.346] - Getting '...' globals ... 1591s [00:53:10.346] resolve() on list ... 1591s [00:53:10.347] recursive: 0 1591s [00:53:10.347] length: 1 1591s [00:53:10.347] elements: ‘...’ 1591s [00:53:10.347] length: 0 (resolved future 1) 1591s [00:53:10.347] resolve() on list ... DONE 1591s [00:53:10.347] - '...' content: [n=0] 1591s [00:53:10.348] List of 1 1591s [00:53:10.348] $ ...: list() 1591s [00:53:10.348] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1591s [00:53:10.348] - attr(*, "where")=List of 1 1591s [00:53:10.348] ..$ ...: 1591s [00:53:10.348] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1591s [00:53:10.348] - attr(*, "resolved")= logi TRUE 1591s [00:53:10.348] - attr(*, "total_size")= num NA 1591s [00:53:10.352] - Getting '...' globals ... DONE 1591s [00:53:10.353] Globals to be used in all futures (chunks): [n=8] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’ 1591s [00:53:10.354] List of 8 1591s [00:53:10.354] $ ...future.FUN:function (x, ...) 1591s [00:53:10.354] $ x_FUN :function (x) 1591s [00:53:10.354] $ times : int 2 1591s [00:53:10.354] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1591s [00:53:10.354] $ stop_if_not :function (...) 1591s [00:53:10.354] $ dim : NULL 1591s [00:53:10.354] $ valid_types : chr [1:3] "logical" "integer" "double" 1591s [00:53:10.354] $ ... : list() 1591s [00:53:10.354] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1591s [00:53:10.354] - attr(*, "where")=List of 8 1591s [00:53:10.354] ..$ ...future.FUN: 1591s [00:53:10.354] ..$ x_FUN : 1591s [00:53:10.354] ..$ times : 1591s [00:53:10.354] ..$ stopf : 1591s [00:53:10.354] ..$ stop_if_not : 1591s [00:53:10.354] ..$ dim : 1591s [00:53:10.354] ..$ valid_types : 1591s [00:53:10.354] ..$ ... : 1591s [00:53:10.354] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1591s [00:53:10.354] - attr(*, "resolved")= logi FALSE 1591s [00:53:10.354] - attr(*, "total_size")= num 95128 1591s [00:53:10.375] Packages to be attached in all futures: [n=1] ‘future.apply’ 1591s [00:53:10.376] getGlobalsAndPackagesXApply() ... DONE 1591s [00:53:10.377] Number of futures (= number of chunks): 1 1591s [00:53:10.378] Launching 1 futures (chunks) ... 1591s [00:53:10.378] Chunk #1 of 1 ... 1591s [00:53:10.378] - Finding globals in 'X' for chunk #1 ... 1591s [00:53:10.379] getGlobalsAndPackages() ... 1591s [00:53:10.379] Searching for globals... 1591s [00:53:10.380] 1591s [00:53:10.380] Searching for globals ... DONE 1591s [00:53:10.380] - globals: [0] 1591s [00:53:10.381] getGlobalsAndPackages() ... DONE 1591s [00:53:10.381] + additional globals found: [n=0] 1591s [00:53:10.381] + additional namespaces needed: [n=0] 1591s [00:53:10.381] - Finding globals in 'X' for chunk #1 ... DONE 1591s [00:53:10.382] - seeds: 1591s [00:53:10.382] - All globals exported: [n=11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1591s [00:53:10.382] getGlobalsAndPackages() ... 1591s [00:53:10.382] - globals passed as-is: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1591s [00:53:10.383] Resolving globals: FALSE 1591s [00:53:10.383] Tweak future expression to call with '...' arguments ... 1591s [00:53:10.383] { 1591s [00:53:10.383] do.call(function(...) { 1591s [00:53:10.383] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1591s [00:53:10.383] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1591s [00:53:10.383] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1591s [00:53:10.383] on.exit(options(oopts), add = TRUE) 1591s [00:53:10.383] } 1591s [00:53:10.383] { 1591s [00:53:10.383] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1591s [00:53:10.383] ...future.X_jj <- ...future.elements_ii[[jj]] 1591s [00:53:10.383] ...future.FUN(...future.X_jj, ...) 1591s [00:53:10.383] }) 1591s [00:53:10.383] } 1591s [00:53:10.383] }, args = future.call.arguments) 1591s [00:53:10.383] } 1591s [00:53:10.384] Tweak future expression to call with '...' arguments ... DONE 1591s [00:53:10.385] - globals: [11] ‘...future.FUN’, ‘x_FUN’, ‘times’, ‘stopf’, ‘stop_if_not’, ‘dim’, ‘valid_types’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1591s [00:53:10.386] - packages: [1] ‘future.apply’ 1591s [00:53:10.386] getGlobalsAndPackages() ... DONE 1591s [00:53:10.386] run() for ‘Future’ ... 1591s [00:53:10.386] - state: ‘created’ 1591s [00:53:10.387] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1591s [00:53:10.391] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1591s [00:53:10.391] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1591s [00:53:10.391] - Field: ‘label’ 1591s [00:53:10.391] - Field: ‘local’ 1591s [00:53:10.392] - Field: ‘owner’ 1591s [00:53:10.392] - Field: ‘envir’ 1591s [00:53:10.392] - Field: ‘packages’ 1591s [00:53:10.392] - Field: ‘gc’ 1591s [00:53:10.393] - Field: ‘conditions’ 1591s [00:53:10.393] - Field: ‘expr’ 1591s [00:53:10.393] - Field: ‘uuid’ 1591s [00:53:10.393] - Field: ‘seed’ 1591s [00:53:10.393] - Field: ‘version’ 1591s [00:53:10.394] - Field: ‘result’ 1591s [00:53:10.394] - Field: ‘asynchronous’ 1591s [00:53:10.394] - Field: ‘calls’ 1591s [00:53:10.395] - Field: ‘globals’ 1591s [00:53:10.395] - Field: ‘stdout’ 1591s [00:53:10.395] - Field: ‘earlySignal’ 1591s [00:53:10.395] - Field: ‘lazy’ 1591s [00:53:10.395] - Field: ‘state’ 1591s [00:53:10.396] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1591s [00:53:10.396] - Launch lazy future ... 1591s [00:53:10.396] Packages needed by the future expression (n = 1): ‘future.apply’ 1591s [00:53:10.396] Packages needed by future strategies (n = 0): 1591s [00:53:10.397] { 1591s [00:53:10.397] { 1591s [00:53:10.397] { 1591s [00:53:10.397] ...future.startTime <- base::Sys.time() 1591s [00:53:10.397] { 1591s [00:53:10.397] { 1591s [00:53:10.397] { 1591s [00:53:10.397] { 1591s [00:53:10.397] base::local({ 1591s [00:53:10.397] has_future <- base::requireNamespace("future", 1591s [00:53:10.397] quietly = TRUE) 1591s [00:53:10.397] if (has_future) { 1591s [00:53:10.397] ns <- base::getNamespace("future") 1591s [00:53:10.397] version <- ns[[".package"]][["version"]] 1591s [00:53:10.397] if (is.null(version)) 1591s [00:53:10.397] version <- utils::packageVersion("future") 1591s [00:53:10.397] } 1591s [00:53:10.397] else { 1591s [00:53:10.397] version <- NULL 1591s [00:53:10.397] } 1591s [00:53:10.397] if (!has_future || version < "1.8.0") { 1591s [00:53:10.397] info <- base::c(r_version = base::gsub("R version ", 1591s [00:53:10.397] "", base::R.version$version.string), 1591s [00:53:10.397] platform = base::sprintf("%s (%s-bit)", 1591s [00:53:10.397] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1591s [00:53:10.397] os = base::paste(base::Sys.info()[base::c("sysname", 1591s [00:53:10.397] "release", "version")], collapse = " "), 1591s [00:53:10.397] hostname = base::Sys.info()[["nodename"]]) 1591s [00:53:10.397] info <- base::sprintf("%s: %s", base::names(info), 1591s [00:53:10.397] info) 1591s [00:53:10.397] info <- base::paste(info, collapse = "; ") 1591s [00:53:10.397] if (!has_future) { 1591s [00:53:10.397] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1591s [00:53:10.397] info) 1591s [00:53:10.397] } 1591s [00:53:10.397] else { 1591s [00:53:10.397] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1591s [00:53:10.397] info, version) 1591s [00:53:10.397] } 1591s [00:53:10.397] base::stop(msg) 1591s [00:53:10.397] } 1591s [00:53:10.397] }) 1591s [00:53:10.397] } 1591s [00:53:10.397] base::local({ 1591s [00:53:10.397] for (pkg in "future.apply") { 1591s [00:53:10.397] base::loadNamespace(pkg) 1591s [00:53:10.397] base::library(pkg, character.only = TRUE) 1591s [00:53:10.397] } 1591s [00:53:10.397] }) 1591s [00:53:10.397] } 1591s [00:53:10.397] options(future.plan = NULL) 1591s [00:53:10.397] Sys.unsetenv("R_FUTURE_PLAN") 1591s [00:53:10.397] future::plan("default", .cleanup = FALSE, .init = FALSE) 1591s [00:53:10.397] } 1591s [00:53:10.397] ...future.workdir <- getwd() 1591s [00:53:10.397] } 1591s [00:53:10.397] ...future.oldOptions <- base::as.list(base::.Options) 1591s [00:53:10.397] ...future.oldEnvVars <- base::Sys.getenv() 1591s [00:53:10.397] } 1591s [00:53:10.397] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1591s [00:53:10.397] future.globals.maxSize = NULL, future.globals.method = NULL, 1591s [00:53:10.397] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1591s [00:53:10.397] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1591s [00:53:10.397] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1591s [00:53:10.397] future.stdout.windows.reencode = NULL, width = 80L) 1591s [00:53:10.397] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1591s [00:53:10.397] base::names(...future.oldOptions)) 1591s [00:53:10.397] } 1591s [00:53:10.397] if (FALSE) { 1591s [00:53:10.397] } 1591s [00:53:10.397] else { 1591s [00:53:10.397] if (TRUE) { 1591s [00:53:10.397] ...future.stdout <- base::rawConnection(base::raw(0L), 1591s [00:53:10.397] open = "w") 1591s [00:53:10.397] } 1591s [00:53:10.397] else { 1591s [00:53:10.397] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1591s [00:53:10.397] windows = "NUL", "/dev/null"), open = "w") 1591s [00:53:10.397] } 1591s [00:53:10.397] base::sink(...future.stdout, type = "output", split = FALSE) 1591s [00:53:10.397] base::on.exit(if (!base::is.null(...future.stdout)) { 1591s [00:53:10.397] base::sink(type = "output", split = FALSE) 1591s [00:53:10.397] base::close(...future.stdout) 1591s [00:53:10.397] }, add = TRUE) 1591s [00:53:10.397] } 1591s [00:53:10.397] ...future.frame <- base::sys.nframe() 1591s [00:53:10.397] ...future.conditions <- base::list() 1591s [00:53:10.397] ...future.rng <- base::globalenv()$.Random.seed 1591s [00:53:10.397] if (FALSE) { 1591s [00:53:10.397] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1591s [00:53:10.397] "...future.value", "...future.globalenv.names", ".Random.seed") 1591s [00:53:10.397] } 1591s [00:53:10.397] ...future.result <- base::tryCatch({ 1591s [00:53:10.397] base::withCallingHandlers({ 1591s [00:53:10.397] ...future.value <- base::withVisible(base::local({ 1591s [00:53:10.397] do.call(function(...) { 1591s [00:53:10.397] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1591s [00:53:10.397] if (!identical(...future.globals.maxSize.org, 1591s [00:53:10.397] ...future.globals.maxSize)) { 1591s [00:53:10.397] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1591s [00:53:10.397] on.exit(options(oopts), add = TRUE) 1591s [00:53:10.397] } 1591s [00:53:10.397] { 1591s [00:53:10.397] lapply(seq_along(...future.elements_ii), 1591s [00:53:10.397] FUN = function(jj) { 1591s [00:53:10.397] ...future.X_jj <- ...future.elements_ii[[jj]] 1591s [00:53:10.397] ...future.FUN(...future.X_jj, ...) 1591s [00:53:10.397] }) 1591s [00:53:10.397] } 1591s [00:53:10.397] }, args = future.call.arguments) 1591s [00:53:10.397] })) 1591s [00:53:10.397] future::FutureResult(value = ...future.value$value, 1591s [00:53:10.397] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1591s [00:53:10.397] ...future.rng), globalenv = if (FALSE) 1591s [00:53:10.397] list(added = base::setdiff(base::names(base::.GlobalEnv), 1591s [00:53:10.397] ...future.globalenv.names)) 1591s [00:53:10.397] else NULL, started = ...future.startTime, version = "1.8") 1591s [00:53:10.397] }, condition = base::local({ 1591s [00:53:10.397] c <- base::c 1591s [00:53:10.397] inherits <- base::inherits 1591s [00:53:10.397] invokeRestart <- base::invokeRestart 1591s [00:53:10.397] length <- base::length 1591s [00:53:10.397] list <- base::list 1591s [00:53:10.397] seq.int <- base::seq.int 1591s [00:53:10.397] signalCondition <- base::signalCondition 1591s [00:53:10.397] sys.calls <- base::sys.calls 1591s [00:53:10.397] `[[` <- base::`[[` 1591s [00:53:10.397] `+` <- base::`+` 1591s [00:53:10.397] `<<-` <- base::`<<-` 1591s [00:53:10.397] sysCalls <- function(calls = sys.calls(), from = 1L) { 1591s [00:53:10.397] calls[seq.int(from = from + 12L, to = length(calls) - 1591s [00:53:10.397] 3L)] 1591s [00:53:10.397] } 1591s [00:53:10.397] function(cond) { 1591s [00:53:10.397] is_error <- inherits(cond, "error") 1591s [00:53:10.397] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1591s [00:53:10.397] NULL) 1591s [00:53:10.397] if (is_error) { 1591s [00:53:10.397] sessionInformation <- function() { 1591s [00:53:10.397] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1591s [00:53:10.397] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1591s [00:53:10.397] search = base::search(), system = base::Sys.info()) 1591s [00:53:10.397] } 1591s [00:53:10.397] ...future.conditions[[length(...future.conditions) + 1591s [00:53:10.397] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1591s [00:53:10.397] cond$call), session = sessionInformation(), 1591s [00:53:10.397] timestamp = base::Sys.time(), signaled = 0L) 1591s [00:53:10.397] signalCondition(cond) 1591s [00:53:10.397] } 1591s [00:53:10.397] else if (!ignore && TRUE && inherits(cond, c("condition", 1591s [00:53:10.397] "immediateCondition"))) { 1591s [00:53:10.397] signal <- TRUE && inherits(cond, "immediateCondition") 1591s [00:53:10.397] ...future.conditions[[length(...future.conditions) + 1591s [00:53:10.397] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1591s [00:53:10.397] if (TRUE && !signal) { 1591s [00:53:10.397] muffleCondition <- function (cond, pattern = "^muffle") 1591s [00:53:10.397] { 1591s [00:53:10.397] inherits <- base::inherits 1591s [00:53:10.397] invokeRestart <- base::invokeRestart 1591s [00:53:10.397] is.null <- base::is.null 1591s [00:53:10.397] muffled <- FALSE 1591s [00:53:10.397] if (inherits(cond, "message")) { 1591s [00:53:10.397] muffled <- grepl(pattern, "muffleMessage") 1591s [00:53:10.397] if (muffled) 1591s [00:53:10.397] invokeRestart("muffleMessage") 1591s [00:53:10.397] } 1591s [00:53:10.397] else if (inherits(cond, "warning")) { 1591s [00:53:10.397] muffled <- grepl(pattern, "muffleWarning") 1591s [00:53:10.397] if (muffled) 1591s [00:53:10.397] invokeRestart("muffleWarning") 1591s [00:53:10.397] } 1591s [00:53:10.397] else if (inherits(cond, "condition")) { 1591s [00:53:10.397] if (!is.null(pattern)) { 1591s [00:53:10.397] computeRestarts <- base::computeRestarts 1591s [00:53:10.397] grepl <- base::grepl 1591s [00:53:10.397] restarts <- computeRestarts(cond) 1591s [00:53:10.397] for (restart in restarts) { 1591s [00:53:10.397] name <- restart$name 1591s [00:53:10.397] if (is.null(name)) 1591s [00:53:10.397] next 1591s [00:53:10.397] if (!grepl(pattern, name)) 1591s [00:53:10.397] next 1591s [00:53:10.397] invokeRestart(restart) 1591s [00:53:10.397] muffled <- TRUE 1591s [00:53:10.397] break 1591s [00:53:10.397] } 1591s [00:53:10.397] } 1591s [00:53:10.397] } 1591s [00:53:10.397] invisible(muffled) 1591s [00:53:10.397] } 1591s [00:53:10.397] muffleCondition(cond, pattern = "^muffle") 1591s [00:53:10.397] } 1591s [00:53:10.397] } 1591s [00:53:10.397] else { 1591s [00:53:10.397] if (TRUE) { 1591s [00:53:10.397] muffleCondition <- function (cond, pattern = "^muffle") 1591s [00:53:10.397] { 1591s [00:53:10.397] inherits <- base::inherits 1591s [00:53:10.397] invokeRestart <- base::invokeRestart 1591s [00:53:10.397] is.null <- base::is.null 1591s [00:53:10.397] muffled <- FALSE 1591s [00:53:10.397] if (inherits(cond, "message")) { 1591s [00:53:10.397] muffled <- grepl(pattern, "muffleMessage") 1591s [00:53:10.397] if (muffled) 1591s [00:53:10.397] invokeRestart("muffleMessage") 1591s [00:53:10.397] } 1591s [00:53:10.397] else if (inherits(cond, "warning")) { 1591s [00:53:10.397] muffled <- grepl(pattern, "muffleWarning") 1591s [00:53:10.397] if (muffled) 1591s [00:53:10.397] invokeRestart("muffleWarning") 1591s [00:53:10.397] } 1591s [00:53:10.397] else if (inherits(cond, "condition")) { 1591s [00:53:10.397] if (!is.null(pattern)) { 1591s [00:53:10.397] computeRestarts <- base::computeRestarts 1591s [00:53:10.397] grepl <- base::grepl 1591s [00:53:10.397] restarts <- computeRestarts(cond) 1591s [00:53:10.397] for (restart in restarts) { 1591s [00:53:10.397] name <- restart$name 1591s [00:53:10.397] if (is.null(name)) 1591s [00:53:10.397] next 1591s [00:53:10.397] if (!grepl(pattern, name)) 1591s [00:53:10.397] next 1591s [00:53:10.397] invokeRestart(restart) 1591s [00:53:10.397] muffled <- TRUE 1591s [00:53:10.397] break 1591s [00:53:10.397] } 1591s [00:53:10.397] } 1591s [00:53:10.397] } 1591s [00:53:10.397] invisible(muffled) 1591s [00:53:10.397] } 1591s [00:53:10.397] muffleCondition(cond, pattern = "^muffle") 1591s [00:53:10.397] } 1591s [00:53:10.397] } 1591s [00:53:10.397] } 1591s [00:53:10.397] })) 1591s [00:53:10.397] }, error = function(ex) { 1591s [00:53:10.397] base::structure(base::list(value = NULL, visible = NULL, 1591s [00:53:10.397] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1591s [00:53:10.397] ...future.rng), started = ...future.startTime, 1591s [00:53:10.397] finished = Sys.time(), session_uuid = NA_character_, 1591s [00:53:10.397] version = "1.8"), class = "FutureResult") 1591s [00:53:10.397] }, finally = { 1591s [00:53:10.397] if (!identical(...future.workdir, getwd())) 1591s [00:53:10.397] setwd(...future.workdir) 1591s [00:53:10.397] { 1591s [00:53:10.397] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1591s [00:53:10.397] ...future.oldOptions$nwarnings <- NULL 1591s [00:53:10.397] } 1591s [00:53:10.397] base::options(...future.oldOptions) 1591s [00:53:10.397] if (.Platform$OS.type == "windows") { 1591s [00:53:10.397] old_names <- names(...future.oldEnvVars) 1591s [00:53:10.397] envs <- base::Sys.getenv() 1591s [00:53:10.397] names <- names(envs) 1591s [00:53:10.397] common <- intersect(names, old_names) 1591s [00:53:10.397] added <- setdiff(names, old_names) 1591s [00:53:10.397] removed <- setdiff(old_names, names) 1591s [00:53:10.397] changed <- common[...future.oldEnvVars[common] != 1591s [00:53:10.397] envs[common]] 1591s [00:53:10.397] NAMES <- toupper(changed) 1591s [00:53:10.397] args <- list() 1591s [00:53:10.397] for (kk in seq_along(NAMES)) { 1591s [00:53:10.397] name <- changed[[kk]] 1591s [00:53:10.397] NAME <- NAMES[[kk]] 1591s [00:53:10.397] if (name != NAME && is.element(NAME, old_names)) 1591s [00:53:10.397] next 1591s [00:53:10.397] args[[name]] <- ...future.oldEnvVars[[name]] 1591s [00:53:10.397] } 1591s [00:53:10.397] NAMES <- toupper(added) 1591s [00:53:10.397] for (kk in seq_along(NAMES)) { 1591s [00:53:10.397] name <- added[[kk]] 1591s [00:53:10.397] NAME <- NAMES[[kk]] 1591s [00:53:10.397] if (name != NAME && is.element(NAME, old_names)) 1591s [00:53:10.397] next 1591s [00:53:10.397] args[[name]] <- "" 1591s [00:53:10.397] } 1591s [00:53:10.397] NAMES <- toupper(removed) 1591s [00:53:10.397] for (kk in seq_along(NAMES)) { 1591s [00:53:10.397] name <- removed[[kk]] 1591s [00:53:10.397] NAME <- NAMES[[kk]] 1591s [00:53:10.397] if (name != NAME && is.element(NAME, old_names)) 1591s [00:53:10.397] next 1591s [00:53:10.397] args[[name]] <- ...future.oldEnvVars[[name]] 1591s [00:53:10.397] } 1591s [00:53:10.397] if (length(args) > 0) 1591s [00:53:10.397] base::do.call(base::Sys.setenv, args = args) 1591s [00:53:10.397] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1591s [00:53:10.397] } 1591s [00:53:10.397] else { 1591s [00:53:10.397] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1591s [00:53:10.397] } 1591s [00:53:10.397] { 1591s [00:53:10.397] if (base::length(...future.futureOptionsAdded) > 1591s [00:53:10.397] 0L) { 1591s [00:53:10.397] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1591s [00:53:10.397] base::names(opts) <- ...future.futureOptionsAdded 1591s [00:53:10.397] base::options(opts) 1591s [00:53:10.397] } 1591s [00:53:10.397] { 1591s [00:53:10.397] { 1591s [00:53:10.397] NULL 1591s [00:53:10.397] RNGkind("Mersenne-Twister") 1591s [00:53:10.397] base::rm(list = ".Random.seed", envir = base::globalenv(), 1591s [00:53:10.397] inherits = FALSE) 1591s [00:53:10.397] } 1591s [00:53:10.397] options(future.plan = NULL) 1591s [00:53:10.397] if (is.na(NA_character_)) 1591s [00:53:10.397] Sys.unsetenv("R_FUTURE_PLAN") 1591s [00:53:10.397] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1591s [00:53:10.397] future::plan(list(function (..., workers = availableCores(), 1591s [00:53:10.397] lazy = FALSE, rscript_libs = .libPaths(), 1591s [00:53:10.397] envir = parent.frame()) 1591s [00:53:10.397] { 1591s [00:53:10.397] if (is.function(workers)) 1591s [00:53:10.397] workers <- workers() 1591s [00:53:10.397] workers <- structure(as.integer(workers), 1591s [00:53:10.397] class = class(workers)) 1591s [00:53:10.397] stop_if_not(length(workers) == 1, is.finite(workers), 1591s [00:53:10.397] workers >= 1) 1591s [00:53:10.397] if (workers == 1L && !inherits(workers, "AsIs")) { 1591s [00:53:10.397] return(sequential(..., lazy = TRUE, envir = envir)) 1591s [00:53:10.397] } 1591s [00:53:10.397] future <- MultisessionFuture(..., workers = workers, 1591s [00:53:10.397] lazy = lazy, rscript_libs = rscript_libs, 1591s [00:53:10.397] envir = envir) 1591s [00:53:10.397] if (!future$lazy) 1591s [00:53:10.397] future <- run(future) 1591s [00:53:10.397] invisible(future) 1591s [00:53:10.397] }), .cleanup = FALSE, .init = FALSE) 1591s [00:53:10.397] } 1591s [00:53:10.397] } 1591s [00:53:10.397] } 1591s [00:53:10.397] }) 1591s [00:53:10.397] if (TRUE) { 1591s [00:53:10.397] base::sink(type = "output", split = FALSE) 1591s [00:53:10.397] if (TRUE) { 1591s [00:53:10.397] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1591s [00:53:10.397] } 1591s [00:53:10.397] else { 1591s [00:53:10.397] ...future.result["stdout"] <- base::list(NULL) 1591s [00:53:10.397] } 1591s [00:53:10.397] base::close(...future.stdout) 1591s [00:53:10.397] ...future.stdout <- NULL 1591s [00:53:10.397] } 1591s [00:53:10.397] ...future.result$conditions <- ...future.conditions 1591s [00:53:10.397] ...future.result$finished <- base::Sys.time() 1591s [00:53:10.397] ...future.result 1591s [00:53:10.397] } 1591s [00:53:10.406] assign_globals() ... 1591s [00:53:10.406] List of 11 1591s [00:53:10.406] $ ...future.FUN :function (x, ...) 1591s [00:53:10.406] $ x_FUN :function (x) 1591s [00:53:10.406] $ times : int 2 1591s [00:53:10.406] $ stopf :function (fmt, ..., call. = TRUE, domain = NULL) 1591s [00:53:10.406] $ stop_if_not :function (...) 1591s [00:53:10.406] $ dim : NULL 1591s [00:53:10.406] $ valid_types : chr [1:3] "logical" "integer" "double" 1591s [00:53:10.406] $ future.call.arguments : list() 1591s [00:53:10.406] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1591s [00:53:10.406] $ ...future.elements_ii :List of 3 1591s [00:53:10.406] ..$ : int 1 1591s [00:53:10.406] ..$ : int 2 1591s [00:53:10.406] ..$ : int 3 1591s [00:53:10.406] $ ...future.seeds_ii : NULL 1591s [00:53:10.406] $ ...future.globals.maxSize: NULL 1591s [00:53:10.406] - attr(*, "where")=List of 11 1591s [00:53:10.406] ..$ ...future.FUN : 1591s [00:53:10.406] ..$ x_FUN : 1591s [00:53:10.406] ..$ times : 1591s [00:53:10.406] ..$ stopf : 1591s [00:53:10.406] ..$ stop_if_not : 1591s [00:53:10.406] ..$ dim : 1591s [00:53:10.406] ..$ valid_types : 1591s [00:53:10.406] ..$ future.call.arguments : 1591s [00:53:10.406] ..$ ...future.elements_ii : 1591s [00:53:10.406] ..$ ...future.seeds_ii : 1591s [00:53:10.406] ..$ ...future.globals.maxSize: 1591s [00:53:10.406] - attr(*, "resolved")= logi FALSE 1591s [00:53:10.406] - attr(*, "total_size")= num 95128 1591s [00:53:10.406] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1591s [00:53:10.406] - attr(*, "already-done")= logi TRUE 1591s [00:53:10.422] - copied ‘...future.FUN’ to environment 1591s [00:53:10.422] - copied ‘x_FUN’ to environment 1591s [00:53:10.422] - copied ‘times’ to environment 1591s [00:53:10.423] - copied ‘stopf’ to environment 1591s [00:53:10.423] - copied ‘stop_if_not’ to environment 1591s [00:53:10.423] - copied ‘dim’ to environment 1591s [00:53:10.423] - copied ‘valid_types’ to environment 1591s [00:53:10.423] - copied ‘future.call.arguments’ to environment 1591s [00:53:10.423] - copied ‘...future.elements_ii’ to environment 1591s [00:53:10.424] - copied ‘...future.seeds_ii’ to environment 1591s [00:53:10.424] - copied ‘...future.globals.maxSize’ to environment 1591s [00:53:10.424] assign_globals() ... done 1591s [00:53:10.425] plan(): Setting new future strategy stack: 1591s [00:53:10.425] List of future strategies: 1591s [00:53:10.425] 1. sequential: 1591s [00:53:10.425] - args: function (..., envir = parent.frame()) 1591s [00:53:10.425] - tweaked: FALSE 1591s [00:53:10.425] - call: NULL 1591s [00:53:10.426] plan(): nbrOfWorkers() = 1 1591s [00:53:10.427] plan(): Setting new future strategy stack: 1591s [00:53:10.427] List of future strategies: 1591s [00:53:10.427] 1. multisession: 1591s [00:53:10.427] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1591s [00:53:10.427] - tweaked: FALSE 1591s [00:53:10.427] - call: plan(strategy) 1591s [00:53:10.432] plan(): nbrOfWorkers() = 1 1591s [00:53:10.433] SequentialFuture started (and completed) 1591s [00:53:10.433] signalConditions() ... 1591s [00:53:10.433] - include = ‘immediateCondition’ 1591s [00:53:10.433] - exclude = 1591s [00:53:10.434] - resignal = FALSE 1591s [00:53:10.434] - Number of conditions: 1 1591s [00:53:10.434] signalConditions() ... done 1591s [00:53:10.434] - Launch lazy future ... done 1591s [00:53:10.434] run() for ‘SequentialFuture’ ... done 1591s [00:53:10.435] Created future: 1591s [00:53:10.435] SequentialFuture: 1591s [00:53:10.435] Label: ‘future_vapply-1’ 1591s [00:53:10.435] Expression: 1591s [00:53:10.435] { 1591s [00:53:10.435] do.call(function(...) { 1591s [00:53:10.435] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1591s [00:53:10.435] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1591s [00:53:10.435] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1591s [00:53:10.435] on.exit(options(oopts), add = TRUE) 1591s [00:53:10.435] } 1591s [00:53:10.435] { 1591s [00:53:10.435] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1591s [00:53:10.435] ...future.X_jj <- ...future.elements_ii[[jj]] 1591s [00:53:10.435] ...future.FUN(...future.X_jj, ...) 1591s [00:53:10.435] }) 1591s [00:53:10.435] } 1591s [00:53:10.435] }, args = future.call.arguments) 1591s [00:53:10.435] } 1591s [00:53:10.435] Lazy evaluation: FALSE 1591s [00:53:10.435] Asynchronous evaluation: FALSE 1591s [00:53:10.435] Local evaluation: TRUE 1591s [00:53:10.435] Environment: R_GlobalEnv 1591s [00:53:10.435] Capture standard output: TRUE 1591s [00:53:10.435] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1591s [00:53:10.435] Globals: 11 objects totaling 93.06 KiB (function ‘...future.FUN’ of 21.22 KiB, function ‘x_FUN’ of 848 bytes, integer ‘times’ of 56 bytes, function ‘stopf’ of 26.43 KiB, function ‘stop_if_not’ of 44.12 KiB, ...) 1591s [00:53:10.435] Packages: 1 packages (‘future.apply’) 1591s [00:53:10.435] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1591s [00:53:10.435] Resolved: TRUE 1591s [00:53:10.435] Value: 0 bytes of class ‘NULL’ 1591s [00:53:10.435] Conditions captured: [n=1] ‘simpleError’ 1591s [00:53:10.435] Early signaling: FALSE 1591s [00:53:10.435] Owner process: 315da293-7377-a817-42a9-988b5feeea36 1591s [00:53:10.435] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1591s [00:53:10.437] Chunk #1 of 1 ... DONE 1591s [00:53:10.438] Launching 1 futures (chunks) ... DONE 1591s [00:53:10.438] Resolving 1 futures (chunks) ... 1591s [00:53:10.438] resolve() on list ... 1591s [00:53:10.438] recursive: 0 1591s [00:53:10.438] length: 1 1591s [00:53:10.439] 1591s [00:53:10.439] resolved() for ‘SequentialFuture’ ... 1591s [00:53:10.439] - state: ‘finished’ 1591s [00:53:10.439] - run: TRUE 1591s [00:53:10.439] - result: ‘FutureResult’ 1591s [00:53:10.440] resolved() for ‘SequentialFuture’ ... done 1591s [00:53:10.440] Future #1 1591s [00:53:10.440] signalConditions() ... 1591s [00:53:10.440] - include = ‘immediateCondition’ 1591s [00:53:10.440] - exclude = 1591s [00:53:10.441] - resignal = FALSE 1591s [00:53:10.441] - Number of conditions: 1 1591s [00:53:10.441] signalConditions() ... done 1591s [00:53:10.441] signalConditionsASAP(SequentialFuture, pos=1) ... 1591s [00:53:10.441] - nx: 1 1591s [00:53:10.441] - relay: TRUE 1591s [00:53:10.442] - stdout: TRUE 1591s [00:53:10.442] - signal: TRUE 1591s [00:53:10.442] - resignal: FALSE 1591s [00:53:10.442] - force: TRUE 1591s [00:53:10.442] - relayed: [n=1] FALSE 1591s [00:53:10.442] - queued futures: [n=1] FALSE 1591s [00:53:10.443] - until=1 1591s [00:53:10.443] - relaying element #1 1591s [00:53:10.443] signalConditions() ... 1591s [00:53:10.443] - include = ‘immediateCondition’ 1591s [00:53:10.443] - exclude = 1591s [00:53:10.443] - resignal = FALSE 1591s [00:53:10.444] - Number of conditions: 1 1591s [00:53:10.444] signalConditions() ... done 1591s [00:53:10.444] signalConditions() ... 1591s [00:53:10.444] - include = ‘immediateCondition’ 1591s [00:53:10.444] - exclude = 1591s [00:53:10.445] - resignal = FALSE 1591s [00:53:10.445] - Number of conditions: 1 1591s [00:53:10.445] signalConditions() ... done 1591s [00:53:10.445] signalConditions() ... 1591s [00:53:10.445] - include = ‘condition’ 1591s [00:53:10.446] - exclude = ‘immediateCondition’ 1591s [00:53:10.446] - resignal = TRUE 1591s [00:53:10.446] - Number of conditions: 1 1591s [00:53:10.446] - Condition #1: ‘simpleError’, ‘error’, ‘condition’ 1591s [00:53:10.446] signalConditions() ... done 1591s [00:53:10.446] - relayed: [n=1] FALSE 1591s [00:53:10.447] - queued futures: [n=1] TRUE 1591s [00:53:10.447] signalConditionsASAP(SequentialFuture, pos=1) ... done 1591s [00:53:10.447] plan(): Setting new future strategy stack: 1591s [00:53:10.447] List of future strategies: 1591s [00:53:10.447] 1. sequential: 1591s [00:53:10.447] - args: function (..., envir = parent.frame()) 1591s [00:53:10.447] - tweaked: FALSE 1591s [00:53:10.447] - call: plan(sequential) 1591s [00:53:10.448] plan(): nbrOfWorkers() = 1 1591s *** strategy = ‘multisession’ ... done 1591s *** future_vapply() ... DONE 1591s [00:53:10.449] plan(): Setting new future strategy stack: 1591s [00:53:10.449] List of future strategies: 1591s [00:53:10.449] 1. FutureStrategy: 1591s [00:53:10.449] - args: function (..., envir = parent.frame()) 1591s [00:53:10.449] - tweaked: FALSE 1591s [00:53:10.449] - call: future::plan(oplan) 1591s [00:53:10.450] plan(): nbrOfWorkers() = 1 1591s Loading required package: future 1591s [00:53:10.819] plan(): Setting new future strategy stack: 1591s [00:53:10.820] List of future strategies: 1591s [00:53:10.820] 1. sequential: 1591s [00:53:10.820] - args: function (..., envir = parent.frame()) 1591s [00:53:10.820] - tweaked: FALSE 1591s [00:53:10.820] - call: future::plan("sequential") 1591s [00:53:10.843] plan(): nbrOfWorkers() = 1 1591s *** Tricky globals requiring recursive search ... 1591s *** strategy = ‘sequential’ ... 1591s *** strategy = ‘sequential’ ... DONE 1591s *** strategy = ‘multicore’ ... 1591s List of 1 1591s $ z3:List of 2 1591s ..$ : int 3 1591s ..$ : int 5 1591s List of 1 1591s $ z4:List of 2 1591s ..$ : int 3 1591s ..$ : int 5 1591s *** strategy = ‘multicore’ ... DONE 1591s *** strategy = ‘multisession’ ... 1591s List of 1 1591s $ z:List of 2 1591s ..$ : int 3 1591s ..$ : int 5 1591s List of 1 1591s $ z2:List of 2 1591s ..$ : int 3 1591s ..$ : int 5 1591s List of 1 1591s $ z3:List of 2 1591s ..$ : int 3 1591s ..$ : int 5 1591s List of 1 1591s $ z4:List of 2 1591s ..$ : int 3 1591s ..$ : int 5 1591s > 1591s > message("*** Tricky globals requiring recursive search ... DONE") 1591s > 1591s > source("incl/end.R") 1591s *** strategy = ‘multisession’ ... DONE 1591s *** Tricky globals requiring recursive search ... DONE 1591s > 1591s BEGIN TEST options,nested.R 1591s 1591s R version 4.3.3 (2024-02-29) -- "Angel Food Cake" 1591s Copyright (C) 2024 The R Foundation for Statistical Computing 1591s Platform: s390x-ibm-linux-gnu (64-bit) 1591s 1591s R is free software and comes with ABSOLUTELY NO WARRANTY. 1591s You are welcome to redistribute it under certain conditions. 1591s Type 'license()' or 'licence()' for distribution details. 1591s 1591s R is a collaborative project with many contributors. 1591s Type 'contributors()' for more information and 1591s 'citation()' on how to cite R or R packages in publications. 1591s 1591s Type 'demo()' for some demos, 'help()' for on-line help, or 1591s 'help.start()' for an HTML browser interface to help. 1591s Type 'q()' to quit R. 1591s 1591s > source("incl/start.R") 1591s Loading required package: future 1591s [00:53:11.510] plan(): Setting new future strategy stack: 1591s [00:53:11.511] List of future strategies: 1591s [00:53:11.511] 1. sequential: 1591s [00:53:11.511] - args: function (..., envir = parent.frame()) 1591s [00:53:11.511] - tweaked: FALSE 1591s [00:53:11.511] - call: future::plan("sequential") 1591s [00:53:11.532] plan(): nbrOfWorkers() = 1 1591s > 1591s > message("*** Options in nested parallelization ...") 1591s > *** Options in nested parallelization ... 1591s 1591s > options(future.debug = FALSE) 1591s > options(future.apply.debug = FALSE) 1591s > options(future.globals.maxSize = 1234000) 1591s > 1591s > for (cores in 1:availCores) { 1591s + message(sprintf("Testing with %d cores ...", cores)) 1591s + options(mc.cores = cores) 1591s + strategies <- supportedStrategies(cores) 1591s + 1591s + for (strategy1 in strategies) { 1591s + for (strategy2 in strategies) { 1591s + message(sprintf("- plan('%s') ...", strategy2)) 1591s + plan(list(outer = tweak(strategy1), inner = strategy2)) 1591s + 1591s + v <- future_lapply(1:2, FUN = function(x) { 1591s + outer <- data.frame( 1591s + label = "outer", 1591s + idx = x, 1591s + pid = Sys.getpid(), 1591s + maxSize = getOption("future.globals.maxSize", NA_real_) 1591s + ) 1591s + 1591s + inner <- future_lapply(3:4, FUN = function(x) { 1591s + data.frame( 1591s + label = "inner", 1591s + idx = x, 1591s + pid = Sys.getpid(), 1591s + maxSize = getOption("future.globals.maxSize", NA_real_)) 1591s + }) 1591s + inner <- do.call(rbind, inner) 1591s + rbind(outer, inner) 1591s + }) 1591s + v <- do.call(rbind, v) 1591s + print(v) 1591s + stopifnot(!anyNA(v$maxSize)) 1591s + } ## for (strategy2 ...) 1591s + } ## for (strategy1 ...) 1591s + } ## for (cores in ...) 1591s Testing with 1 cores ... 1591s - plan('sequential') ... 1591s label idx pid maxSize 1591s 1 outer 1 6407 1234000 1591s 2 inner 3 6407 1234000 1591s 3 inner 4 6407 1234000 1591s 4 outer 2 6407 1234000 1591s 5 inner 3 6407 1234000 1591s 6 inner 4- plan('multicore') ... 1591s 6407 1234000 1591s label idx pid maxSize 1591s 1 outer 1 6407 1234000 1591s 2 inner 3 6407 1234000 1591s 3 inner 4 6407 1234000 1591s 4 outer 2 6407 1234000 1591s 5 inner 3 6407 1234000 1591s 6 inner 4 6407 1234000 1591s - plan('multisession') ... 1591s label idx pid maxSize 1591s 1- plan('sequential') ... 1591s outer 1 6407 1234000 1591s 2 inner 3 6407 1234000 1591s 3 inner 4 6407 1234000 1591s 4 outer 2 6407 1234000 1591s 5 inner 3 6407 1234000 1591s 6 inner 4 6407 1234000 1591s label idx pid maxSize 1591s 1 outer 1 6407 1234000 1591s 2 inner 3 6407 1234000 1591s 3 inner 4 6407 1234000 1591s 4 outer- plan('multicore') ... 1591s 2 6407 1234000 1591s 5 inner 3 6407 1234000 1591s 6 inner 4 6407 1234000 1591s label idx pid maxSize 1591s 1 outer 1 6407 1234000 1591s 2 inner- plan('multisession') ... 1591s 3 6407 1234000 1591s 3 inner 4 6407 1234000 1591s 4 outer 2 6407 1234000 1591s 5 inner 3 6407 1234000 1591s 6 inner 4 6407 1234000 1591s label idx pid maxSize 1591s 1 outer 1 6407 1234000 1591s 2 inner 3 6407 1234000 1591s 3 inner 4 6407 1234000 1591s 4 outer 2- plan('sequential') ... 1591s 6407 1234000 1591s 5 inner 3 6407 1234000 1591s 6 inner 4 6407 1234000 1592s label idx pid maxSize 1592s 1 outer 1 6407 1234000 1592s 2 inner 3 6407 1234000 1592s 3 inner 4 6407 1234000 1592s 4 outer 2 6407 1234000 1592s 5 inner 3 6407 1234000 1592s 6 inner 4 6407 1234000 1592s - plan('multicore') ... 1592s - plan('multisession') ... 1592s label idx pid maxSize 1592s 1 outer 1 6407 1234000 1592s 2 inner 3 6407 1234000 1592s 3 inner 4 6407 1234000 1592s 4 outer 2 6407 1234000 1592s 5 inner 3 6407 1234000 1592s 6 inner 4 6407 1234000 1592s label idx pid maxSize 1592s 1*** Options in nested parallelization ... done 1592s outer 1 6407 1234000 1592s 2 inner 3 6407 1234000 1592s 3 inner 4 6407 1234000 1592s 4 outer 2 6407 1234000 1592s 5 inner 3 6407 1234000 1592s 6 inner 4 6407 1234000 1592s > 1592s > message("*** Options in nested parallelization ... done") 1592s > 1592s > source("incl/end.R") 1592s > 1592s BEGIN TEST rng.R 1592s 1592s R version 4.3.3 (2024-02-29) -- "Angel Food Cake" 1592s Copyright (C) 2024 The R Foundation for Statistical Computing 1592s Platform: s390x-ibm-linux-gnu (64-bit) 1592s 1592s R is free software and comes with ABSOLUTELY NO WARRANTY. 1592s You are welcome to redistribute it under certain conditions. 1592s Type 'license()' or 'licence()' for distribution details. 1592s 1592s R is a collaborative project with many contributors. 1592s Type 'contributors()' for more information and 1592s 'citation()' on how to cite R or R packages in publications. 1592s 1592s Type 'demo()' for some demos, 'help()' for on-line help, or 1592s 'help.start()' for an HTML browser interface to help. 1592s Type 'q()' to quit R. 1592s 1592s > source("incl/start,load-only.R") 1592s [00:53:12.540] Set package option ‘parallelly.availableCores.methods’ 1592s [00:53:12.543] Environment variable ‘R_PARALLELLY_AVAILABLECORES_METHODS’ not set 1592s [00:53:12.544] Set package option ‘parallelly.availableCores.fallback’ 1592s [00:53:12.545] Environment variable ‘R_PARALLELLY_AVAILABLECORES_FALLBACK’ not set 1592s [00:53:12.545] Set package option ‘parallelly.availableCores.min’ 1592s [00:53:12.546] Environment variable ‘R_PARALLELLY_AVAILABLECORES_MIN’ not set 1592s [00:53:12.546] Set package option ‘parallelly.availableCores.system’ 1592s [00:53:12.546] Environment variable ‘R_PARALLELLY_AVAILABLECORES_SYSTEM’ not set 1592s [00:53:12.547] Set package option ‘parallelly.availableCores.logical’ 1592s [00:53:12.547] Environment variable ‘R_PARALLELLY_AVAILABLECORES_LOGICAL’ not set 1592s [00:53:12.547] Set package option ‘parallelly.availableCores.omit’ 1592s [00:53:12.548] Environment variable ‘R_PARALLELLY_AVAILABLECORES_OMIT’ not set 1592s [00:53:12.548] Set package option ‘parallelly.availableWorkers.methods’ 1592s [00:53:12.555] Environment variable ‘R_PARALLELLY_AVAILABLEWORKERS_METHODS’ not set 1592s [00:53:12.556] Set package option ‘parallelly.maxWorkers.localhost’ 1592s [00:53:12.556] Environment variable ‘R_PARALLELLY_MAXWORKERS_LOCALHOST’ not set 1592s [00:53:12.557] Set package option ‘parallelly.maxWorkers.localhost.ignore’ 1592s [00:53:12.557] Environment variable ‘R_PARALLELLY_MAXWORKERS_LOCALHOST_IGNORE’ not set 1592s [00:53:12.557] Set package option ‘parallelly.fork.enable’ 1592s [00:53:12.557] Environment variable ‘R_PARALLELLY_FORK_ENABLE’ not set 1592s [00:53:12.557] Set package option ‘parallelly.supportsMulticore.disableOn’ 1592s [00:53:12.558] Environment variable ‘R_PARALLELLY_SUPPORTSMULTICORE_DISABLEON’ not set 1592s [00:53:12.558] Set package option ‘parallelly.supportsMulticore.unstable’ 1592s [00:53:12.558] Environment variable ‘R_PARALLELLY_SUPPORTSMULTICORE_UNSTABLE’ not set 1592s [00:53:12.559] Set package option ‘parallelly.makeNodePSOCK.setup_strategy’ 1592s [00:53:12.559] Environment variable ‘R_PARALLELLY_MAKENODEPSOCK_SETUP_STRATEGY’ not set 1592s [00:53:12.560] Set package option ‘parallelly.makeNodePSOCK.validate’ 1592s [00:53:12.560] Environment variable ‘R_PARALLELLY_MAKENODEPSOCK_VALIDATE’ not set 1592s [00:53:12.561] Set package option ‘parallelly.makeNodePSOCK.connectTimeout’ 1592s [00:53:12.561] Environment variable ‘R_PARALLELLY_MAKENODEPSOCK_CONNECTTIMEOUT’ not set 1592s [00:53:12.561] Set package option ‘parallelly.makeNodePSOCK.timeout’ 1592s [00:53:12.562] Environment variable ‘R_PARALLELLY_MAKENODEPSOCK_TIMEOUT’ not set 1592s [00:53:12.562] Set package option ‘parallelly.makeNodePSOCK.useXDR’ 1592s [00:53:12.562] Environment variable ‘R_PARALLELLY_MAKENODEPSOCK_USEXDR’ not set 1592s [00:53:12.562] Set package option ‘parallelly.makeNodePSOCK.socketOptions’ 1592s [00:53:12.563] Environment variable ‘R_PARALLELLY_MAKENODEPSOCK_SOCKETOPTIONS’ not set 1592s [00:53:12.563] Set package option ‘parallelly.makeNodePSOCK.rshcmd’ 1592s [00:53:12.563] Environment variable ‘R_PARALLELLY_MAKENODEPSOCK_RSHCMD’ not set 1592s [00:53:12.564] Set package option ‘parallelly.makeNodePSOCK.rshopts’ 1592s [00:53:12.564] Environment variable ‘R_PARALLELLY_MAKENODEPSOCK_RSHOPTS’ not set 1592s [00:53:12.564] Set package option ‘parallelly.makeNodePSOCK.tries’ 1592s [00:53:12.564] Environment variable ‘R_PARALLELLY_MAKENODEPSOCK_TRIES’ not set 1592s [00:53:12.565] Set package option ‘parallelly.makeNodePSOCK.tries.delay’ 1592s [00:53:12.565] Environment variable ‘R_PARALLELLY_MAKENODEPSOCK_TRIES_DELAY’ not set 1592s [00:53:12.565] Set package option ‘parallelly.makeNodePSOCK.rscript_label’ 1592s [00:53:12.566] Environment variable ‘R_PARALLELLY_MAKENODEPSOCK_RSCRIPT_LABEL’ not set 1592s [00:53:12.566] Set package option ‘parallelly.makeNodePSOCK.sessionInfo.pkgs’ 1592s [00:53:12.566] Environment variable ‘R_PARALLELLY_MAKENODEPSOCK_SESSIONINFO_PKGS’ not set 1592s [00:53:12.566] Set package option ‘parallelly.makeNodePSOCK.autoKill’ 1592s [00:53:12.567] Environment variable ‘R_PARALLELLY_MAKENODEPSOCK_AUTOKILL’ not set 1592s [00:53:12.567] Set package option ‘parallelly.makeNodePSOCK.master.localhost.hostname’ 1592s [00:53:12.567] Environment variable ‘R_PARALLELLY_MAKENODEPSOCK_MASTER_LOCALHOST_HOSTNAME’ not set 1592s [00:53:12.567] Set package option ‘parallelly.makeNodePSOCK.port.increment’ 1592s [00:53:12.568] Environment variable ‘R_PARALLELLY_MAKENODEPSOCK_PORT_INCREMENT’ not set 1592s [00:53:12.569] parallelly-specific environment variables: 1592s [00:53:12.578] Future-specific environment variables: 1592s [00:53:12.578] Environment variable ‘R_FUTURE_DEMO_MANDELBROT_REGION’ not set 1592s [00:53:12.578] Environment variable ‘R_FUTURE_DEMO_MANDELBROT_NROW’ not set 1592s [00:53:12.578] Environment variable ‘R_FUTURE_DEPRECATED_IGNORE’ not set 1592s [00:53:12.579] Environment variable ‘R_FUTURE_DEPRECATED_DEFUNCT’ not set 1592s [00:53:12.579] Environment variable ‘R_FUTURE_FORK_MULTITHREADING_ENABLE’ not set 1592s [00:53:12.579] Environment variable ‘R_FUTURE_GLOBALS_MAXSIZE’ not set 1592s [00:53:12.579] Environment variable ‘R_FUTURE_GLOBALS_ONMISSING’ not set 1592s [00:53:12.579] Environment variable ‘R_FUTURE_GLOBALS_ONREFERENCE’ not set 1592s [00:53:12.579] Environment variable ‘R_FUTURE_GLOBALS_METHOD’ not set 1592s [00:53:12.580] Environment variable ‘R_FUTURE_GLOBALS_RESOLVE’ not set 1592s [00:53:12.581] Environment variable ‘R_FUTURE_LAZY_ASSERTOWNER’ not set 1592s [00:53:12.581] Environment variable ‘R_FUTURE_PLAN’ not set 1592s [00:53:12.581] Environment variable ‘R_FUTURE_PLAN_DISALLOW’ not set 1592s [00:53:12.582] Environment variable ‘R_FUTURE_PSOCK_RELAY_IMMEDIATE’ not set 1592s [00:53:12.582] Environment variable ‘R_FUTURE_RELAY_IMMEDIATE’ not set 1592s [00:53:12.582] Environment variable ‘R_FUTURE_RESOLVE_RECURSIVE’ not set 1592s [00:53:12.582] Environment variable ‘R_FUTURE_ALIVE_TIMEOUT’ not set 1592s [00:53:12.583] Environment variable ‘R_FUTURE_RESOLVED_TIMEOUT’ not set 1592s [00:53:12.583] Environment variable ‘R_FUTURE_CLUSTER_RESOLVED_TIMEOUT’ not set 1592s [00:53:12.583] Environment variable ‘R_FUTURE_MULTICORE_RESOLVED_TIMEOUT’ not set 1592s [00:53:12.583] Environment variable ‘R_FUTURE_ONFUTURECONDITION_KEEPFUTURE’ not set 1592s [00:53:12.583] Environment variable ‘R_FUTURE_RNG_ONMISUSE’ not set 1592s [00:53:12.583] Environment variable ‘R_FUTURE_GLOBALENV_ONMISUSE’ not set 1592s [00:53:12.584] Environment variable ‘R_FUTURE_WAIT_TIMEOUT’ not set 1592s [00:53:12.584] Environment variable ‘R_FUTURE_WAIT_INTERVAL’ not set 1592s [00:53:12.584] Environment variable ‘R_FUTURE_WAIT_ALPHA’ not set 1592s [00:53:12.585] Environment variable ‘R_FUTURE_ASSIGN_GLOBALS_EXCLUDE’ not set 1592s [00:53:12.585] Environment variable ‘R_FUTURE_OUTPUT_WINDOWS_REENCODE’ not set 1592s [00:53:12.585] Environment variable ‘R_FUTURE_GLOBALS_GLOBALSOF_LOCALS’ not set 1592s [00:53:12.585] Environment variable ‘R_FUTURE_STATE_ONINVALID’ not set 1592s [00:53:12.586] Environment variable ‘R_FUTURE_JOURNAL’ not set 1592s [00:53:12.586] Environment variable ‘R_FUTURE_GLOBALS_KEEPWHERE’ not set 1592s [00:53:12.588] R process uuid: 7c0d45d1-38b2-7381-cbc6-95cc4bda07f5 1592s [00:53:12.588] Setting plan('default') 1592s [00:53:12.589] plan(): Setting new future strategy stack: 1592s [00:53:12.590] List of future strategies: 1592s [00:53:12.590] 1. sequential: 1592s [00:53:12.590] - args: function (..., envir = parent.frame()) 1592s [00:53:12.590] - tweaked: FALSE 1592s [00:53:12.590] - call: NULL 1592s [00:53:12.592] plan(): nbrOfWorkers() = 1 1592s [00:53:12.631] plan(): Setting new future strategy stack: 1592s [00:53:12.631] List of future strategies: 1592s [00:53:12.631] 1. sequential: 1592s [00:53:12.631] - args: function (..., envir = parent.frame()) 1592s [00:53:12.631] - tweaked: FALSE 1592s [00:53:12.631] - call: future::plan("sequential") 1592s [00:53:12.650] plan(): nbrOfWorkers() = 1 1592s *** RNG ... 1592s > 1592s > message("*** RNG ...") 1592s > 1592s > set_random_seed(seed = NULL) 1592s Warning in rm(list = ".Random.seed", envir = env, inherits = FALSE) : 1592s object '.Random.seed' not found 1592s > seed <- get_random_seed() 1592s > stopifnot(is.null(seed)) 1592s > 1592s > set_random_seed(seed = 42L) 1592s > seed <- get_random_seed() 1592s > stopifnot(identical(seed, 42L)) 1592s > 1592s > res <- tryCatch({ 1592s + seed <- as_lecyer_cmrg_seed(seed = FALSE) 1592s + }, error = identity) 1592s > print(res) 1592s 1592s > stopifnot(inherits(res, "error")) 1592s > 1592s > seed <- as_lecyer_cmrg_seed(seed = 42L) 1592s > str(seed) 1592s int [1:7] 10407 -2133391687 507561766 1260545903 1362917092 -1772566379 -1344458670 1592s > stopifnot(is_lecyer_cmrg_seed(seed)) 1592s > set_random_seed(seed = seed) 1592s > stopifnot(identical(get_random_seed(), seed)) 1592s > 1592s > seed2 <- as_lecyer_cmrg_seed(seed = TRUE) 1592s > str(seed2) 1592s int [1:7] 10407 -2133391687 507561766 1260545903 1362917092 -1772566379 -1344458670 1592s > stopifnot(identical(seed2, seed)) 1592s > 1592s > seed3 <- as_lecyer_cmrg_seed(seed = seed) 1592s > str(seed3) 1592s int [1:7] 10407 -2133391687 507561766 1260545903 1362917092 -1772566379 -1344458670 1592s > stopifnot(identical(seed3, seed)) 1592s > 1592s > ## A random seed 1592s > seed4 <- as_lecyer_cmrg_seed(seed = NA) 1592s > str(seed4) 1592s int [1:7] 10407 1279540750 -941988041 -2007404020 745992093 -1794778694 2071448563 1592s > stopifnot(is_lecyer_cmrg_seed(seed4)) 1592s > 1592s > 1592s > message(" - make_rng_seeds ...") 1592s - make_rng_seeds ... 1592s > 1592s > seeds <- make_rng_seeds(2L, seed = NULL) 1592s > stopifnot(is.null(seeds)) 1592s > 1592s > seeds <- make_rng_seeds(2L, seed = FALSE) 1592s > stopifnot(is.null(seeds)) 1592s > 1592s > seeds <- make_rng_seeds(0L, seed = 42L) 1592s [00:53:12.680] Generating random seeds ... 1592s [00:53:12.681] Generating random seed streams for 0 elements ... 1592s [00:53:12.681] Generating random seed streams for 0 elements ... DONE 1592s [00:53:12.681] Generating random seeds ... DONE 1592s > stopifnot(length(seeds) == 0L, identical(seeds, list())) 1592s [00:53:12.681] Generating random seeds ... 1592s > 1592s > seeds <- make_rng_seeds(2L, seed = TRUE) 1592s [00:53:12.682] Generating random seed streams for 2 elements ... 1592s [00:53:12.682] Generating random seed streams for 2 elements ... DONE 1592s [00:53:12.682] Generating random seeds ... DONE 1592s > stopifnot(length(seeds) == 2L, all(sapply(seeds, FUN = is_lecyer_cmrg_seed))) 1592s > 1592s > seeds <- make_rng_seeds(3L, seed = 42L) 1592s [00:53:12.682] Generating random seeds ... 1592s [00:53:12.682] Generating random seed streams for 3 elements ... 1592s > stopifnot(length(seeds) == 3L, all(sapply(seeds, FUN = is_lecyer_cmrg_seed))) 1592s > 1592s > seeds <- make_rng_seeds(1L, seed = 42L) 1592s [00:53:12.683] Generating random seed streams for 3 elements ... DONE 1592s [00:53:12.683] Generating random seeds ... DONE 1592s [00:53:12.683] Generating random seeds ... 1592s [00:53:12.683] Generating random seed streams for 1 elements ... 1592s [00:53:12.683] Generating random seed streams for 1 elements ... DONE 1592s [00:53:12.684] Generating random seeds ... DONE 1592s [00:53:12.684] Generating random seeds ... 1592s [00:53:12.684] Using a pre-define stream of 3 random seeds ... 1592s [00:53:12.684] Using a pre-define stream of 3 random seeds ... DONE 1592s [00:53:12.685] Generating random seeds ... DONE 1592s - exceptions ... 1592s [00:53:12.687] Generating random seeds ... 1592s [00:53:12.687] Using a pre-define stream of 1 random seeds ... 1592s > stopifnot(length(seeds) == 1L, all(sapply(seeds, FUN = is_lecyer_cmrg_seed))) 1592s > 1592s > seeds0 <- lapply(1:3, FUN = as_lecyer_cmrg_seed) 1592s > seeds <- make_rng_seeds(length(seeds0), seed = seeds0) 1592s > stopifnot(length(seeds) == length(seeds0), 1592s + all(sapply(seeds, FUN = is_lecyer_cmrg_seed))) 1592s > 1592s > 1592s > message(" - exceptions ...") 1592s > 1592s > ## Invalid L'Ecuyer seed 1592s > seed_invalid <- seed + 1L 1592s > res <- tryCatch({ 1592s + seed <- as_lecyer_cmrg_seed(seed = seed_invalid) 1592s + }, error = identity) 1592s > print(res) 1592s 1592s > stopifnot(inherits(res, "error")) 1592s > 1592s > ## Invalid seed 1592s > res <- tryCatch({ 1592s + seed <- as_lecyer_cmrg_seed(seed = 1:2) 1592s + }, error = identity) 1592s > print(res) 1592s 1592s > stopifnot(inherits(res, "error")) 1592s > 1592s > ## Invalid length 1592s > seeds0 <- lapply(1:2, FUN = as_lecyer_cmrg_seed) 1592s > res <- tryCatch({ 1592s + seeds <- make_rng_seeds(1L, seed = seeds0) 1592s + }, error = identity) 1592s > print(res) 1592s 1592s > stopifnot(inherits(res, "error")) 1592s > 1592s > ## Seeds of different kinds 1592s > seeds0 <- lapply(1:2, FUN = as_lecyer_cmrg_seed) 1592s > seeds0[[1]] <- seeds0[[1]][-1] 1592s > res <- tryCatch({ 1592s + seeds <- make_rng_seeds(2L, seed = seeds0) 1592s + }, error = identity) 1592s > print(res) 1592s 1592s > stopifnot(inherits(res, "error")) 1592s > 1592s > ## List of scalar seeds? 1592s > res <- tryCatch({ 1592s + seeds <- make_rng_seeds(1L, seed = list(42L)) 1592s + }, error = identity) 1592s [00:53:12.688] Generating random seeds ... 1592s [00:53:12.688] Using a pre-define stream of 2 random seeds ... 1592s [00:53:12.688] Generating random seeds ... 1592s [00:53:12.688] Using a pre-define stream of 1 random seeds ... 1592s > print(res) 1592s 1592s > stopifnot(inherits(res, "error")) 1592s > 1592s > ## Not seeds at all? 1592s > seeds0 <- lapply(1:2, FUN = as_lecyer_cmrg_seed) 1592s > seeds0[[1]] <- letters[1:7] 1592s > res <- tryCatch({ 1592s + seeds <- make_rng_seeds(2L, seed = seeds0) 1592s + }, error = identity) 1592s [00:53:12.690] Generating random seeds ... 1592s > [00:53:12.690] Using a pre-define stream of 2 random seeds ... 1592s print(res) 1592s 1592s > stopifnot(inherits(res, "error")) 1592s > 1592s > ## Invalid seeds? 1592s > seeds0 <- lapply(1:2, FUN = as_lecyer_cmrg_seed) 1592s > seeds0 <- lapply(seeds0, FUN = rev) 1592s > res <- tryCatch({ 1592s + seeds <- make_rng_seeds(2L, seed = seeds0) 1592s + }, error = identity) 1592s > print(res) 1592s 1592s > stopifnot(inherits(res, "error")) 1592s > 1592s > 1592s > message(" - replicated RNG draws") 1592s [00:53:12.691] Generating random seeds ... 1592s [00:53:12.691] Using a pre-define stream of 2 random seeds ... 1592s - replicated RNG draws 1592s > library(future.apply) 1592s Loading required package: future 1592s [00:53:12.697] Option 'future.startup.script': TRUE 1592s [00:53:12.698] Future startup scripts considered: ‘.future.R’, ‘~/.future.R’ 1592s [00:53:12.698] Future startup scripts found: 1592s > 1592s > seed_org <- next_random_seed() 1592s > set.seed(42) 1592s > 1592s > ## Draw two random number from 1:100 one after the other 1592s > seed_before <- get_random_seed() 1592s > kind_before <- RNGkind() 1592s > x <- sample.int(100L, size = 5L) 1592s > y <- sample.int(100L, size = 5L) 1592s > seed_after <- get_random_seed() 1592s > kind_after <- RNGkind() 1592s > print(c(x, y)) 1592s [1] 2 4 63 76 97 9 85 10 66 23 1592s > 1592s > ## Draw two random number from 1:100 at once 1592s > *** RNG ... DONE 1592s set_random_seed(seed_before) 1592s > kind_before2 <- RNGkind() 1592s > z <- sample.int(100L, size = 10L) 1592s > seed_after2 <- get_random_seed() 1592s > kind_after2 <- RNGkind() 1592s > print(z) 1592s [1] 2 4 63 76 97 9 85 10 66 23 1592s > 1592s > ## The RNG state is the same after the second ... 1592s > ## run as after the first, two-step, approach 1592s > stopifnot(identical(seed_after2, seed_after)) 1592s > stopifnot(identical(kind_before2, kind_before)) 1592s > stopifnot(identical(kind_after2, kind_after)) 1592s > 1592s > ## .... and the exact same set of random numbers where 1592s > ## drawn [only true in R (>= 4.0.0)] 1592s > if (getRversion() >= "4.0.0") { 1592s + stopifnot(identical(z, c(x, y))) 1592s + } else { 1592s + stopifnot(identical(z[seq_along(x)], x)) 1592s + } 1592s > 1592s > set_random_seed(seed_org) 1592s > stopifnot(identical(get_random_seed(), seed_org)) 1592s > 1592s > message("*** RNG ... DONE") 1592s > 1592s > source("incl/end.R") 1592s [00:53:12.704] plan(): Setting new future strategy stack: 1592s [00:53:12.705] List of future strategies: 1592s [00:53:12.705] 1. FutureStrategy: 1592s [00:53:12.705] - args: function (..., envir = parent.frame()) 1592s [00:53:12.705] - tweaked: FALSE 1592s [00:53:12.705] - call: future::plan(oplan) 1592s [00:53:12.726] plan(): nbrOfWorkers() = 1 1592s > 1592s BEGIN TEST stdout.R 1592s 1592s R version 4.3.3 (2024-02-29) -- "Angel Food Cake" 1592s Copyright (C) 2024 The R Foundation for Statistical Computing 1592s Platform: s390x-ibm-linux-gnu (64-bit) 1592s 1592s R is free software and comes with ABSOLUTELY NO WARRANTY. 1592s You are welcome to redistribute it under certain conditions. 1592s Type 'license()' or 'licence()' for distribution details. 1592s 1592s R is a collaborative project with many contributors. 1592s Type 'contributors()' for more information and 1592s 'citation()' on how to cite R or R packages in publications. 1592s 1592s Type 'demo()' for some demos, 'help()' for on-line help, or 1592s 'help.start()' for an HTML browser interface to help. 1592s Type 'q()' to quit R. 1592s 1592s > source("incl/start.R") 1592s Loading required package: future 1593s [00:53:13.065] plan(): Setting new future strategy stack: 1593s [00:53:13.066] List of future strategies: 1593s [00:53:13.066] 1. sequential: 1593s [00:53:13.066] - args: function (..., envir = parent.frame()) 1593s [00:53:13.066] - tweaked: FALSE 1593s [00:53:13.066] - call: future::plan("sequential") 1593s [00:53:13.089] plan(): nbrOfWorkers() = 1 1593s > 1593s > message("*** future_*apply() and 'future.stdout' ...") 1593s > 1593s > *** future_*apply() and 'future.stdout' ... 1593s options(future.debug = TRUE) 1593s > 1593s > truth <- list() 1593s > 1593s > out <- utils::capture.output({ 1593s + y <- lapply(1:0, FUN = function(x) { 1593s + print(x) 1593s + }) 1593s + }) 1593s > truth[["lapply"]] <- list(value = y, stdout = out) 1593s > 1593s > out <- utils::capture.output({ 1593s + y <- mapply(1:0, 0:1, FUN = function(x, y) { 1593s + print(list(x = x, y = y)) 1593s + }) 1593s + }) 1593s > truth[["mapply"]] <- list(value = y, stdout = out) 1593s > 1593s > for (cores in 1:availCores) { 1593s + message(sprintf(" - Testing with %d cores ...", cores)) 1593s + options(mc.cores = cores) 1593s + 1593s + for (strategy in supportedStrategies(cores)) { 1593s + message(sprintf("* plan('%s') ...", strategy)) 1593s + plan(strategy) 1593s + 1593s + for (fun in names(truth)) { 1593s + for (stdout in c(FALSE, TRUE, NA)) { 1593s + message(sprintf("* future_%s(x, ..., future.stdout = %s) ...", fun, stdout)) 1593s + 1593s + out <- utils::capture.output({ 1593s + if (fun == "lapply") { 1593s + y <- future_lapply(1:0, FUN = function(x) { 1593s + Sys.sleep(x / 2) ## make futures resolve out of order 1593s + print(x) 1593s + }, future.stdout = stdout) 1593s + } else if (fun == "mapply") { 1593s + y <- future_mapply(1:0, 0:1, FUN = function(x, y) { 1593s + Sys.sleep(x / 2) ## make futures resolve out of order 1593s + print(list(x = x, y = y)) 1593s + }, future.stdout = stdout) 1593s + } 1593s + }) 1593s + stopifnot(identical(y, truth[[fun]]$value)) 1593s + 1593s + if (isTRUE(stdout)) { 1593s + stopifnot(identical(out, truth[[fun]]$stdout)) 1593s + } else if (is.na(stdout)) { 1593s + } else { 1593s + stopifnot(nchar(out) == 0) 1593s + } 1593s + 1593s + message(sprintf("* future_%s(x, ..., future.stdout = %s) ... DONE", fun, stdout)) 1593s + } ## for (stdout ...) 1593s + } ## for (fun ...) 1593s + 1593s + message(sprintf("* plan('%s') ... DONE", strategy)) 1593s + } 1593s + 1593s + message(sprintf(" - Testing with %d cores ... DONE", cores)) 1593s + } 1593s - Testing with 1 cores ... 1593s * plan('sequential') ... 1593s [00:53:13.156] plan(): Setting new future strategy stack: 1593s [00:53:13.156] List of future strategies: 1593s [00:53:13.156] 1. sequential: 1593s [00:53:13.156] - args: function (..., envir = parent.frame()) 1593s [00:53:13.156] - tweaked: FALSE 1593s [00:53:13.156] - call: plan(strategy) 1593s [00:53:13.180] plan(): nbrOfWorkers() = 1 1593s * future_lapply(x, ..., future.stdout = FALSE) ... 1593s [00:53:13.180] future_lapply() ... 1593s [00:53:13.189] Number of chunks: 1 1593s [00:53:13.190] getGlobalsAndPackagesXApply() ... 1593s [00:53:13.191] - future.globals: TRUE 1593s [00:53:13.192] getGlobalsAndPackages() ... 1593s [00:53:13.193] Searching for globals... 1593s [00:53:13.199] - globals found: [5] ‘FUN’, ‘{’, ‘Sys.sleep’, ‘/’, ‘print’ 1593s [00:53:13.200] Searching for globals ... DONE 1593s [00:53:13.200] Resolving globals: FALSE 1593s [00:53:13.202] The total size of the 1 globals is 4.61 KiB (4720 bytes) 1593s [00:53:13.203] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.61 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.61 KiB of class ‘function’) 1593s [00:53:13.204] - globals: [1] ‘FUN’ 1593s [00:53:13.204] 1593s [00:53:13.205] getGlobalsAndPackages() ... DONE 1593s [00:53:13.205] - globals found/used: [n=1] ‘FUN’ 1593s [00:53:13.205] - needed namespaces: [n=0] 1593s [00:53:13.205] Finding globals ... DONE 1593s [00:53:13.206] - use_args: TRUE 1593s [00:53:13.206] - Getting '...' globals ... 1593s [00:53:13.207] resolve() on list ... 1593s [00:53:13.207] recursive: 0 1593s [00:53:13.208] length: 1 1593s [00:53:13.208] elements: ‘...’ 1593s [00:53:13.208] length: 0 (resolved future 1) 1593s [00:53:13.208] resolve() on list ... DONE 1593s [00:53:13.208] - '...' content: [n=0] 1593s [00:53:13.208] List of 1 1593s [00:53:13.208] $ ...: list() 1593s [00:53:13.208] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1593s [00:53:13.208] - attr(*, "where")=List of 1 1593s [00:53:13.208] ..$ ...: 1593s [00:53:13.208] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1593s [00:53:13.208] - attr(*, "resolved")= logi TRUE 1593s [00:53:13.208] - attr(*, "total_size")= num NA 1593s [00:53:13.220] - Getting '...' globals ... DONE 1593s [00:53:13.220] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1593s [00:53:13.220] List of 2 1593s [00:53:13.220] $ ...future.FUN:function (x) 1593s [00:53:13.220] $ ... : list() 1593s [00:53:13.220] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1593s [00:53:13.220] - attr(*, "where")=List of 2 1593s [00:53:13.220] ..$ ...future.FUN: 1593s [00:53:13.220] ..$ ... : 1593s [00:53:13.220] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1593s [00:53:13.220] - attr(*, "resolved")= logi FALSE 1593s [00:53:13.220] - attr(*, "total_size")= num 4720 1593s [00:53:13.224] Packages to be attached in all futures: [n=0] 1593s [00:53:13.224] getGlobalsAndPackagesXApply() ... DONE 1593s [00:53:13.225] Number of futures (= number of chunks): 1 1593s [00:53:13.225] Launching 1 futures (chunks) ... 1593s [00:53:13.225] Chunk #1 of 1 ... 1593s [00:53:13.225] - Finding globals in 'X' for chunk #1 ... 1593s [00:53:13.225] getGlobalsAndPackages() ... 1593s [00:53:13.225] Searching for globals... 1593s [00:53:13.226] 1593s [00:53:13.226] Searching for globals ... DONE 1593s [00:53:13.226] - globals: [0] 1593s [00:53:13.226] getGlobalsAndPackages() ... DONE 1593s [00:53:13.226] + additional globals found: [n=0] 1593s [00:53:13.227] + additional namespaces needed: [n=0] 1593s [00:53:13.227] - Finding globals in 'X' for chunk #1 ... DONE 1593s [00:53:13.227] - seeds: 1593s [00:53:13.227] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1593s [00:53:13.227] getGlobalsAndPackages() ... 1593s [00:53:13.227] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1593s [00:53:13.227] Resolving globals: FALSE 1593s [00:53:13.228] Tweak future expression to call with '...' arguments ... 1593s [00:53:13.228] { 1593s [00:53:13.228] do.call(function(...) { 1593s [00:53:13.228] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1593s [00:53:13.228] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1593s [00:53:13.228] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1593s [00:53:13.228] on.exit(options(oopts), add = TRUE) 1593s [00:53:13.228] } 1593s [00:53:13.228] { 1593s [00:53:13.228] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1593s [00:53:13.228] ...future.X_jj <- ...future.elements_ii[[jj]] 1593s [00:53:13.228] ...future.FUN(...future.X_jj, ...) 1593s [00:53:13.228] }) 1593s [00:53:13.228] } 1593s [00:53:13.228] }, args = future.call.arguments) 1593s [00:53:13.228] } 1593s [00:53:13.228] Tweak future expression to call with '...' arguments ... DONE 1593s [00:53:13.229] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1593s [00:53:13.229] 1593s [00:53:13.229] getGlobalsAndPackages() ... DONE 1593s [00:53:13.231] run() for ‘Future’ ... 1593s [00:53:13.231] - state: ‘created’ 1593s [00:53:13.231] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1593s [00:53:13.232] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1593s [00:53:13.232] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1593s [00:53:13.232] - Field: ‘label’ 1593s [00:53:13.232] - Field: ‘local’ 1593s [00:53:13.232] - Field: ‘owner’ 1593s [00:53:13.233] - Field: ‘envir’ 1593s [00:53:13.233] - Field: ‘packages’ 1593s [00:53:13.233] - Field: ‘gc’ 1593s [00:53:13.233] - Field: ‘conditions’ 1593s [00:53:13.233] - Field: ‘expr’ 1593s [00:53:13.234] - Field: ‘uuid’ 1593s [00:53:13.234] - Field: ‘seed’ 1593s [00:53:13.234] - Field: ‘version’ 1593s [00:53:13.234] - Field: ‘result’ 1593s [00:53:13.234] - Field: ‘asynchronous’ 1593s [00:53:13.234] - Field: ‘calls’ 1593s [00:53:13.235] - Field: ‘globals’ 1593s [00:53:13.235] - Field: ‘stdout’ 1593s [00:53:13.235] - Field: ‘earlySignal’ 1593s [00:53:13.235] - Field: ‘lazy’ 1593s [00:53:13.236] - Field: ‘state’ 1593s [00:53:13.236] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1593s [00:53:13.236] - Launch lazy future ... 1593s [00:53:13.237] Packages needed by the future expression (n = 0): 1593s [00:53:13.238] Packages needed by future strategies (n = 0): 1593s [00:53:13.239] { 1593s [00:53:13.239] { 1593s [00:53:13.239] { 1593s [00:53:13.239] ...future.startTime <- base::Sys.time() 1593s [00:53:13.239] { 1593s [00:53:13.239] { 1593s [00:53:13.239] { 1593s [00:53:13.239] base::local({ 1593s [00:53:13.239] has_future <- base::requireNamespace("future", 1593s [00:53:13.239] quietly = TRUE) 1593s [00:53:13.239] if (has_future) { 1593s [00:53:13.239] ns <- base::getNamespace("future") 1593s [00:53:13.239] version <- ns[[".package"]][["version"]] 1593s [00:53:13.239] if (is.null(version)) 1593s [00:53:13.239] version <- utils::packageVersion("future") 1593s [00:53:13.239] } 1593s [00:53:13.239] else { 1593s [00:53:13.239] version <- NULL 1593s [00:53:13.239] } 1593s [00:53:13.239] if (!has_future || version < "1.8.0") { 1593s [00:53:13.239] info <- base::c(r_version = base::gsub("R version ", 1593s [00:53:13.239] "", base::R.version$version.string), 1593s [00:53:13.239] platform = base::sprintf("%s (%s-bit)", 1593s [00:53:13.239] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1593s [00:53:13.239] os = base::paste(base::Sys.info()[base::c("sysname", 1593s [00:53:13.239] "release", "version")], collapse = " "), 1593s [00:53:13.239] hostname = base::Sys.info()[["nodename"]]) 1593s [00:53:13.239] info <- base::sprintf("%s: %s", base::names(info), 1593s [00:53:13.239] info) 1593s [00:53:13.239] info <- base::paste(info, collapse = "; ") 1593s [00:53:13.239] if (!has_future) { 1593s [00:53:13.239] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1593s [00:53:13.239] info) 1593s [00:53:13.239] } 1593s [00:53:13.239] else { 1593s [00:53:13.239] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1593s [00:53:13.239] info, version) 1593s [00:53:13.239] } 1593s [00:53:13.239] base::stop(msg) 1593s [00:53:13.239] } 1593s [00:53:13.239] }) 1593s [00:53:13.239] } 1593s [00:53:13.239] options(future.plan = NULL) 1593s [00:53:13.239] Sys.unsetenv("R_FUTURE_PLAN") 1593s [00:53:13.239] future::plan("default", .cleanup = FALSE, .init = FALSE) 1593s [00:53:13.239] } 1593s [00:53:13.239] ...future.workdir <- getwd() 1593s [00:53:13.239] } 1593s [00:53:13.239] ...future.oldOptions <- base::as.list(base::.Options) 1593s [00:53:13.239] ...future.oldEnvVars <- base::Sys.getenv() 1593s [00:53:13.239] } 1593s [00:53:13.239] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1593s [00:53:13.239] future.globals.maxSize = NULL, future.globals.method = NULL, 1593s [00:53:13.239] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1593s [00:53:13.239] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1593s [00:53:13.239] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1593s [00:53:13.239] future.stdout.windows.reencode = NULL, width = 80L) 1593s [00:53:13.239] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1593s [00:53:13.239] base::names(...future.oldOptions)) 1593s [00:53:13.239] } 1593s [00:53:13.239] if (FALSE) { 1593s [00:53:13.239] } 1593s [00:53:13.239] else { 1593s [00:53:13.239] if (FALSE) { 1593s [00:53:13.239] ...future.stdout <- base::rawConnection(base::raw(0L), 1593s [00:53:13.239] open = "w") 1593s [00:53:13.239] } 1593s [00:53:13.239] else { 1593s [00:53:13.239] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1593s [00:53:13.239] windows = "NUL", "/dev/null"), open = "w") 1593s [00:53:13.239] } 1593s [00:53:13.239] base::sink(...future.stdout, type = "output", split = FALSE) 1593s [00:53:13.239] base::on.exit(if (!base::is.null(...future.stdout)) { 1593s [00:53:13.239] base::sink(type = "output", split = FALSE) 1593s [00:53:13.239] base::close(...future.stdout) 1593s [00:53:13.239] }, add = TRUE) 1593s [00:53:13.239] } 1593s [00:53:13.239] ...future.frame <- base::sys.nframe() 1593s [00:53:13.239] ...future.conditions <- base::list() 1593s [00:53:13.239] ...future.rng <- base::globalenv()$.Random.seed 1593s [00:53:13.239] if (FALSE) { 1593s [00:53:13.239] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1593s [00:53:13.239] "...future.value", "...future.globalenv.names", ".Random.seed") 1593s [00:53:13.239] } 1593s [00:53:13.239] ...future.result <- base::tryCatch({ 1593s [00:53:13.239] base::withCallingHandlers({ 1593s [00:53:13.239] ...future.value <- base::withVisible(base::local({ 1593s [00:53:13.239] do.call(function(...) { 1593s [00:53:13.239] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1593s [00:53:13.239] if (!identical(...future.globals.maxSize.org, 1593s [00:53:13.239] ...future.globals.maxSize)) { 1593s [00:53:13.239] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1593s [00:53:13.239] on.exit(options(oopts), add = TRUE) 1593s [00:53:13.239] } 1593s [00:53:13.239] { 1593s [00:53:13.239] lapply(seq_along(...future.elements_ii), 1593s [00:53:13.239] FUN = function(jj) { 1593s [00:53:13.239] ...future.X_jj <- ...future.elements_ii[[jj]] 1593s [00:53:13.239] ...future.FUN(...future.X_jj, ...) 1593s [00:53:13.239] }) 1593s [00:53:13.239] } 1593s [00:53:13.239] }, args = future.call.arguments) 1593s [00:53:13.239] })) 1593s [00:53:13.239] future::FutureResult(value = ...future.value$value, 1593s [00:53:13.239] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1593s [00:53:13.239] ...future.rng), globalenv = if (FALSE) 1593s [00:53:13.239] list(added = base::setdiff(base::names(base::.GlobalEnv), 1593s [00:53:13.239] ...future.globalenv.names)) 1593s [00:53:13.239] else NULL, started = ...future.startTime, version = "1.8") 1593s [00:53:13.239] }, condition = base::local({ 1593s [00:53:13.239] c <- base::c 1593s [00:53:13.239] inherits <- base::inherits 1593s [00:53:13.239] invokeRestart <- base::invokeRestart 1593s [00:53:13.239] length <- base::length 1593s [00:53:13.239] list <- base::list 1593s [00:53:13.239] seq.int <- base::seq.int 1593s [00:53:13.239] signalCondition <- base::signalCondition 1593s [00:53:13.239] sys.calls <- base::sys.calls 1593s [00:53:13.239] `[[` <- base::`[[` 1593s [00:53:13.239] `+` <- base::`+` 1593s [00:53:13.239] `<<-` <- base::`<<-` 1593s [00:53:13.239] sysCalls <- function(calls = sys.calls(), from = 1L) { 1593s [00:53:13.239] calls[seq.int(from = from + 12L, to = length(calls) - 1593s [00:53:13.239] 3L)] 1593s [00:53:13.239] } 1593s [00:53:13.239] function(cond) { 1593s [00:53:13.239] is_error <- inherits(cond, "error") 1593s [00:53:13.239] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1593s [00:53:13.239] NULL) 1593s [00:53:13.239] if (is_error) { 1593s [00:53:13.239] sessionInformation <- function() { 1593s [00:53:13.239] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1593s [00:53:13.239] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1593s [00:53:13.239] search = base::search(), system = base::Sys.info()) 1593s [00:53:13.239] } 1593s [00:53:13.239] ...future.conditions[[length(...future.conditions) + 1593s [00:53:13.239] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1593s [00:53:13.239] cond$call), session = sessionInformation(), 1593s [00:53:13.239] timestamp = base::Sys.time(), signaled = 0L) 1593s [00:53:13.239] signalCondition(cond) 1593s [00:53:13.239] } 1593s [00:53:13.239] else if (!ignore && TRUE && inherits(cond, c("condition", 1593s [00:53:13.239] "immediateCondition"))) { 1593s [00:53:13.239] signal <- TRUE && inherits(cond, "immediateCondition") 1593s [00:53:13.239] ...future.conditions[[length(...future.conditions) + 1593s [00:53:13.239] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1593s [00:53:13.239] if (TRUE && !signal) { 1593s [00:53:13.239] muffleCondition <- function (cond, pattern = "^muffle") 1593s [00:53:13.239] { 1593s [00:53:13.239] inherits <- base::inherits 1593s [00:53:13.239] invokeRestart <- base::invokeRestart 1593s [00:53:13.239] is.null <- base::is.null 1593s [00:53:13.239] muffled <- FALSE 1593s [00:53:13.239] if (inherits(cond, "message")) { 1593s [00:53:13.239] muffled <- grepl(pattern, "muffleMessage") 1593s [00:53:13.239] if (muffled) 1593s [00:53:13.239] invokeRestart("muffleMessage") 1593s [00:53:13.239] } 1593s [00:53:13.239] else if (inherits(cond, "warning")) { 1593s [00:53:13.239] muffled <- grepl(pattern, "muffleWarning") 1593s [00:53:13.239] if (muffled) 1593s [00:53:13.239] invokeRestart("muffleWarning") 1593s [00:53:13.239] } 1593s [00:53:13.239] else if (inherits(cond, "condition")) { 1593s [00:53:13.239] if (!is.null(pattern)) { 1593s [00:53:13.239] computeRestarts <- base::computeRestarts 1593s [00:53:13.239] grepl <- base::grepl 1593s [00:53:13.239] restarts <- computeRestarts(cond) 1593s [00:53:13.239] for (restart in restarts) { 1593s [00:53:13.239] name <- restart$name 1593s [00:53:13.239] if (is.null(name)) 1593s [00:53:13.239] next 1593s [00:53:13.239] if (!grepl(pattern, name)) 1593s [00:53:13.239] next 1593s [00:53:13.239] invokeRestart(restart) 1593s [00:53:13.239] muffled <- TRUE 1593s [00:53:13.239] break 1593s [00:53:13.239] } 1593s [00:53:13.239] } 1593s [00:53:13.239] } 1593s [00:53:13.239] invisible(muffled) 1593s [00:53:13.239] } 1593s [00:53:13.239] muffleCondition(cond, pattern = "^muffle") 1593s [00:53:13.239] } 1593s [00:53:13.239] } 1593s [00:53:13.239] else { 1593s [00:53:13.239] if (TRUE) { 1593s [00:53:13.239] muffleCondition <- function (cond, pattern = "^muffle") 1593s [00:53:13.239] { 1593s [00:53:13.239] inherits <- base::inherits 1593s [00:53:13.239] invokeRestart <- base::invokeRestart 1593s [00:53:13.239] is.null <- base::is.null 1593s [00:53:13.239] muffled <- FALSE 1593s [00:53:13.239] if (inherits(cond, "message")) { 1593s [00:53:13.239] muffled <- grepl(pattern, "muffleMessage") 1593s [00:53:13.239] if (muffled) 1593s [00:53:13.239] invokeRestart("muffleMessage") 1593s [00:53:13.239] } 1593s [00:53:13.239] else if (inherits(cond, "warning")) { 1593s [00:53:13.239] muffled <- grepl(pattern, "muffleWarning") 1593s [00:53:13.239] if (muffled) 1593s [00:53:13.239] invokeRestart("muffleWarning") 1593s [00:53:13.239] } 1593s [00:53:13.239] else if (inherits(cond, "condition")) { 1593s [00:53:13.239] if (!is.null(pattern)) { 1593s [00:53:13.239] computeRestarts <- base::computeRestarts 1593s [00:53:13.239] grepl <- base::grepl 1593s [00:53:13.239] restarts <- computeRestarts(cond) 1593s [00:53:13.239] for (restart in restarts) { 1593s [00:53:13.239] name <- restart$name 1593s [00:53:13.239] if (is.null(name)) 1593s [00:53:13.239] next 1593s [00:53:13.239] if (!grepl(pattern, name)) 1593s [00:53:13.239] next 1593s [00:53:13.239] invokeRestart(restart) 1593s [00:53:13.239] muffled <- TRUE 1593s [00:53:13.239] break 1593s [00:53:13.239] } 1593s [00:53:13.239] } 1593s [00:53:13.239] } 1593s [00:53:13.239] invisible(muffled) 1593s [00:53:13.239] } 1593s [00:53:13.239] muffleCondition(cond, pattern = "^muffle") 1593s [00:53:13.239] } 1593s [00:53:13.239] } 1593s [00:53:13.239] } 1593s [00:53:13.239] })) 1593s [00:53:13.239] }, error = function(ex) { 1593s [00:53:13.239] base::structure(base::list(value = NULL, visible = NULL, 1593s [00:53:13.239] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1593s [00:53:13.239] ...future.rng), started = ...future.startTime, 1593s [00:53:13.239] finished = Sys.time(), session_uuid = NA_character_, 1593s [00:53:13.239] version = "1.8"), class = "FutureResult") 1593s [00:53:13.239] }, finally = { 1593s [00:53:13.239] if (!identical(...future.workdir, getwd())) 1593s [00:53:13.239] setwd(...future.workdir) 1593s [00:53:13.239] { 1593s [00:53:13.239] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1593s [00:53:13.239] ...future.oldOptions$nwarnings <- NULL 1593s [00:53:13.239] } 1593s [00:53:13.239] base::options(...future.oldOptions) 1593s [00:53:13.239] if (.Platform$OS.type == "windows") { 1593s [00:53:13.239] old_names <- names(...future.oldEnvVars) 1593s [00:53:13.239] envs <- base::Sys.getenv() 1593s [00:53:13.239] names <- names(envs) 1593s [00:53:13.239] common <- intersect(names, old_names) 1593s [00:53:13.239] added <- setdiff(names, old_names) 1593s [00:53:13.239] removed <- setdiff(old_names, names) 1593s [00:53:13.239] changed <- common[...future.oldEnvVars[common] != 1593s [00:53:13.239] envs[common]] 1593s [00:53:13.239] NAMES <- toupper(changed) 1593s [00:53:13.239] args <- list() 1593s [00:53:13.239] for (kk in seq_along(NAMES)) { 1593s [00:53:13.239] name <- changed[[kk]] 1593s [00:53:13.239] NAME <- NAMES[[kk]] 1593s [00:53:13.239] if (name != NAME && is.element(NAME, old_names)) 1593s [00:53:13.239] next 1593s [00:53:13.239] args[[name]] <- ...future.oldEnvVars[[name]] 1593s [00:53:13.239] } 1593s [00:53:13.239] NAMES <- toupper(added) 1593s [00:53:13.239] for (kk in seq_along(NAMES)) { 1593s [00:53:13.239] name <- added[[kk]] 1593s [00:53:13.239] NAME <- NAMES[[kk]] 1593s [00:53:13.239] if (name != NAME && is.element(NAME, old_names)) 1593s [00:53:13.239] next 1593s [00:53:13.239] args[[name]] <- "" 1593s [00:53:13.239] } 1593s [00:53:13.239] NAMES <- toupper(removed) 1593s [00:53:13.239] for (kk in seq_along(NAMES)) { 1593s [00:53:13.239] name <- removed[[kk]] 1593s [00:53:13.239] NAME <- NAMES[[kk]] 1593s [00:53:13.239] if (name != NAME && is.element(NAME, old_names)) 1593s [00:53:13.239] next 1593s [00:53:13.239] args[[name]] <- ...future.oldEnvVars[[name]] 1593s [00:53:13.239] } 1593s [00:53:13.239] if (length(args) > 0) 1593s [00:53:13.239] base::do.call(base::Sys.setenv, args = args) 1593s [00:53:13.239] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1593s [00:53:13.239] } 1593s [00:53:13.239] else { 1593s [00:53:13.239] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1593s [00:53:13.239] } 1593s [00:53:13.239] { 1593s [00:53:13.239] if (base::length(...future.futureOptionsAdded) > 1593s [00:53:13.239] 0L) { 1593s [00:53:13.239] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1593s [00:53:13.239] base::names(opts) <- ...future.futureOptionsAdded 1593s [00:53:13.239] base::options(opts) 1593s [00:53:13.239] } 1593s [00:53:13.239] { 1593s [00:53:13.239] { 1593s [00:53:13.239] NULL 1593s [00:53:13.239] RNGkind("Mersenne-Twister") 1593s [00:53:13.239] base::rm(list = ".Random.seed", envir = base::globalenv(), 1593s [00:53:13.239] inherits = FALSE) 1593s [00:53:13.239] } 1593s [00:53:13.239] options(future.plan = NULL) 1593s [00:53:13.239] if (is.na(NA_character_)) 1593s [00:53:13.239] Sys.unsetenv("R_FUTURE_PLAN") 1593s [00:53:13.239] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1593s [00:53:13.239] future::plan(list(function (..., envir = parent.frame()) 1593s [00:53:13.239] { 1593s [00:53:13.239] future <- SequentialFuture(..., envir = envir) 1593s [00:53:13.239] if (!future$lazy) 1593s [00:53:13.239] future <- run(future) 1593s [00:53:13.239] invisible(future) 1593s [00:53:13.239] }), .cleanup = FALSE, .init = FALSE) 1593s [00:53:13.239] } 1593s [00:53:13.239] } 1593s [00:53:13.239] } 1593s [00:53:13.239] }) 1593s [00:53:13.239] if (TRUE) { 1593s [00:53:13.239] base::sink(type = "output", split = FALSE) 1593s [00:53:13.239] if (FALSE) { 1593s [00:53:13.239] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1593s [00:53:13.239] } 1593s [00:53:13.239] else { 1593s [00:53:13.239] ...future.result["stdout"] <- base::list(NULL) 1593s [00:53:13.239] } 1593s [00:53:13.239] base::close(...future.stdout) 1593s [00:53:13.239] ...future.stdout <- NULL 1593s [00:53:13.239] } 1593s [00:53:13.239] ...future.result$conditions <- ...future.conditions 1593s [00:53:13.239] ...future.result$finished <- base::Sys.time() 1593s [00:53:13.239] ...future.result 1593s [00:53:13.239] } 1593s [00:53:13.246] assign_globals() ... 1593s [00:53:13.246] List of 5 1593s [00:53:13.246] $ ...future.FUN :function (x) 1593s [00:53:13.246] $ future.call.arguments : list() 1593s [00:53:13.246] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1593s [00:53:13.246] $ ...future.elements_ii :List of 2 1593s [00:53:13.246] ..$ : int 1 1593s [00:53:13.246] ..$ : int 0 1593s [00:53:13.246] $ ...future.seeds_ii : NULL 1593s [00:53:13.246] $ ...future.globals.maxSize: NULL 1593s [00:53:13.246] - attr(*, "where")=List of 5 1593s [00:53:13.246] ..$ ...future.FUN : 1593s [00:53:13.246] ..$ future.call.arguments : 1593s [00:53:13.246] ..$ ...future.elements_ii : 1593s [00:53:13.246] ..$ ...future.seeds_ii : 1593s [00:53:13.246] ..$ ...future.globals.maxSize: 1593s [00:53:13.246] - attr(*, "resolved")= logi FALSE 1593s [00:53:13.246] - attr(*, "total_size")= num 4720 1593s [00:53:13.246] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1593s [00:53:13.246] - attr(*, "already-done")= logi TRUE 1593s [00:53:13.254] - reassign environment for ‘...future.FUN’ 1593s [00:53:13.254] - copied ‘...future.FUN’ to environment 1593s [00:53:13.254] - copied ‘future.call.arguments’ to environment 1593s [00:53:13.254] - copied ‘...future.elements_ii’ to environment 1593s [00:53:13.255] - copied ‘...future.seeds_ii’ to environment 1593s [00:53:13.255] - copied ‘...future.globals.maxSize’ to environment 1593s [00:53:13.255] assign_globals() ... done 1593s [00:53:13.256] plan(): Setting new future strategy stack: 1593s [00:53:13.256] List of future strategies: 1593s [00:53:13.256] 1. sequential: 1593s [00:53:13.256] - args: function (..., envir = parent.frame()) 1593s [00:53:13.256] - tweaked: FALSE 1593s [00:53:13.256] - call: NULL 1593s [00:53:13.257] plan(): nbrOfWorkers() = 1 1593s [00:53:13.760] plan(): Setting new future strategy stack: 1593s [00:53:13.760] List of future strategies: 1593s [00:53:13.760] 1. sequential: 1593s [00:53:13.760] - args: function (..., envir = parent.frame()) 1593s [00:53:13.760] - tweaked: FALSE 1593s [00:53:13.760] - call: plan(strategy) 1593s [00:53:13.761] plan(): nbrOfWorkers() = 1 1593s [00:53:13.761] SequentialFuture started (and completed) 1593s [00:53:13.762] - Launch lazy future ... done 1593s [00:53:13.762] run() for ‘SequentialFuture’ ... done 1593s [00:53:13.763] Created future: 1593s [00:53:13.763] SequentialFuture: 1593s [00:53:13.763] Label: ‘future_lapply-1’ 1593s [00:53:13.763] Expression: 1593s [00:53:13.763] { 1593s [00:53:13.763] do.call(function(...) { 1593s [00:53:13.763] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1593s [00:53:13.763] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1593s [00:53:13.763] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1593s [00:53:13.763] on.exit(options(oopts), add = TRUE) 1593s [00:53:13.763] } 1593s [00:53:13.763] { 1593s [00:53:13.763] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1593s [00:53:13.763] ...future.X_jj <- ...future.elements_ii[[jj]] 1593s [00:53:13.763] ...future.FUN(...future.X_jj, ...) 1593s [00:53:13.763] }) 1593s [00:53:13.763] } 1593s [00:53:13.763] }, args = future.call.arguments) 1593s [00:53:13.763] } 1593s [00:53:13.763] Lazy evaluation: FALSE 1593s [00:53:13.763] Asynchronous evaluation: FALSE 1593s [00:53:13.763] Local evaluation: TRUE 1593s [00:53:13.763] Environment: R_GlobalEnv 1593s [00:53:13.763] Capture standard output: FALSE 1593s [00:53:13.763] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1593s [00:53:13.763] Globals: 5 objects totaling 4.72 KiB (function ‘...future.FUN’ of 4.61 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1593s [00:53:13.763] Packages: 1593s [00:53:13.763] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1593s [00:53:13.763] Resolved: TRUE 1593s [00:53:13.763] Value: 112 bytes of class ‘list’ 1593s [00:53:13.763] Early signaling: FALSE 1593s [00:53:13.763] Owner process: aef6b2cf-a7ff-4166-a7a6-2b6e1e64c3ba 1593s [00:53:13.763] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1593s [00:53:13.766] Chunk #1 of 1 ... DONE 1593s [00:53:13.766] Launching 1 futures (chunks) ... DONE 1593s [00:53:13.766] Resolving 1 futures (chunks) ... 1593s [00:53:13.766] resolve() on list ... 1593s [00:53:13.766] recursive: 0 1593s [00:53:13.766] length: 1 1593s [00:53:13.767] 1593s [00:53:13.767] resolved() for ‘SequentialFuture’ ... 1593s [00:53:13.767] - state: ‘finished’ 1593s [00:53:13.767] - run: TRUE 1593s [00:53:13.767] - result: ‘FutureResult’ 1593s [00:53:13.768] resolved() for ‘SequentialFuture’ ... done 1593s [00:53:13.768] Future #1 1593s [00:53:13.768] signalConditionsASAP(SequentialFuture, pos=1) ... 1593s [00:53:13.769] - nx: 1 1593s [00:53:13.769] - relay: TRUE 1593s [00:53:13.769] - stdout: TRUE 1593s [00:53:13.769] - signal: TRUE 1593s [00:53:13.769] - resignal: FALSE 1593s [00:53:13.769] - force: TRUE 1593s [00:53:13.770] - relayed: [n=1] FALSE 1593s [00:53:13.770] - queued futures: [n=1] FALSE 1593s [00:53:13.770] - until=1 1593s [00:53:13.770] - relaying element #1 1593s [00:53:13.770] - relayed: [n=1] TRUE 1593s [00:53:13.770] - queued futures: [n=1] TRUE 1593s [00:53:13.771] signalConditionsASAP(SequentialFuture, pos=1) ... done 1593s [00:53:13.771] length: 0 (resolved future 1) 1593s [00:53:13.771] Relaying remaining futures 1593s [00:53:13.771] signalConditionsASAP(NULL, pos=0) ... 1593s [00:53:13.771] - nx: 1 1593s [00:53:13.772] - relay: TRUE 1593s [00:53:13.772] - stdout: TRUE 1593s [00:53:13.772] - signal: TRUE 1593s [00:53:13.772] - resignal: FALSE 1593s [00:53:13.772] - force: TRUE 1593s [00:53:13.773] - relayed: [n=1] TRUE 1593s [00:53:13.773] - queued futures: [n=1] TRUE 1593s - flush all 1593s [00:53:13.773] - relayed: [n=1] TRUE 1593s [00:53:13.773] - queued futures: [n=1] TRUE 1593s [00:53:13.773] signalConditionsASAP(NULL, pos=0) ... done 1593s [00:53:13.774] resolve() on list ... DONE 1593s [00:53:13.777] - Number of value chunks collected: 1 1593s [00:53:13.777] Resolving 1 futures (chunks) ... DONE 1593s [00:53:13.777] Reducing values from 1 chunks ... 1593s [00:53:13.777] - Number of values collected after concatenation: 2 1593s [00:53:13.778] - Number of values expected: 2 1593s [00:53:13.778] Reducing values from 1 chunks ... DONE 1593s [00:53:13.778] future_lapply() ... DONE 1593s * future_lapply(x, ..., future.stdout = FALSE) ... DONE 1593s * future_lapply(x, ..., future.stdout = TRUE) ... 1593s [00:53:13.778] future_lapply() ... 1593s [00:53:13.779] Number of chunks: 1 1593s [00:53:13.780] getGlobalsAndPackagesXApply() ... 1593s [00:53:13.780] - future.globals: TRUE 1593s [00:53:13.780] getGlobalsAndPackages() ... 1593s [00:53:13.780] Searching for globals... 1593s [00:53:13.782] - globals found: [5] ‘FUN’, ‘{’, ‘Sys.sleep’, ‘/’, ‘print’ 1593s [00:53:13.783] Searching for globals ... DONE 1593s [00:53:13.783] Resolving globals: FALSE 1593s [00:53:13.784] The total size of the 1 globals is 4.61 KiB (4720 bytes) 1593s [00:53:13.784] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.61 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.61 KiB of class ‘function’) 1593s [00:53:13.785] - globals: [1] ‘FUN’ 1593s [00:53:13.785] 1593s [00:53:13.785] getGlobalsAndPackages() ... DONE 1593s [00:53:13.785] - globals found/used: [n=1] ‘FUN’ 1593s [00:53:13.785] - needed namespaces: [n=0] 1593s [00:53:13.786] Finding globals ... DONE 1593s [00:53:13.786] - use_args: TRUE 1593s [00:53:13.786] - Getting '...' globals ... 1593s [00:53:13.786] resolve() on list ... 1593s [00:53:13.786] recursive: 0 1593s [00:53:13.787] length: 1 1593s [00:53:13.787] elements: ‘...’ 1593s [00:53:13.787] length: 0 (resolved future 1) 1593s [00:53:13.787] resolve() on list ... DONE 1593s [00:53:13.787] - '...' content: [n=0] 1593s [00:53:13.787] List of 1 1593s [00:53:13.787] $ ...: list() 1593s [00:53:13.787] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1593s [00:53:13.787] - attr(*, "where")=List of 1 1593s [00:53:13.787] ..$ ...: 1593s [00:53:13.787] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1593s [00:53:13.787] - attr(*, "resolved")= logi TRUE 1593s [00:53:13.787] - attr(*, "total_size")= num NA 1593s [00:53:13.791] - Getting '...' globals ... DONE 1593s [00:53:13.791] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1593s [00:53:13.791] List of 2 1593s [00:53:13.791] $ ...future.FUN:function (x) 1593s [00:53:13.791] $ ... : list() 1593s [00:53:13.791] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1593s [00:53:13.791] - attr(*, "where")=List of 2 1593s [00:53:13.791] ..$ ...future.FUN: 1593s [00:53:13.791] ..$ ... : 1593s [00:53:13.791] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1593s [00:53:13.791] - attr(*, "resolved")= logi FALSE 1593s [00:53:13.791] - attr(*, "total_size")= num 4720 1593s [00:53:13.795] Packages to be attached in all futures: [n=0] 1593s [00:53:13.795] getGlobalsAndPackagesXApply() ... DONE 1593s [00:53:13.795] Number of futures (= number of chunks): 1 1593s [00:53:13.795] Launching 1 futures (chunks) ... 1593s [00:53:13.796] Chunk #1 of 1 ... 1593s [00:53:13.796] - Finding globals in 'X' for chunk #1 ... 1593s [00:53:13.796] getGlobalsAndPackages() ... 1593s [00:53:13.796] Searching for globals... 1593s [00:53:13.796] 1593s [00:53:13.797] Searching for globals ... DONE 1593s [00:53:13.797] - globals: [0] 1593s [00:53:13.797] getGlobalsAndPackages() ... DONE 1593s [00:53:13.797] + additional globals found: [n=0] 1593s [00:53:13.797] + additional namespaces needed: [n=0] 1593s [00:53:13.797] - Finding globals in 'X' for chunk #1 ... DONE 1593s [00:53:13.797] - seeds: 1593s [00:53:13.798] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1593s [00:53:13.798] getGlobalsAndPackages() ... 1593s [00:53:13.798] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1593s [00:53:13.798] Resolving globals: FALSE 1593s [00:53:13.798] Tweak future expression to call with '...' arguments ... 1593s [00:53:13.799] { 1593s [00:53:13.799] do.call(function(...) { 1593s [00:53:13.799] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1593s [00:53:13.799] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1593s [00:53:13.799] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1593s [00:53:13.799] on.exit(options(oopts), add = TRUE) 1593s [00:53:13.799] } 1593s [00:53:13.799] { 1593s [00:53:13.799] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1593s [00:53:13.799] ...future.X_jj <- ...future.elements_ii[[jj]] 1593s [00:53:13.799] ...future.FUN(...future.X_jj, ...) 1593s [00:53:13.799] }) 1593s [00:53:13.799] } 1593s [00:53:13.799] }, args = future.call.arguments) 1593s [00:53:13.799] } 1593s [00:53:13.799] Tweak future expression to call with '...' arguments ... DONE 1593s [00:53:13.800] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1593s [00:53:13.800] 1593s [00:53:13.800] getGlobalsAndPackages() ... DONE 1593s [00:53:13.800] run() for ‘Future’ ... 1593s [00:53:13.801] - state: ‘created’ 1593s [00:53:13.801] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1593s [00:53:13.801] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1593s [00:53:13.802] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1593s [00:53:13.802] - Field: ‘label’ 1593s [00:53:13.802] - Field: ‘local’ 1593s [00:53:13.802] - Field: ‘owner’ 1593s [00:53:13.802] - Field: ‘envir’ 1593s [00:53:13.803] - Field: ‘packages’ 1593s [00:53:13.803] - Field: ‘gc’ 1593s [00:53:13.803] - Field: ‘conditions’ 1593s [00:53:13.803] - Field: ‘expr’ 1593s [00:53:13.803] - Field: ‘uuid’ 1593s [00:53:13.804] - Field: ‘seed’ 1593s [00:53:13.804] - Field: ‘version’ 1593s [00:53:13.804] - Field: ‘result’ 1593s [00:53:13.804] - Field: ‘asynchronous’ 1593s [00:53:13.804] - Field: ‘calls’ 1593s [00:53:13.805] - Field: ‘globals’ 1593s [00:53:13.805] - Field: ‘stdout’ 1593s [00:53:13.805] - Field: ‘earlySignal’ 1593s [00:53:13.805] - Field: ‘lazy’ 1593s [00:53:13.805] - Field: ‘state’ 1593s [00:53:13.805] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1593s [00:53:13.806] - Launch lazy future ... 1593s [00:53:13.806] Packages needed by the future expression (n = 0): 1593s [00:53:13.806] Packages needed by future strategies (n = 0): 1593s [00:53:13.807] { 1593s [00:53:13.807] { 1593s [00:53:13.807] { 1593s [00:53:13.807] ...future.startTime <- base::Sys.time() 1593s [00:53:13.807] { 1593s [00:53:13.807] { 1593s [00:53:13.807] { 1593s [00:53:13.807] base::local({ 1593s [00:53:13.807] has_future <- base::requireNamespace("future", 1593s [00:53:13.807] quietly = TRUE) 1593s [00:53:13.807] if (has_future) { 1593s [00:53:13.807] ns <- base::getNamespace("future") 1593s [00:53:13.807] version <- ns[[".package"]][["version"]] 1593s [00:53:13.807] if (is.null(version)) 1593s [00:53:13.807] version <- utils::packageVersion("future") 1593s [00:53:13.807] } 1593s [00:53:13.807] else { 1593s [00:53:13.807] version <- NULL 1593s [00:53:13.807] } 1593s [00:53:13.807] if (!has_future || version < "1.8.0") { 1593s [00:53:13.807] info <- base::c(r_version = base::gsub("R version ", 1593s [00:53:13.807] "", base::R.version$version.string), 1593s [00:53:13.807] platform = base::sprintf("%s (%s-bit)", 1593s [00:53:13.807] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1593s [00:53:13.807] os = base::paste(base::Sys.info()[base::c("sysname", 1593s [00:53:13.807] "release", "version")], collapse = " "), 1593s [00:53:13.807] hostname = base::Sys.info()[["nodename"]]) 1593s [00:53:13.807] info <- base::sprintf("%s: %s", base::names(info), 1593s [00:53:13.807] info) 1593s [00:53:13.807] info <- base::paste(info, collapse = "; ") 1593s [00:53:13.807] if (!has_future) { 1593s [00:53:13.807] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1593s [00:53:13.807] info) 1593s [00:53:13.807] } 1593s [00:53:13.807] else { 1593s [00:53:13.807] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1593s [00:53:13.807] info, version) 1593s [00:53:13.807] } 1593s [00:53:13.807] base::stop(msg) 1593s [00:53:13.807] } 1593s [00:53:13.807] }) 1593s [00:53:13.807] } 1593s [00:53:13.807] options(future.plan = NULL) 1593s [00:53:13.807] Sys.unsetenv("R_FUTURE_PLAN") 1593s [00:53:13.807] future::plan("default", .cleanup = FALSE, .init = FALSE) 1593s [00:53:13.807] } 1593s [00:53:13.807] ...future.workdir <- getwd() 1593s [00:53:13.807] } 1593s [00:53:13.807] ...future.oldOptions <- base::as.list(base::.Options) 1593s [00:53:13.807] ...future.oldEnvVars <- base::Sys.getenv() 1593s [00:53:13.807] } 1593s [00:53:13.807] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1593s [00:53:13.807] future.globals.maxSize = NULL, future.globals.method = NULL, 1593s [00:53:13.807] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1593s [00:53:13.807] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1593s [00:53:13.807] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1593s [00:53:13.807] future.stdout.windows.reencode = NULL, width = 80L) 1593s [00:53:13.807] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1593s [00:53:13.807] base::names(...future.oldOptions)) 1593s [00:53:13.807] } 1593s [00:53:13.807] if (FALSE) { 1593s [00:53:13.807] } 1593s [00:53:13.807] else { 1593s [00:53:13.807] if (TRUE) { 1593s [00:53:13.807] ...future.stdout <- base::rawConnection(base::raw(0L), 1593s [00:53:13.807] open = "w") 1593s [00:53:13.807] } 1593s [00:53:13.807] else { 1593s [00:53:13.807] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1593s [00:53:13.807] windows = "NUL", "/dev/null"), open = "w") 1593s [00:53:13.807] } 1593s [00:53:13.807] base::sink(...future.stdout, type = "output", split = FALSE) 1593s [00:53:13.807] base::on.exit(if (!base::is.null(...future.stdout)) { 1593s [00:53:13.807] base::sink(type = "output", split = FALSE) 1593s [00:53:13.807] base::close(...future.stdout) 1593s [00:53:13.807] }, add = TRUE) 1593s [00:53:13.807] } 1593s [00:53:13.807] ...future.frame <- base::sys.nframe() 1593s [00:53:13.807] ...future.conditions <- base::list() 1593s [00:53:13.807] ...future.rng <- base::globalenv()$.Random.seed 1593s [00:53:13.807] if (FALSE) { 1593s [00:53:13.807] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1593s [00:53:13.807] "...future.value", "...future.globalenv.names", ".Random.seed") 1593s [00:53:13.807] } 1593s [00:53:13.807] ...future.result <- base::tryCatch({ 1593s [00:53:13.807] base::withCallingHandlers({ 1593s [00:53:13.807] ...future.value <- base::withVisible(base::local({ 1593s [00:53:13.807] do.call(function(...) { 1593s [00:53:13.807] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1593s [00:53:13.807] if (!identical(...future.globals.maxSize.org, 1593s [00:53:13.807] ...future.globals.maxSize)) { 1593s [00:53:13.807] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1593s [00:53:13.807] on.exit(options(oopts), add = TRUE) 1593s [00:53:13.807] } 1593s [00:53:13.807] { 1593s [00:53:13.807] lapply(seq_along(...future.elements_ii), 1593s [00:53:13.807] FUN = function(jj) { 1593s [00:53:13.807] ...future.X_jj <- ...future.elements_ii[[jj]] 1593s [00:53:13.807] ...future.FUN(...future.X_jj, ...) 1593s [00:53:13.807] }) 1593s [00:53:13.807] } 1593s [00:53:13.807] }, args = future.call.arguments) 1593s [00:53:13.807] })) 1593s [00:53:13.807] future::FutureResult(value = ...future.value$value, 1593s [00:53:13.807] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1593s [00:53:13.807] ...future.rng), globalenv = if (FALSE) 1593s [00:53:13.807] list(added = base::setdiff(base::names(base::.GlobalEnv), 1593s [00:53:13.807] ...future.globalenv.names)) 1593s [00:53:13.807] else NULL, started = ...future.startTime, version = "1.8") 1593s [00:53:13.807] }, condition = base::local({ 1593s [00:53:13.807] c <- base::c 1593s [00:53:13.807] inherits <- base::inherits 1593s [00:53:13.807] invokeRestart <- base::invokeRestart 1593s [00:53:13.807] length <- base::length 1593s [00:53:13.807] list <- base::list 1593s [00:53:13.807] seq.int <- base::seq.int 1593s [00:53:13.807] signalCondition <- base::signalCondition 1593s [00:53:13.807] sys.calls <- base::sys.calls 1593s [00:53:13.807] `[[` <- base::`[[` 1593s [00:53:13.807] `+` <- base::`+` 1593s [00:53:13.807] `<<-` <- base::`<<-` 1593s [00:53:13.807] sysCalls <- function(calls = sys.calls(), from = 1L) { 1593s [00:53:13.807] calls[seq.int(from = from + 12L, to = length(calls) - 1593s [00:53:13.807] 3L)] 1593s [00:53:13.807] } 1593s [00:53:13.807] function(cond) { 1593s [00:53:13.807] is_error <- inherits(cond, "error") 1593s [00:53:13.807] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1593s [00:53:13.807] NULL) 1593s [00:53:13.807] if (is_error) { 1593s [00:53:13.807] sessionInformation <- function() { 1593s [00:53:13.807] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1593s [00:53:13.807] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1593s [00:53:13.807] search = base::search(), system = base::Sys.info()) 1593s [00:53:13.807] } 1593s [00:53:13.807] ...future.conditions[[length(...future.conditions) + 1593s [00:53:13.807] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1593s [00:53:13.807] cond$call), session = sessionInformation(), 1593s [00:53:13.807] timestamp = base::Sys.time(), signaled = 0L) 1593s [00:53:13.807] signalCondition(cond) 1593s [00:53:13.807] } 1593s [00:53:13.807] else if (!ignore && TRUE && inherits(cond, c("condition", 1593s [00:53:13.807] "immediateCondition"))) { 1593s [00:53:13.807] signal <- TRUE && inherits(cond, "immediateCondition") 1593s [00:53:13.807] ...future.conditions[[length(...future.conditions) + 1593s [00:53:13.807] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1593s [00:53:13.807] if (TRUE && !signal) { 1593s [00:53:13.807] muffleCondition <- function (cond, pattern = "^muffle") 1593s [00:53:13.807] { 1593s [00:53:13.807] inherits <- base::inherits 1593s [00:53:13.807] invokeRestart <- base::invokeRestart 1593s [00:53:13.807] is.null <- base::is.null 1593s [00:53:13.807] muffled <- FALSE 1593s [00:53:13.807] if (inherits(cond, "message")) { 1593s [00:53:13.807] muffled <- grepl(pattern, "muffleMessage") 1593s [00:53:13.807] if (muffled) 1593s [00:53:13.807] invokeRestart("muffleMessage") 1593s [00:53:13.807] } 1593s [00:53:13.807] else if (inherits(cond, "warning")) { 1593s [00:53:13.807] muffled <- grepl(pattern, "muffleWarning") 1593s [00:53:13.807] if (muffled) 1593s [00:53:13.807] invokeRestart("muffleWarning") 1593s [00:53:13.807] } 1593s [00:53:13.807] else if (inherits(cond, "condition")) { 1593s [00:53:13.807] if (!is.null(pattern)) { 1593s [00:53:13.807] computeRestarts <- base::computeRestarts 1593s [00:53:13.807] grepl <- base::grepl 1593s [00:53:13.807] restarts <- computeRestarts(cond) 1593s [00:53:13.807] for (restart in restarts) { 1593s [00:53:13.807] name <- restart$name 1593s [00:53:13.807] if (is.null(name)) 1593s [00:53:13.807] next 1593s [00:53:13.807] if (!grepl(pattern, name)) 1593s [00:53:13.807] next 1593s [00:53:13.807] invokeRestart(restart) 1593s [00:53:13.807] muffled <- TRUE 1593s [00:53:13.807] break 1593s [00:53:13.807] } 1593s [00:53:13.807] } 1593s [00:53:13.807] } 1593s [00:53:13.807] invisible(muffled) 1593s [00:53:13.807] } 1593s [00:53:13.807] muffleCondition(cond, pattern = "^muffle") 1593s [00:53:13.807] } 1593s [00:53:13.807] } 1593s [00:53:13.807] else { 1593s [00:53:13.807] if (TRUE) { 1593s [00:53:13.807] muffleCondition <- function (cond, pattern = "^muffle") 1593s [00:53:13.807] { 1593s [00:53:13.807] inherits <- base::inherits 1593s [00:53:13.807] invokeRestart <- base::invokeRestart 1593s [00:53:13.807] is.null <- base::is.null 1593s [00:53:13.807] muffled <- FALSE 1593s [00:53:13.807] if (inherits(cond, "message")) { 1593s [00:53:13.807] muffled <- grepl(pattern, "muffleMessage") 1593s [00:53:13.807] if (muffled) 1593s [00:53:13.807] invokeRestart("muffleMessage") 1593s [00:53:13.807] } 1593s [00:53:13.807] else if (inherits(cond, "warning")) { 1593s [00:53:13.807] muffled <- grepl(pattern, "muffleWarning") 1593s [00:53:13.807] if (muffled) 1593s [00:53:13.807] invokeRestart("muffleWarning") 1593s [00:53:13.807] } 1593s [00:53:13.807] else if (inherits(cond, "condition")) { 1593s [00:53:13.807] if (!is.null(pattern)) { 1593s [00:53:13.807] computeRestarts <- base::computeRestarts 1593s [00:53:13.807] grepl <- base::grepl 1593s [00:53:13.807] restarts <- computeRestarts(cond) 1593s [00:53:13.807] for (restart in restarts) { 1593s [00:53:13.807] name <- restart$name 1593s [00:53:13.807] if (is.null(name)) 1593s [00:53:13.807] next 1593s [00:53:13.807] if (!grepl(pattern, name)) 1593s [00:53:13.807] next 1593s [00:53:13.807] invokeRestart(restart) 1593s [00:53:13.807] muffled <- TRUE 1593s [00:53:13.807] break 1593s [00:53:13.807] } 1593s [00:53:13.807] } 1593s [00:53:13.807] } 1593s [00:53:13.807] invisible(muffled) 1593s [00:53:13.807] } 1593s [00:53:13.807] muffleCondition(cond, pattern = "^muffle") 1593s [00:53:13.807] } 1593s [00:53:13.807] } 1593s [00:53:13.807] } 1593s [00:53:13.807] })) 1593s [00:53:13.807] }, error = function(ex) { 1593s [00:53:13.807] base::structure(base::list(value = NULL, visible = NULL, 1593s [00:53:13.807] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1593s [00:53:13.807] ...future.rng), started = ...future.startTime, 1593s [00:53:13.807] finished = Sys.time(), session_uuid = NA_character_, 1593s [00:53:13.807] version = "1.8"), class = "FutureResult") 1593s [00:53:13.807] }, finally = { 1593s [00:53:13.807] if (!identical(...future.workdir, getwd())) 1593s [00:53:13.807] setwd(...future.workdir) 1593s [00:53:13.807] { 1593s [00:53:13.807] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1593s [00:53:13.807] ...future.oldOptions$nwarnings <- NULL 1593s [00:53:13.807] } 1593s [00:53:13.807] base::options(...future.oldOptions) 1593s [00:53:13.807] if (.Platform$OS.type == "windows") { 1593s [00:53:13.807] old_names <- names(...future.oldEnvVars) 1593s [00:53:13.807] envs <- base::Sys.getenv() 1593s [00:53:13.807] names <- names(envs) 1593s [00:53:13.807] common <- intersect(names, old_names) 1593s [00:53:13.807] added <- setdiff(names, old_names) 1593s [00:53:13.807] removed <- setdiff(old_names, names) 1593s [00:53:13.807] changed <- common[...future.oldEnvVars[common] != 1593s [00:53:13.807] envs[common]] 1593s [00:53:13.807] NAMES <- toupper(changed) 1593s [00:53:13.807] args <- list() 1593s [00:53:13.807] for (kk in seq_along(NAMES)) { 1593s [00:53:13.807] name <- changed[[kk]] 1593s [00:53:13.807] NAME <- NAMES[[kk]] 1593s [00:53:13.807] if (name != NAME && is.element(NAME, old_names)) 1593s [00:53:13.807] next 1593s [00:53:13.807] args[[name]] <- ...future.oldEnvVars[[name]] 1593s [00:53:13.807] } 1593s [00:53:13.807] NAMES <- toupper(added) 1593s [00:53:13.807] for (kk in seq_along(NAMES)) { 1593s [00:53:13.807] name <- added[[kk]] 1593s [00:53:13.807] NAME <- NAMES[[kk]] 1593s [00:53:13.807] if (name != NAME && is.element(NAME, old_names)) 1593s [00:53:13.807] next 1593s [00:53:13.807] args[[name]] <- "" 1593s [00:53:13.807] } 1593s [00:53:13.807] NAMES <- toupper(removed) 1593s [00:53:13.807] for (kk in seq_along(NAMES)) { 1593s [00:53:13.807] name <- removed[[kk]] 1593s [00:53:13.807] NAME <- NAMES[[kk]] 1593s [00:53:13.807] if (name != NAME && is.element(NAME, old_names)) 1593s [00:53:13.807] next 1593s [00:53:13.807] args[[name]] <- ...future.oldEnvVars[[name]] 1593s [00:53:13.807] } 1593s [00:53:13.807] if (length(args) > 0) 1593s [00:53:13.807] base::do.call(base::Sys.setenv, args = args) 1593s [00:53:13.807] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1593s [00:53:13.807] } 1593s [00:53:13.807] else { 1593s [00:53:13.807] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1593s [00:53:13.807] } 1593s [00:53:13.807] { 1593s [00:53:13.807] if (base::length(...future.futureOptionsAdded) > 1593s [00:53:13.807] 0L) { 1593s [00:53:13.807] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1593s [00:53:13.807] base::names(opts) <- ...future.futureOptionsAdded 1593s [00:53:13.807] base::options(opts) 1593s [00:53:13.807] } 1593s [00:53:13.807] { 1593s [00:53:13.807] { 1593s [00:53:13.807] NULL 1593s [00:53:13.807] RNGkind("Mersenne-Twister") 1593s [00:53:13.807] base::rm(list = ".Random.seed", envir = base::globalenv(), 1593s [00:53:13.807] inherits = FALSE) 1593s [00:53:13.807] } 1593s [00:53:13.807] options(future.plan = NULL) 1593s [00:53:13.807] if (is.na(NA_character_)) 1593s [00:53:13.807] Sys.unsetenv("R_FUTURE_PLAN") 1593s [00:53:13.807] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1593s [00:53:13.807] future::plan(list(function (..., envir = parent.frame()) 1593s [00:53:13.807] { 1593s [00:53:13.807] future <- SequentialFuture(..., envir = envir) 1593s [00:53:13.807] if (!future$lazy) 1593s [00:53:13.807] future <- run(future) 1593s [00:53:13.807] invisible(future) 1593s [00:53:13.807] }), .cleanup = FALSE, .init = FALSE) 1593s [00:53:13.807] } 1593s [00:53:13.807] } 1593s [00:53:13.807] } 1593s [00:53:13.807] }) 1593s [00:53:13.807] if (TRUE) { 1593s [00:53:13.807] base::sink(type = "output", split = FALSE) 1593s [00:53:13.807] if (TRUE) { 1593s [00:53:13.807] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1593s [00:53:13.807] } 1593s [00:53:13.807] else { 1593s [00:53:13.807] ...future.result["stdout"] <- base::list(NULL) 1593s [00:53:13.807] } 1593s [00:53:13.807] base::close(...future.stdout) 1593s [00:53:13.807] ...future.stdout <- NULL 1593s [00:53:13.807] } 1593s [00:53:13.807] ...future.result$conditions <- ...future.conditions 1593s [00:53:13.807] ...future.result$finished <- base::Sys.time() 1593s [00:53:13.807] ...future.result 1593s [00:53:13.807] } 1593s [00:53:13.813] assign_globals() ... 1593s [00:53:13.813] List of 5 1593s [00:53:13.813] $ ...future.FUN :function (x) 1593s [00:53:13.813] $ future.call.arguments : list() 1593s [00:53:13.813] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1593s [00:53:13.813] $ ...future.elements_ii :List of 2 1593s [00:53:13.813] ..$ : int 1 1593s [00:53:13.813] ..$ : int 0 1593s [00:53:13.813] $ ...future.seeds_ii : NULL 1593s [00:53:13.813] $ ...future.globals.maxSize: NULL 1593s [00:53:13.813] - attr(*, "where")=List of 5 1593s [00:53:13.813] ..$ ...future.FUN : 1593s [00:53:13.813] ..$ future.call.arguments : 1593s [00:53:13.813] ..$ ...future.elements_ii : 1593s [00:53:13.813] ..$ ...future.seeds_ii : 1593s [00:53:13.813] ..$ ...future.globals.maxSize: 1593s [00:53:13.813] - attr(*, "resolved")= logi FALSE 1593s [00:53:13.813] - attr(*, "total_size")= num 4720 1593s [00:53:13.813] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1593s [00:53:13.813] - attr(*, "already-done")= logi TRUE 1593s [00:53:13.821] - reassign environment for ‘...future.FUN’ 1593s [00:53:13.821] - copied ‘...future.FUN’ to environment 1593s [00:53:13.821] - copied ‘future.call.arguments’ to environment 1593s [00:53:13.822] - copied ‘...future.elements_ii’ to environment 1593s [00:53:13.822] - copied ‘...future.seeds_ii’ to environment 1593s [00:53:13.822] - copied ‘...future.globals.maxSize’ to environment 1593s [00:53:13.822] assign_globals() ... done 1593s [00:53:13.823] plan(): Setting new future strategy stack: 1593s [00:53:13.823] List of future strategies: 1593s [00:53:13.823] 1. sequential: 1593s [00:53:13.823] - args: function (..., envir = parent.frame()) 1593s [00:53:13.823] - tweaked: FALSE 1593s [00:53:13.823] - call: NULL 1593s [00:53:13.823] plan(): nbrOfWorkers() = 1 1594s [00:53:14.326] plan(): Setting new future strategy stack: 1594s [00:53:14.326] List of future strategies: 1594s [00:53:14.326] 1. sequential: 1594s [00:53:14.326] - args: function (..., envir = parent.frame()) 1594s [00:53:14.326] - tweaked: FALSE 1594s [00:53:14.326] - call: plan(strategy) 1594s [00:53:14.327] plan(): nbrOfWorkers() = 1 1594s [00:53:14.327] SequentialFuture started (and completed) 1594s [00:53:14.327] - Launch lazy future ... done 1594s [00:53:14.328] run() for ‘SequentialFuture’ ... done 1594s [00:53:14.328] Created future: 1594s [00:53:14.328] SequentialFuture: 1594s [00:53:14.328] Label: ‘future_lapply-1’ 1594s [00:53:14.328] Expression: 1594s [00:53:14.328] { 1594s [00:53:14.328] do.call(function(...) { 1594s [00:53:14.328] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1594s [00:53:14.328] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1594s [00:53:14.328] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1594s [00:53:14.328] on.exit(options(oopts), add = TRUE) 1594s [00:53:14.328] } 1594s [00:53:14.328] { 1594s [00:53:14.328] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1594s [00:53:14.328] ...future.X_jj <- ...future.elements_ii[[jj]] 1594s [00:53:14.328] ...future.FUN(...future.X_jj, ...) 1594s [00:53:14.328] }) 1594s [00:53:14.328] } 1594s [00:53:14.328] }, args = future.call.arguments) 1594s [00:53:14.328] } 1594s [00:53:14.328] Lazy evaluation: FALSE 1594s [00:53:14.328] Asynchronous evaluation: FALSE 1594s [00:53:14.328] Local evaluation: TRUE 1594s [00:53:14.328] Environment: R_GlobalEnv 1594s [00:53:14.328] Capture standard output: TRUE 1594s [00:53:14.328] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1594s [00:53:14.328] Globals: 5 objects totaling 4.72 KiB (function ‘...future.FUN’ of 4.61 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1594s [00:53:14.328] Packages: 1594s [00:53:14.328] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1594s [00:53:14.328] Resolved: TRUE 1594s [00:53:14.328] Value: 112 bytes of class ‘list’ 1594s [00:53:14.328] Early signaling: FALSE 1594s [00:53:14.328] Owner process: aef6b2cf-a7ff-4166-a7a6-2b6e1e64c3ba 1594s [00:53:14.328] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1594s [00:53:14.331] Chunk #1 of 1 ... DONE 1594s [00:53:14.331] Launching 1 futures (chunks) ... DONE 1594s [00:53:14.331] Resolving 1 futures (chunks) ... 1594s [00:53:14.331] resolve() on list ... 1594s [00:53:14.332] recursive: 0 1594s [00:53:14.332] length: 1 1594s [00:53:14.333] 1594s [00:53:14.333] resolved() for ‘SequentialFuture’ ... 1594s [00:53:14.334] - state: ‘finished’ 1594s [00:53:14.334] - run: TRUE 1594s [00:53:14.335] - result: ‘FutureResult’ 1594s [00:53:14.335] resolved() for ‘SequentialFuture’ ... done 1594s [00:53:14.335] Future #1 1594s [00:53:14.336] signalConditionsASAP(SequentialFuture, pos=1) ... 1594s [00:53:14.336] - nx: 1 1594s [00:53:14.336] - relay: TRUE 1594s [00:53:14.336] - stdout: TRUE 1594s [00:53:14.337] - signal: TRUE 1594s [00:53:14.337] - resignal: FALSE 1594s [00:53:14.337] - force: TRUE 1594s [00:53:14.337] - relayed: [n=1] FALSE 1594s [00:53:14.337] - queued futures: [n=1] FALSE 1594s [00:53:14.337] - until=1 1594s [00:53:14.337] - relaying element #1 1594s [00:53:14.338] - relayed: [n=1] TRUE 1594s [00:53:14.338] - queued futures: [n=1] TRUE 1594s [00:53:14.338] signalConditionsASAP(SequentialFuture, pos=1) ... done 1594s [00:53:14.338] length: 0 (resolved future 1) 1594s [00:53:14.338] Relaying remaining futures 1594s [00:53:14.338] signalConditionsASAP(NULL, pos=0) ... 1594s [00:53:14.339] - nx: 1 1594s [00:53:14.339] - relay: TRUE 1594s [00:53:14.339] - stdout: TRUE 1594s [00:53:14.339] - signal: TRUE 1594s [00:53:14.339] - resignal: FALSE 1594s [00:53:14.339] - force: TRUE 1594s [00:53:14.339] - relayed: [n=1] TRUE 1594s [00:53:14.339] - queued futures: [n=1] TRUE 1594s - flush all 1594s [00:53:14.340] - relayed: [n=1] TRUE 1594s [00:53:14.340] - queued futures: [n=1] TRUE 1594s [00:53:14.340] signalConditionsASAP(NULL, pos=0) ... done 1594s [00:53:14.340] resolve() on list ... DONE 1594s [00:53:14.341] - Number of value chunks collected: 1 1594s [00:53:14.341] Resolving 1 futures (chunks) ... DONE 1594s [00:53:14.341] Reducing values from 1 chunks ... 1594s [00:53:14.341] - Number of values collected after concatenation: 2 1594s [00:53:14.341] - Number of values expected: 2 1594s [00:53:14.341] Reducing values from 1 chunks ... DONE 1594s [00:53:14.341] future_lapply() ... DONE 1594s * future_lapply(x, ..., future.stdout = TRUE) ... DONE 1594s * future_lapply(x, ..., future.stdout = NA) ... 1594s [00:53:14.343] future_lapply() ... 1594s [00:53:14.344] Number of chunks: 1 1594s [00:53:14.344] getGlobalsAndPackagesXApply() ... 1594s [00:53:14.345] - future.globals: TRUE 1594s [00:53:14.345] getGlobalsAndPackages() ... 1594s [00:53:14.345] Searching for globals... 1594s [00:53:14.349] - globals found: [5] ‘FUN’, ‘{’, ‘Sys.sleep’, ‘/’, ‘print’ 1594s [00:53:14.349] Searching for globals ... DONE 1594s [00:53:14.349] Resolving globals: FALSE 1594s [00:53:14.350] The total size of the 1 globals is 4.61 KiB (4720 bytes) 1594s [00:53:14.351] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.61 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.61 KiB of class ‘function’) 1594s [00:53:14.351] - globals: [1] ‘FUN’ 1594s [00:53:14.351] 1594s [00:53:14.351] getGlobalsAndPackages() ... DONE 1594s [00:53:14.351] - globals found/used: [n=1] ‘FUN’ 1594s [00:53:14.351] - needed namespaces: [n=0] 1594s [00:53:14.352] Finding globals ... DONE 1594s [00:53:14.352] - use_args: TRUE 1594s [00:53:14.352] - Getting '...' globals ... 1594s [00:53:14.352] resolve() on list ... 1594s [00:53:14.352] recursive: 0 1594s [00:53:14.352] length: 1 1594s [00:53:14.353] elements: ‘...’ 1594s [00:53:14.353] length: 0 (resolved future 1) 1594s [00:53:14.353] resolve() on list ... DONE 1594s [00:53:14.353] - '...' content: [n=0] 1594s [00:53:14.353] List of 1 1594s [00:53:14.353] $ ...: list() 1594s [00:53:14.353] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1594s [00:53:14.353] - attr(*, "where")=List of 1 1594s [00:53:14.353] ..$ ...: 1594s [00:53:14.353] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1594s [00:53:14.353] - attr(*, "resolved")= logi TRUE 1594s [00:53:14.353] - attr(*, "total_size")= num NA 1594s [00:53:14.357] - Getting '...' globals ... DONE 1594s [00:53:14.357] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1594s [00:53:14.357] List of 2 1594s [00:53:14.357] $ ...future.FUN:function (x) 1594s [00:53:14.357] $ ... : list() 1594s [00:53:14.357] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1594s [00:53:14.357] - attr(*, "where")=List of 2 1594s [00:53:14.357] ..$ ...future.FUN: 1594s [00:53:14.357] ..$ ... : 1594s [00:53:14.357] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1594s [00:53:14.357] - attr(*, "resolved")= logi FALSE 1594s [00:53:14.357] - attr(*, "total_size")= num 4720 1594s [00:53:14.361] Packages to be attached in all futures: [n=0] 1594s [00:53:14.361] getGlobalsAndPackagesXApply() ... DONE 1594s [00:53:14.361] Number of futures (= number of chunks): 1 1594s [00:53:14.362] Launching 1 futures (chunks) ... 1594s [00:53:14.362] Chunk #1 of 1 ... 1594s [00:53:14.362] - Finding globals in 'X' for chunk #1 ... 1594s [00:53:14.362] getGlobalsAndPackages() ... 1594s [00:53:14.362] Searching for globals... 1594s [00:53:14.363] 1594s [00:53:14.363] Searching for globals ... DONE 1594s [00:53:14.363] - globals: [0] 1594s [00:53:14.363] getGlobalsAndPackages() ... DONE 1594s [00:53:14.364] + additional globals found: [n=0] 1594s [00:53:14.364] + additional namespaces needed: [n=0] 1594s [00:53:14.364] - Finding globals in 'X' for chunk #1 ... DONE 1594s [00:53:14.364] - seeds: 1594s [00:53:14.364] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1594s [00:53:14.364] getGlobalsAndPackages() ... 1594s [00:53:14.364] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1594s [00:53:14.365] Resolving globals: FALSE 1594s [00:53:14.365] Tweak future expression to call with '...' arguments ... 1594s [00:53:14.365] { 1594s [00:53:14.365] do.call(function(...) { 1594s [00:53:14.365] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1594s [00:53:14.365] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1594s [00:53:14.365] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1594s [00:53:14.365] on.exit(options(oopts), add = TRUE) 1594s [00:53:14.365] } 1594s [00:53:14.365] { 1594s [00:53:14.365] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1594s [00:53:14.365] ...future.X_jj <- ...future.elements_ii[[jj]] 1594s [00:53:14.365] ...future.FUN(...future.X_jj, ...) 1594s [00:53:14.365] }) 1594s [00:53:14.365] } 1594s [00:53:14.365] }, args = future.call.arguments) 1594s [00:53:14.365] } 1594s [00:53:14.365] Tweak future expression to call with '...' arguments ... DONE 1594s [00:53:14.368] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1594s [00:53:14.368] 1594s [00:53:14.368] getGlobalsAndPackages() ... DONE 1594s [00:53:14.369] run() for ‘Future’ ... 1594s [00:53:14.369] - state: ‘created’ 1594s [00:53:14.369] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1594s [00:53:14.370] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1594s [00:53:14.370] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1594s [00:53:14.370] - Field: ‘label’ 1594s [00:53:14.370] - Field: ‘local’ 1594s [00:53:14.370] - Field: ‘owner’ 1594s [00:53:14.370] - Field: ‘envir’ 1594s [00:53:14.371] - Field: ‘packages’ 1594s [00:53:14.371] - Field: ‘gc’ 1594s [00:53:14.371] - Field: ‘conditions’ 1594s [00:53:14.371] - Field: ‘expr’ 1594s [00:53:14.372] - Field: ‘uuid’ 1594s [00:53:14.372] - Field: ‘seed’ 1594s [00:53:14.372] - Field: ‘version’ 1594s [00:53:14.372] - Field: ‘result’ 1594s [00:53:14.372] - Field: ‘asynchronous’ 1594s [00:53:14.373] - Field: ‘calls’ 1594s [00:53:14.373] - Field: ‘globals’ 1594s [00:53:14.373] - Field: ‘stdout’ 1594s [00:53:14.373] - Field: ‘earlySignal’ 1594s [00:53:14.373] - Field: ‘lazy’ 1594s [00:53:14.373] - Field: ‘state’ 1594s [00:53:14.374] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1594s [00:53:14.374] - Launch lazy future ... 1594s [00:53:14.374] Packages needed by the future expression (n = 0): 1594s [00:53:14.374] Packages needed by future strategies (n = 0): 1594s [00:53:14.375] { 1594s [00:53:14.375] { 1594s [00:53:14.375] { 1594s [00:53:14.375] ...future.startTime <- base::Sys.time() 1594s [00:53:14.375] { 1594s [00:53:14.375] { 1594s [00:53:14.375] { 1594s [00:53:14.375] base::local({ 1594s [00:53:14.375] has_future <- base::requireNamespace("future", 1594s [00:53:14.375] quietly = TRUE) 1594s [00:53:14.375] if (has_future) { 1594s [00:53:14.375] ns <- base::getNamespace("future") 1594s [00:53:14.375] version <- ns[[".package"]][["version"]] 1594s [00:53:14.375] if (is.null(version)) 1594s [00:53:14.375] version <- utils::packageVersion("future") 1594s [00:53:14.375] } 1594s [00:53:14.375] else { 1594s [00:53:14.375] version <- NULL 1594s [00:53:14.375] } 1594s [00:53:14.375] if (!has_future || version < "1.8.0") { 1594s [00:53:14.375] info <- base::c(r_version = base::gsub("R version ", 1594s [00:53:14.375] "", base::R.version$version.string), 1594s [00:53:14.375] platform = base::sprintf("%s (%s-bit)", 1594s [00:53:14.375] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1594s [00:53:14.375] os = base::paste(base::Sys.info()[base::c("sysname", 1594s [00:53:14.375] "release", "version")], collapse = " "), 1594s [00:53:14.375] hostname = base::Sys.info()[["nodename"]]) 1594s [00:53:14.375] info <- base::sprintf("%s: %s", base::names(info), 1594s [00:53:14.375] info) 1594s [00:53:14.375] info <- base::paste(info, collapse = "; ") 1594s [00:53:14.375] if (!has_future) { 1594s [00:53:14.375] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1594s [00:53:14.375] info) 1594s [00:53:14.375] } 1594s [00:53:14.375] else { 1594s [00:53:14.375] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1594s [00:53:14.375] info, version) 1594s [00:53:14.375] } 1594s [00:53:14.375] base::stop(msg) 1594s [00:53:14.375] } 1594s [00:53:14.375] }) 1594s [00:53:14.375] } 1594s [00:53:14.375] options(future.plan = NULL) 1594s [00:53:14.375] Sys.unsetenv("R_FUTURE_PLAN") 1594s [00:53:14.375] future::plan("default", .cleanup = FALSE, .init = FALSE) 1594s [00:53:14.375] } 1594s [00:53:14.375] ...future.workdir <- getwd() 1594s [00:53:14.375] } 1594s [00:53:14.375] ...future.oldOptions <- base::as.list(base::.Options) 1594s [00:53:14.375] ...future.oldEnvVars <- base::Sys.getenv() 1594s [00:53:14.375] } 1594s [00:53:14.375] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1594s [00:53:14.375] future.globals.maxSize = NULL, future.globals.method = NULL, 1594s [00:53:14.375] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1594s [00:53:14.375] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1594s [00:53:14.375] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1594s [00:53:14.375] future.stdout.windows.reencode = NULL, width = 80L) 1594s [00:53:14.375] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1594s [00:53:14.375] base::names(...future.oldOptions)) 1594s [00:53:14.375] } 1594s [00:53:14.375] if (TRUE) { 1594s [00:53:14.375] } 1594s [00:53:14.375] else { 1594s [00:53:14.375] if (NA) { 1594s [00:53:14.375] ...future.stdout <- base::rawConnection(base::raw(0L), 1594s [00:53:14.375] open = "w") 1594s [00:53:14.375] } 1594s [00:53:14.375] else { 1594s [00:53:14.375] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1594s [00:53:14.375] windows = "NUL", "/dev/null"), open = "w") 1594s [00:53:14.375] } 1594s [00:53:14.375] base::sink(...future.stdout, type = "output", split = FALSE) 1594s [00:53:14.375] base::on.exit(if (!base::is.null(...future.stdout)) { 1594s [00:53:14.375] base::sink(type = "output", split = FALSE) 1594s [00:53:14.375] base::close(...future.stdout) 1594s [00:53:14.375] }, add = TRUE) 1594s [00:53:14.375] } 1594s [00:53:14.375] ...future.frame <- base::sys.nframe() 1594s [00:53:14.375] ...future.conditions <- base::list() 1594s [00:53:14.375] ...future.rng <- base::globalenv()$.Random.seed 1594s [00:53:14.375] if (FALSE) { 1594s [00:53:14.375] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1594s [00:53:14.375] "...future.value", "...future.globalenv.names", ".Random.seed") 1594s [00:53:14.375] } 1594s [00:53:14.375] ...future.result <- base::tryCatch({ 1594s [00:53:14.375] base::withCallingHandlers({ 1594s [00:53:14.375] ...future.value <- base::withVisible(base::local({ 1594s [00:53:14.375] do.call(function(...) { 1594s [00:53:14.375] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1594s [00:53:14.375] if (!identical(...future.globals.maxSize.org, 1594s [00:53:14.375] ...future.globals.maxSize)) { 1594s [00:53:14.375] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1594s [00:53:14.375] on.exit(options(oopts), add = TRUE) 1594s [00:53:14.375] } 1594s [00:53:14.375] { 1594s [00:53:14.375] lapply(seq_along(...future.elements_ii), 1594s [00:53:14.375] FUN = function(jj) { 1594s [00:53:14.375] ...future.X_jj <- ...future.elements_ii[[jj]] 1594s [00:53:14.375] ...future.FUN(...future.X_jj, ...) 1594s [00:53:14.375] }) 1594s [00:53:14.375] } 1594s [00:53:14.375] }, args = future.call.arguments) 1594s [00:53:14.375] })) 1594s [00:53:14.375] future::FutureResult(value = ...future.value$value, 1594s [00:53:14.375] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1594s [00:53:14.375] ...future.rng), globalenv = if (FALSE) 1594s [00:53:14.375] list(added = base::setdiff(base::names(base::.GlobalEnv), 1594s [00:53:14.375] ...future.globalenv.names)) 1594s [00:53:14.375] else NULL, started = ...future.startTime, version = "1.8") 1594s [00:53:14.375] }, condition = base::local({ 1594s [00:53:14.375] c <- base::c 1594s [00:53:14.375] inherits <- base::inherits 1594s [00:53:14.375] invokeRestart <- base::invokeRestart 1594s [00:53:14.375] length <- base::length 1594s [00:53:14.375] list <- base::list 1594s [00:53:14.375] seq.int <- base::seq.int 1594s [00:53:14.375] signalCondition <- base::signalCondition 1594s [00:53:14.375] sys.calls <- base::sys.calls 1594s [00:53:14.375] `[[` <- base::`[[` 1594s [00:53:14.375] `+` <- base::`+` 1594s [00:53:14.375] `<<-` <- base::`<<-` 1594s [00:53:14.375] sysCalls <- function(calls = sys.calls(), from = 1L) { 1594s [00:53:14.375] calls[seq.int(from = from + 12L, to = length(calls) - 1594s [00:53:14.375] 3L)] 1594s [00:53:14.375] } 1594s [00:53:14.375] function(cond) { 1594s [00:53:14.375] is_error <- inherits(cond, "error") 1594s [00:53:14.375] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1594s [00:53:14.375] NULL) 1594s [00:53:14.375] if (is_error) { 1594s [00:53:14.375] sessionInformation <- function() { 1594s [00:53:14.375] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1594s [00:53:14.375] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1594s [00:53:14.375] search = base::search(), system = base::Sys.info()) 1594s [00:53:14.375] } 1594s [00:53:14.375] ...future.conditions[[length(...future.conditions) + 1594s [00:53:14.375] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1594s [00:53:14.375] cond$call), session = sessionInformation(), 1594s [00:53:14.375] timestamp = base::Sys.time(), signaled = 0L) 1594s [00:53:14.375] signalCondition(cond) 1594s [00:53:14.375] } 1594s [00:53:14.375] else if (!ignore && TRUE && inherits(cond, c("condition", 1594s [00:53:14.375] "immediateCondition"))) { 1594s [00:53:14.375] signal <- TRUE && inherits(cond, "immediateCondition") 1594s [00:53:14.375] ...future.conditions[[length(...future.conditions) + 1594s [00:53:14.375] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1594s [00:53:14.375] if (TRUE && !signal) { 1594s [00:53:14.375] muffleCondition <- function (cond, pattern = "^muffle") 1594s [00:53:14.375] { 1594s [00:53:14.375] inherits <- base::inherits 1594s [00:53:14.375] invokeRestart <- base::invokeRestart 1594s [00:53:14.375] is.null <- base::is.null 1594s [00:53:14.375] muffled <- FALSE 1594s [00:53:14.375] if (inherits(cond, "message")) { 1594s [00:53:14.375] muffled <- grepl(pattern, "muffleMessage") 1594s [00:53:14.375] if (muffled) 1594s [00:53:14.375] invokeRestart("muffleMessage") 1594s [00:53:14.375] } 1594s [00:53:14.375] else if (inherits(cond, "warning")) { 1594s [00:53:14.375] muffled <- grepl(pattern, "muffleWarning") 1594s [00:53:14.375] if (muffled) 1594s [00:53:14.375] invokeRestart("muffleWarning") 1594s [00:53:14.375] } 1594s [00:53:14.375] else if (inherits(cond, "condition")) { 1594s [00:53:14.375] if (!is.null(pattern)) { 1594s [00:53:14.375] computeRestarts <- base::computeRestarts 1594s [00:53:14.375] grepl <- base::grepl 1594s [00:53:14.375] restarts <- computeRestarts(cond) 1594s [00:53:14.375] for (restart in restarts) { 1594s [00:53:14.375] name <- restart$name 1594s [00:53:14.375] if (is.null(name)) 1594s [00:53:14.375] next 1594s [00:53:14.375] if (!grepl(pattern, name)) 1594s [00:53:14.375] next 1594s [00:53:14.375] invokeRestart(restart) 1594s [00:53:14.375] muffled <- TRUE 1594s [00:53:14.375] break 1594s [00:53:14.375] } 1594s [00:53:14.375] } 1594s [00:53:14.375] } 1594s [00:53:14.375] invisible(muffled) 1594s [00:53:14.375] } 1594s [00:53:14.375] muffleCondition(cond, pattern = "^muffle") 1594s [00:53:14.375] } 1594s [00:53:14.375] } 1594s [00:53:14.375] else { 1594s [00:53:14.375] if (TRUE) { 1594s [00:53:14.375] muffleCondition <- function (cond, pattern = "^muffle") 1594s [00:53:14.375] { 1594s [00:53:14.375] inherits <- base::inherits 1594s [00:53:14.375] invokeRestart <- base::invokeRestart 1594s [00:53:14.375] is.null <- base::is.null 1594s [00:53:14.375] muffled <- FALSE 1594s [00:53:14.375] if (inherits(cond, "message")) { 1594s [00:53:14.375] muffled <- grepl(pattern, "muffleMessage") 1594s [00:53:14.375] if (muffled) 1594s [00:53:14.375] invokeRestart("muffleMessage") 1594s [00:53:14.375] } 1594s [00:53:14.375] else if (inherits(cond, "warning")) { 1594s [00:53:14.375] muffled <- grepl(pattern, "muffleWarning") 1594s [00:53:14.375] if (muffled) 1594s [00:53:14.375] invokeRestart("muffleWarning") 1594s [00:53:14.375] } 1594s [00:53:14.375] else if (inherits(cond, "condition")) { 1594s [00:53:14.375] if (!is.null(pattern)) { 1594s [00:53:14.375] computeRestarts <- base::computeRestarts 1594s [00:53:14.375] grepl <- base::grepl 1594s [00:53:14.375] restarts <- computeRestarts(cond) 1594s [00:53:14.375] for (restart in restarts) { 1594s [00:53:14.375] name <- restart$name 1594s [00:53:14.375] if (is.null(name)) 1594s [00:53:14.375] next 1594s [00:53:14.375] if (!grepl(pattern, name)) 1594s [00:53:14.375] next 1594s [00:53:14.375] invokeRestart(restart) 1594s [00:53:14.375] muffled <- TRUE 1594s [00:53:14.375] break 1594s [00:53:14.375] } 1594s [00:53:14.375] } 1594s [00:53:14.375] } 1594s [00:53:14.375] invisible(muffled) 1594s [00:53:14.375] } 1594s [00:53:14.375] muffleCondition(cond, pattern = "^muffle") 1594s [00:53:14.375] } 1594s [00:53:14.375] } 1594s [00:53:14.375] } 1594s [00:53:14.375] })) 1594s [00:53:14.375] }, error = function(ex) { 1594s [00:53:14.375] base::structure(base::list(value = NULL, visible = NULL, 1594s [00:53:14.375] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1594s [00:53:14.375] ...future.rng), started = ...future.startTime, 1594s [00:53:14.375] finished = Sys.time(), session_uuid = NA_character_, 1594s [00:53:14.375] version = "1.8"), class = "FutureResult") 1594s [00:53:14.375] }, finally = { 1594s [00:53:14.375] if (!identical(...future.workdir, getwd())) 1594s [00:53:14.375] setwd(...future.workdir) 1594s [00:53:14.375] { 1594s [00:53:14.375] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1594s [00:53:14.375] ...future.oldOptions$nwarnings <- NULL 1594s [00:53:14.375] } 1594s [00:53:14.375] base::options(...future.oldOptions) 1594s [00:53:14.375] if (.Platform$OS.type == "windows") { 1594s [00:53:14.375] old_names <- names(...future.oldEnvVars) 1594s [00:53:14.375] envs <- base::Sys.getenv() 1594s [00:53:14.375] names <- names(envs) 1594s [00:53:14.375] common <- intersect(names, old_names) 1594s [00:53:14.375] added <- setdiff(names, old_names) 1594s [00:53:14.375] removed <- setdiff(old_names, names) 1594s [00:53:14.375] changed <- common[...future.oldEnvVars[common] != 1594s [00:53:14.375] envs[common]] 1594s [00:53:14.375] NAMES <- toupper(changed) 1594s [00:53:14.375] args <- list() 1594s [00:53:14.375] for (kk in seq_along(NAMES)) { 1594s [00:53:14.375] name <- changed[[kk]] 1594s [00:53:14.375] NAME <- NAMES[[kk]] 1594s [00:53:14.375] if (name != NAME && is.element(NAME, old_names)) 1594s [00:53:14.375] next 1594s [00:53:14.375] args[[name]] <- ...future.oldEnvVars[[name]] 1594s [00:53:14.375] } 1594s [00:53:14.375] NAMES <- toupper(added) 1594s [00:53:14.375] for (kk in seq_along(NAMES)) { 1594s [00:53:14.375] name <- added[[kk]] 1594s [00:53:14.375] NAME <- NAMES[[kk]] 1594s [00:53:14.375] if (name != NAME && is.element(NAME, old_names)) 1594s [00:53:14.375] next 1594s [00:53:14.375] args[[name]] <- "" 1594s [00:53:14.375] } 1594s [00:53:14.375] NAMES <- toupper(removed) 1594s [00:53:14.375] for (kk in seq_along(NAMES)) { 1594s [00:53:14.375] name <- removed[[kk]] 1594s [00:53:14.375] NAME <- NAMES[[kk]] 1594s [00:53:14.375] if (name != NAME && is.element(NAME, old_names)) 1594s [00:53:14.375] next 1594s [00:53:14.375] args[[name]] <- ...future.oldEnvVars[[name]] 1594s [00:53:14.375] } 1594s [00:53:14.375] if (length(args) > 0) 1594s [00:53:14.375] base::do.call(base::Sys.setenv, args = args) 1594s [00:53:14.375] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1594s [00:53:14.375] } 1594s [00:53:14.375] else { 1594s [00:53:14.375] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1594s [00:53:14.375] } 1594s [00:53:14.375] { 1594s [00:53:14.375] if (base::length(...future.futureOptionsAdded) > 1594s [00:53:14.375] 0L) { 1594s [00:53:14.375] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1594s [00:53:14.375] base::names(opts) <- ...future.futureOptionsAdded 1594s [00:53:14.375] base::options(opts) 1594s [00:53:14.375] } 1594s [00:53:14.375] { 1594s [00:53:14.375] { 1594s [00:53:14.375] NULL 1594s [00:53:14.375] RNGkind("Mersenne-Twister") 1594s [00:53:14.375] base::rm(list = ".Random.seed", envir = base::globalenv(), 1594s [00:53:14.375] inherits = FALSE) 1594s [00:53:14.375] } 1594s [00:53:14.375] options(future.plan = NULL) 1594s [00:53:14.375] if (is.na(NA_character_)) 1594s [00:53:14.375] Sys.unsetenv("R_FUTURE_PLAN") 1594s [00:53:14.375] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1594s [00:53:14.375] future::plan(list(function (..., envir = parent.frame()) 1594s [00:53:14.375] { 1594s [00:53:14.375] future <- SequentialFuture(..., envir = envir) 1594s [00:53:14.375] if (!future$lazy) 1594s [00:53:14.375] future <- run(future) 1594s [00:53:14.375] invisible(future) 1594s [00:53:14.375] }), .cleanup = FALSE, .init = FALSE) 1594s [00:53:14.375] } 1594s [00:53:14.375] } 1594s [00:53:14.375] } 1594s [00:53:14.375] }) 1594s [00:53:14.375] if (FALSE) { 1594s [00:53:14.375] base::sink(type = "output", split = FALSE) 1594s [00:53:14.375] if (NA) { 1594s [00:53:14.375] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1594s [00:53:14.375] } 1594s [00:53:14.375] else { 1594s [00:53:14.375] ...future.result["stdout"] <- base::list(NULL) 1594s [00:53:14.375] } 1594s [00:53:14.375] base::close(...future.stdout) 1594s [00:53:14.375] ...future.stdout <- NULL 1594s [00:53:14.375] } 1594s [00:53:14.375] ...future.result$conditions <- ...future.conditions 1594s [00:53:14.375] ...future.result$finished <- base::Sys.time() 1594s [00:53:14.375] ...future.result 1594s [00:53:14.375] } 1594s [00:53:14.380] assign_globals() ... 1594s [00:53:14.380] List of 5 1594s [00:53:14.380] $ ...future.FUN :function (x) 1594s [00:53:14.380] $ future.call.arguments : list() 1594s [00:53:14.380] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1594s [00:53:14.380] $ ...future.elements_ii :List of 2 1594s [00:53:14.380] ..$ : int 1 1594s [00:53:14.380] ..$ : int 0 1594s [00:53:14.380] $ ...future.seeds_ii : NULL 1594s [00:53:14.380] $ ...future.globals.maxSize: NULL 1594s [00:53:14.380] - attr(*, "where")=List of 5 1594s [00:53:14.380] ..$ ...future.FUN : 1594s [00:53:14.380] ..$ future.call.arguments : 1594s [00:53:14.380] ..$ ...future.elements_ii : 1594s [00:53:14.380] ..$ ...future.seeds_ii : 1594s [00:53:14.380] ..$ ...future.globals.maxSize: 1594s [00:53:14.380] - attr(*, "resolved")= logi FALSE 1594s [00:53:14.380] - attr(*, "total_size")= num 4720 1594s [00:53:14.380] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1594s [00:53:14.380] - attr(*, "already-done")= logi TRUE 1594s [00:53:14.386] - reassign environment for ‘...future.FUN’ 1594s [00:53:14.386] - copied ‘...future.FUN’ to environment 1594s [00:53:14.386] - copied ‘future.call.arguments’ to environment 1594s [00:53:14.387] - copied ‘...future.elements_ii’ to environment 1594s [00:53:14.387] - copied ‘...future.seeds_ii’ to environment 1594s [00:53:14.387] - copied ‘...future.globals.maxSize’ to environment 1594s [00:53:14.387] assign_globals() ... done 1594s [00:53:14.387] plan(): Setting new future strategy stack: 1594s [00:53:14.387] List of future strategies: 1594s [00:53:14.387] 1. sequential: 1594s [00:53:14.387] - args: function (..., envir = parent.frame()) 1594s [00:53:14.387] - tweaked: FALSE 1594s [00:53:14.387] - call: NULL 1594s [00:53:14.388] plan(): nbrOfWorkers() = 1 1594s [00:53:14.890] plan(): Setting new future strategy stack: 1594s [00:53:14.890] List of future strategies: 1594s [00:53:14.890] 1. sequential: 1594s [00:53:14.890] - args: function (..., envir = parent.frame()) 1594s [00:53:14.890] - tweaked: FALSE 1594s [00:53:14.890] - call: plan(strategy) 1594s [00:53:14.891] plan(): nbrOfWorkers() = 1 1594s [00:53:14.891] SequentialFuture started (and completed) 1594s [00:53:14.891] - Launch lazy future ... done 1594s [00:53:14.891] run() for ‘SequentialFuture’ ... done 1594s [00:53:14.892] Created future: 1594s [00:53:14.892] SequentialFuture: 1594s [00:53:14.892] Label: ‘future_lapply-1’ 1594s [00:53:14.892] Expression: 1594s [00:53:14.892] { 1594s [00:53:14.892] do.call(function(...) { 1594s [00:53:14.892] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1594s [00:53:14.892] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1594s [00:53:14.892] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1594s [00:53:14.892] on.exit(options(oopts), add = TRUE) 1594s [00:53:14.892] } 1594s [00:53:14.892] { 1594s [00:53:14.892] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1594s [00:53:14.892] ...future.X_jj <- ...future.elements_ii[[jj]] 1594s [00:53:14.892] ...future.FUN(...future.X_jj, ...) 1594s [00:53:14.892] }) 1594s [00:53:14.892] } 1594s [00:53:14.892] }, args = future.call.arguments) 1594s [00:53:14.892] } 1594s [00:53:14.892] Lazy evaluation: FALSE 1594s [00:53:14.892] Asynchronous evaluation: FALSE 1594s [00:53:14.892] Local evaluation: TRUE 1594s [00:53:14.892] Environment: R_GlobalEnv 1594s [00:53:14.892] Capture standard output: NA 1594s [00:53:14.892] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1594s [00:53:14.892] Globals: 5 objects totaling 4.72 KiB (function ‘...future.FUN’ of 4.61 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1594s [00:53:14.892] Packages: 1594s [00:53:14.892] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1594s [00:53:14.892] Resolved: TRUE 1594s [00:53:14.892] Value: 112 bytes of class ‘list’ 1594s [00:53:14.892] Early signaling: FALSE 1594s [00:53:14.892] Owner process: aef6b2cf-a7ff-4166-a7a6-2b6e1e64c3ba 1594s [00:53:14.892] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1594s [00:53:14.893] Chunk #1 of 1 ... DONE 1594s [00:53:14.893] Launching 1 futures (chunks) ... DONE 1594s [00:53:14.894] Resolving 1 futures (chunks) ... 1594s [00:53:14.894] resolve() on list ... 1594s [00:53:14.894] recursive: 0 1594s [00:53:14.894] length: 1 1594s [00:53:14.894] 1594s [00:53:14.894] resolved() for ‘SequentialFuture’ ... 1594s [00:53:14.894] - state: ‘finished’ 1594s [00:53:14.894] - run: TRUE 1594s [00:53:14.895] - result: ‘FutureResult’ 1594s [00:53:14.895] resolved() for ‘SequentialFuture’ ... done 1594s [00:53:14.895] Future #1 1594s [00:53:14.895] signalConditionsASAP(SequentialFuture, pos=1) ... 1594s [00:53:14.895] - nx: 1 1594s [00:53:14.895] - relay: TRUE 1594s [00:53:14.895] - stdout: TRUE 1594s [00:53:14.896] - signal: TRUE 1594s [00:53:14.896] - resignal: FALSE 1594s [00:53:14.896] - force: TRUE 1594s [00:53:14.896] - relayed: [n=1] FALSE 1594s [00:53:14.896] - queued futures: [n=1] FALSE 1594s [00:53:14.896] - until=1 1594s [00:53:14.896] - relaying element #1 1594s [00:53:14.896] - relayed: [n=1] TRUE 1594s [00:53:14.897] - queued futures: [n=1] TRUE 1594s [00:53:14.897] signalConditionsASAP(SequentialFuture, pos=1) ... done 1594s [00:53:14.897] length: 0 (resolved future 1) 1594s [00:53:14.897] Relaying remaining futures 1594s [00:53:14.897] signalConditionsASAP(NULL, pos=0) ... 1594s [00:53:14.897] - nx: 1 1594s [00:53:14.897] - relay: TRUE 1594s [00:53:14.897] - stdout: TRUE 1594s [00:53:14.898] - signal: TRUE 1594s [00:53:14.898] - resignal: FALSE 1594s [00:53:14.898] - force: TRUE 1594s [00:53:14.898] - relayed: [n=1] TRUE 1594s [00:53:14.898] - queued futures: [n=1] TRUE 1594s - flush all 1594s [00:53:14.898] - relayed: [n=1] TRUE 1594s [00:53:14.898] - queued futures: [n=1] TRUE 1594s [00:53:14.898] signalConditionsASAP(NULL, pos=0) ... done 1594s [00:53:14.899] resolve() on list ... DONE 1594s [00:53:14.899] - Number of value chunks collected: 1 1594s [00:53:14.899] Resolving 1 futures (chunks) ... DONE 1594s [00:53:14.899] Reducing values from 1 chunks ... 1594s [00:53:14.899] - Number of values collected after concatenation: 2 1594s [00:53:14.899] - Number of values expected: 2 1594s [00:53:14.899] Reducing values from 1 chunks ... DONE 1594s [00:53:14.900] future_lapply() ... DONE 1594s * future_lapply(x, ..., future.stdout = NA) ... DONE 1594s * future_mapply(x, ..., future.stdout = FALSE) ... 1594s [00:53:14.900] future_mapply() ... 1594s [00:53:14.901] Number of chunks: 1 1594s [00:53:14.901] getGlobalsAndPackagesXApply() ... 1594s [00:53:14.901] - future.globals: TRUE 1594s [00:53:14.901] getGlobalsAndPackages() ... 1594s [00:53:14.901] Searching for globals... 1594s [00:53:14.904] - globals found: [6] ‘FUN’, ‘{’, ‘Sys.sleep’, ‘/’, ‘print’, ‘list’ 1594s [00:53:14.904] Searching for globals ... DONE 1594s [00:53:14.904] Resolving globals: FALSE 1594s [00:53:14.905] The total size of the 1 globals is 6.11 KiB (6256 bytes) 1594s [00:53:14.905] The total size of the 1 globals exported for future expression (‘FUN()’) is 6.11 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (6.11 KiB of class ‘function’) 1594s [00:53:14.906] - globals: [1] ‘FUN’ 1594s [00:53:14.906] 1594s [00:53:14.906] getGlobalsAndPackages() ... DONE 1594s [00:53:14.906] - globals found/used: [n=1] ‘FUN’ 1594s [00:53:14.906] - needed namespaces: [n=0] 1594s [00:53:14.906] Finding globals ... DONE 1594s [00:53:14.907] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1594s [00:53:14.907] List of 2 1594s [00:53:14.907] $ ...future.FUN:function (x, y) 1594s [00:53:14.907] $ MoreArgs : NULL 1594s [00:53:14.907] - attr(*, "where")=List of 2 1594s [00:53:14.907] ..$ ...future.FUN: 1594s [00:53:14.907] ..$ MoreArgs : 1594s [00:53:14.907] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1594s [00:53:14.907] - attr(*, "resolved")= logi FALSE 1594s [00:53:14.907] - attr(*, "total_size")= num NA 1594s [00:53:14.913] Packages to be attached in all futures: [n=0] 1594s [00:53:14.913] getGlobalsAndPackagesXApply() ... DONE 1594s [00:53:14.914] Number of futures (= number of chunks): 1 1594s [00:53:14.914] Launching 1 futures (chunks) ... 1594s [00:53:14.914] Chunk #1 of 1 ... 1594s [00:53:14.914] - Finding globals in '...' for chunk #1 ... 1594s [00:53:14.915] getGlobalsAndPackages() ... 1594s [00:53:14.915] Searching for globals... 1594s [00:53:14.915] 1594s [00:53:14.916] Searching for globals ... DONE 1594s [00:53:14.916] - globals: [0] 1594s [00:53:14.916] getGlobalsAndPackages() ... DONE 1594s [00:53:14.916] + additional globals found: [n=0] 1594s [00:53:14.916] + additional namespaces needed: [n=0] 1594s [00:53:14.916] - Finding globals in '...' for chunk #1 ... DONE 1594s [00:53:14.916] - seeds: 1594s [00:53:14.917] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1594s [00:53:14.917] getGlobalsAndPackages() ... 1594s [00:53:14.917] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1594s [00:53:14.917] Resolving globals: FALSE 1594s [00:53:14.918] The total size of the 5 globals is 6.33 KiB (6480 bytes) 1594s [00:53:14.918] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 6.33 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (6.11 KiB of class ‘function’), ‘...future.elements_ii’ (224 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1594s [00:53:14.919] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1594s [00:53:14.919] 1594s [00:53:14.919] getGlobalsAndPackages() ... DONE 1594s [00:53:14.919] run() for ‘Future’ ... 1594s [00:53:14.920] - state: ‘created’ 1594s [00:53:14.920] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1594s [00:53:14.920] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1594s [00:53:14.920] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1594s [00:53:14.921] - Field: ‘label’ 1594s [00:53:14.921] - Field: ‘local’ 1594s [00:53:14.921] - Field: ‘owner’ 1594s [00:53:14.921] - Field: ‘envir’ 1594s [00:53:14.921] - Field: ‘packages’ 1594s [00:53:14.921] - Field: ‘gc’ 1594s [00:53:14.922] - Field: ‘conditions’ 1594s [00:53:14.922] - Field: ‘expr’ 1594s [00:53:14.922] - Field: ‘uuid’ 1594s [00:53:14.922] - Field: ‘seed’ 1594s [00:53:14.922] - Field: ‘version’ 1594s [00:53:14.922] - Field: ‘result’ 1594s [00:53:14.923] - Field: ‘asynchronous’ 1594s [00:53:14.923] - Field: ‘calls’ 1594s [00:53:14.923] - Field: ‘globals’ 1594s [00:53:14.923] - Field: ‘stdout’ 1594s [00:53:14.923] - Field: ‘earlySignal’ 1594s [00:53:14.923] - Field: ‘lazy’ 1594s [00:53:14.924] - Field: ‘state’ 1594s [00:53:14.924] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1594s [00:53:14.924] - Launch lazy future ... 1594s [00:53:14.924] Packages needed by the future expression (n = 0): 1594s [00:53:14.924] Packages needed by future strategies (n = 0): 1594s [00:53:14.925] { 1594s [00:53:14.925] { 1594s [00:53:14.925] { 1594s [00:53:14.925] ...future.startTime <- base::Sys.time() 1594s [00:53:14.925] { 1594s [00:53:14.925] { 1594s [00:53:14.925] { 1594s [00:53:14.925] base::local({ 1594s [00:53:14.925] has_future <- base::requireNamespace("future", 1594s [00:53:14.925] quietly = TRUE) 1594s [00:53:14.925] if (has_future) { 1594s [00:53:14.925] ns <- base::getNamespace("future") 1594s [00:53:14.925] version <- ns[[".package"]][["version"]] 1594s [00:53:14.925] if (is.null(version)) 1594s [00:53:14.925] version <- utils::packageVersion("future") 1594s [00:53:14.925] } 1594s [00:53:14.925] else { 1594s [00:53:14.925] version <- NULL 1594s [00:53:14.925] } 1594s [00:53:14.925] if (!has_future || version < "1.8.0") { 1594s [00:53:14.925] info <- base::c(r_version = base::gsub("R version ", 1594s [00:53:14.925] "", base::R.version$version.string), 1594s [00:53:14.925] platform = base::sprintf("%s (%s-bit)", 1594s [00:53:14.925] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1594s [00:53:14.925] os = base::paste(base::Sys.info()[base::c("sysname", 1594s [00:53:14.925] "release", "version")], collapse = " "), 1594s [00:53:14.925] hostname = base::Sys.info()[["nodename"]]) 1594s [00:53:14.925] info <- base::sprintf("%s: %s", base::names(info), 1594s [00:53:14.925] info) 1594s [00:53:14.925] info <- base::paste(info, collapse = "; ") 1594s [00:53:14.925] if (!has_future) { 1594s [00:53:14.925] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1594s [00:53:14.925] info) 1594s [00:53:14.925] } 1594s [00:53:14.925] else { 1594s [00:53:14.925] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1594s [00:53:14.925] info, version) 1594s [00:53:14.925] } 1594s [00:53:14.925] base::stop(msg) 1594s [00:53:14.925] } 1594s [00:53:14.925] }) 1594s [00:53:14.925] } 1594s [00:53:14.925] options(future.plan = NULL) 1594s [00:53:14.925] Sys.unsetenv("R_FUTURE_PLAN") 1594s [00:53:14.925] future::plan("default", .cleanup = FALSE, .init = FALSE) 1594s [00:53:14.925] } 1594s [00:53:14.925] ...future.workdir <- getwd() 1594s [00:53:14.925] } 1594s [00:53:14.925] ...future.oldOptions <- base::as.list(base::.Options) 1594s [00:53:14.925] ...future.oldEnvVars <- base::Sys.getenv() 1594s [00:53:14.925] } 1594s [00:53:14.925] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1594s [00:53:14.925] future.globals.maxSize = NULL, future.globals.method = NULL, 1594s [00:53:14.925] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1594s [00:53:14.925] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1594s [00:53:14.925] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1594s [00:53:14.925] future.stdout.windows.reencode = NULL, width = 80L) 1594s [00:53:14.925] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1594s [00:53:14.925] base::names(...future.oldOptions)) 1594s [00:53:14.925] } 1594s [00:53:14.925] if (FALSE) { 1594s [00:53:14.925] } 1594s [00:53:14.925] else { 1594s [00:53:14.925] if (FALSE) { 1594s [00:53:14.925] ...future.stdout <- base::rawConnection(base::raw(0L), 1594s [00:53:14.925] open = "w") 1594s [00:53:14.925] } 1594s [00:53:14.925] else { 1594s [00:53:14.925] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1594s [00:53:14.925] windows = "NUL", "/dev/null"), open = "w") 1594s [00:53:14.925] } 1594s [00:53:14.925] base::sink(...future.stdout, type = "output", split = FALSE) 1594s [00:53:14.925] base::on.exit(if (!base::is.null(...future.stdout)) { 1594s [00:53:14.925] base::sink(type = "output", split = FALSE) 1594s [00:53:14.925] base::close(...future.stdout) 1594s [00:53:14.925] }, add = TRUE) 1594s [00:53:14.925] } 1594s [00:53:14.925] ...future.frame <- base::sys.nframe() 1594s [00:53:14.925] ...future.conditions <- base::list() 1594s [00:53:14.925] ...future.rng <- base::globalenv()$.Random.seed 1594s [00:53:14.925] if (FALSE) { 1594s [00:53:14.925] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1594s [00:53:14.925] "...future.value", "...future.globalenv.names", ".Random.seed") 1594s [00:53:14.925] } 1594s [00:53:14.925] ...future.result <- base::tryCatch({ 1594s [00:53:14.925] base::withCallingHandlers({ 1594s [00:53:14.925] ...future.value <- base::withVisible(base::local({ 1594s [00:53:14.925] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1594s [00:53:14.925] if (!identical(...future.globals.maxSize.org, 1594s [00:53:14.925] ...future.globals.maxSize)) { 1594s [00:53:14.925] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1594s [00:53:14.925] on.exit(options(oopts), add = TRUE) 1594s [00:53:14.925] } 1594s [00:53:14.925] { 1594s [00:53:14.925] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1594s [00:53:14.925] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1594s [00:53:14.925] USE.NAMES = FALSE) 1594s [00:53:14.925] do.call(mapply, args = args) 1594s [00:53:14.925] } 1594s [00:53:14.925] })) 1594s [00:53:14.925] future::FutureResult(value = ...future.value$value, 1594s [00:53:14.925] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1594s [00:53:14.925] ...future.rng), globalenv = if (FALSE) 1594s [00:53:14.925] list(added = base::setdiff(base::names(base::.GlobalEnv), 1594s [00:53:14.925] ...future.globalenv.names)) 1594s [00:53:14.925] else NULL, started = ...future.startTime, version = "1.8") 1594s [00:53:14.925] }, condition = base::local({ 1594s [00:53:14.925] c <- base::c 1594s [00:53:14.925] inherits <- base::inherits 1594s [00:53:14.925] invokeRestart <- base::invokeRestart 1594s [00:53:14.925] length <- base::length 1594s [00:53:14.925] list <- base::list 1594s [00:53:14.925] seq.int <- base::seq.int 1594s [00:53:14.925] signalCondition <- base::signalCondition 1594s [00:53:14.925] sys.calls <- base::sys.calls 1594s [00:53:14.925] `[[` <- base::`[[` 1594s [00:53:14.925] `+` <- base::`+` 1594s [00:53:14.925] `<<-` <- base::`<<-` 1594s [00:53:14.925] sysCalls <- function(calls = sys.calls(), from = 1L) { 1594s [00:53:14.925] calls[seq.int(from = from + 12L, to = length(calls) - 1594s [00:53:14.925] 3L)] 1594s [00:53:14.925] } 1594s [00:53:14.925] function(cond) { 1594s [00:53:14.925] is_error <- inherits(cond, "error") 1594s [00:53:14.925] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1594s [00:53:14.925] NULL) 1594s [00:53:14.925] if (is_error) { 1594s [00:53:14.925] sessionInformation <- function() { 1594s [00:53:14.925] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1594s [00:53:14.925] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1594s [00:53:14.925] search = base::search(), system = base::Sys.info()) 1594s [00:53:14.925] } 1594s [00:53:14.925] ...future.conditions[[length(...future.conditions) + 1594s [00:53:14.925] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1594s [00:53:14.925] cond$call), session = sessionInformation(), 1594s [00:53:14.925] timestamp = base::Sys.time(), signaled = 0L) 1594s [00:53:14.925] signalCondition(cond) 1594s [00:53:14.925] } 1594s [00:53:14.925] else if (!ignore && TRUE && inherits(cond, c("condition", 1594s [00:53:14.925] "immediateCondition"))) { 1594s [00:53:14.925] signal <- TRUE && inherits(cond, "immediateCondition") 1594s [00:53:14.925] ...future.conditions[[length(...future.conditions) + 1594s [00:53:14.925] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1594s [00:53:14.925] if (TRUE && !signal) { 1594s [00:53:14.925] muffleCondition <- function (cond, pattern = "^muffle") 1594s [00:53:14.925] { 1594s [00:53:14.925] inherits <- base::inherits 1594s [00:53:14.925] invokeRestart <- base::invokeRestart 1594s [00:53:14.925] is.null <- base::is.null 1594s [00:53:14.925] muffled <- FALSE 1594s [00:53:14.925] if (inherits(cond, "message")) { 1594s [00:53:14.925] muffled <- grepl(pattern, "muffleMessage") 1594s [00:53:14.925] if (muffled) 1594s [00:53:14.925] invokeRestart("muffleMessage") 1594s [00:53:14.925] } 1594s [00:53:14.925] else if (inherits(cond, "warning")) { 1594s [00:53:14.925] muffled <- grepl(pattern, "muffleWarning") 1594s [00:53:14.925] if (muffled) 1594s [00:53:14.925] invokeRestart("muffleWarning") 1594s [00:53:14.925] } 1594s [00:53:14.925] else if (inherits(cond, "condition")) { 1594s [00:53:14.925] if (!is.null(pattern)) { 1594s [00:53:14.925] computeRestarts <- base::computeRestarts 1594s [00:53:14.925] grepl <- base::grepl 1594s [00:53:14.925] restarts <- computeRestarts(cond) 1594s [00:53:14.925] for (restart in restarts) { 1594s [00:53:14.925] name <- restart$name 1594s [00:53:14.925] if (is.null(name)) 1594s [00:53:14.925] next 1594s [00:53:14.925] if (!grepl(pattern, name)) 1594s [00:53:14.925] next 1594s [00:53:14.925] invokeRestart(restart) 1594s [00:53:14.925] muffled <- TRUE 1594s [00:53:14.925] break 1594s [00:53:14.925] } 1594s [00:53:14.925] } 1594s [00:53:14.925] } 1594s [00:53:14.925] invisible(muffled) 1594s [00:53:14.925] } 1594s [00:53:14.925] muffleCondition(cond, pattern = "^muffle") 1594s [00:53:14.925] } 1594s [00:53:14.925] } 1594s [00:53:14.925] else { 1594s [00:53:14.925] if (TRUE) { 1594s [00:53:14.925] muffleCondition <- function (cond, pattern = "^muffle") 1594s [00:53:14.925] { 1594s [00:53:14.925] inherits <- base::inherits 1594s [00:53:14.925] invokeRestart <- base::invokeRestart 1594s [00:53:14.925] is.null <- base::is.null 1594s [00:53:14.925] muffled <- FALSE 1594s [00:53:14.925] if (inherits(cond, "message")) { 1594s [00:53:14.925] muffled <- grepl(pattern, "muffleMessage") 1594s [00:53:14.925] if (muffled) 1594s [00:53:14.925] invokeRestart("muffleMessage") 1594s [00:53:14.925] } 1594s [00:53:14.925] else if (inherits(cond, "warning")) { 1594s [00:53:14.925] muffled <- grepl(pattern, "muffleWarning") 1594s [00:53:14.925] if (muffled) 1594s [00:53:14.925] invokeRestart("muffleWarning") 1594s [00:53:14.925] } 1594s [00:53:14.925] else if (inherits(cond, "condition")) { 1594s [00:53:14.925] if (!is.null(pattern)) { 1594s [00:53:14.925] computeRestarts <- base::computeRestarts 1594s [00:53:14.925] grepl <- base::grepl 1594s [00:53:14.925] restarts <- computeRestarts(cond) 1594s [00:53:14.925] for (restart in restarts) { 1594s [00:53:14.925] name <- restart$name 1594s [00:53:14.925] if (is.null(name)) 1594s [00:53:14.925] next 1594s [00:53:14.925] if (!grepl(pattern, name)) 1594s [00:53:14.925] next 1594s [00:53:14.925] invokeRestart(restart) 1594s [00:53:14.925] muffled <- TRUE 1594s [00:53:14.925] break 1594s [00:53:14.925] } 1594s [00:53:14.925] } 1594s [00:53:14.925] } 1594s [00:53:14.925] invisible(muffled) 1594s [00:53:14.925] } 1594s [00:53:14.925] muffleCondition(cond, pattern = "^muffle") 1594s [00:53:14.925] } 1594s [00:53:14.925] } 1594s [00:53:14.925] } 1594s [00:53:14.925] })) 1594s [00:53:14.925] }, error = function(ex) { 1594s [00:53:14.925] base::structure(base::list(value = NULL, visible = NULL, 1594s [00:53:14.925] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1594s [00:53:14.925] ...future.rng), started = ...future.startTime, 1594s [00:53:14.925] finished = Sys.time(), session_uuid = NA_character_, 1594s [00:53:14.925] version = "1.8"), class = "FutureResult") 1594s [00:53:14.925] }, finally = { 1594s [00:53:14.925] if (!identical(...future.workdir, getwd())) 1594s [00:53:14.925] setwd(...future.workdir) 1594s [00:53:14.925] { 1594s [00:53:14.925] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1594s [00:53:14.925] ...future.oldOptions$nwarnings <- NULL 1594s [00:53:14.925] } 1594s [00:53:14.925] base::options(...future.oldOptions) 1594s [00:53:14.925] if (.Platform$OS.type == "windows") { 1594s [00:53:14.925] old_names <- names(...future.oldEnvVars) 1594s [00:53:14.925] envs <- base::Sys.getenv() 1594s [00:53:14.925] names <- names(envs) 1594s [00:53:14.925] common <- intersect(names, old_names) 1594s [00:53:14.925] added <- setdiff(names, old_names) 1594s [00:53:14.925] removed <- setdiff(old_names, names) 1594s [00:53:14.925] changed <- common[...future.oldEnvVars[common] != 1594s [00:53:14.925] envs[common]] 1594s [00:53:14.925] NAMES <- toupper(changed) 1594s [00:53:14.925] args <- list() 1594s [00:53:14.925] for (kk in seq_along(NAMES)) { 1594s [00:53:14.925] name <- changed[[kk]] 1594s [00:53:14.925] NAME <- NAMES[[kk]] 1594s [00:53:14.925] if (name != NAME && is.element(NAME, old_names)) 1594s [00:53:14.925] next 1594s [00:53:14.925] args[[name]] <- ...future.oldEnvVars[[name]] 1594s [00:53:14.925] } 1594s [00:53:14.925] NAMES <- toupper(added) 1594s [00:53:14.925] for (kk in seq_along(NAMES)) { 1594s [00:53:14.925] name <- added[[kk]] 1594s [00:53:14.925] NAME <- NAMES[[kk]] 1594s [00:53:14.925] if (name != NAME && is.element(NAME, old_names)) 1594s [00:53:14.925] next 1594s [00:53:14.925] args[[name]] <- "" 1594s [00:53:14.925] } 1594s [00:53:14.925] NAMES <- toupper(removed) 1594s [00:53:14.925] for (kk in seq_along(NAMES)) { 1594s [00:53:14.925] name <- removed[[kk]] 1594s [00:53:14.925] NAME <- NAMES[[kk]] 1594s [00:53:14.925] if (name != NAME && is.element(NAME, old_names)) 1594s [00:53:14.925] next 1594s [00:53:14.925] args[[name]] <- ...future.oldEnvVars[[name]] 1594s [00:53:14.925] } 1594s [00:53:14.925] if (length(args) > 0) 1594s [00:53:14.925] base::do.call(base::Sys.setenv, args = args) 1594s [00:53:14.925] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1594s [00:53:14.925] } 1594s [00:53:14.925] else { 1594s [00:53:14.925] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1594s [00:53:14.925] } 1594s [00:53:14.925] { 1594s [00:53:14.925] if (base::length(...future.futureOptionsAdded) > 1594s [00:53:14.925] 0L) { 1594s [00:53:14.925] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1594s [00:53:14.925] base::names(opts) <- ...future.futureOptionsAdded 1594s [00:53:14.925] base::options(opts) 1594s [00:53:14.925] } 1594s [00:53:14.925] { 1594s [00:53:14.925] { 1594s [00:53:14.925] NULL 1594s [00:53:14.925] RNGkind("Mersenne-Twister") 1594s [00:53:14.925] base::rm(list = ".Random.seed", envir = base::globalenv(), 1594s [00:53:14.925] inherits = FALSE) 1594s [00:53:14.925] } 1594s [00:53:14.925] options(future.plan = NULL) 1594s [00:53:14.925] if (is.na(NA_character_)) 1594s [00:53:14.925] Sys.unsetenv("R_FUTURE_PLAN") 1594s [00:53:14.925] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1594s [00:53:14.925] future::plan(list(function (..., envir = parent.frame()) 1594s [00:53:14.925] { 1594s [00:53:14.925] future <- SequentialFuture(..., envir = envir) 1594s [00:53:14.925] if (!future$lazy) 1594s [00:53:14.925] future <- run(future) 1594s [00:53:14.925] invisible(future) 1594s [00:53:14.925] }), .cleanup = FALSE, .init = FALSE) 1594s [00:53:14.925] } 1594s [00:53:14.925] } 1594s [00:53:14.925] } 1594s [00:53:14.925] }) 1594s [00:53:14.925] if (TRUE) { 1594s [00:53:14.925] base::sink(type = "output", split = FALSE) 1594s [00:53:14.925] if (FALSE) { 1594s [00:53:14.925] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1594s [00:53:14.925] } 1594s [00:53:14.925] else { 1595s [00:53:14.925] ...future.result["stdout"] <- base::list(NULL) 1595s [00:53:14.925] } 1595s [00:53:14.925] base::close(...future.stdout) 1595s [00:53:14.925] ...future.stdout <- NULL 1595s [00:53:14.925] } 1595s [00:53:14.925] ...future.result$conditions <- ...future.conditions 1595s [00:53:14.925] ...future.result$finished <- base::Sys.time() 1595s [00:53:14.925] ...future.result 1595s [00:53:14.925] } 1595s [00:53:14.932] assign_globals() ... 1595s [00:53:14.932] List of 5 1595s [00:53:14.932] $ ...future.FUN :function (x, y) 1595s [00:53:14.932] $ MoreArgs : NULL 1595s [00:53:14.932] $ ...future.elements_ii :List of 2 1595s [00:53:14.932] ..$ :List of 2 1595s [00:53:14.932] .. ..$ : int 1 1595s [00:53:14.932] .. ..$ : int 0 1595s [00:53:14.932] ..$ :List of 2 1595s [00:53:14.932] .. ..$ : int 0 1595s [00:53:14.932] .. ..$ : int 1 1595s [00:53:14.932] $ ...future.seeds_ii : NULL 1595s [00:53:14.932] $ ...future.globals.maxSize: NULL 1595s [00:53:14.932] - attr(*, "where")=List of 5 1595s [00:53:14.932] ..$ ...future.FUN : 1595s [00:53:14.932] ..$ MoreArgs : 1595s [00:53:14.932] ..$ ...future.elements_ii : 1595s [00:53:14.932] ..$ ...future.seeds_ii : 1595s [00:53:14.932] ..$ ...future.globals.maxSize: 1595s [00:53:14.932] - attr(*, "resolved")= logi FALSE 1595s [00:53:14.932] - attr(*, "total_size")= num 6480 1595s [00:53:14.932] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1595s [00:53:14.932] - attr(*, "already-done")= logi TRUE 1595s [00:53:14.939] - reassign environment for ‘...future.FUN’ 1595s [00:53:14.939] - copied ‘...future.FUN’ to environment 1595s [00:53:14.939] - copied ‘MoreArgs’ to environment 1595s [00:53:14.939] - copied ‘...future.elements_ii’ to environment 1595s [00:53:14.939] - copied ‘...future.seeds_ii’ to environment 1595s [00:53:14.939] - copied ‘...future.globals.maxSize’ to environment 1595s [00:53:14.940] assign_globals() ... done 1595s [00:53:14.940] plan(): Setting new future strategy stack: 1595s [00:53:14.940] List of future strategies: 1595s [00:53:14.940] 1. sequential: 1595s [00:53:14.940] - args: function (..., envir = parent.frame()) 1595s [00:53:14.940] - tweaked: FALSE 1595s [00:53:14.940] - call: NULL 1595s [00:53:14.940] plan(): nbrOfWorkers() = 1 1595s [00:53:15.443] plan(): Setting new future strategy stack: 1595s [00:53:15.443] List of future strategies: 1595s [00:53:15.443] 1. sequential: 1595s [00:53:15.443] - args: function (..., envir = parent.frame()) 1595s [00:53:15.443] - tweaked: FALSE 1595s [00:53:15.443] - call: plan(strategy) 1595s [00:53:15.444] plan(): nbrOfWorkers() = 1 1595s [00:53:15.444] SequentialFuture started (and completed) 1595s [00:53:15.444] - Launch lazy future ... done 1595s [00:53:15.444] run() for ‘SequentialFuture’ ... done 1595s [00:53:15.445] Created future: 1595s [00:53:15.445] SequentialFuture: 1595s [00:53:15.445] Label: ‘future_mapply-1’ 1595s [00:53:15.445] Expression: 1595s [00:53:15.445] { 1595s [00:53:15.445] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1595s [00:53:15.445] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1595s [00:53:15.445] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1595s [00:53:15.445] on.exit(options(oopts), add = TRUE) 1595s [00:53:15.445] } 1595s [00:53:15.445] { 1595s [00:53:15.445] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1595s [00:53:15.445] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1595s [00:53:15.445] do.call(mapply, args = args) 1595s [00:53:15.445] } 1595s [00:53:15.445] } 1595s [00:53:15.445] Lazy evaluation: FALSE 1595s [00:53:15.445] Asynchronous evaluation: FALSE 1595s [00:53:15.445] Local evaluation: TRUE 1595s [00:53:15.445] Environment: R_GlobalEnv 1595s [00:53:15.445] Capture standard output: FALSE 1595s [00:53:15.445] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1595s [00:53:15.445] Globals: 5 objects totaling 6.33 KiB (function ‘...future.FUN’ of 6.11 KiB, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1595s [00:53:15.445] Packages: 1595s [00:53:15.445] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1595s [00:53:15.445] Resolved: TRUE 1595s [00:53:15.445] Value: 224 bytes of class ‘list’ 1595s [00:53:15.445] Early signaling: FALSE 1595s [00:53:15.445] Owner process: aef6b2cf-a7ff-4166-a7a6-2b6e1e64c3ba 1595s [00:53:15.445] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1595s [00:53:15.447] Chunk #1 of 1 ... DONE 1595s [00:53:15.447] Launching 1 futures (chunks) ... DONE 1595s [00:53:15.447] Resolving 1 futures (chunks) ... 1595s [00:53:15.447] resolve() on list ... 1595s [00:53:15.447] recursive: 0 1595s [00:53:15.447] length: 1 1595s [00:53:15.448] 1595s [00:53:15.448] resolved() for ‘SequentialFuture’ ... 1595s [00:53:15.448] - state: ‘finished’ 1595s [00:53:15.448] - run: TRUE 1595s [00:53:15.448] - result: ‘FutureResult’ 1595s [00:53:15.448] resolved() for ‘SequentialFuture’ ... done 1595s [00:53:15.449] Future #1 1595s [00:53:15.449] signalConditionsASAP(SequentialFuture, pos=1) ... 1595s [00:53:15.449] - nx: 1 1595s [00:53:15.449] - relay: TRUE 1595s [00:53:15.449] - stdout: TRUE 1595s [00:53:15.449] - signal: TRUE 1595s [00:53:15.450] - resignal: FALSE 1595s [00:53:15.450] - force: TRUE 1595s [00:53:15.450] - relayed: [n=1] FALSE 1595s [00:53:15.450] - queued futures: [n=1] FALSE 1595s [00:53:15.450] - until=1 1595s [00:53:15.450] - relaying element #1 1595s [00:53:15.451] - relayed: [n=1] TRUE 1595s [00:53:15.451] - queued futures: [n=1] TRUE 1595s [00:53:15.451] signalConditionsASAP(SequentialFuture, pos=1) ... done 1595s [00:53:15.451] length: 0 (resolved future 1) 1595s [00:53:15.451] Relaying remaining futures 1595s [00:53:15.451] signalConditionsASAP(NULL, pos=0) ... 1595s [00:53:15.452] - nx: 1 1595s [00:53:15.452] - relay: TRUE 1595s [00:53:15.452] - stdout: TRUE 1595s [00:53:15.452] - signal: TRUE 1595s [00:53:15.452] - resignal: FALSE 1595s [00:53:15.452] - force: TRUE 1595s [00:53:15.453] - relayed: [n=1] TRUE 1595s [00:53:15.453] - queued futures: [n=1] TRUE 1595s - flush all 1595s [00:53:15.453] - relayed: [n=1] TRUE 1595s [00:53:15.453] - queued futures: [n=1] TRUE 1595s [00:53:15.453] signalConditionsASAP(NULL, pos=0) ... done 1595s [00:53:15.453] resolve() on list ... DONE 1595s [00:53:15.454] - Number of value chunks collected: 1 1595s [00:53:15.454] Resolving 1 futures (chunks) ... DONE 1595s [00:53:15.454] Reducing values from 1 chunks ... 1595s [00:53:15.457] - Number of values collected after concatenation: 2 1595s [00:53:15.457] - Number of values expected: 2 1595s [00:53:15.457] Reducing values from 1 chunks ... DONE 1595s [00:53:15.458] future_mapply() ... DONE 1595s * future_mapply(x, ..., future.stdout = FALSE) ... DONE 1595s * future_mapply(x, ..., future.stdout = TRUE) ... 1595s [00:53:15.458] future_mapply() ... 1595s [00:53:15.458] Number of chunks: 1 1595s [00:53:15.459] getGlobalsAndPackagesXApply() ... 1595s [00:53:15.459] - future.globals: TRUE 1595s [00:53:15.459] getGlobalsAndPackages() ... 1595s [00:53:15.459] Searching for globals... 1595s [00:53:15.461] - globals found: [6] ‘FUN’, ‘{’, ‘Sys.sleep’, ‘/’, ‘print’, ‘list’ 1595s [00:53:15.461] Searching for globals ... DONE 1595s [00:53:15.462] Resolving globals: FALSE 1595s [00:53:15.462] The total size of the 1 globals is 6.11 KiB (6256 bytes) 1595s [00:53:15.463] The total size of the 1 globals exported for future expression (‘FUN()’) is 6.11 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (6.11 KiB of class ‘function’) 1595s [00:53:15.463] - globals: [1] ‘FUN’ 1595s [00:53:15.463] 1595s [00:53:15.463] getGlobalsAndPackages() ... DONE 1595s [00:53:15.463] - globals found/used: [n=1] ‘FUN’ 1595s [00:53:15.464] - needed namespaces: [n=0] 1595s [00:53:15.464] Finding globals ... DONE 1595s [00:53:15.464] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1595s [00:53:15.464] List of 2 1595s [00:53:15.464] $ ...future.FUN:function (x, y) 1595s [00:53:15.464] $ MoreArgs : NULL 1595s [00:53:15.464] - attr(*, "where")=List of 2 1595s [00:53:15.464] ..$ ...future.FUN: 1595s [00:53:15.464] ..$ MoreArgs : 1595s [00:53:15.464] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1595s [00:53:15.464] - attr(*, "resolved")= logi FALSE 1595s [00:53:15.464] - attr(*, "total_size")= num NA 1595s [00:53:15.468] Packages to be attached in all futures: [n=0] 1595s [00:53:15.468] getGlobalsAndPackagesXApply() ... DONE 1595s [00:53:15.468] Number of futures (= number of chunks): 1 1595s [00:53:15.468] Launching 1 futures (chunks) ... 1595s [00:53:15.468] Chunk #1 of 1 ... 1595s [00:53:15.469] - Finding globals in '...' for chunk #1 ... 1595s [00:53:15.469] getGlobalsAndPackages() ... 1595s [00:53:15.469] Searching for globals... 1595s [00:53:15.469] 1595s [00:53:15.470] Searching for globals ... DONE 1595s [00:53:15.470] - globals: [0] 1595s [00:53:15.470] getGlobalsAndPackages() ... DONE 1595s [00:53:15.470] + additional globals found: [n=0] 1595s [00:53:15.470] + additional namespaces needed: [n=0] 1595s [00:53:15.470] - Finding globals in '...' for chunk #1 ... DONE 1595s [00:53:15.471] - seeds: 1595s [00:53:15.471] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1595s [00:53:15.471] getGlobalsAndPackages() ... 1595s [00:53:15.471] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1595s [00:53:15.472] Resolving globals: FALSE 1595s [00:53:15.472] The total size of the 5 globals is 6.33 KiB (6480 bytes) 1595s [00:53:15.473] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 6.33 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (6.11 KiB of class ‘function’), ‘...future.elements_ii’ (224 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1595s [00:53:15.473] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1595s [00:53:15.474] 1595s [00:53:15.474] getGlobalsAndPackages() ... DONE 1595s [00:53:15.474] run() for ‘Future’ ... 1595s [00:53:15.474] - state: ‘created’ 1595s [00:53:15.475] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1595s [00:53:15.475] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1595s [00:53:15.475] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1595s [00:53:15.475] - Field: ‘label’ 1595s [00:53:15.475] - Field: ‘local’ 1595s [00:53:15.476] - Field: ‘owner’ 1595s [00:53:15.476] - Field: ‘envir’ 1595s [00:53:15.476] - Field: ‘packages’ 1595s [00:53:15.476] - Field: ‘gc’ 1595s [00:53:15.476] - Field: ‘conditions’ 1595s [00:53:15.476] - Field: ‘expr’ 1595s [00:53:15.477] - Field: ‘uuid’ 1595s [00:53:15.477] - Field: ‘seed’ 1595s [00:53:15.477] - Field: ‘version’ 1595s [00:53:15.477] - Field: ‘result’ 1595s [00:53:15.477] - Field: ‘asynchronous’ 1595s [00:53:15.477] - Field: ‘calls’ 1595s [00:53:15.478] - Field: ‘globals’ 1595s [00:53:15.478] - Field: ‘stdout’ 1595s [00:53:15.478] - Field: ‘earlySignal’ 1595s [00:53:15.478] - Field: ‘lazy’ 1595s [00:53:15.478] - Field: ‘state’ 1595s [00:53:15.478] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1595s [00:53:15.479] - Launch lazy future ... 1595s [00:53:15.479] Packages needed by the future expression (n = 0): 1595s [00:53:15.479] Packages needed by future strategies (n = 0): 1595s [00:53:15.480] { 1595s [00:53:15.480] { 1595s [00:53:15.480] { 1595s [00:53:15.480] ...future.startTime <- base::Sys.time() 1595s [00:53:15.480] { 1595s [00:53:15.480] { 1595s [00:53:15.480] { 1595s [00:53:15.480] base::local({ 1595s [00:53:15.480] has_future <- base::requireNamespace("future", 1595s [00:53:15.480] quietly = TRUE) 1595s [00:53:15.480] if (has_future) { 1595s [00:53:15.480] ns <- base::getNamespace("future") 1595s [00:53:15.480] version <- ns[[".package"]][["version"]] 1595s [00:53:15.480] if (is.null(version)) 1595s [00:53:15.480] version <- utils::packageVersion("future") 1595s [00:53:15.480] } 1595s [00:53:15.480] else { 1595s [00:53:15.480] version <- NULL 1595s [00:53:15.480] } 1595s [00:53:15.480] if (!has_future || version < "1.8.0") { 1595s [00:53:15.480] info <- base::c(r_version = base::gsub("R version ", 1595s [00:53:15.480] "", base::R.version$version.string), 1595s [00:53:15.480] platform = base::sprintf("%s (%s-bit)", 1595s [00:53:15.480] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1595s [00:53:15.480] os = base::paste(base::Sys.info()[base::c("sysname", 1595s [00:53:15.480] "release", "version")], collapse = " "), 1595s [00:53:15.480] hostname = base::Sys.info()[["nodename"]]) 1595s [00:53:15.480] info <- base::sprintf("%s: %s", base::names(info), 1595s [00:53:15.480] info) 1595s [00:53:15.480] info <- base::paste(info, collapse = "; ") 1595s [00:53:15.480] if (!has_future) { 1595s [00:53:15.480] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1595s [00:53:15.480] info) 1595s [00:53:15.480] } 1595s [00:53:15.480] else { 1595s [00:53:15.480] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1595s [00:53:15.480] info, version) 1595s [00:53:15.480] } 1595s [00:53:15.480] base::stop(msg) 1595s [00:53:15.480] } 1595s [00:53:15.480] }) 1595s [00:53:15.480] } 1595s [00:53:15.480] options(future.plan = NULL) 1595s [00:53:15.480] Sys.unsetenv("R_FUTURE_PLAN") 1595s [00:53:15.480] future::plan("default", .cleanup = FALSE, .init = FALSE) 1595s [00:53:15.480] } 1595s [00:53:15.480] ...future.workdir <- getwd() 1595s [00:53:15.480] } 1595s [00:53:15.480] ...future.oldOptions <- base::as.list(base::.Options) 1595s [00:53:15.480] ...future.oldEnvVars <- base::Sys.getenv() 1595s [00:53:15.480] } 1595s [00:53:15.480] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1595s [00:53:15.480] future.globals.maxSize = NULL, future.globals.method = NULL, 1595s [00:53:15.480] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1595s [00:53:15.480] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1595s [00:53:15.480] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1595s [00:53:15.480] future.stdout.windows.reencode = NULL, width = 80L) 1595s [00:53:15.480] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1595s [00:53:15.480] base::names(...future.oldOptions)) 1595s [00:53:15.480] } 1595s [00:53:15.480] if (FALSE) { 1595s [00:53:15.480] } 1595s [00:53:15.480] else { 1595s [00:53:15.480] if (TRUE) { 1595s [00:53:15.480] ...future.stdout <- base::rawConnection(base::raw(0L), 1595s [00:53:15.480] open = "w") 1595s [00:53:15.480] } 1595s [00:53:15.480] else { 1595s [00:53:15.480] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1595s [00:53:15.480] windows = "NUL", "/dev/null"), open = "w") 1595s [00:53:15.480] } 1595s [00:53:15.480] base::sink(...future.stdout, type = "output", split = FALSE) 1595s [00:53:15.480] base::on.exit(if (!base::is.null(...future.stdout)) { 1595s [00:53:15.480] base::sink(type = "output", split = FALSE) 1595s [00:53:15.480] base::close(...future.stdout) 1595s [00:53:15.480] }, add = TRUE) 1595s [00:53:15.480] } 1595s [00:53:15.480] ...future.frame <- base::sys.nframe() 1595s [00:53:15.480] ...future.conditions <- base::list() 1595s [00:53:15.480] ...future.rng <- base::globalenv()$.Random.seed 1595s [00:53:15.480] if (FALSE) { 1595s [00:53:15.480] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1595s [00:53:15.480] "...future.value", "...future.globalenv.names", ".Random.seed") 1595s [00:53:15.480] } 1595s [00:53:15.480] ...future.result <- base::tryCatch({ 1595s [00:53:15.480] base::withCallingHandlers({ 1595s [00:53:15.480] ...future.value <- base::withVisible(base::local({ 1595s [00:53:15.480] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1595s [00:53:15.480] if (!identical(...future.globals.maxSize.org, 1595s [00:53:15.480] ...future.globals.maxSize)) { 1595s [00:53:15.480] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1595s [00:53:15.480] on.exit(options(oopts), add = TRUE) 1595s [00:53:15.480] } 1595s [00:53:15.480] { 1595s [00:53:15.480] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1595s [00:53:15.480] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1595s [00:53:15.480] USE.NAMES = FALSE) 1595s [00:53:15.480] do.call(mapply, args = args) 1595s [00:53:15.480] } 1595s [00:53:15.480] })) 1595s [00:53:15.480] future::FutureResult(value = ...future.value$value, 1595s [00:53:15.480] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1595s [00:53:15.480] ...future.rng), globalenv = if (FALSE) 1595s [00:53:15.480] list(added = base::setdiff(base::names(base::.GlobalEnv), 1595s [00:53:15.480] ...future.globalenv.names)) 1595s [00:53:15.480] else NULL, started = ...future.startTime, version = "1.8") 1595s [00:53:15.480] }, condition = base::local({ 1595s [00:53:15.480] c <- base::c 1595s [00:53:15.480] inherits <- base::inherits 1595s [00:53:15.480] invokeRestart <- base::invokeRestart 1595s [00:53:15.480] length <- base::length 1595s [00:53:15.480] list <- base::list 1595s [00:53:15.480] seq.int <- base::seq.int 1595s [00:53:15.480] signalCondition <- base::signalCondition 1595s [00:53:15.480] sys.calls <- base::sys.calls 1595s [00:53:15.480] `[[` <- base::`[[` 1595s [00:53:15.480] `+` <- base::`+` 1595s [00:53:15.480] `<<-` <- base::`<<-` 1595s [00:53:15.480] sysCalls <- function(calls = sys.calls(), from = 1L) { 1595s [00:53:15.480] calls[seq.int(from = from + 12L, to = length(calls) - 1595s [00:53:15.480] 3L)] 1595s [00:53:15.480] } 1595s [00:53:15.480] function(cond) { 1595s [00:53:15.480] is_error <- inherits(cond, "error") 1595s [00:53:15.480] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1595s [00:53:15.480] NULL) 1595s [00:53:15.480] if (is_error) { 1595s [00:53:15.480] sessionInformation <- function() { 1595s [00:53:15.480] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1595s [00:53:15.480] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1595s [00:53:15.480] search = base::search(), system = base::Sys.info()) 1595s [00:53:15.480] } 1595s [00:53:15.480] ...future.conditions[[length(...future.conditions) + 1595s [00:53:15.480] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1595s [00:53:15.480] cond$call), session = sessionInformation(), 1595s [00:53:15.480] timestamp = base::Sys.time(), signaled = 0L) 1595s [00:53:15.480] signalCondition(cond) 1595s [00:53:15.480] } 1595s [00:53:15.480] else if (!ignore && TRUE && inherits(cond, c("condition", 1595s [00:53:15.480] "immediateCondition"))) { 1595s [00:53:15.480] signal <- TRUE && inherits(cond, "immediateCondition") 1595s [00:53:15.480] ...future.conditions[[length(...future.conditions) + 1595s [00:53:15.480] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1595s [00:53:15.480] if (TRUE && !signal) { 1595s [00:53:15.480] muffleCondition <- function (cond, pattern = "^muffle") 1595s [00:53:15.480] { 1595s [00:53:15.480] inherits <- base::inherits 1595s [00:53:15.480] invokeRestart <- base::invokeRestart 1595s [00:53:15.480] is.null <- base::is.null 1595s [00:53:15.480] muffled <- FALSE 1595s [00:53:15.480] if (inherits(cond, "message")) { 1595s [00:53:15.480] muffled <- grepl(pattern, "muffleMessage") 1595s [00:53:15.480] if (muffled) 1595s [00:53:15.480] invokeRestart("muffleMessage") 1595s [00:53:15.480] } 1595s [00:53:15.480] else if (inherits(cond, "warning")) { 1595s [00:53:15.480] muffled <- grepl(pattern, "muffleWarning") 1595s [00:53:15.480] if (muffled) 1595s [00:53:15.480] invokeRestart("muffleWarning") 1595s [00:53:15.480] } 1595s [00:53:15.480] else if (inherits(cond, "condition")) { 1595s [00:53:15.480] if (!is.null(pattern)) { 1595s [00:53:15.480] computeRestarts <- base::computeRestarts 1595s [00:53:15.480] grepl <- base::grepl 1595s [00:53:15.480] restarts <- computeRestarts(cond) 1595s [00:53:15.480] for (restart in restarts) { 1595s [00:53:15.480] name <- restart$name 1595s [00:53:15.480] if (is.null(name)) 1595s [00:53:15.480] next 1595s [00:53:15.480] if (!grepl(pattern, name)) 1595s [00:53:15.480] next 1595s [00:53:15.480] invokeRestart(restart) 1595s [00:53:15.480] muffled <- TRUE 1595s [00:53:15.480] break 1595s [00:53:15.480] } 1595s [00:53:15.480] } 1595s [00:53:15.480] } 1595s [00:53:15.480] invisible(muffled) 1595s [00:53:15.480] } 1595s [00:53:15.480] muffleCondition(cond, pattern = "^muffle") 1595s [00:53:15.480] } 1595s [00:53:15.480] } 1595s [00:53:15.480] else { 1595s [00:53:15.480] if (TRUE) { 1595s [00:53:15.480] muffleCondition <- function (cond, pattern = "^muffle") 1595s [00:53:15.480] { 1595s [00:53:15.480] inherits <- base::inherits 1595s [00:53:15.480] invokeRestart <- base::invokeRestart 1595s [00:53:15.480] is.null <- base::is.null 1595s [00:53:15.480] muffled <- FALSE 1595s [00:53:15.480] if (inherits(cond, "message")) { 1595s [00:53:15.480] muffled <- grepl(pattern, "muffleMessage") 1595s [00:53:15.480] if (muffled) 1595s [00:53:15.480] invokeRestart("muffleMessage") 1595s [00:53:15.480] } 1595s [00:53:15.480] else if (inherits(cond, "warning")) { 1595s [00:53:15.480] muffled <- grepl(pattern, "muffleWarning") 1595s [00:53:15.480] if (muffled) 1595s [00:53:15.480] invokeRestart("muffleWarning") 1595s [00:53:15.480] } 1595s [00:53:15.480] else if (inherits(cond, "condition")) { 1595s [00:53:15.480] if (!is.null(pattern)) { 1595s [00:53:15.480] computeRestarts <- base::computeRestarts 1595s [00:53:15.480] grepl <- base::grepl 1595s [00:53:15.480] restarts <- computeRestarts(cond) 1595s [00:53:15.480] for (restart in restarts) { 1595s [00:53:15.480] name <- restart$name 1595s [00:53:15.480] if (is.null(name)) 1595s [00:53:15.480] next 1595s [00:53:15.480] if (!grepl(pattern, name)) 1595s [00:53:15.480] next 1595s [00:53:15.480] invokeRestart(restart) 1595s [00:53:15.480] muffled <- TRUE 1595s [00:53:15.480] break 1595s [00:53:15.480] } 1595s [00:53:15.480] } 1595s [00:53:15.480] } 1595s [00:53:15.480] invisible(muffled) 1595s [00:53:15.480] } 1595s [00:53:15.480] muffleCondition(cond, pattern = "^muffle") 1595s [00:53:15.480] } 1595s [00:53:15.480] } 1595s [00:53:15.480] } 1595s [00:53:15.480] })) 1595s [00:53:15.480] }, error = function(ex) { 1595s [00:53:15.480] base::structure(base::list(value = NULL, visible = NULL, 1595s [00:53:15.480] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1595s [00:53:15.480] ...future.rng), started = ...future.startTime, 1595s [00:53:15.480] finished = Sys.time(), session_uuid = NA_character_, 1595s [00:53:15.480] version = "1.8"), class = "FutureResult") 1595s [00:53:15.480] }, finally = { 1595s [00:53:15.480] if (!identical(...future.workdir, getwd())) 1595s [00:53:15.480] setwd(...future.workdir) 1595s [00:53:15.480] { 1595s [00:53:15.480] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1595s [00:53:15.480] ...future.oldOptions$nwarnings <- NULL 1595s [00:53:15.480] } 1595s [00:53:15.480] base::options(...future.oldOptions) 1595s [00:53:15.480] if (.Platform$OS.type == "windows") { 1595s [00:53:15.480] old_names <- names(...future.oldEnvVars) 1595s [00:53:15.480] envs <- base::Sys.getenv() 1595s [00:53:15.480] names <- names(envs) 1595s [00:53:15.480] common <- intersect(names, old_names) 1595s [00:53:15.480] added <- setdiff(names, old_names) 1595s [00:53:15.480] removed <- setdiff(old_names, names) 1595s [00:53:15.480] changed <- common[...future.oldEnvVars[common] != 1595s [00:53:15.480] envs[common]] 1595s [00:53:15.480] NAMES <- toupper(changed) 1595s [00:53:15.480] args <- list() 1595s [00:53:15.480] for (kk in seq_along(NAMES)) { 1595s [00:53:15.480] name <- changed[[kk]] 1595s [00:53:15.480] NAME <- NAMES[[kk]] 1595s [00:53:15.480] if (name != NAME && is.element(NAME, old_names)) 1595s [00:53:15.480] next 1595s [00:53:15.480] args[[name]] <- ...future.oldEnvVars[[name]] 1595s [00:53:15.480] } 1595s [00:53:15.480] NAMES <- toupper(added) 1595s [00:53:15.480] for (kk in seq_along(NAMES)) { 1595s [00:53:15.480] name <- added[[kk]] 1595s [00:53:15.480] NAME <- NAMES[[kk]] 1595s [00:53:15.480] if (name != NAME && is.element(NAME, old_names)) 1595s [00:53:15.480] next 1595s [00:53:15.480] args[[name]] <- "" 1595s [00:53:15.480] } 1595s [00:53:15.480] NAMES <- toupper(removed) 1595s [00:53:15.480] for (kk in seq_along(NAMES)) { 1595s [00:53:15.480] name <- removed[[kk]] 1595s [00:53:15.480] NAME <- NAMES[[kk]] 1595s [00:53:15.480] if (name != NAME && is.element(NAME, old_names)) 1595s [00:53:15.480] next 1595s [00:53:15.480] args[[name]] <- ...future.oldEnvVars[[name]] 1595s [00:53:15.480] } 1595s [00:53:15.480] if (length(args) > 0) 1595s [00:53:15.480] base::do.call(base::Sys.setenv, args = args) 1595s [00:53:15.480] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1595s [00:53:15.480] } 1595s [00:53:15.480] else { 1595s [00:53:15.480] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1595s [00:53:15.480] } 1595s [00:53:15.480] { 1595s [00:53:15.480] if (base::length(...future.futureOptionsAdded) > 1595s [00:53:15.480] 0L) { 1595s [00:53:15.480] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1595s [00:53:15.480] base::names(opts) <- ...future.futureOptionsAdded 1595s [00:53:15.480] base::options(opts) 1595s [00:53:15.480] } 1595s [00:53:15.480] { 1595s [00:53:15.480] { 1595s [00:53:15.480] NULL 1595s [00:53:15.480] RNGkind("Mersenne-Twister") 1595s [00:53:15.480] base::rm(list = ".Random.seed", envir = base::globalenv(), 1595s [00:53:15.480] inherits = FALSE) 1595s [00:53:15.480] } 1595s [00:53:15.480] options(future.plan = NULL) 1595s [00:53:15.480] if (is.na(NA_character_)) 1595s [00:53:15.480] Sys.unsetenv("R_FUTURE_PLAN") 1595s [00:53:15.480] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1595s [00:53:15.480] future::plan(list(function (..., envir = parent.frame()) 1595s [00:53:15.480] { 1595s [00:53:15.480] future <- SequentialFuture(..., envir = envir) 1595s [00:53:15.480] if (!future$lazy) 1595s [00:53:15.480] future <- run(future) 1595s [00:53:15.480] invisible(future) 1595s [00:53:15.480] }), .cleanup = FALSE, .init = FALSE) 1595s [00:53:15.480] } 1595s [00:53:15.480] } 1595s [00:53:15.480] } 1595s [00:53:15.480] }) 1595s [00:53:15.480] if (TRUE) { 1595s [00:53:15.480] base::sink(type = "output", split = FALSE) 1595s [00:53:15.480] if (TRUE) { 1595s [00:53:15.480] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1595s [00:53:15.480] } 1595s [00:53:15.480] else { 1595s [00:53:15.480] ...future.result["stdout"] <- base::list(NULL) 1595s [00:53:15.480] } 1595s [00:53:15.480] base::close(...future.stdout) 1595s [00:53:15.480] ...future.stdout <- NULL 1595s [00:53:15.480] } 1595s [00:53:15.480] ...future.result$conditions <- ...future.conditions 1595s [00:53:15.480] ...future.result$finished <- base::Sys.time() 1595s [00:53:15.480] ...future.result 1595s [00:53:15.480] } 1595s [00:53:15.483] assign_globals() ... 1595s [00:53:15.483] List of 5 1595s [00:53:15.483] $ ...future.FUN :function (x, y) 1595s [00:53:15.483] $ MoreArgs : NULL 1595s [00:53:15.483] $ ...future.elements_ii :List of 2 1595s [00:53:15.483] ..$ :List of 2 1595s [00:53:15.483] .. ..$ : int 1 1595s [00:53:15.483] .. ..$ : int 0 1595s [00:53:15.483] ..$ :List of 2 1595s [00:53:15.483] .. ..$ : int 0 1595s [00:53:15.483] .. ..$ : int 1 1595s [00:53:15.483] $ ...future.seeds_ii : NULL 1595s [00:53:15.483] $ ...future.globals.maxSize: NULL 1595s [00:53:15.483] - attr(*, "where")=List of 5 1595s [00:53:15.483] ..$ ...future.FUN : 1595s [00:53:15.483] ..$ MoreArgs : 1595s [00:53:15.483] ..$ ...future.elements_ii : 1595s [00:53:15.483] ..$ ...future.seeds_ii : 1595s [00:53:15.483] ..$ ...future.globals.maxSize: 1595s [00:53:15.483] - attr(*, "resolved")= logi FALSE 1595s [00:53:15.483] - attr(*, "total_size")= num 6480 1595s [00:53:15.483] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1595s [00:53:15.483] - attr(*, "already-done")= logi TRUE 1595s [00:53:15.491] - reassign environment for ‘...future.FUN’ 1595s [00:53:15.492] - copied ‘...future.FUN’ to environment 1595s [00:53:15.492] - copied ‘MoreArgs’ to environment 1595s [00:53:15.492] - copied ‘...future.elements_ii’ to environment 1595s [00:53:15.492] - copied ‘...future.seeds_ii’ to environment 1595s [00:53:15.492] - copied ‘...future.globals.maxSize’ to environment 1595s [00:53:15.493] assign_globals() ... done 1595s [00:53:15.493] plan(): Setting new future strategy stack: 1595s [00:53:15.493] List of future strategies: 1595s [00:53:15.493] 1. sequential: 1595s [00:53:15.493] - args: function (..., envir = parent.frame()) 1595s [00:53:15.493] - tweaked: FALSE 1595s [00:53:15.493] - call: NULL 1595s [00:53:15.494] plan(): nbrOfWorkers() = 1 1596s [00:53:15.996] plan(): Setting new future strategy stack: 1596s [00:53:15.996] List of future strategies: 1596s [00:53:15.996] 1. sequential: 1596s [00:53:15.996] - args: function (..., envir = parent.frame()) 1596s [00:53:15.996] - tweaked: FALSE 1596s [00:53:15.996] - call: plan(strategy) 1596s [00:53:15.997] plan(): nbrOfWorkers() = 1 1596s [00:53:16.000] SequentialFuture started (and completed) 1596s [00:53:16.001] - Launch lazy future ... done 1596s [00:53:16.001] run() for ‘SequentialFuture’ ... done 1596s [00:53:16.001] Created future: 1596s [00:53:16.001] SequentialFuture: 1596s [00:53:16.001] Label: ‘future_mapply-1’ 1596s [00:53:16.001] Expression: 1596s [00:53:16.001] { 1596s [00:53:16.001] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1596s [00:53:16.001] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1596s [00:53:16.001] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1596s [00:53:16.001] on.exit(options(oopts), add = TRUE) 1596s [00:53:16.001] } 1596s [00:53:16.001] { 1596s [00:53:16.001] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1596s [00:53:16.001] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1596s [00:53:16.001] do.call(mapply, args = args) 1596s [00:53:16.001] } 1596s [00:53:16.001] } 1596s [00:53:16.001] Lazy evaluation: FALSE 1596s [00:53:16.001] Asynchronous evaluation: FALSE 1596s [00:53:16.001] Local evaluation: TRUE 1596s [00:53:16.001] Environment: R_GlobalEnv 1596s [00:53:16.001] Capture standard output: TRUE 1596s [00:53:16.001] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1596s [00:53:16.001] Globals: 5 objects totaling 6.33 KiB (function ‘...future.FUN’ of 6.11 KiB, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1596s [00:53:16.001] Packages: 1596s [00:53:16.001] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1596s [00:53:16.001] Resolved: TRUE 1596s [00:53:16.001] Value: 224 bytes of class ‘list’ 1596s [00:53:16.001] Early signaling: FALSE 1596s [00:53:16.001] Owner process: aef6b2cf-a7ff-4166-a7a6-2b6e1e64c3ba 1596s [00:53:16.001] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1596s [00:53:16.003] Chunk #1 of 1 ... DONE 1596s [00:53:16.003] Launching 1 futures (chunks) ... DONE 1596s [00:53:16.003] Resolving 1 futures (chunks) ... 1596s [00:53:16.004] resolve() on list ... 1596s [00:53:16.004] recursive: 0 1596s [00:53:16.004] length: 1 1596s [00:53:16.004] 1596s [00:53:16.004] resolved() for ‘SequentialFuture’ ... 1596s [00:53:16.004] - state: ‘finished’ 1596s [00:53:16.005] - run: TRUE 1596s [00:53:16.005] - result: ‘FutureResult’ 1596s [00:53:16.005] resolved() for ‘SequentialFuture’ ... done 1596s [00:53:16.005] Future #1 1596s [00:53:16.005] signalConditionsASAP(SequentialFuture, pos=1) ... 1596s [00:53:16.006] - nx: 1 1596s [00:53:16.006] - relay: TRUE 1596s [00:53:16.006] - stdout: TRUE 1596s [00:53:16.006] - signal: TRUE 1596s [00:53:16.006] - resignal: FALSE 1596s [00:53:16.006] - force: TRUE 1596s [00:53:16.007] - relayed: [n=1] FALSE 1596s [00:53:16.007] - queued futures: [n=1] FALSE 1596s [00:53:16.007] - until=1 1596s [00:53:16.007] - relaying element #1 1596s [00:53:16.007] - relayed: [n=1] TRUE 1596s [00:53:16.007] - queued futures: [n=1] TRUE 1596s [00:53:16.008] signalConditionsASAP(SequentialFuture, pos=1) ... done 1596s [00:53:16.008] length: 0 (resolved future 1) 1596s [00:53:16.008] Relaying remaining futures 1596s [00:53:16.008] signalConditionsASAP(NULL, pos=0) ... 1596s [00:53:16.008] - nx: 1 1596s [00:53:16.008] - relay: TRUE 1596s [00:53:16.009] - stdout: TRUE 1596s [00:53:16.009] - signal: TRUE 1596s [00:53:16.009] - resignal: FALSE 1596s [00:53:16.009] - force: TRUE 1596s [00:53:16.009] - relayed: [n=1] TRUE 1596s [00:53:16.009] - queued futures: [n=1] TRUE 1596s - flush all 1596s [00:53:16.010] - relayed: [n=1] TRUE 1596s [00:53:16.010] - queued futures: [n=1] TRUE 1596s [00:53:16.010] signalConditionsASAP(NULL, pos=0) ... done 1596s [00:53:16.010] resolve() on list ... DONE 1596s [00:53:16.010] - Number of value chunks collected: 1 1596s [00:53:16.010] Resolving 1 futures (chunks) ... DONE 1596s [00:53:16.011] Reducing values from 1 chunks ... 1596s [00:53:16.011] - Number of values collected after concatenation: 2 1596s [00:53:16.011] - Number of values expected: 2 1596s [00:53:16.011] Reducing values from 1 chunks ... DONE 1596s [00:53:16.011] future_mapply() ... DONE 1596s * future_mapply(x, ..., future.stdout = TRUE) ... DONE 1596s * future_mapply(x, ..., future.stdout = NA) ... 1596s [00:53:16.012] future_mapply() ... 1596s [00:53:16.012] Number of chunks: 1 1596s [00:53:16.012] getGlobalsAndPackagesXApply() ... 1596s [00:53:16.012] - future.globals: TRUE 1596s [00:53:16.013] getGlobalsAndPackages() ... 1596s [00:53:16.013] Searching for globals... 1596s [00:53:16.015] - globals found: [6] ‘FUN’, ‘{’, ‘Sys.sleep’, ‘/’, ‘print’, ‘list’ 1596s [00:53:16.016] Searching for globals ... DONE 1596s [00:53:16.016] Resolving globals: FALSE 1596s [00:53:16.016] The total size of the 1 globals is 6.11 KiB (6256 bytes) 1596s [00:53:16.017] The total size of the 1 globals exported for future expression (‘FUN()’) is 6.11 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (6.11 KiB of class ‘function’) 1596s [00:53:16.017] - globals: [1] ‘FUN’ 1596s [00:53:16.017] 1596s [00:53:16.017] getGlobalsAndPackages() ... DONE 1596s [00:53:16.018] - globals found/used: [n=1] ‘FUN’ 1596s [00:53:16.018] - needed namespaces: [n=0] 1596s [00:53:16.018] Finding globals ... DONE 1596s [00:53:16.018] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1596s [00:53:16.018] List of 2 1596s [00:53:16.018] $ ...future.FUN:function (x, y) 1596s [00:53:16.018] $ MoreArgs : NULL 1596s [00:53:16.018] - attr(*, "where")=List of 2 1596s [00:53:16.018] ..$ ...future.FUN: 1596s [00:53:16.018] ..$ MoreArgs : 1596s [00:53:16.018] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1596s [00:53:16.018] - attr(*, "resolved")= logi FALSE 1596s [00:53:16.018] - attr(*, "total_size")= num NA 1596s [00:53:16.022] Packages to be attached in all futures: [n=0] 1596s [00:53:16.022] getGlobalsAndPackagesXApply() ... DONE 1596s [00:53:16.022] Number of futures (= number of chunks): 1 1596s [00:53:16.022] Launching 1 futures (chunks) ... 1596s [00:53:16.023] Chunk #1 of 1 ... 1596s [00:53:16.023] - Finding globals in '...' for chunk #1 ... 1596s [00:53:16.023] getGlobalsAndPackages() ... 1596s [00:53:16.023] Searching for globals... 1596s [00:53:16.024] 1596s [00:53:16.024] Searching for globals ... DONE 1596s [00:53:16.024] - globals: [0] 1596s [00:53:16.024] getGlobalsAndPackages() ... DONE 1596s [00:53:16.024] + additional globals found: [n=0] 1596s [00:53:16.024] + additional namespaces needed: [n=0] 1596s [00:53:16.025] - Finding globals in '...' for chunk #1 ... DONE 1596s [00:53:16.025] - seeds: 1596s [00:53:16.025] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1596s [00:53:16.025] getGlobalsAndPackages() ... 1596s [00:53:16.026] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1596s [00:53:16.026] Resolving globals: FALSE 1596s [00:53:16.027] The total size of the 5 globals is 6.33 KiB (6480 bytes) 1596s [00:53:16.028] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 6.33 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (6.11 KiB of class ‘function’), ‘...future.elements_ii’ (224 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1596s [00:53:16.028] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1596s [00:53:16.028] 1596s [00:53:16.029] getGlobalsAndPackages() ... DONE 1596s [00:53:16.029] run() for ‘Future’ ... 1596s [00:53:16.029] - state: ‘created’ 1596s [00:53:16.030] - Future backend: ‘FutureStrategy’, ‘sequential’, ‘uniprocess’, ‘future’, ‘function’ 1596s [00:53:16.030] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1596s [00:53:16.030] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1596s [00:53:16.031] - Field: ‘label’ 1596s [00:53:16.031] - Field: ‘local’ 1596s [00:53:16.031] - Field: ‘owner’ 1596s [00:53:16.031] - Field: ‘envir’ 1596s [00:53:16.032] - Field: ‘packages’ 1596s [00:53:16.032] - Field: ‘gc’ 1596s [00:53:16.032] - Field: ‘conditions’ 1596s [00:53:16.032] - Field: ‘expr’ 1596s [00:53:16.032] - Field: ‘uuid’ 1596s [00:53:16.032] - Field: ‘seed’ 1596s [00:53:16.033] - Field: ‘version’ 1596s [00:53:16.033] - Field: ‘result’ 1596s [00:53:16.033] - Field: ‘asynchronous’ 1596s [00:53:16.033] - Field: ‘calls’ 1596s [00:53:16.033] - Field: ‘globals’ 1596s [00:53:16.033] - Field: ‘stdout’ 1596s [00:53:16.033] - Field: ‘earlySignal’ 1596s [00:53:16.034] - Field: ‘lazy’ 1596s [00:53:16.034] - Field: ‘state’ 1596s [00:53:16.034] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1596s [00:53:16.034] - Launch lazy future ... 1596s [00:53:16.034] Packages needed by the future expression (n = 0): 1596s [00:53:16.034] Packages needed by future strategies (n = 0): 1596s [00:53:16.035] { 1596s [00:53:16.035] { 1596s [00:53:16.035] { 1596s [00:53:16.035] ...future.startTime <- base::Sys.time() 1596s [00:53:16.035] { 1596s [00:53:16.035] { 1596s [00:53:16.035] { 1596s [00:53:16.035] base::local({ 1596s [00:53:16.035] has_future <- base::requireNamespace("future", 1596s [00:53:16.035] quietly = TRUE) 1596s [00:53:16.035] if (has_future) { 1596s [00:53:16.035] ns <- base::getNamespace("future") 1596s [00:53:16.035] version <- ns[[".package"]][["version"]] 1596s [00:53:16.035] if (is.null(version)) 1596s [00:53:16.035] version <- utils::packageVersion("future") 1596s [00:53:16.035] } 1596s [00:53:16.035] else { 1596s [00:53:16.035] version <- NULL 1596s [00:53:16.035] } 1596s [00:53:16.035] if (!has_future || version < "1.8.0") { 1596s [00:53:16.035] info <- base::c(r_version = base::gsub("R version ", 1596s [00:53:16.035] "", base::R.version$version.string), 1596s [00:53:16.035] platform = base::sprintf("%s (%s-bit)", 1596s [00:53:16.035] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1596s [00:53:16.035] os = base::paste(base::Sys.info()[base::c("sysname", 1596s [00:53:16.035] "release", "version")], collapse = " "), 1596s [00:53:16.035] hostname = base::Sys.info()[["nodename"]]) 1596s [00:53:16.035] info <- base::sprintf("%s: %s", base::names(info), 1596s [00:53:16.035] info) 1596s [00:53:16.035] info <- base::paste(info, collapse = "; ") 1596s [00:53:16.035] if (!has_future) { 1596s [00:53:16.035] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1596s [00:53:16.035] info) 1596s [00:53:16.035] } 1596s [00:53:16.035] else { 1596s [00:53:16.035] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1596s [00:53:16.035] info, version) 1596s [00:53:16.035] } 1596s [00:53:16.035] base::stop(msg) 1596s [00:53:16.035] } 1596s [00:53:16.035] }) 1596s [00:53:16.035] } 1596s [00:53:16.035] options(future.plan = NULL) 1596s [00:53:16.035] Sys.unsetenv("R_FUTURE_PLAN") 1596s [00:53:16.035] future::plan("default", .cleanup = FALSE, .init = FALSE) 1596s [00:53:16.035] } 1596s [00:53:16.035] ...future.workdir <- getwd() 1596s [00:53:16.035] } 1596s [00:53:16.035] ...future.oldOptions <- base::as.list(base::.Options) 1596s [00:53:16.035] ...future.oldEnvVars <- base::Sys.getenv() 1596s [00:53:16.035] } 1596s [00:53:16.035] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1596s [00:53:16.035] future.globals.maxSize = NULL, future.globals.method = NULL, 1596s [00:53:16.035] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1596s [00:53:16.035] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1596s [00:53:16.035] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1596s [00:53:16.035] future.stdout.windows.reencode = NULL, width = 80L) 1596s [00:53:16.035] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1596s [00:53:16.035] base::names(...future.oldOptions)) 1596s [00:53:16.035] } 1596s [00:53:16.035] if (TRUE) { 1596s [00:53:16.035] } 1596s [00:53:16.035] else { 1596s [00:53:16.035] if (NA) { 1596s [00:53:16.035] ...future.stdout <- base::rawConnection(base::raw(0L), 1596s [00:53:16.035] open = "w") 1596s [00:53:16.035] } 1596s [00:53:16.035] else { 1596s [00:53:16.035] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1596s [00:53:16.035] windows = "NUL", "/dev/null"), open = "w") 1596s [00:53:16.035] } 1596s [00:53:16.035] base::sink(...future.stdout, type = "output", split = FALSE) 1596s [00:53:16.035] base::on.exit(if (!base::is.null(...future.stdout)) { 1596s [00:53:16.035] base::sink(type = "output", split = FALSE) 1596s [00:53:16.035] base::close(...future.stdout) 1596s [00:53:16.035] }, add = TRUE) 1596s [00:53:16.035] } 1596s [00:53:16.035] ...future.frame <- base::sys.nframe() 1596s [00:53:16.035] ...future.conditions <- base::list() 1596s [00:53:16.035] ...future.rng <- base::globalenv()$.Random.seed 1596s [00:53:16.035] if (FALSE) { 1596s [00:53:16.035] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1596s [00:53:16.035] "...future.value", "...future.globalenv.names", ".Random.seed") 1596s [00:53:16.035] } 1596s [00:53:16.035] ...future.result <- base::tryCatch({ 1596s [00:53:16.035] base::withCallingHandlers({ 1596s [00:53:16.035] ...future.value <- base::withVisible(base::local({ 1596s [00:53:16.035] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1596s [00:53:16.035] if (!identical(...future.globals.maxSize.org, 1596s [00:53:16.035] ...future.globals.maxSize)) { 1596s [00:53:16.035] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1596s [00:53:16.035] on.exit(options(oopts), add = TRUE) 1596s [00:53:16.035] } 1596s [00:53:16.035] { 1596s [00:53:16.035] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1596s [00:53:16.035] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1596s [00:53:16.035] USE.NAMES = FALSE) 1596s [00:53:16.035] do.call(mapply, args = args) 1596s [00:53:16.035] } 1596s [00:53:16.035] })) 1596s [00:53:16.035] future::FutureResult(value = ...future.value$value, 1596s [00:53:16.035] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1596s [00:53:16.035] ...future.rng), globalenv = if (FALSE) 1596s [00:53:16.035] list(added = base::setdiff(base::names(base::.GlobalEnv), 1596s [00:53:16.035] ...future.globalenv.names)) 1596s [00:53:16.035] else NULL, started = ...future.startTime, version = "1.8") 1596s [00:53:16.035] }, condition = base::local({ 1596s [00:53:16.035] c <- base::c 1596s [00:53:16.035] inherits <- base::inherits 1596s [00:53:16.035] invokeRestart <- base::invokeRestart 1596s [00:53:16.035] length <- base::length 1596s [00:53:16.035] list <- base::list 1596s [00:53:16.035] seq.int <- base::seq.int 1596s [00:53:16.035] signalCondition <- base::signalCondition 1596s [00:53:16.035] sys.calls <- base::sys.calls 1596s [00:53:16.035] `[[` <- base::`[[` 1596s [00:53:16.035] `+` <- base::`+` 1596s [00:53:16.035] `<<-` <- base::`<<-` 1596s [00:53:16.035] sysCalls <- function(calls = sys.calls(), from = 1L) { 1596s [00:53:16.035] calls[seq.int(from = from + 12L, to = length(calls) - 1596s [00:53:16.035] 3L)] 1596s [00:53:16.035] } 1596s [00:53:16.035] function(cond) { 1596s [00:53:16.035] is_error <- inherits(cond, "error") 1596s [00:53:16.035] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1596s [00:53:16.035] NULL) 1596s [00:53:16.035] if (is_error) { 1596s [00:53:16.035] sessionInformation <- function() { 1596s [00:53:16.035] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1596s [00:53:16.035] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1596s [00:53:16.035] search = base::search(), system = base::Sys.info()) 1596s [00:53:16.035] } 1596s [00:53:16.035] ...future.conditions[[length(...future.conditions) + 1596s [00:53:16.035] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1596s [00:53:16.035] cond$call), session = sessionInformation(), 1596s [00:53:16.035] timestamp = base::Sys.time(), signaled = 0L) 1596s [00:53:16.035] signalCondition(cond) 1596s [00:53:16.035] } 1596s [00:53:16.035] else if (!ignore && TRUE && inherits(cond, c("condition", 1596s [00:53:16.035] "immediateCondition"))) { 1596s [00:53:16.035] signal <- TRUE && inherits(cond, "immediateCondition") 1596s [00:53:16.035] ...future.conditions[[length(...future.conditions) + 1596s [00:53:16.035] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1596s [00:53:16.035] if (TRUE && !signal) { 1596s [00:53:16.035] muffleCondition <- function (cond, pattern = "^muffle") 1596s [00:53:16.035] { 1596s [00:53:16.035] inherits <- base::inherits 1596s [00:53:16.035] invokeRestart <- base::invokeRestart 1596s [00:53:16.035] is.null <- base::is.null 1596s [00:53:16.035] muffled <- FALSE 1596s [00:53:16.035] if (inherits(cond, "message")) { 1596s [00:53:16.035] muffled <- grepl(pattern, "muffleMessage") 1596s [00:53:16.035] if (muffled) 1596s [00:53:16.035] invokeRestart("muffleMessage") 1596s [00:53:16.035] } 1596s [00:53:16.035] else if (inherits(cond, "warning")) { 1596s [00:53:16.035] muffled <- grepl(pattern, "muffleWarning") 1596s [00:53:16.035] if (muffled) 1596s [00:53:16.035] invokeRestart("muffleWarning") 1596s [00:53:16.035] } 1596s [00:53:16.035] else if (inherits(cond, "condition")) { 1596s [00:53:16.035] if (!is.null(pattern)) { 1596s [00:53:16.035] computeRestarts <- base::computeRestarts 1596s [00:53:16.035] grepl <- base::grepl 1596s [00:53:16.035] restarts <- computeRestarts(cond) 1596s [00:53:16.035] for (restart in restarts) { 1596s [00:53:16.035] name <- restart$name 1596s [00:53:16.035] if (is.null(name)) 1596s [00:53:16.035] next 1596s [00:53:16.035] if (!grepl(pattern, name)) 1596s [00:53:16.035] next 1596s [00:53:16.035] invokeRestart(restart) 1596s [00:53:16.035] muffled <- TRUE 1596s [00:53:16.035] break 1596s [00:53:16.035] } 1596s [00:53:16.035] } 1596s [00:53:16.035] } 1596s [00:53:16.035] invisible(muffled) 1596s [00:53:16.035] } 1596s [00:53:16.035] muffleCondition(cond, pattern = "^muffle") 1596s [00:53:16.035] } 1596s [00:53:16.035] } 1596s [00:53:16.035] else { 1596s [00:53:16.035] if (TRUE) { 1596s [00:53:16.035] muffleCondition <- function (cond, pattern = "^muffle") 1596s [00:53:16.035] { 1596s [00:53:16.035] inherits <- base::inherits 1596s [00:53:16.035] invokeRestart <- base::invokeRestart 1596s [00:53:16.035] is.null <- base::is.null 1596s [00:53:16.035] muffled <- FALSE 1596s [00:53:16.035] if (inherits(cond, "message")) { 1596s [00:53:16.035] muffled <- grepl(pattern, "muffleMessage") 1596s [00:53:16.035] if (muffled) 1596s [00:53:16.035] invokeRestart("muffleMessage") 1596s [00:53:16.035] } 1596s [00:53:16.035] else if (inherits(cond, "warning")) { 1596s [00:53:16.035] muffled <- grepl(pattern, "muffleWarning") 1596s [00:53:16.035] if (muffled) 1596s [00:53:16.035] invokeRestart("muffleWarning") 1596s [00:53:16.035] } 1596s [00:53:16.035] else if (inherits(cond, "condition")) { 1596s [00:53:16.035] if (!is.null(pattern)) { 1596s [00:53:16.035] computeRestarts <- base::computeRestarts 1596s [00:53:16.035] grepl <- base::grepl 1596s [00:53:16.035] restarts <- computeRestarts(cond) 1596s [00:53:16.035] for (restart in restarts) { 1596s [00:53:16.035] name <- restart$name 1596s [00:53:16.035] if (is.null(name)) 1596s [00:53:16.035] next 1596s [00:53:16.035] if (!grepl(pattern, name)) 1596s [00:53:16.035] next 1596s [00:53:16.035] invokeRestart(restart) 1596s [00:53:16.035] muffled <- TRUE 1596s [00:53:16.035] break 1596s [00:53:16.035] } 1596s [00:53:16.035] } 1596s [00:53:16.035] } 1596s [00:53:16.035] invisible(muffled) 1596s [00:53:16.035] } 1596s [00:53:16.035] muffleCondition(cond, pattern = "^muffle") 1596s [00:53:16.035] } 1596s [00:53:16.035] } 1596s [00:53:16.035] } 1596s [00:53:16.035] })) 1596s [00:53:16.035] }, error = function(ex) { 1596s [00:53:16.035] base::structure(base::list(value = NULL, visible = NULL, 1596s [00:53:16.035] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1596s [00:53:16.035] ...future.rng), started = ...future.startTime, 1596s [00:53:16.035] finished = Sys.time(), session_uuid = NA_character_, 1596s [00:53:16.035] version = "1.8"), class = "FutureResult") 1596s [00:53:16.035] }, finally = { 1596s [00:53:16.035] if (!identical(...future.workdir, getwd())) 1596s [00:53:16.035] setwd(...future.workdir) 1596s [00:53:16.035] { 1596s [00:53:16.035] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1596s [00:53:16.035] ...future.oldOptions$nwarnings <- NULL 1596s [00:53:16.035] } 1596s [00:53:16.035] base::options(...future.oldOptions) 1596s [00:53:16.035] if (.Platform$OS.type == "windows") { 1596s [00:53:16.035] old_names <- names(...future.oldEnvVars) 1596s [00:53:16.035] envs <- base::Sys.getenv() 1596s [00:53:16.035] names <- names(envs) 1596s [00:53:16.035] common <- intersect(names, old_names) 1596s [00:53:16.035] added <- setdiff(names, old_names) 1596s [00:53:16.035] removed <- setdiff(old_names, names) 1596s [00:53:16.035] changed <- common[...future.oldEnvVars[common] != 1596s [00:53:16.035] envs[common]] 1596s [00:53:16.035] NAMES <- toupper(changed) 1596s [00:53:16.035] args <- list() 1596s [00:53:16.035] for (kk in seq_along(NAMES)) { 1596s [00:53:16.035] name <- changed[[kk]] 1596s [00:53:16.035] NAME <- NAMES[[kk]] 1596s [00:53:16.035] if (name != NAME && is.element(NAME, old_names)) 1596s [00:53:16.035] next 1596s [00:53:16.035] args[[name]] <- ...future.oldEnvVars[[name]] 1596s [00:53:16.035] } 1596s [00:53:16.035] NAMES <- toupper(added) 1596s [00:53:16.035] for (kk in seq_along(NAMES)) { 1596s [00:53:16.035] name <- added[[kk]] 1596s [00:53:16.035] NAME <- NAMES[[kk]] 1596s [00:53:16.035] if (name != NAME && is.element(NAME, old_names)) 1596s [00:53:16.035] next 1596s [00:53:16.035] args[[name]] <- "" 1596s [00:53:16.035] } 1596s [00:53:16.035] NAMES <- toupper(removed) 1596s [00:53:16.035] for (kk in seq_along(NAMES)) { 1596s [00:53:16.035] name <- removed[[kk]] 1596s [00:53:16.035] NAME <- NAMES[[kk]] 1596s [00:53:16.035] if (name != NAME && is.element(NAME, old_names)) 1596s [00:53:16.035] next 1596s [00:53:16.035] args[[name]] <- ...future.oldEnvVars[[name]] 1596s [00:53:16.035] } 1596s [00:53:16.035] if (length(args) > 0) 1596s [00:53:16.035] base::do.call(base::Sys.setenv, args = args) 1596s [00:53:16.035] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1596s [00:53:16.035] } 1596s [00:53:16.035] else { 1596s [00:53:16.035] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1596s [00:53:16.035] } 1596s [00:53:16.035] { 1596s [00:53:16.035] if (base::length(...future.futureOptionsAdded) > 1596s [00:53:16.035] 0L) { 1596s [00:53:16.035] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1596s [00:53:16.035] base::names(opts) <- ...future.futureOptionsAdded 1596s [00:53:16.035] base::options(opts) 1596s [00:53:16.035] } 1596s [00:53:16.035] { 1596s [00:53:16.035] { 1596s [00:53:16.035] NULL 1596s [00:53:16.035] RNGkind("Mersenne-Twister") 1596s [00:53:16.035] base::rm(list = ".Random.seed", envir = base::globalenv(), 1596s [00:53:16.035] inherits = FALSE) 1596s [00:53:16.035] } 1596s [00:53:16.035] options(future.plan = NULL) 1596s [00:53:16.035] if (is.na(NA_character_)) 1596s [00:53:16.035] Sys.unsetenv("R_FUTURE_PLAN") 1596s [00:53:16.035] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1596s [00:53:16.035] future::plan(list(function (..., envir = parent.frame()) 1596s [00:53:16.035] { 1596s [00:53:16.035] future <- SequentialFuture(..., envir = envir) 1596s [00:53:16.035] if (!future$lazy) 1596s [00:53:16.035] future <- run(future) 1596s [00:53:16.035] invisible(future) 1596s [00:53:16.035] }), .cleanup = FALSE, .init = FALSE) 1596s [00:53:16.035] } 1596s [00:53:16.035] } 1596s [00:53:16.035] } 1596s [00:53:16.035] }) 1596s [00:53:16.035] if (FALSE) { 1596s [00:53:16.035] base::sink(type = "output", split = FALSE) 1596s [00:53:16.035] if (NA) { 1596s [00:53:16.035] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1596s [00:53:16.035] } 1596s [00:53:16.035] else { 1596s [00:53:16.035] ...future.result["stdout"] <- base::list(NULL) 1596s [00:53:16.035] } 1596s [00:53:16.035] base::close(...future.stdout) 1596s [00:53:16.035] ...future.stdout <- NULL 1596s [00:53:16.035] } 1596s [00:53:16.035] ...future.result$conditions <- ...future.conditions 1596s [00:53:16.035] ...future.result$finished <- base::Sys.time() 1596s [00:53:16.035] ...future.result 1596s [00:53:16.035] } 1596s [00:53:16.038] assign_globals() ... 1596s [00:53:16.038] List of 5 1596s [00:53:16.038] $ ...future.FUN :function (x, y) 1596s [00:53:16.038] $ MoreArgs : NULL 1596s [00:53:16.038] $ ...future.elements_ii :List of 2 1596s [00:53:16.038] ..$ :List of 2 1596s [00:53:16.038] .. ..$ : int 1 1596s [00:53:16.038] .. ..$ : int 0 1596s [00:53:16.038] ..$ :List of 2 1596s [00:53:16.038] .. ..$ : int 0 1596s [00:53:16.038] .. ..$ : int 1 1596s [00:53:16.038] $ ...future.seeds_ii : NULL 1596s [00:53:16.038] $ ...future.globals.maxSize: NULL 1596s [00:53:16.038] - attr(*, "where")=List of 5 1596s [00:53:16.038] ..$ ...future.FUN : 1596s [00:53:16.038] ..$ MoreArgs : 1596s [00:53:16.038] ..$ ...future.elements_ii : 1596s [00:53:16.038] ..$ ...future.seeds_ii : 1596s [00:53:16.038] ..$ ...future.globals.maxSize: 1596s [00:53:16.038] - attr(*, "resolved")= logi FALSE 1596s [00:53:16.038] - attr(*, "total_size")= num 6480 1596s [00:53:16.038] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1596s [00:53:16.038] - attr(*, "already-done")= logi TRUE 1596s [00:53:16.047] - reassign environment for ‘...future.FUN’ 1596s [00:53:16.047] - copied ‘...future.FUN’ to environment 1596s [00:53:16.047] - copied ‘MoreArgs’ to environment 1596s [00:53:16.047] - copied ‘...future.elements_ii’ to environment 1596s [00:53:16.047] - copied ‘...future.seeds_ii’ to environment 1596s [00:53:16.048] - copied ‘...future.globals.maxSize’ to environment 1596s [00:53:16.048] assign_globals() ... done 1596s [00:53:16.048] plan(): Setting new future strategy stack: 1596s [00:53:16.048] List of future strategies: 1596s [00:53:16.048] 1. sequential: 1596s [00:53:16.048] - args: function (..., envir = parent.frame()) 1596s [00:53:16.048] - tweaked: FALSE 1596s [00:53:16.048] - call: NULL 1596s [00:53:16.049] plan(): nbrOfWorkers() = 1 1596s [00:53:16.551] plan(): Setting new future strategy stack: 1596s [00:53:16.551] List of future strategies: 1596s [00:53:16.551] 1. sequential: 1596s [00:53:16.551] - args: function (..., envir = parent.frame()) 1596s [00:53:16.551] - tweaked: FALSE 1596s [00:53:16.551] - call: plan(strategy) 1596s [00:53:16.552] plan(): nbrOfWorkers() = 1 1596s [00:53:16.552] SequentialFuture started (and completed) 1596s [00:53:16.552] - Launch lazy future ... done 1596s [00:53:16.552] run() for ‘SequentialFuture’ ... done 1596s [00:53:16.553] Created future: 1596s [00:53:16.553] SequentialFuture: 1596s [00:53:16.553] Label: ‘future_mapply-1’ 1596s [00:53:16.553] Expression: 1596s [00:53:16.553] { 1596s [00:53:16.553] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1596s [00:53:16.553] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1596s [00:53:16.553] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1596s [00:53:16.553] on.exit(options(oopts), add = TRUE) 1596s [00:53:16.553] } 1596s [00:53:16.553] { 1596s [00:53:16.553] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1596s [00:53:16.553] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1596s [00:53:16.553] do.call(mapply, args = args) 1596s [00:53:16.553] } 1596s [00:53:16.553] } 1596s [00:53:16.553] Lazy evaluation: FALSE 1596s [00:53:16.553] Asynchronous evaluation: FALSE 1596s [00:53:16.553] Local evaluation: TRUE 1596s [00:53:16.553] Environment: R_GlobalEnv 1596s [00:53:16.553] Capture standard output: NA 1596s [00:53:16.553] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1596s [00:53:16.553] Globals: 5 objects totaling 6.33 KiB (function ‘...future.FUN’ of 6.11 KiB, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1596s [00:53:16.553] Packages: 1596s [00:53:16.553] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1596s [00:53:16.553] Resolved: TRUE 1596s [00:53:16.553] Value: 224 bytes of class ‘list’ 1596s [00:53:16.553] Early signaling: FALSE 1596s [00:53:16.553] Owner process: aef6b2cf-a7ff-4166-a7a6-2b6e1e64c3ba 1596s [00:53:16.553] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1596s [00:53:16.555] Chunk #1 of 1 ... DONE 1596s [00:53:16.555] Launching 1 futures (chunks) ... DONE 1596s [00:53:16.555] Resolving 1 futures (chunks) ... 1596s [00:53:16.555] resolve() on list ... 1596s [00:53:16.555] recursive: 0 1596s [00:53:16.555] length: 1 1596s [00:53:16.556] 1596s [00:53:16.556] resolved() for ‘SequentialFuture’ ... 1596s [00:53:16.556] - state: ‘finished’ 1596s [00:53:16.556] - run: TRUE 1596s [00:53:16.556] - result: ‘FutureResult’ 1596s [00:53:16.556] resolved() for ‘SequentialFuture’ ... done 1596s [00:53:16.556] Future #1 1596s [00:53:16.557] signalConditionsASAP(SequentialFuture, pos=1) ... 1596s [00:53:16.557] - nx: 1 1596s [00:53:16.557] - relay: TRUE 1596s [00:53:16.557] - stdout: TRUE 1596s [00:53:16.557] - signal: TRUE 1596s [00:53:16.557] - resignal: FALSE 1596s [00:53:16.558] - force: TRUE 1596s [00:53:16.558] - relayed: [n=1] FALSE 1596s [00:53:16.558] - queued futures: [n=1] FALSE 1596s [00:53:16.558] - until=1 1596s [00:53:16.558] - relaying element #1 1596s [00:53:16.559] - relayed: [n=1] TRUE 1596s [00:53:16.559] - queued futures: [n=1] TRUE 1596s [00:53:16.559] signalConditionsASAP(SequentialFuture, pos=1) ... done 1596s [00:53:16.559] length: 0 (resolved future 1) 1596s [00:53:16.559] Relaying remaining futures 1596s [00:53:16.559] signalConditionsASAP(NULL, pos=0) ... 1596s [00:53:16.560] - nx: 1 1596s [00:53:16.560] - relay: TRUE 1596s [00:53:16.560] - stdout: TRUE 1596s [00:53:16.560] - signal: TRUE 1596s [00:53:16.560] - resignal: FALSE 1596s [00:53:16.560] - force: TRUE 1596s [00:53:16.560] - relayed: [n=1] TRUE 1596s [00:53:16.561] - queued futures: [n=1] TRUE 1596s - flush all 1596s [00:53:16.561] - relayed: [n=1] TRUE 1596s [00:53:16.561] - queued futures: [n=1] TRUE 1596s [00:53:16.561] signalConditionsASAP(NULL, pos=0) ... done 1596s [00:53:16.561] resolve() on list ... DONE 1596s [00:53:16.562] - Number of value chunks collected: 1 1596s [00:53:16.562] Resolving 1 futures (chunks) ... DONE 1596s [00:53:16.562] Reducing values from 1 chunks ... 1596s [00:53:16.562] - Number of values collected after concatenation: 2 1596s [00:53:16.563] - Number of values expected: 2 1596s [00:53:16.563] Reducing values from 1 chunks ... DONE 1596s [00:53:16.563] future_mapply() ... DONE 1596s * future_mapply(x, ..., future.stdout = NA) ... DONE 1596s * plan('sequential') ... DONE 1596s * plan('multicore') ... 1596s [00:53:16.564] plan(): Setting new future strategy stack: 1596s [00:53:16.564] List of future strategies: 1596s [00:53:16.564] 1. multicore: 1596s [00:53:16.564] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1596s [00:53:16.564] - tweaked: FALSE 1596s [00:53:16.564] - call: plan(strategy) 1596s [00:53:16.569] plan(): nbrOfWorkers() = 1 1596s * future_lapply(x, ..., future.stdout = FALSE) ... 1596s [00:53:16.569] future_lapply() ... 1596s [00:53:16.574] Number of chunks: 1 1596s [00:53:16.574] getGlobalsAndPackagesXApply() ... 1596s [00:53:16.574] - future.globals: TRUE 1596s [00:53:16.574] getGlobalsAndPackages() ... 1596s [00:53:16.574] Searching for globals... 1596s [00:53:16.576] - globals found: [5] ‘FUN’, ‘{’, ‘Sys.sleep’, ‘/’, ‘print’ 1596s [00:53:16.577] Searching for globals ... DONE 1596s [00:53:16.577] Resolving globals: FALSE 1596s [00:53:16.577] The total size of the 1 globals is 4.61 KiB (4720 bytes) 1596s [00:53:16.578] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.61 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.61 KiB of class ‘function’) 1596s [00:53:16.578] - globals: [1] ‘FUN’ 1596s [00:53:16.578] 1596s [00:53:16.578] getGlobalsAndPackages() ... DONE 1596s [00:53:16.579] - globals found/used: [n=1] ‘FUN’ 1596s [00:53:16.579] - needed namespaces: [n=0] 1596s [00:53:16.579] Finding globals ... DONE 1596s [00:53:16.579] - use_args: TRUE 1596s [00:53:16.579] - Getting '...' globals ... 1596s [00:53:16.580] resolve() on list ... 1596s [00:53:16.580] recursive: 0 1596s [00:53:16.580] length: 1 1596s [00:53:16.580] elements: ‘...’ 1596s [00:53:16.580] length: 0 (resolved future 1) 1596s [00:53:16.581] resolve() on list ... DONE 1596s [00:53:16.581] - '...' content: [n=0] 1596s [00:53:16.581] List of 1 1596s [00:53:16.581] $ ...: list() 1596s [00:53:16.581] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1596s [00:53:16.581] - attr(*, "where")=List of 1 1596s [00:53:16.581] ..$ ...: 1596s [00:53:16.581] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1596s [00:53:16.581] - attr(*, "resolved")= logi TRUE 1596s [00:53:16.581] - attr(*, "total_size")= num NA 1596s [00:53:16.587] - Getting '...' globals ... DONE 1596s [00:53:16.587] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1596s [00:53:16.588] List of 2 1596s [00:53:16.588] $ ...future.FUN:function (x) 1596s [00:53:16.588] $ ... : list() 1596s [00:53:16.588] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1596s [00:53:16.588] - attr(*, "where")=List of 2 1596s [00:53:16.588] ..$ ...future.FUN: 1596s [00:53:16.588] ..$ ... : 1596s [00:53:16.588] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1596s [00:53:16.588] - attr(*, "resolved")= logi FALSE 1596s [00:53:16.588] - attr(*, "total_size")= num 4720 1596s [00:53:16.591] Packages to be attached in all futures: [n=0] 1596s [00:53:16.591] getGlobalsAndPackagesXApply() ... DONE 1596s [00:53:16.592] Number of futures (= number of chunks): 1 1596s [00:53:16.592] Launching 1 futures (chunks) ... 1596s [00:53:16.592] Chunk #1 of 1 ... 1596s [00:53:16.592] - Finding globals in 'X' for chunk #1 ... 1596s [00:53:16.592] getGlobalsAndPackages() ... 1596s [00:53:16.593] Searching for globals... 1596s [00:53:16.593] 1596s [00:53:16.593] Searching for globals ... DONE 1596s [00:53:16.593] - globals: [0] 1596s [00:53:16.593] getGlobalsAndPackages() ... DONE 1596s [00:53:16.594] + additional globals found: [n=0] 1596s [00:53:16.594] + additional namespaces needed: [n=0] 1596s [00:53:16.594] - Finding globals in 'X' for chunk #1 ... DONE 1596s [00:53:16.594] - seeds: 1596s [00:53:16.594] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1596s [00:53:16.594] getGlobalsAndPackages() ... 1596s [00:53:16.595] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1596s [00:53:16.595] Resolving globals: FALSE 1596s [00:53:16.595] Tweak future expression to call with '...' arguments ... 1596s [00:53:16.595] { 1596s [00:53:16.595] do.call(function(...) { 1596s [00:53:16.595] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1596s [00:53:16.595] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1596s [00:53:16.595] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1596s [00:53:16.595] on.exit(options(oopts), add = TRUE) 1596s [00:53:16.595] } 1596s [00:53:16.595] { 1596s [00:53:16.595] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1596s [00:53:16.595] ...future.X_jj <- ...future.elements_ii[[jj]] 1596s [00:53:16.595] ...future.FUN(...future.X_jj, ...) 1596s [00:53:16.595] }) 1596s [00:53:16.595] } 1596s [00:53:16.595] }, args = future.call.arguments) 1596s [00:53:16.595] } 1596s [00:53:16.596] Tweak future expression to call with '...' arguments ... DONE 1596s [00:53:16.596] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1596s [00:53:16.596] 1596s [00:53:16.596] getGlobalsAndPackages() ... DONE 1596s [00:53:16.597] run() for ‘Future’ ... 1596s [00:53:16.597] - state: ‘created’ 1596s [00:53:16.597] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1596s [00:53:16.600] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1596s [00:53:16.601] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1596s [00:53:16.601] - Field: ‘label’ 1596s [00:53:16.601] - Field: ‘local’ 1596s [00:53:16.601] - Field: ‘owner’ 1596s [00:53:16.601] - Field: ‘envir’ 1596s [00:53:16.601] - Field: ‘packages’ 1596s [00:53:16.601] - Field: ‘gc’ 1596s [00:53:16.602] - Field: ‘conditions’ 1596s [00:53:16.602] - Field: ‘expr’ 1596s [00:53:16.602] - Field: ‘uuid’ 1596s [00:53:16.602] - Field: ‘seed’ 1596s [00:53:16.602] - Field: ‘version’ 1596s [00:53:16.602] - Field: ‘result’ 1596s [00:53:16.603] - Field: ‘asynchronous’ 1596s [00:53:16.603] - Field: ‘calls’ 1596s [00:53:16.603] - Field: ‘globals’ 1596s [00:53:16.603] - Field: ‘stdout’ 1596s [00:53:16.603] - Field: ‘earlySignal’ 1596s [00:53:16.603] - Field: ‘lazy’ 1596s [00:53:16.603] - Field: ‘state’ 1596s [00:53:16.604] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1596s [00:53:16.604] - Launch lazy future ... 1596s [00:53:16.604] Packages needed by the future expression (n = 0): 1596s [00:53:16.604] Packages needed by future strategies (n = 0): 1596s [00:53:16.605] { 1596s [00:53:16.605] { 1596s [00:53:16.605] { 1596s [00:53:16.605] ...future.startTime <- base::Sys.time() 1596s [00:53:16.605] { 1596s [00:53:16.605] { 1596s [00:53:16.605] { 1596s [00:53:16.605] base::local({ 1596s [00:53:16.605] has_future <- base::requireNamespace("future", 1596s [00:53:16.605] quietly = TRUE) 1596s [00:53:16.605] if (has_future) { 1596s [00:53:16.605] ns <- base::getNamespace("future") 1596s [00:53:16.605] version <- ns[[".package"]][["version"]] 1596s [00:53:16.605] if (is.null(version)) 1596s [00:53:16.605] version <- utils::packageVersion("future") 1596s [00:53:16.605] } 1596s [00:53:16.605] else { 1596s [00:53:16.605] version <- NULL 1596s [00:53:16.605] } 1596s [00:53:16.605] if (!has_future || version < "1.8.0") { 1596s [00:53:16.605] info <- base::c(r_version = base::gsub("R version ", 1596s [00:53:16.605] "", base::R.version$version.string), 1596s [00:53:16.605] platform = base::sprintf("%s (%s-bit)", 1596s [00:53:16.605] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1596s [00:53:16.605] os = base::paste(base::Sys.info()[base::c("sysname", 1596s [00:53:16.605] "release", "version")], collapse = " "), 1596s [00:53:16.605] hostname = base::Sys.info()[["nodename"]]) 1596s [00:53:16.605] info <- base::sprintf("%s: %s", base::names(info), 1596s [00:53:16.605] info) 1596s [00:53:16.605] info <- base::paste(info, collapse = "; ") 1596s [00:53:16.605] if (!has_future) { 1596s [00:53:16.605] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1596s [00:53:16.605] info) 1596s [00:53:16.605] } 1596s [00:53:16.605] else { 1596s [00:53:16.605] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1596s [00:53:16.605] info, version) 1596s [00:53:16.605] } 1596s [00:53:16.605] base::stop(msg) 1596s [00:53:16.605] } 1596s [00:53:16.605] }) 1596s [00:53:16.605] } 1596s [00:53:16.605] options(future.plan = NULL) 1596s [00:53:16.605] Sys.unsetenv("R_FUTURE_PLAN") 1596s [00:53:16.605] future::plan("default", .cleanup = FALSE, .init = FALSE) 1596s [00:53:16.605] } 1596s [00:53:16.605] ...future.workdir <- getwd() 1596s [00:53:16.605] } 1596s [00:53:16.605] ...future.oldOptions <- base::as.list(base::.Options) 1596s [00:53:16.605] ...future.oldEnvVars <- base::Sys.getenv() 1596s [00:53:16.605] } 1596s [00:53:16.605] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1596s [00:53:16.605] future.globals.maxSize = NULL, future.globals.method = NULL, 1596s [00:53:16.605] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1596s [00:53:16.605] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1596s [00:53:16.605] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1596s [00:53:16.605] future.stdout.windows.reencode = NULL, width = 80L) 1596s [00:53:16.605] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1596s [00:53:16.605] base::names(...future.oldOptions)) 1596s [00:53:16.605] } 1596s [00:53:16.605] if (FALSE) { 1596s [00:53:16.605] } 1596s [00:53:16.605] else { 1596s [00:53:16.605] if (FALSE) { 1596s [00:53:16.605] ...future.stdout <- base::rawConnection(base::raw(0L), 1596s [00:53:16.605] open = "w") 1596s [00:53:16.605] } 1596s [00:53:16.605] else { 1596s [00:53:16.605] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1596s [00:53:16.605] windows = "NUL", "/dev/null"), open = "w") 1596s [00:53:16.605] } 1596s [00:53:16.605] base::sink(...future.stdout, type = "output", split = FALSE) 1596s [00:53:16.605] base::on.exit(if (!base::is.null(...future.stdout)) { 1596s [00:53:16.605] base::sink(type = "output", split = FALSE) 1596s [00:53:16.605] base::close(...future.stdout) 1596s [00:53:16.605] }, add = TRUE) 1596s [00:53:16.605] } 1596s [00:53:16.605] ...future.frame <- base::sys.nframe() 1596s [00:53:16.605] ...future.conditions <- base::list() 1596s [00:53:16.605] ...future.rng <- base::globalenv()$.Random.seed 1596s [00:53:16.605] if (FALSE) { 1596s [00:53:16.605] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1596s [00:53:16.605] "...future.value", "...future.globalenv.names", ".Random.seed") 1596s [00:53:16.605] } 1596s [00:53:16.605] ...future.result <- base::tryCatch({ 1596s [00:53:16.605] base::withCallingHandlers({ 1596s [00:53:16.605] ...future.value <- base::withVisible(base::local({ 1596s [00:53:16.605] do.call(function(...) { 1596s [00:53:16.605] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1596s [00:53:16.605] if (!identical(...future.globals.maxSize.org, 1596s [00:53:16.605] ...future.globals.maxSize)) { 1596s [00:53:16.605] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1596s [00:53:16.605] on.exit(options(oopts), add = TRUE) 1596s [00:53:16.605] } 1596s [00:53:16.605] { 1596s [00:53:16.605] lapply(seq_along(...future.elements_ii), 1596s [00:53:16.605] FUN = function(jj) { 1596s [00:53:16.605] ...future.X_jj <- ...future.elements_ii[[jj]] 1596s [00:53:16.605] ...future.FUN(...future.X_jj, ...) 1596s [00:53:16.605] }) 1596s [00:53:16.605] } 1596s [00:53:16.605] }, args = future.call.arguments) 1596s [00:53:16.605] })) 1596s [00:53:16.605] future::FutureResult(value = ...future.value$value, 1596s [00:53:16.605] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1596s [00:53:16.605] ...future.rng), globalenv = if (FALSE) 1596s [00:53:16.605] list(added = base::setdiff(base::names(base::.GlobalEnv), 1596s [00:53:16.605] ...future.globalenv.names)) 1596s [00:53:16.605] else NULL, started = ...future.startTime, version = "1.8") 1596s [00:53:16.605] }, condition = base::local({ 1596s [00:53:16.605] c <- base::c 1596s [00:53:16.605] inherits <- base::inherits 1596s [00:53:16.605] invokeRestart <- base::invokeRestart 1596s [00:53:16.605] length <- base::length 1596s [00:53:16.605] list <- base::list 1596s [00:53:16.605] seq.int <- base::seq.int 1596s [00:53:16.605] signalCondition <- base::signalCondition 1596s [00:53:16.605] sys.calls <- base::sys.calls 1596s [00:53:16.605] `[[` <- base::`[[` 1596s [00:53:16.605] `+` <- base::`+` 1596s [00:53:16.605] `<<-` <- base::`<<-` 1596s [00:53:16.605] sysCalls <- function(calls = sys.calls(), from = 1L) { 1596s [00:53:16.605] calls[seq.int(from = from + 12L, to = length(calls) - 1596s [00:53:16.605] 3L)] 1596s [00:53:16.605] } 1596s [00:53:16.605] function(cond) { 1596s [00:53:16.605] is_error <- inherits(cond, "error") 1596s [00:53:16.605] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1596s [00:53:16.605] NULL) 1596s [00:53:16.605] if (is_error) { 1596s [00:53:16.605] sessionInformation <- function() { 1596s [00:53:16.605] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1596s [00:53:16.605] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1596s [00:53:16.605] search = base::search(), system = base::Sys.info()) 1596s [00:53:16.605] } 1596s [00:53:16.605] ...future.conditions[[length(...future.conditions) + 1596s [00:53:16.605] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1596s [00:53:16.605] cond$call), session = sessionInformation(), 1596s [00:53:16.605] timestamp = base::Sys.time(), signaled = 0L) 1596s [00:53:16.605] signalCondition(cond) 1596s [00:53:16.605] } 1596s [00:53:16.605] else if (!ignore && TRUE && inherits(cond, c("condition", 1596s [00:53:16.605] "immediateCondition"))) { 1596s [00:53:16.605] signal <- TRUE && inherits(cond, "immediateCondition") 1596s [00:53:16.605] ...future.conditions[[length(...future.conditions) + 1596s [00:53:16.605] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1596s [00:53:16.605] if (TRUE && !signal) { 1596s [00:53:16.605] muffleCondition <- function (cond, pattern = "^muffle") 1596s [00:53:16.605] { 1596s [00:53:16.605] inherits <- base::inherits 1596s [00:53:16.605] invokeRestart <- base::invokeRestart 1596s [00:53:16.605] is.null <- base::is.null 1596s [00:53:16.605] muffled <- FALSE 1596s [00:53:16.605] if (inherits(cond, "message")) { 1596s [00:53:16.605] muffled <- grepl(pattern, "muffleMessage") 1596s [00:53:16.605] if (muffled) 1596s [00:53:16.605] invokeRestart("muffleMessage") 1596s [00:53:16.605] } 1596s [00:53:16.605] else if (inherits(cond, "warning")) { 1596s [00:53:16.605] muffled <- grepl(pattern, "muffleWarning") 1596s [00:53:16.605] if (muffled) 1596s [00:53:16.605] invokeRestart("muffleWarning") 1596s [00:53:16.605] } 1596s [00:53:16.605] else if (inherits(cond, "condition")) { 1596s [00:53:16.605] if (!is.null(pattern)) { 1596s [00:53:16.605] computeRestarts <- base::computeRestarts 1596s [00:53:16.605] grepl <- base::grepl 1596s [00:53:16.605] restarts <- computeRestarts(cond) 1596s [00:53:16.605] for (restart in restarts) { 1596s [00:53:16.605] name <- restart$name 1596s [00:53:16.605] if (is.null(name)) 1596s [00:53:16.605] next 1596s [00:53:16.605] if (!grepl(pattern, name)) 1596s [00:53:16.605] next 1596s [00:53:16.605] invokeRestart(restart) 1596s [00:53:16.605] muffled <- TRUE 1596s [00:53:16.605] break 1596s [00:53:16.605] } 1596s [00:53:16.605] } 1596s [00:53:16.605] } 1596s [00:53:16.605] invisible(muffled) 1596s [00:53:16.605] } 1596s [00:53:16.605] muffleCondition(cond, pattern = "^muffle") 1596s [00:53:16.605] } 1596s [00:53:16.605] } 1596s [00:53:16.605] else { 1596s [00:53:16.605] if (TRUE) { 1596s [00:53:16.605] muffleCondition <- function (cond, pattern = "^muffle") 1596s [00:53:16.605] { 1596s [00:53:16.605] inherits <- base::inherits 1596s [00:53:16.605] invokeRestart <- base::invokeRestart 1596s [00:53:16.605] is.null <- base::is.null 1596s [00:53:16.605] muffled <- FALSE 1596s [00:53:16.605] if (inherits(cond, "message")) { 1596s [00:53:16.605] muffled <- grepl(pattern, "muffleMessage") 1596s [00:53:16.605] if (muffled) 1596s [00:53:16.605] invokeRestart("muffleMessage") 1596s [00:53:16.605] } 1596s [00:53:16.605] else if (inherits(cond, "warning")) { 1596s [00:53:16.605] muffled <- grepl(pattern, "muffleWarning") 1596s [00:53:16.605] if (muffled) 1596s [00:53:16.605] invokeRestart("muffleWarning") 1596s [00:53:16.605] } 1596s [00:53:16.605] else if (inherits(cond, "condition")) { 1596s [00:53:16.605] if (!is.null(pattern)) { 1596s [00:53:16.605] computeRestarts <- base::computeRestarts 1596s [00:53:16.605] grepl <- base::grepl 1596s [00:53:16.605] restarts <- computeRestarts(cond) 1596s [00:53:16.605] for (restart in restarts) { 1596s [00:53:16.605] name <- restart$name 1596s [00:53:16.605] if (is.null(name)) 1596s [00:53:16.605] next 1596s [00:53:16.605] if (!grepl(pattern, name)) 1596s [00:53:16.605] next 1596s [00:53:16.605] invokeRestart(restart) 1596s [00:53:16.605] muffled <- TRUE 1596s [00:53:16.605] break 1596s [00:53:16.605] } 1596s [00:53:16.605] } 1596s [00:53:16.605] } 1596s [00:53:16.605] invisible(muffled) 1596s [00:53:16.605] } 1596s [00:53:16.605] muffleCondition(cond, pattern = "^muffle") 1596s [00:53:16.605] } 1596s [00:53:16.605] } 1596s [00:53:16.605] } 1596s [00:53:16.605] })) 1596s [00:53:16.605] }, error = function(ex) { 1596s [00:53:16.605] base::structure(base::list(value = NULL, visible = NULL, 1596s [00:53:16.605] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1596s [00:53:16.605] ...future.rng), started = ...future.startTime, 1596s [00:53:16.605] finished = Sys.time(), session_uuid = NA_character_, 1596s [00:53:16.605] version = "1.8"), class = "FutureResult") 1596s [00:53:16.605] }, finally = { 1596s [00:53:16.605] if (!identical(...future.workdir, getwd())) 1596s [00:53:16.605] setwd(...future.workdir) 1596s [00:53:16.605] { 1596s [00:53:16.605] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1596s [00:53:16.605] ...future.oldOptions$nwarnings <- NULL 1596s [00:53:16.605] } 1596s [00:53:16.605] base::options(...future.oldOptions) 1596s [00:53:16.605] if (.Platform$OS.type == "windows") { 1596s [00:53:16.605] old_names <- names(...future.oldEnvVars) 1596s [00:53:16.605] envs <- base::Sys.getenv() 1596s [00:53:16.605] names <- names(envs) 1596s [00:53:16.605] common <- intersect(names, old_names) 1596s [00:53:16.605] added <- setdiff(names, old_names) 1596s [00:53:16.605] removed <- setdiff(old_names, names) 1596s [00:53:16.605] changed <- common[...future.oldEnvVars[common] != 1596s [00:53:16.605] envs[common]] 1596s [00:53:16.605] NAMES <- toupper(changed) 1596s [00:53:16.605] args <- list() 1596s [00:53:16.605] for (kk in seq_along(NAMES)) { 1596s [00:53:16.605] name <- changed[[kk]] 1596s [00:53:16.605] NAME <- NAMES[[kk]] 1596s [00:53:16.605] if (name != NAME && is.element(NAME, old_names)) 1596s [00:53:16.605] next 1596s [00:53:16.605] args[[name]] <- ...future.oldEnvVars[[name]] 1596s [00:53:16.605] } 1596s [00:53:16.605] NAMES <- toupper(added) 1596s [00:53:16.605] for (kk in seq_along(NAMES)) { 1596s [00:53:16.605] name <- added[[kk]] 1596s [00:53:16.605] NAME <- NAMES[[kk]] 1596s [00:53:16.605] if (name != NAME && is.element(NAME, old_names)) 1596s [00:53:16.605] next 1596s [00:53:16.605] args[[name]] <- "" 1596s [00:53:16.605] } 1596s [00:53:16.605] NAMES <- toupper(removed) 1596s [00:53:16.605] for (kk in seq_along(NAMES)) { 1596s [00:53:16.605] name <- removed[[kk]] 1596s [00:53:16.605] NAME <- NAMES[[kk]] 1596s [00:53:16.605] if (name != NAME && is.element(NAME, old_names)) 1596s [00:53:16.605] next 1596s [00:53:16.605] args[[name]] <- ...future.oldEnvVars[[name]] 1596s [00:53:16.605] } 1596s [00:53:16.605] if (length(args) > 0) 1596s [00:53:16.605] base::do.call(base::Sys.setenv, args = args) 1596s [00:53:16.605] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1596s [00:53:16.605] } 1596s [00:53:16.605] else { 1596s [00:53:16.605] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1596s [00:53:16.605] } 1596s [00:53:16.605] { 1596s [00:53:16.605] if (base::length(...future.futureOptionsAdded) > 1596s [00:53:16.605] 0L) { 1596s [00:53:16.605] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1596s [00:53:16.605] base::names(opts) <- ...future.futureOptionsAdded 1596s [00:53:16.605] base::options(opts) 1596s [00:53:16.605] } 1596s [00:53:16.605] { 1596s [00:53:16.605] { 1596s [00:53:16.605] NULL 1596s [00:53:16.605] RNGkind("Mersenne-Twister") 1596s [00:53:16.605] base::rm(list = ".Random.seed", envir = base::globalenv(), 1596s [00:53:16.605] inherits = FALSE) 1596s [00:53:16.605] } 1596s [00:53:16.605] options(future.plan = NULL) 1596s [00:53:16.605] if (is.na(NA_character_)) 1596s [00:53:16.605] Sys.unsetenv("R_FUTURE_PLAN") 1596s [00:53:16.605] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1596s [00:53:16.605] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1596s [00:53:16.605] envir = parent.frame()) 1596s [00:53:16.605] { 1596s [00:53:16.605] default_workers <- missing(workers) 1596s [00:53:16.605] if (is.function(workers)) 1596s [00:53:16.605] workers <- workers() 1596s [00:53:16.605] workers <- structure(as.integer(workers), 1596s [00:53:16.605] class = class(workers)) 1596s [00:53:16.605] stop_if_not(is.finite(workers), workers >= 1596s [00:53:16.605] 1L) 1596s [00:53:16.605] if ((workers == 1L && !inherits(workers, 1596s [00:53:16.605] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1596s [00:53:16.605] if (default_workers) 1596s [00:53:16.605] supportsMulticore(warn = TRUE) 1596s [00:53:16.605] return(sequential(..., envir = envir)) 1596s [00:53:16.605] } 1596s [00:53:16.605] oopts <- options(mc.cores = workers) 1596s [00:53:16.605] on.exit(options(oopts)) 1596s [00:53:16.605] future <- MulticoreFuture(..., workers = workers, 1596s [00:53:16.605] envir = envir) 1596s [00:53:16.605] if (!future$lazy) 1596s [00:53:16.605] future <- run(future) 1596s [00:53:16.605] invisible(future) 1596s [00:53:16.605] }), .cleanup = FALSE, .init = FALSE) 1596s [00:53:16.605] } 1596s [00:53:16.605] } 1596s [00:53:16.605] } 1596s [00:53:16.605] }) 1596s [00:53:16.605] if (TRUE) { 1596s [00:53:16.605] base::sink(type = "output", split = FALSE) 1596s [00:53:16.605] if (FALSE) { 1596s [00:53:16.605] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1596s [00:53:16.605] } 1596s [00:53:16.605] else { 1596s [00:53:16.605] ...future.result["stdout"] <- base::list(NULL) 1596s [00:53:16.605] } 1596s [00:53:16.605] base::close(...future.stdout) 1596s [00:53:16.605] ...future.stdout <- NULL 1596s [00:53:16.605] } 1596s [00:53:16.605] ...future.result$conditions <- ...future.conditions 1596s [00:53:16.605] ...future.result$finished <- base::Sys.time() 1596s [00:53:16.605] ...future.result 1596s [00:53:16.605] } 1596s [00:53:16.609] assign_globals() ... 1596s [00:53:16.609] List of 5 1596s [00:53:16.609] $ ...future.FUN :function (x) 1596s [00:53:16.609] $ future.call.arguments : list() 1596s [00:53:16.609] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1596s [00:53:16.609] $ ...future.elements_ii :List of 2 1596s [00:53:16.609] ..$ : int 1 1596s [00:53:16.609] ..$ : int 0 1596s [00:53:16.609] $ ...future.seeds_ii : NULL 1596s [00:53:16.609] $ ...future.globals.maxSize: NULL 1596s [00:53:16.609] - attr(*, "where")=List of 5 1596s [00:53:16.609] ..$ ...future.FUN : 1596s [00:53:16.609] ..$ future.call.arguments : 1596s [00:53:16.609] ..$ ...future.elements_ii : 1596s [00:53:16.609] ..$ ...future.seeds_ii : 1596s [00:53:16.609] ..$ ...future.globals.maxSize: 1596s [00:53:16.609] - attr(*, "resolved")= logi FALSE 1596s [00:53:16.609] - attr(*, "total_size")= num 4720 1596s [00:53:16.609] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1596s [00:53:16.609] - attr(*, "already-done")= logi TRUE 1596s [00:53:16.615] - reassign environment for ‘...future.FUN’ 1596s [00:53:16.616] - copied ‘...future.FUN’ to environment 1596s [00:53:16.616] - copied ‘future.call.arguments’ to environment 1596s [00:53:16.616] - copied ‘...future.elements_ii’ to environment 1596s [00:53:16.616] - copied ‘...future.seeds_ii’ to environment 1596s [00:53:16.616] - copied ‘...future.globals.maxSize’ to environment 1596s [00:53:16.616] assign_globals() ... done 1596s [00:53:16.617] plan(): Setting new future strategy stack: 1596s [00:53:16.617] List of future strategies: 1596s [00:53:16.617] 1. sequential: 1596s [00:53:16.617] - args: function (..., envir = parent.frame()) 1596s [00:53:16.617] - tweaked: FALSE 1596s [00:53:16.617] - call: NULL 1596s [00:53:16.617] plan(): nbrOfWorkers() = 1 1597s [00:53:17.119] plan(): Setting new future strategy stack: 1597s [00:53:17.120] List of future strategies: 1597s [00:53:17.120] 1. multicore: 1597s [00:53:17.120] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1597s [00:53:17.120] - tweaked: FALSE 1597s [00:53:17.120] - call: plan(strategy) 1597s [00:53:17.125] plan(): nbrOfWorkers() = 1 1597s [00:53:17.125] SequentialFuture started (and completed) 1597s [00:53:17.125] - Launch lazy future ... done 1597s [00:53:17.126] run() for ‘SequentialFuture’ ... done 1597s [00:53:17.126] Created future: 1597s [00:53:17.126] SequentialFuture: 1597s [00:53:17.126] Label: ‘future_lapply-1’ 1597s [00:53:17.126] Expression: 1597s [00:53:17.126] { 1597s [00:53:17.126] do.call(function(...) { 1597s [00:53:17.126] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1597s [00:53:17.126] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1597s [00:53:17.126] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1597s [00:53:17.126] on.exit(options(oopts), add = TRUE) 1597s [00:53:17.126] } 1597s [00:53:17.126] { 1597s [00:53:17.126] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1597s [00:53:17.126] ...future.X_jj <- ...future.elements_ii[[jj]] 1597s [00:53:17.126] ...future.FUN(...future.X_jj, ...) 1597s [00:53:17.126] }) 1597s [00:53:17.126] } 1597s [00:53:17.126] }, args = future.call.arguments) 1597s [00:53:17.126] } 1597s [00:53:17.126] Lazy evaluation: FALSE 1597s [00:53:17.126] Asynchronous evaluation: FALSE 1597s [00:53:17.126] Local evaluation: TRUE 1597s [00:53:17.126] Environment: R_GlobalEnv 1597s [00:53:17.126] Capture standard output: FALSE 1597s [00:53:17.126] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1597s [00:53:17.126] Globals: 5 objects totaling 4.72 KiB (function ‘...future.FUN’ of 4.61 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1597s [00:53:17.126] Packages: 1597s [00:53:17.126] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1597s [00:53:17.126] Resolved: TRUE 1597s [00:53:17.126] Value: 112 bytes of class ‘list’ 1597s [00:53:17.126] Early signaling: FALSE 1597s [00:53:17.126] Owner process: aef6b2cf-a7ff-4166-a7a6-2b6e1e64c3ba 1597s [00:53:17.126] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1597s [00:53:17.127] Chunk #1 of 1 ... DONE 1597s [00:53:17.128] Launching 1 futures (chunks) ... DONE 1597s [00:53:17.128] Resolving 1 futures (chunks) ... 1597s [00:53:17.128] resolve() on list ... 1597s [00:53:17.128] recursive: 0 1597s [00:53:17.128] length: 1 1597s [00:53:17.128] 1597s [00:53:17.128] resolved() for ‘SequentialFuture’ ... 1597s [00:53:17.128] - state: ‘finished’ 1597s [00:53:17.132] - run: TRUE 1597s [00:53:17.132] - result: ‘FutureResult’ 1597s [00:53:17.132] resolved() for ‘SequentialFuture’ ... done 1597s [00:53:17.133] Future #1 1597s [00:53:17.133] signalConditionsASAP(SequentialFuture, pos=1) ... 1597s [00:53:17.133] - nx: 1 1597s [00:53:17.134] - relay: TRUE 1597s [00:53:17.134] - stdout: TRUE 1597s [00:53:17.134] - signal: TRUE 1597s [00:53:17.134] - resignal: FALSE 1597s [00:53:17.134] - force: TRUE 1597s [00:53:17.134] - relayed: [n=1] FALSE 1597s [00:53:17.135] - queued futures: [n=1] FALSE 1597s [00:53:17.135] - until=1 1597s [00:53:17.135] - relaying element #1 1597s [00:53:17.135] - relayed: [n=1] TRUE 1597s [00:53:17.135] - queued futures: [n=1] TRUE 1597s [00:53:17.136] signalConditionsASAP(SequentialFuture, pos=1) ... done 1597s [00:53:17.136] length: 0 (resolved future 1) 1597s [00:53:17.136] Relaying remaining futures 1597s [00:53:17.136] signalConditionsASAP(NULL, pos=0) ... 1597s [00:53:17.136] - nx: 1 1597s [00:53:17.136] - relay: TRUE 1597s [00:53:17.137] - stdout: TRUE 1597s [00:53:17.137] - signal: TRUE 1597s [00:53:17.137] - resignal: FALSE 1597s [00:53:17.137] - force: TRUE 1597s [00:53:17.137] - relayed: [n=1] TRUE 1597s [00:53:17.137] - queued futures: [n=1] TRUE 1597s - flush all 1597s [00:53:17.138] - relayed: [n=1] TRUE 1597s [00:53:17.138] - queued futures: [n=1] TRUE 1597s [00:53:17.138] signalConditionsASAP(NULL, pos=0) ... done 1597s [00:53:17.138] resolve() on list ... DONE 1597s [00:53:17.138] - Number of value chunks collected: 1 1597s [00:53:17.138] Resolving 1 futures (chunks) ... DONE 1597s [00:53:17.139] Reducing values from 1 chunks ... 1597s [00:53:17.139] - Number of values collected after concatenation: 2 1597s [00:53:17.139] - Number of values expected: 2 1597s [00:53:17.139] Reducing values from 1 chunks ... DONE 1597s [00:53:17.139] future_lapply() ... DONE 1597s * future_lapply(x, ..., future.stdout = FALSE) ... DONE 1597s * future_lapply(x, ..., future.stdout = TRUE) ... 1597s [00:53:17.140] future_lapply() ... 1597s [00:53:17.145] Number of chunks: 1 1597s [00:53:17.145] getGlobalsAndPackagesXApply() ... 1597s [00:53:17.145] - future.globals: TRUE 1597s [00:53:17.145] getGlobalsAndPackages() ... 1597s [00:53:17.145] Searching for globals... 1597s [00:53:17.147] - globals found: [5] ‘FUN’, ‘{’, ‘Sys.sleep’, ‘/’, ‘print’ 1597s [00:53:17.147] Searching for globals ... DONE 1597s [00:53:17.148] Resolving globals: FALSE 1597s [00:53:17.149] The total size of the 1 globals is 4.61 KiB (4720 bytes) 1597s [00:53:17.149] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.61 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.61 KiB of class ‘function’) 1597s [00:53:17.149] - globals: [1] ‘FUN’ 1597s [00:53:17.149] 1597s [00:53:17.150] getGlobalsAndPackages() ... DONE 1597s [00:53:17.150] - globals found/used: [n=1] ‘FUN’ 1597s [00:53:17.150] - needed namespaces: [n=0] 1597s [00:53:17.150] Finding globals ... DONE 1597s [00:53:17.150] - use_args: TRUE 1597s [00:53:17.150] - Getting '...' globals ... 1597s [00:53:17.151] resolve() on list ... 1597s [00:53:17.151] recursive: 0 1597s [00:53:17.151] length: 1 1597s [00:53:17.151] elements: ‘...’ 1597s [00:53:17.151] length: 0 (resolved future 1) 1597s [00:53:17.151] resolve() on list ... DONE 1597s [00:53:17.151] - '...' content: [n=0] 1597s [00:53:17.152] List of 1 1597s [00:53:17.152] $ ...: list() 1597s [00:53:17.152] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1597s [00:53:17.152] - attr(*, "where")=List of 1 1597s [00:53:17.152] ..$ ...: 1597s [00:53:17.152] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1597s [00:53:17.152] - attr(*, "resolved")= logi TRUE 1597s [00:53:17.152] - attr(*, "total_size")= num NA 1597s [00:53:17.156] - Getting '...' globals ... DONE 1597s [00:53:17.156] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1597s [00:53:17.156] List of 2 1597s [00:53:17.156] $ ...future.FUN:function (x) 1597s [00:53:17.156] $ ... : list() 1597s [00:53:17.156] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1597s [00:53:17.156] - attr(*, "where")=List of 2 1597s [00:53:17.156] ..$ ...future.FUN: 1597s [00:53:17.156] ..$ ... : 1597s [00:53:17.156] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1597s [00:53:17.156] - attr(*, "resolved")= logi FALSE 1597s [00:53:17.156] - attr(*, "total_size")= num 4720 1597s [00:53:17.159] Packages to be attached in all futures: [n=0] 1597s [00:53:17.160] getGlobalsAndPackagesXApply() ... DONE 1597s [00:53:17.160] Number of futures (= number of chunks): 1 1597s [00:53:17.160] Launching 1 futures (chunks) ... 1597s [00:53:17.161] Chunk #1 of 1 ... 1597s [00:53:17.161] - Finding globals in 'X' for chunk #1 ... 1597s [00:53:17.161] getGlobalsAndPackages() ... 1597s [00:53:17.161] Searching for globals... 1597s [00:53:17.162] 1597s [00:53:17.162] Searching for globals ... DONE 1597s [00:53:17.162] - globals: [0] 1597s [00:53:17.162] getGlobalsAndPackages() ... DONE 1597s [00:53:17.162] + additional globals found: [n=0] 1597s [00:53:17.163] + additional namespaces needed: [n=0] 1597s [00:53:17.163] - Finding globals in 'X' for chunk #1 ... DONE 1597s [00:53:17.163] - seeds: 1597s [00:53:17.163] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1597s [00:53:17.163] getGlobalsAndPackages() ... 1597s [00:53:17.164] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1597s [00:53:17.164] Resolving globals: FALSE 1597s [00:53:17.164] Tweak future expression to call with '...' arguments ... 1597s [00:53:17.164] { 1597s [00:53:17.164] do.call(function(...) { 1597s [00:53:17.164] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1597s [00:53:17.164] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1597s [00:53:17.164] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1597s [00:53:17.164] on.exit(options(oopts), add = TRUE) 1597s [00:53:17.164] } 1597s [00:53:17.164] { 1597s [00:53:17.164] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1597s [00:53:17.164] ...future.X_jj <- ...future.elements_ii[[jj]] 1597s [00:53:17.164] ...future.FUN(...future.X_jj, ...) 1597s [00:53:17.164] }) 1597s [00:53:17.164] } 1597s [00:53:17.164] }, args = future.call.arguments) 1597s [00:53:17.164] } 1597s [00:53:17.165] Tweak future expression to call with '...' arguments ... DONE 1597s [00:53:17.165] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1597s [00:53:17.166] 1597s [00:53:17.166] getGlobalsAndPackages() ... DONE 1597s [00:53:17.166] run() for ‘Future’ ... 1597s [00:53:17.166] - state: ‘created’ 1597s [00:53:17.166] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1597s [00:53:17.170] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1597s [00:53:17.170] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1597s [00:53:17.170] - Field: ‘label’ 1597s [00:53:17.170] - Field: ‘local’ 1597s [00:53:17.170] - Field: ‘owner’ 1597s [00:53:17.171] - Field: ‘envir’ 1597s [00:53:17.171] - Field: ‘packages’ 1597s [00:53:17.171] - Field: ‘gc’ 1597s [00:53:17.171] - Field: ‘conditions’ 1597s [00:53:17.171] - Field: ‘expr’ 1597s [00:53:17.171] - Field: ‘uuid’ 1597s [00:53:17.172] - Field: ‘seed’ 1597s [00:53:17.173] - Field: ‘version’ 1597s [00:53:17.173] - Field: ‘result’ 1597s [00:53:17.173] - Field: ‘asynchronous’ 1597s [00:53:17.174] - Field: ‘calls’ 1597s [00:53:17.174] - Field: ‘globals’ 1597s [00:53:17.174] - Field: ‘stdout’ 1597s [00:53:17.174] - Field: ‘earlySignal’ 1597s [00:53:17.174] - Field: ‘lazy’ 1597s [00:53:17.174] - Field: ‘state’ 1597s [00:53:17.174] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1597s [00:53:17.175] - Launch lazy future ... 1597s [00:53:17.175] Packages needed by the future expression (n = 0): 1597s [00:53:17.175] Packages needed by future strategies (n = 0): 1597s [00:53:17.176] { 1597s [00:53:17.176] { 1597s [00:53:17.176] { 1597s [00:53:17.176] ...future.startTime <- base::Sys.time() 1597s [00:53:17.176] { 1597s [00:53:17.176] { 1597s [00:53:17.176] { 1597s [00:53:17.176] base::local({ 1597s [00:53:17.176] has_future <- base::requireNamespace("future", 1597s [00:53:17.176] quietly = TRUE) 1597s [00:53:17.176] if (has_future) { 1597s [00:53:17.176] ns <- base::getNamespace("future") 1597s [00:53:17.176] version <- ns[[".package"]][["version"]] 1597s [00:53:17.176] if (is.null(version)) 1597s [00:53:17.176] version <- utils::packageVersion("future") 1597s [00:53:17.176] } 1597s [00:53:17.176] else { 1597s [00:53:17.176] version <- NULL 1597s [00:53:17.176] } 1597s [00:53:17.176] if (!has_future || version < "1.8.0") { 1597s [00:53:17.176] info <- base::c(r_version = base::gsub("R version ", 1597s [00:53:17.176] "", base::R.version$version.string), 1597s [00:53:17.176] platform = base::sprintf("%s (%s-bit)", 1597s [00:53:17.176] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1597s [00:53:17.176] os = base::paste(base::Sys.info()[base::c("sysname", 1597s [00:53:17.176] "release", "version")], collapse = " "), 1597s [00:53:17.176] hostname = base::Sys.info()[["nodename"]]) 1597s [00:53:17.176] info <- base::sprintf("%s: %s", base::names(info), 1597s [00:53:17.176] info) 1597s [00:53:17.176] info <- base::paste(info, collapse = "; ") 1597s [00:53:17.176] if (!has_future) { 1597s [00:53:17.176] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1597s [00:53:17.176] info) 1597s [00:53:17.176] } 1597s [00:53:17.176] else { 1597s [00:53:17.176] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1597s [00:53:17.176] info, version) 1597s [00:53:17.176] } 1597s [00:53:17.176] base::stop(msg) 1597s [00:53:17.176] } 1597s [00:53:17.176] }) 1597s [00:53:17.176] } 1597s [00:53:17.176] options(future.plan = NULL) 1597s [00:53:17.176] Sys.unsetenv("R_FUTURE_PLAN") 1597s [00:53:17.176] future::plan("default", .cleanup = FALSE, .init = FALSE) 1597s [00:53:17.176] } 1597s [00:53:17.176] ...future.workdir <- getwd() 1597s [00:53:17.176] } 1597s [00:53:17.176] ...future.oldOptions <- base::as.list(base::.Options) 1597s [00:53:17.176] ...future.oldEnvVars <- base::Sys.getenv() 1597s [00:53:17.176] } 1597s [00:53:17.176] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1597s [00:53:17.176] future.globals.maxSize = NULL, future.globals.method = NULL, 1597s [00:53:17.176] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1597s [00:53:17.176] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1597s [00:53:17.176] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1597s [00:53:17.176] future.stdout.windows.reencode = NULL, width = 80L) 1597s [00:53:17.176] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1597s [00:53:17.176] base::names(...future.oldOptions)) 1597s [00:53:17.176] } 1597s [00:53:17.176] if (FALSE) { 1597s [00:53:17.176] } 1597s [00:53:17.176] else { 1597s [00:53:17.176] if (TRUE) { 1597s [00:53:17.176] ...future.stdout <- base::rawConnection(base::raw(0L), 1597s [00:53:17.176] open = "w") 1597s [00:53:17.176] } 1597s [00:53:17.176] else { 1597s [00:53:17.176] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1597s [00:53:17.176] windows = "NUL", "/dev/null"), open = "w") 1597s [00:53:17.176] } 1597s [00:53:17.176] base::sink(...future.stdout, type = "output", split = FALSE) 1597s [00:53:17.176] base::on.exit(if (!base::is.null(...future.stdout)) { 1597s [00:53:17.176] base::sink(type = "output", split = FALSE) 1597s [00:53:17.176] base::close(...future.stdout) 1597s [00:53:17.176] }, add = TRUE) 1597s [00:53:17.176] } 1597s [00:53:17.176] ...future.frame <- base::sys.nframe() 1597s [00:53:17.176] ...future.conditions <- base::list() 1597s [00:53:17.176] ...future.rng <- base::globalenv()$.Random.seed 1597s [00:53:17.176] if (FALSE) { 1597s [00:53:17.176] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1597s [00:53:17.176] "...future.value", "...future.globalenv.names", ".Random.seed") 1597s [00:53:17.176] } 1597s [00:53:17.176] ...future.result <- base::tryCatch({ 1597s [00:53:17.176] base::withCallingHandlers({ 1597s [00:53:17.176] ...future.value <- base::withVisible(base::local({ 1597s [00:53:17.176] do.call(function(...) { 1597s [00:53:17.176] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1597s [00:53:17.176] if (!identical(...future.globals.maxSize.org, 1597s [00:53:17.176] ...future.globals.maxSize)) { 1597s [00:53:17.176] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1597s [00:53:17.176] on.exit(options(oopts), add = TRUE) 1597s [00:53:17.176] } 1597s [00:53:17.176] { 1597s [00:53:17.176] lapply(seq_along(...future.elements_ii), 1597s [00:53:17.176] FUN = function(jj) { 1597s [00:53:17.176] ...future.X_jj <- ...future.elements_ii[[jj]] 1597s [00:53:17.176] ...future.FUN(...future.X_jj, ...) 1597s [00:53:17.176] }) 1597s [00:53:17.176] } 1597s [00:53:17.176] }, args = future.call.arguments) 1597s [00:53:17.176] })) 1597s [00:53:17.176] future::FutureResult(value = ...future.value$value, 1597s [00:53:17.176] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1597s [00:53:17.176] ...future.rng), globalenv = if (FALSE) 1597s [00:53:17.176] list(added = base::setdiff(base::names(base::.GlobalEnv), 1597s [00:53:17.176] ...future.globalenv.names)) 1597s [00:53:17.176] else NULL, started = ...future.startTime, version = "1.8") 1597s [00:53:17.176] }, condition = base::local({ 1597s [00:53:17.176] c <- base::c 1597s [00:53:17.176] inherits <- base::inherits 1597s [00:53:17.176] invokeRestart <- base::invokeRestart 1597s [00:53:17.176] length <- base::length 1597s [00:53:17.176] list <- base::list 1597s [00:53:17.176] seq.int <- base::seq.int 1597s [00:53:17.176] signalCondition <- base::signalCondition 1597s [00:53:17.176] sys.calls <- base::sys.calls 1597s [00:53:17.176] `[[` <- base::`[[` 1597s [00:53:17.176] `+` <- base::`+` 1597s [00:53:17.176] `<<-` <- base::`<<-` 1597s [00:53:17.176] sysCalls <- function(calls = sys.calls(), from = 1L) { 1597s [00:53:17.176] calls[seq.int(from = from + 12L, to = length(calls) - 1597s [00:53:17.176] 3L)] 1597s [00:53:17.176] } 1597s [00:53:17.176] function(cond) { 1597s [00:53:17.176] is_error <- inherits(cond, "error") 1597s [00:53:17.176] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1597s [00:53:17.176] NULL) 1597s [00:53:17.176] if (is_error) { 1597s [00:53:17.176] sessionInformation <- function() { 1597s [00:53:17.176] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1597s [00:53:17.176] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1597s [00:53:17.176] search = base::search(), system = base::Sys.info()) 1597s [00:53:17.176] } 1597s [00:53:17.176] ...future.conditions[[length(...future.conditions) + 1597s [00:53:17.176] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1597s [00:53:17.176] cond$call), session = sessionInformation(), 1597s [00:53:17.176] timestamp = base::Sys.time(), signaled = 0L) 1597s [00:53:17.176] signalCondition(cond) 1597s [00:53:17.176] } 1597s [00:53:17.176] else if (!ignore && TRUE && inherits(cond, c("condition", 1597s [00:53:17.176] "immediateCondition"))) { 1597s [00:53:17.176] signal <- TRUE && inherits(cond, "immediateCondition") 1597s [00:53:17.176] ...future.conditions[[length(...future.conditions) + 1597s [00:53:17.176] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1597s [00:53:17.176] if (TRUE && !signal) { 1597s [00:53:17.176] muffleCondition <- function (cond, pattern = "^muffle") 1597s [00:53:17.176] { 1597s [00:53:17.176] inherits <- base::inherits 1597s [00:53:17.176] invokeRestart <- base::invokeRestart 1597s [00:53:17.176] is.null <- base::is.null 1597s [00:53:17.176] muffled <- FALSE 1597s [00:53:17.176] if (inherits(cond, "message")) { 1597s [00:53:17.176] muffled <- grepl(pattern, "muffleMessage") 1597s [00:53:17.176] if (muffled) 1597s [00:53:17.176] invokeRestart("muffleMessage") 1597s [00:53:17.176] } 1597s [00:53:17.176] else if (inherits(cond, "warning")) { 1597s [00:53:17.176] muffled <- grepl(pattern, "muffleWarning") 1597s [00:53:17.176] if (muffled) 1597s [00:53:17.176] invokeRestart("muffleWarning") 1597s [00:53:17.176] } 1597s [00:53:17.176] else if (inherits(cond, "condition")) { 1597s [00:53:17.176] if (!is.null(pattern)) { 1597s [00:53:17.176] computeRestarts <- base::computeRestarts 1597s [00:53:17.176] grepl <- base::grepl 1597s [00:53:17.176] restarts <- computeRestarts(cond) 1597s [00:53:17.176] for (restart in restarts) { 1597s [00:53:17.176] name <- restart$name 1597s [00:53:17.176] if (is.null(name)) 1597s [00:53:17.176] next 1597s [00:53:17.176] if (!grepl(pattern, name)) 1597s [00:53:17.176] next 1597s [00:53:17.176] invokeRestart(restart) 1597s [00:53:17.176] muffled <- TRUE 1597s [00:53:17.176] break 1597s [00:53:17.176] } 1597s [00:53:17.176] } 1597s [00:53:17.176] } 1597s [00:53:17.176] invisible(muffled) 1597s [00:53:17.176] } 1597s [00:53:17.176] muffleCondition(cond, pattern = "^muffle") 1597s [00:53:17.176] } 1597s [00:53:17.176] } 1597s [00:53:17.176] else { 1597s [00:53:17.176] if (TRUE) { 1597s [00:53:17.176] muffleCondition <- function (cond, pattern = "^muffle") 1597s [00:53:17.176] { 1597s [00:53:17.176] inherits <- base::inherits 1597s [00:53:17.176] invokeRestart <- base::invokeRestart 1597s [00:53:17.176] is.null <- base::is.null 1597s [00:53:17.176] muffled <- FALSE 1597s [00:53:17.176] if (inherits(cond, "message")) { 1597s [00:53:17.176] muffled <- grepl(pattern, "muffleMessage") 1597s [00:53:17.176] if (muffled) 1597s [00:53:17.176] invokeRestart("muffleMessage") 1597s [00:53:17.176] } 1597s [00:53:17.176] else if (inherits(cond, "warning")) { 1597s [00:53:17.176] muffled <- grepl(pattern, "muffleWarning") 1597s [00:53:17.176] if (muffled) 1597s [00:53:17.176] invokeRestart("muffleWarning") 1597s [00:53:17.176] } 1597s [00:53:17.176] else if (inherits(cond, "condition")) { 1597s [00:53:17.176] if (!is.null(pattern)) { 1597s [00:53:17.176] computeRestarts <- base::computeRestarts 1597s [00:53:17.176] grepl <- base::grepl 1597s [00:53:17.176] restarts <- computeRestarts(cond) 1597s [00:53:17.176] for (restart in restarts) { 1597s [00:53:17.176] name <- restart$name 1597s [00:53:17.176] if (is.null(name)) 1597s [00:53:17.176] next 1597s [00:53:17.176] if (!grepl(pattern, name)) 1597s [00:53:17.176] next 1597s [00:53:17.176] invokeRestart(restart) 1597s [00:53:17.176] muffled <- TRUE 1597s [00:53:17.176] break 1597s [00:53:17.176] } 1597s [00:53:17.176] } 1597s [00:53:17.176] } 1597s [00:53:17.176] invisible(muffled) 1597s [00:53:17.176] } 1597s [00:53:17.176] muffleCondition(cond, pattern = "^muffle") 1597s [00:53:17.176] } 1597s [00:53:17.176] } 1597s [00:53:17.176] } 1597s [00:53:17.176] })) 1597s [00:53:17.176] }, error = function(ex) { 1597s [00:53:17.176] base::structure(base::list(value = NULL, visible = NULL, 1597s [00:53:17.176] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1597s [00:53:17.176] ...future.rng), started = ...future.startTime, 1597s [00:53:17.176] finished = Sys.time(), session_uuid = NA_character_, 1597s [00:53:17.176] version = "1.8"), class = "FutureResult") 1597s [00:53:17.176] }, finally = { 1597s [00:53:17.176] if (!identical(...future.workdir, getwd())) 1597s [00:53:17.176] setwd(...future.workdir) 1597s [00:53:17.176] { 1597s [00:53:17.176] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1597s [00:53:17.176] ...future.oldOptions$nwarnings <- NULL 1597s [00:53:17.176] } 1597s [00:53:17.176] base::options(...future.oldOptions) 1597s [00:53:17.176] if (.Platform$OS.type == "windows") { 1597s [00:53:17.176] old_names <- names(...future.oldEnvVars) 1597s [00:53:17.176] envs <- base::Sys.getenv() 1597s [00:53:17.176] names <- names(envs) 1597s [00:53:17.176] common <- intersect(names, old_names) 1597s [00:53:17.176] added <- setdiff(names, old_names) 1597s [00:53:17.176] removed <- setdiff(old_names, names) 1597s [00:53:17.176] changed <- common[...future.oldEnvVars[common] != 1597s [00:53:17.176] envs[common]] 1597s [00:53:17.176] NAMES <- toupper(changed) 1597s [00:53:17.176] args <- list() 1597s [00:53:17.176] for (kk in seq_along(NAMES)) { 1597s [00:53:17.176] name <- changed[[kk]] 1597s [00:53:17.176] NAME <- NAMES[[kk]] 1597s [00:53:17.176] if (name != NAME && is.element(NAME, old_names)) 1597s [00:53:17.176] next 1597s [00:53:17.176] args[[name]] <- ...future.oldEnvVars[[name]] 1597s [00:53:17.176] } 1597s [00:53:17.176] NAMES <- toupper(added) 1597s [00:53:17.176] for (kk in seq_along(NAMES)) { 1597s [00:53:17.176] name <- added[[kk]] 1597s [00:53:17.176] NAME <- NAMES[[kk]] 1597s [00:53:17.176] if (name != NAME && is.element(NAME, old_names)) 1597s [00:53:17.176] next 1597s [00:53:17.176] args[[name]] <- "" 1597s [00:53:17.176] } 1597s [00:53:17.176] NAMES <- toupper(removed) 1597s [00:53:17.176] for (kk in seq_along(NAMES)) { 1597s [00:53:17.176] name <- removed[[kk]] 1597s [00:53:17.176] NAME <- NAMES[[kk]] 1597s [00:53:17.176] if (name != NAME && is.element(NAME, old_names)) 1597s [00:53:17.176] next 1597s [00:53:17.176] args[[name]] <- ...future.oldEnvVars[[name]] 1597s [00:53:17.176] } 1597s [00:53:17.176] if (length(args) > 0) 1597s [00:53:17.176] base::do.call(base::Sys.setenv, args = args) 1597s [00:53:17.176] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1597s [00:53:17.176] } 1597s [00:53:17.176] else { 1597s [00:53:17.176] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1597s [00:53:17.176] } 1597s [00:53:17.176] { 1597s [00:53:17.176] if (base::length(...future.futureOptionsAdded) > 1597s [00:53:17.176] 0L) { 1597s [00:53:17.176] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1597s [00:53:17.176] base::names(opts) <- ...future.futureOptionsAdded 1597s [00:53:17.176] base::options(opts) 1597s [00:53:17.176] } 1597s [00:53:17.176] { 1597s [00:53:17.176] { 1597s [00:53:17.176] NULL 1597s [00:53:17.176] RNGkind("Mersenne-Twister") 1597s [00:53:17.176] base::rm(list = ".Random.seed", envir = base::globalenv(), 1597s [00:53:17.176] inherits = FALSE) 1597s [00:53:17.176] } 1597s [00:53:17.176] options(future.plan = NULL) 1597s [00:53:17.176] if (is.na(NA_character_)) 1597s [00:53:17.176] Sys.unsetenv("R_FUTURE_PLAN") 1597s [00:53:17.176] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1597s [00:53:17.176] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1597s [00:53:17.176] envir = parent.frame()) 1597s [00:53:17.176] { 1597s [00:53:17.176] default_workers <- missing(workers) 1597s [00:53:17.176] if (is.function(workers)) 1597s [00:53:17.176] workers <- workers() 1597s [00:53:17.176] workers <- structure(as.integer(workers), 1597s [00:53:17.176] class = class(workers)) 1597s [00:53:17.176] stop_if_not(is.finite(workers), workers >= 1597s [00:53:17.176] 1L) 1597s [00:53:17.176] if ((workers == 1L && !inherits(workers, 1597s [00:53:17.176] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1597s [00:53:17.176] if (default_workers) 1597s [00:53:17.176] supportsMulticore(warn = TRUE) 1597s [00:53:17.176] return(sequential(..., envir = envir)) 1597s [00:53:17.176] } 1597s [00:53:17.176] oopts <- options(mc.cores = workers) 1597s [00:53:17.176] on.exit(options(oopts)) 1597s [00:53:17.176] future <- MulticoreFuture(..., workers = workers, 1597s [00:53:17.176] envir = envir) 1597s [00:53:17.176] if (!future$lazy) 1597s [00:53:17.176] future <- run(future) 1597s [00:53:17.176] invisible(future) 1597s [00:53:17.176] }), .cleanup = FALSE, .init = FALSE) 1597s [00:53:17.176] } 1597s [00:53:17.176] } 1597s [00:53:17.176] } 1597s [00:53:17.176] }) 1597s [00:53:17.176] if (TRUE) { 1597s [00:53:17.176] base::sink(type = "output", split = FALSE) 1597s [00:53:17.176] if (TRUE) { 1597s [00:53:17.176] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1597s [00:53:17.176] } 1597s [00:53:17.176] else { 1597s [00:53:17.176] ...future.result["stdout"] <- base::list(NULL) 1597s [00:53:17.176] } 1597s [00:53:17.176] base::close(...future.stdout) 1597s [00:53:17.176] ...future.stdout <- NULL 1597s [00:53:17.176] } 1597s [00:53:17.176] ...future.result$conditions <- ...future.conditions 1597s [00:53:17.176] ...future.result$finished <- base::Sys.time() 1597s [00:53:17.176] ...future.result 1597s [00:53:17.176] } 1597s [00:53:17.182] assign_globals() ... 1597s [00:53:17.182] List of 5 1597s [00:53:17.182] $ ...future.FUN :function (x) 1597s [00:53:17.182] $ future.call.arguments : list() 1597s [00:53:17.182] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1597s [00:53:17.182] $ ...future.elements_ii :List of 2 1597s [00:53:17.182] ..$ : int 1 1597s [00:53:17.182] ..$ : int 0 1597s [00:53:17.182] $ ...future.seeds_ii : NULL 1597s [00:53:17.182] $ ...future.globals.maxSize: NULL 1597s [00:53:17.182] - attr(*, "where")=List of 5 1597s [00:53:17.182] ..$ ...future.FUN : 1597s [00:53:17.182] ..$ future.call.arguments : 1597s [00:53:17.182] ..$ ...future.elements_ii : 1597s [00:53:17.182] ..$ ...future.seeds_ii : 1597s [00:53:17.182] ..$ ...future.globals.maxSize: 1597s [00:53:17.182] - attr(*, "resolved")= logi FALSE 1597s [00:53:17.182] - attr(*, "total_size")= num 4720 1597s [00:53:17.182] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1597s [00:53:17.182] - attr(*, "already-done")= logi TRUE 1597s [00:53:17.188] - reassign environment for ‘...future.FUN’ 1597s [00:53:17.188] - copied ‘...future.FUN’ to environment 1597s [00:53:17.188] - copied ‘future.call.arguments’ to environment 1597s [00:53:17.188] - copied ‘...future.elements_ii’ to environment 1597s [00:53:17.188] - copied ‘...future.seeds_ii’ to environment 1597s [00:53:17.189] - copied ‘...future.globals.maxSize’ to environment 1597s [00:53:17.189] assign_globals() ... done 1597s [00:53:17.189] plan(): Setting new future strategy stack: 1597s [00:53:17.189] List of future strategies: 1597s [00:53:17.189] 1. sequential: 1597s [00:53:17.189] - args: function (..., envir = parent.frame()) 1597s [00:53:17.189] - tweaked: FALSE 1597s [00:53:17.189] - call: NULL 1597s [00:53:17.190] plan(): nbrOfWorkers() = 1 1597s [00:53:17.692] plan(): Setting new future strategy stack: 1597s [00:53:17.692] List of future strategies: 1597s [00:53:17.692] 1. multicore: 1597s [00:53:17.692] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1597s [00:53:17.692] - tweaked: FALSE 1597s [00:53:17.692] - call: plan(strategy) 1597s [00:53:17.697] plan(): nbrOfWorkers() = 1 1597s [00:53:17.698] SequentialFuture started (and completed) 1597s [00:53:17.698] - Launch lazy future ... done 1597s [00:53:17.698] run() for ‘SequentialFuture’ ... done 1597s [00:53:17.698] Created future: 1597s [00:53:17.698] SequentialFuture: 1597s [00:53:17.698] Label: ‘future_lapply-1’ 1597s [00:53:17.698] Expression: 1597s [00:53:17.698] { 1597s [00:53:17.698] do.call(function(...) { 1597s [00:53:17.698] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1597s [00:53:17.698] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1597s [00:53:17.698] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1597s [00:53:17.698] on.exit(options(oopts), add = TRUE) 1597s [00:53:17.698] } 1597s [00:53:17.698] { 1597s [00:53:17.698] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1597s [00:53:17.698] ...future.X_jj <- ...future.elements_ii[[jj]] 1597s [00:53:17.698] ...future.FUN(...future.X_jj, ...) 1597s [00:53:17.698] }) 1597s [00:53:17.698] } 1597s [00:53:17.698] }, args = future.call.arguments) 1597s [00:53:17.698] } 1597s [00:53:17.698] Lazy evaluation: FALSE 1597s [00:53:17.698] Asynchronous evaluation: FALSE 1597s [00:53:17.698] Local evaluation: TRUE 1597s [00:53:17.698] Environment: R_GlobalEnv 1597s [00:53:17.698] Capture standard output: TRUE 1597s [00:53:17.698] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1597s [00:53:17.698] Globals: 5 objects totaling 4.72 KiB (function ‘...future.FUN’ of 4.61 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1597s [00:53:17.698] Packages: 1597s [00:53:17.698] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1597s [00:53:17.698] Resolved: TRUE 1597s [00:53:17.698] Value: 112 bytes of class ‘list’ 1597s [00:53:17.698] Early signaling: FALSE 1597s [00:53:17.698] Owner process: aef6b2cf-a7ff-4166-a7a6-2b6e1e64c3ba 1597s [00:53:17.698] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1597s [00:53:17.700] Chunk #1 of 1 ... DONE 1597s [00:53:17.701] Launching 1 futures (chunks) ... DONE 1597s [00:53:17.701] Resolving 1 futures (chunks) ... 1597s [00:53:17.701] resolve() on list ... 1597s [00:53:17.701] recursive: 0 1597s [00:53:17.701] length: 1 1597s [00:53:17.701] 1597s [00:53:17.702] resolved() for ‘SequentialFuture’ ... 1597s [00:53:17.702] - state: ‘finished’ 1597s [00:53:17.702] - run: TRUE 1597s [00:53:17.702] - result: ‘FutureResult’ 1597s [00:53:17.702] resolved() for ‘SequentialFuture’ ... done 1597s [00:53:17.702] Future #1 1597s [00:53:17.703] signalConditionsASAP(SequentialFuture, pos=1) ... 1597s [00:53:17.703] - nx: 1 1597s [00:53:17.703] - relay: TRUE 1597s [00:53:17.703] - stdout: TRUE 1597s [00:53:17.703] - signal: TRUE 1597s [00:53:17.704] - resignal: FALSE 1597s [00:53:17.704] - force: TRUE 1597s [00:53:17.704] - relayed: [n=1] FALSE 1597s [00:53:17.704] - queued futures: [n=1] FALSE 1597s [00:53:17.704] - until=1 1597s [00:53:17.704] - relaying element #1 1597s [00:53:17.705] - relayed: [n=1] TRUE 1597s [00:53:17.705] - queued futures: [n=1] TRUE 1597s [00:53:17.705] signalConditionsASAP(SequentialFuture, pos=1) ... done 1597s [00:53:17.705] length: 0 (resolved future 1) 1597s [00:53:17.705] Relaying remaining futures 1597s [00:53:17.705] signalConditionsASAP(NULL, pos=0) ... 1597s [00:53:17.706] - nx: 1 1597s [00:53:17.706] - relay: TRUE 1597s [00:53:17.706] - stdout: TRUE 1597s [00:53:17.706] - signal: TRUE 1597s [00:53:17.706] - resignal: FALSE 1597s [00:53:17.706] - force: TRUE 1597s [00:53:17.706] - relayed: [n=1] TRUE 1597s [00:53:17.707] - queued futures: [n=1] TRUE 1597s - flush all 1597s [00:53:17.707] - relayed: [n=1] TRUE 1597s [00:53:17.707] - queued futures: [n=1] TRUE 1597s [00:53:17.707] signalConditionsASAP(NULL, pos=0) ... done 1597s [00:53:17.707] resolve() on list ... DONE 1597s [00:53:17.708] - Number of value chunks collected: 1 1597s [00:53:17.708] Resolving 1 futures (chunks) ... DONE 1597s [00:53:17.708] Reducing values from 1 chunks ... 1597s [00:53:17.708] - Number of values collected after concatenation: 2 1597s [00:53:17.708] - Number of values expected: 2 1597s [00:53:17.708] Reducing values from 1 chunks ... DONE 1597s [00:53:17.709] future_lapply() ... DONE 1597s * future_lapply(x, ..., future.stdout = TRUE) ... DONE 1597s * future_lapply(x, ..., future.stdout = NA) ... 1597s [00:53:17.709] future_lapply() ... 1597s [00:53:17.714] Number of chunks: 1 1597s [00:53:17.714] getGlobalsAndPackagesXApply() ... 1597s [00:53:17.714] - future.globals: TRUE 1597s [00:53:17.714] getGlobalsAndPackages() ... 1597s [00:53:17.714] Searching for globals... 1597s [00:53:17.716] - globals found: [5] ‘FUN’, ‘{’, ‘Sys.sleep’, ‘/’, ‘print’ 1597s [00:53:17.716] Searching for globals ... DONE 1597s [00:53:17.717] Resolving globals: FALSE 1597s [00:53:17.717] The total size of the 1 globals is 4.61 KiB (4720 bytes) 1597s [00:53:17.718] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.61 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.61 KiB of class ‘function’) 1597s [00:53:17.718] - globals: [1] ‘FUN’ 1597s [00:53:17.718] 1597s [00:53:17.718] getGlobalsAndPackages() ... DONE 1597s [00:53:17.718] - globals found/used: [n=1] ‘FUN’ 1597s [00:53:17.718] - needed namespaces: [n=0] 1597s [00:53:17.722] Finding globals ... DONE 1597s [00:53:17.722] - use_args: TRUE 1597s [00:53:17.722] - Getting '...' globals ... 1597s [00:53:17.722] resolve() on list ... 1597s [00:53:17.723] recursive: 0 1597s [00:53:17.723] length: 1 1597s [00:53:17.723] elements: ‘...’ 1597s [00:53:17.723] length: 0 (resolved future 1) 1597s [00:53:17.724] resolve() on list ... DONE 1597s [00:53:17.724] - '...' content: [n=0] 1597s [00:53:17.724] List of 1 1597s [00:53:17.724] $ ...: list() 1597s [00:53:17.724] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1597s [00:53:17.724] - attr(*, "where")=List of 1 1597s [00:53:17.724] ..$ ...: 1597s [00:53:17.724] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1597s [00:53:17.724] - attr(*, "resolved")= logi TRUE 1597s [00:53:17.724] - attr(*, "total_size")= num NA 1597s [00:53:17.728] - Getting '...' globals ... DONE 1597s [00:53:17.728] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1597s [00:53:17.728] List of 2 1597s [00:53:17.728] $ ...future.FUN:function (x) 1597s [00:53:17.728] $ ... : list() 1597s [00:53:17.728] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1597s [00:53:17.728] - attr(*, "where")=List of 2 1597s [00:53:17.728] ..$ ...future.FUN: 1597s [00:53:17.728] ..$ ... : 1597s [00:53:17.728] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1597s [00:53:17.728] - attr(*, "resolved")= logi FALSE 1597s [00:53:17.728] - attr(*, "total_size")= num 4720 1597s [00:53:17.732] Packages to be attached in all futures: [n=0] 1597s [00:53:17.732] getGlobalsAndPackagesXApply() ... DONE 1597s [00:53:17.732] Number of futures (= number of chunks): 1 1597s [00:53:17.732] Launching 1 futures (chunks) ... 1597s [00:53:17.733] Chunk #1 of 1 ... 1597s [00:53:17.733] - Finding globals in 'X' for chunk #1 ... 1597s [00:53:17.733] getGlobalsAndPackages() ... 1597s [00:53:17.733] Searching for globals... 1597s [00:53:17.733] 1597s [00:53:17.734] Searching for globals ... DONE 1597s [00:53:17.734] - globals: [0] 1597s [00:53:17.734] getGlobalsAndPackages() ... DONE 1597s [00:53:17.734] + additional globals found: [n=0] 1597s [00:53:17.734] + additional namespaces needed: [n=0] 1597s [00:53:17.734] - Finding globals in 'X' for chunk #1 ... DONE 1597s [00:53:17.734] - seeds: 1597s [00:53:17.734] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1597s [00:53:17.735] getGlobalsAndPackages() ... 1597s [00:53:17.735] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1597s [00:53:17.735] Resolving globals: FALSE 1597s [00:53:17.735] Tweak future expression to call with '...' arguments ... 1597s [00:53:17.735] { 1597s [00:53:17.735] do.call(function(...) { 1597s [00:53:17.735] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1597s [00:53:17.735] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1597s [00:53:17.735] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1597s [00:53:17.735] on.exit(options(oopts), add = TRUE) 1597s [00:53:17.735] } 1597s [00:53:17.735] { 1597s [00:53:17.735] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1597s [00:53:17.735] ...future.X_jj <- ...future.elements_ii[[jj]] 1597s [00:53:17.735] ...future.FUN(...future.X_jj, ...) 1597s [00:53:17.735] }) 1597s [00:53:17.735] } 1597s [00:53:17.735] }, args = future.call.arguments) 1597s [00:53:17.735] } 1597s [00:53:17.735] Tweak future expression to call with '...' arguments ... DONE 1597s [00:53:17.736] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1597s [00:53:17.736] 1597s [00:53:17.736] getGlobalsAndPackages() ... DONE 1597s [00:53:17.736] run() for ‘Future’ ... 1597s [00:53:17.736] - state: ‘created’ 1597s [00:53:17.737] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1597s [00:53:17.740] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1597s [00:53:17.740] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1597s [00:53:17.740] - Field: ‘label’ 1597s [00:53:17.740] - Field: ‘local’ 1597s [00:53:17.740] - Field: ‘owner’ 1597s [00:53:17.741] - Field: ‘envir’ 1597s [00:53:17.741] - Field: ‘packages’ 1597s [00:53:17.741] - Field: ‘gc’ 1597s [00:53:17.741] - Field: ‘conditions’ 1597s [00:53:17.741] - Field: ‘expr’ 1597s [00:53:17.741] - Field: ‘uuid’ 1597s [00:53:17.742] - Field: ‘seed’ 1597s [00:53:17.742] - Field: ‘version’ 1597s [00:53:17.742] - Field: ‘result’ 1597s [00:53:17.742] - Field: ‘asynchronous’ 1597s [00:53:17.742] - Field: ‘calls’ 1597s [00:53:17.742] - Field: ‘globals’ 1597s [00:53:17.742] - Field: ‘stdout’ 1597s [00:53:17.743] - Field: ‘earlySignal’ 1597s [00:53:17.743] - Field: ‘lazy’ 1597s [00:53:17.743] - Field: ‘state’ 1597s [00:53:17.743] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1597s [00:53:17.743] - Launch lazy future ... 1597s [00:53:17.743] Packages needed by the future expression (n = 0): 1597s [00:53:17.744] Packages needed by future strategies (n = 0): 1597s [00:53:17.744] { 1597s [00:53:17.744] { 1597s [00:53:17.744] { 1597s [00:53:17.744] ...future.startTime <- base::Sys.time() 1597s [00:53:17.744] { 1597s [00:53:17.744] { 1597s [00:53:17.744] { 1597s [00:53:17.744] base::local({ 1597s [00:53:17.744] has_future <- base::requireNamespace("future", 1597s [00:53:17.744] quietly = TRUE) 1597s [00:53:17.744] if (has_future) { 1597s [00:53:17.744] ns <- base::getNamespace("future") 1597s [00:53:17.744] version <- ns[[".package"]][["version"]] 1597s [00:53:17.744] if (is.null(version)) 1597s [00:53:17.744] version <- utils::packageVersion("future") 1597s [00:53:17.744] } 1597s [00:53:17.744] else { 1597s [00:53:17.744] version <- NULL 1597s [00:53:17.744] } 1597s [00:53:17.744] if (!has_future || version < "1.8.0") { 1597s [00:53:17.744] info <- base::c(r_version = base::gsub("R version ", 1597s [00:53:17.744] "", base::R.version$version.string), 1597s [00:53:17.744] platform = base::sprintf("%s (%s-bit)", 1597s [00:53:17.744] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1597s [00:53:17.744] os = base::paste(base::Sys.info()[base::c("sysname", 1597s [00:53:17.744] "release", "version")], collapse = " "), 1597s [00:53:17.744] hostname = base::Sys.info()[["nodename"]]) 1597s [00:53:17.744] info <- base::sprintf("%s: %s", base::names(info), 1597s [00:53:17.744] info) 1597s [00:53:17.744] info <- base::paste(info, collapse = "; ") 1597s [00:53:17.744] if (!has_future) { 1597s [00:53:17.744] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1597s [00:53:17.744] info) 1597s [00:53:17.744] } 1597s [00:53:17.744] else { 1597s [00:53:17.744] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1597s [00:53:17.744] info, version) 1597s [00:53:17.744] } 1597s [00:53:17.744] base::stop(msg) 1597s [00:53:17.744] } 1597s [00:53:17.744] }) 1597s [00:53:17.744] } 1597s [00:53:17.744] options(future.plan = NULL) 1597s [00:53:17.744] Sys.unsetenv("R_FUTURE_PLAN") 1597s [00:53:17.744] future::plan("default", .cleanup = FALSE, .init = FALSE) 1597s [00:53:17.744] } 1597s [00:53:17.744] ...future.workdir <- getwd() 1597s [00:53:17.744] } 1597s [00:53:17.744] ...future.oldOptions <- base::as.list(base::.Options) 1597s [00:53:17.744] ...future.oldEnvVars <- base::Sys.getenv() 1597s [00:53:17.744] } 1597s [00:53:17.744] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1597s [00:53:17.744] future.globals.maxSize = NULL, future.globals.method = NULL, 1597s [00:53:17.744] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1597s [00:53:17.744] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1597s [00:53:17.744] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1597s [00:53:17.744] future.stdout.windows.reencode = NULL, width = 80L) 1597s [00:53:17.744] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1597s [00:53:17.744] base::names(...future.oldOptions)) 1597s [00:53:17.744] } 1597s [00:53:17.744] if (TRUE) { 1597s [00:53:17.744] } 1597s [00:53:17.744] else { 1597s [00:53:17.744] if (NA) { 1597s [00:53:17.744] ...future.stdout <- base::rawConnection(base::raw(0L), 1597s [00:53:17.744] open = "w") 1597s [00:53:17.744] } 1597s [00:53:17.744] else { 1597s [00:53:17.744] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1597s [00:53:17.744] windows = "NUL", "/dev/null"), open = "w") 1597s [00:53:17.744] } 1597s [00:53:17.744] base::sink(...future.stdout, type = "output", split = FALSE) 1597s [00:53:17.744] base::on.exit(if (!base::is.null(...future.stdout)) { 1597s [00:53:17.744] base::sink(type = "output", split = FALSE) 1597s [00:53:17.744] base::close(...future.stdout) 1597s [00:53:17.744] }, add = TRUE) 1597s [00:53:17.744] } 1597s [00:53:17.744] ...future.frame <- base::sys.nframe() 1597s [00:53:17.744] ...future.conditions <- base::list() 1597s [00:53:17.744] ...future.rng <- base::globalenv()$.Random.seed 1597s [00:53:17.744] if (FALSE) { 1597s [00:53:17.744] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1597s [00:53:17.744] "...future.value", "...future.globalenv.names", ".Random.seed") 1597s [00:53:17.744] } 1597s [00:53:17.744] ...future.result <- base::tryCatch({ 1597s [00:53:17.744] base::withCallingHandlers({ 1597s [00:53:17.744] ...future.value <- base::withVisible(base::local({ 1597s [00:53:17.744] do.call(function(...) { 1597s [00:53:17.744] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1597s [00:53:17.744] if (!identical(...future.globals.maxSize.org, 1597s [00:53:17.744] ...future.globals.maxSize)) { 1597s [00:53:17.744] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1597s [00:53:17.744] on.exit(options(oopts), add = TRUE) 1597s [00:53:17.744] } 1597s [00:53:17.744] { 1597s [00:53:17.744] lapply(seq_along(...future.elements_ii), 1597s [00:53:17.744] FUN = function(jj) { 1597s [00:53:17.744] ...future.X_jj <- ...future.elements_ii[[jj]] 1597s [00:53:17.744] ...future.FUN(...future.X_jj, ...) 1597s [00:53:17.744] }) 1597s [00:53:17.744] } 1597s [00:53:17.744] }, args = future.call.arguments) 1597s [00:53:17.744] })) 1597s [00:53:17.744] future::FutureResult(value = ...future.value$value, 1597s [00:53:17.744] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1597s [00:53:17.744] ...future.rng), globalenv = if (FALSE) 1597s [00:53:17.744] list(added = base::setdiff(base::names(base::.GlobalEnv), 1597s [00:53:17.744] ...future.globalenv.names)) 1597s [00:53:17.744] else NULL, started = ...future.startTime, version = "1.8") 1597s [00:53:17.744] }, condition = base::local({ 1597s [00:53:17.744] c <- base::c 1597s [00:53:17.744] inherits <- base::inherits 1597s [00:53:17.744] invokeRestart <- base::invokeRestart 1597s [00:53:17.744] length <- base::length 1597s [00:53:17.744] list <- base::list 1597s [00:53:17.744] seq.int <- base::seq.int 1597s [00:53:17.744] signalCondition <- base::signalCondition 1597s [00:53:17.744] sys.calls <- base::sys.calls 1597s [00:53:17.744] `[[` <- base::`[[` 1597s [00:53:17.744] `+` <- base::`+` 1597s [00:53:17.744] `<<-` <- base::`<<-` 1597s [00:53:17.744] sysCalls <- function(calls = sys.calls(), from = 1L) { 1597s [00:53:17.744] calls[seq.int(from = from + 12L, to = length(calls) - 1597s [00:53:17.744] 3L)] 1597s [00:53:17.744] } 1597s [00:53:17.744] function(cond) { 1597s [00:53:17.744] is_error <- inherits(cond, "error") 1597s [00:53:17.744] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1597s [00:53:17.744] NULL) 1597s [00:53:17.744] if (is_error) { 1597s [00:53:17.744] sessionInformation <- function() { 1597s [00:53:17.744] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1597s [00:53:17.744] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1597s [00:53:17.744] search = base::search(), system = base::Sys.info()) 1597s [00:53:17.744] } 1597s [00:53:17.744] ...future.conditions[[length(...future.conditions) + 1597s [00:53:17.744] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1597s [00:53:17.744] cond$call), session = sessionInformation(), 1597s [00:53:17.744] timestamp = base::Sys.time(), signaled = 0L) 1597s [00:53:17.744] signalCondition(cond) 1597s [00:53:17.744] } 1597s [00:53:17.744] else if (!ignore && TRUE && inherits(cond, c("condition", 1597s [00:53:17.744] "immediateCondition"))) { 1597s [00:53:17.744] signal <- TRUE && inherits(cond, "immediateCondition") 1597s [00:53:17.744] ...future.conditions[[length(...future.conditions) + 1597s [00:53:17.744] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1597s [00:53:17.744] if (TRUE && !signal) { 1597s [00:53:17.744] muffleCondition <- function (cond, pattern = "^muffle") 1597s [00:53:17.744] { 1597s [00:53:17.744] inherits <- base::inherits 1597s [00:53:17.744] invokeRestart <- base::invokeRestart 1597s [00:53:17.744] is.null <- base::is.null 1597s [00:53:17.744] muffled <- FALSE 1597s [00:53:17.744] if (inherits(cond, "message")) { 1597s [00:53:17.744] muffled <- grepl(pattern, "muffleMessage") 1597s [00:53:17.744] if (muffled) 1597s [00:53:17.744] invokeRestart("muffleMessage") 1597s [00:53:17.744] } 1597s [00:53:17.744] else if (inherits(cond, "warning")) { 1597s [00:53:17.744] muffled <- grepl(pattern, "muffleWarning") 1597s [00:53:17.744] if (muffled) 1597s [00:53:17.744] invokeRestart("muffleWarning") 1597s [00:53:17.744] } 1597s [00:53:17.744] else if (inherits(cond, "condition")) { 1597s [00:53:17.744] if (!is.null(pattern)) { 1597s [00:53:17.744] computeRestarts <- base::computeRestarts 1597s [00:53:17.744] grepl <- base::grepl 1597s [00:53:17.744] restarts <- computeRestarts(cond) 1597s [00:53:17.744] for (restart in restarts) { 1597s [00:53:17.744] name <- restart$name 1597s [00:53:17.744] if (is.null(name)) 1597s [00:53:17.744] next 1597s [00:53:17.744] if (!grepl(pattern, name)) 1597s [00:53:17.744] next 1597s [00:53:17.744] invokeRestart(restart) 1597s [00:53:17.744] muffled <- TRUE 1597s [00:53:17.744] break 1597s [00:53:17.744] } 1597s [00:53:17.744] } 1597s [00:53:17.744] } 1597s [00:53:17.744] invisible(muffled) 1597s [00:53:17.744] } 1597s [00:53:17.744] muffleCondition(cond, pattern = "^muffle") 1597s [00:53:17.744] } 1597s [00:53:17.744] } 1597s [00:53:17.744] else { 1597s [00:53:17.744] if (TRUE) { 1597s [00:53:17.744] muffleCondition <- function (cond, pattern = "^muffle") 1597s [00:53:17.744] { 1597s [00:53:17.744] inherits <- base::inherits 1597s [00:53:17.744] invokeRestart <- base::invokeRestart 1597s [00:53:17.744] is.null <- base::is.null 1597s [00:53:17.744] muffled <- FALSE 1597s [00:53:17.744] if (inherits(cond, "message")) { 1597s [00:53:17.744] muffled <- grepl(pattern, "muffleMessage") 1597s [00:53:17.744] if (muffled) 1597s [00:53:17.744] invokeRestart("muffleMessage") 1597s [00:53:17.744] } 1597s [00:53:17.744] else if (inherits(cond, "warning")) { 1597s [00:53:17.744] muffled <- grepl(pattern, "muffleWarning") 1597s [00:53:17.744] if (muffled) 1597s [00:53:17.744] invokeRestart("muffleWarning") 1597s [00:53:17.744] } 1597s [00:53:17.744] else if (inherits(cond, "condition")) { 1597s [00:53:17.744] if (!is.null(pattern)) { 1597s [00:53:17.744] computeRestarts <- base::computeRestarts 1597s [00:53:17.744] grepl <- base::grepl 1597s [00:53:17.744] restarts <- computeRestarts(cond) 1597s [00:53:17.744] for (restart in restarts) { 1597s [00:53:17.744] name <- restart$name 1597s [00:53:17.744] if (is.null(name)) 1597s [00:53:17.744] next 1597s [00:53:17.744] if (!grepl(pattern, name)) 1597s [00:53:17.744] next 1597s [00:53:17.744] invokeRestart(restart) 1597s [00:53:17.744] muffled <- TRUE 1597s [00:53:17.744] break 1597s [00:53:17.744] } 1597s [00:53:17.744] } 1597s [00:53:17.744] } 1597s [00:53:17.744] invisible(muffled) 1597s [00:53:17.744] } 1597s [00:53:17.744] muffleCondition(cond, pattern = "^muffle") 1597s [00:53:17.744] } 1597s [00:53:17.744] } 1597s [00:53:17.744] } 1597s [00:53:17.744] })) 1597s [00:53:17.744] }, error = function(ex) { 1597s [00:53:17.744] base::structure(base::list(value = NULL, visible = NULL, 1597s [00:53:17.744] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1597s [00:53:17.744] ...future.rng), started = ...future.startTime, 1597s [00:53:17.744] finished = Sys.time(), session_uuid = NA_character_, 1597s [00:53:17.744] version = "1.8"), class = "FutureResult") 1597s [00:53:17.744] }, finally = { 1597s [00:53:17.744] if (!identical(...future.workdir, getwd())) 1597s [00:53:17.744] setwd(...future.workdir) 1597s [00:53:17.744] { 1597s [00:53:17.744] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1597s [00:53:17.744] ...future.oldOptions$nwarnings <- NULL 1597s [00:53:17.744] } 1597s [00:53:17.744] base::options(...future.oldOptions) 1597s [00:53:17.744] if (.Platform$OS.type == "windows") { 1597s [00:53:17.744] old_names <- names(...future.oldEnvVars) 1597s [00:53:17.744] envs <- base::Sys.getenv() 1597s [00:53:17.744] names <- names(envs) 1597s [00:53:17.744] common <- intersect(names, old_names) 1597s [00:53:17.744] added <- setdiff(names, old_names) 1597s [00:53:17.744] removed <- setdiff(old_names, names) 1597s [00:53:17.744] changed <- common[...future.oldEnvVars[common] != 1597s [00:53:17.744] envs[common]] 1597s [00:53:17.744] NAMES <- toupper(changed) 1597s [00:53:17.744] args <- list() 1597s [00:53:17.744] for (kk in seq_along(NAMES)) { 1597s [00:53:17.744] name <- changed[[kk]] 1597s [00:53:17.744] NAME <- NAMES[[kk]] 1597s [00:53:17.744] if (name != NAME && is.element(NAME, old_names)) 1597s [00:53:17.744] next 1597s [00:53:17.744] args[[name]] <- ...future.oldEnvVars[[name]] 1597s [00:53:17.744] } 1597s [00:53:17.744] NAMES <- toupper(added) 1597s [00:53:17.744] for (kk in seq_along(NAMES)) { 1597s [00:53:17.744] name <- added[[kk]] 1597s [00:53:17.744] NAME <- NAMES[[kk]] 1597s [00:53:17.744] if (name != NAME && is.element(NAME, old_names)) 1597s [00:53:17.744] next 1597s [00:53:17.744] args[[name]] <- "" 1597s [00:53:17.744] } 1597s [00:53:17.744] NAMES <- toupper(removed) 1597s [00:53:17.744] for (kk in seq_along(NAMES)) { 1597s [00:53:17.744] name <- removed[[kk]] 1597s [00:53:17.744] NAME <- NAMES[[kk]] 1597s [00:53:17.744] if (name != NAME && is.element(NAME, old_names)) 1597s [00:53:17.744] next 1597s [00:53:17.744] args[[name]] <- ...future.oldEnvVars[[name]] 1597s [00:53:17.744] } 1597s [00:53:17.744] if (length(args) > 0) 1597s [00:53:17.744] base::do.call(base::Sys.setenv, args = args) 1597s [00:53:17.744] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1597s [00:53:17.744] } 1597s [00:53:17.744] else { 1597s [00:53:17.744] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1597s [00:53:17.744] } 1597s [00:53:17.744] { 1597s [00:53:17.744] if (base::length(...future.futureOptionsAdded) > 1597s [00:53:17.744] 0L) { 1597s [00:53:17.744] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1597s [00:53:17.744] base::names(opts) <- ...future.futureOptionsAdded 1597s [00:53:17.744] base::options(opts) 1597s [00:53:17.744] } 1597s [00:53:17.744] { 1597s [00:53:17.744] { 1597s [00:53:17.744] NULL 1597s [00:53:17.744] RNGkind("Mersenne-Twister") 1597s [00:53:17.744] base::rm(list = ".Random.seed", envir = base::globalenv(), 1597s [00:53:17.744] inherits = FALSE) 1597s [00:53:17.744] } 1597s [00:53:17.744] options(future.plan = NULL) 1597s [00:53:17.744] if (is.na(NA_character_)) 1597s [00:53:17.744] Sys.unsetenv("R_FUTURE_PLAN") 1597s [00:53:17.744] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1597s [00:53:17.744] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1597s [00:53:17.744] envir = parent.frame()) 1597s [00:53:17.744] { 1597s [00:53:17.744] default_workers <- missing(workers) 1597s [00:53:17.744] if (is.function(workers)) 1597s [00:53:17.744] workers <- workers() 1597s [00:53:17.744] workers <- structure(as.integer(workers), 1597s [00:53:17.744] class = class(workers)) 1597s [00:53:17.744] stop_if_not(is.finite(workers), workers >= 1597s [00:53:17.744] 1L) 1597s [00:53:17.744] if ((workers == 1L && !inherits(workers, 1597s [00:53:17.744] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1597s [00:53:17.744] if (default_workers) 1597s [00:53:17.744] supportsMulticore(warn = TRUE) 1597s [00:53:17.744] return(sequential(..., envir = envir)) 1597s [00:53:17.744] } 1597s [00:53:17.744] oopts <- options(mc.cores = workers) 1597s [00:53:17.744] on.exit(options(oopts)) 1597s [00:53:17.744] future <- MulticoreFuture(..., workers = workers, 1597s [00:53:17.744] envir = envir) 1597s [00:53:17.744] if (!future$lazy) 1597s [00:53:17.744] future <- run(future) 1597s [00:53:17.744] invisible(future) 1597s [00:53:17.744] }), .cleanup = FALSE, .init = FALSE) 1597s [00:53:17.744] } 1597s [00:53:17.744] } 1597s [00:53:17.744] } 1597s [00:53:17.744] }) 1597s [00:53:17.744] if (FALSE) { 1597s [00:53:17.744] base::sink(type = "output", split = FALSE) 1597s [00:53:17.744] if (NA) { 1597s [00:53:17.744] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1597s [00:53:17.744] } 1597s [00:53:17.744] else { 1597s [00:53:17.744] ...future.result["stdout"] <- base::list(NULL) 1597s [00:53:17.744] } 1597s [00:53:17.744] base::close(...future.stdout) 1597s [00:53:17.744] ...future.stdout <- NULL 1597s [00:53:17.744] } 1597s [00:53:17.744] ...future.result$conditions <- ...future.conditions 1597s [00:53:17.744] ...future.result$finished <- base::Sys.time() 1597s [00:53:17.744] ...future.result 1597s [00:53:17.744] } 1597s [00:53:17.749] assign_globals() ... 1597s [00:53:17.749] List of 5 1597s [00:53:17.749] $ ...future.FUN :function (x) 1597s [00:53:17.749] $ future.call.arguments : list() 1597s [00:53:17.749] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1597s [00:53:17.749] $ ...future.elements_ii :List of 2 1597s [00:53:17.749] ..$ : int 1 1597s [00:53:17.749] ..$ : int 0 1597s [00:53:17.749] $ ...future.seeds_ii : NULL 1597s [00:53:17.749] $ ...future.globals.maxSize: NULL 1597s [00:53:17.749] - attr(*, "where")=List of 5 1597s [00:53:17.749] ..$ ...future.FUN : 1597s [00:53:17.749] ..$ future.call.arguments : 1597s [00:53:17.749] ..$ ...future.elements_ii : 1597s [00:53:17.749] ..$ ...future.seeds_ii : 1597s [00:53:17.749] ..$ ...future.globals.maxSize: 1597s [00:53:17.749] - attr(*, "resolved")= logi FALSE 1597s [00:53:17.749] - attr(*, "total_size")= num 4720 1597s [00:53:17.749] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1597s [00:53:17.749] - attr(*, "already-done")= logi TRUE 1597s [00:53:17.755] - reassign environment for ‘...future.FUN’ 1597s [00:53:17.755] - copied ‘...future.FUN’ to environment 1597s [00:53:17.755] - copied ‘future.call.arguments’ to environment 1597s [00:53:17.755] - copied ‘...future.elements_ii’ to environment 1597s [00:53:17.756] - copied ‘...future.seeds_ii’ to environment 1597s [00:53:17.756] - copied ‘...future.globals.maxSize’ to environment 1597s [00:53:17.756] assign_globals() ... done 1597s [00:53:17.756] plan(): Setting new future strategy stack: 1597s [00:53:17.756] List of future strategies: 1597s [00:53:17.756] 1. sequential: 1597s [00:53:17.756] - args: function (..., envir = parent.frame()) 1597s [00:53:17.756] - tweaked: FALSE 1597s [00:53:17.756] - call: NULL 1597s [00:53:17.757] plan(): nbrOfWorkers() = 1 1598s [00:53:18.261] plan(): Setting new future strategy stack: 1598s [00:53:18.262] List of future strategies: 1598s [00:53:18.262] 1. multicore: 1598s [00:53:18.262] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1598s [00:53:18.262] - tweaked: FALSE 1598s [00:53:18.262] - call: plan(strategy) 1598s [00:53:18.268] plan(): nbrOfWorkers() = 1 1598s [00:53:18.269] SequentialFuture started (and completed) 1598s [00:53:18.269] - Launch lazy future ... done 1598s [00:53:18.269] run() for ‘SequentialFuture’ ... done 1598s [00:53:18.269] Created future: 1598s [00:53:18.269] SequentialFuture: 1598s [00:53:18.269] Label: ‘future_lapply-1’ 1598s [00:53:18.269] Expression: 1598s [00:53:18.269] { 1598s [00:53:18.269] do.call(function(...) { 1598s [00:53:18.269] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1598s [00:53:18.269] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1598s [00:53:18.269] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1598s [00:53:18.269] on.exit(options(oopts), add = TRUE) 1598s [00:53:18.269] } 1598s [00:53:18.269] { 1598s [00:53:18.269] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1598s [00:53:18.269] ...future.X_jj <- ...future.elements_ii[[jj]] 1598s [00:53:18.269] ...future.FUN(...future.X_jj, ...) 1598s [00:53:18.269] }) 1598s [00:53:18.269] } 1598s [00:53:18.269] }, args = future.call.arguments) 1598s [00:53:18.269] } 1598s [00:53:18.269] Lazy evaluation: FALSE 1598s [00:53:18.269] Asynchronous evaluation: FALSE 1598s [00:53:18.269] Local evaluation: TRUE 1598s [00:53:18.269] Environment: R_GlobalEnv 1598s [00:53:18.269] Capture standard output: NA 1598s [00:53:18.269] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1598s [00:53:18.269] Globals: 5 objects totaling 4.72 KiB (function ‘...future.FUN’ of 4.61 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1598s [00:53:18.269] Packages: 1598s [00:53:18.269] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1598s [00:53:18.269] Resolved: TRUE 1598s [00:53:18.269] Value: 112 bytes of class ‘list’ 1598s [00:53:18.269] Early signaling: FALSE 1598s [00:53:18.269] Owner process: aef6b2cf-a7ff-4166-a7a6-2b6e1e64c3ba 1598s [00:53:18.269] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1598s [00:53:18.271] Chunk #1 of 1 ... DONE 1598s [00:53:18.271] Launching 1 futures (chunks) ... DONE 1598s [00:53:18.272] Resolving 1 futures (chunks) ... 1598s [00:53:18.272] resolve() on list ... 1598s [00:53:18.272] recursive: 0 1598s [00:53:18.272] length: 1 1598s [00:53:18.272] 1598s [00:53:18.272] resolved() for ‘SequentialFuture’ ... 1598s [00:53:18.273] - state: ‘finished’ 1598s [00:53:18.273] - run: TRUE 1598s [00:53:18.273] - result: ‘FutureResult’ 1598s [00:53:18.273] resolved() for ‘SequentialFuture’ ... done 1598s [00:53:18.273] Future #1 1598s [00:53:18.273] signalConditionsASAP(SequentialFuture, pos=1) ... 1598s [00:53:18.274] - nx: 1 1598s [00:53:18.274] - relay: TRUE 1598s [00:53:18.274] - stdout: TRUE 1598s [00:53:18.274] - signal: TRUE 1598s [00:53:18.274] - resignal: FALSE 1598s [00:53:18.274] - force: TRUE 1598s [00:53:18.275] - relayed: [n=1] FALSE 1598s [00:53:18.275] - queued futures: [n=1] FALSE 1598s [00:53:18.275] - until=1 1598s [00:53:18.275] - relaying element #1 1598s [00:53:18.275] - relayed: [n=1] TRUE 1598s [00:53:18.275] - queued futures: [n=1] TRUE 1598s [00:53:18.275] signalConditionsASAP(SequentialFuture, pos=1) ... done 1598s [00:53:18.276] length: 0 (resolved future 1) 1598s [00:53:18.276] Relaying remaining futures 1598s [00:53:18.276] signalConditionsASAP(NULL, pos=0) ... 1598s [00:53:18.276] - nx: 1 1598s [00:53:18.276] - relay: TRUE 1598s [00:53:18.276] - stdout: TRUE 1598s [00:53:18.276] - signal: TRUE 1598s [00:53:18.276] - resignal: FALSE 1598s [00:53:18.276] - force: TRUE 1598s [00:53:18.277] - relayed: [n=1] TRUE 1598s [00:53:18.277] - queued futures: [n=1] TRUE 1598s - flush all 1598s [00:53:18.277] - relayed: [n=1] TRUE 1598s [00:53:18.277] - queued futures: [n=1] TRUE 1598s [00:53:18.277] signalConditionsASAP(NULL, pos=0) ... done 1598s [00:53:18.277] resolve() on list ... DONE 1598s [00:53:18.277] - Number of value chunks collected: 1 1598s [00:53:18.278] Resolving 1 futures (chunks) ... DONE 1598s [00:53:18.278] Reducing values from 1 chunks ... 1598s [00:53:18.278] - Number of values collected after concatenation: 2 1598s [00:53:18.278] - Number of values expected: 2 1598s [00:53:18.278] Reducing values from 1 chunks ... DONE 1598s [00:53:18.278] future_lapply() ... DONE 1598s * future_lapply(x, ..., future.stdout = NA) ... DONE 1598s * future_mapply(x, ..., future.stdout = FALSE) ... 1598s [00:53:18.279] future_mapply() ... 1598s [00:53:18.282] Number of chunks: 1 1598s [00:53:18.282] getGlobalsAndPackagesXApply() ... 1598s [00:53:18.283] - future.globals: TRUE 1598s [00:53:18.283] getGlobalsAndPackages() ... 1598s [00:53:18.283] Searching for globals... 1598s [00:53:18.285] - globals found: [6] ‘FUN’, ‘{’, ‘Sys.sleep’, ‘/’, ‘print’, ‘list’ 1598s [00:53:18.285] Searching for globals ... DONE 1598s [00:53:18.286] Resolving globals: FALSE 1598s [00:53:18.286] The total size of the 1 globals is 6.11 KiB (6256 bytes) 1598s [00:53:18.287] The total size of the 1 globals exported for future expression (‘FUN()’) is 6.11 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (6.11 KiB of class ‘function’) 1598s [00:53:18.287] - globals: [1] ‘FUN’ 1598s [00:53:18.287] 1598s [00:53:18.287] getGlobalsAndPackages() ... DONE 1598s [00:53:18.287] - globals found/used: [n=1] ‘FUN’ 1598s [00:53:18.288] - needed namespaces: [n=0] 1598s [00:53:18.288] Finding globals ... DONE 1598s [00:53:18.288] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1598s [00:53:18.288] List of 2 1598s [00:53:18.288] $ ...future.FUN:function (x, y) 1598s [00:53:18.288] $ MoreArgs : NULL 1598s [00:53:18.288] - attr(*, "where")=List of 2 1598s [00:53:18.288] ..$ ...future.FUN: 1598s [00:53:18.288] ..$ MoreArgs : 1598s [00:53:18.288] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1598s [00:53:18.288] - attr(*, "resolved")= logi FALSE 1598s [00:53:18.288] - attr(*, "total_size")= num NA 1598s [00:53:18.293] Packages to be attached in all futures: [n=0] 1598s [00:53:18.293] getGlobalsAndPackagesXApply() ... DONE 1598s [00:53:18.293] Number of futures (= number of chunks): 1 1598s [00:53:18.293] Launching 1 futures (chunks) ... 1598s [00:53:18.293] Chunk #1 of 1 ... 1598s [00:53:18.294] - Finding globals in '...' for chunk #1 ... 1598s [00:53:18.294] getGlobalsAndPackages() ... 1598s [00:53:18.294] Searching for globals... 1598s [00:53:18.294] 1598s [00:53:18.295] Searching for globals ... DONE 1598s [00:53:18.295] - globals: [0] 1598s [00:53:18.295] getGlobalsAndPackages() ... DONE 1598s [00:53:18.295] + additional globals found: [n=0] 1598s [00:53:18.295] + additional namespaces needed: [n=0] 1598s [00:53:18.295] - Finding globals in '...' for chunk #1 ... DONE 1598s [00:53:18.295] - seeds: 1598s [00:53:18.296] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1598s [00:53:18.296] getGlobalsAndPackages() ... 1598s [00:53:18.296] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1598s [00:53:18.296] Resolving globals: FALSE 1598s [00:53:18.297] The total size of the 5 globals is 6.33 KiB (6480 bytes) 1598s [00:53:18.297] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 6.33 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (6.11 KiB of class ‘function’), ‘...future.elements_ii’ (224 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1598s [00:53:18.298] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1598s [00:53:18.298] 1598s [00:53:18.298] getGlobalsAndPackages() ... DONE 1598s [00:53:18.299] run() for ‘Future’ ... 1598s [00:53:18.299] - state: ‘created’ 1598s [00:53:18.299] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1598s [00:53:18.303] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1598s [00:53:18.303] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1598s [00:53:18.303] - Field: ‘label’ 1598s [00:53:18.303] - Field: ‘local’ 1598s [00:53:18.303] - Field: ‘owner’ 1598s [00:53:18.303] - Field: ‘envir’ 1598s [00:53:18.303] - Field: ‘packages’ 1598s [00:53:18.304] - Field: ‘gc’ 1598s [00:53:18.304] - Field: ‘conditions’ 1598s [00:53:18.304] - Field: ‘expr’ 1598s [00:53:18.304] - Field: ‘uuid’ 1598s [00:53:18.304] - Field: ‘seed’ 1598s [00:53:18.304] - Field: ‘version’ 1598s [00:53:18.307] - Field: ‘result’ 1598s [00:53:18.307] - Field: ‘asynchronous’ 1598s [00:53:18.307] - Field: ‘calls’ 1598s [00:53:18.307] - Field: ‘globals’ 1598s [00:53:18.307] - Field: ‘stdout’ 1598s [00:53:18.307] - Field: ‘earlySignal’ 1598s [00:53:18.308] - Field: ‘lazy’ 1598s [00:53:18.308] - Field: ‘state’ 1598s [00:53:18.308] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1598s [00:53:18.308] - Launch lazy future ... 1598s [00:53:18.308] Packages needed by the future expression (n = 0): 1598s [00:53:18.308] Packages needed by future strategies (n = 0): 1598s [00:53:18.309] { 1598s [00:53:18.309] { 1598s [00:53:18.309] { 1598s [00:53:18.309] ...future.startTime <- base::Sys.time() 1598s [00:53:18.309] { 1598s [00:53:18.309] { 1598s [00:53:18.309] { 1598s [00:53:18.309] base::local({ 1598s [00:53:18.309] has_future <- base::requireNamespace("future", 1598s [00:53:18.309] quietly = TRUE) 1598s [00:53:18.309] if (has_future) { 1598s [00:53:18.309] ns <- base::getNamespace("future") 1598s [00:53:18.309] version <- ns[[".package"]][["version"]] 1598s [00:53:18.309] if (is.null(version)) 1598s [00:53:18.309] version <- utils::packageVersion("future") 1598s [00:53:18.309] } 1598s [00:53:18.309] else { 1598s [00:53:18.309] version <- NULL 1598s [00:53:18.309] } 1598s [00:53:18.309] if (!has_future || version < "1.8.0") { 1598s [00:53:18.309] info <- base::c(r_version = base::gsub("R version ", 1598s [00:53:18.309] "", base::R.version$version.string), 1598s [00:53:18.309] platform = base::sprintf("%s (%s-bit)", 1598s [00:53:18.309] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1598s [00:53:18.309] os = base::paste(base::Sys.info()[base::c("sysname", 1598s [00:53:18.309] "release", "version")], collapse = " "), 1598s [00:53:18.309] hostname = base::Sys.info()[["nodename"]]) 1598s [00:53:18.309] info <- base::sprintf("%s: %s", base::names(info), 1598s [00:53:18.309] info) 1598s [00:53:18.309] info <- base::paste(info, collapse = "; ") 1598s [00:53:18.309] if (!has_future) { 1598s [00:53:18.309] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1598s [00:53:18.309] info) 1598s [00:53:18.309] } 1598s [00:53:18.309] else { 1598s [00:53:18.309] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1598s [00:53:18.309] info, version) 1598s [00:53:18.309] } 1598s [00:53:18.309] base::stop(msg) 1598s [00:53:18.309] } 1598s [00:53:18.309] }) 1598s [00:53:18.309] } 1598s [00:53:18.309] options(future.plan = NULL) 1598s [00:53:18.309] Sys.unsetenv("R_FUTURE_PLAN") 1598s [00:53:18.309] future::plan("default", .cleanup = FALSE, .init = FALSE) 1598s [00:53:18.309] } 1598s [00:53:18.309] ...future.workdir <- getwd() 1598s [00:53:18.309] } 1598s [00:53:18.309] ...future.oldOptions <- base::as.list(base::.Options) 1598s [00:53:18.309] ...future.oldEnvVars <- base::Sys.getenv() 1598s [00:53:18.309] } 1598s [00:53:18.309] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1598s [00:53:18.309] future.globals.maxSize = NULL, future.globals.method = NULL, 1598s [00:53:18.309] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1598s [00:53:18.309] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1598s [00:53:18.309] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1598s [00:53:18.309] future.stdout.windows.reencode = NULL, width = 80L) 1598s [00:53:18.309] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1598s [00:53:18.309] base::names(...future.oldOptions)) 1598s [00:53:18.309] } 1598s [00:53:18.309] if (FALSE) { 1598s [00:53:18.309] } 1598s [00:53:18.309] else { 1598s [00:53:18.309] if (FALSE) { 1598s [00:53:18.309] ...future.stdout <- base::rawConnection(base::raw(0L), 1598s [00:53:18.309] open = "w") 1598s [00:53:18.309] } 1598s [00:53:18.309] else { 1598s [00:53:18.309] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1598s [00:53:18.309] windows = "NUL", "/dev/null"), open = "w") 1598s [00:53:18.309] } 1598s [00:53:18.309] base::sink(...future.stdout, type = "output", split = FALSE) 1598s [00:53:18.309] base::on.exit(if (!base::is.null(...future.stdout)) { 1598s [00:53:18.309] base::sink(type = "output", split = FALSE) 1598s [00:53:18.309] base::close(...future.stdout) 1598s [00:53:18.309] }, add = TRUE) 1598s [00:53:18.309] } 1598s [00:53:18.309] ...future.frame <- base::sys.nframe() 1598s [00:53:18.309] ...future.conditions <- base::list() 1598s [00:53:18.309] ...future.rng <- base::globalenv()$.Random.seed 1598s [00:53:18.309] if (FALSE) { 1598s [00:53:18.309] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1598s [00:53:18.309] "...future.value", "...future.globalenv.names", ".Random.seed") 1598s [00:53:18.309] } 1598s [00:53:18.309] ...future.result <- base::tryCatch({ 1598s [00:53:18.309] base::withCallingHandlers({ 1598s [00:53:18.309] ...future.value <- base::withVisible(base::local({ 1598s [00:53:18.309] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1598s [00:53:18.309] if (!identical(...future.globals.maxSize.org, 1598s [00:53:18.309] ...future.globals.maxSize)) { 1598s [00:53:18.309] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1598s [00:53:18.309] on.exit(options(oopts), add = TRUE) 1598s [00:53:18.309] } 1598s [00:53:18.309] { 1598s [00:53:18.309] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1598s [00:53:18.309] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1598s [00:53:18.309] USE.NAMES = FALSE) 1598s [00:53:18.309] do.call(mapply, args = args) 1598s [00:53:18.309] } 1598s [00:53:18.309] })) 1598s [00:53:18.309] future::FutureResult(value = ...future.value$value, 1598s [00:53:18.309] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1598s [00:53:18.309] ...future.rng), globalenv = if (FALSE) 1598s [00:53:18.309] list(added = base::setdiff(base::names(base::.GlobalEnv), 1598s [00:53:18.309] ...future.globalenv.names)) 1598s [00:53:18.309] else NULL, started = ...future.startTime, version = "1.8") 1598s [00:53:18.309] }, condition = base::local({ 1598s [00:53:18.309] c <- base::c 1598s [00:53:18.309] inherits <- base::inherits 1598s [00:53:18.309] invokeRestart <- base::invokeRestart 1598s [00:53:18.309] length <- base::length 1598s [00:53:18.309] list <- base::list 1598s [00:53:18.309] seq.int <- base::seq.int 1598s [00:53:18.309] signalCondition <- base::signalCondition 1598s [00:53:18.309] sys.calls <- base::sys.calls 1598s [00:53:18.309] `[[` <- base::`[[` 1598s [00:53:18.309] `+` <- base::`+` 1598s [00:53:18.309] `<<-` <- base::`<<-` 1598s [00:53:18.309] sysCalls <- function(calls = sys.calls(), from = 1L) { 1598s [00:53:18.309] calls[seq.int(from = from + 12L, to = length(calls) - 1598s [00:53:18.309] 3L)] 1598s [00:53:18.309] } 1598s [00:53:18.309] function(cond) { 1598s [00:53:18.309] is_error <- inherits(cond, "error") 1598s [00:53:18.309] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1598s [00:53:18.309] NULL) 1598s [00:53:18.309] if (is_error) { 1598s [00:53:18.309] sessionInformation <- function() { 1598s [00:53:18.309] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1598s [00:53:18.309] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1598s [00:53:18.309] search = base::search(), system = base::Sys.info()) 1598s [00:53:18.309] } 1598s [00:53:18.309] ...future.conditions[[length(...future.conditions) + 1598s [00:53:18.309] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1598s [00:53:18.309] cond$call), session = sessionInformation(), 1598s [00:53:18.309] timestamp = base::Sys.time(), signaled = 0L) 1598s [00:53:18.309] signalCondition(cond) 1598s [00:53:18.309] } 1598s [00:53:18.309] else if (!ignore && TRUE && inherits(cond, c("condition", 1598s [00:53:18.309] "immediateCondition"))) { 1598s [00:53:18.309] signal <- TRUE && inherits(cond, "immediateCondition") 1598s [00:53:18.309] ...future.conditions[[length(...future.conditions) + 1598s [00:53:18.309] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1598s [00:53:18.309] if (TRUE && !signal) { 1598s [00:53:18.309] muffleCondition <- function (cond, pattern = "^muffle") 1598s [00:53:18.309] { 1598s [00:53:18.309] inherits <- base::inherits 1598s [00:53:18.309] invokeRestart <- base::invokeRestart 1598s [00:53:18.309] is.null <- base::is.null 1598s [00:53:18.309] muffled <- FALSE 1598s [00:53:18.309] if (inherits(cond, "message")) { 1598s [00:53:18.309] muffled <- grepl(pattern, "muffleMessage") 1598s [00:53:18.309] if (muffled) 1598s [00:53:18.309] invokeRestart("muffleMessage") 1598s [00:53:18.309] } 1598s [00:53:18.309] else if (inherits(cond, "warning")) { 1598s [00:53:18.309] muffled <- grepl(pattern, "muffleWarning") 1598s [00:53:18.309] if (muffled) 1598s [00:53:18.309] invokeRestart("muffleWarning") 1598s [00:53:18.309] } 1598s [00:53:18.309] else if (inherits(cond, "condition")) { 1598s [00:53:18.309] if (!is.null(pattern)) { 1598s [00:53:18.309] computeRestarts <- base::computeRestarts 1598s [00:53:18.309] grepl <- base::grepl 1598s [00:53:18.309] restarts <- computeRestarts(cond) 1598s [00:53:18.309] for (restart in restarts) { 1598s [00:53:18.309] name <- restart$name 1598s [00:53:18.309] if (is.null(name)) 1598s [00:53:18.309] next 1598s [00:53:18.309] if (!grepl(pattern, name)) 1598s [00:53:18.309] next 1598s [00:53:18.309] invokeRestart(restart) 1598s [00:53:18.309] muffled <- TRUE 1598s [00:53:18.309] break 1598s [00:53:18.309] } 1598s [00:53:18.309] } 1598s [00:53:18.309] } 1598s [00:53:18.309] invisible(muffled) 1598s [00:53:18.309] } 1598s [00:53:18.309] muffleCondition(cond, pattern = "^muffle") 1598s [00:53:18.309] } 1598s [00:53:18.309] } 1598s [00:53:18.309] else { 1598s [00:53:18.309] if (TRUE) { 1598s [00:53:18.309] muffleCondition <- function (cond, pattern = "^muffle") 1598s [00:53:18.309] { 1598s [00:53:18.309] inherits <- base::inherits 1598s [00:53:18.309] invokeRestart <- base::invokeRestart 1598s [00:53:18.309] is.null <- base::is.null 1598s [00:53:18.309] muffled <- FALSE 1598s [00:53:18.309] if (inherits(cond, "message")) { 1598s [00:53:18.309] muffled <- grepl(pattern, "muffleMessage") 1598s [00:53:18.309] if (muffled) 1598s [00:53:18.309] invokeRestart("muffleMessage") 1598s [00:53:18.309] } 1598s [00:53:18.309] else if (inherits(cond, "warning")) { 1598s [00:53:18.309] muffled <- grepl(pattern, "muffleWarning") 1598s [00:53:18.309] if (muffled) 1598s [00:53:18.309] invokeRestart("muffleWarning") 1598s [00:53:18.309] } 1598s [00:53:18.309] else if (inherits(cond, "condition")) { 1598s [00:53:18.309] if (!is.null(pattern)) { 1598s [00:53:18.309] computeRestarts <- base::computeRestarts 1598s [00:53:18.309] grepl <- base::grepl 1598s [00:53:18.309] restarts <- computeRestarts(cond) 1598s [00:53:18.309] for (restart in restarts) { 1598s [00:53:18.309] name <- restart$name 1598s [00:53:18.309] if (is.null(name)) 1598s [00:53:18.309] next 1598s [00:53:18.309] if (!grepl(pattern, name)) 1598s [00:53:18.309] next 1598s [00:53:18.309] invokeRestart(restart) 1598s [00:53:18.309] muffled <- TRUE 1598s [00:53:18.309] break 1598s [00:53:18.309] } 1598s [00:53:18.309] } 1598s [00:53:18.309] } 1598s [00:53:18.309] invisible(muffled) 1598s [00:53:18.309] } 1598s [00:53:18.309] muffleCondition(cond, pattern = "^muffle") 1598s [00:53:18.309] } 1598s [00:53:18.309] } 1598s [00:53:18.309] } 1598s [00:53:18.309] })) 1598s [00:53:18.309] }, error = function(ex) { 1598s [00:53:18.309] base::structure(base::list(value = NULL, visible = NULL, 1598s [00:53:18.309] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1598s [00:53:18.309] ...future.rng), started = ...future.startTime, 1598s [00:53:18.309] finished = Sys.time(), session_uuid = NA_character_, 1598s [00:53:18.309] version = "1.8"), class = "FutureResult") 1598s [00:53:18.309] }, finally = { 1598s [00:53:18.309] if (!identical(...future.workdir, getwd())) 1598s [00:53:18.309] setwd(...future.workdir) 1598s [00:53:18.309] { 1598s [00:53:18.309] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1598s [00:53:18.309] ...future.oldOptions$nwarnings <- NULL 1598s [00:53:18.309] } 1598s [00:53:18.309] base::options(...future.oldOptions) 1598s [00:53:18.309] if (.Platform$OS.type == "windows") { 1598s [00:53:18.309] old_names <- names(...future.oldEnvVars) 1598s [00:53:18.309] envs <- base::Sys.getenv() 1598s [00:53:18.309] names <- names(envs) 1598s [00:53:18.309] common <- intersect(names, old_names) 1598s [00:53:18.309] added <- setdiff(names, old_names) 1598s [00:53:18.309] removed <- setdiff(old_names, names) 1598s [00:53:18.309] changed <- common[...future.oldEnvVars[common] != 1598s [00:53:18.309] envs[common]] 1598s [00:53:18.309] NAMES <- toupper(changed) 1598s [00:53:18.309] args <- list() 1598s [00:53:18.309] for (kk in seq_along(NAMES)) { 1598s [00:53:18.309] name <- changed[[kk]] 1598s [00:53:18.309] NAME <- NAMES[[kk]] 1598s [00:53:18.309] if (name != NAME && is.element(NAME, old_names)) 1598s [00:53:18.309] next 1598s [00:53:18.309] args[[name]] <- ...future.oldEnvVars[[name]] 1598s [00:53:18.309] } 1598s [00:53:18.309] NAMES <- toupper(added) 1598s [00:53:18.309] for (kk in seq_along(NAMES)) { 1598s [00:53:18.309] name <- added[[kk]] 1598s [00:53:18.309] NAME <- NAMES[[kk]] 1598s [00:53:18.309] if (name != NAME && is.element(NAME, old_names)) 1598s [00:53:18.309] next 1598s [00:53:18.309] args[[name]] <- "" 1598s [00:53:18.309] } 1598s [00:53:18.309] NAMES <- toupper(removed) 1598s [00:53:18.309] for (kk in seq_along(NAMES)) { 1598s [00:53:18.309] name <- removed[[kk]] 1598s [00:53:18.309] NAME <- NAMES[[kk]] 1598s [00:53:18.309] if (name != NAME && is.element(NAME, old_names)) 1598s [00:53:18.309] next 1598s [00:53:18.309] args[[name]] <- ...future.oldEnvVars[[name]] 1598s [00:53:18.309] } 1598s [00:53:18.309] if (length(args) > 0) 1598s [00:53:18.309] base::do.call(base::Sys.setenv, args = args) 1598s [00:53:18.309] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1598s [00:53:18.309] } 1598s [00:53:18.309] else { 1598s [00:53:18.309] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1598s [00:53:18.309] } 1598s [00:53:18.309] { 1598s [00:53:18.309] if (base::length(...future.futureOptionsAdded) > 1598s [00:53:18.309] 0L) { 1598s [00:53:18.309] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1598s [00:53:18.309] base::names(opts) <- ...future.futureOptionsAdded 1598s [00:53:18.309] base::options(opts) 1598s [00:53:18.309] } 1598s [00:53:18.309] { 1598s [00:53:18.309] { 1598s [00:53:18.309] NULL 1598s [00:53:18.309] RNGkind("Mersenne-Twister") 1598s [00:53:18.309] base::rm(list = ".Random.seed", envir = base::globalenv(), 1598s [00:53:18.309] inherits = FALSE) 1598s [00:53:18.309] } 1598s [00:53:18.309] options(future.plan = NULL) 1598s [00:53:18.309] if (is.na(NA_character_)) 1598s [00:53:18.309] Sys.unsetenv("R_FUTURE_PLAN") 1598s [00:53:18.309] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1598s [00:53:18.309] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1598s [00:53:18.309] envir = parent.frame()) 1598s [00:53:18.309] { 1598s [00:53:18.309] default_workers <- missing(workers) 1598s [00:53:18.309] if (is.function(workers)) 1598s [00:53:18.309] workers <- workers() 1598s [00:53:18.309] workers <- structure(as.integer(workers), 1598s [00:53:18.309] class = class(workers)) 1598s [00:53:18.309] stop_if_not(is.finite(workers), workers >= 1598s [00:53:18.309] 1L) 1598s [00:53:18.309] if ((workers == 1L && !inherits(workers, 1598s [00:53:18.309] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1598s [00:53:18.309] if (default_workers) 1598s [00:53:18.309] supportsMulticore(warn = TRUE) 1598s [00:53:18.309] return(sequential(..., envir = envir)) 1598s [00:53:18.309] } 1598s [00:53:18.309] oopts <- options(mc.cores = workers) 1598s [00:53:18.309] on.exit(options(oopts)) 1598s [00:53:18.309] future <- MulticoreFuture(..., workers = workers, 1598s [00:53:18.309] envir = envir) 1598s [00:53:18.309] if (!future$lazy) 1598s [00:53:18.309] future <- run(future) 1598s [00:53:18.309] invisible(future) 1598s [00:53:18.309] }), .cleanup = FALSE, .init = FALSE) 1598s [00:53:18.309] } 1598s [00:53:18.309] } 1598s [00:53:18.309] } 1598s [00:53:18.309] }) 1598s [00:53:18.309] if (TRUE) { 1598s [00:53:18.309] base::sink(type = "output", split = FALSE) 1598s [00:53:18.309] if (FALSE) { 1598s [00:53:18.309] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1598s [00:53:18.309] } 1598s [00:53:18.309] else { 1598s [00:53:18.309] ...future.result["stdout"] <- base::list(NULL) 1598s [00:53:18.309] } 1598s [00:53:18.309] base::close(...future.stdout) 1598s [00:53:18.309] ...future.stdout <- NULL 1598s [00:53:18.309] } 1598s [00:53:18.309] ...future.result$conditions <- ...future.conditions 1598s [00:53:18.309] ...future.result$finished <- base::Sys.time() 1598s [00:53:18.309] ...future.result 1598s [00:53:18.309] } 1598s [00:53:18.315] assign_globals() ... 1598s [00:53:18.315] List of 5 1598s [00:53:18.315] $ ...future.FUN :function (x, y) 1598s [00:53:18.315] $ MoreArgs : NULL 1598s [00:53:18.315] $ ...future.elements_ii :List of 2 1598s [00:53:18.315] ..$ :List of 2 1598s [00:53:18.315] .. ..$ : int 1 1598s [00:53:18.315] .. ..$ : int 0 1598s [00:53:18.315] ..$ :List of 2 1598s [00:53:18.315] .. ..$ : int 0 1598s [00:53:18.315] .. ..$ : int 1 1598s [00:53:18.315] $ ...future.seeds_ii : NULL 1598s [00:53:18.315] $ ...future.globals.maxSize: NULL 1598s [00:53:18.315] - attr(*, "where")=List of 5 1598s [00:53:18.315] ..$ ...future.FUN : 1598s [00:53:18.315] ..$ MoreArgs : 1598s [00:53:18.315] ..$ ...future.elements_ii : 1598s [00:53:18.315] ..$ ...future.seeds_ii : 1598s [00:53:18.315] ..$ ...future.globals.maxSize: 1598s [00:53:18.315] - attr(*, "resolved")= logi FALSE 1598s [00:53:18.315] - attr(*, "total_size")= num 6480 1598s [00:53:18.315] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1598s [00:53:18.315] - attr(*, "already-done")= logi TRUE 1598s [00:53:18.322] - reassign environment for ‘...future.FUN’ 1598s [00:53:18.322] - copied ‘...future.FUN’ to environment 1598s [00:53:18.322] - copied ‘MoreArgs’ to environment 1598s [00:53:18.322] - copied ‘...future.elements_ii’ to environment 1598s [00:53:18.323] - copied ‘...future.seeds_ii’ to environment 1598s [00:53:18.323] - copied ‘...future.globals.maxSize’ to environment 1598s [00:53:18.323] assign_globals() ... done 1598s [00:53:18.323] plan(): Setting new future strategy stack: 1598s [00:53:18.323] List of future strategies: 1598s [00:53:18.323] 1. sequential: 1598s [00:53:18.323] - args: function (..., envir = parent.frame()) 1598s [00:53:18.323] - tweaked: FALSE 1598s [00:53:18.323] - call: NULL 1598s [00:53:18.324] plan(): nbrOfWorkers() = 1 1598s [00:53:18.826] plan(): Setting new future strategy stack: 1598s [00:53:18.826] List of future strategies: 1598s [00:53:18.826] 1. multicore: 1598s [00:53:18.826] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1598s [00:53:18.826] - tweaked: FALSE 1598s [00:53:18.826] - call: plan(strategy) 1598s [00:53:18.831] plan(): nbrOfWorkers() = 1 1598s [00:53:18.831] SequentialFuture started (and completed) 1598s [00:53:18.832] - Launch lazy future ... done 1598s [00:53:18.832] run() for ‘SequentialFuture’ ... done 1598s [00:53:18.832] Created future: 1598s [00:53:18.832] SequentialFuture: 1598s [00:53:18.832] Label: ‘future_mapply-1’ 1598s [00:53:18.832] Expression: 1598s [00:53:18.832] { 1598s [00:53:18.832] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1598s [00:53:18.832] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1598s [00:53:18.832] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1598s [00:53:18.832] on.exit(options(oopts), add = TRUE) 1598s [00:53:18.832] } 1598s [00:53:18.832] { 1598s [00:53:18.832] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1598s [00:53:18.832] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1598s [00:53:18.832] do.call(mapply, args = args) 1598s [00:53:18.832] } 1598s [00:53:18.832] } 1598s [00:53:18.832] Lazy evaluation: FALSE 1598s [00:53:18.832] Asynchronous evaluation: FALSE 1598s [00:53:18.832] Local evaluation: TRUE 1598s [00:53:18.832] Environment: R_GlobalEnv 1598s [00:53:18.832] Capture standard output: FALSE 1598s [00:53:18.832] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1598s [00:53:18.832] Globals: 5 objects totaling 6.33 KiB (function ‘...future.FUN’ of 6.11 KiB, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1598s [00:53:18.832] Packages: 1598s [00:53:18.832] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1598s [00:53:18.832] Resolved: TRUE 1598s [00:53:18.832] Value: 224 bytes of class ‘list’ 1598s [00:53:18.832] Early signaling: FALSE 1598s [00:53:18.832] Owner process: aef6b2cf-a7ff-4166-a7a6-2b6e1e64c3ba 1598s [00:53:18.832] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1598s [00:53:18.834] Chunk #1 of 1 ... DONE 1598s [00:53:18.834] Launching 1 futures (chunks) ... DONE 1598s [00:53:18.834] Resolving 1 futures (chunks) ... 1598s [00:53:18.835] resolve() on list ... 1598s [00:53:18.835] recursive: 0 1598s [00:53:18.835] length: 1 1598s [00:53:18.835] 1598s [00:53:18.835] resolved() for ‘SequentialFuture’ ... 1598s [00:53:18.835] - state: ‘finished’ 1598s [00:53:18.836] - run: TRUE 1598s [00:53:18.836] - result: ‘FutureResult’ 1598s [00:53:18.836] resolved() for ‘SequentialFuture’ ... done 1598s [00:53:18.836] Future #1 1598s [00:53:18.836] signalConditionsASAP(SequentialFuture, pos=1) ... 1598s [00:53:18.837] - nx: 1 1598s [00:53:18.837] - relay: TRUE 1598s [00:53:18.837] - stdout: TRUE 1598s [00:53:18.837] - signal: TRUE 1598s [00:53:18.837] - resignal: FALSE 1598s [00:53:18.837] - force: TRUE 1598s [00:53:18.837] - relayed: [n=1] FALSE 1598s [00:53:18.838] - queued futures: [n=1] FALSE 1598s [00:53:18.838] - until=1 1598s [00:53:18.838] - relaying element #1 1598s [00:53:18.838] - relayed: [n=1] TRUE 1598s [00:53:18.838] - queued futures: [n=1] TRUE 1598s [00:53:18.839] signalConditionsASAP(SequentialFuture, pos=1) ... done 1598s [00:53:18.839] length: 0 (resolved future 1) 1598s [00:53:18.839] Relaying remaining futures 1598s [00:53:18.839] signalConditionsASAP(NULL, pos=0) ... 1598s [00:53:18.839] - nx: 1 1598s [00:53:18.839] - relay: TRUE 1598s [00:53:18.839] - stdout: TRUE 1598s [00:53:18.840] - signal: TRUE 1598s [00:53:18.840] - resignal: FALSE 1598s [00:53:18.840] - force: TRUE 1598s [00:53:18.840] - relayed: [n=1] TRUE 1598s [00:53:18.840] - queued futures: [n=1] TRUE 1598s - flush all 1598s [00:53:18.841] - relayed: [n=1] TRUE 1598s [00:53:18.841] - queued futures: [n=1] TRUE 1598s [00:53:18.841] signalConditionsASAP(NULL, pos=0) ... done 1598s [00:53:18.841] resolve() on list ... DONE 1598s [00:53:18.841] - Number of value chunks collected: 1 1598s [00:53:18.841] Resolving 1 futures (chunks) ... DONE 1598s [00:53:18.841] Reducing values from 1 chunks ... 1598s [00:53:18.841] - Number of values collected after concatenation: 2 1598s [00:53:18.842] - Number of values expected: 2 1598s [00:53:18.842] Reducing values from 1 chunks ... DONE 1598s [00:53:18.842] future_mapply() ... DONE 1598s * future_mapply(x, ..., future.stdout = FALSE) ... DONE 1598s * future_mapply(x, ..., future.stdout = TRUE) ... 1598s [00:53:18.842] future_mapply() ... 1598s [00:53:18.846] Number of chunks: 1 1598s [00:53:18.846] getGlobalsAndPackagesXApply() ... 1598s [00:53:18.846] - future.globals: TRUE 1598s [00:53:18.846] getGlobalsAndPackages() ... 1598s [00:53:18.847] Searching for globals... 1598s [00:53:18.849] - globals found: [6] ‘FUN’, ‘{’, ‘Sys.sleep’, ‘/’, ‘print’, ‘list’ 1598s [00:53:18.849] Searching for globals ... DONE 1598s [00:53:18.849] Resolving globals: FALSE 1598s [00:53:18.850] The total size of the 1 globals is 6.11 KiB (6256 bytes) 1598s [00:53:18.854] The total size of the 1 globals exported for future expression (‘FUN()’) is 6.11 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (6.11 KiB of class ‘function’) 1598s [00:53:18.854] - globals: [1] ‘FUN’ 1598s [00:53:18.854] 1598s [00:53:18.854] getGlobalsAndPackages() ... DONE 1598s [00:53:18.854] - globals found/used: [n=1] ‘FUN’ 1598s [00:53:18.854] - needed namespaces: [n=0] 1598s [00:53:18.855] Finding globals ... DONE 1598s [00:53:18.855] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1598s [00:53:18.855] List of 2 1598s [00:53:18.855] $ ...future.FUN:function (x, y) 1598s [00:53:18.855] $ MoreArgs : NULL 1598s [00:53:18.855] - attr(*, "where")=List of 2 1598s [00:53:18.855] ..$ ...future.FUN: 1598s [00:53:18.855] ..$ MoreArgs : 1598s [00:53:18.855] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1598s [00:53:18.855] - attr(*, "resolved")= logi FALSE 1598s [00:53:18.855] - attr(*, "total_size")= num NA 1598s [00:53:18.859] Packages to be attached in all futures: [n=0] 1598s [00:53:18.859] getGlobalsAndPackagesXApply() ... DONE 1598s [00:53:18.859] Number of futures (= number of chunks): 1 1598s [00:53:18.859] Launching 1 futures (chunks) ... 1598s [00:53:18.859] Chunk #1 of 1 ... 1598s [00:53:18.860] - Finding globals in '...' for chunk #1 ... 1598s [00:53:18.860] getGlobalsAndPackages() ... 1598s [00:53:18.860] Searching for globals... 1598s [00:53:18.860] 1598s [00:53:18.860] Searching for globals ... DONE 1598s [00:53:18.861] - globals: [0] 1598s [00:53:18.861] getGlobalsAndPackages() ... DONE 1598s [00:53:18.861] + additional globals found: [n=0] 1598s [00:53:18.861] + additional namespaces needed: [n=0] 1598s [00:53:18.861] - Finding globals in '...' for chunk #1 ... DONE 1598s [00:53:18.861] - seeds: 1598s [00:53:18.861] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1598s [00:53:18.861] getGlobalsAndPackages() ... 1598s [00:53:18.862] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1598s [00:53:18.862] Resolving globals: FALSE 1598s [00:53:18.862] The total size of the 5 globals is 6.33 KiB (6480 bytes) 1598s [00:53:18.863] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 6.33 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (6.11 KiB of class ‘function’), ‘...future.elements_ii’ (224 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1598s [00:53:18.863] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1598s [00:53:18.863] 1598s [00:53:18.864] getGlobalsAndPackages() ... DONE 1598s [00:53:18.864] run() for ‘Future’ ... 1598s [00:53:18.864] - state: ‘created’ 1598s [00:53:18.864] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1598s [00:53:18.868] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1598s [00:53:18.868] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1598s [00:53:18.868] - Field: ‘label’ 1598s [00:53:18.868] - Field: ‘local’ 1598s [00:53:18.869] - Field: ‘owner’ 1598s [00:53:18.869] - Field: ‘envir’ 1598s [00:53:18.869] - Field: ‘packages’ 1598s [00:53:18.869] - Field: ‘gc’ 1598s [00:53:18.869] - Field: ‘conditions’ 1598s [00:53:18.869] - Field: ‘expr’ 1598s [00:53:18.870] - Field: ‘uuid’ 1598s [00:53:18.870] - Field: ‘seed’ 1598s [00:53:18.870] - Field: ‘version’ 1598s [00:53:18.870] - Field: ‘result’ 1598s [00:53:18.870] - Field: ‘asynchronous’ 1598s [00:53:18.870] - Field: ‘calls’ 1598s [00:53:18.871] - Field: ‘globals’ 1598s [00:53:18.871] - Field: ‘stdout’ 1598s [00:53:18.871] - Field: ‘earlySignal’ 1598s [00:53:18.871] - Field: ‘lazy’ 1598s [00:53:18.871] - Field: ‘state’ 1598s [00:53:18.871] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1598s [00:53:18.871] - Launch lazy future ... 1598s [00:53:18.872] Packages needed by the future expression (n = 0): 1598s [00:53:18.872] Packages needed by future strategies (n = 0): 1598s [00:53:18.872] { 1598s [00:53:18.872] { 1598s [00:53:18.872] { 1598s [00:53:18.872] ...future.startTime <- base::Sys.time() 1598s [00:53:18.872] { 1598s [00:53:18.872] { 1598s [00:53:18.872] { 1598s [00:53:18.872] base::local({ 1598s [00:53:18.872] has_future <- base::requireNamespace("future", 1598s [00:53:18.872] quietly = TRUE) 1598s [00:53:18.872] if (has_future) { 1598s [00:53:18.872] ns <- base::getNamespace("future") 1598s [00:53:18.872] version <- ns[[".package"]][["version"]] 1598s [00:53:18.872] if (is.null(version)) 1598s [00:53:18.872] version <- utils::packageVersion("future") 1598s [00:53:18.872] } 1598s [00:53:18.872] else { 1598s [00:53:18.872] version <- NULL 1598s [00:53:18.872] } 1598s [00:53:18.872] if (!has_future || version < "1.8.0") { 1598s [00:53:18.872] info <- base::c(r_version = base::gsub("R version ", 1598s [00:53:18.872] "", base::R.version$version.string), 1598s [00:53:18.872] platform = base::sprintf("%s (%s-bit)", 1598s [00:53:18.872] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1598s [00:53:18.872] os = base::paste(base::Sys.info()[base::c("sysname", 1598s [00:53:18.872] "release", "version")], collapse = " "), 1598s [00:53:18.872] hostname = base::Sys.info()[["nodename"]]) 1598s [00:53:18.872] info <- base::sprintf("%s: %s", base::names(info), 1598s [00:53:18.872] info) 1598s [00:53:18.872] info <- base::paste(info, collapse = "; ") 1598s [00:53:18.872] if (!has_future) { 1598s [00:53:18.872] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1598s [00:53:18.872] info) 1598s [00:53:18.872] } 1598s [00:53:18.872] else { 1598s [00:53:18.872] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1598s [00:53:18.872] info, version) 1598s [00:53:18.872] } 1598s [00:53:18.872] base::stop(msg) 1598s [00:53:18.872] } 1598s [00:53:18.872] }) 1598s [00:53:18.872] } 1598s [00:53:18.872] options(future.plan = NULL) 1598s [00:53:18.872] Sys.unsetenv("R_FUTURE_PLAN") 1598s [00:53:18.872] future::plan("default", .cleanup = FALSE, .init = FALSE) 1598s [00:53:18.872] } 1598s [00:53:18.872] ...future.workdir <- getwd() 1598s [00:53:18.872] } 1598s [00:53:18.872] ...future.oldOptions <- base::as.list(base::.Options) 1598s [00:53:18.872] ...future.oldEnvVars <- base::Sys.getenv() 1598s [00:53:18.872] } 1598s [00:53:18.872] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1598s [00:53:18.872] future.globals.maxSize = NULL, future.globals.method = NULL, 1598s [00:53:18.872] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1598s [00:53:18.872] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1598s [00:53:18.872] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1598s [00:53:18.872] future.stdout.windows.reencode = NULL, width = 80L) 1598s [00:53:18.872] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1598s [00:53:18.872] base::names(...future.oldOptions)) 1598s [00:53:18.872] } 1598s [00:53:18.872] if (FALSE) { 1598s [00:53:18.872] } 1598s [00:53:18.872] else { 1598s [00:53:18.872] if (TRUE) { 1598s [00:53:18.872] ...future.stdout <- base::rawConnection(base::raw(0L), 1598s [00:53:18.872] open = "w") 1598s [00:53:18.872] } 1598s [00:53:18.872] else { 1598s [00:53:18.872] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1598s [00:53:18.872] windows = "NUL", "/dev/null"), open = "w") 1598s [00:53:18.872] } 1598s [00:53:18.872] base::sink(...future.stdout, type = "output", split = FALSE) 1598s [00:53:18.872] base::on.exit(if (!base::is.null(...future.stdout)) { 1598s [00:53:18.872] base::sink(type = "output", split = FALSE) 1598s [00:53:18.872] base::close(...future.stdout) 1598s [00:53:18.872] }, add = TRUE) 1598s [00:53:18.872] } 1598s [00:53:18.872] ...future.frame <- base::sys.nframe() 1598s [00:53:18.872] ...future.conditions <- base::list() 1598s [00:53:18.872] ...future.rng <- base::globalenv()$.Random.seed 1598s [00:53:18.872] if (FALSE) { 1598s [00:53:18.872] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1598s [00:53:18.872] "...future.value", "...future.globalenv.names", ".Random.seed") 1598s [00:53:18.872] } 1598s [00:53:18.872] ...future.result <- base::tryCatch({ 1598s [00:53:18.872] base::withCallingHandlers({ 1598s [00:53:18.872] ...future.value <- base::withVisible(base::local({ 1598s [00:53:18.872] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1598s [00:53:18.872] if (!identical(...future.globals.maxSize.org, 1598s [00:53:18.872] ...future.globals.maxSize)) { 1598s [00:53:18.872] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1598s [00:53:18.872] on.exit(options(oopts), add = TRUE) 1598s [00:53:18.872] } 1598s [00:53:18.872] { 1598s [00:53:18.872] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1598s [00:53:18.872] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1598s [00:53:18.872] USE.NAMES = FALSE) 1598s [00:53:18.872] do.call(mapply, args = args) 1598s [00:53:18.872] } 1598s [00:53:18.872] })) 1598s [00:53:18.872] future::FutureResult(value = ...future.value$value, 1598s [00:53:18.872] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1598s [00:53:18.872] ...future.rng), globalenv = if (FALSE) 1598s [00:53:18.872] list(added = base::setdiff(base::names(base::.GlobalEnv), 1598s [00:53:18.872] ...future.globalenv.names)) 1598s [00:53:18.872] else NULL, started = ...future.startTime, version = "1.8") 1598s [00:53:18.872] }, condition = base::local({ 1598s [00:53:18.872] c <- base::c 1598s [00:53:18.872] inherits <- base::inherits 1598s [00:53:18.872] invokeRestart <- base::invokeRestart 1598s [00:53:18.872] length <- base::length 1598s [00:53:18.872] list <- base::list 1598s [00:53:18.872] seq.int <- base::seq.int 1598s [00:53:18.872] signalCondition <- base::signalCondition 1598s [00:53:18.872] sys.calls <- base::sys.calls 1598s [00:53:18.872] `[[` <- base::`[[` 1598s [00:53:18.872] `+` <- base::`+` 1598s [00:53:18.872] `<<-` <- base::`<<-` 1598s [00:53:18.872] sysCalls <- function(calls = sys.calls(), from = 1L) { 1598s [00:53:18.872] calls[seq.int(from = from + 12L, to = length(calls) - 1598s [00:53:18.872] 3L)] 1598s [00:53:18.872] } 1598s [00:53:18.872] function(cond) { 1598s [00:53:18.872] is_error <- inherits(cond, "error") 1598s [00:53:18.872] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1598s [00:53:18.872] NULL) 1598s [00:53:18.872] if (is_error) { 1598s [00:53:18.872] sessionInformation <- function() { 1598s [00:53:18.872] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1598s [00:53:18.872] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1598s [00:53:18.872] search = base::search(), system = base::Sys.info()) 1598s [00:53:18.872] } 1598s [00:53:18.872] ...future.conditions[[length(...future.conditions) + 1598s [00:53:18.872] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1598s [00:53:18.872] cond$call), session = sessionInformation(), 1598s [00:53:18.872] timestamp = base::Sys.time(), signaled = 0L) 1598s [00:53:18.872] signalCondition(cond) 1598s [00:53:18.872] } 1598s [00:53:18.872] else if (!ignore && TRUE && inherits(cond, c("condition", 1598s [00:53:18.872] "immediateCondition"))) { 1598s [00:53:18.872] signal <- TRUE && inherits(cond, "immediateCondition") 1598s [00:53:18.872] ...future.conditions[[length(...future.conditions) + 1598s [00:53:18.872] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1598s [00:53:18.872] if (TRUE && !signal) { 1598s [00:53:18.872] muffleCondition <- function (cond, pattern = "^muffle") 1598s [00:53:18.872] { 1598s [00:53:18.872] inherits <- base::inherits 1598s [00:53:18.872] invokeRestart <- base::invokeRestart 1598s [00:53:18.872] is.null <- base::is.null 1598s [00:53:18.872] muffled <- FALSE 1598s [00:53:18.872] if (inherits(cond, "message")) { 1598s [00:53:18.872] muffled <- grepl(pattern, "muffleMessage") 1598s [00:53:18.872] if (muffled) 1598s [00:53:18.872] invokeRestart("muffleMessage") 1598s [00:53:18.872] } 1598s [00:53:18.872] else if (inherits(cond, "warning")) { 1598s [00:53:18.872] muffled <- grepl(pattern, "muffleWarning") 1598s [00:53:18.872] if (muffled) 1598s [00:53:18.872] invokeRestart("muffleWarning") 1598s [00:53:18.872] } 1598s [00:53:18.872] else if (inherits(cond, "condition")) { 1598s [00:53:18.872] if (!is.null(pattern)) { 1598s [00:53:18.872] computeRestarts <- base::computeRestarts 1598s [00:53:18.872] grepl <- base::grepl 1598s [00:53:18.872] restarts <- computeRestarts(cond) 1598s [00:53:18.872] for (restart in restarts) { 1598s [00:53:18.872] name <- restart$name 1598s [00:53:18.872] if (is.null(name)) 1598s [00:53:18.872] next 1598s [00:53:18.872] if (!grepl(pattern, name)) 1598s [00:53:18.872] next 1598s [00:53:18.872] invokeRestart(restart) 1598s [00:53:18.872] muffled <- TRUE 1598s [00:53:18.872] break 1598s [00:53:18.872] } 1598s [00:53:18.872] } 1598s [00:53:18.872] } 1598s [00:53:18.872] invisible(muffled) 1598s [00:53:18.872] } 1598s [00:53:18.872] muffleCondition(cond, pattern = "^muffle") 1598s [00:53:18.872] } 1598s [00:53:18.872] } 1598s [00:53:18.872] else { 1598s [00:53:18.872] if (TRUE) { 1598s [00:53:18.872] muffleCondition <- function (cond, pattern = "^muffle") 1598s [00:53:18.872] { 1598s [00:53:18.872] inherits <- base::inherits 1598s [00:53:18.872] invokeRestart <- base::invokeRestart 1598s [00:53:18.872] is.null <- base::is.null 1598s [00:53:18.872] muffled <- FALSE 1598s [00:53:18.872] if (inherits(cond, "message")) { 1598s [00:53:18.872] muffled <- grepl(pattern, "muffleMessage") 1598s [00:53:18.872] if (muffled) 1598s [00:53:18.872] invokeRestart("muffleMessage") 1598s [00:53:18.872] } 1598s [00:53:18.872] else if (inherits(cond, "warning")) { 1598s [00:53:18.872] muffled <- grepl(pattern, "muffleWarning") 1598s [00:53:18.872] if (muffled) 1598s [00:53:18.872] invokeRestart("muffleWarning") 1598s [00:53:18.872] } 1598s [00:53:18.872] else if (inherits(cond, "condition")) { 1598s [00:53:18.872] if (!is.null(pattern)) { 1598s [00:53:18.872] computeRestarts <- base::computeRestarts 1598s [00:53:18.872] grepl <- base::grepl 1598s [00:53:18.872] restarts <- computeRestarts(cond) 1598s [00:53:18.872] for (restart in restarts) { 1598s [00:53:18.872] name <- restart$name 1598s [00:53:18.872] if (is.null(name)) 1598s [00:53:18.872] next 1598s [00:53:18.872] if (!grepl(pattern, name)) 1598s [00:53:18.872] next 1598s [00:53:18.872] invokeRestart(restart) 1598s [00:53:18.872] muffled <- TRUE 1598s [00:53:18.872] break 1598s [00:53:18.872] } 1598s [00:53:18.872] } 1598s [00:53:18.872] } 1598s [00:53:18.872] invisible(muffled) 1598s [00:53:18.872] } 1598s [00:53:18.872] muffleCondition(cond, pattern = "^muffle") 1598s [00:53:18.872] } 1598s [00:53:18.872] } 1598s [00:53:18.872] } 1598s [00:53:18.872] })) 1598s [00:53:18.872] }, error = function(ex) { 1598s [00:53:18.872] base::structure(base::list(value = NULL, visible = NULL, 1598s [00:53:18.872] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1598s [00:53:18.872] ...future.rng), started = ...future.startTime, 1598s [00:53:18.872] finished = Sys.time(), session_uuid = NA_character_, 1598s [00:53:18.872] version = "1.8"), class = "FutureResult") 1598s [00:53:18.872] }, finally = { 1598s [00:53:18.872] if (!identical(...future.workdir, getwd())) 1598s [00:53:18.872] setwd(...future.workdir) 1598s [00:53:18.872] { 1598s [00:53:18.872] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1598s [00:53:18.872] ...future.oldOptions$nwarnings <- NULL 1598s [00:53:18.872] } 1598s [00:53:18.872] base::options(...future.oldOptions) 1598s [00:53:18.872] if (.Platform$OS.type == "windows") { 1598s [00:53:18.872] old_names <- names(...future.oldEnvVars) 1598s [00:53:18.872] envs <- base::Sys.getenv() 1598s [00:53:18.872] names <- names(envs) 1598s [00:53:18.872] common <- intersect(names, old_names) 1598s [00:53:18.872] added <- setdiff(names, old_names) 1598s [00:53:18.872] removed <- setdiff(old_names, names) 1598s [00:53:18.872] changed <- common[...future.oldEnvVars[common] != 1598s [00:53:18.872] envs[common]] 1598s [00:53:18.872] NAMES <- toupper(changed) 1598s [00:53:18.872] args <- list() 1598s [00:53:18.872] for (kk in seq_along(NAMES)) { 1598s [00:53:18.872] name <- changed[[kk]] 1598s [00:53:18.872] NAME <- NAMES[[kk]] 1598s [00:53:18.872] if (name != NAME && is.element(NAME, old_names)) 1598s [00:53:18.872] next 1598s [00:53:18.872] args[[name]] <- ...future.oldEnvVars[[name]] 1598s [00:53:18.872] } 1598s [00:53:18.872] NAMES <- toupper(added) 1598s [00:53:18.872] for (kk in seq_along(NAMES)) { 1598s [00:53:18.872] name <- added[[kk]] 1598s [00:53:18.872] NAME <- NAMES[[kk]] 1598s [00:53:18.872] if (name != NAME && is.element(NAME, old_names)) 1598s [00:53:18.872] next 1598s [00:53:18.872] args[[name]] <- "" 1598s [00:53:18.872] } 1598s [00:53:18.872] NAMES <- toupper(removed) 1598s [00:53:18.872] for (kk in seq_along(NAMES)) { 1598s [00:53:18.872] name <- removed[[kk]] 1598s [00:53:18.872] NAME <- NAMES[[kk]] 1598s [00:53:18.872] if (name != NAME && is.element(NAME, old_names)) 1598s [00:53:18.872] next 1598s [00:53:18.872] args[[name]] <- ...future.oldEnvVars[[name]] 1598s [00:53:18.872] } 1598s [00:53:18.872] if (length(args) > 0) 1598s [00:53:18.872] base::do.call(base::Sys.setenv, args = args) 1598s [00:53:18.872] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1598s [00:53:18.872] } 1598s [00:53:18.872] else { 1598s [00:53:18.872] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1598s [00:53:18.872] } 1598s [00:53:18.872] { 1598s [00:53:18.872] if (base::length(...future.futureOptionsAdded) > 1598s [00:53:18.872] 0L) { 1598s [00:53:18.872] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1598s [00:53:18.872] base::names(opts) <- ...future.futureOptionsAdded 1598s [00:53:18.872] base::options(opts) 1598s [00:53:18.872] } 1598s [00:53:18.872] { 1598s [00:53:18.872] { 1598s [00:53:18.872] NULL 1598s [00:53:18.872] RNGkind("Mersenne-Twister") 1598s [00:53:18.872] base::rm(list = ".Random.seed", envir = base::globalenv(), 1598s [00:53:18.872] inherits = FALSE) 1598s [00:53:18.872] } 1598s [00:53:18.872] options(future.plan = NULL) 1598s [00:53:18.872] if (is.na(NA_character_)) 1598s [00:53:18.872] Sys.unsetenv("R_FUTURE_PLAN") 1598s [00:53:18.872] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1598s [00:53:18.872] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1598s [00:53:18.872] envir = parent.frame()) 1598s [00:53:18.872] { 1598s [00:53:18.872] default_workers <- missing(workers) 1598s [00:53:18.872] if (is.function(workers)) 1598s [00:53:18.872] workers <- workers() 1598s [00:53:18.872] workers <- structure(as.integer(workers), 1598s [00:53:18.872] class = class(workers)) 1598s [00:53:18.872] stop_if_not(is.finite(workers), workers >= 1598s [00:53:18.872] 1L) 1598s [00:53:18.872] if ((workers == 1L && !inherits(workers, 1598s [00:53:18.872] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1598s [00:53:18.872] if (default_workers) 1598s [00:53:18.872] supportsMulticore(warn = TRUE) 1598s [00:53:18.872] return(sequential(..., envir = envir)) 1598s [00:53:18.872] } 1598s [00:53:18.872] oopts <- options(mc.cores = workers) 1598s [00:53:18.872] on.exit(options(oopts)) 1598s [00:53:18.872] future <- MulticoreFuture(..., workers = workers, 1598s [00:53:18.872] envir = envir) 1598s [00:53:18.872] if (!future$lazy) 1598s [00:53:18.872] future <- run(future) 1598s [00:53:18.872] invisible(future) 1598s [00:53:18.872] }), .cleanup = FALSE, .init = FALSE) 1598s [00:53:18.872] } 1598s [00:53:18.872] } 1598s [00:53:18.872] } 1598s [00:53:18.872] }) 1598s [00:53:18.872] if (TRUE) { 1598s [00:53:18.872] base::sink(type = "output", split = FALSE) 1598s [00:53:18.872] if (TRUE) { 1598s [00:53:18.872] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1598s [00:53:18.872] } 1598s [00:53:18.872] else { 1598s [00:53:18.872] ...future.result["stdout"] <- base::list(NULL) 1598s [00:53:18.872] } 1598s [00:53:18.872] base::close(...future.stdout) 1598s [00:53:18.872] ...future.stdout <- NULL 1598s [00:53:18.872] } 1598s [00:53:18.872] ...future.result$conditions <- ...future.conditions 1598s [00:53:18.872] ...future.result$finished <- base::Sys.time() 1598s [00:53:18.872] ...future.result 1598s [00:53:18.872] } 1598s [00:53:18.876] assign_globals() ... 1598s [00:53:18.877] List of 5 1598s [00:53:18.877] $ ...future.FUN :function (x, y) 1598s [00:53:18.877] $ MoreArgs : NULL 1598s [00:53:18.877] $ ...future.elements_ii :List of 2 1598s [00:53:18.877] ..$ :List of 2 1598s [00:53:18.877] .. ..$ : int 1 1598s [00:53:18.877] .. ..$ : int 0 1598s [00:53:18.877] ..$ :List of 2 1598s [00:53:18.877] .. ..$ : int 0 1598s [00:53:18.877] .. ..$ : int 1 1598s [00:53:18.877] $ ...future.seeds_ii : NULL 1598s [00:53:18.877] $ ...future.globals.maxSize: NULL 1598s [00:53:18.877] - attr(*, "where")=List of 5 1598s [00:53:18.877] ..$ ...future.FUN : 1598s [00:53:18.877] ..$ MoreArgs : 1598s [00:53:18.877] ..$ ...future.elements_ii : 1598s [00:53:18.877] ..$ ...future.seeds_ii : 1598s [00:53:18.877] ..$ ...future.globals.maxSize: 1598s [00:53:18.877] - attr(*, "resolved")= logi FALSE 1598s [00:53:18.877] - attr(*, "total_size")= num 6480 1598s [00:53:18.877] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1598s [00:53:18.877] - attr(*, "already-done")= logi TRUE 1598s [00:53:18.884] - reassign environment for ‘...future.FUN’ 1598s [00:53:18.885] - copied ‘...future.FUN’ to environment 1598s [00:53:18.885] - copied ‘MoreArgs’ to environment 1598s [00:53:18.885] - copied ‘...future.elements_ii’ to environment 1598s [00:53:18.885] - copied ‘...future.seeds_ii’ to environment 1598s [00:53:18.885] - copied ‘...future.globals.maxSize’ to environment 1598s [00:53:18.885] assign_globals() ... done 1598s [00:53:18.886] plan(): Setting new future strategy stack: 1598s [00:53:18.886] List of future strategies: 1598s [00:53:18.886] 1. sequential: 1598s [00:53:18.886] - args: function (..., envir = parent.frame()) 1598s [00:53:18.886] - tweaked: FALSE 1598s [00:53:18.886] - call: NULL 1598s [00:53:18.886] plan(): nbrOfWorkers() = 1 1599s [00:53:19.388] plan(): Setting new future strategy stack: 1599s [00:53:19.389] List of future strategies: 1599s [00:53:19.389] 1. multicore: 1599s [00:53:19.389] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1599s [00:53:19.389] - tweaked: FALSE 1599s [00:53:19.389] - call: plan(strategy) 1599s [00:53:19.394] plan(): nbrOfWorkers() = 1 1599s [00:53:19.394] SequentialFuture started (and completed) 1599s [00:53:19.398] - Launch lazy future ... done 1599s [00:53:19.398] run() for ‘SequentialFuture’ ... done 1599s [00:53:19.398] Created future: 1599s [00:53:19.399] SequentialFuture: 1599s [00:53:19.399] Label: ‘future_mapply-1’ 1599s [00:53:19.399] Expression: 1599s [00:53:19.399] { 1599s [00:53:19.399] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1599s [00:53:19.399] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1599s [00:53:19.399] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1599s [00:53:19.399] on.exit(options(oopts), add = TRUE) 1599s [00:53:19.399] } 1599s [00:53:19.399] { 1599s [00:53:19.399] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1599s [00:53:19.399] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1599s [00:53:19.399] do.call(mapply, args = args) 1599s [00:53:19.399] } 1599s [00:53:19.399] } 1599s [00:53:19.399] Lazy evaluation: FALSE 1599s [00:53:19.399] Asynchronous evaluation: FALSE 1599s [00:53:19.399] Local evaluation: TRUE 1599s [00:53:19.399] Environment: R_GlobalEnv 1599s [00:53:19.399] Capture standard output: TRUE 1599s [00:53:19.399] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1599s [00:53:19.399] Globals: 5 objects totaling 6.33 KiB (function ‘...future.FUN’ of 6.11 KiB, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1599s [00:53:19.399] Packages: 1599s [00:53:19.399] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1599s [00:53:19.399] Resolved: TRUE 1599s [00:53:19.399] Value: 224 bytes of class ‘list’ 1599s [00:53:19.399] Early signaling: FALSE 1599s [00:53:19.399] Owner process: aef6b2cf-a7ff-4166-a7a6-2b6e1e64c3ba 1599s [00:53:19.399] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1599s [00:53:19.400] Chunk #1 of 1 ... DONE 1599s [00:53:19.400] Launching 1 futures (chunks) ... DONE 1599s [00:53:19.401] Resolving 1 futures (chunks) ... 1599s [00:53:19.401] resolve() on list ... 1599s [00:53:19.401] recursive: 0 1599s [00:53:19.401] length: 1 1599s [00:53:19.401] 1599s [00:53:19.401] resolved() for ‘SequentialFuture’ ... 1599s [00:53:19.402] - state: ‘finished’ 1599s [00:53:19.402] - run: TRUE 1599s [00:53:19.402] - result: ‘FutureResult’ 1599s [00:53:19.402] resolved() for ‘SequentialFuture’ ... done 1599s [00:53:19.402] Future #1 1599s [00:53:19.402] signalConditionsASAP(SequentialFuture, pos=1) ... 1599s [00:53:19.402] - nx: 1 1599s [00:53:19.403] - relay: TRUE 1599s [00:53:19.403] - stdout: TRUE 1599s [00:53:19.403] - signal: TRUE 1599s [00:53:19.403] - resignal: FALSE 1599s [00:53:19.403] - force: TRUE 1599s [00:53:19.403] - relayed: [n=1] FALSE 1599s [00:53:19.403] - queued futures: [n=1] FALSE 1599s [00:53:19.403] - until=1 1599s [00:53:19.404] - relaying element #1 1599s [00:53:19.404] - relayed: [n=1] TRUE 1599s [00:53:19.404] - queued futures: [n=1] TRUE 1599s [00:53:19.404] signalConditionsASAP(SequentialFuture, pos=1) ... done 1599s [00:53:19.404] length: 0 (resolved future 1) 1599s [00:53:19.404] Relaying remaining futures 1599s [00:53:19.404] signalConditionsASAP(NULL, pos=0) ... 1599s [00:53:19.405] - nx: 1 1599s [00:53:19.405] - relay: TRUE 1599s [00:53:19.405] - stdout: TRUE 1599s [00:53:19.405] - signal: TRUE 1599s [00:53:19.405] - resignal: FALSE 1599s [00:53:19.405] - force: TRUE 1599s [00:53:19.405] - relayed: [n=1] TRUE 1599s [00:53:19.405] - queued futures: [n=1] TRUE 1599s - flush all 1599s [00:53:19.405] - relayed: [n=1] TRUE 1599s [00:53:19.406] - queued futures: [n=1] TRUE 1599s [00:53:19.406] signalConditionsASAP(NULL, pos=0) ... done 1599s [00:53:19.406] resolve() on list ... DONE 1599s [00:53:19.406] - Number of value chunks collected: 1 1599s [00:53:19.406] Resolving 1 futures (chunks) ... DONE 1599s [00:53:19.406] Reducing values from 1 chunks ... 1599s [00:53:19.406] - Number of values collected after concatenation: 2 1599s [00:53:19.406] - Number of values expected: 2 1599s [00:53:19.407] Reducing values from 1 chunks ... DONE 1599s [00:53:19.407] future_mapply() ... DONE 1599s * future_mapply(x, ..., future.stdout = TRUE) ... DONE 1599s * future_mapply(x, ..., future.stdout = NA) ... 1599s [00:53:19.407] future_mapply() ... 1599s [00:53:19.410] Number of chunks: 1 1599s [00:53:19.410] getGlobalsAndPackagesXApply() ... 1599s [00:53:19.411] - future.globals: TRUE 1599s [00:53:19.411] getGlobalsAndPackages() ... 1599s [00:53:19.411] Searching for globals... 1599s [00:53:19.413] - globals found: [6] ‘FUN’, ‘{’, ‘Sys.sleep’, ‘/’, ‘print’, ‘list’ 1599s [00:53:19.413] Searching for globals ... DONE 1599s [00:53:19.413] Resolving globals: FALSE 1599s [00:53:19.414] The total size of the 1 globals is 6.11 KiB (6256 bytes) 1599s [00:53:19.414] The total size of the 1 globals exported for future expression (‘FUN()’) is 6.11 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (6.11 KiB of class ‘function’) 1599s [00:53:19.415] - globals: [1] ‘FUN’ 1599s [00:53:19.415] 1599s [00:53:19.415] getGlobalsAndPackages() ... DONE 1599s [00:53:19.415] - globals found/used: [n=1] ‘FUN’ 1599s [00:53:19.415] - needed namespaces: [n=0] 1599s [00:53:19.416] Finding globals ... DONE 1599s [00:53:19.416] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1599s [00:53:19.416] List of 2 1599s [00:53:19.416] $ ...future.FUN:function (x, y) 1599s [00:53:19.416] $ MoreArgs : NULL 1599s [00:53:19.416] - attr(*, "where")=List of 2 1599s [00:53:19.416] ..$ ...future.FUN: 1599s [00:53:19.416] ..$ MoreArgs : 1599s [00:53:19.416] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1599s [00:53:19.416] - attr(*, "resolved")= logi FALSE 1599s [00:53:19.416] - attr(*, "total_size")= num NA 1599s [00:53:19.419] Packages to be attached in all futures: [n=0] 1599s [00:53:19.420] getGlobalsAndPackagesXApply() ... DONE 1599s [00:53:19.420] Number of futures (= number of chunks): 1 1599s [00:53:19.420] Launching 1 futures (chunks) ... 1599s [00:53:19.420] Chunk #1 of 1 ... 1599s [00:53:19.420] - Finding globals in '...' for chunk #1 ... 1599s [00:53:19.420] getGlobalsAndPackages() ... 1599s [00:53:19.421] Searching for globals... 1599s [00:53:19.421] 1599s [00:53:19.421] Searching for globals ... DONE 1599s [00:53:19.421] - globals: [0] 1599s [00:53:19.421] getGlobalsAndPackages() ... DONE 1599s [00:53:19.422] + additional globals found: [n=0] 1599s [00:53:19.422] + additional namespaces needed: [n=0] 1599s [00:53:19.422] - Finding globals in '...' for chunk #1 ... DONE 1599s [00:53:19.422] - seeds: 1599s [00:53:19.422] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1599s [00:53:19.422] getGlobalsAndPackages() ... 1599s [00:53:19.422] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1599s [00:53:19.422] Resolving globals: FALSE 1599s [00:53:19.423] The total size of the 5 globals is 6.33 KiB (6480 bytes) 1599s [00:53:19.424] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 6.33 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (6.11 KiB of class ‘function’), ‘...future.elements_ii’ (224 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1599s [00:53:19.424] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1599s [00:53:19.424] 1599s [00:53:19.424] getGlobalsAndPackages() ... DONE 1599s [00:53:19.424] run() for ‘Future’ ... 1599s [00:53:19.424] - state: ‘created’ 1599s [00:53:19.425] - Future backend: ‘FutureStrategy’, ‘multicore’, ‘multiprocess’, ‘future’, ‘function’ 1599s [00:53:19.428] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1599s [00:53:19.429] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1599s [00:53:19.429] - Field: ‘label’ 1599s [00:53:19.429] - Field: ‘local’ 1599s [00:53:19.429] - Field: ‘owner’ 1599s [00:53:19.429] - Field: ‘envir’ 1599s [00:53:19.429] - Field: ‘packages’ 1599s [00:53:19.430] - Field: ‘gc’ 1599s [00:53:19.430] - Field: ‘conditions’ 1599s [00:53:19.430] - Field: ‘expr’ 1599s [00:53:19.430] - Field: ‘uuid’ 1599s [00:53:19.430] - Field: ‘seed’ 1599s [00:53:19.430] - Field: ‘version’ 1599s [00:53:19.430] - Field: ‘result’ 1599s [00:53:19.431] - Field: ‘asynchronous’ 1599s [00:53:19.431] - Field: ‘calls’ 1599s [00:53:19.431] - Field: ‘globals’ 1599s [00:53:19.431] - Field: ‘stdout’ 1599s [00:53:19.431] - Field: ‘earlySignal’ 1599s [00:53:19.431] - Field: ‘lazy’ 1599s [00:53:19.432] - Field: ‘state’ 1599s [00:53:19.432] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1599s [00:53:19.432] - Launch lazy future ... 1599s [00:53:19.432] Packages needed by the future expression (n = 0): 1599s [00:53:19.432] Packages needed by future strategies (n = 0): 1599s [00:53:19.434] { 1599s [00:53:19.434] { 1599s [00:53:19.434] { 1599s [00:53:19.434] ...future.startTime <- base::Sys.time() 1599s [00:53:19.434] { 1599s [00:53:19.434] { 1599s [00:53:19.434] { 1599s [00:53:19.434] base::local({ 1599s [00:53:19.434] has_future <- base::requireNamespace("future", 1599s [00:53:19.434] quietly = TRUE) 1599s [00:53:19.434] if (has_future) { 1599s [00:53:19.434] ns <- base::getNamespace("future") 1599s [00:53:19.434] version <- ns[[".package"]][["version"]] 1599s [00:53:19.434] if (is.null(version)) 1599s [00:53:19.434] version <- utils::packageVersion("future") 1599s [00:53:19.434] } 1599s [00:53:19.434] else { 1599s [00:53:19.434] version <- NULL 1599s [00:53:19.434] } 1599s [00:53:19.434] if (!has_future || version < "1.8.0") { 1599s [00:53:19.434] info <- base::c(r_version = base::gsub("R version ", 1599s [00:53:19.434] "", base::R.version$version.string), 1599s [00:53:19.434] platform = base::sprintf("%s (%s-bit)", 1599s [00:53:19.434] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1599s [00:53:19.434] os = base::paste(base::Sys.info()[base::c("sysname", 1599s [00:53:19.434] "release", "version")], collapse = " "), 1599s [00:53:19.434] hostname = base::Sys.info()[["nodename"]]) 1599s [00:53:19.434] info <- base::sprintf("%s: %s", base::names(info), 1599s [00:53:19.434] info) 1599s [00:53:19.434] info <- base::paste(info, collapse = "; ") 1599s [00:53:19.434] if (!has_future) { 1599s [00:53:19.434] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1599s [00:53:19.434] info) 1599s [00:53:19.434] } 1599s [00:53:19.434] else { 1599s [00:53:19.434] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1599s [00:53:19.434] info, version) 1599s [00:53:19.434] } 1599s [00:53:19.434] base::stop(msg) 1599s [00:53:19.434] } 1599s [00:53:19.434] }) 1599s [00:53:19.434] } 1599s [00:53:19.434] options(future.plan = NULL) 1599s [00:53:19.434] Sys.unsetenv("R_FUTURE_PLAN") 1599s [00:53:19.434] future::plan("default", .cleanup = FALSE, .init = FALSE) 1599s [00:53:19.434] } 1599s [00:53:19.434] ...future.workdir <- getwd() 1599s [00:53:19.434] } 1599s [00:53:19.434] ...future.oldOptions <- base::as.list(base::.Options) 1599s [00:53:19.434] ...future.oldEnvVars <- base::Sys.getenv() 1599s [00:53:19.434] } 1599s [00:53:19.434] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1599s [00:53:19.434] future.globals.maxSize = NULL, future.globals.method = NULL, 1599s [00:53:19.434] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1599s [00:53:19.434] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1599s [00:53:19.434] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1599s [00:53:19.434] future.stdout.windows.reencode = NULL, width = 80L) 1599s [00:53:19.434] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1599s [00:53:19.434] base::names(...future.oldOptions)) 1599s [00:53:19.434] } 1599s [00:53:19.434] if (TRUE) { 1599s [00:53:19.434] } 1599s [00:53:19.434] else { 1599s [00:53:19.434] if (NA) { 1599s [00:53:19.434] ...future.stdout <- base::rawConnection(base::raw(0L), 1599s [00:53:19.434] open = "w") 1599s [00:53:19.434] } 1599s [00:53:19.434] else { 1599s [00:53:19.434] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1599s [00:53:19.434] windows = "NUL", "/dev/null"), open = "w") 1599s [00:53:19.434] } 1599s [00:53:19.434] base::sink(...future.stdout, type = "output", split = FALSE) 1599s [00:53:19.434] base::on.exit(if (!base::is.null(...future.stdout)) { 1599s [00:53:19.434] base::sink(type = "output", split = FALSE) 1599s [00:53:19.434] base::close(...future.stdout) 1599s [00:53:19.434] }, add = TRUE) 1599s [00:53:19.434] } 1599s [00:53:19.434] ...future.frame <- base::sys.nframe() 1599s [00:53:19.434] ...future.conditions <- base::list() 1599s [00:53:19.434] ...future.rng <- base::globalenv()$.Random.seed 1599s [00:53:19.434] if (FALSE) { 1599s [00:53:19.434] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1599s [00:53:19.434] "...future.value", "...future.globalenv.names", ".Random.seed") 1599s [00:53:19.434] } 1599s [00:53:19.434] ...future.result <- base::tryCatch({ 1599s [00:53:19.434] base::withCallingHandlers({ 1599s [00:53:19.434] ...future.value <- base::withVisible(base::local({ 1599s [00:53:19.434] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1599s [00:53:19.434] if (!identical(...future.globals.maxSize.org, 1599s [00:53:19.434] ...future.globals.maxSize)) { 1599s [00:53:19.434] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1599s [00:53:19.434] on.exit(options(oopts), add = TRUE) 1599s [00:53:19.434] } 1599s [00:53:19.434] { 1599s [00:53:19.434] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1599s [00:53:19.434] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1599s [00:53:19.434] USE.NAMES = FALSE) 1599s [00:53:19.434] do.call(mapply, args = args) 1599s [00:53:19.434] } 1599s [00:53:19.434] })) 1599s [00:53:19.434] future::FutureResult(value = ...future.value$value, 1599s [00:53:19.434] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1599s [00:53:19.434] ...future.rng), globalenv = if (FALSE) 1599s [00:53:19.434] list(added = base::setdiff(base::names(base::.GlobalEnv), 1599s [00:53:19.434] ...future.globalenv.names)) 1599s [00:53:19.434] else NULL, started = ...future.startTime, version = "1.8") 1599s [00:53:19.434] }, condition = base::local({ 1599s [00:53:19.434] c <- base::c 1599s [00:53:19.434] inherits <- base::inherits 1599s [00:53:19.434] invokeRestart <- base::invokeRestart 1599s [00:53:19.434] length <- base::length 1599s [00:53:19.434] list <- base::list 1599s [00:53:19.434] seq.int <- base::seq.int 1599s [00:53:19.434] signalCondition <- base::signalCondition 1599s [00:53:19.434] sys.calls <- base::sys.calls 1599s [00:53:19.434] `[[` <- base::`[[` 1599s [00:53:19.434] `+` <- base::`+` 1599s [00:53:19.434] `<<-` <- base::`<<-` 1599s [00:53:19.434] sysCalls <- function(calls = sys.calls(), from = 1L) { 1599s [00:53:19.434] calls[seq.int(from = from + 12L, to = length(calls) - 1599s [00:53:19.434] 3L)] 1599s [00:53:19.434] } 1599s [00:53:19.434] function(cond) { 1599s [00:53:19.434] is_error <- inherits(cond, "error") 1599s [00:53:19.434] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1599s [00:53:19.434] NULL) 1599s [00:53:19.434] if (is_error) { 1599s [00:53:19.434] sessionInformation <- function() { 1599s [00:53:19.434] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1599s [00:53:19.434] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1599s [00:53:19.434] search = base::search(), system = base::Sys.info()) 1599s [00:53:19.434] } 1599s [00:53:19.434] ...future.conditions[[length(...future.conditions) + 1599s [00:53:19.434] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1599s [00:53:19.434] cond$call), session = sessionInformation(), 1599s [00:53:19.434] timestamp = base::Sys.time(), signaled = 0L) 1599s [00:53:19.434] signalCondition(cond) 1599s [00:53:19.434] } 1599s [00:53:19.434] else if (!ignore && TRUE && inherits(cond, c("condition", 1599s [00:53:19.434] "immediateCondition"))) { 1599s [00:53:19.434] signal <- TRUE && inherits(cond, "immediateCondition") 1599s [00:53:19.434] ...future.conditions[[length(...future.conditions) + 1599s [00:53:19.434] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1599s [00:53:19.434] if (TRUE && !signal) { 1599s [00:53:19.434] muffleCondition <- function (cond, pattern = "^muffle") 1599s [00:53:19.434] { 1599s [00:53:19.434] inherits <- base::inherits 1599s [00:53:19.434] invokeRestart <- base::invokeRestart 1599s [00:53:19.434] is.null <- base::is.null 1599s [00:53:19.434] muffled <- FALSE 1599s [00:53:19.434] if (inherits(cond, "message")) { 1599s [00:53:19.434] muffled <- grepl(pattern, "muffleMessage") 1599s [00:53:19.434] if (muffled) 1599s [00:53:19.434] invokeRestart("muffleMessage") 1599s [00:53:19.434] } 1599s [00:53:19.434] else if (inherits(cond, "warning")) { 1599s [00:53:19.434] muffled <- grepl(pattern, "muffleWarning") 1599s [00:53:19.434] if (muffled) 1599s [00:53:19.434] invokeRestart("muffleWarning") 1599s [00:53:19.434] } 1599s [00:53:19.434] else if (inherits(cond, "condition")) { 1599s [00:53:19.434] if (!is.null(pattern)) { 1599s [00:53:19.434] computeRestarts <- base::computeRestarts 1599s [00:53:19.434] grepl <- base::grepl 1599s [00:53:19.434] restarts <- computeRestarts(cond) 1599s [00:53:19.434] for (restart in restarts) { 1599s [00:53:19.434] name <- restart$name 1599s [00:53:19.434] if (is.null(name)) 1599s [00:53:19.434] next 1599s [00:53:19.434] if (!grepl(pattern, name)) 1599s [00:53:19.434] next 1599s [00:53:19.434] invokeRestart(restart) 1599s [00:53:19.434] muffled <- TRUE 1599s [00:53:19.434] break 1599s [00:53:19.434] } 1599s [00:53:19.434] } 1599s [00:53:19.434] } 1599s [00:53:19.434] invisible(muffled) 1599s [00:53:19.434] } 1599s [00:53:19.434] muffleCondition(cond, pattern = "^muffle") 1599s [00:53:19.434] } 1599s [00:53:19.434] } 1599s [00:53:19.434] else { 1599s [00:53:19.434] if (TRUE) { 1599s [00:53:19.434] muffleCondition <- function (cond, pattern = "^muffle") 1599s [00:53:19.434] { 1599s [00:53:19.434] inherits <- base::inherits 1599s [00:53:19.434] invokeRestart <- base::invokeRestart 1599s [00:53:19.434] is.null <- base::is.null 1599s [00:53:19.434] muffled <- FALSE 1599s [00:53:19.434] if (inherits(cond, "message")) { 1599s [00:53:19.434] muffled <- grepl(pattern, "muffleMessage") 1599s [00:53:19.434] if (muffled) 1599s [00:53:19.434] invokeRestart("muffleMessage") 1599s [00:53:19.434] } 1599s [00:53:19.434] else if (inherits(cond, "warning")) { 1599s [00:53:19.434] muffled <- grepl(pattern, "muffleWarning") 1599s [00:53:19.434] if (muffled) 1599s [00:53:19.434] invokeRestart("muffleWarning") 1599s [00:53:19.434] } 1599s [00:53:19.434] else if (inherits(cond, "condition")) { 1599s [00:53:19.434] if (!is.null(pattern)) { 1599s [00:53:19.434] computeRestarts <- base::computeRestarts 1599s [00:53:19.434] grepl <- base::grepl 1599s [00:53:19.434] restarts <- computeRestarts(cond) 1599s [00:53:19.434] for (restart in restarts) { 1599s [00:53:19.434] name <- restart$name 1599s [00:53:19.434] if (is.null(name)) 1599s [00:53:19.434] next 1599s [00:53:19.434] if (!grepl(pattern, name)) 1599s [00:53:19.434] next 1599s [00:53:19.434] invokeRestart(restart) 1599s [00:53:19.434] muffled <- TRUE 1599s [00:53:19.434] break 1599s [00:53:19.434] } 1599s [00:53:19.434] } 1599s [00:53:19.434] } 1599s [00:53:19.434] invisible(muffled) 1599s [00:53:19.434] } 1599s [00:53:19.434] muffleCondition(cond, pattern = "^muffle") 1599s [00:53:19.434] } 1599s [00:53:19.434] } 1599s [00:53:19.434] } 1599s [00:53:19.434] })) 1599s [00:53:19.434] }, error = function(ex) { 1599s [00:53:19.434] base::structure(base::list(value = NULL, visible = NULL, 1599s [00:53:19.434] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1599s [00:53:19.434] ...future.rng), started = ...future.startTime, 1599s [00:53:19.434] finished = Sys.time(), session_uuid = NA_character_, 1599s [00:53:19.434] version = "1.8"), class = "FutureResult") 1599s [00:53:19.434] }, finally = { 1599s [00:53:19.434] if (!identical(...future.workdir, getwd())) 1599s [00:53:19.434] setwd(...future.workdir) 1599s [00:53:19.434] { 1599s [00:53:19.434] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1599s [00:53:19.434] ...future.oldOptions$nwarnings <- NULL 1599s [00:53:19.434] } 1599s [00:53:19.434] base::options(...future.oldOptions) 1599s [00:53:19.434] if (.Platform$OS.type == "windows") { 1599s [00:53:19.434] old_names <- names(...future.oldEnvVars) 1599s [00:53:19.434] envs <- base::Sys.getenv() 1599s [00:53:19.434] names <- names(envs) 1599s [00:53:19.434] common <- intersect(names, old_names) 1599s [00:53:19.434] added <- setdiff(names, old_names) 1599s [00:53:19.434] removed <- setdiff(old_names, names) 1599s [00:53:19.434] changed <- common[...future.oldEnvVars[common] != 1599s [00:53:19.434] envs[common]] 1599s [00:53:19.434] NAMES <- toupper(changed) 1599s [00:53:19.434] args <- list() 1599s [00:53:19.434] for (kk in seq_along(NAMES)) { 1599s [00:53:19.434] name <- changed[[kk]] 1599s [00:53:19.434] NAME <- NAMES[[kk]] 1599s [00:53:19.434] if (name != NAME && is.element(NAME, old_names)) 1599s [00:53:19.434] next 1599s [00:53:19.434] args[[name]] <- ...future.oldEnvVars[[name]] 1599s [00:53:19.434] } 1599s [00:53:19.434] NAMES <- toupper(added) 1599s [00:53:19.434] for (kk in seq_along(NAMES)) { 1599s [00:53:19.434] name <- added[[kk]] 1599s [00:53:19.434] NAME <- NAMES[[kk]] 1599s [00:53:19.434] if (name != NAME && is.element(NAME, old_names)) 1599s [00:53:19.434] next 1599s [00:53:19.434] args[[name]] <- "" 1599s [00:53:19.434] } 1599s [00:53:19.434] NAMES <- toupper(removed) 1599s [00:53:19.434] for (kk in seq_along(NAMES)) { 1599s [00:53:19.434] name <- removed[[kk]] 1599s [00:53:19.434] NAME <- NAMES[[kk]] 1599s [00:53:19.434] if (name != NAME && is.element(NAME, old_names)) 1599s [00:53:19.434] next 1599s [00:53:19.434] args[[name]] <- ...future.oldEnvVars[[name]] 1599s [00:53:19.434] } 1599s [00:53:19.434] if (length(args) > 0) 1599s [00:53:19.434] base::do.call(base::Sys.setenv, args = args) 1599s [00:53:19.434] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1599s [00:53:19.434] } 1599s [00:53:19.434] else { 1599s [00:53:19.434] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1599s [00:53:19.434] } 1599s [00:53:19.434] { 1599s [00:53:19.434] if (base::length(...future.futureOptionsAdded) > 1599s [00:53:19.434] 0L) { 1599s [00:53:19.434] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1599s [00:53:19.434] base::names(opts) <- ...future.futureOptionsAdded 1599s [00:53:19.434] base::options(opts) 1599s [00:53:19.434] } 1599s [00:53:19.434] { 1599s [00:53:19.434] { 1599s [00:53:19.434] NULL 1599s [00:53:19.434] RNGkind("Mersenne-Twister") 1599s [00:53:19.434] base::rm(list = ".Random.seed", envir = base::globalenv(), 1599s [00:53:19.434] inherits = FALSE) 1599s [00:53:19.434] } 1599s [00:53:19.434] options(future.plan = NULL) 1599s [00:53:19.434] if (is.na(NA_character_)) 1599s [00:53:19.434] Sys.unsetenv("R_FUTURE_PLAN") 1599s [00:53:19.434] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1599s [00:53:19.434] future::plan(list(function (..., workers = availableCores(constraints = "multicore"), 1599s [00:53:19.434] envir = parent.frame()) 1599s [00:53:19.434] { 1599s [00:53:19.434] default_workers <- missing(workers) 1599s [00:53:19.434] if (is.function(workers)) 1599s [00:53:19.434] workers <- workers() 1599s [00:53:19.434] workers <- structure(as.integer(workers), 1599s [00:53:19.434] class = class(workers)) 1599s [00:53:19.434] stop_if_not(is.finite(workers), workers >= 1599s [00:53:19.434] 1L) 1599s [00:53:19.434] if ((workers == 1L && !inherits(workers, 1599s [00:53:19.434] "AsIs")) || !supportsMulticore(warn = TRUE)) { 1599s [00:53:19.434] if (default_workers) 1599s [00:53:19.434] supportsMulticore(warn = TRUE) 1599s [00:53:19.434] return(sequential(..., envir = envir)) 1599s [00:53:19.434] } 1599s [00:53:19.434] oopts <- options(mc.cores = workers) 1599s [00:53:19.434] on.exit(options(oopts)) 1599s [00:53:19.434] future <- MulticoreFuture(..., workers = workers, 1599s [00:53:19.434] envir = envir) 1599s [00:53:19.434] if (!future$lazy) 1599s [00:53:19.434] future <- run(future) 1599s [00:53:19.434] invisible(future) 1599s [00:53:19.434] }), .cleanup = FALSE, .init = FALSE) 1599s [00:53:19.434] } 1599s [00:53:19.434] } 1599s [00:53:19.434] } 1599s [00:53:19.434] }) 1599s [00:53:19.434] if (FALSE) { 1599s [00:53:19.434] base::sink(type = "output", split = FALSE) 1599s [00:53:19.434] if (NA) { 1599s [00:53:19.434] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1599s [00:53:19.434] } 1599s [00:53:19.434] else { 1599s [00:53:19.434] ...future.result["stdout"] <- base::list(NULL) 1599s [00:53:19.434] } 1599s [00:53:19.434] base::close(...future.stdout) 1599s [00:53:19.434] ...future.stdout <- NULL 1599s [00:53:19.434] } 1599s [00:53:19.434] ...future.result$conditions <- ...future.conditions 1599s [00:53:19.434] ...future.result$finished <- base::Sys.time() 1599s [00:53:19.434] ...future.result 1599s [00:53:19.434] } 1599s [00:53:19.439] assign_globals() ... 1599s [00:53:19.439] List of 5 1599s [00:53:19.439] $ ...future.FUN :function (x, y) 1599s [00:53:19.439] $ MoreArgs : NULL 1599s [00:53:19.439] $ ...future.elements_ii :List of 2 1599s [00:53:19.439] ..$ :List of 2 1599s [00:53:19.439] .. ..$ : int 1 1599s [00:53:19.439] .. ..$ : int 0 1599s [00:53:19.439] ..$ :List of 2 1599s [00:53:19.439] .. ..$ : int 0 1599s [00:53:19.439] .. ..$ : int 1 1599s [00:53:19.439] $ ...future.seeds_ii : NULL 1599s [00:53:19.439] $ ...future.globals.maxSize: NULL 1599s [00:53:19.439] - attr(*, "where")=List of 5 1599s [00:53:19.439] ..$ ...future.FUN : 1599s [00:53:19.439] ..$ MoreArgs : 1599s [00:53:19.439] ..$ ...future.elements_ii : 1599s [00:53:19.439] ..$ ...future.seeds_ii : 1599s [00:53:19.439] ..$ ...future.globals.maxSize: 1599s [00:53:19.439] - attr(*, "resolved")= logi FALSE 1599s [00:53:19.439] - attr(*, "total_size")= num 6480 1599s [00:53:19.439] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1599s [00:53:19.439] - attr(*, "already-done")= logi TRUE 1599s [00:53:19.448] - reassign environment for ‘...future.FUN’ 1599s [00:53:19.448] - copied ‘...future.FUN’ to environment 1599s [00:53:19.448] - copied ‘MoreArgs’ to environment 1599s [00:53:19.448] - copied ‘...future.elements_ii’ to environment 1599s [00:53:19.449] - copied ‘...future.seeds_ii’ to environment 1599s [00:53:19.449] - copied ‘...future.globals.maxSize’ to environment 1599s [00:53:19.449] assign_globals() ... done 1599s [00:53:19.449] plan(): Setting new future strategy stack: 1599s [00:53:19.449] List of future strategies: 1599s [00:53:19.449] 1. sequential: 1599s [00:53:19.449] - args: function (..., envir = parent.frame()) 1599s [00:53:19.449] - tweaked: FALSE 1599s [00:53:19.449] - call: NULL 1599s [00:53:19.450] plan(): nbrOfWorkers() = 1 1599s [00:53:19.952] plan(): Setting new future strategy stack: 1599s [00:53:19.953] List of future strategies: 1599s [00:53:19.953] 1. multicore: 1599s [00:53:19.953] - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame()) 1599s [00:53:19.953] - tweaked: FALSE 1599s [00:53:19.953] - call: plan(strategy) 1599s [00:53:19.957] plan(): nbrOfWorkers() = 1 1599s [00:53:19.957] SequentialFuture started (and completed) 1599s [00:53:19.958] - Launch lazy future ... done 1599s [00:53:19.958] run() for ‘SequentialFuture’ ... done 1599s [00:53:19.958] Created future: 1599s [00:53:19.958] SequentialFuture: 1599s [00:53:19.958] Label: ‘future_mapply-1’ 1599s [00:53:19.958] Expression: 1599s [00:53:19.958] { 1599s [00:53:19.958] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1599s [00:53:19.958] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1599s [00:53:19.958] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1599s [00:53:19.958] on.exit(options(oopts), add = TRUE) 1599s [00:53:19.958] } 1599s [00:53:19.958] { 1599s [00:53:19.958] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1599s [00:53:19.958] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1599s [00:53:19.958] do.call(mapply, args = args) 1599s [00:53:19.958] } 1599s [00:53:19.958] } 1599s [00:53:19.958] Lazy evaluation: FALSE 1599s [00:53:19.958] Asynchronous evaluation: FALSE 1599s [00:53:19.958] Local evaluation: TRUE 1599s [00:53:19.958] Environment: R_GlobalEnv 1599s [00:53:19.958] Capture standard output: NA 1599s [00:53:19.958] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1599s [00:53:19.958] Globals: 5 objects totaling 6.33 KiB (function ‘...future.FUN’ of 6.11 KiB, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1599s [00:53:19.958] Packages: 1599s [00:53:19.958] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1599s [00:53:19.958] Resolved: TRUE 1599s [00:53:19.958] Value: 224 bytes of class ‘list’ 1599s [00:53:19.958] Early signaling: FALSE 1599s [00:53:19.958] Owner process: aef6b2cf-a7ff-4166-a7a6-2b6e1e64c3ba 1599s [00:53:19.958] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1599s [00:53:19.960] Chunk #1 of 1 ... DONE 1599s [00:53:19.960] Launching 1 futures (chunks) ... DONE 1599s [00:53:19.960] Resolving 1 futures (chunks) ... 1599s [00:53:19.960] resolve() on list ... 1599s [00:53:19.960] recursive: 0 1599s [00:53:19.961] length: 1 1599s [00:53:19.961] 1599s [00:53:19.961] resolved() for ‘SequentialFuture’ ... 1599s [00:53:19.961] - state: ‘finished’ 1599s [00:53:19.961] - run: TRUE 1599s [00:53:19.961] - result: ‘FutureResult’ 1599s [00:53:19.962] resolved() for ‘SequentialFuture’ ... done 1599s [00:53:19.962] Future #1 1599s [00:53:19.962] signalConditionsASAP(SequentialFuture, pos=1) ... 1599s [00:53:19.962] - nx: 1 1599s [00:53:19.962] - relay: TRUE 1599s [00:53:19.962] - stdout: TRUE 1599s [00:53:19.963] - signal: TRUE 1599s [00:53:19.963] - resignal: FALSE 1599s [00:53:19.963] - force: TRUE 1599s [00:53:19.963] - relayed: [n=1] FALSE 1599s [00:53:19.963] - queued futures: [n=1] FALSE 1599s [00:53:19.963] - until=1 1599s [00:53:19.964] - relaying element #1 1599s [00:53:19.964] - relayed: [n=1] TRUE 1599s [00:53:19.964] - queued futures: [n=1] TRUE 1599s [00:53:19.964] signalConditionsASAP(SequentialFuture, pos=1) ... done 1599s [00:53:19.964] length: 0 (resolved future 1) 1599s [00:53:19.965] Relaying remaining futures 1599s [00:53:19.965] signalConditionsASAP(NULL, pos=0) ... 1599s [00:53:19.965] - nx: 1 1599s [00:53:19.965] - relay: TRUE 1599s [00:53:19.965] - stdout: TRUE 1599s [00:53:19.965] - signal: TRUE 1599s [00:53:19.966] - resignal: FALSE 1599s [00:53:19.966] - force: TRUE 1599s [00:53:19.966] - relayed: [n=1] TRUE 1599s [00:53:19.966] - queued futures: [n=1] TRUE 1599s - flush all 1599s [00:53:19.966] - relayed: [n=1] TRUE 1599s [00:53:19.966] - queued futures: [n=1] TRUE 1599s [00:53:19.967] signalConditionsASAP(NULL, pos=0) ... done 1599s [00:53:19.967] resolve() on list ... DONE 1599s [00:53:19.967] - Number of value chunks collected: 1 1600s [00:53:19.967] Resolving 1 futures (chunks) ... DONE 1600s [00:53:19.967] Reducing values from 1 chunks ... 1600s [00:53:19.967] - Number of values collected after concatenation: 2 1600s [00:53:19.968] - Number of values expected: 2 1600s [00:53:19.968] Reducing values from 1 chunks ... DONE 1600s [00:53:19.968] future_mapply() ... DONE 1600s * future_mapply(x, ..., future.stdout = NA) ... DONE 1600s * plan('multicore') ... DONE 1600s * plan('multisession') ... 1600s [00:53:19.969] plan(): Setting new future strategy stack: 1600s [00:53:19.969] List of future strategies: 1600s [00:53:19.969] 1. multisession: 1600s [00:53:19.969] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1600s [00:53:19.969] - tweaked: FALSE 1600s [00:53:19.969] - call: plan(strategy) 1600s [00:53:19.970] plan(): plan_init() of ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ ... 1600s [00:53:19.970] multisession: 1600s [00:53:19.970] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1600s [00:53:19.970] - tweaked: FALSE 1600s [00:53:19.970] - call: plan(strategy) 1600s [00:53:19.973] getGlobalsAndPackages() ... 1600s [00:53:19.973] Not searching for globals 1600s [00:53:19.974] - globals: [0] 1600s [00:53:19.974] getGlobalsAndPackages() ... DONE 1600s [00:53:19.974] Packages needed by the future expression (n = 0): 1600s [00:53:19.975] Packages needed by future strategies (n = 0): 1600s [00:53:19.975] { 1600s [00:53:19.975] { 1600s [00:53:19.975] { 1600s [00:53:19.975] ...future.startTime <- base::Sys.time() 1600s [00:53:19.975] { 1600s [00:53:19.975] { 1600s [00:53:19.975] { 1600s [00:53:19.975] base::local({ 1600s [00:53:19.975] has_future <- base::requireNamespace("future", 1600s [00:53:19.975] quietly = TRUE) 1600s [00:53:19.975] if (has_future) { 1600s [00:53:19.975] ns <- base::getNamespace("future") 1600s [00:53:19.975] version <- ns[[".package"]][["version"]] 1600s [00:53:19.975] if (is.null(version)) 1600s [00:53:19.975] version <- utils::packageVersion("future") 1600s [00:53:19.975] } 1600s [00:53:19.975] else { 1600s [00:53:19.975] version <- NULL 1600s [00:53:19.975] } 1600s [00:53:19.975] if (!has_future || version < "1.8.0") { 1600s [00:53:19.975] info <- base::c(r_version = base::gsub("R version ", 1600s [00:53:19.975] "", base::R.version$version.string), 1600s [00:53:19.975] platform = base::sprintf("%s (%s-bit)", 1600s [00:53:19.975] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1600s [00:53:19.975] os = base::paste(base::Sys.info()[base::c("sysname", 1600s [00:53:19.975] "release", "version")], collapse = " "), 1600s [00:53:19.975] hostname = base::Sys.info()[["nodename"]]) 1600s [00:53:19.975] info <- base::sprintf("%s: %s", base::names(info), 1600s [00:53:19.975] info) 1600s [00:53:19.975] info <- base::paste(info, collapse = "; ") 1600s [00:53:19.975] if (!has_future) { 1600s [00:53:19.975] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1600s [00:53:19.975] info) 1600s [00:53:19.975] } 1600s [00:53:19.975] else { 1600s [00:53:19.975] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1600s [00:53:19.975] info, version) 1600s [00:53:19.975] } 1600s [00:53:19.975] base::stop(msg) 1600s [00:53:19.975] } 1600s [00:53:19.975] }) 1600s [00:53:19.975] } 1600s [00:53:19.975] options(future.plan = NULL) 1600s [00:53:19.975] Sys.unsetenv("R_FUTURE_PLAN") 1600s [00:53:19.975] future::plan("default", .cleanup = FALSE, .init = FALSE) 1600s [00:53:19.975] } 1600s [00:53:19.975] ...future.workdir <- getwd() 1600s [00:53:19.975] } 1600s [00:53:19.975] ...future.oldOptions <- base::as.list(base::.Options) 1600s [00:53:19.975] ...future.oldEnvVars <- base::Sys.getenv() 1600s [00:53:19.975] } 1600s [00:53:19.975] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1600s [00:53:19.975] future.globals.maxSize = NULL, future.globals.method = NULL, 1600s [00:53:19.975] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1600s [00:53:19.975] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1600s [00:53:19.975] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1600s [00:53:19.975] future.stdout.windows.reencode = NULL, width = 80L) 1600s [00:53:19.975] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1600s [00:53:19.975] base::names(...future.oldOptions)) 1600s [00:53:19.975] } 1600s [00:53:19.975] if (FALSE) { 1600s [00:53:19.975] } 1600s [00:53:19.975] else { 1600s [00:53:19.975] if (TRUE) { 1600s [00:53:19.975] ...future.stdout <- base::rawConnection(base::raw(0L), 1600s [00:53:19.975] open = "w") 1600s [00:53:19.975] } 1600s [00:53:19.975] else { 1600s [00:53:19.975] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1600s [00:53:19.975] windows = "NUL", "/dev/null"), open = "w") 1600s [00:53:19.975] } 1600s [00:53:19.975] base::sink(...future.stdout, type = "output", split = FALSE) 1600s [00:53:19.975] base::on.exit(if (!base::is.null(...future.stdout)) { 1600s [00:53:19.975] base::sink(type = "output", split = FALSE) 1600s [00:53:19.975] base::close(...future.stdout) 1600s [00:53:19.975] }, add = TRUE) 1600s [00:53:19.975] } 1600s [00:53:19.975] ...future.frame <- base::sys.nframe() 1600s [00:53:19.975] ...future.conditions <- base::list() 1600s [00:53:19.975] ...future.rng <- base::globalenv()$.Random.seed 1600s [00:53:19.975] if (FALSE) { 1600s [00:53:19.975] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1600s [00:53:19.975] "...future.value", "...future.globalenv.names", ".Random.seed") 1600s [00:53:19.975] } 1600s [00:53:19.975] ...future.result <- base::tryCatch({ 1600s [00:53:19.975] base::withCallingHandlers({ 1600s [00:53:19.975] ...future.value <- base::withVisible(base::local(NA)) 1600s [00:53:19.975] future::FutureResult(value = ...future.value$value, 1600s [00:53:19.975] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1600s [00:53:19.975] ...future.rng), globalenv = if (FALSE) 1600s [00:53:19.975] list(added = base::setdiff(base::names(base::.GlobalEnv), 1600s [00:53:19.975] ...future.globalenv.names)) 1600s [00:53:19.975] else NULL, started = ...future.startTime, version = "1.8") 1600s [00:53:19.975] }, condition = base::local({ 1600s [00:53:19.975] c <- base::c 1600s [00:53:19.975] inherits <- base::inherits 1600s [00:53:19.975] invokeRestart <- base::invokeRestart 1600s [00:53:19.975] length <- base::length 1600s [00:53:19.975] list <- base::list 1600s [00:53:19.975] seq.int <- base::seq.int 1600s [00:53:19.975] signalCondition <- base::signalCondition 1600s [00:53:19.975] sys.calls <- base::sys.calls 1600s [00:53:19.975] `[[` <- base::`[[` 1600s [00:53:19.975] `+` <- base::`+` 1600s [00:53:19.975] `<<-` <- base::`<<-` 1600s [00:53:19.975] sysCalls <- function(calls = sys.calls(), from = 1L) { 1600s [00:53:19.975] calls[seq.int(from = from + 12L, to = length(calls) - 1600s [00:53:19.975] 3L)] 1600s [00:53:19.975] } 1600s [00:53:19.975] function(cond) { 1600s [00:53:19.975] is_error <- inherits(cond, "error") 1600s [00:53:19.975] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1600s [00:53:19.975] NULL) 1600s [00:53:19.975] if (is_error) { 1600s [00:53:19.975] sessionInformation <- function() { 1600s [00:53:19.975] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1600s [00:53:19.975] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1600s [00:53:19.975] search = base::search(), system = base::Sys.info()) 1600s [00:53:19.975] } 1600s [00:53:19.975] ...future.conditions[[length(...future.conditions) + 1600s [00:53:19.975] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1600s [00:53:19.975] cond$call), session = sessionInformation(), 1600s [00:53:19.975] timestamp = base::Sys.time(), signaled = 0L) 1600s [00:53:19.975] signalCondition(cond) 1600s [00:53:19.975] } 1600s [00:53:19.975] else if (!ignore && TRUE && inherits(cond, c("condition", 1600s [00:53:19.975] "immediateCondition"))) { 1600s [00:53:19.975] signal <- TRUE && inherits(cond, "immediateCondition") 1600s [00:53:19.975] ...future.conditions[[length(...future.conditions) + 1600s [00:53:19.975] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1600s [00:53:19.975] if (TRUE && !signal) { 1600s [00:53:19.975] muffleCondition <- function (cond, pattern = "^muffle") 1600s [00:53:19.975] { 1600s [00:53:19.975] inherits <- base::inherits 1600s [00:53:19.975] invokeRestart <- base::invokeRestart 1600s [00:53:19.975] is.null <- base::is.null 1600s [00:53:19.975] muffled <- FALSE 1600s [00:53:19.975] if (inherits(cond, "message")) { 1600s [00:53:19.975] muffled <- grepl(pattern, "muffleMessage") 1600s [00:53:19.975] if (muffled) 1600s [00:53:19.975] invokeRestart("muffleMessage") 1600s [00:53:19.975] } 1600s [00:53:19.975] else if (inherits(cond, "warning")) { 1600s [00:53:19.975] muffled <- grepl(pattern, "muffleWarning") 1600s [00:53:19.975] if (muffled) 1600s [00:53:19.975] invokeRestart("muffleWarning") 1600s [00:53:19.975] } 1600s [00:53:19.975] else if (inherits(cond, "condition")) { 1600s [00:53:19.975] if (!is.null(pattern)) { 1600s [00:53:19.975] computeRestarts <- base::computeRestarts 1600s [00:53:19.975] grepl <- base::grepl 1600s [00:53:19.975] restarts <- computeRestarts(cond) 1600s [00:53:19.975] for (restart in restarts) { 1600s [00:53:19.975] name <- restart$name 1600s [00:53:19.975] if (is.null(name)) 1600s [00:53:19.975] next 1600s [00:53:19.975] if (!grepl(pattern, name)) 1600s [00:53:19.975] next 1600s [00:53:19.975] invokeRestart(restart) 1600s [00:53:19.975] muffled <- TRUE 1600s [00:53:19.975] break 1600s [00:53:19.975] } 1600s [00:53:19.975] } 1600s [00:53:19.975] } 1600s [00:53:19.975] invisible(muffled) 1600s [00:53:19.975] } 1600s [00:53:19.975] muffleCondition(cond, pattern = "^muffle") 1600s [00:53:19.975] } 1600s [00:53:19.975] } 1600s [00:53:19.975] else { 1600s [00:53:19.975] if (TRUE) { 1600s [00:53:19.975] muffleCondition <- function (cond, pattern = "^muffle") 1600s [00:53:19.975] { 1600s [00:53:19.975] inherits <- base::inherits 1600s [00:53:19.975] invokeRestart <- base::invokeRestart 1600s [00:53:19.975] is.null <- base::is.null 1600s [00:53:19.975] muffled <- FALSE 1600s [00:53:19.975] if (inherits(cond, "message")) { 1600s [00:53:19.975] muffled <- grepl(pattern, "muffleMessage") 1600s [00:53:19.975] if (muffled) 1600s [00:53:19.975] invokeRestart("muffleMessage") 1600s [00:53:19.975] } 1600s [00:53:19.975] else if (inherits(cond, "warning")) { 1600s [00:53:19.975] muffled <- grepl(pattern, "muffleWarning") 1600s [00:53:19.975] if (muffled) 1600s [00:53:19.975] invokeRestart("muffleWarning") 1600s [00:53:19.975] } 1600s [00:53:19.975] else if (inherits(cond, "condition")) { 1600s [00:53:19.975] if (!is.null(pattern)) { 1600s [00:53:19.975] computeRestarts <- base::computeRestarts 1600s [00:53:19.975] grepl <- base::grepl 1600s [00:53:19.975] restarts <- computeRestarts(cond) 1600s [00:53:19.975] for (restart in restarts) { 1600s [00:53:19.975] name <- restart$name 1600s [00:53:19.975] if (is.null(name)) 1600s [00:53:19.975] next 1600s [00:53:19.975] if (!grepl(pattern, name)) 1600s [00:53:19.975] next 1600s [00:53:19.975] invokeRestart(restart) 1600s [00:53:19.975] muffled <- TRUE 1600s [00:53:19.975] break 1600s [00:53:19.975] } 1600s [00:53:19.975] } 1600s [00:53:19.975] } 1600s [00:53:19.975] invisible(muffled) 1600s [00:53:19.975] } 1600s [00:53:19.975] muffleCondition(cond, pattern = "^muffle") 1600s [00:53:19.975] } 1600s [00:53:19.975] } 1600s [00:53:19.975] } 1600s [00:53:19.975] })) 1600s [00:53:19.975] }, error = function(ex) { 1600s [00:53:19.975] base::structure(base::list(value = NULL, visible = NULL, 1600s [00:53:19.975] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1600s [00:53:19.975] ...future.rng), started = ...future.startTime, 1600s [00:53:19.975] finished = Sys.time(), session_uuid = NA_character_, 1600s [00:53:19.975] version = "1.8"), class = "FutureResult") 1600s [00:53:19.975] }, finally = { 1600s [00:53:19.975] if (!identical(...future.workdir, getwd())) 1600s [00:53:19.975] setwd(...future.workdir) 1600s [00:53:19.975] { 1600s [00:53:19.975] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1600s [00:53:19.975] ...future.oldOptions$nwarnings <- NULL 1600s [00:53:19.975] } 1600s [00:53:19.975] base::options(...future.oldOptions) 1600s [00:53:19.975] if (.Platform$OS.type == "windows") { 1600s [00:53:19.975] old_names <- names(...future.oldEnvVars) 1600s [00:53:19.975] envs <- base::Sys.getenv() 1600s [00:53:19.975] names <- names(envs) 1600s [00:53:19.975] common <- intersect(names, old_names) 1600s [00:53:19.975] added <- setdiff(names, old_names) 1600s [00:53:19.975] removed <- setdiff(old_names, names) 1600s [00:53:19.975] changed <- common[...future.oldEnvVars[common] != 1600s [00:53:19.975] envs[common]] 1600s [00:53:19.975] NAMES <- toupper(changed) 1600s [00:53:19.975] args <- list() 1600s [00:53:19.975] for (kk in seq_along(NAMES)) { 1600s [00:53:19.975] name <- changed[[kk]] 1600s [00:53:19.975] NAME <- NAMES[[kk]] 1600s [00:53:19.975] if (name != NAME && is.element(NAME, old_names)) 1600s [00:53:19.975] next 1600s [00:53:19.975] args[[name]] <- ...future.oldEnvVars[[name]] 1600s [00:53:19.975] } 1600s [00:53:19.975] NAMES <- toupper(added) 1600s [00:53:19.975] for (kk in seq_along(NAMES)) { 1600s [00:53:19.975] name <- added[[kk]] 1600s [00:53:19.975] NAME <- NAMES[[kk]] 1600s [00:53:19.975] if (name != NAME && is.element(NAME, old_names)) 1600s [00:53:19.975] next 1600s [00:53:19.975] args[[name]] <- "" 1600s [00:53:19.975] } 1600s [00:53:19.975] NAMES <- toupper(removed) 1600s [00:53:19.975] for (kk in seq_along(NAMES)) { 1600s [00:53:19.975] name <- removed[[kk]] 1600s [00:53:19.975] NAME <- NAMES[[kk]] 1600s [00:53:19.975] if (name != NAME && is.element(NAME, old_names)) 1600s [00:53:19.975] next 1600s [00:53:19.975] args[[name]] <- ...future.oldEnvVars[[name]] 1600s [00:53:19.975] } 1600s [00:53:19.975] if (length(args) > 0) 1600s [00:53:19.975] base::do.call(base::Sys.setenv, args = args) 1600s [00:53:19.975] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1600s [00:53:19.975] } 1600s [00:53:19.975] else { 1600s [00:53:19.975] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1600s [00:53:19.975] } 1600s [00:53:19.975] { 1600s [00:53:19.975] if (base::length(...future.futureOptionsAdded) > 1600s [00:53:19.975] 0L) { 1600s [00:53:19.975] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1600s [00:53:19.975] base::names(opts) <- ...future.futureOptionsAdded 1600s [00:53:19.975] base::options(opts) 1600s [00:53:19.975] } 1600s [00:53:19.975] { 1600s [00:53:19.975] { 1600s [00:53:19.975] NULL 1600s [00:53:19.975] RNGkind("Mersenne-Twister") 1600s [00:53:19.975] base::rm(list = ".Random.seed", envir = base::globalenv(), 1600s [00:53:19.975] inherits = FALSE) 1600s [00:53:19.975] } 1600s [00:53:19.975] options(future.plan = NULL) 1600s [00:53:19.975] if (is.na(NA_character_)) 1600s [00:53:19.975] Sys.unsetenv("R_FUTURE_PLAN") 1600s [00:53:19.975] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1600s [00:53:19.975] future::plan(list(function (..., workers = availableCores(), 1600s [00:53:19.975] lazy = FALSE, rscript_libs = .libPaths(), 1600s [00:53:19.975] envir = parent.frame()) 1600s [00:53:19.975] { 1600s [00:53:19.975] if (is.function(workers)) 1600s [00:53:19.975] workers <- workers() 1600s [00:53:19.975] workers <- structure(as.integer(workers), 1600s [00:53:19.975] class = class(workers)) 1600s [00:53:19.975] stop_if_not(length(workers) == 1, is.finite(workers), 1600s [00:53:19.975] workers >= 1) 1600s [00:53:19.975] if (workers == 1L && !inherits(workers, "AsIs")) { 1600s [00:53:19.975] return(sequential(..., lazy = TRUE, envir = envir)) 1600s [00:53:19.975] } 1600s [00:53:19.975] future <- MultisessionFuture(..., workers = workers, 1600s [00:53:19.975] lazy = lazy, rscript_libs = rscript_libs, 1600s [00:53:19.975] envir = envir) 1600s [00:53:19.975] if (!future$lazy) 1600s [00:53:19.975] future <- run(future) 1600s [00:53:19.975] invisible(future) 1600s [00:53:19.975] }), .cleanup = FALSE, .init = FALSE) 1600s [00:53:19.975] } 1600s [00:53:19.975] } 1600s [00:53:19.975] } 1600s [00:53:19.975] }) 1600s [00:53:19.975] if (TRUE) { 1600s [00:53:19.975] base::sink(type = "output", split = FALSE) 1600s [00:53:19.975] if (TRUE) { 1600s [00:53:19.975] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1600s [00:53:19.975] } 1600s [00:53:19.975] else { 1600s [00:53:19.975] ...future.result["stdout"] <- base::list(NULL) 1600s [00:53:19.975] } 1600s [00:53:19.975] base::close(...future.stdout) 1600s [00:53:19.975] ...future.stdout <- NULL 1600s [00:53:19.975] } 1600s [00:53:19.975] ...future.result$conditions <- ...future.conditions 1600s [00:53:19.975] ...future.result$finished <- base::Sys.time() 1600s [00:53:19.975] ...future.result 1600s [00:53:19.975] } 1600s [00:53:19.978] plan(): Setting new future strategy stack: 1600s [00:53:19.978] List of future strategies: 1600s [00:53:19.978] 1. sequential: 1600s [00:53:19.978] - args: function (..., envir = parent.frame()) 1600s [00:53:19.978] - tweaked: FALSE 1600s [00:53:19.978] - call: NULL 1600s [00:53:19.979] plan(): nbrOfWorkers() = 1 1600s [00:53:19.980] plan(): Setting new future strategy stack: 1600s [00:53:19.980] List of future strategies: 1600s [00:53:19.980] 1. multisession: 1600s [00:53:19.980] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1600s [00:53:19.980] - tweaked: FALSE 1600s [00:53:19.980] - call: plan(strategy) 1600s [00:53:20.014] plan(): nbrOfWorkers() = 1 1600s [00:53:20.015] SequentialFuture started (and completed) 1600s [00:53:20.015] plan(): plan_init() of ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ ... DONE 1600s [00:53:20.018] plan(): nbrOfWorkers() = 1 1600s * future_lapply(x, ..., future.stdout = FALSE) ... 1600s [00:53:20.019] future_lapply() ... 1600s [00:53:20.022] Number of chunks: 1 1600s [00:53:20.023] getGlobalsAndPackagesXApply() ... 1600s [00:53:20.023] - future.globals: TRUE 1600s [00:53:20.023] getGlobalsAndPackages() ... 1600s [00:53:20.023] Searching for globals... 1600s [00:53:20.025] - globals found: [5] ‘FUN’, ‘{’, ‘Sys.sleep’, ‘/’, ‘print’ 1600s [00:53:20.025] Searching for globals ... DONE 1600s [00:53:20.025] Resolving globals: FALSE 1600s [00:53:20.026] The total size of the 1 globals is 4.61 KiB (4720 bytes) 1600s [00:53:20.026] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.61 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.61 KiB of class ‘function’) 1600s [00:53:20.026] - globals: [1] ‘FUN’ 1600s [00:53:20.027] 1600s [00:53:20.027] getGlobalsAndPackages() ... DONE 1600s [00:53:20.027] - globals found/used: [n=1] ‘FUN’ 1600s [00:53:20.027] - needed namespaces: [n=0] 1600s [00:53:20.027] Finding globals ... DONE 1600s [00:53:20.027] - use_args: TRUE 1600s [00:53:20.027] - Getting '...' globals ... 1600s [00:53:20.028] resolve() on list ... 1600s [00:53:20.028] recursive: 0 1600s [00:53:20.028] length: 1 1600s [00:53:20.028] elements: ‘...’ 1600s [00:53:20.028] length: 0 (resolved future 1) 1600s [00:53:20.028] resolve() on list ... DONE 1600s [00:53:20.028] - '...' content: [n=0] 1600s [00:53:20.029] List of 1 1600s [00:53:20.029] $ ...: list() 1600s [00:53:20.029] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1600s [00:53:20.029] - attr(*, "where")=List of 1 1600s [00:53:20.029] ..$ ...: 1600s [00:53:20.029] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1600s [00:53:20.029] - attr(*, "resolved")= logi TRUE 1600s [00:53:20.029] - attr(*, "total_size")= num NA 1600s [00:53:20.032] - Getting '...' globals ... DONE 1600s [00:53:20.032] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1600s [00:53:20.032] List of 2 1600s [00:53:20.032] $ ...future.FUN:function (x) 1600s [00:53:20.032] $ ... : list() 1600s [00:53:20.032] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1600s [00:53:20.032] - attr(*, "where")=List of 2 1600s [00:53:20.032] ..$ ...future.FUN: 1600s [00:53:20.032] ..$ ... : 1600s [00:53:20.032] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1600s [00:53:20.032] - attr(*, "resolved")= logi FALSE 1600s [00:53:20.032] - attr(*, "total_size")= num 4720 1600s [00:53:20.035] Packages to be attached in all futures: [n=0] 1600s [00:53:20.036] getGlobalsAndPackagesXApply() ... DONE 1600s [00:53:20.036] Number of futures (= number of chunks): 1 1600s [00:53:20.036] Launching 1 futures (chunks) ... 1600s [00:53:20.036] Chunk #1 of 1 ... 1600s [00:53:20.036] - Finding globals in 'X' for chunk #1 ... 1600s [00:53:20.036] getGlobalsAndPackages() ... 1600s [00:53:20.037] Searching for globals... 1600s [00:53:20.037] 1600s [00:53:20.037] Searching for globals ... DONE 1600s [00:53:20.037] - globals: [0] 1600s [00:53:20.037] getGlobalsAndPackages() ... DONE 1600s [00:53:20.037] + additional globals found: [n=0] 1600s [00:53:20.038] + additional namespaces needed: [n=0] 1600s [00:53:20.038] - Finding globals in 'X' for chunk #1 ... DONE 1600s [00:53:20.038] - seeds: 1600s [00:53:20.038] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1600s [00:53:20.038] getGlobalsAndPackages() ... 1600s [00:53:20.038] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1600s [00:53:20.038] Resolving globals: FALSE 1600s [00:53:20.039] Tweak future expression to call with '...' arguments ... 1600s [00:53:20.039] { 1600s [00:53:20.039] do.call(function(...) { 1600s [00:53:20.039] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1600s [00:53:20.039] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1600s [00:53:20.039] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1600s [00:53:20.039] on.exit(options(oopts), add = TRUE) 1600s [00:53:20.039] } 1600s [00:53:20.039] { 1600s [00:53:20.039] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1600s [00:53:20.039] ...future.X_jj <- ...future.elements_ii[[jj]] 1600s [00:53:20.039] ...future.FUN(...future.X_jj, ...) 1600s [00:53:20.039] }) 1600s [00:53:20.039] } 1600s [00:53:20.039] }, args = future.call.arguments) 1600s [00:53:20.039] } 1600s [00:53:20.039] Tweak future expression to call with '...' arguments ... DONE 1600s [00:53:20.040] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1600s [00:53:20.040] 1600s [00:53:20.040] getGlobalsAndPackages() ... DONE 1600s [00:53:20.040] run() for ‘Future’ ... 1600s [00:53:20.041] - state: ‘created’ 1600s [00:53:20.041] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1600s [00:53:20.044] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1600s [00:53:20.044] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1600s [00:53:20.044] - Field: ‘label’ 1600s [00:53:20.044] - Field: ‘local’ 1600s [00:53:20.045] - Field: ‘owner’ 1600s [00:53:20.045] - Field: ‘envir’ 1600s [00:53:20.045] - Field: ‘packages’ 1600s [00:53:20.045] - Field: ‘gc’ 1600s [00:53:20.045] - Field: ‘conditions’ 1600s [00:53:20.045] - Field: ‘expr’ 1600s [00:53:20.045] - Field: ‘uuid’ 1600s [00:53:20.045] - Field: ‘seed’ 1600s [00:53:20.045] - Field: ‘version’ 1600s [00:53:20.046] - Field: ‘result’ 1600s [00:53:20.046] - Field: ‘asynchronous’ 1600s [00:53:20.046] - Field: ‘calls’ 1600s [00:53:20.046] - Field: ‘globals’ 1600s [00:53:20.046] - Field: ‘stdout’ 1600s [00:53:20.046] - Field: ‘earlySignal’ 1600s [00:53:20.046] - Field: ‘lazy’ 1600s [00:53:20.046] - Field: ‘state’ 1600s [00:53:20.046] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1600s [00:53:20.047] - Launch lazy future ... 1600s [00:53:20.047] Packages needed by the future expression (n = 0): 1600s [00:53:20.047] Packages needed by future strategies (n = 0): 1600s [00:53:20.047] { 1600s [00:53:20.047] { 1600s [00:53:20.047] { 1600s [00:53:20.047] ...future.startTime <- base::Sys.time() 1600s [00:53:20.047] { 1600s [00:53:20.047] { 1600s [00:53:20.047] { 1600s [00:53:20.047] base::local({ 1600s [00:53:20.047] has_future <- base::requireNamespace("future", 1600s [00:53:20.047] quietly = TRUE) 1600s [00:53:20.047] if (has_future) { 1600s [00:53:20.047] ns <- base::getNamespace("future") 1600s [00:53:20.047] version <- ns[[".package"]][["version"]] 1600s [00:53:20.047] if (is.null(version)) 1600s [00:53:20.047] version <- utils::packageVersion("future") 1600s [00:53:20.047] } 1600s [00:53:20.047] else { 1600s [00:53:20.047] version <- NULL 1600s [00:53:20.047] } 1600s [00:53:20.047] if (!has_future || version < "1.8.0") { 1600s [00:53:20.047] info <- base::c(r_version = base::gsub("R version ", 1600s [00:53:20.047] "", base::R.version$version.string), 1600s [00:53:20.047] platform = base::sprintf("%s (%s-bit)", 1600s [00:53:20.047] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1600s [00:53:20.047] os = base::paste(base::Sys.info()[base::c("sysname", 1600s [00:53:20.047] "release", "version")], collapse = " "), 1600s [00:53:20.047] hostname = base::Sys.info()[["nodename"]]) 1600s [00:53:20.047] info <- base::sprintf("%s: %s", base::names(info), 1600s [00:53:20.047] info) 1600s [00:53:20.047] info <- base::paste(info, collapse = "; ") 1600s [00:53:20.047] if (!has_future) { 1600s [00:53:20.047] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1600s [00:53:20.047] info) 1600s [00:53:20.047] } 1600s [00:53:20.047] else { 1600s [00:53:20.047] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1600s [00:53:20.047] info, version) 1600s [00:53:20.047] } 1600s [00:53:20.047] base::stop(msg) 1600s [00:53:20.047] } 1600s [00:53:20.047] }) 1600s [00:53:20.047] } 1600s [00:53:20.047] options(future.plan = NULL) 1600s [00:53:20.047] Sys.unsetenv("R_FUTURE_PLAN") 1600s [00:53:20.047] future::plan("default", .cleanup = FALSE, .init = FALSE) 1600s [00:53:20.047] } 1600s [00:53:20.047] ...future.workdir <- getwd() 1600s [00:53:20.047] } 1600s [00:53:20.047] ...future.oldOptions <- base::as.list(base::.Options) 1600s [00:53:20.047] ...future.oldEnvVars <- base::Sys.getenv() 1600s [00:53:20.047] } 1600s [00:53:20.047] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1600s [00:53:20.047] future.globals.maxSize = NULL, future.globals.method = NULL, 1600s [00:53:20.047] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1600s [00:53:20.047] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1600s [00:53:20.047] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1600s [00:53:20.047] future.stdout.windows.reencode = NULL, width = 80L) 1600s [00:53:20.047] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1600s [00:53:20.047] base::names(...future.oldOptions)) 1600s [00:53:20.047] } 1600s [00:53:20.047] if (FALSE) { 1600s [00:53:20.047] } 1600s [00:53:20.047] else { 1600s [00:53:20.047] if (FALSE) { 1600s [00:53:20.047] ...future.stdout <- base::rawConnection(base::raw(0L), 1600s [00:53:20.047] open = "w") 1600s [00:53:20.047] } 1600s [00:53:20.047] else { 1600s [00:53:20.047] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1600s [00:53:20.047] windows = "NUL", "/dev/null"), open = "w") 1600s [00:53:20.047] } 1600s [00:53:20.047] base::sink(...future.stdout, type = "output", split = FALSE) 1600s [00:53:20.047] base::on.exit(if (!base::is.null(...future.stdout)) { 1600s [00:53:20.047] base::sink(type = "output", split = FALSE) 1600s [00:53:20.047] base::close(...future.stdout) 1600s [00:53:20.047] }, add = TRUE) 1600s [00:53:20.047] } 1600s [00:53:20.047] ...future.frame <- base::sys.nframe() 1600s [00:53:20.047] ...future.conditions <- base::list() 1600s [00:53:20.047] ...future.rng <- base::globalenv()$.Random.seed 1600s [00:53:20.047] if (FALSE) { 1600s [00:53:20.047] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1600s [00:53:20.047] "...future.value", "...future.globalenv.names", ".Random.seed") 1600s [00:53:20.047] } 1600s [00:53:20.047] ...future.result <- base::tryCatch({ 1600s [00:53:20.047] base::withCallingHandlers({ 1600s [00:53:20.047] ...future.value <- base::withVisible(base::local({ 1600s [00:53:20.047] do.call(function(...) { 1600s [00:53:20.047] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1600s [00:53:20.047] if (!identical(...future.globals.maxSize.org, 1600s [00:53:20.047] ...future.globals.maxSize)) { 1600s [00:53:20.047] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1600s [00:53:20.047] on.exit(options(oopts), add = TRUE) 1600s [00:53:20.047] } 1600s [00:53:20.047] { 1600s [00:53:20.047] lapply(seq_along(...future.elements_ii), 1600s [00:53:20.047] FUN = function(jj) { 1600s [00:53:20.047] ...future.X_jj <- ...future.elements_ii[[jj]] 1600s [00:53:20.047] ...future.FUN(...future.X_jj, ...) 1600s [00:53:20.047] }) 1600s [00:53:20.047] } 1600s [00:53:20.047] }, args = future.call.arguments) 1600s [00:53:20.047] })) 1600s [00:53:20.047] future::FutureResult(value = ...future.value$value, 1600s [00:53:20.047] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1600s [00:53:20.047] ...future.rng), globalenv = if (FALSE) 1600s [00:53:20.047] list(added = base::setdiff(base::names(base::.GlobalEnv), 1600s [00:53:20.047] ...future.globalenv.names)) 1600s [00:53:20.047] else NULL, started = ...future.startTime, version = "1.8") 1600s [00:53:20.047] }, condition = base::local({ 1600s [00:53:20.047] c <- base::c 1600s [00:53:20.047] inherits <- base::inherits 1600s [00:53:20.047] invokeRestart <- base::invokeRestart 1600s [00:53:20.047] length <- base::length 1600s [00:53:20.047] list <- base::list 1600s [00:53:20.047] seq.int <- base::seq.int 1600s [00:53:20.047] signalCondition <- base::signalCondition 1600s [00:53:20.047] sys.calls <- base::sys.calls 1600s [00:53:20.047] `[[` <- base::`[[` 1600s [00:53:20.047] `+` <- base::`+` 1600s [00:53:20.047] `<<-` <- base::`<<-` 1600s [00:53:20.047] sysCalls <- function(calls = sys.calls(), from = 1L) { 1600s [00:53:20.047] calls[seq.int(from = from + 12L, to = length(calls) - 1600s [00:53:20.047] 3L)] 1600s [00:53:20.047] } 1600s [00:53:20.047] function(cond) { 1600s [00:53:20.047] is_error <- inherits(cond, "error") 1600s [00:53:20.047] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1600s [00:53:20.047] NULL) 1600s [00:53:20.047] if (is_error) { 1600s [00:53:20.047] sessionInformation <- function() { 1600s [00:53:20.047] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1600s [00:53:20.047] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1600s [00:53:20.047] search = base::search(), system = base::Sys.info()) 1600s [00:53:20.047] } 1600s [00:53:20.047] ...future.conditions[[length(...future.conditions) + 1600s [00:53:20.047] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1600s [00:53:20.047] cond$call), session = sessionInformation(), 1600s [00:53:20.047] timestamp = base::Sys.time(), signaled = 0L) 1600s [00:53:20.047] signalCondition(cond) 1600s [00:53:20.047] } 1600s [00:53:20.047] else if (!ignore && TRUE && inherits(cond, c("condition", 1600s [00:53:20.047] "immediateCondition"))) { 1600s [00:53:20.047] signal <- TRUE && inherits(cond, "immediateCondition") 1600s [00:53:20.047] ...future.conditions[[length(...future.conditions) + 1600s [00:53:20.047] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1600s [00:53:20.047] if (TRUE && !signal) { 1600s [00:53:20.047] muffleCondition <- function (cond, pattern = "^muffle") 1600s [00:53:20.047] { 1600s [00:53:20.047] inherits <- base::inherits 1600s [00:53:20.047] invokeRestart <- base::invokeRestart 1600s [00:53:20.047] is.null <- base::is.null 1600s [00:53:20.047] muffled <- FALSE 1600s [00:53:20.047] if (inherits(cond, "message")) { 1600s [00:53:20.047] muffled <- grepl(pattern, "muffleMessage") 1600s [00:53:20.047] if (muffled) 1600s [00:53:20.047] invokeRestart("muffleMessage") 1600s [00:53:20.047] } 1600s [00:53:20.047] else if (inherits(cond, "warning")) { 1600s [00:53:20.047] muffled <- grepl(pattern, "muffleWarning") 1600s [00:53:20.047] if (muffled) 1600s [00:53:20.047] invokeRestart("muffleWarning") 1600s [00:53:20.047] } 1600s [00:53:20.047] else if (inherits(cond, "condition")) { 1600s [00:53:20.047] if (!is.null(pattern)) { 1600s [00:53:20.047] computeRestarts <- base::computeRestarts 1600s [00:53:20.047] grepl <- base::grepl 1600s [00:53:20.047] restarts <- computeRestarts(cond) 1600s [00:53:20.047] for (restart in restarts) { 1600s [00:53:20.047] name <- restart$name 1600s [00:53:20.047] if (is.null(name)) 1600s [00:53:20.047] next 1600s [00:53:20.047] if (!grepl(pattern, name)) 1600s [00:53:20.047] next 1600s [00:53:20.047] invokeRestart(restart) 1600s [00:53:20.047] muffled <- TRUE 1600s [00:53:20.047] break 1600s [00:53:20.047] } 1600s [00:53:20.047] } 1600s [00:53:20.047] } 1600s [00:53:20.047] invisible(muffled) 1600s [00:53:20.047] } 1600s [00:53:20.047] muffleCondition(cond, pattern = "^muffle") 1600s [00:53:20.047] } 1600s [00:53:20.047] } 1600s [00:53:20.047] else { 1600s [00:53:20.047] if (TRUE) { 1600s [00:53:20.047] muffleCondition <- function (cond, pattern = "^muffle") 1600s [00:53:20.047] { 1600s [00:53:20.047] inherits <- base::inherits 1600s [00:53:20.047] invokeRestart <- base::invokeRestart 1600s [00:53:20.047] is.null <- base::is.null 1600s [00:53:20.047] muffled <- FALSE 1600s [00:53:20.047] if (inherits(cond, "message")) { 1600s [00:53:20.047] muffled <- grepl(pattern, "muffleMessage") 1600s [00:53:20.047] if (muffled) 1600s [00:53:20.047] invokeRestart("muffleMessage") 1600s [00:53:20.047] } 1600s [00:53:20.047] else if (inherits(cond, "warning")) { 1600s [00:53:20.047] muffled <- grepl(pattern, "muffleWarning") 1600s [00:53:20.047] if (muffled) 1600s [00:53:20.047] invokeRestart("muffleWarning") 1600s [00:53:20.047] } 1600s [00:53:20.047] else if (inherits(cond, "condition")) { 1600s [00:53:20.047] if (!is.null(pattern)) { 1600s [00:53:20.047] computeRestarts <- base::computeRestarts 1600s [00:53:20.047] grepl <- base::grepl 1600s [00:53:20.047] restarts <- computeRestarts(cond) 1600s [00:53:20.047] for (restart in restarts) { 1600s [00:53:20.047] name <- restart$name 1600s [00:53:20.047] if (is.null(name)) 1600s [00:53:20.047] next 1600s [00:53:20.047] if (!grepl(pattern, name)) 1600s [00:53:20.047] next 1600s [00:53:20.047] invokeRestart(restart) 1600s [00:53:20.047] muffled <- TRUE 1600s [00:53:20.047] break 1600s [00:53:20.047] } 1600s [00:53:20.047] } 1600s [00:53:20.047] } 1600s [00:53:20.047] invisible(muffled) 1600s [00:53:20.047] } 1600s [00:53:20.047] muffleCondition(cond, pattern = "^muffle") 1600s [00:53:20.047] } 1600s [00:53:20.047] } 1600s [00:53:20.047] } 1600s [00:53:20.047] })) 1600s [00:53:20.047] }, error = function(ex) { 1600s [00:53:20.047] base::structure(base::list(value = NULL, visible = NULL, 1600s [00:53:20.047] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1600s [00:53:20.047] ...future.rng), started = ...future.startTime, 1600s [00:53:20.047] finished = Sys.time(), session_uuid = NA_character_, 1600s [00:53:20.047] version = "1.8"), class = "FutureResult") 1600s [00:53:20.047] }, finally = { 1600s [00:53:20.047] if (!identical(...future.workdir, getwd())) 1600s [00:53:20.047] setwd(...future.workdir) 1600s [00:53:20.047] { 1600s [00:53:20.047] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1600s [00:53:20.047] ...future.oldOptions$nwarnings <- NULL 1600s [00:53:20.047] } 1600s [00:53:20.047] base::options(...future.oldOptions) 1600s [00:53:20.047] if (.Platform$OS.type == "windows") { 1600s [00:53:20.047] old_names <- names(...future.oldEnvVars) 1600s [00:53:20.047] envs <- base::Sys.getenv() 1600s [00:53:20.047] names <- names(envs) 1600s [00:53:20.047] common <- intersect(names, old_names) 1600s [00:53:20.047] added <- setdiff(names, old_names) 1600s [00:53:20.047] removed <- setdiff(old_names, names) 1600s [00:53:20.047] changed <- common[...future.oldEnvVars[common] != 1600s [00:53:20.047] envs[common]] 1600s [00:53:20.047] NAMES <- toupper(changed) 1600s [00:53:20.047] args <- list() 1600s [00:53:20.047] for (kk in seq_along(NAMES)) { 1600s [00:53:20.047] name <- changed[[kk]] 1600s [00:53:20.047] NAME <- NAMES[[kk]] 1600s [00:53:20.047] if (name != NAME && is.element(NAME, old_names)) 1600s [00:53:20.047] next 1600s [00:53:20.047] args[[name]] <- ...future.oldEnvVars[[name]] 1600s [00:53:20.047] } 1600s [00:53:20.047] NAMES <- toupper(added) 1600s [00:53:20.047] for (kk in seq_along(NAMES)) { 1600s [00:53:20.047] name <- added[[kk]] 1600s [00:53:20.047] NAME <- NAMES[[kk]] 1600s [00:53:20.047] if (name != NAME && is.element(NAME, old_names)) 1600s [00:53:20.047] next 1600s [00:53:20.047] args[[name]] <- "" 1600s [00:53:20.047] } 1600s [00:53:20.047] NAMES <- toupper(removed) 1600s [00:53:20.047] for (kk in seq_along(NAMES)) { 1600s [00:53:20.047] name <- removed[[kk]] 1600s [00:53:20.047] NAME <- NAMES[[kk]] 1600s [00:53:20.047] if (name != NAME && is.element(NAME, old_names)) 1600s [00:53:20.047] next 1600s [00:53:20.047] args[[name]] <- ...future.oldEnvVars[[name]] 1600s [00:53:20.047] } 1600s [00:53:20.047] if (length(args) > 0) 1600s [00:53:20.047] base::do.call(base::Sys.setenv, args = args) 1600s [00:53:20.047] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1600s [00:53:20.047] } 1600s [00:53:20.047] else { 1600s [00:53:20.047] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1600s [00:53:20.047] } 1600s [00:53:20.047] { 1600s [00:53:20.047] if (base::length(...future.futureOptionsAdded) > 1600s [00:53:20.047] 0L) { 1600s [00:53:20.047] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1600s [00:53:20.047] base::names(opts) <- ...future.futureOptionsAdded 1600s [00:53:20.047] base::options(opts) 1600s [00:53:20.047] } 1600s [00:53:20.047] { 1600s [00:53:20.047] { 1600s [00:53:20.047] NULL 1600s [00:53:20.047] RNGkind("Mersenne-Twister") 1600s [00:53:20.047] base::rm(list = ".Random.seed", envir = base::globalenv(), 1600s [00:53:20.047] inherits = FALSE) 1600s [00:53:20.047] } 1600s [00:53:20.047] options(future.plan = NULL) 1600s [00:53:20.047] if (is.na(NA_character_)) 1600s [00:53:20.047] Sys.unsetenv("R_FUTURE_PLAN") 1600s [00:53:20.047] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1600s [00:53:20.047] future::plan(list(function (..., workers = availableCores(), 1600s [00:53:20.047] lazy = FALSE, rscript_libs = .libPaths(), 1600s [00:53:20.047] envir = parent.frame()) 1600s [00:53:20.047] { 1600s [00:53:20.047] if (is.function(workers)) 1600s [00:53:20.047] workers <- workers() 1600s [00:53:20.047] workers <- structure(as.integer(workers), 1600s [00:53:20.047] class = class(workers)) 1600s [00:53:20.047] stop_if_not(length(workers) == 1, is.finite(workers), 1600s [00:53:20.047] workers >= 1) 1600s [00:53:20.047] if (workers == 1L && !inherits(workers, "AsIs")) { 1600s [00:53:20.047] return(sequential(..., lazy = TRUE, envir = envir)) 1600s [00:53:20.047] } 1600s [00:53:20.047] future <- MultisessionFuture(..., workers = workers, 1600s [00:53:20.047] lazy = lazy, rscript_libs = rscript_libs, 1600s [00:53:20.047] envir = envir) 1600s [00:53:20.047] if (!future$lazy) 1600s [00:53:20.047] future <- run(future) 1600s [00:53:20.047] invisible(future) 1600s [00:53:20.047] }), .cleanup = FALSE, .init = FALSE) 1600s [00:53:20.047] } 1600s [00:53:20.047] } 1600s [00:53:20.047] } 1600s [00:53:20.047] }) 1600s [00:53:20.047] if (TRUE) { 1600s [00:53:20.047] base::sink(type = "output", split = FALSE) 1600s [00:53:20.047] if (FALSE) { 1600s [00:53:20.047] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1600s [00:53:20.047] } 1600s [00:53:20.047] else { 1600s [00:53:20.047] ...future.result["stdout"] <- base::list(NULL) 1600s [00:53:20.047] } 1600s [00:53:20.047] base::close(...future.stdout) 1600s [00:53:20.047] ...future.stdout <- NULL 1600s [00:53:20.047] } 1600s [00:53:20.047] ...future.result$conditions <- ...future.conditions 1600s [00:53:20.047] ...future.result$finished <- base::Sys.time() 1600s [00:53:20.047] ...future.result 1600s [00:53:20.047] } 1600s [00:53:20.051] assign_globals() ... 1600s [00:53:20.051] List of 5 1600s [00:53:20.051] $ ...future.FUN :function (x) 1600s [00:53:20.051] $ future.call.arguments : list() 1600s [00:53:20.051] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1600s [00:53:20.051] $ ...future.elements_ii :List of 2 1600s [00:53:20.051] ..$ : int 1 1600s [00:53:20.051] ..$ : int 0 1600s [00:53:20.051] $ ...future.seeds_ii : NULL 1600s [00:53:20.051] $ ...future.globals.maxSize: NULL 1600s [00:53:20.051] - attr(*, "where")=List of 5 1600s [00:53:20.051] ..$ ...future.FUN : 1600s [00:53:20.051] ..$ future.call.arguments : 1600s [00:53:20.051] ..$ ...future.elements_ii : 1600s [00:53:20.051] ..$ ...future.seeds_ii : 1600s [00:53:20.051] ..$ ...future.globals.maxSize: 1600s [00:53:20.051] - attr(*, "resolved")= logi FALSE 1600s [00:53:20.051] - attr(*, "total_size")= num 4720 1600s [00:53:20.051] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1600s [00:53:20.051] - attr(*, "already-done")= logi TRUE 1600s [00:53:20.058] - reassign environment for ‘...future.FUN’ 1600s [00:53:20.058] - copied ‘...future.FUN’ to environment 1600s [00:53:20.058] - copied ‘future.call.arguments’ to environment 1600s [00:53:20.058] - copied ‘...future.elements_ii’ to environment 1600s [00:53:20.059] - copied ‘...future.seeds_ii’ to environment 1600s [00:53:20.059] - copied ‘...future.globals.maxSize’ to environment 1600s [00:53:20.059] assign_globals() ... done 1600s [00:53:20.059] plan(): Setting new future strategy stack: 1600s [00:53:20.059] List of future strategies: 1600s [00:53:20.059] 1. sequential: 1600s [00:53:20.059] - args: function (..., envir = parent.frame()) 1600s [00:53:20.059] - tweaked: FALSE 1600s [00:53:20.059] - call: NULL 1600s [00:53:20.060] plan(): nbrOfWorkers() = 1 1600s [00:53:20.562] plan(): Setting new future strategy stack: 1600s [00:53:20.562] List of future strategies: 1600s [00:53:20.562] 1. multisession: 1600s [00:53:20.562] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1600s [00:53:20.562] - tweaked: FALSE 1600s [00:53:20.562] - call: plan(strategy) 1600s [00:53:20.567] plan(): nbrOfWorkers() = 1 1600s [00:53:20.567] SequentialFuture started (and completed) 1600s [00:53:20.567] - Launch lazy future ... done 1600s [00:53:20.567] run() for ‘SequentialFuture’ ... done 1600s [00:53:20.568] Created future: 1600s [00:53:20.568] SequentialFuture: 1600s [00:53:20.568] Label: ‘future_lapply-1’ 1600s [00:53:20.568] Expression: 1600s [00:53:20.568] { 1600s [00:53:20.568] do.call(function(...) { 1600s [00:53:20.568] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1600s [00:53:20.568] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1600s [00:53:20.568] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1600s [00:53:20.568] on.exit(options(oopts), add = TRUE) 1600s [00:53:20.568] } 1600s [00:53:20.568] { 1600s [00:53:20.568] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1600s [00:53:20.568] ...future.X_jj <- ...future.elements_ii[[jj]] 1600s [00:53:20.568] ...future.FUN(...future.X_jj, ...) 1600s [00:53:20.568] }) 1600s [00:53:20.568] } 1600s [00:53:20.568] }, args = future.call.arguments) 1600s [00:53:20.568] } 1600s [00:53:20.568] Lazy evaluation: FALSE 1600s [00:53:20.568] Asynchronous evaluation: FALSE 1600s [00:53:20.568] Local evaluation: TRUE 1600s [00:53:20.568] Environment: R_GlobalEnv 1600s [00:53:20.568] Capture standard output: FALSE 1600s [00:53:20.568] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1600s [00:53:20.568] Globals: 5 objects totaling 4.72 KiB (function ‘...future.FUN’ of 4.61 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1600s [00:53:20.568] Packages: 1600s [00:53:20.568] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1600s [00:53:20.568] Resolved: TRUE 1600s [00:53:20.568] Value: 112 bytes of class ‘list’ 1600s [00:53:20.568] Early signaling: FALSE 1600s [00:53:20.568] Owner process: aef6b2cf-a7ff-4166-a7a6-2b6e1e64c3ba 1600s [00:53:20.568] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1600s [00:53:20.570] Chunk #1 of 1 ... DONE 1600s [00:53:20.570] Launching 1 futures (chunks) ... DONE 1600s [00:53:20.570] Resolving 1 futures (chunks) ... 1600s [00:53:20.570] resolve() on list ... 1600s [00:53:20.571] recursive: 0 1600s [00:53:20.571] length: 1 1600s [00:53:20.571] 1600s [00:53:20.571] resolved() for ‘SequentialFuture’ ... 1600s [00:53:20.571] - state: ‘finished’ 1600s [00:53:20.571] - run: TRUE 1600s [00:53:20.572] - result: ‘FutureResult’ 1600s [00:53:20.572] resolved() for ‘SequentialFuture’ ... done 1600s [00:53:20.572] Future #1 1600s [00:53:20.572] signalConditionsASAP(SequentialFuture, pos=1) ... 1600s [00:53:20.572] - nx: 1 1600s [00:53:20.572] - relay: TRUE 1600s [00:53:20.573] - stdout: TRUE 1600s [00:53:20.573] - signal: TRUE 1600s [00:53:20.573] - resignal: FALSE 1600s [00:53:20.573] - force: TRUE 1600s [00:53:20.573] - relayed: [n=1] FALSE 1600s [00:53:20.573] - queued futures: [n=1] FALSE 1600s [00:53:20.574] - until=1 1600s [00:53:20.574] - relaying element #1 1600s [00:53:20.574] - relayed: [n=1] TRUE 1600s [00:53:20.574] - queued futures: [n=1] TRUE 1600s [00:53:20.574] signalConditionsASAP(SequentialFuture, pos=1) ... done 1600s [00:53:20.574] length: 0 (resolved future 1) 1600s [00:53:20.575] Relaying remaining futures 1600s [00:53:20.575] signalConditionsASAP(NULL, pos=0) ... 1600s [00:53:20.575] - nx: 1 1600s [00:53:20.575] - relay: TRUE 1600s [00:53:20.575] - stdout: TRUE 1600s [00:53:20.575] - signal: TRUE 1600s [00:53:20.576] - resignal: FALSE 1600s [00:53:20.576] - force: TRUE 1600s [00:53:20.576] - relayed: [n=1] TRUE 1600s [00:53:20.576] - queued futures: [n=1] TRUE 1600s - flush all 1600s [00:53:20.576] - relayed: [n=1] TRUE 1600s [00:53:20.576] - queued futures: [n=1] TRUE 1600s [00:53:20.577] signalConditionsASAP(NULL, pos=0) ... done 1600s [00:53:20.577] resolve() on list ... DONE 1600s [00:53:20.577] - Number of value chunks collected: 1 1600s [00:53:20.577] Resolving 1 futures (chunks) ... DONE 1600s [00:53:20.577] Reducing values from 1 chunks ... 1600s [00:53:20.577] - Number of values collected after concatenation: 2 1600s [00:53:20.578] - Number of values expected: 2 1600s [00:53:20.578] Reducing values from 1 chunks ... DONE 1600s [00:53:20.578] future_lapply() ... DONE 1600s * future_lapply(x, ..., future.stdout = FALSE) ... DONE 1600s * future_lapply(x, ..., future.stdout = TRUE) ... 1600s [00:53:20.578] future_lapply() ... 1600s [00:53:20.583] Number of chunks: 1 1600s [00:53:20.584] getGlobalsAndPackagesXApply() ... 1600s [00:53:20.584] - future.globals: TRUE 1600s [00:53:20.584] getGlobalsAndPackages() ... 1600s [00:53:20.584] Searching for globals... 1600s [00:53:20.586] - globals found: [5] ‘FUN’, ‘{’, ‘Sys.sleep’, ‘/’, ‘print’ 1600s [00:53:20.586] Searching for globals ... DONE 1600s [00:53:20.587] Resolving globals: FALSE 1600s [00:53:20.587] The total size of the 1 globals is 4.61 KiB (4720 bytes) 1600s [00:53:20.588] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.61 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.61 KiB of class ‘function’) 1600s [00:53:20.588] - globals: [1] ‘FUN’ 1600s [00:53:20.588] 1600s [00:53:20.588] getGlobalsAndPackages() ... DONE 1600s [00:53:20.588] - globals found/used: [n=1] ‘FUN’ 1600s [00:53:20.589] - needed namespaces: [n=0] 1600s [00:53:20.589] Finding globals ... DONE 1600s [00:53:20.589] - use_args: TRUE 1600s [00:53:20.589] - Getting '...' globals ... 1600s [00:53:20.589] resolve() on list ... 1600s [00:53:20.590] recursive: 0 1600s [00:53:20.590] length: 1 1600s [00:53:20.590] elements: ‘...’ 1600s [00:53:20.590] length: 0 (resolved future 1) 1600s [00:53:20.590] resolve() on list ... DONE 1600s [00:53:20.591] - '...' content: [n=0] 1600s [00:53:20.591] List of 1 1600s [00:53:20.591] $ ...: list() 1600s [00:53:20.591] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1600s [00:53:20.591] - attr(*, "where")=List of 1 1600s [00:53:20.591] ..$ ...: 1600s [00:53:20.591] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1600s [00:53:20.591] - attr(*, "resolved")= logi TRUE 1600s [00:53:20.591] - attr(*, "total_size")= num NA 1600s [00:53:20.595] - Getting '...' globals ... DONE 1600s [00:53:20.596] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1600s [00:53:20.596] List of 2 1600s [00:53:20.596] $ ...future.FUN:function (x) 1600s [00:53:20.596] $ ... : list() 1600s [00:53:20.596] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1600s [00:53:20.596] - attr(*, "where")=List of 2 1600s [00:53:20.596] ..$ ...future.FUN: 1600s [00:53:20.596] ..$ ... : 1600s [00:53:20.596] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1600s [00:53:20.596] - attr(*, "resolved")= logi FALSE 1600s [00:53:20.596] - attr(*, "total_size")= num 4720 1600s [00:53:20.603] Packages to be attached in all futures: [n=0] 1600s [00:53:20.603] getGlobalsAndPackagesXApply() ... DONE 1600s [00:53:20.604] Number of futures (= number of chunks): 1 1600s [00:53:20.604] Launching 1 futures (chunks) ... 1600s [00:53:20.604] Chunk #1 of 1 ... 1600s [00:53:20.604] - Finding globals in 'X' for chunk #1 ... 1600s [00:53:20.604] getGlobalsAndPackages() ... 1600s [00:53:20.604] Searching for globals... 1600s [00:53:20.605] 1600s [00:53:20.605] Searching for globals ... DONE 1600s [00:53:20.605] - globals: [0] 1600s [00:53:20.605] getGlobalsAndPackages() ... DONE 1600s [00:53:20.606] + additional globals found: [n=0] 1600s [00:53:20.606] + additional namespaces needed: [n=0] 1600s [00:53:20.606] - Finding globals in 'X' for chunk #1 ... DONE 1600s [00:53:20.606] - seeds: 1600s [00:53:20.606] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1600s [00:53:20.606] getGlobalsAndPackages() ... 1600s [00:53:20.606] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1600s [00:53:20.607] Resolving globals: FALSE 1600s [00:53:20.607] Tweak future expression to call with '...' arguments ... 1600s [00:53:20.607] { 1600s [00:53:20.607] do.call(function(...) { 1600s [00:53:20.607] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1600s [00:53:20.607] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1600s [00:53:20.607] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1600s [00:53:20.607] on.exit(options(oopts), add = TRUE) 1600s [00:53:20.607] } 1600s [00:53:20.607] { 1600s [00:53:20.607] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1600s [00:53:20.607] ...future.X_jj <- ...future.elements_ii[[jj]] 1600s [00:53:20.607] ...future.FUN(...future.X_jj, ...) 1600s [00:53:20.607] }) 1600s [00:53:20.607] } 1600s [00:53:20.607] }, args = future.call.arguments) 1600s [00:53:20.607] } 1600s [00:53:20.607] Tweak future expression to call with '...' arguments ... DONE 1600s [00:53:20.608] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1600s [00:53:20.608] 1600s [00:53:20.608] getGlobalsAndPackages() ... DONE 1600s [00:53:20.609] run() for ‘Future’ ... 1600s [00:53:20.609] - state: ‘created’ 1600s [00:53:20.609] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1600s [00:53:20.612] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1600s [00:53:20.612] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1600s [00:53:20.613] - Field: ‘label’ 1600s [00:53:20.613] - Field: ‘local’ 1600s [00:53:20.613] - Field: ‘owner’ 1600s [00:53:20.613] - Field: ‘envir’ 1600s [00:53:20.613] - Field: ‘packages’ 1600s [00:53:20.613] - Field: ‘gc’ 1600s [00:53:20.613] - Field: ‘conditions’ 1600s [00:53:20.614] - Field: ‘expr’ 1600s [00:53:20.614] - Field: ‘uuid’ 1600s [00:53:20.614] - Field: ‘seed’ 1600s [00:53:20.614] - Field: ‘version’ 1600s [00:53:20.614] - Field: ‘result’ 1600s [00:53:20.614] - Field: ‘asynchronous’ 1600s [00:53:20.614] - Field: ‘calls’ 1600s [00:53:20.615] - Field: ‘globals’ 1600s [00:53:20.615] - Field: ‘stdout’ 1600s [00:53:20.615] - Field: ‘earlySignal’ 1600s [00:53:20.615] - Field: ‘lazy’ 1600s [00:53:20.615] - Field: ‘state’ 1600s [00:53:20.615] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1600s [00:53:20.615] - Launch lazy future ... 1600s [00:53:20.616] Packages needed by the future expression (n = 0): 1600s [00:53:20.616] Packages needed by future strategies (n = 0): 1600s [00:53:20.616] { 1600s [00:53:20.616] { 1600s [00:53:20.616] { 1600s [00:53:20.616] ...future.startTime <- base::Sys.time() 1600s [00:53:20.616] { 1600s [00:53:20.616] { 1600s [00:53:20.616] { 1600s [00:53:20.616] base::local({ 1600s [00:53:20.616] has_future <- base::requireNamespace("future", 1600s [00:53:20.616] quietly = TRUE) 1600s [00:53:20.616] if (has_future) { 1600s [00:53:20.616] ns <- base::getNamespace("future") 1600s [00:53:20.616] version <- ns[[".package"]][["version"]] 1600s [00:53:20.616] if (is.null(version)) 1600s [00:53:20.616] version <- utils::packageVersion("future") 1600s [00:53:20.616] } 1600s [00:53:20.616] else { 1600s [00:53:20.616] version <- NULL 1600s [00:53:20.616] } 1600s [00:53:20.616] if (!has_future || version < "1.8.0") { 1600s [00:53:20.616] info <- base::c(r_version = base::gsub("R version ", 1600s [00:53:20.616] "", base::R.version$version.string), 1600s [00:53:20.616] platform = base::sprintf("%s (%s-bit)", 1600s [00:53:20.616] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1600s [00:53:20.616] os = base::paste(base::Sys.info()[base::c("sysname", 1600s [00:53:20.616] "release", "version")], collapse = " "), 1600s [00:53:20.616] hostname = base::Sys.info()[["nodename"]]) 1600s [00:53:20.616] info <- base::sprintf("%s: %s", base::names(info), 1600s [00:53:20.616] info) 1600s [00:53:20.616] info <- base::paste(info, collapse = "; ") 1600s [00:53:20.616] if (!has_future) { 1600s [00:53:20.616] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1600s [00:53:20.616] info) 1600s [00:53:20.616] } 1600s [00:53:20.616] else { 1600s [00:53:20.616] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1600s [00:53:20.616] info, version) 1600s [00:53:20.616] } 1600s [00:53:20.616] base::stop(msg) 1600s [00:53:20.616] } 1600s [00:53:20.616] }) 1600s [00:53:20.616] } 1600s [00:53:20.616] options(future.plan = NULL) 1600s [00:53:20.616] Sys.unsetenv("R_FUTURE_PLAN") 1600s [00:53:20.616] future::plan("default", .cleanup = FALSE, .init = FALSE) 1600s [00:53:20.616] } 1600s [00:53:20.616] ...future.workdir <- getwd() 1600s [00:53:20.616] } 1600s [00:53:20.616] ...future.oldOptions <- base::as.list(base::.Options) 1600s [00:53:20.616] ...future.oldEnvVars <- base::Sys.getenv() 1600s [00:53:20.616] } 1600s [00:53:20.616] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1600s [00:53:20.616] future.globals.maxSize = NULL, future.globals.method = NULL, 1600s [00:53:20.616] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1600s [00:53:20.616] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1600s [00:53:20.616] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1600s [00:53:20.616] future.stdout.windows.reencode = NULL, width = 80L) 1600s [00:53:20.616] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1600s [00:53:20.616] base::names(...future.oldOptions)) 1600s [00:53:20.616] } 1600s [00:53:20.616] if (FALSE) { 1600s [00:53:20.616] } 1600s [00:53:20.616] else { 1600s [00:53:20.616] if (TRUE) { 1600s [00:53:20.616] ...future.stdout <- base::rawConnection(base::raw(0L), 1600s [00:53:20.616] open = "w") 1600s [00:53:20.616] } 1600s [00:53:20.616] else { 1600s [00:53:20.616] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1600s [00:53:20.616] windows = "NUL", "/dev/null"), open = "w") 1600s [00:53:20.616] } 1600s [00:53:20.616] base::sink(...future.stdout, type = "output", split = FALSE) 1600s [00:53:20.616] base::on.exit(if (!base::is.null(...future.stdout)) { 1600s [00:53:20.616] base::sink(type = "output", split = FALSE) 1600s [00:53:20.616] base::close(...future.stdout) 1600s [00:53:20.616] }, add = TRUE) 1600s [00:53:20.616] } 1600s [00:53:20.616] ...future.frame <- base::sys.nframe() 1600s [00:53:20.616] ...future.conditions <- base::list() 1600s [00:53:20.616] ...future.rng <- base::globalenv()$.Random.seed 1600s [00:53:20.616] if (FALSE) { 1600s [00:53:20.616] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1600s [00:53:20.616] "...future.value", "...future.globalenv.names", ".Random.seed") 1600s [00:53:20.616] } 1600s [00:53:20.616] ...future.result <- base::tryCatch({ 1600s [00:53:20.616] base::withCallingHandlers({ 1600s [00:53:20.616] ...future.value <- base::withVisible(base::local({ 1600s [00:53:20.616] do.call(function(...) { 1600s [00:53:20.616] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1600s [00:53:20.616] if (!identical(...future.globals.maxSize.org, 1600s [00:53:20.616] ...future.globals.maxSize)) { 1600s [00:53:20.616] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1600s [00:53:20.616] on.exit(options(oopts), add = TRUE) 1600s [00:53:20.616] } 1600s [00:53:20.616] { 1600s [00:53:20.616] lapply(seq_along(...future.elements_ii), 1600s [00:53:20.616] FUN = function(jj) { 1600s [00:53:20.616] ...future.X_jj <- ...future.elements_ii[[jj]] 1600s [00:53:20.616] ...future.FUN(...future.X_jj, ...) 1600s [00:53:20.616] }) 1600s [00:53:20.616] } 1600s [00:53:20.616] }, args = future.call.arguments) 1600s [00:53:20.616] })) 1600s [00:53:20.616] future::FutureResult(value = ...future.value$value, 1600s [00:53:20.616] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1600s [00:53:20.616] ...future.rng), globalenv = if (FALSE) 1600s [00:53:20.616] list(added = base::setdiff(base::names(base::.GlobalEnv), 1600s [00:53:20.616] ...future.globalenv.names)) 1600s [00:53:20.616] else NULL, started = ...future.startTime, version = "1.8") 1600s [00:53:20.616] }, condition = base::local({ 1600s [00:53:20.616] c <- base::c 1600s [00:53:20.616] inherits <- base::inherits 1600s [00:53:20.616] invokeRestart <- base::invokeRestart 1600s [00:53:20.616] length <- base::length 1600s [00:53:20.616] list <- base::list 1600s [00:53:20.616] seq.int <- base::seq.int 1600s [00:53:20.616] signalCondition <- base::signalCondition 1600s [00:53:20.616] sys.calls <- base::sys.calls 1600s [00:53:20.616] `[[` <- base::`[[` 1600s [00:53:20.616] `+` <- base::`+` 1600s [00:53:20.616] `<<-` <- base::`<<-` 1600s [00:53:20.616] sysCalls <- function(calls = sys.calls(), from = 1L) { 1600s [00:53:20.616] calls[seq.int(from = from + 12L, to = length(calls) - 1600s [00:53:20.616] 3L)] 1600s [00:53:20.616] } 1600s [00:53:20.616] function(cond) { 1600s [00:53:20.616] is_error <- inherits(cond, "error") 1600s [00:53:20.616] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1600s [00:53:20.616] NULL) 1600s [00:53:20.616] if (is_error) { 1600s [00:53:20.616] sessionInformation <- function() { 1600s [00:53:20.616] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1600s [00:53:20.616] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1600s [00:53:20.616] search = base::search(), system = base::Sys.info()) 1600s [00:53:20.616] } 1600s [00:53:20.616] ...future.conditions[[length(...future.conditions) + 1600s [00:53:20.616] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1600s [00:53:20.616] cond$call), session = sessionInformation(), 1600s [00:53:20.616] timestamp = base::Sys.time(), signaled = 0L) 1600s [00:53:20.616] signalCondition(cond) 1600s [00:53:20.616] } 1600s [00:53:20.616] else if (!ignore && TRUE && inherits(cond, c("condition", 1600s [00:53:20.616] "immediateCondition"))) { 1600s [00:53:20.616] signal <- TRUE && inherits(cond, "immediateCondition") 1600s [00:53:20.616] ...future.conditions[[length(...future.conditions) + 1600s [00:53:20.616] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1600s [00:53:20.616] if (TRUE && !signal) { 1600s [00:53:20.616] muffleCondition <- function (cond, pattern = "^muffle") 1600s [00:53:20.616] { 1600s [00:53:20.616] inherits <- base::inherits 1600s [00:53:20.616] invokeRestart <- base::invokeRestart 1600s [00:53:20.616] is.null <- base::is.null 1600s [00:53:20.616] muffled <- FALSE 1600s [00:53:20.616] if (inherits(cond, "message")) { 1600s [00:53:20.616] muffled <- grepl(pattern, "muffleMessage") 1600s [00:53:20.616] if (muffled) 1600s [00:53:20.616] invokeRestart("muffleMessage") 1600s [00:53:20.616] } 1600s [00:53:20.616] else if (inherits(cond, "warning")) { 1600s [00:53:20.616] muffled <- grepl(pattern, "muffleWarning") 1600s [00:53:20.616] if (muffled) 1600s [00:53:20.616] invokeRestart("muffleWarning") 1600s [00:53:20.616] } 1600s [00:53:20.616] else if (inherits(cond, "condition")) { 1600s [00:53:20.616] if (!is.null(pattern)) { 1600s [00:53:20.616] computeRestarts <- base::computeRestarts 1600s [00:53:20.616] grepl <- base::grepl 1600s [00:53:20.616] restarts <- computeRestarts(cond) 1600s [00:53:20.616] for (restart in restarts) { 1600s [00:53:20.616] name <- restart$name 1600s [00:53:20.616] if (is.null(name)) 1600s [00:53:20.616] next 1600s [00:53:20.616] if (!grepl(pattern, name)) 1600s [00:53:20.616] next 1600s [00:53:20.616] invokeRestart(restart) 1600s [00:53:20.616] muffled <- TRUE 1600s [00:53:20.616] break 1600s [00:53:20.616] } 1600s [00:53:20.616] } 1600s [00:53:20.616] } 1600s [00:53:20.616] invisible(muffled) 1600s [00:53:20.616] } 1600s [00:53:20.616] muffleCondition(cond, pattern = "^muffle") 1600s [00:53:20.616] } 1600s [00:53:20.616] } 1600s [00:53:20.616] else { 1600s [00:53:20.616] if (TRUE) { 1600s [00:53:20.616] muffleCondition <- function (cond, pattern = "^muffle") 1600s [00:53:20.616] { 1600s [00:53:20.616] inherits <- base::inherits 1600s [00:53:20.616] invokeRestart <- base::invokeRestart 1600s [00:53:20.616] is.null <- base::is.null 1600s [00:53:20.616] muffled <- FALSE 1600s [00:53:20.616] if (inherits(cond, "message")) { 1600s [00:53:20.616] muffled <- grepl(pattern, "muffleMessage") 1600s [00:53:20.616] if (muffled) 1600s [00:53:20.616] invokeRestart("muffleMessage") 1600s [00:53:20.616] } 1600s [00:53:20.616] else if (inherits(cond, "warning")) { 1600s [00:53:20.616] muffled <- grepl(pattern, "muffleWarning") 1600s [00:53:20.616] if (muffled) 1600s [00:53:20.616] invokeRestart("muffleWarning") 1600s [00:53:20.616] } 1600s [00:53:20.616] else if (inherits(cond, "condition")) { 1600s [00:53:20.616] if (!is.null(pattern)) { 1600s [00:53:20.616] computeRestarts <- base::computeRestarts 1600s [00:53:20.616] grepl <- base::grepl 1600s [00:53:20.616] restarts <- computeRestarts(cond) 1600s [00:53:20.616] for (restart in restarts) { 1600s [00:53:20.616] name <- restart$name 1600s [00:53:20.616] if (is.null(name)) 1600s [00:53:20.616] next 1600s [00:53:20.616] if (!grepl(pattern, name)) 1600s [00:53:20.616] next 1600s [00:53:20.616] invokeRestart(restart) 1600s [00:53:20.616] muffled <- TRUE 1600s [00:53:20.616] break 1600s [00:53:20.616] } 1600s [00:53:20.616] } 1600s [00:53:20.616] } 1600s [00:53:20.616] invisible(muffled) 1600s [00:53:20.616] } 1600s [00:53:20.616] muffleCondition(cond, pattern = "^muffle") 1600s [00:53:20.616] } 1600s [00:53:20.616] } 1600s [00:53:20.616] } 1600s [00:53:20.616] })) 1600s [00:53:20.616] }, error = function(ex) { 1600s [00:53:20.616] base::structure(base::list(value = NULL, visible = NULL, 1600s [00:53:20.616] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1600s [00:53:20.616] ...future.rng), started = ...future.startTime, 1600s [00:53:20.616] finished = Sys.time(), session_uuid = NA_character_, 1600s [00:53:20.616] version = "1.8"), class = "FutureResult") 1600s [00:53:20.616] }, finally = { 1600s [00:53:20.616] if (!identical(...future.workdir, getwd())) 1600s [00:53:20.616] setwd(...future.workdir) 1600s [00:53:20.616] { 1600s [00:53:20.616] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1600s [00:53:20.616] ...future.oldOptions$nwarnings <- NULL 1600s [00:53:20.616] } 1600s [00:53:20.616] base::options(...future.oldOptions) 1600s [00:53:20.616] if (.Platform$OS.type == "windows") { 1600s [00:53:20.616] old_names <- names(...future.oldEnvVars) 1600s [00:53:20.616] envs <- base::Sys.getenv() 1600s [00:53:20.616] names <- names(envs) 1600s [00:53:20.616] common <- intersect(names, old_names) 1600s [00:53:20.616] added <- setdiff(names, old_names) 1600s [00:53:20.616] removed <- setdiff(old_names, names) 1600s [00:53:20.616] changed <- common[...future.oldEnvVars[common] != 1600s [00:53:20.616] envs[common]] 1600s [00:53:20.616] NAMES <- toupper(changed) 1600s [00:53:20.616] args <- list() 1600s [00:53:20.616] for (kk in seq_along(NAMES)) { 1600s [00:53:20.616] name <- changed[[kk]] 1600s [00:53:20.616] NAME <- NAMES[[kk]] 1600s [00:53:20.616] if (name != NAME && is.element(NAME, old_names)) 1600s [00:53:20.616] next 1600s [00:53:20.616] args[[name]] <- ...future.oldEnvVars[[name]] 1600s [00:53:20.616] } 1600s [00:53:20.616] NAMES <- toupper(added) 1600s [00:53:20.616] for (kk in seq_along(NAMES)) { 1600s [00:53:20.616] name <- added[[kk]] 1600s [00:53:20.616] NAME <- NAMES[[kk]] 1600s [00:53:20.616] if (name != NAME && is.element(NAME, old_names)) 1600s [00:53:20.616] next 1600s [00:53:20.616] args[[name]] <- "" 1600s [00:53:20.616] } 1600s [00:53:20.616] NAMES <- toupper(removed) 1600s [00:53:20.616] for (kk in seq_along(NAMES)) { 1600s [00:53:20.616] name <- removed[[kk]] 1600s [00:53:20.616] NAME <- NAMES[[kk]] 1600s [00:53:20.616] if (name != NAME && is.element(NAME, old_names)) 1600s [00:53:20.616] next 1600s [00:53:20.616] args[[name]] <- ...future.oldEnvVars[[name]] 1600s [00:53:20.616] } 1600s [00:53:20.616] if (length(args) > 0) 1600s [00:53:20.616] base::do.call(base::Sys.setenv, args = args) 1600s [00:53:20.616] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1600s [00:53:20.616] } 1600s [00:53:20.616] else { 1600s [00:53:20.616] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1600s [00:53:20.616] } 1600s [00:53:20.616] { 1600s [00:53:20.616] if (base::length(...future.futureOptionsAdded) > 1600s [00:53:20.616] 0L) { 1600s [00:53:20.616] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1600s [00:53:20.616] base::names(opts) <- ...future.futureOptionsAdded 1600s [00:53:20.616] base::options(opts) 1600s [00:53:20.616] } 1600s [00:53:20.616] { 1600s [00:53:20.616] { 1600s [00:53:20.616] NULL 1600s [00:53:20.616] RNGkind("Mersenne-Twister") 1600s [00:53:20.616] base::rm(list = ".Random.seed", envir = base::globalenv(), 1600s [00:53:20.616] inherits = FALSE) 1600s [00:53:20.616] } 1600s [00:53:20.616] options(future.plan = NULL) 1600s [00:53:20.616] if (is.na(NA_character_)) 1600s [00:53:20.616] Sys.unsetenv("R_FUTURE_PLAN") 1600s [00:53:20.616] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1600s [00:53:20.616] future::plan(list(function (..., workers = availableCores(), 1600s [00:53:20.616] lazy = FALSE, rscript_libs = .libPaths(), 1600s [00:53:20.616] envir = parent.frame()) 1600s [00:53:20.616] { 1600s [00:53:20.616] if (is.function(workers)) 1600s [00:53:20.616] workers <- workers() 1600s [00:53:20.616] workers <- structure(as.integer(workers), 1600s [00:53:20.616] class = class(workers)) 1600s [00:53:20.616] stop_if_not(length(workers) == 1, is.finite(workers), 1600s [00:53:20.616] workers >= 1) 1600s [00:53:20.616] if (workers == 1L && !inherits(workers, "AsIs")) { 1600s [00:53:20.616] return(sequential(..., lazy = TRUE, envir = envir)) 1600s [00:53:20.616] } 1600s [00:53:20.616] future <- MultisessionFuture(..., workers = workers, 1600s [00:53:20.616] lazy = lazy, rscript_libs = rscript_libs, 1600s [00:53:20.616] envir = envir) 1600s [00:53:20.616] if (!future$lazy) 1600s [00:53:20.616] future <- run(future) 1600s [00:53:20.616] invisible(future) 1600s [00:53:20.616] }), .cleanup = FALSE, .init = FALSE) 1600s [00:53:20.616] } 1600s [00:53:20.616] } 1600s [00:53:20.616] } 1600s [00:53:20.616] }) 1600s [00:53:20.616] if (TRUE) { 1600s [00:53:20.616] base::sink(type = "output", split = FALSE) 1600s [00:53:20.616] if (TRUE) { 1600s [00:53:20.616] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1600s [00:53:20.616] } 1600s [00:53:20.616] else { 1600s [00:53:20.616] ...future.result["stdout"] <- base::list(NULL) 1600s [00:53:20.616] } 1600s [00:53:20.616] base::close(...future.stdout) 1600s [00:53:20.616] ...future.stdout <- NULL 1600s [00:53:20.616] } 1600s [00:53:20.616] ...future.result$conditions <- ...future.conditions 1600s [00:53:20.616] ...future.result$finished <- base::Sys.time() 1600s [00:53:20.616] ...future.result 1600s [00:53:20.616] } 1600s [00:53:20.622] assign_globals() ... 1600s [00:53:20.622] List of 5 1600s [00:53:20.622] $ ...future.FUN :function (x) 1600s [00:53:20.622] $ future.call.arguments : list() 1600s [00:53:20.622] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1600s [00:53:20.622] $ ...future.elements_ii :List of 2 1600s [00:53:20.622] ..$ : int 1 1600s [00:53:20.622] ..$ : int 0 1600s [00:53:20.622] $ ...future.seeds_ii : NULL 1600s [00:53:20.622] $ ...future.globals.maxSize: NULL 1600s [00:53:20.622] - attr(*, "where")=List of 5 1600s [00:53:20.622] ..$ ...future.FUN : 1600s [00:53:20.622] ..$ future.call.arguments : 1600s [00:53:20.622] ..$ ...future.elements_ii : 1600s [00:53:20.622] ..$ ...future.seeds_ii : 1600s [00:53:20.622] ..$ ...future.globals.maxSize: 1600s [00:53:20.622] - attr(*, "resolved")= logi FALSE 1600s [00:53:20.622] - attr(*, "total_size")= num 4720 1600s [00:53:20.622] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1600s [00:53:20.622] - attr(*, "already-done")= logi TRUE 1600s [00:53:20.628] - reassign environment for ‘...future.FUN’ 1600s [00:53:20.628] - copied ‘...future.FUN’ to environment 1600s [00:53:20.628] - copied ‘future.call.arguments’ to environment 1600s [00:53:20.629] - copied ‘...future.elements_ii’ to environment 1600s [00:53:20.629] - copied ‘...future.seeds_ii’ to environment 1600s [00:53:20.629] - copied ‘...future.globals.maxSize’ to environment 1600s [00:53:20.629] assign_globals() ... done 1600s [00:53:20.629] plan(): Setting new future strategy stack: 1600s [00:53:20.629] List of future strategies: 1600s [00:53:20.629] 1. sequential: 1600s [00:53:20.629] - args: function (..., envir = parent.frame()) 1600s [00:53:20.629] - tweaked: FALSE 1600s [00:53:20.629] - call: NULL 1600s [00:53:20.630] plan(): nbrOfWorkers() = 1 1601s [00:53:21.132] plan(): Setting new future strategy stack: 1601s [00:53:21.132] List of future strategies: 1601s [00:53:21.132] 1. multisession: 1601s [00:53:21.132] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1601s [00:53:21.132] - tweaked: FALSE 1601s [00:53:21.132] - call: plan(strategy) 1601s [00:53:21.137] plan(): nbrOfWorkers() = 1 1601s [00:53:21.137] SequentialFuture started (and completed) 1601s [00:53:21.137] - Launch lazy future ... done 1601s [00:53:21.137] run() for ‘SequentialFuture’ ... done 1601s [00:53:21.138] Created future: 1601s [00:53:21.138] SequentialFuture: 1601s [00:53:21.138] Label: ‘future_lapply-1’ 1601s [00:53:21.138] Expression: 1601s [00:53:21.138] { 1601s [00:53:21.138] do.call(function(...) { 1601s [00:53:21.138] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1601s [00:53:21.138] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1601s [00:53:21.138] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1601s [00:53:21.138] on.exit(options(oopts), add = TRUE) 1601s [00:53:21.138] } 1601s [00:53:21.138] { 1601s [00:53:21.138] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1601s [00:53:21.138] ...future.X_jj <- ...future.elements_ii[[jj]] 1601s [00:53:21.138] ...future.FUN(...future.X_jj, ...) 1601s [00:53:21.138] }) 1601s [00:53:21.138] } 1601s [00:53:21.138] }, args = future.call.arguments) 1601s [00:53:21.138] } 1601s [00:53:21.138] Lazy evaluation: FALSE 1601s [00:53:21.138] Asynchronous evaluation: FALSE 1601s [00:53:21.138] Local evaluation: TRUE 1601s [00:53:21.138] Environment: R_GlobalEnv 1601s [00:53:21.138] Capture standard output: TRUE 1601s [00:53:21.138] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1601s [00:53:21.138] Globals: 5 objects totaling 4.72 KiB (function ‘...future.FUN’ of 4.61 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1601s [00:53:21.138] Packages: 1601s [00:53:21.138] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1601s [00:53:21.138] Resolved: TRUE 1601s [00:53:21.138] Value: 112 bytes of class ‘list’ 1601s [00:53:21.138] Early signaling: FALSE 1601s [00:53:21.138] Owner process: aef6b2cf-a7ff-4166-a7a6-2b6e1e64c3ba 1601s [00:53:21.138] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1601s [00:53:21.139] Chunk #1 of 1 ... DONE 1601s [00:53:21.139] Launching 1 futures (chunks) ... DONE 1601s [00:53:21.140] Resolving 1 futures (chunks) ... 1601s [00:53:21.140] resolve() on list ... 1601s [00:53:21.140] recursive: 0 1601s [00:53:21.140] length: 1 1601s [00:53:21.140] 1601s [00:53:21.141] resolved() for ‘SequentialFuture’ ... 1601s [00:53:21.141] - state: ‘finished’ 1601s [00:53:21.142] - run: TRUE 1601s [00:53:21.142] - result: ‘FutureResult’ 1601s [00:53:21.142] resolved() for ‘SequentialFuture’ ... done 1601s [00:53:21.142] Future #1 1601s [00:53:21.142] signalConditionsASAP(SequentialFuture, pos=1) ... 1601s [00:53:21.143] - nx: 1 1601s [00:53:21.143] - relay: TRUE 1601s [00:53:21.143] - stdout: TRUE 1601s [00:53:21.143] - signal: TRUE 1601s [00:53:21.143] - resignal: FALSE 1601s [00:53:21.143] - force: TRUE 1601s [00:53:21.144] - relayed: [n=1] FALSE 1601s [00:53:21.144] - queued futures: [n=1] FALSE 1601s [00:53:21.144] - until=1 1601s [00:53:21.144] - relaying element #1 1601s [00:53:21.144] - relayed: [n=1] TRUE 1601s [00:53:21.145] - queued futures: [n=1] TRUE 1601s [00:53:21.145] signalConditionsASAP(SequentialFuture, pos=1) ... done 1601s [00:53:21.145] length: 0 (resolved future 1) 1601s [00:53:21.145] Relaying remaining futures 1601s [00:53:21.145] signalConditionsASAP(NULL, pos=0) ... 1601s [00:53:21.145] - nx: 1 1601s [00:53:21.146] - relay: TRUE 1601s [00:53:21.146] - stdout: TRUE 1601s [00:53:21.146] - signal: TRUE 1601s [00:53:21.146] - resignal: FALSE 1601s [00:53:21.146] - force: TRUE 1601s [00:53:21.146] - relayed: [n=1] TRUE 1601s [00:53:21.146] - queued futures: [n=1] TRUE 1601s - flush all 1601s [00:53:21.147] - relayed: [n=1] TRUE 1601s [00:53:21.147] - queued futures: [n=1] TRUE 1601s [00:53:21.147] signalConditionsASAP(NULL, pos=0) ... done 1601s [00:53:21.147] resolve() on list ... DONE 1601s [00:53:21.148] - Number of value chunks collected: 1 1601s [00:53:21.148] Resolving 1 futures (chunks) ... DONE 1601s [00:53:21.148] Reducing values from 1 chunks ... 1601s [00:53:21.148] - Number of values collected after concatenation: 2 1601s [00:53:21.148] - Number of values expected: 2 1601s [00:53:21.149] Reducing values from 1 chunks ... DONE 1601s [00:53:21.149] future_lapply() ... DONE 1601s * future_lapply(x, ..., future.stdout = TRUE) ... DONE 1601s * future_lapply(x, ..., future.stdout = NA) ... 1601s [00:53:21.150] future_lapply() ... 1601s [00:53:21.158] Number of chunks: 1 1601s [00:53:21.158] getGlobalsAndPackagesXApply() ... 1601s [00:53:21.158] - future.globals: TRUE 1601s [00:53:21.158] getGlobalsAndPackages() ... 1601s [00:53:21.159] Searching for globals... 1601s [00:53:21.161] - globals found: [5] ‘FUN’, ‘{’, ‘Sys.sleep’, ‘/’, ‘print’ 1601s [00:53:21.161] Searching for globals ... DONE 1601s [00:53:21.162] Resolving globals: FALSE 1601s [00:53:21.162] The total size of the 1 globals is 4.61 KiB (4720 bytes) 1601s [00:53:21.163] The total size of the 1 globals exported for future expression (‘FUN()’) is 4.61 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (4.61 KiB of class ‘function’) 1601s [00:53:21.163] - globals: [1] ‘FUN’ 1601s [00:53:21.164] 1601s [00:53:21.164] getGlobalsAndPackages() ... DONE 1601s [00:53:21.164] - globals found/used: [n=1] ‘FUN’ 1601s [00:53:21.164] - needed namespaces: [n=0] 1601s [00:53:21.164] Finding globals ... DONE 1601s [00:53:21.164] - use_args: TRUE 1601s [00:53:21.165] - Getting '...' globals ... 1601s [00:53:21.165] resolve() on list ... 1601s [00:53:21.165] recursive: 0 1601s [00:53:21.165] length: 1 1601s [00:53:21.166] elements: ‘...’ 1601s [00:53:21.166] length: 0 (resolved future 1) 1601s [00:53:21.166] resolve() on list ... DONE 1601s [00:53:21.166] - '...' content: [n=0] 1601s [00:53:21.166] List of 1 1601s [00:53:21.166] $ ...: list() 1601s [00:53:21.166] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1601s [00:53:21.166] - attr(*, "where")=List of 1 1601s [00:53:21.166] ..$ ...: 1601s [00:53:21.166] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1601s [00:53:21.166] - attr(*, "resolved")= logi TRUE 1601s [00:53:21.166] - attr(*, "total_size")= num NA 1601s [00:53:21.170] - Getting '...' globals ... DONE 1601s [00:53:21.170] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘...’ 1601s [00:53:21.171] List of 2 1601s [00:53:21.171] $ ...future.FUN:function (x) 1601s [00:53:21.171] $ ... : list() 1601s [00:53:21.171] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1601s [00:53:21.171] - attr(*, "where")=List of 2 1601s [00:53:21.171] ..$ ...future.FUN: 1601s [00:53:21.171] ..$ ... : 1601s [00:53:21.171] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1601s [00:53:21.171] - attr(*, "resolved")= logi FALSE 1601s [00:53:21.171] - attr(*, "total_size")= num 4720 1601s [00:53:21.175] Packages to be attached in all futures: [n=0] 1601s [00:53:21.175] getGlobalsAndPackagesXApply() ... DONE 1601s [00:53:21.175] Number of futures (= number of chunks): 1 1601s [00:53:21.176] Launching 1 futures (chunks) ... 1601s [00:53:21.176] Chunk #1 of 1 ... 1601s [00:53:21.176] - Finding globals in 'X' for chunk #1 ... 1601s [00:53:21.176] getGlobalsAndPackages() ... 1601s [00:53:21.176] Searching for globals... 1601s [00:53:21.177] 1601s [00:53:21.177] Searching for globals ... DONE 1601s [00:53:21.177] - globals: [0] 1601s [00:53:21.177] getGlobalsAndPackages() ... DONE 1601s [00:53:21.177] + additional globals found: [n=0] 1601s [00:53:21.177] + additional namespaces needed: [n=0] 1601s [00:53:21.178] - Finding globals in 'X' for chunk #1 ... DONE 1601s [00:53:21.178] - seeds: 1601s [00:53:21.179] - All globals exported: [n=5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1601s [00:53:21.179] getGlobalsAndPackages() ... 1601s [00:53:21.179] - globals passed as-is: [5] ‘...future.FUN’, ‘...’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1601s [00:53:21.180] Resolving globals: FALSE 1601s [00:53:21.180] Tweak future expression to call with '...' arguments ... 1601s [00:53:21.180] { 1601s [00:53:21.180] do.call(function(...) { 1601s [00:53:21.180] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1601s [00:53:21.180] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1601s [00:53:21.180] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1601s [00:53:21.180] on.exit(options(oopts), add = TRUE) 1601s [00:53:21.180] } 1601s [00:53:21.180] { 1601s [00:53:21.180] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1601s [00:53:21.180] ...future.X_jj <- ...future.elements_ii[[jj]] 1601s [00:53:21.180] ...future.FUN(...future.X_jj, ...) 1601s [00:53:21.180] }) 1601s [00:53:21.180] } 1601s [00:53:21.180] }, args = future.call.arguments) 1601s [00:53:21.180] } 1601s [00:53:21.181] Tweak future expression to call with '...' arguments ... DONE 1601s [00:53:21.181] - globals: [5] ‘...future.FUN’, ‘future.call.arguments’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1601s [00:53:21.181] 1601s [00:53:21.181] getGlobalsAndPackages() ... DONE 1601s [00:53:21.182] run() for ‘Future’ ... 1601s [00:53:21.182] - state: ‘created’ 1601s [00:53:21.182] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1601s [00:53:21.186] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1601s [00:53:21.187] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1601s [00:53:21.187] - Field: ‘label’ 1601s [00:53:21.187] - Field: ‘local’ 1601s [00:53:21.187] - Field: ‘owner’ 1601s [00:53:21.188] - Field: ‘envir’ 1601s [00:53:21.188] - Field: ‘packages’ 1601s [00:53:21.188] - Field: ‘gc’ 1601s [00:53:21.188] - Field: ‘conditions’ 1601s [00:53:21.188] - Field: ‘expr’ 1601s [00:53:21.189] - Field: ‘uuid’ 1601s [00:53:21.189] - Field: ‘seed’ 1601s [00:53:21.189] - Field: ‘version’ 1601s [00:53:21.189] - Field: ‘result’ 1601s [00:53:21.189] - Field: ‘asynchronous’ 1601s [00:53:21.190] - Field: ‘calls’ 1601s [00:53:21.190] - Field: ‘globals’ 1601s [00:53:21.190] - Field: ‘stdout’ 1601s [00:53:21.190] - Field: ‘earlySignal’ 1601s [00:53:21.190] - Field: ‘lazy’ 1601s [00:53:21.191] - Field: ‘state’ 1601s [00:53:21.191] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1601s [00:53:21.191] - Launch lazy future ... 1601s [00:53:21.191] Packages needed by the future expression (n = 0): 1601s [00:53:21.191] Packages needed by future strategies (n = 0): 1601s [00:53:21.192] { 1601s [00:53:21.192] { 1601s [00:53:21.192] { 1601s [00:53:21.192] ...future.startTime <- base::Sys.time() 1601s [00:53:21.192] { 1601s [00:53:21.192] { 1601s [00:53:21.192] { 1601s [00:53:21.192] base::local({ 1601s [00:53:21.192] has_future <- base::requireNamespace("future", 1601s [00:53:21.192] quietly = TRUE) 1601s [00:53:21.192] if (has_future) { 1601s [00:53:21.192] ns <- base::getNamespace("future") 1601s [00:53:21.192] version <- ns[[".package"]][["version"]] 1601s [00:53:21.192] if (is.null(version)) 1601s [00:53:21.192] version <- utils::packageVersion("future") 1601s [00:53:21.192] } 1601s [00:53:21.192] else { 1601s [00:53:21.192] version <- NULL 1601s [00:53:21.192] } 1601s [00:53:21.192] if (!has_future || version < "1.8.0") { 1601s [00:53:21.192] info <- base::c(r_version = base::gsub("R version ", 1601s [00:53:21.192] "", base::R.version$version.string), 1601s [00:53:21.192] platform = base::sprintf("%s (%s-bit)", 1601s [00:53:21.192] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1601s [00:53:21.192] os = base::paste(base::Sys.info()[base::c("sysname", 1601s [00:53:21.192] "release", "version")], collapse = " "), 1601s [00:53:21.192] hostname = base::Sys.info()[["nodename"]]) 1601s [00:53:21.192] info <- base::sprintf("%s: %s", base::names(info), 1601s [00:53:21.192] info) 1601s [00:53:21.192] info <- base::paste(info, collapse = "; ") 1601s [00:53:21.192] if (!has_future) { 1601s [00:53:21.192] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1601s [00:53:21.192] info) 1601s [00:53:21.192] } 1601s [00:53:21.192] else { 1601s [00:53:21.192] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1601s [00:53:21.192] info, version) 1601s [00:53:21.192] } 1601s [00:53:21.192] base::stop(msg) 1601s [00:53:21.192] } 1601s [00:53:21.192] }) 1601s [00:53:21.192] } 1601s [00:53:21.192] options(future.plan = NULL) 1601s [00:53:21.192] Sys.unsetenv("R_FUTURE_PLAN") 1601s [00:53:21.192] future::plan("default", .cleanup = FALSE, .init = FALSE) 1601s [00:53:21.192] } 1601s [00:53:21.192] ...future.workdir <- getwd() 1601s [00:53:21.192] } 1601s [00:53:21.192] ...future.oldOptions <- base::as.list(base::.Options) 1601s [00:53:21.192] ...future.oldEnvVars <- base::Sys.getenv() 1601s [00:53:21.192] } 1601s [00:53:21.192] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1601s [00:53:21.192] future.globals.maxSize = NULL, future.globals.method = NULL, 1601s [00:53:21.192] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1601s [00:53:21.192] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1601s [00:53:21.192] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1601s [00:53:21.192] future.stdout.windows.reencode = NULL, width = 80L) 1601s [00:53:21.192] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1601s [00:53:21.192] base::names(...future.oldOptions)) 1601s [00:53:21.192] } 1601s [00:53:21.192] if (TRUE) { 1601s [00:53:21.192] } 1601s [00:53:21.192] else { 1601s [00:53:21.192] if (NA) { 1601s [00:53:21.192] ...future.stdout <- base::rawConnection(base::raw(0L), 1601s [00:53:21.192] open = "w") 1601s [00:53:21.192] } 1601s [00:53:21.192] else { 1601s [00:53:21.192] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1601s [00:53:21.192] windows = "NUL", "/dev/null"), open = "w") 1601s [00:53:21.192] } 1601s [00:53:21.192] base::sink(...future.stdout, type = "output", split = FALSE) 1601s [00:53:21.192] base::on.exit(if (!base::is.null(...future.stdout)) { 1601s [00:53:21.192] base::sink(type = "output", split = FALSE) 1601s [00:53:21.192] base::close(...future.stdout) 1601s [00:53:21.192] }, add = TRUE) 1601s [00:53:21.192] } 1601s [00:53:21.192] ...future.frame <- base::sys.nframe() 1601s [00:53:21.192] ...future.conditions <- base::list() 1601s [00:53:21.192] ...future.rng <- base::globalenv()$.Random.seed 1601s [00:53:21.192] if (FALSE) { 1601s [00:53:21.192] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1601s [00:53:21.192] "...future.value", "...future.globalenv.names", ".Random.seed") 1601s [00:53:21.192] } 1601s [00:53:21.192] ...future.result <- base::tryCatch({ 1601s [00:53:21.192] base::withCallingHandlers({ 1601s [00:53:21.192] ...future.value <- base::withVisible(base::local({ 1601s [00:53:21.192] do.call(function(...) { 1601s [00:53:21.192] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1601s [00:53:21.192] if (!identical(...future.globals.maxSize.org, 1601s [00:53:21.192] ...future.globals.maxSize)) { 1601s [00:53:21.192] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1601s [00:53:21.192] on.exit(options(oopts), add = TRUE) 1601s [00:53:21.192] } 1601s [00:53:21.192] { 1601s [00:53:21.192] lapply(seq_along(...future.elements_ii), 1601s [00:53:21.192] FUN = function(jj) { 1601s [00:53:21.192] ...future.X_jj <- ...future.elements_ii[[jj]] 1601s [00:53:21.192] ...future.FUN(...future.X_jj, ...) 1601s [00:53:21.192] }) 1601s [00:53:21.192] } 1601s [00:53:21.192] }, args = future.call.arguments) 1601s [00:53:21.192] })) 1601s [00:53:21.192] future::FutureResult(value = ...future.value$value, 1601s [00:53:21.192] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1601s [00:53:21.192] ...future.rng), globalenv = if (FALSE) 1601s [00:53:21.192] list(added = base::setdiff(base::names(base::.GlobalEnv), 1601s [00:53:21.192] ...future.globalenv.names)) 1601s [00:53:21.192] else NULL, started = ...future.startTime, version = "1.8") 1601s [00:53:21.192] }, condition = base::local({ 1601s [00:53:21.192] c <- base::c 1601s [00:53:21.192] inherits <- base::inherits 1601s [00:53:21.192] invokeRestart <- base::invokeRestart 1601s [00:53:21.192] length <- base::length 1601s [00:53:21.192] list <- base::list 1601s [00:53:21.192] seq.int <- base::seq.int 1601s [00:53:21.192] signalCondition <- base::signalCondition 1601s [00:53:21.192] sys.calls <- base::sys.calls 1601s [00:53:21.192] `[[` <- base::`[[` 1601s [00:53:21.192] `+` <- base::`+` 1601s [00:53:21.192] `<<-` <- base::`<<-` 1601s [00:53:21.192] sysCalls <- function(calls = sys.calls(), from = 1L) { 1601s [00:53:21.192] calls[seq.int(from = from + 12L, to = length(calls) - 1601s [00:53:21.192] 3L)] 1601s [00:53:21.192] } 1601s [00:53:21.192] function(cond) { 1601s [00:53:21.192] is_error <- inherits(cond, "error") 1601s [00:53:21.192] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1601s [00:53:21.192] NULL) 1601s [00:53:21.192] if (is_error) { 1601s [00:53:21.192] sessionInformation <- function() { 1601s [00:53:21.192] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1601s [00:53:21.192] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1601s [00:53:21.192] search = base::search(), system = base::Sys.info()) 1601s [00:53:21.192] } 1601s [00:53:21.192] ...future.conditions[[length(...future.conditions) + 1601s [00:53:21.192] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1601s [00:53:21.192] cond$call), session = sessionInformation(), 1601s [00:53:21.192] timestamp = base::Sys.time(), signaled = 0L) 1601s [00:53:21.192] signalCondition(cond) 1601s [00:53:21.192] } 1601s [00:53:21.192] else if (!ignore && TRUE && inherits(cond, c("condition", 1601s [00:53:21.192] "immediateCondition"))) { 1601s [00:53:21.192] signal <- TRUE && inherits(cond, "immediateCondition") 1601s [00:53:21.192] ...future.conditions[[length(...future.conditions) + 1601s [00:53:21.192] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1601s [00:53:21.192] if (TRUE && !signal) { 1601s [00:53:21.192] muffleCondition <- function (cond, pattern = "^muffle") 1601s [00:53:21.192] { 1601s [00:53:21.192] inherits <- base::inherits 1601s [00:53:21.192] invokeRestart <- base::invokeRestart 1601s [00:53:21.192] is.null <- base::is.null 1601s [00:53:21.192] muffled <- FALSE 1601s [00:53:21.192] if (inherits(cond, "message")) { 1601s [00:53:21.192] muffled <- grepl(pattern, "muffleMessage") 1601s [00:53:21.192] if (muffled) 1601s [00:53:21.192] invokeRestart("muffleMessage") 1601s [00:53:21.192] } 1601s [00:53:21.192] else if (inherits(cond, "warning")) { 1601s [00:53:21.192] muffled <- grepl(pattern, "muffleWarning") 1601s [00:53:21.192] if (muffled) 1601s [00:53:21.192] invokeRestart("muffleWarning") 1601s [00:53:21.192] } 1601s [00:53:21.192] else if (inherits(cond, "condition")) { 1601s [00:53:21.192] if (!is.null(pattern)) { 1601s [00:53:21.192] computeRestarts <- base::computeRestarts 1601s [00:53:21.192] grepl <- base::grepl 1601s [00:53:21.192] restarts <- computeRestarts(cond) 1601s [00:53:21.192] for (restart in restarts) { 1601s [00:53:21.192] name <- restart$name 1601s [00:53:21.192] if (is.null(name)) 1601s [00:53:21.192] next 1601s [00:53:21.192] if (!grepl(pattern, name)) 1601s [00:53:21.192] next 1601s [00:53:21.192] invokeRestart(restart) 1601s [00:53:21.192] muffled <- TRUE 1601s [00:53:21.192] break 1601s [00:53:21.192] } 1601s [00:53:21.192] } 1601s [00:53:21.192] } 1601s [00:53:21.192] invisible(muffled) 1601s [00:53:21.192] } 1601s [00:53:21.192] muffleCondition(cond, pattern = "^muffle") 1601s [00:53:21.192] } 1601s [00:53:21.192] } 1601s [00:53:21.192] else { 1601s [00:53:21.192] if (TRUE) { 1601s [00:53:21.192] muffleCondition <- function (cond, pattern = "^muffle") 1601s [00:53:21.192] { 1601s [00:53:21.192] inherits <- base::inherits 1601s [00:53:21.192] invokeRestart <- base::invokeRestart 1601s [00:53:21.192] is.null <- base::is.null 1601s [00:53:21.192] muffled <- FALSE 1601s [00:53:21.192] if (inherits(cond, "message")) { 1601s [00:53:21.192] muffled <- grepl(pattern, "muffleMessage") 1601s [00:53:21.192] if (muffled) 1601s [00:53:21.192] invokeRestart("muffleMessage") 1601s [00:53:21.192] } 1601s [00:53:21.192] else if (inherits(cond, "warning")) { 1601s [00:53:21.192] muffled <- grepl(pattern, "muffleWarning") 1601s [00:53:21.192] if (muffled) 1601s [00:53:21.192] invokeRestart("muffleWarning") 1601s [00:53:21.192] } 1601s [00:53:21.192] else if (inherits(cond, "condition")) { 1601s [00:53:21.192] if (!is.null(pattern)) { 1601s [00:53:21.192] computeRestarts <- base::computeRestarts 1601s [00:53:21.192] grepl <- base::grepl 1601s [00:53:21.192] restarts <- computeRestarts(cond) 1601s [00:53:21.192] for (restart in restarts) { 1601s [00:53:21.192] name <- restart$name 1601s [00:53:21.192] if (is.null(name)) 1601s [00:53:21.192] next 1601s [00:53:21.192] if (!grepl(pattern, name)) 1601s [00:53:21.192] next 1601s [00:53:21.192] invokeRestart(restart) 1601s [00:53:21.192] muffled <- TRUE 1601s [00:53:21.192] break 1601s [00:53:21.192] } 1601s [00:53:21.192] } 1601s [00:53:21.192] } 1601s [00:53:21.192] invisible(muffled) 1601s [00:53:21.192] } 1601s [00:53:21.192] muffleCondition(cond, pattern = "^muffle") 1601s [00:53:21.192] } 1601s [00:53:21.192] } 1601s [00:53:21.192] } 1601s [00:53:21.192] })) 1601s [00:53:21.192] }, error = function(ex) { 1601s [00:53:21.192] base::structure(base::list(value = NULL, visible = NULL, 1601s [00:53:21.192] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1601s [00:53:21.192] ...future.rng), started = ...future.startTime, 1601s [00:53:21.192] finished = Sys.time(), session_uuid = NA_character_, 1601s [00:53:21.192] version = "1.8"), class = "FutureResult") 1601s [00:53:21.192] }, finally = { 1601s [00:53:21.192] if (!identical(...future.workdir, getwd())) 1601s [00:53:21.192] setwd(...future.workdir) 1601s [00:53:21.192] { 1601s [00:53:21.192] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1601s [00:53:21.192] ...future.oldOptions$nwarnings <- NULL 1601s [00:53:21.192] } 1601s [00:53:21.192] base::options(...future.oldOptions) 1601s [00:53:21.192] if (.Platform$OS.type == "windows") { 1601s [00:53:21.192] old_names <- names(...future.oldEnvVars) 1601s [00:53:21.192] envs <- base::Sys.getenv() 1601s [00:53:21.192] names <- names(envs) 1601s [00:53:21.192] common <- intersect(names, old_names) 1601s [00:53:21.192] added <- setdiff(names, old_names) 1601s [00:53:21.192] removed <- setdiff(old_names, names) 1601s [00:53:21.192] changed <- common[...future.oldEnvVars[common] != 1601s [00:53:21.192] envs[common]] 1601s [00:53:21.192] NAMES <- toupper(changed) 1601s [00:53:21.192] args <- list() 1601s [00:53:21.192] for (kk in seq_along(NAMES)) { 1601s [00:53:21.192] name <- changed[[kk]] 1601s [00:53:21.192] NAME <- NAMES[[kk]] 1601s [00:53:21.192] if (name != NAME && is.element(NAME, old_names)) 1601s [00:53:21.192] next 1601s [00:53:21.192] args[[name]] <- ...future.oldEnvVars[[name]] 1601s [00:53:21.192] } 1601s [00:53:21.192] NAMES <- toupper(added) 1601s [00:53:21.192] for (kk in seq_along(NAMES)) { 1601s [00:53:21.192] name <- added[[kk]] 1601s [00:53:21.192] NAME <- NAMES[[kk]] 1601s [00:53:21.192] if (name != NAME && is.element(NAME, old_names)) 1601s [00:53:21.192] next 1601s [00:53:21.192] args[[name]] <- "" 1601s [00:53:21.192] } 1601s [00:53:21.192] NAMES <- toupper(removed) 1601s [00:53:21.192] for (kk in seq_along(NAMES)) { 1601s [00:53:21.192] name <- removed[[kk]] 1601s [00:53:21.192] NAME <- NAMES[[kk]] 1601s [00:53:21.192] if (name != NAME && is.element(NAME, old_names)) 1601s [00:53:21.192] next 1601s [00:53:21.192] args[[name]] <- ...future.oldEnvVars[[name]] 1601s [00:53:21.192] } 1601s [00:53:21.192] if (length(args) > 0) 1601s [00:53:21.192] base::do.call(base::Sys.setenv, args = args) 1601s [00:53:21.192] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1601s [00:53:21.192] } 1601s [00:53:21.192] else { 1601s [00:53:21.192] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1601s [00:53:21.192] } 1601s [00:53:21.192] { 1601s [00:53:21.192] if (base::length(...future.futureOptionsAdded) > 1601s [00:53:21.192] 0L) { 1601s [00:53:21.192] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1601s [00:53:21.192] base::names(opts) <- ...future.futureOptionsAdded 1601s [00:53:21.192] base::options(opts) 1601s [00:53:21.192] } 1601s [00:53:21.192] { 1601s [00:53:21.192] { 1601s [00:53:21.192] NULL 1601s [00:53:21.192] RNGkind("Mersenne-Twister") 1601s [00:53:21.192] base::rm(list = ".Random.seed", envir = base::globalenv(), 1601s [00:53:21.192] inherits = FALSE) 1601s [00:53:21.192] } 1601s [00:53:21.192] options(future.plan = NULL) 1601s [00:53:21.192] if (is.na(NA_character_)) 1601s [00:53:21.192] Sys.unsetenv("R_FUTURE_PLAN") 1601s [00:53:21.192] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1601s [00:53:21.192] future::plan(list(function (..., workers = availableCores(), 1601s [00:53:21.192] lazy = FALSE, rscript_libs = .libPaths(), 1601s [00:53:21.192] envir = parent.frame()) 1601s [00:53:21.192] { 1601s [00:53:21.192] if (is.function(workers)) 1601s [00:53:21.192] workers <- workers() 1601s [00:53:21.192] workers <- structure(as.integer(workers), 1601s [00:53:21.192] class = class(workers)) 1601s [00:53:21.192] stop_if_not(length(workers) == 1, is.finite(workers), 1601s [00:53:21.192] workers >= 1) 1601s [00:53:21.192] if (workers == 1L && !inherits(workers, "AsIs")) { 1601s [00:53:21.192] return(sequential(..., lazy = TRUE, envir = envir)) 1601s [00:53:21.192] } 1601s [00:53:21.192] future <- MultisessionFuture(..., workers = workers, 1601s [00:53:21.192] lazy = lazy, rscript_libs = rscript_libs, 1601s [00:53:21.192] envir = envir) 1601s [00:53:21.192] if (!future$lazy) 1601s [00:53:21.192] future <- run(future) 1601s [00:53:21.192] invisible(future) 1601s [00:53:21.192] }), .cleanup = FALSE, .init = FALSE) 1601s [00:53:21.192] } 1601s [00:53:21.192] } 1601s [00:53:21.192] } 1601s [00:53:21.192] }) 1601s [00:53:21.192] if (FALSE) { 1601s [00:53:21.192] base::sink(type = "output", split = FALSE) 1601s [00:53:21.192] if (NA) { 1601s [00:53:21.192] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1601s [00:53:21.192] } 1601s [00:53:21.192] else { 1601s [00:53:21.192] ...future.result["stdout"] <- base::list(NULL) 1601s [00:53:21.192] } 1601s [00:53:21.192] base::close(...future.stdout) 1601s [00:53:21.192] ...future.stdout <- NULL 1601s [00:53:21.192] } 1601s [00:53:21.192] ...future.result$conditions <- ...future.conditions 1601s [00:53:21.192] ...future.result$finished <- base::Sys.time() 1601s [00:53:21.192] ...future.result 1601s [00:53:21.192] } 1601s [00:53:21.195] assign_globals() ... 1601s [00:53:21.195] List of 5 1601s [00:53:21.195] $ ...future.FUN :function (x) 1601s [00:53:21.195] $ future.call.arguments : list() 1601s [00:53:21.195] ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list" 1601s [00:53:21.195] $ ...future.elements_ii :List of 2 1601s [00:53:21.195] ..$ : int 1 1601s [00:53:21.195] ..$ : int 0 1601s [00:53:21.195] $ ...future.seeds_ii : NULL 1601s [00:53:21.195] $ ...future.globals.maxSize: NULL 1601s [00:53:21.195] - attr(*, "where")=List of 5 1601s [00:53:21.195] ..$ ...future.FUN : 1601s [00:53:21.195] ..$ future.call.arguments : 1601s [00:53:21.195] ..$ ...future.elements_ii : 1601s [00:53:21.195] ..$ ...future.seeds_ii : 1601s [00:53:21.195] ..$ ...future.globals.maxSize: 1601s [00:53:21.195] - attr(*, "resolved")= logi FALSE 1601s [00:53:21.195] - attr(*, "total_size")= num 4720 1601s [00:53:21.195] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1601s [00:53:21.195] - attr(*, "already-done")= logi TRUE 1601s [00:53:21.203] - reassign environment for ‘...future.FUN’ 1601s [00:53:21.203] - copied ‘...future.FUN’ to environment 1601s [00:53:21.203] - copied ‘future.call.arguments’ to environment 1601s [00:53:21.203] - copied ‘...future.elements_ii’ to environment 1601s [00:53:21.204] - copied ‘...future.seeds_ii’ to environment 1601s [00:53:21.204] - copied ‘...future.globals.maxSize’ to environment 1601s [00:53:21.204] assign_globals() ... done 1601s [00:53:21.204] plan(): Setting new future strategy stack: 1601s [00:53:21.204] List of future strategies: 1601s [00:53:21.204] 1. sequential: 1601s [00:53:21.204] - args: function (..., envir = parent.frame()) 1601s [00:53:21.204] - tweaked: FALSE 1601s [00:53:21.204] - call: NULL 1601s [00:53:21.205] plan(): nbrOfWorkers() = 1 1601s [00:53:21.707] plan(): Setting new future strategy stack: 1601s [00:53:21.707] List of future strategies: 1601s [00:53:21.707] 1. multisession: 1601s [00:53:21.707] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1601s [00:53:21.707] - tweaked: FALSE 1601s [00:53:21.707] - call: plan(strategy) 1601s [00:53:21.712] plan(): nbrOfWorkers() = 1 1601s [00:53:21.712] SequentialFuture started (and completed) 1601s [00:53:21.713] - Launch lazy future ... done 1601s [00:53:21.713] run() for ‘SequentialFuture’ ... done 1601s [00:53:21.713] Created future: 1601s [00:53:21.713] SequentialFuture: 1601s [00:53:21.713] Label: ‘future_lapply-1’ 1601s [00:53:21.713] Expression: 1601s [00:53:21.713] { 1601s [00:53:21.713] do.call(function(...) { 1601s [00:53:21.713] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1601s [00:53:21.713] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1601s [00:53:21.713] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1601s [00:53:21.713] on.exit(options(oopts), add = TRUE) 1601s [00:53:21.713] } 1601s [00:53:21.713] { 1601s [00:53:21.713] lapply(seq_along(...future.elements_ii), FUN = function(jj) { 1601s [00:53:21.713] ...future.X_jj <- ...future.elements_ii[[jj]] 1601s [00:53:21.713] ...future.FUN(...future.X_jj, ...) 1601s [00:53:21.713] }) 1601s [00:53:21.713] } 1601s [00:53:21.713] }, args = future.call.arguments) 1601s [00:53:21.713] } 1601s [00:53:21.713] Lazy evaluation: FALSE 1601s [00:53:21.713] Asynchronous evaluation: FALSE 1601s [00:53:21.713] Local evaluation: TRUE 1601s [00:53:21.713] Environment: R_GlobalEnv 1601s [00:53:21.713] Capture standard output: NA 1601s [00:53:21.713] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1601s [00:53:21.713] Globals: 5 objects totaling 4.72 KiB (function ‘...future.FUN’ of 4.61 KiB, DotDotDotList ‘future.call.arguments’ of 0 bytes, list ‘...future.elements_ii’ of 112 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1601s [00:53:21.713] Packages: 1601s [00:53:21.713] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1601s [00:53:21.713] Resolved: TRUE 1601s [00:53:21.713] Value: 112 bytes of class ‘list’ 1601s [00:53:21.713] Early signaling: FALSE 1601s [00:53:21.713] Owner process: aef6b2cf-a7ff-4166-a7a6-2b6e1e64c3ba 1601s [00:53:21.713] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1601s [00:53:21.715] Chunk #1 of 1 ... DONE 1601s [00:53:21.715] Launching 1 futures (chunks) ... DONE 1601s [00:53:21.715] Resolving 1 futures (chunks) ... 1601s [00:53:21.715] resolve() on list ... 1601s [00:53:21.715] recursive: 0 1601s [00:53:21.716] length: 1 1601s [00:53:21.716] 1601s [00:53:21.716] resolved() for ‘SequentialFuture’ ... 1601s [00:53:21.716] - state: ‘finished’ 1601s [00:53:21.716] - run: TRUE 1601s [00:53:21.716] - result: ‘FutureResult’ 1601s [00:53:21.716] resolved() for ‘SequentialFuture’ ... done 1601s [00:53:21.716] Future #1 1601s [00:53:21.717] signalConditionsASAP(SequentialFuture, pos=1) ... 1601s [00:53:21.717] - nx: 1 1601s [00:53:21.717] - relay: TRUE 1601s [00:53:21.717] - stdout: TRUE 1601s [00:53:21.717] - signal: TRUE 1601s [00:53:21.717] - resignal: FALSE 1601s [00:53:21.717] - force: TRUE 1601s [00:53:21.717] - relayed: [n=1] FALSE 1601s [00:53:21.718] - queued futures: [n=1] FALSE 1601s [00:53:21.718] - until=1 1601s [00:53:21.718] - relaying element #1 1601s [00:53:21.718] - relayed: [n=1] TRUE 1601s [00:53:21.718] - queued futures: [n=1] TRUE 1601s [00:53:21.718] signalConditionsASAP(SequentialFuture, pos=1) ... done 1601s [00:53:21.718] length: 0 (resolved future 1) 1601s [00:53:21.719] Relaying remaining futures 1601s [00:53:21.719] signalConditionsASAP(NULL, pos=0) ... 1601s [00:53:21.719] - nx: 1 1601s [00:53:21.719] - relay: TRUE 1601s [00:53:21.719] - stdout: TRUE 1601s [00:53:21.719] - signal: TRUE 1601s [00:53:21.719] - resignal: FALSE 1601s [00:53:21.719] - force: TRUE 1601s [00:53:21.719] - relayed: [n=1] TRUE 1601s [00:53:21.720] - queued futures: [n=1] TRUE 1601s - flush all 1601s [00:53:21.720] - relayed: [n=1] TRUE 1601s [00:53:21.720] - queued futures: [n=1] TRUE 1601s [00:53:21.720] signalConditionsASAP(NULL, pos=0) ... done 1601s [00:53:21.720] resolve() on list ... DONE 1601s [00:53:21.721] - Number of value chunks collected: 1 1601s [00:53:21.721] Resolving 1 futures (chunks) ... DONE 1601s [00:53:21.721] Reducing values from 1 chunks ... 1601s [00:53:21.721] - Number of values collected after concatenation: 2 1601s [00:53:21.721] - Number of values expected: 2 1601s [00:53:21.721] Reducing values from 1 chunks ... DONE 1601s [00:53:21.722] future_lapply() ... DONE 1601s * future_lapply(x, ..., future.stdout = NA) ... DONE 1601s * future_mapply(x, ..., future.stdout = FALSE) ... 1601s [00:53:21.722] future_mapply() ... 1601s [00:53:21.725] Number of chunks: 1 1601s [00:53:21.726] getGlobalsAndPackagesXApply() ... 1601s [00:53:21.726] - future.globals: TRUE 1601s [00:53:21.726] getGlobalsAndPackages() ... 1601s [00:53:21.726] Searching for globals... 1601s [00:53:21.728] - globals found: [6] ‘FUN’, ‘{’, ‘Sys.sleep’, ‘/’, ‘print’, ‘list’ 1601s [00:53:21.729] Searching for globals ... DONE 1601s [00:53:21.729] Resolving globals: FALSE 1601s [00:53:21.729] The total size of the 1 globals is 6.11 KiB (6256 bytes) 1601s [00:53:21.730] The total size of the 1 globals exported for future expression (‘FUN()’) is 6.11 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (6.11 KiB of class ‘function’) 1601s [00:53:21.730] - globals: [1] ‘FUN’ 1601s [00:53:21.730] 1601s [00:53:21.731] getGlobalsAndPackages() ... DONE 1601s [00:53:21.731] - globals found/used: [n=1] ‘FUN’ 1601s [00:53:21.731] - needed namespaces: [n=0] 1601s [00:53:21.731] Finding globals ... DONE 1601s [00:53:21.731] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1601s [00:53:21.732] List of 2 1601s [00:53:21.732] $ ...future.FUN:function (x, y) 1601s [00:53:21.732] $ MoreArgs : NULL 1601s [00:53:21.732] - attr(*, "where")=List of 2 1601s [00:53:21.732] ..$ ...future.FUN: 1601s [00:53:21.732] ..$ MoreArgs : 1601s [00:53:21.732] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1601s [00:53:21.732] - attr(*, "resolved")= logi FALSE 1601s [00:53:21.732] - attr(*, "total_size")= num NA 1601s [00:53:21.735] Packages to be attached in all futures: [n=0] 1601s [00:53:21.735] getGlobalsAndPackagesXApply() ... DONE 1601s [00:53:21.736] Number of futures (= number of chunks): 1 1601s [00:53:21.736] Launching 1 futures (chunks) ... 1601s [00:53:21.736] Chunk #1 of 1 ... 1601s [00:53:21.736] - Finding globals in '...' for chunk #1 ... 1601s [00:53:21.736] getGlobalsAndPackages() ... 1601s [00:53:21.736] Searching for globals... 1601s [00:53:21.737] 1601s [00:53:21.737] Searching for globals ... DONE 1601s [00:53:21.737] - globals: [0] 1601s [00:53:21.737] getGlobalsAndPackages() ... DONE 1601s [00:53:21.738] + additional globals found: [n=0] 1601s [00:53:21.738] + additional namespaces needed: [n=0] 1601s [00:53:21.738] - Finding globals in '...' for chunk #1 ... DONE 1601s [00:53:21.738] - seeds: 1601s [00:53:21.738] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1601s [00:53:21.738] getGlobalsAndPackages() ... 1601s [00:53:21.739] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1601s [00:53:21.739] Resolving globals: FALSE 1601s [00:53:21.739] The total size of the 5 globals is 6.33 KiB (6480 bytes) 1601s [00:53:21.740] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 6.33 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (6.11 KiB of class ‘function’), ‘...future.elements_ii’ (224 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1601s [00:53:21.740] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1601s [00:53:21.741] 1601s [00:53:21.741] getGlobalsAndPackages() ... DONE 1601s [00:53:21.741] run() for ‘Future’ ... 1601s [00:53:21.741] - state: ‘created’ 1601s [00:53:21.742] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1601s [00:53:21.745] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1601s [00:53:21.745] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1601s [00:53:21.745] - Field: ‘label’ 1601s [00:53:21.745] - Field: ‘local’ 1601s [00:53:21.746] - Field: ‘owner’ 1601s [00:53:21.746] - Field: ‘envir’ 1601s [00:53:21.746] - Field: ‘packages’ 1601s [00:53:21.746] - Field: ‘gc’ 1601s [00:53:21.746] - Field: ‘conditions’ 1601s [00:53:21.749] - Field: ‘expr’ 1601s [00:53:21.749] - Field: ‘uuid’ 1601s [00:53:21.749] - Field: ‘seed’ 1601s [00:53:21.749] - Field: ‘version’ 1601s [00:53:21.749] - Field: ‘result’ 1601s [00:53:21.750] - Field: ‘asynchronous’ 1601s [00:53:21.750] - Field: ‘calls’ 1601s [00:53:21.750] - Field: ‘globals’ 1601s [00:53:21.751] - Field: ‘stdout’ 1601s [00:53:21.751] - Field: ‘earlySignal’ 1601s [00:53:21.751] - Field: ‘lazy’ 1601s [00:53:21.751] - Field: ‘state’ 1601s [00:53:21.751] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1601s [00:53:21.752] - Launch lazy future ... 1601s [00:53:21.752] Packages needed by the future expression (n = 0): 1601s [00:53:21.752] Packages needed by future strategies (n = 0): 1601s [00:53:21.753] { 1601s [00:53:21.753] { 1601s [00:53:21.753] { 1601s [00:53:21.753] ...future.startTime <- base::Sys.time() 1601s [00:53:21.753] { 1601s [00:53:21.753] { 1601s [00:53:21.753] { 1601s [00:53:21.753] base::local({ 1601s [00:53:21.753] has_future <- base::requireNamespace("future", 1601s [00:53:21.753] quietly = TRUE) 1601s [00:53:21.753] if (has_future) { 1601s [00:53:21.753] ns <- base::getNamespace("future") 1601s [00:53:21.753] version <- ns[[".package"]][["version"]] 1601s [00:53:21.753] if (is.null(version)) 1601s [00:53:21.753] version <- utils::packageVersion("future") 1601s [00:53:21.753] } 1601s [00:53:21.753] else { 1601s [00:53:21.753] version <- NULL 1601s [00:53:21.753] } 1601s [00:53:21.753] if (!has_future || version < "1.8.0") { 1601s [00:53:21.753] info <- base::c(r_version = base::gsub("R version ", 1601s [00:53:21.753] "", base::R.version$version.string), 1601s [00:53:21.753] platform = base::sprintf("%s (%s-bit)", 1601s [00:53:21.753] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1601s [00:53:21.753] os = base::paste(base::Sys.info()[base::c("sysname", 1601s [00:53:21.753] "release", "version")], collapse = " "), 1601s [00:53:21.753] hostname = base::Sys.info()[["nodename"]]) 1601s [00:53:21.753] info <- base::sprintf("%s: %s", base::names(info), 1601s [00:53:21.753] info) 1601s [00:53:21.753] info <- base::paste(info, collapse = "; ") 1601s [00:53:21.753] if (!has_future) { 1601s [00:53:21.753] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1601s [00:53:21.753] info) 1601s [00:53:21.753] } 1601s [00:53:21.753] else { 1601s [00:53:21.753] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1601s [00:53:21.753] info, version) 1601s [00:53:21.753] } 1601s [00:53:21.753] base::stop(msg) 1601s [00:53:21.753] } 1601s [00:53:21.753] }) 1601s [00:53:21.753] } 1601s [00:53:21.753] options(future.plan = NULL) 1601s [00:53:21.753] Sys.unsetenv("R_FUTURE_PLAN") 1601s [00:53:21.753] future::plan("default", .cleanup = FALSE, .init = FALSE) 1601s [00:53:21.753] } 1601s [00:53:21.753] ...future.workdir <- getwd() 1601s [00:53:21.753] } 1601s [00:53:21.753] ...future.oldOptions <- base::as.list(base::.Options) 1601s [00:53:21.753] ...future.oldEnvVars <- base::Sys.getenv() 1601s [00:53:21.753] } 1601s [00:53:21.753] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1601s [00:53:21.753] future.globals.maxSize = NULL, future.globals.method = NULL, 1601s [00:53:21.753] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1601s [00:53:21.753] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1601s [00:53:21.753] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1601s [00:53:21.753] future.stdout.windows.reencode = NULL, width = 80L) 1601s [00:53:21.753] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1601s [00:53:21.753] base::names(...future.oldOptions)) 1601s [00:53:21.753] } 1601s [00:53:21.753] if (FALSE) { 1601s [00:53:21.753] } 1601s [00:53:21.753] else { 1601s [00:53:21.753] if (FALSE) { 1601s [00:53:21.753] ...future.stdout <- base::rawConnection(base::raw(0L), 1601s [00:53:21.753] open = "w") 1601s [00:53:21.753] } 1601s [00:53:21.753] else { 1601s [00:53:21.753] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1601s [00:53:21.753] windows = "NUL", "/dev/null"), open = "w") 1601s [00:53:21.753] } 1601s [00:53:21.753] base::sink(...future.stdout, type = "output", split = FALSE) 1601s [00:53:21.753] base::on.exit(if (!base::is.null(...future.stdout)) { 1601s [00:53:21.753] base::sink(type = "output", split = FALSE) 1601s [00:53:21.753] base::close(...future.stdout) 1601s [00:53:21.753] }, add = TRUE) 1601s [00:53:21.753] } 1601s [00:53:21.753] ...future.frame <- base::sys.nframe() 1601s [00:53:21.753] ...future.conditions <- base::list() 1601s [00:53:21.753] ...future.rng <- base::globalenv()$.Random.seed 1601s [00:53:21.753] if (FALSE) { 1601s [00:53:21.753] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1601s [00:53:21.753] "...future.value", "...future.globalenv.names", ".Random.seed") 1601s [00:53:21.753] } 1601s [00:53:21.753] ...future.result <- base::tryCatch({ 1601s [00:53:21.753] base::withCallingHandlers({ 1601s [00:53:21.753] ...future.value <- base::withVisible(base::local({ 1601s [00:53:21.753] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1601s [00:53:21.753] if (!identical(...future.globals.maxSize.org, 1601s [00:53:21.753] ...future.globals.maxSize)) { 1601s [00:53:21.753] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1601s [00:53:21.753] on.exit(options(oopts), add = TRUE) 1601s [00:53:21.753] } 1601s [00:53:21.753] { 1601s [00:53:21.753] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1601s [00:53:21.753] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1601s [00:53:21.753] USE.NAMES = FALSE) 1601s [00:53:21.753] do.call(mapply, args = args) 1601s [00:53:21.753] } 1601s [00:53:21.753] })) 1601s [00:53:21.753] future::FutureResult(value = ...future.value$value, 1601s [00:53:21.753] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1601s [00:53:21.753] ...future.rng), globalenv = if (FALSE) 1601s [00:53:21.753] list(added = base::setdiff(base::names(base::.GlobalEnv), 1601s [00:53:21.753] ...future.globalenv.names)) 1601s [00:53:21.753] else NULL, started = ...future.startTime, version = "1.8") 1601s [00:53:21.753] }, condition = base::local({ 1601s [00:53:21.753] c <- base::c 1601s [00:53:21.753] inherits <- base::inherits 1601s [00:53:21.753] invokeRestart <- base::invokeRestart 1601s [00:53:21.753] length <- base::length 1601s [00:53:21.753] list <- base::list 1601s [00:53:21.753] seq.int <- base::seq.int 1601s [00:53:21.753] signalCondition <- base::signalCondition 1601s [00:53:21.753] sys.calls <- base::sys.calls 1601s [00:53:21.753] `[[` <- base::`[[` 1601s [00:53:21.753] `+` <- base::`+` 1601s [00:53:21.753] `<<-` <- base::`<<-` 1601s [00:53:21.753] sysCalls <- function(calls = sys.calls(), from = 1L) { 1601s [00:53:21.753] calls[seq.int(from = from + 12L, to = length(calls) - 1601s [00:53:21.753] 3L)] 1601s [00:53:21.753] } 1601s [00:53:21.753] function(cond) { 1601s [00:53:21.753] is_error <- inherits(cond, "error") 1601s [00:53:21.753] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1601s [00:53:21.753] NULL) 1601s [00:53:21.753] if (is_error) { 1601s [00:53:21.753] sessionInformation <- function() { 1601s [00:53:21.753] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1601s [00:53:21.753] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1601s [00:53:21.753] search = base::search(), system = base::Sys.info()) 1601s [00:53:21.753] } 1601s [00:53:21.753] ...future.conditions[[length(...future.conditions) + 1601s [00:53:21.753] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1601s [00:53:21.753] cond$call), session = sessionInformation(), 1601s [00:53:21.753] timestamp = base::Sys.time(), signaled = 0L) 1601s [00:53:21.753] signalCondition(cond) 1601s [00:53:21.753] } 1601s [00:53:21.753] else if (!ignore && TRUE && inherits(cond, c("condition", 1601s [00:53:21.753] "immediateCondition"))) { 1601s [00:53:21.753] signal <- TRUE && inherits(cond, "immediateCondition") 1601s [00:53:21.753] ...future.conditions[[length(...future.conditions) + 1601s [00:53:21.753] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1601s [00:53:21.753] if (TRUE && !signal) { 1601s [00:53:21.753] muffleCondition <- function (cond, pattern = "^muffle") 1601s [00:53:21.753] { 1601s [00:53:21.753] inherits <- base::inherits 1601s [00:53:21.753] invokeRestart <- base::invokeRestart 1601s [00:53:21.753] is.null <- base::is.null 1601s [00:53:21.753] muffled <- FALSE 1601s [00:53:21.753] if (inherits(cond, "message")) { 1601s [00:53:21.753] muffled <- grepl(pattern, "muffleMessage") 1601s [00:53:21.753] if (muffled) 1601s [00:53:21.753] invokeRestart("muffleMessage") 1601s [00:53:21.753] } 1601s [00:53:21.753] else if (inherits(cond, "warning")) { 1601s [00:53:21.753] muffled <- grepl(pattern, "muffleWarning") 1601s [00:53:21.753] if (muffled) 1601s [00:53:21.753] invokeRestart("muffleWarning") 1601s [00:53:21.753] } 1601s [00:53:21.753] else if (inherits(cond, "condition")) { 1601s [00:53:21.753] if (!is.null(pattern)) { 1601s [00:53:21.753] computeRestarts <- base::computeRestarts 1601s [00:53:21.753] grepl <- base::grepl 1601s [00:53:21.753] restarts <- computeRestarts(cond) 1601s [00:53:21.753] for (restart in restarts) { 1601s [00:53:21.753] name <- restart$name 1601s [00:53:21.753] if (is.null(name)) 1601s [00:53:21.753] next 1601s [00:53:21.753] if (!grepl(pattern, name)) 1601s [00:53:21.753] next 1601s [00:53:21.753] invokeRestart(restart) 1601s [00:53:21.753] muffled <- TRUE 1601s [00:53:21.753] break 1601s [00:53:21.753] } 1601s [00:53:21.753] } 1601s [00:53:21.753] } 1601s [00:53:21.753] invisible(muffled) 1601s [00:53:21.753] } 1601s [00:53:21.753] muffleCondition(cond, pattern = "^muffle") 1601s [00:53:21.753] } 1601s [00:53:21.753] } 1601s [00:53:21.753] else { 1601s [00:53:21.753] if (TRUE) { 1601s [00:53:21.753] muffleCondition <- function (cond, pattern = "^muffle") 1601s [00:53:21.753] { 1601s [00:53:21.753] inherits <- base::inherits 1601s [00:53:21.753] invokeRestart <- base::invokeRestart 1601s [00:53:21.753] is.null <- base::is.null 1601s [00:53:21.753] muffled <- FALSE 1601s [00:53:21.753] if (inherits(cond, "message")) { 1601s [00:53:21.753] muffled <- grepl(pattern, "muffleMessage") 1601s [00:53:21.753] if (muffled) 1601s [00:53:21.753] invokeRestart("muffleMessage") 1601s [00:53:21.753] } 1601s [00:53:21.753] else if (inherits(cond, "warning")) { 1601s [00:53:21.753] muffled <- grepl(pattern, "muffleWarning") 1601s [00:53:21.753] if (muffled) 1601s [00:53:21.753] invokeRestart("muffleWarning") 1601s [00:53:21.753] } 1601s [00:53:21.753] else if (inherits(cond, "condition")) { 1601s [00:53:21.753] if (!is.null(pattern)) { 1601s [00:53:21.753] computeRestarts <- base::computeRestarts 1601s [00:53:21.753] grepl <- base::grepl 1601s [00:53:21.753] restarts <- computeRestarts(cond) 1601s [00:53:21.753] for (restart in restarts) { 1601s [00:53:21.753] name <- restart$name 1601s [00:53:21.753] if (is.null(name)) 1601s [00:53:21.753] next 1601s [00:53:21.753] if (!grepl(pattern, name)) 1601s [00:53:21.753] next 1601s [00:53:21.753] invokeRestart(restart) 1601s [00:53:21.753] muffled <- TRUE 1601s [00:53:21.753] break 1601s [00:53:21.753] } 1601s [00:53:21.753] } 1601s [00:53:21.753] } 1601s [00:53:21.753] invisible(muffled) 1601s [00:53:21.753] } 1601s [00:53:21.753] muffleCondition(cond, pattern = "^muffle") 1601s [00:53:21.753] } 1601s [00:53:21.753] } 1601s [00:53:21.753] } 1601s [00:53:21.753] })) 1601s [00:53:21.753] }, error = function(ex) { 1601s [00:53:21.753] base::structure(base::list(value = NULL, visible = NULL, 1601s [00:53:21.753] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1601s [00:53:21.753] ...future.rng), started = ...future.startTime, 1601s [00:53:21.753] finished = Sys.time(), session_uuid = NA_character_, 1601s [00:53:21.753] version = "1.8"), class = "FutureResult") 1601s [00:53:21.753] }, finally = { 1601s [00:53:21.753] if (!identical(...future.workdir, getwd())) 1601s [00:53:21.753] setwd(...future.workdir) 1601s [00:53:21.753] { 1601s [00:53:21.753] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1601s [00:53:21.753] ...future.oldOptions$nwarnings <- NULL 1601s [00:53:21.753] } 1601s [00:53:21.753] base::options(...future.oldOptions) 1601s [00:53:21.753] if (.Platform$OS.type == "windows") { 1601s [00:53:21.753] old_names <- names(...future.oldEnvVars) 1601s [00:53:21.753] envs <- base::Sys.getenv() 1601s [00:53:21.753] names <- names(envs) 1601s [00:53:21.753] common <- intersect(names, old_names) 1601s [00:53:21.753] added <- setdiff(names, old_names) 1601s [00:53:21.753] removed <- setdiff(old_names, names) 1601s [00:53:21.753] changed <- common[...future.oldEnvVars[common] != 1601s [00:53:21.753] envs[common]] 1601s [00:53:21.753] NAMES <- toupper(changed) 1601s [00:53:21.753] args <- list() 1601s [00:53:21.753] for (kk in seq_along(NAMES)) { 1601s [00:53:21.753] name <- changed[[kk]] 1601s [00:53:21.753] NAME <- NAMES[[kk]] 1601s [00:53:21.753] if (name != NAME && is.element(NAME, old_names)) 1601s [00:53:21.753] next 1601s [00:53:21.753] args[[name]] <- ...future.oldEnvVars[[name]] 1601s [00:53:21.753] } 1601s [00:53:21.753] NAMES <- toupper(added) 1601s [00:53:21.753] for (kk in seq_along(NAMES)) { 1601s [00:53:21.753] name <- added[[kk]] 1601s [00:53:21.753] NAME <- NAMES[[kk]] 1601s [00:53:21.753] if (name != NAME && is.element(NAME, old_names)) 1601s [00:53:21.753] next 1601s [00:53:21.753] args[[name]] <- "" 1601s [00:53:21.753] } 1601s [00:53:21.753] NAMES <- toupper(removed) 1601s [00:53:21.753] for (kk in seq_along(NAMES)) { 1601s [00:53:21.753] name <- removed[[kk]] 1601s [00:53:21.753] NAME <- NAMES[[kk]] 1601s [00:53:21.753] if (name != NAME && is.element(NAME, old_names)) 1601s [00:53:21.753] next 1601s [00:53:21.753] args[[name]] <- ...future.oldEnvVars[[name]] 1601s [00:53:21.753] } 1601s [00:53:21.753] if (length(args) > 0) 1601s [00:53:21.753] base::do.call(base::Sys.setenv, args = args) 1601s [00:53:21.753] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1601s [00:53:21.753] } 1601s [00:53:21.753] else { 1601s [00:53:21.753] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1601s [00:53:21.753] } 1601s [00:53:21.753] { 1601s [00:53:21.753] if (base::length(...future.futureOptionsAdded) > 1601s [00:53:21.753] 0L) { 1601s [00:53:21.753] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1601s [00:53:21.753] base::names(opts) <- ...future.futureOptionsAdded 1601s [00:53:21.753] base::options(opts) 1601s [00:53:21.753] } 1601s [00:53:21.753] { 1601s [00:53:21.753] { 1601s [00:53:21.753] NULL 1601s [00:53:21.753] RNGkind("Mersenne-Twister") 1601s [00:53:21.753] base::rm(list = ".Random.seed", envir = base::globalenv(), 1601s [00:53:21.753] inherits = FALSE) 1601s [00:53:21.753] } 1601s [00:53:21.753] options(future.plan = NULL) 1601s [00:53:21.753] if (is.na(NA_character_)) 1601s [00:53:21.753] Sys.unsetenv("R_FUTURE_PLAN") 1601s [00:53:21.753] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1601s [00:53:21.753] future::plan(list(function (..., workers = availableCores(), 1601s [00:53:21.753] lazy = FALSE, rscript_libs = .libPaths(), 1601s [00:53:21.753] envir = parent.frame()) 1601s [00:53:21.753] { 1601s [00:53:21.753] if (is.function(workers)) 1601s [00:53:21.753] workers <- workers() 1601s [00:53:21.753] workers <- structure(as.integer(workers), 1601s [00:53:21.753] class = class(workers)) 1601s [00:53:21.753] stop_if_not(length(workers) == 1, is.finite(workers), 1601s [00:53:21.753] workers >= 1) 1601s [00:53:21.753] if (workers == 1L && !inherits(workers, "AsIs")) { 1601s [00:53:21.753] return(sequential(..., lazy = TRUE, envir = envir)) 1601s [00:53:21.753] } 1601s [00:53:21.753] future <- MultisessionFuture(..., workers = workers, 1601s [00:53:21.753] lazy = lazy, rscript_libs = rscript_libs, 1601s [00:53:21.753] envir = envir) 1601s [00:53:21.753] if (!future$lazy) 1601s [00:53:21.753] future <- run(future) 1601s [00:53:21.753] invisible(future) 1601s [00:53:21.753] }), .cleanup = FALSE, .init = FALSE) 1601s [00:53:21.753] } 1601s [00:53:21.753] } 1601s [00:53:21.753] } 1601s [00:53:21.753] }) 1601s [00:53:21.753] if (TRUE) { 1601s [00:53:21.753] base::sink(type = "output", split = FALSE) 1601s [00:53:21.753] if (FALSE) { 1601s [00:53:21.753] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1601s [00:53:21.753] } 1601s [00:53:21.753] else { 1601s [00:53:21.753] ...future.result["stdout"] <- base::list(NULL) 1601s [00:53:21.753] } 1601s [00:53:21.753] base::close(...future.stdout) 1601s [00:53:21.753] ...future.stdout <- NULL 1601s [00:53:21.753] } 1601s [00:53:21.753] ...future.result$conditions <- ...future.conditions 1601s [00:53:21.753] ...future.result$finished <- base::Sys.time() 1601s [00:53:21.753] ...future.result 1601s [00:53:21.753] } 1601s [00:53:21.756] assign_globals() ... 1601s [00:53:21.756] List of 5 1601s [00:53:21.756] $ ...future.FUN :function (x, y) 1601s [00:53:21.756] $ MoreArgs : NULL 1601s [00:53:21.756] $ ...future.elements_ii :List of 2 1601s [00:53:21.756] ..$ :List of 2 1601s [00:53:21.756] .. ..$ : int 1 1601s [00:53:21.756] .. ..$ : int 0 1601s [00:53:21.756] ..$ :List of 2 1601s [00:53:21.756] .. ..$ : int 0 1601s [00:53:21.756] .. ..$ : int 1 1601s [00:53:21.756] $ ...future.seeds_ii : NULL 1601s [00:53:21.756] $ ...future.globals.maxSize: NULL 1601s [00:53:21.756] - attr(*, "where")=List of 5 1601s [00:53:21.756] ..$ ...future.FUN : 1601s [00:53:21.756] ..$ MoreArgs : 1601s [00:53:21.756] ..$ ...future.elements_ii : 1601s [00:53:21.756] ..$ ...future.seeds_ii : 1601s [00:53:21.756] ..$ ...future.globals.maxSize: 1601s [00:53:21.756] - attr(*, "resolved")= logi FALSE 1601s [00:53:21.756] - attr(*, "total_size")= num 6480 1601s [00:53:21.756] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1601s [00:53:21.756] - attr(*, "already-done")= logi TRUE 1601s [00:53:21.764] - reassign environment for ‘...future.FUN’ 1601s [00:53:21.764] - copied ‘...future.FUN’ to environment 1601s [00:53:21.764] - copied ‘MoreArgs’ to environment 1601s [00:53:21.765] - copied ‘...future.elements_ii’ to environment 1601s [00:53:21.765] - copied ‘...future.seeds_ii’ to environment 1601s [00:53:21.765] - copied ‘...future.globals.maxSize’ to environment 1601s [00:53:21.765] assign_globals() ... done 1601s [00:53:21.766] plan(): Setting new future strategy stack: 1601s [00:53:21.766] List of future strategies: 1601s [00:53:21.766] 1. sequential: 1601s [00:53:21.766] - args: function (..., envir = parent.frame()) 1601s [00:53:21.766] - tweaked: FALSE 1601s [00:53:21.766] - call: NULL 1601s [00:53:21.767] plan(): nbrOfWorkers() = 1 1602s [00:53:22.269] plan(): Setting new future strategy stack: 1602s [00:53:22.270] List of future strategies: 1602s [00:53:22.270] 1. multisession: 1602s [00:53:22.270] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1602s [00:53:22.270] - tweaked: FALSE 1602s [00:53:22.270] - call: plan(strategy) 1602s [00:53:22.275] plan(): nbrOfWorkers() = 1 1602s [00:53:22.276] SequentialFuture started (and completed) 1602s [00:53:22.276] - Launch lazy future ... done 1602s [00:53:22.276] run() for ‘SequentialFuture’ ... done 1602s [00:53:22.277] Created future: 1602s [00:53:22.277] SequentialFuture: 1602s [00:53:22.277] Label: ‘future_mapply-1’ 1602s [00:53:22.277] Expression: 1602s [00:53:22.277] { 1602s [00:53:22.277] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1602s [00:53:22.277] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1602s [00:53:22.277] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1602s [00:53:22.277] on.exit(options(oopts), add = TRUE) 1602s [00:53:22.277] } 1602s [00:53:22.277] { 1602s [00:53:22.277] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1602s [00:53:22.277] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1602s [00:53:22.277] do.call(mapply, args = args) 1602s [00:53:22.277] } 1602s [00:53:22.277] } 1602s [00:53:22.277] Lazy evaluation: FALSE 1602s [00:53:22.277] Asynchronous evaluation: FALSE 1602s [00:53:22.277] Local evaluation: TRUE 1602s [00:53:22.277] Environment: R_GlobalEnv 1602s [00:53:22.277] Capture standard output: FALSE 1602s [00:53:22.277] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1602s [00:53:22.277] Globals: 5 objects totaling 6.33 KiB (function ‘...future.FUN’ of 6.11 KiB, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1602s [00:53:22.277] Packages: 1602s [00:53:22.277] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1602s [00:53:22.277] Resolved: TRUE 1602s [00:53:22.277] Value: 224 bytes of class ‘list’ 1602s [00:53:22.277] Early signaling: FALSE 1602s [00:53:22.277] Owner process: aef6b2cf-a7ff-4166-a7a6-2b6e1e64c3ba 1602s [00:53:22.277] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1602s [00:53:22.279] Chunk #1 of 1 ... DONE 1602s [00:53:22.279] Launching 1 futures (chunks) ... DONE 1602s [00:53:22.279] Resolving 1 futures (chunks) ... 1602s [00:53:22.280] resolve() on list ... 1602s [00:53:22.280] recursive: 0 1602s [00:53:22.280] length: 1 1602s [00:53:22.280] 1602s [00:53:22.281] resolved() for ‘SequentialFuture’ ... 1602s [00:53:22.281] - state: ‘finished’ 1602s [00:53:22.281] - run: TRUE 1602s [00:53:22.281] - result: ‘FutureResult’ 1602s [00:53:22.281] resolved() for ‘SequentialFuture’ ... done 1602s [00:53:22.282] Future #1 1602s [00:53:22.282] signalConditionsASAP(SequentialFuture, pos=1) ... 1602s [00:53:22.282] - nx: 1 1602s [00:53:22.282] - relay: TRUE 1602s [00:53:22.282] - stdout: TRUE 1602s [00:53:22.283] - signal: TRUE 1602s [00:53:22.283] - resignal: FALSE 1602s [00:53:22.283] - force: TRUE 1602s [00:53:22.283] - relayed: [n=1] FALSE 1602s [00:53:22.283] - queued futures: [n=1] FALSE 1602s [00:53:22.284] - until=1 1602s [00:53:22.284] - relaying element #1 1602s [00:53:22.284] - relayed: [n=1] TRUE 1602s [00:53:22.284] - queued futures: [n=1] TRUE 1602s [00:53:22.285] signalConditionsASAP(SequentialFuture, pos=1) ... done 1602s [00:53:22.285] length: 0 (resolved future 1) 1602s [00:53:22.285] Relaying remaining futures 1602s [00:53:22.285] signalConditionsASAP(NULL, pos=0) ... 1602s [00:53:22.285] - nx: 1 1602s [00:53:22.286] - relay: TRUE 1602s [00:53:22.286] - stdout: TRUE 1602s [00:53:22.286] - signal: TRUE 1602s [00:53:22.286] - resignal: FALSE 1602s [00:53:22.286] - force: TRUE 1602s [00:53:22.287] - relayed: [n=1] TRUE 1602s [00:53:22.287] - queued futures: [n=1] TRUE 1602s - flush all 1602s [00:53:22.287] - relayed: [n=1] TRUE 1602s [00:53:22.287] - queued futures: [n=1] TRUE 1602s [00:53:22.288] signalConditionsASAP(NULL, pos=0) ... done 1602s [00:53:22.288] resolve() on list ... DONE 1602s [00:53:22.288] - Number of value chunks collected: 1 1602s [00:53:22.288] Resolving 1 futures (chunks) ... DONE 1602s [00:53:22.289] Reducing values from 1 chunks ... 1602s [00:53:22.289] - Number of values collected after concatenation: 2 1602s [00:53:22.289] - Number of values expected: 2 1602s [00:53:22.289] Reducing values from 1 chunks ... DONE 1602s [00:53:22.289] future_mapply() ... DONE 1602s * future_mapply(x, ..., future.stdout = FALSE) ... DONE 1602s * future_mapply(x, ..., future.stdout = TRUE) ... 1602s [00:53:22.290] future_mapply() ... 1602s [00:53:22.294] Number of chunks: 1 1602s [00:53:22.295] getGlobalsAndPackagesXApply() ... 1602s [00:53:22.295] - future.globals: TRUE 1602s [00:53:22.295] getGlobalsAndPackages() ... 1602s [00:53:22.295] Searching for globals... 1602s [00:53:22.298] - globals found: [6] ‘FUN’, ‘{’, ‘Sys.sleep’, ‘/’, ‘print’, ‘list’ 1602s [00:53:22.298] Searching for globals ... DONE 1602s [00:53:22.299] Resolving globals: FALSE 1602s [00:53:22.299] The total size of the 1 globals is 6.11 KiB (6256 bytes) 1602s [00:53:22.300] The total size of the 1 globals exported for future expression (‘FUN()’) is 6.11 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (6.11 KiB of class ‘function’) 1602s [00:53:22.300] - globals: [1] ‘FUN’ 1602s [00:53:22.300] 1602s [00:53:22.301] getGlobalsAndPackages() ... DONE 1602s [00:53:22.301] - globals found/used: [n=1] ‘FUN’ 1602s [00:53:22.301] - needed namespaces: [n=0] 1602s [00:53:22.301] Finding globals ... DONE 1602s [00:53:22.302] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1602s [00:53:22.302] List of 2 1602s [00:53:22.302] $ ...future.FUN:function (x, y) 1602s [00:53:22.302] $ MoreArgs : NULL 1602s [00:53:22.302] - attr(*, "where")=List of 2 1602s [00:53:22.302] ..$ ...future.FUN: 1602s [00:53:22.302] ..$ MoreArgs : 1602s [00:53:22.302] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1602s [00:53:22.302] - attr(*, "resolved")= logi FALSE 1602s [00:53:22.302] - attr(*, "total_size")= num NA 1602s [00:53:22.309] Packages to be attached in all futures: [n=0] 1602s [00:53:22.310] getGlobalsAndPackagesXApply() ... DONE 1602s [00:53:22.310] Number of futures (= number of chunks): 1 1602s [00:53:22.310] Launching 1 futures (chunks) ... 1602s [00:53:22.310] Chunk #1 of 1 ... 1602s [00:53:22.311] - Finding globals in '...' for chunk #1 ... 1602s [00:53:22.311] getGlobalsAndPackages() ... 1602s [00:53:22.311] Searching for globals... 1602s [00:53:22.311] 1602s [00:53:22.312] Searching for globals ... DONE 1602s [00:53:22.312] - globals: [0] 1602s [00:53:22.312] getGlobalsAndPackages() ... DONE 1602s [00:53:22.312] + additional globals found: [n=0] 1602s [00:53:22.312] + additional namespaces needed: [n=0] 1602s [00:53:22.312] - Finding globals in '...' for chunk #1 ... DONE 1602s [00:53:22.312] - seeds: 1602s [00:53:22.313] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1602s [00:53:22.313] getGlobalsAndPackages() ... 1602s [00:53:22.313] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1602s [00:53:22.313] Resolving globals: FALSE 1602s [00:53:22.314] The total size of the 5 globals is 6.33 KiB (6480 bytes) 1602s [00:53:22.315] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 6.33 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (6.11 KiB of class ‘function’), ‘...future.elements_ii’ (224 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1602s [00:53:22.315] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1602s [00:53:22.315] 1602s [00:53:22.315] getGlobalsAndPackages() ... DONE 1602s [00:53:22.316] run() for ‘Future’ ... 1602s [00:53:22.316] - state: ‘created’ 1602s [00:53:22.316] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1602s [00:53:22.320] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1602s [00:53:22.321] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1602s [00:53:22.321] - Field: ‘label’ 1602s [00:53:22.321] - Field: ‘local’ 1602s [00:53:22.321] - Field: ‘owner’ 1602s [00:53:22.322] - Field: ‘envir’ 1602s [00:53:22.322] - Field: ‘packages’ 1602s [00:53:22.322] - Field: ‘gc’ 1602s [00:53:22.322] - Field: ‘conditions’ 1602s [00:53:22.322] - Field: ‘expr’ 1602s [00:53:22.323] - Field: ‘uuid’ 1602s [00:53:22.323] - Field: ‘seed’ 1602s [00:53:22.323] - Field: ‘version’ 1602s [00:53:22.323] - Field: ‘result’ 1602s [00:53:22.323] - Field: ‘asynchronous’ 1602s [00:53:22.324] - Field: ‘calls’ 1602s [00:53:22.324] - Field: ‘globals’ 1602s [00:53:22.324] - Field: ‘stdout’ 1602s [00:53:22.324] - Field: ‘earlySignal’ 1602s [00:53:22.325] - Field: ‘lazy’ 1602s [00:53:22.325] - Field: ‘state’ 1602s [00:53:22.325] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1602s [00:53:22.325] - Launch lazy future ... 1602s [00:53:22.325] Packages needed by the future expression (n = 0): 1602s [00:53:22.326] Packages needed by future strategies (n = 0): 1602s [00:53:22.327] { 1602s [00:53:22.327] { 1602s [00:53:22.327] { 1602s [00:53:22.327] ...future.startTime <- base::Sys.time() 1602s [00:53:22.327] { 1602s [00:53:22.327] { 1602s [00:53:22.327] { 1602s [00:53:22.327] base::local({ 1602s [00:53:22.327] has_future <- base::requireNamespace("future", 1602s [00:53:22.327] quietly = TRUE) 1602s [00:53:22.327] if (has_future) { 1602s [00:53:22.327] ns <- base::getNamespace("future") 1602s [00:53:22.327] version <- ns[[".package"]][["version"]] 1602s [00:53:22.327] if (is.null(version)) 1602s [00:53:22.327] version <- utils::packageVersion("future") 1602s [00:53:22.327] } 1602s [00:53:22.327] else { 1602s [00:53:22.327] version <- NULL 1602s [00:53:22.327] } 1602s [00:53:22.327] if (!has_future || version < "1.8.0") { 1602s [00:53:22.327] info <- base::c(r_version = base::gsub("R version ", 1602s [00:53:22.327] "", base::R.version$version.string), 1602s [00:53:22.327] platform = base::sprintf("%s (%s-bit)", 1602s [00:53:22.327] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1602s [00:53:22.327] os = base::paste(base::Sys.info()[base::c("sysname", 1602s [00:53:22.327] "release", "version")], collapse = " "), 1602s [00:53:22.327] hostname = base::Sys.info()[["nodename"]]) 1602s [00:53:22.327] info <- base::sprintf("%s: %s", base::names(info), 1602s [00:53:22.327] info) 1602s [00:53:22.327] info <- base::paste(info, collapse = "; ") 1602s [00:53:22.327] if (!has_future) { 1602s [00:53:22.327] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1602s [00:53:22.327] info) 1602s [00:53:22.327] } 1602s [00:53:22.327] else { 1602s [00:53:22.327] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1602s [00:53:22.327] info, version) 1602s [00:53:22.327] } 1602s [00:53:22.327] base::stop(msg) 1602s [00:53:22.327] } 1602s [00:53:22.327] }) 1602s [00:53:22.327] } 1602s [00:53:22.327] options(future.plan = NULL) 1602s [00:53:22.327] Sys.unsetenv("R_FUTURE_PLAN") 1602s [00:53:22.327] future::plan("default", .cleanup = FALSE, .init = FALSE) 1602s [00:53:22.327] } 1602s [00:53:22.327] ...future.workdir <- getwd() 1602s [00:53:22.327] } 1602s [00:53:22.327] ...future.oldOptions <- base::as.list(base::.Options) 1602s [00:53:22.327] ...future.oldEnvVars <- base::Sys.getenv() 1602s [00:53:22.327] } 1602s [00:53:22.327] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1602s [00:53:22.327] future.globals.maxSize = NULL, future.globals.method = NULL, 1602s [00:53:22.327] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1602s [00:53:22.327] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1602s [00:53:22.327] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1602s [00:53:22.327] future.stdout.windows.reencode = NULL, width = 80L) 1602s [00:53:22.327] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1602s [00:53:22.327] base::names(...future.oldOptions)) 1602s [00:53:22.327] } 1602s [00:53:22.327] if (FALSE) { 1602s [00:53:22.327] } 1602s [00:53:22.327] else { 1602s [00:53:22.327] if (TRUE) { 1602s [00:53:22.327] ...future.stdout <- base::rawConnection(base::raw(0L), 1602s [00:53:22.327] open = "w") 1602s [00:53:22.327] } 1602s [00:53:22.327] else { 1602s [00:53:22.327] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1602s [00:53:22.327] windows = "NUL", "/dev/null"), open = "w") 1602s [00:53:22.327] } 1602s [00:53:22.327] base::sink(...future.stdout, type = "output", split = FALSE) 1602s [00:53:22.327] base::on.exit(if (!base::is.null(...future.stdout)) { 1602s [00:53:22.327] base::sink(type = "output", split = FALSE) 1602s [00:53:22.327] base::close(...future.stdout) 1602s [00:53:22.327] }, add = TRUE) 1602s [00:53:22.327] } 1602s [00:53:22.327] ...future.frame <- base::sys.nframe() 1602s [00:53:22.327] ...future.conditions <- base::list() 1602s [00:53:22.327] ...future.rng <- base::globalenv()$.Random.seed 1602s [00:53:22.327] if (FALSE) { 1602s [00:53:22.327] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1602s [00:53:22.327] "...future.value", "...future.globalenv.names", ".Random.seed") 1602s [00:53:22.327] } 1602s [00:53:22.327] ...future.result <- base::tryCatch({ 1602s [00:53:22.327] base::withCallingHandlers({ 1602s [00:53:22.327] ...future.value <- base::withVisible(base::local({ 1602s [00:53:22.327] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1602s [00:53:22.327] if (!identical(...future.globals.maxSize.org, 1602s [00:53:22.327] ...future.globals.maxSize)) { 1602s [00:53:22.327] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1602s [00:53:22.327] on.exit(options(oopts), add = TRUE) 1602s [00:53:22.327] } 1602s [00:53:22.327] { 1602s [00:53:22.327] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1602s [00:53:22.327] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1602s [00:53:22.327] USE.NAMES = FALSE) 1602s [00:53:22.327] do.call(mapply, args = args) 1602s [00:53:22.327] } 1602s [00:53:22.327] })) 1602s [00:53:22.327] future::FutureResult(value = ...future.value$value, 1602s [00:53:22.327] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1602s [00:53:22.327] ...future.rng), globalenv = if (FALSE) 1602s [00:53:22.327] list(added = base::setdiff(base::names(base::.GlobalEnv), 1602s [00:53:22.327] ...future.globalenv.names)) 1602s [00:53:22.327] else NULL, started = ...future.startTime, version = "1.8") 1602s [00:53:22.327] }, condition = base::local({ 1602s [00:53:22.327] c <- base::c 1602s [00:53:22.327] inherits <- base::inherits 1602s [00:53:22.327] invokeRestart <- base::invokeRestart 1602s [00:53:22.327] length <- base::length 1602s [00:53:22.327] list <- base::list 1602s [00:53:22.327] seq.int <- base::seq.int 1602s [00:53:22.327] signalCondition <- base::signalCondition 1602s [00:53:22.327] sys.calls <- base::sys.calls 1602s [00:53:22.327] `[[` <- base::`[[` 1602s [00:53:22.327] `+` <- base::`+` 1602s [00:53:22.327] `<<-` <- base::`<<-` 1602s [00:53:22.327] sysCalls <- function(calls = sys.calls(), from = 1L) { 1602s [00:53:22.327] calls[seq.int(from = from + 12L, to = length(calls) - 1602s [00:53:22.327] 3L)] 1602s [00:53:22.327] } 1602s [00:53:22.327] function(cond) { 1602s [00:53:22.327] is_error <- inherits(cond, "error") 1602s [00:53:22.327] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1602s [00:53:22.327] NULL) 1602s [00:53:22.327] if (is_error) { 1602s [00:53:22.327] sessionInformation <- function() { 1602s [00:53:22.327] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1602s [00:53:22.327] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1602s [00:53:22.327] search = base::search(), system = base::Sys.info()) 1602s [00:53:22.327] } 1602s [00:53:22.327] ...future.conditions[[length(...future.conditions) + 1602s [00:53:22.327] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1602s [00:53:22.327] cond$call), session = sessionInformation(), 1602s [00:53:22.327] timestamp = base::Sys.time(), signaled = 0L) 1602s [00:53:22.327] signalCondition(cond) 1602s [00:53:22.327] } 1602s [00:53:22.327] else if (!ignore && TRUE && inherits(cond, c("condition", 1602s [00:53:22.327] "immediateCondition"))) { 1602s [00:53:22.327] signal <- TRUE && inherits(cond, "immediateCondition") 1602s [00:53:22.327] ...future.conditions[[length(...future.conditions) + 1602s [00:53:22.327] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1602s [00:53:22.327] if (TRUE && !signal) { 1602s [00:53:22.327] muffleCondition <- function (cond, pattern = "^muffle") 1602s [00:53:22.327] { 1602s [00:53:22.327] inherits <- base::inherits 1602s [00:53:22.327] invokeRestart <- base::invokeRestart 1602s [00:53:22.327] is.null <- base::is.null 1602s [00:53:22.327] muffled <- FALSE 1602s [00:53:22.327] if (inherits(cond, "message")) { 1602s [00:53:22.327] muffled <- grepl(pattern, "muffleMessage") 1602s [00:53:22.327] if (muffled) 1602s [00:53:22.327] invokeRestart("muffleMessage") 1602s [00:53:22.327] } 1602s [00:53:22.327] else if (inherits(cond, "warning")) { 1602s [00:53:22.327] muffled <- grepl(pattern, "muffleWarning") 1602s [00:53:22.327] if (muffled) 1602s [00:53:22.327] invokeRestart("muffleWarning") 1602s [00:53:22.327] } 1602s [00:53:22.327] else if (inherits(cond, "condition")) { 1602s [00:53:22.327] if (!is.null(pattern)) { 1602s [00:53:22.327] computeRestarts <- base::computeRestarts 1602s [00:53:22.327] grepl <- base::grepl 1602s [00:53:22.327] restarts <- computeRestarts(cond) 1602s [00:53:22.327] for (restart in restarts) { 1602s [00:53:22.327] name <- restart$name 1602s [00:53:22.327] if (is.null(name)) 1602s [00:53:22.327] next 1602s [00:53:22.327] if (!grepl(pattern, name)) 1602s [00:53:22.327] next 1602s [00:53:22.327] invokeRestart(restart) 1602s [00:53:22.327] muffled <- TRUE 1602s [00:53:22.327] break 1602s [00:53:22.327] } 1602s [00:53:22.327] } 1602s [00:53:22.327] } 1602s [00:53:22.327] invisible(muffled) 1602s [00:53:22.327] } 1602s [00:53:22.327] muffleCondition(cond, pattern = "^muffle") 1602s [00:53:22.327] } 1602s [00:53:22.327] } 1602s [00:53:22.327] else { 1602s [00:53:22.327] if (TRUE) { 1602s [00:53:22.327] muffleCondition <- function (cond, pattern = "^muffle") 1602s [00:53:22.327] { 1602s [00:53:22.327] inherits <- base::inherits 1602s [00:53:22.327] invokeRestart <- base::invokeRestart 1602s [00:53:22.327] is.null <- base::is.null 1602s [00:53:22.327] muffled <- FALSE 1602s [00:53:22.327] if (inherits(cond, "message")) { 1602s [00:53:22.327] muffled <- grepl(pattern, "muffleMessage") 1602s [00:53:22.327] if (muffled) 1602s [00:53:22.327] invokeRestart("muffleMessage") 1602s [00:53:22.327] } 1602s [00:53:22.327] else if (inherits(cond, "warning")) { 1602s [00:53:22.327] muffled <- grepl(pattern, "muffleWarning") 1602s [00:53:22.327] if (muffled) 1602s [00:53:22.327] invokeRestart("muffleWarning") 1602s [00:53:22.327] } 1602s [00:53:22.327] else if (inherits(cond, "condition")) { 1602s [00:53:22.327] if (!is.null(pattern)) { 1602s [00:53:22.327] computeRestarts <- base::computeRestarts 1602s [00:53:22.327] grepl <- base::grepl 1602s [00:53:22.327] restarts <- computeRestarts(cond) 1602s [00:53:22.327] for (restart in restarts) { 1602s [00:53:22.327] name <- restart$name 1602s [00:53:22.327] if (is.null(name)) 1602s [00:53:22.327] next 1602s [00:53:22.327] if (!grepl(pattern, name)) 1602s [00:53:22.327] next 1602s [00:53:22.327] invokeRestart(restart) 1602s [00:53:22.327] muffled <- TRUE 1602s [00:53:22.327] break 1602s [00:53:22.327] } 1602s [00:53:22.327] } 1602s [00:53:22.327] } 1602s [00:53:22.327] invisible(muffled) 1602s [00:53:22.327] } 1602s [00:53:22.327] muffleCondition(cond, pattern = "^muffle") 1602s [00:53:22.327] } 1602s [00:53:22.327] } 1602s [00:53:22.327] } 1602s [00:53:22.327] })) 1602s [00:53:22.327] }, error = function(ex) { 1602s [00:53:22.327] base::structure(base::list(value = NULL, visible = NULL, 1602s [00:53:22.327] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1602s [00:53:22.327] ...future.rng), started = ...future.startTime, 1602s [00:53:22.327] finished = Sys.time(), session_uuid = NA_character_, 1602s [00:53:22.327] version = "1.8"), class = "FutureResult") 1602s [00:53:22.327] }, finally = { 1602s [00:53:22.327] if (!identical(...future.workdir, getwd())) 1602s [00:53:22.327] setwd(...future.workdir) 1602s [00:53:22.327] { 1602s [00:53:22.327] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1602s [00:53:22.327] ...future.oldOptions$nwarnings <- NULL 1602s [00:53:22.327] } 1602s [00:53:22.327] base::options(...future.oldOptions) 1602s [00:53:22.327] if (.Platform$OS.type == "windows") { 1602s [00:53:22.327] old_names <- names(...future.oldEnvVars) 1602s [00:53:22.327] envs <- base::Sys.getenv() 1602s [00:53:22.327] names <- names(envs) 1602s [00:53:22.327] common <- intersect(names, old_names) 1602s [00:53:22.327] added <- setdiff(names, old_names) 1602s [00:53:22.327] removed <- setdiff(old_names, names) 1602s [00:53:22.327] changed <- common[...future.oldEnvVars[common] != 1602s [00:53:22.327] envs[common]] 1602s [00:53:22.327] NAMES <- toupper(changed) 1602s [00:53:22.327] args <- list() 1602s [00:53:22.327] for (kk in seq_along(NAMES)) { 1602s [00:53:22.327] name <- changed[[kk]] 1602s [00:53:22.327] NAME <- NAMES[[kk]] 1602s [00:53:22.327] if (name != NAME && is.element(NAME, old_names)) 1602s [00:53:22.327] next 1602s [00:53:22.327] args[[name]] <- ...future.oldEnvVars[[name]] 1602s [00:53:22.327] } 1602s [00:53:22.327] NAMES <- toupper(added) 1602s [00:53:22.327] for (kk in seq_along(NAMES)) { 1602s [00:53:22.327] name <- added[[kk]] 1602s [00:53:22.327] NAME <- NAMES[[kk]] 1602s [00:53:22.327] if (name != NAME && is.element(NAME, old_names)) 1602s [00:53:22.327] next 1602s [00:53:22.327] args[[name]] <- "" 1602s [00:53:22.327] } 1602s [00:53:22.327] NAMES <- toupper(removed) 1602s [00:53:22.327] for (kk in seq_along(NAMES)) { 1602s [00:53:22.327] name <- removed[[kk]] 1602s [00:53:22.327] NAME <- NAMES[[kk]] 1602s [00:53:22.327] if (name != NAME && is.element(NAME, old_names)) 1602s [00:53:22.327] next 1602s [00:53:22.327] args[[name]] <- ...future.oldEnvVars[[name]] 1602s [00:53:22.327] } 1602s [00:53:22.327] if (length(args) > 0) 1602s [00:53:22.327] base::do.call(base::Sys.setenv, args = args) 1602s [00:53:22.327] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1602s [00:53:22.327] } 1602s [00:53:22.327] else { 1602s [00:53:22.327] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1602s [00:53:22.327] } 1602s [00:53:22.327] { 1602s [00:53:22.327] if (base::length(...future.futureOptionsAdded) > 1602s [00:53:22.327] 0L) { 1602s [00:53:22.327] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1602s [00:53:22.327] base::names(opts) <- ...future.futureOptionsAdded 1602s [00:53:22.327] base::options(opts) 1602s [00:53:22.327] } 1602s [00:53:22.327] { 1602s [00:53:22.327] { 1602s [00:53:22.327] NULL 1602s [00:53:22.327] RNGkind("Mersenne-Twister") 1602s [00:53:22.327] base::rm(list = ".Random.seed", envir = base::globalenv(), 1602s [00:53:22.327] inherits = FALSE) 1602s [00:53:22.327] } 1602s [00:53:22.327] options(future.plan = NULL) 1602s [00:53:22.327] if (is.na(NA_character_)) 1602s [00:53:22.327] Sys.unsetenv("R_FUTURE_PLAN") 1602s [00:53:22.327] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1602s [00:53:22.327] future::plan(list(function (..., workers = availableCores(), 1602s [00:53:22.327] lazy = FALSE, rscript_libs = .libPaths(), 1602s [00:53:22.327] envir = parent.frame()) 1602s [00:53:22.327] { 1602s [00:53:22.327] if (is.function(workers)) 1602s [00:53:22.327] workers <- workers() 1602s [00:53:22.327] workers <- structure(as.integer(workers), 1602s [00:53:22.327] class = class(workers)) 1602s [00:53:22.327] stop_if_not(length(workers) == 1, is.finite(workers), 1602s [00:53:22.327] workers >= 1) 1602s [00:53:22.327] if (workers == 1L && !inherits(workers, "AsIs")) { 1602s [00:53:22.327] return(sequential(..., lazy = TRUE, envir = envir)) 1602s [00:53:22.327] } 1602s [00:53:22.327] future <- MultisessionFuture(..., workers = workers, 1602s [00:53:22.327] lazy = lazy, rscript_libs = rscript_libs, 1602s [00:53:22.327] envir = envir) 1602s [00:53:22.327] if (!future$lazy) 1602s [00:53:22.327] future <- run(future) 1602s [00:53:22.327] invisible(future) 1602s [00:53:22.327] }), .cleanup = FALSE, .init = FALSE) 1602s [00:53:22.327] } 1602s [00:53:22.327] } 1602s [00:53:22.327] } 1602s [00:53:22.327] }) 1602s [00:53:22.327] if (TRUE) { 1602s [00:53:22.327] base::sink(type = "output", split = FALSE) 1602s [00:53:22.327] if (TRUE) { 1602s [00:53:22.327] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1602s [00:53:22.327] } 1602s [00:53:22.327] else { 1602s [00:53:22.327] ...future.result["stdout"] <- base::list(NULL) 1602s [00:53:22.327] } 1602s [00:53:22.327] base::close(...future.stdout) 1602s [00:53:22.327] ...future.stdout <- NULL 1602s [00:53:22.327] } 1602s [00:53:22.327] ...future.result$conditions <- ...future.conditions 1602s [00:53:22.327] ...future.result$finished <- base::Sys.time() 1602s [00:53:22.327] ...future.result 1602s [00:53:22.327] } 1602s [00:53:22.334] assign_globals() ... 1602s [00:53:22.335] List of 5 1602s [00:53:22.335] $ ...future.FUN :function (x, y) 1602s [00:53:22.335] $ MoreArgs : NULL 1602s [00:53:22.335] $ ...future.elements_ii :List of 2 1602s [00:53:22.335] ..$ :List of 2 1602s [00:53:22.335] .. ..$ : int 1 1602s [00:53:22.335] .. ..$ : int 0 1602s [00:53:22.335] ..$ :List of 2 1602s [00:53:22.335] .. ..$ : int 0 1602s [00:53:22.335] .. ..$ : int 1 1602s [00:53:22.335] $ ...future.seeds_ii : NULL 1602s [00:53:22.335] $ ...future.globals.maxSize: NULL 1602s [00:53:22.335] - attr(*, "where")=List of 5 1602s [00:53:22.335] ..$ ...future.FUN : 1602s [00:53:22.335] ..$ MoreArgs : 1602s [00:53:22.335] ..$ ...future.elements_ii : 1602s [00:53:22.335] ..$ ...future.seeds_ii : 1602s [00:53:22.335] ..$ ...future.globals.maxSize: 1602s [00:53:22.335] - attr(*, "resolved")= logi FALSE 1602s [00:53:22.335] - attr(*, "total_size")= num 6480 1602s [00:53:22.335] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1602s [00:53:22.335] - attr(*, "already-done")= logi TRUE 1602s [00:53:22.341] - reassign environment for ‘...future.FUN’ 1602s [00:53:22.341] - copied ‘...future.FUN’ to environment 1602s [00:53:22.342] - copied ‘MoreArgs’ to environment 1602s [00:53:22.342] - copied ‘...future.elements_ii’ to environment 1602s [00:53:22.342] - copied ‘...future.seeds_ii’ to environment 1602s [00:53:22.342] - copied ‘...future.globals.maxSize’ to environment 1602s [00:53:22.342] assign_globals() ... done 1602s [00:53:22.342] plan(): Setting new future strategy stack: 1602s [00:53:22.343] List of future strategies: 1602s [00:53:22.343] 1. sequential: 1602s [00:53:22.343] - args: function (..., envir = parent.frame()) 1602s [00:53:22.343] - tweaked: FALSE 1602s [00:53:22.343] - call: NULL 1602s [00:53:22.343] plan(): nbrOfWorkers() = 1 1602s [00:53:22.845] plan(): Setting new future strategy stack: 1602s [00:53:22.846] List of future strategies: 1602s [00:53:22.846] 1. multisession: 1602s [00:53:22.846] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1602s [00:53:22.846] - tweaked: FALSE 1602s [00:53:22.846] - call: plan(strategy) 1602s [00:53:22.850] plan(): nbrOfWorkers() = 1 1602s [00:53:22.850] SequentialFuture started (and completed) 1602s [00:53:22.851] - Launch lazy future ... done 1602s [00:53:22.851] run() for ‘SequentialFuture’ ... done 1602s [00:53:22.851] Created future: 1602s [00:53:22.851] SequentialFuture: 1602s [00:53:22.851] Label: ‘future_mapply-1’ 1602s [00:53:22.851] Expression: 1602s [00:53:22.851] { 1602s [00:53:22.851] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1602s [00:53:22.851] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1602s [00:53:22.851] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1602s [00:53:22.851] on.exit(options(oopts), add = TRUE) 1602s [00:53:22.851] } 1602s [00:53:22.851] { 1602s [00:53:22.851] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1602s [00:53:22.851] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1602s [00:53:22.851] do.call(mapply, args = args) 1602s [00:53:22.851] } 1602s [00:53:22.851] } 1602s [00:53:22.851] Lazy evaluation: FALSE 1602s [00:53:22.851] Asynchronous evaluation: FALSE 1602s [00:53:22.851] Local evaluation: TRUE 1602s [00:53:22.851] Environment: R_GlobalEnv 1602s [00:53:22.851] Capture standard output: TRUE 1602s [00:53:22.851] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1602s [00:53:22.851] Globals: 5 objects totaling 6.33 KiB (function ‘...future.FUN’ of 6.11 KiB, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1602s [00:53:22.851] Packages: 1602s [00:53:22.851] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1602s [00:53:22.851] Resolved: TRUE 1602s [00:53:22.851] Value: 224 bytes of class ‘list’ 1602s [00:53:22.851] Early signaling: FALSE 1602s [00:53:22.851] Owner process: aef6b2cf-a7ff-4166-a7a6-2b6e1e64c3ba 1602s [00:53:22.851] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1602s [00:53:22.853] Chunk #1 of 1 ... DONE 1602s [00:53:22.853] Launching 1 futures (chunks) ... DONE 1602s [00:53:22.853] Resolving 1 futures (chunks) ... 1602s [00:53:22.854] resolve() on list ... 1602s [00:53:22.854] recursive: 0 1602s [00:53:22.854] length: 1 1602s [00:53:22.854] 1602s [00:53:22.854] resolved() for ‘SequentialFuture’ ... 1602s [00:53:22.854] - state: ‘finished’ 1602s [00:53:22.854] - run: TRUE 1602s [00:53:22.855] - result: ‘FutureResult’ 1602s [00:53:22.855] resolved() for ‘SequentialFuture’ ... done 1602s [00:53:22.855] Future #1 1602s [00:53:22.855] signalConditionsASAP(SequentialFuture, pos=1) ... 1602s [00:53:22.855] - nx: 1 1602s [00:53:22.855] - relay: TRUE 1602s [00:53:22.856] - stdout: TRUE 1602s [00:53:22.856] - signal: TRUE 1602s [00:53:22.856] - resignal: FALSE 1602s [00:53:22.856] - force: TRUE 1602s [00:53:22.856] - relayed: [n=1] FALSE 1602s [00:53:22.856] - queued futures: [n=1] FALSE 1602s [00:53:22.857] - until=1 1602s [00:53:22.859] - relaying element #1 1602s [00:53:22.860] - relayed: [n=1] TRUE 1602s [00:53:22.860] - queued futures: [n=1] TRUE 1602s [00:53:22.860] signalConditionsASAP(SequentialFuture, pos=1) ... done 1602s [00:53:22.860] length: 0 (resolved future 1) 1602s [00:53:22.861] Relaying remaining futures 1602s [00:53:22.861] signalConditionsASAP(NULL, pos=0) ... 1602s [00:53:22.861] - nx: 1 1602s [00:53:22.861] - relay: TRUE 1602s [00:53:22.861] - stdout: TRUE 1602s [00:53:22.862] - signal: TRUE 1602s [00:53:22.862] - resignal: FALSE 1602s [00:53:22.862] - force: TRUE 1602s [00:53:22.862] - relayed: [n=1] TRUE 1602s [00:53:22.862] - queued futures: [n=1] TRUE 1602s - flush all 1602s [00:53:22.862] - relayed: [n=1] TRUE 1602s [00:53:22.862] - queued futures: [n=1] TRUE 1602s [00:53:22.863] signalConditionsASAP(NULL, pos=0) ... done 1602s [00:53:22.863] resolve() on list ... DONE 1602s [00:53:22.863] - Number of value chunks collected: 1 1602s [00:53:22.863] Resolving 1 futures (chunks) ... DONE 1602s [00:53:22.863] Reducing values from 1 chunks ... 1602s [00:53:22.863] - Number of values collected after concatenation: 2 1602s [00:53:22.863] - Number of values expected: 2 1602s [00:53:22.864] Reducing values from 1 chunks ... DONE 1602s [00:53:22.864] future_mapply() ... DONE 1602s * future_mapply(x, ..., future.stdout = TRUE) ... DONE 1602s * future_mapply(x, ..., future.stdout = NA) ... 1602s [00:53:22.864] future_mapply() ... 1602s [00:53:22.867] Number of chunks: 1 1602s [00:53:22.868] getGlobalsAndPackagesXApply() ... 1602s [00:53:22.868] - future.globals: TRUE 1602s [00:53:22.868] getGlobalsAndPackages() ... 1602s [00:53:22.868] Searching for globals... 1602s [00:53:22.870] - globals found: [6] ‘FUN’, ‘{’, ‘Sys.sleep’, ‘/’, ‘print’, ‘list’ 1602s [00:53:22.871] Searching for globals ... DONE 1602s [00:53:22.871] Resolving globals: FALSE 1602s [00:53:22.871] The total size of the 1 globals is 6.11 KiB (6256 bytes) 1602s [00:53:22.872] The total size of the 1 globals exported for future expression (‘FUN()’) is 6.11 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: ‘FUN’ (6.11 KiB of class ‘function’) 1602s [00:53:22.872] - globals: [1] ‘FUN’ 1602s [00:53:22.872] 1602s [00:53:22.872] getGlobalsAndPackages() ... DONE 1602s [00:53:22.872] - globals found/used: [n=1] ‘FUN’ 1602s [00:53:22.873] - needed namespaces: [n=0] 1602s [00:53:22.873] Finding globals ... DONE 1602s [00:53:22.873] Globals to be used in all futures (chunks): [n=2] ‘...future.FUN’, ‘MoreArgs’ 1602s [00:53:22.873] List of 2 1602s [00:53:22.873] $ ...future.FUN:function (x, y) 1602s [00:53:22.873] $ MoreArgs : NULL 1602s [00:53:22.873] - attr(*, "where")=List of 2 1602s [00:53:22.873] ..$ ...future.FUN: 1602s [00:53:22.873] ..$ MoreArgs : 1602s [00:53:22.873] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1602s [00:53:22.873] - attr(*, "resolved")= logi FALSE 1602s [00:53:22.873] - attr(*, "total_size")= num NA 1602s [00:53:22.877] Packages to be attached in all futures: [n=0] 1602s [00:53:22.877] getGlobalsAndPackagesXApply() ... DONE 1602s [00:53:22.877] Number of futures (= number of chunks): 1 1602s [00:53:22.877] Launching 1 futures (chunks) ... 1602s [00:53:22.877] Chunk #1 of 1 ... 1602s [00:53:22.877] - Finding globals in '...' for chunk #1 ... 1602s [00:53:22.878] getGlobalsAndPackages() ... 1602s [00:53:22.878] Searching for globals... 1602s [00:53:22.878] 1602s [00:53:22.878] Searching for globals ... DONE 1602s [00:53:22.878] - globals: [0] 1602s [00:53:22.878] getGlobalsAndPackages() ... DONE 1602s [00:53:22.878] + additional globals found: [n=0] 1602s [00:53:22.879] + additional namespaces needed: [n=0] 1602s [00:53:22.879] - Finding globals in '...' for chunk #1 ... DONE 1602s [00:53:22.879] - seeds: 1602s [00:53:22.879] - All globals exported: [n=5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1602s [00:53:22.879] getGlobalsAndPackages() ... 1602s [00:53:22.879] - globals passed as-is: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1602s [00:53:22.879] Resolving globals: FALSE 1602s [00:53:22.880] The total size of the 5 globals is 6.33 KiB (6480 bytes) 1602s [00:53:22.881] The total size of the 5 globals exported for future expression (‘{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }’) is 6.33 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are ‘...future.FUN’ (6.11 KiB of class ‘function’), ‘...future.elements_ii’ (224 bytes of class ‘list’) and ‘MoreArgs’ (0 bytes of class ‘NULL’) 1602s [00:53:22.881] - globals: [5] ‘...future.FUN’, ‘MoreArgs’, ‘...future.elements_ii’, ‘...future.seeds_ii’, ‘...future.globals.maxSize’ 1602s [00:53:22.881] 1602s [00:53:22.881] getGlobalsAndPackages() ... DONE 1602s [00:53:22.882] run() for ‘Future’ ... 1602s [00:53:22.882] - state: ‘created’ 1602s [00:53:22.882] - Future backend: ‘FutureStrategy’, ‘multisession’, ‘cluster’, ‘multiprocess’, ‘future’, ‘function’ 1602s [00:53:22.886] - Future class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1602s [00:53:22.886] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... 1602s [00:53:22.886] - Field: ‘label’ 1602s [00:53:22.886] - Field: ‘local’ 1602s [00:53:22.886] - Field: ‘owner’ 1602s [00:53:22.886] - Field: ‘envir’ 1602s [00:53:22.887] - Field: ‘packages’ 1602s [00:53:22.887] - Field: ‘gc’ 1602s [00:53:22.887] - Field: ‘conditions’ 1602s [00:53:22.887] - Field: ‘expr’ 1602s [00:53:22.887] - Field: ‘uuid’ 1602s [00:53:22.887] - Field: ‘seed’ 1602s [00:53:22.888] - Field: ‘version’ 1602s [00:53:22.888] - Field: ‘result’ 1602s [00:53:22.888] - Field: ‘asynchronous’ 1602s [00:53:22.888] - Field: ‘calls’ 1602s [00:53:22.888] - Field: ‘globals’ 1602s [00:53:22.888] - Field: ‘stdout’ 1602s [00:53:22.888] - Field: ‘earlySignal’ 1602s [00:53:22.888] - Field: ‘lazy’ 1602s [00:53:22.889] - Field: ‘state’ 1602s [00:53:22.889] - Copy elements of temporary ‘SequentialFuture’ to final ‘Future’ object ... done 1602s [00:53:22.889] - Launch lazy future ... 1602s [00:53:22.889] Packages needed by the future expression (n = 0): 1602s [00:53:22.889] Packages needed by future strategies (n = 0): 1602s [00:53:22.890] { 1602s [00:53:22.890] { 1602s [00:53:22.890] { 1602s [00:53:22.890] ...future.startTime <- base::Sys.time() 1602s [00:53:22.890] { 1602s [00:53:22.890] { 1602s [00:53:22.890] { 1602s [00:53:22.890] base::local({ 1602s [00:53:22.890] has_future <- base::requireNamespace("future", 1602s [00:53:22.890] quietly = TRUE) 1602s [00:53:22.890] if (has_future) { 1602s [00:53:22.890] ns <- base::getNamespace("future") 1602s [00:53:22.890] version <- ns[[".package"]][["version"]] 1602s [00:53:22.890] if (is.null(version)) 1602s [00:53:22.890] version <- utils::packageVersion("future") 1602s [00:53:22.890] } 1602s [00:53:22.890] else { 1602s [00:53:22.890] version <- NULL 1602s [00:53:22.890] } 1602s [00:53:22.890] if (!has_future || version < "1.8.0") { 1602s [00:53:22.890] info <- base::c(r_version = base::gsub("R version ", 1602s [00:53:22.890] "", base::R.version$version.string), 1602s [00:53:22.890] platform = base::sprintf("%s (%s-bit)", 1602s [00:53:22.890] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 1602s [00:53:22.890] os = base::paste(base::Sys.info()[base::c("sysname", 1602s [00:53:22.890] "release", "version")], collapse = " "), 1602s [00:53:22.890] hostname = base::Sys.info()[["nodename"]]) 1602s [00:53:22.890] info <- base::sprintf("%s: %s", base::names(info), 1602s [00:53:22.890] info) 1602s [00:53:22.890] info <- base::paste(info, collapse = "; ") 1602s [00:53:22.890] if (!has_future) { 1602s [00:53:22.890] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 1602s [00:53:22.890] info) 1602s [00:53:22.890] } 1602s [00:53:22.890] else { 1602s [00:53:22.890] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 1602s [00:53:22.890] info, version) 1602s [00:53:22.890] } 1602s [00:53:22.890] base::stop(msg) 1602s [00:53:22.890] } 1602s [00:53:22.890] }) 1602s [00:53:22.890] } 1602s [00:53:22.890] options(future.plan = NULL) 1602s [00:53:22.890] Sys.unsetenv("R_FUTURE_PLAN") 1602s [00:53:22.890] future::plan("default", .cleanup = FALSE, .init = FALSE) 1602s [00:53:22.890] } 1602s [00:53:22.890] ...future.workdir <- getwd() 1602s [00:53:22.890] } 1602s [00:53:22.890] ...future.oldOptions <- base::as.list(base::.Options) 1602s [00:53:22.890] ...future.oldEnvVars <- base::Sys.getenv() 1602s [00:53:22.890] } 1602s [00:53:22.890] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 1602s [00:53:22.890] future.globals.maxSize = NULL, future.globals.method = NULL, 1602s [00:53:22.890] future.globals.onMissing = NULL, future.globals.onReference = NULL, 1602s [00:53:22.890] future.globals.resolve = NULL, future.resolve.recursive = NULL, 1602s [00:53:22.890] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 1602s [00:53:22.890] future.stdout.windows.reencode = NULL, width = 80L) 1602s [00:53:22.890] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 1602s [00:53:22.890] base::names(...future.oldOptions)) 1602s [00:53:22.890] } 1602s [00:53:22.890] if (TRUE) { 1602s [00:53:22.890] } 1602s [00:53:22.890] else { 1602s [00:53:22.890] if (NA) { 1602s [00:53:22.890] ...future.stdout <- base::rawConnection(base::raw(0L), 1602s [00:53:22.890] open = "w") 1602s [00:53:22.890] } 1602s [00:53:22.890] else { 1602s [00:53:22.890] ...future.stdout <- base::file(base::switch(.Platform$OS.type, 1602s [00:53:22.890] windows = "NUL", "/dev/null"), open = "w") 1602s [00:53:22.890] } 1602s [00:53:22.890] base::sink(...future.stdout, type = "output", split = FALSE) 1602s [00:53:22.890] base::on.exit(if (!base::is.null(...future.stdout)) { 1602s [00:53:22.890] base::sink(type = "output", split = FALSE) 1602s [00:53:22.890] base::close(...future.stdout) 1602s [00:53:22.890] }, add = TRUE) 1602s [00:53:22.890] } 1602s [00:53:22.890] ...future.frame <- base::sys.nframe() 1602s [00:53:22.890] ...future.conditions <- base::list() 1602s [00:53:22.890] ...future.rng <- base::globalenv()$.Random.seed 1602s [00:53:22.890] if (FALSE) { 1602s [00:53:22.890] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 1602s [00:53:22.890] "...future.value", "...future.globalenv.names", ".Random.seed") 1602s [00:53:22.890] } 1602s [00:53:22.890] ...future.result <- base::tryCatch({ 1602s [00:53:22.890] base::withCallingHandlers({ 1602s [00:53:22.890] ...future.value <- base::withVisible(base::local({ 1602s [00:53:22.890] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1602s [00:53:22.890] if (!identical(...future.globals.maxSize.org, 1602s [00:53:22.890] ...future.globals.maxSize)) { 1602s [00:53:22.890] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1602s [00:53:22.890] on.exit(options(oopts), add = TRUE) 1602s [00:53:22.890] } 1602s [00:53:22.890] { 1602s [00:53:22.890] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1602s [00:53:22.890] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 1602s [00:53:22.890] USE.NAMES = FALSE) 1602s [00:53:22.890] do.call(mapply, args = args) 1602s [00:53:22.890] } 1602s [00:53:22.890] })) 1602s [00:53:22.890] future::FutureResult(value = ...future.value$value, 1602s [00:53:22.890] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 1602s [00:53:22.890] ...future.rng), globalenv = if (FALSE) 1602s [00:53:22.890] list(added = base::setdiff(base::names(base::.GlobalEnv), 1602s [00:53:22.890] ...future.globalenv.names)) 1602s [00:53:22.890] else NULL, started = ...future.startTime, version = "1.8") 1602s [00:53:22.890] }, condition = base::local({ 1602s [00:53:22.890] c <- base::c 1602s [00:53:22.890] inherits <- base::inherits 1602s [00:53:22.890] invokeRestart <- base::invokeRestart 1602s [00:53:22.890] length <- base::length 1602s [00:53:22.890] list <- base::list 1602s [00:53:22.890] seq.int <- base::seq.int 1602s [00:53:22.890] signalCondition <- base::signalCondition 1602s [00:53:22.890] sys.calls <- base::sys.calls 1602s [00:53:22.890] `[[` <- base::`[[` 1602s [00:53:22.890] `+` <- base::`+` 1602s [00:53:22.890] `<<-` <- base::`<<-` 1602s [00:53:22.890] sysCalls <- function(calls = sys.calls(), from = 1L) { 1602s [00:53:22.890] calls[seq.int(from = from + 12L, to = length(calls) - 1602s [00:53:22.890] 3L)] 1602s [00:53:22.890] } 1602s [00:53:22.890] function(cond) { 1602s [00:53:22.890] is_error <- inherits(cond, "error") 1602s [00:53:22.890] ignore <- !is_error && !is.null(NULL) && inherits(cond, 1602s [00:53:22.890] NULL) 1602s [00:53:22.890] if (is_error) { 1602s [00:53:22.890] sessionInformation <- function() { 1602s [00:53:22.890] list(r = base::R.Version(), locale = base::Sys.getlocale(), 1602s [00:53:22.890] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 1602s [00:53:22.890] search = base::search(), system = base::Sys.info()) 1602s [00:53:22.890] } 1602s [00:53:22.890] ...future.conditions[[length(...future.conditions) + 1602s [00:53:22.890] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 1602s [00:53:22.890] cond$call), session = sessionInformation(), 1602s [00:53:22.890] timestamp = base::Sys.time(), signaled = 0L) 1602s [00:53:22.890] signalCondition(cond) 1602s [00:53:22.890] } 1602s [00:53:22.890] else if (!ignore && TRUE && inherits(cond, c("condition", 1602s [00:53:22.890] "immediateCondition"))) { 1602s [00:53:22.890] signal <- TRUE && inherits(cond, "immediateCondition") 1602s [00:53:22.890] ...future.conditions[[length(...future.conditions) + 1602s [00:53:22.890] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) 1602s [00:53:22.890] if (TRUE && !signal) { 1602s [00:53:22.890] muffleCondition <- function (cond, pattern = "^muffle") 1602s [00:53:22.890] { 1602s [00:53:22.890] inherits <- base::inherits 1602s [00:53:22.890] invokeRestart <- base::invokeRestart 1602s [00:53:22.890] is.null <- base::is.null 1602s [00:53:22.890] muffled <- FALSE 1602s [00:53:22.890] if (inherits(cond, "message")) { 1602s [00:53:22.890] muffled <- grepl(pattern, "muffleMessage") 1602s [00:53:22.890] if (muffled) 1602s [00:53:22.890] invokeRestart("muffleMessage") 1602s [00:53:22.890] } 1602s [00:53:22.890] else if (inherits(cond, "warning")) { 1602s [00:53:22.890] muffled <- grepl(pattern, "muffleWarning") 1602s [00:53:22.890] if (muffled) 1602s [00:53:22.890] invokeRestart("muffleWarning") 1602s [00:53:22.890] } 1602s [00:53:22.890] else if (inherits(cond, "condition")) { 1602s [00:53:22.890] if (!is.null(pattern)) { 1602s [00:53:22.890] computeRestarts <- base::computeRestarts 1602s [00:53:22.890] grepl <- base::grepl 1602s [00:53:22.890] restarts <- computeRestarts(cond) 1602s [00:53:22.890] for (restart in restarts) { 1602s [00:53:22.890] name <- restart$name 1602s [00:53:22.890] if (is.null(name)) 1602s [00:53:22.890] next 1602s [00:53:22.890] if (!grepl(pattern, name)) 1602s [00:53:22.890] next 1602s [00:53:22.890] invokeRestart(restart) 1602s [00:53:22.890] muffled <- TRUE 1602s [00:53:22.890] break 1602s [00:53:22.890] } 1602s [00:53:22.890] } 1602s [00:53:22.890] } 1602s [00:53:22.890] invisible(muffled) 1602s [00:53:22.890] } 1602s [00:53:22.890] muffleCondition(cond, pattern = "^muffle") 1602s [00:53:22.890] } 1602s [00:53:22.890] } 1602s [00:53:22.890] else { 1602s [00:53:22.890] if (TRUE) { 1602s [00:53:22.890] muffleCondition <- function (cond, pattern = "^muffle") 1602s [00:53:22.890] { 1602s [00:53:22.890] inherits <- base::inherits 1602s [00:53:22.890] invokeRestart <- base::invokeRestart 1602s [00:53:22.890] is.null <- base::is.null 1602s [00:53:22.890] muffled <- FALSE 1602s [00:53:22.890] if (inherits(cond, "message")) { 1602s [00:53:22.890] muffled <- grepl(pattern, "muffleMessage") 1602s [00:53:22.890] if (muffled) 1602s [00:53:22.890] invokeRestart("muffleMessage") 1602s [00:53:22.890] } 1602s [00:53:22.890] else if (inherits(cond, "warning")) { 1602s [00:53:22.890] muffled <- grepl(pattern, "muffleWarning") 1602s [00:53:22.890] if (muffled) 1602s [00:53:22.890] invokeRestart("muffleWarning") 1602s [00:53:22.890] } 1602s [00:53:22.890] else if (inherits(cond, "condition")) { 1602s [00:53:22.890] if (!is.null(pattern)) { 1602s [00:53:22.890] computeRestarts <- base::computeRestarts 1602s [00:53:22.890] grepl <- base::grepl 1602s [00:53:22.890] restarts <- computeRestarts(cond) 1602s [00:53:22.890] for (restart in restarts) { 1602s [00:53:22.890] name <- restart$name 1602s [00:53:22.890] if (is.null(name)) 1602s [00:53:22.890] next 1602s [00:53:22.890] if (!grepl(pattern, name)) 1602s [00:53:22.890] next 1602s [00:53:22.890] invokeRestart(restart) 1602s [00:53:22.890] muffled <- TRUE 1602s [00:53:22.890] break 1602s [00:53:22.890] } 1602s [00:53:22.890] } 1602s [00:53:22.890] } 1602s [00:53:22.890] invisible(muffled) 1602s [00:53:22.890] } 1602s [00:53:22.890] muffleCondition(cond, pattern = "^muffle") 1602s [00:53:22.890] } 1602s [00:53:22.890] } 1602s [00:53:22.890] } 1602s [00:53:22.890] })) 1602s [00:53:22.890] }, error = function(ex) { 1602s [00:53:22.890] base::structure(base::list(value = NULL, visible = NULL, 1602s [00:53:22.890] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 1602s [00:53:22.890] ...future.rng), started = ...future.startTime, 1602s [00:53:22.890] finished = Sys.time(), session_uuid = NA_character_, 1602s [00:53:22.890] version = "1.8"), class = "FutureResult") 1602s [00:53:22.890] }, finally = { 1602s [00:53:22.890] if (!identical(...future.workdir, getwd())) 1602s [00:53:22.890] setwd(...future.workdir) 1602s [00:53:22.890] { 1602s [00:53:22.890] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { 1602s [00:53:22.890] ...future.oldOptions$nwarnings <- NULL 1602s [00:53:22.890] } 1602s [00:53:22.890] base::options(...future.oldOptions) 1602s [00:53:22.890] if (.Platform$OS.type == "windows") { 1602s [00:53:22.890] old_names <- names(...future.oldEnvVars) 1602s [00:53:22.890] envs <- base::Sys.getenv() 1602s [00:53:22.890] names <- names(envs) 1602s [00:53:22.890] common <- intersect(names, old_names) 1602s [00:53:22.890] added <- setdiff(names, old_names) 1602s [00:53:22.890] removed <- setdiff(old_names, names) 1602s [00:53:22.890] changed <- common[...future.oldEnvVars[common] != 1602s [00:53:22.890] envs[common]] 1602s [00:53:22.890] NAMES <- toupper(changed) 1602s [00:53:22.890] args <- list() 1602s [00:53:22.890] for (kk in seq_along(NAMES)) { 1602s [00:53:22.890] name <- changed[[kk]] 1602s [00:53:22.890] NAME <- NAMES[[kk]] 1602s [00:53:22.890] if (name != NAME && is.element(NAME, old_names)) 1602s [00:53:22.890] next 1602s [00:53:22.890] args[[name]] <- ...future.oldEnvVars[[name]] 1602s [00:53:22.890] } 1602s [00:53:22.890] NAMES <- toupper(added) 1602s [00:53:22.890] for (kk in seq_along(NAMES)) { 1602s [00:53:22.890] name <- added[[kk]] 1602s [00:53:22.890] NAME <- NAMES[[kk]] 1602s [00:53:22.890] if (name != NAME && is.element(NAME, old_names)) 1602s [00:53:22.890] next 1602s [00:53:22.890] args[[name]] <- "" 1602s [00:53:22.890] } 1602s [00:53:22.890] NAMES <- toupper(removed) 1602s [00:53:22.890] for (kk in seq_along(NAMES)) { 1602s [00:53:22.890] name <- removed[[kk]] 1602s [00:53:22.890] NAME <- NAMES[[kk]] 1602s [00:53:22.890] if (name != NAME && is.element(NAME, old_names)) 1602s [00:53:22.890] next 1602s [00:53:22.890] args[[name]] <- ...future.oldEnvVars[[name]] 1602s [00:53:22.890] } 1602s [00:53:22.890] if (length(args) > 0) 1602s [00:53:22.890] base::do.call(base::Sys.setenv, args = args) 1602s [00:53:22.890] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL 1602s [00:53:22.890] } 1602s [00:53:22.890] else { 1602s [00:53:22.890] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) 1602s [00:53:22.890] } 1602s [00:53:22.890] { 1602s [00:53:22.890] if (base::length(...future.futureOptionsAdded) > 1602s [00:53:22.890] 0L) { 1602s [00:53:22.890] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) 1602s [00:53:22.890] base::names(opts) <- ...future.futureOptionsAdded 1602s [00:53:22.890] base::options(opts) 1602s [00:53:22.890] } 1602s [00:53:22.890] { 1602s [00:53:22.890] { 1602s [00:53:22.890] NULL 1602s [00:53:22.890] RNGkind("Mersenne-Twister") 1602s [00:53:22.890] base::rm(list = ".Random.seed", envir = base::globalenv(), 1602s [00:53:22.890] inherits = FALSE) 1602s [00:53:22.890] } 1602s [00:53:22.890] options(future.plan = NULL) 1602s [00:53:22.890] if (is.na(NA_character_)) 1602s [00:53:22.890] Sys.unsetenv("R_FUTURE_PLAN") 1602s [00:53:22.890] else Sys.setenv(R_FUTURE_PLAN = NA_character_) 1602s [00:53:22.890] future::plan(list(function (..., workers = availableCores(), 1602s [00:53:22.890] lazy = FALSE, rscript_libs = .libPaths(), 1602s [00:53:22.890] envir = parent.frame()) 1602s [00:53:22.890] { 1602s [00:53:22.890] if (is.function(workers)) 1602s [00:53:22.890] workers <- workers() 1602s [00:53:22.890] workers <- structure(as.integer(workers), 1602s [00:53:22.890] class = class(workers)) 1602s [00:53:22.890] stop_if_not(length(workers) == 1, is.finite(workers), 1602s [00:53:22.890] workers >= 1) 1602s [00:53:22.890] if (workers == 1L && !inherits(workers, "AsIs")) { 1602s [00:53:22.890] return(sequential(..., lazy = TRUE, envir = envir)) 1602s [00:53:22.890] } 1602s [00:53:22.890] future <- MultisessionFuture(..., workers = workers, 1602s [00:53:22.890] lazy = lazy, rscript_libs = rscript_libs, 1602s [00:53:22.890] envir = envir) 1602s [00:53:22.890] if (!future$lazy) 1602s [00:53:22.890] future <- run(future) 1602s [00:53:22.890] invisible(future) 1602s [00:53:22.890] }), .cleanup = FALSE, .init = FALSE) 1602s [00:53:22.890] } 1602s [00:53:22.890] } 1602s [00:53:22.890] } 1602s [00:53:22.890] }) 1602s [00:53:22.890] if (FALSE) { 1602s [00:53:22.890] base::sink(type = "output", split = FALSE) 1602s [00:53:22.890] if (NA) { 1602s [00:53:22.890] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) 1602s [00:53:22.890] } 1602s [00:53:22.890] else { 1602s [00:53:22.890] ...future.result["stdout"] <- base::list(NULL) 1602s [00:53:22.890] } 1602s [00:53:22.890] base::close(...future.stdout) 1602s [00:53:22.890] ...future.stdout <- NULL 1602s [00:53:22.890] } 1602s [00:53:22.890] ...future.result$conditions <- ...future.conditions 1602s [00:53:22.890] ...future.result$finished <- base::Sys.time() 1602s [00:53:22.890] ...future.result 1602s [00:53:22.890] } 1602s [00:53:22.896] assign_globals() ... 1602s [00:53:22.896] List of 5 1602s [00:53:22.896] $ ...future.FUN :function (x, y) 1602s [00:53:22.896] $ MoreArgs : NULL 1602s [00:53:22.896] $ ...future.elements_ii :List of 2 1602s [00:53:22.896] ..$ :List of 2 1602s [00:53:22.896] .. ..$ : int 1 1602s [00:53:22.896] .. ..$ : int 0 1602s [00:53:22.896] ..$ :List of 2 1602s [00:53:22.896] .. ..$ : int 0 1602s [00:53:22.896] .. ..$ : int 1 1602s [00:53:22.896] $ ...future.seeds_ii : NULL 1602s [00:53:22.896] $ ...future.globals.maxSize: NULL 1602s [00:53:22.896] - attr(*, "where")=List of 5 1602s [00:53:22.896] ..$ ...future.FUN : 1602s [00:53:22.896] ..$ MoreArgs : 1602s [00:53:22.896] ..$ ...future.elements_ii : 1602s [00:53:22.896] ..$ ...future.seeds_ii : 1602s [00:53:22.896] ..$ ...future.globals.maxSize: 1602s [00:53:22.896] - attr(*, "resolved")= logi FALSE 1602s [00:53:22.896] - attr(*, "total_size")= num 6480 1602s [00:53:22.896] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" 1602s [00:53:22.896] - attr(*, "already-done")= logi TRUE 1602s [00:53:22.905] - reassign environment for ‘...future.FUN’ 1602s [00:53:22.905] - copied ‘...future.FUN’ to environment 1602s [00:53:22.905] - copied ‘MoreArgs’ to environment 1602s [00:53:22.905] - copied ‘...future.elements_ii’ to environment 1602s [00:53:22.905] - copied ‘...future.seeds_ii’ to environment 1602s [00:53:22.905] - copied ‘...future.globals.maxSize’ to environment 1602s [00:53:22.905] assign_globals() ... done 1602s [00:53:22.906] plan(): Setting new future strategy stack: 1602s [00:53:22.906] List of future strategies: 1602s [00:53:22.906] 1. sequential: 1602s [00:53:22.906] - args: function (..., envir = parent.frame()) 1602s [00:53:22.906] - tweaked: FALSE 1602s [00:53:22.906] - call: NULL 1602s [00:53:22.906] plan(): nbrOfWorkers() = 1 1603s [00:53:23.408] plan(): Setting new future strategy stack: 1603s [00:53:23.409] List of future strategies: 1603s [00:53:23.409] 1. multisession: 1603s [00:53:23.409] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 1603s [00:53:23.409] - tweaked: FALSE 1603s [00:53:23.409] - call: plan(strategy) 1603s [00:53:23.414] plan(): nbrOfWorkers() = 1 1603s [00:53:23.414] SequentialFuture started (and completed) 1603s [00:53:23.414] - Launch lazy future ... done 1603s [00:53:23.414] run() for ‘SequentialFuture’ ... done 1603s [00:53:23.414] Created future: 1603s [00:53:23.415] SequentialFuture: 1603s [00:53:23.415] Label: ‘future_mapply-1’ 1603s [00:53:23.415] Expression: 1603s [00:53:23.415] { 1603s [00:53:23.415] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") 1603s [00:53:23.415] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { 1603s [00:53:23.415] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) 1603s [00:53:23.415] on.exit(options(oopts), add = TRUE) 1603s [00:53:23.415] } 1603s [00:53:23.415] { 1603s [00:53:23.415] args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 1603s [00:53:23.415] MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE) 1603s [00:53:23.415] do.call(mapply, args = args) 1603s [00:53:23.415] } 1603s [00:53:23.415] } 1603s [00:53:23.415] Lazy evaluation: FALSE 1603s [00:53:23.415] Asynchronous evaluation: FALSE 1603s [00:53:23.415] Local evaluation: TRUE 1603s [00:53:23.415] Environment: R_GlobalEnv 1603s [00:53:23.415] Capture standard output: NA 1603s [00:53:23.415] Capture condition classes: ‘condition’ (excluding ‘nothing’) 1603s [00:53:23.415] Globals: 5 objects totaling 6.33 KiB (function ‘...future.FUN’ of 6.11 KiB, NULL ‘MoreArgs’ of 0 bytes, list ‘...future.elements_ii’ of 224 bytes, NULL ‘...future.seeds_ii’ of 0 bytes, NULL ‘...future.globals.maxSize’ of 0 bytes) 1603s [00:53:23.415] Packages: 1603s [00:53:23.415] L'Ecuyer-CMRG RNG seed: (seed = FALSE) 1603s [00:53:23.415] Resolved: TRUE 1603s [00:53:23.415] Value: 224 bytes of class ‘list’ 1603s [00:53:23.415] Early signaling: FALSE 1603s [00:53:23.415] Owner process: aef6b2cf-a7ff-4166-a7a6-2b6e1e64c3ba 1603s [00:53:23.415] Class: ‘SequentialFuture’, ‘UniprocessFuture’, ‘Future’, ‘environment’ 1603s [00:53:23.416] Chunk #1 of 1 ... DONE 1603s [00:53:23.416] Launching 1 futures (chunks) ... DONE 1603s [00:53:23.416] Resolving 1 futures (chunks) ... 1603s [00:53:23.416] resolve() on list ... 1603s [00:53:23.417] recursive: 0 1603s [00:53:23.417] length: 1 1603s [00:53:23.417] 1603s [00:53:23.417] resolved() for ‘SequentialFuture’ ... 1603s [00:53:23.417] - state: ‘finished’ 1603s [00:53:23.417] - run: TRUE 1603s [00:53:23.417] - result: ‘FutureResult’ 1603s [00:53:23.417] resolved() for ‘SequentialFuture’ ... done 1603s [00:53:23.418] Future #1 1603s [00:53:23.418] signalConditionsASAP(SequentialFuture, pos=1) ... 1603s [00:53:23.418] - nx: 1 1603s [00:53:23.418] - relay: TRUE 1603s [00:53:23.418] - stdout: TRUE 1603s [00:53:23.418] - signal: TRUE 1603s [00:53:23.418] - resignal: FALSE 1603s [00:53:23.418] - force: TRUE 1603s [00:53:23.419] - relayed: [n=1] FALSE 1603s [00:53:23.419] - queued futures: [n=1] FALSE 1603s [00:53:23.419] - until=1 1603s [00:53:23.419] - relaying element #1 1603s [00:53:23.419] - relayed: [n=1] TRUE 1603s [00:53:23.419] - queued futures: [n=1] TRUE 1603s [00:53:23.419] signalConditionsASAP(SequentialFuture, pos=1) ... done 1603s [00:53:23.420] length: 0 (resolved future 1) 1603s [00:53:23.420] Relaying remaining futures 1603s [00:53:23.420] signalConditionsASAP(NULL, pos=0) ... 1603s [00:53:23.420] - nx: 1 1603s [00:53:23.420] - relay: TRUE 1603s [00:53:23.420] - stdout: TRUE 1603s [00:53:23.421] - signal: TRUE 1603s [00:53:23.421] - resignal: FALSE 1603s [00:53:23.421] - force: TRUE 1603s [00:53:23.421] - relayed: [n=1] TRUE 1603s [00:53:23.421] - queued futures: [n=1] TRUE 1603s - flush all 1603s [00:53:23.421] - relayed: [n=1] TRUE 1603s [00:53:23.422] - queued futures: [n=1] TRUE 1603s [00:53:23.422] signalConditionsASAP(NULL, pos=0) ... done 1603s [00:53:23.422] resolve() on list ... DONE 1603s [00:53:23.422] - Number of value chunks collected: 1 1603s [00:53:23.422] Resolving 1 futures (chunks) ... DONE 1603s [00:53:23.422] Reducing values from 1 chunks ... 1603s [00:53:23.423] - Number of values collected after concatenation: 2 1603s [00:53:23.423] - Number of values expected: 2 1603s [00:53:23.423] Reducing values from 1 chunks ... DONE 1603s [00:53:23.423] future_mapply() ... DONE 1603s * future_mapply(x, ..., future.stdout = NA) ... DONE 1603s * plan('multisession') ... DONE 1603s - Testing with 1 cores ... DONE 1603s > 1603s > message("*** future_*apply() and 'future.stdout' ... DONE") 1603s *** future_*apply() and 'future.stdout' ... DONE 1603s > 1603s > source("incl/end.R") 1603s [00:53:23.425] plan(): Setting new future strategy stack: 1603s [00:53:23.425] List of future strategies: 1603s [00:53:23.425] 1. FutureStrategy: 1603s [00:53:23.425] - args: function (..., envir = parent.frame()) 1603s [00:53:23.425] - tweaked: FALSE 1603s [00:53:23.425] - call: future::plan(oplan) 1603s [00:53:23.425] plan(): nbrOfWorkers() = 1 1603s > 1603s BEGIN TEST utils.R 1603s 1603s R version 4.3.3 (2024-02-29) -- "Angel Food Cake" 1603s Copyright (C) 2024 The R Foundation for Statistical Computing 1603s Platform: s390x-ibm-linux-gnu (64-bit) 1603s 1603s R is free software and comes with ABSOLUTELY NO WARRANTY. 1603s You are welcome to redistribute it under certain conditions. 1603s Type 'license()' or 'licence()' for distribution details. 1603s 1603s R is a collaborative project with many contributors. 1603s Type 'contributors()' for more information and 1603s 'citation()' on how to cite R or R packages in publications. 1603s 1603s Type 'demo()' for some demos, 'help()' for on-line help, or 1603s 'help.start()' for an HTML browser interface to help. 1603s Type 'q()' to quit R. 1603s 1603s > source("incl/start,load-only.R") 1603s [00:53:23.680] Set package option ‘parallelly.availableCores.methods’ 1603s [00:53:23.682] Environment variable ‘R_PARALLELLY_AVAILABLECORES_METHODS’ not set 1603s [00:53:23.682] Set package option ‘parallelly.availableCores.fallback’ 1603s [00:53:23.683] Environment variable ‘R_PARALLELLY_AVAILABLECORES_FALLBACK’ not set 1603s [00:53:23.683] Set package option ‘parallelly.availableCores.min’ 1603s [00:53:23.683] Environment variable ‘R_PARALLELLY_AVAILABLECORES_MIN’ not set 1603s [00:53:23.684] Set package option ‘parallelly.availableCores.system’ 1603s [00:53:23.684] Environment variable ‘R_PARALLELLY_AVAILABLECORES_SYSTEM’ not set 1603s [00:53:23.684] Set package option ‘parallelly.availableCores.logical’ 1603s [00:53:23.685] Environment variable ‘R_PARALLELLY_AVAILABLECORES_LOGICAL’ not set 1603s [00:53:23.685] Set package option ‘parallelly.availableCores.omit’ 1603s [00:53:23.686] Environment variable ‘R_PARALLELLY_AVAILABLECORES_OMIT’ not set 1603s [00:53:23.686] Set package option ‘parallelly.availableWorkers.methods’ 1603s [00:53:23.690] Environment variable ‘R_PARALLELLY_AVAILABLEWORKERS_METHODS’ not set 1603s [00:53:23.691] Set package option ‘parallelly.maxWorkers.localhost’ 1603s [00:53:23.691] Environment variable ‘R_PARALLELLY_MAXWORKERS_LOCALHOST’ not set 1603s [00:53:23.691] Set package option ‘parallelly.maxWorkers.localhost.ignore’ 1603s [00:53:23.691] Environment variable ‘R_PARALLELLY_MAXWORKERS_LOCALHOST_IGNORE’ not set 1603s [00:53:23.692] Set package option ‘parallelly.fork.enable’ 1603s [00:53:23.692] Environment variable ‘R_PARALLELLY_FORK_ENABLE’ not set 1603s [00:53:23.692] Set package option ‘parallelly.supportsMulticore.disableOn’ 1603s [00:53:23.692] Environment variable ‘R_PARALLELLY_SUPPORTSMULTICORE_DISABLEON’ not set 1603s [00:53:23.693] Set package option ‘parallelly.supportsMulticore.unstable’ 1603s [00:53:23.693] Environment variable ‘R_PARALLELLY_SUPPORTSMULTICORE_UNSTABLE’ not set 1603s [00:53:23.693] Set package option ‘parallelly.makeNodePSOCK.setup_strategy’ 1603s [00:53:23.694] Environment variable ‘R_PARALLELLY_MAKENODEPSOCK_SETUP_STRATEGY’ not set 1603s [00:53:23.694] Set package option ‘parallelly.makeNodePSOCK.validate’ 1603s [00:53:23.694] Environment variable ‘R_PARALLELLY_MAKENODEPSOCK_VALIDATE’ not set 1603s [00:53:23.694] Set package option ‘parallelly.makeNodePSOCK.connectTimeout’ 1603s [00:53:23.695] Environment variable ‘R_PARALLELLY_MAKENODEPSOCK_CONNECTTIMEOUT’ not set 1603s [00:53:23.695] Set package option ‘parallelly.makeNodePSOCK.timeout’ 1603s [00:53:23.695] Environment variable ‘R_PARALLELLY_MAKENODEPSOCK_TIMEOUT’ not set 1603s [00:53:23.696] Set package option ‘parallelly.makeNodePSOCK.useXDR’ 1603s [00:53:23.696] Environment variable ‘R_PARALLELLY_MAKENODEPSOCK_USEXDR’ not set 1603s [00:53:23.696] Set package option ‘parallelly.makeNodePSOCK.socketOptions’ 1603s [00:53:23.697] Environment variable ‘R_PARALLELLY_MAKENODEPSOCK_SOCKETOPTIONS’ not set 1603s [00:53:23.697] Set package option ‘parallelly.makeNodePSOCK.rshcmd’ 1603s [00:53:23.697] Environment variable ‘R_PARALLELLY_MAKENODEPSOCK_RSHCMD’ not set 1603s [00:53:23.697] Set package option ‘parallelly.makeNodePSOCK.rshopts’ 1603s [00:53:23.698] Environment variable ‘R_PARALLELLY_MAKENODEPSOCK_RSHOPTS’ not set 1603s [00:53:23.698] Set package option ‘parallelly.makeNodePSOCK.tries’ 1603s [00:53:23.698] Environment variable ‘R_PARALLELLY_MAKENODEPSOCK_TRIES’ not set 1603s [00:53:23.698] Set package option ‘parallelly.makeNodePSOCK.tries.delay’ 1603s [00:53:23.699] Environment variable ‘R_PARALLELLY_MAKENODEPSOCK_TRIES_DELAY’ not set 1603s [00:53:23.699] Set package option ‘parallelly.makeNodePSOCK.rscript_label’ 1603s [00:53:23.699] Environment variable ‘R_PARALLELLY_MAKENODEPSOCK_RSCRIPT_LABEL’ not set 1603s [00:53:23.700] Set package option ‘parallelly.makeNodePSOCK.sessionInfo.pkgs’ 1603s [00:53:23.700] Environment variable ‘R_PARALLELLY_MAKENODEPSOCK_SESSIONINFO_PKGS’ not set 1603s [00:53:23.700] Set package option ‘parallelly.makeNodePSOCK.autoKill’ 1603s [00:53:23.701] Environment variable ‘R_PARALLELLY_MAKENODEPSOCK_AUTOKILL’ not set 1603s [00:53:23.701] Set package option ‘parallelly.makeNodePSOCK.master.localhost.hostname’ 1603s [00:53:23.701] Environment variable ‘R_PARALLELLY_MAKENODEPSOCK_MASTER_LOCALHOST_HOSTNAME’ not set 1603s [00:53:23.702] Set package option ‘parallelly.makeNodePSOCK.port.increment’ 1603s [00:53:23.702] Environment variable ‘R_PARALLELLY_MAKENODEPSOCK_PORT_INCREMENT’ not set 1603s [00:53:23.703] parallelly-specific environment variables: 1603s [00:53:23.712] Future-specific environment variables: 1603s [00:53:23.712] Environment variable ‘R_FUTURE_DEMO_MANDELBROT_REGION’ not set 1603s [00:53:23.712] Environment variable ‘R_FUTURE_DEMO_MANDELBROT_NROW’ not set 1603s [00:53:23.713] Environment variable ‘R_FUTURE_DEPRECATED_IGNORE’ not set 1603s [00:53:23.713] Environment variable ‘R_FUTURE_DEPRECATED_DEFUNCT’ not set 1603s [00:53:23.713] Environment variable ‘R_FUTURE_FORK_MULTITHREADING_ENABLE’ not set 1603s [00:53:23.713] Environment variable ‘R_FUTURE_GLOBALS_MAXSIZE’ not set 1603s [00:53:23.713] Environment variable ‘R_FUTURE_GLOBALS_ONMISSING’ not set 1603s [00:53:23.713] Environment variable ‘R_FUTURE_GLOBALS_ONREFERENCE’ not set 1603s [00:53:23.714] Environment variable ‘R_FUTURE_GLOBALS_METHOD’ not set 1603s [00:53:23.714] Environment variable ‘R_FUTURE_GLOBALS_RESOLVE’ not set 1603s [00:53:23.714] Environment variable ‘R_FUTURE_LAZY_ASSERTOWNER’ not set 1603s [00:53:23.714] Environment variable ‘R_FUTURE_PLAN’ not set 1603s [00:53:23.714] Environment variable ‘R_FUTURE_PLAN_DISALLOW’ not set 1603s [00:53:23.714] Environment variable ‘R_FUTURE_PSOCK_RELAY_IMMEDIATE’ not set 1603s [00:53:23.715] Environment variable ‘R_FUTURE_RELAY_IMMEDIATE’ not set 1603s [00:53:23.715] Environment variable ‘R_FUTURE_RESOLVE_RECURSIVE’ not set 1603s [00:53:23.715] Environment variable ‘R_FUTURE_ALIVE_TIMEOUT’ not set 1603s [00:53:23.715] Environment variable ‘R_FUTURE_RESOLVED_TIMEOUT’ not set 1603s [00:53:23.715] Environment variable ‘R_FUTURE_CLUSTER_RESOLVED_TIMEOUT’ not set 1603s [00:53:23.716] Environment variable ‘R_FUTURE_MULTICORE_RESOLVED_TIMEOUT’ not set 1603s [00:53:23.716] Environment variable ‘R_FUTURE_ONFUTURECONDITION_KEEPFUTURE’ not set 1603s [00:53:23.716] Environment variable ‘R_FUTURE_RNG_ONMISUSE’ not set 1603s [00:53:23.716] Environment variable ‘R_FUTURE_GLOBALENV_ONMISUSE’ not set 1603s [00:53:23.716] Environment variable ‘R_FUTURE_WAIT_TIMEOUT’ not set 1603s [00:53:23.717] Environment variable ‘R_FUTURE_WAIT_INTERVAL’ not set 1603s [00:53:23.717] Environment variable ‘R_FUTURE_WAIT_ALPHA’ not set 1603s [00:53:23.717] Environment variable ‘R_FUTURE_ASSIGN_GLOBALS_EXCLUDE’ not set 1603s [00:53:23.717] Environment variable ‘R_FUTURE_OUTPUT_WINDOWS_REENCODE’ not set 1603s [00:53:23.717] Environment variable ‘R_FUTURE_GLOBALS_GLOBALSOF_LOCALS’ not set 1603s [00:53:23.717] Environment variable ‘R_FUTURE_STATE_ONINVALID’ not set 1603s [00:53:23.718] Environment variable ‘R_FUTURE_JOURNAL’ not set 1603s [00:53:23.718] Environment variable ‘R_FUTURE_GLOBALS_KEEPWHERE’ not set 1603s [00:53:23.719] R process uuid: 97b98a6c-0d5b-0219-de5e-bfc90ccfd90a 1603s [00:53:23.720] Setting plan('default') 1603s [00:53:23.721] plan(): Setting new future strategy stack: 1603s [00:53:23.721] List of future strategies: 1603s [00:53:23.721] 1. sequential: 1603s [00:53:23.721] - args: function (..., envir = parent.frame()) 1603s [00:53:23.721] - tweaked: FALSE 1603s [00:53:23.721] - call: NULL 1603s [00:53:23.722] plan(): nbrOfWorkers() = 1 1603s [00:53:23.757] plan(): Setting new future strategy stack: 1603s [00:53:23.757] List of future strategies: 1603s [00:53:23.757] 1. sequential: 1603s [00:53:23.757] - args: function (..., envir = parent.frame()) 1603s [00:53:23.757] - tweaked: FALSE 1603s [00:53:23.757] - call: future::plan("sequential") 1603s [00:53:23.775] plan(): nbrOfWorkers() = 1 1603s > stop_if_not <- future.apply:::stop_if_not 1603s > 1603s > message("*** utils ...") 1603s > 1603s > message("*** hpaste() ...") 1603s *** utils ... 1603s *** hpaste() ... 1603s > 1603s > # Some vectors 1603s > x <- 1:6 1603s > y <- 10:1 1603s > z <- LETTERS[x] 1603s > 1603s > # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1603s > # Abbreviation of output vector 1603s > # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1603s > printf("x = %s.\n", hpaste(x)) 1603s x = 1, 2, 3, 4, 5, 6. 1603s > ## x = 1, 2, 3, ..., 6. 1603s > 1603s > printf("x = %s.\n", hpaste(x, maxHead = 2)) 1603s x = 1, 2, ..., 6. 1603s > ## x = 1, 2, ..., 6. 1603s > 1603s > printf("x = %s.\n", hpaste(x, maxHead = 3)) # Default 1603s x = 1, 2, 3, ..., 6. 1603s > ## x = 1, 2, 3, ..., 6. 1603s > 1603s > # It will never output 1, 2, 3, 4, ..., 6 1603s > printf("x = %s.\n", hpaste(x, maxHead = 4)) 1603s x = 1, 2, 3, 4, 5, 6. 1603s > ## x = 1, 2, 3, 4, 5 and 6. 1603s > 1603s > # Showing the tail 1603s > printf("x = %s.\n", hpaste(x, maxHead = 1, maxTail = 2)) 1603s x = 1, ..., 5, 6. 1603s > ## x = 1, ..., 5, 6. 1603s > 1603s > # Turning off abbreviation 1603s > printf("y = %s.\n", hpaste(y, maxHead = Inf)) 1603s y = 10, 9, 8, 7, 6, 5, 4, 3, 2, 1. 1603s > ## y = 10, 9, 8, 7, 6, 5, 4, 3, 2, 1 1603s > 1603s > ## ...or simply 1603s > printf("y = %s.\n", paste(y, collapse = ", ")) 1603s y = 10, 9, 8, 7, 6, 5, 4, 3, 2, 1. 1603s > ## y = 10, 9, 8, 7, 6, 5, 4, 3, 2, 1 1603s > 1603s > # Change last separator 1603s > printf("x = %s.\n", hpaste(x, lastCollapse = " and ")) 1603s x = 1, 2, 3, 4, 5 and 6. 1603s > ## x = 1, 2, 3, 4, 5 and 6. 1603s > 1603s > # No collapse 1603s *** hpaste() ... 1603s > stopifnot(all(hpaste(x, collapse = NULL) == x)) 1603s > 1603s > # Empty input 1603s > stopifnot(identical(hpaste(character(0)), character(0))) 1603s > 1603s > message("*** hpaste() ...") 1603s > 1603s > *** mdebug() ... 1603s [00:53:23.795] Hello #1 1603s 1603s > # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1603s > # debug() 1603s > # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1603s > message("*** mdebug() ...") 1603s > 1603s > mdebug("Hello #", 1) 1603s > mdebugf("Hello #%d", 1) 1603s [00:53:23.795] Hello #1 1603s > [00:53:23.796] Hello #2 1603s [00:53:23.796] Hello #2 1603s *** mdebug() ... DONE 1603s options(future.debug = TRUE) 1603s > 1603s > mdebug("Hello #", 2) 1603s > mdebugf("Hello #%d", 2) 1603s > options(future.debug = FALSE) 1603s > 1603s > mdebug("Hello #", 3) 1603s NULL 1603s > mdebugf("Hello #%d", 3) 1603s NULL 1603s > 1603s > message("*** mdebug() ... DONE") 1603s > 1603s > # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1603s > # import_from() 1603s > # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1603s > *** import_from() ... 1603s message("*** import_from() ...") 1603s > 1603s > obj <- import_from("non-existing-fcn", default = NA, package = "future") 1603s > stopifnot(identical(obj, NA)) 1603s > 1603s > res <- tryCatch({ 1603s + obj <- import_from("non-existing-fcn", package = "future") 1603s + }, error = identity) 1603s > print(res) 1603s 1603s > stopifnot(inherits(res, "simpleError")) 1603s > 1603s > message("*** import_from() ... DONE") 1603s > 1603s > 1603s > message("*** stop_if_not() ...") 1603s > 1603s > stop_if_not(TRUE) 1603s NULL 1603s > stop_if_not(TRUE, TRUE) 1603s NULL 1603s > res <- tryCatch({ 1603s + stop_if_not(FALSE) 1603s + }, error = identity) 1603s > stopifnot(inherits(res, "simpleError")) 1603s > res <- tryCatch({ 1603s + stop_if_not(list(TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE)) 1603s + }, error = identity) 1603s > stopifnot(inherits(res, "simpleError")) 1603s > 1603s > message("*** stop_if_not() ... DONE") 1603s > 1603s > 1603s > message("*** assert_values2() ...") 1603s > 1603s > assert_values2 <- future.apply:::assert_values2 1603s > assert_values2(nX = 2L, values2 = as.list(1:2)) 1603s > res <- tryCatch({ 1603s + assert_values2(nX = 1L, values = as.list(1:2), values2 = as.list(1:2), fcn = "tests", debug = TRUE) 1603s + }, error = identity) 1603s > stopifnot(inherits(res, "FutureError")) 1603s > 1603s > message("*** assert_values2() ... DONE") 1603s > 1603s > 1603s > message("*** utils ... DONE") 1603s > 1603s > source("incl/end.R") 1603s *** stop_if_not() ... 1603s *** stop_if_not() ... DONE 1603s *** assert_values2() ... 1603s *** assert_values2() ... DONE 1603s *** utils ... DONE 1603s > 1604s autopkgtest [00:53:24]: test run-unit-test: -----------------------] 1605s autopkgtest [00:53:25]: test run-unit-test: - - - - - - - - - - results - - - - - - - - - - 1605s run-unit-test PASS 1605s autopkgtest [00:53:25]: test pkg-r-autopkgtest: preparing testbed 2083s autopkgtest [01:01:23]: testbed dpkg architecture: s390x 2083s autopkgtest [01:01:23]: testbed apt version: 2.7.12 2083s autopkgtest [01:01:23]: @@@@@@@@@@@@@@@@@@@@ test bed setup 2083s Get:1 http://ftpmaster.internal/ubuntu noble-proposed InRelease [117 kB] 2083s Get:2 http://ftpmaster.internal/ubuntu noble-proposed/restricted Sources [8504 B] 2083s Get:3 http://ftpmaster.internal/ubuntu noble-proposed/multiverse Sources [55.9 kB] 2083s Get:4 http://ftpmaster.internal/ubuntu noble-proposed/main Sources [475 kB] 2084s Get:5 http://ftpmaster.internal/ubuntu noble-proposed/universe Sources [3961 kB] 2084s Get:6 http://ftpmaster.internal/ubuntu noble-proposed/main s390x Packages [652 kB] 2084s Get:7 http://ftpmaster.internal/ubuntu noble-proposed/main s390x c-n-f Metadata [3032 B] 2084s Get:8 http://ftpmaster.internal/ubuntu noble-proposed/restricted s390x Packages [1372 B] 2084s Get:9 http://ftpmaster.internal/ubuntu noble-proposed/restricted s390x c-n-f Metadata [116 B] 2084s Get:10 http://ftpmaster.internal/ubuntu noble-proposed/universe s390x Packages [4015 kB] 2084s Get:11 http://ftpmaster.internal/ubuntu noble-proposed/universe s390x c-n-f Metadata [7292 B] 2084s Get:12 http://ftpmaster.internal/ubuntu noble-proposed/multiverse s390x Packages [46.2 kB] 2084s Get:13 http://ftpmaster.internal/ubuntu noble-proposed/multiverse s390x c-n-f Metadata [116 B] 2086s Fetched 9343 kB in 2s (3970 kB/s) 2086s Reading package lists... 2088s Reading package lists... 2089s Building dependency tree... 2089s Reading state information... 2089s Calculating upgrade... 2089s The following packages will be upgraded: 2089s binutils binutils-common binutils-s390x-linux-gnu dmsetup gcc-14-base 2089s initramfs-tools initramfs-tools-bin initramfs-tools-core jq libbinutils 2089s libctf-nobfd0 libctf0 libdevmapper1.02.1 libexpat1 libftdi1-2 libgcc-s1 2089s libjq1 libseccomp2 libsframe1 libstdc++6 libusb-1.0-0 2089s 21 upgraded, 0 newly installed, 0 to remove and 0 not upgraded. 2089s Need to get 4939 kB of archives. 2089s After this operation, 0 B of additional disk space will be used. 2089s Get:1 http://ftpmaster.internal/ubuntu noble/main s390x gcc-14-base s390x 14-20240315-1ubuntu1 [47.0 kB] 2089s Get:2 http://ftpmaster.internal/ubuntu noble/main s390x libstdc++6 s390x 14-20240315-1ubuntu1 [908 kB] 2090s Get:3 http://ftpmaster.internal/ubuntu noble/main s390x libgcc-s1 s390x 14-20240315-1ubuntu1 [35.9 kB] 2090s Get:4 http://ftpmaster.internal/ubuntu noble/main s390x libseccomp2 s390x 2.5.5-1ubuntu2 [53.4 kB] 2090s Get:5 http://ftpmaster.internal/ubuntu noble/main s390x libdevmapper1.02.1 s390x 2:1.02.185-3ubuntu2 [142 kB] 2090s Get:6 http://ftpmaster.internal/ubuntu noble/main s390x dmsetup s390x 2:1.02.185-3ubuntu2 [80.4 kB] 2090s Get:7 http://ftpmaster.internal/ubuntu noble/main s390x libexpat1 s390x 2.6.1-2 [94.8 kB] 2090s Get:8 http://ftpmaster.internal/ubuntu noble/main s390x libusb-1.0-0 s390x 2:1.0.27-1 [54.8 kB] 2090s Get:9 http://ftpmaster.internal/ubuntu noble/main s390x libctf0 s390x 2.42-4ubuntu1 [98.4 kB] 2090s Get:10 http://ftpmaster.internal/ubuntu noble/main s390x libctf-nobfd0 s390x 2.42-4ubuntu1 [100 kB] 2090s Get:11 http://ftpmaster.internal/ubuntu noble/main s390x binutils-s390x-linux-gnu s390x 2.42-4ubuntu1 [2270 kB] 2090s Get:12 http://ftpmaster.internal/ubuntu noble/main s390x libbinutils s390x 2.42-4ubuntu1 [477 kB] 2090s Get:13 http://ftpmaster.internal/ubuntu noble/main s390x binutils s390x 2.42-4ubuntu1 [3056 B] 2090s Get:14 http://ftpmaster.internal/ubuntu noble/main s390x binutils-common s390x 2.42-4ubuntu1 [217 kB] 2090s Get:15 http://ftpmaster.internal/ubuntu noble/main s390x libsframe1 s390x 2.42-4ubuntu1 [14.2 kB] 2090s Get:16 http://ftpmaster.internal/ubuntu noble/main s390x initramfs-tools all 0.142ubuntu23 [9058 B] 2090s Get:17 http://ftpmaster.internal/ubuntu noble/main s390x initramfs-tools-core all 0.142ubuntu23 [50.1 kB] 2090s Get:18 http://ftpmaster.internal/ubuntu noble/main s390x initramfs-tools-bin s390x 0.142ubuntu23 [20.5 kB] 2090s Get:19 http://ftpmaster.internal/ubuntu noble/main s390x jq s390x 1.7.1-3 [66.5 kB] 2090s Get:20 http://ftpmaster.internal/ubuntu noble/main s390x libjq1 s390x 1.7.1-3 [168 kB] 2090s Get:21 http://ftpmaster.internal/ubuntu noble/main s390x libftdi1-2 s390x 1.5-6build4 [29.3 kB] 2090s Fetched 4939 kB in 1s (5930 kB/s) 2090s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51774 files and directories currently installed.) 2090s Preparing to unpack .../gcc-14-base_14-20240315-1ubuntu1_s390x.deb ... 2090s Unpacking gcc-14-base:s390x (14-20240315-1ubuntu1) over (14-20240303-1ubuntu1) ... 2090s Setting up gcc-14-base:s390x (14-20240315-1ubuntu1) ... 2090s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51774 files and directories currently installed.) 2090s Preparing to unpack .../libstdc++6_14-20240315-1ubuntu1_s390x.deb ... 2090s Unpacking libstdc++6:s390x (14-20240315-1ubuntu1) over (14-20240303-1ubuntu1) ... 2090s Setting up libstdc++6:s390x (14-20240315-1ubuntu1) ... 2091s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51774 files and directories currently installed.) 2091s Preparing to unpack .../libgcc-s1_14-20240315-1ubuntu1_s390x.deb ... 2091s Unpacking libgcc-s1:s390x (14-20240315-1ubuntu1) over (14-20240303-1ubuntu1) ... 2091s Setting up libgcc-s1:s390x (14-20240315-1ubuntu1) ... 2091s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51774 files and directories currently installed.) 2091s Preparing to unpack .../libseccomp2_2.5.5-1ubuntu2_s390x.deb ... 2091s Unpacking libseccomp2:s390x (2.5.5-1ubuntu2) over (2.5.5-1ubuntu1) ... 2091s Setting up libseccomp2:s390x (2.5.5-1ubuntu2) ... 2091s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51774 files and directories currently installed.) 2091s Preparing to unpack .../00-libdevmapper1.02.1_2%3a1.02.185-3ubuntu2_s390x.deb ... 2091s Unpacking libdevmapper1.02.1:s390x (2:1.02.185-3ubuntu2) over (2:1.02.185-3ubuntu1) ... 2091s Preparing to unpack .../01-dmsetup_2%3a1.02.185-3ubuntu2_s390x.deb ... 2091s Unpacking dmsetup (2:1.02.185-3ubuntu2) over (2:1.02.185-3ubuntu1) ... 2091s Preparing to unpack .../02-libexpat1_2.6.1-2_s390x.deb ... 2091s Unpacking libexpat1:s390x (2.6.1-2) over (2.6.0-1) ... 2091s Preparing to unpack .../03-libusb-1.0-0_2%3a1.0.27-1_s390x.deb ... 2091s Unpacking libusb-1.0-0:s390x (2:1.0.27-1) over (2:1.0.26-1) ... 2091s Preparing to unpack .../04-libctf0_2.42-4ubuntu1_s390x.deb ... 2091s Unpacking libctf0:s390x (2.42-4ubuntu1) over (2.42-3ubuntu1) ... 2091s Preparing to unpack .../05-libctf-nobfd0_2.42-4ubuntu1_s390x.deb ... 2091s Unpacking libctf-nobfd0:s390x (2.42-4ubuntu1) over (2.42-3ubuntu1) ... 2091s Preparing to unpack .../06-binutils-s390x-linux-gnu_2.42-4ubuntu1_s390x.deb ... 2091s Unpacking binutils-s390x-linux-gnu (2.42-4ubuntu1) over (2.42-3ubuntu1) ... 2091s Preparing to unpack .../07-libbinutils_2.42-4ubuntu1_s390x.deb ... 2091s Unpacking libbinutils:s390x (2.42-4ubuntu1) over (2.42-3ubuntu1) ... 2091s Preparing to unpack .../08-binutils_2.42-4ubuntu1_s390x.deb ... 2091s Unpacking binutils (2.42-4ubuntu1) over (2.42-3ubuntu1) ... 2091s Preparing to unpack .../09-binutils-common_2.42-4ubuntu1_s390x.deb ... 2091s Unpacking binutils-common:s390x (2.42-4ubuntu1) over (2.42-3ubuntu1) ... 2091s Preparing to unpack .../10-libsframe1_2.42-4ubuntu1_s390x.deb ... 2091s Unpacking libsframe1:s390x (2.42-4ubuntu1) over (2.42-3ubuntu1) ... 2091s Preparing to unpack .../11-initramfs-tools_0.142ubuntu23_all.deb ... 2091s Unpacking initramfs-tools (0.142ubuntu23) over (0.142ubuntu20) ... 2091s Preparing to unpack .../12-initramfs-tools-core_0.142ubuntu23_all.deb ... 2091s Unpacking initramfs-tools-core (0.142ubuntu23) over (0.142ubuntu20) ... 2091s Preparing to unpack .../13-initramfs-tools-bin_0.142ubuntu23_s390x.deb ... 2091s Unpacking initramfs-tools-bin (0.142ubuntu23) over (0.142ubuntu20) ... 2091s Preparing to unpack .../14-jq_1.7.1-3_s390x.deb ... 2091s Unpacking jq (1.7.1-3) over (1.7.1-2) ... 2092s Preparing to unpack .../15-libjq1_1.7.1-3_s390x.deb ... 2092s Unpacking libjq1:s390x (1.7.1-3) over (1.7.1-2) ... 2092s Preparing to unpack .../16-libftdi1-2_1.5-6build4_s390x.deb ... 2092s Unpacking libftdi1-2:s390x (1.5-6build4) over (1.5-6build3) ... 2092s Setting up libexpat1:s390x (2.6.1-2) ... 2092s Setting up libjq1:s390x (1.7.1-3) ... 2092s Setting up binutils-common:s390x (2.42-4ubuntu1) ... 2092s Setting up libctf-nobfd0:s390x (2.42-4ubuntu1) ... 2092s Setting up libsframe1:s390x (2.42-4ubuntu1) ... 2092s Setting up libdevmapper1.02.1:s390x (2:1.02.185-3ubuntu2) ... 2092s Setting up dmsetup (2:1.02.185-3ubuntu2) ... 2092s Setting up jq (1.7.1-3) ... 2092s Setting up libusb-1.0-0:s390x (2:1.0.27-1) ... 2092s Setting up libbinutils:s390x (2.42-4ubuntu1) ... 2092s Setting up initramfs-tools-bin (0.142ubuntu23) ... 2092s Setting up libctf0:s390x (2.42-4ubuntu1) ... 2092s Setting up binutils-s390x-linux-gnu (2.42-4ubuntu1) ... 2092s Setting up binutils (2.42-4ubuntu1) ... 2092s Setting up libftdi1-2:s390x (1.5-6build4) ... 2092s Setting up initramfs-tools-core (0.142ubuntu23) ... 2092s Setting up initramfs-tools (0.142ubuntu23) ... 2092s update-initramfs: deferring update (trigger activated) 2092s Processing triggers for man-db (2.12.0-3) ... 2093s Processing triggers for libc-bin (2.39-0ubuntu6) ... 2093s Processing triggers for initramfs-tools (0.142ubuntu23) ... 2093s update-initramfs: Generating /boot/initrd.img-6.8.0-11-generic 2093s W: No lz4 in /usr/bin:/sbin:/bin, using gzip 2097s Using config file '/etc/zipl.conf' 2097s Building bootmap in '/boot' 2097s Adding IPL section 'ubuntu' (default) 2097s Preparing boot device for LD-IPL: sda. 2097s Done. 2097s Reading package lists... 2097s Building dependency tree... 2098s Reading state information... 2098s 0 upgraded, 0 newly installed, 0 to remove and 217 not upgraded. 2098s Hit:1 http://ftpmaster.internal/ubuntu noble InRelease 2098s Hit:2 http://ftpmaster.internal/ubuntu noble-updates InRelease 2098s Hit:3 http://ftpmaster.internal/ubuntu noble-security InRelease 2099s Hit:4 http://ftpmaster.internal/ubuntu noble-proposed InRelease 2100s Reading package lists... 2100s Reading package lists... 2100s Building dependency tree... 2100s Reading state information... 2101s Calculating upgrade... 2101s The following packages were automatically installed and are no longer required: 2101s libaio1 libnetplan0 2101s Use 'sudo apt autoremove' to remove them. 2101s The following packages will be REMOVED: 2101s libapt-pkg6.0 libarchive13 libatm1 libcurl3-gnutls libcurl4 libdb5.3 libelf1 2101s libext2fs2 libgdbm-compat4 libgdbm6 libglib2.0-0 libgnutls30 libgpgme11 2101s libhogweed6 libmagic1 libnettle8 libnpth0 libnvme1 libparted2 libperl5.38 2101s libpng16-16 libpsl5 libreadline8 libreiserfscore0 libssl3 libtirpc3 liburcu8 2101s libuv1 2101s The following NEW packages will be installed: 2101s bpfcc-tools bpftrace fontconfig-config fonts-dejavu-core fonts-dejavu-mono 2101s hwdata ieee-data libaio1t64 libapt-pkg6.0t64 libarchive13t64 libatm1t64 2101s libbpfcc libc-dev-bin libc-devtools libc6-dev libclang-cpp18 libclang1-18 2101s libcrypt-dev libcurl3t64-gnutls libcurl4t64 libdb5.3t64 libdeflate0 2101s libdw1t64 libelf1t64 libext2fs2t64 libfontconfig1 libfreetype6 libgd3 2101s libgdbm-compat4t64 libgdbm6t64 libglib2.0-0t64 libgnutls30t64 libgpgme11t64 2101s libhogweed6t64 libjbig0 libjpeg-turbo8 libjpeg8 libllvm18 libmagic1t64 2101s libnetplan1 libnettle8t64 libnpth0t64 libnvme1t64 libparted2t64 2101s libperl5.38t64 libpng16-16t64 libpsl5t64 libreadline8t64 libreiserfscore0t64 2101s libsharpyuv0 libssl3t64 libtiff6 libtirpc3t64 liburcu8t64 libuv1t64 libwebp7 2101s libxpm4 linux-headers-6.8.0-20 linux-headers-6.8.0-20-generic 2101s linux-image-6.8.0-20-generic linux-libc-dev linux-modules-6.8.0-20-generic 2101s linux-modules-extra-6.8.0-20-generic linux-tools-6.8.0-20 2101s linux-tools-6.8.0-20-generic linux-tools-common manpages manpages-dev 2101s python3-bpfcc python3-netaddr rpcsvc-proto ubuntu-kernel-accessories 2101s xdg-user-dirs 2101s The following packages have been kept back: 2101s s390-tools 2101s The following packages will be upgraded: 2101s apparmor apt apt-utils base-files bash bind9-dnsutils bind9-host bind9-libs 2101s bolt bsdextrautils bsdutils btrfs-progs coreutils cryptsetup-bin curl dbus 2101s dbus-bin dbus-daemon dbus-session-bus-common dbus-system-bus-common 2101s dbus-user-session dhcpcd-base dirmngr dpkg dpkg-dev e2fsprogs eject fdisk 2101s file ftp fwupd gawk gir1.2-girepository-2.0 gir1.2-glib-2.0 gnupg 2101s gnupg-utils gpg gpg-agent gpg-wks-client gpgconf gpgsm gpgv groff-base 2101s ibverbs-providers inetutils-telnet info install-info iproute2 keyboxd kmod 2101s kpartx libapparmor1 libaudit-common libaudit1 libblkid1 libblockdev-crypto3 2101s libblockdev-fs3 libblockdev-loop3 libblockdev-mdraid3 libblockdev-nvme3 2101s libblockdev-part3 libblockdev-swap3 libblockdev-utils3 libblockdev3 libbpf1 2101s libbrotli1 libcap-ng0 libcom-err2 libcryptsetup12 libdbus-1-3 2101s libdebconfclient0 libdpkg-perl libevent-core-2.1-7 libfdisk1 libfido2-1 2101s libfwupd2 libgirepository-1.0-1 libglib2.0-data libgssapi-krb5-2 2101s libgudev-1.0-0 libgusb2 libibverbs1 libjcat1 libjson-glib-1.0-0 2101s libjson-glib-1.0-common libk5crypto3 libkmod2 libkrb5-3 libkrb5support0 2101s libldap-common libldap2 liblocale-gettext-perl liblzma5 libmagic-mgc 2101s libmbim-glib4 libmbim-proxy libmm-glib0 libmount1 libnghttp2-14 libnsl2 2101s libnss-systemd libpam-modules libpam-modules-bin libpam-runtime 2101s libpam-systemd libpam0g libpcsclite1 libplymouth5 libpolkit-agent-1-0 2101s libpolkit-gobject-1-0 libproc2-0 libprotobuf-c1 libpython3-stdlib 2101s libpython3.12-minimal libpython3.12-stdlib libqmi-glib5 libqmi-proxy 2101s libqrtr-glib0 librtmp1 libsasl2-2 libsasl2-modules libsasl2-modules-db 2101s libselinux1 libsemanage-common libsemanage2 libslang2 libsmartcols1 2101s libsqlite3-0 libss2 libssh-4 libsystemd-shared libsystemd0 2101s libtext-charwidth-perl libtext-iconv-perl libtirpc-common libudev1 2101s libudisks2-0 libuuid1 libvolume-key1 libxml2 libxmlb2 libxmuu1 linux-generic 2101s linux-headers-generic linux-headers-virtual linux-image-generic 2101s linux-image-virtual linux-virtual logsave lshw lsof man-db motd-news-config 2101s mount mtr-tiny multipath-tools netplan-generator netplan.io openssh-client 2101s openssh-server openssh-sftp-server openssl parted perl perl-base 2101s perl-modules-5.38 pinentry-curses plymouth plymouth-theme-ubuntu-text procps 2101s python-apt-common python3 python3-apt python3-cryptography python3-dbus 2101s python3-distutils python3-gdbm python3-gi python3-lib2to3 python3-minimal 2101s python3-netplan python3-pkg-resources python3-pyrsistent python3-setuptools 2101s python3-yaml python3.12 python3.12-minimal readline-common rsync rsyslog 2101s s390-tools-data shared-mime-info sudo systemd systemd-dev systemd-resolved 2101s systemd-sysv systemd-timesyncd tcpdump telnet tnftp ubuntu-pro-client 2101s ubuntu-pro-client-l10n udev udisks2 usb.ids util-linux util-linux-extra 2101s uuid-runtime vim-common vim-tiny wget wpasupplicant xxd xz-utils zlib1g 2101s 216 upgraded, 73 newly installed, 28 to remove and 1 not upgraded. 2101s Need to get 219 MB of archives. 2101s After this operation, 523 MB of additional disk space will be used. 2101s Get:1 http://ftpmaster.internal/ubuntu noble-proposed/main s390x motd-news-config all 13ubuntu8 [5098 B] 2102s Get:2 http://ftpmaster.internal/ubuntu noble-proposed/main s390x base-files s390x 13ubuntu8 [74.2 kB] 2102s Get:3 http://ftpmaster.internal/ubuntu noble-proposed/main s390x bash s390x 5.2.21-2ubuntu3 [845 kB] 2102s Get:4 http://ftpmaster.internal/ubuntu noble-proposed/main s390x bsdutils s390x 1:2.39.3-9ubuntu2 [96.1 kB] 2102s Get:5 http://ftpmaster.internal/ubuntu noble-proposed/main s390x openssl s390x 3.0.13-0ubuntu2 [1010 kB] 2102s Get:6 http://ftpmaster.internal/ubuntu noble-proposed/main s390x parted s390x 3.6-3.1build2 [44.6 kB] 2102s Get:7 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libblkid1 s390x 2.39.3-9ubuntu2 [128 kB] 2102s Get:8 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libuuid1 s390x 2.39.3-9ubuntu2 [35.6 kB] 2102s Get:9 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libparted2t64 s390x 3.6-3.1build2 [172 kB] 2102s Get:10 http://ftpmaster.internal/ubuntu noble-proposed/main s390x python3.12 s390x 3.12.2-4build3 [645 kB] 2102s Get:11 http://ftpmaster.internal/ubuntu noble-proposed/main s390x zlib1g s390x 1:1.3.dfsg-3.1ubuntu1 [75.7 kB] 2102s Get:12 http://ftpmaster.internal/ubuntu noble-proposed/main s390x python3.12-minimal s390x 3.12.2-4build3 [2419 kB] 2102s Get:13 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libpython3.12-stdlib s390x 3.12.2-4build3 [2046 kB] 2102s Get:14 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libpython3.12-minimal s390x 3.12.2-4build3 [829 kB] 2102s Get:15 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libsasl2-modules-db s390x 2.1.28+dfsg1-5ubuntu1 [21.1 kB] 2102s Get:16 http://ftpmaster.internal/ubuntu noble-proposed/main s390x perl-modules-5.38 all 5.38.2-3.2 [3110 kB] 2102s Get:17 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libdb5.3t64 s390x 5.3.28+dfsg2-6 [763 kB] 2102s Get:18 http://ftpmaster.internal/ubuntu noble-proposed/main s390x python3-gdbm s390x 3.12.2-3ubuntu1.1 [19.0 kB] 2102s Get:19 http://ftpmaster.internal/ubuntu noble-proposed/main s390x man-db s390x 2.12.0-3build4 [1246 kB] 2103s Get:20 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libgdbm6t64 s390x 1.23-5.1 [36.4 kB] 2103s Get:21 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libgdbm-compat4t64 s390x 1.23-5.1 [6880 B] 2103s Get:22 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libperl5.38t64 s390x 5.38.2-3.2 [5007 kB] 2103s Get:23 http://ftpmaster.internal/ubuntu noble-proposed/main s390x perl s390x 5.38.2-3.2 [231 kB] 2103s Get:24 http://ftpmaster.internal/ubuntu noble-proposed/main s390x perl-base s390x 5.38.2-3.2 [1961 kB] 2103s Get:25 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libldap2 s390x 2.6.7+dfsg-1~exp1ubuntu6 [202 kB] 2103s Get:26 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libudisks2-0 s390x 2.10.1-6 [179 kB] 2103s Get:27 http://ftpmaster.internal/ubuntu noble-proposed/main s390x udisks2 s390x 2.10.1-6 [298 kB] 2103s Get:28 http://ftpmaster.internal/ubuntu noble-proposed/main s390x shared-mime-info s390x 2.4-1build1 [474 kB] 2103s Get:29 http://ftpmaster.internal/ubuntu noble-proposed/main s390x gir1.2-girepository-2.0 s390x 1.79.1-1ubuntu6 [24.5 kB] 2103s Get:30 http://ftpmaster.internal/ubuntu noble-proposed/main s390x gir1.2-glib-2.0 s390x 2.79.3-3ubuntu5 [180 kB] 2103s Get:31 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libgirepository-1.0-1 s390x 1.79.1-1ubuntu6 [84.0 kB] 2103s Get:32 http://ftpmaster.internal/ubuntu noble-proposed/main s390x python3-gi s390x 3.47.0-3build1 [236 kB] 2103s Get:33 http://ftpmaster.internal/ubuntu noble-proposed/main s390x python3-dbus s390x 1.3.2-5build2 [100 kB] 2103s Get:34 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libgpgme11t64 s390x 1.18.0-4.1ubuntu3 [150 kB] 2103s Get:35 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libvolume-key1 s390x 0.3.12-7build1 [40.8 kB] 2103s Get:36 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libnetplan1 s390x 1.0-1 [123 kB] 2103s Get:37 http://ftpmaster.internal/ubuntu noble-proposed/main s390x python3-netplan s390x 1.0-1 [23.0 kB] 2103s Get:38 http://ftpmaster.internal/ubuntu noble-proposed/main s390x netplan-generator s390x 1.0-1 [59.1 kB] 2103s Get:39 http://ftpmaster.internal/ubuntu noble-proposed/main s390x netplan.io s390x 1.0-1 [65.4 kB] 2103s Get:40 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libxmlb2 s390x 0.3.15-1build1 [70.6 kB] 2103s Get:41 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libqrtr-glib0 s390x 1.2.2-1ubuntu3 [17.5 kB] 2103s Get:42 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libqmi-glib5 s390x 1.35.2-0ubuntu1 [918 kB] 2103s Get:43 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libqmi-proxy s390x 1.35.2-0ubuntu1 [6122 B] 2103s Get:44 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libpolkit-agent-1-0 s390x 124-1ubuntu1 [17.8 kB] 2103s Get:45 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libpolkit-gobject-1-0 s390x 124-1ubuntu1 [48.3 kB] 2103s Get:46 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libmm-glib0 s390x 1.23.4-0ubuntu1 [251 kB] 2103s Get:47 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libmbim-glib4 s390x 1.31.2-0ubuntu2 [238 kB] 2103s Get:48 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libmbim-proxy s390x 1.31.2-0ubuntu2 [6154 B] 2103s Get:49 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libjson-glib-1.0-common all 1.8.0-2build1 [4210 B] 2103s Get:50 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libjson-glib-1.0-0 s390x 1.8.0-2build1 [68.4 kB] 2103s Get:51 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libgusb2 s390x 0.4.8-1build1 [39.0 kB] 2103s Get:52 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libgudev-1.0-0 s390x 1:238-3ubuntu2 [15.7 kB] 2103s Get:53 http://ftpmaster.internal/ubuntu noble-proposed/main s390x gnupg-utils s390x 2.4.4-2ubuntu15 [116 kB] 2103s Get:54 http://ftpmaster.internal/ubuntu noble-proposed/main s390x gpg-agent s390x 2.4.4-2ubuntu15 [240 kB] 2103s Get:55 http://ftpmaster.internal/ubuntu noble-proposed/main s390x gpg-wks-client s390x 2.4.4-2ubuntu15 [76.8 kB] 2103s Get:56 http://ftpmaster.internal/ubuntu noble-proposed/main s390x gpg s390x 2.4.4-2ubuntu15 [589 kB] 2103s Get:57 http://ftpmaster.internal/ubuntu noble/main s390x libnpth0t64 s390x 1.6-3.1 [8148 B] 2103s Get:58 http://ftpmaster.internal/ubuntu noble-proposed/main s390x gpgv s390x 2.4.4-2ubuntu15 [165 kB] 2103s Get:59 http://ftpmaster.internal/ubuntu noble-proposed/main s390x dirmngr s390x 2.4.4-2ubuntu15 [340 kB] 2103s Get:60 http://ftpmaster.internal/ubuntu noble-proposed/main s390x gnupg all 2.4.4-2ubuntu15 [359 kB] 2103s Get:61 http://ftpmaster.internal/ubuntu noble-proposed/main s390x keyboxd s390x 2.4.4-2ubuntu15 [83.1 kB] 2103s Get:62 http://ftpmaster.internal/ubuntu noble-proposed/main s390x gpgconf s390x 2.4.4-2ubuntu15 [111 kB] 2103s Get:63 http://ftpmaster.internal/ubuntu noble-proposed/main s390x gpgsm s390x 2.4.4-2ubuntu15 [244 kB] 2103s Get:64 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libreadline8t64 s390x 8.2-4 [170 kB] 2103s Get:65 http://ftpmaster.internal/ubuntu noble-proposed/main s390x gawk s390x 1:5.2.1-2build2 [496 kB] 2103s Get:66 http://ftpmaster.internal/ubuntu noble-proposed/main s390x fdisk s390x 2.39.3-9ubuntu2 [124 kB] 2103s Get:67 http://ftpmaster.internal/ubuntu noble-proposed/main s390x wpasupplicant s390x 2:2.10-21build2 [1503 kB] 2103s Get:68 http://ftpmaster.internal/ubuntu noble-proposed/main s390x tnftp s390x 20230507-2build1 [107 kB] 2103s Get:69 http://ftpmaster.internal/ubuntu noble-proposed/main s390x tcpdump s390x 4.99.4-3ubuntu2 [490 kB] 2103s Get:70 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libsystemd0 s390x 255.4-1ubuntu5 [443 kB] 2103s Get:71 http://ftpmaster.internal/ubuntu noble-proposed/main s390x systemd-dev all 255.4-1ubuntu5 [103 kB] 2103s Get:72 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libudev1 s390x 255.4-1ubuntu5 [178 kB] 2103s Get:73 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libssl3t64 s390x 3.0.13-0ubuntu2 [1675 kB] 2104s Get:74 http://ftpmaster.internal/ubuntu noble-proposed/main s390x systemd s390x 255.4-1ubuntu5 [3533 kB] 2104s Get:75 http://ftpmaster.internal/ubuntu noble-proposed/main s390x udev s390x 255.4-1ubuntu5 [1887 kB] 2104s Get:76 http://ftpmaster.internal/ubuntu noble-proposed/main s390x systemd-sysv s390x 255.4-1ubuntu5 [11.9 kB] 2104s Get:77 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libnss-systemd s390x 255.4-1ubuntu5 [166 kB] 2104s Get:78 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libpam-systemd s390x 255.4-1ubuntu5 [242 kB] 2104s Get:79 http://ftpmaster.internal/ubuntu noble-proposed/main s390x systemd-timesyncd s390x 255.4-1ubuntu5 [35.3 kB] 2104s Get:80 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libsystemd-shared s390x 255.4-1ubuntu5 [2131 kB] 2104s Get:81 http://ftpmaster.internal/ubuntu noble-proposed/main s390x systemd-resolved s390x 255.4-1ubuntu5 [304 kB] 2104s Get:82 http://ftpmaster.internal/ubuntu noble-proposed/main s390x sudo s390x 1.9.15p5-3ubuntu3 [968 kB] 2104s Get:83 http://ftpmaster.internal/ubuntu noble-proposed/main s390x rsync s390x 3.2.7-1build1 [446 kB] 2104s Get:84 http://ftpmaster.internal/ubuntu noble-proposed/main s390x python3-cryptography s390x 41.0.7-4build2 [918 kB] 2104s Get:85 http://ftpmaster.internal/ubuntu noble-proposed/main s390x openssh-sftp-server s390x 1:9.6p1-3ubuntu11 [39.0 kB] 2104s Get:86 http://ftpmaster.internal/ubuntu noble-proposed/main s390x openssh-client s390x 1:9.6p1-3ubuntu11 [935 kB] 2104s Get:87 http://ftpmaster.internal/ubuntu noble-proposed/main s390x openssh-server s390x 1:9.6p1-3ubuntu11 [529 kB] 2104s Get:88 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libssh-4 s390x 0.10.6-2build1 [189 kB] 2104s Get:89 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libsasl2-modules s390x 2.1.28+dfsg1-5ubuntu1 [76.6 kB] 2104s Get:90 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libsasl2-2 s390x 2.1.28+dfsg1-5ubuntu1 [57.8 kB] 2104s Get:91 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libnvme1t64 s390x 1.8-3 [78.7 kB] 2104s Get:92 http://ftpmaster.internal/ubuntu noble-proposed/main s390x wget s390x 1.21.4-1ubuntu2 [351 kB] 2104s Get:93 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libarchive13t64 s390x 3.7.2-1.1ubuntu2 [419 kB] 2104s Get:94 http://ftpmaster.internal/ubuntu noble-proposed/main s390x fwupd s390x 1.9.15-2 [4435 kB] 2104s Get:95 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libpsl5t64 s390x 0.21.2-1.1 [57.6 kB] 2104s Get:96 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libcurl3t64-gnutls s390x 8.5.0-2ubuntu8 [356 kB] 2104s Get:97 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libfwupd2 s390x 1.9.15-2 [136 kB] 2104s Get:98 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libblockdev-crypto3 s390x 3.1.0-1build1 [21.6 kB] 2104s Get:99 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libblockdev3 s390x 3.1.0-1build1 [52.3 kB] 2104s Get:100 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libblockdev-utils3 s390x 3.1.0-1build1 [19.2 kB] 2104s Get:101 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libblockdev-swap3 s390x 3.1.0-1build1 [7778 B] 2104s Get:102 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libblockdev-part3 s390x 3.1.0-1build1 [15.4 kB] 2105s Get:103 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libblockdev-nvme3 s390x 3.1.0-1build1 [18.3 kB] 2105s Get:104 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libblockdev-mdraid3 s390x 3.1.0-1build1 [13.2 kB] 2105s Get:105 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libblockdev-loop3 s390x 3.1.0-1build1 [7138 B] 2105s Get:106 http://ftpmaster.internal/ubuntu noble-proposed/main s390x logsave s390x 1.47.0-2.4~exp1ubuntu2 [22.5 kB] 2105s Get:107 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libext2fs2t64 s390x 1.47.0-2.4~exp1ubuntu2 [235 kB] 2105s Get:108 http://ftpmaster.internal/ubuntu noble-proposed/main s390x e2fsprogs s390x 1.47.0-2.4~exp1ubuntu2 [615 kB] 2105s Get:109 http://ftpmaster.internal/ubuntu noble/main s390x libreiserfscore0t64 s390x 1:3.6.27-7.1 [85.5 kB] 2105s Get:110 http://ftpmaster.internal/ubuntu noble-proposed/main s390x btrfs-progs s390x 6.6.3-1.1build1 [959 kB] 2105s Get:111 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libblockdev-fs3 s390x 3.1.0-1build1 [36.5 kB] 2105s Get:112 http://ftpmaster.internal/ubuntu noble-proposed/main s390x bolt s390x 0.9.6-2build1 [142 kB] 2105s Get:113 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libglib2.0-0t64 s390x 2.79.3-3ubuntu5 [1566 kB] 2105s Get:114 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libjcat1 s390x 0.2.0-2build2 [34.4 kB] 2105s Get:115 http://ftpmaster.internal/ubuntu noble-proposed/main s390x ubuntu-pro-client-l10n s390x 31.2.2 [19.4 kB] 2105s Get:116 http://ftpmaster.internal/ubuntu noble-proposed/main s390x ubuntu-pro-client s390x 31.2.2 [214 kB] 2105s Get:117 http://ftpmaster.internal/ubuntu noble-proposed/main s390x python3-apt s390x 2.7.7 [171 kB] 2105s Get:118 http://ftpmaster.internal/ubuntu noble-proposed/main s390x apt-utils s390x 2.7.14 [214 kB] 2105s Get:119 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libapt-pkg6.0t64 s390x 2.7.14 [1014 kB] 2105s Get:120 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libnettle8t64 s390x 3.9.1-2.2 [210 kB] 2105s Get:121 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libhogweed6t64 s390x 3.9.1-2.2 [204 kB] 2105s Get:122 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libgnutls30t64 s390x 3.8.3-1.1ubuntu2 [1044 kB] 2105s Get:123 http://ftpmaster.internal/ubuntu noble-proposed/main s390x apt s390x 2.7.14 [1390 kB] 2105s Get:124 http://ftpmaster.internal/ubuntu noble-proposed/main s390x librtmp1 s390x 2.4+20151223.gitfa8646d.1-2build6 [58.4 kB] 2105s Get:125 http://ftpmaster.internal/ubuntu noble-proposed/main s390x curl s390x 8.5.0-2ubuntu8 [227 kB] 2105s Get:126 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libbrotli1 s390x 1.1.0-2build1 [375 kB] 2105s Get:127 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libgssapi-krb5-2 s390x 1.20.1-6ubuntu1 [149 kB] 2105s Get:128 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libkrb5-3 s390x 1.20.1-6ubuntu1 [360 kB] 2105s Get:129 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libkrb5support0 s390x 1.20.1-6ubuntu1 [34.6 kB] 2105s Get:130 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libk5crypto3 s390x 1.20.1-6ubuntu1 [90.3 kB] 2105s Get:131 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libcom-err2 s390x 1.47.0-2.4~exp1ubuntu2 [22.9 kB] 2105s Get:132 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libnghttp2-14 s390x 1.59.0-1build1 [77.8 kB] 2105s Get:133 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libcurl4t64 s390x 8.5.0-2ubuntu8 [363 kB] 2105s Get:134 http://ftpmaster.internal/ubuntu noble-proposed/main s390x liblzma5 s390x 5.6.0-0.2 [137 kB] 2105s Get:135 http://ftpmaster.internal/ubuntu noble-proposed/main s390x dbus-session-bus-common all 1.14.10-4ubuntu2 [80.3 kB] 2105s Get:136 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libaudit-common all 1:3.1.2-2.1 [5674 B] 2105s Get:137 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libcap-ng0 s390x 0.8.4-2build1 [15.7 kB] 2105s Get:138 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libaudit1 s390x 1:3.1.2-2.1 [48.9 kB] 2105s Get:139 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libpam0g s390x 1.5.3-5ubuntu3 [69.8 kB] 2105s Get:140 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libselinux1 s390x 3.5-2ubuntu1 [84.7 kB] 2105s Get:141 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libpam-modules-bin s390x 1.5.3-5ubuntu3 [57.4 kB] 2105s Get:142 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libpam-modules s390x 1.5.3-5ubuntu3 [289 kB] 2105s Get:143 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libpam-runtime all 1.5.3-5ubuntu3 [40.8 kB] 2105s Get:144 http://ftpmaster.internal/ubuntu noble-proposed/main s390x dbus-user-session s390x 1.14.10-4ubuntu2 [9960 B] 2105s Get:145 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libapparmor1 s390x 4.0.0-beta3-0ubuntu2 [50.8 kB] 2105s Get:146 http://ftpmaster.internal/ubuntu noble-proposed/main s390x dbus-bin s390x 1.14.10-4ubuntu2 [41.4 kB] 2106s Get:147 http://ftpmaster.internal/ubuntu noble-proposed/main s390x dbus-system-bus-common all 1.14.10-4ubuntu2 [81.5 kB] 2106s Get:148 http://ftpmaster.internal/ubuntu noble-proposed/main s390x dbus s390x 1.14.10-4ubuntu2 [24.3 kB] 2106s Get:149 http://ftpmaster.internal/ubuntu noble-proposed/main s390x dbus-daemon s390x 1.14.10-4ubuntu2 [118 kB] 2106s Get:150 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libdbus-1-3 s390x 1.14.10-4ubuntu2 [213 kB] 2106s Get:151 http://ftpmaster.internal/ubuntu noble-proposed/main s390x kmod s390x 31+20240202-2ubuntu4 [107 kB] 2106s Get:152 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libkmod2 s390x 31+20240202-2ubuntu4 [56.3 kB] 2106s Get:153 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libmount1 s390x 2.39.3-9ubuntu2 [138 kB] 2106s Get:154 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libcryptsetup12 s390x 2:2.7.0-1ubuntu2 [264 kB] 2106s Get:155 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libfdisk1 s390x 2.39.3-9ubuntu2 [151 kB] 2106s Get:156 http://ftpmaster.internal/ubuntu noble-proposed/main s390x mount s390x 2.39.3-9ubuntu2 [119 kB] 2106s Get:157 http://ftpmaster.internal/ubuntu noble-proposed/main s390x dpkg s390x 1.22.6ubuntu5 [1278 kB] 2106s Get:158 http://ftpmaster.internal/ubuntu noble-proposed/main s390x python3-minimal s390x 3.12.2-0ubuntu1 [27.1 kB] 2106s Get:159 http://ftpmaster.internal/ubuntu noble-proposed/main s390x python3 s390x 3.12.2-0ubuntu1 [24.1 kB] 2106s Get:160 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libpython3-stdlib s390x 3.12.2-0ubuntu1 [9804 B] 2106s Get:161 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libsmartcols1 s390x 2.39.3-9ubuntu2 [67.9 kB] 2106s Get:162 http://ftpmaster.internal/ubuntu noble-proposed/main s390x bsdextrautils s390x 2.39.3-9ubuntu2 [76.3 kB] 2106s Get:163 http://ftpmaster.internal/ubuntu noble-proposed/main s390x groff-base s390x 1.23.0-3build1 [1049 kB] 2106s Get:164 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libsqlite3-0 s390x 3.45.1-1ubuntu1 [747 kB] 2106s Get:165 http://ftpmaster.internal/ubuntu noble-proposed/main s390x pinentry-curses s390x 1.2.1-3ubuntu4 [37.6 kB] 2106s Get:166 http://ftpmaster.internal/ubuntu noble-proposed/main s390x readline-common all 8.2-4 [56.4 kB] 2106s Get:167 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libpcsclite1 s390x 2.0.3-1 [21.8 kB] 2106s Get:168 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libfido2-1 s390x 1.14.0-1build1 [81.0 kB] 2106s Get:169 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libproc2-0 s390x 2:4.0.4-4ubuntu2 [60.1 kB] 2106s Get:170 http://ftpmaster.internal/ubuntu noble-proposed/main s390x procps s390x 2:4.0.4-4ubuntu2 [724 kB] 2106s Get:171 http://ftpmaster.internal/ubuntu noble-proposed/main s390x coreutils s390x 9.4-3ubuntu3 [1482 kB] 2106s Get:172 http://ftpmaster.internal/ubuntu noble-proposed/universe s390x util-linux-extra s390x 2.39.3-9ubuntu2 [121 kB] 2106s Get:173 http://ftpmaster.internal/ubuntu noble-proposed/main s390x util-linux s390x 2.39.3-9ubuntu2 [1143 kB] 2106s Get:174 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libxml2 s390x 2.9.14+dfsg-1.3ubuntu2 [818 kB] 2106s Get:175 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libbpf1 s390x 1:1.3.0-2build1 [176 kB] 2106s Get:176 http://ftpmaster.internal/ubuntu noble-proposed/main s390x iproute2 s390x 6.1.0-1ubuntu5 [1156 kB] 2106s Get:177 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libelf1t64 s390x 0.190-1.1build2 [69.7 kB] 2106s Get:178 http://ftpmaster.internal/ubuntu noble-proposed/main s390x file s390x 1:5.45-3 [22.2 kB] 2106s Get:179 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libmagic-mgc s390x 1:5.45-3 [305 kB] 2106s Get:180 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libmagic1t64 s390x 1:5.45-3 [93.1 kB] 2106s Get:181 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libplymouth5 s390x 24.004.60-1ubuntu6 [151 kB] 2106s Get:182 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libpng16-16t64 s390x 1.6.43-3 [200 kB] 2106s Get:183 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libtirpc-common all 1.3.4+ds-1.1 [8018 B] 2106s Get:184 http://ftpmaster.internal/ubuntu noble-proposed/main s390x lsof s390x 4.95.0-1build2 [248 kB] 2106s Get:185 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libnsl2 s390x 1.3.0-3build2 [44.1 kB] 2106s Get:186 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libtirpc3t64 s390x 1.3.4+ds-1.1 [85.8 kB] 2106s Get:187 http://ftpmaster.internal/ubuntu noble-proposed/main s390x multipath-tools s390x 0.9.4-5ubuntu6 [318 kB] 2106s Get:188 http://ftpmaster.internal/ubuntu noble/main s390x liburcu8t64 s390x 0.14.0-3.1 [67.3 kB] 2106s Get:189 http://ftpmaster.internal/ubuntu noble-proposed/main s390x bind9-host s390x 1:9.18.24-0ubuntu3 [50.5 kB] 2106s Get:190 http://ftpmaster.internal/ubuntu noble-proposed/main s390x bind9-dnsutils s390x 1:9.18.24-0ubuntu3 [162 kB] 2106s Get:191 http://ftpmaster.internal/ubuntu noble-proposed/main s390x bind9-libs s390x 1:9.18.24-0ubuntu3 [1243 kB] 2106s Get:192 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libuv1t64 s390x 1.48.0-1.1 [101 kB] 2106s Get:193 http://ftpmaster.internal/ubuntu noble-proposed/main s390x liblocale-gettext-perl s390x 1.07-6ubuntu4 [15.8 kB] 2106s Get:194 http://ftpmaster.internal/ubuntu noble-proposed/main s390x uuid-runtime s390x 2.39.3-9ubuntu2 [33.4 kB] 2106s Get:195 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libdebconfclient0 s390x 0.271ubuntu2 [11.4 kB] 2106s Get:196 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libsemanage-common all 3.5-1build4 [10.1 kB] 2106s Get:197 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libsemanage2 s390x 3.5-1build4 [96.7 kB] 2106s Get:198 http://ftpmaster.internal/ubuntu noble-proposed/main s390x install-info s390x 7.1-3build1 [64.5 kB] 2106s Get:199 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libss2 s390x 1.47.0-2.4~exp1ubuntu2 [17.2 kB] 2106s Get:200 http://ftpmaster.internal/ubuntu noble-proposed/main s390x dhcpcd-base s390x 1:10.0.6-1ubuntu2 [217 kB] 2106s Get:201 http://ftpmaster.internal/ubuntu noble-proposed/main s390x eject s390x 2.39.3-9ubuntu2 [26.2 kB] 2106s Get:202 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libglib2.0-data all 2.79.3-3ubuntu5 [46.6 kB] 2107s Get:203 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libslang2 s390x 2.3.3-3build1 [501 kB] 2107s Get:204 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libtext-charwidth-perl s390x 0.04-11build2 [9484 B] 2107s Get:205 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libtext-iconv-perl s390x 1.7-8build2 [13.8 kB] 2107s Get:206 http://ftpmaster.internal/ubuntu noble-proposed/main s390x python3-yaml s390x 6.0.1-2build1 [121 kB] 2107s Get:207 http://ftpmaster.internal/ubuntu noble-proposed/main s390x python-apt-common all 2.7.7 [19.8 kB] 2107s Get:208 http://ftpmaster.internal/ubuntu noble-proposed/main s390x python3-setuptools all 68.1.2-2ubuntu1 [396 kB] 2107s Get:209 http://ftpmaster.internal/ubuntu noble-proposed/main s390x python3-pkg-resources all 68.1.2-2ubuntu1 [168 kB] 2107s Get:210 http://ftpmaster.internal/ubuntu noble-proposed/main s390x rsyslog s390x 8.2312.0-3ubuntu7 [536 kB] 2107s Get:211 http://ftpmaster.internal/ubuntu noble-proposed/main s390x vim-tiny s390x 2:9.1.0016-1ubuntu6 [879 kB] 2107s Get:212 http://ftpmaster.internal/ubuntu noble-proposed/main s390x vim-common all 2:9.1.0016-1ubuntu6 [385 kB] 2107s Get:213 http://ftpmaster.internal/ubuntu noble/main s390x xdg-user-dirs s390x 0.18-1 [18.5 kB] 2107s Get:214 http://ftpmaster.internal/ubuntu noble-proposed/main s390x xxd s390x 2:9.1.0016-1ubuntu6 [63.5 kB] 2107s Get:215 http://ftpmaster.internal/ubuntu noble-proposed/main s390x apparmor s390x 4.0.0-beta3-0ubuntu2 [710 kB] 2107s Get:216 http://ftpmaster.internal/ubuntu noble-proposed/main s390x ftp all 20230507-2build1 [4724 B] 2107s Get:217 http://ftpmaster.internal/ubuntu noble-proposed/main s390x inetutils-telnet s390x 2:2.5-3ubuntu3 [105 kB] 2107s Get:218 http://ftpmaster.internal/ubuntu noble-proposed/main s390x info s390x 7.1-3build1 [152 kB] 2107s Get:219 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libxmuu1 s390x 2:1.1.3-3build1 [8860 B] 2107s Get:220 http://ftpmaster.internal/ubuntu noble-proposed/main s390x lshw s390x 02.19.git.2021.06.19.996aaad9c7-2build2 [346 kB] 2107s Get:221 http://ftpmaster.internal/ubuntu noble/main s390x manpages all 6.05.01-1 [1340 kB] 2107s Get:222 http://ftpmaster.internal/ubuntu noble-proposed/main s390x mtr-tiny s390x 0.95-1.1build1 [57.0 kB] 2107s Get:223 http://ftpmaster.internal/ubuntu noble-proposed/main s390x plymouth-theme-ubuntu-text s390x 24.004.60-1ubuntu6 [10.2 kB] 2107s Get:224 http://ftpmaster.internal/ubuntu noble-proposed/main s390x plymouth s390x 24.004.60-1ubuntu6 [147 kB] 2107s Get:225 http://ftpmaster.internal/ubuntu noble-proposed/main s390x telnet all 0.17+2.5-3ubuntu3 [3682 B] 2107s Get:226 http://ftpmaster.internal/ubuntu noble-proposed/main s390x usb.ids all 2024.03.18-1 [223 kB] 2107s Get:227 http://ftpmaster.internal/ubuntu noble-proposed/main s390x xz-utils s390x 5.6.0-0.2 [274 kB] 2107s Get:228 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libllvm18 s390x 1:18.1.2-1ubuntu2 [33.4 MB] 2109s Get:229 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libclang-cpp18 s390x 1:18.1.2-1ubuntu2 [16.1 MB] 2109s Get:230 http://ftpmaster.internal/ubuntu noble-proposed/universe s390x libbpfcc s390x 0.29.1+ds-1ubuntu4 [697 kB] 2109s Get:231 http://ftpmaster.internal/ubuntu noble-proposed/universe s390x python3-bpfcc all 0.29.1+ds-1ubuntu4 [40.2 kB] 2109s Get:232 http://ftpmaster.internal/ubuntu noble/main s390x ieee-data all 20220827.1 [2113 kB] 2109s Get:233 http://ftpmaster.internal/ubuntu noble/main s390x python3-netaddr all 0.8.0-2ubuntu1 [319 kB] 2109s Get:234 http://ftpmaster.internal/ubuntu noble-proposed/universe s390x bpfcc-tools all 0.29.1+ds-1ubuntu4 [687 kB] 2110s Get:235 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libclang1-18 s390x 1:18.1.2-1ubuntu2 [9349 kB] 2110s Get:236 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libdw1t64 s390x 0.190-1.1build2 [286 kB] 2110s Get:237 http://ftpmaster.internal/ubuntu noble-proposed/universe s390x bpftrace s390x 0.20.2-1ubuntu1 [1139 kB] 2110s Get:238 http://ftpmaster.internal/ubuntu noble-proposed/main s390x cryptsetup-bin s390x 2:2.7.0-1ubuntu2 [211 kB] 2110s Get:239 http://ftpmaster.internal/ubuntu noble-proposed/main s390x dpkg-dev all 1.22.6ubuntu5 [1074 kB] 2110s Get:240 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libdpkg-perl all 1.22.6ubuntu5 [269 kB] 2110s Get:241 http://ftpmaster.internal/ubuntu noble/main s390x fonts-dejavu-mono all 2.37-8 [502 kB] 2110s Get:242 http://ftpmaster.internal/ubuntu noble/main s390x fonts-dejavu-core all 2.37-8 [835 kB] 2110s Get:243 http://ftpmaster.internal/ubuntu noble/main s390x fontconfig-config s390x 2.15.0-1.1ubuntu1 [37.4 kB] 2110s Get:244 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libprotobuf-c1 s390x 1.4.1-1ubuntu3 [23.4 kB] 2110s Get:245 http://ftpmaster.internal/ubuntu noble/main s390x hwdata all 0.379-1 [29.1 kB] 2110s Get:246 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libibverbs1 s390x 50.0-2build1 [70.0 kB] 2110s Get:247 http://ftpmaster.internal/ubuntu noble-proposed/main s390x ibverbs-providers s390x 50.0-2build1 [408 kB] 2110s Get:248 http://ftpmaster.internal/ubuntu noble/main s390x libaio1t64 s390x 0.3.113-6 [7290 B] 2110s Get:249 http://ftpmaster.internal/ubuntu noble/main s390x libatm1t64 s390x 1:2.5.1-5.1 [24.5 kB] 2110s Get:250 http://ftpmaster.internal/ubuntu noble/main s390x libc-dev-bin s390x 2.39-0ubuntu6 [20.2 kB] 2110s Get:251 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libfreetype6 s390x 2.13.2+dfsg-1build2 [437 kB] 2110s Get:252 http://ftpmaster.internal/ubuntu noble/main s390x libfontconfig1 s390x 2.15.0-1.1ubuntu1 [150 kB] 2110s Get:253 http://ftpmaster.internal/ubuntu noble/main s390x libjpeg-turbo8 s390x 2.1.5-2ubuntu1 [128 kB] 2110s Get:254 http://ftpmaster.internal/ubuntu noble/main s390x libjpeg8 s390x 8c-2ubuntu11 [2146 B] 2110s Get:255 http://ftpmaster.internal/ubuntu noble/main s390x libdeflate0 s390x 1.19-1 [46.0 kB] 2110s Get:256 http://ftpmaster.internal/ubuntu noble/main s390x libjbig0 s390x 2.1-6.1ubuntu1 [29.8 kB] 2110s Get:257 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libsharpyuv0 s390x 1.3.2-0.4build2 [14.9 kB] 2110s Get:258 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libwebp7 s390x 1.3.2-0.4build2 [207 kB] 2110s Get:259 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libtiff6 s390x 4.5.1+git230720-4ubuntu1 [218 kB] 2110s Get:260 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libxpm4 s390x 1:3.5.17-1build1 [41.4 kB] 2110s Get:261 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libgd3 s390x 2.3.3-9ubuntu3 [141 kB] 2110s Get:262 http://ftpmaster.internal/ubuntu noble/main s390x libc-devtools s390x 2.39-0ubuntu6 [30.6 kB] 2110s Get:263 http://ftpmaster.internal/ubuntu noble-proposed/main s390x linux-libc-dev s390x 6.8.0-20.20 [1592 kB] 2110s Get:264 http://ftpmaster.internal/ubuntu noble/main s390x libcrypt-dev s390x 1:4.4.36-4 [135 kB] 2110s Get:265 http://ftpmaster.internal/ubuntu noble/main s390x rpcsvc-proto s390x 1.4.2-0ubuntu6 [64.7 kB] 2110s Get:266 http://ftpmaster.internal/ubuntu noble/main s390x libc6-dev s390x 2.39-0ubuntu6 [1629 kB] 2110s Get:267 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libevent-core-2.1-7 s390x 2.1.12-stable-9build1 [94.3 kB] 2110s Get:268 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libldap-common all 2.6.7+dfsg-1~exp1ubuntu6 [31.3 kB] 2110s Get:269 http://ftpmaster.internal/ubuntu noble-proposed/main s390x linux-modules-6.8.0-20-generic s390x 6.8.0-20.20 [21.0 MB] 2111s Get:270 http://ftpmaster.internal/ubuntu noble-proposed/main s390x linux-image-6.8.0-20-generic s390x 6.8.0-20.20 [9872 kB] 2112s Get:271 http://ftpmaster.internal/ubuntu noble-proposed/main s390x linux-modules-extra-6.8.0-20-generic s390x 6.8.0-20.20 [11.7 MB] 2112s Get:272 http://ftpmaster.internal/ubuntu noble-proposed/main s390x linux-generic s390x 6.8.0-20.20+1 [1734 B] 2112s Get:273 http://ftpmaster.internal/ubuntu noble-proposed/main s390x linux-image-generic s390x 6.8.0-20.20+1 [9688 B] 2112s Get:274 http://ftpmaster.internal/ubuntu noble-proposed/main s390x linux-virtual s390x 6.8.0-20.20+1 [1682 B] 2112s Get:275 http://ftpmaster.internal/ubuntu noble-proposed/main s390x linux-image-virtual s390x 6.8.0-20.20+1 [9700 B] 2112s Get:276 http://ftpmaster.internal/ubuntu noble-proposed/main s390x linux-headers-virtual s390x 6.8.0-20.20+1 [1642 B] 2112s Get:277 http://ftpmaster.internal/ubuntu noble-proposed/main s390x linux-headers-6.8.0-20 all 6.8.0-20.20 [13.6 MB] 2113s Get:278 http://ftpmaster.internal/ubuntu noble-proposed/main s390x linux-headers-6.8.0-20-generic s390x 6.8.0-20.20 [2579 kB] 2113s Get:279 http://ftpmaster.internal/ubuntu noble-proposed/main s390x linux-headers-generic s390x 6.8.0-20.20+1 [9608 B] 2113s Get:280 http://ftpmaster.internal/ubuntu noble-proposed/main s390x linux-tools-common all 6.8.0-20.20 [437 kB] 2113s Get:281 http://ftpmaster.internal/ubuntu noble-proposed/main s390x linux-tools-6.8.0-20 s390x 6.8.0-20.20 [2674 kB] 2113s Get:282 http://ftpmaster.internal/ubuntu noble-proposed/main s390x linux-tools-6.8.0-20-generic s390x 6.8.0-20.20 [1724 B] 2113s Get:283 http://ftpmaster.internal/ubuntu noble/main s390x manpages-dev all 6.05.01-1 [2018 kB] 2113s Get:284 http://ftpmaster.internal/ubuntu noble-proposed/main s390x python3-distutils all 3.12.2-3ubuntu1.1 [133 kB] 2113s Get:285 http://ftpmaster.internal/ubuntu noble-proposed/main s390x python3-lib2to3 all 3.12.2-3ubuntu1.1 [79.1 kB] 2113s Get:286 http://ftpmaster.internal/ubuntu noble-proposed/main s390x python3-pyrsistent s390x 0.20.0-1build1 [55.8 kB] 2113s Get:287 http://ftpmaster.internal/ubuntu noble-proposed/main s390x s390-tools-data all 2.31.0-0ubuntu3 [17.8 kB] 2113s Get:288 http://ftpmaster.internal/ubuntu noble/main s390x ubuntu-kernel-accessories s390x 1.536build1 [10.5 kB] 2113s Get:289 http://ftpmaster.internal/ubuntu noble-proposed/main s390x kpartx s390x 0.9.4-5ubuntu6 [32.8 kB] 2115s Preconfiguring packages ... 2115s Fetched 219 MB in 12s (18.4 MB/s) 2115s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51775 files and directories currently installed.) 2115s Preparing to unpack .../motd-news-config_13ubuntu8_all.deb ... 2115s Unpacking motd-news-config (13ubuntu8) over (13ubuntu7) ... 2115s Preparing to unpack .../base-files_13ubuntu8_s390x.deb ... 2115s Unpacking base-files (13ubuntu8) over (13ubuntu7) ... 2115s Setting up base-files (13ubuntu8) ... 2116s motd-news.service is a disabled or a static unit not running, not starting it. 2116s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51775 files and directories currently installed.) 2116s Preparing to unpack .../bash_5.2.21-2ubuntu3_s390x.deb ... 2116s Unpacking bash (5.2.21-2ubuntu3) over (5.2.21-2ubuntu2) ... 2116s Setting up bash (5.2.21-2ubuntu3) ... 2116s update-alternatives: using /usr/share/man/man7/bash-builtins.7.gz to provide /usr/share/man/man7/builtins.7.gz (builtins.7.gz) in auto mode 2116s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51775 files and directories currently installed.) 2116s Preparing to unpack .../bsdutils_1%3a2.39.3-9ubuntu2_s390x.deb ... 2116s Unpacking bsdutils (1:2.39.3-9ubuntu2) over (1:2.39.3-6ubuntu2) ... 2116s Setting up bsdutils (1:2.39.3-9ubuntu2) ... 2116s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51775 files and directories currently installed.) 2116s Preparing to unpack .../openssl_3.0.13-0ubuntu2_s390x.deb ... 2116s Unpacking openssl (3.0.13-0ubuntu2) over (3.0.10-1ubuntu4) ... 2116s Preparing to unpack .../parted_3.6-3.1build2_s390x.deb ... 2116s Unpacking parted (3.6-3.1build2) over (3.6-3) ... 2116s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51775 files and directories currently installed.) 2116s Removing libparted2:s390x (3.6-3) ... 2116s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51769 files and directories currently installed.) 2116s Preparing to unpack .../libblkid1_2.39.3-9ubuntu2_s390x.deb ... 2116s Unpacking libblkid1:s390x (2.39.3-9ubuntu2) over (2.39.3-6ubuntu2) ... 2116s Setting up libblkid1:s390x (2.39.3-9ubuntu2) ... 2116s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51769 files and directories currently installed.) 2116s Preparing to unpack .../libuuid1_2.39.3-9ubuntu2_s390x.deb ... 2116s Unpacking libuuid1:s390x (2.39.3-9ubuntu2) over (2.39.3-6ubuntu2) ... 2116s Setting up libuuid1:s390x (2.39.3-9ubuntu2) ... 2116s Selecting previously unselected package libparted2t64:s390x. 2116s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51769 files and directories currently installed.) 2116s Preparing to unpack .../libparted2t64_3.6-3.1build2_s390x.deb ... 2116s Unpacking libparted2t64:s390x (3.6-3.1build2) ... 2116s Preparing to unpack .../python3.12_3.12.2-4build3_s390x.deb ... 2116s Unpacking python3.12 (3.12.2-4build3) over (3.12.2-1) ... 2116s Preparing to unpack .../zlib1g_1%3a1.3.dfsg-3.1ubuntu1_s390x.deb ... 2116s Unpacking zlib1g:s390x (1:1.3.dfsg-3.1ubuntu1) over (1:1.3.dfsg-3ubuntu1) ... 2116s Setting up zlib1g:s390x (1:1.3.dfsg-3.1ubuntu1) ... 2116s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51776 files and directories currently installed.) 2116s Preparing to unpack .../python3.12-minimal_3.12.2-4build3_s390x.deb ... 2116s Unpacking python3.12-minimal (3.12.2-4build3) over (3.12.2-1) ... 2117s Preparing to unpack .../libpython3.12-stdlib_3.12.2-4build3_s390x.deb ... 2117s Unpacking libpython3.12-stdlib:s390x (3.12.2-4build3) over (3.12.2-1) ... 2117s Preparing to unpack .../libpython3.12-minimal_3.12.2-4build3_s390x.deb ... 2117s Unpacking libpython3.12-minimal:s390x (3.12.2-4build3) over (3.12.2-1) ... 2117s Preparing to unpack .../libsasl2-modules-db_2.1.28+dfsg1-5ubuntu1_s390x.deb ... 2117s Unpacking libsasl2-modules-db:s390x (2.1.28+dfsg1-5ubuntu1) over (2.1.28+dfsg1-4) ... 2117s Preparing to unpack .../perl-modules-5.38_5.38.2-3.2_all.deb ... 2117s Unpacking perl-modules-5.38 (5.38.2-3.2) over (5.38.2-3) ... 2117s dpkg: libperl5.38:s390x: dependency problems, but removing anyway as you requested: 2117s perl depends on libperl5.38 (= 5.38.2-3). 2117s 2117s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51774 files and directories currently installed.) 2117s Removing libperl5.38:s390x (5.38.2-3) ... 2117s dpkg: libdb5.3:s390x: dependency problems, but removing anyway as you requested: 2117s libpam-modules:s390x depends on libdb5.3. 2117s iproute2 depends on libdb5.3. 2117s apt-utils depends on libdb5.3. 2117s 2117s Removing libdb5.3:s390x (5.3.28+dfsg2-4) ... 2117s Selecting previously unselected package libdb5.3t64:s390x. 2117s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51246 files and directories currently installed.) 2117s Preparing to unpack .../libdb5.3t64_5.3.28+dfsg2-6_s390x.deb ... 2117s Unpacking libdb5.3t64:s390x (5.3.28+dfsg2-6) ... 2118s Preparing to unpack .../python3-gdbm_3.12.2-3ubuntu1.1_s390x.deb ... 2118s Unpacking python3-gdbm:s390x (3.12.2-3ubuntu1.1) over (3.11.5-1) ... 2118s Preparing to unpack .../man-db_2.12.0-3build4_s390x.deb ... 2118s Unpacking man-db (2.12.0-3build4) over (2.12.0-3) ... 2118s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51252 files and directories currently installed.) 2118s Removing libgdbm-compat4:s390x (1.23-5) ... 2118s Removing libgdbm6:s390x (1.23-5) ... 2118s Selecting previously unselected package libgdbm6t64:s390x. 2118s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51242 files and directories currently installed.) 2118s Preparing to unpack .../libgdbm6t64_1.23-5.1_s390x.deb ... 2118s Unpacking libgdbm6t64:s390x (1.23-5.1) ... 2118s Selecting previously unselected package libgdbm-compat4t64:s390x. 2118s Preparing to unpack .../libgdbm-compat4t64_1.23-5.1_s390x.deb ... 2118s Unpacking libgdbm-compat4t64:s390x (1.23-5.1) ... 2118s Selecting previously unselected package libperl5.38t64:s390x. 2118s Preparing to unpack .../libperl5.38t64_5.38.2-3.2_s390x.deb ... 2118s Unpacking libperl5.38t64:s390x (5.38.2-3.2) ... 2118s Preparing to unpack .../perl_5.38.2-3.2_s390x.deb ... 2118s Unpacking perl (5.38.2-3.2) over (5.38.2-3) ... 2118s Preparing to unpack .../perl-base_5.38.2-3.2_s390x.deb ... 2118s Unpacking perl-base (5.38.2-3.2) over (5.38.2-3) ... 2118s Setting up perl-base (5.38.2-3.2) ... 2118s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51776 files and directories currently installed.) 2118s Preparing to unpack .../0-libldap2_2.6.7+dfsg-1~exp1ubuntu6_s390x.deb ... 2118s Unpacking libldap2:s390x (2.6.7+dfsg-1~exp1ubuntu6) over (2.6.7+dfsg-1~exp1ubuntu1) ... 2118s Preparing to unpack .../1-libudisks2-0_2.10.1-6_s390x.deb ... 2118s Unpacking libudisks2-0:s390x (2.10.1-6) over (2.10.1-1ubuntu2) ... 2118s Preparing to unpack .../2-udisks2_2.10.1-6_s390x.deb ... 2118s Unpacking udisks2 (2.10.1-6) over (2.10.1-1ubuntu2) ... 2119s Preparing to unpack .../3-shared-mime-info_2.4-1build1_s390x.deb ... 2119s Unpacking shared-mime-info (2.4-1build1) over (2.4-1) ... 2119s Preparing to unpack .../4-gir1.2-girepository-2.0_1.79.1-1ubuntu6_s390x.deb ... 2119s Unpacking gir1.2-girepository-2.0:s390x (1.79.1-1ubuntu6) over (1.79.1-1) ... 2119s Preparing to unpack .../5-gir1.2-glib-2.0_2.79.3-3ubuntu5_s390x.deb ... 2119s Unpacking gir1.2-glib-2.0:s390x (2.79.3-3ubuntu5) over (2.79.2-1~ubuntu1) ... 2119s Preparing to unpack .../6-libgirepository-1.0-1_1.79.1-1ubuntu6_s390x.deb ... 2119s Unpacking libgirepository-1.0-1:s390x (1.79.1-1ubuntu6) over (1.79.1-1) ... 2119s Preparing to unpack .../7-python3-gi_3.47.0-3build1_s390x.deb ... 2119s Unpacking python3-gi (3.47.0-3build1) over (3.47.0-3) ... 2119s Preparing to unpack .../8-python3-dbus_1.3.2-5build2_s390x.deb ... 2119s Unpacking python3-dbus (1.3.2-5build2) over (1.3.2-5build1) ... 2119s dpkg: libgpgme11:s390x: dependency problems, but removing anyway as you requested: 2119s libvolume-key1:s390x depends on libgpgme11 (>= 1.4.1). 2119s libjcat1:s390x depends on libgpgme11 (>= 1.2.0). 2119s 2119s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51773 files and directories currently installed.) 2119s Removing libgpgme11:s390x (1.18.0-4ubuntu1) ... 2119s Selecting previously unselected package libgpgme11t64:s390x. 2119s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51767 files and directories currently installed.) 2119s Preparing to unpack .../00-libgpgme11t64_1.18.0-4.1ubuntu3_s390x.deb ... 2119s Unpacking libgpgme11t64:s390x (1.18.0-4.1ubuntu3) ... 2119s Preparing to unpack .../01-libvolume-key1_0.3.12-7build1_s390x.deb ... 2119s Unpacking libvolume-key1:s390x (0.3.12-7build1) over (0.3.12-5build2) ... 2119s Selecting previously unselected package libnetplan1:s390x. 2119s Preparing to unpack .../02-libnetplan1_1.0-1_s390x.deb ... 2119s Unpacking libnetplan1:s390x (1.0-1) ... 2119s Preparing to unpack .../03-python3-netplan_1.0-1_s390x.deb ... 2119s Unpacking python3-netplan (1.0-1) over (0.107.1-3) ... 2119s Preparing to unpack .../04-netplan-generator_1.0-1_s390x.deb ... 2119s Adding 'diversion of /lib/systemd/system-generators/netplan to /lib/systemd/system-generators/netplan.usr-is-merged by netplan-generator' 2119s Unpacking netplan-generator (1.0-1) over (0.107.1-3) ... 2119s Preparing to unpack .../05-netplan.io_1.0-1_s390x.deb ... 2119s Unpacking netplan.io (1.0-1) over (0.107.1-3) ... 2119s Preparing to unpack .../06-libxmlb2_0.3.15-1build1_s390x.deb ... 2119s Unpacking libxmlb2:s390x (0.3.15-1build1) over (0.3.15-1) ... 2119s Preparing to unpack .../07-libqrtr-glib0_1.2.2-1ubuntu3_s390x.deb ... 2119s Unpacking libqrtr-glib0:s390x (1.2.2-1ubuntu3) over (1.2.2-1ubuntu2) ... 2119s Preparing to unpack .../08-libqmi-glib5_1.35.2-0ubuntu1_s390x.deb ... 2119s Unpacking libqmi-glib5:s390x (1.35.2-0ubuntu1) over (1.34.0-2) ... 2119s Preparing to unpack .../09-libqmi-proxy_1.35.2-0ubuntu1_s390x.deb ... 2119s Unpacking libqmi-proxy (1.35.2-0ubuntu1) over (1.34.0-2) ... 2119s Preparing to unpack .../10-libpolkit-agent-1-0_124-1ubuntu1_s390x.deb ... 2119s Unpacking libpolkit-agent-1-0:s390x (124-1ubuntu1) over (124-1) ... 2119s Preparing to unpack .../11-libpolkit-gobject-1-0_124-1ubuntu1_s390x.deb ... 2119s Unpacking libpolkit-gobject-1-0:s390x (124-1ubuntu1) over (124-1) ... 2119s Preparing to unpack .../12-libmm-glib0_1.23.4-0ubuntu1_s390x.deb ... 2119s Unpacking libmm-glib0:s390x (1.23.4-0ubuntu1) over (1.22.0-3) ... 2119s Preparing to unpack .../13-libmbim-glib4_1.31.2-0ubuntu2_s390x.deb ... 2119s Unpacking libmbim-glib4:s390x (1.31.2-0ubuntu2) over (1.30.0-1) ... 2119s Preparing to unpack .../14-libmbim-proxy_1.31.2-0ubuntu2_s390x.deb ... 2120s Unpacking libmbim-proxy (1.31.2-0ubuntu2) over (1.30.0-1) ... 2120s Preparing to unpack .../15-libjson-glib-1.0-common_1.8.0-2build1_all.deb ... 2120s Unpacking libjson-glib-1.0-common (1.8.0-2build1) over (1.8.0-2) ... 2120s Preparing to unpack .../16-libjson-glib-1.0-0_1.8.0-2build1_s390x.deb ... 2120s Unpacking libjson-glib-1.0-0:s390x (1.8.0-2build1) over (1.8.0-2) ... 2120s Preparing to unpack .../17-libgusb2_0.4.8-1build1_s390x.deb ... 2120s Unpacking libgusb2:s390x (0.4.8-1build1) over (0.4.8-1) ... 2120s Preparing to unpack .../18-libgudev-1.0-0_1%3a238-3ubuntu2_s390x.deb ... 2120s Unpacking libgudev-1.0-0:s390x (1:238-3ubuntu2) over (1:238-3) ... 2120s Preparing to unpack .../19-gnupg-utils_2.4.4-2ubuntu15_s390x.deb ... 2120s Unpacking gnupg-utils (2.4.4-2ubuntu15) over (2.4.4-2ubuntu7) ... 2120s Preparing to unpack .../20-gpg-agent_2.4.4-2ubuntu15_s390x.deb ... 2120s Unpacking gpg-agent (2.4.4-2ubuntu15) over (2.4.4-2ubuntu7) ... 2120s Preparing to unpack .../21-gpg-wks-client_2.4.4-2ubuntu15_s390x.deb ... 2120s Unpacking gpg-wks-client (2.4.4-2ubuntu15) over (2.4.4-2ubuntu7) ... 2120s Preparing to unpack .../22-gpg_2.4.4-2ubuntu15_s390x.deb ... 2120s Unpacking gpg (2.4.4-2ubuntu15) over (2.4.4-2ubuntu7) ... 2120s dpkg: libnpth0:s390x: dependency problems, but removing anyway as you requested: 2120s keyboxd depends on libnpth0 (>= 0.90). 2120s gpgv depends on libnpth0 (>= 0.90). 2120s gpgsm depends on libnpth0 (>= 0.90). 2120s dirmngr depends on libnpth0 (>= 0.90). 2120s 2120s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51780 files and directories currently installed.) 2120s Removing libnpth0:s390x (1.6-3build2) ... 2120s Selecting previously unselected package libnpth0t64:s390x. 2120s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51775 files and directories currently installed.) 2120s Preparing to unpack .../libnpth0t64_1.6-3.1_s390x.deb ... 2120s Unpacking libnpth0t64:s390x (1.6-3.1) ... 2120s Setting up libnpth0t64:s390x (1.6-3.1) ... 2120s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51781 files and directories currently installed.) 2120s Preparing to unpack .../gpgv_2.4.4-2ubuntu15_s390x.deb ... 2120s Unpacking gpgv (2.4.4-2ubuntu15) over (2.4.4-2ubuntu7) ... 2120s Setting up gpgv (2.4.4-2ubuntu15) ... 2120s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51781 files and directories currently installed.) 2120s Preparing to unpack .../dirmngr_2.4.4-2ubuntu15_s390x.deb ... 2120s Unpacking dirmngr (2.4.4-2ubuntu15) over (2.4.4-2ubuntu7) ... 2120s Preparing to unpack .../gnupg_2.4.4-2ubuntu15_all.deb ... 2120s Unpacking gnupg (2.4.4-2ubuntu15) over (2.4.4-2ubuntu7) ... 2120s Preparing to unpack .../keyboxd_2.4.4-2ubuntu15_s390x.deb ... 2120s Unpacking keyboxd (2.4.4-2ubuntu15) over (2.4.4-2ubuntu7) ... 2120s Preparing to unpack .../gpgconf_2.4.4-2ubuntu15_s390x.deb ... 2120s Unpacking gpgconf (2.4.4-2ubuntu15) over (2.4.4-2ubuntu7) ... 2120s Preparing to unpack .../gpgsm_2.4.4-2ubuntu15_s390x.deb ... 2120s Unpacking gpgsm (2.4.4-2ubuntu15) over (2.4.4-2ubuntu7) ... 2120s dpkg: libreadline8:s390x: dependency problems, but removing anyway as you requested: 2120s wpasupplicant depends on libreadline8 (>= 6.0). 2120s gawk depends on libreadline8 (>= 6.0). 2120s fdisk depends on libreadline8 (>= 6.0). 2120s 2120s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51781 files and directories currently installed.) 2120s Removing libreadline8:s390x (8.2-3) ... 2120s Selecting previously unselected package libreadline8t64:s390x. 2120s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51769 files and directories currently installed.) 2120s Preparing to unpack .../libreadline8t64_8.2-4_s390x.deb ... 2120s Adding 'diversion of /lib/s390x-linux-gnu/libhistory.so.8 to /lib/s390x-linux-gnu/libhistory.so.8.usr-is-merged by libreadline8t64' 2120s Adding 'diversion of /lib/s390x-linux-gnu/libhistory.so.8.2 to /lib/s390x-linux-gnu/libhistory.so.8.2.usr-is-merged by libreadline8t64' 2120s Adding 'diversion of /lib/s390x-linux-gnu/libreadline.so.8 to /lib/s390x-linux-gnu/libreadline.so.8.usr-is-merged by libreadline8t64' 2120s Adding 'diversion of /lib/s390x-linux-gnu/libreadline.so.8.2 to /lib/s390x-linux-gnu/libreadline.so.8.2.usr-is-merged by libreadline8t64' 2120s Unpacking libreadline8t64:s390x (8.2-4) ... 2120s Setting up libreadline8t64:s390x (8.2-4) ... 2120s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51789 files and directories currently installed.) 2120s Preparing to unpack .../0-gawk_1%3a5.2.1-2build2_s390x.deb ... 2120s Unpacking gawk (1:5.2.1-2build2) over (1:5.2.1-2) ... 2120s Preparing to unpack .../1-fdisk_2.39.3-9ubuntu2_s390x.deb ... 2120s Unpacking fdisk (2.39.3-9ubuntu2) over (2.39.3-6ubuntu2) ... 2120s Preparing to unpack .../2-wpasupplicant_2%3a2.10-21build2_s390x.deb ... 2120s Unpacking wpasupplicant (2:2.10-21build2) over (2:2.10-21) ... 2120s Preparing to unpack .../3-tnftp_20230507-2build1_s390x.deb ... 2120s Unpacking tnftp (20230507-2build1) over (20230507-2) ... 2121s Preparing to unpack .../4-tcpdump_4.99.4-3ubuntu2_s390x.deb ... 2121s Unpacking tcpdump (4.99.4-3ubuntu2) over (4.99.4-3ubuntu1) ... 2121s Preparing to unpack .../5-libsystemd0_255.4-1ubuntu5_s390x.deb ... 2121s Unpacking libsystemd0:s390x (255.4-1ubuntu5) over (255.2-3ubuntu2) ... 2121s Setting up libsystemd0:s390x (255.4-1ubuntu5) ... 2121s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51789 files and directories currently installed.) 2121s Preparing to unpack .../systemd-dev_255.4-1ubuntu5_all.deb ... 2121s Unpacking systemd-dev (255.4-1ubuntu5) over (255.2-3ubuntu2) ... 2121s Preparing to unpack .../libudev1_255.4-1ubuntu5_s390x.deb ... 2121s Unpacking libudev1:s390x (255.4-1ubuntu5) over (255.2-3ubuntu2) ... 2121s Setting up libudev1:s390x (255.4-1ubuntu5) ... 2121s dpkg: libssl3:s390x: dependency problems, but removing anyway as you requested: 2121s wget depends on libssl3 (>= 3.0.0). 2121s systemd-resolved depends on libssl3 (>= 3.0.0). 2121s systemd depends on libssl3 (>= 3.0.0). 2121s sudo depends on libssl3 (>= 3.0.0). 2121s s390-tools depends on libssl3 (>= 3.0.0). 2121s rsync depends on libssl3 (>= 3.0.0). 2121s python3-cryptography depends on libssl3 (>= 3.0.0). 2121s openssh-server depends on libssl3 (>= 3.0.10). 2121s openssh-client depends on libssl3 (>= 3.0.10). 2121s linux-headers-6.8.0-11-generic depends on libssl3 (>= 3.0.0). 2121s libtss2-esys-3.0.2-0:s390x depends on libssl3 (>= 3.0.0). 2121s libsystemd-shared:s390x depends on libssl3 (>= 3.0.0). 2121s libssh-4:s390x depends on libssl3 (>= 3.0.0). 2121s libsasl2-modules:s390x depends on libssl3 (>= 3.0.0). 2121s libsasl2-2:s390x depends on libssl3 (>= 3.0.0). 2121s libnvme1 depends on libssl3 (>= 3.0.0). 2121s libkrb5-3:s390x depends on libssl3 (>= 3.0.0). 2121s libkmod2:s390x depends on libssl3 (>= 3.0.0). 2121s libfido2-1:s390x depends on libssl3 (>= 3.0.0). 2121s libcurl4:s390x depends on libssl3 (>= 3.0.0). 2121s libcryptsetup12:s390x depends on libssl3 (>= 3.0.0). 2121s kmod depends on libssl3 (>= 3.0.0). 2121s dhcpcd-base depends on libssl3 (>= 3.0.0). 2121s bind9-libs:s390x depends on libssl3 (>= 3.0.0). 2121s 2121s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51789 files and directories currently installed.) 2121s Removing libssl3:s390x (3.0.10-1ubuntu4) ... 2121s Selecting previously unselected package libssl3t64:s390x. 2121s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51778 files and directories currently installed.) 2121s Preparing to unpack .../libssl3t64_3.0.13-0ubuntu2_s390x.deb ... 2121s Unpacking libssl3t64:s390x (3.0.13-0ubuntu2) ... 2121s Setting up libssl3t64:s390x (3.0.13-0ubuntu2) ... 2121s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51791 files and directories currently installed.) 2121s Preparing to unpack .../systemd_255.4-1ubuntu5_s390x.deb ... 2121s Unpacking systemd (255.4-1ubuntu5) over (255.2-3ubuntu2) ... 2121s Preparing to unpack .../udev_255.4-1ubuntu5_s390x.deb ... 2121s Unpacking udev (255.4-1ubuntu5) over (255.2-3ubuntu2) ... 2121s Preparing to unpack .../libsystemd-shared_255.4-1ubuntu5_s390x.deb ... 2121s Unpacking libsystemd-shared:s390x (255.4-1ubuntu5) over (255.2-3ubuntu2) ... 2121s Setting up libsystemd-shared:s390x (255.4-1ubuntu5) ... 2121s Setting up systemd-dev (255.4-1ubuntu5) ... 2121s Setting up systemd (255.4-1ubuntu5) ... 2122s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51791 files and directories currently installed.) 2122s Preparing to unpack .../00-systemd-sysv_255.4-1ubuntu5_s390x.deb ... 2122s Unpacking systemd-sysv (255.4-1ubuntu5) over (255.2-3ubuntu2) ... 2122s Preparing to unpack .../01-libnss-systemd_255.4-1ubuntu5_s390x.deb ... 2122s Unpacking libnss-systemd:s390x (255.4-1ubuntu5) over (255.2-3ubuntu2) ... 2122s Preparing to unpack .../02-libpam-systemd_255.4-1ubuntu5_s390x.deb ... 2122s Unpacking libpam-systemd:s390x (255.4-1ubuntu5) over (255.2-3ubuntu2) ... 2122s Preparing to unpack .../03-systemd-timesyncd_255.4-1ubuntu5_s390x.deb ... 2122s Unpacking systemd-timesyncd (255.4-1ubuntu5) over (255.2-3ubuntu2) ... 2122s Preparing to unpack .../04-systemd-resolved_255.4-1ubuntu5_s390x.deb ... 2122s Unpacking systemd-resolved (255.4-1ubuntu5) over (255.2-3ubuntu2) ... 2122s Preparing to unpack .../05-sudo_1.9.15p5-3ubuntu3_s390x.deb ... 2122s Unpacking sudo (1.9.15p5-3ubuntu3) over (1.9.15p5-3ubuntu1) ... 2122s Preparing to unpack .../06-rsync_3.2.7-1build1_s390x.deb ... 2122s Unpacking rsync (3.2.7-1build1) over (3.2.7-1) ... 2122s Preparing to unpack .../07-python3-cryptography_41.0.7-4build2_s390x.deb ... 2122s Unpacking python3-cryptography (41.0.7-4build2) over (41.0.7-3) ... 2123s Preparing to unpack .../08-openssh-sftp-server_1%3a9.6p1-3ubuntu11_s390x.deb ... 2123s Unpacking openssh-sftp-server (1:9.6p1-3ubuntu11) over (1:9.6p1-3ubuntu2) ... 2123s Preparing to unpack .../09-openssh-client_1%3a9.6p1-3ubuntu11_s390x.deb ... 2123s Unpacking openssh-client (1:9.6p1-3ubuntu11) over (1:9.6p1-3ubuntu2) ... 2123s Preparing to unpack .../10-openssh-server_1%3a9.6p1-3ubuntu11_s390x.deb ... 2123s Unpacking openssh-server (1:9.6p1-3ubuntu11) over (1:9.6p1-3ubuntu2) ... 2123s Preparing to unpack .../11-libssh-4_0.10.6-2build1_s390x.deb ... 2123s Unpacking libssh-4:s390x (0.10.6-2build1) over (0.10.6-2) ... 2123s Preparing to unpack .../12-libsasl2-modules_2.1.28+dfsg1-5ubuntu1_s390x.deb ... 2123s Unpacking libsasl2-modules:s390x (2.1.28+dfsg1-5ubuntu1) over (2.1.28+dfsg1-4) ... 2123s Preparing to unpack .../13-libsasl2-2_2.1.28+dfsg1-5ubuntu1_s390x.deb ... 2123s Unpacking libsasl2-2:s390x (2.1.28+dfsg1-5ubuntu1) over (2.1.28+dfsg1-4) ... 2123s dpkg: libnvme1: dependency problems, but removing anyway as you requested: 2123s libblockdev-nvme3:s390x depends on libnvme1 (>= 1.7.1). 2123s 2123s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51791 files and directories currently installed.) 2123s Removing libnvme1 (1.8-2) ... 2123s Selecting previously unselected package libnvme1t64. 2123s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51784 files and directories currently installed.) 2123s Preparing to unpack .../libnvme1t64_1.8-3_s390x.deb ... 2123s Unpacking libnvme1t64 (1.8-3) ... 2123s Preparing to unpack .../wget_1.21.4-1ubuntu2_s390x.deb ... 2123s Unpacking wget (1.21.4-1ubuntu2) over (1.21.4-1ubuntu1) ... 2123s dpkg: libarchive13:s390x: dependency problems, but removing anyway as you requested: 2123s fwupd depends on libarchive13 (>= 3.2.1). 2123s 2123s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51792 files and directories currently installed.) 2123s Removing libarchive13:s390x (3.7.2-1ubuntu2) ... 2123s Selecting previously unselected package libarchive13t64:s390x. 2123s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51786 files and directories currently installed.) 2123s Preparing to unpack .../libarchive13t64_3.7.2-1.1ubuntu2_s390x.deb ... 2123s Unpacking libarchive13t64:s390x (3.7.2-1.1ubuntu2) ... 2123s Preparing to unpack .../fwupd_1.9.15-2_s390x.deb ... 2123s Unpacking fwupd (1.9.15-2) over (1.9.14-1) ... 2123s dpkg: libcurl3-gnutls:s390x: dependency problems, but removing anyway as you requested: 2123s libfwupd2:s390x depends on libcurl3-gnutls (>= 7.63.0). 2123s 2123s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51793 files and directories currently installed.) 2123s Removing libcurl3-gnutls:s390x (8.5.0-2ubuntu2) ... 2123s dpkg: libpsl5:s390x: dependency problems, but removing anyway as you requested: 2123s libcurl4:s390x depends on libpsl5 (>= 0.16.0). 2123s 2123s Removing libpsl5:s390x (0.21.2-1build1) ... 2123s Selecting previously unselected package libpsl5t64:s390x. 2123s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51781 files and directories currently installed.) 2123s Preparing to unpack .../00-libpsl5t64_0.21.2-1.1_s390x.deb ... 2123s Unpacking libpsl5t64:s390x (0.21.2-1.1) ... 2123s Selecting previously unselected package libcurl3t64-gnutls:s390x. 2123s Preparing to unpack .../01-libcurl3t64-gnutls_8.5.0-2ubuntu8_s390x.deb ... 2123s Unpacking libcurl3t64-gnutls:s390x (8.5.0-2ubuntu8) ... 2123s Preparing to unpack .../02-libfwupd2_1.9.15-2_s390x.deb ... 2123s Unpacking libfwupd2:s390x (1.9.15-2) over (1.9.14-1) ... 2124s Preparing to unpack .../03-libblockdev-crypto3_3.1.0-1build1_s390x.deb ... 2124s Unpacking libblockdev-crypto3:s390x (3.1.0-1build1) over (3.1.0-1) ... 2124s Preparing to unpack .../04-libblockdev3_3.1.0-1build1_s390x.deb ... 2124s Unpacking libblockdev3:s390x (3.1.0-1build1) over (3.1.0-1) ... 2124s Preparing to unpack .../05-libblockdev-utils3_3.1.0-1build1_s390x.deb ... 2124s Unpacking libblockdev-utils3:s390x (3.1.0-1build1) over (3.1.0-1) ... 2124s Preparing to unpack .../06-libblockdev-swap3_3.1.0-1build1_s390x.deb ... 2124s Unpacking libblockdev-swap3:s390x (3.1.0-1build1) over (3.1.0-1) ... 2124s Preparing to unpack .../07-libblockdev-part3_3.1.0-1build1_s390x.deb ... 2124s Unpacking libblockdev-part3:s390x (3.1.0-1build1) over (3.1.0-1) ... 2124s Preparing to unpack .../08-libblockdev-nvme3_3.1.0-1build1_s390x.deb ... 2124s Unpacking libblockdev-nvme3:s390x (3.1.0-1build1) over (3.1.0-1) ... 2124s Preparing to unpack .../09-libblockdev-mdraid3_3.1.0-1build1_s390x.deb ... 2124s Unpacking libblockdev-mdraid3:s390x (3.1.0-1build1) over (3.1.0-1) ... 2124s Preparing to unpack .../10-libblockdev-loop3_3.1.0-1build1_s390x.deb ... 2124s Unpacking libblockdev-loop3:s390x (3.1.0-1build1) over (3.1.0-1) ... 2124s Preparing to unpack .../11-logsave_1.47.0-2.4~exp1ubuntu2_s390x.deb ... 2124s Unpacking logsave (1.47.0-2.4~exp1ubuntu2) over (1.47.0-2ubuntu1) ... 2124s dpkg: libext2fs2:s390x: dependency problems, but removing anyway as you requested: 2124s libblockdev-fs3:s390x depends on libext2fs2 (>= 1.42.11). 2124s e2fsprogs depends on libext2fs2 (= 1.47.0-2ubuntu1). 2124s btrfs-progs depends on libext2fs2 (>= 1.42). 2124s 2124s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51794 files and directories currently installed.) 2124s Removing libext2fs2:s390x (1.47.0-2ubuntu1) ... 2124s Selecting previously unselected package libext2fs2t64:s390x. 2124s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51787 files and directories currently installed.) 2124s Preparing to unpack .../libext2fs2t64_1.47.0-2.4~exp1ubuntu2_s390x.deb ... 2124s Adding 'diversion of /lib/s390x-linux-gnu/libe2p.so.2 to /lib/s390x-linux-gnu/libe2p.so.2.usr-is-merged by libext2fs2t64' 2124s Adding 'diversion of /lib/s390x-linux-gnu/libe2p.so.2.3 to /lib/s390x-linux-gnu/libe2p.so.2.3.usr-is-merged by libext2fs2t64' 2124s Adding 'diversion of /lib/s390x-linux-gnu/libext2fs.so.2 to /lib/s390x-linux-gnu/libext2fs.so.2.usr-is-merged by libext2fs2t64' 2124s Adding 'diversion of /lib/s390x-linux-gnu/libext2fs.so.2.4 to /lib/s390x-linux-gnu/libext2fs.so.2.4.usr-is-merged by libext2fs2t64' 2124s Unpacking libext2fs2t64:s390x (1.47.0-2.4~exp1ubuntu2) ... 2124s Setting up libext2fs2t64:s390x (1.47.0-2.4~exp1ubuntu2) ... 2124s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51803 files and directories currently installed.) 2124s Preparing to unpack .../e2fsprogs_1.47.0-2.4~exp1ubuntu2_s390x.deb ... 2124s Unpacking e2fsprogs (1.47.0-2.4~exp1ubuntu2) over (1.47.0-2ubuntu1) ... 2124s dpkg: libreiserfscore0: dependency problems, but removing anyway as you requested: 2124s btrfs-progs depends on libreiserfscore0 (>= 1:3.6.27). 2124s 2124s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51803 files and directories currently installed.) 2124s Removing libreiserfscore0 (1:3.6.27-7) ... 2124s Selecting previously unselected package libreiserfscore0t64. 2124s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51798 files and directories currently installed.) 2124s Preparing to unpack .../libreiserfscore0t64_1%3a3.6.27-7.1_s390x.deb ... 2124s Unpacking libreiserfscore0t64 (1:3.6.27-7.1) ... 2124s Preparing to unpack .../btrfs-progs_6.6.3-1.1build1_s390x.deb ... 2124s Unpacking btrfs-progs (6.6.3-1.1build1) over (6.6.3-1.1) ... 2124s Preparing to unpack .../libblockdev-fs3_3.1.0-1build1_s390x.deb ... 2124s Unpacking libblockdev-fs3:s390x (3.1.0-1build1) over (3.1.0-1) ... 2124s Preparing to unpack .../bolt_0.9.6-2build1_s390x.deb ... 2124s Unpacking bolt (0.9.6-2build1) over (0.9.6-2) ... 2124s dpkg: libglib2.0-0:s390x: dependency problems, but removing anyway as you requested: 2124s s390-tools depends on libglib2.0-0 (>= 2.77.0). 2124s libnetplan0:s390x depends on libglib2.0-0 (>= 2.75.3). 2124s libjcat1:s390x depends on libglib2.0-0 (>= 2.75.3). 2124s 2124s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51804 files and directories currently installed.) 2124s Removing libglib2.0-0:s390x (2.79.2-1~ubuntu1) ... 2124s Selecting previously unselected package libglib2.0-0t64:s390x. 2124s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51779 files and directories currently installed.) 2124s Preparing to unpack .../0-libglib2.0-0t64_2.79.3-3ubuntu5_s390x.deb ... 2124s libglib2.0-0t64.preinst: Removing /var/lib/dpkg/info/libglib2.0-0:s390x.postrm to avoid loss of /usr/share/glib-2.0/schemas/gschemas.compiled... 2124s removed '/var/lib/dpkg/info/libglib2.0-0:s390x.postrm' 2124s Unpacking libglib2.0-0t64:s390x (2.79.3-3ubuntu5) ... 2124s Preparing to unpack .../1-libjcat1_0.2.0-2build2_s390x.deb ... 2124s Unpacking libjcat1:s390x (0.2.0-2build2) over (0.2.0-2) ... 2124s Preparing to unpack .../2-ubuntu-pro-client-l10n_31.2.2_s390x.deb ... 2124s Unpacking ubuntu-pro-client-l10n (31.2.2) over (31.1) ... 2124s Preparing to unpack .../3-ubuntu-pro-client_31.2.2_s390x.deb ... 2125s Unpacking ubuntu-pro-client (31.2.2) over (31.1) ... 2125s Preparing to unpack .../4-python3-apt_2.7.7_s390x.deb ... 2125s Unpacking python3-apt (2.7.7) over (2.7.6) ... 2125s Preparing to unpack .../5-apt-utils_2.7.14_s390x.deb ... 2125s Unpacking apt-utils (2.7.14) over (2.7.12) ... 2125s dpkg: libapt-pkg6.0:s390x: dependency problems, but removing anyway as you requested: 2125s apt depends on libapt-pkg6.0 (>= 2.7.12). 2125s 2125s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51802 files and directories currently installed.) 2125s Removing libapt-pkg6.0:s390x (2.7.12) ... 2125s dpkg: libnettle8:s390x: dependency problems, but removing anyway as you requested: 2125s librtmp1:s390x depends on libnettle8. 2125s libhogweed6:s390x depends on libnettle8. 2125s libgnutls30:s390x depends on libnettle8 (>= 3.9~). 2125s 2125s Removing libnettle8:s390x (3.9.1-2) ... 2125s Selecting previously unselected package libapt-pkg6.0t64:s390x. 2125s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51746 files and directories currently installed.) 2125s Preparing to unpack .../libapt-pkg6.0t64_2.7.14_s390x.deb ... 2125s Unpacking libapt-pkg6.0t64:s390x (2.7.14) ... 2125s Setting up libapt-pkg6.0t64:s390x (2.7.14) ... 2125s Selecting previously unselected package libnettle8t64:s390x. 2125s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51796 files and directories currently installed.) 2125s Preparing to unpack .../libnettle8t64_3.9.1-2.2_s390x.deb ... 2125s Unpacking libnettle8t64:s390x (3.9.1-2.2) ... 2125s Setting up libnettle8t64:s390x (3.9.1-2.2) ... 2125s dpkg: libhogweed6:s390x: dependency problems, but removing anyway as you requested: 2125s librtmp1:s390x depends on libhogweed6. 2125s libgnutls30:s390x depends on libhogweed6 (>= 3.6). 2125s 2125s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51804 files and directories currently installed.) 2125s Removing libhogweed6:s390x (3.9.1-2) ... 2125s Selecting previously unselected package libhogweed6t64:s390x. 2125s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51799 files and directories currently installed.) 2125s Preparing to unpack .../libhogweed6t64_3.9.1-2.2_s390x.deb ... 2125s Unpacking libhogweed6t64:s390x (3.9.1-2.2) ... 2125s Setting up libhogweed6t64:s390x (3.9.1-2.2) ... 2125s dpkg: libgnutls30:s390x: dependency problems, but removing anyway as you requested: 2125s librtmp1:s390x depends on libgnutls30 (>= 3.7.2). 2125s apt depends on libgnutls30 (>= 3.8.1). 2125s 2125s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51805 files and directories currently installed.) 2125s Removing libgnutls30:s390x (3.8.3-1ubuntu1) ... 2125s Selecting previously unselected package libgnutls30t64:s390x. 2125s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51796 files and directories currently installed.) 2125s Preparing to unpack .../libgnutls30t64_3.8.3-1.1ubuntu2_s390x.deb ... 2125s Unpacking libgnutls30t64:s390x (3.8.3-1.1ubuntu2) ... 2125s Setting up libgnutls30t64:s390x (3.8.3-1.1ubuntu2) ... 2125s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51824 files and directories currently installed.) 2125s Preparing to unpack .../archives/apt_2.7.14_s390x.deb ... 2125s Unpacking apt (2.7.14) over (2.7.12) ... 2125s Setting up apt (2.7.14) ... 2126s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51824 files and directories currently installed.) 2126s Preparing to unpack .../0-librtmp1_2.4+20151223.gitfa8646d.1-2build6_s390x.deb ... 2126s Unpacking librtmp1:s390x (2.4+20151223.gitfa8646d.1-2build6) over (2.4+20151223.gitfa8646d.1-2build4) ... 2126s Preparing to unpack .../1-curl_8.5.0-2ubuntu8_s390x.deb ... 2126s Unpacking curl (8.5.0-2ubuntu8) over (8.5.0-2ubuntu2) ... 2126s Preparing to unpack .../2-libbrotli1_1.1.0-2build1_s390x.deb ... 2126s Unpacking libbrotli1:s390x (1.1.0-2build1) over (1.1.0-2) ... 2126s Preparing to unpack .../3-libgssapi-krb5-2_1.20.1-6ubuntu1_s390x.deb ... 2126s Unpacking libgssapi-krb5-2:s390x (1.20.1-6ubuntu1) over (1.20.1-5build1) ... 2126s Preparing to unpack .../4-libkrb5-3_1.20.1-6ubuntu1_s390x.deb ... 2126s Unpacking libkrb5-3:s390x (1.20.1-6ubuntu1) over (1.20.1-5build1) ... 2126s Preparing to unpack .../5-libkrb5support0_1.20.1-6ubuntu1_s390x.deb ... 2126s Unpacking libkrb5support0:s390x (1.20.1-6ubuntu1) over (1.20.1-5build1) ... 2126s Preparing to unpack .../6-libk5crypto3_1.20.1-6ubuntu1_s390x.deb ... 2126s Unpacking libk5crypto3:s390x (1.20.1-6ubuntu1) over (1.20.1-5build1) ... 2126s Preparing to unpack .../7-libcom-err2_1.47.0-2.4~exp1ubuntu2_s390x.deb ... 2126s Unpacking libcom-err2:s390x (1.47.0-2.4~exp1ubuntu2) over (1.47.0-2ubuntu1) ... 2126s Preparing to unpack .../8-libnghttp2-14_1.59.0-1build1_s390x.deb ... 2126s Unpacking libnghttp2-14:s390x (1.59.0-1build1) over (1.59.0-1) ... 2126s dpkg: libcurl4:s390x: dependency problems, but removing anyway as you requested: 2126s s390-tools depends on libcurl4 (>= 7.16.2). 2126s 2126s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51824 files and directories currently installed.) 2126s Removing libcurl4:s390x (8.5.0-2ubuntu2) ... 2126s Selecting previously unselected package libcurl4t64:s390x. 2126s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51819 files and directories currently installed.) 2126s Preparing to unpack .../libcurl4t64_8.5.0-2ubuntu8_s390x.deb ... 2126s Unpacking libcurl4t64:s390x (8.5.0-2ubuntu8) ... 2126s Preparing to unpack .../liblzma5_5.6.0-0.2_s390x.deb ... 2126s Unpacking liblzma5:s390x (5.6.0-0.2) over (5.4.5-0.3) ... 2126s Setting up liblzma5:s390x (5.6.0-0.2) ... 2126s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51825 files and directories currently installed.) 2126s Preparing to unpack .../dbus-session-bus-common_1.14.10-4ubuntu2_all.deb ... 2126s Unpacking dbus-session-bus-common (1.14.10-4ubuntu2) over (1.14.10-4ubuntu1) ... 2126s Preparing to unpack .../libaudit-common_1%3a3.1.2-2.1_all.deb ... 2126s Unpacking libaudit-common (1:3.1.2-2.1) over (1:3.1.2-2) ... 2126s Setting up libaudit-common (1:3.1.2-2.1) ... 2127s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51825 files and directories currently installed.) 2127s Preparing to unpack .../libcap-ng0_0.8.4-2build1_s390x.deb ... 2127s Unpacking libcap-ng0:s390x (0.8.4-2build1) over (0.8.4-2) ... 2127s Setting up libcap-ng0:s390x (0.8.4-2build1) ... 2127s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51825 files and directories currently installed.) 2127s Preparing to unpack .../libaudit1_1%3a3.1.2-2.1_s390x.deb ... 2127s Unpacking libaudit1:s390x (1:3.1.2-2.1) over (1:3.1.2-2) ... 2127s Setting up libaudit1:s390x (1:3.1.2-2.1) ... 2127s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51825 files and directories currently installed.) 2127s Preparing to unpack .../libpam0g_1.5.3-5ubuntu3_s390x.deb ... 2127s Unpacking libpam0g:s390x (1.5.3-5ubuntu3) over (1.5.2-9.1ubuntu3) ... 2127s Setting up libpam0g:s390x (1.5.3-5ubuntu3) ... 2127s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51825 files and directories currently installed.) 2127s Preparing to unpack .../libselinux1_3.5-2ubuntu1_s390x.deb ... 2127s Unpacking libselinux1:s390x (3.5-2ubuntu1) over (3.5-2build1) ... 2127s Setting up libselinux1:s390x (3.5-2ubuntu1) ... 2127s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51825 files and directories currently installed.) 2127s Preparing to unpack .../libpam-modules-bin_1.5.3-5ubuntu3_s390x.deb ... 2127s Unpacking libpam-modules-bin (1.5.3-5ubuntu3) over (1.5.2-9.1ubuntu3) ... 2127s Setting up libpam-modules-bin (1.5.3-5ubuntu3) ... 2127s pam_namespace.service is a disabled or a static unit not running, not starting it. 2127s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51825 files and directories currently installed.) 2127s Preparing to unpack .../libpam-modules_1.5.3-5ubuntu3_s390x.deb ... 2127s Unpacking libpam-modules:s390x (1.5.3-5ubuntu3) over (1.5.2-9.1ubuntu3) ... 2128s Setting up libpam-modules:s390x (1.5.3-5ubuntu3) ... 2128s Installing new version of config file /etc/security/namespace.init ... 2128s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51823 files and directories currently installed.) 2128s Preparing to unpack .../libpam-runtime_1.5.3-5ubuntu3_all.deb ... 2128s Unpacking libpam-runtime (1.5.3-5ubuntu3) over (1.5.2-9.1ubuntu3) ... 2128s Setting up libpam-runtime (1.5.3-5ubuntu3) ... 2128s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51823 files and directories currently installed.) 2128s Preparing to unpack .../0-dbus-user-session_1.14.10-4ubuntu2_s390x.deb ... 2128s Unpacking dbus-user-session (1.14.10-4ubuntu2) over (1.14.10-4ubuntu1) ... 2128s Preparing to unpack .../1-libapparmor1_4.0.0-beta3-0ubuntu2_s390x.deb ... 2128s Unpacking libapparmor1:s390x (4.0.0-beta3-0ubuntu2) over (4.0.0~alpha4-0ubuntu1) ... 2128s Preparing to unpack .../2-dbus-bin_1.14.10-4ubuntu2_s390x.deb ... 2128s Unpacking dbus-bin (1.14.10-4ubuntu2) over (1.14.10-4ubuntu1) ... 2128s Preparing to unpack .../3-dbus-system-bus-common_1.14.10-4ubuntu2_all.deb ... 2128s Unpacking dbus-system-bus-common (1.14.10-4ubuntu2) over (1.14.10-4ubuntu1) ... 2128s Preparing to unpack .../4-dbus_1.14.10-4ubuntu2_s390x.deb ... 2128s Unpacking dbus (1.14.10-4ubuntu2) over (1.14.10-4ubuntu1) ... 2128s Preparing to unpack .../5-dbus-daemon_1.14.10-4ubuntu2_s390x.deb ... 2128s Unpacking dbus-daemon (1.14.10-4ubuntu2) over (1.14.10-4ubuntu1) ... 2128s Preparing to unpack .../6-libdbus-1-3_1.14.10-4ubuntu2_s390x.deb ... 2128s Unpacking libdbus-1-3:s390x (1.14.10-4ubuntu2) over (1.14.10-4ubuntu1) ... 2128s Preparing to unpack .../7-kmod_31+20240202-2ubuntu4_s390x.deb ... 2128s Unpacking kmod (31+20240202-2ubuntu4) over (30+20230601-2ubuntu1) ... 2128s Preparing to unpack .../8-libkmod2_31+20240202-2ubuntu4_s390x.deb ... 2128s Unpacking libkmod2:s390x (31+20240202-2ubuntu4) over (30+20230601-2ubuntu1) ... 2128s Preparing to unpack .../9-libmount1_2.39.3-9ubuntu2_s390x.deb ... 2128s Unpacking libmount1:s390x (2.39.3-9ubuntu2) over (2.39.3-6ubuntu2) ... 2128s Setting up libmount1:s390x (2.39.3-9ubuntu2) ... 2128s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51823 files and directories currently installed.) 2128s Preparing to unpack .../libcryptsetup12_2%3a2.7.0-1ubuntu2_s390x.deb ... 2128s Unpacking libcryptsetup12:s390x (2:2.7.0-1ubuntu2) over (2:2.7.0-1ubuntu1) ... 2128s Preparing to unpack .../libfdisk1_2.39.3-9ubuntu2_s390x.deb ... 2128s Unpacking libfdisk1:s390x (2.39.3-9ubuntu2) over (2.39.3-6ubuntu2) ... 2128s Preparing to unpack .../mount_2.39.3-9ubuntu2_s390x.deb ... 2128s Unpacking mount (2.39.3-9ubuntu2) over (2.39.3-6ubuntu2) ... 2128s Preparing to unpack .../dpkg_1.22.6ubuntu5_s390x.deb ... 2128s Unpacking dpkg (1.22.6ubuntu5) over (1.22.4ubuntu5) ... 2128s Setting up dpkg (1.22.6ubuntu5) ... 2129s Setting up libpython3.12-minimal:s390x (3.12.2-4build3) ... 2129s Setting up python3.12-minimal (3.12.2-4build3) ... 2130s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51823 files and directories currently installed.) 2130s Preparing to unpack .../python3-minimal_3.12.2-0ubuntu1_s390x.deb ... 2130s Unpacking python3-minimal (3.12.2-0ubuntu1) over (3.12.1-0ubuntu2) ... 2130s Setting up python3-minimal (3.12.2-0ubuntu1) ... 2130s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51823 files and directories currently installed.) 2130s Preparing to unpack .../python3_3.12.2-0ubuntu1_s390x.deb ... 2130s Unpacking python3 (3.12.2-0ubuntu1) over (3.12.1-0ubuntu2) ... 2130s Preparing to unpack .../libpython3-stdlib_3.12.2-0ubuntu1_s390x.deb ... 2130s Unpacking libpython3-stdlib:s390x (3.12.2-0ubuntu1) over (3.12.1-0ubuntu2) ... 2130s Preparing to unpack .../libsmartcols1_2.39.3-9ubuntu2_s390x.deb ... 2130s Unpacking libsmartcols1:s390x (2.39.3-9ubuntu2) over (2.39.3-6ubuntu2) ... 2130s Setting up libsmartcols1:s390x (2.39.3-9ubuntu2) ... 2130s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51823 files and directories currently installed.) 2130s Preparing to unpack .../0-bsdextrautils_2.39.3-9ubuntu2_s390x.deb ... 2130s Unpacking bsdextrautils (2.39.3-9ubuntu2) over (2.39.3-6ubuntu2) ... 2130s Preparing to unpack .../1-groff-base_1.23.0-3build1_s390x.deb ... 2130s Unpacking groff-base (1.23.0-3build1) over (1.23.0-3) ... 2131s Preparing to unpack .../2-libsqlite3-0_3.45.1-1ubuntu1_s390x.deb ... 2131s Unpacking libsqlite3-0:s390x (3.45.1-1ubuntu1) over (3.45.1-1) ... 2131s Preparing to unpack .../3-pinentry-curses_1.2.1-3ubuntu4_s390x.deb ... 2131s Unpacking pinentry-curses (1.2.1-3ubuntu4) over (1.2.1-3ubuntu1) ... 2131s Preparing to unpack .../4-readline-common_8.2-4_all.deb ... 2131s Unpacking readline-common (8.2-4) over (8.2-3) ... 2131s Preparing to unpack .../5-libpcsclite1_2.0.3-1_s390x.deb ... 2131s Unpacking libpcsclite1:s390x (2.0.3-1) over (2.0.0-1) ... 2131s Preparing to unpack .../6-libfido2-1_1.14.0-1build1_s390x.deb ... 2131s Unpacking libfido2-1:s390x (1.14.0-1build1) over (1.14.0-1) ... 2131s Preparing to unpack .../7-libproc2-0_2%3a4.0.4-4ubuntu2_s390x.deb ... 2131s Unpacking libproc2-0:s390x (2:4.0.4-4ubuntu2) over (2:4.0.4-4ubuntu1) ... 2131s Preparing to unpack .../8-procps_2%3a4.0.4-4ubuntu2_s390x.deb ... 2131s Unpacking procps (2:4.0.4-4ubuntu2) over (2:4.0.4-4ubuntu1) ... 2131s Preparing to unpack .../9-coreutils_9.4-3ubuntu3_s390x.deb ... 2131s Unpacking coreutils (9.4-3ubuntu3) over (9.4-2ubuntu4) ... 2131s Setting up coreutils (9.4-3ubuntu3) ... 2131s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51824 files and directories currently installed.) 2131s Preparing to unpack .../util-linux-extra_2.39.3-9ubuntu2_s390x.deb ... 2131s Unpacking util-linux-extra (2.39.3-9ubuntu2) over (2.39.3-6ubuntu2) ... 2131s Preparing to unpack .../util-linux_2.39.3-9ubuntu2_s390x.deb ... 2131s Unpacking util-linux (2.39.3-9ubuntu2) over (2.39.3-6ubuntu2) ... 2131s Setting up util-linux (2.39.3-9ubuntu2) ... 2132s fstrim.service is a disabled or a static unit not running, not starting it. 2132s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51824 files and directories currently installed.) 2132s Preparing to unpack .../libxml2_2.9.14+dfsg-1.3ubuntu2_s390x.deb ... 2132s Unpacking libxml2:s390x (2.9.14+dfsg-1.3ubuntu2) over (2.9.14+dfsg-1.3ubuntu1) ... 2132s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51824 files and directories currently installed.) 2132s Removing libatm1:s390x (1:2.5.1-5) ... 2132s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51819 files and directories currently installed.) 2132s Preparing to unpack .../libbpf1_1%3a1.3.0-2build1_s390x.deb ... 2132s Unpacking libbpf1:s390x (1:1.3.0-2build1) over (1:1.3.0-2) ... 2132s Preparing to unpack .../iproute2_6.1.0-1ubuntu5_s390x.deb ... 2132s Unpacking iproute2 (6.1.0-1ubuntu5) over (6.1.0-1ubuntu2) ... 2132s dpkg: libelf1:s390x: dependency problems, but removing anyway as you requested: 2132s linux-headers-6.8.0-11-generic depends on libelf1 (>= 0.144). 2132s 2132s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51819 files and directories currently installed.) 2132s Removing libelf1:s390x (0.190-1) ... 2132s Selecting previously unselected package libelf1t64:s390x. 2132s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51814 files and directories currently installed.) 2132s Preparing to unpack .../libelf1t64_0.190-1.1build2_s390x.deb ... 2132s Unpacking libelf1t64:s390x (0.190-1.1build2) ... 2132s Preparing to unpack .../file_1%3a5.45-3_s390x.deb ... 2132s Unpacking file (1:5.45-3) over (1:5.45-2) ... 2132s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51819 files and directories currently installed.) 2132s Removing libmagic1:s390x (1:5.45-2) ... 2132s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51809 files and directories currently installed.) 2132s Preparing to unpack .../libmagic-mgc_1%3a5.45-3_s390x.deb ... 2132s Unpacking libmagic-mgc (1:5.45-3) over (1:5.45-2) ... 2132s Selecting previously unselected package libmagic1t64:s390x. 2132s Preparing to unpack .../libmagic1t64_1%3a5.45-3_s390x.deb ... 2132s Unpacking libmagic1t64:s390x (1:5.45-3) ... 2132s Preparing to unpack .../libplymouth5_24.004.60-1ubuntu6_s390x.deb ... 2132s Unpacking libplymouth5:s390x (24.004.60-1ubuntu6) over (24.004.60-1ubuntu3) ... 2132s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51820 files and directories currently installed.) 2132s Removing libpng16-16:s390x (1.6.43-1) ... 2132s Selecting previously unselected package libpng16-16t64:s390x. 2132s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51810 files and directories currently installed.) 2132s Preparing to unpack .../libpng16-16t64_1.6.43-3_s390x.deb ... 2132s Unpacking libpng16-16t64:s390x (1.6.43-3) ... 2132s Preparing to unpack .../libtirpc-common_1.3.4+ds-1.1_all.deb ... 2132s Unpacking libtirpc-common (1.3.4+ds-1.1) over (1.3.4+ds-1build1) ... 2133s Preparing to unpack .../lsof_4.95.0-1build2_s390x.deb ... 2133s Unpacking lsof (4.95.0-1build2) over (4.95.0-1build1) ... 2133s Preparing to unpack .../libnsl2_1.3.0-3build2_s390x.deb ... 2133s Unpacking libnsl2:s390x (1.3.0-3build2) over (1.3.0-3) ... 2133s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51821 files and directories currently installed.) 2133s Removing libtirpc3:s390x (1.3.4+ds-1build1) ... 2133s Selecting previously unselected package libtirpc3t64:s390x. 2133s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51815 files and directories currently installed.) 2133s Preparing to unpack .../libtirpc3t64_1.3.4+ds-1.1_s390x.deb ... 2133s Adding 'diversion of /lib/s390x-linux-gnu/libtirpc.so.3 to /lib/s390x-linux-gnu/libtirpc.so.3.usr-is-merged by libtirpc3t64' 2133s Adding 'diversion of /lib/s390x-linux-gnu/libtirpc.so.3.0.0 to /lib/s390x-linux-gnu/libtirpc.so.3.0.0.usr-is-merged by libtirpc3t64' 2133s Unpacking libtirpc3t64:s390x (1.3.4+ds-1.1) ... 2133s Preparing to unpack .../multipath-tools_0.9.4-5ubuntu6_s390x.deb ... 2133s Unpacking multipath-tools (0.9.4-5ubuntu6) over (0.9.4-5ubuntu3) ... 2133s dpkg: liburcu8:s390x: dependency problems, but removing anyway as you requested: 2133s xfsprogs depends on liburcu8 (>= 0.13.0). 2133s 2133s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51825 files and directories currently installed.) 2133s Removing liburcu8:s390x (0.14.0-3) ... 2133s Selecting previously unselected package liburcu8t64:s390x. 2133s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51806 files and directories currently installed.) 2133s Preparing to unpack .../liburcu8t64_0.14.0-3.1_s390x.deb ... 2133s Unpacking liburcu8t64:s390x (0.14.0-3.1) ... 2133s Preparing to unpack .../bind9-host_1%3a9.18.24-0ubuntu3_s390x.deb ... 2133s Unpacking bind9-host (1:9.18.24-0ubuntu3) over (1:9.18.21-0ubuntu1) ... 2133s Preparing to unpack .../bind9-dnsutils_1%3a9.18.24-0ubuntu3_s390x.deb ... 2133s Unpacking bind9-dnsutils (1:9.18.24-0ubuntu3) over (1:9.18.21-0ubuntu1) ... 2133s Preparing to unpack .../bind9-libs_1%3a9.18.24-0ubuntu3_s390x.deb ... 2133s Unpacking bind9-libs:s390x (1:9.18.24-0ubuntu3) over (1:9.18.21-0ubuntu1) ... 2133s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51826 files and directories currently installed.) 2133s Removing libuv1:s390x (1.48.0-1) ... 2133s Selecting previously unselected package libuv1t64:s390x. 2133s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51821 files and directories currently installed.) 2133s Preparing to unpack .../libuv1t64_1.48.0-1.1_s390x.deb ... 2133s Unpacking libuv1t64:s390x (1.48.0-1.1) ... 2133s Preparing to unpack .../liblocale-gettext-perl_1.07-6ubuntu4_s390x.deb ... 2133s Unpacking liblocale-gettext-perl (1.07-6ubuntu4) over (1.07-6build1) ... 2133s Preparing to unpack .../uuid-runtime_2.39.3-9ubuntu2_s390x.deb ... 2133s Unpacking uuid-runtime (2.39.3-9ubuntu2) over (2.39.3-6ubuntu2) ... 2133s Preparing to unpack .../libdebconfclient0_0.271ubuntu2_s390x.deb ... 2133s Unpacking libdebconfclient0:s390x (0.271ubuntu2) over (0.271ubuntu1) ... 2133s Setting up libdebconfclient0:s390x (0.271ubuntu2) ... 2133s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51827 files and directories currently installed.) 2133s Preparing to unpack .../libsemanage-common_3.5-1build4_all.deb ... 2133s Unpacking libsemanage-common (3.5-1build4) over (3.5-1build2) ... 2133s Setting up libsemanage-common (3.5-1build4) ... 2133s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51827 files and directories currently installed.) 2133s Preparing to unpack .../libsemanage2_3.5-1build4_s390x.deb ... 2133s Unpacking libsemanage2:s390x (3.5-1build4) over (3.5-1build2) ... 2133s Setting up libsemanage2:s390x (3.5-1build4) ... 2133s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51827 files and directories currently installed.) 2133s Preparing to unpack .../install-info_7.1-3build1_s390x.deb ... 2133s Unpacking install-info (7.1-3build1) over (7.1-3) ... 2133s Setting up install-info (7.1-3build1) ... 2133s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 51827 files and directories currently installed.) 2133s Preparing to unpack .../00-libss2_1.47.0-2.4~exp1ubuntu2_s390x.deb ... 2133s Unpacking libss2:s390x (1.47.0-2.4~exp1ubuntu2) over (1.47.0-2ubuntu1) ... 2133s Preparing to unpack .../01-dhcpcd-base_1%3a10.0.6-1ubuntu2_s390x.deb ... 2133s Unpacking dhcpcd-base (1:10.0.6-1ubuntu2) over (1:10.0.6-1ubuntu1) ... 2133s Preparing to unpack .../02-eject_2.39.3-9ubuntu2_s390x.deb ... 2133s Unpacking eject (2.39.3-9ubuntu2) over (2.39.3-6ubuntu2) ... 2134s Preparing to unpack .../03-libglib2.0-data_2.79.3-3ubuntu5_all.deb ... 2134s Unpacking libglib2.0-data (2.79.3-3ubuntu5) over (2.79.2-1~ubuntu1) ... 2134s Preparing to unpack .../04-libslang2_2.3.3-3build1_s390x.deb ... 2134s Unpacking libslang2:s390x (2.3.3-3build1) over (2.3.3-3) ... 2134s Preparing to unpack .../05-libtext-charwidth-perl_0.04-11build2_s390x.deb ... 2134s Unpacking libtext-charwidth-perl:s390x (0.04-11build2) over (0.04-11build1) ... 2134s Preparing to unpack .../06-libtext-iconv-perl_1.7-8build2_s390x.deb ... 2134s Unpacking libtext-iconv-perl:s390x (1.7-8build2) over (1.7-8build1) ... 2134s Preparing to unpack .../07-python3-yaml_6.0.1-2build1_s390x.deb ... 2134s Unpacking python3-yaml (6.0.1-2build1) over (6.0.1-2) ... 2134s Preparing to unpack .../08-python-apt-common_2.7.7_all.deb ... 2134s Unpacking python-apt-common (2.7.7) over (2.7.6) ... 2134s Preparing to unpack .../09-python3-setuptools_68.1.2-2ubuntu1_all.deb ... 2134s Unpacking python3-setuptools (68.1.2-2ubuntu1) over (68.1.2-2) ... 2134s Preparing to unpack .../10-python3-pkg-resources_68.1.2-2ubuntu1_all.deb ... 2134s Unpacking python3-pkg-resources (68.1.2-2ubuntu1) over (68.1.2-2) ... 2134s Preparing to unpack .../11-rsyslog_8.2312.0-3ubuntu7_s390x.deb ... 2135s Unpacking rsyslog (8.2312.0-3ubuntu7) over (8.2312.0-3ubuntu3) ... 2135s Preparing to unpack .../12-vim-tiny_2%3a9.1.0016-1ubuntu6_s390x.deb ... 2135s Unpacking vim-tiny (2:9.1.0016-1ubuntu6) over (2:9.1.0016-1ubuntu2) ... 2135s Preparing to unpack .../13-vim-common_2%3a9.1.0016-1ubuntu6_all.deb ... 2135s Unpacking vim-common (2:9.1.0016-1ubuntu6) over (2:9.1.0016-1ubuntu2) ... 2135s Selecting previously unselected package xdg-user-dirs. 2135s Preparing to unpack .../14-xdg-user-dirs_0.18-1_s390x.deb ... 2135s Unpacking xdg-user-dirs (0.18-1) ... 2135s Preparing to unpack .../15-xxd_2%3a9.1.0016-1ubuntu6_s390x.deb ... 2135s Unpacking xxd (2:9.1.0016-1ubuntu6) over (2:9.1.0016-1ubuntu2) ... 2135s Preparing to unpack .../16-apparmor_4.0.0-beta3-0ubuntu2_s390x.deb ... 2135s Unpacking apparmor (4.0.0-beta3-0ubuntu2) over (4.0.0~alpha4-0ubuntu1) ... 2135s Preparing to unpack .../17-ftp_20230507-2build1_all.deb ... 2135s Unpacking ftp (20230507-2build1) over (20230507-2) ... 2135s Preparing to unpack .../18-inetutils-telnet_2%3a2.5-3ubuntu3_s390x.deb ... 2135s Unpacking inetutils-telnet (2:2.5-3ubuntu3) over (2:2.5-3ubuntu1) ... 2135s Preparing to unpack .../19-info_7.1-3build1_s390x.deb ... 2135s Unpacking info (7.1-3build1) over (7.1-3) ... 2135s Preparing to unpack .../20-libxmuu1_2%3a1.1.3-3build1_s390x.deb ... 2135s Unpacking libxmuu1:s390x (2:1.1.3-3build1) over (2:1.1.3-3) ... 2135s Preparing to unpack .../21-lshw_02.19.git.2021.06.19.996aaad9c7-2build2_s390x.deb ... 2135s Unpacking lshw (02.19.git.2021.06.19.996aaad9c7-2build2) over (02.19.git.2021.06.19.996aaad9c7-2build1) ... 2135s Selecting previously unselected package manpages. 2135s Preparing to unpack .../22-manpages_6.05.01-1_all.deb ... 2135s Unpacking manpages (6.05.01-1) ... 2135s Preparing to unpack .../23-mtr-tiny_0.95-1.1build1_s390x.deb ... 2135s Unpacking mtr-tiny (0.95-1.1build1) over (0.95-1.1) ... 2135s Preparing to unpack .../24-plymouth-theme-ubuntu-text_24.004.60-1ubuntu6_s390x.deb ... 2135s Unpacking plymouth-theme-ubuntu-text (24.004.60-1ubuntu6) over (24.004.60-1ubuntu3) ... 2135s Preparing to unpack .../25-plymouth_24.004.60-1ubuntu6_s390x.deb ... 2135s Unpacking plymouth (24.004.60-1ubuntu6) over (24.004.60-1ubuntu3) ... 2135s Preparing to unpack .../26-telnet_0.17+2.5-3ubuntu3_all.deb ... 2135s Unpacking telnet (0.17+2.5-3ubuntu3) over (0.17+2.5-3ubuntu1) ... 2135s Preparing to unpack .../27-usb.ids_2024.03.18-1_all.deb ... 2135s Unpacking usb.ids (2024.03.18-1) over (2024.01.30-1) ... 2135s Preparing to unpack .../28-xz-utils_5.6.0-0.2_s390x.deb ... 2135s Unpacking xz-utils (5.6.0-0.2) over (5.4.5-0.3) ... 2135s Selecting previously unselected package libllvm18:s390x. 2135s Preparing to unpack .../29-libllvm18_1%3a18.1.2-1ubuntu2_s390x.deb ... 2135s Unpacking libllvm18:s390x (1:18.1.2-1ubuntu2) ... 2137s Selecting previously unselected package libclang-cpp18. 2137s Preparing to unpack .../30-libclang-cpp18_1%3a18.1.2-1ubuntu2_s390x.deb ... 2137s Unpacking libclang-cpp18 (1:18.1.2-1ubuntu2) ... 2138s Selecting previously unselected package libbpfcc:s390x. 2138s Preparing to unpack .../31-libbpfcc_0.29.1+ds-1ubuntu4_s390x.deb ... 2138s Unpacking libbpfcc:s390x (0.29.1+ds-1ubuntu4) ... 2138s Selecting previously unselected package python3-bpfcc. 2138s Preparing to unpack .../32-python3-bpfcc_0.29.1+ds-1ubuntu4_all.deb ... 2138s Unpacking python3-bpfcc (0.29.1+ds-1ubuntu4) ... 2138s Selecting previously unselected package ieee-data. 2138s Preparing to unpack .../33-ieee-data_20220827.1_all.deb ... 2138s Unpacking ieee-data (20220827.1) ... 2138s Selecting previously unselected package python3-netaddr. 2138s Preparing to unpack .../34-python3-netaddr_0.8.0-2ubuntu1_all.deb ... 2138s Unpacking python3-netaddr (0.8.0-2ubuntu1) ... 2138s Selecting previously unselected package bpfcc-tools. 2138s Preparing to unpack .../35-bpfcc-tools_0.29.1+ds-1ubuntu4_all.deb ... 2138s Unpacking bpfcc-tools (0.29.1+ds-1ubuntu4) ... 2138s Selecting previously unselected package libclang1-18. 2138s Preparing to unpack .../36-libclang1-18_1%3a18.1.2-1ubuntu2_s390x.deb ... 2138s Unpacking libclang1-18 (1:18.1.2-1ubuntu2) ... 2138s Selecting previously unselected package libdw1t64:s390x. 2138s Preparing to unpack .../37-libdw1t64_0.190-1.1build2_s390x.deb ... 2138s Unpacking libdw1t64:s390x (0.190-1.1build2) ... 2138s Selecting previously unselected package bpftrace. 2138s Preparing to unpack .../38-bpftrace_0.20.2-1ubuntu1_s390x.deb ... 2138s Unpacking bpftrace (0.20.2-1ubuntu1) ... 2139s Preparing to unpack .../39-cryptsetup-bin_2%3a2.7.0-1ubuntu2_s390x.deb ... 2139s Unpacking cryptsetup-bin (2:2.7.0-1ubuntu2) over (2:2.7.0-1ubuntu1) ... 2139s Preparing to unpack .../40-dpkg-dev_1.22.6ubuntu5_all.deb ... 2139s Unpacking dpkg-dev (1.22.6ubuntu5) over (1.22.4ubuntu5) ... 2139s Preparing to unpack .../41-libdpkg-perl_1.22.6ubuntu5_all.deb ... 2139s Unpacking libdpkg-perl (1.22.6ubuntu5) over (1.22.4ubuntu5) ... 2139s Selecting previously unselected package fonts-dejavu-mono. 2139s Preparing to unpack .../42-fonts-dejavu-mono_2.37-8_all.deb ... 2139s Unpacking fonts-dejavu-mono (2.37-8) ... 2139s Selecting previously unselected package fonts-dejavu-core. 2139s Preparing to unpack .../43-fonts-dejavu-core_2.37-8_all.deb ... 2139s Unpacking fonts-dejavu-core (2.37-8) ... 2139s Selecting previously unselected package fontconfig-config. 2139s Preparing to unpack .../44-fontconfig-config_2.15.0-1.1ubuntu1_s390x.deb ... 2139s Unpacking fontconfig-config (2.15.0-1.1ubuntu1) ... 2139s Preparing to unpack .../45-libprotobuf-c1_1.4.1-1ubuntu3_s390x.deb ... 2139s Unpacking libprotobuf-c1:s390x (1.4.1-1ubuntu3) over (1.4.1-1ubuntu2) ... 2139s Selecting previously unselected package hwdata. 2139s Preparing to unpack .../46-hwdata_0.379-1_all.deb ... 2139s Unpacking hwdata (0.379-1) ... 2139s Preparing to unpack .../47-libibverbs1_50.0-2build1_s390x.deb ... 2139s Unpacking libibverbs1:s390x (50.0-2build1) over (50.0-2) ... 2139s Preparing to unpack .../48-ibverbs-providers_50.0-2build1_s390x.deb ... 2139s Unpacking ibverbs-providers:s390x (50.0-2build1) over (50.0-2) ... 2139s Selecting previously unselected package libaio1t64:s390x. 2139s Preparing to unpack .../49-libaio1t64_0.3.113-6_s390x.deb ... 2139s Unpacking libaio1t64:s390x (0.3.113-6) ... 2139s Selecting previously unselected package libatm1t64:s390x. 2139s Preparing to unpack .../50-libatm1t64_1%3a2.5.1-5.1_s390x.deb ... 2139s Unpacking libatm1t64:s390x (1:2.5.1-5.1) ... 2139s Selecting previously unselected package libc-dev-bin. 2139s Preparing to unpack .../51-libc-dev-bin_2.39-0ubuntu6_s390x.deb ... 2139s Unpacking libc-dev-bin (2.39-0ubuntu6) ... 2139s Selecting previously unselected package libfreetype6:s390x. 2139s Preparing to unpack .../52-libfreetype6_2.13.2+dfsg-1build2_s390x.deb ... 2139s Unpacking libfreetype6:s390x (2.13.2+dfsg-1build2) ... 2139s Selecting previously unselected package libfontconfig1:s390x. 2139s Preparing to unpack .../53-libfontconfig1_2.15.0-1.1ubuntu1_s390x.deb ... 2139s Unpacking libfontconfig1:s390x (2.15.0-1.1ubuntu1) ... 2139s Selecting previously unselected package libjpeg-turbo8:s390x. 2139s Preparing to unpack .../54-libjpeg-turbo8_2.1.5-2ubuntu1_s390x.deb ... 2139s Unpacking libjpeg-turbo8:s390x (2.1.5-2ubuntu1) ... 2139s Selecting previously unselected package libjpeg8:s390x. 2139s Preparing to unpack .../55-libjpeg8_8c-2ubuntu11_s390x.deb ... 2139s Unpacking libjpeg8:s390x (8c-2ubuntu11) ... 2139s Selecting previously unselected package libdeflate0:s390x. 2139s Preparing to unpack .../56-libdeflate0_1.19-1_s390x.deb ... 2139s Unpacking libdeflate0:s390x (1.19-1) ... 2139s Selecting previously unselected package libjbig0:s390x. 2139s Preparing to unpack .../57-libjbig0_2.1-6.1ubuntu1_s390x.deb ... 2139s Unpacking libjbig0:s390x (2.1-6.1ubuntu1) ... 2139s Selecting previously unselected package libsharpyuv0:s390x. 2139s Preparing to unpack .../58-libsharpyuv0_1.3.2-0.4build2_s390x.deb ... 2139s Unpacking libsharpyuv0:s390x (1.3.2-0.4build2) ... 2139s Selecting previously unselected package libwebp7:s390x. 2139s Preparing to unpack .../59-libwebp7_1.3.2-0.4build2_s390x.deb ... 2139s Unpacking libwebp7:s390x (1.3.2-0.4build2) ... 2139s Selecting previously unselected package libtiff6:s390x. 2139s Preparing to unpack .../60-libtiff6_4.5.1+git230720-4ubuntu1_s390x.deb ... 2139s Unpacking libtiff6:s390x (4.5.1+git230720-4ubuntu1) ... 2139s Selecting previously unselected package libxpm4:s390x. 2139s Preparing to unpack .../61-libxpm4_1%3a3.5.17-1build1_s390x.deb ... 2139s Unpacking libxpm4:s390x (1:3.5.17-1build1) ... 2139s Selecting previously unselected package libgd3:s390x. 2139s Preparing to unpack .../62-libgd3_2.3.3-9ubuntu3_s390x.deb ... 2139s Unpacking libgd3:s390x (2.3.3-9ubuntu3) ... 2139s Selecting previously unselected package libc-devtools. 2139s Preparing to unpack .../63-libc-devtools_2.39-0ubuntu6_s390x.deb ... 2139s Unpacking libc-devtools (2.39-0ubuntu6) ... 2139s Selecting previously unselected package linux-libc-dev:s390x. 2139s Preparing to unpack .../64-linux-libc-dev_6.8.0-20.20_s390x.deb ... 2139s Unpacking linux-libc-dev:s390x (6.8.0-20.20) ... 2140s Selecting previously unselected package libcrypt-dev:s390x. 2140s Preparing to unpack .../65-libcrypt-dev_1%3a4.4.36-4_s390x.deb ... 2140s Unpacking libcrypt-dev:s390x (1:4.4.36-4) ... 2140s Selecting previously unselected package rpcsvc-proto. 2140s Preparing to unpack .../66-rpcsvc-proto_1.4.2-0ubuntu6_s390x.deb ... 2140s Unpacking rpcsvc-proto (1.4.2-0ubuntu6) ... 2140s Selecting previously unselected package libc6-dev:s390x. 2140s Preparing to unpack .../67-libc6-dev_2.39-0ubuntu6_s390x.deb ... 2140s Unpacking libc6-dev:s390x (2.39-0ubuntu6) ... 2140s Preparing to unpack .../68-libevent-core-2.1-7_2.1.12-stable-9build1_s390x.deb ... 2140s Unpacking libevent-core-2.1-7:s390x (2.1.12-stable-9build1) over (2.1.12-stable-9) ... 2140s Preparing to unpack .../69-libldap-common_2.6.7+dfsg-1~exp1ubuntu6_all.deb ... 2140s Unpacking libldap-common (2.6.7+dfsg-1~exp1ubuntu6) over (2.6.7+dfsg-1~exp1ubuntu1) ... 2140s Selecting previously unselected package linux-modules-6.8.0-20-generic. 2140s Preparing to unpack .../70-linux-modules-6.8.0-20-generic_6.8.0-20.20_s390x.deb ... 2140s Unpacking linux-modules-6.8.0-20-generic (6.8.0-20.20) ... 2140s Selecting previously unselected package linux-image-6.8.0-20-generic. 2140s Preparing to unpack .../71-linux-image-6.8.0-20-generic_6.8.0-20.20_s390x.deb ... 2140s Unpacking linux-image-6.8.0-20-generic (6.8.0-20.20) ... 2140s Selecting previously unselected package linux-modules-extra-6.8.0-20-generic. 2140s Preparing to unpack .../72-linux-modules-extra-6.8.0-20-generic_6.8.0-20.20_s390x.deb ... 2140s Unpacking linux-modules-extra-6.8.0-20-generic (6.8.0-20.20) ... 2140s Preparing to unpack .../73-linux-generic_6.8.0-20.20+1_s390x.deb ... 2140s Unpacking linux-generic (6.8.0-20.20+1) over (6.8.0-11.11+1) ... 2140s Preparing to unpack .../74-linux-image-generic_6.8.0-20.20+1_s390x.deb ... 2140s Unpacking linux-image-generic (6.8.0-20.20+1) over (6.8.0-11.11+1) ... 2140s Preparing to unpack .../75-linux-virtual_6.8.0-20.20+1_s390x.deb ... 2140s Unpacking linux-virtual (6.8.0-20.20+1) over (6.8.0-11.11+1) ... 2140s Preparing to unpack .../76-linux-image-virtual_6.8.0-20.20+1_s390x.deb ... 2140s Unpacking linux-image-virtual (6.8.0-20.20+1) over (6.8.0-11.11+1) ... 2140s Preparing to unpack .../77-linux-headers-virtual_6.8.0-20.20+1_s390x.deb ... 2140s Unpacking linux-headers-virtual (6.8.0-20.20+1) over (6.8.0-11.11+1) ... 2140s Selecting previously unselected package linux-headers-6.8.0-20. 2140s Preparing to unpack .../78-linux-headers-6.8.0-20_6.8.0-20.20_all.deb ... 2140s Unpacking linux-headers-6.8.0-20 (6.8.0-20.20) ... 2143s Selecting previously unselected package linux-headers-6.8.0-20-generic. 2143s Preparing to unpack .../79-linux-headers-6.8.0-20-generic_6.8.0-20.20_s390x.deb ... 2143s Unpacking linux-headers-6.8.0-20-generic (6.8.0-20.20) ... 2143s Preparing to unpack .../80-linux-headers-generic_6.8.0-20.20+1_s390x.deb ... 2143s Unpacking linux-headers-generic (6.8.0-20.20+1) over (6.8.0-11.11+1) ... 2143s Selecting previously unselected package linux-tools-common. 2143s Preparing to unpack .../81-linux-tools-common_6.8.0-20.20_all.deb ... 2143s Unpacking linux-tools-common (6.8.0-20.20) ... 2143s Selecting previously unselected package linux-tools-6.8.0-20. 2144s Preparing to unpack .../82-linux-tools-6.8.0-20_6.8.0-20.20_s390x.deb ... 2144s Unpacking linux-tools-6.8.0-20 (6.8.0-20.20) ... 2144s Selecting previously unselected package linux-tools-6.8.0-20-generic. 2144s Preparing to unpack .../83-linux-tools-6.8.0-20-generic_6.8.0-20.20_s390x.deb ... 2144s Unpacking linux-tools-6.8.0-20-generic (6.8.0-20.20) ... 2144s Selecting previously unselected package manpages-dev. 2144s Preparing to unpack .../84-manpages-dev_6.05.01-1_all.deb ... 2144s Unpacking manpages-dev (6.05.01-1) ... 2144s Preparing to unpack .../85-python3-distutils_3.12.2-3ubuntu1.1_all.deb ... 2144s Unpacking python3-distutils (3.12.2-3ubuntu1.1) over (3.11.5-1) ... 2144s Preparing to unpack .../86-python3-lib2to3_3.12.2-3ubuntu1.1_all.deb ... 2144s Unpacking python3-lib2to3 (3.12.2-3ubuntu1.1) over (3.11.5-1) ... 2144s Preparing to unpack .../87-python3-pyrsistent_0.20.0-1build1_s390x.deb ... 2144s Unpacking python3-pyrsistent:s390x (0.20.0-1build1) over (0.20.0-1) ... 2144s Preparing to unpack .../88-s390-tools-data_2.31.0-0ubuntu3_all.deb ... 2144s Unpacking s390-tools-data (2.31.0-0ubuntu3) over (2.31.0-0ubuntu1) ... 2144s Selecting previously unselected package ubuntu-kernel-accessories. 2144s Preparing to unpack .../89-ubuntu-kernel-accessories_1.536build1_s390x.deb ... 2144s Unpacking ubuntu-kernel-accessories (1.536build1) ... 2144s Preparing to unpack .../90-kpartx_0.9.4-5ubuntu6_s390x.deb ... 2144s Unpacking kpartx (0.9.4-5ubuntu6) over (0.9.4-5ubuntu3) ... 2144s Setting up pinentry-curses (1.2.1-3ubuntu4) ... 2144s Setting up motd-news-config (13ubuntu8) ... 2144s Setting up libtext-iconv-perl:s390x (1.7-8build2) ... 2144s Setting up libtext-charwidth-perl:s390x (0.04-11build2) ... 2144s Setting up libsharpyuv0:s390x (1.3.2-0.4build2) ... 2144s Setting up liburcu8t64:s390x (0.14.0-3.1) ... 2144s Setting up tcpdump (4.99.4-3ubuntu2) ... 2145s Setting up libibverbs1:s390x (50.0-2build1) ... 2145s Setting up systemd-sysv (255.4-1ubuntu5) ... 2145s Setting up ubuntu-kernel-accessories (1.536build1) ... 2145s Setting up libapparmor1:s390x (4.0.0-beta3-0ubuntu2) ... 2145s Setting up libatm1t64:s390x (1:2.5.1-5.1) ... 2145s Setting up libgdbm6t64:s390x (1.23-5.1) ... 2145s Setting up bsdextrautils (2.39.3-9ubuntu2) ... 2145s Setting up libxpm4:s390x (1:3.5.17-1build1) ... 2145s Setting up libgdbm-compat4t64:s390x (1.23-5.1) ... 2145s Setting up xdg-user-dirs (0.18-1) ... 2145s Setting up ibverbs-providers:s390x (50.0-2build1) ... 2145s Setting up linux-headers-6.8.0-20 (6.8.0-20.20) ... 2145s Setting up libmagic-mgc (1:5.45-3) ... 2145s Setting up gawk (1:5.2.1-2build2) ... 2145s Setting up manpages (6.05.01-1) ... 2145s Setting up libtirpc-common (1.3.4+ds-1.1) ... 2145s Setting up libbrotli1:s390x (1.1.0-2build1) ... 2145s Setting up libsqlite3-0:s390x (3.45.1-1ubuntu1) ... 2145s Setting up libsasl2-modules:s390x (2.1.28+dfsg1-5ubuntu1) ... 2145s Setting up libuv1t64:s390x (1.48.0-1.1) ... 2145s Setting up libmagic1t64:s390x (1:5.45-3) ... 2145s Setting up rsyslog (8.2312.0-3ubuntu7) ... 2145s info: The user `syslog' is already a member of `adm'. 2146s Setting up libpsl5t64:s390x (0.21.2-1.1) ... 2146s Setting up libnghttp2-14:s390x (1.59.0-1build1) ... 2146s Setting up libdeflate0:s390x (1.19-1) ... 2146s Setting up linux-libc-dev:s390x (6.8.0-20.20) ... 2146s Setting up libnss-systemd:s390x (255.4-1ubuntu5) ... 2146s Setting up libparted2t64:s390x (3.6-3.1build2) ... 2146s Setting up libcom-err2:s390x (1.47.0-2.4~exp1ubuntu2) ... 2146s Setting up file (1:5.45-3) ... 2146s Setting up lshw (02.19.git.2021.06.19.996aaad9c7-2build2) ... 2146s Setting up libldap-common (2.6.7+dfsg-1~exp1ubuntu6) ... 2146s Setting up libprotobuf-c1:s390x (1.4.1-1ubuntu3) ... 2146s Setting up libjbig0:s390x (2.1-6.1ubuntu1) ... 2146s Setting up xxd (2:9.1.0016-1ubuntu6) ... 2146s Setting up libelf1t64:s390x (0.190-1.1build2) ... 2146s Setting up libkrb5support0:s390x (1.20.1-6ubuntu1) ... 2146s Setting up libdw1t64:s390x (0.190-1.1build2) ... 2146s Setting up linux-headers-6.8.0-20-generic (6.8.0-20.20) ... 2146s Setting up eject (2.39.3-9ubuntu2) ... 2146s Setting up apparmor (4.0.0-beta3-0ubuntu2) ... 2146s Installing new version of config file /etc/apparmor.d/abstractions/authentication ... 2146s Installing new version of config file /etc/apparmor.d/abstractions/crypto ... 2146s Installing new version of config file /etc/apparmor.d/abstractions/kde-open5 ... 2146s Installing new version of config file /etc/apparmor.d/abstractions/openssl ... 2146s Installing new version of config file /etc/apparmor.d/code ... 2146s Installing new version of config file /etc/apparmor.d/firefox ... 2147s Reloading AppArmor profiles 2148s Setting up libglib2.0-0t64:s390x (2.79.3-3ubuntu5) ... 2148s No schema files found: doing nothing. 2148s Setting up libglib2.0-data (2.79.3-3ubuntu5) ... 2148s Setting up rpcsvc-proto (1.4.2-0ubuntu6) ... 2148s Setting up vim-common (2:9.1.0016-1ubuntu6) ... 2148s Setting up libqrtr-glib0:s390x (1.2.2-1ubuntu3) ... 2148s Setting up libslang2:s390x (2.3.3-3build1) ... 2148s Setting up libnvme1t64 (1.8-3) ... 2148s Setting up mtr-tiny (0.95-1.1build1) ... 2148s Setting up librtmp1:s390x (2.4+20151223.gitfa8646d.1-2build6) ... 2148s Setting up libdbus-1-3:s390x (1.14.10-4ubuntu2) ... 2148s Setting up xz-utils (5.6.0-0.2) ... 2148s Setting up perl-modules-5.38 (5.38.2-3.2) ... 2148s Setting up libproc2-0:s390x (2:4.0.4-4ubuntu2) ... 2148s Setting up fonts-dejavu-mono (2.37-8) ... 2148s Setting up libpng16-16t64:s390x (1.6.43-3) ... 2148s Setting up systemd-timesyncd (255.4-1ubuntu5) ... 2148s Setting up libevent-core-2.1-7:s390x (2.1.12-stable-9build1) ... 2148s Setting up libss2:s390x (1.47.0-2.4~exp1ubuntu2) ... 2148s Setting up usb.ids (2024.03.18-1) ... 2148s Setting up sudo (1.9.15p5-3ubuntu3) ... 2148s Setting up fonts-dejavu-core (2.37-8) ... 2148s Setting up dhcpcd-base (1:10.0.6-1ubuntu2) ... 2148s Setting up libpcsclite1:s390x (2.0.3-1) ... 2148s Setting up gir1.2-glib-2.0:s390x (2.79.3-3ubuntu5) ... 2148s Setting up libk5crypto3:s390x (1.20.1-6ubuntu1) ... 2148s Setting up libjpeg-turbo8:s390x (2.1.5-2ubuntu1) ... 2148s Setting up logsave (1.47.0-2.4~exp1ubuntu2) ... 2148s Setting up libwebp7:s390x (1.3.2-0.4build2) ... 2148s Setting up libfdisk1:s390x (2.39.3-9ubuntu2) ... 2148s Setting up libdb5.3t64:s390x (5.3.28+dfsg2-6) ... 2148s Setting up libaio1t64:s390x (0.3.113-6) ... 2148s Setting up python-apt-common (2.7.7) ... 2148s Setting up mount (2.39.3-9ubuntu2) ... 2148s Setting up uuid-runtime (2.39.3-9ubuntu2) ... 2149s uuidd.service is a disabled or a static unit not running, not starting it. 2149s Setting up libmm-glib0:s390x (1.23.4-0ubuntu1) ... 2149s Setting up groff-base (1.23.0-3build1) ... 2149s Setting up libcrypt-dev:s390x (1:4.4.36-4) ... 2149s Setting up libplymouth5:s390x (24.004.60-1ubuntu6) ... 2149s Setting up dbus-session-bus-common (1.14.10-4ubuntu2) ... 2149s Setting up procps (2:4.0.4-4ubuntu2) ... 2150s Setting up gpgconf (2.4.4-2ubuntu15) ... 2150s Setting up libcryptsetup12:s390x (2:2.7.0-1ubuntu2) ... 2150s Setting up libgirepository-1.0-1:s390x (1.79.1-1ubuntu6) ... 2150s Setting up libjson-glib-1.0-common (1.8.0-2build1) ... 2150s Setting up libkrb5-3:s390x (1.20.1-6ubuntu1) ... 2150s Setting up libperl5.38t64:s390x (5.38.2-3.2) ... 2150s Setting up tnftp (20230507-2build1) ... 2150s Setting up dbus-system-bus-common (1.14.10-4ubuntu2) ... 2150s Setting up libfido2-1:s390x (1.14.0-1build1) ... 2150s Setting up libc-dev-bin (2.39-0ubuntu6) ... 2150s Setting up openssl (3.0.13-0ubuntu2) ... 2150s Setting up linux-modules-6.8.0-20-generic (6.8.0-20.20) ... 2150s Setting up readline-common (8.2-4) ... 2150s Setting up libxml2:s390x (2.9.14+dfsg-1.3ubuntu2) ... 2150s Setting up libxmuu1:s390x (2:1.1.3-3build1) ... 2150s Setting up dbus-bin (1.14.10-4ubuntu2) ... 2150s Setting up info (7.1-3build1) ... 2150s Setting up liblocale-gettext-perl (1.07-6ubuntu4) ... 2150s Setting up gpg (2.4.4-2ubuntu15) ... 2150s Setting up libgudev-1.0-0:s390x (1:238-3ubuntu2) ... 2150s Setting up libpolkit-gobject-1-0:s390x (124-1ubuntu1) ... 2150s Setting up libbpf1:s390x (1:1.3.0-2build1) ... 2150s Setting up libmbim-glib4:s390x (1.31.2-0ubuntu2) ... 2150s Setting up rsync (3.2.7-1build1) ... 2151s rsync.service is a disabled or a static unit not running, not starting it. 2151s Setting up libudisks2-0:s390x (2.10.1-6) ... 2151s Setting up util-linux-extra (2.39.3-9ubuntu2) ... 2151s Setting up libkmod2:s390x (31+20240202-2ubuntu4) ... 2151s Setting up bolt (0.9.6-2build1) ... 2151s bolt.service is a disabled or a static unit not running, not starting it. 2151s Setting up s390-tools-data (2.31.0-0ubuntu3) ... 2151s Setting up libllvm18:s390x (1:18.1.2-1ubuntu2) ... 2151s Setting up gnupg-utils (2.4.4-2ubuntu15) ... 2151s Setting up libjpeg8:s390x (8c-2ubuntu11) ... 2151s Setting up cryptsetup-bin (2:2.7.0-1ubuntu2) ... 2151s Setting up libclang1-18 (1:18.1.2-1ubuntu2) ... 2151s Setting up manpages-dev (6.05.01-1) ... 2151s Setting up linux-modules-extra-6.8.0-20-generic (6.8.0-20.20) ... 2152s Setting up apt-utils (2.7.14) ... 2152s Setting up gpg-agent (2.4.4-2ubuntu15) ... 2152s Setting up libpython3.12-stdlib:s390x (3.12.2-4build3) ... 2152s Setting up wget (1.21.4-1ubuntu2) ... 2152s Setting up fontconfig-config (2.15.0-1.1ubuntu1) ... 2153s Setting up libxmlb2:s390x (0.3.15-1build1) ... 2153s Setting up python3.12 (3.12.2-4build3) ... 2154s Setting up gpgsm (2.4.4-2ubuntu15) ... 2154s Setting up inetutils-telnet (2:2.5-3ubuntu3) ... 2154s Setting up libreiserfscore0t64 (1:3.6.27-7.1) ... 2154s Setting up parted (3.6-3.1build2) ... 2154s Setting up e2fsprogs (1.47.0-2.4~exp1ubuntu2) ... 2154s update-initramfs: deferring update (trigger activated) 2155s e2scrub_all.service is a disabled or a static unit not running, not starting it. 2155s Setting up linux-headers-generic (6.8.0-20.20+1) ... 2155s Setting up dbus-daemon (1.14.10-4ubuntu2) ... 2155s Setting up libmbim-proxy (1.31.2-0ubuntu2) ... 2155s Setting up vim-tiny (2:9.1.0016-1ubuntu6) ... 2155s Setting up kmod (31+20240202-2ubuntu4) ... 2155s Setting up libnetplan1:s390x (1.0-1) ... 2155s Setting up man-db (2.12.0-3build4) ... 2155s Updating database of manual pages ... 2157s man-db.service is a disabled or a static unit not running, not starting it. 2157s Setting up fdisk (2.39.3-9ubuntu2) ... 2157s Setting up libjson-glib-1.0-0:s390x (1.8.0-2build1) ... 2157s Setting up libsasl2-modules-db:s390x (2.1.28+dfsg1-5ubuntu1) ... 2157s Setting up hwdata (0.379-1) ... 2157s Setting up wpasupplicant (2:2.10-21build2) ... 2158s Setting up perl (5.38.2-3.2) ... 2158s Setting up libfreetype6:s390x (2.13.2+dfsg-1build2) ... 2158s Setting up gir1.2-girepository-2.0:s390x (1.79.1-1ubuntu6) ... 2158s Setting up dbus (1.14.10-4ubuntu2) ... 2158s A reboot is required to replace the running dbus-daemon. 2158s Please reboot the system when convenient. 2158s Setting up shared-mime-info (2.4-1build1) ... 2159s Setting up libblockdev-utils3:s390x (3.1.0-1build1) ... 2159s Setting up libgssapi-krb5-2:s390x (1.20.1-6ubuntu1) ... 2159s Setting up udev (255.4-1ubuntu5) ... 2160s Setting up ftp (20230507-2build1) ... 2160s Setting up keyboxd (2.4.4-2ubuntu15) ... 2160s Setting up libdpkg-perl (1.22.6ubuntu5) ... 2160s Setting up libsasl2-2:s390x (2.1.28+dfsg1-5ubuntu1) ... 2160s Setting up libssh-4:s390x (0.10.6-2build1) ... 2160s Setting up libblockdev-nvme3:s390x (3.1.0-1build1) ... 2160s Setting up libblockdev-fs3:s390x (3.1.0-1build1) ... 2160s Setting up ieee-data (20220827.1) ... 2160s Setting up libtiff6:s390x (4.5.1+git230720-4ubuntu1) ... 2160s Setting up kpartx (0.9.4-5ubuntu6) ... 2160s Setting up libpam-systemd:s390x (255.4-1ubuntu5) ... 2160s Setting up libpolkit-agent-1-0:s390x (124-1ubuntu1) ... 2160s Setting up libc6-dev:s390x (2.39-0ubuntu6) ... 2160s Setting up libgpgme11t64:s390x (1.18.0-4.1ubuntu3) ... 2160s Setting up libfontconfig1:s390x (2.15.0-1.1ubuntu1) ... 2160s Setting up netplan-generator (1.0-1) ... 2160s Removing 'diversion of /lib/systemd/system-generators/netplan to /lib/systemd/system-generators/netplan.usr-is-merged by netplan-generator' 2160s Setting up libclang-cpp18 (1:18.1.2-1ubuntu2) ... 2160s Setting up libbpfcc:s390x (0.29.1+ds-1ubuntu4) ... 2160s Setting up linux-tools-common (6.8.0-20.20) ... 2160s Setting up libarchive13t64:s390x (3.7.2-1.1ubuntu2) ... 2160s Setting up libldap2:s390x (2.6.7+dfsg-1~exp1ubuntu6) ... 2160s Setting up libpython3-stdlib:s390x (3.12.2-0ubuntu1) ... 2160s Setting up systemd-resolved (255.4-1ubuntu5) ... 2161s Setting up telnet (0.17+2.5-3ubuntu3) ... 2161s Setting up libblockdev-mdraid3:s390x (3.1.0-1build1) ... 2161s Setting up linux-headers-virtual (6.8.0-20.20+1) ... 2161s Setting up libcurl4t64:s390x (8.5.0-2ubuntu8) ... 2161s Setting up bpftrace (0.20.2-1ubuntu1) ... 2161s Setting up bind9-libs:s390x (1:9.18.24-0ubuntu3) ... 2161s Setting up linux-image-6.8.0-20-generic (6.8.0-20.20) ... 2161s I: /boot/vmlinuz is now a symlink to vmlinuz-6.8.0-20-generic 2161s I: /boot/initrd.img is now a symlink to initrd.img-6.8.0-20-generic 2161s Setting up libtirpc3t64:s390x (1.3.4+ds-1.1) ... 2161s Setting up libblockdev-swap3:s390x (3.1.0-1build1) ... 2161s Setting up plymouth (24.004.60-1ubuntu6) ... 2161s update-initramfs: Generating /boot/initrd.img-6.8.0-11-generic 2161s W: No lz4 in /usr/bin:/sbin:/bin, using gzip 2165s Not invoking zipl: initrd doesn't exist yet 2165s update-rc.d: warning: start and stop actions are no longer supported; falling back to defaults 2165s update-rc.d: warning: start and stop actions are no longer supported; falling back to defaults 2166s Setting up iproute2 (6.1.0-1ubuntu5) ... 2166s Setting up openssh-client (1:9.6p1-3ubuntu11) ... 2166s Setting up libgusb2:s390x (0.4.8-1build1) ... 2166s Setting up btrfs-progs (6.6.3-1.1build1) ... 2166s Setting up libblockdev-loop3:s390x (3.1.0-1build1) ... 2166s Setting up libcurl3t64-gnutls:s390x (8.5.0-2ubuntu8) ... 2166s Setting up libqmi-glib5:s390x (1.35.2-0ubuntu1) ... 2166s Setting up linux-tools-6.8.0-20 (6.8.0-20.20) ... 2166s Setting up python3 (3.12.2-0ubuntu1) ... 2166s Setting up libblockdev3:s390x (3.1.0-1build1) ... 2166s Setting up libjcat1:s390x (0.2.0-2build2) ... 2166s Setting up multipath-tools (0.9.4-5ubuntu6) ... 2167s Setting up dpkg-dev (1.22.6ubuntu5) ... 2167s Setting up libblockdev-part3:s390x (3.1.0-1build1) ... 2167s Setting up dirmngr (2.4.4-2ubuntu15) ... 2167s Setting up dbus-user-session (1.14.10-4ubuntu2) ... 2167s Setting up plymouth-theme-ubuntu-text (24.004.60-1ubuntu6) ... 2167s update-initramfs: deferring update (trigger activated) 2167s Setting up linux-tools-6.8.0-20-generic (6.8.0-20.20) ... 2167s Setting up python3-cryptography (41.0.7-4build2) ... 2167s Setting up python3-gi (3.47.0-3build1) ... 2168s Setting up libgd3:s390x (2.3.3-9ubuntu3) ... 2168s Setting up lsof (4.95.0-1build2) ... 2168s Setting up python3-pyrsistent:s390x (0.20.0-1build1) ... 2168s Setting up python3-netaddr (0.8.0-2ubuntu1) ... 2168s Setting up libnsl2:s390x (1.3.0-3build2) ... 2168s Setting up gnupg (2.4.4-2ubuntu15) ... 2168s Setting up python3-netplan (1.0-1) ... 2168s Setting up curl (8.5.0-2ubuntu8) ... 2168s Setting up libvolume-key1:s390x (0.3.12-7build1) ... 2168s Setting up linux-image-virtual (6.8.0-20.20+1) ... 2168s Setting up bind9-host (1:9.18.24-0ubuntu3) ... 2168s Setting up python3-lib2to3 (3.12.2-3ubuntu1.1) ... 2168s Setting up python3-bpfcc (0.29.1+ds-1ubuntu4) ... 2168s Setting up libc-devtools (2.39-0ubuntu6) ... 2168s Setting up python3-pkg-resources (68.1.2-2ubuntu1) ... 2169s Setting up python3-distutils (3.12.2-3ubuntu1.1) ... 2169s python3.12: can't get files for byte-compilation 2169s Setting up openssh-sftp-server (1:9.6p1-3ubuntu11) ... 2169s Setting up linux-image-generic (6.8.0-20.20+1) ... 2169s Setting up python3-dbus (1.3.2-5build2) ... 2169s Setting up python3-setuptools (68.1.2-2ubuntu1) ... 2170s Setting up gpg-wks-client (2.4.4-2ubuntu15) ... 2170s Setting up openssh-server (1:9.6p1-3ubuntu11) ... 2170s Replacing config file /etc/ssh/sshd_config with new version 2172s Created symlink /etc/systemd/system/ssh.service.requires/ssh.socket → /usr/lib/systemd/system/ssh.socket. 2173s Setting up linux-generic (6.8.0-20.20+1) ... 2173s Setting up libblockdev-crypto3:s390x (3.1.0-1build1) ... 2173s Setting up python3-gdbm:s390x (3.12.2-3ubuntu1.1) ... 2173s Setting up python3-apt (2.7.7) ... 2173s Setting up libfwupd2:s390x (1.9.15-2) ... 2173s Setting up python3-yaml (6.0.1-2build1) ... 2174s Setting up libqmi-proxy (1.35.2-0ubuntu1) ... 2174s Setting up netplan.io (1.0-1) ... 2174s Setting up linux-virtual (6.8.0-20.20+1) ... 2174s Setting up bpfcc-tools (0.29.1+ds-1ubuntu4) ... 2174s Setting up bind9-dnsutils (1:9.18.24-0ubuntu3) ... 2174s Setting up ubuntu-pro-client (31.2.2) ... 2175s Setting up fwupd (1.9.15-2) ... 2176s fwupd-offline-update.service is a disabled or a static unit not running, not starting it. 2176s fwupd-refresh.service is a disabled or a static unit not running, not starting it. 2176s Setting up ubuntu-pro-client-l10n (31.2.2) ... 2176s Setting up udisks2 (2.10.1-6) ... 2177s Processing triggers for libc-bin (2.39-0ubuntu6) ... 2177s Processing triggers for ufw (0.36.2-5) ... 2177s Processing triggers for debianutils (5.17) ... 2177s Processing triggers for install-info (7.1-3build1) ... 2177s Processing triggers for initramfs-tools (0.142ubuntu23) ... 2177s update-initramfs: Generating /boot/initrd.img-6.8.0-11-generic 2177s W: No lz4 in /usr/bin:/sbin:/bin, using gzip 2181s Not invoking zipl: initrd doesn't exist yet 2181s Processing triggers for linux-image-6.8.0-20-generic (6.8.0-20.20) ... 2181s /etc/kernel/postinst.d/initramfs-tools: 2181s update-initramfs: Generating /boot/initrd.img-6.8.0-20-generic 2181s W: No lz4 in /usr/bin:/sbin:/bin, using gzip 2185s Using config file '/etc/zipl.conf' 2185s Building bootmap in '/boot' 2185s Adding IPL section 'ubuntu' (default) 2185s Preparing boot device for LD-IPL: sda. 2185s Done. 2185s /etc/kernel/postinst.d/zz-zipl: 2185s Using config file '/etc/zipl.conf' 2185s Building bootmap in '/boot' 2185s Adding IPL section 'ubuntu' (default) 2185s Preparing boot device for LD-IPL: sda. 2185s Done. 2187s Reading package lists... 2187s Building dependency tree... 2187s Reading state information... 2187s The following packages will be REMOVED: 2187s libaio1* libnetplan0* 2188s 0 upgraded, 0 newly installed, 2 to remove and 1 not upgraded. 2188s After this operation, 411 kB disk space will be freed. 2188s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 81395 files and directories currently installed.) 2188s Removing libaio1:s390x (0.3.113-5) ... 2188s Removing libnetplan0:s390x (0.107.1-3) ... 2188s Processing triggers for libc-bin (2.39-0ubuntu6) ... 2188s autopkgtest [01:03:08]: rebooting testbed after setup commands that affected boot 2385s autopkgtest-virt-ssh: WARNING: ssh connection failed. Retrying in 3 seconds... 2398s Reading package lists... 2398s Building dependency tree... 2398s Reading state information... 2398s Starting pkgProblemResolver with broken count: 0 2398s Starting 2 pkgProblemResolver with broken count: 0 2398s Done 2399s The following additional packages will be installed: 2399s build-essential cpp cpp-13 cpp-13-s390x-linux-gnu cpp-s390x-linux-gnu 2399s dctrl-tools fontconfig fonts-mathjax g++ g++-13 g++-13-s390x-linux-gnu 2399s g++-s390x-linux-gnu gcc gcc-13 gcc-13-base gcc-13-s390x-linux-gnu 2399s gcc-s390x-linux-gnu gfortran gfortran-13 gfortran-13-s390x-linux-gnu 2399s gfortran-s390x-linux-gnu icu-devtools libasan8 libatomic1 libblas-dev 2399s libblas3 libbz2-dev libcairo2 libcc1-0 libdatrie1 libgcc-13-dev 2399s libgfortran-13-dev libgfortran5 libgomp1 libgraphite2-3 libharfbuzz0b 2399s libice6 libicu-dev libisl23 libitm1 libjpeg-dev libjpeg-turbo8-dev 2399s libjpeg8-dev libjs-mathjax liblapack-dev liblapack3 liblzma-dev libmpc3 2399s libncurses-dev libpango-1.0-0 libpangocairo-1.0-0 libpangoft2-1.0-0 2399s libpaper-utils libpaper1 libpcre2-16-0 libpcre2-32-0 libpcre2-dev 2399s libpcre2-posix3 libpixman-1-0 libpkgconf3 libpng-dev libreadline-dev libsm6 2399s libstdc++-13-dev libtcl8.6 libthai-data libthai0 libtk8.6 libubsan1 2399s libxcb-render0 libxcb-shm0 libxft2 libxrender1 libxss1 libxt6t64 pkg-config 2399s pkg-r-autopkgtest pkgconf pkgconf-bin r-base-core r-base-dev 2399s r-cran-codetools r-cran-commonmark r-cran-digest r-cran-future 2399s r-cran-future.apply r-cran-globals r-cran-listenv r-cran-markdown 2399s r-cran-parallelly r-cran-xfun unzip x11-common xdg-utils zip zlib1g-dev 2399s Suggested packages: 2399s cpp-doc gcc-13-locales cpp-13-doc debtags g++-multilib g++-13-multilib 2399s gcc-13-doc gcc-multilib autoconf automake libtool flex bison gdb gcc-doc 2399s gcc-13-multilib gdb-s390x-linux-gnu gfortran-multilib gfortran-doc 2399s gfortran-13-multilib gfortran-13-doc libcoarrays-dev liblapack-doc icu-doc 2399s fonts-mathjax-extras fonts-stix libjs-mathjax-doc liblzma-doc ncurses-doc 2399s readline-doc libstdc++-13-doc tcl8.6 tk8.6 elpa-ess r-doc-info | r-doc-pdf 2399s r-mathlib r-base-html texlive-base texlive-latex-base texlive-plain-generic 2399s texlive-fonts-recommended texlive-fonts-extra texlive-extra-utils 2399s texlive-latex-recommended texlive-latex-extra texinfo 2399s Recommended packages: 2399s bzip2-doc libpng-tools r-recommended r-doc-html r-cran-curl r-cran-testthat 2399s r-cran-xml2 r-cran-rhpcblasctl r-cran-r.rsp r-cran-r.utils r-cran-knitr 2399s r-cran-rmarkdown r-cran-yaml r-cran-rcurl r-cran-testit r-cran-rstudioapi 2399s r-cran-tinytex r-cran-mime r-cran-htmltools r-cran-remotes r-cran-renv 2399s r-cran-jsonlite r-cran-magick libfile-mimeinfo-perl libnet-dbus-perl 2399s libx11-protocol-perl x11-utils x11-xserver-utils 2399s The following NEW packages will be installed: 2399s autopkgtest-satdep build-essential cpp cpp-13 cpp-13-s390x-linux-gnu 2399s cpp-s390x-linux-gnu dctrl-tools fontconfig fonts-mathjax g++ g++-13 2399s g++-13-s390x-linux-gnu g++-s390x-linux-gnu gcc gcc-13 gcc-13-base 2399s gcc-13-s390x-linux-gnu gcc-s390x-linux-gnu gfortran gfortran-13 2399s gfortran-13-s390x-linux-gnu gfortran-s390x-linux-gnu icu-devtools libasan8 2399s libatomic1 libblas-dev libblas3 libbz2-dev libcairo2 libcc1-0 libdatrie1 2399s libgcc-13-dev libgfortran-13-dev libgfortran5 libgomp1 libgraphite2-3 2399s libharfbuzz0b libice6 libicu-dev libisl23 libitm1 libjpeg-dev 2399s libjpeg-turbo8-dev libjpeg8-dev libjs-mathjax liblapack-dev liblapack3 2399s liblzma-dev libmpc3 libncurses-dev libpango-1.0-0 libpangocairo-1.0-0 2399s libpangoft2-1.0-0 libpaper-utils libpaper1 libpcre2-16-0 libpcre2-32-0 2399s libpcre2-dev libpcre2-posix3 libpixman-1-0 libpkgconf3 libpng-dev 2399s libreadline-dev libsm6 libstdc++-13-dev libtcl8.6 libthai-data libthai0 2399s libtk8.6 libubsan1 libxcb-render0 libxcb-shm0 libxft2 libxrender1 libxss1 2399s libxt6t64 pkg-config pkg-r-autopkgtest pkgconf pkgconf-bin r-base-core 2399s r-base-dev r-cran-codetools r-cran-commonmark r-cran-digest r-cran-future 2399s r-cran-future.apply r-cran-globals r-cran-listenv r-cran-markdown 2399s r-cran-parallelly r-cran-xfun unzip x11-common xdg-utils zip zlib1g-dev 2399s 0 upgraded, 97 newly installed, 0 to remove and 1 not upgraded. 2399s Need to get 129 MB/129 MB of archives. 2399s After this operation, 404 MB of additional disk space will be used. 2399s Get:1 /tmp/autopkgtest.ux1W3r/2-autopkgtest-satdep.deb autopkgtest-satdep s390x 0 [744 B] 2399s Get:2 http://ftpmaster.internal/ubuntu noble/main s390x gcc-13-base s390x 13.2.0-21ubuntu1 [48.3 kB] 2399s Get:3 http://ftpmaster.internal/ubuntu noble/main s390x libisl23 s390x 0.26-3 [722 kB] 2399s Get:4 http://ftpmaster.internal/ubuntu noble/main s390x libmpc3 s390x 1.3.1-1 [54.9 kB] 2399s Get:5 http://ftpmaster.internal/ubuntu noble/main s390x cpp-13-s390x-linux-gnu s390x 13.2.0-21ubuntu1 [9935 kB] 2400s Get:6 http://ftpmaster.internal/ubuntu noble/main s390x cpp-13 s390x 13.2.0-21ubuntu1 [1026 B] 2400s Get:7 http://ftpmaster.internal/ubuntu noble/main s390x cpp-s390x-linux-gnu s390x 4:13.2.0-7ubuntu1 [5308 B] 2400s Get:8 http://ftpmaster.internal/ubuntu noble/main s390x cpp s390x 4:13.2.0-7ubuntu1 [22.4 kB] 2400s Get:9 http://ftpmaster.internal/ubuntu noble/main s390x libcc1-0 s390x 14-20240315-1ubuntu1 [50.0 kB] 2400s Get:10 http://ftpmaster.internal/ubuntu noble/main s390x libgomp1 s390x 14-20240315-1ubuntu1 [151 kB] 2400s Get:11 http://ftpmaster.internal/ubuntu noble/main s390x libitm1 s390x 14-20240315-1ubuntu1 [31.1 kB] 2400s Get:12 http://ftpmaster.internal/ubuntu noble/main s390x libatomic1 s390x 14-20240315-1ubuntu1 [9396 B] 2400s Get:13 http://ftpmaster.internal/ubuntu noble/main s390x libasan8 s390x 14-20240315-1ubuntu1 [2997 kB] 2400s Get:14 http://ftpmaster.internal/ubuntu noble/main s390x libubsan1 s390x 14-20240315-1ubuntu1 [1186 kB] 2400s Get:15 http://ftpmaster.internal/ubuntu noble/main s390x libgcc-13-dev s390x 13.2.0-21ubuntu1 [1003 kB] 2400s Get:16 http://ftpmaster.internal/ubuntu noble/main s390x gcc-13-s390x-linux-gnu s390x 13.2.0-21ubuntu1 [19.1 MB] 2401s Get:17 http://ftpmaster.internal/ubuntu noble/main s390x gcc-13 s390x 13.2.0-21ubuntu1 [469 kB] 2401s Get:18 http://ftpmaster.internal/ubuntu noble/main s390x gcc-s390x-linux-gnu s390x 4:13.2.0-7ubuntu1 [1208 B] 2401s Get:19 http://ftpmaster.internal/ubuntu noble/main s390x gcc s390x 4:13.2.0-7ubuntu1 [5014 B] 2401s Get:20 http://ftpmaster.internal/ubuntu noble/main s390x libstdc++-13-dev s390x 13.2.0-21ubuntu1 [2494 kB] 2401s Get:21 http://ftpmaster.internal/ubuntu noble/main s390x g++-13-s390x-linux-gnu s390x 13.2.0-21ubuntu1 [11.3 MB] 2401s Get:22 http://ftpmaster.internal/ubuntu noble/main s390x g++-13 s390x 13.2.0-21ubuntu1 [14.4 kB] 2401s Get:23 http://ftpmaster.internal/ubuntu noble/main s390x g++-s390x-linux-gnu s390x 4:13.2.0-7ubuntu1 [956 B] 2401s Get:24 http://ftpmaster.internal/ubuntu noble/main s390x g++ s390x 4:13.2.0-7ubuntu1 [1096 B] 2401s Get:25 http://ftpmaster.internal/ubuntu noble/main s390x build-essential s390x 12.10ubuntu1 [4930 B] 2401s Get:26 http://ftpmaster.internal/ubuntu noble/main s390x dctrl-tools s390x 2.24-3build2 [65.4 kB] 2401s Get:27 http://ftpmaster.internal/ubuntu noble/main s390x fontconfig s390x 2.15.0-1.1ubuntu1 [191 kB] 2401s Get:28 http://ftpmaster.internal/ubuntu noble/main s390x fonts-mathjax all 2.7.9+dfsg-1 [2208 kB] 2401s Get:29 http://ftpmaster.internal/ubuntu noble/main s390x libgfortran5 s390x 14-20240315-1ubuntu1 [600 kB] 2401s Get:30 http://ftpmaster.internal/ubuntu noble/main s390x libgfortran-13-dev s390x 13.2.0-21ubuntu1 [623 kB] 2401s Get:31 http://ftpmaster.internal/ubuntu noble/main s390x gfortran-13-s390x-linux-gnu s390x 13.2.0-21ubuntu1 [10.4 MB] 2401s Get:32 http://ftpmaster.internal/ubuntu noble/main s390x gfortran-13 s390x 13.2.0-21ubuntu1 [10.9 kB] 2401s Get:33 http://ftpmaster.internal/ubuntu noble/main s390x gfortran-s390x-linux-gnu s390x 4:13.2.0-7ubuntu1 [1016 B] 2401s Get:34 http://ftpmaster.internal/ubuntu noble/main s390x gfortran s390x 4:13.2.0-7ubuntu1 [1174 B] 2401s Get:35 http://ftpmaster.internal/ubuntu noble/main s390x icu-devtools s390x 74.2-1ubuntu1 [224 kB] 2401s Get:36 http://ftpmaster.internal/ubuntu noble/main s390x libblas3 s390x 3.12.0-3 [245 kB] 2401s Get:37 http://ftpmaster.internal/ubuntu noble/main s390x libblas-dev s390x 3.12.0-3 [239 kB] 2401s Get:38 http://ftpmaster.internal/ubuntu noble/main s390x libbz2-dev s390x 1.0.8-5ubuntu1 [39.4 kB] 2401s Get:39 http://ftpmaster.internal/ubuntu noble/main s390x libpixman-1-0 s390x 0.42.2-1 [173 kB] 2401s Get:40 http://ftpmaster.internal/ubuntu noble/main s390x libxcb-render0 s390x 1.15-1 [17.0 kB] 2401s Get:41 http://ftpmaster.internal/ubuntu noble/main s390x libxcb-shm0 s390x 1.15-1 [5782 B] 2401s Get:42 http://ftpmaster.internal/ubuntu noble/main s390x libxrender1 s390x 1:0.9.10-1.1 [19.4 kB] 2401s Get:43 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libcairo2 s390x 1.18.0-1ubuntu1 [589 kB] 2401s Get:44 http://ftpmaster.internal/ubuntu noble/main s390x libdatrie1 s390x 0.2.13-3 [22.6 kB] 2401s Get:45 http://ftpmaster.internal/ubuntu noble/main s390x libgraphite2-3 s390x 1.3.14-2 [90.4 kB] 2401s Get:46 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libharfbuzz0b s390x 8.3.0-2build1 [515 kB] 2401s Get:47 http://ftpmaster.internal/ubuntu noble/main s390x x11-common all 1:7.7+23ubuntu2 [23.4 kB] 2401s Get:48 http://ftpmaster.internal/ubuntu noble/main s390x libice6 s390x 2:1.0.10-1build2 [40.8 kB] 2401s Get:49 http://ftpmaster.internal/ubuntu noble/main s390x libicu-dev s390x 74.2-1ubuntu1 [11.9 MB] 2402s Get:50 http://ftpmaster.internal/ubuntu noble/main s390x libjpeg-turbo8-dev s390x 2.1.5-2ubuntu1 [264 kB] 2402s Get:51 http://ftpmaster.internal/ubuntu noble/main s390x libjpeg8-dev s390x 8c-2ubuntu11 [1484 B] 2402s Get:52 http://ftpmaster.internal/ubuntu noble/main s390x libjpeg-dev s390x 8c-2ubuntu11 [1484 B] 2402s Get:53 http://ftpmaster.internal/ubuntu noble/main s390x liblapack3 s390x 3.12.0-3 [2979 kB] 2402s Get:54 http://ftpmaster.internal/ubuntu noble/main s390x liblapack-dev s390x 3.12.0-3 [5983 kB] 2402s Get:55 http://ftpmaster.internal/ubuntu noble/main s390x libncurses-dev s390x 6.4+20240113-1ubuntu1 [412 kB] 2402s Get:56 http://ftpmaster.internal/ubuntu noble/main s390x libthai-data all 0.1.29-2 [158 kB] 2402s Get:57 http://ftpmaster.internal/ubuntu noble/main s390x libthai0 s390x 0.1.29-2 [20.6 kB] 2402s Get:58 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libpango-1.0-0 s390x 1.52.1+ds-1 [242 kB] 2402s Get:59 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libpangoft2-1.0-0 s390x 1.52.1+ds-1 [44.2 kB] 2402s Get:60 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libpangocairo-1.0-0 s390x 1.52.1+ds-1 [28.7 kB] 2402s Get:61 http://ftpmaster.internal/ubuntu noble/main s390x libpaper1 s390x 1.1.29 [13.3 kB] 2402s Get:62 http://ftpmaster.internal/ubuntu noble/main s390x libpaper-utils s390x 1.1.29 [8452 B] 2402s Get:63 http://ftpmaster.internal/ubuntu noble/main s390x libpcre2-16-0 s390x 10.42-4ubuntu1 [229 kB] 2402s Get:64 http://ftpmaster.internal/ubuntu noble/main s390x libpcre2-32-0 s390x 10.42-4ubuntu1 [217 kB] 2402s Get:65 http://ftpmaster.internal/ubuntu noble/main s390x libpcre2-posix3 s390x 10.42-4ubuntu1 [6704 B] 2402s Get:66 http://ftpmaster.internal/ubuntu noble/main s390x libpcre2-dev s390x 10.42-4ubuntu1 [805 kB] 2402s Get:67 http://ftpmaster.internal/ubuntu noble/main s390x libpkgconf3 s390x 1.8.1-2 [30.4 kB] 2402s Get:68 http://ftpmaster.internal/ubuntu noble-proposed/main s390x zlib1g-dev s390x 1:1.3.dfsg-3.1ubuntu1 [904 kB] 2402s Get:69 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libpng-dev s390x 1.6.43-3 [277 kB] 2402s Get:70 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libreadline-dev s390x 8.2-4 [189 kB] 2402s Get:71 http://ftpmaster.internal/ubuntu noble/main s390x libsm6 s390x 2:1.2.3-1build2 [16.9 kB] 2402s Get:72 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libtcl8.6 s390x 8.6.14+dfsg-1 [1037 kB] 2402s Get:73 http://ftpmaster.internal/ubuntu noble/main s390x libxft2 s390x 2.3.6-1 [44.3 kB] 2402s Get:74 http://ftpmaster.internal/ubuntu noble/main s390x libxss1 s390x 1:1.2.3-1build2 [8192 B] 2402s Get:75 http://ftpmaster.internal/ubuntu noble/main s390x libtk8.6 s390x 8.6.14-1 [833 kB] 2402s Get:76 http://ftpmaster.internal/ubuntu noble-proposed/main s390x libxt6t64 s390x 1:1.2.1-1.2 [184 kB] 2402s Get:77 http://ftpmaster.internal/ubuntu noble/main s390x pkgconf-bin s390x 1.8.1-2 [20.8 kB] 2402s Get:78 http://ftpmaster.internal/ubuntu noble/main s390x pkgconf s390x 1.8.1-2 [16.7 kB] 2402s Get:79 http://ftpmaster.internal/ubuntu noble/main s390x pkg-config s390x 1.8.1-2 [7170 B] 2402s Get:80 http://ftpmaster.internal/ubuntu noble/main s390x zip s390x 3.0-13 [175 kB] 2402s Get:81 http://ftpmaster.internal/ubuntu noble/main s390x unzip s390x 6.0-28ubuntu3 [180 kB] 2402s Get:82 http://ftpmaster.internal/ubuntu noble/main s390x xdg-utils all 1.1.3-4.1ubuntu3 [62.0 kB] 2402s Get:83 http://ftpmaster.internal/ubuntu noble-proposed/universe s390x r-base-core s390x 4.3.3-2build1 [27.1 MB] 2403s Get:84 http://ftpmaster.internal/ubuntu noble-proposed/main s390x liblzma-dev s390x 5.6.0-0.2 [185 kB] 2403s Get:85 http://ftpmaster.internal/ubuntu noble-proposed/universe s390x r-base-dev all 4.3.3-2build1 [4334 B] 2403s Get:86 http://ftpmaster.internal/ubuntu noble/universe s390x pkg-r-autopkgtest all 20231212ubuntu1 [6448 B] 2403s Get:87 http://ftpmaster.internal/ubuntu noble/universe s390x r-cran-codetools all 0.2-19-1 [90.5 kB] 2403s Get:88 http://ftpmaster.internal/ubuntu noble/universe s390x r-cran-commonmark s390x 1.9.1-1 [142 kB] 2403s Get:89 http://ftpmaster.internal/ubuntu noble/universe s390x r-cran-digest s390x 0.6.34-1 [187 kB] 2403s Get:90 http://ftpmaster.internal/ubuntu noble/universe s390x r-cran-globals all 0.16.2-1 [117 kB] 2403s Get:91 http://ftpmaster.internal/ubuntu noble/universe s390x r-cran-listenv all 0.9.1+dfsg-1 [112 kB] 2403s Get:92 http://ftpmaster.internal/ubuntu noble/universe s390x r-cran-parallelly s390x 1.37.1-1 [365 kB] 2403s Get:93 http://ftpmaster.internal/ubuntu noble/universe s390x r-cran-future all 1.33.1+dfsg-1 [634 kB] 2403s Get:94 http://ftpmaster.internal/ubuntu noble/universe s390x r-cran-future.apply all 1.11.1+dfsg-1 [171 kB] 2403s Get:95 http://ftpmaster.internal/ubuntu noble/universe s390x r-cran-xfun s390x 0.41+dfsg-1 [415 kB] 2403s Get:96 http://ftpmaster.internal/ubuntu noble/main s390x libjs-mathjax all 2.7.9+dfsg-1 [5665 kB] 2403s Get:97 http://ftpmaster.internal/ubuntu noble/universe s390x r-cran-markdown all 1.12+dfsg-1 [179 kB] 2404s Preconfiguring packages ... 2404s Fetched 129 MB in 4s (29.0 MB/s) 2404s Selecting previously unselected package gcc-13-base:s390x. 2404s (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 81386 files and directories currently installed.) 2404s Preparing to unpack .../00-gcc-13-base_13.2.0-21ubuntu1_s390x.deb ... 2404s Unpacking gcc-13-base:s390x (13.2.0-21ubuntu1) ... 2404s Selecting previously unselected package libisl23:s390x. 2404s Preparing to unpack .../01-libisl23_0.26-3_s390x.deb ... 2404s Unpacking libisl23:s390x (0.26-3) ... 2404s Selecting previously unselected package libmpc3:s390x. 2404s Preparing to unpack .../02-libmpc3_1.3.1-1_s390x.deb ... 2404s Unpacking libmpc3:s390x (1.3.1-1) ... 2404s Selecting previously unselected package cpp-13-s390x-linux-gnu. 2404s Preparing to unpack .../03-cpp-13-s390x-linux-gnu_13.2.0-21ubuntu1_s390x.deb ... 2404s Unpacking cpp-13-s390x-linux-gnu (13.2.0-21ubuntu1) ... 2405s Selecting previously unselected package cpp-13. 2405s Preparing to unpack .../04-cpp-13_13.2.0-21ubuntu1_s390x.deb ... 2405s Unpacking cpp-13 (13.2.0-21ubuntu1) ... 2405s Selecting previously unselected package cpp-s390x-linux-gnu. 2405s Preparing to unpack .../05-cpp-s390x-linux-gnu_4%3a13.2.0-7ubuntu1_s390x.deb ... 2405s Unpacking cpp-s390x-linux-gnu (4:13.2.0-7ubuntu1) ... 2405s Selecting previously unselected package cpp. 2405s Preparing to unpack .../06-cpp_4%3a13.2.0-7ubuntu1_s390x.deb ... 2405s Unpacking cpp (4:13.2.0-7ubuntu1) ... 2405s Selecting previously unselected package libcc1-0:s390x. 2405s Preparing to unpack .../07-libcc1-0_14-20240315-1ubuntu1_s390x.deb ... 2405s Unpacking libcc1-0:s390x (14-20240315-1ubuntu1) ... 2405s Selecting previously unselected package libgomp1:s390x. 2405s Preparing to unpack .../08-libgomp1_14-20240315-1ubuntu1_s390x.deb ... 2405s Unpacking libgomp1:s390x (14-20240315-1ubuntu1) ... 2405s Selecting previously unselected package libitm1:s390x. 2405s Preparing to unpack .../09-libitm1_14-20240315-1ubuntu1_s390x.deb ... 2405s Unpacking libitm1:s390x (14-20240315-1ubuntu1) ... 2405s Selecting previously unselected package libatomic1:s390x. 2405s Preparing to unpack .../10-libatomic1_14-20240315-1ubuntu1_s390x.deb ... 2405s Unpacking libatomic1:s390x (14-20240315-1ubuntu1) ... 2405s Selecting previously unselected package libasan8:s390x. 2405s Preparing to unpack .../11-libasan8_14-20240315-1ubuntu1_s390x.deb ... 2405s Unpacking libasan8:s390x (14-20240315-1ubuntu1) ... 2405s Selecting previously unselected package libubsan1:s390x. 2405s Preparing to unpack .../12-libubsan1_14-20240315-1ubuntu1_s390x.deb ... 2405s Unpacking libubsan1:s390x (14-20240315-1ubuntu1) ... 2405s Selecting previously unselected package libgcc-13-dev:s390x. 2405s Preparing to unpack .../13-libgcc-13-dev_13.2.0-21ubuntu1_s390x.deb ... 2405s Unpacking libgcc-13-dev:s390x (13.2.0-21ubuntu1) ... 2405s Selecting previously unselected package gcc-13-s390x-linux-gnu. 2405s Preparing to unpack .../14-gcc-13-s390x-linux-gnu_13.2.0-21ubuntu1_s390x.deb ... 2405s Unpacking gcc-13-s390x-linux-gnu (13.2.0-21ubuntu1) ... 2405s Selecting previously unselected package gcc-13. 2405s Preparing to unpack .../15-gcc-13_13.2.0-21ubuntu1_s390x.deb ... 2405s Unpacking gcc-13 (13.2.0-21ubuntu1) ... 2405s Selecting previously unselected package gcc-s390x-linux-gnu. 2405s Preparing to unpack .../16-gcc-s390x-linux-gnu_4%3a13.2.0-7ubuntu1_s390x.deb ... 2405s Unpacking gcc-s390x-linux-gnu (4:13.2.0-7ubuntu1) ... 2405s Selecting previously unselected package gcc. 2405s Preparing to unpack .../17-gcc_4%3a13.2.0-7ubuntu1_s390x.deb ... 2405s Unpacking gcc (4:13.2.0-7ubuntu1) ... 2405s Selecting previously unselected package libstdc++-13-dev:s390x. 2405s Preparing to unpack .../18-libstdc++-13-dev_13.2.0-21ubuntu1_s390x.deb ... 2405s Unpacking libstdc++-13-dev:s390x (13.2.0-21ubuntu1) ... 2406s Selecting previously unselected package g++-13-s390x-linux-gnu. 2406s Preparing to unpack .../19-g++-13-s390x-linux-gnu_13.2.0-21ubuntu1_s390x.deb ... 2406s Unpacking g++-13-s390x-linux-gnu (13.2.0-21ubuntu1) ... 2406s Selecting previously unselected package g++-13. 2406s Preparing to unpack .../20-g++-13_13.2.0-21ubuntu1_s390x.deb ... 2406s Unpacking g++-13 (13.2.0-21ubuntu1) ... 2406s Selecting previously unselected package g++-s390x-linux-gnu. 2406s Preparing to unpack .../21-g++-s390x-linux-gnu_4%3a13.2.0-7ubuntu1_s390x.deb ... 2406s Unpacking g++-s390x-linux-gnu (4:13.2.0-7ubuntu1) ... 2406s Selecting previously unselected package g++. 2406s Preparing to unpack .../22-g++_4%3a13.2.0-7ubuntu1_s390x.deb ... 2406s Unpacking g++ (4:13.2.0-7ubuntu1) ... 2406s Selecting previously unselected package build-essential. 2406s Preparing to unpack .../23-build-essential_12.10ubuntu1_s390x.deb ... 2406s Unpacking build-essential (12.10ubuntu1) ... 2406s Selecting previously unselected package dctrl-tools. 2406s Preparing to unpack .../24-dctrl-tools_2.24-3build2_s390x.deb ... 2406s Unpacking dctrl-tools (2.24-3build2) ... 2406s Selecting previously unselected package fontconfig. 2406s Preparing to unpack .../25-fontconfig_2.15.0-1.1ubuntu1_s390x.deb ... 2406s Unpacking fontconfig (2.15.0-1.1ubuntu1) ... 2406s Selecting previously unselected package fonts-mathjax. 2406s Preparing to unpack .../26-fonts-mathjax_2.7.9+dfsg-1_all.deb ... 2406s Unpacking fonts-mathjax (2.7.9+dfsg-1) ... 2406s Selecting previously unselected package libgfortran5:s390x. 2406s Preparing to unpack .../27-libgfortran5_14-20240315-1ubuntu1_s390x.deb ... 2406s Unpacking libgfortran5:s390x (14-20240315-1ubuntu1) ... 2407s Selecting previously unselected package libgfortran-13-dev:s390x. 2407s Preparing to unpack .../28-libgfortran-13-dev_13.2.0-21ubuntu1_s390x.deb ... 2407s Unpacking libgfortran-13-dev:s390x (13.2.0-21ubuntu1) ... 2407s Selecting previously unselected package gfortran-13-s390x-linux-gnu. 2407s Preparing to unpack .../29-gfortran-13-s390x-linux-gnu_13.2.0-21ubuntu1_s390x.deb ... 2407s Unpacking gfortran-13-s390x-linux-gnu (13.2.0-21ubuntu1) ... 2407s Selecting previously unselected package gfortran-13. 2407s Preparing to unpack .../30-gfortran-13_13.2.0-21ubuntu1_s390x.deb ... 2407s Unpacking gfortran-13 (13.2.0-21ubuntu1) ... 2407s Selecting previously unselected package gfortran-s390x-linux-gnu. 2407s Preparing to unpack .../31-gfortran-s390x-linux-gnu_4%3a13.2.0-7ubuntu1_s390x.deb ... 2407s Unpacking gfortran-s390x-linux-gnu (4:13.2.0-7ubuntu1) ... 2407s Selecting previously unselected package gfortran. 2407s Preparing to unpack .../32-gfortran_4%3a13.2.0-7ubuntu1_s390x.deb ... 2407s Unpacking gfortran (4:13.2.0-7ubuntu1) ... 2407s Selecting previously unselected package icu-devtools. 2407s Preparing to unpack .../33-icu-devtools_74.2-1ubuntu1_s390x.deb ... 2407s Unpacking icu-devtools (74.2-1ubuntu1) ... 2407s Selecting previously unselected package libblas3:s390x. 2407s Preparing to unpack .../34-libblas3_3.12.0-3_s390x.deb ... 2407s Unpacking libblas3:s390x (3.12.0-3) ... 2407s Selecting previously unselected package libblas-dev:s390x. 2407s Preparing to unpack .../35-libblas-dev_3.12.0-3_s390x.deb ... 2407s Unpacking libblas-dev:s390x (3.12.0-3) ... 2407s Selecting previously unselected package libbz2-dev:s390x. 2407s Preparing to unpack .../36-libbz2-dev_1.0.8-5ubuntu1_s390x.deb ... 2407s Unpacking libbz2-dev:s390x (1.0.8-5ubuntu1) ... 2407s Selecting previously unselected package libpixman-1-0:s390x. 2407s Preparing to unpack .../37-libpixman-1-0_0.42.2-1_s390x.deb ... 2407s Unpacking libpixman-1-0:s390x (0.42.2-1) ... 2407s Selecting previously unselected package libxcb-render0:s390x. 2407s Preparing to unpack .../38-libxcb-render0_1.15-1_s390x.deb ... 2407s Unpacking libxcb-render0:s390x (1.15-1) ... 2407s Selecting previously unselected package libxcb-shm0:s390x. 2407s Preparing to unpack .../39-libxcb-shm0_1.15-1_s390x.deb ... 2407s Unpacking libxcb-shm0:s390x (1.15-1) ... 2407s Selecting previously unselected package libxrender1:s390x. 2407s Preparing to unpack .../40-libxrender1_1%3a0.9.10-1.1_s390x.deb ... 2407s Unpacking libxrender1:s390x (1:0.9.10-1.1) ... 2407s Selecting previously unselected package libcairo2:s390x. 2407s Preparing to unpack .../41-libcairo2_1.18.0-1ubuntu1_s390x.deb ... 2407s Unpacking libcairo2:s390x (1.18.0-1ubuntu1) ... 2407s Selecting previously unselected package libdatrie1:s390x. 2407s Preparing to unpack .../42-libdatrie1_0.2.13-3_s390x.deb ... 2407s Unpacking libdatrie1:s390x (0.2.13-3) ... 2407s Selecting previously unselected package libgraphite2-3:s390x. 2407s Preparing to unpack .../43-libgraphite2-3_1.3.14-2_s390x.deb ... 2407s Unpacking libgraphite2-3:s390x (1.3.14-2) ... 2407s Selecting previously unselected package libharfbuzz0b:s390x. 2407s Preparing to unpack .../44-libharfbuzz0b_8.3.0-2build1_s390x.deb ... 2407s Unpacking libharfbuzz0b:s390x (8.3.0-2build1) ... 2407s Selecting previously unselected package x11-common. 2407s Preparing to unpack .../45-x11-common_1%3a7.7+23ubuntu2_all.deb ... 2407s Unpacking x11-common (1:7.7+23ubuntu2) ... 2407s Selecting previously unselected package libice6:s390x. 2407s Preparing to unpack .../46-libice6_2%3a1.0.10-1build2_s390x.deb ... 2407s Unpacking libice6:s390x (2:1.0.10-1build2) ... 2407s Selecting previously unselected package libicu-dev:s390x. 2407s Preparing to unpack .../47-libicu-dev_74.2-1ubuntu1_s390x.deb ... 2407s Unpacking libicu-dev:s390x (74.2-1ubuntu1) ... 2408s Selecting previously unselected package libjpeg-turbo8-dev:s390x. 2408s Preparing to unpack .../48-libjpeg-turbo8-dev_2.1.5-2ubuntu1_s390x.deb ... 2408s Unpacking libjpeg-turbo8-dev:s390x (2.1.5-2ubuntu1) ... 2408s Selecting previously unselected package libjpeg8-dev:s390x. 2408s Preparing to unpack .../49-libjpeg8-dev_8c-2ubuntu11_s390x.deb ... 2408s Unpacking libjpeg8-dev:s390x (8c-2ubuntu11) ... 2408s Selecting previously unselected package libjpeg-dev:s390x. 2408s Preparing to unpack .../50-libjpeg-dev_8c-2ubuntu11_s390x.deb ... 2408s Unpacking libjpeg-dev:s390x (8c-2ubuntu11) ... 2408s Selecting previously unselected package liblapack3:s390x. 2408s Preparing to unpack .../51-liblapack3_3.12.0-3_s390x.deb ... 2408s Unpacking liblapack3:s390x (3.12.0-3) ... 2408s Selecting previously unselected package liblapack-dev:s390x. 2408s Preparing to unpack .../52-liblapack-dev_3.12.0-3_s390x.deb ... 2408s Unpacking liblapack-dev:s390x (3.12.0-3) ... 2408s Selecting previously unselected package libncurses-dev:s390x. 2408s Preparing to unpack .../53-libncurses-dev_6.4+20240113-1ubuntu1_s390x.deb ... 2408s Unpacking libncurses-dev:s390x (6.4+20240113-1ubuntu1) ... 2408s Selecting previously unselected package libthai-data. 2408s Preparing to unpack .../54-libthai-data_0.1.29-2_all.deb ... 2408s Unpacking libthai-data (0.1.29-2) ... 2408s Selecting previously unselected package libthai0:s390x. 2408s Preparing to unpack .../55-libthai0_0.1.29-2_s390x.deb ... 2408s Unpacking libthai0:s390x (0.1.29-2) ... 2408s Selecting previously unselected package libpango-1.0-0:s390x. 2408s Preparing to unpack .../56-libpango-1.0-0_1.52.1+ds-1_s390x.deb ... 2408s Unpacking libpango-1.0-0:s390x (1.52.1+ds-1) ... 2408s Selecting previously unselected package libpangoft2-1.0-0:s390x. 2408s Preparing to unpack .../57-libpangoft2-1.0-0_1.52.1+ds-1_s390x.deb ... 2408s Unpacking libpangoft2-1.0-0:s390x (1.52.1+ds-1) ... 2408s Selecting previously unselected package libpangocairo-1.0-0:s390x. 2408s Preparing to unpack .../58-libpangocairo-1.0-0_1.52.1+ds-1_s390x.deb ... 2408s Unpacking libpangocairo-1.0-0:s390x (1.52.1+ds-1) ... 2408s Selecting previously unselected package libpaper1:s390x. 2408s Preparing to unpack .../59-libpaper1_1.1.29_s390x.deb ... 2408s Unpacking libpaper1:s390x (1.1.29) ... 2408s Selecting previously unselected package libpaper-utils. 2408s Preparing to unpack .../60-libpaper-utils_1.1.29_s390x.deb ... 2408s Unpacking libpaper-utils (1.1.29) ... 2408s Selecting previously unselected package libpcre2-16-0:s390x. 2408s Preparing to unpack .../61-libpcre2-16-0_10.42-4ubuntu1_s390x.deb ... 2408s Unpacking libpcre2-16-0:s390x (10.42-4ubuntu1) ... 2408s Selecting previously unselected package libpcre2-32-0:s390x. 2408s Preparing to unpack .../62-libpcre2-32-0_10.42-4ubuntu1_s390x.deb ... 2408s Unpacking libpcre2-32-0:s390x (10.42-4ubuntu1) ... 2408s Selecting previously unselected package libpcre2-posix3:s390x. 2408s Preparing to unpack .../63-libpcre2-posix3_10.42-4ubuntu1_s390x.deb ... 2408s Unpacking libpcre2-posix3:s390x (10.42-4ubuntu1) ... 2408s Selecting previously unselected package libpcre2-dev:s390x. 2408s Preparing to unpack .../64-libpcre2-dev_10.42-4ubuntu1_s390x.deb ... 2408s Unpacking libpcre2-dev:s390x (10.42-4ubuntu1) ... 2408s Selecting previously unselected package libpkgconf3:s390x. 2408s Preparing to unpack .../65-libpkgconf3_1.8.1-2_s390x.deb ... 2408s Unpacking libpkgconf3:s390x (1.8.1-2) ... 2408s Selecting previously unselected package zlib1g-dev:s390x. 2408s Preparing to unpack .../66-zlib1g-dev_1%3a1.3.dfsg-3.1ubuntu1_s390x.deb ... 2408s Unpacking zlib1g-dev:s390x (1:1.3.dfsg-3.1ubuntu1) ... 2408s Selecting previously unselected package libpng-dev:s390x. 2408s Preparing to unpack .../67-libpng-dev_1.6.43-3_s390x.deb ... 2408s Unpacking libpng-dev:s390x (1.6.43-3) ... 2408s Selecting previously unselected package libreadline-dev:s390x. 2408s Preparing to unpack .../68-libreadline-dev_8.2-4_s390x.deb ... 2408s Unpacking libreadline-dev:s390x (8.2-4) ... 2408s Selecting previously unselected package libsm6:s390x. 2408s Preparing to unpack .../69-libsm6_2%3a1.2.3-1build2_s390x.deb ... 2408s Unpacking libsm6:s390x (2:1.2.3-1build2) ... 2408s Selecting previously unselected package libtcl8.6:s390x. 2408s Preparing to unpack .../70-libtcl8.6_8.6.14+dfsg-1_s390x.deb ... 2408s Unpacking libtcl8.6:s390x (8.6.14+dfsg-1) ... 2408s Selecting previously unselected package libxft2:s390x. 2408s Preparing to unpack .../71-libxft2_2.3.6-1_s390x.deb ... 2408s Unpacking libxft2:s390x (2.3.6-1) ... 2408s Selecting previously unselected package libxss1:s390x. 2408s Preparing to unpack .../72-libxss1_1%3a1.2.3-1build2_s390x.deb ... 2408s Unpacking libxss1:s390x (1:1.2.3-1build2) ... 2408s Selecting previously unselected package libtk8.6:s390x. 2408s Preparing to unpack .../73-libtk8.6_8.6.14-1_s390x.deb ... 2408s Unpacking libtk8.6:s390x (8.6.14-1) ... 2408s Selecting previously unselected package libxt6t64:s390x. 2408s Preparing to unpack .../74-libxt6t64_1%3a1.2.1-1.2_s390x.deb ... 2408s Unpacking libxt6t64:s390x (1:1.2.1-1.2) ... 2408s Selecting previously unselected package pkgconf-bin. 2408s Preparing to unpack .../75-pkgconf-bin_1.8.1-2_s390x.deb ... 2408s Unpacking pkgconf-bin (1.8.1-2) ... 2408s Selecting previously unselected package pkgconf:s390x. 2408s Preparing to unpack .../76-pkgconf_1.8.1-2_s390x.deb ... 2408s Unpacking pkgconf:s390x (1.8.1-2) ... 2408s Selecting previously unselected package pkg-config:s390x. 2409s Preparing to unpack .../77-pkg-config_1.8.1-2_s390x.deb ... 2409s Unpacking pkg-config:s390x (1.8.1-2) ... 2409s Selecting previously unselected package zip. 2409s Preparing to unpack .../78-zip_3.0-13_s390x.deb ... 2409s Unpacking zip (3.0-13) ... 2409s Selecting previously unselected package unzip. 2409s Preparing to unpack .../79-unzip_6.0-28ubuntu3_s390x.deb ... 2409s Unpacking unzip (6.0-28ubuntu3) ... 2409s Selecting previously unselected package xdg-utils. 2409s Preparing to unpack .../80-xdg-utils_1.1.3-4.1ubuntu3_all.deb ... 2409s Unpacking xdg-utils (1.1.3-4.1ubuntu3) ... 2409s Selecting previously unselected package r-base-core. 2409s Preparing to unpack .../81-r-base-core_4.3.3-2build1_s390x.deb ... 2409s Unpacking r-base-core (4.3.3-2build1) ... 2409s Selecting previously unselected package liblzma-dev:s390x. 2409s Preparing to unpack .../82-liblzma-dev_5.6.0-0.2_s390x.deb ... 2409s Unpacking liblzma-dev:s390x (5.6.0-0.2) ... 2409s Selecting previously unselected package r-base-dev. 2409s Preparing to unpack .../83-r-base-dev_4.3.3-2build1_all.deb ... 2409s Unpacking r-base-dev (4.3.3-2build1) ... 2409s Selecting previously unselected package pkg-r-autopkgtest. 2409s Preparing to unpack .../84-pkg-r-autopkgtest_20231212ubuntu1_all.deb ... 2409s Unpacking pkg-r-autopkgtest (20231212ubuntu1) ... 2409s Selecting previously unselected package r-cran-codetools. 2409s Preparing to unpack .../85-r-cran-codetools_0.2-19-1_all.deb ... 2409s Unpacking r-cran-codetools (0.2-19-1) ... 2409s Selecting previously unselected package r-cran-commonmark. 2409s Preparing to unpack .../86-r-cran-commonmark_1.9.1-1_s390x.deb ... 2409s Unpacking r-cran-commonmark (1.9.1-1) ... 2409s Selecting previously unselected package r-cran-digest. 2409s Preparing to unpack .../87-r-cran-digest_0.6.34-1_s390x.deb ... 2409s Unpacking r-cran-digest (0.6.34-1) ... 2409s Selecting previously unselected package r-cran-globals. 2409s Preparing to unpack .../88-r-cran-globals_0.16.2-1_all.deb ... 2409s Unpacking r-cran-globals (0.16.2-1) ... 2409s Selecting previously unselected package r-cran-listenv. 2409s Preparing to unpack .../89-r-cran-listenv_0.9.1+dfsg-1_all.deb ... 2409s Unpacking r-cran-listenv (0.9.1+dfsg-1) ... 2409s Selecting previously unselected package r-cran-parallelly. 2409s Preparing to unpack .../90-r-cran-parallelly_1.37.1-1_s390x.deb ... 2409s Unpacking r-cran-parallelly (1.37.1-1) ... 2409s Selecting previously unselected package r-cran-future. 2409s Preparing to unpack .../91-r-cran-future_1.33.1+dfsg-1_all.deb ... 2409s Unpacking r-cran-future (1.33.1+dfsg-1) ... 2409s Selecting previously unselected package r-cran-future.apply. 2409s Preparing to unpack .../92-r-cran-future.apply_1.11.1+dfsg-1_all.deb ... 2409s Unpacking r-cran-future.apply (1.11.1+dfsg-1) ... 2409s Selecting previously unselected package r-cran-xfun. 2409s Preparing to unpack .../93-r-cran-xfun_0.41+dfsg-1_s390x.deb ... 2409s Unpacking r-cran-xfun (0.41+dfsg-1) ... 2409s Selecting previously unselected package libjs-mathjax. 2409s Preparing to unpack .../94-libjs-mathjax_2.7.9+dfsg-1_all.deb ... 2409s Unpacking libjs-mathjax (2.7.9+dfsg-1) ... 2411s Selecting previously unselected package r-cran-markdown. 2411s Preparing to unpack .../95-r-cran-markdown_1.12+dfsg-1_all.deb ... 2411s Unpacking r-cran-markdown (1.12+dfsg-1) ... 2411s Selecting previously unselected package autopkgtest-satdep. 2411s Preparing to unpack .../96-2-autopkgtest-satdep.deb ... 2411s Unpacking autopkgtest-satdep (0) ... 2411s Setting up libgraphite2-3:s390x (1.3.14-2) ... 2411s Setting up libpixman-1-0:s390x (0.42.2-1) ... 2411s Setting up libpaper1:s390x (1.1.29) ... 2411s 2411s Creating config file /etc/papersize with new version 2411s Setting up fontconfig (2.15.0-1.1ubuntu1) ... 2413s Regenerating fonts cache... done. 2413s Setting up libjpeg-turbo8-dev:s390x (2.1.5-2ubuntu1) ... 2413s Setting up libncurses-dev:s390x (6.4+20240113-1ubuntu1) ... 2413s Setting up fonts-mathjax (2.7.9+dfsg-1) ... 2413s Setting up libjs-mathjax (2.7.9+dfsg-1) ... 2413s Setting up libxrender1:s390x (1:0.9.10-1.1) ... 2413s Setting up libdatrie1:s390x (0.2.13-3) ... 2413s Setting up libxcb-render0:s390x (1.15-1) ... 2413s Setting up unzip (6.0-28ubuntu3) ... 2413s Setting up x11-common (1:7.7+23ubuntu2) ... 2413s Setting up libxcb-shm0:s390x (1.15-1) ... 2413s Setting up libpaper-utils (1.1.29) ... 2413s Setting up libreadline-dev:s390x (8.2-4) ... 2413s Setting up libgomp1:s390x (14-20240315-1ubuntu1) ... 2413s Setting up libcairo2:s390x (1.18.0-1ubuntu1) ... 2413s Setting up libpcre2-16-0:s390x (10.42-4ubuntu1) ... 2413s Setting up zip (3.0-13) ... 2413s Setting up libpcre2-32-0:s390x (10.42-4ubuntu1) ... 2413s Setting up libblas3:s390x (3.12.0-3) ... 2413s update-alternatives: using /usr/lib/s390x-linux-gnu/blas/libblas.so.3 to provide /usr/lib/s390x-linux-gnu/libblas.so.3 (libblas.so.3-s390x-linux-gnu) in auto mode 2413s Setting up libpkgconf3:s390x (1.8.1-2) ... 2413s Setting up gcc-13-base:s390x (13.2.0-21ubuntu1) ... 2413s Setting up libmpc3:s390x (1.3.1-1) ... 2413s Setting up libatomic1:s390x (14-20240315-1ubuntu1) ... 2413s Setting up libtcl8.6:s390x (8.6.14+dfsg-1) ... 2413s Setting up icu-devtools (74.2-1ubuntu1) ... 2413s Setting up pkgconf-bin (1.8.1-2) ... 2413s Setting up libgfortran5:s390x (14-20240315-1ubuntu1) ... 2413s Setting up liblzma-dev:s390x (5.6.0-0.2) ... 2413s Setting up libubsan1:s390x (14-20240315-1ubuntu1) ... 2413s Setting up zlib1g-dev:s390x (1:1.3.dfsg-3.1ubuntu1) ... 2413s Setting up libpcre2-posix3:s390x (10.42-4ubuntu1) ... 2413s Setting up libasan8:s390x (14-20240315-1ubuntu1) ... 2413s Setting up libharfbuzz0b:s390x (8.3.0-2build1) ... 2413s Setting up libthai-data (0.1.29-2) ... 2413s Setting up libxss1:s390x (1:1.2.3-1build2) ... 2413s Setting up libjpeg8-dev:s390x (8c-2ubuntu11) ... 2413s Setting up libisl23:s390x (0.26-3) ... 2413s Setting up libicu-dev:s390x (74.2-1ubuntu1) ... 2413s Setting up xdg-utils (1.1.3-4.1ubuntu3) ... 2413s update-alternatives: using /usr/bin/xdg-open to provide /usr/bin/open (open) in auto mode 2413s Setting up libcc1-0:s390x (14-20240315-1ubuntu1) ... 2413s Setting up libblas-dev:s390x (3.12.0-3) ... 2413s update-alternatives: using /usr/lib/s390x-linux-gnu/blas/libblas.so to provide /usr/lib/s390x-linux-gnu/libblas.so (libblas.so-s390x-linux-gnu) in auto mode 2413s Setting up dctrl-tools (2.24-3build2) ... 2413s Setting up libitm1:s390x (14-20240315-1ubuntu1) ... 2413s Setting up libbz2-dev:s390x (1.0.8-5ubuntu1) ... 2413s Setting up libice6:s390x (2:1.0.10-1build2) ... 2413s Setting up liblapack3:s390x (3.12.0-3) ... 2413s update-alternatives: using /usr/lib/s390x-linux-gnu/lapack/liblapack.so.3 to provide /usr/lib/s390x-linux-gnu/liblapack.so.3 (liblapack.so.3-s390x-linux-gnu) in auto mode 2413s Setting up libxft2:s390x (2.3.6-1) ... 2413s Setting up libpcre2-dev:s390x (10.42-4ubuntu1) ... 2413s Setting up libtk8.6:s390x (8.6.14-1) ... 2413s Setting up libpng-dev:s390x (1.6.43-3) ... 2413s Setting up libjpeg-dev:s390x (8c-2ubuntu11) ... 2413s Setting up pkgconf:s390x (1.8.1-2) ... 2413s Setting up libthai0:s390x (0.1.29-2) ... 2413s Setting up cpp-13-s390x-linux-gnu (13.2.0-21ubuntu1) ... 2413s Setting up liblapack-dev:s390x (3.12.0-3) ... 2413s update-alternatives: using /usr/lib/s390x-linux-gnu/lapack/liblapack.so to provide /usr/lib/s390x-linux-gnu/liblapack.so (liblapack.so-s390x-linux-gnu) in auto mode 2413s Setting up pkg-config:s390x (1.8.1-2) ... 2413s Setting up libgcc-13-dev:s390x (13.2.0-21ubuntu1) ... 2413s Setting up libgfortran-13-dev:s390x (13.2.0-21ubuntu1) ... 2413s Setting up libsm6:s390x (2:1.2.3-1build2) ... 2413s Setting up libstdc++-13-dev:s390x (13.2.0-21ubuntu1) ... 2413s Setting up cpp-13 (13.2.0-21ubuntu1) ... 2413s Setting up cpp-s390x-linux-gnu (4:13.2.0-7ubuntu1) ... 2413s Setting up libpango-1.0-0:s390x (1.52.1+ds-1) ... 2413s Setting up gcc-13-s390x-linux-gnu (13.2.0-21ubuntu1) ... 2413s Setting up gcc-s390x-linux-gnu (4:13.2.0-7ubuntu1) ... 2413s Setting up g++-13-s390x-linux-gnu (13.2.0-21ubuntu1) ... 2413s Setting up libxt6t64:s390x (1:1.2.1-1.2) ... 2413s Setting up gcc-13 (13.2.0-21ubuntu1) ... 2413s Setting up cpp (4:13.2.0-7ubuntu1) ... 2413s Setting up gfortran-13-s390x-linux-gnu (13.2.0-21ubuntu1) ... 2413s Setting up libpangoft2-1.0-0:s390x (1.52.1+ds-1) ... 2413s Setting up libpangocairo-1.0-0:s390x (1.52.1+ds-1) ... 2413s Setting up g++-13 (13.2.0-21ubuntu1) ... 2413s Setting up gfortran-s390x-linux-gnu (4:13.2.0-7ubuntu1) ... 2413s Setting up g++-s390x-linux-gnu (4:13.2.0-7ubuntu1) ... 2413s Setting up gcc (4:13.2.0-7ubuntu1) ... 2413s Setting up gfortran-13 (13.2.0-21ubuntu1) ... 2413s Setting up r-base-core (4.3.3-2build1) ... 2414s 2414s Creating config file /etc/R/Renviron with new version 2414s Setting up g++ (4:13.2.0-7ubuntu1) ... 2414s update-alternatives: using /usr/bin/g++ to provide /usr/bin/c++ (c++) in auto mode 2414s Setting up build-essential (12.10ubuntu1) ... 2414s Setting up r-cran-commonmark (1.9.1-1) ... 2414s Setting up r-cran-codetools (0.2-19-1) ... 2414s Setting up r-cran-listenv (0.9.1+dfsg-1) ... 2414s Setting up r-cran-xfun (0.41+dfsg-1) ... 2414s Setting up r-cran-digest (0.6.34-1) ... 2414s Setting up gfortran (4:13.2.0-7ubuntu1) ... 2414s update-alternatives: using /usr/bin/gfortran to provide /usr/bin/f95 (f95) in auto mode 2414s update-alternatives: warning: skip creation of /usr/share/man/man1/f95.1.gz because associated file /usr/share/man/man1/gfortran.1.gz (of link group f95) doesn't exist 2414s update-alternatives: using /usr/bin/gfortran to provide /usr/bin/f77 (f77) in auto mode 2414s update-alternatives: warning: skip creation of /usr/share/man/man1/f77.1.gz because associated file /usr/share/man/man1/gfortran.1.gz (of link group f77) doesn't exist 2414s Setting up r-cran-parallelly (1.37.1-1) ... 2414s Setting up r-cran-markdown (1.12+dfsg-1) ... 2414s Setting up r-cran-globals (0.16.2-1) ... 2414s Setting up r-base-dev (4.3.3-2build1) ... 2414s Setting up r-cran-future (1.33.1+dfsg-1) ... 2414s Setting up r-cran-future.apply (1.11.1+dfsg-1) ... 2414s Setting up pkg-r-autopkgtest (20231212ubuntu1) ... 2414s Setting up autopkgtest-satdep (0) ... 2414s Processing triggers for man-db (2.12.0-3build4) ... 2415s Processing triggers for install-info (7.1-3build1) ... 2415s Processing triggers for libc-bin (2.39-0ubuntu6) ... 2420s (Reading database ... 89942 files and directories currently installed.) 2420s Removing autopkgtest-satdep (0) ... 2421s autopkgtest [01:07:01]: test pkg-r-autopkgtest: /usr/share/dh-r/pkg-r-autopkgtest 2421s autopkgtest [01:07:01]: test pkg-r-autopkgtest: [----------------------- 2422s Test: Try to load the R library future.apply 2422s 2422s R version 4.3.3 (2024-02-29) -- "Angel Food Cake" 2422s Copyright (C) 2024 The R Foundation for Statistical Computing 2422s Platform: s390x-ibm-linux-gnu (64-bit) 2422s 2422s R is free software and comes with ABSOLUTELY NO WARRANTY. 2422s You are welcome to redistribute it under certain conditions. 2422s Type 'license()' or 'licence()' for distribution details. 2422s 2422s R is a collaborative project with many contributors. 2422s Type 'contributors()' for more information and 2422s 'citation()' on how to cite R or R packages in publications. 2422s 2422s Type 'demo()' for some demos, 'help()' for on-line help, or 2422s 'help.start()' for an HTML browser interface to help. 2422s Type 'q()' to quit R. 2422s 2422s > library('future.apply') 2422s Loading required package: future 2422s > 2422s > 2422s Other tests are currently unsupported! 2422s They will be progressively added. 2422s autopkgtest [01:07:02]: test pkg-r-autopkgtest: -----------------------] 2423s autopkgtest [01:07:03]: test pkg-r-autopkgtest: - - - - - - - - - - results - - - - - - - - - - 2423s pkg-r-autopkgtest PASS 2423s autopkgtest [01:07:03]: @@@@@@@@@@@@@@@@@@@@ summary 2423s run-unit-test PASS 2423s pkg-r-autopkgtest PASS 2537s Creating nova instance adt-noble-s390x-r-cran-future.apply-20240327-235110-juju-7f2275-prod-proposed-migration-environment-3-1f0ef7ea-bed9-4804-a979-7dad5991cbe7 from image adt/ubuntu-noble-s390x-server-20240327.img (UUID 2274866b-dd05-444a-bb80-9d56992242ed)... 2537s ERROR (ConnectFailure): Unable to establish connection to http://nova-api.infra.bos01.scalingstack:8774/v2.1/servers/b3658dc2-6b58-4176-b5a9-ccd4be7d962f: ('Connection aborted.', RemoteDisconnected('Remote end closed connection without response')) 2537s soft reboot timed out, doing hard reboot